Balloon Rescue (C64) by Kevin Prosser

Weather is terrible, helicopters are grounded, roads are closed, you must carry urgently needed supplies to the mountain village. Use your balloon to carry those supplies. The clouds will indicate the direction and strength of the winds at each flight level. Avoid the snow flakes as they can snuff out the fire in your burners. Us the space bar to fire the burners of your balloon to climb and allow to cool off to descend. You can dump warm air from the envelope by using the D key but be careful, rapid descents can be hard to recover from. Land on the White platform to complete your mission. Bonus if you can return safely to the launch site.

 

Program description:

 

1 forx=0to128:poke832+x,0:poke12288+x,0:next:v=53248:print"S<.r.*RUr.R..<<x@xx":d(0)=50

Clear sprite data blocks. Print balloon sprite data to screen

2 print"@@@..@@@@@@x@@":k=rnd(0)*.1+.01:p=rnd(0)*6:q=rnd(0)*.06+.03:h=200:data83

2,13,3

Print Balloon color to screen. Build random wind profile

3 print"or.R@?r.PJ.+Rjr*@R@r*R":print"mnrAAAAAAR":d(1)=50:d(2)=70:d(3)=100:d(4)=130

Print Cloud data to screen, print sprite location data to screen, set variables

4 print"PrHRPrHRPFXDr bH P>R#r.R@[F  r.HR@u rPRcr.R@  fn   lagboooooo":fori=0to4

Print VIC II chip data to screen,

5 reada,b,c:forx=0tob:pokea+x*c,peek(i*40+1024+x):next:next:y=200:print"eS":d(5)

=150:data896,13,3

Read data for where to send screen data

6 forx=1984to2014:pokex,160:poke1024+rnd(0)*800,42:next:forx=1530to1533:pokex,160:next

Print screen, ground and random mines

7 gete$:h=h+2*(e$=" "ando<15)-(e$="d")+0.5:z=14+12*(y>h):pokev+32,6+4*(j>0):o=o-(j>0)

Get user input and adjust balloon temp and change border color if impact

8 y=y+(h-y)/3:fori=0to7:l=v+i*2:n=250-peek(l+1):m=k*n*sin(q*n-p)+d(i):data12352,12,1

Move the balloon vertically and then move all objects with the wind

9 d(i)=m+235*(m>255)-235*(m<20):pokel,d(i):next:j=1andpeek(v+31):ify<10theny=10

Continue with loop to move objects with wind, check for balloon to background collision, cap balloon height

10 pokev+40,z:pokev+1,y:pokev+3,y:data2040,7,1,53248,46,1:print"s    ....";o:ifj

=0ory<228goto7

Set internal color of balloon, move balloon vertically, check for collision with ground