image of READY prompt

Wang2200.org

Listing of file='30B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 578, program filename = '30B'
0001 X=5
0005 PRINT "***CRAPS***"
0010 PRINT
0015 PRINT "RULES:"
0020 PRINT "1. IF 7 OR 11 ROLLED ON FIRST ROLL, YOU WIN."
0030 PRINT "2. IF 2,3,OR 12 ROLLED ON FIRST ROLL, YOU LOSE."
0040 PRINT "3. IF ANOTHER NUMBER ROLLED, THIS NUMBER IS YOUR 'POINT'."
0050 PRINT "   KEEP ROLLING UNTIL YOUR 'POINT' TURNS UP (YOU WIN)"
0060 PRINT "   OR A 7 IS ROLLED (YOU LOSE)."
0070 PRINT "4. HOUSE LIMIT: $1000."
0080 A=0
0090 PRINT
0110 PRINT "YOUR BET IS?"
0120 INPUT B
0130 GOSUB 300
0140 IF D<4 THEN 400
0150 IF D=11 THEN 500
0160 IF D=12 THEN 400
0170 IF D=7 THEN 500
0180 P=D
0190 GOSUB 300
0200 IF D=P THEN 500
0210 IF D=7 THEN 400
0220 GOTO 190
0300 REM --ROLL DICE
0310 D1=INT(6*RND(X)+1)
0320 D2=INT(6*RND(X)+1)
0330 D=D1+D2
0335 PRINT "YOU ROLL:";D
0340 RETURN
0400 PRINT "YOU LOSE"
0410 A=A-B
0420 GOTO 530
0500 PRINT "YOU WIN!"
0510 A=A+B
0520 IF A>1000 THEN 900
0530 PRINT "YOUR WINNINGS ARE $";A
0540 GOTO 90
0900 PRINT "CONGRADULATIONS!! YOU BROKE THE HOUSE."
0999 END