home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / nightracer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  787b  |  21 lines
  1. 10 print"[147]":poke53280,0:poke53281,0:v=53248:pokev+21,1:poke2040,13:poke646,1:x=150
  2. 20 forn=0to62:readq:poke832+n,q:next:y=30:pokev+31,0:ti$="000000":input"speed";s
  3. 30 a=peek(56320):r=int(30*rnd(0)):printtab(r)"*"
  4. 40 fort=1tos:next:if(a and 1)=0theny=y-10
  5. 50 if(a and 2)=0theny=y+10
  6. 60 if(a and 4)=0thenx=x-10
  7. 70 if(a and 8)=0thenx=x+10
  8. 80 ifx>250thenx=250
  9. 90 ifx<40thenx=40
  10. 100 ify<40theny=40
  11. 110 ify>230theny=230
  12. 120 if peek(v+31)>0then140
  13. 130 pokev,x:pokev+1,y:goto30
  14. 140 a$=ti$:a=val(a$): fort=1to30:s=int(16*rnd(0)):poke53281,s:next:pokev+31,0
  15. 150 b=a*53:poke53281,0:print"[147]punkte:";b:pokev,150:pokev+1,150:ifb>hthenh=b
  16. 160 print"high-score:";h:print"weiter(j/n)?":geta$:ifa$=""then160
  17. 170 restore:ifa$="j"then10:end
  18. 180 data0,96,0,0,96,0,0,144,0,1,104,0,1,104,0,1,104,0,17,104,128,50,244,192
  19. 190 data53,154,192,59,253,192,53,154,224,110,247,96,91,109,160,187,109,208
  20. 200 data 95,111,160,110,151,96,213,10,176,154,5,144,228,2,112,192,0,48,0,0,0
  21.