path: root/hollerith.patch

diff --git a/npostscr.f b/npostscr.f
index 8e6e539..260d1fe 100644
--- a/npostscr.f
+++ b/npostscr.f
@@ -55,23 +55,23 @@ C
 C
       integer itmpl,jtmpl,ixl,iyl,ixh,iyh
       save itmpl,jtmpl,ixl,iyl,ixh,iyh
-      DATA          INST/17,2,4,  1, 0,'XMIN',
-     X                      2,4,  2, 0,'XMAX',
-     X                      2,4,  3, 0,'YMIN',
-     X                      2,4,  4, 0,'YMAX',
-     X                      3,5,  5, 0,'RUCM','X   ',
-     X                      3,5,  6, 0,'RUCM','Y   ',
-     X                      1,7,  7, 1,'ROTA','XIS ',
-     X                      1,7,  8, 1,'SLDF','ILL ',
-     X                      1,5,  9, 1,'GENI','L   ',
-     X                      1,5, 10, 1,'ASCI','I   ',
-     X                      4,6, 11,64,'DDNA','ME  ',
-     X                      4,6, 27,64,'BEGF','IL  ',
-     X                      4,6, 43,64,'ENDF','IL  ',
-     X                      4,6, 59,64,'BEGP','IC  ',
-     X                      4,6, 75,64,'ENDP','IC  ',
-     X                      4,6, 91,64,'BEGR','EC  ',
-     X                      4,6,107,64,'ENDR','EC  '/
+      DATA          INST/17,2,4,  1, 0,4HXMIN,
+     X                      2,4,  2, 0,4HXMAX,
+     X                      2,4,  3, 0,4HYMIN,
+     X                      2,4,  4, 0,4HYMAX,
+     X                      3,5,  5, 0,4HRUCM,4HX   ,
+     X                      3,5,  6, 0,4HRUCM,4HY   ,
+     X                      1,7,  7, 1,4HROTA,4HXIS ,
+     X                      1,7,  8, 1,4HSLDF,4HILL ,
+     X                      1,5,  9, 1,4HGENI,4HL   ,
+     X                      1,5, 10, 1,4HASCI,4HI   ,
+     X                      4,6, 11,64,4HDDNA,4HME  ,
+     X                      4,6, 27,64,4HBEGF,4HIL  ,
+     X                      4,6, 43,64,4HENDF,4HIL  ,
+     X                      4,6, 59,64,4HBEGP,4HIC  ,
+     X                      4,6, 75,64,4HENDP,4HIC  ,
+     X                      4,6, 91,64,4HBEGR,4HEC  ,
+     X                      4,6,107,64,4HENDR,4HEC  /
 C
 C  CHECK OPERATION FLAG AND BRANCH TO THE CORRECT SECTION.
       INT1=DDIN(1)
diff --git a/ntek4010.f b/ntek4010.f
index 7dd36e8..4209a43 100644
--- a/ntek4010.f
+++ b/ntek4010.f
@@ -46,7 +46,7 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/1,4,7,1,64,'CHAN','NEL '/
+      DATA          INST/1,4,7,1,64,4HCHAN,4HNEL /
 c      DATA          CLRX/Z1D,Z1B,Z0C/
 c      DATA          CRSX/Z1B,Z1A/
 c      DATA          BELL/Z07/
diff --git a/nucleus.f b/nucleus.f
index 14f42c5..3a77e36 100644
--- a/nucleus.f
+++ b/nucleus.f
@@ -55,54 +55,54 @@ C
       DATA          POTCC/PODCC/
       DATA          POTST(1)/36/
       DATA          POT001
-     X  /    1,    4,    1,    1, 'VDIM',
-     X       1,    3,    1,    2, 'DIM ',
-     X       1,    6,    1,    3, 'MEDI', 'UM  ',
-     X       1,    6,    1,    4, 'BRIG', 'HT  ',
-     X       1,    7,    1,    5, 'VBRI', 'GHT '/
+     X  /    1,    4,    1,    1, 4HVDIM,
+     X       1,    3,    1,    2, 4HDIM ,
+     X       1,    6,    1,    3, 4HMEDI, 4HUM  ,
+     X       1,    6,    1,    4, 4HBRIG, 4HHT  ,
+     X       1,    7,    1,    5, 4HVBRI, 4HGHT /
       DATA          POT002
