10
20
30 :
40 DIM zp% 3
50 A%=161:X%=255:Y%=49:!zp%=USR&FFF4:max%=zp%?2:Y%=0
60 FOR N%=0 TO 255 STEP 16:FOR X%=N% TO N%+15
70 !zp%=USR&FFF4:IF X%>max%:COLOUR 0:COLOUR 135
80 PRINT FNh0(zp%?2,2);:IF X%>max%:COLOUR 7:COLOUR 128
90 PRINT " ";:NEXT:PRINT:NEXT
100 END
110 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)