1 REM SAVE"TENS V3.0",8
9 PRINTCHR$(142):POKE53272,31:POKE198,0:MT=52480
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=10: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
79 REM ILLUSION ON DECK
80 X=X(DK):Y=Y(DK):GOSUB66:PRINTB1$;:FORK=1TO80:NEXT:PRINTBK$
82 C(I)=0:GOSUB200:C(I)=1:X=X(WS):Y=Y(WS):GOSUB66:GOSUB202:C(I)=0:RETURN
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$="[129]!##$[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$="[155]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157][145][145][145][145]"
118 BG$="[155] %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
119 DEFFNS(X)=INT(X/13):DEFFNV(X)=X-13*INT(X/13)
120 NC=52:NS=13:  JJ=-1:DIMS(NC):FORI=0TONC-1:S(I)=I:NEXT
121 B1$="[150]!##$[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]"
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(15),Y(15),C(15),B(13,1),DK(52),WS(52):RETURN
140 CH$="0123456789 QH":CC=13:DK=10:WS=11:NP=9
142 X=9: FORI=0TO4:Y(I)=4:Y(I+5)=11:X(I)=X+5:X(I+5)=X+5:X=X+5:NEXT
144 X(10)=5:Y(10)=18:X(11)=12:Y(11)=18
148 RETURN
149 REM END GAME
150 X=6:Y=12:GOSUB66:PRINT" [192][192][192][192][192][192][192] "
152 Y=Y+1:GOSUB66:PRINT"   YOU   "
154 Y=Y+1:GOSUB66:PRINT"   WIN!  "
156 Y=Y+1:GOSUB66:PRINT" [192][192][192][192][192][192][192] "
158 WN=0:GOTO170
160 X=02:Y=12:GOSUB66:PRINT"                  "
162 Y=Y+1:GOSUB66:PRINT"                  "
164 Y=Y+1:GOSUB66:PRINT"                  "
166 X=X+1:Y=Y-1:GOSUB66:PRINT""C(DK)"CARDS LEFT"
170 X=2:Y=17:GOSUB66: PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] "
172 Y=Y+1:GOSUB66:PRINT"  1. NEW GAME     "
174 Y=Y+1:GOSUB66:  PRINT"  2. TO LOADSTAR  "
176 Y=Y+1:GOSUB66:PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] "
177 SYSMT+3,1,39,24,24,160,6
178 GOSUB62:IFA$<"1"ORA$>"2"THEN178
182 ONVAL(A$)GOTO612,6000
190 CH$="0123456789ABC QH":CC=16:DK=14:WS=15:NP=12
192 X=-2:FORI=0TO6:Y(I)=4:Y(I+5)=10:X(I)=X+5:X=X+5:NEXT
194 X(14)=09:Y(14)=18:X(15)=27:Y(15)=18
196 X=-2:FORI=7TO12:Y(I)=11:X(I)=X+5:X=X+5:   NEXT
198 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=1TO20: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][157][157][157][157]";:RETURN
299 REM DEAL
300 FORI=0TONP:IFC(I)>0THEN308
304 X=X(DK):Y=Y(DK):GOSUB66:PRINTB1$;:PRINTBK$:C(I)=1:B(I,1)=DK(C(DK))
306 C(DK)=C(DK)-1:GOSUB200:IFC(DK)=0THEN310
308 NEXT
309 RETURN
310 X=X(DK):Y=Y(DK):GOSUB66:PRINTBL$:WN=1:RETURN
319 REM PLAY FACES IN TENS
320 KK=I:TC=FNV(B(I,1)):K=0:FORJ=0TO12:IFFNV(B(J,1))<>TCTHEN328
324 K=K+1
328 NEXT
332 IFK=4THEN 338
336 RETURN
338 C(KK)=0:I=KK:GOSUB200:C(KK)=1:X=X(WS):Y=Y(WS):GOSUB66:I=KK:GOSUB202:C(KK)=0
340 FORJ=0TO12:IFFNV(B(J,1))<>TCTHEN348
344 C(J)=0:I=J: GOSUB200:C(J)=1:X=X(WS):Y=Y(WS):GOSUB66:I=J:GOSUB202:C(J)=0
348 NEXT
350 RETURN
500 POKE53280,08:POKE53281,01:SYSMT+3,0,39,0,24,126,08
501 SYSMT+3,8,32,10,15,255,0
502 SYSMT+3,7,31,9,14,160,06
503 SYSMT+18,10,"[212][160][207][160][213][160][199][160][200][160][160][212][160][197][160][206][160][211]":SYSMT+18,12,"A MAURICE JONES "
504 SYSMT+18,13,"SOLITAIRE   "
510 GOSUB111:GOSUB26:GOSUB190
612 FORI=1TO52:DK(I)=S(I-1):NEXT:C(DK)=52:FORI=0TO12:C(I)=0:NEXT:C(WS)=0
614 POKE53280,08:POKE53281,1:PRINT"[147]";
616 SYSMT+3,0,39,0,24,000,15:SYSMT+3,0,39,0,2,160,6:SYSMT+3,0,39,24,24,160,6
618 SYSMT+18,24,"  H - HELP            Q - QUIT"
619 X=0:Y=24:GOSUB66:PRINT"[146][144]/";
620 X=10:Y=1:GOSUB66:PRINT"[212][160][207][160][213][160][199][160][200] [160] [212][160][197][160][206][160][211]  "
625 X=X(DK):Y=Y(DK):GOSUB66:PRINTBK$:FORI=0TO12:X=X(I):Y=Y(I):GOSUB66:
629 PRINT"[156]";MID$(STR$(I),2,1):NEXT
630 B9$="ABC":FORI=10TO12:X=X(I):Y=Y(I):GOSUB66:
631 PRINT"[156]";MID$(B9$,I-9  ,1):NEXT
632 GOSUB300
634 X=16:Y=19:GOSUB66:PRINT" [192][192][192][192][192][192] ":Y=Y+1:GOSUB66:PRINT"  FROM  "
635 Y=Y+1:GOSUB66:PRINT" [192][192][192][192][192][192] [146]"
638 GOSUB20:I=I-1: IFI<13THEN646
642 ONI-12GOTO678,160,900
646 IFC(I)=0THEN638
650 IFFNV(B(I,C(I)))<09THEN658
654 GOSUB320:GOTO634
658 X=17:Y=20:GOSUB66:PRINT"    "
660 FC=I:X=17:Y=20:GOSUB66:PRINT" AND "
662 GOSUB20:I=I-1:IFI<13THEN668
666 ONI-12GOTO634,160,900
668 IFC(I)=0THEN634
669 REM IFI=FCTHEN634
670 IFFNV(B(FC,C(FC)))+FNV(B(I,C(I)))<>08THENGOSUB2000:GOTO634
674 SC=I:I=FC:GOSUB82:FORJ=1TO100:NEXT: I=SC:GOSUB82:  GOTO634
678 GOSUB300:IFWN<>1THEN634
682 FORI=1TO100:NEXT:GOTO150
800 REM HELP
802 RETURN
900 POKE53280,1:SYSMT+6,208:PRINT"[147]":PRINT"             TOUGH TENS    "
910 PRINT"/": PRINT"  DISCARD PAIRS OF CARDS WHICH TOTAL"
929 PRINT"TEN.  DISCARD KINGS, QUEENS, JACKS, AND
930 [153]"TENS ONLY IN SETS OF FOUR OF THE SAME
940 PRINT"VALUE.  EMPTY SPACES ARE FILLED FROM
950 [153]"THE DECK.  THE GAME IS WON IF ALL THE
960 PRINT"CARDS OF THE DECK CAN BE PLAYED TO THE
970 [153]"BOARD.":[153]"  AT THE "[199](34)"FROM"[199](34)" PROMPT ENTER THE CHAR-
980 PRINT"ACTER [0-C] OF THE PILE CONTAINING A
990 [153]"CARD YOU WANT TO PLAY.  IF THE CARD IS
1000 PRINT"A TEN, JACK, QUEEN, OR KING ALL FOUR
1010 [153]"SUCH CARDS WILL BE DISCARDED WITH NO
1020 PRINT"FURTHER ACTION ON YOUR PART.  OTHERWISE
1030 [153]"YOU WILL BE PROMPTED WITH "[199](34)"AND"[199](34)" FOR THE
1040 PRINT"SECOND CARD IN THE PAIR.  THE SPACE BAR
1050 [153]"DEALS TO THE EMPTY SPACES.
1080 PRINT"  AT ANY PROMPT Q ENDS THE GAME AND H
1090 [153]"GIVES THIS SCREEN.
1100 GOSUB58:SYSMT+9,208:POKE53280,8:GOTO634
2000 POKEF+8,4
2010 POKEF+12,63:POKEF+13,17:POKEF+11,33:FORT=1TO100:NEXT:POKEF+11,32
2020 RETURN
5999 REM RECONNECT*
6000 POKEV+21,0:POKE56,160:CLR
6020 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
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:TENS":CLOSE15:SAVE"TENS",8:END