Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-lcc!mordor!styx!lognet2!ames!ucbcad!ucbvax!ucdavis!uop-wirth!hex
From: hex@uop-wirth.UUCP (Allyn Wade)
Newsgroups: net.sources,comp.sys.ibm.pc
Subject: Solitaire game for the IBM PC, PCjr, and compatibles
Message-ID: <164@uop-wirth.UUCP>
Date: Thu, 8-Jan-87 21:48:48 EST
Article-I.D.: uop-wirt.164
Posted: Thu Jan  8 21:48:48 1987
Date-Received: Fri, 9-Jan-87 23:57:27 EST
Organization: University of the Pacific, Stockton, California, USA
Lines: 270
Xref: mnetor net.sources:3692 comp.sys.ibm.pc:875


	I hope everyone has as much fun playing this as I had
writing it.  It will run on any reasonably compatible PC, any
version of DOS.  It will also work on a monochrome screen.
	I wrote Solitaire about 3 years ago, with hopes of selling
it and I even went so far as to get it copywrited, but I have decided
to void the copywrite and release it for free.
	Solitaire is dependant on clock speed, and I took the time a
couple of years ago to take the PCjr into consideration, but faster
clock speeds may cause Solitaire to go a little too fast.
	If enough people are interested, I could post hacks for the
different dealys and colors so you can tailor it to your machine.
	Uuencoded executable follows:
