10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
20 GOSUB1300
30 PRINT"[152]TEHNYT [197].[214]ARJO"
35 PRINT"[159](C) 1987 [198]LOPPY [205]AGAZINE"
40 PRINT"[154][208]AINA JTKN. N[PP[INT[":POKE198,0:WAIT198,1
70 RESTORE:POKE53280,11:POKE53281,12:PRINT"[147][144]":CLR
80 DIMQ$(25):FORL=1TO25:READQ$(L):NEXT
90 DIMW$(25):FORL=1TO25:READW$(L):NEXT
100 DIME$(25):FORL=1TO25:READE$(L):NEXT
110 DIMR$(25):FORL=1TO25:READR$(L):NEXT
120 A$="":GOSUB1060:A$=Q$(Z)
125 GOSUB1060:A$=A$+" "+W$(Z)
130 GOSUB1060:A$=A$+" "+E$(Z)
140 GOSUB1060:A$=A$+" "+R$(Z)+"."
150 PRINT"[147][203]IRJOITA LAUSE:"
160 PRINTA$
170 P=1144:O=1:GOSUB1100
180 TI$="000000":GETB$:IFB$<>MID$(A$,O,1)THEN180
190 O=O+1:GOSUB1200
200 GETB$:IFB$<>MID$(A$,O,1)THEN200
210 IFB$="."ANDMID$(A$,O,1)="."THENIT$=TI$:GOTO250
220 GOSUB1200:O=O+1:GOTO200
250 S=VAL(RIGHT$(IT$,2)):M=VAL(MID$(IT$,2,2)):AIKA=S+(60*M)
260 POKE53280,0:POKE53281,0:PRINT"[147][158][203]ONEKIRJOITUSNOPEUTESI ON";
265 TULOS=INT((1800/AIKA)*LEN(A$))
270 PRINTTULOS"MERKKI[":PRINT"PUOLESSA TUNNISSA";
280 IFTULOS>PARASTHENPRINT", JOKA ON UUSI ENN[TYS."
285 IFTULOS>PARASTHENPARAS=TULOS:GOTO300
290 IFTULOS=<PARASTHENPRINT"."
300 PRINT"[154][208][IV[N PARAS TULOS:"PARAS
310 PRINT"[152][213]UDESTAAN (K/E) ?"
315 GETV$:IFV$=""THEN315
317 IFV$<>"E"THEN330
320 PRINT"[147][208]ARHAAKSI TULOKSEKSI J[I"PARAS:PRINT"LY\NTI[ PUOLESSA TUNNISSA"
325 PRINT"":END
330 POKE53281,12:POKE53280,11:PRINT"[144][147]":GOTO120
1000 REM******* 1.VAIHE
1001 DATA"[203]AUPAN T[TI","[212]RI [211]CHWEITZCHER","[208]IKKU-[208]EKKA","[211]ATUNNAINEN OHIKULKIJA"
1002 DATA"[207]SCAR","[216]ERXES","[218]EUS","[197]NTINEN MIES","[197]LLU-T[TI","[198]RANKENSTEIN"
1003 DATA"[205]AATALOUSKOSMETOLOGI"
1004 DATA"[193]NOPPI","[202]OULUPUKKI","[206]AAPURIN SET[","[205]USTANAAMIO","[212]ARZAN","[210]ASPUTIN"
1006 DATA"[201]T[-[213]ZPEKISTANILAINEN KANSANTANSSIJA","[197]R[S AIKAMME MERKKIHENKIL\IST["
1008 DATA"[211]YLVESTERI","[193]NNA-[203]AISA","[211]ANNA-[208]ETTERI [211]PLUTTERQUIST"
1009 DATA"[201]LPO-SET[","[205]UUMIPAPPA","[208][[TOIMITTAJA"
1010 REM******* 2.VAIHE
1011 DATAPYLL[HTI ISTUMAAN,HUKKASI TEKOHAMPAANSA,T\RM[SI PUHELINPYLV[[SEEN
1012 DATAVALLAN MUSTAKSI MUUTTUI,KIMMASTUI,IHASTUI IKIHYVIKSI
1013 DATAMUUTTI MAALLE
1014 DATAKILJUI RIEMUSTA,IHMETTELI,ILAHTUI,PUREKSI VARPAANKYNSI[[N
1016 DATASOITTI PALOKUNNAN,KIIPESI PUUHUN,HAUKKOI HENKE[[N,OSTI MOPEDIN
1018 DATAALOITTI ANKARAN DIEETIN,KUTOI KISSALLEEN KAULALIINAN,REPI KALSARINSA
1020 DATAPAHEKSUI,MENI PEDIKYYRIIN,RAIVOSTUI,TILASI TOISEN SAMANLAISEN
1022 DATATANSSI RIPASKAA,MEDITOI,LAKKASI USKOMASTA JOULUPUKKIIN
1024 REM******* 3.VAIHE
1025 DATATEHTY[[N MUOVAILUVAHASTA,PYYDETTY[[N JOULULAHJAKSI
1026 DATASY\TY[[N,VOITETTUAAN,L\YDETTY[[N,SAATUAAN,REI'ITETTY[[N,TEHTY[[N
1027 DATAHUKATTUAAN PERHEEN AINOAN,N[HTY[[N PUHUVAN
1028 DATAN[HTY[[N UNESSA,SAATUAAN LAINAKSI,ANNETTUAAN NAAPURILLE LAINAKSI
1029 DATASY\TY[[N ILLALLISEKSI MAKOISAN
1030 DATAL\YDETTY[[N KOMEROSTA,LUULTUAAN N[HNEENS[,TILATTUAAN POSTITSE HALVAN
1032 DATAN[HTY[[N N[YTEIKKUNASSA UPEAN,SAATUAAN JOULULAHJAKSI
1034 DATAKERROTTUAAN KAIKILLE OSTANEENSA TODELLA MONIK[YTT\ISEN
1036 DATAPYYDYSTETTY[[N MATO-ONGELLA,N[HTY[[N LENT[V[N,SAATUAAN KAVERILTAAN
1038 DATAOSTETTUAAN OSAMAKSULLA,TEHTY[[N LEGO-PALIKOISTA
1040 REM******* 4.VAIHE
1041 DATALEIKKUUPUIMURIN,MODEEMIN,MIKROKYTKIMELLISEN JOYSTICKIN,NAKKIPAKETIN
1042 DATAREIK[JUUSTON,VASEMMAN JALAN SAAPPAAN,PESUKONEEN,OMPELUKONEEN
1043 DATAKAHDEKSAN KILON LOHEN
1044 DATAHILAVITKUTTIMEN,STROBOSKOOPIN,NUKUTUSNUIJAN,OMAN TIETOKONEEN
1046 DATARULLALAUDAN,RUOHONLEIKKURIN,LASKUVARJON,HER[TYSKELLON,SATEENVARJON
1048 DATAAUTOTALLIN OVEN,PULLASUDIN,PEILIKAUKOPUTKEN,SATUNNAISGENERAATTORIN
1050 DATAKARTTAPALLON,SURVIVAL-PUUKON,TUTTIPULLON
1060 Z=INT(RND(1)*25)+1:RETURN
1100 POKEP,PEEK(P)+128:P=P+1:RETURN
1200 POKEP-1,PEEK(P-1)-128:POKEP,PEEK(P)+128:P=P+1:RETURN
1300 PRINT"[147][158]";:KI$="[203]IRJOITUSNOPEUSTESTI"
1310 FORF=1TO20:PRINTMID$(KI$,F,1);:POKE54296,5:POKE54296,0:G=INT(RND(1)*750)+1
1320 FORH=1TOG:NEXT:NEXT
1330 RETURN