image of READY prompt

Wang2200.org

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

# Sector 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