home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 105 / 105.d81 / collins (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  224 lines
  1. 1 rem save"collins v2.3",8
  2. 2 print"[147][158]   [201]f esp fails, try probabilities
  3. 3 [151]16383,31
  4. 4 [151]56,56:[151]51,0:[156]:dv[178][194](186):[139]dv[179]8[167]dv[178]8
  5. 5 [134]i,x,y,su,et,el,ps,lv,lf,pp,mt,s,f,ca,va,t,jj,j%
  6. 6 bd[178]03:hl[178]08:sc[178]03
  7. 8 [141]111
  8. 10 [137]480
  9. 19 [143] choice*
  10. 20 [141]62
  11. 21 [129]i[178]1[164][195](ch$):[139]a$[178][202](ch$,i,1)[167][142]
  12. 22 [130]:[137]20
  13. 25 [143] charge*
  14. 26 a$[178]"251331421502421502"
  15. 27 t[178]87:[151]f[170]6,96:[151]f[170]24,15
  16. 28 [129]i[178]1[164]18[169]3
  17. 29 [151]f[170]1,[197]([202](a$,i,2)):[151]f[170]4,33
  18. 30 [129]j[178]1[164]t[172][197]([202](a$,i[170]2,1)):[130]
  19. 31 [151]f[170]4,0:[130]:[142]
  20. 32 [143] disk error channel
  21. 33 [159]15,dv,15:[132]15,er,er$,a,a:[160]15
  22. 57 [143] any key-get a$*
  23. 58 x[178]0:y[178]24:[141]66:[153]"/           please press a key close       ononon"
  24. 62 [161]a$:[139]a$[178]""[167]70:[142]
  25. 64 [143] print at*
  26. 66 [151]211,x:[151]214,y:[158]58732:[142]
  27. 69 [143] multitask *
  28. 70 [139]jj[178]nc[171]2[167]jj[178][171]1
  29. 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
  30. 72 [143] erases card
  31. 73 [158]mt[170]3,x,x[170]3,y,y[170]4,00,sc:[142]
  32. 110 [143] start up
  33. 111 [134]va$(13),vb$(13),st$(3,12):f[178]54272:[129]i[178]f[164]f[170]78:[151]i,0:[130]:mt[178]49152
  34. 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)"
  35. 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]""
  36. 114 co$(3)[178]"stop":s1$(0)[178]"get":s1$(1)[178]"(NULL)":s1$(2)[178]"(NULL)":s1$(3)[178]"or"
  37. 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]
  38. 116 bk$[178]"!##$cmdcmdcmdcmd+loglog-cmdcmdcmdcmd+loglog-cmdcmdcmdcmd+loglog-cmdcmdcmdcmd\**+cmdcmdcmdcmdonononon"
  39. 117 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13)
  40. 118 [143] deck&shuffle
  41. 119 nc[178]52:jj[178][171]1:[134]s(nc):[129]i[178]0[164]nc[171]1:s(i)[178]i:[130]
  42. 120 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
  43. 121 [139]jj[179][177]nc[171]2[167]120
  44. 122 st$(0,1)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait":st$(0,0)[178]"(NULL)(NULL)wait":st$(3,0)[178]"<sgnwait"
  45. 123 st$(0,9)[178]"atnpeekcmdcmdlenstr$cmdcmdvalasccmdcmdchr$left$cmdcmdright$mid$wait":st$(3,2)[178]"usrfrecmdcmd<sgncmdcmdpossqrwait"
  46. 124 st$(0,8)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(0,3)[178]"atnpeekcmdcmdright$mid$wait"
  47. 125 st$(3,8)[178]"getnewcmdcmd-*cmdcmd/^cmdcmdandorcmdcmdstep+wait":st$(0,7)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  48. 126 st$(3,9)[178]"getnewcmdcmdtab(tocmdcmdfnspc(cmdcmdthennotcmdcmdstep+wait":st$(3,7)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdintabscmdcmdstep+wait"
  49. 127 st$(3,1)[178]"usrfrecmdcmdpossqrwait":st$(0,2)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  50. 128 st$(0,6)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(3,6)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdstep+wait"
  51. 129 st$(3,3)[178]"getnewcmdcmdstep+wait":st$(0,5)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  52. 130 st$(3,5)[178]"getnewcmdcmd>=cmdcmdstep+wait":st$(0,4)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
  53. 131 st$(3,4)[178]"getnewcmdcmd<sgncmdcmdstep+wait":
  54. 132 st$(2,9)[178]"abcmdcmdcdcmdcmdefcmdcmdghcmdcmdij":st$(2,8)[178]"abcmdcmdklcmdcmdmncmdcmdopcmdcmdij"
  55. 133 st$(2,7)[178]"abcmdcmdstcmdcmdqrcmdcmduvcmdcmdij":st$(2,6)[178]"abcmdcmdstcmdcmdqrcmdcmdij"
  56. 134 st$(2,5)[178]"abcmdcmdqrcmdcmdij":st$(2,4)[178]"abcmdcmdstcmdcmdij":st$(2,3)[178]"abcmdcmdij"
  57. 135 st$(2,2)[178]"wxcmdcmdstcmdcmdyz":st$(2,1)[178]"wxcmdcmdyz":st$(2,0)[178]"st"
  58. 136 [129]i[178]2[164]3:[129]j[178]10[164]12:st$(i,j)[178]"01cmdcmd23cmdcmd45cmdcmd67cmdcmd89":[130]:[130]
  59. 137 st$(1,9)[178]"(NULL)(NULL)cmdcmdrndlogcmdcmd(NULL)sincmdcmdexpcoscmdcmd(NULL)(NULL)wait"
  60. 138 st$(1,8)[178]"(NULL)(NULL)cmdcmd#$cmdcmd%&cmdcmd*+cmdcmd(NULL)(NULL)wait"
  61. 139 st$(1,6)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd(NULL)(NULL)wait"
  62. 140 st$(1,5)[178]"(NULL)(NULL)cmdcmd<>cmdcmd(NULL)(NULL)wait"
  63. 141 st$(1,4)[178]"(NULL)(NULL)cmdcmd\^cmdcmd(NULL)(NULL)wait"
  64. 142 st$(1,7)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd_=cmdcmd(NULL)(NULL)wait"
  65. 143 st$(1,1)[178]"spc(thencmdcmdnotstep":st$(1,2)[178]"spc(thencmdcmd\^waitcmdcmdwaitnotstep"
  66. 144 st$(1,0)[178]"\^wait":st$(1,3)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
  67. 145 [129]i[178]0[164]3:st$(i,11)[178]"()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;":[130]
  68. 146 st$(0,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  69. 147 st$(1,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  70. 148 st$(1,12)[178]"01cmdcmd23cmdcmd45cmdcmd67cmdcmd89"
  71. 149 st$(0,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  72. 150 st$(2,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  73. 151 st$(3,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
  74. 154 [134]b(4,52),c(8)
  75. 158 et[178]100:el[178]et:lv[178]1:bn[178]500:pc[178]10:lf[178]1
  76. 162 [129]i[178]5[164]8:x(i)[178]2:y(i)[178]9[170]i:[130]
  77. 198 [142]
  78. 199 [143] print card or erase*
  79. 200 x[178]x(i):y[178]y(i):[141]66
  80. 202 ca[178]b(i,c(i))
  81. 203 su[178][165]s(ca):va[178][165]v(ca)
  82. 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
  83. 206 [151]f[170]24,0:[151]f[170]24,15:[151]f[170]4,129:[151]f[170]4,128
  84. 208 [139]c(i)[179][177]0[167]220
  85. 214 [143] erase card*
  86. 216 [141]73:[142]
  87. 220 [153]co$(su);va$(va);"<<>cmdcmdcmdcmd";s$(su);"  ^cmdcmdcmdcmdtab(  ^cmdcmdcmdcmdtab(  ";s1$(su);
  88. 222 [153]"cmdcmdcmdcmdsgn==";vb$(va);"ononononcmdcmdcmd";st$(su,va);:[142]
  89. 299 [143] update board
  90. 300 y[178]7:x[178]12[171][195]([196](lv)):[141]66: [153]""lv
  91. 304 y[178]8:x[178]12[171][195]([196](el)):[141]66:[153]""el
  92. 308 y[178]9:x[178]12[171][195]([196](ps)):[141]66:[153]""ps
  93. 312 y[178]10:x[178]12[171][195]([196](lf)):[141]66:[153]""lf
  94. 316 [142]
  95. 322 [143] bad choice noise
  96. 326 [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
  97. 330 [129]t[178]1[164]100:[130]:[151]f[170]11,32
  98. 334 pp[178]pp[170]1:[139]pp[178]5[167]pp[178]1
  99. 338 [139]g(pp)[178]0[167]334
  100. 342 x[178]x(pp[170]4)[171]1:y[178]y(pp[170]4):[141]66:[153]"%wait":[142]
  101. 346 pp[178]pp[171]1:[139]pp[178]0[167]pp[178]4
  102. 350 [139]g(pp)[178]0[167]346
  103. 354 x[178]x(pp[170]4)[171]1:y[178]y(pp[170]4):[141]66:[153]"%wait":[142]
  104. 359 [143] guess update
  105. 360 x[178]6:y[178]08 :[141]66:[153]"      "
  106. 361 x[178]12[171][195]([196](el)):[141]66:[153]""el:[142]
  107. 369 [143] update score
  108. 370 x[178]6:y[178]09 :[141]66:[153]"      "
  109. 371 x[178]12[171][195]([196](ps)):[141]66:[153]""ps:[142]
  110. 379 [143] reprint poss
  111. 380 x[178]2:y[178]14:[141]66:[153]"black spot":y[178]y[170]1:[141]66:[153]"black face"
  112. 389 x[178]2:y[178]y[170]1:[141]66:[153]"red  spot":y[178]y[170]1:[141]66:[153]"red  face":[142]
  113. 480 [153]"load":[151]53280,bd:[151]53281,1:[151]53272,31:[151]198,0
  114. 481 [158]mt[170]3,0,39,0,24,0,sc:[158]mt[170]3,0,13,0,24,160,bd
  115. 482 [158]mt[170]3,0,12,6,11,160,6:[158]mt[170]3,0,12,13,18,160,2
  116. 483 [158]mt[170]3,0,12,1,3,160,0:[158]mt[170]3,0,12,20,23,160,0:[151]646,2
  117. 484 x[178]2:y[178]14:[141]66:[153]"black spot":y[178]y[170]1:[141]66:[153]"black face"
  118. 485 x[178]2:y[178]y[170]1:[141]66:[153]"red  spot":y[178]y[170]1:[141]66:[153]"red  face"
  119. 486 x[178]0:y[178]0:[141]66:[153]"stop!###########$":y[178]y[170]1:[141]66:[153]"+-
  120. 487 y=y+1:gosub66:print"[170][171]":y=y+1:gosub66:     print"[170][171]"
  121. 488 y=y+1:gosub66:print"[144]\***********+"
  122. 490 x=2:y=  2:gosub66:poke646,0:print" collins "
  123. 492 x=2:y=21 :gosub66:print" q -quit ":y=y+1:gosub66:print" h -help "
  124. 496 x=1:y=7:gosub66:poke646,6:print"level":y=y+1:gosub66:print"tries"
  125. 497 y=y+1:gosub66:print"score":y=y+1:gosub66:print"lives"
  126. 498 sysmt+6,216
  127. 500 sysmt+9,216:sysmt+3,14,39,0,24,0,sc
  128. 504 fori=1to52:b(0,i)=s(i-1):next:c(0)=52:fori=1to4:c(i)=0:next
  129. 506 fori=1to4:y(i)=4:x(i)=5