home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 101
/
101.d81
/
baroness
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
216 lines
1 rem save"new deck v3.3",8
2 poke52,56:poke51,0:clr:poke53280,0:poke53281,0
3 dv=peek(186):ifdv<8thendv=8
5 print"[147][159]":print"[158] [194]reak out the cards
9 mt[178]52480:bd[178]08:tc[178]127:t3[178]15:hl[178]6:wt[178]1
10 [137]500
19 [143] choice*
20 [141]62
21 [129]i[178]1[164]cc:[139]a$[178][202](ch$,i,1)[167][142]
22 [130]:[137]20
25 [143] charge*
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]
57 [143] any key-get a$*
58 x[178]10:y[178]24:[141]66:[153]" please press a key ononon"
62 [161]a$:[139]a$[178]""[167]70:[142]
64 [143] print at*
66 [151]211,x:[151]214,y:[158]58732:[142]
69 [143] multitask *
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
72 [143]printbl$
73 [158]mt[170]3,x,x[170]3,y,y[170]4,tc,t3:[142]
79 [143]customize
80 [141]512
81 [158]mt[170]3,3,38,24,24,160,hl
82 [158]mt[170]3,18,36,11,17,160,hl
84 x[178]19:y[178]12:[141]66:[151]646,hl: [153]"1. border color"
85 y[178]y[170]1:[141]66:[153]"2. tile color"
86 y[178]y[170]1:[141]66:[153]"3. tile shape "
87 y[178]y[170]1:[141]66:[153]"4. title color"
88 y[178]y[170]1:[141]66:[153]"5. play game "
90 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]90
92 [145][197](a$)[137]94,96,100,106, 109
94 bd[178]bd[170]1:[139]bd[178]16[167]bd[178]0:
95 [151]53280,bd:[137]90
96 t3[178]t3[170]1:[139]t3[178]16[167]t3[178]0
97 [137]80
100 wt[178]wt[170]1:[139]wt[178]5[167]wt[178]1
102 tc[178]t5(wt):[137]80
106 hl[178]hl[170]1:[139]hl[178]16[167]hl[178]0
107 [139]hl[178]1[167]hl[178]2
108 [137]80
109 [142]
110 [143] start up
111 [134]va$(13),vb$(13),st$(3,12) :f[178]54272:[129]i[178]f[164]f[170]78:[151]i,0:[130]
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)":lo[178]300
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]:[141]350
116 bk$[178]"!##$cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd\++*cmdcmdcmdcmdonononon"
117 bl$[178]"list@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmd@@@@cmdcmdcmdcmdonononon"
119 b1$[178]"list!##$cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd\++*cmdcmdcmdcmdonononon"
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]
130 [143] shuffle
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(08),y(08),c(08),b(7,10),dk(52),ws(52)
140 ch$[178]"1234567 cqh":cc[178][195](ch$):dk[178]0:ws[178]08
144 x(0)[178]29:y(0)[178]16:x(08)[178]34:y(8)[178]16
148 [142]
149 [143] end game
150 x[178]6:y[178]04:[141]66:[153]" tantantantantantantantantan "
152 y[178]y[170]1:[141]66:[153]" "
153 y[178]y[170]1:[141]66:[153]" bonus! "
154 y[178]y[170]1:[141]66:[153]" "
156 y[178]y[170]1:[141]66:[153]" tantantantantantantantantan "
157 g7[178]g7[170] 50
160 [158]mt[170]3,2,22,10,16,160,hl
162 cp[178]5[172](cp[171]12):[139]cp[179]0[167]cp[178]0
164 g7[178]g7[170]cp:gh[178]gh[170]1:[139]g7[177]hi[167]hi[178]g7
166 us[178]us[170]g7:ga[178][181](us[173]gh[170].5): [139]g7[179]lo[167]lo[178]g7
168 [141]450
169 [158]mt[170]3,2,38,24,24,160,hl
170 x[178]4:y[178]18:[141]66: [153]" tantantantantantantantantantantantantantantantan "
172 y[178]y[170]1:[141]66:[153]" 1. new game "
173 y[178]y[170]1:[141]66:[153]" 2. customize "
174 y[178]y[170]1:[141]66: [153]" 3. to loadstar "
176 y[178]y[170]1:[141]66:[153]" tantantantantantantantantantantantantantantantan "
178 [141]62:[139](a$)[179]"1"[176](a$)[177]"3"[167]178
180 [145][197](a$)[137]511,184,40000
184 [141]80:[141]511:[137]534
199 [143] print card or erase*
200 x[178]x(i):y[178]y(i):[141]66
202 ca[178]b(i,c(i)):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]30:[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
208 [139]c(i)[179][177]0[167]220
214 [143] erase card*
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]
299 [143] deal
300 [129]i[178]1[164]5:[139]c(dk)[178]0[167][142]
304 c(i)[178]c(i)[170]1:b(i,c(i))[178]dk(c(dk)):c(dk)[178]c(dk)[171]1:y(i)[178]y(i)[170]1:[141]200
306 [139]c(dk)[178]2[167]310
308 [130]
309 [142]
310 [129]i[178]6[164]7
311 [151]646,hl:x[178]x(i):y[178]y(i):[141]66:[153]"onon ";[202]([196](i),2,1);" wait"
312 c(i)[178]1:b(i,1)[178]dk(c(dk)):c(dk)[178]c(dk)[171]1:[141]200:[130]:x[178]x(dk):y[178]y(dk)
314 [141]66:[141]73:[142]
319 [143] play one to waste
320 [143]ifc(i)<2then336
324 x[178]x(i):y[178]y(i):[141]66:[141]73:y(i)[178]y(i)[171]1:c(i)[178]c(i)[171]1:[141]200
328 c(i)[178]c(i)[170]1:x[178]x(ws):y[178]y(ws):[141]66: :[141]202:c(i)[178]c(i)[171]1
332 [142]
336 c(ws)[178]c(ws)[170]1:ws(c(ws))[178]b(i,c(i)):c(i)[178]c(i)[171]1:[141]200:c(i)[178]c(i)[170]1
340 x[178]x(ws):y[178]y(ws):[141]66:[141] 202:c(i)[178]c(i)[171]1:[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\^waitc