image of READY prompt

Wang2200.org

Listing of file='609start' on disk='vmedia/701-2739G.wvd.zip'

# Sector 18, program filename = '609start'
0010 REM %^ 609start 2.6.0 KKB 08/01/90
0040 COM R1$1,R3$(10)9,R1,R1$(3)1
   : COM R5$5,B3$5,B4$6,A6$(4)25,B5$1,B2$80,B9$16,A3$8,A5$8
   : COM A0$(4)62,R5$5,R2$6,B2$80,A5$(20)8,B3,B0$,B3$5,B4$6
   : COM A6$(4)25,A7$(13)6,A8$(11)2,A9$(7)1,A0(5)
   : COM A1,B5$1,A2,B6$1,A3,B7$1,A4
0110 COM B9$,B0$(3)17,A2$80,A3$8,A5$8,A8$8,B5$(3)6,B6$(2)4
   : COM A9$1,A6$1,B9$(7)1,A7$1,B8$(10)3,A1$3,B8$1,A4$8
   : COM V0,V6(9),U4$4,V5,U0(23),U0$3,U3$1,V2,U8,V9(9)
   : COM R1$1,V5$(160)1,U7,V9,U5(10),U4,U6,U0,V5(7),U3(9)
   : COM J8
   : GOSUB '246(1)
   : A9$="M"
   : A6$="."
   : B9$()="1230HWQ"
   : A7$="Y"
0111 R3$=DATE
   : IF STR(R3$,1,6)="000101"THEN 1220
   : REM SAVE TODAY DATE
   : R4$=STR(R3$,3,2)&STR(R3$,5,2)&STR(R3$,1,2)
   : DATA LOAD DC OPEN T#0,"609@D0"
   : DATA LOAD DC A0$()
   : STR(A0$(),1,6)=STR(R4$,1,6)
   : DBACKSPACE #0,1
   : DATA SAVE DC A0$()
1220 B8$()="F4f4H5h5W6w64F4f5H5h6W6w"
   : A1$=HEX(5C5E5F)
   : B8$=HEX(5F)
   : B0$(1)=HEX(020402000E)&"EXECUTE"&HEX(020400000E)
   : B0$(2)=HEX(020402000E)&"RETURN"&HEX(020400000E)
   : B0$(3)=HEX(020402000E)&"CANCEL"&HEX(020400000E)
1320 A2$=HEX(020402000E)&"                        WANG 2200 Word Processing Sy
     stem"&HEX(0204000E)
   : B5$(1)=HEX(020400000E)
   : B5$(2)=HEX(020402000E)
   : B5$(3)=HEX(020404000E)
   : $IF OFF /005,1420
   : PRINT B5$(1);
1420 B6$(1)=HEX(0202000E)
   : B6$(2)=HEX(0202020E)
   : A1,A2,A3,A4=-1
   : DATA LOAD DC OPEN T"609@D0"
   : ERRORE=ERR
   : PRINT "Error";E;"opening System Date File on selected disk"
   : END
1510 DATA LOAD DC A0$()
   : ERRORE=ERR
   : PRINT "Error";E;"loading sector 1 of System Date File"
   : END
1511 IF R2$=" "THEN 1520
   : STR(A0$(),,6)=R2$
   : DBACKSPACE #0,1
   : DATA SAVE DC A0$()
   : ERRORE=ERR
   : PRINT "Error";E;"writing sector 1 of System Date File"
   : END
1520 IF R2$=" "THEN R2$=STR(A0$(),,6)
   : DATA LOAD DC OPEN T"609@DEVC"
   : ERRORE=ERR
   : PRINT "Error";E;"opening Peripheral Device File on system address"
   : END
1570 DATA LOAD DC A0$()
   : ERRORE=ERR
   : PRINT "Error";E;"Loading sector 1 of Peripheral Device File"
   : END
1580 C$=STR(A0$(),2,3)
   : IF VER(C$,"HHH")<>3THEN 1820
   : SELECT #5<C$>
   : ERRORGOTO 1820
1690 Z1=INT(RND(.5)*10^10)
   : CONVERT Z1TO STR(A0$(),31,10),(##########)
   : DBACKSPACE BEG
   : LIMITS TX,Y,Z
   : $OPEN #0,#5
   : ERRORGOTO 1820
1740 DATA SAVE DC A0$()
   : $IF OFF #5,1820
   : ERRORGOTO 1820
1770 DATA LOAD DA T#5,(X)A0$()
   : ERRORGOTO 1820
1780 $CLOSE#0,#5
   : CONVERT STR(A0$(),31,10)TO X
   : ERRORGOTO 1820
1810 IF X=Z1THEN 1940
1820 REM Address not OK
   : B2$=$PSTAT(#PART)
   : IF STR(B2$,1,8)="609SUPER"THEN 1870
   : PRINT HEX(03070A);B5$(3);"Error in system disk selection - have superviso
     r correct immediately";B5$(1)
   : END
1870 PRINT HEX(03070A);B5$(3);"Error in system disk selection - correct immedi
     ately";B5$(1)
   : PRINT
   : B2$=" "
   : LINPUT "Key Return to continue",B2$
   : LOAD T"609@sys"
1940 REM Set up printer addresses
   : FOR I=1TO 4
   : DATA LOAD DC A0$()
   : SELECT #I<STR(A0$(),2,3)>
   : NEXT I
   : DATA LOAD DC OPEN T"609@T"
   : ERRORE=ERR
   : PRINT "Error";E;"opening  Terminal Default File on selected disk"
   : END
2030 X=#TERM
   : DSKIP X-1S
   : DATA LOAD DC A0$()
   : $UNPACK(F=HEX(A001A001A001))A0$()TO B5$,B6$,B7$
   : LIMITS T"609@ARCH",B3,X,X,X
   : IF X=2THEN 2150
   : PRINT "Library Map not found on selected disk status =";X
   : END
2150 IF POS(R3$(1)<>" ")=0THEN R3$()="609menu"
   : A3$=R3$()
   : R3$()=STR(R3$(),10)
   : LOAD DC TSTR(A3$,1,8)
   : ERRORE=ERR
   : PRINT "Error";E;"while loading module ";A3$
   : END
2210 DEFFN'246(U0(23))
   : V5=127
   : U0(5)=32
   : U4$="0000"
   : U4,U5(5),U5(6),U0(2),U0(18)=-1
   : RETURN
2340 DEFFN'31
   : COM CLEAR
   : LOAD T"START"