5748156 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n dice.bas
   1: 10    RANDOMIZE TIMER
   2: 15    CLS
   3: 20    x% = INT(RND * 6) + 1
   4: 30    y% = INT(RND * 6) + 1
   5: 40    PRINT "Roll of two dice: die 1 ="; x%; "and die 2 ="; y%
   6: 45    PRINT "Again?"
   7: 50    INPUT r$
   8: 60    IF r$ = "N" THEN GOTO 70
   9: 70    IF r$ = "y" THEN GOTO 10
  10: 80    END
  11:
5748157 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:01:44