Break-Out VBreakout by David Spencer from ZX Computing Feb/Mar'83 0:hs=0:n$=""  2000:21,2; =19,5;1;1;"PRESS ANY KEY TO PLAY" &f=11600@:""15 f:3000 ).5,0:fp=0:j=0 9000(#:1000 c**KEYBOARD SCAN** dfp=15000 i"z"Ʀ"m" n21,p;" " x="z"p>1p=p-1 ="m"p<29p=p+1 21,p;2;"": **END OF WALL** "100d::fp=15 Lw=w+1:4,4;5;"wall no, ";w-1;" destroyed." #f=010 :.2~L,f:f w=6230 g502:6,4;4;7;"Now go onto wall ";w:150:9007/#:1000 g6,3;4;0;1;"WELL DONE, ";0;"you have destroyed all the walls" &9 ,4;"Your score was ";s **HIGH. SCORE ROUTINE** eshs11 ,0;"And you beat the highest score!":"ENTER YOUR NAME ";n$:n$=""270 hs=s:600X +**ALL LIVES LOST** ,%f=07:f::20:f 6=4,11 ;1;"GAME OVER":502:240 X-f=15-5-1:.3,f:f b200:5 **MAIN BALL ROUTINE**  y,x;"o" fp=15050 8fl=1fp=0.05|L,a*4:fl=0 U100d:y=y+dy:x=x+dx:x=1x=30dx=-dx:y-dy,x+dx;" ":1009 $ft=1ft=0:1009 3y-dy,x-dx;" ":fa=1140:fa=0 fp=15100 "y>6y<211000 y<71050 **HIT BAT ROUTINE** x=px=p+1dy=-dy:x=x+1-(2*(x29)):y=y-1:fa=1:.1}L*(fp=0),0:1005  ""1035  N.75@*(fp=0),30:l=l-1:502:l=0300, *21,p;" ":9050Z#:1000 **HIT WALL ROUTINE** La=(y,x)-480-j:c=(y,x):a=1y>1c95_1000 *a=1c95_dy=-dy:1000 .c=95_1100L 3 fl=1 8Xs=s+(((a-2)*10 )*w):h=h+1:0,9 ;s:h=60<200 Bdy=-dy:1000 LDx=x+(2*(>.5)-1):dy=-dy:ft=1:1005 **1st EXP. PAGE** 7::0 Y2,10 ;6;"BREAK-OUT";2,9 ;2;1;"___________" 4,0;6; " The object of the game is to hit bricks out of the wall bybouncing the ball off the bat. " 9 ,0;4; " When you have knocked out 60bricks a new wall appears. The game ends after 5 walls,or when you run out of lives. " b15,0;4; " You move the bat left with theZ key,and right with the M. "  **2nd EXP. PAGE** [:2,10 ;6;"BREAK-OUT";2,9 ;2;1;"___________" <4,1;4;" You start with 5 lives " f6,1;5;" The highest score is ";hs',"by ";n$;".";7,0;7;" " j9 ,1;6;" On the first wall the scores ";10 ,1;6;"are as follows:-" 11 ,7;6;"10 for the bottom layer.";12 ,7;"20 for the middle layer.";13 ,7;"30 for the top layer. " p15,1;3;" On the next wall the scores ";16,1;"are twice the above and so on." =19,5;1;1;"PRESS ANY KEY TO PLAY" =21,2;3;" July 1982, David M. Spencer." &f=11600@:""15 f **DEMO. GAME** Gj=8:fp=1:p1=0:dp=0:9000(#:1000 2x<15dx=1p1=x+14:4140,  3x>15dx=-1pl=x-14:4140, @dx=1yt=7+(32 -x):p1=30-(22-yt) +dx=-1yt=7+x:p1=22-yt ,p1=0p1=1 1p130p1=29 6p1=pdp=0: @p>p1dp=-1: Jdp=1: **AUTO BAT MOVE** ""15 p=p1p+1=p1 %21,p;" ":p=p+dp:140 &dy=-1p1=15:41506  "y=7dy=14100  #'**INIT ROUTINE** #(!s=0:w=1:l=5 #/ h=0 #20:6:1: #7fp=17: #<@f=021:0;f,0;"";f,31;"":f #F1f=13:1,f*7;"____":f #Puf=130:5;4,f;143;4;5,f;143;3;6,f;143:f #Z:0,3;"Score ";s;0,22;"Lives ";l #_fp=19080x# #dG18,5;1;0;5;"PRESS ANY KEY TO START" #n>0:18,5;6;" " #xp=15:x=(*28)+2:y=20:dx=-1+(2*(>.5)):dy=-1:fa=0:fl=0:ft=0:140 '"breakout"1