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 �"��"