-     X  /    1,    5,    2,    1, 'WHIT', 'E   ',
-     X       1,    3,    2,    2, 'RED ',
-     X       1,    5,    2,    3, 'GREE', 'N   ',
-     X       1,    4,    2,    4, 'BLUE',
-     X       1,    6,    2,    5, 'YELL', 'OW  ',
-     X       1,    7,    2,    6, 'MAGE', 'NTA ',
-     X       1,    4,    2,    7, 'CYAN',
-     X       1,    5,    2,    8, 'BLAC', 'K   '/
+     X  /    1,    5,    2,    1, 4HWHIT, 4HE   ,
+     X       1,    3,    2,    2, 4HRED ,
+     X       1,    5,    2,    3, 4HGREE, 4HN   ,
+     X       1,    4,    2,    4, 4HBLUE,
+     X       1,    6,    2,    5, 4HYELL, 4HOW  ,
+     X       1,    7,    2,    6, 4HMAGE, 4HNTA ,
+     X       1,    4,    2,    7, 4HCYAN,
+     X       1,    5,    2,    8, 4HBLAC, 4HK   /
       DATA          POT003
-     X  /    1,    6,    3,    1, 'STEA', 'DY  ',
-     X       1,    5,    3,    2, 'BLIN', 'K   '/
+     X  /    1,    6,    3,    1, 4HSTEA, 4HDY  ,
+     X       1,    5,    3,    2, 4HBLIN, 4HK   /
       DATA          POT004
-     X  /    2,    6,    4,    0, 'PICK', 'ID  '/
+     X  /    2,    6,    4,    0, 4HPICK, 4HID  /
       DATA          POT005
-     X  /    2,    4,    5,    0, 'MARK'/
+     X  /    2,    4,    5,    0, 4HMARK/
       DATA          POT006
-     X  /    1,    5,    6,    1, 'SOLI', 'D   ',
-     X       1,    6,    6,    2, 'DASH', 'ED  ',
-     X       1,    6,    6,    3, 'DOTT', 'ED  ',
-     X       1,    7,    6,    4, 'DOTD', 'ASH '/
+     X  /    1,    5,    6,    1, 4HSOLI, 4HD   ,
+     X       1,    6,    6,    2, 4HDASH, 4HED  ,
+     X       1,    6,    6,    3, 4HDOTT, 4HED  ,
+     X       1,    7,    6,    4, 4HDOTD, 4HASH /
       DATA          POT007
-     X  /    3,    4,    7,    0, 'SIZE'/
+     X  /    3,    4,    7,    0, 4HSIZE/
       DATA          POT008
-     X  /    3,    5,    8,    0, 'DSIZ', 'E   '/
+     X  /    3,    5,    8,    0, 4HDSIZ, 4HE   /
       DATA          POT009
-     X  /    3,    5,    9,    0, 'ANGL', 'E   '/
+     X  /    3,    5,    9,    0, 4HANGL, 4HE   /
       DATA          POT010
-     X  /    1,    4,   10,    1, 'LEFT',
-     X       1,    5,   10,    2, 'RIGH', 'T   ',
-     X       1,    6,   10,    3, 'CENT', 'ER  '/
+     X  /    1,    4,   10,    1, 4HLEFT,
+     X       1,    5,   10,    2, 4HRIGH, 4HT   ,
+     X       1,    6,   10,    3, 4HCENT, 4HER  /
       DATA          POT011
-     X  /    1,    6,   11,    1, 'NORM', 'GN  ',
-     X       1,    6,   11,    2, 'HARD', 'GN  ',
-     X       1,    6,   11,    3, 'SOFT', 'GN  '/
+     X  /    1,    6,   11,    1, 4HNORM, 4HGN  ,
+     X       1,    6,   11,    2, 4HHARD, 4HGN  ,
+     X       1,    6,   11,    3, 4HSOFT, 4HGN  /
       DATA          POT012
-     X  /    1,    7,   12,    1, 'NOFX', 'SIZ ',
-     X       1,    7,   12,    2, 'FIXS', 'IZE '/
+     X  /    1,    7,   12,    1, 4HNOFX, 4HSIZ ,
+     X       1,    7,   12,    2, 4HFIXS, 4HIZE /
       DATA          POT013
-     X  /    1,    7,   13,    0, 'NOCO', 'NST ',
-     X       1,    6,   13,    1, 'XCON', 'ST  ',
-     X       1,    6,   13,    2, 'YCON', 'ST  ',
-     X       1,    6,   13,    3, 'ZCON', 'ST  '/
+     X  /    1,    7,   13,    0, 4HNOCO, 4HNST ,
+     X       1,    6,   13,    1, 4HXCON, 4HST  ,
+     X       1,    6,   13,    2, 4HYCON, 4HST  ,
+     X       1,    6,   13,    3, 4HZCON, 4HST  /
 C
       END
       BLOCK DATA B000003
