home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / ASTEROID-FIELD (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  58 lines
  1. 0 REM****ASTEROID FIELD ****
  2. 1 REM****BY JOE SWEELY  ****
  3. 2 REM****FROM SPACE GAMES****
  4. 3 REM ***ERROR***
  5. 5 POKE53281,0
  6. 100 PRINT"ô"
  7. 103 PRINT"ASTEROID FIELD"
  8. 105 PRINT:PRINT"THE OBJECT OF THIS GAME IS TO "
  9. 107 PRINT"ESCAPE THE DEADLY ASTEROID FIELD"
  10. 109 PRINT:PRINT"YOU MUST SCORE 500 POINTS TO ESCAPE"
  11. 111 PRINT:PRINT"BE ALERT FOR ENEMY CRAFT PATROLING"
  12. 113 PRINT"THE AREA ALSO"
  13. 116 PRINT:PRINT:PRINT"PRESS ANY KEY TO BEGIN"
  14. 118 GET K$:IFK$=""THEN118
  15. 120 PRINT"ô":JY=56320:S=0:PS=2004
  16. 121 H=INT(RND(1)*36)+1
  17. 122 H2=INT(RND(1)*36)+1
  18. 123 IFRND(1)>.3THENPRINTTAB(H)"ò   Æ¥¥¥¥     Æ¥¥¥¥   Æ"
  19. 126 IFRND(1)<.3THENPRINTTAB(H2)"¢½╤│"
  20. 130 PRINT"¥ö":POKE218,156
  21. 131 PRINT"SCORE";S
  22. 132 S=S+1:OP=PS
  23. 133 IFPEEK(JY)=123THENPS=PS-1:OP=OP+1
  24. 134 IFPS<1984THENPS=PS+1
  25. 135 IFPEEK(JY)=119THENPS=PS+1:OP=OP-1
  26. 136 IFPS>2023THENPS=PS-1
  27. 137 IFPEEK(PS)<>32THEN200
  28. 139 IFS>500THEN300
  29. 141 POKEOP,32:POKEPS,88:POKE54272+PS,1:GOTO121
  30. 200 GOSUB7000:FORT=1TO100:NEXTT: GOSUB7000
  31. 201 PRINT"ô"
  32. 204 PRINT:PRINT"YOU WERE HIT"
  33. 206 PRINT"YOU DIDN'T MAKE IT THROUGH !!"
  34. 210 PRINT:PRINT"PRESS ANY KEY              "
  35. 214 GETK$:IFK$=""THEN214
  36. 216 GOTO100
  37. 300 PRINT"ô"
  38. 304 PRINT:PRINT:PRINT"YOU SURVIVED THE ASTEROID FIELD!!!"
  39. 307 PRINT:PRINT:PRINT"SUPER!!FANTASTIC!!AWESOME!!!":GOSUB9000
  40. 309 PRINT:PRINT"PRESS ANY KEY          "
  41. 311 GETK$:IFK$=""THEN311
  42. 314 GOTO100
  43. 7000 S=54272:FORT=STOS+24:POKET,0:NEXTT:POKES+5,15:POKES+6,15:POKES+24,15
  44. 7010 POKES+1,    
  45. 7011 RETURN
  46. 9000 REM SONG
  47. 9001 S=54272:FORSW=STOS+24:POKESW,0:NEXTSW
  48. 9002 POKES+24,15:POKES+2,255:POKES+3,0:POKES+5,9:POKES+6,0
  49. 9004 READN1,N2,DR
  50. 9005 IFN1=0THEN9070
  51. 9006 POKES+1,N1:POKES,N2:POKES+4,65
  52. 9007 FORZ=TTODR/2 :NEXTZ
  53. 9010 POKES+4,64:FORT=1TO50:NEXTT
  54. 9011 GOTO9004
  55. 9020 DATA0,18,104,250,18,104,500,18,104,250
  56. 9021 DATA20,169,500,24,146,500,30,245,1000,30,245,1000,0,0,0
  57. 9070 RETURN
  58.