10
20
30 :
40 DEFFNttx_rows(D%):A%=919:REPEATA%=A%+1:UNTILA%>999ORD%?A%<32:=A%DIV40
50 :
60 DEFFNttx_title(D%,R%):LOCAL B%:D%=D%+920-40*(R%=24)
70 A%=D%-1:REPEATA%=A%+1:UNTIL?A%<32:B%=?A%:?A%=13:A$=$D%:?A%=B%:=A$
80 :
90 DEFPROCttx_display(D%):LOCAL B%,R%
100 CLS:R%=FNttx_rows(D%):IFR%<25:PRINTFNttx_title(D%,R%)
110 FORA%=1TO4:B%=D%?(230*A%):D%?(230*A%)=13:PRINT$(D%+230*(A%-1));
120 D%?(230*A%)=B%:NEXT:IFR%<24:ENDPROC
130 A%=D%+959-40*(R%=25):B%=?A%:?A%=13:PRINT$(D%+920);:?A%=B%:ENDPROC
140 :
150 DEFPROCttx_type(fn$):in%=OPENIN(fn$):IFin%=0:ENDPROC
160 LOCALN%:REPEAT:VDUBGET#in%OR&80:N%=N%+1:UNTILN%>959OREOF#in%
170 CLOSE#in%:in%=0:ENDPROC