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]