From: pottier@clipper.ens.fr (Francois Pottier) Subject: no subject (file transmission) Date: Sat, 19 Jun 93 12:53:34 MET DST Hi archiver! This is a small set of THINK Pascal 4 routines to handle floating windows in a Pascal program. A few days back I looked on several ftp sites for such code snippets. All I found was a C library by Patrick Doane. I translated it to THINK Pascal and I also made it much shorter and clearer (IMHO). Since there is no Pascal source code out there, I thought I'd submit to the archives. This code is public domain. Whoever finds it useful may use it. Enjoy Francois Pottier pottier@clipper.ens.fr To the archiver : this file should be named something like 'Pascal-FloatWin.hqx', I suppose. Thanks (This file must be converted with BinHex 4.0) :$%CXEf&dD@jR,R0TG!"6594%8dP8)3#3""6B!!!"4Mj(8dP8)3!"!!!8f(*-BA8 #@!#3!aB!f3d0#NCXEf&dD@jR,R!!N"9lI`#3'[q3"&4&@&435Ne0!3#S4k-LU%H Mb`!!!SJ!!$Vr!!!"$3!!%dA%B!Zd!*!'IFB4!!J!20dGcK"U1l,Ei3!PDjpQ1%$ Z83$+!H1*EG)jN4'@kSZ#ac&V56e$J3jq[p0L#l68F@Q(pBkd2ESF3'1R%6Hk6Kh Gkl-hD&p%(A53!$)phh13!(BJImp"fEbcIcBhmp#&[,0rGPjRrqbmc[lCHCh1-lQ CKbVbaA@bmaEAbFjEA%IRNDj3"@)m`p"C8-+*16S6!@,!#j!!XbePG"$jB-DI2mG -RPdQpeljqb!-Bk!G9)*#8'"ZL!beS#%dKHE3`X%9MPB+Z-@d-P-,6-Se-@D8[Y" rIA,Z&Y0D6*YE(IGVi)bNm1bErVm'C1hrBi#a0rjAZ54(8qmHMN)G$9Ue#RCe0"( &k(YNla*28`X!!!e19r+-)!0J)EH3!'-H@GCN&pPX-D9miF[*AZj,Z*e(f'!cXT! !66BM"l!q`2SZ&*qZ#rj,jV)56Y#2@+#V5GqJlk2mbj-XC$Rbbj'&$*BMbj'&,'5 6!5-,*96e(,8XXPSpbUfZXf,kaDeEkrZU-V@b%eAD*GkB5Y9@cA3acSfDq$PUP49 MZkS'kT%YeE)bH&$2e+XRTppqVClVDU4cG@p`plYEkcGP9YHQ8--,p@LJRYZkcNc C9hqr,)ckl222Ic&3Aah0GCDVBl9`MhmpbV2&`T3$8e5$5DPXS8k,fT5&UEm$2+p Q@D8Q'F$)V6fVe0"8Y9V0X1*jCPCQI)R%l8SY5P2A&rLCFC1"1KA-(T[#R'[eZ3+ ikTkU&RTN9+f(eB#,2LZcD9ES2,p33eeK-3#K!cFH*RDX%X,2G9eQSc0eBMAJ2EJ r0rLXeE2L+5B"BIrq,`m9Q2%+R!*q8b[mbZCpJ8(RP6ai9GS,p9J[Fc8"`aDj(T& fa2kdQ'6Jl)9k3`jQBj89UTiCY9J1mfbNaKCd+L*64RCX&(jc!f"i23YdU09F!fC $@Sb*T#iZKRCmdCIYm4%6bi@Y$"L2B5Zlc$('U$0!3,5QfEP4Sp+-XeVNBQi!X!B h6*iVr-B6VUfaMCQESXjXJ6dAaLjbdmG6Zjc13,Vek84Gf+8blm$rc"5JSqaHfQ& ZjP9I!BbCaUVCf'!VBQ-+d'JN5q&pcAhRQ$S%1e9@NqNMAGbZeA5T5`hb'h9k'c1 UK3&bmq9SKUhV$#2"lUcZUbVMeUHhjkU`0IL1h5HQUJ!B*!dITk@HJpCp0F5#XNU Ycl#`U*(5XM6*Tik3!p4,Lm@Q8*N5`dF@Ji%5Ahkbi!qb3YSE*`dVpBdZp058i,Q T5)+c!SmF0bk9r*99GPK$$rC[U4V#"),I"f(!A[#`03CJpecGKR$`qqdq"$NEcF" %A8##S+(F*VHVSpbFQh`(6fXd4+G%,2cb@0H*9PD#3Q9T4M@F3T943bSS#[4F'Be PX9P"lJN"*UAjKb@q3l`TD8jEL6j@K'lTF`JRRhf2K#kKepLPehYTFUcXj[4kmZ4 K$L8-,pb6*eKRmq,Pc+if,dkbLK,DVA*5kQNljG8-%a)-BrX(fN+`E#5BN!$3DI- #XdLL2C@(CNE0,Q`jKbB&mQ2c[i2ZL[N3JA8d'B%'%eJ3X9526IfYmC!!$K6(1@A PpYhMJp-6#-$,fJ*EU2Yc+kEVi1Lc`d-X0G+dA[9-`mfY0f!9CZ84#6jP8PT`@Vh 3q!M0A4'5IpUfb2*$VciL*4#9U#9q+q`pe+-cT`RiAVLPl",Q!S)01`V,j#RB9il rd"522#AfINfe+H&-L'dd99iJ#40pP@KT25[K1DDj(B*ZjlV-0+a-"5pBfi@iEMJ *q&ilPim1%VZ)Zkl$'%#6MafBH,,MYH#ZXJRI3lRJp`TSp%#pe$!J04Jr&E28ELU FjMVZdAiM'ML!`E%4N!!dP"L8CVV-GHN(`N$-M$$l'R#3!#fhXTaIB#1mX1KZ#fb GCa9)33%f"AhKaQ93`24j"P6J`NRC4X)J`Q1`18JG9r#fekZHd*`8FEU*,aGHBNG f#5*,M$!f8+Xj,,BS+Z8iSRJERr)P6$"&i,5!(4h$0!#I-6$$['9@cE"V[6,BBbq pT&2J$0J*$+KR-mX909DB6-"GSL$c[LCJ`MlU)13DZBAB1lKV1XjCPX-$B6fZY5c LjrhD96D(biCk`JS,R-#,%Uc9Qj1[(SN5JaJVI3'l8@S-P-%Ca%CXRbaQaU"A9HX DUBBC6''VGb&%*2CpYmS6'D[XJMlYN!$L!&(#5m,J+"GmaJUQ$S%$38"@%)blb#a b(YTZC!DkK,Q@Yh-%'U!L`-SJ+90+kIk*#0H1"fjVa#d55Y4fDUJ%)P[U4!B(0D, PC(*56%)FFZQ@6bXhmbZk6PRBIAGf`5m,D-mDb`1eiBG(0$9Hri!r-"BEiY'6'!3 8U1"UU`X1+!dM*K)@3'H6$*!!`(``NU!'CLd3NXjJY-j,SmHBcVJ*QCS)53[3!&K I`1%KqiYKMKF+-4dqdh2-%@k$$R9TFkT#9@-jlViMhN!p+jNNb@+-h5b5%`LRNh$ 3[H-)5G1K*iD3!)b"XG,e5'a,5jDrC@b'L+L#5f-ka8J&AQUjF!KTN!$EBL9N3da cB(ZB+#bb84mf!'3#$,Yi+#Be6a`A28qKTmb#S(r9c*Ee*`X5'dPVMY4$kYiT&KC I9J%k"#"$`kJ-mQR%Kc!&Dic1%F-Da'h8BphBj[k92Fk3!(*8`4erHrT8Y$KihUf jTB-8iZUYZD-E9-TjTe8'NXMdEq"$",5)5I"1d)kCb#Y*L@``Q$,4TU5QF%%HXU` +%E5XFTSdTXeIIN[*5-(+lrU`'5&hk80FQR`&Rf1ddKGHEl&fXp0RKr$*UHb3!"J KbSj0fJ#3!leH5"U-0-TNjm*395eGU#Jj9&pb6)DU!LpAGI3HU0I%!KKkZS[RE2F S6E@%4X8iUf0$L(SD@A5V)S["C!bKI$QAbRRZDdJGBTL`L4NS#"H81Qm%PSZMfKk 0S5k1&$,`3pL4&23eH`55p%bBi(h+)16Xp$-ZI1Y@$j!!`1X[)CY*6Ep!V,El3ji )Ukccl"pp1V3,+l"AEl)X4V5Z-(T"QG5"j%U10-Fq`AKHPiI(kS'eF"L&hhC0Rb( -pK+Ba#p)hhFYA&&(e3%'AZkA3&cAbj+T*c8IdDDc!$6I2Yk#K@RN083UlDkGk0d J'S"%L*T"6#5f$PN%FLK)[Ff(pTh)%HM5l1G&q*pAE+IZI-Lr$1eNqIZ4AcJK29E L-&mB4-KMV,'Ma)pU-F0c1QSd-EBT3!GmN[5V,GB39bC!ljHieB2bh1VeQR316BB B$dDGEP(eU[X*KMr4A-B%V$)!4eX!2N3$93d!ci*55REeTIV&ChreRP'k('CeUC( kb'68-N4FGXbih54K%JG"N!$2SAHHm#kBUZlil'Z6p-CSel8[q"S'5IX0lL!Lm*q F2-MqNJGdX9iB(JHlD8MZi(93(N&p4j)(0K[Qb0kGNGKfC%Cd"L%QC(f"`NdPN!" 'M&m-Lr[%1HTX%kXU26i(5f$KRDH$NCM$@c$X)1V51R(K2I-6$mT98-DepP&A9`k 4C4K'bK#kG3,%3%4@iCUMHLQP+1GC0m5+VV99aLe[$ab`R8EE)RSSDRa8P0l$C4R '3e$qr1lpApklP*3emc&RRZ01cUFbl[5N6%S!fCE&6T`)K-9qGE9B#beSZC-0EZ+ dZlFi9QmEHHi0$FTMH)K%a8[5Arq0K25L5Z%eHL18,MIB%`-Y*j!!i0+&F&!M$)) LYT1NbmJb[B8krM,f,4VU(1kfLF)Q'V3!9e'0kf$YQE`bljF+Y"'LpKC[qGa"`JG )32"6IP&,BkSP@CcVP13j,#YNaUAj))*%A$kXL#8+Ri#*aGe&B04A&2'3!(#J!,$ [9Q"2%'dV3NdNN!$)'I-33)L4a+qY5+4AU3%4h`5)8ccJmXcIC#lbC2X!P+eCF*Y !fJ"&@kQNcNSFq90+3-djGr[3QVa'1FfhI+6!K)Li,'f*L"mp0YEXc$[YL`YHLS` jDhhaiGZ"AmI&6Xe6L#"`rErNBk0iZlfL4$8lJ8N6k$*&*QM0j[80KNe"iN[9QFl )bi4LBZ3R"%"-+eeKf$hq)`f6MVaH-'rcBVQ8Ml(YNc+l9Tf5i#%[AqNFAF`THJF VPmpj-@'C4Z45E%H-CpQU5jU'q5JaHQe"(k&%ScEUK2I6dV0VeYr+Ui2[0lUN[!C 2G"eQYHSERT-T6D#jpck)#"$#S`Xf6k@`Z39)b3Q"VdNm8STff0LY,J(d1AF3@RC 3-8IH"-+*#fSG3Ya+M!ri6%e*)$TrGqKY`$8@BaSJ)V%QA40A59)il"S5JdD3!24 "GJ'mJ,%c*`Q3!!eII)$!-0Ul+QlS9ZK)&ePjd!K9!ZcYS$$[2#QGfr2LqJId$eL GM6VB,%3+p0Dam-,YIKDD6`2!eYQhMXB!e'[hAL3fFR%Y2+l0d&5k[)a)#@m[(l5 0(p)`-!%eS1Zk@!+Z8dMClB06h@$GUZV1R+I8qEp#CHG'8+G(VS43b2HlK5#qJH[ Rc*HJLh4rKLc&KHA1-ifPA!aQe@r4@2RGTV+bDA4ZhFE2JANb'3q)d5XV4'JdBXr %Y3aUV91,U54Ul!`e46XT`j!!L8aqQ5'RpD!$j4)"b6kR#[N&!54[J[JKV"UaS)3 R'F-iEfQLI'cmjlrDJ0lDfFM101*k3HY[EZc04f&YR$FQEUbhfjRpr[Q3!('R*"c 5qR0mm[d5%4,XlPAS"G1N9rD&Q9X8$Ac48dT#D$89L"LVLN%a#M#,d2Bqbe`(TR( 8!a!6Q@eS-A94X!#adV5m-U3cpJIC!$9C-5,JZc4BG[Cj*cjEa!kDcD-'J6HY#(Q he',dSep+pUBCH#MQLHa[Y`!*QmqYmBPDX)k4jIH@Dmm++X-QY2f)5G!jc'X#J!m HbSY49dL+-[#I"C@8-RcNhdi-@FUQ&fNVDPLYXA,A22M"&()RRe'L)8)pBQ8`P$e 6,`e"CF%ZE64*l*k6B9XHhd4&@dk[kpN5j93)*C!!FBC&kPkdqQN8&d`BG"Z41KX 0kcLG)V6r+IAmNCC*&IqA!&8UY52ch,6iA2@KD`+'`LSTd6hmEeDXpj9*CcBN&N! c"R94pPPmd$Y36pM(TmAR%1GLA!l1Xb'&h*K!Sl@e*&,HMb+0mLEXTHqQS!UiRl@ hjMbZ!bc%R1qmH9a#M1BqC3Ue'3rC95S"KE[H#hhpi$+SJNe2)VAASj2f2Ipr`q% 5"'SUCrYHIpHFqJN*GYGL3!)-(VN$2bL)*RHbka0XlGqr9p@#&)USI44"qIkMr%R FKLL!NL#[8i621'$R513d3'0J`baZ%-bdT%FaY'L@MACZ(kLfL,L-DjYKlI-KdD$ #'0kX%,dE3K+RXee8K1&G3Y-Z'S+jE4B2jj`bVRfmL`"LFj8LL!`V6QNZh'#i2i" %DZ53!-#LE9Db,qaFCB)h#L964DDfaTSACBVa!a'Z$IQDh90d")qjNcLhaA0H'(P @J-"8"4JI*`i9+$ak-HdD4-cM@'aIfHB'Me3hRFc(P+@T[,NPd8dI)CC`1ek'CY( 9ZeUFb(Ccq54H%-$GM+`#++jkj6,A9$#k%B"YV(dGNKilSC%JXGf$QVd2-DkNVY@ `68kbf[U9bh@LQU$J`a*)KjFF6lPb(dL*Z8X)dRq16H3#"UmB1D+am!4ANC+6pDB &ZkYC0FFDfMjmL#R5Qa$QIKq!qJ)J(r#3!"A3KAdk3fdF'f-BMSLpNHYKXY,M8Pq !lY`!*dABbd1Rk`,Je3MZI)Fa&4`aQ#IIj!h(Z9b$S61dR"8HYJ(GJC8i'YG`f*P %-rF-01`V"$T)44V*m8e'(X2"+4D"X&XE$Z!f(SGpj@k89@B1l`#D*9kJ%")ZcXL p&T(dMb5"MGbc4,8Ff6M*2r@AQiSNQ[mMNh-C&KPrGIIZAIlICmqiJ)HBhjdcD6R UZ`fJ,MTS3m3A$Mi5SkNh9M",cr(i@'(Za29iD&l6%hb40aJZC8(Hmm02H3-eI@T (ah!I$+hLR2IT8+r(e3%d0Q"E0MfCSL5+(dmN)YjdY4jNpAhB+GFqp9G5H14R0"p rE5i13BblR9e'%Ra$9)0MJCAF$+[FRC*Yjh)E!2cJ@%)mL2Xi2UJ,DL2Z"*d(NZB J81[+AM(VSNR&D!MSK1'5&!lmj&eq&DJRMFcdpZf!JmQS!E6bUCN)Td")REqbMbA YB-J[Skq+%8fL(hJ!8E6q1Q+ma5DBHTi5!03jm18Ddh$Z+qi52+Xl1%6VjB5I@$q d#mT8fr6CT)0K1,)HYlb$N!"jVlY2YY#Hk((0@-1'H$G5k#c[$eP[XNa"1lh5Z28 5CXp`"d3)qQX4b2I%jQ8AJ%eQHTXNB8CRP&VmS4CqDeTp6'8-Y2AjN!!,p$YiJY' p$HC%h*+Ud,daQ*kX8L#%f2,VKKACeP5)1VX-0a9+l-fC`1LdYUQ(Dd"dGE'2M)i Y1E,a"%HaL(k,Z'3V3GN5qcHNk"a'eflTmZ6'L3IA`@'*E'rI$XTTmH#"IFGC1-4 L4%J2`V5qZSGr,M*c,SIc'ie`N`L3!$-Rk0f@#(A6r25PX!rTk8S'++lfa*hKEJl mCL"0-RZK1K+IhRA*(*(raTjrb$bmbJpQkLr88rX'AY)[`#T(H(b1adqbc@-IF"" QRk%hf&i(3lL)aLR"G(XR6mMmLf"Qj*KLTjD0`rQp0j+)$9i04E'8Vp!RFD+XDYj P6G8ShIQidpcIB86J,PpYfpQmqh&(`[IVXahZD!iM"*J#hNK-9qVm)D!ll5'IABU FX0MAK*VZD+ZpV%kfk&pG!N,#Pq(d6LJ3m%#KQ8bb%5kTXTUbG-PK8`[jU1dZhf3 A9XjIQI,2GPfaRmVbqrC)FaQPc5hFhNrCIH8"KXp2IRRT2D8r&UjVK%4H6T&"**f *dH-arEUA&4pCh,Ji9flH(*RFRb+-EGQQd*G-`ck[D%irE,,plR*#JMYipIGfDr& fcm6BPrd2m'iDZV'&h1ji@8JH$#"CNYd%i(p[SqK6'Z9+IE'fr4X29H`bP2IM!Jr @J`&60iUGZlUjkaVX+`8GZDlXRYFSr"Vm2`!![%X!!!%!N!-"&!#3!a3!N!-b$!1 c@'!%%#CB%#CJ+ffdd,0LUbT"Bd#5CK"H%K!QD,)-4Qa[BA4TEQFZFfPd!J)!N!0 6594%8dP8)3#3#&0*9%46593K!*!BU%HY&J!!&0J!!!&'ER5RT3'cCJ5X!8B`kd# mrkj)E9!!$BS[$[!-NT&AB@9fG#mmFA9T!!"d5'd*8N+R3LF`2!NIU"C1#!fY"4+ AeQpKF($`i8TIjH2AEf4[Bkd!m1&UAqAMeh#crATI!Ne38b![2'pe'KCd)IH5A`+ $#'4TB@I`!0m521-$B@jc'Jebm!#3!a!!+`!&!4J#!*!(!`#3!`%!N!-"&!#3!a3 !N!-b!-Q86![#!*!$(!!b!!"6CA4R!*!$#J!!rrm!N!A*fha[H`: