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