begin 644 s.com
MZ:$5*$,I0V]P>7)I9VAT(#$Y.#4@($%L;'EN(%=A9&4N("!!;&P@6X@5V%D90 @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @("!!;&P@4FEG:'1S(%)E2!K97D@=&\@8V]N=&EN=64@*BHJ
M 2')S7,@*!HL&RD (" @(" @(" @('1O(&UO
M=F4@=&\@=&AE('-O=7)C92]D97-T:6YA=&EO;BP@86YD('1H96X@<')E2!O
M=&AE7,@;VX@(  @(" @82!C87)D(&]F('1H92!O<'!O2!A(&MI;F2!T;R!R97-U;64@<&QA>2 M
M+0&O(" @(" @(" @(" @(""RLK(@(" @(" @LK*R " @(" @(" @(" @(" @
M(+*RLB @(" @LK*R " @(" @(" @(" @(" @(""RLK(@(""RLK(@(" @LK*R
MLK*RLB @(""RLB @(" @(+*R " @(" @(" @(" @(" @(" @LK*RLK*RLB @
M(""RLK*RLK*RLK(@(""RLB @(" @(+*R " @(" @(" @(" @(" @(" @(+*R
MLK*R(" @(""RLB @(" @LK(@(""RLB @(" @(+*R " @(" @(" @(" @(" @
M(" @(""RLK(@(" @(""RLB @(" @LK(@(""RLB @(" @(+*R " @(" @(" @
M(" @(" @(" @(""RLK(@(" @(""RLB @(" @LK(@(""RLB @(" @(+*R " @
M(" @(" @(" @(" @(" @(""RLK(@(" @(""RLK*RLK*RLK(@(""RLK*RLK*R
MLK*R " @(" @(" @(" @(" @(" @(""RLK(@(" @(" @LK*RLK*RLB @(" @
MLK*RLK*RLK(  " @(" @(" @(" @(+*RLB @(" @(" @(" @(" @LK*R " @
M(" @(" @(" @(""RLK(@(" @(" @(" @(""RLK( (" @(" @(" @(" @(""R
MLK(@(" @(" @(" @LK*R(" @LK*RLB @(+*RLK(@(" @LK( (" @(" @(" @
M(" @(""RLK(@(" @LK(@(" @LK*R(" @LK*RLB @(+*RLK*R(" @LK( (" @
M(" @(" @(" @(" @LK*R(""RLK*R(""RLK(@(" @(+*R(" @(+*R(+*RLB @
MLK( (" @(" @(" @(" @(" @(+*RLK*RLK*RLK*RLB @(" @(+*R(" @(+*R
M(""RLK(@LK( (" @(" @(" @(" @(" @(""RLK*R(""RLK*R(" @(" @LK*R
MLB @(+*R(" @LK*RLK( (" @(" @(" @(" @(" @(" @LK(@(" @LK(@(" @
M(" @LK*RLB @(+*R(" @(""RLK(!(4TZ(&UO=F4@8V%R9"AS*0!4.B!T:'5M
M8B!T:')U $5S8SH@:&5L<"!M96YU 2%%;G1E6]U(&QI:V4 =&\@
M=')Y(&%G86EN(#\!+E-H86QL($D@=&%K90 @;W9E6]U/P$$1&\@
M>6]U('=A;G0@V &.PS+_M *Z !G-$ :X__]0!R: 
M/@X _0=U ^C5 NBC!XTVC16_E@3H80=/4HL6BQ;L) %U^_KL) %T^Z!! :K[
M6C+DS18DWSQ9= D\3G7RQ@:(%O^!/M@! +!T44]/BB8\ 5-2B]B+%HL6["0!
M=?OZ["0!=/N+PZO[6EN--JD5OW8&Z 8'3U*+%HL6["0!=?OZ["0!=/N@00&J
M^UHRY,T6)-\\670'/$YU\NBN >@3!XTV/02_)@+HT0:['@"_X0&Y4 !1N0T 
M5U*+%HL6["0!=?OZ["0!=/N@/ &J^UJ!QY\ XN1?1T>+#HT6Z,H2@\,(BPZ-
M%NC $H/#"%GBQ8TVLP>_5@OH@P8RY,T6@#Z)%O]T![0+NP( S1#HR@;HYP*-
M-I (OWX Z&$&N1@ OQX!BB9  ;"Z4U*+V(L6BQ;L) %U^_KL) %T^XO#J_M:
M6X''G@#BX<8&N0(!Q@;2 @'&!NL" <8&! ,!Q@8= P'&!C8# <8&3P,!Q@9I
M P'&!FP# L8&<0,#Q@9X P3&!H$#!<8&C ,&Q@:9 Q7&!C0$ ,8&R@,7N1H 
M,\"-/H4"#@?SJ_\VV $'Z+X&Z*D&C3:8%+]"">B!!3+DS190Z)<&6#P;=07H
M\0?KX3T2$W00#" \='4#Z3@(/&UU*>DK"NAU!HTV,16_P@OHD 4RY,T64+_"
M"^@Y!E@,(#QN= P\>76IZ0;_Z)T+ZZ'HIP6 /HD6_W0&M LSV\T0,\!0!XL.
M-02+%C<$)HD.;  FB19N (L.M"R+%K8L)HD.6  FB19: #+_M (STLT0S2#&
M!H@1BL8&LP<'Q@:0" ?&!J,(!\8&M@@'Q@9(# ?&!H8,!\8&2A$'Q@:X# ?&
M!I@4!\8&QA0'Q@;V% ?&!OT4!\8&(14.Q@9P%0[&!@(5#L8&$14.Q@8Q%0[&
M!D$5#L8&. %PQ@8Y 0?&!CT!!\8&/@$'Q@8Z 7#&!D !!\8&/P$'Q@9! 8[&
M!HT5#L8&J14.Q@:)%O_#QP:-%N($QP:/%C!UQP:3%H( QP:5%NL QP:7%C< 
MQP:9%E  QP:;%O0!QP:=%M0PQP:?%I8 QP:A%A GPR: /I(%VG0;Q@9[ @"Y
M!P#H10!&@'S_ 74#Z < _@9[ N+MPZT\074NO\(!)H ]('05@\<0)H ]('0,
MOX(%)H ]('0#@\<0Z $!Z-0/4>@A %E!_@Y[ L,R_XH>>P*+Z]'E/HNV1 (^
MBYY2 CZ+OFT"P^CC_X _ '17_@_^#ID#5HOSK#+MBLB+%.,.1D;_-.+ZBLA.
M3H\$XOI>B50!5\8&+P0!Z(  7XH'BB8^ 0K = ($,(/'#E-2B]B+%HL6["0!
M=?OZ["0!=/N+PZO[6EO#Q@0 Z-0"P[\" (HF/0&P,;D' %-2B]B+%HL6["0!
M=?OZ["0!=/N+PZO[6EM @\<0XN'#Z-@#Z,[_Q@8O! '&!GL" +D' .@- /X&
M>P+B]^BX NC:_L-1Z"W_45?H>P)?68H,1C+MXQ"MZ X @#XO! %T ^C:#N+P
M6<-04U&+V(HF.P& _P1W!(HF.@& _P9V!(HF. &()CK^UA:L""Y P!34HO8BQ:+%NPD 77[^NPD
M 73[B\.K^UI;XN524(L6BQ;L) %U^_KL) %T^XHF-P&PLZO[6%J!QY( @?^>
M#W($65M8PU=24(L6BQ;L) %U^_KL) %T^XHF-P&PLZO[6%JY!0!34HO8BQ:+
M%NPD 77[^NPD 73[B\.K^UI;XN524(L6BQ;L) %U^_KL) %T^XHF-P&PLZO[
M6%J!QY( 4E"+%HL6["0!=?OZ["0!=/N*)CK^UA:
M4E"+%HL6["0!=?OZ["0!=/N*)C2 ('_G@]R!5]96UC#4E"+%HL6["0!=?OZ["0!=/N*)C+:P\8&>P(!N08 Z'+\Z < _@9[
M N+TPXHF/@&*!PK = ($,(/'#E-2B]B+%HL6["0!=?OZ["0!=/N+PZO[6EO#
MK(K@K#P!"  KV= 2!QZ  6.O!PZR*X*P\ 7(=="U34HO8BQ:+%NPD 77[
M^NPD 73[B\.K^UI;Z]Y0B\>RH/;RF/;B!:  B_A8Z\S#N" ',_^YT =34HO8
MBQ:+%NPD 77[^NPD 73[B\.K^UI;XN7#BB8_ ; @,_^YT =34HO8BQ:+%NPD
M 77[^NPD 73[B\.K^UI;XN7#N1D ,_^*)C\!L"!1N3\ 4U*+V(L6BQ;L) %U
M^_KL) %T^XO#J_M:6^+E@\+;PU&*)D !L""Y#P!34HO8BQ:+%NPD 77[
M^NPD 73[B\.K^UI;XN59P[D$ +]""5?HS_]?@<>@ .+UPS+DS1H1%MH!Z.@*
M,N3-&A$6V@&Y!P#&!GL" .CQ^NBZ $8^@+Z% @!U\3[&AH4" ='E/HN&W &)
M!/X&>P+BW.BQ"C+DS1H9%MH!N08 Q@9[ @%1Z+GZB@\R[;X! .A[ #Z OH4"
M '7U/L:&A0(!T>4^BX;< 8D 1D;BXEG^!GL"XM#H;@HRY,T:$1;: ;D8 #/V
M,_]'@?_H W((@1;: 3<",__H-0 ^@+Z% @!UYC/_/L:&A0(!T>4^BX;< 8F$
MF@-&1N+/Z#D Z.SYOQ(-N" @Z"[[Z'0!Z/X)PZ': ='8$0;: ='8,\ 1!MH!
M_P;: :': 27_ [(T]O**Q#+DB^C#Q@9[ @#&!LL#!C+MZ/_YBT0!5^CK^NB^
M";@@((H.RP-?@\<2XR/^!U?HU?KH&P'HI0E?5^AO_5^#QQ+BZ_X.RP/^!GL"
M_@_KP\8&RP/_P^A#_HTVHPB_+@#HMOV--K8(OT !Z*S]C39(#+\ #^BB_3+D
MS18] #MU)HTVA@R_# #HC_V--K@,OT !Z(7]C39*$;\ #^A[_3+DS18\&W2P
MZ//]Z!7ZPZ#* SS_=0^_ @WH9P"_$@WH80#IA?> /LL#_W0+. ;+ W(%Q@;+
M _^ !LL# S@&RP-V!OX.RP/K]#+_BA[+ ]'CBX>: [\"#5#H#_KHX@BX(""_
M$@W1ZSH>R@-T#>C[^>A! %CH! ?I,??H!P!8Z/H&Z2?WBB8_ ; @N04 4;D'
M %-2B]B+%HL6["0!=?OZ["0!=/N+PZO[6EOBY5F!QY( XMK#5X'OG@!24(L6
MBQ;L) %U^_KL) %T^XHF-P&PVJO[6%I24(L6BQ;L) %U^_KL) %T^XHF-P&P
MQ*O[6%I24(L6BQ;L) %U^_KL) %T^XHF-P&PQ*O[6%I24(L6BQ;L) %U^_KL
M) %T^XHF-P&PQ*O[6%I24(L6BQ;L) %U^_KL) %T^XHF-P&POZO[6%J!QY8 
M4E"+%HL6["0!=?OZ["0!=/N*)C6 %)0BQ:+%NPD 77[^NPD 73[BB8W ;# J_M86E)0
MBQ:+%NPD 77[^NPD 73[BB8W ;#$J_M86E)0BQ:+%NPD 77[^NPD 73[BB8W
M ;#$J_M86E)0BQ:+%NPD 77[^NPD 73[BB8W ;#$J_M86E)0BQ:+%NPD 77[
M^NPD 73[BB8W ;#9J_M86E_#C3;&%+]"">@E^\8&>P( QP8L! 0 BSXL!+C;
M^%-2B]B+%HL6["0!=?OZ["0!=/N+PZO[6EN--O84OR(+Z#/[,N3-%@K =0K&
M!BX$ .AU NON/ UT=CP;=3:@>P)0O\(+Z,/[Z. "Z$;]6*)[ HL^+ 2XV_A3
M4HO8BQ:+%NPD 77[^NPD 73[B\.K^UI;Z[ \,7(L/#=W""PQHGL"ZRV0#" \
M8W0_/&1U%H ^R@/_=!6 /LL#_W0.Q@9[ @CK#9#HV0#I>O_HW0#I=/_H#@& 
M/H," 705BS9] H \ '4,Z,0 Z5O_Z%\"Z;?TBAY[ N@B K_""^@O^XTV_12_
M- OHP+K&I ,(#QC=0+K@3QA=0C&!GL"!^L&D.@I .N-Z,\!Z-T @#Z# @!T#8 ^
MA (!= /I) /I!@. /H0" '4#Z=(!Z4P"C38"%;MD .L(D(TV$16[R "_P@OH
MP/F+#H\6Z.8%BPZ1%NC?!8'SK "+#H\6Z-0%BPZ1%NC-!>B ![_""^A+^L. 
M/GL"!G\^Q@:# @"*'GL"B!Y_ HK#!#&_+@N*)C\!4U*+V(L6BQ;L) %U^_KL
M) %T^XO#J_M:6S+_T>/_MT0"CP9] L. /LL#_W4'Z'K_6.D0_K\N"XHF/P&P
M1%-2B]B+%HL6["0!=?OZ["0!=/N+PZO[6EO&!H," <. /GL"!G\^Q@:$ @"*
M'GL"BL,$,;\\"XHF/P%34HO8BQ:+%NPD 77[^NPD 73[B\.K^UI;,O^('H("
MT>/_MT0"CP:  L._/ N*)C\!L$%34HO8BQ:+%NPD 77[^NPD 73[B\.K^UI;
MQ@:$ @'#BAY[ H#\2W4J"MMT"H#[!W\3_LOK.9"S"( ^+@0 ="_^R^LKD/[+
M@#XN! %T(?[+ZQV0@/Q-=4?^PX#[!W0'<@XRV^L*D( ^+@0!= +^P^@P (@>
M>P(R_]'CB[_, [C;^(D^+ 134HO8BQ:+%NPD 77[^NPD 73[B\.K^UI;P^E5
M_HHF/P&P((L^+ 134HO8BQ:+%NPD 77[^NPD 73[B\.K^UI;PXLV?0*+/H "
MB@U',NT+R74,@'P!2W03Z"'^Z1KR1T?B_(M$ 8M=_NC4 HH,4<8$ $8.!_.E
M_S;8 0>@?P*B>P+&!B\$ .B+].BY\\8$ >C-\Z"" J)[ L8&+P0!Z'3T68L>
M@ ( #\8&+P0 K>B(].A; ^+WZ#7SZ,$!Z;KQBS9] HH,1C+MXSE)= 1&1N+\
MBP3H, "@?P*B>P+H9_. / %U#^AY\^@$\^B. NB- >F&\?X,Q@8O! 'H&/3H
M>P+I=O'K2Y"_9 (FBATFBGT".N=T*K]T B:*'2:*?0(ZYW0Y#0 .!XT^8 +RKCA=_G0-7UC_-M@!!^@D
M_>D=\5__-M@!!X'OH@#HT//IHP**'LL#,O_1XXN'F@/HB__H6 #H^@'H^0#I
M\O"*'H("B!Y[ NBT\HH>RP,R_]'CBX>: XH,,NU&"\EU"CQ+=!#HS_SIR/!&
M1N+\BUS^Z(4!B03HAO+^!,8&+P0!Z$OSZ$("Z 8 Z*H Z:/PBA[+ XH.R@. 
M^0!W$L8&R@/_OP(-Z&3YOQ(-Z%[YPX#[_W0W*LMU!S+_T>/K'9 R_]'CC;>:
M XK11D;_-.+ZBLK'! $'3DZ/!.+Z_@[* _X.RP/^R_[+BX>: [\"#8 ^RP/_
M=0>_ @WH$?G#Z/3RZ $ PSQ!=2\F@#Z2!=IT)[_" 2: /2!T%8/'$": /2!T
M#+^"!2: /2!T X/'$.C#\NB6 >A:_\. /C0$ 70.@#[* _]_!X ^F0, = '#
MZ(_VC39P%;_D">AG]>B* S+DS18,(#QY= H\;G7RQ@8T! '#6.AJ]L8&+P0!
MQ@9\ O[HLP#^!GP"_@9\ H ^? (&=@7&!GP" (H>? (R_XNW) 2!QJ( )HH$
M)HID CQ+=-#H-0#&!GL"__X&>P* /GL"!G^]Z#OQBAPR_]'C.T#_=>?^#(H>
M? (R_XN_) 3H%/+HYP#HZO'KF+D-  X'C3Y@ O*NB@7_-M@!!\,.!U> _P5R
M"(#\!'B'](TV016_0@GH.O3H
M70(RY,T6#" \;G0'/'EU\NGX[>GT[@O)=": /H@6_W034+"VYD-8YD**Q.9"
MY&%0# /F8>+^@#Z(%O]T UCF8<-1N' 7BPZ3%NC*_XL.E1;H @!9PU'B_EGB
M^L.--B$5OT()Z!;TN3D BSZ7%E&#^0U_ X/O [C0!XL.F1;HEO^+S^C0_UGB
MY;]"">BB](L.FQ;HP/_#48L.G1;B_K@X&(L.GQ;H;_]9PU"X.$^Z% #W\^AA
M_UC#@#Z(%@!T!\8&BA8 ZSC&!HH6__HSP% ')J%P ":+'G( HSD$B1X[!";'
M!G  ("LFC YR ,<&AA8! ,<&A!8  /\VV $'^\-24U >50X?_PZ&%H,^AA8 
M=SR+'H06BZ_*%;!-YF&#_?]U!\8&BA8 ZR2+GR@6B1Z&%N1A# /F8?\&A!;_
M!H06NA0 N#A/]_7F0HK$YD)='UA;6L\S_[[P#+D5 ,<&, 2D ,<&,@1<_^C!
M +D) ,<&, 1D_\<&,@2< .BO +D, ,<&, 1<_\<&,@2D .B= +D1 ,<&, 2<
M ,<&,@1D_^B+ +D$ ,<&, 2D ,<&,@1<_^AY +D+ ,<&, 1D_\<&,@2< .AG
M +A!!NBB[X ^BA8 =?F /H@6_W0;,\!0!_JA.02+'CL$)J-P ":)'G( ^_\V
MV $'B_Z--MX#N2, BQQ&1NB4_E<#^XHF/P&P(%-2B]B+%HL6["0!=?OZ["0!
M=/N+PZO[6EM?XM3B_L-7N$$&Z#KOB_ZX00/H,N]?48L.H1;B_E?H/_6+_N@Z
M]5]9 SXP! ,V,@3BU"L^, 0K-C($PP:X0 !0!R:A&@ FHQP !\/["N1U'1Y3
H45(&5U4.'YR-'K0L_Q\]$Q]T#5U?!UI96Q_/Z@    #V%H@6,N3KW^1U
 
end
----------------------------------------------------------------------
|  Allyn 'Hex' Wade   ---   {ucbvax,lll-lcc}!ucdavis!uop-wirth!hex   |
|                                                        	     |
|  "What, me hurry?"                                                 |
----------------------------------------------------------------------