Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

Source Code

   1 REM  itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\FE



Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
E\AC\FE\C8\FE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
E

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C\AD\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"FE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
D\AD

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C\CDE\FE\CDAA\AC\FEE\ACE\AC\B4\CD\E0\CD\CD\E0\CD

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\AA

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\E5\C5B\DB\FE\FEB\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
D

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
A\FE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
F\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
D\CD

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\CDA\AD\FE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
FE\FE\B4

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
AE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
D\ADE\AC

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
E\FE\B4

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
CE\AC\D9\C1\C5\D9

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\ECA\AD\FE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
D

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
FE\FE\B4

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
AE

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C\ADE\AC\C1\E1\C9\D5\C5

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
A

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
C\C5

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\C1

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
\C1\D1\C9\F8\E5

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
A

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
CEC\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
B\F2\E1\C9\C5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top

Brickbuster

Date: 198x
Type: Program
Platform(s): TS 1000

Breakout game.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Brickbuster

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

People

No people associated with this content.

Scroll to Top
B\B1\FB\C1\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58358 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B 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 \n1000 REM BAORD RUTEEN STARTS 16802

People

No people associated with this content.

Scroll to Top