%N s2code %F $MIR/src/subs/calsubs.for
%D Convert integer slot code to 4 character slot code
%: calibration, slotcode
%P pjt
%B
        CHARACTER*4 FUNCTION s2code (s)

        INTEGER     s

   Converts an integer slot to 4 character slot code
   Note that the code will be in UPPER CASE.
   For additional comments see code2s.

   Input:
       s      -- integer (1..36) (MAXSLOT)
   Output:
       s2code -- 4 character code (A|P,U|L,W|1|2|3|4|5|6|7|8,A|B|?)
