10 REM"[141][147]
20 [143]"       (null)ROGRAMMED BY (null)ETRI MID$OKIMIESGOSUB
25 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][141]
27 ZX$[178][199](13)
30 [143]"           (null)IITOS (null).(null). & LENO.:LLE
35 REM"           OHJELMAN TESTAUKSESTA
36 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANGOSUB
40 REM"         ([195]) [208]ETRI [202]OKIMIES 1987[141]
50 [143]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":REM[204]
80 [143][204]
90 [143][204]
100 [153][199](142);[199](8);"ODOTA HETKINEN  (N. 15 SEK)
110 REM ---- RAM STOP --------
120 POKE51,0:POKE52,128:POKE55,0:POKE56,128:CLR:A=32768:B=55296
130 REM ---- KOPIO MGR. ------
140 POKE56334,PEEK(56334)AND254
150 POKE1,PEEK(1)AND251
160 FORI=0TO2047:POKEI+A,PEEK(I+B):NEXT
170 POKE(1),PEEK(1)OR4
180 POKE56334,PEEK(56334)OR1
190 REM ---- KYTKE P[[LLE -------
200 POKE56578,PEEK(56578)OR3
210 POKE56576,(PEEK(56576)AND252)OR1
220 POKE53272,(PEEK(53272)AND240)OR0
230 POKE53272,(PEEK(53272)AND15)OR32
240 POKE648,136:PRINT"[147]"
250 REM ----- UUDET MERKIT ------
260 READMN:IFMN<0THEN410
270 FORI=0TO7:READA:POKE32768+MN*8+I,A:NEXT
280 GOTO260
290 DATA000,012,024,126,096,120,096,126,000
300 DATA027,054,000,060,006,062,102,062,000
310 DATA028,102,000,060,102,102,102,060,000
320 DATA029,024,000,060,006,062,102,062,000
330 DATA030,102,000,102,102,102,102,062,000
340 DATA031,000,124,102,124,102,124,096,192
350 DATA091,102,024,036,102,126,102,102,000
360 DATA092,024,000,024,060,102,126,102,000
370 DATA094,195,060,102,102,102,102,060,000
380 DATA095,012,024,060,102,126,096,060,000
390 DATA102,102,000,102,102,102,102,060,000
400 DATA-1
410 GOTO2240
420 REM -------------------------
430 LM=LM+1:INPUT"[204]AAJENNATKO";OP$:IFOP$="K"OROP$="[203]"THENZ=1:GOTO560
440 CLR:LM=1:INPUT"[205]IK[ KIELI ";K$
450 PRINT"[203]UINKA MONTA SANALUOKKAA ";:INPUTSL
460 DIML$(SL),T$(SL,10),T(SL),S$(10)
470 FORA=1TOSL
480 PRINTA;". SANALUOKKA "
490 INPUT"   NIMI ";L$(A)
500 INPUT"   TAIVUTUKSIA KPL ";T(A)
510 FORB=1TOT(A)
520 PRINT"   ";B;". TAIVUTUS"
530 INPUT"      NIMI ";T$(A,B)
540 NEXTB,A
550 PRINT"[203]IITOKSIA "
560 PRINT"[212]ULEEKO SANOJA OLEMAAN ENEMMIN KUIN "LU;:INPUT V$
570 IFLEFT$(V$,1)="K"ORLEFT$(V$,1)="[203]"THEN600
580 LU=100:IFZ=1THEN620
590 GOTO610
600 PRINT"[203]UINKA MONTA SANAA ";:INPUTLU
610 DIMK$(LU),V$(LU),V%(LU)
620 PRINT"[214]IIMEISEN SANAN J[LKEEN ANNA '_LOPPU'."
630 FORA=LMTOLU
640 PRINTA;". SANA"
650 PRINT"   SUOMEKSI"
660 INPUTK$(A)
670 IFK$(A)="_LOPPU"THENLM=A-1:PRINT"[147]":GOTO2240
680 PRINT"   SANALUOKKA"
690 INPUTV$
700 S=0
710 FORB=1TOSL
720 IFV$=L$(B)THENS=B
730 NEXTB
740 IFS=0THENPRINT"[145]";:GOTO690
750 V$(A)=STR$(S)
760 FORC=1TOT(S)
770 PRINT"   ";K$;"KSI."
780 PRINT"      ";T$(S,C)
790 INPUTV$
800 V$(A)=V$(A)+"/"
810 V$(A)=V$(A)+V$
820 NEXTC,A
830 GOTO630
840 REM --------------------------
850 PRINT"[205]ILL[ NIMELL[ TALLETAN TIEDOSTON":N$="":INPUTN$
860 IFN$=""THENRETURN
870 OPEN15,8,15,"S0:"+N$:CLOSE15:N$=N$+",S,W"
880 OPEN1,8,2,N$:GOSUB5200:IFVN>0THENCLOSE1:CLOSE15:GOTO850
890 PRINT#1,K$
900 PRINT#1,SL
910 FORA=1TOSL
920 PRINT#1,L$(A)
930 PRINT#1,T(A)
940 FORB=1TOT(A)
950 PRINT#1,T$(A,B)
960 NEXTB,A
970 PRINT#1,LU
980 PRINT#1,LM
990 FORA=1TOLM
1000 PRINT#1,K$(A)
1010 PRINT#1,V$(A)
1020 NEXTA
1030 CLOSE1:CLOSE15
1040 RETURN
1050 REM ---------------------------
1060 PRINT"[205]ILL[ NIMELL[ LUEN TIEDOSTON":N$="":INPUTN$:IFN$=""THENRETURN
1070 N$=N$+"*,S,R"
1080 OPEN1,8,2,N$:GOSUB5200:IFVN>0THENCLOSE1:CLOSE15:GOTO1060
1090 INPUT#1,K$
1100 INPUT#1,SL
1110 DIML$(SL),T(SL),T$(SL,10),S$(10)
1120 FORA=1TOSL
1130 INPUT#1,L$(A)
1140 INPUT#1,T(A)
1150 FORB=1TOT(A)
1160 INPUT#1,T$(A,B)
1170 NEXTB,A
1180 INPUT#1,LU
1190 INPUT#1,LM
1200 DIMK$(LU),V$(LU),V%(LU)
1210 FORA=1TOLM
1220 INPUT#1,K$(A)
1230 INPUT#1,V$(A)
1240 NEXTA
1250 CLOSE1:CLOSE15
1260 RETURN
1270 REM -----------------------------
1280 KM=0:AS=0
1290 PRINT"[211]ANOJA ON ";LM;" KPL.":INPUT"[205]ONTAKO SANAA KYSYN";KM
1300 IFKM=LMTHENAS=1
1310 O=0:V=0:VR=0:FORA=1TOLM:V%(A)=0:NEXTA:S=0:X=0
1320 INPUT"[203]YSYNK\ SUOMALAISEN SANAN";Q$:IFQ$="E"ORQ$="[197]"THEN1720
1330 FORA=1TOKM
1340 PRINT"                       "
1350 PRINT"[145]";A;". SANA"
1360 IFAS=1THENQ%=A:GOTO1380
1370 Q%=RND(1)*LM+1
1380 PRINT"[205]IT[ ON ";K$(Q%);" SUOMEKSI ";
1390 S$="":K%=-1
1400 FORB=1TOLEN(V$(Q%))
1410 M$=MID$(V$(Q%),B,1)
1420 IFM$="/"THEN1440
1430 S$=S$+M$:GOTO1490
1440 K%=K%+1
1450 IFK%>0THEN1470
1460 S=VAL(S$):GOTO1480
1470 S$(K%)=S$
1480 S$=""
1490 NEXTB
1500 K%=K%+1
1510 S$(K%)=S$
1520 PRINT"(";L$(S);")."
1530 FORC=1TOT(S)
1540 PRINT"   ";T$(S,C)
1550 PRINT"                          "
1560 PRINT"[145]";
1570 INPUTV$
1580 IFV$=S$(C)THENO=O+1:V=0:PRINT"[145]";TAB(30);"[207]IKEIN":GOTO1630
1590 PRINT"[214][[RIN":V=V+1:X=X+1
1600 PRINT"[202]O ";V;". KERTA.":IFV<4THEN1570:GOTO1620
1610 PRINT"[145][145][145]";
1620 PRINT"[207]IKEA VASTAUS ON "S$(C)"            ":VR=VR+1:V=0
1630 NEXTC,A
1640 PRINT"-------------------------"
1650 PRINT"[207]IKEITA VASTAUKSIA ";O
1660 PRINT"[214]ASTASIT ";X;" KERTAA V[[RIN "
1670 PRINTVR;" SANAA V[[RIN."
1680 PRINTINT(100*O/(VR+O)+.5);"% OIKEIN."
1690 GETG$:IFG$=""THEN1690
1700 RETURN
1710 REM-----------
1720 FORA=1TOKM
1730 PRINT"                       "
1740 PRINT"[145]";A;". SANA"
1750 IFAS=1THENQ%=A:GOTO1770
1760 Q%=RND(1)*LM+1
1770 D$="":K%=-1
1780 FORZ=1TOLEN(V$(Q%))
1790 X$=MID$(V$(Q%),Z,1)
1800 IFX$="/"THEN1820
1810 D$=D$+X$:GOTO1870
1820 K%=K%+1
1830 IFK%>0THEN1850
1840 GOTO1860
1850 D$(K%)=D$
1860 D$=""
1870 NEXTZ
1880 K%=K%+1
1890 D$(K%)=D$
1900 PRINT"[205]IT[ ON ";D$(1);" SUOMEKSI";
1910 S$="":K%=0
1920 FORB=1TOLEN(K$(Q%))
1930 M$=MID$(K$(Q%),B,1)
1940 IFM$="/"THEN1960
1950 S$=S$+M$:GOTO2010
1960 K%=K%+1
1970 IFK%>0THEN1990
1980 S=VAL(S$):GOTO2000
1990 S$(K%)=S$
2000 S$=""
2010 NEXTB
2020 K%=K%+1
2030 S$(K%)=S$
2040 PRINT"(";L$(S);")."
2050 FORC=1TOT(S)
2060 PRINT"   ";T$(S,C)
2070 PRINT"                          "
2080 PRINT"[145]";
2090 INPUTV$
2100 IFV$=S$(C)THENO=O+1:PRINT"[145]";TAB(30);"[207]IKEIN":V=0:GOTO2150
2110 PRINT"[214][[RIN":V=V+1:X=X+1
2120 PRINT"[202]O ";V;". KERTA." :IFV<4THEN2090:GOTO2140
2130 PRINT"[145][145][145]";
2140 PRINT"[207]IKEA VASTAUS ON "S$(C)"            ":VR=VR+1:V=0
2150 NEXTC,A
2160 PRINT"-------------------------"
2170 PRINT"[207]IKEITA VASTAUKSIA ";O
2180 PRINT"[214]ASTASIT ";X;" KERTAA V[[RIN"
2190 PRINTVR;" SANAA V[[RIN."
2200 PRINTINT(100*O/(VR+O)+.5);"% OIKEIN."
2210 GETG$:IFG$=""THEN2210
2220 RETURN
2230 REM ------------
2240 PRINT"[147][176][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
2250 PRINT"[221]    [221]                                 [221]";
2260 PRINT"[221] 1  [221]     [204][213][203][197][205][201][206][197][206]                   [221]";
2270 PRINT"[221]    [221]                                 [221]";
2280 PRINT"[221] 2  [221]     [212][193][204][204][197][212][213][211]                    [221]";
2290 PRINT"[221]    [221]                                 [221]";
2300 PRINT"[221] 3  [221]     [203][213][213][204][213][211][212][197][204][213]                  [221]";
2310 PRINT"[221]    [221]                                 [221]";
2320 PRINT"[221] 4  [221]     [204][193][193][196][201][206][212][193]                    [221]";
2330 PRINT"[221]    [221]                                 [221]";
2340 PRINT"[221] 5  [221]     [203][207][210][202][193][213][211]                     [221]";
2350 PRINT"[221]    [221]                                 [221]";
2360 PRINT"[221] 6  [221]     [204][207][208][208][213]                       [221]";
2370 PRINT"[221]    [221]                                 [221]";
2380 PRINT"[221] 7  [221]     [211][193][206][193][203][201][210][202][193]                   [221]";
2390 PRINT"[221]    [221]                        (JATKA)  [221]";
2400 PRINT"[173][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2410 INPUT"";V$:V=VAL(V$)
2420 IF V$="JATKA" THEN4500
2430 ONVGOTO2450,2470,2480,2490,2510,2520,2580,2590,2600
2440 GOTO2240
2450 CLR:PRINT"[147]":GOSUB1060
2460 PRINT"[147]":GOTO2240
2470 PRINT"[147]":GOSUB850:PRINT"[147]":GOTO2240
2480 PRINT"[147]":GOSUB1290:PRINT"[147]":GOTO2240
2490 PRINT"[147]"
2500 GOTO430
2510 PRINT"[147]":GOSUB2630:PRINT"[147]":GOTO2240
2520 PRINTCHR$(9);CHR$(147)
2530 POKE56578,PEEK(56578)OR3
2540 POKE56576,(PEEK(56576)AND252)OR3
2550 POKE53272,(PEEK(53272)AND240)OR4
2560 POKE53272,(PEEK(53272)AND15)OR16
2570 POKE648,4:PRINT"[147]":POKE52,160:POKE56,160:END
2580 GOSUB3400:GOTO2240
2590 PRINT"[147]":GOSUB4630:GOTO4500
2600 PRINT"[147]":GOSUB5050:GOTO4500
2610 REM ------------------------------
2620 REM -------------------
2630 PRINT"[211]ANOJA ON "LM" KAPPALETTA."
2640 PRINT"[203]IELI ON "K$
2650 PRINT"[211]ANALUOKKIA ON "SL" KAPPALETTA."
2660 PRINT"[211]ANALUOKKIEN ESITTELY:"
2670 FORA=1TOSL
2680 PRINT"[211]ANALUOKKA:";L$(A)
2690 PRINT"-";T(A);"TAIVUTUSTA"
2700 PRINT"- NE OVAT"
2710 FORB=1TOT(A)
2720 PRINT"  -";T$(A,B)
2730 NEXTB:PRINT"(PAINA JOTAIN)
2740 [161]Z$:[139]Z$[178]""[167]2740
2750 [130]A
2760 [153]"-------------------"
2770 ZX$[178]"_"
2780 [153]"(null)ANOJA ON ";LM;" KAPPALETTA."
2790 [129]A[178]1[164]LM
2800 [153]A;". SANA"
2810 [153]"SUOMEKSI:";K$(A)
2820 [153]"              K = KORJATTAVAA  E =EI"
2830 [161]G$
2840 [139]G$[178]"K"[167]2880
2850 [139]G$[178]"E"[167]2890
2860 [139]G$[178]ZX$[167][142]
2870 [137]2830
2880 [133]K$(A)
2890 S$[178]"":K%[178][171]1
2900 [129]B[178]1[164][195](V$(A))
2910 M$[178][202](V$(A),B,1)
2920 [139]M$[178]"/"[167]2940
2930 S$[178]S$[170]M$:[137]2990
2940 K%[178]K%[170]1
2950 [139]K%[177]0[167]2970
2960 S[178][197](S$):[137]2980
2970 S$(K%)[178]S$
2980 S$[178]""
2990 [130]B
3000 K%[178]K%[170]1
3010 S$(K%)[178]S$
3020 [153]"(null)ANALUOKKA ON ";L$(S)
3030 [153]"              K = KORJATTAVAA  E =EI"
3040 [161]G$
3050 [139]G$[178]"K"[167]3090
3060 [139]G$[178]"E"[167]3230
3070 [139]G$[178]ZX$[167][142]
3080 [137]3040
3090 [133]V$
3100 S[178]0
3110 [129]B[178]1[164]SL
3120 [139]V$[178]L$(B)[167]S[178]B
3130 [130]B
3140 [139]S[178]0[167][153]"ON";:[137]3090
3150 [153]K$;"KSI:";V$(A)
3160 V$(A)[178][196](S)
3170 [129]C[178]1[164]T(S)
3180 [153]T$(S,C)":"
3190 [133]V$
3200 V$(A)[178]V$(A)[170]"/"[170]V$
3210 [130]C
3220 [137]3370
3230 P$[178]""
3240 P$[178][196](S)
3250 [129]C[178]1[164]T(S)
3260 [153]T$(S,C);":"S$(C)
3270 [153]"              K = KORJATTAVAA  E =EI"
3280 [161]G$
3290 [139]G$[178]"K"[167]3330
3300 [139]G$[178]"E"[167]V$[178]S$(C):[137]3340
3310 [139]G$[178]ZX$[167][142]
3320 [137]3280
3330 [133]V$
3340 P$[178]P$[170]"/"[170]V$
3350 [130]C
3360 V$(A)[178]P$
3370 [130]A
3380 [142]
3390 [143] ------------------------------
3400 [153]"LOAD VALTSITT[V[ SANA?"
3410 SA$[178]"":[133]SA$
3420 [139] SA$[178]""[167][142]
3430 [133]"(null)NKO SANA SUOMALAINEN";X$:[139]X$[178]"K"[176]X$[178]"(null)"[167]3790
3440 [129]A[178]1[164]LM:S$[178]"":K%[178][171]1
3450 [129]B[178]1[164][195](V$(A))
3460 M$[178][202](V$(A),B,1)
3470 [139]M$[178]"/"[167]3490
3480 S$[178]S$[170]M$:[137]3540
3490 K%[178]K%[170]1
3500 [139]K%[177]0[167]3520
3510 S[178][197](S$):[137]3530
3520 S$(K%)[178]S$
3530 S$[178]""
3540 [130]B
3550 K%[178]K%[170]1
3560 S$(K%)[178]S$
3570 [129] C[178]1 [164] T(S)
3580 [139] SA$[178]S$(C)[167]3700
3590 [139] SA$[178][200](S$(C),[195](SA$))[167]3610
3600 [137]3660
3610 [153]"---------"
3620 [153]S$(1)": ";S$(C)" ("L$(S);"/";T$(S,C);")"
3630 [153]"    =";K$(A)
3640 [153]"(PAINA JOTAIN)"
3650 [161]A$:[139]A$[178]""[167]3650
3660 [130]C,A
3670 [153]"(null)ALITETTAVASTI EN L\YT[NYT SIT[.(EN[[)"
3680 [161] G$:[139] G$[178]""[167]3680
3690 [137]3400
3700 [153]"========="
3710 [153]"(null)ANA ";[199](34);SA$;[199](34);" L\YTYI."
3720 [153]S$(1)": ";S$(C)" ("L$(S);"/";T$(S,C);")"
3730 [153]"    =";K$(A)
3740 [153]"(PAINA JOTAIN)"
3750 [161]A$:[139]A$[178]""[167]3750
3760 [130]C,A:[137]3670
3770 [161] G$:[139] G$[178]""[167]3770
3780 [137]3400
3790 [129]A[178]1[164]LM:S$[178]"":K%[178]0
3800 [129]B[178]1[164][195](K$(A))
3810 M$[178][202](K$(A),B,1)
3820 [139]M$[178]"/"[167]3840
3830 S$[178]S$[170]M$:[137]3890
3840 K%[178]K%[170]1
3850 [139]K%[177]0[167]3870
3860 S[178][197](S$):[137]3880
3870 S$(K%)[178]S$
3880 S$[178]""
3890 [130]B
3900 K%[178]K%[170]1
3910 S$(K%)[178]S$
3920 [129] C[178]1 [164] T(S)
3930 [139] SA$[178]S$(C)[167]4230
3940 [139] SA$[178][200](S$(C),[195](SA$))[167]3960
3950 [137]4190
3960 [153]"---------"
3970 [153]S$(1)": ";S$(C)" (/)"
3980 [153]"    ="
3990 S$[178]"":K%[178][171]1
4000 [129]B[178]1[164][195](V$(A))
4010 M$[178][202](V$(A),B,1)
4020 [139]M$[178]"/"[167]4040
4030 S$[178]S$[170]M$:[137]4090
4040 K%[178]K%[170]1
4050 [139]K%[177]0[167]4070
4060 S[178][197](S$):[137]4080
4070 S$(K%)[178]S$
4080 S$[178]""
4090 [130]B
4100 K%[178]K%[170]1
4110 S$(K%)[178]S$
4120 [153]"(";L$(S);")."
4130 [129]C[178]1[164]T(S)
4140 [153]"   ";T$(S,C);":";
4150 [153]"                          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
4160 [153]S$(C)
4170 [153]"(PAINA JOTAIN)"
4180 [161]A$:[139]A$[178]""[167]4180
4190 [130]C,A
4200 [153]"(null)ALITETTAVASTI EN L\YT[NYT SIT[.(EN[[)"
4210 [161] G$:[139] G$[178]""[167]4210
4220 [137]3400
4230 [153]"========="
4240 [153]"(null)ANA ";[199](34);SA$;[199](34);" L\YTYI."
4250 [153]S$(1)": ";S$(C)
4260 [153]"    ="
4270 S$[178]"":K%[178][171]1
4280 [129]B[178]1[164][195](V$(A))
4290 M$[178][202](V$(A),B,1)
4300 [139]M$[178]"/"[167]4320
4310 S$[178]S$[170]M$:[137]4370
4320 K%[178]K%[170]1
4330 [139]K%[177]0[167]4350
4340 S[178][197](S$):[137]4360
4350 S$(K%)[178]S$
4360 S$[178]""
4370 [130]B
4380 K%[178]K%[170]1
4390 S$(K%)[178]S$
4400 [153]"(";L$(S);")."
4410 [129]C[178]1[164]T(S)
4420 [153]"   ";T$(S,C);":";
4430 [153]"                          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
4440 [153]S$(C):[130]C
4450 [153]"(PAINA JOTAIN)"
4460 [161]A$:[139]A$[178]""[167]4460
4470 [130]A:[137]4200
4480 [161] G$:[139] G$[178]""[167]4210
4490 [137]3400
4500 [153]"LOADORTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
4510 [153]"(null)    (null)                                 (null)";
4520 [153]"(null) 8  (null)     (null)RIGHT$(null)(null)ATN                       (null)";
4530 [153]"(null)    (null)                                 (null)";
4540 [153]"(null) 9  (null)     (null)(null)RIGHT$(null)(null)RIGHT$(null)RIGHT$(null)(null)ATN                 (null)";
4550 [153]"(null)    (null)                        (JATKA)  (null)";
4560 [153]"/TANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4570 [133] V$
4580 [139] V$[178]"JATKA"[167]2240
4590 V[178][197](V$)
4600 [139]V[178]0[167]4500
4610 [137]2430
4620 [143] ------------------------------
4630 [153]"(null)ANOJA ON "LM" KAPPALETTA."
4640 [153]"(null)IELI ON "K$"WAIT"
4650 [153]"(null)ANALUOKKIA ON "SL" KAPPALETTA."
4660 [153]"(null)ANALUOKKIEN ESITTELY:"
4670 [129]A[178]1[164]SL
4680 [153]"(null)ANALUOKKA:";L$(A);"WAIT"
4690 [153]"-";T(A);"TAIVUTUSTA"
4700 [153]"- NE OVAT"
4710 [129]B[178]1[164]T(A)
4720 [153]"  -";T$(A,B)
4730 [130]B:[153]"(PAINA JOTAIN)"
4740 [161]Z$:[139]Z$[178]""[167]4740
4750 [130]A
4760 [153]"-------------------"
4770 [153]"(null)ANOJA ON ";LM;" KAPPALETTA."
4780 [129]A[178]1[164]LM
4790 [153]A;". SANA      --------   "
4800 [153]K$(A);":"
4810 S$[178]"":K%[178][171]1
4820 [129]B[178]1[164][195](V$(A))
4830 M$[178][202](V$(A),B,1)
4840 [139]M$[178]"/"[167]4860
4850 S$[178]S$[170]M$:[137]4910
4860 K%[178]K%[170]1
4870 [139]K%[177]0[167]4890
4880 S[178][197](S$):[137]4900
4890 S$(K%)[178]S$
4900 S$[178]""
4910 [130]B
4920 K%[178]K%[170]1
4930 S$(K%)[178]S$
4940 [153]" ("L$(S)"WAIT)"
4950 [129] C[178]1 [164] T(S)
4960 [153]"- ";T$(S,C);":";S$(C)
4970 [130] C
4980 [161] G$
4990 [139] G$[179][177]""[167]5020
5000 [153]"(PAINA JOTAKIN)"
5010 [161] G$:[139] G$[178]""[167]5010
5020 [130] A
5030 [142]
5040 [143] ------------------------------
5050 [153]"LOAD  @ = @WAIT'KISSANH[NT['
5060 PRINT"  [ = [[146]VASEN HAKASULKU
5070 [153]"  ] = ]WAITOIKEA   -''-
5080 PRINT"  [219] = [219][146]SHIFT JA +
5090 [153]"  (null) = (null)WAITCOMM. JA -
5100 PRINT"  _ = _[146]'VASEN NUOLI'
5110 [153]"  ^ = ^WAIT'YL[ NUOLI'
5120 PRINT"  [255] = [255][146]PII
5130 [153]"  \ = \WAITPUNTA
5140 PRINT"  [223] = [223][146]COMM. JA *
5150 [153]"  SPC( = SPC(WAITCOMM. JA +
5160 PRINT" [208]AINA JOTAKIN"
5170 GETG$:IFG$=""THEN1690
5180 RETURN
5190 REM * TARKISTUS ------------------
5200 OPEN15,8,15
5210 INPUT#15,VN,VI$,VU,VS
5220 IFVN=0THENRETURN
5230 PRINT"[204]EVYVIRHE ";VN;VI$;VU;VS
5240 RETURN