-not a Macintosh disk-DPi`KJDBH@%4mqKNP"N,L 8!"@$|Gn"`I N.@A,H<( F<B<H111.Bx<kNNF`, 8! "NH@"|J(g g`LNu"_ |a||a0@||9݁g|w|a||NH瀀 |(_@"g2<@gBA?N`Fa`||aPLNu  fBR$N"NBH@&|݁ |B$<0HN~NL@dBgg>N&|)`RNuBBBA*2h/ BBB N _"_$_"H&|݁ |B$<0NNd 0<`L$|J HA H  2I<FFI<<FFfHHFFfHHH?B@L"_2N _0H 2<@I6@o Az:<2`6@oJA~:<26" @n2BDBB(`EB@nAJEkz`z2<HAIL0.NL0.N  / p? O@ 0  0  XO _,_2_!.NBBB/ BBBN08 @ gNu@ f"_E!NH\O/ ?`@&x|N _!@"|xEz En"`CE"|xN"Ҹ< A  33"|@E E4n"`C&E"|@.N _LHNFLN*8&E@<<'CJJKK f`  f `><$CS*<FF4>BRIBC Gff&<CBSC`D GnKG45BQf` f `Ns |0< BXHQ!4 _$_"_!XOHH/8/ $ f0<? QN ! N.x $_$ g ! N.x !C !!LLyp!N\OFN  l0P߀ Aǀ`  6lo6@ 0_an*>]> j 56, l602  ۰Poo A` &ll6p@ 0?۷a?^ ꭕ 5o6, l602 8!ED91kE"0369? CoNGNOS BOOT FAILED TRY A NEWER MACHINE AND BOOT PROM _"_NN/A lNNu _.NHL$ orD?|?@?e\SFk!!QSWk:CL<HL|hH>L|4H>L|H>SWjTO>SGk\!Q`TSFk QSWk8L|H|L|H|4L|H|hL|H|LSGkQLx _O NNVH8=| f=|G* G, &N(N n"n$n 0.  S@ZeJ S@BBDBG S@gg.BC CJDg720faL`fa:` 320f8<S@`JDg  fa$` fa`  U@o$SBjt`(N&N><`JGg (Ev#$#$QNukJDg`g 3$f(N`BnLN^ _NUNPACK H>8$O&j.(j4,*8:*,BB6*2SCCn`8CL0@D@04"F K0HEY@2< Vb,g`aJaBVgbHE6SCCo`p`HE4RBCo8B@ j(0 j$L| _pN am znNu _"_$_$0H2< @`Q`BQBNNV;n *N^.NuEVINIT NVH,. ^J]g n0`4B?N. f n0`/.//. /.N6(n)FLN^ _NEAD_BLONV/ (n Jno./.?././ /.Nj nJPg`RSn`(_N^ _NEAD_SEQHNT"|E.|r |BBByBygRBf~NuLHPPNqNqpS_n.0<QLHPPNqNqpS_n|~By&JM*Np|azJGfb|a|,Mpa`JGfH|a<<AaJGf0Avtp BQvr BQH@02N\LhL"4NtB@6Kd a"JDf`02IP g a JDf`Nub SBg pxNuBDNu><Nu4< vB@bp2IPSCfSBfNuppB@(4<dBC(4< CBC(C"H4<BACSBf(CAg><NuJoNV?-,N.H|)?NN^ _TONRAP NV.HgVS@g`J.f& -`мS//<N/<NB+_`-m` . ѭ` -`o<Np`B . \J.f/-\/<N4/<N+_\-m\ -\l<N,N^ _PONGETSPACNV .мS//<N/<N-_ .=@ N^.NuINDSPARNVH.. Bg/N0Hހ m0.@I/./<N 8//<Np @n ?.Bg?<BgNLN^ _ NETMMU NVH+| d+|l+|(+||+|+|t+|(|;TV(|;T|(|.;Tz&| n!SLN^.NuETVARS NVH/Nt;| .䐼/+@ .м/м+@+|`*<(< E"D +@\&|?-|0-VS?NHnHmJNJngp+@JBBg/-BgNz+_ -Э+@XBB<0<H/BgNPN+_P+mPBG` m @I G~V GTVgd Gl|p@ @8`$ Gf|p@BT`| p@BT H< @"@=A?.??<BgNRG Gox mI|p@BT mIP|p@/-P/<N* 8LN^NuOOTINITNVH(nB BgNBgNHH,BgN0HѬ f,/, N"BgNBgNHH,BgN0HѬ f,/, NBgNrBgNjHH,BgN0HѬ f:Jf< N/, NBgN2BgN*HH,BgNb0HѬ g<NLBN,BN+_ n/BN|  _r Ё0p//-`N/-/-`N&m`:=E E0o<N0<H+@l+| -lЭd n2HҀ -Ё"-Ҁ(Bg Э/N0Hѭ -Є+@B</-BgN+_+mh -dЭh+@p -lЭp, n0HІ+@ -Э+@ -Э+@?<f/-/-?<Nb-m/ /./-N n LN^ _ NUILD_SYNVH(nBGBF. gB `P-n n0. PoB."` n0. A-H&n/+/<N  n0>+<+/, NBgN<BgN4HH-@BgNj0H(٬ JVJ_gB."`4JGW WJGV WgJFf n `H n n/B."n/BgN2  _ BNB-_JGf n Q/ n P/Nr` Q@H/ n P/NZ|B. n=h-nA-H n-P/./.p/N JGgR-mBg n/( n r Ё/ n P/ nP/ | ? Q@?N9_Jlg< N, nQ f|"LN^ _NOADSEG NVHBBg/-tBgN+_x -x"-Ҁ+At(|`p}//<Nn -Пx((|p}//<NN -Пx(?<}/-x/-t?<N&|BSLN^.NuLLOC_SCNVHAC 0BgHnNz_m+m-gBBg/-BgNP+_`+m-gBBg/<BgN, м,BgBgBHnBgHnHnBg/.N g<NACD 0BgHnN  g B-n`.BgBgBHnBgHnHnBg/.Nx g<Nf .@+@ -Э+@` B -@+@ -м@+@?</-/-?<N@ <逐.JfB` .ЇP-@JfB` .ЇP-@-g -Ї/ -Ї//./.N`/-/-BBN(|p((|t(LN^.NuOAD_DEB SYSTEM.DEBUG2 SYSTEM.DEBUGNVH nCJp"S@n2&n (nBBgHnN dgZB /, N NBgN BgN HH(BgN0H* f&.B</BgN&B /, N //NlLN^ _ NOAD_UNPNVBgBgBHn</. /.Bg/.N g<NN^ _ NOAD_LLDNVH(n 0-N|>Jg,, .* Ю(H//<N( Д-@`,.(.H//<N-_?//?<N. .P/NdLN^ _NNSTALL_NVH(n=n ~`/, N BgN p_BgN fHH(BgN 0H-@Jg .Ѭ `<N~ .fBN (BN ( GfAB0pB5pB`ACZ 0z`BgN _ .ARE EoHn?<?<HnNAC 0HnHzNg(AB0pp @AB @AB`2HnHzNPgAB0pB5pB`App| 5pgnBg?/.Hn @AHp @AHp</.NX g<NF?. @A/0 @A"0Ҽ/?<NHRGinoLLN^ _ NOADCODEkrni NVBBg/-BgN+_?<e/-/-?<NN^.NuAKESUPSNVH(m . R A T&@-kLN^ _ NINDMAINNVBg/-NF0HѭB</-BgNx+_?<g/-/-?<N\Bg/-|N 0Hѭ|B</-|BgN>+_?<{/-/-|?<N"N^.NuLLOC_OPNV A0C ArC 0AC 0/NLHnHm/NFBgHn0N g< NHnHn/NBgHnrN g<N^/NZBg/.Hn$/N;_N/./.Hm/N-UgNj/.$?-N/N@/N2 n /B/.$0-NH//NR  _ /NBNj+_N^ _PONOADSYS $ SYSTEM.UNPACK SYSTEM.OS SYSTEM.LLDN :NV,_NUvN ,+|v mv PVD@UNHmHmNHm?- -|Э//-NzNZN N]N NuN^NuOADER NVHAv(HA^&HHn?-.0-0H".Ҁ// / NrJng<NLN^.NuEAD_PAGNV0.HBH"-DҀ-A0.HBH@J@=@/.NvAv0.HЈ-@ N^ _TONIND_SENNVBH nCJp"S@n2 n BBgA/A/Nz-m2Av(H&L U.=m6B|`A^-HHAv(BE`:HnN?-.0-0H".ҀH҅///.HNhؼJnNg<NRE Eom6l^Bn So4 X/ U/0S@?A/?<$Hn/. N n gRn G0.D@@20HҌ-A n-P`/ /?A/?<$Hn/. NRFinBo$ n g< G0.D@@20HҌ-A/.HnP?<NN n/B?.vN4  _ LN^ _ ND_SEARCNVH n-h .S/0-:H/N ;@Z-n p+@V;m:\BF` AvIBBlRF Fo=mHnNBgHn?->N>H/p6/NNZBp6/A/NACp S@n0HnN^J.gHHnHnN .Wgz n/B?.N  _ `SFRGm>fBGBNJFfELN^ _PONOOKUP_ENVH.<A"G";n .;m.,?.?-.N;n0BN&Av(HJg<NH;l~:+lD;lB;l>;l@;l<;T8;l26+l.2 2f<N m8lB?,N&_+SH+kL+kPLN^.NuNITMEDINV m8lBg/.HnN2_`/.HnHnNn .gB/.N-_N^.NuPENINPUNVH(.BGBF Go<NR Av:0JEf<N8 EHl@ AvH"Ұ n n Jf<NHH " n ``RGE`LN^ _ NIND_POSNV-mV/.0-:H/N+_VJV]2-ZHV]g<N0-:H/-V/N2 .;@\ -Vg/-VHnHnN/.N"N^.NuILLBUF NV0-\m:f -VR2-:H//NNT0-\AvpRm\N^NuETBYTE NVHBgNHH<BgNH>JGl H м> G=@LN^NuETWORD NVHBgN0H//<ND,BgN0H.Jl޼ Ї-@LN^NuETLONG NVH,. 0-:m\>HǼl>JGo0-\AvA//.H/NH߮Hǜm\0-:HnJV]2-ZHV]g<N -VR/HnHnNn-nA^(H/0-:H/N*l-EJoZHn?-.0-0H".Ҁ/?././ NjJng<N~0-:H/./N(ٮ .Ѯ .ѭV`:Jo -VR2-:H//NNhJfLN^ _PONOVEMULTNVH(n0,k @nH0;N *6BN\BgHlN_`n/,N`dBgN_`XBgN9_`LBN)_`@/,/,N:`2&l.,/ ?-.0-0H", Ҁ/?,/ /NP`<NhLN^.NuRIVER_C//0/2/ AH@B@2/Ё/@" /WXNuNV// /"/N:/A" N^/WXNuNV// /"/N/@" N^/WXNuH>*jD,jD$HBJBf6B@H@g4HB04"B@H@`$&BBxԂрҁmRQJjDjDL|NuNuNuJoNu$_0 _"_J @o4$ Tg,2ABAgSBgS@2@ISA QS@kQN$_0 _"_J`!QN$_02 _`QNHBB oJ0/2/gk gRBSAn` R gSBRAk?B/oL\NuHBB oJ0/2/gk fRBSAn` R fSBRAk?B/oL\NuHr`HBA oJ"oJB@f`fQ AA/oL\NuH"o J oJv`:H"o J oJBC`&H o J"oJv`H o J"oJBCB@BA@m4`4`fQ@n C`cC"/oL\NuH0/ oC"4JBAR`$aJBBB`QQ oC"0/H#//IL._NuH oJB@BA"o JBBBlBA`$HR` fQ`RS@`?A"/oL\NuH o0/2/SA"o JBBA@m`Q/o L NuB`$_02 _ @o0 Ao*BBAm"6@SCBoSA`@"H`RCoN$_0"_ _J/ S@m*BABB@m6B$I”@`!Q`QNuG5UTK1̆V{tITOR.OBJ|̆^G :a$kTk:)$ "#." #"##%& ! ? M Q  W [e k q w  $F.1 .1m$*Ask.TEXTLLo$*AskDir.TEXTLםL $*Install.TEXTL͝Yc$INTRINSIC.LIB U-U˟$M1CLASEXAMPLE.TEXT ۞۝Q2 $M2CLASEXAMPLE.TEXT ۥJQȑ $MPEXAMPLE.TEXT ۡRQ5 $TKLIB.OBJ)O$U1CLASEXAMPLE.TEXT ۞" $U2CLASEXAMPLE.TEXT۟۟ $UPEXAMPLE.TEXTu"$UPEXAMPLE.TEXTu"$UPEXAMPLE.TEXTu"$WorkDir.OBJGG dmwy the d${D32T5}drthe d${D32T5}$Ddsthe d${D32T5}$Rdt the d${D32T5}$Sduthe d${D36T4}dzJL the d${D47T1}d::the d${D47T1}TEMPd9L9Nthe d${D56T4}d'* the d${D56T4}.SUSPENDd9%9'< the d${F12}dS|the d${F16}dX|the d${T1313}PHRASEdd[Z%& the d${T1313}scr1.rsrcd?)۝$$the d${T1313}scr2.rsrcdgyQ the d n nn@@@@NNNN *Ask.TEXTTEXTxSn`N^ _PONН]&LNLoNV n  M *AskDir.TEXTTEXTxSn`N^ _PONН]'LםWLNV n  Q *Install.TEXTTEXTxSn`N^ _PONН](L͝YcNV n  W TKLIB.OBJ.OBJ. . ̎]))ONV n   INTRINSIC.LIB.LIB. . ̎]*U-zU˟NV n  [ M1CLASEXAMPLE.TEXTTEXT. ̎]+۞۝Q2NV n  eM2CLASEXAMPLE.TEXTTEXT. ̎],ۥJQȑNV n  kMPEXAMPLE.TEXTTEXT. . ̎]-ۡRQ5NV n  qU1CLASEXAMPLE.TEXTTEXT. ̎].۞" NV n  wU2CLASEXAMPLE.TEXTTEXT. ̎]/۟۟ NV n  UPEXAMPLE.TEXTTEXT. . ̎]0u"NV n   *install..TEXT..TEXT JWNV n  *install..TEXT..TEXT NV n   install..TEXT..TEXTL11LŝLϝLNV n  3. "6F^9EXD!$ǐ^lLne default answer. (b+pJ̫̑xv̐pJ@̫̫̐p(bEXEC(prompt,default,ln,temp) ${ Ask the user the yes/no question, prompt, giving default as the default answer. &Returns 'Y' or 'N'. } SET default TO COPY(UPPERCASE(default),1,1) IF (default <> 'Y') AND (default <> 'N') THEN $SET default TO '' ENDIF SET ln TO '' WHILE ln = '' DO $IF default <> '' THEN (SET temp TO CONCAT(' [', default, ']') $ELSE (SET temp TO '' $ENDIF $SET temp TO "[prompt] (Y or N)[temp] " $REQUEST ln WITH temp $SET ln TO TRIMBLANKS(ln) $IF ln = '' THEN (SET ln to default $ENDIF $SET ln TO UPPERCASE(ln) $IF (ln <> 'Y') AND (ln <> 'N') THEN (SET ln TO '' $ENDIF ENDWHILE RETURN ln ENDEXEC 3. "6F^9n)D!$ǐ^  nL-' THEN (SET ln TO "[ln]-" $ELSEIF (ln = '#PREFIX') OR (ln = '-#PREFIX') THEN (SET ln TO '' $ELSEIF(f.}pJ̫̑xv̐pJ@̫̫̐pSE ,S(f.}pJ̑R̢P̑xv̐FFFpp̫.FPFP\̑N̐ÆFFxpJ@̫-̫ĀZ̢PxFPF̑N̫̐FFxFF.@ppJŊ̫-̫EXEC(prompt,ln,temp,default) ({ Given a prompt such as 'Enter directory to which to copy sources', this ,exec file returns a directory as '--' or '' (means the prefix volume); ,the that is entered is used as the default the next time this is run. } ${ Set up the prompt string & default (if any) } RESET COMMBUFR, 'TK Install' READLN (COMMBUFR) default IF (default <> '') AND (default <> 'EOF') THEN $SET temp TO CONCAT('[', default, ']') ELSE $SET temp TO '[prefix volume]' $SET default TO '' ENDIF SET prompt TO "[prompt] [temp] " WHILE TRUE DO $REQUEST ln WITH prompt $SET ln TO UPPERCASE(TRIMBLANKS(ln)) ({ Put the input into the proper form } $IF (ln = '#PREFIX') OR (ln = '-#PREFIX') THEN (SET ln TO '' $ELSEIF COPY(ln,1,1)='-' THEN (SET ln TO "[ln]-" $ELSEIF ln = '' THEN (IF default <> '' THEN ,SET ln TO "-[default]-" (ELSE ,SET ln TO '' (ENDIF $ELSE (SET ln TO "-[ln]-" $ENDIF +{ ln now is of the form '--' or ''} $IF temp = '' THEN (RETURN temp $ENDIF $SET temp TO COPY(ln,1,Length(ln)-1) $IF Exists(temp) THEN (REWRITE COMMBUFR, 'TK Install' (WRITELN (COMMBUFR) COPY(ln,2,Length(ln)-2) (RETURN ln $ENDIF $WRITELN "The directory '[temp]' does not exist." ENDWHILE ENDEXEC 3. "6F^9DED!$ǐ^BYc̛R6 TD$EXEC(dir) $CLEAR SCREEN $ F{} $ $IF <-TK1-*Ask(Do you want to install TKLIB?,Y) = 'Y' THEN $ { Put TKLIB.OBJ & INTRINSIC.LIB on the BOOT volume } $B{}-TK1-TKLIB.OBJ,-#BOOT-$ $B{}-TK1-INTRINSIC.LIB,-#BOOT-$ $ENDIF $ $ { Ask about installing the Clascal examples } $IF <-TK1-*Ask(Do you want to install the Clascal examples?,Y) = 'Y' THEN $ $$SET dir TO <-TK1-*AskDir(Where do you want to put the Clascal examples?) $ $ { Install the Clascal examples } $B{}-TK1-M1CLASEXAMPLE.TEXT,[dir]$ $B{}-TK1-M2CLASEXAMPLE.TEXT,[dir]$ $B{}-TK1-MPEXAMPLE.TEXT,[dir]$ $B{}-TK1-U1CLASEXAMPLE.TEXT,[dir]$ $B{}-TK1-U2CLASEXAMPLE.TEXT,[dir]$ $B{}-TK1-UPEXAMPLE.TEXT,[dir]$ $ENDIF Q{} $ $DOIT $WriteLn 'Installation Completed.' $ENDEXEC &bPASLIB UNITSTD GRAFUTILUNITHZ $STORAGE QUICKDRAHWINT FEDEC FONTMGR TEVENTS WINDOWS FOLDERS  MENUS FLDUT WMLSTD WMLCRS WMLGROW WMLSB 8INTERNATFPLIB ALERTMGRMATHLIB UNITFF JUNITCS DUNITFILEVUNITFMT BGENV XMATMGR PARSER COMPUTE STUBS UUNIVERS "FEGLOBAL!COMGR "RDBENV ?HEAP @VLTREE ACZCOMPACBLABSCAN DSCHEMA ESCAN FFIELDEDIGSCRAP IPFILERCOMKPRPUBLICLPRSTDINFMPRSTDPRONPRFILEPROPRBUF PPRSPOOL QFQUEUES RPREVENTSSPRDLGMGRTPRMGR U&UVT100 V USOROC W STDUNIT X IUMAN ZOBJIO [FILEIO \GRAPHS ^TREES _REFS `PARTS aLISTS bMEMMAN cPASDEFS d^MPASLIB eBLKIOINTfBLOCKIO gPASHEAP h" [SgParRes v$SgTxtIni WSgTxtRes <ySgTxtTwo یwSgDialog nH>SgDIAdbg SJSgLayout 7^TKUT  j:sQPortIn  sQPortRe  `@sQPortCo  'sQPortTE  0x.*PASLIB1 LLWWORK zOTHRWORKVPACTIVATE2OPENSEG1PINcold  FNEVER `v$SgABCdat OJSgABCdbg 4SgABCini $rFSgABCcld l>ASgABCres  ubalert ނ!@WMcold p!0SMcold .SUcold "Nb NEWSEG1 #O* SgDRWres$ Uug0LCxCalcs/%L2lLCBG1res0@K dLCBG2res1ل LCspecif2h UT 3"xBGspecif4 dNEWSEG2 5[\ debug2 6V%PRdialog78OpenClos8b.X>initial 9TCutPaste:7KjspecialC;~$openclos<7,%SgCLAdbg= "`access >4_swapaccs?^x!Dfrecovse@!SYSINIT A|R1^SgABCpriB PMMSeg CWORKSET D@HGRAFSEG E*m>FEcutCopF'FEcold G SBcold HhOPENSEG2IPrBtn JxDxMOVERS K+Prwork LPrMgr M xALRTDIALN<OPEN1LW O Pr PK(PrInit QC"Nfpsane S.Lfpelems TNdfpreal UnpfprealioVa fpdecstrWP Bcorrbd Y(mathlib ZvJfinance [nmatrix \L(double ]„mathsort^R4solve _ʾPASIOLIB`1OSgPASinibSULib c 'PCObjIOLibds$sMPASLIB ev:  . @ R d-#BOOT-OBJIOLIB.OBJ-#BOOT-*IUPASLIB.OBJ -#BOOT-IOSPASLIB.OBJ -#BOOT-SYS1LIB.OBJ -#BOOT-IOSFPLIB.OBJ-#BOOT-SYS2LIB.OBJ -#BOOT-PRLIB.OBJ -#BOOT-LCORBGLIB.OBJ -#BOOT-QPLIB.OBJ -#BOOT-TKLIB.OBJ -#BOOT-TK2LIB.OBJ-#BOOT-SULIB.OBJ #J_ _l||?_fHh/ yNu/gg B/ yNuXO/ `/BH@@@f _Nu? NIL THEN 8BEGIN 8thisShape.Erase; {Erase the shape from its present location} 8thisShape.Move; {Assign it a new location} 8thisShape.Draw(gray); {Draw it in its new location} 8END; 0OTHERWISE 4BEGIN 4nextShape := SELF.NewShape(ch); {NIL if an unrecognized command, else a TShape} 4IF nextShape <> NIL THEN 8BEGIN 8IF thisShape <> NIL THEN {Erase and deallocate any existing shape}  NIL THEN 8BEGIN 8EraseShape(SELF); 8HFree(Pointer(ORD(SELF))); 8END; 4IF (ch = 'r') or (ch = 'R') THEN 8SELF := NewRoundRect(itsHeap) 4ELSE 8SELF := NewArc(itsHeap); 4DrawShape(gray, SELF); 4END; 0'm','M': 4IF SELF <> NIL THEN 8BEGIN 8EraseShape(SELF); 8RandomRect(SELF); 8DrawShape(gray, SELF); 8END; ,END; (UNTIL (ch = 'q') or (ch = 'Q'); $END; END. %F B-TK1-TKLIB.OBJ,-#BOOT-$ B-TK1-INTRINSIC.LIB,-#BOOT-$ B-TK1-M1CLASEXAMPLE.TEXT,$ B-TK1-M2CLASEXAMPLE.TEXT,$ B-TK1-MPEXAMPLE.TEXT,$ B-TK1-U1CLASEXAMPLE.TEXT,$ B-TK1-U2CLASEXAMPLE.TEXT,$ B-TK1-UPEXAMPLE.TEXT,$ Q %% %%% CObjIOLibds$sMPASLIB ev:  . @ R d-#BOOT-OBJIOLIB.OBJ-#BOOT-*IUPASLIB.OBJ -#BOOT-IOSPASLIB.OBJ -#BOOT-SYS1LIB.OBJ -#BOOT-IOSFPLIB.OBJ-#BOOT-SYS2LIB.OBJ -#BOOT-PRLIB.OBJ -#BOOT-LCORBGLIB.OBJ -#BOOT-QPLIB.OBJ -#BOOT-TKLIB.OBJ -#BOOT-TK2LIB.OBJ-#BOOT-SULIB.OBJ #J_ _l||?_fHh/ yNu/gg B/ yNuXO/ `/BH@@@f _Nu?6n $DAA6n6D<4EXEC(prompt,workdir,ln,temp,default) ({ Given a prompt such as 'Enter directory to which to copy sources', this ,exec file returns a directory as '--'; the that is entered is ,used as the default the next time this is run. workdir must be the name of ,the WORKDIR program, which returns the current working directory. } ${ Set up the prompt string & default (if any) } RESET COMMBUFR, 'TK Install' READLN (COMMBUFR) default IF (default <> '') AND (default <> 'EOF') THEN $SET temp TO CONCAT('[', default, ']') ELSE $SET temp TO '(eg., PARAPORT)' $SET default TO '' ENDIF CURSOR HOME CLEAR SCREEN SET prompt TO "[prompt] [temp] " REQUEST ln WITH prompt SET ln TO TRIMBLANKS(ln) ${ Put the input into the proper form } IF COPY(ln,1,1)='-' THEN $SET ln TO "[ln]-" ELSEIF ln <> '' THEN $SET ln TO "-[ln]-" ELSEIF default <> '' THEN $GOTOXY Length(prompt),0 $WRITELN default $SET ln TO "-[default]-" ELSE $RUN workdir $SET ln TO RETSTR ENDIF #{ ln now is of the form '--' } REWRITE COMMBUFR, 'TK Install' WRITELN (COMMBUFR) COPY(ln,2,Length(ln)-2) RETURN ln ENDEXEC G5UTK1̆V{tITOR.OBJ|̆^G :a$kTk:)$ "#." #"##%& !  SgABCdat OJSgABCdbg 4SgABCini $rFSgABCcld l>ASgABCres  ubSgDRWres$ Uu 20} {$U LIBOS/PSysCall} PSysCall, {$ENDC} {$IFC LibraryVersion <= 20} {$U FontMgr } FontMgr, {$ENDC} {$U QuickDraw } QuickDraw, {$IFC LibraryVersion > 20} {$U FontMgr } FontMgr, {$ENDC} {$U libtk/UDraw } UDraw, {$U PMDecl } PMDecl, {$IFC libraryVersion <= 20} {$U PrStd } PrStd, {$ENDC} {$U WM.Events } Events, {$U WM.Folders } Folders, {$U WM.Menus } Menus, {$U AlertMgr } AlertMgr, {$IFC LibraryVersion <= 20} {$U PrProcs } PrProcs, {$ENDC} {$U WMLstd } WMLstd, {$U WMLCrs } WMLCrs, {$U WMLSb } WMLSb, {$U WMLGrow } WMLGrow, {$U Scrap } Scrap, {$IFC libraryVersion <= 20} {$U PrMgrUtil } PrMgrUtil, {$U PrMgr } PrMgr, {$ELSEC} {$U PrStdInfo} PrStdInfo, {$U PrPublic} PrPublic, {$ENDC} {$U FilerComm } FilerComm; {$SETC fDbgABC := fDbgOK} {$SETC fRngABC := fDbgOK} {$SETC fSymABC := fSymOK} {$SETC fDebugMethods := fDbgABC} CONST maxMenus = 31; maxFonts = 11; maxSegments = 6; maxSegSize = $20000; abortChunkSize = 32768; iconNameSeparator = '<'; stdHHysteresis = 9; stdVHysteresis = 6; noCursor = -2; hiddenCursor = -1; arrowCursor = 1; crossCursor = 9; textCursor = 10; checkCursor = 12; smCrossCursor = 13; fingerCursor = 14; firstUserCursor = 100; nothingKind = 0; noCmdNumber = 0; docLdsn = 3; docDsBytes = 5120; docExcess = 2048; printLdsn = 2; ascArwDown = $1F; ascArwLeft = $1C; ascArwRight = $1D; ascArwUp = $1E; ascBackspace = $08; ascClear = $1B; ascEnter = $03; ascReturn = $0D; ascTab = $09; phWordDelimiters= 9; phTrouble = 10; phUnknown = 11; phNoText = 21; phNoSel = 22; phNoInsPt = 23; phRevert = 24; phRevBlank = 25; phUnkCmd = 26; phSelCant = 27; phUnchanged = 28; phSaving = 29; phTerminated = 30; phEditClip = 31; phNoClip = 32; phUnkClip = 33; phDialogUp = 34; phCantUndo = 35; phNoCommand = 36; phOlderVersion = 37; phNewerVersion = 38; phConverting = 39; phAborting = 40; phPage = 41; phTitle = 42; phCantSave = 43; phCantRevert = 44; phCountry = 45; uCreateLayoutBox = 701; uMoveLayoutBoxes = 702; uCmdLaunchHeading = 703; uCmdInstallMargins = 704; layPickKind = 119; layEditLegendKind = 133; frameKind = 161; phTooManyChars = 101; phOddEven = 102; phOddOnly = 103; phEvenOnly = 104; phOddOrEven = 105; phMinPage = 106; phMaxPage = 107; phPageAlignment = 108; phAlignment = 109; phTopLeft = 110; phTopCenter = 111; phTopRight = 112; phBotLeft = 113; phBotCenter = 114; phBotRight = 115; phLaunchHeading = 116; phPageMargins = 117; phUnits = 118; phInches = 119; phCentimeters = 120; phLeft = 121; phLeftCluster = 122; phTop = 123; phTopCluster = 124; phRight = 125; phRightCluster = 126; phBottom = 127; phBotCluster = 128; phInstallMargins = 129; phInchTitle= 130; phCmTitle = 131; phNewHeading = 132; phOK = 142; phCancel = 143; stdBoxWidth = 17; stdBoxHeight = 11; stdBoxSpacing = 20; stdCurvH = 18; stdCurvV = 14; stdBtnHeight = 22; noIDNumber = -2; noId = ''; IDLength = 9; stdTitleHeight = 10; stdSlimTitleHeight = 6; stdLeftRightBorder = 3; stdBottomBorder = 2; erAborted = 4033; erDuplicateName = 890; erInvalidName = 971; erNameNotFound = 972; erPassword = 4201; erVersion = 4202; erBadData = 4203; erCantRead = 4304; erCantWrite = 4305; erDirtyDoc = 4306; erNoMoreDocs = 4307; erNoMemory = 4308; erNoDiskSpace = 4309; erWrongPassword = 4310; erMaxToolKit = 4499; uSetAllAside = 101; uSetAside = 102; uPutAway = 103; uPrFmt = 104; uPrintAsIs = 111; uPrint = 105; uPrMonitor = 106; uSaveVersion = 107; uRevertVersion = 108; utSetAside = 109; uSetClipAside = 110; uTyping = 150; uBackspace = 151; uEnter = 152; uForwardSpace = 153; uReturn = 154; uTab = 155; uSomeCommand = 156; uScrolling = 157; uSplitting = 158; uResizeWindow = 159; uResizePanel = 160; UMousePress = 161; uThumbing = 162; uMoveWindow = 163; uKeyDown = 164; uCopy = 201; uCut = 202; uPaste = 203; uSelAll = 204; uUndoLast = 205; utUndoLast = 206; utRedoLast = 207; uClear = 208; {$IFC LibraryVersion <= 20} uFnt0 = 300; uFnt1 = 301; uFnt2 = 302; uFnt3 = 303; uFnt4 = 304; uFnt5 = 305; uFnt6 = 306; uFnt7 = 307; uFnt8 = 308; uFnt9 = 309; uFnt10 = 310; uFnt11 = 311; {$ENDC} uModern = 320 + famModern - famMin; uClassic = 320 + famClassic - famMin; u20Pitch = 330 + size20Pitch - sizeMin; u15Pitch = 330 + size15Pitch - sizeMin; u12Pitch = 330 + size12Pitch - sizeMin; u10Pitch = 330 + size10Pitch - sizeMin; u12Point = 330 + size12Point - sizeMin; u14Point = 330 + size14Point - sizeMin; u18Point = 330 + size18Point - sizeMin; u24Point = 330 + size24Point - sizeMin; uPlain = 351; uBold = 352; uItalic = 353; uUnderline = 354; uShadow = 355; uOutline = 356; uSuperscript = 357; uSubscript = 358; uPrvwMargins = 401; uPrvwBreaks = 402; uPrvwOff = 403; uDesignPages = 405; uShowFullSize = 406; uReduce70Pct = 407; uReduceToFit = 408; uSetHorzBreak = 411; uSetVertBreak = 412; uClearBreaks = 413; uRiseVertically = 421; uRiseHorizontally = 422; uAddColumnStrip = 431; uAddRowStrip = 432; uReportEvents = 501; uCountHeap = 506; uCheckIndices = 509; uDumpGlobals = 510; uDumpPrelude = 511; uExperimenting = 512; uReptGarbage = 513; uFreeGarbage = 514; uMainScramble = 515; uDocScramble = 516; uEditDialog = 521; uStopEditDialog = 522; {$IFC fDbgABC} mBuzzword = 100; {$ELSEC} mBuzzword = 90; {$ENDC} mnuClipFilePrint = 1000; firstPrivateEvent = 100; {$IFC NOT fDbgABC} fExperimenting = FALSE; {$ENDC} TYPE TPrinterMetrics = RECORD paperRect: Rect; printRect: Rect; res: Point; reserve: ARRAY[0..7] OF BYTE; END; TPreviewMode = (mPrvwMargins, mPrvwBreaks, mPrvwOff); TDiResponse = (diAccept, diDismissDialogBox, diGiveToMainWindow, diRefuse); TEnumAbilities = (aBar, aScroll, aSplit); TAbilities = SET OF TEnumAbilities; TUnitsFromEdge = (pixelsFromEdge, percentFromEdge); TAlertArg = 1..5; TAlertCounter = 7..9; TAlignment = (aLeft, aRight, aCenter, aJustify); TPageAlignment = (aTopLeft, aTopCenter, aTopRight, aBottomLeft, aBottomCenter, aBottomRight); TClickState = RECORD where: Point; when: LONGINT; clickCount: INTEGER; fShift, fOption, fApple: BOOLEAN; END; TCmdNumber = INTEGER; TCmdPhase = (doPhase, undoPhase, redoPhase); TCursorNumber = INTEGER; TEnumIcons = (iSkewer, iScrollBack, iFlipBack, iGrayA, iThumb, iGrayB, iFlipFwd, iScrollFwd); TMousePhase = (mPress, mMove, mRelease); TRevelation = (revealNone, revealSome, revealAll); TPrReserve = ARRAY [0..127] OF Byte; TPrelude = RECORD password: INTEGER; version: INTEGER; country: INTEGER; language: INTEGER; preludeSize: INTEGER; unused: ARRAY [0..5] OF Byte; printPref: TPrReserve; docSize: LONGINT; numSegments: INTEGER; docDirectory: TDocDirectory; END; TPPrelude = ^TPrelude; TSBoxID = LONGINT; TWindowID = LONGINT; TWmgrCmd = RECORD cmdNumber: INTEGER; menuIndex: Byte; itemIndex: Byte; END; TProcess = SUBCLASS OF TObject FUNCTION CREATE(object: TObject; heap: THeap): TProcess; {$IFC fDebugMethods} PROCEDURE DontDebug; {$ENDC} {$IFC fDbgABC} PROCEDURE DumpGlobals; {$ENDC} PROCEDURE ChangeCursor(cursorNumber: TCursorNumber); PROCEDURE DoCursorChange(cursorNumber: TCursorNumber); PROCEDURE TrackCursor; PROCEDURE ArgAlert(whichArg: TAlertArg; argText: S255); FUNCTION Ask(phraseNumber: INTEGER): INTEGER; PROCEDURE BeginWait(phraseNumber: INTEGER); FUNCTION Caution(phraseNumber: INTEGER): BOOLEAN; PROCEDURE CountAlert(whichCtr: TAlertCounter; counter: INTEGER); PROCEDURE DrawAlert(phraseNumber: INTEGER; marginLRect: LRect); PROCEDURE EndWait; PROCEDURE GetAlert(phraseNumber: INTEGER; VAR theText: S255); PROCEDURE Note(phraseNumber: INTEGER); PROCEDURE RememberCommand(cmdNumber: TCmdNumber); FUNCTION Phrase(error: INTEGER): INTEGER; PROCEDURE Stop(phraseNumber: INTEGER); PROCEDURE Commence(phraseVersion: INTEGER); PROCEDURE Complete(allIsWell: BOOLEAN); FUNCTION AbortRequest: BOOLEAN; PROCEDURE AbortXferSequential(whichWay: xReadWrite; pFirst: Ptr; numBytes, chunkSize: LONGINT; fs: TFileScanner); PROCEDURE ObeyEvents(FUNCTION StopCondition: BOOLEAN); PROCEDURE ObeyFilerEvent; PROCEDURE ObeyTheEvent; PROCEDURE Run; PROCEDURE HandlePrivateEvent(typeOfEvent: INTEGER; fromProcess: LONGINT; when: LONGINT; otherData: LONGINT); DEFAULT; PROCEDURE SendEvent(typeOfEvent: INTEGER; targetProcess: LONGINT; otherData: LONGINT); PROCEDURE BindCurrentDocument; FUNCTION NewDocManager(volumePrefix: TFilePath; openAsTool: BOOLEAN): TDocManager; DEFAULT; PROCEDURE CopyExternalDoc(VAR error: INTEGER; externalName, volumePrefix: TFilePath); DEFAULT; END; TDocDirectory = SUBCLASS OF TObject window: TWindow; classWorld: TClassWorld; FUNCTION CREATE(object: TObject; heap: THeap; itsWindow: TWindow; itsClassWorld: TClassWorld): TDocDirectory; PROCEDURE Adopt; END; TDocManager = SUBCLASS OF TObject files: RECORD volumePrefix: TFilePath; volume: TFilePath; {$IFC LibraryVersion > 20} password: TPassword; {$ENDC} saveExists: BOOLEAN; shouldSuspend: BOOLEAN; shouldToolSave: BOOLEAN; END; dataSegment: RECORD refnum: ARRAY [1..maxSegments] OF INTEGER; preludePtr: TPPrelude; changes: LONGINT; END; docHeap: THeap; window: TWindow; pendingNote: INTEGER; openedAsTool: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsPathPrefix: TFilePath): TDocManager; {$IFC fDbgABC} PROCEDURE DumpPrelude; {$ENDC} FUNCTION WindowWithId(wmgrID: TWindowID): TWindow; PROCEDURE Complete(allIsWell: BOOLEAN); FUNCTION NewWindow(heap: THeap; wmgrID: TWindowID): TWindow; DEFAULT; PROCEDURE Close(afterSuspend: BOOLEAN); PROCEDURE CloseFiles; PROCEDURE Open(VAR error: INTEGER; wmgrID: TWindowID; VAR OpenedSuspended:Boolean); PROCEDURE OpenBlank(VAR error: INTEGER; wmgrID: TWindowID); PROCEDURE OpenSaved(VAR error: INTEGER; wmgrID: TWindowID); PROCEDURE OpenSuspended(VAR error: INTEGER; wmgrID: TWindowID); PROCEDURE RevertVersion(VAR error: INTEGER; wmgrID: TWindowID); PROCEDURE SaveVersion(VAR error: INTEGER; volumePrefix: TFilePath; andContinue: BOOLEAN); PROCEDURE Suspend(VAR error: INTEGER); PROCEDURE Assimilate(VAR error: INTEGER); PROCEDURE Bind; DEFAULT; PROCEDURE ConserveMemory(maxExcess: LONGINT; fGC: BOOLEAN); PROCEDURE Deactivate; FUNCTION DfltHeapSize: LONGINT; PROCEDURE ExpandMemory(bytesNeeded: LONGINT); PROCEDURE KillSegments(first, last: INTEGER); PROCEDURE MakeSegments(VAR error: INTEGER; oldSegments: INTEGER; newDocSize: LONGINT); PROCEDURE ResumeAfterOpen(VAR error: INTEGER; wmgrID: TWindowID); PROCEDURE SetSegSize(VAR error: INTEGER; minSize, maxExcess: LONGINT); PROCEDURE Unbind; DEFAULT; END; TClipboard = SUBCLASS OF TDocManager hasView: BOOLEAN; hasPicture: BOOLEAN; hasUniversalText: BOOLEAN; hasIcon: BOOLEAN; cuttingTool: LONGINT; cuttingProcessID: LONGINT; clipCopy: TFileScanner; FUNCTION CREATE(object: TObject; heap: THeap): TClipboard; PROCEDURE AboutToCut; PROCEDURE BeginCut; PROCEDURE EndCut; PROCEDURE CommitCut; FUNCTION UndoCut: BOOLEAN; PROCEDURE Inspect; PROCEDURE Publicize; END; TCommand = SUBCLASS OF TObject cmdNumber: TCmdNumber; image: TImage; undoable: BOOLEAN; doing: BOOLEAN; revelation: TRevelation; unHiliteBefore: ARRAY [TCmdPhase] OF BOOLEAN; hiliteAfter: ARRAY [TCmdPhase] OF BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsCmdNumber: TCmdNumber; itsImage: TImage; isUndoable: BOOLEAN; itsRevelation: TRevelation): TCommand; PROCEDURE EachVirtualPart(PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE FilterAndDo(actualObj: TObject; PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE Commit; DEFAULT; PROCEDURE Perform(cmdPhase: TCmdPhase); DEFAULT; END; TCutCopyCommand = SUBCLASS OF TCommand isCut: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsCmdNumber: TCmdNumber; itsImage: TImage; isCutCmd: BOOLEAN): TCutCopyCommand; PROCEDURE DoCutCopy(clipSelection: TSelection; deleteOriginal: BOOLEAN; cmdPhase: TCmdPhase); DEFAULT; END; TPasteCommand = SUBCLASS OF TCommand FUNCTION CREATE(object: TObject; heap: THeap; itsCmdNumber: TCmdNumber; itsImage: TImage): TPasteCommand; PROCEDURE DoPaste(clipSelection: TSelection; pic: PicHandle; cmdPhase: TCmdPhase); DEFAULT; END; TImage = SUBCLASS OF TObject extentLRect: LRect; view: TView; allowMouseOutside: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsExtent: LRect; itsView: TView): TImage; FUNCTION CursorAt(mouseLPt: lPoint): TCursorNumber; DEFAULT; PROCEDURE Draw; DEFAULT; PROCEDURE EachActualPart(PROCEDURE DoToObject(filteredObj: TObject)); DEFAULT; PROCEDURE EachVirtualPart(PROCEDURE DoToObject(filteredObj: TObject)); DEFAULT; PROCEDURE FilterAndDo(actualObj: TObject; PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE HaveView(view: TView); DEFAULT; FUNCTION Hit(mouseLPt: lPoint): BOOLEAN; DEFAULT; PROCEDURE Invalidate; FUNCTION LaunchLayoutBox(view: TView): TImage; DEFAULT; PROCEDURE OffSetBy(deltaLPt: LPoint); DEFAULT; PROCEDURE OffSetTo(newTopLeft: LPoint); PROCEDURE MouseMove(mouseLPt: lPoint); DEFAULT; PROCEDURE MousePress(mouseLPt: lPoint); DEFAULT; PROCEDURE MouseRelease; DEFAULT; PROCEDURE MouseTrack(mPhase: TMousePhase; mouseLPt: LPoint); DEFAULT; PROCEDURE ReactToPrinterChange; DEFAULT; PROCEDURE RecalcExtent; DEFAULT; PROCEDURE Resize(newExtent: LRect); DEFAULT; FUNCTION SeesSameAs(image: TImage): BOOLEAN; DEFAULT; {$} END; TView = SUBCLASS OF TImage panel: TPanel; clickLPt: LPoint; printManager: TPrintManager; res: Point; screenPad: TPad; fitPagesPerfectly: BOOLEAN; isPrintable: BOOLEAN; isMainView: BOOLEAN; stdScroll: LPoint; scrollPastEnd: Point; FUNCTION CREATE(object: TObject; heap: THeap; itsPanel: TPanel; itsExtent: LRect; itsPrintManager: TPrintManager; itsDfltMargins: LRect; itsFitPagesPerfectly:BOOLEAN; itsRes: Point; isMainView: BOOLEAN): TView; PROCEDURE BeInPanel(panel: TPanel); PROCEDURE GetStdScroll(VAR deltaLStd: LPoint); FUNCTION MaxPageToPrint: LONGINT; PROCEDURE AddStripOfPages(vhs: VHSelect); DEFAULT; FUNCTION ForceBreakAt(vhs: VHSelect; precedingLocation: LONGINT; proposedLocation: LONGINT): LONGINT; PROCEDURE RedoBreaks; DEFAULT; PROCEDURE RemapManualBreaks( FUNCTION NewBreakLocation(vhs: VHSelect; oldBreak: LONGINT): LONGINT); FUNCTION DoReceive(selection: TSelection; lPtInView: LPoint): BOOLEAN; FUNCTION OKToDrawIn(lRectInView: LRect): BOOLEAN; PROCEDURE SetMinViewSize(VAR minLRect: LRect); PROCEDURE CreateUniversalText; PROCEDURE SetFunctionValue(keyword: S255; VAR itsValue: S255); FUNCTION NoSelection: TSelection; END; TPaginatedView = SUBCLASS OF TView unpaginatedView: TView; pageSize: ARRAY[VHSelect] OF LONGINT; workingInMargins: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsUnpaginatedView: TView): TPaginatedView; PROCEDURE AdornPageOnScreen; PROCEDURE DepagifyLPoint(pagLPt: LPoint; VAR unPagLPt: LPoint); PROCEDURE DoOnPages(focusOnInterior: BOOLEAN; PROCEDURE DoOnAPage); PROCEDURE PagifyLPoint(unPagLPt: LPoint; VAR pagLPt: LPoint); END; TPageView = SUBCLASS OF TView FUNCTION CREATE(object: TObject; heap: THeap; itsPrintManager: TPrintManager): TPageView; END; THeading = SUBCLASS OF TImage printManager: TPrintManager; pageAlignment: TPageAlignment; offsetFromAlignment: LPoint; oddOnly: BOOLEAN; evenOnly: BOOLEAN; minPage: LONGINT; maxPage: LONGINT; FUNCTION CREATE(object: TObject; heap: THeap; itsPrintManager: TPrintManager; itsExtentLRect: LRect; itsPageAlignment: TPageAlignment; itsOffsetFromAlignment: LPoint): THeading; PROCEDURE ChangePageAlignment(newPageAlignment: TPageAlignment); FUNCTION ShouldDraw(pageNumber: LONGINT): BOOLEAN; FUNCTION ShouldFrame: BOOLEAN; DEFAULT; PROCEDURE AdjustForPage(pageNumber: LONGINT; editing: BOOLEAN); DEFAULT; PROCEDURE LocateOnPage(editing: BOOLEAN); END; TPrintManager = SUBCLASS OF TObject view: TView; pageView: TView; breaks: ARRAY[VHSelect] OF TArray; pageMargins: LRect; headings: TList; canEditPages: BOOLEAN; layoutDialogBox: TDialogBox; frameBody: BOOLEAN; paperLRect: LRect; printableLRect: LRect; contentLRect: LRect; printerMetrics: TPrinterMetrics; pageRiseDirection: VHSelect; FUNCTION CREATE(object: TObject; heap: THeap): TPrintManager; PROCEDURE Init(itsMainView: TView; itsDfltMargins: LRect); PROCEDURE AddStripOfPages(vhs: VHSelect); PROCEDURE ChangeMargins(margins: LRect); PROCEDURE ClearPageBreaks(automatic: BOOLEAN); PROCEDURE DrawBreaks(manualOnly: BOOLEAN); PROCEDURE DrawOneBreak(pageBreak: LONGINT; vhs: vhSelect); PROCEDURE DrawPage; PROCEDURE EnterPageEditing; PROCEDURE GetPageLimits(pageNumber: LONGINT; VAR viewLRect: LRect); FUNCTION NewPaginatedView(object: TObject): TPaginatedView; FUNCTION NewPageView(object: TObject): TView; FUNCTION PageWith(VAR lPtInView: LPoint; VAR strip: Point): LONGINT; PROCEDURE Print(printPref: TPrReserve); PROCEDURE ReactToPrinterChange; PROCEDURE RedoBreaks; PROCEDURE SetBreak(vhs: VHSelect; where: LONGINT; isAutomatic: BOOLEAN); PROCEDURE SetDfltHeadings; DEFAULT; PROCEDURE SkipPage(pageNumber: LONGINT); END; TSelection = SUBCLASS OF TObject window: TWindow; panel: TPanel; view: TView; kind: INTEGER; anchorLPt: LPoint; currLPt: LPoint; boundLRect: LRect; coSelection: TSelection; canCrossPanels: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsView: TView; itsKind: INTEGER; itsAnchorLPt: LPoint): TSelection; FUNCTION FreedAndReplacedBy(selection: TSelection): TSelection; PROCEDURE GetHysteresis(VAR hysterPt: Point); DEFAULT; PROCEDURE HaveView(view: TView); PROCEDURE MarkChanged; DEFAULT; FUNCTION CanDoCommand(cmdNumber: TCmdNumber; VAR checkIt: BOOLEAN): BOOLEAN; DEFAULT; PROCEDURE CantDoCmd(cmdNumber: TCmdNumber); DEFAULT; PROCEDURE CantDoIt; DEFAULT; PROCEDURE DoKey(ascii: CHAR; keycap: Byte; shiftKey, appleKey, optionKey: BOOLEAN); FUNCTION NewCommand(cmdNumber: TCmdNumber): TCommand; DEFAULT; PROCEDURE PerformCommand(command: TCommand; cmdPhase: TCmdPhase); DEFAULT; PROCEDURE IdleBegin(centiSeconds: LONGINT); DEFAULT; PROCEDURE IdleContinue(centiSeconds: LONGINT); DEFAULT; PROCEDURE IdleEnd(centiSeconds: LONGINT); DEFAULT; PROCEDURE KeyBack(fWord: BOOLEAN); DEFAULT; PROCEDURE KeyChar(ch: CHAR); DEFAULT; PROCEDURE KeyClear; DEFAULT; PROCEDURE KeyEnter(dh, dv: INTEGER); DEFAULT; PROCEDURE KeyForward(fWord: BOOLEAN); DEFAULT; PROCEDURE KeyPause; DEFAULT; PROCEDURE KeyReturn; DEFAULT; PROCEDURE KeyTab(fBackward: BOOLEAN); DEFAULT; PROCEDURE SelectParagraphs; PROCEDURE Highlight(highTransit: THighTransit); DEFAULT; PROCEDURE DeSelect; DEFAULT; PROCEDURE DrawGhost; DEFAULT; PROCEDURE MousePress(mouseLPt: LPoint); DEFAULT; PROCEDURE MouseMove(mouseLPt: LPoint); DEFAULT; PROCEDURE MouseRelease; DEFAULT; PROCEDURE MoveBackToAnchor; DEFAULT; PROCEDURE Restore; DEFAULT; PROCEDURE Save; DEFAULT; PROCEDURE Reveal(asMuchAsPossible: BOOLEAN); DEFAULT; END; TWindow = SUBCLASS OF TArea panels: TList ; panelTree: TArea; dialogBox: TDialogBox; selectPanel: TPanel; undoSelPanel: TPanel; clickPanel: TPanel; undoClickPanel: TPanel; selectWindow: TWindow; undoSelWindow: TWindow; wmgrID: TWindowID; isResizable: BOOLEAN; believeWmgr: BOOLEAN; maxInnerSize: Point; changes: LONGINT; lastCmd: TCommand; printerMetrics: TPrinterMetrics; pgSzOK: BOOLEAN; pgRgOK: BOOLEAN; panelToPrint: TPanel; objectToFree: TObject; FUNCTION CREATE(object: TObject; heap: THeap; itsWmgrID: TWindowID; itsResizability: BOOLEAN): TWindow; {$IFC fDbgABC} PROCEDURE ToggleFlag(VAR flag: BOOLEAN); DEFAULT; {$ENDC} PROCEDURE GetTitle(VAR title: S255); FUNCTION IsActive: BOOLEAN; FUNCTION IsVisible: BOOLEAN; PROCEDURE SetWmgrId(itsWmgrId: TWindowID); PROCEDURE DownEventAt(mousePt: Point); DEFAULT; PROCEDURE PutUpDialogBox(dialogBox: TDialogBox); DEFAULT; PROCEDURE TakeDownDialogBox; DEFAULT; PROCEDURE Highlight(highTransit: THighTransit); DEFAULT; PROCEDURE Update(doHilite: BOOLEAN); DEFAULT; PROCEDURE DownInSizeBox(mousePt: Point); DEFAULT; PROCEDURE Resize(moving: BOOLEAN); DEFAULT; PROCEDURE ResizeTo(newSize: Point); DEFAULT; FUNCTION CanDoCommand(cmdNumber: TCmdNumber; VAR checkIt: BOOLEAN): BOOLEAN; DEFAULT; FUNCTION CanDoStdCommand(cmdNumber: TCmdNumber; VAR checkIt: BOOLEAN): BOOLEAN; DEFAULT; PROCEDURE CommitLast; DEFAULT; PROCEDURE DoCommand(cmdNumber: TCmdNumber); DEFAULT; PROCEDURE LoadMenuBar; DEFAULT; PROCEDURE MenuEventAt(mousePt: Point); DEFAULT; FUNCTION NewCommand(cmdNumber: TCmdNumber): TCommand; DEFAULT; FUNCTION NewStdCommand(cmdNumber: TCmdNumber): TCommand; PROCEDURE PerformCommand(newCommand: TCommand); PROCEDURE PerformLast(cmdPhase: TCmdPhase); PROCEDURE SaveCommand(command: TCommand); PROCEDURE SetupMenus; PROCEDURE UndoLast; FUNCTION WantMenu(menuID: INTEGER; inClipboard: BOOLEAN): BOOLEAN; PROCEDURE AbortEvent; PROCEDURE RestoreSelection; PROCEDURE RevealSelection(asMuchAsPossible, doHilite: BOOLEAN); PROCEDURE SaveSelection; PROCEDURE Activate; PROCEDURE Deactivate; PROCEDURE BlankStationery; DEFAULT; PROCEDURE StashPicture(highTransit: THighTransit); {$IFC LibraryVersion > 20} PROCEDURE NameToPrefix(VAR error, offset: INTEGER; VAR name, prefix: TFilePath); PROCEDURE PrefixToName(VAR error, offset: INTEGER; VAR prefix, name: TFilePath); {$ENDC} FUNCTION CursorFeedback: TCursorNumber; PROCEDURE PickStdCursor; PROCEDURE AcceptNewPrintingInfo(document: TDocManager; prReserve: TPrReserve); PROCEDURE ChkPrMismatch; PROCEDURE GetPrinterMetrics; PROCEDURE Print(panel: TPanel; nixPgRange: BOOLEAN; nixWholeDialog: BOOLEAN); PROCEDURE EachActualPart(PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE EachVirtualPart(PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE FilterAndDo(actualObj: TObject; PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE FilterDispatch(actualObj: TObject; image: TImage; PROCEDURE DoToObject(filteredObj: TObject)); PROCEDURE IdleBegin(centiSeconds: LONGINT); PROCEDURE IdleContinue(centiSeconds: LONGINT); PROCEDURE IdleEnd(centiSeconds: LONGINT); END; TDialogBox = SUBCLASS OF TWindow keyResponse: TDiResponse; menuResponse: TDiResponse; downInMainWindowResponse: TDiResponse; freeOnDismissal: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsResizability: BOOLEAN; itsHeight: INTEGER; itsKeyResponse, itsMenuResponse, itsDownInMainWindowResponse: TDiResponse): TDialogBox; PROCEDURE Appear; PROCEDURE BeDismissed; DEFAULT; PROCEDURE Disappear; DEFAULT; END; TBand = SUBCLASS OF TArea window: TWindow; panes: TList ; panel: TPanel; scroller: TScroller; scrollDir: VHSelect; FUNCTION CREATE(object: TObject; heap: THeap; itsPanel: TPanel; itsInnerRect: Rect; itsScroller: TScroller; itsDir: VHSelect): TBand; FUNCTION ViewLCd: LONGINT; PROCEDURE OffsetPanes(deltaLPt: LPoint); PROCEDURE ScrollBy(deltaLCd: LONGINT); PROCEDURE ScrollStep(icon: TEnumIcons; deltaLStd: LONGINT); PROCEDURE ScrollTo(viewLCd: LONGINT); FUNCTION ThumbPos: INTEGER; PROCEDURE ThumbTo(newThumbPos: INTEGER); PROCEDURE ResizePanes(newViewLCd: LONGINT); END; TSideBand = SUBCLASS OF TBand topOrLeft: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; itsPanel: TPanel; itsInnerRect: Rect; itsDir: VHSelect; itsTopOrLeft: BOOLEAN; itsViewLCd: LONGINT): TSideBand; FUNCTION CoBand: TBand; END; TPanel = SUBCLASS OF TArea window: TWindow; panes: TList ; currentView: TView; view: TView; paginatedView: TPaginatedView; selection: TSelection; undoSelection: TSelection; bands: ARRAY[VHSelect] OF TList; scrollBars: ARRAY[VHSelect] OF TScrollBar; abilities: ARRAY[VHSelect] OF TAbilities; minInnerDiagonal: Point; resizeBranch: TBranchArea; zoomed: BOOLEAN; zoomFactor: TScaler; previewMode: TPreviewMode; lastClick: RECORD CASE gotPane: BOOLEAN OF TRUE: (clickPane: TPane); FALSE: (clickPt: Point); END; contentRect: Rect; tlSideBandSize: Point; brSideBandSize: Point; deletedSplits: TArray; FUNCTION CREATE(object: TObject; heap: THeap; itsWindow: TWindow; minHeight, minWidth: INTEGER; itsVAbilities, itsHAbilities: TAbilities): TPanel; PROCEDURE HaveView(view: TView); FUNCTION NewView(object: TObject; itsExtent: LRect; itsPrintManager: TPrintManager; itsDfltMargins: LRect; itsFitPerfectlyOnPages: BOOLEAN): TView; FUNCTION NewStatusView(object: TObject; itsExtent: LRect): TView; PROCEDURE ComputeContentRect; PROCEDURE DecideAboutBars(newOuterRect: Rect); FUNCTION FindBranchThatIsResized: TBranchArea; FUNCTION PaneShowing(anLRect: LRect): TPane; PROCEDURE SetInnerRect(newInnerRect: Rect); OVERRIDE; PROCEDURE SetOuterRect(newOuterRect: Rect); OVERRIDE; FUNCTION Divide(vhs: VHSelect; fromEdgeOfPanel: INTEGER; units: TUnitsFromEdge; whoCanResizeIt: TResizability; minSize: INTEGER; itsVAbilities, itsHAbilities: TAbilities): TPanel; PROCEDURE Insert(panel: TPanel; vhs: VHSelect; fromEdgeOfPanel: INTEGER; units: TUnitsFromEdge; whoCanResizeIt: TResizability); PROCEDURE Remove; PROCEDURE Replace(panel: TPanel); PROCEDURE DownInSizeBox(mousePt: Point); PROCEDURE HitScroller(vhs: VHSelect; mousePt: Point; scroller: TScroller; icon: TEnumIcons); PROCEDURE BeginSelection; PROCEDURE BeSelectPanel(inSelectWindow: BOOLEAN); FUNCTION CursorAt(mousePt: Point): TCursorNumber; PROCEDURE Highlight(selection: TSelection; highTransit: THighTransit); PROCEDURE Invalidate; PROCEDURE InvalLRect(lRectInView: LRect); FUNCTION OKToDrawIn(lRectInView: LRect): BOOLEAN; PROCEDURE OnAllPadsDo(PROCEDURE DoOnThePad); PROCEDURE Rescroll; PROCEDURE SetZoomFactor(zoomNumerator, zoomDenominator: Point); PROCEDURE Preview(newMode: TPreviewMode); PROCEDURE PrintView(printPref: TPrReserve); PROCEDURE AutoScroll(mousePt: Point); PROCEDURE DoScrolling(inArea: TArea; itsPane: TPane; hOk, vOk: BOOLEAN; VAR deltaLPt: LPoint); FUNCTION PaneToScroll(VAR anLRect: LRect; hMinToSee, vMinToSee: INTEGER): TPane; PROCEDURE RevealLRect(VAR anLRect: LRect; hMinToSee, vMinToSee: INTEGER); PROCEDURE CleanUpPanes(deleteList: TList); PROCEDURE MakeBand(vhs: VHSelect; scroller, prevScroller: TScroller); PROCEDURE MoveSplitBefore(scroller: TScroller; newSkwrCd: INTEGER); FUNCTION NewBand(heap: THeap; myInnerRect: Rect; scroller: TScroller; vhs: VHSelect): TBand; FUNCTION NewPane(heap: THeap; innerRect: Rect; viewedLRect: LRect): TPane; PROCEDURE RemakePanes; PROCEDURE RememberSplit(vhs: VHSelect; atCd: INTEGER); PROCEDURE RepaneOrthogonalBands(vhs: VHSelect); PROCEDURE RestoreSplits; PROCEDURE ShowSideBand(vhs: VHSelect; topOrLeft: BOOLEAN; size: INTEGER; viewLCd: LONGINT); PROCEDURE SideBandRect(vhs: VHSelect; topOrLeft: BOOLEAN; VAR bandRect: Rect); PROCEDURE ResizeBand(vhs: VHSelect; band: TBand; newViewLCd: LONGINT; fInvalidate: BOOLEAN); END; TPane = SUBCLASS OF TPad currentView: TView; panel: TPanel; FUNCTION CREATE(object: TObject; heap: THeap; itsPanel: TPanel; itsInnerRect: Rect; itsViewedLRect: LRect): TPane; PROCEDURE HaveView(view: TView); PROCEDURE GetScrollLimits(VAR viewedLRect, scrollableLRect: LRect); PROCEDURE MouseTrack(mPhase: TMousePhase; mousePt: Point); FUNCTION CursorAt(mousePt: Point): TCursorNumber; PROCEDURE Resize(newInnerRect: Rect; vhs: VHSelect); PROCEDURE ScrollBy(VAR deltaLPt: LPoint); PROCEDURE ScrollToReveal(VAR anLRect: LRect; hMinToSee, vMinToSee: INTEGER); END; TMarginPad = SUBCLASS OF TPad view: TView; pageNumber: LONGINT; bodyPad: TBodyPad; FUNCTION CREATE(object: TObject; heap: THeap): TMarginPad; PROCEDURE Rework(itsView: TView; itsOrigin: Point; itsRes: Point; itsPageNumber: LONGINT; itsZoomFactor: TScaler; itsPort: GrafPtr); PROCEDURE SetForPage(itsPageNumber: LONGINT; itsOrigin: Point); END; TBodyPad = SUBCLASS OF TPad marginPad: TMarginPad; nonNullBody: Rect; FUNCTION CREATE(object: TObject; heap: THeap; itsMarginPad: TMarginPad): TBodyPad; PROCEDURE Recompute; PROCEDURE SetForPage(itsPageNumber: LONGINT); END; TScroller = SUBCLASS OF TObject scrollBar: TScrollBar; band: TBand; sBoxID: TSBoxID; FUNCTION CREATE(object: TObject; heap: THeap; itsScrollBar: TScrollBar; itsId: TSBoxID): TScroller; PROCEDURE GetSize(VAR boxRect: Rect); FUNCTION ScrollDir: VHSelect; PROCEDURE SetSize(ownerRect: Rect); FUNCTION ThumbRange: INTEGER; PROCEDURE TrackSkewer(mousePt: Point; VAR newSkwrCd: INTEGER; VAR scroller, prevScroller: TScroller); PROCEDURE TrackThumb(mousePt: Point; VAR oldThumbPos, newThumbPos: INTEGER); PROCEDURE FillIcon(icon: TEnumIcons; fBlack: BOOLEAN); PROCEDURE MoveThumb(newThumbPos: INTEGER); PROCEDURE ResplitAt(newSkwrCd: INTEGER; prevScroller: TScroller); PROCEDURE SplitAt(newSkwrCd: INTEGER; VAR nextScroller: TScroller); END; TScrollBar = SUBCLASS OF TObject firstBox: TScroller; isVisible: BOOLEAN; FUNCTION CREATE(object: TObject; heap: THeap; vhs: VHSelect; outerRect: Rect; itsVisibility: BOOLEAN): TScrollBar; PROCEDURE ChangeVisibility(needsBothBars: BOOLEAN; bandOuterRect: Rect; itsAbilities: TAbilities); FUNCTION DownAt(mousePt: Point; VAR scroller: TScroller; VAR icon: TEnumIcons): BOOLEAN; PROCEDURE Draw; PROCEDURE Erase; END; TMenuBar = SUBCLASS OF TObject isLoaded: ARRAY [1..maxMenus] OF BOOLEAN; mapping: TArray ; numMenus: INTEGER; numCommands: INTEGER; FUNCTION CREATE(object: TObject; heap: THeap; itsScanner: TFileScanner): TMenuBar; PROCEDURE Check(cmdNumber: TCmdNumber; checked: BOOLEAN); PROCEDURE Enable(cmdNumber: TCmdNumber; canBeChosen: BOOLEAN); PROCEDURE BuildCmdName(destCmd, templateCmd: TCmdNumber; param: TPString); FUNCTION GetCmdName(cmdNumber: TCmdNumber; pName: TPString): BOOLEAN; PROCEDURE PutCmdName(cmdNumber: TCmdNumber; pName: TPString); FUNCTION CmdKey(ch: CHAR): TCmdNumber; FUNCTION DownAt(mousePt: Point): TCmdNumber; PROCEDURE Draw; PROCEDURE EndCmd; PROCEDURE HighlightMenu(withCmd: TCmdNumber); PROCEDURE Delete(menuID: INTEGER); PROCEDURE Insert(menuID, beforeId: INTEGER); PROCEDURE Unload; FUNCTION MenuWithID(menuID: INTEGER): Ptr; END; {$IFC LibraryVersion <= 20 AND FALSE} TFont = SUBCLASS OF TObject family: INTEGER; FUNCTION CREATE(object: TObject; heap: THeap; itsFamily: INTEGER): TFont; END; {$ENDC} VAR activeWindowID: TWindowID; allowAbort: BOOLEAN; autoBreakPen: PenState; blinkOffCentiSecs: LONGINT; blinkOnCentiSecs: LONGINT; boundClipboard: TClipboard; boundDocument: TDocManager; cancelString: STRING[20]; clickState: TClickState; clipboard: TClipboard; clipPrintPref: TPrReserve; closedBySuspend: BOOLEAN; closedDocument: TDocManager; cornerNumberStyle: TTypeStyle; countryCode: INTEGER; currentDocument: TDocManager; currentWindow: TWindow; cursorShape: TCursorNumber; deferUpdate: BOOLEAN; dfltNewHeading: STRING[20]; docList: TList ; eventTime: LONGINT; eventType: INTEGER; {$IFC fDbgABC} fExperimenting: BOOLEAN; fCountHeap: BOOLEAN; {$ENDC} {$IFC LibraryVersion <= 20 AND FALSE} fonts: ARRAY [0..maxFonts] OF TFont; {$ENDC} genClipPic: BOOLEAN; highLevel: ARRAY [BOOLEAN] OF THighTransit; highToggle: ARRAY [BOOLEAN] OF THighTransit; idleTime: LONGINT; inBackground: BOOLEAN; limboPen: PenState; manualBreakPen: PenState; marginPattern: LPattern; menuBar: TMenuBar; myProcessID: LONGINT; myTool: LONGINT; normalPen: PenState; okString: STRING[20]; phraseFile: TFileScanner; process: TProcess; screenRightEdge: INTEGER; scrollRgn: RgnHandle; stdMargins: LRect; suspendSuffix: ARRAY [1..maxSegments] OF STRING[3]; theBodyPad: TBodyPad; theMarginPad: TMarginPad; toolName: STRING[67]; toolPrefix: TFilePath; toolVolume: TFilePath; varPage: STRING[20]; varTitle: STRING[20]; wordDelimiters: STRING[67]; PROCEDURE GetPrefixPart(wholeName: S255; VAR filePart: TFilePath); FUNCTION ToolOfFile(wholeName: S255): LONGINT; FUNCTION ToolOfProcess(processId: LONGINT): LONGINT; PROCEDURE PicTextBegin(alignment: TAlignment); PROCEDURE PicTextEnd; PROCEDURE PicGrpBegin; PROCEDURE PicGrpEnd; PROCEDURE InitProcess; FUNCTION GetTime: LONGINT; IMPLEMENTATION 1 UDRAW $Setc IsIntrinsic := TRUE } {$IFC IsIntrinsic} INTRINSIC; {$ENDC} INTERFACE USES {$U UnitStd } UnitStd, {$U UnitHz } UnitHz, {$U libtk/UObject} UObject, {$U LIBOS/SysCall} SysCall, {$IFC LibraryVersion > 10} {$U LIBPL/PaslibCall} PaslibCall, {$U LIBPL/PPasLibc } PPasLibC, {$ENDC} {$IFC LibraryVersion <= 20} {$U FontMgr } FontMgr, {$ENDC} {$U QuickDraw } QuickDraw, {$IFC LibraryVersion > 20} {$U FontMgr } FontMgr, {$ENDC} {$U WM.Events } Events, {$U WM.Folders } Folders, {$U FilerComm } FilerComm; {$SETC fDbgDraw := fDbgOK} {$SETC fRngDraw := fDbgOK} {$SETC fSymDraw := fSymOK} {$SETC fDebugMethods := fDbgDraw} CONST famSystem = 0; famMin = 1; famModern = 1; famClassic = 2; famMax = 2; sizeMin = 1; size20Pitch = 1; size15Pitch = 2; size12Pitch = 3; size10Pitch = 4; size12Point = 5; size14Point = 6; size18Point = 7; size24Point = 8; sizeMax = 8; fIDSystem = 0; fID20Pitch = 19; fID15Pitch = 7; fIDm12Pitch = 8; fIDc12Pitch = 13; fIDm10Pitch = 9; fIDc10Pitch = 14; fIDm12Point = 4; fIDc12Point = 10; fIDm14Point = 15; fIDc14Point = 16; fIDm18Point = 5; fIDc18Point = 11; fIDm24Point = 6; fIDc24Point = 12; fIDRulers = 25; fIDSysPatterns = 2; fIDSysCursors = 3; fIDLT20Graphics = 23; fIDLT12Graphics = 17; fIDLT20Text = 27; fIDLT12Text = 26; fIDDeskIcons = 22; fIDWM = 1; fIDCalculator = 18; fIDIconName = 21; fIDMarker = 20; fIDLisaGuide = 24; TYPE TFontIDArray = ARRAY[famMin..famMax, sizeMin..sizeMax] OF INTEGER; TScaler = RECORD numerator: point; denominator: point; END; TRectCoords = ARRAY[FALSE..TRUE] OF Point; LPoint = RECORD CASE INTEGER OF 0: (v, h: LONGINT); 1: (vh: ARRAY [VHSelect] OF LONGINT) END; LRect = RECORD CASE INTEGER OF 0: (top, left, bottom, right: LONGINT); 1: (topLeft, botRight: LPoint) END; LPattern = PACKED ARRAY[0..7] OF 0..255; TLRectCoords = ARRAY[FALSE..TRUE] OF LPoint; TEnumActions = (rErase, rFrame, rBackground, rDraw); TActions = SET OF TEnumActions; THighTransit = (hNone, hOffToDim, hOffToOn, hDimToOn, hDimToOff, hOnToOff, hOnToDim); TEnumResizability = (userCanResizeIt, windowCanResizeIt); TResizability = SET OF TEnumResizability; TFontRecord = PACKED RECORD CASE BOOLEAN OF FALSE: (fontNum: INTEGER); TRUE: (fontFamily: Byte; fontSize: Byte) END; TTypeStyle = RECORD {$IFC LibraryVersion <= 20} onFaces: TSeteface; {$ELSEC} onFaces: Style; {$ENDC} font: TFontRecord; END; TArea = SUBCLASS OF TObject innerRect: Rect; outerRect: Rect; parentBranch: TBranchArea; FUNCTION TArea.CREATE(object: TObject; heap: THeap; itsRect: Rect): TArea; ABSTRACT; FUNCTION TArea.ChildWithPt(pt: Point; childList: TList; VAR nearestPt: Point): TArea; PROCEDURE TArea.GetBorder(VAR border: Rect); DEFAULT; PROCEDURE TArea.GetMinExtent(VAR minExtent: Point; windowIsResizingIt: BOOLEAN); ABSTRACT; PROCEDURE TArea.SetOuterRect(newOuterRect: Rect); PROCEDURE TArea.SetInnerRect(newInnerRect: Rect); PROCEDURE TArea.Erase; PROCEDURE TArea.Focus; ABSTRACT; PROCEDURE TArea.Frame; DEFAULT; PROCEDURE TArea.Refresh(rActions: TActions; highTransit: THighTransit); ABSTRACT; FUNCTION TArea.DownAt(mousePt: Point): BOOLEAN; ABSTRACT; PROCEDURE TArea.ResizeInside(newInnerRect: Rect); ABSTRACT; PROCEDURE TArea.ResizeOutside(newOuterRect: Rect); ABSTRACT; END; TPad = SUBCLASS OF TArea port: GrafPtr; viewedLRect: LRect; visLRect: LRect; availLRect: LRect; scrollOffset: LPoint; origin: Point; cdOffset: LPoint; clippedRect: rect; padRes: Point; viewedRes: Point; scaled: BOOLEAN; scaleFactor: TScaler; zoomFactor: TScaler; FUNCTION TPad.CREATE(object: TObject; heap: THeap; itsInnerRect: Rect; itsViewedLRect: LRect; itsPadRes, itsViewRes: Point; itsPort: GrafPtr): TPad; PROCEDURE TPad.Redefine(itsInnerRect: Rect; itsViewedLRect: LRect; itsPadRes, itsViewRes: Point; itsZoomFactor: TScaler; itsPort: GrafPtr); PROCEDURE TPad.DistToLDist(distInPort: Point; VAR lDistInView: LPoint); PROCEDURE TPad.PatToLPat(patInPort: Pattern; VAR lPatInView: LPattern); PROCEDURE TPad.PtToLPt(ptInPort: Point; VAR lPtInView: LPoint); PROCEDURE TPad.RectToLRect(rectInPort: Rect; VAR lRectInView: LRect); PROCEDURE TPad.LDistToDist(lDistInView: LPoint; VAR distInPort: Point); PROCEDURE TPad.LPatToPat(lPatInView: LPattern; VAR patInPort: Pattern); PROCEDURE TPad.LPtToPt(lPtInView: LPoint; VAR ptInPort: Point); PROCEDURE TPad.LRectToRect(lRectInView: LRect; VAR rectInPort: Rect); PROCEDURE TPad.OffsetBy(deltaLPt: LPoint); PROCEDURE TPad.SetScrollOffset(VAR newOffset: LPoint); PROCEDURE TPad.ClipFurtherTo(rBand: rect); PROCEDURE TPad.Focus; OVERRIDE; PROCEDURE TPad.InvalLRect(r: LRect); PROCEDURE TPad.InvalRect(r: Rect); PROCEDURE TPad.SetPen(pen: PenState); PROCEDURE TPad.SetPenToHighlight(highTransit: THighTransit); PROCEDURE TPad.SetZoomFactor(zoomNumerator, zoomDenominator: point); DEFAULT; PROCEDURE TPad.DrawLText(textBuf: Ptr; startByte, numBytes: INTEGER); PROCEDURE TPad.DrawLLine(newLPt: LPoint); PROCEDURE TPad.DrawLPicture(pic: PicHandle; r:LRect); PROCEDURE TPad.DrawLRect(verb: GrafVerb; r: LRect); PROCEDURE TPad.DrawLRRect(verb: GrafVerb; r: LRect; ovalWidth, ovalHeight: INTEGER); PROCEDURE TPad.DrawLOval(verb: GrafVerb; r: LRect); PROCEDURE TPad.DrawLArc(verb: GrafVerb; r: LRect; startAngle, arcAngle: INTEGER); PROCEDURE TPad.DrawLBits(VAR srcBits: BitMap; VAR srcRect: Rect; VAR dstLRect: LRect; mode: INTEGER; maskRgn: RgnHandle); PROCEDURE TPad.Crash; ABSTRACT; FUNCTION TPad.BindHeap(activeVsClip, doBind: BOOLEAN): THeap; ABSTRACT; END; TBranchArea = SUBCLASS OF TArea arrangement: VHSelect; elderFirst: BOOLEAN; resizability: TResizability; elderChild: TArea; youngerChild: TArea; FUNCTION TBranchArea.CREATE(object: TObject; heap: THeap; vhs: VHSelect; hasElderFirst: BOOLEAN; whoCanResizeIt: TResizability; itsElderChild, itsYoungerChild: TArea): TBranchArea; PROCEDURE TBranchArea.GetMinExtent(VAR minExtent: Point; windowIsResizingIt: BOOLEAN); OVERRIDE; FUNCTION TBranchArea.OtherChild(child: TArea): TArea; PROCEDURE TBranchArea.ReplaceChild(child, newChild: TArea); FUNCTION TBranchArea.TopLeftChild: TArea; PROCEDURE TBranchArea.ResizeOutside(newOuterRect: Rect); OVERRIDE; PROCEDURE TBranchArea.Redivide(newCd: INTEGER); END; VAR amPrinting: BOOLEAN; zeroPt: Point; zeroRect: Rect; hugeRect: Rect; zeroLPt: LPoint; zeroLRect: LRect; hugeLRect: LRect; orthogonal: ARRAY [v..h] OF VHSelect; highPen: ARRAY [THighTransit] OF PenState; lPatWhite: LPattern; lPatBlack: LPattern; lPatGray: LPattern; lPatLtGray: LPattern; lPatDkGray: LPattern; focusStack: ARRAY [1..10] OF TArea; focusStkPtr: INTEGER; focusArea: TArea; focusRgn: RgnHandle; padRgn: RgnHandle; altVisRgn: RgnHandle; useAltVisRgn: BOOLEAN; thePad: TPad; noPad: TPad; crashPad: TPad; screenRes: Point; sysTypeStyle: TTypeStyle; printerPseudoPort: GrafPtr; cArea: TClass; cPad: TClass; cBranchArea: TClass; PROCEDURE InitQDWM; PROCEDURE TrmntExceptionHandler; PROCEDURE InitErrorAbort(error: INTEGER); {$IFC fDbgDraw} FUNCTION BindHeap(activeVsClip, doBind: BOOLEAN): THeap; {$ENDC} PROCEDURE Reduce(VAR numerator, denominator: INTEGER); FUNCTION FPtPlusPt(operand1, operand2: Point): LONGINT; FUNCTION FPtMinusPt(operand1, operand2: Point): LONGINT; FUNCTION FPtMulInt(operand1: Point; operand2: INTEGER): LONGINT; FUNCTION FPtDivInt(operand1: Point; operand2: INTEGER): LONGINT; FUNCTION FPtMaxPt(operand1, operand2: Point): LONGINT; FUNCTION FPtMinPt(operand1, operand2: Point): LONGINT; FUNCTION FDiagRect(operand1: Rect): LONGINT; PROCEDURE BoolToStr(bool: BOOLEAN; str: TPstring); FUNCTION LIntDivLInt(i, j: LONGINT): LONGINT; FUNCTION LIntDivInt(i: LONGINT; j: INTEGER): LONGINT; FUNCTION LIntMulInt(i: LONGINT; j: INTEGER): LONGINT; FUNCTION LIntOvrInt(i: LONGINT; j: INTEGER): LONGINT; PROCEDURE PtPlusPt(operand1, operand2: Point; VAR result: Point); PROCEDURE PtMinusPt(operand1, operand2: Point; VAR result: Point); PROCEDURE PtMulInt(operand1: Point; operand2: INTEGER; VAR result: Point); PROCEDURE PtDivInt(operand1: Point; operand2: INTEGER; VAR result: Point); {$IFC LibraryVersion <= 20} FUNCTION EqualPt(operand1, operand2: Point): BOOLEAN; {$ENDC} PROCEDURE RectPlusRect(operand1, operand2: Rect; VAR result: Rect); PROCEDURE RectMinusRect(operand1, operand2: Rect; VAR result: Rect); {$IFC LibraryVersion <= 20} FUNCTION EqualRect(rectA, rectB: Rect): BOOLEAN; FUNCTION EmptyRect(r: Rect): BOOLEAN; {$ENDC} PROCEDURE AlignRect(VAR dstRect: Rect; srcRect: Rect; vhs: VHSelect); FUNCTION LengthRect(r: Rect; vhs: VHSelect): INTEGER; FUNCTION RectHasPt(dstRect: Rect; pt: Point): BOOLEAN; PROCEDURE RectHavePt(dstRect: Rect; VAR pt: Point); FUNCTION RectsNest(outer, inner: Rect): BOOLEAN; PROCEDURE RectifyRect(VAR dstRect: Rect); FUNCTION RectIsVisible(rectInPort: Rect): BOOLEAN; PROCEDURE PointToStr(pt: Point; str: TPstring); PROCEDURE RectToStr(r: Rect; str: TPstring); PROCEDURE LPtPlusLPt(operand1, operand2: LPoint; VAR result: LPoint); PROCEDURE LPtMinusLPt(operand1, operand2: LPoint; VAR result: LPoint); PROCEDURE LPtMulInt(operand1: LPoint; operand2: INTEGER; VAR result: LPoint); PROCEDURE LPtDivInt(operand1: LPoint; operand2: INTEGER; VAR result: LPoint); FUNCTION EqualLPt(operand1, operand2: LPoint): BOOLEAN; PROCEDURE LRectPlusLRect(operand1, operand2: LRect; VAR result: LRect); PROCEDURE LRectMinusLRect(operand1, operand2: LRect; VAR result: LRect); FUNCTION EqualLRect(rectA, rectB: LRect): BOOLEAN; FUNCTION EmptyLRect(r: LRect): BOOLEAN; PROCEDURE AlignLRect(VAR destLRect: LRect; srcLRect: LRect; vhs: VHSelect); FUNCTION LengthLRect(r: LRect; vhs: VHSelect): LONGINT; FUNCTION LRectHasLPt(destLRect: LRect; pt: LPoint): BOOLEAN; PROCEDURE LRectHaveLPt(destLRect: LRect; VAR pt: LPoint); FUNCTION LRectsNest(outer, inner: LRect): BOOLEAN; PROCEDURE RectifyLRect(VAR destLRect: LRect); FUNCTION LRectIsVisible(srcLRect: LRect): BOOLEAN; PROCEDURE LPointToStr(pt: LPoint; str: TPstring); PROCEDURE LRectToStr(r: LRect; str: TPstring); PROCEDURE SetLPt(VAR destPt: LPoint; itsH, itsV: LONGINT); PROCEDURE SetLRect(VAR dstRect: LRect; itsLeft, itsTop, itsRight, itsBottom: LONGINT); PROCEDURE OffsetLRect(VAR dstRect: LRect; dh, dv: LONGINT); PROCEDURE InsetLRect(VAR dstRect: LRect; dh, dv: LONGINT); FUNCTION SectLRect(srcRectA, srcRectB: LRect; VAR dstRect: LRect): BOOLEAN; PROCEDURE UnionLRect(srcRectA, srcRectB: LRect; VAR dstRect: LRect); FUNCTION LPtInLRect(pt: LPoint; r: LRect): BOOLEAN; FUNCTION IsSmallPt(srcPt: LPoint): BOOLEAN; FUNCTION IsSmallRect(srcRect: LRect): BOOLEAN; PROCEDURE DrawLText(textBuf: Ptr; startByte, numBytes: INTEGER); PROCEDURE MoveToL(h, v: LONGINT); PROCEDURE MoveL(dh, dv: LONGINT); PROCEDURE LineToL(h, v: LONGINT); PROCEDURE LineL(dh, dv: LONGINT); PROCEDURE FrameLRect(r: LRect); PROCEDURE PaintLRect(r: LRect); PROCEDURE EraseLRect(r: LRect); PROCEDURE InvrtLRect(r: LRect); PROCEDURE FillLRect(r: LRect; lPat: LPattern); PROCEDURE FrameLOval(r: LRect); PROCEDURE PaintLOval(r: LRect); PROCEDURE EraseLOval(r: LRect); PROCEDURE InvrtLOval(r: LRect); PROCEDURE FillLOval(r: LRect; lPat: LPattern); PROCEDURE FrameLRRect(r: LRect; ovalWidth, ovalHeight: INTEGER); PROCEDURE PaintLRRect(r: LRect; ovalWidth, ovalHeight: INTEGER); PROCEDURE EraseLRRect(r: LRect; ovalWidth, ovalHeight: INTEGER); PROCEDURE InvrtLRRect(r: LRect; ovalWidth, ovalHeight: INTEGER); PROCEDURE FillLRRect(r: LRect; ovalWidth, ovalHeight: INTEGER; lPat: LPattern); PROCEDURE FrameLArc(r: LRect; startAngle, arcAngle: INTEGER); PROCEDURE PaintLArc(r: LRect; startAngle, arcAngle: INTEGER); PROCEDURE EraseLArc(r: LRect; startAngle, arcAngle: INTEGER); PROCEDURE InvrtLArc(r: LRect; startAngle, arcAngle: INTEGER); PROCEDURE FillLArc(r: LRect; startAngle, arcAngle: INTEGER; lPat: LPattern); FUNCTION ClonePicture(pic: PicHandle; toHeap: THeap): PicHandle; PROCEDURE ResizeFeedback(mousePt: Point; minPt, maxPt: Point; outerRect: Rect; tabHeight, sbWidth, sbHeight: INTEGER; VAR newPt: Point); PROCEDURE PushFocus; PROCEDURE PopFocus; {$IFC LibraryVersion <= 20} PROCEDURE MakeTypeStyle(itsFamily: INTEGER; itsSize: INTEGER; itsFaces: TSetEFace; VAR typeStyle: TTypeStyle); {$ELSEC} PROCEDURE MakeTypeStyle(itsFamily: INTEGER; itsSize: INTEGER; itsFaces: Style; VAR typeStyle: TTypeStyle); {$ENDC} FUNCTION QDFontNumber(typeStyle: TTypeStyle): INTEGER; PROCEDURE SetQDTypeStyle(typeStyle: TTypeStyle); IMPLEMENTATION H UOBJECT $SETC IsIntrinsic := TRUE} {$IFC IsIntrinsic} INTRINSIC; {$ENDC} {$SETC ErrsToFile := FALSE } {$IFC ErrsToFile} {$E ERRS.TEXT} {$ENDC} INTERFACE {$SETC LibraryVersion := 30 } {$SETC compatibleLists := FALSE } USES UnitStd, UnitHz, {$U LIBOS/SysCall } SysCall, {$IFC LibraryVersion > 20} {$U LIBOS/PSysCall } PSysCall, {$ENDC} {$IFC LibraryVersion <= 20} {$U UClascal} UClascal, {$ELSEC} {$IFC LibraryVersion < 30} {$U LIBTK/UClascal} UClascal, {$ELSEC} {$U LIBPL/UClascal} UClascal, {$ENDC} {$ENDC} PmDecl, Pmm, {$IFC LibraryVersion > 10} {$U LIBPL/PaslibCall} PaslibCall, {$U LIBPL/PPasLibc } PPasLibC, {$ENDC} {$U HWInt} HWInt; {$SETC fDbgOK := TRUE} {$SETC fSymOK := TRUE} {$SETC fDbgObject := fDbgOK} {$SETC fRngObject := fDbgOK} {$SETC fSymObject := fSymOK} {$SETC fDebugMethods := fDbgObject} {$SETC fCheckHeap := fDbgObject} {$SETC fTrace := fDbgObject} {$SETC fMaxTrace := fTrace AND FALSE} {$SETC fCheckIndices := fDbgObject} CONST prcsLdsn = 1; prcsDsBytes = 15000; MaxBreaks = 10; outputRMargin = 85; erInternal = 4200; MAXLINT = $7FFFFFFF; TYPE Ptr = ^LONGINT; ProcPtr = Ptr; Handle = ^Ptr; S8 = STRING[8]; S255 = STRING[255]; TFilePath = S255; TFilePart = STRING[32]; TPassword = TFilePart; THeap = Ptr; TClass = Ptr; Byte = -128..127; TPString = ^S255; TpINTEGER = ^INTEGER; TpLONGINT = ^LONGINT; TAuthorName = STRING[32]; TClassName = STRING[8]; TClassWorld = RECORD infRecs: TArray ; classes: TArray ; authors: TArray ; aliases: TArray ; END; TEnumAccesses = (fRead, fWrite, fAppend, fPrivate); TAccesses = SET OF TEnumAccesses; TIOMode = (fAbsolute, fRelative, fSequential); xReadWrite = (xRead, xWrite); SizeOfNumber = 1..4; TScanDirection = (scanForward, scanBackward); TConvResult = (cvValid, cvNoNumber, cvBadNumber, cvOverflow); TObject = SUBCLASS OF NIL FUNCTION TObject.CREATE(object: TObject; heap: THeap): TObject; ABSTRACT; PROCEDURE TObject.Become(object: TObject); FUNCTION TObject.Class: TClass; FUNCTION TObject.CloneObject(heap: THeap): TObject; FUNCTION TObject.Clone(heap: THeap): TObject; DEFAULT; PROCEDURE TObject.FreeObject; DEFAULT; PROCEDURE TObject.Free; DEFAULT; FUNCTION TObject.Heap: THeap; FUNCTION TObject.HeapBytes: INTEGER; PROCEDURE TObject.Read(s: TStringScanner); PROCEDURE TObject.Write(s: TStringScanner); {$IFC fDebugMethods} PROCEDURE TObject.Fields(PROCEDURE Field(nameAndType: S255)); DEFAULT; PROCEDURE TObject.Debug(numLevels: INTEGER; memberTypeStr: S255); DEFAULT; {$ENDC} PROCEDURE TObject.Convert(fromVersion: Byte); FUNCTION TObject.JoinClass(newClass: TClass): TObject; END; TCollecHeader = RECORD classPtr: TClass; size: LONGINT; dynStart: INTEGER; holeStart: INTEGER; holeSize: INTEGER; holeStd: INTEGER; END; TFastString = RECORD header: TCollecHeader; ch: PACKED ARRAY[1..32740] OF CHAR; END; TPFastString = ^TFastString; THFastString = ^TPFastString; TArrayHeader = RECORD classPtr: TClass; size: LONGINT; dynStart: INTEGER; holeStart: INTEGER; holeSize: INTEGER; holeStd: INTEGER; recordBytes: INTEGER; END; TCollection = SUBCLASS OF TObject size: LONGINT; dynStart: INTEGER; holeStart: INTEGER; holeSize: INTEGER; holeStd: INTEGER; FUNCTION TCollection.CREATE(object: TObject; heap: THeap; initialSlack: INTEGER): TCollection; FUNCTION TCollection.Clone(heap: THeap): TObject; OVERRIDE; FUNCTION TCollection.MemberBytes: INTEGER; ABSTRACT; FUNCTION TCollection.Equals(otherCollection: TCollection): BOOLEAN; PROCEDURE TCollection.StartEdit(withSlack: INTEGER); PROCEDURE TCollection.StopEdit; PROCEDURE TCollection.InsManyAt(i: LONGINT; otherCollection: TCollection; index, howMany: LONGINT); PROCEDURE TCollection.InsNullsAt(i, howMany: LONGINT); {$IFC fRngObject} PROCEDURE TCollection.CheckIndex(index: LONGINT); {$ENDC} FUNCTION TCollection.AddrMember(i: LONGINT): LONGINT; PROCEDURE TCollection.CopyMembers(dstAddr, startIndex, howMany: LONGINT); PROCEDURE TCollection.EditAt(atIndex: LONGINT; deltaMembers: INTEGER); PROCEDURE TCollection.ResizeColl(membersPlusHole: INTEGER); PROCEDURE TCollection.ShiftColl(afterSrcIndex, afterDstIndex, howMany: INTEGER); END; TList = SUBCLASS OF TCollection FUNCTION TList.CREATE(object: TObject; heap: THeap; initialSlack: INTEGER): TList; FUNCTION TList.Clone(heap: THeap): TObject; OVERRIDE; PROCEDURE TList.Free; OVERRIDE; {$IFC fDebugMethods} PROCEDURE TList.Debug(numLevels: INTEGER; memberTypeStr: S255); OVERRIDE; PROCEDURE TList.DebugMembers; {$ENDC} FUNCTION TList.MemberBytes: INTEGER; OVERRIDE; PROCEDURE TList.Each(PROCEDURE DoToObject(object: TObject)); DEFAULT; FUNCTION TList.Pos(after: LONGINT; object: TObject): LONGINT; FUNCTION TList.Scanner: TListScanner; FUNCTION TList.ScannerFrom(firstToScan: LONGINT; scanDirection: TScanDirection): TListScanner; DEFAULT; FUNCTION TList.At(i: LONGINT): TObject; DEFAULT; FUNCTION TList.First: TObject; DEFAULT; FUNCTION TList.Last: TObject; DEFAULT; FUNCTION TList.ManyAt(i, howMany: LONGINT): TList; DEFAULT; PROCEDURE TList.InsAt(i: LONGINT; object: TObject); DEFAULT; PROCEDURE TList.InsFirst(object: TObject); PROCEDURE TList.InsLast(object: TObject); PROCEDURE TList.DelAll(freeOld: BOOLEAN); DEFAULT; PROCEDURE TList.DelAt(i: LONGINT; freeOld: BOOLEAN); DEFAULT; PROCEDURE TList.DelFirst(freeOld: BOOLEAN); PROCEDURE TList.DelLast(freeOld: BOOLEAN); PROCEDURE TList.DelManyAt(i, howMany: LONGINT; freeOld: BOOLEAN); DEFAULT; PROCEDURE TList.DelObject(object: TObject; freeOld: BOOLEAN); FUNCTION TList.PopLast: TObject; PROCEDURE TList.PutAt(i: LONGINT; object: TObject; freeOld: BOOLEAN); DEFAULT; END; TArray = SUBCLASS OF TCollection recordBytes: INTEGER; FUNCTION TArray.CREATE(object: TObject; heap: THeap; initialSlack, bytesPerRecord: INTEGER): TArray; FUNCTION TArray.MemberBytes: INTEGER; OVERRIDE; PROCEDURE TArray.Each(PROCEDURE DoToRecord(pRecord: Ptr)); DEFAULT; FUNCTION TArray.Pos(after: LONGINT; pRecord: Ptr): LONGINT; FUNCTION TArray.Scanner: TArrayScanner; FUNCTION TArray.ScannerFrom(firstToScan: LONGINT; scanDirection: TScanDirection): TArrayScanner; DEFAULT; FUNCTION TArray.At(i: LONGINT): Ptr; DEFAULT; FUNCTION TArray.First: Ptr; PROCEDURE TArray.GetAt(i: LONGINT; pRecord: Ptr); DEFAULT; FUNCTION TArray.Last: Ptr; FUNCTION TArray.ManyAt(i, howMany: LONGINT): TArray; DEFAULT; PROCEDURE TArray.InsAt(i: LONGINT; pRecord: Ptr); DEFAULT; PROCEDURE TArray.InsFirst(pRecord: Ptr); PROCEDURE TArray.InsLast(pRecord: Ptr); PROCEDURE TArray.DelAll; DEFAULT; PROCEDURE TArray.DelAt(i: LONGINT); DEFAULT; PROCEDURE TArray.DelFirst; PROCEDURE TArray.DelLast; PROCEDURE TArray.DelManyAt(i, howMany: LONGINT); DEFAULT; PROCEDURE TArray.PutAt(i: LONGINT; pRecord: Ptr); DEFAULT; END; TString = SUBCLASS OF TCollection FUNCTION TString.CREATE(object: TObject; heap: THeap; initialSlack: INTEGER): TString; FUNCTION TString.MemberBytes: INTEGER; OVERRIDE; PROCEDURE TString.Each(PROCEDURE DoToCharacter(character: CHAR)); FUNCTION TString.Pos(after: LONGINT; character: CHAR): LONGINT; FUNCTION TString.Scanner: TStringScanner; FUNCTION TString.ScannerFrom(firstToScan: LONGINT; scanDirection: TScanDirection): TStringScanner; FUNCTION TString.At(i: LONGINT): CHAR; FUNCTION TString.First: CHAR; FUNCTION TString.Last: CHAR; FUNCTION TString.ManyAt(i, howMany: LONGINT): TString; PROCEDURE TString.ToPStr(pStr: TPString); PROCEDURE TString.ToPStrAt(i, howMany: LONGINT; pStr: TPString); PROCEDURE TString.InsAt(i: LONGINT; character: CHAR); PROCEDURE TString.InsFirst(character: CHAR); PROCEDURE TString.InsLast(character: CHAR); PROCEDURE TString.InsPStrAt(i: LONGINT; pStr: TPString); PROCEDURE TString.DelAll; PROCEDURE TString.DelAt(i: LONGINT); PROCEDURE TString.DelFirst; PROCEDURE TString.DelLast; PROCEDURE TString.DelManyAt(i, howMany: LONGINT); PROCEDURE TString.PutAt(i: LONGINT; character: CHAR); PROCEDURE TString.Draw(i: LONGINT; howMany: INTEGER); FUNCTION TString.Width(i: LONGINT; howMany: INTEGER): INTEGER; END; TFile = SUBCLASS OF TCollection path: TFilePath; password: TPassword; scanners: TList ; FUNCTION TFile.CREATE(object: TObject; heap: THeap; itsPath: TFilePath; itsPassword: TPassword): TFile; PROCEDURE TFile.Free; OVERRIDE; FUNCTION TFile.Clone(heap: THeap): TObject; OVERRIDE; FUNCTION TFile.MemberBytes: INTEGER; OVERRIDE; FUNCTION TFile.Scanner: TFileScanner; FUNCTION TFile.ScannerFrom(firstToScan: LONGINT; manip: TAccesses): TFileScanner; PROCEDURE TFile.ChangePassword(VAR error: INTEGER; newPassword: TPassword); PROCEDURE TFile.Delete(VAR error: INTEGER); FUNCTION TFile.Exists(VAR error: INTEGER): BOOLEAN; FUNCTION TFile.WhenModified(VAR error: INTEGER): LONGINT; PROCEDURE TFile.Rename(VAR error: INTEGER; newFileName: TFilePath); FUNCTION TFile.VerifyPassword(VAR error: INTEGER; password: TPassword): BOOLEAN; END; TScanner = SUBCLASS OF TObject collection: TCollection; position: LONGINT; increment: INTEGER; scanDone: BOOLEAN; atEnd: BOOLEAN; FUNCTION TScanner.CREATE(object: TObject; itsCollection: TCollection; itsInitialPosition: LONGINT; scanDirection: TScanDirection): TScanner; PROCEDURE TScanner.Close; DEFAULT; PROCEDURE TScanner.Open; DEFAULT; PROCEDURE TScanner.Allocate(slack: LONGINT); DEFAULT; PROCEDURE TScanner.Compact; DEFAULT; FUNCTION TScanner.Advance(PROCEDURE DoToCurrent(anotherMember: BOOLEAN)): BOOLEAN; PROCEDURE TScanner.Done; DEFAULT; PROCEDURE TScanner.Reverse; DEFAULT; PROCEDURE TScanner.Seek(newPosition: LONGINT); DEFAULT; PROCEDURE TScanner.Skip(deltaPos: LONGINT); DEFAULT; END; TListScanner = SUBCLASS OF TScanner FUNCTION TListScanner.CREATE(object: TObject; itsList: TList; itsInitialPosition: LONGINT; itsScanDirection: TScanDirection): TListScanner; PROCEDURE TListScanner.Free; OVERRIDE; FUNCTION TListScanner.Obtain: TObject; DEFAULT; FUNCTION TListScanner.Scan(VAR nextObject: TObject): BOOLEAN; DEFAULT; PROCEDURE TListScanner.Append(object: TObject); DEFAULT; PROCEDURE TListScanner.Delete(freeOld: BOOLEAN); DEFAULT; PROCEDURE TListScanner.DeleteRest(freeOld: BOOLEAN); DEFAULT; PROCEDURE TListScanner.Replace(object: TObject; freeOld: BOOLEAN); DEFAULT; END; TArrayScanner = SUBCLASS OF TScanner FUNCTION TArrayScanner.CREATE(object: TObject; itsArray: TArray; itsInitialPosition: LONGINT; itsScanDirection: TScanDirection): TArrayScanner; PROCEDURE TArrayScanner.Free; OVERRIDE; FUNCTION TArrayScanner.Obtain: Ptr; DEFAULT; FUNCTION TArrayScanner.Scan(VAR pNextRecord: Ptr): BOOLEAN; DEFAULT; PROCEDURE TArrayScanner.Append(pRecord: Ptr); DEFAULT; PROCEDURE TArrayScanner.Delete; DEFAULT; PROCEDURE TArrayScanner.DeleteRest; DEFAULT; PROCEDURE TArrayScanner.Replace(pRecord: Ptr); DEFAULT; END; TStringScanner = SUBCLASS OF TScanner actual: LONGINT; FUNCTION TStringScanner.CREATE(object: TObject; itsString: TString; itsInitialPosition: LONGINT; itsScanDirection: TScanDirection): TStringScanner; PROCEDURE TStringScanner.Free; OVERRIDE; FUNCTION TStringScanner.Obtain: CHAR; DEFAULT; FUNCTION TStringScanner.Scan(VAR nextChar: CHAR): BOOLEAN; DEFAULT; PROCEDURE TStringScanner.Append(character: CHAR); DEFAULT; PROCEDURE TStringScanner.Delete; DEFAULT; PROCEDURE TStringScanner.DeleteRest; DEFAULT; PROCEDURE TStringScanner.Replace(character: CHAR); DEFAULT; FUNCTION TStringScanner.ReadArray(heap: THeap; bytesPerRecord: INTEGER): TArray; FUNCTION TStringScanner.ReadNumber(numBytes: SizeOfNumber): LONGINT; FUNCTION TStringScanner.ReadObject(heap: THeap): TObject; PROCEDURE TStringScanner.WriteArray(a: TArray); PROCEDURE TStringScanner.WriteNumber(value: LONGINT; numBytes: SizeOfNumber); PROCEDURE TStringScanner.WriteObject(object: TObject); PROCEDURE TStringScanner.XferContiguous(whichWay: xReadWrite; collection: TCollection); PROCEDURE TStringScanner.XferFields(whichWay: xReadWrite; object: TObject); PROCEDURE TStringScanner.XferPString(whichWay: xReadWrite; pStr: TPString); PROCEDURE TStringScanner.XferSequential(whichWay: xReadWrite; pFirst: Ptr; numBytes: LONGINT); DEFAULT; PROCEDURE TStringScanner.XferRandom(whichWay: xReadWrite; pFirst: Ptr; numBytes: LONGINT; mode: TIOMode; offset: LONGINT); DEFAULT; END; TFileScanner = SUBCLASS OF TStringScanner accesses: TAccesses; refnum: INTEGER; error: INTEGER; FUNCTION TFileScanner.CREATE(object: TObject; itsFile: TFile; manip: TAccesses): TFileScanner; PROCEDURE TFileScanner.FreeObject; OVERRIDE; PROCEDURE TFileScanner.Free; OVERRIDE; PROCEDURE TFileScanner.Close; OVERRIDE; PROCEDURE TFileScanner.Open; OVERRIDE; PROCEDURE TFileScanner.Allocate(slack: LONGINT); OVERRIDE; PROCEDURE TFileScanner.Compact; OVERRIDE; PROCEDURE TFileScanner.Seek(newPosition: LONGINT); OVERRIDE; PROCEDURE TFileScanner.Skip(deltaPos: LONGINT); OVERRIDE; FUNCTION TFileScanner.Obtain: CHAR; OVERRIDE; FUNCTION TFileScanner.Scan(VAR nextChar: CHAR): BOOLEAN; OVERRIDE; PROCEDURE TFileScanner.Append(character: CHAR); OVERRIDE; PROCEDURE TFileScanner.Delete; OVERRIDE; PROCEDURE TFileScanner.DeleteRest; OVERRIDE; PROCEDURE TFileScanner.Replace(character: CHAR); OVERRIDE; PROCEDURE TFileScanner.XferSequential(whichWay: xReadWrite; pFirst: Ptr; numBytes: LONGINT); OVERRIDE; PROCEDURE TFileScanner.XferRandom(whichWay: xReadWrite; pFirst: Ptr; numBytes: LONGINT; mode: TIOMode; offset: LONGINT); OVERRIDE; END; {$IFC compatibleLists} TDynamicArray = SUBCLASS OF TArray ch: ARRAY [0..16370] OF CHAR; FUNCTION TDynamicArray.CREATE(object: TObject; heap: THeap; bytesPerRecord: INTEGER; initialSize: INTEGER): TDynamicArray; FUNCTION TDynamicArray.NumRecords: INTEGER; PROCEDURE TDynamicArray.BeSize(newSize: INTEGER); END; TIndexList = SUBCLASS OF TList elements: ARRAY[1..1] OF TObject; FUNCTION TIndexList.CREATE(object: TObject; heap: THeap; initialSize: INTEGER): TIndexList; FUNCTION TIndexList.numElements: INTEGER; END; TLinkList = SUBCLASS OF TList FUNCTION TLinkList.CREATE(object: TObject; heap: THeap): TLinkList; FUNCTION TLinkList.numElements: INTEGER; END; TBlockList = SUBCLASS OF TList FUNCTION TBlockList.CREATE(object: TObject; heap: THeap; itsMinBlockSize: INTEGER): TBlockList; FUNCTION TBlockList.numElements: INTEGER; END; TFileStream = SUBCLASS OF TFileScanner FUNCTION TFileStream.CREATE(object: TObject; heap: THeap; path: S255; manip: TAccesses): TFileStream; FUNCTION TFileStream.Size: LONGINT; END; {$ENDC} VAR mainDsRefnum: INTEGER; mainHeap: THeap; mainLdsn: INTEGER; fCheckIndices: BOOLEAN; onDesktop: BOOLEAN; wmIsInitialized: BOOLEAN; isInitialized: BOOLEAN; amDying: BOOLEAN; myWorld: TClassWorld; indentTrace: INTEGER; currXPos: INTEGER; outputIndent: INTEGER; {$IFC fTrace} fDebugRecursion: BOOLEAN; keyPresLimit: INTEGER; {$ENDC} {$IFC fCheckHeap} FUNCTION CountHeap(heap: THeap): INTEGER; {$ENDC} FUNCTION Min(i, j: LONGINT): LONGINT; FUNCTION Max(i, j: LONGINT): LONGINT; PROCEDURE XferLeft(source, dest: Ptr; nBytes: INTEGER); PROCEDURE XferRight(source, dest: Ptr; nBytes: INTEGER); FUNCTION EqualBytes(source, dest: Ptr; nBytes: INTEGER): BOOLEAN; FUNCTION LIntAndLInt(i, j: LONGINT): LONGINT; FUNCTION LIntOrLInt(i, j: LONGINT): LONGINT; FUNCTION LIntXorLInt(i, j: LONGINT): LONGINT; FUNCTION NewObject(heap: THeap; itsClass: TClass): TObject; FUNCTION NewDynObject(heap: THeap; itsClass: TClass; dynBytes: INTEGER): TObject; PROCEDURE ResizeDynObject(object: TObject; newTotalBytes: INTEGER); FUNCTION NewOrRecycledObject(heap: THeap; itsClass: TClass; VAR chainHead: TObject): TObject; PROCEDURE RecycleObject(object: TObject; VAR chainHead: TObject); PROCEDURE Free(object: TObject); {$IFC compatibleLists} FUNCTION SubObject(super: TObject; itsClass: TClass): TObject; PROCEDURE FileDelete(path: S255); PROCEDURE FileLookup(VAR error: INTEGER; path: S255); PROCEDURE FileRename(oldPath, newPath: S255); FUNCTION FileModified(path: S255): LONGINT; {$ENDC} FUNCTION Superclass(class: TClass): TClass; FUNCTION ClassDescendsFrom(descendant, ancestor: TClass): BOOLEAN; PROCEDURE NameOfClass(class: TClass; VAR className: TClassName); FUNCTION SizeOfClass(class: TClass): INTEGER; PROCEDURE UnitAuthor(companyAndAuthor: TAuthorName); PROCEDURE ClassAuthor(companyAndAuthor: TAuthorName; classAlias: TClassName); PROCEDURE ClassVersion(itsVersion, oldestItCanRead: Byte); FUNCTION ValidObject(hndl: Handle): BOOLEAN; PROCEDURE ABCBreak(s: S255; errCode: LONGINT); PROCEDURE ClascalError(error: INTEGER); PROCEDURE LIntToHex(decNumber: LONGINT; hexNumber: TPString); PROCEDURE LIntToStr(decNumber: LONGINT; str: TPString); PROCEDURE IntToStr(decNumber: INTEGER; str: TPString); PROCEDURE HexStrToLInt(hexString: TPString; VAR decNumber: LONGINT; VAR result: TConvResult); PROCEDURE StrToLInt(str: TPString; VAR decNumber: LONGINT; VAR result: TConvResult); PROCEDURE StrToInt(str: TPString; VAR decNumber: INTEGER; VAR result: TConvResult); PROCEDURE TrimBlanks(str: TPString); FUNCTION CharUpperCased(ch: CHAR): CHAR; PROCEDURE StrUpperCased(str: TPString); PROCEDURE SplitFilePath(VAR fullPath, itsCatalog, itsFilePart: TFilePath); PROCEDURE LatestError(newError: INTEGER; VAR previousError: INTEGER); {$IFC fDbgObject} PROCEDURE EntDebugger(inputStr, enterReason: S255); PROCEDURE DumpVar(pVariable: Ptr; nameAndType: S255); PROCEDURE WrStr(str: S255); PROCEDURE WrLn; {$IFC fDebugMethods} PROCEDURE WrObj(object: TObject; numLevels: INTEGER; memberTypeStr: S255); {$ENDC} {$ENDC} {$IFC fDbgObject OR fDebugMethods} FUNCTION CheckKeyPress(routine: S255): BOOLEAN; {$ENDC} FUNCTION NewHeap(VAR error: INTEGER; heapStart, numBytes: LONGINT; numObjects: INTEGER): THeap; FUNCTION MakeDataSegment(VAR error, dsRefnum: INTEGER; firstTryVolume, thenTryVolume: TFilePath; ldsn, memBytes, diskBytes: INTEGER): LONGINT; PROCEDURE SetHeap(heap: THeap); PROCEDURE GetHeap(VAR heap: THeap); FUNCTION NeedConversion(exClassWorld: TClassWorld; VAR olderVersion, newerVersion: BOOLEAN): BOOLEAN; PROCEDURE ConvertHeap(heap: THeap; exClassWorld: TClassWorld); PROCEDURE MarkHeap(heap: THeap; mpAddress: LONGINT); PROCEDURE SweepHeap(heap: THeap; report: BOOLEAN); {$IFC fTrace} PROCEDURE BP(MyTraceLevel:integer); PROCEDURE EP; {$ENDC} IMPLEMENTATION IntrinSgSgABCdatNEEDCONVNEEDCONV04CONVERTHCONVERTH0TARRAYSCTARRAYSC0LTSTRINGSTSTRINGS0XVALIDOBJVALIDOBJ0\MARKHEAPMARKHEAP00SWEEPHEASWEEPHEA0HFPTMULINFPTMULIN0FPTDIVINFPTDIVIN0BOOLTOSTBOOLTOST0PTPLUSPTPTPLUSPT0DPTMINUSPPTMINUSP0<PTMULINTPTMULINT0@PTDIVINTPTDIVINT08LPTMULINLPTMULIN0,LPTDIVINLPTDIVIN0(ISSMALLPISSMALLP0 ISSMALLRISSMALLR0$DRAWLTEXDRAWLTEX0CLONEPICCLONEPIC0 TCUTCOPYTCUTCOPY0PTPASTECOTPASTECO0TOJ0N9N. .g \@@H>BB m/(??<:d(_p/H// N-L LN^.NuAKEIDXAJoNVH(nAB,0,S@@HІ(.m0 G*_\ WRg/A g/ PNX`LN^ _ NACHOBJEJoNVH(m l P0. 2SAC>@>0JGfB.`6"nA"l"Q0S@A @Cp Vf|`|LN^ _\ONOMPARENJoNV n CJ""Bg m h P?(p6Ap6Bp6BAH/.Hz0/=_N^ _\ONOOKUPNAJoNVB. . @ gHHn/.Hn"Jnn2Hn?.HnƠ"Jnn/./<" l| N^.NuALIDDATJoNV/ nCJ""BgHnBgN>JGnBn ` m h P0S@A> @=p .N^.NuIOFALPHJoNV nCJ""2Hn?<?< "$A R/A/.@?:BgHnNT=_ N^.NuIOFCN JoNV n CJ""""/. n P0. 2SAC@?0 m h P0.2SAC@?0 m h P0.2SAC@/0HN^ _ NONVCLASJoNVH n CJ""""&mBn n P0.2SAC@IA"L J, f A"L `" n P, H2SAC~@CA ""J, gj n P, H2SAC~@CAp"S@n k P-H m=h|`& n0S@A~ @ACp Vg RFinoBF k P-H m=hz`& n0S@A~ @A Cp Vg>REinoBgHnN~>JGg" k P0S@A @0HAf=G`R`P k P-H m=h~`2 n0S@A @I, HFf, HEf=G` RGinoLN^ _\ONNDEXOFEJoNVH nCJ""""&n(mB n BBAC n P8( mhg|=D~`"BgHn?N:JEf` n P0S@A @CA""""=n n P0S@A @-p l P0S@A @CA""""=n l P0S@A @-p..]2.n]g..^2.n^g n  .V..Vg|Jnf Jng`BgHn?.N0._gRGino n @LN^ _ NEEDCONVJoNVH(n(l l P0. 2SAC>@>0JGfB.`. l P0S@A @"0 nf|`|LN^ _\ONOMPARESJoNVBg"n i P?(/.. Hzd/=_N^ _ NOOKUPSTJoNVH>. nGJGgV S P0S@A @IBg nHh?N<JFg& m h P0S@A @,0m=F`>,`Hz(0. H/2BnLN^ _\ONQUIVINDNo common superclassJoNVH&n(nB. n P-PA. GH6 GBJSlSJSg*0loBS` l P02SAC@"0gBSJSf> lo2Bg/.Bg/.N<JFn` l P0S@A> @6`` l P02SAC>@"n2| l P02SAC@A-H n(H: n8( m h P"n02SAC@A-H n "n)HE^"ni ]DLN^ _NINDCLASJoNVBg/. HnHnHn/.Ng(/. nHh?.?.N.g n|N^ _PONONVERTCJoNVBg/. HnHnHn/.N*g8.g2"n i P0.2SAC@0H0@A/. NN^ _PONONVERTFJoNVH nCJ""""(mAC n P=hB?.BgN.-_=n~`. n P0S@A> @H瀀Bg?/N2L1RGino nojB0.ܐ|?<N-_=n><`@ n P/Bg"n"Q0S@A @/1</N0 _2SAC>@1RGinoB./. Hz(/N.g/. Hzt/N/,/.Ԡ no /,/.ؠLN^ _PONONVERTHJoNVN^ _\ONNVERT TOBJECT JoNVH&n ..?<zB/N(_Bg/ / H g2Bg/ / Hg/Bg/ TBg/ T/ H` Hz./ 2-GzLN^ _PONINCLASTOBJECT ,+An Object cannot move to an unrelated classJoNVH(n &n?<zB.Bg/ N: S<(f|`VH TfLBg/ N_f@=F~`,BgBH// NBH// N?:  fRGino|zLN^ _PONUALS TCOLLECTJoNVH(n,. *.?<z T hf Hzp/2/?/ N Jo6B// N. GB/ R/Bg/ N0H//" S?:zLN^ _ NSNULLSTCOLLECTNo dynamic partJoNV?<z n P hfHz80. H/2 n P1n zN^ _\ONARTEDITCOLLECTNo dynamic partJoNVH?<zBB/. /. mHh?<?<L mHh(_ T=h~`0BH//.N&_ gH/B/. / NBg/ N RGino-LzLN^ _PONONE TLIST JoNV?<z. g:B/.Np/ n P (D?/.N zN^ _\ONLALL TLIST JoNVH(n..?<z m(g// N. gB// N:/?( T:( T (S=@BF`*Ff T  @H Д/A g/ PNERFinoРzLN^ _ NCH TARRAY JoNV?<zBp//.N-_ zN^.NuRST TARRAY JoNV?<zB n P/(/.N-_ zN^.NuST TARRAY JoNVH&n?<zBBB/ N?. S?(:d(_p// /./. / N-LzLN^ _ NNYAT TARRAY JoNV/B.BGn l H Ю @H Ю"@0Qg` TG`|.N^ _NQUALRECJoNV/ ?<z-nB/.Bg/.N(_BgHn/ Ng.Bg/. /. n P?(/N\g T-h/ N` z(_N^ _ NS TARRAY JoNV?<zBB/.BBgN-_ zN^.NuANNER TARRAY JoNV?<zBB/./.. Nd-_zN^ _ NANNERFTARRAY JoNVH(n.. ?<z m(g// N T0( Hl T0( Hހ T0(HД @0S@A0p@=@zLN^ _PON TSTRING JoNV?<zp/ n P (D?/.N zN^.NuLALL TSTRING JoNV?<z/. ? T0(HД&@JGo/ .S??N"Go>/ T"T0) h H/BH/B:<" ?HBH/B:8 ?N"hzLN^ _ NAW TSTRING JoNVH(n?<z T:( T0(HД&@~ T (S=@BF`0Ff Th 0S@A3p@?A g/ PNRGRFinoʠzLN^ _ NCH TSTRING JoNV?<zBgp//.N=_ zN^.NuRST TSTRING JoNVH&n?<z/.?</ N S0(HГ(@0.2SAC zLN^ _ NSAT TSTRING JoNV?<zp/?. /.N zN^ _\ONSFIRSTTSTRING JoNV?<z n P (R/?. /.N zN^ _\ONSLAST TSTRING JoNV?<zBg n P/(/.N=_ zN^.NuST TSTRING JoNV/ ?<zBBB/.N?.:(_p//././. / N-Lz(_N^ _ NNYAT TSTRING JoNV/ ?<z-nB/.Bg/.N(_BgHn/ Ng0.n f T-h/ N`֠z(_N^ _ NS TSTRING JoNVH(n..?<z m(g// N T0( Hl T0( Hހ T0(HД&@0S@A  zLN^ _ NTAT TSTRING JoNV?<zBB/.BBgN -_ zN^.NuANNER TSTRING JoNV?<zBB/./.. N -_zN^ _ NANNERFTSTRING JoNV?<zp/ n P/(/. /.N zN^ _PONPSTR TSTRING JoNV/..?<z o Hzb/2 Ю/Bg/.N B/./.N . R/?: n pz.N^ _NPSTRATTSTRING ToPStrAt: Too many charactersJoNVH n CJp"S@n2,. F PA(H F PA&HA././ / /"( nJPn F PACp S@n0LN^ _ NANGEPATFILE JoNVH n PA(H n PA&H/. / / "LN^ _PONLETE TFILE JoNV?<z=| zN^.NuMBERBYTFILE JoNVH n CJp@"S@n n PA(HHnHnHnz0A&H n PA././ / /"XLN^ _ NNAME TFILE JoNV?<zBB?:*/.N-_ zN^.NuANNER TFILE JoNVH n CJp"S@n2 n PA(HA&H/./ / " nJP_D@LN^ _ NRIFYPATFILE JoNV n PA-H/. /.Hn"< n JPn-n`p-@N^ _PONENMODITFILE JoNVH?<z n(P,gB`X,gB`>~0, HЬ)@Jl o l P ,\D@` _D@A g/ PN  g/.NGzLN^ _ NVANCE TSCANNERJoNV?<z?. n P/(NzN^ _PONLOCATETSCANNERJoNV?<zzN^.NuOSE TSCANNERJoNV?<z n P/(NzN^.NuMPACT TSCANNERJoNV?<zzN^.NuEN TSCANNERJoNV?<z n P0( D@ n P1@ zN^.NuVERSE TSCANNERJoNV?<z n P . Ш//.NzN^ _PONIP TSCANNERJoNV?<z n P (R//. B n P/( mHhN n P (R n P!@zN^ _PONPEND TLISTSCAJoNVH&n?<z S/(. B S/( mHhN (SJl o ,S)@zLN^ _\ONLETE TLISTSCAJoNVH&m?<z n(PJl o0 ,R/ l P (/. B/,HkN `"p/ ,S/. B/,HkN n(P l P!l|zLN^ _\ONLETERETLISTSCAJoNV?<zB n P/(B n P/( mHhN-_ zN^.NuTAIN TLISTSCAJoNV?<z n P/(/.. B n P/( mHhN zN^ _ NPLACE TLISTSCAJoNVH&n(m?<z fB/,A`/Hl:H&_BB/ /./. .:|Hl`-_zLN^ _NEATE TARRAYSCJoNV?<z/. mHh:TzN^.NuEE TARRAYSCJoNV?<z n P (R//. B n P/( mHhܠN n P (R n P!@zN^ _PONPEND TARRAYSCJoNVH&n?<z S/(B S/( mHhܠN(SJl o ,S)@zLN^.NuLETE TARRAYSCJoNVH&m?<z n(PJl o, ,R/ l P (/B/,HkܠN `p/ ,S/B/,HkܠN n(P l P!l|zLN^.NuLETERETARRAYSCJoNV?<zB n P/(B n P/( mHhܠN-_ zN^.NuTAIN TARRAYSCJoNV?<z n P/(/. B n P/( mHhܠN zN^ _PONPLACE TARRAYSCJoNV/ (n. g> l /B"l"Q/)/B"l"Q/)"mHiܠ  _/N  _ ` l B(_N^ _\ONSSIGNARJoNV?<zBgHz//.N_zN^ _PONAN TARRAYSCJoNVH&n(m?<z fB/,A/Hl:H&_BB/ /./. .:|Hl-_ n PBzLN^ _NEATE TSTRINGSJoNV?<z/. mHh:TzN^.NuEE TSTRINGSJoNV?<z n P (R/?. B n P/( mHhN n P (R n P!@zN^ _\ONPEND TSTRINGSJoNVH&n?<z S/(B S/( mHhN(SJl o ,S)@zLN^.NuLETE TSTRINGSJoNVH&m?<z n(PJl o, ,R/ l P (/B/,HkN`p/ ,S/B/,HkN n(P l P!l|zLN^.NuLETERETSTRINGSJoNV?<zBg n P/(B n P/( mHhN=_ zN^.NuTAIN TSTRINGSJoNV?<z n P/(?. B n P/( mHhNzN^ _\ONPLACE TSTRINGSJoNV/ (n. g> l /Bg"l"Q/)/B"l"Q/)"mHi  _/N0 _0` l BP(_N^ _\ONSSIGNSTJoNV?<zBgHz//.N_zN^ _PONAN TSTRINGSJoNVH?<zB</.N&_B/. / :D(_/./ N-LzLN^ _PONADOBJETSTRINGSJoNV?<z</. ?</.:ΠzN^ _PONITEARRTSTRINGSJoNV?<z<A X. HH/. HH//.NzN^ _ NITENUMTSTRINGSJoNV?<zB/. N</.N/./. NzN^ _PONITEOBJTSTRINGSJoNV?<z./. Bg/.:ΠzN^ _ NERCONTTSTRINGSJoNV?<z. n X/BgB/. NH 0Y@H//.NzN^ _ NERFIELTSTRINGSJoNV?<z .f n @2AC@.A/p//.N. . R/.HH//.NzN^ _ NERPSTRTSTRINGSJoNV?<z.HgS@g`/. /.N` /. /.N./././.NzN^ _NERRANDTSTRINGSJoNVH?<z n(P LX-H n P&PB +//. :<)_ +R/Bg/,N n(P/.B ,R//,N?,: ,Ь)@ l P ,WD@zLN^ _NERSEQUTSTRINGSJoNV?<z/.N/.BgB n P/( mHh _ P/(2N/. mHh|?<?<LzN^.NuEEOBJETFILESCAJoNV/ ?<zB n P/( mHh(_/.N T h2 PJf/ Nz(_N^.NuEE TFILESCAJoNVH(n?<zHn T?(Hn"" . ЮN2.VHҀS/0.VH/"0.VHЮRS/0.VH/" ".JoHn T?(</Hn" Jn_^gHn T?(Bg /Hn" ?. THh:zLN^ _PONLOCATETFILESCAJoNV?<zHn n P?("4?. n PHh:zN^.NuOSE TFILESCAJoNV?<zHn n P?("8?. n PHh:zN^.NuMPACT TFILESCAJoNV?<zp//.NzN^.NuLETE TFILESCAJoNVH&n?<zHn S?("?. SHh:(S l P!l|zLN^.NuLETERETFILESCAJoNV?<z<A R/p//.NzN^ _\ONPEND TFILESCAJoNV?<zBgA R/p/<p//.N=n zN^.NuTAIN TFILESCAJoNV?<z<A R/p/<p//.NzN^ _\ONPLACE TFILESCAJoNV/ (n. gBg , R/p//,N` l BP(_N^ _\ONSSIGNFIJoNV?<zBgHz//.N_zN^ _PONAN TFILESCAJoNV?<zBgA/B</. /.NzN^ _PONIP TFILESCAJoNVB ^A]D@ N^.NuALIDGLOJoNVH..Bg/NBg V/N"A gV|dBEBg Y/NBg S/Nx"A JF^g Y @: Y @.SF` EWD@ `B. LN^.NuALIDSTPJoNVB. JV mJVg8Bg/.N˴g*Bg n/NˤgBgB/.:8Ng| N^.NuALIDOBJJoNVH-n nAB( n0(S@@HЄ-@BE|=| n(h n(h8(n-T .Y-@ n0@?=@0.HЮ2.HҀ]-AH Ю.. g G-P G TTEB.Ͼ_. gv G,nfn`B /p/: JfL(F-TJm@_".޲_ WRg| G =E .=@-FTTE`z.g BE`,.:.0.HЄ-@(n nfLN^ _PONARKHEAPJoNVH&n (n. )K lJl)G l`,g/- Bg/ NgB/ :8Hn`AC 0/ A/z(/- pA?<x/- Hz`Bg/- HnBg/- Hz8Bg/- HnBg` /, / LN^ _PONOLLECTG. of class Found garbage object $????????JoNV/. Hz/NZN^ _\ONWEEPHEAJoNV0. =@0. =@-nN^ _\ONPTMULINJoNV0. H=@0. H=@-nN^ _\ONPTDIVINJoNV. g nC, 0` nC 0N^ _\ONOOLTOST FALSETRUEJoNV0.n n1@0. n n0N^ _ NTPLUSPTJoNV0.n n1@0.n n0N^ _ NTMINUSPJoNV0.  n1@0.  n0N^ _ NTMULINTJoNV0.H n1@0.H n0N^ _ NTDIVINTJoNV nCJ""0. H/./" n!_0. H/./" n N^ _ NPTMULINJoNV nCJ"" n/B/.?. :$  _!@ n/B/.?. :$  _ N^ _ NPTDIVINJoNV nCJ"" .jD ]".jD ]D@ N^.NuSSMALLPJoNV nCJ""""BgHnNBgHnN@ N^.NuSSMALLRJoNV m h P(pg/. ?. ?. m/(N`/. ?. ?.TN^ _PONRAWLTEXJoNVH&n B/. S?(_// S?:-LLN^ _PONLONEPICJoNV/ n PIz?. 0.HЮ///,(_N^ _ NAWLTEXTPAD JoNV?<z<̠zN^.NuOUTTOCTCLIPBOAJoNVH,.(m?<zJf)F` HzB2Hn&dJnoHz0.H/2D `Hn&B/ m$/(/N. F P!GBBB/ /BgBg?:Z?:V4H*BB mHh/N( l P h6C0Ap "S@nzLN^.NuGINCUTTCLIPBOAB StartPutScrapEraseScrapData!BeginCut: Clipboard already boundJoNVH(nBB m/(HzHz:p.B/N&_ l P!KVHlBg&PHn "JloHz60,H/2<BD/./ NLN^.NuOPYSCRA2"CopyScrap: error from Info_Dataseg TKScrapCopyJoNVH(m?<z ,ܰg Jg/,N)nHn&8JnoHz0.H/2D `HnBg&PBg"pJnoHz0.H/2HnHn& n PBB m$ (԰f .f| B m$/((-_ . fT&n m$ (԰g4Bg SHhHnHnNg/NBB& SHhNB/ N S"n"Q#hB/.NzLN^.NuND TCLIPBOA SetAccess_DataSeg StartGetScrapJoNV?<z& zN^.NuMMITCUTCLIPBOAJoNVH&n?<z S(hB T h$ P.(, G PJhfHzB2D `f:P/ N?:Bg/ N:LBB S/(>/ mHh40,< /Hn&/ NHn&\JnoHz<0.H/2 SBB mBܠzLN^.NuDCUT TCLIPBOA2 EndPutScrap#No selection in Clipboard at EndCutJoNVH(n l P&hV g(BgBD S/(BgB/ N/ N l PBVLN^.NuESTORESJoNV/ (m?<z .fH/N . f Hz`/.2B n PBBHn&XJnoHz,0.H/2z(_N^.NuBIND TCLIPBOA. EndGetScrap!TClipboard.Unbind currentDocumentJoNV?<zHn@/.NJn_D@ zN^.NuDOCUT TCLIPBOAJoNV?<zJfB/. mAX/:D-_BB/./.?./. <<H mHhX-_ n PnzN^ _NEATE TCUTCOPYJoNV?<z m/(NzN^.NuMMIT TCUTCOPYJoNVH&n. (m?<zH0gS@gJS@g`J/,N/,N l P hB P h$ P/(, S(/ N/,N` S(gh l P(J g HzB2`J/,N l PJBf Hz.<. / /.:dFgB/ -_Bg/./ :(E]F^gH Ї/H І/ G?:/./ FG?DE]F]gH Ї/H І/ G?:Fl H ЇR(@B/ R/ GS@?:LN^ _ NECREATEJoNV n-h N^.NuUPERCLAJoNV/ (n V" Vg(l` VD@(_N^ _PONLASSDESJoNV/. /.N^ _PONAMEOFCLJoNVBg/.T=_ N^.NuIZEOFCLJoNVB/. /.N-_N^ _PONONE TOBJECT JoNVH?<z(n &nBg/ / >B/ ?,/ F/?:B/ mHhР-_zLN^ _PONONEOBJTOBJECT JoNV?<zBgB/./.=_ zN^.NuAPBYTETOBJECT JoNVH(n &nB0H/0H/:< 8>`*0H<0H: ưTW"ŲSWg86SG GlLN^ _PONEDUCE JoNV0. n=@0.n =@-nN^ _PONPTPLUSPJoNV0.n =@0. n=@-nN^ _PONPTMINUSJoNVB0.H/0. H/:8 =@B0. H/0.H/:8 =@-nN^ _PONPTMAXPTJoNVB0.H/0. H/:< =@B0. H/0.H/:< =@-nN^ _PONPTMINPTJoNV nCJ""0.n=@0.n=@-n N^.NuDIAGRECJoNVJ o"B0.HHЮ /?.:$-_`"B0.HH". /?.:$-_N^ _\ONINTOVRIJoNV nCJ"" n CJ""0.n n1@0.n n00.n n1@0.n n1@N^ _ NECTPLUSJoNV nCJ"" n CJ""0.n n1@0.n n00.n n1@0.n n1@N^ _ NECTMINUJoNV n CJ"".HA@ n.HCA1.HA@ n.HCA1N^ _ NLIGNRECJoNV n CJ"".HA@.HCA46v=BN^ _\ONENGTHREJoNV n CJ"" nCJ""BgHn/.N*BgHn/.N@N^ _PONECTSNESJoNV n CJ""0.n _2. n_2.n_2.n_D@N^ _PONECTHASPJoNV n CJ"" n/B0.H//B0.H/"n0)H/:<  _/:8  _1@ n/B0.H//B0.H/"n0H/:<  _/:8  _0N^ _PONECTHAVEJoNV n/ n/(/.XN^.NuECTIFYRJoNV nCJ""BgHn m/(蠊_ N^.NuECTISVIJoNV nCJ"" n CJ"" .Ю n!@ .Ю n N^ _ NPTPLUSLJoNV nCJ"" n CJ"" . n!@ . n N^ _ NPTMINUSJoNV n CJ"" nCJ"" .W".WD@N^ _PONQUALLPTJoNV nCJ"""" n CJ"""" .Ю n!@ .Ю n .Ю n!@ .Ю n!@N^ _ NRECTPLUJoNV nCJ"""" n CJ"""" . n!@ . n . n!@ . n!@N^ _ NRECTMINJoNV n CJ"""" nCJ"""" .W".W".W".WD@N^ _PONQUALLREJoNV nCJ"""" .\".\D@ N^.NuMPTYLREJoNV n CJ"""".HA@ n.HCA!.HA@ n.HCA!N^ _ NLIGNLREJoNV n CJ"""".HA@.HCA$6-BN^ _\ONENGTHLRJoNV n CJ"""" nCJ""""BgHnHnN*BgHnHnN@N^ _PONRECTSNEJoNV n CJ"""" nCJ"" ._".첮_"._".貮_D@N^ _PONRECTHASJoNV n CJ"""" n/B/./B/."n/):<  _/:8  _!@ n/B/./B/."n/:<  _/:8  _ N^ _PONRECTHAVJoNV/.B n/( n/( :..(m?<zg( S/(N Bg?/,N<? S/(N ` , f?</,N` SJhf?</,N`0W@gZ@gLS@gS@g(S@g2S@g`NBg?</ N`?B/< .X/:< <Hn?? T/(NzLN^ _\ONVEAL TSELECTIJoNV?<zBBBB/.N/.N mHhL n P h P/(0N-_zN^.NuVE TSELECTIJoNV?<z n PJ2g n P/(2NzN^.NuLECTPATSELECTIJoNV?<zBg?./. m/(N _zN^ _ NNDOCOMTWINDOW JoNVH&n.. (m?<zB. SJlVDg" S h$ P h$ P(3g S*($` S*(lg E P(X0.@egS@gS@gS@gS@gS@g$S@gS@gU@gS@g@^g@g4S@g.S@g(U@gjS@gS@gS@gW@gS@gS@gQ@gS@g@ gS@g@Eg[@gW@gS@gS@gS@gS@gS@gS@gS@g`|` l PBVD@` l PBV l P"l "Q)H ((@` m"SJ W(@` m"SJ W(@` SJJfB.` S hJ Ph `vg@|0.@g S@gS@g`& GJWD` G WD` G WD`.g: SJ WD@ G"S$E$R$j$$R$j&$R ) *W"SJ VD` S h, P h$ Ph3`l`g.| G"E"Q"i$"Q"i&"Q nWD)|WD`B.`|0.@g[@gW@g"W@g*W@g.S@g:`T m$"G`H G`@ m"G`4 G`, m h"G6`J g l P h>"G6`B.` l PBVD@zLN^ _ NNDOSTDTWINDOW JoNVH..(m?<zg /,N `( G P&hJ g S( g/ N/ N G PBJzLN^.NuMMITLATWINDOW JoNVH>. ,.(m?<zJGg< Gf/N `$B? F P h$ P/(,N&_ g/ /N?/,N/,N zLN^ _\ONCOMMANTWINDOW JoNVH&n?<zBBg SHh/. Nvgt S(@g*Bg/. &tg/. / N~?< m/(N  g:~B S/(N(_BgHn/ NgBg/. /.Ng/ N`GzLN^ _PONWNAT TWINDOW JoNV/ (m?<z</.NHn?(Hz.H/2zLN^ _ NCHACTUTWINDOW RPA View or Window tried to filter but did not implement EachActualPart: lastCmd =JoNV?< zBBA/ / /.NzN^ _ NCHVIRTTWINDOW JoNV?< z/.BA/ / /.NzN^ _NLTERANTWINDOW JoNVH*.(.(m?< z..Jg l P . f., G P&hJB g S( g SJgBg/ S/(Ng&Jg/A/ / / N`A/ / / N`:Jg/A g/ PN`$JgA/ / /N`A/ / /.NzLN^ _NLTERDITWINDOW JoNV?<z n P/( TJ$f Hz4B2`?/ N zLN^ _PONNUEVENTWINDOW ObeyTheEvent: selectPanel=NILJoNV?<zB?. m/(N-_zN^ _\ONWCOMMATWINDOW JoNVH&n(mB. k PJFf?</,N`x k P(&gT k PX*Hn/Hn" Df G P h$ P h& PB(|` G P h$ P h& P|| G PJ(Xf/N` DfB.`|. G P/( N`Hn?<?< /././N/N` F PAP-H n hf*=| np =@=| np =@`0=| n0(H=@=| n0(H=@/././N/N` ` S h$ P(3g2< S h$ P/(Bg S h$ P/(&N S/( N/ N` S h$ P(3g0Bg S h$ P/("Bg S h$ P/(&N S/( N/ N` S h$ P(3g"Bg S h$ P/(&N S/( N/ N`b m$Hh/.N`NHl/.N`> mHh/.N`*/,N`/.N`Hl/.N` .g4 n P/(> n P h6/(00 n P/(> DWD0H` m h(6  m h@6`J g l P h>(6  l P h>@6`vBg?A(//,Ng<A(?<"//,N`HzH/2<Hz/,N n PJhf?</,N` ?</,Ng>BBB/.N?BBgBgN-_" n" P-H nB( nB(-n"Jn(oBg?.(/,N/,NzLN^ _\ONWSTDCOTWINDOW Unknown Command*called new command, but no command in menu TellFilerJIn TWindow.NewStdCommand: SELF.wmgrID <> document.window.wmgrID; document=JoNV?<zJ g/.N /. /.NBg/.NzN^ _PONRFORMCTWINDOW JoNVH. *.?<z mкg m/(N` E P(hJ T,(Jf&E` F P h P h P&h THO0pg< m h P/(4NJg/ N TJ( g& T ( WD THO0p / N/  S h$ P/(,N/N m( g, THO0pgBg/ N</ N` </ NzLN^ _\ONRFORMLTWINDOW JoNVB/. mHh _ P/(0NN^ _PONESTORESJoNV/ (n?<z T"T#h($ T"T#h0, T"T#h84Hz/ T/(N TJ g T/( N z(_N^.NuSTORESTWINDOW JoNV n(B/. mHh _ P/(,NN^ _PONEVLSEL JoNV?<z. /.NHz/ n P/(N. /.NzN^ _PONVEALSETWINDOW JoNVH(mB/. Hl&_BBBB n/(N S/(,NHlL S/(0N.LN^ _PONAVEUNDOJoNVH&n (m?<z .g / /,N`( n PJJg/ n P/(JN` n P!KJHz<`><Bg S hJ P?(A//,Ng>Hz\HnHzTHn?<" ACp@ S@n?<?A//,N`?<?B/,N l P(($ n P h$ P*(, l P=h*|` D P0S@A? @-p l P.H2SAC0gB..H2SAC.HCHBg?.Hn/NLHB6CI@C Ap8*.H2SACAHp.H?.LRFino>zLN^.NuTUPMENTWINDOW "JoNVH&mB k P-h$~ k P<(*  G\g FH: n P @I0.TfRx k P,H2SAC0.f0,H2SACAHp,H?A g/ PN`0.To R@>` S@<`dLN^ _ NNALLMENJoNVH<.(mJFl D@=@ ` l P&h$ l P=h*~`\ S @-p.H@fB l P.H2SAC0g(.H2SACA20n f=n `RGinoBn LN^.NuMDFROMWJoNVH(m l P=h(~`&0S@A A20nf=G `RGinoBn LN^ _TONINDMENUJoNVH?<zBg?.A//.NgHzHn"T>JGo`Hn??<"HzHn"T<JFoHn??<"` .@R@<J gHn? G?"/. Hn?"JGo n P0S@AB0pz.N^ _\ONLETE TMENUBARJoNV?<z?< m/(N/. HnHnJng?.Bg?.?.Nj=_zN^ _PONWNAT TMENUBARJoNV?<z. g<?.&TBN@`<?.&DBN,zN^ _PONABLE TMENUBARJoNV?<zBgzN^.NuDCMD TMENUBARJoNV nJ g0/.?. A/&A/ n/( .@R@?: n,HNnN^ _ NOGET JoNVHB"H-_?<z|<?.Hzp/NDBg?.Hz`/N4B.J g n BO ./",zLN^ _ NTCMDNATMENUBARJoNV n? n,HNHN^ _ NOHIGHLIJoNVHB"H-_?<z<?. Hz/NO ./",zLN^ _\ONGHLIGHTMENUBARJoNV/.?. "nA/&$ n,HNtN^ _ NOPUT JoNVHB"H-_?<z/. A/ n @R@?:<?.Hz~/NBg?.Hzn/NO ./",zLN^ _ NTCMDNATMENUBARJoNV/?<z( n P=h(~` n P0S@AB0pRGinoz.N^.NuLOAD TMENUBARJoNVH(n?<zHn T/( NB`HO @:6 pk THO|nApE2IDA0 <gBF`. THO @p`l|` THO @pdo|`BFHHO @//6"HO @-R on TCA`""Hn?<?<0HnHn NBB/. T/(Hn / N mHh&_Hn/ NzLN^ _PONTOSCROTPANEL JoNVB/. mHh _ P/(,NN^ _PONESELPANJoNVH(m?<z</.N n P.(˾f G P&h `$ l P f l P h P (vf&l g:P/ NHzT/ S/(N:LHz@/ G P/(NzLN^.NuGINSELTPANEL JoNV?<z. g n P"m"i"Q#h4 n P h P!n$zN^ _\ONSELECTTPANEL JoNV/ ?<z n(PB/,/,hN)_`B/,/,lN)_dHl`?<?<0z(_N^.NuMPUTECTPANEL JoNV/ (nB/, /,N)_Hl l P/(,N0,jD@l]2,jDAl]g)l `B,(_N^.NuNFORCEHJodNV\H(m?<z n PCA "" n PCX"" n PCA`""Hn?<?<0BgHn/. Nb gBB`L  gBBg/. HnHn n PHI @/0.dg HnHn NBB/. n P/(Hn /.NHl&_B. SHhHn N.g/N<</. / N n P h, P(6g/ NBB/. G P/(Hn/NHl-_rBg/. nr PHh\g~ nr P-h$nBB/. nr P/(Hn/.rNHl&_:PHn / NHn /. Hnf/ NBg n P/(,Hnf/.nN_e:L`B.e.e g n P/(,NzLN^ _PONWNAT TPANEL DownAt with no view setJoNVH?<z n P(hJ g TCA ""-n-n T(-n-n T(HM @HvBg T/(N  HA@HvBg T/( NHO @HO"A46vHO @=HO @HO"A46vHO @=/. /./.B/ N _ PHh Bg?<?<HnNHO @:6HO @vg?/ NzLN^ _PONWNINSITPANEL JoNVH?<z&nB S(h f~`B/ NWD&LgB g$pk T|nA2IDA0 <f-L zLN^.NuNDBRANTPANEL JoNVH(n?<zB` THO @J(n BBB G"G ( 2.H/0.H/:<:8 Ь )@ BBB G"G (2.H/0.H/:<:8 Ь)@zLN^ _ NTSCROLTPANE JoNVH(n?<z:P-n Hn/ NHn/.Hn/ N T&h.Hn/ N :LBg/. / N m/(NzLN^ _ NUSETRATPANE JoNV/ nCJ""(n?<z TCX""HnHn. NnHn/ N TA`C BHnNHn/ N THhHn THh$N T"TA. JG^JT_JG]JTWg8LN^ _\ONATESTERJoNV n P-PB.-n N^.NuLASSPTRJoNV/ n P Bg/.> Gl n P.N^ _PONETCP JoNVHBg/. T>._B/.?(_ m f8/- B/.&$?<|/- HzvBg/- Hz0H/2/ /. NJ-LLN^ _ NEWDYNOBH2NewObject: Heap full, can't make an object of size bytes in the heapJoNVB/. /.BgN-_N^ _PONEWOBJECJoNVH(n >.JG] G^g HzH/2B/ N/ ?DBgB/ N/ _o Hz H/2LN^ _\ONESIZEDY^0ResizeDynObject: Heap full, size can't change to+New size must lie between 0 and 32K-20, notJoNV/ (nJfB/./. N-_`>B/N  V/B/N" Vg Hz*/2-T T P((_N^ _ NEWORREC87NewOrRecycledObject: chainHead contains an alien objectJoNVH&n ..Bg/ N _l Hzj/ 2 G(P gf Hz2/ 2 T(h` G"S#P G LN^ _PONECYCLEOZ!RecycleObject: object freed twice7RecycleObject: object is too small for a chainHead linkJoNVJg/.NN^.NuREE JoNVH*. ?<zB/.NB/N g$/- /.?<|/- Hzd/2`8(n&E Y. Y,((& G=h F"G3h F1n/NzLN^ _PONCOME TOBJECT ,+Attempt to Become an object on another heapJoNVB/.N0-_ N^.NuASS TOBJECT JoNV?<z/.NzN^.NuEE TOBJECT JoNV?<zB/.N-_/./.zN^.NuEEOBJETOBJECT JoNVB/.-_ N^.NuAP TOBJECT JoNVH(n&n?<z T>(/ N.HgS@g*`8B</ N < R@H/?/ N T>(`<H/</ N. rЁ2. HҀ/Bg/ N H// NzLN^ _ NFERCONTJoNVH?<zJf HzjB2B/. mHh0&_(SBBgB/ NH 9_Bl 9n Blz-KLN^ _ NEATE TCOLLECTTRTCollection.CREATE must be passed an already-allocated object by a subclass CREATEJoNVH&n?<z S>(BB/. B/ NBg/ N ?N mHh0(_// S?(NjB/ /. ?N(_p// p/H// N-LzLN^ _PONONE TCOLLECTJoNVH(n.. ?<z T hf Hz/2 m(g" ] T"(R]g Hzn/2 T0( Hl T0( Hހ T0(HД/Bg/ N2 H$S//""Ҁ-AzLN^ _PONDRMEMBTCOLLECT CheckIndexNo dynamic partJoNVH(n,.*. ?<z l|B/ T (R/Nt*J^ T_gBg/ N=_B/ T0( R@H/N> >B// N(JGo$ =@//.?.Nh0.HѮ`BGHǺo4BH Ї// N(//.H 2.H//" ?NhzLN^ _NPYMEMBTCOLLECTJoNVH&n>. ?<z S hf Hz/.2Bp/B/. S (R/NZN-_JGl$BBBH/ S .S/NdN. > S=h S<( JG]"RAHWg G S1@ ` .S/BH/BN" 8n^DVgBH/H/N =@B0.H/H/N :noP S=hBH/ S0(H/N : n?/ N 0.n? n?0.n?/ N DgXD]DHA@BH/H/N, =@.Hn?.Hr@ n?0.n?/ N S1D S1E (SH Ь)@0, G9@ l 9@ JnfJlf Jl o/ NzLN^ _ NITAT TCOLLECTNo dynamic partJoNVH(n&n.. ,.?<z T hf HzJ/2 mJ^(gBg/ NBg/ N0_gx/- /- HzBg/- Bg/ N0H/?<|/- HzBg/- Bg/ N0H/?<|/- HzlBg/- HzP/2Jo /?/ N B// N/.// NzLN^ _NSMANYATCOLLECTl InsManyAt -byte Members&-byte Members into a TCollection with *** ERROR: Tried to insert No dynamic partJoNVH(n>. ?<z T hf Hz`H/2H T"T0) HШg / T/Bg/ N0 _"h?NzLN^ _\ONSIZECOTCOLLECTNo dynamic partJoNVH(n?<z T hfHz0. H/2Jn ^2.nVg\Bg/ N>  < T0(HД* HЅ( HЅ-@0.nl//.?Nc` //.?NczzLN^ _ NIFTCOLTCOLLECTNo dynamic partJoNV/ (n?<z T hf Hz`B2 T0( H Tl T (R/Bg/ N T?(/ N TBh TBh z(_N^.NuOPEDITTCOLLECTNo dynamic partJoNV?<zJf B/. mA/0.@?N-_BB/./. ?.N mHh-_zN^ _ NEATE TLIST JoNV?<zHzB/.N/. mHh?<?<LzN^.NuEE TLIST JoNVH(n.. ?<z m(g// N T0( Hl T0( Hހ T0(HД"SҀ A-PzLN^ _PON TLIST JoNVH(n?<z T:( T>( T (S=@BF`,Ff T0( @@H Д&@/A g/ PNXGRFinoΠzLN^ _ NCH TLIST JoNV?<zBp//.N-_ zN^.NuRST TLIST JoNV?<z/.?</.N B/./.N-_ n zN^ _ NSAT TLIST JoNV?<z n P (R//. /.NzN^ _PONSLAST TLIST JoNV?<zB n P/(/.N-_ zN^.NuST TLIST JoNV?<z=| zN^.NuMBERBYTLIST JoNV/ ?<z-nB/.Bg/.N(_BgHn/ Ng . f T-h/ N`֠z(_N^ _ NS TLIST JoNV?<zBB/.BBgN T-_ zN^.NuANNER TLIST JoNV?<zBB/./.. N -_zN^ _ NANNERFTLIST JoNVH(n>.?<z @gRG fB/. mA/  ?N(_BB/ /. ?. N^ mHhܠ-_ n P1GzLN^ _ NEATE TARRAY JoNVH(n.. ?<z m(g// N T0( Hl T0( Hހ T0(HД T2(H$S//""Ҁ-AzLN^ _PON TARRAY JoNV?<z m(g /./.NB/./.N/. n P?(N]"zN^ _ NTAT TARRAY JoNV?<z/.?</.N /./. /.N zN^ _ NSAT TARRAY JoNV?<zp//. /.NzN^ _PONSFIRSTTARRAY JoNV?<z n P (R//. /.NzN^ _PONSLAST TARRAY JoNV?<z n P=h zN^.NuMBERBYTARRAY JoNV?<z m(g /./.N/. B/./.N n P?(N[zN^ _ NTAT TARRAY JoNVH(n>.?<z @gRG fB/. mA/?N(_BB/ /. ?Nh mHh-_zLN^ _ NEATE TSTRING JoNVH&n:. ?<zB S0( H".S/H/N > S0(HГ(@BFJGoBg/ .S??<GoBBg/ S"S0) h H/BH/BN" ?HBH/BN ?_=FzLN^ _ NDTH TSTRING JoNV?<z/. n @?/.N . R/B/./.N n @?NYzN^ _ NSPSTRATSTRING JoNV?<z=| zN^.NuMBERBYTSTRING JoNVH n CJp@"S@n nCJp"S@n2,.*.?<zJfB/ mA/Nj,BB//BgN\ mHh-_A&HHn/ Hn"~0, HЬ)@Jl o l P ,\D@` _D@gN l P0( Hl l P0( HЬ,`,, l"l"Q0)HА"SҀ A"n "` n B  g/.NGzLN^ _PONAN TLISTSCAJoNV/ ?<zBB/.Bg?. N@(_Bg/ ?</.N0-Lz(_N^ _ NADARRATSTRINGSJoNV?<zBBgA X. HH/. HH//.N . f Jnl=|-nzN^ _\ONADNUMBTSTRINGSJoNVH..(m?<zJfBB/. NA|/N.BB//. BBgNJHl|&_ SB Sn / N/ B S/(Hl _ P/(2Nz-KLN^ _ NEATE TFILESCAJoNVH(n?<zB T/( mHh, F PA&H F PA. THh/ THh TB@(??<?<"?<T/" T hWrk T|nA4JDB0 <WgF THh/ /" TJhn0 THh/ THh TB@(??<?<"?<T/"zLN^.NuEN TFILESCAJoNV?<zBgA/BBg/. /.NzN^ _PONEK TFILESCAJoNVH?<z. n(PJln6.HgS@g:`HnBg"hHn?,/./.Hl/. "HHn<"h`^HnBg"hHn?,/./.Hl/. "Hn<"h l P/B ,Ь/"l"Q/)N  _!@ nW nW nsW nrW nPWgBn .f ,Ь)@`"Hn?,Hn")nl l P!nJ l P ,WD@?.HlNhzLN^ _NERRANDTFILESCAJoNV?<z././. <B/.NzN^ _NERSEQUTFILESCAJoNV/ nCJ"""" n CJ""""(nB/./.N܈)_B/./.Nv(B/./.N4)_ B/./.N")_ , \"\gB.BBB B`|(_N^ _ NECTLRECJoNV/ (m?<z/,䠊0,2SAC @A)pBJg/,NSlz(_N^NuOPFOCUSJoNV/ (m?<zRl0,2SAC @A!z(_N^NuUSHFOCUJoNVH..(m?<z G P (g G P/(BgBg/, G PHh`,g,,` m h,(/,//,䠊 G P-hT?.?./,?.?./,䠊)l)G)G G&P l PHhHk,/NBgHkHk,Hk,NzLN^.NuCUS TPAD JoNV n CJ""""?<zHnHn/.N Hn/.NzN^ _PONVALLRETPAD JoNV n CJ""?<zBgHn m h PHhHngHnؠzN^ _PONVALRECTPAD JoNVH nCJ"""".. ,.?<z F PHh n/Hn R@?/Hz@Hn"T0 _G?Hn" _Cp@ S@nz.N^ _PONETPREFI}-{JoNV?<z m(g Bg&_ `B. zN^.NuORTREQTPROCESSJoNV/ (m?<z ,ذ VJVg/,N ,ܰ VJVg/,NJ g/, Nz(_N^.NuNDCURRTPROCESSJoNV?<z m0. hg?. /.N m1n  n oBg,zN^ _\ONANGECUTPROCESSJoNV?<z?. ,zN^ _\ONCURSORTPROCESSJoNVBg"nA g/ PNg n,HNN^.NuTOPTESTJoNVH(m?<zHlƠ m$(,g lG/- HzBg/- /,?<|/- /- 0+H/?<|/- 0H/?<|/- 0+H/?<|/- 0+H/?<|/- /- 0,H/?<|/- 0,H/?<|/- Bgg2Bg n/(Ng 0,k|nA82IDA0 <g n/(NzLN^.NuETANDOB GetAndObeyEvent (event.who):JoNVHB"H-_?<z m|Bg m( mJVR@gBgp g/N/N8`Bg mJV m( gBgpg /N`/N< m/(N m h PJ g< m h P/( N m/Bgp _( g m h P h4 P h$ P-h, m/B8  _!@ m/(/.N m/Bgp _( gB8/.N ` m( gB8/.N ` m(gO ./",zLN^ _ NEYEVENTPROCESSJoNVH<. (n&mJFfBg/,Ng<<``P Fg*/- HzBg/- HlȠ2 vHz>H/2 ,W ,WgJgN,g~` l P0S@A @A(Jpmx l PHh0S@A @APHpHn?<" ACp@ S@nHl l P0S@A @A(?0", l P0S@A @A(1RG God`/,N?<?</,N/,</+NBHl,Bg?2 /+Ơ(L n,HNLN^ _\ONHECKABOP9TProcess.ObeyFilerEvent got an error (event listed above)--------------------JoNVHB"H-_?<zB.Hn mHhHnȠJnoHz0.H/2n m| m$(gHnȠ2 v.Hk( @ n H0;N m"m"i"QJ^(gHn<< m/(Ơ(L`| m/(ƠD .WD@.g, mHh mHhHn?<" ACp@ S@nBA?<"/./.N-_ n PACp S@n0JfHn<< m/(Ơ(L` n PnH m/(ƠHn m/(Hn/.NB?./NZN> n P-hB/.NBg/.NBg/N0 n PHh</.NBg/NN m"m$ (ưf$N/.N m!n /.NN^` </.N`J .W.AJA^g |B`B.B m/(Ơ(-_/.N.Hg _@gS@g`HJ.f n P hB PJFg|`| n PCXp@"S@n||`* .g|ACp@ S@n||.  m@Bg/NJgB</.NBg/N.HS@g S@g"S@gX` n P('g Hn/.N `f n P"n"Q)H ((gHnA?<"/Bg/.N `,HnA?<"/A?<"//.NJno0 .f/.N?<?</.NBn` ?./NHn.Bg?.2 m/(Ơ(L .g m!n* mn/ m|`<|Hn?.Π"4?./NHnBgBg m/(Ơ(L` m|O ./",zLN^.NuEYFILETPROCESS GetAddParamsJoNVH(n&m?<zB n //,N-_ n hfP k P)h Jg> l P (tf /,N`& l PJ(tW k P"(4Wg-lzLN^ _PONVTWINDOJoNVH(m?<z)l9l m$(g2A-H n hf`v n hf /.N`^ n"m$ gL n hf HlBgBg(H-l n"m$ fH., l P-h Jg. n P (uf /.N` n PJ(uf l P.(4` n"m$ f l P.( ` n"m$ f-l/,N l P.(B`r nJf,B n?( n/( n/( n/(&/,N`>B n/(-_JfHzl n/2B`/.NBHl/N.JgN n"m$ f /N`/,Ơ m$(,g m hG/- HzBg/- m/(?<|/- /- 0+H/?<|/- 0H/?<|/- 0+H/?<|/- 0+H/?<|/- /- n0(H/?<|/- n0(H/?<|/- nHh/N m$(,g m hG/- HzBg/- m/(?<|/- /- 0+H/?<|/- 0H/?<|/- 0+H/?<|/- 0+H/?<|/- /- n0(H/?<|/- n0(H/?<|/- nHh m$(,g m hG/- HzBg/- m/(?<|/- /- 0+H/?<|/- 0H/?<|/- 0+H/?<|/- 0+H/?<|/- /- n0(H/?<|/- n0(H/?<|/- ,g$ n hV n(@g </NB, n0(S@k @nH0;NP`j/N ` n"m$ f n/(/N` n/(/N`N)n /N`>/N`4</N?</,N`</N` G PJ$fHzB2` n?( n(H2AC n( n( n( G P h$ P/(,NBgHnȠgLBgBg/.N/BHn/N" V nV nW.ۀ@`x  g$HlƠ)l9l m$(g2` G PJ$g G P h$ P/(,NgJ*WJVgX, g* l PJ g< l P/( N</,N l PJpg l P/(pN l PBpNdJ*g,//,*N/,*NB*/,N lV,gBg m/(z:/- HzTBg/- H/?<|/- HzBgJgb l P,(>JgTBg/z:/- HzBg/- H/?<|/- HzBg/ l P h6/(00/<0HJgD l P,(>Jg6Bg/z:/- HzlBg/- H/?<|/- HzDBg/- l PJf/.NzLN^.NuEYTHEETPROCESS objects; boundClipboard heap has ; boundDocument heap has mainHeap has ObeyTheEvent: selectPanel=NILAfter GlobalToLocal (thePort):Before GlobalToLocal (thePort):Before LocalToGlobal (thePort):GetFldrRefCon = NILJoNVB. N^.NuNTILPOWJoNV?<zHz//.NzN^.NuN TPROCESSJoNVH(m?<z~ l PJ g.Bg l P/( N> Gf l P h P (vf~ Gf Bg/,N> Gf~?/.NzLN^.NuACKCURTPROCESSJoNVH&n(m?<zglJg/,N~HnBg"hHn S0S@A @A(?0"Hn<"hJnoHz@0.H/2RG S h6ho)KؠzLN^.NuND TDOCMANA Bind_DataSegJoNVH&n(.?<z nBPBB м/?<N1?<N2@(BB . м/?<N1?<N2-_ S(h6/. S0,2SAC@A(?0HnƠ" nJPoHz n0H/20,S@H/</" Ю-@¸^". ҄]g . Є,B мS//<N0 > l] l^gHzP0,H/2 G] G^g HzH/2ll R@??,/ N`lo/.?,// N S@H/</" */. S0S@A @A(?0HnƠ" nJPoHzl n0H/2HnBg"h/. S0S@A @A(?0 /Hn /Hn"Hn<"h m(g/- HzBg/- /?<|/- HzBg/- H/?<|/- /- HzBg/- /?<|/- Hz`Bg/- /.?<|/- Hz4Bg/- /.?<|/- nJPo/- Hz:Bg/- /?<|/- HzBg/- H/?<|/- /- HzBg/- /?<|/- HzBg/- /.?<|/- HzBg/- /.?<|/- Hz> n0H/2`)F9GzLN^ _NTSEGSITDOCMANA'In TDocManager.SetSegSize: Size_Dataseg disc_size= mem_size= newSegSize= newSegments=In SetSegSize: newSize=SetSegSize: Info_Dataseg-SetSegSize: newSegments NOT IN 1..maxSegments-SetSegSize: numSegments NOT IN 1..maxSegmentsJoNV?< z-n zN^ _NRCEBRETVIEW JoNVH&n.. ?<z S h P(N g G"SC6 `d S h PIP G/B/B"S/):?,N-R  _/?,H  _!@ G/B/B"S/)6?,N-$  _/?H  _ zLN^ _PONTSTDSCTVIEW JoNV?<zBBB/.N/.Bg mHhN-_ zN^.NuSELECTTVIEW JoNV?<z n PJ&g n P/(&NzN^.NuDOBREATVIEW JoNV?<z n "n"QX ٠zN^ _PONTMINVITVIEW JoNV/ ?< z n P(h</ N T/($NBg/ Nz(_N^.NuDOBREATPAGINATJoNVH(m&m?< z/+Hn/,N/+Hn/,N, gbB`THO4p n P h PHM @-p l PHM @-p4BHM @/6HM @/6N R=@B l PHM @-p,=|B.0.H n PHO"A p P_. gB0.H/ n PHO @/0 N _( jDm@  gB/.0.HЮ/N<-_ jD]D  g|gJ\. g //.NRn`:R ozLN^ _\ONAWBREATPRINTMAJoNVH... (m&m?<zJmHk/,N` Hk/,NAC n P h PCA "" jDHM4`HCA- jDHM4`HCA- m h-h4HM @BvHnHn/,N0.n?0.n?HnHn/,N0.n?0.n?zLN^ _ NAWONEBTPRINTMAJoNV?<zB/. B/.N/.zP-_zN^ _PONWPAGEVTPRINTMAJoNV?<zB/. B/.N n P/(-_zN^ _PONWPAGINTPRINTMAJoNVH&n(m?< z S h PHh/.HB`B|H SHO4pHA@ p P_" gdBH/ SHO4pHA@/0 N _( nHO @"jDm n HO4pHA@1z`RF`rR od n "S)|HA@20SAH S"S)|HA4HEB p P//(" n "S)|HA4HCA00H/"-_zLN^ _ NGEWITHTPRINTMAJoNVH nCJ""&n?<z fB/. mAL/NJ&_B/ mHhL-_ n(PAC AC mC"A""""9n )n l P)hJg l P)hB2B,6zLN^ _NEATE TSELECTIJoNV?<z n PJ2g. n P/(2NzN^ _\ONGHLIGHTSELECTIJoNVH(m?<z n P h P (ff l PJJf~` l P hJ P( g~`~ l PH ШF l P!@F ,ذ fA-H n P&PH Ы:'@:zLN^.NuRKCHANTSELECTIJoNVH&n(m?<z S(A gBg/ N</ N)K S)h Gg/ N` Gf~NҞ=G zLN^.NuRSORFETWINDOW JoNVH(m&m?<z n P/(<BgBg kHh,g)l` k)h)nzLN^.NuCUS TWINDOW JoNV?<z n P(@g:Hn&BgHnHg$Bg/.NgL,`Hn mHhzN^.NuAME TWINDOW JoNV?< z/.. n P/(NzN^ _ NTMINEXTWINDOW JoNVB/. mHh _ P/(, n( B/. mHhNN^ _PONILITEPAJoNV?<zHz/ n P/(NzN^ _\ONGHLIGHTWINDOW JoNV/ (m?<zJfB. `JfB. /- pA?<x/- HzBg/- /- HzBg/- /- HzBg/- /,?<|/- HzBg/- /,?<|/- /- Hz\Bg/- `, n P ( 0 AND currentWindow = NILJoNV?<z n P/(JGo6 m0S@A AHp?. n P0S@Apz.N^ _PONSERT TMENUBARJoNVH&n(. ?<z S(Zg(BB S/(\/NJo SIZB l P)hB/N,BgHn/Ng\/.Bg S/(NB`@B SHO @/04N*BgHn/Ng/.Bg n P/(N`R o`/NzLN^ _PONEANUPPTPANEL JoNVH&n(m?<zBg SHh /. H g=|`` , f=|`NBg SHh/. Hg4BB/. S/(Hn/ NHl.Bg/. /N=_`=|zLN^ _PONRSORATTPANEL JoNVH(m&m?<zBg/. HkHHnHn/.NHnHnHnΠHHn/. H. g n B. g n BBg/. HkH g`Bg/. 0  "g n PHh`:/. Hn/.N n PHh0.D@?0.D@?/,|/,|ܠzLN^ _NSCROLLTPANEL JoNVH(n?<zBg THh m h PHhH g/ mHh?<?<LBg T/(N T h< P"T"i@"Q)(gBg T/( T h P/(h gzHn T?( T?( T?( T?((Hn mHhgF T&hJ gJGfBn `HK @HK"A$6ꔶ-B o,BB/. S@?N 0 ПHǐ/ S/N 8` WJ^g8`BDBBB/<BBH/?<N H ПS/?N rNN =@ zLN^.NuUMBPOSTBAND JoNVH&n?<z S((BB S/(N mHh(_HnHn/ NBHnHxBHnHx ,HO @/B/B/?. N "" /?<N " Ҷ// NzLN^ _\ONUMBTO TBAND JoNV n( "n i P/(,NN^.NuIGHLIGHJoNVH&n(m?<z S-h S h PCX"""" SCA""""pk|nA2IDA0 <f/ Npk|nA2IDA0 <W".沮^$.⴮^‚Dpk|nA2IDA0 <f/ Npk|nA2IDA0 <WJ. V@g2N/ Ng,?<?<4AC -nHnHl"H/?BJWlDWDJ[lD2/ 0/HA2JgDX.NN^NuLINTDIVINV,_ _2  Ag/4H@Ђ$.NN^NuLINTMULINV,_ _ .NN^NuLINTANDLNV,_ _ .NN^NuLINTORLINV,_ _ ".NN^NuLINTXORLNV,_N@NuN^NuENTERLISuZIntrinSgSgCLAiniENTDEBUGENTDEBUGRERN>JoNV?<zBg/./. NzN^ _PONAD TOBJECT JoNV?<z</./. NzN^ _PONITE TOBJECT JoNVH(mJVfPB m0(H//< :< :BB/,??< :d)_Vp/H/B/,VHlܠNB` ,NR(B. )@R=lBF`M< @A0!RFino)GN|ZLN^NuALLYSTAJoNV/ (mJVgB/,VHlܠ:BV(_N^NuALLYZERJoNV/ m hV P0. 2SAC .0JfB.` nf|`|.N^ _\ONOMPAREPJoNVBg m hV P?(/.BgHz/=_ N^.NuALLYSLOJoNVH&mA , FBBg/. N> kV P0jD@2SAC IJGo0R@8 .Ь)@`JJGl0 F0H:JEfHz/. 2`)n 8)n`Hz* kV P/(2B+ZLN^ _PONALLY XCTally table full--more non-method procedures had EP's than expectedImpossible Tally PCJoNVH(nHnB"Hn"JnnAC 0 m/BB"m/)?<?< :d  _!@Jp/p/ m/(JNBB m/(A?<"/Hzؠ:p-_BB/.?: :l&_/- HzBg/- HnBg/- /- B</ N,B</ N.Y0@g~[@g@g`B</ N(U=Dz`NBgA/p// N SA/A R/?<:0.H/A/ m/(JN REino`zp// NQBgA R/p// N SHlHz"gACp 0`2B</ N-_Y/./<"A/ m/(JN // N SJW(@g/ NLN^.NuEADSEGN@BLANKSEG 'Reading segment numbers and names from JoNV/ (nHlHz"g`O< @".A0ӰSGJGlM< @A$"0X A//.NSFJFl ,NR-@/- /- .м//<"?<|/- Hz Bg/- /- BBn=|`(0.A@AB0.A@ABRn no lV P=hz`h lV P0S@A  GJSoH0HѮRn K\0H=@0.A@2HAӰ0.A@"+AӰREinoJf/- Hz Bg/- ` /.p/"-_/- 0.H/?<|/- Hz XBg/- /.?<|/- Hz 2Bg/- /- JJf/N/- Hz Bg/- /- /- Hz Bg/- /- Hz LBg/- /- =|`00.A@AJoJJfAC 0`B0.H//,JN _C""20.H/</"/N/- 0.A@A/0?<|/- Hz Bg/- 0.A@A/0pd/" .П//."?<|/- Hz XBg/- HnBg/- B0.H/</" _//<: ?<|/- 0.H/?<|/- Rn no/- /- /- Hz Bg/-Hn?<p/-hA/z.` n P0S@A> @:0 lV P0S@A  G=S-k-kA0H< Dfnlng/- =F/- 0.H/?<|/- Hz.Bg/.pd/" .П//." =@Jnf/- HzBg`$/- 0.H/?<|/- <%?<x/- HzBgBgA Y/HnHnHnz/Nd/.A/z(/- HztBg/- HnBgJJf/- 0.H/?< |``B0.H//,JN _C""2HnHz"g/- 0.H/?< |`/- HzBg/- HnBg/- BgHzzg~SG Gl B/.HlܠNJDlJJgv/- Hz0Bg/-Hn?<p/-hA/zXA/z` >JGnF/- Hz,Bg/- / ?<|/- HzBg/- H/?<|/- `H@gS@g` DAB0,@HЈ&@Bg/ 0\_Jo.gBg/ /._`B.`FJ g:Bn-S¾n^2.HҮ A" VgTn`ܾn^D@`|.g/ A/z(/- <$?<x/- HnBg/- H/?<|/- HzBg Yg(/- HzBg/- / ?<|/- `.g\B/ mHhР-_ m"m3h.g?<Hzd/.N`BgHzT/.NRp ܀H ЇY*`RH߮/- Hz"Bg/- Y(@`$RH߮HǾoH-G` RH߮HBgHzԠzg`$`/- Jo/- HzBg/- /.?<|/- J f/- Hz6Bg/- /?< |/- /- HzBg/- /?< |/- ІJoF/- HzBg/- pd//" І/"?<|/- <%?<x/- /- J_J Wg2/- HzBg/- /.?<|/- /- HzBg/- /.?<|/- /- HzBg/- /.?< |/- /- /- Hz4Bg/- /.?<|/- /- HzBg/- /.?< |/- /- /- HzBg/- .Ґ/?< |/- /- Hz@Bg/- /.?< |/- /- LN^ _NUMPHEAPF#Total heap size in bytes: #Other overhead: #Bytes in those blocks: #Number of other blocks: #Bytes in free blocks: #Largest free block: #Number of free blocks: #Header and master overhead: #Bytes in their records: #Bytes in their headers & masters: #Number of Clascal objects: HeapDump??? INCORRECT BACK POINTER FOR bk = : HAS LENGTH FREE BLOCK &Heap contents (handle, size in bytes):Bytes free: Heap size in bytes: The heap pointer is NILJoNVHz.HzN N^NuOKITBUGCalled from GoKitBug JoNVH(nB,HzHl"T _fHl?<?<"`HzbHl"T0S@>JGn ,@>Hl?<?Hn"ACp@ S@nHl?<?"LN^.NuETTOKEN JoNVH&n m?(&A/z$/- HzBg/- HkBg m?(*A/z$/- HzBg/- HkBg/- m=h\~` m0S@A AJI/ Hz"Hl Hz"gT/- H/?<|/- Hz^Bg/- / ?</- <.?<x/- Hl ?</- RGinolLN^.NuEBUGSTA(: , Watch Count = Watch Level = JoNVH(n&m/.NHlHz"g&/- HzBg/-Hl?<p/-hA/zXA/zJGohHl R@?,@G?Hn"HnHlHn?<" ACp@ S@nHl?< S@?Hn"ACp@ S@nA/zXHlHzj"gBA/zJGo HH@J@J@f:/A/z(/- HzBg/- HnBg/- HzBgB.. ghBg/0" gXBg/05j gHJDoD/- HzBgA/?<?<Hn/NA/?<?<Hn/NhUDUG`JDnFJGoB/- Hz^BgA/?< ?<Hn/N4A/?< ?<Hn/NUG`JGoB F0H//<: */A/z(Hn?<?<"/- HnBg/- < ?<xA/Bg//<" ?/Nb?<Hn/NA/Bg//<" ?/N6?<Hn/NjTUGUD HH@J@J@f4/- HzRBg/- HnBg/- <|?<x/- `/- LN^ _ NRMEMORYn |    R*** That address is neither in a data segment nor in the stack/global segment. ***JoNV n CJ""2N^ _PONWAPIN JoNVH(mB*B0.S@?/.N. n] WWgB.`Z|, F/A/z(/- HzBg/- 0.H/?<|/- HzBg/- HnBg/- HzBg FWD@Bg/HnHnHnzgLHnHzF"gAC 0`*HnHzFHnHn?<" ACp S@n0`B.HnHz"gj/- Hn?< X, F,//NBJfU F PNVf Y(`.gX X, F Y/A/z(Hn?<.@Y@?"/- HzBg/- HnBg-G n.f-E` G-PHnHz8"HnHz>"g$ P,Bg F/0\gB F/HlР&_ gl/ A/z(B/ N-_/.Hn֠/- HzBg/- HnBg/- HzBg/- HnBg/- <)?<x. g/- g0/- HztBg9|9|?<HzX/ N/- BBB .P"/pP/:<:8 =@BBB P".쒀/pP/:<:8 =@ VDH@=@/- /- HzBg/- 0.H"/?.Bg/.N^/- HzPBg/- P2.HҀ/0.n?Bg/.N&/- LN^ _PONRFRAME 5PARAMETERS (Last declared parameter is listed first):-LOCALS (First declared local is listed last):SELF = : $ (CREATE + $.  @ $Frame # JoNV/~Bg?Bg/.NgRG`/- .N^.NuTACKCRAJoNV/ (n/.NHlHzΠ"g&/- HzBg/-Hl?<p/-hA/HnHlz4J,f8 nm0Bg?.</.N g/- Hz*Bg/- /- (_N^.NuRAMEDUM6Frame number was too largeFrame number to dump? Jo NV BHnHnHnȠ Jnn .mA-H ngHnHnHnHnؠ"Jn_ nWg|PHzHnHn.?<" ARC.p S@n0HnPHz\HnHzPHn ?<" APC p S@n=|T=|Vp-@XHnHnPHnT"H f=|V-|%XHnHnPHnT"H=|VHnHnPHnT"H=|VBXHnHnPHnT"H=| Vp<-@XHnHnPHnT"H=| VBXp-@\HnHnPHnT"H`F/- HzdBg/- 0.H/?<|/- Hz6Bg/- HnBg/- Jno@N^.NuELLPASL mounting Error number -x-JoNV/.NA$nCp@ S@n nHhHz*"g&/- Hz&Bg/-Hn?<p/-hHnHz"gHnHn<8`.A/z/N`6/N`./N`&/Nd mhZ`/N|`|O ./",.g m(Zg( mB( mBh* m"m3h*( m|- m(-gBg0LN^ _PONNTDEBUG^Break on-->O S)tackCrawl, T)ally & Time, W)atch [count] [A)ltScreen] [C)lass] [F)ields]O M)emoryDump [# bytes], O)utputTo, P)rompt [Y/N], R)efsToObject,H F)rameDump, G)o, H)eapDump [class], I)nspectObject, L)evelsToWatch,OB)reakpoint, C)learBreakpoints [breakpoint #/ALL], D)ebugStatus, E)nterLisabug,ToolKit Debugger - JoNV?<zzN^ _ NTZOOMFTPAD JoNV nCJp@"S@n?<zBB m/(A?<"/44-_zN^ _ NWDOCMATPROCESSJoNV?<zBB/./. <4`-_zN^ _ NWWINDOTDOCMANAJoNV?<zzN^ _ NCUTCOPTCUTCOPYJoNV?<zzN^ _NPASTE TPASTECOJoNV n CJ""?<z=|zN^ _PONRSORATTIMAGE JoNV?<zzN^.NuAW TIMAGE JoNV?<zA/ / n P h P h P/(NzN^ _ NCHACTUTIMAGE JoNV?<zBzN^ _PONUNCHLATIMAGE JoNV?<zzN^.NuACTTOPTIMAGE JoNV?<zzN^.NuCALCEXTIMAGE JoNVH?<zBBB/.N/.BgBg?:@?:<4H(_BB mHh/ N&_zLN^.NuANKSTATWINDOW EIntrinSgSgABCdbgABCBREAKABCBREAK2BINDHEAPBINDHEAP2 POINTTOSPOINTTOS2RECTTOSTRECTTOST2LPOINTTOLPOINTTO2LRECTTOSLRECTTOS242NNNN&NN&JoNVJno?.4N^ _TONHECKINIJoNV0. nCp S@n0N^ _\ONLASCALRSome kind of problemJoNVH n CJp@"S@n..(m/- /- pA?<x/- HnBgJgD/A/z(/- HzBg/- /?<|/- HzzBg/- HnBg/- B,ZRFB,Bl*9l*(|-Hz/- HzBg`./- Hz~Bg`/- HzfBg`/- HzHBg/- Hz*Bg n f/- HzBg/- ` n f/- HzBg/- ` n f/- HzBg/- `f n f/- HzvBg/- `B n/Hn&/- Hz@Bg/- HnBg/- <"?<x/- LN^NuEPORTEVwindow titled "Menu Bar Clipboard Dialog Box Alert Box event for the MiscellaneousDesktop Key-pressUpdate Window-moved DeactivateActivate Button-up Button-down received  P=#JoNV nCJ0<"S@n2/- HzBg.Hk @ nH0;N(8HXhx/- HzBg`/- HzpBg`~/- HzPBg`n/- Hz0Bg`^/- HzBg`N/- HzBg`>/- HzBg`./- HzBg`/- HzBg`/- HzpBg/- HzXBg/- 0.H/?<|/- Hz(Bg/- 0.H/?<|/- HzBg/- 0.H/?<|/- /- HzBg/- HnBg/- <"?<x/- /- HzBg/- HnBg/- <"?<x/- /- Hz>Bg/- HnBg/- <"?<x/- N^.NuEPORTFI theResult=" thePrefix=" thePassword=" theDF= theOffset= theErr=Unknown!!! Terminate Suspend Shred Open Doc Put Open Tool Doc File CloseCopy Close  JoNV m/(?<<pBg m/(NN^NuLERRPROJoNV?<zB. Jno0.@2gdW@gXU@g\Y@gX@gjU@gfS@gbW@gfS@gb@LgD@ gn@gHS@gDS@g8@eg:S@g>S@gBS@gFS@gS@gS@g`H| `F| `>| `6| `.| `&| `| `| `| `| zN^ _TONILERREAJoNV n CJp@"S@nBgHzRzg/- /- n,HN/.A?<"/zN^ _ NBORTDUMProcess global variable dumpJozNVvHB"H-_v/- /- HzBg/- /- mY/Hzj/N& m[/HzD/N mA/Hz/N mA/Hz/N mA/HzHzPHnz?<" Az?<"//N mA/Hz /N mA//Hz/N mA*/Hz/N| mA /Hzz/Nh mA/HzN/NT mA/Hz$/N@ mA/Hz/N, mA/Hz/N mA/Hz/N mA/Hz/N mA/Hz^/N mA/Hz8/N mA/Hz/N mA/Hz/N mA/Hz/N mA/Hz/Nx mA/Hzn/Nd mA/HzB/NP/- /- O^ .v/",LN^.NuMPGLOBTPROCESStoolVolume: STRING[255]toolPrefix: STRING[255]toolName: STRING[67]process: TProcessmyTool: LONGINTmyProcessID: LONGINTmenuBar: TMenuBarinBackground: BOOLEANidleTime: LONGINTgenClipPic: BOOLEANdocList: TListdeferUpdate: BOOLEANcursorShape: INTEGERcurrentWindow: TWindowcurrentDocument: TDocManagerclosedDocument: TDocManagerclosedBySuspend: BOOLEANclipboard: TClipboardKclickCount: INTEGER; fShift: BOOLEAN; fOption: BOOLEAN; fApple: BOOLEAN END/clickState: RECORD where: Point; when: LONGINT;boundDocument: TDocManagerboundClipboard: TClipboardallowAbort: BOOLEANactiveWindowID: Ptr1--- IMPORTANT GLOBAL VARIABLES OF THE PROCESS ---JoNV?<z0. @g`=|`T/- /- HzhBg/- 0. H/?<|/- HzBBg/- HnBg/- =| zN^ _\ONRASE TPROCESS; Error # JoNVHzPA g/ PNHz,A g/ PNN^ _ NELDS TDOCDIRE"classList: TListwindow: TWindowJobNVbHzHz\Hnb?<" Ab?<"/A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzhA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TDOCMANAFopenedAsTool: BOOLEANpendingNote: INTEGERwindow: TWindow docHeap: Ptr[dataSegment: RECORD refnum: ARRAY [1..6] OF INTEGER; preludePtr: Ptr; changes: LONGINT; ENDIsaveExists: BOOLEAN; shouldSuspend: BOOLEAN; shouldToolSave: BOOLEAN; ENDSfiles: RECORD volumePrefix: STRING[255]; volume: STRING[255]; password: STRING[32];JoNV n CJp@"S@nBgHzRzg/- /- n,HN2/.A?<"/zN^ _ NBORTDUMDocument prelude dumpJoNVHB"H-_/- /- HzBg/- /- n P-h6 n/HzV/N$ nT/Hz2/N nX/Hz/N n\/Hz/N nP/Hz/N nA/Hz/N nA/Hzr/N nA/HzB/N/- /- O ./",LN^.NuMPPRELTDOCMANAdocDirectory: TDocDirectorynumSegments: INTEGERdocSize: LONGINTpreludeSize: INTEGERlanguage: INTEGERcountry: INTEGERversion: INTEGERpassword: INTEGER--- PRELUDE OF THE DOCUMENT ---JobNVbA/ / /. mHh(?<?<LHz A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzVA g/ PNHz,A g/ PNN^ _ NELDS TCLIPBOAclipCopy: TFileScanner;cuttingProcessID: LONGINTcuttingTool: LONGINThasIcon: BOOLEANhasUniversalText: BOOLEANhasPicture: BOOLEANhasView: BOOLEANJoNVHz:A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzvA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TCOMMAND#hiliteAfter: ARRAY[0..2] OF BOOLEAN&unHiliteBefore: ARRAY[0..2] OF BOOLEANrevelation: Bytedoing: BOOLEANundoable: BOOLEAN image: TImagecmdNumber: INTEGERJoNVA/ / /. mHhX?<?<LHz@A g/ PNHz,A g/ PNN^ _ NELDS TCUTCOPYisCut: BOOLEANJoNVHzA g/ PNHznA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TIMAGE >allowMouseOutside: BOOLEAN view: TViewextentLRect: LRectJoNVA/ / /. mHh?<?<LHzA g/ PNHzvA g/ PNHzHA g/ PNHz*A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzhA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TVIEW scrollPastEnd: PointstdScroll: LPointisMainView: BOOLEANisPrintable: BOOLEANfitPagesPerfectly: BOOLEANscreenPad: TPad res: PointprintManager: TPrintManagerclickLPt: LPoint panel: TPanelJoNVA/ / /. mHh?<?<LHzA g/ PNHzlA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TPAGINATVworkingInMargins: BOOLEAN pageSize: ARRAY[0..1] OF LONGINTunPaginatedView: TViewJoNVHzA g/ PNHznA g/ PNHz>A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzzA g/ PNHzVA g/ PNHz.A g/ PNHzA g/ PNHzHzHn?<" A?<"/A g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TPRINTMAjpageRiseDirection: BOOLEAN,res: Point; reserve: ARRAY[0..7] OF Byte END9printerMetrics: RECORD paperRect: Rect; printRect: Rect; contentLRect: LRectprintableLRect: LRectpaperLRect: LRectframeBody: BOOLEANlayoutDialogBox: TDialogBoxcanEditPages: BOOLEANheadings: TListpageMargins: LRectbreaks: ARRAY[0..1] OF TArraypageView: TPageView view: TViewJoNVA/ / /. mHh?<?<LHz$A g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzA g/ PNHzdA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS THEADINGmaxPage: LONGINTminPage: LONGINTevenOnly: BOOLEANoddOnly: BOOLEANoffsetFromAlignment: LPointpageAlignment: ByteprintManager: TPrintManagerJoNVHz\A g/ PNHz`F , g<. g(JWD@,g/,N l P-h>`,g/,N(_N^ _PONNDHEAPTMARGINPJoNVA/ / /. mHh@?<?<LHzPA g/ PNHz,A g/ PNN^ _ NELDS TBODYPAD(nonNullBody: RectmarginPad: TMarginPadJoNVHzlA g/ PNHzNA g/ PNHz,A g/ PNN^ _ NELDS TSCROLLE2sBoxID: LONGINT band: TBandscrollBar: TScrollBarJoNVHzfA g/ PNHz@A g/ PNHz,A g/ PNN^ _ NELDS TSCROLLB*isVisible: BOOLEANfirstBox: TScroller4IntrinSgSgCLAdbgLINTTOHELINTTOHEz(LINTTOSTLINTTOSTz,INTTOSTRINTTOSTRz$HEXSTRTOHEXSTRTOz STRTOLINSTRTOLINz8STRTOINTSTRTOINTz4TRIMBLANTRIMBLANzXCHARUPPECHARUPPEz STRUPPERSTRUPPERz<SPLITFILSPLITFILz0DUMPVAR DUMPVAR zWRSTR WRSTR zhWRLN WRLN z`CHECKKEYCHECKKEYzWROBJ WROBJ zdBP BP zEP EP zCOUNTHEACOUNTHEAzTPAD TPAD zLTOOLOFFITOOLOFFIzDTOOLOFPRTOOLOFPRzHTPAGEVIETPAGEVIEzPTBAND TBAND z@TPANE TPANE zTTSCROLLETSCROLLEz\`zN3NN,VN7fN*N4NN~NBNN|NN0NNXN:&N:N7bNG~N\fNN^jN+N,N*JoNVH,. AC~p S@n0 npJlzR`z~`: nHO /r/"H"ҟC6B/p/",S lLN^ _PONINTTOHE0123456789ABCDEFJoNVH(n,. p ~ J]D jD,O /r /""t0҂CSG/p /",JfgO -SG/ ?<?"LN^ _PONINTTOSTJoNV0. H/A/NVA//..@R@?:N^ _\ONNTTOSTRJoNVH(n&n/ N^@J@oB@ @^r4B B0Wr4B B$Wg/ ?<?<"`@A8 n BJDf`@ @o`B=Dz`K4P@>0k|?nA2IDA0 <f |0<`^0k|OnA2IDA0 <f |A| <`20k|onAj2IDA0 <f |a| <`BF n HІ n REinoPLN^ _ NEXSTRTO~JoNVH(n &nB/.A/ n@R@?:A/NBBHnHzP"g`hpA0A A-WrA0B B+WgJGoJGo(O /BgO4pA?N2 SG`LN^.NuTRUPPERJoNV/ n B n"np@ S@n n@>`N nO0p@ @-f6 n //.?<?Hn" _Cp@ S@n/.?<?"`SG Gl.N^ _ NPLITFILJoNVA/ / n/(NN^ _ NUPPLYOBJoNVH n CJp@"S@n(m,|B/.N&_/ HnA/NHnHzbHn?<" A?<"/N#dJno?./.?<HzH/N"4GLN^ _ NBUG TOBJECT  JoNVN^ _ NELDS TOBJECT JoNVA/ / /. mHh0?<?<LHzA g/ PNHzA g/ PNHztA g/ PNHzPA g/ PNHz,A g/ PNN^ _ NELDS TCOLLECTXholeStd: INTEGERholeSize: INTEGERholeStart: INTEGERdynStart: INTEGER size: LONGINTJoNV  ] n P". ^g Hz$/. 2N^ _PONECKINDTCOLLECT CheckIndexJoNVH n CJp@"S@n>.,.(m,|?Hzn/ mHh?<?<LJGo HzXN!R Gf /N`B/N&_ S"F"Q0) Hf/- HzBgzBgHn/ Ng  gHzN BJf HzN `*Bg/.ޠ0\g U@?Hz/.N`HzN Gf6/.A/NHzHnHn?<" A?<"/N | S"F"Q0) Hf/- Hz:Bg`DHz*N PDLN^ _ NBUG TLIST .)<=HOLE=>: $NIL, (JoNVH(nJlf` lf~ `~ ,gB,`0 l @FoHzNN HzN9| `HzNAC 0A?<"/Nx lo6?,A/NHz>HlHn?<" A?<"/N:lLN^.NuRITEMEM*, ,JoNVH n PJoBg m?(?<\0|=@|BnB.B/.N(_BgHn/ NgxJf -|NIL`4Bg/.0\gB/.N&_/ Hnޠ`AC^ 0HnHnԠ"g/NX=|`RnAC 0`z/N4LN^.NuBUGMEMTLIST ????????JoNVA/ / /. mHh?<?<LHz,A g/ PNN^ _ NELDS TARRAY recordBytes: INTEGERJoNV nHhHzH nHhHn?<" A?<"/A g/ PNN^ _ NUPPLYME: JoNVH n CJp@"S@n&n:.?Hz/ mHh?<?<L E^ EWHnHz"@gPHzNBGB/ N(_ T"S0) HfHzbNBgHn/ Ng JGoHz@NRG?A/NHnHz$"gHnHzHn?<" ACp@ S@n S0(S@=@BF`XH Ю @HH/A/N@HnHn?<?<HnƠ"HnHn?<" ACp@ S@nRFinoA?<"/N` S@?A/BgHz/N T"S0) HfHz6N`Hz&NLN^ _ NBUG TARRAY * } , <=HOLE=> : , <=HOLE=> { JoNVH n CJp@"S@n&n?.Hz/ mHh?<?<LJnoHzNB/ N(_ T"S0) HfHzN=|xBgHn/ Ng:pAA?<"/N T"S0) HfHz2N`Hz&NxLN^ _ NBUG TSTRING '<=HOLE=>JoNVHz"B2N^ _PONONE TFILE A TFile cannot CloneJoNVA/ / /. mHh?<?<LHzvA g/ PNHzNA g/ PNHz,A g/ PNN^ _ NELDS TFILE 8scanners: TListpassword: STRING[32]path: STRING[255]JoNVA/ / /. mHh?<?<LHzA g/ PNHzA g/ PNHzrA g/ PNHzNA g/ PNHz,A g/ PNN^ _ NELDS TSCANNER`atEnd: BOOLEANscanDone: BOOLEANincrement: INTEGERposition: LONGINTcollection: TCollectionJoNVA/ / /. mHh?<?<LHz,A g/ PNN^ _ NELDS TSTRINGSactual: LONGINTJoNVA/ / /. mHh|?<?<LHzpA g/ PNHzNA g/ PNHz,A g/ PNN^ _ NELDS TFILESCA0error: INTEGERrefnum: INTEGERaccesses: ByteJoNV n CJ""2N^ _PONWAPIN JoNVH(n n C^ 0~`6 n O H瀀Bg"lH??<T2LCRRG GoLN^ _PONOPYNAME 12345678JoNV/ (n ,m n,HN6T(_N^.NuDVANCEPJoNVHB"H-_ .X-@ n-P nB n B nBB.Jg/./NB/./<: -_B n//<: Ю-@ n0S@ @N]g .lT` n0S@ @NtV n2SA ANVg .lRT` n | .V-@ nJ]D@S/. /NF.g /./N6` nBO ./",LN^ _NETDOLLAJoNV/ (n0,l_2,CA0B B _gRl`9l0,loB,`0,l_2,CA0Bk|nA2IDA0 <WgRl`0,l^D@, gRlHl?,Bg?<0,l?\Hn"AC 0(_N^.NuEXTTOKE JoNV/ n CJ""2(nA/NHlHn"g2A?<"/A?<"/"nA g/ PN/.N(_N^ _PONXPECT JoNV"nA/HnHnNJ.f-n `*"nA?<"/Hz,"nA g/ PN/.NN^.NuARSENUM a numberJoNVH(nl. g|AC 0AC 0A/N,/.N  g*A?<"/HzN"nA g/ PN`HnHz"gN/.NAC 0A/NpHnHz"HnHz"gHzn/.N$`HnHzR"gHzB/.NB/.N~ :Hz0/.NHz$/.NB/.NX 8Hz/.N>,Hz/.N</.N, gFHz<Bg??Hl?0,G?HnԠ"A?<"/"nA g/ PN`HnHzx"g`Hzv/.N6B/.N =@HzX/.N, g*Hz:<0.R@?BgBgHz"nA g/ PN`HnHz"g>, g0A?<"/Bg?<BgBgHzn"nA g/ PN`2HnHz"g@, g2A?<"/<?<BgBgHz"nA g/ PN`HnHzV"g@, g2A?<"/<?<BgBgHz"nA g/ PN`HnHz"g@, g2A?<"/<?<BgBgHz~"nA g/ PN`BHnHz"g@, g2A?<"/<?<BgBgHz."nA g/ PN`HnHzL"g@, g2A?<"/<?<BgBgHz"nA g/ PN`HnHz"g@, g2A?<"/<?<BgBgHz"nA g/ PN`RHnHz"g@, g2A?<"/< ?<BgBgHz>"nA g/ PN`HnHzH"g@, g2A?<"/< ?<BgBgHz"nA g/ PN`HnHz"g@, g2A?<"/< ?<BgBgHz"nA g/ PN`bHnHz"g@, g2A?<"/<?<BgBgHzN"nA g/ PN`HnHzB"g@, g2A?<"/<?<BgBgHz"nA g/ PN`HnHz"g@, g2A?<"/<?<BgBgHz"nA g/ PN`rHnHz"g@, g2A?<"/< ?<BgBgHz^"nA g/ PN`"BgA?<"/0J_oAC 0A/NrHnHz"gx>,/.N*</.N&, gTA?<"/< ?<BgBgHl?0,G?HnԠ"A?<"/"nA g/ PN`<, g2A?<"/< ?<BgBgHzb"nA g/ PN`&A?<"/Hz0"nA g/ PNnLN^ _\ONARSETYPtypenameOFLRECTRECTLPOINTLONGREALPTRPOINTREALLONGINTHEXINTEGINTEGERHEXBYTEBYTECHARBOOLEANSTRING][ARRAY.ENDRECORDJoNV/ (n, g2A?<"/Hz"nA g/ PN/.Nd`, g"A?<"/"nA g/ PN/.N,Hz/.N*Bg/.NHlHzz"g /.N`DHlHz^"HlHzN"g&A?<"/Hz&"nA g/ PN(_N^.NuARSEFIE; or ENDEND;:var nameJoNV n CJp@"S@nB.=|.@=@HzJHn.@R@?"N^.NuRCKABOR ...abort...JoNV n CJ""2/.NHnHz4Hn?<" A?<"/NN^ _PONECLNAME: JoNV n CJ""2/.N@N^ _PONKIPNAMEJoNV nCJ""2 n CJ""2/.NNHzNHzvHnHzHn?<" A?<"/NHzNNHzBHnHz6Hn?<" A?<"/NN^ _ NECLBAD :'>> 'but encountered:' <`dGlHzN:,?A/N HnHzjHnHn?<" A?<"/Hz/.HzT/.Hz /.NRGinoHzN\LN^ _NECLARRA}: , ] = {.. [JoNVH nCJ""2 n CJp@"S@n:.(n .f4A?<"/?.?.A?<"//.NR`HnHz "g(HnHzHn?<" A?<"/N Eo,@gRl l&PB..Hk @nH0;NVxL\l|0"@P/A/N8HzLHnHn?<" ACp@ S@n`JfAC$ 0` AC 0`H?A/N`lHH/A/NHzHn?<?<Hn"HnHn?<" ACp@ S@n`=|ApA`?A/Nڢ`0H/A/NVHzjHn?<?<Hn"HnHn?<" ACp@ S@n`/A/Nٴ`/ A/2`/ A/2`|./A/NHzHnHzHn?<" ACp@ S@nJf -|NIL`lBg/0\ g&HnHzHn?<" ACp@ S@n`6A?<"/NHn?<" A?<"/NlLN^ _NECLTYPE< typename.0'Invalid Object -- $TRUEFALSE = JoNV/ n CJp@"S@n(nHnHzz"gJRl loHz^NtA?<"/Hzz/.Hz./.Hz/.N/.N`,@gRl(_N^ _PONEBUGFIE; JoNVHB"H-_/-g`(BnHzLNHz,/A g/ PNHz,NO ./",LN^ _NRITEDRE] [ JoNV"nA?<"/A g/ PNN^ _ NUPPLYVAJoNV/ nCJp@"S@n(mBl9|?<A /BgHz/N BlN(_N^ _PONUMPVAR JoNVH nCJp@"S@n(m.@:|Fm FR@>pUl8Gl8>JG^OA0pA A VgSG`JGW2,޲lWg>JGo$/- Hn??Hn"HnBglG lU\F\gN`pLN^.NuRSTR JoNV/ (m/- Jlo/- < ?,ܠx9l`Bl(_N^NuRLN JoNV nCJp@"S@n/-gZHnHz"gB/- /- HztBg/- HnBg/- Hz4Bg/- /- | `B. N^.NuHECKKEY.# stopped because you typed a key -- -- JoNVH nCJp@"S@n&n(m/- BlBlBg/ 0\g(?. A?<"// NBgHzNN`/- Hz.Bg/- / ?<|LN^ _ NROBJ &Not an object: Display of the objectJoNVH(mB.0,.lm/-  gBl.G`Rl.LN^NuKEYPRESJoNVH&mB=k\|`0S@A AJI/ HzƠ"g$Hl nHh"Hl Hz"`FHl Hz"g/ nHh"`$/ nHh"Hl nHh"g. n| n||-B+|BFBB` RFino6LN^.NuREAKHERJoNVH&n(m/- Bg?,?<K\9_ l`O< @A0ٰSG Gl//R`./- Hz&Bg/- 0,H/?<|/- B,ZJll:Bl/- HzBg/- A/Bg<NHzB2B` llVJG\g@O< @A$"0f&/- HzBg/- HzB29G`SG`lg0/- HzBg/- A/Bg<NHzB20,A<@A20l&\,`BgA/Bg<N`.Jl\^/BgNX @gBgA/BgBgN~JlmSl)FBLN^NuP The above EP had no BP--------------------------There was a BP with no EPThe above EP had no BP at all6Stack bigger than performance measurement can handle! JoNV-nBg/.Hn. =n N^.NuOUNTHEAJoNV nCJ"" nCJ""""?<NJ fB/. mAr/:D-_ B/. mHhr-_$ n$ PBHn?<?< Hn?<?< HnHn/./. Hn/./.$NN>N^ _NEATE TPAD JoNVH n CJ"" nCJ"""" nCJ"",.?<NHn/N F(PGr)n AC A preludePtr in ExpandHeapJoNV?<NVHn n P h6 . Ш//</.NJnoBg m/(NN*N^ _PONPANDMETDOCMANAJohNVhH(.(m?<NJVVJnW‚g/,N nBPJno D P0.2SAC@A(=p/.?.Hn" nJPnDHnhBg"h/.?. </Hn </Hn"Hnh<"h`Hzn n0H/20.H//<"*<. D PCAp"S@n2B.j ] nJP_gRF V@S@=@B . //<:<.BB м/?<:$?<:,. D PHh0S@A @APHpHnh?<" AChp@ S@n/.HnHnHnj"(/.HnHnHn?." nJPo,/- Hz.Bg/- n0H/?<|/- nJPo6HnhBg"h/.Hn//HnHn?.Bg"Hnh<"h`h/.?.Bg"p nJPnR/.?.Hn" nJPn:HnhBg"h/.?. /Hn /Hn"Hnh<"h nJPoHz. n0H/2`V/.HnHnjHn"( nJPoHz n0H/2 D P0S@A @A(1 nf-nڇBg/,Ng n0` nJPnP D PG*Jnf2)D=|` n0.2SACB0Rn no'n k !E k 1FNLN^ _NKESEGMTDOCMANA,In TDocManager.MakeSegments: Change_Password)In TDocManager.MakeSegments: Make_Dataseg5In TDocManager.MakeSegments: error from Open_Dataseg=(In MakeSegments, error from Info_DatasegJoNVH(n..*. ?<N EB TCXp@"S@n T"T)H ((gBB m/(A?<"/Hz:p&_Bg/./ N ghBB m/(HnHzxHn?<" A?<"/HzV:p/ NBg/./ Ng/.A?<"// N/ N T"nJQ_D@&` TB(&Bg m/(Ng n0` T('g/.// N ` n0 nJPo6 n Pg$ T(&g/.// N` /.// N` E` E nJPn> TB: T h6 h P,( T!FB//N(// B/./. /.N-_ BB/./. mHh40-_ n P h6!n/. N/NXO ./",NLN^ _ NENBLANTDOCMANAJoNVH&n(m$?<N S/B&  _!@>HnHn& S . WD@JHn& SJVD@K Sp k"m |nU2IDA1 <WD@L S .WD@M S!lR S/B/,N  _!@NNLN^.NuSPECT TCLIPBOAJoNV?<N n P!n NN^ _PONVEVIEWTIMAGE JoNV?<N n P!n NN^ _PONINPANETVIEW JoNV?<N\ n PJ&g n P/(&NNPN^.NuACTTOPTVIEW JoNVH n CJ""""(n?< N T(4  T(3 gHn/ mHh?<?<L`Bg THhHnH gB` T"mHM1`HA@(0 mHM0`HA@*6~ T h& PHM @&p H SnJBH// N _-P踮f-EH/A// N ` .jDn H// NSGRG`R oV TXC T/(NNLN^ _PONSIZE TVIEW JoNVH&n..?< N S(hJfB/. mA/:D.BB//. T/( SHh0/ mHhBg T/(*Bg4\ mHhȠ-_NRLN^ _ NEATE TPAGEVIEJoNVH(n?< NB` T h P"mHO1pHA@(0 |H THO @ p PlRBH/ THO @/0 N _*J\D. f$ jDoH/ THO @/0 NSFRF`R ohNvLN^ _\ONEARPAGTPRINTMAJoNV/ nCJ""(n/. B0.H l P h P2(,H//"?,HB0.H l P h P2(*H//"?,HB0.H l P h P2(,H//"?,HB0.H l P h P2(*H//"?,HH(_N^ _ NCALETOVJoNVH?< NP n P h P h P/(N n P h P h P h PCANp"S@n n PA`Cp S@n n(PG`/ Hl0/NHkHl@/N n PHh0 n PHh n PHhPH n PHh0 n P/(NHn n P/(NHn n P/(N/.NN|LN^.NuACTTOPTPRINTMAJoNVH&n?< N6 S h PCX""""</ NB`n SIPJf , <` ,< S h P"mHO1pHA@(0 zBoBH/ SHO @/0 N _-PBH Ю//:<-_ .jDn .jD-@`8B/./. S/(N-_H/A/ SHO @/0 NRE`j S h P(2g~ SHO @ p P o8B SHO @ p P (S/ SHO @/0 N _-P`B .jDHІ mHO0pHCA-R oHn S/(NNLN^.NuDOBREATPRINTMAJoNVH,.(m?< NRJ g., `.,ؾfA2C0p S@n` G P h6C2Ap "S@nACDp S@n F PGN KPC A"K"" F P1n` F P1n^NLN^.NuTPRINTTWINDOW JoNVH n CJ"" nCJ""?<NBgHn`g``BgHnHnHn蠊gBB(_B&_/ Hn/ Hn/ / /  / / $/ $`HnNLN^ _PONNVALDIFJoNVH(n&n ?<N T(X T|X T!K$ T!K B T/(N,BgHn/Ng / /.N`/ / N TJ,fB/ N . T!G,` / T/(,N TJ0fB/ N . T!G0` / T/(0N/ N THh/ N S(3g T h PJlf T h P!LlNLN^ _PONVEVIEWTPANEL JoNV nCJ""?<NBB/./.Hn/.. N-_NN^ _NWBAND TPANEL JoNV nCJ"""" nCJ""""?<NXB/.B/.N/.Hn/.Hn. m/(<4\-_N.N^ _NWVIEW TPANEL JoNVBg"n i P h$ P/(&NN^.NuORBREAKJoNV/ (nBB l P/($N l P/(,N)_(_N^.NuLEARSELJoNVH?< Nv n P h$ P(3g n P(XJ. WDJWD. f` g n P(h(g0BB n P h$ P/(&N (_ n P!L n P!L(` n P"n"Q#h$ n Pn XB` mHO0pHA@BB n PHO @/04N-_BgHn/.NgBB n P/(N mHh&_g SHhHn/ N`g SHhHn/ NHO @ SHO"A$6֔HO @-B n P/(N-_BgHn/.Ng n P"n"Q#h Hn/.N ``.R og/ N n PB( m hL PB/.N`,< n P/(N n Pn XHzp//.NNrLN^ _\ONEVIEW TPANEL JoNVH?<N. n PHh B`ZB n PHO @/04N(_BgHn/ Ng, n PJ$g n P h$ P/( Bg/.NL@`R oNLN^.NuSCROLLTPANEL JoNVH n CJ""&n(m?<NrBBB/ NBg:x-_AC Hn?This panel has a deletedSplits array, but its recordBytes <> 2JoNVH nCJ"",.*. ?<NښJfB/. mA/:D,B/ mHhȠ&_(S n P)h)n )E$n(BBB/.?<:x. S!GHn/ NJg E P!KN,-KLN^ _NEATE TBAND JoNVH n CJ""&n?<NBg SHh Hnl gp SCA ""Bg/./.h g mCA""`Hn?<?<0HnHnN S.($Hn/ N SCA ""(S l P"m,(HA1HCA00R@ m,(HC0HEB= ,(HA@ l P,(HCA44p`f( l P,(HA@20SA,(HA@=,(HA@ l P,(HCA44pdf( l P,(HA@20RA,(HA@=Hn/NB/ N/ NNVLN^ _PONSIZEOUTBAND JoNVH(n*. ?<N T((B T/(N&_BgHn/ Ng THh/.N` T h PJ gBB T/(N mHh-_HnHn/.NB/ N,BHO @/6BHO @/BHnHx" $6ޔ//:<:8* mHO0pHA@B HO"A-Hn/ NB/ N T h$ P/( Bg/ NL@NLN^ _PONSIZEPATBAND JoNVH n CJ"" nCJ""""&n,.(m?<N֒ fB/. mA/:D&_BB/ /.HnHn/,/, F P h P/( l P/Bg"l"Q0S@A @Hq<00 _2SAC>@1RGinoLN^ _TONLASCALEClascal error: JoNVHzHz mHh?< ?<?<$::Hܠ:HRR RH0 D0 f?<H:Z:&z,zv$HzB NHz,N m"mC!IN^NuCR1000TOBJECT AppleNIL TOBJECT JoNVHzHz| mHh0?< ?<?<$?<:\?<zP?<0 "0:: 0 ֠z F: : : ::<$ mB(N^NuCR2000TCOLLECTTOBJECT TCOLLECTJoNVHzHz mHh?< ?< ?<$?<0?<:?<z ?<:?<z @:Π:D0:0b000?<:::p:x:X0::0000$N^NuCR3000TLIST TCOLLECTTLIST JoNVHzHz mHh?<?< ?<$?<z Dz?<:,?<000J0::004?<00X:d:0̠:V0x00r:d$N^NuCR4000TARRAY TCOLLECTTARRAY JoNVHzHz mHh?<Bg?<$?<z ?<:?<0,000Ҡ00 00200b00h0: 0&0l000 00j:P$N^NuCR5000TSTRING TCOLLECTTSTRING JoNVHzHzr mHh?<Bg?<6$?<z?<: zF?<0?<0 :b00:0!40 0 Ƞ$N^NuCR6000TFILE TCOLLECTTFILE JoNVHzvHzh mHh?<?<?<$?<z?<0!?<0"~0"0">0":0#:(0#R$N^NuCR7000TSCANNERTOBJECT TSCANNERJoNVHzlHz^ mHhDBg?<?<$?<:2?<0%(:n0#0$ 0$x0%$ mBN^NuCR8000TLISTSCATSCANNERTLISTSCAJoNVHzlHz^ mHh`Bg?<?<$?<0&Z?<0(0)20&0'0'p0(n$ mBN^NuCR9000TARRAYSCTSCANNERTARRAYSCJoNVHzHz mHh?< ?<?<$?<0)z?<:j:Ơ0-0-v0-0.0.b0.0/?<0+0,Ҡ0*60*0+0,0/0/$ mBN^NuCR0100TSTRINGSTSCANNERTSTRINGSJoNVHzHz mHh|BgBg?<$?<0001&z\?<02p: 0102?<:!05"?<0304030303H04J:#:"4$N^NuCR1100TFILESCATSTRINGSTFILESCAJoNVDNNNN@NNNzN\NNNN^NuOBJECT JoNVH(m&m,g>8, g*/- HzjBg/- |Jg/+N/-g/-`B@=@`, g Hn<4LN^NuRMNTEXCTrmntExceptionHandlerJoNVHz$0.H/2"0N^ _TONKDRERRO QkDrErrorJoNV mY/ mB m(g*D m$/( m|`HnBg4JnoHzj0.H/2HnHn"JnoHz20.H/2HnHnܠ"JnoHz0.H/2HzHnHn?<" ACp S@n0HnHnܠ"JnoHz0.H/2Hn*JnoHzf0.H/2HnHn"JnoHz0.H/2N^NuNITQDWM'Set_Working_Dir back to prefix error = FMOpen error = !Set_Working_Dir to boot vol error-OSBootVol errorGet_Working_Dir errorMoveConsole errorJoNV/ (mJno4Hzr0.H/2,gHn<Bg?.6(B(L"0`,,g&Bg&g,gHn<<B(L"0(_N^ _TONNITERROInitErrorAbortJoNVHz$Hz mHh?<?<?<$?<2?<HDHHDH,?<H?<Hn$ m1|N m1|P m1| T m1|R m1|V m1|X m1|Z m1|\ m1|^ m1|` m1|d m1| b m1| f m1|h m1| j m1| lBgBg?:$ mHhʠHN^NuCR1000TAREA TOBJECT TAREA JoNVHz\HzN mHhr?<?<?<$?<2P?<:%`?<z8~HH&LH&̠:(H#NH#H$j:'H%^H)H.:&\:&H(ȠH)@0=H ,H H!H!H"VH"H#?<RB$HzN mB mB mHh?<Z?<< m"mA:C m"mA2C m"mA*C m"mA"C m"mAC mB(N^NuCR2000TPAD AppleTAREA TPAD JoNVHzlHz^ mHh?<Bg?<$$?<2?<6:?<6?<6p6Ҡ66 $N^NuCR3000TBRANCHATAREA TBRANCHAJoNVDN4NNjNN^NuDRAW Jo\NV\H(m?<zACjp S@np)@B,B,B, m$B(B|BBB*BB B9|B")_Hn/,Hn"Jno?.NACp@ S@nHnHlHlz0A?<"/Hl:BA?<"/zD)_A&HHn/ A/pB/Hn"LJn_.AJA^.A A?_gACp S@n`2/,A/z,Hz8HlHn\?<" AC\p S@nzLN^NuNITPROC2Tool *Copyright 1983, 1984, Apple Computer, Inc.JoNV?<zJ fB/. mA/:D-_ B/. mHh-_zN^ _PONEATE TPROCESSJoNVH(m&m?<zBB m/(HlHlHzHn?<" A?<"/Hzj:p(BB?:Z/N)_ l P?(NBB m/(/,N )_B</,N <B</,N : l P?(N>?? m/(B/* mP?(NB l P?(?. *H)_ mP?(N/,?< A/<<,@ @CoHzHp /2?<hNBgA/<@A/z<<A/<@A/zHnHn?<" AP!RG GoHkBgBg HkBgBgBgBg(HkBgBg?8JV m$"(ԲWgD |  g Hz`B2Jg,B/,N.BBgHn/Ng /.N`"0zLN^ _\ONMPLETETPROCESSProcess.Complete(FALSE)JoNV?<z mB( m$B( mB( mB(zN^.NuNTDEBUTPROCESSJoNVHzHz mHh?<?<?<$N2&:,8:,:@6 p6 Ҡ6 N6 6 6 6 ~6 6 H*p26JNNn:+x6Z:.r:2:7:@6 :+?<6 jRB̠6 *$Hz NNRN^NuCR1000TPROCESSAppleTOBJECT TPROCESSJoNVH nCJ""""&n..?<zJfB/ mA/:D.B/ mHh-_BB/ /.NHz-_BB/ /.NHz~-_BB/ /.NHzd-_BB/ /.NHzJ-_ n(P)n  LPC ٠zLN^ _NEATE TDOCDIRE TARRAY JoNVHzPHzB mHh?<Bg?<$?<2?<6 $N^NuCR2000TDOCDIRETOBJECT TDOCDIREJoNVH nCJp@"S@n,.?<zJfB/. mAD/:D,B/ mHhD&_HnHnHnz0 SIA"Lp@"S@nACp@ S@nB,|#B,$ SI*B ~`0S@A @9RG GoB(SBBBlFB>z-KLN^ _ NEATE TDOCMANAJoNV?<zzN^ _\ONMPLETETDOCMANAJoNV?<z-| zN^.NuLTHEAPTDOCMANAJoNVH&n(m?<zJg/,N SCXp@"S@n SCAp"S@n2B.~ V@S@<Hn0S@A @APHpHn?<" ACp@ S@nJ g n09`*/.HnHnHn"(/.HnHnHn?" nJPnz S0S@A @A(1 Ff*./.?.Bg"p nJPoHz n0H/2/.HnHnHnΠ"( nJPoHz0 n0H/2RGBg/,Ng n0 nJPox` Eh^Dg nJPn S!E6)K/./. / N` GoSGHn S0S@A @A(?0"Jno>/- pA?<x/- HzdBg/- 0.H/?<|/- S0S@A @A(1`zzLN^ _ NENSUSPTDOCMANAxError unbinding dataseg=-In TDocManager.OpenSuspended: Change_Password/In TDocManager.OpenSuspended: SetAccess_DataSegJoNVHzHz mHhD?<?<?<J$?<2*?<2H+N6ڠ6Xz@zC>6N6F6>6R666DNz<(6z<6:BB?<RC2:A6D$N^NuCR3000TDOCMANATOBJECT TDOCMANAJoNVH&n ?<z fB/. mA(/:D&_BB/ /.HzZN mHh(-_ n(PB,JB,KB,LB,MBNBRBVzLN^ _PONEATE TCLIPBOA --CLIPBOARDJoNVHztHzf mHh(?<Bg?<Z$?<2?<0?0B?<0=T0=0A60A0CNzDؠ6$N^NuCR4000TCLIPBOATDOCMANATCLIPBOAJoNVHzbHzT mHh?<?<?<$?<2?<H,jH,?<H,H-$N^NuCR5000TCOMMANDTOBJECT TCOMMANDJoNVHz\HzN mHhXBg?<?<$?<2D?<0D 0DX?<RCz$N^NuCR6000TCUTCOPYTCOMMANDTCUTCOPYJoNVHzPHzB mHhtBg?<?<$?<0G?<RC$N^NuCR7000TPASTECOTCOMMANDTPASTECOJoNVH n CJ""""&n?<z fB/. mA$/:D&_B/ mHh$-_ n(P LXC )nB,zLN^ _NEATE TIMAGE JoNVHzHz mHh$?<?<?<$?<2?<H-H.FH.?<RCڠRDRDHH-@zEH-RDH.H/XH/ĠH00H0RD̠RDH1xH1̠$N^NuCR8000TIMAGE TOBJECT TIMAGE JoNVH nCJ"""" nCJ""""..*. .?<zJ$fB/ mA/:D-_$BB/.$/HnBN@ mHh&_(S)K)n)G&)n *AC n2Hl>?<(?<H6::O"H36"Ƞ6#HH;H<H6xH6ؠH78H7H7H8LH8H9RH9H9H:F:N֠H4r6#H:H:H;T6#ĠHnH>HB6HB:UޠHI,HIRE$$N^NuCR5100TWINDOW TAREA TWINDOW JoNVHznHz` mHhd?<?<?<x$?<2)?<6*n?<6*?<6)?<6)6*0$N^NuCR6100TDIALOGBTWINDOW TDIALOGBJoNVH(n?<zJfB/. mA/:D-_B/. mHh&_D4-HD*-HB</ N < S1F(=F~`B</ N =@BgA/p// NB</ N :B/. ?-_Bg n/H// NHn& m0S@A CACp S@n0 S0S@AB0pRGinobB/. ?</ N( S!D$ D P=h S1n* T?(Nz-KLN^ _ NEATE TMENUBARJoNVHzHzv mHh?<Bg?<,$?<2*?<H\H^rH[֠H_`H`H]JH^:ZH^̠H`H]:ZHaF6+6$N^NuCR7100TMENUBARTOBJECT TMENUBARJoNVH,.*.?<zJfB/ mA/:D-_B/. mHh&_pk|nA 2IDA0 <f p. @ pk|nA 2IDA0 <f p. @ (S)FB$B B,B09nF9n Hn Dn E|XB(BBJBh?<20ڠ6??<6?L?<6=D$N^NuCR0200TSIDEBANTBAND TSIDEBANJoNVHzxHzj mHh?<Bg?<$?<210?<:k?<6@.?<z]HqHrxHpHs:mb:n$N^NuCR1200TPANE TPAD TPANE JoNVH.. ?< zJfB/. mA/:D.B/ mHh&_BB/./ N(_ S!Lz-KLN^ _PONEATE TMARGINPJoNV?<z n P/(:/. mHh?<?<LzN^.NuEE TMARGINPJoNVHzlHz^ mHh?<Bg?<$?<N21?< :o?<6Al22z?<B$N^NuCR2200TMARGINPTPAD TMARGINPJoNV?< zJfB/. mA@/:D-_B/. mHh@-_ n P!nzN^ _ NEATE TBODYPADJoNVHzdHzV mHh@?<Bg?<$?<23?<?< :pJ?<PL$N^NuCR3200TBODYPADTPAD TBODYPADJoNV?<zHn n P/(:*Hn n P/( 4Hn n P/(:*/. mHh`?<?<LzN^.NuEE TSCROLLEJoNVHzxHzj mHh`?< Bg?<$?<NZ23?<HsޠHtHt^:qd0N:qҠ:pؠ:q0L0M$N^NuCR4200TSCROLLETOBJECT TSCROLLEJoNVH n CJ"",.*.?<zJfB/ mAt/:D*B/ mHht(_Hn/BHn mD/(. m/(Bg8&_Hn/ :*BB// / z\. T!G.Hn?:0/ Nz-LLN^ _NEATE TSCROLLBJoNVHz\HzN mHht?<Bg?< $?<24*?<z_R:r4:r:s $N^NuCR5200TSCROLLBTOBJECT TSCROLLBJoNVDNNТNNvN NNzNNNNNFNNNtNNnNxNلNNrNNZNNNNrN^NuABC FIntrinSgSgABCcldTBRANCHATBRANCHA6PICTEXTBPICTEXTB6PICTEXTEPICTEXTE6PICGRPBEPICGRPBE6 PICGRPENPICGRPEN6GETTIME GETTIME 6TDIALOGBTDIALOGB6 TSIDEBANTSIDEBAN6$A6N$NNN(NNbN(N;JoNVB. Jno40.@5g ]@g@fg`| `| `| `| N^ _TONILERREAJoNVH.. ,.?<zJfB/. mA/:D,B/ mHh&_(S G PC A "" G P)hnnn)G)n G P!K n P!Kz-KLN^ _NEATE TBRANCHAJoNVH(n?<z T(Hn< T/(NHn< T/( Npk T|nA2IDA0 <V. g(HO @/Bg T h PHh H|2 =HO @HO"A46v nHO @1 mHO0p nHO @H瀀BHO"A46H/HO"A46H/:8"L1zLN^ _ NTMINEXTBRANCHAJoNVH(n&n ?<z Tf T-h ` T f T-h` Hz*/ 2zLN^ _PONHERCHITBRANCHA0/This panel branch does not have a child that isJoNV/ (n?<z T h PCA "" T h PCA "" T(HA@ T(HCAA= T( HA@ T(HCAA= Hn T/(NHn T/( Nz(_N^ _\ONDIVIDETBRANCHAJoNVH(n&n.. ?<z Tf T!G` T f T!G ` HzB/ 2 G P!L Sf SBzLN^ _ NPLACECTBRANCHA0/This panel branch does not have a child that isJoNVH n CJ""(n?<z TCA "" T*( T&h E PCA "" SCA "" T( T(pk T|nA2IDA0 <f2HnHnHnHnHnHn  HA@Hv</NHM @Hv</ NHO @HO"A46v/BgHnH|0$BoBHO @HO"A46vH/BHO @HO"A46vH/HM @HO"AA26H/:<:8 8HM @HO"AA=  HA@HO"AA=`fHnHnHnĠHHnHnHnHHM @HO"AA" HCAHO$BB=HnHnHnؠHHn/ NHn/N TA C ٠zLN^ _PONSIZEOUTBRANCHAJoNV?<z n P(g n P-h ` n P-h zN^.NuPLEFTCTBRANCHAJoNVH(m,g@.HR@2AC o~H0@A l P?<e?</, 8LN^ _TONICTEXTBJoNV m(g ?<fBgB8N^NuICTEXTEJoNV m(g ?<gBgB8N^NuICGRPBEJoNV m(g ?<hBgB8N^NuICGRPENJoNV?<zB8-_zN^NuETTIME JoNVH&n ,..(m?<z,gBJ^ SJh_ SJW( g^o..`.Bg/,Ng S1|`6/.// N S.(J_ SJh_g HzL/2ڇ߮` S!E`/.// NzLN^ _NORTXFETPROCESS0/In TProcess.AbortXferSequential, fs.actual <= 0JoNV n CJp@"S@n?<z.HAA?<"/< zN^ _ NGALERTTPROCESSJoNV/ (m?<zBgA?<"/< JfBg/,?. <<=_`Bg/,?. <=_z(_N^ _\ONK TPROCESSJoNV?<zBg mA?<"/< m/(?. <xzN^ _\ONGINWAITPROCESSJoNV/ (m?<zBgA?<"/< Jf Bg/,?. << _WD@`Bg/,?. <(_z(_N^ _\ONUTION TPROCESSJoNV nCJp@"S@n n CJp@"S@n?<zHz(B2zN^ _NPYEXTETPROCESS,+TProcess.CopyExternalDoc was not overriddenJoNV?<z.H2_AC?. <,zN^ _PONUNTALETPROCESSJoNV n CJ""""?<zBg mA?<"/< HnHn m/(N m/(?.Hn<0zN^ _ NAWALERTPROCESSJoNV?<z<8zN^.NuDWAIT TPROCESSJoNV?<z m/(?./. <` /,?. <XzLN^ _\ONTE TPROCESSJoNV?<zzN^ _NNDLEPRTPROCESSJoNV?<z ndlHzf0.H/2`6B=nB8-_-n m-h-n Hn/.zN^ _NNDEVENTPROCESS0/Invalid event type passed to TProcess.SendEventJoNVH(m?<zBgA?<"/< JfBg/,?. <<>` /,?. <pzLN^ _\ONOP TPROCESSJoNVH..(mB/N&_ G PCP""""/.N/.N/.N/.NBB/ /,NHz-_BB/ /,NHzl-_BB/ /,NHzR-_BB/ /,NHz8-_ G PPC LN^.NuOPT TDOCDIRE TARRAY JoNVH*. (.(m?<z D P-h>="n#H& EBP D P&h6,+ F PCP"""" Sc g E0i EJPnBgHnHnHn04g.gBg?<&/,N `.gBg?<%/,N `~gF?<'/,NB, D P/(>Hn0/N/<</N|/,N ` E0jzLN^ _PONSIMILATDOCMANAJoNVH&n(m?<z f B BB. g?<?</ N/ Bg/,NfBؠzLN^ _\ONOSE TDOCMANAJoNV?<zzN^.NuOSEFILTDOCMANAJoNVH&n?<z mзgz S(h>. g/ S h6/(00/ <0H. B//<&(, lHnB/&$ S h60(HП//./ NJnoBg m/(NzLN^ _ NNSERVETDOCMANAJoNVH&n(m?<z fBB B,/<Bg/ N|/ NzLN^.NuACTIVATDOCMANAJoNVH(n?<zBn TCAp"S@n2B.=n >.` T0S@A @A(Jpm THh m0S@A @APHpHn?<" ACp@ S@nHnHnHnHn"(HnHn"Hn T0S@A @A(?0", T0S@A @A(1RGinoLzLN^ _PONLLSEGMTDOCMANAJoNVH..?<z G PCXp@"S@nBB m/(A?<"/ G PA?< "/:p&_BB?:/ N(_ T"n2 nJPnv S,(/.Bg//N nJPnT G P*(6Bg///</ m/(N T"n2 nJPn/./. /N E h P h PBF/ NzLN^ _ NENSAVETDOCMANAJoNVH..?<z nBP G P(h6&L G P!K>/./N zLN^ _ NSUMEAFTDOCMANAJoNVH&n(m?<z nBPBg/ N)K B,/./. Hn/ N| nJPoHz~ n0H/2`H:P S)hB l P)h/N. G P6JSnBg/,Ng6JSoHn/N/N`H< F P/(6 F P h6/(/<//,N/N G P6JSnBg/,Ng6JSoRHz|0H/2 Sf ?<(/,NHn/NJnoHz0.H/2/,N /N`/N F P(&gFBB m/(A?<"/ F PA?< "/:p(Hn/N/N F P|&HnA?<"//NJnoHzF0.H/2/N F P hB PBFzLN^ _NVEVERSTDOCMANA0In TDocManager.SaveVersion, error renaming file=0In TDocManager.SaveVersion, error deleting file=.In TDocManager.SaveVersion, error saving file=$TJoNVH&n(m?<zgHz n 0H/2 S"S"i6"i"Q#hB n BP S h6=h~`FHn S0S@A @A(?0",?./. : S0S@A @A(1RGino SB:BؠzLN^ _PONSPEND TDOCMANASuspend not-bound documentJoNVH&n(m?<zfR S h6=h~`8Hn S0S@A @A(?0"JnoHz<0.H/2RGinoBؠzLN^.NuBIND TDOCMANAUnbind_DataSegJoNVH(m&m?<z m$ (԰f/.N n P.(BJgBB G P/(NHk,BB F P/(NHk-_ G P h$ P h$ PCX"""" G P/(HzN^ _NMETOPRTWINDOW JoNV?<z/./. n P/(< n?<"//. >LzN^ _NEFIXTOTWINDOW JoNV?<z/.N n P!n /. NzN^ _PONTUPDIATWINDOW JoNV?<zBgB n PHhH0/. h g" n P/(JGo m0S@A CA-H`Bz.N^ _\ONNUWITHTMENUBARJoNVH&n?<z S-hF.HA@=BBB/ N S/(?.?.B@.??<?<"?<TB@. ??<?<"?<T4H(_/ .?..B@.??<?<"?<T/ N -LzLN^ _NVIDE TPANEL JoNVH(n.(.?<z T&h/ S/(N D P!KJn]D TCA ""BgHnH|=_AC 0.jD@> .fBB0.H/?:,?<d:$ >Bp/BH/HK @HK"A46vSBH/:<:8 >g D@>HM @HK"AA"v=AHM @HK"AA=  HA@HK"AA= T-hBBB/ NB@. ??<?<"?<T/ /NҒ-_Jf S!n`/ /./.N mHh/NHn/NHn/ NBg/ NzLN^ _NSERT TPANEL JoNVH...?<z n P(hBB/N mHh/./N!&_BB/N T/(N S/(NBB/ G PHM @/04N R// G PHM @/04NzLN^ _NKEBANDTPANEL JoNV n CJ""""?<zB/.B/.N/.HnB mHhBg m/(<4\-_zN^ _ NWSTATUTPANEL JoNV n CJ""""?<zBgHn n P/($N gB.` n P (XfB.`|zN^ _PONTODRAWTPANEL JoNVH..?<zBg G P/(NB G P/(4N(_BgHn/ Ng6B n P/(N&_BgHn/ Ng/. G P/(N``zLN^.NuMAKEPATPANEL JoNV/ ?<z n P(hp g2 T hg HzF/.2J.f 0. D@=@ A // Nz(_N^ _PONMEMBERTPANEL @>This panel has a deletedSplits array, but its recordBytes <> 2JoNVH..?<z G P&h G P(h f Hz/2 S*(B// N, SHh /N F P!EJf T!F` / //N G PBJBB T/(N mHh( T$f T!D$ T,f T!D,/ N/Bg T/(NzLN^.NuMOVE TPANEL 0.You cannot remove the last panel in the windowJoNVH?<z n P"m. HA1HCA&p4B/ N(_BgHn/ NgBg n P/(N`B n P. HA@/04N.BgHn/NgPB n P/(N,B/ N(_BgHn/NBgHn/ Ng/. n P/(N``zLN^ _\ONPANEORTPANEL JoNVH&n.. ?<z S,( S(h/ Bg T/(N/ T/(NJf T!G` / //N SBJ SHh /N T$f T!G$ T,f T!G,zLN^ _PONPLACE TPANEL JoNVH(n&n.?<z T,($Jf TCA ""`Hn/NHO @/BHO"A46H/ SHO"A40`SBH/:8" =HO @/BHO"A46H/ SHO"A40dRBH/:<" = mCA""BgHnH|J_nlBBB/ N T h P?(:x*B T/(N(BgHn/Ng /./N`/ < SHO @/04N// N`v SCX""Hn?.<. nI ]@=@BgA?<"/0G\@=@ TlS@=@0,F2,@RA=AHn?< ?< mHh??A?<"/PHn?< ?< PLN^ _ NISTINGUJoNVH(m&m?<z n P hB P.(& +찬Lg/,LN,?< (?<?<4 G PHh0H\ G PHh0Hn/,LN /+Hn蠊 G PHhPHn/,LN /,Hnࠊ/+/,/, ?< (HlHn/,LNHnؠ0/,Bg lP PHh lP PHhl gl/, lP PHh/, lP PHh/,/,/, lL PAT-H/, n?( n?Hl/+N/,,?< (Hnࠊ lL P?(A/z$/,&HBgA?<"/<AC HnРA?<"/0.| ?0.|?/NBA?<"/0.F| ?0.|?/NA?<"/0.F| ?0.| ?/NA?<"/0.| ?0.| ?/NzLN^.NuORNPAGTPAGINATJoNV n CJ""?< zHnHn/.NBgHn n P/(BN=_zN^ _PONRSORATTPAGINATJoNVH nCJ""(.?<z D PHhHnH D P hB P&h& SCAP""""B` S"mHO1pHA@(p BBHO @/6 D PHO @/0F:( R/ T/(:< < FfB` B S@H// N _-P .jD*BH// N _-PHO @".jDҶ䒅HO @-HO @/B D PHO"A/0F"SA?:," -HO @=HO @-R oHnHnHnHHnHnHHnHnHnHHnHn/. HzLN^ _ NPAGIFYTPAGINATJoNVH..(m&m?<zB/+Hl( k PCA,""""BgHn G PHhHnҠ:`BgHnHkҠHgz`p G P h& P"G"Q"i&"Q)|HA3HCA p P=h G P-HB/. n/(F:( R=@B/. n/(J:( R=@BB/. n/(F:( R/ G P h& P h P/(:< =@BB/. n/(J:( R/ G P h& P h P/(:< =@:P lL P"G"Q (BV lL P"(Wg> G P/(B/+/+p/ G P h PHhP G P h P h P/(</?=0@>1A?2B@3CA4DB5EC6FD7GE8HF9IG:JH;KINL?OM@PNAQOBRPCSQDTREUSFVTGWUHXVIYWJZXK[YL\ZM][N^\O_]P`^Qa_Rb`ScaTdbUecVfdWgeXhfYigZjh[ki\lj]mk^nl_om`pnaqobrpcsqdtreusfvtgwuhxviywjzxk{yl|zm}{n~|o}p~qrstuvwxyz{|}~ÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁցׁ؁فځہ܁݁ށ߁                !" #!$"%#&$'%(&)'*(+),*-+.,/- 0.!1/"20#31$42%53&64'75(86)97*:8+;9,<:-=;.></?=0@>1A?2B@3CA4DB5EC6FD7GE8HF9IG:JH;KINL?OM@PNAQOBRPCSQDTREUSFVTGWUHXVIYWJZXK[YL\ZM][N^\O_]P`^Qa_Rb`ScaTdbUecVfdWgeXhfYigZjh[ki\lj]mk^nl_om`pnaqobrpcsqdtreusfvtgwuhxviywjzxk{yl|zm}{n~|o}p~qrstuvwxyz{|}~‚ÂĂłƂǂȂɂʂ˂̂͂΂ςЂт҂ӂԂՂւׂ؂قڂۂ܂݂ނ߂