Bomber

10 vo=54296:pi=54273
20 de=54277:ga=54276
30 ba=53281:br=53280
40 pokevo,15:pokede,15
50 pokeba,14:pokebr,5
60 print"{clear}" , "            bomber"
70 rem visualizza grattacieli
80 sc=1024:rem indirizzo schermo
90 for co = 0 to 39
100 bu=int(rnd(0)*7)+18
110 bl=int(rnd(1)*2)*88+162
120 for ro = bu to 24
130 pl=sc+ro*40+co
140 poke pl, bl
150 poke pl+54272,9
160 forf=1984 to 2023:pokef,160:pokef+54272,11 : next
170 rem movimento aeroplano
180 ro=5: co=0
190 pl=sc+ro*40+co
200 poke pl-1,32:poke pl,32:pl=pl+1
210 ke=peek(197):if ke=4 then pl=pl-40
220 if pl<1024 then pl=pl+40
230 if ke=5 then pl=pl+40
240 lo=lo+1:rem loop count
250 if peek(pl)<>32 goto480
260 poke pl,91:poke pl-1,109
270 poke pl+54272,0:pokepl+54272-1,0
280 if peek(pl+40)<>160goto330
290 ta=ta+1:rem taxi count
300 for f=1 to 20*ta:next
310 if ta<15 goto330
320 print"landed safely!": goto 680
330 rem bomb
340 if bo=0 goto 430
350 if dr then bp=pl:dr=0:rem bp=bomb posn
360 pokebp,32
370 bp=bp+40
380 wh=wh-2:poke pi,wh
390 if peek(bp)=162 or peek(bp)=250 thengosub620
400 ifpeek(bp)=160thenbo=0: pokega,32:pokede,15
410 if bo=0 then poke ba,14:poke br,5:goto 430
420 poke bp,46:poke bp+54272,0
430 rem check controls
440 ke=peek(197)
450 if ke=3 and bo=0 then dr=1:bo=1
460 if dr then wh=130:pokepi,wh:pokega,33
470 goto 200
480 rem crash
490 if pl<1500 then 260
500 poke pl,42:poke pl+54272,0:rem explode symbol
510 gosub530
520 print "  crashed!" : goto740
530 rem boom
540 pokede,11:pokepi,3:pokega,129
550 forf=1to8
560 pokebr,0:pokeba,2
570 forq=ito50:next
580 pokebr,5:pokeba,14
590 forq=1to50:next
600 nextf:pokega,128
610 return
620 rem bomb hit
630 pokede,11:pokepi,4:pokega,129
640 pokebr,5:pokeba,14
650 forq=1to5:next
660 pokebr,4:pokeba,7
670 return
680 rem finish
690 hi=peek(830): print"high score="hi
700 pa=int(lo/40):rem 1 pass = 40 loops
710 gosub770
720 print" your score="(40-pa)+le
730 if(40-pa)+le>hi then hi=(40-pa)+le:poke830,hi
740 print"press m for more"
750 get a$:ifa$<>"m"goto750
760 run
770 for f=1944 to 1983
780 if peek(f)<>32 then le=le+1
790 next:le=le-2:return