Breakout

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Breakout

Source Code

   1 PRINT "IN THIS GAME OF BREAKOUT, IN ORDER TO START PLAY,SET THE HIGH SCORE COUNTER BY ENTERING IN THE DIRECT MODE,(LET H=0,THEN GOTO 5).AFTER SETTING THE HIGH SCORE COUNTER,TO CONTINUE GOTO 5."
   2 PRINT AT 10,2;"YOUR BAT KEYS ARE 6 AND 7"
   3 PAUSE 700
   4 CLS 
   5 RAND 
   6 LET H=0
  10 LET T=0
  15 LET Z=0
  17 LET Q=0
  20 LET TB=0
  25 LET Q=Q+1
  30 LET R=265
  40 PRINT AT 1,0;"\..\..\..\..\..\..\..\..\..\..\..%B%R%E%A%K%O%U%T\..\..\..\..\..\..\..\..\..\..\..\.."
  50 PRINT AT 17,0;"\''\''\''\''\''\''\''\''\''\''\''%B%R%E%A%K%O%U%T\''\''\''\''\''\''\''\''\''\''\''\''"
  80 PRINT ,,"TOTAL 0    BALL NO ,"
  90 PRINT ,,"  HIGHEST SCORE ";H
 100 FOR I=2 TO 16
 110 PRINT AT I,13;"\'.\'.\'.\'.     \ :\ :\ : \':\':\':  \ :"
 120 NEXT I
 130 LET A=-1
 140 LET D=1
 150 LET X=11
 160 LET Y=INT (RND*10)+5
 165 LET P=PEEK 16396+PEEK 16397*256+1
 170 LET TB=TB+1
 180 GOTO (TB=6)*210+200
 200 POKE P+647,TB+28
 220 POKE R+P,0
 230 LET R=R+33*(INKEY$="6")-33*(INKEY$="7")
 240 POKE P+R,5
 250 POKE P+Y*33+X,0
 260 LET X=X+A
 270 LET Y=Y+D
 275 LET Z=P+Y*33+X
 280 LET N=PEEK Z
 290 POKE Z,28
 300 IF Y=2 OR Y=16 THEN LET D=-D
 310 IF N=5 OR X=30 THEN LET A=-A
 320 POKE P+R,0
 330 LET R=R+33*(INKEY$="6")-33*(INKEY$="7")
 340 POKE P+R,5
 350 GOTO (N<132)*30+360
 360 LET T=T+(136-N)*5
 370 PRINT AT 19,5;T
 380 LET A=-A
 390 GOTO (X>0)*90+130
 410 IF T>2000*Q THEN GOTO 20
 415 PRINT AT 10,3;"GAME OVER"
 420 IF T>H THEN LET H=T
 440 INPUT A$
 450 IF A$="N" THEN STOP 
 460 CLS 
 470 GOTO 10
 480 SAVE "1007%0"
 490 RUN 

People

No people associated with this content.

Scroll to Top