10
20
30 :
40 FOR t%=128 TO 159
50 PRINT;~t%;" ";FNt(t%);SPC(14-POS);FNh(f%);" ";
60 PRINT;~t%+32;" ";FNt(t%+32);SPC(34-POS);FNh(f%);" ";
70 PRINT;~t%+64;" ";FNt(t%+64);SPC(54-POS);FNh(f%);" ";
80 PRINT;~t%+96;" ";FNt(t%+96);SPC(74-POS);FNh(f%)
90 NEXT
100 END
110 DEFFNt(t%)
120 IFt%=&8D PRINT"line num";:f%=0:=""
130 IFt%=&CE PRINT"PUT/EDIT";:f%=0:=""
140 _t%=_t%:IF_t%=0:REPEAT:_t%=_t%+1:UNTIL!_t%=&80444E41
150 a%=_t%:REPEAT
160 b%=a%:REPEAT:a%=a%+1:UNTIL?a%>127
170 IF?a%<>t% a%=a%+2
180 UNTIL?a%=t%
190 f%=a%?1
200 REPEATVDU?b%:b%=b%+1:UNTILb%=a%
210 =""
220 DEFFNb(a%)
230 FOR b%=1 TO 8:VDU49+(a%<128):a%=(a%*2)AND&FF:NEXT
240 =""
250 DEFFNh(a%)=RIGHT$("0"+STR$~a%,2)