10
20
30 MODE4
40 VDU23;1,45;0;0;0
50 VDU23;6,28;0;0;0
60 VDU23;2,52;0;0;0
70 PROCtest:END
80 DEFPROCtest
90 FOR A%=0 TO 8
100 PROCpg(A%*25,&3000+&400*A%,A%*25)
110 NEXT:ENDPROC
120 DEFPROCln(ln%,mem%,mrow%)
130 LOCAL H%,B%:H%=&5800+360*(ln%DIV8)+(ln%AND7)
140 ?H%=&AA:H%?8=&AA:H%?16=0:
150 H%?24=mrow%:H%?32=mrow%DIV256
160 H%=H%+40:FOR B%=0 TO 39
170 ?H%=mem%?B%:H%=H%+8
180 NEXT
190 ENDPROC
200 :
210 DEFPROCpg(ln%,mem%,mrow%)
220 LOCAL L%
230 FOR L%=0 TO 24
240 PROCln(ln%+L%,mem%+40*L%,mrow%+L%)
250 NEXT
260 ENDPROC