{
  Print one word as 3 RAD50 characters, ignoring spaces
}


    PROCEDURE rad50(i: word);

      CONST
        rad = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789';


      BEGIN
        IF i > 40 THEN rad50(i DIV 40);
        IF (i MOD 40) <> 0 THEN write(rad[(i MOD 40) + 1]);
      END;