§ Программный код
Возможность рисовать символы и сохранить на будущее.
10 CLS: LET X=0: LET Y=0: DIM S(8,8)
15 FOR I=0 TO 7: POKE 65368+I,0: PRINT AT 1+I,12;"0 ":NEXT I
20 FOR I=0 TO 8
30 PLOT I*9,175: DRAW 0,-72
40 PLOT 0,175-I*9: DRAW 72,0
50 NEXT I
60 GO SUB 1050
70 LET I$=INKEY$: IF I$="" THEN GO TO 70
80 GO SUB 1050
90 LET C=CODE(I$)
100 IF C=11 AND Y>0 THEN LET Y=Y-1
110 IF C=10 AND Y<7 THEN LET Y=Y+1
120 IF C=9 AND X<7 THEN LET X=X+1
130 IF C=8 AND X>0 THEN LET X=X-1
140 IF C=32 THEN GO SUB 1150
150 GO TO 60
1000 FOR I=1 TO 6
1010 PLOT OVER 1;2+9*X,174-9*Y-I
1020 DRAW OVER 1;5,0
1030 NEXT I
1040 RETURN
1050 PLOT OVER 1;1+9*X,174-9*Y
1060 DRAW OVER 1;7,0
1070 DRAW OVER 1;0,-7
1080 DRAW OVER 1;-7,0
1090 DRAW OVER 1;0,7
1110 PLOT OVER 1;1+9*X,174-9*Y
1120 RETURN
1150 GO SUB 1000
1160 LET A=8-X: LET B=Y+1: LET C=0
1170 LET S(A,B)=1-S(A,B)
1180 FOR I=0 TO 7
1190 IF S(1+I,B) THEN LET C=C+2^I
1200 NEXT I
1210 POKE 65368+Y,C
1220 PRINT AT 1,10; CHR$(144)
1230 PRINT AT 1+Y,12; PEEK(65368+Y); " "
1240 RETURN