home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_DICE.OPL < prev    next >
Text File  |  1992-08-27  |  253b  |  14 lines
  1. PROC dice:
  2.     LOCAL dice%
  3.     DO         CLS :PRINT "DICE ROLLING:"
  4.         AT 1,3 :PRINT "Press a key to stop"
  5.         DO
  6.             dice%=(RND*6+1)
  7.             AT 1,2 :PRINT dice%
  8.         UNTIL KEY
  9.         BEEP 5,300
  10.         dINIT "Roll again?"
  11.         dBUTTONS "No",%N,"Yes",%Y
  12.     UNTIL DIALOG<>%y
  13. ENDP
  14.