5 SYS64789:SYS65409
6 POKE53280,6
9 DIMC$(40),D$(40)
10 GOTO100
39 REM ** PIENIKSI KIRJAIMIKSI.
40 D=0:FORE=1TOC:D$(E)="":NEXT
41 D=D+1:IFC$(D)="."ANDD=CTHEND$(C)=".":RETURN
42 E=0
43 E=E+1:D$=MID$(C$(D),E,1):IFD$<CHR$(193)THEN45
44 D$=CHR$(ASC(D$)-128)
45 D$(D)=D$(D)+D$:IFE=LEN(D$(D))+1THEN41
46 GOTO43
49 REM ** FUNKTIOT.
50 IFA$="[133]"THENGOSUB3000
51 IFA$="[137]"THENGOSUB3010
58 GOTO81
59 REM ** JAA LAUSE SANOIHIN.
60 B=0:C=1:IFLEN(B$)=0THENC$(C)=".":RETURN
61 B=B+1:IFB=LEN(B$)+1THENC$(C)=".":RETURN
62 IFMID$(B$,B,1)=CHR$(32)THEN61
63 GOTO66
64 B=B+1:IFMID$(B$,B,1)<>CHR$(32)THEN66
65 C=C+1:GOTO61
66 C$(C)=C$(C)+MID$(B$,B,1)
67 IFLEN(B$)=BTHENC=C+1:C$(C)=".":RETURN
68 GOTO64
69 REM ** TYHJENN[ SANAPUSKURI.
70 FORD=1TOC:C$(D)="":NEXT:RETURN
79 REM ** KERRO ASIASI.
80 GOSUB95:PRINT"[206]YT ON SINUN VUOROSI!"
81 B$="":GOSUB95
82 A$="":POKE198,0:POKE204,0:WAIT198,1:POKE204,1:GETA$
83 IFA$=CHR$(13)THEN96
84 IFA$>CHR$(132)ANDA$<CHR$(142)THEN50
85 IFA$=CHR$(20)THEN97
86 IFA$>CHR$(31)ANDA$<CHR$(96)THEN90
87 IFA$>CHR$(192)ANDA$<CHR$(222)THEN90
88 GOTO82
90 PRINTA$;:B$=B$+A$:IFLEN(B$)<78THEN82
91 GOSUB96:GOSUB95:PRINT"[206]YT RIITT[[. [197]NEMP[[ EN PYSTY K[SITTE-"
92 PRINT"LEM[[N (JOS T[T[K[[N)...":RETURN
95 PRINT:PRINT">[154]";:RETURN
96 PRINT".":RETURN
97 IFLEN(B$)=0THEN82
98 PRINT" [157][157] [157]";:B$=MID$(B$,1,LEN(B$)-1):GOTO82
99 PRINT:PRINT"[214]IRHE OHJELMASSA!":RETURN98
100 PRINT"[147][154][211]ILLOIN, KUN SINULLA EI OLE MIT[[N TEKE-";
101 PRINT"MIST[, LATAA MINUT JA SAAT MINUSTA"
102 PRINT"KESKUSTELUKUMPPANIN.":PRINT"[205]UISTA KUITENKIN, ETT[ OLEN VAIN KONE,"
103 PRINT"ENK[ OSAA L[HESK[[N AINA OLLA VIISAS."
104 PRINT"[204]IS[KSI MINUT TEHNYT TYYPPI, [212]ONI [204]UODE,";
105 PRINT"EI VARMASTIKAAN OLE OTTANUT KAIKKEA"
106 PRINT"HUOMIOON. [211]IT[ PAITSI OLEN 64:N SIS[SS[,";
107 PRINT"JOHON EI MUUTENKAAN LIIKAA TAVARAA"
108 PRINT"MAHDU. [219]L[ KUITENKAAN NYT MASENNU, ETT["
109 PRINT"OLISIN AIVAN SURKEA, SILL[ KYLL[ MIN["
110 PRINT"AINA JOTAIN OSAAN."
120 B1$=B$:GOSUB80:GOSUB60
121 GOSUB1000
122 GOSUB70:GOTO120
999 REM ** PARSERINI SANASTO.
1000 :
1009 IFB$=B1$THEN2018
1010 IFC$(1)="."THEN2000
1011 IFLEN(C$(1))=1ANDC=2THEN2020
1020 GOSUB40
1021 IFD$(1)="POIS"THEN2010
1022 IFD$(1)="QUIT"THENGOSUB2019:GOTO2010
1023 GOSUB2030
1040 IFD$(1)="KUKA"ORD$(1)="MIK["THEN1900
1100 GOTO2026
1900 IFLEFT$(D$(2),4)="OLET"THEN3100
1901 GOTO2026
2000 X=INT(RND(1)*6)+1:ONXGOTO2001,2002,2003,2004,2005,2006
2001 PRINT"[200]ALUATKO APUA? [208]AINA SIIN[ TAPAUKSESSA  [198]1:ST[.":RETURN
2002 PRINT"[212]OIVOISIN, ETT[ KESKUSTELISIT HIEMAN    J[RKEV[MMIN.":RETURN
2003 PRINT"[207]NKO TUO NYT NOIN HAUSKAA?":RETURN
2004 PRINT"[202]OS ET HALUA KESKUSTELLA, VAAN LEIKKI[, TEE SE MUUALLA!":RETURN
2005 PRINT"[208]OIS P[[SET KIRJOITTAMALLA 'POIS'.":RETURN
2006 PRINT"[200]ALUATKO LOPETTAA [203]/[197] ??";:GOSUB81:VA$=LEFT$(B$,1):GOTO2011
2010 PRINT"[200]ALUATKO TOSIAAN POIS [203]/[197] ?";:GOSUB81:VA$=LEFT$(B$,1)
2011 IFVA$="K"ORVA$="[203]"THENEND
2012 RETURN
2015 PRINT"[202]OS VIEL[ TOISTAT TUON, ALAN MIN[KIN    TOISTAA ITSE[NI.":RETURN
2016 PRINT"[210]AJOITA RIEMUASI.":RETURN
2017 PRINT"[219]L[ VIITSI TOISTAA ITSE[SI.":RETURN
2018 X=INT(RND(1)*4)+1:ONXGOTO2017,2016,2015,2004
2019 PRINT"[214]OI MINULLE PUHUA SUOMEKSIKIN.":RETURN
2020 X=INT(RND(1)*6)+1:ONXGOTO2021,2022,2023,2024,2002,2004
2021 PRINT"[197]N NYT OIKEIN TAJUA, MIT[ HALUAT.":GOTO2024
2022 PRINT"[217]HDEN KIRJAIMEN SANOJA EI SUOMESSA OLE!":RETURN
2023 PRINT"[212]URHA YRITT[[. [197]N TAJUA."
2024 PRINT"[211]ELIT[ TARKEMMIN.":RETURN
2025 PRINT"[212][H??? [206]YT EN YMM[RR[.":RETURN
2026 X=INT(RND(1)*5)+1:ONXGOTO2021,2023,2024,2025,2027
2027 PRINT"[197]N SAA SELV[[. [203]OKEILE SANOA SE TOISIN.":RETURN
2030 E=0:F=0
2031 E=E+1:IFLEFT$(D$(E),4)="TONI"THENF=1:GOTO2034
2032 IFE=CTHENRETURN
2033 GOTO2031
2034 IFE=CTHENPRINT"[212]ONI [204]UODE ON MUUTEN MAHTAVA TYYPPI.":RETURN
2035 E=E+1:IFLEFT$(D$(E),5)="LUODE"THENPRINT"[212]UNNETKO TYYPIN? [205]IN[ TUNNEN."
2036 PRINT"[212]ONI ON TOSI KIVA TYYPPI.":RETURN
2999 REM ** F1.
3000 PRINT"[147]"SPC(10)"[212][SS[ HIUKAN APUA."
3001 PRINT"[197]NSINN[KIN: [203]OKEILE [198]2:STA [198]4:[[N, NIIN TULEE LIS[[ HJELPPIRUUTUJA."
3002 PRINT"'[211]ANASTO'-K[SKY[ EI MINUSTA L\YDY, KOSKAJOS JOTAIN YMM[RR[N, NIIN"
3003 PRINT"N[ET SEN KYLL[."
3004 PRINT"[212]EKSTI[ VOIT KIRJOITTAA N[PP[IMIST\LT[  IHAN NIIN KUIN MISS[ TAHANSA
3005 [153]"TEKSTIPELISS[. VALRONA ON VAIN SE, ETT[   MIN[ VAL(null) OLE TEKSTIPELI,"
3006 [153]"VAAN AIVAN JOTAIN MAHTAVAA JA SEN SEM-  MOISTA. VALI T[SS[ NYT SITTE";
3007 [153]"N MUUTA.":[142]
3009 [143] ** F2.
3010 [153]"LOAD"[166]10)"...JA LIS[[ APUA..."
3011 [153]"(null)OIT MY\S KYSY[ MINULTA JOTAIN. (null)SAAN   EHK[ JOPA VASTATAKIN..."
3012 [153]"VALSIM. >CONT(null)IT[ ON 1+1?"
3013 [153]"(null)OIT MY\S 'K[SKE[' MINUA TEKEM[[N JOTA- KIN, ESIM. >CONT(null)ASKE 1+1."
3014 [153]"MID$OS HALUAT POIS T[ST[ (null)RIGHT$RIGHT$(null)(null)(null)RIGHT$(null)ATN(null)(null)ATN KES- KUSTELUOHJELMASTA, KIRJOITA"
3015 [153]"ZIMPPELISTI >CONTPOIS.":[142]
3100 [153]"LOAD(null)LEN KESKUSTELUOHJELMA. (null)INUN KANSSANI"
3101 [153]"VOI HYVIN TUHLATA KALLISTA AIKAANSA     ESIM. L[KSYJEN LUKEMISEN S";
3102 [153]"IJAAN.":[142]