image of READY prompt

Wang2200.org

Listing of file='609@DFLT' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 1116, 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"