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 >
Wrap
Text File
|
1995-05-19
|
885b
|
55 lines
$STORAGE: 2
$NOFLOATCALLS
c-----------------------------------------------------------------------
c
c Help subroutine
c
c part of Mitch Wyle's DTC program
c
c Inputs:
c None
c
c Output:
c display screen (see below)
c
c-----------------------------------------------------------------------
c
SUBROUTINE dhelp
character esc
character buf(80)
c
c Initialize:
c
iterm = 0
c Output terminal unit number
esc = 27
call dtcat(1,1)
write(iterm,1) esc,'[','2','J'
c clear screen
1 format(1x,79a1)
write(iterm,2)
2 format(1x,5X,'DTC - DESK TOP CALENDAR')
c write(iterm,2) esc,'#','4'
Open (1,file='DTC.HLP', form='FORMATTED',
1 status='OLD')
Do 3 i=1,25
Read(1,4,end=5) (buf(j),j=1,79)
write(0,6) (buf(j),j=1,79)
3 continue
4 format(79a1)
5 continue
6 format(1x,79a1)
close(1)
return
end