	
: SOURCE UNKNOWN:  REVISED BY D. KURLAND  111675	 ()
     C  R  A  P  S ::
(    DO YOU KNOW HOW TO PLAY;C
2 T$n
< (T$,) Y  (T$,)  y  t
F
P YOU ARE NOW ENTERING THE CASINO * B 20 * LOCATED IN
Z DOWNTOWN LAS VEGAS. YOU'VE JUST WON $25,000 FROM THE READERS0d DIGEST SWEEPSTAKES, AND ARE FEELING FREE AND EASY.rn YOUR KEEN EYES LOCATE A CRAP TABLE.  THE GREEN FELT LOOKSx VERY INVITING.  YOU SEE A GIRL IN A PLAYBOY BUNNY OUTFIT. SHE DECIDES TO START A CONVERSATION WITH YOU.? HI THERE, I AM THE ONE AND ONLY MISS TELETYPE.  I'M SINGLE AND LONELY.| I'M ALSO THE DIRTIEST DICE THROWER THIS SIDE OF IBM.     WHAT IS YOUR NAME; PLAYER$RA(W,MAKEPOINTER(@,))SA(W,MAKEPOINTER(B,))
A(W,MAKEPOINTER(RA,SA))$
 (A)*
Q
 HERE'S YOUR SELECTION OF DICE:W
s
        1. F.E. BLUE
        2. SALES GREEN
        3. MANAGEMENT YELLOW
,
6PLAYER.WINNINGSa@ PLEASE INPUT ONLY ONE NUMBER, HONEY;J FT^ F  |.h F  >r F  a| I SEE YOU'RE THE SEXY TYPEk  I SEE YOU'RE A REALLY BIG SPENDER  SO YOU'RE THE CONSERVATIVE TYPE NOW YOU HAVE YOUR OWN COLORED DICE.  YOU'VE GOT $25,000G AND BEST OF ALL YOU ARE SITTING NEXT TO A PLAYBOY BUNNYMu MISS MICROPC SAYS, BETS PLEASE AND HOW MUCH IS OUR READERS DIGEST WINNER GOING TO WAGER  YOU HAVE GOT A MAXIMUM OF $$,.;PLAYER.WINNINGS AMOUNT OF WAGER;BET; BET  PLAYER.WINNINGS  O BET    e BET  d  | BET    b BOY, WHAT A CHEAPSKATE0 l: THAT'S A GOOD HONEST BETD lN NOW YOU ARE IN BUSINESS, LOVERX l;b WHAT A SPENDER, LOVER, AND ALTOGETHER KOOL PERSONFlROLLVvROLLROLL{ YOU'RE NOW SHAKING YOUR DICE YOU BLOW ON THEM FOR LUCK YOU ROLL THEMDICE1  (
) DICE1    DICE2  (
) DICE2    4 ROLL    POINT  DICE1DICE2_  YOU'RE THROW WAS ;DICE1DICE2;r ROLL   DICE1DICE2  DICE1DICE2  f DICE1DICE2TOTAL.OF.DICE  z  TOTAL.OF.DICEDICE1DICE2 TOTAL.OF.DICE  TOTAL.OF.DICE  H[ TOTAL.OF.DICE  TOTAL.OF.DICE  TOTAL.OF.DICE  f        YOUR POINT IS ;POINT*4 MUST SHAKE AGAIN.  YOU HAVE NEITHER WON NOR LOST> H: YOU HAVE JUST DOUBLED YOUR BETR  YOU HAVE WON $$,.;BET\ Kf: YOU HAVE LOST WHAT YOU BETUp zz: YOU HAVE JUST WON YOUR BET  YOU HAVE WON $$,.;BET PLAYER.WINNINGSPLAYER.WINNINGSBET  YOUR TOTAL IS NOW $$,.;PLAYER.WINNINGS PLAYER.WINNINGS    9 .cPLAYER.WINNINGS  PLAYER.WINNINGSBET  YOUR TOTAL IS NOW $$,.;PLAYER.WINNINGS PLAYER.WINNINGS       YOU LOST $$,.;BETPLAYER.WINNINGSPLAYER.WINNINGSBETJ  YOUR TOTAL IS NOW $$,.;PLAYER.WINNINGSk PLAYER.WINNINGS    u .  YOU OWE MISS TELETYPE $$,.;PLAYER.WINNINGS$ .8 PLAYER.WINNINGS    BLV DO YOU WANT TO TRY AGAIN; P$7j PLAYER.WINNINGS  jt (P$,)  N  (P$,)  n   :  ROLL     ROLL     ROLL     ROLL      THIS IS THE TIME FOR A KILLING, ;PLAYER$ + THE ODDS ARE GETTING BETTER YET5 y THE ODDS ARE COMING IN YOUR FAVOR, BABY.  BET A LITTLE MORE DO YOU WISH TO INCREASE YOUR BET, ;PLAYER$; D$ (D$,)  Y  (D$,)  n  v
 PLAYER.WINNINGSBET  <. PLAYER.WINNINGSBET  (P PLAYER.WINNINGSBET  P(  LISTEN, HONEY.  YOU OWE ME $$,.;PLAYER.WINNINGS2< HOW MUCH DO YOU WISH TO INCREASE YOUR WAGER BY, ;PLAYER$F dP YOU HAVE NO MONEY TO BET WITH.  YOU MUST HOPE FOR THE BESTZ v5dxn  YOU'VE GOT $$,. TO BET WITH.;PLAYER.WINNINGSBETx INCREASEBETBETINCREASE v DO OR DIE SPEND IT RIGHT NOW, ;PLAYER$ < CREDIT NOT GOOD IN THIS CASINO. YOUR TOTAL IS $;PLAYER.WINNINGSb THANK YOU FOR COMING TO THE CASINO * B 20 *l  YOU MUST BET A POSITIVE VALUE  I     :  IEN, HONEY.  YOU OWE ME $$,.;PLAYER.WINNINGS
1320 PRINT
1330 PRINT HOW MUCH DO YOU WISH TO INCREASE YOUR WAGER BY, ;PLAYER$
1340 GOTO 1370
1350 PRINT YOU HAVE NO MONEY TO BET WITH.  YOU MUST HOPE FOR THE BEST
1360 GOTO 620
1370 PRINT
1380 PRINT USING YOU'VE GOT $$,. TO BET WITH.;PLAYER.WINNINGSBET
1390 INPUT INCREASE
1400 BET=BET+INCREASE
1410 GOTO 620
1420 PRINT DO OR DIE SPEND IT RIGHT NOW, ;PLAYER$
1430 GOTO 1330
1440 PRINT CREDIT NOT GOOD IN THIS CASINO