image of READY prompt

Wang2200.org

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

# Sector sector 760, program filename = '609FC040'
0010 REM %^ '609FC040' - COPY REST OF DOCUMENT TO ARCHIVE
0030 STR(C$(),4,4)=HEX(00)&STR(D1$,1,3)
   : C(2)=0
   : C(4)=2
0070 GOSUB 720
   : IF R1$<>HEX(28)AND R1$<>HEX(00)THEN 670
   : IF R1$=HEX(28)THEN C(2)=1
   : C$=BIN(C(4),2)
   : MAT SEARCHC1$(),=STR(C$,1,2)TO D1$()STEP 2
   : IF D1$()=HEX(0000)THEN 340
   : C=VAL(D1$(),2)
   : IF C<>5THEN 250
   : MAT SEARCHSTR(C1$(),7),>HEX(0000)TO T2$STEP 2
   : C=VAL(T2$,2)+6
   : C(4)=VAL(STR(C1$(),C),2)-1
   : GOTO 70
0250 IF C<>13THEN 320
   : MAT SEARCHSTR(C1$(),15),>HEX(0000)TO T2$STEP 2
   : C=VAL(T2$,2)+14
   : C(4)=VAL(STR(C1$(),C),2)-1
   : GOTO 70
0320 IF C>13THEN STR(C3$(),C+2,2)=STR(C$(),1,2)
   : ELSE STR(C3$(),C+4,2)=STR(C$(),1,2)
0340 S7=POS(STR(V1$(),2)=8F)+1
   : IF S7=1THEN 390
   : STR(V1$(),S7)=ALL(20)
   : S7=S7-1
   : GOTO 400
0390 S7=POS(-V1$()>20)
0400 STR(C$(),3,1)=BIN(S7+6)
   : $TRAN(V1$(),D3$())
   : STR(C$(),8)=V1$()
   : IF C(4)=C(3)THEN 530
   : GOSUB '56(0)
   : GOSUB '49(D(23))
   : STR(C$(),1,2)=J9$
   : GOTO 550
0530 STR(C$(),1,2)=HEX(0000)
0550 DATA SAVE BA T#D(9),(C(7)+D1)C$()
   : C(7)=D(23)
   : IF C(2)=0THEN 70
   : DATA SAVE BA T#D(9),(C(10)+D1)C3$()
   : GOSUB '49(C(9))
   : IF C4$<>" "THEN GOSUB '52(C4$,J9$,HEX(00))
   : ELSE GOSUB '52(R5$,J9$,HEX(00))
   : IF D(24)=0THEN LOAD TA5$
   : A5$()="609FG180609FG080"
   : LOAD T<2>A5$()
0670 GOSUB 2505
   : LOAD TA5$
0720 C(4)=C(4)+1
   : GOSUB '220(A1,1,C(4),1,1)
   : RETURN
2500 % DO NOT RENUMBER THE FOLLOWING
2505 IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : B2$="Error occrred while accessing document = "&T2$
   : RETURN