home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1996 2 / Power_Disk_64_96-02_1996_Lagune_de_Side_A.d64 / spieleteilmenu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  218 lines
  1. 0 print"[153][147]":poke53280,0:poke53281,0
  2. 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  3. 2 print"[159]  [208][207][215][197][210] [196][201][211][203] 64 - [211]pieleteilmenu 2/96  "
  4. 3 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 4 print"[159]1 = [212]op [212]en                  2 = [198]lop [212]en"
  6. 5 print"3 = [199]rafik- & [211]ound-[212]op [198]ive 4 = [201]n [208]roduction"
  7. 6 print"5 = [212]ips & [212]ricks"
  8. 7 print"6 = [208][210]eviews"
  9. 8 print"7 = [205]ega [196]rive"
  10. 9 print" 8 = [200]auptmenu                 9 = [210][197][211][197][212]"
  11. 10 input"[215]as wollen sie sehen";a
  12. 11 if a<1 or a>9 then0
  13. 12 if a = 1 then goto100
  14. 13 if a = 2 then goto200
  15. 14 if a = 5 then goto300
  16. 15 if a = 6 then goto400
  17. 18 if a = 8 then goto500
  18. 19 if a = 9 then goto600
  19. 20 if a = 3 then goto4000
  20. 22 if a = 4 then goto4200
  21. 23 if a = 7 then goto800
  22. 25 get m$:if m$=""then25
  23. 26 goto1
  24. 100 print"[147]"
  25. 101 print"[145][212][207][208] [212][197][206][146] 19.[215]ertung"
  26. 103 print" ( 2)  1. [218]ak [205]c[203]racken              19"
  27. 104 print" ( 5)  2. [205]aniac [205]ansion             19"
  28. 105 print" ( 1)  3. [203]angarudy                   8"
  29. 106 print" ( 6)  4. [211]py vs [211]py                 12"
  30. 107 print" ( 3)  5. [211]ervate [212]erram !            4"
  31. 108 print" ( 4)  6. [200]otel                      15"
  32. 109 print" ([206][197])  7. [195]rylon                      1"
  33. 110 print" ([206][197])  8. [196]eutsches [193]frika [203]orps      1"
  34. 111 print" ( 7)  9. [194]oulder [196]ash                2"
  35. 112 print" ([206][197]) 10. [196]ragon [215]ars                 1"
  36. 113 print"[158] (10)     [198]ast [212]racks                 5"
  37. 114 print" ( 8)     [201]mpossible [205]ission [201][201]       2"
  38. 115 print"[159][212][193][211][212][197]"
  39. 116 geta$:ifa$=""then116
  40. 117 print"[147][218]eichenerklaerung:                      [206][197]=[206][197][215] [197][206][212][210][217] ([206]euzugang)"
  41. 118 print"[210][197]=[210][197] [197][206][212][210][217] ([210]ueckkehrer)               [200][212]=[200][207][212]-[212][201][208] (war in der letzten"
  42. 119 print"            [193]usgabe ein [200][207][212]-[212][201][208])        gruen=[193]ufsteiger"
  43. 120 print"gelb=gleich geblieben                   rot=[193]bsteiger"
  44. 121 print"[193]m [197]nde eines [211]pieles steht,wieoft es   schon in den [212][207][208] [212][197][206] ist."
  45. 122 print"[200][207][212]-[212][201][208][211]:                               [183][183][183][183][183][183][183][183]"
  46. 123 print"[215][215][214],[215][215][214] ([210]emix),[212]he [193]lternative [199]ame [201][201]"
  47. 124 print"[206]icht mehr in den [212][207][208] [212][197][206] sind:"
  48. 125 print"[211]tar [194]attle,[211]uper-[195]ycle"
  49. 126 print"[215]arum ist [218]achary ploetzlich wieder auf 1 ? [199]anz klar:[196]ie [208][196]64-[195]harts"
  50. 127 print"sind [193][204][204] [212][201][205][197] - [195]harts !!!"
  51. 128 print"[215]aehlt uebrigens mal wieder ! [196]as sind  die [195]harts der letzten [193]usgabe !"
  52. 130 geta$:ifa$=""then130
  53. 149 goto0
  54. 200 print"[147]"
  55. 201 print"[145][198][204][207][208] [212][197][206][146] 10.[215]ertung"
  56. 203 print" ( 2)  1. [203][193][205][201][203][193][218][197] [201][201]                 5"
  57. 204 print" ( 1)  2. [203]amikaze                    7"
  58. 205 print"[158] ( 3)  3. [193]ddicta [194]all               10"
  59. 206 print"[158] ( 4)  4. [212]anktrap                    4"
  60. 207 print"[158] ( 5)  5. [194]lobber                     5"
  61. 208 print" ([206][197])  6. [211]ettle-[194]attle               1"
  62. 209 print" ( 6)  7. [212]urrican                    7"
  63. 210 print" ([206][197])  8. [200]ighway                     1"
  64. 211 print"[158] ( 9)  9. [212]urbo [194]oat                 10"
  65. 212 print" ( 7) 10. [201]mpossible [205]ission [201][201]       6"
  66. 215 print"[159][212][193][211][212][197]"
  67. 216 geta$:ifa$ =""then216
  68. 217 print"[147][195][212]=[196]asselbe,wie [200][212],nur das [195][212] nicht [200][207][212]-   [212][201][208],sondern [195][207][204][196]-[212][201][208] bedeudet."
  69. 218 print"[195][207][204][196]-[212][201][208][211]:"
  70. 219 print"[200]oliday [199]ames,[213][198][207] [201][201]"
  71. 220 print"[206]icht mehr dabei:"
  72. 221 print"[212]etris,[211]tar [194]attle"
  73. 222 geta$:ifa$=""then222
  74. 226 goto0
  75. 300 print"[147]"
  76. 301 print"[145] [212][201][208][211] & [212][210][201][195][203][211] 2/96 [146]"
  77. 302 print"[196]emnaechst werden hier nur noch [212]ips &  [212]ricks zu aktuellen [199]ames ver-"
  78. 303 print"oeffentlicht.[205]it anderen [215]orten:[197]s wer- den nur noch [195]heats zu [204][193][199][213][206][197] und"
  79. 304 print"[208][200][210][197][206][197][212][201][195] [199]ames angezeigt.[193]llerdings    gibt es noch 2 weitere [205]oeglich-"
  80. 305 print"keiten fuer [195]heats:"
  81. 306 print"1. [201]hr schickt mir welche"
  82. 307 print"2. [201]hr habt [198]ragen zu bestimmten [199]ames"
  83. 308 print"[201]ch denke,dass vor allem die letzte     [205]oeglichkeit etwas sehr leser-"
  84. 309 print"freundliches ist,wodurch diese [210]ubrik   verbessert werden wird.[196]abei gaebe"
  85. 310 print"es fuer mich eigentlich keinen [199]rund,   meiner faulen [204]eserschaft entgegen-
  86. 311 [153]"zukommen,aber ich bin eben der chr$ross-   meister ..."
  87. 312 [161]a$:[139]a$[178]""[167]312
  88. 313 [137]0
  89. 400 [153]"load"
  90. 401 [153]" (NULL)(NULL)eviews 2/96 "
  91. 403 [153]" 1 = (NULL)review von (NULL)uedeball"
  92. 409 [153]" 2 = (NULL)(NULL)str$right$val peek(NULL)(NULL) chr$(NULL)(NULL)str$right$val:ascootball-(NULL)anager 2"
  93. 410 [153]"on 3 = right$nfo"
  94. 424 [153]" 4 = (NULL)enu"
  95. 433 [133]"(NULL)as wollen (NULL)ie sehen";a:[153]"ononon"
  96. 434 [139] a[179]1 [176] a[177]4 [167] [137]400
  97. 435 [139] a[178]1 [167] [137]1000
  98. 439 [139] a[178]2 [167] [137]1400
  99. 440 [139] a[178]3 [167] [137]2000
  100. 441 [139] a[178]4 [167] [137]0
  101. 500 [151]828,0
  102. 501 [153] [199](147) [199](17)
  103. 502 [153] "load" [199](34);"haupt*"; [199](34); ",8
  104. 503 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  105. 504 poke631,13:poke632,13:poke198,2
  106. 505 print chr$(19);:end
  107. 600 sys64738
  108. 800 print"[147][159] [205][197][199][193] [196][210][201][214][197] "
  109. 801 print"[206]ix neues aufm [205]ega [196]rive.[197]s wird leiderfast nur noch fuer den [211]aturn"
  110. 802 print"programmiert ... dabei kennen sich die  [208]rogrammierer mit dem noch gar"
  111. 803 print"nicht richtig aus - zumindest ich finde,dass eigentlich nur [193][204][212][197] [199]ames,wie"
  112. 804 print"[211][212][207][210][217] [207][198] [212][200][207][210] oder [211][201][205] [195][201][212][217] 2000,als [213]m-setzungen gut sind.[215]as [206]eues,[199]utes"
  113. 805 print"zu schaffen ist noch nicht drin !"
  114. 809 print"[200]ier jedenfalls meine [212]ips fuer die     [195]harts:"
  115. 810 print"1.[205]icro [205]achines '96                    2.[215][215][198] [210]aw"
  116. 811 print"3.[212]he [211]tory [207]f [212]hor                     4.[205]ega [194]omberman"
  117. 812 print"5.[212]iny [212]oon [193]ll [211]tars"
  118. 813 geta$:ifa$=""then813
  119. 814 print"[147]             [212]ips & [212]ricks              "
  120. 815 print"[194]evor ich zu den alten '[211]pezial-[212]&[212]'    komme,mal neue '[211]pezial-[212]&[212]':"
  121. 816 print"[203]ommt mal mit 'ner neuen [201]dee fuer      diesen [212]eil im [211]pieleteil her."
  122. 817 print"[193]nsonsten wird wohl der [211]pielteil ein-  fach nur um einen [212]eil gekuerzt"
  123. 818 print"werden muessen !"
  124. 828 geta$:ifa$=""then828
  125. 829 print"[215]ie waer's,wenn da draussen mal jemand  sich ein [205][197][199][193] [196][210][201][214][197] kaufen wuerde
  126. 830 [153]"und dann (NULL)ips&(NULL)ricks zu mir schickt ?   ascuer den len64 gibt es doch eh nur"
  127. 831 [153]"noch chr$ames von (NULL)atnchr$(NULL)(NULL)val (und gelegentlich von (NULL)left$(NULL)val(NULL)val(NULL)right$len).(NULL)auft euch fuer"
  128. 832 [153]"chr$ames ein (NULL)valchr$atn str$(NULL)right$(NULL)val.(NULL)um einen gibt es  fuer ihn bessere (NULL)oftware wie fuer"
  129. 833 [153]"(NULL)lens und zum anderen ist ein (NULL)valchr$atn str$(NULL)right$(NULL)val  viel,viel benutzerfreundlicher als"
  130. 834 [153]"so'n (NULL)len.peekei den '(NULL)uermen' braucht man   doch 1001 zusaetzliches (NULL)eugs um"
  131. 835 [153]"das (NULL)iech zum (NULL)aufen zu bringen.(NULL)udem   muessen die (NULL)str$-chr$ames nicht stunden-
  132. 836 print"lang geladen,installiert,usw.,werden,be-vor man sich daran erfreuen kann !"
  133. 837 geta$:ifa$=""then837
  134. 845 print" [196]eutschland-[195]harts "
  135. 846 print"[193]ufgrund des [193]usfallens von [199][193][205][197][210][211] gibt es auf unbestimmte [218]eit keine"
  136. 847 print"[196]eutschland-[195]harts.[193]llerdings kommen in letzter [218]eit sowieso nicht soviel"
  137. 848 print"dolle [199]ames fuer das [205]ega [196]rive heraus. [205]an(n) spielt lieber mit den"
  138. 849 print"[198]aehigkeiten des [211]aturn 'rum,obwohl     dabei noch nicht allzuviel heraus-"
  139. 850 print"kam.[209]uo vadis,segae ?"
  140. 853 geta$:ifa$=""then853
  141. 992 print"[147] [204][197][211][197][210]-[212][207][208] [198][201][214][197] (3) "
  142. 993 print"(-) 1. [205]icro [205]achines '96               (1) 2. [215]orld [207]f [201]llusion"
  143. 994 print"(-) 3. [211]tory [207]f [212]hor                    (2) 4. [211]onic [212]he [200]edgehog"
  144. 995 print"(-) 5. [215][215][198] [210]aw                          (3)    [211]onic [212]he [200]edgehog [201][201]"
  145. 996 print"[200][207][212]-[212][201][208][211]:"
  146. 997 print"[198][201][198][193] [211][207][195][195][197][210],[205][197][199][193] [194][207][205][194][197][210][205][193][206][206]"
  147. 999 goto6000
  148. 1000 poke828,0
  149. 1001 print chr$(147) chr$(17)
  150. 1002 print "load" chr$(34);"sued*";chr$(34); ",8
  151. 1003 [153] [199](17) [199](17) [199](17) [199](17) "run"
  152. 1004 [151]631,13:[151]632,13:[151]198,2
  153. 1005 [153] [199](19);:[128]
  154. 1400 [151]828,0
  155. 1401 [153] [199](147) [199](17)
  156. 1402 [153] "load" [199](34);"foot*";[199](34); ",8
  157. 1403 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  158. 1404 poke631,13:poke632,13:poke198,2
  159. 1405 print chr$(19);:end
  160. 2000 print"[147] [201][206][198][207] "
  161. 2001 print"[196]a es wohl nur noch [211]oftware von [204][193][199][213][206][197] und [208][200][210][197][206][197][212][201][195] gibt,schrumpft"
  162. 2002 print"diese [210]ubrik wahnsinnig.[196]ie [204][193][199][213][206][197]-[199]ameswerden eigentlich nur gepreviewed,
  163. 2003 [153]"da sie ja in voller (NULL)ersion meistens in (NULL)str$64 erscheinen (wie z.peek. der left$it"
  164. 2004 [153]"(NULL)left$val atn(NULL)(NULL)val(NULL)(NULL)atn(NULL)right$(NULL)val chr$atn(NULL)val right$right$ in dieser atnus-  gabe).str$ie wenigen chr$ames die nicht"
  165. 2005 [153]"in (NULL)str$64 rauskommen werden natuerlich    noch (NULL)right$lenleft$(NULL)right$chr$ getestet.atnnsonsten"
  166. 2006 [153]"kann man nur noch (NULL)left$(NULL)val(NULL)val(NULL)right$len-chr$ames er-   warten.atnber dieser len.asc.(NULL). von"
  167. 2007 [153]"(NULL)left$(NULL)val(NULL)val(NULL)right$len arbeitet ewig langsam ! (NULL)nd   die letzten beiden chr$ames die er"
  168. 2008 [153]"mir zeigte,die waren (NULL)cheisse.(NULL).asc.(NULL).    wurde ja noch getestet,aber das"
  169. 2009 [153]"letzte chr$ame (NULL)val(NULL)(NULL)right$val(NULL)(NULL) war schlimmer als  (NULL)atn(NULL)right$(NULL)(NULL)(NULL)(NULL)val right$right$ !!! (NULL)atuerlich kommt"
  170. 2010 [153]"mir so ein (NULL)est nicht in meine (NULL)str$64     rein."
  171. 2011 [153]"right$hr koennt uebrigens auch chr$ames         schreiben und euch dann mit mir"
  172. 2012 [161]a$:[139]a$[178]""[167]2012
  173. 2013 [153]"in (NULL)erbindung setzen zwecks (NULL)est oder   (NULL)eroeffentlichung ..."
  174. 2014 [161]a$:[139]a$[178]""[167]2014
  175. 2015 [137]0
  176. 4000 [153]"load"
  177. 4001 [153]"openloadchr$(NULL)atnascright$(NULL)-(NULL)(NULL)(NULL) ascright$(NULL)valwait 7.(NULL)ertung"
  178. 4003 [153]"sys ( 1)  1. (NULL)right$(NULL) right$(NULL)(NULL)val(NULL)right$(NULL)(NULL)                7"
  179. 4004 [153]"sys ( 2)  2. (NULL)ime (NULL)achine                7"
  180. 4005 [153]" ((NULL)val)  3. left$unter's (NULL)oon               1"
  181. 4006 [153]" ((NULL)val)  4. (NULL)ctapolis                   1"
  182. 4007 [153]" ((NULL)val)  5. (NULL)atan                       1"
  183. 4008 [153]" ((NULL)val)     valskimo chr$ames                1"
  184. 4009 [153]" ( 3)     (NULL)angarudy                   7"
  185. 4013 [153]"open(NULL)atn(NULL)(NULL)val"
  186. 4014 [161]a$:[139]a$[178]""[167]4014
  187. 4015 [153]"loadleft$(NULL)(NULL)-(NULL)right$(NULL)(NULL):"
  188. 4016 [153]"(NULL)kizze in atnnleitung von (NULL)ettle-peekattle   (NULL)icht mehr dabei:"
  189. 4017 [153]"lenlystron,right$(NULL)"
  190. 4024 [161]a$:[139]a$[178]""[167]4024
  191. 4100 [153]"load"
  192. 4101 [153]"(NULL)(NULL)(NULL)(NULL)str$-(NULL)(NULL)(NULL) ascright$(NULL)valwait 7.(NULL)ertung"
  193. 4103 [153]"sys ( 1)  1. (NULL)atn(NULL) (NULL)c(NULL)(NULL)atnlen(NULL)val(NULL)               7"
  194. 4104 [153]" ( 4)  2. (NULL)aniac (NULL)ansion              7"
  195. 4105 [153]" ( 2)  3. (NULL)angarudy                   7"
  196. 4106 [153]" ( 3)  4. (NULL)latoon                     4"
  197. 4107 [153]" ((NULL)val)  5. (NULL)pace-(NULL)unnel                1"
  198. 4113 [153]"open(NULL)atn(NULL)(NULL)val"
  199. 4114 [161]a$:[139]a$[178]""[167]4114
  200. 4115 [153]"loadleft$(NULL)(NULL)-(NULL)right$(NULL)(NULL):"
  201. 4116 [153]"(NULL)ifeforce,(NULL)atnchr$(NULL)(NULL)val-chr$ames"
  202. 4117 [153]"(NULL)icht mehr dabei:"
  203. 4118 [153]"(NULL)ut (NULL)un"
  204. 4119 [161]a$:[139]a$[178]""[167]4119
  205. 4120 [137]0
  206. 4200 [153]"load right$n (NULL)roduction "
  207. 4201 [153]"(NULL)atnchr$(NULL)(NULL)val (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val:                        usrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  208. 4202 [153]"-(NULL)usic peekusiness (hoffentlich (NULL)str$64 3/96)"
  209. 4203 [153]"-(NULL)(NULL)(NULL) '97 (wahrscheinlich (NULL)str$64 1/97)"
  210. 4204 [153]"-1863 ((NULL)eien (NULL)ie ein (NULL)eisender in den          (NULL)(NULL)atn)"
  211. 4205 [153]"-atnlternative lenamp ((NULL)msetzung des                           (NULL)eality-chr$ames)"
  212. 4206 [153]"-(NULL)uedeball (ascussball-(NULL)imulation)"
  213. 4210 [161]a$:[139]a$[178]""[167]4210
  214. 4211 [137]0
  215. 6000 [153]"(NULL)eue gibt es nur im atnusnahmefall noch   beim naechsten mal !"
  216. 6001 [161]a$:[139]a$[178]""[167]6001
  217. 6002 [137]0
  218.