home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1997 2 / Power_Disk_64_97-02_1997-09_Lagune_de_Side_A.d64 / editorial (.txt) next >
Commodore BASIC  |  2023-02-26  |  21KB  |  460 lines
  1. 0 print"[147][153]":poke53280,12: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][175]"
  3. 2 print"[145][159]     [208][207][215][197][210] [196][201][211][203] 64 - [197]ditorial 2/97     "
  4. 3 print"[145][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][183]"
  5. 4 print"[159]1 = [208][196]64-[212]ermine 1997/98  2 = [201]mpressum"
  6. 5 print"3 = [204]iste                    4 = [206]ews"
  7. 6 print"5 = [214]orschau                 6 = [200]allo !"
  8. 7 print"7 = [196]as [205]ini-[199]ame            8 = [210]eaders' [195]orner"
  9. 8 print"9 = [211]pruch der [193]usgabe       10 = [196]emo"
  10. 9 print"11 = [200]auptmenu"
  11. 10 print"12 = [210][197][211][197][212]"
  12. 11 input"[215]elche [206]ummer ";a:print"[145][145][145]"
  13. 12 if a<1 or a>12then0
  14. 13 if a = 1 then goto100
  15. 14 if a = 2 then goto200
  16. 15 if a = 3 then goto300
  17. 16 if a = 4 then goto400
  18. 17 if a = 5 then goto500
  19. 18 if a =11 then goto700
  20. 20 if a = 6 then goto800
  21. 21 if a = 7 then gosub1000
  22. 22 if a =12 then goto600
  23. 23 if a =10 then goto900
  24. 24 if a = 9 then goto1150
  25. 25 if a = 8 then goto1200
  26. 26 goto0
  27. 100 print"[147] [208][196]64-[212]ermine 1997/98 "
  28. 103 print"3/97:[196]ezember 1997"
  29. 104 print"1/98:[205]aerz    1998"
  30. 105 print"2/98:[211]ommer   1998"
  31. 106 print"[193][206][205][197][210][203][213][206][199]:[194]ei redaktionellen [208]roblemen  koennen sich die [212]ermine aendern."
  32. 108 geta$:ifa$=""then108
  33. 109 goto0
  34. 200 print"[147]"
  35. 201 print"[145][201][205][208][210][197][211][211][213][205]"
  36. 202 print"[208][196]64 erscheint unregelmaessig und kostetim [214]ersand [208]orto + 1 [196][205] fuer die"
  37. 203 print"[196]isk.[201]m [212]ausch gegen eine andere be-    spielte [196]isk ist sie umsonst !"
  38. 204 print"[196]ie [194]eitraege sind:"
  39. 205 print"-von [199]randmaster [193].[202]. ([204]agune)"
  40. 207 print"-von [204]esern"
  41. 208 print"-[208]ublic-[196]omain"
  42. 209 print"[193]ndy [202]akesch"
  43. 210 print"[194]ergstrasse 7                           92237 [211]ulzbach-[210]osenberg"
  44. 211 print"[212]el.:09661/54567"
  45. 212 print"[212]he [199]randmaster is watching you !"
  46. 213 get m$:if m$=""then213
  47. 214 goto0
  48. 300 print"[147] [204][201][211][212][197] "
  49. 302 print"[211][208][201][197][204][197][212][197][201][204]:"
  50. 303 print"[193]ndy [202]akesch"
  51. 310 print"[208][210][207][199][210][193][205][205][197]:"
  52. 311 print"[198]lyin' [200]igh:[193]ndy [202]akesch"
  53. 314 print"[198]ive [195]ard [211]tud:[208]ublic [196]omain"
  54. 315 print"[215]itze [201][201]:[193]ndy [202]akesch"
  55. 316 print"[199]nurz:[208]hrenetic [211]oft"
  56. 318 print"[205][213][211][201][203]:[193]ndy [202]akesch"
  57. 325 print"[197][196][201][212][207][210][201][193][204]:[193]ndy [202]akesch                  [196][197][205][207]:siehe [212]itelbild"
  58. 326 print"[201][206][200][193][204][212]:[193]ndy [202]akesch"
  59. 329 print"[205][197][206][213][211]:[193]ndy [202]akesch"
  60. 330 print"[212][201][212][197][204][194][201][204][196]:[205]it [200]ilfe von [193][205][201][195][193]-[208][193][201][206][212] er-"
  61. 331 print"          stellt von [193]ndy [202]akesch"
  62. 333 geta$:ifa$=""then333
  63. 334 print"[147] [194]estelliste "
  64. 335 print"[200][213][210][218] 10/91                       1.-  [196][205]"
  65. 336 print"[200][213][210][218] 11/91                       1.-  [196][205]"
  66. 337 print"[208][207][215][197][210] [196][201][211][203] 64 12/91              1.50 [196][205]"
  67. 338 print"[208][207][215][197][210] [196][201][211][203] 64 2/92               1.50 [196][205]"
  68. 339 print"[208][207][215][197][210] [196][201][211][203] 64 6/92               1.50 [196][205]"
  69. 340 print"[208][207][215][197][210] [196][201][211][203] 64 8/92               1.50 [196][205]"
  70. 341 print"[208][207][215][197][210] [196][201][211][203] 64 10/92              1.50 [196][205]"
  71. 342 print"[208][207][215][197][210] [196][201][211][203] 64 1/93               2.-  [196][205]"
  72. 343 print"[208][207][215][197][210] [196][201][211][203] 64 2/93               2.-  [196][205]"
  73. 344 print"[208][207][215][197][210] [196][201][211][203] 64 3/93               2.-  [196][205]"
  74. 345 geta$:ifa$=""then345
  75. 362 print"[147][204]ieferbedingungen:[218]um [199]esamtpreis kommenzusaetzlich noch 1.- [196][205] pro [196]isk"
  76. 363 print"und die [214]ersandkosten (im [206]ormalfall    1.30 [196][205]).[194]ezahlt wird per [214]orkasse"
  77. 364 print"in [194]riefmarken.[205]an kann aber auch ein   [212]auschgeschaeft eingehen.[196]a die"
  78. 365 print"alten [208][196]64-[193]usgaben eine kleine [213]eber-  arbeitung benoetigen wuerden,saehe"
  79. 366 print"das so aus:[201]ch bekomme 1 bespielte und  1 leere [196]isk pro [196]isk meinerseits."
  80. 367 print"[196]ie [213]eberarbeitung entspricht jeweils   dem [208]reis in der [204]iste - nur so zur
  81. 368 [153]"right$nfo !"
  82. 370 [161]a$:[139]a$[178]""[167]370
  83. 371 [153]"(NULL)enn die (NULL)are beschaedigt ist oder nichtausgeliefert wird,dann ist die"
  84. 372 [153]"(NULL)ost schuld ! right$ch werde zwar nach (NULL)oeg- lichkeit alle (NULL)ngereimtheiten in"
  85. 373 [153]"(NULL)rdnung bringen,aber etwaiger finan-    zieller (NULL)erlust muss von der (NULL)ost"
  86. 374 [153]"eingeklagt werden.ascuer das atnusliefern   sollten mir bitte 30 (NULL)age gewaehrt"
  87. 375 [153]"werden !"
  88. 392 [161]a$:[139]a$[178]""[167]392
  89. 393 [137]2000
  90. 400 [153]"loadopen"
  91. 401 [153]" (NULL)val(NULL)(NULL) "
  92. 402 [153]"peekis diese atnusgabe rauskommt,kann man dasfolgende vielleicht schon gar"
  93. 403 [153]"nicht mehr als (NULL)ews bezeichnen,aber was soll's ? (NULL)atn(NULL)left$val(NULL) atn(NULL)peekval(NULL)(NULL)(NULL) aus (NULL)val(NULL)-"
  94. 404 [153]"right$(NULL)val(NULL)peek(NULL)(NULL)chr$ sucht(e ?) noch nach (NULL)ro-      grammierern fuer sein chr$ame-(NULL)rojekt"
  95. 405 [153]"(NULL)right$(NULL)(NULL)right$(NULL)(NULL)right$(NULL)(NULL)right$.str$iese (NULL)imulation basiert aufdem (NULL)(NULL)len(NULL)(NULL) (NULL)(NULL)(NULL)val peekand (NULL)o. 20.str$as (NULL)ro-
  96. 406 print"jekt ist auch zukunftsorientiert:[205]athes will die [208]rogrammierer mit ihren"
  97. 407 print"[198]aehigkeiten im [200]inblick auf weitere    [211]pielserien kennenlernen.[197]r plant"
  98. 408 print"von seinem [199]ame [213]msetzungen auf den     [193][205][201][199][193] und [208][195].[196]ie [199]ames sollen als"
  99. 409 print"[203]ommerzware erscheinen.[198]uer naehere     [201]nfos zum [199]ame schreibt bitte an"
  100. 410 print"die [193]dresse in der [210][197][193][196][197][210]'[211] [195][207][210][206][197][210]."
  101. 413 geta$:ifa$=""then413
  102. 414 print"[147][201]ch habe neulich meine ersten zwei [195][196]-  [210]eviews fuers [197][216][208][213][204][211] geschrieben."
  103. 415 print"[218]usaetzlich schreibe ich jetzt wohl oderuebel auch noch fuer [206][213][205][205][197][210] 1,das"
  104. 416 print"[205]ag des [202]ugendzentrums in [193]mberg.[201]n     dieser [205]oechte-gern-[211]tadt war"
  105. 417 print"letztes [202]ahr uebrigens der [204]andesgarten-schlauch."
  106. 418 print"[201]ch schreibe uebrigens jetzt auch etwas in der [205][193][201][204] [205][193][196][206][197][211][211].[201]s' echt"
  107. 419 print"lesenswert das [196]isk-[205]ag.[193]ehnlich wie    [196][201][199][201][212][193][204] [212][193][204][203] und [208][196]64 ist sie mehr"
  108. 420 print"oder weniger eine von-[204]esern-fuer-[204]eser-[218]eitschrift und erscheint glaub'"
  109. 421 print"monatlich.[212]ja,wenn die [208][196]64-[204]eser auch  mal [194]eitraege zu [208][196]64 beitragen"
  110. 422 print"wuerden,dann koennte ich vielleicht auchalle 2 [205]onate oder gar jeden [205]onat"
  111. 423 print"eine [193]usgabe rausbringen.[193]ber leider    muss ich im [199]egensatz zum [205][193][201][204]"
  112. 424 print"[205][193][196][206][197][211][211] [208]ublisher [212][193][212][211][193][197][195][200][204][201][195][200] mein [205]ag allein erstellen.[196]abei braucht man"
  113. 425 print"fuer [208][196]64 doch gar kein besonderes      [211]chreibprogramm.[205]an kann die [194]ei-"
  114. 426 geta$:ifa$=""then426
  115. 427 print"traege einfach in [194]asic schreiben,ganz  simple ! [207]der man schreibt einfach"
  116. 428 print"einen mit [210][213][206] zu startenden [196]isk-[204]etter der nach [205]oeglichkeit eines der"
  117. 429 print"[205]enus wiederlaedt.[196]as ist doch wirklich kein [208]roblem,oder ? [213]nd wenn kein"
  118. 430 print"[205]enu geladen wird - auch nicht schlimm ![213]nd macht doch mal wieder bei den"
  119. 431 print"[204][197][211][197][210](!!!)-[195]harts mit ! [197]ure [212]op [198]ive   bei den [212][207][208] [212][197][206] und eure [212]op [212]hree"
  120. 432 print"bei den [212][207][208] [198][201][214][197] ! [207]der bringt einfach  [214]orschlaege fuer neue [195]harts.[197]s"
  121. 433 print"koennten ja z.[194]. [211]taedte-[195]harts sein    oder was auch immer.[201]n der [214]er-"
  122. 434 print"gangenheit gab's in der [208][196]64 auch schon mal [205]usik-[195]harts,also ringt euch"
  123. 435 print"doch mal dazu durch [208][196]64-[194]eitraege zu   schreiben oder einfach bei den"
  124. 436 print"[195]harts mitzumachen ! [196]enkt auch mal an  [204]eserbriefe.[208][193][213][204]-[208][204][207][196][196][197][210]-like wird"
  125. 437 print"bevorzugt !"
  126. 438 geta$:ifa$=""then438
  127. 439 print"[147][197]ine [193]rt '[195]64 [212]otal' [204]iste gibt es bei  [205][193][210][212][201][206] [203][207][208][197][212][218][203][217].[211]ie enthaelt fast"
  128. 440 print"alles fuer [195]64,[214][195]20,[195]128,[195]16,[195]116 und   [208][204][213][211]/4.[201]m einzelnen sind das"
  129. 441 print"[200]aendler,[215]erkstaetten,[211]oftware,...      [193]lso alles,was das [195]64-[200]erz begehrt
  130. 442 [153]"und mehr ! right$hr erhaltet diese (NULL)iste wie folgt:"
  131. 443 [153]"-atnufwandsentschaedigung: 3 str$(NULL) (NULL)orto"
  132. 444 [153]"                       + 2 str$(NULL) fuer die"
  133. 445 [153]"                              (NULL)iste"
  134. 446 [153]"-wahlweise auf (NULL)apier oder str$isk (chr$val(NULL)(NULL))"
  135. 447 [153]"atndresse:                                usrusrusrusrusrusrusr"
  136. 448 [153]"(NULL)artin (NULL)opetzky                         peekurgtreswitzer (NULL)tr. 16"
  137. 449 [153]"92709 (NULL)oosbach                          (NULL)el.: 09656/1772"
  138. 450 [153]"peek(NULL)(NULL) : 096561772-0001"
  139. 451 [161]a$:[139]a$[178]""[167]451
  140. 452 [153]"loadatnlenleft$ mid$atn ... (NULL)enn ihr (NULL)exte fuer die      (NULL)eaders' lenorner schreibt ((NULL)etters"
  141. 453 [153]"(NULL)o (NULL)he vald,(NULL)essages,atnnzeigen oder        eventuell auch (NULL)teckbriefe (_ keine
  142. 454 print"[210]ein-[193]dressen wie bei den [194]iro [194]udies !)),dann versucht diese [212]exte ab"
  143. 455 print"[218]eile 10000 zu schreiben und mindestens jede zweite [218]eile freizulassen !"
  144. 456 print"oder schreibt [212]exte fuer die [210]eaders'   [195]orner einfach auf [208]apier."
  145. 457 print"[193]lle restlichen [194]eitraege sollten nach  [205]oeglichkeit eigenstaendige [208][210][199]s"
  146. 458 print"mit [199]ross-/[203]leinschrift sein.[211]ie solltenjeweils das entsprechende [205]enufile"
  147. 459 print"oder einfach das [200]auptmenu nachladen.   [197]in geaenderter [218]eichensatz im [195]64-
  148. 460 [153]"(NULL)tandardmodell,aber mit deutschen (NULL)m-   lauten,ist ebenfalls nicht uner-"
  149. 461 [153]"wuenscht - aber lasst mir das \-(NULL)eichen und den @ in (NULL)uhe !!!"
  150. 462 [161]a$:[139]a$[178]""[167]462
  151. 499 [137]0
  152. 500 [153]"load"
  153. 501 [153]"on (NULL)(NULL)(NULL)(NULL)lenleft$atn(NULL) "
  154. 502 [153]"(NULL)(NULL)right$val(NULL)val(NULL)valright$(NULL):"
  155. 503 [153]"- lenharts"
  156. 506 [153]"- right$m (NULL)est:"
  157. 507 [153]"  - (NULL)hrenetische chr$ames ???"
  158. 510 [153]"  - (NULL)(NULL)str$right$val:(NULL)chau mer mal ...               - u.a."
  159. 513 [153]"(NULL)(NULL)(NULL)chr$(NULL)atn(NULL)(NULL)val:"
  160. 514 [153]"- (NULL)str$-chr$ame"
  161. 515 [153]"- (NULL)itze right$right$"
  162. 516 [153]"- (NULL)(NULL)(NULL)-(NULL)(NULL)chr$: peekval(NULL)chr$peekval(NULL)(NULL) right$right$                  - u.a."
  163. 520 [153]"(NULL)(NULL)(NULL)right$(NULL):(NULL)ews-(NULL)otes,(NULL)atest (NULL)tuff,atnlbum der atnusgabe,(NULL)usic-peekox und (moeglicher)"
  164. 521 [153]"(NULL)(NULL)(NULL)-atnlen(NULL) wird left$valatn(NULL)left$val(NULL) (NULL)(NULL)(NULL)atn sein !"
  165. 522 [153]"right$m valstr$right$(NULL)(NULL)(NULL)right$atn(NULL) gibt es das (NULL)ebliche und   ein (NULL)ini-chr$ame."
  166. 534 [161]a$:[139]a$[178]""[167]534
  167. 535 [137]0
  168. 600 [158]64738
  169. 700 [151]828,0
  170. 701 [153] [199](147) [199](17)
  171. 702 [153] "load"[199](34);"haupt*";[199](34); ",8
  172. 703 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  173. 704 poke631,13:poke632,13:poke198,2
  174. 705 print chr$(19);:end
  175. 800 print"[147] [200][193][204][204][207] ! "
  176. 801 print"[206]ach meinem [204]ondon-[194]esuch anfang [193]pril  wegen dem [211]uede [198]anclubgig war ich
  177. 802 [153]"valnde mid$uni erneut in (NULL)ondon.right$n right$(NULL)asc(NULL)(NULL)str$    right$(NULL)(NULL)atn(NULL)str$ wurde dort der (NULL)ideo-lenlip"
  178. 803 [153]"zu (NULL)uedes letzter (NULL)ingle-atnuskopplung ausihrem (NULL)latin-atnlbum len(NULL)(NULL)right$(NULL)chr$close(NULL)(NULL) ge-"
  179. 804 [153]"dreht - und der ascanclub wurde dazu ein- geladen !"
  180. 805 [153]"(NULL)ieder zurueck ging ich dann zum chr$right$atn(NULL)(NULL)(NULL) (NULL)ascclose(NULL)(NULL)len(NULL) ascestival mit u.a. asc(NULL)(NULL)(NULL) right$(NULL)"
  181. 806 [153]"(NULL)left$val (NULL)(NULL)atn(NULL)chr$left$(NULL)val(NULL)left$(NULL)(NULL)(NULL)val,deren (NULL)aenger grossenmid$ubel empfing,als er sagte:'(NULL)nd wir
  182. 807 print"scheissen auf die [204]ove [208]arade !'-das    [203]onzert war naemlich am [204]ove [208]arade
  183. 808 [153]"(NULL)ochenende (str$rug (NULL)arade ?!?)."
  184. 809 [153]"(NULL)str$64 ist gerettet ! str$ank lenleft$atn(NULL)(NULL)s (NULL)erbung in der str$right$chr$right$(NULL)atn(NULL) (NULL)atn(NULL)(NULL) gibt es jetzt"
  185. 810 [153]"tatsaechlich schon mehr als 2 (NULL)eser !!! atnpropos (NULL)eser:(NULL)chaut doch mal in"
  186. 811 [153]"die neue (NULL)valatnstr$val(NULL)(NULL)' len(NULL)(NULL)(NULL)val(NULL) !!!"
  187. 812 [161]a$:[139]a$[178]""[167]812
  188. 813 [153]"load(NULL)rogrammierer sollten sich mal die (NULL)ews anschauen ! str$ort sind ein paar"
  189. 814 [153]"right$nfos zum (NULL)right$(NULL)(NULL)right$(NULL)(NULL)right$(NULL)(NULL)right$-(NULL)rojekt !"
  190. 815 [153]"atnllgemein an die (NULL)eser:peeketeiligt euch   bitte noch aktiver an der (NULL)str$64 !"
  191. 816 [153]"right$hr koennt ab sofort in der (NULL)eaders'    lenorner (NULL)essages hinterlassen,peekrief-
  192. 817 print"freundschaften begruenden,swappen oder  einfach an mich als [210]edakteur"
  193. 818 print"dieses [205]ags schreiben ! [212]extbeitraege   im [194]ereich [205]usik oder andere [193]rt"
  194. 819 print"[208]rogramme,[196]emos,[205]usikstuecke,etc. sind  auch immer erwuenscht ! [197]s gibt"
  195. 820 print"keinen [212]ext-[197]ditor fuer [208][196]64,also habt  ihr eine gewisse [198]reiheit.[194]asic"
  196. 821 print"waere mir aber am liebsten,da ich diese [212]ext-[194]eitraege so bearbeiten kann,"
  197. 822 print"dass man danach wieder in ein [205]enu zu-  rueckkommt.[215]enn ihr mich das [218]eug"
  198. 823 print"nicht bearbeiten lassen wollt,auch [207][203]:  [211]orgt dann einfach dafuer,dass am"
  199. 824 print"[197]nde das [198]ile [200][193][213][208][212][205][197][206][213] nachgeladen     wird.[198]alls ihr zu eurer [193]ktivitaet"
  200. 825 print"noch [198]ragen habt,meldet euch einfach beimir ![145][145]"
  201. 826 geta$:ifa$=""then826
  202. 827 print"[147][193][195][200][212][213][206][199] !!! [205]usikstuecke sollten nach   [205]oeglichkeit mit dem [193][195][212][201][207][206] [210][197][208][204][193][217]
  203. 828 [153]"str$emomaker verwendbar sein !"
  204. 829 [161]a$:[139]a$[178]""[167]829
  205. 830 [153]"(NULL)lus ein paar (NULL)ferdestaerken: (NULL)enn die  (NULL)rogrammierung von asc(NULL)(NULL)right$(NULL)' left$right$chr$left$"
  206. 831 [153]"nicht solche (NULL)robleme gemacht haette    (siehe chr$ame),dann waere diese atnus-"
  207. 832 [153]"gabe schon 2-3 (NULL)ochen eher fertig ge-   wesen. atnuch egal ! (NULL)it (NULL)left$(NULL)val(NULL)val(NULL)right$len"
  208. 833 [153]"hat sich zuletzt naemlich noch was er-  geben:"
  209. 834 [153]"(NULL)tay tuned for more on this ...                  next time !!!"
  210. 835 [161]a$:[139]a$[178]""[167]835
  211. 890 [137]0
  212. 900 [151]828,0
  213. 901 [153] [199](147) [199](17)
  214. 902 [153] "load"[199](34);"ss.demo";[199](34); ",8
  215. 903 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  216. 904 poke631,13:poke632,13:poke198,2
  217. 905 print chr$(19);:end
  218. 1000 print"[147] [196]as [205]ini-[199]ame "
  219. 1001 print"[196]as heutige [205]ini-[199]ame ist ein [205]ini-[209]uiz fuer viel [211]pieler !"
  220. 1002 print"[197]s geht hier um [198]ragen zum [214]olkssport   [198]ussball ..."
  221. 1003 input"[215]ieviele [211]pieler";e
  222. 1004 dimf(e),e$(e)
  223. 1005 print"1.[194]ei welchem [214]erein spiele [201][195][200] in der    momentanen,neuen [211]aison"
  224. 1006 print"[198]ussball ?                            a) [211][214] [203]auerhof"
  225. 1007 print"b) 1.[198][195] [211]chlicht                        c) [198][195] [194]auern [205]uenchen"
  226. 1008 forz=1toe
  227. 1009 print"[211]pieler"z:input"[145]";e$(z)
  228. 1010 ife$(z)="a"thenf(z)=f(z)-1
  229. 1011 ife$(z)="b"thenf(z)=f(z)+1
  230. 1012 ife$(z)="c"thenf(z)=f(z)-1
  231. 1013 nextz
  232. 1014 print"[204]oesung: b)"
  233. 1016 print"2.[196]arf der [212]orwart einen [197]inwurf eines    [205]itspielers mit den [200]aenden"
  234. 1017 print"fangen ?                              a) [202]a"
  235. 1018 print"b) [206]ein                                 c) [207]der doch ?!?"
  236. 1019 forz=1toe
  237. 1020 print"[211]pieler"z:input"[145]";e$(z)
  238. 1021 ife$(z)="a"thenf(z)=f(z)-1
  239. 1022 ife$(z)="b"thenf(z)=f(z)+1
  240. 1023 ife$(z)="c"thenf(z)=f(z)-1
  241. 1024 nextz
  242. 1025 print"[204]oesung: b)"
  243. 1026 print"3.[215]as kann der [203]apitaen der den [205]uenz-    wurf gewinnt waehlen ?"
  244. 1027 print"a) [193]nstoss oder [211]eite                   b) [211]eite"
  245. 1028 print"c) [196]rogen"
  246. 1029 forz=1toe
  247. 1030 print"[211]pieler"z:input"[145]";e$(z)
  248. 1031 ife$(z)="a"thenf(z)=f(z)-1
  249. 1032 ife$(z)="b"thenf(z)=f(z)+1
  250. 1033 ife$(z)="c"thenf(z)=f(z)-1
  251. 1034 nextz
  252. 1035 print"[204]oesung: b)"
  253. 1036 print"4.[215]er wird 97/98 [196]eutscher [205]eister ?"
  254. 1037 print"a) die [194]orussia                         b) der 1.[198][195]"
  255. 1038 print"c) d"
  256. 1039 forz=1toe
  257. 1040 print"[211]pieler"z:input"[145]";e$(z)
  258. 1041 ife$(z)="a"thenf(z)=f(z)-1
  259. 1042 ife$(z)="b"thenf(z)=f(z)-1
  260. 1043 ife$(z)="c"thenf(z)=f(z)+1
  261. 1044 nextz
  262. 1045 print"[204]oesung: d"
  263. 1046 print"5.[215]ie weit ist der 11m [208]unkt von der      [212]orraumlinie entfernt ?"
  264. 1047 print"a) 11.00 m                              b) 6.00 m"
  265. 1048 print"c) halb so weit wie von der [212]orlinie"
  266. 1049 forz=1toe
  267. 1050 print"[211]pieler"z:input"[145]";e$(z)
  268. 1051 ife$(z)="a"thenf(z)=f(z)-1
  269. 1052 ife$(z)="b"thenf(z)=f(z)-1
  270. 1053 ife$(z)="c"thenf(z)=f(z)+1
  271. 1054 nextz
  272. 1055 print"[204]oesung: c)"
  273. 1056 print"[197]rgebnis:[205]aximal  5 [208]unkte                       [205]inimal -5 [208]unkte"
  274. 1057 geta$:ifa$=""then1057
  275. 1058 forz=1toe
  276. 1059 print"[211]pieler"z":"f(z)
  277. 1060 geta$:ifa$=""then1060
  278. 1061 nextz
  279. 1062 return
  280. 1072 geta$:ifa$=""then1072
  281. 1073 print"[205]usiker des [202]ahres                      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  282. 1074 print"[215][201][206][206][197][210]:                                 [183][183][183][183][183][183]"
  283. 1077 print"[195]hris [201]saak - [196]er [205]ann,der gerne mal ein[215][201][195][203][197][196] [199][193][205][197] spielt,meldet sich mit
  284. 1078 [153]"asc(NULL)(NULL)val(NULL)val(NULL) peek(NULL)(NULL)val zurueck und erhaelt somit  so ziemlich als einziger in den"
  285. 1079 [153]"90'ern den traditionellen (NULL)(NULL)len(NULL) atn(NULL)str$ (NULL)(NULL)(NULL)(NULL) ..."
  286. 1080 [153]"(NULL)(NULL)(NULL)(NULL)val(NULL) (NULL)(NULL):                              usrusrusrusrusrusrusrusrusr"
  287. 1083 [153]"(NULL)noop str$oggy str$ogg - lenalvin peekroadus ist   wohl das atnushaengeschild der"
  288. 1084 [153]"chr$-ascunk-atnera.(NULL)nd chr$angsta-(NULL)ike heisst es  fuer ihn (NULL)(NULL)(NULL)str$val(NULL) right$(NULL) (NULL)left$valcloselenatn(NULL)val ..."
  289. 1085 [161]a$:[139]a$[178]""[167]1085
  290. 1086 [153]"(NULL)usikerin des mid$ahres                    usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  291. 1087 [153]"(NULL)right$(NULL)(NULL)val(NULL):                                 usrusrusrusrusrusr"
  292. 1088 [153]"(NULL)heryl lenrow - (NULL)ommer '94 in den (NULL)(NULL)atn     schon laengst ein (NULL)tar kam sie"
  293. 1089 [153]"valnde '94 mit atn(NULL)(NULL) right$ (NULL)atn(NULL)(NULL)atn str$(NULL) auch mal auf(NULL)right$(NULL)atn dran - und str$eutschland fand's
  294. 1090 print"gut ..."
  295. 1091 print"[210][213][206][206][197][210] [213][208]:                              [183][183][183][183][183][183][183][183][183]"
  296. 1093 print"[200]eather [206]ova - [205]it [207][217][211][212][197][210] gelang ihr der[196]urchbruch in diesem [202]ahr - bei"
  297. 1094 print"den [203]ritikern.[196]ie [193]llgemeinheit be-     achtete das [193]lbum und die [211]ingle"
  298. 1095 print"[215][193][204][203] [212][200][201][211] [215][207][210][204][196] weniger,vor allem hier  in [196]eutschland ..."
  299. 1099 geta$:ifa$=""then1099
  300. 1107 goto0
  301. 1150 print"[147] [211][208][210][213][195][200] [196][197][210] [193][213][211][199][193][194][197] "
  302. 1151 print"[198]rage eines [212]echniker-[211]chuelers einer   [198][207][211]:'[202]a,was wird so ein [211]ozi
  303. 1152 [153]"denn eigentlich,wenn er dann sein ascach- atnbi hat ?'"
  304. 1153 [153]"(NULL)lassenleiter:'atnrbeitslos !'"
  305. 1156 [161]a$:[139]a$[178]""[167]1156
  306. 1157 [137]0
  307. 1200 [153]"load(NULL)eaders' lenorner                         usrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  308. 1201 [153]"left$ier ist (NULL)latz fuer valure str$inge - peekriefe,lenontacts,atnnzeigen,(NULL)essages,..."
  309. 1202 [153]"str$as ... steht uebrigens fuer irgendwas, das ihr hier veroeffentlicht"
  310. 1203 [153]"wollt.(NULL)bwohl - eigentlich habe ich doch schon alles aufgelistet,was man"
  311. 1204 [153]"hier in dieser (NULL)ubrik moeglicherweise   veroeffentlichen koennte ..."
  312. 1205 [153]"mid$edenfalls ist valure (NULL)itarbeit an dieser (NULL)ubrik gefragt ! atnnzeigen sind"
  313. 1206 [153]"natuerlich umsonst !"
  314. 1207 [161]a$:[139]a$[178]""[167]1207
  315. 1208 [141]3000
  316. 1209 [153]"(NULL)athes atnlberto                          valigenheimstr. 1"
  317. 1210 [153]"63263 (NULL)eu-right$senburg"
  318. 1211 [153]"ascalk peekrueckner ((NULL)r. (NULL)inger)             str$r. (NULL). peekreitung (NULL)tr. 18"
  319. 1212 [153]"08529 (NULL)lauen"
  320. 1213 [153]"(NULL)arc (NULL)ayser (lenhamp)                     (NULL)ittekamp 9"
  321. 1214 [153]"30177 left$annover                          (NULL)el.: 0511/667971"
  322. 1215 [153]"atnndre (NULL)oboda (atnwar)                     (NULL)onnenstr. 42"
  323. 1216 [153]"09337 left$ohenstein-valr.":[141]1320
  324. 1217 [161]a$:[139]a$[178]""[167]1217
  325. 1218 [141]3002
  326. 1219 [153]"(NULL)athes atnlberto hat right$nteresse am (NULL)wappen und an lenontacts:'valine gute atnuswahl
  327. 1220 print"an [208][196]-[211]tuff aller [193]rt ist vorhanden und auch noch anderes an [203]ommerzwaren.
  328. 1221 [153]"atnuch habe ich einige neue,ungebrauchte  (NULL)achen an left$ard+(NULL)oft zum (NULL)len/len64 und
  329. 1222 print"[205]usik-[195][196]s,[194]uecher,was ich guenstig ab-  gebe,alles viel billiger als die"
  330. 1223 print"angegebenen [206]eupreise aus meiner [204]iste.'"
  331. 1224 print"[194]esagte [204]iste gibt es fuer 1 [196][205] [210]ueck-  [208]orto bei [205]athes.[196]ie [193]dresse war"
  332. 1225 print"eben zuvor bei den [194][201][210][207] [194][213][196][201][197][211] zu       finden ..."
  333. 1226 geta$:ifa$=""then1226
  334. 1227 gosub3002
  335. 1228 print"[193][195][200][212][213][206][199] !                               [214][197][210][203][193][213][198] [214][207][206] [208][207][211][212][197][210][206] ([208][204][193][203][193][212][197][206]) !!!
  336. 1229 [153]"left$abe jede (NULL)enge (NULL)oster bei mir zuhause  herumliegen,die die (NULL)lakatkleber"
  337. 1230 [153]"kleben tun !!!                          (NULL)nter anderem von:"
  338. 1231 [153]"(NULL)right$len (NULL)atnlen (NULL)(NULL)val,3(NULL),peekackstreet peekoys und str$e (NULL)a(NULL)oul.(NULL)nd noch viele mehr !!!"
  339. 1232 [153]"str$ie (NULL)lakate sind streng limitiert und   nur in geringer atnnzahl verfuegbar.
  340. 1233 print"[208]reise:"
  341. 1234 print"1 [208]lakat : 10 [196][205]                        3 [208]lakate: 25 [196][205]"
  342. 1235 print"5 [208]lakate: 40 [196][205]                        + [214]ersandkosten "
  343. 1236 print"[212]el.: 0511/667971 ([205]arc [203]ayser bzw.                        [195]hamp)"
  344. 1237 geta$:ifa$=""then1237
  345. 1238 gosub3002
  346. 1239 print"[196]er [195]hamp will auch noch ein paar       [211][212][210][197][197][212][198][201][199][200][212][197][210] [211]ammelbilder"
  347. 1240 print"swappen !!!"
  348. 1241 print"[208]lus:[197]r sucht noch individuelle 64er    [183][183][183][183] [193]usgaben aus den [202]ahren"
  349. 1242 print"      84-86 und 88-92."
  350. 1243 print"[193]lso ... wer dem [195]hamp weiterhelfen     kann,der sollte ihn vielleicht"
  351. 1244 print"mal unter der [206]ummer auf der vorherigen [211]eite anrufen oder an die [193]dresse"
  352. 1245 print"von der [194][201][210][207] [194][213][196][201][197][211] [211]eite schreiben !":gosub1400
  353. 1246 geta$:ifa$=""then1246
  354. 1247 gosub3004
  355. 1248 print"[193]n [195][200][193][205][208]:[214]ielen [196]ank fuer [196]ein [197]ngage-  ment in [211]achen [208][207][215][197][210][160][196][201][211][203] 64 !"
  356. 1249 print"[193]llein an der [194][201][210][207] [194][213][196][201][197][211] [208]age sieht manschon,dass die [208][196]64 sich ganz"
  357. 1250 print"langsam einen [206]amen neben [205]ags wie der  [196][201][199][201][212][193][204] [212][193][204][203],der [212][201][199][197][210] [196][201][211][203] oder"
  358. 1251 print"der [205][193][201][204] [205][193][196][206][197][211][211] macht.[207]hne [196]ich waere  das vielleicht nicht so gut ge-"
  359. 1252 print"laufen !!!"
  360. 1253 print"[195]heers,[193].[202]."
  361. 1254 geta$:ifa$=""then1254
  362. 1255 gosub3006
  363. 1260 print" [200]allo [193]ndy !!!"
  364. 1261 print"[201]ch schreibe [196]ir mal einen kleinen"
  365. 1262 print"[204]eserbrief. [201]ch hoffe,das ich das"
  366. 1263 print"jetzt richtig mache. [201]ch schliesse"
  367. 1264 print"mich erstmal dem [194]rief vom [195]hamp"
  368. 1265 print"an. [196]u koenntest ruhig 'ne [193]ddy-"
  369. 1266 print"liste machen. [196]amit man weiss,wer"
  370. 1270 print"alles [196]eine [196]isk bekommt. [196]eine"
  371. 1271 print"[205][205]!-[194]eitraege gebe ich an [205][210][209]"
  372. 1272 print"weiter. [201]ch denke schon,dass er das"
  373. 1273 print"veroeffentlicht. [197]r freut sich"
  374. 1274 print"ja genau so wie [196]u ueber [194]eitraege."
  375. 1275 print"[215]enn es [196]ich nicht stoert,schreibe"
  376. 1276 print"ich auch [215]itze fuer [196]eine [193]usgabe,"
  377. 1277 print"die aber schon auf frueheren [205][205]!-"
  378. 1278 geta$:ifa$=""then1278
  379. 1279 gosub3006
  380. 1280 print"[193]usgaben waren,aber von mir sind."
  381. 1281 print"[215]ie [196]u sicher weisst,wird sich das"
  382. 1282 print"[205]agsys aendern,d.h. die naechste"
  383. 1283 print"[193]usgabe sieht anders aus. [214]ielleicht"
  384. 1284 print"kannst [196]u ja unser altes [205]agsys fuer"
  385. 1285 print"[196]ein [205]ag uebernehmen. [210]ede doch mal"
  386. 1286 print"mit [205][210][209]."
  387. 1287 print"[206]un zu meinem [208]seudo. [206]un rate mal,"
  388. 1288 print"was [193]war bedeuten koennte."
  389. 1290 print"[193] steht fuer meinen [214]ornamen,"
  390. 1291 print"[215] steht fuer meinen [198]amiliennamen"
  391. 1292 print"und [193][210] fuer [193]rchiv. [211]o kam ich auf"
  392. 1293 print"[193]war. [213]eberrascht ???"
  393. 1294 print"[211]o,ich mache jetzt [211]chluss.[212]schuess"
  394. 1295 print"        * [193]war *"
  395. 1296 print"       ----------"
  396. 1297 geta$:ifa$=""then1297
  397. 1300 gosub3006
  398. 1301 print"[193].[202].:[197]rst mal danke fuer den [194]rief.[215]as  eine [193]ddycorner angeht,das"
  399. 1302 print"ist glaub' ich schon geregelt,es sei    denn,du hast auf den eben vorange-
  400. 1303 [153]"gangenen (NULL)eiten nicht richtig aufge-    passt ... man weiss ja nicht,ob du
  401. 1304 print"da nicht gerade in irgendeiner [198]orm be- schaeftigt warst ([193]uftragsmord,"
  402. 1305 print"[194]abewatching,...).[196]as mit dem [205]agsys istkeine so gute [201]dee.[201]ch habe das"
  403. 1306 print"[208][196]64-[207]utfit jetzt schon seit 1991 so.[201]chwill das jetzt einfach nicht mehr"
  404. 1307 print"grossartig aendern,ist eh nur [205]ittel zum[218]weck.[213]nd die [211]ache mit dem [208]seudo
  405. 1308 [153]"konnte man ja wohl echt nicht erraten ! (NULL)er kommt schon auf atn(NULL)lenleft$right$(NULL) ?!?"
  406. 1309 [153]"str$as mit den (NULL)itzen geht natuerlich auch in (NULL)rdnung - falls sie gut genug"
  407. 1310 [153]"sind ! (NULL)ontaktier mich deswegen einfach nochmal !"
  408. 1311 [161]a$:[139]a$[178]""[167]1311
  409. 1312 [137]0
  410. 1320 [153]"lenhristian (NULL)iege (len.asc.(NULL).)                mid$osef left$oesl (NULL)trasse 2"
  411. 1321 [153]"92249 (NULL)ilseck"
  412. 1322 [142]
  413. 1400 [153]"str$er lenhamp hat auch noch (NULL)eerdisketten imatnngebot.mid$eder peekestellung liegt"
  414. 1401 [153]"wahlweise entweder die aktuelle         (NULL)atnright$(NULL) (NULL)atnstr$(NULL)val(NULL)(NULL) oder die str$right$chr$right$(NULL)atn(NULL) (NULL)atn(NULL)(NULL)
  415. 1402 print"bei ! [193]lso meldet euch mal bei ihm !"
  416. 1403 return
  417. 1999 goto0
  418. 2000 print"[147] [211]ammelangebote (exkl. [208]orto)"
  419. 2001 print"[204]agune [199]ame [200]its [214]ol. [201]:"
  420. 2002 print"[193]lternative [199]ame,[211]ettle-[194]attle,"
  421. 2003 print"[215][215][214] (oder [210]emix oder '97),[215]ort-[211]piel,[196]ie[193]benteuer des [193]xl [195]ool,[212]he [209]uest"
  422. 2004 print"[198]or [200]rr[210]r[210]rr,[193]xl [195]ool [201][201] - [193]rcade 10.-[196][205]"
  423. 2005 print"3 [208]ower [196]isk 64-[193]usgaben           3.-[196][205]"
  424. 2006 print" [206]eu im[160][193]ngebot "
  425. 2007 print"[208][207][215][197][210] [196][201][211][203] 64 1/95               1.50 [196][205]"
  426. 2008 print"[208][207][215][197][210] [196][201][211][203] 64 2/95               1.50 [196][205]"
  427. 2009 geta$:ifa$=""then2009
  428. 2010 print"[208][207][215][197][210] [196][201][211][203] 64 1/96               2.-  [196][205]"
  429. 2011 print"[208][207][215][197][210] [196][201][211][203] 64 2/96               2.-  [196][205]"
  430. 2012 print"[208][207][215][197][210] [196][201][211][203] 64 1/97               2.-  [196][205]":gosub2020
  431. 2018 geta$:ifa$=""then2018
  432. 2019 gosub 2200:goto0
  433. 2020 print"[208][207][215][197][210] [196][201][211][203] 64 2/97               2.-  [196][205]"
  434. 2021 return                                 
  435. 2200 print"[147][206]eu: [205]usic-[211]tuff "
  436. 2201 print"[211]uede - [205][212][214]'s [204]ive 'n' [196]irect                   (ca.50 min.)"
  437. 2202 print"[145]11.-[196][205]"
  438. 2203 print"[211]uede - [204]ive aus dem [211]chlachthof                (ca.45 min.)"
  439. 2204 print"[145] 9.-[196][205]"
  440. 2205 print"[211]uede - [210]ocknight (incl.[201]nterview)              (ca.45 min.)"
  441. 2206 print"[145] 9.-[196][205]"
  442. 2207 print"[204]agune [204]ive [201] - [210]adiohead,[211]uede,[211]mashing[208]umpkins,[200]eather [206]ova,[199]arbage"
  443. 2208 print"[145]13.-[196][205]"
  444. 2209 print"[193]lles [212]op-[209]ualitaet auf [212]ape !          [208]ortofrei !"
  445. 2210 print"[212][207][208]-[193]ngebote:"
  446. 2211 print"[211]uede - [211]till [204]ive (incl.[194]est [207]f [204]ive +         [205][212][214]-[201]nterview !)"
  447. 2212 print"[145]13.-[196][205]"
  448. 2213 print"[145][211]uede - [210]ocknight & [211]chlachthof   13.-[196][205]"
  449. 2214 print"[215]enn ihr die [204]eertapes schickt,dann danngibt es je 4.-[196][205] [208]reisnachlass !"
  450. 2215 geta$:ifa$=""then2215
  451. 2216 return
  452. 3000 print"[147][194]iro [194]udies                             [183][183][183][183][183][183][183][183][183][183][183]"
  453. 3001 return
  454. 3002 print"[147][211]wap [211]hop                               [183][183][183][183][183][183][183][183][183]"
  455. 3003 return
  456. 3004 print"[147][206]ew [199]eneration [195]alling                  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  457. 3005 return
  458. 3006 print"[147][204]etters [212]o [212]he [197]d                       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  459. 3007 return
  460.