home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 197 / 197.d81 / mu-torere / mu-torere.080d / mu-torere.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  26.3 KB  |  472 lines
  1. 1 rem "mu-torere basic" 2000.09.06
  2. 2 poke55,0:poke56,56:clr
  3. 3 gosub3002
  4. 4 gosub12:onq%goto4002
  5. 5 q%=3:gosub102:iff%>0thengosub302:goto4
  6. 6 gosub12:onq%goto4002,5
  7. 7 onp%(p%,1)gosub198
  8. 8 gosub280:onq%goto4002,5,5,5,4
  9. 10 :
  10. 12 : rem input
  11. 14 :
  12. 16 pokevl+39,1
  13. 18 sysml+9:i%=cr%:on1+(i%=0)goto22:sysml+60,"123456789pehq":on1+(i%=0)goto22
  14. 20 onp%(p%,1)+1goto18,26
  15. 22 ifi%>9thenoni%-9gosub502,520,572,588:onq%goto28,28:goto18
  16. 24 ifi%>0thengosub268:ifa%=0then18
  17. 26 ifq%=5then18
  18. 28 pokevl+39,7
  19. 30 return
  20. 100 :
  21. 102 : rem next player
  22. 104 :
  23. 106 f%=0:i%=1:gosub130
  24. 108 rem --- move limit
  25. 110 ifm%>=o%(2,0)thenf%=1:goto126
  26. 112 rem --- possible moves
  27. 114 p%=1-p%:v%=0:pokev(0),p%(p%,0):gosub144
  28. 116 ifpeek(v(0)+11)=0thenf%=2:p%=1-p%:goto126
  29. 118 rem --- player pointer
  30. 120 poke646,c%(6+p%):i%=3:gosub130:poke646,c%(2)
  31. 122 rem --- move #
  32. 124 m%=m%+1:a$="[205]ove"+right$("  "+str$(m%),4):sysml+12,fnxs(len(a$)),15,a$
  33. 126 return
  34. 128 :
  35. 130 : rem player pointer
  36. 132 :
  37. 134 j=i%+1:cy%=fnyp(p%)
  38. 136 sysml+12,xs%,cy%,mid$(p$,i%,1)
  39. 138 sysml+12,xs%+18,cy%,mid$(p$,j,1)
  40. 140 return
  41. 142 :
  42. 144 : rem find possible moves
  43. 146 :
  44. 148 x%=peek(v(v%)):o%=3-x%:b%=peek(v(v%)+10)
  45. 150 n%=0:on2+(b%=9)gosub156,168:pokev(v%)+11,n%
  46. 152 return
  47. 154 :
  48. 156 : rem moves to center
  49. 158 :
  50. 160 fork=1to8:iffnm(k)=x%theniffnml(k)=o%orfnmr(k)=o%thengosub182
  51. 162 next
  52. 164 return
  53. 166 :
  54. 168 : rem moves to point
  55. 170 :
  56. 172 k=fnrl(b%):iffnm(k)=x%thengosub182
  57. 174 k=fnrr(b%):iffnm(k)=x%thengosub182
  58. 176 k=9:iffnm(k)=x%thengosub182
  59. 178 return
  60. 180 :
  61. 182 : rem log possible move
  62. 184 :
  63. 186 n%=n%+1:pokev(v%)+11+n%,k:return
  64. 188 :
  65. 190 : rem update board
  66. 192 :
  67. 194 pokev(v%)+a%,0:pokev(v%)+b%,x%:pokev(v%)+10,a%:return
  68. 196 :
  69. 198 : rem computer move                       (v%=0 data already set)
  70. 200 :
  71. 202 i%=peek(v(0)+11):ifi%=1thenk=1:goto254
  72. 204 f%=0:fori=1toi%
  73. 206 rem --- check "x" move
  74. 208 sysml+129,v(0),v(1),v(1)
  75. 210 v%=0:a%=fna(i):b%=peek(v(0)+10)
  76. 212 ono%(1,0)goto218,218,216:rem level
  77. 214 iffng3(fng(g%(1)))thenf%=-1:k=i:i=i%:goto248:rem win in 3
  78. 216 iffng2(fng(g%(1))-256)thenf%=-1:k=i:i=i%:goto248:rem win in 2
  79. 218 v%=1:gosub190
  80. 220 pokev(1),3-p%(p%,0):gosub144:rem "o" moves for "x" move
  81. 222 j%=peek(v(1)+11)
  82. 224 ifj%=0thenf%=-1:k=i:i=i%:goto248:rem win
  83. 226 rem --- check "o" move
  84. 228 forj=1toj%
  85. 230 sysml+129,v(1),v(2),v(2)
  86. 232 v%=1:a%=fna(j):b%=peek(v(1)+10)
  87. 234 ono%(1,0)goto246,240,238:rem level
  88. 236 iffng3(fng(g%(0)))thenf%=f%orb%(i-1):j=j%:i=i%:goto246:rem loss in 3
  89. 238 iffng2(fng(g%(0))-256)thenf%=f%orb%(i-1):j=j%:i=i%:goto246:rem loss in 2
  90. 240 v%=2:gosub190
  91. 242 pokev(2),p%(p%,0):gosub144:rem "x" moves for "o" move
  92. 244 ifpeek(v(2)+11)=0thenf%=f%orb%(i-1):j=j%:i=i%:rem loss
  93. 246 next
  94. 248 next:iff%<0then254
  95. 250 rem --- random                          (if possible, exclude loss)
  96. 252 k=int(rnd(0)*i%)+1:iff%>0thenif(f%andb%(k-1))<>0then252
  97. 254 rem --- move
  98. 256 v%=0:a%=fna(k)
  99. 258 rem --- position pointer
  100. 260 i=hr%*256+4*(a%-1):sysml+21,(peek(i)+peek(i+1))/2,(peek(i+2)+peek(i+3))/2
  101. 262 sysml+24,o%(3,0)
  102. 264 return
  103. 266 :
  104. 268 : rem human move
  105. 270 :
  106. 272 v%=0:n%=peek(v(0)+11)
  107. 274 fori=1ton%:f%=(i%=fna(i)):i=i+(i-n%)*f%:next:a%=-i%*f%
  108. 276 return
  109. 278 :
  110. 280 : rem move
  111. 282 :
  112. 284 rem --- display
  113. 286 sysml+36,a%,255,c%(2)
  114. 288 b%=peek(v(0)+10):sysml+36,b%,255,c%(6+p%)
  115. 290 rem --- update board
  116. 292 v%=0:x%=p%(p%,0):gosub190
  117. 294 rem --- pattern
  118. 296 g%(2)=g%(1):g%(1)=g%(0):g%(0)=fng(g%(2))
  119. 298 return
  120. 300 :
  121. 302 : rem game over
  122. 304 :
  123. 306 q%=5
  124. 308 iff%=1thena$="[211]talemate":goto312
  125. 310 a$="[215]inner":poke646,c%(6+p%):i%=3:gosub130
  126. 312 sysml+12,fnxs(len(a$)),17,a$:poke646,c%(2)
  127. 314 return
  128. 500 :
  129. 502 : rem play new game
  130. 504 :
  131. 506 q%=2:m%=0:p%=1:g%(0)=240:g%(1)=15
  132. 508 fori=1to4:pokev(0)+i,p%(0,0):sysml+36,i,255,c%(6):next
  133. 510 fori=5to8:pokev(0)+i,p%(1,0):sysml+36,i,255,c%(7):next
  134. 512 sysml+30,xs%+2,xs%+17,17,17,160,c%(1)
  135. 514 pokev(0)+9,0:pokev(0)+10,9:sysml+36,9,255,c%(2)
  136. 516 return
  137. 518 :
  138. 520 : rem edit setup
  139. 522 :
  140. 524 sysml+39,hg%
  141. 526 sysml+42,hs%:pokemv,ls%:pokemv+2,19
  142. 528 n%=0
  143. 530 sysml+9:ifcr%=0thensysml+60,"q":oni%+1goto530,564
  144. 532 ifcr%=19then564
  145. 534 ifcr%<17then546
  146. 536 i=cr%-17
  147. 538 w$=n$(i):sysml+156,p%(i,3)+128,p%(i,4),c%(1),c%(1),p%(i,2),0,"[145]",n$(i)
  148. 540 ifn$(i)=w$then530
  149. 542 n%=n%orb%(i+4)
  150. 544 n$(i)=w$:goto530
  151. 546 forj=0to3:i=3-j:f%=(cr%>=o%(i,1)):j=j+(j-3)*f%:next
  152. 548 ifo%(i,2)=cr%then530
  153. 550 n%=n%orb%(i)
  154. 552 i%=o%(i,2):gosub3352:i%=cr%:gosub3364:f%=cr%-o%(i,1):o%(i,2)=cr%
  155. 554 onigoto558,560,562
  156. 556 o%(i,0)=f%:goto530
  157. 558 o%(i,0)=f%+1:goto530
  158. 560 o%(i,0)=(f%+1)*12:goto530
  159. 562 o%(i,0)=2^f%*60:goto530
  160. 564 sysml+39,hs%:gosub642
  161. 566 ifn%>0thengosub606
  162. 568 return
  163. 570 :
  164. 572 : rem help
  165. 574 :
  166. 576 sysml+39,hg%
  167. 578 sysml+42,hh%:pokemv,lh%:pokemv+2,6
  168. 580 sysml+210,1+128,38,3,19,c%(2),0,c%(4),c%(5),0,"",""
  169. 582 gosub642
  170. 584 return
  171. 586 :
  172. 588 : rem quit
  173. 590 :
  174. 592 sysml+39,hg%
  175. 594 sysml+42,hq%:pokemv,lq%:pokemv+2,2
  176. 596 sysml+9:i%=cr%:ifi%=0thensysml+60,"ny":ifi%=0then596
  177. 598 ifi%=2thenq%=1:goto602
  178. 600 gosub642
  179. 602 return
  180. 604 :
  181. 606 : rem new setup
  182. 608 :
  183. 610 rem --- human
  184. 612 if(n%andb%(0))=0then626
  185. 614 fori=0to1
  186. 616 p%(i,1)=1+((o%(0,0)andb%(i))<>0)
  187. 618 cy%=fnyp(i)+1
  188. 620 sysml+30,xs%+2,xs%+17,cy%,cy%,160,c%(1)
  189. 622 sysml+12,fnxs(len(t$(p%(i,1)))),cy%,t$(p%(i,1))
  190. 624 next
  191. 626 rem --- name(s)
  192. 628 fori=0to1:if(n%andb%(i+4))=0then636
  193. 630 cy%=fnyp(i)
  194. 632 sysml+30,xs%+2,xs%+17,cy%,cy%,160,c%(1)
  195. 634 poke646,c%(6+i):sysml+12,fnxs(len(n$(i))),fnyp(i),n$(i):poke646,c%(2)
  196. 636 next
  197. 638 return
  198. 640 :
  199. 642 : rem restore game screen
  200. 644 :
  201. 646 sysml+42,hg%:pokemv,lg%:pokemv+2,13
  202. 648 return
  203. 3000 :
  204. 3002 : rem initialize
  205. 3004 :
  206. 3006 dv=peek(186)
  207. 3008 rem --- dim
  208. 3010 dim a%,b%,c%,cc%,cr%,cx%,cy%,f%,h%,hg%,hh%,hr%,hs%,hq%,i%,j%,l%,l1%,l2%,lg%
  209. 3012 dim lh%,ls%,lq%,m%,n%,o%,p%,pp%,px%,py%,q%,r1%,r2%,rg%,sc%,sl%,v%,x%,xs%
  210. 3014 dim cl,i,j,k,ml,mm,mv,v,vl,x,a$,e$,f$,p$,w$
  211. 3016 dim b%(8),c%(7),g%(2),o%(3,2),p%(1,4),v(5),n$(1),t$(1)
  212. 3018 rem --- deffn
  213. 3020 deffna(x)=peek(v(v%)+11+x)
  214. 3022 deffng(x)=x-b%(a%-1)+b%(b%-1)
  215. 3024 deffng2(x)=((x=peek(v(3)+a%))or(x=peek(v(4)+a%)))
  216. 3026 deffng3(x)=(x=peek(v(5)+a%))
  217. 3028 deffnrl(x)=peek(v+x-1)
  218. 3030 deffnrr(x)=peek(v+x+1)
  219. 3032 deffnm(x)=peek(v(v%)+x)
  220. 3034 deffnml(x)=fnm(fnrl(x))
  221. 3036 deffnmr(x)=fnm(fnrr(x))
  222. 3038 deffnxc(x)=x+(l%-len(a$))/2
  223. 3040 deffnxs(x)=xs%+(19-x)/2
  224. 3042 deffnyp(x)=8+3*x
  225. 3044 rem --- font
  226. 3046 readf%,a$,h%,l%
  227. 3048 iff%thengosub3314
  228. 3050 rem --- mouse
  229. 3052 readf%,a$,h%,l%
  230. 3054 iff%thengosub3314
  231. 3056 ml=h%*256+l%
  232. 3058 mv=ml+309
  233. 3060 hr%=97:pokemv+1,hr%
  234. 3062 lg%=0:lh%=lg%+13*4:ls%=lh%+6*4:lq%=ls%+19*4:rem region low bytes
  235. 3064 hg%=224:hh%=232:hs%=240:hq%=248:rem stash pages
  236. 3066 n%=111:fori=42to49:n%=n%+1:pokemv+i,n%:next
  237. 3068 rem --- mouse mate
  238. 3070 readf%,a$,h%,l%
  239. 3072 iff%thengosub3314
  240. 3074 mm=h%*256+l%
  241. 3076 pokemm+9,0:rem disable stop
  242. 3078 rem --- curtain
  243. 3080 readf%,a$,h%,l%
  244. 3082 iff%thengosub3314
  245. 3084 cl=h%*256+l%
  246. 3086 rem --- help text
  247. 3088 readf%,a$,h%,l%
  248. 3090 i=h%*256+l%
  249. 3092 iff%thensysml+201,a$,dv,i
  250. 3094 sysml+204,i
  251. 3096 rem --- poke/peek data
  252. 3098 v=98*256
  253. 3100 fori=0to33:readf%:pokev+i,f%:next
  254. 3102 v(0)=v+34:v(1)=v+50:v(2)=v+66
  255. 3103 v(3)=v+09:v(4)=v+17:v(5)=v+25
  256. 3104 rem --- vic location
  257. 3106 vl=53248
  258. 3108 rem ---
  259. 3110 p%(0,0)=1:p%(1,0)=2:rem markers
  260. 3112 p$="  \_"
  261. 3114 t$(0)="([200]uman)":t$(1)="([195]omputer)"
  262. 3116 fori=0to7:readc%(i):next:rem colors
  263. 3118 fori=0to8:readb%(i):next
  264. 3120 rem --- screen off
  265. 3122 pokevl+17,11
  266. 3124 rem --- font
  267. 3126 pokevl+24,31
  268. 3128 rem --- setup screen
  269. 3130 pokemv,ls%
  270. 3132 pokevl+32,c%(2)
  271. 3134 pokevl+33,c%(4)
  272. 3136 sysml+126,0,39,0,24,160,160,c%(2),c%(2)
  273. 3138 sysml+30,5,34,2,19,160,c%(0)
  274. 3140 poke199,1
  275. 3142 poke646,c%(0)
  276. 3144 fori=1to4:readcx%,cy%,a$:sysml+12,cx%,cy%,a$:next
  277. 3146 l%=5:fori=1to16:i%=i:readcx%,cy%,a$:gosub3336:next
  278. 3148 l%=16:fori=0to1:i%=17+i:readcx%,cy%,a$:gosub3336
  279. 3150 p%(i,2)=l%-1:p%(i,3)=cx%:p%(i,4)=cy%:n$(i)=a$:next
  280. 3152 l%=8:i%=19:readcx%,cy%,a$:gosub3322:gosub3352
  281. 3154 fori=0to3:reado%(i,0),o%(i,1),o%(i,2):i%=o%(i,2):gosub3360:next
  282. 3156 poke199,0
  283. 3158 sysml+39,hs%
  284. 3160 rem --- quit screen
  285. 3162 pokemv,lq%
  286. 3164 pokevl+32,c%(2)
  287. 3166 pokevl+33,c%(4)
  288. 3168 sysml+126,0,39,0,24,160,160,c%(2),c%(2)
  289. 3170 sysml+30,10,29,6,15,160,c%(0)
  290. 3172 poke199,1
  291. 3174 poke646,c%(0)
  292. 3176 readcy%,a$:sysml+27,cy%,a$
  293. 3178 l%=7:fori=1to2:i%=i:readcx%,cy%,a$:gosub3322:gosub3352:next
  294. 3180 poke199,0
  295. 3182 sysml+39,hq%
  296. 3184 rem --- help screen
  297. 3186 pokemv,lh%
  298. 3188 pokevl+32,c%(0)
  299. 3190 pokevl+33,c%(1)
  300. 3192 sysml+30,0,39,0,24,160,c%(0)
  301. 3194 sysml+30,0,39,2,20,160,c%(4)+16
  302. 3196 poke199,1
  303. 3198 poke646,c%(0)
  304. 3200 readcy%,a$:sysml+27,cy%,a$
  305. 3202 sysml+228,1024+40*cy%+19,1024+40*cy%+27,0
  306. 3204 poke199,0
  307. 3206 poke646,c%(3)
  308. 3208 l%=8:fori=1to4:i%=i:readcx%,cy%,a$:gosub3322:next
  309. 3210 sysml+39,hh%
  310. 3212 rem --- game screen
  311. 3214 pokemv,lg%
  312. 3216 pokevl+32,c%(0)
  313. 3218 pokevl+33,c%(1)
  314. 3220 sysml+30,0,39,0,24,160,c%(0)
  315. 3222 fori=0to19:reada$:sysml+12,0,i,a$:next
  316. 3224 xs%=21:sysml+30,xs%,xs%+18,0,19,160,c%(1)
  317. 3226 poke646,c%(2):poke199,1
  318. 3228 a$="":fori=164to177:a$=a$+chr$(i):next:fori=174to177:a$=a$+chr$(i):next
  319. 3230 sysml+12,xs%+1,3,a$
  320. 3232 a$="":fori=178to191:a$=a$+chr$(i):next:fori=188to191:a$=a$+chr$(i):next
  321. 3234 sysml+12,xs%+1,4,a$
  322. 3236 poke199,0
  323. 3238 fori=1to9:readcx%,px%,cy%,py%:sysml+15,i,cx%,px%,cy%,py%:next
  324. 3240 poke646,c%(4):l%=8:fori=1to4:i%=i+9:readcx%,cy%,a$:gosub3322:next
  325. 3242 poke646,c%(2):n%=63:gosub606:gosub502:q%=5
  326. 3244 sysml+39,hg%
  327. 3246 rem --- title screen
  328. 3248 pokevl+32,c%(0)
  329. 3250 pokevl+33,c%(1)
  330. 3252 sysml+126,0,39,0,24,92,94,c%(0),c%(2)
  331. 3254 sysml+30,3,35,5,13,160,c%(4)+16
  332. 3256 poke646,c%(3)
  333. 3258 poke199,1
  334. 3260 a$="":fori=164to177:a$=a$+chr$(i):next:fori=174to177:a$=a$+chr$(i):next
  335. 3262 sysml+27,6,a$
  336. 3264 a$="":fori=178to191:a$=a$+chr$(i):next:fori=188to191:a$=a$+chr$(i):next
  337. 3266 sysml+27,7,a$
  338. 3268 poke199,0
  339. 3270 a$=""
  340. 3272 poke646,c%(2)
  341. 3274 sysml+27,9,"by [204]ance [195]. [212]homas"
  342. 3276 sysml+27,11,"(c) 2000 [202][160]& [198] [208]ublishing, [201]nc."
  343. 3278 rem ---
  344. 3280 syscl
  345. 3282 pokevl+17,27
  346. 3284 gosub3368
  347. 3286 syscl+6
  348. 3288 poke198,0:wait198,15:poke198,0
  349. 3290 syscl+9
  350. 3292 pokevl+17,11:sysml+42,hg%:pokevl+17,27
  351. 3294 gosub3368
  352. 3296 syscl+6
  353. 3298 syscl+3
  354. 3300 sysmm
  355. 3302 sysml
  356. 3304 sysml+6,704
  357. 3306 sysml+18,1,37,1,22
  358. 3308 poke646,c%(2)
  359. 3310 return
  360. 3312 :
  361. 3314 : rem bload file
  362. 3316 :
  363. 3318 sys57812a$,dv,0:poke780,0:poke781,l%:poke782,h%:sys65493:return
  364. 3320 :
  365. 3322 : rem command button
  366. 3324 :
  367. 3326 sysml+15,i%,cx%,cx%+l%-1,cy%,cy%+2
  368. 3328 sysml+30,cx%,cx%+l%-1,cy%,cy%+2,160,c%(1)
  369. 3330 sysml+12,fnxc(cx%),cy%+1,a$
  370. 3332 return
  371. 3334 :
  372. 3336 : rem setup region
  373. 3338 :
  374. 3340 sysml+15,i%,cx%,cx%+l%-1,cy%,cy%
  375. 3342 ifi%>4andi%<17thensysml+12,fnxc(cx%),cy%,a$:goto3346
  376. 3344 sysml+12,cx%,cy%,a$
  377. 3346 gosub3352
  378. 3348 return
  379. 3350 :
  380. 3352 : rem region highlight off
  381. 3354 :
  382. 3356 sysml+36,i%,255,c%(1):return
  383. 3358 :
  384. 3360 : rem region highlight on
  385. 3362 :
  386. 3364 sysml+36,i%,255,c%(5):return
  387. 3366 :
  388. 3368 : rem pause
  389. 3370 :
  390. 3372 i=ti
  391. 3374 ifti>ithenifti-i<20then3374
  392. 3376 return
  393. 4000 :
  394. 4002 : rem *** exit
  395. 4004 :
  396. 4006 sysml+3
  397. 4008 pokevl+21,0
  398. 4010 sysmm+3
  399. 4012 poke646,12
  400. 4014 goto40000
  401. 9000 :
  402. 9002 : *** data
  403. 9004 :
  404. 9006 data 00,"f.mu-torere",56,0
  405. 9008 data 00,"mouse2.1 7k 4000",64,0
  406. 9010 data 00,"mouse mate 6000",96,0
  407. 9012 data 00,"curtain 5c00",92,0
  408. 9014 data 00,"t.mu-torere hlp",99,0
  409. 9016 rem ---
  410. 9018 data 8,1,2,3,4,5,6,7,8,1
  411. 9020 data 140,025,050,100,200,145,035,070:rem win in 2 pattern=x.oxx
  412. 9022 data 098,196,137,019,038,076,152,049:rem win in 2 pattern=xxo.x
  413. 9024 data 198,141,027,054,108,216,177,099:rem win in 3 pattern=xx.xx
  414. 9026 rem ---
  415. 9028 data 12,15,11,0,0,2,6,2:rem c%()
  416. 9030 data 1,2,4,8,16,32,64,128,256
  417. 9032 rem --- setup
  418. 9034 data 13,4,"[205]u-[212]orere [211]etup"
  419. 9036 data 7,7,"[200]uman  [204]evel  [205]oves  [208]ause"
  420. 9038 data 7,13,"[206]ame      ([194]lue)"
  421. 9040 data 7,16,"[206]ame       ([210]ed)"
  422. 9042 data 7,8,"[206]one",7,9,"[194]lue",7,10,"[210]ed",7,11,"[194]oth"
  423. 9044 data 14,8,"1",14,9,"2",14,10,"3",14,11,"4"
  424. 9046 data 21,8," 12",21,9," 24",21,10," 48",21,11," 96"
  425. 9048 data 28,8,"1",28,9,"2",28,10,"4",28,11,"8"
  426. 9050 data 7,14,"[205]aster [216]",7,17,"[203]nees [195]alhoon"
  427. 9052 data 25,15,"[[209]]uit"
  428. 9054 data 1,1,2, 4,5,8, 96,9,12, 60,13,13
  429. 9056 rem --- quit
  430. 9058 data 8,"[209]uit [205]u-[212]orere?"
  431. 9060 data 12,11,"[[206]]o ",21,11,"[[217]]es"
  432. 9062 rem --- help
  433. 9064 data 0,"[200]elp [204]ine #### of ####"
  434. 9066 data 1,22,"[[200][207][205][197]]",11,22,"[[213][208]]",21,22,"[[196][207][215][206]]",31,22,"[[209]]uit"
  435. 9068 rem --- game
  436. 9070 data "      [172]      [173]      "
  437. 9072 data "      [169][172]    [173][169]      "
  438. 9074 data "      [169][169][172]  [173][169][169]      "
  439. 9076 data "      [169][169][169][172][173][169][169][169]      "
  440. 9078 data "      [169][169][169][187][186][169][169][169]      "
  441. 9080 data "      [169][169][169][187][186][169][169][169]      "
  442. 9082 data "[174][169][169][169][169][169]  [172]  [173]  [169][169][169][169][169][175]"
  443. 9084 data " [174][169][169][169][169]  [169][172][173][169]  [169][169][169][169][175] "
  444. 9086 data "  [174][169][169][169][174][169][169][169][169][169][169][175][169][169][169][175]  "
  445. 9088 data "   [174][185][185] [174][169][169][169][169][175] [185][185][175]   "
  446. 9090 data "   [173][184][184] [173][169][169][169][169][172] [184][184][172]   "
  447. 9092 data "  [173][169][169][169][173][169][169][169][169][169][169][172][169][169][169][172]  "
  448. 9094 data " [173][169][169][169][169]  [169][175][174][169]  [169][169][169][169][172] "
  449. 9096 data "[173][169][169][169][169][169]  [175]  [174]  [169][169][169][169][169][172]"
  450. 9098 data "      [169][169][169][187][186][169][169][169]      "
  451. 9100 data "      [169][169][169][187][186][169][169][169]      "
  452. 9102 data "      [169][169][169][175][174][169][169][169]      "
  453. 9104 data "      [169][169][175]  [174][169][169]      "
  454. 9106 data "      [169][175]    [174][169]      "
  455. 9108 data "      [175]      [174]      "
  456. 9109 data 0,5,6,9, 6,9,0,5, 10,13,0,5, 14,19,6,9, 14,19,10,13
  457. 9110 data 10,13,14,19, 6,9,14,19, 0,5,10,13, 6,13,6,13
  458. 9112 data 1,21,"[[208]]lay",11,21,"[[197]]dit",21,21,"[[200]]elp",31,21,"[[209]]uit"
  459. 9999 :
  460. 10000 a$="mu-torere basic"
  461. 10010 dv=peek(186):open15,dv,15,"s0:"+a$:close15:savea$,dv:end
  462. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  463. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  464. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  465. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  466. 40040 close2:open2,i,2:close2:ifstthen40060
  467. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  468. 40060 next:return
  469. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  470. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  471. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  472.