home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64misc / gdump / SIMON.GDUMP (.txt) < prev   
Commodore BASIC  |  1989-05-26  |  219b  |  8 lines
  1. 1 IF A=1THENA=2: LOAD" GDUMP+MOVE",8,1
  2. 2 IF A=0 THEN A=1: GOTO 7
  3. 3 POKE 20491, 1  :POKE 20492, 4
  4. 4 POKE 20493, 1  :POKE 20487, 2  :SYS 21808
  5. 5 A=PEEK(53270): A=(A AND 16)/16
  6. 6 A=3-A: POKE 20494,A: SYS 20480: END
  7. 7 REM APPEND YOUR PROGRAM HERE
  8.