Listing of file='609AC010' on disk='vmedia/731-0071G.wvd.zip'
# Sector 62, program filename = '609AC010' 0010 REM '609AC010' - COPY DOCUMENT FROM # A1 TO #A2 0015 DIM U1$(2)64,U2$(8)4 : GOSUB 2520 : PRINT AT(23,0);B2$;HEX(0601) : B2$=" " : J$=HEX(0D) : GOSUB '220(A1,1,1,1,1) : IF R1$<>HEX(00)THEN GOSUB 2505 : IF B2$<>" "THEN 230 : C8=V0 : GOSUB '222(A2,1,1,1,1) : IF R1$=HEX(01)THEN GOSUB 2515 : ELSE IF R1$<>HEX(00)THEN GOSUB 2510 : IF B2$<>" "THEN 230 : GOSUB '220(A1,1,2,1,1) : IF R1$<>HEX(00)THEN GOSUB 2505 : IF B2$<>" "THEN 230 0090 $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$() : A7$(1)=C4$ : STR(V1$(),101,5)=C4$ : $PACK(F=HEX(A019A005A007A002))U1$()FROMA6$(),A7$(12),HEX(00000000000000), "10" : GOSUB '222(A2,1,2,1,1) : IF R1$=HEX(01)THEN GOSUB 2515 : ELSE IF R1$<>HEX(00)THEN GOSUB 2510 : IF B2$<>" "THEN 230 : FOR C9=3TO C8 0120 GOSUB '220(A1,1,C9,1,1) : IF POS(HEX(0028)=R1$)=0THEN GOSUB 2505 : IF B2$<>" "THEN 230 : GOSUB '222(A2,1,C9,1,1) : IF R1$=HEX(01)THEN GOSUB 2515 : ELSE IF R1$<>HEX(00)THEN GOSUB 2510 : IF B2$<>" "THEN 230 : NEXT C9 : GOSUB '235(A2,U1$()) : IF R1$<>HEX(00)THEN GOSUB 2510 0230 LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="Error reading old document" : RETURN 2510 B2$="Error writing new document" : RETURN 2515 B2$="Volume full" : RETURN 2520 B2$="(In Progress)" : RETURN