(FLECS VERSION 22.38)     18-NOV-82   16:13:13  PAGE  00001 
        LAMPFI,LAMPFI/-SP=LAMPFI

  00001   C;+
  00002   C - L A M P F I
  00003   C****NAME:   SUBROUTINE LAMPFI
  00004   C    IDENT:  /09MAY0/
  00005   C    FILE:   [201,13]LAMPFI.FLL
  00006   C    TKB:
  00007   C       
  00008   C****PURPOSE:  INITIALIZE LAMPF VERSION OF FLECS
  00009   C       
  00010   C****RESTRICTIONS:
  00011   C       
  00012   C SYSTEM:     RSX11M V3.2
  00013   C LANGUAGE:   FLECS/F4P
  00014   C AUTHOR:     M. OOTHOUDT
  00015   C DATE:       14-FEB-80
  00016   C REVISIONS:
  00017   C 09-APR-80 (MAO) CONVERT FROM 11D TO 11M
  00018   C       
  00019   C****CALLING SEQUENCE:  CALL LAMPFI(ALE,CHC,CINLIN)
  00020   C       
  00021   C               INPUT:  NONE
  00022   C       
  00023   C              OUTPUT:
  00024   C       
  00025   C ALE   =(L*2) .T. IF CALLED AS ALECS, .F. OTHERWISE
  00026   C CHC   =(I*2) NUMERIC VALUE FOR COMMENT CHARACTER
  00027   C CINLIN=(I*2) NUMERIC VALUE FOR IN-LINE COMMENT CHARACTER
  00028   C       
  00029   C       CMN BLOCK I/O:  /MACVAL/
  00030   C       
  00031   C****DIALOG: NONE
  00032   C       
  00033   C           RESOURCES:
  00034   C LIBRARIES:   NONE
  00035   C OTHER SUBR:  IRAD50
  00036   C DISK FILES:  NONE
  00037   C DEVICES:     NONE
  00038   C SGAS:        NONE
  00039   C EVENT FLAGS: NONE
  00040   C SYSTEM DIR:  GETTSK
  00041   C LENGTH/PAR:
  00042   C       
  00043   C****NOTES:
  00044   C       1. WARNING--IN SEVERAL PLACES THE OCTAL VALUE OF A CHARACTER IS
  00045   C STORED IN AN INTEGER.  IT MIGHT SEEM BETTER TO DO EG. "I=1HC"--THIS
  00046   C DOES NOT WORK!!  "I=1HC" PUTS "20103 IN I WHEREAS "I="103" GIVES THE
  00047   C VALUE NECESSARY TO BE USED ELSEWHERE IN FLECS.
  00048   C       
  00049   C;-
  00050         SUBROUTINE LAMPFI(ALE,CHC,CINLIN)
  00051   C       
  00052   C       SUBROUTINE CALL DECLARATIONS
  00053   C       
  00054         LOGICAL*2 ALE
  00055         INTEGER*2 CHC,CINLIN

(FLECS VERSION 22.38)     18-NOV-82   16:13:13  PAGE  00002 
        LAMPFI,LAMPFI/-SP=LAMPFI

  00056   C       
  00057   C       FOLLOWING FOR LAMPF VERSION OF FLECS
  00058   C       
  00059         LOGICAL*2 ALECS,LSTFUL
  00060         INTEGER*2 TYPIN,TYPLST,TYPOUT,CHCMNT
  00061         COMMON/MACVAL/ALECS,TYPIN,TYPLST,TYPOUT,CHCMNT,LSTFUL
  00062   C       
  00063   C       LOCAL DECLARATIONS
  00064   C       
  00065         INTEGER*2 IDATA(16),ALENAM,DOTS
  00066         LOGICAL*2 ISALE
  00067   C       
  00068         DATA ALENAM/3RALE/
  00069         DATA DOTS/3R.../
  00070   C       
  00071   C       
  00072         CALL GETTSK(IDATA)
  00073   C       
  00074   C       ARE WE IN ...ALE OR ...FLE?  NOTE IN 11M IF MORE THAN ONE COPY
  00075   C       IS RUNNING, ALL BUT 1ST COPY HAVE NAMES LIKE ALETN WHERE N=TT#
  00076   C       
  00077         WHEN(IDATA(1).EQ.DOTS)ISALE=IDATA(2).EQ.ALENAM
  00078         ELSE ISALE=IDATA(1).EQ.ALENAM
  00079   C       
  00080         WHEN(ISALE)
  00081   C     .    
  00082   C     .    ALECS
  00083   C     .    
  00084         .  CHCMNT="73                !COMMENT CHARACTER=; (SEE NOTE 1)
  00085         .  CINLIN="73        !IN-LINE COMMENT CHARACTER=;
  00086         .  CALL IRAD50(3,3HALX,TYPIN)        !INPUT FILE EXTENSION
  00087         .  CALL IRAD50(3,3HALL,TYPLST)       !LIST FILE EXTENSION
  00088         .  CALL IRAD50(3,3HMAC,TYPOUT)       !OUTPUT FILE EXTENSION
  00089         .  ALECS=.TRUE.
  00090         ...FIN
  00091         ELSE
  00092   C     .    
  00093   C     .    FLECS
  00094   C     .    
  00095         .  CHCMNT="103               !COMMENT CHARACTER=C (SEE NOTE 1)
  00096         .  CINLIN="41        !IN-LINE COMMENT CHARACTER=!
  00097         .  CALL IRAD50(3,3HFLX,TYPIN)        !INPUT FILE EXTENSION
  00098         .  CALL IRAD50(3,3HFLL,TYPLST)       !LIST FILE EXTENSION
  00099         .  CALL IRAD50(3,3HFTN,TYPOUT)       !OUTPUT FILE EXTENSION
  00100         .  ALECS=.FALSE.
  00101         ...FIN
  00102   C       
  00103         ALE=ALECS
  00104         CHC=CHCMNT
  00105   C       
  00106         RETURN
  00107         END
           
          (FLECS VERSION 22.38)

LAMPFI,LAMPFI/-SP=LAMPFI