Paint Brush

Source Code

   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