cloos@acsu.buffalo.edu (James H. Cloos) (05/21/91)
(Wouldn't you know, it'd be the one that you put your name on that ends up
with such a drastic bug. [SIGH]. Sorry to anyone who lost anything
because of it. I've loaded this one in to my 48 and it does attach OK.
Here is the fixed version of the "-JimC" library. Again, this specific lib
is mianly just hacking tools, though a number of system-binary words are
given names. Everything is typechecked. The error in CNVRT (due I must
assume to rounding errors) is still there. (I'll wait for HP's toolkit--
see ``Dawn's Breaking'' post--before converting it to use longs throughout.)
Again, it is in ASC, uuencoded, and btoa versions.
ASC version follows:
%%HP: T(3)A(R)F(.);
"04B2093F00A1D2A496D63402A3A416D656370284E20234C6F6F637C202A427E2
A10F68AA000000077900C000080F6330D9D20119200F600F6C12B213080F6230
D9D20ECE819FF3029E200F6430B213080F6430D9D2088130FB4C18DA1644230D
82C1B213080F6130D9D20E1A81860B3B213080F6030D9D20ECE8171040546A3B
213080F6F20D9D20ECE81D504029E200F6530B213080F6530D9D2030A50CCD20
310008F146608DC2016B213080F6E20D9D20FDE8199040442301C04029E200F6
630B1140173F0E3C4629E200F673066C46D9D2032230FA450EC3702A6F043370
3223029E200F6630B213011920E500029E200F67306FD46173F0119205E00029
E200F6630A0E46173F0B213080F6630D9D208813088130B76306B6504423047A
20D6E2050726627F6D6D6E20307247F6D6E20807247F67226163756B21300D47
0D6E20307247F6B7650EC370D6E2050726627F6D6D6E20307247F6122706B650
44230173F0AFCF088130D6E20807247F67226163756173F0AFCF079E60D6E205
0726627F6D6322301A50243370D6E2050726627F6D6D6E20307247F6B7650954
50B213080F6730D9D2032230FA450EC3702A6F04337032230173F0B213011920
F1F1080F6D20D9D20ECE819FF30AEC81B213080F6C20D9D20ECE8152140FBD81
B213080F6B20D9D20ECE815214069B36B213080F6A20D9D20ECE81D504030A50
B213080F6920D9D20ECE8152140CC950B213080F6820D9D20ECE8111920F3000
0B5A2B213080F6720D9D20ECE819FF301C5A2B213080F6620D9D20FDE8129E20
0F6830CBD30B213080F6520D9D20FDE8129E200F68300ED30B213080F6420D9D
20ECE8152140FED30B213080F6320D9D20ECE8152140E0E30B213080F6220D9D
20ECE8152140D2E30B213080F6120D9D20ECE8152140E4E30B213080F6020D9D
20ECE8152140F6E30B213080F6F10D9D20ECE8152140E8E30B213080F6E10D9D
20FDE8129E200F68301BE30B213080F6D10D9D20FDE8129E200F683057B30B21
3080F6C10D9D20ECE81521406AC30B213080F6B10D9D20FDE8129E200F68302C
E30B213080F6A10D9D20FDE8129E200F6830F7E30B213080F6910D9D20FDE812
9E200F6830F18A2B213080F6810D9D20FDE8129E200F6830F78A2B213080F671
0D9D20FDE8129E200F6830BA8A2B213080F6610D9D20FDE8129E200F6830598A
2B213080F6510D9D20FDE8129E200F68301C8A2B213080F6410D9D20FDE8129E
200F6830CC8A2B213080F6310D9D20FDE8129E200F6830AB426B213080F6210D
9D20FDE8129E200F68306C426B213080F6110D9D2043C8118450B213080F6010
D9D20ECE810CC4615A50B213080F6F00D9D20ECE815214057A50B213080F6E00
D9D20ECE81D004051B50B213080F6D00D9D20ECE81B20409EB50B213080F6C00
D9D20FDE8111920F3F30A8C50B213080F6B00D9D20ECE81A2C46CBD50B213080
F6A00D9D20E1A8124F50B213080F6900D9D20ECE819FF30D9D20AEC81EA670B2
130D5040D9D2030A50EA670B2130B213080F6800D9D20ECE819FF30D9D20AEC8
190770B2130D5040D9D2030A5090770B2130B213080F6700D9D20ECE819FF307
DC81B213080F6600D9D20E1A81DAB93B213080F6500D9D20E1A81CF1A3B21308
0F6400D9D20B5A817EE06B213080F6300D9D20B5A8133F06B213080F6200D9D2
0B5A81CAF06B213080F6100D9D20E1A8118A30B213080F6000D9D20E1A810CA3
0B2130E4A20221002EFFF2CFFF2AFFF28FFF26FFF24FFF22FFFDFEFF0BEFF36E
FF34EFFE1EFF4FDFFFCDFFAADFF58DFF06DFF04DFF51DFFAECFFFBCFF49CFF96
CFFE3CFF31CFF8EBFFDBBFF29BFFD6BFF24BFF71BFF2FAFFDCAFF8AAFF38AFFE
5AFF93AFFE0AFF3E9FFEB9FF499FFF69FFA49FF529FF009FFBD8FF9A6FF056FF
B26FFB06FF6B5FF195FF2D5FF856FF147FFB68FF398FFE4A2084400000000500
0450003D000BA100D2200E82000000000000ED2002F200000000000000000000
0000000FE20020456423030E4D835D003035D8E4E00303524B8410303524A861
030352498710303524E3810303524C3910303524F2A10303524A2B10303524D2
520303524B262030359535F2040452555541004025F445442004025546533300
40D855E445110403524D3D351040352423F2F1040352423A202040352423D212
040352423B222040352413D232040352413B24204025D8C42572040C425D8258
20403524D8249204024D83524A20403524D825C204025D83524D20506414C435
54000501425D8352470050C434D8C425B0050C425D8C434C00503524D83484F0
0503484D83524010503524E2F425D10503524D8C425B205034E4652545E20603
57514052333400605544D454E455500603524E2D41485210603524E2D494E431
0603524E2E4F445C10603524E214E444E1070554435451434B46007014454584
F4D4548007044544584F4D454900707425247434C445A00704234F4E46494743
30A0D41445259485F5E45475130B0D41445259485F5544494450300810026200
A520025200D0100101001B000491008A000A9000C800099100F810022300C130
0F810058100B82001310052100F230029200E23008230022300C130061300013
00141007B100A31007B200FA2007A200F920079200F820073300133001920098
2001820097200EE10067200E6200EE10035300B0100921004E3006410002E388
45"
Uuencoded version starts:
begin 644 jimc.lib
M2%!(4#0X+41 *Y#S !HM2FEM0R Z2F%M97,@2"X@0VQO;W,L($IR+AKPAJH
M !PEP , (#P-@.=+1"1 O &\,8A*S& \"8#G2W@[!CY/R#I O!& RLQ@/!&
M YTM@!@#O\2!K6%$,M H'"LQ@/ 6 YTMX*$8:+"S$@,(;S#0V0+.CG$!!$6F
MLQ(#"&\OT-D"SH[1!022+@!O-; 2 PAO-=#9 @-:P-P"$P" 'V0&V"P0MA(#
M"&\NT-D"WXZ1"01$,A ,!)(N &\VL!$$<?/@PV22+@!O-V#&9)TM,"(#KU3@
M/ >B]D S!R,R(.D"\&8#*S$0D0)> "#I O!V _9-%C</$2E0#@"2+@!O-J#@
M9''SL!(#"&\VT-D"B#& & -[-F!K!40R0*<";2Y0<&(F]];6Y@(#)W1O;2Z
M<$+W=B(6-E>V$@/0=-#F @,G=&][5N \!VTN4'!B)O?6UN8" R=T;R%R8&L%
M1#(0-P_Z_( 8 VTN@'!"]W8B%C97%C</^OQPZ09M+E!P8B;WUC8B Z$%0C,'
M;2Y0<&(F]];6Y@(#)W1O>U:0104K,8#P=@.=+3 B Z]4X#P'HO9 ,P<C,A W
M#RLQ$)$"'Q^ \-8"G2W@[!CY/Z#.&"LQ@/#& ITMX.P8)4'PVQ@K,8#PM@*=
M+>#L&"5!8+EC*S& \*8"G2W@[!A=0#"@!2LQ@/"6 ITMX.P8)4' G 4K,8#P
MA@*=+>#L&!$I\ , L*6R$@,(;R?0V0+.CI'_ \&ELA(#"&\FT-D"WXXAZ0+P
MA@.\/; 2 PAO)=#9 M^.(>D"\(8#X#VP$@,(;R30V0+.CE$2!.\]L!(#"&\C
MT-D"SHY1$@0./K 2 PAO(M#9 LZ.41($+3ZP$@,(;R'0V0+.CE$2!$X^L!(#
M"&\@T-D"SHY1$@1O/K 2 PAO']#9 LZ.41($CCZP$@,(;Q[0V0+?CB'I O"&
M [$^L!(#"&\=T-D"WXXAZ0+PA@-U.[ 2 PAO'-#9 LZ.41($ICRP$@,(;QO0
MV0+?CB'I O"& \(^L!(#"&\:T-D"WXXAZ0+PA@-_/K 2 PAO&=#9 M^.(>D"
M\(8#'ZBR$@,(;QC0V0+?CB'I O"& W^HLA(#"&\7T-D"WXXAZ0+PA@.KJ+(2
M PAO%M#9 M^.(>D"\(8#E:BR$@,(;Q70V0+?CB'I O"& \&HLA(#"&\4T-D"
MWXXAZ0+PA@/,J+(2 PAO$]#9 M^.(>D"\(8#NB2V$@,(;Q+0V0+?CB'I O"&
M \8DMA(#"&\1T-D"-(P12 4K,8#P!@&=+>#L&,!,%J4%*S& \/8 G2W@[!@E
M05"G!2LQ@/#F )TMX.P8#4!0L04K,8#PU@"=+>#L&"M D+X%*S& \,8 G2WP
M[1@1*?#S XI<L!(#"&\+T-D"SHZAPF2\7; 2 PAO"M#9 AZ*(?0%*S& \)8
MG2W@[!CY/]#9 NJ,X6H'*S'0!02=+3"@!:YVL!(#*S& \(8 G2W@[!CY/]#9
M NJ,D7 '*S'0!02=+3"@!0EWL!(#*S& \'8 G2W@[!CY/W#-&"LQ@/!F )TM
MX*$8K9NS$@,(;P70V0(>BL$?.BLQ@/!& )TML*48YPZV$@,(;P/0V0);BC'S
M8"LQ@/ F )TML*48K ^V$@,(;P'0V0(>BA&H RLQ@/ & )TMX*$8P#JP$@-.
M*B 2 .+_+_S_HO\O^/]B_R_T_R+_W^__L/X_YO]#_N_A__3]_]S_JOU?V/]@
M_0_4_Q7]K\[_O_Q/R?]I_._#_Q/\C[[_O?LON?]M^R^T_Q?[+Z__S?J/JO^#
M^N^E_SGZ[Z#_X_GOF_^4^?^6_TKY7Y+_ /F_C?^I]@]E_ROVOV#_MO4?6?_2
M]8]E_T'WOX;_D_COI )(! % 0 4 TP"P&@ M N H W@(@+P
M #P+@ "5$8R,.#4.-4 U.-3@XP,"6T2 $#4T**%C P)91X
M 0-30CX8,# EQ),! U-"+QHP,"6DL@$#4T(M)3 P);1B @-365,O0$ E5544
M 123U1$ D @560U,P $C55.5!% ,"74TU,!!%-",B\?0# E)*," @130C(M
M(4 P)22S(@($4T(Q+2- ,"44LT("!%*-3%(G0, DU2B% @130HU"*4 @U#@E
MI ($4T*-4BQ (-4X)=0"!49!3%-% % 0)-4X)70 !4Q#C4Q2"U# )-7(-,0
M!5-"C4-(#U PA-0X)00!!5-"+D]2'5 P)=3()+4"!4-.5E)4+F P=14$)3-#
M 951$U%3E4%8# EY-(4A"4!!E-"+DU)3A-@,"7DXO1$Q0$&4T(N04Y$'G!0
M131%%32T9 '05142$]-10AP0%1$A?345)0 !T=20D=#3%0*<$ R].1DE'0T
M PI-051225A?3D57,;#0%$0EE83U54241 4#@ $@)@!: B E T!$! L0!
M&0"H * ) (P D!D CP$@,@ < _ 8 (4!L"@ ,0%0$@ O R I "X#@#( (@/
M,0 6 P Q $$!<!L .@%P*P"O G J )\"<"D CP)P,P Q Q I (D"$"@ >0+@
8'@!V N F .X!,#4 "P&0$@#D V 4 " ^
end
Btoa version starts:
xbtoa Begin
85MiR1cR'T5V%rf!#dF]Bl-3[3_EgtATJtb/g*MtDf9\J+A-Z,)XrK]!!!"<QN.EoJFGH!SLkD8!q6
E``ZZieJFFlfSLrdd)#6B=klU?D""Q*Vn4!MN/V"Z?^Vk]*@72lt-la`lJFF<VSLrcn(hg.[&d&DX0
[SJScAllF"@]2o&d&DX0@8ARcAp9U"HkA;D`+a3!sig&d+JI&>/8np'**P)A-U[;&@N2R#]D?Bf`L&
kOU2.Y1(XisOtH`Q2R!brEV&,+A<JPFD`;(DA=Y;++p5#Ji&h7=p-:D=,;LD+!q9e(.kqTt!aYjLkl
U?t"85G)2\-KL:_!Jg/c]fJT\s@#o<8i0#]DWJf`HsaJ/AB82IL;(6o%$*!c9PdE+10gf%/sb""/2/
D(^?X6MGXI(,f7&&d-L&d,kB3-Zj9R<o?(FD(\Y(@OCj#f&d#9-Zj8MEaWYd6o#<4&,Q3S(^"V-J8d
jLFs7\[<u*_*qYY<s#&PthE+10gei"]ST`mb=#Al(iE+10gf%/sb""/2/HWH4s"Y2<Xn9+o)/MJ@NY
>jFB#GUoW1C#-[&2t+M0bBHK+!6%&ecMBoi9V<V5G6:=.kuSD`WD\_i9V:,61EVG.kuSD[K<!Oi9V:
,6"%65.kuSDV?3;?i9V:d5VSi7.kuSDQ3*U/i9V:,6,8uo.kuSDL'!nti9V9m.I[E>YbeW<!sifmd+
JKGNfj>D_54FM!sifld+JKXNZmWgn:h%X4g5P$#]D$9f`L&k+mB'tL'-?sYS%$DD^<]_!mZg'&d7Yd
YS%$DD^3W^!mZg'&d/\.YS%$DD^*Q]!mZg'&d0dMYS%$DD^!K\!mZg'&d1rnYS%$DD]mE[!mZg'&d3
,:YS%$DD]d?Z!mZg'&d44YYS%$DD][9Y!oK"]klU@/"0k%o&d&DX*RNI@hi8lE!q:pHFZZf?!sifbd
+JKGN_pDlVED'q!sifad+JKXNZmWgn:h%^5-PY%#]CX.f`L&k+mB'tL')ohYS%$DD]-pT!oK"]klU@
/"!=JI&d&DX(spq;hi8lE!q:pHJ#KXc!sif]d+JKXNZmWgn:h%GW3R$<#]CL*f`L&k+mB'tL'*^>Z4
[6FD\^XP!oK"]klU@/"2UqA&d&DX'[YM7hi8lE!q:pHbc%f[!sifYd+JKXNZmWgn:h%V,dn<f#]C@&
f`L&k+mB'tL',F@[LrZJD\:@L!]5iJ8-LLuJFEaDSLrdd(r/f\V$/A(JFN74SLrdd(aVIEVZeS*JFM
\$SLrdd(_&`,YluX4JFM+iSLrdd(b7k5^'-#AJFLPYSLs?u(_J4do)jkTYS%$DD[XqF!mZh"_IU;bY
S%$DD[OkE!Zm4BoE?a"JFJj)SLrdd)#6DCf`LGtiG&TJ1!g(,SLlOg"g3$Q&d'X=JFJ9nSLrdd)#6D
Cf`LGtO`1OU1!g(,SLlOg"UTCW&d'X=JFI^^SLrdd)#6C8bnqrcJFI.NSLrcn(p0:6&d&DX"jkp(*f
@cU3\)q8n4!DK/[2&gk74p5!sifId+JJ)MD=^1.kuSD-30SgYb`2<&%3)Q#]Bajf`E4P&Z>d^0nA`t
!1b_"TbtR+YS%%5.Nf?(ir:\0s.]NHq#=h'0D,8gs53;FYl6lLs$QeSiW&QKs4mXSrEn4W@/UVcrtY
L9cMtZW:W`WNr9qQ''E!p*s1S:_\c6OD0=:`qq_,/Qc2*L$s+C1:V>iRPn"B^@q<sgQPkk?Fs%<)oP
5bOX^Q&8mp((a7/,$_cs0hSB=oZqCO(J>WpV2I_PPFUB!_<Fo!!#gq5Qq/:!3d@A/HXiYz!!(jW+>3
]pzz!!!#g/cYrP7PZ[Ue2YtY"&k1S%PTR_Zq(3";aQ?W0JFf;GQ@nF69Z5?0I=Z$!<Z7e0,cMu-)@g
I"&hN<,qq#!Zsj(=;d!$P5X6Vq<>5E9;GU7[!^Il.A2Q.C"H?DV<"VAL-.LCB!<c=f1+s_70I8!>!W
iL'68C,95VOK0ZQ]GR;aN2j,=!q/'XL+-"B(4Q;C=`F,h4;s!X)FgNC#'Z+Oi@sU]LZt6B+ko5TnT:
-.Du"7R9^H70$-q,h4k#F8uJ<6]Fc;$W+Vae]9Sc!!Q:fNC-5I:b[RP3$e\."]I`?:Jr300I>5i,dd
[W6V^Z[<%_Q4FVP$*1ID-H<CBPM:/qI*0I>f.'SIb5##di@9hA(n?n`nfiq,XX!<uIh/jW6#*cOqE1
dr-9Zt'.A5u^fS:JF7`E'RAjL%NkoPQ1qY;F3l@9N2@<5VhumA<_0m!t%ag<)Q:i?VX$k0sK"=6m\+
Ooi4DE6j3[C!?`]h=oofm!"Ar?&-/s85T'R#!2'VuMu\qW!07.'1&r9rn/).Z!O*sP0`b)`!&"Es.0
(t&J2.*K"2HVk('=Ok!'pX))ZVo"E%:pl!cTUhT)rs\!072#1B9-3&1IU9!Y?a[GllnF!-SG%-33H7
0Jrh<!K[ooj9&d(!$FH*
xbtoa End N 1959 7a7 E b S 2e341 R 469febc1
Enjoy,
-JimC
--
James H. Cloos, Jr. Phone: +1 716 673-1250
cloos@ACSU.Buffalo.EDU Snail: PersonalZipCode: 14048-0772, USA
cloos@ub.UUCP Quote: <>