diff --git a/seq4010.f b/seq4010.f
index 7f2c819..2432489 100644
--- a/seq4010.f
+++ b/seq4010.f
@@ -41,10 +41,10 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/4,4,6,1, 4,'PICT','ID  ',
-     X                     2,6,2, 0,'PICT','SQ  ',
-     X                     2,8,3, 0,'BAUD','RATE',
-     X                     4,6,4,64,'DDNA','ME  '/
+      DATA          INST/4,4,6,1, 4,4HPICT,4HID  ,
+     X                     2,6,2, 0,4HPICT,4HSQ  ,
+     X                     2,8,3, 0,4HBAUD,4HRATE,
+     X                     4,6,4,64,4HDDNA,4HME  /
 C
 C  CHECK OPERATION FLAG AND BRANCH TO THE CORRECT SECTION.
       INT1=DDIN(1)
diff --git a/ug2dhg.f b/ug2dhg.f
index a5177d3..a574eb8 100644
--- a/ug2dhg.f
+++ b/ug2dhg.f
@@ -63,7 +63,7 @@ C
       LOGICAL       LGL1
       INTEGER       INT1,INT2
 C
-      DATA          INST/1,3,5,1,0,'TOLE','R   '/
+      DATA          INST/1,3,5,1,0,4HTOLE,4HR   /
 C
 C  SCAN THE OPTIONS LIST, INITIALIZE, AND CHECK THE INPUT..
       EXTL=0.00005
diff --git a/ug3trn.f b/ug3trn.f
index a964ec8..e8fc6a3 100644
--- a/ug3trn.f
+++ b/ug3trn.f
@@ -39,9 +39,9 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/3,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT ',
-     X                     1,6,2,1,'REMO','TE  '/
+      DATA          INST/3,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT ,
+     X                     1,6,2,1,4HREMO,4HTE  /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 307
diff --git a/ug3wrd.f b/ug3wrd.f
index 9317957..90b8057 100644
--- a/ug3wrd.f
+++ b/ug3wrd.f
@@ -36,8 +36,8 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/2,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT '/
+      DATA          INST/2,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 305
diff --git a/ugclos.f b/ugclos.f
index bac376e..7f4646d 100644
--- a/ugclos.f
+++ b/ugclos.f
@@ -40,8 +40,8 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/2,1,3,1,1,'ALL ',
-     X                     1,7,2,1,'NOCL','EAR '/
+      DATA          INST/2,1,3,1,1,4HALL ,
+     X                     1,7,2,1,4HNOCL,4HEAR /
       DATA          TARY/1,3/
 C
 C  INITIALIZE AND SCAN THE OPTIONS LIST.
diff --git a/ugcntr.f b/ugcntr.f
index 2493eb6..058d76a 100644
--- a/ugcntr.f
+++ b/ugcntr.f
@@ -55,8 +55,8 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/2,2,4,1,0,'NSCL',
-     X                     3,5,2,0,'TOLE','R   '/
+      DATA          INST/2,2,4,1,0,4HNSCL,
+     X                     3,5,2,0,4HTOLE,4HR   /
 C
 C  SCAN THE OPTIONS LIST.
       EXSC=0
diff --git a/ugctol.f b/ugctol.f
index 547e259..1ab1909 100644
--- a/ugctol.f
+++ b/ugctol.f
@@ -64,13 +64,13 @@ C
       REAL          FLT1,FLT2,FLT3
       INTEGER       INT1,INT2
 C
-      DATA          INST/7,3,4,1,0,'SIZE',
-     X                     3,5,2,0,'ANGL','E   ',
-     X                     1,5,3,1,'RIGH','T   ',
-     X                     1,6,3,2,'CENT','ER  ',
-     X                     1,7,4,0,'FIXS','IZE ',
-     X                     1,4,5,1,'LAST',
-     X                     1,4,5,2,'NEXT'/
+      DATA          INST/7,3,4,1,0,4HSIZE,
+     X                     3,5,2,0,4HANGL,4HE   ,
+     X                     1,5,3,1,4HRIGH,4HT   ,
+     X                     1,6,3,2,4HCENT,4HER  ,
+     X                     1,7,4,0,4HFIXS,4HIZE ,
+     X                     1,4,5,1,4HLAST,
+     X                     1,4,5,2,4HNEXT/
 c      DATA          BITS/Z80000000,Z40000000,Z20000000,Z10000000,
 c     X                   Z08000000,Z04000000,Z02000000,Z01000000,
 c     X                   Z00800000,Z00400000,Z00200000,Z00100000,
diff --git a/ugdefl.f b/ugdefl.f
index bd023a5..e96c9d4 100644
--- a/ugdefl.f
+++ b/ugdefl.f
@@ -35,10 +35,10 @@ C
       INTEGER*4     EXSX(1),EXRS
       EQUIVALENCE   (EXRS,EXSX(1))
 C
-      DATA          INST/4,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT ',
-     X                     1,5,1,3,'RESE','T   ',
-     X                     1,3,1,2,'SET '/
+      DATA          INST/4,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT ,
+     X                     1,5,1,3,4HRESE,4HT   ,
+     X                     1,3,1,2,4HSET /
 C
 C  SCAN THE OPTIONS LIST.
       EXRS=0
