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 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 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 PRINT"[159]         P E L A S T A M I N E N ":::PRINT"[156]          TEHNYT: MARKO JERRMAN ":::PRINT"[152]           PAINA VALILYONTI           "
5 GETA$:IFA$<>" "THEN5
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 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 PRINT"[159][147]OLETKO VARMASTI VALMIS ? "CHR$(13)"PELI ALKAA NYT!!":C=0:PRINT"OLE VARUILLASI!!!!":::C=-VAL(A$):GOTO11
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 [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 [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 [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 B[178][181](10[172][187](1))[170]1:[139]B[177]5[167]A[178]1:[153]F$"ET USKOVAT SINUA
14 IFB<=5THENA=2:PRINTF$"ET EIVAT USKO SINUA
15 C[178]C[170]1:[145]A[137]16,55
16 [139]B[179]8[167]A[178]2:[153]" JA KASKEVAT SINUN HAIPYA
17 C=C+1:ONAGOTO18,93
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 B=INT(20*RND(1))+1:IFB<9THENA=1:PRINT" VOITIT SOTILAAT
20 [139]B[177]8[175]B[179]15[167]A[178]2:[153]" HAVISIT SOTILAILLE JA KUOLIT
21 IFB>14THENA=3:PRINTH$" AUTTAA SINUA
22 C[178]C[170]1:[145]A[137]23,256,78
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 B[178][181](40[172][187](1))[170]1:[139]B[179]14[167]A[178]1:[153]" PUTOSIT KUOPPAAN
25 IFB>=14ANDB<=26THENA=2:PRINT" SOTILAITA TULEE LISAA
26 [139]B[177]26[175]B[179]32[167]A[178]3:[153]" PAASITSYS"J$"OPEN LUOKSE
27 IFB>=32THENA=4:PRINT" PAIKALLE TULEE"G$"IA
28 C[178]C[170]1:[145]A[137]60,12,29,129
29 B[178][181](10[172][187](1))[170]1:[139]B[179]4[167]A[178]1:[153]" ONNISTUIT PELASTAMAANSYS"J$"OPEN
30 IFB>4ANDB<=7THENA=2:PRINT" [158]"I$"[159] EI TAHDO LAHTEA
31 [139]B[177]7[167]A[178]3:[153]" SYS"I$"OPEN ON JO KUOLLUT
32 C=C+2:ONAGOTO253,34,33
33 PRINT" MITA NYT TEET":PRINT" 1"E$:PRINT" 2 HAISTATTELET"H$"LLE":B=2:GOSUB249:C=C+1:ONAGOTO255,254
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 B=INT(2*RND(1))+1:IFB=1THENPRINT" ONNISTUIT YRITYKSESSASI
36 [139]B[178]2[167][153]" EPAONNISTUIT YRITYKSESSASI
37 C=C+1:ONBGOTO253,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 B=INT(10*RND(1))+1:IFB<=7THENA=1:PRINT" ONNISTUT VIEMAAN KOKO RISTIN
40 [139]B[177]7[167]A[178]2:[153]" RISTIN PAINO RUSENTAA SINUT KUOLIAAKSI
41 C=C+2:ONAGOTO253,252
42 B=INT(10*RND(1))+1:IFB<=3THENA=1:PRINTH$" ON VARATTU NYT
43 [139]B[177]3[175]B[179][178]6[167]A[178]2:[153]H$" LAHETTAA ENKELEITA
44 IFB>7THENA=3:PRINTH$" AMPUU SALAMIA
45 C[178]C[170]1:[145]A[137]12,85,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 IFB>10ANDB<16THENA=2:PRINT" OSA"F$"ISTA TUHOUTUU
48 [139]B[177][178]16[175]B[179][178]22[167]A[178]3:[153]" SINA TUHOUDUIT ERAASTA SALAMASTA
49 IFB>22THENA=4:PRINTF$"ET RAJAHTI JA SINA LENSIT PAI-NEAALLOSTA
50 C[178]C[170]1:[145]A[137]23,55,252,51
51 B[178][181](20[172][187](1))[170]1:[139]B[178][179]5[167]A[178]1:[153]" KUOLIT PUDOTTUASI
52 IFB>5ANDB<=14THENA=2:PRINT" SELVISIT PUDOTUKSESTA JA OLET[158]"J$"[159] VIERESSA
53 [139]B[177]14[167]A[178]3:[153]" PUTOAT ALKUPAIKALLE
54 C=C+1:ONAGOTO252,29,11
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 B=INT(3*RND(1))+1:IFB<=2THENA=1:PRINT" SOTILAAT POISTUU PAIKALTA"
57 IFB=3THENA=2:PRINT" EPAONNISTUIT YRITYKSESSASI
58 C[178]C[171]1:[145]A[137]23,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 B[178][181](3[172][187](1))[170]1:[139]B[178]1[167][153]" KUOPPA ON MANALAAN ASTI.SINA PUTOAT MA-NALAAN"
61 C[178]C[170]1:[145]B[137]107,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 [139]B[177]4[175]B[179][178]12[167]A[178]2:[153]" NOUSIT KUOPASTA VAHINGOITTUMATTOMANA
64 IFB>12THENA=3:PRINT" JALKASI JAI JUMIIN KIVEN ALLE
65 C[178]C[170]1:[145]A[137]256,66,67
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 [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 B[178][181](2[172][187](1))[170]1:[139]B[178]1[167][153]H$"HEITTAA SALAMIA
69 IFB=2THENPRINTH$" EI OLE PAIKALLA
70 C[178]C[171]1:[145]B[137]71,74
71 B[178][181](3[172][187](1))[170]1:[139]B[178]1[176]B[178]2[167][153]"SALAMA HAIHDUTTAA KIVEN
72 IFB=3THENPRINT" SALAMA HAIHDUTTAA SINUT
73 C[178]C[170]2:[145]B[137]66,66,252
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 B[178][181](4[172][187](1))[170]1:[139]B[179]4[167]A[178]1:[153]" ONNISTUIT IRROTTAMAAN ITSESI
76 IFB=4THENA=2:PRINT" MURKAANNUT KUOLIAAKSI KIVEN ALLE
77 C[178]C[170]1:[145]A[137]66,256
78 B[178][181](10[172][187](1))[170]1:[139]B[179]4[167]A[178]1:[153]" APUUN TULEE ENKELEITA
79 IFB>=4ANDB<7THENA=2:PRINTH$" AMPUU SALAMIA
80 [139]B[178][177]7[167]A[178]3:[153]H$" TEKEE MAANJARISTYKSEN
81 C=C+1:ONAGOTO85,46,82
82 B=INT(2*RND(1))+1:IFB=1THENPRINT" MAA REPEYTYY ALTASI JA PUTOAT MANALAAN
83 [139]B[178]2[167][153]" MAA REPEYTYY JA "F$"ET  PUTOAVAT MANALAAN
84 C=C+1:ONBGOTO107,23
85 B=INT(25*RND(1))+1:IFB<10THENA=1:PRINT" ENKELIT HAKKASIVAT"F$"ET
86 [139]B[177][178]10[175]B[179][178]15[167]A[178]2:[153]" ENKELIT HAKKASIVAT SINUT
87 IFB>15ANDB=<20THENA=3:PRINTF$"ET HAKKASIVAT ENKELIT
88 [139]B[177]20[167]A[178]4:[153]" ENKELIT EKSYIVAT MATKALLA
89 C=C+1:ONAGOTO23,252,91,90
90 PRINTF$"ET TAPPAA SINUT":GOTO256
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 PRINTF$"ET TAPPAA SINUT":GOTO256
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 B=INT(3*RND(1))+1:IFB<=2THENA=1:PRINTF$"ET USKOVAT SINUA
95 [139]B[178]3[167][153]F$"ET EIVAT USKO SINUA
96 C=C+1:ONAGOTO97,55
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 PRINTF$"ET POISTUU PAIKALTA":GOTO23
99 B=INT(3*RND(1))+1:IFB=1THENA=1:PRINTF$"ET TOTTELEE
100 [139]B[177]1[167]A[178]2:[153]F$"ET EIVAT TOTTELE
101 C=C+1:ONAGOTO253,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 B=INT(5*RND(1))+1:IFB<3THENA=1:PRINTH$" ON NYT VARATTU
104 [139]B[177]2[167]A[178]2:[153]H$" SAI VIESTISI JA LAHETTAA APUA
105 C=C-1:ONAGOTO106,78
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 B=INT(3*RND(1))+1:IFB=1THENA=1:PRINT" KUOLIT PUDOTUKSESSA
108 [139]B[177]1[167]A[178]2:[153]" OLET MANALASSA. SYVAN KUILUN POHJALLA
109 C=C+1:ONAGOTO252,110
110 PRINT" PARAS KEKSIA MITA TEHDA":PRINT" 1 YRITAT KIIVATA YLOS":PRINT" 2 LAHDET KAYTAVIIN":B=2:GOSUB249:ONAGOTO111,114
111 B=INT(6*RND(1))+1:IFB<3THENA=1:PRINT" ET ONNISTUNUT KIIPEAMAAN. PUTOSIT
112 [139]B[177]2[167]A[178]2:[153]" ONNISTUIT KIIPEAMAAN POIS MANALASTA
113 C=C-1:ONAGOTO107,11
114 B=INT(15*RND(1))+1:IFB<6THENA=1:PRINT" EKSYIT JA KUOLIT NALKAAN
115 [139]B[177]5[175]B[179]11[167]A[178]2:[153]" KOHTASIT PIRUJA
116 IFB>10THENA=3:PRINT" KOHTASIT PAHOLAISEN
117 C[178]C[170]1:[145]A[137]256,118,124
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 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 [139]B[177]4[167]A[178]2:[153]" PIRUT TAPPOIVAT SINUT
121 C=C+1:ONAGOTO122,256
122 PRINT" MITAS NYT?":PRINT" 1 LAHDET KAYTAVIIN":PRINT" 2 RUKOILET APUA":B=2:GOSUB249:C=C+1:ONAGOTO114,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 PRINT" NYT ON VAIKEA PAIKKA."D$:PRINT" 1 YRITAT TUHOTA PAHOLAISEN":PRINT" 2 LIITYT PAHOLAISEN JENGIIN":B=2:GOSUB249:ONAGOTO125,254
125 B=INT(5*RND(1))+1:IFB<=3THENA=1:PRINT" EPAONNISTUIT JA KUOLIT
126 [139]B[177]3[167]A[178]2:[153]" ONNISTUIT TUHOAMAAN PAHOLAISEN
127 C=C+1:ONAGOTO256,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 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 B=INT(5*RND(1))+1:IFB<=3THENA=1:PRINTG$"ET USKOVAT SINUA
131 [139]B[177]3[167]A[178]2:[153]G$"ET EIVAT USKO SINUA
132 C=C+1:ONAGOTO164,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 B=INT(9*RND(1))+1:IFB<=6THENA=1:PRINT" VOITIT"G$"ET
135 [139]B[177]6[167]A[178]2:[153]" HAVISIT"G$"ILLE
136 C=C+1:ONAGOTO137,256
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 B=INT(4*RND(1))+1:IFB<=3THENA=1:PRINTG$"ET SELVISIVAT
139 [139]B[178]4[167]A[178]2:[153]G$"ET KUOLIVAT
140 C=C+3:ONAGOTO141,158
141 B=INT(7*RND(1))+1:IFB=<4THENA=1:PRINTG$"ET VANGITSIVAT SINUT
142 [139]B[177]4[167]A[178]2:[153]" PAKENIT"G$"IEN KASISTA
143 C=C+1:ONAGOTO144,157
144 B=INT(2*RND(1))+1:IFB=1THENPRINT" SINUT RISTIIN NAULITTIIN[158]"J$"[159] VIE-REEN
145 [139]B[178]2[167][153]" SINUT HEITETAAN VANKILAAN
146 C=C+1:ONBGOTO147,151
147 B=INT(3*RND(1))+1:IFB=1THENPRINT" RIUDUIT KUOLIAAKSI RISTILLE
148 [139]B[177]1[167]B[178]2:[153]" SINUT  PELASTETAAN  RISTILTA "J$"SIJASTA
149 C=C+2:ONBGOTO252,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 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 PRINTH$" AMPUI SALAMIA":B=INT(3*RND(1))+1:IFB=1THENPRINT" SALAMAT HAIHDUTTIVAT VANKILAN
153 [139]B[178]2[167][153]" SALAMAT HAIHDUTTIVAT VANKILAN JA SINUT
154 IFB=3THENPRINT" SALAMAT HAIHDUTTIVAT SINUT
155 C[178]C[170]1:[145]B[137]156,252,252
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 [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 [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 B[178][181](30[172][187](1))[170]1:[139]B[179][178]10[167]A[178]1:[153]" PUTOSIT KUOPPAAN
160 IFB>10ANDB<=18THENA=2:PRINT" KOHTASIT"F$"IA SOTILAITA
161 [139]B[177]18[175]B[179][178]25[167]159
162 [139]B[177]25[167]A[178]4:[153]" PAASITSYS"J$"OPEN LUOKSE
163 C=C+2:ONAGOTO62,12,1,29
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 C=C+1:ONAGOTO24,166,159
166 B=INT(30*RND(1))+1:IFB<7THENA=1:PRINT" PALJASTIT PUHEISSA ITSESI
167 [139]B[177][178]7[175]B[179][178]13[167]A[178]2:[153]" PUHUESSA UNOHDIT ASIASI. LAHDIT KOTIIN
168 IFB>13ANDB<=21THENA=3:PRINTG$"ET KAANNYTTIVAT SINUT
169 [139]B[177]21[167]A[178]4:[153]" KAANNYTIT"G$"ET
170 C=C+1:ONAGOTO171,254,175,199
171 PRINTG$"ET HYOKKASIVAT KIMPUUSI":B=INT(5*RND(1))+1:IFB=1THENPRINTG$"ET TAPPOIVAT SINUT
172 [139]B[178]2[176]B[178]3[167]B[178]2:[153]G$"ET VANGITSIVAT SINUT
173 IFB>3THENB=3:PRINT" HAKKASIT"G$"ET
174 C[178]C[170]1:[145]B[137]256,141,137
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 [153]" TAPOITTE"J$:[137]254
177 B[178][181](20[172][187](1))[170]1:[139]B[179]6[167]A[178]1:[153]" SAITTE PUBISSA MYRKYLLISTA VIINIA
178 IFB>5ANDB<14THENA=2:PRINT" TULIT 'JARKIISI' JA PAATIT PELASTAA[158]"J$"[159]
179 [139]B[177]13[167]A[178]3:[153]" MATKALLA PUBIIN KIMPPUUNNEN HYOKATTIIN
180 C=C+1:ONAGOTO257,181,194
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 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 B=INT(3*RND(1))+1:IFB=1THENPRINT" SAIT ALKOHOLIMYRKYTYKSEN. KUOLIT.
184 [139]B[177]1[167]B[178]2:[153]" JOIT LIIKAA JA SAMMUIT
185 C=C-2:ONBGOTO257,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 B=INT(2*RND(1))+1:IFB=1THENPRINT" ONNISTUIT TAPPANAAN"J$"
188 [139]B[178]2[167][153]" MATKALLA TULIT 'JARKIISI' JA PAATIT PELASTAASYS"J$"OPEN
189 C=C+1:ONBGOTO254,11
190 B=INT(3*RND(1))+1:IFB=1THENPRINT" [158]"I$"[159] ON JO EHDITTY PELASTAA
191 [139]B[177]1[167]B[178]2
192 C[178]C[170]1:[145]B[137]193,11
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 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 [139]B[177][178]5[175]B[179][178]11[167]A[178]2:[153]G$"ET KUOLEVAT
196 IFB>11THENA=3:PRINT" SINA KUOLET
197 C[178]C[170]1:[145]A[137]256,198,256
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 [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 B[178][181](3[172][187](1))[170]1:[139]B[179]3[167]B[178]1:[153]G$"ET MUUTTIVAT MIELNSA
201 IFB=3THENB=2:PRINT" PELASTTATTE[158]"J$"[159]
202 C[178]C[170]1:[145]B[137]203,253
203 B[178][181](20[172][187](1))[170]1:[139]B[179]5[167]A[178]1:[153]G$"ET TAPPOIVAT SINUT
204 IFB>4ANDB<13THENA=2:PRINT" PAKENIT"G$"IEN KASISTA
205 [139]B[177]12[175]B[179]17[167]A[178]3:[153]" TAPOIT"G$"ET
206 IFB>16THENA=4:PRINTG$"ET VANGITSIVAT SINUT
207 C[178]C[170]2:[145]A[137]256,157,208,141
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 B[178][181](3[172][187](1))[170]1:[139]B[179]3[167]A[178]1:[153]G$"ET MUUTTIVAT MIELANSA
210 IFB=3THENA=2:PRINT" JUOTTE BAARISSA VIINIA
211 C[178]C[170]2:[145]A[137]203,212
212 B[178][181](2[172][187](1))[170]1:[139]B[178]1[167][153]" SAMMUITTE PARIN PULLON JALKEEN
213 IFB=2THENPRINT" RUPESITTE MORKAAMAAN BAARISSA OLIOITA
214 C[178]C[171]1:[145]A[137]186,215
215 B[178][181](3[172][187](1))[170]1:[139]B[178]1[167][153]" TAIDAT TAPETTIIN
216 IFB>1THENB=2:PRINT" TEIDAT VANGITTIIN
217 C[178]C[170]1:[145]B[137]257,141
218 B[178][181](7[172][187](1))[170]1:[139]B[179]3[167]A[178]1:[153]" PALOITTE TEMPPELIN MUKANA
219 IFB>2ANDB<5THENA=2:PRINT" TEIDAT VANGITTIIN
220 [139]B[177]4[167]A[178]3:[153]G$"ET MUUTTIVAT MIELENSA
221 C=C+1:ONAGOTO256,141,203
222 B=INT(4*RND(1))+1:IFB<=2THENA=1:PRINTH$" ON NYT VARATTU
223 [139]B[178]3[167]A[178]2:[153]" ARKKIENKELI VOI OTTAA SINUT VASTAAN
224 IFB=4THENA=3:PRINTH$" TEKI VEDENPAISUMUKSEN
225 C[178]C[170]1:[145]A[137]226,227,237
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 [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 B[178][181](3[172][187](1))[170]1:[139]B[179]3[167]A[178]1:[153]" ARKKIENKELI EI VOINUT AUTTAA SINUA
229 IFB=3THENA=2:PRINT" ENKELEITA TULI AUTTAMAAN
230 C[178]C[170]1:[145]A[137]231,232
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 B[178][181](10[172][187](1))[170]1:[139]B[179]3[167]A[178]1:[153]" ENKELIT EKSYIVAT MATKALLA
233 IFB>2ANDB<9THENA=2:PRINT" ENKELIT HAKKASIVAT"G$"ET
234 [139]B[177]8[167]A[178]3:[153]" ENKELIT HAKKASIVAT SINUT
235 C=C-1:ONAGOTO236,137,252
236 PRINTG$"ET HAKKASIVAT SINUT":GOTO252
237 B=INT(5*RND(1))+1:IFB=1THENA=1:PRINT" VEDENPAISUMUS HUKUTTI KOKO MAAILMAN
238 [139]B[177]1[175]B[179][178]3[167]A[178]2:[153]" SYS"I$"OPEN HUKKUI, MUTTA SINA SELVISIT
239 IFB>3THENA=3:PRINT" SINA JA [158]"I$"[159] SELVISITTE
240 C[178]C[170]1:[145]A[137]252,245,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 B[178][181](3[172][187](1))[170]1:[139]B[179]3[167]A[178]1:[153]" ONNISTUI PELASTAMAANSYS"J$"OPEN
243 IFB=3THENA=2:PRINT" HUKUTIT[158]"J$"[159]!
244 C[178]C[170]1:[145]A[137]253,254
245 B[178][181](2[172][187](1))[170]1:[139]B[178]1[167][153]H$" PELASTAA SINUT JA UNOHTAA"J$"
246 IFB=2THENPRINTH$"  MASENTUU "J$"  KUOLEMASTANIIN ETTA TAPPAA ITSENSA.
247 C[178]C[170]1:[145]B[137]150,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 [161]A$:A[178][197](A$):[139]A[179]1[176]A[177]B[167]249
250 [142]
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 [153]"DEF"H$" PYYTA SINULTA ANTEEKSI TAIVAASSAOPEN":C[178]C[170]5:[137]258
253 [153]"DEFONNISTUT  TEHTAVASSASI JA  PELASTIT SYSJEE-SUKSENDEF. ONNEKSI OLKOONOPEN":C[178]C[170]30:[137]258
254 [153]"DEFCMD"H$" SUUTTUU HIRVEASTI SIITA MITA TEITJA TUHOAA MAAILMAN!!OPEN":C[178]C[171]10:[137]258
255 [153]"DEFSITA  VAAN  RUVETAAN MAMOILEMAAN  KESKENTEHTAVAN. HYH! HYH! HYH!":[153]"AMPUA PITAIS!!OPEN":C[178]C[170]2:[137]258
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 [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 [161]A$:[139]A$[178]""[167]258
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 [130]:[153]"TUOLLA TULOKSELLA ET PAASE EDES LISTALLE
261 PRINT"  LISTA:":FORI=0TO9:PRINT"  "A(I)"   "A$(I):NEXT
262 GETA$:IFA$=""THEN262
263 GOTO6
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 IFA=1THENA$(I)="KHL KJHIUYTKHL KJHK
266 [139]A[178]2[167]A$(I)[178]"KALE
267 IFA=3THENA$(I)="NIPA
268 [139]A[178]4[167]A$(I)[178]"ELVIS
269 IFA=6THENA$(I)=I$
270 IFA=5THENA$(I)="APULANTA
271 [137]261