home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9210a.d64 / carcrash (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.