1 POKE56,56:POKE55,0:CLR
2 DV=PEEK(186):IFDV<8THENDV=8
3 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
4 SYS57812"FOURTEENS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
5 SYS57812"FTOOLKIT CC00",DV,0:POKE780,0:POKE781,0:POKE782,204:SYS65493
9 PRINT"[147]"CHR$(142)"":POKE53272,31:POKE198,0:MT=52224
10 GOTO500
19 REM CHOICE*
20 GOSUB62
21 FORI=1TOCC: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=9:Y=24: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
110 REM START UP
111 DIMVA$(13),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]"
113 S$(0)="[162]":S$(1)="[173]":S$(2)="[192]":S$(3)="[193]":CO$(0)="[144]":CO$(1)="":CO$(2)=""
114 CO$(3)="[144]":S1$(0)="[161]":S1$(1)="[218]":S1$(2)="[223]":S1$(3)="[176]"
115 FORI=0TO12:VA$(I)=MID$(CR$,I+1,1):VB$(I)=MID$(CS$,I+1,1):NEXT
116 BK$="!##$[157][157][157][157]#[190][190]#[157][157][157][157]#[190][190]#[157][157][157][157]#[190][190]#[157][157][157][157]\++*[157][157][157][157][145][145][145][145]"
117 BL$="[153]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@"
118 BG$="[155] @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
119 B1$="[155]!##$[157][157][157][157]#[190][190]#[157][157][157][157]#[190][190]#[157][157][157][157]#[190][190]#[157][157][157][157]\++*[157][157][157][157][145][145][145][145]"
122 DEFFNS(X)=INT(X/13):DEFFNV(X)=X-13*INT(X/13)
126 NC=52:NS=13:  JJ=-1:DIMS(NC):FORI=0TONC-1:S(I)=I:NEXT
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
135 DIMX(13),Y(13),C(13),B(13,5),DK(52),WS(52),AG(52)
140 CH$="123456789ABCOQH":CC=LEN(CH$):DK=0:WS=13
144 X(0)=03:Y(0)=16:X(13)=2:Y(13)=17
146 K$="123456789ABC"
148 RETURN
149 REM END GAME
150 X=6:Y=12:GOSUB66:PRINT"[213][192][192][192][192][192][192][192][201]"
152 PRINT"[221]  YOU  [221]
154 [153]"(null)  WIN! (null)
156 PRINT"[202][192][192][192][192][192][192][192][203]"
158 GOTO170
160 Z3=0:X=02:Y=12:GOSUB66:PRINT"                  "
162 PRINT"                  "
164 PRINT"                  "
165 ZX=0:FORI=1TO12:ZX=ZX+C(I):NEXT:ZX=ZX+C(DK)
166 PRINT"[145][145]";ZX;"CARDS LEFT"
170 X=2:Y=17:GOSUB66:PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
172 [153]"(null) 1. NEW PUZZLE  (null)"
173 [153]"(null) 2. SAME PUZZLE (null)"
174 [153]"(null) 3. TO LOADSTAR (null)
176 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
178 [141]62:[139](A$)[179]"1"[176](A$)[177]"3"[167]178
180 [145][197](A$)[137]512,400,6000
199 [143] PRINT CARD OR ERASE*
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):[139]Q4[167]208
204 [151]F[170]24,6:[151]F[170]5,128:[151]F[170]4,129:[129]T[178]1[164]10:[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 [153]BL$;:[142]
220 [153]CO$(SU);VA$(VA);"<<>CMDCMDCMDCMD";S$(SU);"SPC(THEN^CMDCMDCMDCMDTAB(+-^CMDCMDCMDCMDTAB(NOTSTEP";S1$(SU);
222 [153]"CMDCMDCMDCMDSGN==";VB$(VA);"ONONONONCMDCMDCMDCMD";:[142]
299 [143] DEAL
300 [129]I[178]1[164]12:[139]C(DK)[178]0[167][142]
302 [143]  X=X(DK):Y=Y(DK):GOSUB66:PRINTB1$;:PRINTBK$
304 C(I)[178]C(I)[170]1:B(I,C(I))[178]DK(C(DK)):C(DK)[178]C(DK)[171]1
305 [139]K[178]1[167]307
306 Y(I)[178]Y(I)[170]1
307 [141]200
308 [130]
309 [142]
319 [143] PLAY ONE TO WASTE
320 [139]C(I)[179]2[167]336
322 C(WS)[178]C(WS)[170]1:WS(C(WS))[178]B(I,C(I))
324 X[178]X(I):Y[178]Y(I):[141]66:[153]BL$: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]
400 [129]I[178]1[164]52:DK(I)[178]AG(I):[130]:[137]514
500 [151]53280,9:[151]53281,9:[153]"LOAD"
501 [158]MT[170]3,0,39,0,24,126,15:[158]MT[170]3,6,34,9,15,255,12:[158]MT[170]3,5,33,8,14,160,15
503 [158]MT[170]18,9,"LISTF O U R T E E N S":[158]MT[170]18,11,"LISTPLAYING CARD PUZZLES"
504 [158]MT[170]18,13,"LISTBY MAURICE JONES"
505 [153]"WAIT"
510 [141]111:[141]26
512 [129]I[178]1[164]52:DK(I)[178]S(I[171]1):AG(I)[178]S(I[171]1):[130]
514 C(DK)[178]52:[129]I[178]1[164]12:C(I)[178]0:[130]:C(WS)[178]0
515 K[178]5:[129]I[178]1[164]6:Y(I)[178]5:X(I)[178]K:K[178]K[170]5:[130]
516 K[178]9:[129]I[178]7[164]12:Y(I)[178]15:X(I)[178]K:K[178]K[170]5:[130]
517 [151]53280,15:[151]53281,1:[153]"LOAD ";
519 [158]MT[170]3,0,39,0,24,000,13:[158]MT[170]3,0,39,0,2,160,12
521 X[178]11:Y[178]1:[141]66:[153]"PRINT#F O U R T E E N S"
522 X[178]0:Y[178]24:[141]66
523 [153]"PRINT#/   O - OOPS    H - HELP    Q - QUIT   ";
525 [153]"WAIT";:X[178]X(DK):Y[178]Y(DK):[141]66:[153]BK$:[129]I[178]1[164]12:X[178]X(I):Y[178]Y(I):[141]66
529 [153]"CLRON";[202](K$,I,1):[130]
532 Q4[178]1:[129]K[178]1[164]5:[141]300:[130]:Q4[178]0:X[178]X(DK):Y[178]Y(DK):[141]66:[153]BL$
534 X[178]X(13):Y[178]Y(13)[171]2:[141]66:[153]"CLRFROM"
536 [141]20
538 [139]I[179]13[167] 550
542 [145]I[171]12[137]590,160,800
550 [139]C(I)[178]0[167]534
554 OP[178]0
562 FC[178]I
564 X[178]X(13):Y[178]Y(13)[171]2:[141]66:[153]"PRINT@@@@"
566 X[178]X(13):Y[178]Y(13)[171]2:[141]66:[153]"CLRAND":[141]20
568 [139]I[179]13[167] 570
569 [145]I[171]12[137]534,160,800
570 [139]C(I)[178]0[167]534
572 [139]FC[178]I[167]534
574 [139][165]V(B(FC,C(FC)))[170][165]V(B(I,C(I)))[179][177]12[167]OP[178]1:[137]534
578 SC[178]I:I[178]FC:[141]320:I[178]SC:[141]320
582 [129]I[178]1[164]12:[139]C(I)[179][177]0[167]534
586 [130]:[137]150
590 [139]OP[178]1[167]534
594 [139]C(WS)[178]0[167]534
600 X[178]X(WS):Y[178]Y(WS):[141]66:C(WS)[178]C(WS)[171]1:CA[178]WS(C(WS)):[141]203
604 [129]K[178]1[164]100:[130]
610 [139]C(SC)[179][177]0[167]630
620 C(SC)[178]1:I[178]SC:[141]200:[137]640
630 C(SC)[178]C(SC)[170]1:Y(SC)[178]Y(SC)[170]1:I[178]SC:[141]200
640 X[178]X(WS):Y[178]Y(WS):[141]66:C(WS)[178]C(WS)[171]1:CA[178]WS(C(WS)):[139]C(WS)[179][177]0[167]648
644 [153]BL$:[137]650
648 [141]203
649 [129]K[178]1[164]100:[130]
650 [139]C(FC)[179][177]0[167]670
660 C(FC)[178]C(FC)[170]1:I[178]FC:[141]200:OP[178]1: [137]534
670 C(FC)[178]C(FC)[170]1:Y(FC)[178]Y(FC)[170]1:I[178]FC:[141]200:OP[178]1:[137]534
799 [143] HELP
800 [158]MT[170]6,208:[151]53280,9:[151]53281,9:[153]"LOAD"
805 [153]"        THE FOURTEEN PUZZLES
810 PRINT:PRINT"  [158]THE PUZZLE IS SOLVED IF ALL THE
820 [153]"CARDS IN PILES [1-C] CAN BE REMOVED IN
830 PRINT"PAIRS TOTALING FOURTEEN.  ONLY THE TOP
840 [153]"CARD OF EACH PILE IS AVAILABLE.  KINGS
850 PRINT"COUNT 13, QUEENS 12, AND JACKS 11.
860 [153]:[153]"  AT THE "[199](34)"FROM"[199](34)" PROMPT ENTER THE NUMBER
870 PRINT"OF THE PILE CONTAINING ONE OF THE PAIR
880 [153]"AND YOU WILL BE PROMPTED WITH "[199](34)"AND"[199](34)" FOR
890 PRINT"THE SECOND CARD.
900 [153]:[153]"  AT ANY PROMPT:
910 PRINT:PRINT"   O[158] - OOPS. TAKES BACK LAST PLAY.
920 [153]:[153]"   QSYS - QUIT. ENDS THE SOLUTION.
930 PRINT:PRINT"   H[158] - HELP. GIVES THIS SCREEN
940 [141]58:[158]MT[170]9,208:[137]534
5999 [143] RECONNECT*
6000 [151]V[170]21,0:[151]56,160:[156]
6020 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
6025 [139]ER%[179][177]63[167][128]
6030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
6035 [153]"RUN"
6040 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:FOURTEENS":[160]15:[148]"FOURTEENS",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"ASC (null) (null) (null) (null) VAL VAL (null) (null)":Z$(1)[178]"BY (null)AURICE MID$ONES
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]