100 CLS:PCLS:DIM A%(15):S$=""
110 FOR I%=0 TO 15
120 A%(I%)=I%:X%=I%*32:S$=S$+CHR$(191)+CHR$(191)
130 LINE(X%,0)-STEP(31,255),I% AND 7,BF
140 NEXT I%
150 FOR I%=1 TO 8
160 LOCATE 33,I%,0:PRINT S$;
170 LOCATE 1,I%+8,0:PRINT S$;
180 NEXT I%
190 LUT A%(0)
200 LOCATE 1,2,0:PRINT"  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 ";
210 LOCATE 1,15,0:PRINT"  8   9  10  11  12  13  14  15   0   1   2   3   4   5   6   7 ";
300 IF INKEY$="" THEN 300
900 FOR I%=8 TO 15:A%(I%)=15:NEXT I%
910 LUT A%(0):LOCATE 1,1,1:CLS:PCLS
