08 – Bombardiere
Apparso da pagina 51 fino a pagina 56 de “Il libro dei giochi del Commodore 64”
Il listato pubblicato
Il programma
Il nostro listato digitato
Qui di seguito trovate il codice da copiare sul programma CBM prg Studio Il codice originale é stato modificato affinchè possa essere letto da CBM prg Studio. I caratteri speciali PETSCII (Screen Codes) presenti nel listato originale, sono stati singolarmente sostituiti da quelli standard utilizzati da CBM prg Studio. Attenzione – Grazie alla segnalazione di più utenti, i caratteri “<” e “>” potrebbero venir sostituiti dai rispettivi encoding html “<” e “>” . Qualora li trovaste, sostituite manualmente questi valori direttamente su CBM prg Studio, altrimenti il programma non funzionerà. Scusate per l’inconveniente tecnico.
10 rem **bombardiere**
20 print"{clear}":t=0:u=1:z=0:v=53248:g=1024:h=55296:b=0:f=0:y=0
30 gb=g+852:hb=h+852:ff=80:gs=g+879:gt=g+961:gf=g+80:hf=h+80:bh%=0
40 forj=12288to12323:readx:pokej,x:next
50 forj=12324to12350:pokej,0:next
60 forj=12544to12617:readx:pokej,x:next
70 poke53270,peek(53270)and247:poke649,1:poke52,48:poke56,48
80 s=54272:forj=0to4:pokes+j,0:next
90 y=130:fb=0:bt=0:bd=0
100 tt=0:bg=0:a$=""
110 input"{clear}{white}{down*2}{right*2}livello di gioco (1-10)";l$
120 l=val(l$):ifl<1orl>10then110
130 pokes+24,47:pokes,12:pokes+1,1:pokes+6,143:pokes+21,7:pokes+23,1:pokes+17,1
140 pokes+4,129:pokes+14,88:pokes+15,115:pokes+20,240
150 print"{clear}":poke53280,0:poke53281,6
160 forj=0to1023:pokeh+j,z:next:pokeh+961,u
170 forj=1to38:pokeg+880+j,102:next
180 poke2040,192:pokev+39,0
190 pokev,104:pokev+1,y:pokev+21,1
200 ti$="000000":poke650,128::l=l/20
210 e=rnd(u):x=peek(v+31)
220 pokehb,z
230 ife.95andfb=zthenb=101:fb=u:tt=tt+u
280 ifb/10=int(b/10)thenpokes+18,65:pokegt,b/10+47
290 pokes+18,64:iffb=uthenb=b-u
300 ifb=zthenfb=z
310 geta$:ifa$=""then380
320 ifa$=chr$(134)andbg=zthenbh%=210-y:bg=u:bd=bd+u:pokes+20,248:goto370
330 ifa$=chr$(135)theny=y-8
340 ifa$=chr$(136)theny=y+8
350 ify206thenprint"{reverse on}hai volato troppo basso!!":goto670
660 print"{reverse on}sei stato abbattuto!!"
670 print"{down*2}{right*3}bombe sganciate =";bd
680 print"{down*2}{right*3}obiettivi colpiti =";bt
690 print"{down*2}{right*3}colpito dopo";tt;" tentativi"
700 print"{down*2}{right*3}tempo di volo =";int(ti/60);" secondi"
710 print"{down*5} batti spazio per un altro volo"
720 get a$:ifa$<>" "then720
730 goto80
1000 pokes+7,25:pokes+8,1:pokes+12,15:pokes+13,240
1010 pokes+11,129:pokes+11,128
1020 return
2000 pokehb,u:pokegb,214:poke53280,u
2010 gosub1000:gosub1000
2020 bt=bt+u
2030 pokehb,z:pokegb,32:poke53280,z
2040 return
3000 data0,4,0,0,6,0,0,7,0,128,7,128,192,7,192,224,7,224
3010 data224,7,240,224,7,248,240,7,252,255,255,255,255,255,255,0,248,12
4000 data169,0,133,251,169,4,133,252,160,1,169,22,170,177,251
4010 data136,145,251,202,240,12,24,152,105,41,168,144,241
4020 data230,252,76,13,49,230,251,169,40,197,251,208,219,96
4030 data160,0,169,4,133,254,169,119,133,253,162,20,169,32,145,253
4040 data202,208,1,96,24,152,105,40,168,144,241,230,254,76,54,49
Il file .PRG del listato
Provalo direttamente sull’emulatore! Clicca sul pulsante per avviare!
Downloading…