1 B=5:S=0
5 POKE253,219:POKE254,195:POKE2,0:SYS50096
10 PRINT"[147]BLOCK BUST"
20 PRINT"INSTRUCTIONS? (Y/N)"
30 GETA$:IFA$=""THEN30
40 IFA$<>"Y"ANDA$<>"N"THEN30
50 IFA$="N"THEN131
60 PRINT"[147]THE OBJECT OF BLOCK BUST IS TO BUST AS"
70 PRINT"MANY BLOCKS AS POSSIBLE. YOU HAVE TO"
80 PRINT"KEEP THE BALL IN MOTION BY MOVING YOUR"
90 PRINT"PADDLE UNDERNEATH IT SO IT CAN BOUNCE"
100 PRINT"OFF. YOU HAVE 5 BALLS PER GAME."
105 PRINT"USE JOYSTICK PORT 2."
110 PRINT"GOOD LUCK!"
120 PRINT"PRESS SPACE[146] TO PLAY"
130 POKE198,0:WAIT197,32
131 INPUT"[147]SPEED (1-255),1=FASTEST";L
132 POKE49392,L:POKE50198,0
140 POKE53280,13:POKE53281,0:PRINT"[147]":POKE53281,1:SYS49165
141 PRINT"[154][166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
142 PRINT" [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166]"
143 PRINT"[166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
144 PRINT" [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166]"
145 PRINT"[166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] "
146 POKE50179,22:POKE50178,12
147 POKE50176,1:POKE50177,1
148 FORA=56216TO56254:POKEA,10:NEXT
150 SYS49421
151 IFPEEK(50198)=95THEN1000
160 POKE1024+PEEK(50178)*40+PEEK(50179),32
164 B=B-1:IFB=0THEN190
165 PRINT"[144]PRESS SPACE[146] FOR NEXT BALL"
166 POKE198,0
167 GETA$:IFA$<>" "THEN167
168 PRINT"[145]                                 "
180 GOTO146
190 POKE1024+PEEK(50178)*40+PEEK(50179),32
200 S=S+PEEK(50198)
205 PRINT"[147]SCORE:"S
210 PRINT"PLAY AGAIN? (Y/N)"
220 GETA$:IFA$=""THEN220
230 IFA$<>"Y"ANDA$<>"N"THEN220
240 IFA$="N"THENPRINT"[147]":END
250 RUN
1000 PRINT"[147]YOU WON AT SPEED"L
1005 S=S+PEEK(50198)
1010 PRINT"PRESS SPACE[146] FOR NEXT SPEED: SPEED"L-1
1020 POKE198,0:WAIT197,32:L=L-1:GOTO132