home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #6 / Floppy_Magazine_87-6_1987_Megasystems_Oy_fi_Side_B.d64 / sanasto (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  527 lines
  1. 10 rem"[141][147]
  2. 20 [143]"       (NULL)rogrammed by (NULL)etri mid$okimiesgosub
  3. 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]
  4. 27 zx$[178][199](13)
  5. 30 [143]"           (NULL)iitos (NULL).(NULL). & leno.:lle
  6. 35 rem"           ohjelman testauksesta
  7. 36 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantangosub
  8. 40 rem"         ([195]) [208]etri [202]okimies 1987[141]
  9. 50 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":rem[204]
  10. 80 [143][204]
  11. 90 [143][204]
  12. 100 [153][199](142);[199](8);"odota hetkinen  (n. 15 sek)
  13. 110 rem ---- ram stop --------
  14. 120 poke51,0:poke52,128:poke55,0:poke56,128:clr:a=32768:b=55296
  15. 130 rem ---- kopio mgr. ------
  16. 140 poke56334,peek(56334)and254
  17. 150 poke1,peek(1)and251
  18. 160 fori=0to2047:pokei+a,peek(i+b):next
  19. 170 poke(1),peek(1)or4
  20. 180 poke56334,peek(56334)or1
  21. 190 rem ---- kytke p[[lle -------
  22. 200 poke56578,peek(56578)or3
  23. 210 poke56576,(peek(56576)and252)or1
  24. 220 poke53272,(peek(53272)and240)or0
  25. 230 poke53272,(peek(53272)and15)or32
  26. 240 poke648,136:print"[147]"
  27. 250 rem ----- uudet merkit ------
  28. 260 readmn:ifmn<0then410
  29. 270 fori=0to7:reada:poke32768+mn*8+i,a:next
  30. 280 goto260
  31. 290 data000,012,024,126,096,120,096,126,000
  32. 300 data027,054,000,060,006,062,102,062,000
  33. 310 data028,102,000,060,102,102,102,060,000
  34. 320 data029,024,000,060,006,062,102,062,000
  35. 330 data030,102,000,102,102,102,102,062,000
  36. 340 data031,000,124,102,124,102,124,096,192
  37. 350 data091,102,024,036,102,126,102,102,000
  38. 360 data092,024,000,024,060,102,126,102,000
  39. 370 data094,195,060,102,102,102,102,060,000
  40. 380 data095,012,024,060,102,126,096,060,000
  41. 390 data102,102,000,102,102,102,102,060,000
  42. 400 data-1
  43. 410 goto2240
  44. 420 rem -------------------------
  45. 430 lm=lm+1:input"[204]aajennatko";op$:ifop$="k"orop$="[203]"thenz=1:goto560
  46. 440 clr:lm=1:input"[205]ik[ kieli ";k$
  47. 450 print"[203]uinka monta sanaluokkaa ";:inputsl
  48. 460 diml$(sl),t$(sl,10),t(sl),s$(10)
  49. 470 fora=1tosl
  50. 480 printa;". sanaluokka "
  51. 490 input"   nimi ";l$(a)
  52. 500 input"   taivutuksia kpl ";t(a)
  53. 510 forb=1tot(a)
  54. 520 print"   ";b;". taivutus"
  55. 530 input"      nimi ";t$(a,b)
  56. 540 nextb,a
  57. 550 print"[203]iitoksia "
  58. 560 print"[212]uleeko sanoja olemaan enemmin kuin "lu;:input v$
  59. 570 ifleft$(v$,1)="k"orleft$(v$,1)="[203]"then600
  60. 580 lu=100:ifz=1then620
  61. 590 goto610
  62. 600 print"[203]uinka monta sanaa ";:inputlu
  63. 610 dimk$(lu),v$(lu),v%(lu)
  64. 620 print"[214]iimeisen sanan j[lkeen anna '_loppu'."
  65. 630 fora=lmtolu
  66. 640 printa;". sana"
  67. 650 print"   suomeksi"
  68. 660 inputk$(a)
  69. 670 ifk$(a)="_loppu"thenlm=a-1:print"[147]":goto2240
  70. 680 print"   sanaluokka"
  71. 690 inputv$
  72. 700 s=0
  73. 710 forb=1tosl
  74. 720 ifv$=l$(b)thens=b
  75. 730 nextb
  76. 740 ifs=0thenprint"[145]";:goto690
  77. 750 v$(a)=str$(s)
  78. 760 forc=1tot(s)
  79. 770 print"   ";k$;"ksi."
  80. 780 print"      ";t$(s,c)
  81. 790 inputv$
  82. 800 v$(a)=v$(a)+"/"
  83. 810 v$(a)=v$(a)+v$
  84. 820 nextc,a
  85. 830 goto630
  86. 840 rem --------------------------
  87. 850 print"[205]ill[ nimell[ talletan tiedoston":n$="":inputn$
  88. 860 ifn$=""thenreturn
  89. 870 open15,8,15,"s0:"+n$:close15:n$=n$+",s,w"
  90. 880 open1,8,2,n$:gosub5200:ifvn>0thenclose1:close15:goto850
  91. 890 print#1,k$
  92. 900 print#1,sl
  93. 910 fora=1tosl
  94. 920 print#1,l$(a)
  95. 930 print#1,t(a)
  96. 940 forb=1tot(a)
  97. 950 print#1,t$(a,b)
  98. 960 nextb,a
  99. 970 print#1,lu
  100. 980 print#1,lm
  101. 990 fora=1tolm
  102. 1000 print#1,k$(a)
  103. 1010 print#1,v$(a)
  104. 1020 nexta
  105. 1030 close1:close15
  106. 1040 return
  107. 1050 rem ---------------------------
  108. 1060 print"[205]ill[ nimell[ luen tiedoston":n$="":inputn$:ifn$=""thenreturn
  109. 1070 n$=n$+"*,s,r"
  110. 1080 open1,8,2,n$:gosub5200:ifvn>0thenclose1:close15:goto1060
  111. 1090 input#1,k$
  112. 1100 input#1,sl
  113. 1110 diml$(sl),t(sl),t$(sl,10),s$(10)
  114. 1120 fora=1tosl
  115. 1130 input#1,l$(a)
  116. 1140 input#1,t(a)
  117. 1150 forb=1tot(a)
  118. 1160 input#1,t$(a,b)
  119. 1170 nextb,a
  120. 1180 input#1,lu
  121. 1190 input#1,lm
  122. 1200 dimk$(lu),v$(lu),v%(lu)
  123. 1210 fora=1tolm
  124. 1220 input#1,k$(a)
  125. 1230 input#1,v$(a)
  126. 1240 nexta
  127. 1250 close1:close15
  128. 1260 return
  129. 1270 rem -----------------------------
  130. 1280 km=0:as=0
  131. 1290 print"[211]anoja on ";lm;" kpl.":input"[205]ontako sanaa kysyn";km
  132. 1300 ifkm=lmthenas=1
  133. 1310 o=0:v=0:vr=0:fora=1tolm:v%(a)=0:nexta:s=0:x=0
  134. 1320 input"[203]ysynk\ suomalaisen sanan";q$:ifq$="e"orq$="[197]"then1720
  135. 1330 fora=1tokm
  136. 1340 print"                       "
  137. 1350 print"[145]";a;". sana"
  138. 1360 ifas=1thenq%=a:goto1380
  139. 1370 q%=rnd(1)*lm+1
  140. 1380 print"[205]it[ on ";k$(q%);" suomeksi ";
  141. 1390 s$="":k%=-1
  142. 1400 forb=1tolen(v$(q%))
  143. 1410 m$=mid$(v$(q%),b,1)
  144. 1420 ifm$="/"then1440
  145. 1430 s$=s$+m$:goto1490
  146. 1440 k%=k%+1
  147. 1450 ifk%>0then1470
  148. 1460 s=val(s$):goto1480
  149. 1470 s$(k%)=s$
  150. 1480 s$=""
  151. 1490 nextb
  152. 1500 k%=k%+1
  153. 1510 s$(k%)=s$
  154. 1520 print"(";l$(s);")."
  155. 1530 forc=1tot(s)
  156. 1540 print"   ";t$(s,c)
  157. 1550 print"                          "
  158. 1560 print"[145]";
  159. 1570 inputv$
  160. 1580 ifv$=s$(c)theno=o+1:v=0:print"[145]";tab(30);"[207]ikein":goto1630
  161. 1590 print"[214][[rin":v=v+1:x=x+1
  162. 1600 print"[202]o ";v;". kerta.":ifv<4then1570:goto1620
  163. 1610 print"[145][145][145]";
  164. 1620 print"[207]ikea vastaus on "s$(c)"            ":vr=vr+1:v=0
  165. 1630 nextc,a
  166. 1640 print"-------------------------"
  167. 1650 print"[207]ikeita vastauksia ";o
  168. 1660 print"[214]astasit ";x;" kertaa v[[rin "
  169. 1670 printvr;" sanaa v[[rin."
  170. 1680 printint(100*o/(vr+o)+.5);"% oikein."
  171. 1690 getg$:ifg$=""then1690
  172. 1700 return
  173. 1710 rem-----------
  174. 1720 fora=1tokm
  175. 1730 print"                       "
  176. 1740 print"[145]";a;". sana"
  177. 1750 ifas=1thenq%=a:goto1770
  178. 1760 q%=rnd(1)*lm+1
  179. 1770 d$="":k%=-1
  180. 1780 forz=1tolen(v$(q%))
  181. 1790 x$=mid$(v$(q%),z,1)
  182. 1800 ifx$="/"then1820
  183. 1810 d$=d$+x$:goto1870
  184. 1820 k%=k%+1
  185. 1830 ifk%>0then1850
  186. 1840 goto1860
  187. 1850 d$(k%)=d$
  188. 1860 d$=""
  189. 1870 nextz
  190. 1880 k%=k%+1
  191. 1890 d$(k%)=d$
  192. 1900 print"[205]it[ on ";d$(1);" suomeksi";
  193. 1910 s$="":k%=0
  194. 1920 forb=1tolen(k$(q%))
  195. 1930 m$=mid$(k$(q%),b,1)
  196. 1940 ifm$="/"then1960
  197. 1950 s$=s$+m$:goto2010
  198. 1960 k%=k%+1
  199. 1970 ifk%>0then1990
  200. 1980 s=val(s$):goto2000
  201. 1990 s$(k%)=s$
  202. 2000 s$=""
  203. 2010 nextb
  204. 2020 k%=k%+1
  205. 2030 s$(k%)=s$
  206. 2040 print"(";l$(s);")."
  207. 2050 forc=1tot(s)
  208. 2060 print"   ";t$(s,c)
  209. 2070 print"                          "
  210. 2080 print"[145]";
  211. 2090 inputv$
  212. 2100 ifv$=s$(c)theno=o+1:print"[145]";tab(30);"[207]ikein":v=0:goto2150
  213. 2110 print"[214][[rin":v=v+1:x=x+1
  214. 2120 print"[202]o ";v;". kerta." :ifv<4then2090:goto2140
  215. 2130 print"[145][145][145]";
  216. 2140 print"[207]ikea vastaus on "s$(c)"            ":vr=vr+1:v=0
  217. 2150 nextc,a
  218. 2160 print"-------------------------"
  219. 2170 print"[207]ikeita vastauksia ";o
  220. 2180 print"[214]astasit ";x;" kertaa v[[rin"
  221. 2190 printvr;" sanaa v[[rin."
  222. 2200 printint(100*o/(vr+o)+.5);"% oikein."
  223. 2210 getg$:ifg$=""then2210
  224. 2220 return
  225. 2230 rem ------------
  226. 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]";
  227. 2250 print"[221]    [221]                                 [221]";
  228. 2260 print"[221] 1  [221]     [204][213][203][197][205][201][206][197][206]                   [221]";
  229. 2270 print"[221]    [221]                                 [221]";
  230. 2280 print"[221] 2  [221]     [212][193][204][204][197][212][213][211]                    [221]";
  231. 2290 print"[221]    [221]                                 [221]";
  232. 2300 print"[221] 3  [221]     [203][213][213][204][213][211][212][197][204][213]                  [221]";
  233. 2310 print"[221]    [221]                                 [221]";
  234. 2320 print"[221] 4  [221]     [204][193][193][196][201][206][212][193]                    [221]";
  235. 2330 print"[221]    [221]                                 [221]";
  236. 2340 print"[221] 5  [221]     [203][207][210][202][193][213][211]                     [221]";
  237. 2350 print"[221]    [221]                                 [221]";
  238. 2360 print"[221] 6  [221]     [204][207][208][208][213]                       [221]";
  239. 2370 print"[221]    [221]                                 [221]";
  240. 2380 print"[221] 7  [221]     [211][193][206][193][203][201][210][202][193]                   [221]";
  241. 2390 print"[221]    [221]                        (jatka)  [221]";
  242. 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]"
  243. 2410 input"";v$:v=val(v$)
  244. 2420 if v$="jatka" then4500
  245. 2430 onvgoto2450,2470,2480,2490,2510,2520,2580,2590,2600
  246. 2440 goto2240
  247. 2450 clr:print"[147]":gosub1060
  248. 2460 print"[147]":goto2240
  249. 2470 print"[147]":gosub850:print"[147]":goto2240
  250. 2480 print"[147]":gosub1290:print"[147]":goto2240
  251. 2490 print"[147]"
  252. 2500 goto430
  253. 2510 print"[147]":gosub2630:print"[147]":goto2240
  254. 2520 printchr$(9);chr$(147)
  255. 2530 poke56578,peek(56578)or3
  256. 2540 poke56576,(peek(56576)and252)or3
  257. 2550 poke53272,(peek(53272)and240)or4
  258. 2560 poke53272,(peek(53272)and15)or16
  259. 2570 poke648,4:print"[147]":poke52,160:poke56,160:end
  260. 2580 gosub3400:goto2240
  261. 2590 print"[147]":gosub4630:goto4500
  262. 2600 print"[147]":gosub5050:goto4500
  263. 2610 rem ------------------------------
  264. 2620 rem -------------------
  265. 2630 print"[211]anoja on "lm" kappaletta."
  266. 2640 print"[203]ieli on "k$
  267. 2650 print"[211]analuokkia on "sl" kappaletta."
  268. 2660 print"[211]analuokkien esittely:"
  269. 2670 fora=1tosl
  270. 2680 print"[211]analuokka:";l$(a)
  271. 2690 print"-";t(a);"taivutusta"
  272. 2700 print"- ne ovat"
  273. 2710 forb=1tot(a)
  274. 2720 print"  -";t$(a,b)
  275. 2730 nextb:print"(paina jotain)
  276. 2740 [161]z$:[139]z$[178]""[167]2740
  277. 2750 [130]a
  278. 2760 [153]"-------------------"
  279. 2770 zx$[178]"_"
  280. 2780 [153]"(NULL)anoja on ";lm;" kappaletta."
  281. 2790 [129]a[178]1[164]lm
  282. 2800 [153]a;". sana"
  283. 2810 [153]"suomeksi:";k$(a)
  284. 2820 [153]"              k = korjattavaa  e =ei"
  285. 2830 [161]g$
  286. 2840 [139]g$[178]"k"[167]2880
  287. 2850 [139]g$[178]"e"[167]2890
  288. 2860 [139]g$[178]zx$[167][142]
  289. 2870 [137]2830
  290. 2880 [133]k$(a)
  291. 2890 s$[178]"":k%[178][171]1
  292. 2900 [129]b[178]1[164][195](v$(a))
  293. 2910 m$[178][202](v$(a),b,1)
  294. 2920 [139]m$[178]"/"[167]2940
  295. 2930 s$[178]s$[170]m$:[137]2990
  296. 2940 k%[178]k%[170]1
  297. 2950 [139]k%[177]0[167]2970
  298. 2960 s[178][197](s$):[137]2980
  299. 2970 s$(k%)[178]s$
  300. 2980 s$[178]""
  301. 2990 [130]b
  302. 3000 k%[178]k%[170]1
  303. 3010 s$(k%)[178]s$
  304. 3020 [153]"(NULL)analuokka on ";l$(s)
  305. 3030 [153]"              k = korjattavaa  e =ei"
  306. 3040 [161]g$
  307. 3050 [139]g$[178]"k"[167]3090
  308. 3060 [139]g$[178]"e"[167]3230
  309. 3070 [139]g$[178]zx$[167][142]
  310. 3080 [137]3040
  311. 3090 [133]v$
  312. 3100 s[178]0
  313. 3110 [129]b[178]1[164]sl
  314. 3120 [139]v$[178]l$(b)[167]s[178]b
  315. 3130 [130]b
  316. 3140 [139]s[178]0[167][153]"on";:[137]3090
  317. 3150 [153]k$;"ksi:";v$(a)
  318. 3160 v$(a)[178][196](s)
  319. 3170 [129]c[178]1[164]t(s)
  320. 3180 [153]t$(s,c)":"
  321. 3190 [133]v$
  322. 3200 v$(a)[178]v$(a)[170]"/"[170]v$
  323. 3210 [130]c
  324. 3220 [137]3370
  325. 3230 p$[178]""
  326. 3240 p$[178][196](s)
  327. 3250 [129]c[178]1[164]t(s)
  328. 3260 [153]t$(s,c);":"s$(c)
  329. 3270 [153]"              k = korjattavaa  e =ei"
  330. 3280 [161]g$
  331. 3290 [139]g$[178]"k"[167]3330
  332. 3300 [139]g$[178]"e"[167]v$[178]s$(c):[137]3340
  333. 3310 [139]g$[178]zx$[167][142]
  334. 3320 [137]3280
  335. 3330 [133]v$
  336. 3340 p$[178]p$[170]"/"[170]v$
  337. 3350 [130]c
  338. 3360 v$(a)[178]p$
  339. 3370 [130]a
  340. 3380 [142]
  341. 3390 [143] ------------------------------
  342. 3400 [153]"load valtsitt[v[ sana?"
  343. 3410 sa$[178]"":[133]sa$
  344. 3420 [139] sa$[178]""[167][142]
  345. 3430 [133]"(NULL)nko sana suomalainen";x$:[139]x$[178]"k"[176]x$[178]"(NULL)"[167]3790
  346. 3440 [129]a[178]1[164]lm:s$[178]"":k%[178][171]1
  347. 3450 [129]b[178]1[164][195](v$(a))
  348. 3460 m$[178][202](v$(a),b,1)
  349. 3470 [139]m$[178]"/"[167]3490
  350. 3480 s$[178]s$[170]m$:[137]3540
  351. 3490 k%[178]k%[170]1
  352. 3500 [139]k%[177]0[167]3520
  353. 3510 s[178][197](s$):[137]3530
  354. 3520 s$(k%)[178]s$
  355. 3530 s$[178]""
  356. 3540 [130]b
  357. 3550 k%[178]k%[170]1
  358. 3560 s$(k%)[178]s$
  359. 3570 [129] c[178]1 [164] t(s)
  360. 3580 [139] sa$[178]s$(c)[167]3700
  361. 3590 [139] sa$[178][200](s$(c),[195](sa$))[167]3610
  362. 3600 [137]3660
  363. 3610 [153]"---------"
  364. 3620 [153]s$(1)": ";s$(c)" ("l$(s);"/";t$(s,c);")"
  365. 3630 [153]"    =";k$(a)
  366. 3640 [153]"(paina jotain)"
  367. 3650 [161]a$:[139]a$[178]""[167]3650
  368. 3660 [130]c,a
  369. 3670 [153]"(NULL)alitettavasti en l\yt[nyt sit[.(en[[)"
  370. 3680 [161] g$:[139] g$[178]""[167]3680
  371. 3690 [137]3400
  372. 3700 [153]"========="
  373. 3710 [153]"(NULL)ana ";[199](34);sa$;[199](34);" l\ytyi."
  374. 3720 [153]s$(1)": ";s$(c)" ("l$(s);"/";t$(s,c);")"
  375. 3730 [153]"    =";k$(a)
  376. 3740 [153]"(paina jotain)"
  377. 3750 [161]a$:[139]a$[178]""[167]3750
  378. 3760 [130]c,a:[137]3670
  379. 3770 [161] g$:[139] g$[178]""[167]3770
  380. 3780 [137]3400
  381. 3790 [129]a[178]1[164]lm:s$[178]"":k%[178]0
  382. 3800 [129]b[178]1[164][195](k$(a))
  383. 3810 m$[178][202](k$(a),b,1)
  384. 3820 [139]m$[178]"/"[167]3840
  385. 3830 s$[178]s$[170]m$:[137]3890
  386. 3840 k%[178]k%[170]1
  387. 3850 [139]k%[177]0[167]3870
  388. 3860 s[178][197](s$):[137]3880
  389. 3870 s$(k%)[178]s$
  390. 3880 s$[178]""
  391. 3890 [130]b
  392. 3900 k%[178]k%[170]1
  393. 3910 s$(k%)[178]s$
  394. 3920 [129] c[178]1 [164] t(s)
  395. 3930 [139] sa$[178]s$(c)[167]4230
  396. 3940 [139] sa$[178][200](s$(c),[195](sa$))[167]3960
  397. 3950 [137]4190
  398. 3960 [153]"---------"
  399. 3970 [153]s$(1)": ";s$(c)" (/)"
  400. 3980 [153]"    ="
  401. 3990 s$[178]"":k%[178][171]1
  402. 4000 [129]b[178]1[164][195](v$(a))
  403. 4010 m$[178][202](v$(a),b,1)
  404. 4020 [139]m$[178]"/"[167]4040
  405. 4030 s$[178]s$[170]m$:[137]4090
  406. 4040 k%[178]k%[170]1
  407. 4050 [139]k%[177]0[167]4070
  408. 4060 s[178][197](s$):[137]4080
  409. 4070 s$(k%)[178]s$
  410. 4080 s$[178]""
  411. 4090 [130]b
  412. 4100 k%[178]k%[170]1
  413. 4110 s$(k%)[178]s$
  414. 4120 [153]"(";l$(s);")."
  415. 4130 [129]c[178]1[164]t(s)
  416. 4140 [153]"   ";t$(s,c);":";
  417. 4150 [153]"                          cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  418. 4160 [153]s$(c)
  419. 4170 [153]"(paina jotain)"
  420. 4180 [161]a$:[139]a$[178]""[167]4180
  421. 4190 [130]c,a
  422. 4200 [153]"(NULL)alitettavasti en l\yt[nyt sit[.(en[[)"
  423. 4210 [161] g$:[139] g$[178]""[167]4210
  424. 4220 [137]3400
  425. 4230 [153]"========="
  426. 4240 [153]"(NULL)ana ";[199](34);sa$;[199](34);" l\ytyi."
  427. 4250 [153]s$(1)": ";s$(c)
  428. 4260 [153]"    ="
  429. 4270 s$[178]"":k%[178][171]1
  430. 4280 [129]b[178]1[164][195](v$(a))
  431. 4290 m$[178][202](v$(a),b,1)
  432. 4300 [139]m$[178]"/"[167]4320
  433. 4310 s$[178]s$[170]m$:[137]4370
  434. 4320 k%[178]k%[170]1
  435. 4330 [139]k%[177]0[167]4350
  436. 4340 s[178][197](s$):[137]4360
  437. 4350 s$(k%)[178]s$
  438. 4360 s$[178]""
  439. 4370 [130]b
  440. 4380 k%[178]k%[170]1
  441. 4390 s$(k%)[178]s$
  442. 4400 [153]"(";l$(s);")."
  443. 4410 [129]c[178]1[164]t(s)
  444. 4420 [153]"   ";t$(s,c);":";
  445. 4430 [153]"                          cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  446. 4440 [153]s$(c):[130]c
  447. 4450 [153]"(paina jotain)"
  448. 4460 [161]a$:[139]a$[178]""[167]4460
  449. 4470 [130]a:[137]4200
  450. 4480 [161] g$:[139] g$[178]""[167]4210
  451. 4490 [137]3400
  452. 4500 [153]"loadortantantantan=tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  453. 4510 [153]"(NULL)    (NULL)                                 (NULL)";
  454. 4520 [153]"(NULL) 8  (NULL)     (NULL)right$(NULL)(NULL)atn                       (NULL)";
  455. 4530 [153]"(NULL)    (NULL)                                 (NULL)";
  456. 4540 [153]"(NULL) 9  (NULL)     (NULL)(NULL)right$(NULL)(NULL)right$(NULL)right$(NULL)(NULL)atn                 (NULL)";
  457. 4550 [153]"(NULL)    (NULL)                        (jatka)  (NULL)";
  458. 4560 [153]"/tantantantan>tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  459. 4570 [133] v$
  460. 4580 [139] v$[178]"jatka"[167]2240
  461. 4590 v[178][197](v$)
  462. 4600 [139]v[178]0[167]4500
  463. 4610 [137]2430
  464. 4620 [143] ------------------------------
  465. 4630 [153]"(NULL)anoja on "lm" kappaletta."
  466. 4640 [153]"(NULL)ieli on "k$"wait"
  467. 4650 [153]"(NULL)analuokkia on "sl" kappaletta."
  468. 4660 [153]"(NULL)analuokkien esittely:"
  469. 4670 [129]a[178]1[164]sl
  470. 4680 [153]"(NULL)analuokka:";l$(a);"wait"
  471. 4690 [153]"-";t(a);"taivutusta"
  472. 4700 [153]"- ne ovat"
  473. 4710 [129]b[178]1[164]t(a)
  474. 4720 [153]"  -";t$(a,b)
  475. 4730 [130]b:[153]"(paina jotain)"
  476. 4740 [161]z$:[139]z$[178]""[167]4740
  477. 4750 [130]a
  478. 4760 [153]"-------------------"
  479. 4770 [153]"(NULL)anoja on ";lm;" kappaletta."
  480. 4780 [129]a[178]1[164]lm
  481. 4790 [153]a;". sana      --------   "
  482. 4800 [153]k$(a);":"
  483. 4810 s$[178]"":k%[178][171]1
  484. 4820 [129]b[178]1[164][195](v$(a))
  485. 4830 m$[178][202](v$(a),b,1)
  486. 4840 [139]m$[178]"/"[167]4860
  487. 4850 s$[178]s$[170]m$:[137]4910
  488. 4860 k%[178]k%[170]1
  489. 4870 [139]k%[177]0[167]4890
  490. 4880 s[178][197](s$):[137]4900
  491. 4890 s$(k%)[178]s$
  492. 4900 s$[178]""
  493. 4910 [130]b
  494. 4920 k%[178]k%[170]1
  495. 4930 s$(k%)[178]s$
  496. 4940 [153]" ("l$(s)"wait)"
  497. 4950 [129] c[178]1 [164] t(s)
  498. 4960 [153]"- ";t$(s,c);":";s$(c)
  499. 4970 [130] c
  500. 4980 [161] g$
  501. 4990 [139] g$[179][177]""[167]5020
  502. 5000 [153]"(paina jotakin)"
  503. 5010 [161] g$:[139] g$[178]""[167]5010
  504. 5020 [130] a
  505. 5030 [142]
  506. 5040 [143] ------------------------------
  507. 5050 [153]"load  @ = @wait'kissanh[nt['
  508. 5060 print"  [ = [[146]vasen hakasulku
  509. 5070 [153]"  ] = ]waitoikea   -''-
  510. 5080 print"  [219] = [219][146]shift ja +
  511. 5090 [153]"  (NULL) = (NULL)waitcomm. ja -
  512. 5100 print"  _ = _[146]'vasen nuoli'
  513. 5110 [153]"  ^ = ^wait'yl[ nuoli'
  514. 5120 print"  [255] = [255][146]pii
  515. 5130 [153]"  \ = \waitpunta
  516. 5140 print"  [223] = [223][146]comm. ja *
  517. 5150 [153]"  spc( = spc(waitcomm. ja +
  518. 5160 print" [208]aina jotakin"
  519. 5170 getg$:ifg$=""then1690
  520. 5180 return
  521. 5190 rem * tarkistus ------------------
  522. 5200 open15,8,15
  523. 5210 input#15,vn,vi$,vu,vs
  524. 5220 ifvn=0thenreturn
  525. 5230 print"[204]evyvirhe ";vn;vi$;vu;vs
  526. 5240 return
  527.