Brickbuster

Gallery

Source Code

   1 REM \11\10\16\01\19\16\78\FE\02\20\07\3E\04\32\AC\40\18\03\FE\18\C8\79\FE\02\20\07\3E\0C\32\AD\40\18\09\FE\1F\20\05\3E\0D\32\AD\40\04\0C\CD\55\41\7E\FE\08\20\16\CD\6A\41\3A\AC\40\FE\05\20\07\3E\04\32\AC\40\18\05\3E\05\32\AC\40\36\B4\CD\E0\40\CD\82\41\CD\E0\40\CD\82\41\36\00\18\AA\00\00\E5\C5\42\4B\DB\FE\FE\3B\20\08\79\FE\1D\28\0D\0C\18\0A\FE\2F\20\06\79\FE\01\28\01\0D\CD\55\41\36\00\23\36\03\23\36\03\23\36\00\05\CD\55\41\3A\AD\40\FE\0C\20\0F\7E\FE\B4\20\0A\3E\0D\32\AD\40\3E\05\32\AC\40\06\02\23\7E\FE\B4\20\0C\3E\05\32\AC\40\D9\C1\06\14\C5\D9\00\10\EC\23\3A\AD\40\FE\0D\20\0F\7E\FE\B4\20\0A\3E\0C\32\AD\40\3E\05\32\AC\40\59\C1\E1\C9\D5\C5\2A\0C\40\C5\06\00\09\C1\11\21\00\10\03\C1\D1\C9\19\18\F8\E5\2A\0C\40\23\23\23\23\7E\3C\FE\26\28\03\77\18\05\36\1C\2B\18\F2\E1\C9\C5\01\00\02\0B\78\B1\20\FB\C1\C9\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B\1B
   2 REM E£RND7Q\..7\.'2Q\..7( CLS Q\. 77\.'\:'Q\ :7:2Q\##7$4 IF Q\: 77( LOAD )3 \.'$Q\ :;Q\: 77( RUN TAN TAN 
   4 SLOW 
   5 LET D=PEEK 16396+256*PEEK 16397
  10 LET BEST=0
  15 CLS 
  20 PRINT "ENTER SPEED 1 T0 9 ""1""=FASTEST."
  25 PRINT AT 2,6;"<< 5....8 >> S=SERVE"
  30 LET I=CODE INKEY$
  31 IF CODE INKEY$=118 THEN GOTO 30
  32 LET I=I-28
  40 IF I<1 OR I>9 THEN GOTO 30
  50 POKE 16773,I
  60 CLS 
 100 RAND USR 16802
 110 PRINT AT 0,0;"\ .0000"
 140 FOR F=5 TO 25 STEP 5
 150 POKE 16556,5
 160 POKE 16518,F
 169 PRINT AT 15,6;"PRESS ""S"" TO SERVE"
 170 IF INKEY$<>"S" THEN GOTO 169
 171 PRINT AT 15,6;"                     "
 180 RAND USR 16514
 190 PRINT AT 21,0;"                               "
 200 NEXT F
 210 PRINT AT 0,11;"GAME OVER"
 220 LET S$=CHR$ (PEEK (D+2))+CHR$ (PEEK (D+3))+CHR$ (PEEK (D+4))+CHR$ (PEEK (D+5))
 230 LET SCORE=VAL S$
 260 IF SCORE>BEST THEN GOSUB 400
 270 PRINT AT 10,1;"BEST SCORE IS ";BEST;" BY ";Z$
 280 PRINT AT 12,4;"%P%R%E%S%S% %"%P%"% %T%O% %P%L%A%Y% %A%G%A%I%N";AT 12,4;"PRESS ""P"" TO PLAY AGAIN"
 290 IF INKEY$="P" THEN GOTO 15
 300 GOTO 280
 400 CLS 
 410 LET BEST=SCORE
 420 PRINT AT 2,2;"YOU NOW HAVE THE BEST SCORE"
 430 PRINT AT 4,1;"ENTER YOUR NAME (1-9 LETTERS)"
 435 PRINT AT 6,1;"LAST SKILL LEVEL PLAYED ";I
 440 INPUT Z$
 450 RETURN 
 500 SAVE "BRICKBUSTE%R"
 510 RUN 
1000 REM BAORD RUTEEN STARTS 16802