10 REM ... CRAP.ECB ...FROM MERITSS : MHS003 12-15-77 50 PRINT "&K&J&J&J" 60 PRINT TAB(15);"[:] CRAPS [:]&J&J" 100 REM ...SIMULATION OF A DICE GAME 110 REM ...USE OF SUBROUTINES IS EMPHASIZED IN THE CODING OF THE PROGRAM 120 PRINT "DO YOU WANT THE RULES ---=>"; 130 INPUT (1,0)A$ 135 IF LEN(A$)=0 THEN LET A$="N" 140 IF A$<>"Y" THEN 160 150 GOSUB 290 160 FOR I=1 TO 5 170 PRINT "AMOUNT OF YOUR WAGER ---=>"; 180 INPUT A 190 PRINT "THE DICE ARE BEING TOSSED:" 200 GOSUB 430 210 GOSUB 480 220 NEXT I 230 GOSUB 710 240 PRINT "DO YOU WANT TO PLAY AGAIN"; 250 INPUT A$ 260 IF A$="Y" THEN 160 270 GOSUB 770 280 STOP 290 REM ...THE RULES SUBROUTINE 300 PRINT " THIS PROGRAM SIMULATES A DICE GAME PLAYED BY YOU AND" 310 PRINT "THE COMPUTER. RULES OF THE GAME ARE AS FOLLOWS:" 320 PRINT "THE COMPUTER CALLS FOR THE AMOUNT OF YOUR BET AND THEN" 330 PRINT "ROLLS THE TWO DICE. IF THE SUM OF THE DICE IS 7 OR 11,THE" 340 PRINT "COMPUTER WINS. IF THE SUM IS 2,3 OR 12 YOU WIN." 350 PRINT "IF ANY OTHER COMBINATION TURNS UP THE COMPUTER AGAIN" 360 PRINT "TOSSES THE DICE. IF THE SUM IS 7 YOU WIN. IF THE" 370 PRINT "SUM IS THE SAME AS THAT OF THE FIRST ROLL, THE COMPUTER" 380 PRINT "WINS. THE COMPUTER CONTINUES TO ROLL THE DICE UNTIL ONE OF" 390 PRINT "THESE CONDITIONS IS MET. AFTER FIVE BETS A SUMMARY OF YOUR" 400 PRINT "EARNINGS (OR LOSSES) IS PRINTED AND YOU ARE ASKED IF YOU" 410 PRINT "WANT TO PLAY AGAIN." 420 RETURN 430 REM ...DICE TOSSING SUBROUTINE 440 LET D1=INT(6*RND(0)+1) 450 LET D2=INT(6*RND(0)+1) 460 PRINT "DIE 1 COMES UP A ";D1;" DIE 2 COMES UP A ";D2 470 RETURN 480 REM ...SUBROUTINE TO DETERMINE A WINNER 490 LET S=D1+D2 500 IF S=7 THEN 600 510 IF S=11 THEN 600 520 IF S=2 THEN 660 530 IF S=3 THEN 660 540 IF S=12 THEN 660 550 PRINT "THE DICE ARE TOSSED AGAIN." 560 GOSUB 430 570 IF D1+D2=S THEN 600 580 IF D1+D2=7 THEN 660 590 GOTO 550 600 PRINT "THE COMPUTER WINS THIS BET" 610 LET C=C+A 620 IF I=5 THEN 650 630 PRINT 640 PRINT "HERE WE GO AGAIN." 650 RETURN 660 PRINT "YOU WIN THIS BET!!" 670 LET Y=Y+A 680 IF I=5 THEN 700 690 PRINT "HERE WE GO AGAIN." 700 RETURN 710 REM ...SUBROUTINE TO DETERMINE WINNINGS 720 PRINT "WINNINGS THUS FAR:" 730 PRINT "---------------------" 740 PRINT "YOURS : ";Y 750 PRINT "COMPUTER'S : ";C 760 RETURN 770 REM ...SUBROUTINE TO QUIT 780 PRINT 790 PRINT "DECIDED TO QUIT,HUH? WELL, LET'S LOOK HOW YOU DID." 800 PRINT "MY FIGURES SHOW YOU WON BETS TOTALING ";Y;" DOLLARS." 810 PRINT "I HAVE WON BETS TOTALING ";C;" DOLLARS." 820 PRINT 830 IF Y-C>=0 THEN 980 840 PRINT "I GUESS YOU OWE ME ";C-Y;" DOLLARS. LEAVE THE MONEY" 850 PRINT "ON THE TERMINAL, PLEASE." 860 PRINT 870 PRINT 880 PRINT "DID YOU LEAVE THE MONEY ---=>"; 890 INPUT (1,0)A$ 900 PRINT "I CAN'T FEEL THE MONEY... I THINK YOU ARE TRYING TO RIP ME OFF!" 910 LET G$=" " 920 PRINT "HELP!! POLICE!! ";G$,G$,G$,G$,G$ 930 PRINT G$;G$,G$;G$;G$ 940 PRINT 950 PRINT 960 PRINT "WHY DON'T YOU GET LOST AND LET ME PLAY WITH SOMEONE HONEST?" 970 GOTO 1040 980 PRINT 990 PRINT "I SEEM TO BE A LITTLE SHORT OF CASH RIGHT NOW." 1000 PRINT "I'LL CATCH YOU RIGHT AFTER PAYDAY, OK?" 1010 PRINT "IF YOU CAN'T WAIT THAT LONG, THE GUY SITTING AT THE NEXT" 1020 PRINT "TERMINAL TOLD ME HE WOULD COVER ALL MY LOSSES, SO TALK TO HIM." 1030 PRINT "IT WAS FUN PLAYING WITH YOU, SUCKER!" 1040 END