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