64'er 1990 November/64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64/geisterfahrer

Commodore BASIC | 1990-01-01 | 1.0 KB | 21 lines

1 print"[147][158] geister-fahrer [146]":print"von joh. pollmeier":fori=0to1000:next
2 v=53248:si=54272:poke53280,11:poke53281,11:print"[147]":poke2041,13:poke2042,13
3 forg=0to24:print" [166][166][166]                       [166][166][166] ":next:forn=0to62:readq
4 poke832+n,q:next:pokev+21,6:pokev+41,6:pokev+5,90:pokev+30,0:pokev+31,0:s=20
5 i=int(8*rnd(1)):y=int(215-160*rnd(1)):r=int(15*rnd(1)):pokev+40,i
6 forx=0to230stepr:pokev+3,230-x:pokev+2,y:poke56322,224:k=peek(56320)
7 poke56322,255:if(kand4)=0thens=s-1:goto9
8 if(kand8)=0thens=s+1:goto9
9 pokev+4,s*8:ifpeek(v+30)=6thengosub15:goto12
10 ifpeek(v+31)=4thengosub15:goto12
11 nextx:p=p+1:goto5
12 pokev+21,0:print"[150][147]beim [158]"p"[146][150]. auto totalschaden"
13 print"nochmal? [158] j [146]":inputc$:ifc$="j"thenpoke53280,0:poke53281,0:run
14 print"[154]            auf wiedersehen [146]":poke53280,14:poke53281,6:end
15 fort=0to24:pokesi+t,0:next:pokesi+24,15:pokesi+5,9:pokesi+1,20:pokesi+4,128
16 ford=1to5:next:pokesi+4,129:f=1:w=1:forh=1to25
17 poke53280,f:poke53281,f:w=w*-1:f=f+w:next:poke53280,0:poke53281,0:return
18 data112,24,14,248,60,31,248,126,31,255,255,255,255,255,255,248,126,31,248
19 data126,31,112,255,14,0,231,0,0,195,0,0,195,0,0,195,0,0,231,0,112,255,14,248
20 data126,31,248,126,31,255,255,255,255,255,255,248,126,31,248,60,31,112,24,14