image of READY prompt

Wang2200.org

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

# Sector 735, program filename = '609FC010'
0010 REM '609FC010' - SETUP DOCUMENT ON ARCHIVE
0330 COM D1$3,C0$(3)82,C1$(3)82,C2$(16)16,C3$(16)16,C$(16)16
   : COM V1$(3)82,C(12)
   : GOSUB 2505
   : PRINT AT(23,0);B2$;
   : GOSUB '40
   : IF C4$<>" "THEN GOSUB '45(C4$)
   : ELSE GOSUB '45(R5$)
   : D(24)=SGN(D(12))
   : INIT(00)D1$,C$(),C2$(),C3$()
   : IF C4$<>" "THEN GOSUB '54(C4$)
   : ELSE GOSUB '54(R5$)
   : C(2)=0
   : C(4)=0
   : C(1)=0
   : GOSUB 1100
   : IF R1$<>HEX(00)THEN 1050
   : C1$()=V1$()
0580 GOSUB 1100
   : IF R1$<>HEX(00)THEN 1050
   : C0$()=V1$()
   : C(3)=V0
   : C(1)=C(3)
   : IF STR(C1$(),5,2)=HEX(0000)THEN 740
   : IF STR(C1$(),5,2)=HEX(FFFF)THEN 740
   : MAT SEARCHSTR(C1$(),7),>HEX(0000)TO T2$STEP 2
   : C=VAL(T2$,2)+6
   : C(1)=C(1)-(VAL(STR(C1$(),C),2)-VAL(STR(C1$(),5),2))
0740 IF STR(C1$(),13,2)=HEX(0000)THEN 810
   : IF STR(C1$(),13,2)=HEX(FFFF)THEN 810
   : MAT SEARCHSTR(C1$(),15),>HEX(0000)TO T2$STEP 2
   : C=VAL(T2$,2)+14
   : C(1)=C(1)-(VAL(STR(C1$(),C),2)-VAL(STR(C1$(),13),2))
0810 GOSUB '56(C(1))
   : IF D(23)<>-1THEN 860
   : GOSUB 2510
   : GOTO 1080
0860 GOSUB '56(0)
   : C(9)=D(23)
   : GOSUB '56(0)
   : C(10)=D(23)
   : D(22)=0
   : IF D(24)=0AND C4$=" "THEN GOSUB '58(R5$,0)
   : IF D(24)=0AND C4$<>" "THEN GOSUB '58(C4$,0)
   : IF D(22)<>-1THEN 1010
   : GOSUB 2510
   : GOTO 1080
1010 IF C4$<>" "THEN GOSUB '52(C4$,HEX(FFFF),HEX(40))
   : ELSE GOSUB '52(R5$,HEX(FFFF),HEX(40))
   : A5$()="609FC020JCATSMALREC.PRIMREC.RD"
   : LOAD T<4>A5$()
1050 GOSUB 2515
1080 LOAD TA5$
1100 C(4)=C(4)+1
   : GOSUB '220(A1,1,C(4),1,1)
   : RETURN
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="(In Progress)"
   : RETURN
2510 B2$="Archive Full"
   : RETURN
2515 IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : B2$="Error Occurred while reading document = "&T2$
   : RETURN