Brick Buster

Gallery

Source Code

   0 REM \11\10\16\01\0A\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\05\0D\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\80\CD\E0\40\CD\82\41\CD\E0\40\CD\82\41\36\00\18\AA\00\00\E5\C5\42\4B\DB\04\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\80\20\0A\3E\0D\32\AD\40\3E\05\32\AC\40\06\02\23\7E\FE\80\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\80\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\09\0B\78\B1\20\FB\C1\C9\24\25\1C
   5 LET DISP=PEEK 16396+256*PEEK 16397
  10 LET BEST=0
  15 CLS 
  20 PRINT "ENTER SPEED 1 TO 9 (1=FASTEST)"
  25 PRINT AT 3,6;"<=5....8=> S=SERVE"
  30 INPUT I
  40 IF I<1 OR I>9 THEN GOTO 30
  50 POKE 16773,I
  60 CLS 
  70 PRINT "\ .0000\..\..\..\..\..BRICK BUSTER\..\..\..\..\..\..\..\..\..\. "
  80 FOR F=1 TO 20
  90 PRINT AT F,0;"\ :";TAB 31;"\: "
 100 NEXT F
 110 FOR F=1 TO 7
 120 PRINT AT F,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
 130 NEXT F
 135 LET B=5
 136 PRINT AT 0,30;B
 140 FOR F=5 TO 25 STEP 5
 150 POKE 16556,5
 160 POKE 16518,F
 170 IF INKEY$<>"S" THEN GOTO 170
 175 LET B=B-1
 176 PRINT AT 0,30;B
 180 RAND USR 16514
 190 PRINT AT 21,0;"                               "
 200 NEXT F
 210 PRINT AT 0,10;"\..GAME  OVER\.."
 220 LET SCORE=0
 230 FOR R=1 TO 4
 240 LET SCORE=SCORE+(PEEK (DISP+R+1)-28)*10**(4-R)
 250 NEXT R
 260 IF SCORE>BEST THEN GOSUB 400
 270 PRINT AT 9,1;"      BEST SCORE IS ";BEST;AT 10,INT ((32-LEN Z$-3)/2);"BY ";Z$
 280 PRINT AT 12,4;"%P%R%E%S%S% %"%P%"% %T%O% %P%L%A%Y% %A%G%A%I%N"
 281 PRINT AT 0,10;"BRICK BUSTER"
 282 FOR Q=0 TO 30
 283 NEXT Q
 284 PRINT AT 12,4;"PRESS ""P"" TO PLAY AGAIN"
 285 PRINT AT 0,10;"\..GAME  OVER\.."
 286 FOR Q=0 TO 30
 287 NEXT Q
 290 IF INKEY$="P" THEN GOTO 15
 300 GOTO 280
 410 LET BEST=SCORE
 420 PRINT AT 2,2;"YOU NOW HAVE THE BEST SCORE"
 430 PRINT AT 4,1;"ENTER YOUR NAME (1-27 LETTERS)"
 440 INPUT Z$
 450 RETURN 
 500 SAVE "1010%0"
 510 RUN