home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / l (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  104 lines
  1. 100 fori=0to39:v$=v$+"[166]":next:poke53281,0:poke53280,0
  2. 110 a=0
  3. 120 a=a+1
  4. 130 onagosub180,290,410,540,650,760,870,990
  5. 140 geta$:ifa$=""then140
  6. 150 ifa$="_"then110
  7. 160 ifa$="-"anda>1thena=a-1
  8. 170 ifa$="-"thena=a-1:goto120
  9. 171 ifa>7then9000
  10. 172 goto120
  11. 180 print"[147][154]"v$;
  12. 190 print"[166]          [158]meidan(ko) pankki[154]           [166]";
  13. 200 printv$""
  14. 210 print" [158]kaikkihan tuntevat yhdyspankin maapallo";
  15. 220 print"kerhon ja sen jasenlehden syppi[158]-magazine";
  16. 230 print"n. sen numerossa 3/1986 oli annettu kivo";
  17. 240 print"ja kesavinkkeja, jotka on seuraavassa os";
  18. 250 print"assa kirjoitettu [154]talla varilla [158]ja gurlau";
  19. 260 print"spommi[158]n jatkoehdotukset on kirjoitettu k";
  20. 270 print"eltaisella.[154]"
  21. 280 print"           hakkaa nappulaa..":return
  22. 290 print"[147][154]"v$;
  23. 300 print"[166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166] [166][166]";
  24. 310 printv$
  25. 320 print"makaa rentona riippumatossa ja mieti, vi";
  26. 330 print"itsitko tehda tanaan mitaan."
  27. 340 print"[158]paady ehdottomasti kielteiseen tulokseen";
  28. 350 print" lukuunottamatta pullonavaajan kayttoa."
  29. 360 print"[154]jos mielesi tekee jatskia, keraa lahiseu";
  30. 370 print"dulta tyhjia pulloja ja vaihda ne kaupas";
  31. 380 print"sa jatskiin."
  32. 390 print"[158]parhaat pulloloydot teet isukun riippuma";
  33. 400 print"ton alta.":return
  34. 410 print"[147][154]"v$;
  35. 420 print"[166][158]g[154][166][158]u[154][166][158]r[154][166][158]l[154][166][158]a[154][166][158]u[154][166][158]s[154][166][158]p[154][166][158]o[154][166][158]m[154][166][158]m[154][166][158]i[154][166][158]1[154][166][158]9[154][166][158]8[154][166][158]8[154][166][158]/[154][166][158]0[154][166][158]1[154][166][166]";
  36. 430 printv$
  37. 440 print"[154]kay kysymassa, paaseeko naapurin koira u";
  38. 450 print"ittamaan kanssasi laivoja rantaan."
  39. 460 print"[158]ota koytta ja kivi mukaan. osaakohan rak";
  40. 470 print"ki kellua?"
  41. 480 print"[154]opettele matkimaan lahistollasi laulavan";
  42. 490 print"linnun aanta. kun yritat tarpeeksi kauan";
  43. 500 print"voit saada aikaan vuoropuhelun linnun ka";
  44. 510 print"nssa."
  45. 520 print"[158]vaihtoehtoisesti opettele ampumaan ilmak";
  46. 530 print"ivaarilla.":return
  47. 540 print"[147][154]"v$;
  48. 550 print"[166][158]                                      [154][146][166]";
  49. 560 printv$""
  50. 570 print"[154]kirjoita kirje tai piirra kortti parhaal";
  51. 580 print"le kaverillesi, joka viettaa kesaa muual";
  52. 590 print"la kuin sina."
  53. 600 print"[158]osoite: katajanokan keskusvankila"
  54. 610 print"[154]rakenna leija."
  55. 620 print"[158]rakennusmateriaaliksi gurlauspommi [158]suosi";
  56. 630 print"ttelee olohuoneen verhoja. kokeile ja yl";
  57. 640 print"laty.":return
  58. 650 print"[147][154]"v$;
  59. 660 print"[166]                   [158]                   [154][146][166]";
  60. 670 printv$""
  61. 680 print"[154]kokeile kuinka kauan voit olla silmat ki";
  62. 690 print"inni."
  63. 700 print"[158]vakuutamme, etta pikaliima auttaa ennaty";
  64. 710 print"ksiin."
  65. 720 print"[154]jarjesta pihan varpaisillajuoksukilpailu";
  66. 730 print"t."
  67. 740 print"[158]ja homman helpottamiseksi sirottele nast";
  68. 750 print"oja muiden reitille.":return
  69. 760 print"[147][154]"v$;
  70. 770 print"[166][144]   [159] [156]   [158] [129] [149] [150] [151] [152] [153] [154] [155] [144]   [159] [156]   [158] [129] [149] [150] [151] [152] [153] [154] [155] [144]   [159] [156]  [154][146][166]";
  71. 780 printv$""
  72. 790 print"[154]tee koiranputkesta puhallusputki ja harj";
  73. 800 print"oittele herneilla tarkkuuspuhallusta kat";
  74. 810 print"tilaan."
  75. 820 print"[158]kattilaan! naapurin mummo on parempi kohde."
  76. 840 print"[154]hyppaa ruutua."
  77. 850 print"[158]kutsu kaverisikin hyppaamaan ja laita 8 ";
  78. 860 print"kilon kenttamiina viimeiseen ruutuun.":return
  79. 870 print"[147][154]"v$;
  80. 880 print"[166] [154][146][166] [154][146][166] [154][146][166][158]  [154][146][166][158]  [154][146][166][158]  [154][146][166] [154][146][166] [154][146][166] [154][146][166][158]  [154][146][166][158]  [154][146][166][158]  [154][146][166] [154][146][166] [154][146][166] [154][146][166][158]  [154][146][166]";
  81. 890 printv$""
  82. 900 print"[154]tutki, mitka kasvimaan rikkaruohoista ov";
  83. 910 print"at syotavia. esim. vesiheina ja vuohenpu";
  84. 920 print"tki ovat hyvaa ruokaa."
  85. 930 print"[158]ala myoskaan unohda valkoista karpassienta."
  86. 950 print"[154]nouse ylos jonakin aamuna neljalta. maai";
  87. 960 print"lma tuoksuu, nayttaa ja kuulostaa silloi";
  88. 970 print"n erilaiselta."
  89. 980 print"[158]niin isasikin, jos heratat myos hanet.":return
  90. 990 print"[147][154]"v$;
  91. 1000 print"[166]  [154]  [154]  [154]  [154]  [154]  [154]    [159] [156]  [158] [144] [158]  [156] [159]   [154]  [154]  [154]  [154]  [154]  [154] [146][166]";
  92. 1010 printv$""
  93. 1020 print"[154]kirjoita marjalle, mita teit juhannusaat";
  94. 1030 print"tona klo. 19."
  95. 1040 print"[158]marja kaipaakin pienta muistutusta sinun";
  96. 1050 print" ja hanen tekemisista. sehan oli $#&X&#%";
  97. 1060 print"(sensuroitu jopa tasta julkaisusta).[154]"
  98. 1070 print"pane siilille maitovati pihalle."
  99. 1080 print"[158]nyt sinulla on useampia vaihtoehtoja.[154]   ";
  100. 1090 print"[158]a) lisaa maitoon arsenikkia"
  101. 1100 print"b) lisaa maitoon ulostuslaaketta"
  102. 1110 print"c) jaa kytikselle ilmakivaarin kera[154]":return
  103. 9000 poke203,51
  104.