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