home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / one (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  15.2 KB  |  486 lines
  1. 2 ifa=.thena=1:ba=36173:pokeba+1079,4:poke54296,0:poke56,141:clr:a=1:load"shuffle",8,1
  2. 4 ifa=1thena=2:qw=rnd(-ti):ch=.:m1=.:load"clear it!",8,1
  3. 6 ifa=2thena=3:gosub866:load"entertainer",8,1
  4. 8 l=49152:ba=36173:a=.
  5. 10 poke53281,0:poke53280,.:poke49,peek(47):poke50,peek(48):dimsc$(112),cc$(36),mc$(36),a$(15)
  6. 12 rem
  7. 14 r$="[167]   [165][146][157][157][157][157][157]":b$=" [164][164][164] [146][157][157][157][157][157]"+r$+r$+r$+" [163][163][163] [157][157][157][157][157][145][145][145][145][145]
  8. 16 l$[178]"":z$[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  9. 17 cn[178].:cl$[178]"wait":[129]hg[178]1[164]50:cl$[178]cl$[170]"    ":[130]:[141]1000
  10. 18 [139][194](1079[170]ba)[178]4[167][151]54296,15:[158]ba[170]155:[151]ba[170]1079,0       
  11. 19 [137]30
  12. 20 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  13. 22 rem"265: shuffling #1
  14. 24 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  15. 26 rem
  16. 28 goto1000
  17. 30 cn=.:print"[147]dealing...":fork=1to7
  18. 32 cn=cn+1:cc$(k)=sc$(cn):cn=cn+1:mc$(k)=sc$(cn):sc$(cn)="":next
  19. 34 print"[147]";:nm=7:nc=7:cn=cn+1:cp$=sc$(cn):sc$(cn)="":gosub96:goto624
  20. 36 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  21. 38 [143] 300:    print hand
  22. 40 dc[178].:[143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  23. 42 poke198,0:goto60:ifnm>36thennm=35:mc$(36)=""
  24. 44 ifnm<36thenic=1
  25. 46 ifnm<19thenic=2
  26. 48 ifnm<13thenic=3
  27. 50 ifnm<10thenic=4
  28. 52 ifnm<8thenic=5
  29. 54 ifnm<7thenic=6
  30. 56 ifcn=106thengosub26
  31. 58 print"";:forh=1tonm:printmc$(h)"[145][145][145][157][157][157][157]";left$(l$,ic);:nexth
  32. 60 print"[155][146]                                  "
  33. 62 print"[155][146]computer has"nc"cards left.       "
  34. 64 ifnc>1thenpokeba+1079,0
  35. 66 print"[146] use left cursor key to move arrow (^)."
  36. 68 ifnc=1thenpokeba+1079,3
  37. 70 print"press return to play card or to  execute";
  38. 72 print"     function arrow is pointing to."
  39. 74 ifdc=.thenprint"                                    draw";:goto78
  40. 76 print"                                    pass";
  41. 78 print"^[157]";:x=1:cl=1
  42. 80 geta$:ifa$=""then80
  43. 82 ifa$=""andcl<nmandx+ic<37thenprint" [157]";left$(l$,ic);:x=x+ic:print"^[157]";:cl=cl+1:goto80
  44. 84 ifa$=""andx<37thenprint" [157]";:forz=xto36:print"";:next:print"^[157]";:x=37:cl=cl+1:goto80
  45. 86 ifa$=""andx=>37thenx=1:cl=1:print" [157]^[157]";:goto80
  46. 88 ifa$=chr$(13)andcl<=nmthenprint" [157]";:tc$=mc$(cl):gosub118:ifco<>0then132
  47. 90 ifa$=chr$(13)andcl>nmthenprint" [157]";:goto708
  48. 92 rem
  49. 94 print"^[157]";:goto80
  50. 96 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  51. 98 [143]"print deck of cards
  52. 100 print"";cp$"[145][145][145][151]"+b$+"[151]![146]";
  53. 102 ifleft$(cp$,1)<>"[151]"thenxc$=left$(cp$,1):goto106
  54. 104 xc$=wc$
  55. 106 print""left$(xc$,1)"    [157][187][146]";
  56. 108 ifleft$(cp$,1)<>"[151]"thenwc$=left$(cp$,1)
  57. 110 return
  58. 112 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  59. 114 [143]"check play
  60. 116 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  61. 118 [139][200](tc$,1)[178][200](cp$,1)[176][202](tc$,71,1)[178][202](cp$,71,1)[167]co[178]1:[142]
  62. 120 [139][200](tc$,1)[178]"poke"[167]co[178]1:[142]
  63. 122 [139][200](tc$,1)[178]wc$[167]co[178]1:[142]
  64. 124 co[178].:[142]
  65. 126 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  66. 128 rem"play routine for player
  67. 130 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  68. 132 cp$=tc$:gosub96:q=.:mc$(cl)=""
  69. 134 forj=1tonm:q=q+1:ifmc$(j)=""thenq=q-1:next:nm=nm-1:goto138
  70. 136 mc$(q)=mc$(j):next:nm=nm-1
  71. 138 gosub848:ifnm=.thengosub888:poke198,0:goto144
  72. 140 goto168
  73. 142 pokeba+1079,0:goto168
  74. 144 print"[147]";:gosub812:gosub96:print"you won!!!!":input"play again";a$
  75. 146 ifleft$(a$,1)="y"then8
  76. 148 goto780
  77. 150 q=.:gosub768
  78. 152 forj=1tonc:ifcc$(j)=""thennext:nc=q:goto156
  79. 154 q=q+1:cc$(q)=cc$(j):next:nc=q
  80. 156 ifnc=.thengosub902:poke198,0:goto162
  81. 158 ifnc=1thenpokeba+1079,3:return
  82. 160 pokeba+1079,0:return
  83. 162 print"[147]";:gosub826:gosub96:print"i won!!!!":input"play again";a$
  84. 164 ifleft$(a$,1)="y"then8
  85. 166 goto780
  86. 168 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  87. 170 [143]"check card
  88. 172 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  89. 174 [139][197]([202](cp$,71,1))[177]0[176][202](cp$,71,1)[178]"0"[167]210
  90. 176 [139][200](cp$,1)[178]"poke"[167]184
  91. 178 [139][202](cp$,71,1)[178]"s"[167]dc[178].:[137]42
  92. 180 [139][202](cp$,71,1)[178]"r"[167]dc[178].:[137]42
  93. 182 [129]kk[178]1[164]2:nc[178]nc[170]1:cn[178]cn[170]1:cc$(nc)[178]sc$(cn):sc$(cn)[178]"":[130]:dc[178].:[137]42
  94. 184 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  95. 186 rem"wild card from player
  96. 188 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  97. 190 df=.:ifmid$(cp$,71,1)<>"!"then194
  98. 192 df=1:forkk=1to4:nc=nc+1:cn=cn+1:cc$(nc)=sc$(cn):sc$(cn)="":next
  99. 194 input"[146]red/blue/yellow/green";v$:print""
  100. 196 ifleft$(v$,1)="r"thenwc$="":goto204
  101. 198 ifleft$(v$,1)="b"thenwc$="":goto204
  102. 200 ifleft$(v$,1)="y"thenwc$="[158]":goto204
  103. 202 ifleft$(v$,1)="g"thenwc$="":goto204
  104. 204 print"[146]                              ";:gosub96
  105. 206 dc=.:ifdf=1thendf=.:goto42
  106. 208 df=.:goto210
  107. 210 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  108. 212 [143]"computers turn
  109. 214 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  110. 216 [143]"c(1)=red
  111. 218 rem"c(2)=grn
  112. 220 [143]"c(3)=blu
  113. 222 gosub616:dc=.:rem"c(4)=yel                                wd  =wild
  114. 224 ok[178].:ga[178].:xv[178].:[129]i[178]1[164]4:c(i)[178].:[130]:wd[178].:wf[178].
  115. 226 [129]y[178]1[164]nc:fg$[178][200](cc$(y),1):[139]fg$[178]""[167]c(1)[178]c(1)[170]1:[130]:[137]246
  116. 228 [139]fg$[178]""[167]c(2)[178]c(2)[170]1:[130]:[137]246
  117. 230 [139]fg$[178]""[167]c(3)[178]c(3)[170]1:[130]:[137]246
  118. 232 [139]fg$[178]"sys"[167]c(4)[178]c(4)[170]1:[130]:[137]246
  119. 234 [139][202](cc$(y),71,1)[178]"!"[167]wf[178]wf[170]1:[130]:[137]246
  120. 236 [139][202](cc$(y),71,1)[178]"w"[167]wd[178]wd[170]1:[130]:[137]246
  121. 238 [144]
  122. 240 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  123. 242 rem"pick frequency
  124. 244 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  125. 246 fork=1to4:d(k)=c(k):next:n=4:m=n
  126. 248 m=int(m/2):ifm=.then262
  127. 250 j=1:k=n-m
  128. 252 i=j
  129. 254 l=i+m:cm=cm+1:ifd(i)<d(l)then258
  130. 256 t=d(i):d(i)=d(l):d(l)=t:sw=sw+1:i=i-m:ifi>1then254
  131. 258 j=j+1:ifj>kthen248
  132. 260 goto252
  133. 262 fork1=1to4:ifc(k1)<>d(4)thennext
  134. 264 c1=k1:k1=5:next:fork1=1to4:ifc(k1)<>d(3)thennext
  135. 266 c2=k1:k1=5:next:fork1=1to4:ifc(k1)<>d(2)thennext
  136. 268 c3=k1:k1=5:next:fork1=1to4:ifc(k1)<>d(1)thennext
  137. 270 c4=k1:k1=5:next
  138. 272 ifnm<3andwf>0then484
  139. 274 ifnc<3andwf>0then484
  140. 276 ifnm<2andwd>0then500
  141. 278 onc1goto280,340,382,422
  142. 280 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  143. 282 [143]"can play red?
  144. 284 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  145. 286 rc$[178]""
  146. 288 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"d"[167][141]322
  147. 290 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[141]768:[137]332
  148. 292 [130]
  149. 294 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"s"[167][141]322
  150. 296 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[137]332
  151. 298 [130]
  152. 300 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"r"[167][141]322
  153. 302 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[137]332
  154. 304 [130]
  155. 306 [141]308:[139]ok[178]1[167]ga[178]1:[141]96:[137]332
  156. 307 [137]312
  157. 308 ok[178].:[129]wr[178]9[164]0[169][171]1:[129]y[178]1[164]nc:[139][197]([202](cc$(y),71,1))[178]wr[167][141]322
  158. 309 [139]ok[178]1[167]wr[178][171]1:[130]:y[178]nc[170]1:[130]:[142]
  159. 310 [130]y,wr:[142]
  160. 312 [129]y[178]1[164]nc
  161. 314 [139][202](cc$(y),71,1)[179][177][202](cp$,71,1)[167]318
  162. 316 cp$[178]cc$(y):cc$(y)[178]"":ga[178]1:y[178]nc[170]1:[130]:[141]96:[137]332
  163. 318 [130]:[137]462
  164. 320 [144]
  165. 322 [139][200](cc$(y),1)[178]rc$[175]rc$[178][200](cp$,1)[175][202](cc$(y),71,1)[178][202](cp$,71,1)[167]330
  166. 324 [139][200](cc$(y),1)[178]wc$[167]ok[178]1:dc[178].:cp$[178]cc$(y):cc$(y)[178]"":[142]
  167. 326 ok[178].:f$[178][200](cc$(y),1):[139]f$[178][200](cp$,1)[175]f$[179][177]"poke"[167]330
  168. 328 ok[178].:[142]
  169. 330 ok[178]1:dc[178].:cp$[178]cc$(y):cc$(y)[178]"":[142]
  170. 332 [143]
  171. 334 [141]96:[141]150:[139][197]([202](cp$,71,1))[177]0[167]40
  172. 336 [139][202](cp$,71,1)[178]"0"[176][202](cp$,71,1)[178]"w"[167]40
  173. 338 [137]210
  174. 340 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  175. 342 rem"can play grn?
  176. 344 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  177. 346 rc$=""
  178. 348 fory=1tonc:ifmid$(cc$(y),71,1)="d"thengosub322
  179. 350 ifok=1theny=nc+1:next:gosub96:gosub768:goto332
  180. 352 next
  181. 354 fory=1tonc:ifmid$(cc$(y),71,1)="s"thengosub322
  182. 356 ifok=1theny=nc+1:next:gosub96:goto332
  183. 358 next
  184. 360 fory=1tonc:ifmid$(cc$(y),71,1)="r"thengosub322
  185. 362 ifok=1theny=nc+1:next:gosub96:goto332
  186. 364 next
  187. 366 gosub308:ifok=1thenga=1:gosub96:goto332
  188. 372 fory=1tonc:ifmid$(cc$(y),71,1)<>mid$(cp$,71,1)then376
  189. 374 ga=1:cp$=cc$(y):cc$(y)="":y=nc+1:next:gosub96:goto332
  190. 376 next:goto462
  191. 378 stop
  192. 380 remifwd>1then950
  193. 382 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  194. 384 [143]"can play blu?
  195. 386 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  196. 388 rc$[178]""
  197. 390 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"d"[167][141]322
  198. 392 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[141]768:[137]332
  199. 394 [130]
  200. 396 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"s"[167][141]322
  201. 398 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[137]332
  202. 400 [130]
  203. 402 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[178]"r"[167][141]322
  204. 404 [139]ok[178]1[167]y[178]nc[170]1:[130]:[141]96:[137]332
  205. 406 [130]
  206. 408 [141]308:[139]ok[178]1[167]ga[178]1:[141]96:[137]332
  207. 414 [129]y[178]1[164]nc:[139][202](cc$(y),71,1)[179][177][202](cp$,71,1)[167]418
  208. 416 ga[178]1:cp$[178]cc$(y):cc$(y)[178]"":y[178]nc[170]1:[130]:[141]96:[137]332
  209. 418 [130]:[137]462
  210. 420 [143]ifwd>1then950
  211. 422 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  212. 424 rem"can play yel?
  213. 426 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  214. 428 rc$="[158]"
  215. 430 fory=1tonc:ifmid$(cc$(y),71,1)="d"thengosub322
  216. 432 ifok=1theny=nc+1:next:gosub96:gosub768:goto332
  217. 434 next
  218. 436 fory=1tonc:ifmid$(cc$(y),71,1)="s"thengosub322
  219. 438 ifok=1theny=nc+1:next:gosub96:goto332
  220. 440 next
  221. 442 fory=1tonc:ifmid$(cc$(y),71,1)="r"thengosub322
  222. 444 ifok=1theny=nc+1:next:gosub96:goto332
  223. 446 next
  224. 448 gosub308:ifok=1thenga=1:gosub96:goto332
  225. 454 fory=1tonc:ifmid$(cc$(y),71,1)<>mid$(cp$,71,1)then458
  226. 456 ga=1:cp$=cc$(y):cc$(y)="":y=nc+1:next:gosub96:goto332
  227. 458 next:goto462
  228. 460 stop
  229. 462 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  230. 464 [143]"optional colors
  231. 466 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  232. 468 xv[178]xv[170]1:[145]xv[137]470,472,474,476,482
  233. 470 [145]c2[137]280,340,382,422
  234. 472 [145]c3[137]280,340,382,422
  235. 474 [145]c4[137]280,340,382,422
  236. 476 [139]wd[177]0[167][137]506
  237. 478 [139]wf[177]0[167][137]490
  238. 480 [137]554:[137]224
  239. 482 [144]
  240. 484 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  241. 486 rem"play a wf(!)
  242. 488 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  243. 490 forw=1tonc:ifmid$(cc$(w),71,1)<>"!"thennext:stop
  244. 492 r=w:w=nc+1:next
  245. 494 gosub572:cp$=cc$(r):cc$(r)="":gosub96:gosub512:ga=.
  246. 496 forg=1to4:nm=nm+1:cn=cn+1:mc$(nm)=sc$(cn):next:gosub848
  247. 498 gosub616:print"color is "wc$"     [146]";:goto332
  248. 500 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  249. 502 [143]"play a wd(w)
  250. 504 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  251. 506 [129]w[178]1[164]nc:[139][202](cc$(w),71,1)[179][177]"w"[167][130]:[144]
  252. 508 r[178]w:w[178]nc[170]1:[130]
  253. 510 [141]572:cp$[178]cc$(r):cc$(r)[178]"":[141]96:[141]512:ga[178].:[137]498
  254. 512 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  255. 514 rem"computer color pick
  256. 516 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  257. 518 pc$=left$(cp$,1)
  258. 520 ifc1=1andpc$<>""thenwc$="":return
  259. 522 ifc1=2andpc$<>""thenwc$="":return
  260. 524 ifc1=3andpc$<>""thenwc$="":return
  261. 526 ifc1=4andpc$<>"[158]"thenwc$="[158]":return
  262. 528 ifc2=1andpc$<>""thenwc$="":return
  263. 530 ifc2=2andpc$<>""thenwc$="":return
  264. 532 ifc2=3andpc$<>""thenwc$="":return
  265. 534 ifc2=4andpc$<>"[158]"thenwc$="[158]":return
  266. 536 ifc3=1andpc$<>""thenwc$="":return
  267. 538 ifc3=2andpc$<>""thenwc$="":return
  268. 540 ifc3=3andpc$<>""thenwc$="":return
  269. 542 ifc3=4andpc$<>"[158]"thenwc$="[158]":return
  270. 544 ifc4=1andpc$<>""thenwc$="":return
  271. 546 ifc4=2andpc$<>""thenwc$="":return
  272. 548 ifc4=3andpc$<>""thenwc$="":return
  273. 550 ifc4=4andpc$<>"[158]"thenwc$="[158]":return
  274. 552 stop
  275. 554 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  276. 556 [143]"draw for computer
  277. 558 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  278. 560 [139]dc[178]1[167]566
  279. 562 [153]"computer draws      ";
  280. 564 nc[178]nc[170]1:cn[178]cn[170]1:cc$(nc)[178]sc$(cn):sc$(cn)[178]"":dc[178]1:[137]224
  281. 566 [153]"computer passes     ";
  282. 568 dc[178].:ga[178].:[137]42
  283. 570 [144]
  284. 572 [143]
  285. 574 [129]i[178]1[164]4:c(i)[178].:[130]:wd[178].
  286. 576 [129]y[178]1[164]nc:fg$[178][200](cc$(y),1):[139]fg$[178]""[167]c(1)[178]c(1)[170]1:[130]:[137]588
  287. 578 [139]fg$[178]""[167]c(2)[178]c(2)[170]1:[130]:[137]588
  288. 580 [139]fg$[178]""[167]c(3)[178]c(3)[170]1:[130]:[137]588
  289. 582 [139]fg$[178]"sys"[167]c(4)[178]c(4)[170]1:[130]:[137]588
  290. 584 [139][202](cc$(y),71,1)[178]"!"[167]wf[178]wf[170]1:[130]:[137]588
  291. 586 [139][202](cc$(y),71,1)[178]"w"[167]wd[178]wd[170]1:[130]:[137]588
  292. 588 [129]k[178]1[164]4:d(k)[178]c(k):[130]:n[178]4:m[178]n
  293. 590 m[178][181](m[173]2):[139]m[178].[167]604
  294. 592 j[178]1:k[178]n[171]m
  295. 594 i[178]j
  296. 596 l[178]i[170]m:cm[178]cm[170]1:[139]d(i)[179]d(l)[167]600
  297. 598 t[178]d(i):d(i)[178]d(l):d(l)[178]t:sw[178]sw[170]1:i[178]i[171]m:[139]i[177]1[167]596
  298. 600 j[178]j[170]1:[139]j[177]k[167]590
  299. 602 [137]594
  300. 604 [129]k1[178]1[164]4:[139]c(k1)[179][177]d(4)[167][130]
  301. 606 c1[178]k1:k1[178]5:[130]:[129]k1[178]1[164]4:[139]c(k1)[179][177]d(3)[167][130]
  302. 608 c2[178]k1:k1[178]5:[130]:[129]k1[178]1[164]4:[139]c(k1)[179][177]d(2)[167][130]
  303. 610 c3[178]k1:k1[178]5:[130]:[129]k1[178]1[164]4:[139]c(k1)[179][177]d(1)[167][130]
  304. 612 c4[178]k1:k1[178]5:[130]
  305. 614 [142]
  306. 616 [153]"                    ";:[142]
  307. 618 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  308. 620 rem"end computer routine
  309. 622 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  310. 624 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  311. 626 [143]"check first card played
  312. 628 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  313. 630 ic[178]5:u[178][181](1000[172][187](.)):[139]u[177]500[167][153]"you go first.":[137]634
  314. 632 [153]"i go first."
  315. 634 [133]"hit return to continue";k$:[153]"load";:[141]96
  316. 636 [139][202](cp$,71,1)[178]"w"[175]u[177]500[167]670
  317. 638 [139][202](cp$,71,1)[178]"w"[175]u[179][178]500[167]668
  318. 640 [139][202](cp$,71,1)[178]"!"[175]u[177]500[167]672
  319. 642 [139][202](cp$,71,1)[178]"!"[175]u[179][178]500[167]660
  320. 644 [139][202](cp$,71,1)[178]"d"[175]u[177]500[167]678
  321. 646 [139][202](cp$,71,1)[178]"d"[175]u[179][178]500[167]684
  322. 648 [139][202](cp$,71,1)[178]"r"[175]u[177]500[167]690
  323. 650 [139][202](cp$,71,1)[178]"r"[175]u[179][178]500[167]694
  324. 652 [139][202](cp$,71,1)[178]"s"[175]u[177]500[167]698
  325. 654 [139][202](cp$,71,1)[178]"s"[175]u[179][178]500[167]702
  326. 656 [139]u[177]500[167][141]848:[137]42
  327. 658 [139]u[179][178]500[167][141]848:[137]210
  328. 660 [141]96:[153]"the first card was a draw four.":[153]"you get four extra cards!"
  329. 662 [143]forh=1to4:cn=cn+1:nm=nm+1:mc$(nm)=sc$(cn):sc$(cn)="":next
  330. 664 [153]"now i get to go first!":[141]848:[141]706
  331. 666 cc$(nc[170]1)[178]cp$:r[178]nc[170]1:[141]848:[137]494
  332. 668 cc$(nc[170]1)[178]cp$:r[178]nc[170]1:[141]848:[137]510
  333. 670 df[178].:[141]848:[137]194
  334. 672 [141]96:[153]"the first card was a draw four.":[153]"i get four extra cards!"
  335. 674 [143]
  336. 676 [153]"now you get to go first!":[141]706:df[178]1:[141]848:[137]192
  337. 678 [141]96:[153]"the first card was a draw two.":[153]"you get two extra cards!"
  338. 680 [129]h[178]1[164]2:cn[178]cn[170]1:nm[178]nm[170]1:mc$(nm)[178]sc$(cn):sc$(cn)[178]"":[130]
  339. 682 [153]"now i get to go first!":[141]706:[141]848:[137]210
  340. 684 [141]96:[153]"the first card was a draw two.":[153]"i get two extra cards!"
  341. 686 [129]h[178]1[164]2:cn[178]cn[170]1:nc[178]nc[170]1:cc$(nc)[178]sc$(cn):sc$(cn)[178]"":[130]
  342. 688 [153]"now you get to go first!":[141]706:[141]848:[137]40
  343. 690 [141]96:[153]"the first card was a reverse."
  344. 692 [153]"now i get to go first!":[141]706:[141]848:[137]210
  345. 694 [141]96:[153]"the first card was a reverse."
  346. 696 [153]"now you get to go first!":[141]706:[141]848:[137]40
  347. 698 [141]96:[153]"the first card was a skip."
  348. 700 [153]"now i get to go first!":[141]706:[141]848:[137]210
  349. 702 [141]96:[153]"the first card was a skip."
  350. 704 [153]"now you get to go first!":[141]706:[141]848:[137]40
  351. 706 [129]h[178]1[164]5000:[130]:[142]
  352. 708 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  353. 710 rem"draw a card
  354. 712 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  355. 714 print"";
  356. 716 ifdc=1then722
  357. 718 input"draw a card     ";yn$:print"";:ifleft$(yn$,1)="n"then42
  358. 720 nm=nm+1:cn=cn+1:mc$(nm)=sc$(cn):sc$(cn)="":dc=1:gosub848:goto42
  359. 722 input"pass to computer";yn$:print"";
  360. 724 ifleft$(yn$,1)="n"then42
  361. 726 dc=.:goto210
  362. 728 ifnc>36thennm=35:cc$(36)=""
  363. 730 ifnc<36thenic=1
  364. 732 ifnc<19thenic=2
  365. 734 ifnc<13thenic=3
  366. 736 ifnc<10thenic=4
  367. 738 ifnc<8thenic=5
  368. 740 ifnc<7thenic=6
  369. 742 ifcn=106thengosub26
  370. 744 printcl$"";:forh=1tonc:printcc$(h)"[145][145][145][157][157][157][157]";left$(l$,ic);:nexth
  371. 746 print"[155][146]                                  ":return
  372. 748 rem
  373. 750 sys49386:l=49152
  374. 752 poke53265,peek(53265)and239:open2,8,2,"cards4,s,r":forh=1to56
  375. 754 sys49352
  376. 756 u=peek(l)
  377. 758 get#2,a$:sc$(u)=a$+b$:get#2,a$
  378. 760 forp=1to35:get#2,a$:sc$(u)=sc$(u)+a$:next
  379. 762 get#2,a$:ifa$<>chr$(13)thensc$(u)=sc$(u)+a$:goto762
  380. 764 sys49352:sc$(peek(l))=sc$(u):next:close2:poke53265,peek(53265)or16
  381. 766 poke54296,15:sysba+155:pokeba+1079,0:return
  382. 768 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  383. 770 [143]"give player 2 cards
  384. 772 rem"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  385. 774 [139][202](cp$,71,1)[179][177]"d"[167][142]
  386. 776 [139]dt[178]1[167]dt[178].:[142]
  387. 778 dt[178]1:[129]h[178]1[164]2:cn[178]cn[170]1:nm[178]nm[170]1:mc$(nm)[178]sc$(cn):sc$(cn)[178]"":[130]:[141]848:[142]
  388. 780 [139][200](a$,1)[178]"n"[167][151]37252,4:[137]63000
  389. 782 [153]"loadnow see here.  if you think i'm going"
  390. 784 [153]"to sit here and take this garbage from"
  391. 786 [153]"you, well, you've got another thing"
  392. 788 [153]"coming!  take this!!!"
  393. 790 [129]t[178]1[164]7000:[130]
  394. 792 d$[178]""
  395. 794 r$[178]""
  396. 796 [129]g[178]1[164]2:[129]gg[178]1[164]112[171]cn:[151]ba[170]1079,[181](2[172][187](.))[170]1
  397. 798 d[178][181](16[172][187](.))[170]4:r[178][181](34[172][187](.))
  398. 800 [153]"";[200](d$,d);[200](r$,r);sc$(gg):[130]:[130]
  399. 802 [151]ba[170]1079,0:[153]"load";:[153]:[133]"answer me! do you want play again(y/n)";a$
  400. 804 [139][200](a$,1)[178]"y"[167]8
  401. 806 [139][200](a$,1)[179][177]"n"[167]780
  402. 808 [137]63000
  403. 810 [153]cl$"";:[129]h[178]1[164]nm:[153]mc$(h)"onononcmdcmdcmdcmd";[200](l$,ic);:[130]h:[142]
  404. 812 [153]"waitload";:[141]728:m1[178]m1[170]1:[129]t[178]1[164]nc:r$[178][202](cc$(t),71,1)
  405. 814 [139][197](r$)[177]0[176]r$[178]"0"[167]cs[178]cs[170][197](r$):[130]:[137]820
  406. 816 [139]r$[178]"r"[176]r$[178]"s"[176]r$[178]"d"[167]cs[178]cs[170]20:[130]:[137]820
  407. 818 [139][200](cc$(t),1)[178]"poke"[167]cs[178]cs[170]50:[130]
  408. 820 [139]cs[179]yu[167]cs$[178]"":yu$[178]"wait":[137]824
  409. 822 cs$[178]"wait":yu$[178]""
  410. 824 [153]"wait";yu$"you have"cs"cmd points.  you've won"m1;:[137]836
  411. 826 [153]"wait";:[141]848:ch[178]ch[170]1:[129]t[178]1[164]nm:r$[178][202](mc$(t),71,1)
  412. 828 [139][197](r$)[177]0[176]r$[178]"0"[167]yu[178]yu[170][197](r$):[130]:[137]820
  413. 830 [139]r$[178]"r"[176]r$[178]"s"[176]r$[178]"d"[167]yu[178]yu[170]20:[130]:[137]820
  414. 832 [139][200](mc$(t),1)[178]"poke"[167]yu[178]yu[170]50:[130]:[137]820
  415. 834 [144]
  416. 836 [139]m1[177]1[176]m1[178].[167][153]"cmd games":[137]840
  417. 838 [153]"cmd game"
  418. 840 [153]"wait";cs$"i have  "yu"cmd points.  i've won"ch;
  419. 842 [139]ch[177]1[176]ch[178].[167][153]"cmd games":[137]846
  420. 844 [153]"cmd game"
  421. 846 [142]
  422. 848 [139]nm[177]36[167]nm[178]35:mc$(36)[178]""
  423. 850 [139]nm[179]36[167]ic[178]1
  424. 852 [139]nm[179]19[167]ic[178]2
  425. 854 [139]nm[179]13[167]ic[178]3
  426. 856 [139]nm[179]10[167]ic[178]4
  427. 858 [139]nm[179]8[167]ic[178]5
  428. 860 [139]nm[179]7[167]ic[178]6
  429. 862 [143]ifcn=106thengosub18
  430. 864 [153]""cl$"wait";:[129]h[178]1[164]nm:[153]mc$(h)"onononcmdcmdcmdcmd";[200](l$,ic);"wait";:[130]:[142]
  431. 866 [151]53281,0:[153]"loadprint#              now loading":[153]:[153]
  432. 868 [153]"           listonandandandandandandandandandandandandandandandandand":[153]"           contusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  433. 870 [153]"            the entertainer"
  434. 872 [153]"           contandandandandandandandandandandandandandandandandand":[153]"           listusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  435. 874 [153]:[153]:[153]"print#             written using":[153]:[153]
  436. 876 [153]"            master composer":[153]:[153]
  437. 878 [153]"            access software"
  438. 880 [153]"          925 east  900 south"
  439. 882 [153]"      salt lake city,  utah 84105"
  440. 884 [153]:[153]"list         please turn up volumewait"
  441. 886 [142]
  442. 888 [139][197]([202](cp$,71,1))[177]0[176][202](cp$,71,1)[178]"0"[167][142]
  443. 890 [139][202](cp$,71,1)[178]"!"[167]900
  444. 892 [139][202](cp$,71,1)[178]"w"[167][142]
  445. 894 [139][202](cp$,71,1)[178]"s"[167][142]
  446. 896 [139][202](cp$,71,1)[178]"r"[167][142]
  447. 898 [129]kk[178]1[164]2:nc[178]nc[170]1:cn[178]cn[170]1:cc$(nc)[178]sc$(cn):sc$(cn)[178]"":[130]:[142]
  448. 900 [129]kk[178]1[164]4:nc[178]nc[170]1:cn[178]cn[170]1:cc$(nc)[178]sc$(cn):sc$(cn)[178]"":[130]:[142]
  449. 902 [139][197]([202](cp$,71,1))[177]0[176][202](cp$,71,1)[178]"0"[167][142]
  450. 904 [139][202](cp$,71,1)[178]"!"[167]914
  451. 906 [139][202](cp$,71,1)[178]"w"[167][142]
  452. 908 [139][202](cp$,71,1)[178]"s"[167][142]
  453. 910 [139][202](cp$,71,1)[178]"r"[167][142]
  454. 912 [129]kk[178]1[164]2:nm[178]nm[170]1:cn[178]cn[170]1:mc$(nm)[178]sc$(cn):sc$(cn)[178]"":[130]:[142]
  455. 914 [129]kk[178]1[164]4:nm[178]nm[170]1:cn[178]cn[170]1:mc$(nm)[178]sc$(cn):sc$(cn)[178]"":[130]:[142]
  456. 1000 [158]49386:[140]:[151]53281,0:[153]""[199](142):l[178]49152:[141]1022
  457. 1001 [153]"loadshuffling cards.":[153]"please wait about 15 seconds..."
  458. 1002 r$[178]"then   fnwaitcmdcmdcmdcmdcmd":b$[178]" tototo waitcmdcmdcmdcmdcmd"[170]r$[170]r$[170]r$[170]" tab(tab(tab( cmdcmdcmdcmdcmdononononon
  459. 1004 z9$="[158]"
  460. 1006 forl1=0to12
  461. 1008 readnq$,nq:forl2=1to4:forl3=1to2:sys49352:u=peek(l)
  462. 1010 sc$(u)=mid$(z9$,l2,1)+b$+nq$+""+nq$+"[145][145][145][157][157][157][157]"+a$(nq)
  463. 1012 next:next:next
  464. 1014 forme=1to4:sys49352:u=peek(l):sc$(u)="[151]"+b$+"ww[145][145][145][157][157][157][157]"+a$(13):next
  465. 1016 forwe=1to4:sys49352:u=peek(l):sc$(u)="[151]"+b$+"!![145][145][145][157][157][157][157]"+a$(14):next
  466. 1018 return
  467. 1020 data0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,d,10,r,11,s,12
  468. 1022 a$(.)="[213][192][201][157][157][157][221][206][221][157][157][157][202][192][203]"
  469. 1024 a$(1)=" [174] [157][157][157] [221] [157][157][157] [177] "
  470. 1026 a$(2)="[213][192][174][157][157][157] [206] [157][157][157] [192][192]"
  471. 1028 a$(3)="[213][192][201][157][157][157] [192][179][157][157][157][202][192][203]"
  472. 1030 a$(4)=" [206][180][157][157][157][206] [180][157][157][157][183][183][207]"
  473. 1032 a$(5)="[176][192][192][157][157][157][173][192][201][157][157][157][192][192][203]"
  474. 1034 a$(6)="[213][192][201][157][157][157][171][192][201][157][157][157][202][192][203]"
  475. 1036 a$(7)="[175][175][175][157][157][157][190] [206][157][157][157] [206] "
  476. 1038 a$(8)="[213][192][201][157][157][157][171][192][179][157][157][157][202][192][203]"
  477. 1040 a$(9)="[213][192][201][157][157][157][202][192][179][157][157][157][202][192][203]"
  478. 1042 a$(10)="[176][192][201][157][157][157][221] [221][157][157][157][173][192][203]"
  479. 1044 a$(11)="[176][192][201][157][157][157][171][178][203][157][157][157][221] [205]"
  480. 1046 a$(12)="[213][192][201][157][157][157][202][192][201][157][157][157][202][192][203]"
  481. 1048 a$(13)="[221] [221][157][157][157][221][221][221][157][157][157][202][177][203]"
  482. 1050 a$(14)=" [151][221] [157][157][157][151][192][219][192][157][157][157][158] [151][221] "
  483. 1052 return
  484. 63000 rem   connect to ls
  485. 63010 load"hello connect",8
  486.