600PRINT
601GOTO613
602RANDOMIZE
603LETQ=INT(711*RND(0)+1)
604PRINT
609GOTO741
610PRINT
611GOTO623
612PRINT
613PRINT"EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS INT0"
614PRINT"THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN"
615PRINT"THE QUANTITY OF DOLLARS"
616PRINT
617PRINT"YOU ''PULL DOWN THE HANDLE'' BY PRESSING THE RETURN KEY."
618PRINT
619PRINT"WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER......"
620PRINT"OR TYPE A ZERO (0) TO QUIT AT ANY TIME."
621PRINT
622GOTO602
623PRINT"HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR FIRST PLAY";
624INPUT Z
625IFZ=INT(Z)THEN629
626PRINT
627PRINT"NO FRACTIONAL DOLLARS ALLOWED!"
628GOTO632
629IFZ<=0THEN634
630IFZ<S+1THEN637
631PRINT
632PRINT"...ILLEGAL PLAY....TRY AGAIN....WHATS YOUR PLEASURE";
633GOTO624
634PRINT
635PRINT"...SO SOON!...YOU HAVEN'T YET GIVEN IT A WHIRL!"
636GOTO740
637PRINT
638 DIM R(3),T(3),P(3,6)
639FORI=1TO3
640FORJ=1TO6
641READP(I,J)
642NEXTJ
643NEXTI
644LETE4=0
645FORI=1TO3
646LETR=RND(0)
647FORJ=1TO6
648LET T(I)=J
649IFR<P(I,J)THEN651
650NEXTJ
651NEXTI
652FORI=1TO3
653LETW=T(I)
654IFW=1THEN660
655IFW=2THEN662
656IFW=3THEN664
657IFW=4THEN666
658IFW=5THEN668
659IFW=6THEN670
660PRINT"LEMON    ";
661GOTO672
662PRINT"CHERRY   ";
663GOTO672
664PRINT"ORANGE   ";
665GOTO672
666PRINT"PLUM     ";
667GOTO672
668PRINT"BELL     ";
669GOTO672
670PRINT"LIBERTY  ";
671GOTO672
672NEXTI
673LETD=100*T(1)+10*T(2)+T(3)
674IFD=221THEN689
675IFD=223THEN689
676IFD=224THEN689
677IFD=225THEN690
678IFD=226THEN692
679IFD=333THEN696
680IFD=444THEN698
681IFD=555THEN700
682IFD=336THEN702
683IFD=446THEN704
684IFD=556THEN706
685IFD=666THEN708
686LETD=0
687PRINT".....A LOSER"
688GOTO712
689LETD=2*Z
690LETD=4*Z
691GOTO712
692LETD=6*Z
693GOTO712
694LETD=8*Z
695GOTO712
696LETD=10*Z
697GOTO712
698LETD=12*Z
699GOTO712
700LETD=14*Z
701GOTO712
702LETD=16*Z
703GOTO712
704LETD=18*Z
705GOTO712
706LETD=20*Z
707GOTO712
708LETD=INT(200+400*RND(T(2)))
709PRINT"....YOU HIT THE JACKPOT OF $";D
710PRINT
711LETE4=1
712LETS=S+D-Z
713IFS>0THEN716
714PRINT"....YOU HAVE RUN OUT OF MONEY"
715GOTO732
716IFD=0THEN719
717IFE4=1THEN719
718PRINT"YOU WIN:  $";D;"  "
719PRINT"BALANCE:  $";S;"NEXT WAGER";
720INPUTZ
721IFZ=INT(Z)THEN725
722PRINT
723PRINT"NO FRACTIONAL DOLLARS ALLOWED"
724GOTO728
725IFZ<=0THEN738
726IFZ<S+1THEN730
727PRINT
728PRINT"...ILLEGAL PLAY...TRY AGAIN..WHAT'S YOUR PLEASURE";
729GOTO720
730PRINT
731GOTO645
732PRINT
733PRINT"THE GAME IS OVER...BETTER LUCK NEXT TIME."
734GOTO740
735DATA0,.2,.4,.6,.8,1
736DATA.05,.3,.45,.7,.85,1
737DATA.8,15,.35,.5,.7,.1
738PRINT
739PRINT"...SO SOON! ANYWAY, IT WAS FUN WASN'T IT?"
740GOTO748
741LETS=INT(125*RND(0))
742IFS<37GOTO741
743PRINT"THE HOUSE HAS GIVEN YOU " S; "DOLLARS TO SPEND, GOOD LUCK!!!"
744GOTO610
748STOP
