home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / GERMAN-BOMBER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  149 lines
  1. 0 REM*********ARNE GLEASON**********
  2. 1 REM*********OAKVILLE ONT**********
  3. 2 REM*********MODIFIED BY***********
  4. 3 REM*********WAYNE BRYAN***********
  5. 4 REM*********DAVE ROSEN************
  6. 6 PRINT"[147]"
  7. 7 POKE53280,6 :POKE53281,6
  8. 8 PRINT"                                   "
  9. 9 PRINT"[144][160]                       [204][213][201][186]                                    [207][202][203][208] "
  10. 10 ZT=TI+30
  11. 11 IF TI<ZT THEN11
  12. 12 PRINT"[147]"
  13. 13 PRINT"[144]           [204][213][201][186]                                    [207][202][203][208] "
  14. 14 ZT=TI+30
  15. 15 IF TI<ZT THEN15
  16. 16 PRINT"[147]"
  17. 17 PRINT"[144]             [204][213][201][186]                                    [207][202][203][208] "
  18. 18 PRINT"              [158][166][166]"
  19. 19 PRINT"             [158][166][166][166][166]"
  20. 20 PRINT"            [158][166][166][166][166][166][166]"
  21. 21 PRINT"           [158][166][166][166][166][166][166][166][166]"
  22. 22 ZT=TI+30
  23. 23 IF TI<ZT THEN 23
  24. 24 PRINT"[147]"
  25. 25 PRINT"[144]             [204][213][201][186]                                    [207][202][203][208]"
  26. 26 PRINT"                                                                      "
  27. 27 PRINT"        GERMAN BOMBER
  28. 28 [153]"      MODIFIED FOR C-64 BY"
  29. 29 [153]"           DAVE ROSEN "
  30. 30 [153]"              AND"
  31. 31 [153]"           WAYNE BRYAN"
  32. 32 ZT[178]TI [170]200
  33. 33 [139] TI[179]ZT [167] 33
  34. 34 [153]"LOAD"
  35. 35 [153]"STOP             (null)(null)RIGHT$SQR                                    (null)MID$(null)(null) "
  36. 36 [153]"              SYSSPC(SPC("
  37. 37 [153]"             SYSSPC(SPC(SPC(SPC("
  38. 38 [153]"            SYSSPC(SPC(SPC(SPC(SPC(SPC("
  39. 39 ZT[178]TI[170]30
  40. 40 [139] TI[179]ZT [167] 40
  41. 41 [153]"LOAD"
  42. 42 [153]"  GERMAN (C-64) BOMBER "
  43. 43 [153]"YOU ARE LOOKING INTO THE SIGHTS OF A"
  44. 44 [153]"B-LIST:"
  45. 45 [153]"YOUR MISSION IS TO DESTORY AS MANY "
  46. 46 [153]"ENEMY STRUCTURES AS POSIBLE."
  47. 47 [153]:[153]"YOUR PLANE IS FLYING ALONG A LONG"
  48. 48 [153]"RIVER WHICH IS USED TO RUN HYDRO PLANTS,"
  49. 49 [153]"ONTO COOL MACHINERY AT AMUNITION FACTORIES"
  50. 50 [153]"ONAND FLOAT BARGES OF SUPPLIES DOWN STREAM"
  51. 51 [153]:[153]"YOU USE THE L,:,AND; BUTTONS"
  52. 52 [153]"L TO GO RIGHT, ; TO GO LEFT,
  53. 53 PRINT"AND : TO DROP A BOMB"
  54. 54 PRINT:PRINT"PRESS ANY KEY TO CONTINUE"
  55. 55 GETZ$:IFZ$=""THEN55
  56. 56 PRINT"[147]"
  57. 57 PRINT"YOUR SIGHT'S TARGET LOOKS LIKE THIS"
  58. 58 PRINT"                    [144][219][153]"
  59. 59 PRINT"HYRO PLANTS LIKE THIS"
  60. 60 PRINT"                [158][215][215]  "
  61. 61 PRINT"                [158][177][177][146][153]"
  62. 62 PRINT"FACTORIES LIKE THIS"
  63. 63 PRINT"               [151][207][208][209][153]
  64. 64 [153]"            POKETANTANTAN(null)TO(null)PRINT
  65. 65 PRINT"AND BARGES LOOK LIKE THIS"
  66. 66 PRINT"                [155][211][153]
  67. 67 [153]:[153]"PRESS ANY KEY TO START"
  68. 68 [161]R$:[139]R$[178]""[167]68
  69. 69 [153]"LOAD"
  70. 70 [151]53280,12:[151]53281,12
  71. 95 TI$[178]"000000"
  72. 97 P[178]20
  73. 98 X[178]20
  74. 99 [137]1000
  75. 100 X[178]X[170]1
  76. 105 [142]
  77. 131 FTI[179]ZT [167]13
  78. 171 FTI[179]ZT [167]17
  79. 200 X[178]X[171]1
  80. 205 [142]
  81. 1000 B$[178]"SPC(SPC(SPC(PRINT"
  82. 1005 [141]2000
  83. 1010 M[178][181](3[172][187](1)): [145]M[141]100,200,200
  84. 1015 [139]X[179]2[167]X[178]2
  85. 1016 [139]X[177]26[167]X[178]26
  86. 1020 [153]"                                       WAIT"
  87. 1025 Q[178][181](20[172][187](1)):[139]Q[178]13[167][141]10000
  88. 1030 [153]"ON"[163]X)B$
  89. 1040 [137]1000
  90. 2000 A[178][194](203):[139]A[178]255[167]2010
  91. 2002 [139]A[178]42[167]P[178]P[171]1
  92. 2003 [139]A[178]50[167]P[178]P[170]1
  93. 2005 [139]A[178]45[167][137]3000
  94. 2010 C[178][194](1024[170]160[170]P):CC[178][194](55296[170]160[170]P)
  95. 2020 [151]1024[170]160[170]P,219:[151]55296[170]160[170]P,1
  96. 2025 [129]B[178]1[164]5:[139]TI$[177]"000200"[167]19999
  97. 2027 [130]
  98. 2030 [151]1024[170]160[170]P,C:[151]55296[170]160[170]P,CC
  99. 2050 [142]
  100. 3000 I[178]0:[129]K[178]119[170]P[164]399[170]P[169]40:G(I)[178][194](32768[170]K):I[178]I[170]1:[130]
  101. 3001 F[178]0:[129]K[178]120[170]P[164]400[170]P[169]40:E(F)[178][194](32768[170]K):F[178]F[170]1:[130]
  102. 3005 [153]""[163]P[171]1)"(null)STEPWAITCMDCMDSTEP(null)CMDCMD  CMDCMD  CMDCMD(null)STEP
  103. 3010 PRINT""TAB(P-1)"  [157][157]  [157][157]  [157][157]  [157][157]  [146]"
  104. 3020 PRINT"[145]"TAB(P-1)"[191][146][191][157][157][181][182]"
  105. 3030 FORI=1TO100:NEXT
  106. 3040 PRINT"[145][145]"TAB(P-1)"  [157][157]  "
  107. 3050 PRINTTAB(P-1)"[170][180]"
  108. 3060 FORI=1TO200:NEXT
  109. 3070 PRINTTAB(P-1)"[145]  "
  110. 3080 PRINTTAB(P)"."
  111. 3090 FORI=1TO300:NEXT
  112. 3100 PRINTTAB(P)"[145] [146]"
  113. 3101 IFPEEK(1024+160+280+P)<>160THEN4000
  114. 3120 PRINTTAB(P)"[214][146]"
  115. 3130 I=0:FORK=119+PTO399+PSTEP40:POKE32768+K,G(I):I=I+1:NEXT
  116. 3131 F=0:FORK=120+PTO400+PSTEP40:POKE32768+K,E(F):F=F+1:NEXT
  117. 3200 FORI=1TO12:PRINT:NEXT
  118. 3300 RETURN
  119. 4000 IFPEEK(1024+280+160+P)=230THEN3120
  120. 4030 I=0:FORK=119+PTO399+PSTEP40:POKE32768+K,G(I):I=I+1:NEXT
  121. 4031 F=0:FORK=120+PTO400+PSTEP40:POKE32768+K,E(F):F=F+1:NEXT
  122. 4100 PRINT"[145][145][145]"SPC(P-2)" [167][165] [157][157][157][157][205][213][201][206][157][157][157][157][157][164][213][176][174][201][164][157][157][157][157][157][157][163][202][173][189][203][163][157][157][157][157][157][206][202][203][205][157][157][157][167][165]
  123. 4120 V[178]P[171]2:[129]I[178]1[164]300:[130]
  124. 4122 D$[178]"ONONONONONON"
  125. 4125 [153]D$[166]V)"    CMDCMDCMDCMD    CMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMD    CMDCMDCMD   "
  126. 4150 [129]I[178]1[164]10:[153]:[130]
  127. 4900 S[178]S[170]100:[142]
  128. 5030 I[178]0:[129]K[178]119[170]P[164]399[170]P[169]40:[139]G(I)[179][177]102[167]G(I)[178]160
  129. 5031 [151]1024[170]K,G(I):I[178]I[170]1:[130]
  130. 5040 F[178]0:[129]K[178]120[170]P[164]400[170]P[169]40:[139]E(F)[179][177]102[167]E(F)[178]160
  131. 5041 [151] 1024[170]K,E(F):F[178]F[170]1:[130]
  132. 6000 S[178]S[170]100:[142]
  133. 10000 O[178][181](4[172][187](1)):[145]O[137]11000,12000,13000,11000
  134. 11000 B$[178]"ONSYS(null)(null)WAITCMDCMD>>SPC(PRINT"
  135. 11005 [142]
  136. 12000 B$[178]"SPC(WAITLISTATNSPC(PRINT"
  137. 12005 [142]
  138. 13000 B$[178]"ONONSPC(SPC(SPC(POKETANTANTAN(null)(null)(null)CMDCMDCMD(null)TO(null)PRINT
  139. 13005 RETURN
  140. 19999 POKE 53281,1 :POKE53280,1 :PRINT"[144]"
  141. 20000 PRINT"YOUR TIME IS UP"
  142. 20010 PRINT:PRINT"YOUR SCORE IS "S
  143. 20020 IFS<=500THENPRINT"WHAT ARE YOU A SECRET WEAPON FOR THE ENEMY":END
  144. 20030 IFS<=1000THENPRINT"AT LEAST YOU COULD FIGHT OFF A GROUP OF OLD WOMEN":END
  145. 20040 IFS<=1300THENPRINT"WAY TO GO .YOU  CAN CONSIDER YOURSELF A ROOKIE":END
  146. 20050 IFS<=1500THENPRINT"WAY TO GO SNOOPPY":END
  147. 20070 IFS<=1800THENPRINT"WAY TO GO WILLIAM (BILLY)AVERY BISHOP":END
  148. 20080 IFS=>1900THENPRINT"YOU A GREAT FLYING ACE ,WAY TO GO":END
  149.