sw/rescue/lab8e_goettingen/disk2_11/rka/paroff/uml.te

   1 ! MACRO UM DIE SONDERZEICHEN FUER UMLAUTE AUF ADCOMP 80-SP ZU ERZEUGEN.
   2 WANDELT $U IN DEN UMLAUT U UM. FUER GROSS UND KLEINSCHREIBUNG. $S IST ESSZETT
   3 AUFRUF: MUNG UML,EINGABEFILE
   4 DAS AUSGABEFILE IST SYS:LPT.LS
   5  !
   6 HX1
   7 HKGY
   8 J2SF-I-L-E\e-7DG1
   9 J2SS-T-A-R-T!\e0,.K
  10 JI  HKXY\e
  11 HX1M1
  12 !S-T-A-R-T!
  13 ERF-I-L-E\eEWSYS:LPT.LS\e
  14 <N$\e!                UMSETZTABELLE
  15 !0A-65"E-DD27I\e53I\eOLOOP\e'! GR A   ESC 5
  16 !0A-97"E-DD27I\e54I\eOLOOP\e'! KL A   ESC 6
  17 !0A-79"E-DD27I\e55I\eOLOOP\e'! GR O   ESC 7
  18 !0A-111"E-DD27I\e56I\eOLOOP\e'!KL O   ESC 8
  19 !0A-85"E-DD27I\e57I\eOLOOP\e'! GR U   ESC 9
  20 !0A-117"E-DD27I\e58I\eOLOOP\e'!KL U   ESC :
  21 !0A-115"E-DD27I\e37I\eOLOOP\e'!KL S   ESC %
  22 !!LOOP!>EX
  23 \1a