!THIS IS THE DEFAULT TECO INIT FILE, USED FOR USERS WHO DO NOT HAVE THEIR OWN!
![Comments created 5/11/81 by Joe Kesselman (JKESS@MC)]!

FJ ."E -1U..H '                 !Get job command string. If null, block!
                                  !  buffer display and exit!
J :S"E                        !If string doesnt contain ALTMODE,!
   :S "E :S;"N 1A-13"E HFXA     !Then: if string doesnt contain SPACE!
                                  ! then: if string contains SEMI!
                                  ! then: if SEMI is followed by RETURN!
                                  ! then: copy JCL to QA and clear buffer.!
      1:<ERA.TECO. (INIT)>"L   !Using error trap, try to use as dir to get!
                                  ! init file from.!
        .,(GA-S;ZK).FXA ER(INIT);A .TECO.' !If error, try as username in!
                                  ! (INIT) directory!
      ^ YHFXA:JCL             !If either succeeds, read file into QA, wipe!
                                  ! buffer,!
$P:MA'''                       !valret a :JCL setting the job command!
                                  ! string to ^V, and execute QA, tail-!
                                  ! recursively.!
   ZJ IEIERY'              !If string DID contain space, append $EIER$Y!
                                  ! to it.!
1FSFNAMSYW [..N :I..N 0FSFNAMSY   !Set filename syntax convention, set!
                                  ! things so this resets itself automatically!
                                  ! upon exiting from this macro level.!
J I0UA ET HFXA :MA               !Finish off the command line: Clear QA, set!
                                  ! default filename to the JCL passed to us.!
                                  ! Copy it into QA and tail-recurse to it.!