ZX81 Listing for dice.p


ZX81 program listing for **DICE GAME**SLR/1983**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17407
VARS  : 18200
E-LINE: 18201
STKBOT: 18201
STKEND: 18201


LEGEND

9999 means line number
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 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