IMD 1.18: 12/07/2013 8:29:02  ü€ÅÅÅï> ÿ     –¹Ò#¤¹®#$¹• BOOTSTRA‚ê; „.Ť„ §ƒ — ¢¤ -²ŸÔí,Ô‹ýÿ–N5#£¥$†Å–`$0Ć0#×Ä–Å Fatal I/O Error$&%ƒ1—±Ô‚3‘–À$‰‘$x‰‰#¢‘‰Ô$xç‰xÄ$xç‰Ä– SYSTEM.i„‡Å„‚aÅ„ „Åᤠ¢¤7 × ¤‡x¤‡Ô¤Š ‡y#£Œ¤‡ç§‡°¤¤‡ç"§„"§±Ô¤"¢¤"‡²ŸÔä$7× æ ° Ô¤$Ô&„%¤‡Ô%y±Ô%ç%y%椊ê‡&Ä–†#x°Ô$$xçÅ##x¢Ä– Need &„ ‡,Å3¤¤¤ !˜±)å¡Õ¼!¤$‡$ç'× ¤%„„’ ‡%ɰ‡%ç„ ¹¡Õ“¤ ‡%çÉÔR‡*°Ô ‡)‡%yxÄŠ‡)‡%y‡*‡%{¢×xć+€€³ŸÔˆ ‡+׈ ‡)x×xć'Ôˆ ‡)x×xçÊ‹êŠ5‡%çÊ„ !ç'× Å „+Œ¢‘„,Œ‘ ç‡%}Ä ç€ÿć%ç Ä‹;ÿ)åÔ„‚€ÄÅ„„ Å„‘¤#,³ŸÕU„„’ !¤$‡$ç'× ¤%‡%ɰÕñ#°‡+€€³Ÿ¡Ô‡+¤Š,‡%}€€³Ô‰¤‰¢¦Š‡%}¤ ¥%‰³Ô%¢¦ˆ %בˆ %×x¤&‡&ç‡%ć&ç‡$æ‡%~¢Ä‡&ç‡'#°¡%° Ê‡&ç „Éʇ&ç „Éʇ&ç ʇ&çć&ç‡%çŇ&ç ˜Ä‡&ç ˜Ä‡&çˆ %×xÄ#°Ô ‡)%ć%}¤Š‡%}€€£ {³ŸÔ ç‡%}€€£Ä‡&ç ÄŠ.‡%çÉÔ „‡%çŇ%}¤ „‡%}‡%}(£„‡(‡%çÉ’ ‡%}$³Ô "‡%}$£×%Ä#¢¤‹¤þˆ‡(פ$ˆ "xפ%‡$x˜°Ô‡$‡%xÄŠ ‡$yç ‡%xć$ç‡%xÄ 4Ä ç"Ä–,PASCALSY„טĄטĤ‚‚ „ 4¤ ‡ çć |¤ „ çxxć ç2x¢Œ‘¤2ç$פ‡ }$פ‡ç‡Å‡ÉÔ+‡ç€€‡ ‡ç&繇ɰ¡Ô‡ ç$Ä$¢¤$2x²ŸÔ¤¤9˜±Ô;9¤‡ç!× ¤‡É°Ô‡ç€€„ „ #×xç ʆ „ ŠÀ‡ ç 2xć ç„ņ ¢Œ‘6 £Ä‡ ç †Å¤6ç$ׄ $×xÄ„ $×x¤ ‡ ç4|zʇ ç ʇ çÉå‡ z° Õ‡ ç $ʇ çÉÔz‡ ‡ yŒ‘‡ x‡ yŒ‡ {‘‡ x‡ xxŒ$ȇ ç $ʇ çć x×x¤"±Ô3„‡ x"×Ä%y¤%‡ æ y%É€€×xÊ%ç„ %É×xæ ÄŠÈ$¢¤$ °Õ+ÿ–‚êÅINTRINS PASCAL DRIVERS DRVINFO ¥0¥$ü¥ :ÄáÄ:xÔÿ¥Šá¥ƒƒ —ƒƒ —†ì‘7ì‘ €ÅŒáx˜¥‚ƒ †‘† †Å‚ƒ †‘‚ƒ†‘‚ƒ†‘‘† €"‘8¥ ;¥ <˜Ä<瀀Ä<ç1Ä<ç5Ä<ç5Ä<ç4Ä<ç4Ä<çÄ<ç6ç×xxÄ<ç ˜Ä<ç ˜Ä;ç Ä;ç 4Äá6çÑ Ëá8Ñ–É·Jf<) € #SERIALDRü¦–1‰¤ zÚŸÔø ç€ÿ#£Ä–= ÔŠ– ‚£FLOPPYDRL„$Å„€Ðʉ!¤!ç¤"„Å!çÇÄ!ç ÇÄ€"xܶŸÔà–v#ÚÔ ¤Š#ÚÔ¤Š#ÚÔ¤Š¤–¼'#Ê'’‰!¤ ç¤!xÚåÔ%'&Ê ç$xÄ ç%Ä!'Å€!xܶŸÔó$ yÄ–ð„'ńʄ %¢&’‰!|Ç’¤ ±Ô&Ä ¤ –ø €"¤¤¤ &²Ôp Ô ˆ ×ÄŠˆ ×Ĉ £×¤'ç Ä' ¢Ä¤¤!'²Ô5ˆ!× ×¤ ! °Ô(çÄŠ!Ô(çÄŠ(çÄ((yÄ!¢¤ŠÆ ¢¤Š‹¤¤¤#&²Ôdˆ#פ'ç¤ 'çÄ'çÄ'ç%ÉÄ'çÄ'çÄ'áÄ'ç%ÉÄ(Ê( Ê(Ê#%ɰÔ(ÊŠ ("Ê"Œ¤#¢¤Š—ˆ!0üĈâÄç˜Ä– 1#ÚÔ ¤Š(#ÚÔ¤Š€8#ܶŸ‰!æ Úå Ô¤Š¤–Ä ˆ‰×¤ˆ&×x¤!&y¢Œ¤¤*‰å¡Ô)Ô‰"£Œ"¢¦Š ‰"£"¢¦‰"£$"¢¦‰"£$¤ !¢¦ !¦‰$Œ‰!Œ¢¤#¢‰£ˆ)×&×xŒ¦– I@Ù-@¶óª‰!¤#ç¤#ç&Ä+’„*Ä(¤!„É¢¤#ç„ÉÄ„„ÉÊ„Ê#ç „ÉÄ#ç „ÉÄ)á¤#ç „ÉÄ#ç „ÉÄ'€¶°Ô #ç€AÇÄŠ #ç€QÇÄ+'+ÉŒ¢Ê$+Å#z¤€$xܶŸ€Ž#æ Ü€€¶Ÿ Ôá#z ±$xÚå ÔóƒcƒeÃÌΟÔ$x€@ÝÇ’ ¤ – '&xá°Ô '&$’¤‰!¤!ç¤'%¢‰&‰’"xÚÔ='&$’¤'$¢‰&‰’"xÚÔ''ÉåÊ'É’ '$¢‰&‰’"xÇ’¤ –‡²ŸÔ ¤‹Ë‡Ô¤‹Áˆ‡×¤.礈.yפ‡¤ ‡¤‡ˆ/É×.×yŒ¤'.y¢Œ¢¤'¤/É ¤.ç.‡y‡x ¤ (°Ô6&¢¤$+²ŸÔ+¤ Š$¤ *±Ô.ç‡*!‡ ¤ &°(° ( ° ÔÌŠ.áÄ%*ˆ/É×.×x¢¤!*¢¤+*£¤ +°(± Ô(¤–€–('&%$#²Ÿ’¤ – + ÔŠ–×hþ`=( …z’  0vCLOCKDRIaSERDRIVEaSERDRIVE;tSERDRIVEaFLOPPYDReFLOPPYDR) SERDRIVE%uDZ11DRIV!VDZ11DRIVVPRIAMDRIVPRIAMDRI VPRIAMDRI VPRIAMDRIVDZ11DRIVEDZ11DRIV VDZ11DRIV VDZ11DRIVVDZ11DRIVIDZ11DRIVIDZ11DRIVIDZ11DRIV3ISERDRIVEVSTANDRIVVSTANDRIV VSTANDRIVVPRIAMDRIPRIAMDRIPRIAMDRIPRIAMDRIOMNIDRIV‚ÿOMNIDRIV[OMNIDRIV OMNIDRIV OMNIDRIVEOMNIDRIVEOMNIDRIVEOMNIDRIVECORVUSDR#EPRIAMDRI'EPRIAMDRI+EPRIAMDRIESERDRIVE ESERDRIVE SERDRIVESERDRIVEžSERDRIVE¤SERDRIVE&SERDRIVE¢ SERDRIVE à àJüT HJKCAlEßPABDC? îáÖÌPRM1070PRM1070PRM1070PRM1070 SOROC.MISCINFO€ø"NULSOHSTXETXEOTENQACKBELBSIHT'LF'VT(FFNCRMSOISIRDLEDC1DC2DC3DC4NAKSYNETBCANEMgSUBESCFScGS?RS?US SPBad C€‚³Ø •Cí¾SETUP üc €ü ®À‰ðî²INITS  c ü) ü1Ž@INTEACHSET c ‚ü8  ) 8 ÿÿsysteî micinfo,z19.miCINFOFILEHAND€†GOTOXYU ,<.>?135UA4 UB UC^MUDTN29876543210`h(TBUE"=TQ' &aO$UX_FUF^G6TG6^g##Tg#TH^LUITL<@1UJUK%TD !UL!UM UN UO$UP UQ TJ9UR  TCUS/  TP:UTTA7UU7UV8UW8UZTS)TT*TU+TV,TW-6.7/TR0ÊÊ€(@T@@DT@B@üˆ€X@€¾À€H€€ˆ€€.@ˆ¦@ˆ€44ˆ²ÀF.€€„€À0u@@@@ TESTSYSÜ Ð"¨ SYSTEM.DRVINFO ¨ SYSTEM.MISCINFOÛ§  SYSTEM.SHELLœ+ ª¦wSYSTEM.DRIVERS "¨wÈ SYSTEM.PASCAL+ ˆ¦Èç SYSTEM.FILERœ+ v¥çK SYSTEM.EDITOR+ ‡¤KšSYSTEM.COMPILER<§š¨ SYSTEM.SYNTAX+ †¥¨úSYSTEM.LIBRARY ã§ú SYSTEM.INTRINS "¨@@@@@@ TESTSYSÜ Ð"¨ SYSTEM.DRVINFO ¨ SYSTEM.MISCINFOÛ§  SYSTEM.SHELLœ+ ª¦wSYSTEM.DRIVERS "¨wÈ SYSTEM.PASCAL+ ˆ¦Èç SYSTEM.FILERœ+ v¥çK SYSTEM.EDITOR+ ‡¤KšSYSTEM.COMPILER<§š¨ SYSTEM.SYNTAX+ †¥¨úSYSTEM.LIBRARY ã§ú SYSTEM.INTRINS "¨@@@@@@ eceiver buffer empty} &WD_Overrun = 2; { bit indicating data overrun } &WD_DSR_Bit = 6; { bit for Data Set Ready } &WD_DSC_Bit = 7; { bit for Data Set Change (change in bit 6)} "  Type %Sys_Set = Set Of (Sys_Bus_Err, {Bus Error} 7Sys_Clock, {System Clock} 7Sys_Intvl, {Interval Time_r} 7Sys_Bank, {Bank Switcher} 7Sys_Pwr, {Power Fail} 7Sys_Prnt, {Printer Select} 7Sys_Int, {System Interrupts} 7Sys_Init {I/O System Init} 6); 4 %CTC_Regs = Record 2Counts : Array [0..2] Of Integer; 2Prog_Reg : Integer; 2Sys_Stat : Sys_Set; 0End {of CTC_Regs};  ){ WD 1931 UART declarations } ) %Ser_Bit_Set = Set of 0..15; %Ser_Registers = Record 8Reg_1 : Ser_Bit_Set; 8Reg_2 : Ser_Bit_Set; 8Stat : Ser_Bit_Set; 8Data : Char; 6End {of Ser_Registers};    Var CTC : ^CTC_Regs; {Clock and system status registers} (  Procedure Intr_Init (Var S : Semaphore; 9V : Integer; 5Var Enab : Boolean);   Procedure Intr_Enable;   Procedure Enter_Hdt;   Implementation ÿÿPASCALSY6SHELL €GETCMD „PROGOPS PROGEXECƒPROGSETU‚A(c) Copyright Advanced Computer Design, 1982 All Rights ReservedœHSHELL !„$”,Ä ¤–+”)–ƒƒzƒ”ƒ”€„”‰E†”„€„”¦E¤‰E²ŸÔ3˜±Ô †ƒ—¤Š¤ƒ”–Replace :.†” ˜¥ˆ^‚A€P”‰€·‰z׈@”ŸÔI‰z‘Ô‘ˆ^§±Ô †,”ˆ^¥†‚B”†ˆ@”†‚G€_”†€P”Š£”(¥‘Ô †ƒH—¥‰E²Õ}ÿ‰E°Ô¦E– K€&GETCMD !„$”+Ä ¤–+”'–>#¦€Ø€„”–ing...‚‚$ÎÕ„*‡€Ø€ÿ”„€ª‡€×€P”„€ª§±Ô’‰„€ª”‰‚ ”‰”ƒ$”„*‰€Öx„‰€Öƒ&—ƒ&”Ô‡€Ö’Š„€ª§±Ô‰„”‰”–€Ø.¬„‡€¯€ÿ”„€‡€®€P”‚i„€ÿ„§¢”„„€‡€­’–€¯*System.StartupWelcome  to"ACD's U.C.S.D. Pascal Version 1.0b???JanFebMarAprMayJunJulAugSepOctNovDec?????????Current date is *Profile.Text?eliforPSSystem re-initializedEdit:Runn/Command: X(ecute, S(ubmit, R(un, F(ile, E(dit, C(omp, M(emory, H(alt [1.0b]8Command: U(ser restart, I(nitialize, T(eletalker, P(rint€h#=EditFilExecute what file? Execut*X.CodeSubmittCompilMemory available =  words3A_Util:DZTalker.CodeTeletalk3A_Util:Print.File.CodePrint U not allowed Restarting...:RunnCompilCX]mhmÞ!QÒê#ú#„€Ö„$Ń&”ƒ&”„€‹„·ÿÿ”‡€×²Õ׉”‚€…‚€‡€×°Õ´¤€Ó¤$‡€Ó²Ô ‰”$¢¤Šì‰‚€Ž”‰ˆ@”‰‚€“”‰”‰”‰‚€•”‰‚€§”‰”‰”„€³×‚€ª”„€³×‚€¬”„€³×‚€®”„€³×‚€°”„€³×‚€²”„€³×‚€´”„€³×‚€¶”„€³×‚€¸”„€³×‚€º”„€³ ׂ€¼”„€³ ׂ€¾”„€³ ׂ€À”„€³ ׂ€Â”„€³ ׂ€Ä”„€³×‚€Æ”„€³×‚€È”‰‚€Ê”‰ˆDÉ” ‰€-”‰„€³ˆDÉ×”‰€-”‰ˆD É” ‰”„€‹‚€Ó””"°Ô„€†‚€ÚÅ„€†£ È€€„€† ”Š ‰‚€ß”‡€×€0ÚÔU‰ ²ŸÔˆ€‡× ‚€êŠ>‰ °‡€×°¡Ô1¤€Ù„€Ùˆ”„€Ù‚€í€W”„€Ùˆ€f”„€Ù‚€î¦‰€¿±Ô0‰€À¤‰€À¢‰çɦ€À‰€¿£¦€¿‰€¾"×)‚€ñ¦€¿¤ˆ^¤€Ù„€Ù‚€ò€/”„€Ù‚ €F”„€Ù‚€J”„€Ù‚€š”„€Ù€P””€!¤ €?°Ôˆ^‚€P””€!¤ ƒ7Úå¤!åÕv ÖŸ‹oˆ€‡× ‚=‹_ˆ€‡× ‚@‹O‰‚B”‰„€ÿ”‰”„§²ŸÔ„‚L‹!‚P‚T‹ˆ€‡× ‚X‹4³ŸÔ4ÿ¢¢ Ì ¢¤4ÿ¢¢ ¢¤Š¤4¤‰”‰‚\”‰#$ ¢” ‰$ ” ‰‚f”‰”‹ ‚j‚u‹”‚z‚†‹ˆ‰”‡€Öz˜°Ô‰‚‰”‰”Љ‚”‰”ŠQ‰Ô3¤€Ù„€Ùˆ”„€Ù‚—€W”„€Ùˆ€f”„€Ù‚˜¦Š ˆ€‡× ‚›Š ŠŠÕþ„€‹”ƒ&”‡€Ø¤&–%k) ¸„ÿÿ-SYSDRIVESYSDRIVE€¯CLOCKDRICLOCKDRI€ ECSP ‚SYSDRIVESERDRIVEž  SERDRIVE€CSP ƒFLOPPYDR‚SYSDRIVEFLOPPYDR!FLOPPYDR€^PRIAMDRI="PRIAMDRI€&ÃSTANDRIV)STANDRIV€,ßA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved   Const &I_No_Error = 0; {System I/O Errors} &I_CRC_Error = 1; &I_Undef_Err = 4; &I_Off_Line = 9; &I_Wrt_Prot = 16; &I_Bad_Block = 17; &I_Bad_Address = 18; & &Sys_Vec = -2; {current ^sib vector} &Cur_Task = -1;  {current ^tib register} &Q_Reg = -3; {current ^ready queue} & ){WD 1931 Bit definitions} &Ser_Addr = -1008; {FC10 hex} &Ser_Rcv_Int = 14; {000E hex} &Ser_Xmt_Int = 18; {0012 hex}  9{reg 1 bits} &WD_DTR = 0; { bit enables DSC interrupts } &WD_X_Enab = 1; { bit for xmit enable } &WD_R_Enab = 2; { bit for rcvr enable } &WD_Two_Stop_Bits = 5; { bit for # of stop bits } &WD_1_Stop = 5; { bit for # of stop bits } &WD_Normal = 7; { bit loopback/normal }  9{reg 2 bits} &WD_Rate_1 = 0; { bit which selects X32 clock }  9{stat bits} &WD_Xmit_Busy = 0; { bit indicates transmitter is busy} &WD_Rcvr_Empty = 1; { bit indicates r ²SERDRIVEåˆ&×x¤ y¤$ÔJ ç %Ä%Ô" xÖ œŠ!!xÝÇÄŠ !!x€@ÛÇÄŠŠ xÖ œŠ!!xÛÇÄŠ !!x€@ÝÇÄŠ#ÔN ç %Ä%Ô$ xÖœŠ!!xÝÇÄŠ!ç!z€@ÛÇÄŠŠ" xÖœŠ!!xÛÇÄŠ!ç!z€@ÝÇÄŠ– ˆ$×x¤#Ô çÄŠ }Ô çÄ çÞ– Fˆ#×x¤ y¤ xÖ€‡Š#!zÚ’ Š #!zÚ’ Š–‚Dx"BTK]f"BTK]f¤ôˆ$×x¤# æ°Ô }åÔ$’ Š $°Ô æ¤# æ°Ô$’ # æ°Ô ç |åÄ æÕ¡ æ æ°Ô ç#Ä‹ƒ€¥ç æ¢×¤#Ö€¦Šm!çÄ!çÄ!çÄ!çÄ!çÄ!çÄŠM!çÄ!çÄ!çÄ!çÄ!çÄ!çÄŠ-!ç!}ŸÄŠ$!ç!|ŸÄŠ!ç!{ŸÄŠ!ç!~ŸÄŠ !ç!ŸÄŠ çÄ ç æÄ# æ°Ô çÄ# æ°Ô ç æåÄ# æ°Ô ç#ß ç%Ä ç&Ä ç'Ħ ç#Þ# æ°Ôƒ€Ý—–- ÝD)Þ¤ˆ(×x¤%y¤&¤%çߤ%xÖ{ŠM€ÿ'{€ÿ¡£¤'zÚåÔ''xÛÇÄ''xÝÇÄ‹áŠ" ³ŸÔ €ÿ¡¤Š&y¤ ³ŸÔ¤Š ¤Š%æÔ!€¡¤!%çÐÚ%æ Ô(!’ ‹x%}Ô%çÞŠg%ç#ß%æ%€ ³ŸÔ)%ç(%æ&!È%ç&%æ&¢€ Ä%ç%%æ%¢Ä%æ%°Ô¤Š-%æ&°Ô€ £¤Š%æ&£¤%ç($§°Ô%ç&$Ä%ç%%æ%£Ä%ç#Þ#Ô%ç!Þ%xÖŠ'zÚ夊&xÚ ³Ÿ ¤Š"åÕïþƒƒ—Õßþ”– `„$È%„ ’¤–ž('¢¤++° Õ(+ˆÐÚåÔ ¤ ‹ˆ+×x¤¤ #ç ß#ç&åĉç)ɤ#çÄ("³ŸÕã#ç#ß#æÔ‰°Ô#çÄ#æÔˆ‰§¤‰¢¦ŠE#æ%°Ô #ç!âÄç˜Ä#ç#Þ#ç!ß#æÔ‹°ÿ#ç#ߊÙ#ç(#æ'§¤#ç'#æ'¢€ Ä#ç%#æ%£Ä#ç#Þ#æÔ6 #çÐÚ#æ Ô + ’ ‹mÿŠ+°Ô+ ¤ °Ô &åÔ+ ¤ )( È(¢¤ !°Ô#æ&å¡Ô+°Ô )(£"(££” "¤ ‹ÿ#ç ÞŠ¤ – Ä%Þ„âÄç˜Ä„”„ß’ ƒƒ—Ôñ”–aM„ˆ‰×x¤ y¤!¤ xÖ‚å‹€ ç ß"zÚÔŠ‰®SYSDRIVE&#Ä%âÄç˜Ä%$”–7‰ç€QÇÄ–|$ÞˆâÄç˜Ä€ÿ¤¤ !²Ô €"±Ôˆ ” ¢¤Šçˆ߉ç€UÇÄÔЀ"¤‰|ÚÔ!QÄŠ!Ä!ç@á!x£Ä!çþÿÄ!çÿÿÄ„ýÿÄÿÿôÑ!çÄýÿ Ñ–‰|€@ÜǤ‰çÇĉxǤ‰!ÝÇĉ!Çĉç ÇÄ–M Ô0ˆ üĈüĈ€ €ýˆ”Šœˆ’‰çÇÄŠ–Bj Œ€ " "Type Clk_Window = Packed Array [0..0] Of Char; 'Clk_Stat_Rec = Record 8Last_Word : Integer; 8Low_Time : Integer; 8High_Time : Integer; 8Fill_Array : Array [0..4] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); 6 True : (Hard_Disk : Boolean); 6End {of Clk_Stat_Rec}; $ $ $Procedure Clk_Init; $ $Function Clk_Read (Clk_Index : Integer; 7Start_Block : Integer; 3Var Buffer : Clk_Window; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " $Function Clk_Write (Clk_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Clk_Window; 8Index : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Clk_Clear (Clk_Index : Integer) : Integer; " $Function Clk_Power (Clk_Index : Integer) : Integer; " $Function Clk_Status (Clk_Index : Integer; 5Var Stat_Rec : Clk_Stat_Rec; 9Direct : Boolean) : Integer; $ $Procedure Clk_Term; $ " "Implementation DCLOCKDRI2%ç%çÉÊ%çʤ%¤„Þ–¶'Þ„„ƒ—‰¤„߃çxç€BÇÄ$ç ß$ç$æ¢Ä$æ°Ô $ç$æ¢Ä„$æÄ ˜±Ô* ç æ£Ä 沟¤!åÔ æ¤$ç Ä ˜°¤!Ôß$ç ÞÔ–”–‰çĉçĉç âÄç˜Ä‰ç˜Äƒçxç€tăçx×€aăçx×€QÄ„€ €Ã„”Šœ„’ –ß,³Õª„ÿÿÄ"ç˜Ä"ç,ʤ"ç"çÉÊ"ç€þʉç ß„‰æÄ!˜°Ô ‰ç"ÄŠT!æ"泟Ô"ç"æ!æ£Ä!¤!æ¤!˜°Ô ç"ÄŠ&!ç!æ"æ£Ä"ç!ʤ ˜±Ô ç"ÄŠ‰ç"Ä!˜°Ô¬‰ç Þ„âÄç˜Ä„ß)³Ô ‰ç+*”–ò&%‰ç”– ø–þ–PDQ ClkCLOCK^„þÿÄ%¤ ×x¤!"x"x×x¢Ä!ç‰æÄ!ç‰æÄ!ç‚”!ç Ä!ç ‚”!çÄ–d–r Ô’Š– 1þûòŽ_4€  " "Const Ser_Q_Size = 32; { bytes in type-ahead Queue } (Ser_Tab_Size = 25; " "Type Ser_Window = Packed Array [0..0] Of Char; 'Ser_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of „*ɇ0‡-‡.„*‡4ÇÊ„*É„*‡5ÇÊ„*ɇ7‡6‡:‡9‡8‰¤*„*É„*É„„§”–AI@Ù-@¶óU‰!¤#ç¤#ç&Ä+’ „*Ä(¤!„É¢¤#ç„ÉÄ„„ÉÊ„Ê#ç „ÉÄ#ç „ÉÄ)á¤#ç „ÉÄ#ç „ÉÄ'€¶°Ô #ç€AÇÄŠ #ç€QÇÄ+'+ÉŒ¢Ê$+Å#z¤€$’ }Ô)‰’ çâÄç˜Äƒƒ— ç߉’ ç ß"ç€ÿ#£ÄŠ6 ç ß!zÚÔŠ÷!ç#ÄŠ" ç ß }Ô çâÄç˜Äƒƒ— çß!ç#ÄŠƒ„çxç€QÇĤ–¦‰ç¤ ç$ØÉÔ É’#’–0 Kl ¤+,¢¤//±¡Ô¤‹™/ˆÐÚåÔ ¤‹ˆˆ/×x¤/°ÔA'ç#ß, ±Ô(‰°Ô ¤ ¤Š‰£¦ˆ‰-,§È,¢¤ ŠÓ'çÄ'ç#Þ'ç!Þ‹9*å¤*å¤#$ ¤'çß, ±'|å¡Õ/’ / °ÔR'y¤ (¤ 'ç ß)zǤ&Úå&Úå Ô ƒƒ—'ç ß&Úå'}å¡ÔØ)ç€ÿ-,§£Ä,¢¤ , °'| ÔÁƒƒ—‹¨%Õ‘-,§¤'~Ô'çÄ€!"¤ ¤!(²Ô € !¢¤ŠðŠh"ƒƒTÚÔ\"ÖƒVŠT#Ô'çÄŠŠE$/°¡Ô.‰ç¤ (çÉ±Ô (çÉŠ(É(çÉŠ Š $Ô ŠŠ"Š-,§,¢¤ , °'| ÕXÿ'ç ß/’ ƒƒ—'çÞ–; #ˆÐÚåÔ ¤‹¸ˆ#×x¤¤ çß çÄ çÄ æ Õ”#PÚÔ? ç æâ¼ æâ¼Û æâ¼Û æâ¼Û æâ¼Û æâ¼ÛÇŽ ç çÐ æâ¼ÛÇŽŠ ç æâ¼ æâ¼ÛÇŽ çÇŽ çÄ ç æÄ çÄ ç#ß ç%Ä ç&Ä ç'Ä#°Ô¦ ç#Þ çÞ–B –CONSOLESYSTERMREMOUT1REMIN1REMOUT2REMIN2REMOUT3REMIN3REMOUT4REMIN4PRINTERFASTCONKEYBUFRREMOUTREMIN*7CO[gs‹—£¯PDQ SerDLV-11LPV-11Q %ˆÐÚÕ;$¤¤%Ô ˆ%×xæ%Ä ç€ ÄŠ%°Ô ‰£Ä çÄŠ Ä çÄ ç%°Ä ç Ä%Ö„Ý‹¸ ç ‚„¢”‹« ç ‚„¦”‹ž ç ‚„ª”‹‘ ç ‚„®”‹„ ç ‚„²”Šx ç ‚„¶”Šl ç ‚„º”Š` ç ‚„¾”ŠT ç ‚„”ŠH ç ‚„Æ”Š< ç ‚„Ê”Š0 ç ‚„ΔŠ$ ç ‚„Ò”Š ç ‚„Ö”Š ç ‚„Ú”Šˆ%×xxÖ„ýŠ$ ç‚„ñ”Š ç‚„õ”Š ç‚„ù”ŠŠ ¤– ƒê „&Ä%Ö…ªŠ!x¶ÔŠ !z¶ÔŠƒ„||ÚÔƒ„çxçÇÄ‹F'Ô ˆ*×€9” Š ˆ*× ” ˆˆÐ*â¼ÛÇŽˆ*×x¤"ç 'Ä"ç&Ä"%Ä"xÖ…¯Š"y€ÿ€¡ÝÇÄ"yç€ÿÝÇÄŠ"çâÄç˜Ä"çÄ*’ "çâÄç˜Ä"ç ("ç ƒ…²—"æ Õ­ˆ*¢×ˆ*×xĈˆÐ*¢â¼ÛÇŽ"ç€Q€@£Ä"ç€S€@£Ä"ç€F€@£Ä"ç€D€@£Ä"ç€@€@£Ä"ç€X€@£Ä"ç€P€@£Ä"ç âÄç˜Ä"ç)"ç ƒ…²—"ç!âÄç˜Ä"ç#âÄç˜Ä"çĈ€K€Ü„”Šœ„*’ *’ *’¤– ë ˆPÇŽƒ…³çxçÇÄü€À€Ä þ€È€Ì¤þ€Ð€Ô¨þ€0€4¸ÿ €€€€¤ÿˆ ׈×xĈ׈×xĈÐÚÔ/ˆˆÐƒ†vÛÇŽˆ×ˆ×xĈ׈ ×xÄ€à€ä°þ€è€ì´þ€ð€ô¸þ€ø€ü¼þ„€ €Ò„”Šœ„’–ò – Ô’Š–µDëÑ&†àuø 8^2yû€   {$D System_Driver+ System-worthy driver, as opposed to bootstrap version} "  Const Fl_Max = 1; {0-based maximum floppy number}   Type Fl_Window = Packed Array [0..0] Of Char; %Fl_Stat_Rec = Record 8Filler : Integer; {not used} 8Bytes_Sector : Integer; 8Sectors_Track : Integer; 8Tracks_Disk : Integer; 8Fill_Array : Array [0..3] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit : Integer); 6End {of Fl_Stat_Rec}; %Fl_Unit_Num = 0..Fl_Max; %Fl_Side_Choice = 0..1; %Fl_Dens_Choice = False..True; %Fl_Byte_Choice = False..True; {normal vs 512 byte sectors} %Fl_Nibble = 0..15; %Fl_Byte = 0..255; %Fl_Com_Rec = Packed Record 8Com_Byte : Fl_Byte; 8Disk_Num : Fl_Nibble; 8Trash : 0..3; 8Density : Fl_Dens_Choice; 8Side : Fl_Side_Choice; 6End {of Fl_Com_Rec}; %Fl_Attrib = Record 8Cur_Track : Integer; 8Cur_Sides : Fl_Side_Choice; 8Flpy_Cmd : Fl_Com_Rec; 8Dec_Format : Boolean; 8Noisy : Boolean; 8Flipped : Boolean; 8TI_Format : Boolean; 6 Ext_Format : Boolean; 6End {of Fl_Attrib};   Var Fl_Desc : Array [Fl_Unit_Num] Of Fl_Attrib; " "Procedure Fl_Init; " "Function Fl_Read (Unit_No : Fl_Unit_Num; 4Start_Block : Integer; 0Var Buffer : Fl_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer;   {$B System_Driver} " "Function Fl_Write (Unit_No : Fl_Unit_Num; 5Start_Block : Integer; 1Var Buffer : Fl_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer;  "Function Fl_Clear (Unit_No : Fl_Unit_Num) : Integer;  "Function Fl_Power (Unit_No : Fl_Unit_Num) : Integer;  "Function Fl_Status (Unit_No : Fl_Unit_Num; 2Var Stat_Rec : Fl_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure Fl_Term; "  {$E System_Driver}   Implementation  =False : (Vol_Name : String[7]; FIn_Unit : Boolean); =True : (Hard_Disk : Boolean); 9End {of Stan_St_Rec}; & $Procedure Stan_Init; $ $Function Stan_Read (Stan_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Stan_Window; 8Index  : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Stan_Write (Stan_Index : Integer; 9Start_Block : Integer; 5Var Buffer : Stan_Window; 9Index : Integer; 9Bytes_Left : Integer; 9Control : Integer) : Integer; " $Function Stan_Clear (Stan_Index : Integer) : Integer; " $Function Stan_Power (Stan_Index : Integer) : Integer; " $Function Stan_Status (Stan_Index : Integer; 6Var Stat_Rec : Stan_St_Rec; :Direct : Boolean) : Integer; $ $Procedure Stan_Term; $ " "Implementation ÞSTANDRIV–j„„Å%£¤¤ !²Ô;)³ŸÔ'‰' ¤ ¤ „”,+-ȉ” Ô' È”"¤ Š' Ȥ ¢¤ŠÀ*¤– Î*³ŸÔQˆ×xæˆ×x昱 Ô"&£¤¤!"²Ô‰('!¢§”!¢¤ŠèŠˆ×x('&””"¤ Ф – פ–Þ–STANINSTANOUTBUCKETSys I/O—¤%¤!Ä!çĉE±Ô7ˆ×x¤ z ‰9±¡Ô æ¤Šï ³Ô‰€· ×|å&°¡Ô %”!ç Ä&Ö|œŠ!!ç ‚p”Š!ç ‚t”Š !ç ‚x”Š!ç‚€”!ç&°Ä–ž–© ÔŠ–Άni9 Ñ€xܶŸ€Ž#æ Ü€€¶Ÿ Ôá#z ±$xÚå Ô󃂯ƒ‚±ÃÌΟÔ'€¶°Ô $xÇ’¤ Š$x€@ÝÇ’¤ – å&xá°Ô '&$’ ¤‰!¤!ç¤'%¢‰&‰’ "xÚÔO'&$’ ¤'$¢‰&‰’ "xÚÔ1‰€M²ŸÔ '&$’ ¤''ÉåÊ'É’'$¢‰&‰’ "xÇ’ ¤ –>‡²ŸÔ ¤‹E‡Ô¤‹;ˆ‡×¤.礈.yפ‡¤ ‡¤¤ˆ߇Ô‡¤Š"‡ˆ/É×.×yŒ¤.~åÔ '.y¢Œ¢¤'¤/ɤ.ç.‡y‡x¤ (°Ô`&¢¤$+²ŸÔ+¤ Š$¤ ‡*°¡Ôˆ/É×.×x¤ *±Ô.ç‡*!‡ ¤ (±.|¡Ô .ç‰!&(&°(° ( ° Ô¢Š.áÄ.|Ô .ç‰!(%*ˆ/É×.×x¢¤!*¢¤‡+°¡ÔŠ+*£¤ +°(± Õ>ÿˆÞ(¤.}Ô ‡‡‡’ -Ô ¤ „ ”–W€–('&%$#²Ÿ’¤ – €ˆ(×}Ô&%$’ €¶('&%$#²Ÿ’¤ – Ž Ô’Š–-´W’uuP`=( MJ0.!zB€ "  {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Type Prm_Window = Packed Array [0..0] Of Char; %Prm_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4End {of Prm_Stat_Rec}; " "Procedure Prm_Init; " "Function Prm_Read (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : Prm_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; "  {$B System_Driver} " "Function Prm_Write (Unit_No : Integer; 6Start_Block : Integer; 2Var Buffer : Prm_Window; 6Index : Integer; 6Bytes_Left : Integer; 6Control : Integer) : Integer; " "Function Prm_Clear (Unit_No : Integer) : Integer;  "Function Prm_Power (Unit_Num : Integer) : Integer; " "Function Prm_Status (Unit_No : Integer; 3Var Stat_Rec : Prm_Stat_Rec; 7Direct : Boolean) : Integer; " "Procedure Prm_Term; "  {$E System_Driver} " "  Implementation ÂPRIAMDRI4$¤„ É°Ô „ ɤŠ „ É¢¤–T‰¤ ¤!ç¤"Ê"ÉÔŠø–'°„„ʼn¤#ç¤#¤„)Ä(¤!„É¢£¤$„ÉÊ#ç„ÉÊ#çÊ#ç'á£Ä$ Ê$Ê$Ê$ +€R°Ê$ Ê&ç*Ê&ç+Ê$ Ê%çÉÔŠö%çÉÔ’ $ Ê%&çÅ$ Ê%&Å$É$É Ôõ%çÉÔ+€S°Ô%z¤Š%çÄŠå$ÉÔú$ÉÔ€€¤ Šo%礀€-É¢¤ -ÉÖ+œŠX¤ ŠS-ɰԤ ŠF-ɰԤ Š ¤ Š4-ɰÔ¤ Š%-ɰԤ Š-ɰԤ Š -É°Ô ¤ Š’ ,¤– ,‡’ ¤‡Ô¤Ša!°Ô¤ŠW‰¤ˆ6‡×¤!¤ ‡‡/x¢¤#/y¤%¤„%Ê„#/yÊ„ ‡/xʇ‡‡‡‡„’ ¤–!„)Å.‰²„ÉÚ Õ¨ˆ.פ¤¤„ÉÖŠ>*°Ô¤ Š2-ˆ6„É×x¢£¤Š%z*’ £-³ŸÔ¤Š %y¤„%xÊŠ-Ô7*²Ÿ*³Ÿ¡Ô*¤Š¤(,„É+!-"’ ¤+!¢¤ *!£¤ -¢¤ °Ô(,„É+*-"’ ¤Š ¤ ¤–û”„‘„•Å„„ Ĉ6‡‘פމ¤‡¤‡ç¤’‡’ ÉÕÀ€…‡‘!„’ °Õ¡‡’ Ê‡Ž‡çÉć’ ʇŽç‡ÉÄ€S!‡‘‡Žx£’ °Ô`*¤“¤ ‡“²ÔR„ × ¤”ˆ‰×¤•‡”çÉÔ.‡•‡‘ć•燔xć•燔çÉĉ±Ô‰¢¦ ¢¤ЧР‡ŽćŽçÄ–•/¦‰¤¤ !³Ô ‰±Ô  £¤Šê‰£¦–T ÿ¦ˆâÄç˜Ä€"¤ ɦ’–{ ¤ ¤ +²Ô€ „„’ ¤ ¢¤Šå– ‘#‰²Ô¤Š ¤–Priamÿ$¤ˆ%פ¤ Ä çÄ%‰²Ô çˆ6!x×xÄ ç!z¢ zÄ ç!xÄŠ çÄ çÄ çÄ ç‚‚J” ç Ä ç Ä––2$¤ˆß)('&%„€R’ ¤ „ɰԒˆÞ– R$¤ˆß)('&%„€S’ ¤ ˆÞ– c Ô’Š’–‚Ü2 ,N‚@…›«€ # $Type Stan_Window = Packed Array [0..0] Of Char; )Stan_St_Rec = Record ;Chars_Queued : Integer; ;Queue_Size : Integer; ;Fill_Array : Array [0..5] Of Integer; ;Device_Name : String[7]; ;Case Is_Blocked : Boolean Of  6Start_Block: Integer; 2Var Buffer : Dtc_Window; 6Index : Integer; 6Byte_Count : Integer; 6Control : Integer) : Integer; 6 "Function Dtc_Clear (Unit_No : Integer) : Integer; " "Function Dtc_Power (Unit_No : Integer) : Integer; " "Function Dtc_Status (Unit_No : Integer; 3Var Stat_Rec : Dtc_Stat_Rec; 7Direct : Boolean) : Integer; 7 "Procedure Dtc_Term; 0  {$E System_Driver}   Implementation rDTCDRIVEŒ„ĉ¤'¤¤%+Ê%Ê% *Ê%çÊ„)Ä(¤ „É¢¤„„ÉÊ$ç„ÉÊ$çÊ"'Å$çÊ$çÊ$ç„Å$çÉÔø– ó‰çÊ„2Ê„2ʄʄ€™Ê„€™Ê„ʄʄ Ê „„’ –ž ‰Õ‘‰¤„+Ê„*Ê)¤„ „ÉÊ„„ÉÊ„„ ÉÊ/-.,„’ &çÉÔI€€¤&ÉÔ=-„„’ „ÉÖ{œŠ& ¤Š!„É°Ô¤Š¤Š„É°Ô¤Š’ ФР¤–Ù…‰ „ˆÉ‡€‡‡€†’ ¤€ˆ„‰‰‰Œ¢‰”–€‡<Hì „,Å.Ô¤‹‡‰²„ÉÚ Ôkˆ‡×¤ ¤¤„ÉÖ€îŠP-¤„ É°Ô „ ɤŠ „ É¢¤(z$£‡³ŸÔ¤Š (y¤„(xÊŠ-°Ô¤Š ‡¢£¤ŠŠ ¤+ °Ô-¢£¤Š-¤‡Œ¤ ‡¢¤ˆß%°#²Ÿ¡Ô+/„É.#"!’ ¤%°+°¡-±¡Ô"#€ ¢!"#¢€ ¢ ¤ˆÞ%¤–ÿÿÿÿuˆ#ʉˆ’ °Ôc‰ƒwÚÔX‰¤¦‰ ²ÔHˆ‰× ¤ˆ‰×¤!çÉÔ""#Ä"ç!xÄ"ç!çÉĉ±Ô‰¢¦‰¢¦б–·ˆ„Ê„„Ħ‰¤ˆ¤ ‡ˆ²Ô ‰±Ô  ¢¤Šè‰£¦–ˆøˆÿ¦ˆâÄç˜Ä€"¤ ɦ‰çTUĉ{TU°¦‰Ô’ ’–þ–ÿÿbRL02DRIV:.RL02DRIV€2rDTCDRIVE65DTCDRIVE€8sTM11DRIV;TM11DRIV€>rRX02DRIVARX02DRIV€GSYSDRIVEOMNIDRIVGLOMNIDRIV€OðSYSDRIVECORVUSEMßR CORVUSEM€W>DZ11DRIV[ DZ11DRIV€^Ü   Type RL_Window = Packed Array [0..0] Of Char; %RL_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of RL_Stat_Rec}; " "Procedure RL_Init; " "Function RL_Read (Unit_No : Integer; 4Start_Block : Integer; 0Var Buffer : RL_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer; " "Function RL_Write (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : RL_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; " "Function RL_Clear (Unit_No : Integer) : Integer;  "Function RL_Power (Unit_Num : Integer) : Integer; " "Function RL_Status (Unit_No : Integer; 2Var Stat_Rec : RL_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure RL_Term; " "  Implementation qRL02DRIV0„%Å„$ʉ„ʼnÉÔø–Á„$ʼn¤!ÉåÔ¤Šu! ÉÔ¤Šj! ÉÔ¤Š_!çÄ„’ 8!{ܶŸÔ ¤Š6À!{ܶŸÔ¤Š$$!{Ü$¶Ô¤Š !{ÚÔ¤Š€€¤!ç Ä„’ –‰¤&’ !ç ɤ %²ŸÔ !çÊŠ!çÊ!ç  %£àÊ!ç$Ê&’ –%%ÿ²Ô&%$’ &’ ¤Š¤–#„ ‡Å‡Ô¤‹ä‰ÕÛ‰¤ ‡¤ „‡Ä%„ É¢¤ /‡¢¤"¤"¤‡Œ¤€(#£Œ¤¤„ $& ¤!°Ôl ¢¤'‡²ŸÔ‡¤ Š'¤ (±ÔE+ç(áÄ„ „ ÉÊ+ç„ ÉÊ+çÊ+ç $Ê+ç#Ê+ç&Ê„ . „ ¤ °!° ! ° Ô”‡(¢¤‡(¢¤‡(£¤‡°!± Õ,ÿŠ ¤!¤–ÿÿÿÿ¶ˆ„„Ĉ‡‰×!£’ °Ôi"ƒÚÔ`"¤†¤ ‡†²ÔR„ × ¤‡ˆ ‰ פˆ‡‡çÉÔ.‡ˆ‡‰Ä‡ˆç‡‡xćˆç‡‡çÉĉ ±Ô‰ ¢¦ ¢¤Ч–‰ë¦ ‰¤¤ !³Ô ‰±Ô  £¤Šê‰ £¦ –Dˆ€üĉɦ‰Ô%¤¤¤ #²Ô„ ʈ ׄŠ¢¤ŠäˆâÄç˜Ä€"¤!ɦ’–Y#‰ ²Ô¤Š ¤–`–RL-02¯$¤ˆ %פ¤ Ä çÄ ç€(Ä ç!z¢ zÄ ç‚±” ç Ä ç Ä ç!xÄ–¶–e„(Å-‰ ²„ÉÚ Õƒˆ -פ¤¤„ÉÖÜŠN)°Ô¤ ŠB,¢£¤ Š9)¤„ É°Ô „ ɤŠ „ É¢¤%z"£,³ŸÔ¤Š %y¤„%xÊŠ °Ôˆ„É×+*),!.’ ¤Š ¤ ¤–…$¤ˆß)('&%„’¤ ˆÞ– ±$¤ˆß)('&%„’¤ „ɰԒˆÞ– À Ô’Š–â^…c •Úµ¯¤E5x[€  {$D System_Driver+ } !  Type Dtc_Window = Packed Array [0..0] of Char; %Dtc_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4End {of Stat_Rec}; " "Procedure Dtc_Init; " "Function Dtc_Read (Unit_No : Integer; {volume number minus 9} 5Start_Block : Integer; {starting transfer block} 1Var Buffer : Dtc_Window; {base address of data transfer} 5Index : Integer; 5Byte_Count : Integer; 5Control : Integer) : Integer; "  {$B System_Driver} "Function Dtc_Write (Unit_No : Integer;  X02 type system } 4Ad_Ext : 0..3; { extended bus address } 4Init : Boolean; { initialize } 4Error : Boolean; { error } 2End; {of RX_Cmd_Rec} % %RX_Attrib = Record 3Track_Num : Integer; 3Cur_Sides : RX_Side_Choice; 3RX_Command : RX_Cmd_Rec; 3Dec_Format : Boolean; 3Noisy : Boolean; 3Flipped : Boolean; 3V_Sector : Integer; 3Sector_Num : Integer; 1End {of RX_Attrib}; 5  Var RX_Desc : Array [0..RX_Max] Of RX_Attrib;  "Procedure RX_Init; " "Function RX_Read (Unit_No : RX_Unit_Num; 4Start_Block : Integer; 0Var Buffer : RX_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer;   {$B System_Driver}  "Function RX_Write (Unit_No : RX_Unit_Num; 5Start_Block : Integer; 1Var Buffer : RX_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer;  "Function RX_Clear (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Power (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Status (Unit_No : RX_Unit_Num; 2Var Stat_Rec : RX_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure RX_Term; "  {$E System_Driver} "  Implementation #‰²Ô¤Š ¤–Scribes$¤ˆ%פ¤ Ä çÄ ç€ Ä ç!z¢ zÄ ç‚‚ ” ç Ä ç Ä%‰²Ô ç!xÄŠ çÄ–z–$¤)('&%„ ’ ¤ „ɰԒ– µ$¤)('&%„’ ¤ – Ä Ô’Š–z½ÑôH þ<?QÞ]€   Type TM_Window = Packed Array [0..0] Of Char; %TM_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of TM_Stat_Rec}; " "Procedure TM_Init; " "Function TM_Read (Unit_No : Integer; 4Start_Block : Integer; 0Var Buffer : TM_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer; " "Function TM_Write (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : TM_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; " "Function TM_Clear (Unit_No : Integer) : Integer;  "Function TM_Power (Unit_Num : Integer) : Integer; " "Function TM_Status (Unit_No : Integer; 2Var Stat_Rec : TM_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure TM_Term; " "  Implementation qTM11DRIV‹‰z°Ô #ÝǤ3#ܶŸÔ¤ŠQD#ܶŸÔ¤Š@#ܶŸ€A#Ü€A¶Ÿ Ô ¤Š%$€LÚ#Ú¡Ô¤Š¢#ܶŸÔ¤Š¤–'„'ʼn¤„Ê„*ʄʄ)Ê„ Ê„„ØÉåÊ„ „ØÉåÊ#ç(áÄ#ç„Å#x€ܶŸÔó&(#z¢Ä#çÉÔ(*#xÇ’ ¤ #xÚÔ)„„’ ¤&ÿáÄŠ¤ – [ˆâÄç˜Ä¨ú¦‰¤!ç¤" Ê"ɦ!ç Ê–‰%²¡Ôˆß%„„’ ¤ˆ%×ĈÞŠ ¤–”–TM-11Õ$¤¤ Ä çÄ çÄ çÿÄ ç‚€Ë” ç Ä ç Ä ç%Ä–‰Ô¤¤"#²Ô"„„’ ¤"¢¤Šç–î„)Å*x¤„Ê„-Ê„„Éʄʄ,Ê„ „ØÉÊ„ Ê„„ØÉåÊ„ „ØÉåʉ¤%ç+áÄ%çÊ%ç„ÉÊ%ç„Å€%xܶŸÔó%çÉÔ-%xÇ’ ¤Š¤„%çÉÊ„%çÉÊ*#Ä%xÚÔ,„„’ ¤(ÄŠ! â¼â¼ÛÚåÔ((x¢Ä!¤–u„&Å'(x£¤!°Ô¤ Šb!³ŸÔA!á'²Ÿ!᳟¡Ô‰„ˆ’ °Ô'¤(Ä(x±Ô‰!á„„’ ¤ ((x £Ä!²ŸÔ‰!„„’ ¤ ((x ¢Ä(x³ŸÔ(Ä– ‹ ‰‡²¡Õþ/Ô¤‹ó-¤ /¤„‡„É×Ä„ ØÉÔ ¤ .¤.¤Š0.¤„ É°Ô „ ɤ Š „ É¢¤ ¤.(Œ£¢¤„ ØÉåÔ‡ ¢¤ˆß¤¤'(²!°¡ÔV¤ˆ‡×‡„ ¤!°Ô#‡°'(°¡Ô$¤‡‡%„„ ˆ‡×’ ¤&¢¤&°!° Ôº'¢¤‡¢¤Š¡‡°!°¡„ ØÉ¡Ô‡„ „’ ¤ˆÞŠ ¤!¤–Ÿ('&%$#’ ¤ – ³('&%$#’ ¤ – Å Ô’Š’–y½H íÏɰRH–\€    {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Const RX_Max = 1; { zero-based } "  Type RX_Window = Packed Array [0..0] Of Char; %RX_Stat_Rec = Record 8Filler : Integer; {not used} 8Bytes_Sector : Integer; 8Sectors_Track : Integer; 8Tracks_Disk : Integer; 8Fill_Array : Array [0..3] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit : Integer); 6End {of RX_Stat_Rec}; % %RX_Unit_Num = 0..RX_Max; %RX_Side_Choice = 0..1; %RX_Dens_Choice = False..True; { single..double } % %RX_Cmd = (RX_Fill_Buffer, /RX_Empty_Buffer, /RX_Write_Sector, /RX_Read_Sector, /RX_Format, /RX_Read_Status, /RX_Write_Delete, /RX_Read_Error); % %RX_Cmd_Rec = Packed Record 4Go : Boolean; { initiates command } 4Func : RX_Cmd; { command codes } 4Unit_Sel : 0..1; { selects drive } 4Done : Boolean; { function complete } 4Int_En : Boolean; { interrupt enable } 4Transfer : Boolean; { data available or need data } 4D_Density : RX_Dens_Choice;{selects single/double density } 4Cur_Side : RX_Side_Choice;{ selects side 0/side 1 } 4Unused : 0..1; { unused; must be zero } 4Is_RX02 : Boolean; { indicates R „€ƒ’ ˆÞ‡€„ç„É怄ç‚Ó”‡€„ç 怄燀‰°Ä‡€„æÔ‡€„ç ‚Ö”Š ‡€„ç ‚Ú”‡€„ç ‡€„ç §€0‡€‰¢È–€‰x–„*Ä)¤"„É¢¤‰,²Ÿ Ô ¤Šv)Ô¤Šn,Ô¤Šf ¤'¤ˆß„ÉÔ ,(+ÿÿ’ Š%„ÉÔ¤Š€@¤#$y,$x(„É+„É’ $yÉ€€³Ÿ$yÉ€À° Ô¤Š$yɤˆÞ– ´„)Ä(¤"„É¢¤‰+²Ÿ Ô ¤ Š{(Ô¤ Šs+Ôm ¤#y¤ˆ+פ&¤%ç߈ß„ÉÔ +'*’ Š€ð#y+#x'„É*„É’ ˆÞ$É€ÿ°Ô%çß$É€€³ŸÔ¤ Š$ɤ %çÞŠ¤ – Â Ô’Š–ÿ˜Y S¤ß;§>Œ`Ü€   "Const Corv_Max_User = 63; (Corv_Max_Drive = 15; (Corv_Max_Sem = 31; {Highest semaphore number} ( " "Type Corv_Byte = 0..255; (Corv_Drive_Range = 0..Corv_Max_Drive; (Corv_User_Range = 0..Corv_Max_User; (Corv_Window = Packed Array [0..0] Of Char; (Corv_Sem_Result = (Corv_Sem_Set, Corv_Sem_Clear, Corv_Sem_Full); (Corv_Sem_Name = Packed Array [0..7] Of Char; & Corv_Sem_Table = Array [0..Corv_Max_Sem] Of Corv_Sem_Name; (Corv_Prm_Block = Packed Record ;Ascii_Text : Packed Array [0..31] Of Char; ;{Firmware : Corv_Byte -- last byte of Ascii_Text} ;ROM_Version : Corv_Byte; ;Sectors_Track : Corv_Byte; ;Tracks_Cylinder : Corv_Byte; ;Cyl_Drv_LSB : Corv_Byte; ;Cyl_Drv_MSB : Corv_Byte; ;Phys_Cap_LSB : Corv_Byte; ;Phys_Cap_IB : Corv_Byte; ;Phys_Cap_MSB : Corv_Byte; ;Spares €RX02DRIVRX-02w‰%²¡ÔOˆ%פ$¤¤!Ä!çˆ çÉ×xŒÄ!çˆ y×xÄ!ç€MÄ!ç‚ ”!ç Ä!ç Ä!ç%ÄŠ ¤–Ç#²‰¡Ô=ˆ#פ 礈ß!ʉ çʼnÉÔø‰yÚÔ¤Š ¤ˆÞŠ ¤–ΖԖ²ˆ<ÿĉ ɦ‰ÕˆâÄç˜Ä€"¤ˆ×Ĉ×€4Ĥ¤ #²Ô&ˆ פ Ô$çÄŠ$çÄ$$yÄ ¢¤ŠÕ¤¤!#²ÔXˆ!פ$ç¤$çÄ$çÄ$çÄ$ç"ÉÄ%Ê%"É!¢Ê%Ê%"ÉÊ% Ê% Ê%Ê!¢¤Š£‰ʉÉÔø–>'¤#ç¤#{‰ 塤ˆ#y×x¤&‰ å¡Ô $ÉÔ#ç#~!£!¢ÄŠ #ç#~!£Œ!¢Ä##~!Ä#x€L²ŸÔ#€L¢Ä#~!¤"Ô Œ! Œ!¢#x£Œ¢!¤#ç ¢Ä$ Ê–z„(Ä"'¢¤&¤¤ #²Ô""¤$ɤ$$ÉÊ$!Ê"¢¤ ¢¤ŠÙ– –# ³ŸÔ€0#¢¤Š€A#¢ £¤–xxÓ$¤ˆ‚Lˆ”„ÉȈ‚Mˆ”„ÉÈ–ExxFlop_xx [xx] xx C-xxxx E-xxxx EC-xx CT-xx DT-xx DS-xx LT-xx Vs-xxxxÀ*¦„‚k€P”„ È„Ȉɉ‰„*ˆÅ„*É„*É„* ‰ ÇÊ„*É„*ɈɈˆɧˆÉˆÉ‰‰‰„„§”–*#)#²„ ‡Å‰¤‡¤„‰Å‡yÚ¤„„Ä„  „ÉÊ„„Éʄʄ ʇ„ ŇɇÉ Ôó‡ç ćÉÔù€€¤„ÉÖáŠ."Ô¤Š ¤Š!¤Š ¤Š¤Š¤Š €€¤Šÿÿ¤Š!¤!â¼ â¼ÛÚå-¡Ô –E„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕI¤¤&¢¤‡‡çŇɇÉ Ôó‡ç‡Ä„ ‡Å‡ç‡~¢Ä‡ç‡xć’ ‡ÉÔù‡ÉåÕ¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"Ä„„Å #¢¤‡¤‡#£¤‡ÉÔù‡ÉÔ $¤„„ŇÉÔ9‡„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÀþ¤‹°þ%¤‡¤–Õ„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕA¤¤&¢¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"ćÉÔù‡ÉåÔW‡‡çŇɇÉ Ôó‡ç‡Ä„„Å #¢¤‡ç‡xÄ„ ‡Å‡¤‡#£¤‡ç‡~¢Ä‡’ ‡ÉÔù‡ÉÔB$¤„„Ň„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÈþ¤‹¸þ%¤‡¤–u¤*¤%ç¤)Ô%ç.ÄŠ%çˆ%y×x.ˆ&É×yŒ¢Ä,¤-¤-Ô¤ŠI(Ô„É„É+*¤Š"*}Ô +„É„É „É„É+*¤*}Ô +„É„É Ô ¤„”–¡(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Í(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Ü Ô’Š–'[?Oþ!Ûïi f>S=li€ "  Type Omni_Window = Packed Array [0..0] Of Char; %Omni_St_Rec = Record 5Chars_Queued : Integer; 5Queue_Size : Integer; 5Network_ID : Integer; 5Fill_Array : Array [0..4] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 3End {of Omni_St_Rec}; " "Procedure Omni_Init; " "Function Omni_Read (Socket_Num : Integer; 6Node_Num : Integer; 2Var Buffer : Omni_Window; 6Index : Integer; 6Bytes_Left : Integer; 6Control : Integer) : Integer;  "Function Omni_Write (Socket_Num : Integer; 7Node_Num : Integer; 3Var Buffer : Omni_Window; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " "Function Omni_Clear (Socket_Num : Integer) : Integer;  "Function Omni_Power (Socket_Num : Integer) : Integer; " "Function Omni_Status (Socket_Num : Integer; 4Var Stat_Rec : Omni_St_Rec; 8Direct : Boolean) : Integer; " "Procedure Omni_Term; " "  Implementation ï OMNIDRIVª$ÞˆâÄç˜Äˆ€¸”‰¤ˆ߃ —¤¤ "²Ôaˆ פ#x˜±ÔL#xÉ€þ²ÔB#xÉ€þ°Ô#çÄ#x€ÿÊŠ&#Ô#ç#xçÉŒ#xçɢĊ#ç#}Ä#˜Ä#çÞ ¢¤ŠšÔ‰”–,‰¤!¤ˆ'פ#%Ä#x€ÿÊ#ç$Ä#çÄ#çÄ#çâÄç˜Ä„&Ä"ÉÔú!ç„ÉÄ„„ÉÊ„Ê"ÉÔú!ç„ÉÄ"ÉÔú!ç„ÉÄ#çß–ù ‰Ô’ „‡Ê„‡Ä ¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ„/Ä+Ô £¤„„ÉÊ„„ÉÊ„+Ê„„ÉÊ„„Éʇ°Ô„,ÊŠ„‡Œ€€¢Ê.¤„„ÉÊ„„ÉÊ„-Ê„,ʇ„!.’ –¡ „ ‡Å‰Ô’ „Ê„-Ê)¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ/£¤ ¤!*²ÔD.¤„„ÉÊ„„ÉÊ„(!§Ê‡„)’ „ɰÔ(!)ÉÈ.¢¤!¢¤Š·)Ê–ºƒ¦€ „„’ –€ƒCþ¦ƒ çxçÇĉʃ ||Ú¦‰Ôƒ çxçÇÄŠHˆâÄç˜Ä¤¤ "²Ôˆ פ#˜Ä#çâÄç˜Ä ¢¤Šß„€(€Ò„”Šœ„’ ¦–J–¢†‰‡€‡²Ÿ Ô ¤€ˆŠ@ˆ‡€‡×¤€„¤€ˆˆ߇€‡‡€„x˜±¡Ô‡€„x€ýʈÞ„‡€‡„€ƒ’ ˆÞ–€‡OmniNETINxNETOUTxq†‡€ˆ¤€„‰‡€‰²Ÿ Ô ¤€Š‹˜¤€Šˆ‡€‰×¤€…‡€„‡€…~怄燀…}Ĉß„  ÛDZ11DRIV1$¤#Ô ç ÄŠ æ Ô ç Ä ç Þ– F )Þ„âÄç˜Ä„€Ø”„߉¤ˆß&ʈÞƒ—„&çň„ÉŒ×x¤'æÔ*„É€¡¤!ƒÚÔˆ„ÉŒ×x!°’ ‹wŠ„ɤ'çß'æ€ ³ŸÔ)'ç'æ!È'ç'梀 Ä'ç'æ¢Ä'æ°Ô¤Š-'æ°Ô€ £¤Š'棤'ç#§°Ô'ç#Ä'ç'æ£Ä'çÞ"Ô'çÞ„&çÅ„ÉåÕ=ÿˆß&ʈÞÕ ÿ”– +¤ ‰ÕË+Õˆ+×x¤&@Ô )#æÈ‹§#çß('¢¤#ç&åĉç)ɤ("³ŸÕ#çß#æ°Ô#çâÄç˜Ä#çÞ#çß#çߊá#ç#槤#ç#梀 Ä#ç#æ£Ä#çÞ#æÔ ƒ€¦ÚÔˆ+×x °’ ‹ÿ)( È(¢¤ !°Ô #æ&å¡Ô"¤ ‹xÿ#çÞŠ¤ Š ¤ –  ›&Þ„âÄç˜Ä„€Ü”‰¤„߈ß#ʈÞƒ—ˆ#ÉŒ×x¤${$|±Õç$æ Ôˆß#ç#z$æÝÇĈÞ$çÞ‹Ã$}Õ¢$z${§¤$æ Ô $ç Ä$ç € £Ä$æ ±Ô/$æ ²ŸÔ #ç€ Ä$ç $æ £Ä$æ ±Ô$ç${£ÄŠ$ç ÄŠQ$Ô #ç Ä$çÄŠA ƒÚÔ3 ÖŠ+$æÔ$ç ÄŠ#çÄŠ#ç Ä$~Ô $çÄ$ç${£ÄŠŠ#ç ÄŠ #ç$z${§Ä$ç${¢Ä${$|°Ô$çÞŠˆß#ç#z$æÝÇĈÞ$Þ#ÉåÕãþˆß#ʈÞÕ¾þ”–Q¤ ‰Õ¡(Ô¤ ‹–ˆ(×x¤#@Ô'ˆ æÊ ç&§Ĉ æʉçˆÅŠ_ ß ç%Ä ç$%¢Ä ç#åÄ ç#åÄ ç æ ~ Ä ç&Ä { |±Ô) æ Ô ç ߈߉ç‰z æÛÇĈÞ çߊРފ ¤ – X–OUT1IN1OUT2IN2OUT3IN3OUT4IN4OUTIN &2>JVbnSERREMDZV-11˜‰ÕÙ$¤¤%Ô ˆ%×xæÄ ç€ ÄŠ Ä çÄ ç%°Ä ç Ä%Ö‚EŠx ç ‚‚-”Šl ç ‚‚0”Š` ç ‚‚2”ŠT ç ‚‚5”ŠH ç ‚‚7”Š< ç ‚‚:”Š0 ç ‚‚<”Š$ ç ‚‚?”Š ç ‚‚A”Š ç ‚‚C”ЉÔ ‚‚Q ç ”Š ‚‚S ç ” ç‚‚U”Š ¤–ã‰Ô=ˆ#×x¤¤ ß çÄ ç Ä ç Ä çÄ çß çÄ çÄ çÄ çÞ ÞŠ ¤–„¸ÿÄ#x¤ƒ||Úå¦ : Packed Array [0..15] Of Corv_Byte; ;Interleave : Corv_Byte; ;Constellation : Packed Array [0..11] Of Corv_Byte; ;Pipe_Params : Packed Array [0..5] Of Corv_Byte; ;VDO_Table : Packed Array [0..13] Of Corv_Byte; ;LSI_11_VDO : Packed Array [0..7] Of Corv_Byte; ;LSI_11_Spares : Packed Array [0..7] Of Corv_Byte; ;Phys_Drive : Corv_Byte; ;Log_Cap_LSB : Corv_Byte; ;Log_Cap_IB : Corv_Byte; ;Log_Cap_MSB : Corv_Byte; 9End {of Corv_Prm_Block}; $ " "Procedure Corvus_Init; " "Function Corv_Ch_Read (User : Corv_User_Range; 9Log_Drive : Corv_Drive_Range; 9Chunk_Num : Integer; 9Chunk_Size : Integer; 5Var Buf_Ptr : Corv_Window) : Integer; " "Function Corv_Ch_Write (User : Corv_User_Range; :Log_Drive : Corv_Drive_Range; :Chunk_Num : Integer; :Chunk_Size : Integer; 6Var Buf_Ptr : Corv_Window) : Integer; " "Procedure Corv_Prm_Read (User : Corv_User_Range; ;Log_Drive : Corv_Drive_Range; 7Var Param_Rec : Corv_Prm_Block);  "Function Corv_Boot (User : Corv_User_Range; 6Sector_Num : Integer; 2 Is_Read : Boolean; 2Var Buf_Ptr : Corv_Window) : Integer;  "Procedure Corv_Sem_Init; " "Function Corv_Sem_Lock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Function Corv_Sem_Unlock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Procedure Corv_Sem_Dump (Var Table : Corv_Sem_Table); "  Implementation =CORVUSEM*Corvus.Config›[„ƒ „„5ÿÿ”„ƒ1„„]ÿÿ”’ˆ‚ ”á¦á¦„ƒ ‚ ””"°Õ1€?¤ƒY¤"‡ƒY²Ôˆà"×ç˜Ä"¢¤Šç€@¤á¤¤ €?²ŸÔ„ƒ „ ÿÿ”±¤¤$åÕÚ„ × ¤ƒY#³ŸÕ„‡ƒYж¤$åÔt„ ” €?¤ƒZ¤"‡ƒZ²Ô_"‡ƒYÐÚÔNˆà"פƒ[‡ƒ[‡ƒY|ÇćƒYçɤ‡ƒ[燃YçÉćƒYçɤ‡ƒ[ç€(” ‡ƒ[ç'ćƒ[z¤"¢¤ŠšŠG#°Ô'‡ƒY”#£¤Š3„ƒ1‡ƒY”„ƒ1%!#£×(€P”„ƒ1”#£¤#±Ô„€(” ¢¤$Õûþ„ƒ ”„ƒ1”–ƒ[¼ˆ” –þ„)Å(Ä'Ä'x(x²¡Ô(„ˆ(x×¹ˆ(x×§° Ô'ÄŠ((x¢ÄŠÏ– : „)Å„„„’ !Ô¤ Š „ˆ ×¹Ô¤ Šˆ ׄŤ – ‰ „)Å„„„’ !ˆ ×§° Ô¤ Š'ˆ ¢×ˆ × £Œ”ˆ×Ȥ – ˜#ˆÅ€€–õ#$ ×x³ŸÔF$ˆ€P”ˆˆ#”°Ô”" °Ô ¤Š”"ƒMÚÔ”"¤Š€€¤Š¤–g#$ ×x³ŸÔZ$ˆ€P”ˆˆ#”°Ô$×x¦$×x¦#¦”" °Ô ¤Š”"ƒ|ÚÔ”"¤Š€€¤Š¤–. ¤ ˆà'פ!{˜±Õ§ˆ!{”ŸÔ<ˆ§±Ôˆ¸”ˆ!{”ˆ¸ˆ””"±Ô ˆ‚µ”ˆ§±ÔT%Ôˆ¸$&”°¤Šˆ¸$&”°¤ Ô¤ Š%”"°Ô¤ Š”"ƒ¶ÚÔ”"¤ Š€€¤ –—ˆà)פ("y³Ÿ"z˜±¡ÔK&¤'!¤"z(×(×x‰±"z(×(×x‰± ‰ ± Ô "z(×( ’ ¤ ˆ&'!Œ%&”Š ¤ – :ˆà*פ)#y³Ÿ#z˜±¡Õƒ)#xÚÔ¤ Šu'¤(!¤!°Ô¤Š/#z)×(×x‰±#z)×(×x‰± ‰ ± Ô #z)×( ’ ¤&ˆ'(!Œ'”"°Ô)#xÚÔ¤ Š #z)×( ’ ¤ Š"¤ Š ¤ – PDQ-3 Emulation x#¤ˆà&פ%!y³Ÿ!z˜±¡Ô!z%×(×xÔ !z%×( ×x¤$¤!‚‚žÅ!È!çÊ!çÊ!çÊ!ç €@Ê!ç €@Ê!ç Ê!ç Ê!çÊ!ç€ÿ” !çÄ!ç5%Ê!ç5!çÉÊ!ç6!çÉÊ!ç6!çÉÊ–N Ô!ˆˆ‚¼ÿÿ”ˆ¸ˆ‚äÿÿ”’Šˆ”ˆ¸”–PàG×¹¯N€  " "Type DZ_Window = Packed Array [0..0] Of Char; 'DZ_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of BFt$%#Ö€üŠHÅŠDÅŠ@ÅŠ<ÅŠ8ÅŠ4ÅŠ0ÅŠ,Å Š(Å Š$Å Š Å ŠÅ ŠÅŠÅŠÅŠ ÅŠÅŠÅŠ–Ф ¤ å&$²¡ÔH‰ç&Øɉç%ØÉ°Ô &¢¤%¢¤Š#¤‰ç&Øɉç%ØɳŸÔ¤Š ¤а–û%#²ŸÔ¤Š%#³ŸÔ¤Š&$&%¢£’ ±¤–}‰°$%³¡Ô6‰ç$ØÉ¢¤ ²Ô¦Š¤ˆ‰Ø ʉ£¦$£¤Š¿$%³Ô#ˆ‰Ø‰ç$ØÉʉ£¦$£¤ŠØ‰°Ô ˆ‰ØÊ–ù¤')³&(³¡ÔE‰ç'Øɉç&ØÉ¢ ¢¤! ²Ô¤Š¤! £¤ˆ%Ø!Ê%£¤'£¤&£¤в')³Ô)' Š&(³Ô(& Š °Ô ˆ%ØÊ– §¤&(³ÔF‰ç'ØÉ £‰ç&ØÉ£¤!³ŸÔ ¤ !¢¤Š¤ˆ%Ø!Ê%£¤'£¤&£¤е °Ô1‰ç'ØÉ£¤!³ŸÔ ¤Š¤ˆ%Ø!Ê%£¤'£¤ŠÊ')³Ôˆ%؉ç'ØÉÊ%£¤'£¤ŠÝ– 2‰x°¤‰ç×x¤ ‰ç(¢×x¤ ‰ç(Œ ¢ØÉ °¤‰çØÉ °¤¤(Œ¢¤ -,³Ÿ‰ç-Øɰ¡Ô-¢¤Šæ(Œ ¢¤(*¢Œ¢¤/.³Ÿ‰ç/Øɰ¡Ô/¢¤Šæ./£¢¤ ,-£¢¤ „ˆÄ"!¢ ¢°¤+)³Ô+¤Š)¤#Ô'£¤'¢¤%Œ£¤ˆ%£’#Ô_!Ô.-)/+’ ÔˆØ Ê-/,.&ŠˆØ Ê/-.,&Š,/+-)’ ÔˆØ Ê/-.,&ŠˆØ Ê-/,.&Š!Ô ˆØ ÊŠ ˆØ ʃçxçÇĈðĉç‰zÇă||Ú妉Õ?‰¤$Ê$ÉåÔùˆâÄç˜ÄˆÇʈʈ ʤ¤!%²Õ£ˆ!Œ×€.” ˆ!Œ¢×ˆ!Œ×xĈ!Œ×x¤ˆ!Ê$çˆÅ&âÄç˜Ä&çâÄç˜Ä&ç âÄç˜Ä&ç Ä&ç!â¼ÇÄ&ç!Ä&çˆÉÄ&çâÄç˜Ä&çâÄç˜Ä&çâÄç˜Ä!Œ’¤!¢¤‹Wÿˆ×ˆ×xĈ ׈×xÄ$çÿÇÄ$Ê$Ê$Ê„€ €Ü„”Šœ„’ „€ €Ò„”Šœ„’ Š ƒçxçÇÄ–‰çÇÄ–ž Ô’Š–  ÂZ+ÎÑ©ôÊ€ ÿÿSYSDRIVEÿÿGOTOXYU GOTOXYU €GPROGOPS PROGEXECƒPROGSETU‚PASCALIOPASCALIO€«CSP LONGINT LONGINT €CSP TRANSCENTRANSCEN€VCSP HEAPOPS HEAPOPS €aCSP EXCEPTIOA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved " "Procedure Z19_XY (X, Y : Integer);   Implementation F GOTOXYU y%²ŸÔ¤&€O²ŸÔ€O¤%³ŸÔ¤&³ŸÔ¤„È„€YÈ„%€ ¢È„&€ ¢Èƒ —Ô ‰„”Š „”–… ÔŠ– ?€ & $Procedure F_Read_Real (Var F : Fib; Var X : Real); " $Procedure F_Write_Real (Var F : Fib; X : Real; W, D : Integer); " $Procedure F_Seek (Var F: Fib; Rec_Num : Integer); ( "Implementation ªPASCALIO#”–%$#” –2%$#”–1(¤'ÌŽ¤¤${°Ô(’$x§€ °$zå¡Ô(’Ší$zÔ‹"$x§¤ €+° €-° Ô €-°¤(’$x§¤ ˆZÐÚ$zå¡Ô¤''Ð Ì €0£ÌÀŽ(’$x§¤ŠÔ$zÔ‹Îᤠ€.°ÔG¤(’$x§¤ ˆZÐÚÔ¤#¢¤''Ð €0£Ì#”$ÃÀŽ$z ˆZÐÚå ÔÃ$zÔ‹} €e° €E° !#³Ÿ ¡ÔU${°Ô(’Š$çÄ(„’$zÔ‹M!åÔ 'ÌŽƒ—‹<¤#³ŸÔ''Ð#à”$ÃŽŠ ''Ð#”$ÂŽ!Ô"Ô ''ÐäŽŠŠƒ—– º‡!³Ÿ‡ ³Ÿ Ô¤!¤ „"ÐÌÏŸÔ„"„"Ð䎄€-ÈŠ„€ Ȥ„„"ÐŽ„"Д$ÏÔ%„Д$ÏÔ ¢¤„„"Ð ”$ÃŽŠÝŠ,„"ÐÌÍŸÔ" £¤„„"Ð á”$ÂŽ„Д$ÏÔÞ‡ °‡ ¢¢²Ÿ Ô„„ÐÌ”$ÃÀŽŠ!‡ ¢¢³Ô„„Ð̇ ¢¢”$ÃÀŽ„Ð”$ÏÔ ¢¤„„Д$ÃŽ¤¤"‡²Ô(„"!€0¢È„„Ð!ÌÁ”$ÂŽ"¢¤ŠÒ‡ ° ³ Ô]„„§È„€.Ȥ ±Ô@ ¤„ €EÈ ³ŸÔ ¤„ €-È á¤ ²ŸÔ"¢¤„" €0¢È"¢¤„" €0¢È„"ÈŠm ³Ô.„„ ¢”„ ¢€.È„ ‡  ££€ ” „‡ ¢ ¢ÈŠ:„‡ ¢È„„ £”„€0È„€.È„ ᣀ0” „ £‡ £€ ” ‡!„§³ŸÔ„§¤!‡$„‡!’–$7ƒ—'}Õh'¤#ç¤&³Ÿ#æå $çɰ#|°¡ Ô‹I&#|Œ&#|Œ¢&#|€@Œ&#|€@Œ€@¢¢¢¤&#|€ Œ&€ Œ#|€ Œ¢¤"°Ô ¤!£¤$y$x£¤! ²Ÿ! °"$æ ³¡ Ô ¤$æ ¤!#æ ±ÔZ#æ"Ô*#ç"Ä#çÄ##ç#$x#æ ¢£””"±Ô‹‰!#æ ²"±¡Ô##ç#$x!¢£””"±Ô‹^#æ #æ ²ŸÔ#ç #æ Ä#ç #æ!ÄŠ#æ #æ °#æ!#æ ²Ÿ¡Ô#ç #æ!Ä#çÄ#çÄ#çÄ#{±Ô#çÄ#ç !Ä#ç!"ÄŠ ƒ—–C ÔŠ– ßÊž€ $ $Type Dec_Max = Integer[36]; )Long_Trix = Record 7Case Integer Of 90 : (Int_Ar : Array [0..0] Of Integer); 91 : (BCD_Ar : Packed Array [0..0] Of 0..15); 5End {of Long_Trix}; )Long_P = ^Long_Trix; $ $Procedure F_Read_Dec (Var FF : Fib; >L_I : Long_P; >L : Integer); $ $Procedure F_Write_Dec (Var FF : Fib; ?D : Dec_Max; ?R_Leng : Integer); ? $Procedure Decops (Dummy : Integer); " "Implementation    $ $Procedure H_Mark (Var P : Heap_Rec_P); $ $Procedure H_Release (Var P : Heap_Rec_P); $ $Procedure H_New (Var P : Heap_Rec_P; N_Words : Integer); $ $Procedure H_Dispose (Var P : Heap_Rec_P; N_Words : Integer); $ $Procedure H_Mem_Lock (Var S : String); $ $Procedure H_Mem_Swap (Var S : String); $ $Function H_Var_New (Var P : Heap_Rec_P; N_Words : Integer) : Integer; $ $Procedure H_Var_Dispose (Var P : Heap_Rec_P; N_Words : Integer); $ $Function H_Var_Avail (Var S : String) : Integer; " " Procedure H_Unlock_Seg (The_Sib : Sib_P); $ " Procedure H_Clean_Up (P : Heap_Rec_P); $ " "Implementation `éHEAPOPS P„&Ĥ! ×x爹¤"Ô ‰€Š! ×xÄŠ ¢¤" !á×x²Ÿ ÔÑ"¤– ,€‰„‡€Œ€ÿ”„‚)Å‚-„€ÿ„§¢”¤¤‡€‹‡€‹x¢Ä„‡€‹x§€,±ÔN„‡€‹x§ƒ.Úå ²¡Ô/„‡€‹x§€a³Ô„ „‡€‹x§€ £ÈŠ „ „‡€‹x§È ¢¤¤‡€‹‡€‹x¢ÄЦ!Ô ¤!åÔþÿ¤!¤€–€Œ0„çÄ"°Ô&'£¤ Š&'£¤!¤ –+*™ )±ÕÍ)°Ô¤ ‰I¤#*xµ#˜±¡Ô#y¤Šð#˜°*x˜° Ô ˆFÞƒ€™—‹™˜¤#¤#x¤$*x´$˜±¡Ô ¤$¤$x¤Šê #±Ô„ y×Ä"*xµÔ *x’)¢¤ * Ä!¤„*x)×Ä"‰HµÔ‰H*xµÔ*x¦H„ƒ€›—*˜ÄŠŠ#$˜±"$µ¡Ô*x$’$y¢¤ $x¤/-.,& *(¢%£¢¦‰á¦$‰‰¢¢%’‰ç‰×%Ä–× -/³Õ™‰ç-Øɤ,¤+¤¤%.³ÔZ$‰ç%ØÉŒ#¢¤" ¤" ¤&¤ˆ'ØÉ!¢¤ ²Ô¤Š¤ £¤ˆ'Ø Ê'£¤!°ÔÏ%£¤&£¤Š¡#²ŸÔˆ&؈&ØÉ#¢Ê-£¤+£¤ ‹aÿ– ¤¤‰Ô *£¤ )¢¤ *)¢£¤,x)¢£¤*)¢£¤$*³ÔC‰ç%ØÉ £‰ç$ØÉ£¤!³ŸÔ ¤ !¢¤Š¤‰ç%Ø!Ê%£¤$£¤Џ"¢¤*,x#’ °Ô˜,x+²‰ç,xØɰ¡Ô,,x¢ÄŠä"¤–  h*¾ ‰ç,£Øʉ°Ô¤Š ‰£¤#¤.*¢¤¤%åÕº* .££¤!°Ô¤,.+’ ¤Š!³ŸÔ¤¤Š ¤&փ‹…ˆ"Ø„-,*Ê"¢¤ -²ŸÔ¤Š ¢¤Š^ˆ"ØÊ"¢¤.*¢¤ -²ŸÔ¤Š ¢¤.-²‰ç.Øɰ¡Ô.¢¤ŠçŠ ˆ"ØÊ"¢¤ -²ŸÔ¤Š ¢¤Š‹Aÿ"‰°Ô1‰£#¤¤"'³Ôˆ"¢Øˆ"ØÉÊ"£¤Šâˆ#ØÊ–! ‰ç×x¤‰ç$¢×x¤¤ $Œ¢¤ )(³Ÿ‰ç)Øɰ¡Ô)¢¤ Šæ$Œ ¢¤ $&¢Œ¢¤ +*³Ÿ‰ç+Øɰ¡Ô+¢¤ Šæ*+£¢¤()£¢¤„ˆĉx°Ô '%¢£¢¤Š4%°‰ç)Øɰ¡Ôƒ—'%³Ô'%£¢¤!£¢¤Š¤¤#Œ£¤ˆ#£’‰ç$Œ ¢ØɉçØÉ°Ô ˆØ ÊŠ ˆØ ʉx°Ô'%²Ô +)*( Š)+(* Š+')%’ Ô+*)(%&$¢#£¢¦‰á¦"‰‰¢¢#’‰ç‰×#Ä– ‰‰±Ô‰ç‰×#ÄŠB‰‰±Ô‰ç‰×#ÄŠ+‰‰‰’ °Ô‰ç‰×$ÄŠ ‰ç‰×#Ä–v ‰‰°ÕÉ °Ô^‰‰³ŸÔ‰ç‰×&ÄŠD‰‰²ŸÔ‰ç‰×%ÄŠ,‰‰‰’ $ÚÔ‰ç‰×ÄŠ ‰ç‰×ÄŠ\‰‰³ŸÔ‰ç‰×%ÄŠD‰‰²ŸÔ‰ç‰×&ÄŠ,‰‰‰’ #ÚÔ‰ç‰×ÄŠ ‰ç‰×ÄŠ!‰ °Ô‰ç‰×%ÄŠ ‰ç‰×&Ä– 2D  ‰ç×x¤‰ç!¢×x¤! ¢¢¦‰á¦‰ç Øɤ‰ç!Œ¢Øɤ ¤!Œ¢¤'&³Ÿ‰ç'Øɰ¡Ô'¢¤Šæ!Œ¢¤! ¢Œ ¢¤%$³Ÿ‰ç%Øɰ¡Ô%¢¤Šæ&'£¢¤$%£¢¤‰ç×xÖ…¼ŠTŠNŠHÇÇŠ6ÇÇŠ$!Ç(ÇŠ(Ç!ÇŠ–˜˜ÃÃÈ JÌ$„Å„„%Ä„‡Ä xÖ†H‹Ò ç×x ç×x£¤‡£¤‡³ŸÔ<‡£¤"¤‡‡"³Ô ç‡×x±Ôƒ—‡£¤Šà ç‡£× ç×xÄŠ8‡²ŸÔ1‡¢‡£ ç×x㢇£¤‡¢¤‡‡²Ô ‡ć¢¤Ší‹= ‹8 çØÉ °Ô çØ ÊŠ çØ ʤ‹‹  ç×x¢á¤„ ç×xÄ çØÉ °Ô ¤‡€-ÈŠ¤¤ ç×xŒ ¢¤ ç‡Øɰ‡‡²¡Ô‡¢¤Šå‡‡²ŸÔ"‡ ç×x³Ô ƒ—Š ‡¢¤‡‡€0ÈŠ9‡‡²Ô2‡ ç×x³Ô ƒ—Ї¢¤‡‡ ç‡ØÉ€0¢È‡¢¤ŠÇ‡‡È‹F ç×x¤‡¢¤‡¢‡¢‡£‡¢‡‡£¢¤ ç‡×‡Ä 燢ׄ×xć°Ô‡¢¤ 燢ׄ×xÄ ç‡¢×„×xċы̤‡°Ô‡£¤Š‡£¤‡„×x㢄×x㢄×xć‡Ä‹‹ ç×xᤤ‡áŒ¢¤"¤‡‡"²ÔM‡Ë ²Ô ‡Œ ç‡ØÉ¢¤Š+‡Ì ² ç‡ØÉ²¡Ô ‡Œ ç‡ØÉ¢¤Šƒ—‡¢¤Ь çØÉ °Ô‡á¤ ç‡áׇĊ‡±Ô„㇣¤‡ч„Ňі%× ÔŠ–CÅnËaÿ€ÁVj<˼` !è€  "Function S_Sin (X : Real) : Real; " "Function S_Cos (X : Real) : Real; " "Function S_Log10 (X : Real) : Real; " "Function S_Arctan (X : Real) : Real; " "Function S_Ln (X : Real) : Real; " "Function S_Exp (X : Real) : Real; " "Function S_Sqrt (X : Real) : Real; &  Implementation U TRANSCENtI$+¢>„ùI@}: ªƒ9n.6[œO¹#²<=‡*¾¤ªÊ„Ѓ ΟÔ ƒ —„Ѓ ¿¤"Ô&ᤄ„Ð"̃ÂÁ"̃ÂÁŽ„ÐãƒÏÔ>„„ЄÐÂŽ„„ЄЃ„ЃÀ„ЃÀ„ЃÀ„ÐÂÂÀŽ„ &Ì„ÐÂŽ– ÿ„ЃfÏŸÔ„„Ðäá’ ŽŠ„„Ð’ Ž–É?Û„„ÐダÀ’ Ž–€?¸?:ª1?ÿ^¹ƒ€ˆ; S€>?L=[¿?á „ Ѓ€ÍÔ „ ƒ€’Ž‹„ Ѓ€”¿¤„ „ Ð ̃€–ÂÁ ̃€˜ÂÁŽ„„ Є ÐÂŽ„„ Ѓ€š„Ѓ€œÀÂŽ„ƒ€ž„Ѓ€ „Ѓ€¢À„ÐÁÃÀŽ„„É ¢¢Ê„ „ÐŽ– €?€?@€?€?É?Û€?™„„ Є ÐÂŽ„ ÐダòÎŸÔ „ƒ€ô„ÐÃŽ„Œ¢Ìޤ¤$%³Ô&„ƒ€ö$̃€øÁ$$ŒÌ„ЄÐÃÀŽ$£¤ŠÕ„ ÐダúΟÔ„ ƒ€üƒ€þ„ ЄÐÂÃÁŽŠ „ „ ЄÐÃŽ– 5?ó???????1?ÿ ?=~Ô@:?^¹ƒ€›„ЃNÎÔ ƒ —„„ÐŽ„É€~£¤ „€~Ê„„ÐŽ„ЃPΟÔ#„„ЃRÁƒTÁ„ЃVƒXÀÃŽŠ)*£¤ „„ЃZÁŽ„„ЄЃ\ƒ^ÀÃŽ„„ЄÐÂŽ„*̃`„ЄЄЃbƒd„ÐÁÃÂÀÀ*̃fÂÀŽ–Þ>Ù[¸„„Ð’ƒÏÂŽ–Õ>¨©?º?5?óŠ „ ÐÌÏŸÔ ƒ —„ ЃÝÍÔ „ ƒßŽ‹„„ ÐŽ„É€~£¤„€~Ê„ „ÐŽ„ƒáƒã„ ÐÂÀޤ¤%&²Ô„ƒå„Є ЄÐÃÀÂŽ%¢¤ŠÝ$Ô„„ЃçÂŽ$¢¤„„ÐŽ„$„ɢʄ „ÐŽ– • ÔŠ–ê¥iÒ„iG€   q€P”Š6#‚x€P”Š,#‚€€P”Š!#‚€Š€P”Š#‚€’€P”Š #‚€›€P”Š–¸"qEXERRNAMUnknown run-time errorValue range errorNo proc in seg-tableExit from uncalled procStack overflowInteger overflowDivide by zeroNIL pointer referenceProgram interrupted by userSystem IO erroro IO error: Unimplemented instructionFloating point errorString overflowIllegal heap operation$/:DNXb”ž©´@„„Å.‚ €P”‡Ö€¥‹¼.‚€P”‹±.‚€P”‹¦.‚)€P”‹›.‚5€P”‹.‚=€P”‹….‚F€P”Š{.‚N€P”Šq.‚Y€P”Šg.‚g€P”Š]ƒo”/„™ƒq—ƒq”.¤„‚s ”„„”„€P”Š+.‚y€P”Š!.‚€†€P”Š.‚€‘€P”Š .‚€™€P”Š–!¶‚*x$Ä*xç)Ä *xÄ*˜Ä– /›, ©ƒ —(°Ô¤ ‰I¤‰Ix¤¤ ˜±"å¡Ô y(ƒ —Ô¤Š ¤ x¤Šß"Ô() Ä y(°Ô! xÄŠ„ (×Ä )xÅ ç y(£Ä! ÄŠ")‰HÄ(„ƒ€›—#Ô'Ô ˆFÞƒ€™—Š)˜Ä– æˆF߃ —$‰HÄ„ƒ€›—$xç‰IÄ$x˜Ä$xç˜Ä$x¦I$‰HĈFÞ–£ˆF߃ —‰I¤„(xá×Ä! ± ˜±¡Ô y¤Šñ ˜°Ô ˆFÞƒ€™—‹‰I¤ y¦I!yz¤˜¤"˜±Ô "¤"z¤Šò$˜°Ô !yç!zÄŠ$ç!zÄ!y¤!‰I°ÔË z¤"˜±Ô&„ "’’„" "}¢¢×Ä"ç‰IÄ"z¤ŠÕ„ ‰H’’ˆFÞ– ¸ˆFß$#’ˆFޖЈF߃ —$#’ˆFÞ–0 å ¤ *§³ŸÕÿ*„„’ Õð%¤¤ˆ€ºß'æ ˜°ÕÃ'z°'çÉå Õ²ˆFß„ 'y¢’"˜°Ô¤‹‘'ç "Ä'æ ç'æ çÄ%'æ yƒé—¤!°Ôo'æ ç‰IÄ'æ Ä'æ ç%ĉIz¤˜¤$˜±$'æ µŸ¡Ô $¤$z¤Šë#˜°Ô'æ ç‰IzĉIç'æ ÄŠ'æ ç$Ä#ç'æ Ä%¤&ç 'æ Ä&æ¤&%°ÔïˆFÞŠŠ 'æ 'æ x¢Äˆ€ºÞ!±Ô!ƒ€™—‹øþ– c(¤¤ x(æ y°Ô! z¢¤ æ¤ (°Ôç!°ÔS(æ {z¤˜¤"(æ ±Ô "¤"z¤Šð#˜°Ô (æ {ç"zÄŠ#ç"zÄ„(æ Ä(¤ ç ˜Ä æ¤ (°Ôñ„ (y¢’– µ¤ (§³ŸÔ@(„„’ Ô3#¤ˆ€ºß%æ ˜±Ô%æ x²ŸÔ %æ %æ x£Ä%æ x°Ô#’ ˆ€ºÞЏ– Þ˜¤ˆFß„$’ˆFÞ ˜±Ô% Ä$¤Š¤–é$#’–Wˆ€ºß¤”(¤ '§³ŸÔ'„„’ Ô"z°"æ ˜°¡Ô!"y£¤ŠÙˆ€ºÞˆF߉Ix¤#˜±Ô#y!ƒ —Ô#y¤#x¤Šæ! ¢¤ ˆFÞ–„%á×Ä!z˜±Ô!z¤!z|’ !z°Ô ƒ€™—!ç!zzÄŠÛ„’–› ÔŠ–žŠ 5.u÷ñÝ´ìÞÔuWJ€ÿÿKEXCEPTIO€PRINTERR„ŒEXCEPTINEXERRNAMƒEXIOERRN‚EXCEPTINEXCEPTIN€ JEXIOERRN!"EXERRNAM‚##CSP % CSP €1žHALTUNIT‚SYSDRIVEHALTUNIT9HALTUNIT€:,PASCALSYÔPASCALSY;SYSCODE <ø $ $Function Handle_Exception (Error : Integer) : Boolean; $ "Implementation ŒBEXCEPTIO!„$”*Ä ¤–3„$”,Ä ¤– Exec err #, }‰‚”‰‰” ‰ °Ô‰‚!”‰‰” ‰”–„„@ÿ”"¤‰””(ì€2¢¼ÚÔŠ=‰z’Ô1‰|× çˆ@”Ô„” ƒ@”% ™ƒB—ƒB”ŠŠ’åÔ ¦€¿¤Š¤–  ÔŠ–$ E‚€‹PRINTERRƒƒ  Segment  Proc , Offset #ƒ ”‡%‡$„ ƒ —ƒ ”‰”‰„ ”‰”¤„Ä y¤ çɱÔ çÉ<Úå¤ çɤ% çɰ ÔÐ%ÔTƒ ”" z„„„ƒ—ƒ”‰‚”‰„”‰‚”‰$” ‰‚”‰!” ‰”#¢¤#‰çɳ%å Õdÿ–% „ " $Type Ex_Alpha = Packed Array [1..8] Of Char; $ $Procedure Ex_Stats (Seg_Num, 8Seg_IPC : Integer; 4Var Seg_Name : Ex_Alpha; 4Var Proc_Num, 8IPC : Integer);  $Segment Procedure Ex_IO_Err_Name (IO_Err : Integer; Var S : String); $ $Segment Procedure Ex_Err_Name (Xeq_Err, IO_Err : Integer; Var S : String); $ "Implementation IEXCEPTIN„,€²ÔþÿŠ ,€€×xÄ)Ĥ*$çÅ$x×x¤$x#Œ¢§¤¤!%²Ô%$x#!£×xŒ¤" ²ŸÔ "+³ŸÔ"¤)!Ä!¢¤ŠÖ(+ ££Ä– ‹ ÔŠ– B€!EXIOERRN unknown cause parity (CRC)illegal unit #illegal IO requestundefined errorunit went off-linefile lost in dir bad file nameno room on vol vol offlinefile not found dup dir entryfile already open file not openbad input formatring-buf overflowwrite protectedbad block numberbad buffer addr$/:DNXblv€Š”Ÿªµ>#‚ €P”$Ö€£‹½#‚€P”‹²#‚€P”‹§#‚€P”‹œ#‚)€P”‹‘#‚1€P”‹†#‚;€P”Š|#‚D€P”Šr#‚K€P”Šh#‚S€P”Š^#‚Y€P”ŠT#‚a€P”ŠJ#‚h€P”Š@#‚  teger) : Real;  $Procedure S_Unit_Wait (F_Unit : Unit_Num); & $Procedure S_Unit_Clear (F_Unit : Unit_Num); & $Procedure S_Halt; & $Function S_Mem_Avail : Integer; & $Function S_R_Mem_Avail : Real; $ $Procedure S_Bump_Heap (N_Words : Integer; Var No_Room : Boolean); " $Procedure S_Blow_Up (Err : Integer); " $Function S_Geq_U (I, J : Integer) : Boolean; " $Procedure S_Execute_CU (Cur_CU : Sib_P);  $Procedure S_Finish_CU (Next_Unit : Sib_P); " $Procedure S_Chuck_G_Dir; " $Function S_Read_Seg (The_Sib : Sib_P; Address : Code_Seg_P) : Integer; " " Procedure S_IOR_Set (IO_Err_Num : Integer); $ "Implementation CSP „ÿÿÄ ¤–D$€²Ô „þÿÄŠ„ Ä $€€×x¤–N#”–\#щ#Ä–k„%$µÄ ¤–Š$¤„ɰÔ$¤Š„ɤ––––œ–¢–Ó„ÌŽ&¤¤ #²Ô„„Ð ÌÂŽ ¢¤Šé„„ÐŽ–Ì -¤+¤„.„É×Ä„,„ÉץɄɱÔL*²ŸÔD+*¢¤„,„É×Ä!-Ô‹ â xÈçâ¤!"°Ô‹ â §Ä ç¤‹áÿ+*¢Ô §ÈФŠ}-*²Ÿ¡Ô! §È!ç¤ ç¤*£¤ *€È³Ô! Åd!çd¤ çd¤*€È£¤ Šä*€(³Ô! Å!ç¤ ç¤*€(£¤ Šä*²ŸÔ! ÐÄ!ç¤ ç¤*£¤ Šä*²ŸÔ! §È– .¤,¤„É„ɱÔi+²ŸÔ`„/„É×Ä.+¢£¤„/ " $Const (CXG = 148; {Call external global} (CFP = 151; {Call format procedure} (RPU = 150; {Return from procedure} (IXA = 215; {Index array} (SBI = 163; {Subtract integer} (INC = 231; {Increment address} (MOV = 197; {Move memory block} (LDM = 208; {Load multiple} (LDB = 167; {Load byte} (STB = 200; {Store byte} (STL = 164; {Store local} (DUP1 = 226; {Duplicate TOS} (SIND0 = 120; {Load indirect} (LEQU = 180; {Less than or equal, unsigned} (GEQU = 181; {Greater than or equal, unsigned} (LNOT = 229; {Logical NOT} (LAND = 161; {Logical AND} (LSL = 153; {Load static link} (LPR = 157; {Load processor register} (SPR = 209; {Store processor register} (STO = 196; {Store indirect} ( (Inv_Inx = 1;  {Invalid index} (Bad_Proc = 2; {No proc in seg table} (No_Proc = 3; {Exit from uncalled procedure} (Stk_Ovr = 4; {Stack overflow} (Sy_IO_Er = 9; {System I/O error} (U_IO_Err = 10; {User I/O error} (FP_Error = 12; {Floating point error} (S_2_Long = 13; {String too long}  Heap_Error = 14;{Heap release error} (Sys_Err = 15; {Undefined execution error}  (Prior_Reg = 1; {Task priority register} (SP_Low = 2; {Low stack mark} (SP_Reg = 4; {Stack pointer register} (MP_Reg = 5; {Mark pointer register} (BP_Reg = 6; {Base pointer register} (U_Seg_Vec = 11; {User segment vector} " IO_Reg = 14; {IO_Result register} " "Type Tib_PP = ^Tib_P; 'Byte_Array = Packed Array [0..0] Of Byte; 'String_P = ^String; 'Sem_P = ^Sem; 'Sem = Record {Semaphore Format} 6Sem_Count : Integer; {Number outstanding signals} 6Sem_Wait_Q: Tib_P; {List of tasks waiting on Sem } 4End {of Sem}; 'Alfa  = Packed Array [0..7] Of Char; 'Ids_Info = Record 6Sym_Cursor : 0..1023; 6Sy : Integer; 6Op : Integer; 6Id : Alfa; 4End {of Ids_Info}; 'Trs_Node_P = ^Trs_Node; 'Trs_Node = Record 6Key : Alfa; 6R_Link : Trs_Node_P; 6L_Link : Trs_Node_P; 4End {of Trs_Node};   $Procedure S_Move_Left (Var Src : Byte_Array; ?Src_Inx : Integer; ;Var Dest : Byte_Array; ?Dest_Inx : Integer; ?N_Bytes : Integer);  $Procedure S_Move_Right (Var Src : Byte_Array; @Src_Inx : Integer;  to continueu‰‚”$‘+¤‰” åÔ‰”‘( € ° ‰ç,ɰ ÔÍ € ±¤–:[].TEXT.BACK.CODEˆY„1„ZÅ„‡5€P”‡4‚<”‡3‚=”‡2ć1Ĥ6¤!„§²Ô/„!§¤"€ ²Ô „!”Š"€a³"€z²¡Ô„!"€ £È!¢¤ŠÉ„§²ŸÕ€„§€*°Ô‡4ˆ@”„”‚>„”¤!²Ô‡4§°Ô ‡4ˆ<”!°Ô„”Š!!£²Ô‡4„„7!£”„7”„!”‡4§²ŸÕ ‚?„”¤!²ŸÔ!£¤Š„§¤!²Õé!²ŸÔ‡3„„7!”„7”„!”„§°Ô¤Šo¤‚@„”¤ °Ô¤ŠW ²ŸÔQ¤¤„!§¤"ˆZÐÚÔ‡2‡2x Œ"€0£¢ÄФ!¢¤! °#å ÔÑ!° °¡Ô„!£§€*°Ô‡2áĤ#¤6#‡3§²Ÿ¡ÔA„‡3„7‡3§£”„7€P”„‚A”„‚D” Ô‡1ÄŠ„‚G”Ô‡1ć6¤_–^|„„ʼn¤‰€·‰×¤"|× ¤¤$x°$çɰ¡Õ™$ç§€þÚ$泡$æ€M²¡Õ€¤$ç#”ŸÔr¤ $æ²ÔJ"| × ¤&ç§²&ç§²Ÿ &y&x³Ÿ &æ ²Ÿ &æ ² &ç  É€d³ Ô ¤ "|‘$Š ¢¤Н!åÔ‰"|$梌””"°¤!Ô#$ç”#|Ô#ç$Ĉ$ç ” !¤%¤–X¤‰¤‰€·‡×¤‡|˜°Ô ‡çö” ‡‡|ì””"°¤!Ôr/åÔl¤‡Ç¤ €M²ÔV„‡| × Å ¤% ²Ô+%&ÚÔ„%פ‡ɤ„É×Ä,+¢£¤-„É×+,¢Ô â!§È‹!"±Ô!£¤â!çxÈâ!§È£Šå,Ô!xÈŠ¤‹Â.+¢£¤.¤„/„É×Ä,+¢£¤ ,¤„-„É×Ä.å+²Ÿ¡Ô !§È £¤!£¤+£¤ ! £à€d³Ô"+€È³Ô €d£¤!€d£¤ ç!çÅd+€È£¤ ŠÞ! £à³Ô +€(³Ô £¤!£¤ ç!çÅ+€(£¤ Šà+²ŸÔ !xÄ £¤!£¤+£¤ Šå+²ŸÔ !§È–…(¤„)„É×Ä„&È„&È!¤('²Ÿ¡Ô &È ¢¤'£¤'³Ô &Ä ¢ Å €€¢¤'£¤Šá'²ŸÔ &Ä ¢¤'£¤Šë'²ŸÔ &È– ×'¤'+¢¤¤+²Ôá¤+±Ô-*Ô("§)±Ô‹ " ¢¤"!°ÔìŠ("§)°Ô‹ " ¢¤"!°Ôì"'£¤ – à’2¤‡’4¤&æ ¤„Ä"çɰÔ"çÊ"çɱÔC"çɤ-’3¤%˜°Ô’+%x¤#˜°Ô’+#×x¤ #(×x¤ )³ŸÔ)€ÿ¢¤ ¤ ¤ )¤¤'.²Ô%#('£×xŒ¤ +,²ŸÔ +"z³ŸÔ+¤ '¤ '¢¤ŠÖ*°Ô’+*°-°¡Ô’+*‡°-‡°¡¤$‡±¡Ô!ç‡ÄŠ"ç##(*£×x£×xÄ$åÔ "¤"y¤" °¤$Õ'ÿ– ÿþÿÿ‡þÿÿ³ ¤-x¤„‚‚qÅ, §¤$€a³$€z²¡Ô$€ £¤!²$€_±¡Ô „!$È!¢¤ ¢¤, §¤$ƒ‚uÚåÔÇ- £Ä‰{¤"¤ )„§€A£×x¤)„§¢€A£×x¤)ç!ׄ¹¤!¢¤#! ³ Ôè#Ô)ç!£×¤ -ç*|Ä-ç*}ÄŠ -çÄ-ç„Å–ó$%Ä%#»ŸÔ%}¤%˜°Ôᤊ%#ºŸÔ%|¤%˜°Ô¤Š˜¤¤%˜°ÔÇ–)¤%§$§°Ô#%§¤¤ !²Ô% §$ §±Ô‹ ¢¤Šè¤–t&§%§³ŸÔ&§¤Š%§¤!¤¤ "²Ô& §% §±Ô & §% §²¤‹ ¢¤Šß!&§°¤–‚#$’¤–¢$§#²ŸÔ ’+Š $%$§¢”–¸#²#$§²Ÿ Ô’+–Ì$‰æÄ#‰æÄ–‚Ûƒƒg—–úˆFß„ĉ7|‰7z£¤ˆFÞ–€G%”( ¢¤ ³ŸÔ „ƒƒ~ ÌÀŽŠ„ ÌŽ–o‰H¤&±Ô„ &×Ä„Ä% €d¢‰7|’,Ä%xåÔ ¦H’2‰7°Ô ÑŠ‰7ç Ä–“‰|˜±ÔˆH‰|ĉç˜Ä„’*–·ˆFß’/%‰HÄ$„’*ˆFÞ Ô’+–ΈFß’/#‰HĈFÞ–êˆFß’/$x¦H„’*ˆFÞ–. ’2¤ æ åÔ’+„” #¤ „Ä( Å !¤ (ç)yÄ(ç)z¢Ä)çÉ’3¤(ç"xÄ(æ ˜±ÕŽˆ€ºß(æ ¤(ç %á×x¢” (æ á×%á×xÄ%á×x¤ ¤$*²ÔS%$×xçÉÔ(æ $×%$×xÄŠ2(æ $×” (æ $×x%$×xÅ(æ $×xçÄ%$×xç(æ $×xÄ$¢¤Ѝˆ€ºÞ(ç-” (ç(z-×Ä(ç({Ä,³,€ÿ²¡Ô(ç,Ê(ç Ä(ç (}Ä„âÄç˜Ä#¤+âÄç˜ÄˆJß„Þ+ß.˜±Ô.#ĉN¢¦NˆJÞ–X ˆJ߀ÀщN£¦NˆLÞˆJÞ„âÄç˜Ä„ß–a #$Ä–h –‹ $’4’3¤ˆ€ºß ç z¢Äˆ€ºÞ– $’4’3¤ˆ€ºß ç z£Ä æ ˜±Ô æ x°Ô ” ˆ€ºÞ–ö $¤ ç ¤!ɲŸÔ‰ç$Ä!É’# æ æ —!É’– #˜±‰y°¡Ô#¤ ç ÉÔ#’5 æ ¤ŠÝ–I #˜±Ô#¤#‰±Ô æ ’. ç ÉÔ#’5–ý „ Ä(¤”"¤$çÉ'$y$y¢${””"°Õ€'ç$繟Ԥ Šj¤ 'y¤ ±ÔP„' ×Ä#y¤#$æ y#É€€×xÊ#É€²ŸÔ#ç"#É€€£×xæ ÄŠ#ç‰æ ç#É×xæ ÄŠ«'$y£Œ$ç ÉÈ!’1Š ¤ – á +°Ô „Ä""yÅ‹Ë+’4¤ „ Ä+€²ŸÔ &+€€£×x¤Š ‰æ ç+×x¤ ˜°Ô’+ ¤ (z°ÕŒˆ€ºß(æ ˜±Ô (æ x²Ÿ¤Š¤'Ô ((æ yĈ€ºÞŠb(æ ˜±Ô ” „Ä’2¤!z(y¢#’,Ô¤Š#(ç„ çÄç(y×£Ñ(çÄ (x’0¤ˆ€ºÞ$°Ô’ŠÑ$’+–  ,’4’3¤"˜°Ô’+"¤ )z°Ôzˆ€ºß)æ ˜±Ô)x)æ y±¤)æ x°Ô"” Фˆ€ºÞ&ÔL„„ çÄ)x$£¤%²ŸÔ $„%Œ”„Ä„)}%¢£Ä%²ŸÔ„ çÄ„#%Œ” !Å Ñ–– ’ ”"±Ô ’+–  „Ä ¤–Ä &‡'„”¤(”"°,å¡Ô °‡¡¤(–'Ê – ‰¤"}'פ"æ ç#x×x¤#çÉ'"æ ¼Ú¡Ô$„$ç ńʄ#çÉ&%$æ —Ä!’1Š’1–y ‰¤"}*פ"æ ç#x×x¤#çÉ*"æ ¼Ú¡Ô'„$ç ńʄ#çÉ&)('%$æ —Ä!’1Š’1– å *€€°Ô¤ *€°Ô¤ ‰¤"}*פ"æ ç#x×x¤#çÉ*"æ ¼Ú¡Ô'„$ç ńʄ#çÉ&)('%$æ —Ä!’1Š’1– :‰¤"}%פ"æ ç#x×x¤#çÉ%"æ ¼Ú¡Ô"„$ç ńʄ#çÉ$æ —Ä!’1Š’1–gÍ Õ…ˆ7’2ĈFâÄç˜ÄˆHĉç˜ÄˆI” ‰Iç˜Ä‰I˜Ä‰Iç˜ÄˆJâÄç˜ÄˆLâÄç˜Ä¦N‰çĈ€ºâÄç˜Ä‰~’-ƒ‡—‰z”&”‰~’.ÔýŠ–ã8 )'ºý0$•pjõdSRKéÞPMJȶgG³®ó™÷SC<üÌBÅŠ^Ü~¿’îèl!€5   Procedure Do_Halt; "  Implementation +HALTUNITHalted. Hit .C‰‚ ”” ‰”” –O ÔŠ–$€PASCALSY”ÿ–  $²ŸÔ '€ %$£‘$¤!æ'昱 Ô¤ %³ŸÔ!x& §È'‘ ¢¤ŠéŠ !&%”Š ‘–m#‘ åÔ#‘Šô#{°Ô#‘Š #çÄ#çÄ–™$¤‘ {°Ô$‘# x§Ä {°Ô$‘Š çÄ–p(¤'Ĥ¤${°Ô(‘$x§€ °$zå¡Ô(‘Šî$zÔ‹¢$x§¤ €+° €-° Ô €-°¤(‘$x§¤ ˆZÐÚÔc¤¤''x Œ €0£¢Ä(‘$x§¤#¢¤$°(ˆ×x° Ô# „‘-Ô#°Ô'ÄŠ''x Ä(‘$x§¤ŠÝ ˆZÐÚå$y $z Ô£!$z Ô "Ô''xáÄŠŠ‘– ™$§%§¢#²Ô$%%§¢$§”%$§%§¢È–î$²Ÿ'§²Ÿ¡'§&§¢%²¡Ô7&§$£¢¤ ²ŸÔ&$&$'§¢ ”¤ °Ô'&$'§”&&§'§¢È– %‚ø€P”$²Ÿ#²Ÿ¡$#¢£&§²¡Ô &$%#”%#È–a%²Ÿ$²Ÿ¡Ô0&§%£$£¢¤ °Ô&%£ÈŠ ²ŸÔ&%$¢&% ”&&§$£È–Õ/¤2‡1§²ŸÔa‡1§¤¤‡0§‡1§£¢¤„‡1§È! ²Ô>! !£"‡0!” ¢¤! ²ŸÔ‹$‡0!„‡1§”„‡1”Ô!¤2‹!¢¤н–1èáç#ĉ#Ä–-*System.Shell.u.„¦E‰E²Ô+ ”‰E°”  ”‰E°Ô‰æƒŽu—ˆ6” ¦Nˆ^‚Žw€P”ˆ^ˆ^‰çƒŽ—åÔ¦E‰ˆ^”‰”‰E±Ô”‰æƒŽ—–ª c‰´ÑH”7ÃéßÖ¿¶›~KZ/£mü3ú Ï º è % û “ Å ï 9 + C O á Ü ÿ à ÞX„4ÿÿINITIALI L”BOOTSEG PHEAPOPS LONGINT TRANSCEN PASCALIO GOTOXYU PROGOPS PROGEXECPROGSETUEXCEPTIOCSP ‡‡Éʇ$Ê%¢¤ŠÐ‡| × „Å ¢¤Ç¤Ф/¤!¤!åÔ‡‚‚Á”‡|Ô‡çÿÄ„” –A‰€·‡×¤‡× ¤‡‡ç”‡çɰ¡¤"Õ™„„” ‡æ £,² ‡æ £³¡‰çÉ¡¤"åÔ‡„””"°Ô ‡ç„”¤"ÔN‡ć‡‡æ¢Œ””"â¼â¼ÛÚ¤‡y °Ô‡‡‡æ¢Œ””"°Ô „‡ç ” "åÔ‘‡‚ƒ-”‡|Ô‡çÿÄ–°ᤠ(˜Ä¤¤*§²ŸÕ*§€#°*§²Ÿ¡ÔE¤¤¤*$§ˆZÐÚÔ Œ*$§¢€0£¤Š¤$¢¤$*§²Ÿ"å ÔÓ" ³¡ ‰æ ²¡¤!åÔ)¤‰æ ¤*‰€· ×”¤"åÔ £¤" ³Ÿ Ôá"Ô[‰€· ×|ÔQ‰¤¤%|˜±Ô$*%|× ç”Ô„„” #%|× æ £,²¤"åÔ!¤ ‘,Ô!åÔ*%|× ç”¤"å)¡Ô3‰æ ¤‰€· פ%|Ô ‘,Ô*%”¤"åÔ £¤" ³Ÿ ÔÔ"Ô7‰€· פ ¤ %§²ŸÔ*%”%|‰|˜±¡Ô(‰|Ä„(x× ç ” – ö¤ ¤¤ %× æ²!å¡Ô*% × ¤"ç'”Ô&"ç  É€d±°Ô ¤ ¤ ¢¤ŠÉ–2 #× ¤#$¢× #$× æ$£Œ”# æ× ç‚„|” ç æ£Ä–d #× ¤ ç æ¢Ä#$× #$¢× æ$£Œ”#$× %Å – $%£¤ ‰²ŸÔ‰¦‰¦&¦ ¦Š ‰²ŸÔ ¦&¦–« ¤‡× 椤¤‡²ÔZ‡³Ÿ¤"¤¤#‡²Ô#‡#£× y‡#× x1#¢¤Šâ"¢‡"× y‡× 1$Ô‡%³ŸÔ%¤ ¤Š‡¢¤ŠE¤#"²Ô!‡#× x‡#£× y£‡³Ô#¤"¤#¢¤ŠÚ!°Ô‡× ‡"× y£‡³Ô"¢¤"€M°Ô¤!²ŸÔ>‡!£× y¤&‡¢¤„ ‡Ê„ ‡”¤„ʄʄ €dÊ„!‡‘%!¤– %¤ çÄ çÄ çÄ çÄ $Ä#°#á° Ô xÈ çÄ#°Ô çÄŠ#³ŸÔ ˜Ä çÄŠ ç##¢Ä ç˜Ä ç˜Ä–þ $¤!çÄ!çÄ!çÄ!~ÕÓ!æ !æ ²Ÿ¤ Ô!ç !æ Ä!æÕ¡ Ô !ç !æ!ÄŠ!æ !æ °Ô!æ!!æ ²ŸÔ ¤!ç !æ!Ä!æ"Ôl!ç"Ä!çÄ Ô!ç#!æ!!æ!£” !!ç#!æ!æ ¢£” !çɰ¡!æ ¡Ô(!ç !æ ¢Ä!ç#” !!ç#!æ!æ ¢”!ç!Ä!ç Ä!æ!çɰ¡Ô!ç Ä–C„C„Dň€¸ß‘‡F¤@‡@}Ô ‘‹ò‡E„ „„„‘#Õ߇D²ŸÔ ‡D°‡D° ¤D¤ ‰8¤A‡A}‰|˜°¡Ôe„” „Ä&'£¤#²Ÿ#좳Ÿ¡ÔC'‰6£¤#²Ÿ#첟¡‰€·‡AׇA甡ԇA‰6ì‡A攈6”!¤ „ „‘ ¤!³ŸÔ‘‹‰€·!פA‡@çć@çć@ç!ć@ç„ ”‡@ç ć@ç‡A|ć@ç‡A|‡@|±¡Ä ˜±„§²Ÿ¡Õž„‡D ‘"¤‡DÔ"°Ô ‘‹Š ‡@ç "× Å Šu"²ŸÔ ‘‹sŠg%°Ô¤„$% ‘0¤"²Ÿ%°¡Ô, "× ¤B‡By‡Bx£Ô ‡Bç‡By£Ä‡By‡Bx£³ŸÔ" ‘$¤"°Ô‘‹‡@ç "× Å ‡@çÄ! ‘!Šg„§²Ÿ‡A|¡Ô ‘‹õŠR‡@ç¤B‡BćBçÿćA|Ô‡Bç‡A}ćBç%ʇB炆”‡Bç ćBç ¤G‡GʇGʇG ʇDÔ‡@ç ‡@æ‡@æ£ÄЇ@ç ć@æÔs‡@ç!ć@ç"ćDÔ ‡@ç ‡@æÄЇ@ç ć@ç¤B‡BçɰÔ=‡@ç ćDåÔ2‡@ç#” ‡@‡@ç#‡Bx”‡@‡@ç#‡Bx¢”‡DÔ‡F‘ЇF‘2”"±Ô‡@çć@çć@çÄ(Ô*„”!‰ç˜Ä„ ”"ĉ8‰6ì‰8æ”)‘Š‘ˆ€¸Þ–GÁˆ€¸ß‘(¤$}$x‰9x±¡Õ‚$~ÕQ$ç¤%ç§²ŸÕA'°Ô$ç $æ Ä%ç  €dʤ$æÔ$ç $æ!Ä(‘2$æ%ç  É€d° '° Õ$$ç„‘ ±Ô‘‹¤¤!"× æ²#å¡Ô"!× x%x°"!× y%y°¡¤!¢¤ŠÙ#åÔ‘‹Ù!£¤'°"!× ç  É€d°¡'° Ô!"‘$‹•%ç"‘"¤ ± !±¡Ô "‘$ !³ŸÔ!£¤"!× ç  É€d°Ô%ç  É€d°Ô %ç ˆDÅŠŠ#$æˆDɱ¡Ô %ç ˆDÅŠ %ç "!× ç Å%ç%x$æ ¢Ä$æÔ%ç $æ Ä$ç Ê$çÄ"!× $çÅ $"‘!'°Ô$ç§°Ô‰€·$ׂ‡Ž”$çÄ$çÄ$çĈ€¸Þ– ¸¤ ¤(¤%ç¤&ç§²ŸÕÉ%%ç„‘ ±Ô‘‹µ¤¤ $× æ²"å¡Ô$ × x&x°$ × y&y°¡¤ ¢¤ŠÙ"åÔ‘‹~ $× æ²ŸÔ $× ¤Š$ × x¤&y#³Ÿ&æ ³Ÿ ÔP$ £× ¤'ç#Ä'ç Ä%$‘!”"±Ô‹/%çÄ%çÄ%{±Ô%çÄ&ç#Ä&ç Ä&ç  €dʤ ¤!åÔ (çÄ(çÄ– ó‘#昱#~¡Ô#椊ï#¤ }Ô#‘2 |²ŸÔ {°Ô#‘Š çÄ–O¤ ‘*¤"}'³¡Õ@"~ÕÑ"ç¤&³ŸÔ"æ ¤#x&¢¤&'¢#y²ŸÔ %åÔ*‘3Ô&'¢#y²ŸÔ#y&£¤"ç&#y³Ä"zåÕ‰'¤ €@³ŸÔ ¤Š€?¤ !£¤%Ô")(!Œ&”Š"çÄ")(!Œ&”(!Œ¢¤ &!¢¤ °”"± Ô«”"°Ô&'¤ "ç&#y°Ä"ç &#x£Ä"æ "æ ²ŸÔ"ç "æ ÄŠ¤ Šh'¤ %Ô")('Œ&”Š")('Œ&””"°Ô9%Ô4'Œ¤&&á)(&¢£” ¢¤&¢£¤&¤ "ç&'³ŸÄŠŠ¤ Š ‘– ‰x§¤‰zÔ ‰ç)ɤŠ ‰yÔ ¤$x È$‘–ù ,}Õ_,ˆ×x°¤&Ô ˆ×x¤Š,¤,z¤ ‘$¤ )zå)~ )昰 ¤'Õí)çÄ)沟Ô)ç)æ£Ä)沟ԋ¬)æÕÖ)ç¤ )|¤¤)æ )æ °Ô)æ!#¢)æ ²ŸÔ‹“Š *æ )æ!£¤Š )æ!£¤#¤ !²ŸÔ!¤ ²ŸÔ )ç#)æ!)x" ”)ç!)æ! ¢Ä" ¢¤# £¤#°¤%åÔ[)æ"Ô)ç"Ä)çÄ))ç#*x)æ ¢£””"±Ô‹))ç#*x)æ ¢””"±Ô‹õ)ç )æ ¢Ä)ç!Ä%Õ8ÿŠ))x)|””"±Ô‹Ê)|°Õ²)çÄ,{±Ô,çÄ)x§ °Ô)x€ È)çÄ‹Œ)x§°Ô-)çÄ$‘)x§€ £¤ ²Ÿ €²¡Ô)x€ È)ç Ä‹Z$‘&)x§‰ç)ɰ¡Ô)xÈ)x§°Ô9)æ)çɰ¡Ô")çÄ)æ Ô )ç )æ ¢Ä)ç!Ä,‘‹cŠ )x€ È‹)ç(Ä&Ô ˆ×x4)zå)~å )昰 ¤'åÔ$æ¤'Õñý,$xÄ,ç$zÄ,ç$yÄ&Ô ˆ×xç$zÄ$昱Ô$æ4Š ‘,çÄ,çÄ– ³ *¤*x§¤‘*¤'}Õ|'æÕ]'ç¤ '|¤¤(x'æ ¢(y°ÔI'æ!#¢(æ ²ŸÔ2'昱Ô'æx'xÅ'æ‘‹_Š*‘3Ô‘‹1Š 'æ!£¤Š (æ 'æ!£¤Š 'æ!£¤#¤ !²ŸÔ!¤ ²ŸÔ%'ç"Ä$x"'ç#'æ! ”'ç!'æ! ¢Ä" ¢¤# £¤#°¤&åÔr'æ"Ô'ç"Ä'çÄ''ç#(x'æ ¢£””"±Ô‹¡'æ 'æ ³ŸÔ''ç#(x'æ ¢”Š 'ç#” ”"±Ô‹l'ç 'æ ¢Ä'ç!Ä&Õíþ'|°Ô6% °Ô1(çɰÔ''æ!€£³'æ å¡Ô'ç!£Ä*xÈ*‘*x ÈŠ'$x'|””"±Ô‹Š ‘'çÄ'çÄ*æ¤ *˜°”"± %° ÕYþ– ¾#z¤–Ë#y#z ¤–Ú#x È#‘–E%¤ }Ô[ æ%昱 Ô #²ŸÔ x€ È%‘#£¤Šê x$È%‘Š.#²ŸÔ x€ È  x”#£¤Šâ x$È  x”Š ‘–TrueFalsez,‡.Ô „‚Œ$€P”Š „‚Œ'€P”‡/„‡-‘–/-32768! ¤„ Ȥ.³ŸÔ„€-Ȥ..à°Ô „‚Œ> ”‹X.त ¤!*³ÔB.ˆO!×x€0¢¤"€0°!²Ÿ¡#¡ÔФ„ "È ¢¤"€0±Ô .ˆO!×x¤!£¤й„ £È-„§³ŸÔ„§¤/„-‘–…&¤!}ÔS$²Ô%§¤$%§²ŸÔ&€ $%§£‘%§¤!æ&昱 Ô¤ $²Ô!x% §È&‘ ¢¤ŠêŠ !%$”Š ‘–ò'¤¤"{°Ô'‘&%È %²"y"z å¡Ô4"x§¤'ˆ×x°Ô!„‘-ÔŠ & !È ¢¤Š & !È ¢¤'‘ŠÀ& £È"y"z åÔ'‘Šó–F'¤!}ÔD% ”–0Destroy : ? R=°5˜±¡Ô-‘ ‰‚„”‰†E”‰‚„ ”‘åÔ€€”–[*****]¾„„Å%§€[%” %§°ÔE%¤„%€(”„‚„*€/”„€(”%§£%§£¤¤ !³Ô% $ €0¢È$ ¤ £¤Šæ–# Put : in unit — „ ‡”„‚„`”‡ °Ô„€1È„€0‡ ¢È„‘‡¤‡Ô-„ †‘‡±Ô „„”„†‘³¤ „„ ”¡¤ åÔV‘ ‰‚„b”‰„ ”‰‚„e”‰„”‰”‘‡Ô!„†‘³¤ å„„ ”Ÿ Ô€€”–á „+Å„ɲŸÔ43†I‘5˜±Ô)5× æ¤¤ '³Ô„ ØÉÔ 5‘ £¤Šç*Ô‘–  ? t E„)‡G”„6‡F”„„-ÿÿ”„„)””"°¤H”"°ÔR„6‚„ò”ŸÔ8‘ ‰„6”‰€ ”‰„)”‰‚„ó”‘åÔ ¤H€€”„””"‘„”–G -->  „‡ ”„‡”„‡”‘ ‰„”‰€:”‰„”‰æ&¤ €P³ŸÔ€(¤„§¢ ²ŸÔ‘ЉçÉåÔ‰‚…>„§„§¢£”‰‚…?”‰„”‰”–  - C1*'4',  ™ $¥$‰Ú‰° Ô€€”ˆ‚…Œ”Ô€€”‘‘ˆ§€*°Ô/ˆ”ˆ§€:°Ôˆ”‰ˆ@”‰€:”Šˆ§€:°Ô ‰ˆ<”‰ˆ”‰æ&€P³Ô ‰‚…”Š‘&%‘$Ö…–Š?¤Š:‰°†Y‚…”¡¤Š'‰ƒ…Ú¤Š‰ƒ…’Ú¤Š ‰ƒ…”Ú¤ЉçÉåÔE Ô ‰æ&€P³ŸÔ‘Š ‰‚… ”‰‘‰°Ô ‰‚…¢”‰°Ô ‰‚…§”€€”–K „‡€(”᥄†E†Y„†‘Õ‡‡Ô„” †A†E”†E†‘¥5˜°ÔB1³ŸÔ†E§€#°ÔŠŠ1”&”"±1³Ÿ Ô ‰€·1×|Ô†Y‚†N”Ô†Y5‘±Ô  –: ? 55‰%x× ¤†q 甆€Ò¤„†U”„‚†§€W”„ ç€f”„€(”€Y¥¥ˆ ‚†¨”Ÿ:¡Ôa‘ ‰çÉåÔ‰ˆ ”‰€ ”‰ 甉‚†©”‘ ¥‰” åÔ‰”4‰ç,ɰÔ“INITIALId¦€À¦€¿ˆ€¼âÄç˜Ä‰çÉÿÚåÔ ‰ç ʉçɱÔˆ€¾‰çÉ€RŒ” –ÿ*System.Miscinfo±^„„-€0”‰ç¤]‡]çÉ ²ŸÔ ‡]ç ʦ ˆT‰ç"ÉȈT‰ç"É” ˆO×ĈO× ĈO×€dĈO×èĈO×'ĈZƒ3ÇŽ‰¤]‡]çÄ”„‚7””"°Õ…„” åÔv‰¤] ¤^‡]ç‡^çÉʇ]ç‡^çÉʇ]ç‡^çŇ]ç‡^æć]ç‡^çŇ]ç%‡^ç%Å ˆT‰ç"ÉȈT‰ç"É” „””&„”–^:SYSTEM.COMPILER:SYSTEM.EDITOR :SYSTEM.FILER:SYSTEM.LIBRARY *Userlib.Textô¼„,„Xÿÿ”ˆ€‡× ‚€Ý”ˆ€‡× ‚€æ”ˆ€‡× ‚€î”ˆ€‡× ‚€õ”„Uˆ€‡Å0Ǥ€…‰¤€©‡€©æ ¤€ª¤ ‡€ª²ÔN‰€· פ€« „€†”‡€«ç‡€’”"± Ä‡€«çÿ怫|Ô ‡€«‚€ý”Š ‡€«„€“” ¢¤Š«‰¤€©‡€©æ ¤€ª¤ ‡€ª²ÕÚ‰€· פ€« ”&”"°Õ»‡€«|Õ´ ”,Õ¬‡€«‡€©|× ç”¤€¬¤T‡T‡€¬²Ôp ‡€©z°‡T‡€…Ú ÔX„¤€­„€­‡€«”„€­„U‡T× ”„€­€P”„,„””"°Ôˆ€‡‡T× „”‡€…‡Tâ¼ÝǤ€…„,”‡T¢¤TŠˆ ‡€©z°Ôˆ@‡€«”’‰Ô’ ¢¤‹ÿ‰Ôˆ<ˆ@”ˆ€Á‚€þ”ˆ@„+” ¤‡+˜°Ô”'ˆD‡+× ç Å„,”–€¼¨ˆ€·‰æ ¢ Œ” ˆ€¸âÄç˜Äˆ8€ ” ‰8˜á”ˆ;€ ” „” ‰; ”ˆ:€ ” „” ‰: ”ˆ9€ ” „” ‰9 ”ˆ×‰;Ĉ׉:Ĉ € ” ‰ ˜á”ˆ€ ” ‰˜á”–:*SYSTEM.WRK.TEXT:*SYSTEM.WRK.CODE&]‰Ô<ˆ&‚‚U”ˆ‚‚V”ˆ.‚‚W”ˆˆ@”ˆˆ@”ˆˆ@”ˆ&§²ŸÔ+„¤*„*ˆ”„*‚‚X€W”„*ˆ&€f”„*€P”Š „‚‚Y€P”‰ „˜”‰ }¦‰Ôˆ‰ 甈&‰ 甉 ”ˆ§²ŸÔ+„¤*„*ˆ”„*‚‚b€W”„*ˆ€f”„*€P”Š „‚‚c€P”‰„˜”‰}¦‰Ôˆ‰ç”ˆ‰ç”‰”‰ç,ɦ‰çɦ‰çɦ –]CONSOLE:SYSTERM:)‰8”‰ ”‰”‰;”‰:”„‚ƒ€P”‰:„˜”„‚ƒ€P”‰;„˜”‰Ô ‰9„˜”ˆ×‰;Ĉ׉:Ĉ׉9ĈטĈטĈטĈ×x¦€Ô˜¦€Óˆ×x¦€Ð˜¦€Ïˆ€Ñˆ€Óň€Íˆ€ÏÅ–)#Ô–mA „ BOOTSEG ”ÿ– ÿÿPASCALSYfFILEHAND€†GOTOXYU A(c) Copyright Advanced Computer Design, 1982 All Rights Reserved…FILEHAND#„&%$” Ä ¤–/$#”!–C„&%$”"Ä ¤–g-„‡2€P”„„‡1‡0‡/‡.”#Ä ¤3–2s$#”$–€%$#”%–‰”&–“”'–”(–§”)–¹„$”*Ä ¤–Ë„$”+Ä ¤–Ù„$Ä ¤–j†E‚n”†€†‚o”†i‚p”†y‚q”†a‚r”†€½‚s€(”†U‚t”†Q‚u”†€Ò‚v€(”†I‚w”†M‚x”¥¥¥¥ ¥ † ” –Parity (CRC) error No such unitBad I/O operation Timeout errorVol went off-lineFile lost in dir Bad file nameNo room on volNo such vol on-lineFile not foundDisk write protectedIllegal block number(4@LXdp|ˆVol already on-lineText file lostCode file lost File foundBlkd vol Unblkd vol File nameFile/(unblkd vol)File/(blkd vol)File/volVol nameOutput file fullWorkfile is savedNo directory on volNo workfile to saveWildcard not allowed"Bad form (Wild Non-Wild) cardIll file/vol nameIll change (Vol file) nameBad dest for files found*7D¨À´œØäÌð7Qx^„Dk expected I/O error # Filer error #i1„„2Ň`Ú‡°¡Ô‹*„‚€¶€(”‡Ö!‹‘„‚€·€(”‹„„‚€Á€(”Šx„‚€È€(”Šl„‚€Ñ€(”Š`„‚€Ø€(”ŠT„‚€á€(”ŠH„‚€ê€(”Š<„‚€ñ€(”Š0„‚€ù€(”Š$„‚€(”Š„‚ €(”Š „‚€(”ЇÖè‹ù„‚4€(”‹ì„‚>€(”‹ß„‚F€(”‹Ò„‚N€(”‹Å„‚T€(”‹¸„‚Y€(”‹«„‚_€(”‹ž„‚d€(”‹‘„‚m€(”‹„„‚u€(”Šx„‚z€(”Šl„‚€(”Š`„‚ˆ€(”ŠT„‚‘€(”ŠH„‚›€(”Š<„‚¥€(”Š0„‚°€(”Š$„‚€(”Š„‚Ë€(”Š „‚Û€(”Ї³Ô„¤„„€(”„‚‚€1”„€(”‘ ‡²Ÿ”"±‰çÉ¡ Ô‰‚‚”‰‡” Š(‰çÉÔ‰‚‚ ”‰‡” Š ‰„”‡Ô€€”–4x‰”‘ –­#‘ ¥4‰ç,ɰÔ€€”4€Y°¤‰” åÔ‰”–Á#‘ Ô€€”–Ô35‘”"‘–0¤ $§²Ô9$ §€!³$§€}²¡Ô"$ §€a³$ §€z²¡Ô $ $ §€a£€A¢È ¢¤Š$ ”ŠÀ$‚ƒk”Ô€€”– ? (Y/N)  ? Invalid #+„‡0”„‡/”„‡.”¤5˜±ÔT5× ‡-³ÔJ‘ ‰„”‰€ ”‰5× ” ‰€ ”‰„”‰‚ƒ™”‘¤‡,5× Ä åÔ?‘ ‰„”‰‚ƒž”‰‡,” ‰”‡,x‡-³ŸÔ‘ ‰‚ƒ ”€€ „,”„+”¤¤„ˆ”„‚ø€W”„ˆ.€f”„„€k”„€€Ç‘=°ÔB¤¦*¤„ˆ.”„„”„”)ˆ”‰Ô ‰‚ù”‰„”-¤D–CGet.TEXT.CODE.TEXTText .CODECode No file loaded¯# ‘3‚‘I‚‘K€Ç‘#‘2ˆ†E”ˆ.†Y”ˆ.§¤"£²¤‘ å¤!"²Ÿ¡Ô7ˆ.„"£”„‚‘L”ˆ.„"£”„‚‘O” Ô ˆ."£”ˆ.§£²ˆ.‚‘R”Ÿ¡Ô$‚‘S‚‘Vˆ&ˆ5¦‚‘Y‚‘\ˆˆ5¦¤!Õ{ÿ‰‰ åÔ ‘2‰‚‘_”‰‚‘a”– Ö#†€ç†€ç§€-†€ç” ”†€ç”–2$¦†€ç§€-†€ç” ¤ ¤¤!"²Ô&†€ç!§ˆZÐÚÔ‰ Œ†€ç!§¢€0£¦!¢¤ŠÕ‰²Ÿ‰%²¡¤–%Date set: <1..31>--<00..99> Today is New date ? : The date is @&-‰‚’”‰”ˆDɱÔX‰‚’-”‰ˆDÉ” ‰€-”‰†€“„ˆDÉŒ¢”„”‰€-”‰ˆD É” ‰”‰‚’2”‰†€ç€ÿ”‰”†€ç‘8ÔˆD Ê7†€ç§²ŸÔr†EȆ€ç†E”¤¤ !²Ô&†E §€A³†E §€Z²¡Ô†E †E §€A£€a¢È ¢¤ŠÕ ¤¤ !²Ô&†€“„ Œ¢”„†E”ÔˆD Ê ¢¤ŠÕ7€c8ÔˆD ʤ„ˆ@”„‚’8€W”„€@Ç‘=°1‰z°¡Ô5× ç ˆDÅ15‘‰‚’9”‰ˆDÉ” ‰€-”‰†€“„ˆDÉŒ¢”„”‰€-”‰ˆD É” –-¹&‰…+‰æ%°‰…+° ÔO‘‘ ‰…+°: åÔ‘‰€·2×|å: Ô‘ ˆƒú”ˆƒú†I”ˆƒú€:”¦…+‰Ô ‰æ%¦…+ˆƒú”‰…+¢¦…+– < UNUSED >/'$%£¤ ‰…*²ŸÔ ¦…*‰…) ¢¦…) ²Ÿ‰…1¡Ô9ˆƒú‚“^”ˆƒú ” ˆƒú‚“d ”<Ô ˆƒú%” Š ˆƒú%” ’:–Dir listing ofSTANOUT:ListWritingfile files, blocks used,  unused, in largest¬*I„…1„…JÅ„ƒú„…&þÿ”‚“™‚“¡á€ÀÇ‘#†€½‚“¢”Ÿ¤ Ô„5ŃöŠ †€½‚“£€(”„ƒú†€ ¥€€€ ”4€Y°¦'–5H„ ‡”„„ §È5‰× 燄„ §”„„ ”¤–:not proccessed“i„"„jÅ„ ‡&€(”¤'‡%x°Õ¾‡$‰€·2×|2³Ÿ ¡¤$‡#9¡Ô ‘ ‰”Š‘ ¥‡$†I†M”¡¥ 5× æ¤¤ ‡²Ôr5 × ¤ ‡ çʆ€†§†i§¢‡ ç§²ÔJ†€†"†i‡ 秆i§£¢"¡Ô.†€†‡ ç”9 Ô‡ ç;ʆ Øʆ†É¢Ê¥ ¢¤Šˆ;Ô‘Š ‡$Ô‡%‡%x£Ä†ɲŸÕ0‡"Ô3†I‘€N¥‡%x5× æ³Ÿ4€Y±¡Õ5‡%x¢× ¤‡%‡%x¢Ä;Ô#†‡%x؇çÉʇçÉÔ ‡çÊ‘†‡%xØÉÕȇ$Õ«„‡ç„(†€†§¢‡ç§†€†§£†i§£”„(”„§†y§€[†y” ¢†a§¢¤ ² ²Ÿ9å ¡ÔM†€½¤(„(†Q”„(‚‡%€W”„(†y€p”„(„€”„(†a€Ž”„(€(”†€†‡ç”9 Ô!Š †I‡ç‚‡&‘Š!†‡%xØʆ†É£Ê‹Þþ>°Ô ‘>°Ô‘‡'¤o–n²‰T#ˆ*” ‰T³¤– ...too long < file name scan string vol name  - char. max >- Illegal format-„„.ʼnT&²Ÿ¤ å€$&¡€=&¡€?&¡Ô.$ˆ*„‰T”„€(”ˆ*‰T”ˆ*”€€€%”‘ ‰çÉåÔ‰ˆ*„‰T”„”‰æ&€P³ŸÔ‘ Ô ‰‚ˆZ”%ÖˆtŠ$‰‚ˆa”Љ‚ˆg”Š ‰‚ˆn”Š Ô#%°Ô ‰” Љ” ‰‚ˆy”Š ‰‚ˆ”€€”–0 ˆ*§#ˆ*” ¤– what file what vol ? *::çf„g„gÅœ„W‡l”†€ç‚‰”ÔL‘ ‰„W”‡k<¡Ô‰HÔ ‰‚‰”Š ‰‚‰”‰‚‰”‰†€ç€ÿ”‰”†€ç‘†€ç§€,†€ç” ¤T‡T€#²ŸÔ€€”„*†€ç„m‡T”„m€P”†€ç‡T”†€ç”:€?'„*§³Ÿ ¥ €:'¤T„*§€#°‡T„*§³Ÿ Ô‡j%Š„*§€*°Ô„*”‡j‚‰”‡g¤m„m‡j”„m‚‰ €W”„m€(”€$'¤U‡U„*§³ŸÔb„*§ˆ§¢£€#²ŸÔ€€”„„*€P”„*ˆ§„*§¢£Èˆ„*‡U¢ˆ§”„‡U¢„*‡U¢ˆ§¢„§‡U££”ˆ„*€P”€='¤T‡T„*§°Ô€?'¤T‡T„*§³ŸÔ/‰IÔ#‡k9 åÔ‘¥ ‡i%„*§¤T‡h%Š‘ŠZ‡kå9¡‰K°¡Ô)¤m„m†Q”„m‚‰!€W”„mÇ‘=±Ô‘‡i%‡g¤m„m‡g€(”„m‡i€A”„m€(”‡kåÔ‡gLJS‘1¥†M†E”3†I‘І€ç‚‰"”Ÿ‰K²¡Ô¤SФS9Ô†€Ò€@Ç‘Š†€Ò‰GljJ‘–l_F„*‡M”„7‡L”‘„‚Šu€P”„*†U†€††i†€Ò$1¥†I†E”‡K²ŸÔ€€€#”†€ç‚Šv”‡K³Ÿ¡Ô€€€#”„7†Q†y†a†€½$–M: Remove oldÀ7„„8Ť=°#†q†Y”Ÿ †I†E”Ÿ ¡Ô(¤„†E”„‚б€W”„†Y€f”„‚⑤$¤9–8ChangeChange to what:Change:ÁW„„-ÿÿ”‚Šã‚Šç€ÀÇ‘#†€†‚Šï”Ÿ†y‚Šð”Ÿ¡9 Õ½†Q†U”†€½¤,„,†U”„,‚Šñ€W”„,€(”9åÔ †€½¤,„,†€½€(”„,†y€A”„,€(”¤*‚Šò„*‘ Ô_„†€Ò””"‘„‘¤)†€½€Ç‘‘(Ô#‡)¤,‡,ç €dʇ,ç‡,ç†Y‘‡,ç†Y”„””"‘Š”‹Ê†€†§†y§¢°Õ¶†€½€DÇ‘=°Ô‘†ö” 35ì””"‘5× ç†E”35ì””"¤+†”!‡+‘‰€·3׆E”ˆ@†I”‰z3°¡Ô ˆ@†E”ˆ<†I”Ô ˆ<†E”†I‚Šö¤,„,†E”„,‚Š÷€W”„,‘Š ‘†€ç‚Šø”Õ@þ„”–WRemoveRemoveremovedUpdate directory ? œ‚‹å‚‹é€€Ç‘#¤¤„ ” ‚‹ê„‘ Ô?:åÔ%†E5&× ç‚‹î‘'¢¤‰æ%£'°Ô‘‘ ¤„„ɢʄ&ØÊŠ´> Ú„ɲŸ¡Ô‘ ‰‚‹ò”‘Ô„‘†€ç‚‹ü”Õbÿ–Put in Insert destination disk:-c„„4ÿÿ”„†€Ò””"‘„‘¤¤&æ ‰³ŸÔ&æ ¦†€½‰‘¤‰"£¤!0²ŸÔ0¤&~åÔ ?!Œ” „?!ÿÿ”¤”"‘"!¢¤%Õ¤†€½€üÇ‘†A‚ŒO”Ÿ†A§€#°¡13°¡‰€·1×|¡1³Ÿ ÔL‘ 1³ŸÔ$‰‚ŒP”‰†E”‰€:”‰”Љ‚ŒT”‰”‘†€½€øÇ‘1ÚÔ‘ ‰”‘(åÔ€€€,” ²ŸÔ‘††€½””"¤#±Ô †€½€ðÇ‘#‘†‘¥6~å&~¡&çɰ¡Ô £¤?¢? Œ”6ç&生6&°¡¤Š $Ô66瑆? ÿÿ”¤”"‘ !±Ô‘$„” å¡Ô6&ç‘"‰°„”  Õ`þ6¤0&ç¤1‡0ç‡1æ ć0ç‡1çÉʇ0ç‡1ç Ň1ç ɰˆDɲŸ¡Ô ‡0çˆDņ””"‘&ç&ç¤0„06甄0‚Œ`€W”„06ç€f”„0‘„”„”–cTransferTo whereTransferblocks# of blocks to transferTransferé‚›‚ €èÇ‘#ÿ¤¤†€†‚¥”9å¡Ô=€HÚÔ‚¦‚«‚¯„‘,Š‚»„‘ Ô ÿ¤,Šê†€ç‚À”Ô–Make made•*„„-ÿÿ”‚ö‚ù€Ç‘#‘(Ôf„†€Ò””"‘„‘¤)‡)¤*‡*ç ‡*æ‡*æ£Ä„””"‘‘ ‰†E”‰€:”‰†Y”‰‚ú”‰”†€ç‚ý”Õvÿ„”–* *SYSTEM.WRK..Pa„0„bÅ„*‡5”„„-ÿÿ”‡2Ä„¤7„7‚ŽO ”„7„*”„7”„‘¤)‡)ç¤-‡)}ÔE‡-ç  €dʇ3¤7„7ˆ.”„7‚ŽV€_”„7„*€c”„7”‡-ç‡3”¤6„”Š ¤6‡1ć0‘„”‡6¤h–g *SYSTEM.WRK.,:.,ö„„Åœ„'”&åÔm†€ç¤ „ †€ç€ÿ”„ ‚Ž®€ÿ”„ „€ÿ”„ ‚޵€ÿ”„ †A€ÿ”„ ‚޶€ÿ”„ †Y€ÿ”„ ‚Ž·€ÿ”„ „€ÿ”„ ‚ޏ€ÿ”„ €ÿ”–Save as  ? Save asTEXTCODETEXT*.CODEOld code removed, Text file saved & CODECode file savedúD„„EŤ†Yˆ.”†Eˆ”†Aˆ”87¡Ô‰”‰‰ Ô ‘‘¤ˆ.‚Žý”ŸÔ9‘ ‰‚Žþ”‰ˆ”‰€:”‰ˆ.”‰‚”‘¤-åÔ‚‚ €ÜÇ‘#†Y§£²ŸÔ ‘†Aˆ@”ŸÔ.†€ç‚ €ÿ”‚ 80‚70†€ç†€ç§”¤€€€.”ˆ.†Y”ˆ†E”‘ 8åÔb‚ˆ&† ˆ /ÔB7Ô5¤„‚€P”„ˆ.€_”„‚€d”„‚‘Ô ‰‚”‰‚#”7åÔ ‰‚,”7åÔ‚.ˆ†ˆ /Ô ‰‚1”‡¤E–D not named Workfile is (not saved) No workfilež ‘‰‰ ÔQˆ.‚”Ô ‰‚”Š'‰‚”‰ˆ”‰€:”‰ˆ.”87¡åÔ ‰‚ ”Š ‰‚”–Ð ¦¦ˆ.‚P”ˆ&‚Q”ˆ‚R”–Throw away current workfile ? *SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE*SYSTEM.LST.TEXT.BACKRemoveWorkfile clearedç!6„,„7Å„„-ÿÿ”87¡åÔ‘ ‰‚i”‘åÔ€€”Š ‡,Ô‰”‚y‚‚‘Ô‚ƒ‚Œ‘Ô‚‚–‘Ô¤-„-ˆ.”„-‚—”„-‚š‘Ô¥ ¥‡,Ô‘ ‰‚ž”‘2„”–7:& "?„ „@Å ÿÿPASCALSY{ EDITOR €­ LISTDIR ‚ØRECURSE „ëINITIALI…À OUT ƒ#vCOPYFILE†,uENVIRONM‡54PUTSYNTA>ÂEDITCOREˆ?T$GOTOXYU 9(c) Copyright Volition Systems, 1982 All Rights Reserved¬ EDITOR $$#³ŸÔ$¤Š#¤–8$#²ŸÔ$¤Š#¤–ô…Ö²ŸÔW†‚g…֣פ†ƒú"xפ#y"y¢#x³Ô#"z²ŸÔ"ç"z£Ä"çÄŠ…Ö£¥Ö‹¸ÿІ‚‚#y"y¢§¤"ç"y¢ÄŠT„ ”„§¤‰” Ô ¤…ÔÔ3†ƒú…Õפ"x"y£€P³Ô‰”""yÄ¥ÔŠ †‚‚"x!È""x¢Ä!¤–HG„‡H€‡”†‚g…ÖפE†ƒúפF‡F‡Fy„§¢Ä„†‚‚‡Fy„§”‡EćEçćEçÄ…Ö¢¥Ö–Hþ<…ÔÔ †ƒú…Õ×x£¤†R)xØɤ$€;°Ô‘¤)Ć€Ò#ØɤŠæ…Ô$€9°$…Õ€)¢° ¡Ô$¥Ô†ƒú…Õ×"Ä<å…„B¡Ô‘ ‘)‘Ä‹”ÿŠq$ƒ€¥ÚÔU$€)£¤…Ö²ŸÔ‰”¥ÖŠ,†‚g…Öפ†ƒú!פ%!Ä%çÄ¥€©%ç(xÄ…Ö¢¥Ö)‘Ä(Ä‹6ÿŠ$€9°Ô …„B‘.)‘Ä‹!ÿ$¥€§$¤ – W#†×ÐÚÔ#€ £¤Š#¤–y$°Ô€€¢¤„$È€„ ”–#Ô ‰çÉ‘4–%9@Th I‰ç¤$ÖHŠz!çÉ‘4Šp ‘4Šk!çØÉ‘5!çÉ‘4ŠW!çØÉ‘5!çÉ‘4ŠC”Š Ú! Õ¾9Õ•5‡…,× y5× ;„ƒú‡…-” „ƒú€/”„ƒú5× æ” „ƒú‚“µ”<Ô„ƒú‚“¹”„ƒú‡…'” „ƒú‚“”„ƒú‚“É”„ƒú‡…)” „ƒú‚“Ë”„ƒú‚“Ï”„ƒú‡…*” „ƒú‚“Ñ””"‘ Ô„” „ƒú”„ƒú””"‘„ƒú”–…Jà*‰ç%¤‰ x£Œ‰ x£¢”‰¢¦– Vols on-line: # Root vol is - Prefix is - ,¤‰”‰‚•q”‰”‰æ ¤¥1!²Ô 1”&1¢¥Šð†E†‘¥‰æ ¤¥1!²ÔV‰€·1פ"‚•x”ŸÔ;=‰1” "|Ô ‰‚•y”Š ‰‚•{”‰"”‰€:”‰”1¢¥Š¥=‰‚•|”‰ˆ@”‰€:”‰”=‰‚•„”‰ˆ<”‰€:”‰”– Zero dir ofDuplicate dir ? Are thereblks on the disk# of blocks on the diskNew vol name ? : : correct ? : zeroed- „” ¤‚–‚– €HÇ‘#‘‰‚– ”‘Ô ¤‚–‚–‚–#!„‘‰‚–/”‰†€ç€ÿ”‰”†€ç‘†€ç†€ç§§€:±†€ç‚–7”Ÿ¡Ô!†€ç¤„†€ç€ÿ”„‚–8€ÿ”„€ÿ”†€ç€DÇ‘‰†E”‰‚–9”‘Õ~ÿ„Ê„†E”„ ˆDÅ3†I‘3„””"‘‰„”‰‚–@”– File(s) endangered: DirectoryB.†ɲŸÕ‰‚–É”‰”€M¤¤ !²Ôc† ØÉÔS5 × ¤ °Ô‰‚–Ó”‰‚–Ø”Š‰"甉‚–Ù"ç§£”‰"x” ‰"y” ‰” ¢¤Š˜–¬.5˜±Ô_5× æ¤¤ !²ÔA5 × y%x²ŸÔ/$åÔ% ÄŠ5 × x%x²Ô††É¢Ê† ØÊ€€€@” ¢¤Šº$åÔ %5× æ¢Ä–Bad block scan ofScan forblocksScan for how many blocksBlock  is bad bad blocksÐ/‚—W‚—`€HÇ‘#‚—a‚—f‚—j„‘¤¤ $£¤#0²ŸÔ0¤1?#Œ$””"±ÔU$$#¢£¤¤"%²ÔF1?"””"±Ô,!¢¤„‘@‰‚—w”‰"” ‰‚—{”‰”"¢¤е$#¢¤$ ³Õ}ÿ‰!” ‰‚—”‰”‘?–Examine blocks onBlock-range ? Fix them ? Block may be ok is badMark bad blocks ? (files will be removed !) (Y/N) BAD.xxxxx.BADBad blocks markedd3f‚—é‚—ò€HÇ‘#‘ ‰‚—󔉄S” ‰” Ô‡S¤RЉ„R” ‰” åÔ‰”‡Rà¤R5˜±Ô‡R5× ³Ô 5× £¤R‡S³Ÿ‡S‡R²Ÿ Ô€€€B”‘ ‰”‡S‡R¤‚d¤V‡V‡‚d²Ô „V‘@‡V¢¤VŠë†ɲŸÔ‘?‰‚—û”‘åÔ€€”„€ ” † ” ¤T á¤U‡S‡R¤‚d¤V‡V‡‚d²Õ扂˜”‰‡V” 1„d‡V”1„d‡V””"°Ô 1„d‡V””"°„d„d¹‚¡Ô‰‚˜”‰”Šv‰‚˜ ”‰”„V‘@5˜±Ô\‡V5× y²ŸÔQ‡U¢‡V±Ô;„×ç„×y¢Ä‡T¢¤T‡T€M†É¢5× æ£²ŸÔ‘„‡T×ç‡VÄ„‡TׇVćV¤U‡V¢¤V‹ÿ„×y°Ô€€€B”‘?‰‚˜”†ɲŸÔ ‰‚˜”‰‚˜'”‘åÔ€€”†‘„Yʤb„cˆDÅ„Z‚˜+”„×y¤‚d¤V‡V‡‚d²Õ†„‡Vפ‚e‡‚ey¤W‡‚ex¢¤X¤‚f¤T‡T‡‚f³Ô2„Z ‡T£‡‚eyˆO‡T×x€0¢È‡‚e燂eyˆO‡T×xćT£¤TŠÆ5× æ¤T‡W5‡T× y³ŸÔ‡T£¤TŠì„W‡T¢5‘‡V¢¤V‹qÿ‘‰‚˜2”–‚fMoving SYSTEM.PASCALSYSTEM.INTRINSSYSTEM.DRIVERS SYSTEM.SHELL½45‰ × ¤ çɱÕú‰‚™´”‰ˆ”‰ 甉”†Eˆ@”Ô2 ç‚™¸” ç‚™¿”  炙ǔ  炙ϔ ‰  ¦ $x%x£¦ ¦‰ ‰£¦‰à0²ŸÔ 0‰‰àŒ¦1?‰àŒ%x‰¢‰ ‰Œ¢””"‘1?‰àŒ#x‰¢‰ ‰Œ¢””"‘‰‰¢¦‰à‰ à³Ô$#x‰ ¢Ä%#xÄ‘–CrunchFrom end of disk, blockStarting at block #forward back : crunchedPlease re-boot"6‚š`‚šd€@Ç‘#‚še‚šq‚šr5× y„ ‘„ ‘@¤ ‰çÊ‘ ¤ ‰”„‚š| ”(£¤¤ )-²Ô(5)× ¤.x5)£× y²ŸÔ..ç5)£× çD)¢¤ ŠÓ5× ¤¤ „‚š ”5× æ(¤¤ )-³Ô 5)× ¤.y'³ŸÔ.ç.„D.x¤)£¤ ŠÛ‰†E”‰‚š„”‰”,Ô‰‚šŠ”‰”ÔŠû‰çÊ–€¼xß\6,„‡-€P”ˆ^„€P”‘ ‰å‘ ¥4ƒ›Ú¦–-OFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [1.0]&Filer: G, S, N, L, R, C, T, D, Q [A.x]OFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [1.0]&Filer: W, B, E, K, M, P, V, X, Z [1.0]BWarning units  &  have the same namePrefix titles by Prefix is BZt„ €l-ˆ$ ph|xF9‘†€ç‚›/€ÿ”¤<Ô‚›0EŠ‚›XE4€?°Ô<Ô‚›lEŠ‚›”E"ÔÙ‘‘ 4ƒ›¨ÚÔ‘ 4€V±Õ„‰æ £¤¤!#²Ôs‰€·!פ$‚›®”ŸÔX!¢‰æ ¤¤ %²ÔG$‰€· ×”Ô2‘‰‚›¯”‰!” ‰‚›·”‰ ” ‰‚›¹”‘ ¢¤Š´!¢¤Šˆ4Ö›Ó‹Ž‘9‹ˆ‘9‹‚‘4Š~‘3Šy‘)Šu‘*Šq‘+Šm‘.Ô‘+Šd‚›Ã‚›Ì€lÇ‘#ˆ<†E”‘ ‰‚›Í”‰ˆ<”‰€:”Š)‘1Š%‘-Š!‘<Š‘AŠ‘>Š‘BŠ‘CŠ ‘6Š €€”Š–SYSTEM.WRK.TEXTSYSTEM.WRK.CODE0???JanFebMarAprMayJunJulAugSepOctNovDec????????? Bad CodeTextInfoDataGrafFotow:††Eÿÿ”‰å‰ˆ&‚œ¤”Ÿ¡ ¥ ‰å‰ˆ‚œ¬”Ÿ¡ ¥‰æ&€P³‰çÉå¡¥ †” ¥†” 0¢¥”(ìì¢H¢¢³Ÿ”(²Ÿ¡0€?° Ôφ€“‚œ´€0”†€¬‚œÍ€ ”‘‰€·2×|Ô†”І”Ô㆔–ד<†#ÛF\f"ØíÚAüh¨TºX:ÿ b  þ ú ¹  N‹$ x ¬/¬PCöÎl/ ¦mcY>7zhï_VQLGB<6$ ߀E „E ׄņ„Û ×0Ć„½ ×áÄ– І€ª†Öÿÿ”€…”†€¨”…€…”…€¨åÕ‘02‘¥†…¢‘¥ ¥Ò€ˆ””ˆ€ˆ”:°Ô€‡””‡€‡”Š':°Ô€†””†€†”Š:€"°Ô €„””„€„”: °Ô³€ƒ”†€¨‚Œ”ƒ€ƒ”…€¨Ôˆ‰çʆ€ª”–-  ¤ ° | ¹«w-?.´Ó È ­ª ˜ e I ñ Ý ­  Þ^þ—@ŒO#òaEÊT˜’ïÞS ;X ª|ûôÎ9§Í €?×LISTDIR  **¾,„‡/€P”‰”‰¢¦‡.‰„ã£²Ô ‰‚ ”Ц„°‰‚ ”‰ €z²Ô'ˆ ‰ ”€ €A£Ø‡-ʉ‰ ”‰ ¢¦ Š ‰€ ”‰€ ”‰„”€†‰# „§£”‰‡.” –/ files.  free blocks ( contiguous; "**" too big).Z…”‰ˆ× æ” ‰‚`”‰‰” ‰‚e”‰‰” ‰‚m”‰„°Ô ‰‚s”‰‚{”–couldn't read file툄ˆ„‡”±Ô ‚€®”€ŠV‰€A£¢”¤„ §â¼ â¼Ûƒ€¸ÛÚÔ„ §°Ô ¢¤Š ¢¤ŠÖ€„ ?£€d „ ” ”€”–€A¤ $²Ôˆˆ €A£ØÉ× x¢ ¢¤Šß–Select: 'a'..''(file), (specify), ?(more info), or (next page).TEXT€Š}„„~ʼn €a²ŸÕü‰ £¤”€‰‚”‰ ”‰‚”‰‚#”$åÔ ‰‚*””€¥††”€ ¥€§…€§€'°Ô€ ¥6”€ ¥6€A ”€ ¼ÚÔ[ˆ„ ˆˆ 6€A£ØÉ× ç€P”ˆ„ ‚6ˆ„ ””¤„ˆ„³€P”„ˆ„ € ”„‰„߀𔄔€ € ¥6ƒ9Ú…€§° Õ,ÿ%…€§°Ä%xåÔ6€?°Ô ”€ ’6€?±Õÿ–¤#‰²ŸÔ#¦‰#¢¦–Ä$x¤„§¥„„§È„6È$ Ä–ˆ× y@ÚåÔ9€M¤¤ !²Ô-ˆ × ¤" "ç °Ô "ç "‰¹‘4…‰º‘4¤¤ !²Ô ‘4 ¢¤Šñ–m$#”‰ç ɰÔ5$°Ô#‘Š$#…°Ô†‰#?$£”І‰#?$£¢”$#”Š‘–§‰ç ɰÔ$%$‘$¢…¤¤ !²Ô‰” ‘ ¢¤ŠëŠ‘–> ††›7Ȇ†ß††›€‡”‘‘‰††›”…Ô††›††›§§€?°?††›§£³ ¡Ô0?£”‰€<”‰€1…Õ¢”‰‚‚U”††›§”–+‘4‘ –j‰ç ɰÔ$#°Ô‘‰††ß”‰”Š #”#‘Š#”‘–ERROR:  Press to continue.-„‡/€P””&¥Ö‡.°Ô‘Š‘‘‰‚‚¶”‰„”‡.°Ô‰çÊ€€”Š ‰‚‚º”‘+¤ ⼃‚ÉÛÚÔí¥ –/L Edit: A(djust C(opy D(elete F(ind I(nsert J(ump R(eplace Q(uit eX(change ?r††›‚ƒ€‡”‘ ¥€¥¥ ‘–¥„B…€¢Ô¥ Š<Ô‘6‘¥††‘ ¥ ¥„B–ú&¤¤;&§ƒƒPÚÔ7;&§°Ô&¢¤!;&§¢€ £¤Š;&§€ °Ô!¢¤Š !¢Œ¤&¢¤о%& £Ä!¤–‘¤…¤$†‘?‘¥4 ”$5¢¤ÿ ;$” ¤ …³ŸÔ ?4£¢¤Š?4£¤!#‘‘¤;$"¢§ °Ô €;$" ”Š€;$#£ ”‰€!”$!¢¢¤ ¢¤ …²Ÿ$1³ Õzÿ–";0§ °Ô0¤Š0¢¤¤'Ä!£¤ÿá ;!” !¢¤''x¢Ä'x&°Ô!¤'x…²Ÿ…!¢°%å¡  ²Ÿ%¡ !³Ÿ Ô½'x…²ŸÔ ¢¥‘'&ÄŠ…!¢°Ô%Ô‘Š ¢¥ ±Ô'&Ä‘–/„…‘–…'Ä…¤ÿ ;#” #¢¤"0³ŸÔ''x¢Ä"¢¤ÿ ;#” #¢¤ŠÝ#„‘¤(? !£0#£¢‘Ä– —„„‘! ”–ÿÿRepeatfactor too big ¤6ƒ„MÚ Ì ³Ÿ¡Ô Œ6¢€0£¤‘¥Šß6ƒ„QÚÔ‚„U‘¥ ¤Š †„‘ ¥ ¤–7RecordSpecialKey: OR €þrecordedß #Ô††C‚„‡€P”‘¥ ‘‘¥†R6ØÉ¥ :€;°Ô‘¥†€Ò6ØÉ¥ Šé:ƒ„£ÚÔÑ:€'±Ô4¥Ô:€)£¥Õ…Õ‘-†ƒú…Õפ ç‚„§ ” yÄ#Ô‘ ¥ ‘Š#Ô‘6– ÿá ;0£” 0¢¥3†‘¥35¢¥–;Won't fit in copy buffer (ToDisk makes room). Do it? (y/n)™ $#£à€}¢91£²ŸÔ††C‚…€P”‘€N‘,¤¥€ŸŠ(¥€Ÿ$#£à¥€ž9…€ž£¢¥€;$#‘;…€…€ž”¤– '&”))x(¢Äÿ ;)x” ¤&…³ŸÔ ?'£¢¤Š?'£¤ "‘‘¤;)x!¢§ °Ô €;)x! ”Š€;)x"£‘ ”‰€!”))x ¢¢Ä– d &Ô‘$‘†54$‘Š8%Ô‘Š1$”$‘‘3¤ †‘?‘¥„54$‘$¢¤$…²Ÿ 1³ ÔÝ–‡ -‡0„€S”‡/„×xć.„×xÄ–0:* Y„.‡Z€P”‚…Å„.”‚…Æ„.”‘¤ ²ŸÔ„. ”‡[„€S”„.„€&„.§¢‘”„ʄʄ €dÊ„„€8”¤„„€$”„‡[€S”–[8 -‡.„€S”„×x„×x£¤/–.^ -†€ª„€S”„ ׇ.Ä„†€ª€S”–.cbuf in buffer. tell richardê …„D£¤¤ !²Ô2†„½ ×xá°Ô†„Û ×x%³Ô†„Û ×†„Û ×x$¢%‘Ä ¢¤ŠÉ=%²ŸÔ =$¢%‘¥…€Ÿ…€%³¡…€1³Ÿ¡Ô‚†0‘– #……€ °4±¡Ä;2§ °;2§……° #x ¤–" †BŒ Þ0¤‡¥‘„ 7Ô *åÔ€€€"”.ÔC¤ 3²Ÿ„ 7å¡Ô ¤ 3£¥‘Šç)Ô3³ŸÔ¤Š *Ô3¤Š0¢¤Š3¤……¤Š3¤4……°Ô……¤Š…… ¤…€ŸÔ …€ £¤Š9¤%1!££¥;!;01!£”;%È"!³Ô"0!£¢¤;!È;!¢&€ ¢È!¢¤;0£ Ȥ 0¤;0§ƒ†ˆÚÔB;0§ °Ô&;0¢§°Ô‹/Š0¢¥‘„ 7Ô0£¥‹Š;0§°Ô0¢¥Š0¢¥г0¤;0§ ⼃†‹ÛÚåÔ0¢¥Šé;0§€-°Ô;0¢§€-°Ô0¢¥Šï;0§€-±Ô …… ¢¤Š…… ¢¤;0£§ƒ†ŽÚÔ;0§€ °;0¢§€ °¡Ô $¢¤0¢¥0 £¢¤&'¢$²Ÿ$…… £¢'² Ô0;!£§€ °Ô!£¤Šï;! È;!¢È;!¢…… € ¢È!¢¤…… ¤0¢¥; ;!'”; §€-°Ô$ ²ŸÔ; £§±; £§€ °¡Ô ;!'¢€ È'¢¤"!³"0³Ÿ¡Ô" ³ŸÔ!£¤Š!" £¢¤;0£§ °Ô1;0§°Ô¤ Š%‘„ 7¤ (åÔ;!'¢£€ È;0£§€ °Ô!£¤&'¢¤!'¢¤(ÕUþ‡%0£!¢1£‘!%0£!¢¥;0;!%0£”;1È"!³Ô"0!££¤1£"‘¥‘02‘¥–@ÿÿÿÿÿÿÿÿÿÿÿ§¤‘¤„†‘ ¤!ƒ‡ðÚÔ"²ŸÔ‘‰€ ”‘"£¤ŠŠ>!€5°Ô ('‘¤Š/!±!€'±¡Ô% ƒ‡ôÚåÔ ‰ç+ɤ‰ ”&" È"¢¤"€P³!° !€'° Õ}ÿ!€'°Ô&‚‡ü€P”¤ Š &"£È¤ ‰”–  what marker? 7V„+‡X€P”¥ ‘‘‰„+”‰‚ˆU”„+§¢„‘#Ô„§¤T¤ ‡T²Ô„ „ §‘ È ¢¤Šè„‡W„§‘”‡W„§„§£‘€ ” –XDisk error. Ignore it? m††C‚ˆ€P”‘#€N‘,Ä–·…„D£¤¤ !²Ô+†„½ ×x%°Ô†„½ ×áĆ„Û ×†„Û ×x$¢Ä ¢¤ŠÐ‰€.”–ì…€ŸÔ …€ £¤Š9¤¤(°Ô{ 1#9裑£³Ÿ¡……³Ÿ¡Ô]11¢¤†€ª;"……¢”±”"± Ô„‘8 Ô2á;"ÿ¢” ¢¤1Ô;";1!”…191!¢¥…¢¥Šˆ‹–#1£¢¤"£‘!;;"1” "4²Ÿ¡…²Ÿ¡ÔQ†€ª;……¢”±”"± Ô„‘8 Ô-á;” ¢¤"!£¤;;"!”…"9…£¥ŠŸ#"£¢¤01£$¢¥"ᢑ!$¥;";$”;1È– $EQUAL =±Ô0¤=¥‚‰w‘2¥€¡¥ ¥–$EQUAL E‚‰‹„‘)Ô†„½ ×xá°Ô ¥€¡†„Û ×x¥–Ran out of disk room…¢…³Ô ‚‰¤‘¦‹¢%²Ô¦‹–;&†‡#%”†‡#%%£” †€ª†‡#$$¢”±”"± Ôˆ‘8‰ÔZ…„D£¤¤ !²ÔB†„½ ×x³Ÿ†„Û ×x&³¡†„Û ×x&%¢³Ÿ¡Ô†„½ ×$Ć„Û ×†„Û ×x&£Ä ¢¤й‰€.”– allC 01²Ÿ¤ Ô ‰‚Š”‘:¤+°Õ 0€È£‘¤¤!$ÿ¢#²  ¡Ô4$þ¢#‘¤''á ;'” ¢¢¤$%$£…¢È‰§°Ô ‰‚‹+€P”– Æ#‚‹F€P”#†R€;>È#§°Ô?Š#†€Ò$>È#§°Ô?–%Ô.‰„”†R Øɤ!€;°Ô‰„”†€Ò ØɤпБ¤„†‘ ¤!€'°Ô¤Š ‘ ¤ ¤–@O$‘+¤ °Ô%¤ ƒ‹‘ÚÔé €Y°¤–‘…Ö£¤¤ !²Ô,†‚g פ"x$°Ô†ƒú"xפ"ç#x#y£Ä"çÄ ¢¤ŠÏ–Marker overflow„(Ť …„D³Ÿ†„E ׄ¹Ÿ¡Ô ¢¤Šå …„D°Ô7 ²Ÿ £²Ÿ„§€$±¡ Ô‚‹Ê‘€€€2”Š…„D¢¥„D† ”€)ÔD„¤;„;„8”„;‚€¸€T”„;ˆ]€¤”„;„5€¨”„;„2€¬”„;„/€°”„;€P”‰ ²ŸÔ-„¤;„;„€P”„;‚€¹€Y”„;€P”¦ ¦ ¦ Š*‚€¾†”€)Ô„¤;„;„€P”„;‚€Â€W”„;€P”„§²ŸÔ„”€ –€“Reading Page Zero/file bad (previous edit session not terminated)+Bad filename or no room in directory/volume Copying to $SYNTAX $SYNTAX Read Error on Input file.Ran out of disk room.Writing backup file.y1„ „5ÿÿ”†€ª†„C”±Ô‚]”€…„C³ŸÔ‚f”€†€ª†‰g”€1†€ª”†€ª†‰g”„ †‰”„ ”€0¤”"±"…¢³Ÿ Ô„ ”†€ªˆ¯”€1†€ª”‚~”€‰”€‰‚””‰†‰”‰”"…£¢¥¤……¢¤’‰ ²ŸÔ[€”‰ ††l”€”‚š„”€)åÔ$…„D”€¤%…„D°Ô…„D¢¥„D†„E%ׂžÅ†„½%׉ Ć„Û%׉ ÄŠ ††l‚¢€P”…„D£¤1¤&‡1²Ô†„½&׆„½&×x…¢£Ä&¢¤Šà…€ŸÔ …€ £¤Š 9£¤†€ª; $”¤”"±Ô‚£”€!²ŸÔ%„ ;!#”!±Ô‚°”€”"±Ô‚»”€#!¢¤$!¢¤!²Ô©„ ”"¥†€ª”†€ª†‰”„ ”–1>Edit:Reading·”€‰‚‚Á”‰”‰‚‚Å””€%–å+„„-ÿÿ”„‡,””"°¤-€‡,”„”–,.ASE!&file already involved in edit. file? UU„*‡V€P”„„*€P”„‚‚÷’„’Ô††C‚‚ú€P”¤WФW–V$ exists. Do you wish it destroyed? ¿¤$’ Ô¤Š.$’Ô'‰$”‰‚ƒ,”€N”€,¤‰”##x¢Ä–.TEXTCannot create . file? Creating No room or disk removedfile system terminal errorI_„,„`Å„„-ÿÿ”ˆ4‚ƒa’„ˆ4””"°Ô1††C¤-„-‚ƒd”„-ˆ4€^”„-‚ƒl€g”„-€P”¤,‹Ä„”ˆ4ˆ’ Õ­†‰ˆ4€P”‰‚ƒq”‰†‰”‰”†‰g‚ƒv€P”„”; Ȇ„C” †€ª†‰””"±Ô‚ƒw”€†€ª”€0ç Š"ç ¢¤ŠÎ–:?*: No Volume ''.Bad Disk Operation on :.TEXT‘ „„ß„… Å„„³‡„ä€P”„„ˆ„…´ÿÿ”‚‚ „„³”¤‚‚ „„³”¤„„6‚‚ €P”„„³§€*°Ô!”€¤%!¢²ŸÔC„„6„„³„„å!¢%!££”„„å€P”„„6§¤„ܤ ‡„ܲÔ„„6 „„6 §”€ È ¢¤Šä„„³§€*°Ô „„³‚‚ €P”Š)!²ŸÔ„„³„„³„„å!”„„å€P”Š „„³‚‚€P”„„ˆ„„³””"±Ô!‰‚‚”‰„„³”‰‚‚”‹,„„ˆ„”±Ô‰‚‚”‰„„³”‹„× ¤„Ü„„ˆ„†”€3‡„â&°¤„²¤¤‡„Üæ£¤„ݤ ‡„ݲÔ?‡„²„ × x‡„á°¡Ô„ ¢× x„ × x£‡„ࢊ„ ¢× x„ × y£ ¢¤Šº‡„Üæ²ŸÔI„× x‡„Üy£„‡„Üæ× x‡„á°‡„²¡Ô‡„Ü„‡„Üæ× x‡„ࢣЇ„Ü„‡„Üæ× y£‡„ãá°Ô#¤„㔀„„³¤„å„„å„× ç”„„å‚‚#€W”„„å€P”‰„„³”¤¤„±‡„± ‡„Üæ²¡Õå€a¤ ¤„°”€¤ ‡„Üæ²"…³Ÿ¡Õ´„ × ¤„Ý„„ ‡„Ýç€P”‚‚$„„ ”±Õˆ„„ „„ §£”„„6§°Ô ‡„²å‡„Ýx‡„á± Ô„„ ‡„Ýy‡„Ýx£ ŠQ„„ §„„6§³ÔD„„_„„ „„å„„6§”„„å€P”„„_„„6”Ô‡„²å‡„Ýx‡„á± Ô„„ ‡„Ýy‡„Ýx£  ¢¤‹<ÿ„„± ‡„Üæ²Ÿ‹ ÿ„„ˆ”–…ÔäÇ>¼ù~(‚ êRECURSE .TEXT³~„.„Å„‡.€P”¤ ‡/§²Ô‡/ §€ °Ô ‡/ ”Š ¢¤Šß‡/§¤+¤ ‡+²Ô‡/ ‡/ §”€ È ¢¤Šç‚ ‡/”‡/§£°‡/§³¡Ô ‡/‡/§£”‡/¤0„0‡/€P”„0„€ ”„0€P”–€€â,„„-Å$%„#¢%§#£”„€P”%#%§#£¢”–/writing page zero‰…„C±Ôb†„C” ¥… ¥… ¥… €.¥…¥… ¥…?¥… ¥…¤¤ !²Ô†„ù ŒØÊ ¢¤Šé†…ˆDÅ᥅†…ˆDÅ¥„C…„C᥄C†€ª†„C”±Ô‚r”€…„CॄC– M$LAST JM$LASTŒ¿„g„€ÀÅœ„;‡g€P”„‚€Æ€P”„5”€*„8”€*€:„2”€*€)„/”€*„+‚€ÇÅ„;§”€¤d¤ ‡d²Ô„+ £„; §”€ È ¢¤Šå„+†”€)ÔB„¤h„h„8”„h‚€Ë€T”„h„;€¤”„h„5€¨”„h„2€¬”„h„/€°”„h€P”‚€Ì†”€)Ô„¤h„h„€P”„h‚€Ð€W”„h€P”„”€ –€À'Files being edited: (most recent first)0”‰‚H”‰”…‰»¤¤ "³ÔR†‰¼ × ¤…‰» £¢¤!”‰ ¢” ‰€.”‰”!”‰#ç”!”‰#” £¤Š©–]+„„-ÿÿ”„‡,””"°¤-€‡,”„”–,.ASE!.TEXTØ„V‡€‚€P”„.„Zÿÿ”„„V€P”„‚³’„’Ô¤€ƒŠ.„V‚¶’„.„V”„.„„”€3†€ª„„”€3#!°" °¡¤€ƒ„.”–€‚”€†‰g†‰¼…‰»× €P”†‰†‰¼…‰»× ç€P”€„”–$ exists. Do you wish it destroyed? q$’Ô)‰$”‰‚‚ ”€N”€,¤‰”##x¢ÄФ–.TEXT Can't create . File? ˆ„U„€‰Åœ„)‡U€P”„„-ÿÿ”„)‚‚:’„)ˆ’ ÔS†‰„)€P”†‰g‚‚=€P”„†‰””"±¤V††C¤W„W‚‚> ”„W†‰€]”„W‚‚E€f”„W€P”ФV„”‡V¤€Š–€‰4? Looks, Creates, Exits or Filename: q††C‚‚–€P”–,z†€ªˆUˆT”€31À……£¢…¢¢Œ¦Vˆ.§²ŸÔ"„¤*„*‚‚º€P”„*ˆ.€ ”„*€P”Š „‚‚»€P”€‚”ˆá‰U‰T‰V„”‚€‚”¦’ †‰‚‚¼€P”†‰g‚‚½€P”ᦔ€–z,=$PROFILE=???.TEXT.BACK.TEXT.TEXT7¤„T„€¥Åœ„„-ÿÿ”„)„Uÿÿ”‚ƒˆ”¦‰±Ôˆˆ.‰’Š ˆ.‚ƒ€P”‚ƒˆ”¦‰±Ôˆˆ‰’Š ˆ‚ƒ€P”‚ƒˆ.”¦‰±Ô ˆ.ˆ‰’ˆ.§²ŸÔ?‚ƒˆ.”ˆ.§°Ô-ˆ¤U„Uˆ€P”„U‚ƒ€ ”„U€P”ˆ.ˆ.§”‚ƒˆ”±Ô ’¤T‹íˆ.§²Ÿˆ§°¡Ô ˆ.’ ¤T‹Ïˆ.§°ˆ§°¡Ô¤T‹¸ˆ.§°ÔG†‰ˆ€P”†‰‚ƒ’†‰gˆ€P”†‰g‚ƒ’ˆ+†‰€P”„)ˆ+””"°¤TŠh†‰ˆ.€P”†‰‚ƒ!’†‰gˆ€P”†‰g‚ƒ$’†‰ˆ’ Ô1ˆ+†‰g€P”„†‰””"±Ô „)ˆ+””"°¤TФT„”„)”‡T¤€¥–€¤ *CREATED&File already involved in edit. File? Not present. File? C ¬¤ ” ¤‰††C” ††C§ ”€††C§ „”€#åÔ’ „§°Ô7„W‚„&€P”„W…‰»€1¢È¤€€„€€‚„'”„€€„W€X”„€€ 夊å¤#åÔ$†‰’Ô††C‚„,€P”¤Š ††C‚„@€P” ¢¤#åÕ_ÿ–€¬Reading Page Zero/File bad (previous edit session not terminated)Can't open dest file! !No room in dir/volume to edit in! Copying to Read Error on Input file.Ran out of disk room.Writing backup file.  1„ „5ÿÿ”†€ªˆ+”†€ª†„C”±Ô‚„£”€…„C³ŸÔ‚„¬”€†€ª†‰g”€1†€ª”†€ª†‰g”„ †‰””"±Ô‚„Ä”€„ ”€0¤"…¢³ŸÔ„ ”†€ªˆ+”€1†€ª”‚„Д€”€‰‚„ᔉ†‰”‰”"…£¢¥¤……¢¤…„D£¤1¤&‡1²Ô†„½&׆„½&×x…¢£Ä&¢¤Šà…€ŸÔ …€ £¤Š 9£¤†€ª; $”¤”"±Ô‚„甀!²ŸÔ%„ ;!#”!±Ô‚„ô”€”"±Ô‚„ÿ”€#!¢¤$!¢¤!²Ô©„ ”"¥†€ª”†€ª†‰”„ ”–1$CURSOR too deeply nested in edits nested Edit: [ASE 0.7n.ASE!recurse: disk error° ‚‚…Ô”€2„‚…Ø€P”¥ ¥Ò…‰»³Ô‚…Ù”€€„””€††›‚…瀇””€ ‰‚…€]”†‰¼…‰»× 熉”†‰¼…‰»× †‰g” …‰»¢¥‰»”€„W†‰¼…‰»£× ç€P”„€€‚…ô”„€€„W„W§£”€ƒ”„„W”ƒ€ƒ”††l‚…÷€P”¥¥¥¥”€†‰g§°ÔP†€ª†‰”†€ª”€0¥…Ô…£¥†€ª;…Œ£”±Ô‚…ø”€†€ª”†„C” …¥†€ª†‰”†€ª”€0¥†‰g§²ŸÔ; È”€%;1£§ °1° Ô1°Ô ;È;€ È¥;1 È1¢¥;1È¥……¢¥…„”€02”€¥0¥”€–€‚ (¿²KKòºš]Õ|\ „¿ INITIALI.TEXT³~„.„Å„‡.€P”¤ ‡/§²Ô‡/ §€ °Ô ‡/ ”Š ¢¤Šß‡/§¤+¤ ‡+²Ô‡/ ‡/ §”€ È ¢¤Šç‚ ‡/”‡/§£°‡/§³¡Ô ‡/‡/§£”‡/¤0„0‡/€P”„0„€ ”„0€P”–€€#…„C±Ôb†„C” ¥… ¥… ¥… €.¥…¥… ¥…?¥… ¥…¤¤ !²Ô†„ù ŒØÊ ¢¤Šé†…ˆDÅ᥅†…ˆDÅ¥„C–writing page zeroa…„C᥄C#†„C”±Ô‚€“”€…„CॄC– M JM$SYNTAX$LAST JM$LAST¶“„‚€²€P”„5”€*€:„2”€*€)„/”€*„8”€*ˆ]‚€³”ŸÕ†„*‚€´Åˆ]§”€¤;¤.‡.‡;²Ô„*‡.£ˆ]‡.§”€ ȇ.¢¤.Šß„*† €A°Ô7€…”„”…€…” Ô…‰»°Ô€E¥Š€P¥Š”€02”€¥‰ƒÄ6€P°Ô…‰»£¥‰»’‰ƒÄ–:„(*:.TEXT.TEXT)File already exists. Are you sure? (y/n)Illegal filename..BACKÞ q„„-ÿÿ”ˆ‚]†‰€P”ˆ‚4†‰g€P””€ˆ‚ ”€#Õ툂 §°Ô”€‰ˆ‚]”‹Ðˆ‚ §€*°Ô ˆ‚ ”Š‚„+ˆ‚ ”¤)‡)²ŸÔ ˆ‚ ‡)”¦‰ˆ‚ §²Ô;ˆ‚ ‰§ƒ„,ÚÔ ˆ‚ ‰”Šˆ‚ ‰ˆ‚ ‰§”€ ȉ¢¦醉§€*°Ô „*‚„2”Š0‚„3†‰”¤)‡)±Ô„*†‰„:‡)”„:”Š „*‚„4”ˆ‚ ¤:„:„*”„:ˆ‚ €n”„:€P”ˆ‚ §²‚„5ˆ‚ ”ˆ‚ §£± Ô#ˆ‚ ¤:„:ˆ‚ €P”„:‚„8€U”„:€P”„ˆ‚ ””"°Ô+ ”‰”‰‚„;”€N”€,åÔ ”€‹nþŠ(”"°Ô ”‰”‰‚„P”‰”‹Dþˆ‚]ˆ‚ €P”ˆ‚]†‰”Ÿ‚„Y†‰g”²Ÿ¡Ôˆ‚4†‰€P”Š ˆ‚4†‰g€P”„”–qA= JM$CURSOR"$auâ €„”€*ˆ‚]†‰€P”ˆ‚4†‰g€P”ˆ‚ ‚…s€P”¦’”€+¥6€B°Ô[¦ˆ‚¯ˆ‚]€P”ˆ‚¯ˆ‚¯§£”¤„‚…t€P”„ˆ‚¯€ ”„‚…u€ð”„„€ò”„‚…v€û”„”€ 6€C°Ô’6ƒ…{ÚÔƒ”6€A°¦‰Ôˆ‚ ‚…”€U¥Š ˆ‚ ‚…‚”–€€*SYSTEM.WRK.TEXT:.BACK*system.wrk.codeCodefile Removed.ñ 4‰…‰»°¡Õµ†‰‚…󔆉ˆ‚]”Ÿ¡ˆ‚4‚…ü”¡Ô¦ˆ‚…ý”ˆ&‚…þ”Šv†‰¤„ˆ”„‚…ÿ€W”„ˆ&€f”„”‚††‰g”±¡Ô>†€ª‚†””"°Ô‰”‰‚† ”‰”†€ª”¦ˆ‚†”–4$CURSOR 7Are you sure you want to exit? (Y(es, N(o or A(nother) @.BACK.Backup file not present (tried to restore it).SYSTEM.WRK.TEXTWriting LPAGE+1>RPAGEThe new file, , is blocks long.The old file is Writing out the fileÒ„‚؇ƒ€P”‚†z¥…Ô…£¥†€ªˆ‚…Œ£”±Ô‚ƒƒ”€†€ª”†€ª†‰”…¥¤,Ф,„”‡,¤`–_gap? õ°Ô{‰ á°Ô.‰”‰‚„+”‰„” ”"±¤‰„”#åÔÔŠ‰ ¤† ” ¥ „€2” ”(¤9€d¢¥ !²Ÿ!"³Ÿ¡9³Ÿ ÔÝ9³ŸÔÿ¥ 9£¥ Š † ” ¥ ˆ” ‰Ä– C /„„0Å„‚„|”„€0% ¢È„€0% ¢Èˆ*¤„ˆ*€P”„„€R”„€P”–0 'xxxJanFebMarAprMayJunJulAugSepOctNovDec takeup??ô Ô†ƒú£×¤[„*‚„£€P”ˆDÉ„*¤\„\„*€P”„\‚„¤€ ”„\€P”„‚„¥€P”ˆDÉÿÚåÔˆDÊ„„„\ˆDÉŒ¢”„\€P”„*¤\„\„*€P”„\„€ ”„\‚„¹€ð”„\€P”ˆD É„*†‚‚‡[y„*§”‡[‡[y„*§¢Ä††•„* ”€:„X”€*€)¤T£¤[¤S‡S‡[²Ô~†ƒú‡Sפ\‡T„U”€*„U§±Ô7„*¤]„]„X”„]„U”„]€P”„*†‚‚‡\y„*§”‡\‡\y„*§¢Ä‡\ç‚„º ”‡\ç‚„¾‡\甀1‡S¢È‡T¢¤T‡S¢¤S‹{ÿ†ƒú£×熆• ”–€Ô #€A£€a¢¤–*system.miscinfocouldn't open miscinfono extended *system.miscinfo~ ¥‰º¥‰¹€ÿ¤¤ "²Ô†R Øʆ€Ò ØÊ ¢¤Šâˆ ‚…„””"±Ô‚…”€ˆ ˆ ”±Ô‚…™”€€~¤¤!"²Õžˆ !פ#çÉ€<°Ô#çÉ¥‰¹#É¥‰ºŠq#çɰÔ-†R#ÉØ#çÉÊ#ÉÔ†R#ÉØ#çÉÊŠ:†R#çÉØ€;ʆ€Ò#ÉØ#çÉÊ#ÉÔ†€Ò#ÉØ#çÉÊ!¢¤‹\ÿˆ €×y¦ ‰ ¸ ³ŸÔᦠ–4? Looks, Creates, Exits or Filename: Å ††C‚†@€P”–Not present. File? †‰’ Ô¤Š†€ªˆ¯””"°¤††C‚†d€P”–< ,„„-Å$%„#¢%§#£”„€P”%#%§#£¢”–/þÿÿþÿÿ’ †ßƒ†ŸÇŽ†×ƒ†¥Çކå€vȆå€^Ȇå€>Ȇå€<È–’’‰€.”¥‰»¥„B¥¥Ö¥Ô¤¤!"²Ô†ƒú!פ#ç€P!ŒÄ#€P!ŒÄ!¢¤ŠÞ’ ‰€.”‰ç%¤"y£¥"x£¥…¢¥‰çÊ’ –ASE 0.7n>Edit: [ASE 0.7n:*SYSTEM.WRK.TEXT *CREATED.textSYSTEM.WRK.TEXT,=$PROFILE=???,.text.TEXT.BACK.TEXT.TEXT JV„„„„WÅ„ „‚8ÿÿ”‡„åÔ ‰‚‡ ”…€Ÿ‡„¡¥€Ÿ‡„åÔ‰€.”†‰#€ˆ€ ” ¥¥¥¥”€‰‚‡”‰‚‡”‰€]”‰”‰‡„å¡Ô*¤„„„ˆ”„„‚‡€W”„„ˆ&€f”„„”€ ¤¤„‰††C”‡„††C§'„4”€#åć„xÔ€…”„4§°Õƒ„4‚‡€P”‡„ÔJ…‰»²ŸÔB„„‚‡%”„„…‰»€0¢È„4¤„„„‚‡&”„„„„ ”„„‚‡+”„„€P” Ôˆˆ@”ˆ&‚‡.”¦‹.Ф„‹‚‡6„4”¤ )±Ô „4„†)Š „†‚‡7€P”‚‡8„4”¤ (±Ô „4„](Š „]‚‡9€P”‚‡>„†”¤ (±Ô „†„](„†§²ŸÔC‚‡?„†”„†§°Ô1„4¤„„„„4€P”„„‚‡@€ ”„„€P”„†„†§”‚‡A„4”±Ôe„†§²ŸÔ'„ؤ„„„‚‡B€P”„„„†€ ”„„€P”Š „Ø‚‡C€P”€‚”„4áá„Ø”‚€‚”¤„ᤔ€‹Ù„†§²Ÿ„4§°¡Ô$„4„†€P”„4‚‡D ԋЊ¤„‹£„†§°„4§°¡Ô¤„‹‹„†§°Ô:†‰„4€P”†‰‚‡G†‰g„4€P”†‰g‚‡J„¯†‰€P”处ŠH†‰„†€P”†‰‚‡M†‰„ Ô'†‰g„4€P”†‰g‚‡P„¯†‰g€P”处Ф„'¢¤‡„å”"°¡Õ0ý†€ª”€0¥; È;1£§ ±1° Ô1°Ô;È;€ È1¢¥;1 È1¢¥‡„åÔ€>¥¥€¢€ ¥¥€Ÿ¥€œ¥€›;1È¥”€2¥¥€¡†€ª……¢¥…‡„åÕ˜€ÿ¤„¤#‡„²Ô †ç##È#¢¤Šì€A€Z¤„¤#‡„²Ô†ç#€AÈ#¢¤Šë€a€z¤„¤#‡„²Ô†ç#€AÈ#¢¤Šë€0€9¤„¤#‡„²Ô†ç#€AÈ#¢¤Šë†ç€AÈ†ç € È†ç € Ȇ†ß‚‡S€‡”„ ”–„XË®‰o\}©À/’@ÞÊÇÇ\ U…uOUT $LAST W…Ö²ŸÔ†‚g…Ö£×x°Ô€ƒ”‚ „”€)Ô†„½ ×áĆ„Û ×0Ä–$LOG $The log is not in the edit buffer. Log Entry? (y/n)Entry:  cM$LOGM$LOGqn66‚-„”€)Õo€&„”€*„”€*„ ”€*„ ”€*„”€*„”€*†„½ ×xá±Ô ‰‚1”‰‚D”€N”€,Õ ‰”‰‚M”¤7„7††• ”„7‚Q€Z”„7”€ ˆ‚ ‚R”ŸÔ+ˆ‚ ¤7„7‚S€P”„7ˆ‚ € ”„7„€¢”„7€P”„”€#Õ˜¤7„7„”„7‚T”„7„ ”„7„ ”„7„€[”„7„€]”„7„€_”„7„ €a”„7„€c”„7‚W€h”„7„€j”„7‚Z€º”„7ˆ‚ €ÿ”„7ˆ‚ €ÿ”„7‚[€ÿ”„7”€ €ƒ”Š€ƒ”Š…€§€'°Ô€ƒ”‰”–6>Quit:# A(nother file (after Updating)" B(ackup and re-edit same file- C(hange the name of the destination file$ E(xit (destination not updated)1 R(eturn to the editor without doing anything& U(pdate the destination and leaveOutput File Name: Backup File Name: (Files being edited (most recent first): 󔀆†ß‚€‡”‰††ß”‰”‰‚!”‰”‰‚3”‰”‰‚E”‰”‰‚\”‰”‰‚o”‰”‰‚ˆ”‰””‰‚œ”‰ˆ‚]”‰”†‰g§²ŸÔ‰‚¦”‰ˆ‚4”‰”…‰»²ŸÕ” ”‰‚°”‰”†‰¼…‰»× 熉”†‰¼…‰»× †‰g”…‰»¤¤!"³ÔR†‰¼!× ¤…‰»!£ ¢¤ ”‰!¢” ‰€.”‰” ”‰#ç” ”‰#”!£¤Š©”–)can't restore state: ran out of disk room (from ).reading p zerowriting p zero disk read disk writeƒ†€ª”€0¤ˆ”€0¤$%³ŸÔ‚‚{”€‰‚‚”‰ˆ-”‰‚‚””‰”$%£¢¥¤……¢¤ˆ†„C”±Ô‚‚–”€…„D£¤¤&'²Ô†„½&׆„½&×x…¢£Ä&¢¤Šá†€ª†„C”±Ô‚‚ž”€9£¤ˆ; #”¤”"±Ô‚‚¦”€!²ŸÔ†€ª;!"”!±Ô‚‚«”€"!¢¤#!¢¤!²Ô·ˆ”†€ª”†€ª†‰”$¥– Edit: [ASE 0.7n Restoring .ASE! not in directoryReading JM$CURSORÔ†„„-ÿÿ”†‰†‰¼…‰»× ç€P”†‰g†‰¼…‰»× €P””€††›‚ƒC€‡””€ ‰‚ƒH”‰€]”¥ ‰”‰‚ƒM”‰†‰”†€ª†‰”„-†‰€P”„*‚ƒS”„*„-„-§£”„„-””"±Ô¤V„V„-€P”„V‚ƒV€a”„V”€¥¥¥¥€¡¥¥; ȉ‚ƒ_””€%”€02”€¥‚ƒc”€ „”–€†S‰Ô€A¥Š…‰»²ŸÔ€P¥Š€E¥6 ”€  ”€(Ô€†”+¤)"³-å¡Ô )"£¤ Ší*#³Ÿ("³Ÿ¡Ô)"£(£”€Š)"£*#³("³ -å¡Ô& *#³Ÿ("³Ÿ¡Ô"£(£”€Š"£ŠÎ”"±Ô‚‡\”€”€02”€¥”€„‚•”„‚•”–‚çEº§¿‰å=¿*ß0Á¥ýVߤb‰dU(c†3ENVIRONMNONEJanuaryFebruaryMarchAprilMayJuneJulyAugust SeptemberOctoberNovemberDecember %0;FQ\gr}, y-„*‡.Å„*É°Ô ‰‚ ”‹Æ„*ÉÖ:œ‹„„‚ €P”Šy„‚€P”Šn„‚€P”Šc„‚€P”ŠX„‚€P”ŠM„‚€P”ŠB„‚ €P”Š7„‚#€P”Š,„‚'€P”Š!„‚,€P”Š„‚0€P”Š „‚5€P”Љ„”‰€ ”‰„*É” ‰‚H”‰„* Él¢” –.Ÿ‰€ ” ¤¤ !²Ô ”€ ¢¤Šð–TrueFalseÑ#Ô ‰‚€Ñ”Š ‰‚€Ô”‰”–@T or FTrue False a’”€”€ ¤ ƒ€êÚåÔ,‰‚€ð”¤¤!"²Ô ”€!¢¤Šð”€”€ ¤ŠÊ €T°Ô‰‚€ô”¤Š ‰‚€ø”¤–ÿÿÿ ’¤”€¤ € â¼ â¼Ûƒ2ÛÚåÔ‰€#”‰””€ € â¼ â¼Ûƒ6ÛÚÔÀ ƒ:ÚÔ‰ ”!Ë ³ŸÔ ! Œ ¢€0£¤ € â¼ â¼ÛÚÔ‘!¤‰‚>”–ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò”€¤ ƒ„ÚÔ ‰ ”Љ€(”‰ ” ‰€)”$È”€¥6 ±Ô;$$§¢È$$§6È6ƒŒÚÔ ‰6”Љ€(”‰6” ‰€)”$§€O³6 ° Ô®6ƒ”ÚÔ ‰6”Љ€(”‰6” ‰€)”–-Define Spec”€2‡ƒćƒÔ„‚]„‚Ø€P”„‚4‚†~€P”‹Õ 6€R°Ô€ƒ”6€E°Õ³‰”‰‚†””€+¥6ƒ†›ÚÔð6€A°¤!Ô€Y¥6€Y±Ô‹`‡ƒÄ”€†€ª”‚†¡†‰g”²ŸÔ7†€ª†‰g””"°Ô†€ª†‰”€1†€ª”Љ‚†¤”‰”Š$ˆ&‚†¼”Ôˆ‚†Ä”ˆ&‚†Å”¦‹Û”€"åÔ1€Ç¢¥‰‚†Æ””€&†…ˆDÅ…¢…°Ô‹Ö…¢…²ŸÔ‚†Ê”€…¢Œ¤…Œ¤…€ŸÔ …€ £¤Š9¤‰€*”†€ª;%'”¤”"±Ô‹F$±Ô†€ª;$&”$±Ô‹.”"±Ô‹#&$¢¤'$¢¤$°Ô¬…¢…¢…£Œ”€/…„D£¤ƒ¤#‡ƒ²Ô)†„½#×x…³Ô†„½#׆„½#×x……££¢Ä#¢¤ŠÐ†€ª†„C”±Ô‹µ‡ƒĉ”‰‚†Ñ”‰„‚]”‰‚†Ù”‰…¢…¢…£Œ” ‰‚†Ü”‰”†‰g§²ŸÔ‰‚†ã”‰„‚4”†€ª„‚]”€1†€ª”‡ƒ冉g„‚4”Ÿ†‰g§²Ÿ¡¡Ô†€ª†‰g”†€ª„‚4”€1†€ª” ‹‚†ì”€‡ƒåÔ–ƒ„]ð²iÆ]øƒ tCOPYFILEImproper marker specification.K‚ ”€‰Ô”€€†”–‰;‰;0‰”‰¢0‰¢£”€!10¢‰¢£¥†”€'‰¢¤„”€'–Marker exceeds file bounds.Ä‚F”€’‰Ô”€€†”–ì910££¦10£¢¦0£¦;0;‰‰”–[ ],.TEXT.TEXTÀX‚wˆ‚”¤"°Ôˆ‚‚xň‚‚|Å‹¾‚€€ˆ‚”¤!°!"³Ÿ !ˆ‚§± Ô’„ˆ‚„."¢!"££”„.€P”ˆ‚ˆ‚„."£”„.€P”‚€„”¤ °Ô’„§ £¤„ˆ‚ £”€”ˆ‚ £ ££”€€ ” „ ¢ˆ‚#”€”ˆ‚##£”€€ ” ¤.¤#‡.²Ô'ˆ‚#ˆ‚#§”€ Ȉ‚#ˆ‚#§”€ È#¢¤ŠÓˆ‚§¤.¤#‡.²Ôˆ‚#ˆ‚#§”€ È#¢¤Šã‚€‚ˆ‚”ˆ‚§£±ˆ‚§² ˆ‚ˆ‚§§€.±¡Ô#ˆ‚¤.„.ˆ‚€P”„.‚€…€U”„.€P”ˆ‚ˆ‚§§€.°Ôˆ‚ˆ‚§”–X2‰Ô-;0 È”€02°¤%&¢³Ôˆ&§°Ô !Ô3¥Š&¢¤¦&%²Ô5%&£¢¤0 ¢€ú¢‰³Ô’”€”€&”€&’ˆ&;0 ”0 ¢¥–Bad disk transfer¹ˆ‚•ˆ‰‰¢”±¦”"±Ô‚𔀉¢¥’€†”‰€.”‰åÔáˆÿ” ¢¦Š¦‰¢¦–ä‰ ‰³‰ ‰³Ÿ¡Ô‰ ¢¦ ‰ ‰£¦ –Marker not there.g„*Ť ‰³Ÿ„ˆ ×¹Ÿ¡Ô ¢¤Šå„ˆ ×¹ŸÔ‚󔀒‰Ô”€€†”)ˆ€™ ×xÄ(ˆ{ ×xÄ(x°Ô ))x£Ä(Ä– Old file (markers not valid). <¦ ¦ ÿ¦ ÿ¦ ˆ‚‚‚5¹Ÿˆ‚‚‚9¹Ÿ Ôcˆ‚•„”±Ô’ ±Ô‚‚=”€’‰Ô”€€†”ˆ‚‚‚M¹ŸÔ ˆ‚ˆ ˆ ˆ‚‚‚Q¹ŸÔ ˆ‚ˆ ˆ –‚ uˆ‚‚‚ ¹ŸÔ ‰ ‰ £¢¤Šˆ‚•”€0‰ £¢¤–€þ¹$”€Ä#†R$xØÉÄ#x€;°Ô$”€Ä#†€Ò$xØÉÄŠæ#xƒ‚¼ÚÔË–ã,„‡-€P”„§²ŸÔ„”€¥Ò€†”–-No terminator command "|.":;0§¦‰ °Ô"01£³Ô‚‚ó’Š0¢¥”€2¥;0§¦Š×0¢¥–Special key overflow.u†‚‚‰#ȉ¢¦‰‰³Ô‚ƒ’–ž'„”€*„§¤¤#$²Ô„#§’#¢¤Ší–þÿÿþþÿÿ!|º ëPÖÈÁÏñä§” cÝ®‚šˆW´ŽIa ’‰ƒƒPÚÔ ‰€A£€a¢¦‰Öƒ`‹k€|’‹c†ƒú…Óפ¤‰¤’" ²Ô#ç"‰È"¢¤‰!°Ôä#ç "£”€È‹%¦ ‹¦‹’‰¦‹ ’‰ƒƒVÚÔ‰€1£€)¢¤ ‹ì‹æ‹à‹Ú‹Ô‹Î€&‹Ç€4‹À‹º‹´€'‹­€1‹¦€2‹Ÿ€5‹˜€3‹‘€#‹Š€6‹ƒ€:Š}’‰ƒƒZÚÔ ‰€A£€a¢¦¦‰ˆ‚l§³Ÿˆ‚l‰§‰±¡Ô ‰¢¦ŠÜ‰€.±ˆ‚l‰§‰°¡Ô ‰£¤ ‰€]±Ô’ŠóŠ ’‰€}°ÔõŠ–q †ƒú%×y¤…€¤; §°Ô ¢¤ …€…€ž¢³ŸÔ+†‚‚!; §È!¢¤ ¢¤; £§ °Ô †”€¥ 5¢¤ŠÉ†ƒú%×!Ä%”€-–"Copy buffer undefined or too large* Takeup from copy buffer: .. & ‰°ÔM…€Ÿå…€ž€P²Ÿ Ô‚„º’††›‚„Ì€‡””€ ”€ˆˆ’ ‰±Ôð‰€'°Ô‚„â’Š‰€)£‚„ã’–( Takeup: .. or C(opyBuffer taken upJ ††›‚…€‡””€ ¥ ”€„„’ &€'°Ô‚…)Š&°Ô&€)£¥Ó†ƒú…Óפ ¤ ))yÄ)y¤)y€O¢¤”€02”€¥0¥€ ¤€|¤)ç‚…* ”¤#$°ÔŠ#%°Ô€ Š #€ ±Ô#'ÔÞ)!Ä…Ó”€-(Ô3…Ö²ŸÔ ‰”Š!†‚g…Öפ *…ÓÄ*çÄ*çÄ…Ö¢¥Ö†…”€”€:€:±Õÿ– b †‚‚‰§¦‰¢¦– Key Overflow. ‰R$€ °¡Ô€|’€{’€}’Š2$°$€|°‰€(³¡ ‰€-³ Ô¦ˆN’¦R$±Ô‹³ÿ$±Ô6ˆ‰$ȉ¢¦‰¢¦¦R‰€n³Ô‚…²”€¥Ò€†”–, -„‡.€P”„§¤+¤ ‡+²Ô„ §’ ¢¤Šì–.: SZ?}!‹........hoLv„ai &ƒ†ÚåÕÈ€|’ˆ‚l&¢§€.±Ô€[’ˆ‚l&¢§’€]’‹œ&Ö†‹•€l’‹€r’‹…€u’Š~€d’Šw€e’’Šj€f’&€)£€1¢’ŠY€n’’ŠL€b’ŠE€t’Š>€h’Š7€*’Š0€>’Š)€<’Š"€@’Š€g’Š€^’Š €!’’ŠŠ €|’€?’–ÿÿÿÿÿÿÿÿÿÿÿ!S€&„K”€*„N”€*„€ÿȤ€i„N†ƒú…ÓפS‡Sy¤¤¤R"‡Sx³ŸÔF†R!Øɤ¤Q €;°Ô¤Q†€Ò!ØɤŠé!ƒ†¶Úå‡Q Ô Š !€|°Ô!!в€|€.„N„K„$£È„”€ ¥Ò–S=.atcdfij.mnpqrsvxz<>.......?..=/blegok..#..............uw+...& Copy: From what file[marker,marker]? ?# Copy: File not present. Filename?  Copy Disk Error.©ç„‚•„ƒÁÿÿ”…Ò±Ô„‚l‚‡€P”…Ò°ÔŠ€†”¥Ò¤¤”€02”€¥††›‚‡1€‡”¤”€ ††›§„‚”€#Ô„‚§°Ô .Ô”€€†”‚‡E„‚”¤'±Ôv……££1À££¤'„‚§±Ô „‚C„‚„‚¿'¢„‚§'£”„‚¿€P”Š „‚C‚‡F€P”†€ª„‚¾„‚½”€3€‚”„‚&Œ‡‚¾‡‚½„‚C”‚€‚”¤¤Š„‚•„‚”††›‚‡G€‡”/å”"°¡Õ*ÿ0¥¥€Ÿ††›‚‡Y€‡”  €)£¥Ó¥Ò€D¥Š6”€ ¥6€D°6° Ô¥6⼃ÎÛÚÔ’6€B°Ô’Š6ƒÓÚÔ6€F°Ô¥Ò€ˆ””€”€–r¥Ò¥ €ˆ”–Markers:  0Type the letter of the desired marker or í.”€‡/Ô ‰‚‚:”…„D£¤,¤ ‡,²Õœ °Ô‰”‡/ÔM‰ €a¢”‰€ ”†„½ ×xá°Ô ‰€ ”Š †„½ ×x…²Ô ‰€<”Š ‰€>”Љ€A ¢”‰€)”‰‚‚?”‰†„E ×”‰‚‚A” ¢¤‹]ÿ…„D²Ÿ‡/¡Ôa††C‚‚C€P””€”€+¥6€A €A¢£¼ƒ‚\ÛÚÔæ6€ ±Ô36€A£¤†„E!ׄ”„€ „” ¢È„„§ È„”€ –/ Jump to? ? Marker all messed up. Not there.$SYNTAX  Edit:  ?+ „)Ť„‚‚ø¹Ô"‚‚ü„”€$„‚ƒ¹Ô’ ¤„‚ƒ¹ŸÔÞ„‚ƒ¹ŸÔU„„”€)ÔD†„½!×xá±Ô ¤†„½!×x’†„½!×xá±Ô ‚ƒ ”€Š †„Û!×x¥”€02”€¥Š‚ƒ”€†… ”€„‚ƒ¹Ô6††l§²ŸÔ,††›‚ƒ!€‡””€ ¥ ¥€¥‰††l”‰‚ƒ%””€– ) Jump: B(eginning E(nd M(arker T(ag $TAG $  „+Å„‚ƒ—¹ŸÔ„ Š}††›‚ƒ›€‡””€ „”€*¥ ”€+¤#€B°Ô¥”€2¥†”€Š7#€E°Ô1£¥†…”€Š"#€M°Ô‚ƒ° Š#€T°Ô‚ƒ´ Š#±Ô”€#⼃ƒ¸ÛÚÔ”€– $CURSOR $EQUAL $CURSOR $EQUAL $EQUAL $CURSOR Ð=±Ô¥€¡…€¡°ÔV¥ ‚„ ”€2‚„’ ‚„„”€)Ô‚„„”€)Ô†„E!ׂ„ņ„E ׂ„ņ„½!×xá°Ô †„Û!×x¥¥€¡Š 0¤=¥"¥”€02”€¥†…”€”€”€–Margin: are you sure? (y/n)1 …… …… å¡Ô¤Š¥ ††C‚„i€P””€€N”€,¤ Ô ”€08”€"”€”€”€– DeleteMarkers: 'A' .. !' [ accepts, escapes]ÀÀš …„D²ŸÕ…„D£€A¢¤††›‚„š€‡””€ ‰€'”‰#”‰‚„¦”’ „ÇŽ††›§€#¢””€¥††”€ ¤6”€ ¥6€A#¼ÚÔ-6€A£¤„„Ð â¼ial Keys:  : ÿÿÿÿÿÿÿÿÿÿÿ@þ%Enter delimited string (e.g. /stuff/)Î/”€††C‚ú€P”‰††C”‰”‰”£¤-¤!‡-²Õ‰‚‚”‰!¢” ‰‚‚”†ƒú!פ.‡.y‡.x£¤/¤ ‡/²Ô;†‚‚ §¥6ƒ‚ÚÔ ‰6”Љ€(”‰6” ‰€)” ¢¤Š¿‰”!¢¤‹xÿ††C§””€¥†R6ØÉ¥ :€;°Ô”€¥†€Ò6ØÉ¥ Šè:ƒ‚#ÚåÔ ‰”ŠR:€&±ÔL:€)£¤ ”‰‚‚'”"¢”€„ ”€"”€-†ƒú"פ-„†‚‚‡-y„§”‡-‡-y„§¢Ä:€&°Õbÿ€$¥–/-TT#ւ芀-¤†„ù‰ØÊŠ †„ù‰ØÊЉ#”– œ”?¤¤ !²Ô*†„ù ØÉÖƒ+Љ€-”Š ‰€T”Š ¢¤ŠÑ–MSet tabs: C(ol# {N(o T(ab Z(eroAll D(efault} ††C‚ƒO€P””€”–Column # @ @œ„†„ùÅ”€ „†”€”‰‚ƒƒ””€ ”‰"¢” "””€¥††”€ ¥ :°Ô”€¤Š¤6”€ ¥:°6ƒƒˆÚå¡Ô €$¥6€ °7€<°¡:€4° :° Ô " £”€¤‹Ë6€ °7€>°¡:° Ô " ¢?”€¤‹¯:°Ô"¢?”€¤"?°†„ù"ØÉ° Ôæ‹6€C°Ô ”’?¢”€£”€¤Šl6ƒƒŽÚÔ6 Š^6€D°6€Z° Ô2†„ù€ ” 6€D°Ô¤¤!‡²Ô†„ù!ŒØÊ!¢¤Šè Š!:€'°Ô †„ù„Å€&¥ Š:€&±Ô‰”:€&°Õ¾þ€$¥– bytes used, available. There are  pages in the left stack, and  pages in the right stack. You have  pages of room, and at most  pages worth in the buffer. ‰”‰1” ‰‚„O”‰91£¢” ‰‚„V”‰”‰‚„\”‰…” ‰‚„b”‰……£” ‰‚„r”‰”‰‚„€”‰……££” ‰‚„…”‰‚„”‰1À¢” ‰‚„””‰”‰”– A(uto indent  F(illing  L(eft margin  R(ight margin  P(ara margin  C(ommand ch  S(et tabstops  T(oken deflt  U(ser def key  B(uffer auto  I(nfo Ð ‰”‰‚…”…… ’‰‚…”…… ’‰‚…”‰…… ¢” ‰”‰‚…"”‰…… ¢” ‰”‰‚…,”‰……¢” ‰”‰‚…6”‰……”‰”‰‚…@”‰”‰‚…J”…… ’‰‚…T”‰”‰‚…^”……’‰Ô ‰‚…h”Š’ – = ', = 'Markers:Created ; Last updated (Revision ).p …€œ…€› ÔV…€›Ô ‰‚…锉†…€™€€”‰€'”…€œÔ ‰‚…𔉆Y…€š€€”‰€'”‰”‰”…„D²ŸÔ‰‚…ø”‰”‰€ ”…„D£¤¤ !²Ôu‰€ ”†„½ ×xá°Ô ‰€ ”Š †„½ ×x…²Ô ‰€<”Š ‰€>”‰†„E ×” …„D£± ¢°¡Ô‰”‰€ ” ¢¤І…”‰‚…ý”†…’‰‚†”†…’‰‚† ”‰……” ‰‚†”– Workfile: Backup file: Î ”‰‚†¹”‰†‰”†‰g§²ŸÔ”‰‚†À”‰†‰g”–More Info: ( to return)/”€††C‚†è€P””€‰”’ ’††C§””€+¥6€ °6° Ôï€$¥–. Environment: {options} to leave [ASE 0.7n]ÀN= Not optionÿÿÿÿÿÿÿÿÿÿÿAU˜[©G3‡‹¥AF”€††›¤„‚‡€.”„‚‡1€6”„‚‡6€†”„€‡””€ ¥ …³Ÿ¤!åÔ††›§””€¥††”€ ¥€§…€§ƒ‡7ÚÔ€ ¥6”€ ¥6ƒ‡:ÚåÔ ‚‡@”€”€ ‹±6Ö‡N‹ª”¥… ‹œ”¥… ‹Ž”£”€¥… Šz”£”€¥… Šf”£”€¥…ŠR””€+¥………ƒ‡FÚåÔ€?¥…‰……”Š& Š"”¥… Š ”¥…ŠŠŠ6€$°Ô”€”€ !åÔ††›§”6 ⼃‡eÛÚÕäþ”€–FùÈs£w0•;AýØ¿Ki‡ÁPUTSYNTA*SYSTEM.SYNTAXSyntax Error nnnu8„‚„ƒ:ÿÿ”„‚‚ ”¤¤¤‡‚:€d¤‡‚:'€dŒ£ ¤‡‚: ¤„ '€0¢È„ &€0¢È„ %€0¢È‡‚9‚€P”„ ‡‚9”„‚„$”°Õ°„§°Ô¤Š¤„ €0” €:„#” ¤„#„ "£"”"#¢¤ÿ „#” #¢¢¤„#§ â¼â¼ÛƒÛÚÔ„#§°Ô#¢¤Š#¢¤Š×„ „ ¹„#§° Ô„ „ ¹Ô#€D#"££”€¤ ‡‚9(È„"¢‡‚9(”¤Š¤$¢¤!  Õ0ÿ„‚”–‚:S$EDITCORE<:°Ô€>¥Š€<¥”€‰7”††ß7È”€”€–' ToDisk: F(orwards or B(ackwards D$CURSOR ͆†›‚€‡””€ ¥ ”€”€+¤ ⼃3ÛÚÔí‚8”€2 ±Ô”€ €B°Ô”€&Š €F°Ô”€&”€”€–Moving(”€‰‚h”…²Ÿ#…²¡Ô”€¥”€&”€%Šâ……³Ÿ#…³¡Ô”€1£¥”€&”€%Šß–J Next: F(orwards, B(ackwards in the file; S(tart, E(nd of the file. d$CURSOR ††›‚€•€‡””€ ¥ ”€”€+¤ ⼃€»ÛÚÔì‚€Á”€2 ±ÔR”€ €F°Ô ”€&”€%Š/ €B°Ô ”€&”€%Š €S°Ô ’¥Š €E°Ô …’1£¥”€02”€¥”€”€–Copy Buffer not defined.Not enough memory (try ToDisk).c”€02”€¥…€ŸåÔ ‚ ”€‹é8¤¤ $²ÕÝ…€žÀ¢”€(Ô €ˆ”‹¼1…€ž¢ ¢…€²Ÿ…€1³¡1…€ž¢9³ Ô‚”€”€€ˆ”‹Œ…€¤…€ Ô5”€02°Ô3¥Š(;"§â¼ â¼Ûƒ)ÛÚÔ;"§°Ô"¢¤Š"¢¤ŠØ…€ž"…€££¤#²Ô‹/;0;0#¢10£¢”;";0#”1#¢¥0#”€!0#¢¥†”€'†”€'”€02”€¥ ¢¤‹ÿ”€–, Copy: B(uffer F(rom file þTP^††›‚³€‡””€ ¥ ”€¥†R6Øɤ €;°Ô”€¥†€Ò6ØɤŠè €'°Ô¥Š. ƒÊÚÔ ¤Šÿ ;0” 0¢¥Š’8²ŸÔ”€"¦#¦%¥Š&¥$¦”€02£4¢¦– aÿ ;0” 0¢¥”€02£4¢¦–r¥†”€–…1£¥†…”€– L  R  C &”‰7” ”‰ÖJŠV‰‚D”ŠJ‰‚F”Š>‰‚H”Š2‰³ŸÔ ‰€-”Š ‰€+”‰‰à” ‰€]”Љ ‰”–Buffer full, Adjust aborted G”€3¢2£¤4¦4‡H¢³ŸÔ4á¤H;3§° °¡Ô;3¢§‡H¢€ £¤Šj ³ŸÔ;2;3¢12£”Š8…€ŸÔ …€€n£¤Š9€d£¤1#²ŸÔ‚”€€ˆ€5”Š ;2;3¢12£” ±Ô3 ”€!1 ¢¥0 ¢¥;3È4‡H¢¤;3¢"€ ¢È”€‡H±Ô‰”€†54‰”€‰ ‡H¢¦ –H# ¦¦”€ ¥ ’6–G Adjust: [+ 0] L(just R(just C(enter Z(ero {, line}0 À0# ”€4¤7¤¦¦0¥¦¦¦††›‚€‡””€ ¥ ¤”€„ ˆ”€¤¤¦¥€©”€¥††”€ ¥ :°Ô ¥ ¥€©Š6”€ ¥:±ÔÖ:°Ô”€¥ Š¥ 6 °Ô¥ :ƒ7ÚÕÑ:°Ô€<¥Š€>¥ ± :±¡Ô")£¤:¤"¤ 6¦‰å8²Ÿ…€© ¡Õ‚8£¥ ’0‰Ô8¦ÿ ;2” ¤‰åÔW'Ö9Š-…… 4£¤Š$…… #£¢4£¤Š…… …… £¢#£4£…… ¢¤Š"7("£¤ 0#(4£”€”€¢¥'±Ô¤¤ ‹nÿ‰Ô8Š(‰”%¤‹#:°Ô&€>°Ô¥ Š¥ Š:€4°Ô&€>°Ô¥ Š¥ :°Ô84”€¥ 8á7"8£¤¤‹Ü:°Ô87"8¢¤¤‹É6ƒ>ÚÔXÿ ;2” ¤6€L°Ô ¤…… 4£¤Š.6€R°Ô¤…… #£¢4£¤Š¤…… …… £¢#£4£…… ¢¤!7"!¢¤Šh:°Ô94¤!€‡³Ÿ8²Ÿ¡Ô!¢¤†„ù!ØɱÔ8£¥ ŠÜ!4£¤!7"!¢¤¤Š*6€Z°Ô¤¤ ¤¤Š:€'°Ô$4£7Š :€&±Ô”€6¦:ƒDÚÕ®ý&¥– µ#8¤¤ #²Ôt¥ ¤7€>°Ô5’/ÿ ;0” ¤†„ù‰"¢Øɰ"!³Ÿ¡Ô"¢¤Šä"¥ ’/Š,’.”€†„ù‰"£Øɰ‰"£4²Ÿ¡Ô"¢¤Šà"¥ ’. ¢¤Ї–Ö#‰£¦3£¥”€02±Ô0£¥–% „€ ¢€~¼Çޤ¦…€© -² ‰å¡Õ0ÛÇŽ Œ ¢”‰€ ”Š$ƒ„·ÚåÔ‰”$ƒ„ºÚÔ$€&°ÔV¤…„D£¤¤"'²Ô@"„ÐÚåÔ/†„E!׆„E"×ņ„Û!׆„Û"×xĆ„½!׆„½"×xÄ!¢¤"¢¤Š»!¥„D¥ ”€–4 Set: E(nvironment M(arker T(ag D(eleteMarkers SetM$TAG0 v „”€*††›‚…N€‡””€ ¥ ”€+¤ €E°Ô €ˆ”ŠI €M°Ô‚…i„”€$„”€2Š4 €D°Ô’Š) €T°Ô¤ „ ‚…k”„ „ ”„ ”€ Š ±Ô”€ ⼃…nÛÚÔ””€¥ ”€– ‹ ”€3¥”€”€”€–› ”€”€”€–Can't zap when = ptr on disk: WARNING! You are about to zap a lot. Are you sure? (y/n)ç =±Ô¥€¡…€¡°Ô ‚…Ï”€‹Ë=0£à€P²ŸÔ3††›‚…Þ€‡””€ ¥ ‰””€€N”€,åÔ ”€”€€ˆ”0¤=¥”€02°¤3¤!¥”€$02°¡Ô ¥€ 3¤Š ¥€ 0¤=¤#"”€#"”€”€ÔK#"²ŸÔ ;#;"1#£”Š ;";#1"£”#"£à¤1 £¥#"”€¥”€02”€¥0=”€ ᔀ!0¥”€”€”€–No room to insert.v ”€910££¦”€(‰0£€³Ÿ Ô‰0£€³ŸÔ‚†u”€”€”€€ˆ”10£¢¦;0;‰‰””€;‰£È;‰£4€ ¢È02°¥€ …€ Ô3¦–ª‰Ô’‰ 剡‰å¡…… å……  ¡‰€'±¡Ô.¦1¢¥‰£¦‰¢¦ÿá ;0£” 0¢¥Š¥€ ¦;‰;0‰”0‰¢£¤1"¢¥‰¢¥…€ Ô3¦Š=¦0¦‰‰”€¤‰€'°Ô#Ô;0;=‰”1"£¥=¥Š€&¦‰€&°Ô@…… …… 塉€&°¡Ô‰‰”€0”€"¦ˆˆ”€‰¢0‰¢£‰¢”€!;1È”€02”€¥‰‰‰€'° ‰”€ ”€–Please finish up the insertionBuffer Overflow!!!!e„ „Ť )‰²Ô.€'„”€*„”€*¤ „ „”„ „ ”„ ”€ ¦ ¤ ŠC)‰£³Ô8‰ åÔ‚‡V”€”€ ‰‰”¦ )‰ £²ŸÔ‚‡f”€’€ˆ”*¤–À¦ 6 °Ô)‰¢¤†„ù Øɰ ?³Ÿ¡Ô ¢¤Šè ‰£¦Š¦0‰¢’Ô;0‰€ ” 0‰¢¥– ‰Ô’;0 È…… Ô”€Š …… Ô”€;2§ °Ô……¥Š…… ¥Š¥04¢¢’Ô;0¢4€ ” 04¢¢¥¦¦ –Œ¦ ‰€3°Ô”€3’Ô3¥ŠK6°;0£§°;0£§ ° å¡Ô0‰¢³ŸÔ¦ Š0£¥Š€5¦”€3£’Ô3£¥¦¦ –æ;0 È”€5³Ô;2;3¢02£”Š&0¢5£’Ô;2;2¢5£02£”Š ¦ €ˆ”05££¥;3È;3¢€ 4¢È–@@À8#@8º¦ ”€¥††”€ ¦‰°Ô€ ¥‰ƒˆtÚÔ¥‰ƒˆxÚ6ƒˆ|Ú Ô*6ƒˆÚÔ’Š‰°Ô’Љƒˆ‚ÚÔ’Š96€!³Ÿ6€~²Ÿ Ô ‰ç+É¥‰Ô’0¢’‰ ¡Ô ¦;06È0¢¥‰ ÕVÿ–‰ Ô ‰‰”€Š ¦ ‰‰”€‰ ‰”€”€‰…°Ô ¦…£¦‰ˆ‰€€”¦–R?‰…°£¤‰$¢ ²Ô ‰%$”Š ‰”‰€!” ‰”‰$¢¦–®¦‰ Ô‰?³ŸÔ ‰‰”€Š ¦ ‰‰”€‰¢¦‰…²ŸÔ‰£¦‰”¦‰±Ô’–·H‰Ô’ÿ0£”€á€-;0£” ÿ0£”€ဠ;0£” ”€0¢¤0"£¤ …… …… £³Ô 6’€ˆ€ ”6€-°Ô ‰€-”‰ £¢‰”€;"£§€ °Ô¤Š¤;";"!¢ ”;"!¢„ ”0!¢¥!°Ô"£¤;" È;"¢È…… Ô0¤"¥”€#¥Š…… ¥;"¢4€ ¢È’4¦‰‰”‰„ €ˆ”‰ ¢¦¦ ¦–Hâ19²ŸÔ ”€&”€Š0…£¤…¥”€&0 ¢¥–H Insert: Text { a char, a line} [ accepts, escapes]À(@ÀU1è¢9²ŸÔ!¤ €?ÿ ;0” ”€”€¤;0„-”;0-¢§ ±Ô„-£€!È?-£¤ 1¤††›‚‰ò€‡””€ ¤¥ 0£¤¤¤ „„”€/.”€¤-±ÔQ,/²ŸÔ,.”‰„-€€”/.”Š4¤/.”€‰”.…°Ô …£¤¤,.¢”‰„-€€”/.”‡ƒŠÚåÔ{‡ƒŠÚÔ$/£¤/?.…°£²Ô/.”‰€ ”/.”Š!6 °Ô€ ‡Š…… /…… ²Ÿ¡Ô Š6…… å/?£°¡6±¡Ô‰”-±/,³¡%¡Ô/.”Šo6 °Ô 4¤/.”Š^‡€5°ÔH.²Ô#0¢¥;0 È„…”€-±Ô&Ô”€ ¤Š ¤ .”€.£¤”€45£0¢3£¤/.”Ї€3°Ô¤/.”€‡ƒŠÚÕþþ ¥–U£¦¤ÿ ;…” …¢¢¤!%³Ÿ 1³Ÿ¡Ô ¥ÿ ; ” ¢¢¤!¢¤ŠÙ¤…”!¢¤&†”€¥”€„54…”€‰£¦!%³&1£³ ÔÒ¦–‰Ô”€ ¦¦0¤…£¥¤0³!&³Ÿ¡Ô%”€3¥””€ †54”€…£¥!¢¤ŠÑ ¥¦‰‰”– Paging@¦”€††C‚‹„€P”‰7”‰††C”¥ ¦–……………³Ÿ¡‰å¡Ô.00£”€¤0 £¤ ¥’%”€&”€%1£0!¢”€¥”€–Ì………²Ÿ¡‰å¡Ô01£010£¢”€¤0 £¤ ¥’%”€&”€%0!¢”€¥”€–4¦‰Ô¦ŠM:ƒ‹çÚ7€<°‰…‰ …° ¡Ô ˆ‰ ”€Š ˆ…”€‰: ±¡Ô”€ ¦‰¦ ‰¦ –z‰Ô’)Š6‰…²ŸÔ-‰‰ : ° :€$° ‰…£…³ Ô’)Š ‰‰…£’#–ÉԒ)Š9‰³ŸÔ1‰‰ : ° ”€å :€$° ‰…¢² Ô’)Š ‰‰£’$–V¤”€3°¦8³3°¡Ô’' 8²3²Ÿ¡Ô03£¥”€3°Ô ¥’'”€‰£¦ ¢¤‰°Ô0¦ŠÆ2‰4£5¢3¢ÿ ;0” 0¢”€”€”€¥’+4‰²ŸÔ4‰£¦ –S¤ÿ ;0” 0¢¤!1£³¦‰Ô’&ÿ ;0” 0¢¤!1£³¦!1£³Ÿ 8²¡ÔH!¢¥ÿ ;0” 0¢¤!1³ŸÔ‰¢¦ ¢¤‰…¢°Ô0¦!1£³Ô !¥’&0¤Ь‰…²ŸÔ ‰…£…³‰ Ô’)Š ‰‰…£’#”€1£2‰4£5¢3¢ÿ ;0” 0¢”€”€”€¥’*4‰²ŸÔ4‰£¦ –攀¤3°Ô’'208£²Ÿ08²Ÿ¡ÔI¤802£¢£¥ ÿá ;0£” 0¢£”€¥‰£¦”€3°Ô’'”€‰°Ô0¦Šª208£”€”€¥’+ Ô 402£¢¦Š ˆˆ”€–´¤ÿ ;0” 0¢¤"1£³Ô’&ÿ ;0” 0¢¤”€‰4³ŸÔ4¦"08¢³Ÿ"1£³Ÿ¡ÔS¤8"0£¢£¥ "¢¥”€2¥‰¢¦‰…¢°Ô3¦ÿ ;0” 0¢¤"1£³Ô "0£¤’&0!¢¤Šž’*0¤1£08¢”€¥ Ô ‰0#£¢¦Š ˆˆ”€–ؤ7€<°Ôh”€3°Ô’' %²0²Ÿ¡Ô?ÿá ;0£” 0¢£¥0³Ô‰£¦ ¢¤Š¥’'‰°Ô”€3¦Š·0”€¥0°¦’+‹€ÿ ;0” 0¢¤!1£³Ô’& %²01£³Ÿ¡ÔEÿ ;0” 0¢¢¥01³ŸÔ ¢¤‰¢¦‰…¢°Ô0¦Š‰åÔ1£¥’&Н01£³¦’*01£”€¥”€‰Ô7€>° %²¡Ô ˆˆ”€Š2¥4¦Š2¥4¦–? ”€:€6°Ô…¥Š”€¥6¥††”€ ¤ 8°(€'° Ô€ˆ€1”‰¤‰¤0¤¤7€>°Õ€;0§ ±Ô0¢¥'‰…²¡…€©8²Ÿ ¡Ô_ÿ ;0” ¤ 6;0” ¤! ³ŸÔ#8£¥ 0!¢¥0¤‰¤…€©8²Ÿ Ô0¢¥Š‰…³ŸÔ’0Ф‰Ô¤ŠŽŠn'…€©8³ ¡‰³¡Ô]02£á6;0£” ¤!0¢£2³Ô8£¥ !0¢£¥0¤‰¤Š+‰²ŸÔ’0Ф‰Ô Š" €'°Ô‚›â’OŠ6ƒ›ãÚåÔ ‰ç+É¥6 °‰¡Ô ¦”€Š‰6”–"Z86ƒœ!ÚÔ’PŠò–Invalid delimiter.Pattern too longù8’Q†ç6§€A°Ô‚œ.’O6¦¤’P6°Ô*&!§ ±!²Ÿ¡Ô‰€ ”‰”!£¤Š”€Š &!6È!¢¤6‰°!€³ Ô¹!ÿ³Ô‚œ8’O%!£Ä–9‰‰Å@‰‰xĉÄ–þ:6”€ ¥6€L°Ô ¦ ’PŠ,6€V°Ô ¦X’PŠ6€T°Ô ¦ ’PŠ 6€C°Ô¦’P6”€ ¥6€C°6€V° 6€T° 6€L° åÔ¡’Q6ƒœŒÚÔ'†ƒú6€1£×¤% x y£Ä†‚‚ y'%x”#xåÔTŠf6€S°Ô'¦…€›Ô†'…€™”%…€™Ä…€›…€œå¡ÔTŠ96€R°Ô#…€œÔ†Y'…€š”%…€šÄ…€œ…€›å¡ÔTŠ'%’R&'Å@$%xÄ#Ä–w:¤‰°Ô ‰³Ÿ;$ ¢§ˆT §°¡Ô ¢¤ŠåŠ' ‰³Ÿ;$ ¢§ˆT §°;$ ¢§ˆ §° ¡Ô ¢¤ŠÙ ‰°¤–"¨:;#x§ƒ=ÚÔ;#x§°Ô##x¢ÄŠ##x¢ÄŠÜ–;&%xˆT‰”‰°ÔW‰£¤¤!"²ÔHˆT!§¤ †×ÐÚÔˆT! ”€ Ȉ! ÈŠ †ßÐÚÔˆ! €A£€a¢ÈŠˆ! È!¢¤г–<¤¦ˆˆ’W#‰å¡Õ͉ ‰³Ôq‰°ÔSˆT§†ßÐÚÔ.ˆT§¤!€A£€a¢¤‰ á!;‰ ” ";‰ ” ¤Š‰ áˆT§;‰ ” ¤Š‰ áˆT§;‰ ” ¤Š‰ ᤠ‰ á°Ô ¤¦Š9‰ ¢¦ ‰ £¦ ;‰ £§°Ô ‰ ¦ ‹Kÿ‰ ’UÔ¦Š‰ ¦ ‹*ÿ–ð<¤¦ˆˆ’W$‰å¡ÕÈ1‰£‰ £¢¤!²ŸÔh‰°ÔMˆT§†ßÐÚÔ+ˆT§¤"€A£€a¢¤!";‰ ” #;‰ ” ¤Š!ˆT§;‰ ” ¤Š!ˆT§;‰ ” ¤Š!¤ !°Ô ¤¦Š9 ‰ ¢¦ ‰ ¢¦ ;‰ £§°Ô ‰ ¦ ‹Pÿ‰ ’UÔ¦Š‰ ¦ ‹/ÿ–J=¦‰¦‰T£‰‰T‰£ ˆ‰” ¢”€¦‰‰T£°Ô‰”€¦¦‰¢¦–"">¦‰¦ˆ‰§ƒž¦Ú‰‰T£³Ÿ¡Ô ‰¢¦ŠÚ‰¦†çˆ‰§§†çˆ‰¢§§°‰‰T£³Ÿ¡Ô ‰¢¦ŠÍ‰‰T£”€¦‰¢¦ˆ‰§ƒž©Ú‰‰T³Ÿ¡Ô ‰¢¦Š¤7€>°ÔS;0§„ÐÚÔ0¢¥Šî;0§ °Ô’0;0§€ °Ô0¢¥Šñ;0§ °Ô’0‰;0§€ ±;0§ ±¡ ÔÔ¦”€‹œ”€02²ŸÔ0£¥;0§„ÐÚ02²Ÿ¡Ô0£¥Šé;0§„ÐÚÔ3°Ô¥ ’.3°¦Š;;0§„ÐÚå02²Ÿ¡Ô0£¥Šè;0§„ÐÚåÔ3°Ô¥ ’.3°¦Š;‰;0§„ÐÚ Ô¸‰åÔ0¢¥¦!0°Ô ‰åÔ‹ ¦ ¢¤‹ßþ02£4¢¦–D%”€‰€[”‰†å‰€Ò§”‰€]”–g&¥ %Ö’£Š ’,Š’-Љ%°‰° ¡Ô¤‰å¦”€3¦ÿ ;0” 0¢¢¦%°‰¡ÔF‰…°Ô0ÿ ;…” …¢¢¥‰””€‰‰£”¦Š‰¢¦‰¦ˆ€ˆ€ ” ‰‰±Ô)€‡4”€¤ÿ ;2” ¤;2ˆ!€‡!£ ”€”ˆJˆÅDˆ€ŽˆÅD‰Ô-¦<Ô ”€ ’=¥ %°Ô ‰‰¢”Š ‰‰£”–; eXchange: Text {, CURRENT line}ñ&††›‚“5€‡””€ ¥ …€¢Ô …€£¦€ÒЦ€Ò¥€¢’=¦’>‰?”€¦‰‰”–!Buffer is filling up... watch it!(€‡€ ˆ” ¤€‡á€ ˆ€‡” €‡¢¤!"£¢”€¢¤‰‰£#£¤ ²ŸÔ;‰;‰ £1‰£¢”€”Š ³ŸÔ;‰;‰ £1‰£¢”€” ±Ô‰ ᔀ!1 £¥1€€¢9³Ô‚“z”€;‰È!"³Ô ;‰¢"€ ¢ÈŠ ;‰¢€ Ȉ";‰¢!"£¢”;‰#¢£ ȉ"£‰¢¢‰#¢£”€‰¢”€¥–¤(‰%¢¤‰…°Ô?!£¤Š?!£¢¤€†‰#%”€ˆ‰ ”‰‰”ˆ‰ˆ‰%¢€‡!£¢”ˆ‰%€ ” ˆJ‰ˆJ‰%¢€‡!£¢”ˆJ‰%€ ” –&)‰%¢¤‰…°Ô ?‰£¤Š ?‰£¢¤ˆ!ˆ‰€‡!£¢”ˆ€‡%£¢%€ ” ˆJ!ˆJ‰€‡!£¢”ˆJ€‡%£¢%€ ” €ˆ‰ ”‰‰”–v)€‡¢á€ ˆ€Ž€‡” €‡¢¢¦‰²ŸÔ!‰”‰ˆ€Ž‰€ˆ”‰‰”€Š‰”€–ð.AXchg Dir: ð€ Àÿÿÿÿÿÿÿÿÿÿÿ .MÀ-¦’?¦”€¥††”€ ¤ €4°Ô‰€Ò°Ô¤Š ‰€Ò°Ô¤ ƒ”¼ÚÔU Ö”¾ŠL‰²ŸÔ ”€‰£¦Š6‰?³ŸÔ ”€‰¢¦Š ’@’>‰åÔ”€Š ’@’>”€Š‹_ °Ôg‰€Ò°Ô/‰²ŸÔ‰£¦‰°†„ù‰Øɱ Ô䉉”Š-‰?³ŸÔ‰¢¦‰?°†„ù‰Øɱ Ô䉉”‹ó €4°ÔO‰€Ò°Ô”€‰¢?”€¦Š”€‰£”€¦ˆ‰ˆJ‰§È‰ˆ‰§””€‹ž6 °Ô?¦’@’>€‡€ ˆ” ¦‰€‡³Ô¦‰?”€¦‰‰”‹Z €(°Ô^††C‚”Ä€P””€”€¥††”€ ¤ ƒ”ÐÚÔç Ö”ÓŠ¦€ÒЦ€ÒЦ€ÒЦ€ÒŠ”€ ’=¤‰‰”‹ö €3°Ô¦‰‰”‹à €1°Ô’A‹Ó €2°Ô’B‹Æ ƒ”ÙÚåÕ»6ƒ”ÜÚåÔ( ƒ”äÚåÔ¥€¢‰€Ò¥€£ ¥ €&¤Š ‰ç+É¥ €&±Õ‚ˆ‰6ȉ6”‰€ÒÖ”èŠi’@’>”€‰Ô”€ŠS’@’>”€‰Ô”€Š=‰?³Ô ‰‰”?‰¢”€¦Š‰±Ô”€‰£”€¦”€Š ƒ”îÚÕý €'°Ô’CŠ’@¥ …€¢åÔ”€–1 Kolumn: {, current line}b-¦††›‚–€‡””€ ¥ ‰‰”¦¦’>–y-#³ŸÔ#á’BŠ#’A–Á.F¦”€¥††”€ ¥ ¥€©¥ :°Ô¥€©”€¥††”€ ¥ Š :°Ô”€¥ :€4°Ô7€>°Ô¥ Š¥ Š:°Ô7€>°Ô¥ Š¥ :°Ô:¤¦8¤‰å "²…€© ¡Ô ’@’>‰‰”‰åÔ!G ¢¤ŠÒŠv:°Ô:¤¦8¤‰å "²…€© ¡Ô ’@’>‰‰”‰åÔ!G ¢¤ŠÒŠ7:°Ô !8¢¤8’AŠ':°Ô !8£¤8’BŠ:€'±:€&±¡Ô ”€‰‰”:€'°:€&° ÕÕþ:€'°Ô’CŠ’@¥ ”€–Ó.Ò:°ÔDŠE–€Ò+@ $ Too ManyToo many 8³in=CÍsY)7yI7ñ1 ·1¦¦¦…€©:ƒ—kÚå¡Ôg:€4°Ô7€>°Ô¥ Š¥ Š:°Ô7€>°Ô¥ Š¥ :Ö—oŠ*’3Š%’4Š 7€>°Ô’3Š’4Š7€<°Ô’3Š’4Š¥ ”€€ˆ€"”ˆˆ”€¦‰¦ ‰¦ :Ö—•‹Ï’<€ˆ€H”‹Á8’:‹º8£”€’0’2‹©8£”€’0‹›’1‹•’.‹’/‹‰7€>°Ô’.Š’/Šy7€<°Ô’.Š’/Ši’,Šd’-Š_8’0ŠY7€>°Ô€<¥Š€>¥8è²ŸÔ ‚—‹”€Š8…Œ’07€>°Ô€<¥Š€>¥Š8è²ŸÔ ‚—”€Š…8Œ’0Š’9Љ: ° :€$° Ô ‰‰”Š|‰‰ °Ô4‰‰ ¢°Ô”€Š!‰‰ £°‰?³Ÿ¡Ô”€Š ‰‰”Š?‰‰ °Ô-‰‰ ¢°Ô”€Š‰‰ £°Ô”€Š ‰‰”Š ‰‰”¥ ”€:ƒ—ÅÚåÕtþ‰Ô”€ ”€– 2'¤ &²ÔE; § °Ô- ¢¤‰” „”€¤ &³ŸÔ €†‰#"” !¢¤Š€; ” ¢¤ж–2)¤(&£¤¤ #²Ô ±Ô! ”€¤ ¢¤Šç!&”&…°Ô?¤Š?¢¤(&±Ô€†‰#"'¢”€”Š€†‰#")£')£¢”€”€”– ª2%0°Ô‰¤Š‰„”€¤%‰ ¢£!¢¤–þ2‰‰²‰‰²¡Ô ‰”€Š4‰‰²Ô‰”€†‰#‰’L”Љ’L¤ ‰”€–t3„…”€…¤¦0‰ ”€¤0‰ ”€¤#1£³Ÿ‰…²¡Ô*1#£ ;#” #¢¤!"² #³¡ÔM"¢¤‰¢¦ŠÇ‰$”$¦¦¦–74 ‰ÔK‹³‰¤‰¤‰ ¤‰ ¤‰ ¤‰ ¤‰‰ ²ŸÔ0£¤ ‰¤$£¤Š#‰‰ ³ŸÔ‰£¤0¤ #£¤Š€ˆ€J”"!²Ÿ"!°$#²Ÿ¡ Ô(¤'¤ ¤"¤!¤ ¤$¤#¤ ¤%¤‰à‰ à²ŸÔ $"#!’(Š $&¢"”('’I‰‰”– @ Delete: < > { to delete, to abort}ü7 P8hhX]•b6CS&S ÀÀ\7 ¦¦¦¦¦0¤¦”€3¤02°¤††›‚š€‡””€ ¥ ”€ˆˆ”€‰¤ ¦ ¦ ¦‰ ¦ ¦ 0¦‰¦ ‰¦ ‰¦ ”€¥††”€ ¥ :°Ô”€¥ Š¥ :ƒš>ÚÕ$:ÖšB‹—’.‹‘8’:‹Š’/‹„7€<°Ô’.Š’/Št7€>°Ô’.Š’/Šd8£”€’0ŠW8£”€’0’2ŠG’1ŠB’,Š=’-Š88’0Š2:°Ô€<¥Š€>¥††ß7È”‰7”‰‰”Š’9Š0!£¦‰å0!³Ÿ‰!²Ÿ¡0!²Ÿ‰!³Ÿ¡ ¡Ô\0¤‰¤!¥ˆˆ”€‰!£¦ ¦!’J!¦‰¦ ‰¦ $¥¦ 0!£¦ˆˆ”€‰ ‰ ”!’J$¥Š!’JŠ:ƒškÚåÔ ”€‰‰”:ƒšnÚÕnþ!¤”€&02°¡Ô3¥"¤03°&¡¥€ 0!”€ÔR:€&°ÔG0!”€0!£àᔀ!!0³ŸÔ ;0;!10£”Š ;!;01!£”10!£à£¥0!”€¥”€20”€¥Š ¥Š ¥¦‰(°‰塤''剔€ ”€– y7:°ÔNŠ:°Ô5”€ŠH–¹7,„‡-€P”„§²ŸÔ„”€”€02”€¥ˆ …‰唀”€€ˆ ”–-@ÿÿÿÿÿÿÿÿÿÿÿ?8”€¥†† ”€ ¤ ƒ›ÞÚÔ¥Š, °Ô ¥ %焹¤Š Š%}(°¤Š ŸÔ’ŠÃ– d„*Ť…‚Ð¥‚Ò…‚Ï¥‚Ñ¥‚Є )ÖƒŠŠ Š„)( Š– ±…‚Ï…‚ѱÔ2‰†Ï…‚Ï”±Ô—‘‰†Ï…‚Ñ”±Ô—‘…‚Ñ¥‚Ï…‚Ò¥‚Ж†y7×x¤!˜°Ô †y7×&ÄŠ<!„&”¤"°Ô€e‘ |˜°Ô¤Š |„&”¤Šß"°Ô ç&ÄŠ ç&Ä&ç˜Ä&ç˜Ä–"$$xŒ#¢Ä–.##xÄ–Ø…R¢¥R=¢¥…%Ô&#Ô ‰€+”Š ‰€.”…R…Q£€2°Ô‘…"Ô‘1=§°Ô=³Ÿ1§±¡Ô…S£¥S‘Š=¥U1=§ °Ô=¢¥1=§°Ô=¢¥Š=€P 1=” ¢¥=€P€ 1=” ¢¥…!Ô9¥TŠ8¥T–=¢¥$‰)1=” ¤% È1=% ”= ¢¢¥–(@m¤=¢¥=€P€ 1=” ¢¥1=§‰)±Ô#‘>°Ô¤$†Å#€+Ä1=§ƒ„ÚÔ#1=§Ä=€P‰)1=” ¢¢¥–œ„)Ť(*Ä(x˜± Ÿ¡Ô„(x¹Ô¤Š((x}ÄŠã– R …D²Ÿ%¡Ô€Â‘=¢¥¤=€P€ 1=” ¢¥1=§‰)°Ô¤Š_‘>±Ô¤ŠF¥'àÇ„‘ ¥'!˜±Ô1!¤"æ°Ô&&Ð"æ â¼ÛÇŽŠ"æ °Ô&&Ð"æ â¼ÛÇŽ1=§€,°Ô=¢¥ Ô€=€P‰)1=” ¢¢¥€€€$”–(@*SYSTEM.LST.TEXTBVQcÎã À 3NYb‰‘²v (=¢¥1=§€$°Õ1=¢§‡)±Õ…„ƒ„ªÇŽ1=¢§¤"€a³Ô"€ £¤1=¢§¤1=¢§¤!€,°!‡)° Ô !¤€+¤=£¥"€E°Ô"„"„&Ô…ƒ‰„"†ƒ…¹¡Ô¥ƒ‰€€€$”…ƒ‰ŸÕ"Ö„¹‹„"„&Ô:…ƒŠ„"„'%˜±Ô,%|¤#€-°Ô$Ÿ¤$ŸÔ¥ƒ‰†ƒ…„"Å‘…ƒ‰ŸÔø€€”€€€$”‹²†‚ €O%€€€$”‹ „"„&ÔW…ƒŠ„"„'%˜°Ô.…D²ŸÔ€Â‘Š!„” %¤&‡&ç…ƒŠÄ%¥ƒŠ‡&„"Ň&çÄ%˜±Ô#€^°Ô%ç‘"Š %ç#€+°‘!€€€$”‹5…D²ŸÔ€Â‘!€-°¥ƒ‹ !„ÐÚÔ!€^°Ô†)‘"І)!€+°‘!‹š„€(%‡)€*°Ô=¢¥…"Ô =¢¥‘=£¥…*°……¡ Ô –‘€€€$”…*²ŸÔ†ƒ´”„‘…*¢¥*ᑆƒ(…*£×¤&‡&ç=ć&ç…Uć&ç…S£Ä‡&†ƒp€(”†ƒp„€(”¥S‘‘€€”‹c!„ÐÚÔ!€^°Ô†+‘"І+!€+°‘!‹C!€+°!€-° Ô'!€܉‰T°Ô‰”€¦¦–Ê?¦‰ ¦ ‰ ¦ ¦‰ °Ô[Š\‰‰£¢¦7€>°Ô’YŠ’X‰Õ±‰ ¦ ¦‰ °ÔA†çˆT§§€A°Ô3‰ ²Ÿ;‰ £§±¡‰ ² Ô†ç;‰ §§†ç;‰ £§§°Ô¦‰å‰¡ÔU‰ °Ô[Š\‰ ‰¢¦ ˆ ’V‰‰£¢¦ˆˆ’W‰ ‰¢1²ŸÔ¦Š‰ ’UåÔ¦Š¡‰ °Ôu†çˆT§§€A°Ôg‰Ôb‰ ²Ÿ;‰ £§±¡‰ ² Ô†ç;‰ §§†ç;‰ £§§°Ô¦‰ ‰¢1£²†ç;‰ ‰¢£§§†ç;‰ ‰¢§§°¡Ô¦7€<°Ô'‰Ô"‰Ô0‰ ³0‰ ‰¢²¡Ô ¦‰ £¦ ¦‰‰å Õ`þ–]: L(itT(okU@U„‡Y€P”„*‡X€P”††›„€‡””€ ‰€[”…€©Ô ‰€/”Š ‰‡W” ‰‚Ÿæ”‡VÔ‰ °Ô ‰‚Ÿè”Š ‰‚Ÿë”‰„*”–Y Replace' aborts, 'R' replaces, ' ' doesn't €Buffer full. Aborting ReplaceóA‰XÕ´‰W²ÕŽˆ …‰唀¦‚ ,‚ 18‰£¢’]”€¤”€¥††”€ ¥ :°Ô¤”€¥††”€ ¥ Š :°Ô”€¦W:ƒ EÚÔ½:¦V :°¡:€'° Ô‚ H’OŠ : ° ¡Ô¦XŠ ‰W£¦W ¥ ‰V°Ô8¢¥ ‹€‰U0=££¤!²ŸÔ3!1¢9€È£²ŸÔ‚ I’OŠ”€(Ô‚ Y’OŠ;0;=‰U¢10£”Š!³ŸÔ;0;=‰U¢10£”ˆ€Ô;=‰U”!±Ô=¢!”€!1!¢¥0!¢¥¦– Find C(ase => Replace C(ase V(fy =>4End of Buffer encountered. Get more from disk? (Y/N)FindingPattern not in the fileNo old pattern.^DY¤¤W¤¤¤Y¤X„†Å@…€™¤T„€Ô†YÅ@…€š¤U…… Ô¤ Ф ¤:°Ô ‚ û‚ þ8]Š ‚¡‚¡ 8]¥ PQ„†„T†€™†€›S: °ÔPQ„€Ô†Y„U†€š†€œS”€”€:°…€›¡: °…€œ¡…€›¡ Õô¤¤0¤ ¤-8²…€© !¡Õ»Z-¢¤!Ô"*'¢¥(¥: °Ô^7€<°Ô(£¤ Š0¤ ‹Œ7€>°……³Ÿ¡7€<°…²Ÿ¡ Ôt#Ô€Y¥Š$††C‚¡€P””€¤€N”€,Ô€Y¥Š€N¥6€Y°Ô>¤††C‚¡7€P””€¤-£¤7€>°Ô1£¥”€&”€%Š ¥”€&”€%0¤ Š‹+‹9ÿ!åÔ…€©-²Ÿ¡åÔ#Ô¥¤‚¡;”€Š‚¡G”€”€20”€¥„ …/唀”€”€–Y Edit: = ?=Ea„ „bÅ(‚¢1€P”„‚¢5”…€¦¤(§¢?² ³Ÿ¡Ôw†ƒú פ„ €1¢È%ç§²ŸÔ2(¤ „ (€P”„ „€V”„ ‚¢8€¦”„ %瀱”„ €P”Š#%y%x±Ô(¤ „ (€P”„ „€V”„ €P” ¢¤‹{ÿ ¥€¦(¤ „ (€P”„ ‚¢9€R”„ €P”–bL Edit: B(eginLine L(ineEnd G(etch K(olumn P(age O(ppositePage S(et V(erify ?C Edit: T(oDisk N(ext M(argin Z(ap W(ordMove U(ptop E(dit ?6 Edit: "<", ">", "=" ?)5M :÷>÷¶»ÀÈÍÒ÷×Ùãè÷í÷÷÷÷÷!D÷÷ò÷÷4÷÷÷÷÷÷ÞÅG¥€©:°Ô ¥ ¥€©”€Š:°Ô”€¥ Š¥ :Ö£‹ù”€”€”€‹í’‹ç’‹á’‹Û…¥”€2¥”€”€‹È€ˆ”‹¾’‹¸…€¥Ö£ŠP††›‚¢ €‡”ŠC††›‚¢Ç€‡”Š6††›‚¢é€‡”Š)¥€¦††›’_Š…€¦°Ô ¥ ¥€¥Š††›’_Š¥ Š…€¥¢¥€¥…€¥±Ô”€ ”€”€ŠF’ ŠA’Š<‚£ ’ Š4”€Š/’Š*’Š%Š#’ Š’Š’Š’Š’Š ’ Š’"Š–ãG…Ò°Ô”€¥Ò: ±Ô`Š÷–O#<"[ ï­zVA‘B%ì¿rWC¼Þʳ›¿ò•TŒT¨cÝ횟QH;3"nÜ u , ­ d ?  ë Å ¢ ‰ T  °Þ Y + ߇â¶q½H€# ýȽt¾x#(¿`P!1Ù-Æm= å#ˆ`ÿÿSYSTEMLE PASCALCO€aCOMPINIT§ DECLARAT‚BODYPARTƒ,ìUNITPART„JCOMPFINI…MoA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved`ÌPASCALCO <<<<Line , error ( (continue), (terminate), E(ditl‰ =±‰ …S± Õ…S¦ =¦ %¦ …%Ô‘Š…"%²¡Ô€€”…U°Ô¤Š…U£…U£á 1…U£” ¢¤1!=!£”‰‚ ”‰”‰”‰‚ ”‰…R” ‰‚”‰%” ‰€:”…%Ô ‰‚”‰„” € ° €E°  €e°  ‰° Ôâ €E° €e° Ô…S£¦ €…””…€…”ᦠ%²Ÿ ‰° Ô€…””…€…”‘–-- ¹!‡"„€6”„‚€·”‰Ô„€>ȉ”‰„”‰„”…P¥O…P¢¥P–"?…%Ô{%³Ÿ¤%°¤%ठԤ…P%¢¥P!…P…O£³ Ô,… Ô…ƒ‹°Ô‰Š†ƒŒŠ…*²ŸÔ†ƒ´Š‰ ‰” ŸÔ‰€<”‰…R” ‰€>”…R¥Q–.TEXT¤X„.„YÅ„‡.€P”†ƒ´„””"±Ô-†ƒ´¤/„/„€P”„/‚!€U”„/””"±Ô“‘„” „”!–Y¢…Ô …… Ÿ¡Ô‘¥¥U… Ô?…ƒ‹°Ô‰1…S”°¥ ІƒŒ1…S”°¥ … ŸÔ…ƒ$¥S…ƒ'¥…ƒ&¥U… ŸÔf…*²ŸÔ_†ƒ´1…S”±ÔN”"°ÔA†ƒ´”†ƒ(…*£×¤ æ¥S æ¥ æ¥U†ƒp €(”…*£¥*…*²ŸÔ†ƒp‘‹¡ÿŠ“‘…*²Ÿ…  ŸÔ‰ 1…S”±Ô‘‘=°Ô 1§°Ô¥…S¢¥S– code discarded >>>>>> Error # ô5…ƒ‰Ô†ƒÝ…R” ” †ƒÝ‚Ò”” Šr…!Ô€D¤Š …F €0¢¤… Ô€*¤Š€ ¤†ƒÝ…R” ” †ƒÝ<” ” †ƒÝ…W” ” †ƒÝ€:”” †ƒÝ!”” †ƒÝ…T” ” †ƒÝ ”” =…U£¤"€d²ŸÔ€d¤1…U„"”„§°Ô+„§€ ²ŸÔ†ƒÝ€ „§€ £”” "£¤„„"”„"£ ȆƒÝ„"€d”” ‰ …S°‰ …U²Ÿ¡Ô#†ƒÝ‚Ü”” †ƒÝ‰ ” ” †ƒÝ”” –58…… ¤…… ¢¥… ¥Ð‰†Ï…‚Ï”±Ô—‘ ¥‚φÏ” á¥Ï–\…ƒ ¢¥ƒ …‚Т¥‚Ð…‚вŸÔ¥‚ЖÇ…‚Т¥‚Ð…‚вŸÔU…‚Ï…‚ѰÔ)‰Ô‰†Ï…‚Ñ”±Ô—‘¦Š˜‘…Ð¥‚ω†Ï…‚Ï”±Ô—‘¥‚Ж „*Ť ŸÔ9†Ñ…‚Ð× ¤)%ɰÔ%ÉÖ‚åŠ ¦ COMPINIT)ᦠ‰ ”€€”–:Compile what text? .TEXT Can't find :*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*] Can't open *SYSTEM.SWAPDISK£u‰Ô*„¤B„Bˆ”„B‚€W”„Bˆ&€f”„B€(”Š]‰‚”‰„€(”‰”„§°Ô„„§§€.±¤A‡AÔ „¤B„B„€(”„B‚!€-”„B€(”Š „„§£È‰ „””"±Ô‰‚$”‰„”¦‚*„”¤@‡@°„§€*°¡Ô¤@„+„„B‡@¢„§‡@£”„B€(”‡AÔ„+„+„B„+§£”„B€(”„‚+€(”‰ŸÕ¢‰‚5”‰„€(”‰”„§±Õ€„§‰°ÔŠr‚?„”¤@‡@±Ô„‡@”„+„€(‡@”‚@„”¤@ŠÛ„„§§€.°Ô„„„B„§£”„B€(”Š„¤B„B„€(”„B‚A€0”„B€(”‰„””"±Ô‰‚F”‰„”‰8‚L”¦ ¦ ¦ –u „*ʼn¤„§‰±Ô+‰¢„§¤¤ &²Ô% €A£×‰Ä ¢¤Šé„§¦%ç‰×¤&„Å&ç)Ä&ç(ĉ¢¦– ARRAY AND BEGIN CONST CASE DO DIV DOWNTO END ELSE FOR FILE FUNCTIONFORWARD GOTO IF IN INTERFACIMPLEMENLABEL MOD NOT OF OR PROCEDURPACKED PROGRAM PROCESS RECORD REPEAT SET  SEGMENT SEPARATETHEN TO TYPE UNTIL USES UNIT VAR WHILE WITH [ „” ‰ç"Ĥ€A£¤‚†€,‚Š€'‚Ž‚’‚–‚š‚ž€'‚¢‚¦ ‚ª ‚®‚²€.‚¶€ ‚º€"‚¾‚‚ƀ)‚Ê€3‚΀4‚Ò‚Ö€'‚Ú€&‚Þ ‚â€(‚æ‚ê€+‚î€!‚ò€5‚ö€-‚ú‚þ€*‚‚€!‚‚€6‚‚ ‚‚‚‚‚‚ ‚‚€1‚‚€2‚‚"‚‚&‚‚*‚‚.–† ” ;¤ Ä çÄ çĆ5” …5¤ Ä çÄ çĆ4” …4¤ +°¥"…#ŸÔ†ƒÝ”†ƒÝ‚„°””"°¥#Š+„€(%†ƒÝ”†ƒÝ„””"°¥#…#¥"€€€$”‹ã!„ÐÚŸÔ†‚Ø(‹Ð!€+°¥&…&¥†)…&Ÿ‘!†(…&Ÿ‘!‹µ†ƒÝ ”‹ª!€-°¥%‹¡!„ÐÚÔ!€^°Ô†(‘"І(!€+°‘!І‚ø(Šz!€-°¥Šr!€+°!€-° Ô!€-°¥†)…Ÿ‘!†(…Ÿ‘!ŠQ…D²ŸÔ€Â‘=¢¥=€P€ 1=” ¢¥1=§‡)±Ô ‘>€#°Ô…¥‚×=€P‡)1=” ¢¢¥€€€$”Š=¢¥ €,±Õ†ü=£¥=¢¥1=§ °Ô’#Šó1=§‡)°Ôæ1=¢§€)°‡)€}° ÔÖ=¢¥–)-¤,¤+‡,Ô=¢¥=¢¥‡+¢¤+‡+€P²ŸÔŽ‘¤+1=§ °Ô €Ê‘’#‹„‡+£1=§È1=§€'°ÔÁ¤,1=¢§€'±Ô«‡+£¤+€%¥¥‡+¥‡+°Ô „£§¥Š$…L¤-‡-ć-ç‡+Ä„£‡-磇+”…L¥–-¯¤ ¤'¤¤'¤¤¤¤ =¤=¢¥1=§€0³Ÿ1=§€9²Ÿ Ôê=£¤1=§€.°Ô91=¢§€.±Ô/¤ =¢¥=¤1=§€0³1=§€9²¡Ô=¢¥Šê="°Ô€É‘=£¤1=§€E°1=§€e° ÔP¤ =¢¥1=§€-°Ô =¢¥á¤Š 1=§€+°Ô=¢¥=¤1=§€0³1=§€9²¡Ô=¢¥Šê=£¤%!³ŸÔ€É‘)°Õå¤#'¤¤-/²Ô/ ÿ1-§€0££ ²ŸÔ ¤ -¤'¤Š Œ1-§€0£¢¤-¢¤ŠÌ,Ô €#¥¥ ¥‹•'#£€$³Ô €Ë‘'¤'¤ˆ ” ‰¤/Ĥ/çÄ.'²Ô6-°Ô/ç/z¢Ä/ç/z£× Ĥ¤ Œ1.§¢€0£¤.¢¤-¢¤ŠÅ/ç-Ä-²ŸÔ/ç/z¢Ä/ç/z£× Ä€0¥¥'#£¢¥‰¥‹Ã„ ÌŽ#'¤¤-/²Ô„ „ Ð ÌÂ1-§ÌÀ€0ÌÁŽ-¢¤Šà&"¤¤-/³Ô"„ „ Ð1-§€0£Ì-"£¢”$ÃÀŽ-£¤ŠÙ¤ !%¤¤-/²Ô( Œ1-§¢€0£¤ -¢¤Šè$á°Ô„ „ Ð(”$ÃŽŠ„ „ Ð(”$ÂŽ€$¥¥ˆ” ‰ĉç„ ÐŽ‰¥=£¥–=>  {OO C¦ÍIÖZßtŽè š ” …Ô…E¥F¥¥€/¥1=§Öˆ]‹2)‹-*‹(†1”‹€}$‹Ùÿ‹1=¢§€*°Ô=¢¥€*$=¢¥‹»ÿŠ¥‹ò¥‹ì¥‹æ=¢¥‹Ÿÿ‹Û1=¢§€.°Ô =¢¥¥Š¥‹Á1=¢§€=°Ô =¢¥¥Š¥‹§¥‹¡¥‹›¥‹•¥‹1=¢§€*°1=¢§€*°¡Ô =¢¥€7¥Š€'¥¥Šh€(¥¥Š_€(¥¥ŠV€'¥¥ŠM€)¥¥1=¢§ÖˆYŠ ¥=¢¥Š ¥=¢¥ŠŠ&€)¥ ¥Š€)¥1=¢§€=°Ô ¥=¢¥Š ¥Š>€/°Ô1=§ °Ô #¥‹«þŠ‘=¢¥–9$˜±Ô$#†”°ÔŠ#˜ÄŠ#˜Ä–Ù7¤¥…!³ÔB†y…×x¤ ˜±Ô, „†”°Ô æ%ÚÔ‹dŠ …'Ô€g‘Š˜¤Š˜¤…£¥Џ…'ÔD€h‘%ÚÔ…B¤Š4%ÚÔ…@¤Š(%ÚÔ…?¤Š%ÚÔ…A¤Š%ÚÔ…>¤Š…=¤$ Ä–%¤ y°Ô $ |Ä# {ÄŠ $Ä%…3°Ô#€ÿÄŠ%{˜±Ô#%{æ ÄŠ#Ä–(>„ÐÚŸÔ‘Šò–F¤#˜±Ô#y°Ô #|#{…3°¡¤–Y¤#‘ Ô#¤–i#¢¢¤–-˜¤'Ä>†tÐÚŸÔ€2‘„ ІtÐÛÇ‘ >†tÐÚÕ>€%°Ô<…°Ô…3¤Š&„ ” …-Å ç…Ä ç˜Ä„€‚” #…Å€‚#¥'†Å‘‹5¤>€(°?€`Ú¡Ô?°Ô¤Š¤‘>°ÕˆÇ„‘ !¤$~¤'$ç Å"±Ôi ;°Ô "°Ô''xáÄŠX …5°Ô"°Ô„” #Ä#ç'xçÐäŽ'#ÄŠ3 …4‘Ô'"°Ô „ ” #Ä#ç£×'xç£×xáÄ'#ÄŠ€i‘‘‹‰>€#°Ô"°Ô…á¥;¤'†Å‘Šm>€$°Ô"°Ô …ç…çÐ䎅5¤'†Å‘ŠH>€0°Ô5"°Ô…ç£×…ç£×xáÄ„” …‘Ä çÄ'†Å‘Š €j‘„ ÐÇ‘ >„ ÐÚŸÔ ‘„ ÐÇ‘ ( Ä–  pv‚¿ÿž)(°Ô¤ ‹K)˜°(˜° Ô¤ ‹<)y(y°Õ)yÖ‹‹¤ ‹)z(z‘¤ ‹õ¤…C¤…C¤$˜±Ô$¤%y)z°%x(z°¡Ô¤%z¤Šâ"ŸÔ%„” $¤%ç)zÄ%(zÄ%ç…CÄ$¥C)z(z‘¤"¤ #¥C‹š¤ ‹”)z(z‘¤ ‹ˆ){({‘)|(|°¡¤")|¡Ô)~(~°)}(}°¡)(°¡¤")‘ Ÿ¡Ô)x(x°¤"¤ ŠK)z¤(z¤¤!˜± ˜±¡"¡Ô!~ ~‘¤!¤ ¤Šâ"!˜°¡ ˜°¡){˜°¡({˜°¡¤ Š )z(z‘¤ ŠŠ#)y°Ô )z(‘¤ Š(y°Ô )(z‘¤ Ф – ­08#È8¢¥ –Î8Ô 08È8¢¥ „08”8¢¥ – =…ƒ%£¢¤!£¤1…ƒ%0!”0! ” ! ¢¥ ‘¥ƒ%–¬8¤&¤…K8¢&£¥K…… £¤ "!£²ŸÔ"!£¤0&†… …… ”& ¢¤…… ¢¥… …… °' ÔI'…… ³Ÿ¡Ô†… …… …… £” ‰ °Ô‰†… …… ”±Ô’‘…… ¢¥… ¥… " £¤"!°Õrÿ– [ ]õ„'Å…%Ô2‰”‰„”‰‚ŒW”‰”(” ‰‚ŒY”‘–¥$¥… ¥K¥­†®€B” …… ¥ƒ–X„+Å‘†Ñ…‚Ð× ¤$Ê$ç„Å$ç*Ä$ç¤%)Ä%ç(Ê%ç'Ê– Ç ¤¤!"²Ô!…ƒÚÔ†ƒ !£×!,!¢¤ŠÞ…6˜±Ô;…6¤""æ "æ "æ †‚ØÐÚŸ,"æ ¤ ˜±Ô æ "æ , 椊é"¥6Š¿–#Ô‰†… $”±Ô’‘Љ†… $”±Ô’‘– # ¥ ¥$…V£¤ ¤ *³Ô†€­ ×x‘†€­ ×Ä £¤Šã<‘…V£‘†‚Ó<‘†Ñ…‚Ð× ç¤ *…ƒÄ*ç…K8¢Ä‘‘…D…&Ÿ°Ôm+†‚Ó‘†Ñ…‚Ð× ¤ *ç…ƒ!Ä*ç…ƒ £Ä*ç…ƒ#Ê*ç…ƒ"Ê…ƒŸÔ *çÊŠ…ƒÔ *çÊŠ*çÊ‘†‚ØÇŽÇ¥ƒ¥ƒ…K£¤…­¤-˜±Ô„-ÅŠ„‚Ť ¤ ¤…ƒ¤ -„†… ” -–\#˜±Ô-#¤ æ€`ÚÔ æ °Ô æ °Ô æÔ€u‘ |’. }’.–DD € € ’>ƒ¯Ú…Ÿ¡Ô&€„”„Ѓ³ÛÇ”„€„”>°Ô€€”¥I…IÔ>€‚”„ÐÇ”‚€‚”…Ô#>ƒ·ÚÔ€„”„Ѓ»ÛÇ”„€„”‹u¥!¥E¥ ¥T…&Ÿ…D²Ÿ Ô†y7×x.…Ô…Hææ…8°Ô>ƒ¿ÚÔ€€”>°Ô‘Š‘€ƒ”„ЃÁÛÝÇ…H攃€ƒ”>…H°…> °¡ ¤ ŸÔ,…H°Ô‘Š‘„Ð…Hâ¼ÛÇ‘ >…H°…> °¡ ¤ >†hÐÚ Ô” ŸÔ&…H°Ô‘Š‘€‚”„ÐÇ”‚€‚”‹•>°Ô‘>ƒÃÚŸ…H°¡Ô/…> °¡Ô‹$Š ‘„ÐÇ‘ €‚”„ÐÇ”‚€‚”ŠO…H¤!昱Ô!æçÄ!æ Ô…$Ô…Hæ‘!z¥V!|¥ !y¥D!x¥!~¥ !{¥W…Hç ”!…Hæ¥H>ƒÇÚ¥I…H˜°ÕBþ…:‘–‚ƒÊ ÕƒŽÊ”ƒŽÊ”ƒŽÌ”ƒŽÌ”†hІ\ÐÛƒŽÎÝÇ‘ƒŽÌ”ƒŽÊ”– J†ƒÝ†… þÿ”†ƒŒ†„¸ÿÿ”†ƒ´†„àÿÿ”€””€”…Ô‘/ІhІ\ÐÛƒŽóÝÇ‘€…””…€…”†ƒÝ”†ƒŒ”†ƒ´”–Ñ” æ ® ½P9 îÑ™“Œì°|%»4ž } Ì \  é Ù Ñ # 7 / %  ï Ÿ Ž Ó[åTß*ö€/ °ÔS”€„” !…4Å „ ЃÛÇ„„”€ ;°Ô&²&€$²Ÿ Ô€Ë”€Š!&”€ÄŠ”€>°Ô”€Š ”€!˜±Ô*!xÄŠk„” !çÄ„ ÐÛÇ„„”€ ”€ Ô€””€˜¤!¤'ç Ä'ç„Å'Ä>°Ô”€Š”€„ ÐÇ„„”€!ç„Å!z ±Ô€k”€!˜±Ô1!¤'y°Ô('z˜±Ô"'z…5°Ô”€Š'|'{²ŸÔ €f”€'ç'|Ä+!Ä„ ÐÇ’Š+˜Ä–C¤¤%˜±‰ ¡Ôp%¤"yÖ‹Šf%;±%…5±¡Ô5%„„”€ !³Ô(¤¦ ¤! ³ŸÔ!¢¤!£Œ¢¤‰ ¢¦ ŠâŠ%"z’Ô"z„„”€ ¢¤ ³ŸÔ¤ ¦ Š–à‰˜±Ô/‰¤ æ Ô% æ °Ô ç ÄŠ æ ² æ ²¡Ô ç Ä ç Ä–†¤%¤"~’ÔI‰ ‰ ¢²ŸÔ‰¢¦¦ ¤"ç ‰Ä"ç Ä"ç ‰ Ä"ç ‰ ĉ ‰ ¢¦ ‰ ³Ÿ¤Š6‰ ²ŸÔ‰¢¦¦ ¤"ç Ä"ç ‰Ä"~˜±Ô ‰"~x¢¦¤!Ô’ Ô%¦Š˜¦–Oˆ ” ‰ ¤!ç˜Ä!ç˜Ä!çĉ‰ Ä”€>°ÕÛ‰ Ô ˆ ” Šˆ ” ‰¤!ç˜Ä!çÄ!ç˜Ä!ç Ĥ¥'Lj”€ ¥'‰˜°Ô!¤‰†Å‰”€”€>°Ô”€Š”€>°ÔWLj”€ ‰~¦‰˜±Ô:‰y²Ô-…5‰”€Ô€m”€‰ç‰ĉ ç‰Ä Ô‰’Š€n”€”€Š”€ˆÐÛÇ”€ Š”€ˆÐÛÇ”€ ‰ ¤!‰ĉ ²ŸÔ!!x¢Ä> °Ô”€Š”€˜¦‰¦ ‰¦ ‰ ¦‰ ¦˜¦ˆÐÛLjˆ ”€‰ z˜±Ô‰ z~‰”€ŸÔ€o”€ˆ” ‰¤!ç‰Ä!ç‰Ä!çˆ Å!ç ĉ¦‰¦>±¥ :ŸÔ”€:ÔŽ>°Ô”€Š”€>°Ô”€Š ”€>°Ô˜¦ŠˆÐ€(ÛLj’‰‰ ²ŸÔ‰¦ ‰ ¦Š‰‰ °‰ ‰²Ÿ¡Ô‰ ¦‰˜±Ô0‰z¦‰ç‰ĉ¤!‰ĉ ²ŸÔ!!x¢Ä‰¦ŠÉ>°Ô”€ˆÐÛÇ’Š”€>±¥ :ŸÔ”€‰ ¦‰¦ :> ° Õ®þ‰ ¦‰¦ ‰ ç‰Ä–      ª˜¤˜¤ ˜¦>ƒƒ©ÚŸÔ”€„Ѓƒ«ÛÇ”€ >°Õå ¤>°Ô;‰ Ô„ ” Š„ ” #¤/†Å/ç˜Ä/ç!Ä/çÄ/ç Ä#¤#”€”€Š”€>ÚŸÔ”€„Ѓƒ­ÛÇ”€ >£€dŒL¢”€Ä çĆ3” …3¤ Ä çÄ çĆ2” …2¤ Ä çÄ çĆ.” ….¤ Ä çÄ ç˜Ä†/” …/¤ ,¢Ä çÄ ç…3Ć,” …,¤ ,¢Ä çÄ ç…3Ć- ” …-¤ çÄ €P¢Ä çÄ çÄ ç;Ä çÄ çÄ ç…3Ä ç€PĆ1” …1¤ Ä çÄ ç˜Ä ç˜Ä†0” …0¤ Ä çÄ ç;Ä–INTEGER REAL CHAR BOOLEAN STRING TEXT INTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL MAXINT SEMAPHORPROCESSI° „ ” !¤#‚ƒ‚Å#ç;Ä#çÄ!”€„ ” !¤#‚ƒ†Å#ç…5Ä#çÄ!”€„ ” !¤#‚ƒŠÅ#ç…3Ä#çÄ!”€„ ” !¤#‚ƒŽÅ#ç…2Ä#çÄ!”€„ ” !¤#‚ƒ’Å#ç…-Ä#çÄ!”€„ ” !¤#‚ƒ–Å#ç…/Ä#çÄ!”€„ ” !¤#‚ƒšÅ#ç…,Ä#çÄ!”€†< ” …<¤#‚ƒžÅ#ç…/Ä#çÄ#ç Ä#ç Ä…<”€†; ” …;¤#‚ƒ¢Å#ç…/Ä#çÄ#ç Ä#ç Ä…;”€„ ” !¤#‚ƒ¦Å#ç…/Ä#çÄ#ç Ä#ç Ä!”€˜¤¤¤"#²Ô?„ ” !¤$ç…2Ä"°Ô$‚ƒªÅŠ$‚ƒ®Å$ç Ä$ç "Ä$çÄ!”€!¤"¢¤м…2ç!Ä„ ” !¤#‚ƒ²Å#ç….Ä#ç˜Ä#ç Ä#çÄ!”€„ ” !¤#‚ƒ¶Å#ç;Ä#çÄ#ç ÿÄ!”€„ ” !¤#‚ƒºÅ#ç…1Ä#çÄ!”€„ ” !¤#‚ƒ¾Å#ç…0Ä#çÄ!”€–GOTOXYU PASCALIOTRANSCENLONGINT HEAPOPS  †ƒ £×‚„Ùņƒ £×‚„Ýņƒ £×‚„áņƒ £×‚„åņƒ £×‚„éÅ– — †B ” …B¤ ‚…Å ç˜Ä çĆA ” …A¤ ‚…Å ç˜Ä ç˜Ä ç Ä çĆ@ ” …@¤ ‚…Å ç˜Ä ç˜Ä ç Ä ç Ä çĆ? ” …?¤ ‚…Å ç˜Ä ç˜Ä ç Ä çĆ>” …>¤ ‚…!Å ç˜Ä çÄ ç˜Ä çÄ çÄ ç Ä ç Ä ç Ä çÄ çÄ çÄ ç˜Ä çÄ ç Ä ç Ć=” …=¤ ‚…%Å ç˜Ä çÄ ç˜Ä çÄ çÄ ç Ä ç Ä ç Ä çÄ çÄ çÄ ç˜Ä çÄ ç Ä ç Ä–READ READLN WRITE WRITELN EOF EOLN PRED SUCC ORD SQR ABS NEW UNITREADUNITWRITCONCAT LENGTH INSERT DELETE COPY POS MOVELEFTMOVERIGHEXIT IDSEARCHTREESEARTIME FILLCHAROPENNEW OPENOLD REWRITE CLOSE SEEK RESET GET PUT SCAN BLOCKREABLOCKWRIPAGE SIZEOF GOTOXY PMACHINESTART UNITSTATSIGNAL WAIT SEMINIT ATTACH STR TRUNC DISPOSE MEMLOCK MEMSWAP VARNEW VARDISPOVARAVAILMARK RELEASE ðÇ ¸¢Eí„ׂ…Íńׂ…Ñńׂ…Õńׂ…Ùńׂ…Ýńׂ…áńׂ…åńׂ…éńׂ…íÅ„ ׂ…ñÅ„ ׂ…õÅ„ ׂ…ùÅ„ ׂ…ýÅ„ ׂ†Å„ׂ†Å„ׂ† ńׂ† ńׂ†Å„ׂ†Å„ׂ†Å„ׂ†Å„ׂ†!ńׂ†%ńׂ†)ńׂ†-ńׂ†1ńׂ†5ńׂ†9ńׂ†=ńׂ†Ańׂ†Eńׂ†IÅ„€ ׂ†MÅ„€!ׂ†QÅ„€"ׂ†UÅ„€#ׂ†YÅ„€$ׂ†]Å„€%ׂ†aÅ„€&ׂ†eÅ„€'ׂ†iÅ„€(ׂ†mÅ„€)ׂ†qÅ„€*ׂ†uÅ„€+ׂ†yÅ„€,ׂ†}Å„€-ׂ†Å„€.ׂ†…Å„€/ׂ†‰Å„€0ׂ†Å„€1ׂ†‘Å„€2ׂ†•Å„€3ׂ†™Å„€4ׂ†Å„€5ׂ†¡Å„€6ׂ†¥Å„€7ׂ†©Å„€8ׂ†­Å„€9ׂ†±Å€9¤€ì¤!‡€ì²Ôb!ƒ†µÚ¤"Ô„ ” Š„ ” ¤€퇀í„!×Ň€íç˜Ä‡€íç˜Ä"Ô ‡€íçÄŠ‡€íçć€íç ć€íç !Ä ”€!¢¤Š—–€íODD CHR ROUND IORESULTUNITBUSYPWROFTENUNITWAITUNITCLEAHALT MEMAVAILRMEMAVAISIN COS LOG ATAN ARCTAN LN EXP SQRT $?D_ejotzÛT„ׂˆ$ńׂˆ(ńׂˆ,ńׂˆ0ńׂˆ4ńׂˆ8ńׂˆ<ńׂˆ@ńׂˆDÅ„ ׂˆHÅ„ ׂˆLÅ„ ׂˆPÅ„ ׂˆTÅ„ ׂˆXńׂˆ\ńׂˆ`ńׂˆdńׂˆhńׂˆlŤS¤$‡S²Õ$ÀÚ¤$Öˆp‹…2¤„ ” ¤T‡Tç;ćTçÄŠt…3¤Šn;¤„ ” ¤T‡Tç…5ćTçÄŠS˜¤ŠN…2¤„ ” ¤T‡Tç;ćTçÄŠ3…5¤Š-˜¤Š(˜¤Š#;¤Š…5¤Š„ ” ¤T‡Tç…5ćTçÄŠ%Ô„ ” Š„ ” !¤T‡T„$×ŇTç ćTç $¢Ä‡Tæ €.³Ô ‡Tç ‡Tæ £Ä%Ô‡TçÄŠ‡TçÄ ˜±Ô ç˜Ä‡Tç"ćTç Ä!”€$¢¤‹éþ–T æ†L€‚” †” †â” ¥F¥*¥R¥$¥)¥K¥… ¥ €€¥ ¥… ¥¥#¥W¥T¥S¥!¥"¥ ¥U¥¥V¥¥P˜¥7€¥J¥¥˜¥C¥ƒ‹¥'¥(¥‚Ï᥂Х‚Ñ¥‚Ò¥ƒ¥‚×¥ƒ ¥ƒ%¥&¥ƒÜ˜¥9†‚Ó‚‰oŘ¥6¥ƒ‰˜¥ƒŠ†ƒp‚‰s€(”¥ƒ†ƒ…‚‰tÅ¥ƒ¥+‰Ÿ¥%¥ƒ!¥ƒ#¥ƒ"†Ï” –8|tø"€€xø€™†tƒ‰ôÇŽ†p†tÐÛÇŽ†lƒ‰ø†pÐÛÇŽ†Xƒ‰ûÇŽ†hƒ‰þÇŽ†dƒŠÇކ`ƒŠÇކ\ƒŠÇŽ Ç¥x†‚øÇކ‚ØÇŽÇ¥ƒ–Pascal compiler [AOS 1.0c]PROGRAM DDD/ ¥D¥†yפ ˜Ä ç˜Ä ç˜Ä çÄ…%Ô1¤¥ 8 ²Ô ‰”8¢¥ Šî‰‚ŠN”‰‚ŠW”ᔀ”€”€…¥ †:” …:¤ ç˜Ä çÄ çÄ ‚Š]Å ç˜Ä çÄ çÄ ç Ä ç Ä ç Ä ç <Ä ç Ä çÄ çÄ çÄ çÄ ç˜Ä…Ô!¥ €€¥J…&Ô¥J†h†hЃŠaÛÇŽŠ¥¥D†yפ ˜Ä ç˜Ä ç˜Ä çÄá¥Ï>ƒŠeÚŸÔ”€ƒŠiÇ”€ >€!°Õ¹”€>°Ôy”€†Ñ…‚Ð× ¤ Ê ç†Å çÊ çÊ ç…‚×Ä”€†Ñ…‚Ð× ¤ Ê çÊ”€†Ñ…‚Ð× ¤ Ê ç†Å ç<ƂӆÅ…:†Å…:”€Š”€”€>°Ô”€>€(†hÐÛÚÔð>°Ô”€Š”€>°Ô”€Š”€†G” †H” …H¤ ç˜Ä çÄ ç…:Ä ç Ä ç Ä ç Ä çÄ çÄ ç9Ä ç…DÄ 7Ä ç…WÄ ç Ä ç …GĆM†N” – y º*îÃãT3 Vn DECLARAT.>„ÐÚŸÔ”€„ÐÇ”€ – *Ä>†pÐÚŸÔ”€„ ІpÐÛÇ”€ >†pÐÚÕª>°Õ›7¤†y7×y±Ô7£¥Šï„” !¤'Ä'çÄ'çʤ¤”€>°Ô3„ ” #¤'†Å'ç!Ä'ç"Ä'ç %Ä'çÄ#”€%¢¤#¤”€Š”€„ Ѐ"ÛÇ’>±Ô®!ç"Ä$¥>°Ô”€Š”€‹ú>°ÕSÇ„”€ ”€#æ°Ôe„” !¤#¤ 'ç(~Ä'çÄ'z”€ Ô €””€'ç˜Ä'ç(ç Å'Ä>°Ô”€Š”€„ ÐÇ„„”€!ç„Å!z ±Ô€k”€‹Ù#~¤!…-°>°¡Ôe”€„ ЃÛÇ„„”€ ;°Ô6&²&€ÿ²Ÿ Ô €Ë”€€P¤&€P±Ô„ ” !…-Å !¤'ç&Ä'&¢ÄŠ”€>°Ô”€Š ”€Š]!;°ÔX> hìtWEò¶Ô“¨ p ‚ëBODYPART$„08”8¢¥ –1#€€¢”€–ÿÿÿÿm#ƒÚÔ#”€Š##²Ÿ#€ÿ²¡Ô €€¢”€#”€Š €€¢”€#’–“#€²Ô#”€Š€€#¢”€#”€–@€l'€€¢”€'°Õ&°Ô¤Š"¤!²ŸÔ4ç!£×x±Ô‹ Š!£¤Šá2!Ä!²ŸÔB…K’!”€8¤!¤¤ #²Ô4ç £×x”€ ¢¤Šè"Ô "¢”€Š"”€"¥ Š8£¥ !°Ô 4ç£×x’Š*'ƒKÚÔ&”€Š'€f°&²¡Ô8£¥ €x&¢”€Š&’–’8¤$”€%”€…­’…K¥­ ”€ ¥ –%˜±ÔB%¤ æ<± æ° Ô+ æ æ  ç<Ä ç…­Ä æ € ²Ô†® æ €€£×…­Ä# æÄŠ=$€ ²ŸÔ $#…­ÄŠ+†®$€€£×x°Ô$†®$€€£×…­Ä#†®$€€£×xÄ–.’$’#”€–@˜$„’ ’ –3'€X°Ô'€€¢”€&”€%”€‹Õ&…D²ŸÔ1&…D£¤˜ „’!¢’ '°Ô€g%¢’' °Ô€f%¢’‹…D&£°Ô>…Ô‹pŠ3' °%²¡Ô €/%¢”€Š!'°Ô’' °Ô’'€&°Ô€%’%’ŠW&°Ô4' °%²¡Ô%¢”€Š!'°Ô’' °Ô’'€&°Ô€$’%’Š…D°…&Ÿ¡Ô&¢¤'€€¢”€&”€%’–N‰ ‰„’ ’ ’–€…D°Ô‰£¦…D‰£’‰ ‰„’ ’ ’–'³ŸÔ ‹…&<±¤!…¡ÔŠv¤'°Ô…Ô‹&Š !Ô’Š’ŠA'…D°Ô!Ô’Š’Š,¤!Ô&€€³Ô‹/Š’Š’…D°…&Ÿ¡Ô'£¤±¥ :ŸÔ”€:Ô’>°Ô”€Š”€„Ѓƒ¯ÛÇ„ „ ’(˜±Ô (y°Ô€l”€! ±Ô!¤/ç(Ä!/¤Šê#¤>°Ô!”€>ƒƒ±ÚŸÔ”€„Ѓƒ³ÛÇ”€ ‹ÿ˜¤ ˜±Ô ¤/¤/ç!Ä ¤#¤Šç>°Ô Ї˜Ä–G ˆ” ‰‰ĉ¤ ç˜Ä Ä çÄ”€>°Ôk¥'Lj”€ ¥'‰˜°Ô*ˆ ” ‰¤ †Å ç‰Ä ç…7Ä çĉ¥7Š%‰~˜±Ô‰~y±… Ô ‰ç‰~ÄŠ€l”€”€Š”€–Ë ‡˜Ä¤ >†lÐÚŸÔ ”€„ІlÐÛÇ”€ >†lÐÚÕ2>†pÐÚÔ„ÐLJ‡‹ >°Ô ‹>€+°Ô$”€¤ >†XÐÚŸÔ ”€„ІXÐÛÇ”€ >€,°ÕS”€>°Ô”€Š ”€˜¤*Ô„” Š„” "¤-ç!Ä-ç˜Ä*Ô-çÄ-çÄ-çÄ"¤„Ѓ„¥ÛÇ„„!'Ä ˜±Ô2 y²Ô$ …5°Ô €m”€˜¤Š ;°Ô€•”€˜¤"ç ÄŠ€q”€˜¤>±¥ :ŸÔ”€:Õpÿ>°Ô”€Š ”€> °Ô”€Š”€„ÐÇ„„’"˜±Ô "y°Ô€l”€"Ô++¢²Ô!¤-çÄ-ç+Ä-ç+Ä!¤-{¤-ç"Ä-z˜±Ô4-z„ „ ”€ -|Ô ()£-~¢-~¤Š '()£¢Œ¤'²Ô Ž”€¤-'Ä!¤ ¤!˜°Ô¯‹{>€-°Ô”€7¤7 ³ŸÔ7¢¥†y7פ-˜Ä-çÄŠ€ú”€¤¤ „ÐÝÛÇ„,²ŸÔ&¢¤„” "¤-ç†y7×xÄ-ç!Ä-&Ä-çÄ#¥> °Ô”€Š ”€‹ö>€*°Õ•”€> °Ô”€Š”€„ÐÇ„„!˜±Ô(!y²Ÿ!;° !…5° Ô €s”€˜¤Š!…5°Ô€r”€˜¤„” "¤-ç!Ä-çÄ!˜±Ô-!„ „ ”€ )³ŸÔ”€-(¢Ä-x€ÿ²ŸÔ€©”€-ÄŠ-ÄŠZ>€.°ÔT”€„” "¤-çÄ-ç˜Ä> °Ô”€„ÐÇ„„’Š˜¤"ç!Ä!˜±Ô!y°Ô€l”€",!x¢ÄŠ"€(ć"Ä„ÐÇ’Š‡˜Ä‡x˜°Ô‡ÄЇ‡xxÄ– ‰¢¦‰²ŸÔ4¦‰¤ °Ô‰.Ä€‚ ”ІƒŒˆ ”±Ô—”€–à -„‡0€P”‡.Ä…ƒ‹‡/±‡/± Ô…ƒÜÔ†ƒŒ”†ƒŒ„””"°¥ƒÜ…ƒÜÔi†ƒŒˆ”±Ô—”€¤‡.xŸÔ&ˆ × ¤+‡+É°Ô ‡.‡+熹ć.xŸÔŠÔ‡.xÔ‡/¥ƒ‹ˆ × }¦ˆ × {¦–0*SYSTEM.INTRINSÕZ„„.þÿ”‚†ã‡[ ‡[xŸÕš…9¤ ˜±‡[xŸ¡Ô †¹Ô‡[ÄŠ ¤Šá‡[xÔ%†ᔀ†Ñ…‚Ð× {¦…‚צ”€¥ƒ‹ŠLˆ€«‡[ ‡[xŸÔ;„ˆ€Á””"°Ô(„” ‡[x ŸÔ„„/€P”„”„/‡[ ŠØ‡[xŸÔ€¾”€Š‰°Ô €Ã”€‡[ć[xÔ¥ =¥ƒ'…U¥ƒ&…S£¥ƒ$‰¥S”€”€„”–[0…D±Ô€½”€>±Ô”€‹… ÔD…6¤¤‡Ÿ‡˜±¡Ô‡†¹Ô¤Š‡¤ŠÜ‡Ÿ††‚Ó¹Ÿ¡Ô€¼”€‹º„†Å<¤ …V¤9¤ …J¥ …J€ÿ²ŸÔ”€…J¢¥J¥V¥ „ ‡Ôoᔀ†”€„ ” ‡¤‡„Ňç…6ćç˜Ä‡çćç ‡ćç <ćç ˜Ä‡”€‡¥6ˆÐƒ‡oÛÇ‘'¥S”€‡ ¥ ‡¥V‡ ¥ ”€>±¥ :Ô >±Ô”€ŠŠ”€:ÕÓþ>°Ô”€Š”€–ß>€#°Ôq†y7פ#{¤¤ ˜±!Ÿ¡Ô x…±Ô y¤Š¤€¦”€Šá!ŸÔ;„ ” ¤$…Ä$ç`mÄ ¤¤"%²Ô$ç"×`mÄ"¢¤Šê$ç#{Ä#ç Ä”€Š”€ˆÐ ÛÇ’>±¥ :ŸÔ”€:Õgÿ>°Ô”€Š”€–>±Ô”€ˆÐÛÇ”€ >°Ô}„ ” ¤#†Å#ç˜Ä#ç˜Ä#çÄ”€>€)°? °¡Ô”€Š”€ˆÐÛÇ„„”€ ”€ ç!Ä ç „Å>°Ô”€ˆÐÛÇ’Š > °…¡ŸÔ”€‹~ÿ–S>±Ô”€ˆÐÛÇ”€ >°Õ¢„ ” "¤%†Å%ç˜Ä%çÄ”€>€)°? °¡Ô”€Š”€ˆÐÛÇ„„’"”€"ç#Ä…7¤!˜±Ô(!"¹Ô!~ç"~Ä!…7±Ô ç!ÄŠ!¥7!¤!¤ŠÓ>°Ô”€ˆÐÛÇ’Š > °…¡ŸÔ”€‹Xÿ…7˜±Ô€u”€˜¥7–˜¤>°Ô;„ ” "¤%†Å%ç!Ä%çÄ%ç˜Ä… Ô%ç <áÄŠ%ç …DÄ"”€"¤”€Š”€>ˆÐÛ†XÐÛÚŸÔ”€ˆÐÛ†XÐÛÇ”€ >±¥ :ŸÔ”€:Ô>°Ô”€Š”€!¤ˆÐÛ†XÐÛÇ„„’!˜±ÔQ!¤%ç#Ä%ç 9Ä9ÿ$£²Ô9$¢¥ Š€Á”€%¤… ŸÔ$%˜°Ô#˜±Ô#y°Ô%ç†y7×zĆy7×ç ÄŠª>°Ô”€ˆÐÛÇ’Š …> °¡ŸÔ”€>±>†XÐÚŸ¡ÕÎþ…7˜±Ô€u”€˜¥7–@@@꘤¤ ¤ >„ÐÛÚŸÔ”€ˆÐ„ÐÛÛÇ”€ >°Õ‰Ô€w”€”€>ƒ‰ÐÚŸÔ”€ˆÐ€!ÛÇ”€ >ƒ‰ÒÚÕ‚>°Ô¤”€Š¤˜¤¤>±Ô”€Š>„ ” #¤ +†Å+ç˜Ä+ç!Ä%°Ô+çÄŠ+çÄ+ç …DÄ#”€#¤'¢¤”€>ˆÐÛÚŸÔ”€ˆÐ€.ÛÇ”€ >±¥ :ŸÔ”€:Ô‡˜¤>°Õ•”€>°Õ†Ç„”€ ”€#~¤!¤˜¤¤¤ $˜±Ô2%°Ô-$¤ +y°Ô€y”€Š$…1°Ô€¯”€Š+y²Ô+x¤Š+x¤ ('*Œ¢¤ )'&Œ¢¤ !˜±Ô!¤!¤ +ç$Ä+¤Šê#˜±Ô#ç"Ä ¤Š”€Š”€>ˆÐ€(ÛÚŸÔ”€ˆÐ€(ÛÇ”€ >°Ô'”€>ˆÐƒ‰ÔÛÚŸÔ”€ˆÐ€!ÛÇ”€ ‹tþ>°Ô”€„ЈÐÛÇ’Š”€.¤ +ç)Ä+ç(ʤ"˜±Ô"¤ +¤+ç Ä"¤!¤Šç/ ÄŠ/˜Ä–€ ¼‡Ô<…$Ô ”€¥K¥… <¤ …J¥ …V¤ ¥V>¤>ƒŠöÚÔ”€Š ”€¤ ¤9¤ ¥ 9¥T¥!>°Õ¬… ……¡ Ô¤Šn†y7×x„”€"˜±Ô["æ°Ô"懰¡"æ °¡¤Š7"æ°Ô"懀 °¡"æ °¡¤Š"æ°Ô"懀5°¡"æ °¡¤Š¤$ŸÔ€ ”€Š¤$ŸÕþ‡°Ô„” Ї€ °Ô„” Š„” "¤‡†Å‡ç˜Ä‡çćçćç ćç ćçćç …Dćç …Vćç <ćçćçćç˜Ä‡ç… … Ä… Ô#‡ç <áĆ€­…V×ćÔ‡ç…6æ Ä…6ç "ćÔ…J€ÿ²ŸÔ”€…J¢¥J…V€ÿ²ŸÔ”€Š…V¢¥V‡°Ô‡çÄŠ‡€ °Ô‡çÄŠ‡çÄ"”€Š'<"æ ±Ô "æ ¥ ¥V‡ŸÔ”€Š <*°Ô”€”€Š”€…>¤…D¤7¤…W¤ "¤¤"æ ¥W…D³ŸÔ…D¢¥DŠ€û”€7 ³ŸÔ.7¢¥†y7פ$Ô‡"ÄŠ‡˜Ä‡ç˜Ä‡ç˜Ä‡çÄŠ€û”€‡°‡€5° ÔÇ„"$ŸÔ"ç!ÄŠr Ç„"$ŸÔ"ç!Ä>°ÔR”€>°Ô6$Ô€z”€Ç„”€ !~¤"ç#Ä#˜±Ô#yÚŸÔ €x”€"ç˜Ä”€Š”€ˆÐÛÇ”€ Š $ŸÔ€{”€>°Ô”€Š”€… Ô"çÄ‹™>€"°……¡ Ô3$Ô€¡”€Š"çÄ>€"°Ô”€>°Ô”€Š”€ˆÐÇ’ŠZ‡Ô ”€†Ñ…‚Ð× ¤‡ʇç"Ňç<Ħ„” "¤‡çćçĤ‡¤…H¤†H” …H„Å€‚”'¥D&¥,¥ )¥W‡Ô(¥V*¥ –¨%˜°Ô…H¤"ç Ä"ç Ä"ç9Ä"ç9Ä‹Æ%¤"æ±Õ»…H¤#ç "æÄ"æ°Ô#ç ÄŠ"~˜±Ô #ç "~xÄŠ#ç Ä#ç9"æ¢Ä#æ #æ ¢²ŸÔ #ç#æ¢Ä#æ#æ ¢¤#ç #æ ¢Ä"ç Ä"¤!˜±ÔP!¤#~˜±ÔA#æ°Ô)#~y²ŸÔ £¤#ç 9Ä9#~x¢¥ Š #~x£¤#ç ÄŠ#æ°Ô £¤#ç Ä#¤Š«–€ € D Tò¤>€1°Ô”€ >°Ô%……D°¡Ô€º”€„ЃUÝÇ”€ Š”€>°Ô”€>°Ô”€>°Ô”€>ƒWÚÔC…Ô …… Ÿ¡Ô¥…H¤"æ ŸÔ "æ"ç Ä>¤”€ €!°Ô Š >ƒ[ÚŸÔÌ>°Ô…H¤"æ ŸÔ "æ"ç ÄŠ@… … >ƒ_Ú¡Ÿ>ƒcÚŸ¡Ô'…*²Ÿ! Ÿ>†hÐÚŸ Ô”€„ЃgÝÇ”€ >†\ЃkÛÚÕóþ¥I– à × û , Âr ”€ŸÔ”€’Š–u¥ƒ…ƒÔ”€ŠL‰€7°Ô’ˆÐÇ’)2”€ Ô(‰€3°Ô ’Љ€4°Ô ’Š ’;¥Š€t”€–`(¥ƒ‰€5°Ô’ˆÐÇ’(’#2˜±Ô 2y±Ô€t”€‰ƒŒ<ÚÔ:…ƒÔ”€Š+’*ˆÐÇ’%’’+‰€5°Ô ’;¥Š ’Š1…ƒÔ‰€8°Ô€ ’Š€!’Љ€8°Ô ’Š ’– 9 "&&*.26666:>>BB>BBÚ#ÖŒ•ŠD-Š@0Š<1Š82Š4.Š0/Š,4Š(5Š$6Š 7Š8Š9Š:Š<Š 3Š=Š>Š–#¤ æ°Ô…D æ £ æ ’ Š …D æ £ æ ’ –k&Ô$…<ÄŠ$…;Ä>°‰¡Ô>…x%ÛÇ„”€ ~˜±Ô) ~y°Ô" ~z…3°Ô”€$ Ä>€"ÚŸÔ”€>°Ô”€Š &‰¡Ô”€–xÇ„’@‰>±¡ÕÙ ’?ˆÐÇ’(4°¤’#!Ô9¤’ €&9’ €&9¢’ 9¢’ 2˜±Ô];2”€Ô ’ŠN…52”€Ô ’Š>…42”€Ô 2x’ ’Š)…32”€Ô’Š2”€ Ô 2æ’’Š€}”€!Ô" 9¢’ 9’ 9¢’ €H’’!"¥ …)Ô ’>±¥ :ŸÔ”€:Õ'ÿ‰°Ô ’?’…)Ô ’–  €RÇ„’@‰>±¡Õ]#’?ˆÐÛÇ’%2¤ ˜±Ô% ¤ (y²ŸÔ’#Š’(y°Ô €$”€’’>°Ô'”€ˆÐÛÇ’%2˜±Ô 2;±Ô”€’¤Š¤ ”€ ¤ ”€ !Ÿ¡Ô,¤ z˜±Ô z„„”€ %&£¢¤"Ô%’%’’‹™"Ô’ …4”€Ô ’‹ …5°ÔI>°Ô9”€ˆÐÇ’%2˜±Ô3°Ô2y°2…5±¡Ô 4°Ôᥒ2˜±Ô’+Š’ ’Š2!Ô¤Š% ;°Ô ¤Š …3°Ô¤Š …2°Ô¤Š€}”€$’…)Ô ’>±¥ :ŸÔ”€:Õ£þ‰°Ô#’?’…)Ô ’– F‰¤"æ †‚èÐÚŸ¤"æ °Ô ¤Š "æ †‚ØÐÚ"æ €€°…¡ ¡¤–€r‰¤%¤%æ °Ô1%æ ±Ô”€%æ <±ÔDÔ%æÔ%æ ’ Š%æ ’’%æ°Ô(%æ °%æ ƒŽ¤Ú¡ŸÔ’%~˜±Ô %~x²ŸÔ’%æ°Ô9’ >°Õ!˜°Ô€~”€”€ˆÐ€"ÛÇ’%2˜±!˜±¡ÕÓ!~¤!!Ô&”€ Ô…D'£”€%”€– (’$”€#”€–@…ƒ$â¼ÛÇ¥ƒ$#’–O#’ ’–Ð%¤"xÔN"y8£¤ ³Ô €€²Ÿ¤Š €~᳟¤!&€T°¡Ô€U¤Š !& °¡Ô ¤&€€¢”€!Ô £’Š £”€Š%"ç08”& °Ô 8¢¤Š8¤"ç Ä8¢¥ –ê’2…2±Ô€‡”€€T#’–#” #x¤ Ä ç`mÄ– Code range:  moved  bytesq…"ÔE†ƒÝ‚‚ƒ”†ƒÝ%” †ƒÝ€-”†ƒÝ$” †ƒÝ‚‚Š”†ƒÝ#” †ƒÝ‚‚Ž”†ƒÝ”–¥0%§€€£¤ €U° ° Ô0$0$§¢È0$§°Ô 0$¢0$¢§¢È–$7¤†y!×y±Ô!£¤Šï†y!×{¤ ˜±ÔW ¤$z'³Ÿ$z(²Ÿ¡Ô$ç$z¢Ä¤$ç#×x`m±# ²¡Ô%$ç#×x¤"'³Ÿ"(²Ÿ¡Ô $ç#×"¢Ä#¢¤ŠÊ$y¤Ф– À'¤$y¤$Ä$ç8Ä `m³ŸÔ{ ³Ô £¤ ¤Š€T¤ ¥ 08„”08¢§¤8¤!'’0"§!€€¢±$y"£²Ÿ¡Ô4""¢’0"¢0"¢$y"££”0"¢#È"$y"¢$y’$ç$y¢Ä‹}ÿ$y¥ –Ü8¢¥ %’8£¥ #8Ä $’–÷„(Å!° …3° ”€  ¡¤ – F’…K’8¤&¤‰€Ô&”€"Ÿ¤&¤¤!#²Ô'!£§”€!¢¤Šì"Ô”€ ”€ ¥ –o%z˜±Ô%z„„”€ !£¢&xæ±Ô€”€&%Ä–‡#…3°#y°#z…3°¡ ¤– „‡€…˜±‡€†x˜±¡Ôp‡€†x‡€…¡Ô ‡€†z’ŠW‡€…”€ ÔN‡€…¤€‡€†x…3°Ô„£‡€†zÈ„‡€†‡€…ÄŠ&‡€†z¤€‚‡€‚燀‚y‡€Ÿ‡€†x¡Ô‡€†‡€…–€†2‰‰±Ô9#¢‰²Ÿ9‰²¡Ô‰¥ –G9#¢¥ 9…²ŸÔ9¥– %®àp 2˜±Õ3Ö„,‹ß2y°Ôt4¤'¤#ç£×x³Ÿ¤#ç£×x’’#z¤¤!$²Ô@!#z°Ô #y”$¾¤ ’’’#ç!£×x’’"Ô’Š’!¢¤Š»Š/2y°2…5±¡Ô4’Š2….°Ô’Š2…5°Ô’Š’Š44Ö„%Š* …D5£6’ Š€f5’Š€I’Š€P2x’Š€'’ŠŠŠ2¤#y°#y°3±¡ 3±¡Ô2x’¥–%,5Î #¤ x˜±ÔA zÖ„¹Š:€&…D {£ |’ Š, {±Ô”€Š€D’Š€J’Š xx’Š€H’Š– 2 2˜±ÔG3Ö„íŠ8†’Ô†…-’Š'4ք芅D5£6’ Š5±Ô€g5’Š€g”€ŠŠ¥¥¥– § 2˜±ÔX3Ö…Š8†’Ô†…-’Š'4Ö…Š…D5£6’ Š5±Ô€g5’Š€g”€ŠŠ3±Ô ¥”€Š 4±Ô”€¥–2Hª ) ,¤ (~¥¥(æÖ…U‹Ó(æ ³Ÿ+¡Ô…D(æ £(æ ’ ¥¥Š (æ ¥(æ ¥¥‹¤ …D(æ £(æ ’ ¥¥‹Ž†y…פ )y°Ô,){(æ ¢¥)z³Ÿ+¡Ô…D)z£6’ ¥¥Š¥)z¥Š )z’ ¥(æ ¥(æ Ô’#¥(æ ’(æ ’Š,(æ ±Ô€–”€Š(æŸÔ€g”€Š¥(æ ¢¥(楊2˜±Ô2y²2x²Ÿ¡Ô’#¥>†dЄÐÛÚŸÔ€;”€†dЄÐÛÇ”€ >†dÐÚÕ/>°Õ„†Å ˜±Ô y±Ô€Š”€˜¤’#”€„Ѓ…\ÛÇ’%’2˜±Ô 2y±Ô€q”€ ˜±Õ¯ ¤ (z2”€ÔE(z˜± ”€ Ÿ¡Ô6(z„„”€ …(Ô '’&’€K’'±Ô'à’'²ŸÔ€#’Š€"’Š€‹”€({¥¥¥¥2˜±ÔG(|Ô-(}°Ô¥ ”€ …(¡Ô €F’’Š ¥€X(~(}’ Š€W2x’2y²2x²Ÿ¡Ô¥>±Õÿ>°Ô”€Š ”€‹ô>°Õ–2˜±Ô2y±Ô€Œ”€˜¥”€>°Ôu2˜±Ôk2z„”€%˜°Ô €˜”€˜¥ŠU%¤ (~¥4Ö…^Š6(æ ¢¥Š5(æ ¢¥Š”€Š(æ Ô’#¥(æ ’(æ ’2˜±Ô2y²2x²Ÿ¡Ô’#¥”€Š”€ŠX2˜±ÔP2¤ (y°(y° Ô=’¥¥¥(y°Ô(z¥Š(z¥2˜°Ô”€2˜±Ô2y²2x²Ÿ¡Ô¥Š€”€”€>„ІdÐÛÚŸÔ”€„ІdÐÛÇ”€ ‹Çý–[>°Ô…xÛÇ„”€ ”€Š”€…@¤„ÐÇ ’&–ª„ÐÇ’%3°2…3°¡2”€  Ô 3°Ô’#Š#Ô€š”€3°Ô†…-’Š2˜±Ô€}”€…-¥–¾>°Ô”€Š”€–Î2;±Ô€}”€–ß ¥ƒˆÐÇ’(’#˜¤¤¤2˜±Ô(2¤ (y°Ô(z˜±Ô(z¤ )x¤)y°Ô){¤Š€t”€>°Õ‰”€ˆÐÇ„„”€$¢¤!˜°Ô€ž”€Šc!y±Ô€¢”€ŠV!z˜±ÔP ”€ …5° Ô€Ÿ”€Š=!z~ ”€Ô.!{¤ ˜±Ô ¤ (|'°Ô (x¤(z¤‹Š({¤Šß!x¤˜¤Š€t”€‹qÿ&’…ƒÔ‰€2°Ô”€Š ’Љ€2°Ô ’Š ’– Nˆ ÐÇ’(’$’*‰°Ôˆ ÐÇ’%’Šˆ ÐÇ’(’$’*ˆÐÇ’%’‰°Ô ’Љ°Ô’Š’–È…D°…¡Ô”€>°Ô€àÇ„”€ ”€Š>€!°Ô …:¤”€Š˜¤ ˜±Ô, ¤!æ °Ô!æÔ!æ ’ Š!æ ’!æ ’Š€}”€Š€}”€’’–R’+’*ˆ ÐÇ’(’$’*ˆÐÇ’%’’+>°Ô!”€>°Ô’ŠˆÐÇ’%’’+Š’>°Ô”€ˆÐÇ’%’’+Š’‰ °Ô’Š’–ï9¤¤€ÿ¢’ 9¤9€ÿ¢¢¥ ’€&!’ !’ ˆÐÇ’)"2梤"€ÿ³ŸÔ"’Š€ÿ’’!’ >±¥ :ŸÔ”€:ÔÁ"€ÿ³ŸÔ!¥ Š€ÿ¤"¢’! ¥ † ” 2…-Å 2ç"Ä–´‰°Ô9¤€ÿ¢’ 9¤9€ÿ¢¢¥ ‰€(±Ô#ˆ Ðlj±’)‰°Ô 2¤!’ ’*ˆ ÐÇ’%’2˜±Ô’+’*ˆÐÇ’%’2˜±Ô’+‰°Ô)’!’ "æ€ÿ³ŸÔ!¥ "梒! ¥ "¥Š‰€(°Ô’Š’–ÿ…42”€ŸÔ2;°Ô ’…4¥Š€}”€’*ˆÐÇ’)2”€ Ô 2æ’ ’Š€t”€–NORMAL LOCK PURGE CRUNCH ®ˆÐÇ’(’#2˜±Ô 2y±Ô€}”€>°ÔS”€>°ÔE†‚‰¹Ô’Š1†‚‰…¹Ô’Š"†‚‰‰¹Ô’І‚‰¹Ô’Š”€”€Š”€Š’’…)Ô ’–&)07[ˆÐÇ’(’#2˜±Ô2y±Ô€}”€Š 2z˜°Ô”€‰։؊V>°Ô”€ˆÐÇ’%’’+Š€}”€ ’Š/’Š(’Š!2˜±Ô 2z…3±Ô”€ ’’’Š…)Ô ’–ý’ˆÐÇ’%’2˜±Ô’+’*>€)°Ô ? °Ô’Š? °Ô’Š€}”€”€Š€}”€ˆ ÐÇ’%’2˜±Ô 2…3±Ô€}”€’*ˆÐÇ’(’$>°Ô”€ˆÐÇ’%’Š’ ’;¥–œ’ˆ ÐÇ’(’#2˜±Ô2y±Ô€}”€Š 2z˜±Ô”€’*ˆ ÐÇ’(’$’*ˆÐÇ’%’’+>°Ô”€ˆÐÇ’%’’+Šá’‰€$°Ô’Š’’…)Ô ’;¥–È>°Ô…xÛÇ„”€ ”€ ~˜±Ô ~xŒ’;¥–5„ˆÐÇŽ>°Ô”€„ÐÇ’(’#Š5>°Ô„ÐÇ’%’Š!„ÐÇ„„”€;!”€Ô"”€Š€t”€>±¤ ŸÔ”€ Ô¥–f>°Ô!”€>°Ô#’ŠˆÐÇ’%’’+Š#’–6 „ˆÐÇŽ>±Ô”€‹²9¤’ 8¤ 8¢¥ 8¤ €€Ç„”€ ”€ˆ ÐÇ$’'8¤)¥ >°Ô(”€>°Ô’Š„ÐÇ’(2…0±Ô€=”€’#Š’€È;á;9’ ’„’ %’’8(³ŸÔ0(08'(£”(88(£’8'(£¢¥ Š'¥ %’’!&¥ – NIL ,/ U‰€/°>°¡†‚‹œ¹¡Ô ’”€ŠˆÐÇ’(2…1±Ô€<”€’#‰Ö‹ ‹‚€^’Š{€_’Št>±Ô”€Š7€b’”€ˆÐÇ’%’2;”€ŸÔ”€€D’€g’’€D’Š0>±Ô”€Š#”€ˆÐÇ’%’2; K8¢¥ ’8£¥ 8¤ !’"#£’–Ç2”€ˆ ЄÐÛÇ’%2˜±Õ‡2y±Ô€”€Šz‰2”€Ôk’‰˜±Ô‰y°…(¡Ô‰|’‰{’€K’#Ô>’ €&9’ ˆ’"‰’†ˆÅ’ 9’ ’!‰°Ô€2’Š€3’Š€‘”€–4 9¤ >°Ô\…xLj”€ ‰¤ ,~¤¤,æ°,æ ³¡Ô¤,æ ¤,æ ¤Š€›”€˜¤ ˜±Ô y²Ÿ…5 ”€ Ô€”€˜¤”€Š”€ˆ ÐÀAÛÇ”€ >°Ô ÀÇUŠ€3”€ˆ ÐÀÛÇ”€ „’>€ÚÔ >¤€@ÇUŠ€7”€ˆ Ѐ@ÛÇ”€ „ ’€T(’8¤ >°Ô”€Š€6”€ˆ ÐÇ’K†„Å’’&°Ô€"’Š€#’„’"8¢¥ (’8£¥ 8¤ '’)*£’+¥ – æ4¤9¤>°Ô…xÛÇ„”€ ”€Š”€…@¤ˆ ЀBÛÇ ’&2˜±Ôo2y°Ôd7 ³ŸÔW7¢¥!¢¤†y7פ#2zÄ4°Ô†y7פ#çÄ#ç5Ä#ç6ÄŠ#’#’ €&9’ †y7פ#çÄ#ç9Ä’!Š€ú”€Š€Œ”€>±¥ :ŸÔ”€:ÕLÿ>°Ô”€Š€6”€ˆ ÐÇ’K7!£¥"¥ –5…D°…E°¡…¡ŸÔ”€Š¦ 8‰±¦ ‰ ‰ ˆ’8¦–7 "¨6 …E¢¥E>€#°Ô`7¤†y!×y±Ô!£¤Šï†y!×{¤"˜±Ô)"¤&x…°Ô&z`m°Ô&ç8ÄŠ€¥”€‹ Š&y¤ŠÒ€§”€”€>°Ô”€Š”€>„ ÐÛÚŸÔ”€„ ÐÇ”€ >†\ÐÛÚÕš„” …L¤>°Ô*…x€pÛÇ„”€ ”€ æ°Ô „ ÐÇ ’'Š LŠ0>¤”€#Öš‘Š$NŠ MŠOŠPŠSŠRŠ TŠVŠWŠ%¥L„”!8€d¢Ã ²ŸÔ€ý”€¥ >&ÚŸÔ”€„ ÐÇ”€ …E£¥E– 8‰ …¡‰ Ÿ¡Ô ‰ ‰ ˆ’8¦†y7×z¦‰˜±Ô‰¤ æ ’ ’’ ¦ŠÜ‰ …¡Ô‰ ’†‚èжŸÔ1…J€€¤¦‰ ³Ô!‰†‚èÐÚÔ ‰’ ’‰£¦ŠØ†‚øÇމ ŸÔ‰…²ŸÔ‰¥‰˜°Ô€’ŠK‰¤‰ ‰²Ÿ¡Ô. æ’ ‰²ŸÔ€&…£’ 梒 €&…£’ æ°Ô’…‰££¦ ‰ ÔG‰ ¥ƒ!¦ …Ô-‰ ŸÔ8‰¢±¦ 8‰±¦ Š8‰±¦ ‰‰£’æ°"˜± ÕÃ!æ°Ô}†’Ô†"’Šk2y²Ôb’"y°Ô €G"x’ŠN"y°Ô2;°Ô’…4¥"x’’Š0"y°…(¡Ô"|’"{’€K’Š2;°"…5”€¡Ô €L’…5¥Š’#Š13°Ô'4°Ô€g”€’#"˜±Ô"yÚÔ 2x"x±Ô€Ž”€Š€š”€"2”€ŸÔ€Ž”€!˜±Ô!¤>±Õøþ>°Ô”€Š”€!˜±Ô€~”€‰¤%æ °Ô5‰%æ %æ %æ ’ %æ <±ÔDÔ%æÔ%æ ’ Š%æ ’’Š6%æ £ÚÔ%æ €!°Ô€?’ŠŠ%æ €*³Ô %æ €(£’Š%æ ’‰~¥–À7xvÄþ÷ý1 aa­Èú#<v›½õ%%%%Ń#‡æ °Õˆ¤‡æ ¤>°Ô”€Š €:ÚÔ¤Š ”€„„Ѐ ÛÇŽ„ „ÐÛÇŽ„„Є ÐÛÇŽ ƒºÚÔ „ÐÇ’%’ ƒ¾ÚÔ ,‹ÿ Ö‹øA‹óB‹î’!Ô1„ÐÇ(’#2˜±Ô2y±Ô€}”€Š2z…3± °¡Ô”€Š…’„ÐÇ’%’*„ ÐÇ(’#*„ÐÇ(’#;¥’‹„ ÐÇ(’#2˜±Ô+*„ÐÇ(’#2˜±Ô+ ’‹Ö„ÐÇ(’#2˜±Ô 2y±Ô€}”€>±Ô € °Ô’Š”€Š)”€„ÐÇ) ° ° Ô’Š’’’…)Ô ’Šn„ ÐÇ’%’2˜±Ô+*„ ÐÇ(’#*„ÐÇ’%’’Š62;°Ô €L’…5¥2˜±Ô2…5°Ô€>’Š2y°Ô’Š€}”€;¥Š!Ô>°Ô”€Š”€ŠC–¥#0#0#¢8#£”0#$È#8’8¢¥ –Ê#2;°Ô €L’…5¥$x;°Ô €Ì#’E$…5Ä–ù##xy°2y° Ô2;°Ô ’…4¥Š#x;°Ô’#…4Ä–0ßIfx‹º„'>†`ÐÚŸÔ€:”€„І`ÐÛÇ”€ ˜¥>†`ÐÚÕê>Ö’‹Â€^Ç„”€ ”€ æ°Ô„ÐÇ ’'¥Š( æ°Ô ¤‡~¥¥†‡ç ÅŠ „ÐÇ ’&2˜±Ô2¤‡y°Ô‡z¥‹_;¥¥††Å”€‹M…5¥¥††Å”€‹:…°Ô…3¥Š„ ” $…-Å $ç…Ä$¥¥††Å”€‹ „” $…4Å $…”€Ä$¥¥††Å”€‹æ”€„Ѐ ÛÇ’%>°Ô”€Š”€‹Ä”€„ÐÇ’J3°2…2°¡…+¡Ô4Ÿ¥Š%’…+Ô’Š€e’2˜±Ô2…2±Ô€‡”€˜¥‹|”€„ ÇŽ¤„” $¤‡ç˜Ä‡ćçÄ>°Ô $¥¥”€‹ù„Ѓ‘þÛÇ’%2˜±ÕÅ2y±Ô €ˆ”€˜¥‹´$z2”€Õ¥¤¤3°4€²¡Ô ¤4¤&¤8¤’>°ÔF”€¤„Ѓ’ÛÇ’%$z2”€ÔŠ€‰”€˜¥!Ô3°4€²¡Ô4¤Š’¤Š’!Ô%¥ „ „ Ð&'¼ÛÇŽŠ#Ô€b’€<’"Ô€[’Ф$ç2Ä$¥Š€‰”€>±¥ :ŸÔ”€:Õÿ>°Ô”€Š ”€"Ô/„ жŸÔ …Lç„ ÐÇŽ…LÄ…L¥¥’€[’¥Š…Lç„ ÐÇŽ…LÄ…L¥¥Š>„ÐÚŸÔ”€„І`ÐÛÇ”€ ‹ ý–€€_ɰÙ( „ Ѓ“ÃÛÇJ>€'°Õ’„†Å?¤8¤”€„ Ѓ“ÆÛÇJ’ ˜±2˜±¡Õë%Ö“É‹â ;°2;°¡Ô ’ŠJ„’G„&’F …5°2…5°¡Ô€B’Š-2y° y°¡Ô’Š y° 2”€¡Ô€\’Š€†”€˜¥‹†„&’F …5°2…5°¡Ô€C’Š€†”€˜¥Šd„’G ;°2;°¡Ô ’Š y°2y°¡Ô ’Š€†”€˜¥Š5 ;°2;°¡Ô’Š€†”€˜¥Š …2°2…2°¡Ô€!’Š€†”€˜¥ŠŠ˜¥‹Úþ–_»s* ¤>€(°?€`Ú¡Ô ¤?°¤”€„ Ѓ”nÛÇI'Ô9’2;°Ô &Ô€a’Š'2…5°Ô &Ô€d’Š2y°Ô &Ô’Š€†”€˜¥>€(°Õ’„†Å?¤8¤ ”€„ Ѓ”qÛÇI’ ˜±2˜±¡ÕÝ%Ö”t‹Ô ;°2;°¡Ô€"’ŠJ„’G„(’F …5°2…5°¡Ô€@’Š-2y° y°¡Ô’Š y° 2”€¡Ô€[’Š€†”€˜¥Šx ;°2;°¡Ô€#’ŠJ„’G„(’F …5°2…5°¡Ô€A’Š-2y° y°¡Ô’Š y° 2”€¡Ô€]’Š€†”€˜¥Š …2°2…2°¡Ô€ ’Š€†”€˜¥ŠŠ˜¥‹èþ–  (9>TTš   Ò,8¤ „Ѓ•;ÛÇH>€)°Õ †’¤ (Ô2…3±Ô†L€‚” Š2˜±Ô2y²Ô’Š’#„†Å?¤8¤ ”€„ÐÇH ˜±2˜±¡Õ·%°Ô.2y°Ô 2z”€Ô ’€Z’Š€”€˜¥Š€‚”€˜¥‹„†’Ô(Ô„ ’† ’Š?2y²Ô’Š’# 2±Ô „G„+F(Ô „2’%Ö•>Š ¤Š ¤Š ¤Š¤Š 2”€Õ x¤¤€1¤ yÖ•D‹ž …5°Ô ¤€M¤ Š …2°%Ú¡Ô¤€3¤ Šy%ÚÔ¤€3¤ Šh¤Šc% ÚÔ€„”€¤€6¤ ŠM¤€9¤ ”€ Ô$ Ô¤¤ Š z˜±Ô z„„ ”€ ,-£¢¤Š%ÚÔ€ƒ”€''¢¤Š€…”€Š&°%0Ú¡Ô% °Ô€0’Š€1’ŠL&°Ô %’’Š=%Ö•NŠ)¢¤ Š)¢¤ Š&°Ô *E)’Š )’&°Ô'’%ÚÔ’Š€”€…2¥¥–**1Ahq). ˆ Ð@ÛÇ*’&>°Õ ¤2˜±Ô4°2y²Ÿ Ô’#„†Å”€ˆ ÐÇ’% ˜±2˜±¡ÕꆒԆ ’ŠJ2y²Ô’Š’#2;°Ô…5 ”€Ô €L’…5¥…4 ”€Ô2;°Ô’…4¥2y±Ô €”€…4¥ 2”€Õ‚ ¤'yÖ–jŠv…(Ô'|’'{’€K’„’"Š\€G'x’„’"ŠN„’"ŠG'x’’„’"Š7'|Ô'Ô 'æ’’Š€E'x’Š€E'x’Š€E'x’Š€’”€ŠŠ€”€Š€3”€– º.>€#°Õ¤7¤†y"×y±Ô"£¤Šï†y"×{¤ ˜±!Ÿ¡ÔJ ¤$x…°Ô:¤¤# ²$ç#×x`m±¡Ô#¢¤Šè# ²Ô $ç#×8ÄŠŽ”€8¢¥ Š$y¤Š®!ŸÔ€§”€”€Š”€–÷.ˆ ÐÛÇ’K>†\ÐÚŸÔæ>±¥ :ŸÔ”€:Ô×> °Ô”€Š ”€–i/ˆ ÐÛÇ’%„’!’8¤> °Ô”€Š€4”€ˆ Ð ÛÇ’K> °Ô'„’! „’”€ˆ ÐÇ’K ’"#£’Š!’–ˆ/8à ²ŸÔ ‰ ”€‰ ¥ #”€–h1ˆ ÐÛÇ’%’8¢¥ ’8¤2¤!˜±Ô!y±!…5° Ô€”€˜¤> °Ô”€Š”€˜¤„’¤ '’˜¤ˆ ÐÛÇ„„”€!˜±Ôb! ”€ÔU%¤˜¤$˜±Ô $¤/z&²Ô/z&°Ô€œ”€‹ $¤/x¤ŠÛ„” "¤/$Ä/ç&Ä/ç(Ä/ç8Ä#˜°Ô"¤Š#"ÄŠ€“”€>±¥ :ŸÔ”€:Õwÿ>°Ô”€Š”€ˆ ÐÛÇ’K>†\ÐÚŸÔè"˜±Ô '’(¢¤ >±¥ :ŸÔ”€:> ° Õ+ÿ%˜±Õ™%z¤ %¤˜¤$x¤$%Ä$¤#¤$˜°Ôî%z¤ 8¤ '’8,£¤ 8¤ -£¥ €V…K’8¤,¥ 8Ô8¢¥ 8¤ *Q)Q%¤/z*²ŸÔ Q*¢¤ Šï/{(²ŸÔ/y(¢¤Š/y/{¢¤.-£Q/x¤*¢¤ %˜°ÔÃ+”€,¥ > °Ô”€Š ”€–¾1„’ ’ˆ ÐÛÇ’K>†\ÐÚŸÔæ>±¥ :ŸÔ”€:Ô×> °Ô”€ˆ ÐÇ’% ’Š€5”€–2„’!’ˆ Ѐ@ÛÇ’%„’ ’8¤>°Ô”€Š€6”€ˆ ÐÇ’  EMENTATION' expected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expected  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in  (bad expression)  59:Error in variable  60:Must be semaphore  61:Must be processid  101:Identifier declared twice 102:Low bound exceeds high bound 103:Identifier is not of the appropriate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types  108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible with part 112:Index type must not be real  113:Index type must be a scalar or a subrange  114:Base type must not be real  115:Base type must be a scalar or a subrange  116:Error in type of standard procedure parameter  117:Unsatisified forward reference  118:Forward reference type identifier in variable declaration  119:Re-specified params not OK for a forward declared procedure 120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward declared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for reals only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegal parameter substitution ‰ ¥ƒ#‰ ¥ƒ"‰ ’–; …%‰˜±¡Ô‰”€…K¦…D…&Ÿ°¤ ¦ ¦ ¦ ¦…$ŸÔ”€8¦‰˜±Õ‘‰æ¤‰¤%˜±Ôf%¤ +~˜±ÔW+æ°ÔD+~y²ŸÔ3"£¤+æ ’ "’ +~”€ Ô+~æ’’Š€E+~x’Š"+~x£¤Š +æ°Ô"£¤+¤Š•‰¤ +æ°Ô +æ’ €^’9¥†‚膂øÐÇŽ†‚èжŸÔ0€€…J¤ ¤'+²Ô#'†‚èÐÚÔ'’ ’'’ ’'¢¤ŠØ)…¡Ôˆ ’ˆ ’€ ”€€T‰ ’†y7×z¤%˜±ÔT%¤ +~¤ +æ ’ +æ ,¢’ ,z˜°Ôá’Š!+~…,°Ô’Š,z…3°Ôá’Š,zx’’+¤ЧˆÐÛÇ’K>†\ÐÚŸÔæ>±¥ :ŸÔ”€:Ô×> °Ô”€Š ”€…‰²Ÿ‰‰¢²Ÿ¡¤ Y8¤†y7×{¤&˜±ÔY&¤ +z`m°+ç×x`m±¡Ô€¨”€Š5 ¤ ¤ (,²Ô*+ç(×x`m±Ô+ç(×x¥ ’+z8££’(¢¤ ŠÑ+y¤Š¢!¥ 8Ô”€8¤ …K¢¢”€)Ô”€Š…‰£‰££”€*ÔG‰’ …‰£‰£’ €E‰‰¢’8Ô’ 8!£¢…K¢¤„0!”!8!££’†€­…W×…K¢Ä!”€!¥ ”€– ";…H¤-æ¤-æ¤-æ ¤-æ ¤X–V ufá¶·Æ~_u¹6ÑzçÕ㍾ 8  ï A §  5 æ Ð 0 ã ’ \ ú«f)òiÇ aW0÷fU$òÁ º¥~ÆpbÕ»“wj2*" ©œÂ"¸ËR9 ƒƒYUNITPARTÐ…Ô€¶”€…$Ô ”€¥K¥… 7¤…D¤…W¤…V¤<¤…J¤9¤ ¤ …H¤¥ƒ €€¥ €¥J¥W¥V¥ ¥¥”€>±Ô”€„ÐÛÇ”€ Š~¤…9¤ ˜±!Ÿ¡Ô †¹ŸÔ ¤Š¤€e”€Šà!ŸÔS†‚ӆń ” ¤‡†Å‡ç˜Ä‡ç…9ćçćç <ćç …‚×ćç ˜Ä ¥9 ¤ …Ô…Hæ¥8Š…:¥8”€†Ñ…‚Ð× ¤‡ʇç†Å‡çʇçʇç…‚×Ä”€†Ñ…‚Ð× ¤‡ʇçÊ”€†Ñ…‚Ð× ¤‡ʇç†Å‡ç<ć” †H” …H„Å¥D7 ³ŸÔ-7¢¥†y7פ‡˜Ä‡ç˜Ä‡ç˜Ä‡çÄ ˜±Ô ”€Š€ú”€”€>°Ô”€Š”€– …H¤ çÄ çÄ ç Ä ç Ä ç” æ¤!…9Å!ç˜Ä!ç˜Ä!çÄ!ç Ä!ç Ä!ç Ä!ç <Ä!ç Ä!çÄ!çÄ!çÄ!çÄ!çÄ!çÄ!ç˜Ä!çÄ>°Ô”€€ƒ”ˆ'Ѓ€éÛÝÇ…H攃€ƒ”–\D)&¤#…‚ϰ…‚а¡Ô@¤$¤"‡"‡$²Ô$„‡"× †Ñ‡"× Å †Ñ‡"× ” ‡"¢¤"ŠÕ᥂Ф#„†‚ÓÅ>€6°Ô ”€>€2±Ô”€„'ÐÇ„…… ¤!=¥ƒ%¥>€3°Ô”€Š”€€‚”„'ÐÇ”‚€‚””€†‚Ó”€†Ñ…‚Ð× ¤$‡$ç‡!ć$ç…… ‡!£Ä”€¥…>€4±¡Ô”€„'І\ÐÝÇ”€ >€4°Ô”€„'ЃAÝÇ”€…H攀¥>±Ô>°Ô”€Š”€…H¤$‡$x¥‡$y¥D‡${¥W‡$z¥V‡$|¥ ‡$}¥J‡$~¥ …Hæ¥H„”!>ƒEÚŸÕôþ‡#Ô3†‚Ó„Å¥ƒ ¤$¤"‡"‡$²Ô”€†Ñ…‚Ð× „‡"× Å ‡"¢¤"ŠÞ–*ì J„nCOMPFINISYSTEM.WRK.CODESYSTEM.WRK.CODE.CODE Compiled to Error closing codefile !!du‰ ”‰8”‰‰ ± Ô¦‰”‹Ù¦‰„€6”„ׄ”„ׄE”ˆ‚ ”ŸÔeˆ„”ˆ„E”ˆ‚”ŸÔGˆˆ”ˆ§²ŸÔ3ˆ„nˆ§£”„n‚”Ôˆ.ˆ„nˆ§£”„n”‰””"°Ô&‰‚”‰„E”‰€:”‰„”Š ‰‚#”–u,  min :  sec, lines/minN „„ ” …N³ŸÔ…M¢¥M(³ŸÔ'¢¤„'…M£ÿŒŒ'…M£Œ¢(¢…N£Ì€<ÌÃŽ„ÐÌΟÔv„Ѐ<Ìþ¤„Ð&€<ŒÌÁ¿¤…RÌ&Ì%Ì€<ÌÃÀÿ¤‰‚€³”&²ŸÔ‰&” ‰‚€µ”‰%” ‰‚€¹”‰$” ‰‚€½”‰”Љ”–  linesÓ#ŸÔ >±Ô”€…"Ô…R¢¥R1= È=¢¥”€†ƒÝ”#ŸÔ=¦ …%Ô‰”‰…R” ‰‚(”‰†Ï…‚Ï”±Ô—”€#Ô€€”–Ä1-…$SYNTAX $CURSOR $EQUAL ƒ)YSO.<¢†¥ 1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (maybe missing ';' on the line above)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' expected  13:'END' expected  14:':' expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in declaration part  19:error in  20:',' expected  21:'.' expected  22:'INTERFACE' expected  23:'IMPL! e_Type; 3Var File_Unit : Integer) : F_Result; $ ${Returns the unit containing the file attached to the Fid %identifier. If there is no file opened to Fid, the function %result is returned F_Not_Open and File_Unit is undefined.}   "Function F_Volume (Var Fid : F_File_Type; 5Var File_Volume : String) : F_Result;  ${Returns the name of the volume containing the file attached %to the Fid identifier. If there is no file opened to Fid, %the function result is returned F_Not_Open and File_Volume %is undefined.}   "Function F_File_Title (Var Fid : F_File_Type; 9Var File_Title : String) : F_Result;  ${Returns the title (with suffix) of the file attached to the %Fid identifier. If there is no file opened to Fid, %the function result is returned F_Not_Open and File_Title is %undefined.}   "Function F_Start (Var Fid : F_File_Type; 4Var File_Start : Integer) : F_Result;  ${Returns the length (in blocks) of the file attached to the %Fid identifier. If there is no file opened to Fid, %the function result is returned F_Not_Open and File_Start is %undefined.}   "Function F_Is_Blocked (Var Fid : F_File_Type; 9Var File_Is_Blocked : Boolean) : F_Result;  ${Returns a boolean that is TRUE if the file attached to the %Fid identifier is located on a block-structured unit. If there %is no file opened to Fid, the function result is returned %F_Not_Open.}    128:Result type does not agree with declaration  129:Type conflict of operands  130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File comparison not allowed  134:Illegal type of operand(s)  135:Type of operand must be boolean  136:Set element type must be scalar or subrange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with the declaration  140:Type of variable is not record 141:Type of variable must be file or pointer 142:Illegal parameter solution  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not allowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be integer  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed 152:No such field in this record  153:Type error in read  154:Actual parameter must be a variable  155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:No such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Again forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/func not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in base set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure or function expected!  174:Pascal function or procedure expected  175:Semaphore value parameter not allowed  182:Nested units not allowed  183:External declaration not allowed at this nesting level  184:External declaration not allowed in interface section  185:Segment declaration not allowed in unit  186:Labels not allowed in interface section  187:Attempt to open library unsuccessful  188:Unit not declared in previous uses declaration  189:'USES' not allowed at this nesting level  190:Unit not in library  191:No private files  192:'USES' must be in interface section  193:Not enough room for this operation  194:Comment must appear at top of program  195:Unit not importable  196:'USES LONGINT' required  201:Error in real number - digit expected  202:String constant must not exceed source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  251:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254:Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bounds  303:Value to be assigned is out of bounds  304:Element expression out of range  398:Implementation restriction  399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file, not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in separate procedure  406:Include file not legal  407:disk error  408:compiler error  ÿÿ+FILEINFOFILEINFO€¶PATTERNMPATTERNM€ 1REALCON REALCON €NUMCON DIRINFO  DIRINFO €xPATTERNMCOMMANDI"COMMANDI€#ìSYSINFO $SYSINFO €'‰SPOOLUNIN(SPOOLUNI€)¶A(c) Copyright Advanced Computer Design, 1982 All Rights Reserved   "Type F_Result = (F_Okay, F_Not_Open); " F_File_Type = File; 'F_Date_Rec = Packed Record 6 Month : 0..12; 7Day : 0..31; 7Year : 0..100; 5End; { F_Date_Rec } ' " "Function F_Length (Var Fid : F_File_Type; 5Var File_Length : Integer) : F_Result;  ${Returns the length of the file attached to the Fid identifier. %If there is no file opened to Fid, the function result is %returned F_Not_Open and File_Length is undefined.}   "Function F_Unit (Var Fid : F_Fil" %and Num is undefined.} " " "Procedure R_Real_To_Str (R : Real; ;D, ;P : Integer; ;Var Return : String); " ${Converts the real number R to a string Return with D decimal $ places and a precision of P.} " " "Function R_Min (X, Y : Real) : Real;  ${Returns the smaller of the two reals X and Y.}   "Function R_Max (X, Y : Real) : Real; " ${Returns the larger of the two reals X and Y.} " "  {*************************************************************************} $  Implementation REALCON *³ŸÔ¤ „ ÐÌÏŸÔ„ „ ÐäŽ(€-ÈŠ(€ Ȥ„„ ÐŽ„ Д$ÏÔ%„Д$ÏÔ ¢¤„„ Ð ”$ÃŽŠÝŠ,„ ÐÌÍŸÔ" £¤„„ Ð á”$ÂŽ„Д$ÏÔÞ*°* ¢¢)²Ÿ Ô„„ÐÌ)”$ÃÀŽŠ* ¢¢³Ô„„ÐÌ* ¢¢”$ÃÀŽ„Ð”$ÏÔ ¢¤„„Д$ÃŽ)¢¤¤"%²Ô'„о¤("!€0¢È„„Ð!ÌÁ”$ÂŽ"¢¤ŠÔ*° )³ ÔZ((§È(€.È)¢¤ ±Ô?)¢¤()¢€EÈ ³ŸÔ)¢¤()¢€-È á¤ ²ŸÔ(" €0¢È"¢¤(" €0¢È("ÈŠc ³Ô+(( ¢”( ¢€.È()¢*)£ ££€ ” (*¢ ¢ÈŠ3(*¢È(( £)”(€0È(€.È( ᣀ0” ()¢ £*)£€ "Function F_Date (Var Fid : F_File_Type; 3Var File_Date : F_Date_Rec) : F_Result;  ${Returns a record indicating the last access date for the file %attached to the Fid identifier. If there is no file opened to %Fid, the function result is returned F_Not_Open.}    Implementation µFILEINFOG,‡/„€R”„€(Ë×xÔ¤0‡-„‡.€(Ë×xÄŠ¤0‡-Ä–/‹,‡0„€R”„€(Ë×xÔ¤1„‡/€(Ëׇ-‡.”Š ¤1‡-‚%€P”–0›$ #’ ¤–«$#’ ¤–¼$#’ ¤–Ì$#’ ¤–Û$#’ ¤–,‡.„€R”„€(Ë×xÔ‡-„€(Ë×xĤ/Ї-Ĥ/–.H-‡/„€R”„€(Ë×xÔ„€(Ëׇ.”¤0Ф0–/S ÔŠ–' ‹ph`XPH¦€  " "Type $P_PatRecP = ^P_PatRec; $P_PatRec = Record 1CompPos, { starting position of pattern in subject string } 1CompLen, { length of pattern in subject string } 1WildPos, { starting position of pattern in wild string } 1WildLen : Integer; { length of pattern in wildcard string } 1Next : P_PatRecP; { next pattern } /End; { D_PatRec }  "Function P_Match (Wild, Comp : String; Var PPtr : P_PatRecP; OPInfo : Boolean) : Boolean;  { Compares two strings (one containing wildcards) and returns true if they $match. Includes information about pattern matching that occurred if re- $quested (by PInfo) }  "  {*************************************************************************} "  Implementation 0PATTERNM<.„‡/€P”„§±Ô„„§Æ”§€=°¤0Ф0–/v„” &x˜±Ô&x¤!ç%!{£Ä!$!y£Ä ¤!ç%Ä!ç$Ä ç&xÄ& Ä–´-„‡/€P”¤ å‡.x‰'²¡Ô„‡.xÆ”§€ ±¤ åÔ‡.‡.x¢ÄŠ× ¤0–/H-„‡1€P”¤‡0‡0x¢Ä‡/„‡0’åć/xåÔG„‡0xÆ”§€\°Ô+¤‡0x¢‰'²Ô‡0‡0x¢Ä‡.„‡0xÆ”§ÄЇ/ÄŠ ‡.„‡0xÆ”§Ä‡/xåÔ‡.xˆÐÚ å¡Ô‡/ć0‡0x¢Ä–1@0 +¤¤¤¤‡‡x¢Ä‡ˆ(‡åćxåÕAˆ(‡xÆ”§ƒ€¥Ú‡å¡Ô+ˆ(‡xÆ”§€~°¤ˆ(‡xÆ”§€\°¤‡‡x¢Ä‹ÿˆ(‡xÆ”§ˆÐÚ‡å¡Ô‡ċڤˆ(‡xÆ”§¤‡‡x¢Ä‡ˆ(‡åćxåÔPˆ(‡xÆ”§ƒ€­ÚåԇĊ6ˆ(‡xÆ”§€-°Ô ˆ(‡‡„Š"¤"!²ŸÔ‡ćˆ(‡åćxåÔZ‡Ô$‡Ô „€ÿ¼ÇŽ„„Ѐÿ¼"!¼ÝÜÇŽŠ‡Ô„ÇŽ„„Ð"!¼ÛÇŽˆ(‡xÆ”§€}°¤‡‡x¢Ä¤¤‡‡x Õ£þ‡xåÔF‡„ÐÚåԇĊ5‡‡x¢Ä‡x‰'²‰}¡Ô ˆ(‡xÆ”§ˆÐÚåÔ ‡‡x‡x’–’((x¢Ä(x‰'²ŸÔ '‰&¢ÄŠHˆ” $x¦'x¤(x &$’ ¢¤ ‰&²ŸÔ%Ä&xå%xå¡Ôˆ”!$‰Ĉ” &x%x ÔÇ– 0h={=1ƒ +Ĥ¤‰'²ŸÕG‰}ˆ(-Æ”§ˆÐÚå¡Ô*,-,‰&²Ÿ¤$‰"å¡åÕ½ˆ(-Æ”§¤$åÔ ˆQ,Æ”§¤ €\°#å¡Ô ¤-¢¤‹$å !°¡Ô#å!ƒÊÚ¡Ô¤Š -¢¤,¢¤ Šg ˆÐÚåÔ¤ŠW‰}Ô*,- ÖÒŠG-¢¤,¢¤ -‰'²‰}¡Ôˆ(-Æ”§ˆÐÚåÔ*,-Š„„ „!*Š „„ +„* Ф"å#å¡,‰&²Ÿ¡-‰'²Ÿ¡Ô+ÄŠ,‰&²Ÿ-‰'²Ÿ ‰"å¡Ô¤"+x Õùþ‰}*x˜±¡Ô*x¤'ç‰&'{£¢Ä'‰''y£¢Ä–0 h ?|„(‡€€€P”„Q‡€P”„ƒ‚ÃÇŽ„ƒ‚ËÇŽ„%” ‡~˜Ä„(¤"„(§¤'„Q§¤&„!‡~‡}‡~x˜±¡Ô+‡~x|¤#‡~xç˜Ä‡#˜±Ô‡#|¤$‡#ç‡~xć~‡#ć$¤#Šâ‡!åÔ ‡~˜Ä„%”!‡!¤€–€€K ÔŠ–˜\=¶  Ô"€   "Function R_Str_To_Real (Str : String; :Index : Integer; :Var Num : Real) : Integer; " ${Converts the string Str to a real number Num. If there is %no real number represented in Str, the function returns false # ²Ÿ¡Õ¯¤„"§ˆZÐÚ¤!Ô‡2‡2x Œ„"§¢€0£Ä"¢¤!å"„§²Ÿ ÔÏ!åÔ¤Š;‡2x‰æ ²Ô0‰€·‡2x×|Ô ‡6‡2x¤Š‰€·‡2x×§²ŸÔ¤Š¤#°‡3¡Ô(‰€·‡2x׉€·‡2xׇ1‡3ƒë—¤‡1x„§ÄЇ1˜Ä‹ƒ¤¤‡2‡2x¢Ä‰€·‡2x×|Ô ‡6‡2x¤Š‰€·‡2x×§²Ô¤#°Ô.‡4Ô„‰€·‡2xׇ1‡3ƒë—¤Š„‰€·‡2x×”¤ ‡2x‰æ ° Ô‹ Ô¤Š¤#¤7–6è-„‡2€P”¤‡4× æ²Ÿ„§²Ÿ¡Ôy‡1x‡4× æ³Ÿ å¡Ôf‡1‡1x¢Ä‡4‡1x× ¤+‡+ç  É€d°Ô‡/ÄŠ&‡+çɰԇ/ÄŠ‡+çɰԇ/ÄŠ‡/ć/x‡0ÚÔ„‡+ç‡.‡3ƒë—¤ЉР‡1‡4× æÄ ¤5–4¨.„‡4€P”„+‡3Å„” ¤,‡,‰ć,牀·‰×”‡,ç‰ć,ç˜Ä‡,牀·‰×|ć,ÔM‡,ç ‡2ć,ç‡1‡2£Ä‡,ç ‡5ć5±Ô/‡,ç „”‡,ç‡6ć,ç„+Ň5°Ô ‡,ç‡0ÄŠ‡,ç‡/ĉ„x˜°Ô‰„ ÄŠ‰ç Ä ¦–6… ¤*) Õ™"¤ˆ^‰„€ˆ5„‰„‚Ç„„’¤*ÔD$"£¤¤#&²Ô7ˆ^#× yˆ^#¢× x±Ô˜‚ƒUˆ ˆ^#× yˆ^#¢× x’#¢¤ŠÄ%)¡Ôˆ^"× ¤! &ç&ç &x&y&æ ’"ˆ^× æ°‰å Õgÿ*Ô.ˆ^× ¤ˆ^&æ× y&±Ô˜‚ƒVˆ ˆ^&æ× y&’– „„T‡„ƒ€P”„ ” ‡„˜Ä¤„„T„ „5„ „’¤%°Õ¸„ ’ ¤„5’ ¤„5’¤„^„ ‡„€„„’¤%°Ôv‡„‚¶Ô¤Ši¤‡„‚Ú#¡Ô=‰€·&×|Ô$„^× ¤„}˜‚ƒÄ‡„}ç ‡„}x‡„}‡„}折‚ƒÅ„ ÿ‰€·&×|Ô‡„‚Ú#¡‡„‚€!ݸ&‰æ °!å %Úå Õ`ÿ‡„x˜±Ô¤Š%°Ô¤%¤„„–„ƒÊ%× ç%× æ£Ä$%× æ¤¤ !²Ô% × % ¢× Å ¢¤Šè– €„„U‡„‚€P”„” ¤¤ ‡„¶Ô¤ ‹„„U„5„ „ „’¤ )°Õð„5’ ¤„ ’ ¤¤’„_„5„„^’¤ )°Õ¤ ‰€· ×|„ §²Ÿ¡‡„€!ݸ¡Ô\„_„ „‡„Ç„ „^’Ô¤ „_$’$£¤$„_× æ°'å ÔÍ)°Ô$ „_ì””"¤"±Ô " °Ô¤ Ф ‡„Ú„ ’¡Ô¤ ‰€· ׂ„f”’ ()° ¤ ‰æ °&å )Úå Õ*ÿ()°¡Ô¤ )¤„” – Doneÿ( ¸a„7„bÅ„ ‡9€P”‡8¤:¤„ ¤;„;„ €P”„;‚€T”„;€P”‡7ÌŽ„ƒÇޤ¤„ ‡8Æ”§€ °Ô‡8¢¤8Šê„ ‡8Æ”§€-°¤„ ‡8Æ”§ƒ ÚÔ‡8¢¤8„ ‡8Æ”§„ÐÚÔ$¤‡7‡7Ð Ì„ ‡8Æ”§€0£ÌÀއ8¢¤8ŠË„ ‡8Æ”§€.°Ô@‡8¢¤8„ ‡8Æ”§„ÐÚÔ)¤'£¤‡7‡7Ð Ì„ ‡8Æ”§€0£ÌÀއ8¢¤8ŠÆ„ ‡8Æ”§ƒ ÚÔ&‡8¢¤8„ ‡8„ ƒ—¤ (‡8°Ô¤Š')¢¤Š‡8¤ !åÔ? Ô ‡7‡7ÐäŽ(¤:'³Ÿ‡7ÐÌÍŸ¡Ô‡7‡7Ð'à”$ÃŽŠ‡7‡7Ð'”$ÂŽ‡:¤e–dà„ЄÐÏŸÔ „„ÐŽŠ„„ÐŽ–„ЄÐÎŸÔ „„ÐŽŠ„„ÐŽ– ÔŠ–òà € " "Uses Pattern_Match; " "Type $D_DateRec = Packed Record 2Month : 0..12; 2Day : 0..31; 2Year : 0..100; 0End; $ $D_NameType = (D_Vol, D_Code, D_Text, D_Data, D_Temp, D_Free); $ $D_Choice = Set of D_NameType; . $D_ListP = ^D_List; $D_List = Record /D_Unit : Integer; { Unit # of entry } /D_Volume : String[7]; { volume name of unit } /D_VPat : P_PatRecP; { volume pattern info } /D_NextEntry : D_ListP; { Next entry in list } /Case D_IsBlkd : Boolean Of 1True : (D_Start, { Starting block of entry } 9D_Length : Integer; { Length (in blocks) of entry } 9Case D_Kind : D_NameType Of ;D_Vol, { Everything but D_Free } ;D_Temp, ;D_Code, ;D_Text, ;D_Data : (D_Title : String[15];{ File name } ED_FPat : P_PatRecP; { name pattern info } ED_Date : D_DateRec; { File date } ECase D_NameType of { # of files on vol } GD_Vol : (D_NumFiles : Integer); - D_Temp, GD_Code, GD_Text, {# of bytes in last block} GD_Data: (D_End : Integer))); -End; + %D_Result = (D_Okay, { Mission accomplished } 1D_Not_Found, { Couldn't find name and/or type } 1D_Exists, { Name already exists; no name change made } 1D_Name_Error, { Illegal string passed } 1D_Off_Line, { Volume not on line } 1D_Other); { Miscellaneous error } %  "Function D_Dir_List(D_Name : String; D_Select : D_Choice; ;Var D_Ptr : D_ListP; D_PInfo : Boolean) : D_Result; "{ Creates pointer to list of names of specified NameTypes $(D_Select), matching specified D_Name (wildcard characters allowed). In- $cludes information about pattern matching that occurred if requested $(by D_PInfo) } $ " "Function D_Scan_Title(D_Name : String; Var D_VolID, D_TitleID : String; 4Var D_Type : D_NameType; Var D_Segs : Integer) : D_Result; "{ Parses D_Name } & "Function D_Change_Name(D_OldName, D_NewName : String; D_RemOld : Boolean) : D_Result; "{ Changes file name in D_OldName to name in D_NewName, removing already $existing files of name in D_NewName if D_RemOld is set } " "Function D_Change_Date(D_Name : String; D_NewDate : D_DateRec; ND_Select : D_Choice) : D_Result; "{ Changes date of directory or file name in D_Name to date specified by $D_NewDate. D_Name may contain wildcards } " "Function D_Rem_Files (D_Name : String; D_Select : D_Choice) : D_Result; "{ Removes file of specified name (wildcards allowed) } " "Function D_Change_End (D_FileName : String; New_End : Integer) : D_Result; "{ Changes the number of valid bytes in the last block of D_FileName } " "Procedure D_Lock; "Procedure D_Release; "Procedure D_Init; "{ Provide means to limit use of DirInfo routines to one task at a time " in multi-tasking environments } $ "  {*************************************************************************} "  Implementation wëDIRINFO –;„ÿÿĉ ±Ô ˆ€¸ß ¦‰¢¦–Z‰£¦‰°Ô ˜¦ˆ€¸Þ–¯¤¤( §¤!ˆZÐÚÔ &&x Œ!€0£¢ÄФ ¢¤ '°"å ÔÔ °'°¡Ô( £§€*°Ô&áĤ"¤ – [].TEXT.BACK.CODEœZ„2„[Å„‡5€P”¤‚Y„”¤!²ŸÔ!£¤Š„§¤!²ŸÔ‡4„„7!”„7€P”„!”„§°Ô¤Š"‚Z„”¤ °¤$å ²Ÿ¡Ô „ ‡3 ¤$åÔ¤$‡4§²Ÿ¡Ô>„‡4„7‡4§£”„7€P”„‚[”„‚^” Ô‡2ÄŠ„‚a”Ô‡2Ä#¤6‡6¤_–^:ÏX„0„YÅ„‡4€P”‡3‚€Ñ€P”‡2‚€Ò€P”‡1ć0Ĥ¤ „§²Ô2„ §¤!€ ²Ô „ ”Š!€a³!€z²¡Ô „ !€a£€A¢È ¢¤ŠÆ„§²ŸÔ„§€*°Ô‡3ˆ@€P”„”‚€Ó„”¤ ²Ô ‡3§°Ô ‡3ˆ<€P” °Ô„”Ї3„„6 £”„6€P”„ ”‡3§²ŸÔ¤"°„§²Ÿ¡Ô „‡2‡0‡1 ¤"¤5"±Ô‡3‚€Ô€P”‡2‚€Õ€P”‡0ć5¤^–] ..„‡/€P”¤¤ å!„§³Ÿ¡Ô&!¢¤„!§€\°Ô!¢¤Š„!§ƒkÚÔ¤ŠÎ ¤0–/`.„‡/€P”¤¤ „§²!¡Ô„ §€=°¤ ¢¤Šæ!¤0–/ÿÿÿÿÿÿÿÿÿ?Ó¤%&ì””"¤!±Ô! °Ô¤Š¤Š8&× ¤"çÉÚ"ç§²¡"惱ڡԉ€·%×"甊¤ ¤–;0„‡5€P”¤„§²ŸÕD„§€#°„§$ µÙSPOOLUNI#‰Ô¤Š¤–Iˆ߉Ô¦ˆÞˆâÄç˜ÄˆÞ–T¦–.text\ „v„€¡Åœ„J‡y€P”„"„Nÿÿ”„"„J””"±Ô„"¤{„{„J€P”„{‚+€U”„{””"°Õ¥„"„€>”„"”” „Ë×x°Ô¤ Ф ˆ߉¢ ¤!‡!‰ ±Ô^‡!¦ˆ ‰ Ëפs‡sç„Ë×xćsç„Ë×x‡ ¢Ä‡sç„ Ë×x‡ £Ä‡sç‡vćsç‡wćs‡xĈÞ¤zФzˆÞФz„"”‡z¤€¥–€¤¯ˆ ‰ Ëפ ¤%%x"yÄ%x±Ô!"y%x£¤¤!#²Ô"z„”!¢¤Šé%Ä–€ç‡Þ¤ˆ߉ ¢ ¦ ˆ ‰ Ëפ‡z³ŸÔ ƒ€Ù”‹Ô‡{²ŸÕʇ}„‡|””"±Ô ‡çÄ‹£‡ç‡{£Ä‡ç‡|¢Ä¤„"ÿ˧°Ô¤Šl"£ „"ÿË” ¤!"¢³Ôÿ"£¤‰Ôˆ߇z„"ÿË!¢”"!¢¢¤„"£ÿ˧ °Ô ¢¤ ‡x°Ô„"³Õxÿ‹,ÿˆ ‰ Ëפ‡y‡x±Ô„ÕÚþ”–#1:Y ÔC¦ ¦ˆâÄç˜ÄˆâÄç˜ÄˆâÄç˜ÄˆLX€@ˆM”ŠœˆM’¦Š‚wá’±ÔˆL€<”Šã–¶Ü/' z€ÿÿAPPPROCS9,APPPROCS€3›SCCNTRL SCCNTRL 7SCCNTRL €E:GOTOXYU NUMCON KNUMCON €N*SYSUTIL PSYSUTIL €Qƒ–„‚T -„‡/€P”‡.Ĥ„§²ŸÔ0‡.xˆ€­× 泟 å¡Ô‡.‡.x¢Ä„ˆ€­‡.x× ç”¤ŠÐ ¤0–/¿ Z„‡^€P”„/‡]€P”¤„„’ÔC¤„/„’Ô'‡\Ôˆ€­$× ç„/”#$±Ôˆ€­#’Š¤Šˆ€­$× ç„/” ¤_–^ ÷„„£‡„ú€P”„„̇„ù€P”„€«” ¤€¨¤€§„„£„,„~„„€ª’¤ °Ô„„Ì„„U„„€ª’¤ °Õü’„€­„,„€§„€¬’¤ °Õ݉€·‡€§×¤„õ„~§°Ôl‡€¨¢¤€¨‰€·‡€¨×„”Ô¤‡€¨‰æ ° ° ÔÕ °Ô‡„øÔ¤‰€·‡€¨×‚…a” ±Ô‡„õ„”‡„õ|Ô„€­× ç„”Š'„U§²Ô¤Š‡„õ|Ô„~„U‡„ø‡€§¤Š¤ °‡„õ|¡Ô,‡€§„€­ì””"¤€©‡€©±Ô‡€© °Ô¤Š¤’ ¤„û–„út 2„‡5€P”„/‡4Ť„’ ¤¤‡6„„‡3Ç„„’Ô¤‡6"× ç „/Å"‡6× æ°$å ÔÎ ¤7–6¬ ~„„R‡„€P”„„{‡„€Å„W” ¤Y¤T‡„¶Ô¤„„{ É€d³Ô¤‹ô„„R„+„„[„V’¤ °ÕÝ„+’ ¤X’„\„+„T„Z’¤‡„€0ÝǤ„ °ÔO‰€·‡T×|ÔD‡„ݸ„§²Ÿ¡Ô„\„„„{‡„Ǥ‡„Ú„’¡Ô¤„\× ç „„{Å °‰€·‡T×|¡Ô'‡T„\ì””"¤U‡U±Ô‡U °Ô¤Š¤’ ‡Y ° ¤Y‡T‰æ °‡Xå  Úå Õ6ÿ‡Y °¡Ô¤ ¤„‚–„©|„„Q‡„~€P”„W” ¤U„„Q„„,„„V’¤ °ÕÇ’„X„„U„„P’¤ °Õª‰€·‡Uפ„z¤„,§²Ô¤‹Ž‡„z|Õ‡¤„O¤„N‡„O„X× æ³Ÿ‡„Nå¡Ô‡„O¢¤„O„,„X‡„O× ç”¤„NŠÑ‡„NÔK‡„}³‡„}²¡Ô9„X‡„O× ç ‡„}ćU„Xì””" °Ô¤Š”"±Ô¤Š¤Š¤’ ¤„–„~½ Ô ˜¦¦Š–,KXö ·î™t/e Ùh<c×ÇW€ " $Procedure Chain (Prog_Name : String); $Procedure Chain_Expedite (Prog_Name : String); $Procedure Exception (Kill_Chain : Boolean); $Procedure Suspend_T; $Procedure Resume_T; $Procedure Suspend_Redir; $Procedure Resume_Redir; $ "Implementation ëCOMMANDIp,„‡-€P”ˆ€¼ß„§°Ô¦€¿Š8‰€¿‰çɱÔ)‰€¾‰€À‰€¿¢‰çÉ×)„€P”‰€¿¢¦€¿ˆ€¼Þ–-Þ,„‡-€P”ˆ€¼ß„§°Ô¦€¿ŠF‰€¿‰çɱÔ7‰€À‰çÉ£¢‰çɦ€À‰€¾‰€À×)„€P”‰€¿¢¦€¿ˆ€¼Þ–-ü’’#Ôˆ€¼ß¦€¿ˆ€¼Þ–ˆ×x牀ÍĈ×x牀ÑÄ–@ˆ×x牀ÏĈ×x牀ÓÄ–|‰€Îçˆ×xæĈ׉€Îĉ€Òçˆ×xæĈ׉€ÒÄ–¸‰€Ðçˆ×xæĈ׉€Ðĉ€Ôçˆ×xæĈ׉€ÔÄ–Ã ÔŠ–À¢‘€q: Þ€  "Type SI_Date_Rec = Packed Record 7Month : 0..12; 7Day : 0..31; 7Year : 0..99; 5End; { SI_Date_Rec } " " "Procedure SI_Code_Vid (Var SI_Vol : String); ${ Returns name of volume containing current workfile code } " " "Procedure SI_Code_Tid (Var SI_Title : String); ${ Returns title of current workfile code } " " "Procedure SI_Text_Vid (Var SI_Vol : String); ${ Returns name of volume containing current workfile text } " " "Procedure SI_Text_Tid (Var SI_Title : String); ${ Returns title of current workfile text } " " "Function SI_Sys_Unit : Integer; ${ Returns number of bootload unit } " " "Procedure SI_Get_Sys_Vol (Var SI_Vol : String); " { Returns system volume name }  " "Procedure SI_Get_Pref_Vol (Var SI_Vol : String); " { Returns prefix volume name } " " "Procedure SI_Set_Pref_Vol (SI_Vol : String); ${ Sets prefix volume name } " " "Procedure SI_Get_Date (Var SI_Date : SI_Date_Rec); ${ Returns current system date } "  "Procedure SI_Set_Date (Var SI_Date : SI_Date_Rec); ${ Sets current system date } "    {**********************************************************************} " "  Implementation ˆSYSINFO 0‰Ô #ˆ€P”Š#‚ €P”–P‰Ô #ˆ€P”Š#‚€P”–p‰Ô #ˆ€P”Š#‚)€P”–‰Ô #ˆ&€P”Š#‚9€P”–œ‰z¤–«#ˆ@€P”–»#ˆ<€P”–Ô,„‡-€P”ˆ<„”–-à#ˆDÅ–ìˆD#Å–÷ ÔŠ–rl`XPJ;+ x€   "Type Sp_Result = (Sp_Go, Sp_Stop, Sp_Queued, Sp_Full, Sp_Not_Found); " "Function Spool_Status : Sp_Result; &{Gives the status of the spooler}  "Procedure Spool_Restart; &{Re-starts the spooler if it is suspended} " "Procedure Spool_Stop; &{Stops the spooler if it isn't already} " "Function Spool_File (Name : String; Lines, Page_Size, Dest : Integer) : Sp_Result; &{Queues a file for the spooler to print} "  Implementation % €-°Ô¤‹„"Æ”§€a³Ô„"Æ”„"Æ”§€a£€A¢È„"Æ”§„ÐÚÔC#Ô ‡Eˆ§„"Æ”§ˆÆ”” ÄŠ‡Dˆ§„"Æ”§ˆÆ”” ÄŠ ‚‚^€(’¤F"¢¤‹Iÿ#„‚‚e”Ÿ¡Ô‡D‡ExÄŠ‚‚f’‡F¤Q–PFatal I/O error on  filea„-„bÅ„‡.€P”‡-åÔ,¤/„/‚ƒ\”„/„€c”„/‚ƒf€h”„/’€€”–c! ÔŠ–jqŇ[€   Type $SC_Term_Id = ^Integer; $ $SC_CHSet = Set Of Char; $ $SC_Long_String = String[255];  $SC_Term_Type = (SC_System, SC_Soroc, SC_VT52, SC_Datamedia); 7 $SC_Scrn_Command = (SC_WHome, SC_Eras_S, SC_Erase_Eol, 7SC_Clear_Lne, SC_Clear_Scn, SC_Up_Cursor, 7SC_Down_Cursor, SC_Left_Cursor, 7SC_Right_Cursor);  $SC_Key_Command = (SC_Backspace_Key, SC_Eof_Key, SC_Etx_Key, 7SC_Escape_Key, SC_Del_Key, SC_Up_Key, 7SC_Down_Key, SC_Left_Key, SC_Right_Key, 7SC_Unknown);  $SC_Key_Set = Set Of SC_Key_Command; $ $SC_Port = Record A{Text Port Attributes} 8Height, Width, 8Row, Col,   "Uses SC_Cntrl;  "Const Com_Start = 0; {Prompts and some errors on this column} (Com_Error = 40; {Errors on data prompts on this column} ( "Var Command_Port : SC_Port; {Port for prompts and errors} &Entry_Names : String; {Contains entry names in order A..Z, 0..9} $ " "Function Display_Prompt (Line : SC_Long_String; ;Column : Integer; ;Match_Chars : SC_CHSet; ;Echo : Boolean) : Char; " {Places the prompt Line on the top line of the Command_Port at Column. %If Match_Chars <> [], Display_Prompt waits around for a response in %the set. If Echo, the response is echoed back to the screen.} $ " "Procedure Display_Error (S : String; ;Column : Integer); " {Writes the error S to the top line of the Command_Port at Column and %waits for a space to continue.} " " "Procedure Display_String (Var Port : SC_Port; @Column, @Row : Integer; @S : String; @Width: Integer; @Empty: Char); " {Displays the string S on the Port at (Column, Row) in a field of Width %characters. All positions not filled with S are filled with Empty.} $ " "Procedure Get_String (Var Port : SC_Port;  and move back %one. moves forward one. moves to beginning of %field. moves to end of field. <return> accepts up to %cursor. accepts all. If Clear_Port then the remainder %of the port is cleared before prompting begins.} " " "Function Get_Entry_Range (Var First, @Last : Integer; ‚€»‡\€P!”‰‡\„a!‡\§!£¢”„a”” ‡`‡_„.§¢!¢£‡^ƒ€„—‹#°ÔF‡\!”‰‡\„a!‡\§!£¢”„a”” ‰€_”” ‡`‡_„.§¢!¢£‡^ƒ€„—‹Å#°Ô‡\§¢¤ ¤‹²#°Ô !¤W¤"‡W³Ô‡`ƒ€¹—"£¤Šì¤‹# °Ô} °Ô'!‡\§¤W¤"‡W²Ô‡`ƒ€·—"¢¤Šì‡\§¢¤ŠO ƒ€¼Ú!‡[²¡Ô/‰ ”” ‡`ç‡`{¢Ä‡\! ȇ\§!³ŸÔ‡\!È!¢¤Š ±Ô ‰”” ŠŠ ‰”” °Õ\þ‡\!£È‡ZÔ‡`‡_„.§¢‡\§¢‡^ƒ€³—Š@„‡[‡\§£È„„§€ ” „§±Ô!‡`‡_„.§¢‡\§¢‡^ƒ€„—‰„”” –€± ) ? @@›X„.„YÅ„‡0€P”‡.ÔU„‚‚”„Æ”ˆ‡/¢Æ”§È¤2„2„€P”„2„€Q”„2‚‚€U”„2ƒ‚Ç’ƒ‚Ú¤1Ф1‡1¤\–[ - Which entry () ? Invalid input?No entries in table±K„A„LŇB‡A²¤F‡Aˆ§³Ô ˆ§£¤A‡E‡BćD‡AćCĤ‡A‡B°Ô¤F‹‡A‡B²ŸÕ„‚‚Q”„Æ”ˆ‡B¢Æ”§È„Æ”ˆ‡A¢Æ”§È„‚‚S€P”ˆ¤G„G‚‚T ”„G„”„G‚‚[”„G„’„ÇŽ‡B‡A¤>¤"‡>²Ô „„Ј"¢Æ”§â¼ÛÇŽ"¢¤ŠÚ„§°Ô¤F‹À„§¤>¤"‡>²Õ°„"Æ”§€?°Ô‡CÄ‹”„"Æ”§& 7Break_Char : Char) : Char; ( #{This function displays the prompt Line in the text port described $by Port at [X_Pos, Where]. If the prompt Line is too long for the $text port, it is broken up into several chunks. It can only be $broken where the Break_Char occurs. After the prompt is displayed, $the text port cursor is placed at [X_Cursor, Y_Cursor]. Note that $if X_Cursor < 0, the cursor is placed after the last character in $the prompt Line. If the set Match_Keys <> [], characters is read $from the keyboard associated with the text port until a key $sequence is read that is in Match_Keys. If the match is SC_Unknown, $the character must occur in the set Match_Chars.}    Implementation 9SCCNTRL ,%x$³ŸÔ%$ÄŠ %x#²ŸÔ%#Ä–†%æ ¤ ¤!çF¤"ç$ËØÉÔ %æ" ”%æ"ç$Ë ”!ç@§²ŸÔ%æ!ç@Æ”!ç@§”–¯%¤!!y°!~!x°¡%$’¡¤ Ô%$’ 外Î$%±¤ Ô '’'&’'’ ¤ –ø‰¤ çH#Ë%È çG#ËØˆ($ËØÉÊ–3‰Ú¤‰¤!%€ÿËØ#Ê!çO# Ë%È!çN# ËØˆ3$ ËØÉÊ–s\„1‡^€P”„„-ÿÿ”„„1”‡]”"Ä„„)”„)Ë×x¤_„”–^ÄÙ„\‡Þ€P”„…‡Ý€P”„®‡Ü€P”„4„‚`ÿÿ”¤ß„4„\””"°Õÿ„4„ÿÿ”°Õë„€X” ‡Ú¤×"¤Ø€ÿ¤Ù¤ ‡Ù²Ô‡Ø €ÿ8Cur_X, Cur_Y, ! A{Terminal Attributes} 8Max_Height, Max_Width : Integer; 8Slow, XY_Crt : Boolean; 8Term_Type : SC_Term_Type; 8Term_ID : SC_Term_ID; 6 8In_File, 8Out_File, 8 8In_Use_Count, 8Out_Use_Count  : Integer; 6End {of SC_Port};     Function SC_Init (Info_Name, 2In_Name, 2Out_Name : String; 2The_Term : SC_Term_Type; 2Var Port : SC_Port) : Boolean; ( #{This function initializes a text port on a terminal. Info_Name $contains the name of the MISCINFO file containing the terminal $characteristics. In_Name names the keyboard file for the $terminal. Out_Name names the screen file for the terminal. $The_Term indicates the type of random cursor addressing necessary $for the terminal. Port is returned containing the text port $record. If any files cannot be opened, Port is undefined and the $function result is FALSE.}    Procedure SC_New_Port (Var New_Port : SC_Port; 7Col, 7Row, 7Width, 7Height : Integer; 7Sample_Port : SC_Port); ) #{This procedure declares a new text port whose upper left corner is $at the coordinates [Col, Row] on the terminal screen. It has the $the dimensions Width by Height. The New_Port is attached to the $same terminal as is associated with the Sample_Port.}    Procedure SC_Out_Lock (Var Port : SC_Port);  #{This procedure is called when more than one task might access text $ports on a single screen. It secures the screen for operations $on the named Port until a call to SC_Out_Release is made.}    Procedure SC_Out_Release (Var Port : SC_Port);  #{This procedure is called to release a screen secured by a SC_Out_ $Lock call.} )   Procedure SC_In_Lock (Var Port : SC_Port);  #{This procedure is called when more than one task might access text $ports on a single terminal. It secures the keyboard for operations $on the named Port until a call to SC_Out_Release is made.}    Procedure SC_In_Release (Var Port : SC_Port);  #{This procedure is called to release a keyboard secured by a SC_Out_ $Lock call.} )   Function SC_Scrn_Has (Var Port : SC_Port; 6What : SC_Scrn_Command) : Boolean;  #{This function returns TRUE if the terminal associated with the text $port described by Port has the What function.}    Procedure SC_Left (Var Port : SC_Port);  #{The cursor is placed one position to the left in the text port $described by Port.}    Procedure SC_Right (Var Port : SC_Port); ( #{The cursor is placed one position to the right in the text port $described by Port.}    Procedure SC_Up (Var Port : SC_Port);  #{The cursor is placed one position up in the text port described by $Port.}    Procedure SC_Down (Var Port : SC_Port);  #{The cursor is placed one position down in the text port described $by Port.}    Procedure SC_Home (Var Port : SC_Port);  #{The cursor is placed at [0, 0] in the text port described by $Port.}    Procedure SC_Goto_XY (Var Port : SC_Port; 6X, 6Line : Integer); #{The cursor is placed at [X, Line] in the text port described by $Port.}    Procedure SC_Clr_Line (Var Port : SC_Port; 7Y : Integer);  #{The cursor is placed at [0, Y] in the text port described by Port. $The text port is erased from this position to the end of the text $port line and the cursor is re-positioned at [0, Y].}    Procedure SC_Erase_To_Eol (Var Port : SC_Port; ;X, ;Line : Integer);  #{The cursor is placed at [X, Line] in the text port described by $Port. The line is erased from this position to the end of the text $port line and the cursor is re-positioned at [X, Line].}    Procedure SC_Clr_Screen (Var Port : SC_Port);  #{The cursor is placed at [0, 0] in the text port described by Port. $The text port is erased from this position to the end of the text $port and the cursor is re-positioned at [0, 0].}    Procedure SC_Eras_Eos (Var Port : SC_Port; 7X, 7Line : Integer);  #{The cursor is placed at [X, Line] in the text port described by $Port. The text port is erased from this position to the end of the $text port and the cursor is re-positioned at [X, Line].}    Function SC_Has_Key (Var Port : SC_Port; 5What  : SC_Key_Command) : Boolean; ( #{Returns TRUE if the terminal keyboard associated with the text port $described by Port has the What function.}    Function SC_Map_Crt_Command (Var Port : SC_Port; =Var K_Ch : Char) : SC_Key_Command;  #{Reads K_Ch from the keyboard associated with the text port $described in Port and returns the character and a scalar describing $the character. If the key sequence is prefixed, it is returned $biased by 128. Note that the second character of an escape $sequence is returned in K_Ch.}   #Function SC_Prompt (Var Port : SC_Port; 7Line : SC_Long_String; 7X_Cursor, 7Y_Cursor, 7X_Pos, 7Where : Integer; 7Match_Chars : SC_CHSet; 7Match_Keys : SC_Key_Set; '   "Function SU_Ser_Num : Integer; " {Return system serial number} " "Procedure SU_Delay (Count : Integer); " {Delay for Count 60ths of a second} "  Function SU_Max_Unit : Integer; ${Maximum I/O unit number in I/O configuration} $  Procedure SU_Timer (Var S : Semaphore; Interval : Integer); ${Set timer for Interval 60ths of a second} $  Implementation ŒSYSUTIL ! €ÅŒá¤ x¤–2„#”–?‰æ ¤–µ&Þ¦¦ˆâÄç˜ÄˆxĈâÄç˜Äˆ”ˆ üÄ$¤‰ç€´Ä‰×„ÉĉׄÉĈ߉ç€DÇÄ%Þ‰ÔêˆÞ”–Ü%âÄç˜Ä„€ €¿„”Šœ„%$’–  Ô¦Š‰ÔˆÞ¦ˆß‰ĉ瀴Ė"^ p€ÿÿPROGOPS PROGOPS €PROGSETU´PROGEXEC‚iHEAPOPS „CSP ƒSPOOLUNINSPOOLUNI€¶A(c) Copyright Advanced Computer Design, 1983 All Rights ReservedËØ Ê ¢¤ŠåˆȇØç@ ” ‡Øç@„&ÉȇØç@§ ²ŸÔ‡Øç@ ȇØçF„#ÉÄ„#É„$É„$É„'É„'É„%É„&É„%ɇØçHË È‡ØçGËØʇØçM„1ÉÄ„/É „-É„1É „0É „0É „+É„+É„,É„,ɇØçVâÄç˜Ä‡ØçTâÄç˜Ä‡×ç„…„Ä!°Ô‡×ç„®„ć×ç‡)£Ä‡×‡*£Ä‡×ç „!Éć×ç„!Éć×çć×çć×ç‡×yć×ç‡×xć×çć×çć×ç "ć×ç ‡Ûć×ç ć×ç Ä!°Ô ‡Ú’ ¤ß„4”–Þà$#²ŸÔ#¤Š$¤–F„‡Å‡„Ňç ćç ćçćçć燇yć燇xć燇y‡}£ć燇x‡|£Ä–e$æ °Ô $æ ¤ çTß$ç $æ ¢Ä–…$æ °Ô $æ ¤ çTÞ$ç $æ £Ä–¥$æ °Ô $æ ¤ çVß$ç $æ ¢Ä–Å$æ °Ô $æ ¤ çVÞ$ç $æ £Ä–Ý%æ ¤ çH$˧±¤–ú#¤# {’Ô ç {£Ä–#¤# { ~’Ô ç {¢Ä–4#¤# z’Ô ç z£Ä–Q#¤# z ’Ô ç z¢Ä–Œ#’#¤ }° |°¡#’¡Ô#’ çÄ çÄŠ#’#’–ä„Ë€ÿËÈ„Ë%€ÿËÈ„ˉ}‰¢€ ¢€ÿËÈ„ˉ|‰¢€ ¢€ÿËȉæ„ ”–F%’%¤„ ~’„ ’ æÔ& æ Ö‚óŠ%|$¢%}#¢”Š€=Š €YŠŠ ç$Ä ç#Ä%’–}$’$¤ |° ~ x°¡$’¡Ô $#’$’Š$#’$’–%’%¤ æÔz%$#’ ~ |¢ x°%’¡Ô%’Š\„ ~’„ ’ˆË ~$£¢€ ¢€ÿËÈ# }¢ y°$ |¢ x°¡ÔˆË ~$£€ ¢€ÿËÈ%戔%$#’%’–.#’#’ #’Ô#’#’–x&’&%$’&’Ô.&¤!æÔ&&%$’$¢!¤¤ "²Ô & ’ ¢¤Šï&%$’&’–%æ ¤ çO$ ˧±¤–'’&€ Ä'æ ¤!¤#çM¤'æ& ”&x$x°$x±¡Ô¤'æ& ”Ф#&x€ÿËØɤ ±Ô""å$ç ËØÉ¡"$ç ËØÉå¡ Ô ¤"Ô&&x€€¢Ä ¤ '’–6$#¢¤$‰³Ô‰¢¤$¤–F$„ ”–:]€ Ž„€„Å„ ‡€¥€ÿ”‡€¦¤€Œ¤ ¤ ‚„$„ ”¤%„ §¢%£€[„ %” ¢¤‚„%„ „€¨$„ §$£¢”„€¨”¤%¢¤‡€Œæ Ô¤Š‡€Œ~£%"¢‡€¢¢£¤‡€¦’‡€¦‡€¢‡€¡’‡€ŒæåÔ‡€Œæ '¤#²Ô¤Šm$'£¤&€ „ '” ¤ &(£¤'(¢¤&#²Ÿ¤ Ô#£#ᇀ„ '#¢£” ¢¤&²Ô%'$'£‡€„ '” ¢¤!'°Ô¤Šá¤&³Ô“‡€Œæ„ %”%±Ô ‡€Œæ€ ‡€Œæ„ '&”'&¢$³Ÿ&±¡Ô ‡€Œæ€? ‡€Œæ„ $"”'&¤‡€¤³Ô ‡€¦‡€¤‡€£’‡€¦’‡€¶ŸÔ&‡€¦„ ’¤ )‡€Ú) ±*„€‘Ѓ„&ÛÚ ¡ÔÚ*€?±) ± Õ½þ*¤€§‡€§¤§–¦/ ÔŠ–Èèœ~iZE +ʾ™‰A%ú«œŽqeUE5%ò¿€   "Function N_Str_To_Int (Str : String; 9Index : Integer; 9Var Num : Integer) : Integer;  ${Converts the string Str to an integer Num beginning at the $ character Str[Index]. If there is no integer represented in %Str, the function returns false and Num is undefined.}   "Procedure N_Int_To_Str (I : Integer; :Var S : String); " ${Converts the integer I to a string S.} " " "Function N_Min (X, Y : Integer) : Integer; " ${Returns the smaller of the two integers X and Y.} " " "Function N_Max (X, Y : Integer) : Integer; " ${Returns the larger of the two integers X and Y.} " " "Function N_Leq_U (X, Y : Integer) : Boolean; " ${Returns TRUE if unsigned integer X <= unsigned integer Y.} " " "Function N_Geq_U (X, Y : Integer) : Boolean;  ${Returns TRUE if unsigned integer X >= unsigned integer Y.} " " "Function N_Min_U (X, Y : Integer) : Integer; " ${Returns the smaller of the two unsigned integers X and Y.} " " "Function N_Max_U (X, Y : Integer) : Integer; " ${Returns the larger of the two unsigned integers X and Y.} " " "Procedure N_Uns_To_Str (I : Integer; :Var S : String); " ${Converts the unsigned integer I to a string S.} " "   {*************************************************************************} $  Implementation )NUMCON Doneÿ(â\„2„]Å„‡4€P”„¤6„6„€P”„6‚ €T”„6€P”‡3¤5„ƒ ÇŽ‡2Ĥ„‡3Æ”§€ °Ô‡3¢¤3Šê„‡3Æ”§ƒÚÔ„‡3Æ”§€-°¤‡3¢¤3„‡3Æ”§„ÐÚÔ!‡2‡2x Œ„‡3Æ”§¢€0£Ä‡3¢¤3‡3¤5ŠÎ Ô‡2‡2xáć5¤`–_-32768l/¤*‡1³ŸÔ%‡0‡*€-ȇ*¢¤*‡1á¤1‡1³ŸÔ ‡0‚t€P”‹I¤+‡+¢¤+„‡+‡1 €0¢È‡1 ¤1‡1°Ôâ‡+¤,‡0‡*„‡,§È‡*¢¤*‡,£¤,‡,°Ôä‡0‡*£È–1¼ *³ŸÔ*ÿ¢¢¤ * Ì ¢¤* ¢¤Š¤*¤% )’$% ¢±Ô$% ¢„’„)€P”– Ð$#³ŸÔ$¤Š#¤–ä$#²ŸÔ$¤Š#¤–ó„%$´Ä ¤–„%$µÄ ¤–$#’Ô$¤Š#¤–0$#’Ô$¤Š#¤–; ÔŠ–¸üôêày€ ( ¤ åÔ ‡€±‡€±x¢Ä"„"§€0£¢¢¤ ‡€±x ° Ô½‡€±x °Ô‚„W‡€°€P‡€°§¢”„-‡€²x§€ °Ô ‡€²‡€²x¢Ä–³þÿ.TEXT*,† ¥„-„€¦Åœ„‡-€P”‡.x€AÚÔ8„§ƒ….ÚåÔ „‚…0€P”Š„¤/„/„€P”„/‚…1€U”„/€P”‡.x€‚ÚÔJ„§±ÔB„„§§€:°Ô „„§”„§€ÿÚåÔ „‚…4€P”Š„‚…5”Ô „ˆ@€P”„§±Ôg‡.x‰€°xÚÔ8‰€±‡.x×)¤/„/‰€±‡.x×)€P”„/‚…6€ ”„/„€ð”„/€P”Љ€±‡.x×)„€P”‰€°‰€°x‡.xâ¼ÛÇÄ–€§é ¯„-‡€²€ÿ”‡€°ÇÄ ¤,¤ „-§²Ô1„-„„+„ ‡+ÿÚÔ‡, ±Ô„,‚…Å ‡+¤,Š „,„ ¤,ŠÇ„,‚…Æ –€²â Z„2„[Ň5Ô‡2˜Ä‡4‰’ÏÚÕÙ¤ˆ’Ї4×)§"£¢€,ˆ’Ї4×)"” ¤ˆ’Ї4×)§"£¢€;ˆ’Ї4×)"” ¤! ³ŸÔ!¤ˆ’Ї4×)"§€"°¤#Ô„ˆ’Ї4×)„6"¢ £”„6€P”Š„ˆ’Ї4×)„6" ”„6€P”„€X„§¢” $‡2xÄ$ç‡3Ä$ç#Ä$ç„€P”‡2$Ä" ¢¢¤"ˆ’Ї4×)§²ŸÕ*ÿ–^p ‰’ÏÿܶŸÔq‰•hç” ‰•h{¤ ç  ç  ç  ç  ç  ç  ç  ç  ç  ç  ç  Š‰•hç˜Ä–« $#€P”&‰’ÏÚÔ#ˆ’Ð&×)€P”Š%‰’ÏÚÔ #ˆ’Ð%×)€P”–.CODENo file DontCare<g„•h„–hÅ„”凕k€ÿ”„€¢„Îþÿ”¤•l‡•i‚†×€P”„"‚†Ø€ÿ”¤€€¤¤¤¤„ Ç Ž „”儒Є’Ï„ˆ< „ˆ€Á ‡’ÏÚÕÇ„”å„’Ð ×)€ÿ”„”儔姧€.°Ô„”儔委Š%„”夕m„•m„”å€ÿ”„•m‚†Ù€ÿ”„•m€ÿ”„” ¤&˜°Ô1‡•i§°Ô&‡•i¤•m„•m‚†Ü”„•m„”å€ÿ”„•m€P”ŠŠ7‚†á„Ô$¤•l‡•j˜°Ô„”!Š„•j”!‡•h”  Š„”!‡’ÏܶŸÔ ˆ<„”‡’ÏܶŸÔ ˆ€Á„”„€¢”‡•l¤–l––kº÷s8YÈòL8m æ   "Type Prog_String = String[255]; 'Prog_Ptr = ^Integer; 'Prog_Str_P = ^Prog_Str_Rec; 'Prog_Str_Rec = Record 8Next_Str : Prog_Str_P; 8Is_T_File, 8Is_Literal : Boolean; 8Name : String; 6End {of Prog_Str_Rec}; 'Prog_Red_P = ^Prog_Red_Rec; 'Prog_Red_Rec = Record 8In_File_Name, 8Out_File_Name, 8Prog_Px_Name, 8Px_Name, 8Prog_Lib_Name, 8Lib_Name : Prog_Str_P; 6End {of Prog_Red_Rec}; 'Prog_Rec = Record 8Heap_Base : Prog_Ptr; {Base of runtime structures} 8User_Vect : Prog_Ptr; {^User sib vector} 8Unit_List : Prog_Ptr; {^List of CUs to init/term} 8Redir_Rec : Prog_Red_P;{^Redirection record} 6End {of Prog_Rec}; " "Segment Function Prog_Setup (Name : Prog_String; ; Heap_Dest : Prog_Ptr; ;Var Error : String; ;Var Prog_Desc : Prog_Rec) : Boolean;   Segment Function Prog_Execute (Prog_Desc : Prog_Rec) : Integer; " "Function Prog_Start (Prog_Desc : Prog_Rec) : Integer; "  Function Prog_Call (Var File_Name : Prog_String; 6Var Error : String; 6Var Err_Num : Integer) : Boolean; 2 "Function Prog_Redir (Out_Direction : Boolean) : Boolean; " "Procedure Prog_Exception (Err_Num : Integer);  "Procedure Prog_IO_Set (IO_Err_Num : Integer);   Implementation PROGOPS „„ -ƒ .ƒ „S„ /Å„)Ä„ Ä #çÑ„” #x¤ ¤ ,²ÔQ#ç ×x˜±Ô?#ç ×x¤-çÉÔ.-ç É”-ç É”-ç É °Ôƒ ”„ƒ —ƒ ” ¢¤Šª„Ä#ç×xæ Ñ„*ĉçĉN¤$ƒ —$ƒ—‰y¤'шJ߉N!±ÔˆJÞˆL߈JߊëˆJÞ#x¤ ¤ ,³ÔP#ç ×x˜±Ô>#ç ×x¤-çÉÔ--ç É °Ôƒ ”%ƒ—ƒ”-ç É”-ç É” £¤Š«„”! "Ñ–«‚­‚¯½ƒ€«”)˜(„™ƒ€­—ƒ€­”Ô3#˜°Ô '„’ÄŠ'ƒ€¯”„™ƒ€±—ƒ€±”Ä„”!¤ Ф – û#Ôˆ×x‰:±ˆ×x昱 ¤Šˆ×x‰9±ˆ×x昱 ¤–+ƒ± #ƒ€ÿ—–1ƒÿ#ƒ—–' ÔŠ– á´€³PROGSETUUnit j¬„Z„€­Åœ„*‡[Å„.‡Z€P”„È„*„”‰•i¤\„\‚ ”„\„€U”„\„.€¥”„\€P”–€®µ'” ˆ'x&”¤„ˆÄ'xç!Ä'xç!æÄ'xç˜Ä%”"°'xxá°¡Ä–Bad segment dictionary in file Ô/„0„0Åœ„„1ÿÿ”˜¤1ˆ"§°Ôˆ"ˆ”å€ÿ”Š]ˆ"ˆ”å”Ôˆ"ˆ€‡× €ÿ”Š?ˆ€¢ˆ€Á””"â¼ â¼ÛÚåÔ‹Žˆ€¢” Ô‹ˆ€¢ˆ"€ÿ”ˆ€¢”„”„ˆ"””"°¤!‡0 Õmÿ!ÔL„„#¤ #y±¡Ô#ç#y„#椊æ Ô"¤1Š ‰•i¤2„2‚\”„2ˆ"€ÿ”„2€P”„”‡1¤1–01‰ ¤"ç‰× ¤‰°Ô-"y°%¡Ô˜¦ Ц"æ˜°Ô "ç’Ä"æ¦ Š‰¢¦– is wrong version uses the wrong heap is wrong version too longProgram not found not found„„Å„‡!Ť ¤"‡‰Ä)å‡x±¡Ô#ˆχxפ‡ç„¹Ô¤ Ї‡æ ÄŠÓ)ˆχx׿ ‡°¡Ô,¤"‡±Ô ‡‡x¢Äˆχx×ɰԇ£¤ŠÚ‹è‰¤ ¤¤ +(˜±¡ÔD(ç'× ¤‡É°Ô!‡çɇ °Ô‡çɱ‡ç„¹Ÿ¡¤ +Ô‡ °Š‡}¤е+åÕg‡(ç'× }±‡ °¡Ô „‚’‹Iˆωפ‡¤‡(ç'× Å ‡z¤‰°Ô ‡çɦ‰‡çɱ‡çɱ¡¤ *Ô „‚#’‹ò‡‰¢Ä‡x&¢¦ˆχx×ç ‰ćx¦&¤¤ ‡²Õ¨(ç'× }¤‡x$¢€€£¤$€€³ŸÔ5‰£¦&£¤ˆχx£×ç&Ä$±Ôˆ ˆ Ð $â¼ÛÇ Ž ‹NˆÏ#פ‡¤‡ç !ć(ç'× Å ‡ç(æÄ‡ç(æćç ćçćç #ćç¤#‡É°Õè‡#çÉÔ$¤„ ‡çÅ„„ ÅŠ„ „Ť ¤‰æ ¤$)å"‡$x²¡Ô(‡$ç"×x¤%‡%ç„ ¹‡%ç ɡԤ Š"¢¤ŠÎ)ÔP‰æ ç"×x¤$‡$æ ¤%‡%z‡~°Ô'$%°Ô‡ç ‡$ç ÉÄŠ‡ç ‡%y$%£‡%{¢×xÄŠ „ ‚.’‹“Š2„ ‡#x‡ç $%£’Ô‡#çÉÔˆχæ ×çÄŠŠ‹_Ї#y³ŸÔ ‡ç‚7’‹H ¢¤‹Qþˆχx×ç ‰ćx¦¤"Š&‰•i§°Ô‡ °Ô‰•i‚<€P”Š„‚E’‡"¤%–$yŠ€€€ÿ¤€‡¤ ‡€‡²Ô„ €€£×˜Ä ¢¤Šè˜¤‰¤ˆω£×¤€‡„‡€‡y¢” "™Ä"燀‡z” ‡€‡z£¤€ˆ¤ ‡€ˆ²ÕYˆÏ ‰¢×¤€‰ˆχ€‰æ ׿ ¤#°Ô‰¤‰¢¦ˆχ€‰æ ×ç #ÄŠ‰!°Ô‰¢¦‡€‰ç #怉ɰÕé„#€€£×” „#€€£×x¤€Š‡€Š˜Ä‡€Šç‡€‰怊ç怊燀‰æ‡€‰~¢Ä‡€Šç‡€‰æʇ€Šç‡€‰çŇ€Šç‡€‰æ‡€‰æ €€° Ê‡€Šç ‡€‡çÉʇ€Šç ‡€‡çɇ€‰æ €€° Ê‡€Šç ʇ€Šç $怊ç "怊ç ʇ€Šç #ʇ€Šç ˜Ä‡€Šç„#€€£×x怉}€€°Ô „#€€£×x¤"y ×#Ä ¢¤‹Ÿþˆω׿ ¦‰°ÕVþ¤ˆ Ð ¶ŸÔQ ˆ Ð ÚÔ@„‰€€£×‰æ ç ×xÄ„‰€€£×xçʉ¢¦ˆ ˆ Ð â¼ÝÇ Ž ¢¤Ф„‰€€£¢” %‰€€££Ä„%ç%x¢Œ”‰•hç%ĉ•hç$Ä–€Š  ""1L1P1I1O2TI2TO2PL2PP2PI2PO3PTI3PTO=X ¯„€°„°Å„-‡€³€ÿ”‚„>„-€ÿ„-§¢”‡€°„-„€´‡€²x„-§‡€²x£¢”„€´€P”¤¤¤ å"‡€°§³Ÿ¡Õˆ!ÔC‡€°"§€"°Ô%‡€°"¢§€"°Ô‡€°"”‡€²‡€²x¢ÄФЇ€°"§€,°Ô‡€°" ÈŠŠ0‡€°"§€`³Ô ‡€°"‡€°"§€ £È„-‡€²x§€"°¤‡€°"§ƒ„@Ú¤"¢¤‡€²‡€²x¢Ä‹jÿ‡€°"£‡€°§"£¢”!Ô‚„D‡€°€P‡€°§¢”„-‡€²x£§€=±Ô‡€± ÄŠo‡€±Ä¤„‚„E€P”‡€°„„€´"¢„"§€0£”„€´”)  Intr_Enable;   Procedure Enter_Hdt;   Implementation ®SYSDRIVE&#Ä%âÄç˜Ä%$”–7‰ç€QÇÄ–|$ÞˆâÄç˜Ä€ÿ¤¤ !²Ô €"±Ôˆ ” ¢¤Šçˆ߉ç€UÇÄÔЀ"¤‰|ÚÔ!QÄŠ!Ä!ç@á!x£Ä!çþÿÄ!çÿÿÄ„ýÿÄÿÿôÑ!çÄýÿ Ñ–‰|€@ÜǤ‰çÇĉxǤ‰!ÝÇĉ!Çĉç ÇÄ–M Ô0ˆ üĈüĈ€ €ýˆ”Šœˆ’‰çÇÄŠ–Bj Œ€ " "Type Clk_Window = Packed Array [0..0] Of Char; 'Clk_Stat_Rec = Record 8Last_Word : Integer; 8Low_Time : Integer; 8High_Time : Integer; 8Fill_Array : Array [0..4] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); 6 True : (Hard_Disk : Boolean); 6End {of Clk_Stat_Rec}; $ $ $Procedure Clk_Init; $ $Function Clk_Read (Clk_Index : Integer; 7Start_Block : Integer; 3Var Buffer : Clk_Windoh PROGEXEC9%˜±Ô #%ç€P”$#€P”&˜±Ô #&ç€P”–š„*Å({¤ #±Ô„ Ä ³Ô!” 椊åˆ)× Ä(z¤ "±Ô„ Ä!” 椊ëˆ)×xç Ä(ç(Å('Å– À 2„„/”‡3‡5Ň4ç‡7xć4‡7xæć5‡5çÅ„„ć8˜±Õ‡8z‡6å Ô„‡8甋‡‡8yÔu!¤0‡0ç ‡0æ ć0ç ‡8ç§Ä‡0çáć0ç‡0æ ć0ç!ć0çć0çć0çć0çć0ç‡0æ °Ä‡8ç‡0ç#‡0æ ”Š „‡8ç”!}!ƒNÚå¡ÔW!æÔ„$” „ Z”Š„€ ” „ €@” ” ç‡7xæć8zÔ ‡7xç ÄŠ ç‡7xć7 Ä!çć8x¤8‹äþ‡5ç‡7xć5ç‡7xæÄ„”–8€€ Æ „‡!Å„” ‡˜±ÔG‡¤‡{‡z„ ˆ<‡y‡x„ˆ€Á‡}ˆ×ˆ€Ñ„„‡|ˆ×ˆ€Í„„ƒ ”„™ƒ —ƒ ”¤"‡˜±Ô)ˆ<„ ”ˆ€Á„”„ˆ€Ñ„„ˆ€Í„„”!–!Q ‚  "Type Sp_Result = (Sp_Go, Sp_Stop, Sp_Queued, Sp_Full, Sp_Not_Found); " "Function Spool_Status : Sp_Result; &{Gives the status of the spooler}  "Procedure Spool_Restart; &{Re-starts the spooler if it is suspended} " "Procedure Spool_Stop; &{Stops the spooler if it isn't already} " "Function Spool_File (Name : String; Lines, Page_Size, Dest : Integer) : Sp_Result; &{Queues a file for the spooler to print} "  Implementation µÙSPOOLUNI#‰Ô¤Š¤–Iˆ߉Ô¦ˆÞˆâÄç˜ÄˆÞ–T¦–.text\ „v„€¡Åœ„J‡y€P”„"„Nÿÿ”„"„J””"±Ô„"¤{„{„J€P”„{‚+€U”„{””"°Õ¥„"„€>”„"”” „Ë×x°Ô¤ Ф ˆ߉¢ ¤!‡!‰ ±Ô^‡!¦ˆ ‰ Ëפs‡sç„Ë×xćsç„Ë×x‡ ¢Ä‡sç„ Ë×x‡ £Ä‡sç‡vćsç‡wćs‡xĈÞ¤zФzˆÞФz„"”‡z¤€¥–€¤¯ˆ ‰ Ëפ ¤%%x"yÄ%x±Ô!"y%x£¤¤!#²Ô"z„”!¢¤Šé%Ä–€ç‡Þ¤ˆ߉ ¢ ¦ ˆ ‰ Ëפ‡z³ŸÔ ƒ€Ù”‹Ô‡{²ŸÕʇ}„‡|””"±Ô ‡çÄ‹£‡ç‡{£Ä‡ç‡|¢Ä¤„"ÿ˧°Ô¤Šl"£ „"ÿË” ¤!"¢³Ôÿ"£¤‰Ôˆ߇z„"ÿË!¢”"!¢¢¤„"£ÿ˧ °Ô ¢¤ ‡x°Ô„"³Õxÿ‹,ÿˆ ‰ Ëפ‡y‡x±Ô„ÕÚþ”–#1:Y ÔC¦ ¦ˆâÄç˜ÄˆâÄç˜ÄˆâÄç˜ÄˆLX€@ˆM”ŠœˆM’¦Š‚wá’±ÔˆL€<”Šã–¶Ü/' z€ÿÿ.SYSDRIVESYSDRIVE€¯CLOCKDRICLOCKDRI€ ECSP ‚SYSDRIVESERDRIVEž  SERDRIVE€CSP ƒFLOPPYDR‚SYSDRIVEFLOPPYDR!FLOPPYDR€^SYSDRIVE"SYSDRIVE€'¯CLOCKDRI(CLOCKDRI€,EA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved   Const &I_No_Error = 0; {System I/O Errors} &I_CRC_Error = 1; &I_Undef_Err = 4; &I_Off_Line = 9; &I_Wrt_Prot = 16; &I_Bad_Block = 17; &I_Bad_Address = 18; & &Sys_Vec = -2; {current ^sib vector} &Cur_Task = -1;  {current ^tib register} &Q_Reg = -3; {current ^ready queue} & ){WD 1931 Bit definitions} &Ser_Addr = -1008; {FC10 hex} &Ser_Rcv_Int = 14; {000E hex} &Ser_Xmt_Int = 18; {0012 hex}  9{reg 1 bits} &WD_DTR = 0; { bit enables DSC interrupts } &WD_X_Enab = 1; { bit for xmit enable } &WD_R_Enab = 2; { bit for rcvr enable } &WD_Two_Stop_Bits = 5; { bit for # of stop bits } &WD_1_Stop = 5; { bit for # of stop bits } &WD_Normal = 7; { bit loopback/normal }  9{reg 2 bits} &WD_Rate_1 = 0; { bit which selects X32 clock }  9{stat bits} &WD_Xmit_Busy = 0; { bit indicates transmitter is busy} &WD_Rcvr_Empty = 1; { bit indicates receiver buffer empty} &WD_Overrun = 2; { bit indicating data overrun } &WD_DSR_Bit = 6; { bit for Data Set Ready } &WD_DSC_Bit = 7; { bit for Data Set Change (change in bit 6)} "  Type %Sys_Set = Set Of (Sys_Bus_Err, {Bus Error} 7Sys_Clock, {System Clock} 7Sys_Intvl, {Interval Time_r} 7Sys_Bank, {Bank Switcher} 7Sys_Pwr, {Power Fail} 7Sys_Prnt, {Printer Select} 7Sys_Int, {System Interrupts} 7Sys_Init {I/O System Init} 6); 4 %CTC_Regs = Record 2Counts : Array [0..2] Of Integer; 2Prog_Reg : Integer; 2Sys_Stat : Sys_Set; 0End {of CTC_Regs};  ){ WD 1931 UART declarations } ) %Ser_Bit_Set = Set of 0..15; %Ser_Registers = Record 8Reg_1 : Ser_Bit_Set; 8Reg_2 : Ser_Bit_Set; 8Stat : Ser_Bit_Set; 8Data : Char; 6End {of Ser_Registers};    Var CTC : ^CTC_Regs; {Clock and system status registers} (  Procedure Intr_Init (Var S : Semaphore; 9V : Integer; 5Var Enab : Boolean);   Procedure* &$Ä%ç%%æ%£Ä%ç#Þ#Ô%ç!Þ%xÖŠ'zÚ夊&xÚ ³Ÿ ¤Š"åÕïþƒƒ—Õßþ”– `„$È%„ ’¤–ž('¢¤++° Õ(+ˆÐÚåÔ ¤ ‹ˆ+×x¤¤ #ç ß#ç&åĉç)ɤ#çÄ("³ŸÕã#ç#ß#æÔ‰°Ô#çÄ#æÔˆ‰§¤‰¢¦ŠE#æ%°Ô #ç!âÄç˜Ä#ç#Þ#ç!ß#æÔ‹°ÿ#ç#ߊÙ#ç(#æ'§¤#ç'#æ'¢€ Ä#ç%#æ%£Ä#ç#Þ#æÔ6 #çÐÚ#æ Ô + ’ ‹mÿŠ+°Ô+ ¤ °Ô &åÔ+ ¤ )( È(¢¤ !°Ô#æ&å¡Ô+°Ô )(£"(££” "¤ ‹ÿ#ç ÞŠ¤ – Ä%Þ„âÄç˜Ä„”„ß’ ƒƒ—Ôñ”–aM„ˆ‰×x¤ y¤!¤ xÖ‚å‹€ ç ß"zÚÔŠ‰’ }Ô)‰’ çâÄç˜Äƒƒ— ç߉’ ç ß"ç€ÿ#£ÄŠ6 ç ß!zÚÔŠ÷!ç#ÄŠ" ç ß }Ô çâÄç˜Äƒƒ— çß!ç#ÄŠƒ„çxç€QÇĤ–¦‰ç¤ ç$ØÉÔ É’#’–0 Kl ¤+,¢¤//±¡Ô¤‹™/ˆÐÚåÔ ¤‹ˆˆ/×x¤/°ÔA'ç#ß, ±Ô(‰°Ô ¤ ¤Š‰£¦ˆ‰-,§È,¢¤ ŠÓ'çÄ'ç#Þ'ç!Þ‹9*å¤*å¤#$ ¤'çß, ±'|å¡Õ/’ / °ÔR'y¤ (¤ 'ç ß)zǤ&Úå&Úå Ô ƒƒ—'ç ß&Úå'}å¡ÔØ)ç€ÿ-,§£Ä,¢¤ , °'| ÔÁƒƒ—‹¨%Õ‘-,§¤'~Ô'çÄ€!"¤ ¤!(²Ô € !¢¤ŠðŠh"ƒƒTÚÔ\"ÖƒVŠT#Ô'çÄŠŠE$/°¡Ô.‰ç¤ (çÉ±Ô (çÉŠ(É(çÉŠ Š $Ô ŠŠ"Š-,§,¢¤ , °'| ÕXÿ'ç ß/’ ƒƒ—'çÞ–; #ˆÐÚåÔ ¤‹¸ˆ#×x¤¤ çß çÄ çÄ æ Õ”#PÚÔ? ç æâ¼ æâ¼Û æâ¼Û æâ¼Û æâ¼Û æâ¼ÛÇŽ ç çÐ æâ¼ÛÇŽŠ ç æâ¼ æâ¼ÛÇŽ çÇŽ çÄ ç æÄ çÄ ç#ß ç%Ä ç&Ä ç'Ä#°Ô¦ ç#Þ çÞ–B –CONSOLESYSTERMREMOUT1REMIN1REMOUT2REMIN2REMOUT3REMIN3REMOUT4REMIN4PRINTERFASTCONKEYBUFRREMOUTREMIN*7CO[gs‹—£¯PDQ SerDLV-11LPV-11w; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " $Function Clk_Write (Clk_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Clk_Window; 8Index : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Clk_Clear (Clk_Index : Integer) : Integer; " $Function Clk_Power (Clk_Index : Integer) : Integer; " $Function Clk_Status (Clk_Index : Integer; 5Var Stat_Rec : Clk_Stat_Rec; 9Direct : Boolean) : Integer; $ $Procedure Clk_Term; $ " "Implementation DCLOCKDRI2%ç%çÉÊ%çʤ%¤„Þ–¶'Þ„„ƒ—‰¤„߃çxç€BÇÄ$ç ß$ç$æ¢Ä$æ°Ô $ç$æ¢Ä„$æÄ ˜±Ô* ç æ£Ä 沟¤!åÔ æ¤$ç Ä ˜°¤!Ôß$ç ÞÔ–”–‰çĉçĉç âÄç˜Ä‰ç˜Äƒçxç€tăçx×€aăçx×€QÄ„€ €Ã„”Šœ„’ –ß,³Õª„ÿÿÄ"ç˜Ä"ç,ʤ"ç"çÉÊ"ç€þʉç ß„‰æÄ!˜°Ô ‰ç"ÄŠT!æ"泟Ô"ç"æ!æ£Ä!¤!æ¤!˜°Ô ç"ÄŠ&!ç!æ"æ£Ä"ç!ʤ ˜±Ô ç"ÄŠ‰ç"Ä!˜°Ô¬‰ç Þ„âÄç˜Ä„ß)³Ô ‰ç+*”–ò&%‰ç”– ø–þ–PDQ ClkCLOCK^„þÿÄ%¤ ×x¤!"x"x×x¢Ä!ç‰æÄ!ç‰æÄ!ç‚”!ç Ä!ç ‚”!çÄ–d–r Ô’Š– 1þûòŽ_4€  " "Const Ser_Q_Size = 32; { bytes in type-ahead Queue } (Ser_Tab_Size = 25; " "Type Ser_Window = Packed Array [0..0] Of Char; 'Ser_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of „*ɇ0‡-‡.„*‡4ÇÊ„*É„*‡5ÇÊ„*ɇ7‡6‡:‡9‡8‰¤*„*É„*É„„§”–AI@Ù-@¶óU‰!¤#ç¤#ç&Ä+’ „*Ä(¤!„É¢¤#ç„ÉÄ„„ÉÊ„Ê#ç „ÉÄ#ç „ÉÄ)á¤#ç „ÉÄ#ç „ÉÄ'€¶°Ô #ç€AÇÄŠ #ç€QÇÄ+'+ÉŒ¢Ê$+Å#z¤€$xܶŸ€Ž#æ Ü€€¶Ÿ Ôá#z ±$xÚå Ô󃂯ƒ‚±ÃÌΟÔ'€¶°Ô $xÇ’¤ Š$x€@ÝÇ’¤ – å&xá°Ô '&$’ ¤‰!¤!ç¤'%¢‰&‰’ "xÚÔO'&$’ ¤'$¢‰&‰’ "xÚÔ1‰€M²ŸÔ '&$’ ¤''ÉåÊ'É’'$¢‰&‰’ "xÇ’ ¤ –>‡²ŸÔ ¤‹E‡Ô¤‹;ˆ‡×¤.礈.yפ‡¤ ‡¤¤ˆ߇Ô‡¤Š"‡ˆ/É×.×yŒ¤.~åÔ '.y¢Œ¢¤'¤/ɤ.ç.‡y‡x¤ (°Ô`&¢¤$+²ŸÔ+¤ Š$¤ ‡*°¡Ôˆ/É×.×x¤ *±Ô.ç‡*!‡ ¤ (±.|¡Ô .ç‰!&(&°(° ( ° Ô¢Š.áÄ.|Ô .ç‰!(%*ˆ/É×.×x¢¤!*¢¤‡+°¡ÔŠ+*£¤ +°(± Õ>ÿˆÞ(¤.}Ô ‡‡‡’ -Ô ¤ „ ”–W€–('&%$#²Ÿ’¤ – €ˆ(×}Ô&%$’ €¶('&%$#²Ÿ’¤ – Ž Ô’Š–-´W’uuP`=( MJ0.!zB€Q %ˆÐÚÕ;$¤¤%Ô ˆ%×xæ%Ä ç€ ÄŠ%°Ô ‰£Ä çÄŠ Ä çÄ ç%°Ä ç Ä%Ö„Ý‹¸ ç ‚„¢”‹« ç ‚„¦”‹ž ç ‚„ª”‹‘ ç ‚„®”‹„ ç ‚„²”Šx ç ‚„¶”Šl ç ‚„º”Š` ç ‚„¾”ŠT ç ‚„”ŠH ç ‚„Æ”Š< ç ‚„Ê”Š0 ç ‚„ΔŠ$ ç ‚„Ò”Š ç ‚„Ö”Š ç ‚„Ú”Šˆ%×xxÖ„ýŠ$ ç‚„ñ”Š ç‚„õ”Š ç‚„ù”ŠŠ ¤– ƒê „&Ä%Ö…ªŠ!x¶ÔŠ !z¶ÔŠƒ„||ÚÔƒ„çxçÇÄ‹F'Ô ˆ*×€9” Š ˆ*× ” ˆˆÐ*â¼ÛÇŽˆ*×x¤"ç 'Ä"ç&Ä"%Ä"xÖ…¯Š"y€ÿ€¡ÝÇÄ"yç€ÿÝÇÄŠ"çâÄç˜Ä"çÄ*’ "çâÄç˜Ä"ç ("ç ƒ…²—"æ Õ­ˆ*¢×ˆ*×xĈˆÐ*¢â¼ÛÇŽ"ç€Q€@£Ä"ç€S€@£Ä"ç€F€@£Ä"ç€D€@£Ä"ç€@€@£Ä"ç€X€@£Ä"ç€P€@£Ä"ç âÄç˜Ä"ç)"ç ƒ…²—"ç!âÄç˜Ä"ç#âÄç˜Ä"çĈ€K€Ü„”Šœ„*’ *’ *’¤– ë ˆPÇŽƒ…³çxçÇÄü€À€Ä þ€È€Ì¤þ€Ð€Ô¨þ€0€4¸ÿ €€€€¤ÿˆ ׈×xĈ׈×xĈÐÚÔ/ˆˆÐƒ†vÛÇŽˆ×ˆ×xĈ׈ ×xÄ€à€ä°þ€è€ì´þ€ð€ô¸þ€ø€ü¼þ„€ €Ò„”Šœ„’–ò – Ô’Š–µDëÑ&†àuø 8^2yû€   {$D System_Driver+ System-worthy driver, as opposed to bootstrap version} "  Const Fl_Max = 1; {0-based maximum floppy number}   Type Fl_Window = Packed Array [0..0] Of Char; %Fl_Stat_Rec = Record 8Filler : Integer; {not used} 8Bytes_Sector : Integer; 8Sectors_Track : Integer; 8Tracks_Disk : Integer; 8Fill_Array : Array [0..3] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit : Integer); 6End {of Fl_Stat_Rec}; %Fl_Unit_Num = 0..Fl_Max; %Fl_Side_Choice = 0..1; %Fl_Dens_Choice = False..True; %Fl_Byte_Choice = False..True; {normal vs 512 byte sectors} %Fl_Nibble = 0..15; %Fl_Byte = 0..255; %Fl_Com_Rec = Packed Record 8Com_Byte : Fl_Byte; 8Disk_Num : Fl_Nibble; 8Trash : 0..3; 8Density : Fl_Dens_Choice; 8Side : Fl_Side_Choice; 6End {of Fl_Com_Rec}; %Fl_Attrib = Record 8Cur_Track : Integer; 8Cur_Sides : Fl_Side_Choice; 8Flpy_Cmd : Fl_Com_Rec; 8Dec_Format : Boolean; 8Noisy : Boolean; 8Flipped : Boolean; 8TI_Format : Boolean; 6 Ext_Format : Boolean; 6End {of Fl_Attrib};   Var Fl_Desc : Array [Fl_Unit_Num] Of Fl_Attrib; " "Procedure Fl_Init; " "Function Fl_Read (Unit_No : Fl_Unit_Num; 4Start_Block : Integer; 0Var Buffer : Fl_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer;   {$B System_Driver} " "Function Fl_Write (Unit_No : Fl_Unit_Num; 5Start_Block : Integer; 1Var Buffer : Fl_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer;  "Function Fl_Clear (Unit_No : Fl_Unit_Num) : Integer;  "Function Fl_Power (Unit_No : Fl_Unit_Num) : Integer;  "Function Fl_Status (Unit_No : Fl_Unit_Num; 2Var Stat_Rec : Fl_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure Fl_Term; "  {$E System_Driver}   Implementation ]FLOPPYDRL„$Å„€Ðʉ!¤!ç¤"„Å!çÇÄ!ç ÇÄ€"xܶŸÔà–v#ÚÔ ¤Š#ÚÔ¤Š#ÚÔ¤Š¤–¼'#Ê'’ ‰!¤ ç¤!xÚåÔ%'&Ê ç$xÄ ç%Ä!'Å€!xܶŸÔó$ yÄ–ð„'ńʄ %¢&’ ‰!|Ç’ ¤ ±Ô&Ä ¤ –ø €"¤¤¤ &²Ôp Ô ˆ ×ÄŠˆ ×Ĉ £×¤'ç Ä' ¢Ä¤¤!'²Ô5ˆ!× ×¤ ! °Ô(çÄŠ!Ô(çÄŠ(çÄ((yÄ!¢¤ŠÆ ¢¤Š‹¤¤¤#&²Ôdˆ#פ'ç¤ 'çÄ'çÄ'ç%ÉÄ'çÄ'çÄ'áÄ'ç%ÉÄ(Ê( Ê(Ê#%ɰÔ(ÊŠ ("Ê"Œ¤#¢¤Š—ˆ!0üĈâÄç˜Ä– PDQ Fpy[ˆ%פ$¤¤!Ä!çˆ çÉ× ×xÄ!çˆ ×x y¢ŒÄ!ç€MÄ!ç‚€ý”!ç Ä!ç Ä!ç%Ä–ˆß#²ŸÔ ¤Šˆ#פ ç ˆ y×x’ ¤ˆÞ–––œ–æ(¤„)„É×Ä'¢¤„ɤ¤ $²Ô"#¤%ɤ%%ÉÊ%!Ê#¢¤ ¢¤ŠÙ– #ÚÔ ¤Š(#ÚÔ¤Š€8#ܶŸ‰!æ Úå Ô¤Š¤– ˆ‰×¤ˆ&×x¤!&y¢Œ¤&{‰塤&~Ô¤Š¤*‰å¡Ô)Ô‰"£Œ"¢¦Š ‰"£"¢¦‰"³ŸÔ ¦‰¤Š‰"£$"¢¦‰"£$¤%Ô Œ$ Œ$¢‰£Œ¢$¤ !¢¦ !¦%Ôˆ)×&×x¦Š#‰$Œ‰!Œ¢¤#¢‰£ˆ)×&×x, DCLOCKDRI2%ç%çÉÊ%çʤ%¤„Þ–¶'Þ„„ƒ—‰¤„߃çxç€BÇÄ$ç ß$ç$æ¢Ä$æ°Ô $ç$æ¢Ä„$æÄ ˜±Ô* ç æ£Ä 沟¤!åÔ æ¤$ç Ä ˜°¤!Ôß$ç ÞÔ–”–‰çĉçĉç âÄç˜Ä‰ç˜Äƒçxç€tăçx×€aăçx×€QÄ„€ €Ã„”Šœ„’ –ß,³Õª„ÿÿÄ"ç˜Ä"ç,ʤ"ç"çÉÊ"ç€þʉç ß„‰æÄ!˜°Ô ‰ç"ÄŠT!æ"泟Ô"ç"æ!æ£Ä!¤!æ¤!˜°Ô ç"ÄŠ&!ç!æ"æ£Ä"ç!ʤ ˜±Ô ç"ÄŠ‰ç"Ä!˜°Ô¬‰ç Þ„âÄç˜Ä„ß)³Ô ‰ç+*”–ò&%‰ç”– ø–þ–PDQ ClkCLOCK^„þÿÄ%¤ ×x¤!"x"x×x¢Ä!ç‰æÄ!ç‰æÄ!ç‚”!ç Ä!ç ‚”!çÄ–d–r Ô’Š– 1þûòŽ_4€ ÿÿXCSP ‚SYSDRIVESERDRIVEž/ SERDRIVE€2CSP ƒFLOPPYDR‚SYSDRIVEPRIAMDRI=:PRIAMDRI€>ÃSTANDRIVASTANDRIV€DßRL02DRIV:ERL02DRIV€IrDTCDRIVE6LDTCDRIVE€OsTM11DRIVRTM11DRIV€Ur   Const &I_No_Error = 0; {System I/O Errors} &I_CRC_Error = 1; &I_Undef_Err = 4; &I_Off_Line = 9; &I_Wrt_Prot = 16; &I_Bad_Block = 17; &I_Bad_Address = 18; & &Sys_Vec = -2; {current ^sib vector} &Cur_Task = -1;  {current ^tib register} &Q_Reg = -3; {current ^ready queue} & ){WD 1931 Bit definitions} &Ser_Addr = -1008; {FC10 hex} &Ser_Rcv_Int = 14; {000E hex} &Ser_Xmt_Int = 18; {0012 hex}  9{reg 1 bits} &WD_DTR = 0; { bit enables DSC interrupts } &WD_X_Enab = 1; { bit for xmit enable } &WD_R_Enab = 2; { bit for rcvr enable } &WD_Two_Stop_Bits = 5; { bit for # of stop bits } &WD_1_Stop = 5; { bit for # of stop bits } &WD_Normal = 7; { bit loopback/normal }  9{reg 2 bits} &WD_Rate_1 = 0; { bit which selects X32 clock }  9{stat bits} &WD_Xmit_Busy = 0; { bit indicates transmitter is busy} &WD_Rcvr_Empty = 1; { bit indicates receiver buffer empty} &WD_Overrun = 2; { bit indicating data overrun } &WD_DSR_Bit = 6; { bit for Data Set Ready } &WD_DSC_Bit = 7; { bit for Data Set Change (change in bit 6)} "  Type %Sys_Set = Set Of (Sys_Bus_Err, {Bus Error} 7Sys_Clock, {System Clock} 7Sys_Intvl, {Interval Time_r} 7Sys_Bank, {Bank Switcher} 7Sys_Pwr, {Power Fail} 7Sys_Prnt, {Printer Select} 7Sys_Int, {System Interrupts} 7Sys_Init {I/O System Init} 6); 4 %CTC_Regs = Record 2Counts : Array [0..2] Of Integer; 2Prog_Reg : Integer; 2Sys_Stat : Sys_Set; 0End {of CTC_Regs};  ){ WD 1931 UART declarations } ) %Ser_Bit_Set = Set of 0..15; %Ser_Registers = Record 8Reg_1 : Ser_Bit_Set; 8Reg_2 : Ser_Bit_Set; 8Stat : Ser_Bit_Set; 8Data : Char; 6End {of Ser_Registers};    Var CTC : ^CTC_Regs; {Clock and system status registers} (  Procedure Intr_Init (Var S : Semaphore; 9V : Integer; 5Var Enab : Boolean);   Procedure Intr_Enable;   Procedure Enter_Hdt;   Implementation ®SYSDRIVE&#Ä%âÄç˜Ä%$”–7‰ç€QÇÄ–|$ÞˆâÄç˜Ä€ÿ¤¤ !²Ô €"±Ôˆ ” ¢¤Šçˆ߉ç€UÇÄÔЀ"¤‰|ÚÔ!QÄŠ!Ä!ç@á!x£Ä!çþÿÄ!çÿÿÄ„ýÿÄÿÿôÑ!çÄýÿ Ñ–‰|€@ÜǤ‰çÇĉxǤ‰!ÝÇĉ!Çĉç ÇÄ–M Ô0ˆ üĈüĈ€ €ýˆ”Šœˆ’‰çÇÄŠ–Bj Œ€ " "Type Clk_Window = Packed Array [0..0] Of Char; 'Clk_Stat_Rec = Record 8Last_Word : Integer; 8Low_Time : Integer; 8High_Time : Integer; 8Fill_Array : Array [0..4] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); 6 True : (Hard_Disk : Boolean); 6End {of Clk_Stat_Rec}; $ $ $Procedure Clk_Init; $ $Function Clk_Read (Clk_Index : Integer; 7Start_Block : Integer; 3Var Buffer : Clk_Window; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " $Function Clk_Write (Clk_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Clk_Window; 8Index : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Clk_Clear (Clk_Index : Integer) : Integer; " $Function Clk_Power (Clk_Index : Integer) : Integer; " $Function Clk_Status (Clk_Index : Integer; 5Var Stat_Rec : Clk_Stat_Rec; 9Direct : Boolean) : Integer; $ $Procedure Clk_Term; $ " "Implementation - –µDëÑ&†àuø 8^2yû€ "  {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Type Prm_Window = Packed Array [0..0] Of Char; %Prm_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4 " "Const Ser_Q_Size = 32; { bytes in type-ahead Queue } (Ser_Tab_Size = 25; " "Type Ser_Window = Packed Array [0..0] Of Char; 'Ser_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of *°Ô¤ Š2-ˆ6„É×x¢£¤Š%z*’ £-³ŸÔ¤Š %y¤„%xÊŠ-Ô7*²Ÿ*³Ÿ¡Ô*¤Š¤(,„É+!-"’ ¤+!¢¤ *!£¤ -¢¤ °Ô(,„É+*-"’ ¤Š ¤ ¤–û”„‘„•Å„„ Ĉ6‡‘פމ¤‡¤‡ç¤’‡’ ÉÕÀ€…‡‘!„’ °Õ¡‡’ Ê‡Ž‡çÉć’ ʇŽç‡ÉÄ€S!‡‘‡Žx£’ °Ô`*¤“¤ ‡“²ÔR„ × ¤”ˆ‰×¤•‡”çÉÔ.‡•‡‘ć•燔xć•燔çÉĉ±Ô‰¢¦ ¢¤ЧР‡ŽćŽçÄ–•/¦‰¤¤ !³Ô ‰±Ô  £¤Šê‰£¦–T ÿ¦ˆâÄç˜Ä€"¤ ɦ’–{ ¤ ¤ +²Ô€ „„’ ¤ ¢¤Šå– ‘#‰²Ô¤Š ¤–Priamÿ$¤ˆ%פ¤ Ä çÄ%‰²Ô çˆ6!x×xÄ ç!z¢ zÄ ç!xÄŠ çÄ çÄ çÄ ç‚‚J” ç Ä ç Ä––2$¤ˆß)('&%„€R’ ¤ „ɰԒˆÞ– R$¤ˆß)('&%„€S’ ¤ ˆÞ– c Ô’Š’–‚Ü2 ,N‚@…›«€ # $Type Stan_Window = Packed Array [0..0] Of Char; )Stan_St_Rec = Record ;Chars_Queued : Integer; ;Queue_Size : Integer; ;Fill_Array : Array [0..5] Of Integer; ;Device_Name : String[7]; ;Case Is_Blocked : Boolean Of =False : (Vol_Name : String[7]; FIn_Unit : Boolean); =True : (Hard_Disk : Boolean); 9End {of Stan_St_Rec}; & $Procedure Stan_Init; $ $Function Stan_Read (Stan_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Stan_Window; 8Index  : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Stan_Write (Stan_Index : Integer; 9Start_Block : Integer; 5Var Buffer : Stan_Window; 9Index : Integer; 9Bytes_Left : Integer; 9Control : Integer) : Integer; " $Function Stan_Clear (Stan_Index : Integer) : Integer; " $Function Stan_Power (Stan_Index : Integer) : Integer; " $Function Stan_Status (Stan_Index : Integer; 6Var Stat_Rec : Stan_St_Rec; :Direct : Boolean) : Integer; $ $Procedure Stan_Term; $ " "Implementation ÞSTANDRIV–j„„Å%£¤¤ !²Ô;)³ŸÔ'‰' ¤ ¤ „”,+-ȉ” Ô' È”"¤ Š' Ȥ ¢¤ŠÀ*¤– Î*³ŸÔQˆ×xæˆ×x昱 Ô"&£¤¤!"²Ô‰('!¢§”!¢¤ŠèŠˆ×x('&””"¤ Ф – פ–Þ–STANINSTANOUTBUCKETSys I/O—¤%¤!Ä!çĉE±Ô7ˆ×x¤ z ‰9±¡Ô æ¤Šï ³Ô‰€· ×|å&°¡Ô %”!ç Ä&Ö|œŠ!!ç ‚p”Š!ç ‚t”Š !ç ‚x”Š!ç‚€”!ç&°Ä–ž–© ÔŠ–Άni9 Ñ€   Type RL_Window = Packed Array [0..0] Of Char; %RL_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of RL_Stat_Rec}; " "Procedure RL_Init; " "Function RL_Read (Unit_No / : Integer; 4Start_Block : Integer; 0Var Buffer : TM_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer; " "Function TM_Write (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : TM_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; " "Function TM_Clear (Unit_No : Integer) : Integer;  "Function TM_Power (Unit_Num : Integer) : Integer; " "Function TM_Status (Unit_No : Integer; 2Var Stat_Rec : TM_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure TM_Term; " "  Implementation qTM11DRIV‹‰z°Ô #ÝǤ3#ܶŸÔ¤ŠQD#ܶŸÔ¤Š@#ܶŸ€A#Ü€A¶Ÿ Ô ¤Š%$€LÚ#Ú¡Ô¤Š¢#ܶŸÔ¤Š¤–'„'ʼn¤„Ê„*ʄʄ)Ê„ Ê„„ØÉåÊ„ „ØÉåÊ#ç(áÄ#ç„Å#x€ܶŸÔó&(#z¢Ä#çÉÔ(*#xÇ’ ¤ #xÚÔ)„„’ ¤&ÿáÄŠ¤ – [ˆâÄç˜Ä¨ú¦‰¤!ç¤" Ê"ɦ!ç Ê–‰%²¡Ôˆß%„„’ ¤ˆ%×ĈÞŠ ¤–”–TM-11Õ$¤¤ Ä çÄ çÄ çÿÄ ç‚€Ë” ç Ä ç Ä ç%Ä–‰Ô¤¤"#²Ô"„„’ ¤"¢¤ŠçqRL02DRIV0„%Å„$ʉ„ʼnÉÔø–Á„$ʼn¤!ÉåÔ¤Šu! ÉÔ¤Šj! ÉÔ¤Š_!çÄ„’ 8!{ܶŸÔ ¤Š6À!{ܶŸÔ¤Š$$!{Ü$¶Ô¤Š !{ÚÔ¤Š€€¤!ç Ä„’ –‰¤&’ !ç ɤ %²ŸÔ !çÊŠ!çÊ!ç  %£àÊ!ç$Ê&’ –%%ÿ²Ô&%$’ &’ ¤Š¤–#„ ‡Å‡Ô¤‹ä‰ÕÛ‰¤ ‡¤ „‡Ä%„ É¢¤ /‡¢¤"¤"¤‡Œ¤€(#£Œ¤¤„ $& ¤!°Ôl ¢¤'‡²ŸÔ‡¤ Š'¤ (±ÔE+ç(áÄ„ „ ÉÊ+ç„ ÉÊ+çÊ+ç $Ê+ç#Ê+ç&Ê„ . „ ¤ °!° ! ° Ô”‡(¢¤‡(¢¤‡(£¤‡°!± Õ,ÿŠ ¤!¤–ÿÿÿÿ¶ˆ„„Ĉ‡‰×!£’ °Ôi"ƒÚÔ`"¤†¤ ‡†²ÔR„ × ¤‡ˆ ‰ פˆ‡‡çÉÔ.‡ˆ‡‰Ä‡ˆç‡‡xćˆç‡‡çÉĉ ±Ô‰ ¢¦ ¢¤Ч–‰ë¦ ‰¤¤ !³Ô ‰±Ô  £¤Šê‰ £¦ –Dˆ€üĉɦ‰Ô%¤¤¤ #²Ô„ ʈ ׄŠ¢¤ŠäˆâÄç˜Ä€"¤!ɦ’–Y#‰ ²Ô¤Š ¤–`–RL-02¯$¤ˆ %פ¤ Ä çÄ ç€(Ä ç!z¢ zÄ ç‚±” ç Ä ç Ä ç!xÄ–¶–e„(Å-‰ ²„ÉÚ Õƒˆ -פ¤¤„ÉÖÜŠN)°Ô¤ ŠB,¢£¤ Š9)¤„ É°Ô „ ɤŠ „ É¢¤%z"£,³ŸÔ¤Š %y¤„%xÊŠ °Ôˆ„É×+*),!.’ ¤Š ¤ ¤–…$¤ˆß)('&%„’¤ ˆÞ– ±$¤ˆß)('&%„’¤ „ɰԒˆÞ– À Ô’Š–â^…c •Úµ¯¤E5x[€  {$D System_Driver+ } !  Type Dtc_Window = Packed Array [0..0] of Char; %Dtc_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4End {of Stat_Rec}; " "Procedure Dtc_Init; " "Function Dtc_Read (Unit_No : Integer; {volume number minus 9} 5Start_Block : Integer; {starting transfer block} 1Var Buffer : Dtc_Window; {base address of data transfer} 5Index : Integer; 5Byte_Count : Integer; 5Control : Integer) : Integer; "  {$B System_Driver} "Function Dtc_Write (Unit_No : Integer; 6Start_Block: Integer; 2Var Buffer : Dtc_Window; 6Index : Integer; 6Byte_Count : Integer; 6Control : Integer) : Integer; 6 "Function Dtc_Clear (Unit_No : Integer) : Integer; " "Function Dtc_Power (Unit_No : Integer) : Integer; " "Function Dtc_Status (Unit_No : Integer; 3Var Stat_Rec : Dtc_Stat_Rec; 7Direct : Boolean) : Integer; 7 "Procedure Dtc_Term; 0  {$E System_Driver}   Implementation rDTCDRIVEŒ„ĉ¤'¤¤%+Ê%Ê% *Ê%çÊ„)Ä(¤ „É¢¤„„ÉÊ$ç„ÉÊ$çÊ"'Å$çÊ$çÊ$ç„Å$çÉÔø– ó‰çÊ„2Ê„2ʄʄ€™Ê„€™Ê„ʄʄ Ê „„’ –ž ‰Õ‘‰¤„+Ê„*Ê)¤„ „ÉÊ„„ÉÊ„„ ÉÊ/-.,„’ &çÉÔI€€¤&ÉÔ=-„„’ „ÉÖ{œŠ& ¤Š!„É°Ô¤Š¤Š„É°Ô¤Š’ ФР¤–Ù…‰ „ˆÉ‡€‡‡€†’ ¤€ˆ„‰‰‰Œ¢‰”–€‡<Hì „,Å.Ô¤‹‡‰²„ÉÚ Ôkˆ‡×¤ ¤¤„ÉÖ€îŠP-¤„ É°Ô „ ɤŠ „ É¢¤(z$£‡³ŸÔ¤Š (y¤„(xÊŠ-°Ô¤Š ‡¢£¤ŠŠ ¤+ °Ô-¢£¤Š-¤‡Œ¤ ‡¢¤ˆß%°#²Ÿ¡Ô+/„É.#"!’ ¤%°+°¡-±¡Ô"#€ ¢!"#¢€ ¢ ¤ˆÞ%¤–ÿÿÿÿuˆ#ʉˆ’ °Ôc‰ƒwÚÔX‰¤¦‰ ²ÔHˆ‰× ¤ˆ‰×¤!çÉÔ""#Ä"ç!xÄ"ç!çÉĉ±Ô‰¢¦‰¢¦б–·ˆ„Ê„„Ħ‰¤ˆ¤ ‡ˆ²Ô ‰±Ô  ¢¤Šè‰£¦–ˆøˆÿ¦ˆâÄç˜Ä€"¤ ɦ‰çTUĉ{TU°¦‰Ô’ ’–þ–#‰²Ô¤Š ¤–Scribes$¤ˆ%פ¤ Ä çÄ ç€ Ä ç!z¢ zÄ ç‚‚ ” ç Ä ç Ä%‰²Ô ç!xÄŠ çÄ–z–$¤)('&%„ ’ ¤ „ɰԒ– µ$¤)('&%„’ ¤ – Ä Ô’Š–z½ÑôH þ<?QÞ]€   Type TM_Window = Packed Array [0..0] Of Char; %TM_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of TM_Stat_Rec}; " "Procedure TM_Init; " "Function TM_Read (Unit_No 0 Ä#x€L²ŸÔ#€L¢Ä#~!¤"Ô Œ! Œ!¢#x£Œ¢!¤#ç ¢Ä$ Ê–z„(Ä"'¢¤&¤¤ #²Ô""¤$ɤ$$ÉÊ$!Ê"¢¤ ¢¤ŠÙ– –# ³ŸÔ€0#¢¤Š€A#¢ £¤–xxÓ$¤ˆ‚Lˆ”„ÉȈ‚Mˆ”„ÉÈ–ExxFlop_xx [xx] xx C-xxxx E-xxxx EC-xx CT-xx DT-xx DS-xx LT-xx Vs-xxxxÀ*¦„‚k€P”„ È„Ȉɉ‰„*ˆÅ„*É„*É„* ‰ ÇÊ„*É„*ɈɈˆɧˆÉˆÉ‰‰‰„„§”–*#)#²„ ‡Å‰¤‡¤„‰Å‡yÚ¤„„Ä„  „ÉÊ„„Éʄʄ ʇ„ ŇɇÉ Ôó‡ç ćÉÔù€€¤„ÉÖáŠ."Ô¤Š ¤Š!¤Š ¤Š¤Š¤Š €€¤Šÿÿ¤Š!¤!â¼ â¼ÛÚå-¡Ô –E„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕI¤¤&¢¤‡‡çŇɇÉ Ôó‡ç‡Ä„ ‡Å‡ç‡~¢Ä‡ç‡xć’ ‡ÉÔù‡ÉåÕ¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"Ä„„Å #¢¤‡¤‡#£¤‡ÉÔù‡ÉÔ $¤„„ŇÉÔ9‡„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÀþ¤‹°þ%¤‡¤–Õ„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕA¤¤&¢¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"ćÉÔù‡ÉåÔW‡‡çŇɇÉ Ôó‡ç‡Ä„„Å #¢¤‡ç‡xÄ„ ‡Å‡¤‡#£¤‡ç‡~¢Ä‡’ ‡ÉÔù‡ÉÔB$¤„„Ň„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÈþ¤‹¸þ%¤‡¤–u¤*¤%ç¤)Ô%ç.ÄŠ%çˆ%y×x–î„)Å*x¤„Ê„-Ê„„Éʄʄ,Ê„ „ØÉÊ„ Ê„„ØÉåÊ„ „ØÉåʉ¤%ç+áÄ%çÊ%ç„ÉÊ%ç„Å€%xܶŸÔó%çÉÔ-%xÇ’ ¤Š¤„%çÉÊ„%çÉÊ*#Ä%xÚÔ,„„’ ¤(ÄŠ! â¼â¼ÛÚåÔ((x¢Ä!¤–u„&Å'(x£¤!°Ô¤ Šb!³ŸÔA!á'²Ÿ!᳟¡Ô‰„ˆ’ °Ô'¤(Ä(x±Ô‰!á„„’ ¤ ((x £Ä!²ŸÔ‰!„„’ ¤ ((x ¢Ä(x³ŸÔ(Ä– ‹ ‰‡²¡Õþ/Ô¤‹ó-¤ /¤„‡„É×Ä„ ØÉÔ ¤ .¤.¤Š0.¤„ É°Ô „ ɤ Š „ É¢¤ ¤.(Œ£¢¤„ ØÉåÔ‡ ¢¤ˆß¤¤'(²!°¡ÔV¤ˆ‡×‡„ ¤!°Ô#‡°'(°¡Ô$¤‡‡%„„ ˆ‡×’ ¤&¢¤&°!° Ôº'¢¤‡¢¤Š¡‡°!°¡„ ØÉ¡Ô‡„ „’ ¤ˆÞŠ ¤!¤–Ÿ('&%$#’ ¤ – ³('&%$#’ ¤ – Å Ô’Š’–y½H íÏɰRH–\€ ÿÿRX02DRIVYRX02DRIV€_SYSDRIVEOMNIDRIVGdOMNIDRIV€gðSYSDRIVECORVUSEMßj CORVUSEM€o>DZ11DRIVs DZ11DRIV€vÜSYSDRIVE   {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Const RX_Max = 1; { zero-based } "  Type RX_Window = Packed Array [0..0] Of Char; %RX_Stat_Rec = Record 8Filler : Integer; {not used} 8Bytes_Sector : Integer; 8Sectors_Track : Integer; 8Tracks_Disk : Integer; 8Fill_Array : Array [0..3] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit : Integer); 6End {of RX_Stat_Rec}; % %RX_Unit_Num = 0..RX_Max; %RX_Side_Choice = 0..1; %RX_Dens_Choice = False..True; { single..double } % %RX_Cmd = (RX_Fill_Buffer, /RX_Empty_Buffer, /RX_Write_Sector, /RX_Read_Sector, /RX_Format, /RX_Read_Status, /RX_Write_Delete, /RX_Read_Error); % %RX_Cmd_Rec = Packed Record 4Go : Boolean; { initiates command } 4Func : RX_Cmd; { command codes } 4Unit_Sel : 0..1; { selects drive } 4Done : Boolean; { function complete } 4Int_En : Boolean; { interrupt enable } 4Transfer : Boolean; { data available or need data } 4D_Density : RX_Dens_Choice;{selects single/double density } 4Cur_Side : RX_Side_Choice;{ selects side 0/side 1 } 4Unused : 0..1; { unused; must be zero } 4Is_RX02 : Boolean; { indicates RX02 type system } 4Ad_Ext : 0..3; { extended bus address } 4Init : Boolean; { initialize } 4Error : Boolean; { error } 2End; {of RX_Cmd_Rec} % %RX_Attrib = Record 3Track_Num : Integer; 3Cur_Sides : RX_Side_Choice; 3RX_Command : RX_Cmd_Rec; 3Dec_Format : Boolean; 3Noisy : Boolean; 3Flipped : Boolean; 3V_Sector : Integer; 3Sector_Num : Integer; 1End {of RX_Attrib}; 5  Var RX_Desc : Array [0..RX_Max] Of RX_Attrib;  "Procedure RX_Init; " "Function RX_Read (Unit_No : RX_Unit_Num; 4Start_Block : Integer; 0Var Buffer : RX_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer;   {$B System_Driver}  "Function RX_Write (Unit_No : RX_Unit_Num; 5Start_Block : Integer; 1Var Buffer : RX_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer;  "Function RX_Clear (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Power (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Status (Unit_No : RX_Unit_Num; 2Var Stat_Rec : RX_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure RX_Term; "  {$E System_Driver} "  Implementation €RX02DRIVRX-02w‰%²¡ÔOˆ%פ$¤¤!Ä!çˆ çÉ×xŒÄ!çˆ y×xÄ!ç€MÄ!ç‚ ”!ç Ä!ç Ä!ç%ÄŠ ¤–Ç#²‰¡Ô=ˆ#פ 礈ß!ʉ çʼnÉÔø‰yÚÔ¤Š ¤ˆÞŠ ¤–ΖԖ²ˆ<ÿĉ ɦ‰ÕˆâÄç˜Ä€"¤ˆ×Ĉ×€4Ĥ¤ #²Ô&ˆ פ Ô$çÄŠ$çÄ$$yÄ ¢¤ŠÕ¤¤!#²ÔXˆ!פ$ç¤$çÄ$çÄ$çÄ$ç"ÉÄ%Ê%"É!¢Ê%Ê%"ÉÊ% Ê% Ê%Ê!¢¤Š£‰ʉÉÔø–>'¤#ç¤#{‰ 塤ˆ#y×x¤&‰ å¡Ô $ÉÔ#ç#~!£!¢ÄŠ #ç#~!£Œ!¢Ä##~!1 "Procedure Corvus_Init; " "Function Corv_Ch_Read (User : Corv_User_Range; 9Log_Drive : Corv_Drive_Range; 9Chunk_Num : Integer; 9Chunk_Size : Integer; 5Var Buf_Ptr : Corv_Window) : Integer; " "Function Corv_Ch_Write (User : Corv_User_Range; :Log_Drive : Corv_Drive_Range; :Chunk_Num : Integer; :Chunk_Size : Integer; 6Var Buf_Ptr : Corv_Window) : Integer; " "Procedure Corv_Prm_Read (User : Corv_User_Range; ;Log_Drive : Corv_Drive_Range; 7Var Param_Rec : Corv_Prm_Block);  "Function Corv_Boot (User : Corv_User_Range; 6Sector_Num : Integer; 2 Is_Read : Boolean; 2Var Buf_Ptr : Corv_Window) : Integer;  "Procedure Corv_Sem_Init; " "Function Corv_Sem_Lock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Function Corv_Sem_Unlock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Procedure Corv_Sem_Dump (Var Table : Corv_Sem_Table); "  Implementation =CORVUSEM*Corvus.Config›[„ƒ „„5ÿÿ”„ƒ1„„]ÿÿ”’ˆ‚ ”á¦á¦„ƒ ‚ ””"°Õ1€?¤ƒY¤"‡ƒY²Ôˆà"×ç˜Ä"¢¤Šç€@¤á¤¤ €?²ŸÔ„ƒ „ ÿÿ”±¤¤$åÕÚ„ × ¤ƒY#³ŸÕ„‡ƒYж¤$åÔt„ ” €?¤ƒZ¤"‡ƒZ²Ô_"‡ƒYÐÚÔNˆà"פƒ[‡ƒ[‡ƒY|ÇćƒYçɤ‡ƒ[燃YçÉćƒYçɤ‡ƒ[ç€(” ‡ƒ[ç'ćƒ[z¤"¢¤ŠšŠG#°Ô'‡ƒY”#£¤Š3„ƒ1‡ƒY”„ƒ1%!#£×(€P”„ƒ1”#£¤#±Ô„€(” ¢¤$Õûþ„ƒ ”„ƒ1”–ƒ[¼ˆ” –þ„)Å(Ä'Ä'x(x²¡Ô(„ˆ(x×¹ˆ(x×§° Ô'ÄŠ((x¢ÄŠÏ– .ˆ&É×yŒ¢Ä,¤-¤-Ô¤ŠI(Ô„É„É+*¤Š"*}Ô +„É„É „É„É+*¤*}Ô +„É„É Ô ¤„”–¡(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Í(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Ü Ô’Š–'[?Oþ!Ûïi f>S=li€ "  Type Omni_Window = Packed Array [0..0] Of Char; %Omni_St_Rec = Record 5Chars_Queued : Integer; 5Queue_Size : Integer; 5Network_ID : Integer; 5Fill_Array : Array [0..4] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 3End {of Omni_St_Rec}; " "Procedure Omni_Init; " "Function Omni_Read (Socket_Num : Integer; 6Node_Num : Integer; 2Var Buffer : Omni_Window; 6Index : Integer; 6Bytes_Left : Integer; 6Control : Integer) : Integer;  "Function Omni_Write (Socket_Num : Integer; 7Node_Num : Integer; 3Var Buffer : Omni_Window; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " "Function Omni_Clear (Socket_Num : Integer) : Integer;  "Function Omni_Power (Socket_Num : Integer) : Integer; " "Function Omni_Status (Socket_Num : Integer; 4Var Stat_Rec : Omni_St_Rec; 8Direct : Boolean) : Integer; " "Procedure Omni_Term; " "  Implementation ï OMNIDRIVª$ÞˆâÄç˜Äˆ€¸”‰¤ˆ߃ —¤¤ "²Ôaˆ פ#x˜±ÔL#xÉ€þ²ÔB#xÉ€þ°Ô#çÄ#x€ÿÊŠ&#Ô#ç#xçÉŒ#xçɢĊ#ç#}Ä#˜Ä#çÞ ¢¤ŠšÔ‰”–,‰¤!¤ˆ'פ#%Ä#x€ÿÊ#ç$Ä#çÄ#çÄ#çâÄç˜Ä„&Ä"ÉÔú!ç„ÉÄ„„ÉÊ„Ê"ÉÔú!ç„ÉÄ"ÉÔú!ç„ÉÄ#çß–ù ‰Ô’ „‡Ê„‡Ä ¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ„/Ä+Ô £¤„„ÉÊ„„ÉÊ„+Ê„„ÉÊ„„Éʇ°Ô„,ÊŠ„‡Œ€€¢Ê.¤„„ÉÊ„„ÉÊ„-Ê„,ʇ„!.’ –¡ „ ‡Å‰Ô’ „Ê„-Ê)¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ/£¤ ¤!*²ÔD.¤„„ÉÊ„„ÉÊ„(!§Ê‡„)’ „ɰÔ(!)ÉÈ.¢¤!¢¤Š·)Ê–ºƒ¦€ „„’ –€ƒCþ¦ƒ çxçÇĉʃ ||Ú¦‰Ôƒ çxçÇÄŠHˆâÄç˜Ä¤¤ "²Ôˆ פ#˜Ä#çâÄç˜Ä ¢¤Šß„€(€Ò„”Šœ„’ ¦–J–¢†‰‡€‡²Ÿ Ô ¤€ˆŠ@ˆ‡€‡×¤€„¤€ˆˆ߇€‡‡€„x˜±¡Ô‡€„x€ýʈÞ„‡€‡„€ƒ’ ˆÞ–€‡OmniNETINxNETOUTxq†‡€ˆ¤€„‰‡€‰²Ÿ Ô ¤€Š‹˜¤€Šˆ‡€‰×¤€…‡€„‡€…~怄燀…}Ĉß„„€ƒ’ ˆÞ‡€„ç„É怄ç‚Ó”‡€„ç 怄燀‰°Ä‡€„æÔ‡€„ç ‚Ö”Š ‡€„ç ‚Ú”‡€„ç ‡€„ç §€0‡€‰¢È–€‰x–„*Ä)¤"„É¢¤‰,²Ÿ Ô ¤Šv)Ô¤Šn,Ô¤Šf ¤'¤ˆß„ÉÔ ,(+ÿÿ’ Š%„ÉÔ¤Š€@¤#$y,$x(„É+„É’ $yÉ€€³Ÿ$yÉ€À° Ô¤Š$yɤˆÞ– ´„)Ä(¤"„É¢¤‰+²Ÿ Ô ¤ Š{(Ô¤ Šs+Ôm ¤#y¤ˆ+פ&¤%ç߈ß„ÉÔ +'*’ Š€ð#y+#x'„É*„É’ ˆÞ$É€ÿ°Ô%çß$É€€³ŸÔ¤ Š$ɤ %çÞŠ¤ – Â Ô’Š–ÿ˜Y S¤ß;§>Œ`Ü€   "Const Corv_Max_User = 63; (Corv_Max_Drive = 15; (Corv_Max_Sem = 31; {Highest semaphore number} ( " "Type Corv_Byte = 0..255; (Corv_Drive_Range = 0..Corv_Max_Drive; (Corv_User_Range = 0..Corv_Max_User; (Corv_Window = Packed Array [0..0] Of Char; (Corv_Sem_Result = (Corv_Sem_Set, Corv_Sem_Clear, Corv_Sem_Full); (Corv_Sem_Name = Packed Array [0..7] Of Char; & Corv_Sem_Table = Array [0..Corv_Max_Sem] Of Corv_Sem_Name; (Corv_Prm_Block = Packed Record ;Ascii_Text : Packed Array [0..31] Of Char; ;{Firmware : Corv_Byte -- last byte of Ascii_Text} ;ROM_Version : Corv_Byte; ;Sectors_Track : Corv_Byte; ;Tracks_Cylinder : Corv_Byte; ;Cyl_Drv_LSB : Corv_Byte; ;Cyl_Drv_MSB : Corv_Byte; ;Phys_Cap_LSB : Corv_Byte; ;Phys_Cap_IB : Corv_Byte; ;Phys_Cap_MSB : Corv_Byte; ;Spares  : Packed Array [0..15] Of Corv_Byte; ;Interleave : Corv_Byte; ;Constellation : Packed Array [0..11] Of Corv_Byte; ;Pipe_Params : Packed Array [0..5] Of Corv_Byte; ;VDO_Table : Packed Array [0..13] Of Corv_Byte; ;LSI_11_VDO : Packed Array [0..7] Of Corv_Byte; ;LSI_11_Spares : Packed Array [0..7] Of Corv_Byte; ;Phys_Drive : Corv_Byte; ;Log_Cap_LSB : Corv_Byte; ;Log_Cap_IB : Corv_Byte; ;Log_Cap_MSB : Corv_Byte; 9End {of Corv_Prm_Block}; $ " 2 ÿÿ-SYSDRIVESYSDRIVE€¯CLOCKDRICLOCKDRI€ ECSP ‚SYSDRIVESERDRIVEž  SERDRIVE€CSP ƒFLOPPYDR‚SYSDRIVEFLOPPYDR!FLOPPYDR€^PRIAMDRI="PRIAMDRI€&ÃSTANDRIV)STANDRIV€,ßA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved   Const &I_No_Error = 0; {System I/O Errors} &I_CRC_Error = 1; &I_Undef_Err = 4; &I_Off_Line = 9; &I_Wrt_Prot = 16; &I_Bad_Block = 17; &I_Bad_Address = 18; & &Sys_Vec = -2; {current ^sib vector} &Cur_Task = -1;  {current ^tib register} &Q_Reg = -3; {current ^ready queue} & ){WD 1931 Bit definitions} &Ser_Addr = -1008; {FC10 hex} &Ser_Rcv_Int = 14; {000E hex} &Ser_Xmt_Int = 18; {0012 hex}  9{reg 1 bits} &WD_DTR = 0; { bit enables DSC interrupts } &WD_X_Enab = 1; { bit for xmit enable } &WD_R_Enab = 2; { bit for rcvr enable } &WD_Two_Stop_Bits = 5; { bit for # of stop bits } &WD_1_Stop = 5; { bit for # of stop bits } &WD_Normal = 7; { bit loopback/normal }  9{reg 2 bits} &WD_Rate_1 = 0; { bit which selects X32 clock }  9{stat bits} &WD_Xmit_Busy = 0; { bit indicates transmitter is busy} &WD_Rcvr_Empty = 1; { bit indicates r: „)Å„„„’ !Ô¤ Š „ˆ ×¹Ô¤ Šˆ ׄŤ – ‰ „)Å„„„’ !ˆ ×§° Ô¤ Š'ˆ ¢×ˆ × £Œ”ˆ×Ȥ – ˜#ˆÅ€€–õ#$ ×x³ŸÔF$ˆ€P”ˆˆ#”°Ô”" °Ô ¤Š”"ƒMÚÔ”"¤Š€€¤Š¤–g#$ ×x³ŸÔZ$ˆ€P”ˆˆ#”°Ô$×x¦$×x¦#¦”" °Ô ¤Š”"ƒ|ÚÔ”"¤Š€€¤Š¤–. ¤ ˆà'פ!{˜±Õ§ˆ!{”ŸÔ<ˆ§±Ôˆ¸”ˆ!{”ˆ¸ˆ””"±Ô ˆ‚µ”ˆ§±ÔT%Ôˆ¸$&”°¤Šˆ¸$&”°¤ Ô¤ Š%”"°Ô¤ Š”"ƒ¶ÚÔ”"¤ Š€€¤ –—ˆà)פ("y³Ÿ"z˜±¡ÔK&¤'!¤"z(×(×x‰±"z(×(×x‰± ‰ ± Ô "z(×( ’ ¤ ˆ&'!Œ%&”Š ¤ – :ˆà*פ)#y³Ÿ#z˜±¡Õƒ)#xÚÔ¤ Šu'¤(!¤!°Ô¤Š/#z)×(×x‰±#z)×(×x‰± ‰ ± Ô #z)×( ’ ¤&ˆ'(!Œ'”"°Ô)#xÚÔ¤ Š #z)×( ’ ¤ Š"¤ Š ¤ – PDQ-3 Emulation x#¤ˆà&פ%!y³Ÿ!z˜±¡Ô!z%×(×xÔ !z%×( ×x¤$¤!‚‚žÅ!È!çÊ!çÊ!çÊ!ç €@Ê!ç €@Ê!ç Ê!ç Ê!çÊ!ç€ÿ” !çÄ!ç5%Ê!ç5!çÉÊ!ç6!çÉÊ!ç6!çÉÊ–N Ô!ˆˆ‚¼ÿÿ”ˆ¸ˆ‚äÿÿ”’Šˆ”ˆ¸”–PàG×¹¯N€  " "Type DZ_Window = Packed Array [0..0] Of Char; 'DZ_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of JVbnSERREMDZV-11˜‰ÕÙ$¤¤%Ô ˆ%×xæÄ ç€ ÄŠ Ä çÄ ç%°Ä ç Ä%Ö‚EŠx ç ‚‚-”Šl ç ‚‚0”Š` ç ‚‚2”ŠT ç ‚‚5”ŠH ç ‚‚7”Š< ç ‚‚:”Š0 ç ‚‚<”Š$ ç ‚‚?”Š ç ‚‚A”Š ç ‚‚C”ЉÔ ‚‚Q ç ”Š ‚‚S ç ” ç‚‚U”Š ¤–ã‰Ô=ˆ#×x¤¤ ß çÄ ç Ä ç Ä çÄ çß çÄ çÄ çÄ çÞ ÞŠ ¤–„¸ÿÄ#x¤ƒ||Ú妃çxçÇĈðĉç‰zÇă||Ú妉Õ?‰¤$Ê$ÉåÔùˆâÄç˜ÄˆÇʈʈ ʤ¤!%²Õ£ˆ!Œ×€.” ˆ!Œ¢×ˆ!Œ×xĈ!Œ×x¤ˆ!Ê$çˆÅ&âÄç˜Ä&çâÄç˜Ä&ç âÄç˜Ä&ç Ä&ç!â¼ÇÄ&ç!Ä&çˆÉÄ&çâÄç˜Ä&çâÄç˜Ä&çâÄç˜Ä!Œ’¤!¢¤‹Wÿˆ×ˆ×xĈ ׈×xÄ$çÿÇÄ$Ê$Ê$Ê„€ €Ü„”Šœ„’ „€ €Ò„”Šœ„’ Š ƒçxçÇÄ–‰çÇÄ–ž Ô’Š–  ÂZ+ÎÑ©ôÊ€ 3  " "Const Ser_Q_Size = 32; { bytes in type-ahead Queue } (Ser_Tab_Size = 25; " "Type Ser_Window = Packed Array [0..0] Of Char; 'Ser_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of *°Ô¤ Š2-ˆ6„É×x¢£¤Š%z*’ £-³ŸÔ¤Š %y¤„%xÊŠ-Ô7*²Ÿ*³Ÿ¡Ô*¤Š¤(,„É+!-"’ ¤+!¢¤ *!£¤ -¢¤ °Ô(,„É+*-"’ ¤Š ¤ ¤–û”„‘„•Å„„ Ĉ6‡‘פމ¤‡¤‡ç¤’‡’ ÉÕÀ€…‡‘!„’ °Õ¡‡’ Ê‡Ž‡çÉć’ ʇŽç‡ÉÄ€S!‡‘‡Žx£’ °Ô`*¤“¤ ‡“²ÔR„ × ¤”ˆ‰×¤•‡”çÉÔ.‡•‡‘ć•燔xć•燔çÉĉ±Ô‰¢¦ ¢¤ЧР‡ŽćŽçÄ–•/¦‰¤¤ !³Ô ‰±Ô  £¤Šê‰£¦–T ÿ¦ˆâÄç˜Ä€"¤ ɦ’–{ ¤ ¤ +²Ô€ „„’ ¤ ¢¤Šå– ‘#‰²Ô¤Š ¤–Priamÿ$¤ˆ%פ¤ Ä çÄ%‰²Ô çˆ6!x×xÄ ç!z¢ zÄ ç!xÄŠ çÄ çÄ çÄ ç‚‚J” ç Ä ç Ä––2$¤ˆß)('&%„€R’ ¤ „ɰԒˆÞ– R$¤ˆß)('&%„€S’ ¤ ˆÞ– c Ô’Š’–‚Ü2 ,N‚@…›«€ # $Type Stan_Window = Packed Array [0..0] Of Char; )Stan_St_Rec = Record ;Chars_Queued : Integer; ;Queue_Size : Integer; ;Fill_Array : Array [0..5] Of Integer; ;Device_Name : String[7]; ;Case Is_Blocked : Boolean Of ]FLOPPYDRL„$Å„€Ðʉ!¤!ç¤"„Å!çÇÄ!ç ÇÄ€"xܶŸÔà–v#ÚÔ ¤Š#ÚÔ¤Š#ÚÔ¤Š¤–¼'#Ê'’ ‰!¤ ç¤!xÚåÔ%'&Ê ç$xÄ ç%Ä!'Å€!xܶŸÔó$ yÄ–ð„'ńʄ %¢&’ ‰!|Ç’ ¤ ±Ô&Ä ¤ –ø €"¤¤¤ &²Ôp Ô ˆ ×ÄŠˆ ×Ĉ £×¤'ç Ä' ¢Ä¤¤!'²Ô5ˆ!× ×¤ ! °Ô(çÄŠ!Ô(çÄŠ(çÄ((yÄ!¢¤ŠÆ ¢¤Š‹¤¤¤#&²Ôdˆ#פ'ç¤ 'çÄ'çÄ'ç%ÉÄ'çÄ'çÄ'áÄ'ç%ÉÄ(Ê( Ê(Ê#%ɰÔ(ÊŠ ("Ê"Œ¤#¢¤Š—ˆ!0üĈâÄç˜Ä– PDQ Fpy[ˆ%פ$¤¤!Ä!çˆ çÉ× ×xÄ!çˆ ×x y¢ŒÄ!ç€MÄ!ç‚€ý”!ç Ä!ç Ä!ç%Ä–ˆß#²ŸÔ ¤Šˆ#פ ç ˆ y×x’ ¤ˆÞ–––œ–æ(¤„)„É×Ä'¢¤„ɤ¤ $²Ô"#¤%ɤ%%ÉÊ%!Ê#¢¤ ¢¤ŠÙ– #ÚÔ ¤Š(#ÚÔ¤Š€8#ܶŸ‰!æ Úå Ô¤Š¤– ˆ‰×¤ˆ&×x¤!&y¢Œ¤&{‰塤&~Ô¤Š¤*‰å¡Ô)Ô‰"£Œ"¢¦Š ‰"£"¢¦‰"³ŸÔ ¦‰¤Š‰"£$"¢¦‰"£$¤%Ô Œ$ Œ$¢‰£Œ¢$¤ !¢¦ !¦%Ôˆ)×&×x¦Š#‰$Œ‰!Œ¢¤#¢‰£ˆ)×&×xŒ¦– # ³ŸÔ€0#¢¤Š€A#¢ £¤–xx]$¤ˆ‚‚ˆ”„ÉȈ‚‚ˆ”„ÉÈ–KxxFlop_xx [xx] xx Fc-xx Fs-xx T-xx S-xx Dc-xx Ds-xx C-xxxx A-xxxxxx Vs-xxxx[=„+‡AÅ„,‡@Ň0ÚåÕ–¦„‚‚0€P”„ ȄȄ*„+Å„*ɇ?‡>„*ɇ0‡-‡.„*‡4ÇÊ„*É„*‡5ÇÊ„*ɇ7‡6‡:‡9‡8‰¤*„*É„*É„„§”–AI@Ù-@¶óU‰!¤#ç¤#ç&Ä+’ „*Ä(¤!„É¢¤#ç„ÉÄ„„ÉÊ„Ê#ç „ÉÄ#ç „ÉÄ)á¤#ç „ÉÄ#ç „ÉÄ'€¶°Ô #ç€AÇÄŠ #ç€QÇÄ+'+ÉŒ¢Ê$+Å#z¤€$xܶŸ€Ž#æ Ü€€¶Ÿ Ôá#z ±$xÚå Ô󃂯ƒ‚±ÃÌΟÔ'€¶°Ô $xÇ’¤ Š$x€@ÝÇ’¤ – å&xá°Ô '&$’ ¤‰!¤!ç¤'%¢‰&‰’ "xÚÔO'&$’ ¤'$¢‰&‰’ "xÚÔ1‰€M²ŸÔ '&$’ ¤''ÉåÊ'É’'$¢‰&‰’ "xÇ’ ¤ –>‡²ŸÔ ¤‹E‡Ô¤‹;ˆ‡×¤.礈.yפ‡¤ ‡¤¤ˆ߇Ô‡¤Š"‡ˆ/É×.×yŒ¤.~åÔ '.y¢Œ¢¤'¤/ɤ.ç.‡y‡x¤ (°Ô`&¢¤$+²ŸÔ+¤ Š$¤ ‡*°¡Ôˆ/É×.×x¤ *±Ô.ç‡*!‡ ¤ (±.|¡Ô .ç‰!&(&°(° ( ° Ô¢Š.áÄ.|Ô .ç‰!(%*ˆ/É×.×x¢¤!*¢¤‡+°¡ÔŠ+*£¤ +°(± Õ>ÿˆÞ(¤.}Ô ‡‡‡’ -Ô ¤ „ ”–W€–('&%$#²Ÿ’¤ – €ˆ(×}Ô&%$’ €¶('&%$#²Ÿ’¤ – Ž Ô’Š–-´W’uuP`=( MJ0.!zB€ "  {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Type Prm_Window = Packed Array [0..0] Of Char; %Prm_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4End {of Prm_Stat_Rec}; " "Procedure Prm_Init; " "Function Prm_Read (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : Prm_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; "  {$B System_Driver} " "Function Prm_Write (Unit_No : Integer; 6Start_Block : Integer; 2Var Buffer : Prm_Window; 6Index : Integer; 6Bytes_Left : Integer; 6Control : Integer) : Integer; " "Function Prm_Clear (Unit_No : Integer) : Integer;  "Function Prm_Power (Unit_Num : Integer) : Integer; " "Function Prm_Status (Unit_No : Integer; 3Var Stat_Rec : Prm_Stat_Rec; 7Direct : Boolean) : Integer; " "Procedure Prm_Term; "  {$E System_Driver} " "  Implementation ÂPRIAMDRI4$¤„ É°Ô „ ɤŠ „ É¢¤–T‰¤ ¤!ç¤"Ê"ÉÔŠø–'°„„ʼn¤#ç¤#¤„)Ä(¤!„É¢£¤$„ÉÊ#ç„ÉÊ#çÊ#ç'á£Ä$ Ê$Ê$Ê$ +€R°Ê$ Ê&ç*Ê&ç+Ê$ Ê%çÉÔŠö%çÉÔ’ $ Ê%&çÅ$ Ê%&Å$É$É Ôõ%çÉÔ+€S°Ô%z¤Š%çÄŠå$ÉÔú$ÉÔ€€¤ Šo%礀€-É¢¤ -ÉÖ+œŠX¤ ŠS-ɰԤ ŠF-ɰԤ Š ¤ Š4-ɰÔ¤ Š%-ɰԤ Š-ɰԤ Š -É°Ô ¤ Š’ ,¤– ,‡’ ¤‡Ô¤Ša!°Ô¤ŠW‰¤ˆ6‡×¤!¤ ‡‡/x¢¤#/y¤%¤„6 ,¢£¤ Š9)¤„ É°Ô „ ɤŠ „ É¢¤%z"£,³ŸÔ¤Š %y¤„%xÊŠ °Ôˆ„É×+*),!.’ ¤Š ¤ ¤–…$¤ˆß)('&%„’¤ ˆÞ– ±$¤ˆß)('&%„’¤ „ɰԒˆÞ– À Ô’Š–â^…c •Úµ¯¤E5x[€  {$D System_Driver+ } !  Type Dtc_Window = Packed Array [0..0] of Char; %Dtc_Stat_Rec = Record 6Filler : Integer; {not used} 6Bytes_Sector : Integer; 6Sectors_Track : Integer; 6Tracks_Disk : Integer; 6Fill_Array : Array [0..3] Of Integer; 6Device_Name : String[7]; 6Case Is_Blocked : Boolean Of 8False : (Vol_Name : String[7]; AIn_Unit : Boolean); 8True : (Hard_Disk : Boolean; APhysical_Unit : Integer); 4End {of Stat_Rec}; " "Procedure Dtc_Init; " "Function Dtc_Read (Unit_No : Integer; {volume number minus 9} 5Start_Block : Integer; {starting transfer block} 1Var Buffer : Dtc_Window; {base address of data transfer} 5Index : Integer; 5Byte_Count : Integer; 5Control : Integer) : Integer; "  {$B System_Driver} "Function Dtc_Write (Unit_No : Integer; =False : (Vol_Name : String[7]; FIn_Unit : Boolean); =True : (Hard_Disk : Boolean); 9End {of Stan_St_Rec}; & $Procedure Stan_Init; $ $Function Stan_Read (Stan_Index : Integer; 8Start_Block : Integer; 4Var Buffer : Stan_Window; 8Index  : Integer; 8Bytes_Left : Integer; 8Control : Integer) : Integer; " $Function Stan_Write (Stan_Index : Integer; 9Start_Block : Integer; 5Var Buffer : Stan_Window; 9Index : Integer; 9Bytes_Left : Integer; 9Control : Integer) : Integer; " $Function Stan_Clear (Stan_Index : Integer) : Integer; " $Function Stan_Power (Stan_Index : Integer) : Integer; " $Function Stan_Status (Stan_Index : Integer; 6Var Stat_Rec : Stan_St_Rec; :Direct : Boolean) : Integer; $ $Procedure Stan_Term; $ " "Implementation ÞSTANDRIV–j„„Å%£¤¤ !²Ô;)³ŸÔ'‰' ¤ ¤ „”,+-ȉ” Ô' È”"¤ Š' Ȥ ¢¤ŠÀ*¤– Î*³ŸÔQˆ×xæˆ×x昱 Ô"&£¤¤!"²Ô‰('!¢§”!¢¤ŠèŠˆ×x('&””"¤ Ф – פ–Þ–STANINSTANOUTBUCKETSys I/O—¤%¤!Ä!çĉE±Ô7ˆ×x¤ z ‰9±¡Ô æ¤Šï ³Ô‰€· ×|å&°¡Ô %”!ç Ä&Ö|œŠ!!ç ‚p”Š!ç ‚t”Š !ç ‚x”Š!ç‚€”!ç&°Ä–ž–© ÔŠ–Άni9 Ñ€ÿÿbRL02DRIV:.RL02DRIV€2rDTCDRIVE65DTCDRIVE€8sTM11DRIV;TM11DRIV€>rRX02DRIVARX02DRIV€GSYSDRIVEOMNIDRIVGLOMNIDRIV€OðSYSDRIVECORVUSEMßR CORVUSEM€W>DZ11DRIV[ DZ11DRIV€^Ü   Type RL_Window = Packed Array [0..0] Of Char; %RL_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of RL_Stat_Rec}; " "Procedure RL_Init; " "Function RL_Read (Unit_No : Integer; 4Start_Block : Integer; 0Var Buffer : RL_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer; " "Function RL_Write (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : RL_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; " "Function RL_Clear (Unit_No : Integer) : Integer;  "Function RL_Power (Unit_Num : Integer) : Integer; " "Function RL_Status (Unit_No : Integer; 2Var Stat_Rec : RL_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure RL_Term; " "  Implementation qRL02DRIV0„%Å„$ʉ„ʼnÉÔø–Á„$ʼn¤!ÉåÔ¤Šu! ÉÔ¤Šj! ÉÔ¤Š_!çÄ„’ 8!{ܶŸÔ ¤Š6À!{ܶŸÔ¤Š$$!{Ü$¶Ô¤Š !{ÚÔ¤Š€€¤!ç Ä„’ –‰¤&’ !ç ɤ %²ŸÔ !çÊŠ!çÊ!ç  %£àÊ!ç$Ê&’ –%%ÿ²Ô&%$’ &’ ¤Š¤–#„ ‡Å‡Ô¤‹ä‰ÕÛ‰¤ ‡¤ „‡Ä%„ É¢¤ /‡¢¤"¤"¤‡Œ¤€(#£Œ¤¤„ $& ¤!°Ôl ¢¤'‡²ŸÔ‡¤ Š'¤ (±ÔE+ç(áÄ„ „ ÉÊ+ç„ ÉÊ+çÊ+ç $Ê+ç#Ê+ç&Ê„ . „ ¤ °!° ! ° Ô”‡(¢¤‡(¢¤‡(£¤‡°!± Õ,ÿŠ ¤!¤–ÿÿÿÿ¶ˆ„„Ĉ‡‰×!£’ °Ôi"ƒÚÔ`"¤†¤ ‡†²ÔR„ × ¤‡ˆ ‰ פˆ‡‡çÉÔ.‡ˆ‡‰Ä‡ˆç‡‡xćˆç‡‡çÉĉ ±Ô‰ ¢¦ ¢¤Ч–‰ë¦ ‰¤¤ !³Ô ‰±Ô  £¤Šê‰ £¦ –Dˆ€üĉɦ‰Ô%¤¤¤ #²Ô„ ʈ ׄŠ¢¤ŠäˆâÄç˜Ä€"¤!ɦ’–Y#‰ ²Ô¤Š ¤–`–RL-02¯$¤ˆ %פ¤ Ä çÄ ç€(Ä ç!z¢ zÄ ç‚±” ç Ä ç Ä ç!xÄ–¶–e„(Å-‰ ²„ÉÚ Õƒˆ -פ¤¤„ÉÖÜŠN)°Ô¤ ŠB7    {$D System_Driver+ System-worthy driver, as opposed to bootstrap version}   Const RX_Max = 1; { zero-based } "  Type RX_Window = Packed Array [0..0] Of Char; %RX_Stat_Rec = Record 8Filler : Integer; {not used} 8Bytes_Sector : Integer; 8Sectors_Track : Integer; 8Tracks_Disk : Integer; 8Fill_Array : Array [0..3] Of Integer; 8Device_Name : String[7]; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit : Integer); 6End {of RX_Stat_Rec}; % %RX_Unit_Num = 0..RX_Max; %RX_Side_Choice = 0..1; %RX_Dens_Choice = False..True; { single..double } % %RX_Cmd = (RX_Fill_Buffer, /RX_Empty_Buffer, /RX_Write_Sector, /RX_Read_Sector, /RX_Format, /RX_Read_Status, /RX_Write_Delete, /RX_Read_Error); % %RX_Cmd_Rec = Packed Record 4Go : Boolean; { initiates command } 4Func : RX_Cmd; { command codes } 4Unit_Sel : 0..1; { selects drive } 4Done : Boolean; { function complete } 4Int_En : Boolean; { interrupt enable } 4Transfer : Boolean; { data available or need data } 4D_Density : RX_Dens_Choice;{selects single/double density } 4Cur_Side : RX_Side_Choice;{ selects side 0/side 1 } 4Unused : 0..1; { unused; must be zero } 4Is_RX02 : Boolean; { indicates R6Start_Block: Integer; 2Var Buffer : Dtc_Window; 6Index : Integer; 6Byte_Count : Integer; 6Control : Integer) : Integer; 6 "Function Dtc_Clear (Unit_No : Integer) : Integer; " "Function Dtc_Power (Unit_No : Integer) : Integer; " "Function Dtc_Status (Unit_No : Integer; 3Var Stat_Rec : Dtc_Stat_Rec; 7Direct : Boolean) : Integer; 7 "Procedure Dtc_Term; 0  {$E System_Driver}   Implementation rDTCDRIVEŒ„ĉ¤'¤¤%+Ê%Ê% *Ê%çÊ„)Ä(¤ „É¢¤„„ÉÊ$ç„ÉÊ$çÊ"'Å$çÊ$çÊ$ç„Å$çÉÔø– ó‰çÊ„2Ê„2ʄʄ€™Ê„€™Ê„ʄʄ Ê „„’ –ž ‰Õ‘‰¤„+Ê„*Ê)¤„ „ÉÊ„„ÉÊ„„ ÉÊ/-.,„’ &çÉÔI€€¤&ÉÔ=-„„’ „ÉÖ{œŠ& ¤Š!„É°Ô¤Š¤Š„É°Ô¤Š’ ФР¤–Ù…‰ „ˆÉ‡€‡‡€†’ ¤€ˆ„‰‰‰Œ¢‰”–€‡<Hì „,Å.Ô¤‹‡‰²„ÉÚ Ôkˆ‡×¤ ¤¤„ÉÖ€îŠP-¤„ É°Ô „ ɤŠ „ É¢¤(z$£‡³ŸÔ¤Š (y¤„(xÊŠ-°Ô¤Š ‡¢£¤ŠŠ ¤+ °Ô-¢£¤Š-¤‡Œ¤ ‡¢¤ˆß%°#²Ÿ¡Ô+/„É.#"!’ ¤%°+°¡-±¡Ô"#€ ¢!"#¢€ ¢ ¤ˆÞ%¤–ÿÿÿÿuˆ#ʉˆ’ °Ôc‰ƒwÚÔX‰¤¦‰ ²ÔHˆ‰× ¤ˆ‰×¤!çÉÔ""#Ä"ç!xÄ"ç!çÉĉ±Ô‰¢¦‰¢¦б–·ˆ„Ê„„Ħ‰¤ˆ¤ ‡ˆ²Ô ‰±Ô  ¢¤Šè‰£¦–ˆøˆÿ¦ˆâÄç˜Ä€"¤ ɦ‰çTUĉ{TU°¦‰Ô’ ’–þ–#‰²Ô¤Š ¤–Scribes$¤ˆ%פ¤ Ä çÄ ç€ Ä ç!z¢ zÄ ç‚‚ ” ç Ä ç Ä%‰²Ô ç!xÄŠ çÄ–z–$¤)('&%„ ’ ¤ „ɰԒ– µ$¤)('&%„’ ¤ – Ä Ô’Š–z½ÑôH þ<?QÞ]€   Type TM_Window = Packed Array [0..0] Of Char; %TM_Stat_Rec = Record 5Filler : Integer; {not used} 5Bytes_Sector : Integer; 5Sectors_Track : Integer; 5Tracks_Disk : Integer; 5Fill_Array : Array [0..3] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 7True : (Hard_Disk : Boolean; @Physical_Unit : Integer); 4End {of TM_Stat_Rec}; " "Procedure TM_Init; " "Function TM_Read (Unit_No : Integer; 4Start_Block : Integer; 0Var Buffer : TM_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer; " "Function TM_Write (Unit_No : Integer; 5Start_Block : Integer; 1Var Buffer : TM_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer; " "Function TM_Clear (Unit_No : Integer) : Integer;  "Function TM_Power (Unit_Num : Integer) : Integer; " "Function TM_Status (Unit_No : Integer; 2Var Stat_Rec : TM_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure TM_Term; " "  Implementation qTM11DRIV‹‰z°Ô #ÝǤ3#ܶŸÔ¤ŠQD#ܶŸÔ¤Š@#ܶŸ€A#Ü€A¶Ÿ Ô ¤Š%$€LÚ#Ú¡Ô¤Š¢#ܶŸÔ¤Š¤–'„'ʼn¤„Ê„*ʄʄ)Ê„ Ê„„ØÉåÊ„ „ØÉåÊ#ç(áÄ#ç„Å#x€ܶŸÔó&(#z¢Ä#çÉÔ(*#xÇ’ ¤ #xÚÔ)„„’ ¤&ÿáÄŠ¤ – [ˆâÄç˜Ä¨ú¦‰¤!ç¤" Ê"ɦ!ç Ê–‰%²¡Ôˆß%„„’ ¤ˆ%×ĈÞŠ ¤–”–TM-11Õ$¤¤ Ä çÄ çÄ çÿÄ ç‚€Ë” ç Ä ç Ä ç%Ä–‰Ô¤¤"#²Ô"„„’ ¤"¢¤Šç–î„)Å*x¤„Ê„-Ê„„Éʄʄ,Ê„ „ØÉÊ„ Ê„„ØÉåÊ„ „ØÉåʉ¤%ç+áÄ%çÊ%ç„ÉÊ%ç„Å€%xܶŸÔó%çÉÔ-%xÇ’ ¤Š¤„%çÉÊ„%çÉÊ*#Ä%xÚÔ,„„’ ¤(ÄŠ! â¼â¼ÛÚåÔ((x¢Ä!¤–u„&Å'(x£¤!°Ô¤ Šb!³ŸÔA!á'²Ÿ!᳟¡Ô‰„ˆ’ °Ô'¤(Ä(x±Ô‰!á„„’ ¤ ((x £Ä!²ŸÔ‰!„„’ ¤ ((x ¢Ä(x³ŸÔ(Ä– ‹ ‰‡²¡Õþ/Ô¤‹ó-¤ /¤„‡„É×Ä„ ØÉÔ ¤ .¤.¤Š0.¤„ É°Ô „ ɤ Š „ É¢¤ ¤.(Œ£¢¤„ ØÉåÔ‡ ¢¤ˆß¤¤'(²!°¡ÔV¤ˆ‡×‡„ ¤!°Ô#‡°'(°¡Ô$¤‡‡%„„ ˆ‡×’ ¤&¢¤&°!° Ôº'¢¤‡¢¤Š¡‡°!°¡„ ØÉ¡Ô‡„ „’ ¤ˆÞŠ ¤!¤–Ÿ('&%$#’ ¤ – ³('&%$#’ ¤ – Å Ô’Š’–y½H íÏɰRH–\€ 8 m; " "  Implementation ï OMNIDRIVª$ÞˆâÄç˜Äˆ€¸”‰¤ˆ߃ —¤¤ "²Ôaˆ פ#x˜±ÔL#xÉ€þ²ÔB#xÉ€þ°Ô#çÄ#x€ÿÊŠ&#Ô#ç#xçÉŒ#xçɢĊ#ç#}Ä#˜Ä#çÞ ¢¤ŠšÔ‰”–,‰¤!¤ˆ'פ#%Ä#x€ÿÊ#ç$Ä#çÄ#çÄ#çâÄç˜Ä„&Ä"ÉÔú!ç„ÉÄ„„ÉÊ„Ê"ÉÔú!ç„ÉÄ"ÉÔú!ç„ÉÄ#çß–ù ‰Ô’ „‡Ê„‡Ä ¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ„/Ä+Ô £¤„„ÉÊ„„ÉÊ„+Ê„„ÉÊ„„Éʇ°Ô„,ÊŠ„‡Œ€€¢Ê.¤„„ÉÊ„„ÉÊ„-Ê„,ʇ„!.’ –¡ „ ‡Å‰Ô’ „Ê„-Ê)¤„„ÉÊ„„Éʄʄ„ÉÊ„„ÉÊ/£¤ ¤!*²ÔD.¤„„ÉÊ„„ÉÊ„(!§Ê‡„)’ „ɰÔ(!)ÉÈ.¢¤!¢¤Š·)Ê–ºƒ¦€ „„’ –€ƒCþ¦ƒ çxçÇĉʃ ||Ú¦‰Ôƒ çxçÇÄŠHˆâÄç˜Ä¤¤ "²Ôˆ פ#˜Ä#çâÄç˜Ä ¢¤Šß„€(€Ò„”Šœ„’ ¦–J–¢†‰‡€‡²Ÿ Ô ¤€ˆŠ@ˆ‡€‡×¤€„¤€ˆˆ߇€‡‡€„x˜±¡Ô‡€„x€ýʈÞ„‡€‡„€ƒ’ ˆÞ–€‡OmniNETINxNETOUTxq†‡€ˆ¤€„‰‡€‰²Ÿ Ô ¤€Š‹˜¤€Šˆ‡€‰×¤€…‡€„‡€…~怄燀…}Ĉß„X02 type system } 4Ad_Ext : 0..3; { extended bus address } 4Init : Boolean; { initialize } 4Error : Boolean; { error } 2End; {of RX_Cmd_Rec} % %RX_Attrib = Record 3Track_Num : Integer; 3Cur_Sides : RX_Side_Choice; 3RX_Command : RX_Cmd_Rec; 3Dec_Format : Boolean; 3Noisy : Boolean; 3Flipped : Boolean; 3V_Sector : Integer; 3Sector_Num : Integer; 1End {of RX_Attrib}; 5  Var RX_Desc : Array [0..RX_Max] Of RX_Attrib;  "Procedure RX_Init; " "Function RX_Read (Unit_No : RX_Unit_Num; 4Start_Block : Integer; 0Var Buffer : RX_Window; 4Index : Integer; 4Bytes_Left : Integer; 4Control : Integer) : Integer;   {$B System_Driver}  "Function RX_Write (Unit_No : RX_Unit_Num; 5Start_Block : Integer; 1Var Buffer : RX_Window; 5Index : Integer; 5Bytes_Left : Integer; 5Control : Integer) : Integer;  "Function RX_Clear (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Power (Unit_No : RX_Unit_Num) : Integer;  "Function RX_Status (Unit_No : RX_Unit_Num; 2Var Stat_Rec : RX_Stat_Rec; 6Direct : Boolean) : Integer; " "Procedure RX_Term; "  {$E System_Driver} "  Implementation €RX02DRIVRX-02w‰%²¡ÔOˆ%פ$¤¤!Ä!çˆ çÉ×xŒÄ!çˆ y×xÄ!ç€MÄ!ç‚ ”!ç Ä!ç Ä!ç%ÄŠ ¤–Ç#²‰¡Ô=ˆ#פ 礈ß!ʉ çʼnÉÔø‰yÚÔ¤Š ¤ˆÞŠ ¤–ΖԖ²ˆ<ÿĉ ɦ‰ÕˆâÄç˜Ä€"¤ˆ×Ĉ×€4Ĥ¤ #²Ô&ˆ פ Ô$çÄŠ$çÄ$$yÄ ¢¤ŠÕ¤¤!#²ÔXˆ!פ$ç¤$çÄ$çÄ$çÄ$ç"ÉÄ%Ê%"É!¢Ê%Ê%"ÉÊ% Ê% Ê%Ê!¢¤Š£‰ʉÉÔø–>'¤#ç¤#{‰ 塤ˆ#y×x¤&‰ å¡Ô $ÉÔ#ç#~!£!¢ÄŠ #ç#~!£Œ!¢Ä##~!Ä#x€L²ŸÔ#€L¢Ä#~!¤"Ô Œ! Œ!¢#x£Œ¢!¤#ç ¢Ä$ Ê–z„(Ä"'¢¤&¤¤ #²Ô""¤$ɤ$$ÉÊ$!Ê"¢¤ ¢¤ŠÙ– –# ³ŸÔ€0#¢¤Š€A#¢ £¤–xxÓ$¤ˆ‚Lˆ”„ÉȈ‚Mˆ”„ÉÈ–ExxFlop_xx [xx] xx C-xxxx E-xxxx EC-xx CT-xx DT-xx DS-xx LT-xx Vs-xxxxÀ*¦„‚k€P”„ È„Ȉɉ‰„*ˆÅ„*É„*É„* ‰ ÇÊ„*É„*ɈɈˆɧˆÉˆÉ‰‰‰„„§”–*#)#²„ ‡Å‰¤‡¤„‰Å‡yÚ¤„„Ä„  „ÉÊ„„Éʄʄ ʇ„ ŇɇÉ Ôó‡ç ćÉÔù€€¤„ÉÖáŠ."Ô¤Š ¤Š!¤Š ¤Š¤Š¤Š €€¤Šÿÿ¤Š!¤!â¼ â¼ÛÚå-¡Ô –E„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕI¤¤&¢¤‡‡çŇɇÉ Ôó‡ç‡Ä„ ‡Å‡ç‡~¢Ä‡ç‡xć’ ‡ÉÔù‡ÉåÕ¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"Ä„„Å #¢¤‡¤‡#£¤‡ÉÔù‡ÉÔ $¤„„ŇÉÔ9‡„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÀþ¤‹°þ%¤‡¤–Õ„„Ҥ‰¤‡¤‡’ „‡çÅ„ʇçÊ„‡Ä ‡¢¤‡±ÕA¤¤&¢¤ˆ‡Éפ‡‡x²ŸÔ‡x¤Š#‡³ŸÔ‡x¤Š‰ ‡°¡Ô‡x¤Š‡¤„ „Éʇ„ŇɇÉ Ôó‡ç#Ä„„ÉÊ„ʇç"ćÉÔù‡ÉåÔW‡‡çŇɇÉ Ôó‡ç‡Ä„„Å #¢¤‡ç‡xÄ„ ‡Å‡¤‡#£¤‡ç‡~¢Ä‡’ ‡ÉÔù‡ÉÔB$¤„„Ň„ Ň&’ ¤%ÿÿ°Ô!‡ç‡çÉåÊ„‡çÉʇ’ Š‹ &°ÕÈþ¤‹¸þ%¤‡¤–u¤*¤%ç¤)Ô%ç.ÄŠ%çˆ%y×x.ˆ&É×yŒ¢Ä,¤-¤-Ô¤ŠI(Ô„É„É+*¤Š"*}Ô +„É„É „É„É+*¤*}Ô +„É„É Ô ¤„”–¡(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Í(²‰¡Ô'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – Ü Ô’Š–'[?Oþ!Ûïi f>S=li€ "  Type Omni_Window = Packed Array [0..0] Of Char; %Omni_St_Rec = Record 5Chars_Queued : Integer; 5Queue_Size : Integer; 5Network_ID : Integer; 5Fill_Array : Array [0..4] Of Integer; 5Device_Name : String[7]; 5Case Is_Blocked : Boolean Of 7False : (Vol_Name : String[7]; @In_Unit : Boolean); 3End {of Omni_St_Rec}; " "Procedure Omni_Init; " "Function Omni_Read (Socket_Num : Integer; 6Node_Num : Integer; 2Var Buffer : Omni_Window; 6Index : Integer; 6Bytes_Left : Integer; 6Control : Integer) : Integer;  "Function Omni_Write (Socket_Num : Integer; 7Node_Num : Integer; 3Var Buffer : Omni_Window; 7Index : Integer; 7Bytes_Left : Integer; 7Control : Integer) : Integer; " "Function Omni_Clear (Socket_Num : Integer) : Integer;  "Function Omni_Power (Socket_Num : Integer) : Integer; " "Function Omni_Status (Socket_Num : Integer; 4Var Stat_Rec : Omni_St_Rec; 8Direct : Boolean) : Integer; " "Procedure Omni_Ter9  " "Type DZ_Window = Packed Array [0..0] Of Char; 'DZ_Stat_Rec = Record :Chars_Queued : Integer; :Queue_Size : Integer; :Fill_Array : Array [0..5] Of Integer; :Device_Name : String[7]; :Case Is_Blocked : Boolean Of Œ`Ü€   "Const Corv_Max_User = 63; (Corv_Max_Drive = 15; (Corv_Max_Sem = 31; {Highest semaphore number} ( " "Type Corv_Byte = 0..255; (Corv_Drive_Range = 0..Corv_Max_Drive; (Corv_User_Range = 0..Corv_Max_User; (Corv_Window = Packed Array [0..0] Of Char; (Corv_Sem_Result = (Corv_Sem_Set, Corv_Sem_Clear, Corv_Sem_Full); (Corv_Sem_Name = Packed Array [0..7] Of Char; & Corv_Sem_Table = Array [0..Corv_Max_Sem] Of Corv_Sem_Name; (Corv_Prm_Block = Packed Record ;Ascii_Text : Packed Array [0..31] Of Char; ;{Firmware : Corv_Byte -- last byte of Ascii_Text} ;ROM_Version : Corv_Byte; ;Sectors_Track : Corv_Byte; ;Tracks_Cylinder : Corv_Byte; ;Cyl_Drv_LSB : Corv_Byte; ;Cyl_Drv_MSB : Corv_Byte; ;Phys_Cap_LSB : Corv_Byte; ;Phys_Cap_IB : Corv_Byte; ;Phys_Cap_MSB : Corv_Byte; ;Spares  : Packed Array [0..15] Of Corv_Byte; ;Interleave : Corv_Byte; ;Constellation : Packed Array [0..11] Of Corv_Byte; ;Pipe_Params : Packed Array [0..5] Of Corv_Byte; ;VDO_Table : Packed Array [0..13] Of Corv_Byte; ;LSI_11_VDO : Packed Array [0..7] Of Corv_Byte; ;LSI_11_Spares : Packed Array [0..7] Of Corv_Byte; ;Phys_Drive : Corv_Byte; ;Log_Cap_LSB : Corv_Byte; ;Log_Cap_IB : Corv_Byte; ;Log_Cap_MSB : Corv_Byte; 9End {of Corv_Prm_Block}; $ " "Procedure Corvus_Init; " "Function Corv_Ch_Read (User : Corv_User_Range; 9Log_Drive : Corv_Drive_Range; 9Chunk_Num : Integer; 9Chunk_Size : Integer; 5Var Buf_Ptr : Corv_Window) : Integer; " "Function Corv_Ch_Write (User : Corv_User_Range; :Log_Drive : Corv_Drive_Range; :Chunk_Num : Integer; :Chunk_Size : Integer; 6Var Buf_Ptr : Corv_Window) : Integer; " "Procedure Corv_Prm_Read (User : Corv_User_Range; ;Log_Drive : Corv_Drive_Range; 7Var Param_Rec : Corv_Prm_Block);  "Function Corv_Boot (User : Corv_User_Range; 6Sector_Num : Integer; 2 Is_Read : Boolean; 2Var Buf_Ptr : Corv_Window) : Integer;  "Procedure Corv_Sem_Init; " "Function Corv_Sem_Lock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Function Corv_Sem_Unlock (Sem : Corv_Sem_Name) : Corv_Sem_Result;  "Procedure Corv_Sem_Dump (Var Table : Corv_Sem_Table); "  Implementation =CORVUSEM*Corvus.Config›[„ƒ „„5ÿÿ”„ƒ1„„]ÿÿ”’ˆ‚ ”á¦á¦„ƒ ‚ ””"°Õ1€?¤ƒY¤"‡ƒY²Ôˆà"×ç˜Ä"¢¤Šç€@¤á¤¤ €?²ŸÔ„ƒ „ ÿÿ”±¤¤$åÕÚ„ × ¤ƒY#³ŸÕ„‡ƒYж¤$åÔt„ ” €?¤ƒZ¤"‡ƒZ²Ô_"‡ƒYÐÚÔNˆà"פƒ[‡ƒ[‡ƒY|ÇćƒYçɤ‡ƒ[燃YçÉćƒYçɤ‡ƒ[ç€(” ‡ƒ[ç'ćƒ[z¤"¢¤ŠšŠG#°Ô'‡ƒY”#£¤Š3„ƒ1‡ƒY”„ƒ1%!#£×(€P”„ƒ1”#£¤#±Ô„€(” ¢¤$Õûþ„ƒ ”„ƒ1”–ƒ[¼ˆ” –þ„)Å(Ä'Ä'x(x²¡Ô(„ˆ(x×¹ˆ(x×§° Ô'ÄŠ((x¢ÄŠÏ– : „)Å„„„’ !Ô¤ Š „ˆ ×¹Ô¤ Šˆ ׄŤ – ‰ „)Å„„„’ !ˆ ×§° Ô¤ Š'ˆ ¢×ˆ × £Œ”ˆ×Ȥ – ˜#ˆÅ€€–õ#$ ×x³ŸÔF$ˆ€P”ˆˆ#”°Ô”" °Ô ¤Š”"ƒMÚÔ”"¤Š€€¤Š¤–g#$ ×x³ŸÔZ$ˆ€P”ˆˆ#”°Ô$×x¦$×x¦#¦”" °Ô ¤Š”"ƒ|ÚÔ”"¤Š€€¤Š¤–. ¤ ˆà'פ!{˜±Õ§ˆ!{”ŸÔ<ˆ§±Ôˆ¸”ˆ!{”ˆ¸ˆ””"±Ô ˆ‚µ”ˆ§±ÔT%Ôˆ¸$&”°¤Šˆ¸$&”°¤ Ô¤ Š%”"°Ô¤ Š”"ƒ¶ÚÔ”"¤ Š€€¤ –—ˆà)פ("y³Ÿ"z˜±¡ÔK&¤'!¤"z(×(×x‰±"z(×(×x‰± ‰ ± Ô "z(×( ’ ¤ ˆ&'!Œ%&”Š ¤ – :ˆà*פ)#y³Ÿ#z˜±¡Õƒ)#xÚÔ¤ Šu'¤(!¤!°Ô¤Š/#z)×(×x‰±#z)×(×x‰± ‰ ± Ô #z)×( ’ ¤&ˆ'(!Œ'”"°Ô)#xÚÔ¤ Š #z)×( ’ ¤ Š"¤ Š ¤ – PDQ-3 Emulation x#¤ˆà&פ%!y³Ÿ!z˜±¡Ô!z%×(×xÔ !z%×( ×x¤$¤!‚‚žÅ!È!çÊ!çÊ!çÊ!ç €@Ê!ç €@Ê!ç Ê!ç Ê!çÊ!ç€ÿ” !çÄ!ç5%Ê!ç5!çÉÊ!ç6!çÉÊ!ç6!çÉÊ–N Ô!ˆˆ‚¼ÿÿ”ˆ¸ˆ‚äÿÿ”’Šˆ”ˆ¸”–PàG×¹¯N€ : @@@@@@ÛDZ11DRIV1$¤#Ô ç ÄŠ æ Ô ç Ä ç Þ– F )Þ„âÄç˜Ä„€Ø”„߉¤ˆß&ʈÞƒ—„&çň„ÉŒ×x¤'æÔ*„É€¡¤!ƒÚÔˆ„ÉŒ×x!°’ ‹wŠ„ɤ'çß'æ€ ³ŸÔ)'ç'æ!È'ç'梀 Ä'ç'æ¢Ä'æ°Ô¤Š-'æ°Ô€ £¤Š'棤'ç#§°Ô'ç#Ä'ç'æ£Ä'çÞ"Ô'çÞ„&çÅ„ÉåÕ=ÿˆß&ʈÞÕ ÿ”– +¤ ‰ÕË+Õˆ+×x¤&@Ô )#æÈ‹§#çß('¢¤#ç&åĉç)ɤ("³ŸÕ#çß#æ°Ô#çâÄç˜Ä#çÞ#çß#çߊá#ç#槤#ç#梀 Ä#ç#æ£Ä#çÞ#æÔ ƒ€¦ÚÔˆ+×x °’ ‹ÿ)( È(¢¤ !°Ô #æ&å¡Ô"¤ ‹xÿ#çÞŠ¤ Š ¤ –  ›&Þ„âÄç˜Ä„€Ü”‰¤„߈ß#ʈÞƒ—ˆ#ÉŒ×x¤${$|±Õç$æ Ôˆß#ç#z$æÝÇĈÞ$çÞ‹Ã$}Õ¢$z${§¤$æ Ô $ç Ä$ç € £Ä$æ ±Ô/$æ ²ŸÔ #ç€ Ä$ç $æ £Ä$æ ±Ô$ç${£ÄŠ$ç ÄŠQ$Ô #ç Ä$çÄŠA ƒÚÔ3 ÖŠ+$æÔ$ç ÄŠ#çÄŠ#ç Ä$~Ô $çÄ$ç${£ÄŠŠ#ç ÄŠ #ç$z${§Ä$ç${¢Ä${$|°Ô$çÞŠˆß#ç#z$æÝÇĈÞ$Þ#ÉåÕãþˆß#ʈÞÕ¾þ”–Q¤ ‰Õ¡(Ô¤ ‹–ˆ(×x¤#@Ô'ˆ æÊ ç&§Ĉ æʉçˆÅŠ_ ß ç%Ä ç$%¢Ä ç#åÄ ç#åÄ ç æ ~ Ä ç&Ä { |±Ô) æ Ô ç ߈߉ç‰z æÛÇĈÞ çߊРފ ¤ – X–OUT1IN1OUT2IN2OUT3IN3OUT4IN4OUTIN &2>JVbnSERREMDZV-11˜‰ÕÙ$¤¤%Ô ˆ%×xæÄ ç€ ÄŠ Ä çÄ ç%°Ä ç Ä%Ö‚EŠx ç ‚‚-”Šl ç ‚‚0”Š` ç ‚‚2”ŠT ç ‚‚5”ŠH ç ‚‚7”Š< ç ‚‚:”Š0 ç ‚‚<”Š$ ç ‚‚?”Š ç ‚‚A”Š ç ‚‚C”ЉÔ ‚‚Q ç ”Š ‚‚S ç ” ç‚‚U”Š ¤–ã‰Ô=ˆ#×x¤¤ ß çÄ ç Ä ç Ä çÄ çß çÄ çÄ çÄ çÞ ÞŠ ¤–„¸ÿÄ#x¤ƒ||Ú妃çxçÇĈðĉç‰zÇă||Ú妉Õ?‰¤$Ê$ÉåÔùˆâÄç˜ÄˆÇʈʈ ʤ¤!%²Õ£ˆ!Œ×€.” ˆ!Œ¢×ˆ!Œ×xĈ!Œ×x¤ˆ!Ê$çˆÅ&âÄç˜Ä&çâÄç˜Ä&ç âÄç˜Ä&ç Ä&ç!â¼ÇÄ&ç!Ä&çˆÉÄ&çâÄç˜Ä&çâÄç˜Ä&çâÄç˜Ä!Œ’¤!¢¤‹Wÿˆ×ˆ×xĈ ׈×xÄ$çÿÇÄ$Ê$Ê$Ê„€ €Ü„”Šœ„’ „€ €Ò„”Šœ„’ Š ƒçxçÇÄ–‰çÇÄ–ž Ô’Š–  ÂZ+ÎÑ©ôÊ€ ÿÿSYSDRIVE@@@@@@@@@@; @@@@@@@@@@@@@@@@@@@@@@@@@@< @@@@@@@@@@@@@@@@@@@@@@@@@@= @@@@@@@@@@@@@@@@@@@@@@@@@@> @@@@@@@@@@@@@@@@@@@@@@@@@@? @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@A @@@@@@@@@@@@@@@@@@@@@@@@@@B @@@@@@@@@@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@@@@@@@@@@D @@@@@@@@@@@@@@@@@@@@@@@@@@E @@@@@@@@@@@@@@@@@@@@@@@@@@F @@@@@@@@@@@@@@@@@@@@@@@@@@G @@@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@@@@@@@@@@@@@@@@@@@@I @@@@@@@@@@@@@@@@@@@@@@@@@@J @@@@@@@@@@@@@@@@@@@@@@@@@@K @@@@@@@@@@@@@@@@@@@@@@@@@@L @@@@@@@@@@@@@@@@@@@@@@@@@@