🚀 go-pugleaf

[]

Contrary to some advice posted here, I uudecode stuff on a VAX (running
BSD 4.2), and THEN transfer the (smaller) file to the ST using Kermit
Image.  Since plain Kermit is faster, this may not save any time...  - but
uudecoding on the VAX is fast and reliable.  Unfortunately for some of us,
they don't have uudecode on their mainframe.  And it seems that the
available programs for uudecoding on the ST are not so good.  Here is one
that is based on the code posted by David Moews <MOEWS@UCONNVM.BITNET> a
while ago.  I made it faster and more robust to missing or added spaces at
the end of lines, null padding, linefeed with or without carriage return,
etc.  It also digests graves (````, ASCII 60 hex) OK.  And assembled
(using A-Seka) it is very small too...  (Source code available upon
request.)  You DO have to make sure that there are no extra spaces at the
BEGINNING of a line, and you will still suffer if your big blue mainframe
translates some characters to others...

(How do you uudecode this if you still don't have uudecode?  Bootstrap :-)
(or ask me for a hex dump...  or get it on disk via real, physical mail...)

- Moshe Braner

~~~~~~~~~~~~~~~~~~ cut here ~~~~~~~~~~~~~~~~~
begin 644 UUDECODE.TOS
M8!H```,0`````````````````````````````"IO``0@/```3``O`"\-0F<_
M/`!*3D'?_`````Q*@&8``<I(>0```M8_/``)3D%<CT/Y```#$"0\````,F$`
M`A!"9TAY```#$#\\`#U.05"/2D!K``&6,@!A``#\0D)A``$0#`<`(&8`__9A
M``$$#`<`(&8`__9#^0```T1A``#R#`<`"F<``!0,!P`-9P``"!+'8`#_Z&$`
M`-A"$4)G2'D```-$/SP`/$Y!4(]*0&L``4(T`&$``+H,!P`*9P`!6`P'``UG
M``%0#`<`(&T`_^8$!P`@`@<`/V<``3Q"0Q8'4T-"1$I$9RP>!>&=4T2YS614
M&,=1R__N80``=@P'``IG`/^R#`<`#68`_^YA``!B8`#_HG@#0H7MC;7+9#`,
M$@`@;18>&@0'`"`"!P`_B@=1S/_F2$5X`V"N0@51S/_:2$5X`V"B80``=&``
M_Z)A```R8`#_QD7Y```#>$?Y```G>$GY```G>$OY``!+>$YUM<MD```&'AI.
M=6$```9@`/_P2'D```-X+SP``"0`/P$_/``_3D'?_`````Q*@&<``'9K```.
M1?D```-X1_((`$YU2D)G```\8```1$OY```G>"\-F<TO##\"/SP`0$Y!W_P`
M```,2H!K```D2?D``"=X2_D``$MX3G5A```Z8```&F$``#)A```^8```#F$`
M`"9A```R80``.C\\``=.052/8```#F$`_Z1A```:80``(D)G3D%(>0```O@_
M/``)3D%<CTYU/P$_/``^3D%8CTYU/P(_/``^3D%8CTYU2.>`@$*!/SP`!TY!
M5(\,```(9P``+@P``']G```F#```#6<``$(,```@;0#_VK2!9P#_U!.`&`!2
M@6$``$!@`/_&2H%G`/_`4X$0/``(80``+!`\`"!A```D$#P`"&$``!Q@`/^B
M80``%!`\``IA```,0C$8`$S?`0%.=3\`/SP``DY!6(].=0T*"D5N=&5R(&YA
M;64@;V8@9FEL92!T;R!D96-O9&4Z(``-"@I43U,@97)R;W(@;V-C=7)R960A
5(``````D#A(T*+@&!@8:)!8@!D0`
`
end