Brick Buster
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
People
No people associated with this content.