1 REM"        [192] SANAOPE II EDITION [192]
2 [143]"
3 REM"      [192] COPYRIGHT BY JARI PAUNA [192]
4 [143]"
5 REM" [192] THANKS TO TESTGROUP TOMMI VAINAMO [192]
6 [143]"TAN AND TO G.BERGLUND & REFERENCE GUIDE TAN
7 REM"CHARACTERS AT BANK 2 SO RESTORE DISABLED
8 :::[143]INDS ME C-64'S PECULARITIES::: 8[204]
9 [151]53280,0:[151]53281,0:[153]"LOAD":[139]U[178]0[167][134]SU$(120):[134]EN$(120):[134]ZX(120)
10 [151]53265,[194](53265)[175]247:[139]U[178]0[167][134]EE$(120):[134]ES$(120):[134]HY$(120)
12 [153]"LIST(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$","LIST(null)(null)TANRIGHT$                  LIST(null)PRINT#RIGHT$"
13 [153]"LIST(null)(null)                    LIST(null)PRINT#(null)POKERIGHT$"
14 [153]"LIST(null)MID$TANRIGHT$(null)TANRIGHT$ORTANRIGHT$(null)TANRIGHT$(null)TANRIGHT$ORTANRIGHT$(null)TANRIGHT$LIST(null)PRINT#(null)POKE(null)"
15 [153]"LIST(null)  (null)(null) (null)(null) (null)(null) (null)(null) (null)(null) (null)-TAN(null)LIST(null)PRINT#(null)POKE(null)"
16 [153]"LIST(null)MID$TAN(null)MID$TANMID$MID$ MID$MID$TANMID$MID$TAN(null)-TAN(null)MID$TAN(null)LIST(null)PRINT#(null)POKE(null)"
17 [153]"LIST(null)               (null)     LIST(null)PRINT#(null)POKE(null)"
18 [153]"LISTMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)PRINT#(null)POKE(null)"
19 [153]"PRINT#MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)POKE(null)"
20 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
21 [153]"BY JARI PAUNA",""
29 [129]A[178]0[164]5000:[130]:[161]A$:[139]A$[178]"_"[167][161]B$:[139]B$
30 [153]"LOAD":[129]L[178]679[164]730:[135]A:[151]L,A:[130]
31 [158]679:[151]52,128:[151]56,128
32 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]1
33 [151]648,136:[151]53272,32:[153][199](142)
34 [131]120,165,1,41,251,133,1,169,0,133,251,169,208,133,252,169,,133,253,169
35 [131]128,133,254,160,,177,251,145,253,200,192,,208,247,230,252,230,254,165
36 [131]252,201,216,208,237,165,1,9,4,133,1,88,96
37 [129]BY[178]0[164]7:[135]A:[151]32768[170]BY,A:[130]
38 [131]24,102,24,36,126,102,102,0
39 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]27)[170]BY,A:[130]
40 [131]195,60,102,102,102,102,60,0
41 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]29)[170]BY,A:[130]:[129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]42)[170]BY,A:[130]
42 [131]219,60,102,102,126,102,102,0,102,0,102,102,102,102,60,0
43 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]124)[170]BY,A:[130]
44 [131]3,15,31,59,99,243,255,255
45 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]110)[170]BY,A:[130]:[129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]30)[170]BY,A:[130]
46 [131]192,240,248,220,198,207,255,255,124,102,102,108,102,110,110,0
47 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]109)[170]BY,A:[130]
48 [131]207,227,240,120,60,31,15,3
49 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]125)[170]BY,A:[130]
50 [131]243,199,15,14,60,248,240,192
51 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]65)[170]BY,A:[130]
52 [131]3,15,31,59,115,227,255,255
53 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]83)[170]BY,A:[130]
54 [131]192,240,248,220,206,199,255,255
55 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]90)[170]BY,A:[130]
56 [131]255,231,199,114,56,31,15,3
57 [129]BY[178]0[164]7:[135]A:[151]32768[170](8[172]88)[170]BY,A:[130]
58 [131]255,143,15,102,252,248,240,192
59 [153]""
60 KE$[178]"MIK] SINUN NIMESI ON ?":[141] 234:[133]NI$
61 KE$[178]"HALUATKO LADATA SANATIEDOSTON":[141] 234:[153]"F-1WAIT=KYLL],F-7WAIT=EN"
63 [137]280
64 [143]
65 KE$[178]"ANNA VIERASKIELINEN SANA":[141] 234:[133]EN$(LA)
66 KE$[178]"ANNA SUOMENKIELINEN SANA":[141]234:[133]SU$(LA)
68 [153]"LOADEDELLISET SANAT OLIVAT"
69 [153]"";EN$(LA):[153]"";SU$(LA):[139]LA[178]119[167]80
70 [153]"F-1WAIT=KORJAUS":[153]"F-7WAIT=SANOJEN KUULUSTELU"
71 [153]"RETURNWAIT=LIS]] SANOJA"
72 [161]A$:[139]A$[179][177][199](13)[167][139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167]72
73 [139]A$[178][199](13)[167]LA[178]LA[170]1:[137]65
74 [139]A$[178]"INPUT"[167]76
75 [139]A$[178]"LET"[167] 80
76 [153]"LOADKIRJOITA UUDELLEEN SANA ";SU$(LA):[153]:[133]SU$(LA)
77 [153]"LOADKIRJOITA UUDELLEEN SANA ";EN$(LA)
78 [133]EN$(LA):[137]68
79 LA[178]LA[170]1:[137]65
80 KE$[178]"HALUATKO TALLENTAA SANAT ?":[141] 234
81 [153]"F-1WAIT=KYLL],F-7WAIT=EN"
82 [137]283
83 KE$[178]"SANOJEN KUULUSTELU":[141] 234:[129]A[178]0[164]3000:[130]
84 [153]"LOADANNANKO VIERAS- VAI SUOMENKIELISEN SANAN"
85 [153]"F-1WAIT=VIERASKIEL. F-7WAIT=SUOMENKIEL."
86 [161]A$:[139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167]86
87 [139]A$[178]"INPUT"[167] KY[178]2
88 [139]A$[178]"LET"[167] KY[178]1:[143] FIN
90 [143] KUULUSTELU
93 [129]LP[178]LA[164]0[169][171]1
97 [139]KY[178]2[167]KY$[178]EN$(LP):VA$[178]SU$(LP)
98 [139]KY[178]1[167]VA$[178]EN$(LP):KY$[178]SU$(LP)
99 KE$[178]KY$:[141] 234
100 [153]:[153]:[133]KI$
101 [139]KI$[178]VA$[167][153]"SYSOIKEIN! HIENOA,";NI$:[141] 265:ZX(LP)[178]1
102 [139]KI$[179][177]VA$[167][153]"SYSHMMM... SANA ON ";VA$:[141] 267
103 [153]"PAINA RETURNIA"
104 [161]A$:[139]A$[179][177][199](13)[167]104
105 [130]LP
106 E[178]0:[129]P[178]0[164]LA:[139]ZX(P)[178]0[167]ES$(E)[178]SU$(P):EE$(E)[178]EN$(P):E[178]E[170]1
107 [130]
108 [153]"LOADSINULLA OLI V]]RIN ";E;"WAIT SANAA!":[129]P[178]0[164]3200:[130]
109 [139]E[178]0[167][137]290
110 KE$[178]"UUSINTAKUULUSTELU!":[141] 234:[129]P[178]0[164]2000:[130]
111 [129]I[178]0[164](E[171]1):HY(I)[178]0:[130]
112 [129]O[178]0[164](E[171]1)
113 [139]KY[178]2[167]KY$[178]EE$(O):VA$[178]ES$(O)
114 [139]KY[178]1[167]VA$[178]EE$(O):KY$[178]ES$(O)
115 KE$[178]KY$:[141] 234
116 [153]:[153]:[133]KI$
117 [139]KI$[178]VA$[167][153]"SYSOIKEIN,";NI$;" - HYV]!":[141] 265:HY(O)[178]1
118 [139]KI$[179][177]VA$[167][153]"SYSVOI,VOI! SANA ON ";VA$:[141] 267
119 [153]"PAINA RETURNIA"
120 [161]A$:[139]A$[179][177][199](13)[167]120
121 [130]:[139]E[178]0[167][137]290
122 [153]"LOADSANOJA OLI ";LA[170]1;"WAIT KPL."
123 [153]"JOISTA VASTASIT HETI OIKEIN ";LA[170]1[171]E;"KPL."
124 [153]"OIKEINVASTAUS-% ON ";((LA[170]1[171]E)[173](LA[170]1))[172]100;"WAIT."
125 [153]"PAINA RETURNWAIT,NIIN SAAT SANAT,JOTKA"
126 [153]"JOUDUT OPETTELEMAAN UUDESTAAN!"
127 [161]A$:[139]A$[179][177][199](13)[167]127
128 [153]"LOADKIRJOITA YL[S JA OPETTELE!"
129 [129]P[178]0[164](E[171]1):[139]HY(P)[178]1[167] 135
130 [139]HY(P)[178]0[167][153]EE$(P);" = ";ES$(P)
131 T[178]T[170]1:[139]T[178][179]21[167]135
132 [153]"PAINA RETURNWAIT SEURAAVALLE SIVULLE."
133 [161]A$:[139]A$[179][177][199](13)[167]133
134 T[178]0
135 [130]
217 [153]"PAINA RETURN LOPETETTUASI."
218 [161]A$:[139]A$[179][177][199](13)[167]218
219 [143] LOPPUPAGE
220 [153]"LOADF-1WAIT = KUULUSTELU UUSILLA SANOILLA":U[178]1
221 [153]"F-3WAIT = UUSINTAKUULUSTELU"
222 [153]"F-5WAIT = SANAOPE POIS MUISTISTA"
223 [153]"F-7WAIT = SANOJEN TALLENNUS":[153]"F-8WAIT = LIS]] SANOJA TIEDOSTOON"
224 [161]A$:[139]A$[179][177]"INPUT"[167] [139]A$[179][177]"DIM"[167] [139]A$[179][177]"READ"[167][139]A$[179][177]"LET"[167][139]A$[179][177]"RESTORE"[167]224
225 [137]310
226 [139]A$[178]"DIM"[167]:[129]A[178]0[164]120:ZX(A)[178]0:[130]:[137]83
227 [139]A$[178]"LET"[167] [141] 250:[137]220
228 [151]53280,2:[151]53281,2:[153]"LOADSTOPOLETKO VARMA ?"
229 [153]"F-1WAIT = OLEN , F-7WAIT = MIST] ON KYSYMYS ?"
230 [161]A$:[139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167]230
231 [139]A$[178]"LET"[167] [151]53280,0:[151]53281,0:[153]"":[137]220
232 [139]A$[178]"INPUT"[167][158]64738
233 [143] KEHYS-RUTIINI
234 A[178][195](KE$):B[178][181]((40[171]A)[173]2):[153]"LOAD";
235 [129]W[178]1[164]B:[153]" ";:[130]
236 [153]"(null)CMD(null)CMDMID$ONON";
237 [129]W[178]1[164]A:[153]"TAN";:[130]
238 [153]"RIGHT$CMD(null)CMD(null)";:[153]"":[129]W[178]1[164]B:[153]" ";:[130]:[153]"ON";
239 [129]W[178]1[164]A:[153]"TAN";:[130]:[153]"":[129]W[178]1[164]B:[153]" ";:[130]:[153]"";KE$
240 [153]"":[142]
241 [143]   GET-RUTIINI
242 [161]A$:[139]A$[179][177][199](13)[167][139]A$[179][177]"INPUT"[167][139]A$[179][177]"DIM"[167][139]A$[179][177]"READ"[167] [139]A$[179][177]"LET"[167]242
243 [139]A$[178][199](13)[167] GE[178]RE
244 [139]A$[178]"INPUT"[167] GE[178]F1
245 [139]A$[178]"DIM"[167] GE[178]F3
246 [139]A$[178]"READ"[167] GE[178]F5
247 [139]A$[178]"LET"[167] GE[178]F7
248 [137]RN
249 [143] SAVE-RUTIINI
250 KE$[178]"SANOJEN TALLENNUS":[141] 234
251 [153]"TIEDOSTON NIMI ?":[153]:[133]TN$
252 [153]"PAINA RETURNWAIT KUN OLET SAANUT KASETIN    NAUHURIIN."
253 [161]A$:[139]A$[179][177][199](13)[167]253
254 [159]1,1,1,TN$:[152]1,LA
255 [129]N[178]0[164]LA:[152]1,SU$(N):[130]:[129]N[178]0[164]LA:[152]1,EN$(N):[130]
256 [160]1:[142]
257 [143] LOAD-RUTIINI
258 KE$[178]"SANOJEN LATAUS":[141] 234
259 [153]"ANNA TIEDOSTON NIMI "
260 [153]:[133]TN$
261 [159]1,1,0,TN$:[132]1,LA
262 [129]N[178]0[164]LA:[132]1,SU$(N):[130]:[129]N[178]0[164]LA:[132]1,EN$(N):[130]
263 [160]1:[142]
264 [143] HYMY
265 [153]"ATN(null)CMDCMD/EXP":[142]
266 [143] IRVISTYS
267 [153]"LOG^CMDCMD(null)(null)ONON?":[142]
268 [143] MUISTITILA-RUTIINI
269 F[178]([184](0)[171]([184](0)[179]0)[172]65536)
270 [142]
280 [161]A$:[139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167] 280
281 [139]A$[178]"INPUT"[167][137]305
282 [137]64
283 [161]A$:[139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167]283
284 [139]A$[178]"INPUT"[167][141]250
285 [137]83
290 [153]"LOADSYS"
291 [153]"                  "
292 [153]"                           "
293 [153]"         "
294 [153]"            "
295 [153]"            "
296 [153]"          "
297 [153]"          "
298 [153]"           "
299 [153]"              "
300 [153]"         "
302 [153]"                    "
303 [153]"                  "
304 [129]A[178]0[164]5000:[130]:[153]"":[137]220
305 KE$[178]"HALUATKO LAAJENTAA SANATIEDOSTOA ?":[141]234
306 [153]"F-1WAIT = KYLL] , F-7WAIT = EN"
307 [161]A$:[139]A$[179][177]"INPUT"[167][139]A$[179][177]"LET"[167]307
308 [139]A$[178]"LET"[167][141]258:[137]83
309 [141]258:LA[178]LA[170]1:[137]65
310 [139]A$[178]"INPUT"[167][138]
311 [139]A$[178]"RESTORE"[167]LA[178]LA[170]1:[137]65
312 [137]226