home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / EX_BIRTH.OPL < prev    next >
Text File  |  1992-08-27  |  442b  |  20 lines
  1. PROC Birthday:
  2.     LOCAL day&,month&,year&,DayInWk%
  3.     DO
  4.         dINIT
  5.         dTEXT "","Enter your date of birth",2
  6.         dTEXT "","Use numbers, eg 23 12 1963",$202
  7.         dLONG day&,"Day",1,31
  8.         dLONG month&,"Month",1,12
  9.         dLONG year&,"Year",1900,2155
  10.         IF DIALOG=0
  11.             BREAK
  12.         ENDIF
  13.          DayInWk%=DOW(day&,month&,year&)
  14.         CLS :PRINT DAYNAME$(DayInWk%),
  15.         PRINT day&,month&,year&
  16.         dINIT "Again?"
  17.         dBUTTONS "No",%N,"Yes",%Y
  18.     UNTIL DIALOG<>%y
  19. ENDP 
  20.