PROC dice:
	LOCAL dice%
	DO 		CLS :PRINT "DICE ROLLING:"
		AT 1,3 :PRINT "Press a key to stop"
		DO
			dice%=(RND*6+1)
			AT 1,2 :PRINT dice%
		UNTIL KEY
		BEEP 5,300
		dINIT "Roll again?"
		dBUTTONS "No",%N,"Yes",%Y
	UNTIL DIALOG<>%y
ENDP