image of READY prompt

Wang2200.org

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