home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / favor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  19.9 KB  |  651 lines
  1. 1 poke55,0:poke56,159:clr
  2. 2 nm$="favor":nn$="amcgs.a":    dv=peek(186):ifdv<8thendv=8
  3. 3 print"[159][147]":poke53280,0:poke53281,0:poke788,49:tq=ti:poke53371,0:mt=49152
  4. 4 sys57812"amcgs.a font",dv,0:poke780,0:poke781,0:poke782,8:sys65493
  5. 12 open2,dv,2,nm$+".opts,p,r":input#2,k3,sd,so,cc,sk
  6. 14 input#2,bd,fb,mu,wg,pk,rd,kc,kc%(0):close2
  7. 17 gosub5500:poke53265,27:onmu+1goto500,482
  8. 18 :
  9. 19 rem brancher
  10. 20 onsd+1goto70,80
  11. 24 :
  12. 25 rem charge
  13. 26 a$="251331421502421502":poke53370,0
  14. 27 t=87:pokef+6,96:pokef+24,15
  15. 28 fori=1to18step3
  16. 29 pokef+1,val(mid$(a$,i,2)):pokef+4,33
  17. 30 forj=1tot*val(mid$(a$,i+2,1)):next
  18. 31 pokef+4,0:next:fori=ftof+24
  19. 32 pokei,0:next:poke53371,0:return
  20. 34 rem menu brancher
  21. 35 sysmt:poke53269,1
  22. 37 sysmt+9:ifl2%then57
  23. 41 i=1:geta$:ifa$=""then37
  24. 45 ifi>len(ch$)then37
  25. 49 ifa$=mid$(ch$,i,1)then59
  26. 53 i=i+1:goto45
  27. 57 ifcx%<x1+2orcx%>x2-2orcy%<y1+3orcy%>y2-1then37
  28. 58 i=(cy%-(y1)-1)/2
  29. 59 return
  30. 63 :
  31. 64 rem print at
  32. 65 x=x(i):y=y(i)
  33. 66 poke211,x:poke214,y:sys58732:return
  34. 68 :
  35. 69 rem keybord brancher
  36. 70 i=1:geta$:ifa$=""then76
  37. 71 ifi>len(ch$)then70
  38. 72 ifa$=mid$(ch$,i,1)thenreturn
  39. 73 i=i+1:goto71
  40. 76 ifjj=nc-2thenjj=-1
  41. 77 jj=jj+1:j%=jj+int(rnd(1)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp:goto70
  42. 78 :
  43. 79 rem mouse brancher
  44. 80 sysmt+9:ifrg%andl2%=1orr2%=1            theni=rg%:return
  45. 81 ifjj=nc-2thenjj=-1
  46. 82 jj=jj+1:j%=jj+int(rnd(1)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp:goto 80
  47. 88 :
  48. 89 rem wrong choice sound
  49. 90 poke53370,0:pokef+24,15:pokef+8,4:pokef+12,63:pokef+13,17:pokef+11,33
  50. 91 fori=1to100:next:pokef+11,32
  51. 92 y=sd:x=20-(len(wm$(wm)))/2:gosub66:printwm$(wm);:fori=1to300:next
  52. 93 poke53371,0:return
  53. 94 :
  54. 95 rem tone & message
  55. 96 poke53370,0:pokef+24,15:pokef+5,4:pokef+6,12
  56. 97 pokef+4,23:pokef+15,100:pokef+4,20:pokef+1,30:fork=1to350:next:pokef+6,0
  57. 98 pokef+4,129:goto92
  58. 109 :
  59. 110 rem special turn from deck  not a sub
  60. 111 tc=b%(t2,c(t2)):ts=fns(tc):tv=fnv(tc)
  61. 115 gosub270:onplgoto119,640
  62. 119 ift2>sf+3orgf=sf+3thenwm=3:gosub90:goto534
  63. 120 t2=t2+4:goto620
  64. 121 :
  65. 122 rem auto
  66. 123 tc=b%(t2,c(t2)):ts=fns(tc):tv=fnv(tc)
  67. 127 gosub270:onplgoto141,131
  68. 131 fork=c(fr)-1to1step-1
  69. 133 iffns(b%(fr,k))<>fsthen139
  70. 135 iffnv(b%(fr,k))<>fnv(b%(fr,k+1))+1then139
  71. 137 nextk
  72. 139 mm=k+1:goto1240
  73. 141 ift2>sf+3orgf=sf+3thenwm=3:gosub90:goto534
  74. 143 t2=t2+4:goto123
  75. 149 :
  76. 150 rem fill empty spaces
  77. 151 iffr=1or(c(0)=0andc(1)=0)then534
  78. 152 ifc(fr)>0then534
  79. 154 ifc(1)>0then160
  80. 156 c(fr)=c(fr)+1:b%(fr,c(fr))=b%(0,c(0)):c(0)=c(0)-1:i=0:gosub250:gosub230
  81. 157 ifc(0)=0thensysmt+30,x(0),x(0)+3,y(0),y(0)+4,kt,sk
  82. 158 i=fr:gosub200:goto534
  83. 160 c(fr)=c(fr)+1:b%(fr,c(fr))=b%(1,c(1)):c(1)=c(1)-1:i=1:gosub200
  84. 162 goto158
  85. 168 :
  86. 169 rem erases pile i
  87. 170 ifks(i)=2then174
  88. 172 mx=y(i)+sp(i)*(mx(i)-1)+4:sysmt+30,x(i),x(i)+3,y(i),mx,kt,sk:goto177
  89. 174 mx=x(i)+sp(i)*(mx(i)-1)+3:sysmt+30,x(i),mx,y(i),y(i)+4,kt,sk
  90. 177 return
  91. 178 :
  92. 179 rem magic :202 other place  203:any card
  93. 180 onks(i)goto181,190
  94. 181 x=x(i):y=y(i)+sp(i)*(c(i)-1)
  95. 182 ify>y(i)+sp(i)*(mx(i)-1)theny=y(i)+sp(i)*(mx(i)-1)
  96. 184 gosub66:goto202
  97. 190 y=y(i):x=x(i)+sp(i)*(c(i)-1)
  98. 192 ifx>x(i)+sp(i)*(mx(i)-1)thenx=x(i)+sp(i)*(mx(i)-1)
  99. 194 gosub66:goto202
  100. 200 x=x(i):y=y(i):gosub66:ifc(i)=0thengosub170
  101. 202 ca=b%(i,c(i)):ifc(i)=0then224
  102. 203 poke53370,0:ifso=1then220
  103. 214 pokef+1,50:pokef+24,12:pokef+4,129:fort=1to15:next:pokef+4,128:pokef+5,0
  104. 220 print"[146]";:printst$(ca);:poke53371,0:return
  105. 224 sysmt+30,x,x+3,y,y+4,kt,sk:return
  106. 228 :
  107. 229 rem print count at i
  108. 230 k=len(str$(c(i))):sysmt+30,x(i)-2,x(i)-1,y(i)+3,y(i)+3,kt,sk
  109. 234 ifc(i)=0then246
  110. 236 x=x(i)-k+1:y=y(i)+3
  111. 238 gosub66:print"[156]"right$(str$(c(i)),k-1):return
  112. 244 gosub66:print"[156]"right$(str$(c(i)-1),k-1):return
  113. 246 ifi=0thensysmt+30,x(0),x(0)+3,y(0),y(0)+4,kt,sk
  114. 247 return
  115. 248 :
  116. 249 rem prints deck at i
  117. 250 print"[146]":gosub65
  118. 252 poke53370,0:ifso=1then256
  119. 254 pokef+1,50:pokef+24,12:pokef+4,129:fort=1to15:next:pokef+4,128:pokef+5,0
  120. 256 poke646,cc:printbk$:sysmt+30,x+1,x+2,y+1,y+3,kc%(kc),cc:poke53371,0:return
  121. 258 :
  122. 259 rem redeal
  123. 260 kd=fl(2):ifrd=0thenkd=fl(3)
  124. 261 ifre= kdthenwm=9:gosub90:return
  125. 262 x=c(1):fori=1tox:b%(0,x)=b%(1,i):x=x-1:next:c(0)=c(1):c(1)=0
  126. 263 i=1:gosub65:sysmt+30,x,x+ht+2,y,y+4,kt,sk:i=0:gosub250:gosub230
  127. 264 ifht=3thenreturn
  128. 265 re=re+1
  129. 266 return
  130. 268 :
  131. 269 will it play
  132. 270 pl=1
  133. 272 if(t2>gt)and(tc+1=fc)thenpl=2:return
  134. 274 ift2>1andt2<sfandtc-1=fcthenpl=2:return
  135. 286 return
  136. 288 :
  137. 289 rem play from klon type waste
  138. 290 c(t2)=c(t2)+1:b%(t2,c(t2))=b%(fr,c(fr)):c(fr)=c(fr)-1:
  139. 291 y=y(1):x=x(1)+nt-1 :gosub66
  140. 292 sysmt+30,x,x+3,y,y+4,kt,sk
  141. 294 nt=nt-1:ifnt<1thennt=1
  142. 296 i=1:y=y(1):x=x(1)+nt-1:gosub66:gosub202
  143. 297 i=t2:gosub180:return
  144. 298 :
  145. 299 rem print stats
  146. 300 x1=2:x2=15:y1=8:y2=19:cl=cc:gosub2100
  147. 302 x=x1+2:y=y1+2
  148. 306 gosub66:print"[149]played";
  149. 307 x=x1+12-len(str$(t6)):gosub66:print"[144]"t6
  150. 308 x=x1+2:y=y+2:gosub66:print"high ";
  151. 309 x=x1+12-len(str$(hi)):gosub66:print"[144]"hi
  152. 310 x=x1+2:y=y+1:gosub66:print"low  ";
  153. 311 x=x1+12-len(str$(lo)):gosub66:print"[144]"lo
  154. 312 x=x1+2:y=y+1:gosub66:print"ave. ";
  155. 313 x=x1+12-len(str$(ave)):gosub66:print"[144]"ave
  156. 316 x=x1+2:y=y+2:gosub66:print"[156]games";
  157. 317 x=x1+12-len(str$(g7)):gosub66:print"[144]"g7
  158. 320 x=x1+2:y=y+1:gosub66:print"[156]wins ";
  159. 321 x=x1+12-len(str$(nw)):gosub66:print"[144]"nw
  160. 326 return
  161. 328 :
  162. 329 rem clear message
  163. 330 ifsd=1then342
  164. 332 print"[146]"
  165. 334 sysmt+30,0,29,0,0,100,bd
  166. 338 x=30:y=0:gosub66 :print"[146][144][163]h-help[146][174]":return
  167. 342 sysmt+30,0,39,1,1,kt,sk:return
  168. 366 :
  169. 367 rem declare win
  170. 368 ifso=0thengosub26
  171. 370 nw=nw+1:wf=1
  172. 372 x1=21:x2=34:y1=2:y2=06:cl=2:gosub2300
  173. 374 y=y1+2:x=x1+3:gosub66:print"youwin ":return
  174. 388 :
  175. 389 rem update stats
  176. 390 g7=g7+1:t6=0:ifwf=1thent6=52:goto392:rem t6=nc in most
  177. 391 fori=sftonp:t6=t6+c(i):next
  178. 392 g8=g8+t6:av=int(g8/g7+.5):ift6<lothenlo=t6
  179. 394 ift6>hithenhi=t6
  180. 395 ifg7=1thenhi=t6:lo=t6
  181. 396 wf=0:return
  182. 408 :
  183. 409 rem alternate heading
  184. 410 ifsd=1then418
  185. 412 ms=0:sysmt+30,0,39,0,0,100,bd
  186. 413 poke53269,0
  187. 414 fori=1togt+1:gosub65:print"[144][145]"mid$(sc$,i,1):next:return
  188. 418 ifsd=1thenms=1:sysmt+30,0,39,07,24,kt,sk:x=0:y=0:gosub66:printcm$
  189. 420 return
  190. 438 :
  191. 439 rem spread graphics
  192. 440 print"[146]":ifk>36then442
  193. 441 x=1:y=4:forj=1tok:gosub66:c(i)=j:gosub202:x=x+1:next:goto447
  194. 442 x=1:y=4:forj=1to36:gosub66:c(i)=j:gosub202:x=x+1:next:ifk>72then445
  195. 444 x=1:y=10:forj=37tok:gosub66:c(i)=j:gosub202:x=x+1:next:goto447
  196. 445 x=1:y=10:forj=37to72:gosub66:c(i)=j:gosub202:x=x+1:next
  197. 446 x=1:y=16:forj=73tok :gosub66:c(i)=j:gosub202:x=x+1:next
  198. 447 return
  199. 480 :
  200. 481 rem menu opening
  201. 482 gosub5000
  202. 484 onigoto500,486,488,39000
  203. 486 gosub5400:goto482
  204. 488 ifrd%(1)=0andrd%(2)=0thenwm=0:gosub330: gosub90:gosub5000:goto484
  205. 490 goto502
  206. 498 :
  207. 499 new game
  208. 500 fori=1tonc:rd%(i) =s(i-1):next:c(0)=nc:re=0 :kd=fl(2):ifrd=0thenkd=fl(3)
  209. 502 sysmt+42,216:fori=1tonp:c(i)=0:k(i)=0:next
  210. 503 sysmt:gosub410
  211. 504 fori=1tonc:b%(0,i)=rd%(i):next:c(0)=nc
  212. 508 fori=14to17:c(i)=1:b%(i,1)=13*(i-14):gosub200:next
  213. 512 fori=2to13:c(i)=c(i)+1:b%(i,c(i))=b%(0,c(0)):c(0)=c(0)-1:gosub200:next
  214. 520 i=0:gosub250:gosub230
  215. 530 sysmt:ifsd=1then   poke53269,1
  216. 532 fork=0tonp:mm(k)=c(k):next:sysmt+39,144:t6=0
  217. 534 gosub330:print"[146]";:wm=4
  218. 535 y=sd:x=20-(len(wm$(wm)))/2:gosub66:printwm$(wm);
  219. 537 ch$=fr$:pokev+1,np+7:    gosub20
  220. 538 gosub330:ifi>6then544
  221. 540 onigoto 542,3000,850,4000,4004,1620
  222. 542 nw=nw+1:wf=1:ifso=0thengosub26
  223. 543 x1=21:x2=34:y1=2:y2=6:cl=2:gosub2300:y=4:x=24:gosub66:print"youwin ":goto4000
  224. 544 i=i-6  :iffl(1)<>3theni=i-1
  225. 545 fork=0togf:mm(k)=c(k):oo(k)=b%(k,1): next:sysmt+39,144
  226. 546 fr=i:sr=re:iffr=0thenonfl(1)goto552,577,  1
  227. 547 ifc(fr)=0thenwm=1:gosub90:goto534
  228. 548 iffr>gtthen534
  229. 549 goto600
  230. 550 :
  231. 551 rem turn three
  232. 552 ifc(0)=0andc(1)=0thenwm=1:gosub90:goto534
  233. 554 ifc(0)=0thengosub260:goto534
  234. 556 ht=fl(4):ifrd=0thenht=fl(5)
  235. 557 ut=nt:ifut<2then560
  236. 558 sysmt+30,x(1),x(1)+ht+2,y(1),y(1)+4,kt,sk:i=1:gosub200:form=1to350:next
  237. 560 nt=ht:ifnt=1then564
  238. 562 nt=ht:ifc(0)<htthennt=c(0)
  239. 564 i=1:forj=1tont:b%(1,c(1)+1)=b%(0,c(0)):c(1)=c(1)+1
  240. 565 ifc(0)=0thengosub246:goto570
  241. 566 c(0)=c(0)-1:ca=b%(1,c(1))
  242. 568 x=x(1)+j-1:y=y(1):gosub66:gosub202
  243. 570 next:i=0:gosub230:goto534
  244. 573 :
  245. 574 rem turn one to each tab
  246. 577 fori=lttogt:ifc(0)=0thenwm=1:gosub90:goto534
  247. 579 c(i)=c(i)+1:b%(i,c(i))=b%(0,c(0)):c(0)=c(0)-1:gosub180
  248. 583 ifc(0)=0then591
  249. 587 next
  250. 591 i=0:gosub230:poke198,0:goto534
  251. 600 gosub330:print"[146]";:wm=5
  252. 601 y=sd:x=20-(len(wm$(wm)))/2:gosub66:printwm$(wm);
  253. 604 ch$=t2$:gosub20:gosub330
  254. 606 ifi>6then612
  255. 610 goto540
  256. 612 i=i-7:t2=i:ifsd=0   theni=i+1:t2=i
  257. 616 fc=b%(fr,c(fr)):fs=fns(fc):fv=fnv(fc):ift2>=sfthent2=sf+fs:goto111
  258. 617 ift2=frandfr=1thent2=sf+fs:goto111
  259. 618 ift2=frthent2=sf+fs:goto123
  260. 619 rem  ift2=1andks(1)=3then636
  261. 620 tc=b%(t2,c(t2)):ts=fns(tc):tv=fnv(tc)
  262. 621 ifks(fr)=4then694:flowe g res
  263. 622 ifkp(fr)>0andkp(t2)>0then658
  264. 629 iffv=bvandt2<sfthen634
  265. 630 iftv=bvandc(t2)>0 andt2<sfthen634
  266. 632 gosub270:onplgoto636,640
  267. 634 wm=7:gosub90:goto534
  268. 636 wm=3:gosub90:goto534
  269. 640 iffl(1)=1andfr=1thengosub290:goto680:goto534
  270. 642 mm=c(fr):goto1240
  271. 658 ifc(fr)=0andk(fr)>0thengosub1100
  272. 660 ifkp(fr)>1thengoto672
  273. 662 fc=b%(fr,1):fv=fnv(fc):fs=fns(fc)
  274. 667 iffv=bvandt2<sfthen634
  275. 668 iftv=bvandc(t2)>0 andt2<sfthen634
  276. 670 mm=1:gosub270:onplgoto636,1240
  277. 672 ifc(fr)=1thenmm=1:goto662
  278. 673 ifsp(fr)*(c(fr))>sp(fr)*mx(fr)theni=fr:goto1300
  279. 674 gosub1900
  280. 675 fc=b%(fr,mm):fv=fnv(fc):fs=fns(fc):gosub270:onplgoto636,690
  281. 678 :
  282. 679 rem win?
  283. 680 fork=0tosf-1
  284. 681 ifc(k)=0then684
  285. 682 iffl(6)=1andc(fr)=0then151:goto534
  286. 683 goto534
  287. 684 next
  288. 686 goto542
  289. 688 :
  290. 689 rem will play
  291. 690 ifmm=c(fr)andks(fr)<>4then1240
  292. 692 ifks(fr)<>4then700
  293. 694 gosub1900:fc=b%(fr,mm):fv=fnv(fc):fs=fns(fc):ift2>sf-1thent2=sf+fs
  294. 695 tc=b%(t2,c(t2)):ts=fns(tc):tv=fnv(tc):gosub270:onplgoto696,697
  295. 696 wm=3:gosub90:goto534
  296. 697 c(t2)=c(t2)+1:b%(t2,c(t2))=fc:c(fr)=c(fr)-1:gosub750:i=t2
  297. 698 gosub180:goto680
  298. 700 ifkp(fr)=3thengosub1850:ifwm=8thengosub90:goto534
  299. 710 goto1240
  300. 748 :
  301. 749 rem play from bouquet
  302. 750 c(fr)=c(fr)+1:kk=c(fr):ifc(fr)=1then774
  303. 751 print"at751"
  304. 752 k=0:forj=1tokk
  305. 754 ifj=mmthen762
  306. 758 k=k+1:b%(fr,k)=b%(fr,j)
  307. 762 next
  308. 764 sysmt+30,x(fr),x(fr)+3,y(fr),y(fr)+c(fr)+3,kt,sk:stop
  309. 766 forj=1tok:i=fr:c(fr)=j:gosub180:next
  310. 770 return
  311. 774 c(fr)=0:sysmt+30,x(fr),x(fr)+3,y(fr),y(fr)+4,kt,sk:return
  312. 848 :
  313. 849 rem prompt for spread
  314. 850 sysmt+39,208:
  315. 852 gosub330:wm=6:gosub92
  316. 854 ch$=fr$:gosub20:gosub330:ifi<7then852
  317. 856 i=i-6:iffl(1)<>3theni=i-1
  318. 858 ifa$="d"then 900
  319. 862 ifc(i)=0thenwm=1:gosub90:goto534
  320. 864 ifi=0thensysmt+30,x(i),x(i)+3,y(i),y(i)+4,kt,sk:goto880
  321. 866 gosub170
  322. 870 ifk(i)>0thengosub250
  323. 880 k=c(i):gosub440
  324. 882 sysmt+30,0,39,00,00,100,bd:print"[146]";:wm=2:ifsd=1thenwm=10
  325. 883 gosub92
  326. 884 ifpeek(197)=64andpeek(653)=0andpeek(56320)=127then884
  327. 886 poke198,0:sysmt+42,208:goto534
  328. 898 :
  329. 899 rem show down cards
  330. 900 sysmt+39,208
  331. 902 fori=lttogt:gosub170:next
  332. 904 fori=lttogt
  333. 908 ifk(i)=0then944
  334. 916 forj=1tok(i)
  335. 920 ifks(i)=2then928
  336. 924 x=x(i):y=y(i)+j-1:goto932
  337. 928 y=y(i):x=x(i)+j-1
  338. 932 gosub66:ca=dn(i,j):gosub203
  339. 940 nextj
  340. 944 nexti
  341. 948 goto882
  342. 1098 :
  343. 1099 rem up the down card
  344. 1100 b%(fr,1)=dn(fr,k(fr)):c(fr)=1:k(fr)=k(fr)-1:i=fr:gosub180
  345. 1110 k=len(str$(k(i))):sysmt+30,x(i)+3,x(i)+3,y(i)-1,y(i)-1,kt,sk
  346. 1114 ifk(i)=0thenreturn
  347. 1118 x=x(i)+3:y=y(i)-1
  348. 1122 gosub66:print"[156]"right$(str$(k(i)),k-1):return
  349. 1198 :
  350. 1199 rem patch on]sub850, returns from here
  351. 1200 ifpk=1thenwm=9:gosub90:goto534
  352. 1204 sysmt+30,x(lt),x(gt)+3,y(lt),24,kt,sk:print"[146]"
  353. 1208 fori=lttogt
  354. 1212 x=x(i):y=y(i):ifk(i)=0then1220
  355. 1216 forj=1tok(i):gosub66:ca=dn(i,j):gosub203:y=y+1:next
  356. 1220 next
  357. 1222 gosub330:print"[146]";:wm=2:gosub92
  358. 1224 ifpeek(197)=64andpeek(653)=0andpeek(56320)=127then1224
  359. 1228 sysmt+42,208:goto534
  360. 1238 :
  361. 1239 remplay seq
  362. 1240 k=c(fr):i=fr
  363. 1242 iffl(1)=1andfr=1thengosub290:goto534
  364. 1244 ifks(i)=1thenx=x(i):ifmm>mx(i)theny=y(i)+sp(i)*(mx(i)-1):goto1270
  365. 1248 ifks(i)=2then y=y(i):ifmm>mx(i)thenx=x(i)+sp(i)*(mx(i)-1):goto1270
  366. 1250 ifks(fr)=2then1257
  367. 1254 mx=y(i)+sp(i)*(mx(i)-1)+4:y=y(i)+sp(i)*(mm-1)
  368. 1255 sysmt+30,x(i),x(i)+3,y,mx,kt,sk
  369. 1256 goto1260
  370. 1257 mx=x(i)+sp(i)*(mx(i)-1)+3:x=x(i)+sp(i)*(mm-1)
  371. 1258 sysmt+30,x,mx,y(i),y(i)+4,kt,sk
  372. 1260 ifmm=1andk(fr)>0theni=fr:gosub250:goto1274
  373. 1262 ifmm=1then1274
  374. 1263 ifks(fr)=2then1268
  375. 1266 y=y(fr)+sp(fr)*(mm-2):goto1270
  376. 1268 x=x(fr)+sp(fr)*(mm-2)
  377. 1270 gosub66:ca=b%(fr,mm-1):gosub203
  378. 1272 x1=mm:x2=k:x3=1:ift2>=sfthenx1=k:x2=mm:x3=-1
  379. 1274 forj=ktommstep-1:c(t2)=c(t2)+1:b%(t2,c(t2))=b%(fr,j):c(fr)=c(fr)-1
  380. 1278 i=t2:gosub180
  381. 1280 next
  382. 1284 ifc(fr)=0andk(fr)>0thengosub1100
  383. 1290 goto680
  384. 1300 yukon
  385. 1618 :
  386. 1619 rem oops
  387. 1620 fori=0togf:c(i)=mm(i):b%(i,1)=oo(i):next:sysmt+42,144
  388. 1622 goto534
  389. 1848 :
  390. 1849 rem test for seq
  391. 1850 wm=-3:ifmm=c(fr)thenreturn
  392. 1860 sp=t2
  393. 1864 forj=mmtoc(fr)-1:t2=fr:tc=b%(fr,j):fc=b%(fr,j+1)
  394. 1868 ts=fns(tc):fs=fns(fc):tv=fnv(tc):fv=fnv(fc)
  395. 1872 gosub270:onplgoto1876,1880
  396. 1876 wm=8:t2=sp:return
  397. 1880 next
  398. 1890 t2=sp:return
  399. 1900 yukon
  400. 2088 :
  401. 2099 rem thin window
  402. 2100 sysmt+30,x1,x2,y1,y2,032,sk:sysmt+30,x1,x2,y1,y1,115,cl
  403. 2104 sysmt+30,x1,x1,y1,y2,099,cl:sysmt+30,x2,x2,y1,y2,110,cl
  404. 2108 sysmt+30,x1,x2,y2,y2,114,cl:sysmt+30,x2,x2,y1,y1,113,cl
  405. 2112 sysmt+30,x2,x2,y2,y2,224,cl:sysmt+30,x1,x1,y1,y1,117,cl
  406. 2116 sysmt+30,x1,x1,y2,y2,116,cl
  407. 2120 return
  408. 2298 :
  409. 2299 rem thick window
  410. 2300 sysmt+30,x1,x2,y1,y2,032,sk:sysmt+30,x1,x2,y1,y1,35,cl
  411. 2304 sysmt+30,x1,x1,y1,y2,106,cl:sysmt+30,x2,x2,y1,y2,107,cl
  412. 2308 sysmt+30,x1,x2,y2,y2,042,cl:sysmt+30,x2,x2,y1,y1,036,cl
  413. 2312 sysmt+30,x2,x2,y2,y2,043,cl:sysmt+30,x1,x1,y1,y1,033,cl
  414. 2316 sysmt+30,x1,x1,y2,y2,028,cl
  415. 2320 return
  416. 2998 :
  417. 2999 rem help
  418. 3000 sysmt+39,208 :print"[147]":poke53280,0:poke53281,0:poke646,3:poke53272,23
  419. 3004 ifa8=1then3012
  420. 3010 poke53269,0:sysmt+54,"t."+nm$+" help",dv,61440:a8=1
  421. 3011 pokepeek(174)+256*peek(175),0
  422. 3012 sysmt+21,4,23:poke53269,1
  423. 3013 poke53370,0
  424. 3014 sysmt+63,3,3,3,3,61440,hp$
  425. 3016 poke53371,0
  426. 3020 print"[147]":poke53272,19:sysmt+42,208:    goto534
  427. 3998 :
  428. 3999 rem quit
  429. 4000 gosub390:gosub300
  430. 4004 sysmt+30,0,39,00,00,101,bd:print"[146]";:gosub5000:onigoto500,4134,488,39000
  431. 4134 gosub5400:gosub5000:onigoto500,486,488,39000
  432. 4998 :
  433. 4999 rem menu
  434. 5000 x1=21:x2=34:y1=9:y2=19:cl=cc:gosub2100
  435. 5100 x=x1+2:y=y1+2:gosub66:print"1[146] play
  436. 5104 y[178]y[170]2:[141]66:[153]"2wait options
  437. 5106 y=y+2:gosub66:print"3[146] replay
  438. 5108 y[178]y[170]2:[141]66:[153]"4wait loadstar
  439. 5109 sysmt+21,27,12
  440. 5110 rem
  441. 5112 y1=8:poke53269,1:ch$="1234":gosub35:return
  442. 5198 :
  443. 5199 rem options menu
  444. 5200 sysmt+39,208:print"[147]":poke53265,11:poke53272,19:poke53280,bd:poke53281,1
  445. 5204 sysmt+30,0,39,0,24,kt,sk
  446. 5206 x1=3:x2=20:y1=6:y2=21:cl=sk:gosub2100:poke646,6:pokev+2,132
  447. 5208 x=x1+2:y=y1+1:gosub66:print"[144]   options"
  448. 5240 y=y+2:x=x:gosub66:print"1 deck color
  449. 5244 y[178]y[170]2:[141]66:[153]"2 tile color
  450. 5248 y=y+2:gosub66:print"3 border color
  451. 5252 y[178]y[170]2:[141]66:[153]"4 tile style
  452. 5254 y=y+2:gosub66:print"5 deck style
  453. 5256 y[178]y[170]2:[141]66:[153]"6 main menu
  454. 5262 sysmt+30,21,36,7,19,kt,sk
  455. 5263 poke53265,27
  456. 5264 y=11:x=29:gosub66:ca=35:gosub203:x=31:gosub66:ca=11:gosub203
  457. 5266 x=23:y=11:gosub66:gosub256
  458. 5270 rem
  459. 5271 rem
  460. 5272 rem
  461. 5273 ch$="123456":gosub35
  462. 5274 onigoto5310,5320,5330,5340,5362, 5394
  463. 5280 mu=1-mu:x=x3:y=y3:gosub66:printo$(7+mu):goto5444
  464. 5310 md=16:cc=fnc(cc):ifcc=1thencc=2
  465. 5314 goto5266
  466. 5320 md=16:sk=fnc(sk):sysmt+60,kt,kt,sk:goto5270
  467. 5330 md=16:bd=fnc(bd):poke53280,bd:goto5270
  468. 5340 u2=k3:k3=k3+1:k=kt:ifk3>=6thenk3=1
  469. 5342 kt=tt%(k3):sysmt+60,k,kt,128
  470. 5346 goto5270
  471. 5362 md=4:kc=fnc(kc)
  472. 5366 goto5266
  473. 5394 gosub6400:return
  474. 5398 :
  475. 5399 rem main options
  476. 5400 sysmt+30,0,39,0,24,kt,sk
  477. 5404 x1=09:x2=30:y1=4:y2=21:cl=sk:gosub2300:x3=x1+14:y3=y1+4
  478. 5408 x=x1+2:y=y1+2:gosub66:print"[144]     options"
  479. 5412 y=y+2:gosub66:print"1 opening   [144]"o$(7+mu)
  480. 5416 y=y+2:gosub66:print"2 sound     [144]"o$(so)
  481. 5428 y=y+2:gosub66:print"3 variation [144]"o$(rd)
  482. 5432 y=y+2:gosub66:print"4 keyboard  "o$(sd)
  483. 5436 y=y+2:gosub66:print"5 graphics     "
  484. 5438 y=y+2:gosub66:print"6 main menu    "
  485. 5444 rem
  486. 5446 rem
  487. 5447 y1=5:y2=20:ch$="123456":gosub35
  488. 5448 onigoto5280,5460,5470,5450,5200,5482
  489. 5450 sd=sd+1:ifsd=2thensd=0
  490. 5452 goto5456
  491. 5454 poke53269,0:x=x1+2:y=y3+6:gosub66:print"4 keyboard"
  492. 5456 x=x3:y=y3+6:gosub66:print"[144]"o$(sd):goto5444
  493. 5460 so=1-so:x=x3:y=y3+2:gosub66:print"[144]"o$(so):goto5444
  494. 5470 rd=1-rd
  495. 5474 x=x3:y=y3+4:gosub66:print"[144]"o$(rd)
  496. 5479 goto5444
  497. 5482 sysmt+42,216:return
  498. 5498 :
  499. 5499 rem setup
  500. 5500 dimi,x,y,y1,y2,y3,x1,x2,x3,wm$,wm,wg,wf,v,u2,tt,t6,t,so,s,o$,nw,mt
  501. 5510 dimmm,md,lo,k1,jj,j%,hi,g8,fv,fs,fr,fc,f,cl,ca,b,av,a8,bv,sf,gf,lt,gt
  502. 5520 dimj,k,pl,sk,t2,tc,te,ts,tv,a$,bk$,ch$,kk,nt,re,t3,t4,m,ht,a,mx,sp,z0
  503. 5524 dimpx%,py%,cx%,cy%,l1%,r1%,l2%,r2%,sc%,cc%,pp%,rg%,cr%
  504. 5530 nc=48:np=17:g7=0:jj=-1
  505. 5540 cm$="[144][163]help [146][163]oops[146] [163]spread [146][163]claim [146][163]abort [146][163]quit[146][174]"
  506. 5550 bs$(1)="[158][212]he answer to
  507. 5560 bs$(2)[178]"sysatn maiden's prayer
  508. 5570 bs$(3)="[158][201]s a man
  509. 5580 bs$(4)[178]"sys(NULL)ost anywhere
  510. 5590 bs$(5)="[158][213]sing
  511. 5610 x[178]08:y[178]8:[141]66:[153]bs$(1)
  512. 5614 [134]st$(52),co$(3),rd%(nc),s(nc),op(13),wm$(10),mx(np),sp(np)
  513. 5618 co$(0)[178]"stop":co$(1)[178]"":co$(2)[178]""
  514. 5620 co$(3)[178]"stop":x[178][187]([171]ti)
  515. 5630 bk$[178]"!##$cmdcmdcmdcmd+loglog-cmdcmdcmdcmd+loglog-cmdcmdcmdcmd+loglog-cmdcmdcmdcmd\**+cmdcmdcmdcmdonononon":[151]4095,31
  516. 5640 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13):[150][165]c(x)[178](x[170]1)[171]md[172][181]((x[170]1)[173]m
  517. 5644 [150][165]c(x)[178](x[170]1)[171]md[172][181]((x[170]1)[173]md)
  518. 5650 f[178]54272:[129]i[178]f[164]f[170]24:[151]i,0:[130]
  519. 5660 [134]b%(np,nc),c(np),mm(np[170]2),x(np[170]1),y(np[170]1),ks(np),dn(np,6),k(np)
  520. 5670 [134]kp(np),nn(np),oo(np)
  521. 5680 [129]i[178]14[164]17:x(i)[178]35:y(i)[178]5[172]i[171]67:[130]
  522. 5690 [129]i[178]2[164]7:y(i)[178]4:x(i)[178]4[172]i[170]1:[130]
  523. 5692 [129]i[178]8[164]13:y(i)[178]14:x(i)[178]x(i[171]6):[130]
  524. 5694 x(0)[178]3:y(0)[178]18:x(1)[178]x(0):y(1)[178]y(0)[171]6
  525. 5720 fr$[178]"runhsinputdimo 1234567wertyu":t2$[178]"runhsinputdimo1234567wertyuf"
  526. 5725 sc$[178]"1234567wertyuffff":sp$[178]" 1234567wertyu  "
  527. 5730 hp$[178]"sys     asc(NULL)(NULL)(NULL)(NULL)(NULL)val'(NULL)closeascatn(NULL)(NULL)(NULL)
  528. 5740 remtl$= "fortune's favor[144]-bymauricejones"
  529. 5742 mx(1)=1: mx=5:sp=1
  530. 5750 read sf,gf,bv,lt,gt,ht
  531. 5752 data 14,17,00,02,13,01
  532. 5754 fori=1to6:readfl(i):next
  533. 5756 data 1,  0,0  ,  1,1,  1
  534. 5760 fori=lttogt:ks(i)=1:kp(i)=0:mx(i)=mx:sp(i)=sp :next
  535. 5770 fori=sftogf:ks(i)=1:kp(i)=0:mx(i)=1 :sp(i)=0 :next
  536. 5774 x=08:y=10:gosub66:printbs$(2)
  537. 5776 x=08:y=12:gosub66:printbs$(3)
  538. 5778 x=08:y=14:gosub66:printbs$(4)
  539. 5780 fori=0to11:s(i)=i+1:next:fori=12to23:s(i)=i+2:next
  540. 5782 fori=24to35:s(i)=i+3:next:fori=36to47:s(i)=i+4:next
  541. 5783 x=8:y=16:gosub66:printbs$(5)
  542. 5784 print"--[194]urma [211]have
  543. 5800 jj[178]jj[170]1:j%[178]jj[170][181]([187](1)[172](nc[171]jj)):temp[178]s(jj):s(jj)[178]s(j%):s(j%)[178]temp
  544. 5810 [139]jj[179][177]nc[171]2[167]5800
  545. 5820 kc%(1)[178] 37:kc%(2)[178](47):kc%(3)[178]124:kc%(0)[178]191:
  546. 5830 o$(0)[178]"stopon ":o$(1)[178]"stopoff":o$(3)[178]"stopone  ":o$(4)[178]"stopthree"
  547. 5840 o$(8)[178]"stopmenu":o$(7)[178]"stopgame"
  548. 5850 tt%(1)[178]0:tt%(2)[178]100:tt%(3)[178]128:tt%(4)[178]155:tt%(5)[178]101
  549. 5860 lo[178]1000:hi[178]0:kt[178]tt%(k3)
  550. 5870 wm$(1)[178]"clr  empty pile   "
  551. 5880 wm$(2)[178]"clr any key but restore "
  552. 5890 wm$(3)[178]"clr  illegal play  "
  553. 5900 wm$(4)[178]"clr from "
  554. 5910 wm$(5)[178]"clr  to  "
  555. 5920 wm$(6)[178]"clr which "
  556. 5930 wm$(7)[178]"clr base card "
  557. 5940 wm$(9)[178]"clr no redeal "
  558. 5950 wm$(8)[178]"clr not a sequence "
  559. 5960 wm$(0)[178]"clr first deal "
  560. 5970 wm$(10)[178]"clr press fire "
  561. 5980 v[178]mt[170]117:[151]v,159:[158]mt[170]6:[158]mt[170]18,0,38,0,23:[151]53287,4:[151]53269,0
  562. 5981 x1[178]0:[139]fl(1)[178]3[167]x1[178]1
  563. 5982 [129]i[178]x1[164]np:[139]ks(i)[178]2[167]5986
  564. 5984 [158]mt[170]15,i[170]7[171]x1,x(i),x(i)[170]3,y(i),y(i)[170]sp(i)[172](mx(i)[171]1)[170]4:[137]5987
  565. 5986 [158]mt[170]15,i[170]7[171]x1,x(i),x(i)[170]sp(i)[172](mx(i)[171]1)[170]3,y(i),y(i)[170]4
  566. 5987 [130]
  567. 5988 [158]mt[170]15,1,20,26,0,0
  568. 5989 [158]mt[170]15,2,00,05,0,0:[158]mt[170]15,3,12,19,0,0
  569. 5990 [158]mt[170]15,4,34,39,0,0:[158]mt[170]15,5,27,33,0,0
  570. 5991 [158]mt[170]15,6,06,11,0,0:[151]v[170]1,np[170]7
  571. 6000 st$(1)[178]"stop(NULL)(NULL)(NULL)wait>cmdcmdcmdcmdnew  ^cmdcmdcmdcmdtab(  ^cmdcmdcmdcmdtab(  getcmdcmdcmdcmdsgn(NULL)(NULL)wait(NULL)"
  572. 6004 st$(0)[178]"stop(NULL)cmdnewcmdtab(cmdtab(cmdsgn==(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmd<<cmdcmd  cmdcmd(NULL)(NULL)waitcmdcmd  cmdcmd=="
  573. 6008 st$(39)[178]"stop(NULL)cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmd!wait<cmdcmd  cmdcmd<sgnwaitcmdcmd  cmdcmd=="
  574. 6012 st$(9)[178]"stop&cmdnewcmdtab(cmdtab(cmdsgnabsabs'oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmdlenstr$cmdcmdvalasccmdcmdchr$left$cmdcmdright$mid$wait"
  575. 6020 st$(41)[178]"stopmid$cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdusrfrecmdcmd  cmdcmd<sgncmdcmd  cmdcmdpossqrwait"
  576. 6024 st$(8)[178]"stopstr$cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  577. 6028 st$(3)[178]"stopright$cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd  cmdcmd  cmdcmd  cmdcmdright$mid$wait"
  578. 6036 st$(47)[178]"stopstr$cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd-*cmdcmd/^cmdcmdandorcmdcmdstep+wait"
  579. 6040 st$(7)[178]"stopvalcmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  580. 6048 st$(48)[178]"stop&cmdatncmdtab(cmdtab(cmdsgn=='oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmdtab(tocmdcmdfnspc(cmdcmdthennotcmdcmdstep+wait"
  581. 6052 st$(46)[178]"stopvalcmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd<sgncmdcmd>=cmdcmdintabscmdcmdstep+wait"
  582. 6060 st$(40)[178]"stop(NULL)cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdusrfrecmdcmd  cmdcmd  cmdcmd  cmdcmdpossqrwait"
  583. 6064 st$(2)[178]"stopmid$cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd  cmdcmd(NULL)(NULL)cmdcmd  cmdcmd(NULL)(NULL)wait"
  584. 6072 st$(6)[178]"stopasccmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd  cmdcmdright$mid$wait"
  585. 6076 st$(45)[178]"stopasccmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd<sgncmdcmd>=cmdcmd  cmdcmdstep+wait"
  586. 6084 st$(42)[178]"stopright$cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd  cmdcmd  cmdcmd  cmdcmdstep+wait"
  587. 6088 st$(5)[178]"stopchr$cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd  cmdcmd(NULL)(NULL)cmdcmd  cmdcmdright$mid$wait"
  588. 6096 st$(44)[178]"stopchr$cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd  cmdcmd>=cmdcmd  cmdcmdstep+wait"
  589. 6100 st$(4)[178]"stopleft$cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmdatnpeekcmdcmd  cmdcmd(NULL)(NULL)cmdcmd  cmdcmdright$mid$wait"
  590. 6108 st$(43)[178]"stopleft$cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmdgetnewcmdcmd  cmdcmd<sgncmdcmd  cmdcmdstep+wait"
  591. 6120 st$(35)[178]"&cmdtancmdtab(cmdtab(cmdsgn=='oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmdcdcmdcmdefcmdcmdghcmdcmdij"
  592. 6124 st$(34)[178]"str$cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmdklcmdcmdmncmdcmdopcmdcmdij"
  593. 6132 st$(33)[178]"valcmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmdstcmdcmdqrcmdcmduvcmdcmdij"
  594. 6136 st$(32)[178]"asccmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmdstcmdcmdqrcmdcmd  cmdcmdij"
  595. 6144 st$(31)[178]"chr$cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmd  cmdcmdqrcmdcmd  cmdcmdij"
  596. 6148 st$(30)[178]"left$cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmd  cmdcmdstcmdcmd  cmdcmdij"
  597. 6152 st$(29)[178]"right$cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdabcmdcmd  cmdcmd  cmdcmd  cmdcmdij"
  598. 6156 st$(28)[178]"mid$cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdwxcmdcmd  cmdcmdstcmdcmd  cmdcmdyz"
  599. 6160 st$(27)[178]"(NULL)cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdwxcmdcmd  cmdcmd  cmdcmd  cmdcmdyz"
  600. 6164 st$(26)[178]"(NULL)cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd!wait<cmdcmd  cmdcmdstcmdcmd  cmdcmd=="
  601. 6168 st$(36)[178]"lencmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd)wait1cmdcmd23cmdcmd45cmdcmd67cmdcmd89"
  602. 6172 st$(49)[178]"stoplencmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmd)wait1cmdcmd23cmdcmd45cmdcmd67cmdcmd89"
  603. 6180 st$(22)[178]"&cmd/cmdtab(cmdtab(cmdsgnabsabs'oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmdrndlogcmdcmd(NULL)sincmdcmdexpcoscmdcmd(NULL)(NULL)wait"
  604. 6192 st$(21)[178]"str$cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd#$cmdcmd%&cmdcmd*+cmdcmd(NULL)(NULL)wait"
  605. 6204 st$(19)[178]"asccmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd  cmdcmd(NULL)(NULL)wait"
  606. 6216 st$(18)[178]"chr$cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd  cmdcmd<>cmdcmd  cmdcmd(NULL)(NULL)wait"
  607. 6220 st$(16)[178]"right$cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd  cmdcmd  cmdcmd  cmdcmd(NULL)(NULL)wait"
  608. 6228 st$(17)[178]"left$cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd  cmdcmd\^cmdcmd  cmdcmd(NULL)(NULL)wait"
  609. 6240 st$(20)[178]"valcmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd_=cmdcmd(NULL)(NULL)wait"
  610. 6252 st$(14)[178]"(NULL)cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdspc(thencmdcmd  cmdcmd  cmdcmd  cmdcmdnotstep"
  611. 6256 st$(15)[178]"mid$cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmdspc(thencmdcmd  cmdcmd\^waitcmdcmd  cmdcmdwaitnotstep"
  612. 6264 st$(13)[178]"(NULL)cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd<<cmdcmd  cmdcmd\^waitcmdcmd  cmdcmd=="
  613. 6276 st$(11)[178]"stoppeekcmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmd()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;"
  614. 6280 st$(24)[178]"peekcmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;"
  615. 6288 st$(10)[178]"stoplencmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmd()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  616. 6300 st$(23)[178]"lencmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  617. 6312 st$(25)[178]"(NULL)cmd/cmdtab(cmdtab(cmdsgnabsabs(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd01cmdcmd23cmdcmd45cmdcmd67cmdcmd89"
  618. 6324 st$(12)[178]"stop(NULL)cmdnewcmdtab(cmdtab(cmdsgnabsabs(NULL)oncmdgetoncmd^oncmd^oncmd>cmdcmdcmd()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  619. 6336 st$(38)[178]"(NULL)cmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(wait)cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  620. 6340 st$(51)[178]"stop(NULL)cmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmd(wait)cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  621. 6348 st$(37)[178]"peekcmdtancmdtab(cmdtab(cmdsgn==(NULL)oncmd(NULL)oncmd^oncmd^oncmd>cmdcmdcmd(wait)cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;"
  622. 6352 st$(50)[178]"stoppeekcmdatncmdtab(cmdtab(cmdsgn==(NULL)oncmdoroncmd^oncmd^oncmd>cmdcmdcmd(wait)cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;"
  623. 6354 [139]ti[179]tq[170]300[167]6354
  624. 6356 [151]788,52
  625. 6400 [153]"load":[151]53265,11
  626. 6402 [158]mt:[139]sd[178]0[167][151]53269,0
  627. 6404 [151]53281,1:[151]53280,bd:[151]53272,19:[158]mt[170]30,0,39,0,24,kt,sk
  628. 6416 [158]mt[170]30,0,39,0,0,100,bd
  629. 6420 x[178]3:y[178]0:[141]66:[153]"stoploadstar presents  fortune's favor
  630. 6424 poke646,sk:x=39:y=1:gosub66:print"/"
  631. 6432 sysmt+39,216:poke53265,27:return
  632. 10000 dv=peek(186):f$="favor":open15,dv,15,"s0:"+f$:close15:savef$,dv:end
  633. 38998 :
  634. 38999 rem save opts - reconnect
  635. 39000 sysmt+3:poke53269,0:open15,dv,15,"s0:"+nm$+".opts":close15
  636. 39005 open2,dv,2,nm$+ ".opts,p,w"
  637. 39010 print#2,k3:print#2,sd:print#2,so:print#2,cc:print#2,sk
  638. 39020 print#2,bd:print#2,fb:print#2,mu:print#2,wg:print#2,pk:print#2,rd
  639. 39024 print#2,kc:print#2,kc%(0)
  640. 39030 close2
  641. 39998 :
  642. 39999 rem reconnect
  643. 40000 poke53280,0:poke53281,0:dv=peek(186):q$=chr$(34):print"[144][147]";
  644. 40010 a$="eloadstar":r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  645. 40020 close2:open2,dv,2,a$:get#2,b$:close2:ifst=0then40050
  646. 40030 close15:open15,dv,15,"i0":input#15,en:close15
  647. 40035 poke53280,14:poke53281,6:print"[147][154]"
  648. 40040 poke44,8:poke8*256,0:poke55,0:poke56,160:poke53272,20:clr:new
  649. 40050 print"[146]load"q$a$q$","dv""
  650. 40055 forx=1to4:poke630+x,asc(mid$(r$,x)):next:poke198,4:goto40040
  651.