Dice Game

Gallery

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