Listing of file='609@DFLT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2304, program filename = '609@DFLT'
0010 REM 609@DFLT, RELEASE 2.3.5, (03/03/86) - COPYRIGHT WANG LABS. INC.
0020 DIM J$4,J0$3,J1$1,J2$8,J3$1,J4$53,J5$25,J6$25,J7$25,J8$6,J9$3,D1$8,D$8,D0
$8,J$(11)12,J0$(4)1,J1$(4)3,J2$(4)25,D4$5,D5$1
: J=37
: J1=64
: J2=44
: D1$="609@D0"
: D$="609@ARCH"
: D0$="609@DEVC"
: MAT READ J$
: J4$=" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
0110 DATA "Phoenix","Winchester","DSDD","Other","Character","Line","System","W
P diskette","No glossary","Not enabled","Enabled"
0120 PRINT HEX(0306020402000E);AT(0,30);"SYSTEM DEFAULTS";AT(2,0);"Press EXECU
TE or CANCEL to return to menu.";HEX(0F);AT(1,J1);"Partition:";AT(0,J1);"
Terminal:";AT(2,J1);"Size:"
0130 PRINT AT(4,0);"Current document #:";TAB(J);"Next available document #:";A
T(5,0);"Current library:";AT(6,0);"Comment:";AT(5,J);"Library is on volum
e:";AT(8,0);"Current archive:";TAB(J);"Archive address:";AT(9,0);"Comment
:";TAB(J);"Archive type:"
0140 PRINT AT(11,0);"Glossary:";AT(12,0);"Password:";AT(11,J);"Software releas
e #";AT(12,J);"Installation date:";AT(14,0);"System disk address";AT(15,0
);"Type of disk drive:";AT(16,0);"Comment:"
0150 PRINT AT(19,0);"Printer 1:";TAB(25);"Address:";TAB(J2);"Comment:";AT(20,0
);"Printer 2:";TAB(25);"Address:";TAB(J2);"Comment:";AT(21,0);"Printer 3:
";TAB(25);"Address:";TAB(J2);"Comment:";AT(22,0);"Printer 4:";TAB(25);"Ad
dress:";TAB(J2);"Comment:"
: DATA LOAD DC OPEN TD1$
: DATA LOAD DC A0$()
: J8$=STR(A0$(),11,6)
0190 D4$=STR(A0$(),39,5)
: DATA LOAD DC OPEN TD$
: J2$,J$,J6$=" "
: J0=POS(J4$=B5$)-1
: IF J0<=0 THEN 191
: DSKIP J0S
: DATA LOAD DC A0$()
: J2$=STR(A0$(),2,8)
: J$=STR(A0$(),10,4)
: J6$=STR(A0$(),18,25)
0191 DBACKSPACE BEG
: J0$,J1$,J5$=" "
: J0=POS(J4$=B6$)-1
: IF J0<=0 THEN 192
: DSKIP J0S
: DATA LOAD DC A0$()
: J0$=STR(A0$(),133,3)
: J1$=STR(A0$(),136,1)
: J5$=STR(A0$(),137,25)
0192 DATA LOAD DC OPEN TD0$
: DATA LOAD DC A0$()
: J9$=STR(A0$(),2,3)
: J3$=STR(A0$(),5,1)
0380 J7$=STR(A0$(),6,25)
: FOR J3=1TO 4
: DATA LOAD DC A0$()
: J0$(J3)=STR(A0$(),5,1)
: J1$(J3)=STR(A0$(),2,3)
: J2$(J3)=STR(A0$(),6,25)
: NEXT J3
0450 PRINT HEX(020402000E);AT(1,74);#PART;AT(0,74);#TERM;AT(2,70);SPACEK;"K";A
T(4,20);R5$;AT(4,64);J$;AT(4,68);B5$;AT(5,18);B5$;AT(6,10);J6$;AT(5,60);J
2$;AT(8,18);B6$;AT(8,55);J0$;AT(9,10);J5$;AT(11,57);D4$;AT(14,21);J9$;AT(
15,21);J$(VAL(J3$));AT(16,10);J7$
: PRINT AT(9,52);
: IF J1$="1"THEN PRINT J$(7)
: ELSE PRINT J$(8)
: PRINT AT(11,11);
0490 IF B3$=" "THEN PRINT J$(9)
: ELSE PRINT B3$
: PRINT AT(12,11);
: IF B4$=" "THEN PRINT J$(10)
: ELSE PRINT J$(11)
: PRINT AT(12,57);
: IF D2$="D"THEN PRINT STR(J8$,3,2);"/";STR(J8$,,2);
: ELSE PRINT STR(J8$,,2);"/";STR(J8$,3,2);
: PRINT "/";STR(J8$,5)
: FOR J3=1TO 4
: PRINT AT(18+J3,12);
: IF J0$(J3)=HEX(01)THEN PRINT J$(5)
: ELSE PRINT J$(6)
: PRINT AT(18+J3,35);J1$(J3);AT(18+J3,54);J2$(J3)
: NEXT J3
: PRINT HEX(020400000E)
0610 KEYIN D5$
: J4=VAL(D5$)
: IF J4=31OR J4=80OR J4=130OR J4=161OR J4=240THEN 650
: GOTO 610
0650 DEFFN'31
: DATA SAVE DC CLOSEALL
: LOAD T"609menu"