Listing of file='609FG120' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 335, program filename = '609FG120' 0010 REM '609FG120' - SHOW DOCUMENT D$ AS PROCESSED 0030 B2$=" " : KEYIN J$,40,40 0040 IF J$<>HEX(F0)THEN J$=HEX(0D) : GOSUB 2505 : PRINT HEX(06);AT(15,0);T1$; 0130 D(18)=D(18)+8 : IF D(18)<80THEN 230 : D(17)=D(17)+1 : D(18)=1 : IF D(17)<=D(16)THEN 230 : PRINT AT(D(15),0,(D(16)-D(15)+1)*80);AT(D(15),1);Z$ : D(17)=D(15) : D(18)=1 0230 PRINT AT(D(17),D(18));R5$; : Z$=R5$ : D(14)=D(14)+1 : D2=8888 : LOAD TA5$ 2500 % DO NOT RENUMBER THE FOLLOWING 2505 T1$="Documents Processed :" : RETURN