home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 103
/
103.d81
/
bisley
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
231 lines
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]
10 [151]56,56:[151]51,0:[156]:[137]500
15 [129]i[178]0[164]51:g(i)[178]s(i):[130]:[142]
20 [141]62
21 [129]i[178]1[164]cc:[139]a$[178][202](ch$,i,1)[167][142]
22 [130]:[137]20
26 a$[178]"251331421502421502"
27 t[178]87:[151]f[170]6,96:[151]f[170]24,15
28 [129]i[178]1[164]18[169]3
29 [151]f[170]1,[197]([202](a$,i,2)):[151]f[170]4,33
30 [129]j[178]1[164]t[172][197]([202](a$,i[170]2,1)):[130]
31 [151]f[170]4,0:[130]:[142]
58 x[178]0:y[178]24:[141]66:[153]"/ please press a keyclose ononon"
62 [161]a$:[139]a$[178]""[167]70:[142]
66 [151]211,x:[151]214,y:[158]58732:[142]
70 [139]jj[178]nc[171]2[167]jj[178][171]1
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
73 x[178]x(i):y[178]y(i):[158]mt[170]3,x,x[170]3,y,y[170]4,tc,t3:[142]
75 [129]qq[178]1[164]350:[130]:[142]
77 [145]ws[137]81,85
81 ws[178]2:[158]mt[170]6,208: [158]mt[170]9,216:[142]
85 ws[178]1:[158]mt[170]6,216:[158]mt[170]9,208:[142]
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
92 [129]t[178]1[164]100:[130]:[151]f[170]11,32:[142]
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)
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
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]""
114 co$(3)[178]"stop":s1$(0)[178]"get":s1$(1)[178]"(NULL)":s1$(2)[178]"(NULL)":s1$(3)[178]"or"
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]
122 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13)
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]
131 [139]jj[178]nc[171]2[167][142]
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
133 [139]jj[179][177]nc[171]2[167]131
135 [134]x(21),y(21),c(21),b(21,15),g(51),st$(3,12)
140 ch$[178]"123456789abcdfs"[170][199](133)[170]"h":cc[178][195](ch$):f[178]54272
142 [129]i[178]f[164]f[170]78:[151]i,0:[130]
144 x[178]10:[129]i[178]0[164]3:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
145 x[178]10:[129]i[178]4[164]9:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
146 x[178]1:[129]i[178]10[164]16:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
147 x[178]16:[129]i[178]17[164]20:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
148 [141]350: [142]
150 [151]646,t3:[158]mt[170]18,23,"@@@@@@@@":[158]mt[170]6,208[170](ws[171]1)[172]8
151 [158]mt[170]3,8,30,8,15,160,bd:[151]646,bd
152 [141]26:[158]mt[170]18,09,"you are a winner"
154 wo[178]1:[137]163
159 [139]wo[178]1[167]150
160 [151]646,t3:[158]mt[170]18,23,"@@@@@@@@":[158]mt[170]6,208[170](ws[171]1)[172]8
161 [158]mt[170]3,8,30,7,15,160,bd:[151]646,bd
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"
163 x[178]11:y[178]10:[141]66:[153]" 1. regular game "
164 y[178]y[170]1:[141]66:[153]" 2. harder game "
166 y[178]y[170]1:[141]66:[153]" 3. replay game "
167 y[178]y[170]1:[141]66:[153]" 4. continue game"
168 y[178]y[170]1:[141]66:[153]" 5. to loadstar "
170 y[178]y[170]1:[141]66:[153]" "
172 [161]a$:[139]a$[178]""[167]172
176 [139]a$[179]"1"[176]a$[177]"5"[167]172
180 [145][197](a$)[137]182,184,188,186,6000
182 vv[178]1:tf[178]0:[158]mt[170]9,224:wo[178]0:[137]559
184 vv[178]1:tf[178]1:[158]mt[170]9,224:wo[178]0:[137]559
186 [158]mt[170]9,208[170](ws[171]1)[172]8:[137]600
188 vv[178]1:[158]mt[170]9,224:wo[178]0:[137]560
190 [145]ws[137]192,196
192 [139]i[179]10[167]200
193 ws[178]2:[158]mt[170]6,208:[141]75
194 [158]mt[170]9,216[170]vv[172]16:vv[178]0:[137]200
196 [139]i[177]9[167]200:
198 ws[178]1:[158]mt[170]6,216:[141]75:[158]mt[170]9,208
200 x[178]x(i):y[178]y(i):[141]66
202 ca[178]b(i,c(i))
203 su[178][165]s(ca):va[178][165]v(ca)
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
206 [151]f[170]24,0:[151]f[170]24,15:[151]f[170]4,129:[151]f[170]4,128
207 [139]d8[178]1[176]c(i)[179][177]0[167]220
216 [141]73:[142]
220 [153]co$(su);va$(va);"<<>cmdcmdcmdcmd";s$(su);" ^cmdcmdcmdcmdtab( ^cmdcmdcmdcmdtab( ";s1$(su);
222 [153]"cmdcmdcmdcmdsgn==";vb$(va);"ononononcmdcmdcmd";st$(su,va);:[142]
300 i[178]fr:[139]ws[178]1[175]i[179]10[167]330
301 [139]ws[178]2[175]i[177]9[167]330
302 [139]ws[178]1[167]308
304 [137]320
308 ws[178]2:[158]mt[170]6,208:[141]75
312 [158]mt[170]9,216:[137]330
320 ws[178]1:[158]mt[170]6,216:[141]75: [158]mt[170]9,208
330 c(fr)[178]c(fr)[171]1:i[178]fr:[139]c(fr)[177][178]6[167]340
334 [141]73:y(fr)[178]y(fr)[171]2:[139]y(fr)[179]8[167]y(fr)[178]8
336 [141]200:[142]
340 [141]73:[141]200:[142]
350 st$(0,1)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait":st$(0,0)[178]"(NULL)(NULL)wait":st$(3,0)[178]"<sgnwait"
352 st$(0,9)[178]"atnpeekcmdcmdlenstr$cmdcmdvalasccmdcmdchr$left$cmdcmdright$mid$wait":st$(3,2)[178]"usrfrecmdcmd<sgncmdcmdpossqrwait"
354 st$(0,8)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(0,3)[178]"atnpeekcmdcmdright$mid$wait"
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"
358 st$(3,9)[178]"getnewcmdcmdtab(tocmdcmdfnspc(cmdcmdthennotcmdcmdstep+wait":st$(3,7)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdintabscmdcmdstep+wait"
360 st$(3,1)[178]"usrfrecmdcmdpossqrwait":st$(0,2)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
362 st$(0,6)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmd(NULL)(NULL)cmdcmdright$mid$wait":st$(3,6)[178]"getnewcmdcmd<sgncmdcmd>=cmdcmdstep+wait"
364 st$(3,3)[178]"getnewcmdcmdstep+wait":st$(0,5)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
366 st$(3,5)[178]"getnewcmdcmd>=cmdcmdstep+wait":st$(0,4)[178]"atnpeekcmdcmd(NULL)(NULL)cmdcmdright$mid$wait"
368 st$(3,4)[178]"getnewcmdcmd<sgncmdcmdstep+wait":
370 st$(2,9)[178]"abcmdcmdcdcmdcmdefcmdcmdghcmdcmdij":st$(2,8)[178]"abcmdcmdklcmdcmdmncmdcmdopcmdcmdij"
372 st$(2,7)[178]"abcmdcmdstcmdcmdqrcmdcmduvcmdcmdij":st$(2,6)[178]"abcmdcmdstcmdcmdqrcmdcmdij"
374 st$(2,5)[178]"abcmdcmdqrcmdcmdij":st$(2,4)[178]"abcmdcmdstcmdcmdij":st$(2,3)[178]"abcmdcmdij"
376 st$(2,2)[178]"wxcmdcmdstcmdcmdyz":st$(2,1)[178]"wxcmdcmdyz":st$(2,0)[178]"st"
378 [129]i[178]0[164]3:[129]j[178]10[164]12:st$(i,j)[178]"01cmdcmd23cmdcmd45cmdcmd67cmdcmd89":[130]:[130]
380 st$(1,9)[178]"(NULL)(NULL)cmdcmdrndlogcmdcmd(NULL)sincmdcmdexpcoscmdcmd(NULL)(NULL)wait"
384 st$(1,8)[178]"(NULL)(NULL)cmdcmd#$cmdcmd%&cmdcmd*+cmdcmd(NULL)(NULL)wait"
390 st$(1,6)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd(NULL)(NULL)wait"
392 st$(1,5)[178]"(NULL)(NULL)cmdcmd<>cmdcmd(NULL)(NULL)wait"
394 st$(1,4)[178]"(NULL)(NULL)cmdcmd\^cmdcmd(NULL)(NULL)wait"
396 st$(1,7)[178]"(NULL)(NULL)cmdcmd\^cmdcmd<>cmdcmd_=cmdcmd(NULL)(NULL)wait"
398 st$(1,1)[178]"spc(thencmdcmdnotstep":st$(1,2)[178]"spc(thencmdcmd\^waitcmdcmdwaitnotstep"
400 st$(1,0)[178]"\^wait":st$(1,3)[178]"(NULL)(NULL)cmdcmd(NULL)(NULL)wait"
402 [129]i[178]0[164]3:st$(i,11)[178]"()cmdcmd>?cmdcmd45cmdcmd<=cmdcmd:;":[130]
404 st$(0,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
406 st$(1,10)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
408 st$(0,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
410 st$(2,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
412 st$(3,12)[178]"()cmdcmd^_cmdcmd45cmdcmd[]cmdcmd:;"
420 [142]
500 [141]111:[141]26
501 [153]"load":[153][199](142):[151]53272,31:[151]198,0:mt[178]52480
502 [158]mt[170]3,0,39,0,24,127,3:[158]mt[170]3,04 ,34,06,16,160,3
503 [158]mt[170]18,08,"openwelcome to bisley"
504 [158]mt[170]18,10,"opena maurice jones solitaire"
5