diff --git a/ugdsab.f b/ugdsab.f
index f181464..fd1dd85 100644
--- a/ugdsab.f
+++ b/ugdsab.f
@@ -33,12 +33,12 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/6,1,8,1,1,'KEYB','OARD',
-     X                     1,4,2,1,'PICK',
-     X                     1,6,3,1,'BUTT','ON  ',
-     X                     1,6,4,1,'STRO','KE  ',
-     X                     1,7,5,1,'LOCA','TOR ',
-     X                     1,8,6,1,'VALU','ATOR'/
+      DATA          INST/6,1,8,1,1,4HKEYB,4HOARD,
+     X                     1,4,2,1,4HPICK,
+     X                     1,6,3,1,4HBUTT,4HON  ,
+     X                     1,6,4,1,4HSTRO,4HKE  ,
+     X                     1,7,5,1,4HLOCA,4HTOR ,
+     X                     1,8,6,1,4HVALU,4HATOR/
 C
 C  IS THERE AN INTERACTIVE ACTIVE DEVICE?
       EFLG=0
diff --git a/ugdspc.f b/ugdspc.f
index b6acd17..6edbc8e 100644
--- a/ugdspc.f
+++ b/ugdspc.f
@@ -41,8 +41,8 @@ C
       REAL          FLT1,FLT2
       INTEGER       INT1,INT2
 C
-      DATA          INST/2,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT '/
+      DATA          INST/2,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 304
diff --git a/ugectl.f b/ugectl.f
index a8d9cf2..ea57049 100644
--- a/ugectl.f
+++ b/ugectl.f
@@ -46,12 +46,12 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/6,1,8,1, 1,'KEYB','OARD',
-     X                     1,6,2, 1,'LOCA','SE  ',
-     X                     1,6,3, 1,'STRO','KE  ',
-     X                     1,7,4, 1,'LOCA','TOR ',
-     X                     2,8,5, 0,'VALU','ATOR',
-     X                     5,6,6,12,'BUTT','ON  '/
+      DATA          INST/6,1,8,1, 1,4HKEYB,4HOARD,
+     X                     1,6,2, 1,4HLOCA,4HSE  ,
+     X                     1,6,3, 1,4HSTRO,4HKE  ,
+     X                     1,7,4, 1,4HLOCA,4HTOR ,
+     X                     2,8,5, 0,4HVALU,4HATOR,
+     X                     5,6,6,12,4HBUTT,4HON  /
 C
 C  IS THERE AN INTERACTIVE ACTIVE DEVICE?
       EFLG=0
diff --git a/ugenab.f b/ugenab.f
index c11593f..edeafb6 100644
--- a/ugenab.f
+++ b/ugenab.f
@@ -33,12 +33,12 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/6,1,8,1,1,'KEYB','OARD',
-     X                     1,4,2,1,'PICK',
-     X                     1,6,3,1,'BUTT','ON  ',
-     X                     1,6,4,1,'STRO','KE ',
-     X                     1,7,5,1,'LOCA','TOR ',
-     X                     1,8,6,1,'VALU','ATOR'/
+      DATA          INST/6,1,8,1,1,4HKEYB,4HOARD,
+     X                     1,4,2,1,4HPICK,
+     X                     1,6,3,1,4HBUTT,4HON  ,
+     X                     1,6,4,1,4HSTRO,4HKE  ,
+     X                     1,7,5,1,4HLOCA,4HTOR ,
+     X                     1,8,6,1,4HVALU,4HATOR/
 C
 C  IS THERE AN INTERACTIVE ACTIVE DEVICE?
       EFLG=0
diff --git a/ugfont.f b/ugfont.f
index af40e2f..045a841 100644
--- a/ugfont.f
+++ b/ugfont.f
@@ -30,8 +30,8 @@ C
 C
       CHARACTER*8   NAMS(2)
 C
-      DATA          INST/2,1,7,1,1,'SIMP','LEX ',
-     X                     1,6,1,2,'DUPL','EX  '/
+      DATA          INST/2,1,7,1,1,4HSIMP,4HLEX ,
+     X                     1,6,1,2,4HDUPL,4HEX  /
       DATA          NAMS/'UGA013  ',
      X                   'UGA014  '/
 C
