CP HEAD  70:0:0:47999:"23739","o" 8"CP$":40000@:Z=45709:.3,20 "CP1" ("CP2" 2"CP" XCP$ o@3qůůůůůůůůůůůůůůůŠůŁůůůůůůůůůŀůŠŃůţţŬ5Ŭ5ůůŁŀa%健u5偁uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuu55%5555555555%55uuueuu5uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu==uuu5u5uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu%%uuu55uuu5555555555555555uuuuuuuuuuuuuuuu55555555555555uuuuuuuuuuuuuu55555555555555uuueu5ŮuŦuuu偁5塅偁ůůůůůůůůůůůůůůůůŃůůůůůůůůůŇůŁůţţŬ5šuůŃŠůůůůůůůůůůůůůůůŠŁůůţůůţůŃŠ%健偁ů健%5%555555555555%5uuuuuuuuuuuuuuuu5555555555555555uuuuuu5uuu5%555555555555%5==uuuuuuuuuuuuuuuuuuuu5Ŭ5Ŧuuu==%%uuuuuuuuuuuuuuuuuuuŬ5Ŧuuu%%5555555555555555uuuuuuuuuuuuuuuu55555555555555uuuů55uuu55555555555555偁5ů5偁ůůůůůůůůůůůůůůůŃůŬ5ů5ůŁůņaůůůůůůůůůŁůŠůůůůůůůůůůůůůůůŠ e"PDD:%% ?uuuuuuuuuuuuuu55%5555555555%55uuuuuuuuuuuuuuuu5555555555555555`uuuuuuuuuuuuuu==uuuuuuuuuuuuuuuu`uuuuuuuuuuuuuu%%uuuuuuuuuuuuuuuu brPDDZuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuuU%pʪZU%pFFZůŃůůůůůůůůůŃůůůůůůůůůůůůůůůůW%pBZd9::9::9::9::9::9::988909889889098898890988d9889098898890988988909889::9::9::9::9::9::d99x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#hCP1 2 )2ůůůůůůůůůůůůůůůŠůůůůůůůůůůůůůůůŠůůůůůůůůůůůůůůůŀuuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuuůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůŠůůůůůůůůůůůůůůůŠůůůůůůůůůůůůůůůŠ5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555ůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůůŠůůůůůůůůůůůůůůůŠ``uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu5555555555555555`uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu`uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu`uuuuuuuuuuuuuuuu5555555555555555uuuuuuuuuuuuuuuu``ůůůůůůůůůůůůůůůůůůůůůůůůůůůůůů`:::`x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#%      *      * u 5 uu 55  uu* u  uu   uu* u  uu   uu*55555 555u555 555555 u5u5555 55555 55555 5u5u555*    * Š  Š   Š Šůů &ů  & u5u5uuu 55555&uuuuu55555 uuuuu &uuuuu uuuuu &uuuuu uuuuu &5555555555u55uuu5u55555555555555555  & ůů &ŠůŠůůůŠůůD,||~<<8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#0 <l7"P ````3fxPBUP ``3`pa> NUEp"T`!``?`x`03 (YEpuP3 J````3flc03 (EpbRP?`3<fa>8 UP3 €0N(3 3 D? +)8ufFT@3 3UDDW@J3WDw6JJts? J8$D;N *$b W@5  JJ3 +*0$A0UwGT@5J3 +:wvUDDvZ3R Upi33 0330663 33M;w 33 >;0>633 3;! H7>? 070063? 37L333H03 033063 33P 33I%p03 ?3?<3 3P 3)WqW@L 3(R U`!(3R u@i>??3?<?34! ' ' ' ' ' ' ' ' ' ' ' ' ' ' ''''F  x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#$$$~$$~$>8>>fl0fF4>> 0`< 0 >>0 0l88llll< 8| 0|xxx(0SS=3:500 ="P"600X ="M"700 ="A"1100L *="C"SS=1:CH=1:500 ="Q"1700 ="R"9600% " 200 SHUFFLE PACK CL=0200 Z=1SS +C$>2C$=C$(3)+C$(2)  9200# S15,23;7;I;B$;16,23;"";17,23;"" 7CL>1F=15:.003xD,10 :F &Z 0 200 XPUT A CARD ON STACK Z""602Z [CL=0200 ]520,0;"WHICH STACK?":.2~L,20 bS$= lS$=""610b qTS$<"A"S$>"G".5,10 :1,0:20,0;,,:200 v<20,0;,,:ST=(S$)-64@:.2~L,20 { 9400$  9200# AT=(ST*3)-2 T$=" "660 M(15,23)=(Z,AT).5,10 :1,0:200 SB$(1)+1ɯT$(1).5,10 :.1}L,0:200 X=Z:X=X+(X<15):X,AT;7;I;B$;X+1,AT;"";X+2,AT;"":P$(ST,Z+1)=B$:P$(ST,Z+1,3)="1" u1600@:CL=015,23;4;" ";16,23;" ";17,23;" ":680 _9200#:15,23;7;I;B$;16,23;"";17,23;"" .05|L,20  200 MOVE A PILE ""702 :20,0;"FROM WHICH STACK?":.2~L,20 S$= S$=""710 TS$<"A"S$>"G".5,10 :1,0:20,0;,,:200 FS=(S$)-64@ :20,0;"TO WHICH STACK? ":.2~L,20 S$= S$=""740 TS$<"A"S$>"G".5,10 :1,0:20,0;,,:200 )20,0;,,:.2~L,15 TS=(S$)-64@ ST=FS:9500% ST=TS:9400$  T$=" "N=0:850R m(T$(1))-1(J$(1)).5,10 :.1}L,0:20,0;,,:200  W(N,N1)=(O,O1).5,10 :.1}L,0:20,0;,,:200 RSTORE OLD STACK WD$(19,3) \ CO=1 aZ=O19 fIP$(FS,Z,3)="1"D$(CO)=P$(FS,Z):P$(FS,Z)=" ":CO=CO+1:Z PRINT OUT OLD STACK (O-1,O1)=579O,O1;7;1;93];94^;O+1,O1;95_;96`:Z=O+218:(Z,O1)39'Z,O1;4;7;" " X(O-1,O1)579Z=O18:(Z,O1)39'Z,O1;4;7;" " Z TURN NEXT CARD O=11000 CT=CT-1 FP$(FS,O-1,2)=""P$(FS,O-1,2)=""I=2 FP$(FS,O-1,2)=""P$(FS,O-1,2)=""I=0 kO-1,O1;7;I;P$(FS,O-1,1);P$(FS,O-1,2);O,O1;"";O+1,O1;"" P$(FS,O-1,3)="1" PRINT NEW STACK  CO=1 Z=N+118 ,D$(CO)" "1050:CO=CO+1:Z .2~L,20:200 2D$(CO,2)=""D$(CO,2)=""I=0 2D$(CO,2)=""D$(CO,2)=""I=2 $JZ,N1;7;I;D$(CO)(2);Z+1,N1;"";Z+2,N1;"" )P$(TS,Z)=D$(CO) . LMOVE AN ACE V*16,22;4;0;"H" X""1112X [520,0;"WHICH STACK?":.2~L,20 `S$=:S$=""1120` e}S$<"A"S$>"H".5,10 :1,0:20,0;,,;16,22;4;7;" ":200 j\20,0;,,;16,22;4;" ":ST=(S$)-64@:.2~L,20 lS$="H"CL=0200 o2S$="H"CL>09200#:T$=B$:1200 t S$"H"9400$:1200 ~n.5,10 :1,0:20,0;,,;16,22;4;7;" ":200  WHICH ACE PILE? (T$(2)=""AP=1:I=2 (T$(2)=""AP=4:I=0 (T$(2)=""AP=7:I=2 )T$(2)=""AP=10 :I=0 AC=(AP+2)/3 AV=(T$(1))-143 AVA(AC)16,22;4;0;" ";20,0;0;,,:.5,10 :1,0:200 S$="H"1400x MOVE ACE FROM STACK ^(N-1,N1)579N,N1;4;7;" ";N+1,N1;" ";N+2,N1;" "  (N-1,N1)=579N,N1;7;1;93];94^;N+1,N1;95_;96`;;N+2,N1;4;7;" ":CT=CT-1 #P$(ST,N)=" " ('N=1P$(ST,N)=" ":1500 -FP$(ST,N-1,2)=""P$(ST,N-1,2)=""I=0 2FP$(ST,N-1,2)=""P$(ST,N-1,2)=""I=2 7kN-1,N1;7;I;P$(ST,N-1,1);P$(ST,N-1,2);N,N1;"";N+1,N1;"" AP$(ST,N-1,3)="1" F 1500 xMOVE ACE FROM PILE v1600@:CL=015,23;4;" ";16,23;" ";17,23;" ":1500  9200# S15,23;7;I;B$;16,23;"";17,23;"" PRINT CARD ON ACE PILE ,T$(2)=""T$(2)=""I=2 ,T$(2)=""T$(2)=""I=0 [AP,23;7;I;T$(2);AP+1,23;"";AP+2,23;"" A(AC)=A(AC)+1 ]16,22;4;" ";20,0;0;,,:.2~L,20:200 @TAKE A CARD OFF PILE JC$>2C$=C$(3) TCL=CL-1 ^ YOU LOST 53570B:Z=58264  7200  =""1730  10  FINISHED  7000X 48000:Z=53513 KZ=317:Z,2;1;" ":Z 69 ,8;1;6;"CONGRATULATIONS" CCH=110 ,8;1;6;"BUT YOU CHEATED"  7300 411 ,10 ;1;6;"PRESS A KEY"  =""2060   15 * 2090* INSTRUCTIONS 0:0:7: +0,10 ;6;"INSTRUCTIONS" _2,0;"THE AIM OF THE GAME IS TO GET ALL THE CARDS ON THE ACE PILES. YOU MAY MOVE CARDS OFF YOUR DECKONTO ANY OF THE 7 STACKS, OR ANYOF THE PILES OF ACES. CARDS ON THE STACKS MUST BE IN DESCENDING ORDER AND ALTERNATE RED AND BLACK. CARDS ON THE PILES OF ACES MUST BE IN ASCENDING ORDER AND OF THESAME SUIT." "STACKS MAY BE MOVED ONTO OTHER STACKS AS LONG AS ANY NEW STACKSFORMED COMPLY TO THE RULES. ANY FACE DOWN CARD EXPOSED WILL BE TURNED FACE UP, AND MAY THEN BE USED IN THE GAME AS NORMAL. CARDS PUT ON THE ACE PILES ARE NO LONGER IN PLAY." ,#1;5;" PRESS ANY KEY" =""5050  10 pKEY LAYOUT zKZ=317:Z,2;4;" ":Z 4,3;2;6;"S";4;0;" IS USED TO TURN OVER YOUR";5,3;"HAND OF CARDS 3 AT A TIME." 7,3;6;2;"M";4;0;" IS USED TO MOVE ONE PILE";8,3;"OF CARDS ONTO ANOTHER." }10 ,3;6;2;"A";4;0;" IS USED TO MOVE A CARD";11 ,3;"ONTO THE ACES PILE." 13 ,3;6;2;"P";4;0;" IS USED TO MOVE A CARD";14,3;"FROM YOUR PILE TO A STACK." X16,3;6;2;"Q";4;0;" IS USED TO GIVE UP WITH!!" =""6080 7100:15 XTUNE ONE b 7090 lZ=110 DU,NO:DU,NO Z  .3,7,.1}L,9 ,.3,7,.1}L,5,.3,4,.1}L,5,.3,4,.1}L,2,.8L,0,.3,12 TUNE TWO  7190 Z=16 DU,NO:DU,NO Z  g.2~L,0,.4L,0,.1}L,0,.4L,2,.4L,4,.2~L,5  TUNE THREE * 7290z 4Z=19 >DU,NO:DU/2,NO HZ R z.8L,0,.8L,2,.3,3,1,0,.8L,0,.8L,2,.3,3,.3,1.8ffff,.8L,0 TUNE FOUR  7390 Z=110 Z=67 DU,NO:DU,NO Z  ޫ.2~L,0,.2~L,2,.2~L,4,.5,5,.6,0,.2~L,4,.2~L,4,.2~L,5,.5,7,.6,2 #(CREATE AND SHUFFLE PACK #-80:0:7:58300:Z=59943' #.58,4;4;0;"SHUFFLING PACK" #/423670v\,23672x\:23671w\,23673y\ #2oC$="1C2C3C4C5C6C7C8C9C:C;C1C$=C$(R-1)+C$(R+2) #^R=1C$=C$(R+2) #dNC=NC-1 #nZ #sC$=T$:T$="":V$=C$ #xNC=524:G #;8,0;4;7;" " #SET UP BOARD #P$(7,19,3) #"CO=7:X=1:Y=1 #Z=17 #F=1CO #9200#:9240$ # Y=Y+3 #F #'CO=CO-1:Y=1:X=X+1 #Z # 9200# #S15,23;7;I;B$;16,23;"";17,23;"" #WHICH CARD? #$C$(2)="C"A$="":I=0 #$C$(2)="D"A$="":I=2 #$C$(2)="H"A$="":I=2 #$C$(2)="S"A$="":I=0 $B=C$(1)+95_ $ B$=(B)+A$ $ $PRINT OUT CARD SET $W=X:Q=(Y+2)/3 $"aP$(Q,W,1)=B$(1):P$(Q,W,2)=B$(2):P$(Q,W,3)=("0"FCO)+("1"F=CO) $@\FCOX,Y;7;1;"[\";X+1,Y;"]^";X+2,Y;"_`":.003xD,10 $ETF=COX,Y;7;I;B$;X+1,Y;"";X+2,Y;"":.003xD,10 $JC$=C$(3) $O $TKEY LIST $^1,27;"KEYS";3,26;"M=MOVE";4,28;"PILE";6,26;"A=MOVE";7,28;"ACE";9 ,26;"P=PUT";10 ,28;"CARD";12 ,26;"S=MIX";13 ,28;"PACK" $ $FIND BOTTOM CARD $Z=191-1 $"P$(ST,Z,3)="1"9430$ $Z $:N=1:N1=(ST*3)-2:T$=" ":9490% $ T$=P$(ST,Z) $N=Z:N1=(ST*3)-2 % %FIND TOP CARD %&Z=110 %0"P$(ST,Z,3)="1"9550N% %:Z %DJ$=" ":9560X% %N J$=P$(ST,Z) %XO=Z:O1=(ST*3)-2 %b %v % RESTART %$19,10 ;"ARE YOU SURE?" %="Y"9630% %(="N"19,0;,,:200 % 9615% %80:0:7:58300:Z=59943' %C$=V$:9100#:120x