image of READY prompt

Wang2200.org

Listing of file='609FG120' on disk='vmedia/731-0071G.wvd.zip'

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