Home » Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » double deck duo
double deck duo
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk30b3_loadstar_131.d64 |
| Filename: | double deck duo |
| Read OK: | ✔ |
| File size: | 39B4 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Commodore disks » disk30b2_loadstar_131.d64 » double deck duo
- Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » double deck duo
- Personal collection » Commodore disks » disk30b_loadstar_131.d64 » double deck duo
File contents
1 POKE56,128:POKE55,0:CLR:POKE788,52
2 DV=PEEK(186):IFDV<8THENDV=8
3 SYS57812"DUO FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
4 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> <cyan>🭰WO DECKS OF CARDS . . ."
10 DIMJ,K,PL,SK,T2,TC,TE,TS,TV,A$,BK$,CH$,MS
11 NC=104:NP=13:X=RND(-TI):POKE4095,31:GOSUB111
12 OPEN2,DV,2,"DUO.OPTS,P,R":INPUT#2,K3,SD,SO,CC,SK
14 INPUT#2,BD,FB,MU,WG,PK,RD,KC:CLOSE2
15 KT=TT(K3):HT=1:G7=0
16 PRINT"<clr>":GOSUB1000:IFMU=1THEN482
17 GOTO500
18 :
19 REM BRANCHER
20 GOSUB62:I=1
21 IFI>LEN(CH$)THEN20
22 IFA$=MID$(CH$,I,1)THENRETURN
23 I=I+1:GOTO21
24 :
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
38 :
39 REM SOUND 1
40 POKEF+24,15:POKEF+5,8:POKEF+6,255:POKEF+4,21
42 FORF1=1TO255STEP15:POKEF+1,F1:NEXTF1:POKEF+6,000:RETURN
56 :
57 REM PRESS A KEY-58: GETA$-62
58 X=0:Y=24:GOSUB66:PRINT"/<reverse on> PLEASE PRESS A KEY <cursor up><cursor up><cursor up>"
62 GETA$:IFA$=""THEN70:RETURN
63 RETURN
64 REM PRINT AT
65 X=X(I):Y=Y(I)
66 POKE211,X:POKE214,Y:SYS58732:RETURN
68 :
69 REM MULTITASK
70 IFJJ=NC-2THENJJ=-1
71 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO62
88 :
89 REM WRONG CHOICE SOUND
90 POKEF+24,15:POKEF+8,4:POKEF+12,63:POKEF+13,17:POKEF+11,33
92 FORT=1TO100:NEXT:POKEF+11,32:X=12:Y=23:GOSUB66:PRINTWM$(WM)
93 FORK=1TO300:NEXT:RETURN
109 :
110 REM SETUP
111 DIMVA$(13),VB$(13),ST$(4,12),CO$(3),S$(3),S1$(3),S(NC):JJ=-1
112 DATA"♣","╯","╰","╮","🭴","🭱","🭺","🭶","🭷","&","🭸","🭲","🭵"
113 S$(0)="▄":S$(1)="└":S$(2)="🭹":S$(3)="♠":CO$(0)="<black>":CO$(1)="<red>":CO$(2)="<red>"
114 CO$(3)="<black>":S1$(0)="▌":S1$(1)="♦":S1$(2)="◥":S1$(3)="┌"
115 DATA"🭼","○","╳","╭","🭰","♥","🭻","●","🭾","'","🭽","╱","╲"
116 BK$="!##$<cursor down><cursor left><cursor left><cursor left><cursor left>🮇▝▝├<cursor down><cursor left><cursor left><cursor left><cursor left>🮇▝▝├<cursor down><cursor left><cursor left><cursor left><cursor left>🮇▝▝├<cursor down><cursor left><cursor left><cursor left><cursor left>£**+<cursor left><cursor left><cursor left><cursor left><cursor up><cursor up><cursor up><cursor up>"
117 DEFFNS(X)=INT(X/13):DEFFNV(X)=X-13*INT(X/13):DEFFNC(X)=(X+1)-MD*INT((X+1)/MD)
118 F=54272:FORI=FTOF+78:POKEI,0:NEXT:MT=49152:X=RND(TI)
120 POKEF+1,50:POKEF+24,12:POKEF+5,128
122 ST$(0,1)="<reverse on>○♣<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>🭵♦<rev off>":ST$(0,0)="<cursor down><cursor down><reverse on>♥🭰<rev off>":ST$(3,0)="<reverse on>!<rev off><cursor left><cursor down><cursor down><reverse on>┤▎<rev off>"
123 ST$(0,9)="<reverse on>♠🭲<cursor down><cursor left><cursor left>🭸🭷<cursor down><cursor left><cursor left>🭶🭺<cursor down><cursor left><cursor left>🭱🭴<cursor down><cursor left><cursor left>╮╰<rev off>":ST$(3,2)="<reverse on>🮂🮃<cursor down><cursor down><cursor left><cursor left>┤▎<cursor down><cursor down><cursor left><cursor left>▃🭿<rev off>"
124 ST$(0,8)="<reverse on>♠🭲<cursor down><cursor left><cursor left>╯🭼<cursor down><cursor left><cursor left>╲╱<cursor down><cursor left><cursor left>🭽🭾<cursor down><cursor left><cursor left>╮╰<rev off>":ST$(0,3)="<reverse on>♠🭲<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>╮╰<rev off>"
125 ST$(3,8)="<reverse on>▌▄<cursor down><cursor left><cursor left>├▗<cursor down><cursor left><cursor left>└┐<cursor down><cursor left><cursor left>▂┌<cursor down><cursor left><cursor left>◤🮇<rev off>":ST$(0,7)="<reverse on>♠🭲<cursor down><cursor left><cursor left>♥🭰<cursor down><cursor left><cursor left>●🭻<cursor down><cursor left><cursor left>╭╳<cursor down><cursor left><cursor left>╮╰<rev off>"
126 ST$(3,9)="<reverse on>▌▄<cursor down><cursor left><cursor left>▔▁<cursor down><cursor left><cursor left>▏▒<cursor down><cursor left><cursor left>▕🮏<cursor down><cursor left><cursor left>◤🮇<rev off>":ST$(3,7)="<reverse on>▌▄<cursor down><cursor left><cursor left>┤▎<cursor down><cursor left><cursor left>┴┬<cursor down><cursor left><cursor left>▍🮈<cursor down><cursor left><cursor left>◤🮇<rev off>"
127 ST$(3,1)="<reverse on>🮂🮃<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>▃🭿<rev off>":ST$(0,2)="<reverse on>○♣<cursor down><cursor down><cursor left><cursor left>♥🭰<cursor down><cursor down><cursor left><cursor left>🭵♦<rev off>"
128 ST$(0,6)="<reverse on>♠🭲<cursor down><cursor left><cursor left>♥🭰<cursor down><cursor left><cursor left>●🭻<cursor down><cursor down><cursor left><cursor left>╮╰<rev off>":ST$(3,6)="<reverse on>▌▄<cursor down><cursor left><cursor left>┤▎<cursor down><cursor left><cursor left>┴┬<cursor down><cursor down><cursor left><cursor left>◤🮇<rev off>"
129 ST$(3,3)="<reverse on>▌▄<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>◤🮇<rev off>":ST$(0,5)="<reverse on>♠🭲<cursor down><cursor left><cursor left><cursor down>●🭻<cursor down><cursor down><cursor left><cursor left>╮╰<rev off>"
130 ST$(3,5)="<reverse on>▌▄<cursor down><cursor down><cursor left><cursor left>┴┬<cursor down><cursor down><cursor left><cursor left>◤🮇<rev off>":ST$(0,4)="<reverse on>♠🭲<cursor down><cursor down><cursor left><cursor left>♥🭰<cursor down><cursor down><cursor left><cursor left>╮╰<rev off>"
131 ST$(3,4)="<reverse on>▌▄<cursor down><cursor down><cursor left><cursor left>┤▎<cursor down><cursor down><cursor left><cursor left>◤🮇<rev off>":
132 ST$(2,9)="AB<cursor down><cursor left><cursor left>CD<cursor down><cursor left><cursor left>EF<cursor down><cursor left><cursor left>GH<cursor down><cursor left><cursor left>IJ":ST$(2,8)="AB<cursor down><cursor left><cursor left>KL<cursor down><cursor left><cursor left>MN<cursor down><cursor left><cursor left>OP<cursor down><cursor left><cursor left>IJ"
133 ST$(2,7)="AB<cursor down><cursor left><cursor left>ST<cursor down><cursor left><cursor left>QR<cursor down><cursor left><cursor left>UV<cursor down><cursor left><cursor left>IJ":ST$(2,6)="AB<cursor down><cursor left><cursor left>ST<cursor down><cursor left><cursor left>QR<cursor down><cursor down><cursor left><cursor left>IJ"
134 ST$(2,5)="AB<cursor down><cursor left><cursor left><cursor down>QR<cursor down><cursor down><cursor left><cursor left>IJ":ST$(2,4)="AB<cursor down><cursor down><cursor left><cursor left>ST<cursor down><cursor down><cursor left><cursor left>IJ":ST$(2,3)="AB<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>IJ"
135 ST$(2,2)="WX<cursor down><cursor left><cursor left><cursor down>ST<cursor down><cursor down><cursor left><cursor left>YZ":ST$(2,1)="WX<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>YZ":ST$(2,0)="<reverse on>!<rev off><cursor left><cursor down><cursor down>ST"
136 FORI=2TO3:ST$(I,10)="<reverse on>)<rev off>1<cursor down><cursor left><cursor left>23<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>67<cursor down><cursor left><cursor left>89":NEXT
137 ST$(1,9)="<reverse on>┼🮌<cursor down><cursor left><cursor left>▖▝<cursor down><cursor left><cursor left>◥▚<cursor down><cursor left><cursor left>┘▘<cursor down><cursor left><cursor left>│π<rev off>"
138 ST$(1,8)="<reverse on>┼🮌<cursor down><cursor left><cursor left>#$<cursor down><cursor left><cursor left>%&<cursor down><cursor left><cursor left>*+<cursor down><cursor left><cursor left>│π<rev off>"
139 ST$(1,6)="<reverse on>┼🮌<cursor down><cursor left><cursor left>£↑<cursor down><cursor left><cursor left><><cursor down><cursor down><cursor left><cursor left>│π<rev off>"
140 ST$(1,5)="<reverse on>┼🮌<cursor down><cursor down><cursor left><cursor left><><cursor down><cursor down><cursor left><cursor left>│π<rev off>"
141 ST$(1,4)="<reverse on>┼🮌<cursor down><cursor down><cursor left><cursor left>£↑<cursor down><cursor down><cursor left><cursor left>│π<rev off>"
142 ST$(1,7)="<reverse on>┼🮌<cursor down><cursor left><cursor left>£↑<cursor down><cursor left><cursor left><><cursor down><cursor left><cursor left>←=<cursor down><cursor left><cursor left>│π<rev off>"
143 ST$(1,1)="▒▕<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>🮏◤":ST$(1,2)="▒▕<cursor down><cursor down><cursor left><cursor left><reverse on>£↑<rev off><cursor down><cursor down><cursor left><cursor left><rev off>🮏◤"
144 ST$(1,0)="<reverse on><cursor down><cursor down>£↑<rev off>":ST$(1,3)="<reverse on>┼🮌<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>│π<rev off>"
145 FORI=0TO1:ST$(I,11)="()<cursor down><cursor left><cursor left>>?<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left><=<cursor down><cursor left><cursor left>:;":NEXT
146 ST$(0,10)="()<cursor down><cursor left><cursor left>↑←<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>[]<cursor down><cursor left><cursor left>:;"
147 ST$(1,10)="()<cursor down><cursor left><cursor left>↑←<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>[]<cursor down><cursor left><cursor left>:;"
148 ST$(1,12)="01<cursor down><cursor left><cursor left>23<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>67<cursor down><cursor left><cursor left>89"
149 ST$(0,12)="()<cursor down><cursor left><cursor left>↑←<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>[]<cursor down><cursor left><cursor left>:;"
150 ST$(2,12)="<reverse on>(<rev off>)<cursor down><cursor left><cursor left>↑←<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left>[]<cursor down><cursor left><cursor left>:;":ST$(3,12)=ST$(2,12)
151 FORI=2TO3:ST$(I,11)="<reverse on>(<rev off>)<cursor down><cursor left><cursor left>>?<cursor down><cursor left><cursor left>45<cursor down><cursor left><cursor left><=<cursor down><cursor left><cursor left>:;":NEXT
152 FORI=0TO12:READVA$(I):NEXT:FORI=0TO12:READVB$(I):NEXT
153 FORI=0TO51:S(I)=I:NEXT:FORI=52TO103:S(I)=I-52:NEXT
154 PRINT"<cursor down><cursor down> 🭰WO VERSIONS . . .
155 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP
156 IFJJ<>NC-2THEN155
158 KC(1)=101:KC(2)=(47):KC(3)=191:KC(4)=124
162 O$(0)="<reverse on><black>ON ":O$(1)="<reverse on><black>OFF":O$(3)="<reverse on><black>ONE ":O$(4)="<reverse on><black>THREE"
164 O$(5)="<reverse on><black>NO SCORE":O$(6)="<reverse on><black>SCORE "
165 O$(8)="<reverse on><black>MENU":O$(7)="<reverse on><black>GAME":O$(9)="<reverse on> DUCHESS ":O$(10)="<reverse on>PARISIENNE"
166 TT(1)=0:TT(2)=100:TT(3)=128:TT(4)=155:TT(5)=157:TT(6)=1:TT(7)=3:LO=1000:HI=0
168 PRINT"<cursor down><cursor down> 🭰OO COOL . . .
169 WM$(1)="<reverse on><purple> EMPTY PILE "
170 WM$(4)="<reverse on><purple> NO MORE REDEALS "
171 WM$(2)="<reverse on><purple> PEAK FLAG OFF "
172 WM$(3)="<reverse on><purple> ILLEGAL PLAY "
186 DIMB(NP,NC),C(NP),MM(NP+2),X(NP+1),Y(NP+1):MS=NP+1
187 X(0)=5:Y(0)=16:X(MS)=X(0):Y(MS)=Y(0)+5:FORI=10TO13:Y(I)=3:X(I)=5*I-31:NEXT
188 FORI=6TO9:Y(I)=10:X(I)=5*I-11:NEXT:FORI=1TO5:Y(I)=17:X(I)=5*I+09:NEXT
195 RETURN
196 :
197 REM 198-VERT STACK: 200-STACKED: 202-OTHER PLACE: 203-ANY CARD
198 X=X(I):Y=Y(I)+C(I)-1:GOSUB66:IFC(I)=0THENY=Y(I)
199 GOTO202
200 X=X(I):Y=Y(I):GOSUB66:IFC(I)=0THEN224
202 CA=B(I,C(I)):IFC(I)=0THEN224
203 SU=FNS(CA):VA=FNV(CA)
210 IFSO=1THEN220
214 POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
220 PRINTCO$(SU);VA$(VA);"┤┤┴<cursor down><cursor left><cursor left><cursor left><cursor left>";S$(SU);" ┐<cursor down><cursor left><cursor left><cursor left><cursor left>▔ ┐<cursor down><cursor left><cursor left><cursor left><cursor left>▔ ";S1$(SU);
222 PRINT"<cursor down><cursor left><cursor left><cursor left><cursor left>▎┬┬";VB$(VA);"<cursor up><cursor up><cursor up><cursor up><cursor left><cursor left><cursor left>";ST$(SU,VA);:RETURN
223 REM ERASES CARD-TILE: 225-VERT STACK
224 SYSMT+3,X,X+3,Y,Y+4,KT,SK:RETURN
225 SYSMT+3,X(I),X(I)+3,Y(I)+C(I)-1,Y(I)+C(I)+3,KT,SK:RETURN
228 :
229 REM PRINT COUNT AT I (232 FOR ONE SPACE ONLY)
230 K=LEN(STR$(C(I))):SYSMT+3,X(I)-3,X(I)-1,Y(I)+3,Y(I)+3,KT,SK:GOTO234
232 K=LEN(STR$(C(I))):SYSMT+3,X(I)-1,X(I)-1,Y(I)+3,Y(I)+3,KT,SK
234 IFC(I)=0THENRETURN
236 X=X(I)-K+1:Y=Y(I)+3
238 GOSUB66:PRINT"<purple><reverse on>"RIGHT$(STR$(C(I)),K-1):RETURN
247 RETURN
248 :
249 REM PRINTS DECK AT I
250 GOSUB65
252 IFSO=1THEN256
254 POKEF+4,129:FORT=1TO15:NEXT:POKEF+4,128:POKEF+5,0
256 POKE646,CC:PRINTBK$:SYSMT+3,X+1,X+2,Y+1,Y+3,KC(KC),CC:RETURN
258 :
259 REM REDEAL*RESERVE*
260 IFRD=1ANDRE>3THENRETURN
261 IFC(1)=0THENWM=1: GOSUB90:RETURN
262 X=C(1):FORI=1TOX:B(0,X)=B(1,I):X=X-1:NEXT:C(0)=C(1):C(1)=0
263 I=1:GOSUB200:GOSUB65:SYSMT+3,X,X+3,Y,Y+4,KT,SK:I=0:GOSUB65
264 GOSUB256:GOSUB230:RETURN
265 X=X(0)+1:Y=Y(0)-1:GOSUB66:PRINT"<reverse on><purple>"MID$(STR$(RE),2,LEN(STR$(RE))-1)
266 RETURN
268 :
269 WILL IT PLAY
270 PL=1:IFT2>9THEN278
272 IFC(T2)>0THEN276
274 IFFV=12THENPL=2
275 RETURN
276 IFFV+1=TVTHENPL=2
277 RETURN
278 IFC(T2)>0THEN282
280 IFFV=0THENPL=2
281 RETURN
282 IFTV+1=FVTHENPL=2
287 RETURN
288 :
289 REM PICK UP WASTE-THREE
290 Y=Y(1):X=X(1)+NT-1 :GOSUB66
294 GOSUB224:NT=NT-1:IFNT<1THENNT=1
296 I=1:Y=Y:1):X=X(1)+NT-1:GOSUB66:GOSUB202
297 RETURN
298 :
299 REM PRINT STATS
300 X1=2:X2=15:Y1=8:Y2=19:CL=CC:GOSUB2100
302 X=X1+2:Y=Y1+2
306 GOSUB66:PRINT"<reverse on><brown>PLAYED";
307 X=X1+12-LEN(STR$(T6)):GOSUB66:PRINT"<black><reverse on>"T6
308 X=X1+2:Y=Y+2:GOSUB66:PRINT"<blue><reverse on>HIGH ";
309 X=X1+12-LEN(STR$(HI)):GOSUB66:PRINT"<black><reverse on>"HI
310 X=X1+2:Y=Y+1:GOSUB66:PRINT"<blue><reverse on>LOW ";
311 X=X1+12-LEN(STR$(LO)):GOSUB66:PRINT"<black><reverse on>"LO
312 X=X1+2:Y=Y+1:GOSUB66:PRINT"<blue><reverse on>AVE. ";
313 X=X1+12-LEN(STR$(AVE)):GOSUB66:PRINT"<black><reverse on>"AVE
316 X=X1+2:Y=Y+2:GOSUB66:PRINT"<reverse on><purple>GAMES";
317 X=X1+12-LEN(STR$(G7)):GOSUB66:PRINT"<black><reverse on>"G7
320 X=X1+2:Y=Y+1:GOSUB66:PRINT"<purple><reverse on>WINS ";
321 X=X1+12-LEN(STR$(NW)):GOSUB66:PRINT"<black><reverse on>"NW
326 RETURN
328 :
329 REM CLEAR MESSAGE
330 X=X(MS):Y=Y(MS): GOSUB66:SYSMT+3,X,X+5,Y,Y,KT,SK:PRINT"<rev off>": RETURN
338 :
339 REM SEE THE DEAL
340 IFSD=1THEN RETURN
341 X=(2*X(0)+X(I))/3:Y=(2*Y(0)+Y(I))/3:GOSUB66:SYSMT+6,208
342 GOSUB256:SYSMT+9,208
344 X=(2*X(I)+X(0))/3:Y=(2*(Y(I))+Y(0))/3:GOSUB66:SYSMT+6,208
348 GOSUB256:SYSMT+9,208
360 RETURN
366 :
367 REM DECLARE WIN
368 IFSO=0THENGOSUB26
370 NW=NW+1:WF=1
372 X1=21:X2=34:Y1=2:Y2=06:CL=2:GOSUB2300
374 Y=Y1+2:X=X1+3:GOSUB66:PRINT"<reverse on><red>YOU<cursor right>WIN ":RETURN
378 :
379 REM TAB TO TAB
380 T6=C(FR):C(FR)=0:X=X(FR):FORI=T6TO1STEP-1:Y=Y(FR)+I-1:GOSUB66:GOSUB224:NEXT
382 I=T2:FORJ=1TOT6:C(T2)=C(T2)+1:B(T2,C(T2))=B(FR,J)
384 Y=Y(T2)-1+C(T2):IFC(T2)=0THENY=Y(T2)
386 X=X(T2):GOSUB66:GOSUB202:NEXT
387 RETURN
388 :
389 REM UPDATE STATS
390 G7=G7+1:T6=0:FORI=6TO13:T6=T6+C(I):NEXT:IFWF=1THENT6=104
392 G8=G8+T6:AV=INT(G8/G7+.5):IFT6<LOTHENLO=T6
394 IFT6>HITHENHI=T6
396 WF=0:RETURN
398 :
399 REM SEE CARD MOVE
400 AS=SO:SO=1
401 X=(2*X(FR)+X(I))/3:Y=(2*Y(I)+(Y(FR)+C(FR)-1))/3:GOSUB66
402 SYSMT+6,208:GOSUB202
403 SYSMT+9,208
404 X=(2*X(1)+X(FR))/3:Y=(2*(Y(1))+Y(FR)+C(FR)-1)/3:GOSUB66
406 SYSMT+6,208:GOSUB202
408 SYSMT+9,208:SO=AS
416 RETURN
438 :
439 REM SPREAD GRAPHICS
440 IFK>36THEN442
441 X=1:Y=2:FORJ=1TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
442 X=1:Y=2:FORJ=1TO36:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:IFK>72THEN445
444 X=1:Y=8:FORJ=37TOK:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT:GOTO447
445 X=1:Y=8:FORJ=37TO72:GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
446 X=1:Y=14:FORJ=73TOK :GOSUB66:C(I)=J:GOSUB202:X=X+1:NEXT
447 X=X(MS):Y=Y(MS):GOSUB66:PRINT"<reverse on><purple>ANY<cursor down><cursor left><cursor left><cursor left>KEY":GOSUB62:RETURN
482 GOSUB5000
484 ONIGOTO500,486,39000
486 GOSUB5400:GOTO500
498 :
499 NEW GAME
500 SW=1:RE=0:SYSMT+9,216: FORI=1TONP:C(I)=0:NEXT: ONWG+1GOTO504,516
504 FORI=1TONC:B(0,I)=S(I-1):NEXT:C(0)=NC
508 FORI=2TO5:B(I,1)=B(0,C(0)):C(0)=C(0)-1:GOSUB340:C(I)=1: GOSUB200:NEXT
512 FORK=1TO2:B(1,K)=B(0,C(0)):C(0)=C(0)-1:GOSUB340:I=1:GOSUB250:C(1)=2
514 NEXT:I=0:GOSUB250:GOSUB230: GOTO530
516 K=0:K1=0:AA=0:AK=0
518 IFAA=1ANDAK=1THEN529
520 IFFNV(S(K))=0ANDAA=0THEN527
522 IFFNV(S(K))=12ANDAK=0THEN525
523 K1=K1+1:B(0,K1)=S(K):K=K+1:C(0)=K1:I=0:GOSUB200:GOTO518
525 TC=S(K):T2=FNS(TC)+6:B(T2,1)=S(K):C(T2)=1:I=T2:GOSUB200:K=K+1:AK=1:GOTO518
527 TC=S(K):T2=FNS(TC)+10:B(T2,1)=S(K):C(T2)=1:I=T2:GOSUB200:K=K+1:AA=1:GOTO518
529 FORI=K+1TO104:K1=K1+1:B(0,K1)=S(I-1):NEXT:C(0)=102:I=0:GOSUB250:GOTO508
530 FORK=0TONP:MM(K)=C(K):NEXT:SYSMT+6,224
534 I=MS:GOSUB65:PRINT"<reverse on><purple>FROM<cursor left><cursor left><cursor left><cursor left>"
536 CH$="HS<f1><f3><f2>OR 2345":IFSW=2THEN CH$="HS<f1><f3><f2>OR 12345"
537 SYSMT+3,0,38,23,23,KT,SK:WM=0
538 GOSUB20:GOSUB330
539 IFI>7THEN544
540 ONIGOTO3000,850,4000,4004,1600,1620,800
544 FORK=0TONP:MM(K)=C(K):NEXT:SYSMT+6,224:MM(NP+1)=SW:MM(NP+2)=RE
548 IFI>8THEN590
549 IFSW=2ANDRE<3THEN564
550 IFC(0)=0THENWM=1: GOSUB90:GOTO534
551 FORI=2TO5
552 C(I)=C(I)+1:B(I,C(I))=B(0,C(0)):C(0)=C(0)-1:GOSUB340
553 IFC(0)=0THENX=X(0):Y=Y(0):GOSUB66:GOSUB224:GOSUB200:I=0:GOSUB230:SW=2:GOTO534
554 GOSUB200:NEXT:I=0:GOSUB230
555 IFRE>2THEN534
556 FORK=1TO2
558 C(1)=C(1)+1:B(1,C(1))=B(0,C(0)):C(0)=C(0)-1:GOSUB340:
559 IFC(0)=0THENX=X(0):Y=Y(0):GOSUB66:GOSUB224:I=0:GOSUB230:SW=2:GOTO534
560 I=1:GOSUB250:NEXT
562 I=0:GOSUB230:GOTO534
564 IFC(0)+C(1)=0THENGOSUB90:GOTO534
566 IFC(0)=0THENGOSUB260
568 C(1)=C(1)+1:B(1,C(1))=B(0,C(0)):C(0)=C(0)-1:IFC(0)=0THENI=0:GOSUB65:GOSUB224
570 I=0:GOSUB230:I=1:GOSUB200:GOTO534
590 FR=I-7:IFSW=2THENFR=I-8
592 IFC(FR)=0THENWM=1:GOSUB90:GOTO534
594 FC=B(FR,C(FR)):FV=FNV(FC):FS=FNS(FC)
600 I=MS:GOSUB65:PRINT"<reverse on><purple><cursor right>TO<cursor right><cursor right><cursor right>"
604 CH$="HS<f1><f3><f2>ORAK":GOSUB20:GOSUB330
608 ONIGOTO3000,850,4000,4004,1600,1620,800,612,616
612 T2=10+FS:GOTO620
616 T2=6+FS
620 TV=FNV(B(T2,C(T2))): GOSUB270:ONPLGOTO624,628
624 WM=3: GOSUB90:GOTO534
628 C(T2)=C(T2)+1:B(T2,C(T2))=B(FR,C(FR)):C(FR)=C(FR)-1:I=FR:GOSUB200
632 I=T2:GOSUB200
678 :
679 REM WIN?
680 FORK=6TO13:IFC(K)<13THEN534
682 NEXT
684 GOSUB368:GOTO4000
798 :
799 REM REDEAL
800 IFRD=1ANDRE>2THENWM=4: GOSUB90:GOTO534
802 IFC(0)>0THENWM=1: GOSUB90:GOTO534
803 FORK=0TONP:MM(K)=C(K):NEXT:SYSMT+6,224:MM(NP+1)=SW:MM(NP+2)=RE
804 POKE198,0:RE=RE+1
808 C(0)=0:FORI=1TO5:FORK=C(I)TO1STEP-1: IFC(I)=0THEN816
812 C(0)=C(0)+1:B(0,C(0))=B(I,K):NEXTK:C(I)=0:GOSUB200
816 NEXTI:I=0:GOSUB250:GOSUB230:GOSUB65
818 PRINT"<reverse on><purple><cursor left><cursor up><cursor up>REDEAL<cursor down><cursor left><cursor left><cursor left><cursor left>";MID$(STR$(RE),2,1)
820 SW=1: GOTO534
848 :
849 REM PROMPT FOR SPREAD
850 SYSMT+6,208:X=X(MS):Y=Y(MS):GOSUB66:PRINT"<reverse on><purple>WHICH"
852 IFPK=1ANDSW=2THEN884
853 IFPK=1ANDSW=1THENWM=2:GOSUB90:GOSUB330:GOTO534
854 CH$=" 12345":GOSUB20:I=I-1:GOSUB330
872 IFC(I)=0THENWM=1:GOSUB90:GOTO534
876 GOSUB65:GOSUB224
880 K=C(I):GOSUB440:SYSMT+9,208:GOTO534
884 CH$=" 1":GOSUB20:I=I-1:GOSUB330:GOTO872
888 :
889 REM CLAIM
890 IFC(0)+C(1)+C(2)>0THENGOSUB90:GOTO534
894 GOSUB368:GOTO4000
998 :
999 REM SCREEN
1000 PRINT"<clr>":POKE53265,11
1004 POKE53281,1:POKE53280,BD:POKE53272,19:SYSMT+3,0,39,0,24,KT,SK
1008 FORI=10TO13:GOSUB65:PRINT"<purple><reverse on><cursor up><cursor right>A":NEXT:FORI=6TO9:GOSUB65:PRINT"<purple><reverse on><cursor up><cursor right>K":NEXT
1012 FORI=1TO5:GOSUB65:PRINT"<purple><reverse on><cursor up><cursor right>"MID$("12345",I,1):NEXT
1032 POKE646,SK:X=39:Y=0:GOSUB66:PRINT"/"
1036 X1=3:Y1=8:X2=11:Y2=12:CL=CC:GOSUB2100
1040 X=X1+1:Y=Y1+1:GOSUB66:PRINT"<reverse on><black>F1 QUIT"
1044 Y=Y+1:GOSUB66:PRINT"<reverse on><black>O OOPS"
1048 Y=Y+1:GOSUB66:PRINT"<reverse on><black>H HELP"
1052 X1=1:Y1=1:X2=14:Y2=05:CL=CC:GOSUB2300
1053 IFWG=1THEN1060
1054 X1=1:Y1=1:X2=14:Y2=05:CL=CC:GOSUB2300
1056 X=X1+2:Y=Y1+2:GOSUB66:PRINT"<reverse on><black> DUCHESS " :GOTO1090
1060 X=X1+2:Y=Y1+2:GOSUB66:PRINT"<reverse on><black>PARISIENNE"
1064 REM X1=13:X2=28:Y1=22:Y2=24:GOSUB2100
1090 POKE53265,27:SYSMT+6,216:RETURN
1598 :
1599 REM CLEAR STAT FILE
1600 HI=0:LO=1000:G7=0:NW=0:G8=0:SYSMT+6,208
1605 POKE53280,BD+1:SYSMT+3,12,25,09,15,32,1
1607 X=16:Y=11:GOSUB66:PRINT"<blue><reverse on>STATS"
1608 Y=Y+2:GOSUB66:PRINT"<reverse on>RESET<rev off>"
1610 FORJ=1TO1000:NEXT:SYSMT+9,208:GOTO534
1618 :
1619 REM OOPS
1620 FORI=0TONP:C(I)=MM(I):NEXT:SYSMT+9,224:SW=MM(NP+1):RE=MM(NP+2):GOTO534
1998 :
1999 :REM MEDIUM WINDOW
2000 SYSMT+3,X1,X2,Y1,Y2,032,SK:SYSMT+3,X1,X2,Y1,Y1,120,CL
2004 SYSMT+3,X1,X1,Y1,Y2,119,CL:SYSMT+3,X2,X2,Y1,Y2,118,CL
2008 SYSMT+3,X1,X2,Y2,Y2,121,CL:SYSMT+3,X2,X2,Y1,Y1,125,CL
2012 SYSMT+3,X2,X2,Y2,Y2,126,CL:SYSMT+3,X1,X1,Y1,Y1,123,CL
2016 SYSMT+3,X1,X1,Y2,Y2,127,CL
2020 RETURN
2088 :
2099 REM THIN WINDOW
2100 SYSMT+3,X1,X2,Y1,Y2,032,SK:SYSMT+3,X1,X2,Y1,Y1,115,CL
2104 SYSMT+3,X1,X1,Y1,Y2,099,CL:SYSMT+3,X2,X2,Y1,Y2,110,CL
2108 SYSMT+3,X1,X2,Y2,Y2,114,CL:SYSMT+3,X2,X2,Y1,Y1,113,CL
2112 SYSMT+3,X2,X2,Y2,Y2,224,CL:SYSMT+3,X1,X1,Y1,Y1,117,CL
2116 SYSMT+3,X1,X1,Y2,Y2,116,CL
2120 RETURN
2198 :
2199 REM THICK WINDOW
2200 SYSMT+3,X1,X2,Y1,Y2,032,CL
2204 X=X1:Y=Y1:GOSUB66:POKE646,CL:PRINT"!";:FORK4 =1TOX2-X1-1:PRINT"#";:NEXT
2208 PRINT"$";:FORK4=1TO Y2-Y1-1:PRINT"<cursor left><cursor down>├";:NEXT
2212 X=X1:Y=Y1+1:GOSUB66:FORK4=1TOY2-Y1-1:PRINT"🮇<cursor down><cursor left>";:NEXT
2216 PRINT"£";:FORK4=1TOX2-X1-1:PRINT"*";:NEXT:PRINT"+"
2220 RETURN
2298 :
2299 REM THICK WINDOW
2300 SYSMT+3,X1,X2,Y1,Y2,032,SK:SYSMT+3,X1,X2,Y1,Y1,35,CL
2304 SYSMT+3,X1,X1,Y1,Y2,106,CL:SYSMT+3,X2,X2,Y1,Y2,107,CL
2308 SYSMT+3,X1,X2,Y2,Y2,042,CL:SYSMT+3,X2,X2,Y1,Y1,036,CL
2312 SYSMT+3,X2,X2,Y2,Y2,043,CL:SYSMT+3,X1,X1,Y1,Y1,033,CL
2316 SYSMT+3,X1,X1,Y2,Y2,028,CL
2320 RETURN
2998 :
2999 REM HELP
3000 SYSMT+6,208 :PRINT"<clr>":POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
3004 IFA8=1THEN3014
3010 SYSMT+27,"T.DOUBLE DECK",DV,32768,3,7,"🭷🭽╭🭲🭼🭶 🭷🭶🭸╯ 🭷╭🭽 - ╲AURICE ╰ONES "
3012 A8=1:GOTO3020
3014 SYSMT+30,32768,3,7,"🭷🭽╭🭲🭼🭶 🭷🭶🭸╯ 🭷╭🭽 - ╲AURICE ╰ONES "
3020 PRINT"<clr>":POKE53272,19:SYSMT+9,208:GOTO534
3998 :
3999 REM QUIT
4000 GOSUB390:GOSUB300
4004 GOSUB5000:ONIGOTO500,4134,39000
4134 GOSUB5400:GOTO500
4998 :
4999 REM MENU
5000 X1=21:X2=34:Y1=9:Y2=17:CL=CC:GOSUB2100
5100 X=X1+2:Y=Y1+2 :GOSUB66:PRINT"<blue><reverse on>1<rev off> <reverse on>PLAY
5104 Y=Y+2:GOSUB66:PRINT"<blue><reverse on>2<rev off> <reverse on>OPTIONS
5108 Y=Y+2:GOSUB66:PRINT"<blue><reverse on>3<rev off> <reverse on>LOADSTAR
5112 CH$="123":GOSUB20:RETURN
5198 :
5199 REM OPTIONS MENU
5200 SYSMT+6,208:PRINT"<clr>":POKE53272,19:POKE53280,BD:POKE53281,1
5204 SYSMT+3,0,39,0,24,KT,SK
5206 X1=3:X2=17:Y1=5:Y2=20:CL=SK:GOSUB2100
5208 X=X1+2:Y=Y1+2:GOSUB66:PRINT"<reverse on><black> OPTIONS"
5236 Y=Y+2:X=X+2:GOSUB66:PRINT"<reverse on><blue>COLOR "
5240 Y=Y+1:X=X-2:GOSUB66:PRINT"<reverse on><red>1 DECK "
5244 Y=Y+1:GOSUB66:PRINT"<reverse on><red>2 TILE "
5248 Y=Y+1:GOSUB66:PRINT"<reverse on><red>3 BORDER"
5250 Y=Y+2:GOSUB66:PRINT"<reverse on><blue> STYLE"
5252 Y=Y+1:GOSUB66:PRINT"<reverse on><red>4 TILE
5254 Y=Y+1:GOSUB66:PRINT"<reverse on><red>5 DECK
5256 Y=Y+2:GOSUB66:PRINT"<reverse on><red>6 PLAY
5262 SYSMT+3,21,36,7,19,KT,SK
5264 Y=11: X=29:GOSUB66:CA=35:GOSUB203:X=31:GOSUB66:CA=11:GOSUB203
5266 X=23:Y=11:GOSUB66:GOSUB256
5270 CH$="123456":GOSUB20:ONIGOTO5310,5320,5330,5340,5362,5394
5280 MD=2:MU=FNC(MU):X=X3:Y=Y3+2*I-2:GOSUB66:PRINTO$(7+MU):GOTO5444
5290 MD=2:SD=FNC(SD):X=X3:Y=Y3+2*I-2:GOSUB66:PRINT"<reverse on><black>"O$(SD):GOTO5444
5300 MD=2:PK=FNC(PK):X=X3:Y=Y3+2*I-2:GOSUB66:PRINT"<reverse on><black>"O$(PK):GOTO5444
5310 MD=16:CC=FNC(CC):IFCC=1THENCC=2
5314 GOTO5266
5320 MD=16:SK=FNC(SK):SYSMT+36,KT,KT,SK:GOTO5270
5330 MD=16:BD=FNC(BD):POKE53280,BD:GOTO5270
5340 U2=K3:K3=K3+1:IFK3=6THENK3=1
5342 KT=TT(K3)
5344 SYSMT+36,TT(U2),KT,128
5346 GOTO5270
5350 WG=WG+1:IFWG=2THENWG=0
5354 X=X3-3:Y=Y3+2*I-2:GOSUB66:PRINT"<reverse on><black>"O$(9+WG)
5356 HI=0:LO=1000:G7=0:NW=0:G8=0
5358 GOTO5444
5362 KC=KC+1:IFKC=5THENKC=1
5366 GOTO5266
5394 GOSUB1000:RETURN
5398 :
5399 REM MAIN OPTIONS
5400 SYSMT+3,0,39,0,24,KT,SK
5404 X1=09:X2=31:Y1=2:Y2=22:CL=SK:GOSUB2300:X3=X1+14:Y3=Y1+4
5408 X=X1+2:Y=Y1+2:GOSUB66:PRINT"<red><reverse on> OPTIONS"
5412 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>1 OPENING <black>"O$(7+MU)
5416 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>2 SOUND <black>"O$(SO)
5420 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>3 SEE DEAL <black>"O$(SD)
5424 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>4 PEEK <black>"O$(PK)
5428 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>5 REDEAL <black>"O$(RD)
5432 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>6 RULES <black>"O$(9+WG)
5436 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>7 GRAPHIC MENU "
5440 Y=Y+2:GOSUB66:PRINT"<reverse on><blue>8 PLAY "
5444 CH$="12345678":GOSUB20:ONIGOTO5280,5460,5290,5300,5470,5350,5200,5394
5460 MD=2:SO=FNC(SO):X=X3:Y=Y3+2*I-2:GOSUB66:PRINT"<reverse on><black>"O$(SO):GOTO5444
5470 RD=RD+1:IFRD=2THENRD=0
5474 X=X3:Y=Y3+2*I-2:GOSUB66:PRINT"<reverse on><black>"O$(RD)
5476 IFRD=0THENNR=1
5479 GOTO5444
10000 DV=PEEK(186):OPEN15,DV,15,"S0:DOUBLE DECK DUO":CLOSE15
10010 SAVE"DOUBLE DECK DUO",DV:END
38998 :
38999 REM SAVE OPTS - RECONNECT
39000 OPEN15,DV,15,"S0:DUO.OPTS":CLOSE15
39005 OPEN2,DV,2,"DUO.OPTS,P,W"
39010 PRINT#2,K3:PRINT#2,SD:PRINT#2,SO:PRINT#2,CC:PRINT#2,SK
39020 PRINT#2,BD:PRINT#2,FB:PRINT#2,MU:PRINT#2,WG:PRINT#2,PK:PRINT#2,RD
39024 PRINT#2,KC
39030 CLOSE2
40000 PRINT"<clr>":POKE53281,0:FORI=0TO21:POKE828+I,8+I:NEXT:POKE788,49
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23
40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I
40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
�56,128:�55,0:�:�788,52 6 DV��(186):�DV�8�DV�8 l �57812"DUO FONT",DV,0:�780,0:�781,0:�782,8:�65493 � �"� ��WO DECKS OF CARDS . . ."