`8IBM Kp@ Hy NMHz<<b Hz`&O`?< NA.KNu (Ver. 18.4.91) p Hello !! I am your personal boot sector GUARDIAN As long as I display this message YOUR BOOT SECTOR IS NOT INFECTED BY ANY VIRUS --------------------------------------- This guardian was placed on your diskette by FASTCOPY PRO (c) 1991 ICP Verlag, Martin Backschat q //#o'+-/13@5`7;?A C@E`GIKMOQ S@U`WY[]_a c@e`gioq Ou`w{@ / O ` o O Oo @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?ACAEaGIKMOQ!SAUaWY[]_a!cAogikmoq!sAuawy{}!Aa!Aa!Aa/Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"/"#B"%b"'")"+"-"/#1"#O#5b#7#9##=#?$A"$O$Eb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]_&a"&cB&eb&&m&oq"'sB'ub'w'y{}'(B(((()))))*"*b****//#o'+-/13@5`7;?A C@E`GIKMOQ S@U`WY[]_a c@e`gioq Ou`w{@ / O ` o O Oo @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?ACAEaGIKMOQ!SAUaWY[]_a!cAogikmoq!sAuawy{}!Aa!Aa!Aa/Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"/"#B"%b"'")"+"-"/#1"#O#5b#7#9##=#?$A"$O$Eb$G$I$K$M$O%Q"%SB%Ub%W%Y%[%]_&a"&cB&eb&&m&oq"'sB'ub'w'y{}'(B(((()))))*"*b****PASKUD `LIBDEF `LIBLNK #` LIBSYM u`MODULASTOVL`MODULASTPRG`PROGRAMS `gM2OPTIONACC P >2M2PATHS TXT S TM2_RDISKPRG NOWY ERM rSET_TESTMOD SET_TESTMOZ R. `.. AESAPPLIDEF rAESEVENTDEF tAESFORMSDEF w DEFINITION MODULE AESApplications; (*** AES Application Library interface ***) FROM SYSTEM IMPORT ADDRESS; PROCEDURE ApplInitialise(): INTEGER ; (* Initialise application. Returns ApId *) PROCEDURE ApplRead(Id, Length: INTEGER; PBuff: ADDRESS); (* Read from a message pipe. Returns coded return message, 0 = error *) PROCEDURE ApplWrite(Id, Length: INTEGER; PBuff: ADDRESS); (* Write to a message pipe. Returns coded return message, 0 = error *) PROCEDURE ApplFind(VAR FPname: ARRAY OF CHAR): INTEGER; (* Find the Id of another application in the system. *) PROCEDURE ApplTPlayback(TpMem: ADDRESS; TpNum, TpScale: INTEGER); (* Play back a piece of GEM AES recording of user's actions. *) PROCEDURE ApplTRecord(TrMem: ADDRESS; TrNum: INTEGER); (* Record the next ApTrNum user actions. Returns number recorded. *) PROCEDURE ApplExit; (* Exit application. *) END AESApplications. DEFINITION MODULE AESEvents; (*** AES Event Library interface ***) FROM SYSTEM IMPORT ADDRESS; PROCEDURE EventKeyboard(): INTEGER; (* Wait for keyboard input. *) PROCEDURE EventButton(Clicks, BMask, BState: INTEGER; VAR BmX, BmY, BButton, Bkstate: INTEGER): INTEGER; (* Wait for a mouse action. *) PROCEDURE EventMouse(MoFlags, MoX, MoY, MoWidth, MoHeight: INTEGER; VAR MomX, MomY, MoButton, MokState: INTEGER); (* Wait for mouse to enter or leave a specified rectangle. *) PROCEDURE EventMessage(PBuff: ADDRESS); (* Wait for 16 bit message from the message pipe. *) PROCEDURE EventTimer(LoCount, HiCount: INTEGER); (* Wait for time to pass *) PROCEDURE EventMultiple(Flags, Clicks, Mask, State, M1Flags, M1X, M1Y, M1Width, M1Height, M2Flags, M2X, M2Y, M2Width, M2Height: INTEGER; PBuff: ADDRESS; LoCount, HiCount: INTEGER; VAR MoX, MoY, MoButton, MokState, KReturn, BReturn: INTEGER): INTEGER; (* Wait for multiple events. *) PROCEDURE EventDoubleClick(New, GetOrSet: INTEGER): INTEGER; (* Set or Get double click speed. *) END AESEvents. DEFINITION MODULE AESForms; (*** AES Forms Library interface ***) FROM SYSTEM IMPORT ADDRESS; PROCEDURE FormDo(Tree: ADDRESS; StartOb: INTEGER): INTEGER; (* Causes the form library to monitor a user's interaction with a form: Tree = object tree containing form StartOb= object number of an editable object that the application wants activate first -1 - no editable objects in form Returns the object number that caused the exit from the form. *) PROCEDURE FormDialogue(Flag, LIX, LIY, LIW, LIH, BIX, BIY, BIW, BIH: INTEGER); (* Multi forms action according to flag: Flag= form action required (see GEMAESbase): FormStart - reserve screen area FormGrow - grow box from LI coords to BI FormShrink- shrink box from BI coords to LI FormFinish- free screen area LI. = coords and dimension of littlest area BI. = coords and dimension of biggest area *) PROCEDURE FormAlert(DefButton: INTEGER; VAR String: ARRAY OF CHAR): INTEGER; (* Displays an alert: DefButton= default button number 0 - no default button String = alert string (see below) Returns the button number that caused the exit from the alert. The alert string takes the following form: '[' '][' '][' ']' is: 0 - no icon 1 - NOTE icon 2 - WAIT icon 3 - STOP icon is a text string of maximum 200 characters using '|' to separate lines of no more than 40 characters are the names of the exit buttons separated by '|' For example, the call i:=FormAlert(2, "[3][Are you sure you wish to quit?][YES|NO]"); will display a STOP alert with two buttons marked YES and NO. If the user selects YES the value 1 will be returned else 2. *) PROCEDURE FormError(ErrorNum: INTEGER): INTEGER; (* Displays an error *) PROCEDURE FormCenter(Tree: ADDRESS; VAR X, Y, W, H: INTEGER); (* Centers a dialog box on the screen *) PROCEDURE FileSelectorInput (InPath, InSel: ADDRESS; VAR ExButton: INTEGER); (* File Selector Library interface *) END AESForms. . #` .. AESAPPLILNK z AESEVENTLNK | AESFORMSLNK  AESGRAPHLNK JAESMENUSLNK AESOBJECLNK AESRESOULNK rAESSCRAPLNK 2AESSHELLLNK :AESWINDOLNK ASCII LNK BIOS LNK CONVERSILNK DISPLAY LNK zFILESYSTLNK GEMACCX LNK !6GEMAESBALNK $(GEMDOS LNK %l GEMVDIBALNK )GEMX LNK *INOUT LNK . INOUT1 LNK 2KEYBOARDLNK 8KEYBOARDPRG 9 LINKER PRG =LONGINOULNK krM2CONVERLNK mMATHLIB0LNK sREALINOULNK y STORAGE LNK |"4GAESApplications1P/GEMAESbase1(AA&NVBg?< Bg?<BgBgNO =_N^Nu DNV?.?. NX#rBg?< ?<?<?<BgNO 3N^Nu) G j 2 <DNV?.?. NX#rBg?< ?<?<?<BgNO 3N^Nuq   2 <:4NV(n* #rBg?< Bg?<?<BgNO =_N^Nuko k $kDNV?. ?.NX# rBg?<?<?<?<BgNO 3N^Nu8 V y 2 <D3<F3:H38J36L34N32P30R3.T3,V3*X3(Z3"\3 ^#$rBg?<?<?<?<BgNO =_(nHT(nHT(nHT(nHTNO(n 8l(n8n=nDN^Nu      J ( } 0 8 @ F H P X W ` h 5 p x3  Q    8NV?. ?.NXBg?<?<?<BgBgNO =_ N^Nu  (E NNVN^N 9 Vh4GAESForms1Z&GEMAESbase1(:NV3@# rBg?<2?<?<?<BgNO =_N^Nu( ) )& *)_\NV?.?.?.?.?.?.?. ?. NO3PBg?<3?< ?<BgBgNO 3N^Nu: &:V 2: J: T;K>NV3@(n* #rBg?<4?<?<?<BgNO =_N^Nu/ / / .030NV3BBg?<5?<?<BgBgNO =_ N^Nu  ITNV#rBg?<6Bg?<?<BgNO 3(nHT(nHT(n HT(nHTNON^Nu{{ { { *{ H|ODNV#r# vBg?<ZBg?<?<BgNO 3(n8dN^Nuj j j (j 2k9 <k NNVN^NHYt 4GAESGraphics1 GEMAESbase1(iiVNV?.?.?.?.NPBg?<F?<?<BgBgNO 3(n HT(nHTNPN^Nu  0I :ˎ LhNV?.?.?.?.?.?.?.?.NOBg?<G?<?<BgBgNO 3(n HT(nHTNPN^Nu) &) B*! L*x ^*RNV?.?.?.?. NP3 H3JBg?<H?<?<BgBgNO 3N^Nusw s s (s @tL JtTNV?.?.?.?.?.?. ?. ?.NOBg?<I?<?<BgBgNO 3N^NuQ &QQ BQ LQTNV?.?.?.?.?.?. ?. ?.NOBg?<J?<?<BgBgNO 3N^Nu.r &. B. L/SHNVBg?. ?. ?.NP#rBg?<K?<?<?<BgNO =_N^Nu< < = 8=[JNV?. ?. NX3D#rBg?<L?<?<?<BgNO =_N^Num    :"NNVBg?<MBg?<BgBgNO =_(nHT(nHT(n HT(nHTNO=nN^Nu  <  9 NNVN^NtMt^ty tt4GAESMenus1*#GEMAESbase1(NV3@(n* #rBg?<#?<?<?<BgNO =_N^Nus( s; sZ .s NNVN^N_p 4GAESObjects1b~GEMAESbase1(HJDNV?. ?.NX# rBg?<(?<?<?<BgNO 3N^Nuo o p 2pa <pݮ HDNV?. ?.NX# rBg?<-?<?<?<BgNO 3N^Nuh h h 2i" <iiVNV?.?.?.?. NP#rBg?<.?<?<?<BgNO 3(n8dN^Nu> f ̑ : D) N͂^NV?.?.?.?.?.?. ?. ?.NO#rBg?</?<?<?<BgNO 3N^Nu; &t 2˱ L Vm NNVN^N5Fa ~4GAESResources1YGEMAESbase1(W#W%6NV(n* #rBg?<nBg?<?<BgNO 3N^Nu  $ .5(NVBg?<oBg?<BgBgNO 3N^NuY' YL YwFNV?.?. NXBg?<p?<?<Bg?<NO 3(n(~N^Nu  * 47 >DNV?.?. NX#rBg?<q?<?<?<BgNO 3N^Nue   2 <.pNNV.  e. ~b| N^NuN B. N^NupNII:J8DpNNVJ.e . c . f| N^NuN B. N^NupN A@ĝNpNNVB'.NTJfB'.NTJg| N^NuN B. N^NupN  &@JNpNNVN^N7Hc ފޯ4GBIOSu}G`GbNV(n* /p?NMN^Nu|(NVz.0?p?NM*EE N^Nu u(NVz.0?p?NM*EE N^NuAvNVz.0?p?NM*-E N^NuNV.?z. 0?p?NMN^Nu6NV0.?0. ?0. ? ./z.0?p?NM*-EN^NuNV ./0. ?p?NMN^NuFNVp/0.?p?NM*-E N^Nu& NVp?NM*-EN^Nu NV0.?p?NM*-E N^Nu: NV0.?p ?NM*E N^Nu$g NVp ?NM*-EN^NudX NVz.0?p ?NMN^NuP=NVp?p ?NM*EN^Nu04 NN>Oj΁Γ4GConversionsu=$$NV:. E e:. Ee:. E$bz`z(n(nJg`Nz:.-EBn/./.N.*=E:. E dz0n8.I@N:.E xAD8.I@Rn/./.NX-_Jg`J.g:.I-PNSn=n:.I8.n&n P@SnJnm`:.RE(n B4PN^NuT  NV:. Ee:. E$bz`z(n(nJg`Nz:././N.*=Ez:././NX-_Bn(n BBn:.nb:.(nJ4PgRn`B.J.g.(n +f =|N(n -f =||:.nRD(n:.nd (nJg`N:.(n4P ae zb_D. 0e. 9bz.x0D=EN2. Ae . Zbz.xADE =EN(nB(nJg:.ndz`z(n(nJg^(n *e(n *f:.nbz`z(n(nJg(z:.(n //NXz:.ڟ(n (RnNJ.g(n *D(n (N^Nu@ Z  NNVN^NQb} 4GDisplayuS8S:NV.?p?NAN^Nu NN())+)B)T4GFileSystemuLStringsueGEMDOSu} BF .TMP.TMP&NV:. nc=n N^NuN =n N^NuNNV(nBB,|/ HxHlNP(_zf/ &nHS<N\(_N@9|/ ?<'Hl :. ?&nHSNO (_B,1B2z)E6Bl>B:N^NuZ *[ >[y h[NV(nBB,,g`Nz:,>-EJg`N/ ?,Hn/,NO (_*.JEl/ &nHS<N\(_N^NuN(z:,>g/ &nHS<N\(_N^Nu/ &nHSB'N\(_*,:2c)l:2z)E6Bl>N^Nu D% d  NV(n BB,*,:2e/ &n HS<N\(_N*,:p -E*.6g`N/ &n HSNX(_JgN^Nu)n6/ /.?,B'HnNO (_-|/ ?,Hn/,NO (_*.JEl/ &n HS<N\(_N^Nu/ U*,:RE??,>NX:(_9E>-l&n*,:E$nPR:N^Nu7 & \ ' $ | JNV(n HTHnNP(n Jf((n HTHnNPz.Ex.D(n8N^Nuw w *x$8NV(n *,:p -E*.6g`N/ &n HSNX(_JgN^Nu)n6/ /.?,B'HnNO (_-|/ ?,Hn/,NO (_*.JENq-l6/ /.?,B'HnNO (_/ U*,:RE??,>NX:(_9E>-l&n*,:E PR:J.g *,:2c)l:2*,:Jf/ &n HSNX(_)l:6N^NuH 2I. Z'I |$Jm 'KI L/ &MuJNV(n HT:. M.NP(n Jf(n HTz:. .NPN^Nu  @2"NV(n J.g |N^NutNV(n:9 E e/ &nHS<N\(_ND/ ?<2Hn:. ?&nHSNO (_z0yE/ BgHn?<2Hn/ U?<2HnN\:(_SE?NO(_Ry/ ?<Hy?<2Hn/ U?<2HnN\:(_SE?NO(_/ &nHS?<2HnNO (_JfT/ ?<2HnBgHlNO (_Jll./ &nHS<N\(_/ U/,NX(_JNqN"||/ &nHSB'N\(_N^Num  " FTx z @    ! ,D >+ h INV(n,g`N/ U?,NT(_Jg4/ U?<'Hl N\(_Jg/ &nHSB'N\(_N/ &nHS<N\(_/ U/,NX(_JNqN^/ &nHSNX(_Jf./ U?,NT(_Jf/ &nHS<N\(_/ U/,NX(_JNqN^Nuʽ "# >&˄ X r̘ +V  #  +>NV(n/ &nHS:.?&n HSNO (_Jf`N / :.?&n HSBgHlNO (_Jlm@|/ B?,<Hl2NO (_/ B?,B'HnNO (_NJ.gb|/ :.?&n HSBgHlNO (_Jll2/ U/,NX(_JNq/ &nHS<N\(_N^NuN0/ &nHS<N\(_/ U/,NX(_JNqJ2WDEN^Nuc c H"dK p'd 'e !f +g h i  +kKtNV(n&nJf`N,f`N:9 E e/ &nHS<N\(_Nz0yE/ BgHn?<;Hn/ U?<;HnN\:(_SE?NO(_Ry/ ?<Hy?<;Hn/ U?<;HnN\:(_SE?NO(_/ ?<'Hl ?<;HnNO (_/ ?<'Hl ?<;HnNO (_/ &nHSB'N\(_NL/ ?<'Hl :. ?&nHSNO (_/ ?<'Hl :. ?&nHSNO (_N^Nu( @uP vX ۉ?   1  ^ D1 fXpNV(n HTNX(n -l:/ U?,NT(_JNq/ ?<'Hl ?.HlNO (_/ /.BgB'HnNO (_N^Nux( xT &#x H"y% b'y:NV(n, g / &nHSBgN\(_N^Nu .NUnACCXModula-2/ST (c) Copyright Modula 2 Software Ltd. 1985,1986. (c) Copyright TDI Software Inc. 1985,1986. NVN^Nu>NV?<HyN\?<;HyN\?<*HyBN\N^Nu& H  ". D 4  _b ШNYN#NurNuNu6NVN^NuoNuHNsNu Ns4!Ns;NuѽLNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^Nux dNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^Nu \NVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu > ./,/[JjDJ[jD |NJgDJgD/Nuv. $ vh NVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^Nu{ |  |oNf  NVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^Nus t;NVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^Nup BNVH . $j ļfB".$j ļfBLN^Nu "NVH .$ļfBJLN^Nu`DNVH .g*2<bH@|bQAU-@LN^NuVNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^Nu <NVpNN^Nuc& c;NVpNN^Nu N  cNVpNN^Nuw NVpNN^Nua aNVpNN^Nu  NVpNN^Nu  NVpNN^Nu`% `:NVpNN^Nu S  h6NI<* .E OBBB!<B*H$C! .HN01C4GGEMAESbase1(eeNNVI689n9n 9n 9n <I* "NB3b=yN^Nu2;2I.2:2>3D3SNV3 @3BN^Nu 2 NV3 @3 B3DN^Nu0@Xx(NV3@3 B3 D3FN^Nu  1HNV3@3B3D3F3H3 J3 L3NN^NuYYYZ Z;(Zk0Z8Z@[+NV(n 8d(n8fN^Nu   0NV(n8d(n8f(n 8h(n8jN^Nu{ {{{(|, xNNVIB BBBBIG6* (G* )EG@* )EGb* )E Gr* )EG~* )EN^N>,>=>X >l&>,>6? B?VN?Z@f@|r@A4GGEMDOS0jl3NV0.?NA*-E N^Nu4NV0.?0. ?NA*-E N^Nu %5(NV ./ . /0.?0.?NA*-EN^Nu76.NV ./ . / ./0.?0.?NA*-EN^Nut7NV ./0. ?NA*-EN^Nu8"NV0.? . /0.?NA*-EN^Nu9(NV0.?0. ? . /0.?NA*-EN^NuNVBBgNT-_N^Nu 3,NVB?<NT*(nN^Num 3n 2NVB?<NT-_*.(n *.x(nN^Nu 3C"NVB?<z.?NX-_N^NuU 4NVB?<NT*(nN^Nut@ 3t"NVB?<z.?NX-_N^Nu 4"NVB?<z.?NX-_N^Nu 4^HNVJ.fB?<?<NX*(n N(n B?<BgNX*EN^NuJT 4J 84K  NVB?<NT*(nN^Nu 3  2NVB?<NT-_*.(n *.x(nN^Nu< 3 "NVB?< (n* /N\-_N^Nu 7 "NVB?< (n* /N\-_N^NuGp 7G,NVB?< NTJf B.N^NuN |N^NuT 3T NVB?<?. NX(n(N^Nu 4,NVB?<NTJf B.N^NuN |N^Nu 3L,NVB?<NTJf B.N^NuN |N^Nu1 3{,NVB?<NTJf B.N^NuN |N^Nu!b 3!,NVB?<NTJf B.N^NuN |N^Nu. 3.NVB?<NT*(n8N^Nuʜ 3NVB?</.N\-_N^Nu@ 7@jNVB?<*NT*(n8N^Nu: 3܄NVB?<+?.NX-_N^Nu] 4^NVB?<,NT*(n8N^Nu 36NVB?<-?.NX-_N^Nu{ 4{NVB?</NT(n(N^Nuݠ 3NVB?<0NT*(n8N^Nuy 3z"NVB?<1/. ?.NP-_N^Nu" 8"&NVB?<6(n * /?.NP-_N^Nu 844NVB?<9(n* /N\Jf|N^NuN B.N^Nu 7?4NVB?<:(n* /N\Jf|N^NuN B.N^NuK 7LL 4NVB?<;(n* /N\Jf|N^NuN B.N^Nu 7[!*NVB?<<(n* /?. NP*(n8N^Nu< 8?.NXJf| N^NuN B. N^Nu 4D$,NVB?<??.(n //.NO (n (N^Nu 5 %,NVB?<@?.(n //.NO (n (N^Nu-| 5-&4NVB?<A(n* /N\Jf|N^NuN B.N^Nuě 7'.NVB?<B/.?.z. ?NO (n(N^Nud 9dx(`NVJ. f*B?<C(n* /?<(n?NO -_N*B?<C(n* /Bg(n?NO *(n8N^Nu $9 L9)&NVB?<G(n * /?.NP-_N^Nu 8* NVB?<H/. N\(n(N^Nu38 73+0NVB?<I/.N\Jf| N^NuN B. N^Nux 7xU,8NVB?<JBg/. /.NO Jf|N^NuN B.N^Nu! 5"C-@NVB?<Kz.?(n* /(n* /(n * /NO*(n8N^Nu ,6N.,NVB?<LNTJf| N^NuN B. N^Nu 3/*NVB?<N(n* /?. NP*(n8N^Nux 8y0NVB?<ONT*(n8N^Nu# 3m1.NVB?<VBg(n* /(n* /NO -_N^Nu 52XNVJ.f&B?<WI * /?.BgNO -_N&B?<WI * /?.?<NO -_N^Nuc 9ce H9c NNVN^N 4GGEMVDIbase'bDfNVps"9,NBN^Nu7P7`0NV333 3 3 N^Nu&&&' '/('_ NNVI* #I* # I* #$I* #(I* #0#4# 8#$<#(@I0* #,N^N'8S gƃƥ"(076u>ǻDL[RȵV\w`fMjʿp7t˳z5̿Xj4GGEMXRH,VNhYN`NsN^NuԾr:NVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=y:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnI,GzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^Nuy8  OAbrpNGNu rpNG9}nNV-|*.f *. drpNG-n nBBB!.B"H$!.!.@ .PPB! 4"n "N^Nu 5NFNu 4F'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsNENux!~F'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNs"lF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB!<B*H$C! ` <L?NAN`WNs0B 40*x b "T@NGNuNNuLNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuF dNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuV \NVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu > ./,/[JjDJ[jD |NJgDJgD/NuD? $ Dy NVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^NuI J  |oNw  ’NVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^NuA BLNVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^Nu{ |BNVH . $j ļfB".$j ļfBLN^Nu"NVH .$ļfBJLN^NuwqDNVH .g*2<bH@|bQAU-@LN^NuVNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^Nu <%NVpNN^Nu17 1LNVpNN^Nu_ tNVpNN^Nu NVpNN^Nu/ /NVpNN^Nu NVpNN^Nu NVpNN^Nu.6 .KNVpNN^Nud y#F'pNNsT U$F'pNNs` я%F'pNNsM N&F'pNNsv ʥ'F'pNNsG G0(F'pNNsÌ û)F'pNNs@ @F*NVN^Nu++NV/??<NMN^NuN O h*# ( ШШ//??<JNA *< rN*< rN*< rN*< rN*< rN*< r'N*< r&N*< r%N#pNG?<1Hy2N\?<BHyeN\?<"HyN\N :$Y D+ J&P T+ Z'h d+ j( t+K z) + "n +8 + ! + E) *0& *?G *r4GInOut1L[Streams1= TextIO1KGc0Enter 'in' Filename > Enter 'out' Filename > Pp(NNV?<HyN\?<'Hn:. ?(nHTNO Hy?<'HnB'HyNOJymz`zJ9gN^Nu!K 5 40>`N T^~lr l| XpNNVHy:. ?(nHTB'HyNOJymz`zJ9gN^Nu   0" Z ( 2 @ F `P p(NNV?<HyN\?<'Hn:. ?(nHTNO Hy ?<'Hn<HyNOJymz`zJ9gN^NuAb 5 40[>P V]`n;t~=ZpNNVHy :. ?(nHT<HyNOJymz`zJ9gN^Nuk$ *4BBHR6NpNNVJ9g6HyHyNPJymz`zJ9gB9N^Nu$Y$z$$$ "%*%58%u>%F& NpNNVJ9g6Hy HyNPJymz`zJ9gB9N^Nu9ZpŎŲ "*8U>ƛFrpNNVJ9gLB'HyNXJfHy(nHTNPB'HyNXJfz`zN(nHTNXN^Nu !*S 6@ F[X hJlpNNVJ9g@Hy:. ?(nHTNO B'HyNXJfz`zN:. ?(nHTN\N^Nulllm (m\4m :mLnD b n ^pNNVJ9g8Hy(nHTNPB'HyNXJfz`zN(nHTNXN^Nu9ZpԎ "#, 2fDղ T$9 ^pNNVJ9g8Hy(nHTNPB'HyNXJfz`zN(nHTNXN^Nu;;;; "!> H>n lpNNVJ9g@Hy :. ?(nHTNO B'Hy NXJfz`zN:. ?(nHTN\N^Nu&D (4 :Lh bbpNNVJ9g:Hy ?. ?<NPB'Hy NXJfz`zN?. ?<NXN^Nu $ T. 4F* X bpNNVJ9g:Hy ?. ?<NPB'Hy NXJfz`zN?. ?<NXN^Nu $.E 4F XTbpNNVJ9g:Hy ?. ?<NPB'Hy NXJfz`zN?. ?<NXN^Nu":"["q" $ ".# 4#WF# X$bpNNVJ9g:Hy ?. ?<NPB'Hy NXJfz`zN?. ?<NXN^Nu"8V $. 4 Fn X&NpNNVB9B9N^N%%%6%Q %x%% %%4GInOutuqConversionsu=VFileSystemuLsTerminalusGEMDOSu} NRN>CON:PRN:AUX:Enter 'in' filename > Enter 'out' filename > YbDpNNVBn:.n b:.K (nJ4PgRn`=nN^NupN@ZxpNNV:. EdB.N^NuBn ncN::.K(n8.I &n4P3@gB.N^Nu ndRn`|N^NupN**t+qpNNV:.?(nHTN\U:. ?(nHTN\=_U:.?(nHTN\=_JnRDJ9g`N:.SEK(n4P .f`N~:.nnb:. Ecz`zJ9gPBnJnc,:.K (n8.I&nP@RnRnSn`:.nb:.K(nB4PN^Nu  "&0 : ThjnfBp,NNVBn:.ԺnbH:.K(nJ4Pg6:.K(n4P ae zb_:.K)IPRn`:.K)IB4PU?<)Hn?<HyNO Jg(nB(n NU?<)Hn?<HyNO Jg((n. WD(n NHU?<)Hn?<Hy NO Jg(n(n N (nN^NuVw ^4  J&xp NNVN?<HyN\?<Hn:. ?(nHTNO NJ9g`N?<HnHyHyB'NO9 fTHy?<HnB'NO J9WDJ9f B9NHyNXN^Nu-- -. .N :. D/J/S`/f0) n0x181 2j334v50567 8npNNVN:. ?(nHTHyHyB'NO9 fXHy:. ?(nHTB'NO J9WDJ9f B9NHyNXN^Nuo/oP on o&o .p8pSDp Xq bqslqrravr|scst u-p NNVN?<Hy&N\?<Hn:. ?(nHTNO NJ9g`N?<HnHyHy<NO9 fRHyD?<Hn<NO J9DWDJ9fB9HyDNXN^NuFaF FF G :G_ DGJH `HrfH pIqzIJ K+KLMCNNOPc QHpNNVN:. ?(nHTHyHy<NO9 fVHyD:. ?(nHT<NO J9DWDJ9fB9HyDNXN^Nu 2 Z& 0:Fi \fEpv;zEk ZpNNVJ9g.9 fHyNXJ9WDN B9B9N^Nu;\r" (0+:mFLRiZpNNVJ9g.9 fHyDNXJ9DWDN B9B9N^Nuss:sPsn"s (s0t :tKFtLtRuGpNNVJ9g\9 fPJ9 g B9N^NuHy(nHTNPJ9f(n  f`J9WDNnz9 NNB9NH(nHTNXN.(nHTNXNN0 pNN^Nu"F*x4 @Hd^h:t|M B pNNVJ9g9 f`NBnHyNX9  fJ9gHyNX`:.n bsn DsNt bp$NNV?<HnN\J9g:?<Hn?< B'/<HnHyNOJ9g *.(n8N^Nu A j> D*N pNNVJ9gl9 f`.  f0HyD< N\J9DfHyD< N\NHyD.N\J9DWDN.  f`Nz9 Nj< NT< NTNJNN8< NT< NTNN0B pNNxz9 NX.NTND.NTN,.NTNN$< pNN^NuF'FHF^F|,F 6G>GMFG PH \Hp fHnImxIJK@ L LM NOy Px QRS T(V$ >WzHX VZ4`[ n]!x^`K pNNV< NTN^Nu  3 ^pNNVBnJ9g::.n b0:.K (nJ4Pg:.K (n4PNTRn`N^Nu#E N lpNNVU:.?(n HTN\:._=EJ9gJno< NTSn`:.?(n HTN\N^Nu,, -10-i6- H . b .Vp*NNV:. JElDEH/?< Jn ]D?<'HnHnNO?<'Hn?.NPN^Nu 6 LHp*NNVz:. /?< B'?<'HnHnNO?<'Hn?.NPN^Nu6W ( >p,NNVz:. /?<B'?<'HnHnNOU?<'HnN\=_:.K'IBP:.REK'IB4P?<'Hn?.NPN^Nu!Y!z (! <" x"p,NNVz:. /?<B'?<'HnHnNOU?<'HnN\=_:.K'IHP:.REK'IB4P?<'Hn?.NPN^Nu@ (w < xb2NpNNVB9B9B9B9N^N 9 `| &,1C4GKeyboardu\\NVp ?NA*JVDEN^NuqNVp?NA*(nN^Nut NNc~cccc` l<N `[3][Modula-2 Run Time Error : | | #][OK]Modula-2/ST (c) Copyright TDI Software Ltd. 1985. The team : Chris 'how tacky' Hall, Paul 'where's the cursor' Curtis, and Phil 'boot you @#$%' Camp !!. _b ШNYN"pNGNuNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n I t8B,)n9n)n )n)n)n|.n 9 p/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=y t:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnI2GzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^Nu OAbrpNGNurpNGNV-|.*.f *. drpNG-n nBBB!.B"H$!.!.@ .PPB! 4"n "N^NuNFNuF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsNENuF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB!<B*H$C! ` <L?NAN`WNs*x b "T@NGNuNNuNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu ./,/[JjDJ[jD |*NJgDJgD/NuNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^Nu |(oNNVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^NuNVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^NuNVH . $j ļfB".$j ļfBLN^NuNVH .$ļfBJLN^NuNVH .g*2<bH@|bQAU-@LN^NuNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNVN^NuNV/??<NMN^NuNqNqNq O h*# l ( ШШ//??<JNA *< rN *< rN *< rN *< rN *<  rN *<\ r'N *< r&N *< r%N #" ppNG?<1Hy8N \?<BHykN \?<"HyN \N fNVp ?NA*JVDEN^NuNVp?NA*(nN^NuN .Nu<d*nD.X"0*          6`xN6[3][Modula-2 Run Time Error : | | #][OK]Modula-2/ST (c) Copyright TDI Software Ltd. 1985. The team : Chris 'how tacky' Hall, Paul 'where's the cursor' Curtis, and Phil 'boot you @#$%' Camp !!. _b ШNYN"pNGNuNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n I8B,)n9n)n )n)n)n|.n 9/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=y:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnI2GzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^Nu OAbrpNGNurpNGNV-|*.f *. drpNG-n nBBB!.B"H$!.!.@ .PPB! 4"n "N^NuNFNuF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsNENuF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB!<B*H$C! ` <L?NAN`WNs*x b "T@NGNuNNuNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu |Jj DaD NuJ jD ND DNuNNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^Nu |oNNVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^NuNVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^NuNVH . $j ļfB".$j ļfBLN^NuNVH .$ļfBJLN^NuNVH .g*2<bH@|bQAU-@LN^NuNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNVN^NuNV/??<NMN^NuNqNqNq O h*# ( ШШ//??<JNA *< z rN *< rN *< rN *< rN *< rN *<$ r'N *<n r&N *< r%N #pNG?<1Hy8N \?<BHykN \?<"HyN \NNV0.?NA*-E N^NuNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV ./ . / ./0.?0.?NA*-EN^NuNV ./0. ?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNV0.?0. ? . /0.?NA*-EN^NuNVBBgN T-_N^NuNVB?<N T*(nN^NuNVB?<N T-_*.(n *.x(nN^NuNVB?<z.?N X-_N^NuNVB?<N T*(nN^NuNVB?<z.?N X-_N^NuNVB?<z.?N X-_N^NuNVJ.fB?<?<N X*(n N(n B?<BgN X*EN^NuNVB?<N T*(nN^NuNVB?<N T-_*.(n *.x(nN^NuNVB?<N T*(nN^NuNVB?< (n* /N r\-_N^NuNVB?< (n* /N r\-_N^NuNVB?< N TJf B.N^NuN |N^NuNVB?<?. N X(n(N^NuNVB?<N TJf B.N^NuN |N^NuNVB?<N TJf B.N^NuN |N^NuNVB?<N TJf B.N^NuN |N^NuNVB?<N TJf B.N^NuN |N^NuNVB?<N T*(n8N^NuNVB?</.N r\-_N^NuNVB?<*N T*(n8N^NuNVB?<+?.N X-_N^NuNVB?<,N T*(n8N^NuNVB?<-?.N X-_N^NuNVB?</N T(n(N^NuNVB?<0N T*(n8N^NuNVB?<1/. ?.N P-_N^NuNVB?<6(n * /?.N P-_N^NuNVB?<9(n* /N r\Jf|N^NuN B.N^NuNVB?<:(n* /N r\Jf|N^NuN B.N^NuNVB?<;(n* /N r\Jf|N^NuN B.N^NuNVB?<<(n* /?. N P*(n8N^NuNVB?<=(n* /?. N P*(n8N^NuNVB?<>?.N XJf| N^NuN B. N^NuNVB?<??.(n //.N O (n (N^NuNVB?<@?.(n //.N O (n (N^NuNVB?<A(n* /N r\Jf|N^NuN B.N^NuNVB?<B/.?.z. ?N O (n(N^NuNVJ. f*B?<C(n* /?<(n?N O -_N*B?<C(n* /Bg(n?N O *(n8N^NuNVB?<G(n * /?.N P-_N^NuNVB?<H/. N r\(n(N^NuNVB?<I/.N r\Jf| N^NuN B. N^NuNVB?<JBg/. /.N O Jf|N^NuN B.N^NuNVB?<Kz.?(n* /(n* /(n * /N DO*(n8N^NuNVB?<LN TJf| N^NuN B. N^NuNVB?<N(n* /?. N P*(n8N^NuNVB?<ON T*(n8N^NuNVB?<VBg(n* /(n* /N O -_N^NuNVJ.f&B?<WI * /?.BgN O -_N&B?<WI * /?.?<N O -_N^NuN NVN^NlNVIR89n9n 9n 9n <I* "NB3~=yN^NuNV3 \3^N^NuNV3 \3 ^3`N^NuNV3\3 ^3 `3bN^NuNV3\3^3`3b3d3 f3 h3jN^NuNV(n 8(n8N^NuNV(n8(n8(n 8(n8N^NuNNVI4B BBBBIGR* (G4* )EG\* )EG~* )E G* )EG* )EN^NNV3\# Bg?<2?<?<?<BgN$O =_N^NuNV?.?.?.?.?.?.?. ?. NO3lBg?<3?< ?<BgBgN$O 3N^NuNV3\(n* #Bg?<4?<?<?<BgN$O =_N^NuNV3^Bg?<5?<?<BgBgN$O =_ N^NuNV#Bg?<6Bg?<?<BgN$O 3(nHT(nHT(n HT(nHTN6ON^NuNV## Bg?<ZBg?<?<BgN$O 3(n8N^NuNfNVN^NNVBg?< Bg?<BgBgN$O =_N^NuNV?.?. NrX#Bg?< ?<?<?<BgN$O 3N^NuNV?.?. NrX#Bg?< ?<?<?<BgN$O 3N^NuNV(n* #Bg?< Bg?<?<BgN$O =_N^NuNV?. ?.NrX# Bg?<?<?<?<BgN$O 3N^NuNV3\# Bg?<?<?<?<BgN$O 3N^NuNVBg?<Bg?<BgBgN$O 3N^NuNzNVN^NpNVps"9NBN^NuNV333 3 3N^NuNNVI* #I* #I* #I* #I* #####I* #N^NxNV?<BgBgBg(n ?N:O By y oN4:9E(n89DG7P@ y lRy`N((n 8By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`N^NuNV?<BgBgBg?.N:O N(N^NuNV?<dBg?< Bg(n ?N:O By y oN4:9E(n89DG7P@ y lRy`N(By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`(n 8N^NuNV?<eBgBgBg?.N:O N(N^NuNV?<BgBgBg?.N:O N(N^NuNV?<BgBgBg?.N:O N(N^NuNV?<wBg?<Bg?. N:O N(NV?<xBg?<Bg?. N:O 3N(N^NuNV?<?<?<Bg?.N:O 3 By yoN4:9E(n89DG7P@ ylRy`N(N^NuNjNVN^NZpNNV.  e. ~b| N^NuN B. N^NupNpNNVJ.e . c . f| N^NuN B. N^NupNpNNVB'.NTJfB'.NTJg| N^NuN B. N^NupNNrpNNVN^N%pNNVB9N^NupNNVBg:. ?(nHTN#\=_:.RE8.Ec :.RE=EBn:.SE?0.WoN&:.(n8.&nP@0.WlRn`T:.nb:.(nPN^NupNNVBg:.?(nHTN#\=_Bg:.?(n HTN#\=_:.nnd :.nd`N:.n=E:.n?0ncN*:.n(n 8.&n P@0ndSn`TBn:.SE?0.WcN*:.(n8.n&n P@0.WdRn`TN^NupNNVBg:.?(n HTN#\=_:. ndF=n :.n?0.WcN*:.n(n 8.&n P@0.WdRn`TN^NupNNVBg:.?(nHTN#\=_:.ndh:.n d^:.nnc:.nSE=EBn:.SE8.Eb :.n(n8.&nP@Rn`:.(nPN^NupNNVBg:.?(nHTN#\=_Bg:.?(nHTN#\=_:.nJEf(nN:. TE8.nEd`N:. ?(nHT:.?(nHTNO =n:.nSE?0.WcN*:.n(n8.&nP@0.WdRn`T:.n(nPN^NupNNVBn:. ?0.WcN0:.(n4P9f =nTN^Nu0.WdRn`T:. RE=EN^NupNNVBg:.?(nHTN#\=_Bg:. ?(nHTN#\=_JngJng`N:.nd:.SE=EN :.SE=EBn:.?0.WcN^:.(n8.&n3@4Pg4:.(n8.&n3@4Pd|TN^NuN B.TN^Nu0.WdRn`T:.nd|N^NuN":.nc B.N^NuN |N^NupNNVBg:.?(nHTN#\=_Bg:.?(nHTN#\=_JngJng:. nnc(n8B.N^Nu:.n=EBn:. n(n8.&n3@4PgN$Rn:.nf(n8 |N^Nu`Rn :. nc(n8B.N^Nu`pNNVN^NupNNVyN^NuNTpNNVNnN^N%NVN^NuN%NV#%N^N'zCompilationLinkingEditingProgram[1][Error(s) occured during ][OK]NVz(9gB'/9NpXJNqN^NuNVZN&2?9N4TJ.g`Nz:. NRI%Gz WNJI%GzWN4I%GzWNN "8I&GzW?<Hy&?<PHn?<PHnZN"$O?<PHnZ?<Hy&+?<PHnN"$OBg?<?<PHnNtP=_NB'BgNTJf`N^NuN%NVByBz#BgN3N^N*L[3][Modula-2/ST Heap overflow][OK][3][Modula-2/ST Unable to allocate heap][OK]NV(y:.gRn-l &n-S*. g2&n:+nf$n $$n$)n N^Nu-n-S`z:.(c&n &z:.۬N^Nu&n:+nc>:+n7Ez:+ڮ$n $:+ Ed$n$)S N)n N^Nu-n-S*. g`G'Ez"W/ Bg?<?<2HnNtP0(_?=_/ B'BgNT(_Jf`N^NuNV(y:.gRn&n -S:. Ee&n$l&7n&l&z&n &N^NuNVJgN^Nu-n/.HnNPPJf>I'Gz,WBg?<?<2HnNtP=_B'BgNTJf`###(y*.xڄ)E*.ڮ()l)l *,\)E&l& BkN^NuN'tNVB/<N)XN^N-NV?.?.?.?.NPBg?<F?<?<BgBgN$O 3(n HT(nHTNPN^NuNV?.?.?.?.?.?.?.?.NOBg?<G?<?<BgBgN$O 3(n HT(nHTNPN^NuNV?.?.?.?. NP3 d3fBg?<H?<?<BgBgN$O 3N^NuNV?.?.?.?.?.?. ?. ?.NOBg?<I?<?<BgBgN$O 3N^NuNV?.?.?.?.?.?. ?. ?.NOBg?<J?<?<BgBgN$O 3N^NuNVBg?. ?. ?.NP#Bg?<K?<?<?<BgN$O =_N^NuNV?. ?. NrX3`#Bg?<L?<?<?<BgN$O =_N^NuNVBg?<MBg?<BgBgN$O =_(nHT(nHT(n HT(nHTN6O=nN^NuNV3 \#Bg?<N?<?<?<BgN$O 3N^NuNVBg?<OBg?<BgBgN$O 3(nHT(nHT(n HT(nHTN6ON^NuN*FNVN^N0$NV?.?.?. ?. NP3dBg?<d?<?<BgBgN$O =_N^NuNV?.?.?. ?. NP3dBg?<e?<?<BgBgN$O 3N^NuNV3\Bg?<f?<?<BgBgN$O 3N^NuNV3\Bg?<g?<?<BgBgN$O 3N^NuNV?.?.NrXBg?<h?<?<BgBgN$O 3(nHT(nHT(n HT(nHTN6ON^NuNV?.?.?.?. NP3 d3fBg?<i?<?<BgBgN$O 3N^NuNV?. ?.NrXBg?<j?<?<BgBgN$O =_ N^NuNV3\Bg?<k?<?<BgBgN$O 3N^NuNV?."?. ?.?.NP3d3fBg?<l?<?<BgBgN$O 3(nHT(nHT(n HT(nHTN6ON^NuN-NVN^N5NV3?< Bg?<Bg?. N:O N(=y N^NuNV nCpQ3 333?<Bg?<Bg?.N:O N(N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<qBg?<Bg?. N:O N(N^NuNV3By?<?<BgBg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3 3?<lBg?<Bg?. N:O N(N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNVBy3?<?<BgBg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNVBy3?< ?<BgBg?.N:O N((n8(n8(n 8(n8N^NuNV3?<kBg?<Bg?.N:O N((n8(n8(n 8(n8=yN^NuNV3?< Bg?<Bg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<jBg?<Bg?. N:O N(=y N^NuNV33?<'Bg?<Bg?.N:O N((n 8(n8N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<Bg?<Bg?. N:O N(=y N^NuNV3?<hBg?<Bg?. N:O N(=y N^NuNV?<pBg:.?Bg?.N:O (n * #N(#N^NuN0NVN^N;NV?<?.BgBg?.N:O (n* #N(#N^NuNV?<?.BgBg?.N:O (n* #N(#N^NuNVBy3 :9y n:9(nJ4PfN,:9(nx4P:9EI9PRy`?<?<?9Bg?.N:O 33N(N^NuNV?< ?.BgBg?.N:O (n* #N(#N^NuNVBy yoN4:9E(n89DG7P@ ylRy`?< ?<:.?Bg?.N:O 3333(n* #N(#N^NuNV?<g?<?<Bg?.N:O 33 3 N(N^NuNV?<r?<BgBg?. N:O (n* #N(#N^NuNV?< ?<Bg?<?. N:O (n* #N(#N^NuNV?< ?<?<?<?.N:O 3 333ByByByBy3 ByN(N^NuNV?< ?<?<?<?.N:O 3 333ByByByBy3 ByN(N^NuNV?< ?<Bg?<?.N:O 3 3 ByBy3ByN(N^NuNV?< ?<?<?<?.N:O 3 33333 N(N^NuNV?< ?<?<?<?.N:O 3 33333 N(N^NuNV?< ?<Bg?<?.N:O 33 3 3N(N^NuNV?< ?<Bg?<?. N:O (n* #N(#N^NuNV?< ?<Bg?< ?. N:O (n* #N(#N^NuNV3 3333 ByBy3 :9y n:9(nJ4PfN.:9(nx4P:9TEEI9PRy`?< ?<zy??< ?.N:O N(N^NuN5NVN^NBTDI Modula-2/STNVnB.?</#AN^NT[1][ The following file could | not be found : | ][Enter New|Continue] [3][ An IO error has occured | whilst writingreading the disk. ][OK][3][ The disk does not have | enough room to write | any more information.][OK] TMPMODREFSYMLNKLSTPRGMAPCORERDERM FlushLookupFileA:\*. : CreateFileA:\*. : CloseDeleteSetPosResetSetLoadReadCharWriteCharReadWordWriteWordModifyWordEndFileNVn:. Ef`NIBG6z1W?<Hn6:.?(n HT?<HnnN"$O?<Hnn?<HyB?<Hn6N"$OBg?<?<Hn6NtP=_:. Egz`zEN^NuNBg?.NT=_|N^NuNVnICG6z&WJ.g(?<Hn6?<HyCRn@`Rn>:.> EIB4P?<RNN&N^NuNV>Jn g"?<zWHnNXzAnE>?<?.NG|P?<* /I|* /HnN6O =y(yNJngJnf (nBN^NuBn:. EJ4Pg:.I>4P \f=nRn`Rn:. EB4P?<?<R(nN^NuNVN^NuNV(nBN^NuNVz(n (g<(n HTNI`XB'&n (S?NT(n(n HT?<PN^NuNV(n /?.<NL>PN^NuNV&n(S$n&R*+4*ez`zE N^NuNBNVN^NgpNNVByF3H/9F?.<< B':. ?(nHTNbXON^NupNNVByF:.JElDE3H/9F?.<< Jnlz`z:. ?(nHTNbXON^NupNNV:. nm=n N^NuN =n N^NupNp|NNVzK (nBB./.N 0Xl|/.-_NB.Jnm8/./R?< HyrN{\?.Bg?<HnNTO ?<HnN<\N>R?<<N&ZXN^NuNV?< HyrN{\?.Bg?<HnNTO ?<HnN<\:. ?(nHTN<\N>R?<<N&ZXN^NuNV n CpQ nCpQ|BnJ.gP:. EdF:.IJ4Pg8:.IJ4Pg*:.I8.G3@4Pfz`zERn`J.g.:. Ed$:.I8.G3@4Pfz`zEnN^NuNV(n8N^NuNV n CpQ nCpQ:. Eg :. Ef |N^Nu:.nf:.nf:.nfz`zEN^NuNV:9 Ef&3 :. E? Efz`z(nN:. yfz`z(nN^NuNV:. E4fz`z(nN^NuNV3N^NuNV:9)SEBIjIP":9)RE8BlN^NuNV:9)SEBIjIP":.RE8,EdN:9) Ee/ ?<?< HyrNsP(_RlRy):9)SE GGPBSBk`N^NuNV(n:9)y)e(nB?<?<HyrNsPN^NuNVSy)HnNvXJ.fpNN^NuNV nCpQ nCpQ nCpQ(nB(n B(n8(nJf(n:y)b`N(n:SEBIjIP/ B'HnHTNt$P(_Jg`N&n/ B'HnHlNtP(_Jg &n Np/ ?<HyrN{\(_/ ?<HnN<\(_/ ?<HyrN<\(_/ ?<HnN<\(_/ N>R(_/ HlNtX(_N&nRSN(nJf(n8(nJf(n:y)e`Nx(n:SEBIjIP/ B'HnHTNt$P(_Jg`N6&n/ B'HnHlNtP(_Jg &n Np/ ?<HyrN{\(_/ ?<HnN<\(_/ ?<HysN<\(_/ ?<HnN<\(_/ N>R(_/ HlNtX(_/ ?<6HysN<\(_/ N>R(_=y)&n:?0.ȰWcNT/ ?<HysQN<\(_/ :.SEBGj?<HsPN<\(_/ N>R(_0.ȰWdRn`TN&nSSNpN^NuNV:9) Ebz`z?<NsTXRy):9)SEBIj89)SDBGjIPG@z 6QRy)N^NuNrnNVNuBy)By)3)N^N4 ---- files Error converting addressMaster Filefiles linked :Base File : MODULA2BASE linking absolute system : memory-start address > data-start address > files linked :GEMXGEMXMap FileLoad FileCreating load fileCreating map fileMODULA2WORKCreating work fileend linkageLinkage terminated - no load file created.NV?<HyzpN<\:. ?(nHTN<\N^NuNVz(. fz`z?.NsTXN^NuNV nCp'Q?<'Hn:. ?(nHTN|O N^NuNV*.SE(I*ZHtP<:.?(n HTN|O N^NuNVBn:.n b4:.nb*:.(nJ4Pg:.(n8.&nP@Rn`:.n b :.(nB4PN^NuNVRy9:99 Edc?<d?<HyzwNsP:.?(n HT:99SE(I*Z?<'HtPN|O z:99(n(N^NuNV*.JEc*.y9bz`z?<dNsTX*.SE(I*Z?<'HtP:.?(n HTN|O N^NuNVBy9N^NuNV:.?(n HT?<PHnN=O BnBn:. EPcN:.I4P ae zb_DRn. 0e*. 9b :. Ed:.IPRnN:. Ae*. Fb :. Ed:.IPRnNNN`. Hf:.ItP.  gJ.g .  fN$N>R?<HyzN<\N>RNJnc`N(nBBn(n*(n(:.I4P 9b(z08.Iv4@E(n֔(n(N*zA8.Iv4@C E(n֔(n(Rn:.ngNN^NuNV/.?<?<HnN\DO ?<HnN<\N^NuNV(nBB9*UB9*OB9*R*PB9*QB9*NB9*SB9*TN^NuNVIzGz W/9*6?<N{\?<(HnBgHyz?<Hy*6<B'?<'Hn(n HTNLO (n Jg`HnNXJ.gHy*6HnNQP(n B(n Jg?<'Hn(nHTN|O J9*UgNQ9N^NuNVJ99g?< HyzN<\N>RB99/9*6?<N{\:.?(n HT:.?(n HT?<Hy*69*NB'?<'Hn(nHTNLO (nJg?<'Hn(nHTN|O N^NuNV|IzG|z WIzGz W/9*:?<N{\?<(Hn|?<(HnBgHy*:B'B'?<(Hn(n HTNLO (n Jg>?<(Hn|N<\?<(HnN<\N>R?<(Hn(nHTN|O N^NuNVJ9*QgV?<HyzN<\N>R(n B?<Hyz(n HTN}O ?<Hy{(nHTN}O N(n B(nBN^NuNVI{GzW?<'Hn/.N}TO /9*6?<N{\?<(Hn?<'HnBgHy*6B'B'?<'HnHnNLO .?<eNsTXN^NuNVJ99g?< Hy{N<\N>RB99I{,GzW/9*>?<N{\?<(Hn?<Hy{1?<Hy*>9*NB'?<'Hn(n HTNLO (n Jg?<'Hn(nHTN|O N^NuNVRI{6GzWI{7G~zWI{@GTz W?<'Hn/.N}TO /9*B?<N{\?<(HnT?<'Hn?<Hy*B9*NB'?<HnRHnNOtO J.f?<Hy{JN{\J9*Rg^/9*F?<N{\?<(Hn~?<'Hn?< Hy*FB'B'?<HnRHnNOtO J.f?<Hy{]N{\?<(Hn?< Hy{o?<Hy*JB'B'?<HnRHnNOtO J.f?<Hy{{N{\N^NuNV*. *VgHn HnNR2PN^NuNV/9*6?<N{\/9*:?<N{\/9*J.N&\J.gBHy*BHnNQPJ9*RgHy*FHnNQP?< Hy{N<\N@/9*B.N&\J9*Rg/9*F.N&\?<)Hy{N<\N>R?<J.fz`zNrVXN^NuNzDNVN}z#*V#*V*6#*V*:#*V*F#*V*>#*V*B#*V*JN^Ncode incompatiblewrong formatwrong module: version conflict on linking main modulecode incompatible withwrong format onno linker table in base fileNV*. fz`zEN^NuNV#9By:HnNXHnNX:.E?(nHTNu\z8.EfB(nJg::.M?(nHTNud\(nJf?<HyN{\N>RN (nB?< HyN{\N>R(nJg`N(nHTNX(n?<NsTXHnN XJ.fz`z?<NsTX(nHTNX(n HTNX(nHTNX(n?<NsTXNNN^NuNVHn/9*6Hn(nHTNDO(nJg`N:9)SEBIjIP/ B'HTHnNt$P(_Jf>&nB/ ?< HyN{\(_/ ?<HnN<\(_/ N>R(_Nn/ B'HlHnNtP(_JfN&nB/ ?<HyN{\(_/ ?<HTN<\(_/ ?<HyN<\(_/ N>R(_(nJfNN^NuNV=y:By:-y9#*:9Hy9HxNRP<NnTHnNX:. E4fz`z?<NsTXI** -E=|:.?0.WcN(SWdBW(nHTNXT0.WdTn`T(nHTNX:9* Efz`z?<NsTX#** B* 3* *Hy9/9**NRP|<NnTHnNXJng`NHnNX:.M Ef$:.E?(nHTNud\(nTN(nBHnNXHnNX(nJg:.ne :. E!f`Nz:.B3):.nE  3)=|:9)?0.WcN\:.SEBIjIP( -D=| n!cN"(nHTNXT n!dRn`0.WdRn`T=|:9)?0.WcN\:.SE IIP( -D=| ncN"(nHTNXT ndRn`0.WdRn`TN(nB|N B.(nBJ.f?<HyN{\N8(nJf.J.g?<HyN{\N?<Hy N{\(nJg(nHTNvXN?< HyN<\N>RN#93:N^NuNV(nB:9)SEBIjIP/ HnHlNP(_J.g$/ HT/9*6Hl&nHSNDO(_N/ ?<B'N&ZX(_&nJfJ.g`N^NuNV(nB:9)SEBIjIP/ HnHlNP(_J.g / HT/9*>Hl&nHSNDO(_&nJfJ.g`N^NuNVJ9*Pg4By*(nHy* Hy*2NPBy*3*NP(nHTHnN`P(nJg(nHTNX(nJg:9)SEBIj)PRy*N^NuNV(nB:9)SEBIjIP/ Hn?<HTHlNO(_J.g/ &nHSNX(_&nJfJ.g J9*Ng`N^NuNV nCpQ n CpQ|/.NXHn/9*6HnHnNDO.?<NsTXB'HnHnNt$P?<NsTXB'HnHnNtP?<NsTXN^NuNVB'/99/9*6N(PJgHy*6HnNQPNtB'/99/9*>N(PJgHy*>HnNQPNDB'/99/9*:N(PJgHy*:HnNQPNHy9HnNQPN^NuNV#9:3::z#9By:N^NuNV#:93::N^NuNVHy9(nHTNTZP(n:y:N^NuNVHnNXHnNXz:.x8.p؅(n(N^NuNVHnNXz8.Ec z8.Ecz`zE.?<NsTXz:.(nN^NuNVHnNXz.nfz`z?<NsTX3:N^NuNVBn:. EdB./ HnNX(_/ HnB'N\(_9y*NsTX(_/ HnNX(_. f 9n(N9n*=|:.M?0.WcN / HnNX(_0.WdRn`TN2/ HnNX(_/ ?.NvT(_:,"nSE GGPHHSNXL. f6HJnfz`z?<?NsTXLHHnNXL:,"n=EJnf 9n@N:.SE E5PBk=nHHkNXL=|:+M?0.WcN$HHnNXL0.WdRn`TNN/ . ez`z?<@NsTX(_/ HnNX(_N/ . ez`z?<ANsTX(_/ HnNX(_/ HnNX(_N/ . ez`z?<BNsTX(_/ HnNX(_/ HnNX(_/ HnNX(_N@N>2/ Hn.N\(_|/ HnNX(_/ .?<CNsTX(_. gNJl$f/ BgNvT(_/ N(_:9)SEEG: GP=S=|:+?0.WcN6:.SEE=*HrPH:9)SEBEjHrP$nHR$nHjHnHnHnNvOLJ.g$nJg J.gz`z$nNHNvL:9)SEBEjHrP$n"nz"Q$n"nECz2QHHnNXLJ.gHHnNXL$nJg J.gz`z$nXHNyLRnX0.WdRnNTNN^NuNVNv(nHTN:X(nJg`N(nHTN,X3)*J9*PgTNzNv(nHTNX(nJg&HnNX(nJg J.gz`z(nNyN(nJg(nHTNXNyN^NuNVNN^NuNV-y* \#*:9*RE=E:9)?0.WcN:.SEBIjIP)n0z:,(ۮ)n4z:,*ۮ=l@Jng,:.SE GGP'nz:+ۮ=k`:,"SE GGPz:ګ)E80.WdRnNfT#*#*:9*RE=E:9)?0.WcN4:.SEBIjIP)n,z:,&ۮ0.WdRn`T#*N^NuNVHy*B?.NTv\:.yBN^NuNV-n?.NT?.NTN^NuNVHy*B?9BNTv\N^NuNV?<`NTI*/ *,\/NX(_/ *,/NX(_/ *,/NX(_BNXBNXBNXBgNT?NX(_z.e N.-l,4ND-l04N:-l44N0N, ****************** / z:.@ڮ4/?.>Np\(_NNX(_=|<:.>M?0.NO (_N/ HnfNZX(_/ :.hnfy@dz`z?<dNsTX(_:.jSE GGPH/+:.hnf??..9*QNO LN/ HnfNZX(_/ :.hnfy@dz`z?<eNsTX(_/ Hn8NX(_:,"n8=E`/ :.`SE GJsPcz`z?<fNsTX(_:.`SE GGPHz:ګ/:.hnf??..9*QNvO LNJ/ HnfNZX(_/ :.hnfy@dz`z?<gNsTX(_/ Hn8NX(_.e g&/ Hn:NX(_:.:SEEGp=sPbN=|b:.bSEBGj83P"n8=D`/ :.`SE GJsPcz`z?<hNsTX(_:.`SE GGPHz:ګ/:.hnf?:.bSEBEj?2P<:.bSEBEj2P>NvO LNN/ HnfNZX(_/ :.hnfy@dz`z?<iNsTX(_/ :.jl"fz`z?<jNsTX(_J.3g`NB.3JnnfJ:.hnfEGw7NqP:.hnfREEGw7NqP:.hnfTEEGw7NqPN:/ :.nSEBGj/3P8:.hnfRE??..9*QNvO (_=nlnN:.lRE=EbB.2:.by)bBJ.2f<:.bSEBGj=sP"8:.8SE GJsPfRnbN|2`J.2gL:.bSEBGj-sP84*.4\-E4/ /.4:.hnfRE??..9*QNvO (_N:.hnfEGw7NuPNT/ Hn0NX(_N@NR?<Hy8N{\N>R(nBN8:.nSEBIj#P8*3B* Nb/9*NXN^NuNVN^NuNNVN?<HyON<\N>RHyVNXJ9VgV:9)SEBIj/4PNXNHyVNXJ9VgJ9*Rg?9*/9*N.\9VNJTN^Nu<,*nD.X^"0*          :&"$"2&"0,,,,"""&&"448*":,&<6(, 6N 800( (     6                                  6<$  tbv:^,4   T    Z"N B  0   . .   &&    &     "       "                    &        " "  " "      . $ " * L * > 6 2 "   (    44    $ ..$ t          *DP2( <H2($"PF (.08< 0& "B >2&X,P"N4    ,.6,( ,& *   *X   * *   (&(@    R    0lVĆVFR( (          0    "& .bd *$            "   6$  R(<   " `,$ 6,$  " .   f&4r  "    $   $     "                 (      0" $ 4 (0(R ( $  <        ,. ^F        """"*  &&*,D$,2.<&&V"  0 $6 :,"  " @,* ,      & "  " 8" 0.       *&($ $(&p& $(  "&0, "*(,,\   4GLongInOutu4}[Conversionsu=InOutuq\n\r0NVBn:.n b:.(nJ4PgRn`=nN^Nu5dNV?<HnN\J9g:?<Hn?< </<HnHyNOJ9g(n(N^Nu  2 ZB HRVbNV?<HnN\J9g8?<Hn?< B'/,/xNV/. ?<B'?<'HnHnNOU?<'HnN\=_:.IBP:.REIB4P?<'Hn?.NPN^Nu  0C d l<pδxNV/. ?<B'?<'HnHnNOU?<'HnN\=_:.IHP:.REIB4P?<'Hn?.NPN^Nuoj o 0o dpX lppqH NNVN^N!< Yk4GM2ConversionsmASCIIoString̿HpNNVBy3/9?.<< B':. ?(nHTNON^Nueeeeee <f5\pNNVBy:.JElDE3/9?.<< Jnlz`z:. ?(nHTNON^Nu;$g P6pNNV:. nm=n N^NuN =n N^NupNMRMs2Mp|NNVzK (nBB./.NXl|/.-_NB.Jnm8/./pNNV(n Bn:.K(n4P ae zb_DRn.  f`(nBT. 0e . 9b`NBnz0x.E(n: D(n8:.K(n4P ae zb_DRn:.(nTc(n B(nBTB.N (n=T. 0e. 9bN~.  f*:.K(n4P ae zb_DRn`J.g (n B(nBTN^NuFg XpNNV(n By(n3:.?(nHTHx(n HTHyNO(n8N^Num < BvP Rp NNV(n Bn:.K(n4P ae zb_DRn.  f`B.. +g . -fH. -fz`zE:.K(n4P ae zb_DRn.  f`. 0e . 9c . .f`NFB.(nB. .g`N|z.E0/N(n///./[NX-_ N^NupNRs  ߜ"46 pNNV/. NXf BN^NuN/.NXf -|?N^NuB/. NX-_/.N*=E/.*/NPm/./NPl././<@NX-_/./<@NX-_`/./NX-_N&/NX-_/./.NX/.NX/<@NX-_/./.NX/.NX/<@NX-_/./.NX-_ N^NupNe@-TnCu s ,E: NZ h-| ?NpNNV#e#5 #8#;c # #?]#0#3ef#5e@ #8`2$#:(#<,#>~0#?~4#28#0<#@#39D#3H#66uL#[P#8T#5 7X#;s\#Xd`#?ad#h#1 l#p#3t#x#6pob|#ې#91#]#<C##?n#N^N-6-G-b --"-,.6.E@.J.T/;^/h0r0|112523494567u8]9O:K;Q&?0A:BGDCNDXFIbGlI'vJL-MO`Or4GRealInOutuw<InOutuq565,NV/.*./NX*<ڟ-E N^Nu9 uZNVBn-|?Jnc::.g :.EI/4P/.NX-_:.M=ERn`-n N^Nu?(o6DNV(m:, E'c (mB,N$(m&m:+I&mtP(mRlN^NuONV/-+N?<'HnN\J9g`NBnN. -f|NNB.. +fN. 0e . 9c . .f`NZBnBnB. 0fN`. 0eZ. 9bP:. Ed:Y/.NXz.x0D/NNX-_RnNRnN`. .ffN. 0eV. 9bL:. Ed:Y/.NXz.x0D/NNX-_RnSnN`. ae zb_ Ef`NNBn. -f|NNB.. +fN. 0eV. 9bLz.x0D=EN. 0e*. 9b :. x.DE0=EN`NB9+_N^NuJ.g :.nN :.nJ.WDJ9glJnl&/.Y:.DE?NTNX-_N /.Y?.NTNX-_J.g/. (n(N (n(NB9+_N^NuP | "( :J P h$     @ Hėb%h dz |@   Ϋ к 0:+n7Ez:+ڮ$n $:+ Ed$n$)S N)n N^Nu-n-S*. g`J,g z&n &N/ pN(_N^Nu 1(u.*NNV(y:.gRn&n -S:. Ee&n$l&7n&l&z&n &N^Nu NVz(9gB'/9NXJNq/. HnNPJfB.N^Nu#(y*.xڄ)E*.ڮ ()l)l *,\)En&l& Bk|N^Nuq'q7qS +q .*r FrZLr NNVz#N^NLBLSLnLLLSTREAMS LNK ~ STRING LNK 2TERMBASELNK TERMINALLNK TEXTIO LNK VDIATTRILNK L VDICONTRLNK bVDIESCAPLNK >VDIINPUTLNK  VDIINQUILNK  VDIOUTPULNK  VDIRASTELNK zXBIOS LNK L4GStreams1=MGEMDOS0con:prn:aux:;SvpNNV:. EdB.N^NuBn ncN@:.(n8.&n3@4Pf:.(nJ4PfB.N^Nu ndRn`|N^Nuwkwp0NNVBn:.Ժnb*:.(nJ4Pg:.(n8.GP@Rn`:.IB4P(nBT(n9|/ B'?<)Hn?<HyNO (_JgB,N/ B'?<)Hn?<HyNO (_Jg |N/ B'?<)Hn?<Hy NO (_Jg |N|J. fV/ ?<)HnBgHlNO (_/ B?,<HlNO (_/ B?,B'HnNO (_NB/ ?<)Hn?<HlNO (_Jll/ ?<)HnBgHlNO (_Jll&n6B,N^Nu::r;[ x;< =s>c ?^ "@ 4'B N'C p"E2 !FBpNNV(nBT(n , fB'(n ?,NTJf(n8N^Nuo*oK ,#oPpNNV-n=|:. ?0.WcN"(n(nNTR0.WdRn`TN^NuBCpNNV nCp Qz. Nz:. -E?.Hn/.NO Nb/<?. /.NO NF/<?. /.NO N*/<?. /.NO NN Lh0 N^Nu&O N%\C jxX  h:p NNV n Cp QHn?<I* /NO N^NuST .TS:p NNV n Cp QHn?<I* /NO N^Nu .@:p NNV n Cp QHn?<I* /NO N^Nu .2LpNNV n Cp Q/<?.<HnNO Hn.N\N^Nu 0' BLpNNV n Cp Q/<?.<HnNO Hn?.N\N^Nu 0'( ByLpNNV n Cp Q/<?.<HnNO Hn/.NPN^NuGh 0' BVpNNV-n=|:. ?0.WcN(Hn(nNX(nR0.WdRn`TN^Nu._.pNNV nCp Qz. Npz:. -E?.Hn/.NO NJNF/<?. /.NO N*/<?. /.NO NN 4P0 N^NuQQ&Q N$Rt`R nSu|T T :p NNV n Cp QHn?<(n* /NO N^Nu߷ .& :p NNV n Cp QHn?<(n* /NO N^Nuk.kO .k :p NNV n Cp QHn?<(n* /NO N^Nu . jpNNV n Cp Q/<?.<HnNO Hn(nHTNP/<?.<HnNO N^NuPq 0' D . ^' jpNNV n Cp Q/<?.<HnNO Hn(nHTNP/<?.<HnNO N^NuBC 0'C D C ^'DkjpNNV n Cp Q/<?.<HnNO Hn(nHTNP/<?.<HnNO N^Nuii 0'j& D j ^'k:p NNV n Cp QB?.<(nHTNO N^Nu .'Q8p NNV n Cp Q/.?.B'HnNO N^Nuz/zP ,'zbpNNV nCp Q. f4B?.<HnNO *.ez`zE N^NuN B. N^Nu[[ 6'\LNpNNVN^NUUV  V0VUVg4GStringIASCIIoccpNNVB9N^NuOOOpOpNNVBg:. ?(nHTN\=_:.RE8.Ec :.RE=EBn:.SE?0.WoN&:.(n8.&nP@0.WlRn`T:.nb:.(nPN^NuFF G,GpNNVBg:.?(nHTN\=_Bg:.?(n HTN\=_:.nnd :.nd`N:.n=E:.n?0ncN*:.n(n 8.&n P@0ndSn`TBn:.SE?0.WcN*:.(n8.n&n P@0.WdRn`TN^NuGh  6zpNNVBg:.?(n HTN\=_:. ndF=n :.n?0.WcN*:.n(n 8.&n P@0.WdRn`TN^Nu &pNNVBg:.?(nHTN\=_:.ndh:.n d^:.nnc:.nSE=EBn:.SE8.Eb :.n(n8.&nP@Rn`:.(nPN^Nu LpNNVBg:.?(nHTN\=_Bg:.?(nHTN\=_:.nJEf(nN:. TE8.nEd`N:. ?(nHT:.?(nHTNO =n:.nSE?0.WcN*:.n(n8.&nP@0.WdRn`T:.n(nPN^Nu + 6sR fX`pNNVBn:. ?0.WcN0:.(n4P9f =nTN^Nu0.WdRn`T:. RE=EN^Nu, ,A0,y pNNVBg:.?(nHTN\=_Bg:. ?(nHTN\=_JngJng`N:.nd:.SE=EN :.SE=EBn:.?0.WcN^:.(n8.&n3@4Pg4:.(n8.&n3@4Pd|TN^NuN B.TN^Nu0.WdRn`T:.nd|N^NuN":.nc B.N^NuN |N^Nu`  6 pNNVBg:.?(nHTN\=_Bg:.?(nHTN\=_JngJng:. nnc(n8B.N^Nu:.n=EBn:. n(n8.&n3@4PgN$Rn:.nf(n8 |N^Nu`Rn :. nc(n8B.N^Nu`  6 pNNVN^Nu5M pNNVyN^Nu NpNNVNN^N^o݊ ݱ 4GTermBaseuV4[KeyboarduDisplayu 8NpNNV###N^NAAA AABBJ"Bt(B,B2C%C74GTerminal&EGEMDOS0DpNNVJ9g(nB9N(nHTNX(nN^Nu],]M]c] ] 0 ]<^:ZpNNVJ9g(nB9N0B'NJg(nHTNX(nN(nBN^Nu`܁ܗܹ ,) < ~HpNNVN^NupNNV.NTN^Nu (pNNV< NT< NTN^Nu88" 8F 8vNpNNVBn:.n b0:.K (nJ4Pg:.K (n4PNTRn`N^Nu > NpNNVB9N^N ?[܆ܘ4GTextIO1KStreams1=M2Conversions}2}DReadCardReadIntegerReadRealReadOctReadHexReadWordReadAdrcon:z0p NNV n Cp QHn.N\N^Nut &"pNNVHy .N\N^Nuzz{ {5@p NNV nCp QHn< N\Hn< N\N^NuDe & 6pNNVHyNXN^Nu vp NNV nCp QBn:. ?0.WcN@:.(nJ4Pf TN^NuNHn:.(n4PN\0.WdRn`TN^Nu \8,pNNVHy :. ?(nHTNO N^Nu Tp NNV n Cp Q?. ?.?<dHyNO Hn?<dHyNO N^Nuyy*z$ 0zdBz H{&pNNVHy ?. ?.NPN^NuSt  Tp NNV n Cp Q?. ?.?<dHyNO Hn?<dHyNO N^Nu* 0*Bt H &pNNVHy ?. ?.NPN^Nu<R   Xp NNV nCp Q/. ?. ?.?<dHyNOHn?<dHyNO N^Nu. 4EF L ,pNNVHy /. ?. ?.NO N^Nu # Y Tp NNV n Cp Q?. ?.?<dHyNO Hn?<dHyNO N^Nu;\* 0B Hs&pNNVHy ?. ?.NPN^Nu  1Tp NNV n Cp Q?. ?.?<dHyNO Hn?<dHyNO N^Nu6*h 0B HN&pNNVHy ?. ?.NPN^Nu Tp NNV nCp Q/. ?.?<dHyNO Hn?<dHyNO N^Nu*M 0B H4(pNNVHy /. ?.NO N^Nu. fTp NNV nCp Q/. ?.?<dHyNO Hn?<dHyNO N^NuRs* 0B5 H(pNNVHy /. ?.NO N^NuRs Tp NNV nCp Q/. ?.?<dHyNO Hn?<dHyNO N^Nu˱* 0KB̕ H(pNNVHy /. ?.NO N^Nu̴ 'p NNV n Cp QJ.g(nB.NRHn(nHTNPJyf.(nJf&B'HnNXJfHn(nHTNP`(nTN^Nu^ > F! \ r #$pNNVHy(nHTNPN^Nu CNp NNV n Cp QHn(nHTNP(n ae zb_(nN^Nu (P$pNNVHy(nHTNPN^Nu 6 t&p NNV nCp Q|N^Nu/pNNVN^Nu`G`h`

t7pNNV3N^NuR]R~R8p NNVHn:.?(nHT. (nHTNO(nJTmfJ. f2Hy(nHTNP(nJTmIGz6QN0Hy (nHTNP(nJTmIG z6QN^Nu?` (ؖ@ L9`١r ~ڨB9(p NNV nCp QpNN^Nu}G}h }~NpNNVI?G~zWHy?<Hy~B'HyNOHy ?<Hy~<HyNOBgNTN^N! Ht(2:B @JT>^ d p7xQc4GVDIAttribs'GEMVDIbase'gm8NV3?< Bg?<Bg?. NO N=y N^Nu   ( .5XNV nCpQ3 333?<Bg?<Bg?.NO NN^Nu   (N 0 F P;8NV3?<Bg?<Bg?. NO N=y N^Nu@G @Y @ (@ .@0NV3?<qBg?<Bg?. NO NN^Nu   (3>NV3By?<?<BgBg?. NO N=y N^Nue e f $f8 .ft 4f8NV3?<Bg?<Bg?. NO N=y N^Nu   (8 .p8NV3 3?<lBg?<Bg?. NO NN^NuzU zg z &z 0z8NV3?<Bg?<Bg?. NO N=y N^Nu     G ( } .  >NVBy3?<?<BgBg?. NO N=y N^Nuf v ߎ $ . 4; 8NV3?<Bg?<Bg?. NO N=y N^NuoS oe o (o .p ^NVBy3?< ?<BgBg?.NO N(n8(n8(n 8(n8N^Nu   $ .$ 8f B L Vh `NV3?<kBg?<Bg?.NO N(n8(n8(n 8(n8=yN^Nus   ( 2$ <j F P Vt 8NV3?< Bg?<Bg?. NO N=y N^NuI I I (I .J58NV3?<Bg?<Bg?. NO N=y N^NuR d ّ ( .8NV3?<Bg?<Bg?. NO N=y N^Nui i0 i] (i .i8NV3?<jBg?<Bg?. NO N=y N^Nu? Q ~ ( .LNV33?<'Bg?<Bg?.NO N(n 8(n8N^NuDV Dh D &D 0D :E9 DE8NV3?<Bg?<Bg?. NO N=y N^NuԪ Լ  ( .W8NV3?<Bg?<Bg?. NO N=y N^Nud| d d (d .e)8NV3?<Bg?<Bg?. NO N=y N^NuP b  ( .8NV3?<hBg?<Bg?. NO N=y N^Nut   ( .!DNV?<pBg:.?Bg?.NO (n * #4N#4N^NuM N ,N9 2Ny 8N <O NNVN^N $4GVDIControls'-oGEMVDIbase'xx NV?<BgBgBg(n ?NO By y oN4:9E(n89DG7P@ y lRy`N(n 8 By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`N^Nu. S {(4@/ HV^E f p3v~ 7 !e""#u$;% % &'()&NV?<BgBgBg?.NO NN^NuH( HK Hw NV?<dBg?< Bg(n ?NO By y oN4:9E(n89DG7P@ y lRy`NBy y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`(n 8 N^Nu 3"]*6B JkX`3 hnv' Sq7  &NV?<eBgBgBg?.NO NN^Nu  &NV?<BgBgBg?.NO NN^Nu4] 4 4&NV?<BgBgBg?.NO NN^NuS S> Sj$NV?<wBg?<Bg?. NO NP u ң0NV?<xBg?<Bg?. NO 3NN^Nu"x " "" (" xNV?<?<?<Bg?.NO 3 By yoN4:9E(n89DG7P@ ylRy`NN^Nu- T $*2>4J R`Jh p8 NNVN^NYYY, YIY[4GVDIEscapes'(GEMVDIbase' *>C 4>0NV?<BgBg?<?.NO N=y N^Nu   &(NV?<BgBg?<?.NO NN^Nuk  :NV?<?<Bg?<?. NO 3 3NN^Nu8/ 8V $8 ,8 28(NV?<BgBg?<?.NO NN^NuTa T T(NV?<BgBg?<?.NO NN^Nup pB ppNV nCpQBy yoN4:9EI89DG7P@ ylRy`?<?<Bg?<?. NO NN^Nu*6Q >LTI n xL(NV?<BgBg?<?.NO NN^Nu   NV333By:9yn:9(nJ4PfN.:9(nx4PzyEI9PRy`JyfN^Nu:9TEEIBtP?<?. zy??<?.NO NN^Nu   $9*k2FXS `j/r~/ e  :NV3?<Bg?<?<2 H3 R3sZ3b4?n4 v55|56S7 7NV33333 By yoNP:9HŋHEE(n89HĉDIP:9ZEEG7@P ylRy`?<Bg?<?<]?.NO NN^NuR d ~   (.26pBVh r  (NV?<BgBg?<^?.NO NN^Nu$B $g $(NV?<BgBg?<_?.NO NN^Nu@R @w @0NV?<BgBg?<`?.NO N=y N^Nu , Z &JNV33 3 3?<?<Bg?<b?.NO NN^Nu     8Z B XNV(n* #4(n* #8?<?.?.?<c?.NO N#4# 8N^Nu  4 2u < B F[ L P !NV3 By:9yn:9(nJ4PfN,:9(nx4P:9EI9PRy`JyfN^Nu:9EIBtP?<Bg?9?<d?.NO NN^Nu#E"o6íF NSXij`lŏ t ƙ :  NNVN^N 4GVDIInputs'2GEMVDIbase'8NV3 3?<!Bg?<Bg?. NO NN^Nu / I &~ 0VNV33?<?<BgBg?.NO N(n8(n 8(n8N^Nu>p > > &> 0? :?S D? N?^NV33?<?<BgBg?.NO N(n8(n 8(n8=yN^Nu/M /_ /y &/ 0/ :00 D0~ N0 T14DNV3?<Bg?<Bg?.NO N(n 8(n8N^NuGb Gt G (G 2H <HYNNV3?<Bg?<Bg?.NO N(n8(n 8(n8N^Nu   (N 2 < F :NV3 ?<Bg?<Bg?.NO N(n8N^Nus t t1 (tg 2t8NV?<BgBgBg?. NO N(n8=yN^Nu4 4< 4h (4 .4NV33(n3(n3?<?<?<Bg?.NO N:9SE3By:9?09WoN4:9EI84P:9(nP09WlRy`T:9RE(nB4PN^Nu' 9 S w & > HJ NV\dbj@x J|& NV33(n3(n3?<?<?<Bg?.NO N3JyfBnN^NuSyBy:9?09WoN4:9EI84P:9(nP09WlRy`T:9RE(nB4P=yN^Nu1 2 2 2@ &2p >2 H3 N3kR3X4%h4n5 t5|6 6 79789K: : NNV nCpMQI* #4?<oBg?<%Bg?. NO N#4N^NuW W 2W <X= BX FX ^NV?<vBgBgBg?.NO I(33/ N(_&n689y-T N^Nu -S ( 0 8 DS J P 0NV3?<zBg?<Bg?. NO NN^Nu   (Q &NV?<{BgBgBg?.NO NN^Nu> a DNV?<|BgBgBg?.NO N(n8(n 8(n8N^Nue e e (f 2fF <fTNV?<}BgBgBg?.NO I( 33/ N(_89y-TN^NuWk WW (W 0X 8Xf @X FYTNV?<~BgBgBg?.NO I( 33/ N(_89y-TN^NuI JJ* (J\ 0J 8J @K& FKvTNV?<BgBgBg?.NO I( 33/ N(_89y-TN^Nuc JTNV?<$BgBgBg?. NO N(n8(n9y(n9y(n9yN^Nu3 4 45 (4g 24 >4 J5?lNV?<%BgBgBg?. NO NBy yoN4:9EI89D&n7P@ ylRy`N^Nu@ c $,8/ @yFZ)bNV?<&BgBgBg?. NO NBy yoN4:9EI89D&n7P@ ylRy`3 y oN6:9]EEI89D&n7P@ y lRy`N^Nu  5$a,ʕ8 @FmZb9ḽt)ͱ Eω=NV nCpQBy3:9yn:9(n J4PfN,:9(n x4P:9EI9PRy`?<tBg?9Bg?.NO I* #@N#(@N^Nu`1`O`u$`*`2a Fa[Va ^b!hbvc c d< d e f6ZNVz.3?<uBg?<Bg?.NO N(n8(n 8(n8 =yN^Nu  ", ,f 6 @ JD P NV3 ?<Bg?<Bg?.NO N3 y oN6:9EI84P:9SE(nP y lRy`=yN^Nud v  (08QD LVQhp9 x NVBy yoN4:9E(n89DG7P@ ylRy`33?<?<BgBg?."NO (n* #NV?<?.BgBg?.NO (n* #8N# 8N^Nuͬ  & ,; 2w 6η>NV?<?.BgBg?.NO (n* #8N# 8N^Nu  &? ,y 2 6NVBy3 :9yn:9(nJ4PfN,:9(nx4P:9EI9PRy`?<?<?9Bg?.NO 33NN^Nu*@\~"6F4 NXh\ t i  >NV?< ?.BgBg?.NO (n* #8N# 8N^NuM M &N# ,N] 2N 6NNVBy yoN4:9E(n89DG7P@ ylRy`?< ?<:.?Bg?.NO 3333(n* #8N# 8N^Nu$&R .<D d p x   C   CBNV?<g?<?<Bg?.NO 33 3 NN^NuM M< $Mj ,M 4M :N&>NV?<r?<BgBg?. NO (n* #8N# 8N^Nu  & ,V 2 6@NV?< ?<Bg?<?. NO (n* #8N# 8N^Nu  (> .z 4Ѹ 8 rNV?< ?<?<?<?.NO 3 333ByByBy By"3 $By&NN^Nu@ @ &A .AJ 6A >A DB JBt PB VC. ^C dD jD| rNV?< ?<?<?<?.NO 3 333ByByBy By"3 $By&NN^Nu= f & . 6 >V D J PR V ^ d j TNV?< ?<Bg?<?.NO 3 3 ByBy3 By"NN^Nu9a 9 $9 ,9 2:( 8:j @: F; L;^ \NV?< ?<?<?<?.NO 3 33333 NN^Nu% N &~ . 6 >> F N TH \NV?< ?<?<?<?.NO 3 33333 NN^Nu : &j . 6 >* Fz N T4JNV?< ?<Bg?<?.NO 33 3 3NN^Nu  $4 ,j 4Ш < B>@NV?< ?<Bg?<?. NO (n* #8N# 8N^Nu_  ( . 42 8t@NV?< ?<Bg?< ?. NO (n* #8N# 8N^NuP P (P .Q, 4Qj 8QNV3 3333 ByBy3:9yn:9(nJ4PfN.:9(nx4P:9TEEI9PRy`?< ?<zy??< ?.NO NN^Nug y ͓ ͵  ( .I4΅<BHcPϻd'tУ ~+ѻ]   NNVN^N 4GVDIRasters'lGEMVDIbase')3rNV3(n* #8?<m?<?<Bg?.NO I( 33(33N# 8N^NuX6 XH Xf ,X6X @Y) HY{ RY ZZ; `Z f[ j[NV3(n* #8?<y?<?<Bg?.NO I&n(33&n (33(n3(n3N# 8N^NuW i  ,6 BL J V ^h h tX z j PNV?<nBgBgBg?.NO I( 33(33NN^NuO5 OXO~ (O 0O :P. BPz HPLNV33?<i?<BgBg?.NO N(n 8(n8N^Nun   & 0 :Q D NNVN^Ngxٓ ٰ4GXBIOSu~wBD(NV ./(n * /z.0?p?NNN^NuNVp?NN*-EN^NuNVp?NN*-EN^NuNVp?NN*=EN^NuV NV0.? . / ./p?NNN^NuLNV(n* /p?NNN^Nu NV0.?0. ?p?NN*=E N^Nuo:NV0.?0. ?0. ?0.?0.?/ ./p?NN*=EN^Nu :NV0.?0. ?0. ?0.?0.?/ ./p ?NN*=EN^Nuu HNV0.? CARDINALagain@SYSTEMWORDBCreateFile CHARCloseFileLookupFile CHARBOOLEANRenameFile CHARSetReadFileSetWriteFileSetModifyFileSetOpenFileDoio FileSetPos FileLONGCARDGetPos FileLONGCARDLength FileLONGCARDReset FileAgainFileReadWordFileSYSTEMWORDWriteWordFileSYSTEMWORDReadCharFileCHARWriteCharFileCHAR1(GEMAESbase1(GEMAESbaseSYSTEMRTreeRObjectRTedInfoRIconBlockRBitBlockRStringRImageDataRObSpecRTextRTemplateRValidRIconBlkMaskRIconBlkDataRIconBlkTextRBitBlkDataRFreeStringRFreeImageGraphicBoxGraphicTextGraphicBoxTextGraphicImageGraphicProgDefGraphicInvisibleBoxGraphicButtonGraphicBoxCharGraphicStringGraphicFormattedTextGraphicFormattedBoxTextGraphicIconGraphicTitleNoneSelectableDefaultExitEditableRadioButtonLastObjectTouchExitHideTreeIndirectNormalSelectedCrossedCheckedDisabledOutlinedShadowedWhiteBlackRedGreenBlueCyanYellowMagentaLightWhiteLightBlackLightRedLightGreenLightBlueLightCyanLightYellowLightMagentaKeyboardEventButtonEventMouse1EventMouse2EventMesageEventTimerEventKeyRightShiftKeyLeftShiftKeyCTRLKeyALTMenuSelectedWindowRedrawWindowToppedWindowClosedWindowFulledWindowArrowedWindowHorizSlidedWindowVertSlidedWindowSizedWindowMovedWindowNewTopAccessoryOpenAccessoryCloseArrowTextCursorHourGlassPointHandFlatHandThinCrossThickCrossOutlineCrossUserDefMouseOffMouseOnFormStartFormGrowFormShrinkFormFinishNameCloserFullerMoverInfoLineSizerUpArrowDownArrowVertSlideLeftArrowRightArrowHorizSlideWCBorderWCWorkWindowKindWindowNameWindowInfoWorkXYWHCurrXYWHPrevXYWHFullXYWHWindowHorizSlideWindowVertSlideTopFirstXYWHNextXYWHReservedNewDeskHorizSliderSizeVertSliderSizeWindowScreenEndUpdateBeginUpdateEndMoueControlBeginMouseControlAESGlobalTypeAESControlTypeAESIntInTypeAESIntOutTypeAESAddrInTypeAESAddrOutType177777177776177775177774177773177772AESParameterTypeAESParametersAESGlobalAESControlAESIntInAESIntOutAESAddrInAESAddrOutAESCallResultGemCallIntIn2IntIn3IntIn4IntIn8IntOut2IntOut4RTreeINT-CARDRObjectINT-CARDRTedInfoINT-CARDRIconBlockINT-CARDRBitBlockINT-CARDRStringINT-CARDRImageDataINT-CARDRObSpecINT-CARDRTextINT-CARDRTemplate INT-CARDRValid INT-CARDRIconBlkMask INT-CARDRIconBlkData INT-CARDRIconBlkText INT-CARDRBitBlkDataINT-CARDRFreeStringINT-CARDRFreeImageINT-CARDGraphicBoxINT-CARDGraphicTextINT-CARDGraphicBoxTextINT-CARDGraphicImageINT-CARDGraphicProgDefINT-CARDGraphicInvisibleBoxINT-CARDGraphicButtonINT-CARDGraphicBoxCharINT-CARDGraphicStringINT-CARDGraphicFormattedTextINT-CARDGraphicFormattedBoxTextINT-CARDGraphicIconINT-CARDGraphicTitle INT-CARDNoneINT-CARDSelectableINT-CARDDefaultINT-CARDExitINT-CARDEditableINT-CARDRadioButtonINT-CARDLastObject INT-CARDTouchExit@INT-CARDHideTreeINT-CARDIndirectINT-CARDNormalINT-CARDSelectedINT-CARDCrossedINT-CARDCheckedINT-CARDDisabledINT-CARDOutlinedINT-CARDShadowed INT-CARDWhiteINT-CARDBlackINT-CARDRedINT-CARDGreenINT-CARDBlueINT-CARDCyanINT-CARDYellowINT-CARDMagentaINT-CARDLightWhiteINT-CARDLightBlack INT-CARDLightRed INT-CARDLightGreen INT-CARDLightBlue INT-CARDLightCyan INT-CARDLightYellowINT-CARDLightMagentaINT-CARDKeyboardEventINT-CARDButtonEventINT-CARDMouse1EventINT-CARDMouse2EventINT-CARDMesageEventINT-CARDTimerEvent INT-CARDKeyRightShiftINT-CARDKeyLeftShiftINT-CARDKeyCTRLINT-CARDKeyALTINT-CARDMenuSelected INT-CARDWindowRedrawINT-CARDWindowToppedINT-CARDWindowClosedINT-CARDWindowFulledINT-CARDWindowArrowedINT-CARDWindowHorizSlidedINT-CARDWindowVertSlidedINT-CARDWindowSizedINT-CARDWindowMovedINT-CARDWindowNewTopINT-CARDAccessoryOpen(INT-CARDAccessoryClose)INT-CARDArrowINT-CARDTextCursorINT-CARDHourGlassINT-CARDPointHandINT-CARDFlatHandINT-CARDThinCrossINT-CARDThickCrossINT-CARDOutlineCrossINT-CARDUserDefINT-CARDMouseOffINT-CARDMouseOnINT-CARDFormStartINT-CARDFormGrowINT-CARDFormShrinkINT-CARDFormFinishINT-CARDNameINT-CARDCloserINT-CARDFullerINT-CARDMoverINT-CARDInfoLineINT-CARDSizer INT-CARDUpArrow@INT-CARDDownArrowINT-CARDVertSlideINT-CARDLeftArrowINT-CARDRightArrowINT-CARDHorizSlideINT-CARDWCBorderINT-CARDWCWorkINT-CARDWindowKindINT-CARDWindowNameINT-CARDWindowInfoINT-CARDWorkXYWHINT-CARDCurrXYWHINT-CARDPrevXYWHINT-CARDFullXYWHINT-CARDWindowHorizSlideINT-CARDWindowVertSlide INT-CARDTop INT-CARDFirstXYWH INT-CARDNextXYWH INT-CARDReserved INT-CARDNewDeskINT-CARDHorizSliderSizeINT-CARDVertSliderSizeINT-CARDWindowScreenINT-CARDEndUpdateINT-CARDBeginUpdateINT-CARDEndMoueControlINT-CARDBeginMouseControlINT-CARD AESGlobalType apVersionCARDINALapCountCARDINALapIDCARDINALapPrivateLONGCARDapPTree SYSTEMADDRESSap1ResvLONGCARDap2ResvLONGCARDap3ResvLONGCARDap4ResvLONGCARD AESControlType opcodeCARDINALsizeIntInCARDINALsizeIntOutCARDINALsizeAddrInCARDINALsizeAddrOutCARDINAL AESIntInType CARDINALCARDINALINTEGER AESIntOutType CARDINALCARDINALINTEGER AESAddrInType CARDINALCARDINALSYSTEMADDRESS AESAddrOutType CARDINALCARDINALSYSTEMADDRESS 177777AESControlType 177776AESGlobalType 177775AESIntInType 177774AESIntOutType 177773AESAddrInType 177772AESAddrOutType AESParameterType control177777global177776intIn177775intOut 177774addrIn177773addrOut177772AESParametersAESParameterTypeAESGlobalAESGlobalTypeAESControl6AESControlTypeAESIntIn@AESIntInTypeAESIntOutbAESIntOutTypeAESAddrInrAESAddrInTypeAESAddrOut~AESAddrOutTypeAESCallResultINTEGERGemCallINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERIntIn2INTEGERINTEGERIntIn3INTEGERINTEGERINTEGERIntIn4INTEGERINTEGERINTEGERINTEGERIntIn8INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERIntOut2INTEGERINTEGERIntOut4INTEGERINTEGERINTEGERINTEGER0GEMDOS0GEMDOSSYSTEMEOKErrorEDrvNREUnCmdECRCEBadRqESeekEMediaESecNFEPaperEWritFEReadFEGenrlEWrProEChngEUnDevEBadSFEOtherEInvFNEFilNFEPthNFENHndlEAccDnEIHndlENSMemEIMBAEDriveENMFilERangeEIntrnEPLFmtEGSBFIOModeSeekModeExecModeSetOrGetDiskInfoBufferOldTermConInConScanInConOutAuxInAuxOutPrnOutRawIORawInRawScanInNecInConWSConRSConISSetDrvConOSPrnOSAuxISAuxOSGetDrvSetDTAGetDateSetDateGetTimeSetTimeGetDTAVersionTermResDFreeDirCreateDirDeleteSetPathCreateOpenCloseReadWriteDeleteSeekAttribGetPathAllocFreeShrinkExecTermSFirstSNextRenameDaTimeEOKINT-CARDErrorINTEGEREDrvNRINTEGEREUnCmdINTEGERECRCINTEGEREBadRqINTEGERESeekINTEGEREMediaINTEGERESecNFINTEGEREPaperINTEGEREWritFINTEGEREReadFINTEGEREGenrlINTEGEREWrProINTEGEREChngINTEGEREUnDevINTEGEREBadSFINTEGEREOtherINTEGEREInvFNINTEGEREFilNFINTEGEREPthNFINTEGERENHndlINTEGEREAccDnINTEGEREIHndlINTEGERENSMemINTEGEREIMBAINTEGEREDriveINTEGERENMFilINTEGERERangeINTEGEREIntrnINTEGEREPLFmtINTEGEREGSBFINTEGER IOModereadwrite SeekModebeginningrelativeend ExecModeloadExecuteresrvd1resrvd2load SetOrGetsetget DiskInfoBuffer freeSpaceLONGCARDclustersLONGCARDsectorSizeLONGCARDclusterSize LONGCARDOldTermConInCHARConScanInCHARCHARConOutCHARAuxInCHARAuxOutCHARPrnOutCHARRawIOCHARIOModeRawIn CHARRawScanIn CHARCHARNecIn CHARConWS  CHARConRS  CHARConISBOOLEANSetDrvCARDINALLONGCARDConOSBOOLEANPrnOSBOOLEANAuxISBOOLEANAuxOSBOOLEANGetDrvCARDINALSetDTASYSTEMADDRESSGetDateCARDINALSetDateCARDINALGetTimeCARDINALSetTimeCARDINALGetDTASYSTEMADDRESSVersionCARDINALTermResLONGCARDCARDINALDFreeDiskInfoBufferCARDINALDirCreate CHARBOOLEANDirDelete CHARBOOLEANSetPath  CHARBOOLEANCreate! CHARCARDINALINTEGEROpen" CHARCARDINALINTEGERClose#INTEGERBOOLEANRead$INTEGERLONGCARDSYSTEMADDRESSWrite%INTEGERLONGCARDSYSTEMADDRESSDelete& CHARBOOLEANSeek'LONGINTINTEGERSeekModeLONGCARDAttrib( CHARSetOrGetCARDINALGetPath) CHARCARDINALAlloc*LONGCARDSYSTEMADDRESSFree+SYSTEMADDRESSBOOLEANShrink,SYSTEMADDRESSLONGCARDBOOLEANExec-ExecMode CHAR CHAR CHARINTEGERTerm.INTEGERBOOLEANSFirst/ CHARCARDINALINTEGERSNext0INTEGERRename1 CHAR CHARDaTime2INTEGERSYSTEMADDRESSSetOrGetu}GEMErroru}GEMError'GEMVDIbase'GEMVDIbaseSYSTEMVDIWorkInTypeVDIWorkOutTypePxyArrayTypeBigPxyArrayTypeMouseArrayTypeSmallArrayTypeRGBArrayTypeTextAttrArrayTypeFontNameTypeDistanceArrayTypeFilmNameTypeFilmIndexTypeCtrlArrayType177777contrlintinptsinintoutptsoutihADRintinADRptsinADRintoutADRptsoutADRParams177776parameterBlockCallVDISetContrl VDIWorkInType CARDINAL CARDINALINTEGER VDIWorkOutType CARDINAL9CARDINALINTEGER PxyArrayType CARDINALCARDINALINTEGER BigPxyArrayType CARDINALCARDINALINTEGER MouseArrayType CARDINAL&CARDINALINTEGER SmallArrayType CARDINALCARDINALINTEGER RGBArrayType CARDINALCARDINALINTEGER TextAttrArrayType CARDINAL CARDINALINTEGER FontNameType CARDINALCARDINALCHAR DistanceArrayType CARDINALCARDINALINTEGER FilmNameType CARDINAL|CARDINALCHAR FilmIndexType CARDINALCARDINAL CARDINALCARDINALINTEGER CtrlArrayType CARDINALCARDINALINTEGER 177777 CARDINAL CARDINALINTEGERcontrl177777intinCtrlArrayTypeptsinCtrlArrayTypeintoutCtrlArrayTypeptsoutCtrlArrayTypeiINTEGERhINTEGERADRintinSYSTEMADDRESSADRptsin SYSTEMADDRESSADRintout$SYSTEMADDRESSADRptsout(SYSTEMADDRESSADRParams,SYSTEMADDRESS 177776 CARDINALCARDINALSYSTEMADDRESSparameterBlock0177776CallVDISetContrlINTEGERINTEGERINTEGERINTEGERINTEGERRGEMXRGEMXSYSTEMNEWPROCESSTRANSFERSYSCALLIOTRANSFERErrorCauseErrorType177777ErrorContextTypeErrorProcessorTypeBasePageAddressErrorProcessorErrorContextCASEXHALTXSTACKTESTMULU32DIVU32MULS32DIVS32FADDFSUBFMULFDIVFCMPFTSTFLOATXTRUNCXLFADDLFSUBLFMULLFDIVLFCMPLFTSTLFLOATXLTRUNCXNEWPROCESSPROCSYSTEMADDRESSLONGCARDSYSTEMPROCESSLONGCARDTRANSFERSYSCALLIOTRANSFER ErrorCauseXErrorXRaiseXPropagate ErrorTypeEM1111TRAPEM1010TRAPPrivilegeViolationTRAPArithOverflowTRAPOutOfRangeTRAPZeroDivideTRAPIllegalInstrTRAPAdrErrorTRAPBusErrorTRAPProgramHalt NoFunctionReturn CaseIndexRange StackOverflow OutOfRange ArithOverflowNewprocessWorkspaceProcessTerminatedUnimlpementedRoutineNormalReturnUser1User2User3User4 177777 CARDINALCARDINALCHAR ErrorContextType ErrorINTEGERCameFromErrorCausePCSYSTEMADDRESSSRCARDINALA5 SYSTEMADDRESSA6SYSTEMADDRESSA7SYSTEMADDRESSLastMPSYSTEMADDRESSDumpToDoBOOLEANFileToDump1777774 ErrorProcessorTypeBasePageAddressSYSTEMADDRESSErrorProcessorErrorProcessorTypeErrorContextErrorContextTypeCASEXHALTXSTACKTESTMULU32LONGCARDLONGCARDDIVU32 LONGCARDLONGCARDMULS32 LONGINTLONGINTDIVS32 LONGINTLONGINTFADD REALREALFSUB REALREALFMULREALREALFDIVREALREALFCMPREALREALFTSTREALFLOATXSYSTEMLONGWORDTRUNCXREALLFADDLONGREALLONGREALLFSUBLONGREALLONGREALLFMULLONGREALLONGREALLFDIVLONGREALLONGREALLFCMPLONGREALLONGREALLFTSTLONGREALLFLOATXSYSTEMLONGWORDLTRUNCXLONGREAL1L[InOut1=StreamsSYSTEM177777Stream 177777ConAuxPrnDsc Stream rAgainBufCHARrAgainBOOLEANhandleINTEGERendPosLONGCARDdev177777 1L[InOutSYSTEMStreamsEOLInOutDonetermCHOpenInputOpenInputFileOpenOutputOpenOutputFileCloseInputCloseOutputReadReadStringReadIntReadCardWriteWriteLnWriteStringWriteIntWriteCardWriteOctWriteHexEOL CHARInStreamsStreamOut StreamsStreamDoneBOOLEANtermCHCHAROpenInput CHAROpenInputFile CHAROpenOutput CHAROpenOutputFile CHARCloseInputCloseOutputReadCHARReadString CHARReadInt INTEGERReadCard CARDINALWrite CHARWriteLn WriteString  CHARWriteIntINTEGERCARDINALWriteCardCARDINALCARDINALWriteOctCARDINALCARDINALWriteHexCARDINALCARDINALuKeyboarduKeyboardSYSTEMReadStatusReadCHARStatusBOOLEANu4LongInOutu4LongInOutSYSTEMDoneReadLongIntReadLongCardWriteLongIntWriteLongCardWriteLongOctWriteLongHexDoneBOOLEANReadLongIntLONGINTReadLongCardLONGCARDWriteLongIntLONGINTCARDINALWriteLongCardLONGCARDCARDINALWriteLongOctLONGCARDCARDINALWriteLongHexLONGCARDCARDINALM2ConversionsM2ConversionsSYSTEMConvertCardinalConvertIntegerConvertRealConvertOctalConvertHexConvertAddrDecConvertAddrOctConvertAddrHexConvertToCardinalConvertToIntegerConvertToRealConvertToOctalConvertToHexConvertToAddrConvertCardinalCARDINALCARDINAL CHARConvertIntegerINTEGERCARDINAL CHARConvertRealREALCARDINALINTEGER CHARConvertOctalCARDINALCARDINAL CHARConvertHexCARDINALCARDINAL CHARConvertAddrDecSYSTEMADDRESSCARDINAL CHARConvertAddrOctSYSTEMADDRESSCARDINAL CHARConvertAddrHexSYSTEMADDRESSCARDINAL CHARConvertToCardinal  CHARBOOLEANCARDINALConvertToInteger  CHARBOOLEANINTEGERConvertToReal  CHARBOOLEANREALConvertToOctal  CHARBOOLEANSYSTEMWORDConvertToHex  CHARBOOLEANSYSTEMWORDConvertToAddr CHARBOOLEANSYSTEMADDRESSZrMathLib0ZrMathLib0SYSTEMpieRadToDegDegToRadrealentiersincostanarctanexplnlogpowersqrtpi@Ie@-URadToDegREALREALDegToRadREALREALrealINTEGERREALentierREALINTEGERsinREALREALcosREALREALtanREALREALarctanREALREALexp REALREALln REALREALlog REALREALpower REALREALREALsqrt REALREALuRealInOutuRealInOutSYSTEMDoneReadRealWriteRealWriteRealOctDoneBOOLEANReadRealREALWriteRealREALCARDINALWriteRealOctREAL1dStorage1dStorageSYSTEMALLOCATEDEALLOCATECreateHeapALLOCATESYSTEMADDRESSCARDINALDEALLOCATESYSTEMADDRESSCARDINALCreateHeapLONGCARDBOOLEANBOOLEAN1=Streams1=StreamsSYSTEMStreamKinds177777StreamOpenStreamCloseStreamWrite8BitWrite16BitWrite32BitWrite8BitBackWrite16BitBackWrite32BitBackRead8BitRead16BitRead32BitRead8BitBackRead16BitBackRead32BitBackGetPosSetPosEOS StreamKindsREADREADWRITE 177777ConAuxPrnDsc Stream rAgainBufCHARrAgainBOOLEANhandleINTEGERendPosLONGCARDdev177777 OpenStreamStream CHARStreamKindsINTEGERCloseStreamStreamINTEGERWrite8BitStreamSYSTEMBYTEWrite16BitStreamSYSTEMWORDWrite32BitStreamSYSTEMLONGWORDWrite8BitBackStreamSYSTEMBYTEWrite16BitBackStreamSYSTEMWORDWrite32BitBackStreamSYSTEMLONGWORDRead8Bit StreamSYSTEMBYTERead16Bit StreamSYSTEMWORDRead32Bit StreamSYSTEMLONGWORDRead8BitBack StreamSYSTEMBYTERead16BitBack StreamSYSTEMWORDRead32BitBackStreamSYSTEMLONGWORDGetPosStreamLONGCARDSetPosStreamLONGCARDEOSStreamBOOLEANStringStringSYSTEMMaxCharsStringsCompareResultsInitStringModuleAssignInsertDeleteCopyConcatLengthComparePosGetTerminatorSetTerminatorMaxCharsPINT-CARD Strings CARDINALPCARDINALCHAR CompareResultsGreaterEqualLessInitStringModuleAssign CHAR CHARInsert CHAR CHARCARDINALDelete CHARCARDINALCARDINALCopy CHARCARDINALCARDINAL CHARConcat CHAR CHAR CHARLength CHARCARDINALCompare CHAR CHARCompareResultsPos  CHAR CHARCARDINALCARDINALBOOLEANGetTerminator CHARSetTerminator CHARTERMBASESYM dTERMINALSYM 0TEXTIO SYM 2 VDIATTRISYM 4 VDICONTRSYM 7VDIESCAPSYM 9x VDIINPUTSYM <VDIINQUISYM @(VDIOUTPUSYM CVDIRASTESYM EXBIOS SYM guVTermBaseuVTermBaseSYSTEMReadProcWriteProcStatusProcDoReadDoWriteDoStatus ReadProcCHAR WriteProcCHAR StatusProcBOOLEANDoReadReadProcDoWriteWriteProcDoStatusStatusProc&Terminal&TerminalSYSTEMReadBusyReadReadAgainWriteWriteLnWriteStringReadCHARBusyReadCHARReadAgainWriteCHARWriteLnWriteString CHAR1KTextIO1=StreamsSYSTEMStreamKinds177777Stream 177777ConAuxPrnDsc Stream rAgainBufCHARrAgainBOOLEANhandleINTEGERendPosLONGCARDdev177777 StreamKindsREADREADWRITE1KTextIOSYSTEMStreamsWRiteWriteWRiteLnWriteLnWRiteStringWriteStringWRiteCardWriteCardWRiteIntWriteIntWRiteRealWriteRealWRiteOctWriteOctWRiteHexWriteHexWRiteAdrWriteAdrWRiteOctAdrWriteOctAdrWRiteHexAdrWriteHexAdrREadReadREadCapReadCapREadAgainReadAgainREadLnReadLnREadStringReadStringREadCardReadCardREadIntReadIntREadRealReadRealREadOctReadOctREadHexReadHexREadWordReadWordREadAdrReadAdrREadFileNameReadFileNameREadOptionReadOptionWRiteFileNameWriteFileNamePromptNoFileSetTextModeSetDefaultIOinoutWRiteStreamsStreamCHARWriteCHARWRiteLnStreamsStreamWriteLnWRiteStringStreamsStream CHARWriteString CHARWRiteCardStreamsStreamCARDINALCARDINALWriteCardCARDINALCARDINALWRiteInt StreamsStreamINTEGERCARDINALWriteInt INTEGERCARDINALWRiteReal StreamsStreamREALCARDINALINTEGERWriteReal REALCARDINALINTEGERWRiteOct StreamsStreamCARDINALCARDINALWriteOctCARDINALCARDINALWRiteHexStreamsStreamCARDINALCARDINALWriteHexCARDINALCARDINALWRiteAdrStreamsStreamSYSTEMADDRESSCARDINALWriteAdrSYSTEMADDRESSCARDINALWRiteOctAdrStreamsStreamSYSTEMADDRESSCARDINALWriteOctAdrSYSTEMADDRESSCARDINALWRiteHexAdrStreamsStreamSYSTEMADDRESSCARDINALWriteHexAdrSYSTEMADDRESSCARDINALREadStreamsStreamCHARReadCHARREadCapStreamsStreamCHARReadCapCHARREadAgainStreamsStreamReadAgainREadLnStreamsStreamReadLnREadStringStreamsStream CHARReadString  CHARREadCard!StreamsStreamCARDINALReadCard"CARDINALREadInt#StreamsStreamINTEGERReadInt$INTEGERREadReal%StreamsStreamREALReadReal&REALREadOct'StreamsStreamCARDINALReadOct(CARDINALREadHex)StreamsStreamCARDINALReadHex*CARDINALREadWord+StreamsStreamSYSTEMWORDReadWord,SYSTEMWORDREadAdr-StreamsStreamSYSTEMADDRESSReadAdr.SYSTEMADDRESSREadFileName/StreamsStream CHAR CHARReadFileName0 CHAR CHARREadOption1StreamsStream CHARINTEGERReadOption2 CHARINTEGERWRiteFileName3StreamsStream CHARCARDINALWriteFileName4 CHARCARDINALPrompt5 CHARNoFile6BOOLEANSetTextMode7CARDINALSetDefaultIO8 CHARStreamsStreamKindsINTEGERinStreamsStreamout StreamsStream'VDIAttribs'GEMVDIbaseSYSTEMPxyArrayType PxyArrayType CARDINALCARDINALINTEGER'VDIAttribsSYSTEMGEMVDIbaseSetWritingModeSetColourSetLineTypeDefineLineStyleSetLineWidthSetLineColourSetEndLineStyleSetMarkerTypeSetMarkerHeightSetMarkerColourSetAbsCharHeightSetPointCharHeightSetRotationSetFontSetGraphicTextColourSetGraphicTextEffectsSetGraphicTextAlignmentSetFillInteriorStyleSetFillStyleSetFillColourSetFillPerimeterVisibilityDefineFillPatternSetWritingModeINTEGERINTEGERINTEGERSetColourINTEGERINTEGERGEMVDIbasePxyArrayTypeSetLineTypeINTEGERINTEGERINTEGERDefineLineStyleINTEGERINTEGERSetLineWidthINTEGERINTEGERINTEGERSetLineColourINTEGERINTEGERINTEGERSetEndLineStyleINTEGERINTEGERINTEGERSetMarkerTypeINTEGERINTEGERINTEGERSetMarkerHeight INTEGERINTEGERINTEGERSetMarkerColour INTEGERINTEGERINTEGERSetAbsCharHeight INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERSetPointCharHeight INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERSetRotation INTEGERINTEGERINTEGERSetFontINTEGERINTEGERINTEGERSetGraphicTextColourINTEGERINTEGERINTEGERSetGraphicTextEffectsINTEGERINTEGERINTEGERSetGraphicTextAlignmentINTEGERINTEGERINTEGERINTEGERINTEGERSetFillInteriorStyleINTEGERINTEGERINTEGERSetFillStyleINTEGERINTEGERINTEGERSetFillColourINTEGERINTEGERINTEGERSetFillPerimeterVisibilityINTEGERINTEGERINTEGERDefineFillPatternINTEGER INTEGERINTEGER'-VDIControls'GEMVDIbaseSYSTEMVDIWorkInTypeVDIWorkOutTypePxyArrayType VDIWorkInType CARDINAL CARDINALINTEGER VDIWorkOutType CARDINAL9CARDINALINTEGER PxyArrayType CARDINALCARDINALINTEGER'-VDIControlsSYSTEMGEMVDIbaseOpenWorkstationCloseWorkstationOpenVirtualWorkstationCloseVirtualWorkstationClearWorkstationUpdateWorkstationLoadFontsUnloadFontsSetClippingOpenWorkstationGEMVDIbaseVDIWorkInTypeINTEGERGEMVDIbaseVDIWorkOutTypeCloseWorkstationINTEGEROpenVirtualWorkstationGEMVDIbaseVDIWorkInTypeINTEGERGEMVDIbaseVDIWorkOutTypeCloseVirtualWorkstationINTEGERClearWorkstationINTEGERUpdateWorkstationINTEGERLoadFontsINTEGERINTEGERINTEGERUnloadFontsINTEGERINTEGERSetClipping INTEGERINTEGERGEMVDIbasePxyArrayType'VDIEscapes'GEMVDIbaseSYSTEMPxyArrayTypeFilmNameTypeFilmIndexType PxyArrayType CARDINALCARDINALINTEGER FilmNameType CARDINAL|CARDINALCHAR FilmIndexType CARDINALCARDINAL CARDINALCARDINALINTEGER'VDIEscapesSYSTEMGEMVDIbaseInquireCharCellsExitAlphaModeEnterAlphaModeCursorUpCursorDownCursorRightCursorLeftCursorHomeEraseToEOSEraseToEOLCursorAddressOutputTextReverseVideoOnReverseVideoOffInquireCursorAddressInquireTabletStatusHardCopyDisplayCursorRemoveCursorFormAdvanceOutputWindowClearDisplayListOutputBitImageFileSelectPaletteInquirePaletteFilmsInquirePaletteStateSetPaletteStateSavePaletteStateSuppressPaletteMessagesPaletteErrorInquireUpdateMetafileExtentsWriteMetafileChangeFileNameInquireCharCellsINTEGERINTEGERINTEGERExitAlphaModeINTEGEREnterAlphaModeINTEGERCursorUpINTEGERCursorDownINTEGERCursorRightINTEGERCursorLeftINTEGERCursorHomeINTEGEREraseToEOS INTEGEREraseToEOL INTEGERCursorAddress INTEGERINTEGERINTEGEROutputText INTEGER CHARReverseVideoOn INTEGERReverseVideoOffINTEGERInquireCursorAddressINTEGERINTEGERINTEGERInquireTabletStatusINTEGERINTEGERHardCopyINTEGERDisplayCursorINTEGERINTEGERINTEGERRemoveCursorINTEGERFormAdvanceINTEGEROutputWindowINTEGERGEMVDIbasePxyArrayTypeClearDisplayListINTEGEROutputBitImageFileINTEGER CHARINTEGERINTEGERINTEGERGEMVDIbasePxyArrayTypeSelectPaletteINTEGERINTEGERINTEGERInquirePaletteFilmsINTEGERGEMVDIbaseFilmNameTypeInquirePaletteStateINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERGEMVDIbaseFilmIndexTypeSetPaletteStateINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERGEMVDIbaseFilmIndexTypeSavePaletteStateINTEGERSuppressPaletteMessagesINTEGERPaletteErrorInquireINTEGERINTEGERUpdateMetafileExtentsINTEGERINTEGERINTEGERINTEGERINTEGERWriteMetafile INTEGERINTEGER INTEGERINTEGER INTEGERChangeFileName!INTEGER CHAR'2VDIInputs'GEMVDIbaseSYSTEMMouseArrayTypeSmallArrayType SmallArrayType CARDINALCARDINALINTEGER MouseArrayType CARDINAL&CARDINALINTEGER'2VDIInputsSYSTEMGEMVDIbaseSetInputModeInputLocatorRQInputLocatorSMInputValuatorRQInputValuatorSMInputChoiceRQInputChoiceSMInputStringRQInputStringSMSetMouseFormExchangeTimerVShowCursorHideCursorSampleMouseButtonExchangeButtonVExchangeMovementVExchangeCursorVSampleKeyboardSetInputModeINTEGERINTEGERINTEGERInputLocatorRQINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERInputLocatorSMINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERInputValuatorRQINTEGERINTEGERINTEGERINTEGERInputValuatorSMINTEGERINTEGERINTEGERINTEGERINTEGERInputChoiceRQINTEGERINTEGERINTEGERInputChoiceSMINTEGERINTEGERINTEGERInputStringRQINTEGERINTEGERINTEGERGEMVDIbaseSmallArrayType CHARInputStringSM INTEGERINTEGERINTEGERGEMVDIbaseSmallArrayType CHARINTEGERSetMouseForm INTEGERGEMVDIbaseMouseArrayTypeExchangeTimerV INTEGERSYSTEMADDRESSSYSTEMADDRESSINTEGERShowCursor INTEGERINTEGERHideCursor INTEGERSampleMouseButtonINTEGERINTEGERINTEGERINTEGERExchangeButtonVINTEGERSYSTEMADDRESSSYSTEMADDRESSExchangeMovementVINTEGERSYSTEMADDRESSSYSTEMADDRESSExchangeCursorVINTEGERSYSTEMADDRESSSYSTEMADDRESSSampleKeyboardINTEGERINTEGER'BVDIInquires'GEMVDIbaseSYSTEMVDIWorkOutTypePxyArrayTypeBigPxyArrayTypeRGBArrayTypeTextAttrArrayTypeFontNameTypeDistanceArrayType VDIWorkOutType CARDINAL9CARDINALINTEGER RGBArrayType CARDINALCARDINALINTEGER PxyArrayType CARDINALCARDINALINTEGER TextAttrArrayType CARDINAL CARDINALINTEGER BigPxyArrayType CARDINALCARDINALINTEGER FontNameType CARDINALCARDINALCHAR DistanceArrayType CARDINALCARDINALINTEGER'BVDIInquiresSYSTEMGEMVDIbaseExtendedInquireInquireColourInquireLineAttributesInquireMarkerAttributesInquireFillAttributesInquireTextAttributesInquireTextExtentInquireCharWidthInquireFaceNameInquireCellArrayInquireInputModeInquireFaceInfoExtendedInquireINTEGERINTEGERGEMVDIbaseVDIWorkOutTypeInquireColourINTEGERINTEGERINTEGERGEMVDIbaseRGBArrayTypeInquireLineAttributesINTEGERGEMVDIbasePxyArrayTypeInquireMarkerAttributesINTEGERGEMVDIbasePxyArrayTypeInquireFillAttributesINTEGERGEMVDIbasePxyArrayTypeInquireTextAttributesINTEGERGEMVDIbaseTextAttrArrayTypeInquireTextExtentINTEGER CHARGEMVDIbaseBigPxyArrayTypeInquireCharWidthINTEGERCHARINTEGERINTEGERINTEGERINTEGERInquireFaceName INTEGERINTEGERGEMVDIbaseFontNameTypeINTEGERInquireCellArray INTEGERGEMVDIbasePxyArrayTypeINTEGERINTEGERINTEGERINTEGERINTEGER INTEGERInquireInputMode INTEGERINTEGERINTEGERInquireFaceInfo INTEGERINTEGERINTEGERGEMVDIbaseDistanceArrayTypeINTEGERGEMVDIbaseRGBArrayType'VDIOutputs'GEMVDIbaseSYSTEMPxyArrayType PxyArrayType CARDINALCARDINALINTEGER'VDIOutputsSYSTEMGEMVDIbasePolyLinePolyMarkerGraphicTextFillAreaCellArrayContourFillFillRectangleDrawBarDrawArcDrawPieSliceDrawCircleDrawEllipticalArcDrawEllipticalPieDrawEllipseDrawRoundedBoxDrawRoundedFilledBoxJustifiedTextPolyLineINTEGERINTEGER INTEGERPolyMarkerINTEGERINTEGER INTEGERGraphicTextINTEGERINTEGERINTEGER CHARFillAreaINTEGERINTEGER INTEGERCellArrayINTEGERGEMVDIbasePxyArrayTypeINTEGERINTEGERINTEGERINTEGER INTEGERContourFillINTEGERINTEGERINTEGERINTEGERFillRectangleINTEGERGEMVDIbasePxyArrayTypeDrawBarINTEGERGEMVDIbasePxyArrayTypeDrawArc INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERDrawPieSlice INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERDrawCircle INTEGERINTEGERINTEGERINTEGERDrawEllipticalArc INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERDrawEllipticalPie INTEGERINTEGERINTEGERINTEGERINTEGERINTEGERINTEGERDrawEllipseINTEGERINTEGERINTEGERINTEGERINTEGERDrawRoundedBoxINTEGERGEMVDIbasePxyArrayTypeDrawRoundedFilledBoxINTEGERGEMVDIbasePxyArrayTypeJustifiedTextINTEGERINTEGERINTEGER CHARINTEGERINTEGERINTEGER'lVDIRasters'GEMVDIbaseSYSTEMBigPxyArrayTypeSmallArrayType BigPxyArrayType CARDINALCARDINALINTEGER SmallArrayType CARDINALCARDINALINTEGER'lVDIRastersSYSTEMGEMVDIbaseCopyRasterOpaqueCopyRasterTransparentTransformFormGetPixelCopyRasterOpaqueINTEGERINTEGERGEMVDIbaseBigPxyArrayTypeSYSTEMADDRESSSYSTEMADDRESSCopyRasterTransparentINTEGERINTEGERGEMVDIbaseBigPxyArrayTypeSYSTEMADDRESSSYSTEMADDRESSGEMVDIbaseSmallArrayTypeTransformFormINTEGERSYSTEMADDRESSSYSTEMADDRESSGetPixelINTEGERINTEGERINTEGERINTEGERINTEGERu~wXBIOSu~wXBIOSSYSTEMMouseType177777ParamBlkPaletteFlowFlavorSerialDeviceSerialSpeedIORECPTRIORECPrtConfigPrtConfigSetNoAlterKeyTransPtrKeyTransKeyTablePtrKeyTableLowMediumHighVirginMediaTimerKBVectorPtrKBVectorInitMouseScreenPhysicalBaseScreenLogicalBaseGetResolutionSetScreenBaseSetPaletteSetColourFloppyReadFloppyWriteFloppyFormatMIDIWSMFPintIORecConfigureRS232SetKeyTableRandomPrototypeBootSectorFloppyVerifyScreenDumpConfigureCursorSetDateTimeGetDateTimeBiosKeysKeyboardWSDisableInterruptEnableInterruptGIReadGIWriteGIOffBitGIOnBitSetTimerInterruptDoSoundConfigurePrinterKeyboardVectorsKeyboardRateVSyncSuperExecPuntAES MouseTypeDisableMouseRelativeMouseAbsoluteMouseUnusedMouseKeycodeMouse 177777OriginBottomOriginTop ParamBlk topMode177777buttonsSYSTEMBYTExParamSYSTEMBYTEyParamSYSTEMBYTExMaxCARDINALyMaxCARDINALxinitialCARDINALyInitial CARDINAL Palette CARDINALCARDINALCARDINAL FlowFlavorNONEXONXOFFRTSCTSXONXOFFRTSCTS SerialDeviceRS232KeyboardMIDI SerialSpeedBPS19200BPS9600BPS4800BPS3600BPS2400BPS2000BPS1800BPS1200BPS600BPS300 BPS200 BPS150 BPS134 BPS110 BPS75BPS50 IORECPTRIOREC IOREC ibufSYSTEMADDRESSibufsizeCARDINALibufhdCARDINALibuftlCARDINALibuflow CARDINALibufhi CARDINAL PrtConfigDaisyWheelMonochromeEpsonPrinterFinalRS232PortSingleSheetPC6PC7PC8PC9 PC10 PC11 PC12 PC13 PC14PC15 PrtConfigSetPrtConfigNoAlterPrtConfigSet KeyTransPtrKeyTrans KeyTrans CARDINALCARDINALSYSTEMBYTE KeyTablePtrKeyTable KeyTable unshiftKeyTransPtrshiftKeyTransPtrcapslockKeyTransPtr LowINT-CARDMediumINT-CARDHighINT-CARDVirginMediaCARDINAL TimerTimerATimerBTimerCTimerD KBVectorPtrKBVector KBVector midiSYSTEMADDRESSkbderrSYSTEMADDRESSmidierrSYSTEMADDRESSstatvec SYSTEMADDRESSmousevecSYSTEMADDRESSclockvecSYSTEMADDRESSjoyvecSYSTEMADDRESSInitMouseMouseTypeParamBlkPROCScreenPhysicalBaseSYSTEMADDRESSScreenLogicalBaseSYSTEMADDRESSGetResolutionINTEGERSetScreenBaseSYSTEMADDRESSSYSTEMADDRESSINTEGERSetPalettePaletteSetColourCARDINALCARDINALCARDINALFloppyReadSYSTEMADDRESSCARDINALCARDINALCARDINALCARDINALCARDINALINTEGERFloppyWrite SYSTEMADDRESSCARDINALCARDINALCARDINALCARDINALCARDINALINTEGERFloppyFormat SYSTEMADDRESSCARDINALCARDINALCARDINALCARDINALCARDINALCARDINALINTEGERMIDIWS  SYSTEMBYTECARDINALMFPint CARDINALPROCIORec SerialDeviceIORECPTRConfigureRS232SerialSpeedFlowFlavorINTEGERINTEGERINTEGERINTEGERSetKeyTableKeyTransPtrKeyTransPtrKeyTransPtrKeyTablePtrRandomLONGCARDPrototypeBootSectorSYSTEMADDRESSLONGINTINTEGERINTEGERFloppyVerifySYSTEMADDRESSCARDINALCARDINALCARDINALCARDINALCARDINALINTEGERScreenDumpConfigureCursorINTEGERINTEGERINTEGERSetDateTimeLONGCARDGetDateTimeLONGCARDBiosKeysKeyboardWS SYSTEMBYTECARDINALDisableInterruptCARDINALEnableInterruptCARDINALGIReadCARDINALCARDINALGIWriteCARDINALCARDINALGIOffBitCARDINALGIOnBitCARDINALSetTimerInterruptTimerCARDINALCARDINALPROCDoSound SYSTEMADDRESSConfigurePrinter!PrtConfigPrtConfigKeyboardVectors"KBVectorPtrKeyboardRate#INTEGERINTEGERCARDINALVSync$SuperExec%PROCPuntAES&. `.. M2CINIT LOD 0$M2CLIST LOD LM2CPASS1LOD yM2CPASS2LOD M2CPASS3LOD BM2CPASS4LOD eM2CPASS5LOD :QM2CSYM LOD 0,".6d##pNNVBy3/9?.<< B':. ?(nHTN ON^NupNNVBy:.JElDE3/9?.<< Jnlz`z:. ?(nHTN ON^NupNNV:. nm=n N^NuN =n N^NupNp|NNVzK (nBB./.N vXl|/.-_NB.Jnm8/./"@@@@@2 >,>E[N\bju <EL(   -  P a Pd      4@  4 H 4  ,  cf B   8B]  8 L      CLw E v+?   @#i  "Y @"S  p @5/   ) ( KSWemq  !$&*.26:>BFJNRVZ^begjloqtvy{~f* $(3 $< :[ : $@B $@@@ / P 38DY^j" v$  vK A\#  J  !$'*-0369<?BEHK, x".Bb  **** further errorslist file--- create errorerror fileerror file--- create errorNVB9 9VcN(z9EIBtP 9VdR9`333333333333333333N^NuNV=|HyHnN_PB'HyN`XJgN:.E=E:.ME=|z.EI84P?0.WcN"HyHnN_P0.WdRn`T. Rf*HyHnN_P?.?.?.N \N,. SfHyHnN_PN J.fNHyHnN_PNN^NuNV9rg#qN #qHyN^nXNN^NuNVz(n(g`N&n(S&m:k c| N^NuNb&m:k fT&m:,k c| N^NuN:&m:,k f*&m:,ke&m:,kcz`zE N^NuHn?< NK\Ry(n&m8 &m9k &m9k&n)S(n(B. N^NuNV/-+NB'HyN?< Hy?<'HyrX?< HyqB'B'?<'HnHyNZO NN NNr9rgN9rgNC `e >M T %     % . " N <  D"D 4<  6;EHX]af ?  |  |     .- L  !/47@MR^lq} (IHg ( v  x   x    !$'*-0369<?BE,i".;jjy>yDHNqNqNqpNNVN^N NV:9( E(d:9(IPRy(N *N^NuNVBy(B9*+N^NuNV.NTN^NuNVJ9+g<ENTB9+.NTN^NuNV:9( E'b:9(IB4PJ9*fB?<'HyN\-_J9*f.J9,g&(n HT?<NK\(n (T((nBN(n z((nN^NuNVBn-|?:.g`Nz:. N/./ Ee nN :9>nJ9Dg6(yJ9nz(f/ HT?<NK\(_&Tz&#JNHyq?.N_\N^NuNV*.x?N T*.?N TN^NuNVJ9Dg6(yJ9nz(f/ HT?<NK\(_&Tz&#JNHyq?.N_\N^NuNV92N 2Tz92 NE?9:N TNz:96/N XNz/94N XNh/94N XNV/94N X?98N TN6?9@N TN$N FFFF4XxN^NuNV. Sg. Qg. RgpN. N 2T?.N TN^NuNV<SN 2T?.N TN^NuNV<EN 2T?.N TN^NuNVRyTr:9T E,b&:9T E,f=|<R?.NXN:9T E'epNN^NuNVD3@N3@RN^NuNVB9D:9Ry@g?9@NTT3@PN^NuNVD:9Py@g?9@NTT3@RN^NuNVB9D:9Ny@g?9NNTT-yF*.Jg(n/ ?,N T(_-T`#FJ:9Py@g?9@NTTN^NuNVHyF?<NK\(yFz(ByNByPByR#FJB9DByTrN^NuNVz(9Fg*#FJ(yF#FHyJ?<NL\`B'N 2THyqN^nXN^NuNVRyf3f:BydN^NuNV(yV:9bNB9<9<  d:9<  f N ?<NTN^NuNVz9E033:9 Edz`z3z:9#z:9#z:9# N^NuNVJ9g8:9 Ed(m:, E e:9 Ef(m:, Ebz`zJ9g:9 E d(m:, Edz`zJ9g:9 Edz`zJ9g<*9 d(m:, E e*9 f(m:, Ebz`zJ9g *9 d(m:, Edz`zJ9g*9 dz`zJ9g(m:, E dz`zJ9g(mz l3J9g(mzl3J9g(mzl3J9g$(mz:,Hx /9NXڟ#J9g$(mz:,Hx/9NXڟ#J9g$(mz:,Hx/9 NXڟ# J9g9N fN 2N 2N9< =fN 2N  2NZBnP29<  d?<NTNl9<9f NNTRn:. Ef<N.:. EfN9NT9 ,8D PH,DDDDDDDDDDDDDDDDDDDDDDDDDD\htDDDDDDDDDDDDDDDDDDDDDDDDDDBgNT92 SfN+_N^NuNVB93@By>|A .ZcN(z.EAEIx)P .ZdR.`?<NTTNN^NuNV|A .ZcNz.EAEIx&4PgVz.EAEI-tPz.EAEI(tPz.EAEG'PHn?<NL\` .ZdR.NN^NuNVNN-hN^NuNVN N-NPN"N^NuNVByBNNNbN^NuN NVN^N@ SYSTEMS.M.ANDDIVMODNOTORINCONSTTYPEVARARRAYRECORDSETPOINTERTOIMPORTEXPORTFROMQUALIFIEDDEFINITIONIMPLEMENTATIONPROCEDUREMODULEBEGINCASEOFIFTHENELSIFELSELOOPEXITREPEATUNTILWHILEWITHDOFORBYRETURNENDBOOLEANCHARINTEGERCARDINALLONGINTLONGCARDBITSETINT-CARDLONGINT-CARDNIL-TYPEPROCFALSETRUENILDECEXCLHALTINCINCLNEWDISPOSEABSCAPCHRHIGHODDORDVALREALLONGREALFLOATTRUNCBYTEWORDLONGWORDPROCESSADDRESSNEWPROCESSTRANSFERCODESYSCALLIOTRANSFERLISTENSYSRESETSETREGASHBITADRREGISTERSIZETSIZEALLOCATEDEALLOCATENV(nHTNX&n (S8:z)Ez)EBl)ys -yz(.g (n:9:Tc-n(n-l`&n (S)n*.f(n #N(n&n )SN^NuNVHn?<.NK\#sJ.g"I.GzWHnNXN(#sI.GzWHnNX(n8:|)ys Blz)Ez)Ez)E(z)E$z)Ez)EB,9| B,"n,B,-z#N^NuNV nCp QHn?<NK\HnHnN1P(n|)n|n N^NuNV n Cp QHn?<NK\HnHnN1P(n||nN^NuNVHn?<NK\(nz.EGs8Pz)E|n-n N^NuNVHn?<NK\(n8s| z)E|)ys9n 9n-n N^NuNVHn?< NK\(n8s|z)E|)n-n N^NuNVHn?< NK\(n8s|z)E|/ BBg?<N3pX (_/)_-nN^NuNVHn?<NK\(n8s||z)E|)n 9n -nN^NuNV nCp QHn?<NK\HnHnN1P(n)n |Blz:.)E|B,N^NuNVHn?< NK\(nBT)n)ys |9|z:.)EBl|n &n)S(n(N^NuNV n Cp QHn?<NK\HnHnN1P(n|)n(n)nN^NuNV nCp QHn?<NK\HnHnN1P(n)n B,B9nN^NuNV nCp QHn?<NK\HnHnN1P(n)n B,)nN^NuNVHy.<N\Hy.<N\Hy.<N\Hy.<N\Hy.< N\Hy.<N\Hy.<N\Hy.<N\Hy.<N\Hy/<N\Hy/ < N\Hy/<"N\Hy/<#N\Hy/<$N\Hy/<'N\Hy/&<(N\Hy/-<)N\Hy/2<*N\Hy/<<@N\Hy/G<AN\Hy/V<BN\Hy/`<CN\Hy/g<+N\Hy/m<,N\Hy/r<-N\Hy/u<.N\Hy/x</N\Hy/}<0N\Hy/<1N\Hy/<2N\Hy/<3N\Hy/<4N\Hy/<5N\Hy/<6N\Hy/<8N\Hy/<7N\Hy/<9N\Hy/<:N\Hy/<;N\Hy/<=N\N^NuNVB'N1TB<N3*T#sB<N3*T#s B<N3*T#sB<N3*T#sB<N3*T#sB<N3*T#sB<N3*T#s B<N3*T#s$B< N3*T#s(B< N3*T#s,BN3#s4B/:.E(n8.D&n 64PFC:3@C8.D(n9@ ndRn`N^NuNV(n &nz&Q(nHT.N@\N^NuNV(n &nz&Q(nHT. .N@@PN^NuNV(n&nz&Q(nHT. . .N@lO N^NuNVBy ycN&:9EI BtP ydRy`N^NuNVHy,Hy <<<FNB$OHy,<G<H<MN@lO Hy,<I<J<KN@lO Hy,<O<E<PN@lO Hy,<<<N@lO Hy,<LN@\HyHy <E<<NB$OHy8Hy<< NAO Hy8<"<#<BN@lO HyDHy <F<G<HNB$OHyD<I<J<KN@lO HyD<M<ON@@PHyD<E<N@@PHyD<<P<N@lO HyD<LN@\HyPHy <<<NB$OHyP<<N@@PHy\Hy <<< NB$OHyhHy < < NAO Hyh< < N@@PHyh<<<N@lO HyHy <<NAO HytHyDHyN@O HyHy <.<6<4NB$OHy<,<8<2N@lO Hy<3<;<9N@lO HyHy <0<1<!NB$OHy<5<=N@@PHyHy <<<NB$OHy<B<CN@@PHyHy <+<=NAO HyHyHyN@O HyHyHyN@O HyHy <ENAO HyHy <<<FNB$OHy<G<H<MN@lO Hy<I<J<KN@lO Hy<LN@\HyHy <<ENAO HyHyHyN@O HyHy<NAO HyHy <<NAO Hy(Hy <<NAO Hy4Hy </NAO Hy@Hy<<5NAO HydHy <7NAO HypHy <-NAO HyLHy <$NAO HyXHy <:<7NAO Hy|Hy <<<NAO Hy|<<%N@@PHyHy <NAO HyHyHyN@O Hy<+B'N@@PN^NuNVN NHtHn(nHT<NAO HnNMpX<?<)NIPXNH92 fNHt(nHTNKvXN$?<*NTH2z#4N <(nHTHy ?<*NHO N^NuNVHn(nHTHyPN@O HnNKvXB'HyP92N@\JgNHtHnNKvX`N^NuNVB'Hy92N@\JgNHtHn(nHTHy\N@O HnNLXB'Hy\92N@\JgNHtHnNLX`N^NuNVHn(nHTHyhN@O HnNLXB'Hyh92N@\JgNHt(nHTNLXN^NuNVHy(nHT?<3NHO 92 fNHt<-?<$NI&XNJ@N^NuNV92 Ef NJ@N92 fTNHtHn(nHT<<NAO HyHn?<NHO NJ<?<)NIPXN92 f`NxNHtHn(nHT<<NAO HnNMpX<?<;NIPXHn(nHT<NAO HnNMpX<?<NIPXN?<1NTNH(nHTHy ?<1NHO N^NuNVHn(nHT<NAO Hn<NJ\<?<%NIPX(nHTNOXN^NuNV92 Eg 92 ,f`N92 Ef(NJ<?<%NIPX(nHTNSXN0NHt92 Efl=y:N$ 92 f?.NtTNHtNJ@N4<N 2T?.NtT92 fNHtNI`N<N 2TNJ@<-?<$NI&XHn(nHT<!<1NAO 92 1g 92 =fN2<-N 2THnNOHX92 !gN N$ `92 1fNHt(nHTNOXNJh92 f N$ NR92 !gD92 =g892 1g,Hn(nHT<,<ENAO Hn?<NH\NN^NuNVHn(m(lHT<=NAO HnNOXNJhN^NuNVHn(m(lHT<<-NAO HnNNX92 gN N$ `<-?<$NIPX(m(lHTNSXN^NuNV92 g 92 f`N92 f`N~NHtHn(m(lHT<<NAO 92 g692 fNHtHnNMX92 gN N$ `<?<)NIPXN&?<-NT<N 2T<N 2T92 f NHtNJ@N^NuNV/-+NHy8(nHT?<,NHO B'Hy92N@\Jg(nHTNNXNB'Hy892N@\Jg`Ny2NHt. f NQN~.  f NQNj. #f"<$?<8NI&X(nHTNSXN>. "f"<-?<$NI&X(nHTNNXN. BfNR,NNH+_N^NuNV92 EfFNHt< ?<+NI&XHn(m(lHT<NAO HnNMpXNI`Hn(m(lHT<=NAO HnHy ?<NHO N^NuNVHn(m(lHT<NAO 92 Ef`NHt92  fN$ HnNSXN2J9g<&N 2TN?<+NTHnNSXNI`Hn(m(lHT<=NAO HnHy ?<NHO N^NuNVNHtHn(m(lHT<<<NB$OHnNMpX<?<NIPXN^NuNV92 Ef`NNHt92 fNU92 fXNIN^NuNVHn(nHT<<<=NB$OHyHn?<NHO 92 Eg?<NTNH=y:N=y:NHt92 g 92 f`N92 f`NNHtHn(nHT<<NAO 92 gL92 fNHtNJ<?<%NIPXHnNMX92 gN N$ `<?<)NIPXN&?<-NT<N 2T<N 2T92 f NHtNJ@NIJ9fN(nHTNcX92 Ef":9:ng ?<NTN$ N?<NTNIN^NuNVHn(nHT<NAO HnN]&X92 gN N$ `B'Hy92N@\JgNn?<NTHn(nHTHyN@O Hn?<4NH\92 fN$ `B'Hy92N@\JfNNN 2TN~92 f`NxNHtHn(nHT<NAO B'Hyt92N@\Jg*HnHyN\P92 gN NHt`<?<)NIPXN<N 2T<N 2TNB'Hy92N@\Jg`Nxy2NHtz. N,:Hyt(nHT?<NHO Hn(nHT<0<1<=NB$OHnHy4N\P</?<NI&XHn(nHT<0<1NAO HnNXX92 0gN NHtN~92 1fNHt(nHTNXXNJhNHnHy<=<NAO Hn(nHT?<NHO (nHTNXXNJhNNhB'Hy92N@\Jf J92g`N^Hy(nHT?<NHO B'Hy92N@\Jg(J9f <BN 2TNH(nHTNcXB'Hy92N@\Jf J92gNHn(nHT<=NAO 92 +f&J9g ?<7NTNHtHnNXXB'Hy92N@\Jg$?<&NT<+N 2THnNXX<=?<(NI&X<?N 2T+_N^NuNV nCp QHn<N@\HyHn?<NHO NJNIN^NuNVHn(nHT<<<=NB$OHn<(<'<)N@lO HyHn?<NHO 92 EgNH=y:N=y:NHt92 f\NHtHn(nHT<<<=NB$OHn<(<'<)N@lO HnNMpX<?<NIPXNI92 )g 92 'f`N~92 )f8NHtNIB992 'g?<=NTNN$ NNHtHn(nHT<=NAO HnNeXNhJ9g(N~B99rg?<NTN^Nu92 (f`NJ9gJ9f ?<6NTN$ 92 *f NHtN2J9g?</NT<*N 2TN<(N 2THn(nHT<)<'<=NB$OHnNeXB9(nHTNcX92 Ef":.y:g ?<NTN$ N?<NTN^NuNVN.NBXN?N.rNBB9N$ N92 @fz`zJ9gNHt<C?<.NI&XNJ92 Af,NHt<C?<.NI&X92 EfNN<C?<.NIPXHyNf>X92 g ?<5NTN.N^NuN@NV?</<hNK\N^Nu   H 3  % ! &D 3{ TH@D? T. # 0=JWd  4D (5BHPV`cgr  @ @(  :A  N@H@$!   8  AL      DS    2@D$  2+8 =  -G    " ' f  <" D@  < ]  3 Ts t   *   JI Di H "E]{ ~D  K+ I) @ & J PRH` P# & #E B $S= $#E *4" @@H" B(@(D@@ 4\a l A  Jf "$9 " [ NDH  N"  @9) ''  5 8D 1 8I Q  @ @  4 Zy A[ A\ 0h@AHH$$  A BAAA: hs  r@ *! @DA"@D'Y 4   % b-r bz  ]   (D  AA!  DHD    V$Iz !DQQ%P *!   HH$$H@ $HG ! $ $ BHA))" D@A$$" D @$)H!R! B" H$H$$@AAJ !BD @D"H      ; $  $ -h"Π -  -@.( .r@ .H@ .@@ .Ao 1DC 11F 1  Y 1 $>2W 23 22 23 22 3* 3b 3p 3 3 3 34 3 42 4T 4 45 44 5 58 5b6s 5b5 56 55 67 66% 26PD"B!D"B!D"B!D"B!D"B!A{ p9(@@ ADADA" !@B !B!@"B@DAD ! !D"B A!* 9( #-7AKU_ip%)06@JT^  f(+:2=MaI ?R @A @@@ @l P A A b B$J5 BXA} bB BDB@ DB  " HH B@!$"@HHB@!HHB@ H$! B@@D HtZ H@Z Hι H @ I&@w IP@ۡ I@ I@Y I@ I I J \0 J@ \X JhKw JA$!@: K$[O KvA$@ D֞ L!$~ L !$] Mp!$@w M@ NB@ | OH   $O@  H $@ B @ [c Qb Q@@@ U R,@ B!AH4, S@"1" T>@@1! TA @Af U U A  . V@" "W!@   $"i X D$ BH$ YA"@  ZTH  A  m [@@A \4 @@?( \!$@ n]& H $H @$ D @@ @ @ "@ B ! @ H @@$ , ]&] &c $AA  ! Ɓ e! ' 0f>$  "AH!@$DAAD f>g hII Da i@m i #j  !$'*-0369<?BEHKNQ,z".{2|rx-NVByN;N^NuNV<.N9zT:9RE3:9 E(cN2N^NuNVz.Ey?NTN^NuNVJ9gHyq?.N_\N^NuNV*.x?NT*.?NTN^NuNVB9N^NuNVN^NuNVB'NzTHyqN^nXN^NuNVN^NuNVRyr:9 E,d2Hyq:9y?N_\Hyq?.N_\N4:9 E,f&Hyq?9N_\Hyq?<N_\N^NuNV=y3:9yg`Hyq?9N_\Hyq?9N_\?.N8THyq?9N_\Hyq?9N_\N?.N8T3N^NuNVByrzRE3zSE3N^NuNVHyqHnN_Pz:.-EHyqHnN_Pz:.(.p؅-D(n(N^NuNV33 HyqHyN_P:9E3:9Mz9 NETHyqHyN_PNPHyqHyN_PHyqHyN_PN$Hy NXNHy NXNHy NXHyqHyN_PNHyqHyN_PHyqHyN_P<QNzT?9NT?9NTB9 NHyqHyN_P9 Sf 3Hyq?9N_\Hyq?9N_\B9 N$N $$$PPPPbP$tJ9 fN4J9!f29 Cg9 Ag 9 @fN2!9 BfNFN^NuNV9NzT9 Ef?9NTN9 Fe9 Pb`N9 Pf /9 NX?9NTNt9 Ig$9 Jg9 Kg 9 Lf/9 NXN29 Mf/9 NXNz:9/NXNN^NuNVN2HyqN^nXN^NuNV33B9!N^NuNVz:.#"Hyq/9"N^PN^NuNVHyq(nHTN_.PN^NuNVHyqN^nXN^NuNV9.gN`NN^NuNV9 Ef N9 fNN`N^NuNV9 Gg9 Jg 9 LfNNN 9 Pg 9 MfNN^NuNV9 ,f\<NTN9 -f<NTN FN`9 1fNN FNNN^NuNVz9 N4<-NTN NN9 Ef<NTN `N FNNNNN N<NT9 f NN NNN<NTNNN<NTNpNl "^^nN^NuNVBn ncN,:.EIr8.D&n7P@ ndRn`N^NuNVrN^NuNVNNN^NuNVByN(NZNNN^NuNqNqNqNVN^NxNVz(. fB.N^Nu(n *.,  ex` f(,  f"/ B'/,/.N P(_Jgz`zEN^NuNVz(n(z(.gN(n:. Tc -lN8:. Td z-EN&, f &n&N &n&-l`N^NuNV/. ?9(nHTN O N^NuNV(mJ,f`N-y&z-Ez(.g (mJ,f`N(n(T:nf &n-SNl, f$J,,f/ /,(?.HnN O (_N>, f2z(,g(&lJ+f/ &l/+?.HnN O (_(n-lz(.gz`z(mEN>N^NuNVz(.g`N-n(n, f (n-l(n, fJ,,f/ /.N4X(_NL, f2/ B'/,HxN P(_Jg/ /.N4X(_N/ ?N T(_(n-lNTN^NuNV/-+NB.(n/ ?N T(_, fJ,,f/ /,(N ~X(_N4, f(z(,g&lJ+f/ &l/+N ~X(_J.g ?<FN8THn?<NK\(n()y&#&+_N^NuNVz(. g(n -l$Nz-Ez-Ez(.f z(.g`N(n(T:yf &n-SN, f&J,,f / /,(?9HnN O (_Nh, f\/ B'/,HxN P(_Jg>-l&n+  f &n-k/ &n/+?9HnN O (_(n-lN((n(N^NuNVz(.g"-n(n-lHn?<NL\`z#&/9sN4XN^NuNV(n(&N^NuNV(n=T(n -Tz(.g6(n:nb*(n:nf ?<HN8T-n(n-l`(n)n*.(n f (n (N (n)nN^NuNV:9j Eb`N:9jI*IP/ /?9&nHSN O (_z&n(fH-lz(.g8z&n(f,&nH/?9$nHRN O L-k`z&n(fJz(, g@/ /, &nHSNP(_z&n(f/ /,?9&nHSN O (_N z(n(N^NuNV:9j Eb`NHnNXz(.f$:9jI*HtP/.NXPN(n, f`N(n&n'lz(,g&l+ f &l'n&l+ f**+(f :9jE*%P'n(N'nHn?<NL\N.?<HN8T:9jI*HtP/.NXPN^NuNV:9j EbLHn?< NK\(n:9jG*(P9y)n:9jI*)PN^NuNV:9j Eb`NB.=y:9jI*-tPz(.gh(n3/ HnNX(_z(.g&n+ g |N&n$l%k-n-THn?< NL\`3J.g ?<ZNTN^NuNVz(n(:9j Eb`N=yj:.I*IP/ /?9&nHSN O (_z&n(fH-lz(.g8z&n(f,/ &n/?9&nHSN O (_&n-k`z&n(f z(, gN SnN^z(n(f(:.I*/4P?9(nHTN O z(n(f :.I*/4P (nHTNPN^NuNV/. ?9HnN O z(.f`Nz(.f z(. g`N-n (n, f (n-l(n, fJ,,f/ /,(HnNHP(_Nh, f\/ B'/,HxN P(_Jg>-l&n+  f &n-k/ &n/+?9HnN O (_(n -l N*(n(N^NuNVz(n(:9j Eb`N~:9jI*/4P?9(nHTN O z(n(f.:9jI*/4P?9(nHTN O N&n(S, fz(n(N^NuNV:9j EcB. N^NuBn=yj:. Ec`N:.I*IP&l J+,gB. N^Nu/ /,?.HnN O (_z(.f^Bn:.nd:/ /,:.EG?3PHnN O (_Rnz(.g=n`z(.fB. N^NuN:.EG7PRn&l =SSnN(| N^NuNVRyj:9j Eb4:9jI*IP()n)n )n z)EN?<ONTN^NuNV:9j Eb":9jI*IP&n &&n&SyjN^NuNV(n, f"/ /,/,/,(/.NO(_N$/ /,/,/. f:.n-EN . f:.8.D-D(nJgB(n(N^NuNV nCpQ nCpQz:.-Ez:.-E(nB|*. c J.fz`zE*<R-E*. c J.fz`zE*<R-E. fr/./.Hn(nHTN)O(nJfJJ.g*. cz`z(nN**. cz`z(n*<R-ENp. g . fZ/./..Hn(nHTN*tO(nJf2J.g*. cz`z(nN*<R-E(nJgB*.H(n(N^NuNVB.B*.d-n-nN-n-nJfNv*.g4J.fz(.cB(nNHN*.ڮ-E*.-E*. c |NHx/.NX-_`(n (N^NuNVJf(n(n BN-nB-n*.d*. b *.-E`*.e*.-E*.R-E*.fN*.-E*.-E`. f (n (N (n (N^NuNV nCpQ nCpQ(nBz(.fB(nN (n-Tz(.fB(nN (n-T. f/./.NX-_N4/.N vXfB(nN/./.NX-_(nHT?<NK\(n(T(N^NuNV n CpQ*.Jfz`z(n(N^NuNV nCpQ nCpQ(nB(n-l(n-l(n(T-lz(.fz(.fz`zEJ.fz(.f-n-n-nBn&n (S:SE?0.WcNJ.g(n:.B4PNz(.f`Nz. N(n:.4P(n:.PN|(n:.xF4P(n:.PNZ(n:.4P(n:.PN:(n:.x4P(n:.PNNNn ,(nNz. N(n:.&n8.3@4P(n:.PN(n:.&n8.4PF3@(n8.@Nl(n:.&n8.3@4P(n:.PND(n:.&n8.4P3@(n8.@NN` 4(n0.WdRnNNzT(_/ <TNzT(_/ /,NX(_/ <NzT(_/ <NzT(_Rn`N^NuNV:9SEEI84PRD=D:.yb$:.ItJ4Pg |N^NuRn`:9 Ef|N^NuN B.N^NuNVByByN^NuNVz(. fB.N^Nu(n *.,  ex` f(,  f"/ B'/,/.N2P(_Jgz`zEN^NuNV(nHTNXN9 gNTz(n(g2&n(S, f"N&n(S/,((nHTNHPN?<iNTN`z(n(f?. NTN2&n(S:., ex` f?<gNTz(n(N^NuNV(n 8)ys 9yz)Enz)EN^NuNVB.J.gn(n :g&:. Ec(n : Ed (n RTN|(n &n6*<n(n 8Eb(n :n(n 8N|N(n JTc*(n :nc(n :n(n 8N|NJnc*<nRE(n 8(n :g&:. Ec(n : Ec (n STN|(n &n6J.g ?<dNTN^NuNVBn=|Bn ncN:.IB4P ndRn`|B'(n //<N2PJg&n (S-lN?<cNTz-Ez(n (z(.g`N(nz, N b-l:, nc=l :,nd=lNJ:, nd=l N6=|N,=|N"N6JT^^^^^^^ z-EN9 g`NHnHnHnNHO z(.fB'/.HxN2PJg-nz(.g0*.g$*.sf*.sg *.sf`Nd:.ne:.nb *.sf?<bNTN0B.:.nb :.MI8.Dp 4PRn`N?<aNT9 fNNNz(n (g&n (S=TN=|:. Ec`NJ.g z-ENb:.gRnHn?.NK\Bn&n (S:SE?0.WcN&:.I&n8.P@0.WdRn`THn?< NK\(n8)n9nz)E(n(N0z.x.v.pt.pԃԄԅ(n(N^NuNV*. gz(. g z(.f|N^NuN*. sf*.sf|N^NuN~*. sf&*.sg *.sf|N^NuNL*. sf*.sf|N^NuN&*. sf2*.sg*.sg *.s$f|N^NuN*. s$fV*.sg<*.sg0*.sg$*.sg*.s g *.sDf|N^NuN*. s f>*.sg$*.sg*.s$g *.sDf|N^NuN<*. sDf&*.s$g *.s f|N^NuN B.N^NuNV(nz(gF&T+ f:&T: Ec0/ &lHk&l?+NL\(_/ Hl?< NL\(_N^NuNV-n-n Bn:.SE?0.WcN&(n:.&n8.P@0.WdRn`TN^NuNV(nz(B9 Fe9 Pb`N(nG9 Ig09 Kg$9 Jg9 Lg 9 Pf & N"9 Mf & N 7yBSz9 NF (sN(sN(sN(sN(s$N(s N(s(N(sDN(s N:9 Eb:9EEsLx&2PfTHBBg:9SE?/9s/9s NLO L/(:9 Eb:9EEsL%PN:9EEsL(PNN *>4RH\fJ9 gj9 Gg9 Jg 9 LfFHNLH?<?<IHnN3LPL$n(*sf*H&NHNLN9 Ef`N?<?<IHnN3LP9 fXz(.g(n, f(n&n&Nz(.g ?<gNT(nHT(nHlN5bPNtz(.g (nJ,f`ND(n&n&*,s(f*/ &nHk?<NK\(_&l$n$j$Nz(,f/ ?<INT(_N&l+ f&l: Ec`N/ &nHk?< NK\(_&l=S:.gRn&n&k6z'E7nz'E&n&kz(+gH/ &n&kHk?.NK\(_/ &n&k/+&n&k/+&l?N:O (_N&nEGz&QNz(.g ?<gNTN9 f$(n(s4(nHT(nHlN5bPN9 fN(nHTNETXNNb9 fTN(nHTN;&XB'(n/HxN2PJg(nHl(nHlN, PN?<NTN^NuNV(nHTN;&X9 e9 b`NyNHnN;&X(nz(fI&nz&QN(n*sf&/ B'/.HxN2P(_Jg(N^*s$f&/ B'/.Hx`N2P(_Jg(N.*s f"/ B'/.HxN2P(_Jg(/ B'//.N8P(_Jg`Nz. NFz#*N:#x*N,#*N#x*NN 4&4/ B'//9*N2P(_JgB/ HlHnHl.HTHy.N%"O(_J9.g/ ?<^NT(_N/ ?<NT(_N/ ?<NT(_HnN:zXNN^NuNV9 g 9 fz`zEJ.gyN(nHTN@"XJ.g`N(n*sg(*sg*sg*s$g *s(f`Nf. fV*s(f z-ENB/ HnHlHl<HTHy.N O(_J9.g/ ?<^NT(_NN*sg*s g *sDf. f/ ?<yNT(_N/ ?<yNT(_9 e9  b`NyNHnN@"X(nz(fI&nz&QNv(n*sf&/ B'/.HxxN2P(_Jg(N^*s$f&/ B'/.Hx`N2P(_Jg(N.*s f"/ B'/.HxN2P(_Jg(/ B'//.N8P(_Jg`Nz. N*z#*N#x*N N / B'//9*N2P(_JgB/ HlHnHl.HTHy.N O(_J9.g/ ?<^NT(_N/ ?<NT(_N/ ?<NT(_HnN:zXN&N^NuNV(nHTNB4X9  e9 b`N\ByNHnNB4X(n-T-n. f`NB'/./<N2PJg`N(n-l(ys4*.꺬f (n-lB'/./.N8PJg@(nHlHnHn</.Hy.NOJ9.g ?<^NTN?<NTN?<NTN>B'/./.N8PJg`N*.sg *.s$f -nN *.s f*.꺹sDf-nz. N R*<s#*N>*<s#*N(*<s#*NN 8"8"B'/./9*N2PJg@(nHlHnHn./.Hy.NOJ9.g ?<^NTN?<NTN?<NT(n(s(nGIz(QHnN:zXN^NuNV(nHTNETX(n*sg *sf,*, b (sN*, b(sNF*sg*s g *sDf&*, b (s$Nz(,b(s N^NuNVHnNGX-n=n=n9 f`NNB'/./9sN2PJg`NHnNGXI*.sf$/ B'/HxN2P(_Jg-TN*.s$f$/ B'/HxN2P(_Jg-TN*.s f$/ B'/HxN2P(_Jg-TN*sf&/ B'/.HxN2P(_Jg(N^*s$f&/ B'/.HxN2P(_Jg(N.*s f"/ B'/.HxN2P(_Jg(*.ff=l*.sg *.sf$:.nl=n/ ?<_NT(_N":.nd=n/ ?<_NT(_N/ ?<_NT(_N?<`NTHnNGX(n((n 8(n8N^NuNVHnNGXI&n &G$nz$QN^NuNVBnBnz(.g`N(nz, N R=l Nf=|N\=|NR/ ?<lNT(_N>=l =lN.N  ****NNN>*/ ?<mNT(_(n 8(n8N^NuNVHn?<NK\(n/ B'/. *<`F(9sȅ/N2P(_Jg &n 8N2BT/ B'/. Hx`N2P(_Jg/ ?<N8T(_z)EB,| )n 9n 9n:,l ysc/ ?<N8T(_-nN^NuNVB'/.HxN2PJg$JnlJn m*<nREn =EN:. n=E=nN^NuNVHn?<NK\(nz(.g`N/ Bg?.?./. NLnP0(_?=_&n=S:.g:. Eg:. EdRnBT:.RE=E:.ysc/ ?<NT(_BTNZ:.nd=n=nN=nJnc*<n8Eb Sn:.T`Jnc/ ?<dNT(_NBTz)EB,|B,)n/ B'/. HxN2P(_Jg )n N$/ B/. ?.?.NKP (_/)_ -nN^NuNVHn?< NK\/.<N4\(n&mk9y|z)E(mz(,f(m)nN(m(l)n(m)n(mJ,g /.NXN^NuNV/-+Nz-Ez-EBnBn|9 f`NN9 g`N9 fN|N|-nJ.g$9 gNN4N`NNNN4HnHn.NblO B.B.B'/./<N2PJg`Nh. f\B'/.HxN2PJg =|N|(n=T(n, f (nJ,gB.|?<LNTz(.f -nN (n-lz(.g`N(n-l)nJ.gZ|/ B'?.HnHlN4JO (_*,30/ B'?.HnHy0N4JO (_z:90)ENvJ.g:|J.gB,/ B'?.HnHlN4JO (_z:,)EN6*,30/ B'?.HnHy0N4JO (_z:90)EN NNJ.g z(.g`N~:.ys=E-nz(.g^(n, f :.lN.J,f|:.lz:.䛬N z:.䛬/ /.NX(_-l`9 f/ B'/.Hx@N2P(_Jg )nN/ ?<NNT(_B|BlNNNJ.g`NHnNa~Xz(.fBnN (n=Tz(.g`N~-n(n-l)n, gJ,fF*,3n/ J,fz`z?.&m&k HSHynN4JO (_z:9n)E/.NXNvNN N.N^NuNV*. g&z(. g (n , f(n *,fz`zEN^NuNVz(.g(n, f(nJ,gz`zE N^NuNV(n&n +,fz`zE(n -l(n-lJ.g *.g`Nz(.gz(.g(n&n+,gB.N(n-l(n-lB'/./.NmhPJfBB'/.NmXJg4B'/.NmXJg"B'(n/,(n/,NmhPJgz`zE(n-l(n-lN0J.g,(n , fB'(n /,(n/,NmhP_J.f ?<SNTN^NuNVJ9 gHnNXXNz-Ez(.f`NPz-EJ9"g.Jyf&B'?9NTJg/9$HnN rPBnHn?<$NK\/.<N4\/.NXNRy(nz)Ez)E9yB,B,#J9 g 9y/ N(_/ N(_N(z(.g&n9kN9y(Ry(&m9k z(.g&nJ+"gz`zE"/.NX/.NXJ9 fz`zHn(nHlNNO (n&l'n&lkz(.g<(nz0, ex` g$(n/,(n/,NmPHnNgFXJ9 f.J9!f&<BNzT/.NXHnB'Nq\/.NX(nJnfBlN*<nRE9E:,gRl:,ysc/ ?<NT(_/.NXSyNNNN N^NuNV/-+NN09 fNNjN~9 BfNNo,Nb9 Cf N(m?, (n HTNt\N69 fNNi"N9 f NNh9 +g9 ?gNN9 +g B'N2bJgdJ.g(m?,N1T9 +f N N<+NzTN19 ?gN `J.g <?NzTN N1+_N^NuNV/-+N<CNzT/.NX9 f\NHnHnNJP*.sf(:. Eb:. Eg :. nb =n N?<PNTN/.HnN1BP(n9n NeNc/.NX(nHT<Nq\Nd/.NX/.Ne(n:.EI08.DG63@tPg ?<VN8T ndRn`NHnN XJ9!gN Hz(.f I@   $ #-37=7 Z@Ts Zs   (" A @ AA@"Af X 2;AGMQWv|   AD Ap   2  < S <  u d    D H$= A@. F "DHŠ   $$B     &  H ^  Xg  lI     r    ~@ 4 !O 4J %  /  N FU Xk @ !8. n\ @;   R!I~ RQ @ N, H B X   O @j XB ( * ) H@ ; ! &,E d*s rA[ * * A[ @ / g &H   <I Zk|!  @@b 3 4!,%, 3:Aq& $f=I T%e %"@@g %"3 % &0 (q ,&0%, 3:Abnt) ( H= )R* +(AK \g, ,<k - .@/ 0RAqa 0d2x 0d ,01" 0 0 0s 0 1 1A 1B$ gs 1B 1a 1@@r 1 z 2b c 2D 2: 3L$ I 48- 440 4J5i (5b$  5bP Kt; l8! .4:GMZ`flyE :z' : T;&A !  @ @@@L X;&T] bglqv{z(M" &@" D  H @ e @"9Q iA 6B4@@  A@ A @ 8B4.3 8=BO|*IM .ET ! $! B ,ETK 3M& GI (G  '-27AKI &H @HL (H!7 Og~M+ JN JK JK K K K UL: LnL LO LE M/ N4 Rl N4NM BNAD      { NC W1 &R@D % $R5 X T @@H T U VhV V W^Wy W^6W W WEa lY XY X"S erZ RZ,D @  @ @" D D" DB"f $Z,.}  &a _BD@ _>W _ _  _ ` ` `(` a*@ay aH a a~AAAA@ < blBr bl *7kd' cH"c. cGc de e< @U eD!DD D@ gF_ gF=K k{i h D@ h$h i" !  o' i"Eiy 2j  @@$  @ j6j m  .o,@BA! DA@Ii o,>* p q B$ @$oj sA@ B s&sP tD tB@ tt t@!n t vJ v@ :wj$@$DIB  DA"@! ?5 8wj  9>$ zI ( z@ z {*  !$'*-0369<?BEHKNQ,v".v&xPV!NVByN;N^NuNV<.N9zT:9RE3:9 E(cN&N^NuNV(y9nz(f/ HT?<NK\(_&Tz&#Sy,Jy,fB9/N^NuNVz.Ey=EJ9.gpz. NQ(3,N3,NN By,Jy,cz`z/J9/gN?.NnTHyq?.N_\N^NuNVJ9/g ?.NnTHyq?.N_\N^NuNV*.x?N`T*.?N`TN^NuNV(y&)y/ HyqHy0N]P(_*90xJg / pN(_*909Ez(f/ HT?< NK\(_&Tz&#&N^NuNV-y"*.&g(n:,nd (n-T`*.&g`N(n-l/ HyqHy0N]P(_*90xJg / pN(_*909E-T(n:,ME. Qf =|N=|Jnc(n?,N`TSn(n-T`NPN^NuNVJ9.g Ry*N$.##"&By*HyqHy0N]P*90xJgpN*90(n8N^NuNVz:.#0Hyq/90N^P?.N4TN^NuNVJy*f B9.NSy*N^NuNVz(9g*#(y#Hy?<NL\`z(9"g*#"&(y"#"Hy&?< NL\`B'NTHyqN^nXN^NuNVHy?<NK\(yz(Hy"?< NK\(y"z(B9.B9/N^NuNVRy4r:94 E,d<RNT?.N`TN&:94 E,f<RNT?<N`TN^NuNV=y3:9ygD<SNT?9N`T?.NT<SNT?9N`TN?.NT3N^NuNVBy4rN^NuNVHyqHnN_Pz:.-EHyqHnN_Pz:.(.p؅-D(n(N^NuNV33/9NXN,N(j 000FFFFXjjjjjjNN^NuNV3N^NuNVHyqN^nXN^NuNVN&N NN^NuNVByNlNN N^NuNqNqNqNVN^NNVz(n(z(.gN(n:. Tc -lN8:. Td z-EN&, f &n&N &n&-l`N^NuNV/. ?9 (nHTN DO N^NuNVB.z(. gL(n *.,  ex` g |N*,  f/ B'/,/.N P(__nN^NuNV#>N^NuNV(n(>N^NuNV(mJ,f`N-y>z-Ez(.g (mJ,f`N(n(T:nf &n-SNl, f$J,,f/ /,(?.HnN DO (_N>, f2z(,g(&lJ+f/ &l/+?.HnN DO (_(n-lz(.gz`z(mEN>N^NuNVz(.g`N-n(n, f (n-l(n, fJ,,f/ /.N X(_NL, f2/ B'/,HxN P(_Jg/ /.N X(_N/ ?N XT(_(n-lNTN^NuNV/-+NB.(n/ ?N XT(_, fJ,,f/ /,(N BX(_N4, f(z(,g&lJ+f/ &l/+N BX(_J.g ?<FNTHn?<NK\(n()y>#>+_N^NuNVz(. g(n -l$Nz-Ez-Ez(.f z(.g`N(n(T:y f &n-SN, f&J,,f / /,(?9 HnN DO (_Nh, f\/ B'/,HxN P(_Jg>-l&n+  f &n-k/ &n/+?9 HnN DO (_(n-lN(z(.f(ys/,(?9 HnN DO (n(N^NuNVz(n(g((n-T&n(S&n&Hn?<NL\`N^NuNVz(n(:9 Eb`N=y:. IB/4P?9 (nHTN DO z(n(fR:. IB-tPz(.g4z(n(f((n/?9 (nHTN DO (n-l`z(n(f :.yfN SnNXz(n(f":9 IB/4P(nHTN P3N^NuNV/. ?9 HnN DO z(.f`Nz(.f z(. g`N-n (n, f (n-l(n, fJ,,f/ /,(HnN.P(_Nh, f\/ B'/,HxN P(_Jg>-l&n+  f &n-k/ &n/+?9 HnN DO (_(n -l N*(n(N^NuNVRy:9 Eb(:9 IBIP()n )nN?<ONTN^NuNV:9 EbB:9 IB-tPz(.g"-n(n-lHn?<NL\`:9y c 3 SyN^NuNV(n/ /./,(/O (_:9 Eb3:9p y / /O (_N^NuNVN:9 Eb4:9p F@y Sy:9 89 Dex` f`NN^NuNV(n, f$/ /O (_N/ /O (_N^NuNVNN^NuNV/O N^NuNVNN^NuNV:9y=EN^NuNV33 N^NuNV:9 y=EN^NuNVByBy3 ByBy :9 IBIPz(z)Ez)EN^NuNVNN^NuN 2NVN^N)`NV nCpQ nCpQ*. sf(HnHnHn./. (nHTNON*. s(f(HnHnHn./. (nHTNONh(n , f4(n : Eb(HnHnHn./. (nHTN'ON&HnHnHn./. (nHTNO(nJgB.z.(n(N^NuNV nCpQ nCpQ(nB=n=n-n-nz. N D*.fz`z(nN.*.gz`z(nN(n , f:.8.FDDfz`z(nN*.bz`z(nN(n , f:.FEnfz`z(nN*.ez`z(nN*.dz`z(nNp*.cz`z(nNVJne0:. Eb&:.8. Dex` gz`z(nN (nNN &@N^NuNV nCpQ nCpQ(nB=n=nz. N :.nfz`z(nN:.ngz`z(nNz:.nnz`z(nN`:.nmz`z(nNF:.nlz`z(nN,:.noz`z(nNN &Zt@N^NuNV nCpQ nCpQ(nBz(.fB(nN (n-Tz(.fB(nN (n-Tz. N /./.N 4Pfz`z(nN/./.N 4Pgz`z(nN/./.N 4Pnz`z(nNx/./.N 4Pmz`z(nNV/./.N 4Plz`z(nN4/./.N 4Poz`z(nNN .rPN^NuNV nCpQ nCpQ(n *sf,HnHn(nHT.(n HT(nHTN@ON(n *s(f,HnHn(nHT.(n HT(nHTNnONt&n (S, f:&n (S: Ec,HnHn(nHT.(n HT(nHTN%DON*HnHn(nHT.(n HT(nHTN4ON^NuNV nCpQ nCpQ=n=n-n-n(nB(n *sg8(n *sg*(n *sDg(n *s g(n *s$f`N. f(z캮e*.ڮ-EN (nNd*.캮b*.-ENJ(n *sf2zRڮ-E*. d(n(n (sN (n(n *sf*. c (n (s(n *sf*. c (n (s N(n *sf2.  f$z:.Jf z:.Jgz`z-ENH&n (S, f6. f:.n-EN:.FE8.E-D(nJgB(n(N^NuNV nCpQ nCpQ=n=n(nBBn. f0:. Ef=|=|NJng*<nRE=E:. Eb4:. Eb*:.nn=E:. Ecz`z(nN\:. Ec@:. Ec6*<nRE=E:.n=E:. Ebz`z(nN:.nn=E:.H-E(nJgB(n(N^NuNV nCpQ nCpQ(nBz(.fBN (n-Tz(.fB(nN (n-T. f/./.N(X-_N/./.NX-_(nHT?<NK\(n(T(N^NuNV nCpQ nCpQ(n *sf,HnHn(nHT.(n HT(nHTN!ON(n *s(f,HnHn(nHT.(n HT(nHTN$0ONt&n (S, f:&n (S: Ec,HnHn(nHT.(n HT(nHTN%DON*HnHn(nHT.(n HT(nHTN8ON^NuNV nCpQ nCpQ=n=n-n-n(nB(n *sg8(n *sg*(n *sDg(n *s$g(n *s f`N. fp/./.Hn(nHTN"O(nJfH(n *sf*. c (n (s(n *sf*. c (n (s N6. g . f /./..Hn(nHTN#|ON(n *sf2. f$z:.Jgz:.Jgz`z-ENP&n (S, f>. f:.n-EN . f:.8.D-D(nJgB(n(N^NuNV nCpQ nCpQz:.-Ez:.-E(nB|*. c J.fz`zE*<R-E*. c J.fz`zE*<R-E. fr/./.Hn(nHTN"O(nJfJJ.g*. cz`z(nN**. cz`z(n*<R-ENp. g . fZ/./..Hn(nHTN#|O(nJf2J.g*. cz`z(nN*<R-E(nJgB*.H(n(N^NuNVB.B*.d-n-nN-n-nJfNv*.g4J.fz(.cB(nNHN*.ڮ-E*.-E*. c |NHx/.NX-_`(n (N^NuNVJf(n(n BN-nB-n*.d*. b *.-E`*.e*.-E*.R-E*.fN*.-E*.-E`. f (n (N (n (N^NuNV nCpQ nCpQ(nBz(.fB(nN (n-Tz(.fB(nN (n-T. f/./.NX-_N4/.N vXfB(nN/./.NX-_(nHT?<NK\(n(T(N^NuNV n CpQ*.Jfz`z(n(N^NuNV nCpQ nCpQ(nB(n-l(n-l(n(T-lz(.fz(.fz`zEJ.fz(.f-n-n-nBn&n (S:SE?0.WcNJ.g(n:.B4PNz(.f`Nz. N(n:.4P(n:.PN|(n:.xF4P(n:.PNZ(n:.4P(n:.PN:(n:.x4P(n:.PNNNn ,(nNz. N(n:.&n8.3@4P(n:.PN(n:.&n8.4PF3@(n8.@Nl(n:.&n8.3@4P(n:.PND(n:.&n8.4P3@(n8.@NN` 4(n0.WdRnNHn*9s@/N5xP9 gN HnHxxN5HnNbX-ysD|B'HnHnN,PJf ?<NTNHnHxN5HnNbX-ysD|B'HnHnN,PJf ?<NTNN N hNNZ9 f?<NTNzHnHnNiP/.HnN4P*.亹sg*.亹sg ?<NT9 f(N HnHnNiP/.HnN4P`N9 f?<NTNzHnHnNiP/.HnN4P*.亹sg*.亹sg ?<NT9 fN Hn/<N5$k* f0$kJ*g&H$k/*/,+NDO LN*+s8f:HB'/,<N2\LJfH?<NTLN*+spRzHz*\zf zN^NuNV/-+N9 Bf NkN9 CfNkH9 +g9 ?g`B.(n=l Nj9 +fN 9 ?gNu`+_N^NuNVNBy9 CfNkH<?NTN^NuNVN NN3NvpN N^NuN)ZNV?</<vNK\N^Nu &5 &> :D :Q nI! n @Sp H M `@ `    # 'S   0P 4@ 4(. <  [S # /      RH I _ 4 >A l@! u l   8u  IH =Q     &"" H@"D)"D@< H 2;AY_ci  H@f   3     @G  Hi  2 A     6E  FU  X  B@   !N  J T  @c  K  $ @ . B~k >@ Y B$Rt % R2k j$K " ## "A D#S R%a j( % $S # AU  @'  / o &P   <I Zk| &@@[ &3  44%, 3:Aq n=I Tm *@@` *3  8 !y ,8%, 3:Abnt" ! AE "R#$ $0AK \g% %Dk & '@( )ZAji )l @A ! * + +|@n H, Q# ,nt z%+17EKQWekq` 1| U! 1|.1 2N3c 2N# 2 22 3 31 $36  *3:CVa5% 4 6% 4  +14 4  5<@@w 5x9 &5@@͢ 5-B _6 7"A " @@$  H   Dh \7}  N`fe ?@@D4 ?? An@  ̓ *B@ !!A4 B Dw D ŕ D E 6EZ@    @ EZ G HxA@a H H", I! *Ih@@!t IhT W~P- L@@Dc M _A fMV@@ @@ A@^ XMV&1 x$5d *4Aul Sn@D@@@ A@!   H@v TSnj 'V  6[z@@@ [z>X rV^ H^A@ !! @ } ^EK p 'Ald <b@  @@   ͍ ,b 'm fR l (fR!' 1=EKQ[fh *gH@@) (gH : Vr'l im jDD@@@@Z kHD1 k HH  lJ@| lfA| lA l  mX z &mD@  @u oDAu o@  H p @A A p L q, r.@ rf r r!/0 r r sh@   C sh'R t t@ t@ uB!@U uu8 u @ @8 vpA vI v@W v Vw;  !$'*-0369<?BEHKN,".6p,y bad errors in source program compiler aborted ... ---- compiler error NVBnRnz:. HEE08.SDI@z:. =E Jn g`:. E c=| Bn:.nc:.I PRnSn`Jnc":.SEI8.GP@RnSn`:.IB4P?< HnN:&\N^NuNV9rg.?<Hy,N:&\N;?<HyJN:&\N"?<Hy`N:&\?.BgNvXN;N^NuNV?<N4TpNN^NuNVJ.f?<N4TpNN^NuNV|:. M=E:. EPE=E:.8. Dex` fB.N&:. Ef:.8. Dex` fB.J.fNN^NuNqNqNqNVN^NfNNpNNVN^NNVN;ByN^NuNV<.N9zT:9RE3:9 E(cNzN^NuNVz.Ey?NTN^NuNVHyq?.N_\N^NuNV*.x?NT*.?NTN^NuNVr<RNT?.NTN^NuNV=y3:9ygD<SNT?9NT?.N*T<SNT?9NTN?.N*T3N^NuNV(n : EfJ(n 8s:.ys(n 9nz(9sڸf # sN(y)n # N^NuNV:9E. Tf9 fz`zN$. Cf9 fz`zN^NuNV33|HnNpX:.M:.E3z9 NBHyNX9 BfNNHyNpXNHyNpXNHnNpX?.NT:.MN0B.N@Hy NXB'/9 N@XJgHyNXNB'/9 NzXJg`N|(y : EcTHyNX(yz(,g2(y 3":9"gRy"/9?9"N\NHnNX#NHnNX#N`HyNpXNB.NDNN:NN0N, Bn 0J.fNN^NuNV9NT9 Bf/9NXNX9 Qf?9NTN:9 Vf/9NXN9 Sf?9NTN^NuNVNNN^NuNVHyq(nHTN_PN^NuNVHnNpXz:.(n(HnNpXz:.(n(p؅(n(N^NuNV#sz(9g (yz(,g(y#`N^NuNVNzB'NTHyqN^nXHyqN^nXN^NuNVByNByByN^NuN`NVN^N4NV:9$ Ec?<N*TBy$:9$EI$IP8|[Ry$N^NuNV:9$ Ec?<N*TBy$:9$EI$IP8|`Ry$N^NuNV:9$ Ec?<N*TBy$:9$EI$IP8|aRy$N^NuNV:9$ Ec?<N*TBy$:9$EI$IP8 |\9nRy$N^NuNV:9$ Ec?<N*TBy$:9$EI$IP8J.g |]N|^)n Ry$N^NuNV:9$ Ec?<N*TBy$:9$EI$IP8 |_9nRy$N^NuNVBn:.y$d`N:.EI$IP/ ,NT(_/ ?NT(_, \f/ ?,NT(_ND, _f/ ?,NT(_N&, ]e, ^b/ /,NX(_RnNZBy$N^NuNVBy$N^NuNNVN^NNNVz(.gz`zNT(n, fz`zE N^NuNVz(.gz`zNT(n, fz`zE N^NuNVz(.gz`zNT*.sg(n,  f(n*,sfz`zE N^NuNVz(.gz`zNT*.sg:*.sg.(n,  f$(n*,sg(n*,sfz`zE N^NuNVz(.gz`zNT(n: Eb, g, gz`zE N^NuNV(n/ z(gz`zNT(_&T=S N^NuNV:.E=E N^NuNV*.=E N^NuNVBn?9&NT:.y&d:.EIp?4PNTRn`By&NfN^NuNV:9&EIp9PRy&:9& Ec?<N*TBy&N^NuNV*.x?NpT*.?NpTN^NuNVJng`N~:. EmZ:. EnPJnl(:.JElDEHŋHEEQ?NpTN :.HŋHEEP?NpTN?(n J,f2(n*sDg*sg *s f&n |&n &N^NuNV(n, fz(,c z(,ez`zE N^NuNV(n/ ,  g ,  fz`zNT(_J, g`N,  f`NPJ,g`N@=l :.EGFJ3Pg/ Hn<N,\(_N=nJlg$:,JElDE En:.EE(=EN:.EE=E/ :.Ep eE @n?NpT(_Jlg`N:,JElDE En/ ?,NpT(_N^/ :.EGFJ3Pfz`zNT(_/ :.Ep eEE/ N(_N^NuNV:.E?=E:.M8.DDE=D N^NuNV(nz, N :/ / Bg/,N X0(_?NpT(_N$/ /,NX(_N/ /,NX(_N/ ?9&/,B'NP(_/ BNX(_N/ ?9&NT(_/ /,NX(_N/ ?9&N$T(_/ /,NX(_N*, b&/ / Bg/,N X0(_?NpT(_N/ /,NX(_N@/ ?9&NT(_J9gB*, c/ ?<NRT(_/ / Bg/,N X0(_?NpT(_N/ /,NX(_N/ ?9&?, NlX(_J9gB*, c/ ?<NRT(_/ / Bg/,N X0(_?NpT(_N/ /,NX(_N\/ J,f J, fz`zNT(_N8J, fDJ,fN8:,JElDE Eo/ ?<NRT(_Jlg/ ?,NpT(_NN/ J, fz`zNT(_/ Jl gz`zNT(_:,JElDE Eo/ ?<NRT(_:, Ef2/ / Bg?,NT0(_?:,p e_?NpT(_N4/ / Bg?,NT0(_?:,p eE_?NpT(_N$N N 2FZl2N^NuNV?:.EIFIP/ J,fJfz`zNT(_ ndRn`N^NuNV:.EIFIPN^NuNV. f=y>=y@N=yB=yD:.EIFIPJf*/ J,fz`zNT(_&n 6N.:.nf?<N*T?.N,TNSn`N^NuNV:.EIFIP/ NT(_|N^NuNV:.EIFIP/ NT(_B,N^NuNVBn ncN&:.EIFIPBB, ndRn`=| ncNL:.EIFIP:9<8. Dex` f|NBB, ndRn`N^NuNV(n(:. Eb| 9| N| 9n B,BlB, N^NuNV(n,  f:9:8, Dex` gz`zE N^NuNV(n,  f(J,f"J, f:9<8, Dex` gz`zE N^NuNV(n*<, ex` g.:9:y<8, Dex` g/ ?, N,T(_,  f/ ?,N,T(_N^NuNV(n HTHnN(P(nHTHnN(P(n HTHnN#P(nHTHnN#P:.nfz`zNTB.(n,  f"(n :94, ex` g|J.g`N(n9n (n z(,c(n z(,e4Bg(n *,?NT(n:, p eEp_?NpTN(n J,f^B'(n /N XJgJ(n:, p eE0EX(nHTN>XBg(n HTNX=_:.EJEf=| :.MSE=EN4:.EJEf=|0:.MSE=EN=|:.SE=E(n :, EE=E(n:, EE=Ez:.//9sHnN)O HnN6XBg?.N$T:Enn?NpT:. Ec0*<Sn?NpT?X(n :, EE=E(nHTN>X(n:, EE=EHnN6XBg?.N$T:EEn?NpT*<Wn?NpT?RN6J, g/ HnN>X(_Rl|NN @/ B/9s HnN)O (_/ HnHnN/zP(_N^NuNVHnB'N,\(nHT?.(n /N.PO (n HT(nHTN/zPN^NuNV(nHTHnN(P(nz, N z/ &nHSHnN6P(_G$nz$QNjNf/ &nHSHnN6P(_/ &nHSN/X(_G$nz$QN*N v 6:: / N(_N^NuNVHnB'N,\(n / &nHS?./N.PO (_&mJ+f:&m$m:*kg(&m:+ Eg/ :.p eEp?NpT(_/ &n HS&nHSN/zP(_&mJ+g4&m:+ Ef&&m:+ Eg/ *<Hn?NpT(_(m&n7l N^NuNV/-+N(n HTHnN(Pz8. Dex` gz`zNTz8. Dex` gz`zNT(n / B'/N X(__z, N \/ HnB'N,\(_/ Hn?./N.PO (_z(,c z(,e6/ / Bg?,NT0(_?:.p eEp_?NpT(_N, gJ.f2/ :.p eE EX(_(sDB,/ &n HS&nHSN/zP(_N / N(_(n,  f (n9| N^NuNV(nHTHnN#P(n/ ,  gz`zNT(_, f=|9,  f =|/ND/ B'&nHSN.X(_Jg =|/N=|H@/ ?.?9jNX(_/ :.n?NpT(_/ &nHSN%X(_N^NuNVRy Jy e :9 Ec?<N*T(nHTN/XNB.(nJ9 g\/ &nHSNDX(_/ &nHSN/X(_|:90YE30| 9| | |9y0N8/ &nHSN>X(_/ ?, N-bT(_:9 Ee :9 I pIP&nEz$QN^NuNVJy e:9 Eb`N:9 I pJ4Pg?<NT:90XE30N^:9 I pIP,  f>:9<8, Dex` g&B9 / ?, N-T(_/ ?, N,T(_Sy N^NuNV:. y bz`zNT:. Ec=| :. I pIP&nz&QN^NuNV(n8(n 823By2N^NuNV3 233N^NuNV=y:.yo`N:.I IP.f`N:,y2o`N:,RE89&E=D/ Jnmz`zNT(_:. Eo/ ?<N*T(_Bn/ Bg?.NT0(_?:,EGp83P_:,EGp7P9|N:92 Eg=ySnNN^NuNV=y(n 8:.yo`Nx:.I IP.fT:,y2oH/ Bg&n ?NT0(_?:,EGp83P_:,EGp7P&n 69|SnNzN^NuNV(n ,  g/ N(_N.,g`Nvz, NJ|NBB,N:|N0|N&|N|NN (23 @3B3D3f3h3j3lBy&By B9 ByB9N^NuN.NVN^NONVz. N(n HT?<NK\&n (Sz)Ez)E B,NZ(n HT?<NK\&n (Sz)EN8(n HT?< NK\&n (Sz)EB, | N N 8Z&n (Sz(&n (SnN^NuNVz(n(g`N&n(Sz, N/ HlNNX(_/ Hl NNX(_/ HTNNX(_/ &nHS?<NL\(_Nl/ HTNNX(_/ &nHS?<NL\(_ND/ HlNNX(_/ HTNNX(_/ &nHS?< NL\(_N N T|N^NuNN NVN^NRNV nCpQ:94. ex` g*.캹sfz`zE N^NuNV(n-Tz(n((m(lHTNNX(m(l(N^NuNV/-+N&n(S/ B'&lHkNOX(_Jf0/ B'&l HkNOX(_Jg-l)l )n / B'&lHkNOX(_Jg`Nr&lz:+E,  f.J.g/ HlNPX(_N/ Hl NPX(_N,J.g/ Hl NPX(_N/ HlNPX(_+_N^NuNV&n(Sz, N&/ &nHSNPRX(_NN """"""" N^NuNVz(n(fN^Nu&n(SJ,gN^Nu/ Hl NQX(_/ HlNQX(_(nHTNQNXN^NuNV(nHTNQXN^NuNONVN^NdNV(nHTHnN(P(nHTHnN#P(n :94, ex` g:.M Eg`N(n JfN^Nu(n z(,b`:. Ef =|PN=|Q(n *,=E:.E8.p dnEn?NpT(nHTN%XNP:. Ef =|N=|:.Enn?NpT(n HTN%X(nHTN%XN=n(n HTHnN#P(n,  f:(n:, p en:.Enn?NpT(n HTN%XN:.M Ef<(n:, Ep en:.En?NpT(n HTN%XNT(n ,  f>(n :, p eEn:.Enn?NpT(nHTN%XNN(n,  f (n9n N^NuNV(nHTHnN(P(nHTHnN#P(n :94, ex` g:.M Eg`Nf:. Ef =|N:. EfBnN=| :.Enn?NpT(n HTN%X(nHTN%XN:.En=E(n HTHnN#P(n,  f::. Eg0(n:, p enn?NpT(n HTN%XNV(n ,  f@:. Egn(n :, p enn?NpT(nHTN%XNN(n,  f (n9n N^NuNV(n HTHnN(P(n HTHnN#P(n:94, ex` gJ:.M Eg>=| :.Enn?NpT(nHTN%X(n HTN%XN(nHTHnN#P(nHTHnN(P=|(n ,  f:(n :, p en:.Enn?NpT(nHTN%XNP:.M Ef<(n :, Ep en:.En?NpT(nHTN%XNN(n ,  f (n 9n N^NuNV(n HTHnN(P(n :.Enl =E(n:94, ex` gJe z(,b`N^JlfN^Nu:,E=E:,M=EJng/ :.p en?NpT(_Jng/ :.?NpT(_N4/ &nHSN6X(_:, p eE n/ ?.NpT(_&n 7n N^NuNV(nHTHnN#P(nHTHnN(P:.ESE=E(n :94, ex` g`Nz:. N8=|N=|@N=|N=|NN 444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 444444444444444444444444444444444444444444444444444444444444444*/ N(_/ :.n?NpT(_/ ?,NpT(_&n+  g/ &nHSN%X(_N:, p enn=E:. Egp/ &n HSN6X(_/ :, EE l ?NpT(_:, Ef/ ?.NpT(_N/ z:./NX(_/ ?X(_:.lJElDE EoV/ &n HSN>X(_/ :, Ep eEEX(_:,nJElDE Eo,/ &n HSN>X(_/ &n HS?.Nb\(_N|:.lNN (46N^NuNV(n / &n HSN>X(_| |Bl9n 9n N^NuNV(n BTz(.ez`z(nz(.c4(nJg,*.Jfz`z(n*.-E(n RT`N^NuNV?NNVHnN*X(mHlHnNdPHn?</9sHN.PO HnHnNCvPHnN/X(mHlHnNdPHn?< /9sHN.PO HnHnNCvPHnN/X?<Nd T?.N+TN^NupRNNVHnN*X(mHlHnNdPHn?</9sHN.PO HnHnNCvPHnN/X(mHlHnNdPHn?< /9sHN.PO HnHnNCvPHnN/XX(mHlHnNdPJ.f-ysD|Hn?< /9sDN.PO HnHnN/zPHnN/XB9X?<Nd T?.N+TN^NupNNVHnN*X(mHlHnNdPHnNBXHnN/X(mHlHnNdPJ.f-ysD|HnNBXHnN/X(mHlHnNdP:94. ex` g|-ysDNHn?<N8\-ysDHnNBXHnN/X(mHlHnNdPHnNDXHnN/XB/9sDHnN)O (mz(,g`N(mHlHnNdP:94. ex` g(|-ysD:.ER-ENHnN6X-ysDHx/9sD(mHlN)O ?<(mHlHnNTZO Hx/9sD(mHlN)O ?<Hn(mHlNWVO Hx/9sD(mHlN)O ?<(mHlHnNR O (mHlN/XHnNBXHnN/X?<Nd T?<NT?.N+TN^NupNNVHnN*X?-nBgHnNX: Ef :. El:. Eo ?<NRT. f?<HnHnNR O N?<HnHnNR O HnN/XHnN/XNTHnHnNdPHnHnNdPBgHnNX:ESE=E:. Ecz`zE:94. ex` g`NXIJlm :,nc/ ?<,NRT(_BlJ.gB(n(l:E=EHnz:.?Nb\z:.HE=E(n-lBgHnNX: Ef>. f?<HnHnNXPO N?<HnHnNXPO NI(/ BgHnNX0(_?: Ef|. f./ HlNwX(_/ ?<HnHnNTZO (_N,/ HlNw2X(_/ ?<HnHnNTZO (_NxHn?<N8\J9gz:./?.?.NaPHnBg/.N.PO J.g`NI/ Hn?.?, NcpP(_&T(:.p eE n?NpT:.EEn?NpTHnHnN#P. f =|N=|:.p enn?NpTHnN%XNt?&n&k+ f/ &nHkN:X(_N/ &nHkNpX(_&nz(+g/ &n&kHkNKX(_G$SHR$n$j=R:.g:. EcRn$nJ*g2Bn=|ECz"QHHnN`:XLN$n$j HR$n=j $n=j$n**sf.H$n:*H/$n/*HnN)O LN,H$nz:*/$n/*HnN)O LX$n$jHj$n:94* ex` g`Nr$nJ*g`NHB'$n/N XLJg$nJjlH?<,NRTL$nJ* gX$n$jECz"QHHnN6XLHHnHnN`ZPLHHnN/XLNHB'$n/N XLJf4$n:*ne$n:*ncH?<,NRTLN2$n:*nm$n:*noH?<,NRTL$n:.jH"n$QHj$n:*?Nb\LNH$n$jHjHnN(PLJnf$H$n$jHj?<N8\LNH$n$jHjN6XL$n:* Ef$n$s N $n$sJng`N:. Ef,H$n"n:) EESj ?NpTLN:. Ef,H$n"n:) EERj ?NpTLNhH$n"n:) EEj ?NpTL$n:* EfH:.H/NXLNH?.NpTL$nJ* gZ$nJ*g$HHn$n$jHjN`ZPLN.H:.nH/$n?* $n?* NaPLH$n$jHjz:./N]\PLH"n$QHj$n?* $n?* NcpPLX$n&X/ ?.?.NGX(_&n"n$Q$&nz&/ HnNNX(_N^&n+ fN/ Hl&n&k?+Nb\(_&n&k)k&n"n$Q$&nz&/ HnNNX(_, g&l+ f"z(g>'/ &nHSNlX(_z(gNHz(,gF/ B'/,NzX(_Jg,/ BgHlNX0(_?: Ec9' >g`NJ9&fp9' gd/ / BgHlNX0(_?z://9sHyN)O (_/ HyN6X(_/ ?9N-bT(_3&(&:94, ex` f`Nj:949 ex` g2&l&k:E=E/ Hlz:9?Nb\(_N/ Hl?9?9NcpP(_)ys8N^NupNNV(m(l(T/ &lHkNLX(_/ &lHkB'NIp\(_/ <NGT(_/ Hl NpX(_/ &l HkNLX(_-l )l )nN^NupNNV(m(l(T/ &lHk&l HkNnP(_&lGHB'/N XLJf"HB'$l /*N XLJgz`zE*sDg*s g *sfz`zEJ.gJ.g &sN&sN"*sDgJ.g &s N&sB.&l G:94+ ex` g`N(z(+fJ, f$l*  fH$lHjN6XLH$l HjN6XLJ.g`NH$lHjNBXLH$lHjN/XLH$l HjNBXLH$l HjN/XLJ.gH?< Nd/ N(_N0N" .Zh|(@/ N(_-lz)E(nHTNNX(n(+_N^NupNNVz(n(fN^Nu&n(SJ,g/ &nHSN:X(_N^NuTy2,  g., g$, g, g/ Hl NpX(_/ HlNpX(_(nHTNXUy2N^NupNNV(nHTNQXB9&z(n(g0&n(S, f(nHTN:XN(nHTNpXN^NupNNV(nHTNXz(n(g&n(SHlNKXN^NupNNV&n (S/ HlNLX(_/ Hl.NIp\(_Sy2/ Hn<NH\(_/ HnB'NH\(_Ry2/ N(_/ <YNT(_/ ?.NT(_/ ?.NT(_N^NupNNV<'(nHTNtXy&(n HTN:X&n (SHl&n(SHlNnP&n(SHl&n (SHlN@zPJ.gN&n(SHlN/X&n (SHlN/XN^NupNNV<XNTN N^NuNpNNVN^NRNV(nHT<NN\&n(SI( GHB'/N@XLJg"|$S:ys)EBl NHB'/NzXLJgF$T: Ec<$Sz(*f|BN |$S:ys)EBl N*s(f0|$y)Rz$S//N 4Pf |BNR$T: Ec|)SN:B,HB'/N XLJg:+H)EN z:+)ENN^NuNV(nHT<NN\9 Uf?9&n(SHlNG0\N(y, g, g , f $n&RG&|'yN$n&RG&z, N|'lNt|'lBk N`|'l$l 7j. NF| B+ |*,7E, f| Bk 'yNN J 0N(n-T9 g9 %g 9 f`N(nHT<NN\(n-T(ny 9 f,(ny N(nHlNXXNNn9 %f NNX9 fJN(nHl<NN\(n(lIB,&y9kBl&y(NN N^NuNV9 fN(nHTNXXNN 9 fDN(n-T(nHTB'NN\&n(S|)n / Hl NX(_N9 Vf(nHTN6XN(nHTNX9 f`N|(n-T(nz(g (n-T`(nHT<NN\(n-T(ny N9 g(nHlNXX9 f`NN^NuNV(nHTNX9 eT9 bH(n-T(nHTB'NN\&n(Sy/ N(_)n/ Hl NX(_`N^NuNV(nHTNX9 eT9  bH(n-T(nHTB'NN\&n(Sy/ N(_)n/ Hl NX(_`N^NuNV9 fDN(n-T(nHTB'NN\&n(S|)n / Hl N|X(_N(nHTN|XN^NuNV(nHTNX9  eR9 bF(n-T(nHTB'NN\&n(Sy/ N(_)n/ Hl NX(_N^NuNV(nHTNXXN^NuNV(nHTNX(nHTNX&n(S/ , fz`zNT(_GJ+fz`z$n z:+$nN^NuNNVN^NNV9.gN6`N^NuNV9. g 9. g9.gN6`N^NuNV9.gNʴ`N^NuNV9. g 9. g9.gNʴ`N^NuNVHnNXHnNX<J.g"<2NT<=N^TN\N<=NTNN.<6NTHnB'N\<=N^TN\N^NuNV=y*30*<2NT<=N^TN\3*N^NuNV<3NT:9*y0?NTNN^NuNV(mJlo`N(n:94, ex` g(n HT(nHTNUPNhHnBg(n /N.PO Bg(n HTNX: Ef ?NpTJno?<NpTN?<NpTNJno(?NpT?frN9 Tf&(y, f<WNTNN8HnNX<>NTHnNXNHnNNXNyNz. N,tNNNXN~NNtN NjNN`NNVN$NLNNBNpN8N,N.N$\pppp4> p*pRHpf N?.?.NGXN^NuNVHnNXHnNNXN^NuNVyNz. N,NʔNʔNNʔN9 0fNNʔ<0<1<=N\9 0f`9 1fN<=NTNNp<5NTNNʔNTNʔ<=NTNN8<=NTNN"NNʔNNʔNNʔ9 :f NNʔ<=NTNNNʔ<=NTNNNʔ9 -f(NNʔN<1<-<=N\`9 1fN<=NTNNT9 fNNʔNN2N(B&& NN^NuNV9 Bf(-yN\Ry(/.NXSy(`9 +f`Nt#,N\N-By0(n, g*<lRE30J,#gYy0:, Eg J,"gUy030*<?N^TN\N^NuNVNRN NMjBy*N/@ @+ @@ $@z@@@ @. @z#@ B O Cvb CvrC DPN En @@BH FxD!@4 G0KI G% k G DQ G@ @A Hkr "Ip@ A@ IpW J KJ[Y K`Mz K!! ! L@N/ Mj $DDDDDDH N A N +<N N p N9 MiP OA OO OP P- PRy QNR_ QN Qj QU QT RA &R A @a TZA @ @ UA 4 WV@ C 8XP@@ XP0X [@@  \|@@ z &]\@  @ Nc _n |+ `: `X `Z@@ a@ ,M b@  b b- cp@c d Bx_ d<ha dA dd dd "e  2} ee* g   @A @ @@@ @t 4g ')Cv l5 p@ A p ?q! qd@ B  qd ?fqr .r@A@AD@   z ,r0 \jx u4Ay u4uH ut@ B utd u vAz vv vA{$ vv ww w2wF vwf@  @@@ @@ A @!BA  @ Aҳ wf w 4~   5s ,~ '-5<DK 0 @  P6 <By!/?CJ; 8l    @  @} l @   :  :     @@@@ @  @  $ Hy\ $:s w9u|i @; * B  @    (C HM\agns @ڬ  @ @@@@@ @@@  ,  $) @@ '  @   ɫ $ "@ BV#   B@@@  V  r@, r  Vp@ !@ @@  @ @@ \ p r] b@  @@  H   Y  @   2`  0 p@ "P p " Y ( t @ t "  V @; Vj DM  @; 3 6H  6*[ hx (  " D U{ M A@@@"H @   E] |  E @G X  F   LA[ ^@ɭ zA @ A @D  X@ @DB @ AV  @ Ao Bs HI1 @@^ $A@@ @@A@A@ D@  @@   ! @ BHA $% 08 @ D"Hg pD@"B $ @@B  ,@" !" ,4r $k= 6H "!B 6Uɝ ʔγ &ʴ!$ AI$D$@!"I@C ʴ DD$J ͔I@. ͔ @c  0!  !$'*-0369<?BEHKNQTWZ]`cf,g&".gJ&\DPP bad errors in source program compiler aborted ... ---- compiler error NVBnRnz:. HEE08.SDI@z:. =E Jn g`:. E c=| Bn:.nc:.I PRnSn`Jnc":.SEI8.GP@RnSn`:.IB4P?< HnN:&\N^NuNV9rg.?<Hy&\N:&\N;?<Hy&zN:&\N"?<Hy&N:&\?.BgN&XN;N^NuNV?<N'dTpNN^NuNVJ.f?<N'dTpNN^NuNV|:. M=E:. EPE=E:.8. Dex` fB.N&:. Ef:.8. Dex` fB.J.fN'N^NuNqNqNqNVN^N(N(~pNNVN^N;DpNNVBy3/9?.<< B':. ?(nHTN6ON^NupNNVBy:.JElDE3/9?.<< Jnlz`z:. ?(nHTN6ON^NupNNV:. nm=n N^NuN =n N^NupNp|NNVzK (nBB./.N vXl|/.-_NB.Jnm8/./NVB9:9rg`N|:?<Hy;f?<'HyrX?<HyqB'B'?<'HyHy;NZO J9;f ?<Hy;pN:&\pNN;HyqN^nX36By8ByN^NENVN;ByN^NuNV<.N9zTRy:9 E(cN@N^NuNVz.Ey?N@fTN^NuNVHyq?.N_\N^NuNV*.x?N@fT*.?N@fTN^NuNVN^NuNV<RN@FT?.N@fT?.NXN^NuNVJ9fV:9̺noz`zN'T:9̚n=E:. Eo ?<N@T:.EI9PN^NuNV?X?<NPlT:.JElDE Eo:?<)NOT?XN? p*pRHpf p N^NuNV9\.gNaz`N^NuNV9\. g 9\. g9\.gNaz`N^NuNV=n=|.*< @n?NOT?. NOT*<Cn?NOT?. NOT=|Sn:. Ec ?<N@T:. Eb*<pn?NOTN?<0B.z(,g&l+ f|/ .N'T(_&l-kz(.gH-n(n, f/ ?,*,?&l?Nb\(_-lHn?< NL\`N^NuNV9\ Bf"-yfByNC/.Nd,X`9\ +g 9\ ?fz`zN'Tz(.g`N$(n, fz`zEJ.g:, Ef Jlfz`zE9\ +gJ.f`N9\ +f / NC(_&Zz=EJ.f/ /.B'NR\(_/ /.NcdX(_J.gd/ ?9NK(T(_/ ?X(_|/ /.<NR\(_N"J.g:, Ef |N|9\ Wf/ NC(_/ NV(_`/ .?,?.z?NNJP(_#/ <?Nb8T(_, f,J9ng / ?X(_/ NO(_/ NK(_B9&Z9\ ?fz`zN'TNCN^NuNVNNNME[N\bju <ELP /0/ // /N0s /N/b /1 // /3 // 02 00 0<0P 1z@ 1z1 41B ,1  c: 5$BI 5$58 5~B 5~5 5 6 55 6 CLw7Z 7E :7 :+ ?;M ;>@{] ;>;U ;H; ;0 ; ;H<] ;0 <^ 5 = "B"D 8= &,CHLQVYafA ?`1 ? ?_ ?NBH ,o (?N  "/=BEHKAY @B @@ @H `s @@1 @FAe @f @ @ a @@ @IH A A A A@ AHA"A  H CD@ C"DB  "D@$H EV E  E EDI EA F$@= F$ FP FNG] FfHu Ff F F f G@@A G G8 Gr G GrFG H@@" H  5H H QY H  CIF I8"\ I" I" J4"X J|" J"| K("L Kp[ K@  B[g K'h LZ M<@A 8 M< $27N MDD@4] M0 :AN NJ@ NAR N  N NA N$@ e N" ,<LO O@ M O!@zZ P> p PlBd PD QU" Q* Q Qf q Q@  RN@A R@ R 3 T4 @T[ T   U@ U@B VP B$A AID84 X|? XjA L X? YY YY Y<YM Y<Yj YD$A" Z @ [Dq [D"B5 \L@n \hI@ S \m ]@eq ]2]^ ]   &^  B@  )) ^  a% a{- azB!A aza b8@r bTAv b @ cd  cd^c 0d,D " @A D fH${] g&@ g& g]  !$'*-0369<?BEHKNQTW,\". NqNqNqpNNVN^Nbsymbol file--- create errorNVz:.#Hyq/9N^PN^NuNVHyq(nHTN_.PN^NuNVHyqN^nXN^NuNV:.E=EJ9g:.E3N :.yHyq?9N_\J9fz`zN^NuNVz.?NTN^NuNV:.M?NT:.E?NTN^NuNV<NT?.NTN^NuNV<NT*.x?NT*.?NTN^NuNV< NT-n =|:.RE?0.WcN*(n:.SEx4P?NT0.WdRn`TN^NuNV<NTJnlT?.?<?<HnN"O Bn ncN(:.Ix4P?NT ndRn`NL:. E?b@?.NFTHnNnX.  gz.?NTHnNnX`BgNTN^NuNV?< Hy(?<'HyrX?<HyqB'B'?<'HnHyNZO J9f?<Hy4N:&\pNrN^NuNVB'NTJ9f BgNTHyqHyN]2PN^NuNVSy Hn?<NK\(n8 z)E)ys )n|(n)nN^NuNVz(.gnHn?<NK\(n((nz)E-y(n&n* g (n-l`(nz(,f )nN &l 'n)n N^NuNVz(.g (nJ,f`Np(m-lz(.g(n&n*g (n-l`z(.f4Hn?<NK\(n&n&(m&n'l(m)nN^NuNV(nJ,f`N(n|z, N>/ /,NX(_NH/ /,NX(_/ /,NX(_N$/ /,NX(_&lz(+f/ /,NfX(_/ /,N2X(_N/ /,NX(_/ /,NX(_N/ /,NX(_J,f / /, NX(_/ /,NX(_Nz, N-l z(.gB&n$kz(*fH/+NfXLH/+NXL-k`z(,g/ /,NX(_/ /,NX(_N\/ /,NX(_-l z(.g.&nz(+g/ &n/+NX(_&n-k `N N N-lz(.g / &n/+NX(_&n-k`, f/ /,NX(_/ /,NX(_N.N* ::::::::: :::D N^NuNV(nz, N/ /,NX(_&l*.g/ /.NX(_N/ /,NX(_/ /.NX(_N&lz(+f/ /,NfX(_/ /,NX(_/ /.NX(_N@/ /,NX(_N,/ /,NXX(_NN> bN^NuNV/-+Nz-Ez(.g/.NXX(n-l`z(.g0-n(n-l(n/NXXHn?<NL\`+_N^NuNV(n&m*, g.*, sg"/ &l ?NT(_/ <NT(_/ ?NT(_N^NuNV nCpQ(n , f$/ &n/+&l :+RE?N\(_N,  fX/ <NT(_&n-S=| ncN,/ :.SEEG?3PNT(_ ndRn`Nb*<`,  ex` g$/ /.N`X(_/ /,NX(_N&/ z:./N`X(_/ /,NX(_N^NuNVz(.g`N,<NT<NT(n/ /,B'N n\(_-l z(.g`N/ <NT(_&n=S&n-kz(.g:&n:nf.&n*+f / &n?+N@T(_&n-k `/ <NT(_/ /.N ,X(_/ ?.N@T(_NXz(,g6/ <NT(_/ &l/+N ,X(_/ &l?N@T(_<NTN^NuNV(n J.fz(,g/ /,NX(_Nz, N/ <NT(_-lz(.g2/ &n?NT(_/ &n?+N@T(_&n-k`/ <NT(_N/ <NT(_=l / /,HnN P(_/ <NT(_=l/ /,HnN P(_/ <NT(_N6/ <NT(_/ /,B'N n\(_N/ <NT(_N/ <NT(_/ /,B'N n\(_N/ < NT(_J,f"/ /, B'N n\(_/ <NT(_/ /,B'N n\(_N/ < NT(_-l z(.gX/ &n?NT(_/ &n?+N@T(_/ <NT(_/ &n/+B'N n\(_&n-k`/ /,N ,X(_/ <NT(_/ ?N@T(_N/ <NT(_/ <NT(_-lz(.g@&n+ f/ <NT(_/ &n/+B'N n\(_&n-k`/ <NT(_, f"/ <NT(_/ /,B'N n\(_N.N* r2:N^NuNV(nz, Nf/ <NT(_/ ?NT(_/ /,HlN P(_N2/ < NT(_/ ?NT(_/ /,&l*+fz`zN n\(_N/ <NT(_/ ?NT(_, f4/ <NT(_/ /,N`X(_/ <NT(_N/ /,N`X(_/ <NT(_/ /,B'N n\(_NX/ <NT(_/ ?NT(_/ ?,N@T(_/ /,<N n\(_NN BbN^NuNV/-+N(n -T/ <NT(_&TH?+0N@TLH?+2N@TLH?+4N@TLH?NTLz(,g`NT/ <NT(_/ &ys?NT(_-y*. g / &n&S?NT(_&n-k`/ <NT(_J.g4-lz(.g / &n&S?NT(_&n-k`Nl&T-k(z(.gX&n=S-lz(.g4&n&S:nf/ ?.NT(_z-EN &n-k`&n-k`-lz(.g8-n&n-k/ &n/NX(_/ Hn?<NL\(_`/ <NT(_+_N^NuNV(n=l.Hn?<NK\(n(z)Ez)Ez)E -yz(.g"(n(T:,.nd-n(n-l`(n)n*.f #N (n)nN^NuNV(ys-lz(.g$*.sg /.N4X(n-l`(ys/,(NTX(ys/,NTXN?<N@T(ys/ ?,0N@T(_/ ?,2N@T(_/ ?,4N@T(_/ ?NT(_-yz(.g./.(nz(,fz`zNF\(n-l`N.-yz(.g"-n(n-lHn?<NL\`N^NuNVBy z#NN^NuNV=| ncN :.SEI0P ndRn`BnRn:.E=E:.M=E:. E dz0n=ENzA8.D E=D:.8.SDI@Jng`:. RE=E:.nc=n:.nc=nBn:.nc:.(n PRnSn`Jnc":.SEI8.&nP@RnSn`:.nd :.(nB4PN^NuNVNNN^NuNNV?</<HNK\N^Nu - % F] F   n  @   ' @_ `  % @] O   ).2 . . w fw f   @   21u *  @ "   X@W X s T@Hw T3      , u 6 n @ @@ @ ?;  n   YC   "F @ - FL  4"Q 4 R !@@@J  );-  %5 H'W \@U \   !$'*-0369<?BEH. `.. EDITOR PRG VEDITOR RSC `LINKER PRG M2DESK PRG  !GM2DESK RSC  3FM2DESKC RSC ;"MODULA PRG CjSYNTAX IND ^ `ZN$[3][Modula-2 Run Time Error : | | #][OK]Modula-2/ST (c) Copyright TDI Software Ltd. 1985. The team : Chris 'how tacky' Hall, Paul 'where's the cursor' Curtis, and Phil 'boot you @#$%' Camp !!. _b ШNYN"pNGNuNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n I8B,)n9n)n )n)n)n|.n 9/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=y:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnI2GzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^Nu OAbrpNGNurpNGNV-|.*.f *. drpNG-n nBBB!.B"H$!.!.@ .PPB! 4"n "N^NuNFNuF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsNENuF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB!<B*H$C! ` <L?NAN`WNs*x b "T@NGNuNNuNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu ./,/[JjDJ[jD |*NJgDJgD/NuNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^Nu |(oNNVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^NuNVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^NuNVH . $j ļfB".$j ļfBLN^NuNVH .$ļfBJLN^NuNVH .g*2<bH@|bQAU-@LN^NuNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNVN^NuNV/??<NMN^NuNqNqNq O h*# ( ШШ//??<JNA *< rN *< rN *< rN *< rN *<  rN *<\ r'N *< r&N *< r%N #"pNG?<1Hy8N \?<BHykN \?<"HyN \N^NV0.?NA*-E N^NuNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV ./ . / ./0.?0.?NA*-EN^NuNV ./0. ?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNV0.?0. ? . /0.?NA*-EN^NuNVBBgN 0T-_N^NuNVB?<N 0T*(nN^NuNVB?<N 0T-_*.(n *.x(nN^NuNVB?<z.?N FX-_N^NuNVB?<N 0T*(nN^NuNVB?<z.?N FX-_N^NuNVB?<z.?N FX-_N^NuNVJ.fB?<?<N FX*(n N(n B?<BgN FX*EN^NuNVB?<N 0T*(nN^NuNVB?<N 0T-_*.(n *.x(nN^NuNVB?<N 0T*(nN^NuNVB?< (n* /N \-_N^NuNVB?< (n* /N \-_N^NuNVB?< N 0TJf B.N^NuN |N^NuNVB?<?. N FX(n(N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0T*(n8N^NuNVB?</.N \-_N^NuNVB?<*N 0T*(n8N^NuNVB?<+?.N FX-_N^NuNVB?<,N 0T*(n8N^NuNVB?<-?.N FX-_N^NuNVB?</N 0T(n(N^NuNVB?<0N 0T*(n8N^NuNVB?<1/. ?.N P-_N^NuNVB?<6(n * /?.N P-_N^NuNVB?<9(n* /N \Jf|N^NuN B.N^NuNVB?<:(n* /N \Jf|N^NuN B.N^NuNVB?<;(n* /N \Jf|N^NuN B.N^NuNVB?<<(n* /?. N P*(n8N^NuNVB?<=(n* /?. N P*(n8N^NuNVB?<>?.N FXJf| N^NuN B. N^NuNVB?<??.(n //.N bO (n (N^NuNVB?<@?.(n //.N bO (n (N^NuNVB?<A(n* /N \Jf|N^NuN B.N^NuNVB?<B/.?.z. ?N O (n(N^NuNVJ. f*B?<C(n* /?<(n?N O -_N*B?<C(n* /Bg(n?N O *(n8N^NuNVB?<G(n * /?.N P-_N^NuNVB?<H/. N \(n(N^NuNVB?<I/.N \Jf| N^NuN B. N^NuNVB?<JBg/. /.N bO Jf|N^NuN B.N^NuNVB?<Kz.?(n* /(n* /(n * /N O*(n8N^NuNVB?<LN 0TJf| N^NuN B. N^NuNVB?<N(n* /?. N P*(n8N^NuNVB?<ON 0T*(n8N^NuNVB?<VBg(n* /(n* /N bO -_N^NuNVJ.f&B?<WI * /?.BgN O -_N&B?<WI * /?.?<N O -_N^NuN .NVN^N(\NVI*89n9n 9n 9n <I* "NB=yVN^NuNV3 436N^NuNV3 43 638N^NuNV343 63 83:N^NuNV3436383:3<3 >3 @3BN^NuNV(n 8X(n8ZN^NuNV(n8X(n8Z(n 8\(n8^N^NuNVBg?< Bg?<BgBgNjO =_N^NuNV?.?. NX#fBg?< ?<?<?<BgNjO =_N^NuNV?.?. NX#fBg?< ?<?<?<BgNjO =_N^NuNV(n* #fBg?< Bg?<?<BgNjO =_N^NuNV?. ?.NX# fBg?<?<?<?<BgNjO =_N^NuNV34# fBg?<?<?<?<BgNjO =_N^NuNVBg?<Bg?<BgBgNjO =_N^NuNVBg?<Bg?<BgBgNjO =_N^NuNV?.?.?.N\Bg?<?<?<BgBgNjO =_(nHT(nHT(n HT(nHTNrO=nN^NuNV?. ?.?.?.NP383<:3:<38>36@34B32D30F3.H3,J3*L3(N3"P3 R#$fBg?<?<?<?<BgNjO =_(nHT(nHT(nHT(nHTNrO(n 8`(n8b=nDN^NuNV?. ?.NXBg?<?<?<BgBgNjO =_ N^NuNV34# fBg?<?<?<?<BgNjO =_N^NuNV?. ?.NX# fBg?<?<?<?<BgNjO =_N^NuNV?. ?.NX# fBg?< ?<?<?<BgNjO =_N^NuNV?. ?.NX# fBg?<!?<?<?<BgNjO =_N^NuNV3 4#f#jBg?<"?<?<?<BgNjO =_N^NuNV34(n* #fBg?<#?<?<?<BgNjO =_N^NuNV?. ?.NX# fBg?<(?<?<?<BgNjO =_N^NuNV34# fBg?<)?<?<?<BgNjO =_N^NuNV?.?.?.?. NP3 <3>#fBg?<*?<?<?<BgNjO =_N^NuNV?.?. ?. ?.NP#fBg?<+?<?<?<BgNjO =_N^NuNV34#fBg?<,?<?<?<BgNjO =_(n 8X(n8Z=nN^NuNV?. ?.NX# fBg?<-?<?<?<BgNjO =_N^NuNV?.?.?.?. NP#fBg?<.?<?<?<BgNjO =_(n8X=nN^NuNV?.?.?.?.?.?. ?. ?.NO#fBg?</?<?<?<BgNjO =_N^NuNV34# fBg?<2?<?<?<BgNjO =_N^NuNV?.?.?.?.?.?.?. ?. NO3DBg?<3?< ?<BgBgNjO =_N^NuNV34(n* #fBg?<4?<?<?<BgNjO =_N^NuNV36Bg?<5?<?<BgBgNjO =_ N^NuNV#fBg?<6Bg?<?<BgNjO =_(nHT(nHT(n HT(nHTNrO=nN^NuNV?.?.?.?.NPBg?<F?<?<BgBgNjO =_(n HT(nHTNVP=nN^NuNV?.?.?.?.?.?.?.?.NOBg?<G?<?<BgBgNjO =_(n HT(nHTNVP=n N^NuNV?.?.?.?. NP3 <3>Bg?<H?<?<BgBgNjO =_N^NuNV?.?.?.?.?.?. ?. ?.NOBg?<I?<?<BgBgNjO =_N^NuNV?.?.?.?.?.?. ?. ?.NOBg?<J?<?<BgBgNjO =_N^NuNVBg?. ?. ?.NP#fBg?<K?<?<?<BgNjO =_N^NuNV?. ?. NX38#fBg?<L?<?<?<BgNjO =_N^NuNVBg?<MBg?<BgBgNjO =_(nHT(nHT(n HT(nHTNrO(n8V=nN^NuNV3 4#fBg?<N?<?<?<BgNjO =_N^NuNVBg?<OBg?<BgBgNjO =_(nHT(nHT(n HT(nHTNrO=nN^NuNV#fBg?<PBg?<?<BgNjO =_ N^NuNV#fBg?<QBg?<?<BgNjO =_ N^NuNV#f# jBg?<ZBg?<?<BgNjO =_(n8X=nN^NuNV?.?.?. ?. NP3Bg?<i?<?<BgBgNjO =_N^NuNV?. ?.NXBg?<j?<?<BgBgNjO =_ N^NuNV34Bg?<k?<?<BgBgNjO =_ N^NuNV?."?. ?.?.NP3<3>Bg?<l?<?<BgBgNjO =_(nHT(nHT(n HT(nHTNrO=n$N^NuNV(n* #fBg?<nBg?<?<BgNjO =_N^NuNVBg?<oBg?<BgBgNjO =_N^NuNV?.?. NXBg?<p?<?<Bg?<NjO =_(n(r=nN^NuNV?.?. NX#fBg?<q?<?<?<BgNjO =_N^NuNV34# fBg?<r?<?<?<BgNjO =_N^NuNV# f#jBg?<xBg?<?<BgNjO =_N^NuNV?.?.NX38# f#jBg?<y?<?<?<BgNjO =_N^NuNV#fBg?<|Bg?<?<BgNjO =_ N^NuNV# f#jBg?<}Bg?<?<BgNjO =_N^NuNXNVI B BBBBIG** (G * )EG4* )EGV* )E Gf* )EGr* )EN^N)p NNVBgBg?. HnN&P=_(n:.KIP( -D N^NupNpNNVBgBg?. HnN&P=_(n:.K=tP N^NupNpNNVBgBg?. HnN&P=_(n:. K9P N^NupNNVBg?. ?.N)X=_zFE8.E=D?. ?.?.N)^\N^NuN(VpNNVN^NPNVps"9NBN^NuNV3z3|3 3 3N^NuNV?<Bg?< Bg(n ?N*O By y oN4:9E(n89DG7P@ y lRy`N)(n 8By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`N^NuNV?<BgBgBg?.N*O N)N^NuNV?<dBg?< Bg(n ?N*O By y oN4:9E(n89DG7P@ y lRy`N)By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`(n 8N^NuNV?<eBgBgBg?.N*O N)N^NuNV?<BgBgBg?.N*O N)N^NuNV?<BgBgBg?.N*O N)N^NuNV?<wBg?<Bg?. N*O N)NV?<xBg?<Bg?. N*O 3N)N^NuNV?<?<?<Bg?.N*O 3 By yoN4:9E(n89DG7P@ ylRy`N)N^NuNV?<?.BgBg?.N*O (n* #N)#N^NuNV?<?.BgBg?.N*O (n* #N)#N^NuNVBy3 :9(nJ4Pg:9yoN,:9(nx4P:9EI9PRy`?<?<?9Bg?.N*O 33N)N^NuNV?< ?.BgBg?.N*O (n* #N)#N^NuNVBy yoN4:9E(n89DG7P@ ylRy`?< ?<:.?Bg?.N*O 3333(n* #N)#N^NuNV?<g?<?<Bg?.N*O 33 3 N)N^NuNV?<r?<BgBg?. N*O (n* #N)#N^NuNV?< ?<Bg?<?. N*O (n* #N)#N^NuNV?< ?<?<?<?.N*O 3 333ByByByBy3 ByN)N^NuNV?< ?<?<?<?.N*O 3 333ByByByBy3 ByN)N^NuNV?< ?<Bg?<?.N*O 3 3 ByBy3ByN)N^NuNV?< ?<?<?<?.N*O 3 33333 N)N^NuNV?< ?<?<?<?.N*O 3 33333 N)N^NuNV?< ?<Bg?<?.N*O 33 3 3N)N^NuNV?< ?<Bg?<?. N*O (n* #N)#N^NuNV?< ?<Bg?< ?. N*O (n* #N)#N^NuNV3 3333 ByBy3:9yn:9(nJ4PfN.:9(nx4P:9TEEI9PRy`?< ?<zy??< ?.N*O N)N^NuNV3?< Bg?<Bg?. N*O N)=y N^NuNV nCpQ3 333?<Bg?<Bg?.N*O N)N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<qBg?<Bg?. N*O N)N^NuNV3By?<?<BgBg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3 3?<lBg?<Bg?. N*O N)N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNVBy3?<?<BgBg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNVBy3?< ?<BgBg?.N*O N)(n8(n8(n 8(n8N^NuNV3?<kBg?<Bg?.N*O N)(n8(n8(n 8(n8=yN^NuNV3?< Bg?<Bg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<jBg?<Bg?. N*O N)=y N^NuNV33?<'Bg?<Bg?.N*O N)(n 8(n8N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<Bg?<Bg?. N*O N)=y N^NuNV3?<hBg?<Bg?. N*O N)=y N^NuNV?<pBg:.?Bg?.N*O (n * #N)#N^NuNV3(n* #?<m?<?<Bg?.N*O I( 33(33N)#N^NuNV3(n* #?<y?<?<Bg?.N*O I&n(33&n (33(n3(n3N)#N^NuNV?<nBgBgBg?.N*O I( 33(33N)N^NuNV33?<i?<BgBg?.N*O N)(n 8(n8N^NuNV3 3?<!Bg?<Bg?. N*O N)N^NuNV33?<?<BgBg?.N*O N)(n8(n 8(n8N^NuNV33?<?<BgBg?.N*O N)(n8(n 8(n8=y~N^NuNV3?<Bg?<Bg?.N*O N)(n 8(n8N^NuNV3?<Bg?<Bg?.N*O N)(n8(n 8(n8N^NuNV3 ?<Bg?<Bg?.N*O N)(n8N^NuNV?<BgBgBg?. N*O N)(n8=yN^NuNV33(n3(n3?<?<?<Bg?.N*O N):9SE3By:9?09WoN4:9EI84P:9(nP09WlRy`T:9RE(nB4PN^NuNV33(n3(n3?<?<?<Bg?.N*O N)3JyfBnN^NuSyBy:9?09WoN4:9EI84P:9(nP09WlRy`T:9RE(nB4P=yN^NuNV nCpMQI* #?<oBg?<%Bg?. N*O N)#N^NuNV?<vBgBgBg?.N*O I(33/ N)(_&n689y-T N^NuNV3?<zBg?<Bg?. N*O N)N^NuNV?<{BgBgBg?.N*O N)N^NuNV?<|BgBgBg?.N*O N)(n8(n 8(n8N^NuNV?<}BgBgBg?.N*O I( 33/ N)(_89y-TN^NuNV?<~BgBgBg?.N*O I( 33/ N)(_89y-TN^NuNV?<BgBgBg?.N*O I( 33/ N)(_89y-TN^NuNV?<BgBgBg?. N*O N)(n8N^NuNV3 ?<fBg?<Bg?.N*O N)By y,oN4:9EI89D&n7P@ y,lRy`3- y8oN8:9E-EI89D&n7P@ y8lRy`N^NuNV33 ?<Bg?<Bg?.N*O N)(n8(n9y(n9yN^NuNV?<#BgBgBg?. N*O N)(n8(n9y(n9y(n9yN^NuNV?<$BgBgBg?. N*O N)(n8(n9y(n9y(n9yN^NuNV?<%BgBgBg?. N*O N)By yoN4:9EI89D&n7P@ ylRy`N^NuNV?<&BgBgBg?. N*O N)By yoN4:9EI89D&n7P@ ylRy`3 y oN6:9]EEI89D&n7P@ y lRy`N^NuNV nCpQBy3:9yn:9(n J4PfN,:9(n x4P:9EI9PRy`?<tBg?9Bg?.N*O I* #N)#N^NuNVz.3?<uBg?<Bg?.N*O N)(n8(n 8(n8=yN^NuNV3 ?<Bg?<Bg?.N*O N)3 y oN6:9EI84P:9SE(nP y lRy`=yN^NuNVBy yoN4:9E(n89DG7P@ ylRy`33?<?<BgBg?."N*O (n* #N)#(n8(n8(n8N^NuNV3 ?<sBg?<Bg?.N*O N)(n8N^NuNV?<BgBgBg?.N*O N)(n8(n8By yoN8zREEI89D&n7P@ ylRy`(n 8(n8(n9y(n9yN^NuNV?<BgBg?<?.N*O N)(n 8(n8N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?< ?.N*O N)N^NuNV?<BgBg?< ?.N*O N)N^NuNV?<Bg?<?< ?. N*O 3 3N)N^NuNV3 By:9yn:9(nJ4PfN,:9(nx4P:9EI9PRy`JyfN^Nu?<Bg?9?< ?.N*O N)N^NuNV?<BgBg?< ?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)(n 8(n8N^NuNV?<BgBg?<?.N*O N)=y N^NuNV?<BgBg?<?.N*O N)N^NuNV?<?<Bg?<?. N*O 3 3N)N^NuNV?<BgBg?<?.N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV nCpQBy yoN4:9EI89DG7P@ ylRy`?<?<Bg?<?. N*O N)N^NuNV?<BgBg?<?.N*O N)N^NuNV333By:9yn:9(nJ4PfN.:9(nx4PzyEI9PRy`JyfN^Nu:9TEEIBtP?<?. zy??<?.N*O N)N^NuNV3?<Bg?<?<IPGz/WBg?<?<cHnN*P=_B'BgN^TJf`BgBgBgHyN&P=_Bg/9?<N\=_N^NuNPpNNVN^Ne@--@FILE ext@FILE ext GEM Text Editor, Version 2.02a p NNV. gJ.f`N9 g.9g`N:9yRE=E:9yUE=E=n:.yVE=EBg?</HR\fN^NupNNV=yN^NupNpNNV=yN^NupNpNNV?. ?.NZXN^NupNNVB'NRLT(n 8(n8<NRLTN^NupNNV.gBg?9?<N7X=_NBg?9BgN7X=_N^NupNNVB.N^NupNpNNVJ9Pg :9NKcIPRyNNnB.?<HnN_\N^NupNNVNZ$NZpN^NupNNVBn:. ?0.WcN.:.K (nJ4Pf =nTN^Nu0.WdRn`T:. RE=EN^NupNpNNVBg:. ?(nHTN_\=_Jng`NB'NRLT?9:9yRE?:9y?:. ?(nHTN.8O Bn:.SE?0.WcNH:.K (n89nIOGb69GG@P00.WdRn`TBg:. ?(nHTN_\:9_??9NZX<NRLTN^NupNNVN^NupNNVN^NupNNVN^NupNNVN^NupNNVN^NupNNV:. nl=n N^NuN =n N^NupNpNNV:. no=n N^NuN =n N^NupNpNNV n CpQBg(n&n:l?:.n?N`X=_Bg(n&n:+l?:.n?N`X=_Bg(n??.Na*X=_Bg(n?,?.Na*X=_33:.SE3:.SE3?9?<HyN-DP(n8(n9n:.n(n9E:.n(n9E(nJlo(nJloz`zEN^NupNpXNNVJnlBnJn lBn :.n ym:9n=E :. nym:9n =E=n :. nSE?0.WoN=n:.n SE?0.WoND:.KOIb8.IIP:.nKPG@P0.WlRn`T:. KPIB4P:9SE8.EfBg?9?<N7X=_?9:.yRE?:.y??<PHnN.8O 0.WlRnNTBg?9BgN7X=_N^NupNNVNS=n=n=n =n Bg?.?< HnHnHnHnN$O=_JnoJno`NB'HnHnNa`PJg`N:.yf`N?9Bg?<HnHnN7OBg?9?<N8,X=_Bg?9BgN8X=_?.?.?.?.NUP:.yHŋ?:.yHŋ?:.yHŋ?:.yHŋ?NbPBg?.?< HnHnHnHnN$O=_N?9BgHyN-DPNSN^NupNNVB'N]TN^NupNNVN^NupNNVN^NuNQpNNVByNB9P#]B'N]TN^NrpNNVBgBg?<HnN&P=_Bg/.HnHnHnHnNO=_BgBgBgBgBgBg?.?.?.?.NO=_Bg?<BgBgBgBg?.?.?.?.NO=_Bg/.Bg?< ?.?.?.?.NO=_Bg/.BgN\=_Bg?<BgBgBgBg?.?.?.?.NO=_Bg?<BgBgBgBg?.?.?.?.NO=_?<?<N)XN^NupNNVBn ncN$:.KIP ndRn`#++++++   ++B9++++" !++#N^NupNNVN^NupNNVN^NupNNV.<NiXB'<#NiXN^NupNNV:9KcEI P:9KcEIP:9 EcdRyN^NupNNV:. H N:. E f Nf0NNn:.H NbB'<%NiXNT<ENi`TND<WNi`TN4<ONi`TN$<INi`TNN.^>N^ N:.H NFB'< NiXN0B'<!NiXNB'<"NiXN N 0N:.H N!|B'<NiXNpB'<NiXN^B'<NiXNLB'<NiXN:B'<NiXN(B'<NiXNN xB0xfTN:.H N5|B'<NiXNpB'<NiXN^B'<NiXNLB'<NiXN:B'<NiXN(B'<NiXNN x0BTxfNR:.H N* <TNi`TN<BNi`TNB'<NiXNtB'<NiXNbB'< NiXNPB'< NiXN>B'<NiXN,B'< NiXNN tbP,>N:.H N?`<ZNi`TNP<GNi`TN@<RNi`TN0<NNi`TN <XNi`TNN ,<LNN $@Bg/9?. ?<NhP=_N^NupNNV(m|N^NupNNV/-+NB.Bg?<3?<?<?<BgBgBgBgBgBgBgBgBgBgI* /?< BgHyHyHnHnHnHnNO<=_:.HŋHŋHE Ef`N:.H N ?.?.NiXNmN<ENi`TNmN:.H N@B'< NiXNmN"B'< NiXNmN N $NZ?.?.?.?.?.NdO B'<'NiXNmN$N &<:.HŋHE Ef`Nn:.M(mE:.H(m(lB'(m(l(m,NpX(m(l (m(l(m(l NiXNm:.HŋHŋHE Ef`NB'<'NiX:. EfB'< NiX:9ښyHŋH<NiX:9ؚyHŋH<NiXB'<NiXNmJ.f,:.Hŋ HŋHE EfB'<'NiXNmJ.fN.+_N^NupNNVz.KItPJ.fJ. g | N. f J. g| n N^NupNpNNV/-+NBg?9?< HnHnHnHnN$O=_B9:.yg^NmJyc$:9SEKcEI4P 'fSyBg?9?< HnHnHnHnN$O=_`Jyc>Sy:9KcEI&nP:9KcEI&n PNd9 fz`zNmJyb`Sy:9KcEI&nP:9KcEI&n P+_N^NupNNV(nHTNRXN^NupNNVN^NupNNVBN^NupNpNNVN^NuNepNNVNgxByN^NspNNV.  e. ~b| N^NuN B. N^NupNpNNVJ.e . c . f| N^NuN B. N^NupNpNNVB'.NrTJfB'.Ns4TJg| N^NuN B. N^NupNNrpNNVN^NzpNNVB9N^NupNNVBg:. ?(nHTNw\=_:.RE8.Ec :.RE=EBn:.SE?0.WoN&:.(n8.&nP@0.WlRn`T:.nb:.(nPN^NupNNVBg:.?(nHTNw\=_Bg:.?(n HTNw\=_:.nnd :.nd`N:.n=E:.n?0ncN*:.n(n 8.&n P@0ndSn`TBn:.SE?0.WcN*:.(n8.n&n P@0.WdRn`TN^NupNNVBg:.?(n HTNw\=_:. ndF=n :.n?0.WcN*:.n(n 8.&n P@0.WdRn`TN^NupNNVBg:.?(nHTNw\=_:.ndh:.n d^:.nnc:.nSE=EBn:.SE8.Eb :.n(n8.&nP@Rn`:.(nPN^NupNNVBg:.?(nHTNw\=_Bg:.?(nHTNw\=_:.nJEf(nN:. TE8.nEd`N:. ?(nHT:.?(nHTNsO =n:.nSE?0.WcN*:.n(n8.&nP@0.WdRn`T:.n(nPN^NupNNVBn:. ?0.WcN0:.(n4P9f =nTN^Nu0.WdRn`T:. RE=EN^NupNNVBg:.?(nHTNw\=_Bg:. ?(nHTNw\=_JngJng`N:.nd:.SE=EN :.SE=EBn:.?0.WcN^:.(n8.&n3@4Pg4:.(n8.&n3@4Pd|TN^NuN B.TN^Nu0.WdRn`T:.nd|N^NuN":.nc B.N^NuN |N^NupNNVBg:.?(nHTNw\=_Bg:.?(nHTNw\=_JngJng:. nnc(n8B.N^Nu:.n=EBn:. n(n8.&n3@4PgN$Rn:.nf(n8 |N^Nu`Rn :. nc(n8B.N^Nu`pNNVN^NupNNVyN^NuNspNNVNsN^N{CompilationLinkingEditingProgram[1][Error(s) occured during ][OK]NVz(9清gB'/9NXJNqN^NuNVZNzJ.g`Nz:. NRIz8Gz WNJIzDGzWN4IzLGzWNN "8IzTGzW?<Hyz\?<PHn?<PHnZNvO?<PHnZ?<Hyzy?<PHnNvOBg?<?<PHnN*P=_NPB'BgN^TJf`N^NuNzNVByBz#N^N}"NVI"89n9n 9n 9n <I* "NB3Nr=yrN^NuNV3 ,3.N^NuNV3 ,3 .30N^NuNV3,3 .3 032N^NuNV3,3.3032343 63 83:N^NuNV(n 8P(n8RN^NuNV(n8P(n8R(n 8T(n8VN^NuN{NVIB BBBBIG"* (G* )EG,* )EGN* )E G^* )EGj* )EN^N6NV3,# ^Bg?<2?<?<?<BgN{O =_N^NuNV?.?.?.?.?.?.?. ?. N|O3:+n7Ez:+ڮ$n $:+ Ed$n$)S N)n N^Nu-n-S*. g`GBEz"W/ Bg?<?<2HnN~*P0(_?=_/ B'BgN^T(_Jf`N^NuNV(yt:.gRn&n -S:. Ee&n$l&7n&l&z&n &N^NuNVJgN^Nu-n/.HnNPJf>IeGz,WBg?<?<2HnN~*P=_B'BgN^TJf`###t(yt*.xڄ)E*.ڮ()l)l *,\)E&l& BkN^NuN0NVB/<NXN^NNVN^NuNNV#|N^N~pNNV.N TN^NupNNV:. ?(nHTN\N^NupNNVHnN 6X.  f`.  f,:.?(nHTNF\HnN 6X.  f`Bn.  g8.  g.:.n b:.K (nPRnHnN 6X`:.n b:.K (nB4PN^NupNNV< N T< N TN^NupNNVHnN 6X.  g`N^NuNpNNVN^N[1][ The following file could | not be found : | ][Enter New|Continue] [3][ An IO error has occured | whilst writingreading the disk. ][OK][3][ The disk does not have | enough room to write | any more information.][OK] TMPMODREFSYMLNKLSTPRGMAPCORERDERM FlushLookupFileA:\*. : CreateFileA:\*. : CloseDeleteSetPosResetSetLoadReadCharWriteCharReadWordWriteWordModifyWordEndFileNVn:. Ef`NIG6z1W?<Hn6:.?(n HT?<HnnNvO?<Hnn?<Hy?<Hn6NvOBg?<?<Hn6N~*P=_:. Egz`zEN^NuNBg?.N~hT=_|N^NuNVnIG6z&WJ.g(?<Hn6?<Hy?<HnnNvON&?<Hn6?<Hy ?<HnnNvO?<Hnn?<Hy?<Hn6NvOBg?<?<Hn6N~*P=_?<c<NzXN^NuNV6I#G6zPWBg?<?<Hn6N~*P=_?<c<NzXN^NuNV nCpQBnBn(m:.lb8(m:.(l J4Pg&(m:.(l 4P \f :.RE=ERn`=n(m:.lb<(m:.(l J4Pg*(m:.(l 4P .g:.n EdRn`(m:,UEUE8.EcN^Nu(m:.(l 4P .g(m:.(l .PBn ncN.Rn:.I&m8.&k P@ ndRn`(m:.ld(m:.RE(l B4PN^NuNV/-+Nz:. N NHytNXNHyxNXNHy|NXNHyNXNHyNXNHyNXNHyNXNvHyNXNdHyNXNRHyNXN@HyNXN.N "4FXj||HyNX+_N^NuNV:. nc=n N^NuN =n N^NuNV(nHT?<Rn@`Rn>:.> EIB4P?<Jn g"?<zWHnNXzAnE>?<?.NBP?<* /I|* /HnN~O =yr(y|NJngJnf (nBN^NuBn:. EJ4Pg:.I>4P \f=nRn`Rn:. EB4P?<?<HR\fpzz.x6\ 00JzzdNN^NupNNVN<Ni8T|N^NupNNVNiP<N]TNN^NupNNV| ?<1Hy BgHnNsO ?<1Hy ?<OHy ?<1Hy NvO?<1Hy BgHn?<1Hy NvOBg?9?<I * x?I * ?BgBgN%O =_N^NuNpNNVIG 8zWIG zWB9  B'?<OHy B'NdPJg`NB'?<OHy Hy NPO Jg`NNlBNF# 4B'NJg`NxBN*9 ںc?<'HyN\NJN?< HyN|\N?< Hy%?<OHy NFO NNtNDNRB'NJgDNlBNF# 4N`?<Hy3?<OHy NFO NtND?<B'NzXN^Nu<d*nD.X"0*          :&"$"2&"0,,,,"""&&"448*":,&<6(, 6N 800( (      &&"&( &&      & &   & 4 6  &(6& 66$  &&&&$ & &( & &&    ,((&                             " "  " "       "                    &                         &       " " "                                                                      D        F          2 Z J     (    "@&"                 "(   (        ^ .2  ..6*  ^&VH  8*     "   "*,**,"  *",,02J4*|&**D       6<$  tbv:^,4  T     (     6     Z"N B  * P*  ..$ t          *DP2( <H2($"PF (.08< 0& "B >2&X,P"N4   &      P400:"*,**, ^\0 0*2:h j $$  ,.                d"     6  "  "        "  ^$J2$ .   8"       8  .< * >B6,0B*4 < : :4rP *l6 H.         8* *2    ,         *       $  . *&.,&$.&                         @ < $  (                                    @ < $     844 ."6&>    .:6   .>        6(J&                                                       8                   l               ,\$Da` Desk File Edit Find Move Delete Other About the Editor-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Save file Backup file--------------- Write to... Read from...--------------- Abandon Cut Mark Paste String Replace ----------- Find  Find ----------- Error  Error  Top Bottom---------- Line  Line  Line  Line ---------- Word  Word  Word  Word ---------- Line Line  Line ---------- Undel File Size Storage Map Error Char Newline Char Swap mark/cursorModula-2/ST GEM Text EditorOK(c) Copyright 1985, TDI Software Limited29 Alma Vale Road, Bristol BS8, England.Tel : 0272-742796, Telex : 449273 TDIUK.ZZZZZZZZZZZRead from file: ________.___nnnnnnnnnnnOKCANCELZZZZZZZZZZZWrite to file: ________.___nnnnnnnnnnnOKCANCELXEnter Newline Character: _XOKCANCELZEnter Error Marker: _XOKCANCEL--------------------------------String: ________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXNEXTPREVREPLACECANCELQ]z1 ! <e!) P P - $ + 2  9 @ G P& =P  Xk  (8GW  a g n )!( "v # $ % & ' (   4*3 + , - . / 0 1 2 3 ) =5< 6$ 7- 86 9A :H ;Q <Z 4e  >C(?m@nAzBC=!1   (( ( (k1& %% %!%#%2(%%, 4 T `&N GEMXModula-2/ST (c) Copyright Modula 2 Software Ltd. 1985, 1986. (c) Copyright TDI Software Inc. 1985, 1986. The team : Chris Hall, Paul Curtis, and Phil Camp .[3][Modula-2 Run Time Error : | | #][OK] _b ШNYNNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n I8B,)n9n)n )n)n)n|.n 9/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBNVpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=y:. E d:.I0PN(z:.  HEx0D8.I@Rnz:. HEx0D8.I@RnIGzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^NuF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB 9!B*H$C! `NV <L?NAN`WNsNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNV . /2.??<NM*-E:. E b:.EI)PN:.E EI&)PN^NuNV/9?<N\/9?<N\/9 ?<N\/9?<N\/9?<N\/9?<N\/9B?<'N\/9>?<&N\/9:?<%N\N^NuNqNqNq O h*#(y# ( ШШ(y*,Ѕ.@//??<JNA (y*,ڬ ڬڬ#/<?<N\/<?<N\/<?<N\/<?<N\/<?<N\/<?<N\/<?<'N\/<"?<&N\/<V?<%N\#,pNGN NV0.?NA*-E N^NuNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV ./0. ?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNV0.?0. ? . /0.?NA*-EN^NuNVY?<N(T*(n8N^NuNVY?<<(n* /?. NP*(n8N^NuNVY?<=(n* /?. NP*(n8N^NuNVY?<>?.N>XJWDE N^NuNVY?<??.(n //.NZO (n (N^NuNVY?<@?.(n //.NZO (n (N^NuNVY?<A(n* /N\JWDEN^NuNVY?<B/.?.z. ?NO (n(N^NuNVY?<G(n * /?.NP-_N^NuNVY?<H/. N\(n(N^NuNVY?<I/.N\JWDE N^NuNNVN^N NVI89n9n 9n 9n <Ir* "NB3=yN^NuNV3 3N^NuNV33 3 3N^NuNV333333 3 3N^NuNV(n8(n8(n 8(n8N^NuN NVIB BBBBIrG* (G* )EG* )EG* )E G* )EG* )EN^N NV3(n* #U?<4?<?<?<BgN O =_N^NuNV3U?<5?<?<BgBgN O =_ N^NuNV## U?<ZBg?<?<BgN O 3(n8N^NuN NVN^N NVU?< Bg?<BgBgN O =_N^NuNV?.?. N X#U?< ?<?<?<BgN O 3N^NuNV(n* #U?< Bg?<?<BgN O =_N^NuNVU?<Bg?<BgBgN O 3N^NuN NVN^NNV?.?.?.?.?.?. ?. ?.N 6OU?<I?<?<BgBgN O 3N^NuNV?.?.?.?.?.?. ?. ?.N 6OU?<J?<?<BgBgN O 3N^NuNVU?<MBg?<BgBgN O =_(nHT(nHT(n HT(nHTN ~O=nN^NuNV3 #U?<N?<?<?<BgN O 3N^NuN NVN^NNV?.?.?. ?. N P3U?<d?<?<BgBgN O =_N^NuNV?.?.?. ?. N P3U?<e?<?<BgBgN O 3N^NuNV3U?<f?<?<BgBgN O 3N^NuNV3U?<g?<?<BgBgN O 3N^NuNV?.?.N XU?<h?<?<BgBgN O 3(nHT(nHT(n HT(nHTN ~ON^NuNV?.?.?.?. N P3 3U?<i?<?<BgBgN O 3N^NuNV3U?<k?<?<BgBgN O 3N^NuNNVN^N6NVps"9&NBN^NuNV333 3 3N^NuNNVI* #I* #I* #I* #"I* #*#.#2#6#":I** #&N^NNV?<dBg?< Bg(n ?NO By> y >oN4:9>E(n89>DG7P@ y >lRy>`NBy> y,>oN4:9>EI89>D&n7P@ y,>lRy>`3-> y8>oN8:9>E-EI89>D&n7P@ y8>lRy>`(n 8N^NuNV?<eBgBgBg?.NO NN^NuN0NVN^NNVB9BN^NuNVU:. ?(nHTNt\=_:.REnd :.RE=EBn:.SE?0.WoN&:.(n8.&nP@0.WlRn`T:.nb:.(nBPN^NuNVU:.?(nHTNt\=_U:.?(n HTNt\=_:.nnd :.nd`N:.n=E:.n?0ncN*:.n(n 8.&n P@0ndSn`TBn:.SE?0.WcN*:.(n8.n&n P@0.WdRn`TN^NuNVU:.?(nHTNt\=_U:.?(nHTNt\=_:.nJEf(nBN:.n8. TDEc`N:. ?(nHT:.?(nHTNO =n:.nSE?0.WcN*:.n(n8.&nP@0.WdRn`T:.n(nBPN^NuNVBn:. ?0.WcN0:.(n4P9Bf =nTN^Nu0.WdRn`T:. RE=EN^NuNNVNN^NNVN^NuNNV#JN^Ncompilationlinkingdebuggingeditingutility programModula Product[1][Error(s) occured during|][ OK ]NVzRgU/9RN rXJNqN^NuNVRNtBg/GzW?<HyM?<OHn?<OHn^NO?<OHn^?<Hyj?<OHnNOU?<?<OHnN &P=_?</(n(n BBn ncN :.2(nB4P ndRn`|\Bn ncN:.2(nJ4Pf`Nr:.2(n?<1HtPBgN ,P:.2(nJ4Pf@:.2(nGIPzWHnNXzAn8.2(n@:.2(n4P :gL?<Hy:.2(n?<1HtPBgNOHnNXzAn8.2(n@U:.2(n?<1HtPNt\=_:. Ec :.2(n8.SDIP4@ \g4:.2(n8.IP\@:.2(n8.RDIPB4@:.2(n4P \g(BgHn:.2(n?<1HtP?<NO ndRnNJN^NuNVJyXm6?<NT:9H(n:9H(n (n8N(nB(n B(nBTN^NuNVJyXmV?<NT:9H(n :9H(n:9H(nz:9px89ڄ(n(N(n B(nB(nB(nBN^NuNNVU?<HyN T\3XN^N NV33?<'Bg?<Bg?.NO N(n 8(n8N^NuNV3?<Bg?<Bg?. NO N=y N^NuNV3?<Bg?<Bg?. NO N=y N^NuNNVN^NNVBy3 :9yn:9(nJ4PfN,:9(nx4P:9EI9PRy`?<?<?9Bg?.NO 33NN^NuNV?<r?<BgBg?. NO (n* #2N#2N^NuNNVN^NtNV3(n* #2?<m?<?<Bg?.NO I( 33 (3 3N#2N^NuNNVN^N' Modula-2/ST Release 2.01a NVJ.g?</:+n7Ez:+ڮ$n $:+ Ed$n$)S N)n N^Nu-n-S*. g`G'6Ez7W/ U?<?<OHnN &P:(_=E/ ?<B'NX(_N^NuNV(y:.gRn&n -S:. Ee&n$l&7n&l&z&n &N^NuNVJNgN^Nu-n/.HnN RPJf:I'nGz$WU?<?<2HnN &P=_?<B'NX#N#R#(y*.xڄ)E*.ڮ()l)l *,\)E&l& BkN^NuN'NVBNHyHyHyNFO Jyf3z:9/N)XN^N?[1][The following file could|not be found:|][ENTER NAME|CONTINUE][3][An IO error has occured|whilst writingreading the disk.][OK][3][The disk does not have|enough room to write|any more information.][OK] TMPMODREFSYMLNKLSTPRGMAPCORERDERMXRFDECPRTINDRSC : : HEAPQUERYREFLISTSTACKMAPDTABLEOPTIMISENVnBg/:.@I4P  g,:.@IJ4Pg:.@I8.@SDGBP@Rn@`:.@SEIBB4PB9:(n"JgJ.f:. Eg Jngz`zE7J.7g&:.&?(n"HTN\?<Hy+AN\Bn4J.3fJ.g`NBg/Rn@`Rn>:.> EIB4P?<?<?<1HyNO ?<?.N.P?<* /I|* /HnN O ?</J4Pg:.I>4P \f=nRn`Rn:. EB4P?<?<gG+UEzWNNJ9?gG+YEzWNNJDg&G+^EzW/ /9DN;:X(_NNJ9@gG+dEzWNxNjJ9BgG+hEzWNXNJJ9AgG+oEzWN8N*&nB+_N^NuNN Bb4R9;NR9;+_N^NuNVz(n g<(n HTN0XU&n (S?N ZT(n(n HT?<Hy?HyHNFO Hy@HyAHyBHyDNO:B9;N^NBTNVByJ3L/9J?.<< B':. ?(nHTN@ON^NuNV/.?.<< B':. ?(nHTN@ON^NuNVBnz. NVz-ERn:.SEIBPN4z-ERn:.SEIHPNz -EN N H*Rn/./.NH.-_z c*.x0ڄ8.SDI@N*.x7ڄ8.SDI@/./.NHX-_Jg`J.gRn:.SEI-P:.ndBnN:.n=EBn:.nd:.(nPN:.SEI8.&nP@SnRnJng`:.n b :.(nB4PN^NuN?NVN^NJlinker error The linker has detected an internal error whileattempting to link your module. Please refer toyou Modula-2/ST manual for details of the errornumber.more than procedures separate modules version conflict on module linking version conflict on module linking initialisation order: cycle in module references for NVJ. f`N=| ncNa ndRn`aܸ?< HyB`a,\?.Bg?<HnaVO ?<Hna۶\a܀a|?<.HyBna۞\ah?<.HyBaۊ\aT?<.HyBav\a@?<HyBab\?<<aXN^NuNV?< HyCa\?.Bg?<HnaO ?<Hna\:. ?(nHTa\a?<<aѸXN^NuNV n CpQ nCpQ|BnJ.gL:. EdB:.IJ4Pg4:.IJ4Pg&:.I8.G4P3@WDERn`J.g*:. Ed :.I8.G4P3@WDEnN^NuNV(n8N^NuNV n CpQ nCpQ:. Eg :. Ef |N^Nu:.nf:.nf:.nfz`zEN^NuNV:9N Ef"3 N:. E? EWD(nN:. yNWD(nN^NuNV:. E4WD(nN^NuNV3NN^NuNV:9SEBIPIP":9RE8BlN^NuNV:9SEBIPIP":.RElcJ:9 Ee/ ?<?< HyCaP(_RlRy:9SEEGPGPBSBk`N^NuNV3 ycN2:9SEEIPIPz)E B, ydRy`N^NuNV(n:9ye(nB?<?<HyCaPN^NuNVSyHnaXN^NuNV nCpQ nCpQ nCpQ(nB(n B(n8(nJf(n:yb`N(n:SEBIPIP/ UHnHTaP(_Jg`N&n/ UHnHla2P(_Jg &n Nd/ ?<HyC/a\(_/ ?<Hna\(_/ ?<HyCLa\(_/ ?<Hna\(_/ a׼(_/ HlaX(_N&nRSN(nJf(n8(nJf(n:ye`NZ(n:SEBIPIP/ UHnHTaP(_Jg`N&n/ UHnHla4P(_Jg &n Nd/ ?<HyCVa\(_/ ?<Hna\(_/ ?<HyCsa \(_/ ?<Hna\(_/ a־(_/ HlaX(_/ ?<6HyC}a\(_/ a֔(_=y&n:?0.ȰWcNN/ ?<HyCaՖ\(_/ :.SEBGP?<HsPat\(_/ a:(_0.ȰWdRn`TN&nSSNN^NuNV:9 ESD?<a XRy:9SEBIP89SDBGPIPG@z 6QRyN^NuNBNNVaa2ByBy3N^NVr ---- files DTableMapQueryStackOptimise ---- illegal value: Master Filefiles linked:files linked:GEMXGEMXMap FileLoad FileCreating load fileCreating map fileM2WORKCreating work fileEnd of LinkageLinkage terminated - no load file created.NV?<HyK"aӞ\:. ?(nHTaӌ\N^NuNVz WD?.aPXN^NuNV nCp'Q?<'Hn:. ?(nHTa>O N^NuNV*.SE(IHHtP<:.?(n HTaO N^NuNVBn:.n b4:.nb*:.(nJ4Pg:.(n8.&nP@Rn`:.n b :.(nB4PN^NuNVRy":9" Edc?<d?<HyK)a,P:.?(n HT:9"SE(IH?<'HtPaNO z:9"(n(N^NuNV*.JEc*.y"bz`z?<daX*.SE(IH?<'HtP:.?(n HTaO N^NuNVBy"N^NuNV(nBB9BB97B9:8B99B96B9;B9N^NuNV nCp Qz. I"GIP((8N^NuNVB'HyK1a\<HyK8a\<HyKaOJ.]f4?<HyKQa΄\?<OHnav\a@(n# >N(nNN$0 <Hn`Hn^afPNN^NuNVIKgGz W/9?<a\?<(HnBgHyKs?<Hy<<?<'Hn(n HTapO (n JgFHnaXHnaX(n Jg?<'Hn(nHTaO J9Bga#VN^NuNVJ9#Vg?< HyKta^\a(B9#V/9?<a\:.?(n HT:.?(n HT?<Hy96B'?<'Hn(nHTaO (nJg?<'Hn(nHTaJO N^NuNV(n B(nBN^NuNVIKGzW?<'Hn/.arO /9?<a\?<(Hn?<'HnBgHyB'B'?<'HnHnaO .?<ea8XN^NuNVJ9#Vg?< HyKa6\aB9#VIKGzW/9&?<a\?<(Hn?<HyK?<Hy&96B'?<'Hn(n HTatO (n Jg?<'Hn(nHTaO N^NuNVRIKGzWIKG~zWIKGTz W?<'Hn/.a.O /9*?<a\?<(HnT?<'Hn?<Hy*B'B'?<HnRHna"O J.f?<HyKaZ\J9:gX/9.?<al\?<(Hn~?<'Hn?< Hy.B'B'?<HnRHnaO J.f?<HyKa\?<(Hn?<HyK?<Hy2B'B'?<HnRHnaxO J.f?<HyKa\N^NuNV*. DgHn HnatPN^NuNV/9?<a\/9"?<a\/92.a\J.gU/9#X/9"a6PJgHy"HnaPNHy#XHnaPN^NuNV##X#^3#\#bz##XBy#\N^NuNV##^#X3#b#\N^NuNVHy#X(nHTaP(n:y#\N^NuNVHnaXzndzndz`zE.?<aX:.(nN^NuNVBn:. Ed:Hna~X:.M8.(n@Rn:.E8.(n@Rn`N^NuNVBn ncNF:.E(nHtPa"X:.E(n84P Df:.E(nBtP ndRn`N^NuNV(nHTaX(n:WD?<aX(n:M(n8N^NuNVHy#XHnaP(nJg:.y#\fz`z(nN^NuNVlNVN^N imported modules stackedreverse addressno module found with initialisationprogram not executable Modula-2/ST GEM Linker Version 3.20a Storage map of (module from file normal (stand alone) linkage unreferenced procedures removedincluded (for debugger) debugger tables includedremoved code start code length bss start bss length first free separate module Data: Proc #: empty removedNV:9SEEI&IP:9dB.zGB3PQ9yaX(_/ HnalX(_. f 9n(N9n*=|:.M?0.WcN/ Hna*X(_0.WdRn`TN/ HnaX(_/ ?.aZT(_:,"nSEEGPGPHHSaXL. f.HJnWD?<?aXLHHnaXL:,"n=EJnf 9n@N:.SEEEP5PBk=nHHkaRXL=|:+M?0.WcN"HHna&XL0.WdRn`TNN/ . TD?<@aFX(_/ HnaX(_N/ . TD?<AaX(_/ HnaX(_/ HnaX(_N/ . TD?<BaX(_/ HnaxX(_/ HnajX(_/ Hna\X(_N`N\NH z$$$nrrrrrrr$$/ B'?<6aPX(_z.G H |/ Hna&X(_/ .?<CaX(_. gNJl$f / BgaT(_/ a(_:9SEEG&GP=S=|:+?0.WcN(:.SEE)HrPH:9SEBEPHrP$nHR$nHjHnHnHnaOLJ.g$nJg J.gz`z$nNHa@L:9SEBEPHrP$n"nz"Q$n"nEC"2HHnaXLJ.gHHna|XL$nJg J.gz`z$nXHaLRnX0.WdRnNTaN^NuNVa(nHTaX(nJg`N|(nHTaX3J98gHaaH(nHTaZX(nJg$HnaX(nJg J.gz`z(naa(nJg (nHTaXaN^NuNVatN^NuNV-y #:9RE=E:9?0.WcN:.SEBIPIP:.SEEG#d'P)n0z:,(ۮ)n4z:,*ۮ=l@Jng0:.SEEGPGP'nJ+ g z:+ۮ=k`:,"SEEGPGPz:ګ)E80.WdRnNPT##:9RE=E:9?0.WcN4:.SEBIPIP)n,z:,&ۮ0.WdRn`T#N^NuNVHy*?.a@\:.y{N^NuNV-n?.aT?.aTN^NuNVHy*?9{a\N^NuNV?<`aTI/ *,x ڄ/aX(_/ *,/aX(_/ *,/avX(_Hy{aXBa`XBaXXBaPXBga&T?aXN^NuNVHnaXBy{=|:9?0.WcNT:.SEBIPIP/ ?<aT(_J9=g`N/ :,$EE"?aT(_/ :.SEEG#d/3PaX(_/ /,,a~X(_/ ?,ghJy{c\/9{aXBn:9{SE?0.WcN,:.EId@?4PaTT{0.WdRn`TaBy{N6By{Bn ncN :.IsP ndRn`N^NuNVJncN/. aLX=|:.M?0.WcN*HnaPX?.a"TT{0.WdRn`TN^NuNV*9{c?<Hy^a\*9{dBgaTT{`N^NuNVBy{By{d>Bn ncN :.IsP ndRn`N^NuNVB{*9T#{B9{Hy2BgaѢ\Hy2?<aђ\N^NuNVJ9{g$Hy2z9{Ex.D?ab\N {J9{WD{N^NuNV*. czaT`*.aTN^NuNV*9{{۹{#{{:9{SE=E:. Ee=|-y{-y{Bn:.?0.WcNX:.Is4P g,/.aPX#{B{B:.IsPTT0.WdRn`TN^NuNVHy*/9{a>PHy**.x?a@\Hy**.?a(\N^NuNVHy2HnaPUHy2a XJf"Hy*?.a\Hy2HnaϦP`N^NuNVB'a&TB'aTB'aTB'aTHy2aXaN^NuNVHy*(nHTa\PN^NuNV:.EId@x84P(n ((n *p(n (:.REEId@x84P(n ؔ(n (N^NuNV:. EId@IP( -D(n(J.fz:. 8. Is@N^NuNVHn?. ab\*.ڮ-E/.?. ?. .aO N^NuNVzg:(n:SEEIPIPJ, f / /, aX(_(n-l`N^NuNV,J98gJ9;gJ9=g8=|< n:.nSEBIPIP/ HTHl/,aO (_/ HnkaX(_/ J.kRD?<aѾX(_z.k N"F/ HnJaX(_/ HnDaX(_/ HTHnJHnDHnC&nHSHndaՂO(_/ J.Cg &nJgz`z?<_a@X(_/ Hn:aX(_:.:SEEGp7dPN/ Hn6aX(_N.k f/ Hn6aX(_/ Hn>aX(_=|<:.>M?0.aX(_=|<:.>M?0.BBBj,BBBBjj&n/ &nHSaX(_/ &n?<kaX(_.k gN/ a(_0.nWdRnnNT=|< naX(_z.e N.-l,4ND-l04N:-l44N0N, ****************** / z:.@ڮ4/?.>a\(_N/ Hn8aX(_:,"n8=Ej/ a(_:.jSEEGP#P{=y{h/ Hn0aX(_.e f/ Hn0aX(_/ Hn>aX(_:.jSEEGPJ3P VDd>=|<:.>M?0.aO (_Nn/ HnfaX(_/ :.hnfy{UD?<daȺX(_:.jSEEGPGPH/+:.hnf??..99aO LN/ Hnfa.X(_/ :.hnfy{UD?<eaLX(_/ Hn8aX(_:,"n8=E`/ :.`SEEGPJsPRD?<fa X(_:.`SEEGPGP.e  g .e !f`Nxz:ګ8.jSDDEP@x8.f؄-E*H*.* m*.* nz`z?<aLjXL*.*8.hnfDEd@5@N0Hz:ګ/:.hnf??..99aO LN/ HnfaX(_/ :.hnfy{UD?<gaX(_/ Hn8aߤX(_.e g$/ Hn:aߌX(_:.:SEEGp=sPbN=|b:.bSEBGP83P"n8=D`/ :.`SEEGPJsPRD?<haƄX(_:.`SEEGPGP.e "g .e #f`Nxz:ګ8.jSDDEP@x8.f؄-E*H*.* m*.* nz`z?<aXL*.*8.hnfDEd@5@NNHz:ګ/:.hnf?:.bSEBEP?2P<:.bSEBEP2P>aZO LNN/ Hnfa@X(_/ :.hnfy{UD?<ia^X(_/ :.jl"WD?<jaBX(_J.3g`NB.3JnnfJ:.hnfEGd@7NqP:.hnfREEGd@7NqP:.hnfTEEGd@7NqPN8/ :.nSEBGP/3P8:.hnfRE??..99anO (_=nlnN:.lRE=EbB.2:.byb@J.2f::.bSEBGP=sP"8:.8SEEGPJsPfRnbN|2`J.2gJ:.bSEBGP-sP84*.4\-E4/ /.4:.hnfRE??..99aO (_N:.hnfEGd@7NuPNb/ Hn0azX(_NPNLNH ```@DL``JJN        ``&n/ &nHSabX(_/ &n?<kaRX(_.e gN6/ a(_0.lWdRnlNTaJnnf2?<"Hy^(a~\a?<Hy^Laj\a(nBN@:.nSEBIP#P83{J9=gaNa/9a8XN^NuNVHy..a \N^NuNVHy.< a\N^NuNVBn:.n b&:.(nJ4Pg:.(n4PaTRn`N^NuNV/.?<?<HnaO ?<Hna\N^NuNV?. ?.?<HnaO ?<Hnap\N^NuNV?< Hy^caX\?<Hy^raH\a*a&?<Hy^a0\:9SEBIPIP/ ?<HTa \(_/ ?<PHn/,aXO (_?<Hy^a\?< Hy^a\?<PHna\<)aTaaJ98g?<Hy^a\a|?<Hy^a\J9;g$J98gJ9=f?<Hy^a^\N*?<Hy^aJ\J9=g?<Hy_a2\a?<Hy_a\J9=g?<Hy_$a\N?<Hy_-a\aaI/ ?< Hy_5a\(_/ /, aX(_/ ?< Hy_Ca\(_/ *, /aX(_/ az(_/ ?< Hy_Ra\(_/ /,aX(_/ ?< Hy_`a^\(_/ *,/aX(_/ a((_/ ?< Hy_oa.\(_/ /,a\X(_/ a(_/ a(_:.RE=E:9?0.WcN:.SEBIPIP/ ?<Hy_}a\(_/ ?<HTa\(_/ ?<PHn/,aO (_/ ?< Hy^a\(_/ ?<PHna|\(_/ aZ(_/ ?< Hy_a`\(_/ /,,aX(_=l"Bn=|:,$?0.WcNz:.HE Ef/ a(_/ ?< Hy_a\(_/ ?.?<aZX(_/ ?<Hy_a\(_:.SEEGPGPJkfH?<Hy_a\LN6J+ gH/+aXLNH?<Hy_av\LRnRn0.WdRnN.T/ a8(_0.WdRnNRTN^NuN]NVa?<Hy^ra\azHy{aXJ9{g\:9SEBIP/4PaXHy{aXJ9{g,ajHy{aXJ9{gJ9:g ?9a@T9{aTN^Nu<N*nD4         (          **".,&0*  (       & * . &  &     "           r:^22  x $*        :&84" $  .           :& "  0          $  > 6 2 "         "&4     h"N  B   b.*"$ r               4DP2( :H2($"NFfx@ &4"" N8*"< >^f@ "0"X,00      0nL <&$4    j\&b\&<"D     $* ( . *@ ^ ,X&"4  D&$( $( (( |`& .R$0 &L &2  HFb<      6 v 0 ` | @0* ,0F6 .~  ` " B",  : *&(^8" Nlx4H TD"6,,,,,,D0 .<$4X*.d$4X06T,,,$ 6,      "0"06<.^&8H    `C XNC GEMXModula-2/ST (c) Copyright TDI Software Ltd. 1985, 1986. The team : Chris Hall, Paul Curtis, and Phil Camp .[3][Modula-2 Run Time Error : | | #][OK]NVN^Nu _b ШNYN"pNGNuNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n IC8B,)n9n)n )n)n)n|.n 9C/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBNpL?NAN^NuNV/-+NI|Gz+WBn:.IJ4PgRn`=yC:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnIGzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^NurpNGF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB 9D!B*H$C! `N <L?NAN`WNsNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNV . /2.??<NM*-E:. E b:.EID)PN:.E EID4)PN^NuNV/9D?<N\/9D ?<N\/9D?<N\/9D?<N\/9D ?<N\/9D$?<N\/9DP?<'N\/9DL?<&N\/9DH?<%N\N^NuNqNqNq O h*#C(yC#C ( ШШ(yC*,Ѕ.@//??<JNA (yC*,ڬ ڬڬ#D/<Z?<N\/<L?<N\/<h?<N\/<v?<N\/<?<N\/<?<N\/<?<'N\/<?<&N\/<:?<%N\# CpNGN NVID89n9n 9n 9n <IDt* "NB3DD=yDN^NuNV3 D3DN^NuNV3 D3 D3DN^NuNV3D3 D3 D3DN^NuNV3D3D3D3D3D3 D3 D3DN^NuNV(n 8D(n8DN^NuNV(n8D(n8D(n 8D(n8DN^NuNNVIDB BBBBIDtGD* (GD* )EGD* )EGD* )E GD* )EGD* )EN^N NVBg?< Bg?<BgBgNO =_N^NuNV?.?. N X#DBg?< ?<?<?<BgNO 3DN^NuNV?.?. N X#DBg?< ?<?<?<BgNO 3DN^NuNV(n* #DBg?< Bg?<?<BgNO =_N^NuNVBg?<Bg?<BgBgNO 3DN^NuN NVN^N HNV(n* #DBg?<nBg?<?<BgNO 3DN^NuNVBg?<oBg?<BgBgNO 3DN^NuNV?.?. N XBg?<p?<?<Bg?<NO 3D(n(DN^NuN NVN^N NV3D# DBg?<?<?<?<BgNO 3DN^NuNV?. ?.N X# DBg?<!?<?<?<BgNO 3DN^NuN BNVN^NXNV3D# DBg?<2?<?<?<BgNO =_N^NuNV?.?.?.?.?.?.?. ?. N vO3DBg?<3?< ?<BgBgNO 3DN^NuNV3D(n* #DBg?<4?<?<?<BgNO =_N^NuNV#DBg?<6Bg?<?<BgNO 3D(nHT(nHT(n HT(nHTN ON^NuNV#D# DBg?<ZBg?<?<BgNO 3D(n8DN^NuN NVN^NNV?.?.?.?.?.?.?.?.N vOBg?<G?<?<BgBgNO 3D(n HT(nHTN PN^NuNV?.?.?.?.?.?. ?. ?.N vOBg?<J?<?<BgBgNO 3DN^NuNVBg?<MBg?<BgBgNO =_(nHT(nHT(n HT(nHTN O=nN^NuNV3 D#DBg?<N?<?<?<BgNO 3DN^NuNVBg?<OBg?<BgBgNO 3D(nHT(nHT(n HT(nHTN ON^NuNRNVN^NNV?.?.?.N .\Bg?<?<?<BgBgNO =_(nHT(nHT(n HT(nHTN O=nN^NuNV#DBg?<Bg?<?<BgNO 3DN^NuNV3BD3@D3>D3<D3:D38D36D34D32D30D3.D3,D3*D3(D3"D3 D#$DBg?<?<?<?<BgNO =_(nHT(nHT(nHT(nHTN O(n 8D(n8D=nDN^NuNNVN^NNV?.?.?.?. N NP3 D3D#DBg?<*?<?<?<BgNO 3DN^NuNV?.?. ?. ?.N NP#DBg?<+?<?<?<BgNO =_N^NuNV3D#DBg?<,?<?<?<BgNO 3D(n 8D(n8DN^NuNV?.?.?.?.?.?. ?. ?.N vO#DBg?</?<?<?<BgNO 3DN^NuNNVN^NNV3DBg?<f?<?<BgBgNO 3DN^NuNV3DBg?<g?<?<BgBgNO 3DN^NuNV?.?.N XBg?<h?<?<BgBgNO 3D(nHT(nHT(n HT(nHTN ON^NuNV?.?.?.?. N NP3 D3DBg?<i?<?<BgBgNO 3DN^NuNNVN^NnNVps"9I(NBN^NuNV3D3D3 E3 E3EN^NuNNVIE* #IIF* #IIG* #I IH* #I$ID* #I,#II0#II4#I I8#I$I(n(n BBn ncN :.2(nB4P ndRn`|\Bn ncN:.2(nJ4Pf`Nr:.2(n?<1HtPBgN`P:.2(nJ4Pf@:.2(nGXIPzWHnNXzAn8.2(n@:.2(n4P :gL?<Hy\:.2(n?<1HtPBgNOHnNXzAn8.2(n@Bg:.2(n?<1HtPN\=_:. Ec :.2(n8.SDIP4@ \g4:.2(n8.IP\@:.2(n8.RDIPB4@:.2(n4P \g(BgHn:.2(n?<1HtP?<NO ndRnNJN^NuN$NVBg?<Hy_N 0\3IfN^NCDEFMODSYMLNKPRG*.*DEFMODSYMLNKPRG EDITOR.PRGMODULA.PRGLINKER.PRGDEBUG.PRG[3][Error running ][OK]A:*.PRG.PRG[3][Are you sure you wish|to delete ALL elements of|module ][YES|NO][3][You must create the| DefinitionImplementation part of|the module first][OK][3][M2Desk only runs in|high or medium res][OK]M2DESKC.RSCM2DESK.RSC[3][No resource file for|Modula-2 Desktop][OK]NV-n(n:. &n&P N^NuNV-n (n:.=tP N^NuNV-n (n:.=tPN^NuNV-n(n:.IP&n6&n6&n 6&n6N^NuNVBg/. ?.N"<\=_:.E=E/. ?.Bg?9J|?9J~?9J?9J?.?<NON^NuNVBg/. ?.N"<\=_zFE8.E=D/. ?.Bg?9J|?9J~?9J?9J?.?<NON^NuNV-n(n:. )P N^NuNV-n (n:. 9PN^NuNV-n (n:. 9P N^NuNV-n(n:.IP9n9n 9n 9nN^NuNV-n(n:.IP:, EfT-l Bn&n=k:.n b6:.&nJ3Pg(:.nb:.&n$n$R8.P@Rn`N^NuNVz. N~I GzWNhI GzWNRI GzWN,g / <<<<N5\P(_N/ <N5T(_N. f`N&m:+ Ef&,g/ <B'B'<N5\P(_Nt,f/ <N5T(_N2,g , g/ <<<<N5\P(_,g/ <B'<<N5\P(_+_N^NuNV/-+NBg/9JRBg?<c?. ?. NO =_Jnm Bg/9JR?.N"\\:EJEg`N2I!GzW/9JR?.N"\B.Bn:. IL8.tPf|RnJ.f:.yLb`J.g`N6/9JR?.HnHnHnHnN"|O/9JR?.HnHnNBO?.?.?.?.?9J|?9J~?9J?9JHnHnNdOHnHnHnHnNO/9JR?.N#\Bg/9JRBg?<c?.?.NO =_JnmdBg/9JR?.N"\\:EJEgF/9JR?.N"\:.SEyL=E:. IK~IPGz&Q=|:.yJffD:. Ef:J.g?<Hn<?<HnN$OB'?<HnN.PN:.yJhfF:. Ef"NN>/9J^?<HyMN"O /9J^?<HyMN"O /9J^?<HyMN"O /9J^?<HyM N"O /9J^?<HyMN"O |N^NuNV/9JVBgN T\N N dN^NuN VNVIQ* .EB'N@FJg N=NChN^Nut<N*nD "4         (          (        &       6     * 0 &   & &      .     "          $0L( t:^2D  x     &84P"$.: ."  D&L ( &&*((22" , "       * .&.  (  $&   $&(  &  *.., ,$$(24D4$   $     ,,,,F *  P((&  "N                B$>2O F Desk File About M2Desk-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Quit M2Desk Execute Program -------------------(c) Copyright TDI Software 1986M2Desk : TDI Modula-2/ST DesktopDeveloped by Phil Camp TDIOKEDITORCOMPILERLINKERDEBUGGERM2 BINMODULEDEFINITIONIMPLEMENTATIONSYMBOLLINKPROGRAM TDI Modula-2/ST Desktop DEFMODSYMLNKPRGU@U!!UPPl"T"(A8A@@  )@)@DDAA""RR$H'0FF FFF FF??>|xp????????<L8p80@   ?????? ,d*UT*̅UT*UT,d ?@ H P`~x~~~~H~(x @? 'V҉D(URT&%Rd!%RT.$RT ?? B(BD(BT(Bd(BT.BT B?@ H P`~x~~~~~~ 1 2 * ) @A@@ @0@ @@2 @bR JR JR JR JR BD HP`@@@@@@@@@@@@@@@@@@@@@@Y+U%*Ui*U%i*Y).@@CnʌBBB*B.@@@@@@@@@@@@@@@@@@@@@@]FJIUDjIWFZIDZ]vJ@@CnʌBBB*B.@@@@@@@@@@@@@@@@@@@@!!pp|>|>8899||>>ss''U@U!!UPPl"T"(A8A@@  )@)@DDAA""RR$H'    0@@     p#$@$@8@@@@8@$@$@p#        0 @ @ @ @ @P A` AA` @Qr@ (@ HR{J%Q N( @ A`A A` @@ (@ H{J%Q( N'@ @ @(P(@4X@@@4X@(P(@ @ @ >(. b:l0$$0s0$$0|0$$0r J0$$0 "  0  *0$$0 .0$$0bR20((0B260((0":0$$0)JK!Lgh         $%PP  $ +P2 A V k   2   0B  0^ ' i+AN2 T v - @z      ) 3">Z v@&<(<  *4  *4  ! " #* $4 % & ' (* )4 * +,!-*!4N!  AM :V"$= " Desk File About M2Desk-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Quit M2Desk Execute Program -------------------(c) Copyright TDI Software 1986M2Desk : TDI Modula-2/ST DesktopDeveloped by Phil Camp TDIOKEDITORCOMPILERLINKERDEBUGGERM2 BINMODULEDEFINITIONIMPLEMENTATIONSYMBOLLINKPROGRAM TDI Modula-2/ST Desktop DEFMODSYMLNKPRGU@U!!UPPl"T"(A8A@@  )@)@DDAA""RR$H'0FF FFF FF??>|xp????????<L8p80@   ?????? ,d*UT*̅UT*UT,d ?@ H P`~x~~~~H~(x @? 'V҉D(URT&%Rd!%RT.$RT ?? B(BD(BT(Bd(BT.BT B?@ H P`~x~~~~~~ 1 2 * ) @A@@ @0@ @@2 @bR JR JR JR JR BD HP`@@@@@@@@@@@@@@@@@@@@@@Y+U%*Ui*U%i*Y).@@CnʌBBB*B.@@@@@@@@@@@@@@@@@@@@@@]FJIUDjIWFZIDZ]vJ@@CnʌBBB*B.@@@@@@@@@@@@@@@@@@@@!!pp|>|>8899||>>ss''U@U!!UPPl"T"(A8A@@  )@)@DDAA""RR$H'    0@@     p#$@$@8@@@@8@$@$@p#        0 @ @ @ @ @P A` AA` @Qr@ (@ HR{J%Q N( @ A`A A` @@ (@ H{J%Q( N'@ @ @(P(@4X@@@4X@(P(@ @ @ ( Bm0$$0t0$$0z}0$$0R *0$$0  r 0  0$$0 j 0$$0B2 0((0" 0((0 0$$0*KL!Mhi   PP  $ +P2 A V k   3    0"  0> ' j,CN!+45V  AZ v     ) 3 :@<<   *4  *!3Nx! CM Vf`e:Ne[3][Modula-2 Run Time Error : | | #][OK]Modula-2/ST (c) Copyright TDI Software Ltd. 1985. The team : Chris 'how tacky' Hall, Paul 'where's the cursor' Curtis, and Phil 'boot you @#$%' Camp !!. _b ШNYN"pNGNuNV*x ڄ=E*P-E@-M-VNh-H:. Eg :. Ef-n*.P-ENH:. Ef Nh-hN2:. Ef BBN:. E e Nh-PN-n Ie8B,)n9n)n )n)n)n|.n 9e/@>,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBpL?NAN^NuNV/-+NIGz+WBn:.IJ4PgRn`=ye:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnI2GzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^Nu OAbrpNGNurpNGNV-|.*.f *. drpNG-n nBBB!.B"H$!.!.@ .PPB! 4"n "N^NuNFNuF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsNENuF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB!<B*H$C! ` <L?NAN`WNs*x b "T@NGNuNNuNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH".$. &(*,BHDHEHABهCهHABBBCHBHCԃԄHEJjJj-A -BLN^Nu ./,/[JjDJ[jD |*NJgDJgD/NuNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^Nu |(oNNVH(. ,..HD:|glM||HF>|gXO||G|~mF H@HFB@H@2Ё"HAHFЁHD؀kSEؼdREJEk|m pNB` -D LN^NuNVH(. ,..BGg^<BEgV<✚G|HF⌈0BDHD8 H@∀HDkSEؼdREJEk|m pNB` -D LN^NuNVH . $j ļfB".$j ļfBLN^NuNVH .$ļfBJLN^NuNVH .g*2<bH@|bQAU-@LN^NuNVH .j g` BA<☒|lB`|DAlpN⨰b-@LN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuNVpNN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNVN^NuNV/??<NMN^NuNqNqNq O h*#e ( ШШ//??<JNA *< rN *< rN *< rN *< rN *<  rN *<\ r'N *< r&N *< r%N #"epNG?<1Hy8N \?<BHykN \?<"HyN \N^NV0.?NA*-E N^NuNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV ./ . / ./0.?0.?NA*-EN^NuNV ./0. ?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNV0.?0. ? . /0.?NA*-EN^NuNVBBgN 0T-_N^NuNVB?<N 0T*(nN^NuNVB?<N 0T-_*.(n *.x(nN^NuNVB?<z.?N FX-_N^NuNVB?<N 0T*(nN^NuNVB?<z.?N FX-_N^NuNVB?<z.?N FX-_N^NuNVJ.fB?<?<N FX*(n N(n B?<BgN FX*EN^NuNVB?<N 0T*(nN^NuNVB?<N 0T-_*.(n *.x(nN^NuNVB?<N 0T*(nN^NuNVB?< (n* /N \-_N^NuNVB?< (n* /N \-_N^NuNVB?< N 0TJf B.N^NuN |N^NuNVB?<?. N FX(n(N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0TJf B.N^NuN |N^NuNVB?<N 0T*(n8N^NuNVB?</.N \-_N^NuNVB?<*N 0T*(n8N^NuNVB?<+?.N FX-_N^NuNVB?<,N 0T*(n8N^NuNVB?<-?.N FX-_N^NuNVB?</N 0T(n(N^NuNVB?<0N 0T*(n8N^NuNVB?<1/. ?.N P-_N^NuNVB?<6(n * /?.N P-_N^NuNVB?<9(n* /N \Jf|N^NuN B.N^NuNVB?<:(n* /N \Jf|N^NuN B.N^NuNVB?<;(n* /N \Jf|N^NuN B.N^NuNVB?<<(n* /?. N P*(n8N^NuNVB?<=(n* /?. N P*(n8N^NuNVB?<>?.N FXJf| N^NuN B. N^NuNVB?<??.(n //.N bO (n (N^NuNVB?<@?.(n //.N bO (n (N^NuNVB?<A(n* /N \Jf|N^NuN B.N^NuNVB?<B/.?.z. ?N O (n(N^NuNVJ. f*B?<C(n* /?<(n?N O -_N*B?<C(n* /Bg(n?N O *(n8N^NuNVB?<G(n * /?.N P-_N^NuNVB?<H/. N \(n(N^NuNVB?<I/.N \Jf| N^NuN B. N^NuNVB?<JBg/. /.N bO Jf|N^NuN B.N^NuNVB?<Kz.?(n* /(n* /(n * /N O*(n8N^NuNVB?<LN 0TJf| N^NuN B. N^NuNVB?<N(n* /?. N P*(n8N^NuNVB?<ON 0T*(n8N^NuNVB?<VBg(n* /(n* /N bO -_N^NuNVJ.f&B?<WI * /?.BgN O -_N&B?<WI * /?.?<N O -_N^NuN .NVN^NNVIf689n9n 9n 9n <If* "NB3fbf=yfN^NuNV3 f@3fBN^NuNV3 f@3 fB3fDN^NuNV3f@3 fB3 fD3fFN^NuNV3f@3fB3fD3fF3fH3 fJ3 fL3fNN^NuNV(n 8fd(n8ffN^NuNV(n8fd(n8ff(n 8fh(n8fjN^NuNXNVIfB BBBBIfGf6* (Gf* )EGf@* )EGfb* )E Gfr* )EGf~* )EN^NNVBg?< Bg?<BgBgNjO =_N^NuNV?.?. NX#frBg?< ?<?<?<BgNjO 3fN^NuNV?.?. NX#frBg?< ?<?<?<BgNjO 3fN^NuNV(n* #frBg?< Bg?<?<BgNjO =_N^NuNV?. ?.NX# frBg?<?<?<?<BgNjO 3fN^NuNV3f@# frBg?<?<?<?<BgNjO 3fN^NuNVBg?<Bg?<BgBgNjO 3fN^NuNNVN^NbNV3f@# frBg?<2?<?<?<BgNjO =_N^NuNV?.?.?.?.?.?.?. ?. NO3fPBg?<3?< ?<BgBgNjO 3fN^NuNV3f@(n* #frBg?<4?<?<?<BgNjO =_N^NuNV3fBBg?<5?<?<BgBgNjO =_ N^NuNV#frBg?<6Bg?<?<BgNjO 3f(nHT(nHT(n HT(nHTN|ON^NuNV#fr# fvBg?<ZBg?<?<BgNjO 3f(n8fdN^NuNNVN^NNVps"9jNBN^NuNV3f3f3 f3 f3fN^NuN\NVIf* #jIg* #jIh* #jIi* #jIf* #j#jj#jj#jj#jjIj* #jN^NNV?<BgBgBg(n ?NO Byj y joN4:9jE(n89jDGf7P@ y jlRyj`Nn(n 8fByj y,joN4:9jEIh89jD&n7P@ y,jlRyj`3-j y8joN8:9jE-EIi89jD&n7P@ y8jlRyj`N^NuNV?<BgBgBg?.NO NnN^NuNV?<dBg?< Bg(n ?NO Byj y joN4:9jE(n89jDGf7P@ y jlRyj`NnByj y,joN4:9jEIh89jD&n7P@ y,jlRyj`3-j y8joN8:9jE-EIi89jD&n7P@ y8jlRyj`(n 8fN^NuNV?<eBgBgBg?.NO NnN^NuNV?<BgBgBg?.NO NnN^NuNV?<BgBgBg?.NO NnN^NuNV?<wBg?<Bg?. NO NnNV?<xBg?<Bg?. NO 3fNnN^NuNV?<?<?<Bg?.NO 3 fByj yjoN4:9jE(n89jDGg7P@ yjlRyj`NnN^NuNNVN^NpNNV.  e. ~b| N^NuN B. N^NupNpNNVJ.e . c . f| N^NuN B. N^NupNpNNVB'.NTJfB'.NTJg| N^NuN B. N^NupNNpNNVN^N%pNNVB9jN^NupNNVBg:. ?(nHTN#^\=_:.RE8.Ec :.RE=EBn:.SE?0.WoN&:.(n8.&nP@0.WlRn`T:.nb:.(njPN^NupNNVBg:.?(nHTN#^\=_Bg:.?(n HTN#^\=_:.nnd :.nd`N:.n=E:.n?0ncN*:.n(n 8.&n P@0ndSn`TBn:.SE?0.WcN*:.(n8.n&n P@0.WdRn`TN^NupNNVBg:.?(n HTN#^\=_:. ndF=n :.n?0.WcN*:.n(n 8.&n P@0.WdRn`TN^NupNNVBg:.?(nHTN#^\=_:.ndh:.n d^:.nnc:.nSE=EBn:.SE8.Eb :.n(n8.&nP@Rn`:.(njPN^NupNNVBg:.?(nHTN#^\=_Bg:.?(nHTN#^\=_:.nJEf(njN:. TE8.nEd`N:. ?(nHT:.?(nHTNO =n:.nSE?0.WcN*:.n(n8.&nP@0.WdRn`T:.n(njPN^NupNNVBn:. ?0.WcN0:.(n4P9jf =nTN^Nu0.WdRn`T:. RE=EN^NupNNVBg:.?(nHTN#^\=_Bg:. ?(nHTN#^\=_JngJng`N:.nd:.SE=EN :.SE=EBn:.?0.WcN^:.(n8.&n3@4Pg4:.(n8.&n3@4Pd|TN^NuN B.TN^Nu0.WdRn`T:.nd|N^NuN":.nc B.N^NuN |N^NupNNVBg:.?(nHTN#^\=_Bg:.?(nHTN#^\=_JngJng:. nnc(n8B.N^Nu:.n=EBn:. n(n8.&n3@4PgN$Rn:.nf(n8 |N^Nu`Rn :. nc(n8B.N^Nu`pNNVjN^NupNNVyjN^NuNpNNVNN^N&NVN^NuN%NV#& jN^N'CompilationLinkingEditingProgram[1][Error(s) occured during ][OK]NVz(9j޸gB'/9jNXJNqN^NuNVZN&x?9jNzTJ.g`Nz:. NRI&0Gz WNJI&JN^NuNVHnNRX.  g`N^NuNVFBgHyjHyjHyjHyjN*8O3jBn n oN :.EI9P n lRn`=|HnHyjHntNnO ?</JN^NuNV?</:9o8EE(9qHg*:9o8EE/?9qFB'HyqHNO ?9qFHyo>IoF* /NVO Ryo8*9o>۹qHN^NuNVByo8NB~Jyo2lN^NuIp* #qL(yqL: Eg3o2?<Hy@NN:&\N^Nu(yqL:, E,g3o2?<Hy@dN:&\N^Nu(yqL:, Eg3o2?<Hy@zN:&\N^NuN^NuNVByo2(n *,3o8(n *.ڬ-E(n &n *+-E-n:9o8EE/?9qFB'HyqHNO :9o8EE(9qHg3o2?<Hy@N:&\N^Nu?9qFHn/.NVO *.g3o2?<Hy@N:&\N^NuN^NuNV(m:, EeNB~Jyo2lN^Nu(mBl(m:,EIoF&n6P(mRlN^NuNV/-+NByo2:9qRE IqP-tP&n(S*, 3o8=|I* -E=| ncN"(nHTNDXT ndRn`:. E g:. E gN:.YE=E*.ڮ-E:. E fj-nJncZHnNDX=|Jnc6Sn:.8. Dex` g(n*ڮ(n(*.T-E`:.UE=E`NfJnc^HnNDXHnNDX:.M=Ez:.ڮ-E:. IqP&n(شP(n(:.UEUE=E`Jyo2l+_N^NuHnNDXN+_N^NuNVByo2:.?(nHTBgHyqFNO JyqFl3o2?<Hy@N:&\Jyo2m`NNC Jyo2m`N:9qRE(yqL8,Eg(n8?<Hy@N:&\N^Nu(yqLJg(n8?<HyAN:&\N^Nu(yqL:9qRE GqP7 P(yqL:9qRE GqP'P:9qRE IqP/4P:9qRE IqPHtPNP:9qRE IqPJPf(n8?<HyA!N:&\N^Nu(yqL:9qRE GqP(3Pج(n (/9qL:9qRE IqP/4PNCPJyo2l(n8o2N^NuHyqLNDXJyo2l(n8o2N^Nu(n8o2B'?9qFN&TJNqJyo2l(nJTm (n8o2N (n8o2N^NuNV:.?(n HTHnHnNFOJnmd:9qRE3q-n(nN:9qSE3qB':9qRE IqP/4PNXJf=|?<HyAnN:&\(n8N^NuNV-ye(n:9q GqP'P*, ڬڬ89q GqP'@N^NuNVz#qHByqNIN^NuNVz:. NIAGzWNIAGzWNIAGzWNIAGzWNxIBGzWNbIBGzWNLIB;GzWN6IBVGzWN N "8Ndz(nBN^NuzAyqE?<(HnHnNHO Jnmz`z(n3jN^NuNV(nNN^NuNV?. .N&XN^NuN@,NVNIHyqNXN^NN[3][Modula-2/ST Heap overflow][OK][3][Modula-2/ST Unable to allocate heap][OK]NV(yq:.gRn-l &n-S*. g2&n:+nf$n $$n$)n N^Nu-n-S`z:.(c&n &z:.۬N^Nu&n:+nc>:+n7Ez:+ڮ$n $:+ Ed$n$)S N)n N^Nu-n-S*. g`GK`Ez"W/ Bg?<?<2HnNVP0(_?=_/ B'BgN^T(_Jf`N^NuNV(yq:.gRn&n -S:. Ee&n$l&7n&l&z&n &N^NuNVJjgN^Nu-n/.HnNPJf>IKGz,WBg?<?<2HnNVP=_B'BgN^TJf`#j#j#q(yq*.xڄ)E*.ڮ()l)l *,\)E&l& BkN^NuNK:NVBj/<NM:XN^N`6[1][ The following file could | not be found : | ][Enter New|Continue] [3][ An IO error has occured | whilst writingreading the disk. ][OK][3][ The disk does not have | enough room to write | any more information.][OK] TMPMODREFSYMLNKLSTPRGMAPCORERDERM FlushLookupFileA:\*. : CreateFileA:\*. : CloseDeleteSetPosResetSetLoadReadCharWriteCharReadWordWriteWordModifyWordEndFileNVn:. Ef`NIN$G6z1W?<Hn6:.?(n HT?<HnnN"jO?<Hnn?<HyNV?<Hn6N"jOBg?<?<Hn6NVP=_:. Egz`zEN^NuNBg?.NT=_|N^NuNVnINmG6z&WJ.g(?<Hn6?<HyN?<HnnN"jON&?<Hn6?<HyN?<HnnN"jO?<Hnn?<HyN?<Hn6N"jOBg?<?<Hn6NVP=_?<c<N&XN^NuNV6ING6zPWBg?<?<Hn6NVP=_?<c<N&XN^NuNV nCpQBnBn(m:.lb8(m:.(l J4Pg&(m:.(l 4P \f :.RE=ERn`=n(m:.lb<(m:.(l J4Pg*(m:.(l 4P .g:.n EdRn`(m:,UEUE8.EcN^Nu(m:.(l 4P .g(m:.(l .PBn ncN.Rn:.I&m8.&k P@ ndRn`(m:.ld(m:.RE(l B4PN^NuNV/-+Nz:. N NHyONQXNHyO NQXNHyONQXNHyONQXNHyONQXNHyONQXNHyONQXNvHyO"NQXNdHyO&NQXNRHyO*NQXN@HyO.NQXN.N "4FXj||HyO2NQX+_N^NuNV:. nc=n N^NuN =n N^NuNV(nHT?<(_*,4*c)l4*z)E.Bl2B,8N^NuNV(n *,4p ᥺.g`N/ Hn NTX(_*,4p )E.-l./ /.&n ?B'HnNO (_-|/ &n ?HnG:* /NVO (_Jd/ B'NPT(_/ Bg*,4RE??,2NSX0(_?9_2*,4G:$nPR4N^NuNV/. HnNUHP/. HnNUHPz.x.DE(n8N^NuNV(n *,4p ᥺.g`N/ Hn NTX(_*,4p )E.-l./ /.&n ?B'HnNO (_-|/ &n ?HnG:* /NVO (_-l./ /.&n ?B'HnNO (_/ Bg*,4RE??,2NSX0(_?9_2*,4G: P|8R4J.f)l4**,4Jf/ Hn NTX(_)l4.N^NuNV:. ME:. EE/. ..NVlP/. ..NVlPN^NuNV:J.g`N.IOGGzWHn@NXzAn@E?<Rn@`Rn>:.> EIB4P?<Jn g"?<zWHnNXzAnE>?<?.NRP?<* /I|* /HnNO =yf(yjNJngJnf (nBN^NuBn:. EJ4Pg:.I>4P \f=nRn`Rn:. EB4P?<?< 6 2 "   (    44    $ >          0    "& .bd *$            "   6$  Z"N B ..$ t          *DP2( <H2($"PF (.08< 0& "B >2&X,P"N4 f                $'@_   ; L \  0 C ` p  $ B S g ~  - W g  K i Rw;v"&OjFf'F`z 1Y,Kw:^u'Ff%Lc7T.h,Gg,DZxCx<jDzXr ( H l 0: illegal character in source file1:2: constant out of range3: open comment at end of file4: string terminator not on this line5: too many errors6: string too long7: too many identifiers (identifier table full)8: too many identifiers (hash table full)20: identifier expected21: integer constant expected22: ']' expected23: ';'expected24: block name at the END does not match25: error in block26: ':=' expected27: error in expression28: THEN expected29: error in LOOP statement30: constant must not be CARDINAL31: error in REPEAT statement32: UNTIL expected33: error in WHILE statement34: DO expected35: error in CASE statement36: OF expected37: ':' expected38: BEGIN expected39: error in WITH statement40: END expected41: ')'expected42: error in constant43: '=' expected44: error in TYPE declaration45: '(' expected46: MODULE expected47: QUALIFIED expected48: error in factor49: error in simple type50: ',' expected51: error in formal type52: error in statement sequence53: '.' expected54: export at global level not allowed55: body in definition module not allowed56: TO expected57: nested module in definition module not allowed58: '}' expected59: '..' expected60: error in FOR statement61: IMPORT expected70: identifier supplied twice in importlist71: identifier not exported from qualifying module72: identifier declared twice73: identifier not declared74: type not declared75: identifier already declared in module environment76: dynamic array must not be value parameter77: too many nesting levels78: value of absolute address must be of type CARDINAL79: scope table overflow in compiler80: illegal priority81: definition module belonging to implementation not found82: structure not allowed for implementation of hidden type83: procedure implementation different from definition84: not all defined procedures or hidden types implemented85: name conflict of exported object or enumeration constant in environment86: incompatible versions of symbolic modules87:88: function type is not scalar or basic type89:90: pointer-referenced type not declared91: tagfield type expected92: incompatible type of variant constant93: constant used twice94: arithmetic error in evaluation of constant expression95: incorrect range96: range only with scalar types97: type-incompatible constructor element98: elemant value out of bounds99: set-type identifier expected100: declaration needs too much space101: undeclared identifier in export list of module102: range not belonging to basic type103: wrong class of identifier104: no such module name found105: module name expected106: scalar type expected107: set too large108: type must not be INTEGER or CARDINAL or ADDRESS109: scalar or subrange type expected110: variant value out of bounds111: illegal export from program module112: code block for modules not allowed120: incompatible types in conversion121: this type is not expected122: variable expected123: incorrect constant124: no procedure found for substitution125: unsatisfying parameters of substituted procedure126: set constant out of range127: error in standard procedure parameters128: type incompatibility129: type identifier expected130: type impossible to index131: field not belonging to a record variable132: too many parameters133:134: reference not to a variable135: illegal parameter substitution136: constant expected137: expected parameters138: BOOLEAN type expected139: scalar types expected140: operation with incompatible type141: only global procedure or function allowed in expression142: incompatible element type143: type incompatible operands144: no selectors allowed for procedures145: only function call allowed in expression146: arrow not belonging to a pointer variable147: standard function or procedure must not be assigned148: constant not allowed as a variant149: SET type expected150: illegal substitution to word parameter151: EXIT only in LOOP152: RETURN only in PROCEDURE153: expression expected154: expression not allowed155: type of function expected156: integer constant expected157: procedure call expected158: identifer not exported from qualifying module159: code buffer overflow160: illegal value for code161: call of procedure with lower priority not allowed198: CARDINAL constant expected199: BITSET type expected200: size of structured type too large for this processor201: array index too large for this element type202: array element size too large for this processor203: array index type too large for this processor204: subrange too large for this processor206: illegal subrange type207: case label range too large208: global data too large for this processor209: local data too large for this processor210: parameter data too large for this processor211: offset of record field too large for this processor300: index out of range301: division by zero303: CASE label defined twice304: this constant is not allowed as case label400: expression too complicated (register overflow)401: expression too complicated (codetable overflow)402: expression too complicated (branch too long)403: expression too complicated (jumptable overflow)404: too many globals, externals and calls405: procedure or module body too long (codetable)406: expression too complicated (level overflow)923: standard procedure or function not implemented 924: parameter must not be accessed by a WITH941: displacement overflow in index addressing mode942: 32 bit by 32 bit multiply/divide not yet implemented943: index range must not exceed positive integer range944: jump too long (overflow in pc-relative offset)945: offset too long (overflow in pc-relative offset)946: FOR control variable is not of simple addressing mode973: DOWNTO only implemented for step -1974: step 0 in FOR statement981: constant out of legal range982: overflow/underflow in range/offset/address calculation990: too many WITH nested991: CARDINAL divisor too large ( > 8000H )992: FOR control variable must not have byte size ( for step <> -1 or 1 )993: INC, DEC not implemented with 2 argument for byte variable994: too many nested procedures995: FOR step too large ( > 7FFFH )996: CASE label too large ( > 7FFFH )997: type transfer function not implemented998: FOR limit too large999: missing symbol file(s). `g.. FACTSCREMOD  hFACTTESTMOD  i4FACTWINDDEF  kFACTWINDMOD  lJOBLISTEMOD  p$KEYBOARDERM " zLKEYBOARDMOD $ | LIVING MOD ( gMYINOUT DEF + /MYINOUT MOD -  NEWHELP MOD 0 +SETEST MOD ]SETEST MOZ )ST MOD 6  SYMUL_POMOD 9 TESET MOD < TESTVDI MOD A T_VDIASEMOD D WORKSTATDEF G 1WORKSTATMOD J eMODULE TestVDI; FROM WorkStation IMPORT Text, Open, Close, Mouse, Style, Styles; FROM AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM GEMAESbase IMPORT Arrow, OutlineCross, MouseOff, MouseOn; VAR i, j, x, y : INTEGER; S : Styles; BEGIN Open; S := Styles{}; Text(S,1,16,"Normalny tekst"); Text(Styles{Thickened},1,32,"Tekst wytluszczony"); Text(Styles{Thickened,Shadowed},1,48,"Efekty mieszane"); REPEAT GrafMouseKeyboardState(x,y,i,j); UNTIL i <> 0; GrafMouse(Arrow,NIL); REPEAT GrafMouseKeyboardState(x,y,i,j); UNTIL j <> 0; Close; END TestVDI. MODULE FactTest; FROM Workstation IMPORT Style, Styles; FROM FactWindow IMPORT NewFactName, Refresh, ShowFact, Finish, States, Stateset, HideFact, ChangeStyle, TakeFact; VAR St : Stateset; Pos : CARDINAL; PROCEDURE Wait; VAR i, j : CARDINAL; BEGIN FOR i:= 0 TO 64000 DO FOR j := 0 TO 5 DO END; END; END Wait; BEGIN NewFactName(1,"Pierwszy Fakt"); ShowFact(1); NewFactName(2,"Drugi Fakt"); NewFactName(3,"Trzeci Fakt"); ShowFact(3); ShowFact(2); Refresh; LOOP TakeFact( Pos, St ); IF Pos <= 3 THEN IF Ctrl IN St THEN EXIT END; IF LShift IN St THEN ShowFact(Pos); END; IF RShift IN St THEN HideFact(Pos); END; IF Alt IN St THEN ChangeStyle(Pos,Styles{Light}); END; IF LButton IN St THEN ChangeStyle(Pos,Styles{Underlined}); END; IF RButton IN St THEN ChangeStyle(Pos,Styles{Thickened}); END; END; END; Finish; END FactTest.DEFINITION MODULE FactWindow; FROM Workstation IMPORT Text, Open, Close, Styles; FROM AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM Terminal IMPORT Read; FROM GEMAESbase IMPORT Arrow, PointHand, MouseOff, MouseOn; CONST MaxFacts = 300; TYPE States = ( LButton, RButton, RShift, LShift, Ctrl, Alt, D6, D7, D8, D9, D10, D11, D12, D13, D14, D15 ); Stateset = SET OF States; PROCEDURE NewFactName ( No : CARDINAL; VAR Name : ARRAY OF CHAR ); PROCEDURE Refresh; PROCEDURE ShowFact(No:CARDINAL); PROCEDURE HideFact(No:CARDINAL); PROCEDURE ChangeStyle ( No : CARDINAL; NewStyle : Styles ); PROCEDURE TakeFact ( VAR Position : CARDINAL; VAR State : Stateset ); PROCEDURE Finish; END FactWindow.IMPLEMENTATION MODULE FactWindow; FROM Workstation IMPORT Text, Open, Close, Styles; FROM AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM Terminal IMPORT Read; FROM GEMAESbase IMPORT Arrow, PointHand, MouseOff, MouseOn; CONST MaxRow = 25; MaxColumn = 80; NextColumn = 40; MaxNameLength = 40; CharHeight = 16; CharWidth = 8; Empty = " "; TYPE FactDescr = RECORD Name : ARRAY [1..MaxNameLength] OF CHAR; NameLength : CARDINAL; CurrentStyle : Styles; Allocated : BOOLEAN; Row, Column : CARDINAL; Visible : BOOLEAN; END; VAR Window :ARRAY [ 1..MaxRow ], [ 1..MaxColumn ] OF CARDINAL; Fact : ARRAY [1..MaxFacts] OF FactDescr; LastRow, LastColumn : CARDINAL; i, j : CARDINAL; PROCEDURE NewFactName ( No : CARDINAL; VAR Name : ARRAY OF CHAR ); VAR i : CARDINAL; BEGIN Fact[No].NameLength := HIGH(Name)+1; FOR i := 0 TO HIGH(Name) DO Fact[No].Name[i+1] := Name[i]; END; END NewFactName; PROCEDURE Refresh; VAR i, j : CARDINAL; BEGIN LastRow := 1; LastColumn := 1; FOR i := 1 TO MaxFacts DO WITH Fact[i] DO IF Visible THEN Allocated := TRUE; Row := LastRow; Column := LastColumn; LastColumn := LastColumn + NextColumn; IF LastColumn > MaxColumn THEN LastColumn := 1; LastRow := LastRow + 1; END; RefreshFact(i); END; END; END; END Refresh; PROCEDURE RefreshFact(No: CARDINAL ); VAR i : CARDINAL; BEGIN WITH Fact[No] DO IF Visible THEN GrafMouse(MouseOff,NIL); Text(Styles{},(Column-1)*CharWidth+1,Row*CharHeight,Empty); Text(CurrentStyle,(Column-1)*CharWidth+1,Row*CharHeight,Name); GrafMouse(MouseOn,NIL); END; END; END RefreshFact; PROCEDURE ShowFact(No:CARDINAL); BEGIN WITH Fact[No] DO IF NOT Allocated THEN Row := LastRow; Column := LastColumn; Allocated := TRUE; LastColumn := LastColumn + NextColumn; IF LastColumn > MaxColumn THEN LastColumn := 1; LastRow := LastRow + 1; END; END; Visible := TRUE; END; RefreshFact(No); END ShowFact; PROCEDURE HideFact(No:CARDINAL); BEGIN WITH Fact[No] DO Visible := FALSE; IF Allocated THEN GrafMouse(MouseOff,NIL); Text(Styles{},(Column-1)*CharWidth+1,Row*CharHeight,Empty); GrafMouse(MouseOn,NIL); END; END; END HideFact; PROCEDURE ChangeStyle ( No : CARDINAL; NewStyle : Styles ); BEGIN Fact[No].CurrentStyle := NewStyle; RefreshFact(No); END ChangeStyle; PROCEDURE TakeFact ( VAR Position : CARDINAL; VAR State : Stateset ); VAR MX, MY, MState, KState : INTEGER; Translation : RECORD CASE Typ : BOOLEAN OF TRUE : Int : INTEGER | FALSE : St : Stateset | END; END; Row, Column : INTEGER; BEGIN WITH Translation DO GrafMouseKeyboardState( MX, MY, MState, KState ); Int := MState + 4 * KState; State := St; Row := MY DIV CharHeight ; Column := MX DIV CharWidth ; Position := ( Row * MaxColumn + Column ) DIV NextColumn + 1; END; END TakeFact; PROCEDURE Finish; BEGIN Close; END Finish; BEGIN Open; GrafMouse(PointHand,NIL); FOR i := 1 TO MaxFacts DO WITH Fact[i] DO Visible := FALSE; Allocated := FALSE; END; END; FOR i := 1 TO MaxRow DO FOR j := 1 TO MaxColumn DO Window[i,j] := 0; END; END; LastRow := 1; LastColumn := 1; END FactWindow.MODULE jobliste; FROM M2Conversions IMPORT ConvertInteger,ConvertToInteger; FROM String IMPORT Concat,Assign,Pos,Delete,Copy,Length; FROM GEMDOS IMPORT ConRS; FROM SYSTEM IMPORT TSIZE,ADDRESS; FROM Storage IMPORT ALLOCATE,DEALLOCATE; FROM TextIO IMPORT ReadInt,Write,WriteInt,WriteLn,WriteString, ReadString; FROM Terminal IMPORT BusyRead; FROM AESApplications IMPORT ApplInitialise,ApplExit; FROM VDIEscapes IMPORT CursorAddress,InquireCursorAddress, ReverseVideoOn,ReverseVideoOff,OutputText; FROM VDIControls IMPORT OpenVirtualWorkstation,CloseVirtualWorkstation, ClearWorkstation; FROM GEMVDIbase IMPORT VDIWorkInType,VDIWorkOutType; FROM AESGraphics IMPORT GrafHandle; CONST leer=' '; TYPE Zeiger = POINTER TO job; Rechner = ARRAY [1..3] OF Zeiger; job = RECORD Time : ARRAY [1..3] OF INTEGER; nummer : INTEGER; naechster : Zeiger; END; VAR in : VDIWorkInType; out : VDIWorkOutType; Computer : Rechner; anzahl,handle,zeile, spalte,i,k : INTEGER; warte : CHAR; amount,j : CARDINAL; adresse : ADDRESS; satz,trenn : ARRAY [1..10] OF CHAR; kompstr,cpustr, prstr : ARRAY [1..5] OF CHAR; eingabe : ARRAY [1..15] OF CHAR; done,convertok : BOOLEAN; nextjob : Zeiger; PROCEDURE anfangstext; BEGIN ClearWorkstation(handle); CursorAddress(handle,2,10); WriteString('Dieses Programm verarbeitet eine beliebig lange Liste'); CursorAddress(handle,3,10); WriteString('von Jobs in einem virtuellen Computer,der aus folgenden'); CursorAddress(handle,4,10); WriteString('Stationen besteht :'); CursorAddress(handle,5,15); OutputText(handle,'- Compiler'); CursorAddress(handle,6,15); OutputText(handle,'- CPU'); CursorAddress(handle,7,15); OutputText(handle,'- Printer'); CursorAddress(handle,8,10); WriteString('Die Ausgabe erfolgt zum einen als Gantt-Diagramm auf dem'); CursorAddress(handle,9,10); WriteString('Bildschirm, zum anderen in die Datei GANTT.MOD,die zur'); CursorAddress(handle,10,10); WriteString('genaueren Untersuchung in den Editor geladen werden kann.'); CursorAddress(handle,11,10); WriteString('Druecken Sie die Leertaste zum weitermachen --->'); REPEAT BusyRead(warte); UNTIL warte=40C; END anfangstext; PROCEDURE machliste; PROCEDURE analyse(VAR source:ARRAY OF CHAR; VAR time :INTEGER); BEGIN done:=Pos(source,leer,1,j); IF done THEN Delete(source,j,Length(source)); ConvertToInteger(source,convertok,time); END; END analyse; BEGIN ClearWorkstation(handle); CursorAddress(handle,2,10); OutputText(handle,'Bitte geben Sie die Anzahl der Jobs ein ---> '); ReadInt(anzahl); ClearWorkstation(handle); (*****************************************************************) (* Initialisieren des Listenanfangs, auf den der Pointer comp *) (* zeigt.Das Anfuegen neuer Jobs erfolgt ueber nextjob. *) (*****************************************************************) ALLOCATE(adresse,amount*CARDINAL(anzahl)); nextjob:=NIL; NEW(nextjob); Computer[1]:=nextjob; (*****************************************************************) (* Schleife: Einlesen der Zeiten in den drei Stationen. *) (*****************************************************************) CursorAddress(handle,2,5); WriteString('Bitte geben Sie jetzt die Job-Zeiten in der Reihenfolge'); CursorAddress(handle,3,5); WriteString('-Compiler,-CPU,-Printer ein.Eingabeformat:'); CursorAddress(handle,4,5); WriteString('-->ZEITEN DURCH MIN. EIN LEERZEICHEN GETRENNT !'); CursorAddress(handle,5,5); WriteString('-->EINGABE NACH JEDEM JOB MIT RETURN ABSCHLIESSEN !'); CursorAddress(handle,15,5); OutputText(handle,'Druecken Sie die Leertaste zum weitermachen--->'); REPEAT BusyRead(warte); UNTIL warte=40C; ClearWorkstation(handle); CursorAddress(handle,2,5); WriteString('ZEITEN : COMP CPU PRINT'); CursorAddress(handle,3,5); WriteString('======================='); WriteLn; FOR i:=1 TO anzahl DO InquireCursorAddress(handle,zeile,spalte); CursorAddress(handle,zeile,5); OutputText(handle,'Job'); WriteInt(i,1); CursorAddress(handle,zeile,12); Write(':'); ReverseVideoOn(handle); WriteString(' ____ ___ _____'); CursorAddress(handle,zeile,13); Assign(eingabe,'____ ___ _____'); ConRS(eingabe); Copy(eingabe,1,4,kompstr); Copy(eingabe,6,3,cpustr); Copy(eingabe,10,5,prstr); analyse(kompstr,k); nextjob^.Time[1]:=k; analyse(cpustr,k); nextjob^.Time[2]:=k; analyse(prstr,k); nextjob^.Time[3]:=k; ReverseVideoOff(handle); nextjob^.naechster:=NIL; nextjob^.nummer:=i; IF iNIL DO WriteInt(nextjob^.nummer,3); WriteString(' : '); FOR i:=1 TO 3 DO WriteInt(nextjob^.Time[i],3); WriteString(' |'); END; WriteLn; nextjob:=nextjob^.naechster; END; WriteLn; ReverseVideoOn(handle); WriteString('"N" FUER NEUEINGABE -->'); ReverseVideoOff(handle); ReadString(warte); IF (warte='n') OR (warte='N') THEN machliste; Printlist; END; END Printlist; PROCEDURE hauwegdiejobs; VAR fertig:BOOLEAN; BEGIN (***********************************************) (* Am Anfang war die Ueberschrift....... *) (***********************************************) ClearWorkstation(handle); WriteLn;WriteLn; InquireCursorAddress(handle,zeile,spalte); CursorAddress(handle,zeile,5); OutputText(handle,'COMP CPU PRINT'); WriteLn; CursorAddress(handle,zeile,5); OutputText(handle,'====+====+====='); (************************************************) fertig :=FALSE; (*******************************) Computer[2]:=Computer[1]; (* Alle Zeiger am Listenanfang *) Computer[3]:=Computer[1]; (* Ja,auch der Drucker........ *) (************************************************) (* ...DENN JETZT GEHT DIE SACHE RICHTIG LOS.... *) (************************************************) REPEAT InquireCursorAddress(handle,zeile,spalte); CursorAddress(handle,zeile,6); Assign(trenn,' |'); FOR i:= 1 TO 3 DO IF i=2 THEN CursorAddress(handle,zeile,11) END; IF i=3 THEN CursorAddress(handle,zeile,17) END; IF Computer[i]<> NIL THEN IF i>1 THEN IF Computer[i]^.Time[i-1]=0 THEN ConvertInteger(Computer[i]^.nummer,2,satz); Concat(satz,trenn,satz); WriteString(satz); Computer[i]^.Time[i]:=Computer[i]^.Time[i]-1; IF Computer[i]^.Time[i]=0 THEN Computer[i]:=Computer[i]^.naechster; END; ELSE WriteString(' |'); END ELSE ConvertInteger(Computer[i]^.nummer,2,satz); Concat(satz,trenn,satz); WriteString(satz); Computer[i]^.Time[i]:=Computer[i]^.Time[i]-1; IF Computer[i]^.Time[i]=0 THEN Computer[i]:=Computer[i]^.naechster; END; END ELSE WriteString(' |'); END; END; fertig:=( Computer[3] = NIL ); WriteLn; UNTIL fertig=TRUE; END hauwegdiejobs; BEGIN i:=ApplInitialise(); handle:=GrafHandle(i,i,i,i); FOR i:=0 TO 9 DO in[i]:=1 END; in[10]:=2; OpenVirtualWorkstation(in,handle,out); amount:=TSIZE(job); amount:=amount+4; anfangstext; machliste; Printlist; ClearWorkstation(handle); CursorAddress(handle,10,15); ReverseVideoOn(handle); OutputText(handle,'JOBLISTE AUFGEBAUT, VERARBEITUNGSBEGINN!'); ReverseVideoOff(handle); hauwegdiejobs; REPEAT BusyRead(warte); UNTIL warte=40C; CloseVirtualWorkstation(handle); ApplExit; END jobliste . 32 6 31 25 20 4 73 21 4 73 22 4 73 23 4 73 24 4 73 25 4 73 26 4 73 27 4 73 33 4 73 34 4 73 35 4 73 36 4 73 37 4 73 38 4 73 39 4 73 40 4 73 44 42 73 46 15 73 47 15 73 49 18 73 54 8 73 57 34 73 58 40 42 59 39 42 65 22 73 68 6 73 70 20 73 72 12 73 72 16 73 73 33 73 77 17 73 MODULE KeyboardChanger; (* Artur Zurek 08.12.87 12/ST Computer *) (*$A+*) (Code optim. *) FROM SYSTEM IMPORT CODE, ADR ,ADDRESS ; FROM Strings IMPORT String, Concat ; FROM XBIOS IMPORT BiosKeys,SetKeyTab FROM GEMAESbase IMPORT AccessoryOpen; FROM AESApplications IMPORT ApplInitialise ; FROM AESEvents IMPORT EventMessage ; FROM AESForms IMPORT FormAlert ; FROM AESMenus IMPORT MenuRegister ; (*$S-,$P-,$T-*) PROCEDURE NormalTable; BEGIN CODE(0001BH,000ABH,09FACH,0EEBDH,0A6A7H,091B4H,00000H,00809H); CODE(00086H,08200H,0E789H,0A3A1H,0ECE3H,09600H,00D00H,085E5H); CODE(0EBEDH,00000H,0C08CH,0A2B1H,0B0BBH,000DFH,098A0H,087B3H); CODE(0E1A4H,0E600H,000A9H,00000H,00020H,00000H,00000H,00000H); CODE(00000H,00000H,00000H,00000H,00000H,0F000H,00000H,0F100H); CODE(00000H,0007FH,00000H,00000H,00000H,00000H,00000H,00000H); CODE(0AE00H,000F3H,0F2F6H,0BFF4H,0FFF7H,0F5FBH,0FAFCH,0FDFEH); CODE(0F8F9H,00D00H,00000H,00000H,00000H,00000H,00000H,00000H); END NormalTable; (*$S-,$P-,$T-*) PROCEDURE ShiftTable; BEGIN CODE(0001BH,0AD00H,0889CH,0EF9BH,00093H,092B5H,0A800H,00809H); CODE(0BC8FH,090BEH,0E98AH,0978DH,0EA00H,00000H,00D00H,0B6E4H); CODE(07FE8H,0E200H,0C18BH,095B8H,0B700H,000B9H,09D83H,080B2H); CODE(0E0A5H,00000H,000AAH,00000H,00020H,00000H,00000H,00000H); CODE(00000H,00000H,00000H,00000H,00000H,0F000H,00000H,0F100H); CODE(00000H,0007FH,00000H,00000H,00000H,00000H,00000H,00000H); CODE(0AF00H,000F3H,0F2F6H,0BFF4H,0FFF7H,0F5FBH,0FAFCH,0FDFEH); CODE(0F8F9H,00D00H,00000H,00000H,00000H,00000H,00000H,00000H); END ShiftTable; PROCEDURE InstallNewTables; VAR dummy, normal,shift,alternate :ADDRESS; BEGIN normal:=ADDRESS(NormalTable); shift :=ADDRESS(ShiftTable); alternate:=NIL; dummy:=SetKeyTable(normal,shift,alternate); END InstallNewTables; PROCEDURE RestoreOldTables; BEGIN BiosKeys; END RestoreOldTables; VAR applID, menuID, choice :INTEGER; AccText :String; AlertText :ARRAY [0....200] OF CHAR; MessageBuffer :ARRAY [0...7] OF CARDINAL; normal :BOOLEAN ; default :INTEGER ; BEGIN applID:=ApplInitialise(); AccText:=' Keyboard'; AlertText:='[2][ Keyboard-Changer| ST-Computer |'; Concat(AlertText,'Rozklad klawiatury :][Normal|Shift]',AlertText); normal:=TRUE; menuID:=MenuRegister(applID,AccText); LOOP EventMessage(ADR(MessageBuffer)); IF MessageBuffer[0]=AccessoryOpen THEN IF normal THEN default:=2 ELSE default:=1 END; choice:=FormAlert(default,AlertText); IF choice=1 THEN RestoreOldTables; normal:=TRUE; ELSE InstallNewTables; normal:=FALSE; END; ELSE END END; END KeyboardChanger. MODULE Living; FROM SYSTEM IMPORT WORD; FROM GEMVDIbase IMPORT VDIWorkInType, VDIWorkOutType; FROM VDIControls IMPORT OpenVirtualWorkstation, CloseVirtualWorkstation; FROM VDIEscapes IMPORT EnterAlphaMode, CursorAddress, OutputText, ReverseVideoOn, ReverseVideoOff, DisplayCursor, RemoveCursor; FROM Keyboard IMPORT Status; FROM XBIOS IMPORT Random; TYPE World = ARRAY[0..MaxRow] OF ARRAY[0..MaxColumn] OF BOOLEAN; VAR CurrentHandle : INTEGER; WorldA, WorldB : World; PROCEDURE Open; VAR WorkIn : VDIWorkInType; WorkOut : VDIWorkOutType; BEGIN WorkIn [ 0 ] := 1; WorkIn [ 1 ] := 1; WorkIn [ 2 ] := 1; WorkIn [ 3 ] := 1; WorkIn [ 4 ] := 1; WorkIn [ 5 ] := 1; WorkIn [ 6 ] := 1; WorkIn [ 7 ] := 1; WorkIn [ 8 ] := 1; WorkIn [ 9 ] := 1; WorkIn [ 10 ] := 2; OpenVirtualWorkstation ( WorkIn, CurrentHandle, WorkOut ); END Open; PROCEDURE Close; BEGIN CloseVirtualWorkstation ( CurrentHandle ); END Close; END Living.DEFINITION MODULE MyInOut; FROM SYSTEM IMPORT BYTE; PROCEDURE OpenIn(VAR ok: BOOLEAN); PROCEDURE Eof(): BOOLEAN; PROCEDURE Read(VAR b: BYTE); PROCEDURE ReadLn; PROCEDURE CloseIn; PROCEDURE OpenOut(VAR ok: BOOLEAN); PROCEDURE Write(b: BYTE); PROCEDURE WriteLn; PROCEDURE CloseOut; END MyInOut.IMPLEMENTATION MODULE MyInOut; IMPORT GEMDOS; FROM SYSTEM IMPORT ADR, BYTE; FROM GEMDOS IMPORT GetDrv, GetPath, Open, Create, Close; FROM AESForms IMPORT FileSelectorInput; FROM Strings IMPORT InitStringModule, String, Concat, Length; CONST BufLen= 15360; (* 15K *) CONST CR=15C; LF=12C; TYPE Stream= INTEGER; RWmode= (READ, WRITE); VAR path, file: String; drv, res: CARDINAL; in, out: Stream; InInfo, OutInfo: RECORD opened, eof: BOOLEAN; pos, counter: CARDINAL; buf: ARRAY [0..BufLen-1] OF BYTE; (* i/o buffer *) END; PROCEDURE OpenStream(VAR s: Stream; how: RWmode; VAR ok: BOOLEAN); VAR reply: INTEGER; i: CARDINAL; name: String; ch: CHAR; BEGIN ok:=FALSE; FileSelectorInput(ADR(path), ADR(file), reply); IF reply=0 THEN RETURN END; i:=Length(path); WHILE (i>0) AND (path[i]<>"\") DO DEC(i) END; ch:=path[i+1]; path[i+1]:=CHR(0); Concat(path, file, name); CASE how OF | READ : Open(name, 0, s); | WRITE: Create(name, 0, s); END; IF s<0 THEN RETURN END; path[i+1]:=ch; ok:=TRUE; RETURN; END OpenStream; PROCEDURE OpenIn(VAR ok: BOOLEAN); BEGIN OpenStream(in, READ, ok); WITH InInfo DO opened:=ok; pos:=BufLen; counter:=0; END; END OpenIn; PROCEDURE Eof(): BOOLEAN; BEGIN RETURN InInfo.eof; END Eof; PROCEDURE Read(VAR b: BYTE); VAR count: LONGCARD; BEGIN WITH InInfo DO IF counter>0 THEN eof:=FALSE; b:=buf[pos]; INC(pos); DEC(counter); ELSIF NOT opened THEN b:=BYTE(0); ELSE IF (pos=BufLen) THEN (* empty buffer *) count:=BufLen; GEMDOS.Read(in, count, ADR(buf)); counter:=CARDINAL(count); pos:=0; END; IF counter>0 THEN eof:=FALSE; b:=buf[pos]; INC(pos); DEC(counter); ELSE eof:=TRUE; b:=BYTE(0); END; END; END; END Read; PROCEDURE ReadLn; BEGIN END ReadLn; PROCEDURE CloseIn; VAR ok: BOOLEAN; BEGIN ok:=Close(in); InInfo.opened:=FALSE; END CloseIn; PROCEDURE OpenOut(VAR ok: BOOLEAN); BEGIN OpenStream(out, WRITE, ok); WITH OutInfo DO opened:=ok; pos:=0; counter:=0; END; END OpenOut; PROCEDURE Write(b: BYTE); VAR count: LONGCARD; BEGIN WITH OutInfo DO IF counter31) AND (ORD(ch)<127) THEN Write(ch); ELSIF ORD(ch)=0 THEN WriteLn; ELSE IF ORD(ch)>=200 THEN Write('\'); DEC(ch, 200); ELSIF ORD(ch)>=100 THEN Write('|'); DEC(ch, 100); ELSE Write('~'); END; Write(CHR(ORD(ch) DIV 10 + ORD('0'))); Write(CHR(ORD(ch) MOD 10 + ORD('0'))); END; Read(ch); END; CloseIn; CloseOut; END; END NewHelp. MODULE SETEST; FROM A:\LIBSYN\AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM A:\LIBSYM\InOut\IMPORT WriteInt, WriteLn; VAR MX, MY, KState, MState : INTEGER; BEGIN LOOP GrafMouseKeyboardState(MX,MY,KState,MState); WriteInt(MX,10); WriteInt(MY,10); WriteInt(KState,10); WriteInt(MState,10); WriteLn; IF (MY > 350) AND (MX > 600) THEN EXIT END; END; END SETEST.MODULE SETEST; FROM A:\AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM A:\InOut IMPORT WriteInt, WriteLn; VAR MX, MY, KState, MState : INTEGER; BEGIN LOOP GrafMouseKeyboardState(MX,MY,KState,MState); WriteInt(MX,10); WriteInt(MY,10); WriteInt(KState,10); WriteInt(MState,10); WriteLn; IF (MY > 350) AND (MX > 600) THEN EXIT END; END; END SETEST.MODULE TestSet; FROM InOut IMPORT WriteInt, WriteLn, ReadInt; TYPE St = SET OF [0..15]; VAR I : INTEGER; Tr : RECORD St1 : St; CASE TYP : BOOLEAN OF TRUE : Int : INTEGER| FALSE: St2 : St;| END; END; J : [0..15]; BEGIN WITH Tr DO St1 := St{}; St2 := St{}; WriteInt(Int,12);WriteLn; St1 := St{0..5}; St2 := St{}; WriteInt(Int,12);WriteLn; St1 := St{}; St2 := St{0..5}; WriteInt(Int,12);WriteLn; St1 := St{0..5}; St2 := St{0..5}; WriteInt(Int,12);WriteLn; St1 := St{0}; St2 := St{}; WriteInt(Int,12);WriteLn; St1 := St{}; St2 := St{0}; WriteInt(Int,12);WriteLn; REPEAT ReadInt(I); Int := I; FOR J := 0 TO 15 DO IF J IN St1 THEN WriteInt(J,3); END; IF J IN St2 THEN I := -INTEGER(J); WriteInt(I,4); END; END; WriteLn; UNTIL Int = 0; END; END TestSet.MODULE SymulatorPojazduDrogowego; FROM Terminal IMPORT Read, BusyRead, Write, WriteLn, WriteString; FROM InOut IMPORT WriteInt; FROM MathLib0 IMPORT pi, DegToRad, real, entier, sin, cos, power; FROM RealInOut IMPORT WriteReal; CONST MaxPredkosc = 1000; Przyspieszenie = 1; Skrecanie = 1; Chwila = 0.000001; VAR PozX, PozY : REAL; Predkosc : INTEGER; Komenda : CHAR; Kierunek : INTEGER; Koniec : BOOLEAN; BEGIN Koniec := FALSE; Kierunek := 0; Predkosc := 0; PozX := 0.0; PozY := 0.0; REPEAT BusyRead(Komenda); CASE Komenda OF "s": IF Predkosc < MaxPredkosc THEN Predkosc := Predkosc + Przyspieszenie; END; | "w": IF Predkosc > 0 THEN Predkosc := Predkosc - Przyspieszenie; END; | "a": WriteString("Predkosc:"); WriteInt(Predkosc,4); WriteString("Kierunek:"); WriteInt(Kierunek,4); WriteString("Pozycja (X,Y):"); WriteReal(PozX,10); WriteReal(PozY,10); WriteLn;| "l": Kierunek := (Kierunek + 1) MOD 360;| "p": Kierunek := (Kierunek - 1) MOD 360;| "e": Koniec := TRUE;| ELSE PozY := PozY + sin(DegToRad(real(Kierunek)))* real(Predkosc)*Chwila; PozX := PozX + cos(DegToRad(real(Kierunek)))* real(Predkosc)*Chwila; END; UNTIL Koniec; END SymulatorPojazduDrogowego. IMPLEMENTATION MODULE FactWindow; FROM Workstation IMPORT Text, Open, Close, Styles; FROM AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM Terminal IMPORT Read; FROM GEMAESbase IMPORT Arrow, PointHand, MouseOff, MouseOn; CONST MaxRow = 25; MaxColumn = 80; NextColumn = 40; MaxNameLength = 40; CharHeight = 16; CharWidth = 8; Empty = " "; TYPE FactDescr = RECORD Name : ARRAY [1..MaxNameLength] OF CHAR; NameLength : CARDINAL; CurrentStyle : Styles; Allocated : BOOLEAN; Row, Column : CARDINAL; Visible : BOOLEAN; END; VAR Window :ARRAY [ 1..MaxRow ], [ 1..MaxColumn ] OF CARDINAL; Fact : ARRAY [1..MaxFacts] OF FactDescr; LastRow, LastColumn : CARDINAL; i, j : CARDINAL; PROCEDURE NewFactName ( No : CARDINAL; VAR Name : ARRAY OF CHAR ); VAR i : CARDINAL; BEGIN Fact[No].NameLength := HIGH(Name)+1; FOR i := 0 TO HIGH(Name) DO Fact[No].Name[i+1] := Name[i]; END; END NewFactName; PROCEDURE Refresh; VAR i, j : CARDINAL; BEGIN LastRow := 1; LastColumn := 1; FOR i := 1 TO MaxFacts DO WITH Fact[i] DO IF Visible THEN Allocated := TRUE; Row := LastRow; Column := LastColumn; LastColumn := LastColumn + NextColumn; IF LastColumn > MaxColumn THEN LastColumn := 1; LastRow := LastRow + 1; END; RefreshFact(i); END; END; END; END Refresh; PROCEDURE RefreshFact(No: CARDINAL ); VAR i : CARDINAL; BEGIN WITH Fact[No] DO IF Visible THEN GrafMouse(MouseOff,NIL); Text(Styles{},(Column-1)*CharWidth+1,Row*CharHeight,Empty); Text(CurrentStyle,(Column-1)*CharWidth+1,Row*CharHeight,Name); GrafMouse(MouseOn,NIL); END; END; END RefreshFact; PROCEDURE ShowFact(No:CARDINAL); BEGIN WITH Fact[No] DO IF NOT Allocated THEN Row := LastRow; Column := LastColumn; Allocated := TRUE; LastColumn := LastColumn + NextColumn; IF LastColumn > MaxColumn THEN LastColumn := 1; LastRow := LastRow + 1; END; END; Visible := TRUE; END; RefreshFact(No); END ShowFact; PROCEDURE HideFact(No:CARDINAL); BEGIN WITH Fact[No] DO Visible := FALSE; IF Allocated THEN Text(Styles{},(Column-1)*CharWidth+1,Row*CharHeight,Empty); END; END; END HideFact; PROCEDURE ChangeStyle ( No : CARDINAL; NewStyle : Styles ); BEGIN Fact[No].CurrentStyle := NewStyle; END ChangeStyle; PROCEDURE TakeFact ( VAR Position : CARDINAL; VAR State : Stateset ); VAR MX, MY, MState, KState : INTEGER; Translation : RECORD CASE Typ : BOOLEAN OF TRUE : Int : INTEGER | FALSE : St1 : Stateset; St2 : Stateset | END; END; Row, Column : INTEGER; BEGIN WITH Translation DO GrafMouseKeyboardState( MX, MY, MState, KState ); Int := MState + 4 * KState; State := St1; Row := MY DIV CharHeight; Column := MX DIV CharWidth; Position := ( Row * (MaxColumn - 1) + Column ) DIV NextColumn; END; END TakeFact; PROCEDURE Finish; BEGIN Close; END Finish; BEGIN Open; GrafMouse(PointHand,NIL); FOR i := 1 TO MaxFacts DO WITH Fact[i] DO Visible := FALSE; Allocated := FALSE; END; END; FOR i := 1 TO MaxRow DO FOR j := 1 TO MaxColumn DO Window[i,j] := 0; END; END; LastRow := 1; LastColumn := 1; END FactWindow.MODULE TestVDI; FROM WorkStation IMPORT Text, Open, Close, Mouse, Style, Styles; VAR i, j, x, y : INTEGER; S : Styles; BEGIN Open; S := Styles{}; Text(S,1,1,"Normalny tekst"); Text(Styles{Thickened},1,10,"Tekst wytluszczony"); Text(Styles{Thickened,Shadowed},1,30,"Efekty mieszane"); REPEAT Mouse(i,x,y); UNTIL i <> 0; Close; END TestVDI. MODULE TestVDI; FROM WorkStation IMPORT Text, Open, Close, Mouse, Style, Styles; FROM AESGraphics IMPORT GrafMouse, GrafMouseKeyboardState; FROM GEMAESbase IMPORT Arrow, OutlineCross, MouseOff, MouseOn; VAR i, j, x, y : INTEGER; S : Styles; BEGIN Open; S := Styles{}; Text(S,1,16,"Normalny tekst"); Text(Styles{Thickened},1,32,"Tekst wytluszczony"); Text(Styles{Thickened,Shadowed},1,48,"Efekty mieszane"); REPEAT GrafMouseKeyboardState(x,y,i,j); UNTIL i <> 0; GrafMouse(Arrow,NIL); REPEAT GrafMouseKeyboardState(x,y,i,j); UNTIL j <> 0; Close; END TestVDI. DEFINITION MODULE Workstation; FROM SYSTEM IMPORT WORD; FROM GEMVDIbase IMPORT VDIWorkInType, VDIWorkOutType; FROM VDIControls IMPORT OpenVirtualWorkstation, CloseVirtualWorkstation; FROM VDIAttribs IMPORT SetGraphicTextEffects; FROM VDIInputs IMPORT SampleMouseButton, SampleKeyboard; FROM VDIOutputs IMPORT GraphicText; TYPE Style = ( Thickened, Light, Skewed, Underlined, Outlined, Shadowed, DUMMY6, DUMMY7, DUMMY8 ); Styles = SET OF Style; VAR CurrentHandle : INTEGER; PROCEDURE Open; PROCEDURE Close; PROCEDURE Mouse( VAR PStatus, x, y : INTEGER ); PROCEDURE Text( Effect : Styles; x, y : INTEGER; VAR string : ARRAY OF CHAR ); PROCEDURE InitMouse; END Workstation. IMPLEMENTATION MODULE Workstation; FROM SYSTEM IMPORT WORD; FROM GEMVDIbase IMPORT VDIWorkInType, VDIWorkOutType; FROM VDIControls IMPORT OpenVirtualWorkstation, CloseVirtualWorkstation; FROM VDIAttribs IMPORT SetGraphicTextEffects; FROM VDIInputs IMPORT SampleMouseButton, SampleKeyboard; FROM VDIOutputs IMPORT GraphicText; PROCEDURE Open; VAR WorkIn : VDIWorkInType; WorkOut : VDIWorkOutType; BEGIN WorkIn [ 0 ] := 1; WorkIn [ 1 ] := 1; WorkIn [ 2 ] := 1; WorkIn [ 3 ] := 1; WorkIn [ 4 ] := 1; WorkIn [ 5 ] := 1; WorkIn [ 6 ] := 1; WorkIn [ 7 ] := 1; WorkIn [ 8 ] := 1; WorkIn [ 9 ] := 1; WorkIn [ 10 ] := 2; OpenVirtualWorkstation ( WorkIn, CurrentHandle, WorkOut ); END Open; PROCEDURE Close; BEGIN CloseVirtualWorkstation ( CurrentHandle ); END Close; PROCEDURE Mouse( VAR PStatus, x, y : INTEGER ); BEGIN SampleMouseButton ( CurrentHandle, PStatus, x, y ); END Mouse; PROCEDURE Text( Effect : Styles; x, y : INTEGER; VAR string : ARRAY OF CHAR ); VAR E : INTEGER; BEGIN E := SetGraphicTextEffects ( CurrentHandle, INTEGER(Effect)); GraphicText ( CurrentHandle, x, y, string ); END Text; PROCEDURE InitMouse; BEGIN END InitMouse; END Workstation. `0 lN0 ACCXModula-2/ST (c) Copyright Modula 2 Software Ltd. 1985,1986. (c) Copyright TDI Software Inc. 1985,1986. _b ШNYNNuNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNqNqNqI34* .E OBBB!<B*H$C! .HN&NVI3l89n9n 9n 9n <I36* "NB333=y3N^NuNV3 3v33xN^NuNV33v3 3x3 3z33|N^NuNV33v33x33z33|33~3 33 333N^NuNV(n83(n83(n 83(n83N^NuNNVI3NB BBBBI36G3l* (G3N* )EG3v* )EG3* )E G3* )EG3* )EN^NNV3B3v3@3x3>3z3<3|3:3~3833633433233033.33,33*33(33"33 3#$3U?<?<?<?<BgNO =_(nHT(nHT(nHT(nHTNO(n 83(n83=nDN^NuN NVN^NNV33v# 3U?<2?<?<?<BgNO =_N^NuNV?.?.?.?.?.?.?. ?. NO33U?<3?< ?<BgBgNO 33N^NuNV#3U?<6Bg?<?<BgNO 33(nHT(nHT(n HT(nHTNON^NuNNVN^NTNV?.?.?.?. NP3 3~33#3U?<*?<?<?<BgNO 33N^NuNV?.?.?.?.?.?. ?. ?.NO#3U?</?<?<?<BgNO 33N^NuNNVN^NNV33v(n* #3U?<#?<?<?<BgNO =_N^NuNNNVN^N NVU?< Bg?<BgBgNO =_N^NuNV?.?. NhX#3U?< ?<?<?<BgNO 33N^NuNNVN^NnNV33v# 3U?<r?<?<?<BgNO 33N^NuNNVN^N. $6Modula-2/ST Options Release 2.01a 1:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 2:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 3:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 4:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 5:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 6:______________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPLOADOptionsSAVEOKSystem OptionsQUERYDUMPPATHSLISTING_____HEAP:_____NNNNNCompiler OptionsREF FILESMAP_____STACK:_____NNNNNLinker OptionsDEBUGOPT 1: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 2: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 3: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 4: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 5: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 6: _____________________________________PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP Modula-2/ST Search Paths OK CANCELHo')')6]')')$Kt')') !&*9:@AFGMNVW]h n  &)9_&)&)#Ir&)&) 3\&)< %$#  $(((( (6( !   n !   R  !&  ' N 2  !'!& j#""!$ % '&&%(( '! <  0  ( .( J(  f(  ( (   . %  NV*<z#3*<z#3#33By3 y3cND(y3:93E(<zشP(y3:93E)PX3 y3dRy3`*<z#3#33By3 y3cNN(y3:93IP*<zڔ(*<zڬ)E*<zڬ)E y3dRy3`*<z #3#33By3 y53cNt(y3:93IP:, Eg,:, Eg":, Eg:, Eg*<zڬ )E / /93?93a<\(_ y53dRy3`N^NuNV(y3:. E&n&PN^NuNhNVN^NvNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNVY?<<(n* /?. N~P*(n8N^NuNVY?<=(n* /?. N~P*(n8N^NuNVY?<>?.N:XJWDE N^NuNVY?<??.(n //.NVO (n (N^NuNVY?<@?.(n //.NVO (n (N^NuN(NVN^NNV ./p&?NNN^NuNpN0A:\M2PATHS.TXTA:B:A:\M2PATHS.TXT Modula-2 OptionsA:B:NVBg?. HnaP(n:.IP( -D N^NuNVBg?. HnaP(n:.=tP N^NuNVBg?. HnaP/.?. BgBgBg?<?<?.?<axON^NuNVU?. ?.aX=_?. ?.zFE8.E?a\N^NuNVY?.?. a$X-_(n-l (n-T(n @f (nBN2Bn(n:.8.&nP@Rn:.SE(nJ4Pg`N^NuNVY?.?.aX-_(n-l (n-TBn:.(n&n8.P@Rn:.SE(nJ4Pg(n:.ld`N^NuNV3F3N^NuNV=n Bn:.nb`Nz-E?.Hn:.(nIP( /a2O zgB.N^Nu:.(n4P  f4:.(nB4Pz-E?.HnI* /aO |N^NuRnNnNV:. EdN^NuBg?<(nzx0D?a\Bg?<(nz,x0D?a\Bg?<"(nz,x0D?a\Bg?<&(nz,x0D?a~\Bg?<((nz,x0D?ab\Bg?<(nz,x0D?aF\Bg?<(nz,x0D?a*\=|:.n b0:.(n4P |g:.(n8._DGP@Rn`:._EIB4PRn=nBg?<#?<HnaO :.n b@:.(nJ4Pg2:.(n4P |g :.(n8.nGP@Rn`:.nIB4PBg?<?<Hna6O N^NuNV*</atXIGzWzAy3E?<OHnBgHnaO Jnm`NBg?<?<HyaO Bg?<?<HyaO Bg?<BgHyaO Bg?<BgHyaO Bg?<BgHyanO Bg?< BgHyaXO Bg?<#BgHyaBO Bg?<BgHya,O U?.?<OHnaPJg`NPBg?<HnatP?.?<PHnaPBg?<HnaRP?.?<PHnaPBg?<Hna0P?.?<PHnaPBg?<HnaP?.?<PHnaPBg?< HnaP?.?<PHnaPa(U?.aTJNq+_N^NuNVBg?<HnaP/.?<Bg(m?,(m?,(m?,(m?,aVO/.?<Bg(m?,(m?,(m?,(m?,a$O/.?<Bg(m?,(m?,(m?,(m?,aO/.?<Bg(m?,(m?,(m?,(m?,aO/.?<Bg(m?,(m?,(m?,(m?,aO/.?< Bg(m?,(m?,(m?,(m?,a\ON^NuNV?<?<HnadP?<?<Hn\aRP?<?<Hn a@P?<?<Hna.P?<?<HnfaP?<?< Hna P?<?<?<PHn\ahO ?<?<?<PHn aPO ?<?<?<PHna8O ?<?<?<PHnfa O ?<?<?<PHnaO ?<?< ?<PHnaO aN^NuNV?<?<Hna\P?<?<Hn\aJP?<?<Hn a8P?<?<Hna&P?<?<HnfaP?<?< HnaP?<?<?<PHna`O ?<?<?<PHnaHO ?<?<?<PHn\a0O ?<?<?<PHn aO ?<?<?<PHnaO ?<?< ?<PHnfaO aN^NuNVJnf`N?<?<HnaHPBg?<?<PHnaO ?<?<Hna PBg?<?<PHnaO ?<?<HnaPBg?<?<PHnaXO ?<?<HnaPBg?<?<PHna0O ?<?<HnaPBg?<?<PHnaO ?<?< HnaPBg?< ?<PHnaO NBg?<HnaVP?<?<?<PHnaO Bg?<Hna.P?<?<?<PHnaO Bg?<HnaP?<?<?<PHnadO Bg?<HnaP?<?<?<PHna,VNhYN`NsN^NuNVBn ncN:.EIBtP ndRn`I* -EI* -EI* -EI* -EI* -Ez-E=| Bn=|BnBn <I* "NB=|N=|=|=|Bn=|z-E <I* "NB=|4=|=|=|Bn=|(mI* -E <I* "NB=|Bn=|BnBn <I* "NBN$pL?NAN^NuNV/-+NI|Gz+WBn:.IJ4PgRn`=y:. E d:.I0PN(z0x8.  HDE:.IPRnz0x8. HDE:.IPRnIGzWBn:.I8.nGP@Rn:.IJ4Pg`N+_N^NurpNGF'/NNn-/=-/H"Q ,IL?/^>/^Nf,oNsF'/NNn-/=-/H"Q G*- =/^Nf,oNs/NNn-/=/-/H _"h$",HL?/^>/^Nf,oNsF'SSfWWNsSf>NsSfF NsSfNqNsSf NNsNhBBB 9R!B*H$C! `N$ <L?NAN`WNsNVH|".$. &(*HDHEHABBمCمHABBBCHBHCԃԄ-A -BL>N^NuNVHx". $.bBCh8BAHA62HC6BAHA`B6HCBAHA8<㑲eRCQ-C -ALN^NuNVH(. ,. dF<gBEVBBGVB0G|b.f ؆dRE`kgb|HDkSEjؼdREBJfBEJEnB`|mpN-D LN^NuF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsF'pNNsNV . /2.??<NM*-E:. E b:.EIV)PN:.E EI)PN^NuNV/9b?<N\/9^?<N\/9j?<N\/9n?<N\/9r?<N\/9v?<N\/9?<'N\/9?<&N\/9?<%N\N^NuNqNqNq O h*#(y#N ( ШШ(yN*,Ѕ.@//??<JNA (y*,ڬ ڬڬ#R/<?<N\/<z?<N\/<?<N\/<?<N\/<?<N\/<?<N\/<?<'N\/<?<&N\/<?<%N\#pNGNNN NV ./p&?NNN^NuNN NV0.?NA*-E N^NuNV0.?0. ?NA*-E N^NuNV ./ . /0.?0.?NA*-EN^NuNV ./0. ?NA*-EN^NuNV0.? . /0.?NA*-EN^NuNV0.?0. ? . /0.?NA*-EN^NuNVB?<N "T*(nN^NuNVB?<z.?N 8X-_N^NuNVB?< (n* /N |\-_N^NuNVB?<1/. ?.N P-_N^NuNVB?<H/. N |\(n(N^NuN NVN^N NV:. E e:. Ee:. E$bz`z(n(nJg`Nz:.-EBn/./.NZ.*=E:. E dz0n8.II@NzA8.D E:.KIPRn/./.NZX-_Jg`J.g:.KI-PNSn=n:.KI8.nI&n P@SnJnm`:.REK(n B4PN^NuNV:. Ee:. E$bz`z(n(nJg`Nz:././NZ.*=Ez:././NZX-_Bn(n BBn:.nb:.K(nJ4PgRn`B.J.g:zK(n +f =|N zK(n -f =||:.ncz`z(n:.nd (nJg`N:.K(n4P ae zb_D. 0e. 9bz0x.E=DN2. Ae . ZbzAx.ED =DN(nB(nJg:.ndz`z(n(nJg^(n *e(n *f:.nbz`z(n(nJg(z:.x8.(n //NXڟ(n (RnNJ.g(n *D(n (N^NuN NVN^NType space to contine:RamDisk: TDI Modula-2/ST RAM disk driver 1.00aThis module installs a new disk device 'D' as a RAM disk.You will have to use the GEM 'Install Drive' menu optionto access the RAM disk from the GEM desktop.Available RAM for RamDisk = K.There is not enough RAM to build a viable RAM disk.How many K RAM do you wish to allocate to the RAM disk ? Invalid RAM disk size.**ERROR: Unable to allocate RAM diskRAM disk installed.NV n"n *.f *. gJgS`N"z(.c"Y`JgS`N^NuNVH:. Ef`Nz:.p -EJng :. Ef*z:.p ڹ//. /.NO pNB:. Eg :. Ef*/. z:.p ڹ//.NO pNpN"?.?.?./. ?.(yNO L?N^NuNVH:. EfpN?.(yNTL?N^NuNVH:. EfI* N?.(yNTL?N^NuNV:. ?(nHTN "\N^NuNV< N T< N TN^NuNV:. ?(nHTN>\NZN^NuNV?<Hy Nz\HnN X.  g`N^NuNVBn:.(nHtPN XRn:.n b:.SE(n4P  e`:.SE(nB4PN^NuNV?<-Hy Nz\?<8Hy:Nz\?<7HytNz\?<+HyNz\NZ/\*.x /?< B'?<OHnHnN O?<OHnN>\?<HyNz\*. d ?<2HyNz\NB.N^Nu?<8Hy.N>\?<OHnN\NZ?<OHn?< B'*./HyHnN OJ.g z (9޸d ?<HyhNz\NB.N^Nu*93*9x ڄp #/9HyN fPJf ?<#HyNz\NB.N^Nu-y-y(nBXYJg`I89|9|9|9|9| 9| 9||N^Nu#r#v#~*<!r*<!v*<!~xNuN NVB'N JgR*<d/N X?<HyNz\N(y/ *,(, ج؅/BgN D\(_N^NuV<N*nDl"4         (          &"" XZ0 d2 *0$"  ,F   (   @     3 5 7 73 7 3 20 7 3 53 MODULE SetTest; FROM A:\LIBSYM\InOut IMPORT WriteString, WriteCard, ReadInt, WriteInt, WriteLn; FROM A:\LIBSYSM\MGEMDOS IMPORT GetTime, SetTime; CONST N = 255; TYPE Wektor = SET OF CARDINAL [0..N]; VAR X, Y, Z : Wektor; bTime, eTime : CARDINAL; IlCykli, I : INTEGER; BEGIN WriteString("Podaj ilosc cykli:"); ReadInt(IlCykli); X := Wektor{}; Y := Wektor{}; REPEAT GetTime(bTime); FOR I := 1 TO IlCykli DO Z := X + Y; END; GetTime(eTime); WriteString("Czas wykonania obliczen dla N="); WriteCard(N,9); WriteLn; WriteString("oraz liczby cykli= "); WriteInt(IlCykli,9); WriteLn; WriteString(" wyniosl w calosci:"); WriteCard(eTime-bTime,9); WriteString(" co daje dla pojedynczej instrukcji na zbiorze "); WriteInt( 1000 * INTEGER( eTime - bTime ) DIV IlCykli, 9 ); WriteString(" milisekund"); WriteLn; WriteString("Co daje na jeden element zbioru czas:"); WriteInt( 1000 * INTEGER( eTime - bTime ) DIV ( IlCykli * N ), 9 ); WriteString(" milisekund "); WriteLn; WriteString("Podaj ilosc cykli"); ReadInt(IlCykli); UNTIL IlCykli < 0; END SetTest.MODULE SetTest; FROM InOut IMPORT WriteString, WriteCard, ReadInt, WriteInt, WriteLn; FROM GEMDOS IMPORT GetTime, SetTime; CONST N = 255; TYPE Wektor = SET OF CARDINAL [0..N]; VAR X, Y, Z : Wektor; bTime, eTime : CARDINAL; IlCykli, I : INTEGER; BEGIN WriteString("Podaj ilosc cykli:"); ReadInt(IlCykli); X := Wektor{}; Y := Wektor{}; REPEAT GetTime(bTime); FOR I := 1 TO IlCykli DO Z := X + Y; END; GetTime(eTime); WriteString("Czas wykonania obliczen dla N="); WriteCard(N,9); WriteLn; WriteString("oraz liczby cykli= "); WriteInt(IlCykli,9); WriteLn; WriteString(" wyniosl w calosci:"); WriteCard(eTime-bTime,9); WriteString(" co daje dla pojedynczej instrukcji na zbiorze "); WriteInt( 1000 * INTEGER( eTime - bTime ) DIV IlCykli, 9 ); WriteString(" milisekund"); WriteLn; WriteString("Co daje na jeden element zbioru czas:"); WriteInt( 1000 * INTEGER( eTime - bTime ) DIV ( IlCykli * N ), 9 ); WriteString(" milisekund "); WriteLn; WriteString("Podaj ilosc cykli"); ReadInt(IlCykli); UNTIL IlCykli < 0; END SetTest.