home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_MENUB.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  844 b   |  28 lines
  1. //
  2. // Module Name: AS_MENUB.COD
  3. // Description: Used to build a menu heading box with date, name, time
  4. //
  5. PROCEDURE MenuBox
  6. PARAMETER lc_m_name
  7. *-- Parameter lc_m_name - is the title variable for the menu
  8. SET CLOCK OFF
  9. @ 1,0 FILL TO 2,79 COLOR n/n
  10. DO CASE
  11. CASE gc_brdr = "0"
  12.    @ 1,0 CLEAR TO 3,79
  13. CASE gc_brdr = "1"
  14.    @ 1,0 TO 3,79
  15. CASE gc_brdr = "2"
  16.    lc_color = IIF(gl_color,"{color(Clr_box)}", "W+/N")
  17.    @ 1,0 TO 3,79 DOUBLE COLOR &lc_color.
  18. ENDCASE
  19. SET CLOCK TO 2,68
  20. @ 2,1 SAY SUBSTR(CDOW(DATE()),1,3)+'. '+DTOC(DATE())+' '
  21. // Because of the length of the heading in the generator I am using 41 so that
  22. // the date display does not touch the heading.
  23. @ 2,41 - (LEN(lc_m_name)/2) SAY lc_m_name
  24. lc_color = IIF(gl_color,"{color(Clr_Text)}", "W+/N")
  25. @ 2,1 FILL TO 2,78 COLOR &lc_color.
  26. RETURN
  27. // EOP AS_MENUB.COD
  28.