image of READY prompt

Wang2200.org

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

# Sector sector 1083, program filename = '609RCVR5'
0010 REM '609RCVR5' - SEARCH RECOVERY OF DOCUMENT
0160 GOSUB 2505
   : PRINT AT(23,0,);B2$;
   : DIM C4$(3)82,C0$(123)2,C4$3
   : CONVERT STR(R5$,1,4)TO J0
   : PACK(####)C3$FROMJ0
   : STR(C3$,3,1)=STR(R5$,5,1)
   : J4=17
   : C0$()=ALL(FF)
   : STR(C0$(),1,15)=ALL(00)
   : C0$(1)=BIN(1,2)
   : C0$(2)=BIN(2,2)
   : C0$(8)=BIN(3,2)
   : V1$()=C0$()
   : V4$="P"
   : GOSUB 1350
   : V1$()=ALL(FE)
0370 $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
   : V4$="A"
   : GOSUB 1350
   : J5=1
   : C2$()=ALL(20)
   : V4$="T"
   : IF D7=0THEN D7=8
   : FOR C=D7TO 1231
   : GOSUB '50(C)
   : DATA LOAD BA T#6,(D1+J)C6$()
   : ERRORGOTO 850
0540 IF STR(C6$(),5,3)<>C3$THEN 850
   : IF C6$(4)="A"THEN 850
   : $TRAN(STR(C6$(),8),J1$())
   : $TRAN(STR(C6$(),8),HEX(3F003F013F023F033F043F053F063F073F083F093F0A3F0B3F
     0C3F0D3F0E3F0F))R
   : J3=VAL(C6$(3))-6
   : IF J3<1THEN 850
   : J0=POS(STR(C6$(),8,J3)=8F)
   : IF J0<>0THEN 730
   : IF J6=1THEN 710
   : C2$()=HEX(8F31)&ALL(80)
   : STR(C2$(),80)=HEX(83)
0700 J6=1
0710 GOSUB '85(STR(C6$(),8,J3))
   : GOTO 850
0730 IF J0<>1THEN 820
   : IF J6=0THEN 780
   : IF POS(STR(C2$(),2)=8F)=0THEN GOSUB '85(HEX(8F))
   : GOSUB 930
0780 GOSUB '85(STR(C6$(),8,J3))
   : J6=1
   : GOTO 850
0820 J6=0
   : GOSUB '85(STR(C6$(),8,J3))
   : GOSUB 930
0850 NEXT C
   : IF J>2OR POS(-C2$()>20)>0THEN 870
   : C2$()=HEX(8F)&ALL(80)
   : STR(C2$(),80)=HEX(8380)
0870 GOSUB 930
   : GOSUB 2510
   : PRINT AT(23,0,);B2$;
0910 LOAD TA5$
0930 IF POS(-C2$()>20)=0THEN 970
   : V1$()=C2$()
   : C2$()=" "
   : GOSUB 1350
0970 RETURN
0990 DEFFN'85(C3$())
1010 IF POS(-C2$()>20)+POS(-C3$()>20)>246THEN 1050
   : STR(C2$(),POS(C2$()=20))=C3$()
   : RETURN
1050 J0=POS(-C2$()>20)
   : IF J0=0THEN 1090
   : V1$()=STR(C2$(),1,J0)
   : C2$()=" "
1090 IF J0<246THEN STR(V1$(),1+J0)=STR(C3$(),1,246-J0)
   : C3$()=STR(C3$(),246-J0+1)
   : IF J5=J4THEN 1200
   : GOSUB 1350
   : C2$()=C3$()
   : RETURN
1200 J1=POS(STR(V1$(),230)=80)+229
   : IF J1=229THEN J1=245
   : C4$()=STR(V1$(),J1)
   : STR(V1$(),J1)=HEX(8F)
   : GOSUB 1350
   : J5=1
   : C2$()=HEX(8F31)&ALL(80)
   : STR(C2$(),80)=HEX(83)&ALL(20)
   : C3$()=C3$()&C4$()
   : GOTO 1010
1350 GOSUB '225(A1,1,1,1)
   : IF R1$<>HEX(00)THEN 1550
   : J=J+1
   : J5=J5+1
   : RETURN
1440 DEFFN'50(J)
   : J0=INT(J/16)
   : J9$=BIN(J-(J0*16))
   : $TRAN(J9$,D7$)R
   : J=J0*16+VAL(J9$)
   : RETURN
1520 GOSUB 2515
   : GOTO 910
1550 ON VAL(R1$)GOTO 1600
   : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : GOSUB 2520
   : GOTO 1620
1600 GOSUB 2525
1620 GOTO 910
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Retrieving Document"
   : RETURN
2510 B2$="Closing Document"
   : RETURN
2515 B2$="Page overflow, document partially retrieved"
   : RETURN
2520 B2$="Error occurred while adding records = "&T2$
   : RETURN
2525 B2$="Volume Full"
   : RETURN