1 REM SAVE"STRATEGY V4.2",9
6 DEFFNS(X)=INT(X/13):DEFFNV(X)=X-13*INT(X/13):NS=13:NC=52
7 NM$="[144][170][171]STRATEGY[170][171]"
8 JJ=-1:DIMS(NC),X(12),Y(12):FORI=0TONC-1:S(I)=I:NEXT
9 POKE198,0
10 GOTO500
19 REM CHOICE*
20 GOSUB62
21 FORI=1TO10:IFA$=MID$(CH$,I,1)THENRETURN
22 NEXT:GOTO20
25 REM CHARGE*
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
57 REM ANY KEY-GET A$*
58 X=10:Y=23:GOSUB66:PRINT" PLEASE PRESS A KEY [145][145][145]"
62 GETA$:IFA$=""THEN70:RETURN
64 REM PRINT AT*
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
80 PRINT"[152]"BT$;:FORI=0TO22:PRINTBG$;:NEXT:PRINTBB$""
82 POKE2023,195:POKE56295,12:FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
84 RETURN
90 PRINTTAB(10)"[213][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][201]"
92 PRINTTAB(10)"[215][146][144] S T R A T E G Y [214]"
94 PRINTTAB(10)"[215][146]                 [214]"
96 PRINTTAB(10)"[215][146] [151]A MAURICE JONES [214]"
97 PRINTTAB(10)"[215][146]    [151]SOLITAIRE    [214]"
98 PRINTTAB(10)"[202][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][203]"
99 RETURN
110 REM START UP
111 DIMVA$(13),C(12),B(12,52),VB$(13):F=54272:FORI=FTOF+78:POKEI,0:NEXT
112 CR$="[216][203][202][201][200][199][198][197][196]&[195][194][217]":CS$="[204][215][214][213][212][211][210][209][208]'[207][206][205]"
115 S$(0)="[162]":S$(1)="[173]":S$(2)="[192]":S$(3)="[193]":CO$(0)="[144]":CO$(1)="":CO$(2)=""
116 CO$(3)="[144]":S1$(0)="[161]":S1$(1)="[218]":S1$(2)="[223]":S1$(3)="[176]"
117 FORI=0TO12:VA$(I)=MID$(CR$,I+1,1):VB$(I)=MID$(CS$,I+1,1):NEXT
118 CH$="12345678QH"
119 FORI=0TO12:READX(I),Y(I):NEXT
120 DATA9,13,17,09,22,09,27,09,32,09,17,16,22,16,27,16,32,16,17,2,22,2,27,2,32,2
122 BK$="!##$[157][157][157][157]@[170][171]%[157][157][157][157]@[170][171]%[157][157][157][157]@[170][171]%[157][157][157][157]\++*[157][157][157][157][145][145][145][145][145]"
123 BL$="[152][191][191][191][191][157][157][157][157][191][191][191][191][157][157][157][157][191][191][191][191][157][157][157][157][191][191][191][191][157][157][157][157][191][191][191][191][157][157][157][157][145][145][145][145][145]"
124 TP$="[213][146][179][179][179][179][179][179][179][179][179][179][179][179][201]":BM$="[202][146][178][178][178][178][178][178][178][178][178][178][178][178][203]"
125 BT$="[192][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][193]"
126 BG$="[199][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][197]"
127 BB$="[194][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
128 CD$="[152][213][209][209][201][157][157][157][157][215][146]  [214][157][157][157][157][215][146]  [214][157][157][157][157][215][146]  [214][157][157][157][157][202][219][219][203]"
129 RETURN
130 REM SHUFFLE
131 IFJJ=NC-2THENRETURN
132 JJ=JJ+1:J%=JJ+INT(RND(0)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP
133 IFJJ<>NC-2THEN131
134 RETURN
199 REM PRINT CARD OR ERASE*
200 X=X(I):Y=Y(I):GOSUB66
202 CA=B(I,C(I)):SU=FNS(CA):VA=FNV(CA)
204 POKEF+24,6:POKEF+5,128:POKEF+4,129:FORT=1TO50:NEXT:POKEF+4,128:POKEF+5,0
206 POKEF+24,0:POKEF+24,15:POKEF+4,129:POKEF+4,128
208 IFC(I)<>0THEN220
214 REM ERASE CARD*
216 PRINTBL$;:RETURN
220 PRINTCO$(SU);VA$(VA);"[179][179][177][157][157][157][157]";S$(SU);"[166][167][174][157][157][157][157][163][170][171][174][157][157][157][157][163][168][169]";S1$(SU);
222 PRINT"[157][157][157][157][180][178][178]";VB$(VA);"[145][145][145][145][145][157][157][157][157]";:RETURN
249 REM PRINT BACK****????
250 X=X(I):Y=Y(I):GOSUB66
251 IFZ8=1THEN258
252 POKEF+24,6:POKEF+5,128:POKEF+4,129:FORT=1TO50:NEXT:POKEF+4,128:POKEF+5,0
254 POKEF+24,0:POKEF+24,15:POKEF+4,129:POKEF+4,128:IFZ9=1THEN RETURN
258 PRINTBK$:RETURN
500 GOSUB111:POKE53280,15:POKE53281,1:PRINT"[147]"CHR$(142)"":POKE53272,31
502 GOSUB80:PRINT"":GOSUB90
504 GOSUB131:GOSUB26
505 FORI=1TO52:B(0,I)=S(I-1):NEXT:C(0)=52:FORI=1TO12:C(I)=0:NEXT
506 GOSUB80
508 X=2:Y=2:GOSUB66:PRINTTP$:Y=3:GOSUB66
509 PRINT"[215][146][144][170][171]STRATEGY[170][171][214]":Y=4:GOSUB66:PRINTBM$"
510 [129]I[178]1[164]12:X[178]X(I):Y[178]Y(I):[141]66:[153]CD$"";:[139]I[177]8[167]522
514 [153]"WAITCMDCMDCLR";  [202]([196](I),2,1);:[137]522
518 [153]"WAITCLRCMDCMDCMDONONF"
522 [130]:X[178]4:Y[178]13:[141]66:[153]"WAIT";BK$
523 X[178]4:Y[178]21:[141]66:[153]"PRINT#ASCASCASCASCASCASCASCASCASCASC":[153]"VALWAIT STOPH - HELP PRINT#CHR$"
524 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$":     WH[178]1
530 [139]C(0)[178]0[167]I[178]0:[141]200:[137]600
532 [139]C(0)[178]1[167]X[178]4:Y[178]13:[141]66;:[153]    BL$
535 I[178]0:[141]200:FC[178]B(0,C(0))
540 [139][165]V(FC)[178]0[167]555
545 X[178]5:Y[178]11:[141]66:[153]"PRINT#SINSINCLRTOPRINT#SINSINSIN":[141]20:[139]I[177]8[167]570
548 X[178]X(0):Y[178]Y(0):[141]66:[153]BL$
550 C(I)[178]C(I)[170]1:B(I,C(I))[178]FC:[141]200:C(0)[178]C(0)[171]1:[137]530
555 X[178]5:Y[178]11:[141]66:[153]"ANY KEY":[141]62:I[178][165]S(FC)[170]9:C(I)[178]1:B(I,C(I))[178]FC
556 X[178]X(0):Y[178]Y(0):[141]66:[153]BL$
557 [141]200:C(0)[178]C(0)[171]1:[137]530
570 [145]I[171]8[137]900,1300
599 [143] PLAY TO F*
600 WH[178]2
604 [129]J[178]1[164]8:[139]C(J)[178]0[167]612
608 K[178]C(J):PP[178][165]S(B(J,K))[170]9:[139][165]V(B(PP,C(PP)))[170]1[178][165]V(B(J,K))[167]640
612 [130]
616 X[178]4:Y[178]8:[141]66:[153]"          "
620 X[178]4:Y[178]9:[141]66:[153]" NO PLAYS "
622 X[178]4:Y[178]10:[141]66:[153]" POSSIBLE "
624 X[178]4:Y[178]11:[141]66:[153]"          "
628 [158]886:[141]58:[158]907:[137]900
640 X[178]5:Y[178]11:[141]66:[153]"PRINT#SINCLRFROMPRINT#SINSIN":[141]20:[139]I[177]8[167]700
644 FC[178]B(I,C(I)):PI[178][165]S(FC)[170]9:[139][165]V(FC)[171]1[179][177][165]V(B(PI,C(PI)))[167]640
648 C(I)[178]C(I)[171]1:[141]200:C(PI)[178]C(PI)[170]1:B(PI,C(PI))[178]FC:I[178]PI:[141]200
652 TC[178]0:[129]J[178]1[164]8:TC[178]TC[170]C(J):[130]:[139]TC[177]0[167]604
660 [137]800
700 [145]I[171]8[137]900,1300
710 [158]886
711 [153]"PRINT#"BT$;
712 [153]"LOAD"BT$;:[129]I[178]0[164]22:[153]BG$;:[130]
713 [151]214,23:[153]:[153]BB$"":[151]2023,195:[151]56295,12
714 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
715 [129]I[178]1[164]8:[139]C(I)[177]30[167]720
716 [130]:[137]740
720 [153]"STOPNO MORE THAN 30 CARDS IN A PILE."
724 [153]"A BETA TESTER MIGHT PUT MORE THAN 30
728 PRINT"CARDS IN A PILE, BUT WHY WOULD
732 [153]"ANYONE ELSE?
734 PRINT:PRINT:PRINT"--MAURICEJONES"
736 GOTO764
740 PRINT"[156]";:FORI=1TO8:PRINT"";MID$(STR$(I),2,1):NEXT
742 PRINT"[144]":FORJ=1TO8:X=4:Y=2*J-1:GOSUB66:IFC(J)=0THEN760
744 FORK=1TOC(J):PRINT"";:I=J:C(I)=K:GOSUB202:NEXT
760 NEXT
764 GOSUB58:SYS907:GOTO1022
800 X=3:Y=6:GOSUB66:PRINT"          "
804 PRINTTAB(3)"   YOU    "
808 PRINTTAB(3)"   WIN!   "
812 PRINTTAB(3)"          "
816 GOTO1002
900 X=3:Y=13:GOSUB66:PRINT"                   "
902 Y=Y+1:GOSUB66:PRINT"                   "
904 Y=Y+1:GOSUB66:PRINT"                   "
905 TC=0:FORI=0TO8:TC=TC+C(I):NEXT
906 X=X+2:Y=Y-1:GOSUB66:PRINT""TC"CARDS LEFT"
1002 X=4:Y=18:GOSUB66:PRINT"[156]                 "
1006 Y=Y+1:GOSUB66:PRINT" 1.NEW GAME      "
1008 Y=Y+1:GOSUB66:PRINT" 2.INSPECT CARDS "
1010 Y=Y+1:GOSUB66:PRINT" 3.TO LOADSTAR   "
1012 Y=Y+1:GOSUB66:PRINT"                 "
1022 GOSUB62:IF A$<"1"ORA$>"3"THEN1022
1024 ONVAL(A$)GOTO505,710,6000
1299 REM HELP
1300 SYS886:Z7=0:PRINT"[147]/":POKE53280,3:POKE53281,3
1304 PRINTTAB(14)"[144][170][171]STRATEGY[170][171]
1308 [153]"  ALL OFCLOSETHE CARDS ARE TURNED ONE AT
1312 PRINT"A TIME. ACES ARE PLAYED TO THE FOUNDA-"
1316 PRINT"TION, OTHER CARDS TO ANY OF THE EIGHT
1320 [153]"NUMBERED PILES. ENTER THE CORRESPONDING
1324 PRINT"NUMBER TO SELECT THE PILE. ANY KEY WILL
1328 [153]"CAUSE AN ACE TO BE PLAYED TO THE
1332 PRINT"FOUNDATION.
1336 [153]"  WHEN ALL CARDS HAVE BEEN PLAYED, THE
1340 PRINT"TOP CARD OF EACH TABLEAU PILE IS AVAIL-
1344 [153]"ABLE TO PLAY TO THE FOUNDATION, BY SUIT
1348 PRINT"IN ASCENDING ORDER TO THE KING.  ENTER"
1352 PRINT"THE NUMBER OF THE PILE FROM WHICH A
1356 [153]"CARD IS TO BE MOVED.
1360 PRINT"  THE GAME IS WON IF ALL CARDS ARE"
1364 PRINT"PLAYED TO THE FOUNDATIONS. THE COMPUTER
1368 [153]"WILL END THE GAME WHEN THERE ARE NO
1372 PRINT"PLAYS LEFT.
1376 [153]"  AT ANY PROMPT Q ENDS THE GAME AND
1378 PRINT"H SHOWS THIS SCREEN.[144]"
1380 GOSUB58:SYS907:POKE53280,15:POKE53281,1:ONWHGOTO545,640
5999 REM RECONNECT*
6000 POKEV+21,0:POKE56,160:CLR
6020 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
6022 PRINT"[147]":POKE53272,21
6025 IFER%<>63THENEND
6030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
6035 PRINT"RUN"
6040 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:STRATEGY":CLOSE15:SAVE"STRATEGY",8:END
60000 END