home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / chameleon (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  238 lines
  1. 2 poke56,56:poke51,0:clr:dv=peek(186):ifdv<8thendv=8
  2. 3 poke788,52
  3. 4 print"[147][158]     a [195]ollins type solitaire ..."
  4. 5 dimi,x,y,su,et,mt,s,f,ca,va,t,jj,j%,nc,dv,fc,fr,fs,fv,g7,ga,gh,gt,hi,hl,im,it
  5. 6 hl=11:sk=13:poke16383,31
  6. 7 dimiv,j,k,mc,mk,ms,mv,pl,sk,t2,t6,t7,tc,te,ts,tv,a$,bk$,ch$,mm,lo
  7. 8 gosub111:print"[147][146]":poke53272,31
  8. 10 goto482
  9. 20 gosub62
  10. 21 fori=1tolen(ch$):ifa$=mid$(ch$,i,1)thenreturn
  11. 22 next:goto20
  12. 26 a$="251331421502421502"
  13. 27 t=87:pokef+6,96:pokef+24,15
  14. 28 fori=1to18step3
  15. 29 pokef+1,val(mid$(a$,i,2)):pokef+4,33
  16. 30 forj=1tot*val(mid$(a$,i+2,1)):next
  17. 31 pokef+4,0:next:return
  18. 58 x=0:y=24:gosub66:print"/           please press a key [160]       [145][145][145]"
  19. 62 geta$:ifa$=""then70:return
  20. 66 poke211,x:poke214,y:sys58732:return
  21. 69 rem multitask *
  22. 70 ifjj=nc-2thenjj=-1
  23. 71 jj=jj+1:j%=jj+int(rnd(0)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp:goto62
  24. 90 pokef+24,15:pokef+8,4:pokef+12,63:pokef+13,17:pokef+11,33
  25. 92 fort=1to100:next:pokef+11,32:return
  26. 111 dimva$(13),vb$(13),st$(4,12),co$(3),s$(3),s1$(3)
  27. 112 data"[216]","[203]","[202]","[201]","[200]","[199]","[198]","[197]","[196]","&","[195]","[194]","[217]"
  28. 113 s$(0)="[162]":s$(1)="[173]":s$(2)="[192]":s$(3)="[193]":co$(0)="[144]":co$(1)="":co$(2)=""
  29. 114 co$(3)="[144]":s1$(0)="[161]":s1$(1)="[218]":s1$(2)="[223]":s1$(3)="[176]"
  30. 115 data"[204]","[215]","[214]","[213]","[212]","[211]","[210]","[209]","[208]","'","[207]","[206]","[205]"
  31. 116 bk$="!##$[157][157][157][157][170][188][188][171][157][157][157][157][170][188][188][171][157][157][157][157][170][188][188][171][157][157][157][157]\**+[157][157][157][157][145][145][145][145]"
  32. 117 deffns(x)=int(x/13):deffnv(x)=x-13*int(x/13)
  33. 118 f=54272:fori=ftof+78:pokei,0:next:mt=49152
  34. 119 nc=52:jj=-1:dims(nc):fori=0tonc-1:s(i)=i:next
  35. 120 jj=jj+1:j%=jj+int(rnd(0)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp
  36. 121 ifjj<>nc-2then120
  37. 122 st$(0,1)="[215][216][157][157][217][218][146]":st$(0,0)="[211][212][146]":st$(3,0)="[179][180][146]"
  38. 123 st$(0,9)="[193][194][157][157][195][196][157][157][197][198][157][157][199][200][157][157][201][202][146]":st$(3,2)="[183][184][157][157][179][180][157][157][185][186][146]"
  39. 124 st$(0,8)="[193][194][157][157][203][204][157][157][205][206][157][157][207][208][157][157][201][202][146]":st$(0,3)="[193][194][157][157][201][202][146]"
  40. 125 st$(3,8)="[161][162][157][157][171][172][157][157][173][174][157][157][175][176][157][157][169][170][146]":st$(0,7)="[193][194][157][157][211][212][157][157][209][210][157][157][213][214][157][157][201][202][146]"
  41. 126 st$(3,9)="[161][162][157][157][163][164][157][157][165][166][157][157][167][168][157][157][169][170][146]":st$(3,7)="[161][162][157][157][179][180][157][157][177][178][157][157][181][182][157][157][169][170][146]"
  42. 127 st$(3,1)="[183][184][157][157][185][186][146]":st$(0,2)="[215][216][157][157][211][212][157][157][217][218][146]"
  43. 128 st$(0,6)="[193][194][157][157][211][212][157][157][209][210][157][157][201][202][146]":st$(3,6)="[161][162][157][157][179][180][157][157][177][178][157][157][169][170][146]"
  44. 129 st$(3,3)="[161][162][157][157][169][170][146]":st$(0,5)="[193][194][157][157][209][210][157][157][201][202][146]"
  45. 130 st$(3,5)="[161][162][157][157][177][178][157][157][169][170][146]":st$(0,4)="[193][194][157][157][211][212][157][157][201][202][146]"
  46. 131 st$(3,4)="[161][162][157][157][179][180][157][157][169][170][146]":
  47. 132 st$(2,9)="ab[157][157]cd[157][157]ef[157][157]gh[157][157]ij":st$(2,8)="ab[157][157]kl[157][157]mn[157][157]op[157][157]ij"
  48. 133 st$(2,7)="ab[157][157]st[157][157]qr[157][157]uv[157][157]ij":st$(2,6)="ab[157][157]st[157][157]qr[157][157]ij"
  49. 134 st$(2,5)="ab[157][157]qr[157][157]ij":st$(2,4)="ab[157][157]st[157][157]ij":st$(2,3)="ab[157][157]ij"
  50. 135 st$(2,2)="wx[157][157]st[157][157]yz":st$(2,1)="wx[157][157]yz":st$(2,0)="st"
  51. 136 fori=2to3:forj=10to12:st$(i,j)="01[157][157]23[157][157]45[157][157]67[157][157]89":next:next
  52. 137 st$(1,9)="[219][220][157][157][187][188][157][157][223][191][157][157][189][190][157][157][221][255][146]"
  53. 138 st$(1,8)="[219][220][157][157]#$[157][157]%&[157][157]*+[157][157][221][255][146]"
  54. 139 st$(1,6)="[219][220][157][157]\^[157][157]<>[157][157][221][255][146]"
  55. 140 st$(1,5)="[219][220][157][157]<>[157][157][221][255][146]"
  56. 141 st$(1,4)="[219][220][157][157]\^[157][157][221][255][146]"
  57. 142 st$(1,7)="[219][220][157][157]\^[157][157]<>[157][157]_=[157][157][221][255][146]"
  58. 143 st$(1,1)="[166][167][157][157][168][169]":st$(1,2)="[166][167][157][157]\^[146][157][157][146][168][169]"
  59. 144 st$(1,0)="\^[146]":st$(1,3)="[219][220][157][157][221][255][146]"
  60. 145 fori=0to3:st$(i,11)="()[157][157]>?[157][157]45[157][157]<=[157][157]:;":next
  61. 146 st$(0,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
  62. 147 st$(1,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
  63. 148 st$(1,12)="01[157][157]23[157][157]45[157][157]67[157][157]89"
  64. 149 st$(0,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
  65. 150 st$(2,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
  66. 151 st$(3,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
  67. 152 fori=0to12:readva$(i):next:fori=0to12:readvb$(i):next
  68. 154 dimdk(nc),b(10,nc-16),x(15),y(15),c(15)
  69. 156 dk=0:mc=10
  70. 158 fori=1to4:y(i)=3:x(i)=5*i+15:next:x(6)=1:x(7)=4:x(8)=4:x(9)=7:x(10)=19
  71. 160 x(11)=11:x(5)=13:x(0)=13:y(6)=8:y(7)=2:y(8)=14:y(9)=8:y(10)=10:y(11)=17
  72. 162 y(5)=5:y(0)=11
  73. 198 return
  74. 200 x=x(i):y=y(i):gosub66:ifc(i)=0then224
  75. 202 ca=b(i,c(i))
  76. 203 su=fns(ca):va=fnv(ca)
  77. 204 pokef+24,6:pokef+5,128:pokef+4,129:fort=1to20:next:pokef+4,128:pokef+5,0
  78. 206 pokef+24,0:pokef+24,15:pokef+4,129:pokef+4,128
  79. 220 printco$(su);va$(va);"[179][179][177][157][157][157][157]";s$(su);"  [174][157][157][157][157][163]  [174][157][157][157][157][163]  ";s1$(su);
  80. 222 print"[157][157][157][157][180][178][178]";vb$(va);"[145][145][145][145][157][157][157]";st$(su,va);:return
  81. 224 sysmt+3,x,x+3,y,y+4,00,sk:return
  82. 230 ifmk<2thenreturn
  83. 232 ifim=0then return
  84. 234 fori=2to4:ifc(i)=0then260
  85. 238 t7=fnv(b(i,c(i))):ift7=ivthen246
  86. 240 ift7=0andmv=12then260
  87. 242 ift7-1=mvthen260
  88. 246 next
  89. 250 ifmv=ivthen260
  90. 254 t6=b(6+ms,c(6+ms)):iffnv(t6)=12andmv=0then260
  91. 256 ifc(6+ms)=0then259
  92. 258 iffnv(t6)+1=mvthen260
  93. 259 poke646,sk:i=10:gosub200:poke53280,12:return
  94. 260 x=x(10):y=y(10):gosub66:printbk$:poke53280,2:      return
  95. 270 pl=1:ifc(t2)=0thenpl=2
  96. 272 iffv=12andtv=0thenpl=2
  97. 274 iffv+1=tvthenpl=2
  98. 276 return
  99. 280 pl=1:ifc(t2)=0andfv=ivthenpl=2
  100. 284 iftv=12andfv=0thenpl=2
  101. 286 ifc(t2)=0then290
  102. 288 iftv+1=fvthenpl=2
  103. 290 return
  104. 294 y(i)=2+c(i):ifc(i)=0theny(i)=3
  105. 296 return
  106. 298 y(i)=3+c(i):x=x(i):y=y(i):gosub66:gosub224:goto294
  107. 300 x=x(11):y=y(11):gosub66:print"[192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157][192][192][192][192][192][192][192][192]"
  108. 302 gosub66:return
  109. 310 poke646,sk:x=x(11):y=y(11):gosub66
  110. 312 print"@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@":return
  111. 380 x=x(10):y=y(10):gosub66:printbk$
  112. 390 x=36:y=23:gosub66:poke646,hl:print"   [157][157][157]"c(dk);:print"[146]";:return
  113. 400 poke646,hl:x=6:y=23:gosub66:print"    [157][157][157][157]"g7:return
  114. 410 poke646,hl:x=22:y=23:gosub66:print"    [157][157][157][157]"c(1):return
  115. 416 k=c(i):ifi=5ori=1thenx=x(i):y=y(i):gosub66:gosub224:goto420
  116. 418 x=x(i):forj=kto1step-1:y=2+j:gosub66:gosub224:next
  117. 420 x=1:y=1:forj=1tok:gosub66:c(i)=j:gosub202:x=x+1:next
  118. 424 poke646,6:x=3:y=7:gosub66:print"[192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157] any key ":y=y+2:gosub66
  119. 426 print"[192][192][192][192][192][192][192][192][192]":gosub62:return
  120. 440 sysmt+6,208:poke646,02:x=13:y=03:gosub66:print"[192][192][192][192][192][192][192][192][192]"
  121. 442 y=y+1:gosub66:print"  great  "
  122. 444 y=y+1:gosub66:print"  game!  "
  123. 446 y=y+1:gosub66:print"[192][192][192][192][192][192][192][192][192]"
  124. 450 sysmt+6,208:ifg7>hithenhi=g7
  125. 451 gh=gh+1:gt=gt+g7:ga=int(gt/gh):ifg7<lothenlo=g7
  126. 452 ifgh=1t