Another Dice Game

Gallery

Source Code

  20 LET M=50
  30 GOSUB 320
  40 PRINT AT 4,3;"PLACE YOUR BET"
  50 PRINT AT 10,0;"(A) UNDER 7   (B) 7   (C) OVER 7"
  60 PRINT AT 11,5;"EVEN   5 FOR 1   EVEN"
  70 INPUT A$
  80 IF A$="S" THEN STOP  
  90 PRINT AT 16,10;"AMOUNT ?"
 100 INPUT A
 110 IF A<1 OR A>6 THEN GOTO 100
 120 PRINT AT 16,10;"  OK $";A
 130 LET B=INT (RND*6)+1
 140 PRINT AT 13,3;B;TAB 10;
 150 LET C=INT (RND*6)+1
 160 PRINT C;TAB 6;
 170 LET D=C+B
 180 PRINT D
 190 IF D=7 AND A$="B" THEN LET W=4*A
 200 IF D<7 AND A$="A" THEN LET W=A
 210 IF D>7 AND A$="C" THEN LET W=A
 220 IF ((A$="A" OR A$="C") AND D=7) OR (A$="B" AND D<>7) THEN LET W=-A
 230 LET M=M+W
 240 IF W>0 THEN PRINT AT 16,4;"YOU WIN $";W
 250 IF W<0 THEN PRINT AT 16,4;"YOU LOSE $";-W
 260 GOSUB 320
 270 FOR N=1 TO 60
 280 NEXT N
 290 IF M<1 THEN STOP 
 300 CLS 
 310 GOTO 30
 320 PRINT AT 2,12;"STAKE $";M;"  "
 330 RETURN 
 340 CLEAR 
 350 SAVE "1029%3"
 360 RUN