diff --git a/uginfo.f b/uginfo.f
index c76367c..e344eb1 100644
--- a/uginfo.f
+++ b/uginfo.f
@@ -48,17 +48,17 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/11,1, 7, 1,1,'OPEN','DEV ',
-     X                      1, 6, 2,1,'ACTD','EV  ',
-     X                      1, 7, 3,1,'DEVT','YPE ',
-     X                      1, 6, 4,1,'ILEV','EL  ',
-     X                      1, 7, 5,1,'DMED','IUM ',
-     X                      1, 9, 6,1,'DIME','NSIO','N   ',
-     X                      1, 8, 7,1,'CONT','ROLS',
-     X                      1, 9, 8,1,'ECON','TROL','S   ',
-     X                      1,10, 9,1,'EXTE','NSIO','NS  ',
-     X                      1, 8,10,1,'DSPC','SIZE',
-     X                      1, 8,11,1,'WDOW','SIZE'/
+      DATA          INST/11,1, 7, 1,1,4HOPEN,4HDEV ,
+     X                      1, 6, 2,1,4HACTD,4HEV  ,
+     X                      1, 7, 3,1,4HDEVT,4HYPE ,
+     X                      1, 6, 4,1,4HILEV,4HEL  ,
+     X                      1, 7, 5,1,4HDMED,4HIUM ,
+     X                      1, 9, 6,1,4HDIME,4HNSIO,4HN   ,
+     X                      1, 8, 7,1,4HCONT,4HROLS,
+     X                      1, 9, 8,1,4HECON,4HTROL,4HS   ,
+     X                      1,10, 9,1,4HEXTE,4HNSIO,4HNS  ,
+     X                      1, 8,10,1,4HDSPC,4HSIZE,
+     X                      1, 8,11,1,4HWDOW,4HSIZE/
 C
 C  SCAN THE OPTIONS LIST.
       EXOD=0
diff --git a/uginit.f b/uginit.f
index 2935add..ef62d5f 100644
--- a/uginit.f
+++ b/uginit.f
@@ -40,9 +40,9 @@ C
 C
       INTEGER       INT1,INT2
 C
-      DATA          INST/3,1,5,1,1,'CLEA','R   ',
-     X                     1,5,1,2,'RESE','T   ',
-     X                     1,8,1,3,'CONT','INUE'/
+      DATA          INST/3,1,5,1,1,4HCLEA,4HR   ,
+     X                     1,5,1,2,4HRESE,4HT   ,
+     X                     1,8,1,3,4HCONT,4HINUE/
 c      DATA          MASK/ZFFFEFFFF/
       DATA MASK/      -65537/
 
diff --git a/uglgax.f b/uglgax.f
index 505ce3c..e4c390f 100644
--- a/uglgax.f
+++ b/uglgax.f
@@ -55,9 +55,9 @@ C
       REAL          FLT1
       INTEGER       INT1,INT2
 C
-      DATA          INST/3,2,4,1,0,'NSTM',
-     X                     3,4,2,0,'LSTM',
-     X                     3,4,3,0,'RSTM'/
+      DATA          INST/3,2,4,1,0,4HNSTM,
+     X                     3,4,2,0,4HLSTM,
+     X                     3,4,3,0,4HRSTM/
 C
 C  SCAN THE OPTIONS LIST.
       EXNT=0
diff --git a/uglnax.f b/uglnax.f
index e4903e9..2417d5b 100644
--- a/uglnax.f
+++ b/uglnax.f
@@ -55,9 +55,9 @@ C
       REAL          FLT1
       INTEGER       INT1,INT2
 C
-      DATA          INST/3,2,4,1,0,'NSTM',
-     X                     3,4,2,0,'LSTM',
-     X                     3,4,3,0,'RSTM'/
+      DATA          INST/3,2,4,1,0,4HNSTM,
+     X                     3,4,2,0,4HLSTM,
+     X                     3,4,3,0,4HRSTM/
 C
 C  SCAN THE OPTIONS LIST.
       EXNT=0
diff --git a/ugmctl.f b/ugmctl.f
index 9b5cb6f..825372e 100644
--- a/ugmctl.f
+++ b/ugmctl.f
@@ -44,9 +44,9 @@ C
 C
       INTEGER       DDIN(2),DDEX(1)
 C
-      DATA          INST/3,2,7,1,0,'ERRU','NIT ',
-     X                     2,6,2,0,'ERRM','AX  ',
-     X                     1,4,3,1,'BEEP'/
+      DATA          INST/3,2,7,1,0,4HERRU,4HNIT ,
+     X                     2,6,2,0,4HERRM,4HAX  ,
+     X                     1,4,3,1,4HBEEP/
 C
 C  SCAN THE OPTIONS LIST.
       EXEU=EMMEU
diff --git a/ugmesh.f b/ugmesh.f
index afc03d0..b0764b2 100644
--- a/ugmesh.f
+++ b/ugmesh.f
@@ -56,9 +56,9 @@ C
       REAL          FLT1,FLT2,FLT3,FLT4,FLT5
       INTEGER       INT1,INT2
 C
