home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / CHOPPER-RESCUE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  108 lines
  1. 0 REM   FROM Q-LINK
  2. 55 POKE53280,14:POKE53281,14:GOSUB605
  3. 65 V=53248:S=54272
  4. 75 DN$="[155]^":SR$=""
  5. 80 FORI=828TO949:READA:POKEI,A:NEXTI:FORI=0TO191
  6. 90 READA:POKEI+12288,A:NEXTI
  7. 105 PRINT"[147]DO YOU WANT INSTRUCTIONS? Y[146]ES OR N[146]O":POKE198,0
  8. 110 GETA$:IFA$<>"Y"ANDA$<>"N"THEN110
  9. 115 IFA$="Y"THENGOSUB720
  10. 120 POKE2040,192:SC=0:CH=0:CT=0
  11. 130 POKEV+39,6:POKEV+37,1:POKEV+38,7
  12. 145 POKE53276,3:POKEV+1,55:POKEV,155:POKEV+16,0:POKEV+2,120:POKEV+3,0
  13. 160 POKE2041,194:POKEV+40,9
  14. 170 A=PEEK(V+31)
  15. 175 A=PEEK(V+30):PRINT"[147]";:POKEV+21,3:TI$="000000":SYS937
  16. 190 FORI=STOS+24:POKEI,0:NEXT:POKES+1,8:POKES+6,128:POKES+24,15
  17. 200 PRINT"[147]";:GOSUB255:POKES+1,8:POKES+6,128:POKES+24,15
  18. 210 POKES+24,0:POKEV+21,0:PRINT"[147] SCORE [146]"SC
  19. 220 PRINT"   WOULD YOU LIKE TO PLAY AGAIN  Y/N
  20. 225 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]225
  21. 230 [139]A$[178]"Y"[167]120
  22. 235 [153]"LOAD";:[128]
  23. 255 GT[178]129:S1[178]192:S2[178]193:OF[178]128:IC[178].001:UN[178]1:LL[178]229
  24. 285 [151]2040,S1:[151]S[170]4,GT
  25. 290 [139][187](.)[170]CT[177].9[167][153]""[166][181]([187](.)[172]38));:[153]DN$
  26. 295 [151]V[170]3,[194](V[170]3)[170]2[172][171]1[172]([194](V[170]3)[179]255):[139][194](V[170]3)[177]LL[167]CH[178]0:SC[178]SC[171]100
  27. 300 [153]SR$:[153]" SCORE WAIT"SC:[151]2040,S2:[151]S[170]4,OF:CT[178]CT[170]IC
  28. 305 [139][194](V[170]31)[178]UN[167][141]340:[142]
  29. 310 [139][194](V[170]1)[177]245[167][141]340:[142]
  30. 315 [139]CH[178]0[167][151]V[170]2,[187](.)[172]200[170]55:[151]V[170]3,[187](.)[172]150[170]55:CH[178]1:[151]V[170]30,0
  31. 320 [139][194](V[170]30)[179][177].[167][151]V[170]3,0:SC[178]SC[170]100:CH[178]0
  32. 325 [137]285
  33. 340 ::[151]2040,832[173]64:[151]2040,192
  34. 365 [151]S[170]5,8:[151]S[170]1,2:[151]S[170]6,64:[151]S[170]4,129:[129]I[178][194](V[170]1)[164]255[169]5
  35. 375 [139][187](.)[177].5[167][153]""[166][181]([187](.)[172]38));:[153]DN$
  36. 380 [153]SR$:[153]" SCORE WAIT"SC
  37. 385 [151]V[170]3,[194](V[170]3)[170]2[172][171]1[172]([194](V[170]3)[179]250):[151]V[170]1,I
  38. 395 [139][194](V[170]31)[178]1[167][151]2040,832[173]64:[151]2040,192
  39. 400 [130]I:[142]
  40. 430 [131]173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173
  41. 435 [131]0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208
  42. 440 [131]169,80,141,0,208,76,49,234,173,16,208,41,254,141,16,208,206
  43. 445 [131]0,208,76,49,234,74,176,32,238,0,208,240,30,169,80,205,0,208
  44. 450 [131]208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169
  45. 455 [131]0,141,0,208,76,49,234,173,16,208,9,1,141,16,208,76,49,234
  46. 460 [131]120,169,60,141,20,3,169,3,141,21,3,88,96
  47. 485 [131]003,255,255,000,002,000,192,002
  48. 490 [131]000,192,002,128,234,170,164,234
  49. 495 [131]128,165,192,170,165,000,042,165
  50. 500 [131]000,010,170,000,002,170,000,001
  51. 505 [131]000,000,001,001,001,085,085,000
  52. 510 [131]000,000,000,000,000,000,000,000
  53. 515 [131]000,000,000,000,000,000,000,000
  54. 520 [131]000,000,000,000,000,000,000,003
  55. 525 [131]000,003,000,000,002,000,000,002
  56. 530 [131]000,000,002,128,242,170,164,234
  57. 535 [131]128,165,000,170,165,000,042,165
  58. 540 [131]000,010,170,000,002,170,000,001
  59. 545 [131]000,000,001,001,001,085,085,000
  60. 550 [131]000,000,000,000,000,000,000,000
  61. 555 [131]000,000,000,000,000,000,000,000
  62. 560 [131]000,000,000,000,000,000,000,003
  63. 565 [131]000,085,000,001,085,064,005,085
  64. 570 [131]080,021,085,084,032,000,008,011
  65. 575 [131]020,224,002,215,128,000,190,000
  66. 580 [131]000,040,000,000,060,000,000,060
  67. 585 [131]000,000,195,000,000,195,000,000
  68. 590 [131]195,000,002,130,128,000,000,000
  69. 595 [131]000,000,000,000,000,000,000,000
  70. 600 [131]000,000,000,000,000,000,000,255
  71. 605 :
  72. 625 [153]"LOADSYS                                        ";
  73. 630 [153]"SYS WAIT                                       ";
  74. 635 [153]"SYS WAIT                                       ";
  75. 640 [153]"SYS WAIT                                   WAIT    ";
  76. 645 [153]"SYS WAIT    WAIT                               WAIT    ";
  77. 650 [153]"SYS WAIT    WAIT  ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^   WAIT    ";
  78. 655 [153]"SYS WAIT    WAIT  PEEK  ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^  PEEK   WAIT    ";
  79. 660 [153]"SYS WAIT    WAIT  PEEK  PEEKORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^PEEK  PEEK   WAIT    ";
  80. 665 [153]"SYS WAIT    WAIT  PEEK  PEEKPEEK CHOPPER RESCUEWAIT SYSPEEKPEEK  PEEK   WAIT    ";
  81. 670 [153]"SYS WAIT    WAIT  PEEK  PEEK/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXPPEEK  PEEK   WAIT    ";
  82. 675 [153]"SYS WAIT    WAIT  PEEK  /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP  PEEK   WAIT    ";
  83. 680 [153]"SYS WAIT    WAIT  /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP   WAIT    ";
  84. 685 [153]"SYS WAIT    WAIT                               WAIT    ";
  85. 690 [153]"SYS WAIT              WRITTEN BY:          WAIT    ";
  86. 695 [153]"SYS WAIT                                       ";
  87. 700 [153]"SYS WAIT                                       ";
  88. 705 [153]"SYS             HOWARD CAMPBELL            ";
  89. 710 [153]"WAIT";:[142]
  90. 720 :
  91. 740 [153]"LOADLISTYOU ARE THE PILOT OF A RESCUE HELICOPTER";
  92. 745 [153]"ON THE FRONT LINES OF THE WAR ZONE."
  93. 750 [153]"YOUR MISSON IS TO RESCUE THE PILOTS OF"
  94. 755 [153]"DOWNED PLANES AS THEY PARACHUTE TO THE"
  95. 760 [153]"GROUND.  IF THE PILOTS LAND THEY WILL BE";
  96. 765 [153]"IMMEDIATELY CAPTURED.":[153]
  97. 775 [153]"YOU WILL BE FIRED UPON BY THE GROUND"
  98. 780 [153]"FORCES WITH GROUND-TO-AIR MISSLES.  THE"
  99. 785 [153]"LONGER YOU REMAIN IN THE AREA, THE MORE"
  100. 790 [153]"MISSLES YOU WILL ENCOUNTER."
  101. 795 [153]"YOU WILL RECIEVE 100 POINTS FOR EVERY ":[153]"PILOT YOU RESCUE ";
  102. 800 [153]"AND LOSE 100 POINTS FOR";:[153]"EACH ONE THAT IS CAPTURED."
  103. 805 [153]"YOU CONTROL THE HELICOPTER WITH A       JOYSTICK PLUGGED IN PORT 2."
  104. 810 [153]"             GOOD LUCK!!!"
  105. 815 [153][166]7)"PRESS <SPACE> TO CONTINUE";:[151]198,0
  106. 820 [161]A$:[139]A$[178]""[167]820
  107. 825 [142]
  108.