0  DIM S(255)
1  PRINT "SIMON SEZ - Press a big colorful button to play": GOTO 775
2  GR : PRINT "SIMON SEZ"
3  PRINT "by Kevin Savetz - kansasfest 2017"
5 LEVEL = 1
6 BTNS = 4
15  FOR Z = 0 TO 255
20 S(Z) =  INT( RND(1) *BTNS) +1
25  NEXT Z
30  REM  SOUND ROUTINE from http://eightbitsoundandfury.ld8.org/programming.html
33  RESTORE 
35  FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
40  DATA  173,48,192,136,208,5,206,1,3,240,9 
45  DATA  202,208,245,174,0,3,76,2,3,96
50  POKE 769,60
100  REM  Show the pattern to memorize
101  PRINT "Watch the pattern...";
102  FOR Z = 1 TO 500 -LEVEL: NEXT Z
110  FOR COUNT = 1 TO LEVEL
111 A = S(COUNT)
120  ON A GOSUB 2000,2100,2200,2300
600  FOR Z = 1 TO 50: NEXT Z
650  NEXT COUNT
690  PRINT "Now copy it."
699  REM  Wait for player to enter the pattern
700  FOR COUNT = 1 TO LEVEL
710  IF  PDL(0) >0  AND  PDL(1) >0  AND  PDL(2) >0  AND  PDL(3) >0  THEN 710
715 PP =  PDL(S(COUNT) -1)
720  IF PP = 0  THEN 900
730  REM  PRESSED WRONG BUTTON
740  PRINT "WRONG!"
750  PRINT "You remembered ";LEVEL -1
760  POKE 768,255: POKE 769,200
765  CALL 770
770  PRINT "Press a button to play again"
775  IF  PDL(0) >0  AND  PDL(1) >0  AND  PDL(2) >0  AND  PDL(3) >0  THEN 775
780  GOTO 2
900  REM  PRESSED RIGHT BUTTON
920  ON S(COUNT) GOSUB 2000,2100,2200,2300
930  NEXT COUNT
940  PRINT "YOU REMEMBERED ";LEVEL;". NOW ";LEVEL +1
945 LEVEL = LEVEL +1: GOTO 100
2000  COLOR= 6
2010 Y1 = 0:Y2 = 19:X1 = 0:X2 = 19
2020  POKE 768,128
2030  GOSUB 3000
2099  RETURN 
2100  COLOR= 3
2110 Y1 = 0:Y2 = 19:X1 = 20:X2 = 39
2120  POKE 768,102
2130  GOSUB 3000
2199  RETURN 
2200  COLOR= 9
2210 Y1 = 20:Y2 = 39:X1 = 0:X2 = 19
2220  POKE 768,85
2230  GOSUB 3000
2299  RETURN 
2300  COLOR= 12
2310 Y1 = 20:Y2 = 39:X1 = 20:X2 = 39
2320  POKE 768,64
2330  GOSUB 3000
2399  RETURN 
2999  REM  Light up color quadrant & play sound
3000  FOR Y = Y1 TO Y2
3010  HLIN X1,X2 AT Y
3020  NEXT Y
3030  POKE 769,60
3040  CALL 770
3060  COLOR= 0
3070  FOR Y = Y1 TO Y2
3080  HLIN X1,X2 AT Y
3090  NEXT Y
3999  RETURN 
5000  REM  This game was built for custom button controllers made from these:
5005  REM  http://amzn.to/2tiKqDi
5010  REM  PDL(0)=BLUE BUTTON
5011  REM  PDL(1)=MAGENTA
5012  REM  PDL(2)=ORANGE
5013  REM  PDL(3)=GREEN