home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / games / dogfight (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-04-15  |  3.4 KB  |  72 lines
  1. 5 POKE 53280,6:POKE53281,14:PRINT"[147]              DOGFIGHT !!":PRINT
  2. 10 S1=256*PEEK(46)+PEEK(45)-319:S2=S1+54
  3. 20 PRINT"PLUG JOYSTICK IN PORT 2.  REMEMBER: THE"
  4. 25 PRINT"JOYSTICK CONTROLS [158]YOUR PLANE, AS SHOWN"
  5. 30 PRINT"BY THE MOVEMENT OF THE GUNSIGHT.  YOUR"
  6. 35 PRINT"SCORE IS 50 TIMES THE NUMBER OF KILLS,"
  7. 40 PRINT"LESS THE NUMBER OF SHOTS.  THE ENEMY"
  8. 45 PRINT"LOOKS LIKE THE PLANE BELOW. TO SCORE A"
  9. 50 PRINT"KILL YOU MUST BRING THE ENEMY PLANE"
  10. 55 PRINT"INTO YOUR SIGHT AND FIRE.  THE FIRST"
  11. 60 PRINT"HIT CAUSES THE PLANE TO ENLARGE; THE"
  12. 65 PRINT"SECOND HIT CAUSES IT TO EXPLODE."
  13. 70 PRINT"YOU START WITH 255 ROUNDS OF AMMO."
  14. 75 PRINT"PRESS 'R' WHEN READY."
  15. 80 FORI=16000 TO 16384 : POKE I,0:NEXT
  16. 85 FORJ= 1 TO 5: READ SP,B,E:POKE2040+SP,250+SP
  17. 90 FORI= B TO E:READN:POKE(250+SP)*64+I-1,N:NEXTI:NEXTJ
  18. 95 POKE 53248,160 : POKE53249,185 : POKE53287,3
  19. 100 POKE53250,160:POKE53251,185:POKE53288,3
  20. 105 POKE53252,160 : POKE 53253,185 : POKE 53289,3
  21. 110 POKE53254,160:POKE53255,185:POKE53290,3
  22. 115 POKE53256,160:POKE53257,185:POKE53291,3
  23. 120 POKE 53269,1 : FOR M = 1 TO 125 : NEXT
  24. 125 POKE 53269,2 :FORM=1TO125:NEXT
  25. 130 POKE 53269,4 :FORM=1TO125:NEXT
  26. 135 POKE 53269,8 :FORM=1TO125:NEXT
  27. 140 POKE 53269,16:FORM=1TO125:NEXT
  28. 145 POKE 53269,8:FORM=1TO125:NEXT
  29. 150 POKE 53269,4:FORM=1TO125:NEXT
  30. 155 POKE 53269,2:FORM=1TO125:NEXT
  31. 160 GETAN$:IFAN$=""THEN120
  32. 165 S=54272:POKES+12,32:POKES+13,251:POKES+8,15
  33. 170 PRINT"[147]":INPUT"LEVEL (1-10)";L:PRINT"[147]":PRINT:POKE679,L:POKE680,L+1
  34. 175 POKE681,2*L:SYSS1
  35. 180 PRINTTAB(35)"TIME" "[157][157][157][157][157]" "SHOTS" "[157][157][157][157][157]" "KILLS";
  36. 185 TI$="000000":POKE682,0:KL=0
  37. 190 POKES+6,16: POKE S+1,200:POKES+24,3:POKES+4,129
  38. 195 POKE1479,112:POKE 1480,114:POKE 1481,110:POKE 1519,107:POKE 1520,87
  39. 200 POKE 1521,115:POKE1559,109:POKE1560,113:POKE1561,125
  40. 205 POKE 55751,1:POKE 55752,1:POKE 55753,1:POKE 55791,1:POKE 55792,1
  41. 210 POKE 55793,1:POKE55831,1:POKE55832,1:POKE55833,1
  42. 215 POKE53269,0:POKE53271,0:POKE53277,0:POKE683,0
  43. 220 POKE 251,INT(250*RND(1)):POKE252,INT(200*RND(1)+40)
  44. 222 POKE 253,2:POKE254,4
  45. 225 IF(TI$="000200"ORPEEK(682)=255)THEN270
  46. 230 SYS S2
  47. 235 IF PEEK(683) = 2 THEN 295
  48. 240 IF PEEK(683) = 3 THEN 215
  49. 245 X = PEEK(251)+PEEK(679)*(PEEK(253)-2)
  50. 250 IF ((X<0)OR(X>255))THEN215
  51. 255 POKE 251,X
  52. 260 PRINT""TAB(34)TI$:PRINTTAB(34)""PEEK(682):PRINT TAB(35)""KL
  53. 265 GOTO 225
  54. 270 SC = KL*50 - SH
  55. 275 PRINT"[147]""GAME OVER!  YOUR SCORE IS ";SC
  56. 280 INPUT "PLAY AGAIN"; AN$
  57. 285 IF AN$ = "Y" THEN PRINT"[147]":GOTO170
  58. 290 STOP: END
  59. 295 POKE 53281,1: FOR I= 1TO 75:NEXT:POKE53281,2:POKES+24,15
  60. 300 POKE S+11,129: FORI=1 TO75:NEXT
  61. 305 POKE 53281,7 : FORI=1 TO75:NEXT:POKE S+11,128:POKE S+24,3
  62. 310 POKE 53281,14:KL=KL+1:GOTO215
  63. 1000 DATA 0,12,52,32,0,0,96,0,0,128,1,33,0,0,194,0,0,196,0,1,56,0,0,40,0
  64. 1005 DATA 0,56,0,0,64,0,0,128,0,1,0,0,2,0,0,4,0,0,12
  65. 1010 DATA 1,18,46,4,0,160,24,0,64,64,0,161,0,0,60,0,0,40,0,0,120,0,1,0,0,4
  66. 1015 DATA 0,0,16,0,0,96
  67. 1020 DATA 2,19,39,0,16,0,0,124,0,0,16,0,0,56,0,255,239,254,64,56,4,0,16,0
  68. 1025 DATA 3,16,48,64,0,0,48,10,0,4,4,0,1,10,0,0,120,0,0
  69. 1030 DATA 40,0,0,60,0,0,1,0,0,0,64,0,0,16,0,0,12,4,10,54
  70. 1035 DATA 8,0,0,12,0,0,2,0,0,1,9,0,0,134,0,0,70,0,0,57,0,0,40,0,0
  71. 1040 DATA 56,0,0,4,0,0,2,0,0,1,0,0,0,128,0,0,64,0,0,96
  72.