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 / dhelp.for < prev    next >
Text File  |  1995-05-19  |  885b  |  55 lines
  1. $STORAGE: 2
  2. $NOFLOATCALLS
  3. c-----------------------------------------------------------------------
  4. c
  5. c    Help 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
  17.  
  18.     SUBROUTINE dhelp
  19.  
  20.  
  21.     character esc
  22.     character buf(80)
  23.  
  24. c
  25. c    Initialize:
  26. c
  27.  
  28.     iterm = 0        
  29. c     Output terminal unit number
  30.     esc = 27
  31.  
  32.     call dtcat(1,1)
  33.     write(iterm,1) esc,'[','2','J'        
  34. c     clear screen
  35. 1    format(1x,79a1)
  36.     write(iterm,2)
  37. 2    format(1x,5X,'DTC  -  DESK TOP CALENDAR')
  38. c    write(iterm,2) esc,'#','4'
  39.  
  40.     Open (1,file='DTC.HLP', form='FORMATTED',
  41.      1  status='OLD')
  42.  
  43.     Do 3 i=1,25
  44.         Read(1,4,end=5) (buf(j),j=1,79)
  45.         write(0,6) (buf(j),j=1,79)
  46. 3    continue
  47. 4    format(79a1)
  48. 5    continue
  49. 6    format(1x,79a1)
  50.     close(1)
  51.     return    
  52.     end
  53.  
  54.  
  55.