11 lines
253 B
Plaintext
11 lines
253 B
Plaintext
PROGRAM:Charset
|
|
01 DATA 0,"0123456789ABCDEF"
|
|
02 CLS :COLOR 6:BOX 3,13,36,46
|
|
03 FOR Y=0 TO 15:? @Y+2,5;%AR(Y)
|
|
04 FOR X=0 TO 15:? @0,X+7;%AR(X)
|
|
05 COLOR 7,1
|
|
06 IF (X%2)=(Y%2) THEN COLOR 5,0
|
|
07 C=16*Y+X
|
|
08 ? @Y+2,X+7;%C;:COLOR 6,0
|
|
09 NEXT :NEXT
|
|
# |