'**** HEADER ************************************************************
'EXDATE02.PF3 (release .02)
'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'P.O. Box 64381, Dallas, Texas 75206 U.S.A. (214) 855-0449
'Description: Demonstrates date2nm()
'**** FUNCTION DECLARATIONS *********************************************
'library
external date2num()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptstr
'core
'**** CODE **************************************************************

local rpos msg

load "\smartii\poptools\lib\datelib.psl" in-memory

if date2num(today,1)=0
     msg =  "Day:"&ptstr
     rpos = scrwidth - len(msg) + 1
     screen print 1 rpos fginvpleasing bginvpleasing msg
     while nextkey = 0
     end while
     inchar
end if

unload "datelib.psl"