Listing of file='609AC010' on disk='vmedia/701-2738G.wvd.zip'
# Sector 622, 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