home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dedit.zip / MENPRC.PRG < prev    next >
Text File  |  1986-06-26  |  1KB  |  43 lines
  1. *********************************************************************
  2. *                                                                   *
  3. *                       procedure BANNER                            *
  4. *                                                                   *
  5. ******** Banner Sets Primary Menu Background Screens Up *************
  6.    
  7. Procedure BANNER
  8.    
  9.    bar    = CHR(205)
  10.    u_bar  = '_'
  11.    
  12.    bar = replicate(bar,78)
  13.    u_bar = replicate(u_bar,78)
  14.    
  15.    
  16.    parameter BANNER
  17.    set color to &REV_SCRN
  18.    @ 2,2 say cdow(date())
  19.    @ 2, (78 - len(CDATE)) say CDATE
  20.    set color to &NORM_SCRN
  21.    @ 3,1 say BAR
  22.    set color to &REV_SCRN
  23.    @ 3,(80-len(BANNER))/2 say  '╡ '+BANNER + ' ╞'
  24.    set color to &NORM_SCRN
  25.    @ 21,1 say U_BAR
  26.    set color to &NORM_SCRN
  27.    @ 5,1
  28. return
  29.   
  30. ********************* End of procedure Banner *****************
  31. *--------------------------------------------------------------
  32.    
  33. ********************* Procedure get_item **********************
  34. procedure get_item
  35.         parameter title,item
  36.         @ 23,5 SAY "0  0 " GET item
  37.         READ
  38.         @ 23,5
  39.   
  40. return
  41.   
  42. ******************** End of Get Item ****************************
  43.