home *** CD-ROM | disk | FTP | other *** search
/ Publication 13 / Publication_13_19xx_Civitas_de_Side_A.d64 / asciibasicdentro (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  965 lines
  1. 3 remprint"":goto820
  2. 5 poke53280,0:poke53281,0:print"[147]":poke53272,21:poke646,1
  3. 6 gosub1600
  4. 7 print"
  5. 10 x[178]7:[141]1010
  6. 11 x[178]22:[141]1010
  7. 12 x[178]17:[141]1010
  8. 13 x[178]32:[141]1010
  9. 14 x[178]12:[141]1010
  10. 15 x[178]27:[141]1010
  11. 20 [129]x[178]1[164]7
  12. 21 [139]x[178]1[167][151]646,13
  13. 22 [139]x[178]2[167][151]646,15
  14. 23 [139]x[178]3[167][151]646,12
  15. 24 [139]x[178]4[167][151]646,8
  16. 25 [139]x[178]5[167][151]646,11
  17. 26 [139]x[178]6[167][151]646,9
  18. 27 [139]x[178]7[167][151]646,0
  19. 28 [153][166]10)"                    on"
  20. 29 [130]
  21. 30 [129]x[178]1[164]7
  22. 31 [139]x[178]1[167][151]646,9
  23. 32 [139]x[178]2[167][151]646,11
  24. 33 [139]x[178]3[167][151]646,8
  25. 34 [139]x[178]4[167][151]646,12
  26. 35 [139]x[178]5[167][151]646,15
  27. 36 [139]x[178]6[167][151]646,13
  28. 37 [139]x[178]7[167][151]646,1
  29. 38 [153][166]10)" amorphis presents: on"
  30. 39 [130]:[153]"ononononononononon"
  31. 40 [129]x[178]1[164]9
  32. 41 [139]x[178]1[167][151]646,9
  33. 42 [139]x[178]2[167][151]646,11
  34. 43 [139]x[178]3[167][151]646,8
  35. 44 [139]x[178]4[167][151]646,12
  36. 45 [139]x[178]5[167][151]646,15
  37. 46 [139]x[178]6[167][151]646,13
  38. 47 [139]x[178]7[167][151]646,1
  39. 48 [139]x[178]8[167][151]646,13
  40. 49 [139]x[178]9[167][151]646,15
  41. 50 [153][166]12)"step (NULL)cmdcmdcmdcmdstep a (NULL)cmdcmdcmdcmdcmdcmdstep new (NULL)cmdcmdcmdcmdcmdcmdcmdcmdstep basic (NULL)"
  42. 51 [153][166]8)"step  trick  (NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdwaitstep         wait(NULL)onononononon"
  43. 55 [130]
  44. 60 [141]1160
  45. 69 [153]""
  46. 70 [129]a[178]1[164]4:[129]o[178]1[164]8
  47. 71 [153][166]30)a$(o)"cmd";b$(o)"onon"
  48. 72 [130]o
  49. 73 [153]"";:[130]a
  50. 75 [153][166]29)" c waiton"
  51. 76 [153][166]28)" cd: waiton"
  52. 77 [153][166]27)" caed: waiton"
  53. 78 [153][166]26)" called: waiton"
  54. 79 f[178]53281:g[178]53280
  55. 80 [129]x[178]1[164]7
  56. 81 [139]x[178]1[167][151]646,13
  57. 82 [139]x[178]2[167][151]646,15
  58. 83 [139]x[178]3[167][151]646,12
  59. 84 [139]x[178]4[167][151]646,8
  60. 85 [139]x[178]5[167][151]646,11:[151]f,9
  61. 86 [139]x[178]6[167][151]646,9:[151]f,11
  62. 87 [139]x[178]7[167][151]646,0:[151]f,8
  63. 88 [153][166]26)" called! waiton":[130]x:g[178]53280
  64. 89 [129]y[178]1[164]11:[139]y[178]1[167][151]f,12
  65. 90 [139]y[178]2[167][151]f,15:[141]1050
  66. 91 [139]y[178]3[167][151]f,13
  67. 92 [139]y[178]4[167][151]f,1:[153][166]10)" -dizajn w bejziku-  wait"
  68. 93 [139]y[178]5[167][151]f,13
  69. 94 [139]y[178]6[167][151]f,15
  70. 95 [139]y[178]7[167][151]f,12
  71. 96 [139]y[178]8[167][151]f,8
  72. 97 [139]y[178]9[167][151]f,11
  73. 98 [139]y[178]10[167][151]f,9
  74. 99 [139]y[178]11[167][151]f,0
  75. 100 [130]y
  76. 102 [153]"onononononon"
  77. 105 [129]r[178]1[164]30
  78. 110 [153][166]r[170]4)" cmd "
  79. 113 [153][166]35[171]r)" cmd ononononon"
  80. 115 [130]
  81. 119 [153]""
  82. 120 [129]x[178]1[164]7
  83. 121 [139]x[178]1[167][151]646,13
  84. 122 [139]x[178]2[167][151]646,15
  85. 123 [139]x[178]3[167][151]646,12
  86. 124 [139]x[178]4[167][151]646,8
  87. 125 [139]x[178]5[167][151]646,11
  88. 126 [139]x[178]6[167][151]646,9
  89. 127 [139]x[178]7[167][151]646,0
  90. 128 [153][166]6)"     -dizajn w bejziku-     on"
  91. 129 [130]
  92. 130 [129]x[178]1[164]7
  93. 131 [139]x[178]1[167][151]646,9
  94. 132 [139]x[178]2[167][151]646,11
  95. 133 [139]x[178]3[167][151]646,8
  96. 134 [139]x[178]4[167][151]646,12
  97. 135 [139]x[178]5[167][151]646,15
  98. 136 [139]x[178]6[167][151]646,13
  99. 137 [139]x[178]7[167][151]646,1
  100. 138 [153][166]6)"     -dizajn w bejziku-     on"
  101. 139 [130]
  102. 140 [141]1165
  103. 143 o[178]0:f[178]o[170]8
  104. 145 [129]a[178]0[164]13:[129]o[178]1[164]7
  105. 146 [153][166]33[171]a)d$(o)c$(o)"on"
  106. 147 [153][166]5[170]a)d$(f[171]1)c$(f[171]1)"on"
  107. 148 f[178]f[171]1
  108. 149 [130]o:o[178]0:f[178]o[170]8:[130]a
  109. 150 [129]a[178]1[164]6:[129]o[178]1[164]8
  110. 151 [153][166]20)a$(o)"cmd";b$(o)"onon"
  111. 152 [130]o
  112. 153 [153]"";:[130]a
  113. 155 x[178]20:[141]1013
  114. 156 [153][166]19)"ononononononon
  115. 160 foro=7to1step-1
  116. 161 printspc(19)d$(o)c$(o)"[145]":gosub1009
  117. 162 nexto
  118. 165 fora=1to3:foro=1to8
  119. 166 printspc(20)a$(o)"[157]";b$(o)"[145][145]"
  120. 167 nexto
  121. 168 print"";:nexta
  122. 169 e=17
  123. 170 printspc(e)"[152]   [163][146]   "
  124. 171 printspc(e)"      [146] "
  125. 172 printspc(e)"      [146] "
  126. 173 printspc(e)"[167]     [146][165]"
  127. 174 printspc(e)"      [146] "
  128. 175 printspc(e)"      [146] [145][145][145][145][145][145]"
  129. 176 printspc(e)"[129]   [183][146]   "
  130. 177 printspc(e)"      [146] "
  131. 178 printspc(e)"[167]     [146][165]"
  132. 179 printspc(e)"[182]     [146][161]"
  133. 180 printspc(e)"[167]     [146][165]"
  134. 181 printspc(e)"      [146] [145][145][145][145][145][145]"
  135. 182 printspc(e)"[151]   [162]   "
  136. 183 printspc(e)"[167]     [146][165]"
  137. 184 printspc(e)"[182]     [146][161]"
  138. 185 printspc(e)"[181]     [182][146]"
  139. 186 printspc(e)"[182]     [146][161]"
  140. 187 printspc(e)"[167]     [146][165][145][145][145][145][145][145]"
  141. 188 printspc(e)"[149]   [175]   "
  142. 189 printspc(e)"[182]     [146][161]"
  143. 190 printspc(e)"[161]     [182][146]"
  144. 191 printspc(e)"[181]     [170][146]"
  145. 192 printspc(e)"[161]     [182][146]"
  146. 193 printspc(e)"[182]     [146][161][145][145][145][145][145][145]"
  147. 194 printspc(e)"       "
  148. 195 printspc(e)"[161]     [182][146]"
  149. 196 printspc(e)"[165]     [167][146]"
  150. 197 printspc(e)"       [146]"
  151. 198 printspc(e)"[165]     [167][146]"
  152. 199 printspc(e)"[161]     [182][146][145][145][145][145][145]"
  153. 200 printspc(e)"[165]     [167][146]"
  154. 201 printspc(e)"       [146]"
  155. 202 printspc(e)"       [146]"
  156. 203 printspc(e)"       [146]"
  157. 204 printspc(e)"[165]     [167][146][145][145][145][145][145]"
  158. 205 printspc(e)"       [146]"
  159. 206 printspc(e)"       [146]"
  160. 207 printspc(e)"       [146]"
  161. 208 printspc(e)"       [146]"
  162. 209 printspc(e)"       [146][145][145][145][145][145]"
  163. 210 gosub1150
  164. 219 e=16:f=24
  165. 220 fort=1to6
  166. 221 printspc(e)e$(t)"[145][145][145][145][145]"
  167. 222 printspc(f)f$(t)"[145][145][145][145][145]"
  168. 223 nextt
  169. 224 e=e-1:f=f+1
  170. 225 fort=1to6step2
  171. 226 printspc(e)e$(t)"[145][145][145][145][145]"
  172. 227 printspc(f)f$(t)"[145][145][145][145][145]"
  173. 228 nextt
  174. 229 printspc(e)" [157] [157] [157] [157] [146][145][145][145][145][145]":printspc(f)" [157] [157] [157] [157] [157][146][145][145][145][145][145][145]"
  175. 230 e=e-1:f=f+1
  176. 231 fory=1to14
  177. 232 printspc(e)" [157] [157] [157] [157] [146][145][145][145][145][145]":printspc(f)" [157] [157] [157] [157] [157][146][145][145][145][145][145][145]"
  178. 233 e=e-1:f=f+1
  179. 234 nexty
  180. 235 print" [157] [157] [157] [157] [146][145][145][145][145][145]"
  181. 239 print"[145][145]"
  182. 240 foru=1to17:readu:poke646,u:printspc(16)"code by:[145]"
  183. 241 ifu=16then244
  184. 242 nextu
  185. 243 data 1,1,13,13,15,15,12,12,8,8,11,11,9,9,0,0,16
  186. 244 print"":d=53281:v=5:f=d-1
  187. 245 forx=1to8
  188. 246 ifx=1thenpoked,1 :pokef,1
  189. 247 ifx=2thenpoked,13:pokef,13
  190. 248 ifx=3thenpoked,15:pokef,15
  191. 249 ifx=4thenpoked,12:pokef,12
  192. 250 ifx=5thenpoked,8 :pokef,8
  193. 251 ifx=6thenpoked,11:pokef,11
  194. 252 ifx=7thenpoked,9 :pokef,9
  195. 253 ifx=8thenpoked,0 :pokef,0
  196. 255 printspc(v)"[145][145][144] [149] [151] [129] [152] [155] [153]            [176][174]   [153] [155] [152] [129] [151] [149] [144] [146]
  197. 256 [153][166]v)"onstop verify poke for print# list print (NULL)str$(NULL)str$(NULL)right$right$str$(NULL)str$(NULL)(NULL)(NULL)   print list print# for poke verify stop wait
  198. 257 printspc(v)"[144] [149] [151] [129] [152] [155] [153] [199][171][179][221][200][200][200][221][200][221][200][221][221]   [153] [155] [152] [129] [151] [149] [144] [146]
  199. 258 [153][166]v)"onstop verify poke for print# list print  asc(NULL)asc(NULL)mid$(NULL)or(NULL)asc(NULL)ascexp(NULL)(NULL)(NULL)print list print# for poke verify stop wait
  200. 259 printspc(v)"[144] [149] [151] [129] [152] [155] [153]       [173][189]        [153] [155] [152] [129] [151] [149] [144] [146][145][145][145][145]
  201. 260 [130]x
  202. 289 [153]"ononon"
  203. 290 [129]v[178]1[164]2:e[178]20:f[178]19
  204. 291 e[178]e[171]1:f[178]f[170]1
  205. 292 [129]y[178]1[164]20
  206. 293 [153][166]e)" cmd cmd cmd cmd waitononononon":[153][166]f)" cmd cmd cmd cmd cmdwaitonononononon"
  207. 294 e[178]e[171]1:f[178]f[170]1
  208. 295 [130]y:[153]"ononononononononononon":[130]v
  209. 299 [153]""
  210. 300 e[178]20:f[178]19
  211. 301 e[178]e[171]1:f[178]f[170]1
  212. 302 [129]y[178]1[164]20
  213. 303 [153][166]e)" cmd cmd waitononon":[153][166]f)" cmd cmd cmdwaitonononon"
  214. 304 e[178]e[171]1:f[178]f[170]1
  215. 305 [130]y:[153]""
  216. 306 e[178]20:f[178]19
  217. 307 e[178]e[171]1:f[178]f[170]1
  218. 308 [129]y[178]1[164]20
  219. 309 [153][166]e)" cmd cmd cmd cmd waitononononon":[153][166]f)" cmd cmd cmd cmd cmdwaitonononononon"
  220. 310 e[178]e[171]1:f[178]f[170]1
  221. 311 [130]y:[153]""
  222. 312 e[178]20:f[178]19
  223. 313 e[178]e[171]1:f[178]f[170]1
  224. 314 [129]y[178]1[164]20
  225. 315 [153][166]e)" cmd cmd cmd cmd cmd waitonononononon"
  226. 316 [153][166]f)" cmd cmd cmd cmd cmd cmdwaitononononononon"
  227. 317 e[178]e[171]1:f[178]f[170]1
  228. 318 [130]y
  229. 320 o[178]53280:p[178]o[170]1:[129]x[178]1[164]16
  230. 321 [139]x[178]1[167][151]o,0 :[151]p,0
  231. 322 [139]x[178]2[167][151]o,9 :[151]p,9
  232. 323 [139]x[178]3[167][151]o,11:[151]p,11
  233. 324 [139]x[178]4[167][151]o,8 :[151]p,8
  234. 325 [139]x[178]5[167][151]o,12:[151]p,12
  235. 326 [139]x[178]6[167][151]o,15:[151]p,15
  236. 327 [139]x[178]7[167][151]o,13:[151]p,13
  237. 328 [139]x[178]8[167][151]o,1 :[151]p,1:[141]1200
  238. 331 [139]x[178]9[167][151]o,1 :[151]p,1
  239. 332 [139]x[178]10[167][151]o,13:[151]p,13
  240. 333 [139]x[178]11[167][151]o,15:[151]p,15
  241. 334 [139]x[178]12[167][151]o,12:[151]p,12
  242. 335 [139]x[178]13[167][151]o,8 :[151]p,8
  243. 336 [139]x[178]14[167][151]o,11:[151]p,11
  244. 337 [139]x[178]15[167][151]o,9 :[151]p,9
  245. 338 [139]x[178]16[167][151]o,0 :[151]p,0
  246. 339 [130]
  247. 340 [153][166]22)"onthencmdthencmdthencmdononon  thencmdcmdcmd  thencmdcmdcmd  thenongetwaitgetwaiton"
  248. 341 [153][166]22)"onabscmdabscmdabscmdononon  abscmdcmdcmd  abscmdcmdcmd  absonfnwaitfnwaiton"
  249. 342 [153][166]22)"ongetcmdgetcmdgetcmdononon  waitgetcmdcmdcmd  waitgetcmdcmdcmd  waitgeton wait on"
  250. 343 [153][166]22)"onsgncmdsgncmdsgncmdononon  waitsgncmdcmdcmd  (NULL)cmdcmdcmd  waitsgnongetwait on"
  251. 344 [153][166]22)"on cmd cmd cmdononon  wait cmdcmdcmd abs cmdcmdcmd  wait oncmdabswait  on"
  252. 345 [153][166]21)"onintcmdintcmdintcmdononon  abscmdcmdcmd  getcmdcmdcmd  waitgetoncmdwait   on"
  253. 346 [153][166]21)"on cmd cmd cmdononon  wait cmdcmdcmd wait  cmdcmdcmd  wait oncmdwait   on"
  254. 347 [153][166]20)"on cmd cmd cmdonononwait   cmdcmdcmdwaitgetwait  cmdcmdcmdwait   ononcmdcmdwait cmdgetcmd onon"
  255. 348 [153][166]19)"on cmd cmd cmdonononwait   cmdcmdcmdgetwait  cmdcmdcmdwait   ononcmdcmdwait cmdgetcmd onon"
  256. 349 [153][166]18)"on cmd cmd cmdonononwait   cmdcmdcmd wait  cmdcmdcmdwait   ononcmdcmdwait cmd cmd onon cmd cmd onon"
  257. 350 [153]"onononononon":x[178]14:[141]1010
  258. 351 [153]"":x[178]24:[141]1010
  259. 352 x[178]14:[141]1010
  260. 353 [153]"ononononononononononon":x[178]24:[141]1010
  261. 360 [141]1150:j[178]11:l[178]11:i[178]11
  262. 361 [153]"ononon":[129]e[178]1[164]7
  263. 362 [153][166]j[170]10)e$(e)
  264. 363 [153][166]l[170]1)g$(e)""
  265. 364 [153][166]i[170]6)f$(e)"onononononon"
  266. 365 [153][166]l[170]11)h$(e)"onononononononononon"
  267. 366 [130]e:j[178]j[171]1:i[178]i[170]1
  268. 367 [129]e[178]1[164]7
  269. 368 [153][166]j[170]10)e$(e)""
  270. 369 [153][166]l[170]1)g$(e)"on"
  271. 370 [153][166]i[170]6)f$(e)"ononononononon"
  272. 371 [153][166]l[170]11)h$(e)"ononononononononon"
  273. 372 [130]e:j[178]j[171]1:i[178]i[170]1
  274. 373 [129]e[178]1[164]7
  275. 374 [153][166]j[170]10)e$(e)""
  276. 375 [153][166]l[170]1)g$(e)"onon"
  277. 376 [153][166]i[170]6)f$(e)"onononononononon"
  278. 377 [153][166]l[170]11)h$(e)"onononononononon"
  279. 378 [130]e:j[178]j[171]1:i[178]i[170]1
  280. 379 [129]e[178]1[164]7
  281. 380 [153][166]j[170]10)e$(e)""
  282. 381 [153][166]l[170]1)g$(e)"ononon"
  283. 382 [153][166]i[170]6)f$(e)"ononononononononon"
  284. 383 [153][166]l[170]11)h$(e)"ononononononon"
  285. 384 [130]e:j[178]j[171]1:i[178]i[170]1
  286. 385 [129]e[178]1[164]7
  287. 386 [153][166]j[170]10)e$(e)""
  288. 387 [153][166]l[170]1)g$(e)"onononon"
  289. 388 [153][166]i[170]6)f$(e)"onononononononononon"
  290. 389 [153][166]l[170]11)h$(e)"onononononon"
  291. 390 [130]e:j[178]j[171]1:i[178]i[170]1
  292. 400 [153][166]19)" "
  293. 401 [153][166]12)" on"
  294. 402 [153][166]26)" "
  295. 403 [153][166]19)" "
  296. 404 [153]"";[166]18)"   cmdcmd "
  297. 405 [153][166]12)" cmd  cmdcmd ononon"
  298. 406 [153][166]26)" cmdcmd  cmd "
  299. 407 [153][166]18)"   oncmdcmd "
  300. 408 [153]"";[166]17)"   on on "
  301. 409 [153][166]12)"   cmdcmd cmdcmd ononononon"
  302. 410 [153][166]26)" cmdcmd cmdcmd   "
  303. 411 [153][166]17)" on on   "
  304. 412 [153]"";[166]16)"    on on on "
  305. 413 [153][166]12)"    cmdcmd cmdcmd cmdcmd ononononononon"
  306. 414 [153][166]26)" cmdcmd cmdcmd cmdcmd    "
  307. 415 [153][166]16)" on on on    "
  308. 416 [153]"";[166]15)"     on on on on "
  309. 417 [153][166]12)"     cmdcmd cmdcmd cmdcmd cmdcmd ononononononononon"
  310. 418 [153][166]26)" cmdcmd cmdcmd cmdcmd cmdcmd     "
  311. 419 [153][166]15)" on on on on     "
  312. 420 [153]"";[166]14)"      on on on on on "
  313. 421 [153][166]12)"      cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd ononononononononononon"
  314. 422 [153][166]26)" cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd      "
  315. 423 [153][166]14)" on on on on on      "
  316. 424 [153]"";[166]13)"       on on on on on on "
  317. 425 [153][166]12)"       cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd ononononononononononononon"
  318. 426 [153][166]26)" cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd cmdcmd       "
  319. 427 [153][166]13)" on on on on on on       "
  320. 428 [129]x[178]1[164]8
  321. 429 [139]x[178]1[167][151]646,1
  322. 430 [139]x[178]2[167][151]646,13
  323. 431 [139]x[178]3[167][151]646,15
  324. 432 [139]x[178]4[167][151]646,12
  325. 433 [139]x[178]5[167][151]646,8
  326. 434 [139]x[178]6[167][151]646,11
  327. 435 [139]x[178]7[167][151]646,9
  328. 436 [139]x[178]8[167][151]646,0
  329. 437 [153]"";[166]12)"      waiton"
  330. 438 [153][166]21)" on on on on on wait"
  331. 439 [153][166]21)"      waiton"
  332. 440 [153][166]12)" on on on on on wait"
  333. 441 [130]
  334. 442 [153]"";[166]12)"      on"
  335. 443 [153][166]21)" on on on on on "
  336. 444 [153][166]21)"      on"
  337. 445 [153][166]12)" on on on on on "
  338. 447 [153]"onononon"
  339. 448 x[178]19:[141]1250
  340. 449 [153]"load":[151]53281,1:[151]53280,1
  341. 450 [143]?spc(16)" cmdthenprintcmdabsopencmdgetdefcmdsgnwaitusropenfreprintnewposwaitprintonsgnoncmdprintgetoncmdopen+oncmddef waitoncmdcmdcmdcmdcmdnewprintposopenanddefto "
  342. 451 [143]?spc(16)" cmdthencmdabscmdgetcmdsgnwaitusrfrenewposwaitonsgnoncmdgetoncmd+oncmd waitoncmdcmdcmdcmdcmdnewposandto "
  343. 452 :
  344. 453 [153][166]17)"    cmdcmdcmdcmd    cmdcmdcmdcmd    cmdcmdcmdcmd    "
  345. 454 [151]53272,23:[153][166]12)"lenompod's str$esignon"
  346. 455 [141]1400
  347. 459 [153]""
  348. 460 [129]x[178]1[164]7
  349. 461 [139]x[178]1[167][151]646,13:[141]1260:[151]646,9:[141]1265
  350. 462 [139]x[178]2[167][151]646,15:[141]1260:[151]646,11:[141]1265
  351. 463 [139]x[178]3[167][151]646,12:[141]1260:[151]646,8 :[141]1265
  352. 464 [139]x[178]4[167][151]646,8:[141]1260:[151]646,12:[141]1265
  353. 465 [139]x[178]5[167][151]646,11:[141]1260:[151]646,15:[141]1265
  354. 466 [139]x[178]6[167][151]646,6:[141]1260:[151]646,13:[141]1265
  355. 467 [139]x[178]7[167][151]646,6:[141]1260:[151]646,1:[141]1265
  356. 470 [130]
  357. 478 [153]"onononononon":[141]1300
  358. 479 [129]o[178]1[164]12
  359. 480 [153][166]17)"orconttanopentanprint^cmd(NULL)cmdstop(NULL)cmdexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  360. 481 [153][166]17)"ortanconttanopen^cmdprint(NULL)cmd(NULL)cmdstopexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  361. 482 [153][166]17)"ortantancont^cmdopen(NULL)cmdprint(NULL)cmdexpcmdcmdstoptancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  362. 483 [153][166]17)"ortantan^cmdcont(NULL)cmdopen(NULL)cmdprintexpcmdcmdtancmdcmdstoptancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  363. 484 [153][166]17)"ortantan^cmd(NULL)cmdcont(NULL)cmdopenexpcmdcmdprinttancmdcmdtancmdcmdstop/oncmd(NULL)oncmd(NULL)onon"
  364. 485 [153][166]17)"ortantan^cmd(NULL)cmd(NULL)cmdcontexpcmdcmdopentancmdcmdprinttancmdcmd/oncmdstop(NULL)oncmd(NULL)onon"
  365. 486 [153][166]17)"ortantan^cmd(NULL)cmd(NULL)cmdexpcmdcmdconttancmdcmdopentancmdcmdprint/oncmd(NULL)oncmdstop(NULL)onon"
  366. 487 [153][166]17)"stoportantan^cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdconttancmdcmdopen/oncmdprint(NULL)oncmd(NULL)onon"
  367. 488 [153][166]17)"orstoptantan^cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdtancmdcmdcont/oncmdopen(NULL)oncmdprint(NULL)onon"
  368. 489 [153][166]17)"printortanstoptan^cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdtancmdcmd/oncmdcont(NULL)oncmdopen(NULL)onon"
  369. 490 [153][166]17)"openorprinttantanstop^cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmdcont(NULL)onon"
  370. 491 [153][166]17)"contoropentanprinttan^cmdstop(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  371. 492 [130]
  372. 493 [153][166]17)"stoportanconttanopen^cmdprint(NULL)cmdstop(NULL)cmdexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  373. 494 [153][166]17)"stoportantan^cmdcont(NULL)cmdopen(NULL)cmdstopexpcmdcmdtancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  374. 495 [153][166]17)"stoportantan^cmd(NULL)cmd(NULL)cmdcontexpcmdcmdstoptancmdcmdtancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  375. 496 [153][166]17)"stoportantan^cmd(NULL)cmd(NULL)cmdexpcmdcmdtancmdcmdstoptancmdcmd/oncmd(NULL)oncmd(NULL)onon"
  376. 497 [153][166]17)"stop    cmd cmd cmd cmdcmd cmdcmd cmdcmd oncmd oncmd onon"
  377. 499 o[178]53280:p[178]o[170]1
  378. 500 [129]x[178]1[164]8
  379. 501 [139]x[178]1[167][151]o,9:[151]p,9:[153][166]12)"               "
  380. 502 [139]x[178]2[167][151]o,6:[151]p,6
  381. 503 [139]x[178]3[167][151]o,5:[151]p,5:[153]"onononononononon":[141]1305
  382. 504 [139]x[178]4[167][151]o,3:[151]p,3:[153]"onon":[141]1307
  383. 505 [139]x[178]5[167][151]o,13:[151]p,13:[153]"onon":[141]1309
  384. 506 [139]x[178]6[167][151]o,1:[151]p,1:[153]"load"
  385. 507 [130]
  386. 509 [151]53272,21:[153]"load":[141]1510:[153]""
  387. 510 [141]1500:[129]u[178]1[164]17:[135]u:[151]53281,u:[151]53280,u
  388. 511 [139]u[178]16[167]514
  389. 512 [130]u
  390. 513 [131] 1,1,13,13,15,15,12,12,8,8,11,11,9,9,0,0,16
  391. 514 [129]x[178]1[164]6
  392. 515 [139]x[178]1[167][151]646,13:[141]1500
  393. 516 [139]x[178]2[167][151]646,15:[141]1500
  394. 517 [139]x[178]3[167][151]646,12:[141]1500
  395. 518 [139]x[178]4[167][151]646,8 :[141]1500
  396. 519 [139]x[178]5[167][151]646,11:[141]1500
  397. 520 [139]x[178]6[167][151]646,9 :[141]1500
  398. 522 [130]
  399. 525 [153][166]20)"stopstverifyastoptuson"
  400. 526 [153][166]20)"stopstastoptuverifyson"
  401. 527 [153][166]20)"verifysstoptclrastoptuson"
  402. 528 [153][166]20)"sstoptdefaverifytstopuclrson"
  403. 529 [153][166]20)"clrsverifytopenatstopudefson"
  404. 530 [153][166]20)"defstprintaclrtverifyuopenson"
  405. 531 [153][166]20)"opensclrtadeftuprintson"
  406. 532 [153][166]20)"printsdeftprintaopentclruson"
  407. 533 [153][166]20)"sopentopenaprinttdefuprintson"
  408. 534 [153][166]20)"printsprinttdefatopenuopenson"
  409. 535 [153][166]20)"openstclraprinttprintudefson"
  410. 536 [153][166]20)"defsprinttclraopentprintuclrson"
  411. 537 [153][166]20)"clrsopentclradeftprintuclrson"
  412. 538 [153][166]20)"clrsdeftclratprintuclrson"
  413. 539 [153][166]20)"clrstatprintuclrson"
  414. 540 [153][166]20)"clrstatuson"
  415. 549 [153]""
  416. 550 [153]"print":[141]1420:[153]"list":[141]1420:[153]"print#":[141]1420:[153]"for":[141]1420
  417. 551 [153]"poke":[141]1420:[153]"verify":[141]1420:[153]"stop":[141]1420
  418. 552 [153]"print":[141]1440:[153]"list":[141]1440:[153]"print#":[141]1440:[153]"for":[141]1440
  419. 553 [153]"poke":[141]1440:[153]"verify":[141]1440:[153]"stop":[141]1440
  420. 554 [153]"print":[141]1450:[153]"list":[141]1450:[153]"print#":[141]1450:[153]"for":[141]1450
  421. 555 [153]"poke":[141]1450:[153]"verify":[141]1450:[153]"stop":[141]1450
  422. 556 [153]"print":[141]1470:[153]"list":[141]1470:[153]"print#":[141]1470:[153]"for":[141]1470
  423. 557 [153]"poke":[141]1470:[153]"verify":[141]1470:[153]"stop":[141]1470
  424. 558 [153]"print":[141]1460:[153]"list":[141]1460:[153]"print#":[141]1460:[153]"for":[141]1460
  425. 559 [153]"poke":[141]1460:[153]"verify":[141]1460:[153]"stop":[141]1460
  426. 560 [153]"print":[141]1410:[153]"list":[141]1410:[153]"print#":[141]1410:[153]"for":[141]1410
  427. 561 [153]"poke":[141]1410:[153]"verify":[141]1410:[153]"stop":[141]1410
  428. 562 [153]"print":[141]1480:[153]"list":[141]1480:[153]"print#":[141]1480:[153]"for":[141]1480
  429. 563 [153]"poke":[141]1480:[153]"verify":[141]1480:[153]"stop":[141]1480
  430. 564 [153]"print":[141]1430:[153]"list":[141]1430:[153]"print#":[141]1430:[153]"for":[141]1430
  431. 565 [153]"poke":[141]1430:[153]"verify":[141]1430:[153]"stop":[141]1430
  432. 566 [141]1008
  433. 569 [153]""       
  434. 570 [129]x[178]1[164]8         
  435. 571 [153][166]13)"             cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdon":[141]1009
  436. 572 [130]
  437. 573 [153][166]13)"onononononononon(NULL)(NULL)cmdsqrcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)":[141]1008
  438. 574 [153]"";[166]14)"usrcmdcmdsgn+cmdcmdonusr+cmdcmdandcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdandoncmdcmdsgn"
  439. 575 [141]1008
  440. 576 [153]"";[166]15)"usrcmdcmd cmdcmdsgnononusr +cmdcmdcmdandon on+cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdsgn and"
  441. 577 [141]1008
  442. 578 [153]"";[166]13)"sgnon on onusrusr  +cmdcmdcmdcmdandon on on+cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdsgn  and"
  443. 579 [141]1008
  444. 580 [153]"";[166]14)" on on onusrusr   cmdcmdcmdcmdandon on on cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd   and"
  445. 581 [141]1008
  446. 582 [153]"";[166]15)" on on onusrusr   cmdcmdcmdcmdandon on on cmdcmdcmdcmdcmdcmdcmdcmdcmd   and"
  447. 583 [141]1008
  448. 584 [153]"";[166]16)" on on onusr   cmdcmdcmdcmdcmdcmdcmd   andon on on ":[141]1008
  449. 585 [153]"";[166]17)" on on   cmdcmdcmdcmdcmd   on on ":[141]1008
  450. 586 [153][166]18)"onon on  cmdcmdcmd  on ":[141]1008
  451. 587 [153][166]21)"ononcmdcmd cmd "
  452. 590 [153]"";[166]19)"val(NULL)cmd(NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)oncmd(NULL)(NULL)"
  453. 591 [153]"";[166]18)"valstr$val(NULL)cmdleft$cmdleft$cmd(NULL)cmdcmdcmdcmdcmdcmdcmdcmd(NULL)asc(NULL)cmdcmdcmdcmdcmdcmdcmdcmdononononon(NULL)cmdchr$cmdchr$cmd(NULL)"
  454. 592 [153][166]13)"ononononon(NULL)cmdchr$cmdpeekcmdpeekcmdchr$cmd(NULL)(NULL)asctanasc(NULL)on(NULL)oncmdleft$oncmdpeekoncmdpeekoncmdleft$oncmd(NULL)oncmdcmdcmdcmdcmdcmdcmdcmdcmdvalstr$lenstr$val";
  455. 593 [153]"cmdcmdcmdcmdcmdcmdvalstr$lenasclenstr$valleft$cmdpeekcmdchr$cmdchr$cmdpeekcmdleft$cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdonononononchr$cmdpeekcmdleft$cmdleft$cmdpeekcmdchr$";
  456. 594 [153]"(NULL)asctanstr$tanasc(NULL)";
  457. 595 [153]"";[166]15)"valstr$lenasc(NULL)asclenstr$valcmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)asclenstr$valstr$lenasc(NULL)"
  458. 596 [153]"";[166]13)"(NULL)cmdpeekcmdleft$cmd(NULL)cmd(NULL)cmdleft$cmdpeekcmd(NULL)"
  459. 597 [153]"";[166]25)"(NULL)cmdpeekcmdchr$cmd(NULL)cmd(NULL)cmdchr$cmdpeekcmd(NULL)"
  460. 598 [153]"";[166]14)"valstr$lenasc(NULL)and(NULL)asclenstr$valcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)asclenstr$valusrvalstr$lenasc(NULL)"
  461. 599 [153]"";[166]13)"orcmdleft$cmd(NULL)cmd+cmd+cmd(NULL)cmdleft$cmd/"
  462. 600 [153]"";[166]25)"^cmdchr$cmd(NULL)cmdfncmdfncmd(NULL)cmdchr$cmdexp"
  463. 601 [153]"";[166]14)"str$lenasc(NULL)andtocmdtab(onand(NULL)asclenstr$cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdasclenstr$valusrtab(cmdontousrvalstr$lenasc"
  464. 602 [153]"";[166]13)"orcmd(NULL)cmdthencmd fncmdcmd fncmdcmdthencmd(NULL)cmd/"
  465. 603 [153]"";[166]25)"^cmd(NULL)cmdfncmdcmdthen cmdcmdthen cmdfncmd(NULL)cmdexp"
  466. 604 [153]"ononononononononon"
  467. 605 [153][166]13)"printortanasc(NULL)andto toand(NULL)asctan^"
  468. 606 [153][166]13)"+    tab(usrtab(    fn"
  469. 607 [153][166]13)" fn         then "
  470. 608 [153][166]13)" (NULL) verifycompod^print (NULL) "
  471. 609 [153][166]13)" (NULL) verifydesignexpprint (NULL) "
  472. 610 [153][166]13)" sgn         then "
  473. 611 [153][166]13)"then    toandto    sgn"
  474. 612 [153][166]13)"/tanstr$valusrtab( tab(usrvalstr$tanexponononononononon"
  475. 613 [153][166]13)"list asc(NULL)andto   toand(NULL)asc "
  476. 614 [153][166]13)" fn  tab(usrvalusrtab(  then "
  477. 615 [153][166]13)" (NULL)         (NULL) "
  478. 616 [153][166]13)" chr$ pokecompod^list left$ "
  479. 617 [153][166]13)" chr$ pokedesignexplist left$ "
  480. 618 [153][166]13)" (NULL)         (NULL) "
  481. 619 [153][166]13)" sgn  toand(NULL)andto  then "
  482. 620 [153][166]13)" str$valusrtab(   tab(usrvalstr$ onononononononon"
  483. 621 [153][166]13)"print# (NULL)andto     toand(NULL) "
  484. 622 [153][166]13)" (NULL) tab(usrvalstr$valusrtab( (NULL) "
  485. 623 [153][166]13)" chr$         left$ "
  486. 624 [153][166]13)" peek forcompod^print# peek "
  487. 625 [153][166]13)" peek fordesignexpprint# peek "
  488. 626 [153][166]13)" chr$         left$ "
  489. 627 [153][166]13)" (NULL) toand(NULL)asc(NULL)andto (NULL) "
  490. 628 [153][166]13)" valusrtab(     tab(usrval onononononononon"
  491. 629 [153][166]13)"for andto       toand "
  492. 630 [153][166]13)" chr$tab(usrvalstr$lenstr$valusrtab(left$ "
  493. 631 [153][166]13)" peek         peek "
  494. 632 [153][166]13)" left$ print#compod^for chr$ "
  495. 633 [153][166]13)" left$ print#designexpfor chr$ "
  496. 634 [153][166]13)" peek         peek "
  497. 635 [153][166]13)" chr$toand(NULL)asclenasc(NULL)andtoleft$ "
  498. 636 [153][166]13)" usrtab(       tab(usr onononononononon"
  499. 637 [153][166]13)"poke and         and "
  500. 638 [153][166]13)" peekusrvalstr$lenasclenstr$valusrpeek "
  501. 639 [153][166]13)" left$         chr$ "
  502. 640 [153][166]13)" (NULL) listcompod^poke (NULL) "
  503. 641 [153][166]13)" (NULL) listdesignexppoke (NULL) "
  504. 642 [153][166]13)" left$         chr$ "
  505. 643 [153][166]13)" peekand(NULL)asclenstr$lenasc(NULL)andpeek "
  506. 644 [153][166]13)" usr         usr onononononononon"
  507. 645 [153][166]13)"verify             "
  508. 646 [153][166]13)" left$valstr$lenasc(NULL)asclenstr$valchr$ "
  509. 647 [153][166]13)" (NULL)         (NULL) "
  510. 648 [153][166]13)" then printcompod^verify fn "
  511. 649 [153][166]13)" then printdesignexpverify fn "
  512. 650 [153][166]13)" (NULL)         (NULL) "
  513. 651 [153][166]13)" left$(NULL)asclenstr$valstr$lenasc(NULL)chr$ "
  514. 652 [153][166]13)"             onononononononon"
  515. 653 [153][166]13)"             "
  516. 654 [153][166]13)"             "
  517. 655 [153][166]13)"             "
  518. 656 [153][166]13)"   compod^   "
  519. 657 [153][166]13)"   designexp   "
  520. 658 [153][166]13)"             "
  521. 659 [153][166]13)"             "
  522. 660 [153][166]13)"             onononononononon"
  523. 669 [129]x[178]1[164]11
  524. 670 [153][166]16)"      (NULL)cmdcmdcmdcmdcmdcmdcmddesignexpononononon"
  525. 671 [130]
  526. 672 [129]x[178]1[164]7
  527. 673 [139]x[178]1[167][151]646,13
  528. 674 [139]x[178]2[167][151]646,15
  529. 675 [139]x[178]3[167][151]646,12
  530. 676 [139]x[178]4[167][151]646,8
  531. 677 [139]x[178]5[167][151]646,11
  532. 678 [139]x[178]6[167][151]646,9
  533. 679 [139]x[178]7[167][151]646,0
  534. 680 [153]"";[166]22)"^cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmdexp"
  535. 681 [130]
  536. 690 [141]1155:[153]""
  537. 691 [129]z[178]1[164]7:[153][166]14)g$(z)"":[153][166]19)h$(z)"ononononononononon":[130]z
  538. 692 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onon";h$(z)"onononononononon":[130]z
  539. 693 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononon";h$(z)"ononononononon":[130]
  540. 694 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononon";h$(z)"onononononon":[130]
  541. 695 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononononon";h$(z)"ononononon":[130]
  542. 696 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononononononon";h$(z)"onononon":[130]
  543. 697 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononononononononon";h$(z)"ononon":[130]
  544. 698 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononononononononononon";h$(z)"onon":
  545. 699 [130]
  546. 700 [129]z[178]1[164]7:[153][166]14)"";g$(z)"":[153][166]19)"onononononononononononononononon";h$(z):
  547. 701 [153]"onon":[130]
  548. 705 [153][166]14)"newnewnewnewnewnewnewnewnewwaitcosononononononononcmdgetcmdgetcmdgetcmdgetcmdgetcmdgetcmdgetcmdget"
  549. 706 [153][166]14)"          ononononononononcmd cmd cmd cmd cmd cmd cmd cmd "
  550. 707 [153][166]14)"onnewnewnewnewnewnewnewnewwaitcosonononononononcmdgetcmdgetcmdgetcmdgetcmdgetcmdgetcmdget"
  551. 708 [153][166]14)"         onononononononcmd cmd cmd cmd cmd cmd cmd "
  552. 709 [141]1002
  553. 710 [153][166]14)"ononononononon*newnewnewnewnewnewnewcmdcmdcmdcmdcmdcmdcmdcmdgetcmdgetcmdgetcmdgetcmdgetcmdget"
  554. 711 [153][166]14)"ononononononon        cmdcmdcmdcmdcmdcmdcmdcmd cmd cmd cmd cmd cmd "
  555. 712 [153][166]15)"onononononon*newnewnewnewnewnew cmdcmdcmdcmdcmdcmdcmdcmdgetcmdgetcmdgetcmdgetcmdget"
  556. 713 [153][166]15)"onononononon        cmdcmdcmdcmdcmdcmdcmdcmd cmd cmd cmd cmd "
  557. 714 [141]1002
  558. 715 [153][166]16)"onononononnewnewnewnewnewrndcmdgetcmdgetcmdgetcmdget"
  559. 716 [153][166]16)"ononononon      cmd cmd cmd cmd "
  560. 717 [153][166]16)"ononononnewnewnewnewrnd cmdcmdgetcmdgetcmdget"
  561. 718 [153][166]16)"onononon      cmdcmd cmd cmd "
  562. 719 [141]1002
  563. 720 [153][166]16)"ononon*cmdgetcmdgetwaitononnewnewnew"
  564. 721 [153][166]16)"on cmd cmd onon   "
  565. 722 [153][166]17)"*cmdgetwaitonnewnew"
  566. 723 [153][166]17)"on   cmdcmdcmd "
  567. 724 [141]1002
  568. 725 [153]"onononononononononon":h[178]1
  569. 726 [129]v[178]1[164]6
  570. 727 [153][166]17[171]v)"compod "
  571. 728 [153][166]16[171]h)" designononononononononononononon"
  572. 729 h[178]h[171]1
  573. 730 [130]
  574. 731 [129]v[178]1[164]8
  575. 732 [153][166]11)"      cmdcmdcmdcmdcmdcmdcompodon"
  576. 733 [130]
  577. 734 [153]""
  578. 735 [129]v[178]1[164]4
  579. 736 [153][166]21)"      oncmdcmdcmdcmdcmdcmddizajnon"
  580. 737 [130]
  581. 740 [129]x[178]0[164]7
  582. 741 [153][166]18[171]x)" onwait":[153][166]19[170]x)" onwait"
  583. 742 [130]
  584. 745 [153][166]16)"  print    on"
  585. 746 [153][166]16)" print list  print  on"
  586. 747 [153][166]16)"print list print#  list print on"
  587. 748 [153][166]16)"list print# for  print# list on"
  588. 749 [153][166]16)"print# for poke  for print# on"
  589. 750 [153][166]16)"for poke verify  poke for on"
  590. 751 [153][166]16)"poke verify stop  verify poke on"
  591. 752 [153][166]16)"verify stop    verify on"
  592. 753 [153][166]16)"      on"
  593. 755 [153][166]11)"print     oncmdcmdcmdcmdcmdverify     ":[153][166]22)"print     cmdcmdcmdcmdcmdverify     onon"
  594. 756 [153][166]11)"open     oncmdcmdcmdcmdcmd     ":[153][166]22)"open     cmdcmdcmdcmdcmd     onon"
  595. 757 [153][166]11)"def     oncmdcmdcmdcmdcmdclr     ":[153][166]22)"def     cmdcmdcmdcmdcmdclr     onon"
  596. 758 [153][166]11)"clr     oncmdcmdcmdcmdcmddef     ":[153][166]22)"clr     cmdcmdcmdcmdcmddef     onon"
  597. 759 [153][166]11)"     oncmdcmdcmdcmdcmdopen     ":[153][166]22)"     cmdcmdcmdcmdcmdopen     onon"
  598. 760 [153][166]11)"verify     oncmdcmdcmdcmdcmdprint     ":[153][166]22)"verify     cmdcmdcmdcmdcmdprint     onon"
  599. 761 [153][166]11)"stop     oncmdcmdcmdcmdcmd     ":[153][166]22)"stop     cmdcmdcmdcmdcmd     ononon"
  600. 763 [153][166]11)"print     oncmdcmdcmdcmdcmdverify     ":[153][166]22)"print     cmdcmdcmdcmdcmdverify     onononon"
  601. 764 [153][166]11)"open     oncmdcmdcmdcmdcmd     ":[153][166]22)"open     cmdcmdcmdcmdcmd     onononon"
  602. 765 [153][166]11)"def     oncmdcmdcmdcmdcmdclr     ":[153][166]22)"def     cmdcmdcmdcmdcmdclr     onononon"
  603. 766 [153][166]11)"clr     oncmdcmdcmdcmdcmddef     ":[153][166]22)"clr     cmdcmdcmdcmdcmddef     onononon"
  604. 767 [153][166]11)"     oncmdcmdcmdcmdcmdopen     ":[153][166]22)"     cmdcmdcmdcmdcmdopen     onononon"
  605. 768 [153][166]11)"verify     oncmdcmdcmdcmdcmdprint     ":[153][166]22)"verify     cmdcmdcmdcmdcmdprint     onononon"
  606. 769 [153][166]11)"stop     oncmdcmdcmdcmdcmd     ":[153][166]22)"stop     cmdcmdcmdcmdcmd     ononononon"
  607. 770 [153][166]11)"print      stop     ":[153][166]17)"stop         print ononononon"
  608. 771 [153][166]11)"open print      stop    ":[153][166]17)"stop        print open ononononon"
  609. 772 [153][166]11)"def open print      stop   ":[153][166]17)"stop       print open def ononononon"
  610. 773 [153][166]11)"clr def open print      stop  ":[153][166]17)"stop      print open def clr ononononon"
  611. 774 [153][166]11)"verify  clr def open print      ":[153][166]17)"     open def clr  verify ononononon"
  612. 775 [153][166]11)"stop verify  clr def open      ":[153][166]17)"     def clr  verify stop ononononon"
  613. 776 [153][166]11)"stop  verify  clr def      ":[153][166]17)"     clr  verify stop  ononononon"
  614. 777 [153][166]11)"stop   verify  clr      ":[153][166]17)"      verify stop   ononononon"
  615. 778 [153][166]11)"stop     clr      ":[153][166]17)"      verify stop   ononononon"
  616. 779 [153][166]11)"stop           ":[153][166]17)"     verify stop    ononononon"
  617. 780 [153][166]11)"stop           ":[153][166]17)"     stop     onononon"
  618. 781 [153][166]17)"newwaitnewononon"
  619. 782 [153][166]17)" newwaitnew onon"
  620. 783 [153][166]17)"newon newcmdwaitnew onwaitnewon"
  621. 784 [153][166]17)" newon newcmdcmdcmdwaitnew onwaitnew "
  622. 785 [153][166]17)" on cmd on  oncmd  onon"
  623. 786 [129]x[178]1[164]7
  624. 787 [139]x[178]1[167][151]646,13
  625. 788 [139]x[178]2[167][151]646,15
  626. 789 [139]x[178]3[167][151]646,12
  627. 790 [139]x[178]4[167][151]646,8
  628. 791 [139]x[178]5[167][151]646,11
  629. 792 [139]x[178]6[167][151]646,9
  630. 793 [139]x[178]7[167][151]646,0
  631. 794 [153][166]17)"     cmdcmdcmdcmdcmd     cmdcmdcmdcmdcmd     cmdcmdcmdcmdcmd     cmdcmdcmdcmdcmd     ononononon"
  632. 795 [130]
  633. 800 [153]""
  634. 801 [129]x[178]36[164]15[169][171]1
  635. 802 [153][166]x)"(NULL)"
  636. 803 [153][166]x[170]1)"onon "
  637. 805 [139]x[178]25[167][141]1532
  638. 806 [139]x[178]24[167][141]1533
  639. 807 [139]x[178]23[167][141]1534
  640. 808 [139]x[178]22[167][141]1535
  641. 809 [139]x[178]21[167][141]1536
  642. 810 [139]x[178]20[167][141]1537
  643. 811 [139]x[178]19[167][141]1538
  644. 812 [139]x[178]18[167][141]1539
  645. 813 [139]x[178]17[167][141]1540
  646. 815 [130]:[153]"onon"
  647. 816 [129]x[178]15[164]0[169][171]1
  648. 817 [153][166]x)"(NULL)"
  649. 818 [153][166]x[170]1)" ononon"
  650. 819 [130]
  651. 820 [153]" "
  652. 821 [129]x[178]1[164]7
  653. 822 [139]x[178]1[167][151]646,9
  654. 823 [139]x[178]2[167][151]646,11
  655. 824 [139]x[178]3[167][151]646,8
  656. 825 [139]x[178]4[167][151]646,12
  657. 826 [139]x[178]5[167][151]646,15
  658. 827 [139]x[178]6[167][151]646,13
  659. 828 [139]x[178]7[167][151]646,1
  660. 829 [153][166]17)"     cmdcmdcmdcmdcmd (NULL)usr(NULL) cmdcmdcmdcmdcmd sgn then cmdcmdcmdcmdcmd (NULL)andsqr cmdcmdcmdcmdcmd     ononononon"
  661. 830 [130]
  662. 831 [129]x[178]1[164]7
  663. 832 [139]x[178]1[167][151]646,13
  664. 833 [139]x[178]2[167][151]646,15
  665. 834 [139]x[178]3[167][151]646,12
  666. 835 [139]x[178]4[167][151]646,8
  667. 836 [139]x[178]5[167][151]646,11
  668. 837 [139]x[178]6[167][151]646,9
  669. 838 [139]x[178]7[167][151]646,0
  670. 839 [153][166]17)"     cmd cmd cmd cmd onononcmdcmdcmdcmdcmd cmd cmd cmd    ononononon"
  671. 840 [130]
  672. 841 [153][166]17)"     cmd cmd cmd cmd onononcmdcmdcmdcmdcmd cmd cmd cmd    ononononon"
  673. 844 [153]""
  674. 845 [129]y[178]0[164]17
  675. 846 [153][166]y)"tanon":[153][166]y[170]21)"tanon"
  676. 848 [130]         
  677. 849 [153]"onon"
  678. 850 [129]x[178]0[164]18
  679. 851 [153][166]17[170]x)"wait (NULL)usr(NULL)wait cmdcmdcmdcmdcmdwaittanfn thenwaittancmdcmdcmdcmdcmd (NULL)andsqrwait ononon"
  680. 852 [130]:[141]1168
  681. 853 [153]"ononon":[141]1070
  682. 855 [129]x[178]1[164]5
  683. 856 [153][166]0)s$(x):[141]1009
  684. 857 [130]
  685. 858 [129]y[178]1[164]31:[129]x[178]4[164]5
  686. 859 [153][166]y)s$(x):[141]1001
  687. 860 [130]:[130]
  688. 861 [129]x[178]6[164]9
  689. 862 [153][166]31)s$(x):[141]1009
  690. 863 [130]
  691. 864 [129]x[178]1[164]5
  692. 865 [153][166]39)l$(x):[141]1009
  693. 866 [130]
  694. 869 [153]"ononon"
  695. 870 [129]x[178]36[164]1[169][171]1
  696. 871 [153][166]x)"usrcmd cmdandononon"
  697. 872 [130]:[153]"":g[178]31
  698. 873 [129]x[178]1[164]12:[153][166]g)"   waitcmdcmdcmdon":[130]:[153]"";
  699. 874 [129]x[178]1[164]6:[153][166]g)"   waitcmdcmdcmdon":[130]:[153]""
  700. 875 [153][166]g[171]1)"step":[153][166]g[171]2)"step wait":[153][166]g[171]3)"step  wait"
  701. 876 [153][166]g[171]4)"step   wait"
  702. 877 [129]x[178]5[164]12:[153][166]g[171]x)"step   waitstep":[130]:[153]"";
  703. 878 [129]x[178]16[164]23:[153][166]g[171]x)"step   waitstep":[130]:[153]""
  704. 880 z$[178]"cont -ascii dizajn basic dentro!- ":[141]1090
  705. 881 z$[178]"open      by amorphis! group     ":[141]1090
  706. 882 z$[178]"print          walbrzych ":[141]1090:[153]"";
  707. 883 z$[178]" this is the first ascii ":[141]1090
  708. 884 z$[178]" dizajn basic dentro in ":[141]1090
  709. 885 z$[178]" c-64 history. cooool? ":[141]1090
  710. 886 z$[178]" very sorry for lack   ":[141]1090
  711. 887 z$[178]" the music in this ":[141]1090
  712. 888 z$[178]" stupid production ":[141]1090:[153]"";
  713. 889 z$[178]"verify            compod":[141]1090
  714. 890 [137] 890
  715. 999 [153]"list":[128]
  716. 1000 [129]z[178]0[164]15:[130]:[142]
  717. 1001 [129]z[178]0[164]18:[130]:[142]
  718. 1002 [129]z[178]0[164]200:[130]:[142]
  719. 1004 [129]z[178]0[164]500:[130]:[142]
  720. 1005 [129]z[178]0[164]5:[130]:[142]
  721. 1006 [129]z[178]0[164]1000:[130]:[142]
  722. 1007 [129]z[178]0[164]808:[130]:[142]
  723. 1008 [129]z[178]0[164]50:[130]:[142]
  724. 1009 [129]z[178]0[164]40:[130]:[142]
  725. 1010 [153][166]x)"verify.on":[141]1000
  726. 1011 [153][166]x)"verify*on":[141]1000
  727. 1012 [153][166]x)"poke(NULL)waiton":[141]1000
  728. 1013 [153][166]x)"poke waitonon":[141]1000
  729. 1014 [153][166]x)"fortocmdcmdthen waitfncmdcmdtab(ononon":[141]1000
  730. 1015 [153][166]x)"forandcmdcmdabs waitintcmdcmdusrononon":[141]1000eady.
  731. 1016 [153][166]x[171]1)"print#*newrndcmdcmdcmdget waitgetcmdcmdcmdlognewwaitcosononon":[141]1000
  732. 1017 [153][166]x[171]1)"list(NULL)usr(NULL)cmdcmdcmdfn thencmdcmdcmd(NULL)andsqrononon":[141]1000
  733. 1018 [153][166]x[171]1)"print   cmdcmdcmd   cmdcmdcmd   onononon":[141]1000
  734. 1019 [153][166]x[171]2)"*newnewnewrndcmdcmdcmdcmdcmdget   waitgetcmdcmdcmdcmdcmdget   waitgetcmdcmdcmdcmdcmdget   waitgetcmdcmdcmdcmdcmdlognewnewnewwaitcosononononon
  735. 1020 gosub1000
  736. 1021 printspc(x-2)"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [145][145][145]"
  737. 1022 gosub1000:return
  738. 1050 printspc(12)"[145][145][145][145][145][145][145][145][145][145][145][145][145][145]   [157][157][157][157]     [157][157][157][157][157][157]       [157][157][157][157][157][157][157][157]         "
  739. 1055 printspc(8)"           [157][157][157][157][157][157][157][157][157][157][157]           "
  740. 1060 return
  741. 1070 forx=1to6
  742. 1071 ifx=1thenpoke646,13
  743. 1072 ifx=2thenpoke646,3
  744. 1073 ifx=3thenpoke646,10
  745. 1074 ifx=4thenpoke646,4
  746. 1075 ifx=5thenpoke646,2
  747. 1076 ifx=6thenpoke646,6
  748. 1077 printspc(36)"[207][183][208][157][157][157][165] [167][157][157][157][204][175][186][146][145][145][145]"
  749. 1079 next:print"":return
  750. 1090 p=len(z$):forx=1top:x$=right$(z$,x):print"[145][145]":forc=1to10:next:printx$:next
  751. 1091 print"";:return
  752. 1100 foro=0to500:next:return
  753. 1150 e$(1)="[167][157][167][157][167][157][167][157][167]":e$(2)="[182][157][182][157][182][157][182][157][182]":e$(3)="[161][157][161][157][161][157][161][157][161][146]"
  754. 1151 e$(4)="[181][157][181][157][181][157][181][157][181][146]":e$(5)="[180][157][165][157][165][157][165][157][165][146]":e$(6)=" [157] [157] [157] [157] [146]"
  755. 1152 e$(0)=" [157] [157] [157] [157] ":e$(7)=" [157] [157] [157] [157] [146]":f$(7)=" [157] [157] [157] [157] [146]"
  756. 1153 f$(1)="[165][157][165][157][165][157][165][157][165]":f$(2)="[181][157][181][157][181][157][181][157][181]":f$(3)="[161][157][161][157][161][157][161][157][161]"
  757. 1154 f$(4)="[182][157][182][157][182][157][182][157][182][146]":f$(5)="[167][157][170][157][170][157][170][157][170][146]":f$(6)=" [157] [157] [157] [157] [146]"
  758. 1155 g$(1)="[163][163][163][163][163]":g$(2)="[183][183][183][183][183]":g$(3)="[184][184][184][184][184]":g$(4)="[162][162][162][162][162][146]":g$(5)="[185][185][185][185][185][146]"
  759. 1156 g$(6)="[175][175][175][175][175][146]":g$(8)="[164][164][164][164][164][146]":g$(7)="     [146]":g$(0)="     "
  760. 1157 h$(1)="[164][164][164][164][164]":h$(2)="[175][175][175][175][175]":h$(3)="[185][185][185][185][185]":h$(4)="[162][162][162][162][162]":h$(5)="[184][184][184][184][184][146]"
  761. 1158 h$(6)="[183][183][183][183][183][146]":h$(8)="[163][163][163][163][163][146]":h$(7)="     [146]":h$(0)="     "
  762. 1159 e$(8)=" [157] [157] [157] [157] [146]":f$(8)=" [157] [157] [157] [157] [146]"
  763. 1160 a$(7)="[164]":a$(6)="[175]":a$(5)="[185]":a$(4)="[162]":a$(3)="[184][146]":a$(2)="[183][146]":a$(1)="[163][146]"
  764. 1161 b$(8)=" [146]"
  765. 1162 b$(1)="[163]":b$(2)="[183]":b$(3)="[184]":b$(4)="[162][146]":b$(5)="[185][146]":b$(6)="[175][146]"
  766. 1163 b$(7)="[164][146]":a$(8)=" "
  767. 1165 c$(7)=" ":c$(6)="[165]":c$(5)="[181]":c$(4)="[161]":c$(3)="[182][146]":c$(2)="[170][146]":c$(1)=" [146]"
  768. 1166 d$(1)=" ":d$(2)="[167]":d$(3)="[182]":d$(4)="[161][146]":d$(5)="[181][146]":d$(6)="[165][146]"
  769. 1167 d$(7)=" [146]"
  770. 1168 j$(1)="[145][153][198]":j$(2)="[145][159][210]":j$(3)="[145][154][175]":j$(4)="[145][164]":j$(5)="[145] "
  771. 1169 l$(1)="[145][153][198][145]":l$(2)="[145][159][210][145]":l$(3)="[145][154][175][145]":l$(4)="[145][164][145]":l$(5)="[145] [145]"
  772. 1170 s$(1)="[145][153][198][192][192][192][192]":s$(2)="[145][159][210][153][198][192][192][192]":s$(3)="[145][154][175][159][210][153][198][192][192]":s$(4)="[145][164][154][175][159][210][153][198][192]"
  773. 1171 s$(5)="[145][144] [164][154][175][159][210][153][198]":s$(6)="[145][144]  [164][154][175][159][210]":s$(7)="[145][144]   [164][154][175]":s$(8)="[145][144]    [164]"
  774. 1172 s$(9)="[145][144]     "
  775. 1180 return
  776. 1200 print"[147]":gosub1510:print"":poke53272,21
  777. 1201 printspc(17)"     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [145][145][145]"
  778. 1202 printspc(23)"[145]   [157][157][157]   [157][157][157]   [145][145][145][145]"
  779. 1203 printspc(27)" [145]"
  780. 1204 remprint"[147]":gosub1510:print""
  781. 1205 return
  782. 1250 printspc(x)" [146][145][145]":gosub1000
  783. 1251 printspc(x)"[164][157][157][167] [146][165][157][157][163][145][145][145]":gosub1000
  784. 1252 printspc(x)"[175][157][157][182] [146][181][157][157][183][145][145][145]":gosub1000eady.
  785. 1253 printspc(x-1)"[172][162][187][157][157][157][161] [146][161][157][157][157][188][162][146][190][145][145][145]":gosub1000
  786. 1254 printspc(x-1)"[207][183][208][157][157][157][165] [167][157][157][157][204][175][186][145][145][145]":gosub1000
  787. 1255 printspc(x-1)"   [157][157][157]   [157][157][157]   [145][145][145][145]":gosub1000
  788. 1256 goto1019
  789. 1260 printspc(12)"[195]ompod's [196]esign":return
  790. 1265 printspc(5)"([195]) 1995/96 by [193]morphis [199]roup[145][145][145]":return
  791. 1300 printspc(17)"[176][144][192][192][174][157][221][157][221][157][189][157][157][192][157][157][192][157][157][173][145][157][221][145][157][221][145][145]"
  792. 1301 printspc(17)"[153][176][192][144][192][174][157][221][157][221][157][189][157][157][192][157][157][192][157][157][173][145][157][221][145][157][221][145][145]"
  793. 1302 printspc(17)"[159][176][153][192][192][144][174][157][221][157][221][157][189][157][157][192][157][157][192][157][157][173][145][157][221][145][157][221][145][145]"
  794. 1303 printspc(17)"[154][176][159][192][153][192][174][157][144][221][157][221][157][189][157][157][192][157][157][192][157][157][173][145][157][221][145][157][221][145][145]"
  795. 1304 return
  796. 1305 printspc(16)" [157][167][153][157][182][159][157][161][150][157][146]  [159][184][153][162][185][146][153][145][180][145][157][153][161][145][157][159][170][145][157][150] [146][145][157][157][157][157][157][162][153][185][159][175][150]  "
  797. 1306 return
  798. 1307 printspc(16)" [157][167][153][157][182][159][157] [150][157][146]  [159] [153][162][185][146][153][145][180][145][157][153][161][145][157][159] [145][157][150] [146][145][157][157][157][157][157][162][153][185][159] [150]  "
  799. 1308 return
  800. 1309 printspc(16)" [157][167][153][157] [159][157] [150][157][146]  [159] [153] [185][146][153][145] [145][157][153] [145][157][159] [145][157][150] [146][145][157][157][157][157][157][162][153] [159] [150]  "
  801. 1310 return
  802. 1311 printspc(16)" [157][167][153][157][182][159][157][161][150][157][180][146][183][159][184][153][162][185][146][153][145][180][145][157][153][161][145][157][159][170][145][157][150] [146][145][157][157][157][157][157][162][153][185][159][175][150][164] "
  803. 1312 return
  804. 1400 o=53280:p=o+1:forx=1to7
  805. 1401 ifx=1thenpokeo,1:pokep,1:gosub1520:gosub1511:print""
  806. 1402 ifx=2thenpokeo,13:pokep,13:print"[145][145]":gosub1309
  807. 1403 ifx=3thenpokeo,3:pokep,3:print"[145][145]":gosub1307
  808. 1404 ifx=4thenpokeo,5:pokep,5:print"[145][145]":gosub1305
  809. 1405 ifx=5thenpokeo,6:pokep,6:print"[145][145]":gosub1311
  810. 1406 ifx=6thenpokeo,9:pokep,9
  811. 1407 ifx=7thenpokeo,0:pokep,0
  812. 1408 next
  813. 1409 return
  814. 1410 printspc(13)" [176][174] code  [176][174] "
  815. 1411 printspc(13)"[176][189][171][192][178][192][178][192][178][192][179][173][174]"
  816. 1412 printspc(13)"[221][221][221][221][171][192][221][221][221][221][221][176][189]"
  817. 1413 printspc(13)"[221][221][221][192][179][192][179][192][179] [179][221] "
  818. 1414 printspc(13)"[221] [221] [221] [221] [221][221][221][173][174]"
  819. 1415 printspc(13)"[173][192][177][192][177][192][177][192][177][177][177][192][189][145][145][145][145][145][145][145]"
  820. 1416 return
  821. 1420 printspc(13)" hq & music [176][174]"
  822. 1421 printspc(13)"[176][192][178][192][178][192][192][178][192][178][192][178][189][221]"
  823. 1422 printspc(13)"[221][176][189][221][221][221][221][221][221][221][221][221][221][221]"
  824. 1423 printspc(13)"[221][173][174][221][221][221][221][221][221][221][221][221][221][221]"
  825. 1424 printspc(13)"[221] [221] [221][221][221][221] [221] [221] [221]"
  826. 1425 printspc(13)"[173][192][177][192][177][177][177][179][176][177][192][177][192][189]"
  827. 1426 printspc(13)"       [173][189]     [145][145][145][145][145][145][145][145]"
  828. 1427 return
  829. 1430 printspc(13)"  [176][174][176][174]      "
  830. 1431 printspc(13)"[176][192][179][171][189][171][192][178][178][178][178][174]"
  831. 1432 printspc(13)"[221][221][221][221][221][221][221][221][221][221][221][221]"
  832. 1433 printspc(13)"[221][221][221][221][221][221][221][221][221][221][221][221]"
  833. 1434 printspc(13)"[221] [221][221] [221] [221] [221] [221]"
  834. 1435 printspc(13)"[173][192][177][177][192][177][174][171][192][177][174][221]"
  835. 1436 printspc(13)" swapp[173][189]  [173][189][145][145][145][145][145][145][145][145]":gosub1000
  836. 1437 return
  837. 1440 printspc(13)"   [176][174]      "
  838. 1441 printspc(13)" [176][192][179][171][192][178][192][178][192][174]"
  839. 1442 printspc(13)" [221][221][221][221][192][179][221][221][221][221]"
  840. 1443 printspc(13)" [221][221][221][171][192][221][176][179][221][221]"
  841. 1444 printspc(13)" [221] [221][221] [221] [221][221][221]"
  842. 1445 printspc(13)" [173][192][177][177][192][177][192][177][177][189]"
  843. 1446 printspc(13)" - music! -[145][145][145][145][145][145][145][145]"
  844. 1447 return
  845. 1450 printspc(13)"[176][174]    [176][174]     "
  846. 1451 printspc(13)"[221][173][178][192][178][192][179][171][178][192][178][192][174]"
  847. 1452 printspc(13)"[221][221][221][221][221][221][221][221][221][221][221][176][189]"
  848. 1453 printspc(13)"[221][221][221][221][221][221][221] [221][176][179][221] "
  849. 1454 printspc(13)"[221] [221] [221] [221][221][221] [221][221] "
  850. 1455 printspc(13)"[173][192][177][192][177][192][177][177][177][192][177][189] "
  851. 1456 printspc(13)"  - music -  [145][145][145][145][145][145][145][145]"
  852. 1457 return
  853. 1460 printspc(14)"  music  [176][174]"
  854. 1461 printspc(14)"[176][192][178][192][178][192][178][178][178][189][221]"
  855. 1462 printspc(14)"[221][176][189][176][189][221][221][221][221][221][221]"
  856. 1463 printspc(14)"[221][173][174][221][221][221][221][221][221][221][221]"
  857. 1464 printspc(14)"[221][176][189][221][221] [221] [221] [221]"
  858. 1465 printspc(14)"[221][221][173][189][173][192][177][174][171][192][189]"
  859. 1466 printspc(14)"[173][189]     [173][189]  [145][145][145][145][145][145][145][145]"
  860. 1467 return
  861. 1470 printspc(14)"     [176][174]   "
  862. 1471 printspc(14)"[176][192][178][192][178][179][171][178][192][174]"
  863. 1472 printspc(14)"[221][192][179][221][171][179][221][221][221][221]"
  864. 1473 printspc(14)"[171][192][221][221][221][221] [221][176][179]"
  865. 1474 printspc(14)"[221] [221] [221][221][221][221] [221]"
  866. 1475 printspc(14)"[173][192][179][176][177][177][177][177][192][189]"
  867. 1476 printspc(14)"  [173][189]music  [145][145][145][145][145][145][145][145]"
  868. 1477 return
  869. 1480 printspc(15)"      [176][174] "
  870. 1481 printspc(15)" [176][192][178][192][178][189][221] "
  871. 1482 printspc(15)" [221][221][221][221][221][221][221] "
  872. 1483 printspc(15)"[160][221] [221][221][221][221][221] "
  873. 1484 printspc(15)" [221][221][221][221][221][221][221] "
  874. 1485 printspc(15)" [173][177][177][177][177][192][189] "
  875. 1486 printspc(15)"         [145][145][145][145][145][145][145][145]"
  876. 1487 return
  877. 1500 printspc(13)"[176][192][174]     [176][174]   "
  878. 1501 printspc(13)"[221][221][221][213][196][201]  [221][221] [146]  "
  879. 1502 printspc(13)"[221] [221][199][221][200]  [221][202][213][192][174]"
  880. 1503 printspc(13)"[221][171][192][202][201][203][213][196][179][221][189][146][192][189]"
  881. 1504 printspc(13)"[221][221][221][221][221][221][200][221][200][221][171][146][192][221]"
  882. 1505 printspc(13)"[173][177][177][177][179] [179][176][177][177][177][146][192][203]"
  883. 1506 printspc(13)"    [173][179][221][189]   [146]  "
  884. 1507 printspc(13)"     [173][203]        [145][145][145][145][145][145][145][145]"
  885. 1508 return
  886. 1510 printspc(30)"-amorphis[157][157][157][157][157][157][157][157][157]productio[145][145][145][145][145][145]":poke1983,45:poke2023,14:return
  887. 1511 printspc(30)"-[193][205][207][210][208][200][201][211][157][157][157][157][157][157][157][157][157][208][210][207][196][213][195][212][201][207][145][145][145][145][145][145]":poke1983,45:poke2023,78:return
  888. 1512 printspc(29)"-amorphis[157][157][157][157][157][157][157][157][157]productio[145][145][145][145][145][145]":return
  889. 1520 print"":return
  890. 1530 printspc(17)" [154] [159] [154]  [157][157][157][157][157][154] [159] [153] [159] [154] [157][157][157][157][157][159] [153]  [153] [159] [157][157][157][157][157]";
  891. 1531 print"[154] [159] [153] [159] [154] [157][157][157][157][157] [154] [159] [154]  ":return
  892. 1532 printspc(21)"[145] ":return
  893. 1533 printspc(21)"[145][145] [157][157] [154] [157] [145]":return
  894. 1534 printspc(21)"[145][145][145] [157][157] [154] [157][157][157] [154] [159] [157][157] [154] [157] [145][145]":return
  895. 1535 printspc(21)"[145][145][145][145] [157][157] [154] [157][157][157] [154] [159] [157][157][157][157] [154] [159] [153] [157][157][157] [154] [159] [145]":return
  896. 1536 printspc(21)"[145][145][145][145][145] [157][157] [154] [157][157][157] [154] [159] [157][157][157][157] [154] [159] [153] [157][157][157][157][157] [154] [159] [153]  ":return
  897. 1537 printspc(21)"[145][145][145][145][145][145][144] [157][157] [144] [157][157][157] [154]  [157][157][157][157] [154] [159] [154] [157][157][157][157][157] [154] [159] [153] [159] ":return
  898. 1538 printspc(20)"[145][145][145][145][145][145][144] [157][157] [144]  [157][157][157][157] [154]  [144] [157][157][157][157][157] [154] [159] [154]  ":return
  899. 1539 printspc(19)"[145][145][145][145][145][145][144] [157][157] [144]  [157][157][157][157] [154]  [144]  ":return
  900. 1540 printspc(18)"[145][145][145][145][145][145][144] [157][157][144]   ":return
  901. 1599 end
  902. 1600 gosub1004:print""
  903. 1601 forx=1to7
  904. 1602 ifx=1thenpoke646,9
  905. 1603 ifx=2thenpoke646,11
  906. 1604 ifx=3thenpoke646,8
  907. 1605 ifx=4thenpoke646,12
  908. 1606 ifx=5thenpoke646,15
  909. 1607 ifx=6thenpoke646,13
  910. 1608 ifx=7thenpoke646,1
  911. 1609 printspc(13)" what is this? [145]"
  912. 1610 next:gosub1006
  913. 1611 forx=1to7
  914. 1612 ifx=1thenpoke646,13
  915. 1613 ifx=2thenpoke646,15
  916. 1614 ifx=3thenpoke646,12
  917. 1615 ifx=4thenpoke646,8
  918. 1616 ifx=5thenpoke646,11
  919. 1617 ifx=6thenpoke646,9
  920. 1618 ifx=7thenpoke646,0
  921. 1619 printspc(13)" what is this? [145]"
  922. 1620 next:printspc(13)"               [145]":gosub1004
  923. 1621 print"[155].         [145]":gosub1009
  924. 1622 print"..        [145]":gosub1009
  925. 1623 print"...       [145]":gosub1009
  926. 1624 print"s...      [145]":gosub1009
  927. 1625 print"is...     [145]":gosub1009
  928. 1626 print" is...    [145]":gosub1009
  929. 1627 print"s is...   [145]":gosub1009
  930. 1628 print"is is...  [145]":gosub1009
  931. 1629 print"his is... [145]":gosub1009
  932. 1630 print"this is...[145]":gosub1009
  933. 1631 forx=1to7
  934. 1632 ifx=1thenpoke646,9
  935. 1633 ifx=2thenpoke646,11
  936. 1634 ifx=3thenpoke646,8
  937. 1635 ifx=4thenpoke646,12
  938. 1636 ifx=5thenpoke646,15
  939. 1637 ifx=6thenpoke646,13
  940. 1638 ifx=7thenpoke646,1
  941. 1639 printspc(30)"-amorphis-[157][145]"
  942. 1640 next
  943. 1642 s=2014
  944. 1643 pokes,16:gosub1009
  945. 1644 pokes+1,18:gosub1009
  946. 1645 pokes+2,15:gosub1009
  947. 1646 pokes+3,4:gosub1009
  948. 1647 pokes+4,21:gosub1009
  949. 1648 pokes+5,3:gosub1009
  950. 1649 pokes+6,20:gosub1009
  951. 1650 pokes+7,9:gosub1009
  952. 1651 pokes+8,15:gosub1009
  953. 1652 pokes+9,14:gosub1009
  954. 1662 print"[155]his is... [145]":gosub1009
  955. 1663 print"is is...  [145]":gosub1009
  956. 1664 print"s is...   [145]":gosub1009
  957. 1665 print" is...    [145]":gosub1009
  958. 1666 print"is...     [145]":gosub1009
  959. 1667 print"s...      [145]":gosub1009
  960. 1668 print"...       [145]":gosub1009
  961. 1669 print"..        [145]":gosub1009
  962. 1670 print".         [145]":gosub1009
  963. 1671 print"          [145]":gosub1009
  964. 1672 print"":return
  965.