home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_B.d64 / sanaope (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  202 lines
  1. 1 rem"        [192] sanaope ii edition [192]
  2. 2 [143]"
  3. 3 rem"      [192] copyright by jari pauna [192]
  4. 4 [143]"
  5. 5 rem" [192] thanks to testgroup tommi vainamo [192]
  6. 6 [143]"tan and to g.berglund & reference guide tan
  7. 7 rem"characters at bank 2 so restore disabled
  8. 8 :::[143]inds me c-64's pecularities::: 8[204]
  9. 9 [151]53280,0:[151]53281,0:[153]"load":[139]u[178]0[167][134]su$(120):[134]en$(120):[134]zx(120)
  10. 10 [151]53265,[194](53265)[175]247:[139]u[178]0[167][134]ee$(120):[134]es$(120):[134]hy$(120)
  11. 12 [153]"list(NULL)tantantantantantantantantantantantantantantantantantantantantanright$","list(NULL)(NULL)tanright$                  list(NULL)print#right$"
  12. 13 [153]"list(NULL)(NULL)                    list(NULL)print#(NULL)pokeright$"
  13. 14 [153]"list(NULL)mid$tanright$(NULL)tanright$ortanright$(NULL)tanright$(NULL)tanright$ortanright$(NULL)tanright$list(NULL)print#(NULL)poke(NULL)"
  14. 15 [153]"list(NULL)  (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)-tan(NULL)list(NULL)print#(NULL)poke(NULL)"
  15. 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)"
  16. 17 [153]"list(NULL)               (NULL)     list(NULL)print#(NULL)poke(NULL)"
  17. 18 [153]"listmid$tantantantantantantantantantantantantantantantantantantantantan(NULL)print#(NULL)poke(NULL)"
  18. 19 [153]"print#mid$tantantantantantantantantantantantantantantantantantantantantan(NULL)poke(NULL)"
  19. 20 [153]"mid$tantantantantantantantantantantantantantantantantantantantantan(NULL)"
  20. 21 [153]"by jari pauna",""
  21. 29 [129]a[178]0[164]5000:[130]:[161]a$:[139]a$[178]"_"[167][161]b$:[139]b$
  22. 30 [153]"load":[129]l[178]679[164]730:[135]a:[151]l,a:[130]
  23. 31 [158]679:[151]52,128:[151]56,128
  24. 32 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]1
  25. 33 [151]648,136:[151]53272,32:[153][199](142)
  26. 34 [131]120,165,1,41,251,133,1,169,0,133,251,169,208,133,252,169,,133,253,169
  27. 35 [131]128,133,254,160,,177,251,145,253,200,192,,208,247,230,252,230,254,165
  28. 36 [131]252,201,216,208,237,165,1,9,4,133,1,88,96
  29. 37 [129]by[178]0[164]7:[135]a:[151]32768[170]by,a:[130]
  30. 38 [131]24,102,24,36,126,102,102,0
  31. 39 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]27)[170]by,a:[130]
  32. 40 [131]195,60,102,102,102,102,60,0
  33. 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]
  34. 42 [131]219,60,102,102,126,102,102,0,102,0,102,102,102,102,60,0
  35. 43 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]124)[170]by,a:[130]
  36. 44 [131]3,15,31,59,99,243,255,255
  37. 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]
  38. 46 [131]192,240,248,220,198,207,255,255,124,102,102,108,102,110,110,0
  39. 47 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]109)[170]by,a:[130]
  40. 48 [131]207,227,240,120,60,31,15,3
  41. 49 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]125)[170]by,a:[130]
  42. 50 [131]243,199,15,14,60,248,240,192
  43. 51 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]65)[170]by,a:[130]
  44. 52 [131]3,15,31,59,115,227,255,255
  45. 53 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]83)[170]by,a:[130]
  46. 54 [131]192,240,248,220,206,199,255,255
  47. 55 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]90)[170]by,a:[130]
  48. 56 [131]255,231,199,114,56,31,15,3
  49. 57 [129]by[178]0[164]7:[135]a:[151]32768[170](8[172]88)[170]by,a:[130]
  50. 58 [131]255,143,15,102,252,248,240,192
  51. 59 [153]""
  52. 60 ke$[178]"mik] sinun nimesi on ?":[141] 234:[133]ni$
  53. 61 ke$[178]"haluatko ladata sanatiedoston":[141] 234:[153]"f-1wait=kyll],f-7wait=en"
  54. 63 [137]280
  55. 64 [143]
  56. 65 ke$[178]"anna vieraskielinen sana":[141] 234:[133]en$(la)
  57. 66 ke$[178]"anna suomenkielinen sana":[141]234:[133]su$(la)
  58. 68 [153]"loadedelliset sanat olivat"
  59. 69 [153]"";en$(la):[153]"";su$(la):[139]la[178]119[167]80
  60. 70 [153]"f-1wait=korjaus":[153]"f-7wait=sanojen kuulustelu"
  61. 71 [153]"returnwait=lis]] sanoja"
  62. 72 [161]a$:[139]a$[179][177][199](13)[167][139]a$[179][177]"input"[167][139]a$[179][177]"let"[167]72
  63. 73 [139]a$[178][199](13)[167]la[178]la[170]1:[137]65
  64. 74 [139]a$[178]"input"[167]76
  65. 75 [139]a$[178]"let"[167] 80
  66. 76 [153]"loadkirjoita uudelleen sana ";su$(la):[153]:[133]su$(la)
  67. 77 [153]"loadkirjoita uudelleen sana ";en$(la)
  68. 78 [133]en$(la):[137]68
  69. 79 la[178]la[170]1:[137]65
  70. 80 ke$[178]"haluatko tallentaa sanat ?":[141] 234
  71. 81 [153]"f-1wait=kyll],f-7wait=en"
  72. 82 [137]283
  73. 83 ke$[178]"sanojen kuulustelu":[141] 234:[129]a[178]0[164]3000:[130]
  74. 84 [153]"loadannanko vieras- vai suomenkielisen sanan"
  75. 85 [153]"f-1wait=vieraskiel. f-7wait=suomenkiel."
  76. 86 [161]a$:[139]a$[179][177]"input"[167][139]a$[179][177]"let"[167]86
  77. 87 [139]a$[178]"input"[167] ky[178]2
  78. 88 [139]a$[178]"let"[167] ky[178]1:[143] fin
  79. 90 [143] kuulustelu
  80. 93 [129]lp[178]la[164]0[169][171]1
  81. 97 [139]ky[178]2[167]ky$[178]en$(lp):va$[178]su$(lp)
  82. 98 [139]ky[178]1[167]va$[178]en$(lp):ky$[178]su$(lp)
  83. 99 ke$[178]ky$:[141] 234
  84. 100 [153]:[153]:[133]ki$
  85. 101 [139]ki$[178]va$[167][153]"sysoikein! hienoa,";ni$:[141] 265:zx(lp)[178]1
  86. 102 [139]ki$[179][177]va$[167][153]"syshmmm... sana on ";va$:[141] 267
  87. 103 [153]"paina returnia"
  88. 104 [161]a$:[139]a$[179][177][199](13)[167]104
  89. 105 [130]lp
  90. 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
  91. 107 [130]
  92. 108 [153]"loadsinulla oli v]]rin ";e;"wait sanaa!":[129]p[178]0[164]3200:[130]
  93. 109 [139]e[178]0[167][137]290
  94. 110 ke$[178]"uusintakuulustelu!":[141] 234:[129]p[178]0[164]2000:[130]
  95. 111 [129]i[178]0[164](e[171]1):hy(i)[178]0:[130]
  96. 112 [129]o[178]0[164](e[171]1)
  97. 113 [139]ky[178]2[167]ky$[178]ee$(o):va$[178]es$(o)
  98. 114 [139]ky[178]1[167]va$[178]ee$(o):ky$[178]es$(o)
  99. 115 ke$[178]ky$:[141] 234
  100. 116 [153]:[153]:[133]ki$
  101. 117 [139]ki$[178]va$[167][153]"sysoikein,";ni$;" - hyv]!":[141] 265:hy(o)[178]1
  102. 118 [139]ki$[179][177]va$[167][153]"sysvoi,voi! sana on ";va$:[141] 267
  103. 119 [153]"paina returnia"
  104. 120 [161]a$:[139]a$[179][177][199](13)[167]120
  105. 121 [130]:[139]e[178]0[167][137]290
  106. 122 [153]"loadsanoja oli ";la[170]1;"wait kpl."
  107. 123 [153]"joista vastasit heti oikein ";la[170]1[171]e;"kpl."
  108. 124 [153]"oikeinvastaus-% on ";((la[170]1[171]e)[173](la[170]1))[172]100;"wait."
  109. 125 [153]"paina returnwait,niin saat sanat,jotka"
  110. 126 [153]"joudut opettelemaan uudestaan!"
  111. 127 [161]a$:[139]a$[179][177][199](13)[167]127
  112. 128 [153]"loadkirjoita yl[s ja opettele!"
  113. 129 [129]p[178]0[164](e[171]1):[139]hy(p)[178]1[167] 135
  114. 130 [139]hy(p)[178]0[167][153]ee$(p);" = ";es$(p)
  115. 131 t[178]t[170]1:[139]t[178][179]21[167]135
  116. 132 [153]"paina returnwait seuraavalle sivulle."
  117. 133 [161]a$:[139]a$[179][177][199](13)[167]133
  118. 134 t[178]0
  119. 135 [130]
  120. 217 [153]"paina return lopetettuasi."
  121. 218 [161]a$:[139]a$[179][177][199](13)[167]218
  122. 219 [143] loppupage
  123. 220 [153]"loadf-1wait = kuulustelu uusilla sanoilla":u[178]1
  124. 221 [153]"f-3wait = uusintakuulustelu"
  125. 222 [153]"f-5wait = sanaope pois muistista"
  126. 223 [153]"f-7wait = sanojen tallennus":[153]"f-8wait = lis]] sanoja tiedostoon"
  127. 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
  128. 225 [137]310
  129. 226 [139]a$[178]"dim"[167]:[129]a[178]0[164]120:zx(a)[178]0:[130]:[137]83
  130. 227 [139]a$[178]"let"[167] [141] 250:[137]220
  131. 228 [151]53280,2:[151]53281,2:[153]"loadstopoletko varma ?"
  132. 229 [153]"f-1wait = olen , f-7wait = mist] on kysymys ?"
  133. 230 [161]a$:[139]a$[179][177]"input"[167][139]a$[179][177]"let"[167]230
  134. 231 [139]a$[178]"let"[167] [151]53280,0:[151]53281,0:[153]"":[137]220
  135. 232 [139]a$[178]"input"[167][158]64738
  136. 233 [143] kehys-rutiini
  137. 234 a[178][195](ke$):b[178][181]((40[171]a)[173]2):[153]"load";
  138. 235 [129]w[178]1[164]b:[153]" ";:[130]
  139. 236 [153]"(NULL)cmd(NULL)cmdmid$onon";
  140. 237 [129]w[178]1[164]a:[153]"tan";:[130]
  141. 238 [153]"right$cmd(NULL)cmd(NULL)";:[153]"":[129]w[178]1[164]b:[153]" ";:[130]:[153]"on";
  142. 239 [129]w[178]1[164]a:[153]"tan";:[130]:[153]"":[129]w[178]1[164]b:[153]" ";:[130]:[153]"";ke$
  143. 240 [153]"":[142]
  144. 241 [143]   get-rutiini
  145. 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
  146. 243 [139]a$[178][199](13)[167] ge[178]re
  147. 244 [139]a$[178]"input"[167] ge[178]f1
  148. 245 [139]a$[178]"dim"[167] ge[178]f3
  149. 246 [139]a$[178]"read"[167] ge[178]f5
  150. 247 [139]a$[178]"let"[167] ge[178]f7
  151. 248 [137]rn
  152. 249 [143] save-rutiini
  153. 250 ke$[178]"sanojen tallennus":[141] 234
  154. 251 [153]"tiedoston nimi ?":[153]:[133]tn$
  155. 252 [153]"paina returnwait kun olet saanut kasetin    nauhuriin."
  156. 253 [161]a$:[139]a$[179][177][199](13)[167]253
  157. 254 [159]1,1,1,tn$:[152]1,la
  158. 255 [129]n[178]0[164]la:[152]1,su$(n):[130]:[129]n[178]0[164]la:[152]1,en$(n):[130]
  159. 256 [160]1:[142]
  160. 257 [143] load-rutiini
  161. 258 ke$[178]"sanojen lataus":[141] 234
  162. 259 [153]"anna tiedoston nimi "
  163. 260 [153]:[133]tn$
  164. 261 [159]1,1,0,tn$:[132]1,la
  165. 262 [129]n[178]0[164]la:[132]1,su$(n):[130]:[129]n[178]0[164]la:[132]1,en$(n):[130]
  166. 263 [160]1:[142]
  167. 264 [143] hymy
  168. 265 [153]"atn(NULL)cmdcmd/exp":[142]
  169. 266 [143] irvistys
  170. 267 [153]"log^cmdcmd(NULL)(NULL)onon?":[142]
  171. 268 [143] muistitila-rutiini
  172. 269 f[178]([184](0)[171]([184](0)[179]0)[172]65536)
  173. 270 [142]
  174. 280 [161]a$:[139]a$[179][177]"input"[167][139]a$[179][177]"let"[167] 280
  175. 281 [139]a$[178]"input"[167][137]305
  176. 282 [137]64
  177. 283 [161]a$:[139]a$[179][177]"input"[167][139]a$[179][177]"let"[167]283
  178. 284 [139]a$[178]"input"[167][141]250
  179. 285 [137]83
  180. 290 [153]"loadsys"
  181. 291 [153]"                  "
  182. 292 [153]"                           "
  183. 293 [153]"         "
  184. 294 [153]"            "
  185. 295 [153]"            "
  186. 296 [153]"          "
  187. 297 [153]"          "
  188. 298 [153]"           "
  189. 299 [153]"              "
  190. 300 [153]"         "
  191. 302 [153]"                    "
  192. 303 [153]"                  "
  193. 304 [129]a[178]0[164]5000:[130]:[153]"":[137]220
  194. 305 ke$[178]"haluatko laajentaa sanatiedostoa ?":[141]234
  195. 306 [153]"f-1wait = kyll] , f-7wait = en"
  196. 307 [161]a$:[139]a$[179][177]"input"[167][139]a$[179][177]"let"[167]307
  197. 308 [139]a$[178]"let"[167][141]258:[137]83
  198. 309 [141]258:la[178]la[170]1:[137]65
  199. 310 [139]a$[178]"input"[167][138]
  200. 311 [139]a$[178]"restore"[167]la[178]la[170]1:[137]65
  201. 312 [137]226
  202.