Listing of file='609start' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 661, program filename = '609start'
0010 REM %^ 609start
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"
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"