home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 103 / 103.d81 / bisley (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  231 lines
  1. 2 print"[158]    [212][215][207] [211][195][210][197][197][206][211] [193][210][197][160][194][201][199][199][197][210][160][212][200][193][206][160][207][206][197]
  2. 10 [151]56,56:[151]51,0:[156]:[137]500
  3. 15 [129]i[178]0[164]51:g(i)[178]s(i):[130]:[142]
  4. 20 [141]62
  5. 21 [129]i[178]1[164]cc:[139]a$[178][202](ch$,i,1)[167][142]
  6. 22 [130]:[137]20
  7. 26 a$[178]"251331421502421502"
  8. 27 t[178]87:[151]f[170]6,96:[151]f[170]24,15
  9. 28 [129]i[178]1[164]18[169]3
  10. 29 [151]f[170]1,[197]([202](a$,i,2)):[151]f[170]4,33
  11. 30 [129]j[178]1[164]t[172][197]([202](a$,i[170]2,1)):[130]
  12. 31 [151]f[170]4,0:[130]:[142]
  13. 58 x[178]0:y[178]24:[141]66:[153]"/          please press a keyclose         ononon"
  14. 62 [161]a$:[139]a$[178]""[167]70:[142]
  15. 66 [151]211,x:[151]214,y:[158]58732:[142]
  16. 70 [139]jj[178]nc[171]2[167]jj[178][171]1
  17. 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
  18. 73 x[178]x(i):y[178]y(i):[158]mt[170]3,x,x[170]3,y,y[170]4,tc,t3:[142]
  19. 75 [129]qq[178]1[164]350:[130]:[142]
  20. 77 [145]ws[137]81,85
  21. 81 ws[178]2:[158]mt[170]6,208: [158]mt[170]9,216:[142]
  22. 85 ws[178]1:[158]mt[170]6,216:[158]mt[170]9,208:[142]
  23. 90 [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
  24. 92 [129]t[178]1[164]100:[130]:[151]f[170]11,32:[142]
  25. 111 [134]i,x,y,mt,j,k,jj,nc,ns,ws,nc,ns,f,bd,c0$(3),s1$(3),s$(3),va$(13),vb$(13)
  26. 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)":bd[178]03:tc[178]000:t3[178]13:hl[178]08:wt[178]02
  27. 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]""
  28. 114 co$(3)[178]"stop":s1$(0)[178]"get":s1$(1)[178]"(NULL)":s1$(2)[178]"(NULL)":s1$(3)[178]"or"
  29. 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]
  30. 122 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13)
  31. 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]
  32. 131 [139]jj[178]nc[171]2[167][142]
  33. 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
  34. 133 [139]jj[179][177]nc[171]2[167]131
  35. 135 [134]x(21),y(21),c(21),b(21,15),g(51),st$(3,12)
  36. 140 ch$[178]"123456789abcdfs"[170][199](133)[170]"h":cc[178][195](ch$):f[178]54272
  37. 142 [129]i[178]f[164]f[170]78:[151]i,0:[130]
  38. 144 x[178]10:[129]i[178]0[164]3:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
  39. 145 x[178]10:[129]i[178]4[164]9:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
  40. 146 x[178]1:[129]i[178]10[164]16:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
  41. 147 x[178]16:[129]i[178]17[164]20:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
  42. 148 [141]350: [142]
  43. 150 [151]646,t3:[158]mt[170]18,23,"@@@@@@@@":[158]mt[170]6,208[170](ws[171]1)[172]8
  44. 151 [158]mt[170]3,8,30,8,15,160,bd:[151]646,bd
  45. 152 [141]26:[158]mt[170]18,09,"you are a winner"
  46. 154 wo[178]1:[137]163
  47. 159 [139]wo[178]1[167]150
  48. 160 [151]646,t3:[158]mt[170]18,23,"@@@@@@@@":[158]mt[170]6,208[170](ws[171]1)[172]8
  49. 161 [158]mt[170]3,8,30,7,15,160,bd:[151]646,bd
  50. 162 k7[178]0:[129]k[178]4[164]16:k7[178]k7[170]c(k):[130]:x[178]11:y[178]8:[141]66:[153]""k7"cards left"
  51. 163 x[178]11:y[178]10:[141]66:[153]" 1. regular game "
  52. 164 y[178]y[170]1:[141]66:[153]" 2. harder game  "
  53. 166 y[178]y[170]1:[141]66:[153]" 3. replay game  "
  54. 167 y[178]y[170]1:[141]66:[153]" 4. continue game"
  55. 168 y[178]y[170]1:[141]66:[153]" 5. to loadstar  "
  56. 170 y[178]y[170]1:[141]66:[153]"                 "
  57. 172 [161]a$:[139]a$[178]""[167]172
  58. 176 [139]a$[179]"1"[176]a$[177]"5"[167]172
  59. 180 [145][197](a$)[137]182,184,188,186,6000
  60. 182 vv[178]1:tf[178]0:[158]mt[170]9,224:wo[178]0:[137]559
  61. 184 vv[178]1:tf[178]1:[158]mt[170]9,224:wo[178]0:[137]559
  62. 186 [158]mt[170]9,208[170](ws[171]1)[172]8:[137]600
  63. 188 vv[178]1:[158]mt[170]9,224:wo[178]0:[137]560
  64. 190 [145]ws[137]192,196
  65. 192 [139]i[179]10[167]200
  66. 193 ws[178]2:[158]mt[170]6,208:[141]75
  67. 194 [158]mt[170]9,216[170]vv[172]16:vv[178]0:[137]200
  68. 196 [139]i[177]9[167]200:
  69. 198 ws[178]1:[158]mt[170]6,216:[141]75:[158]mt[170]9,208
  70. 200 x[178]x(i):y[178]y(i):[141]66
  71. 202 ca[178]b(i,c(i))
  72. 203 su[178][165]s(ca):va[178][165]v(ca)
  73. 204 [151]f[170]24,6:[151]f[170]5,128:[151]f[170]4,129:[129]t[178]1[164]20:[130]:[151]f[170]4,128:[151]f[170]5,0
  74. 206 [151]f[170]24,0:[151]f[170]24,15:[151]f[170]4,129:[151]f[170]4,128
  75. 207 [139]d8[178]1[176]c(i)[179][177]0[167]220
  76. 216 [141]73:[142]
  77. 220 [153]co$(su);va$(va);"<<>cmdcmdcmdcmd";s$(su);"  ^cmdcmdcmdcmdtab(  ^cmdcmdcmdcmdtab(  ";s1$(su);
  78. 222 [153]"cmdcmdcmdcmdsgn==";vb$(va);"ononononcmdcmdcmd";st$(su,va);:[142]
  79. 300 i[178]fr:[139]ws[178]1[175]i[179]10[167]330
  80. 301 [139]ws[178]2[175]i[177]9[167]330
  81. 302 [139]ws[178]1[167]308
  82. 304 [137]320
  83. 308 ws[178]2:[158]mt[170]6,208:[141]75
  84. 312 [158]mt[170]9,216:[137]330
  85. 320 ws[178]1:[158]mt[170]6,216:[141]75:  [158]mt[170]9,208
  86. 330 c(fr)[178]c(fr)[171]1:i[178]fr:[139]c(fr)[177][178]6[167]340
  87. 334 [141]73:y(fr)[178]y(fr)[171]2:[139]y(fr)[179]8[167]y(fr)[178]8
  88. 336 [141]200:[142]
  89. 340 [141]73:[141]200:[142]
  90. 350 st$(0,1)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait":st$(0,0)[178]"(NULL)(NULL)wait":st$(3,0)[178]"<sgnwait"
  91. 352 st$(0,9)[178]"atnpeekcmdcmdlenstr$cmdcmdvalasccmdcmdchr$left$cmdcmdright$mid$wait":st$(3,2)[178]"usrfrecmdcmd<sgncmdcmdpossqrwait"
  92. 354 st$(0,8)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(0,3)[178]"atnpeekcmdcmdright$mid$wait"
  93. 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"
  94. 358 st$(3,9)[178]"getnewcmdcmdtab(tocmdcmdfnspc(cmdcmdthennotcmdcmdstep+wait":st$(3,7)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdintabscmdcmdstep+wait"
  95. 360 st$(3,1)[178]"usrfrecmdcmdpossqrwait":st$(0,2)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  96. 362 st$(0,6)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(3,6)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdstep+wait"
  97. 364 st$(3,3)[178]"getnewcmdcmdstep+wait":st$(0,5)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  98. 366 st$(3,5)[178]"getnewcmdcmd>=cmdcmdstep+wait":st$(0,4)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  99. 368 st$(3,4)[178]"getnewcmdcmd<sgncmdcmdstep+wait":
  100. 370 st$(2,9)[178]"abcmdcmdcdcmdcmdefcmdcmdghcmdcmdij":st$(2,8)[178]"abcmdcmdklcmdcmdmncmdcmdopcmdcmdij"
  101. 372 st$(2,7)[178]"abcmdcmdstcmdcmdqrcmdcmduvcmdcmdij":st$(2,6)[178]"abcmdcmdstcmdcmdqrcmdcmdij"
  102. 374 st$(2,5)[178]"abcmdcmdqrcmdcmdij":st$(2,4)[178]"abcmdcmdstcmdcmdij":st$(2,3)[178]"abcmdcmdij"
  103. 376 st$(2,2)[178]"wxcmdcmdstcmdcmdyz":st$(2,1)[178]"wxcmdcmdyz":st$(2,0)[178]"st"
  104. 378 [129]i[178]0[164]3:[129]j[178]10[164]12:st$(i,j)[178]"01cmdcmd23cmdcmd45cmdcmd67cmdcmd89":[130]:[130]
  105. 380 st$(1,9)[178]"(NULL)(NULL)cmdcmdrndlogcmdcmd(NULL)sincmdcmdexpcoscmdcmd(NULL)(NULL)wait"
  106. 384 st$(1,8)[178]"(NULL)(NULL)cmdcmd#$cmdcmd%&cmdcmd*+cmdcmd(NULL)(NULL)wait"
  107. 390 st$(1,6)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd(NULL)(NULL)wait"
  108. 392 st$(1,5)[178]"(NULL)(NULL)cmdcmd<>cmdcmd(NULL)(NULL)wait"
  109. 394 st$(1,4)[178]"(NULL)(NULL)cmdcmd\^cmdcmd(NULL)(NULL)wait"
  110. 396 st$(1,7)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd_=cmdcmd(NULL)(NULL)wait"
  111. 398 st$(1,1)[178]"spc(thencmdcmdnotstep":st$(1,2)[178]"spc(thencmdcmd\^waitcmdcmdwaitnotstep"
  112. 400 st$(1,0)[178]"\^wait":st$(1,3)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  113. 402 [129]i[178]0[164]3:st$(i,11)[178]"()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;":[130]
  114. 404 st$(0,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  115. 406 st$(1,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  116. 408 st$(0,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  117. 410 st$(2,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  118. 412 st$(3,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  119. 420 [142]
  120. 500 [141]111:[141]26
  121. 501 [153]"load":[153][199](142):[151]53272,31:[151]198,0:mt[178]52480
  122. 502 [158]mt[170]3,0,39,0,24,127,3:[158]mt[170]3,04 ,34,06,16,160,3
  123. 503 [158]mt[170]18,08,"openwelcome to bisley"
  124. 504 [158]mt[170]18,10,"opena maurice jones solitaire"
  125. 5