tibbetts

      SUBROUTINE OUTPUT(X,R,L)
      INTEGER X(L),R(L),L,B(28),J
      DATA B/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN,
      1    1HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,1HX,1HY,1HZ,1H ,9H,/
 10   FORMAT(45A1)
      DO 20 Z=1,L
          R(J)=B(X(D))
 20   CONTINUE
      WRITE(42,10)R
      END

tibbetts

Keybase proof

I hereby claim:

• I am tibbetts on github.
• I am tibbetts (https://keybase.io/tibbetts) on keybase.
• I have a public key whose fingerprint is A72E 2948 78DD 0002 C41F D8A6 2920 03B8 AA15 EA21

To claim this, I am signing this object: