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"