10
20
30 :
40 DEFFNttx_rows(D%):A%=919:REPEATA%=A%+1:UNTILA%>999 OR D%?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 :