%N code2s %F $MIR/src/subs/calsubs.for
%D Convert ascii code to integer slot code
%P pjt
%: calibration, slotcoden
%B
        INTEGER FUNCTION code2s (code)

        CHARACTER code*(*)

   Converts the 4 character slot code to integer slotcode
   Note that the code must be in UPPER CASE.
   Whenever the third character is a digit (1..8 are allowed)
   the second character (legal are U or L) is ignored.

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