Color Plot

    7 CLS 
    8 LET b=5: LET c=0: LET i=0: LET p=9: LET x=127: LET y=87
    9 GO SUB 100
   10 IF STICK(1,1)=1 THEN LET y=y+1
   12 IF STICK(1,1)=2 THEN LET y=y-1
   14 IF STICK(1,1)=8 THEN LET x=x+1
   16 IF STICK(1,1)=4 THEN LET x=x-1
   18 IF STICK(1,1)=9 THEN LET y=y+1: IF STICK(1,1)=9 THEN LET x=x+1
   20 IF STICK(1,1)=10 THEN LET x=x+1: IF STICK(1,1)=10 THEN LET y=y-1
   22 IF STICK(1,1)=6 THEN LET y=y-1: IF STICK(1,1)=6 THEN LET x=x-1
   24 IF STICK(1,1)=5 THEN LET x=x-1: IF STICK(1,1)=5 THEN LET y=y+1
   26 IF INKEY$="6" THEN LET c=c-1: IF c<=1 THEN LET c=1
   28 IF INKEY$="7" THEN LET c=c+1: IF c>=80 THEN LET c=80
   30 IF INKEY$="6" OR INKEY$="7" THEN BEEP .125,(c-35)
   32 IF STICK(2,1)=1 THEN GO SUB 100
   34 IF INKEY$="b" THEN GO SUB 150
   36 IF INKEY$="e" THEN GO TO 96
   38 IF INKEY$="h" THEN CIRCLE x,y,c: BEEP .125,-23
   40 IF INKEY$="k" THEN GO SUB 70
   42 IF INKEY$="s" THEN GO SUB 200
   44 IF INKEY$="v" THEN GO TO 7
   46 IF INKEY$="c" THEN GO SUB 300
   48 IF y>=168 THEN LET y=168
   50 IF y<=0 THEN LET y=0
   52 IF x>=255 THEN LET x=255
   54 IF x<=0 THEN LET x=0
   56 IF STICK(1,2)=0 THEN GO TO 60
   58 BEEP .0007,49
   60 BORDER b: PAPER p: INK i
   62 IF i=10 THEN GO TO 10
   64 PLOT x,y: IF INKEY$="w" THEN DRAW x,y
   65 IF INKEY$="w" THEN BEEP .125,-47
   66 ON ERR GO TO 10
   68 GO TO 10
   69 STOP 
   70 PRINT AT 2,0;"Commands for color plot.": PRINT "COPY THEM DOWN!": PRINT 
   72 PRINT "b=border color"
   74 PRINT "c= copy": PRINT "e=exit"
   76 PRINT "h= circle "
   78 PRINT "s= save"
   80 PRINT "v= clear screen"
   82 PRINT "w= draw"
   84 PRINT "x= ink color": PRINT "   (or ink button on joystick)"
   86 PRINT "6= circle decrease": PRINT "7= circle increase"
   88 PRINT "Color 8= no plot": PRINT "**USE LEFT HAND JOYSTICK PORT**"
   89 BEEP .125,13
   90 RETURN 
   95 STOP 
   96 ON ERR RESET 
   97 BEEP .5,-23: BEEP .5,-35
   98 STOP 
  100 LET i=i+1: IF i=10 THEN LET i=0
  110 PRINT AT 0,0;"Ink Color:";i;"-Press k for commands": BEEP .125,49
  120 PAPER 9: INK i
  130 RETURN 
  149 STOP 
  150 LET b=b+1
  160 IF b>=8 THEN LET b=0
  170 BEEP .125,25
  180 BORDER b
  190 RETURN 
  199 STOP 
  200 FLASH 1: IF INKEY$="s" THEN PRINT AT 0,12;"   Enter name       ": FLASH 0
  205 DIM s$(10)
  210 INPUT s$
  220 IF s$="" THEN GO TO 210
  230 PRINT AT 0,12;"    Name: ";s$;" "
  240 SAVE s$SCREEN$ 
  250 GO TO 110
  299 STOP 
  300 FLASH 1: PRINT AT 0,12;"    Copying         "
  310 PAUSE 50
  320 COPY 
  330 FLASH 0: PRINT AT 0,12;"    Copy complete   "
  340 PAUSE 50
  350 GO TO 110
  399 STOP