10 GOSUB10000:CLS
20 PRINT:INPUT"PRESS ENTER TO PLAY, Q TO QUIT";A$
22 Y=0
25 IF A$="Q" OR A$="q" THEN MENU
30 CLS: GOSUB 150: P=N
40 PRINT:PRINT "YOU ROLLED ";P;
50 ON P GOTO 60,90,90,70,70,70,80,70,70,70,80,90
60 REM USED IF P=1 WHICH IT CAN'T
70 PRINT "YOUR POINT IS";N;A;"+";B:GOTO 100
80 PRINT "YOU WIN AFTER";Y;"ROLLS!":FOR I=1 TO 550:NEXT I:CLS:GOTO 910
90 PRINT "YOU LOSE AFTER";Y;"ROLLS!":FOR I=1 TO 550:NEXT I:CLS:GOTO 1910
100 GOSUB 150: M=N
110 PRINT "YOU ROLLED ";M;A;"+";B;"YOUR POINT IS";P
120 IF P=M THEN 80
130 IF M=7 THEN 90
140 GOTO 100
150 Y=Y+1:A=INT(RND(1)*6+1)
160 B=INT(RND(1)*6+1)
170 N=A+B
172 FOR I=1 TO 200
175 NEXT I
180 RETURN
190 END
910 CLS
920 LINE (5,5)-(234,58),1,B
930 LINE (50,15)-(190,48),1,BF
940 LINE (55,20)-(185,43),0,B
950 PRINT @137," Lucky "
960 PRINT @177," Devil "
980 FOR I=1 TO 10
985 SOUND 800,3
987 SOUND 400,3
988 SOUND 1600,3
989 SOUND 3200,3
990 NEXT I:CLS:GOTO 20
1910 CLS
1920 LINE (5,5)-(234,58),1,B
1930 LINE (50,15)-(190,48),1,BF
1940 LINE (55,20)-(185,43),0,B
1950 PRINT @135,"   SORE  "
1960 PRINT @175,"  LOSER! "
1999 SOUND 1600,20:SOUND 1600,20:SOUND 1200,50:SOUND 1600,20:SOUND 1200,20:SOUND 950,50:CLS:GOTO 20
10000 S=VAL(RIGHT$(TIME$,2))
10002 Q$=TIME$
10004 PRINT Q$
10010 FOR X=1 TO S
10020  D=RND(1)
10030 NEXT X
10040 RETURN