10 PRINT CHR$(147):POKE 53280,11:POKE 53281,0
20 PRINT "PIXEL PAINTER - CURSORS MOVE, SPACE DRAWS":PRINT "C=CLEAR  Q=QUIT":PRINT "PRESS ANY KEY"
30 GET A$:IF A$="" THEN 30
40 PRINT CHR$(147):X=20:Y=12:D=1
50 P=1024+Y*40+X:O=PEEK(P):POKE P,160:POKE 55296+Y*40+X,1
60 GET A$:IF A$="" THEN 60
70 POKE P,O:NX=X:NY=Y
80 IF ASC(A$)=145 AND Y>0 THEN NY=Y-1
90 IF ASC(A$)=17 AND Y<24 THEN NY=Y+1
100 IF ASC(A$)=157 AND X>0 THEN NX=X-1
110 IF ASC(A$)=29 AND X<39 THEN NX=X+1
120 IF A$=" " THEN POKE P,160:O=160:GOTO 150
130 IF A$="C" THEN PRINT CHR$(147):O=32:GOTO 50
140 IF A$="Q" THEN 180
150 X=NX:Y=NY:GOTO 50
180 POKE 53280,14:POKE 53281,6:PRINT CHR$(147):END