F”€ ‚wƒā„M†ø‡$‰Šū‹fŃŽ<¦‘“}”č•S—NNNNNNNNNNNNNNNN”””žÉ=NNNNNNNNNNNNNNNNNNNNNN”””ū€DOC  !„'XW#žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĒNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žc›NNNNNNNNNNNNNNNNNNNNNN”””ūTIMER1A___½„)U€TIMER2A___Ā„0€TIMER3A___Ó„0€TIMER4PA__Ų „0€CRT1A_____ć„0€CRT2A_____ä„0"€CRT3A_____å„0'€CRT4A_____é„02€ĮWžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žś NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŒPNNNNNNNNNNNNNNNNNNNNNN”””ū0.¢É¤Ģ]žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žPŖNNNNNNNNNNNNNNNNNNNNNN”””ūCRT5A_____ė„07€CRT6PA____š „0C€CRT7A_____ü „0H€CRT8A_____„0T€CRT9A_____ „0Y€CRT10A____ „1€CRT11A____ „1€KBD1A_____„1€4µžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÆ_NNNNNNNNNNNNNNNNNNNNNN”””ūBINDOCT___ź> „(€BINDOCC___ź2„(€CXMODULET_ź>$ „(€CXMODULEC_ź20„(€CXT_______ź>D„(€CXC_______ź2L„(€CX0T______ź>\„(!€CX0C______ź2l „($€čžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž æaNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@”NNNNNNNNNNNNNNNNNNNNNNž”””ūKBD2A_____ „1"€KBD3A_____&„1(€KBD4A_____+ „15€KBD5A_____5„1A€KNOB1A____7„1G€KNOB2A____:„1T€KBD6A_____=„2€KBD7A_____E„2€:6žmüNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žœnNNNNNNNNNNNNNNNNNNNNNN”””ūCX2T______ź>Œ„(&€CX2C______ź2”„((€ASMB_P1T__ź>¤„(1€ASMB_P1C__ź2¬„(3€ASMB_P2T__ź>ŗ„(6€ASMB_M2T__ź>Ā„(9€ASMB_M2C__ź2Ö„(A€ASMB_P2C__ź2ę„(E€ę·žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žź2NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž s„NNNNNNNNNNNNNNNNNNNNNN”””ūKBD8A_____J „2€KBD9PA____TW„2"€anonymous «<†™QS€anonymous ē†™QT€BINDOCT___’’ „0Q€ >2ž“žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žłNNNNNNNNNNNNNNNNNNNNNN”””ūMOD_3T____ź>ō„(H€MOD_3C____ź2ü„(R€MOD_2T____ź> „(U€MOD_2C____ź2„(Y€PROG_1T___ź>$„)€PROG_1C___ź2,„)€DEBUGT____ź>: „)€DEBUGC____ź2F„)€(žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŁNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž &öNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž6ČNNNNNNNNNNNNNNNNNNNNNN”””ūSYMBOLST__ź>^L„)!€MASK1A____Ŗ„)%€BEEP1A____¬„))€BEEPER1A__­„)3€BEEPER2A__Æ„)7€CLOCK1A___±„)A€CLOCK2A___²„)E€CLOCK3A___·„)P€©¾žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žé^NNNNNNNNNNNNNNNNNNNNNNą”””ūē#[’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’…sžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒč„S†æ‡+‰—ŠŒnŚŽF²‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNN”””ž6 NNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕPš’ńH’ōøČ’’ƒŹ’ī#V’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’ø ’’Ą0„P BINERY_SEARCHRĄĪR’ō’’„t’ņ*’’ō®Č’’ˆś’’„„’ņ$ų’’„š’ņ)ž’ņ)žŒ{žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žźŚNNNNNNNNNNNNNNNNNNNNNN”””ū('Key -',key,'- is in position ',mid:2) !ELSE WRITELN('key - ',key,' - was not found');  END. ońžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žœ†NNNNNNNNNNNNNNNNNNNNNN”””ūBINERY_SEARCH__BASERBINERY_SEARCH_BINERY_SEARCHR BINERY_SEARCH’ˆˆŠéˆ2PPˆˆŠHŠ,”P ˆˆPˆˆPČ9ˆˆˆˆ4ˆXˆ ˆ>ˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ43EžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNN”””ūĪ*’’„®’ņ-¾’’„®’ōĀÖ’ōĮ2’’…Ī’ōDŅĄXT„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĄžLISTINGDĄ’’…”’ī’ń£’ń£’ōĄ BINERY_SEARCH’ńĄĮ/žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žsMNNNNNNNNNNNNNNNNNNNNNN”””ūBINERY_©åˆˆ BINERY_SEARCHˆ „©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆøYžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÆ·NNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž PBNNNNNNNNNNNNNNNNNNNNNN”””ūNVB-’’B­’ą+|’Ųp+m’Ų’Š°­’ŠnD+@’Ō -’Ō €m €oNGr@Ņ­’ŌNvm ’oNGAķŠü’ć -’ŌR€h¶/-’¦/Hz&?<"?<’’N¹J­’źgNCN¹J­’źgNC/-’¢Hm’žN¹J­’źgNC/-’¦N¹J­’źgNCJ-’’fø/:ō/:ģ -’ŲŠ­’ąNv/N¹N¹N¹+_’Ü -’Ü €m €ShžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@|NNNNNNNNNNNNNNNNNNNNNNž”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žæ‰NNNNNNNNNNNNNNNNNNNNNN”””ū!  PROGRAM Binery_search (INPUT,OUTPUT); ({This program does a binery search (on an array of characters to find a )"key" character input by the user.} )  VAR done : BOOLEAN; 1key : CHAR; /alpha : ARRAY [1..26] of CHAR; !loop, top, ĻÄžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž csNNNNNNNNNNNNNNNNNNNNNN”””ūoNGAķŠü’ć-’ž²0f |’’`< -’Ü €m €oNGAķŠü’ć-’ž²0d +m’Ü’Ų`+m’Ü’ą -’Ų°­’ąf|’’+|’’’’’Ü`’DJ­’Üo€/-’¦/HzÜ?<?<’’N¹J­’źgNC/-’ž?<’’N¹J­’źgNC/HzÄ?<?<’’N¹J­’źgNC//-’Ü?<N¹J­’źgNCN¹J­’źgNC`՘žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/NNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŒøNNNNNNNNNNNNNNNNNNNNNN”””ūmid, btm : INTEGER; !  BEGIN {Binery_search} !done:=FALSE; btm:=0; top:=26; {initialize} !FOR loop:=1 TO top DO alpha[loop]:=CHR(loop+64); !WRITELN('Type uppercase character for a key'); !READ(key); WRITELN; !WHILE NOT done DO !BEGIN ÄóžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž śäNNNNNNNNNNNNNNNNNNNNNN”””ūd/-’¦/Hzd?<?<’’N¹J­’źgNC/-’ž?<’’N¹J­’źgNC/Hz6?<?<’’N¹J­’źgNCN¹J­’źgNCN^NuKey -key - - was not found- is in position Type uppercase character for a key@ˆDP P8P$ŠEˆ(Š-ˆ<ˆPˆ&P PP&ˆˆP(P ˆZˆˆP$Pˆˆ8ˆP:Pˆˆo>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&NNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆˆˆˆˆ SœFžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŁėNNNNNNNNNNNNNNNNNNNNNNž”””ū {This is the actual binery search} !mid:= ROUND((top + btm)/2); #IF key = alpha[mid] THEN done:= TRUE #ELSE IF key < alpha[mid] THEN top:=mid #ELSE btm:=mid; #IF top=btm THEN BEGIN 5done:=TRUE; mid:= -1; 3END; !END; !IF mid > 0 THEN "WRITELNĆ3žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ÉÕNNNNNNNNNNNNNNNNNNNNNN”””ūPŠ ňˆˆˆP ˆ"ˆˆ(ˆŠÅPˆŠéP ˆˆŠňˆˆŠň ˆˆˆˆZˆˆ ˆˆˆPŠéP ˆˆˆPˆPPˆ Š ÅPˆŠéP ˆFˆ:Šn Š ŠĶŠ9PPHP2PzPˆŹˆ ˆ ˆ Pˆ P(PxˆP*P2ˆˆ Pˆ ˆ^P Č(9Č 9Š()PŠ}PŠČ 9Č9Č9P ˆ@ˆČ9Č 9Š.‰Š8}Č9Č9Č9Č9Č 9ćžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŸźNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚{ƒę„Q†¼‡(‰”Š’‹k×ŽC®‘“…”ń•]—NNNNNNNNNNNNNNNNNNNNNN”””ž$UNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆˆˆˆˆˆˆˆˆ Č ŠČ Š%Č Č ˆŠ1Č Č Š%Č ˆˆˆŠAŠMŠYˆˆˆˆˆˆˆˆˆ ˆˆˆˆˆˆ ˆˆČ ŠČ ˆ ŠeČ ŠČ ˆ ŠuČ Š%Č Č ŠČ ˆ ŠeČ ŠČ Š%Č -’ŲŠ­’ąNv/N¹N¹N¹+_’Ü -’Ü €m €vžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ųÆNNNNNNNNNNNNNNNNNNNNNNž”””ū $end; " "function dvd (a,b: complex): complex; "var denom: real; "begin " denom := sqr(b.re)+sqr(b.im); $if denom = 0.0 then halt(-5); (*divide by zero*) $dvd.re := (b.re*a.re + b.re*a.re) / denom; $dvd.im := (b.re*a.im - b.im*a.re) / denom; *8žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŽóNNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ždNNNNNNNNNNNNNNNNNNNNNN”””ūoNGAķŠü’ć-’ž²0f |’’`< -’Ü €m €oNGAķŠü’ć-’ž²0d +m’Ü’Ų`+m’Ü’ą -’Ų°­’ąf|’’+|’’’’’Ü`’DJ­’Üo€/-’¦/HzÜ?<?<’’N¹J­’źgNC/-’ž?<’’N¹J­’źgNC/HzÄ?<?<’’N¹J­’źgNC//-’Ü?<N¹J­’źgNCN¹J­’źgNC`՘žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž a8NNNNNNNNNNNNNNNNNNNNNN”””ū"end; " "function conj (a: complex): complex; $begin conj.re := a.re; conj.im := -a.im end;  "function mag (a:complex): real; $begin mag := sqrt(sqr(a.re)+sqr(a.im)) end;  "function scmul (scale:real; a:complex): complex; " begin &scmuMHžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž½ĀNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB7NNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆˆ SYSGLOBALS FS_FWRITEPAOC FS_FWRITELN FS_FREADCHAR ASM_FLOATASM_RDIV ASM_ROUND FS_FWRITECHAR FS_FWRITEINTˆ ŠeČ ŠČ ˆ ŠuČ Š%Č Č ŠČ ˆ ŠeČ ŠČ Š%Č -’ŲŠ­’ąNv/N¹N¹N¹+_’Ü -’Ü €m €ŽŲžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž R NNNNNNNNNNNNNNNNNNNNNN”””ūl.re := scale*a.re; &scmul.im := scale*a.im $end; $  end. (*complexmath*) ĄéžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž­üNNNNNNNNNNNNNNNNNNNNNN”””ū module complexmath;  export "type $complex = record 1re: real; 1im: real; .end; "const $zero = complex [re:0.0,im:0.0]; " "function equal (a,b: complex): boolean; "function add (a,b: complex): complex; "function mul (a,b: complex): comple!žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žqNNNNNNNNNNNNNNNNNNNNNN”””ūoNGAķŠü’ć-’ž²0f |’’`< -’Ü €m €oNGAķŠü’ć-’ž²0d +m’Ü’Ų`+m’Ü’ą -’Ų°­’ąf|’’+|’’’’’Ü`’DJ­’Üo€/-’¦/HzÜ?<?<’’N¹J­’źgNC/-’ž?<’’N¹J­’źgNC/HzÄ?<?<’’N¹J­’źgNC//-’Ü?<N¹J­’źgNCN¹J­’źgNC`՘žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žZNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž žĶNNNNNNNNNNNNNNNNNNNNNN”””ūx; "function dvd (a,b: complex): complex; "function conj (a: complex): complex; "function mag (a: complex): real; "function scmul (scale:real; a:complex): complex; "  implement  "function equal (a,b: complex): boolean; $begin equal :=lžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žč‘NNNNNNNNNNNNNNNNNNNNNN”””ū0^£:£JōQžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž4kNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĖžNNNNNNNNNNNNNNNNNNNNNN”””ū (a.re=b.re) and (a.im=b.im) end; " "function add (a,b: complex): complex; $begin add.re := a.re+b.re; add.im := a.im+b.im end; " "function mul (a,b: complex): complex; $begin $ mul.re := (a.re*b.re-a.im*b.im); &mul.im := (a.re*b.im+a.im*b.re);Ū3žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŪ NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž6NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒé„U†Į‡-‰˜ŠŒoŚŽE°‘“‡”ņ•]—NNNNNNNNNNNNNNNNNNNNNN”””žŪHNNNNNNNNNNNNNNNNNNNNNNž”””ūNA’ą n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹/.’ü/.’ų/.’ģ/.’čN¹ĄrC¼AN^ _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠR€žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž²NNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆŠD Š AféžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žqīNNNNNNNNNNNNNNNNNNNNNN”””ūCOMPLEXMATH__BASERCOMPLEXMATH_ZEROBRCOMPLEXMATH_EQUALRCOMPLEXMATH_ADDR|COMPLEXMATH_MULRöCOMPLEXMATH_DVDRøCOMPLEXMATH_CONJ„RCOMPLEXMATH_MAGRNCOMPLEXMATH_SCMULRŖCOMPLEXMATH_COMPLEXMATHR COMPLEXMATH’ŽŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž čyNNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žž%NNNNNNNNNNNNNNNNNNNNNNž”””ū©å©ÕP’’ƒL’’ƒ\#n’ō’īT’ī’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒz’’ƒŠ’’ė°’īT’īT’’ƒ¢’’°’"X– COMPLEXMATH"tR’’ˆś’’ˆś’ō’’„’ņ*’ ’ō®Č’’ˆś ’’„ ’ņ$ų’’„6’ņ)ž’ņ)ž¼UžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBßNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ½*NNNNNNNNNNNNNNNNNNNNNN”””ūN¹LŸH®’Ų/:ź/:ā/.’Ü/.’ŲN¹Jg ;|’ū’žNJ/.’Ü/.’Ų/.’ä/.’ą/.’ō/.’šN¹/.’ä/.’ą/.’ō/.’šN¹N¹N¹ nLŸH n/.’Ü/.’Ų/.’ä/.’ą/.’ü/.’ų-H’ŌN¹ n’Ō/.’ģ/.’č/.’ō/.’š-H’ŠN¹ n’Š-H’ĢN¹ n’Ģ-H’ČN¹ n’ČLŸHØN^ _Žü NŠŻ;žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž­NNNNNNNNNNNNNNNNNNNNNN”””ūt"’’„J’ņ-¾’’„J’ōÉ’ōĮØ’’„r’ō60€‰¾’’’ōĘü’’…Ź’ō="’’…ŹMĘ’ńćV’ō—p’’…Ŗ’ō•x…²’īR\’’„²’ńĄ’ńćV’ōĄĄ’’…Š’ōĄb_BASE£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…XāÄžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žRįNNNNNNNNNNNNNNNNNNNNNN”””ūPROGRAM©åˆˆ  COMPLEXMATHCHˆ X©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆi¶žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŽNNNNNNNNNNNNNNNNNNNNNN”””ūNA’š nLŠHī’š n L®’šH n /.’ü/.’ųJWgWLŸHØN^ _PONŠNA’š nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹N¹N¹LŸH® N^.ŸNuNA’ä n -X’č-P’ģ nLŠHī’š/.’ō/.’š/.’ģ/.’čN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žųGNNNNNNNNNNNNNNNNNNNNNN”””ūMODULE COMPLEXMATH; export type complex = record re: real; im: real; end; const zero = complex [re:0.0,im:0.0]; function equal (a,b: complex): boolean; function add (a,b: complex): complex; function mul (a,b: complex): complex; function dvd (a,b: coZéžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žaŠNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŒNNNNNNNNNNNNNNNNNNNNNN”””ū’äN¹ n’äLŸHØN^ _Žü NŠNuˆ<ˆ@P4ˆ8Šn Š ŠĶŠ9PPFPPPzˆTP ŠEˆ P:ˆˆ Pˆ ˆbP Č(9Č 9Č49Č9Č9P ˆ@ˆČ9Č 9Š.qŠ8•Č9Č9Č9Č9PŠBEˆVˆŠ ňˆPˆˆˆŠéˆP&ˆ&Pˆ,ˆBˆˆˆˆˆ P ˆˆˆ<ˆPŠéˆˆˆ(P`PPPHŠ8ÅPœP(ŠLÅPŠÅP„PNPP8žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĖvNNNNNNNNNNNNNNNNNNNNNN”””ūmplex): complex; function conj (a: complex): complex; function mag (a: complex): real; function scmul (scale:real; a:complex): complex; END; N¹J­’źgNC/-’ž?<’’N¹J­’źgNC/HzÄ?<?<’’N¹J­’źgNC//-’Ü?<N¹J­’źgNCN¹J­’źgNC`džNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž4ƒNNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž $½NNNNNNNNNNNNNNNNNNNNNN”””ūPˆ@P ‰ˆŠrķŠ&ŻŠ&µŠ&­Š&…Š&1PdŠ4鈈ˆP ˆˆ‚ˆPˆˆŠPEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PPPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆßžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žr‚NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚|ƒč„S†æ‡+‰—ŠŒoŪŽG²‘“ˆ”ó•_—NNNNNNNNNNNNNNNNNNNNNN”””žĢNNNNNNNNNNNNNNNNNNNNNN”””ūŠD Š ŠTŠ*ŠPŠŠ)Š*ŠŠŠPŠŠŠ Č5ŠŠŠŠAŠ2ŠŠ)ŠAŠ’ŠŠŠMŠFŠ* _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠśĖžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ß6NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž©jNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0żNNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž F”NNNNNNNNNNNNNNNNNNNNNN”””ūCXOGRAM©åˆˆCXMPLEXMATHCHˆ ø©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆĻŹžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žš[NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””že®NNNNNNNNNNNNNNNNNNNNNN”””ūŠD Š ASM_EQASM_RADDASM_RMULASM_RSUB SYSGLOBALSASM_RDIVASM_SQRTŠAŠ’ŠŠŠMŠFŠ* _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠ}ļžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž uNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŠeNNNNNNNNNNNNNNNNNNNNNN”””ūprogram cx (listing);   $search '#3:CXMODULE'$  import complexmath;   const "pi = 3.141592654; "nsteps = 16;  var "a,b: complex; "table: array [1..nsteps+1] of complex; "theta,thetastep: real; "i: integer; "listing : text;   begin  the•%žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žVŸNNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĆNNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¹TNNNNNNNNNNNNNNNNNNNNNNž”””ūta := 0.0; "thetastep := pi/(2*nsteps); "a := zero; b := zero; "for i := 1 to nsteps+1 do $begin $ a.re := sin(theta); (*leave im part zero*) &b.im := cos(theta); (*leave re part zero*) &table[i] := add(a,b); &theta := theta + thetastep; $end;&žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĻNNNNNNNNNNNNNNNNNNNNNN”””ū1 2 50^£:¤ŠæižNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žņNNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆŠ ˆˆ CTŠžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ģNNNNNNNNNNNNNNNNNNNNNN”””ū  writeln(listing,' REAL ', 2' IMAGINARY ', 2' MAGNITUDE '); "for i := 1 to nsteps+1 do $writeln(listing,' ', ,table[i].re,' ',table[i].im,' ', ,mag(table[i]) );  end. ]BžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žü9NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#ÆNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒé„U†Ą‡,‰—ŠŒnŚŽE°‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNN”””žüŃNNNNNNNNNNNNNNNNNNNNNN”””ūŠ ˆˆ Š!ˆŠ!ˆˆˆˆˆŠ5ˆ ˆˆŠ=ˆ ˆˆˆˆˆŠEˆˆˆ ˆ ˆˆˆŠUˆ ˆČaŠmČaŠmČaŠmČaŠ}ČaˆˆČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ ©ˆˆˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹j¦žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž +NNNNNNNNNNNNNNNNNNNNNNž”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žVwNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĻąNNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¹¼NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/<’ ?<’’N¹J­’źgNC/Q -ž¼ €m €oNGé€NvAķŠüžĄHpN¹+_ž“+_žøHmž“?<’’?<’’N¹J­’źgNCN¹J­’źgNC ­ž¼mžŹN^Nu REAL IMAGINARY MAGNITUDE ?¹!ūTREP-H’ĢN¹ n’Ģ-H’ČN¹ n’ČLŸHØN^ _Žü NŠv”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žeFNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž š³NNNNNNNNNNNNNNNNNNNNNN”””ūŠ ˆˆ COMPLEXMATH_COMPLEXMATHCOMPLEXMATH_ZEROASM_SINASM_COSCOMPLEXMATH_ADDASM_RADD SYSGLOBALS FS_FWRITEPAOC FS_FWRITELN FS_FWRITECHARMFS_FWRITEREALCOMPLEXMATH_MAGˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹d®žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŠNNNNNNNNNNNNNNNNNNNNNN”””ūNA’š nLŠHī’š n L®’šH n /.’ü/.’ųJWgWLŸHØN^ _PONŠNA’š nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹N¹N¹LŸH® N^.ŸNuNA’ä n -X’č-P’ģ nLŠHī’š/.’ō/.’š/.’ģ/.’čN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žuxNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕPš’ńH’ōøČ’’ƒŹ’ī#V’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’® ’’ĢXø&CXHRĢĢR’’ˆś’’ˆś’ō’’„t’ņ*’’ō®Č’’ˆś’’„„’ņ$ų’’„š’ņ)ž’ņ)ž…ŽžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ©‚NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žߎNNNNNNNNNNNNNNNNNNNNNN”””ūCX__BASERCX_CXRCXX’EROBRCOMPLEXMATH_EQUALRCOMPLEXMATH_ADDR|COMPLEXMATH_MULRöCOMPLEXMATH_DVDRøCOMPLEXMATH_CONJ„RCOMPLEXMATH_MAGRNCOMPLEXMATH_SCMULRŖCOMPLEXMATH_COMPLEXMATHR COMPLEXMATH’e.žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žFINNNNNNNNNNNNNNNNNNNNNN”””ūĢ ’’„®’ņ-¾’’„®’ōÉ’ōĮ2’’…Ī’ōDŅTEXT’’˜ō„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6—’’…L’īŽQ-,Q ’ōgk’’…>’’#3:CXMODULE.CODESTINGDĄ’’…”’ī’ń£’ń£’ōĄCXĄ’’’ńŌ’ńš’ńĄŻ”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 0NNNNNNNNNNNNNNNNNNNNNNž”””ū0^£:¤Š:žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žģļNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žNNNNNNNNNNNNNNNNNNNNNN”””ūNVN¹Lŗ¬H­žĄLŗØH­žČL¹H­’ąL¹H­’šB­ž¼R­ž¼/-žÄ/-žĄN¹LŸH­’ą/-žÄ/-žĄN¹LŸH­’ų -ž¼ €m €oNGé€NvHmž¬Hm’ąHm’š+@žØN¹ -žØAķŠüžĄL­ž¬H°/-žĢ/-žČ/-žÄ/-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹:>žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž $NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žUNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒé„T†æ‡*‰•ŠŒlŲŽDÆ‘“…”ń•]—NNNNNNNNNNNNNNNNNNNNNN”””žī¤NNNNNNNNNNNNNNNNNNNNNN”””ūprogram cx (listing);   module complexmath;  export "type $complex = record 1re: real; 1im: real; .end; "const $zero = complex [re:0.0,im:0.0]; " "function equal (a,b: complex): boolean; "function add (a,b: complex): complex; "function mul­·žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 2^NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žDNNNNNNNNNNNNNNNNNNNNNN”””ūomplex; "theta,thetastep: real; "i: integer; "listing : text;   begin  theta := 0.0; "thetastep := pi/(2*nsteps); "a := zero; b := zero; "for i := 1 to nsteps+1 do $begin $ a.re := sin(theta); (*leave im part zero*) &b.im := cos(theta); õ±žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŻ•NNNNNNNNNNNNNNNNNNNNNN”””ū (a,b: complex): complex; "function dvd (a,b: complex): complex; "function conj (a: complex): complex; "function mag (a: complex): real; "function scmul (scale:real; a:complex): complex; "  implement  "function equal (a,b: complex): b!ŽžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž «ÉNNNNNNNNNNNNNNNNNNNNNN”””ūCXˆˆ©åˆˆ  COMPLEXMATH9ˆ X©å CX9ˆˆ:ˆˆˆˆ ø©åˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆąHžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žw3NNNNNNNNNNNNNNNNNNNNNN”””ū(*leave re part zero*) &table[i] := add(a,b); &theta := theta + thetastep; $end;  writeln(listing,' REAL ', 2' IMAGINARY ', 2' MAGNITUDE '); "for i := 1 to nsteps+1 do $writeln(listing,' ', ,table[i].re,' ',table[i].im,' ', żžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žˆĘNNNNNNNNNNNNNNNNNNNNNN”””ūoolean; $begin equal := (a.re=b.re) and (a.im=b.im) end; " "function add (a,b: complex): complex; $begin add.re := a.re+b.re; add.im := a.im+b.im end; " "function mul (a,b: complex): complex; $begin $ mul.re := (a.re*b.re-a.im*b.im); &mul.im ÜEžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ˜ųNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žg NNNNNNNNNNNNNNNNNNNNNN”””ū,mag(table[i]) );  end. `¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž»÷NNNNNNNNNNNNNNNNNNNNNN”””ū:= (a.re*b.im+a.im*b.re); $end; " "function dvd (a,b: complex): complex; "var denom: real; "begin " denom := sqr(b.re)+sqr(b.im); $if denom = 0.0 then halt(-5); (*divide by zero*) $dvd.re := (b.re*a.re + b.re*a.re) / denom; 'XžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĶ«NNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž T-ˆŠž•žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž»NNNNNNNNNNNNNNNNNNNNNN”””ūŠD Š ASM_EQASM_RADDASM_RMULASM_RSUB SYSGLOBALSASM_RDIVASM_SQRTŠAŠ’ŠŠŠMŠFŠ* _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠ}ļžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž "ˆNNNNNNNNNNNNNNNNNNNNNN”””ūPˆ@P ‰ˆŠrķŠ&ŻŠ&µŠ&­Š&…Š&1PdŠ4鈈ˆP ˆˆ‚ˆPˆˆŠPEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PPPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆßžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žTŌNNNNNNNNNNNNNNNNNNNNNNž”””ūNA’ą n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹/.’ü/.’ų/.’ģ/.’čN¹ĄrC¼AN^ _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠR€žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žˆ.NNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž wŪNNNNNNNNNNNNNNNNNNNNNN”””ūCOMPLEXMATH__BASERCOMPLEXMATH_ZERORCOMPLEXMATH_EQUALRCOMPLEXMATH_ADDR|COMPLEXMATH_MULRöCOMPLEXMATH_DVDRøCOMPLEXMATH_CONJ„RCOMPLEXMATH_MAGRNCOMPLEXMATH_SCMULRŖCOMPLEXMATH_COMPLEXMATHR COMPLEXMATH’_žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žgåNNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž˜NNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’‚$’’‚4#n’ō’īT’ī’’Č’ō®Č’’ė°’’Č’’ČÖ’’‚R’’‚b’’ė°’īT’īT’’‚z’’°’"X– COMPLEXMATH"tR’’ˆś’’ˆś’ō’’‚č’ņ*’ ’ō®Č’’ˆś ’’‚ų’ņ$ų’’ƒ’ņ)ž’ņ)žµ?žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž DźNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž2¶NNNNNNNNNNNNNNNNNNNNNN”””ūN¹LŸH®’Ų/:ź/:ā/.’Ü/.’ŲN¹Jg ;|’ū’žNJ/.’Ü/.’Ų/.’ä/.’ą/.’ō/.’šN¹/.’ä/.’ą/.’ō/.’šN¹N¹N¹ nLŸH n/.’Ü/.’Ų/.’ä/.’ą/.’ü/.’ų-H’ŌN¹ n’Ō/.’ģ/.’č/.’ō/.’š-H’ŠN¹ n’Š-H’ĢN¹ n’Ģ-H’ČN¹ n’ČLŸHØN^ _Žü NŠŻ;žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž«!NNNNNNNNNNNNNNNNNNNNNN”””ūt"’’ƒ"’ņ-¾’’ƒ"’ōÉ’ōĮ¬’’ƒJ’ō60€‰¾’’’ōĒ’’„¢’ō="’’„¢’ńV’’‘Ē’’ƒz’īz0’ńV’ńĄ’’ƒØ’ī#ž’ńVRńCX__BASEńĄ’ńćV’ō’’ƒ®V4:CX0.CODEV’ńĄ’ńĄ’’…Ņ’ńɦ’ńɦė°’īT’’Č’ō’īˆ’īˆP.’’’’īˆ’īˆP £;žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ż}NNNNNNNNNNNNNNNNNNNNNNž”””ūŠD Š ŠTŠ*ŠPŠŠ)Š*ŠŠŠPŠŠŠ Č5ŠŠŠŠAŠ2ŠŠ)ŠAŠ’ŠŠŠMŠFŠ* _PONŠNA’Ü n LŠHī’ą nLŠHī’š/.’ō/.’š/.’ä/.’ąN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’ÜN¹ n’ÜLŸHØN^ _Žü NŠNA’Ō n LŠśĖžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‡NNNNNNNNNNNNNNNNNNNNNN”””ūNA’š nLŠHī’š n L®’šH n /.’ü/.’ųJWgWLŸHØN^ _PONŠNA’š nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹N¹N¹LŸH® N^.ŸNuNA’ä n -X’č-P’ģ nLŠHī’š/.’ō/.’š/.’ģ/.’čN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žžrNNNNNNNNNNNNNNNNNNNNNN”””ūMODULE COMPLEXMATH; export type complex = record re: real; im: real; end; const zero = complex [re:0.0,im:0.0]; function equal (a,b: complex): boolean; function add (a,b: complex): complex; function mul (a,b: complex): complex; function dvd (a,b: coZéžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž īLNNNNNNNNNNNNNNNNNNNNNN”””ūHī’ą nLŠHī’š/.’ü/.’ų/.’ģ/.’čN¹/.’ō/.’š/.’ä/.’ąN¹N¹ nLŸH n/.’ō/.’š/.’ģ/.’č-H’ÜN¹ n’Ü/.’ü/.’ų/.’ä/.’ą-H’ŲN¹ n’Ų-H’ŌN¹ n’ŌLŸHØN^ _Žü NŠNA’Č n LŠHī’ą nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žøsNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚|ƒč„T†Ą‡,‰˜ŠŒpÜŽG³‘“Š”õ•a—NNNNNNNNNNNNNNNNNNNNNN”””žLžNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕPš’ńH’ōøČ’’ƒŹ’ī#V’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’® ’’ĢXø&CXHRĢĢR’’ˆś’’ˆś’ō’’„t’ņ*’’ō®Č’’ˆś’’„„’ņ$ų’’„š’ņ)ž’ņ)ž·ČžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNNž”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žęXNNNNNNNNNNNNNNNNNNNNNN”””ūCX__BASEARCX_CXRCXX’ERORCOMPLEXMATH_EQUALRCOMPLEXMATH_ADDR|COMPLEXMATH_MULRöCOMPLEXMATH_DVDRøCOMPLEXMATH_CONJ„RCOMPLEXMATH_MAGRNCOMPLEXMATH_SCMULRŖCOMPLEXMATH_COMPLEXMATHR COMPLEXMATH’ܾžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĻNNNNNNNNNNNNNNNNNNNNNN”””ūĢ ’’„®’ņ-¾’’„®’ōÉ ’ōĮ2’’…Ī’ōDŅ.TEXT’˜ō„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĄžLISTINGDĄ’’…”’ī’ń£’ń£’ōĄCXĄ’’’ńŌ’ńš’ńĄĖĻžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž  “NNNNNNNNNNNNNNNNNNNNNN”””ū0^£:¤Š:žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÕiNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*œNNNNNNNNNNNNNNNNNNNNNN”””ūNVN¹Lŗ¬H­žĄLŗØH­žČL¹H­’ąL¹H­’šB­ž¼R­ž¼/-žÄ/-žĄN¹LŸH­’ą/-žÄ/-žĄN¹LŸH­’ų -ž¼ €m €oNGé€NvHmž¬Hm’ąHm’š+@žØN¹ -žØAķŠüžĄL­ž¬H°/-žĢ/-žČ/-žÄ/-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹:>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž :¢NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÅWNNNNNNNNNNNNNNNNNNNNNN”””ūŠ ˆˆ Š!ˆŠ!ˆˆˆˆˆŠ5ˆ ˆˆŠ=ˆ ˆˆˆˆˆŠEˆˆˆ ˆ ˆˆˆŠUˆ ˆČaŠmČaŠmČaŠmČaŠ}ČaˆˆČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ ©ˆˆˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹j¦žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž­NNNNNNNNNNNNNNNNNNNNNNž”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žońNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž öfNNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž€:NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/<’ ?<’’N¹J­’źgNC/Q -ž¼ €m €oNGé€NvAķŠüžĄHpN¹+_ž“+_žøHmž“?<’’?<’’N¹J­’źgNCN¹J­’źgNC ­ž¼mžŹN^Nu REAL IMAGINARY MAGNITUDE ?¹!ūTREP-H’ĢN¹ n’Ģ-H’ČN¹ n’ČLŸHØN^ _Žü NŠv”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž\ĄNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž £5NNNNNNNNNNNNNNNNNNNNNN”””ūŠ ˆˆ COMPLEXMATH_COMPLEXMATHCOMPLEXMATH_ZEROASM_SINASM_COSCOMPLEXMATH_ADDASM_RADD SYSGLOBALS FS_FWRITEPAOC FS_FWRITELN FS_FWRITECHARMFS_FWRITEREALCOMPLEXMATH_MAGˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹d®žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž³ NNNNNNNNNNNNNNNNNNNNNN”””ūNA’š nLŠHī’š n L®’šH n /.’ü/.’ųJWgWLŸHØN^ _PONŠNA’š nLŠHī’š/.’ü/.’ų////N¹/.’ō/.’š////N¹N¹N¹LŸH® N^.ŸNuNA’ä n -X’č-P’ģ nLŠHī’š/.’ō/.’š/.’ģ/.’čN¹ nLŸH n/.’ü/.’ų/.’ģ/.’č-H’žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žlNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚~ƒź„V†Ā‡.‰šŠŒqŻŽIµ‘ “Œ”÷•c—NNNNNNNNNNNNNNNNNNNNNNN”””ž ³ćNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕPš’ńH’ōøČ’’ƒŹ’ī#V’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’® ’’ĢXø&CXHRĢĢR’’ˆś’’ˆś’ō’’„t’ņ*’’ō®Č’’ˆś’’„„’ņ$ų’’„š’ņ)ž’ņ)ž…ŽžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž oNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ENNNNNNNNNNNNNNNNNNNNNN”””ūCX__BASE RCX_CXRCX9’ŠŠ õŠ -ŠŠ=Č9ŠˆŠ-ŠˆˆˆŠéˆ2PPˆˆŠHŠ,”P ˆˆPˆˆPČ9ˆˆˆˆ4ˆXˆ ˆ>ˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ4OkžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž €ŅNNNNNNNNNNNNNNNNNNNNNN”””ūĢ ’’„®’ņ-¾’’„®’ōČü’ōĮ2’’…Ī’ōDŅ.TEXT’˜ō„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĄžLISTINGDĄ’’…”’ī’ń£’ń£’ōĄCXĄ’’’ńŌ’ńš’ńĄ?DžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž öŽNNNNNNNNNNNNNNNNNNNNNNž”””ūCXˆˆ©åˆˆCXˆˆˆČ9ˆ ø©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆ[žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž *tNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ՁNNNNNNNNNNNNNNNNNNNNNNž”””ūNVN¹Lŗ¬H­žĄLŗØH­žČL¹H­’ąL¹H­’šB­ž¼R­ž¼/-žÄ/-žĄN¹LŸH­’ą/-žÄ/-žĄN¹LŸH­’ų -ž¼ €m €oNGé€NvHmž¬Hm’ąHm’š+@žØN¹ -žØAķŠüžĄL­ž¬H°/-žĢ/-žČ/-žÄ/-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹:>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ÅæNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž :JNNNNNNNNNNNNNNNNNNNNNN”””ūprogram cx (listing);   import complexmath; (* from LIBRARY *)   const "pi = 3.141592654; "nsteps = 16;  var "a,b: complex; "table: array [1..nsteps+1] of complex; "theta,thetastep: real; "i: integer; "listing: text;   begin  theta :=TažĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ę°NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ģNNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž  {NNNNNNNNNNNNNNNNNNNNNN”””ū 0.0; "thetastep := pi/(2*nsteps); "a := zero; b := zero; "for i := 1 to nsteps+1 do $begin $ a.re := sin(theta); (*leave im part zero*) &b.im := cos(theta); (*leave re part zero*) &table[i] := add(a,b); &theta := theta + thetastep; $end;  ŌĮžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 'NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/<’ ?<’’N¹J­’źgNC/Q -ž¼ €m €oNGé€NvAķŠüžĄHpN¹+_ž“+_žøHmž“?<’’?<’’N¹J­’źgNCN¹J­’źgNC ­ž¼mžŹN^Nu REAL IMAGINARY MAGNITUDE ?¹!ūTREPˆ(Š-ˆ<ˆPˆ&P PP&ˆˆP(P ˆZˆˆP$Pˆˆ8ˆP:Pˆˆč-žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž £ŻNNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆŠ ˆˆ CTŠžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž \(NNNNNNNNNNNNNNNNNNNNNN”””ūwriteln(listing,' REAL ', 2' IMAGINARY ', 2' MAGNITUDE '); "for i := 1 to nsteps+1 do $writeln(listing,' ', ,table[i].re,' ',table[i].im,' ', ,mag(table[i]) );  end. ąźžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž LNNNNNNNNNNNNNNNNNNNNNN”””ūPŠ ňˆˆˆP ˆ"ˆˆ(ˆŠÅPˆŠéP ˆˆŠňˆˆŠň ˆˆˆˆZˆˆ ˆˆˆPŠéP ˆˆˆPˆPPˆ Š ÅPˆŠéP ˆFˆ:Šn Š ŠĶŠ9PPHP2PzPˆŹˆ ˆ ˆ Pˆ P(PxˆP*P2ˆˆ Pˆ ˆ^P Č(9Č 9Š()PŠ}PŠČ 9Č9Č9P ˆ@ˆČ9Č 9Š.‰Š8}Č9Č9Č9Č9Č 9ćžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž )NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒč„T†Ą‡+‰˜ŠŒnŚŽE±‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNN”””ž ”–NNNNNNNNNNNNNNNNNNNNNNž”””ūŠ ˆˆ Š!ˆŠ!ˆˆˆˆˆŠ5ˆ ˆˆŠ=ˆ ˆˆˆˆˆŠEˆˆˆ ˆ ˆˆˆŠUˆ ˆČaŠmČaŠmČaŠmČaŠ}ČaˆˆČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ™ČaŠ‰Čaˆ ˆŠ ©ˆˆˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹j¦žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž }lNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž  0NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ’§NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž äūNNNNNNNNNNNNNNNNNNNNNN”””ūTESTNJ©åNŠNuTESTNC/Hz?<`©å’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNG>åžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 8NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĒōNNNNNNNNNNNNNNNNNNNNNN”””ūŠ ˆˆ COMPLEXMATH_COMPLEXMATHCOMPLEXMATH_ZEROASM_SINASM_COSCOMPLEXMATH_ADDASM_RADD SYSGLOBALS FS_FWRITEPAOC FS_FWRITELN FS_FWRITECHARMFS_FWRITEREALCOMPLEXMATH_MAGˆŠ ™ČaŠ}Čaˆ /-žĄN¹LŸH­žĄ ­ž¼m’Z/-’²/Hzž?< ?<’’N¹d®žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ׏NNNNNNNNNNNNNNNNNNNNNN”””ūé€NvAķŠüžČHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/Q -ž¼ €m €oNGé€NvAķŠüžĄHpN¹+_ž“+_žøHmž“?<’’?<’’N¹J­’źgNCN¹J­’źgNC ­ž¼mžŹN^Nu REAL IMAGINARY MAGNITUDE ?¹!ūTREPˆ(Š-ˆ<ˆPˆ&P PP&ˆˆ»žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž (?NNNNNNNNNNNNNNNNNNNNNN”””ū$search '#3:ASMB_M1'$  Program test(input,output);  Import simple;  var i,j,k : rec;  begin #initialize; #i.i1:=1; i.i2:=2; #j.i1:=3; j.i2:=4; #add(i,j,k); #writeln(k.i1,k.i2)  end. ČžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ōÅNNNNNNNNNNNNNNNNNNNNNNž”””ūJ­’źgNC/Hz?< ?<’’N¹J­’źgNC/Hz‚?< ?<’’N¹J­’źgNCN¹J­’źgNCB­ž¼R­ž¼/-’²/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžĄHp?<’’?<’’N¹J­’źgNC/<’ ?<’’N¹J­’źgNC/ -ž¼ €m €oNGé€NvAķŠüžČHp?<’’?<’’N¹«źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ‚™NNNNNNNNNNNNNNNNNNNNNN”””ūP(P ˆZˆˆP$Pˆˆ8ˆP:PˆˆPŠ ňˆˆˆP ˆ"ˆˆ(ˆŠÅPˆŠéP ˆˆŠňˆˆŠň ˆˆˆˆZˆˆ ˆˆˆPŠéP ˆˆˆPˆPPˆ Š ÅPˆŠéP ˆFˆ:Šn Š ŠĶŠ9PPHP2PzPˆŹˆ ˆ ˆ Pˆ P(PxˆP*P2ˆˆ Pˆ ˆ^P Č(9Č 9Š()PŠ}PŠČ 9Č9Č9P ˆ@ˆČ9Č 9ŪžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž mRNNNNNNNNNNNNNNNNNNNNNN”””ū0^¢j¤Š3!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ±ØNNNNNNNNNNNNNNNNNNNNNNž”””ūŠ.‰Š8}Č9Č9Č9Č9Č 9PŠˆéˆˆˆ P ˆˆˆ ˆLˆPŠéˆˆˆ<ˆ@P4ˆ8Šn Š ŠĶŠ9PPFPPPzˆTP ŠEˆ P:ˆˆ Pˆ ˆbP Č(9Č 9Č49Č9Č9P ˆ@ˆČ9Č 9Š.qŠ8•Č9Č9Č9Č9PŠBEˆVˆŠ ňˆPˆˆˆŠéˆP&ˆ&Pˆ,ˆBˆˆˆˆˆ P ˆˆˆ<ˆPŠéˆŠ Š SF žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž N]NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ^cNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž õNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN„€‚}ƒč„T†Ą‡,‰˜ŠŒoŪŽF²‘“Š”õ•a—NNNNNNNNNNNNNNNNNNNNNN”””ž ^‹NNNNNNNNNNNNNNNNNNNNNN”””ūŠ Š SIMPLE_SIMPLESIMPLE_INITIALIZE SIMPLE_ADD SYSGLOBALS FS_FWRITEINT FS_FWRITELN//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PPęBžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ‚qNNNNNNNNNNNNNNNNNNNNNN”””ūPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆPPˆPP"ˆ\PŠéˆˆzŠňP PŠéˆ.ˆPŠéˆ0ˆNŠEˆ\P Pˆ:PŠéˆˆ P:P"PŠ"EˆP„P&PPšˆ&PPŠéˆˆPPP4ˆFPPPnP4PPHˆ8Pˆ ˆ ˆPPˆ&P4ˆVŠ*EŠ(鈈 ˆˆˆP ˆPPŠéˆˆŠEˆˆˆ.ˆ PˆPPŠéŠDEˆ.ˆ PŠ"ř÷žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ō-NNNNNNNNNNNNNNNNNNNNNN”””ū$search '#3:ASMB_M2'$  Program test(input,output);  Import simple2;  var i,j,k : rec;  begin #initialize; #i.i1:=1; i.i2:=2; #j.i1:=3; j.i2:=4; #add(i,j,k); #writeln(k.i1,k.i2)  end. zžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž mŗNNNNNNNNNNNNNNNNNNNNNN”””ūPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆPPˆPP"ˆ\PŠéˆˆzŠňP PŠéˆ.ˆPŠéˆ0ˆNŠEˆ\P Pˆ:PŠéˆˆ P:P"PŠ"EˆP„P&PPšˆ&PPŠéˆˆPPP4ˆFPPPnP4PPHˆ8Pˆ ˆ ˆPPˆ&P4ˆVŠ*EŠ(鈈 ˆˆˆP ˆPPŠéˆˆŠEˆˆˆ.ˆ PˆPPŠéŠDEˆ.ˆ PŠ"ř÷žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ęNNNNNNNNNNNNNNNNNNNNNN”””ū TEST__BASE R TEST_TESTRTESTD’ˆˆˆvˆZˆ:ˆ.ˆˆˆˆˆˆˆ ˆˆ0ˆˆ$ˆˆˆˆˆˆ ˆˆˆˆˆVˆBˆˆ ˆˆˆˆˆˆˆXˆˆˆˆˆˆ4ˆˆ$ˆˆˆˆˆ&ˆˆˆˆˆˆˆ ˆˆˆ ˆčˆ ˆ$ˆˆˆˆhˆˆˆˆ ˆˆˆˆˆˆˆˆ~ˆˆˆˆ.ˆˆ&ˆˆ$ˆˆˆˆˆˆˆˆˆ°ˆˆ(ˆˆˆ$ˆˆ$ˆ1ŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĒNNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 8éNNNNNNNNNNNNNNNNNNNNNN”””ū0^¢j¤Š3!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž (×NNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆˆˆˆˆzˆˆ(ˆ<ˆ ˆˆŠXéŠÅPPPŠEPŠ-PPPPŠĶŠ)Š}PŠmŠ”PPPPPPPPˆ ˆˆˆˆˆ6ˆbˆ ˆˆˆˆˆˆˆˆˆˆTˆˆ*ˆˆˆ8ˆˆˆ(ˆˆˆ6ˆˆˆ8ˆˆˆ,ˆˆˆ,ˆˆˆˆˆˆ$ˆˆˆˆ$ˆˆbˆˆ6ˆˆBˆˆ6ˆˆ6ˆˆ6ˆˆBˆˆ6ˆˆRˆˆ`ˆTˆ"ˆ0ˆ(ˆ6ˆˆˆˆˆˆˆ¢°žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ×"NNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’ƒ°’’ƒĄ’īT’ī’’Č’ō³¢’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’° ’’Š`.TESTńRŠ:R’’ˆś’’ˆś’ō’’„t’ņ*’’ō³¢’’ˆś’’„„’ņ$ų ’’„š’ņ)ž’ņ)žl‘žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž  ŲNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž }„NNNNNNNNNNNNNNNNNNNNNN”””ūŠ Šˆ ˆˆˆˆˆˆŠ-Č9ˆŠEČ9ˆ ŠEČ9ŠUČ9Hm’ųN¹/-’¦//-’ų?<’’N¹J­’źgNC//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PP §žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž äNNNNNNNNNNNNNNNNNNNNNN”””ū:"’’„®’ņ-¾’’„®’ōÄŌ’ōĮH’’…Ī’ōDŅĄ2EXTĪ’’’ń£’’…š STRDELETEE’’ō¤¤’ōœT’ōœp’ōœX’ōœ\’ōœ`’ōœd’ōœj’ō¶’ōd’ōl’ōœt’ōœz’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĮLISTINGDĄ’’…”’ī’ń£’ń£’ōĄ2TEST’’ńŌ’ńš’ńĄż™žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ’ONNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NµNNNNNNNNNNNNNNNNNNNNNN”””ūPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆPPˆPP"ˆ\PŠéˆˆzŠňP PŠéˆ.ˆPŠéˆ0ˆNŠEˆ\P Pˆ:PŠéˆˆ P:P"PŠ"EˆP„P&PPšˆ&PPŠéˆˆPPP4ˆFPPPnP4PPHˆ8Pˆ ˆ ˆPPˆ&P4ˆVŠ*EŠ(鈈 ˆˆˆP ˆPPŠéˆˆŠEˆˆˆ.ˆ PˆPPŠéŠDEˆ.ˆ PŠ"ř÷žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ±@NNNNNNNNNNNNNNNNNNNNNN”””ūNVN¹N¹+|’č+|’ģ+|’š+|’ōHm’čHm’šHm’ųN¹/-’¦//-’ų?<’’N¹J­’źgNC//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PPŠ„žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ”~NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ÷ANNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚}ƒč„T†Ą‡+‰–ŠŒnŚŽF²‘“‰”õ•a—NNNNNNNNNNNNNNNNNNNNNNN”””ž †NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ZõNNNNNNNNNNNNNNNNNNNNNN”””ū check) (move.l d0,temp(a6) ( (tst.l temp(a6) (if temp<0) (bge past_escape (move #100,escapecode(a5) (trap #10 (then escape 100) (  past_escape move.l temp(a6),result(a6)  * (partadd:=temp) ( (movea.l retcpžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ,©NNNNNNNNNNNNNNNNNNNNNN”””ū(mname simple2   src module simple2; (src export (src type (src rec = record (src i1 : integer; (src i2 : integer; (src end; (src const (src zero = rec[i1:0,i2:0]; (src var (src lastresult : ”§žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž µ>NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĆbNNNNNNNNNNNNNNNNNNNNNN”””ū_addr(a6),a0 (unlk a6 (adda.l #12,sp (jmp (a0)   simple2_add trap #1 (stack check) (dc.w -16 (for param copies) /  a_addr equ 16  b_addr equ 12  out_addr equ 8  ret_addr2 equ 4  dyn_link2 equ 0 hnžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ˜NNNNNNNNNNNNNNNNNNNNNN”””ūrec; (src procedure initialize; (src procedure add(a,b : rec; (src var out : rec); (src end; ( (com simple2,-16 ( (def simple2_add (def simple2_initialize (def simple2_zero,simple2_simple2 ( (refa sysglobals 0  lastresult †žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ąmNNNNNNNNNNNNNNNNNNNNNN”””ū0^¢;¢;ŹžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž šSNNNNNNNNNNNNNNNNNNNNNN”””ū (relative to a6)  b_i2_copy equ -4  b_i1_copy equ -8  a_i2_copy equ -12  a_i1_copy equ -16 ! (movea.l a_addr(a6),a0 (making local (move.l (a0)+,a_i1_copy(a6) copies) (move.l (a0),a_i2_copy(a6) `āžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¦NNNNNNNNNNNNNNNNNNNNNN”””ū equ simple2-8  lastresult_i1 equ simple2-8  lastresult_i2 equ simple2-4  sum equ simple2-16 (relative to a5)  sum_i1 equ simple2-16  sum_i2 equ simple2-12  escapecode equ sysglobals-2  recover_rec equ sy­4žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ó\NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž „NNNNNNNNNNNNNNNNNNNNNN”””ū(movea.l b_addr(a6),a0 (move.l (a0)+,b_i1_copy(a6) (move.l (a0),b_i2_copy(a6) ( (move.l recover_rec(a5),-(sp) (TRY) (move.l a6,-(sp) (pea recover_addr (move.l sp,recover_rec(a5) ( (subq.l #4,sp (calling partadd) (move.l a_i1_copy(a6),-(sp4¹žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž <—NNNNNNNNNNNNNNNNNNNNNN”””ūsglobals-10 0 (rorg 0   simple2_zero dc.l 0,0   simple2_initialize trap #1 (stack check)  dc.w 0 (no local space) 0 (movem.l simple2_zero,a0-a1 (movem.l a0-a1,sum(a5) ( (unlk a6 (rts 0  simple2_partadd trap #1 ōžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž JĖNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž –1NNNNNNNNNNNNNNNNNNNNNN”””ū) (move.l b_i1_copy(a6),-(sp) (jsr simple2_partadd (move.l (sp)+,lastresult_i1(a5) ( (subq.l #4,sp (calling partadd) (move.l a_i2_copy(a6),-(sp) (move.l b_i2_copy(a6),-(sp) (jsr simple2_partadd (move.l (sp)+,lastresult_i2(a5) ( (move.l lastr!ūžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž iÄNNNNNNNNNNNNNNNNNNNNNN”””ū(dc.w -4 0  result equ 16  x equ 12  y equ 8 (relative to a6)  ret_addr equ 4  dyn_link equ 0  temp equ -4  (move.l x(a6),d0 (temp:=x+y) (add.l y(a6),d0 (trapv (overflow3ĘžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž yśNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¦lNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚}ƒč„T†Ą‡,‰—ŠŒnŚŽE°‘“†”ņ•^—NNNNNNNNNNNNNNNNNNNNNNN”””ž yNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕA¬dSIMPLE2’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĮLISTINGDĄ’’…”’ī’ń£’ń£’ōĄ2TEST’’ńŌ’ńš’ńĄ­žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĮĮNNNNNNNNNNNNNNNNNNNNNN”””ūTEST ˆ©åˆˆ@TESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆŻžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žXVNNNNNNNNNNNNNNNNNNNNNN”””ūNuxžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž . NNNNNNNNNNNNNNNNNNNNNNž”””ūNVN¹N¹+|’č+|’ģ+|’š+|’ōHm’čHm’šHm’ųN¹/-’¦//-’ų?<’’N¹J­’źgNC//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PPŠ„žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žņšNNNNNNNNNNNNNNNNNNNNNN”””ūˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠéP ˆˆP*ˆˆ PPPBPˆPŠéP ˆ PPˆˆ(ˆ(Pˆ Pˆ Š6 ŠéŠ -Š*EŠ Eˆ"ˆPˆPPŠ.EŠHÅŠ2-ˆˆ*ˆˆ

4NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žHhNNNNNNNNNNNNNNNNNNNNNN”””ū TEST__BASE R TEST_TESTRTESTD’ˆˆˆvˆZˆ:ˆ.ˆˆˆˆˆˆˆ ˆˆ0ˆˆ$ˆˆˆˆˆˆ ˆˆˆˆˆVˆBˆˆ ˆˆˆˆˆˆˆXˆˆˆˆˆˆ4ˆˆ$ˆˆˆˆˆ&ˆˆˆˆˆˆˆ ˆˆˆ ˆčˆ ˆ$ˆˆˆˆhˆˆˆˆ ˆˆˆˆˆˆˆˆ~ˆˆˆˆ.ˆˆ&ˆˆ$ˆˆˆˆˆˆˆˆˆ°ˆˆ(ˆˆˆ$ˆˆ$ˆ1ŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ń’NNNNNNNNNNNNNNNNNNNNNN”””ūŠ.‰Š8}Č9Č9Č9Č9Č 9PŠˆéˆˆˆ P ˆˆˆ ˆLˆPŠéˆˆˆ<ˆ@P4ˆ8Šn Š ŠĶŠ9PPFPPPzˆTP ŠEˆ P:ˆˆ Pˆ ˆbP Č(9Č 9Č49Č9Č9P ˆ@ˆČ9Č 9Š.qŠ8•Č9Č9Č9Č9PŠBEˆVˆŠ ňˆPˆˆˆŠéˆP&ˆ&Pˆ,ˆBˆˆˆˆˆ P ˆˆˆ<ˆPŠéˆŠ ŠS nžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž§£NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž{YNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆˆˆˆˆzˆˆ(ˆ<ˆ ˆˆŠXéŠÅPPPŠEPŠ-PPPPŠĶŠ)Š}PŠmŠ”PPPPPPPPˆ ˆˆˆˆˆ6ˆbˆ ˆˆˆˆˆˆˆˆˆˆTˆˆ*ˆˆˆ8ˆˆˆ(ˆˆˆ6ˆˆˆ8ˆˆˆ,ˆˆˆ,ˆˆˆˆˆˆ$ˆˆˆˆ$ˆˆbˆˆ6ˆˆBˆˆ6ˆˆ6ˆˆ6ˆˆBˆˆ6ˆˆRˆˆ`ˆTˆ"ˆ0ˆ(ˆ6ˆˆˆˆˆˆˆ¢°žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž „¬NNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’ƒ°’’ƒĄ’īT’ī’’Č’ō³¢’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’° ’’Š`.TESTńRŠ:R’’ˆś’’ˆś’ō’’„t’ņ*’’ō³¢’’ˆś’’„„’ņ$ų ’’„š’ņ)ž’ņ)žl‘žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž”’NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žKNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.¦€‚~ƒź„V†Ā‡.‰šŠŒqÜŽG³‘“‹”÷•b—NNNNNNNNNNNNNNNNNNNNNNN”””ž”zNNNNNNNNNNNNNNNNNNNNNN”””ū MODULE ModuleThree;   EXPORT $PROCEDURE ThirdLine; $  IMPLEMENT  $PROCEDURE ThirdLine; (BEGIN *WRITELN('I came from ModuleThree'); (END; (  END. ZžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žH€NNNNNNNNNNNNNNNNNNNNNN”””ūPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆPPˆPP"ˆ\PŠéˆˆzŠňP PŠéˆ.ˆPŠéˆ0ˆNŠEˆ\P Pˆ:PŠéˆˆ P:P"PŠ"EˆP„P&PPšˆ&PPŠéˆˆPPP4ˆFPPPnP4PPHˆ8Pˆ ˆ ˆPPˆ&P4ˆVŠ*EŠ(鈈 ˆˆˆP ˆPPŠéˆˆŠEˆˆˆ.ˆ PˆPPŠéŠDEˆ.ˆ PŠ"ř÷žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>ÜNNNNNNNNNNNNNNNNNNNNNNž”””ū’ō”P’ō¬ €ˆ P@ˆ$’ō„ˆ’ō­VOˆ(ˆˆ P’ō“Š€ˆˆPP4P(ŠFÅ’ō”P’ō­ €ŠxEˆ éP ˆˆ’ō„œ’ō­0€éP ˆ’ō¤ę’ō®v’ō„œ’ō­ęPP&P ˆ&ˆ’ō“Š€ˆ Pˆ$ˆPP4P8’ō“Š’ō½LžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž §KNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŃNNNNNNNNNNNNNNNNNNNNNN”””ūM 2 ¢B(A.¤ü©ctžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ķNNNNNNNNNNNNNNNNNNNNNN”””ū­š€P ˆRŠˆPˆ.P’ō„œ’ō­Ą€P(Pˆ”’ō„b’ō“Š’ō®PQˆŠéP ’ō„œ€PˆDˆPˆˆ$ˆ’ō„œ’ō®*€ˆ Šé’ō„j’ō®ŗRˆˆˆ ˆ’ō„œ€ˆŠjEˆˆP$ˆ’ōČ Š S=ŲžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ņNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žā&NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÓNNNNNNNNNNNNNNNNNNNNNN”””ūŠ Šˆ ˆˆˆˆˆˆŠ-Č9ˆŠEČ9ˆ ŠEČ9ŠUČ9Hm’ųN¹/-’¦//-’ų?<’’N¹J­’źgNC//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PP §žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Į)NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž·uNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.āNNNNNNNNNNNNNNNNNNNNNN”””ūPˆPPPˆJPPˆnPPˆ2PPˆ$Pˆ$Pˆ&ˆPPˆPP"ˆ\PŠéˆˆzŠňP PŠéˆ.ˆPŠéˆ0ˆNŠEˆ\P Pˆ:PŠéˆˆ P:P"PŠ"EˆP„P&PPšˆ&PPŠéˆˆPPP4ˆFPPPnP4PPHˆ8Pˆ ˆ ˆPPˆ&P4ˆVŠ*EŠ(鈈 ˆˆˆP ˆPPŠéˆˆŠEˆˆˆ.ˆ PˆPPŠéŠDEˆ.ˆ PŠ"ř÷žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž X¾NNNNNNNNNNNNNNNNNNNNNN”””ūPROGRAM©å„œ’ō MODULETHREE’ō0©å’ō“Š’ō«D’Jˆˆˆvˆ’ō„œ€ˆ(ˆˆJˆˆˆ ˆ’ō„œ’ō«€ˆˆˆ’ō„t’ō„œ’ō«ˆK9ˆČ,9’ō„œ€Ȗõˆ’ō„~’ō«ņ’ō„œ’ō«ĢLˆ99žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž„DNNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž{±NNNNNNNNNNNNNNNNNNNNNN”””ūŠ ŠSIMPLE2_SIMPLE2SIMPLE2_INITIALIZE SIMPLE2_ADD SYSGLOBALS FS_FWRITEINT FS_FWRITELN//-’ü?<’’N¹J­’źgNCN¹J­’źgNCN^NuEŠEŠEŠEČ9Č 9ˆČ 9Č9ˆ$ˆ ˆ ˆ ˆ ˆˆP<ˆ2ˆŠň ˆPŠbÅPPPfP&Š8鈈PˆP P ˆŠVéŠ"鈈ˆPˆ ˆ.ˆ0PP“,žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž kNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č2’ō„œ€9Č29’ō„Z’ō„œ’ō¬6MČ9ˆˆ’ō“Š€PPPPPPP’ō„œ’ō¬€PPP’ō„’’ō­|’ō¬ĘNŠŠ±’ō“Š€ŠIŠŠIPŠ’ō“Š’ō¬z€Š<Eˆ*ŠEŠ”fZžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=°NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚|ƒē„S†¾‡*‰–ŠŒmŁŽE°‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNNN”””žŅšNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’ƒL’’ƒ\#n’īT’ī’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒz’’ƒŠ’’ė°’īT’īT’’ƒ¢’’° ’R0d8 MODULETHREERR’’ˆś’’ˆś’ō’’„’ņ*’’ō®Č’’ˆś’’„ ’ņ$ų ’’„6’ņ)ž’ņ)žžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž `NNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žxˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ4įžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žį«NNNNNNNNNNNNNNNNNNNNNN”””ū"’’„J’ņ-¾’’„J’ōĀ:’ōĮØ’’„r’ō60€ŠÜ’’’ōĀ:’’…Ź’ō="’’…ŹMĘ’ńćV’ō—p’’…Ŗ’ō•x…²’īR\’’„²’ńĄ’ńćV’ōĄĄ’’…Š’ōĄb_BASE£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…XpžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž —÷NNNNNNNNNNNNNNNNNNNNNN”””ūM 2 ŌB(A.¤üØ4«éžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žK NNNNNNNNNNNNNNNNNNNNNNž”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž“ųNNNNNNNNNNNNNNNNNNNNNN”””ūMODULE MODULETHREE; EXPORT PROCEDURE ThirdLine; END; ˆ(Pˆ2P’ō“Š€P,P*ˆ4’ō¤ō’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@^`žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¤ĘNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž[3NNNNNNNNNNNNNNNNNNNNNN”””ūČ ŠČ Š%Č ?<’’N¹J­’źgNCN¹J­’źgNCN^NuI came from ModuleThreeNuP*ˆ4’ō¤ō’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@OžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‡ÉNNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žń•NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž hNNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž^NNNNNNNNNNNNNNNNNNNNNNž”””ūNA/-’¦/Hz*?<?<’’N¹J­’źgNCN¹J­’źgNCN^NuI came from ModuleThreeNuP*ˆ4’ō¤ō’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@£ĒžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĀ¤NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž =QNNNNNNNNNNNNNNNNNNNNNN”””ūČ Š SYSGLOBALS FS_FWRITEPAOC FS_FWRITELNgNCN^NuI came from ModuleThreeNuP*ˆ4’ō¤ō’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@ŗžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-oNNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žņłNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN§NN¦€‚~ƒź„V†Į‡,‰˜ŠŒpŪŽF±‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNNN”””ž-‡NNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’ƒL’’ƒ\#n’īT’ī’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒz’’ƒŠ’’ė°’īT’īT’’ƒ¢’’® ’hHZJ MODULETWOhR’’ˆś’’ˆś’ō’’„’ņ*’’ō®Č’’ˆś’’„ ’ņ$ų’’„6’ņ)ž’ņ)žžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žń}NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‡!NNNNNNNNNNNNNNNNNNNNNN”””ūMODULETWO__BASERMODULETWO_TWOLINESDRMODULETWO_MODULETWORf MODULETWO’HREE’Š,”P ˆˆPˆˆPČ9ˆˆˆˆ4ˆXˆ ˆ>ˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ4Ć|žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¶NNNNNNNNNNNNNNNNNNNNNN”””ū ’’„J’ņ-¾’’„J’ōĆT’ōĮØ’’„r’ō60€ŠÜ’’’ōĆT’’…Ź’ō="’’…ŹMĘ’ńćV’ō—p’’…Ŗ’ō•x…²’īR\’’„²’ńĄ’ńćV’ōĄĄ’’…Š’ōĄb_BASE£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X£žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žhźNNNNNNNNNNNNNNNNNNNNNN”””ūPROGRAM©å„œ’ō MODULETWOEE’ōH©å’ō“Š’ō«D’Jˆˆˆvˆ’ō„œ€ˆ(ˆˆJˆˆˆ ˆ’ō„œ’ō«€ˆˆˆ’ō„t’ō„œ’ō«ˆK9ˆČ,9’ō„œ€Ȗõˆ’ō„~’ō«ņ’ō„œ’ō«ĢLˆż2žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž“NNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž KåNNNNNNNNNNNNNNNNNNNNNN”””ūMODULE MODULETWO; IMPORT ModuleThree; EXPORT PROCEDURE TwoLines; END; ThreeNuP*ˆ4’ō¤ō’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@EžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž[ŪNNNNNNNNNNNNNNNNNNNNNNž”””ūČ9Č2’ō„œ€9Č29’ō„Z’ō„œ’ō¬6MČ9ˆˆ’ō“Š€PPPPPPP’ō„œ’ō¬€PPP’ō„’’ō­|’ō¬ĘNŠŠ±’ō“Š€ŠIŠŠIPŠ’ō“Š’ō¬z€Š<Eˆ*ŠEŠ”fZžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¤.NNNNNNNNNNNNNNNNNNNNNN”””ū MODULE ModuleTwo;   IMPORT ModuleThree;   EXPORT $PROCEDURE TwoLines;   IMPLEMENT  $PROCEDURE TwoLines; (BEGIN ,WRITELN('I came from ModuleTwo and brought this:'); ,ThirdLine; (END; &  END. ÕĶžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž xŌNNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žˆNNNNNNNNNNNNNNNNNNNNNN”””ū’ō”P’ō¬ €ˆ P@ˆ$’ō„ˆ’ō­VOˆ(ˆˆ P’ō“Š€ˆˆPP4P(ŠFÅ’ō”P’ō­ €ŠxEˆ éP ˆˆ’ō„œ’ō­0€éP ˆ’ō¤ę’ō®v’ō„œ’ō­ęPP&P ˆ&ˆ’ō“Š€ˆ Pˆ$ˆPP4P8’ō“Š’ō½LžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž—NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž įCNNNNNNNNNNNNNNNNNNNNNN”””ūNA/-’¦/Hz0?<'?<’’N¹J­’źgNCN¹J­’źgNCN¹N^NuI came from ModuleTwo and brought this:Nu’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@^žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=¹NNNNNNNNNNNNNNNNNNNNNN”””ū­š€P ˆRŠˆPˆ.P’ō„œ’ō­Ą€P(Pˆ”’ō„b’ō“Š’ō®PQˆŠéP ’ō„œ€PˆDˆPˆˆ$ˆ’ō„œ’ō®*€ˆ Šé’ō„j’ō®ŗRˆˆˆ ˆ’ō„œ€ˆŠjEˆˆP$ˆ’ōČ Š S=ŲžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĀLNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŅrNNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž„MNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNENNNN¦€‚~ƒź„V†Į‡-‰˜ŠŒpŪŽG³‘“‹”÷•c—NNNNNNNNNNNNNNNNNNNNNNN”””ž?ņNNNNNNNNNNNNNNNNNNNNNN”””ūČ ŠČ Š%Č Š1N¹J­’źgNCN¹J­’źgNCN¹N^NuI came from ModuleTwo and brought this:Nu’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@“^žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ćNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž•TNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĆNNNNNNNNNNNNNNNNNNNNNNž”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž zŸNNNNNNNNNNNNNNNNNNNNNN”””ūPROGRAM©åˆˆ PROGRAMONE9ˆ p©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆž•žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¦eNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žYNNNNNNNNNNNNNNNNNNNNNN”””ūČ Š SYSGLOBALS FS_FWRITEPAOC FS_FWRITELNMODULETHREE_THIRDLINEm ModuleTwo and brought this:Nu’ō“Ų’ōÆB’T9Č9Č’ō“Š€ˆˆBČ ’ō¤ž’ōƆ’UˆˆPP(’ō“Š€ˆ&ˆ*ˆ TEST ˆ©åˆˆ@”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž I®NNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¶[NNNNNNNNNNNNNNNNNNNNNNž”””ū PROGRAM ProgramOne(OUTPUT);   IMPORT ModuleTwo;   BEGIN $WRITELN; $WRITELN; $WRITELN('*************** ProgramOne ***************'); $TwoLines; $WRITELN('*************** ProgramOne ***************'); $  END. hGžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žj”NNNNNNNNNNNNNNNNNNNNNN”””ūTESTˆ Pˆ ˆˆ$`©åˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠæžžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žżNNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž …jNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žó6NNNNNNNNNNNNNNNNNNNNNN”””ūM 2 ŽB(A.¤üØ4ēžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ĢNNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆŠ ŠM*ÓžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Š9NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĄNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‘NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.NN¦€‚~ƒé„U†Ą‡,‰˜ŠŒpÜŽG³‘“‹”÷•c—NNNNNNNNNNNNNNNNNNNNNNN”””žĄļNNNNNNNNNNNNNNNNNNNNNN”””ūŠ ŠMODULETWO_MODULETWOMODULETHREE_MODULETHREE SYSGLOBALS FS_FWRITELN FS_FWRITEPAOCMODULETWO_TWOLINESHz*?<*?<’’N¹J­’źgNCN¹J­’źgNCN^Nu*************** ProgramOne ***************PP(ˆˆˆˆ Pˆˆˆ&ˆ*ˆ Š"ÅPˆˆˆˆˆˆ ˆPˆ ˆˆˆˆ@ˆ*`ąžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆPPˆ Pˆ ˆˆ$ˆ^Pˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠņ žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žjINNNNNNNNNNNNNNNNNNNNNN”””ū $DEBUG ON$ { Enable debugging. }   PROGRAM XYZ (OUTPUT); #VAR &i : INTEGER; &j : INTEGER; &x : REAL; &y : REAL; &ch1 : CHAR; &ch2 : CHAR; & #PROCEDURE Level_1; &VAR )i : INTEGER; )x CŃžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž óŽNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆPPˆ Pˆ ˆˆ$ˆ^Pˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠņ žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž…‚NNNNNNNNNNNNNNNNNNNNNN”””ūPROGRAMONE__BASEˆRPROGRAMONE_PROGRAMONER PROGRAMONE9’Š-ŠˆˆˆŠéˆ2PPˆˆŠHŠ,”P ˆˆPˆˆPČ9ˆˆˆˆ4ˆXˆ ˆ>ˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ4ĮžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žYxNNNNNNNNNNNNNNNNNNNNNN”””ū: INTEGER; )y : INTEGER; ) &PROCEDURE Level_2b; )BEGIN ,WRITE('Level 2b: '); ,WRITE(' i=',i:2,' x=',x:4); ,WRITELN(' ch1=',ch1:1); )END; ) &PROCEDURE Level_2a; )VAR ,i, x, y : INTEGER; , )PROCEDURE Level_3; ,BEGIN /IF i < Å{žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¦NNNNNNNNNNNNNNNNNNNNNN”””ūN^¢j©Õ=žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¶³NNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žIFNNNNNNNNNNNNNNNNNNNNNN”””ū©å©ÕP’’ƒ°’’ƒĄ’īT’ī’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’¶ ’’ĘpF PROGRAMONEśRĘLRˆś’ō’’„t’ņ*’’ō®Č’’ˆś’’„„’ņ$ų’’„š’ņ)ž’ņ)ž2ržĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž •¼NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žćąNNNNNNNNNNNNNNNNNNNNNN”””ūŠ ŠČ5ŠAČ5Č5ŠAČ5Č5ŠMČ5ŠAČ5Š]Č5ŠMČ5ŠAČ5J­’źgNCN¹J­’źgNCN¹/-’¦/Hz*?<*?<’’N¹J­’źgNCN¹J­’źgNCN^Nu*************** ProgramOne ***************PP(ˆˆˆˆ Pˆˆˆ&ˆ*ˆ Š"ÅPˆˆˆˆˆˆ ˆPˆ ˆˆˆˆ@ˆ* nžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žzwNNNNNNNNNNNNNNNNNNNNNN”””ūL(’’„®’ņ-¾’’„®’ōĆt’ōĮ2’’…Ī’ōDŅĄ’’’’XT„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĄžLISTINGDĄ’’…”’ī’ń£’ń£’ōĄ PROGRAMONEńš’ńĄć"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž  +NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŠŃNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆPPˆ Pˆ ˆˆ$ˆ^Pˆ(ˆP ˆ:ˆˆ P:P$PČ*9Č 9Č:9Č9Č9P ˆPRˆ8ˆFP"ˆ^Šr Č9Č 9Š$½ŠeŠIČ$9Č9ˆP ˆˆlˆ PPˆˆPPˆ0ˆP P0ˆ\ˆPPˆ(ˆ0ˆP ŠÅČ(9Č 9Š<ÅŠ eŠ ĶŠ åŠ ™Š Č9Č9Č9Č9Č 9Č9PP\ˆˆˆˆˆˆ ˆ,ˆ ˆ:PzŠ&Eˆ<Š-Š>-ˆŠņ žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/$NNNNNNNNNNNNNNNNNNNNNN”””ūNVN¹N¹/-’¦N¹J­’źgNC/-’¦N¹J­’źgNC/-’¦/Hz^?<*?<’’N¹J­’źgNCN¹J­’źgNCN¹/-’¦/Hz*?<*?<’’N¹J­’źgNCN¹J­’źgNCN^Nu*************** ProgramOne ***************PP(ˆˆˆˆ Pˆˆˆ&ˆ*ˆ Š"ÅPˆˆˆˆˆˆ ˆPˆ ˆˆˆˆ@ˆ*•ČžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ?NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ži%NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@NNN¦€‚~ƒé„U†Į‡-‰™ŠŒpŪŽG³‘“Š”ö•b—NNNNNNNNNNNNNNNNNNNNNNN”””žkNNNNNNNNNNNNNNNNNNNNNNž”””ū4 THEN 2BEGIN 5WRITE('Level 3: '); 5WRITE(' i=',i:2,' x=',x:4); 5WRITELN(' ch1=',ch1:1); 5i:= i + 1; 5Level_3; 2END; /IF ch1='a' THEN 2BEGIN 5ch1:= 'x'; 5WRITE('Level 3: '); 5WRITE(' i=',i:2,' x=',x:4); 5WRITELN(' ch1=',ch1:1); 2EN ­žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž đNNNNNNNNNNNNNNNNNNNNNN”””ū8 ’’„®’ņ-¾’’„®’ōĀ”’ōĮ2’’…Ī’ōDŅĄ’’’’Tō„Ī’’’ń£’’…š STRDELETEE’’ōŸŹ’ō—z’ō—–’ō—~’ō—‚’ō—†’ō—Š’ō—’ō˜Ü’ō˜Š’ō˜’’ō—š’ō— ’ō’īˆ’īˆP>’’’’’…4’ī…X’ī…X6G’’…L’īŽQ,ŒQ ’ōgk’’…>’’…f’ń£’ōĄžLISTINGDĄ’’…”’ī’ń£’ń£’ōĄXYZ’’’ńŌ’ńš’ńĄŒÕžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž²ĶNNNNNNNNNNNNNNNNNNNNNN”””ūXYZGRAM©åˆˆ XYZGRAMONE9ˆ `©åˆˆÉ9ˆˆ:ˆˆˆˆ ˆ ˆˆˆˆˆvˆˆTˆØˆˆšˆˆˆˆ(ˆˆJˆˆtˆˆØˆˆˆˆ ˆˆ ˆˆˆˆˆ„ˆˆˆˆˆˆˆˆ*ˆDˆˆxˆˆˆˆˆˆˆ ˆˆˆˆˆPČ9ˆČ,9Č&9ˆ6ˆˆˆˆȖõˆˆČõČ 9Č9Č49ˆ ˆ ˆˆČ9ˆˆˆFˆ ˆˆ%µžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ZNNNNNNNNNNNNNNNNNNNNNNž”””ūD; ,END; , )BEGIN ,WRITE('Level 2a: '); ,WRITE(' i=',i:2,' x=',x:4); ,WRITELN(' ch1=',ch1:1); ,i:= 1; x:= 2; y:= 3; ,Level_3; ,i:= 4; x:= 5; y:= 6; ,Level_2b; )END; ) &BEGIN *i:= 0; x:= 0; y:= 0; *WRITE('Level 1: '); z)žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ]NNNNNNNNNNNNNNNNNNNNNN”””ū LEVEL_2B NAN@/-’¦Hzš?< ?<’’N¹J­’źgNCN@/-’¦/Hz¾?<?<’’N¹J­’źgNC/ n/(’ü?<N¹J­’źgNC/HzŠ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@/-’¦/HzP?<?<’’N¹J­’źgNC/-’ē?<N¹J­’źgNCN¹J­’źgNCN@N^.ŸNu ZīžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žüNNNNNNNNNNNNNNNNNNNNNN”””ūČ9Č29ˆˆFˆ ˆˆČ9Č29Č9ˆ ˆ ˆ ˆ ˆˆˆrˆˆČ9Č9ˆˆˆČ9Č9ˆˆˆČ9Č9P PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPŠ-ŠŠ=PPŠ”ŠEPŠŠ±ŠyŠePPPŠIŠYŠżŠńŠIPŠ-Š‘ŠUŠ"EŠ<Eˆ*ˆˆˆ*ˆ ˆ ŠEŠ”ŠüžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž~ NNNNNNNNNNNNNNNNNNNNNN”””ū*WRITE(' i=',i:2,' x=',x:4); *WRITELN(' ch1=',ch1:1); *Level_2b; *Level_2a; &END; &  BEGIN #i:= 10; #x:= 20.0; y:= 30.0; #ch1:= 'a'; ch2:= 'b'; #WRITE('Main: '); #WRITE(' i=',i:2,' x=',x:2:1); #WRITELN(' ch1=',ch1:1); #Level_1;`ÕžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž n7NNNNNNNNNNNNNNNNNNNNNN”””ūi= x= ch1=Level 2b: LEVEL_3NAN@ np°Ø’ōoüN@!/-’¦Hz?< ?<’’N¹J­’źgNCN@"/-’¦/HzŠ?<?<’’N¹J­’źgNC/ n/(’ō?<N¹J­’źgNC/Hzœ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@#/-’¦/Hzb?<?<’’N¹J­’źgNC/-’ē?<óNžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‘ĀNNNNNNNNNNNNNNNNNNNNNN”””ūˆ>ˆ ˆˆ.ˆ\ˆ ˆ ˆ P@ˆ$PˆPHPP6ˆ"PPP:PDˆ(PˆPP$P(P(P(Š:ÅPˆ(ˆˆ PŠ8éP ˆŠDéP ˆˆPˆ ŠDéP ˆP4P(ŠFÅPPPP.Pˆ ˆRŠxEˆ ŠhUŠ2 Š@éP ˆˆPPˆPP"ˆ2ŠDéP ˆP$P4ˆPˆP ˆˆ<ˆ ŠéP ˆˆŠ"ÅPP(PP.P&P ˆ&ˆPˆ ˆ4P0ˆˆ$Pˆ Pˆ$Pˆ ˆˆˆˆPP4P8P ˆ.P7ĶžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žM8NNNNNNNNNNNNNNNNNNNNNN”””ū #WRITE('Main: '); #WRITE(' i=',i:2,' x=',x:2:1); #WRITELN(' ch1=',ch1:1);  END.  ūqžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;dNNNNNNNNNNNNNNNNNNNNNN”””ūN¹J­’źgNCN¹J­’źgNCN@$ nRØ’ōNvN@%/NŗžņN@'pa°-’ēfīN@)|x’ēN@*/-’¦Hzš?< ?<’’N¹J­’źgNCN@+/-’¦/Hz¾?<?<’’N¹J­’źgNC/ n/(’ō?<N¹J­’źgNC/HzŠ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@,/-’¦/HzP?<?<’’N¹ĪžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¢óNNNNNNNNNNNNNNNNNNNNNN”””ūP8ŠéP P ˆRŠéP ˆˆˆˆPˆ.PˆˆŠéPˆPP(Pˆ”PŠéP ˆ6P P2PPˆP(P0ˆˆˆ PPP,ˆP ˆŠéP ˆ P$Pˆ ˆPˆPˆDˆˆ$ˆPPFPPˆˆ$ˆˆˆ ŠéŠ ÅPˆ ŠéP ˆˆŠňˆˆ ˆŠéŠ ÅPˆŠéP ˆ ˆˆˆˆ ˆˆˆ ˆ ˆ PPˆˆŠjEŠnUŠ4 P ˆˆP$ˆˆČ Š SšžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŌÆNNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žUNNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNC/-’ē?<N¹J­’źgNCN¹J­’źgNCN@.N^.ŸNu i= x= ch1=Level 3: 1 LEVEL_2A NA’ōN@1/-’¦HzF?< ?<’’N¹J­’źgNCN@2/-’¦/Hz?<?<’’N¹J­’źgNC//.’ō?<N¹J­’źgNC/Hzä?<?<’’N¹J­’źgNC/.’ų?<N¹J­’źgNCN@3/-’¦/Hz‘ žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ÷ NNNNNNNNNNNNNNNNNNNNNNž”””ū©å©ÕPš’ńH’ōøČ’’ƒŹ’ī#V’’Č’ō®Č’’ė°’’Č’’ČÖ’’ƒŽ’’ƒī’’ė°’īT’īT’’„’’®’’: `(XYZR:8R’’ˆś’’ˆś’ō’’„t’ņ*’ ’ō®Č’’ˆś ’’„„’ņ$ų’’„š’ņ)ž’ņ)ž}ŹžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žēžNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž8NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚}ƒé„U†Ą‡,‰˜ŠŒpÜŽG³‘“Š”ö•a—NNNNNNNNNNNNNNNNNNNNNNN”””žēvNNNNNNNNNNNNNNNNNNNNNN”””ūČ ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ČR ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ˆ&ˆČ ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ČB ŠČ Č ŠS:žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;ŒNNNNNNNNNNNNNNNNNNNNNN”””ū’ē?<N¹J­’źgNCN¹J­’źgNCN@JNŗż¤N@K/-’¦Hzź?< ?<’’N¹J­’źgNCN@L/-’¦/Hzø?<?<’’N¹J­’źgNC//-’ü?<N¹J­’źgNC/Hzˆ?<?<’’N¹J­’źgNCHm’š?<?<N¹J­’źgNCN@M/-’¦/HzN?<?<’’N¹J­’źgNC/-’ē?<N¹J­’źgNCN¹1žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žMŠNNNNNNNNNNNNNNNNNNNNNN”””ūN^©¤©åmķžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŌGNNNNNNNNNNNNNNNNNNNNNN”””ūČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ȶ ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ˆRˆˆˆ ˆ Č ŠČ Č ŠČ ˆ Š%Č ŠČ ˆŠ QČ Č ŠČ ˆ Š5Č ŠEČ Č ŠČ Č ŠČ ˆ N*žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¢NNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNCN@NN^Nu i= x= ch1=Main: @4@>’¦/Hz¾?<?<’’N¹J­’źgNC/ n/(’ü?<N¹J­’źgNC/HzŠ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@/-’¦/HzP?<?<’’N¹J­’źgNC/-’ē?<N¹J­’źgNCN¹J­’źgNCN@N^.ŸNu żķžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž~įNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNNž”””ūŠ%Č ŠČ ˆŠ QČ Č ŠČ ˆ Š5Č ŠEČ pa°-’ēfīN@)|x’ēN@*/-’¦Hzš?< ?<’’N¹J­’źgNCN@+/-’¦/Hz¾?<?<’’N¹J­’źgNC/ n/(’ō?<N¹J­’źgNC/HzŠ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@,/-’¦/HzP?<?<’’N¹&žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‘*NNNNNNNNNNNNNNNNNNNNNN”””ūi= x= ch1=Level 2b: LEVEL_3NAN@ np°Ø’ōoüN@!/-’¦Hz?< ?<’’N¹J­’źgNCN@"/-’¦/HzŠ?<?<’’N¹J­’źgNC/ n/(’ō?<N¹J­’źgNC/Hzœ?<?<’’N¹J­’źgNC n/(’ų?<N¹J­’źgNCN@#/-’¦/Hzb?<?<’’N¹J­’źgNC/-’ē?<óNžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žnßNNNNNNNNNNNNNNNNNNNNNN”””ū®?<?<’’N¹J­’źgNC/-’ē?<N¹J­’źgNCN¹J­’źgNCN@4-|’ōN@4-|’ųN@4-|’üN@5/NŗüŗN@6-|’ōN@6-|’ųN@6-|’üN@7/.NŗūtN@8N^.ŸNu i= x= ch1=Level 2a: ;LEVEL_1NA’ōN@;B®’üN@;B®’ųN@;B®’ōN@ˆˆˆ ˆ ˆ.ˆˆˆrˆ„ˆˆ6ˆˆˆ ˆVˆˆˆ"ˆHˆ$ˆ ˆTˆvˆˆ`ˆDˆ ˆLˆ ˆģˆ"ˆ"ˆˆšˆ&ˆˆˆˆˆˆˆˆ€ˆˆ6ˆˆˆˆˆˆˆˆˆˆ^ˆ"ˆdˆHˆ4CĀžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž]īNNNNNNNNNNNNNNNNNNNNNN”””ūJ­’źgNCN@=/-’¦/HzČ?<?<’’N¹J­’źgNC//.’ü?<N¹J­’źgNC/Hz˜?<?<’’N¹J­’źgNC/.’ų?<N¹J­’źgNCN@>/-’¦/Hzb?<?<’’N¹J­’źgNC/-’ē?<N¹J­’źgNCN¹J­’źgNCN@?/NŗśDN@@/NŗżŒN@AN^Nu i= x= ch1=Level 1: DXYZ1žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž +²NNNNNNNNNNNNNNNNNNNNNN”””ūČ Š SYSGLOBALS FS_FWRITEPAOC FS_FWRITEINT FS_FWRITECHAR FS_FWRITELNMFS_FWRITEREALČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ˆ&ˆČ ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ČB ŠČ Č ŠvžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž÷HNNNNNNNNNNNNNNNNNNNNNN”””ūˆˆˆ6ˆˆˆ.ˆ ˆ<ˆ<ˆPˆŌ‰ ˆˆÉŠ9Č 9ČD9Č9Č9Čŗ9Č 9Č 9Č9Č9ˆžˆ<ˆfˆˆˆNˆˆˆčˆÖˆˆ˜ˆ$ˆˆˆ‰Bˆ ˆ\ˆ0‰ˆ6ˆˆ@ˆ~ˆ8ˆ$ˆœˆ ˆ<ˆœˆ"ˆˆ Č 9Č 9Č9Č9Č9ˆDˆĄˆ,ˆ$ˆ‰jˆˆˆˆˆˆˆˆ"ˆˆˆˆˆˆˆ ˆˆˆˆˆ‚ˆ ˆ6ˆˆ&ˆˆPˆŌˆVˆvˆNˆˆˆ$ˆJˆˆˆˆ(ˆ¼žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž½NNNNNNNNNNNNNNNNNNNNNNž”””ūNVN@D+| ’üN@ELŗH­’šN@ELŗ H­’čN@F|a’ēN@F|b’ęN@G/-’¦HzŠ?< ?<’’N¹J­’źgNCN@H/-’¦/Hzž?<?<’’N¹J­’źgNC//-’ü?<N¹J­’źgNC/Hzn?<?<’’N¹J­’źgNCHm’š?<?<N¹J­’źgNCN@I/-’¦/Hz4?<?<’’N¹J­’źgNC/-:žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ƒNNNNNNNNNNNNNNNNNNNNNN”””ūČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ȶ ŠČ Č ŠČ Š%Č ŠČ Š%Č Č ŠČ ˆ Š5Č ŠEČ ˆRˆˆˆ ˆ Č ŠČ Č ŠČ ˆ Š%Č ŠČ ˆŠ QČ Č ŠČ ˆ Š5Č ŠEČ Č ŠČ Č ŠČ ˆ N*žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žN¼NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNÓNNNNNNN¦€‚}ƒé„T†Ą‡,‰˜ŠŒnŁŽE±‘“‰”õ•`—NNNNNNNNNNNNNNNNNNNNNNN”””žõNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž )łNNNNNNNNNNNNNNNNNNNNNNž”””ūAMMODULE__BASE SRMDAMMODULE SRMDAMMODULE_ALLCAPABILITIES SRMDAMMODULE_CONSTPASSARRAY SRMDAMMODULE_NOCAPABILITIES SRMDAMMODULE_SRMDAM SRMDAMMODULE_SRMDAMINIT SRMDAMMODULE_SRMDAMMODULE SRMDAMMODULE__BASE SRM_AREYOUALIVEPACK SRM_CATPACK SRM_CATPASSPACK SRM_CH«ßžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž_„NNNNNNNNNNNNNNNNNNNNNN”””ūMFS MINI MISC MSYSFLAGS PRTDVR RAND RANDOM RELOCATE RESETX REVASM_MOD RND SEGMENTER SERIAL_0 SERIAL_3 SETUPSYS SRM SRM SRMAMMODULE SRMDAMMODULE STACKFUDGE STBSY STCLR SWAP8 SWAPK SYSDEVICES SYSDEVS SYSGLOBALS TAPEBUF TESTDMA TIMED_OUT TIMEREXISTS UCSDMODULšžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĘ2NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž °nNNNNNNNNNNNNNNNNNNNNNN”””ūANGEPROTECTPACK SRM_CHANGEVOLPACK SRM_CLOSEPACK SRM_COPYPACK SRM_CREATELINKPACK SRM_CREATEPACK SRM_EXCHANGEPACK SRM_FILEINFOPACK SRM_GANGCLEANPACK SRM_LOCKPACK SRM_OPENPACK SRM_PACKETIN SRM_PACKETOUT SRM_POSPACK SRM_PURGEPACK SRM_RESETCARD SRM_SENDREADPACKõ›žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žl”NNNNNNNNNNNNNNNNNNNNNN”””ūE UIO WAIT_TFR ASM_ALLOCATE SEGMENTER SEGMENTER_CALL_SEGMENT SEGMENTER_CALL_SEGMENT_PROC SEGMENTER_EXISTS_PROC SEGMENTER_FIND_PROC SEGMENTER_INIT_SEGMENTER SEGMENTER_LOAD_HEAP_SEGMENT SEGMENTER_LOAD_SEGMENT SEGMENTER_SEGMENTER SEGMENTER_SEGMENT_SPACE SEGME äžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž“aNNNNNNNNNNNNNNNNNNNNNN”””ū A804XDVR A804XINIT ABORT_IO ALLREALSTUFF ALPHAFLAG ALPHALIST AMIGODVR AMIGOINIT ASM BKGND BOOT BOOTDAMMODULE BUBBLE BUBBLES BUB_DVR CHECK_TFR CHECK_TIMER CI CMD CONVERT_TEXT CS80 CS80DSR CS80DVR CS80INIT CS80_CHAN_INDEP_CLR CSAMIGO DELAY_TIMER DGL_AUTL D¤2žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ƒ_NNNNNNNNNNNNNNNNNNNNNN”””ū SRM_SENDWRITEPACK SRM_SETCOPYTIMEOUT SRM_SETDEFAULTTIMEOUT SRM_SETEOFPACK SRM_SETWAITFORLOCKTIMEOUT SRM_SRM SRM_SRM_INIT SRM_UNLOCKPACK SRM_VOLPACK SRM__BASE GENERAL_1 GENERAL_1_GENERAL_1 GENERAL_1_IOINITIALIZE GENERAL_1_IORESET GENERAL_1_IOUNINITIALIZE JŗžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž|ŖNNNNNNNNNNNNNNNNNNNNNN”””ūNTER_UNLOAD_ALL SEGMENTER_UNLOAD_SEGMENT SEGMENTER__BASE EDRIVER EDRIVER_EBRATE EDRIVER_EDRIVER EDRIVER_EGETINFO EDRIVER_EINIT EDRIVER_EPROG EDRIVER__BASE BUBBLE BUBBLES BUBBLES_BUBBLES BUBBLES__BASE BUBBLE_BUBBLE BUBBLE_BUB_INIT BUBBLE_BUB_ISR BUBBLE_BUB_éžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž PNNNNNNNNNNNNNNNNNNNNNN”””ūGL_CONFG_IN DGL_CONFG_OUT DGL_GEN DGL_HPGL DGL_HPGLI DGL_IBODY DGL_INQ DGL_KNOB DGL_LIB DGL_POLY DGL_RASTER DGL_TOOLS DGL_TYPES DGL_VARS DISCHPIB DMA_STBSY DROPDMA DRVASM EDRIVER EPROMS ERR_INFO EVALGVR EXCP F9885DVR F9885INIT FGATOR FLTPTHDW FS GENERAL_0 鍞NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÖ NNNNNNNNNNNNNNNNNNNNNN”””ūGENERAL_1_READCHAR GENERAL_1_READWORD GENERAL_1_SET_TIMEOUT GENERAL_1_WRITECHAR GENERAL_1_WRITEWORD GENERAL_1__BASE HPIB_1 HPIB_1_ACTIVE_CONTROLLER HPIB_1_ADDR_TO_LISTEN HPIB_1_ADDR_TO_TALK HPIB_1_END_SET HPIB_1_HPIB_1 HPIB_1_MY_ADDRESS HPIB_1_SEND_COMMANDĶ®žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž O›NNNNNNNNNNNNNNNNNNNNNN”””ūTM BUBBLE__BASE BUB_DVR_BUBDOISR BUB_DVR_BUBDOREAD BUB_DVR_BUBDORESET BUB_DVR_BUBDOWRITE BUB_DVR_BUBGETINFO BUB_DVR_BUB_DVR EPROMS EPROMS_EPROMS EPROMS_EPROM_TM EPROMS__BASE INST_EPROM INST_EPROM_INST_EPROM INST_EPROM__BASE F9885DVR F9885DVR_F9885DVR :WžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž9ĒNNNNNNNNNNNNNNNNNNNNNN”””ūGENERAL_1 GENERAL_2 GENERAL_3 GENERAL_4 GETDMA GLE_ARAS_OUT GLE_ASCLIP GLE_ASTEXT GLE_AUTL GLE_FILE_IO GLE_GEN GLE_HPGL_IN GLE_HPGL_OUT GLE_HPIB_IO GLE_KNOB_IN GLE_RAS_OUT GLE_SCLIP GLE_SMARK GLE_STEXT GLE_TYPES GLE_UTLS GP GRAPHICSBASE GRAPHICSFLAG G_DOLLĢģžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žå=NNNNNNNNNNNNNNNNNNNNNN”””ū HPIB_1_SET_TO_LISTEN HPIB_1_SET_TO_TALK HPIB_1_SYSTEM_CONTROLLER HPIB_1__BASE GENERAL_2 GENERAL_2_GENERAL_2 GENERAL_2_READNUMBER GENERAL_2_READNUMBERLN GENERAL_2_READSTRING GENERAL_2_READSTRING_UNTIL GENERAL_2_READUNTIL GENERAL_2_SKIPFOR GENERAL_2_WRITENUÖžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ČNNNNNNNNNNNNNNNNNNNNNN”””ūF9885DVR_F9885IO F9885DVR__BASE F9885INIT F9885INIT_F9885INIT F9885INIT__BASE GP_GP GP_GPIOCLEAR GP_GPIODMAIN GP_GPIODMAOUT GP_GPIOWORDIN GP_GPIOWORDOUT INIT_SRM INIT_SRM_INIT_SRM INIT_SRM__BASE SRM SRMAMMODULE SRMAMMODULE_SRMAM SRMAMMODULE_SRMAMMODULE SRMųUžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž öNNNNNNNNNNNNNNNNNNNNNN”””ūAR HPIB_0 HPIB_1 HPIB_2 HPIB_3 HPM HV50 HV52 INITLOAD INITUNITS INIT_BKGND INIT_SRM INIT_TIMER INSTALL_UCSD_DAM INSTLIFDAM INST_EPROM IOCOMASM IODECLARATIONS IOLIBRARY_KERNEL ISR ITXFR LDR LIFMODULE LOADER LOCKMODULE LOGEOT LOGINT M68KTYPE MATCHDEFEXT č;žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÕ`NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNN¦€‚}ƒč„T†æ‡*‰–ŠŒnŁŽDÆ‘“†”ņ•^—NNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNN”””ūGLE_SOFT_SET_MARKER GLE_SMARK__BASE GLE_SCLIP GLE_SCLIP_GLE_SCLIP GLE_SCLIP_GLE_SOFT_CLIP_LIMITS GLE_SCLIP__BASE GLE_ASCLIP_CLIPPING GLE_ASCLIP_GLE_ASCLIP GLE_ASCLIP_GLE_SOFT_CLIP_DRAW GLE_ASCLIP_GLE_SOFT_CLIP_MOVE GLE_FILE_IO GLE_FILE_IO_FILE_INIT GLE_FIL ŲžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÖäNNNNNNNNNNNNNNNNNNNNNN”””ū_2_PASS_CONTROL HPIB_2_PPOLL_CONFIGURE HPIB_2_PPOLL_UNCONFIGURE HPIB_2_REMOTE HPIB_2_SECONDARY HPIB_2_TALK HPIB_2_TRIGGER HPIB_2_UNLISTEN HPIB_2_UNTALK HPIB_2__BASE HPIB_3 HPIB_3_HPIB_3 HPIB_3_LISTENER HPIB_3_LOCKED_OUT HPIB_3_PPOLL HPIB_3_REMOTED HPIB_3_RūžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž øNNNNNNNNNNNNNNNNNNNNNN”””ūGLE_GEN_GLE_CLIP_LIMITS GLE_GEN_GLE_CURSOR GLE_GEN_GLE_DEFINE_COLOR_MAP GLE_GEN_GLE_DEFINE_DRAWING_MODE GLE_GEN_GLE_DRAW GLE_GEN_GLE_FILL_INDEX_COLOR GLE_GEN_GLE_FLUSH_BUFFER GLE_GEN_GLE_GEN GLE_GEN_GLE_GET_COLOR_MAP GLE_GEN_GLE_GET_P1P2 GLE_GEN_GLE_GET_PO’5žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 9/NNNNNNNNNNNNNNNNNNNNNN”””ūE_IO_FILE_INQ_TIMEOUT GLE_FILE_IO_FILE_SET_TIMEOUT GLE_FILE_IO_FILE_TERM GLE_FILE_IO_FILE_WRITE GLE_FILE_IO_GLE_FILE_IO GLE_FILE_IO__BASE GLE_HPIB_IO GLE_HPIB_IO_GLE_HPIB_IO GLE_HPIB_IO_HPIB_INIT GLE_HPIB_IO_HPIB_INQ_TIMEOUT GLE_HPIB_IO_HPIB_READ !DžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žOsNNNNNNNNNNNNNNNNNNNNNN”””ūEQUESTED HPIB_3_REQUEST_SERVICE HPIB_3_SPOLL HPIB_3_TALKER HPIB_3__BASE SERIAL_0 SERIAL_0_CLEAR_SERIAL SERIAL_0_SERIAL_0 SERIAL_0_SERIAL_LINE SERIAL_0_SET_SERIAL SERIAL_0__BASE SERIAL_3 SERIAL_3_ABORT_SERIAL SERIAL_3_SEND_BREAK SERIAL_3_SERIAL_3 SERIAL_3_SoežNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž“‰NNNNNNNNNNNNNNNNNNNNNN”””ūLYGON_INFO GLE_GEN_GLE_GET_RASTER GLE_GEN_GLE_GLOAD GLE_GEN_GLE_GRAPHICS_ON_OFF GLE_GEN_GLE_GSTORE GLE_GEN_GLE_INDEX_COLOR GLE_GEN_GLE_INIT_GCB GLE_GEN_GLE_LINESTYLE GLE_GEN_GLE_LINEWIDTH GLE_GEN_GLE_MARKER GLE_GEN_GLE_MARKER_SIZE GLE_GEN_GLE_MOVE GLE_GEN_pIžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž l|NNNNNNNNNNNNNNNNNNNNNN”””ūGLE_HPIB_IO_HPIB_SET_TIMEOUT GLE_HPIB_IO_HPIB_TERM GLE_HPIB_IO_HPIB_WRITE GLE_HPIB_IO__BASE GLE_HPGL_OUT GLE_HPGL_OUT_GLE_HPGL_OUT GLE_HPGL_OUT_GLE_INIT_HPGL_OUTPUT GLE_HPGL_OUT__BASE GLE_HPGL_IN GLE_HPGL_IN_GLE_HPGL_IN GLE_HPGL_IN_GLE_INIT_HPGL_INPUT GLE_lŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž|BNNNNNNNNNNNNNNNNNNNNNN”””ūET_BAUD_RATE SERIAL_3_SET_CHAR_LENGTH SERIAL_3_SET_PARITY SERIAL_3_SET_STOP_BITS SERIAL_3__BASE GLE_AUTL_GLE_AUTL GLE_AUTL_GLE_IAND GLE_AUTL_GLE_IOR GLE_AUTL_GLE_ISHIFT GLE_UTLS GLE_UTLS_GLE_COPY_TO_STRING GLE_UTLS_GLE_MATCH GLE_UTLS_GLE_READ_INTEGER EžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žƒ·NNNNNNNNNNNNNNNNNNNNNN”””ūMBER GENERAL_2_WRITENUMBERLN GENERAL_2_WRITESTRING GENERAL_2_WRITESTRINGLN GENERAL_2__BASE GENERAL_3 GENERAL_3_GENERAL_3 GENERAL_3_IOERROR_MESSAGE GENERAL_3__BASE GENERAL_4 GENERAL_4_ABORT_TRANSFER GENERAL_4_BUFFER_BUSY GENERAL_4_BUFFER_DATA GENERAL_4_BUFF¼ÆžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž _MNNNNNNNNNNNNNNNNNNNNNN”””ūHPGL_IN__BASE GLE_RAS_OUT GLE_RAS_OUT_GATOR_CLEAR GLE_RAS_OUT_GLE_INIT_RASTER_OUTPUT GLE_RAS_OUT_GLE_RAS_OUT GLE_RAS_OUT__BASE FGATOR GLE_ARAS_OUT_GLE_ARAS_OUT GLE_ARAS_OUT_RAWAIT_BLANKING GLE_ARAS_OUT_RCLEAR GLE_ARAS_OUT_RCURSOR GLE_ARAS_OUT_RDEFINE_DRAWI‚<žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)NNNNNNNNNNNNNNNNNNNNNN”””ūGLE_UTLS_GLE_SHORTINT_MAX GLE_UTLS_GLE_SHORTINT_MIN GLE_UTLS_GLE_UTLS GLE_UTLS_GLE_WRITE_INTEGER GLE_UTLS__BASE GLE_TYPES GLE_TYPES_GLE_TYPES GLE_TYPES__BASE GLE_GLE_STROKE_TABLE GLE_STEXT GLE_STEXT_GLE_SOFT_CHAR_SIZE GLE_STEXT_GLE_SOFT_TEXT_DIR GLE_STEXT_ QžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž°†NNNNNNNNNNNNNNNNNNNNNN”””ūER_RESET GENERAL_4_BUFFER_SPACE GENERAL_4_GENERAL_4 GENERAL_4_IOBUFFER GENERAL_4_ISC_BUSY GENERAL_4_READBUFFER GENERAL_4_READBUFFER_STRING GENERAL_4_TRANSFER GENERAL_4_TRANSFER_END GENERAL_4_TRANSFER_SETUP GENERAL_4_TRANSFER_UNTIL GENERAL_4_TRANSFER_WORD čžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĘŚNNNNNNNNNNNNNNNNNNNNNN”””ūNG_MODE GLE_ARAS_OUT_RDRAW GLE_ARAS_OUT_RFILL_INDEX_COLOR GLE_ARAS_OUT_RGCBINIT GLE_ARAS_OUT_RGET_P1P2 GLE_ARAS_OUT_RGET_RASTER GLE_ARAS_OUT_RGRAPHICS_ON_OFF GLE_ARAS_OUT_RLINESTYLE GLE_ARAS_OUT_RMOVE GLE_ARAS_OUT_RPOLYGON GLE_ARAS_OUT_RSET_COLOR GLE_ARAS_µŅžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNN”””ūGLE_SOFT_TEXT_JUST GLE_STEXT_GLE_SOFT_TEXT_SPACING GLE_STEXT_GLE_STEXT GLE_STEXT_GLE_TEXT_XFORM GLE_STEXT__BASE GLE_ASTEXT_GLE_ASTEXT GLE_ASTEXT_GLE_SOFT_TEXT GLE_SMARK GLE_SMARK_GLE_SMARK GLE_SMARK_GLE_SOFT_MARKER GLE_SMARK_GLE_SOFT_MARKER_SIZE GLE_SMARK_Å;žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žåÕNNNNNNNNNNNNNNNNNNNNNNž”””ūGENERAL_4_WRITEBUFFER GENERAL_4_WRITEBUFFER_STRING GENERAL_4__BASE HPIB_0 HPIB_0_CLEAR_HPIB HPIB_0_HPIB_0 HPIB_0_HPIB_LINE HPIB_0_SET_HPIB HPIB_0__BASE HPIB_2 HPIB_2_ABORT_HPIB HPIB_2_CLEAR HPIB_2_HPIB_2 HPIB_2_LISTEN HPIB_2_LOCAL HPIB_2_LOCAL_LOCKOUT HPIB!žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž õėNNNNNNNNNNNNNNNNNNNNNN”””ūOUT_SET_6845S GLE_ARAS_OUT_STORE_DIT HV50 HV52 GLE_KNOB_IN GLE_KNOB_IN_GLE_INIT_KNOB_INPUT GLE_KNOB_IN_GLE_KNOB_IN GLE_KNOB_IN__BASE GLE_GEN GLE_GEN_GLE_AWAIT_BLANKING GLE_GEN_GLE_BUFFER_MODE GLE_GEN_GLE_CHAR_SIZE GLE_GEN_GLE_CLEAR :öžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž£ŌNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚}ƒč„T†æ‡*‰–ŠŒnŚŽE°‘“‡”ó•_—NNNNNNNNNNNNNNNNNNNNNNN”””žWYNNNNNNNNNNNNNNNNNNNNNN”””ūGLE_OUTPUT_ESCAPEI GLE_GEN_GLE_OUTPUT_ESCAPEO GLE_GEN_GLE_POLYGON GLE_GEN_GLE_SET_MARKER GLE_GEN_GLE_TERM GLE_GEN_GLE_TEXT GLE_GEN_GLE_TEXT_DIR GLE_GEN_GLE_TEXT_JUST GLE_GEN_GLE_TEXT_SPACING GLE_GEN__BASE GLE_GENI GLE_GENI_GLE_GENI GLE_GENI_GLE_GET_DIGITIZ²1žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ‹£NNNNNNNNNNNNNNNNNNNNNN”””ū DGL_POLY__BASE DGL_INQ DGL_INQ_DGL_INQ DGL_INQ_INQ_COLOR_TABLE DGL_INQ_INQ_PGN_TABLE DGL_INQ_INQ_WS DGL_INQ__BASE REVASM_MOD REVASM_MOD_REVASM REVASM_MOD_REVASM_MOD REVASM_MOD__BASE RAND RANDOM RND_RAND RND_RANDOM RND_RND HPM HPM_DISPOSE HPM_HESTABLISH HPįžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žż’NNNNNNNNNNNNNNNNNNNNNN”””ūDGL_CONFG_OUT__BASE DGL_KNOB DGL_KNOB_DGL_KNOB DGL_KNOB_DGL_KNOB_INIT DGL_KNOB__BASE DGL_HPGLI DGL_HPGLI_DGL_HPGLI DGL_HPGLI_DGL_HPGLI_INIT DGL_HPGLI__BASE DGL_CONFG_IN DGL_CONFG_IN_CONFIGURE_INPUT_GLE DGL_CONFG_IN_DGL_CONFG_IN DGL_CONFG_IN__BASE DGL_LIB DObžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ždhNNNNNNNNNNNNNNNNNNNNNN”””ūE GLE_GENI_GLE_GET_INPUT_P1P2 GLE_GENI_GLE_INIT_INPUT_GCB GLE_GENI_GLE_INPUT_ECHO GLE_GENI_GLE_INPUT_ESCAPEI GLE_GENI_GLE_INPUT_ESCAPEO GLE_GENI_GLE_INPUT_TERM GLE_GENI_GLE_SAMPLE GLE_GENI_GLE_START_DIGITIZE GLE_GENI__BASE DGL_TYPES DGL_TYPES_DGL_TYPES ’מĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 4NNNNNNNNNNNNNNNNNNNNNN”””ūM_HPM HPM_MARK HPM_NEW HPM_RELEASE HPM__BASE UIO UIO_UIO UIO_UNITBUSY UIO_UNITCLEAR UIO_UNITREAD UIO_UNITWAIT UIO_UNITWRITE UIO__BASE LOCKMODULE LOCKMODULE_LOCK LOCKMODULE_LOCKMODULE LOCKMODULE_UNLOCK LOCKMODULE_WAITFORLOCK LOCKMODULE__BASE CI CI_1_1 CI_CHÓ]žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĪĪNNNNNNNNNNNNNNNNNNNNNN”””ūGL_LIB_AWAIT_LOCATOR DGL_LIB_CLEAR_DISPLAY DGL_LIB_CONVERT_WTODMM DGL_LIB_CONVERT_WTOLMM DGL_LIB_DGL_LIB DGL_LIB_DISPLAY_FINIT DGL_LIB_DISPLAY_INIT DGL_LIB_DISPLAY_TERM DGL_LIB_GRAPHICSERROR DGL_LIB_GRAPHICS_INIT DGL_LIB_GRAPHICS_TERM DGL_LIB_GTEXT DGL_LIBœžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1;NNNNNNNNNNNNNNNNNNNNNN”””ūDGL_TYPES__BASE DGL_VARS DGL_VARS_DGL_VARS DGL_VARS_INIT_DISPLAY_LIM DGL_VARS_INIT_LOCATOR_LIM DGL_VARS_INIT_VIEWPORT DGL_VARS_INIT_VIR_LIM DGL_VARS_INIT_WINDOW DGL_VARS_RASTER_PATTERNS DGL_VARS__BASE DGL_IBODY_DGL_IBODY DGL_AUTL_DGL_AUTL DGL_AUTL_DGL_SCAL™žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž !NNNNNNNNNNNNNNNNNNNNNN”””ūAIN CI_CI CI_CLEARLINE CI_CLEARSCREEN CI_GETCHAR CI_HOMECURSOR CI_MONTHS CI_PROMPT CI_STARTSTREAM CI_STREAMING CI_SYSTEMSTARTUP CI_UPPERCASE CI__BASE CMD CMD_CMD CMD__BASE ALPHAFLAG ASM_ADELEMENT ASM_CLOSEFILES ASM_DELETE ASM_IAND ASM_INITVECTS “<žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŽšNNNNNNNNNNNNNNNNNNNNNN”””ū_INPUT_ESC DGL_LIB_INT_LINE DGL_LIB_INT_MOVE DGL_LIB_INT_POLYLINE DGL_LIB_LINE DGL_LIB_LOCATOR_INIT DGL_LIB_LOCATOR_TERM DGL_LIB_MAKE_PIC_CURRENT DGL_LIB_MARKER DGL_LIB_MOVE DGL_LIB_OUTPUT_ESC DGL_LIB_POLYLINE DGL_LIB_SAMPLE_LOCATOR DGL_LIB_SET_ASPECT DGL_r›žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNN”””ūED_DRAW DGL_AUTL_DGL_SCALED_MOVE DGL_TOOLS DGL_TOOLS_DGL_TOOLS DGL_TOOLS_RETURN_MACHINE_TYPE DGL_TOOLS__BASE DGL_GEN DGL_GEN_ADJUST_RETURN_ECHO DGL_GEN_CALCULATE_VIEWING DGL_GEN_CK_DISPLAY_INIT DGL_GEN_CK_LOCATOR_INIT DGL_GEN_CK_SYSTEM_INIT DGL_GEN_CONVERTÕžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žtVNNNNNNNNNNNNNNNNNNNNNN”””ūASM_INSERT ASM_INTLEVEL ASM_IOR ASM_PSUBTOPSUB ASM_PSUBTOSSUB ASM_SAPPEND ASM_SCAN ASM_SCOPY ASM_SETASSIGN ASM_SETINTLEVEL ASM_SSUBTOPSUB ASM_SSUBTOSSUB ASM_STRLTRIM ASM_STRRPT ASM_STRRTRIM ASM_TICKER CHECK_TIMER DELAY_TIMER ERR_INFO EXCP_LINE EXCP_PC FLTP8 žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ķĮNNNNNNNNNNNNNNNNNNNNNN”””ūLIB_SET_CHAR_SIZE DGL_LIB_SET_COLOR DGL_LIB_SET_COLOR_MODEL DGL_LIB_SET_COLOR_TABLE DGL_LIB_SET_DISPLAY_LIM DGL_LIB_SET_ECHO_POS DGL_LIB_SET_LINE_STYLE DGL_LIB_SET_LINE_WIDTH DGL_LIB_SET_LOCATOR_LIM DGL_LIB_SET_TEXT_ROT DGL_LIB_SET_TIMING .ķžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž›NNNNNNNNNNNNNNNNNNNNNN”””ū_DTOW DGL_GEN_CONVERT_HSL_TO_RGB DGL_GEN_CONVERT_INTWTOD DGL_GEN_CONVERT_LTOD DGL_GEN_CONVERT_RGB_TO_HSL DGL_GEN_CONVERT_WTOD DGL_GEN_DGL_GEN DGL_GEN_DISPLAY_LIMITS DGL_GEN_ERROR DGL_GEN_LOCATOR_LIMITS DGL_GEN_MAX DGL_GEN_MIN DGL_GEN_OPCODE_CK DGL_GEN__BASHVžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žGgNNNNNNNNNNNNNNNNNNNNNN”””ūTHDW FS FS_BOOLTABLE FS_DOPREFIX FS_FANONFILE FS_FBLOCKIO FS_FBUFFERREF FS_FCLOSE FS_FCLOSEIT FS_FEOF FS_FEOLN FS_FGET FS_FGETXY FS_FGOTOXY FS_FHPOPEN FS_FHPRESET FS_FINDVOLUME FS_FINITB FS_FIXNAME FS_FMAKETYPE FS_FMAXPOS FS_FOVERFILE FS_FOVERPRINT FS_FPAGudžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ø’NNNNNNNNNNNNNNNNNNNNNN”””ūDGL_LIB_SET_VIEWPORT DGL_LIB_SET_WINDOW DGL_LIB__BASE DGL_POLY DGL_POLY_DGL_POLY DGL_POLY_INT_POLYGON DGL_POLY_INT_POLYGON_DD DGL_POLY_POLYGON DGL_POLY_POLYGON_DEV_DEP DGL_POLY_SET_PGN_COLOR DGL_POLY_SET_PGN_LS DGL_POLY_SET_PGN_STYLE DGL_POLY_SET_PGN_TABLEW½žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žجNNNNNNNNNNNNNNNNNNNNNN”””ūE DGL_RASTER DGL_RASTER_DGL_RASTER DGL_RASTER_DGL_RASTER_INIT DGL_RASTER_INIT_COLOR_TABLE DGL_RASTER__BASE DGL_HPGL DGL_HPGL_DGL_HPGL DGL_HPGL_DGL_HPGL_INIT DGL_HPGL__BASE DGL_CONFG_OUT DGL_CONFG_OUT_CONFIGURE_GLE DGL_CONFG_OUT_DGL_CONFG_OUT ‘1žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žw:NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNTNNNNNNNNNNNNN¦€‚~ƒé„U†Ą‡,‰—ŠŒoŚŽE±‘“‰”ō•_—NNNNNNNNNNNNNNNNNNNNNNN”””žØDNNNNNNNNNNNNNNNNNNNNNN”””ū_TRANSFER DISCHPIB_3UPON_TRANSFER_COMPLETE DISCHPIB_DISCHPIB DISCHPIB_HPIBAMIGO_CLEAR DISCHPIB_HPIBAMIGO_IDENTIFY DISCHPIB_HPIBCHECK_SC DISCHPIB_HPIBGET_AMIGO_IDENT DISCHPIB_HPIBSHORT_MSGE_IN DISCHPIB_HPIBSHORT_MSGE_OUT DISCHPIB_HPIBUPON_DXFR_COMP DISCHPIB©‹žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žt¾NNNNNNNNNNNNNNNNNNNNNN”””ūRCHANGE ISR_ISRLINK ISR_ISRUNLINK ISR_PERMISRLINK ISR__BASE LDR LDR_GO LDR_INITSYSUNIT LDR_LDR LDR_LOAD LDR_LOADROM LDR_LOCKFILES LDR_OPENFILES LDR_OPENLINKFILE LDR__BASE MISC MISC_1_1 MISC_GETIOERRMSG MISC_INITFILEKINDS MISC_LOCKDOWN MISC_LOCKUP MISC_MISC_±žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žāNNNNNNNNNNNNNNNNNNNNNN”””ūCS80_SET_UNIT CS80_SET_UNITVOL CS80_STATUS CS80__BASE TAPEBUF TAPEBUF_INIT_TAPEBUF TAPEBUF_TAPEBUF TAPEBUF__BASE ABORT_IO CHECK_TFR DMA_STBSY DROPDMA GENERAL_0 GENERAL_0_GENERAL_0 GENERAL_0_IOCONTROL GENERAL_0_IOREAD_BYTE GENERAL_0_IOREAD_WORD GENERAL_0_IO½¢žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ›uNNNNNNNNNNNNNNNNNNNNNN”””ū_HPIBUPON_PPOL_RESP DISCHPIB_HPIBWAIT_FOR_PPOL DISCHPIB_SIMON_DMA DISCHPIB_SIMON_NO_DMA DISCHPIB__BASE DRVASM_DRVASM DRVASM_EOR DRVASM_MOD_POWER_OF_2 DRVASM_SHIFTED_LEFT DRVASM_SHIFTED_RIGHT DRVASM_TEST_AND_TOGGLE INIT_BKGND INIT_BKGND_INIT_BKGND š˜žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žķ)NNNNNNNNNNNNNNNNNNNNNN”””ū MISC_PRINTERROR MISC_UEOVBYTES MISC_UNBLOCKEDDAM MISC_UPC MISC__BASE RESETX SETUPSYS SETUPSYS_SETUPSYS SETUPSYS__BASE SYSDEVICES SYSDEVICES_SYSDEVICES SYSDEVICES__BASE SYSDEVS SYSDEVS_BATBYTERECEIVED SYSDEVS_BATCOMMAND SYSDEVS_BEEP SYSDEVS_BEEPER SYSDEVS_”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1ÓNNNNNNNNNNNNNNNNNNNNNN”””ūSTATUS GENERAL_0_IOWRITE_BYTE GENERAL_0_IOWRITE_WORD GENERAL_0_IO_SYSTEM_RESET GENERAL_0_KERNEL_INITIALIZE GENERAL_0__BASE GETDMA IOCOMASM_BINAND IOCOMASM_BINCMP IOCOMASM_BINEOR IOCOMASM_BINIOR IOCOMASM_BIT_SET IOCOMASM_DMA_RELEASE IOCOMASM_DMA_REQUEST IOC”–žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ī&NNNNNNNNNNNNNNNNNNNNNN”””ūINIT_BKGND__BASE AMIGODVR AMIGODVR_1INITIAL_SEEK AMIGODVR_2ENTER_TRANSFER_CHAIN AMIGODVR_3ISSUE_TRANSFER_REQUEST AMIGODVR_4INITIATE_DATA_TRANSFER AMIGODVR_5UPON_DATA_TRANSFER_COMP AMIGODVR_6CHECK_DSJ AMIGODVR_AMIGODVR AMIGODVR_AMIGOIO AMIGODVR_GET_LETTER AOFžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŽNNNNNNNNNNNNNNNNNNNNNNž”””ūCRTIO SYSDEVS_DUMMYCRTLL SYSDEVS_KBDIO SYSDEVS_KBDSETUP SYSDEVS_KEYBUFOPS SYSDEVS_LOCKEDACTION SYSDEVS_RUNLIGHT SYSDEVS_SETRPGRATE SYSDEVS_SETRUNLIGHT SYSDEVS_SETSTATUS SYSDEVS_SETSYSDATE SYSDEVS_SETSYSTIME SYSDEVS_SYSCLOCK SYSDEVS_SYSDATE ±ųžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!ķNNNNNNNNNNNNNNNNNNNNNN”””ūE FS_FPOSITION FS_FPUT FS_FREAD FS_FREADBOOL FS_FREADBYTES FS_FREADCHAR FS_FREADENUM FS_FREADINT FS_FREADLN FS_FREADPAOC FS_FREADSTR FS_FREADSTRBOOL FS_FREADSTRCHAR FS_FREADSTRENUM FS_FREADSTRINT FS_FREADSTRPAOC FS_FREADSTRSTR FS_FREADSTRWORD FS_FREADWORD yųžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž żNNNNNNNNNNNNNNNNNNNNNN”””ūMIGODVR__BASE AMIGOINIT AMIGOINIT_AMIGOINIT AMIGOINIT__BASE CSAMIGO CSAMIGO_ADDR_RECORD CSAMIGO_CSAMIGO CSAMIGO_DECODED_ADDR CSAMIGO_DEVICE CSAMIGO_DSJ CSAMIGO_GET_MAP CSAMIGO_ISSUE_CMD CSAMIGO_LOGICAL_ADDR CSAMIGO_MI_CONTROLLER CSAMIGO_RECALIBRATE CSAMIGO7˜žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‹KNNNNNNNNNNNNNNNNNNNNNN”””ūSYSDEVS_SYSDEVS SYSDEVS_SYSDEV_INIT SYSDEVS_SYSTIME SYSDEVS__BASE A804XDVR A804XDVR_A804XDVR A804XDVR_CMD_READ_1 A804XDVR_INITA804X A804XDVR_SENDCMD A804XDVR_SENDDATA A804XDVR__BASE A804XINIT A804XINIT_A804XINIT A804XINIT__BASE PRTDVR PRTDVR_PRTDVR PRTDVR_DźžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÜNNNNNNNNNNNNNNNNNNNNNN”””ūFS_FS FS_FSEEK FS_FSTRIPNAME FS_FWRITE FS_FWRITEBOOL FS_FWRITEBYTES FS_FWRITECHAR FS_FWRITEENUM FS_FWRITEINT FS_FWRITELN FS_FWRITEPAOC FS_FWRITESTR FS_FWRITESTRBOOL FS_FWRITESTRCHAR FS_FWRITESTRENUM FS_FWRITESTRPAOC FS_FWRITESTRSTR FS_FWRITESTRWORD 9ĀžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž d€NNNNNNNNNNNNNNNNNNNNNN”””ū_RECORDS_PER_MEDIUM CSAMIGO_SEEK CSAMIGO_SET_FILE_MASK CSAMIGO_STATUS CSAMIGO_SURFACE_MODE CSAMIGO_SYNDROME CSAMIGO__BASE CS80 CS80DSR CS80DSR_CONFIGURE CS80DSR_CS80DSR CS80DSR_HANDLE_BAD_STATUS CS80DSR_INVALIDATE_STATEINFO CS80DSR__BASE CS80DVR CS80DVR_CSžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žøzNNNNNNNNNNNNNNNNNNNNNNž”””ūPRTIO PRTDVR__BASE BKGND BKGND_ABORT_BKGND_PROCESS BKGND_ALLOCATE_BKGND_INFO BKGND_BKGND BKGND_DEALLOCATE_BKGND_INFO BKGND_INITIALIZE_BKGND BKGND_IORESC_BKGND BKGND_UNIT_BUSY BKGND_UNIT_WAIT BKGND__BASE DISCHPIB DISCHPIB_1ENTER_BDX_CHAIN DISCHPIB_2INITIATE²¾žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žGNNNNNNNNNNNNNNNNNNNNNN”””ūFS_FWRITEWORD FS_KILLCHAR FS_NULLSTRING FS_SCANTITLE FS_SUFFIX FS_ZAPSPACES FS__BASE GRAPHICSBASE GRAPHICSFLAG INITUNITS INITUNITS_INITUNITS INITUNITS_NODAM INITUNITS_NOISR INITUNITS_NOUNIT INITUNITS_UNITIOINIT INITUNITS__BASE INIT_TIMER ISR ISR_ISR ISR_ISžFžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž W±NNNNNNNNNNNNNNNNNNNNNN”””ū80DVR CS80DVR_CS80IO CS80DVR_GET_LETTER CS80DVR_GET_PARMS CS80DVR__BASE CS80INIT CS80INIT_CS80INIT CS80INIT__BASE CS80_CHAN_INDEP_CLR CS80_CS80 CS80_DESCRIBE CS80_ICUVALC CS80_QSTAT CS80_RELEASE CS80_SET_OPTIONS CS80_SET_RELEASE CS80_SET_STATUS_MASK ĢPžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŽNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚|ƒē„R†¾‡*‰–ŠŒlŲŽCÆ‘“†”ņ•^—NNNNNNNNNNNNNNNNNNNNNNN”””žŗ1NNNNNNNNNNNNNNNNNNNNNN”””ūOMASM_IOCOMASM IODECLARATIONS IODECLARATIONS_IODECLARATIONS IODECLARATIONS_IO_ESCAPE IODECLARATIONS_IO_FIND_ISC IODECLARATIONS__BASE IOLIBRARY_KERNEL IOLIBRARY_KERNEL_IOLIBRARY_KERNEL IOLIBRARY_KERNEL__BASE ITXFR LOGEOT LOGINT STBSY STCLR TESTDMA TIMED_OUTÅžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž fĖNNNNNNNNNNNNNNNNNNNNNN”””ū {wait a few seconds}N call(maskopshook,KBDMASK+RESETMASK,0); {enable all keys} writeln('All keys restored');end. ’’isable all keys} writeln('All keys ignored'); N for i := 1 to 500000 do; E`žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž—NNNNNNNNNNNNNNNNNNNNNNž”””ūASM_NEWBYTES ASM_NEWWORDS ASM_POS ASM_POWERUP ASM_RMOVEL ASM_RMOVER ASM_UNION ASM_USERPROGRAM BOOTDAMMODULE BOOTDAMMODULE_BOOTDAM BOOTDAMMODULE_BOOTDAMMODULE BOOTDAMMODULE_BOOTNODE BOOTDAMMODULE_BOOTTM BOOTDAMMODULE_INITBOOTDAM BOOTDAMMODULE_SRMNODE BOOTDA¢zžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž‰NNNNNNNNNNNNNNNNNNNNNN”””ū TIMEREXISTS WAIT_TFR ALLREALSTUFF ALLREALSTUFF_ALLREALSTUFF ALLREALSTUFF__BASE ASM_ADDSETRANGE ASM_ARCTAN ASM_BCDROUND ASM_BCD_REAL ASM_BINARY ASM_COS ASM_EQ ASM_EXP ASM_FLOAT ASM_FLPT_ERROR ASM_FLPT_RESET ASM_GE ASM_GT ASM_HEX ASM_LE ASM_LN ASM_LT ŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ’\NNNNNNNNNNNNNNNNNNNNNNž”””ūprogram BEEP1;import SYSDEVS; var i: integer;begin + beep; {ring the bell} + for i := 0 to 9999 do; {delay tactic} * beep; {another bell}end.’’„W€CRT5A_____M„W€ŹKžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#¦NNNNNNNNNNNNNNNNNNNNNN”””ūMMODULE__BASE BOOT_FINDFILE BOOT_LIFHEAD BOOT_MFCLOSE BOOT_MFOPEN BOOT_MINIT BOOT_MREAD EVALGVR FS_FWRITESTRINT G_DOLLAR INITLOAD INITLOAD_INITLOAD INITLOAD_SYSPREFIX INITLOAD__BASE LOADER LOADER_CHECKREV LOADER_CLOSEFILES LOADER_COUNTCODE LOADER_GETBYTES žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÜSNNNNNNNNNNNNNNNNNNNNNN”””ūASM_NE ASM_OCTAL ASM_PACK ASM_RADD ASM_RDIV ASM_REAL_BCD ASM_RMUL ASM_ROUND ASM_RSUB ASM_SIN ASM_SQRT ASM_TRUNC ASM_UNPACK MFS MFS_FREADREAL MFS_FREADSTRREAL MFS_FWRITEREAL MFS_FWRITESTRREAL MFS_MFS MFS__BASE INSTALL_UCSD_DAM INSTALL_UCSD_DAM_INSTALL_UCSD_ŃIžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĢmNNNNNNNNNNNNNNNNNNNNNN”””ūprogram BEEPER1(output);import SYSDEVS; var f, z : integer;begin 1 for f := 63 downto 0 do {all frequencies} begin 0 beeper(f, 5); {short duration}0 writeln(round(f*81.4)); {show frequency}, for mžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž3˜NNNNNNNNNNNNNNNNNNNNNN”””ūLOADER_INITLOADER LOADER_LOADER LOADER_LOADINFO LOADER_LOADQ LOADER_LOADTEXT LOADER_MARKUSER LOADER_MATCHFILE LOADER_MOVEDEFS LOADER_OPENLINKF LOADER_RELEASEUSER LOADER_ZEROMEM LOADER__BASE M68KTYPE MATCHDEFEXT MINI MINI_IORESC MINI_IORVAL MINI_MINI MINI_MeŸžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žļbNNNNNNNNNNNNNNNNNNNNNN”””ūDAM INSTALL_UCSD_DAM__BASE SWAP8 SWAPK UCSDMODULE UCSDMODULE_1_1 UCSDMODULE_INIT_UCSD_DAM UCSDMODULE_UCSDMODULE UCSDMODULE_UCSD_DAM UCSDMODULE__BASE CONVERT_TEXT CONVERT_TEXT_1_1 CONVERT_TEXT_ANY_TO_UCSD CONVERT_TEXT_CONVERT_TEXT CONVERT_TEXT_UCSD_TO_ANY CÜ{žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž™>NNNNNNNNNNNNNNNNNNNNNN”””ūz := 1 to 9999 do; {wait a bit} end; end.’’ f, z : integer;begin 1 for f := 63 downto 0 do {all frequencies} begin 0 beeper(f, 5); {short duration}0 writeln(round(f*81.4)); {show frequency}, for žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ©NNNNNNNNNNNNNNNNNNNNNN”””ūINIIO MINI__BASE MSYSFLAGS RELOCATE STACKFUDGE SYSGLOBALS SYSGLOBALS_FSIDC SYSGLOBALS_SYSGLOBALS SYSGLOBALS__BASE āžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žvõNNNNNNNNNNNNNNNNNNNNNN”””ūONVERT_TEXT__BASE INSTLIFDAM INSTLIFDAM_INSTLIFDAM INSTLIFDAM__BASE LIFMODULE LIFMODULE_INSTALLLIFDAM LIFMODULE_LIFDAM LIFMODULE_LIFMODULE LIFMODULE__BASE ALPHALIST ASM_ASM ASM_ASSIGN ASM_CACHE_OFF ASM_CACHE_ON ASM_CI_SWITCH ASM_CPYMSG ASM_DIFFERENCE ASM_DI žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŖNNNNNNNNNNNNNNNNNNNNNN”””ūprogram BEEPER2;import SYSDEVS; var i : 0..255;  j : integer;begin % for i := 128 downto 1 do begin 6 beeper( i mod 64, 10); {all frequencies}5 for j := 1 to (128-i)*10 do; {strange delays}  ßńžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž UśNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program MASK1(input,output);import sysdevs; var  i : integer;begin N call(maskopshook,0,KBDMASK+RESETMASK); {disable all keys} writeln('All keys ignored'); N for i := 1 to 500000 do; 0ažĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žEÄNNNNNNNNNNNNNNNNNNNNNN”””ūIV ASM_EQUAL ASM_ERRMSG ASM_FASTMOVE ASM_FINDROMS ASM_FLPYINIT ASM_FLPYMREAD ASM_FLPYMWRITE ASM_FLPYREAD ASM_FLPY_WRT ASM_F_PWR_ON ASM_IN ASM_INCLUSION ASM_INTERSECT ASM_MEMAVAIL ASM_MOD ASM_MOVEL ASM_MOVELEFT ASM_MOVER ASM_MOVERIGHT ASM_MPY ASM_NEQUAL ų.žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žšRNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚~ƒź„U†Į‡,‰˜ŠŒoŚŽF±‘“‡”ó•^—NNNNNNNNNNNNNNNNNNNNNNN”””žE,NNNNNNNNNNNNNNNNNNNNNN”””ū {get the time from the clock} ( write('The current time is: ');K writeln(time.hour:2,':',time.minute:2,':',round(time.centisecond/100):2); writeln;C write('Enter the new time in the form: hh:mm:ss '); readln(tstr);  if strlen(tstr:AžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž™ÖNNNNNNNNNNNNNNNNNNNNNN”””ūstr : string[8]; i, days, months, years, ( hours, minutes, seconds : integer;begin 1 sysdate(date); {get the date from the clock} 1 systime(time); {get the time from the clock}   {plain} writeln('plain'); 9 writeln(date.dŲžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žļŠNNNNNNNNNNNNNNNNNNNNNN”””ū, CYCLICT, GETTINFO, tdata); 4 write('Resolution: ',tdata.resolution:0,' usec.');, write(' Range: ',tdata.range:0,' usec.');2 call(timeriohook, CYCLICT, READT, tdata); 2 writeln(' Count: ',tdata.count:0,' centisec.'); ! writeln('*o+žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž vNNNNNNNNNNNNNNNNNNNNNN”””ū) > 0 then begin try @ strread(tstr,1,i,hours,delimit,minutes,delimit,seconds); recover begin : writeln('Unrecognized time format. Try again.');9 writeln('For example, try typing: 12:34:56 '); H —žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žANNNNNNNNNNNNNNNNNNNNNN”””ūay:2,'-', date.month:2,'-', date.year:2); K writeln(time.hour:2,':',time.minute:2,':',round(time.centisecond/100):2);   {fancy} writeln('fancy');  days := date.day;  months := date.month;  years := century + date.year; : mtag := nul; for$µžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žÜ»NNNNNNNNNNNNNNNNNNNNNN”””ū** Delay timer ***'); 2 call(timeriohook, DELAYT, GETTINFO, tdata); 4 write('Resolution: ',tdata.resolution:0,' usec.');, write(' Range: ',tdata.range:0,' usec.');0 call(timeriohook, DELAYT, READT, tdata); 2 writeln(' Count: ',tdata.co³ĻžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž #NNNNNNNNNNNNNNNNNNNNNNN”””ū escape(0); {bail out} end; @ if (hours >= 0) and (minutes >= 0) and (seconds >= 0) thenB if (hours < 24) and (minutes < 60) and (seconds < 60) then begin  µXžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž3pNNNNNNNNNNNNNNNNNNNNNN”””ū i := 1 to months do mtag := succ(mtag);' writeln(days:2,' ',mtag,' ',years:4);  hours := time.hour;  minutes := time.minute; ) seconds := round(time.centisecond/100); < strwrite(timestr,1,i,hours:2,':',minutes:2,':',seconds:2);# for i := 1 tĪćžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĢ…NNNNNNNNNNNNNNNNNNNNNN”””ūend;end.’’EPER2;import SYSDEVS; var i : 0..255;  j : integer;begin % for i := 128 downto 1 do begin 6 beeper( i mod 64, 10); {all frequencies}5 for j := 1 to (128-i)*10 do; {strange delays}  z~žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž NNNNNNNNNNNNNNNNNNNNNN”””ū time.hour := hours; # time.minute := minutes; . time.centisecond := seconds * 100;M setsystime(time); {set the clock} end else1 writeln('Value too large. ŅĶžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žf#NNNNNNNNNNNNNNNNNNNNNN”””ūo strlen(timestr) do / if timestr[i] = ' ' then timestr[i] := '0';  writeln(timestr); end.’’ur;  minutes := time.minute; ) seconds := round(time.centisecond/100); < strwrite(timestr,1,i,hours:2,':',minutes:2,':',seconds:2);# for i := 1 téžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž’“NNNNNNNNNNNNNNNNNNNNNN”””ūprogram CLOCK1(output); import sysdevs; var quittime : integer; begin > quittime := sysclock + 500; {quit five seconds from now}# while sysclock < quittime do & write(#1,'Centiseconds: ',sysclock);end.’’M„W€Į³žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ‰čNNNNNNNNNNNNNNNNNNNNNN”””ū Try again.') else0 writeln('Value too small. Try again.'); end;end.’’seconds * 100;M setsystime(time); {set the clock} end else1 writeln('Value too large. 腾NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žUNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CLOCK3(input,output); import sysglobals, sysdevs; var time : timerec; tstr : string[255]; delimit : char; + i, hours, minutes, seconds : integer; begin K systime(time); U¢žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŖēNNNNNNNNNNNNNNNNNNNNNN”””ūprogram CLOCK2(output); import sysglobals, sysdevs; const century = 1900; Itype monthtype = (nul,Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec); var date : daterec; time : timerec; mtag : monthtype; timežYžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŗŁNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program TIMER1(output); import sysglobals, sysdevs; var  tdata : timerdata; D time : timerec; {type from SYSGLOBALS}begin {TIMER1 program}" writeln('*** Cyclic timer ***');3 call(timeriohook’GžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žģęNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNNNNNNNNNNNNN¦€‚}ƒé„U†Į‡,‰˜ŠŒoŪŽF²‘“ˆ”ō•`—NNNNNNNNNNNNNNNNNNNNNNN”””žØNNNNNNNNNNNNNNNNNNNNNN”””ūunt:0,' centisec.'); ! writeln('*** Match timer ***'); D call(timeriohook, MATCHT, GETTINFO, tdata); {set CYCLIC timer}4 write('Resolution: ',tdata.resolution:0,' usec.');, write(' Range: ',tdata.range:0,' usec.');C call(timeriohook, MATCžÜžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ARNNNNNNNNNNNNNNNNNNNNNN”””ū{clear DELAY timer} G call(timeriohook, MATCHT, SETT, tdata); {clear MATCH timer} end; {proc}  Dprocedure timehook(var statbyte, databyte: byte; var doit: boolean); var periodic, timer, cyclic, delay, matcŹžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž7NNNNNNNNNNNNNNNNNNNNNN”””ūverflow > 5999 then {too many seconds}  begin J overflow := minute + 1; {carry to next minute}H minute := overflow mod 60; {may carry to hours}F if overflow > Q²žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž®™NNNNNNNNNNNNNNNNNNNNNN”””ūHT, READT, tdata); {set CYCLIC timer} 1 write(' "HH:MM:SS" ',tdata.match.hour:0,':'); < write(tdata.match.minute:0,':',tdata.match.centisecond:0);end.’’n:0,' usec.');, write(' Range: ',tdata.range:0,' usec.');C call(timeriohook, MATCŅ/žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŲÅNNNNNNNNNNNNNNNNNNNNNN”””ūh : boolean; begin  {Interrupt Service Routine}D periodic := odd(statbyte div 16); {statbyte bit 4}D timer := odd(statbyte div 32); {statbyte bit 5} if periodic then L call(saveisrhook,statbyt+~žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?NNNNNNNNNNNNNNNNNNNNNN”””ū59 then {too many minutes} begin H overflow := hour + 1; {carry to next hour}K hour := overflow mod 24; {may carry to next day}  end; end;&[žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žūŹNNNNNNNNNNNNNNNNNNNNNNž”””ū $sysprog$ program TIMER2(output); %import sysglobals, a804xdvr, sysdevs; const  readintrmask = 4;var  intcount : integer; L tdata : timerdata; {type is from sysglobals}I saveisrhook : kbdhooktype; ĪśžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ėōNNNNNNNNNNNNNNNNNNNNNN”””ūe,databyte,doit); {pass it back to system}D cyclic := odd(databyte div 32); {bit 5 = cyclic}C delay := odd(databyte div 64); {bit 6 = delay} C match := odd(databyte div 128); {bit 7 = match} Ō1žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žNNNNNNNNNNNNNNNNNNNNNN”””ū end; {with} I call(timeriohook, MATCHT, SETT, tdata); {set the MATCH timer}  F {Next procedure is from A804XDVR and will save the interrupt mask}* cmd_read_1(readintrmask,saveoldmask);  G {Next line enables timer int:ķžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žČūNNNNNNNNNNNNNNNNNNNNNN”””ū {type is from sysdevs}  saveoldmask : byte;procedure set_timers;  var  overflow : integer;  begin D tdata.count := 100; {1.00 seconds} F call(timeriohook, CYCLICT, SETT, tdata); 1BžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¾§NNNNNNNNNNNNNNNNNNNNNN”””ūF intcount := intcount + 1; {count interrupts}E write(intcount:3,' ':3); {print the count} . if timer and cyclic then write('Cyclic ');. if timer and delay then write('Delay ');. if timer a”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž '0NNNNNNNNNNNNNNNNNNNNNN”””ūerrupts if they are currently disabled} B if odd(saveoldmask div 4) then call(MASKOPSHOOK, TIMERMASK,0); end; {proc} procedure clear_timers;  begin J {Next line disables timer interrupts if they were originally disabled}A if odd(saveoX5žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žQlNNNNNNNNNNNNNNNNNNNNNN”””ū {set CYCLIC timer} D tdata.count := 550; {5.50 seconds} E call(timeriohook, DELAYT, SETT, tdata); {set DELAY timer}  5 {push-ups to set the match timer to a future time} J systime(tdata.maĮžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž–NNNNNNNNNNNNNNNNNNNNNN”””ūnd match then write('Match '); writeln('interrupt.'); end; {proc} begin {TIMER2 program} tryF intcount := 0; {initialize count}I saveisrhook := timerisrhook; {save old timer hook} ČÅžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž rcNNNNNNNNNNNNNNNNNNNNNN”””ūldmask div 4) then call(MASKOPSHOOK,0,TIMERMASK);  F tdata.count := 0; {set data to zero}G call(timeriohook, CYCLICT, SETT, tdata); {clear CYCLE timer} G call(timeriohook, DELAYT, SETT, tdata); OˆžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žb]NNNNNNNNNNNNNNNNNNNNNN”””ūtch); {get the current time} with tdata.match do begin F overflow := centisecond + 950; {add 9.50 seconds}J centisecond := overflow mod 6000; {may carry to minutes}G if oŗižĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž½ĖNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNNNNNNNNNNNN¦€‚}ƒé„U†Ą‡,‰—ŠŒnŁŽE°‘“‡”ó•_—NNNNNNNNNNNNNNNNNNNNNNN”””žbµNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program TIMER4P(output);'import sysglobals, sysdevs, loader, fs; var fposx,fposy : integer; fconsole : file of char; M tdata : timerdata; {type is from sysglobals} J saveisrhook : kbdhooktyp²ŌžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¾ONNNNNNNNNNNNNNNNNNNNNNž”””ū $sysprog$ program TIMER3(output); import sysglobals, sysdevs; var  i : integer;J saveisrhook : kbdhooktype; {type is from sysdevs}Eprocedure ptimehook(var statbyte, databyte: byte; var doit: boolean);  begin 䀾ēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žČNNNNNNNNNNNNNNNNNNNNNN”””ū if fposx < 100 then K strwrite(tempstr,1,rval,fposy:2,',',fposx:2) {copy into string}  else H strwrite(tempstr,1,rval,fposy:2,fposx:3); {copy into string} for i := 1 to 5 doJ setstatus(i-1,temp"·žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Q„NNNNNNNNNNNNNNNNNNNNNNž”””ūe; {type is from sysdevs}procedure set_timer; begin J tdata.count := 10; {0.10 = 10 per second}F call(timeriohook, CYCLICT, SETT, tdata); {set CYCLIC timer}M call(MASKOPSHOOK, TIME {žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'ŲNNNNNNNNNNNNNNNNNNNNNN”””ū {Interrupt Service Routine}D if odd(statbyte div 16) then write('.'); {periodic timer} if odd(statbyte div 32) thenF call(saveisrhook, statbyte, databyte, doit); {some other timer} end; {proc} begin {TIMER3 program} tryØ<žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žū"NNNNNNNNNNNNNNNNNNNNNN”””ūstr[i]); {print it on screen} end; end;F {If doit is still true then pass the interrupt on to the next hook}H if doit then call(saveisrhook,statbyte,databyte,doit); {pass it on} end; {proc} begin {TIMER4P proŲšžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ×NNNNNNNNNNNNNNNNNNNNNN”””ūRMASK,0) {enable timer interrupts} end; {proc} procedure clear_timer; begin F tdata.count := 0; {set data to zero}G call(timeriohook, CYCLICT, SETT, tdata); {clear CYCLE timer} N „_žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žéNNNNNNNNNNNNNNNNNNNNNN”””ūI saveisrhook := timerisrhook; {save old timer hook} H timerisrhook := ptimehook; {use new timer hook}G call(maskopshook, PSIMASK, 0); {enable interrupts} J for i := 1 to 100000 do {nońbžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žėNNNNNNNNNNNNNNNNNNNNNN”””ūH timerisrhook := timehook; {use new timer hook}K set_timers; {set and enable timers}  writeln('Running');L repeat {nothing} until intcount > 14; {wait for 15 interrupts}Jq.žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 7ęNNNNNNNNNNNNNNNNNNNNNN”””ūcall (MASKOPSHOOK,0,TIMERMASK) {disable timer interrupts} end; {proc}  Eprocedure cyclehook(var statbyte, databyte: byte; var doit: boolean);  var i, rval : integer; tempstr : string[8]; begin  {Interrupt Service Ro,źžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAŗNNNNNNNNNNNNNNNNNNNNNN”””ūthing}; {wait for a few intr.}J escape(0); {invoke recover-block} recoverH call(maskopshook, 0, PSIMASK); {disable interrupts}F timerisrhook := saveisrhook; Ā÷žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŲ-NNNNNNNNNNNNNNNNNNNNNN”””ū escape(0); {invoke recover-block} recover beginN clear_timers; {clear and disable timers}F timerisrhook := saveisrhook; {restore old hook} wri’-žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ®qNNNNNNNNNNNNNNNNNNNNNN”””ūutine}K if odd(statbyte div 32) {timer} and odd(databyte div 32) {cyclic} then begin F if doit then {process interrupt only if doit is true} beginF doit := false; {processed her_ žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žr‹NNNNNNNNNNNNNNNNNNNNNNž”””ū {restore old hook}end.’’for a few intr.}J escape(0); {invoke recover-block} recoverH call(maskopshook, 0, PSIMASK); {disable interrupts}F timerisrhook := saveisrhook; DöžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž~NNNNNNNNNNNNNNNNNNNNNN”””ūteln('Stopped'); end; end.’’ {invoke recover-block} recover beginN clear_timers; {clear and disable timers}F timerisrhook := saveisrhook; {restore old hook} wri„ÅžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž @NNNNNNNNNNNNNNNNNNNNNN”””ūe}G fgetxy(OUTPUT, fposx, fposy); {get cursor pos.} B fposx := fposx + 1; {orgin at 1} fposy := fposy + 1; F tempstr := 'yy,xx'; {desired format} Ą¶žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žĖNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN§NNNNNNNNNNNNNNNNNN¦€‚}ƒč„T†Ą‡,‰—ŠŒnŚŽF²‘“Š”õ•a—NNNNNNNNNNNNNNNNNNNNNNN”””žpĄNNNNNNNNNNNNNNNNNNNNNN”””ūgram}  tryI saveisrhook := timerisrhook; {save old timer hook} H timerisrhook := cyclehook; {use new timer hook}K set_timer; {set and enable timers} & writeln('Cu?žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¬:NNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CRT5(input,output); import sysglobals, sysdevs, uio;var  i,j : shortint;  z : integer; c : char; begin > writeln('This program moves the cursor around the screen.');$ writeln('Press any key to stop.');M ‰žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŚfNNNNNNNNNNNNNNNNNNNNNN”””ūtroladdr:10); D write(keybufferaddr:10, progstateinfoaddr:10, keybuffersize:10); writeln;1 write('right left down up badc cdel stop'); 3 writeln(' brek flsh eof altm ldel bksp etx'); = write(ord(right):5, ord(left):5, ord(down):5, ‚KžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žCńNNNNNNNNNNNNNNNNNNNNNN”””ūrsor-display enabled.');F MARKUSER; {keep this around} recover beginN clear_timer; {clear and disable timers}F timerisrhook := saveisrhook; {resto7<žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 5­NNNNNNNNNNNNNNNNNNNNNN”””ūi := 1; j := 1; {initial increments} M while unitbusy(2) do {unitbusy is from UIO} {run until keypress} begin F if (xpos < 0) or (xpos >= syscom^.crtinfo.width) {too wide} N then iBžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žéWNNNNNNNNNNNNNNNNNNNNNN”””ūord(up):5); C write(ord(badch):5, ord(chardel):5, ord(stop):5, ord(break):5); D write(ord(flush):5, ord(eof):5, ord(altmode):5, ord(linedel):5);* writeln(ord(backspace):5, ord(etx):5); writeln;4 writeln(' Prefix Cursormask TŌžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¢NNNNNNNNNNNNNNNNNNNNNN”””ūre old hook} writeln('Crashed.');  end; end.’’ {keep this around} recover beginN clear_timer; {clear and disable timers}F timerisrhook := saveisrhook; {resto³ŌžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž œNNNNNNNNNNNNNNNNNNNNNN”””ū := -i; {change direction} F if (ypos < 0) or (ypos >= syscom^.crtinfo.height-1) {too high} N then j := -j; {change direction} M xpos := xpos + i; }QžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žłiNNNNNNNNNNNNNNNNNNNNNN”””ūSpare');* write(ord(prefix), cursormask, spare); end;end.’’rd(break):5); D write(ord(flush):5, ord(eof):5, ord(altmode):5, ord(linedel):5);* writeln(ord(backspace):5, ord(etx):5); writeln;4 writeln(' Prefix Cursormask 'žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%“NNNNNNNNNNNNNNNNNNNNNN”””ūprogram CRT1(input, output);import sysdevs; begin  writeln(currentcrt);end.’’CRT1A_____E„™'IA€CRT2A_____F„VT€CRT3A_____G„VW€CRT4A_____K„W€CRT5A_____M„W€9QžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žSĻNNNNNNNNNNNNNNNNNNNNNN”””ū {change x cursor position} M ypos := ypos + j; {change y cursor position} K call(updatecursorhook); {update cursor location} ? for z := 1 to 5000 do; {wait QžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŹXNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CRT4(output); import sysdevs; var z : integer; begin  with syscom^.crtinfo do begin & writeln(' Width Height');# writeln(width:10, height:10);  for z := 1 to 150000 do;7 height := pśžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¼NNNNNNNNNNNNNNNNNNNNNN”””ū $SYSPROG$ program CRT2; import sysdevs; begin # {If graphics is on, turn it off} 2 if graphicstate then call(togglegraphicshook); # {If alpha is not on, turn it on} 0 if not alphastate then call(togglealphahook);end.’’„W€z7žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž`žNNNNNNNNNNNNNNNNNNNNNNž”””ū a bit}  end;H read(c); {clear the keystroke}end.’’ y cursor position} K call(updatecursorhook); {update cursor location} ? for z := 1 to 5000 do; {waitøžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ÿ NNNNNNNNNNNNNNNNNNNNNN”””ū12; {set new value} 8 call(crtinithook); {change display} writeln;& writeln(' Width Height');# writeln(width:10, height:10);  end;end.’’ for z := 1 to 150000 do;7 height := ؛žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž5NNNNNNNNNNNNNNNNNNNNNN”””ūprogram CRT3(input, output);import sysdevs; begin  with syscom^.crtinfo do  begin 6 write(' Width Height Memaddr Control');. writeln(' Buffer Progstate Buflen');A write(width:10, height:10, crtmemaddr:10, crtconv.žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žP£NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN¦€‚}ƒč„S†¾‡*‰–ŠŒmŲŽDÆ‘“†”ņ•]—NNNNNNNNNNNNNNNNNNNNNNN”””žŻNNNNNNNNNNNNNNNNNNNNNN”””ūinfo do begin  w := width;  h := height;N trickrec.i := syscom^.crtinfo.crtmemaddr; {get screen address}N scrptr := trickrec.a; {point to screen} end;N savedumphook„yžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žS'NNNNNNNNNNNNNNNNNNNNNN”””ū {number of dumps counter}N w, h : integer; {display width & height}N scrptr : ^screen; {a pointer to a screen type}N trickrec : tricky; {used Õ]žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%{NNNNNNNNNNNNNNNNNNNNNN”””ūt line'); . llstr := 'Flashing messages get attention.'; for i := 1 to 16 do begin G call(crtllhook, CLLDISPLAY, llstr, ' '); {display the string}  for z := 1 to 15000 do; H call(crtllhook, CLLCLEAR, llpos, llchar); {cl®žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ¼ģNNNNNNNNNNNNNNNNNNNNNN”””ū := dumpalphahook; {save old hook}N dumpalphahook := dumpit; {install new hook} end; end; {module} "import loader, sysdevs, dump2file;begin initdump; markuser; writeln;<žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŹ°NNNNNNNNNNNNNNNNNNNNNN”””ūfor type coercion}N fn : string[16]; {string for the filename}N df : text; {dump-file variable}procedure dumpit;  var  i, j : integer;  s : string[255]; 7sžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žJNNNNNNNNNNNNNNNNNNNNNN”””ūear the last line} for z := 1 to 15000 do;  end; for z := 1 to 150000 do; ( writeln('Writing into the last line');3 llstr := 'This is the last line of the display.'; ! for i := 1 to strlen(llstr) do begin I call(crtllho:¼žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž éæNNNNNNNNNNNNNNNNNNNNNN”””ūB writeln('The dump-alpha-to-a-file utility has been installed.'); writeln;D writeln('When you press the dump-alpha key, the contents of the');B writeln('display will be sent to an ASCII file in the default');G writeln('directory. The files areܟžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žłNNNNNNNNNNNNNNNNNNNNNNž”””ūbegin N dcount := dcount + 1; {count times called}N strwrite(fn,1,i,':DUMP',DCOUNT:1,'.ASC'); {make filename} try N rewrite(df,fn); {open file}ÆyžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žtNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CRT6P(input,output);module dump2file; import sysglobals, sysdevs; exportvar N savedumphook : procedure; {a place to save the old dumpalpha hook}Nprocedure initdump; {ini‡śžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŚŽNNNNNNNNNNNNNNNNNNNNNN”””ū numbered (e.g. ''DUMP2.ASC'').'); end.’’y has been installed.'); writeln;D writeln('When you press the dump-alpha key, the contents of the');B writeln('display will be sent to an ASCII file in the default');G writeln('directory. The files areKōžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž¬ŅNNNNNNNNNNNNNNNNNNNNNN”””ū0 setstrlen(s,w); N for j := 0 to h-1 do {make a string for each CRT line} begin  for i := 0 to w-1 do begin 1 s[i+1] := scrptr^[i+j*w].character;  pažNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž5ENNNNNNNNNNNNNNNNNNNNNN”””ūtialization routine}Nprocedure dumpit; {new dumpalpha hook} implement typeN screen = packed array[0..maxint] of crtword; {alpha-screen is crtwords}N tricky = record case boolean of ßIžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž CNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CRT7(output); import sysdevs; type dispstr = string[80];  dispstrptr = ^dispstr;var  i, z : integer;  llchar : char; llpos : integer;  llstr : dispstr;  save_echo : boolean;begin N save_echo := kā³žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žŸćNNNNNNNNNNNNNNNNNNNNNNž”””ū end;N writeln(df,s); {write string to the dumpfile} end; close(df,'LOCK'); recover , writeln('*** Dump-Alpha failed. ***'); end;procedure initdump;  begin  with syscom^.crtAäžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž`NNNNNNNNNNNNNNNNNNNNNN”””ū {'magic' record that}M true : (i : integer); {can be an integer} G false: (a : anyptr); {or a pointer}  end;var N dcount : integer; ųPžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž p(NNNNNNNNNNNNNNNNNNNNNN”””ūeybuffer^.echo; {save echo state for later}J keybuffer^.echo := false; {don't echo type-ahead}H call(crtllhook, CLLCLEAR, llpos, llchar); {clear the last line} / writeln('Display a string in the las߬žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNJNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒź„V†Į‡,‰˜ŠŒoŚŽE°‘“‡”ó•_—NNNNNNNNNNNNNNNNNNNNNNNN”””ž žsNNNNNNNNNNNNNNNNNNNNNN”””ūok, CLLPUT, i, llstr[i]); {print each character}  for z := 1 to 15000 do;  end; for z := 1 to 150000 do; ' writeln('Moving text to the right.');  for i := 1 to 10 do begin G call(crtllhook, CLLSHIFTR, llpos, ' '); £QžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž "‰NNNNNNNNNNNNNNNNNNNNNN”””ūprogram CRT10(input, output); import sysdevs; var i, z : integer;  c : char; begin 6 c := runlight; {save value for later} for i := 32 to 127 do begin  setrunlight(chr(i)); for z := 1 to 1999 dpžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž TÕNNNNNNNNNNNNNNNNNNNNNN”””ūveecho : boolean;  savemenustate : menutype;  specialmenu : string80ptr; begin  savemode := kbdsysmode;  kbdsysmode := false; savemenustate := menustate;  menustate := m_none; saveecho := keybuffer^.echo; keybuffer^.echo := fal'ĪžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ĶBNNNNNNNNNNNNNNNNNNNNNN”””ū {dance to the right}  for z := 1 to 15000 do;  end; for z := 1 to 150000 do; & writeln('Moving text to the left.'); for i := 1 to 10 do begin F call(crtllhook, CLLSHIFTL, llpos, ' '); {dance to the left} EžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž »NNNNNNNNNNNNNNNNNNNNNN”””ūo; end;8 setrunlight(c); {restore runlight value}end.’’ c : char; begin 6 c := runlight; {save value for later} for i := 32 to 127 do begin  setrunlight(chr(i)); for z := 1 to 1999 dŒ¹žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž gäNNNNNNNNNNNNNNNNNNNNNN”””ūse; ? call(crtllhook,cllclear,dummyi,dummyc); {clear last line} A specialmenu := addr(spmenu); {point at the menu} 1 call(crtllhook,clldisplay,specialmenu^,dummyc);  writeln('Wow. A menu.'); for z := 1 to 250000 do; write( žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ˜NNNNNNNNNNNNNNNNNNNNNN”””ū for z := 1 to 15000 do;  end; for z := 1 to 150000 do; H call(crtllhook, CLLCLEAR, llpos, llchar); {clear the last line}$ writeln('Set some status bytes.'); for i := 1 to 5 do begin  llpos := i; llchar := ch”žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ˆ/NNNNNNNNNNNNNNNNNNNNNNž”””ū $sysprog$ program CRT11(input,output); import sysglobals, asm, sysdevs;type  dbstring = string[255];" tricky = record case boolean of) true : (i : integer); ) false : (a : anyptr);  é%žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž wŚNNNNNNNNNNNNNNNNNNNNNN”””ū#12); ? call(crtllhook,cllclear,dummyi,dummyc); {clear last line}  kbdsysmode := savemode;  {menustate := savemenustate;}  keybuffer^.echo := saveecho;end.’’enu^,dummyc);  writeln('Wow. A menu.'); for z := 1 to 250000 do; write(DēžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž « NNNNNNNNNNNNNNNNNNNNNN”””ūr(i+ord('0'));H call(crtllhook, PUTSTATUS, llpos, llchar); {do the status bytes} for z := 1 to 95000 do;  end; for z := 1 to 150000 do; ) writeln('Finished. Return to normal.'); H call(crtllhook, CLLCLEAR, llpos, llchar); ÄžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž Ż|NNNNNNNNNNNNNNNNNNNNNN”””ū end;var  i, w, h, z : integer; dbcx, dbcy : integer; dbs : dbstring; dbcrtinfo : dbcinfo;  trickrec : tricky; procedure debug_info;  begin N call(dbcrthook,DBINFO,dbcrtinfo); {request info} ż±žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž DėNNNNNNNNNNNNNNNNNNNNNN”””ūprogram CRT9(input, output);import sysdevs; var i, j, z : integer; c : char; begin  for i := 1 to 100 do begin  for j := 0 to 7 do begin  setstatus(j, '*'); for z := 1 to 1999 do; setstatué>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž 2·NNNNNNNNNNNNNNNNNNNNNN”””ū {clear the last line}8 for i := 1 to 5 do call(crtllhook, PUTSTATUS, i, ' ');G keybuffer^.echo := save_echo; {restore echo state} end.’’ writeln('Finished. Return to normal.'); H call(crtllhook, CLLCLEAR, llpos, llchar); ]ćžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž īMNNNNNNNNNNNNNNNNNNNNNNž”””ū with dbcrtinfo do beginN trickrec.a := savearea; {trick to print pointer value}1 write(' xmin xmax ymin ymax curx cury'); N if w < 80 then writeln; {small screen}A MŠžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž øNNNNNNNNNNNNNNNNNNNNNN”””ūs(j, ' '); end; end;end.’’rt sysdevs; var i, j, z : integer; c : char; begin  for i := 1 to 100 do begin  for j := 0 to 7 do begin  setstatus(j, '*'); for z := 1 to 1999 do; setstatuĄžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž †NNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program CRT8(input,output); import sysglobals, sysdevs; const  spmenu = string80M ['| f1 | f2 | f3 | f4 | | f5 | f6 | f7 | f8 |']; var  z,  dummyi : integer;  dummyc : char; savemode, sa\jžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž ŽNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒź„V†Į‡-‰™ŠŒoŚŽF±‘“‡”ņ•^—NNNNNNNNNNNNNNNNNNNNNNNN”””ž!nNNNNNNNNNNNNNNNNNNNNNNž”””ūcursor position} end;M dbcx := cursx; dbcy := cursy; {return the new position}  end; {with} end; {proc} begin  with syscom^.crtinfo do beginJ w := width; {display“!žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!Ż”NNNNNNNNNNNNNNNNNNNNNN”””ūe window} K call(dbcrthook,DBEXCG,dbcrtinfo); {save display contents}  end; {with} end; {proc} xmax then dbcx := xmax; {check boundrys}( if dbcx < xmin then dbcx := xmin;( if dbcy > ymax then dbcy := ymax;( if dbcy < ymin then dbcy := ²žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!˜łNNNNNNNNNNNNNNNNNNNNNN”””ūkbdata); {sets kbdconfig and kbdtype}0 writeln('Configuration byte = ', kbdconfig:3);+ writeln(' Keyboard language = ',kbdlang); + writeln(' Keyboard type = ',kbdtype); end.’’); {sets kbdlang}N call(kbdreqhook, SET_KBDTYPE, ½`žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž! g NNNNNNNNNNNNNNNNNNNNNN”””ū4 writeln(#1,#10,'Initial Conditions'); debug_info; open_dbwindow; 9 writeln(#10,'Debugger window parameters'); debug_info; - writeln(#10,'Writing into debug window.'); E dbcx := 0; dbcy := 0; {cursor position} MŹ"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!w2NNNNNNNNNNNNNNNNNNNNNN”””ū ymin;% cursx := dbcx; cursy := dbcy; @ call(dbcrthook,DBGOTOXY,dbcrtinfo); {set cursor}# for i := 1 to strlen(dbs) do  begin  c := dbs[i];N call(dbcrthook,DBPUT,dbcrtinfo); {priŒĘžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!ˆĒNNNNNNNNNNNNNNNNNNNNNN”””ū writeln(' savearea savesize dcuraddr',' areaisdbgcrt'); < write(xmin:5,xmax:5,ymin:5,ymax:5,cursx:5,cursy:5); if w < 80 then writeln;G writeln(trickrec.i:9,savesize:9,dcursoraddr:9,areaisdbcrt:13); end; end; {proctRžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž! T=NNNNNNNNNNNNNNNNNNNNNN”””ū for i := 1 to 200 do dbwrite(dbcx, dbcy, 'This is the Debugger window. ');  for z := 1 to 10000 do;< dbs := ''; dbcx := 0; dbcy := 22; dbwrite(dbcx,dbcy,dbs); for z := 1 to 100000 do; A beep; call(dbcrthook,dbscrollup,dbcrtinfo); šžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!"aNNNNNNNNNNNNNNNNNNNNNNž”””ūnt each character}N cursx := cursx + 1; {compute new cursor position}! if cursx > xmax then  begin  cursx := xmin;# cursy := cursy + 1; $ if cursy > yŠIžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!»öNNNNNNNNNNNNNNNNNNNNNN”””ū} procedure open_dbwindow;var  I : integer; begin  with dbcrtinfo do beginM xmin := 0; xmax := w-1; {set desired window size} " ymin := h-5; ymax := h-1;N cursx := xmin; cursy := ymin; L-žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž! ĶŖNNNNNNNNNNNNNNNNNNNNNN”””ū {go up}  for z := 1 to 100000 do; C beep; call(dbcrthook,dbscrolldn,dbcrtinfo); {go down}  for z := 1 to 100000 do; C beep; call(dbcrthook,dbscrolll,dbcrtinfo); {go left}  for z := 1 to 100000 do; D beep; call(ł5žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!PNNNNNNNNNNNNNNNNNNNNNN”””ūmax then begin N call(dbcrthook,DBSCROLLUP,dbcrtinfo); {need new line}" cursy := ymax; end; end;L call(dbcrthook,DBGOTOXY,dbcrtinfo); {update åžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!ī„NNNNNNNNNNNNNNNNNNNNNN”””ū {set cursor inside window}K call(dbcrthook,DBINFO,dbcrtinfo); {compute savearea size} L newbytes(savearea,savesize); {create space for image}G call(dbcrthook,DBINIT,dbcrtinfo); {initializ¦/žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž! ž›NNNNNNNNNNNNNNNNNNNNNN”””ūdbcrthook,dbscrollr,dbcrtinfo); {go right} for z := 1 to 100000 do; I beep; call(dbcrthook,DBEXCG,dbcrtinfo); {restore image} 0 writeln(#10,'Display restored.'); debug_info;end.’’ z := 1 to 100000 do; D beep; call(ĒcžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž!ؤNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNKNNNNNNNNNNNNNNNNNNNNNNNN§€‚}ƒé„U†Ą‡+‰–ŠŒmŁŽD°‘“‡”ņ•]—NNNNNNNNNNNNNNNNNNNNNNNN”””ž"NNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KBD2(input,output); import sysglobals, sysdevs; var i, rv : integer;  s : string[255];  auto_repeat,  auto_delay : byte; begin 1 call(kbdreqhook, GET_AUTO_REPEAT, auto_repeat); 6 writeln('Current autM žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" ĻįNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KBD4(input,output); import sysglobals, asm, sysdevs;var & savehook, saveisrhook : kbdhooktype;E tdata : timerdata; {type is from sysglobals}  busy : boolean;  z : integer; c : char; Epr">žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"¹½NNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KBD3(input,output); import sysglobals, sysdevs; var keycount : integer; savehook : kbdhooktype;Eprocedure kbdhook(var statbyte, databyte : byte; var doit : boolean);  begin  {Interrupt Service Routine}  YDžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" *NNNNNNNNNNNNNNNNNNNNNN”””ūo-repeat-rate = ', auto_repeat);/ call(kbdreqhook, GET_AUTO_DELAY, auto_delay); = writeln('Current delay-before-repeat time = ', auto_delay); writeln;1 write('Enter new auto-repeat-rate (0..255): '); readln(s);  if strlen(s) > 0 then §}žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" VvNNNNNNNNNNNNNNNNNNNNNN”””ūocedure kbdhook(var statbyte, databyte : byte; var done : boolean);  var busy, shift : boolean;  begin ' {Keyboard Interrupt Service Routine} % writeln('Keyboard Hook Called.');  end; Dprocedure timehook(var statbyte, databyte: byte; vŖ•žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"ŠŒNNNNNNNNNNNNNNNNNNNNNN”””ūkeycount := keycount + 1;  write(keycount:3,' ');N if not odd(statbyte div 32) then write('Control-') else write(' ');J if not odd(statbyte div 16) then write('Shift-') else write(' ');L if not odd(statbyte div 8) then write('!•žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"uyNNNNNNNNNNNNNNNNNNNNNN”””ū begin try  strread(s,1,rv,i);  if i in [0..255] then  begin  auto_repeat := i; ; call(kbdreqhook, SET_AUTO_REPEAT, auto_repeat); end else # writeln('Out-of-r®LžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" eGNNNNNNNNNNNNNNNNNNNNNN”””ūar doit: boolean); var z : integer; begin $ {Timer Interrupt Service Routine}J if odd(statbyte div 32) {timer} and odd(databyte div 64) {delay} then begin H writeln('Now executing a very slow timer hook without polling');* ČžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"š²NNNNNNNNNNNNNNNNNNNNNNž”””ūExtend-') else write(' ');* writeln(' Databyte: ',databyte:3,' '); end; begin  try I keycount := 0; {initialize count} J savehook := kbdisrhook; {save old key hook} žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"FHNNNNNNNNNNNNNNNNNNNNNN”””ūange'); 3 recover writeln('*** not-numeric input ***');  end; writeln;9 write('Enter new delay-before-auto-repeat (0..255): '); readln(s);  if strlen(s) > 0 then begin try  strread(s,1,rv,i);  if i iņ>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"0NNNNNNNNNNNNNNNNNNNNNN”””ū writeln('Try typing a few keys.'); writeln;! for z := 1 to 1000000 do;  writeln;E writeln('Now executing a very slow timer hook with polling'); ) writeln('Try typing something.'); 6 for z := 1 to 50000 rŌžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" ©ƒNNNNNNNNNNNNNNNNNNNNNN”””ūE kbdisrhook := kbdhook; {use new hook} & writeln('Waiting for keystrokes'); repeat  until keycount > 24; escape(0); recover begin J kbdisrhook := savehook; {resto#«žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"ßßNNNNNNNNNNNNNNNNNNNNNN”””ūn [0..255] then  begin  auto_delay := i;9 call(kbdreqhook, SET_AUTO_DELAY, auto_delay); end else # writeln('Out-of-range'); 3 recover writeln('*** not-numeric input ***');  enńIžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"%NNNNNNNNNNNNNNNNNNNNNN”””ūdo call(KBDPOLLHOOK,busy);) writeln('Now leaving timer ISR'); end else = call(saveisrhook,statbyte,databyte,doit); {pass it on} end; {proc} begin  try J savehook := kbdisrhook; {save o ēžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž" üŠNNNNNNNNNNNNNNNNNNNNNN”””ūre old hook} writeln('Stopped');  end;end.’’use new hook} & writeln('Waiting for keystrokes'); repeat  until keycount > 24; escape(0); recover begin J kbdisrhook := savehook; {resto žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"ģīNNNNNNNNNNNNNNNNNNNNNN”””ūd;end.’’ then  begin  auto_delay := i;9 call(kbdreqhook, SET_AUTO_DELAY, auto_delay); end else # writeln('Out-of-range'); 3 recover writeln('*** not-numeric input ***');  enbnžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž"3xNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNANNNNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒé„U†Ą‡+‰–ŠŒmŁŽD°‘“†”ń•]—NNNNNNNNNNNNNNNNNNNNNNNN”””ž#ģNNNNNNNNNNNNNNNNNNNNNN”””ūite('Enter new rate (0..255): '); readln(s);  if strlen(s) > 0 then begin try  strread(s,1,rv,i);  if i in [0..255] then  begin  rate := i; 1 call(rpgreqhook, SET_RPG_RATE, rate)!˜žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#0üNNNNNNNNNNNNNNNNNNNNNN”””ūr begin M call (MASKOPSHOOK,0,TIMERMASK); {disable timer interrupts} I kbdisrhook := savehook; {restore old hook} I timerisrhook := saveisrhook; {restore old hook} " wr6žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#F NNNNNNNNNNNNNNNNNNNNNN”””ūegin done := false; ( writeln('Release hook activated.'); if keybuffer^.inp = 0 then N c := keybuffer^.buffer^[keybuffer^.maxsize] {get the last character} else N c := keybuffer^.buffer^[keybuffer^.inp-1]; {get tVOžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž# ß7NNNNNNNNNNNNNNNNNNNNNN”””ū; end else # writeln('Out-of-range'); 3 recover writeln('*** not-numeric input ***');  end;end.’’ in [0..255] then  begin  rate := i; 1 call(rpgreqhook, SET_RPG_RATE, rate)1“žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#©kNNNNNNNNNNNNNNNNNNNNNN”””ūiteln('Program stopped.'); end;end.’’ASK); {disable timer interrupts} I kbdisrhook := savehook; {restore old hook} I timerisrhook := saveisrhook; {restore old hook} " wr&RžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#u‘NNNNNNNNNNNNNNNNNNNNNN”””ūhe last character}E if c = chr(13) then done := true; {was it a C/R?}  end; procedure wait_here; begin% writeln('Wait hook activated.'); J repeat {nothing} until done; {wait until a C/R?} e^«žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž# ŠdNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KNOB2(output);import sysglobals, sysdevs; var  z : integer; shift, control : boolean;  saverpghook : kbdhooktype;Fprocedure knobhook(var statbyte, databyte : byte; var doit : boolean); begin # {RPG Interruw4žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#šZNNNNNNNNNNNNNNNNNNNNNN”””ūprogram KBD5(output); import sysdevs; begin  with keybuffer^ do begin  writeln('Echo: ',echo); L writeln('Non-char: "',non_char,'" Ord(non_char): ',ord(non_char):3);8 writeln('Maxsize: ',maxsize:3,' Size: ',size:3,ÜāžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#eÆNNNNNNNNNNNNNNNNNNNNNN”””ūld key hook}I kbdisrhook := kbdhook; {use new key hook} L saveisrhook := timerisrhook; {save old timer hook}K timerisrhook := timehook; {use new timer hook} G tdata.o&žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž# ¹UNNNNNNNNNNNNNNNNNNNNNN”””ūpt Service Routine} & shift := not odd(statbyte div 16);( control := not odd(statbyte div 32); if shift then B if databyte >= 128 then writeln('down') else writeln('up') else F if databyte >= 128 then writeln('right') els{ŽžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#Ļ NNNNNNNNNNNNNNNNNNNNNN”””ū5 ' Inp: ',inp:3,' Outp: ',outp:3);  end;end.’’do begin  writeln('Echo: ',echo); L writeln('Non-char: "',non_char,'" Ord(non_char): ',ord(non_char):3);8 writeln('Maxsize: ',maxsize:3,' Size: ',size:3,×sžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#VžNNNNNNNNNNNNNNNNNNNNNNž”””ūcount := 375; {3.75 seconds} H call(timeriohook, DELAYT, SETT, tdata); {set DELAY timer}4 writeln('In a moment, a timer will interrupt ');5 writeln('and a very slow ISR will be executed.'); 9 writRžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#  ĀNNNNNNNNNNNNNNNNNNNNNN”””ūe writeln('left'); end;begin  saverpghook := rpgisrhook; rpgisrhook := knobhook; # writeln('Try turning the knob.'); $ for z := 1 to 500000 do {nothing}; beep;  rpgisrhook := saverpghook;end.’’abyte >= 128 then writeln('right') elsŒ©žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#ü8NNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KNOB1(input,output);import sysglobals, sysdevs; var i, rv : integer;  s : string[255];  rate : byte; begin ' call(rpgreqhook, GET_RPG_RATE, rate); ( writeln('Current knob-rate = ', rate); writeln;% wr’ųžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#ĶNNNNNNNNNNNNNNNNNNNNNN”””ūeln('At first, no keystrokes will be detected.'); writeln; writeln;L call(MASKOPSHOOK, TIMERMASK,0); {enable timer interrupts}G for z := 1 to 1000000 do; {wait for interrupt}  escape(0); recove^žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž# óNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KBD6(input,output); import sysdevs; var c,d : char;  z : integer; i : integer; s : string[255]; done : boolean;  savewaithook : procedure;  savereleasehook : procedure;procedure release_here;  bYŹžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž#EĢNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZNNNNNNNNNNNNNNNNNNNNNNNNNNN§€‚}ƒč„T†æ‡+‰—ŠŒnŁŽDÆ‘“‡”ó•^—NNNNNNNNNNNNNNNNNNNNNNNN”””ž$4‚NNNNNNNNNNNNNNNNNNNNNN”””ūnd; begin  try A writeln('If you have a menu displayed, please turn it off.');  for z := 1 to 300000 do; writeln;! writeln('In a few seconds, ', G 'the file system will attempt to read from the keybuffer');  for z ³ŗžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ čxNNNNNNNNNNNNNNNNNNNNNN”””ū volume.'); writeln;* write('Do you wish to proceed? (Y/N) '); read(s);< if not (s[1] = 'y') and not (s[1] = 'Y') then halt(0); writeln;L {Set the "test" constant true to display program, false to create program}G if test then rewrite“!žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ž$NNNNNNNNNNNNNNNNNNNNNN”””ūtine}  keycount := keycount + 1;  write(keycount:3,' ');6 with langtable[langindex]^, keytable[databyte] do begin N writeln(' no-caps no-shift no-ctrl no-ext keyclass key sh-key');I writeln(' ':4,no_capslock:9,no_shi³ōžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$³NNNNNNNNNNNNNNNNNNNNNN”””ū:= 1 to 300000 do; writeln;C writeln('When you see that the wait hook has been activated,'); D writeln('press a few keys and then press or .'); writeln;I savewaithook := kbdwaithook; {save wait ŅVžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ qļNNNNNNNNNNNNNNNNNNNNNN”””ū(f, 'CONSOLE:') else rewrite(f, ':KBD8ALT.TEXT'); . writeln(f,'PROGRAM KBD8ALT(INPUT,OUTPUT);'); writeln(f);  writeln(f,'IMPORT SYSDEVS;'); writeln(f); J writeln(f,'{This program installs and enables an alternate language.}');F writeln(f,'{”ožNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$­NNNNNNNNNNNNNNNNNNNNNN”””ūft:9,no_control:9,no_extension:9, 6 keyclass:12,keys[false]:5,keys[true]:6); end;N doit := false; {tell ISR hook to ignore key} end; {proc}  begin  try I keycount := 0; P5žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$RąNNNNNNNNNNNNNNNNNNNNNN”””ūhook}  kbdwaithook := wait_here; L savereleasehook := kbdreleasehook; {save release hook}# kbdreleasehook := release_here;  for z := 1 to 200000 do;N readln(s); {file system "#žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ BŽNNNNNNNNNNNNNNNNNNNNNN”””ūChange the variables for each keycode as you desire.}'); writeln(f);  writeln(f,'BEGIN');  with langtable[0]^ do begin A writeln(f,' LANGTABLE[0]^.CAN_NONADV := ',can_nonadv,';'); = writeln(f,' LANGTABLE[0]^.LANGCODE := ',langcržNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$½+NNNNNNNNNNNNNNNNNNNNNN”””ū {initialize count} L savehook := kbdtranshook; {save old trans hook}E kbdtranshook := kbdhook; {use new hook} & writeln('Waiting for keystrokes'); repeat  until keycH3žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$aŃNNNNNNNNNNNNNNNNNNNNNN”””ūrequest} writeln;> write('The string returned by the readln statement is: '); writeln(s); writeln; escape(0); recover begin = if escapecode <> 0 then writeln('Error:',escapecode:3); " kbdwaithook := savewaithooC”žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$NNNNNNNNNNNNNNNNNNNNNN”””ūode,';');  writeln(f);  for i := 0 to 127 do begin * if not (i in [0,4,126,127]) then begin  write(i:0,','); C writeln(f,' WITH LANGTABLE[0]^.KEYTABLE[',i:0,'] DO'); " writelįÜžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ ŽNNNNNNNNNNNNNNNNNNNNNNž”””ūount > 24; escape(0); recover begin I kbdtranshook := savehook; {restore old hook}  writeln('Stopped');  end;end.’’e new hook} & writeln('Waiting for keystrokes'); repeat  until keyc;šžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ųFNNNNNNNNNNNNNNNNNNNNNN”””ūk;( kbdreleasehook := savereleasehook; writeln('Done.');  end;end.’’ writeln(s); writeln; escape(0); recover begin = if escapecode <> 0 then writeln('Error:',escapecode:3); " kbdwaithook := savewaithoo°žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$$¼NNNNNNNNNNNNNNNNNNNNNN”””ūn(f,' BEGIN');L write(f,' NO_CAPSLOCK := ',keytable[i].no_capslock:5,'; '); D writeln(f,'NO_SHIFT := ',keytable[i].no_shift:5,'; '); K write(f,' NO_CONTROL := ',keytable[i].no_control:5,'; '); K ō:žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ ŪINNNNNNNNNNNNNNNNNNNNNN”””ūprogram KBD8(input,output); import sysdevs; const  test = false; var  s : string[1];  f : text; i, c : integer; begin > writeln('This program will create a program named KBD8ALT');/ writeln('on the default (prefixed)ĪöžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$ĖwNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog$ program KBD7(input,output); import sysglobals, sysdevs; var keycount : integer; savehook : kbdhooktype;Eprocedure kbdhook(var statbyte, databyte : byte; var doit : boolean);  begin + {Translation Interrupt Service Rou™æžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž$įNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒź„V†Į‡,‰˜ŠŒoŪŽG²‘“Š”õ•a—NNNNNNNNNNNNNNNNNNNNNNNN”””ž%ĖŸNNNNNNNNNNNNNNNNNNNNNN”””ūE kcode : byte; {current key code} B ecode : byte; {edit-key code} ktype : keytype; H edptr : shortint; {edit-string pointer}E schar : string[®mžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%eNNNNNNNNNNNNNNNNNNNNNN”””ū(f,'lock'); writeln; writeln('Done.'); end.’’ writeln(f,' END;');  end; end;I writeln(f,' WRITELN(''The language table has been modified.'');');  writeln(f,'END.'); end;' if test = false then closeƒ(žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%a9NNNNNNNNNNNNNNNNNNNNNNž”””ū < ymin then dbcy := ymin;% cursx := dbcx; cursy := dbcy; N call(dbcrthook,DBGOTOXY,dbcrtinfo); {set cursor}# for i := 1 to strlen(dbs) do  begin  c := dbs[i];N call(dbcrthook¬¶žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž% ų®NNNNNNNNNNNNNNNNNNNNNN”””ū1]; {string character}  keyfilptr : ^keyfile; keytabptr : ^keytable; : usernorm, usershift : string80ptr; {menus} saveisrhook : kbdhooktype;  saverpghook : kbdhooktype;  savetranshook : kbdhoxÕžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%ŽņNNNNNNNNNNNNNNNNNNNNNN”””ū $sysprog on$$partial_eval on$ $heap_dispose on$ program KBD9P(input,output);F{ This program is part of the documentation you received and not part E of the supported system software. With this program you can define G all non-alphanumeric k™ÜžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%RNNNNNNNNNNNNNNNNNNNNNN”””ū,DBPUT,dbcrtinfo); {print each character}N if cursx < xmax then cursx := cursx + 1; {stop from wrapping}N call(dbcrthook,DBGOTOXY,dbcrtinfo); {update cursor position} end;N dbcx := cursx; dbcyÖžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž% ­żNNNNNNNNNNNNNNNNNNNNNNž”””ūoktype; H dbcrtinfo : dbcinfo; {debug window record}D dbcx, dbcy : shortint; {cursor location}C dbs : dbstring; {editing string} procedure init_dbwindow;va¼–žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%½ĆNNNNNNNNNNNNNNNNNNNNNN”””ūeys as typing-aids. This program may not work F correctly on all Series 200 Computers or with all system software. }module passkey; import sysglobals, asm, sysdevs;exportvar  initialized : boolean;  using_hooks : boolean;  e‘žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%B6NNNNNNNNNNNNNNNNNNNNNN”””ūwriteln(f,'NO_EXTENSION := ',keytable[i].no_extension:5,'; '); C writeln(f,' KEYCLASS := ',keytable[i].keyclass,';'); . c := ord(keytable[i].keys[false]);7 write(f,' KEYS[FALSE] := CHR(',c:0,')'); D ifįKžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž% žĢNNNNNNNNNNNNNNNNNNNNNNž”””ūr  i : integer; begin $ call(dbcrthook,DBINFO,dbcrtinfo);% with dbcrtinfo, syscom^.crtinfo do begin xmin := 0;  xmax := width-1;  ymin := height-4; ymax := height-1;$ cursx := xmin; cursy := ymiĻžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%čNNNNNNNNNNNNNNNNNNNNNN”””ūdit_mode : boolean;   procedure build_menus;  procedure do_hooks; procedure undo_hooks; procedure get_keys; procedure save_keys;  procedure paskey_init; implement type dbstring = string[80]; : keytable = packed array[0..žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%qNNNNNNNNNNNNNNNNNNNNNN”””ū not (c in [0..32,125]) then write(f,'{',chr(c),'}; ')# else write(f,'{}; '); - c := ord(keytable[i].keys[true]); 3 write(f,'KEYS[TRUE] := CHR(',c:0,')'); F if not (c in [0..32,125]) then writeln(f,'{',chr'DžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž% [NNNNNNNNNNNNNNNNNNNNNN”””ūn;( call(dbcrthook,DBINFO,dbcrtinfo);# newbytes(savearea,savesize);  end; {with} end; {proc} =procedure dbwrite(var dbcx, dbcy : shortint; dbs : dbstring);  var  i : integer; begin  with dbcrtinfo do beginN šĪžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%Ū”NNNNNNNNNNNNNNNNNNNNNN”””ū59,false..true] of dbstring; keyfile = file of keytable;var  local, sline, shift, control, K knob, ecaps : boolean; {ecaps = edit mode caps} E kchar : char; {current key char} !žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%$TNNNNNNNNNNNNNNNNNNNNNN”””ū(c),'};') $ else writeln(f,'{};');! writeln(f,' END;');  end; end;I writeln(f,' WRITELN(''The language table has been modified.'');');  writeln(f,'END.'); end;' if test = false then closeÖ}žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž% 4jNNNNNNNNNNNNNNNNNNNNNN”””ū call(dbcrthook,DBINFO,dbcrtinfo); {check values}N if dbcx > xmax then dbcx := xmax; {check boundarys}( if dbcx < xmin then dbcx := xmin;( if dbcy > ymax then dbcy := ymax;( if dbcy&±žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž%bUNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒé„T†Ą‡+‰–ŠŒmŲŽD°‘“‡”ó•_—NNNNNNNNNNNNNNNNNNNNNNNN”””ž&ŁźNNNNNNNNNNNNNNNNNNNNNN”””ū := cursy; {return the new position} end; {with} end; {proc} procedure build_menus; var  rv : integer; dummyc : char;  dummyi : integer; begin  setstrlen(usernorm^,71); B strwrite(usernorm^,1•ÜžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž& NNNNNNNNNNNNNNNNNNNNNN”””ūen E kchar := langtable[langindex]^.keytable[kcode].keys[ecaps<>shift]  else if kcode < 60 then  kchar := ctrlookup[kcode] else  if kcode < 100 then @ kchar := langtable[langindex]^.keytable[kcode].keys[shift] else šžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&sLNNNNNNNNNNNNNNNNNNNNNN”””ūc); < m_u2 : call(crtllhook,clldisplay,usershift^,dummyc); m_none : begin# menustate := m_u1; N kbdsysmode := false; {set user mode}N setstatus(6,'U'); מNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&źŪNNNNNNNNNNNNNNNNNNNNNN”””ū,rv,'|',str(keytabptr^[27,false],1,7),'|',? str(keytabptr^[28,false],1,7),'|', ? str(keytabptr^[32,false],1,7),'|', ? str(keytabptr^[33,false],1,7),'|', ? ‘vžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž& œ‡NNNNNNNNNNNNNNNNNNNNNNž”””ū if kcode < 126 then H kchar := langtable[langindex]^.keytable[kcode].keys[ecaps<>shift] else A kchar := langtable[langindex]^.keytable[kcode].keys[shift]; end;procedure finish_edit; begin 0 while strlen(dbs) < 7 do strréžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&@}NNNNNNNNNNNNNNNNNNNNNN”””ū {set status light}N keybuffer^.echo := false; {don't echo typeahead}N call(crtllhook,cllclear,dummyi,dummyc); {clear last line}= call(crtllhook,clldisplay,usernorm^,dummyc); ŽĮžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&æˆNNNNNNNNNNNNNNNNNNNNNN”””ū '1','|', ? str(keytabptr^[29,false],1,7),'|', ? str(keytabptr^[30,false],1,7),'|', ? str(keytabptr^[31,false],1,7),'|', @ üŒžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž& ƶNNNNNNNNNNNNNNNNNNNNNN”””ūappend(dbs,' ');/ if strlen(dbs) > 80 then setstrlen(dbs,80); O if NOT shift then keytabptr^[ecode,sline] := dbs; {save the edited line} % call(dbcrthook,DBINFO,dbcrtinfo); O call(dbcrthook,DBEXCG,dbcrtinfo); {rīāžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&PCNNNNNNNNNNNNNNNNNNNNNNž”””ū end;  otherwise  end; {case}  end;procedure translate_key; type& clp = packed array[0..59] of char; const ? {assign add-characters to 'controlled' keycodes for editor} > { 0 1 2 3 ĪĻžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&Œ¹NNNNNNNNNNNNNNNNNNNNNN”””ū str(keytabptr^[36,false],1,7),'|'); setstrlen(usershift^,71); B strwrite(usershift^,1,rv,'|',str(keytabptr^[27,true],1,7),'|',? str(keytabptr^[28,true],1,7),'|', ? ģÕžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&śåNNNNNNNNNNNNNNNNNNNNNNž”””ūestore image} < if (ecode in [27..33]) or (ecode = 36) then build_menus; edit_mode := false;  local := true; end;  procedure edit_entry;  var  i, rv : integer; begin A if not control and ((kcode=7) or (kcode=59)) theĻžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž& crNNNNNNNNNNNNNNNNNNNNNN”””ū 4 5 6 7 8 9}> ctrlookup = clp [#000#000#000#027#000#000#000#003#013#009,> #010#011#012#013#014#015#016#000#000#000,> #010#011#127#012#000#009#010#011#012#015,> #016#017#013#014#G;žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&.NNNNNNNNNNNNNNNNNNNNNN”””ūstr(keytabptr^[32,true],1,7),'|', ? str(keytabptr^[33,true],1,7),'|', ? '2','|', ? str(keytabptr^[29,true],1,7),'|', ? {šžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&ÉŌNNNNNNNNNNNNNNNNNNNNNN”””ūn finish_edit else begin  translate_key;N strwrite(schar,1,i,kchar); {copy into str-type if we need it}/ if control or (ktype = alpha_key) then  begin ) if edptr <= strlen(dbs) then D­žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž& 6!NNNNNNNNNNNNNNNNNNNNNN”””ū010#031#018#019#008#028,> #000#000#000#000#000#000#008#000#000#000,N #000#000#127#000#000#000#000#013#027#003]; {0 thru 59}begin : ktype := langtable[langindex]^.keytable[kcode].keyclass; if kcode < 3 thkUžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&&NNNNNNNNNNNNNNNNNNNNNN”””ū str(keytabptr^[30,true],1,7),'|', ? str(keytabptr^[31,true],1,7),'|', @ str(keytabptr^[36,true],1,7),'|'); case menustate of ; m_u1 : call(crtllhook,clldisplay,usernorm^,dummy½¾žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž&ł‰NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4NNNNNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒé„U†Ą‡+‰—ŠŒmŲŽD°‘“‡”ņ•^—NNNNNNNNNNNNNNNNNNNNNNNN”””ž'&÷NNNNNNNNNNNNNNNNNNNNNN”””ū}  begin ) if strlen(dbs) < 78 then  begin 1 i := strlen(dbs) - edptr + 1; ! if i > 0 then  begin 5 setstrlen(dbs,strlI¤žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'ś NNNNNNNNNNNNNNNNNNNNNN”””ū ) 34,35: {down-arrow, up-arrow}  begin < while strlen(dbs) < 7 do strappend(dbs,' ');N keytabptr^[ecode,sline] := dbs; {save edited line}# sline := not sliCžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'ŒQNNNNNNNNNNNNNNNNNNNNNN”””ūend; {if-then-else} end; {proc}   procedure start_edit;  var  i : integer; begin O call(dbcrthook,DBINIT,dbcrtinfo); {init window} O call(dbcrthook,DBEXCG,dbcrtinfo); { žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž' ĘNNNNNNNNNNNNNNNNNNNNNN”””ūen(dbs)+1); B strwrite(dbs,edptr+1,rv,str(dbs,edptr,i));2 strwrite(dbs,edptr,i,' ');A dbcx := 0; i := 2; if sline then i := 3; 2 dbcy:=dbcrtinfo.ymin + i; 1 tŹžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'cšNNNNNNNNNNNNNNNNNNNNNN”””ūne; 9 dbcx := 0; i := 2; if sline then i := 3; * dbcy:=dbcrtinfo.ymin + i; / dbs := keytabptr^[ecode,sline]; ) dbwrite(dbcx, dbcy, dbs); ; dbcx := 0; if strlen(dbs)=7 then dbcLƒžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'æ`NNNNNNNNNNNNNNNNNNNNNN”””ūsave image} & dbcx:=0; dbcy:=dbcrtinfo.ymin + 0;? dbs := '***************** DEFINE KEY xx *****************'; O strwrite(dbs,30,i,kcode:2); {fix number}  dbwrite(dbcx, dbcy, dbs); & dbcx:=0; dbcy:=dbc*WžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž' @•NNNNNNNNNNNNNNNNNNNNNN”””ū dbwrite(dbcx, dbcy, dbs); A dbcx := edptr-1; dbwrite(dbcx, dbcy, '');  end; end; end;  44: {delete-char}  begin 8ÓžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'P«NNNNNNNNNNNNNNNNNNNNNN”””ūx := 7; * dbcy:=dbcrtinfo.ymin + i; " edptr := dbcx + 1;( dbwrite(dbcx, dbcy, ''); end; , 38,46: {left-arrow, back-space}  begin " if edpšˆžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'Æ^NNNNNNNNNNNNNNNNNNNNNN”””ū begin $ dbs[edptr] := kchar;4 if edptr < 78 then edptr := edptr+1;) dbwrite(dbcx,dbcy,schar);  end  else  begin ( if strlen(dbs) < 7)MžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž' s¤NNNNNNNNNNNNNNNNNNNNNN”””ū( if strlen(dbs) > 0 then  begin 1 i := strlen(dbs) - edptr + 1; ! if i > 0 then  begin D strwrite(dbs,edptr,rv,str(dbs,edptr+1,i-1));¼ÕžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'ųNNNNNNNNNNNNNNNNNNNNNN”””ūtr > 1 then  begin % edptr := edptr-1; < dbcx := dbcx - 1; dbwrite(dbcx,dbcy,''); end; end;  39: {right-arrow}  begin - [žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'œoNNNNNNNNNNNNNNNNNNNNNN”””ū8 then begin 1 setstrlen(dbs,strlen(dbs)+1); 6 strwrite(dbs,strlen(dbs),i,kchar);% edptr := edptr+1; - dbwrite(dbcx,dbcy,schar);  end; Œ…žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž' ź3NNNNNNNNNNNNNNNNNNNNNN”””ū5 setstrlen(dbs,strlen(dbs)-1); A dbcx := 0; i := 2; if sline then i := 3; 2 dbcy:=dbcrtinfo.ymin + i; 1 dbwrite(dbcx, dbcy, dbs); N db՘žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'6ÉNNNNNNNNNNNNNNNNNNNNNNž”””ū if edptr <= strlen(dbs) then  begin % edptr := edptr+1; < dbcx := dbcx + 1; dbwrite(dbcx,dbcy,''); end; end;  43: {insert-charzpžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž'É= 128 then kcode := 39 else kcode := 38;  edit_entry; end; end;Jprocedure newtranshook(var statbyte, databyte : byte; var doit : boolean); var  dummyc : char;  J¬žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(HNNNNNNNNNNNNNNNNNNNNNN”””ūcode,true]);O ecode := kcode; {save keycode for finish_edit} " if menustate = m_u2 then beginM sline := true; {edit-shift} 9 dbcy:=dbcrtin$ŗžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž( >ŻNNNNNNNNNNNNNNNNNNNNNN”””ū keybuffer^.echo := true;  end; G m_u1 : call(crtllhook,clldisplay,usernorm^,dummyc); H m_u2 : call(crtllhook,clldisplay,usershift^,dummyc); otherwisĒ|žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(ā'NNNNNNNNNNNNNNNNNNNNNNž”””ū dummyi : integer; begin @ {First keyboard ISR, keycode translation and semantics hook} local := false;  kcode := databyte;& shift := not odd(statbyte div 16);( control := not odd(statbyte div 32);! if edit_mode then edit_entryåkžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(ŅNNNNNNNNNNNNNNNNNNNNNN”””ūfo.ymin + 3; end else " beginM sline := false; {edit-normal} 9 dbcy:=dbcrtinfo.ymin + 2;ŚžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(  ģNNNNNNNNNNNNNNNNNNNNNN”””ūe  end; {case}  end; {if}  end;  I if (databyte = 20) or (databyte=37) and (kbdtype <> itfkbd) then  begin N databyte := 20; {Convert K9 (37) to be USER/SYSTEM ,CžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(ņNNNNNNNNNNNNNNNNNNNNNN”””ū; / if not edit_mode and shift and control and 4 (kcode < 60) and (kcode > 2) then start_edit else begin H if (databyte = 21) or (databyte=26) and (kbdtype <> itfkbd) then begin N databyte := 21; ō@žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(.ćNNNNNNNNNNNNNNNNNNNNNN”””ū ! end; N dbs := keytabptr^[ecode,sline]; {copy string to edit}D edptr := 1; if strlen(dbs) >= 7 then edptr := 8; dbcx:=edptr-1; N dbwrite(dbcx, dbcy, ''); {posiMžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(XæNNNNNNNNNNNNNNNNNNNNNN”””ūkey}$ kbdsysmode := not shift;< if (menustate = m_u1) or (menustate = m_u2) then begin $ menustate := m_none;( keybuffer^.echo := true;+ keybufops(kdisplay,dummyc);  ÕĢžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž( Į(NNNNNNNNNNNNNNNNNNNNNN”””ū {Convert K0 (26) key to be MENU key}" if NOT kbdsysmode then begin {usermode} ! doit := not doit;  if shift then @ if menustate = m_u2 then menustate := m_none> āžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(·tNNNNNNNNNNNNNNNNNNNNNN”””ūtion cursor} edit_mode := true; local := true; end;  Hprocedure newrpghook(var statbyte, databyte : byte; var doit : boolean); begin # {RPG Interrupt Service Routine}  if not edit_mode then . call(saverpghook,statbyte,4>žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(kŽNNNNNNNNNNNNNNNNNNNNNN”””ū end; end; @ if doit then call(savetranshook,statbyte,databyte,doit); end; end; {proc} procedure addtobuffer; var c : char;  i : integer; tas : dbstring;  begin ) i := strlen(× žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž( ”{NNNNNNNNNNNNNNNNNNNNNN”””ū else menustate := m_u2 else @ if menustate = m_u1 then menustate := m_none? else menustate := m_u1; N keybuffer^.echo := (menu?žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž(„ENNNNNNNNNNNNNNNNNNNNNN”””ūdatabyte,doit) else begin  local := true; kcode := databyte;* shift := not odd(statbyte div 16);, control := not odd(statbyte div 32); if shift then @ if databyte >= 128 then kcode := 34 Ž„žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž([ÓNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN:NNNNNNNNNNNNNNNNNNNNNNNNNNNNN§€‚~ƒź„U†Į‡-‰™ŠŒqŻŽH³‘“Š”ö•b—NNNNNNNNNNNNNNNNNNNNNNNN”””ž)„­NNNNNNNNNNNNNNNNNNNNNN”””ū ***');  ) if kbdtranshook <> savetranshook then begin  hook2 := true;& kbdtranshook := savetranshook;0 writeln('Translation Hook Removed.',#9); end ; else writeln('*** Translation already unhooked. ***”¦žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)XWNNNNNNNNNNNNNNNNNNNNNN”””ū {typeahead} end; end;procedure do_hooks;  var  hook1, hook2 : boolean;  begin if initialized then writeln; hook1 := false;  hook2 := false; % if kbdisrhook <> newisrhook then begin  PŚžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž). NNNNNNNNNNNNNNNNNNNNNNž”””ū begin. keytabptr^[i,false] := '-plain-';- keytabptr^[i,true] := '-shift-';  end;  {Default key labels} 6 strwrite(keytabptr^[27,false],1,i,' f1 ');6 strwrite(keytabptr^[27,true],1,i, ' SkžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) ·œNNNNNNNNNNNNNNNNNNNNNN”””ū'); 1 if hook1 and hook2 then using_hooks := false;  end;procedure get_keys;  begin  new(keyfilptr);  try / writeln(#12,'Trying to load "KEYFILE".'); # reset(keyfilptr^,':KEYFILE'); # read(keyfilptr^, keytabptr^)¹­žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)ĮĄNNNNNNNNNNNNNNNNNNNNNN”””ūhook1 := true;" saveisrhook := kbdisrhook;! kbdisrhook := newisrhook; " saverpghook := rpgisrhook;! rpgisrhook := newrpghook; + writeln('ISR Hooks Installed.',#9); end 1 else writeln('*** ISR already hooSžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž):NNNNNNNNNNNNNNNNNNNNNN”””ūF1 ');6 strwrite(keytabptr^[28,false],1,i,' f2 ');6 strwrite(keytabptr^[28,true],1,i, ' F2 ');6 strwrite(keytabptr^[32,false],1,i,' f3 ');6 strwrite(keytabptr^[32,true],1,i, ' F3 ');6 strwrite(keytĄ&žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) āĻNNNNNNNNNNNNNNNNNNNNNN”””ū;  close(keyfilptr^); build_menus; escape(0); recover begin 8 if (escapecode = 0) then writeln('Keys loaded.')E else writeln('FAILED to load. escapecode = ',escapecode:3); end; dispose(keyfilŹ{žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)ņńNNNNNNNNNNNNNNNNNNNNNNž”””ūked. ***');  ) if kbdtranshook <> newtranshook then begin  hook2 := true;& savetranshook := kbdtranshook;% kbdtranshook := newtranshook; 2 writeln('Translation Hook Installed.',#9); end 9 else a“žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) NNNNNNNNNNNNNNNNNNNNNN”””ūkeytabptr^[kcode,shift]); . tas := str(keytabptr^[kcode,shift],8,i-7);A if (strlen(tas) <= (keybuffer^.maxsize-keybuffer^.size)) then " for i := 1 to strlen(tas) do begin - c := tas[i]; keybufops(KAPPEND, c); end ›­žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) ŃžNNNNNNNNNNNNNNNNNNNNNN”””ūptr);  end; procedure save_keys; begin  new(keyfilptr);  try / writeln(#12,'Trying to save "KEYFILE".'); % rewrite(keyfilptr^,':KEYFILE'); # write(keyfilptr^,keytabptr^);  close(keyfilptr^,'LOCK');  es°(žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)§¢NNNNNNNNNNNNNNNNNNNNNN”””ūwriteln('*** Translation already hooked. ***'); 0 if hook1 and hook2 then using_hooks := true; end; procedure undo_hooks;  var  hook1, hook2 : boolean;  begin if initialized then writeln; hook1 := false;  hook2 := falĒ;žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)>5NNNNNNNNNNNNNNNNNNNNNN”””ū else beep;  end; Hprocedure newisrhook(var statbyte, databyte : byte; var doit : boolean); begin ( {Keyboard Interrupt Service Routine}' if not edit_mode and not local then begin , if (kcode < 3) or (kcodelųžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) HiNNNNNNNNNNNNNNNNNNNNNN”””ūcape(0); recover begin 7 if (escapecode = 0) then writeln('Keys saved.') E else writeln('FAILED to save. escapecode = ',escapecode:3); end; dispose(keyfilptr);  end; procedure paskey_init; var  i sžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)”“NNNNNNNNNNNNNNNNNNNNNN”””ūse; % if kbdisrhook <> saveisrhook then begin  hook1 := true;" kbdisrhook := saveisrhook;" rpgisrhook := saverpghook;) writeln('ISR Hooks Removed.',#9); end 3 else writeln('*** ISR already unhooked.k~žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)kfNNNNNNNNNNNNNNNNNNNNNN”””ū > 59) then 2 call(saveisrhook,statbyte,databyte,doit) else G if (strlen(keytabptr^[kcode,shift]) < 8) or (kbdsysmode) then 4 call(saveisrhook,statbyte,databyte,doit) else 1 addtobuffer; _ žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž) {XNNNNNNNNNNNNNNNNNNNNNN”””ū: integer; begin  if not initialized then begin 0 if keytabptr = nil then new(keytabptr);/ if usernorm = nil then new(usernorm); 0 if usershift = nil then new(usershift); for i := 0 to 59 do LIžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž)-gNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNNNNNNNNNNNNNNNNNNNNNNN§€‚ƒź„V†Į‡,‰˜ŠŒnŁŽD°‘“†”ņ•^—NNNNNNNNNNNNNNNNNNNNNNNN”””ž*–ŲNNNNNNNNNNNNNNNNNNNNNN”””ūabptr^[33,false],1,i,' f4 ');6 strwrite(keytabptr^[33,true],1,i, ' F4 ');6 strwrite(keytabptr^[29,false],1,i,' f5 ');6 strwrite(keytabptr^[29,true],1,i, ' F5 ');6 strwrite(keytabptr^[30,false],1,i,' f6 ');‰[žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž* J"NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*<~NNNNNNNNNNNNNNNNNNNNNN”””ū paskey_init;4 initialized := true;) markuser; # end; # recover # begin %ńƒžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*„éNNNNNNNNNNNNNNNNNNNNNN”””ū6 strwrite(keytabptr^[30,true],1,i, ' F6 ');6 strwrite(keytabptr^[31,false],1,i,' f7 ');6 strwrite(keytabptr^[31,true],1,i, ' F7 ');6 strwrite(keytabptr^[36,false],1,i,' f8 ');6 strwrite(keytabptr^[3®OžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž* ÓµNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*ONNNNNNNNNNNNNNNNNNNNNN”””ū BEEP; ? if using_hooks then undo_hooks; 5 initialized := false; 3 escape(escapecode); " end; ŹyžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*šŗNNNNNNNNNNNNNNNNNNNNNN”””ū6,true],1,i, ' F8 '); dbcx := 0; dbcy := 0; init_dbwindow;  ecaps := false; local := false; edit_mode := false; build_menus; 0 writeln(#10,'Passkey is initialized.');: writelno›žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž* ą„NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*qNNNNNNNNNNNNNNNNNNNNNN”””ūquittime := false; repeat: write(#1,'Paskey: Install hooks, Remove hooks, ',; 'Get keys, Save keys, Quit [1.0]? ',#8);  read(cmdchar); case cmdchar of  'I','i' : do_hooks;  'R','r' : undo_hoo2—žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*ƋNNNNNNNNNNNNNNNNNNNNNN”””ū(#10,#10,'To define any non-alpha key, ');8 writeln('press and and [KEY] ');& writeln('at the same time.');" if kbdtype <> itfkbd then7 writeln(#10,#13,'Press k0 to toggle menu. ', 7 #ākžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*µ×NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž* ,@NNNNNNNNNNNNNNNNNNNNNN”””ūks;  'G','g' : get_keys;  'S','s' : save_keys;' 'Q','q',#27 : quittime := true; ! ' ' : write(#12);  otherwise  write(#12,#7); end;J until quittime; {program done, return to ”¦žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*ZNNNNNNNNNNNNNNNNNNNNNN”””ū10,#13,'Key k9 sets SYSTEM mode, ', 8 #10,#13,'k9 sets USER mode.'); end else & writeln('Already initialized.'); end; end; {module} {program KBD9P(input,output);},import sysglobals, sysdevs, loĢžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*†ęNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž* yNNNNNNNNNNNNNNNNNNNNNN”””ūcommand interpreter} recover begin ? if not initialized then writeln('Initialization FAILED.') : else writeln('Program crashed.');% writeln('Escape: ',escapecode);  escape(escapecode);  end;end.’’óóžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*i-NNNNNNNNNNNNNNNNNNNNNN”””ūader, passkey; var  i : integer;  cmdchar : char; quittime : boolean;begin  try  if not initialized then  try # begin ) do_hooks; , &'žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž*¶»NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚~ƒé„T†æ‡*‰•ŠŒl×ŽCÆ‘“…”š•\—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž+iÅNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+µ?NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ĆcNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ ZōNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+,ØNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+šRNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ §NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+™NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ąlNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ <–NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+JŹNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+Ó]NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ „NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+yūNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+†NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ –0NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž+ĄNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚ƒź„U†Ą‡+‰–ŠŒl×ŽB­‘“ƒ”ī•Y—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž,±ANNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž, m»NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,ēNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,‚pNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž, ō,NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,(ÖNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,×#NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž, ĒNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,8čNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,äNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,’NNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,  ŁNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,}…NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,”NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž, ^ŠNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,N“NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž,‘"NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚ƒź„V†Ā‡-‰™ŠŒoŚŽE°‘“†”ņ•]—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž-N\NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-’¦NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-äśNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- }mNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- 1NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-×ĖNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- (>NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-8NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-ĒõNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-mSNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-ōÄNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- ‚˜NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-^bNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-”—NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž- ±©NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž-ē–NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚~ƒé„T†æ‡+‰–ŠŒmŲŽDÆ‘“…”ń•]—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž.\)NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. €ÓNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.öNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.oNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. DNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.žNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.:KNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. *uNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.ՀNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. zNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.&NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. ę±NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.ķNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.LNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž. ³āNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.£ÜNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž.|JNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNJNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚~ƒé„T†æ‡+‰—ŠŒmŲŽDÆ‘“…”ń•\—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž/£4NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ĪNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ ’NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ęYNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/:£NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ ÅVNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ÕhNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/*NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ ögNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/€;NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/¬NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ ošNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/³ NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/L’NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ \ĮNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž/ žNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚~ƒé„U†Ą‡+‰–ŠŒl×ŽCÆ‘“†”ņ•^—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž0åŌNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0 9.NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0OrNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0ÖåNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0  ¹NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0|CNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0ƒ¶NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0 “ˆNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0l}NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0°‡NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0ĘŪNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0 _LNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0)NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0õźNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0  NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0!NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž0Å·NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNJNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN؀‚~ƒź„V†Į‡,‰—ŠŒnŁŽE±‘“ˆ”ó•_—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž1ÉNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1Ę3NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1°oNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 )ųNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1_¤NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1ƒ^NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 |«NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1l•NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1“`NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 OšNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž19ĘNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 QNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 Ö NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 ÷NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1õNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž1 åNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;ūĖNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž; '1NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;QmNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;ČśNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž; ¾¦NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;b\NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;©NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž; —NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;ŪØNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž;©€‚ƒź„U†Ą‡+‰–ŠŒl×ŽB­‘“ƒ”ī•Z—NNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<ŖęNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž< vNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<@NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<™×NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž< ļ‹NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<3qNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<Ģ„NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž< ÜŗNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<#ONNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<’µNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<‰éNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž< ~NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<f"NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<ŗŲNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž< E-NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<UNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<Š…NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNKNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž<؀‚ƒź„V†Ā‡-‰˜ŠŒnŁŽE°‘“‡”ó•^—NNNNNNNNNNNNNNNNNNNNNNNNN”””ž=UūNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=‰NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=’]NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž= fŹNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=–NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=ĢlNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž= 3™NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=#§NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=ÜRNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž= ØNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=vōNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=ļcNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž= ™?NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=EÅNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=ŗ0NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž= ŖNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=ü1NNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž=©€‚ƒź„U†Į‡,‰˜ŠŒoŚŽE°‘“‡”ó•^—NNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>GŽNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž> ›tNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>ķ(NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>tæNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž> ćNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>ŽNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>!ģNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž> 1ŅNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>Ī'NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>ŻNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>dNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž> żNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>‹JNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>W°NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž> ØENNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>ø{NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>gķNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž>©€‚ƒģ„W†Ā‡-‰™ŠŒqÜŽH³‘“Š”õ•a—NNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?ø“NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?diNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?5NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? ‹¢NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?żžNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?!NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? ŽńNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?ĪĻNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?1:NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? ķĄNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?›œNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? tWNNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?Ø­NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?WXNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž? GfNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž?YNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž©€‚ƒė„V†Į‡,‰˜ŠŒnŁŽE°‘“†”ń•\—NNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@§”NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ {[NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@”NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ āĢNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@>6NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ĮĆNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ ŃżNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@.NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ņņNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@„®NNNNNNNNNNNNNNNNNNNNNNž”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ 9NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@keNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@·ŸNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@ HjNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@XTNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@‡ĀNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””ž@©€‚ƒź„U†Ą‡+‰–ŠŒl×ŽB®‘“„”ļ•Z—NNNNNNNNNNNNNNNNNNNNNNNNNN”””žAX¼NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA„FNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAņNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA kNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAŃNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAĮ+NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA >ŽNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA.ąNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAŃNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA  ļNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA{³NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAā$NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA ”xNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAH‚NNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA·wNNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA §INNNNNNNNNNNNNNNNNNNNNN”””ū TŁžNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žAńvNNNNNNNNNNNNNNNNNNNNNN”””ūē[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ŠNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žA©€‚ƒķ„Y†Å‡1‰œŠŒrŽŽIµ‘ “Œ”ų•d—NNNNNNNNNNNNNNNNNNNNNNNNNN”””žBJÉNNNNNNNNNNNNNNNNNNNNNNž”””ūį"žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB –3NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBąoNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žByųNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB ¤NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBÓ^NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB,«NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB <•NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBĆ`NNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBšNNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBiĘNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB šQNNNNNNNNNNNNNNNNNNNNNN”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB† NNNNNNNNNNNNNNNNNNNNNNž”””ūį"žNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBZ÷NNNNNNNNNNNNNNNNNNNNNN”””ūį"žĪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žB „NNNNNNNNNNNNNNNNNNNNNN”””ūį"žēNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN”””žBµ