Paint Brush
1 LET A=210
2 LET A$="\@@"
3 FOR I=1 TO 704
4 PRINT ".";
5 NEXT I
6 POKE PEEK 16396+PEEK 16397*256+A,0
7 POKE PEEK 16396+PEEK 16397*256+A,CODE A$
8 IF INKEY$="" THEN GOTO 6
9 LET B$=INKEY$
10 LET A=A+(1 AND B$="D")+(32 AND B$="Z")+(33 AND B$="X")+(34 AND B$="C")-(1 AND B$="A")-(32 AND B$="E")-(33 AND B$="W")-(34 AND B$="Q")
11 IF B$="S" THEN INPUT A$
12 IF B$="K" THEN GOTO 14
13 GOTO 6
14 INPUT Z$
15 SAVE Z$
16 GOTO 6
People
No people associated with this content.