Loadstar 103/103.d81/bisley

Commodore BASIC | 1993-01-01 | 8.1 KB | 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"
506 [158]mt[170]18,12,"openfor a regular game enter 1"
508 [158]mt[170]18,14,"openfor a harder game enter 2"
510 [161]a$:[139]a$[178]""[176]a$[179]"1"[176]a$[177]"2"[167]510
518 tf[178][197](a$)[171]1:[151]53280,bd:[151]53281,1:[153]"load"
519 x[178]10:[129]i[178]0[164]3:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
520 x[178]10:[129]i[178]4[164]9:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
521 x[178]1:[129]i[178]10[164]16:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
522 x[178]16:[129]i[178]17[164]20:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
523 [129]i[178]0[164]20:c(i)[178]0:[130]: [158]mt[170]3,0,39,0,24,tc,t3:ws[178]1
524 [151]646,hl:[129]i[178]00[164]03:x[178]x(i):y[178]y(i):[141]66:[153]" f  ":[130]:[153]"wait"
528 [129]i[178]4[164]9:x[178]x(i):y[178]y(i)[171]1:[141]66:[153]" ";[202](ch$,i[171]3,1);"  ":[130]
530 [158]mt[170]3,3,5,5,18,160,hl:[158]mt[170]3,0,39,24,24,160,hl
532 x[178]3:y[178]24:[141]66:[151]646,hl:[153]"h - help                f1 - quit";
536 [151]646,hl:  x[178]4:y[178]6:[141]66:[153]"bcmdicmdscmdlcmdecmdywait"
538 [158]mt[170]6,208:[158]mt[170]6,224:[141]75:[158]mt[170]3,0,39,0,24,tc,t3:ws[178]2
544 [151]646,hl:[129]i[178]17[164]20:x[178]x(i):y[178]y(i):[141]66:[153]" f  ":[130]:[153]"wait"
546 [158]mt[170]3,0,39,24,24,160,hl
547 x[178]3:y[178]24:[141]66:[151]646,hl:[153]"h - help                f1 - quitwait";
548 [129]i[178]10[164]16:x[178]x(i):y[178]y(i)[171]1:[141]66:[153]" ";[202](ch$,i[171]3,1);"  ":[130]
550 [141]75:[158]mt[170]6,216:[158]mt[170]6,232:[158]mt[170]9,208:ws[178]1
559 [141]15
560 x[178]10:[129]i[178]0[164]3:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
562 x[178]10:[129]i[178]4[164]9:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
563 x[178]1:[129]i[178]10[164]16:y(i)[178]8:x(i)[178]x:x[178]x[170]5:[130]
564 x[178]16:[129]i[178]17[164]20:y(i)[178]1:x(i)[178]x:x[178]x[170]5:[130]
565 [129]i[178]0[164]20:c(i)[178]0:[130]:ws[178]1
566 [139]tf[178]1[167]570
568 [129]i[178]0[164]3:b(i,1)[178]13[172]i:c(i)[178]1:[141]200:[130]
570 k[178]51:[129]j[178]1[164]4:[129]i[178]4[164]16
571 [139]tf[178]1[167]582
572 [139]j[178]1[175]i[179]8[167] [130]
574 [139][165]v(g(k))[179][177]0[167]582
578 k[178]k[171]1:[139]k[178][171]1[167]594
580 [137]574
582 c(i)[178]c(i)[170]1:b(i,c(i))[178]g(k):[141]190:y(i)[178]y(i)[170]2:k[178]k[171]1:[139]k[178][171]1[167]594
586 [130]:[130]
594 [129]i[178]4[164]16:y(i)[178]y(i)[171]2:[130]
600 [151]646,hl:[158]mt[170]18,23," from wait":[141]20
604 [139]i[178]14[167][141]90:[137]600
610 [139]i[177]14[167]800
614 [139]c(i[170]3)[178]0[167][141]90:[137]600
620 i[178]i[170]3:fr[178]i:fc[178]b(i,c(i)):fs[178][165]s(fc):fv[178][165]v(fc)
624 [139]fv[179][177]0[175]fv[179][177]12[167]700
630 [141]300:[139]fv[178]12[167]650
634 i[178]fs:c(i)[178]c(i)[170]1:b(i,c(i))[178]fc:[141]190:[137]658
650 i[178]17[170]fs:c(i)[178]c(i)[170]1:b(i,c(i))[178]fc:[141]190:[137]658
658 [139]c(0)[170]c(1)[170]c(2)[170]c(3)[170]c(17)[170]c(18)[170]c(19)[170]c(20)[178]52[167]150
662 [137]600
700 [151]646,hl:[158]mt[170]18,23,"  to  wait":[141]20
702 [151]646,t3: [158]mt[170]18,23,"@@@@@@@wait"
704 [139]i[177]14[167]726
708 [139]i[179]14[167] 740
712 [139]fv[179][177][165]v(b(0[170]fs,c(0[170]fs)))[170]1[167]718
714 i[178]fr:[141]300:[137]634
718 [139]fv[179][177][165]v(b(17[170]fs,c(17[170]fs)))[171]1[167][141]90:[137]600
722 i[178]fr:[141]300:[137]650
726 [145]i[171]14[137]736,159,730
730 [141]900:[137]700
736 [141]77:[137]700
740 t2[178]i[170]3:sc[178]b(t2,c(t2)):sv[178][165]v(sc):ss[178][165]s(sc)
744 [139]c(t2)[178]0[167][141]90:[137]600
748 [139]fs[179][177]ss[167][141]90:[137]600
752 [139][182](fv[171]sv)[179][177]1[167][141]90:[137]600
756 c(t2)[178]c(t2)[170]1:b(t2,c(t2))[178]fc:[141]300:[139]c(t2)[177]6[167]764
760 y(t2)[178]y(t2)[170]2:i[178]t2:[141]190:[137]600
764 i[178]t2:[141]190:[137]600
800 [145]i[171]14[137]810,159,820
810 [141]77:[137]600
820 [141]900:[137]600
900 [139]ws[178]1[167][158]mt[170]6,208:[137]908
902 [158]mt[170]6,216
908 [151]53281,0:[158]mt[170]3,0,39,0,24,160,bd:[153]"":[151]646,bd
910 [153]"sys  b i s l e y  ":[153]"open"
912 [153]"aces and kings are played to the"
914 [153]"foundation where aces are built upward"
916 [153]"by suit, kings built downward by suit.
918 print"it does not matter where two founda-
920 [153]"tions of the same suit meet.  the game
922 print"is won if all cards are played to the
924 [153]"foundation.":[153]
926 [153]"in the regular game aces are dealt to
928 print"the foundation. in the harder game all
930 [153]"cards are dealt to the tableau. only
940 print"the top (completely showing) card of a
942 [153]"column can be moved by pressing 1 thru
944 print"d. move it to the foundation by hitting
945 [153]"f, or to a column that has a top card
947 print"of the same suit, one higher or lower.
949 [153]"the board is displayed in two parts.
950 print"use  s  to switch to the other screen."
951 print"press f1 to end a game.
954 [153]"         sys please press a key "
990 [141]62
992 [151]53281,1
994 [145]ws[137]995,996
995 [158]mt[170]9,208:[137]999
996 [158]mt[170]9,216
999 [151]53280,bd:[142]
6000 [153]"load":[151]53272,21:[151]v[170]21,0:[151]56,160:[156]
6020 [137]40000
10000 [159]15,8,15,"s0:bisley":[160]15:[148]"bisley",8:[128]
40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]