Listing of file='609RCVR1' on disk='vmedia/701-2737G.wvd.zip'
# Sector 1024, program filename = '609RCVR1' 0010 REM '609RCVR1' - PROMPT AND VERIFY ARCHIVE 0020 COM D0$5,D1,D9$5,D7$32,C0$53,T2$2,C6$(256)1,J1$(256)1,J9$29 : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(1)1,S1$(1)1 : DIM T1(5),S6(5),S1(5),T2$(5)80 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)5 : DIM S2$(5)2 : DIM S1$1 : DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T1,T3,T5,C0,T7 0120 LIMITS T#0,"609$TRAN",J,J0,S0,J1 : DATA LOAD BA T#0,(J+1)J1$() : D7$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F) : C0$=" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 0180 PRINT HEX(03) : RESTORE LINE2510 : GOSUB '61 : T5$(1)=B6$ 0220 GOSUB '62 : ON T5+1GOTO 250,280 : GOSUB 2570 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 220 0250 COM CLEAR C : LOAD T"609menu" 0280 S7=POS(C0$=T5$(1)) : IF S7>0THEN 330 : GOSUB 2575 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 220 0330 DATA LOAD DA T#0,(B3+S7-1)A0$() : C3$=STR(A0$(),136,1) : IF C3$="1"OR C3$="2"THEN 390 : GOSUB 2580 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 220 0390 B6$=T5$(1) : SELECT #6<STR(A0$(),133,3)> : ERRORGOSUB 2582 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 220 0430 D1=0 : D0$="0000"&T5$(1) : IF C3$<>"1"THEN 670 : RESTORE LINE2550 : GOSUB '61 : T5$()=D0$ 0520 GOSUB '62 : D0$=T5$() : ON T5+1GOTO 180,570 : GOSUB 2570 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 520 0570 IF VER(D0$,"####A")=5THEN 610 : GOSUB 2585 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 520 0610 LIMITS T#6,D0$,D1,J0,S0,J1 : IF J1=2AND J0-D1+1=1233THEN 670 : GOSUB 2590 : PRINT AT(23,0,);B2$;HEX(07); : GOTO 520 0670 IF D1=0THEN PRINT HEX(06);AT(8,0,); 0680 GOSUB 2595 : PRINT HEX(06);AT(22,0,40);B2$; : GOSUB '34(0) : PRINT AT(22,0,40); : IF J$=HEX(F0)THEN 180 : DATA LOAD BA T#6,(D1)C6$() : ERRORGOTO 680 0760 D4$=STR(C6$(),4,5) : IF VER(D4$,"####A")=5THEN 770 : GOSUB 2600 : PRINT AT(23,0,);B2$;HEX(07); : GOSUB '34(1) : GOTO 680 0770 GOSUB 2605 : PRINT AT(6,43);B2$;AT(6,61);D4$; : GOSUB '34(0) : IF J$=HEX(F0)THEN 680 : DATA LOAD BA T#6,(D1)C6$() : STR(C6$(),9,1)=HEX(00) : DATA SAVE BA T#6,(D1)C6$() : LOAD T"609RCVR2" 2500 % DO NOT RENUMBER THE FOLLOWING 2510 DATA 4,0,0,"WANG 2200 Word Processing System" : DATA 4,1,26,"R E C O V E R A R C H I V E" : DATA 4,3,0,"Please Enter Data" : DATA 4,4,0,"Press EXECUTE to Continue" : DATA 4,6,13,"Archive Location : " : DATA 2,6,33,1," " : DATA 0 2550 DATA 4,0,0,"WANG 2200 Word Processing System" : DATA 4,6,43,"Archive Label : " : DATA 2,6,61,5," " : DATA 0 2570 B2$="Invalid Key" : RETURN 2575 B2$="Invalid Archive" : RETURN 2580 B2$="Archive Not Assigned" : RETURN 2582 B2$="Invalid Archive Device Assigned" : RETURN 2585 B2$="Invalid Archive Label" : RETURN 2590 B2$="Archive Does Not Exist" : RETURN 2595 B2$="Mount Archive" : RETURN 2600 B2$="Platter mounted is not an initialized archive" : RETURN 2605 B2$="Archive Label :" : RETURN