Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!UMass.BITNET!Matt
From: Matt@UMass.BITNET (Matt Kimmel)
Newsgroups: comp.sys.atari.st
Subject: "FSIZEOF" desk accessory
Message-ID: <870112130310.00000575.ABOL.MA@UMass>
Date: Mon, 12-Jan-87 13:03:10 EST
Article-I.D.: UMass.870112130310.00000575.ABOL.MA
Posted: Mon Jan 12 13:03:10 1987
Date-Received: Mon, 12-Jan-87 23:36:18 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 295

Here is a little desk accessory that gives the size of a file in
bytes, and the number of XModem blocks it takes to upload it.

It's written in Personal Pascal.  Source code is available on request.
You may modify the source code and distribute it, but I would appreciate
a copy of the modified source code.

Its one drawback is that it's pretty slow.  Any attempts to speed it
up are welcomed!

Thanks to Moshe Braner for the wonderful UUENCODE!

Enjoy!

-------------cut here----------FSIZE.UUE-----------cut here-------------
begin 644 fsize.acc
M8!H  "U<   !R   +2H                  $/Y  !:2BY)D_P  "@ (\D
M "\D(\D  "\H(\@  "\L0GD  "\PG0  ,9I(;@ ,/SS__TZY   ;)D*N__!#^0  ,DAP
M ! I   ]0/_T2'D  #&:3KD  !X$("[_\%* +4#_\# Y   QGN) 9.!(>0
M,9I.N0  '@(Z/SP
M+DZY   IHB)?1>[^5' _)-E1R/_\0>[^5$_O_P B3W _(MA1R/_\/SP  4ZY
M   4&#U _U9#^@'X1>[_6!3\  9P!1394[_JD_O_ZXB3S+8
M[^5' _
M)-E1R/_\3KD  "F02&[^5#\\__].N0  *:)(>@! /SP %DZY   IHB)?1>[^
M5' _)-E1R/_\0>[^5$_O_P B3W _(MA1R/_\/SP  4ZY   4&#U _U9.7BQ?
M3G4@6$U/1$5-?&)L;V-K) 9   7#\\ !!"9T)G0F=P "\ 0F="9T)G0F="9T)G0F="9T)G
M0F=(;O_82&[_^DAN__I(;O_Z2&[_^DAN__I(;O_Z3KD  !1D/4#_^# N_]AR
M*+!!9@  !DZZ_&1@GDY>+%].=4'Z (0CR   +S)!^0  +S8PO/\#0J@  C%\
M  $ !D'Y   OYC"\_P0Q?  !  9!^0  ,9I"4#%\  $ !DZY   7HC/    P
MF# Y   PF$I :P  -$/Z $Q%^0  ,)H4_  )< @4V5'(__P_.0  ,)A(>0
M,)I.N0  ":8SP   ,)9.NO[^2'D  #&:3KD  !W*2'D  "_F3KD  !W*0F=.
M02 @1G-I>F5O9@!.=2\.+$A.5O_Z3KD  "O.0?H 2BU(__QP 3U __HB;@ ,
M,"[_^G( $C$  $I!5L(P+O_Z+%\@7UB/3M O#BQ(3E;]9DZY   KSD'Z C8M2/_\
M(FX $$7N_?8TV7 3)-E1R/_\(FX $'  $"D  %) <@!![OWV$8$  ")N  QP
M ! I   ]0/WP0F[]]# N_?3B0&4  %(P+OWP2D!7PB)N  PP+OWP<@ 2,0
M<%RR0%?#A$,B;@ ,,"[]\'( $C$  ' ZLD!7PX1#XD)D   ,< $]0/WT8
M## N_?!30#U _?!@ID)N_?(P+OWP(FX #'( $BD  +!!;   ,C N_?)20#U
M_?(P+OWP4D ]0/WP,"[]\B)N  PR+OWP=  4,1  0>[^]A&"  !@O# N_?(=
M0/[V,"[]\E) <@!![O[V$8$  $AN_?9.N0  &QXM0/UL2&[^]DZY   ;'BU
M_7 _/ !:2&[]T$AN_71(;OUL2&[]:$ZY   9:# N_79*0&8   I";O_V8
M]G !/4#_]DAN_?9.NOX^2&[^]DZZ_C8B;@ 01>[]]C+:[]]C+:#\\ !](;O_<
M2&[_@$AN_WA(;O]T3KD  !EH3EXL7R!?4(].T"\.+$A.5O]T3KD  "O.0?H
M,BU(__P];@ ,_]QP 3U _]XM;@ ._W@_/  @2&[_W$AN_X!(;O]X2&[_=$ZY
M   9:$Y>+%\@7UR/3M O#BQ(3E;_=$ZY   KSD'Z # M2/_\/6X #/_<0F[_
MWBUN  [_>#\\ "!(;O_<2&[_@$AN_WA(;O]T3KD  !EH3EXL7R!?7(].T"\.
M+$A.5O_\3KD  "O.0?H *BU(__PO+@$./RX!#$'N  Q/[_\ (D]P/R+84/6X &/_@/6X %O_B/6X
M%/_D/6X $O_F/6X $/_H/6X #O_J/6X #/_L/SP ,TAN_]Q(;O^ 2&[_>$AN
M_W1.N0  &6A.7BQ?(%]/[P 23M O#BQ(3E;_;DZY   KSD'Z $ M2/_\,"X
M#$I :@  !D)N  P];@ ,_]8M;@ ._W(_/  R2&[_UDAN_WI(;O]R2&[_;DZY
M   9:#UN_WK_]C N__9.7BQ?(%]#\\ #9(;O_<2&[_@$AN_WA(;O]T3KD  !EH3EXL
M7R!?6(].T"\.+$A.5O_Z3KD  "O.0?H 4BU(__Q";O_Z(FX $# N__IR !(Q
M  !*06<  "HB;@ ,,"[_^E) )&X $#(N__IT !0R$  3@@  ,"[_^E) /4#_
M^F#$(FX ## N__H30   3EXL7R!?4(].T"\.+$A.5O_X3KD  "O.0?H >BU(
M__PB;@$,(!%*@&8  !AP ! N  Q20#\ (FX!#"\)3KD  !5,< $]0/_Z<  0
M+@ ,/4#_^# N__JP;O_X;@  )B)N 0PD43 N__I30#(N__IT $'N  P4,!
M%8(  %)N__I@T")N 0PD47  $"X #'( %8$  $Y>+%\@7T_O 01.T"\.+$A.
M5O_R3KD  "O.0?H!=BU(__PB;@$2,"X!$,'\ !C2P"U)__8B;O_V,"D !G(<
ML$%7PB)N__8P*0 &X $$_O_P B3W _(MA1R/_\3KK^[F   08B;O_V,"D !G(5
ML$%7PB)N__8P*0 &+%\@7T_O 0I.T"\.+$A.5O_X
M3KD  "O.0?H 5"U(__PB;@ 2,"X $,'\ !C2P"U)__@B;O_X,"D !G(=L$%7
MPB)N__@P*0 &$ZY   9
M:$Y>+%\@7UR/3M O#BQ(3E;_>$ZY   KSBUN !C_?#UN !;_X#UN !3_XCUN
M !+_Y#UN !#_YCUN  [_Z#UN  S_ZC\\ "I(;O_@2&[_A$AN_WQ(;O]X3KD
M !EH3EXL7R!?3^\ $$[0+PXL2$Y6__I.N0  *\XB;@ .,"X #,'\ !C2P#UI
M  K_^C N__I.7BQ?(%]+%\@7T_O  I.T"\.+$A.
M5O_Z3KD  "O.(FX #C N  S!_  8TL ]:0 (__HP+O_Z3EXL7R!?7(].T"\.
M+$A.5@  3KD  "O.(FX $# N  [!_  8TL S;@ ,  A.7BQ?(%]0CT[0+PXL
M2$Y6_W).N0  *\XM;@ 4_W8];@ 2_]H];@ 0_]P];@ ._]X];@ ,_^ _/  K
M2&[_VDAN_WY(;O]V2&[_
M,"X ','\ !C2P"U)_W0B;@ 0)&[_=#*J !0B;@ ,)&[_=#*J !8B;O]T,"D
M"G(0P$%*0&<  #HB;@ 8)&X &# 25T R@")N !0D;@ 4,!)70#* (FX $"1N
M ! P$EQ ,H B;@ ,)&X ## 27$ R@$Y>+%\@7T_O !9.T$YU+PXL2$Y6_WA.
MN0  *\X];@ 4_^ M;@ 6_WP_/  L2&[_X$AN_X1(;O]\2&[_>$ZY   9:")N
M ! RKO^&(FX ##*N_XA.7BQ?(%]/[P .3M!.=2\.+$A.5OWT3KD  "O./6X
M$/\ +6X #/WX/SP 3DAN_P!(;OX 2&[]^$AN_?1.N0  &6A.7BQ?(%]+%].=4YU+PXL
M2$Y6__I.N0  *\YP ! N  Y20'( 0>X #A&!  !(;@ .3KD  !L>+P _+@ ,
M3KD  !DF/4#_^C N__I.7BQ?(%]/[P$"3M!.=2\.+$A.5OWJ3KD  "O.0?H
MR"U(__P];@!&_O8];@! _O@];@!$_OH];@!"_OPP+@ Z<@' 03U _OX];@ X
M_P ];@ V_P(];@ T_P0];@ R_P8P+@ P<@' 03U _P@];@ N_PH];@ L_PP]
M;@ J_PX];@ H_Q ];@ ^_Q(];@ \_Q0M;@ D_>X_/  92&[^]DAN_?9(;OWN
M2&[]ZDZY   9:#UN_?;_]B)N !0RKOWX(FX $#*N_?HB;@ <,J[]_")N  PR
MKOW^(FX (#*N_@ B;@ 8,J[^ C N__9.7BQ?(%]/[P \3M!.^0  )ZY.^0
M*'1.=2\.+$A.5O]R3KD  "O./SP 34AN_]I(;O]^2&[_=DAN_W).N0  &6@B
M;@ 8,J[_@")N !0RKO^"(FX $#*N_X0B;@ ,,J[_ACUN_W[_^C N__I.7BQ?
M(%]/[P 03M O#BQ(3E;_,$ZY   KSC N  QR ;!!9P  #' !/4#_,F   "!(
M;O\P2&[_,$AN_S!(;O\P3KK_;#U _^QP9#U _S(];@ ,_\!P 3U __@,;@ )
M__AN   8,"[_^.- <@%![O_ ,8$  %)N__A@X' "/4#_U#\N_S)"9S\\  M"
M9TAN_^!(;O_ 2&[_9$AN_TQ(;O\T0F=.N0  &?0];O_L__HP+O_Z3EXL7R!?
M5(].T"\.+$A.5O^N3KD  !JJ/4#_KC\N !9.N0  &J ];@ ,_\@_/ !F0F<_
M/  !0F=(;O_H2&[_R")N !(O"4AN_[ B;@ .+PE"9TZY   9]#\N_ZY.N0
M&J!.7BQ?(%]/[P ,3M O#BQ(3E;_.$ZY   :JCU _SH_+@ ,3KD  !J@/RX
M#$AN_VQ(;O\\/SP  4ZZ_VXP+O]L2D!G   ,<&4]0/\X8   "' "/4#_.#\N
M_SA"9T)G0F=(;O_H2&[_R$AN_VQ(;O]42&[_/$)G3KD  !GT,"X #+!N_SIG
M   0/R[_.DZY   :H&    I"9TZY   :H$Y>+%\@7U2/3M O#BQ(3E;_/$ZY
M   KSC\\  -"9T)G0F=(;O_H2&[_R$AN_VQ(;O]42&[_/$)G3KD  !GT3EXL
M7TYU+PXL2$Y6_VY.N0  *\Y";O]N/SP "DAN_]I(;O]^2&[_=DAN_W).N0
M&6@];O]^_W P+O]P0  +R!F"%B/
M3M!8CR\/(E\O""1\   M8&$N(GP  "V4829(>0  +5P_/   3KD  !DF2GD
M "\P9P0@7SG 3KD  !@N0F=.01 99P04PG5.=2\.+$A.5OWN+6X #OWR
M/6X #/[Z/SP -$AN_OI(;OWZ2&[]\DAN_>Y.N0  &6@];OWZ__HP+O_Z3EXL
M7R!?7(].T"!?(]\  %J4(]\  %J0(]\  %J,(]\  %J((_P  %I*  !:@"/\
M  !:8@  6H0P'R\(,\   %I*D'P "L#\  -(P"!\   MQ")\  !:3-' $!A(
M@#+ $!A(@#+ $!A(@#+ ,#D  %I*#$  <&8&,CP  6 $,CP  #/!  !:4B(\
M  !:@# \ ,A.0DYU(%\\'R/?  !:J"/?  !:H"/?  !:I"/?  !:G")?(\D
M %J8.A\S10 ",U\ !C-?  HRGR\(,WD  %JL  Q*!F0  6K0P@%'-
M_^I.=2!?,]\  %JL3M P.0  6JQ.=2!?,]\  %JN3M P.0  6JY.=2!?,]\
M %JT,]\  %JR3M @7R)?)%\RN0  6K0TN0  6K).T"!?,]\  %JX,]\  %JV
M3M @7R)?)%\RN0  6K@TN0  6K9.T"!?,]\  %JP3M P.0  6K!.=2!?(!]2
M@$[00CD  %JZ8 90^0  6KI">0  +R(@7S ?9P@D7VH$<  0&B)?+P@O"4CY
M!@$  %J\3KD  !W*3/D& 0  6KQ*0&90$"D  4HY  !:NF8B#    F8*$WP
M 0 !8   W@P   1F  #6$WP  P !8   S P   %F"A-\  (  6   +P,   #
M9@  M!-\  0  6   *HT/ "C1^D "D(;4Z#"D  0 !9Q ,*0 "
M  %G" PI  D  68*2CD  %JZ9@AG2$*I  ).=1-\  (  2\)0F=(:0 */SP
M04Y!/KP /$Y!4(\B7TJ :AHS?/__  @,0/_S9@#_9$AY   =F4[Y   8RC-
M  A.=1-\  $  4*I  (O"4)G2&D "C\\ #U.05"/(E]*@&H6/P!A /].,!\@
M7TAY   =ND[Y   8RC-   @O"4ZY   >!$YU0T]..DQ35#I!6$DZ05A/.DY5
M3#I04DXZ!0@'!@4#0F%D(&9I;&5N86UE(&EN(%)E0  +R(H7R!?+PQ#Z "N#"@  0 !9P@,*  )
M  %F>$HH  5F  $*=  T*  &)$E(YR#@+PDO C\H  @_/  _3D'>_  ,3-\'
M!$J :RQG*M/ E(!FVDH09QX,$@ *9@0B2F#$#!( &F<0#!( #5?H  -F!!2\
M "!.=4H09Q!**  #9@I0Z  #%+P ($YU(7P _P#_  ).=30H  930F% 2B@
M!68X2A!G+@P   IF"$HH  5F(F?F<@ ,   -5\$Q00 "9P)P( P  !IF"E?!
M,4$  C%!  02P%'*_\).=1 H  %G5DHH  5F1 P   -F)DCG8. _/  !3D%4
MCPP   UF#C\\  H_/  "3D%8CW -3-\'!DYU#   !F8>2.=@X#\\  -.052/
M3-\'!DYU2'D  !]V,#P  6 *2'D  !]2,#P  B!,3OD  !C*4F5S970@+P %L40"1(  /T0 !D)O  A* V<  ,Q*!V<  ,8(P  /WD.>? " :P
MN#\'/@;.PD)'2$=V #@%R,+>A&0"4D,X!LC!WH1D E)#/@-(1W8 S,#>AF0"
M4D,X!+P %/P2Q1 )$@  _1  (0F\ "C@?2@=G  +<2@-GK@C   \(
MQ  /ED?6? " 2$0X!4A , %Z '(I8 ;4 M& 90RX@&4(9@Z\ F4"9@B4!I&$
MVCP @-J%WX=1R?_@" < $6<&XH_BE5)#XH_BE0@%  =G$MJ\   ! &0*4D=D
M!N*/XI530TI#:P#_1+9\ /]B  )L"(< #X]O  8O10 ('T, "UR/+PA,^0'_
M  !:R$YU"&\ !P $2/D!_P  6L@@7W  ,@ 0+P %9P !ZA(O  MF#B]7  8_
M;P $  I@  '6LD!E.F8>)"\ !@C" !\F%PC# !^T@V4F9@H8+P $N"\ "F0:
M*A<\+P $+J\ !C]O  H !"]%  8_1@ *P4%T )!!9P  I Q  !!E  "$9VH,
M0  @94AG- Q  "AG)F4.+U< !C]O  0 "F   6AV !PO  8(Q@ '>""01. N
MXU+01&!T=@ < W0!8&QV !PO  8(Q@ '2B\ !VOL8%HL+P &",8 'W@0D$3@
MKM!$)@9"0TA#X$[C4F ^0H,V+P &",, #QPO  A*+P ):[I@*"8O  8(PP ?
M'"\ "E- XHOB%E'(__I@#B8O  8<+P *",, 'V "XU(B%PC! !\>+P $$!<_
M A0O  BU %O -!]* &9&W@;3@V04XI'B%V0&4@=D E*!4B\ !64  /#B2F0,
M4@=D"%*!9 3BD6#H+T$ !A]'  H?;P %  M*%VL  (0(KP '  9@>C "XDB?
M!I.#*@%KV%,O  7B2N,7XY%K1F88=" 2!V< _7)K!E)"T@%J^N%)2$%^ & H
M#($  0  9!9T$$A!$@?A22X!:P920M*!:OI"1V *0D)20MX'TX%J^)4O  5E
M /TR+T$ !A]'  H?;P %  M*%VL&"*\ !P &7(\O"$SY ?\  %K(3G5(^0/_
M  !:R"!?,!\,0  F8BA#^0  )B; _  &0_$  "\I  (_$2\(3/D#_P  6LA.
M=4AY   G-& &2'D  "<03/D&_P  6LA.^0  &.       ($@     (1(
M (=Z     (H<0    (Y#4    )%T)    )08EH   )@^O"   )MN:R@  )X5
M OD  *(Z0[=  *5HU*40 *@1A."VLZ=KP*QR,$B< M>.O%K,-8UR:W%\8'AG@R;LHI:!8_"<=Q:VH
M*^M%-QD2->YVA-]6PO$:$PN6.?5 E\Y[R?APO<(:N_L6=IE0M/\-"BHJ*B!&
M;&]A=&EN9R!P;VEN="!O=F5R9FQO=R J*BH-"@ -"BHJ*B!&;&]A=&EN9R!P
M;VEN="!D:79I2!Z97)O("HJ*@T* " /D+P   $ D+D  "\DXH!.
M=2/    I+B!?(!]G&+"Y   O*&48L+D  "\D9! @.0  *2Y.T$AY   I1F &
M2'D  "E23OD  !C@= %@ G0 (%\B7S ?"    &<"4D"P?  *92Y'^0  *2HD
M4R(*9VBP:@ $96)B%B(J  9F!B:2(HI@=B9!)5, !B*+8&PF2F#8L'P !F<:
M8BJP?  $9C@B.0  *1YG,"1!(](  "D>8"(B.0  *2)G'B1!(](  "DB8! B
M.0  *29G#"1!(](  "DF(HI@(D7Y   O)"92(HO6P"2+UOP! +_+8@Q(>0
M*3).^0  &.!* F<4<@ B4>1(9 (RP5- :P8BP5'(__Q.T"!?(E\P'R()9P#_
M&+/Y   O*&4 _Q:S^0  +R1D /\,"    &<"4D ,0  $;7H,0  *94!%^0
M*2HB$F8.0I$S0  $0JD !B2)8%PF03(K  2R0&4:9@HBJP &)TD !F!&(HLS
M0  $0JD !B2)8#@D2V#&L'P "&8.(KD  "DF(\D  "DF8""P?  &9@XBN0
M*2(CR0  *2)@#"*Y   I'B/)   I'D[0                          !(
M96%P(&]V97)R=6YS('-T86-K %!O:6YT97(@3DE, %!O:6YT97(@;F]T(&EN
M(&AE87  2/D# 0  6OH@7S ?(E^P$64,+PA,^0,!  !:^DYU2'D  "N63OD
M !C@+Q=".0  6R(O?   6R( !$YU2/D'!P  6OH@7S ?#$#__F82,!\B?
M6O@3P   6OAP 6 *(E]*0&H$<  0&47Y  !;(G( $AHT =1 #$( _V*@%4+_
M_]3!4T!K!A3940  +"A.^0  &.!.T"/?  !<*B/(  !<)@PN /___&8*+7P
M "P8  Y@""U\   L&  ((&[__$[0O?D  %PF9M@@>0  7"I.T%-T86-K(&]V
M97)R=6YS(&AE87  2/D!/P  7"X@7WH (!]G0FH$1(!212(79SAJ!$2!4D4D
M #8!QL)(0DI"9QXX 4A!2D%F+,3$2$)*0F8DUH)I(.)%9 )$@RZ#8 HD 4A"
M. !@XD*7+PA,^0$_  !<+DYU,+Q.=D3\  ).T$CY 7\  %PN? %@"DCY 7\
M %PN?  @7WH (!]F!C"\@,!.T&H$1(!212(79V!J!$2!4D6R@&0(2@9G4B@!
M8$1F"'@!2@9G/&!$> !31+"$8A"RA&(,@L!*!F<"2$$X 6 B= "R@&,&4@+0
M@&#V> "R@&4$DH %Q.*(5\K_]$H&9P(H >)-9 )$A"Z$8 )"ER\(3/D!?P
M7"Y.=3 Y   O(DYU(%\SWP  +R!.T$)Y   O(DYU6S-=6P
M                                                      !=6R!!
M8F]R="!= $-O<'ER:6=H=""](#$Y.#8L($-#1"!A;F0@3U-3+"!);F,N
M 0 " 0$" 0$  0$" 0$! 0$              0   0 #!0 %!0   0$" 0 0
M!P$" 0             ! 0$" 0$" 0$" 0$! 0(! 0$                "
M 0$! 0$& 0$$ 0$! P$" 0$$ @$( 0$        ! 0$) 0$! 0$! 0  !0$
M                                                           $
M P ( P & 0 ( 0 ( 0 $ 0$# 0$ !0 ! 0$ !0   0$  0$
M                     @(                                    %
M 0 % 0 ! 0 ! 0 "!0 & 0 " 0 ! 0 &!0       0$  0 " 0 " 0$! 0$
M                     0(# 0(! 0$! 0$  0$  0+__P       @X&!@8(
M%CXR%C8&#@H0!A *!BP@'@X.*B8D,!H.#A0.#B(*&AH.#A0.#BKN3"8&%! .
M!@80$@8&!@H&!@8>9 $(#AX!)CH8-!@R&"P:,!X>6!H\(B0^+"0X*!AL*FP!
ME'(L&"881!HP5!H>/C L."8:D"8L)A@D)!X>-A0@%" 6' PDE$P&$!I$CB(.
M,@H:#E06#!@F%!XH"@H*"AXP%!P()@8&% @("@8,/AP&!@8&! 8$"A &&A8&
M$@8&!@@8#!(*#A ($ H0" H("@8.!@H&#@8*"! (!AP&" Z$$@I(%!0&0D &
M-@8,L@$R# Q.# P,# QZ"@P0#&8*#$@*#$8@% $&%- 0 0$&"A 8" @(!@%*
M"@P(" @(!B \"@@*" H*%@8L"AY&!@X&" 92% @&" 8,$@84* HJ!D *0@H:
9!D *( 8>&$(.!@@&#@H."!Y6% R&" H(

end