home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB101 / menu.for < prev    next >
Text File  |  1995-05-19  |  2KB  |  70 lines
  1. $STORAGE: 2
  2. $NOFLOATCALLS
  3. c-----------------------------------------------------------------------
  4. c
  5. c    Menu subroutine
  6. c
  7. c    part of Mitch Wyle's DTC program
  8. c
  9. c    Inputs: 
  10. c        None
  11. c
  12. c    Output:
  13. c        display screen (see below)
  14. c
  15. c-----------------------------------------------------------------------
  16. c  Version to go with Mitch Wyle's last-minute addition of
  17. c  outpt command.
  18. c
  19.  
  20.     SUBROUTINE menu
  21.  
  22. c
  23. c    Declarations:
  24. c
  25.  
  26.     character esc
  27.  
  28. c
  29. c    Initialize:
  30. c
  31.  
  32.     iterm = 0        
  33. c     Output terminal unit number
  34.     esc = 27
  35.  
  36.     call dtcat(1,1)
  37.     write(iterm,1) esc,'[','2','J'        
  38. c     clear screen
  39. 1    format(1x,79a1)
  40.     write(iterm,2) 
  41. 2    format(1x,15X,'O P T I O N S')
  42.     write(iterm,3)
  43. 3    format(/,
  44.      1  2X,'M [mmyy]     -     Month-At-A-Glance for mm yy',/,
  45.      2  2X,'D [mmddyy]   -     Appointment Schedule for dd mm yy',/,
  46.      3  2X,'W [mmddyy]   -     Week-At-A-Glance for week of dd mm yy',
  47.      4  /,2X,'H            -     Help! ',/,
  48.      6  2X,'Q or EX      -     Exit',/,
  49.      7  2X,'P [mmddyy]   -     Purge appointments prior to mmddyy',/,
  50.      8  2X,'N(chars)     -     Reverse display sense of M or W cmd')
  51.        write(iterm,333)
  52. 333   format(3X,'F FILENAME -Change default data file to Filename',/,
  53.      2  2X,'S [mmddyy]   -   Schedule multiple activity on mmddyy',/,
  54.      2  2X,'  (Drops notices in all indirected users files also)',/,
  55.      3  2X,'G [mmddyy]   -     File activities in multiple files',/,
  56.      3  2X,'L [mmddyy] n -   Locate time (n * 30 mins.) free for mtg',
  57.      4  /,
  58.      5  2X,'Y [yy]       -     Year at a Glance',/,
  59.      6  2X,'I            -     Reset default date to today.')
  60.     write(iterm,3333)
  61. 3333   format(3x,'+ or - nnU-Add/Subt nn U (U=D,W,M,Y):change date',/,
  62.      5  2X,'hh:mm>hh:mm  -     Add or change appointments for hh:mm',/,
  63.      6  2X,'O [d1] [d2]  -     Output appointments between d1 and d2',/,
  64.      9  2X,'EV (pseudo time) - Add or Change Evening Appointment',/)
  65. c
  66.     return
  67.     end
  68.  
  69.  
  70.