-      DATA          INST/3,1,5,1,1,'LOWE','R   ',
-     X                     1,6,2,1,'NOCO','MN  ',
-     X                     3,5,3,0,'TOLE','R   '/
+      DATA          INST/3,1,5,1,1,4HLOWE,4HR   ,
+     X                     1,6,2,1,4HNOCO,4HMN  ,
+     X                     3,5,3,0,4HTOLE,4HR   /
 C
 C
 C  SCAN THE OPTIONS LIST.
diff --git a/ugopen.f b/ugopen.f
index 20c3406..1e00c79 100644
--- a/ugopen.f
+++ b/ugopen.f
@@ -49,49 +49,49 @@ C
       REAL          FLT1,FLT2
       INTEGER       INT1,INT2
 C
-      DATA          INST/NSGD,1,7,1, 1,'SDDX','COW ',
-     X                        1,7,1, 2,'SEQG','IGI ',
-     X                        1,7,1, 3,'SDDG','IGI ',
-     X                        1,7,1, 4,'DECG','IGI ',
-     X                        1,7,1, 5,'SDDV','ST2 ',
-     X                        1,7,1, 6,'DECV','ST2 ',
-     X                        1,7,1, 7,'SDDG','RIN ',
-     X                        1,7,1, 8,'IMGN','300 ',
-     X                        1,7,1, 9,'IMGN','IBM ',
-     X                        1,7,1,10,'SDDM','ETH ',
-     X                        1,7,1,11,'POST','SCR ',
-     X                        1,7,1,12,'PRNT','RNX ',
-     X                        1,7,1,13,'SEQS','EKO ',
-     X                        1,7,1,14,'SDDS','KRS ',
-     X                        1,7,1,15,'SEIK','ORS ',
-     X                        1,7,1,16,'SDDS','KRF ',
-     X                        1,7,1,17,'SEIK','ORF ',
-     X                        1,7,1,18,'SDDS','XSS ',
-     X                        1,7,1,19,'TALA','RIS ',
-     X                        1,7,1,20,'SEQ4','010 ',
-     X                        1,7,1,21,'SDD4','010 ',
-     X                        1,7,1,22,'TEK4','010 ',
-     X                        1,7,1,23,'SEQT','KEM ',
-     X                        1,7,1,24,'SDDT','KEM ',
-     X                        1,7,1,25,'TEKE','MUL ',
-     X                        1,7,1,26,'SEQ4','027 ',
-     X                        1,7,1,27,'SDD4','027 ',
-     X                        1,7,1,28,'TEK4','027 ',
-     X                        1,7,1,29,'SEQ4','105 ',
-     X                        1,7,1,30,'SDD4','105 ',
-     X                        1,7,1,31,'TEK4','105 ',
-     X                        1,7,1,32,'SDD4','207 ',
-     X                        1,7,1,33,'TEK4','207 ',
-     X                        1,7,1,34,'TEK4','510 ',
-     X                        1,7,1,35,'VEP1','2FF ',
-     X                        1,7,1,36,'SDDX','WDO ',
-     X                        1,7,1,37,'XWIN','DOW ',
-     X                        1,7,1,38,'PDEV','UGS ',
-     X                        1,7,1,39,'PDEV','LIN ',
-     X                        1,7,1,40,'PDEV','SVR ',
-     X                        1,7,1,41,'PDEV','MVR ',
-     X                        1,7,1,42,'GENW','KST ',
-     X                        1,7,1,43,'TEST','DEV '/
+      DATA          INST/NSGD,1,7,1, 1,4HSDDX,4HCOW ,
+     X                        1,7,1, 2,4HSEQG,4HIGI ,
+     X                        1,7,1, 3,4HSDDG,4HIGI ,
+     X                        1,7,1, 4,4HDECG,4HIGI ,
+     X                        1,7,1, 5,4HSDDV,4HST2 ,
+     X                        1,7,1, 6,4HDECV,4HST2 ,
+     X                        1,7,1, 7,4HSDDG,4HRIN ,
+     X                        1,7,1, 8,4HIMGN,4H300 ,
+     X                        1,7,1, 9,4HIMGN,4HIBM ,
+     X                        1,7,1,10,4HSDDM,4HETH ,
+     X                        1,7,1,11,4HPOST,4HSCR ,
+     X                        1,7,1,12,4HPRNT,4HRNX ,
+     X                        1,7,1,13,4HSEQS,4HEKO ,
+     X                        1,7,1,14,4HSDDS,4HKRS ,
+     X                        1,7,1,15,4HSEIK,4HORS ,
+     X                        1,7,1,16,4HSDDS,4HKRF ,
+     X                        1,7,1,17,4HSEIK,4HORF ,
+     X                        1,7,1,18,4HSDDS,4HXSS ,
+     X                        1,7,1,19,4HTALA,4HRIS ,
+     X                        1,7,1,20,4HSEQ4,4H010 ,
+     X                        1,7,1,21,4HSDD4,4H010 ,
+     X                        1,7,1,22,4HTEK4,4H010 ,
+     X                        1,7,1,23,4HSEQT,4HKEM ,
+     X                        1,7,1,24,4HSDDT,4HKEM ,
+     X                        1,7,1,25,4HTEKE,4HMUL ,
+     X                        1,7,1,26,4HSEQ4,4H027 ,
+     X                        1,7,1,27,4HSDD4,4H027 ,
+     X                        1,7,1,28,4HTEK4,4H027 ,
+     X                        1,7,1,29,4HSEQ4,4H105 ,
+     X                        1,7,1,30,4HSDD4,4H105 ,
+     X                        1,7,1,31,4HTEK4,4H105 ,
+     X                        1,7,1,32,4HSDD4,4H207 ,
+     X                        1,7,1,33,4HTEK4,4H207 ,
+     X                        1,7,1,34,4HTEK4,4H510 ,
+     X                        1,7,1,35,4HVEP1,4H2FF ,
+     X                        1,7,1,36,4HSDDX,4HWDO ,
+     X                        1,7,1,37,4HXWIN,4HDOW ,
+     X                        1,7,1,38,4HPDEV,4HUGS ,
+     X                        1,7,1,39,4HPDEV,4HLIN ,
+     X                        1,7,1,40,4HPDEV,4HSVR ,
+     X                        1,7,1,41,4HPDEV,4HMVR ,
+     X                        1,7,1,42,4HGENW,4HKST ,
+     X                        1,7,1,43,4HTEST,4HDEV /
       DATA          NAMS/'UGCW01  ',
      X                   'UGGS01  ',
      X                   'UGGD01  ',
