home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
modcomp
/
shelp.
< prev
next >
Wrap
Text File
|
1987-01-25
|
5KB
|
139 lines
SUBROUTINE SHELP
C
C ****************************************************************
C
C KERMIT for the MODCOMP MAXIV operating system
C
C Compliments of:
C
C SETPOINT, Inc.
C 10245 Brecksville Rd.
C Brecksville, Ohio 44141
C
C
C KERMIT is a copyrighted protocol of Columbia Univ. The authors
C of this version hereby grant permission to copy this software
C provided that it is not used for an explicitly commercial
C purpose and that proper credit be given. SETPOINT, Inc. makes
C no warranty whatsoever regarding the accuracy of this package
C and will assume no liability resulting from it's use.
C
C ****************************************************************
C
C Abstract: Display the help file contents on the terminal.
C
C MODIFICATION HISTORY
C
C BY DATE REASON PROGRAMS AFFECTED
C
C ****************************************************************
C
C Author: Rick Burke Version: A.0 Date: Aug-86
C
C Calling Parameters: None
C
C ****************************************************************
C
C Messages generated by this module : None
C
C ****************************************************************
C
C Subroutines called directly : ASSGN4, CMRI4, DGETLI, PACK,
C POSUSL
C
C ****************************************************************
C
C Files referenced : None
C
C ****************************************************************
C
C Local variable definitions :
C
C FOUND - Flag for requested file found and positioned
C HLPUSL - CAN code of logical file where help file resides
C HLPFIL(4) - Help file name in ASCII
C LEN - Length of output record
C
C ****************************************************************
C
C Commons referenced : KER, KERPMC
C
C ****************************************************************
C
C (*$END.DOCUMENT*)
C
C ****************************************************************
C * *
C * D I M E N S I O N S T A T E M E N T S *
C * *
C ****************************************************************
C
IMPLICIT INTEGER (A-Z)
INTEGER*2 HLPFIL(4), ALIN(132)
C
C ****************************************************************
C * *
C * T Y P E S T A T E M E N T S *
C * *
C ****************************************************************
C
LOGICAL*2 FOUND
C
C ****************************************************************
C * *
C * C O M M O N S T A T E M E N T S *
C * *
C ****************************************************************
C
INCLUDE USL/KERCOM
INCLUDE USL/KERPMC
INCLUDE USL/UFTTBC
C
C ****************************************************************
C * *
C * E Q U I V A L E N C E S T A T E M E N T S *
C * *
C ****************************************************************
C
C
C ****************************************************************
C * *
C * D A T A S T A T E M E N T S *
C * *
C ****************************************************************
C
DATA HLPFIL /'HELPFILE'/
DATA HLPUSL /3@KEH/
C
C ****************************************************************
C
C Code starts here :
C
C-----> Assign KE7 (UFT #7) to the USL with the help file and
C-----> position to the help file.
C
IUFT(3,7) = 4ZA000
CALL ASSGN4 (IUFT(1,7),HLPUSL)
CALL POSUSL (IUFT(2,7),HLPFIL,FOUND)
IF (FOUND) GO TO 10
WRITE (LOCALO,1000)
1000 FORMAT (' FILE CONTAINING HELP INFORMATION IS NOT AVAILABLE')
RETURN
10 CONTINUE
CALL CMRI4 (IUFT(2,7),40)
20 CONTINUE
IF (DGETLIN (ALIN,7) .EQ. EOF) GO TO 50
DO 30 LEN=1,82
IF (ALIN(LEN) .EQ. LF) GO TO 40
ALIN(LEN) = ISHFT (ALIN(LEN),8)
30 CONTINUE
40 CONTINUE
LEN = LEN - 1
IF (LEN .GE. 80) LEN = 79
WRITE (LOCALO,1010) (ALIN(I),I=1,LEN)
1010 FORMAT (79A1)
GO TO 20
50 CONTINUE
RETURN
END