home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1B
/
DATAFILE_PDCD1B.iso
/
_pocketbk
/
pocketbook
/
004
/
oplexamp_z
/
EX_BIRTH.OPL
< prev
next >
Wrap
Text File
|
1992-08-27
|
442b
|
20 lines
PROC Birthday:
LOCAL day&,month&,year&,DayInWk%
DO
dINIT
dTEXT "","Enter your date of birth",2
dTEXT "","Use numbers, eg 23 12 1963",$202
dLONG day&,"Day",1,31
dLONG month&,"Month",1,12
dLONG year&,"Year",1900,2155
IF DIALOG=0
BREAK
ENDIF
DayInWk%=DOW(day&,month&,year&)
CLS :PRINT DAYNAME$(DayInWk%),
PRINT day&,month&,year&
dINIT "Again?"
dBUTTONS "No",%N,"Yes",%Y
UNTIL DIALOG<>%y
ENDP