home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_A.d64 / juttar (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  103 lines
  1. 1 poke53280,12:poke53281,0
  2. 2 gosub5000
  3. 5 print"[158][215]as ist [196]ein [204]ieblingsgame ?"
  4. 6 print"[159][194]orrowed [212]ime,[160][196]ragon [215]ars, [212]he [200]itch-  hiker's [199]uide to the [199]alaxy, [203]aiser,
  5. 7 [153]"(NULL)ight & (NULL)agic right$right$, (NULL)euromancer, (NULL)ltima (NULL),(NULL)asteland (bezogen auf den 64er)"
  6. 8 [153]"ansonsten ... [atn.mid$.: left$ey, mid$uttar ...    hast str$u (NULL)permapoperma in den atnugen"
  7. 9 [153]"oder wat ?!? right$ch fragte nach str$einem     (NULL)ieblingschr$atn(NULL)val - das ist (NULL)ingular, str$u"
  8. 10 [153]"(NULL)echselgeldzaehler !!! (NULL)er sich also den(NULL)est von mid$uttars gesamter (NULL)piele-"
  9. 11 [153]"left$istorie geben will, der kann das auf   der (NULL)aupac (NULL)nline (NULL)ite finden ...]"
  10. 12 [153]"sys(NULL)as ist str$ein (NULL)ieblingsmag ?"
  11. 13 [153]"open(NULL)ail (NULL)adness, (NULL)igerdisk (wenn man die   'toten' dazuzaehlt, dann natuer-"
  12. 14 [153]"lich auch (NULL)agic str$isk 64, chr$ame (NULL)n, str$ark- star und die peek-(NULL)oft str$isk, hae hae)"
  13. 15 [153]"[atn.mid$.: (NULL)or allem aber die (NULL)str$64 ...]"
  14. 16 [141]9998
  15. 17 [141]5000
  16. 20 [153]"sys(NULL)elche lenomputer hast str$u ?"
  17. 21 [153]"[atn.mid$.: (NULL)lens, atn(NULL)right$chr$atns, atn(NULL)atn(NULL)right$s, len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)vals, (NULL)lenleft$(NULL)valright$str$val(NULL)s, (NULL)rimskrams und (NULL)len20 ...
  18. 22 print"fuer die [214]ollversion dieses [210]omans bitteauf der [211]aupac [207]nline [211]ite nach-"
  19. 23 print"sehen ... [202]uttar ist ein vaseline-      konsumierender [211]itzplatzanbieter !]"
  20. 27 print"[158][215]elche [203]onsolen hast [196]u ?"
  21. 28 print"[[193].[202].: [193]tari 2600, [193]tari 7800, [206][197][211],     [199]ameboy, [205]aster [211]ystem, [205]ega [196]rive,
  22. 29 [153]"(NULL)(NULL)val(NULL), (NULL)ong ... fuer mid$uttars schwuelstigestr$etaillierung empfehle ich die bald"
  23. 30 [153]"ueberfuellte (NULL)aupac (NULL)nline (NULL)ite ...]"
  24. 31 [141]9998
  25. 32 [141]5000
  26. 33 [153]"sys(NULL)as isst str$u gerne ?"
  27. 34 [153]"openalles, was in irgendeiner (NULL)eise natrium-glutarnat- oder vanillin-verseucht"
  28. 35 [153]"ist (es gibt einen chr$ott, und der heisst right$(NULL)(NULL)(NULL)atn(NULL)(NULL) !)"
  29. 37 [153]"sys(NULL)as trinkst str$u gerne ?"
  30. 38 [153]"openpeekier (bescheuerte ascrage) [atn.mid$.: str$afuer  laesst die aber keine (NULL)omane zu !]
  31. 39 print"[158][215]elche [205]usik hoerst [196]u ?"
  32. 40 print"[159][194]lur, [198]uenf [198]reunde, [208]avement,          [208]ortishead, [212]ocotronic, [215]eezer und"
  33. 41 print"so"
  34. 42 gosub9998
  35. 43 gosub5000
  36. 44 print"[158][215]elche [198]ilme findest [196]u gut ?"
  37. 45 print"[159][212]he [194]ig [204]ebowski, [197]d [215]ood, [198]argo,       [213]-[212]urn: so was in der [210]ichtung halt
  38. 46 [153]"sys(NULL)elche (NULL)erien ?"
  39. 47 [153]"open(NULL)he (NULL)impsons und (NULL)outh (NULL)ark"
  40. 48 [153]"sys(NULL)elche beruehmten (NULL)ersonen begeistern   str$ich ?"
  41. 49 [153]"openatnndrew peekraybrook, lenhris left$uelsbeck,      (NULL)ichard chr$arriot, (NULL)id (NULL)eier und alle
  42. 50 print"anderen legendaeren [211]piele-[208]rogrammiererder 80er [[193].[202].: [200]oert, hoert !]"
  43. 51 print"[158][215]as sind [196]eine [200]obbys ?"
  44. 52 print"[159]rumeiern und hupfen"
  45. 53 gosub9998
  46. 54 gosub5000
  47. 55 print"[158][215]ie sieht [196]eine [212]raumfrau aus ?"
  48. 56 print"[159]ein bisschen wie [199]randmaster [193].[202].       [[193].[202].: [217][201][208][208][201][197][160]!!!]"
  49. 59 print"[158][215]enn [196]u einen [211]atz sagen koenntest und  die gesamte [205]enscheit wuerde zu-"
  50. 60 print"hoeren, wie wuerde er lauten ?"
  51. 61 print"[159][208]ieks, ihr seid alle befruchtet !"
  52. 62 print"[158][215]elche [198]rage wuerdest [196]u [196]ir selbst     stellen ?"
  53. 63 print"[159][200]uch, wo kommst [196]u denn auf einmal      her ?"
  54. 65 gosub9998
  55. 66 gosub5000
  56. 67 print"[158][215]as haeltst [196]u von [212]abletten ?"
  57. 68 print"[159]rauche ich"
  58. 72 print"[158]- [212]oiletten ?"
  59. 73 print"[159]esse ich"
  60. 74 print"[158]- [197]tiketten ?"
  61. 75 print"[159]trinke ich"
  62. 76 gosub9998
  63. 77 gosub5000
  64. 78 print"[158]- [218]igaretten ?"
  65. 79 print"[159]fahre ich mit durch die [199]egend"
  66. 80 print"[158]- [198]ischkretten ?"
  67. 81 print"[159]kenn' ich nicht"
  68. 82 print"[158][215]ie wichtig ist fuer [196]ich [193]ussehen ?"
  69. 83 print"[159]null und nichtig"
  70. 85 print"[158][196]as [215]ort '[204]amer' verbinde ich mit ..."
  71. 86 print"[159]... allen [195]evi-[194]esitzern."
  72. 87 print"[158][201]ch finde, dass [211]ackhuepfen ..."
  73. 88 print"[159]... eine schweisstreibende [197]xtremsport- art sein kann, wenn man sie mit der
  74. 89 [153]"falschen atnusruestung ausuebt."
  75. 90 [141]9998
  76. 91 [141]5000
  77. 92 [153]"sys(NULL)enn ich an (NULL)hailand denke, dann ..."
  78. 93 [153]"open... denke ich an fette deutsche (NULL)ex-    (NULL)ouristen."
  79. 94 [153]"sys(NULL)r. mid$okers (NULL)chwetser sollte eigentlich  ..."
  80. 95 [153]"open... schleunigst ihren (NULL)achnamen aendern."
  81. 96 [153]"a) right$ce (NULL) b) (NULL)obi (NULL)chlegl c) (NULL)arylon     (NULL)anson d) (NULL)li (NULL) e) peekoy chr$eorge"
  82. 97 [153]"opene"
  83. 99 [141]9998
  84. 100 [141]5000
  85. 101 [153]"sys(NULL)it welcher (NULL)erson wuerdest str$u am       liebsten auf eine (NULL)arty gehen ?"
  86. 102 [153]"a) lenhristina atnguilera b) peekritney (NULL)pears c) atnnna (NULL)icole (NULL)mith d) (NULL)aomi"
  87. 103 [153]"lenampbell e) (NULL)teffi chr$raf"
  88. 104 [153]"opene"
  89. 112 [141]9998
  90. 113 [137]9000
  91. 5000 [153]"loadprintandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
  92. 5001 [153]"onopen    (NULL)str$64 lenlassic (NULL)uestionnaire - mid$(NULL)(NULL)    "
  93. 5002 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusropen"
  94. 5003 [142]
  95. 9000 [151]828,0
  96. 9001 [153] [199](147) [199](17)
  97. 9002 [153] "load"[199](34);"quest*";[199](34); ",8,1
  98. 9003 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  99. 9004 poke631,13:poke632,13:poke198,2
  100. 9005 print chr$(19);:end
  101. 9998 geta$:ifa$=""then9998
  102. 9999 return
  103.