home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / EAGLE-ATTACK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  95 lines
  1. 0 REM    FROM Q-LINK DISK # 76
  2. 1 PRINT"[147]";:FORI=828TO912:READDA:POKEI,DA:NEXT
  3. 2 DATA162,130,142,2,208,142,4,208,160,220,140,3,208,140,5,208,96,173,0,220
  4. 3 DATA201,123,240,3,76,100,3,202,202,202,202,202,202,202,202,202,202,76,114,3
  5. 4 DATA201,119,208,16,232,232,232,232,232,232,232,232,232,232,142,2,208,142
  6. 5 DATA4,208,96,138,72,136,140,5,208,162,255,202,208,253,204,1,208,208,242
  7. 6 DATA160,12,140,5,208,104,170,96
  8. 8 POKE53280,2:POKE53281,0:PRINT"":LV=1:VV=54272:A$="EAGLE ATTACK":PRINT:BC=0
  9. 10 B$="[159]PRESS FIRE[146][159] TO BEGIN":PRINT"";TAB(13);A$;"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";B$;
  10. 12 PRINT:PRINT"           JOYSTICK PORT TWO
  11. 13 [153]"  FIRE BUTTON TO ZAP MEAN OLE EAGLES
  12. 14 PRINT" IF AN EAGLE GETS BY YOU, YOU IS GONE!"
  13. 15 GOSUB1010
  14. 16 IFA=111THEN49
  15. 17 BC=BC+1
  16. 18 IFBC>5THENBC=1
  17. 20 POKE53280,BC:GOTO8
  18. 49 PRINT""
  19. 51 DATA192,0,3,192,0,3,112,0,14,126,0,126,63,129,252,31,129,248,31,195,248,6
  20. 53 DATA255,96,3,126,192,7,153,224,14,24,112,15,219,240,12,231,48,6,60,96,3,129
  21. 55 DATA192,3,255,192,14,126,112,28,0,56,63,0,252,49,0,140,49,0,140,0,0,0,0,24,0
  22. 61 DATA0,24,0,0,60,0,0,60,0,0,60,0,1,60,128,1,60,128,1,189,128,17,189,136,19
  23. 63 DATA189,200,23,189,232,31,189,248,30,60,120,24,60,24,16,60,8,0,60,0,0,60,0
  24. 67 DATA0,60,0,0,189,0,1,189,128,0,16,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56
  25. 73 DATA0,0,56,0,0,56,0,0,186,0,1,187,0,1,187,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26. 75 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,3,192,0,3,112,0,14,124,0,62,57,129,156,19,129
  27. 82 DATA200,7,195,224,6,231,96,3,102,192,7,129,224,0,0,0,0,0,0,12,231,48,6,36
  28. 86 DATA96,3,129,192,3,231,192,14,102,96,16,0,8,57,0,156,49,0,140,49,0,140,0,0,0
  29. 88 DATA0,0,0,0,0,0,60,0,60,127,0,254,255,129,255,246,255,111,227,126,199,231
  30. 92 DATA153,231,206,90,115,143,153,241,143,231,241,6,60,96,3,129,192,3,231,192
  31. 94 DATA3,126,192,6,0,96,7,231,224,6,36,96,6,0,96,2,0,64,24
  32. 100 V=53248:POKEV+21,255:POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,194
  33. 120 POKE2044,196:POKEV+39,2:POKEV+40,3:POKEV+41,5:POKEV+42,2:POKEV+43,2
  34. 150 FORS1=12288TO12350:READD1:POKES1,D1:NEXT
  35. 155 FORS2=12352TO12414:READD2:POKES2,D2:NEXT
  36. 160 FORS3=12416TO12478:READD3:POKES3,D3:NEXT
  37. 170 FORS4=12480TO12542:READD4:POKES4,D4:NEXT
  38. 171 FORS5=12544TO12606:READD5:POKES5,D5:NEXT:MN=3:PRINT"[147]"
  39. 176 PRINT"[147]":FORI=1984TO2023:POKEI,160:POKEI+55296,5:NEXT:PRINT"";
  40. 178 PRINT"..[158].[157][157].[159].[156].[157][157][157][157][157][157][157][157][157][157][157].[158]."
  41. 179 PRINT".[158].[159]..."
  42. 180 PRINT"";:FORI=1TO24:PRINTTAB(30)"        ":NEXT
  43. 182 FORI=1063TO2023STEP40:POKEI,160:NEXT
  44. 183 PRINT"";:PRINTTAB(31)"SCORE";SC:PRINT"[157][157][157][157][157][157][157][157][157]MEN  ";MN
  45. 185 PRINT"";TAB(29)"[159]E[157]A[157]G[157]L[157]E[145][145][145][145]A[157]T[157]T[157]A[157]C[157]K"
  46. 186 PRINT"":PRINTTAB(31)"[158]        ";
  47. 190 PRINT"":FORI=1TO31:PRINT"[158]-";:NEXTI
  48. 200 LV=LV+1:Y=60:X=INT(RND(1)*255)+1
  49. 205 IFX<24THENX=24
  50. 206 IFX>247THENX=247
  51. 215 POKEV,X:POKEV+1,Y:SYS828:POKEV+31,0                   
  52. 250 BL=INT(RND(1)*2)+1
  53. 255 IFBL=1THENX=X+10:GOTO260
  54. 256 X=X-10        
  55. 260 IFX<24THENX=24
  56. 261 IFX>247THENX=247
  57. 270 C=INT(RND(1)*16)+1:Y=Y+LV:POKEV+1,Y
  58. 286 IFPEEK(2040)=192THENPOKE2040,196:GOTO290
  59. 287 POKE2040,192:POKEV+1,Y
  60. 290 HT=PEEK(V+30):POKEV+39,C:IFHT=253THEN600
  61. 291 IFC=0THENC=1:POKEV,X
  62. 292 SYS845
  63. 293 GOSUB1010
  64. 296 IFA=111THEN310
  65. 297 POKEV+1,Y
  66. 298 IFY>175THEN800
  67. 300 GOTO250
  68. 310 SYS889:POKEV+5,219:BL=PEEK(V):SL=PEEK(V+2):DF=BL-SL
  69. 314 IFDF>=14THEN500
  70. 315 IFDF<=-14THEN500
  71. 320 GOTO600
  72. 500 GOTO300
  73. 600 SC=SC+10:BC=BC+1:POKE53280,BC:POKEV+39,5:POKE2040,195:GOSUB1000:POKEV+21,7
  74. 621 FORDK=YTO255STEP1:POKEV+1,DK:NEXT
  75. 630 POKE2040,192:POKEV+5,219:POKEV+21,15
  76. 640 PRINT"";:PRINTTAB(31)"SCORE";SC
  77. 700 GOTO200
  78. 800 BA=PEEK(V+2):POKEV,BA
  79. 820 POKEV+21,3:POKEV+39,2:POKEV+40,7:FORI=YTO0STEP-2:POKEV+1,I:POKEV+3,I+20:NEXT
  80. 821 POKEV+21,255:MN=MN-1
  81. 840 IFMN=0THEN865
  82. 850 PRINT"[157][157][157][157][157][157][157][157][157]MEN  ";MN:POKEV+21,255:GOTO200
  83. 865 PRINT"[157][157][157][157][157][157][157][157][157]MEN  ";MN
  84. 900 PRINT"GAME OVER";
  85. 901 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][149]PRESS FIRE TO PLAY AGAIN":LV=0:SC=0
  86. 902 GOSUB1010
  87. 905 IFA=111THENMN=3:GOTO176
  88. 906 GOTO902
  89. 1000 FORL=54272TO54296:POKEL,0:NEXT:POKE54296,15:POKE54295,0:VV=54272
  90. 1002 POKEVV+6,0:POKEVV+5,12:POKEVV+1,20:POKEVV+4,129
  91. 1005 FORNN=1TO500:NEXTNN:POKEVV+4,0:RETURN
  92. 1010 REM JOYSTICK READER
  93. 1011 A=PEEK(56320)
  94. 1012 RETURN
  95.