10 REM CURSOR POSITIONING
20 DEF FNPRI$(X,Y)=CHR$(&H1B)+CHR$(&H3D)+CHR$(X+32)+CHR$(Y+32)
30 REM CLEAR SCREEN
40 PRINT CHR$(&H1B);CHR$(&H2A)
50 PRINT "dec.  +0  +1  +2  +3  +4  +5  +6  +7  +8  +9 +10 +11 +12 +13 +14 +15 +16 +17 +18" 
60 C=33
70 M=0
80 FOR I=4 TO 20 STEP 4
90 PRINT FNPRI$(I,0);C+M
100 M=M+19
110 NEXT I
120 Q=3
130 P=7
140 PRINT FNPRI$(Q,P);CHR$(C);
150 REM GRAPHICS MODE ON
160 PRINT CHR$(&H1B);CHR$(&H24)
170 PRINT FNPRI$(Q+1,P);"K"
180 PRINT FNPRI$(Q+2,P);CHR$(C);
190 P=P+4
200 C=C+1
210 REM GRAPHICS MODE OFF
220 PRINT CHR$(&H1B);CHR$(&H25)
230 IF C=128 THEN END
240 IF P<80 THEN GOTO 140
250 Q=Q+4
260 GOTO 130
270 END
MODE OFF
220 PRINT CHR$(&H1B);CHR$(&H25)
230 IF C=128 THEN END
240 IF P<80 THEN GOTO 140
250 Q=