diff --git a/ugpict.f b/ugpict.f
index ada8c53..b4384e3 100644
--- a/ugpict.f
+++ b/ugpict.f
@@ -40,15 +40,15 @@ C
 C
       INTEGER       INT1,INT2
 C
-      DATA          INST/9,1,5,1,1,'CLEA','R   ',
-     X                     1,6,2,1,'WIND','OW  ',
-     X                     1,6,3,1,'NOPI','CK  ',
-     X                     1,4,3,2,'PICK',
-     X                     1,7,4,1,'INCL','UDE ',
-     X                     1,4,4,2,'OMIT',
-     X                     1,2,5,1,'ON  ',
-     X                     1,3,5,2,'OFF ',
-     X                     4,5,6,8,'ALIA','S   '/
+      DATA          INST/9,1,5,1,1,4HCLEA,4HR   ,
+     X                     1,6,2,1,4HWIND,4HOW  ,
+     X                     1,6,3,1,4HNOPI,4HCK  ,
+     X                     1,4,3,2,4HPICK,
+     X                     1,7,4,1,4HINCL,4HUDE ,
+     X                     1,4,4,2,4HOMIT,
+     X                     1,2,5,1,4HON  ,
+     X                     1,3,5,2,4HOFF ,
+     X                     4,5,6,8,4HALIA,4HS   /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 401
diff --git a/ugqctr.f b/ugqctr.f
index fbcab5f..39538c3 100644
--- a/ugqctr.f
+++ b/ugqctr.f
@@ -52,7 +52,7 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/1,2,4,1,0,'NSCL'/
+      DATA          INST/1,2,4,1,0,4HNSCL/
 C
 C  SCAN THE OPTIONS LIST.
       EXSC=0
diff --git a/ugscin.f b/ugscin.f
index f6d9662..fe98cf5 100644
--- a/ugscin.f
+++ b/ugscin.f
@@ -75,13 +75,13 @@ C
       INTEGER       BBIT
       REAL          XCRD,YCRD,DELX,DELY
 C
-      DATA          INST/7,1,7,1,1,'UNIF','ORM ',
-     X                     1,6,2,1,'GENT','AN  ',
-     X                     3,5,3,0,'XFAC','T   ',
-     X                     3,5,4,0,'YFAC','T   ',
-     X                     2,5,5,0,'NPAR','M   ',
-     X                     3,5,6,0,'DPAR','M   ',
-     X                     3,5,7,0,'TOLE','R   '/
+      DATA          INST/7,1,7,1,1,4HUNIF,4HORM ,
+     X                     1,6,2,1,4HGENT,4HAN  ,
+     X                     3,5,3,0,4HXFAC,4HT   ,
+     X                     3,5,4,0,4HYFAC,4HT   ,
+     X                     2,5,5,0,4HNPAR,4HM   ,
+     X                     3,5,6,0,4HDPAR,4HM   ,
+     X                     3,5,7,0,4HTOLE,4HR   /
 C
 C  CHECK THE INPUT DATA, SCAN THE OPTIONS LIST, AND INITIALIZE.
       IF (NPTS.LT.2) GO TO 501
