Source Code
10 LET M=30
20 GOSUB 280
30 PRINT AT 6,8;"SIZE OF BET ? ";
40 INPUT A
50 IF A>M THEN GOTO 40
60 PRINT "$";A
70 LET M=M-A
80 PRINT AT 10,8;"NUMBER ? ";
90 INPUT B
100 PRINT B
110 IF B<1 OR B>6 THEN GOTO 80
120 FOR C=1 TO 3
130 LET W=0
140 GOSUB 290
150 LET D=INT (RND*6)+1
160 PRINT AT 11+2*C,0;"%D%I%E% ";CHR$ (C+156);"% %F%E%L%L% ";CHR$ (D+156)
170 IF D=B THEN LET W=A
180 IF D=B THEN PRINT ,"WIN $";W
190 LET M=M+W
200 GOSUB 280
210 NEXT C
220 GOSUB 290
230 CLS
240 IF M>0 THEN GOTO 20
250 PRINT AT 10,3;"GAME OVER, YOU ARE BROKE"
260 PRINT AT 10,3;"%G%A%M%E% %O%V%E%R%,% %Y%O%U% %A%R%E% %B%R%O%K%E"
270 GOTO 250
280 PRINT AT 2,12;"STAKE $";M; " "
290 FOR N=1 TO 50
300 NEXT N
310 RETURN
320 CLEAR
330 SAVE "1029%2"
340 RUN
