home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library2 / today.bas < prev    next >
Encoding:
BASIC Source File  |  1990-02-19  |  282 b   |  10 lines
  1.  
  2. $LINK "Todayu.pbu"
  3.  PUBLIC WK$,Month$,Dm$,Year$   'these variable MUST be made PUBLIC
  4.                    'or the complier will complain about
  5.                    'unresolved externals in the pbu.
  6.  ' The following is the demo:
  7.  
  8.  CALL GetTodaysDate
  9.  PRINT "Today is "WK$" "Month$ Dm$","Year$
  10.