🚀 go-pugleaf

 
Shar.prg part b (repost and bug fix)
 
table
 !"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ[\]^_
begin part b
M"B!N__PQ1P $0D=@  "&0E<O#3\\ $Y.N0  -R1<CTJ 9@1"0& $,#P _SX b
M8&0^O !/3KD  #<D2H!F!$) 8 0P/ #_/@!@2BZ-/SP /4ZY   W)%2//@!Ob
M"B!N__PQ1P $0D=@+"Z-/SP 04ZY   W)%2//@!@&F 8D'P #[!\  =B#N5 b
M,$#1_   05P@4$[0, =*GTS?.(!.7DYU3E;__"!N  @,$ !A;1(@;@ (#!  b
M>FX((&X " 00 " @;@ ($!!(@%*N  A* &;43EY.=4Y6  !(YP$,*FX #"ANb
M  A@ E*,2A1F^AC=9OP@+@ (2I],WS  3EY.=4Y6  !(YP<,*FX ""AN  Q@b
M%!X='!R^!F\$< %@&KX&; 1P_V 22A5G!$H49N00%4B $A1(@9!!2I],WS# b
M3EY.=4Y6  !(YP,,*FX ""AN  P^+@ 08 Q*%68$0D!@&E*-4HQ31V\($!5(b
M@+ 49^@0%4B $A1(@9!!2I],WS" 3EY.=4Y6  !(YP$,*FX #"AN  @8W6;\b
M("X "$J?3-\P $Y>3G5.5@  2.<!#"IN  @H36 "4HQ*%&;Z( Q(P)"-2I],b
MWS  3EY.=4Y6__Q.7DYU3E8  $CG!PPJ;@ (*&X #& D$!U(@#Z 83 > ! <b
M2( ^@&$F' "^!F\$< %@$KX&; 1P_V *2A5FV$H49M1"0$J?3-\PP$Y>3G5.b
M5@  2.<# #XN  B^? !A;0J^? !Z;@3>?/_@, =*GTS? (!.7DYU(%]"@# ?b
M6H (@   (GD  $(,0^D! $/Q" "_R6(&3OD   %$G\!#[P $( E.T$Y6  !(b
MYQ\ +BX ""PN  Q*AF86(_R       !" " \@    (#\  !@2+R'8PHCQP  b
M0@!"@& ZOH9F!GH!0H=@*'@!OH9E#B &XX"\@&(&XX;CA&#N0H5*A&<.OH9Eb
M!(J$GH;BC.*.8.XCQP  0@ @!4J?3-\ \$Y>3G5.5O_Z(&X "#UH__+__BZNb
M ! P;@ 6+P@P;@ 4+PA.N0  -S10CR\ /R[__C\\ #].N0  -R10CTY>3G5.b
M5O_Z(&X "#UH__+__BZN ! P;@ 6+P@P;@ 4+PA.N0  -S10CR\ /R[__C\\b
M $!.N0  -R10CTY>3G4CWP  0I).02\Y  !"DDYU3E;__$)"2JX "&P&1*X b
M"%)"2JX #&P&1*X #%)","X "L#N  XM0/_\,"X ",#N  XR+@ ,PNX "M!!b
MT&[__#U __P@+O_\" (  &<"1(!.7DYU4W1A8VL@3W9E<F9L;W<-"@!R=6YTb
M:6UE $-/3CH 3%-4.@ :0V%N;F]T(&EN:71I86QI>F4@<W1A8VL-"@   $  b
M   Z=  !           Z>V-A=                                   b
M                                                            b
M                                           *4TA!4CH@0W)E871Eb
M+V5X=')A8W0@9FEL92!A<F-H:79E(&9O<B!E>'1R86-T:6]N(&)Y("]B:6XOb
M<V@@*&YO<FUA;&QY*2X*"G5S86=E.B!S:&%R(%LM=2!A<F-H:79E72!;6RUAb
M72!;+7 @<')E9FEX72!;+60@9&5L:6U=(%LM8F-V72!F:6QE<R ^(&%R8VAIb
M=F5="@H)=VAE<F4Z"2UA("!A;&P@=&AE(&]P=&EO;G,@*'8L8RQB+"UP6%@Ib
M"@  "0DM8B @97AT<F%C="!A8G-O;'5T92!P871H<R!I;G1O(&-U<G)E;G0@b
M9&ER96-T;W)Y"@D)+6,@(&-H96-K(&9I;&5S:7IE<R!O;B!E>'1R86-T:6]Nb
M"@D)+60@('5S92!T:&ES($5/1B!D96QI;6ET97(@:6YS=&5A9"!O9B!32$%2b
M7T5/1@H "0DM<" @=7-E('1H:7,@87,@<')E9FEX('1O(&5A8V@@;&EN92!Ib
M;B!A<F-H:79E9"!F:6QE<PH)"2UU("!U;G-H87(@/&%R8VAI=F4^"@D)+78@b
M('9E<F)O<V4@;VX@97AT<F%C=&EO;BP@:6YC;"X@96-H;VEN9R!F:6QE<VEZb
M97,*      (F   "#@   @0   (8   "?@   GX   )^   "?@   GX   )^b
M   "?@   GX   )^   "?@   GX   )"   "?@   GX   )^   "?@   F@ b
M  'Z   \]45.3T5.5@!32$%27T5/1@!U.F%P.F0Z8F-V %A8 '-E9" G<R]>b
M)7,O+R< <VAA<CH@3F\@:6YP=70@9FEL97,* "5S)7,E<P C"45N9"!O9B!Sb
M:&5L;"!A<F-H:79E &5X:70@, !O<F=A;FEZ871I;VX ;F%M90 C"51H:7,@b
M:7,@82!S:&5L;"!A<F-H:79E+@ C"5)E;6]V92!E=F5R>71H:6YG(&%B;W9Eb
M(&%N9"!I;F-L=61I;F<@=&AE(&-U="!L:6YE+@ C"51H96X@<G5N('1H92!Rb
M97-T(&]F('1H92!F:6QE('1H<F]U9V@@<V@N ",M+2TM8W5T(&AE<F4M+2TMb
M+6-U="!H97)E+2TM+2UC=70@:&5R92TM+2TM8W5T(&AE<F4M+2TM(P C(2]Bb
M:6XO<V@ (R!S:&%R.@E3:&5L;"!!<F-H:79E<@ C"5)U;B!T:&4@9F]L;&]Wb
M:6YG('1E>'0@=VET:" O8FEN+W-H('1O(&-R96%T93H (PDE<PH (R!4:&ESb
M(&%R8VAI=F4@8W)E871E9#H@)7, (R!">3H))7,@*"5S*0H <@ E<R \/"!<b
M)7,@/B E<PH <VAA<CH@0V%N)W0@;W!E;B G)7,G"@ N &5C:&\@<VAA<CH@b
M97AT<F%C=&EN9R E<PH :68@=&5S=" E;&0@+6YE(")@=V,@+6,@)7-@(@H b
M=&AE;@IE8VAO('-H87(Z(&5R<F]R('1R86YS;6ET=&EN9R E<R  )RAS:&]Ub
M;&0@:&%V92!B965N("5L9"!C:&%R86-T97)S*2<*9FD* $YO(')E860@86-Cb
M97-S(&9O<B!F:6QE.B E<PH  #H@:6QL96=A;"!O<'1I;VX  #H@;W!T:6]Nb
M(')E<75I<F5S(&%N(&%R9W5M96YT  !R '-H87(Z($-A;B=T(&]P96X@87)Cb
M:&EV92 G)7,G"@!S960@ &-A="  +P ^ #P\ $-R96%T:6YG("5S("XN+@!Wb
M "XN+F1O;F4* "XN+F5R<F]R(&EN(&-R96%T:6YG(&9I;&4* &UK9&ER( !.b
M965D('1O(&UA:V4@9&ER96-T;W)Y.B E<PH 8VAD:7(@ &-D( !C8RYI;FD b
M<@     ? #L 6@!X )< M0#4 /,!$0$P 4X    ? #P 6P!Y )@ M@#5 /0!b
M$@$Q 4\  #YP   ^=   /G@  #Y\   ^@   /H0  #Z(   ^C   /I   #Z4b
M   ^F   /IP  #Z@   ^I   /J@  #ZL   ^L   /K0  #ZX   ^O  "  0 b
M!0 &     @ #  0 !0    $  @ #  4 !@    $  P $  4 !DIA;@!&96( b
M36%R $%P<@!-87D 2G5N $IU; !!=6< 4V5P $]C= !.;W8 1&5C %-U;@!-b
M;VX 5'5E %=E9 !4:'4 1G)I %-A= !%4U0 =&EM97IO;F4 )7,@)7,@)3 Rb
M9" E9#HE,#)D.B4P,F0@)7,@)60*    /NQF;&]A=&EN9R!P;VEN=   0R!2b
M5$P@+2!P<F]G<F%M(&YO="!L:6YK960@9F]R(  -"E!R;V=R86T@=&5R;6ENb
M871I;F<-"B0  #H@=6YM871C:&5D('%U;W1E $-A;FYO="!O<&5N( !#86YNb
M;W0@87!P96YD( !#86YN;W0@8W)E871E(  Z($YO(&UA=&-H %-T86-K($]Vb
M97)F;&]W   -"B0      0               0 *               "  H b
M              ,                 !                  %        b
M          8                 !P                 (            b
M      D                 "@                 +                b
M  P                 #0                 .                  \ b
M                 "1&   BX@  )&(  "2(   DK   )-   "30   DT   b
M)-   "30   DT   )-   ".,   DT   )-   "30   D-   )-   ",X   Db
MT   )-   "/@   DT   )-   "30   DT   )-   "30   DT   )-   "30b
M   DT   )$8  "+F   D8@  )(@  "2L   DT   )-   "30   DT   )-  b
M "30   DT   (Y   "30   DT   )-   "0T   DT   (SP  "30   DT   b
M(^0  $%*  #__P  04H     #0   #0(   T4@  ,\X  #/N   T)@  -%( b
M #12   SK      ! 0$! 0$! 0$A(0$A(0$! 0$! 0$! 0$! 0$! 0$! 2("b
M @(" @(" @(" @(" @($! 0$! 0$! 0$ @(" @(" @@(" @(" @(" @(" @(b
M" @(" @(" @(" @( @(" @("$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! "b
M @(" 0         (#@9N%! 2!AQ6#A8(" @("'@*"@H$"@0&!@8&!@@&!@P&b
M!AX*#A(,#B &!@@&!@8&!A &!@80#A *" 8&$A(&!@8(&@8*!@H&!@8&!@8&b
M!@8&!@8&$ 86#@88!B *% 8&!A *!@8(#@@2"!0,!@@4!@8D"@X&*@P&#A(&b
M# 8&"@8(!@8@"@@*"@H*" P0!B8,$@X.!A(.# H,# H0# 8," 8&" H:!@P*b
M# 0*!@X$!@P(!@8("@P.!@0&!AP*$ X&(@H4!@84#AY*#C0(#A@.&! .$ 8&b
M" X6&"86% 8&!@P&!A .%@8&$ Y(( Y()A#X!@80$@86!A8&%@8>!A *#"@&b
M#G) 0@8*!@8,!@P&#@8*!@X&$@8&!@8(!@8&" 86!@8&#!P2"@HJ!@X&#@8.b
M!A@.# 8$7DHR)!84'L L" 8,!@P&("P6#A0(#A0,&@8@&@P6"CI0)@H*" 8>b
M7"8&!" :1 $<3@8&!@8@+ Y$* P0%!88$A02%A(.%A(0, H2&#P&!@P&# 8&b
M"B 4" X4#!8(!CX6#A *%@H>#@8$: H<"# 2'AX.!@0<$ @2!@1(3B86#AH*b
M'@H>#@@&!!P4:@X&!!IJ#F !7@@&!A@J" 8&%BH(!@86*@@&!A9@)B0<( Y$b
M'B(:4"1:1B!<0"A"-"Y*(AH:ABXX-@Q*< $>C*P(" X&!!(@)@8$'!P6(@@6b
M!@0B0#(8)@8$%! &!(@B!@0>$F88!@1.%@& "%(2-"I2(AP<'AP!R!(H%CPPb
M$BH2# B<# $!1@0$! 0$! 0$! 0$! 0$! 0$! 0$! 0! 0&,! 0$! 0$! 0$b
M! 0$! 0$! 0$!*8!C 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$b
@! 0$! 0$! 0$! 0$! 0$! 0$! 0$! @*! 0$! 0$!  $b
 b
end