# Define EE Editor FORTRAN Language Editing Environment # SET FIND 7;SET INS 7 Def ENV/ECHO FORTRAN Language Editing Environment/;Def CMDS /WFOR/ Def WFOR/H ENV ISU INC IIN ICH ICA IF IRE;H IEN ICF IS RN > < >> <<;H STUB FORDEL/ Def ISU /BR;I7SUBROUTINE;VE;R18/; Def INC /I7INCLUDE '/ Def ICA /BR;I CALL;VE;R+5/; Def IF /I IF (/ Def IC /BR;I6-;VE;R+3/; Def RN "C1 6/::/" Def IIN /BR;I7INTEGER;VE;R15/; Def IRE /I RETURN/; Def IEN/I7END/ Def > "C// /;# SHIFT RIGHT"; Def < "C/ //;# SHIFT LEFT" Def >> "BR;C// /;RES;VE;C"; Def << "BR;C/ //;RES;VE;C" Def IS "BR;I1C;C1 49/ /-/G;VE;R50"; Def ICF "I6- /" Def ICH /BR;I7CHARACTER*1;VE;R19/ Def STUB/# Make Stub ;I1C----;INC X';IIN J;IRE;IEN;U4;ISU/ Def FORDEL/READ EEMacroDir:FORDEL.DEF/