image of READY prompt

Wang2200.org

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

# Sector 708, program filename = '609AC042'
0010 REM '609AC042' - CLOSE DOCUMENT FILE # T0 & #T1
0015 DIM U1$(2)64,U2$(8)4
   : B2$=" "
   : J$=HEX(0D)
   : GOSUB '212(A2)
   : IF POS(HEX(000708)=R1$)>0THEN 200
   : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : GOSUB 2505
   : GOTO 230
0200 GOSUB '212(A1)
   : IF R1$=HEX(07)OR R1$=HEX(00)THEN 230
   : IF R1$>HEX(29)THEN CONVERT (VAL(R1$))TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : GOSUB 2510
0230 LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 B2$="Error Occurred while closing new document = "&T2$
   : RETURN
2510 B2$="Error Occurred while closing old document = "&T2$
   : RETURN