AstroBallsTXCrazy Balloons by D Mearns & R Enright from ZX Computing Feb/Mar.1986 Y**NOTE** The balloon's position is not reset after finishing screens 1 & 2, so it's necessary to go back to the start & then back tothe finish again to complete screens 2 & 3. I don't know if this was intentional, or just anerror in the version of the program sent in, so I've just left it as it is. [JimG] yscreen=1:sc=0:This was "screen=4" in thelisting, so it started on the last screen ... [JimG] 23658j\,8  9990' 9000(# 23658j\,8 0x,y;3;"":s$="y".008zn,20 pause 0x=10 y=6gold=10 3700t #="M"Ŧ="0"1:0 (x,y;3;"." 2="5"Ŧ="O"100d <="6"Ŧ="A"200 F="7"Ŧ="Q"300, P="8"Ŧ="P"400 Z!(d+4)*100d-400 d`(x,y-1)=6x,y-1;" ":sc=sc+10 :.5,20:gold=gold+1 i/sc=sc+1:(x,y-1)" "3800 n"d=1:y=y-1:20 `(x+1,y)=6x+1,y;" ":sc=sc+10 :.5,20:gold=gold+1 /sc=sc+1:(x+1,y)" "3800 }d=2:x=x+1:20:I've removed a super- fluous "LET sc=sc+1" from this line. [JimG] ,`(x-1,y)=6x-1,y;" ":sc=sc+10 :.5,20:gold=gold+1 1/sc=sc+1:(x-1,y)" "3800 6"d=3:x=x-1:20 `(x,y+1)=6x,y+1;" ":sc=sc+10 :.5,20:gold=gold+1 /sc=sc+1:(x,y+1)" "3800 "d=4:y=y+1:20  d=8 0::7:0 ;f=122:"********************************":f x=11 :y=1 a=(*3)+1 x,y;2;"." a*100d+2000 4 y=y+1 9y>302500 > 2020  x=x+1 x>20x=20  2020  x=x-1 x<1x=1  2020 x=11 :y=1 x,y;3;"" pause ="0"Ŧ="M"3000 x,y;" " .008zn,20 ="5"Ŧ="O"2900T ="6"Ŧ="A"2600( ="7"Ŧ="Q"2700 ="8"Ŧ="P"2800 d*100d+2000 (+d=6:(x+1,y)="*"3800 -)(x+1,y)="."sc=sc+(*10 ) 2x=x+1:2510 +d=7:(x-1,y)="*"3800 )(x-1,y)="."sc=sc+(*10 ) x=x-1:2510 +d=8:(x,y+1)="*"3800 )(x,y+1)="."sc=sc+(*10 ) y=y+1:2510 T+d=9 :(x,y-1)="*"3800 Y)(x,y-1)="."sc=sc+(*10 ) ^y=y-1:2510 Rf=021:g=031:(f,g)="."1:0:2520 g:f tf0,0;:f=122:a=(*6)+1:a;"********************************" ~f }2:6:8,10 ;1;"WELL DONE !!";16,11 ;"SCORE:";sc:502:screen=screen+1 Sscreen>4screen=1:pause=pause-5:pause<1pause=1 9100#:20 ]2:6:7,9 ;1;"YOU CRASHED !!";14,12 ;"SCORE:";sc f=1200:f 621,0;" PRESS ANY KEY FOR ANOTHER GAME " =""3820  -gold=10 :screen>1gold=0 @6:2,0;"Stage 1-Guide the balloon () round the course while avoiding the deadly asteroids (*) and your own trail (.)." Jr'"Stage 2-As stage 1,but you must eat all the gold bars () to pass through the gate." TD'"Stage 3-As above, but more asteroids have moved in" ^'"Stage 4-Negotiate your way along the twisting passage. Collect all the crystals (.)to pass.Press pause when completed." h1:0 r5:2,0;" UP......7 or Q DOWN....6 or A " |" LEFT....5 or O RIGHT...8 or P PAUSE...0 or M " :f=19 :" ":f 1:0 #(7:0:0::9 ;4;"CRAZY BALLOONS";9 ;"":21,0;"Derek Mearns & Robert Enright" #2f=040(:f #4H3,0;"Do you want instructions ?":="y"Ŧ="Y"8000@ #6="n"Ŧ="N"9018:# #8 90124# #:f=120:f #9 9060d# #n%pause=(9 -pa)*10 +1 #;:7:0::0:screen>32000 #d"********************************** ************* ******** ** * ******" #d"* ****** * *** ** * ******** *** **** * *** **** ******* **" #d"*** * *** ***** * * * *** * *************** * *" #"* *";2;"";7;" **** ********* ** **";2;" ";7;" * * ** ** * ****** *" #d"* ** ** ***** * ***** ** ** ****** ********* ** **** **** * **** *" #d"* ** * **** ** ***** * * ******* *** *** * * *********** *** *" #Ҕ"** * ************ *** **";2;" ";7;"** ************** **";2;"";7;"*** **************** *" #$"********************************" #gold=10 #6:screen>111 ,1;"";1,6;"";2,16;"";7,17;"";6,14;"";12 ,11 ;"";9 ,16;"";10 ,25;"";17,5;"";11 ,5;"":gold=0 #4:screen=310 ,1;"*";2,17;"*";3,19;"*";6,19;"*";3,2;"*";3,11 ;"*";3,28;"*" $screen>25,29;"*";7,26;"*";12 ,22;"*";10 ,26;"*";15,13 ;"*";18,8;"*";13 ,5;"*" & '<f=144145:g=07:a:f+g,a:g:f ' d=3 ' x=19:y=2 ' '16,568,124|,568,84T,68D,68D,124|,0,0,0,60<,126~,255,0,0