# This is an AWK program which writes a shell 'tr' script
# It only needs to be run once.
# The only reason for it is that the 'tr' script has one
# long line with non-ascii characters and it is difficult to
# get these files through various transmission schemes (e-mail,
# Reflection) without some distortion

# To run this AWK program and create the script TRLATIN,
# save this file as MAKETR and then either
# (1) do this from the POSIX shell
#  awk -f  MAKETR >TRLATIN
# or (2) do thise from CI:
#  /bin/awk "-f MAKETR" >TRLATIN
#  SAVE TRLATIN

BEGIN {
  a1 = "\300\302\310\312\313\316\317\264\140\136\250\176\331"
  a2 = "\333\243\257\335\375\260\307\347\321\361\241\277\244"
  a3 = "\243\245\247\146\242\342\352\364\373\341\351\363\372"
  a4 = "\340\350\362\371\344\353\366\374\305\356\330\306\345"
  a5 = "\355\370\346\304\354\326\334\311\357\337\324\301\303"
  a6 = "\343\320\360\315\314\323\322\325\365\123\163\332\377"
  a7 = "\377\336\376\267\265\266\276\134\055\274\275\252\272"
  a8 = "\253\040\273\261"

  print "# Shell tr script to translate HP ROMAN-8 to LATIN-1"
  print "# Ken Hirsch <[log in to unmask]>"
  print "# usage from CI:"
  print "# /bin/sh TRLATIN <INPUT >OUTPUT"
  print "# Note that OUTPUT will be a TEMP file"
  print "# You can use file equations:"
  print "# FILE FRED=BILL,OLD"
  print "# /bin/sh TRLATIN <INPUT >*FRED"
  print "tr '\\241-\\376' '" a1 a2 a3 a4 a5 a6 a7 a8 "'"
}

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *