SYSTEM VARIABLES
PROG : 16509
D-FILE: 17389
VARS : 18182
E-LINE: 18219
STKBOT: 18227
STKEND: 18227
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
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 WIN"
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