shulman@caip.RUTGERS.EDU (Jeff Shulman) (07/20/86)
[ Uploaded from Delphi by Jeff Shulman ] This is an update to Mapscan the old version would not work with 20 meg drives as i did not account for vcbNmAlBlks being an unsiged integer. with a 20 meg drive this is treated in Pascal as a negative number. I have only 10 megs so did not catch it and took inside mac at its word that it was an integer. I appologize for my stupidity! jim Name: MAP SCAN Date: 17-JUL-1986 21:48 by JIMH [ Updated 16-JUL-1986 22:52 by JIMH. Now treats vcbNmAlBlks as an unsigned integer to work on 20 Meg drives. ] This small application will read the volume name, size, number of files, total amount of free space, and the size of the largest contiguous block of that free space, and print it in a dialog box. You can select all online volumes using a next volume button, and old floppies can be ejected using cmd shift (1 or 2) and new volumes will be mounted when inserted. If the largest contiguous block gets small as compared to the total free space on the volume you might consider backing the disk up, reinitializing, and putting the data back on the disk. This will result in all free space in one contiguous block. Warning it will not long remain that way so check it every so often. --- (This file must be converted with BinHex 4.0) :"feKF(0MB@i!39"36%T*68J!N!J2NDpZ!*!%!3#3!`lr!!!0r`#3!j)U8LlrkMe ZrrErqMeZrqcrm'!!raCR%'8%F!&J$%SZr`GYBA"cBf&Z!J#3!d&38%a+58e)!*! +"+J!!%&38%a+58e)!*!BQd"#I!#3"Jq4%@BL%"#`'@F19SQ`'@F)9SQ`'@F#@)N 3Q4&C!!)483!'8LJ!"b*86ZN"5Uj"38@qB8&PcNp24Fp[6f9KHpKlI(eqId&"3d9 16e9"N!C$4C!%5C!%6Nq3"9@3"+#KSU1NTDDRU+QUUkbYVNq`XE+cY,@fYlLjZVZ m[Di!N!-B!*!$+!!!![J!N!-)!*!$)!!!2c`!!DR`!!!,3!#3!`&1qJK16PErmNM R!3J[,J!+2bi!#%KZrrj)E[rb5'lrpUQ05'lrpULM5Hhpq#i-8SF["d*((Lhpq%M (,`G)E[rf2c`!!DR160m3J%jH)&pFMdl36PEplNMR!4J[,J!+2bi!#%KZrrj)E[r b5'lrpUQ05'lrpULM3UF[,IhQ,c`!!!3!6VS*##iI,8IrlLmZrqj)E[lZ6VS+!NK ZrZj)HJ")5'lplMmm!!*1ZJP85HlqlNIZrHiq2!$r'0Y4crrm5HlqlLi-8SF["d* ((LlqlNM(,`G)E[rf3QHTcNcI')"1AL"IA)p1d!&V6PEplNMR!4J[,J!+2bi!#%K Zrrj)E[rb5'lrpUQ05'lrpULM$+hrN!6pkQF!!*!!$+d!N!6pkQm!!#iSEIhD3UF [,IhU,b`!(%kk#$)Z(d+R,`F[2!!!"!"1ZJK),KmY4rrZ6[S!"N+Zrqi[,[rZ5'l qlNkk#6T)E[lZ5(S!I%KZrHir2!!#6VS)M%RZrZj(l[hZ2M`!raME8Frrr%RZrZi Z$&+(,`G#4aiZrZj)abm(5'lrpN*RUFj1qJ!b5HlqlNIk!$Jq2!!F'0Y4crrm5Hl qlLi-8SF["d*((LlqlNM(,`G)E[rf2c`!!DR160mBJ%jH)&pFMdl3!@XF6Qpd)'0 [EA"eG'9N)'C[FL"04P-JGQpXG@ePF`"19[rb51F"##mZ!!Sr,J!)5'lrrNKZrr* )E[rfUBe)E[rfU+0*lIli,Ja5Kbm(3NFH,Ili5-F["dKZrrBr2!!"UFj-ha#!6Pi JAeb26Y"19[rb51F"!#mZ!!Sr2!!"5'lrrNKZrr*)E[rfUBdr2!!$2c`!!kLE5'l rpMmmrr`r22rmU+P)E[rf2c`!%$mm!"#SX%cI!)"1AL"IA)p1d%j@r[*)j`%),bi !#MmZ!!K)E[rq5'lrmNKZrrDTM8KZrrDSSbmYrHj)E[lb6VS(bNRZr[)Z$&+(,`G #4aiZr[*)abm(5'lrpN*RUFj-ha#!6PiJAeb26Y"19[hb51F"'#mZ!!Sr,J!)5'l rrNKZrr*)E[rfUBe)E[rfU+-[,Ihb5'lqmNkk"h*)E[lb5(S!5%KZrI)r2!!#6VS 'a%RZr[*(l[hb2M`!raME8Frrr%RZr[)Z$&+(,`G#4aiZr[*)abm(5'lrpN*RUFj -haL!6PiJAeb26Y!"Ddj@rja)j`-)3Li!&#KZ!!`-9!!$9mF#4`!"+'i!$!a8!!9 AaJ*'!!'-"fF!!&T#TbKZ!!`[,!!#,c`!N!2rU&JZ(`b(!*!$!eI(!NF!!8+R+'i !$#mX!!)[2!#3!rqS@#`I$)B!N!-09mB#4J!"M!GR!!!3+'i!#$Lm!!%GI!!"!"4 1qJ!m3LFr2!#!5'lrR+P`(KmG4rqX5LlrV'F!!#*#CbmZrjkSDciI28IraN*R5Hl rX#m-6VS'9$iI28IrVNcI%-"1AL"Ihr`!N!--6Y"19[rb51F"#%RYrG)[$+KZU2k T%UN`UFa#TkPlU&!r22rr3QG1ZJBJ'hS"S[hi3UhpjN+YrHSVHJ'@r[JVHJ'8r[` VHJ'5r`"#VIhZ3UhpmN+R2c`!b%+R,ccrN!5TI#iI+dIpiLmYrH)r2!!'5'lrrNK ZrrT)E[rbUBd[,IhL2c`!"MmZrrj*q[Xb,`a)E[rbUBi[,IhL2c`!"dKZrrj)E[r k5'lrmUQ0,bhpiMmm!!Fr,[rq5IVl8Lm-5'lrmUQ1,bhpiMmm!!K)E[rq5'lrqNK Zrr+TM5mYrH)r2!!)2blrrNRkqlS[$%KZrr+TMLmYrH)r2!!15'lrrNKZrrT)E[r bUBd[,IhL2c`!$MmZrrj*q[bQ,`a)E[rbUBi[,IhL2c`!$dKZrrj)E[rk5'lrmUQ 0,bhpiMmm!!mr,[rq5IVmaLm-5'lrmUQ1,bhpiMmm!"")E[rq5'lrqNKZrr+TM5m YrH)r2!!32blrrNRkr1J[$%KZrr+TMLmYrH)r2!!45'lrrNKZrrT)E[rbUBd[,Ih L2c`!%6mZrrj*q[d5,`a)E[rbUBi[,IhLU48[,IhLU(-[,IhLUB%SEIhL5'`!%+N U60m3J%jH6R8!!!YAEh*VD@jR,T!%6PErq%MR!3K#Tdkk"$SZ(be(rr`SE[rm,@` !![ri+'i!##LZrrK-ha#!6PiJAeL26Y"19[q`51F"##KZ!"3pE!"+rmJpE!")rmB YEJ!)rp"#TbmX!"`[,J!-6VS#k#iI,8Ire$em!!(rh#eZ!"$rhN*R5HlrX#m-3LG 1ZJ282Kmp4`!B60m3J%jH)&rIr!#3!a"1d%j@rr*)j`%i+'hpfNIYrIK&l!!X2M` !'aED8Frrr%+R2b`!'Nkk"%)Z(be(rrK#TbmX!"`[,[ri6VS#GLiI+dIpjMiX!#T )ad+R,`F[,!!F6VS#ALiI3UF["bmm!!!%!%kk!R3Z(bY(rI)-E%*%!!KQ!!"k+f` !F[hZ3UF[,[ri,c`!N!-)6VS#6LiI3UF["bmX!"a1ZJ*!,Kp5Kbe(rr`q,!!@5-G #TbmX!"`["dkk!J!Z(be(rr4#CbmYrGS[,[rd,blrr#mYrGC1Z[l52Kmp4rrb,bh peLiZrrK6Kbm(5'hpkNkk!a"1qJ!B+hcrN!6pkMiX!"4)abY(rHj#E[rb,bhpiMm m!!C1Z[K#,bhpiMmm!!G1Z[L%,bhpiMmm!!K1Z[N15QlrmQB!!!`EHJ"5r[K1qJ! 84qhqq%Ak!%Bq2!!9&YT4crrm,bhpiMmm!!j1Z[Ri,bhpiMmm!""1Z[U+,bhpiMm m!"&1Z[V@4rVl8Lm,5'hppUQ460mFJ%jH6R8!!"9&FR*[FL"5C@&ND@jR)%*TG#" 0BA"19J!!6VVlmLYm!!#J!2ri,bhrq%kk!H4#Cdkk!I3q(dT(CJ!!cN+R,bhrq%k k!GBZ(bY(rGC)EIhD6VVpPLKYrGT+E!")9mF#4`!"5UhpfPE'!NB!!F`(C`!!$LK YrGSV92hD6[Vrf%UYrGTR!!#!3QhppJaY!!(ppQF!!(*1Z[hQ$'d!$2hfCJ!!B#Y YrGVphLKYrGSV92hD5UhpfQB!!!T)EIhD6VVp+LKYrGT+E!")9XF#4`!",#hpfVb YrGjAaJ*'!!'-"fF!rmJVHJ!mr[JVHJ!kr[`VHJ!ir`![,IhL2c`!$Nkkq-T1q[q )6[S!%N*R2c`",8+RUB8q(cY(rIB[,IhLUB+Tp!YAEh*VD@jR,T!%6PErq#mZ!!` [,J!)5'lrq+KR)#lrq#)Zrr`Y33!36PiLAe#26Y&1ZJ!Q,8-!%%cI!(K1AL*I8)p 1d8kk!")Y3!!360m!H%jH)Pp3Mdl4)Pp19J!!51FH!%+!)Li!$&[&DJ*%J53Z!!K EaQS#4)*#JcJm!"rMLq1*ij!!N!##D`B)``!!B!,3JP(-rqa+"@F#4)#l"QF#4)0 1d6![!!6P5#*[!!C558)#)(F!"N*"%KKR#Y3"8d%5f&(*rraC!'ES)&m`(b*I%S, P50l!6Y!LAb!IS%`ZJ%jaF!![#6(!!L"1GA!!B2BLAb!IS%"1q[rX)PmJ(k%H,SK 1q[rJ2hJ#)!!%6R8[I!!!!eB!"%je)Pm3(b"ICJ5J!Q!#T!)qJ%l4)PmJAk!22S" 1d5*I)"m[#D!b6R8JE`!%)#m!#$mm!!#TlL"I8%p1d%j@!!")j`m)+hJ"D[d),Li !$#KZ!""#KN+&3S5kKfi!!#J`"6)&jS&'3!%d%!"Q!!!)8SC1qJ!-[)4[!!!%+!C #KP+&6[VreLKZ!!LmK'm!!!JSKNlk!!3SK#!i!@U3!+hp#%cI%2"1AL"Ihr`!N!- -6Y"19J!!51G!#%+"-Li!##e"!!T-ha!#6PiJAe526Y!!N!--!(S!BJ$1!AB",84 %!!!"m!!5!*!&f!&J!2!"b!3%8A9TG!#3"3J!f!!B!4b)#%eKF#"6Bf&Z!*!&+!$ )!$J"+)J,9QpXG@eP)%jKE@9Y!*!&8!!S!'!!J)J09QpXG@eP)&0THQ8k)$S!N!9 S!"!!H!#!L""$EfjdD@GeEh9c)&0THQ8k!*!&1!!3!%J"f)!#,!#3"P!!J!"J!1# !!Qi!N!CS!)!!L!$jJ!*!5J#3"EJ!+!$)!3#)(kNJ5Q&YCA-J45iJ5'p`F'9b)#K %C@a`D'NJ5NP05#PX!*!&b!"3!1J!k)JS0c%c05"6F(*TEQGLGA*[)&"TDf80)*! $4'&jG'pZ,#"2D#!d063d13#3"HJ!'!$i!6#)*Nj[EL"$EfeYCA*MD@&X)%4TFh4 bD@*eG'P[EL"&EQ0[GA*KCf9N!*!&U!&J!-!"b!3+6Q9h)&C[E(9YC3#3"C!!!"! !S!"JL!T$EfeYC@jdFcSJ!*!&N!!!B!#J!GL!!R4`!*!&f!&J!2!"b)!###!!N!9 S!AJ!H!(BJ!*B5J#3"9!"H!"J!GL!!M)J!*!&D!%)!(J"H)J46R9YBQ9b)%pQ)%C TE'9c1L$k!*!&8!%S!'!"H)J,4R*PC5"6F'&MC6S`!*!$5!!"!*!&"`!A!"J"2SJ S9'KTFb"`FQpRFQ&Y)(G[FQYc)(GTG'JJ5%C6)(C[E(9YCA-J6fjXH3#3"58!I3" !!--%!Np,!*!$-J!"!*!&-!"T!%B!VJ3#6dX!N!81!%3!)!$1L"&1Eh3J4@j[G@G S)%ePE@pbH8X!N!-9!$J!$J%k!I3!!J#3#FJ!N!-"!*!$$[m!!!hr!*!$NJ!"0Ci ![J#3!a`!NJ!$3dp%43!"!#*"6&*8!*!$1N4*9%`!!J"'4%a24`#3!fS!!2rr!*! *!Irr!*!$(!#3"!%Yrrm!!!YJ!!%eQJ$)rrm!!!Y`!!%eNJ%Xrrm!!!eN!!%eLJ% Yrrm!!!f`!!%eJJ$)rrm!!!hQ!!%eHZbU!: