A simple high/low dice game.
PROG : 16509
D-FILE: 17407
VARS : 18200
E-LINE: 18201
STKBOT: 18201
STKEND: 18201
9999 means line number
PRINT means treat as KEYWORD P
10 REM **DICE GAME**SLR/1983**
20 LET A=0
30 LET B=0
40 PRINT TAB 10;"DICE GAME"
50 GOSUB 560
60 PRINT "YOUR THROW="
70 GOSUB 160
80 PRINT "MY THROW="
90 GOSUB 220
100 IF A>B THEN PRINT ,,"YOU WI
N"
110 IF A<B THEN PRINT ,,"I WIN"
120 IF A=B THEN PRINT ,,"TIE"
130 GOSUB 570
140 CLS
150 GOTO 10
160 FOR G=1 TO 2
170 LET Z=INT (RND*6+1)
180 LET A=A+Z
190 GOSUB 280
200 NEXT G
210 RETURN
220 FOR G=1 TO 2
230 LET Z=INT (RND*6+1)
240 LET B=B+Z
250 GOSUB 280
260 NEXT G
270 RETURN
280 IF Z=1 THEN GOTO 340
290 IF Z=2 THEN GOTO 380
300 IF Z=3 THEN GOTO 420
310 IF Z=4 THEN GOTO 460
320 IF Z=5 THEN GOTO 500
330 IF Z=6 THEN GOTO 530
340 PRINT " "
350 PRINT " * "
360 PRINT " "
370 RETURN
380 PRINT "* "
390 PRINT " "
400 PRINT " *"
410 RETURN
420 PRINT "* "
430 PRINT " * "
440 PRINT " *"
450 RETURN
460 PRINT "* *"
470 PRINT " "
480 PRINT "* *"
490 RETURN
500 PRINT "* *"
510 PRINT " * "
520 GOTO 480
530 PRINT "* *"
540 PRINT "* *"
550 GOTO 480
560 PRINT ,,,,,,
570 IF INKEY$="" THEN GOTO 570
580 IF INKEY$="S" THEN STOP
590 RETURN
600 SAVE "DICE"
610 RUN