home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_93-11_1993-11_-_de_Side_A.d64 / psychic kaos / psychic kaos.a7ae (.txt)
Encoding:
Commodore BASIC  |  1995-01-01  |  3.7 KB  |  185 lines
  1. 0 rem psychic kaos trainer  by elmar germann (NULL)
  2. 1 print"":poke 53280,0:poke 53281,0:print"[147]":poke 808,2
  3. 2 print chr$(142):print chr$(8)
  4. 3 gosub 38
  5. 4 open 15,8,15,"u9":close 15:print"[147]"
  6. 5 print"         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 6 print"         [221] psychic kaos trainer [221]"
  8. 7 print"         [221]   by elmar germann[146]   [221]"
  9. 8 print"         [221]   (c) by cp verlag   [221]"
  10. 9 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 10 print
  12. 11 print"  [176][192][192][174]"
  13. 12 print"  [221]f1[221] : unendliche leben"
  14. 13 print"  [173][192][192][189]"
  15. 14 print
  16. 15 print"  [176][192][192][174]"
  17. 16 print"  [221]f3[221] : endliche leben"
  18. 17 print"  [173][192][192][189]"
  19. 18 print
  20. 19 print"  [176][192][192][174]"
  21. 20 print"  [221]f5[221] : unendliche rescues"
  22. 21 print"  [173][192][192][189]"
  23. 22 print
  24. 23 print"  [176][192][192][174]"
  25. 24 print"  [221]f7[221] : endliche rescues"
  26. 25 print"  [173][192][192][189]"
  27. 26 print
  28. 27 print"  [176][192][174]"
  29. 28 print"  [221]e[221]  : ende"
  30. 29 print"  [173][192][189]"
  31. 30 print""
  32. 31 geta$:ifa$=""then 31
  33. 32 ifa$=chr$(133)then print:goto 48
  34. 33 ifa$=chr$(134)then print:goto 74
  35. 34 ifa$=chr$(135)then print:goto 100
  36. 35 ifa$=chr$(136)then print:goto 127
  37. 36 ifa$="e"then print:goto 153
  38. 37 goto 30
  39. 38 print"[147]"
  40. 39 print
  41. 40 print"               bitte die"
  42. 41 print
  43. 42 print"     seite 2 von der game on 7+8/93[146]"
  44. 43 print"       ohne formatierungsschutz ![146]"
  45. 44 print"          ins laufwerk legen !"
  46. 45 print"             press space ! [146]"
  47. 46 geta$:ifa$=""then 46
  48. 47 return
  49. 48 print"[147]"
  50. 49 open 1,8,15,"i":open 2,8,2,"#"
  51. 50 print#1,"u1 2 0 10 0"
  52. 51 print#1,"b-p 2 34"
  53. 52 print#2,chr$(173);
  54. 53 print#1,"u2 2 0 10 0"
  55. 54 print#1,"i":close 1:close 2
  56. 55 open 1,8,15,"i":open 2,8,2,"#"
  57. 56 print#1,"u1 2 0 8 1"
  58. 57 print#1,"b-p 2 242"
  59. 58 print#2,chr$(173);
  60. 59 print#1,"u2 2 0 8 1"
  61. 60 print#1,"i":close 1:close 2
  62. 61 open 1,8,15,"i":open 2,8,2,"#"
  63. 62 print#1,"u1 2 0 6 17"
  64. 63 print#1,"b-p 2 93"
  65. 64 print#2,chr$(173);
  66. 65 print#1,"u2 2 0 6 17"
  67. 66 print#1,"i":close 1:close 2
  68. 67 open 1,8,15,"i":open 2,8,2,"#"
  69. 68 print#1,"u1 2 0 1 12"
  70. 69 print#1,"b-p 2 118"
  71. 70 print#2,chr$(173);
  72. 71 print#1,"u2 2 0 1 12"
  73. 72 print#1,"i"
  74. 73 close 1:close 2:goto 4
  75. 74 print"[147]"
  76. 75 open 1,8,15,"i":open 2,8,2,"#"
  77. 76 print#1,"u1 2 0 10 0"
  78. 77 print#1,"b-p 2 34"
  79. 78 print#2,chr$(206);
  80. 79 print#1,"u2 2 0 10 0"
  81. 80 print#1,"i":close 1:close 2
  82. 81 open 1,8,15,"i":open 2,8,2,"#"
  83. 82 print#1,"u1 2 0 8 1"
  84. 83 print#1,"b-p 2 242"
  85. 84 print#2,chr$(206);
  86. 85 print#1,"u2 2 0 8 1"
  87. 86 print#1,"i":close 1:close 2
  88. 87 open 1,8,15,"i":open 2,8,2,"#"
  89. 88 print#1,"u1 2 0 6 17"
  90. 89 print#1,"b-p 2 93"
  91. 90 print#2,chr$(206);
  92. 91 print#1,"u2 2 0 6 17"
  93. 92 print#1,"i":close 1:close 2
  94. 93 open 1,8,15,"i":open 2,8,2,"#"
  95. 94 print#1,"u1 2 0 1 12"
  96. 95 print#1,"b-p 2 118"
  97. 96 print#2,chr$(206);
  98. 97 print#1,"u2 2 0 1 12"
  99. 98 print#1,"i"
  100. 99 close 1:close 2:goto 4
  101. 100 gosub 175
  102. 101 print"[147]"
  103. 102 open 1,8,15,"i":open 2,8,2,"#"
  104. 103 print#1,"u1 2 0 10 1"
  105. 104 print#1,"b-p 2 131"
  106. 105 print#2,chr$(173);
  107. 106 print#1,"u2 2 0 10 1"
  108. 107 print#1,"i":close 1:close 2
  109. 108 open 1,8,15,"i":open 2,8,2,"#"
  110. 109 print#1,"u1 2 0 8 13"
  111. 110 print#1,"b-p 2 131"
  112. 111 print#2,chr$(173);
  113. 112 print#1,"u2 2 0 8 13"
  114. 113 print#1,"i":close 1:close 2
  115. 114 open 1,8,15,"i":open 2,8,2,"#"
  116. 115 print#1,"u1 2 0 5 15"
  117. 116 print#1,"b-p 2 6"
  118. 117 print#2,chr$(173);
  119. 118 print#1,"u2 2 0 5 15"
  120. 119 print#1,"i":close 1:close 2
  121. 120 open 1,8,15,"i":open 2,8,2,"#"
  122. 121 print#1,"u1 2 0 2 1"
  123. 122 print#1,"b-p 2 218"
  124. 123 print#2,chr$(173);
  125. 124 print#1,"u2 2 0 2 1"
  126. 125 print#1,"i"
  127. 126 close 1:close 2:goto 4
  128. 127 print"[147]"
  129. 128 open 1,8,15,"i":open 2,8,2,"#"
  130. 129 print#1,"u1 2 0 10 1"
  131. 130 print#1,"b-p 2 131"
  132. 131 print#2,chr$(206);
  133. 132 print#1,"u2 2 0 10 1"
  134. 133 print#1,"i":close 1:close 2
  135. 134 open 1,8,15,"i":open 2,8,2,"#"
  136. 135 print#1,"u1 2 0 8 13"
  137. 136 print#1,"b-p 2 131"
  138. 137 print#2,chr$(206);
  139. 138 print#1,"u2 2 0 8 13"
  140. 139 print#1,"i":close 1:close 2
  141. 140 open 1,8,15,"i":open 2,8,2,"#"
  142. 141 print#1,"u1 2 0 5 15"
  143. 142 print#1,"b-p 2 6"
  144. 143 print#2,chr$(206);
  145. 144 print#1,"u2 2 0 5 15"
  146. 145 print#1,"i":close 1:close 2
  147. 146 open 1,8,15,"i":open 2,8,2,"#"
  148. 147 print#1,"u1 2 0 2 1"
  149. 148 print#1,"b-p 2 218"
  150. 149 print#2,chr$(206);
  151. 150 print#1,"u2 2 0 2 1"
  152. 151 print#1,"i"
  153. 152 close 1:close 2:goto 4
  154. 153 print"[147]"
  155. 154 print""
  156. 155 print"  [176][192][192][174]"
  157. 156 print"  [221]f1[221] : reset"
  158. 157 print"  [173][192][192][189]"
  159. 158 print
  160. 159 print"  [176][192][192][174]"
  161. 160 print"  [221]f3[221] : spiel laden"
  162. 161 print"  [173][192][192][189]"
  163. 162 print
  164. 163 print"  [176][192][192][174]"
  165. 164 print"  [221]f5[221] : zurueck"
  166. 165 print"  [173][192][192][189]"
  167. 166 print""
  168. 167 geta$:ifa$=""then 167
  169. 168 ifa$=chr$(133) then print:print"[147]":sys 64738
  170. 169 ifa$=chr$(134) then print:goto 172
  171. 170 ifa$=chr$(135) then print:goto 4
  172. 171 goto 166
  173. 172 print"[147]"
  174. 173 print"             bitte warten ..."
  175. 174 load":*",8,1
  176. 175 print"[147]"
  177. 176 print"               achtung ! [146]"
  178. 177 print" der trainer fuer die rescues[146] gilt nur"
  179. 178 print"  fuer den einsatz dieser, nicht aber"
  180. 179 print"  wenn ihr schiff von einer schlechten"
  181. 180 print"      erinnerung zerstoert wird !"
  182. 181 print"             press space ![146]"
  183. 182 geta$:ifa$=""then 182
  184. 183 return
  185.