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 80 IFC(DK)=0THEN82 81 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][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]" 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) 140 CH$="0123456789 QH":CC=13:DK=10:WS=11:NP=9 142 X=7: FORI=0TO4:Y(I)=6:Y(I+5)=14:X(I)=X+5:X(I+5)=X+5:X=X+5:NEXT 144 X(10)=4:Y(10)=07:X(11)=04:Y(11)=17 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$)GOTO512,6000 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$:GOTO309 500 POKE53280,8:POKE53281,1:SYSMT+3,0,39,0,24,126,08:SYSMT+3,8,32,10,15,255,0 502 SYSMT+3,7,31,9,14,160,06 504 SYSMT+18,10,"[212][160][200][160][201][160][210][160][212][160][197][160][197][160][206][160][211]":SYSMT+18,12,"A MAURICE JONES " 506 SYSMT+18,13,"SOLITAIRE " 510 GOSUB111:GOSUB26 512 FORI=1TO52:DK(I)=S(I-1):NEXT:C(DK)=52:FORI=0TO 9:C(I)=0:NEXT:C(WS)=0 514 POKE53280,8:POKE53281,1:SYSMT+3,0,39,0,24,160,6:SYSMT+3,0,39,3,23,127,15 517 X=12:Y=1:GOSUB66:PRINT"[212][160][200][160][201][160][210][160][212][160][197][160][197][160][206][160][211][146]" 521 X=5:Y=24:GOSUB66:PRINT" H - HELP Q - QUIT[146]"; 523 X=0:Y=24:GOSUB66:PRINT"[144]/"; 525 X=X(DK):Y=Y(DK):GOSUB66:PRINTBK$:FORI=0TO9:X=X(I):Y=Y(I):GOSUB66: 529 PRINT"[156]";MID$(STR$(I),2,1):NEXT 530 GOSUB300 534 SYSMT+3,3,8,13,15,160,6:X=4:Y=14:GOSUB66:PRINT"FROM" 538 GOSUB20:I=I-1: IFI<10THEN546 542 ONI-9GOTO578,160,800 546 IFC(I)=0THEN538 550 IFFNV(B(I,C(I)))<>12THEN558 554 GOSUB82:GOTO534 558 X=4:Y=14:GOSUB66:PRINT" " 560 FC=I:X=4:Y=14:GOSUB66:PRINT"AND " 562 GOSUB20:I=I-1:IFI<10THEN570 566 ONI-9GOTO534,160,800 570 IFFNV(B(FC,C(FC)))+FNV(B(I,C(I)))<>11THENGOSUB940:GOTO534 574 SC=I:I=FC:GOSUB82:FORJ=1TO100:NEXT: I=SC:GOSUB82:FORI=0TO9:IFC(I)>0THEN534 576 NEXT:IFC(DK)>0THEN534 577 GOTO150 578 IFC(DK)=0THEN534 580 GOSUB300:GOTO534 800 POKE53280,1:SYSMT+6,208:PRINT"[147]" :PRINT"/ THIRTEENS" 802 PRINT: PRINT " DISCARD PAIRS WHICH TOTAL THIRTEEN." 803 PRINT"QUEENS COUNT 12, JACKS, 11. DISCARD" 804 PRINT"KINGS SEPARATELY. SPACES ARE FILLED " 806 PRINT"FROM THE DECK. THE GAME IS WON IF ALL 808 [153]"CARDS CAN BE DISCARDED. 812 PRINT:PRINT" AT THE "CHR$(34)"FROM"CHR$(34)" PROMPT, ENTER THE NUM- 820 [153]"BER [0-9] OF THE PILE CONTAINING A CARD 830 PRINT"WHICH YOU WANT TO DISCARD. IF THE CARD 840 [153]"IS A KING, IT WILL BE DISCARDED WITH NO 850 PRINT"FURTHER ACTION ON YOUR PART. OTHERWISE 860 [153]"YOU WILL BE PROMPTED FOR NUMBER OF 870 PRINT"THE PILE CONTAINING THE SECOND CARD. 874 [153]"THE SPACE BAR WILL FILL EMPTY SPACES 876 PRINT"FROM THE DECK. 880 [153]:[153]" AT ANY PROMPT, Q ENDS THE GAME AND 890 PRINT"H GIVES THIS SCREEN. 900 [141]58:[158]MT[170]9,208:[151]53280,8:[137]534 940 F[178]54272:[151]F[170]24,15:[151]F[170]8,4 950 [151]F[170]12,63:[151]F[170]13,17:[151]F[170]11,33:[129]T[178]1[164]100:[130]:[151]F[170]11,32 960 [142] 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:THIRTEENS":[160]15:[148]"THIRTEENS",8:[128]