Home » Personal collection » Commodore disks » disk30b2_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 » disk30b2_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 . . ."