	
: WRITTEN BY:    ROY A. WILSON	:                CERRITOS COLLEGE
:                NORWALK, CALIFORNIA
(:+
2:N
<RA(W,MAKEPOINTER(@,))q
FSA(W,MAKEPOINTER(B,))
PA(W,MAKEPOINTER(RA,SA))
Z (A)
dFIRST.ROLL  
n I  
:: I
x );***** DICE *****: I  
:: I HI.  WOULD YOU LIKE TO ROLL THE DICE WITH ME;6 A$JTOTAL.CASH  dv (A$,)  Y  (A$,)  y  |BEAT IT KID, YOU BOTHER ME. pO.K., BUT I DON'T PLAY WITH STRANGERS.WHAT'S YOUR NAME? N$ 1 G  @W,WOULD YOU LIKE THE RULES, ;N$;a6 Tq@ G  J WOULD YOU LIKE THE RULES AGAIN;T A$^ (A$,)  Y  (A$,)  y  h 
rYOU MUST BET AT LEAST ONE DOLLAR TO PLAY,AND YOUO
|CANNOT BET MORE THAN YOU HAVE.  IF YOU BET A NEGATIVE
AMOUNT, YOU WILL BE BETTING ON THE 'DON'T PASS' LINE.

HERE ARE THE RULES FOR THE 'PASS' LINE.
IF YOU ROLL A SEVEN OR AN ELEVEN ON THE FIRST ROLL OF THE DICE, YOU WIN THE BET.^IF YOU ROLL A TWO, THREE, OR TWELVE ON THE FIRSTROLL OF THE DICE, YOU LOSE THE BET.UNDERSTAND SO FAR? A$ (A$,)  Y  (A$,)  y  YOU'RE NOT TOO SWIFT...4AFTER YOU HAVE YOUR POINT, YOU CONTINUE ROLLINGkTHE DICE UNTIL EITHER YOUR POINT COMES UP AGAINOR THE NUMBER SEVEN DOES.0IF YOUR POINT COMES UP BEFORE THE NUMBER SEVEN,:YOU WIN.  HOWEVER, IF THE SEVEN APPEARS FIRST1DYOU LOSE THE BET AND MUST START OVER AGAIN.7N=XYb READY TO PLAY, ;N$;bl A$v (A$,)  Y  (A$,)  y  f  G   OK ;N$;, HERE'S $100.00.  SEE WHAT YOU CAN DO.: V    NOTE:  A BET OF ZERO ENDS THE GAME.f YOU HAVE $;TOTAL.CASH;.  HOW MUCH WOULD YOU LIKE TO BET;x PLAYERS.BET CURRENT.BET  ((PLAYERS.BET)) PLAYERS.BET    R (PLAYERS.BET)  TOTAL.CASH  p V    >NOW YOU'RE BETTING AGAINST THE SHOOTER.7:h    D O N ' T   P A S S      B A R   1 2p :* IS THAT WHAT YOU WANT;A$4 (A$,)  Y  (A$,)  y  >FIRST.ROLL:V  H fR PLAYERS.BET  $\ (PLAYERS.BET)  CURRENT.BET  Jf CURRENT.BET  TOTAL.CASH  PpqzYOU DON'T HAVE THAT MUCHw  CHEAPSKATE.   I DON'T ACCEPT SUCH SMALL BETS. p WHAT KIND OF FUNNY MONEY BET IS THAT?  C OK ;N$;,  SHOOTER COMING OUT    :ROLL THE DICEj  TOTAL.CASH     ROLL    $YOUR POINT IS ;POINT;       YOUR BET IS $;CURRENT.BET.8    ROLL AGAIN;B A$'L (A$,)N  (A$,)n  j1V ; AjztWELL, LET THE PAYING CUSTOMERS UP TO THE TABLE... O.K., ;N$;, IF YOU DON'T WANT TO BET, YOU CAN'T PLAY TAKE YOUR MONEY AND GO HOME.  THE GAME IS OVER.	D YOU STARTED WITH $100.   YOU NOW HAVE $;TOTAL.CASHd PLEASE SEE THE CASHIER.n ROLL  ROLL ROLL     DICETOTAL  FIRST.ROLL  6 DICETOTAL  FIRST.ROLL   POINTDICETOTAL  FIRST.ROLL  9 POINTDICETOTAL  FIRST.ROLL  6C
 dj DICETOTAL  FIRST.ROLL   DICETOTAL  FIRST.ROLL  6( DICETOTAL  FIRST.ROLL  2 DICETOTAL  FIRST.ROLL  6	< DICETOTAL  FIRST.ROLL  61F DICETOTAL  FIRST.ROLL  JP DICETOTAL  6ZPOINT  DICETOTALfdlnvx |: FIRST.ROLL PLAYERS.BET    +++++++++++   P A S S    B E T    ++++++++++ $+++++   D O N ' T   P A S S    B E T   +++++*6 ()tYOU WIN                    YOUR BET WAS $;CURRENT.BET ROLL     YOUR POINT WAS ;POINT,YOU ROLLED A ;DICETOTAL J    d J ()TOTAL.CASH TOTAL.CASHCURRENT.BETROLL  , 56:FIRST.ROLL;@WJ PLAYERS.BET    hT+++++++++++   P A S S    B E T    ++++++++++^ rh+++++   D O N ' T   P A S S    B E T   +++++r| ()YOU LOSE.                   YOUR BET WAS $;CURRENT.BETC ROLL   YOUR POINT WAS ;POINT,c YOU ROLLED A ;DICETOTALTOTAL.CASH  TOTAL.CASHCURRENT.BETROLL  +++++++++++++++++++++++++++++++++++++++++++++ G  ,,,N. YOU TURKEY  YOU LOST ALL YOUR MONEYj                 NOW WHAT WILL YOU TELL YOUR FAMILY?t lz AWW  TOO BAD.    YOU DON'T HAVE ANYMORE MONEY. l0HEY, ;N$;, DON'T YOU GET TIRED OF LOSING?:NOW YOUR MONEY IS ALL GONE.D l(NaX DON'T GO TO LAS VEGAS  BESIDES, YOU'RE BROKE.lbG  rlv WANT TO PLAY AGAIN; A$ (A$,)N  (A$,)n  fTOTAL.CASH  d ALRIGHT, YOU START OVER AGAIN WITH $100.00G  G J:r: ROLL THE DICE SUBROUTINE :DICE1  _ DICE1    DICE1    DICE1  (DICE1)DICE2  _ DICE2    DICE2    <DICE2  (DICE2)X DICETOTAL  DICE1DICE2z*         :DRAW THE DICE4     ;DICE1;                  ;DICE2>H:R: END OF GAME \:	 f * p,G A M E   I S   O V E R 4 z 
T :t : CLEAR THE SCREEN  :  J     J  : : DRAW THE DICE :9. . . . . . .         . . . . . . ._ DICE1  B	,V	,V	,	,	,	 DICE2  	,	,	,
,
,
	 DICE1  j	,B	,j	,B	,j	,		 DICE2  	,	,	,	,	,
	 DICE1  B	,	,	,	,	,	$	 DICE2  	,	,	,
,
,
H.	' ' ' ' ' ' '         ' ' ' ' ' ' 'N8	mB	:           :         ;sL	V	: *         :         ;	j	:     *     :         ;t		:         * :         ;		: *       * :         ;	
		:           :(	=	: *         :C	X	:     *     :^	s	:         * :y	
: *       * :


D OF G