home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 October / 64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64 / carcrash (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  1.2 KB  |  21 lines
  1. 1 print"[147]":v=53248:j=56320:pokev+32,0:pokev+33,0:poke2040,13:pokev+0,170:s=v+1024
  2. 2 pokev+1,120:pokev+28,1:pokev+37,6:pokev+38,12:pokev+39,7:m$(1)="[150][178][177][178][177][178][177][178]":l=1
  3. 3 r$="[159] ":restore:fora=0to63:readb:poke832+a,b:next:poke53265,23:so=v+21
  4. 4 a$=" carcrash ":gosub18:pokeso,1:waitj,16,16:pokev+1,0:a$="get  ready":gosub18
  5. 5 print"";:fora=1to24:printtab(9)r$tab(30)r$:next:print"";:fora=1to1000:next
  6. 6 fora=1to3:printtab(14)"            ":next:poke214,23:fora=0to120:pokev+1,a:next
  7. 7 pokev+31,0:c=40:sc=0:x=170:ti$="000000"
  8. 8 z=2+int(rnd(0)*7)+1:y=10+int(rnd(0)*(20-z+3)):fora=10-lto1step-1
  9. 9 printtab(9)r$tab(y)left$(m$(a),z)tab(30)r$:if(peek(j)and4)=0thenx=x-7
  10. 10 if(peek(j)and8)=0thenx=x+7:data240,160,240,242,168,240,250,170,240,250,170
  11. 11 pokev,x:ifpeek(v+31)>0thenpokes+1,20:pokes+5,9:pokes+24,15:pokes+4,128:goto14
  12. 12 next:sc=sc+2:ifint(ti/60)=candl<6thenc=c+40:l=l+1:pokev+32,l:goto8
  13. 13 goto8:data240,250,170,240,250,170,240,10,90,0,41,86,128,41,86,128,42,90,128
  14. 14 fora=1to10:next:pokes+4,129:pokes+5,8:fora=1to80:pokev+39,int(rnd(0)*15):next
  15. 15 forb=xto0step-2:pokev+0,b:next:sc=sc+int(ti/60):pokeso,0:ifsc>hithenhi=sc
  16. 16 a$="game  over":gosub18:printtab(13)"highscore:";hi
  17. 17 printtab(17)"score:";sc:printtab(15)"[158]press fire":waitj,16,16:goto1
  18. 18 print""tab(14)"[158][176][192][192][192][192][192][192][192][192][192][192][174]":printtab(14)"[221]"a$"[158][221]":printtab(14)"[173][192][192][192][192][192][192][192][192][192][192][189]":return
  19. 19 data42,90,128,10,170,0,10,170,0,242,168,240,242,168,240,250,170,240,242,168
  20. 20 data240,242,168,240,2,168,0,32,160,128,42,170,128,170
  21.