.TITLE	CARDS
	.IDENT	/V1.0A/
	.NLIST	BEX
;
;	MODULE NAME:		CARDS
;
;	AUTHOR:			MICHAEL BOORSTEIN
;
;	DATE:			11-MAR-78
;
;	COMMENTS:
;
;	THIS MODULE CONTAINS THE FORMAT FOR THE FOUR DIFFERENT SUITS OF
;	CARDS CONTAINED IN A 52 CARD DECK.
;
;	IT IS CALLED BY THE FOLLOWING COMMAND:
;
;		CALL CARDS
;
;	ALL IT DOES WHEN IT IS CALLED IS TO RETURN. THE OBJECT OF THIS IS
;	SO THAT AT LINK TIME, THIS MODULE IS FORCED TO BE LOADED.
;
;
;
;
CARDS::	RTS	PC				;RETURN WHEN CALLED
;
;	SET UP CLUBS
;
	.EVEN
	.PSECT	CLUBS,D,GBL,OVR
	.ASCII	/._________./
	.ASCII	<174>/ XC      /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/   XXX   /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII  <174>/  X X X  /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/  X X X  /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/      XC /<174>
	.ASCII	/'---------'/
;
;	SET UP DIAMONDS
;
	.EVEN
	.PSECT	DIMOND,D,GBL,OVR
	.ASCII	/._________./
	.ASCII	<174>/ XD      /<174>
	.ASCII	<174>/         /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/   XXX   /<174>
	.ASCII	<174>/  XXXXX  /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/  XXXXX  /<174>
	.ASCII	<174>/   XXX   /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/         /<174>
	.ASCII	<174>/      XD /<174>
	.ASCII	/'---------'/
;
;	SET UP HEARTS
;
	.EVEN
	.PSECT	HEARTS,D,GBL,OVR
	.ASCII	/._________./
	.ASCII	<174>/ XH      /<174>
	.ASCII	<174>/         /<174>
	.ASCII	<174>/  X   X  /<174>
	.ASCII	<174>/ XXX XXX /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/  XXXXX  /<174>
	.ASCII	<174>/   XXX   /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/         /<174>
	.ASCII	<174>/      XH /<174>
	.ASCII	/'---------'/
;
;	SET UP SPADES
;
	.EVEN
	.PSECT	SPADES,D,GBL,OVR
	.ASCII	/._________./
	.ASCII	<174>/ XS      /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/   XXX   /<174>
	.ASCII	<174>/  XXXXX  /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/ XXXXXXX /<174>
	.ASCII	<174>/  X X X  /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/    X    /<174>
	.ASCII	<174>/      XS /<174>
	.ASCII	/'---------'/
;
;	THATS ALL FOLKS
;
	.EVEN
	.END