home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / 3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  272 lines
  1. 1 ::::::::print"[147]";:poke53280,0:poke53281,0:d$="[160]mita teet":e$="[160]lahdet kotiin":f$=" roomalais":g$="[160]fariseuks":h$="[160]jumala":i$="jeesus":j$="[160]jeesuksen":::print"[213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201]":print"[145][194][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][194]"
  2. 2 print"[145][203] [158] [213][201][213][195][195][201][213][195][195][201][213][195][195][201][213][201][213][201][213][201][213][201][213][195][195][201][213][195][195][201][213][195][195][201][213][201][202]":print"[145][201] [158] [194][194][194][213][195][203][194][213][195][203][194][213][195][203][194][194][194][194][194][194][194][194][194][213][195][203][194][213][195][203][194][213][201][194][194][194][213]":print"[145][203][158]  [194][194][194][194]  [194][194]  [194][194]  [194][194][194][194][194][194][194][194][194][194]  [194][194]  [194][194][194][194][194][194][202]":print"[145][201][158]  [194][194][194][202][201] [194][202][201] [194][202][195][201][194][194][194][194][194][173][203][194][194][202][195][201][194][202][201] [194][194][194][194][194][194][213]":print"[145][203][158]  [194][194][194][213][203] [194][213][203] [202][195][201][194][194][194][194][194][194][176][201][194][202][195][201][194][194][213][203][160][194][194][194][194][194][194][202]"
  3. 3 print"[145][201][158][213][201][194][194][194][194]  [194][194]    [194][194][194][194][194][194][194][194][194][194]  [194][194][194][194]  [194][194][194][194][194][194][213]":print"[145][203][158][194][202][203][194][194][202][195][201][194][202][195][201][213][195][203][194][194][202][203][194][194][194][194][194][213][195][203][194][194][202][195][201][194][194][194][202][203][194][202]":print"[145][201][158][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][203][202][203][202][195][195][203][202][195][195][203][202][203][202][195][195][203][213]":print"[145][194][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][194]":print"[145][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203]"
  4. 4 print"[159]         p e l a s t a m i n e n ":::print"[156]          tehnyt: marko jerrman ":::print"[152]           paina valilyonti           "
  5. 5 geta$:ifa$<>" "then5
  6. 6 print"[147][152]     pelissa on tarkoitus pelastaa":printspc(17)"[158]"i$:print"     [152]     valiten tietokoneen":print"    antamista vaihtoehdoista sopiva":print" [129]######################################":print"[150]  oletko:  1[146] tyhma":printspc(11)"2[146] idiootti"
  7. 7 printspc(11)"3[146] kommunisti":printspc(11)"4[146] "i$"telija":printspc(11)"5[146] yli-luutnantti":printspc(11)"6[146] helsingin sf-seuran jasen":print"  kun olet antanut tiedon alkaa peli":print"[145][145][145][150]  mina olen (1/2/3/4/5/6)  [161]";:input"[157][157][157]";a$:ifa$<"1"ora$>"6"then9
  8. 8 print"[159][147]oletko varmasti valmis ? "chr$(13)"peli alkaa nyt!!":c=0:print"ole varuillasi!!!!":::c=-val(a$):goto11
  9. 9 print"[147][156]senkin  kananaivoinen munapaa idiootti!":print"etko sina typerysten typerys osaa lukea":print"vai oletko niin kompelo  idiootti ettet osu oikeaan nappaineen?":print"ampua tuollaiset  jarjettomat "i$"te- lijat pitaisi!!!!!!!
  10. 10 [153]"juuri tuollaiset  aivottomat apinat ko- mentavat armeijoita.":[153]"kuulut varmaan helsingin science ficti- on seuraankin?":[129]i[178]0[164]750::[151]53280,0:::a[178]i:::[151]53280,1:[130]:[151]53280,0:[129]i[178]0[164]1500:[130]:[137]6
  11. 11 [153]i$" on ristilla. jonkin matkaa eteen-pain. yritatko:":[153]" 1 oikealta":[153]" 2 suoraan":b[178]2:[141]249:c[178]c[171]2:[145]a[137]129,12
  12. 12 [153]f$"ia sotilaita edessasi.":[153]d$:[153]" 1 sanot olevasi turisti":[153]" 2"e$:[153]" 3 rukoilet apua":[153]" 4 hyokkaat sotilaiden kimppuun":[153]" 5 palaa lahtoasemiin":b[178]5:[141]249:c[178]c[170]1:[145]a[137]13,255,42,19,11
  13. 13 b[178][181](10[172][187](1))[170]1:[139]b[177]5[167]a[178]1:[153]f$"et uskovat sinua
  14. 14 ifb<=5thena=2:printf$"et eivat usko sinua
  15. 15 c[178]c[170]1:[145]a[137]16,55
  16. 16 [139]b[179]8[167]a[178]2:[153]" ja kaskevat sinun haipya
  17. 17 c=c+1:onagoto18,93
  18. 18 print" mita nyt teet":print" 1 otat valokuvia ja lahdet pois":print" 2 hyokkaat"f$"ten kimppuun":print" 3 pyydat"h$"lta apua":b=3:gosub249:c=c+1:onagoto254,19,78
  19. 19 b=int(20*rnd(1))+1:ifb<9thena=1:print" voitit sotilaat
  20. 20 [139]b[177]8[175]b[179]15[167]a[178]2:[153]" havisit sotilaille ja kuolit
  21. 21 ifb>14thena=3:printh$" auttaa sinua
  22. 22 c[178]c[170]1:[145]a[137]23,256,78
  23. 23 [153]" valise seuraava tekosi":[153]" 1 ryntaat kohti sys"i$"taopen":[153]" 2"e$"":b[178]2:[141]249:c[178]c[170]1:[145]a[137]24,255
  24. 24 b[178][181](40[172][187](1))[170]1:[139]b[179]14[167]a[178]1:[153]" putosit kuoppaan
  25. 25 ifb>=14andb<=26thena=2:print" sotilaita tulee lisaa
  26. 26 [139]b[177]26[175]b[179]32[167]a[178]3:[153]" paasitsys"j$"open luokse
  27. 27 ifb>=32thena=4:print" paikalle tulee"g$"ia
  28. 28 c[178]c[170]1:[145]a[137]60,12,29,129
  29. 29 b[178][181](10[172][187](1))[170]1:[139]b[179]4[167]a[178]1:[153]" onnistuit pelastamaansys"j$"open
  30. 30 ifb>4andb<=7thena=2:print" [158]"i$"[159] ei tahdo lahtea
  31. 31 [139]b[177]7[167]a[178]3:[153]" sys"i$"open on jo kuollut
  32. 32 c=c+2:onagoto253,34,33
  33. 33 print" mita nyt teet":print" 1"e$:print" 2 haistattelet"h$"lle":b=2:gosub249:c=c+1:onagoto255,254
  34. 34 print" valitse seuraava tekosi":print" 1 viet[158]"j$"[159] vakisin":print" 2"e$:print" 3 tapat sen sian ("j$")":print" 4 yritat puhua[158]"j$"[159] mukaasi":b=4:gosub249:c=c+2:onagoto35,255,254,35
  35. 35 b=int(2*rnd(1))+1:ifb=1thenprint" onnistuit yrityksessasi
  36. 36 [139]b[178]2[167][153]" epaonnistuit yrityksessasi
  37. 37 c=c+1:onbgoto253,38
  38. 38 print" mita nyt teet":print" 1 jatat[158]"j$"[159] ristille ja menet ko-tiin":print" 2 otat koko ristin mukaasi":b=2:gosub249:c=c+1:onagoto255,39
  39. 39 b=int(10*rnd(1))+1:ifb<=7thena=1:print" onnistut viemaan koko ristin
  40. 40 [139]b[177]7[167]a[178]2:[153]" ristin paino rusentaa sinut kuoliaaksi
  41. 41 c=c+2:onagoto253,252
  42. 42 b=int(10*rnd(1))+1:ifb<=3thena=1:printh$" on varattu nyt
  43. 43 [139]b[177]3[175]b[179][178]6[167]a[178]2:[153]h$" lahettaa enkeleita
  44. 44 ifb>7thena=3:printh$" ampuu salamia
  45. 45 c[178]c[170]1:[145]a[137]12,85,46
  46. 46 b[178][181](30[172][187](1))[170]1:[139]b[179][178]10[167]a[178]1:[153]" salamat tuhosivat"f$"et
  47. 47 ifb>10andb<16thena=2:print" osa"f$"ista tuhoutuu
  48. 48 [139]b[177][178]16[175]b[179][178]22[167]a[178]3:[153]" sina tuhouduit eraasta salamasta
  49. 49 ifb>22thena=4:printf$"et rajahti ja sina lensit pai-neaallosta
  50. 50 c[178]c[170]1:[145]a[137]23,55,252,51
  51. 51 b[178][181](20[172][187](1))[170]1:[139]b[178][179]5[167]a[178]1:[153]" kuolit pudottuasi
  52. 52 ifb>5andb<=14thena=2:print" selvisit pudotuksesta ja olet[158]"j$"[159] vieressa
  53. 53 [139]b[177]14[167]a[178]3:[153]" putoat alkupaikalle
  54. 54 c=c+1:onagoto252,29,11
  55. 55 print" mita nyt teet":print" 1 hyokkaat"f$"ten kimppuun":print" 2 uhkailet"f$"ia":print" 3 yritat lahjoa"f$"set":b=3:gosub249:c=c+1:onagoto19,56,56
  56. 56 b=int(3*rnd(1))+1:ifb<=2thena=1:print" sotilaat poistuu paikalta"
  57. 57 ifb=3thena=2:print" epaonnistuit yrityksessasi
  58. 58 c[178]c[171]1:[145]a[137]23,59
  59. 59 [153]" valitse seuraava tekosi":[153]" 1 hyokkaat"f$"ten kimppuun":[153]" 2"e$"":b[178]2:[141]249:c[178]c[170]2:[145]a[137]19,255
  60. 60 b[178][181](3[172][187](1))[170]1:[139]b[178]1[167][153]" kuoppa on manalaan asti.sina putoat ma-nalaan"
  61. 61 c[178]c[170]1:[145]b[137]107,62,62
  62. 62 b[178][181](20[172][187](1))[170]1:[139]b[179][178]3[167]a[178]1:[153]" kuolit pudotessasi kuoppaan"
  63. 63 [139]b[177]4[175]b[179][178]12[167]a[178]2:[153]" nousit kuopasta vahingoittumattomana
  64. 64 ifb>12thena=3:print" jalkasi jai jumiin kiven alle
  65. 65 c[178]c[170]1:[145]a[137]256,66,67
  66. 66 [153]" mita nyt teet":[153]" 1 ryntaat kohti sys"i$"taopen":[153]" 2"e$"":b[178]2:[141]249:c[178]c[170]1:[145]a[137]29,255
  67. 67 [153]" valitse seuraava tekosi":[153]" 1 pyydat apua"h$"lta":[153]" 2 tapat itsesi":[153]" 3 haistettelet"h$"lle":b[178]3:[141]249:c[178]c[170]1:[145]a[137]68,251,254
  68. 68 b[178][181](2[172][187](1))[170]1:[139]b[178]1[167][153]h$"heittaa salamia
  69. 69 ifb=2thenprinth$" ei ole paikalla
  70. 70 c[178]c[171]1:[145]b[137]71,74
  71. 71 b[178][181](3[172][187](1))[170]1:[139]b[178]1[176]b[178]2[167][153]"salama haihduttaa kiven
  72. 72 ifb=3thenprint" salama haihduttaa sinut
  73. 73 c[178]c[170]2:[145]b[137]66,66,252
  74. 74 [153]" mita nyt teet?":[153]" 1 yritat irrottaa itsesi":[153]" 2 tapat itsesi":b[178]2:[141]249:c[178]c[170]1:[145]a[137]75,251
  75. 75 b[178][181](4[172][187](1))[170]1:[139]b[179]4[167]a[178]1:[153]" onnistuit irrottamaan itsesi
  76. 76 ifb=4thena=2:print" murkaannut kuoliaaksi kiven alle
  77. 77 c[178]c[170]1:[145]a[137]66,256
  78. 78 b[178][181](10[172][187](1))[170]1:[139]b[179]4[167]a[178]1:[153]" apuun tulee enkeleita
  79. 79 ifb>=4andb<7thena=2:printh$" ampuu salamia
  80. 80 [139]b[178][177]7[167]a[178]3:[153]h$" tekee maanjaristyksen
  81. 81 c=c+1:onagoto85,46,82
  82. 82 b=int(2*rnd(1))+1:ifb=1thenprint" maa repeytyy altasi ja putoat manalaan
  83. 83 [139]b[178]2[167][153]" maa repeytyy ja "f$"et  putoavat manalaan
  84. 84 c=c+1:onbgoto107,23
  85. 85 b=int(25*rnd(1))+1:ifb<10thena=1:print" enkelit hakkasivat"f$"et
  86. 86 [139]b[177][178]10[175]b[179][178]15[167]a[178]2:[153]" enkelit hakkasivat sinut
  87. 87 ifb>15andb=<20thena=3:printf$"et hakkasivat enkelit
  88. 88 [139]b[177]20[167]a[178]4:[153]" enkelit eksyivat matkalla
  89. 89 c=c+1:onagoto23,252,91,90
  90. 90 printf$"et tappaa sinut":goto256
  91. 91 print" olet pahassa pulassa."d$:print" 1"e$:print" 2 hyokkaat"f$"ten kimppuun":print" 3 haistattelet"h$"lle":b=3:gosub249:c=c+1:onagoto255,92,254
  92. 92 printf$"et tappaa sinut":goto256
  93. 93 printd$:print" 1 palaat alkuun":print" 2"e$:print" 3 sanot tuntevasi keisarin":print" 4 hyokkaat sotilaiden kimppuun":b=4:gosub249:c=c+1:onagoto11,255,94,19
  94. 94 b=int(3*rnd(1))+1:ifb<=2thena=1:printf$"et uskovat sinua
  95. 95 [139]b[178]3[167][153]f$"et eivat usko sinua
  96. 96 c=c+1:onagoto97,55
  97. 97 print" valitse seuraava tekosi.":print" 1"e$:print" 2 otat valokuvia ja lahdet pois":print" 3 kasket"f$"ten poistua":print" 4 kasket"f$"ia  vapauttamaan [158]jee- suksen[159]":b=4:gosub249:c=c+2:onagoto255,254,98,99
  98. 98 printf$"et poistuu paikalta":goto23
  99. 99 b=int(3*rnd(1))+1:ifb=1thena=1:printf$"et tottelee
  100. 100 [139]b[177]1[167]a[178]2:[153]f$"et eivat tottele
  101. 101 c=c+1:onagoto253,102
  102. 102 print" [205][201][212][193][160][212][197][197][212] [206][217][212]?":print" 1"e$:print" 2 hyokkaat"f$"ten kimppuun":print" 3 rukoilet"h$"a":b=3:gosub249:c=c+2:onagoto255,19,103
  103. 103 b=int(5*rnd(1))+1:ifb<3thena=1:printh$" on nyt varattu
  104. 104 [139]b[177]2[167]a[178]2:[153]h$" sai viestisi ja lahettaa apua
  105. 105 c=c-1:onagoto106,78
  106. 106 print" seuraava tekosi. kiitos!":print" 1 rupeat manailemaan":print" 2"e$:print" 3 hyokkaat"f$"ten kimppuun":print" 4 palaat alkuun":b=5:gosub249:c=c+1:onagoto254,255,19,11
  107. 107 b=int(3*rnd(1))+1:ifb=1thena=1:print" kuolit pudotuksessa
  108. 108 [139]b[177]1[167]a[178]2:[153]" olet manalassa. syvan kuilun pohjalla
  109. 109 c=c+1:onagoto252,110
  110. 110 print" paras keksia mita tehda":print" 1 yritat kiivata ylos":print" 2 lahdet kaytaviin":b=2:gosub249:onagoto111,114
  111. 111 b=int(6*rnd(1))+1:ifb<3thena=1:print" et onnistunut kiipeamaan. putosit
  112. 112 [139]b[177]2[167]a[178]2:[153]" onnistuit kiipeamaan pois manalasta
  113. 113 c=c-1:onagoto107,11
  114. 114 b=int(15*rnd(1))+1:ifb<6thena=1:print" eksyit ja kuolit nalkaan
  115. 115 [139]b[177]5[175]b[179]11[167]a[178]2:[153]" kohtasit piruja
  116. 116 ifb>10thena=3:print" kohtasit paholaisen
  117. 117 c[178]c[170]1:[145]a[137]256,118,124
  118. 118 [153]" miten toimit pirujen kanssa":[153]" 1 liityt niiden jengiin":[153]" 2 hyokkaat niiden kimppuun":b[178]2:[141]249:c[178]c[170]1:[145]a[137]254,119
  119. 119 b[178][181](7[172][187](1))[170]1:[139]b[179][178]4[167]a[178]1:[153]" voitit pirut":c[178]c[170]1
  120. 120 [139]b[177]4[167]a[178]2:[153]" pirut tappoivat sinut
  121. 121 c=c+1:onagoto122,256
  122. 122 print" mitas nyt?":print" 1 lahdet kaytaviin":print" 2 rukoilet apua":b=2:gosub249:c=c+1:onagoto114,123
  123. 123 printh$" ei voi auttaa sinua":printd$" seuraavaksi":print" 1 lahdet kaytaviin":print" 2 tapat itsesi":b=2:gosub249:c=c+1:onagoto114,251
  124. 124 print" nyt on vaikea paikka."d$:print" 1 yritat tuhota paholaisen":print" 2 liityt paholaisen jengiin":b=2:gosub249:onagoto125,254
  125. 125 b=int(5*rnd(1))+1:ifb<=3thena=1:print" epaonnistuit ja kuolit
  126. 126 [139]b[177]3[167]a[178]2:[153]" onnistuit tuhoamaan paholaisen
  127. 127 c=c+1:onagoto256,128
  128. 128 print" [158]kaikki paha maailmasta tuhoutui. juma-lan  valtakunta  laskeutui";:print"  maan paalle.sina syrjaytit"j$" ja paasit juma-lan oikealle";:print" puolelle. hallelujaa!!!!":c=c+100:goto258
  129. 129 print" edessasi on"g$"ia."d$:print" 1 sanot tulleesi pilkaamaan [158]"i$"ta[159]":print" 2"e$:print" 3 hyokkaat"g$"ien kimppuun":print" 4 rukoilet apua"h$"lta":b=4:gosub249:c=c+1:onagoto130,255,134,222
  130. 130 b=int(5*rnd(1))+1:ifb<=3thena=1:printg$"et uskovat sinua
  131. 131 [139]b[177]3[167]a[178]2:[153]g$"et eivat usko sinua
  132. 132 c=c+1:onagoto164,133
  133. 133 print" seuraava tekosi. kiitos":print" 1"e$:print" 2 hyokkaat"g$"ien kimppuun":print" 3 palaat alkuun":b=3:gosub249:c=c+1:onagoto255,134,11
  134. 134 b=int(9*rnd(1))+1:ifb<=6thena=1:print" voitit"g$"et
  135. 135 [139]b[177]6[167]a[178]2:[153]" havisit"g$"ille
  136. 136 c=c+1:onagoto137,256
  137. 137 print" mieti tarkoin"d$" nyt!":print" 1 ryntaat kohti [158]"i$"ta[159]":print" 2"e$:print" 3 muistat etta vihollistakin pitaa aut-taa ja rupeat parantamaan ";:printg$"ia.":b=3:gosub249:c=c+1:onagoto159,255,138
  138. 138 b=int(4*rnd(1))+1:ifb<=3thena=1:printg$"et selvisivat
  139. 139 [139]b[178]4[167]a[178]2:[153]g$"et kuolivat
  140. 140 c=c+3:onagoto141,158
  141. 141 b=int(7*rnd(1))+1:ifb=<4thena=1:printg$"et vangitsivat sinut
  142. 142 [139]b[177]4[167]a[178]2:[153]" pakenit"g$"ien kasista
  143. 143 c=c+1:onagoto144,157
  144. 144 b=int(2*rnd(1))+1:ifb=1thenprint" sinut ristiin naulittiin[158]"j$"[159] vie-reen
  145. 145 [139]b[178]2[167][153]" sinut heitetaan vankilaan
  146. 146 c=c+1:onbgoto147,151
  147. 147 b=int(3*rnd(1))+1:ifb=1thenprint" riuduit kuoliaaksi ristille
  148. 148 [139]b[177]1[167]b[178]2:[153]" sinut  pelastetaan  ristilta "j$"sijasta
  149. 149 c=c+2:onbgoto252,150
  150. 150 print" [150]sina paaset taivasten  valtakuntaan ju-malan oikealle  puolelle";:print" ja olet  sielta tuleva tuomitsemaan niin elavia kuin kuolleitakin.":print"hallelujaa!!":fori=0to2500:next:c=c+50:goto258
  151. 151 print" olet vankilassa. mita typeraa nyt teet":print" 1 rukoilet"h$"a":print" 2 tapat itsesi":print" 3 kiroat"h$"n":print" 4 teet olosi mahdollisimman mukavaksi":b=4:gosub249:c=c+1:onagoto152,251,254,258
  152. 152 printh$" ampui salamia":b=int(3*rnd(1))+1:ifb=1thenprint" salamat haihduttivat vankilan
  153. 153 [139]b[178]2[167][153]" salamat haihduttivat vankilan ja sinut
  154. 154 ifb=3thenprint" salamat haihduttivat sinut
  155. 155 c[178]c[170]1:[145]b[137]156,252,252
  156. 156 [153]" mita nyt teet?":[153]" 1"e$:[153]" 2 palaat alkuun":b[178]2:[141]249:c[178]c[170]1:[145]c[137]255,11
  157. 157 [153]" mita nyt oikein teet":[153]" 1"e$:[153]" 2 aloitat alusta":[153]" 3 kiroat"h$"n":b[178]3:[141]249:c[178]c[170]1:[145]a[137]255,11,254
  158. 158 [153]" mita sina teet":[153]" 1 tapat itsesi":[153]" 2"e$:[153]" 3 tapat"j$"":b[178]3:[141]249:c[178]c[171]2:[145]a[137]251,255,254
  159. 159 b[178][181](30[172][187](1))[170]1:[139]b[179][178]10[167]a[178]1:[153]" putosit kuoppaan
  160. 160 ifb>10andb<=18thena=2:print" kohtasit"f$"ia sotilaita
  161. 161 [139]b[177]18[175]b[179][178]25[167]159
  162. 162 [139]b[177]25[167]a[178]4:[153]" paasitsys"j$"open luokse
  163. 163 c=c+2:onagoto62,12,1,29
  164. 164 printd$"?":print" 1 ryntaat kohti [158]"i$"ta[159]":print" 2 ryhdyt puhumaan"g$"ien kanssa":b=2:gosub249:ifa=1thenb=int(2*rnd(1))+1:ifb=2thena=3
  165. 165 c=c+1:onagoto24,166,159
  166. 166 b=int(30*rnd(1))+1:ifb<7thena=1:print" paljastit puheissa itsesi
  167. 167 [139]b[177][178]7[175]b[179][178]13[167]a[178]2:[153]" puhuessa unohdit asiasi. lahdit kotiin
  168. 168 ifb>13andb<=21thena=3:printg$"et kaannyttivat sinut
  169. 169 [139]b[177]21[167]a[178]4:[153]" kaannytit"g$"et
  170. 170 c=c+1:onagoto171,254,175,199
  171. 171 printg$"et hyokkasivat kimpuusi":b=int(5*rnd(1))+1:ifb=1thenprintg$"et tappoivat sinut
  172. 172 [139]b[178]2[176]b[178]3[167]b[178]2:[153]g$"et vangitsivat sinut
  173. 173 ifb>3thenb=3:print" hakkasit"g$"et
  174. 174 c[178]c[170]1:[145]b[137]256,141,137
  175. 175 [153]d$" seuraavaksi":[153]" 1"e$:[153]" 2 menet "g$"ien  kanssa tappamaan"j$:[153]" 3 menet "g$"ien  kanssa  ottamaan pienet":b[178]3:[141]249:c[178]c[170]1:[145]a[137]255,176,177
  176. 176 [153]" tapoitte"j$:[137]254
  177. 177 b[178][181](20[172][187](1))[170]1:[139]b[179]6[167]a[178]1:[153]" saitte pubissa myrkyllista viinia
  178. 178 ifb>5andb<14thena=2:print" tulit 'jarkiisi' ja paatit pelastaa[158]"j$"[159]
  179. 179 [139]b[177]13[167]a[178]3:[153]" matkalla pubiin kimppuunnen hyokattiin
  180. 180 c=c+1:onagoto257,181,194
  181. 181 print" paata seuraava tekosi":print" 1 hyokkaat"g$"ien kimppuun":print" 2 juotat ne pubissa sammuksiin":b=2:gosub249:c=c+1:onagoto134,182
  182. 182 printg$"et ovat nyt sammuneet":print" what will you do now?":print" 1"e$:print" 2 menet pelastamaan [158]"i$"ta[159]":print" 3 otat pari ryyppya":b=3:gosub249:c=c+2:onagoto255,11,183
  183. 183 b=int(3*rnd(1))+1:ifb=1thenprint" sait alkoholimyrkytyksen. kuolit.
  184. 184 [139]b[177]1[167]b[178]2:[153]" joit liikaa ja sammuit
  185. 185 c=c-2:onbgoto257,186
  186. 186 print" heraat hirveaan krapulaan."d$"?":print" 1"e$:print" 2 menet tappamaan"j$:print" 3 menet pelastamaan[158]"j$"[159]":b=3:gosub249:c=c+1:onagoto255,187,190
  187. 187 b=int(2*rnd(1))+1:ifb=1thenprint" onnistuit tappanaan"j$"
  188. 188 [139]b[178]2[167][153]" matkalla tulit 'jarkiisi' ja paatit pelastaasys"j$"open
  189. 189 c=c+1:onbgoto254,11
  190. 190 b=int(3*rnd(1))+1:ifb=1thenprint" [158]"i$"[159] on jo ehditty pelastaa
  191. 191 [139]b[177]1[167]b[178]2
  192. 192 c[178]c[170]1:[145]b[137]193,11
  193. 193 [153]" ikava tilanne. mita nyt teet?":[153]" 1"e$:[153]" 2 tapat itsesi":[153]" 3 kiroat"h$"n":b[178]3:[141]249:c[178]c[171]1:[145]a[137]255,251,254
  194. 194 b[178][181](15[172][187](1))[170]1:[139]b[179]5[167]a[178]1:[153]" sina ja"g$"et kuolette":c[178]c[170]1
  195. 195 [139]b[177][178]5[175]b[179][178]11[167]a[178]2:[153]g$"et kuolevat
  196. 196 ifb>11thena=3:print" sina kuolet
  197. 197 c[178]c[170]1:[145]a[137]256,198,256
  198. 198 [153]" tee seuraava tekosi":[153]" 1 menet yksin juomaan":[153]" 2"e$:[153]" 3 menet tappamaan"j$:b[178]3:[141]249:c[178]c[170]1:[145]a[137]183,255,187
  199. 199 [153]d$" nyt":[153]" 1 menet vapauttamaansys"j$"open":[153]" 2 menette ottamaan pienet":[153]" 3 menette polttamaan temppelin":b[178]3:[141]249:c[178]c[170]1:[145]a[137]200,209,218
  200. 200 b[178][181](3[172][187](1))[170]1:[139]b[179]3[167]b[178]1:[153]g$"et muuttivat mielnsa
  201. 201 ifb=3thenb=2:print" pelasttatte[158]"j$"[159]
  202. 202 c[178]c[170]1:[145]b[137]203,253
  203. 203 b[178][181](20[172][187](1))[170]1:[139]b[179]5[167]a[178]1:[153]g$"et tappoivat sinut
  204. 204 ifb>4andb<13thena=2:print" pakenit"g$"ien kasista
  205. 205 [139]b[177]12[175]b[179]17[167]a[178]3:[153]" tapoit"g$"et
  206. 206 ifb>16thena=4:printg$"et vangitsivat sinut
  207. 207 c[178]c[170]2:[145]a[137]256,157,208,141
  208. 208 [153]" miten jatkat tasta":[153]" 1 ryntaat kohti sys"i$"taopen":[153]" 2"e$"":b[178]2:[141]249:c[178]c[170]1:[145]a[137]159,255
  209. 209 b[178][181](3[172][187](1))[170]1:[139]b[179]3[167]a[178]1:[153]g$"et muuttivat mielansa
  210. 210 ifb=3thena=2:print" juotte baarissa viinia
  211. 211 c[178]c[170]2:[145]a[137]203,212
  212. 212 b[178][181](2[172][187](1))[170]1:[139]b[178]1[167][153]" sammuitte parin pullon jalkeen
  213. 213 ifb=2thenprint" rupesitte morkaamaan baarissa olioita
  214. 214 c[178]c[171]1:[145]a[137]186,215
  215. 215 b[178][181](3[172][187](1))[170]1:[139]b[178]1[167][153]" taidat tapettiin
  216. 216 ifb>1thenb=2:print" teidat vangittiin
  217. 217 c[178]c[170]1:[145]b[137]257,141
  218. 218 b[178][181](7[172][187](1))[170]1:[139]b[179]3[167]a[178]1:[153]" paloitte temppelin mukana
  219. 219 ifb>2andb<5thena=2:print" teidat vangittiin
  220. 220 [139]b[177]4[167]a[178]3:[153]g$"et muuttivat mielensa
  221. 221 c=c+1:onagoto256,141,203
  222. 222 b=int(4*rnd(1))+1:ifb<=2thena=1:printh$" on nyt varattu
  223. 223 [139]b[178]3[167]a[178]2:[153]" arkkienkeli voi ottaa sinut vastaan
  224. 224 ifb=4thena=3:printh$" teki vedenpaisumuksen
  225. 225 c[178]c[170]1:[145]a[137]226,227,237
  226. 226 [153]" mita nyt voisi tehda":[153]" 1 hyokkaat"g$"ien kimppuun":[153]" 2"e$:[153]" 3 sanot tulleesi pilkkaamaan sys"i$"taopen":b[178]3:[141]249:c[178]c[170]1:[145]a[137]134,255,130
  227. 227 [153]d$"?":[153]" 1 pyydat arkkienkelia auttamaan":[153]" 2"e$"":b[178]2:[141]249:c[178]c[170]1:[145]a[137]228,255
  228. 228 b[178][181](3[172][187](1))[170]1:[139]b[179]3[167]a[178]1:[153]" arkkienkeli ei voinut auttaa sinua
  229. 229 ifb=3thena=2:print" enkeleita tuli auttamaan
  230. 230 c[178]c[170]1:[145]a[137]231,232
  231. 231 [153]d$" seraavaksi ???":[153]" 1"e$:[153]" 2 kiroat"h$"n":[153]" 3 hyokkaat"g$"ien kimppuun":b[178]3:[141]249:c[178]c[170]1:[145]a[137]255,254,134
  232. 232 b[178][181](10[172][187](1))[170]1:[139]b[179]3[167]a[178]1:[153]" enkelit eksyivat matkalla
  233. 233 ifb>2andb<9thena=2:print" enkelit hakkasivat"g$"et
  234. 234 [139]b[177]8[167]a[178]3:[153]" enkelit hakkasivat sinut
  235. 235 c=c-1:onagoto236,137,252
  236. 236 printg$"et hakkasivat sinut":goto252
  237. 237 b=int(5*rnd(1))+1:ifb=1thena=1:print" vedenpaisumus hukutti koko maailman
  238. 238 [139]b[177]1[175]b[179][178]3[167]a[178]2:[153]" sys"i$"open hukkui, mutta sina selvisit
  239. 239 ifb>3thena=3:print" sina ja [158]"i$"[159] selvisitte
  240. 240 c[178]c[170]1:[145]a[137]252,245,241
  241. 241 [153]" markaa on."d$:[153]" 1 uitsys"j$"open luokse":[153]" 2 uit kotiin":b[178]2:[141]249:c[178]c[170]1:[145]a[137]242,255
  242. 242 b[178][181](3[172][187](1))[170]1:[139]b[179]3[167]a[178]1:[153]" onnistui pelastamaansys"j$"open
  243. 243 ifb=3thena=2:print" hukutit[158]"j$"[159]!
  244. 244 c[178]c[170]1:[145]a[137]253,254
  245. 245 b[178][181](2[172][187](1))[170]1:[139]b[178]1[167][153]h$" pelastaa sinut ja unohtaa"j$"
  246. 246 ifb=2thenprinth$"  masentuu "j$"  kuolemastaniin etta tappaa itsensa.
  247. 247 c[178]c[170]1:[145]b[137]150,248
  248. 248 [153]h$"n kuoltua forpaholainenopen ottaa vallankasiinsa.  koko  maailma  on";:[153]"  paholaisenvallan alla.":[153]"ja tama kaikki on sinun syytasi!open":c[178]c[171]100:[137]258
  249. 249 [161]a$:a[178][197](a$):[139]a[179]1[176]a[177]b[167]249
  250. 250 [142]
  251. 251 [153]"defkyllapa sita ollaan olevinaan niin onnet-tomia etta tehdaan itsemurha!":[153]"hyi hyi hyi!! kylla varmasti olisit sel-vinnyt muutenkin.open":c[178]c[170]5:[137]258
  252. 252 [153]"def"h$" pyyta sinulta anteeksi taivaassaopen":c[178]c[170]5:[137]258
  253. 253 [153]"defonnistut  tehtavassasi ja  pelastit sysjee-suksendef. onneksi olkoonopen":c[178]c[170]30:[137]258
  254. 254 [153]"defcmd"h$" suuttuu hirveasti siita mita teitja tuhoaa maailman!!open":c[178]c[171]10:[137]258
  255. 255 [153]"defsita  vaan  ruvetaan mamoilemaan  keskentehtavan. hyh! hyh! hyh!":[153]"ampua pitais!!open":c[178]c[170]2:[137]258
  256. 256 [153]"defnoin siina  kay, kun rupeaa taistelemaanitseaan  vahvempien kanssa";:[153]". sita  haviaaniin, etta kuolee ja tehtava jaa suorit-tamatta.":[153]"hyi sinua!!":c[178]c[170]2:[137]258
  257. 257 [153]"deftuolla tavalla sita vaan  juodaan viinaaja kuollaan eika valiteta";:[153]" tehtavasta ol-lenkaan!!!":[153]"juoppolalli!! hyi! happo! hyh!":c[178]c[171]5:[137]258
  258. 258 [161]a$:[139]a$[178]""[167]258
  259. 259 [153]"clrpisteita kerasi yhteensa"c"kpl.":[153]" mika ei ole hullummin kuin on.":[129]i[178]0[164]9:[139]c[177]a(i)[167]264
  260. 260 [130]:[153]"tuolla tuloksella et paase edes listalle
  261. 261 print"  lista:":fori=0to9:print"  "a(i)"   "a$(i):next
  262. 262 geta$:ifa$=""then262
  263. 263 goto6
  264. 264 foru=9toistep-1:a(u+1)=a(u):a$(u+1)=a$(u):next:a(i)=c:print"paasit sentaan listalle. valitse nimesi:":print" 1 khl kjhiuytkhl kjhk":print" 2 kale":print" 3 nipa":print" 4 elvis":print" 6 apulanta":print" 5 "i$:b=6:gosub249:ifint(5*rnd(1))=1thena=int(6*rnd(1))+1
  265. 265 ifa=1thena$(i)="khl kjhiuytkhl kjhk
  266. 266 [139]a[178]2[167]a$(i)[178]"kale
  267. 267 ifa=3thena$(i)="nipa
  268. 268 [139]a[178]4[167]a$(i)[178]"elvis
  269. 269 ifa=6thena$(i)=i$
  270. 270 ifa=5thena$(i)="apulanta
  271. 271 [137]261
  272.