home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1997 1 / Power_Disk_64_97-01_1997-05_Lagune_de_Side_A.d64 / editorial (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  362 lines
  1. 0 print"[147][153]":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][175]"
  3. 2 print"[145][159]     [208][207][215][197][210] [196][201][211][203] 64 - [197]ditorial 1/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     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 = [204]eserbriefe"
  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"[201]hre [215]ahl";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 "
  28. 103 print"2/97:25.6.1997"
  29. 104 print"3/97:24.9.1997"
  30. 105 print"4/97:17.12.1997"
  31. 106 print"[193][206][205][197][210][203][213][206][199]:[194]ei redaktionellen [208]roblemen  koennen sich die [212]ermine aendern."
  32. 107 print"[196]ies betrifft aufgrund meines [193]bis      speziell die 2/97 !"
  33. 108 geta$:ifa$=""then108
  34. 109 goto0
  35. 200 print"[147]"
  36. 201 print"[145][201][205][208][210][197][211][211][213][205]"
  37. 202 print"[208][196]64 erscheint unregelmaessig und kostetim [214]ersand 5.- [196][205].[196]ie [208][210][199]s sind"
  38. 204 print"-von [193]ndy [202]akesch"
  39. 207 print"-[204]esern"
  40. 208 print"-[208]ublic-[196]omain"
  41. 209 print"[204]agune [211]oftware                         c/o [193]ndy [202]akesch"
  42. 210 print"[194]ergstrasse 7                           92237 [211]ulzbach-[210]osenberg"
  43. 211 print"[212]el.:09661/54567                        [198]uer persoenliche [193]ntworten muss"
  44. 212 print"ein an sich selbst adressierter         frankierter [213]mschlag beiliegen !"
  45. 213 get m$:if m$=""then213
  46. 214 goto0
  47. 300 print"[147] [204][201][211][212][197] "
  48. 302 print"[211][208][201][197][204][197][212][197][201][204]:"
  49. 303 print"[193]ndy [202]akesch"
  50. 310 print"[208][210][207][199][210][193][205][205][197]:"
  51. 311 print"[215][215][214] '97:[193]ndy [202]akesch"
  52. 314 print"[194]urgenschlacht:[208]ublic [196]omain"
  53. 315 print"[215]itze [201][201]:[193]ndy [202]akesch"
  54. 318 print"[205][213][211][201][203]:[193]ndy [202]akesch"
  55. 325 print"[197][196][201][212][207][210][201][193][204]:[193]ndy [202]akesch                  [196][197][205][207]:[193]ndy [202]akesch"
  56. 326 print"[201][206][200][193][204][212]:[193]ndy [202]akesch"
  57. 329 print"[205][197][206][213][211]:[193]ndy [202]akesch"
  58. 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-"
  59. 331 print"          stellt von [193]ndy [202]akesch"
  60. 333 geta$:ifa$=""then333
  61. 334 print"[147] [194]estelliste "
  62. 335 print"[200][213][210][218] 10/91                       3.-  [196][205]"
  63. 336 print"[200][213][210][218] 11/91                       3.-  [196][205]"
  64. 337 print"[208][207][215][197][210] [196][201][211][203] 64 12/91              4.50 [196][205]"
  65. 338 print"[208][207][215][197][210] [196][201][211][203] 64 2/92               4.50 [196][205]"
  66. 339 print"[208][207][215][197][210] [196][201][211][203] 64 6/92               4.50 [196][205]"
  67. 340 print"[208][207][215][197][210] [196][201][211][203] 64 8/92               4.50 [196][205]"
  68. 341 print"[208][207][215][197][210] [196][201][211][203] 64 10/92              4.50 [196][205]"
  69. 342 print"[208][207][215][197][210] [196][201][211][203] 64 1/93               5.-  [196][205]"
  70. 343 print"[208][207][215][197][210] [196][201][211][203] 64 2/93               5.-  [196][205]"
  71. 344 print"[208][207][215][197][210] [196][201][211][203] 64 3/93               5.-  [196][205]"
  72. 345 geta$:ifa$=""then345
  73. 346 print"[207]riginal [199][206][205][208][198] [204]agune [211]oftware         "
  74. 347 print"[212]he [193]lternative [199]ame *           9.-  [196][205]"
  75. 348 print"[211]ettle-[194]attle *                  7.-  [196][205]"
  76. 349 print"[215][215][214] *                            2.-  [196][205]"
  77. 350 print"[200]ier die [200]its aller [193]usgaben des [204]agune [211]oftware [205]agazins:"
  78. 351 print"[196]avid's [205]idnight [205]agic (10/91)   1.50 [196][205]"
  79. 352 print"[196]onald [196]uck's [208]layground (11/91)*1.50 [196][205]"
  80. 353 print"[207]el (12/91) *                    2.50 [196][205]"
  81. 354 print"[203]ugel 64 (2/92) *                1.50 [196][205]"
  82. 355 print"[195]astle [207]f [196]oom (6/92) *          2.50 [196][205]"
  83. 356 print"[218]olix (6/92) *                   2.00 [196][205]"
  84. 357 geta$:ifa$=""then357
  85. 358 print"[211]eafox (8/92) *                  2.50 [196][205]"
  86. 359 print"[215]ort-[211]piel (10/92) *             2.00 [196][205]"
  87. 360 print"[207]lympic [211]ki (1/93) *             2.00 [196][205]"
  88. 361 print"[211]eeschlacht (2/93) *             2.00 [196][205]"
  89. 362 print"[204]ieferbedingungen:[196]ie [212][207][208]-[208][210][199]s der      einzelnen [193]usgaben muessen"
  90. 363 print"mindestens 3 pro [194]estellung sein.[208]orto  ist ab sofort umsonst,ausser bei"
  91. 364 print"den [205]agazin-[193]usgaben.[196]ie mit * gekenn-  zeichneten [208]rogramme koennen auch"
  92. 365 print"auf [212]ape bestellt werden.[196]as [208]orto muss in dem [198]all zusaetzlich bezahlt"
  93. 366 print"werden.[196]ie [218]ahlungsweise bleibt euch    ueberlassen,aber sie muss [218][213][197][210][211][212]"
  94. 367 print"erfolgen !"
  95. 370 geta$:ifa$=""then370
  96. 371 print"[215]enn ihr den [208]reis fuer das [208]orto nicht wisst (is' ja variabel),dann fragt"
  97. 372 print"erst bei der [208]ost oder bei [204]agune nach, bevor ihr die [194]estellung macht !"
  98. 377 print"[198]uer die [193]uslieferung solltet ihr       mindestens 30 [212]age warten."
  99. 378 print"[215]enn die [215]are in der [208]ost verloren geht,dann muesst ihr euch bei der [208]ost"
  100. 379 print"beschweren,nicht bei [204]agune [211]oftware.   [215]enn die [208]ost naemlich die [215]are"
  101. 380 print"verliert,dann uebernehmen wir keine     [200]aftung dafuer."
  102. 381 print"[201]st die [196]isk fehlerhaft,dann liegt das  auch an der [208]ost.[193]ber ihr koennt"
  103. 382 print"uns die [196]isks zurueckschicken in diesem [198]alle.[196]a die [208]ost in diesem [198]alle"
  104. 383 geta$:ifa$=""then383
  105. 384 print"ganz grosse [211]cheisse gemacht hat,muesst [201][200][210] uns extra [208]orto fuer die zweite
  106. 385 [153]"(NULL)endung schicken.(NULL)ie gesagt,wir ueber-  nehmen keine left$aftung fuer die (NULL)ost.
  107. 392 geta$:ifa$=""then392
  108. 393 goto2000
  109. 400 print"[147][159]"
  110. 401 print" [206][197][215][211] "
  111. 402 print"[214]iel neues gibt es da nicht.[205][213][211][201][195] [194][201][218]   musste wieder einmal verschoben"
  112. 403 print"werden.[199]ruende: [218]eitknappheit und ein   verdammter [214]ariablensalat."
  113. 404 print"[193]nsonsten solltet ihr euch vielleicht   mal das neue [195]64-[205]ag [199][207]64 be-"
  114. 405 print"stellen.[205]it 64er geht es [211]ommer '97 eh  zu [197]nde.[198]uer [201]nfos schreibt ihr am"
  115. 406 print"besten an:"
  116. 407 print"[195][211][215] [214]erlag                              [199]oethestr. 22"
  117. 408 print"71364 [215]innenden"
  118. 409 print"oder an:"
  119. 410 print"[210]oy [194]achmann                            [210]uhlaer [211]trasse 83"
  120. 411 print"99848 [215]utha-[198]arnroda                    [212]el.: 036921/90836"
  121. 413 geta$:ifa$=""then413
  122. 414 print"[147][193]ch ja,falls da draussen irgendjemand   nicht nur vielleicht [205]usik fuer"
  123. 415 print"die [196]emos schreiben will,sonder auch    [208][210][199]s und [212]ext-[194]eitraege (z.[194].[212]ests"
  124. 416 print"von [195][196]s & [199]ames,[212][207][208]-[193][195][212],...),dann       schickt mir das [218]eug einfach ! [196]ie"
  125. 417 print"[205]usik sollte mit dem [193][195][212][201][207][206] [210][197][208][204][193][217]-[196]emo-maker verwendbar sein,die [208][210][199]s"
  126. 418 print"sollen vom [203]onzept her gut sein,nicht   von [199]rafik & [211]ound her (alles zu-"
  127. 419 print"sammen waere allerdings mehr als [207][203]),unddie [194]eitraege koennt ihr in be-"
  128. 420 print"liebigem [198]ormat schicken ([194]rief,[194]asic,  [196]isk-[204]etter,...).[201]ch uebertrage eh"
  129. 421 print"alles in die einzelnen [208][210][199]s der [208][196]64.   [215]enn ihr aber alles in [194]asic"
  130. 422 print"schreibt,wie ich,dann mache ich daraus  einfach einen nachzuladenden [205]enu-"
  131. 423 print"teil.[193]lso:[215]enn ihr etwas schreiben      wollt,dann am besten so,wie ich."
  132. 424 print"[196]rueckt doch einfach mal [210][213][206]/[211][212][207][208],dann  seht ihr schon,wie das aussehen"
  133. 425 print"soll. ([206]ach [210][213][206]/[211][212][207][208] [204][201][211][212] eingeben !)"
  134. 426 geta$:ifa$=""then426
  135. 428 goto0
  136. 500 print"[147]"
  137. 501 print"[145] [214][207][210][211][195][200][193][213] "
  138. 502 print"[211][208][201][197][204][197][212][197][201][204]:"
  139. 503 print"[195][200][193][210][212][211]"
  140. 506 print"[201][205] [212][197][211][212]:"
  141. 507 print"-???"
  142. 510 print"-[207][204][196][201][197]:[205]edici                           -u.a."
  143. 513 print"[208][210][207][199][210][193][205][205][197]:"
  144. 514 print"-???"
  145. 515 print"-[212][207][208]-[208][210][199]:[198]ly [200]igh                       -u.a."
  146. 520 print"[205][213][211][201][203]:[206]ews-[206]otes,[204]atest [211]tuff,[193]lbum der [193]usgabe,[205]usic-[194]ox und (moeglicher)"
  147. 521 print"[212][207][208]-[193][195][212] wird [205][193][210][195] [194][207][204][193][206] ([212]-[210][197][216]) sein !"
  148. 522 print"[201]m [197][196][201][212][207][210][201][193][204] gibt es das [213]ebliche und   ein [205]ini-[199]ame."
  149. 534 geta$:ifa$=""then534
  150. 535 goto0
  151. 600 sys64738
  152. 700 poke828,0
  153. 701 print chr$(147) chr$(17)
  154. 702 print "load"chr$(34);"haupt*";chr$(34); ",8
  155. 703 [153] [199](17) [199](17) [199](17) [199](17) "run"
  156. 704 [151]631,13:[151]632,13:[151]198,2
  157. 705 [153] [199](19);:[128]
  158. 800 [153]"load left$atn(NULL)(NULL)(NULL) ! "
  159. 801 [153]"valnde (NULL)ktober war ich auf 2 (NULL)uede-chr$igs,  danach ging es steil bergab."
  160. 802 [153]"(NULL)taendig irgendwo eine (NULL)chulaufgabe -   ich kam einfach absolut nicht zur"
  161. 803 [153]"(NULL)str$64.(NULL)ann sie rauskommt weiss ich jetzt noch nicht.mid$edenfalls musste (NULL)(NULL)(NULL)right$len"
  162. 804 [153]"peekright$(NULL) wieder mal ersetzt werden.vals gibt   nun (NULL)(NULL)(NULL) '97 dafuer.(NULL)an hat einige"
  163. 805 [153]"neue (NULL)restler und kann nun durch einen  (NULL)anager nahezu unbesiegbar werden."
  164. 806 [153]"(NULL)enn man aber die ersten (NULL)atches mit ihmverliert,dann ist die (NULL)cheisse am"
  165. 807 [153]"dampfen ! str$en (NULL)anager kann man erhalten,wenn man sich bei den valreignissen"
  166. 808 [153]"ein bisschen umsieht."
  167. 809 [153]"right$m (NULL)usikteil ist peekval(NULL)(NULL)atn(NULL)str$ peek(NULL)(NULL)(NULL)val(NULL) (NULL)op-atnct.str$ieses valditorial schreibe ich ge-"
  168. 810 [153]"rade zum zweiten mal ! (NULL)eider habe ich  die str$aten geloescht.vals war schon"
  169. 811 [153]"fast fertig - jetzt bin ich schon fast  fertig - fix und ..."
  170. 812 [161]a$:[139]a$[178]""[167]812
  171. 813 [153]"(NULL)ja,das 64er-atnbo is gekuendigt.(NULL)arum ?  right$s doch klar ! str$as ganze war doch"
  172. 814 [153]"nur noch (NULL)erbung fuer die (NULL)lenchr$(NULL) mit 'ner atnrt (NULL)eerdiskette als chr$ratisbeilage.
  173. 815 print"[196]iese [193]usgabe sollte vor 3 [205]onaten raus-kommen.[212]ja,was soll's ? [196]er [211]uede-"
  174. 816 print"[198]anclubgig sollte auch schon im [196]ezembersein und ist jetzt erst anfang"
  175. 817 print"[193]pril - [204]ondon calling !"
  176. 818 print"[198]alls sich bei [208]ower-[204]eserschaft nix    bessert (qualitativ und vor allem"
  177. 819 print"quantitativ),dann ist dies hier wohl dieletzte [208][196]64-[193]usgabe.[215]as die [204]eser-"
  178. 820 print"[195]harts im [205]usikteil anbetrifft,die gibt es schon nicht mehr![201]ch widme mich"
  179. 821 print"dann (technisch billigen) [199]ame-[208]rojektendie dann wohl nicht mehr in der"
  180. 822 print"[208][196]64 angeboten werden (gibt's ja dann   nicht mehr ...).[214]ielleicht tauchen"
  181. 823 print"sie ja dann in der [196]igital [212]alk irgendwoauf ..."
  182. 824 print"... [212]o [194]e [195]ontinued ..."
  183. 825 geta$:ifa$=""then825
  184. 830 goto0
  185. 900 poke828,0
  186. 901 print chr$(147) chr$(17)
  187. 902 print "load"chr$(34);"ss.demo";chr$(34); ",8
  188. 903 [153] [199](17) [199](17) [199](17) [199](17) "run"
  189. 904 [151]631,13:[151]632,13:[151]198,2
  190. 905 [153] [199](19);:[128]
  191. 1000 [153]"load str$as (NULL)ini-chr$ame "
  192. 1001 [153]"str$as heutige (NULL)ini-chr$ame ist ein (NULL)ini-(NULL)uiz fuer 3012 (NULL)pieler !"
  193. 1002 [153]"vals geht hier um ascragen zu den atnlterna-  tive chr$ames ..."
  194. 1003 [133]"(NULL)ieviele (NULL)pieler";e
  195. 1004 [134]f(e),e$(e)
  196. 1005 [153]"1.(NULL)elcher (NULL)restler taucht bei der (NULL)uche   nach left$rr(NULL)rr(NULL)r in der left$oehle des
  197. 1006 print"[211]chlumpfs auf ?                         a) [200]ollywood [200]ulk [200]ogan"
  198. 1007 print"b) [194]ig [214]an [214]ader                        c) [201]ch ?"
  199. 1008 forz=1toe
  200. 1009 print"[211]pieler"z:input"[145]";e$(z)
  201. 1010 ife$(z)="a"thenf(z)=f(z)-1
  202. 1011 ife$(z)="b"thenf(z)=f(z)+1
  203. 1012 ife$(z)="c"thenf(z)=f(z)-1
  204. 1013 nextz
  205. 1014 print"[204]oesung: b"                                           
  206. 1016 print"2.[215]ie kommt man im ersten [193]lternative   [199]ame an die [218]eitmaschine ?"
  207. 1017 print"a) [210]ein zufaellig                       b) [196]urch [213]mbau der [215]aschmaschine"
  208. 1018 print"c) [205]an gewinnt beim [208]oker gegen [199]ott"
  209. 1019 forz=1toe
  210. 1020 print"[211]pieler"z:input"[145]";e$(z)
  211. 1021 ife$(z)="a"thenf(z)=f(z)+1
  212. 1022 ife$(z)="b"thenf(z)=f(z)-1
  213. 1023 ife$(z)="c"thenf(z)=f(z)-1
  214. 1024 nextz
  215. 1025 print"[204]oesung: a"
  216. 1026 print"3.[215]as ist das [208]roblem des [207]riginal [199][206][205][208][198][218]under [208]ferds ?"
  217. 1027 print"a) [218]u fett                              b) [193]ltersschwaeche"
  218. 1028 print"c) [196]rogen"
  219. 1029 forz=1toe
  220. 1030 print"[211]pieler"z:input"[145]";e$(z)
  221. 1031 ife$(z)="a"thenf(z)=f(z)-1
  222. 1032 ife$(z)="b"thenf(z)=f(z)-1
  223. 1033 ife$(z)="c"thenf(z)=f(z)+1
  224. 1034 nextz
  225. 1035 print"[204]oesung: c"
  226. 1036 print"4.[215]ie heisst das [205]onster im zweiten [193]lt.[199]ame vor dem alle [204]eute fliehen ?
  227. 1037 [153]"a) (NULL)ut                                  b) peekaer (NULL)aerger"
  228. 1038 [153]"c) left$ollo (NULL)oo"
  229. 1039 [129]z[178]1[164]e
  230. 1040 [153]"(NULL)pieler"z:[133]"on";e$(z)
  231. 1041 [139]e$(z)[178]"a"[167]f(z)[178]f(z)[170]1
  232. 1042 [139]e$(z)[178]"b"[167]f(z)[178]f(z)[171]1
  233. 1043 [139]e$(z)[178]"c"[167]f(z)[178]f(z)[171]1
  234. 1044 [130]z
  235. 1045 [153]"(NULL)oesung: a"
  236. 1046 [153]"5.(NULL)elcher peekaywatch-(NULL)tar hat bei (NULL)uest   ascor left$rr(NULL)rr(NULL)r einen chr$astauftritt ?
  237. 1047 print"a) [217]asmine [194]leeth                       b) [196]avid [200]asselhoff"
  238. 1048 print"c) [208]amela [193]nderson"
  239. 1049 forz=1toe
  240. 1050 print"[211]pieler"z:input"[145]";e$(z)
  241. 1051 ife$(z)="a"thenf(z)=f(z)-1
  242. 1052 ife$(z)="b"thenf(z)=f(z)-1
  243. 1053 ife$(z)="c"thenf(z)=f(z)+1
  244. 1054 nextz
  245. 1055 print"[204]oesung: c"
  246. 1056 print"[197]rgebnis:[205]aximal  5 [208]unkte                       [205]inimal -5 [208]unkte"
  247. 1057 geta$:ifa$=""then1057
  248. 1058 forz=1toe
  249. 1059 print"[211]pieler"z":"f(z)
  250. 1060 geta$:ifa$=""then1060
  251. 1061 nextz
  252. 1062 return
  253. 1072 geta$:ifa$=""then1072
  254. 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]"
  255. 1074 print"[215][201][206][206][197][210]:                                 [183][183][183][183][183][183]"
  256. 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
  257. 1078 [153]"asc(NULL)(NULL)val(NULL)val(NULL) peek(NULL)(NULL)val zurueck und erhaelt somit  so ziemlich als einziger in den"
  258. 1079 [153]"90'ern den traditionellen (NULL)(NULL)len(NULL) atn(NULL)str$ (NULL)(NULL)(NULL)(NULL) ..."
  259. 1080 [153]"(NULL)(NULL)(NULL)(NULL)val(NULL) (NULL)(NULL):                              usrusrusrusrusrusrusrusrusr"
  260. 1083 [153]"(NULL)noop str$oggy str$ogg - lenalvin peekroadus ist   wohl das atnushaengeschild der"
  261. 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 ..."
  262. 1085 [161]a$:[139]a$[178]""[167]1085
  263. 1086 [153]"(NULL)usikerin des mid$ahres                    usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  264. 1087 [153]"(NULL)right$(NULL)(NULL)val(NULL):                                 usrusrusrusrusrusr"
  265. 1088 [153]"(NULL)heryl lenrow - (NULL)ommer '94 in den (NULL)(NULL)atn     schon laengst ein (NULL)tar kam sie"
  266. 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
  267. 1090 print"gut ..."
  268. 1091 print"[210][213][206][206][197][210] [213][208]:                              [183][183][183][183][183][183][183][183][183]"
  269. 1093 print"[200]eather [206]ova - [205]it [207][217][211][212][197][210] gelang ihr der[196]urchbruch in diesem [202]ahr - bei"
  270. 1094 print"den [203]ritikern.[196]ie [193]llgemeinheit be-     achtete das [193]lbum und die [211]ingle"
  271. 1095 print"[215][193][204][203] [212][200][201][211] [215][207][210][204][196] weniger,vor allem hier  in [196]eutschland ..."
  272. 1099 geta$:ifa$=""then1099
  273. 1107 goto0
  274. 1150 print"[147] [211][208][210][213][195][200] [196][197][210] [193][213][211][199][193][194][197] "
  275. 1151 print"[206]eulich diktiert der [195]hemie-[204]ehrer im   [213]nterricht:"
  276. 1152 print"'... mit zunehmender [193]bnahme ...'"
  277. 1153 print"[193]lles klar,oder ?"
  278. 1156 geta$:ifa$=""then1156
  279. 1157 goto0
  280. 1200 print"[147][204]eserbriefe                             [183][183][183][183][183][183][183][183][183][183][183]"
  281. 1201 print"[201]n [218]ukunft sollen hier eure [194]riefe      stehen.[200]abt ihr [198]ragen - [201]ch be-"
  282. 1202 print"antworte sie euch.[200]abt ihr [214]orwuerfe -  ich streite sie ab.[200]abt ihr"
  283. 1203 print"[215]uensche - ich ignoriere sie.[200]abt ihr   [212]raeume - ich vernichte sie.[200]abt"
  284. 1204 print"ihr eine [214]erletzung - ich lache ueber   euch ..."
  285. 1205 print"[196]as ist jetzt der [215]eltuntergang:ich habeeinen [204]eserbrief erhalten !!!"
  286. 1206 print"[211]tammen tut der von (3x darf man raten):[205]arc ([200]osen-)[203]ayser alias"
  287. 1207 print"[212][200][197] [195][200][193][205][208],auch bekannt aus 64er ([208]aul   [208]lodder-[211]chreiberling) und [196]igital
  288. 1208 [153]"(NULL)alk (ascalk-right$nterview-chr$eschaedigter)."
  289. 1209 [153]"left$i atnndy !
  290. 1210 print"[194]in wohl der erste,der [196]ir einen [204]eser- brief an die [208]ower [196]isk schickt!?
  291. 1211 [161]a$:[139]a$[178]""[167]1211
  292. 1212 [153]"str$as '(NULL)right$ni-chr$ame' in der (NULL)str$ 2/96 ist ja   ziemlich komisch !"
  293. 1213 [153]"(NULL)ielen str$ank uebrigens fuer die chr$ruesse  an mich (str$u weisst schon was ich"
  294. 1214 [153]"meine,nicht wahr !?)."
  295. 1215 [153]"str$as 'atnxl atnrcade right$right$' (NULL)piel geht so,es    gibt einfach zu viel (NULL)piele in"
  296. 1216 [153]"dieser atnrt !"
  297. 1217 [153]"str$agegen hat mir '(NULL)ower' schon besser ge-fallen ! vals ist zwar simpel pro-"
  298. 1218 [153]"grammiert,macht aber einen left$eidenspass !left$abe sogar beim 1.mal gleich gegen
  299. 1219 print"den [195]ompi gewonnen,dafuer aber die      2.[210]unde verloren !"
  300. 1220 print"[215]as an dem [208][196]-[205]ag noch fehlt,ist die    [200]intergrundmusik.[214]ielleicht sollte
  301. 1221 [153]"man auch den lenharset aendern,was meinst str$u ?"
  302. 1222 [153]"atnuf der str$isk ist immer noch zu viel     peeklocks frei ! (NULL)ie waere es,den"
  303. 1223 [153]"noch sinnvoll zu nutzen,mit einigen     (NULL)ublic str$omain (NULL)rogrammen ?"
  304. 1224 [161]a$:[139]a$[178]""[167]1224
  305. 1225 [153]"right$ch habe str$ir doch im letzten (NULL)ending malein paar kleine (NULL)ini chr$ames ge-"
  306. 1226 [153]"schickt,die ich mal selbst gemacht habe!(NULL)ielleicht kannst str$u ja fuer jede"
  307. 1227 [153]"atnusgabe jeweils eines dieser (NULL)rogramme  draufmachen !"
  308. 1228 [153]"(NULL)as an str$einer (NULL)eitschrift fehlt,sind die(NULL)eser ! (i.e. (NULL)ie wahr ! - atn.mid$.)
  309. 1229 print"[201]ch habe unter anderem einen kleinen    [212]ext an die '[196]igital [212]alk' ge-"
  310. 1230 print"schrieben,das sich die [204]eute an [196]ich    wenden koennen,wenn sie [201]nteresse"
  311. 1231 print"daran haben sollen usw ..."
  312. 1232 print"[200]offen wie,das sich einige [204]eser der    '[196][212]' melden tu'n ! [193]uf ein wei-"
  313. 1233 print"teres [202]ahrzehnt '[208][196]' !"
  314. 1234 print"[195]hamp !"
  315. 1235 print"[208].[211].:[197]ine [193]ddy[195]orner waere nicht        schlecht ! ([196]ie [193]dressen von den"
  316. 1236 print"[208][196] [204]esern ! [196]amit man die anderen [204]eser vielleicht mal anschreiben kann"
  317. 1237 geta$:ifa$=""then1237
  318. 1238 print"oder so,wie in der [196][212] !)"
  319. 1239 print"[193].[202].:[206]atuerlich bist [196]u der erste [204]eser der mir schreibt ! [196]aher habe ich
  320. 1240 [153]"den peekrief nicht gekuerzt und auch nicht veraendert.str$ie str$eutsch-ascehler"
  321. 1241 [153]"gehen also ausnahmsweise nicht auf mein (NULL)onto ((NULL)trrrrike !).str$as (NULL)ini-chr$ame"
  322. 1242 [153]"keineswegs komisch - es ist schwach-    sinnig ! (NULL)ower str$isk 64 kuerzt man"
  323. 1243 [153]"uebrigens (NULL)str$64 ab,nicht (NULL)str$ (das waere   (NULL)ublic str$omain ...).atnxl lenool atnrcade
  324. 1244 print"ist natuerlich 0815 ! [200]atte ich das     nicht schon erwaehnt ? [205]it [205]usik"
  325. 1245 print"in der [208][196]64 ist das so 'ne [211]ache.[201]ch    rufe zwar immer wieder die [204]eser"
  326. 1246 print"dazu auf,etwas zu komposen (siehe [196]emo),aber wenn das niemand tut,dann"
  327. 1247 print"haut doch einfach 'ne [195][196] in eure [211]tereo.[201]ch hoere eh nie die [205]usik in den"
  328. 1248 print"ganzen [196]emos und [205]ags - ich hoere viel  lieber [211]uede und die ueberaus"
  329. 1249 print"bezaubernde [200]eather [206]ova !"
  330. 1250 geta$:ifa$=""then1250
  331. 1251 print"[215]as passt eigentlich am [207]riginal-[195]64-   [195]harset nicht ? [201]m [199]egensatz zu"
  332. 1252 print"den meisten [211]ets kann man ihn doch      wenigsten entziffern ! [215]as die"
  333. 1253 print"[211]ache mit den leeren [194]locks anbetrifft, da muessen einfach die [204]eser"
  334. 1254 print"(welche [204]eser ?) etwas tun.[208][196]64 ist eine[218]eitschrift die von den [204]esern"
  335. 1255 print"lebt ! [201]ch kann nicht so viel in der re-lativ kurzen [218]eit tun.[201]ch geh noch
  336. 1256 [153]"ein paar (NULL)onate zur (NULL)chule,spiele ascuss- ball,bin seit neuem (NULL)chiedsrichter
  337. 1257 print"und natuerlich in erster [204]inie noch     [205]usiker !"
  338. 1258 print"[215]aere nett,wenn sich ein paar [196][212]-[204]eser  melden wuerden.[193]nsonsten ..."
  339. 1259 print"[194]ye,bye [208]ower [196]isk 64 (nach             fast 6 [202]ahren !)
  340. 1260 [161]a$:[139]a$[178]""[167]1260
  341. 1999 [137]0
  342. 2000 [153]"load (NULL)ammelangebote (portofrei) "
  343. 2001 [153]"atnlternative chr$ame,(NULL)ettle-peekattle und"
  344. 2002 [153]" (NULL)(NULL)(NULL) (oder (NULL)emix oder '97)        15.-str$(NULL)"
  345. 2003 [153]"3 (NULL)ower str$isk 64-atnusgaben          12.-str$(NULL)"
  346. 2004 [153]"5 left$its                             8.-str$(NULL)"
  347. 2005 [153]"peekestellen koennt ihr nur noch per       (ascan-)peekrief."
  348. 2006 [161]a$:[139]a$[178]""[167]2006
  349. 2007 [153]" (NULL)eu imcloseatnngebot "
  350. 2008 [153]"(NULL)(NULL)(NULL)val(NULL) str$right$(NULL)(NULL) 64 1/95               5.-  str$(NULL)"
  351. 2009 [153]"(NULL)(NULL)(NULL)val(NULL) str$right$(NULL)(NULL) 64 2/95               5.-  str$(NULL)"
  352. 2010 [153]"(NULL)(NULL)(NULL)val(NULL) str$right$(NULL)(NULL) 64 1/96               5.-  str$(NULL)"
  353. 2011 [153]"(NULL)(NULL)(NULL)val(NULL) str$right$(NULL)(NULL) 64 2/96               5.-  str$(NULL)"
  354. 2012 [153]"(NULL)(NULL)(NULL)val(NULL) str$right$(NULL)(NULL) 64 1/97               5.-  str$(NULL)"
  355. 2013 [153]"str$right$val atnpeekval(NULL)(NULL)val(NULL)val(NULL) str$val(NULL) atn(NULL)(NULL) len(NULL)(NULL)(NULL) (1/95)3.-  str$(NULL)"
  356. 2014 [153]"(NULL)(NULL)(NULL) ((NULL)emix) (2/95)               2.50 str$(NULL)"
  357. 2015 [153]"(NULL)left$val (NULL)(NULL)val(NULL)(NULL) asc(NULL)(NULL) left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (1/96)   3.-  str$(NULL)"
  358. 2016 [153]"atn(NULL)(NULL) len(NULL)(NULL)(NULL) - atn(NULL)lenatnstr$val (2/96)         3.-  str$(NULL)"
  359. 2017 [153]"(NULL)(NULL)(NULL) '97 (1/97)                   3.-  str$(NULL)"
  360. 2018 [161]a$:[139]a$[178]""[167]2018
  361. 2019 [137]0
  362.