Crasher

Source Code

    1 GO SUB 8010
   10 DIM i$(704): LET h=100: GO TO 230
   20 GO SUB 9500
   30 LET sc=0: LET r=10: LET c=12
   40 POKE 23692,12
   50 FOR s=0 TO 10
   60 LET rnd=INT (RND*2)
   70 LET r=r-(rnd=1 AND r>1)+(rnd=0 AND r<20)
   80 PRINT AT 16,c; BRIGHT (sc>4); PAPER 7; INK 2;"\a"
   90 PRINT AT 21,r; BRIGHT 1; INK 2; PAPER 4;"\b\c"; PAPER 7;TAB r+6; PAPER 4;"\b\c"
  100 PRINT 
  110 LET c=c+(INKEY$="8")-(INKEY$="5"): IF PEEK 23560=57 THEN GO TO 110
  115 POKE 23560,54
  120 IF SCREEN$ (16,c)<>" " THEN GO TO 200
  130 LET sc=sc+1
  140 BEEP .005,s
  150 NEXT s
  155 IF ATTR (16,c)<>122 THEN GO TO 200
  160 GO TO 40
  200 PRINT AT 16,c; FLASH 1; INK 0; PAPER 4;"\a"
  205 PRINT AT 10,10; INK 6; PAPER 2; FLASH 1;"You scored ";sc;AT 12,9;"High score:";h
  210 FOR n=10 TO 40 STEP .4: BEEP .001,n: NEXT n
  220 IF sc>h THEN GO SUB 500
  230 GO SUB 9500: PRINT AT 13,0; FLASH 1; INK 5; PAPER 1;"     Press '5' to play or '8' to                                  stop/re-start noise.Use '5' & '8' to move left or right          ";AT 1,10;"High score:";h
  235 PRINT AT 5,0; INK 2; PAPER 5;"      \:'\'' \:'\': \:'\': \:'\'' \: \ : \:'\'' \:'\':            \:   \:'\:' \:'\': \''\': \:'\': \:'\'' \:'\:'            \''\'' \' \'' \' \ ' \''\'' \' \ ' \''\'' \' \''      "           
  240 POKE 23560,0: FOR n=3 TO 6 STEP .5: BEEP .007,n: OUT 254,INT (RND*7): NEXT n
  241 IF PEEK 23560=56 THEN PAUSE 0: GO TO 245
  242 IF PEEK 23560=53 THEN GO TO 20
  243 GO TO 240
  245 POKE 23560,0
  247 IF PEEK 23560=53 THEN GO TO 20
  248 IF PEEK 23560=56 THEN GO TO 240
  249 GO TO 247
  500 GO SUB 9500: PRINT AT 10,1; FLASH 1; PAPER 2; INK 4;"         A high score!        "
  530 PRINT AT 12,5; PAPER 5; INK 3; FLASH 1;"The high score was:";h;AT 14,5;"The high score is :";sc;AT 16,10;"Press a key"
  540 RESTORE 9040: FOR n=1 TO 15: READ z: READ x: BEEP x,z: IF INKEY$="" THEN NEXT n: GO TO 510
  550 LET h=sc: RETURN 
 8010 FOR n=USR "a" TO USR "c"+7
 8020 READ a: POKE n,a
 8030 NEXT n
 8040 DATA 0,62,8,62,28,62,28,0
 8050 DATA 255,170,213,170,213,170,213,255
 8060 DATA 255,171,85,171,85,171,85,171,255
 8070 RETURN 
 9040 DATA 0,.3,0,.2,5,1.25
 9050 DATA 0,.3,5,.18,9,1.25
 9060 DATA 0,.3,5,.18,9,.4
 9070 DATA 0,.3,5,.18,9,.4
 9080 DATA 0,.3,5,.18,9,1.5
 9500 FLASH 0: BRIGHT 1: PAPER 7: INK 1: BORDER 0: PRINT AT 0,0; OVER 1;i$: BRIGHT 0: BORDER 0: CLS : POKE 23624,0
 9510 RETURN 
 9998 SAVE "crasher" LINE 9999