Listing of file='609AC042' on disk='vmedia/731-0071G.wvd.zip'
# Sector 148, 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