home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbasic_1 / dice.bas < prev    next >
BASIC Source File  |  1992-06-28  |  130b  |  7 lines
  1. CLS
  2. RANDOMIZE TIMER
  3. x% = INT(RND * 6) + 1
  4. y% = INT(RND * 6) + 1
  5. PRINT "roll of two dice: die 1 ="; x%; "and die 2 ="; ; y%
  6.  
  7.