🚀 go-pugleaf

[]

Turns out that 'Bucket' had a serious bug.  Sorry if that caused problems.
Here is a revised version, uuencoded.

'Bucket' is a printer spooler plus.  The 'plus' stands for the capability
to write the bucket contents to disk and to read a disk file into the bucket.

The main bug was:  To save RAM I overlapped the menu code and the spooling
buffer.  That means that the buffer should not be activated until the program
exits.  (When you run the program again it is located beyond the bucket -
only when first run it stays resident!)  The new version guards against
overwriting the program:  you cannot read a file until you RErun 'bucket'.
(But the bucket is 'activated' automatically upon installation.)

Lesser bugs (e.g. in calculation of the length of a file to be read) have also
been fixed.  Please report any remaining bugs.

- Moshe Braner

~~~~~~~~~~~~~~ cut here ~~~~~~~~~~~~~~
begin 644 bucket.tos
M8!H   ZR   #G   !T@                  $[Y    #$[Y   ./"I/*FT 
M!" M  S0K0 4T*T '-"\   A "( THW"O/____XN02\ +PU"9S\\ $I.0=_\
M    #"!M !@B;0 8T^T '" M !13@&\&$R!1R/_\(&T $" M !Q3@$(84<C_
M_"AM !#9[0 <*4W__"IM  A.K0 &(&S__$AH (!.N@@*6(\O+/_V/RS_^DZZ
M ])<CS\\  !.N@A(/SP 03\\  ).05B/3G4                         
M      !"54M4     $'Z 0 P'S$ (1](X  11_H \B:("   #68"3F]*;P "
M9C(P.O^\9RPP%PQ   AG$@Q   -F'F$P9PH0[P %)HA@ F$D0?H O"!03-B(
M "\8/QA.<T'Z *P@4$S8B  O&#\8('K_F$[01_K_@B!3L?K_@&T$0H!.=7#_
M3G5"54M4     # Z_UQG&$/Z_UPD4;7Z_UIM#D'Z_TPBD$/Z_TXBD$YU0?G_
M__H!"!   &;R0?G__X@ 0,( ? < $+P !Q 0@#P @!%   (0&B**$+P #Q% 
M  (0O  .$!!R(( !$4   A 0<M_  1%   )&PDYU                    
M      !!^O[X( A.=4'Z_W0@"$YU0?K_[B (3G5.5@  2.<!$"9N  A(;   
M/SP "4ZZ">I<CS\\  (_/  "3KH)P%B//@ ,1P!Y9P  #@Q' %EG   &8   
M#B=K  0 ""=K  0 #$S?"(!.7DYU3E;_@$CG!S F;@ (("L #+"K  1G   4
M2&P &#\\  E.N@F,7(]@  $<2&P ,C\\  E.N@EZ7(\=? !0_X!(;O^ /SP 
M"DZZ"69<CSX #$   &8   9@  #L0>[_@M#'0A!![O^")$A(;O_4/SP &DZZ
M"3Q<CT)G+PH_/ !.3KH)+E"/#(      9P  %$AL $8_/  )3KH)%ER/8   
MID'N_^XJ""!%*A @!;"K !1O   42&P 7#\\  E.N@CP7(]@  " #(4     
M;P  &D)G+PH_/  ]3KH(U%"//  ,0   ;   %$AL 'H_/  )3KH(O%R/8   
M3"\K  0O!3\&/SP /TZZ"*;>_  ,L(5G   42&P E#\\  E.N@B07(]@   @
M)VL !  (("L !-"%)T  #$AL *X_/  )3KH(;ER/3-\,X$Y>3G5.5O^L2.<'
M,"9N  @J*P ,(BL ")J!#(4     ;@  %$AL ,P_/  )3KH(.%R/8   I$AL
M .0_/  )3KH()ER/'7P 4/^L2&[_K#\\  I.N@@27(\^  Q   !F   &8   
M=$'N_Z[0QT(00>[_KB1(0F<O"C\\ #Q.N@?H4(\\  Q   !L   42&P ^#\\
M  E.N@?07(]@   \+RL !"\%/P8_/ ! 3KH'NM[\  RPA6<  !1(; $2/SP 
M"4ZZ!Z1<CV   !!(; $L/SP "4ZZ!Y)<CTS?#.!.7DYU3E;_Y$CG!S!(; %,
M/SP "4ZZ!W1<CT*G/SP ($ZZ!VA<CRU __H@?    +0M4/_V+R[_^C\\ "!.
MN@=,7(\@+O_VD+P    @)D ,JT)52U0 &&8  ! ]?  !__Y@  '08   !D)N
M__XO//____\_/ !(3KH'$ER/#(   D  ;   )DAL 6H_/  )3KH&^ER//SP 
M C\\  ).N@;06(]"9TZZ ]Y4CTZZ_,8M0/_R("[_\I"\    ("9 2&P!CC\\
M  E.N@;"7(](; &R/SP "4ZZ!K1<CS\\  (_/  "3KH&BEB//@ ,1P P;0#_
MZ@Q' #EN /_B/P<_/  "/SP  TZZ!FA<CYY\ # ,1P  9@  "D)G3KH#:E2/
M, =(P.V X8 M0/_N+SS_____/SP 2$ZZ!E1<CY"\  (  "U _^0@+O_NL*[_
MY&\  !1(; ':/SP "4ZZ!C!<CV  _UY.NOP>)T  !"=K  0 ""=K  0 #" K
M  30KO_N)T  $"=N_^X %"=N__8 '$*G/SP ($ZZ!?1<CRU __H@?    +0@
MKO_R('P   14.A @?   !%8D4$)&8   +C &Y8 @2M# #)      9@  %$ZZ
M^Z@R!N6!($K0P2" 8   $C &4D8@"EB*, :P16T _\XO+O_Z/SP ($ZZ!8Y<
MCS &L$5F   02&P" C\\  E.N@5X7(](; (F/SP "4ZZ!6I<CTAL D@_/  )
M3KH%7%R/,!-G   02&P"<C\\  E.N@5(7(\@*P (L*L #&<  !!(; *&/SP 
M"4ZZ!2Y<CS K  )G   02&P"G#\\  E.N@487(](; *X/SP "4ZZ!0I<CS N
M__YG   H,!-G   42&P"O#\\  E.N@3N7(]@   02&P"TC\\  E.N@3<7(\P
M*P "9P  %$AL N8_/  )3KH$QER/8   $$AL O@_/  )3KH$M%R/("L "+"K
M  QG   B2&P#%C\\  E.N@2:7(](; ,F/SP "4ZZ!(Q<CV   !@P+O_^9P  
M$$AL T _/  )3KH$<ER/2&P#7#\\  E.N@1D7(](; -D/SP "4ZZ!%9<CS\\
M  (_/  "3KH$+%B//@ ,1P!A;0  #@Q' 'IN   &WGS_X#\'/SP  C\\  -.
MN@0&7(](; ."/SP "4ZZ!!1<CPQ' $%F   .,"[__F<   8VO  !#$< 1&8 
M  1"4PQ' %!F   (-WP  0 "#$< 4V8   9":P "#$< 168   HO"TZZ^<Q8
MCPQ' %)F   2,"[__F<   HO"TZZ^@98CPQ' %=F   *+PM.NOM"6(\,1P!1
M9P  !F  _CXP+O_^9P  #D)G3KH @E2/8   'C:\  $&K@  ! #_[D)G+R[_
M[C\\ #%.N@-H4(],WPS@3EY.=4YU3E8  #\N  A.N@+*5(\,;H,   AN!C \
M  !@'C\N  @_/  ^3KH#-%B/.4#Y]&<&,#S__V $,#P  $Y>3G5.5@  /RX 
M"#\\ $Q.N@,.6(].7DYU3E;__B\+0>SZ0B9(8!8P*P *P'P  V<(+PM.N@ J
M6(_6_  4( M![/I"(@C2O   !;2P@6W8/RX "$ZZ_ZY4CR9?3EY.=4Y6   O
M"R9N  @O"TZZ $18CTI 9P8P//__8# P*P *P'P $&<*+RL !DZZ ?A8CT)K
M  H_*P ,3KK_+%2/2D!G!C \__]@!# \   F7TY>3G5.5@  2.<!$"9N  @P
M*P *P'P  V8(,#S__V   )@N$YZK  8P*P *P'P @&=6,"L "L!\  )F!C \
M__]@=C K  K ?  $9Q _/  "0J<_*P ,3KH :%"//P<O*P &/RL #$ZZ LQ0
MCPQ __]F!C \__]@0 )K_W\ "C '2,#1JP .8"0,:P    QO'#\\  $P*P $
M1$!(P"\ /RL #$ZZ !Q0CR=   XFJP &0FL !# \  !,WPB 3EY.=4Y6__(,
M;@    AL"B \_____V   /X_+@ ./RX ""\N  H_/ !"3KH!BM[\  HM0/_\
M#(      ;0@@+O_\8   TC\\  $_+@ (0J<_/ !"3KH!8-[\  HM0/_X/SP 
M C\N  A"IS\\ $).N@%&WOP "BU __0,;@ !  YF#B N__C0K@ *+4  "F D
M#&X  @ .9@X@+O_TT*X "BU   I@#C N  YG"" \_____V!B("X "K"N__1O
M'DAN__(@+@ *D*[_]"\ /RX "#\\ $!.N@#@WOP #$)G/RX ""\N  H_/ !"
M3KH RM[\  H,@     !=P,!\  $Y0/GT9PH@//____]@"F (0FSY]" N  I.
M7DYU3E8  "\N  @_/ !)3KH CER/3EY.=4Y6__Y";O_^8"8P+O_^Y8!![/C$
MT, P$+!N  AF#C N__[E@$'L^,30P$)04F[__@QN $S__FW23EY.=4Y6__X_
M!SXN  @]? $P__Y![/C$(DC2[O_^OE!G!EA(L\AF]C H  (^'TY>3G4I2?C 
M*4KXO"E?^+A.32)L^, D;/B\+RSXN$YU*4GXP"E*^+PI7_BX3D$B;/C )&SX
MO"\L^+A.=4Y6  !@-"!N  @0$$B L'P "F8./SP #3\\  ).NO_&6(\@;@ (
M4JX "! 02( _ #\\  ).NO^N6(\P+@ ,4VX #$I 9L!.7DYU3E8  & 8(&X 
M"%*N  @0$$B /P _/  $3KK_@%B/,"X #%-N  Q*0&;<3EY.=4Y6  !@&"!N
M  A2K@ ($!!(@#\ /SP !4ZZ_U)8CS N  Q3;@ ,2D!FW$Y>3G5.5O_R2.< 
M,"9N  HD2T'L Y@M2/_V#&Z#   (9A8_+@ .+PM.NO\T7(\];@ .__Y@  %,
M#&Z"_P (9A8_+@ .+PM.NO]@7(\];@ .__Y@  $N#&Z"_@ (9A8_+@ .+PM.
MNO]P7(\];@ .__Y@  $0+4O_^D)N__X_+@ (3KK^=E2/2D!F  "F8   E! 2
M2("P?  *9@  AB *D*[_^K!\  !O0" *D*[_^DC +4#_\B\N__HO+O_R/RX 
M"#\\ $!.NOY\WOP ##E ^?1(P+"N__)G"# \__]@  "H,"SY]-%N__XO+O_V
M+SP    "/RX "#\\ $!.NOY&WOP ##E ^?0,0  "9P8P//__8'12;O_^4HH@
M"BU __I@ E**( J0B[!N  YE /]D8! @"S8N  [&O   ___0@R1 ( J0KO_Z
M2, M0/_R+R[_^B\N__(_+@ (/SP 0$ZZ_>3>_  ,.4#Y]$C L*[_\F<&,#S_
M_V 0,"SY]-%N__Y";/GT,"[__DS?# !.7DYU0^SZ0B+\     #+\   B_   
M   R_  ),OR# "+\     #+\   B_      R_   (OP     ,OP! C+\@P B
M_      R_ ( (OP     ,OP  "+\     #+\ 0(R_(, (OP     ,OP" -+\
M!7@Y? ( ^D!.=0T*"4%R92!Y;W4@<W5R92 H>2]N*3\@  T*"45M<'1Y(&)U
M8VME="!F:7)S="$-"@  #0H)16YT97(@9FEL96YA;64Z(  -"@E&:6QE(&YO
M="!F;W5N9"$-"@  #0H)1FEL92!T;V\@8FEG(&9O<B!B=6-K970A#0H #0H)
M17)R;W(@;W!E;FEN9R!F:6QE(0T*   -"@E%<G)O<B!R96%D:6YG(&9I;&4A
M#0H   T*"5MF:6QE(')E860L(&YO(&5R<F]R<RY=#0H   T*"4YO=&AI;F<@
M=&\@=W)I=&4A#0H   T*"45N=&5R(&9I;&5N86UE.B  #0H)17)R;W(@8W)E
M871I;F<@9FEL92$-"@ -"@E%<G)O<B!W<FET:6YG(&9I;&4A#0H   T*"5MF
M:6QE('=R:71T96XL(&YO(&5R<F]R<RY=#0H #0H*"4)50TM%5 EB>2!-;W-H
M92!"<F%N97(-"@  #0H)3F]T(&5N;W5G:"!M96UO<GD@9F]R(&$@8G5C:V5T
M(2  #0H*"4EN<W1A;&QI;F<@8G5C:V5T("T@8VAO;W-E('-I>F4 #0H):6X@
M=6YI=',@;V8@,39+("@Q+3DL(# @=&\@8V%N8V5L*3H@  T*"4YO="!E;F]U
M9V@@;65M;W)Y(&9O<B!S=6-H(&$@8G5C:V5T(0 -"@E3;W)R>2P@;F\@8F%C
M:V=R;W5N9"!P<FEN=&EN9R$-"@ -"@H)0G5C:V5T(&EN<W1A;&QE9"!A;F0@
M86-T:79E+@  #0H)*')U;B G8G5C:V5T)R!A9V%I;B!T;R!R96%D(&$@9FEL
M92D-"@  #0H)6V)U8VME="!A8W1I=F5=   -"@E;<W1U9F8@:6X@8G5C:V5T
M70  #0H)6W!R:6YT:6YG(&EN(&)A8VMG<F]U;F1=  T*   -"@E$96%C=&EV
M871E(&)U8VME=   #0H)06-T:79A=&4@8G5C:V5T   -"@E3=&]P('!R:6YT
M:6YG   -"@E0<FEN="!B=6-K970@:6X@8F%C:V=R;W5N9  -"@E%;7!T>2!B
M=6-K970 #0H)5W)I=&4@8G5C:V5T('1O(&$@9FEL90 -"@E296%D(&$@9FEL
M92!I;G1O(&)U8VME=   #0H)475I=  -"@H)0VAO;W-E(&)Y(&9I<G-T(&QE
H='1E<CH@   -"@  0T]..@  0558.@  4%)4.@  #0H       (&    
 
end