From: SMTP%"ALLAN@otago.ac.nz" 30-JUL-1991 21:47:46.14 To: hagood@scri1.scri.fsu.edu CC: Subj: Agora2 Exts Date: Wed, 31 Jul 91 13:28 GMT +1200 From: Allan Udy Subject: Agora2 Exts To: hagood@scri1.scri.fsu.edu X-VMS-To: IN%"hagood@scri1.scri.fsu.edu" Agora2 Externals Agora2.Ext is the second in the new numbered series of misc productivity externals. They are also the 4th in a series of shareware externals. This series contains 6 externals. They are % Delay Delay will issue a delay that is the number of ticks specified. Ticks are equal to 1/60 second Longint - Number of Ticks to Wait % FormatPhone FormatPhone will take a raw string and convert it into a string formatted in the form (###) ###-#### if there are 10 characters in the string ###-#### if there are seven characters in the string and the same way as entered if it has an odd number of characters. String1 - the String to be formatted String2 - default area code, used only if it isn't blank %MoveWindow MoveWindow will move the topleft corner of the frontmost window to the coordinates specified by the two integers. Integer1 - Horizontal coordinate Integer2 - Vertical Coordinate %ResizeWindow ResizeWindow will take the frontmost window and make it as high and wide as specified by the two paramaters. Integer1 - Horizontal Coordinate Integer2 - Vertical Corrdinate %Redraw Redraw will force a redraw of the screen of the Macintosh, for you hackers or would be external writers the Source code consists just of a GetPort(APort); InvalRect(APort^.PortRect); %Num2SN Num2SN Will take a Real Number and Integer as Arguments, and return a String which contains the Real number represented with Integer Number of Significant Digits. (This file must be converted with BinHex 4.0) :#N&REh*K-LjMF(3!8%&$9%033e3!N!39F3#3"(%2!3(T&3!!&2#!4iGhChLBKCS !UBUSJ*UJ!%USN!!+H+PhHAH)L)USL+N!TjQDUDJ!KiU!L+US!!#TN!!&GQ9fC)G @9@T99RD'L3UTLB!+#UN+S+S!!+!+!*S!S+!+S!#T!+!+!*!$S!S!!!S!#T!!!!# UUUL3!+N!!+S+UC!!S!#3!`S!N!-)N!#U!!S!S+S2!!%c4&CAH)Q3!!!(L!#3!*! !&L*%9&C9CfKhCiGRH)!(LCN!L*!!Q!J*rpciHYi1,S!,TFAe3'mIMGq(*K"J0a[ dS--"RX-I"MaJ`rA$iB$H&4,``q1"RL8-m82Z3KS$IUrH"$Amhr(QHhTrNe09!5% 1*lIR3lqJ$k30mcF`ef6mhCqGhETTR3b-VBhBU)fdAkkX%C94Vbf4USc4UbipkLb M!$GNU,BelmFFVEmFPPH$,IZP`bZcaSlYe&P8p0Zc'2dX9'H-pP%32V99jpf*a5G 4EF35CN+(fHN%Y*5#VTj9@ak,i`G1DEd++CmmfakhJdfKNFdUD56,FSra`+*hBTh N[XNe(qk9rJ'V*4IP[bS`)X+*,#2eXXp-EUilIQG(DEC1DEV9eBC9A4f)pGiM-0! UlFmLN!#EjpGQ1HlXBUkU%KIM2S5C$Ydr!N1@6jSfh@5U`aR+a'2KSX)S!1S8*h" hI9!Z,J&"*)D#-fYbqAbqC%"GMPQRmC%SBLmUapYl8Ej6NpmYRDiE-6TRiC@dF0& 6r'U4!SI2M*%+5RYM48&+3V[T'H)%Tc5("JHULG80QDEY+PlCEe%TJFPZ0jNSV-6 5AQK,JShjmY0b3p1@F`8DmFYShee8jfZNVD[NA4hUCkZ!VRGViD1h+V"AQ5Z2'Ha &PEi`39mZVb8dEp`V@90`@P,@'EFGGY`A+DN1)-Akkl-%UTlM9"jLf1mQ9K,c9TH kM#bC1U`,5CIS9f5lbDrd[5%i3T-2e$5f9m(r2G(jZc4E,[28MmGd6Fabq4BPiFD $aCFZ9LPKa++CTB$5&qacN!#laA$rafp3ir)lXHSl`(**)e[1"V+i-5S',N#rC3C SE@@l2I6P9ELed`&(2AP-Mhq"-rJIQVbdNAZlZac@5A9aFJ(8ZqPh5B$EUf9YeXH jP,*#l2'EdD,ZaACGVEL!h-kK(h$26fD,l4,dpP!C"!(*MSGcHeefaf`0Ll@-mHc 32cHQD8XfaD8cZ@BFZ-f,Yee'V+,XYP3CYj3CX8Vq*hX1NG+QYfNXSb@8@Tk&*HX iNF@RHX(DPKU,pAjcVak%X-VN[EerTlT%QYXl4d*k23jr8jh8&TMRc*PVAXV"-dc `BMjXHMXp$RdE(30V0bdp$9l4BKrGlZ-h-Fm,kmI+jZdYfja5)-5m@'Z[!#P*fec BNjr8b0r%h`H("h+ke&YV$UV1iG)AU`A6fF+3!*8b+HkSAEYB,SAABUb$fQ'!X)G CUmTb-1CQ3kli`T!!`l9"9D3S#Lek%"lQ,j--0Epb300f2Samk[Zajh4fpVEk8fl +R*+kF[4jmmHPd0VR&L1ZHAEpH2)N5j+kCAmmHUc)T")lTNe0'-kH1aXEi16`h3Z DApYqYGi3F65P1kGb9+-H1Lbr)#m%VH"82I0L@H5M4B&&1MPEjA2k@Z3,2MM2[9j ESmlDf1IY2Gi8lr(6r'R5pIIYLT2`cbTRhU8f1FEXi`p9LeIX1*6pIh4YV2B0[-( HPK60Tr#1iE&'meGG@[(&ANShmY*hRh-Ka5f9C'NSGE[BlFHGXR`R@,CUUj0aBI! PTYqHdLXeMLcj12V+('r#!RX!*q)"2c!*qK2VM2ER2hXI+(@diI0Ka19T`j80,i1 S`hd1-!R(!6pi#I`!6qB#Id!6qTp'p)"1Q!Re3%p)"26!6Z!*`J*Q!6q-)D1Q!J5 D2e`%q`!Rj3%rZ!RZqTkhJj+Ih(4'Br`'MlS#Hm!Rq3%rd!Rqi3dX)#BJ%pF"2cJ *l)#IU!6pS#He#'RmN!!6b`%k`#F!#8J*D!RH!6e!%rl#&iMfpV2ifhYB"1B!Qd! RbJ%q@!RpJ%)D[ImK$8)fe,`#H5!Ra!%q+!RL!6hclA,,k[`!%2[29jC6*+h&p8B H3-2N)`mJ"!)e8SRLFU&l44kd)HmAH29Y[`-Cm10jd`%bUMmAmKJ8PLdL)[Rb)I# 6mRKa"4dSDF,d05'V$M3il4VNM(mD(IiN2YM*U"T!XI!Rq"2qMqi"2F,9rG!6m!# 'QqPq-KRlrUk6'VpJ%*KArk#!G+)')9)#q5L!E))DAmS3qbJJBj3`drY0%$)U%'Q Rr[lk!M3Lm!!!J%9hH)KjLAH-DBQ-QhLBQSKCL)"kL+Q(GhL*HBZTH)QSCfH(Q(H ,L@KjGhZ)HUZ3!)KfKiD'GUPhCQTRCjL*QkZJLDQ`S*ZJUkQ!QiZJLCUDZTUV[-U *Z`LJS*ZlN!#JF*!!N!#+LkZ,S*!!#k#+LT!!QCZVJ+U,N!!,QD#VZSU!V*!!V)Q ,KQ8J!!)N4&99CQPiQ*Q*CjU!UC!!#TLT!*!%#JS!N!13!!!%25089Q9ACiGAL)5 )DB5CQUQ(D)GjQAGfN!!!#J!!J!L3!!!+!*!'N!#J8+!!N!S*!*!&S!U%)J#DqfK $[3#48BH$#rLf%A4KjIdE5)!ZNr"kHQ`FbR6cjp8&(r[6i&#R9REDl`Z4@KC!4aF ,*b,lGq*NNVY*C"AS*DRl2%pMq-"'Pf'KP4AXATY*VNfq$6T9UY20MaCe+IQP33a BI8KcS[R`L*(TZKJ%ZeX,q'YLeXA[0b9lE`k0,Laq(4cCk$F#RkB['$'HAp'ek(% *4qp$F`j%2kS[k5Li@IeC[!Nl8G+&VH5X1P*fTZM#A0i9hpQESHeKiQ2LBq*N3K0 dE,X6H"#'diB#Z[Kja*T2CQk0RDJ%dmh3Qm+ESHjJBQ4'%p#%HZer$MiGj$dpaVq 5"`('(m&lHh0h#eZD8,EBhF*8hR3q4(R5If4qC8Lh[hl2ZU%)EHeq5*'D[M"5amL clUfjALBZmm3"fY)G[HE#d"*U5'Dr-KDEha3(@P5(I5j1K[HG*d!(C1"f1fPB2kj 2Qe*@fphaIa"NXk6PN3MrQh[hBA('YL)ANS-"+bI1MlHKD9)VRNlhk0$5ac)qG*b `5DUKDLBfU!Gc+N46@9#,9-,+plMlfG*p@KEAQjj)`@Qk-@d#'81B(kj2Ul$$KX5 )Gm"#6e@"V[U-,+6P0KfPNjEBGTj1BC180TX4*c+dpjU3!*LANqGNr6h[RmD%Rl3 ,Fa3YmKS@-[,RR5FTh,aQFRU3!)k'q`q4$N#LA9$)IGB'YMXi4eB"J)[Jj0c$TFR THCVjIjIebIGZB[Jmb1cp[c2Ej-H$q6S90*VdB%BhPe0*plbk8*1QR$$IGDfYT1Z DCISaXM%QLQTT&'+2@A*K***H#Ed035$r2*69*03Sia6Ue00UQar*cpMKj@Sh[Rd ,@mXSmDEbXRc[Pr6)erMq,L3Nr8+*HU'3!-k6eHpQ3e#+dBXhPElV@PT*f&,M#+E U3f[2XSil@ES4hN,6l@YQpQ6VN!#U&c(,eq(+eG$@kRZ06cj8A'l(p(iSqfajGXF Hj+HPMh*#*A**BNmSDQ1A8K+PC9T+r6#)0YfCNT)p0d0I6KD$!D)EG[aJ%pN!R4[ 1fQk0ICErpN08'XP6G#CpbESf1bJ'q%YGhhci3lRcC1a-ZT2r`"2fSRerfJ'r5J' kL!EhGB0jdRZ&P2rK`+`m)leG*E3L[YhNB8)VrQ'eqQqT0i(aGUmddblX3&*EDC, P5[#Pr&f[S4CAclblKEEV6EVFL6p,Y@*ZMTIT%)`r+X[AQk1QYR!pri4l-)3"llB $1T+eh2ee$EiG+a"k)D@K$!X!TC6G(5HhJGDa$"khrPLTZSrpN99hP'epLPmADT` NqJC+B2@NK8h5DiT%,!%%PL*DEc@bVh6F1A3dr"PLe[YMFheNGfGU*($E$THkPDk Ka#9APU*(!@LrDJ+'l'&Qa*M5Ff2KTD#,fQ4kd',k'HdRdb2"S+AC-Z0)",@am2" khCCPYPC+P%qDDQXTVbRUQVebQV1ESfRiAb68)VY4Y&#b5P,6XU59k%&Yh!m8TDG 41*N3ldp*F)a-9-$$mU(B!)iQ!*%)56-`)1*JDC55HN`,4iQ"j$ZB&Sc-#$8`%,K #DBQ"j82'G,MXNHe*(Zb&am5PaCrr5Z2LDA%TUXL4+ledhK4m2&hmhTIjEqE`-,' b)iDL+kXmR*bBYV&HMq,["'G2@CM2haZeKKjeJGcIDq%#(C!!#GT-ErPb-E%aGpK (ib[-8eqDZ+4Df[dGlcUr4DLQ[5DLQ[c#)046AjMZ+Djq',1GYIdM&0IS[%8er2G a6Ampa&0IeR%8eh%0k@Zcj%Q+DrT-46ABK0c&0IdRF8eq@lPilLQZcm[hY&0IeAk LQ[d9a5+E1iTVmeL+DrV'+DrV*LN9SA&+iT9&0ITJ%%@erCIl&0IY6,U[rr!*qj% qZZJ'4&pIUS"ZSBTVrlZBT%kZVeF(pN1m[GA(mZqKl8cfTR6k%c!aX2+Mf-kC-eA Gp1CEB!BE8@J"ZAJEEF`NbV+9qEaICNl3PaqH1G+mZplf2%k8[T5qPcmM$MqeVr0 hhk00TV[KcG!*VRK0A%Iblh9dp[E5i58VhEDZRY#N+9cMi'[m8+$9m[!jF[1Z1Rq #9cmHA+4fVElp&RTVcK`Y4fXD%b9PGI$q$RmqV&PD8K%c!MT`Z"169(jJIhf[!"K aV66i%)YGJ3lZmT`P3lS)#cmB(Q(m(Aji+S`CGj-`C[CK+)N!k-#`%JJVLCJDR9q V,cY,I3SDV+Y,k+KU-HB%X'HS@QATFUep@A5Y02JK2B-0H%ark[1$$5P1#L6Am`H JI`hCmXDJr#H[I0V4J'$dI$JITK+erZkrh3,I$cIR!'l#!EiI8f4a%r$[f1YCGaP j[cM9AeR6[G2#hH0JB@2J[GhT&ZmM3X1p)fldME[5"hT'hHNHAH4d2DjPSGk4k1p )mZp)jGk4blcRVcT@ZNk04fAHCkiZY4hPhKepIDAMcU1r$[52KhT&ZmDE21Sl,[5 )Gk46[#Y#hH@lc'SiGj1TEpkMKhT!ldL(HN3lbY681p)KhT(6[1G4r4S$GAD9*[! XGUCGTjSq&Lb@,`"Jp$4ll@"lS4FSmd4cjl@ZlJHJmJ%YbaTHG,IcpU&Y0kAiriI %ff2JiNdjH`[Q,G`fJBrp`"2K'NSdKNqX"6FJ%q8RH1JfQaaJfEQ6Bfi"0X!5l-b BY8UC2dNc*X[I3$GAIHjCaAN--2$Kr"$Re,2G3p6V4m%51e8hTElpPQH8Sm(kPPP Hqf(@Q9lTm$4X&i%R[A@**fMh[MlYdT2H$1G[kRr9Y5Lh8R[mDeUGcG5abKkYjfa (,b)5mj4PNeKrBbTPeBrL!*m`i@f-K!0LS"YfJ'PR$qaZR81P!AN"8flKTr[$"LR T4p[G9rG*'2VbIlFamM'aYjJiIm&aMeUY'P3MaTe+K2M`FbIPq2(JF5R9V3'3!2m TpheXG0EkQAAAh[1XGGTpE(-DI@ad#)02VBk$YpE(3FG[0MSPpE(AH(eXHZlI@ak lKpE(9F2VBpK`qYMS1(eXG&KpE(3I4pE(4G[VBpKh,afqYMU2lI@ae(kI@aee[U+ E1heXG0KpE(9,kf1UPp4@KEk[iqSrSI@6G$1'rUhYdK%I"SjZE(@RH22MR4idqGQ aJBiNqV(1(kba+9DI3)CRai&@KSCdqP@cpSJDUckfK9T!c9f@mI-SjHC(PMr)Te' PRaeXbHP'dNSfV2U9CqH$qIaBq24VCM+D8VDI'Mak0#P4ie(,R8UdHlSd+0E2Za+ 4(I0XVZp'('hm#qh(IlJ*T+cfG[ac,V'4)QhYf4L2`Sp[Gq"I6lV`,Hh4rS%H26i eEMcUXqhaGr(-TmL2[p[YEhDq$Eq*4cDP'Y1$)i-k2`I![Hrm#hFm5[ViQY'm2ka ZA-qjkQaZZ'FfdjelSqheVZT@Z(jqp6@-Hh(qQrm2Ii`S5ML)kpUV#V`ri1Z*RqZ ri'&JF&'IDlTVZQZkDlTVZQZkDlTVZQZkDlTVlPeh6AG0Le2T@Ac(aDRicq@TkH& MiRc"DYGU9fTADPGU9fTADPGU9fTADPGU9fTADPGU@l8rBKh!PASlZIQc[*YlG!1 2-iI3@MRjqJG!1+J6VCNkX"0(!9A!!HF&DMPq2Rajp5IPMcQRm@lMMb%#3qM-Frj fJ1&PDR(YEcEhXHI2'K(&YlII8k9#L1"edh`Q5D!Ui-kM@Ipj`MerrVm1R9cTeE& c+G+IEflBDPLPF5DXlMajkG$ckh#5(N6kSC8!G),fF`1mC#!2UY4T)E!L0[XYKX0 KXi`#h@`'c#1L'pc*iDFYAYEf2,c*e@GPeTpA2B0NSkhHaPRcr)RdRh06+"!I1cJ `J`r(eY2+QUC+mBbcc!*6U8G2Lm9[%pT)$P1RMeY4K888VN3'SiL@43d5LAE!PiX rM6Y$0V'6di6FiXrD4k'H&I6TC[NU@P(2TI(V4m60R8[(H-CShqBc`rCiP2b*r"( rl8q2Efl3BR'A1!JL99DR8cCr'V#3!*9T+f6(%5U1JqG6ck`,N!"U'+)aPdkGALd D8kY2Eb)MiKba#,ip-dF248c59dJ-dm1R9Sq8HV1DfJQ#%c2i!Uf1R'E(JY$lebD iMm0Rlq02iSfF@pZN)5eBS-3a&)FZV2&590,iNl,14HIQE3iaaq66d"5M,mFeJ!I akHKQKQaZDj!!+4dK*cMeD++qST!!dp#VPQD(&),5ck1I@cirQk!RL%l1MYpj2VB Sr1'b`#$E2F"V2)RCZ02be#A#Zb$%3fHimCrpK)Imidr2Sq8c4pJ1BhI[V33lCmi M`f1MDKQ8D'BJ8ip%-+"&pD)e"YN'AchSQhMSpU*eAp86IRZY$@DqfK$[3#48BBA BqrCiS%qmLe%,+qhH&N`dN!$ZdH,HNKa,kC0hB#2l8Ip$T[$QHEIqK$6M32lF2$Q IbhrS`P`Kfm`"R)[rV`["qfre!-UArT3q0#'UrR!CQ$0lH3KFI[J-bVrQ553KV2q !'C&rk"$1mqb!cFhrSN-ehJJ-[Vrkj$1ji3$,5rp)KQYm-"Qb[rX%-Mf!$,K+)Xr 2!CNT4(ElB"Qq5L04qB"PkP%DVq3"Rb8SLiq1!c$5L0Cq3"QUlC(PCXVRIE28Yq1 @bZFIFA12XqiDh[l+ja0aFiQc(b$2ZhXVR'!F525Tl%qjF9i8@!#3!aj"'3)!!`# '3@G[FQ%b!!),3@G[FQ%b,N4[Bh-"!*!$#&G%3Nj08eG%RffhKCpYZJi!!$*d%4% !"!#3"Ji!N!F'P!T"CfpbB6)Z4AKd!3!!"Ta349K80%40@*pL[RZIEE8L!!!e'm& 8!!)!!#0e!*!'$P3!N!45Y`!!!: