[Also see Kevin Handy's str.tgz which has an (older?) version of these
routines.  There may be more information/links at
    http://www.cyclic.com/~kingdon/free-vms.html

-kingdon]

From: paulnank@au1.ibm.com
To: kingdon@cyclic.com
Date: Tue, 22 Dec 1998 18:10:31 +1100
Subject: New version of VMSTIME routines
Content-type: multipart/mixed; 
	Boundary="0__=grc4zv2EjG7mjTVXcS9a7sPkr4MQg7ixlxHSTGfsOsoYKBahMfmxP9re"
Content-Disposition: inline

--0__=grc4zv2EjG7mjTVXcS9a7sPkr4MQg7ixlxHSTGfsOsoYKBahMfmxP9re
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline

Jim,

Hi! Please find attached a new version of my VMSTIME routines. Please use
these to replace the version on your web site as they have become a little
out
of date (the new version has lots of cleanups and a few bug fixes).

Thanks

Paul Nankervis

paulnank@au1.ibm.com

(See attached file: vmstime.zip)

--0__=grc4zv2EjG7mjTVXcS9a7sPkr4MQg7ixlxHSTGfsOsoYKBahMfmxP9re
Content-type: application/zip; 
	name="vmstime.zip"
Content-Disposition: attachment; filename="vmstime.zip"
Content-transfer-encoding: base64
Content-Description: .ZIP File

UEsDBBQAAAAIAPtLKyXRzeibIAIAAAsHAAAJAAAAdm1zdGltZS5ovVVBa9swFL4H8h9euxxSkyVk
l432sh0KG6yj0NFLKUa2nhMRRwqW5LWM/fc9WY5lR8loe5gOQf70fZ/ee9JTFsl4NB6BH/c3dz+/
3VzPvwLUy/myt/LFmrWqLuGW2RJ+MLnBqha6R7gtkWkEjZJDZldQ4U5VRoNRjcZJPjO7nItsO8/V
1imThfsdj96JQnIsIE3b/dOUQEKExD4IpWIcuZfIvLQc4Zyjziuxm6/PvZk2lc0NOAX89tFZqcVK
Iod8zSowYosPnx6vfNiLBO4aha0QVNGsggvsT0s4NUj4XakNKGvgWkhtUMizM7h8fwHgE9tnUIps
wjhPnbVu1YSlHRZRn/obtdSnISuvTVpjTvrACtiQy9nzIHTHJSwipapIfyFu+qQ9NiRvbWlSjqVh
TQYN+QAbCrTNovw7LKJG+TsssPSznjAdcneDsNRjQ14mZMTz2JC3QhPxPDbkSbuNeB7z16+7a8Fg
2r+SCQGMVxdXPerw7KbBgjrOuBuZ2eLh4+PsJT50ZFNKDxKa6GOK2X61qf1AH3J5ewyhvvu0uc4n
bZMaVTUi8nqRkT/Qw2Acu0Q5+7d/9zANxrGChOehNkW5OlbSfRccO8qgTxyF2JGDa99prQRRaMqk
mXUfiO28Qk0N5E+HsqOlyMZ1QWtD02BDH6+x6d6dKBtcRseCH05U8rCYfuNjMf+/zQ6eIN8IDhS7
Ek/dOOpv+s8SxXj0F1BLAwQUAAAACAB8g5YlWr/AonUWAABiVAAACQAAAHZtc3RpbWUuY908a3Pb
RpLfU5U/cJ9G3ljmCxJJUbJkmtpVZDlRzpZylp293JZLBZFDEmsS4OIhhZf4fvv1Y2YwGACUbGez
V4eUI3DQ09PTr+nuGWC39fVXX38l+Prp9dXb89dnO6dC3PZ29qwnJ1k6j+Jn4kc/W4gLP/wg49sg
sQDET72dvvDEeCH9MFuJNBJJGq3EOFqugoWMxZ0fh0E4c/vsQZ9E3srYXwDsRGoESQ6lrm9mMk2D
JWLOEikW0dhfwG9ZAkyipRQrGU+jeOmHYymC5SqObuVShmkZ7SQKn6TCT5IMep1cnZ6fi/Hcj/1x
CkQnMrXo/RFIg5ETGU7ETTYTsVxFcZqIKIbbf2QygXsYVMhwjuPieKYvNFtkiNvAF3LpBwuYzjNG
DpxFxv7Fz3o7wc1yBziHYxsMb+dBIpbRJFsAk6Iw9YMwEcC4JIjgJpqKdC5RggKZIuIoS4NQ5vNN
1sk3YbaEh41mh375yZh+CR/mM40DmFays7MDA8m18OOcsUGYwjM5QdbfSBKpnwY3QMddkM5pXD2c
piPxLcGE8ENEofCJPBg6lUvRSCIxkck4DlZpFAPjpJ9mMWCSs2zhx4v1VtOdPOlHLBcBjhMCKaBP
wkc6gDAQdbBaZH4qxcRfC5jqDfDGIMA5ImMSUB7sttcXNwHIPYYZLGUajBHHGMT+QZH5j8yf3EXx
xGC4WQPqmzX93RHnU7GOslic5ho+iWSCujT3b6XGj6ybydggSdcrIAE4FIpZAGBgKWF0tyUukTsH
A+rDDEIoPedxlC0sQiSqQTANWCKTSHeMQOlBMKgOkyCW43SxBnnuWGy8DKXwJ7c+aM9MoqwmEfEw
DhQT7EmKAGnwcx1GwRI9OFOgOwUBrtAYQBh3ACiewI/AD58QZOrHM5l3XvrjOWgIIvUEEHsXLBbC
X9z5axglBuHTmAlwzCgQGM1ExlsGReN7mOE0WyzWuZ5zJxsZsKeMw9alE+TnakHzT9JsFUwEGS8x
Dhg6i2hCoBjPvIK7iMTlv3fEuZbclvgrTpq4BDwJplMZS/Q3NzK9kxIl+t8yjhyPM0ENRW3kp8DC
RerTXP7sDHYSriNgGPA5AKQoCRoInR9Q3jsgmaOKItOcUXJrB4NJ0jgYg2/Kh6J5Huzv7+2jsSR/
tp3yPVd5BWjtsp/6UxCOFxmox/MknQTRzvzYbhuj6jttS7mM4nWx8dHtMkESd+aP7GF3W+ISzG0u
fRCnmILBbQkeOEfH3Y4dgqHnS/C++BB8Hfb5UzAFdzYVF5fXry5PT17hmketwKEp6OikAerVFNvb
5vf19XcX706vr5vucDel8dRw352eCg25CG5iMDH2Wqi5jSSYzbcUMXKRyALz1sluGbVCO7WngdY2
zf9qKfDkrq6+ub64fPP65BW08TysNtErtp7/hEwQe4eHefur82+/ub68OHtxhhwSvUGv2+13i+Np
WOz97cnVmQAYuGyye12xBPMMEgmr1kRkYZCSlWsHy3Ox8Fyd/9eZODwY2Ihw+rAkAwe0caEdJWJb
qbNSBYXlP96dvLg+Pbt4++7Nz9cvTn6+AuIPukdPv/4K8IAfAdStvYP9pmjT/e6gCT6J7oD8vBXv
RYG8Ak64AEl/oLH2LKw9g7WnsTqoiMafz07eKGRAYc/Ql1OHWJyeViehiFAd4U4zzO5w+fLl1dnb
vMvRoHdoeNHoHe4fXvcOur2mGdVqU7OwW3A25C5cSObdHuqIJoOHFi/fXIIC7cJ/ACneXore090e
/ILORVJRh4grqj/Ca80GepVvuEbhXytTAP/rh7TQxiEEkSoSwYhOLik2QOeMTreRxwVMv44JUBvZ
L+ZK6YkbPwkgxITFBjFEq1WUBCm5XrBnoGCtzPDrr7IQ7BncRAV5QBZ52A744Gyckn6LFjzyJ3HH
9AMIAgeyfmXegS9q6FZxPDJ20RS/5syNJURMoWW/Q372UaBPQcgcFpj3Y5YSI3bVnGEJsAMdZMBN
NsUIkKeVDzMLEoyGDb2wfsK8RuKwQ4wd8RQJ7chMpjP243gNDd3hRlwQbIvWKo0BkvniHWN3qxNE
ONas8aKh2iPkEYy/Lbq/vHwJ0jBsGhbBFZUMfXwsDpsOAJOKCAlzESHq5LBifA1dhRAn1G4DCGGu
HA26843b/yMEU7C+iYbnMaOPRRefVwqe3bkW/NdffbSsBfV0fJte30oV6Kf+B4qwJsFtMMnAWHJ1
gGhyAYHENI6WwidsmJWFFF9AsoOxDdnLMgtnHMEuWYUcw8nVp2QVSwx7J397DzP/tdvZ63UOup2j
XqfXh3/7/U7vsN/p9/Y6/cGg03866Ox19zt7e/Dv4ODjsIDQmZdpTyBFTZUa/+3p+yqbyy2srIkU
HnXW0o87S8iv5h3UasP3Ej/FCpIFjv2YVTkzMSWA0C2khY54VGYP4kQrV+TuvQcx9/fEb7/pCQyw
Zf8IWnLBq0f75pFuOcCWo6NmpU/g/jgxtjHs0H2vdIammrf3dDtOPm/uvx/aRDMuMG0MkhQG+FXw
ThxtjkSv5JU0RC5Q6a/8yd8dX2EGei5ooYDZ0k+c6FGRL3gxGQCLgPzjWPT6+IvmAk+q2eMSbNNA
PcEvODrM6D1huKXpNeM2XZdlZvNYDEoP8cqZ0BsWn5Y5py9EqrFSkKFlokfCtg2ILadTnAfN+7hy
2u9LnG8YDehT0Lypr6fJaW4Whs3MfpNxeiPd2QKkmcITEzlUSI9gWlbg1OamXTEAgtQt8M9qhx9e
md902eGUl6s3/7GEVPYwSZpY1GG5aFQRM+jFFEOE3Du0ILqjiLhdQ5Z15R6kJQ6oj+U5WmqmxnM0
HbY3kLBtVGG2aSWmnPiPuSMgm2mWQo2/Sq6CgO/rP0nIHy648GXnoJ6gPGjrE+INvXTamvw7xRQa
tYoFgA//gyiaOhpwbOefscLTM/5TtcTbaztkiddcEMUQWLMX5j6XMVVw6GE4E6cq/VybUJcTMS6N
JQEWLHreD37o9Y6eds0aj13r1vdTiLexCkHayqE0AP49S1IcVeMXVroKjyG8n5hHVDekrNBTTTuE
xhR1Oa6HQSambxiFXjSdJpKWeLkjLqJUlUWo4muybMLEZV2Qsh+uuSgJ+FZ+nAZjLi+KO7lYbLmx
isXW2ugBMuxy9QBlRnacinEWY3gwYv5cvHv1SstWCbVs8oPu/uFT0DnVdZfTX+0E7jH4hur1mHs1
2cJxTFVbQCA1GxztBv9/6y+GxSdL0VqMF6DVqr0urFKPWbTbjEpPkBHA1HNBKogd/KHBUh2DICR1
AftcXpPvbYveUbdbBOw5gLAwIFwRqO8CgR8tQuw5EPMoi4sQAxdHEBYB9h0A0N4iwMF7FjxOmRQ8
XdLaUtQAJ4LlvkrcLDgusbjRPGedmPGaPNeUrVPbTE3gmee8RIBOeXfEOVUuddUyRTx6A0FtKnAZ
1S/4bEZCZXqcCGhHKGd+igXRJLKhYf4Zbwf0BwIZTf5gIRNGMfaxfg/DJ+iksiCZywknH1TXqcgi
9PQxo27VptT6qZNOmyUi0EtQUfkJx138AXoNnR7OopLEYzYRBgO5nE/BNTH3k5Ucc10e/SCYJXGW
NxyMsy6F/0A3rrTkKD49frA81jbP4L713Fn3Sss7XlY4WBUWMxegkUck4waLfGr4UlOCOJ1L0NSc
TdQPt8xokHLpgcjXBChe8VIOjogW5sNu05pXcWaGSrtjgcw6UhW5XxTG4PWpoUxNH9K8SZKWeD58
wIQdmHLgg1dV8MPY2u26CAgvRVVtIGTjrgmG8Lq/5IHXBq0ziJT6sdfEWxDj2S8p7ufmlUBT+COP
g83V+flGYywVwbq6AtatLH3VR5yKMc+fA2PEb9rHeJ7DJIWdi04auKE675pSVZ24GO7xqK6mVSiS
GfQ02G5ef6yi6XFen7RFca9MQTRv2PnEMskWaVLtAPIcwx65pQoUHq4ITaLeoa1QQ93SDtasDnlf
x0qq02093mcN5I5gaSnePCTY13v3qojn1qtRpW9i6X9IBG87R+UyHvXgWl7FAmsN8oUVNS56p7Kj
pm0M8V0i9TruxC1EsCmg1VqhKadr3lpMfdhyqcOIbTvL3jYRgwX/eyydeXXcAlA64Uzho8WnF7S6
4LIICMolQ7ZQ0VX1P7ov0JZa8XV3KMwFqH+mUshuCbZXAfua6i8VwBRqe2QJBvgFmocDSzZWUIKa
uOAFzsgDF7XA7AzuMRWgTWpUcDGGJTeL1xu2JlAxsI/tbxFPe2SXa6ynqhqa7ze1FV93y7uHmFEN
ul0XN7i9Eqjr304mk3wuahpYA/MhV9Y/1V4ohuOLKJzJuBRKlNTOmrXGwp4JyHfIsTui8hj4EdYh
89579bCV5UpO1kYGAyWdwzIcUeXZcBsILBYk6zlJ/MJfZZXQdBWkaSp/JMo6QRooV4ovg5A3AiMT
1HPZkQVJ918mRUQBWYQRok2K3UlXkRGWBGg6VsmPH24UH4NskJsaoFVL0kaZUVEIA3wWHUQE4znH
1IDzpbwR/SPlYvKOSHm7zXt1Yv/o0yvp2LXddsn8siJ6Nc7C1PUtKcwMz7JBiq52InB5ju+Jder0
w6xneqvGzRhUnKU4Vll3b3JnmkGxs71WkAcV1euEBUtrBeEb1qwTFjCtFaxMG3ZRVJ+qdcQNlvKo
sRwqpMUijGSJDjXu77NwEstJOs9HIKjdkeW8UqvSo3AcdPN17kqVMF0EB07/QU3/10GYpbLQ39Sm
GFcB/HsqneQz3BAqUuBApyjMYYgUT0daqkaZpJbCKgvHKW3HPnr2bOfR0Hk8CWZBmvDzbq+/N9g/
eHp4VAIjISow74eTC+/l2bfe65M33smPb+Dvz94P7y7g3yvv5N133tXZj97l6Vvv4vIn78XZqfdo
qAjX2GYyhRgUa1zueQ70vVF4KyEe9VVFi86jgmvGVSWfXsvBZTYDOnwHmpefvGixNVoNCQQhVZUj
AwE4b4GuPLmrCDwRBwNpW1U2ivnrc4FnJsG/BAnxuEHbDNWlHyKZoAAXbzkMK8DMyMCOInF4lTNP
iiIZ68gVOKMAj0HphIXGJHTtthrmOZiNHTIb1qgbOvzVVkRZcIY/rVFeGlV2riRikKinLBdo1X0N
88keuCaXGwImMzBsWsiYVjG08HlhNDT0yUqlKGkqb3ZUpUgKq8qEJsn4m/wUM+VEWMndmCc52RUX
M/LCelH2rfE8NjUdQO0d45D+9SoiC6nuA/rFfVTndqHz3fVChjNw3g45LKYOMdgsE+jxPgQr2kZJ
Vv5YOguXUgk1EKk23oB2G8pH4ol40lS0WCsQoP5O6qqMrlKXs50K1MZw+FnRdgzDSn4A2zuMpbOt
ZrvN9q51sBQkaLWztNRQz9VMjG54JUvkyo991INH3iM85TyFhxnWmvC8950qJvq0Gm7dP0ubgd6T
ijk6q7nip45QSZO5tjr1PzPiyEvMqjLAytqxN7X09aCtY7zcKBGrArkCIB5TIK4uCLHItOFQgGFc
TAHzlZTY4Q63K8bRLAwSPg5I4qrGbSymXymLrbIs8Hp4rMYGCgFQUUd5FbU2tfRVXa6lnYMoW61k
rCiGAI6YzpgxnNveLvfDy+nXK/TrPbhfv9CvX7Fe6EtNFpKNgfPUWlHU6R1gWL9UuFQiKec4SgOs
eLSgZfoWNOEiuoO0LPpgcpGN0n+gFeJlWaLd/DmOq4jy8xyYfSnudAv2YQOU05ea8oxroaG1/1Fm
pD2uLSE7JKm0XefhnoVgYN3vW/cHNmLbN/8TFy2znUAOls5NIno8jvAMfQ0fPYjJ88/zjINKnImV
PTBCSwHKXoSwPyia+1crG9LA1D4Xe5Uj4aWkxoBtsVermnjVZ+x4mUhX3VD9qQvZk45fqjohlSZ2
PTrab+re4Fz2a/rYmqagrQ19+/pYbHJ+3s+h+z1QMXUjbO9rmV3jmvC6h7U1jrx+fpYj11McWAea
/girPJ8i4nSOe+0LOU3doGsVRxD5L++NLz/xhL0D6RzsUOFSag52KIYUExXzIqbJRtw8hHxHnr7g
m604kar8RCFzkgxMQiDq72xOW6rVYeOrCzDZ6WL26ckNla5xWxCZY6dzf1zyY1TnZRAnKZ1oyyNd
ehFQ5nvG9in5T9gkrjuxUQyni/qB1xduPhVszgTBd745uUCbmbUbTCzUqmMVJusBMCrq6bMbNbEA
YjPxQMURDcpZQnxtFSLzu0iVOoC6MipD3AZ7teEarFh5rIAxKnruanbqq6WdiyBn88nO0+7vVFYU
QUjD+yq8xaaPJU7hFgjHyfRGNR2inK9X6OdM6lmR5eH1UMbdT/3jCuorVrqGPh7RUPboCROGHIv9
pjk+4S67S7kcr9Y6/ijlRw2tTj08S96j/Zxmh5DV5w302Hnqakc3f8MBrw2ngjDJzq2omt9l3Ssa
adGioiWeaKRXq3V+omNtLFLlg22JK1o4wRGByyoPrZlKb2E67kSR9JyByomM1dVhVf3CXMSJLfqo
R/kFCLzuNy7uvzsqR1i1my1v0QBYSSuSkVra80MpLqUPMWHq7dqBkbqxlSrNq56iqxT4tp7PcVLh
ndf8COdDMthmBcu5g+Ihbd/c4ucZ0sjNaHLsWjk0wcUcxFV2hsbwfngPcZ/B+KL3+fh7D+C6N3cA
mhoE8KRBnzEaR+4l7TH5t9ZXBICOmCoYke3iicQnt5RhSqxYeybspJimvJCnFPVZZ5JUw8iwyhNq
g6RZHWPlo2/eeVLnaq6j6TWo6gcKZpcr2unCykGEAYj8oA7c2bFtxUkkF9fGALSFIABtvTurDgkN
Nd3VQZnhaeWppOoDgRvOENklUSpS6uDNUgpNK/KfX7Fq48tNj8XTplX6+1jgNxObM9qfTH4BxEl2
84s4vXz36gUFrpWfM8G3H/jkl5+qlGJHfJvxNznohYgoxBchovgDfZoA9GByh4e79TZ9kn9GQ9KX
PYRq+unkP/mzHI1zUJKFQoF7j1tb4pnXFE1xFfEQ+jA5gxS+L0LDEBpIFjLIGhFGfyMBfV2CwgOi
8Ng4fa2DPx2jaPHETUYB+ppw0DdALi7f6k//2MwYRzF/DwWxA2ZffYiFJ4pT1u93EyoeYGur9HoI
Sh4F0LiNAlA9uIWQumN+SKnu1a4inUYHe4NHNcfk7PWh4oipc4y07miwz5GW09oUTN89naWs6yvl
PV1hmpV9efqWMTAPKk+5m2O0WvtL0bWGUJy0TvCYNdP2mp5XWtQ1H5FR4FTb+sRtG2ffbtuBI86p
8jRz8YQ0HmKuNNcq91hQHzRcpT5wm6sP/Pi/pj5M3+epD03n/6f6eF+iPvYheFwfhk48tvEosOuH
6PxoUlofZa+0AS379W+RFWCZ98UPURDK0msXNoc0VH8jFF5WnYwcKZPLFCq1dzcXq/NtCxGZFKNg
dHWI6lTks8g3o34J+cVv7FTQWid9GP0Pkn6d+LdGdUyrKqE+VOBVlVXb4S1XHW3Q9nsf1ZsiDQAX
o6ICc+gNRmzTzo3N5oZDL+YthpEonHmhrACGcc9g4/V7a8vnKHudAi2h0zVVFvIv1bSwMVgt5Kd+
OsN44dKbLwXpTfkTTqN8IBfKWQtWuvhrv83EXQrnL+pKkMqwq94aK9U1MQ3wb5JoAUmLorQ6xVaz
IIGbGXl8N3SQvuZ5rjcWSeveDGrzkS9YsQxyG+hf9I2Zuq2P8iYJqd6//S9QSwMEFAAAAAgA+Esr
JZSljTvHAQAALwMAAAkAAABkZXNjcmlwLmh9Um1r2zAQ/m7wf7ixUJKQOU0/ttvYiMs21rWhzgb7
ZBTrbIvYUtBJMVnZf9/5JbgrY7KN4Z4XPXfScg4xUmbVISrhuIqugFeMudLKKaMJcmNB9gxnLMF8
GQZhsJyHAQxrWyoCfg/COjA5PMTJFTRWOYcadifYCF/BvdB7tEdFi1GItVAVCCktEl1DR9TM+yD8
KlK7OspM3W525nfGvJFU5KzaeYcScotYnbqUoqqgxnqHnJJjuBJH6Y9vCbBb7bmtEzgDnjCCz6bB
I/ZKiVYd2bAxdk+jsPbkgHNqx19ngdpxu7r1VxbIeJth6yiyvTZNhbJ4ti+TWKRdm5bHOeQCY1Wh
tODmvSuNjcKgH2sYvFY5R+Hxo5xy6BlcXMCrcyFNP91/X6fprGfqrPIS4a08H+D7ro4V4WClWQlx
sp58TePtz81tuuVy7/Z3GS5fAuu7j0mSJi0QBjxvnzmQlE3GuwBPfZ9ekyo4HhC30pOatEJduPLm
BSMrhR0I7nTA/8BZJYgGvCvP27pID4aPAi0jv2+6JofQk/g2WT9+2WwfHqft7dDFQosaZ/Dv6C0G
7+CJ1C80+ZRawezNanHJTy8f7FFLlY//P1BLAQIUABQAAAAIAPtLKyXRzeibIAIAAAsHAAAJAAAA
AAAAAAEAIAC2gQAAAAB2bXN0aW1lLmhQSwECFAAUAAAACAB8g5YlWr/AonUWAABiVAAACQAAAAAA
AAABACAAtoFHAgAAdm1zdGltZS5jUEsBAhQAFAAAAAgA+EsrJZSljTvHAQAALwMAAAkAAAAAAAAA
AQAgALaB4xgAAGRlc2NyaXAuaFBLBQYAAAAAAwADAKUAAADRGgAAAAA=

--0__=grc4zv2EjG7mjTVXcS9a7sPkr4MQg7ixlxHSTGfsOsoYKBahMfmxP9re--