home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / baroness (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  7.5 KB  |  216 lines
  1. 1 rem save"new deck v3.3",8
  2. 2 poke52,56:poke51,0:clr:poke53280,0:poke53281,0
  3. 3 dv=peek(186):ifdv<8thendv=8
  4. 5 print"[147][159]":print"[158]         [194]reak out the cards
  5. 9 mt[178]52480:bd[178]08:tc[178]127:t3[178]15:hl[178]6:wt[178]1
  6. 10 [137]500
  7. 19 [143] choice*
  8. 20 [141]62
  9. 21 [129]i[178]1[164]cc:[139]a$[178][202](ch$,i,1)[167][142]
  10. 22 [130]:[137]20
  11. 25 [143] charge*
  12. 26 a$[178]"251331421502421502"
  13. 27 t[178]87:[151]f[170]6,96:[151]f[170]24,15
  14. 28 [129]i[178]1[164]18[169]3
  15. 29 [151]f[170]1,[197]([202](a$,i,2)):[151]f[170]4,33
  16. 30 [129]j[178]1[164]t[172][197]([202](a$,i[170]2,1)):[130]
  17. 31 [151]f[170]4,0:[130]:[142]
  18. 57 [143] any key-get a$*
  19. 58 x[178]10:y[178]24:[141]66:[153]" please press a key ononon"
  20. 62 [161]a$:[139]a$[178]""[167]70:[142]
  21. 64 [143] print at*
  22. 66 [151]211,x:[151]214,y:[158]58732:[142]
  23. 69 [143] multitask *
  24. 70 [139]jj[178]nc[171]2[167]jj[178][171]1
  25. 71 jj[178]jj[170]1:j%[178]jj[170][181]([187](0)[172](nc[171]jj)):temp[178]s(jj):s(jj)[178]s(j%):s(j%)[178]temp:[137]62
  26. 72 [143]printbl$
  27. 73 [158]mt[170]3,x,x[170]3,y,y[170]4,tc,t3:[142]
  28. 79 [143]customize
  29. 80 [141]512
  30. 81 [158]mt[170]3,3,38,24,24,160,hl
  31. 82 [158]mt[170]3,18,36,11,17,160,hl
  32. 84 x[178]19:y[178]12:[141]66:[151]646,hl:  [153]"1. border color"
  33. 85 y[178]y[170]1:[141]66:[153]"2. tile color"
  34. 86 y[178]y[170]1:[141]66:[153]"3. tile shape "
  35. 87 y[178]y[170]1:[141]66:[153]"4. title color"
  36. 88 y[178]y[170]1:[141]66:[153]"5. play game "
  37. 90 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]90
  38. 92 [145][197](a$)[137]94,96,100,106, 109
  39. 94 bd[178]bd[170]1:[139]bd[178]16[167]bd[178]0:
  40. 95 [151]53280,bd:[137]90
  41. 96 t3[178]t3[170]1:[139]t3[178]16[167]t3[178]0
  42. 97 [137]80
  43. 100 wt[178]wt[170]1:[139]wt[178]5[167]wt[178]1
  44. 102 tc[178]t5(wt):[137]80
  45. 106 hl[178]hl[170]1:[139]hl[178]16[167]hl[178]0
  46. 107 [139]hl[178]1[167]hl[178]2
  47. 108 [137]80
  48. 109 [142]
  49. 110 [143] start up
  50. 111 [134]va$(13),vb$(13),st$(3,12)  :f[178]54272:[129]i[178]f[164]f[170]78:[151]i,0:[130]
  51. 112 cr$[178]"(NULL)(NULL)mid$right$left$chr$ascvalstr$&lenpeek(NULL)":cs$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)'(NULL)(NULL)(NULL)":lo[178]300
  52. 113 s$(0)[178]"new":s$(1)[178]"/":s$(2)[178]"tan":s$(3)[178]"atn":co$(0)[178]"stop":co$(1)[178]"":co$(2)[178]""
  53. 114 co$(3)[178]"stop":s1$(0)[178]"get":s1$(1)[178]"(NULL)":s1$(2)[178]"(NULL)":s1$(3)[178]"or"
  54. 115 [129]i[178]0[164]12:va$(i)[178][202](cr$,i[170]1,1):vb$(i)[178][202](cs$,i[170]1,1):[130]:[141]350
  55. 116 bk$[178]"!##$cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd\++*cmdcmdcmdcmdonononon"
  56. 117 bl$[178]"list@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmdonononon"
  57. 119 b1$[178]"list!##$cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd\++*cmdcmdcmdcmdonononon"
  58. 122 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13)
  59. 126 nc[178]52:ns[178]13:  jj[178][171]1:[134]s(nc):[129]i[178]0[164]nc[171]1:s(i)[178]i:[130]
  60. 130 [143] shuffle
  61. 131 [139]jj[178]nc[171]2[167][142]
  62. 132 jj[178]jj[170]1:j%[178]jj[170][181]([187](0)[172](nc[171]jj)):temp[178]s(jj):s(jj)[178]s(j%):s(j%)[178]temp
  63. 133 [139]jj[179][177]nc[171]2[167]131
  64. 135 [134]x(08),y(08),c(08),b(7,10),dk(52),ws(52)
  65. 140 ch$[178]"1234567 cqh":cc[178][195](ch$):dk[178]0:ws[178]08
  66. 144 x(0)[178]29:y(0)[178]16:x(08)[178]34:y(8)[178]16
  67. 148 [142]
  68. 149 [143] end game
  69. 150 x[178]6:y[178]04:[141]66:[153]" tantantantantantantantantan "
  70. 152 y[178]y[170]1:[141]66:[153]"           "
  71. 153 y[178]y[170]1:[141]66:[153]"  bonus!   "
  72. 154 y[178]y[170]1:[141]66:[153]"           "
  73. 156 y[178]y[170]1:[141]66:[153]" tantantantantantantantantan "
  74. 157 g7[178]g7[170] 50
  75. 160 [158]mt[170]3,2,22,10,16,160,hl
  76. 162 cp[178]5[172](cp[171]12):[139]cp[179]0[167]cp[178]0
  77. 164 g7[178]g7[170]cp:gh[178]gh[170]1:[139]g7[177]hi[167]hi[178]g7
  78. 166 us[178]us[170]g7:ga[178][181](us[173]gh[170].5):   [139]g7[179]lo[167]lo[178]g7
  79. 168 [141]450
  80. 169 [158]mt[170]3,2,38,24,24,160,hl
  81. 170 x[178]4:y[178]18:[141]66: [153]" tantantantantantantantantantantantantantantantan "
  82. 172 y[178]y[170]1:[141]66:[153]"  1. new game     "
  83. 173 y[178]y[170]1:[141]66:[153]"  2. customize    "
  84. 174 y[178]y[170]1:[141]66:  [153]"  3. to loadstar  "
  85. 176 y[178]y[170]1:[141]66:[153]" tantantantantantantantantantantantantantantantan "
  86. 178 [141]62:[139](a$)[179]"1"[176](a$)[177]"3"[167]178
  87. 180 [145][197](a$)[137]511,184,40000
  88. 184 [141]80:[141]511:[137]534
  89. 199 [143] print card or erase*
  90. 200 x[178]x(i):y[178]y(i):[141]66
  91. 202 ca[178]b(i,c(i)):su[178][165]s(ca):va[178][165]v(ca)
  92. 204 [151]f[170]24,6:[151]f[170]5,128:[151]f[170]4,129:[129]t[178]1[164]30:[130]:[151]f[170]4,128:[151]f[170]5,0
  93. 206 [151]f[170]24,0:[151]f[170]24,15:[151]f[170]4,129:[151]f[170]4,128
  94. 208 [139]c(i)[179][177]0[167]220
  95. 214 [143] erase card*
  96. 216 [141]73:[142]
  97. 220 [153]co$(su);va$(va);"<<>cmdcmdcmdcmd";s$(su);"  ^cmdcmdcmdcmdtab(  ^cmdcmdcmdcmdtab(  ";s1$(su);
  98. 222 [153]"cmdcmdcmdcmdsgn==";vb$(va);"ononononcmdcmdcmd";st$(su,va);:[142]
  99. 299 [143] deal
  100. 300 [129]i[178]1[164]5:[139]c(dk)[178]0[167][142]
  101. 304 c(i)[178]c(i)[170]1:b(i,c(i))[178]dk(c(dk)):c(dk)[178]c(dk)[171]1:y(i)[178]y(i)[170]1:[141]200
  102. 306 [139]c(dk)[178]2[167]310
  103. 308 [130]
  104. 309 [142]
  105. 310 [129]i[178]6[164]7
  106. 311 [151]646,hl:x[178]x(i):y[178]y(i):[141]66:[153]"onon ";[202]([196](i),2,1);"  wait"
  107. 312 c(i)[178]1:b(i,1)[178]dk(c(dk)):c(dk)[178]c(dk)[171]1:[141]200:[130]:x[178]x(dk):y[178]y(dk)
  108. 314 [141]66:[141]73:[142]
  109. 319 [143] play one to waste
  110. 320 [143]ifc(i)<2then336
  111. 324 x[178]x(i):y[178]y(i):[141]66:[141]73:y(i)[178]y(i)[171]1:c(i)[178]c(i)[171]1:[141]200
  112. 328 c(i)[178]c(i)[170]1:x[178]x(ws):y[178]y(ws):[141]66:    :[141]202:c(i)[178]c(i)[171]1
  113. 332 [142]
  114. 336 c(ws)[178]c(ws)[170]1:ws(c(ws))[178]b(i,c(i)):c(i)[178]c(i)[171]1:[141]200:c(i)[178]c(i)[170]1
  115. 340 x[178]x(ws):y[178]y(ws):[141]66:[141] 202:c(i)[178]c(i)[171]1:[142]
  116. 350 st$(0,1)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait":st$(0,0)[178]"(NULL)(NULL)wait":st$(3,0)[178]"<sgnwait"
  117. 352 st$(0,9)[178]"atnpeekcmdcmdlenstr$cmdcmdvalasccmdcmdchr$left$cmdcmdright$mid$wait":st$(3,2)[178]"usrfrecmdcmd<sgncmdcmdpossqrwait"
  118. 354 st$(0,8)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(0,3)[178]"atnpeekcmdcmdright$mid$wait"
  119. 356 st$(3,8)[178]"getnewcmdcmd-*cmdcmd/^cmdcmdandorcmdcmdstep+wait":st$(0,7)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  120. 358 st$(3,9)[178]"getnewcmdcmdtab(tocmdcmdfnspc(cmdcmdthennotcmdcmdstep+wait":st$(3,7)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdintabscmdcmdstep+wait"
  121. 360 st$(3,1)[178]"usrfrecmdcmdpossqrwait":st$(0,2)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  122. 362 st$(0,6)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(3,6)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdstep+wait"
  123. 364 st$(3,3)[178]"getnewcmdcmdstep+wait":st$(0,5)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  124. 366 st$(3,5)[178]"getnewcmdcmd>=cmdcmdstep+wait":st$(0,4)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  125. 368 st$(3,4)[178]"getnewcmdcmd<sgncmdcmdstep+wait":
  126. 370 st$(2,9)[178]"abcmdcmdcdcmdcmdefcmdcmdghcmdcmdij":st$(2,8)[178]"abcmdcmdklcmdcmdmncmdcmdopcmdcmdij"
  127. 372 st$(2,7)[178]"abcmdcmdstcmdcmdqrcmdcmduvcmdcmdij":st$(2,6)[178]"abcmdcmdstcmdcmdqrcmdcmdij"
  128. 374 st$(2,5)[178]"abcmdcmdqrcmdcmdij":st$(2,4)[178]"abcmdcmdstcmdcmdij":st$(2,3)[178]"abcmdcmdij"
  129. 376 st$(2,2)[178]"wxcmdcmdstcmdcmdyz":st$(2,1)[178]"wxcmdcmdyz":st$(2,0)[178]"st"
  130. 378 [129]i[178]0[164]3:[129]j[178]10[164]12:st$(i,j)[178]"01cmdcmd23cmdcmd45cmdcmd67cmdcmd89":[130]:[130]
  131. 380 st$(1,9)[178]"(NULL)(NULL)cmdcmdrndlogcmdcmd(NULL)sincmdcmdexpcoscmdcmd(NULL)(NULL)wait"
  132. 384 st$(1,8)[178]"(NULL)(NULL)cmdcmd#$cmdcmd%&cmdcmd*+cmdcmd(NULL)(NULL)wait"
  133. 390 st$(1,6)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd(NULL)(NULL)wait"
  134. 392 st$(1,5)[178]"(NULL)(NULL)cmdcmd<>cmdcmd(NULL)(NULL)wait"
  135. 394 st$(1,4)[178]"(NULL)(NULL)cmdcmd\^cmdcmd(NULL)(NULL)wait"
  136. 396 st$(1,7)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd_=cmdcmd(NULL)(NULL)wait"
  137. 398 st$(1,1)[178]"spc(thencmdcmdnotstep":st$(1,2)[178]"spc(thencmdcmd\^waitcmdcmdwaitnotstep"
  138. 400 st$(1,0)[178]"\^wait":st$(1,3)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  139. 402 [129]i[178]0[164]3:st$(i,11)[178]"()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;":[130]
  140. 404 st$(0,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  141. 406 st$(1,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  142. 408 st$(0,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  143. 410 st$(2,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  144. 412 st$(3,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  145. 414 [142]
  146. 450 [151]646,hl:x[178]3:y[178]11:[141]66:[153]"game score    "g7
  147. 452 y[178]y[170]1:[141]66:[153]"high game     "hi
  148. 454 y[178]y[170]1:[141]66:[153]"low game      "lo
  149. 456 y[178]y[170]1:[141]66:[153]"average       "ga
  150. 458 y[178]y[170]1:[141]66:[153]"games played  "gh460retun
  151. 499 [142]
  152. 500 t5(1)[178]127:t5(2)[178]0:t5(3)[178]101:t5(4)[178]100
  153. 510 [141]111:[141]26:[141]512:[137]534
  154. 511 cp[178]0:g7[178]0:[141]512:[137]534
  155. 512 [129]i[178]1[164]52:dk(i)[178]s(i[171]1):[130]:c(dk)[178]52:[129]i[178]1[164] 7:c(i)[178]0:[130]:c(ws)[178]0
  156. 515 k[178]2: [129]i[178]1[164]7:y(i)[178]6:x(i)[178]k:k[178]k[170]5:[130]
  157. 518 [153][199](142):[151]53272,31:[151]198,0
  158. 519 [151]53281,1:[153]"load ";
  159. 520 [158]mt[170]3,0,39,0,24,160,hl:[158]mt[170]3,0,39,3,23,tc,t3
  160. 521 x[178]15:y[178]1:[141]66:[151]646,hl:[153]  "baronesswait"
  161. 522 x[178]0:y[178]24:[141]66:[153]"stop/";:x[178]2:y[178]24:[141]66
  162. 523 [151]646,hl:[153]" space deals     h-help     q-quit ";
  163. 525 [153]"wait";:x[178]x(dk):y[178]y(dk):[141]66:[153]bk$:[151]646,hl:[129]i[178]1[164]5:
  164. 529 x[178]x(i):y[178]y(i):[141]66:[153]"onon ";[202]([196](i),2,1);"  wait":[130]
  165. 530 [129]i[178]1[164]5:c(i)[178]c(i)[170]1:b(i,c(i))[178]dk(c(dk)):c(dk)[178]c(dk)[171]1:[141]200:[130]:[142]
  166. 534 [151]646,hl:x[178]x(0)[171]1:y[178]y(0)[171]2:[141]66:[153]" from wait":[141]20
  167. 538 [139]i[179]8[167] 550
  168. 542 [145]i[171]7[137]546,548,160,900
  169. 546 [141]300:[137]534
  170. 548 [141]80:[137]511
  171. 550 [139]c(i)[178]0[167][141]800:[137]534
  172. 554 [139][165]v(b(i,c(i)))[179][177]12[167]562
  173. 556 cp[178]cp[170]1:x[178]36:y[178]1:[141]66:[151]646,hl:[153]""cp        :[153]"wait";
  174. 558 [141]320:[137]582
  175. 562 fc[178]i
  176. 564 x[178]x(0):y[178]y(0)[171]2:[141]66:[153]"list@@@@"
  177. 566 [151]646,hl:  x[178]x(0):y[178]y(0)[171]2:[141]66:[153]" and wait":[141]20
  178. 570 [139]c(i)[178]0[167][141]800:[137]534
  179. 574 [139][165]v(b(fc,c(fc)))[170][165]v(b(i,c(i)))[179][177]11[167][141]800:[137]534
  180. 576 cp[178]cp[170]2:x[178]35:y[178]01:[141]66:[151]646,hl:[153]"    cmdcmdcmdcmd"cp;:[153]"wait";
  181. 578 sc[178]i:i[178]fc:[141]320:i[178]sc:[141]320
  182. 582 [129]i[178]0[164]7:[139]c(i)[179][177]0[167]534
  183. 586 [130]:[137]150
  184. 800 [151]f[170]24,15:[151]f[170]8,4:[151]f[170]12,63:[151]f[170]13,17:[151]f[170]11,33
  185. 802 [129]t[178]1[164]30:[130]:[151]f[170]11,32:[142]
  186. 900 [151]53280,3:[158]mt[170]6,208:[151]53281,0:[151]646,3:[158]mt[170]3,0,39,0,24,160,3
  187. 902 [153]"         sys b a r o n e s s "
  188. 904 [153]:[153]"open  the original tableau consists of five
  189. 906 print"cards.  discard any pair of cards"
  190. 908 print"totaling 13, as 8 and 5, jack and two
  191. 910 [153]"queen and ace.  kings count 13 and are
  192. 912 print"discarded individually.  only the top
  193. 914 [153]"cards are available.  use the space
  194. 916 print"bar to deal the next five cards.  the
  195. 918 [153]"last two cards are dealt to two new
  196. 920 print"piles and are available for play.
  197. 922 [153]:[153]"  five points are scored for each card
  198. 924 print"played after the twelfth, with a 50
  199. 926 [153]"point bonus for playing all cards.
  200. 928 print"number of cards is displayed at the
  201. 930 [153]"upper right.
  202. 932 print:print"  q - ends and scores game
  203. 934 [153]"  h - produces this screen
  204. 936 print"  c - ends game without scoring and
  205. 938 [153]"      allows customizing the screen
  206. 940 print:print"         [158]please press a key
  207. 999 [141]62:[151]53280,bd:[151]53281,1:[158]mt[170]9,208:[137]534
  208. 5999 [143] reconnect*
  209. 10000 [159]15,8,15,"s0:baroness":[160]15:[148]"baroness",8:[128]
  210. 40000 [153]"load":[151]53281,0:[151]53280,0
  211. 40005 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
  212. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  213. 40020 [130]:[153]"loadopen":[151]2048,0:[151]44,8:[151]53272,23:[128]
  214. 40030 [153]"loadstopload"[199](34)a$[199](34)","i
  215. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  216.