Doodle

    1 REM doodle---by John Riley
    2 PRINT : PRINT : PRINT "This is a drawing program aimed at small children.  They like   the colors and beeps.  So do I!"
    3 PRINT : PRINT "Use a joystick in the left port.You clear the screen by pushing the FIRE button.  If you hook upa 2040 printer, you can easily  teach a child to make copies of the screen by BREAKing into the program, then pushing <Z> and   <ENTER>.  <RUN> will then fire  the program up again."
    4 PRINT : PRINT : PRINT "Press any key to start......"
    5 IF INKEY$="" THEN GO TO 5
   10 INK 0: PAPER 7: CLS 
   50 FOR q=1 TO 704: PRINT "█";: NEXT q
  110 LET x=5: LET y=5
  120 LET s=4
  130 GO TO 450
  210 IF INKEY$=" " THEN GO TO 210
  220 LET xo=x: LET yo=y
  230 IF STICK(1,1)=4 THEN LET x=x-s: BEEP .008,1
  235 IF STICK(1,1)=5 THEN LET x=x-s: LET y=y+s: BEEP .011,2
  237 IF STICK(1,1)=6 THEN LET x=x-s: LET y=y-s: BEEP .012,5
  240 IF STICK(1,1)=2 THEN LET y=y-s: BEEP .007,3
  245 IF STICK(1,1)=10 THEN LET y=y-s: LET x=x+s: BEEP .013,1
  250 IF STICK(1,1)=1 THEN LET y=y+s: BEEP .005,3
  255 IF STICK(1,1)=9 THEN LET y=y+s: LET x=x+s: BEEP .014,6
  260 IF STICK(1,1)=8 THEN LET x=x+s: BEEP .010,6
  270 IF STICK(2,1)=1 THEN GO TO 10
  310 IF x<5 THEN LET x=5
  320 IF x>250 THEN LET x=250
  330 IF y<5 THEN LET y=5
  340 IF y>170 THEN LET y=170
  410 PLOT INVERSE 1;xo-2,yo
  420 DRAW INVERSE 1;4,0
  430 PLOT INVERSE 1;xo,yo-2
  440 DRAW INVERSE 1;0,4
  460 INK (RND*7)+1: PLOT x-2,y
  470 DRAW 4,0
  480 PLOT x,y-2
  490 DRAW 0,4
  510 GO TO 210