home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 108
/
108.d81
/
chameleon
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
9KB
|
238 lines
2 poke56,56:poke51,0:clr:dv=peek(186):ifdv<8thendv=8
3 poke788,52
4 print"[147][158] a [195]ollins type solitaire ..."
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
6 hl=11:sk=13:poke16383,31
7 dimiv,j,k,mc,mk,ms,mv,pl,sk,t2,t6,t7,tc,te,ts,tv,a$,bk$,ch$,mm,lo
8 gosub111:print"[147][146]":poke53272,31
10 goto482
20 gosub62
21 fori=1tolen(ch$):ifa$=mid$(ch$,i,1)thenreturn
22 next:goto20
26 a$="251331421502421502"
27 t=87:pokef+6,96:pokef+24,15
28 fori=1to18step3
29 pokef+1,val(mid$(a$,i,2)):pokef+4,33
30 forj=1tot*val(mid$(a$,i+2,1)):next
31 pokef+4,0:next:return
58 x=0:y=24:gosub66:print"/ please press a key [160] [145][145][145]"
62 geta$:ifa$=""then70:return
66 poke211,x:poke214,y:sys58732:return
69 rem multitask *
70 ifjj=nc-2thenjj=-1
71 jj=jj+1:j%=jj+int(rnd(0)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp:goto62
90 pokef+24,15:pokef+8,4:pokef+12,63:pokef+13,17:pokef+11,33
92 fort=1to100:next:pokef+11,32:return
111 dimva$(13),vb$(13),st$(4,12),co$(3),s$(3),s1$(3)
112 data"[216]","[203]","[202]","[201]","[200]","[199]","[198]","[197]","[196]","&","[195]","[194]","[217]"
113 s$(0)="[162]":s$(1)="[173]":s$(2)="[192]":s$(3)="[193]":co$(0)="[144]":co$(1)="":co$(2)=""
114 co$(3)="[144]":s1$(0)="[161]":s1$(1)="[218]":s1$(2)="[223]":s1$(3)="[176]"
115 data"[204]","[215]","[214]","[213]","[212]","[211]","[210]","[209]","[208]","'","[207]","[206]","[205]"
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]"
117 deffns(x)=int(x/13):deffnv(x)=x-13*int(x/13)
118 f=54272:fori=ftof+78:pokei,0:next:mt=49152
119 nc=52:jj=-1:dims(nc):fori=0tonc-1:s(i)=i:next
120 jj=jj+1:j%=jj+int(rnd(0)*(nc-jj)):temp=s(jj):s(jj)=s(j%):s(j%)=temp
121 ifjj<>nc-2then120
122 st$(0,1)="[215][216][157][157][217][218][146]":st$(0,0)="[211][212][146]":st$(3,0)="[179][180][146]"
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]"
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]"
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]"
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]"
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]"
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]"
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]"
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]"
131 st$(3,4)="[161][162][157][157][179][180][157][157][169][170][146]":
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"
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"
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"
135 st$(2,2)="wx[157][157]st[157][157]yz":st$(2,1)="wx[157][157]yz":st$(2,0)="st"
136 fori=2to3:forj=10to12:st$(i,j)="01[157][157]23[157][157]45[157][157]67[157][157]89":next:next
137 st$(1,9)="[219][220][157][157][187][188][157][157][223][191][157][157][189][190][157][157][221][255][146]"
138 st$(1,8)="[219][220][157][157]#$[157][157]%&[157][157]*+[157][157][221][255][146]"
139 st$(1,6)="[219][220][157][157]\^[157][157]<>[157][157][221][255][146]"
140 st$(1,5)="[219][220][157][157]<>[157][157][221][255][146]"
141 st$(1,4)="[219][220][157][157]\^[157][157][221][255][146]"
142 st$(1,7)="[219][220][157][157]\^[157][157]<>[157][157]_=[157][157][221][255][146]"
143 st$(1,1)="[166][167][157][157][168][169]":st$(1,2)="[166][167][157][157]\^[146][157][157][146][168][169]"
144 st$(1,0)="\^[146]":st$(1,3)="[219][220][157][157][221][255][146]"
145 fori=0to3:st$(i,11)="()[157][157]>?[157][157]45[157][157]<=[157][157]:;":next
146 st$(0,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
147 st$(1,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
148 st$(1,12)="01[157][157]23[157][157]45[157][157]67[157][157]89"
149 st$(0,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
150 st$(2,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
151 st$(3,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
152 fori=0to12:readva$(i):next:fori=0to12:readvb$(i):next
154 dimdk(nc),b(10,nc-16),x(15),y(15),c(15)
156 dk=0:mc=10
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
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
162 y(5)=5:y(0)=11
198 return
200 x=x(i):y=y(i):gosub66:ifc(i)=0then224
202 ca=b(i,c(i))
203 su=fns(ca):va=fnv(ca)
204 pokef+24,6:pokef+5,128:pokef+4,129:fort=1to20:next:pokef+4,128:pokef+5,0
206 pokef+24,0:pokef+24,15:pokef+4,129:pokef+4,128
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);
222 print"[157][157][157][157][180][178][178]";vb$(va);"[145][145][145][145][157][157][157]";st$(su,va);:return
224 sysmt+3,x,x+3,y,y+4,00,sk:return
230 ifmk<2thenreturn
232 ifim=0then return
234 fori=2to4:ifc(i)=0then260
238 t7=fnv(b(i,c(i))):ift7=ivthen246
240 ift7=0andmv=12then260
242 ift7-1=mvthen260
246 next
250 ifmv=ivthen260
254 t6=b(6+ms,c(6+ms)):iffnv(t6)=12andmv=0then260
256 ifc(6+ms)=0then259
258 iffnv(t6)+1=mvthen260
259 poke646,sk:i=10:gosub200:poke53280,12:return
260 x=x(10):y=y(10):gosub66:printbk$:poke53280,2: return
270 pl=1:ifc(t2)=0thenpl=2
272 iffv=12andtv=0thenpl=2
274 iffv+1=tvthenpl=2
276 return
280 pl=1:ifc(t2)=0andfv=ivthenpl=2
284 iftv=12andfv=0thenpl=2
286 ifc(t2)=0then290
288 iftv+1=fvthenpl=2
290 return
294 y(i)=2+c(i):ifc(i)=0theny(i)=3
296 return
298 y(i)=3+c(i):x=x(i):y=y(i):gosub66:gosub224:goto294
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]"
302 gosub66:return
310 poke646,sk:x=x(11):y=y(11):gosub66
312 print"@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@[157][157][157][157][157][157][157][157]@@@@@@@@":return
380 x=x(10):y=y(10):gosub66:printbk$
390 x=36:y=23:gosub66:poke646,hl:print" [157][157][157]"c(dk);:print"[146]";:return
400 poke646,hl:x=6:y=23:gosub66:print" [157][157][157][157]"g7:return
410 poke646,hl:x=22:y=23:gosub66:print" [157][157][157][157]"c(1):return
416 k=c(i):ifi=5ori=1thenx=x(i):y=y(i):gosub66:gosub224:goto420
418 x=x(i):forj=kto1step-1:y=2+j:gosub66:gosub224:next
420 x=1:y=1:forj=1tok:gosub66:c(i)=j:gosub202:x=x+1:next
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
426 print"[192][192][192][192][192][192][192][192][192]":gosub62:return
440 sysmt+6,208:poke646,02:x=13:y=03:gosub66:print"[192][192][192][192][192][192][192][192][192]"
442 y=y+1:gosub66:print" great "
444 y=y+1:gosub66:print" game! "
446 y=y+1:gosub66:print"[192][192][192][192][192][192][192][192][192]"
450 sysmt+6,208:ifg7>hithenhi=g7
451 gh=gh+1:gt=gt+g7:ga=int(gt/gh):ifg7<lothenlo=g7
452 ifgh=1t