Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » craps
craps
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav |
Filename: | craps |
Read OK: | ✔ |
File size: | 0A41 bytes |
Load address: | 1001 |
Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Commodore disks » disk52a2_c16_progs.d64 » craps
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03a_c16_basic2.wav » craps
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » craps
File contents
5 REM CRAPS 10 VOL7 30 PRINT"<clr><black>" 40 PRINT" THE GAME OF CRAPS IS PLAYED WITH" 50 PRINT"TWO DICE. FIRST YOU BET AND THEN YOU 60 PRINT"THROW. IF YOU GET A SCORE OF 7 OR 11, 70 PRINT"YOU WIN. IF YOU THROW 2,3 OR 12, YOU 80 PRINT"LOSE. IF YOU THROW ANY OTHER NUMBER, 90 PRINT"YOU DON'T WIN OR LOSE STRAIGHT AWAY: 100 PRINT"YOU KEEP ON THROWING UNTIL YOU 110 PRINT"THROW THE SAME AS YOU DID FIRST 120 PRINT"TIME ( AND WIN) 130 PRINT"OR 140 PRINT"THROW A 7 ( AND LOSE). 150 PRINT 160 PRINT"HIT ANY KEY TO CONTINUE 240 GET A$ 250 IF A$=""THEN 240 255 REM SET A$,B$,C$ TO LINES OF DICE PICTURE 260 A$=" ╭🭹🭹🭹🭹🭹🭹🭹╮ ╭🭹🭹🭹🭹🭹🭹🭹╮" 270 B$=" │ <cursor right> │ │ │" 280 C$=" ╰🭹🭹🭹🭹🭹🭹🭹╯ ╰🭹🭹🭹🭹🭹🭹🭹╯" 285 REM GET STARTING CAPITAL 290 PRINT"<clr>" 300 INPUT" STARTING CAPITAL";C 305 REM NOW START NEXT BET 310 PRINT" HIT ANY KEY FOR NEXT BET" 330 GET R$ 340 IF R$=""THEN 330 350 PRINT" YOUR CAPITAL NOW IS";C 370 INPUT" HOW MUCH DO YOU BET";W 380 IF W > 0 THEN 390 385 PRINT" DON'T BE SO SILLY" 387 GOTO 310 390 IF W<=C THEN 420 400 PRINT" YOU CAN'T AFFORD IT" 410 GOTO310 415 REM ORGANISE FIRST THROW 420 PRINT"<clr><cursor down><cursor down><cursor down> FIRST THROW (BET=";W;")" 430 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>";A$ 440 FORJ=1TO5 450 PRINTB$ 460 NEXTJ 470 PRINTC$ 475 REM SHOW 10-59 DIFFERENT FACE PAIRS 480 Q=INT(10+50*RND(0)) 490 FORZ=1TOQ 500 A=INT(1+6*RND(0)) 510 B=INT(1+6*RND(0)) 515 REM SOUND A NOTE WHICH DEPENDS ON A AND B 520 SOUND1,700+3*(A*A+B*B),4 540 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";A;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";B 560 NEXT Z 585 REM USE LAST VALUES OF A,B 590 T=A+B 595 REM JUMP IF PLAYER WINS OUTRIGHT 600 IF T=7 THEN 1000 610 IF T=11 THEN 1000 615 REM JUMP IF PLAYER LOSES OUTRIGHT 620 IF T=2 THEN 1100 630 IF T=3 THEN 1100 640 IF T=12 THEN 1100 650 PRINT 660 PRINT 670 PRINT 680 PRINT" YOU HAVE TO MAKE";T;" BEFORE 7" 700 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> HIT ANY KEY TO GO ON" 710 GET R$ 720 IF R$ = "" THEN 710 730 PRINT"<clr><cursor down> NEXT THROW(BET=";W;")" 740 PRINT" MAKING";T 750 PRINT"<home><cursor down><cursor down><cursor down><cursor down>" 760 PRINT A$ 770 FORJ=1TO5 780 PRINT B$ 790 NEXT J 800 PRINT C$ 805 REM SHOW 10-19 DIFFERENT FACE PAIRS 810 Q=INT(10+10*RND(0)) 820 FOR Z=1 TO Q 830 A=INT(1+6*RND(0)) 840 B=INT(1+6*RND(0)) 850 SOUND1,700+3*(A*A+B*B),4 870 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";A;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";B 900 NEXT Z 925 REM IF A+B=T PLAYER WINS 930 IF A+B=T THEN 1000 935 REM IF A+B=7 PLAYER LOSES 940 IF A+B=7 THEN 1100 945 REM ELSE PLAYER THROWS AGAIN 950 GOTO700 990 REM PLAYER WINS 1000 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> YOU WIN" 1005 REM ADD WINNINGS TO CAPITAL 1010 C=C+W 1015 REM PAEAN OF PRAISE 1017 FORJ=1TO500:NEXTJ 1020 SOUND1,834,32 1025 SOUND1,798,24 1030 SOUND1,810,8 1035 SOUND1,834,32 1040 SOUND1,739,32 1042 SOUND1,770,8 1044 SOUND1,798,8 1046 SOUND1,810,8 1048 SOUND1,834,8 1050 SOUND1,810,16 1052 SOUND1,798,16 1054 SOUND1,770,64 1095 GOTO310 1100 REM PLAYER LOSES 1110 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> YOU LOSE" 1115 REM CHIRP OF VINDICTIVE TRIUMPH 1120 FOR J=1TO500:NEXTJ 1130 FOR X=800TO1000 STEP 4 1140 SOUND1,X,1 1150 SOUND1,X+23,1 1160 NEXTX 1195 REM TAKE LOSSES FROM CAPITAL 1200 C=C-W 1210 IF C > 0 THEN 310 1220 PRINT"YOU ARE NOW BROKE" 1230 STOP
� CRAPS �7 �"��"