diff --git a/ugshld.f b/ugshld.f
index 93adea1..f94b588 100644
--- a/ugshld.f
+++ b/ugshld.f
@@ -35,10 +35,10 @@ C
 C
       INTEGER       INT1
 C
-      DATA          INST/4,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT ',
-     X                     1,6,1,3,'DELE','TE  ',
-     X                     2,6,2,0,'SHIE','LD  '/
+      DATA          INST/4,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT ,
+     X                     1,6,1,3,4HDELE,4HTE  ,
+     X                     2,6,2,0,4HSHIE,4HLD  /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 303
diff --git a/ugtran.f b/ugtran.f
index 694d94f..433dc19 100644
--- a/ugtran.f
+++ b/ugtran.f
@@ -49,13 +49,13 @@ C
       REAL          FLT1,FLT2,FLT3,FLT4,FLT5,FLT6
       INTEGER       INT1,INT2
 C
-      DATA          INST/7,1,8,1,1,'PARA','LLEL',
-     X                     3,4,2,0,'EYED',
-     X                     3,3,3,0,'XLO ',
-     X                     3,3,4,0,'XHI ',
-     X                     3,3,5,0,'YLO ',
-     X                     3,3,6,0,'YHI ',
-     X                     3,5,7,0,'TOLE','R   '/
+      DATA          INST/7,1,8,1,1,4HPARA,4HLLEL,
+     X                     3,4,2,0,4HEYED,
+     X                     3,3,3,0,4HXLO ,
+     X                     3,3,4,0,4HXHI ,
+     X                     3,3,5,0,4HYLO ,
+     X                     3,3,6,0,4HYHI ,
+     X                     3,5,7,0,4HTOLE,4HR   /
 C
 C  SCAN THE OPTIONS LIST.
       EXPL=0
diff --git a/ugwdow.f b/ugwdow.f
index 8079fb4..738479a 100644
--- a/ugwdow.f
+++ b/ugwdow.f
@@ -37,9 +37,9 @@ C
 C
       INTEGER       INT1,INT2
 C
-      DATA          INST/3,1,3,1,1,'GET ',
-     X                     1,3,1,2,'PUT ',
-     X                     1,6,2,1,'WIND','OW  '/
+      DATA          INST/3,1,3,1,1,4HGET ,
+     X                     1,3,1,2,4HPUT ,
+     X                     1,6,2,1,4HWIND,4HOW  /
 C
 C  IS THERE AN ACTIVE DEVICE?
       IF (DDAAI.EQ.0) GO TO 304
diff --git a/ugwrit.f b/ugwrit.f
index e7fc0a8..32c4577 100644
--- a/ugwrit.f
+++ b/ugwrit.f
@@ -77,9 +77,9 @@ C
       REAL          FLT1,FLT2,FLT3
       CHARACTER*1   CHR1
 C
-      DATA          INST/3,1,4,1,1,'PICK',
-     X                     1,4,2,1,'OMIT',
-     X                     1,5,3,1,'ERAS','E   '/
+      DATA          INST/3,1,4,1,1,4HPICK,
+     X                     1,4,2,1,4HOMIT,
+     X                     1,5,3,1,4HERAS,4HE   /
       DATA          DIGT/'0','1','2','3','4','5','6','7','8','9'/
 c      DATA          MSK1/Z00010000/
 c      DATA          MSK2/ZFFFEFFFF/
diff --git a/ugxhch.f b/ugxhch.f
index ebeac92..9ed63c8 100644
--- a/ugxhch.f
+++ b/ugxhch.f
@@ -50,13 +50,13 @@ C
 C
       INTEGER       INT1,INT2,INT3
 C
-      DATA          INST/7,3,7,1,0,'SPAC','ING ',
-     X                     3,5,2,0,'ANGL','E   ',
-     X                     3,1,3,0,'X   ',
-     X                     3,1,4,0,'Y   ',
-     X                     3,5,5,0,'XFAC','T   ',
-     X                     3,5,6,0,'YFAC','T   ',
-     X                     3,5,7,0,'TOLE','R   '/
+      DATA          INST/7,3,7,1,0,4HSPAC,4HING ,
+     X                     3,5,2,0,4HANGL,4HE   ,
+     X                     3,1,3,0,4HX   ,
+     X                     3,1,4,0,4HY   ,
+     X                     3,5,5,0,4HXFAC,4HT   ,
+     X                     3,5,6,0,4HYFAC,4HT   ,
+     X                     3,5,7,0,4HTOLE,4HR   /
 C
 C  SCAN THE OPTIONS LIST.
       EXSP=0.02