1 A=A+1:IFA=1THENLOAD"V.SPRITE",8,8
5 POKE53002,49:POKE53007,234:SYS53000:PE%=1:R%=1000:N%=1:PA%=1:FORI=1TO5:READK(I):NEXT:P=1
6 PE=PE%:R=R%:N=N%:PA=PA%
7 V$="":FORI=1TO32:V$=V$+" ":W$=W$+"[192]":NEXT
10 POKE53280,2:POKE53281,10:V=53248:POKEV+21,0
11 FORI=VTOV+16:POKEI,0:NEXT:IFP=0THENPA=0
12 PRINT"[147][142]   [160][160][160][213][192][192][192][201][213][201][213][201][213][192][192][201][213][192][192][201][213][201][213][192][192][201][213][192][201][213][201]"
14 PRINT" [160]    [221][213][192][201][221][221][221][221][221][221][213][192][203][221][213][192][203][221][221][221][213][201][221][221] [202][203][221]"
16 PRINT"[160] [160][160][160][160][221][202][192][203][221][221][221][221][221][202][177][178][201][202][177][178][201][221][221][221][202][203][221][221][160][160][160][221]"
18 PRINT"[160]   [160][160][221][213][201][213][203][221][202][203][221][213][192][203][221][213][192][203][221][221][221][221][213][201][221][221][213][201][160][221]"
20 PRINT"      [202][203][202][203][160][202][192][192][203][202][192][192][203][202][192][192][203][202][203][202][203][202][203][202][203][202][192][203]"
22 PRINT"   [213][192][192][192][201][213][192][192][201][213][201][213][201][213][201][160][160][213][192][192][201][213][192][192][201][213][192][192][201][213][192][192][201]"
24 PRINT"[160][160][160][221][213][192][201][221][221][213][201][221][221][221][221][221][221][221][160][160][221][213][192][203][202][201][213][203][202][201][213][203][221][213][192][203]"
26 PRINT"[160][160][160][221][202][192][203][221][221][221][221][221][221][221][221][221][221][221][160][160][221][171][192][160][160][221][221][160][160][221][221][160][221][171][192]"
28 PRINT"[160][160][160][221][213][201][213][203][221][202][203][221][221][202][203][221][221][202][192][201][221][202][192][201][160][221][221][160][160][221][221][160][221][202][192][201]"
30 PRINT"[160][160][160][202][203][202][203][160][202][192][192][203][202][192][192][203][202][192][192][203][202][192][192][203][160][202][203][160][160][202][203][160][202][192][192][203]"
32 PRINTSPC(11)"- JA VERI LENTAA -"
34 PRINT"     [149][164][164][164][164]"
36 PRINT"      F1 [146] [149]TEURASTUS      [129][213][192][192][192][192][192][192][192][192][192][192][192][201]"
38 PRINT" [149]    [164][164][164][164]                [129][221]TAMAN PELIN[221]"
40 PRINT"[160]    [149] F3 [146] [149]INFORMAATIO    [129][221]TEKI: MARKO[221]"
42 PRINT"    [149] [164][164][164][164]     [160][160][160][160][160][160][160][160][160][160][160][129][202][192][201]JERRMAN[213][192][203]"
44 PRINT"     [149] F5 [146] [149]ASETUKSET        [129][202][192][192][192][192][192][192][192][203]"
46 PRINT"[160]   [160]PELAAJIA:"PE"       NOPEUS:"N""
48 PRINT"     PANOKSIA:"PA"  [160][160][160]  RAHAA:"R"":P=1:IFPA=0THENP=0
50 GETA$:IFA$=""THEN50
55 IFA$="[133]"THEN90
57 IFA$="[135]"THEN300
58 IFA$="[134]"THEN3000
60 GOTO50
90 FORI=1TOPE:R(I)=0:R(I)=R:NEXT:PRINT"[147]";
100 POKE53281,0:POKE53280,11:IFP=0THENPA=0
107 GOSUB2000:PRINT"         [154][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]"
108 PRINTSPC(9)"[161]"SPC(20)"[161]"
109 PRINTSPC(9)"[161]"SPC(20)"[161]"
110 PRINT"[210][213][211][211][201][193][206][160][154] [161]"SPC(20)"[161] [210][213][211][211][201][193][206]"
111 PRINT"[210][207][213][204][197][212][212][197][154] [161]             [154][146]       [161][210][207][213][204][197][212][212][197]"
112 PRINTSPC(9)"[154][161]        [154][146]     [154][146]       [161]"
113 PRINT"JA VERI[154]  [161]"SPC(20)"[161] JA VERI"
114 PRINT"LENTAA.  [154][161]"SPC(20)"[161] LENTAA."
115 PRINTSPC(9)"[154][161]"SPC(20)"[161]"
116 PRINTSPC(9)"[161]"SPC(20)"[161]"
117 PRINTSPC(9)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][190]"
118 PRINT"   [152][176]"W$"[174]"
119 PRINT"   [221]"RIGHT$(V$,32)"[221]"
120 PRINT"   [173]"W$"[189]"
121 PRINT"   [176]"W$"[174]"
122 PRINT"   [221]"RIGHT$(V$,32)"[221]"
123 PRINT"   [173]"W$"[189][145][145][145][145]"
130 FORI=234TO230STEP-1:POKE1810+I,I:NEXT:POKEV+29,127:POKEV+23,127:POKEV+28,15
135 POKEV,136:POKEV+1,108:POKEV+2,184:POKEV+3,108:POKEV+4,136:POKEV+5,150
137 POKEV+6,184:POKEV+7,150:POKEV+8,100:POKEV+9,126:POKEV+16,0
140 POKEV+37,10:POKEV+38,9:POKEV+39,6:POKEV+40,6:POKEV+41,2:POKEV+42,2
141 POKEV+43,11:POKEV+10,0:POKEV+12,0:POKEV+13,0:POKEV+11,0:POKEV+21,127:POKEV+27,48
145 FORI=1TOPE
146 PRINT"[145][154][208]ELAAJA"I"PALJONKO LAITAT?"CHR$(141)"#[157]";:B$=""
147 GETA$:IFA$=CHR$(13)THEN155
148 IFA$=""THENIFLEN(B$)>0THENB$=LEFT$(B$,LEN(B$)-1):PRINT" [157][157]#[157]";
149 IFA$<"0"ORA$>"9"THEN147
150 PRINTA$"#[157]";:B$=B$+A$:IFLEN(B$)=5THEN155
151 GOTO147
155 PRINT:IFVAL(B$)<=R(I)ANDVAL(B$)>0THEN170
156 IFVAL(B$)>R(I)THENPRINT"[145]"V$CHR$(141)"[145][145][145][145][197]T OMISTA TUOLLAISIA SUMMIA!"
157 IFVAL(B$)=0THENPRINT"[145]"V$CHR$(141)"[145][145][145][145][204]AITA NYT JOTAIN!"RIGHT$(V$,15)
160 FORJ=0TO2000:NEXT:PRINT"[145]"V$:GOTO146
170 PRINT"[145]"V$CHR$(141)"[145][145][145][145]"V$:B=VAL(B$):IFB/10<>INT(B/10)THENB=INT((9+B)/10)*10
171 V(I)=B:R(I)=R(I)-V(I)
172 GOSUB2000:PRINTSPC(255)SPC(255)SPC(10):NEXT
175 PRINT"[145]"V$CHR$(141)"[154][145][208]AINA VALILYONTI"
176 GETA$:IFA$<>" "THEN176
180 IFP=0THENPA=INT(5*RND(1))+1:GOSUB2000:PRINTSPC(255)SPC(225)V$
185 IFINT(6*RND(1))+1>PATHEN190
189 GOTO200
190 PRINT"[145][154][212][217][200][202][193]! [201]IVAN SELVISI!":GOTO220
200 PRINT"[145][158] [208] [193] [206] [199] !            ":POKE53281,1:POKE53280,1:GOSUB1000
202 POKE53280,11:POKE53281,0:POKE2041,235:POKEV+40,2:POKE2045,237
204 POKE2046,236:POKEV+44,0:POKEV+45,2:POKEV+10,216:POKEV+11,120
206 POKEV+12,216:POKEV+13,120:FORJ=216TO255:POKEV+10,J:GOSUB1000:NEXT
208 POKEV+16,32:POKEV+10,0:FORJ=0TO20:POKEV+10,J:GOSUB1000:NEXT:IFI=-1THEN275
210 FORI=0TO1500:NEXT:PRINT"[145][154][201]IVAN KUOLI. [200]AVISITTE VETONNE.":FORI=0TO2500:NEXT
211 GOSUB2000:FORI=1TOPE:IFR(I)<10THEN213
212 NEXT:GOTO100
213 PRINTSPC(255)SPC(225):PRINTV$
214 PRINT"[145][154][208]ELAAJA"I"RAHAT OVAT LOPPU":FORI=0TO2500:NEXT
215 PRINT"[145][208]ELI LOPPUU HANEN TAKIAAN!     ":FORI=0TO3000:NEXT:GOTO10
220 FORI=1TOPE:V(I)=V(I)*K(PA):V(I)=INT((5+V(I))/10)*10
222 R(I)=R(I)+V(I):NEXT:FORI=0TO2000:NEXT:GOSUB2000
230 FORI=1TOPE:IFR(I)>9999THEN250
240 NEXT:PRINTSPC(255)SPC(255)SPC(10):FORI=1TOPE:PRINT"[145]"V$
245 PRINT"[145][154][208]ELAAJA"I"VOITIT"V(I)"MK":FORJ=0TO2500:NEXT:NEXT:GOTO100
250 PRINTSPC(255)SPC(255)SPC(10):PRINT"[145]"V$
251 PRINT"[145]"V$:PRINT"[145][154][208]ELAAJA"I"[157]: SINULLA ON YLI 10000"
252 PRINT"[200]ALUATKO OSTAA [201]IVANIN VAPAAKSI?"
255 GETA$:IFA$<>"K"ANDA$<>"E"THEN255
258 IFA$="K"THEN270
260 PRINT"[145]"V$CHR$(141)"[145][145][145][145]"V$CHR$(141)"[145][211]YDAMETON HIRVIO! [208]ELI LOPPUU NYT!"
265 SYS64738
270 PRINT"[145]"V$CHR$(141)"[145][145][145][145]"V$CHR$(141)"[145][201]IVAN HALUAA PELATA YHDEN KERRAN"
272 FORI=0TO3000:NEXT:PRINT"[145]"V$:J=N:N=10:I=-1:N=J:GOTO200
275 PRINT"[145][154][203]AVIPAS HUONOSTI. [214]OI VOI!"
276 FORI=0TO4000:NEXT:GOTO10
300 PRINT"[147][144]":POKE53280,10:POKE53281,2
302 PRINTSPC(15)"ASETUKSET":PRINTSPC(15)"[197][197][197][197][197][197][197][197][197]"
305 PRINT"[160]   [160]PELAAJIA:"PE"       NOPEUS:"N
306 PRINT"     PANOKSIA:"PA"  [160][160][160]  RAHAA:"R
310 PRINT"[150]  HALUATKO MUUTTAA PE[146]LAAJIA, NO[146]PEUTTA,"
311 PRINT"  PA[146]NOKSIA VAI RA[146]HAA? ..[157][157]";:B$=""
315 GETA$:IFA$=""THEN315
316 B$=B$+A$:PRINTA$;:IFLEN(B$)=2THEN320
317 GOTO315
320 PRINT:IFB$="PE"THEN330
321 IFB$="NO"THEN340
322 IFB$="PA"THEN350
323 IFB$="RA"THEN360
325 PRINT"HALUATKO ALKUPERAISASETUKSET?"
326 GETA$:IFA$="K"THEN6
327 IFA$=""THEN326
328 PRINT"[144]MITA [214][201][212][212][213][193] SITTEN TAALLA TEET?":FORI=0TO3000:NEXT:GOTO300
330 PRINT"MONTAKO PELAAJA HALUAT (1-4)? .[157]";
335 GETA$:IFA$<"1"ORA$>"4"THEN335
337 PRINTA$:PE=VAL(A$):GOTO370
340 PRINT"MINKA NOPEUDEN HALUAT (1-9)? .[157]";
345 GETA$:IFA$<"1"ORA$>"9"THEN345
347 PRINTA$:N=VAL(A$):GOTO370
350 PRINT"MONTAKO PANOSTA HALUAT (0-6)? .[157]";
355 GETA$:IFA$<"0"ORA$>"6"THEN355
357 PRINTA$:PA=VAL(A$):IFPA=6THENPRINT"NAUTITKO VAKIVALLASTA?"
358 IFPA<>0THENP=1
359 GOTO370
360 PRINT"MONTAKO TUHATTA HALUAT (1-9)? .[157]";
365 GETA$:IFA$<"1"ORA$>"9"THEN365
367 PRINTA$:R=VAL(A$)*1000:GOTO370
370 PRINT"MUITA MUUTOKSIA (K/E)?"
372 GETA$:IFA$<>"K"ANDA$<>"E"THEN372
375 IFA$="K"THEN300
376 GOTO10
999 END
1000 FORE=0TO5+10*N:NEXT:RETURN
2000 PRINT"[154] [208]ELAAJIA:"PE"               [208]ANOKSIA:"PA""
2001 R1$=LEFT$(STR$(R(1))+"           ",13):R2$=LEFT$(STR$(R(2))+"    ",5)
2002 PRINT" [208]ELAAJA 1:"R1$"[208]ELAAJA 2:"R2$""
2003 R3$=LEFT$(STR$(R(3))+"           ",13):R4$=LEFT$(STR$(R(4))+"    ",5)
2004 PRINT" [208]ELAAJA 3:"R3$"[208]ELAAJA 4:"R4$"":RETURN
2500 DATA1.5,2,3,5,10
3000 RESTORE:FORI=1TO5:READA:NEXT
3001 FORI=0TO12:READA$:A=LEN(A$):FORJ=1TOA:PRINTMID$(A$,J,1);:GOSUB3013:NEXT:PRINT
3002 NEXT:PRINT:POKEV+23,0:POKEV+29,0:POKEV+37,10:POKEV+38,9:POKEV+39,6:POKEV+40,6
3003 POKEV+41,2:POKEV+42,2:POKE2040,230:POKE2041,231:POKE2042,232:POKE2043,233
3004 POKEV+28,15:POKEV,156:POKEV+2,180:POKEV+4,156:POKEV+6,180
3005 POKEV+1,192:POKEV+3,192:POKEV+5,213:POKEV+7,213:POKEV+21,15
3006 FORI=0TO3:READA$:PRINTA$:NEXT:READA$:PRINTA$:GOSUB3013:GOSUB3013:GOSUB3013:PRINT
3007 FORI=1TO12:READA$:A=LEN(A$):FORJ=1TOA:PRINTMID$(A$,J,1);:GOSUB3013:NEXT           
3008 POKEV+1,PEEK(V+1)-16:POKEV+5,PEEK(V+5)-16:POKEV+3,PEEK(V+3)-16:POKEV+7,PEEK(V+7)-16
3009 PRINT:NEXT:POKEV+21,0:FORI=1TO23:READA$:A=LEN(A$):FORJ=1TOA:PRINTMID$(A$,J,1);
3010 GOSUB3013:NEXT:PRINT:NEXT
3011 GETA$:IFA$=""THEN3011
3012 GOTO 10
3013 FORT=0TO50:NEXT:GETB$:IFB$="="THEN3015
3014 RETURN
3015 GETB$:IFB$=""THEN3015
3016 RETURN
3017 DATA"[147][144]                 [201]NFOA"
3018 DATA"                 [163][163][163][163][163]"
3019 DATA"  [214]ENALAINEN RULETTI [144]ON UHKAPELI! [208]ELIS-"
3020 DATA"SA PELAAJA ASETTAA  HENKENSA  PELIPANOK-"
3021 DATA"SEKSI. [217]LEENSA  PELAAJIA ON KAKSI, JOSTA"
3022 DATA"TOISEN ON  HAVITTAVA ENNENKUIN PELI LOP-"
3023 DATA"PUU. [208]ELISTA ON  KEHITETTY  MYOS VERSIO,"
3024 DATA"JOSSA  PELIIN VOI OSALLISTUA MUITA, LYO-"
3025 DATA"MALLA VETOA JOMMAN KUMMAN  PELAAJAN PUO-"
3026 DATA"LESTA TAI  VASTAAN. [212]AMA TIETOKONEESSASI"
3027 DATA"PYORIVA  RULETTI  ON VIELA KEHITTYNEEMPI"
3028 DATA"VERSIO. [212]ASSA PELAAJIA ON VAIN YKSI. [200]AN"
3029 DATA"ON [201]IVAN JA HAN ON TAMAN NAKOINEN:"
3030 DATA"                      [146]"
3031 DATA"                      [146]"
3032 DATA"                      [146]"
3033 DATA"                      [146]"
3034 DATA"                      [146]"
3035 DATA"  [203]OSKA [201]IVAN ON NOIN  SYMPAATTISEN  NA-"
3036 DATA"KOINEN LYOVAT KAIKKI PELAAJAT  VETOA HA-"
3037 DATA"NEN PUOLESTAAN JA TOIVOVAT ETTA PISTOOLI"
3038 DATA"EI LAUKEA. [202]OKAISEN  TAYTYY LYODA VAHIN-"
3039 DATA"TAAN 10 RAHAA VETOA JA JOS JOLTAIN  LOP-"
3040 DATA"PUU RAHAT LOPPUU MYOS PELI.[141]"
3041 DATA"  [211]INULLA ON MAHDOLLISUUS VALITA KUINKA-"
3042 DATA"MONTA PANOSTA RULLASSA ON. [214]OITTOKERTOI-"
3043 DATA"MET, JOTKA  RIIPPUVAT  PANOSTEN MAARASTA"
3044 DATA"OVAT SEURAAVAT:[141]"
3045 DATA"        1 PANOS      1,5 KERTAA[141]"
3046 DATA"        2 PANOSTA    2 KERTAA[141]"
3047 DATA"        3 PANOSTA    3 KERTAA[141]"
3048 DATA"        4 PANOSTA    5 KERTAA[141]"
3049 DATA"        5 PANOSTA    10 KERTAA[141]"
3050 DATA"        6 PANOSTA    MILJUUNA[141]"
3051 DATA"[208]ANOSTEN  MAARAKSI VOIT MYOS VALITA NOL-"
3052 DATA"LAN, JOKA TARKOITTAA  SITA ETTA PANOKSIA"
3053 DATA"ON RULLASSA  SATUNNAINEN MAARA. [197]T TIEDA"
3054 DATA"PANOSTEN  MAARAA  VETOA  LYODESSASI. [202]OS"
3055 DATA"[201]IVAN  EI AMMU  AIVOJAAN SEINALLE  TULEE"
3056 DATA"VOITOT EDELLA MAINITTUJEN KERTOIMIEN MU-"
3057 DATA"KAAN."
3058 DATA"  [202]OS OLET MUUTELLUT ASETUKSIA JA HALUAT"
3059 DATA"NE TAKAISIN  ALKUPERAISIKSI NIIN MENE A-"
3060 DATA"SETUSTEN MUUNTOON JA  HEITA KONEELLE JO-"
3061 DATA"KIN KIRJAINPARI (EI PA,PE,NO,RA) JA VAS-"
3062 DATA"TAA KONEEN KYSYMYKSEEN MYONTAVASTI.[141]"
3068 DATA"  [202]OS SAAT  KOKOON 10.000 VOIT OSTAA [201]I-"
3069 DATA"VANIN VAPAAKSI (PARASTA TEHDA SE!).[141]"
3070 DATA"  [210]ATTOISIA  HETKIA  [214]ENALAISEN  RULETIN"
3071 DATA"[144]SEURASSA! [208]ITAKAA KIVAA![141]"
3072 DATA"[208].[211]. [212]AMAN TEKSTIN  SAA PYSAYTETTYA PAI-"
3073 DATA"NAMALLA =-NAPPAINTA (HEHEHEHEHEHEH).[141]"
3074 DATA"           [206]APPAIMELLA PELIIN          [146]"