IMD 1.18: 12/07/2013 8:43:06  ü€ĶĶĶļ„ ’     ¬€č#Œ€Ä#$€«.BOOTSTRA‚ź5 „.Ť„ §ƒ— ¢¤ -²ŸŌķ,Ō‹ż’–H5#£„$†Å–Z$0Ć0#×ĖĶ Fatal I/O ErrorŒ:É#%$ƒ.—±Ō‚0‘–±$ü¤ āįÄ xԁ’„Ёᄖč5‰£„$5Ä$x‰‰#¢‘‰Ō$x灉xÄ$x灉Ė SYSTEM.‘„‡Å„‚uÅ„ „Åᤠ¢¤7 × ¤‡x¤‡Ō¤Š ‡y#£Œ¤‡ē§‡°¤¤‡ē"§„"§±Ō¤"¢¤"‡²ŸŌä$7× ę ° Ō¤$Ō&„%¤‡Ō%y±Ō%ē%y%ę¤Šź‡&Ė®#x°Ō$$xēÅ##x¢Ä– Need &„ ‡,Å3¤¤¤ !˜±)Ÿ”Õ¢!¤$‡$ē'× ¤%„„’ ‡%ɰ‡%ē„ ¹”Ōz¤ ‡%ēÉŌ9‡*°Ō ‡)‡%yxĊ‡)‡%y‡*‡%{¢×xć'Ōˆ ‡)x×xēŹ‹ĪŠ5‡%ēŹ„ !ē'× Å „+Œ¢‘„,Œ‘ ē‡%}Ä ē€’ć%ē ċU’)ŸŌ„‚€ŲÅ„„ Å„‘¤#,³ŸÕ9„„’ !¤$‡$ē'× ¤%‡%ɰÕÜ#°‡+€€³Ÿ”Ō‡+¤Š‡%}€€³Ō‰¤‰¢¦Š‡%}¤ „ˆ %בˆ %×x¤&‡&ē‡%ć&ē‡$ꁇ%~¢Ä‡&ē‡'#°”%° Ź‡&ē „ÉŹ‡&ē „ÉŹ‡&ē ʇ&ē‡%ēŇ&ē ˜Ä#°Ō ‡)%ć%}¤Š‡%}€€£ {³ŸŌ ē‡%}€€£Ä‡&ē ć&ē %ʇ&ē ʊ.‡%ēÉŌ „‡%ēŇ%}¤ „‡%}‡%}(£„‡(‡%ēɒ "‡%}$£×%Ä#¢¤‹Ąžˆ‡(פ$ˆ "xפ%‡$x˜°Ō‡$‡%xĊ ‡$yē ‡%xć$ē‡%xÄ 4Ä ē"Ė,PASCALSYCSP GOTOXYU PASCALIOTRANSCENLONGINT HEAPOPS U1„„×˜Ä„×˜Ä ¤‚‚„ ‚‚ „ ‚‚„ ‚‚ „ ‚‚ „ ‚‚ „ ‚‚ „ 4¤ ‡ ē€`‘‡ |¤ „ ēxxだē2x¢Œ‘¤2ē$פ‡ }$פ‡ē‡Å‡ÉŌ.‡ē€€‡ ‡ē&ē¹:ɇɰ”Ō‡ ē$Ä$¢¤$2x²ŸŌ”¤9˜±Ō;9¤‡ē!× ¤‡É°Ō‡ē€€„ „ #×xē ʆ „ ŠĄ‡ ē 2xだē„ņ Œ‘‡ ē †Å‡ ē £Ä‘¤6$ׄ $×xĄ $×x¤ ‡ ē4|zʇ 燁 ēÉだēÉŌl5‡ y£„‡ 5だx‡ yŒ‡ {‘‡ x‡ xxŒ$ȇ x×x¤"±Ō3„‡ x"×Ä%y¤%‡ ę y%ɀ€×xŹ%ē„ %É×xę ĊČ$¢¤$ °ÕR’–‚źĶINTRINS PASCAL DRIVERS DRVINFO =€"„ „0„‘ƒƒ,—ƒƒ.—†ģ‘7ģ‘˜„‚ƒ0†‘† †Å‚ƒ4 †‘‚ƒ8†‘‚ƒ<†‘‘ † €"‘8„ ;„ <˜Ä<瀀Ä<ē0Ä<ē5Ä<ē5Ä<ē4Ä<ē4Ä<ēÄ<ē6×xxÄ<ē ˜Ä<ē ˜Ä;ē Ä;ē 4Äį6Ń €ÅŒįx  Ėį8іŻĖ#[zH9& A€ #SERIALDRü¦–1‰¤ zڟŌų 瀒#£Ä–= ŌŠ– ‚‹FLOPPYDRD„$Å„€ŠŹ‰¤!¤"„Å!ēĒÄ!ēǁ"xܶŸŌą–n#ŚŌ ¤Š#ŚŌ¤Š#ŚŌ¤Š¤–²'#Ź'’‰¤ ¤!xڟŌ%'&Ź ē$xÄ ē%Ä!'Å€!xܶŸŌó$ yĖę„'ńʄ %¢&’‰xĒ’¤ ±Ō&Ä ¤ –¶€"¤ˆ×¤$Ä$ēÄ$ēĈפ$€4Ä$ēÄ$ēĤ¤ $²Ō&ˆ פ Ō%ēĊ%ēÄ%%yÄ ¢¤ŠÕ¤¤¤"$²ŌKˆ "פ%ē¤%Ä%ēÄ%ēÄ%ēįÄ%ē#ÉÄ&Ź& Ź&#ÉŹ&!Ź!Œ¤"¢¤аˆ4üĈāÄē˜Ä–ī#ŚŌ ¤Š'#ŚŌ¤Š€8#ܶŸ‰}ڟ Ō¤Š¤–iˆ ‰×¤ˆ$|×x¤(‰Ÿ”Ō'Ō‰"£Œ"¢¦Š ‰"£"¢¦‰"¦‰"¤ ¢¦ ¦‰"Œ‰Œ¢¤!¢‰£ˆ'×xŒ¦– I@Ł-@¶ó`‰¤#¤#ē&Ä+’„*Ä(¤!„É¢¤#ē „ÉĄ„ÉŹ„Ź#ē „ÉÄ#ē„ÉÄ)į¤#ē„ÉÄ#ē„ÉÄ'€¶°Ō #ē€AĒĊ #ē€QĒÄ+'+ÉŒ¢Ź$+Å#z¤€$xܶŸ€Ž#}܀€¶Ÿ Ōā#z ±$xڟ Ōóƒ6ƒ8ĆĢΟŌ'€¶°Ō $xĒ’ ¤ Š$x€@ŻĒ’ ¤ – Ū&xį°Ō '&$’¤‰¤!¤'%¢‰&‰’"xŚŌ='&$’¤'$¢‰&‰’"xŚŌ''ɟŹ'ɒ '$¢‰&‰’"xĒ’¤ –Õ‡²ŸŌ ¤‹ę‡Ō¤‹Üˆ ‡×¤ ,ē¤ˆ,|פ¤ˆß/Ō‡¤Š‡ˆ-É×yŒ.x¢¤'¤-ɐ ¤,ē,ē.z.y ¤ (°ŌJ&¢¤$‡²ŸŌ‡¤ Š$¤ /*°”Ō ˆ-É×x¤ *±Ō,ē‡*‡‡! ¤ &°(° ( ° Ō¶%*ˆ-É×x¢¤‡*¢¤/‡°”ŌŠ‡*£¤‡°(± Õg’ˆŽ(¤–('&%$#²Ÿ’¤ – ū ŌŠ–²;łŻš[9$muz  ’’GOTOXYU GOTOXYU €FHEAPOPS HEAPOPS €2LONGINT LONGINT €PASCALIOPASCALIO€ ŖEXCEPTINEXCEPTIN€GEXIOERRNEXERRNAM‚ TRANSCENTRANSCEN€^EXCEPTIOEXCEPTIO€‡A(c) Copyright Advanced Computer Design, 1982 All Rights ReservedEGOTOXYU x%²ŸŌ¤&€O²ŸŌ€O¤%³ŸŌ¤&³ŸŌ¤„Ė€’ĖȄĖ€Y€’ĖȄĖ%€ ¢€’ĖȄĖ&€ ¢€’ĖȀ„ ”–ƒ ŌŠ–>€1HEAPOPS –––"–(–.–4–:–@–K ŌŠ– "€ @@@@ KEVINÜ"÷£„ J SYSTEM.PASCAL… ³¤Ji SYSTEM.FILERŖ… £¤iĻ SYSTEM.EDITOR… ,£ĻSYSTEM.COMPILER£¤, SYSTEM.SYNTAX… <¢,-SYSTEM.DRVINFO ³¤-5 .BOOK.BACK¢Ŗ… £„5= .BOOK.TEXT¢Ŗ… £„=?SYSTEM.MISCINFOg£?Q LIBRARY.CODEŖ… £¤QTBAD.BLOCKS.CODE±„T\ FORMAT.CODE¢Ŗ… ±„\} PATCH.CODE¢Ŗ… S¤}ƒ LIBMAP.CODE¢Ŗ… 2¤ƒ— PRINTER.CODEŖ… C¤—ž BOOTER.CODE¢Ŗ… ³¤ž„CHANGE.DIR.CODE³¤„Ā PRXREF.CODE¢Ŗ… S¤ĀÅ DRVINFO.CODEŖ… ³¤ÅŃKILL.DISK.CODE “¤ŃŁ DRVINFO.TEXTŖ… £¤Ł  ALL.DRIVERS¢Ŗ… ³¤  FLOPPY.BOOT¢Ŗ… ³¤READ.VT100.BACKó¤READ.VT100.TEXT£„) APPPROCS.CODE… £„)- CREATED1.TEXT… £„-JSYSTEM.DRIVERS ó¤J“SYSTEM.LIBRARY £„­ĮPHONE.BOOK.BACK£„ČĢ PLAY.TEXTK.TEXT£„ĢąPHONE.BOOK.TEXT£„ąēPHONE.BOOK.CODE£„ēPBOOKG»… ˜£„@@@@ KEVINÜ"÷£„ J SYSTEM.PASCAL… ³¤Ji SYSTEM.FILERŖ… £¤iĻ SYSTEM.EDITOR… ,£ĻSYSTEM.COMPILER£¤, SYSTEM.SYNTAX… <¢,-SYSTEM.DRVINFO ³¤-5 .BOOK.BACK¢Ŗ… £„5= .BOOK.TEXT¢Ŗ… £„=?SYSTEM.MISCINFOg£?Q LIBRARY.CODEŖ… £¤QTBAD.BLOCKS.CODE±„T\ FORMAT.CODE¢Ŗ… ±„\} PATCH.CODE¢Ŗ… S¤}ƒ LIBMAP.CODE¢Ŗ… 2¤ƒ— PRINTER.CODEŖ… C¤—ž BOOTER.CODE¢Ŗ… ³¤ž„CHANGE.DIR.CODE³¤„Ā PRXREF.CODE¢Ŗ… S¤ĀÅ DRVINFO.CODEŖ… ³¤ÅŃKILL.DISK.CODE “¤ŃŁ DRVINFO.TEXTŖ… £¤Ł  ALL.DRIVERS¢Ŗ… ³¤  FLOPPY.BOOT¢Ŗ… ³¤READ.VT100.BACKó¤READ.VT100.TEXT£„) APPPROCS.CODE… £„)- CREATED1.TEXT… £„-JSYSTEM.DRIVERS ó¤J“SYSTEM.LIBRARY £„­ĮPHONE.BOOK.BACK£„ČĢ PLAY.TEXTK.TEXT£„ĢąPHONE.BOOK.TEXT£„ąēPHONE.BOOK.CODE£„ēPBOOKG»… ˜£„@@@@ ŠŻŠ,„ŠĢ͟Ō" £¤„„Š į”$ĀŽ„Š”$ĻŌŽ‡°‡ ¢¢²Ÿ Ō„„ŠĢ”$ĆĄŽŠ!‡ ¢¢³Ō„„Ṧ ¢¢”$ĆĄŽ„Š”$ĻŌ ¢¤„„Š”$Ǝ¤¤"‡²Ō(„"!€0¢Č„„Š!ĢĮ”$ĀŽ"¢¤ŠŅ‡° ³ Ō]„„§Č„€.Ȥ ±Ō@ ¤„ €EČ ³ŸŌ ¤„ €-Č į¤ ²ŸŌ"¢¤„" €0¢Č"¢¤„" €0¢Č„"Ȋm ³Ō.„„ ¢”„ ¢€.Ȅ ‡ ££€ ” „‡¢ ¢ČŠ:„‡¢Č„„ £”„€0Ȅ€.Ȅ ᣀ0” „ £‡£€ ” ‡„§³ŸŌ„§¤‡„‡’–3’'}Õh'¤#ē¤&³Ÿ#ęŸ $ēɰ#|°” Ō‹H&#|Œ&#|Œ¢&#|€@Œ&#|€@Œ€@¢¢¢¤&#|€ Œ&€ Œ#|€ Œ¢¤"°Ō ¤!£¤$y$x£¤! ²Ÿ! °"$ę ³” Ō ¤$ę ¤!#ę ±ŌZ#ę Ō*#ē Ä#ēÄ##ē!$x#ę ¢£””"±Ō‹ˆ!#ę ²"±”Ō##ē!$x!¢£””"±Ō‹]#ę #ę ²ŸŌ#ē #ę Ä#ē#ęĊ#ę #ę °#ę#ę²Ÿ”Ō#ē#ęÄ#ēÄ#ēÄ#ēÄ#{±Ō#ēÄ#ē !Ä#ē"Ċ ’–? ŌŠ– ŽÉœ€FEXCEPTINy„,€²Ōž’Š ,€€×xÄ)Ĥ*$ēÅ$x×x¤$x#Œ¢§¤¤!%²Ō%$x#!£×xŒ¤" ²ŸŌ "+³ŸŌ"¤)!Ä!¢¤ŠÖ(+ ££Ä– … ŌŠ–?€LONGINT #”–0„Š „€& ” ‡#„‡”–#:#”–D#”–t ,¤*£¤ ¤#(²Ō +#×Ä#¢¤Šī+Ų ʤ'{°Ō,'x§€ °'zŸ”Ō,Šī'zŸÕÕ'x§¤&€+°&€-° Ō&€-°Ō+Ų Ź,'x§¤¤*Œ£¤¤&ˆZŠŚ'zŸ”Ō3¤%&€0°”ŸŌ¤# ²ŸŌ’+#Ų&€0£Ź#¢¤,'x§¤Šæ# ²%Ÿ”ŌX #££¤ !¢¤ ¤"(³Ō+"Ų+"!£ŲÉŹ"£¤Šę#£!¢³ŸŌ#£¤Š!¢¤#¤ ¤"(³Ō+"ŲŹ"£¤Šķ$'z ŸŌ– ’$¤¤ !²Ō % ×Ä ¢¤Šī–õˆ’‰ē%×x¤ ³ŸŌˆŲ Ź į¤Š ˆŲ Ź ¤ ²ŸŌˆ!Ų Ź!£¤ ¤Šć!³Ō¤Š¤– "&*.26:>BFt$%#րüŠHÅŠDÅŠ@ÅŠ<ÅŠ8ÅŠ4ÅŠ0ÅŠ,Å Š(Å Š$Å Š Å ŠÅ ŠÅŠÅŠÅŠ ÅŠÅŠÅŠ–Ф ¤ Ÿ&$²”ŌH‰ē&Ųɉē%ŲÉ°Ō &¢¤%¢¤Š#¤‰ē&Ųɉē%ŲɳŸŌ¤Š ¤а–ū%#²ŸŌ¤Š%#³ŸŌ¤Š&$&%¢£’ ±¤–}‰°$%³”Ō6‰ē$ŲÉ¢¤ ²Ō¦Š¤ˆ‰Ų ʉ£¦$£¤Šæ$%³Ō#ˆ‰Ų‰ē$ŲÉŹ‰£¦$£¤ŠŲ‰°Ō ˆ‰ŲŹ–ł¤')³&(³”ŌE‰ē'Ųɉē&ŲÉ¢ ¢¤! ²Ō¤Š¤! £¤ˆ%Ų!Ź%£¤'£¤&£¤в')³Ō)'Š&(³Ō(&Š °Ō ˆ%ŲŹ– §¤&(³ŌF‰ē'ŲÉ £‰ē&ŲÉ£¤!³ŸŌ ¤ !¢¤Š¤ˆ%Ų!Ź%£¤'£¤&£¤е °Ō1‰ē'ŲÉ£¤!³ŸŌ ¤Š¤ˆ%Ų!Ź%£¤'£¤ŠŹ')³Ōˆ%Ų‰ē'ŲÉŹ%£¤'£¤ŠŻ– 2‰x°¤‰ē×x¤ ‰ē(¢×x¤ ‰ē(Œ ¢ŲÉ °¤‰ēŲÉ °¤¤(Œ¢¤ -,³Ÿ‰ē-Ųɰ”Ō-¢¤Šę(Œ ¢¤(*¢Œ¢¤/.³Ÿ‰ē/Ųɰ”Ō/¢¤Šę./£¢¤ ,-£¢¤ „ˆÄ"!¢ ¢°¤+)³Ō+¤Š)¤#Ō'£¤'¢¤%Œ£¤ˆ%£’#Ō_!Ō.-)/+’ ŌˆŲ Ź-/,.&ŠˆŲ Ź/-.,&Š,/+-)’ ŌˆŲ Ź/-.,&ŠˆŲ Ź-/,.&Š!Ō ˆŲ ʊ ˆŲ Ź/-.,&*(¢%£¢¦‰į¦$‰‰¢¢%’ ‰ē‰×%Ė× -/³Õ™‰ē-Ųɤ,¤+¤¤%.³ŌZ$‰ē%ŲɌ#¢¤" ¤" ¤&¤ˆ'ŲÉ!¢¤ ²Ō¤Š¤ £¤ˆ'Ų Ź'£¤!°ŌĻ%£¤&£¤Š”#²ŸŌˆ&Ųˆ&ŲÉ#¢Ź-£¤+£¤ ‹a’– ¤¤‰Ō *£¤ )¢¤ *)¢£¤,x)¢£¤*)¢£¤$*³ŌC‰ē%ŲÉ £‰ē$ŲÉ£¤!³ŸŌ ¤ !¢¤Š¤‰ē%Ų!Ź%£¤$£¤Šø"¢¤*,x#’ °Ō˜,x+²‰ē,xŲɰ”Ō,,x¢ÄŠä"¤–  h*¾ ‰ē,£Ųʉ°Ō¤Š ‰£¤#¤.*¢¤¤%ŸÕŗ* .££¤!°Ō¤,.+’ ¤Š!³ŸŌ¤¤Š ¤&ÖƒĀ‹…ˆ"Ų„-,*Ź"¢¤ -²ŸŌ¤Š ¢¤Š^ˆ"ŲŹ"¢¤.*¢¤ -²ŸŌ¤Š ¢¤.-²‰ē.Ųɰ”Ō.¢¤ŠēŠ ˆ"ŲŹ"¢¤ -²ŸŌ¤Š ¢¤Š‹A’"‰°Ō1‰£#¤¤"'³Ōˆ"¢Ųˆ"ŲÉŹ"£¤Šāˆ#ŲŹ– ‰ē×x¤‰ē$¢×x¤¤ $Œ¢¤ )(³Ÿ‰ē)Ųɰ”Ō)¢¤ Šę$Œ ¢¤ $&¢Œ¢¤ +*³Ÿ‰ē+Ųɰ”Ō+¢¤ Šę*+£¢¤()£¢¤„ˆĉx°Ō '%¢£¢¤Š3%°‰ē)Ųɰ”Ō’'%³Ō'%£¢¤!£¢¤Š¤¤#Œ£¤ˆ#£’‰ē$Œ ¢ŲɉēŲÉ°Ō ˆŲ ʊ ˆŲ ʉx°Ō'%²Ō +)*( Š)+(* Š+')%’ Ō+*)(%&$¢#£¢¦‰į¦"‰‰¢¢#’ ‰ē‰×#Ė  ‰‰±Ō‰ē‰×#ĊB‰‰±Ō‰ē‰×#Ċ+‰‰‰’ °Ō‰ē‰×$Ċ ‰ē‰×#Ėt ‰‰°ÕƉ °Ō^‰‰³ŸŌ‰ē‰×&ĊD‰‰²ŸŌ‰ē‰×%Ċ,‰‰‰’ $ŚŌ‰ē‰×Ċ ‰ē‰×Ċ\‰‰³ŸŌ‰ē‰×%ĊD‰‰²ŸŌ‰ē‰×&Ċ,‰‰‰’ #ŚŌ‰ē‰×Ċ ‰ē‰×Ċ!‰ °Ō‰ē‰×%Ċ ‰ē‰×&Ė 2D ‹ ‰ē×x¤‰ē!¢×x¤! ¢¢¦‰į¦‰ē Ųɤ‰ē!Œ¢Ųɤ ¤!Œ¢¤'&³Ÿ‰ē'Ųɰ”Ō'¢¤Šę!Œ¢¤! ¢Œ ¢¤%$³Ÿ‰ē%Ųɰ”Ō%¢¤Šę&'£¢¤$%£¢¤‰ē×xօ»ŠTŠNŠHĒĒŠ6ĒĒŠ$!ǁ(ǐЁ(ǁ!ǐЖ——œĀĀnjGĘ$„Å„„%Ą‡Ä xֆG‹Ī ē×x ē×x£¤‡£¤‡³ŸŌ;‡£¤"¤‡‡"³Ō ē‡×x±Ō’‡£¤Šį ē‡£× ē×xĊ8‡²ŸŌ1‡¢‡£ ē×x㢇£¤‡¢¤‡‡²Ō ‡ć¢¤Šķ‹: ‹5 ēŲÉ °Ō ēŲ ʊ ēŲ ʤ‹‹  ē×x¢į¤„ ē×xÄ ēŲÉ °Ō ¤‡€-Ȋ¤¤ ē×xŒ ¢¤ ē‡Ųɰ‡‡²”Ō‡¢¤Šå‡‡²ŸŌ!‡ ē×x³Ō ’Š ‡¢¤‡‡€0Ȋ8‡‡²Ō1‡ ē×x³Ō ’Ї¢¤‡‡ ē‡Ųɀ0¢Č‡¢¤ŠČ‡‡ȋE ē×x¤‡¢ ¤‡¢‡¢‡£‡¢ ‡‡£¢¤ ē‡×‡Ä 燢ׄ×xć°Ō‡¢¤ 燢ׄ×xÄ ē‡¢×„×xċА‹Ė ¤‡°Ō‡£¤Š‡£¤‡„×x㢄×x㢄×xć‡ċŠ ē×xᤤ‡įŒ¢¤"¤‡‡"²ŌL‡Ė ²Ō ‡Œ ē‡ŲÉ¢¤Š*‡Ģ ² ē‡Ųɲ”Ō ‡Œ ē‡ŲÉ¢¤Š’‡¢¤Š­ ēŲÉ °Ō‡į¤ ē‡įׇĊ‡±Ō„Ä‡‡£¤‡ч„Ňі%Ń ŌŠ–BÄnĖa’€ĮVj<˼_ $倩PASCALIO#”–$#” –,%$#”–6#”–Ž(¤'ĢŽ¤¤${°Ō(’$x§€ °$zŸ”Ō(’Šķ$zŌ‹ $x§¤ €+° €-° Ō €-°¤(’$x§¤ ˆZŠŚ$zŸ”Ō¤''Š ĢĀ €0£ĢĄŽ(’$x§¤ŠŌ$zŌ‹Ģᤠ€.°ŌG¤(’$x§¤ ˆZŠŚŌ¤#¢¤''Š €0£Ģ#”$ĆĄŽ$z ˆZŠڟ ŌĆ$zŌ‹{ €e° €E° !#³Ÿ ”ŌT${°Ō(’Š$ēÄ(„’$zŌ‹K!ŸŌ 'ĢŽ’‹;¤#³ŸŌ''Š#ą”$ƎŠ ''Š#”$ĀŽ!Ō"Ō ''ŠäŽŠŠ’– ø‡³Ÿ‡³Ÿ Ō¤¤„ŠĢϟŌ„„ŠäŽ„€-Ȋ„€ Ȥ„„ŠŽ„Š”$ĻŌ%„Š”$ĻŌ ¢¤„„Š ”$Ǝ 1HALTUNIT(System Halted. Hit to proceed.O‰‚”” ‰”” –[ ŌŠ–*€ómCSP „’’Ä ¤–>$€²Ō ‰ę ¤Š„ Ä $€€×x¤–H#”–V#щ#Ėh„%$“å”Ä ¤–†$¤„ɰŌ$¤Š„ɤ–Œ–’–˜–ž–Ļ„ĢŽ&¤¤ #²Ō„„Š ĢĀŽ ¢¤Šé„„ŠŽ–Č -¤+¤„.„Éץ,„ÉץɄɱŌL*²ŸŌD+*¢¤„,„É×Ä!-Ō‹ ā xČēā¤!"°Ō‹ ā §Ä ē¤‹į’+*¢Ō §ČФŠ}-*²Ÿ”Ō! §Č!ē¤ ē¤*£¤ *€Č³Ō! Åd!ēd¤ ēd¤*€Č£¤ Šä*€(³Ō! Å!ē¤ ē¤*€(£¤ Šä*²ŸŌ! ŠÄ!ē¤ ē¤*£¤ Šä*²ŸŌ! §Č–  .¤,¤„ɄɱŌi+²ŸŌ`„/„É×Ä.+¢£¤„/„É×Ä,+¢£¤-„É×+,¢Ō ā!§Č‹!"±Ō!£¤ā!ēxČā!§Č£Šå,Ō!xȊ¤‹Ā.+¢£¤.¤„/„É×Ä,+¢£¤ ,¤„-„É×Ä.Ÿ+²Ÿ”Ō !§Č £¤!£¤+£¤ ! £ą€d³Ō"+€Č³Ō €d£¤!€d£¤ ē!ēÅd+€Č£¤ ŠŽ! £ą³Ō +€(³Ō £¤!£¤ ē!ēÅ+€(£¤ Šą+²ŸŌ !xÄ £¤!£¤+£¤ Šå+²ŸŌ !§Č–(¤„)„Éץ&Ȅ&Č!¤('²Ÿ”Ō &Č ¢¤'£¤'³Ō &Ä ¢ Å €€¢¤'£¤Šį'²ŸŌ &Ä ¢¤'£¤Šė'²ŸŌ &Ȗ Ó'¤'+¢¤¤+²Ōį¤+±Ō-*Ō("§)±Ō‹ " ¢¤"!°ŌģŠ("§)°Ō‹ " ¢¤"!°Ōģ"'£¤ – Ü’*¤‡’/¤&ę ¤„Ä"ēɰŌ"ē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€Š”ž©“7#‚€P”$ր ‹¼#‚ €P”‹±#‚€P”‹¦#‚€P”‹›#‚&€P”‹#‚.€P”‹…#‚8€P”Š{#‚A€P”Šq#‚H€P”Šg#‚P€P”Š]#‚V€P”ŠS#‚^€P”ŠI#‚e€P”Š?#‚n€P”Š5#‚u€P”Š+#‚~€P”Š!#‚€‡€P”Š#‚€€P”Š #‚€˜€P”Š–µ nEXERRNAMUnknown run-time errorValue range errorNo proc in seg-tableExit from uncalled procStack overflowInteger overflowDivide by zeroNIL pointer referenceProgram interrupted by userSystem IO errorl IO error: Unimplemented instructionFloating point errorString overflow $/9CMWa“Ø„„Å.‚€P”‡ր–‹°.‚€P”‹„.‚€P”‹š.‚&€P”‹.‚2€P”‹„.‚:€P”Šz.‚C€P”Šp.‚K€P”Šf.‚V€P”Š\.‚d€P”ŠRƒl”/„™ƒn—ƒn”.¤„‚p ”„„”„€P”Š .‚v€P”Š.‚€ƒ€P”Š .‚€Ž€P”Š–!¦‚]TRANSCEN#”–tI$¢>„łI@}: Ŗƒ9n.6[œO¹#²<=‡*¾¤ŖÉ„Šƒ ΟŌ ’ „Šƒ Āæ¤"Ō&ᤄ„Š"̃ĀĮ"̃ĀĮŽ„ŠćƒĻŌ>„„Š„ŠĀŽ„„Š„Šƒ„ŠƒĄ„ŠƒĄ„ŠƒĄ„ŠĀĀĄŽ„ &Ģ„ŠĀŽ– ’„ŠƒfϟŌ„„Šäį’ ŽŠ„„Š’ Ž–É?Ū„„Š惀Ą’ Ž–€?ø?:Ŗ1?’^¹ƒ€ˆ; S€>?L=[æ?å „ Šƒ€ĶŌ „ ƒ€’Ž‹ƒ„ Šƒ€”Āæ¤„ „ Š ̃€–ĀĮ ̃€˜ĀĮŽ„„ Š„ ŠĀŽ„„ Šƒ€š„Šƒ€œĄĀŽ„ƒ€ž„Šƒ€ „Šƒ€¢Ą„ŠĮĆĄŽ„„É ¢¢€’ĖŹ„ „ŠŽ– €?€?@€?€?É?Ū€?„„ Š„ ŠĀŽ„ Š惀ōĪŸŌ „ƒ€ö„ŠƎ„Œ¢Ģޤ¤$%³Ō&„ƒ€ų$Ģƒ€śĮ$$ŒĢ„ŠĀ„ŠĆĄŽ$£¤ŠÕ„ Š惀üΟŌ„ ƒ€žƒ„ Š„ŠĀĆĮŽŠ „ „ Š„ŠƎ– 5?ó???????1?’ ?=~Ō@:?^¹ƒ€¢„ŠƒPĪŌ ’ „„ŠŽ„ɀ~£¤ „€~€’ĖŹ„„ŠŽ„ŠƒRΟŌ#„„ŠƒTĮƒVĮ„ŠƒXƒZĄĆŽŠ)*£¤ „„Šƒ\ĮŽ„„Š„Šƒ^ƒ`ĄĆŽ„„Š„ŠĀŽ„*̃bĀ„Š„Š„Šƒdƒf„ŠĮĆĀĄĄ*̃hĀĄŽ–Ž>Ł[¾„„Š’ƒŅĀŽ–Õ>Ø©?ŗ?5?ó— „ ŠĢϟŌ ’ „ ŠƒąĶŌ „ ƒāŽ‹—„„ ŠŽ„ɀ~£¤„€~€’ĖŹ„ „ŠŽ„ƒäƒę„ ŠĀĄŽ¤¤%&²Ō„ƒč„Š„ Š„ŠĆĄĀŽ%¢¤ŠŻ$Ō„„ŠƒźĀŽ$¢¤„„ŠŽ„$„É¢€’ĖŹ„ „ŠŽ– £ ŌŠ–ķ„kÕ„iN€ †8EXCEPTIO„$”*Ä ¤– Exec err #, e‰‚”‰‰.” ‰. °Ō‰‚”‰‰” ‰”–*:„„6ļ-„„/’’””"¤‰””(ģ€2¢¼ŚŌŠ/„‚4””"±ŌŠ„” ƒ6”‡. ™ƒ8—ƒ8”’ŸŌ¦€½ˆ€·”!¤/Ф/„”–. ŌŠ–;}€’’PRINTERR„uEXCEPTINEXERRNAMƒEXIOERRN‚HALTUNITHALTUNIT€2CSP  CSP €ōHALTUNIT‚SYSDRIVEPASCALSYĮPASCALSY"SYSCODE #žPRINTERR2 INITIALI3©GETCMD 8¹BOOTSEG ?EXCEPTIOt PRINTERRƒƒ Segment  Proc , Offset ć„Ä ēÉŚ ‰€Ā×xę ±”Ō y¤Šāƒ” ēÉ z„„„ƒ—ƒ”ƒ ”‡!‡ „ƒ —ƒ ”‰”‰„”‰”‰‚”‰„”‰‚”‰"” ‰‚”‰!” ‰”–!„ D¤ ¤¤ %× ę²!Ÿ”Ō*% × ¤"ē'”Ō&"ē  ɀd±°Ō ¤ ¤ ¢¤ŠÉ–Œ$× ¤%!棤¤ "²Ō$ × $ ¢× Å ¢¤Šč$!ę× ē‚„#”!ē!ę£Ä–Č$× ¤!ę%¤¤ "³Ō$ ¢× $ × Å £¤Šč$%× &Å !ē!ę¢Ä– $%£¤ ‰²ŸŌ‰¦‰¦&¦ ¦Š ‰²ŸŌ ¦&¦– ¤‡× ꤤ¤‡²ŌZ‡³Ÿ¤"¤¤#‡²Ō#‡#£× y‡#× x1#¢¤Šā"¢‡"× y‡× 1$Ō‡%³ŸŌ%¤ ¤Š‡¢¤ŠE¤#"²Ō!‡#× x‡#£× y£‡³Ō#¤"¤#¢¤ŠŚ!°Ō‡× ‡"× y£‡³Ō"¢¤"€M°Ō¤!²ŸŌ>‡!£× y¤&‡¢¤„ ‡Ź„ ‡”¤„ʄʄ €dŹ„!‡‘%!¤–g %¤ ēÄ ēÄ ēÄ ēÄ $Ä#°#į° Ō xČ ēÄ#°Ō ēĊ#³ŸŌ ˜Ä ēĊ ē##¢Ä–X $¤!ēÄ!ēÄ!ēÄ!~ÕÓ!ę !ę ²Ÿ¤ Ō!ē !ę Ä!ęÕ” Ō !ē!ęĊ!ę !ę °Ō!ę!ę²ŸŌ ¤!ē!ęÄ!ę Ōl!ē Ä!ēÄ Ō!ē!!ę!棔 !!ē!!ę!ę ¢£” !ēɰ”!ę ”Ō(!ē !ę ¢Ä!ē!” !!ē!!ę!ę ¢”!ēÄ!ē Ä!ę!ēɰ”Ō!ē ĖtC„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”Ź"ēɱŌC"ēɤ-’+¤%˜°Ō’,%x¤#˜°Ō’,#×x¤ #(×x¤ )³ŸŌ)€’¢¤ ¤ ¤ )¤¤'.²Ō%#('£×xŒ¤ +,²ŸŌ +"z³ŸŌ+¤ '¤ '¢¤ŠÖ*°Ō’,*°-°”Ō’,*‡°-‡°”¤$‡±”Ō!ē‡Ċ"ē##(*£×x£×xÄ$ŸŌ "¤"y¤" °¤$Õ'’– ’ž’’‡ž’’Æ ¤-x¤„‚‚oÅ, §¤$€a³$€z²”Ō$€ £¤!²$€_±”Ō „!$Č!¢¤ ¢¤, §¤$ƒ‚sڟŌĒ- £Ä‰{¤"¤ )„§€A£×x¤)„§¢€A£×x¤)ē!ׄ¹¤!¢¤#! ³ Ōč#Ō)ē!£×¤ -ē*|Ä-ē*}Ċ -ēÄ-ē„Å–ļ$%Ä%#»ŸŌ%}¤%˜°Ōį¤Š%#ŗŸŌ%|¤%˜°Ō¤Š˜¤¤%˜°ŌĒ–%¤%§$§°Ō#%§¤¤ !²Ō% §$ §±Ō‹ ¢¤Šč¤–p&§%§³ŸŌ&§¤Š%§¤!¤¤ "²Ō& §% §±Ō & §% §²¤‹ ¢¤Šß!&§°¤–~#$’¤–ž$§#²ŸŌ ’,Š $%$§¢”–“#²#$§²Ÿ Ō’,–Č$‰ęÄ#‰ęĖ‚×ƒƒe—–öˆF߄Ä‰7|‰7z£¤ˆFŽ–€G”(¤ ³ŸŌ „ƒƒ| ĢĄŽŠ„ ĢŽ–n‰H¤%±Ō„ %ץÄ €d¢‰7|’.Ō ˆFŽ’,Š ¦H’*‰7°Ō ъ‰7ē Ė‰|˜±ŌˆH‰|ĉē˜Ä’0–ŖˆFߒ1$‰HÄ#’0ˆFŽ–ĄˆFߒ1#‰HĈFŽ–ŚˆFߒ1#x¦H’0ˆFŽ–ņ ’*¤ ę ŸŌ’,„” #¤ „Ä( Å !¤ (ē)yÄ(ē)z¢Ä)ēɒ+¤(ē"xÄ(ę ˜±Ōc(ę ¤(ē ‰€Į¢” ‰€Į¤ ¤$*²ŌD%$×xēÉŌ(ę $×%$×xĊ#(ę $× ” (ę $×x%$×xÅ (ę $×xēÄ$¢¤Š·(ē-” (ē(z-×Ä(ē({Ä,³,€’²”Ō(ē,Ź(ē Ä(ē (}ĄāÄē˜Ä#¤+āÄē˜ÄˆJ߄Ž+ß.˜±Ō.#ĉN¢¦NˆJŽ– ˆJ߀ĄŃ‰N£¦NˆLވJŽ„āÄē˜Ä„ߖ% #$Ė, –E $’/’+¤ ē z¢Ä–_ $’/’+¤ ē z£Ä–‰ ,°Ō „Ä##yÅ‹,’/¤ „ Ä,€²ŸŌ ',€€£×x¤Š ‰ę ,×x¤ ˜°Ō’, ¤ )z°ÕŌ„Ä’*¤"z)y¢$’.Ō’,)ē„ ēĝē)y×£Ń)ēÄ)ēÉ)x)y)y¢){””"°Ō{)xē)ē¹ŸŌ’,Šg)xy¤%±ŌO„ )x%×Ä(y¤()ę y(ɀ€×xŹ(ɀ²ŸŌ(ē'(ɀ€£×xę Ċ(ē‰ę (É×xę Ċ¬)x)y£Œ,ȒŠŃ ’,– ł +’/’+¤"˜°Ō’,"¤ (z°ŌL„„ ēÄ(x$£¤%²ŸŌ $„%Œ”„Ä„(}%¢£Ä%²ŸŌ„ ēĄ#%Œ” !Å і– ”"±Ō ’,– „Ä ¤–E "‡#„””"°Ō(Ō¤$Š -Ō °¤$Ф$–#L –  ‰¤"}'פ"ę #x×x¤#ēÉ'"ę ¼Ś”Ō$„$ē ńʄ#ēÉ&%$ę —Ä!’-Š’-–÷ ‰¤"}*פ"ę #x×x¤#ēÉ*"ę ¼Ś”Ō'„$ē ńʄ#ēÉ&)('%$ę —Ä!’-Š’-– a *€€°Ō¤ *€°Ō¤ ‰¤"}*פ"ę #x×x¤#ēÉ*"ę ¼Ś”Ō'„$ē ńʄ#ēÉ&)('%$ę —Ä!’-Š’-– “ ‰¤"}%פ"ę #x×x¤#ēÉ%"ę ¼Ś”Ō"„$ē ńʄ#ēÉ$ę —Ä!’-Š’-–Ų #˜±Ō#¤ ę ’2 ē ÉŌ ę ę —–e ՙˆ7’*ĈFāÄē˜ÄˆHÄ˜¦I‰ē˜Ä‰ē” ˆJāÄē˜ÄˆLāÄē˜Ä¦N‰~¦€Ą‰€Ą˜±Ō2‰€Ąē ɉ€Ąē ɲŸ”Ō‰€Ąę ‰€Ąę —‰€Ąę ¦€ĄŠĘƒ†m—”‰~’2ŌżŠ–\¹’6-&!nh3„Qˆā×NKH„˜ØE•G²{ļQA:śŹĆˆ\Ś|žŅģęjp€2 PASCALSY”’– SYSCODE *STK OFLOW*[#°Ō'ˆ€·”!ˆ^‚€P”ˆ^ˆ^§”€,”#ƒ —Ō€,”–¤‰¤ ē¤$ ē,ɰŌ7¤#x²ŸŌ##x£Ä‰!ēɔŠä‰!ɔ‰!ēɔ$ ē+ɰŌ\¤#x²ŸŌ:##x£Ä ē+É!ēÉ±Ō ‰!ēɔ‰€ ”‰!ēɔŠ ē+É!ēÉ°Ō ‰€ ”–Y‰¤#±Ō3 ē$$ŲÉŌ ‰ ēɔ‰#”ˆT§²ŸŌ ‰ˆT”–k‰ēɑ/–z‰ ”–‹‰ē ɑ/–„‘&‘(ˆ^ˆ^§”–ä$Ō”&‰;zŌ‰;‘‰;ēĉ„” €a³ €z²”Ō €a£€A¢¤ ¤– Type to continueI‰‚€ó”‰‚€ś”$‘+¤‰” ŸŌ‰”‘( € ° ‰ē,ɰ ŌĆ € ±¤–:[].TEXT.BACK.CODE_Y„1„ZÅ„‡5€P”‡4‚&”‡3‚'”‡2ć1Ĥ6¤!„§²Ō2„!§¤"€ ²Ō „!”Š"€a³"€z²”Ō „!"€a£€A¢Č!¢¤ŠĘ„§²ŸÕ€„§€*°Ō‡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”„‚+”„‚.” Ō‡1Ċ„‚1”Ō‡1ć6¤_–^¢„„ Ť ‰¤‰€æ'פ$|˜°Ō $ēö” '$|ģ””"°¤!ÕŌ$|× ¤¤&x°&ēɰ”՝&ē§²Ÿ&ē§²”&ę³”&ę€M²”Ō~¤&ē%”ŸŌp¤ &ę²ŌJ$| × ¤ )ē§²)ē§²Ÿ )y)x³Ÿ )ę ²Ÿ )ę ² )ē  ɀd³ Ō ¤ $|‘$Š ¢¤ŠÆ!ŸŌ'$|&ę¢Œ””"°¤!Ō%&ē”%|Ō%ē&Ą&ē ” !¤ !ŸŌ%‚‚3”%|Ō%灒Ą” „”!(¤ – ‰€æ‡×¤‡× ¤‡‡ē”‡ēɰ”¤"ՙ„„” ‡ę £,² ‡ę £³”‰ēÉ”¤"ŸŌ‡„””"°Ō ‡ē„”¤"ŌN‡ć‡‡ę¢Œ””"ā¼ā¼Ūڤ‡y °Ō‡‡‡ę¢Œ””"°Ō „‡ē ” "ŸŌ‘‡‚‚Ō”‡|Ō‡ē’Ėžᤠ(˜Ä¤¤*§²ŸÕ*§€#°*§²Ÿ”ŌE¤¤¤*$§ˆZŠŚŌ Œ*$§¢€0£¤Š¤$¢¤$*§²Ÿ"Ÿ ŌÓ" ³” ‰ę ²”¤!ŸŌ)¤‰ę ¤*‰€æ ×”¤"ŸŌ £¤" ³Ÿ Ōį"Ō[‰€æ ×|ŌQ‰¤¤%|˜±Ō$*%|× ē”Ō„„” #%|× ę £,²¤"ŸŌ!¤ ‘-Ō!ŸŌ*%|× ē”¤"Ÿ)”Ō3‰ę ¤‰€æ פ%|Ō ‘-Ō*%”¤"ŸŌ £¤" ³Ÿ ŌŌ"Ō7‰€æ פ ¤ %§²ŸŌ*%”%|‰|˜±”Ō(‰|Ą(x× ē ” –  ˆ€‡× ‚€į”„Oˆ€‡Å0Ǥ„,˜į”‰¤Ÿ‡Ÿę ¤ ¤ ‡ ²Ō\‰€æ פ”‡”燁Ÿ} ×ēÉ恔‚€é”‡”|Ō ‡”灒Ċ ”& „€””"°Ō ‡”„‰” ¢¤Š‰¤Ÿ‡Ÿę ¤ ¤ ‡ ²Õˉ€æ פ”‡”|Õ² ”& ”-Õ¦‡”‡Ÿ|× ē” ‡Ÿz°Ō ˆ@‡””¤¢¤N‡N‡¢²Ōs ‡Ÿz°‡N‡Ś ŌX„¤£„£‡””„£„O‡N× ”„£€P”„,„˜”‡1Ōˆ€‡‡N× „”‡‡Nā¼ŻĒ¤„,”‡N¢¤NŠ„ ¢¤‹-’‰RŌ ˆ<ˆ@”ˆ@„+” ¤‡+˜°Ō”'ˆD‡+× ē Å–²Xˆ€æ‰ę ¢ Œ” ˆ€øāÄē˜Äˆ8” ‰8˜į”ˆ;” „” ‰; ”ˆ:” „” ‰: ”ˆ9” „” ‰9 ”ˆ×‰;Ĉ׉:Ĉ ” ‰ ˜į”ˆ” ‰˜į”–:*SYSTEM.WRK.TEXT:*SYSTEM.WRK.CODEÖ]‰RŌ<ˆ&‚‚-”ˆ‚‚.”ˆ.‚‚/”ˆˆ@”ˆˆ@”ˆˆ@”ˆ&§²ŸŌ+„¤*„*ˆ”„*‚‚0€W”„*ˆ&€f”„*€P”Š „‚‚1€P”‰ „˜”‰ }¦‰Ōˆ‰ ē”ˆ&‰ 甉 ”ˆ§²ŸŌ+„¤*„*ˆ”„*‚‚:€W”„*ˆ€f”„*€P”Š „‚‚;€P”‰„˜”‰}¦‰Ōˆ‰ē”ˆ‰ē”‰”‰ē,ɦ‰ēɦ‰ēɦ –]CONSOLE:SYSTERM:€)‰8”‰ ”‰”‰;”‰:”„‚‚ģ€P”‰;„˜”‰:„˜”‰RŌ„‚‚ń€P”‰9„˜”ˆ×‰;Ĉ׉:Ĉ׉9ĈטĈטĈטĖ)???JanFebMarAprMayJunJulAugSepOctNovDec?????????*System.StartupWelcome  to"ACD's U.C.S.D. Pascal Version 3.AxCurrent date is *Profile.Text?ELIFORPSSystem re-initialized9 Q„'„S’’”‡RԐ„ׂƒA”„ׂƒC”„ׂƒE”„ׂƒG”„ׂƒI”„ׂƒK”„ׂƒM”„ׂƒO”„ׂƒQ”„ ׂƒS”„ ׂƒU”„ ׂƒW”„ ׂƒY”„ ׇ@‡@ē!‡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 |²ŸŌ {°Ō#‘Š ēĖ—¤ ‘*¤"}'³”Õ@"~ÕŃ"ē¤&³ŸŌ"ę ¤#x&¢¤&'¢#y²ŸŌ %ŸŌ*‘3Ō&'¢#y²ŸŌ#y&£¤"ē&#y³Ä"zŸÕ‰'¤ €@³ŸŌ ¤Š€?¤ !£¤%Ō")(!Œ&”Š"ēÄ")(!Œ&”(!Œ¢¤ &!¢¤ °”"± Ō«”"°Ō'¤ Ф "ē&#y°Ä"ē &#x£Ä"ę "ę ²ŸŌ"ē "ę Ċh'¤ %Ō")('Œ&”Š")('Œ&””"°Ō9%Ō4'Œ¤&&į)(&¢£” ¢¤&¢£¤&¤ "ē&'³ŸÄŠŠ¤ Š ‘– ]‘(¤%}Õ§%ę²ŸŌ%ē%ę£Ä%ę²ŸŌ‹˜%ęÕÖ%ē¤%|¤¤%ę %ę °Ō%ę#¢%ę²ŸŌ‹dŠ &ę %棤Р%棤#¤ !²ŸŌ!¤ ²ŸŌ %ē!%ę%x" ”%ē%ę ¢Ä" ¢¤# £¤#°¤$ŸŌ[%ę Ō%ē Ä%ēÄ%%ē!&x%ę ¢£””"±Ō‹ä%%ē!&x%ę ¢””"±Ō‹Ę%ē %ę ¢Ä%ēÄ$Õ8’Š%%x%|””"±Ō‹›%|°Õ%ēÄ%{±Ō%ēÄ%x§ °Ō%x€ Č%ēċx%x§°Ō((‘%x§€ £¤ ²Ÿ €²”Ō%x€ Č%ē ċK(‘%x§°Ō1%ę%ēɰ”Ō%ę Ō %ē %ę ¢Ä%ēÄ(‘Š %x€ ȋŠ ‘%ēÄ%ēĖ Ż‘(¤%}Õa%ęÕB%ē¤%|¤¤&x%ę ¢&y°Ō0%ę#¢&ę ²ŸŌ(‘3Ō‘‹/Š %棤Р&ę %棤Р%棤#¤ !²ŸŌ!¤ ²ŸŌ%%ē Ä%x"%ē!%ę ”%ē%ę ¢Ä" ¢¤# £¤#°¤$ŸŌr%ę Ō%ē Ä%ēÄ%%ē!&x%ę ¢£””"±Ō‹Ÿ%ę %ę ³ŸŌ%%ē!&x%ę ¢”Š %ē!” ”"±Ō‹j%ē %ę ¢Ä%ēÄ$Õ’%|°Ō4%x§ °Ō,&ēɰŌ"%ꁀ£³%ę Ÿ”Ō%灣Ä%xČ(‘Š%%x%|””"±Ō‹Š ‘%ēÄ%ēĖ č#z¤–ņ#y¤–#x Č#‘–e%¤ }ŌU ęŌ #²ŸŌ x€ Č%‘#£¤Šź x$Č%‘Š.#²ŸŌ x€ Č  x”#£¤Šā x$Č  x”Š ‘–-32768  ¤„ Ȥ.³ŸŌ„€-Ȥ..ą°Ō „‚‹4 ”‹X.त ¤!*³ŌB.ˆO!×x€0¢¤"€0°!²Ÿ”#”ŌŠ¤„ "Č ¢¤"€0±Ō .ˆO!×x¤!£¤й„ £Č-„§³ŸŌ„§¤/„-‘–o&¤!}ŌQ$²Ō%§¤$%§²ŸŌ&€ $%§£‘%§¤!ęŌ¤ $²!zŸ”Ō!x% §Č&‘ ¢¤ŠęŠ !%$”Š ‘–Ō'¤¤"{°Ō'‘&%Č %²"y"z Ÿ”Ō/"x§¤"°Ō!„‘.ŌŠ & !Č ¢¤Š & !Č ¢¤'‘ŠÅ& £Č"yŸŌ'‘Šö–&'¤!}ŌB%$²ŸŌ '€ %$£‘$¤!ęŌ ¤ %³Ÿ!zŸ”Ō!x& §Č'‘ ¢¤ŠåŠ !&%”Š ‘–K#yŸŌ#‘Šö#{°Ō#‘Š #ēÄ#ēĖw$¤‘ {°Ō$‘# x§Ä {°Ō$‘Š ēĖA(¤'Ĥ¤${°Ō(‘$x§€ °$zŸ”Ō(‘Šī$zŌ‹•$x§¤ €+° €-° Ō €-°¤(‘$x§¤ ˆZŠŚŌV¤¤''x Œ €0£¢Ä(‘$x§¤#¢¤$°Ō# „‘.Ō#°Ō'Ċ''x Ä(‘$x§¤ŠŻ ˆZŠڟ$y Ō°!$z Ō "Ō''xįĊŠ‘– k$§%§¢#²Ō$%%§¢$§”%$§%§¢Č–Ą$²Ÿ'§²Ÿ”'§&§¢%²”Ō7&§$£¢¤ ²ŸŌ&$&$'§¢ ”¤ °Ō'&$'§”&&§'§¢Č–ņ%‚Œį€P”$²Ÿ#²Ÿ”$#¢£&§²”Ō &$%#”%#Ȗ3%²Ÿ$²Ÿ”Ō0&§%£$£¢¤ °Ō&%£ČŠ ²ŸŌ&%$¢&% ”&&§$£Č–§/¤2‡1§²ŸŌa‡1§¤¤‡0§‡1§£¢¤„‡1§Č! ²Ō>! !£"‡0!” ¢¤! ²ŸŌ‹$‡0!„‡1§”„‡1”Ō!¤2‹!¢¤н–1Ģ$¤ ē ¤!ɔ# ę ę —!ɔ–ķ#˜±Ō#¤ ē ÉŌ#‘4 ę ¤Šå– #˜±Ō#¤ ę ‘5 ē ÉŌ#‘4–Replace :}3ˆ^‚ˆ€P”‰€æ‰z׈@”ŸŌK‰z‘-Ō‘)ˆ^§±Ō „,”ˆ^¤„‚‰”„ˆ@”„‚Ž€_”„€P”Š””‰EˆE””‰E°Ō”””‹Ā‰E²ŸÕ¹„ Ä‰€Į¤¤ #²Ō*! ×x˜±Ō! ×xēÉŌ€€ ¢”€€ ¢” ¢¤ŠŃˆ€·” !×xę щ€Ą‘,‰€Ą‘5ˆJ߉N±ŌˆJވL߈JߊėˆJŽ™ш€·”!‰€Į¤¤ #³Ō*! ×x˜±Ō! ×xēÉŌ€€ ¢”€€ ¢” £¤ŠŃ‰E°Õ„ž–3įē#ĉ#ĖĢ˜¦€Ą¦E”””‰ę‘,ˆ6” ¦N‘6‰E°Ō÷‰ę‘5– y V 6fƒ05h ÕČæøÆH%5ÖJAO  ū ć ø £ ū  ģ ‰ ŗ  ( O9 > ö ń 1 N =Æ‹ J6 PRINTERR–ØINITIALIR¦€¾¦€½ˆ€ŗāÄē˜Ä‰ę’ڟŌ‰ē ĉę±Ōˆ€¼‰ęŒ” –’*System.Miscinfo‰^„„-€0”‰ē¤]‡]ēÉ ²ŸŌ ‡]ē ʦ ˆT‰ē"ÉȈT‰ē"ɔ ˆO×ĈO× ĈO×€dĈOׁčĈOׁ'ĈZƒ*ĒŽ‰¤]‡]ēÄ”„‚.””"°Ōp„” ŸŌa‰¤] ¤^‡]燁^ęć]燁^ēҁ]燁^ęć]燁^ēҁ]ē%‡^ē%Å ˆT‰ē"ÉȈT‰ē"ɔ „””&„”–^:SYSTEM.COMPILER:SYSTEM.EDITOR :SYSTEM.FILER:SYSTEM.LINKER°²ˆ€‡× ‚€É”ˆ€‡× ‚€Ņ”ˆ€‡× ‚€Ś” fFILEHAND„&%$” Ä ¤–)$#”!–=„&%$”"Ä ¤–a-„‡2€P”„„‡1‡0‡/‡.”#Ä ¤3–2m$#”$–z%$#”%–ƒ”&–”'–—”(–””)–³„$”*Ä ¤–Å„$”+Ä ¤–Ó„$Ä ¤–d†E‚k”†€†‚l”†i‚m”†y‚n”†a‚o”†€½‚p€(”†U‚q”†Q‚r”†€Ņ‚s€(”†I‚t”†M‚u”„„„„ „ † ” –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 #c1„„2ҁ`ڇ°”Ō‹*„‚€³€(”‡ց‹‘„‚€“€(”‹„„‚€¾€(”Šx„‚€Å€(”Šl„‚€Ī€(”Š`„‚€Õ€(”ŠT„‚€Ž€(”ŠH„‚€ē€(”Š<„‚€ī€(”Š0„‚€ö€(”Š$„‚€(”Š„‚€(”Š „‚€(”ЇÖå‹ł„‚1€(”‹ģ„‚;€(”‹ß„‚C€(”‹Ņ„‚K€(”‹Å„‚Q€(”‹ø„‚V€(”‹«„‚\€(”‹ž„‚a€(”‹‘„‚j€(”‹„„‚r€(”Šx„‚w€(”Šl„‚|€(”Š`„‚…€(”ŠT„‚Ž€(”ŠH„‚˜€(”Š<„‚¢€(”Š0„‚­€(”Š$„‚æ€(”Š„‚Č€(”Š „‚Ų€(”Ї³Ō„¤„„€(”„‚ż€1”„€(”‚ƒ[”„ׂƒ]”„ׂƒ_””'‰”‡RÕś„'‚ƒa””"±Õ²¤O¤&‡&‡O²Ō‰”‡&¢¤&Šė‰‚ƒi”‰ˆ@”‰‚ƒn”‰”‰”‰‚ƒp”‰‚ƒ‚”‰”‰”‰‚ƒ…”‰ˆDɔ ‰€-”‰„ˆDÉ×”‰€-”‰ˆD ɔ ‰”„'”„'‚ƒŽ””"°Ō„!‚ƒ•Å„!£ Ȁ€„! ”Š ‰‚ƒš”„'”–R÷EŪė8¦øGETCMD Unit d¬„Z„€­Åœ„*‡[Å„.‡Z€P”„Ȅ*„”‰‘@¤\„\‚”„\„€U”„\„.€„”„\€P”–€®Æ'” ˆ'x&”¤„ˆÄ'xē!Ä'xē!ęÄ'xē˜Ä%”"°'xxᰔĖ*System.Library *UserLib.TextBad segment dictionary in file å/„0„0Åœ„„1’’”˜¤1ˆ§°Ōˆˆ½€’”ŠVˆˆ½”Ō ˆ‚Y€’”Š=ˆ€‚a””"ā¼ ā¼ŪڟŌ‹Žˆ€” Ō‹ˆ€ˆ€’”ˆ€”„”„ˆ””"°¤!‡0 Õt’!ŌL„„#¤ #y±”Ō#ē#y„#ꁤŠę Ō"¤1Š ‰‘@¤2„2‚h”„2ˆ€’”„2€P”„”‡1¤1–0C‰¤"ē‰× ¤‰°Ō-"y°%”Ō˜¦Š¦"ę˜°Ō "灒Ä"恦Љ¢¦– is wrong version uses the wrong heap is wrong version too longProgram not found not foundą„„Å„‡ Ť ‡‰Ä(Ÿ‡x±”Ō#ˆ½‡xפ‡ē„¹Ō¤ Ї‡ę ĊÓ(¤!(Ō)‡±Ō ‡‡x¢Äˆ½‡x×ɰԇ£¤ŠŚ‹Ć‰¤¤¤ *'˜±”Ō='ē&× ¤‡É°Ō!‡ēɇ°Ō‡ēɱ‡ē„¹Ÿ”¤ *Ō‡°м*ŸÕI‡'ē&× }±‡°”Ō „‚#’‹+ˆ½‰×¤‡¤‡'ē&× Å ‡z¤‰°Ō ‡ēɦ‰‡ēɱ‡ēɱ”¤ )Ō „‚,’‹Ō‡‰¢Ä‡x%¢¦%¤¤ ‡²ÕŸ'ē&× }¤‡x#¢€€£¤#€€³ŸŌ5‰£¦%£¤ˆ½‡x£×ē%Ä#±ŌˆˆŠ #ā¼ŪĒ Ž ‹Eˆ½"פ‡¤‡'ē&× Å ‡ē 'ęÄ‡ē 'ęćē ćēćē "ćē¤"‡É°Õå‡"ēÉŌ#¤„ ‡ēÅ„„ ÅŠ„ „Ť ¤‰¤#(Ÿ!‡#ę ²”Ō(‡#ę !×x¤$‡$ē„ ¹‡$ē ɔԤ Š!¢¤ŠĶ(ŌN‰ę !×x¤#‡#ę ¤$‡$z‡~°Ō'#$°Ō‡ē ‡#ē ÉĊ‡ē ‡$y#$£‡${¢×xĊ „ ‚7’‹“Š2„ ‡"x‡ē #$£’Ō‡"ēÉŌˆ½‡ę ×ēĊŠ‹_Ї"y³ŸŌ ‡ē‚@’‹H ¢¤‹Zž¤!ˆ½‡x×ē ‰ćx¦Š&‰‘@§°Ō‡°Ō‰‘@‚E€P”Š„‚N’‡!¤$–#3‰€€€’¤€†¤!‡€†²Ō„!€€£×˜Ä!¢¤Šč˜¦€Ą‰¤ˆ½‰£×¤€†„‡€†y¢” #™Ä#燀†z” ‡€†z£¤€‡¤!‡€‡²ÕHˆ½!‰¢×¤€ˆˆ½‡€ˆę ×ę ¤$°Ō‰¤‰¢¦ˆ½‡€ˆę ×ē $Ċ‰"°Ō‰¢¦‡€ˆē $怈ɰÕŲ„$€€£× ” „$€€£×x¤€‰‡€‰˜Ä‡€‰ē‡€ˆ怉ē怉燀ˆę ‡€ˆ~¢Ä‡€‰ē‡€ˆę ʇ€‰ē‡€ˆēŇ€‰ē‡€ˆę‡€ˆę €€° Ź‡€‰ē ‡€†ēÉŹ‡€‰ē ‡€†ēɇ€ˆę €€° Ź‡€‰ē ʇ€‰ē ‰€ĄÄ‡€‰ē #怉ē ʇ€‰ē $ʇ€ˆ}€€°Ō „$€€£×x¦€Ą#y!×$Ä!¢¤‹°žˆ½‰×ę ¦‰°Õgž¤ˆŠ ¶ŸŌO!ˆŠ ŚŌ>„‰€€£×‰ę !×xĄ‰€€£×xēʉ¢¦ˆˆŠ !ā¼ŻĒ Ž !¢¤Ц‰€£¦€Į„‰€Į¢” „ ‰€Į¢Œ” і€‰No file DontCare ?„‘@„’@Å„½‡‘A€’”„€„¼ž’”‡‘@‚„€P”„‚„€’”¤‘B¤€€¤¤¤„Ē Ž ¤ˆ€·” $˜°Ō1‡‘@§°Ō&‡‘@¤‘C„‘C‚„”„‘C„½€’”„‘C€P”ŠŠ#‚„"„Ō¤‘Bˆ6”!Šˆ€·”!„€”‡‘B¤’B–’A" ‰€‡#Ä”–ing...• Մ*‡€Ų€’”„€Ŗ‡€×€P”„€Ŗ§±Ō”'‰„€Ŗ”‰‚„’”‰”„*„’Ō‡€Ö’ Š„€Ŗ§±Ō‰„”‰”–€Ų.Codeč ¬„‡€®€’”„€‡€­€P”„„§§€.°Ō „„§”Š‚„Ģ„€’„§¢”„„€’ –€®*System.Startup.Edit:Runn/Command: X(ecute, S(ubmit, R(un, F(ile, E(dit, C(omp, U(ser restart,? [3.Ax]Command: H(alt, I(nitialize€h,EditFilExecute what file? Execut*X.CodeSubmittCompil U not allowed Restarting...:RunnCompilCX\źåžPl#W Ō„€‡„€Õʼn;”‰:”‰9”‡€ˆ²Ō‚„ö‚„’ ‡€ˆ€0ŚŌU‰ ²ŸŌˆ€‡× ‚… Š>‰ °‡€ˆ°”Ō1¤€‰„€‰ˆ”„€‰‚…€W”„€‰ˆ€f”„€‰‚… ¦‰€½±Ō,‰€¾¤‰€¾¢‰ę¦€¾‰€½£¦€½‰€¼"× ‚… ¦€½¤ˆ^¤€‰„€‰‚…€/”„€‰‚… €G”„€‰‚…-€K”„€‰‚…0€›”„€‰€P””)!”+¤”' €?°Ōˆ^‚…1€P””)!”+¤”' ƒ…?ڟ¤!ŸÕó օz‹ģˆ€‡× ‚…E ‹Üˆ€‡× ‚…H ‹Ģ‰‚…J”‰„€’”‰”„§²ŸŌ„‚…T ‹Ÿ‚…X‚…\ ‹“ˆ€‡× ‚…` ‹ƒ”'‰€Ą˜°Ō‰‚…d”‰”Љ‚…k”‰” ŠQ‰Ō3¤€‰„€‰ˆ”„€‰‚…r€W”„€‰ˆ€f”„€‰‚…s ¦Š ˆ€‡× ‚…v Š  А ŠÕ”ž–€ÖŠ—ŠōūU5y '“  BOOTSEG ”’–’’PASCALSYfFILEHAND€gGOTOXYU A(c) Copyright Advanced Computer Design, 1982 All Rights Reserved ‘#‘†‘„6~Ÿ&~”&ēɰ”Ō £¤?¢? Œ”6ē&ē”Ÿ6&°”¤Š $Ō66瑆? ’’”¤”"‘ !±Ō‘$„” Ÿ”Ō6&ē‘"‰°„”  Õež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..Da„0„bÅ„*‡5”„„-’’”‡2Ą¤7„7‚ŽI ”„7„*”„7”„‘¤)‡)ē¤-‡)}ŌE‡-ē  €dʇ3¤7„7ˆ.”„7‚ŽP€_”„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ˆ@”ŸŌ.†€ē‚€’”‚80‚70†€ē†€ē§”¤€€€.”ˆ.†Y”ˆ†E”‘ 8ŸŌb‚ ˆ&† ˆ /ŌB7Ō5¤„‚€P”„ˆ.€_”„‚€d”„‚‘Ō ‰‚”‰‚”7ŸŌ ‰‚&”7ŸŌ‚(ˆ†ˆ /Ō ‰‚+”‡¤E–D not named‘ ‡²Ÿ”"±‰ēÉ” Ō‰‚‚”‰‡” Š(‰ēÉŌ‰‚‚”‰‡” Š ‰„”‡Ō€€”–4r‰”‘ –§#‘ „4‰ē,ɰŌ€€”4€Y°¤‰” ŸŌ‰”–»#‘ Ō€€”–Ī35‘”"‘–*¤ $§²Ō9$ §€!³$§€}²”Ō"$ §€a³$ §€z²”Ō $ $ §€a£€A¢Č ¢¤Š$ ”ŠĄ$‚ƒh”Ō€€”– ? (Y/N)  ? Invalid #’+„‡0”„‡/”„‡.”¤5˜±ŌT5× ‡-³ŌJ‘ ‰„”‰€ ”‰5× ” ‰€ ”‰„”‰‚ƒ–”‘¤‡,5× Ä ŸŌ?‘ ‰„”‰‚ƒ›”‰‡,” ‰”‡,x‡-³ŸŌ‘ ‰‚ƒ”€€”–0Destroy : ? L=°5˜±”Ō-‘ ‰‚„”‰†E”‰‚„”‘ŸŌ€€”–[*****]ø„„Å%§€[%” %§°ŌE%¤„%€(”„‚„'€/”„€(”%§£%§£¤¤ !³Ō% $ €0¢Č$ ¤ £¤Šę–# Put : in unit ‘ „ ‡”„‚„]”‡ °Ō„€1Ȅ€0‡ ¢Č„‘‡¤‡Ō-„ †‘‡±Ō „„”„†‘³¤ „„ ””¤ ŸŌV‘ ‰‚„_”‰„ ”‰‚„b”‰„”‰”‘‡Ō!„†‘³¤ Ÿ„„ ”Ÿ Ō€€”–Ū „+Å„ɲŸŌ43†I‘5˜±Ō)5× ę¤¤ '³Ō„ ŲÉŌ 5‘ £¤Šē*Ō‘–  ? n E„)‡G”„6‡F”„„-’’”„„)””"°¤H”"°ŌR„6‚„ļ”ŸŌ8‘ ‰„6”‰€ ”‰„)”‰‚„š”‘ŸŌ ¤H€€”„””"‘„”–G -->  „‡ ”„‡”„‡”‘ ‰„”‰€:”‰„”‰ę&¤ €P³ŸŌ€(¤„§¢ ²ŸŌ‘ЉēɟŌ‰‚…;„§„§¢£”‰‚…<”‰„”‰”–  - C1*'4',  “ $„$‰ډ° Ō€€”ˆ‚…‰”Ō€€”‘‘ˆ§€*°Ō/ˆ”ˆ§€:°Ōˆ”‰ˆ@”‰€:”Šˆ§€:°Ō ‰ˆ<”‰ˆ”‰ę&€P³Ō ‰‚…ДБ&%‘$օ“Š?¤Š:‰°†Y‚…Œ””¤Š'‰ƒ…ڤЉƒ…ڤŠ ‰ƒ…‘ڤЉēɟŌE Ō ‰ę&€P³ŸŌ‘Š ‰‚…”‰‘‰°Ō ‰‚…Ÿ”‰°Ō ‰‚…¤”€€”–E „‡€(”į„„†E†Y„†‘Շ‡Ō„” †A†E”†E†‘„5˜°ŌB1³ŸŌ†E§€#°ŌŠŠ1”&”"±1³Ÿ Ō ‰€æ1×|Ԑ†Y‚†K”Ԑ†Y5‘±Ō  –: ? 55‰%x× ¤†q 甆€Ņ¤„†U”„‚†¤€W”„ ē€f”„€(”€Y„„ˆ ‚†„”Ÿ:”Ōa‘ ‰ēɟŌ‰ˆ ”‰€ ”‰ 甉‚†¦”‘ „‰” ŸŌ‰”4‰ē,É°Ō „€€€ ”4€Y°¦'–5B„ ‡”„„ §Č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³ŸŌ‘ Ō ‰‚ˆW”%ֈqŠ$‰‚ˆ^”Љ‚ˆd”Š ‰‚ˆk”Š Ō#%°Ō ‰” Љ” ‰‚ˆv”Š ‰‚ˆ~”€€”–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‘–lYF„*‡M”„7‡L”‘„‚Šr€P”„*†U†€††i†€Ņ$1„†I†E”‡K²ŸŌ€€€#”†€ē‚Šs”‡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‚ŒL”Ÿ†A§€#°”13°”‰€æ1×|”1³Ÿ ŌL‘ 1³ŸŌ$‰‚ŒM”‰†E”‰€:”‰”Љ‚ŒQ”‰”‘†€½€ųĒ‘1ŚŌ‘ ‰”‘(ŸŌ€€€,” ²ŸŌ‘††€½””"¤#±Ō †€½€šĒ ą0²ŸŌ 0‰‰ąŒ¦1?‰ąŒ%x‰¢‰ ‰Œ¢””"‘1?‰ąŒ#x‰¢‰ ‰Œ¢””"‘‰‰¢¦‰ą‰ ą³Ō$#x‰ ¢Ä%#xđ–CrunchFrom end of disk, blockStarting at block #forward back : crunchedPlease re-bootä5‚šA‚šE€@Ē‘#‚šF‚šR‚šS5× y„ ‘„ ‘@¤ ‰ēŹ‘ ¤ ‰”„‚š] ”(£¤¤ )-²Ō(5)× ¤.x5)£× y²ŸŌ..ē5)£× ēD)¢¤ ŠÓ5× ¤¤ „‚šb ”5× ę(¤¤ )-³Ō 5)× ¤.y'³ŸŌ.ē.„D.x¤)£¤ ŠŪ‰†E”‰‚še”‰”,Ō‰‚šk”‰”ŌŠū‰ēŹ–€¼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 [A.x]&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 [A.x]&Filer: W, B, E, K, M, P, V, X, Z [A.x]BWarning units  &  have the same namePrefix titles by Prefix is BZt„ €l-ˆ$ ph|x9‘†€ē‚›€’”¤<Ō‚›EŠ‚›9E4€?°Ō<Ō‚›MEŠ‚›u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 CodeTextInfoDataGrafFoto9:††E’’”‰Ÿ‰ˆ&‚œ…”Ÿ” „ ‰Ÿ‰ˆ‚œ”Ÿ” „‰ę&€P³‰ēɟ”„ †” „†” 0¢„”(ģģ¢D¢¢³Ÿ”(²Ÿ”0 Workfile is (not saved) No workfile’ ‘‰‰ ŌQˆ.‚ś”Ō ‰‚ū”Š'‰‚”‰ˆ”‰€:”‰ˆ.”87”ŸŌ ‰‚”Š ‰‚”–Ä ¦¦ˆ.‚J”ˆ&‚K”ˆ‚L”–Throw away current workfile ? *SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE*SYSTEM.LST.TEXT.BACKRemoveWorkfile clearedŪ!6„,„7Å„„-’’”87”ŸŌ‘ ‰‚c”‘ŸŌ€€”Š ‡,Ō‰”‚s‚|‘Ō‚}‚†‘Ō‚‡‚‘Ō¤-„-ˆ.”„-‚‘”„-‚”‘Ō„ „‡,Ō‘ ‰‚˜”‘2„”–7:& "?„ „@Å„,”„+”¤¤„ˆ”„‚ņ€W”„ˆ.€f”„„€k”„€€Ē‘=°ŌB¤¦*¤„ˆ.”„„”„”)ˆ”‰Ō ‰‚ó”‰„”-¤D–CGet.TEXT.CODE.TEXTText .CODECode No file loaded£# ‘3‚‘C‚‘E€Ē‘#‘2ˆ†E”ˆ.†Y”ˆ.§¤"£²¤‘ Ÿ¤!"²Ÿ”Ō7ˆ.„"£”„‚‘F”ˆ.„"£”„‚‘I” Ō ˆ."£”ˆ.§£²ˆ.‚‘L”Ÿ”Ō$‚‘M‚‘Pˆ&ˆ5¦‚‘S‚‘Vˆˆ5¦¤!Õ{’‰‰ ŸŌ ‘2‰‚‘Y”‰‚‘[”– Ź#†€ē†€ē§€-†€ē” ”†€ē”–&$¦†€ē§€-†€ē” ¤ ¤¤!"²Ō&†€ē!§ˆZŠŚŌ‰ Œ†€ē!§¢€0£¦!¢¤ŠÕ‰²Ÿ‰%²”¤–%Date set: <1..31>--<00..99> Today is New date ? : The date is 4&-‰‚’”‰”ˆDɱŌX‰‚’'”‰ˆDɔ ‰€-”‰†€“„ˆDÉŒ¢”„”‰€-”‰ˆD ɔ ‰”‰‚’,”‰†€ē€’”‰”†€ē‘8ŌˆD ʐ7†€ē§²ŸŌr†EȆ€ē†E”¤¤ !²Ō&†E §€A³†E §€Z²”Ō†E †E §€A£€a¢Č ¢¤ŠÕ ¤¤ !²Ō&†€“„ Œ¢”„†E”ŌˆD Ź ¢¤ŠÕ7€c8ŌˆD ʤ„ˆ@”„‚’2€W”„€@Ē‘=°1‰z°”Ō5× ē ˆDÅ15‘‰‚’3”‰ˆDɔ ‰€-”‰†€“„ˆDÉŒ¢”„”‰€-”‰ˆD ɔ –-­&‰…+‰ę%°‰…+° ŌO‘‘ ‰…+°: ŸŌ‘‰€æ2×|Ÿ: Ō‘ ˆƒś”ˆƒś†I”ˆƒś€:”¦…+‰Ō ‰ę%¦…+ˆƒś”‰…+¢¦…+– < UNUSED >#'$%£¤ ‰…*²ŸŌ ¦…*‰…) ¢¦…) ²Ÿ‰…1”Ō9ˆƒś‚“X”ˆƒś ” ˆƒś‚“^ ”<Ō ˆƒś%” Š ˆƒś%” ’:–Dir listing of#1:ListWritingfile files, blocks used,  unused, in largestš*I„…1„…JÅ„ƒś„…&ž’”‚““‚“›į€ĄĒ‘#†€½‚“œ”Ÿ¤ Ō„5ŃöŠ †€½‚“€(”„ƒś†€½””"‘ Ō5„Ńö¤…-¤…,¤…+¤…*¤…)¤…(5× y¤…'¤†€†‚“Ÿ”Ō9Ÿ5× ę°”¤„ 9Ԑ:Š ‰ę%¢¤…+!ŸÕy‚“ „…,‘ Õj‰€æ2×|:Ÿ”Ō‡…-°Ō‘‰‚“£”Š ‰€.”‡…-¢¤…-5‡…,× ¤….5‡…,£× y‡….x;‡….y‡….x£¤…(‡…'‡…(¢¤…'„ƒś‡….甄ƒś‚“§‡….ē§£¢”„ƒś‡…(” „ƒś‡….ē É” „ƒś€-”„ƒś†€“„…2‡….ē ÉŒ¢”„…2”„ƒś€-”„ƒś‡….ē  É” ‡…1Մ<ŌM„ƒś‡….x” „ƒś‡….ę ” „ƒś‚“Ø”„ƒś†€¬„…2‡….ēÉŒ¢”„…2”„ƒś‚“©”Š4„ƒś‡….x” „ƒś€ ”„ƒś†€¬„…2‡….ēÉŒ¢”„…2”:‹‡ž> Ś! Õ¾9Օ5‡…,× y5× ;„ƒś‡…-” „ƒś€/”„ƒś5× ę” „ƒś‚“¬”<Ō„ƒś‚“°”„ƒś‡…'” „ƒś‚“¹”„ƒś‚“Ą”„ƒś‡…)” „ƒś‚“Ā”„ƒś‚“Ę”„ƒś‡…*” „ƒś‚“Č””"‘ Ō„” „ƒś”„ƒś””"‘„ƒś”–…JĪ*‰ē%¤‰ x£Œ‰ x£¢”‰¢¦– Vols on-line: # Root vol is - Prefix is - ä+¤‰”‰‚•h”‰”‰ę ¤„1!²Ō 1”&1¢„Šš†E†‘„‰ę ¤„1!²ŌP‰€æ1פ"‚•o”ŸŌ5=‰1” "|Ō ‰‚•p”Š ‰‚•r”‰"”‰€:”1¢„Š«=‰‚•s”‰ˆ@”‰€:”=‰‚•{”‰ˆ<”‰€:”– Zero dir ofDuplicate dir ? Are thereblks on the disk# of blocks on the diskNew vol name ? : : correct ? : zeroedk- „” ¤‚•ó‚•ł€HĒ‘#‘‰‚•ś”‘Ō ¤‚–‚–‚–!„‘‰‚–”‰†€ē€’”‰”†€ē‘†€ē†€ē§§€:±†€ē‚–%”Ÿ”Ō!†€ē¤„†€ē€’”„‚–&€’”„€’”†€ē€DĒ‘‰†E”‰‚–'”‘Õ~’„Ź„†E”„ ˆDÅ3†I‘3„””"‘‰„”‰‚–.”– File(s) endangered: Directory.†ɲŸÕ‰‚–·”‰”€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¬/‚—E‚—N€HĒ‘#‚—O‚—T‚—X„‘¤¤ $£¤#0²ŸŌ0¤1?#Œ$””"±ŌU$$#¢£¤¤"%²ŌF1?"””"±Ō,!¢¤„‘@‰‚—e”‰"” ‰‚—i”‰”"¢¤е$#¢¤$ ³Õ}’‰!” ‰‚—m”‰”‘?–Examine blocks onBlock-range ? Fix them ? Block may be ok is badMark bad blocks ? (files will be removed !) (Y/N) BAD.xxxxx.BADBad blocks marked@3f‚—ׂ—ą€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’‘‰‚˜ ”–‚fMoving SYSTEM.PASCALSYSTEM.INTRINSSYSTEM.DRIVERS€45‰ × ¤ ēɱÕ™¢”‰ˆ”‰ 甉”†Eˆ@”Ō' ē‚™¦” ē‚™­”  ē‚™µ” ‰  ¦ $x%x£¦ ¦‰ ‰£¦‰  ³¤‘¤„†€—‘ ¤!ƒ‡óŚŌ"²ŸŌ‘‰€ ”‘"£¤ŠŠC!€5°Ō('”('‘¤Š/!±!€'±”Ō% ƒ‡÷ŚŸŌ ‰ē+ɤ‰ ”&" Č"¢¤"€P³!° !€'° Õw’!€'°Ō&‚‡’€P”¤ Š &"£Č¤ ‰”–  what marker? DV„+‡X€P”„€’‘‘‰„+”‰‚ˆ[”„+§¢„‘"Ō„§¤T¤ ‡T²Ō„ „ §‘ Č ¢¤Šč„‡W„§‘”‡W„§„§£‘€ ” –XBad disk transfer.d‚ˆ£‘–Č…€•¢…€”³¤ ŸŌK$°Ō$…€•¢„€•†)†‡:…€•…€•¢”±Ō‘8Š"…€”£„€”†)†‡:…€”…€”¢”±Ō‘8 Ÿ¤–8$°…€•²”$°…€”…€“³” ¤ ŸŌK$°Ō$†)†‡:…€•…€•¢”±Ō‘8…€•£„€•Š"†)†‡:…€”…€”¢”±Ō‘8…€”¢„€” Ÿ¤–.copy buffer in middle of buffer! tell richard!ö ……1³Ÿ”Ō‚‰‘…Ō … £¤Š9¤¤*°Õš1¤#%9č£‘£³Ÿ&”Ōy*‘&¤&Ōmį†‡:’” ¢¤†‡:># ”…„[£¤¤$'²Ō/†„Ō$×x…€”£°Ō†„Ō$×įƄņ$׆„ņ$×x#¢Ä$¢¤ŠĢ# ¢¤‰€.”‹s’#„>1ȋ¾%1£¢¤!£¤#‘ >>!1”#Š³&”Ō*‘&¤&Ōs’ᆇ:’” ¢¤†‡:># £¢ ”# £¤…„[£¤¤$'²Ō1†„Ō$×x…€•¢°Ō†„Ō$×įƄņ$׆„ņ$×x#¢¢Ä$¢¤ŠŹ‰€.”‹x’%#£¤01£"¢„#į‘ "„>#¢>"”>1Ȗ $EQUAL =±Ō0¤=„‚‰ü‘2„!„ „–$EQUAL O‚Š„‘*Ō†„Ō ×xį°Ō „!†„ņ ×x„– pb overflow$%³Õ©$%£¢²ŸŌ‚Š)‘>%†‡:$%£¢”†‡:$%£¢’$%££” ‰ ‘'¤…„[£¤¤ !²ŌT†„Ō ×xį°†„ņ ×x%³”†„ņ ×x$²”Ō-‰ °Ō †„Ō ×…€•ÄŠ †„Ō ×…€”Ć„ņ ׆„ņ ×x%£Ä ¢¤Ч‰€.”Ф– allRan out of disk roomcbuf in buffer.. tell richardRan out of disk roomĪ 01²Ÿ¤'Ō ‰‚Š‹”‘9+°ÕÉ0€Č£‘¤¤!ž¢ ‘¤"!ž¢°' ¤&Ō3’į >"” "¢¤!$³ŸŌ!$;¤&Ō$¢¤Š‚ŠŽ‘Ф&Ÿ" ° Ō¬……1³Ÿ”Ō‚Š™‘1!£¢„>€?° Ōφ€“‚œ•€0”†€¬‚œ®€ ”‘‰€æ2×|Ō†”І”Ō憔–ś¾t*tÉ4S„`ĻēŌ;öb¢N“R4ł _ ¼ ū ÷ ¶  Kˆ! u ©,©M@óĖi, £j`V;4weŠ\SNID?93!Ą€E’’PASCALSY’ EDITOR €| LISTDIR ‚ŃRECURSE „īINITIALI…‰ OUT ƒ$ŽCOPYFILE†-ENVIRONM‡6˜PUTSYNTA?±EDITCOREˆ@¶%GOTOXYU 7 Copyright 1981, Volition Systems. All rights reserved.{ EDITOR $#³ŸŌ$¤Š#¤–2$#²ŸŌ$¤Š#¤–ī…‚}²ŸŌW†‚~…‚}£×¤†„"xפ#y"y¢#x³Ō#"z²ŸŌ"ē"z£Ä"ēĊ…‚}£„‚}‹ø’І‚™#y"y¢§¤"ē"y¢ÄŠT„ ”„§¤‰” Ō ¤…‚{Ō3†„…‚|פ"x"y£€P³Ō‰”""yÄ„‚{Š †‚™"x!Č""x¢Ä!¤–BG„‡H€‡”†‚~…‚}פE†„פF‡F‡Fy„§¢Ä„†‚™‡Fy„§”‡EćEēćEēą‚}¢„‚}–Hž-…‚{Ō †„…‚|×x£¤†ł)xŲɤ$€;°Ō‘¤†y#ŲɤŠé…‚{$€9°$…‚|€)¢° ”Ō&„‚{†„…‚|×"ą€’Ÿ…„Y”Ō‘ ‘)‘ċ•’Šm$ƒ€¢ŚŌQ$€)£¤…‚}²ŸŌ‰”„‚}Š(†‚~…‚}פ†„!פ%!Ä%ēÄ%ē(xą‚}¢„‚})‘Ä(ċ;’Š$€9°Ō …„Y‘.)‘ċ&’$¤ – ž’’X#ƒŚŌ#€ £¤Š#¤–y$°Ō€€¢¤„$Ȁ„ ”–#Ō ‰ēɑ4–&:L`t U‰ē¤$ցH‹…!ēɑ4Š{ ‘4Šv!ēŲɑ5!ēɑ4Šb!ēŲɑ5!ēɑ4ŠN!ēŲɑ5!ɑ4Š )††²7Ȇ†ö††²€‡”‘‘‰††²”…‚{††²††²§§€?°:††²§£³ ”Ō0:£”‰€<”‰€1…‚|¢”‰‚‚Z”††²§”–5‘4‘ –t‰ē ɰŌ$#°Ō‘‰††ö”‰”Š #”#‘Š#”‘–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 ?g††²‚‚’€‡”‘ „$„€’‘–š„„Y…"Ō „ „"Š…€’Ō‘6‘„††€—‘ „ „„Y–ö&¤¤>&§ƒƒNŚŌ7>&§°Ō&¢¤!>&§¢€ £¤Š>&§€ °Ō!¢¤Š !¢Œ¤&¢¤о%& £Ä!¤–‹‘¤…€¤$†‘:‘„4 ”$5¢¤’ >$” ¤ ;³ŸŌ :4£¢¤Š:4£¤!#‘‘¤>$"¢§ °Ō €>$" ”Š€>$#£ ”‰€!”$!¢¢¤ ¢¤ ;²Ÿ$1³ Õ|’–>0§ °Ō0¤Š0¢¤¤'Ä!£¤’į >!” !¢¤''x¢Ä'x&°Ō!¤'x;²Ÿ…€!¢°%Ÿ” !³Ÿ ŌÄ'x;²ŸŌ ¢„€‘'&Ċ …€!¢°Ō%Ō‘Š ¢„€ ±Ō'&đ–p'ą€¤’ >#” #¢¤"0³ŸŌ''x¢Ä"¢¤’ >#” #¢¤ŠŻ#„‘¤(: !£0#£¢‘Ė „„‘! ”–’’Repeatfactor > 10,000 ¤¤6ƒ„BڟŌ¤Š( č²ŸŌ¤Š Œ6¢€0£¤‘„6ƒ„Fڟ! ŌŲ!Ō‚„J‘„ ¤Š †„‘ „ ¤–CRecordSpecialKey: OR €žrecordedę #Ō††Z‚„…€P”‘„€’‘‘„†ł6ŲÉ„ <€;°Ō‘„†y6ŲÉ„ Šé<ƒ„§ŚŌŃ<€'±Ō5„‚{<€)£„‚|…‚|‘-†„…‚|פ ē‚„« ” yÄ#Ō‘ „€’‘Š‘6– 0„>3§ °Ō3£„’į >3” 3¢¢„3†‘„35¢„–8No room to put text into copy buffer. Is that ok? (y/n)¬ $#£ą91£ ¢²ŸŌ††Z‚…€P”‘€N‘,¤„Š(„$#£ą„9…£¢„>$#‘>……”¤– '&”))x(¢Ä’ >)x” ¤&;³ŸŌ :'£¢¤Š:'£¤ "‘‘¤>)x!¢§ °Ō €>)x! ”Š€>)x"£ ”‰€!”))x ¢¢Ä– { &Ō‘$”$‘†54$‘Š>%Ō †€–…€‘‘Š0$”$‘‘3¤ †‘:‘„„54$‘$¢¤$;²Ÿ 1³ ŌŽ–Ÿ +‡.„€O”‡-„×xć,„×xĖ.:/ W„,‡X€P”‚…Ń„,”¤ ²ŸŌ„, ”„,§€*°Ō„,”‡Y„€O”„,„€&„,§¢‘”„ʄʄ €dŹ„„€8”¤„„€$”„‡Y€O”–YR +‡,„€O”„×x„×x£¤-–,x +†)„€O”„ ׇ,Ą†)€O”–,cbuf in buffer. tell richard …„[£¤¤ !²Ō2†„Ō ×xį°Ō†„ņ ×x%³Ō†„ņ ׆„ņ ×x$¢%‘Ä ¢¤ŠÉ=%²ŸŌ =$¢%‘„……%³”…1³Ÿ”Ō‚†=‘–( #……&€ °4±”Ä>2§ °>2§……&° #x ¤– †B„ ć0¤‡„‘„ 7Ō *ŸŌ€€€!”.ŌB¤ 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£§ °Ō1>0§°Ō¤ Š%‘„ 7¤ (ŸŌ>!'¢£€ Č>0£§€ °Ō!£¤&'¢¤!'¢¤(Õcž‡%0£!¢1£‘ %0£!¢„>0>!%0£”>1Č"!³Ō"0!££¤1£"‘„‘02‘„–@’’’’’’’’’’’  ”’ †‰§‚‚¾€P”†‰~‚‚æ€P”ᦔ€–z,|$PROFILE???.TEXT.BACK.TEXT.TEXT!¤„T„€„Åœ„„-’’”„)„U’’”‚ƒˆ”¦‰±Ōˆˆ.‰’Š ˆ.‚ƒ€P”‚ƒˆ”¦‰±Ōˆˆ‰’Š ˆ‚ƒ€P”ˆ.§²ŸŌ?‚ƒˆ.”ˆ.§°Ō-ˆ¤U„Uˆ€P”„U‚ƒ€ ”„U€P”ˆ.ˆ.§”‚ƒˆ”±Ō ’¤T‹ķˆ.§²Ÿˆ§°”Ō ˆ.’ ¤T‹Ļˆ.§°ˆ§°”Ō¤T‹øˆ.§°ŌG†‰§ˆ€P”†‰§‚ƒ ’†‰~ˆ€P”†‰~‚ƒ#’ˆ+†‰§€P”„)ˆ+””"°¤TŠh†‰§ˆ.€P”†‰§‚ƒ&’†‰~ˆ€P”†‰~‚ƒ)’†‰§ˆ’ Ō1ˆ+†‰~€P”„†‰§””"±Ō „)ˆ+””"°¤TФT„”„)”‡T¤€„–€¤ *CREATED&File already involved in edit. File? Not present. File? - ¬¤ ” ¤‰††Z” ††Z§ ”€††Z§ „”€"ŸŌ’ „§°Ō7„W‚„€P”„W…‰Ņ€1¢Č¤€€„€€‚„”„€€„W€X”„€€ Ÿ¤ŠŸ¤#ŸŌ$†‰§’Ō††Z‚„!€P”¤Š ††Z‚„5€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’’”†)ˆ+”†)†„Z”±Ō‚„˜”€…„Z³ŸŌ‚„””€†)†‰~”€1†)”†)†‰~”„ †‰§””"±Ō‚„¹”€„ ”€0¤"…€“³ŸŌ„ ”†)ˆ+”€1†)”‚„Å”€””€‰‚„Ö”‰†‰§”‰”"…€“£¢„€”¤…€”…€”¢¤…„[£¤1¤&‡1²Ō†„Ō&׆„Ō&×x…€”¢£Ä&¢¤Šß…Ō … £¤Š 9£¤†)> $”¤”"±Ō‚„Ü”€!²ŸŌ%„ >!#”!±Ō‚„销”"±Ō‚„ō”€#!¢¤$!¢¤!²Ō©„ ”"„€“†)”†)†‰§”„ ”–1$CURSOR too deeply nested in edits nested Edit: [ASE 0.6c.ASE!recurse: disk error· ‚‚…Ī”!>1£”>1ȅ„[£¤ ¤%(²Ō)†„Ō%×xį°Ō†„ņ%׆„ņ%×x!£¢‘Ä%¢¤ŠŅ0!£¢„Š~1£¤0¤0€Č¢1£‘„‘3¤!ž£ ‘¤"!ž£°¤&Ō4’ >"” "¢¢¤$!³ŸŌ$!;¤&Ō$£¤Š‚ŠØ‘Ф" °&Ÿ Ō­!¢„>1Č1£#‘„‘:– ā#x3³Ō##x‰¢Ä–+0¤%x„‘23£²ŸŌ/>2>3¢12£”3¢2£¤3!‘ „<†<%<>3Č>3¢4€ ¢Č „–No more editing room.l…€”…€•££1Ą¢#¢³ŸŌ ¤‚‹—‘Ф–Æ„(Å'Ƅ\'xׄ¹Ÿ'x…„[£³Ÿ”Ō''x¢ÄŠą'x…„[³Ÿ†„\'xׄ¹”¤ – ठ€’³Ÿ% ŲÉ$±”Ō ¢¤Šé% ŲÉ$±Ō¤ ¤– ‰‚‹ń€P”‰†ł‰’=ȉ§°Ō ‰‚‹ņ€P”– T#‚Œ €P”#†ł€;=Č#§°Ō>Š#†y$=Č#§°Ō>–@£$Ō ‰„”Š‘¤„†€—‘ „&…&€'°Ō%¤ ‘ ¤ ƒŒ+ŚŌÉ €Y°¤–å…‚}£¤¤ !²Ō,†‚~ פ"x$°Ō†„"xפ"ē#x#y£Ä"ēÄ ¢¤ŠĻ–ˆˆ‘*ԤРˆ§€$±Ō …„[£¢³¤Š …„[¢³¤–Marker Overflow. ¬ „)Ő?Ō‚Œ‘Š^…„[¤„‚Œ˜¹ŸŌO…„[£¤¤!&²Ō†„\!ׄ¹Ō!¤!¢¤Šå†„\ ׄņ„ņ ×0Ć„Ō ×įÄ …„[°Ō…„[¢„„[– e†Q†‚}’’”†)†‚U’’”€…””…€…”‘02‘„†€–;¢‘„€’„‚y€ˆ””ˆ€ˆ”<°Ō€‡””‡€‡”Š'<°Ō€†””†€†”Š<€"°Ō €„””„€„”< °Ō³€ƒ”†'‚Œ×”ƒ€ƒ”…'Ō‡‰ēŹ”†Q”†)”–u ō Ś i 0   ®„'?.Ą Ó+±T 2  ø £ s “ę“ 6 d”M’X-õV:ČR—ųēS6}]!§yżŌ?­ŠŁ €?ŠLISTDIR  **ø,„‡/€P”‰”‰¢¦‡.‰„ć£²Ō ‰‚”Ц„°‰‚”‰ €z²Ō'ˆ ‰ ”€ €A£Ų‡-ʉ‰ ”‰ ¢¦ Š ‰€ ”‰€ ”‰„”€†‰: „§£”‰‡.” –/ files.  free blocks ( contiguous; "**" too big).S;”‰ˆ× ę” ‰‚]”‰‰” ‰‚b”‰‰” ‰‚j”‰„°Ō ‰‚p”‰‚x”–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 ”€ ¼ƒ3ŪŚ…&° Ō“%…&°Ä%xŸŌm6€?°Ō ”€ ’Š]6€ ±ŌWˆ„ ˆˆ 6€A£ŲÉ× ē€P”ˆ„ ‚7ˆ„ ””¤„ˆ„³€P”„ˆ„ € ”„‰„߀𔄔€ 6€?±Õ ’––#‰²ŸŌ#¦‰#¢¦–¶$x¤„§„„„§Č„6Č$ Ėˆ× y@ڟŌ9€M¤¤ !²Ō-ˆ × ¤" "ē °Ō "ē "ē Š"ē  ¢¤ŠĪ–:?*: 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ƒ…„Z±Ōb†„Z” „…"„…!„… €.„…&„…#„…%:„…$„…*¤¤ !²Ō†… ŒŲŹ ¢¤Šé†…'ˆDÅį„…)†…(ˆDÅ„„Z…„Zį„„Z†)†„Z”±Ō‚o”€…„Zą„„Z– 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),”‰‚F”‰”…‰Ņ¤¤ "³ŌR†‰Ó × ¤…‰Ņ £¢¤!”‰ ¢” ‰€.”‰”!”‰#ē”!”‰#” £¤Š©–Y+„„-’’”„‡,””"°¤-€‡,”„”–,.ASE!.TEXTԁ„V‡€‚€P”„.„Z’’”„„V€P”„‚±’„’Ō¤€ƒŠ.„V‚“’„.„V”„.„„”€3†)„„”€3#!°" °”¤€ƒ„.”–€‚†€–…€‘”€†‰~†‰Ó…‰Ņ× €P”†‰§†‰Ó…‰Ņ× ē€P”€„”–$ exists. Do you wish it destroyed? u$’Ō)‰$”‰‚‚ ”€N”€,¤‰”##x¢ÄФ–.TEXT Can't create . File? !ˆ„U„€‰Åœ„)‡U€P”„„-’’”„)‚‚<’„)ˆ’ ŌS†‰§„)€P”†‰~‚‚?€P”„†‰§””"±¤V††Z¤W„W‚‚@ ”„W†‰§€]”„W‚‚G€f”„W€P”ФV„”‡V¤€Š–€‰4? Looks, Creates, Exits or Filename: u††Z‚‚˜€P”–,'z†)ˆUˆT”€31Ą…€“…€”£¢…€•¢¢Œ¦Vˆ.§²ŸŌ"„¤*„*‚‚¼€P”„*ˆ.€ ”„*€P”Š „‚‚½€P”€‚”ˆį‰U‰T‰V„”‚€‚”¦  >1 Č1¢„‡„ŸŌ€>„„"€ „€˜„„„>1Č„€”€2„„!†)……)¢„…)‡„ŸÕ‰€’¤„¤$‡„²Ō †$$Č$¢¤Šķ€A€Z¤„¤$‡„²Ō †$€AČ$¢¤Šģ€a€z¤„¤$‡„²Ō †$€AČ$¢¤Šģ€0€9¤„¤$‡„²Ō †$€AČ$¢¤Šģ† € Ȇ € Ȇ†ö‚‡/€‡”„ ”–„X£Œr_…±­‡Ū:šHęŅČŃØc 1…OUT $LAST Q…‚}²ŸŌ†‚~…‚}£×x°Ō€ƒ”‚„”€*Ō†„Ō ×įƄņ ×0Ė$LOG $The log is not in the edit buffer. Log Entry? (y/n)Entry:  cM$LOGM$LOGqn06‚*„”€*Õo€&„”€+„”€+„ ”€+„ ”€+„”€+„”€+†„Ō ×xį±Ō ‰‚.”‰‚A”€N”€,Õ ‰”‰‚J”¤7„7††¬ ”„7‚N€Z”„7”€ ˆ‚ ‚O”ŸŌ+ˆ‚ ¤7„7‚P€P”„7ˆ‚ € ”„7„€¢”„7€P”„”€"՘¤7„7„”„7‚Q”„7„ ”„7„ ”„7„€[”„7„€]”„7„€_”„7„ €a”„7„€c”„7‚T€h”„7„€j”„7‚W€ŗ”„7ˆ‚ €’”„7ˆ‚ €’”„7‚X€’”„7”€ €ƒ”Š€ƒ”Š…&€'°Ō€ƒ”‰”–6>Quit:# A(nother file (after Updating)" B(ackup and re-edit same file( C(hange the name of the output file% E(xit (but workfile not updated)1 R(eturn to the editor without doing anything# U(pdate the workfile and leaveOutput File Name: Backup File Name: (Files being edited (most recent first): 唀††ö‚€‡”‰††ö”‰”‰‚”‰”‰‚0”‰”‰‚B”‰”‰‚W”‰”‰‚j”‰”‰‚ƒ”‰”€2„‚…Ņ€P”„€’„‚y…‰Ņ³Ō‚…Ó”€€„””€††²‚…ဇ””€ ‰‚…锉€]”†‰Ó…‰Ņ× ē†‰§”†‰Ó…‰Ņ× †‰~” …‰Ņ¢„‰Ņ”€„W†‰Ó…‰Ņ£× ē€P”„€€‚…€€„W„W§£”€ƒ”„„W”ƒ€ƒ”††ƒ‚…ń€P”„€•„€”„„”€†‰~§°ŌW†)†‰§”†)”€0„€“…€“Ō…€“£„€“†)>…€“Œ£”±Ō‚…ņ”€†)”†„Z” …€“„€”†)†‰§”†)”€0„€“†‰~§²ŸŌ> Č”€$>1£§ °1° Ō1°Ō >Č>€ Č„>1 Č1¢„>1Č„€……)¢„…)„”€02”€„0„†€–…€‘”€–€‚-Į“M@ šø˜[ŅyY ż„ˆ INITIALI.TEXTĮ}„-„~Å„‡-€P”¦ ‰ ‡.§²Ō ‡.‰ §€ °Ō ‡.‰ ”Љ ¢¦ ŠÖ‡.§¤*¦ ‰ ‡*²Ō‡.‰ ‡.‰ §”€ ȉ ¢¦ ŠŽ‚‡.”‡.§£°‡.§³”Ō ‡.‡.§£”‡.¤/„/‡.€P”„/„€ ”„/€P”–9…„Z±Ōj†„Z” „…"„…!„… €.„…&„…#„…%:„…$„…*¤¦ ‰ ²Ō†…‰ ŒŲʉ ¢¦ Šā†…'ˆDÅį„…)†…(ˆDÅ„„Z–writing page zerow…„Zį„„Z#†„Z”±Ō‚€ž”€…„Zą„„Z– M JM$SYNTAX$LAST JM$LAST““„‚€½€P”„5”€+€:„2”€+€)„/”€+„8”€+„*‚€¾Åˆ^§”€¤;¤.‡.‡;²Ō„*‡.£ˆ^‡.§”€ ȇ.¢¤.Šß„*†€–”€*ŌD„¤;„;„8”„;‚€Ā€T”„;ˆ^€¤”„;„5€Ø”„;„2€¬”„;„/€°”„;€P”‰ ²ŸŌ-„¤;„;„€P”„;‚€Ć€Y”„;€P”¦ ¦ ¦ Š+‚€Č†€–”€*Ō„¤;„;„€P”„;‚€Ģ€W”„;€P”„”€ –€“Reading Page Zero/File bad (previous edit session not terminated)/Not enough room in directory/volume to edit in! Copying to $SYNTAX $SYNTAX Read Error on Input File.Ran out of disk room.Writing backup file.Š0„„4’’”†)†„Z”±Ō‚\”€…„Z³ŸŌ‚e”€†)†‰~”€1†)”†)†‰~”„†‰§”„”€0¤”"±"…€“³Ÿ Ō„”†)ˆ°”€1†)”‚}”€‰ ”€‰‚•”‰†‰§”‰”"…€“£¢„€”¤…€”…€”¢¤’‰ ²ŸŌ[€”‰ ††ƒ”€”‚›„”€*ŸŌ$…„[”€¤%…„[°Ō…„[¢„„[†„\%ׂŸÅ†„Ō%׉ Ä†„ņ%׉ Ċ ††ƒ‚£€P”…„[£¤0¦ ‰ ‡0²Ō"†„Ō‰ ׆„Ō‰ ×x…€”¢£Ä‰ ¢¦ ŠÖ…Ō … £¤Š 9£¤†)> $”¤”"±Ō‚¤”€!²ŸŌ%„>!#”!±Ō‚±”€”"±Ō‚¼”€#!¢¤$!¢¤!²Ō©„”"„€“†)”†)†‰§”„”–0>Edit:ReadingĒ”€‰‚‚É”‰”‰‚‚Ķ””€$–õ+„„-’’”„‡,””"°¤-€‡,”„”–,.ASE!&File already involved in edit. File? eU„*‡V€P”„„*€P”„‚‚’’„’Ō††Z‚ƒ€P”¤WФW–V$ exists. Do you wish it destroyed? Ϥ$’ Ō¤Š.$’Ō'‰$”‰‚ƒ4”€N”€,¤‰”##x¢Ä–.TEXTCannot create . File? Creating No room or disk removedFile system terminal error`_„,„`Å„„-’’”ˆ5‚ƒi’„ˆ5””"°Ō1††Z¤-„-‚ƒl”„-ˆ5€^”„-‚ƒt€g”„-€P”¤,‹Ė„”ˆ5ˆ ’ Õ“†‰§ˆ5€P”‰‚ƒy”‰†‰§”‰”†‰~‚ƒ~€P”„”> Ȇ„Z” †)†‰§””"±Ō‚ƒ”€†)”€0„€“…€“Ō…€“£„€“†)ˆ‚…€“Œ£”±Ō‚ƒ‹”€†)”†)†‰§”…€“„€”¤,Ф,„”‡,¤`–_gap?  °Ōvį°Ō‰‚„6”‰„” Ё¤†” ¦ˆ” ‰¢¦”(¤!²Ÿ!"³Ÿ”‰€?° Ō׉Œ£„ 9³ŸŌ’„ 9Ó0”€„ Š †” „ ˆ” ‰Ė S /„„0Å„‚„„”„€0% ¢Č„€0% ¢Čˆ*¤„ˆ*€P”„„€R”„€P”–0-} Qˆ*¤„ˆ*€P”„‚„«€ ”„€P”–Q'xxxJanFebMarAprMayJunJulAugSepOctNovDectakeup?? ¬†„£×¤[„*‚„Ą€P”ˆDɐ„‚„Į€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ƒ „‰Ń„‰Š€’¤¦‰ ²Ō †ł‰Ųʆy‰Ųʉ¢¦ŠŁˆ ‚…Œ””"±Ō‚…•”€ˆ ˆ ”±Ō‚…””€€¤¦ ‰ ²Õ£ˆ ‰ פ!ēɀ<°Ō!ēÉ„‰Š!É„‰ŃŠq!ēɰŌ-†ł!ÉŲ!ēÉŹ!ÉŌ†ł!ɐŲ!ēÉŹŠ:†ł!ēÉŲ€;ʆy!ÉŲ!ēÉŹ!ÉŌ†y!ɐŲ!ēÉŹ‰ ¢¦ ‹U’–4? Looks, Creates, Exits or Filename: Ė ††Z‚†C€P”–Not present. File?  †‰§’ ԤІ)ˆ°””"°¤††Z‚†g€P”–B ,„„-Å$%„#¢%§#£”„€P”%#%§#£¢”–/Ļ ’‰€.”„‰Ņ„„Y„€—„‚}„‚{¤„€–…€– ²Ō&†„…€–פ!ē€P…€–ŒÄ!€P…€–ŒÄ…€–¢„€–ŠÓ’ ‰€.”‰ē%¤ y£„ x£„ ;¢„€‘‰ēŹ’ –ASE 0.6c>Edit: [ASE 0.6c:*SYSTEM.WRK.TEXT *CREATED.textSYSTEM.WRK.TEXT,|$PROFILE???,.text.TEXT.BACK.TEXT.TEXT ŪW„„„„XÅ„ „‚9’’”‡„ŸŌ ‰‚†é”…‡„”„‡„ŸŌ‰€.”†‰:€ˆ€ ” „€•„€”„„”€‰‚†ī”‰‚†ó”‰€]”‰”‰‡„Ÿ”Ō*¤„„„ˆ”„„‚†ų€W”„„ˆ&€f”„„”€ ¤ ¤„‰††Z”††Z§)„5”€"ŸŌ€€”„5§°Õƒ„5‚†ł€P”‡„ŌJ…‰Ņ²ŸŌB„„‚‡”„„…‰Ņ€0¢Č„5¤„„„‚‡”„„„„ ”„„‚‡”„„€P” Ōˆˆ@”ˆ&‚‡ ”¦‹Š¤„‹ń‚‡„5”¤ +±Ō „5„‡+Š „‡‚‡€P”‚‡„5”¤ *±Ō „5„^*Š „^‚‡€P”„‡§²ŸŌC‚‡„‡”„‡§°Ō1„5¤„„„„5€P”„„‚‡€ ”„„€P”„‡„‡§”‚‡„5”±Ōj„‡§²ŸŌ'„Ł¤„„„‚‡€P”„„„‡€ ”„„€P”Š „Ł‚‡€P”€‚”„5įᄁٔ‚€‚”¤„”ᤠ”€‹Ł„‡§²Ÿ„5§°”Ō$„5„‡€P”„5‚‡  Ō‹ŃŠ¤„‹£„‡§°„5§°”Ō¤„‹‹„‡§°Ō:†‰§„5€P”†‰§‚‡#†‰~„5€P”†‰~‚‡&„°†‰§€P”Ÿ¤„ŠH†‰§„‡€P”†‰§‚‡)†‰§„  Ō'†‰~„5€P”†‰~‚‡,„°†‰~€P”Ÿ¤„Ф„)¢¤ ‡„Ÿ”"°”ÕMż†)”€0„€“> Ȑ>1£§ ±1° Ō1°Ō>Č>€ Č1¢„  €„‚y€†”–-No terminator command "|."d>0§¦‰ °Ō"01£³Ō‚ƒ’Š0¢„”€2„>0§¦Š×0¢„–Special key overflow.Ÿ†‚™‰#ȉ¢¦‰‰³Ō‚ƒ3’–Č'„”€+„§¤¤#$²Ō„#§’#¢¤Šķ–ž’’ž!|° ŚPȼ¶ĀŌ šcց•†W«‹Ią«’‰ƒƒeŚŌ ‰€A£€a¢¦‰փo‹ź€|’‹ā†„…‚zפ¤‰¤’" ²Ō#ē"‰Č"¢¤‰!°Ōä#ē "£”€ȋ¤¦‹¦‹–’‰¦‹Š’‰ƒƒkŚŌ‰€1£€)¢¤ ŠlŠgŠbŠ]ŠXŠS€&ŠM€4ŠGŠBŠ=€'Š7€1Š1€2Š+€5Š%€3Š€#Š€6Š€:Š ’‰€}°ŌõŠ– †„%×y¤…¤> §°Ō ¢¤ ……¢³ŸŌ,†‚™!> §Č!¢¤ ¢¤> £§ °Ō †”€„€– 5¢¤ŠČ†„%×!Ä%”€-–"Copy buffer undefined or too large* Takeup from copy buffer: .. Ä ‰°ŌM…Ÿ…€P²Ÿ Ō‚„‰’††²‚„›€‡””€ ”€ˆˆ’ ‰±Ōš‰€'°Ō‚„±’Љ€)£‚„²’–( Takeup: .. or C(opyBuffer taken upė ††²‚„怇””€ „€’”€„„’ %€'°Ō‚„ųŠ%°Ō%€)£„‚z†„…‚zפ ¤((yÄ(y¤(y€O¢¤”€02”€„0„€ ¤€|¤(ē‚„ł ”¤"#°ŌŠ"$°Ō€ Š "€ ±Ō"&ŌŽ(!ą‚z”€-'Ō3…‚}²ŸŌ ‰”Š!†‚~…‚}פ )…‚zÄ)ēÄ)ēą‚}¢„‚}†€–…€‘”€”€<€:±Õ’–  †‚™‰§¦‰¢¦– Key Overflow.¢ ‰R$€ °”Ō€|’€{’€}’Š2$°$€|°‰€(³” ‰€-³ Ō¦ˆN’¦R$±Ō‹³’$±Ō6ˆ‰$ȉ¢¦‰¢¦¦R‰€n³Ō‚…ƒ”€„‚y€†”–Ī -„‡.€P”„§¤+¤ ‡+²Ō„ §’ ¢¤Šģ–.šČžw: SZ?}”‰‚•”‰ˆ‚]”‰”†‰~§²ŸŌ‰‚Ÿ”‰ˆ‚4”‰”…‰Ņ²ŸÕ” ”‰‚©”‰”†‰Ó…‰Ņ× ē†‰§”†‰Ó…‰Ņ× †‰~”…‰Ņ¤¤!"³ŌR†‰Ó!× ¤…‰Ņ!£ ¢¤ ”‰!¢” ‰€.”‰” ”‰#ē” ”‰#”!£¤Š©”–)can't restore state: ran out of disk room (from ).reading p zerowriting p zero disk read disk writez†)”€0¤ˆ”€0¤$%³ŸŌ‚‚t”€‰‚‚‰”‰ˆ-”‰‚‚”‰”$%£¢„€”¤…€”…€”¢¤ˆ†„Z”±Ō‚‚”€…„[£¤¤&'²Ō†„Ō&׆„Ō&×x…€”¢£Ä&¢¤Šą†)†„Z”±Ō‚‚—”€9£¤ˆ> #”¤”"±Ō‚‚Ÿ”€!²ŸŌ†)>!"”!±Ō‚‚¤”€"!¢¤#!¢¤!²Ō·ˆ”†)”†)†‰§”$„€“– Edit: [ASE 0.6c Restoring .ASE! not in directoryReading JM$CURSOR͆„„-’’”†‰§†‰Ó…‰Ņ× ē€P”†‰~†‰Ó…‰Ņ× €P””€††²‚ƒ>€‡””€ ‰‚ƒC”‰€]”„€’‰”‰‚ƒH”‰†‰§”†)†‰§”„-†‰§€P”„*‚ƒN”„*„-„-§£”„„-””"±Ō¤V„V„-€P”„V‚ƒQ€a”„V”€„€•„€”„„!„„> ȉ‚ƒZ””€$”€02”€„‚ƒ^”€ „”–€†$Do you wish to edit a A(nother file, P(op, or E(xit? ʼnԀA„Šh…‰Ņ²ŸŌ\ ”€‰‚ƒė”…‰Ņ²ŸŌ ‰‚ƒž”‰‚„””€„††€—”€ „&6”€ „6€E°6€A° 6€P°…‰Ņ²Ÿ” ŌЊ€E„6€P°Ō…‰Ņ£„‰Ņ’‰ƒĊ%6€A°Ō€…””…€…””€02”€„‰ƒĖ„(*:.TEXT.TEXT)File already exists. Are you sure? (y/n)Illegal filename. q„„-’’”ˆ‚]†‰§€P”ˆ‚4†‰~€P”””€ˆ‚ ”€"Õ¾ˆ‚ §°Ō””€‰ˆ‚]”‹œ¦‰ˆ‚ §²Ō;ˆ‚ ‰§ƒ„dŚŌ ˆ‚ ‰”Šˆ‚ ‰ˆ‚ ‰§”€ ȉ¢¦醉§§€*°Ō „*‚„j”Š0‚„k†‰§”¤)‡)±Ō„*†‰§„:‡)”„:”Š „*‚„l”ˆ‚ ¤:„:„*”„:ˆ‚ €n”„:€P”ˆ‚ §²‚„mˆ‚ ”ˆ‚ §£± Ō#ˆ‚ ¤:„:ˆ‚ €P”„:‚„p€U”„:€P”„ˆ‚ ””"°Ō0 ”‰”‰‚„s”€N”€,ŸŌ ” ”€‹“žŠ(”"°Ō ”‰”‰‚„ˆ”‰”‹ižˆ‚]ˆ‚ €P”ˆ‚]†‰§”Ÿ†‰~§²Ÿ”Ōˆ‚4†‰§€P”Š ˆ‚4†‰~€P”„”–q$CURSOR a"$au7Are you sure you want to exit? (Y(es, N(o or A(nother) @.Backup file not present (tried to restore it).SYSTEM.WRK.TEXTWriting LPAGE+1>RPAGEThe workfile, , is blocks long.The backup file is *SYSTEM.WRK.TEXT:.BACK*system.wrk.codeCodefile Removed.Writing out the fileT„ƒ„ƒUÅ„‚Ų‡ƒ€P”‚…“”€2‡ƒćƒŌ„‚]„‚Ų€P”„‚4‚…—€P”‹š„‚]†‰§€P”„‚4†‰~€P”„‚ ‚…˜€P”¤”€„††€—”€ „&6”€ „6€B°Ō<¤„‚Ɔ‰§€P”„‚Æ„‚Ƨ£”¤ƒ„ƒ‚…™€P”„ƒ„‚Æ€ ”„ƒ”€ 6€C°Ō6ƒ…šŚŌ’”6€A°¤!Ō„‚ ‚… ”€U„Š „‚ ‚…””6€R°Ō€ƒ”6€E°ÕĄ‰”‰‚…¢””€„††€—”€ „&6”€ „6ƒ…¾ŚŌŽ6€A°¤!Ō€Y„6€Y±Ō‹:‡ƒÄ”€†)”†‰~§²ŸŌ7†)†‰~””"°Ō†)†‰§”€1†)”Љ‚…Ä”‰”Š$ˆ&‚…Ü”Ōˆ‚…䔈&‚…唦‹ŗ”€"ŸŌ1€Ē¢„‰‚…ę””€%†…(ˆDÅ…€•¢…€”°Ō ‡ƒĔ€‹|…€•¢…€”²ŸŌ‚…ꔀ…€•¢Œ¤…€”Œ¤…Ō … £¤Š9¤‰€*”†)>%'”¤”"±Ō‹$±Ō†)>$&”$±Ō‹’”"±Ō‹ō&$¢¤'$¢¤$°Ō¬…€•¢…€“¢…€”£Œ”€/…„[£¤ƒ¤#‡ƒ²Ō,†„Ō#×x…€”³Ō†„Ō#׆„Ō#×x…€”…€•££¢Ä#¢¤ŠĶ†)†„Z”±Ō‹€‡ƒćƒŸŌh‰”‰‚…ń”‰„‚]”‰‚…ł”‰…€•¢…€“¢…€”£Œ” ‰‚…ü”‰”†‰~§²ŸŌ‰‚†”‰„‚4”†)„‚]”€1†)”‡ƒŸ†‰~„‚4”Ÿ†‰~§²Ÿ””Ō†)†‰~”†)„‚4”€1†)”‰…‰Ņ°”Õø†‰§‚† ”†‰§„‚]”Ÿ”„‚4‚†””Ō¦ˆ‚†”ˆ&‚†”Š{†‰§¤ƒ„ƒˆ”„ƒ‚†€W”„ƒˆ&€f”„ƒ”‚††‰~”±”Ō>†)‚†””"°Ō‰”‰‚†&”‰”†)”¦ˆ‚†/”‹‚†0”€‡ƒŸŌ–ƒW’ «dæZ <ƒCOPYFILEImproper marker specification.L‚”€‰Ō †€–…€‘”€€†”–‰>‰>0‰”‰¢0‰¢£”€ 10¢‰¢£„†”€(‰¢¤„”€(–Marker exceeds file bounds.Ė‚F”€’‰Ō †€–…€‘”€€†”–ō910££¦10£¢¦0£¦>0>‰‰”–[  ],.TEXT.TEXTÜX‚{ˆ‚”¤"°Ōˆ‚‚|ň‚‚€€Å‹¾‚€„ˆ‚”¤!°!"³Ÿ !ˆ‚§± Ō’„ˆ‚„."¢!"££”„.€P”ˆ‚ˆ‚„."£”„.€P”‚€…„”¤ °Ō’„§ £¤„ˆ‚ £”€”ˆ‚ £ ££”€€ ” „ ¢ˆ‚#”€”ˆ‚##£”€€ ” ¤.¤#‡.²Ōˆ‚#ˆ‚#§”€ Č#¢¤Šć¤.¤#‡.²Ōˆ‚#ˆ‚#§”€ Č#¢¤Šćˆ‚§¤.¤#‡.²Ōˆ‚#ˆ‚#§”€ Č#¢¤Šć‚€†ˆ‚”ˆ‚§£±ˆ‚§² ˆ‚ˆ‚§§€.±”Ō#ˆ‚¤.„.ˆ‚€P”„.‚€‰€U”„.€P”ˆ‚ˆ‚§§€.°Ōˆ‚ˆ‚§”–XO‰Ō->0 Ȕ€02°¤%&¢³Ōˆ&§°Ō !Ō3„Š&¢¤¦&%²Ō6%&£¢¤0 ¢€ś¢‰³Ō’””€”€%’ˆ&>0 ”0 ¢„–Bad disk transfer׈‚lˆ‰‰¢”±¦”"±Ō‚©”€‰¢„’€†”‰€.”‰ŸŌįˆ’” ¢¦Š¦‰¢¦–‰ ‰³‰ ‰³Ÿ”Ō‰ ¢¦ ‰ ‰£¦ –Marker not there.Œ„*Ť ‰³Ÿ„ˆ ×¹Ÿ”Ō ¢¤Šå„ˆ ×¹ŸŌ ‚‚”€’‰Ō †€–…€‘”€€†”)ˆ€™ ×xÄ(ˆ{ ×xÄ(x°Ō ))x£Ä(Ė Old file (markers not valid). g¦ ¦ ’¦ ’¦ ˆ‚‚‚G¹Ÿˆ‚‚‚K¹Ÿ Ōjˆ‚l„”±Ō’ ±Ō ‚‚O”€’‰Ō †€–…€‘”€€†”ˆ‚‚‚_¹ŸŌ ˆ‚ˆ ˆ  ˆ‚‚‚c¹ŸŌ ˆ‚ˆ ˆ  –‚ Ÿˆ‚‚‚µ¹ŸŌ ‰ ‰ £¢¤Šˆ‚l”€0‰ £¢¤–€žć$”€Ä#†ł$xŲÉÄ#x€;°Ō$”€Ä#†y$xŲÉĊę#xƒ‚ŃŚŌĖ– ,„‡-€P”„§²ŸŌ„”  ‚†V”‰……)” ‰‚†\”– Workfile: Backup file: z”‰‚‡”‰†‰§”†‰~§²ŸŌ”‰‚‡”‰†‰~”–More Info: ( to return)销††Z‚‡>€P””€‰”’ ’††Z§””€„††€—”€ „&6€ °…&€'° Ōį€$„–. Environment: {options} to leave [ASE 0.6c]ĄN= Not option’’’’’’’’’’’AU„\¶H4”˜² F”€††²¤„‚‡v€.”„‚‡Ž€6”„‚‡“€†”„€‡””€ „€’;³Ÿ¤!ŸŌ††²§””€„††€—”€ „&…&ƒ‡”ŚŌ€ „6”€ „6ƒ‡—ŚŸŌ ‚‡”€”€ ‹¾6և«‹·”„… ‹©”„…!‹›”£”€„…#‹†”£”€„…$Šr”£”€„…%Š^””€„…&†…&†€—”€ „&……&ƒ‡£ڟŌ€?„…&‰……&”Š& Š"”„…"Š ”„…*ААŠ6€$°Ō”€”€ !ŸŌ††²§”6 ⼃‡ĀŪŚÕÖž”€–FO_æķĻ„gēė‰H# \ʇ°PUTSYNTA*SYSTEM.SYNTAXT8„‚„ƒ:’’”‡‚9‚€P”„‚‚”¤¤¤„‚„$”°Õć„§°Ō¤Š¤‡‚:€d¤‡‚:'€dŒ£ ¤‡‚: ¤„ '€0¢Č„ &€0¢Č„ %€0¢Č„ €0” €:„#” ¤„#„ "£"”"#¢¤’ „#” #¢¢¤„#§ ā¼ā¼ŪƒŪŚŌ„#§°Ō#¢¤Š#¢¤Š×„ „ ¹„#§° Ō„ „ ¹Ō#€D#"££”€¤ ‡‚9(Ȅ"¢‡‚9(”¤Š¤$¢¤!  Õżž„‚”–‚:!‹........hoLv„aå &ƒ…čŚÕ£€|’&Ö…ģ‹•€l’‹€r’‹…€u’Š~€d’Šw€e’’Šj€f’&€)£€1¢’ŠY€n’’ŠL€b’ŠE€t’Š>€h’Š7€*’Š0€>’Š)€<’Š"€@’Š€g’Š€^’Š €!’’ŠŠ €|’€?’–’’’’’’’’’’’ S€&„K”€+„N”€+„€’Ȥ€i„N†„…‚zפS‡Sy¤¤¤R"‡Sx³ŸŌF†ł!Ųɤ¤Q €;°Ō¤Q†y!ŲɤŠé!ƒ†tڟ‡Q Ō Š !€|°Ō!!в€|€.„N„K„$£Č„”€ „‚y–S& Copy: From what file[marker,marker]? ?# Copy: File not present. Filename?  Copy Disk Error.ݼ„‚l„ƒ˜’’”…‚y±Ō…‚y°ŌŠ€†”„‚y¤¤”€02”€„††²‚†Š€‡”¤”€ ††²§„‚”€"Ō„‚§°Ō.Ō †€–…€‘”€€†”‚†ä„‚”¤'±Ōi…€”…€•££1Ą££¤'„‚§±Ō „‚C„‚„‚”'¢„‚§'£”„‚”€P”Š „‚C‚†å€P”€‚”„‚&Œį„‚C”‚€‚”¤¤Š„‚l„‚”††²‚†ę€‡”/Ÿ”"°”Õ0’0„„††²‚†ų€‡””€   ”€)Ō€†”+¤)"³-Ÿ”Ō  )"£¤ Šķ*#³Ÿ("³Ÿ”Ō)"£(£”€Š)"£*#³("³ -Ÿ”Ō& *#³Ÿ("³Ÿ”Ō"£(£”€Š"£ŠĪ”"±Ō‚†ū”€”€02”€„†€–…€‘”€„‚l”„‚l”–‚¼‹Óx}X“RĪ?ō’Öŗ hī³phU(†—ENVIRONMNONEBirthday Christmas New Years HalloweenJanuaryFebruaryMarchAprilMayJuneJulyAugust SeptemberOctoberNovemberDecember %0;FQ\gr}, -„*‡.Å„*É°Ō ‰‚”‹:„*É °„*ɰ”Ō ‰‚ ”‹„*É °„*ɰ”Ō ‰‚”‹ē„*ɰ„*ɰ”Ō ‰‚”‹Ź„*É °„*ɰ”Ō ‰‚”‹­„*ÉÖKœ‹„„‚€P”Šy„‚!€P”Šn„‚&€P”Šc„‚)€P”ŠX„‚,€P”ŠM„‚.€P”ŠB„‚1€P”Š7„‚4€P”Š,„‚8€P”Š!„‚=€P”Š„‚A€P”Š „‚F€P”Љ„”‰€ ”‰„*ɔ ‰‚Y”‰„* Ɂl¢” –.5‰€ ” ¤¤ !²Ō ”€ ¢¤Šš–TrueFalseg#Ō ‰‚”Š ‰‚”‰”–@T or FTrue False ż’”€”€ ¤ ƒ5ڟŌ2‰‚;”¤„€–…€–!²Ō”€…€–¢„€–Šė”€”€ ¤ŠÄ €T°Ō‰‚?”¤Š ‰‚C”¤–’’’ ¢’¤”€¤ € ā¼ ā¼Ūƒ€ŪŚŸŌ‰€#”‰””€ € ā¼ ā¼Ūƒ„ŪŚŌĄ ƒˆŚŌ‰ ”!Ė ³ŸŌ ! Œ ¢€0£¤ € ā¼ ā¼ŪŚŌ‘!¤‰‚Œ”–’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’Ž”€¤ ƒŅŚŌ ‰ ”Љ€(”‰ ” ‰€)”$Ȕ€„6 ±Ō;$$§¢Č$$§6Č6ƒŚŚŌ ‰6”Љ€(”‰6” ‰€)”$§€O³6 ° Ō®6ƒāŚŌ ‰6”Љ€(”‰6” ‰€)”–-Define Special Keys:  : ’’’’’’’’’’’@ž%Enter delimited string (e.g. /stuff/)v/”€††Z‚‚H€P”‰††Z”‰”‰”£¤-¤!‡-²Õ‰‚‚_”‰!¢” ‰‚‚g”†„!פ.‡.y‡.x£¤/¤ ‡/²Ō;†‚™ §„6ƒ‚iŚŌ ‰6”Љ€(”‰6” ‰€)” ¢¤Šæ‰”!¢¤‹x’††Z§””€„†ł6ŲÉ„ <€;°Ō”€„†y6ŲÉ„ Šč<ƒ‚qŚŸŌ ‰”Š^<€&±ŌX<€)£¤ ”‰‚‚u”"¢”"¢”€„ ” ”€"”€-†„"פ-„†‚™‡-y„§”‡-‡-y„§¢Ä<€&°ÕV’€$„–/-Tü#փ<Š€-¤†…‰Ųʊ †…‰Ųʊ‰#”– L”:¤¦‰ ²Ō/†…‰ŲÉփЉ€-”Š ‰€T”Љ¢¦ŠŹ–MSet tabs: C(ol# {N(o T(ab Z(eroAll D(efault} ³††Z‚ƒ§€P””€”–Column # @0 „†…Å”€  „†€–”€”‰‚ƒŪ””€ ”‰"¢” "””€„††€—”€ „&”€¤<°Ō € „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” ‰‚„™”‰91£¢” ‰‚„ ”‰”‰‚„¦”‰…€•” ‰‚„¬”‰…€“…€”£” ‰‚„¼”‰”‰‚„Ź”‰…€”…€•££” ‰‚„Ļ”‰‚„×”‰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 h ‰”‰‚…P”…… ’‰‚…Z”……!’‰‚…d”‰……#¢” ‰”‰‚…n”‰……$¢” ‰”‰‚…x”‰……%¢” ‰”‰‚…‚”‰……&”‰”‰‚…Œ”‰”‰‚…–”……"’‰‚… ”‰”‰‚…Ŗ”……*’‰Ō ‰‚…“”Š’ – = ', = 'Markers:Created ; Last updated (Revision ).…… ŌX…Ō!‰‚†5”‰†€™…€€”‰€'”…Ō!‰‚†<”‰†€Ł…€€”‰€'”‰”‰”…„[²ŸŌ‰‚†D”‰”‰€ ”…„[£¤¦‰ ²Õ„‰€ ”†„Ō‰×xį°Ō ‰€ ”Š#†„Ō‰×x…€•²Ō ‰€<”Š ‰€>”‰†„\‰×”‰…„[£±‰¢°”Ō‰”‰€ ”‰¢¦‹t’;”‰‚†I”†…'’‰‚†N”†…(’‰ L‰#¢:²Ō‰$#”‰#¢:³Ō!:‰”‰#¢:²ŸŌ‰€!”:‰”:‰#¢”€¦–§¦‰ Ō‰:³ŸŌ ‰‰”€Š ¦ ‰‰”€‰¢¦‰;²ŸŌ‰£¦‰”¦‰±Ō’–¾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]Ą(@Ą0U1č¢9²ŸŌ"¤ €:’ >0” ”€”€¤>0„-”>0-¢§ ±Ō„-£€!Č:-£¤ 1¤††²‚Šö€‡””€ ¤„€’0£¤¤¤ „„”€/.”/.”€¤-±ŌO,/²ŸŌ,.”‰„-€€”/.”Š2¤/.”€‰”.;°Ō;£¤¤,.¢”‰„-€€”/.”‡ƒ‹ڟŌu‡ƒ‹ŚŌ/:²Ō”€‰€ ””€/£¤Š"6 °Ō€ ‡Š……!/¢……$³”Ԑ!Š6……!Ÿ/:£°”6±”Ō‰”-±/,³”%”Ԑ/.”Šz6 °Ō  4¤/.”Ši‡€5°ŌN.²Ō$0¢„>0 Ȅ…€‘”€-±Ō&Ō”€ ¤Š.”¤ .”€.£¤”€45£0¢3£¤/.”Ї€3°Ō ¤/.”/.”€‡ƒ‹#ŚÕłž „–U“¦¤’ >…€” …€¢¢¤!%³Ÿ 1³Ÿ”Ō „€’ > ” ¢¢¤!¢¤ŠŲ¤;”!¢¤&†”€„”€„54;”€‰£¦!%³&1£³ ŌÓ¦–‰Ō”€ ¦¦0¤…€£„¤0³!&³Ÿ”Ō'”€3„€””€ †54”€…€£„!¢¤ŠĻ „¦‰‰”– Paging[  ]}¦”€††Z‚Œ€P”‰7”‰††Z”#€d³Ō‰‚Œ‘”‰#” ‰‚Œ“”„€’¦–Ę……*…€”…€“³Ÿ”‰ Ÿ”Ō/00£”€¤0 £¤ „%’&”€%”€$1£0!¢”€„”€–……*…€•²Ÿ”‰ Ÿ”Ō11£010£¢”€¤0 £¤ „%’&”€%”€µ%EDITCORE6<°Ō€>„Š€<„”€‰7”††ö7Ȕ€”€–' ToDisk: F(orwards or B(ackwards D$CURSOR ņ††²‚€‡””€ „€’”€”€¤„†€—”€ €'°Ō¤Š ”€ ¤ ⼃0ŪŚŌŌ ±Ō ””€‚5”€2 €B°Ō”€%Š €F°Ō”€% ±Ō †€–…€‘”€”€–J Next: F(orwards, B(ackwards in the file; S(tart, E(nd of the file. d$CURSOR C††²‚z€‡””€ „€’”€”€¤„†€—”€ €'°Ō¤Š ”€ ¤ ⼃€ ŪŚŌÓ ±Ō ””€‚€¦”€2 €F°Ō ”€%”€$Šh €B°Ō ”€%”€$ŠX €S°Ō$…€•²ŸŌ””€„”€%”€$Šį„Š. €E°Ō(…€”…€“³ŸŌ””€1£„”€%”€$ŠŻ1£„ ±Ō”€02”€„†€–…€‘”€”€–Copy Buffer not defined.Not enough memory (try ToDisk).Å”€02”€„…ŸŌ ‚#”€‹8¤¤ $²Õ …Ą¢”€)Ō €ˆ”‹é1…¢ ¢…²Ÿ…1³”1…¢9³ Ō‚0”€†€–…€‘”€€ˆ”‹²…¤… Ō5”€02°Ō3„Š(>"§ā¼ ā¼Ūƒ@ŪŚŌ>"§°Ō"¢¤Š"¢¤ŠŲ…"…££¤#²Ō‹U>0>0#¢10£¢”"0³"1³Ÿ”Ō >"#¢>0#”Š"0²ŸŌ >">0#”Š>">0#”1#¢„0#”€ 0#¢„†”€(†”€(”€02”€„ ¢¤‹šž†€–…€‘”€–, Copy: B(uffer F(rom file žTPĮ††²‚ä€‡””€ „€’”€„†ł6Ųɤ €;°Ō”€„†y6ŲɤŠč €'°Ō„Š. ƒūŚŌ €)£„‚z„‚y€D„Š6”€ „6€D°6° Ō„6⼃’ŪŚŌ’6€B°Ō’Š6ƒ‚ŚŌ6€F°Ō„‚y€ˆ””€”€–Ö„‚y„ €ˆ”–ß”€–Markers:  0Type the letter of the desired marker or v.”€‡/Ō ‰‚‚q”‰”…„[£¤,¤ ‡,²ÕŸ‡/ŌN‰ €a¢”‰€ ”†„Ō ×xį°Ō ‰€ ”Š!†„Ō ×x…€•²Ō ‰€<”Š ‰€>”Љ€A ¢”‰€)”‰‚‚v”‰†„\ ×”‰‚‚x” ¢°Ō‰” ¢¤‹Z’…„[²Ÿ‡/”Ōs††Z‚‚z€P””€”€„††€—”€ „&6”€ „6€A €A¢£¼ƒ‚“ŪŚŌŌ6€ ±Ō36€A£¤†„\!ׄ”„€ „” ¢Č„„§ Ȅ”€ –/Leaping¦”€‰‚ƒ<”†„Ō‰×x…€•²Ō.…€•²Ÿ†„Ō‰×xį±”Ō””€„”€%”€$ŠŌŠ0…€”…€“³Ÿ†„Ō‰×xį±”Ō””€1£„”€%”€$ŠŠ– Jump to? ? Marker all messed up. Not there.$SYNTAX  Edit:  ?9 „)Ť„‚ƒƒ¹Ō"‚ƒ‡„”€#„‚ƒ‹¹Ō’ ¤„‚ƒ¹ŸŌŽ„‚ƒ“¹ŸŌJ„„”€*Ō9†„Ō!×xį±Ō †„Ō!×xį±Ō ‚ƒ—”€Š †„ņ!×x„”€02”€„Š‚ƒ¢”€†€–…€‘ ”€„‚ƒØ¹Ō7††ƒ§²ŸŌ-††²‚ƒ¬€‡””€ „€’„$‰††ƒ”‰‚ƒ°””€– ) Jump: B(eginning E(nd M(arker T(ag $TAG $ < „+Å„‚„¹ŸŌ„ ‹˜††²‚„"€‡””€ „”€+„€’”€¤„†€—”€ €'°Ō¤Š#”€ ¤#€B°Ō„”€2„†€–”€Š7#€E°Ō1£„†€–;”€Š"#€M°Ō‚„7 Š#€T°Ō‚„; Š#±Ō”€#⼃„?ŪŚŌƒ”€– $CURSOR $EQUAL $CURSOR $EQUAL $EQUAL $CURSOR ż =±Ō„!…!°ŌW„€’‚„Ÿ”€2‚„£’ ‚„§„”€*Ō‚„«„”€*Ō†„\!ׂ„ÆÅ†„\ ׂ„³Å†„Ō!×xį°Ō †„ņ!×x„„!Š 0¤=„"„”€02”€„†€–…€‘”€”€”€–Margin: are you sure? (y/n)g ……!…… Ÿ”ԤЄ€’††Z‚…€P””€€N”€,¤ Ō”€08”€!†€–…€‘”€”€”€– DeleteMarkers: 'A' .. !' [ accepts, escapes]ĄĄ / …„[²ŸÕb…„[£€A¢¤††²‚…5€‡””€ ‰€'”‰#”‰‚…A”’ „ĒŽ††²§€#¢””€„††€—”€ ¤6”€ „6€A#¼ŚŌ-6€A£¤„„Š ā¼ŪĒŽ Œ ¢”‰€ ”Š$ƒ…RڟŌ‰”$ƒ…UŚŌŒ$€&°Õ›…„[£¤¤"'²Ō"„ŠŚŌ †„\"ׂ…XÅ"¢¤Šą¤"…„[³ŸŌf†„\"ׂ…\¹ŌR"¢…„[£¤¤!'²Ō7†„\!£×†„\!×ņ„ņ!£×†„ņ!×xƄŌ!£×†„Ō!×xÄ!¢¤ŠÄ…„[£„„[Š"¢¤Š’„€’†€–…€‘”€–4 Set: E(nvironment M(arker T(ag D(eleteMarkers SetM$TAG0 ( „”€+††²‚†€‡””€ „€’”€¤„†€—”€ €'°Ō¤Š ”€ ¤ €E°Ō €ˆ”ŠI €M°Ō‚†4„”€#„”€2Š4 €D°Ō’Š) €T°Ō¤ „ ‚†6”„ „ ”„ ”€ Š ±Ō”€ ⼃†9ŪŚÕz’”€„€’”€– > ”€3„€”€”€”€– expansion? (y/n)æ …‚}²ŸŌ%††Z‚† €P””€„€’”€€N”€,ŸŌ„‚}Š †€–…€‘”€”€”€–Can't zap when = ptr on disk: WARNING! You are about to zap a lot. Are you sure? (y/n)į=±Ō„!…!°Ō ‚†į”€Š>=0£ą€P²ŸŌ4††²‚†š€‡””€ „€’‰””€€N”€,ŸŌ ”€”€€ˆ”0=”€0=”€”€ŌR0=²ŸŌ >0>=10£”Š >=>01=£”0=£ą¤1 £„=0”€„”€02”€„0=”€ ᔀ 0„†€–…€‘”€”€”€–No room to insert.p”€910££¦”€)‰0£€³Ÿ Ō‰0£€³ŸŌ‚‡r”€”€”€€ˆ”10£¢¦>0>‰‰””€>‰£Č>‰£4€ ¢Č02°„ … Ō3¦–›‰Ō’‰ Ÿ‰”‰Ÿ”……!Ÿ……  ”‰€'±”Ō.¦1¢„‰£¦‰¢¦’į >0£” 0¢„Š„ ¦>‰>0‰”0‰¢£¤1"¢„‰¢„… Ō3¦Š=¦0¦‰‰”€¤‰€'°Ō#Ō>0>=‰”1"£„=„Š€&¦‰€&°Ō7……!…… Ÿ”‰€&°”Ō0”€!¦ˆˆ”€‰¢0‰¢£‰¢”€ >1Ȕ€02”€„‰‰‰€'° ‰”€”€–Please finish up the insertionBuffer Overflow!!!!W„ „Ť )‰²Ō.€'„”€+„”€+¤ „ „”„ „ ”„ ”€ ¦ ¤ ŠC)‰£³Ō8‰ ŸŌ‚ˆO”€”€ ‰‰”¦ )‰ £²ŸŌ‚ˆ_”€’€ˆ”*¤–²¦ 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¢¦ ”€„††€—”€ ¦‰ƒ‰mŚŌ„‰ƒ‰qŚ6ƒ‰uŚ Ō*6ƒ‰xŚŌ’Љ°Ō’Љƒ‰{ŚŌ’Š96€!³Ÿ6€~²Ÿ Ō ‰ē+É„‰Ō’0¢’‰ ”Ō ¦>06Č0¢„‰ Õ`’–ž‰ Ō ‰‰”€Š ¦ ‰‰”€‰ ‰”‰ ‰”€”€‰;°Ō ¦;£¦‰ˆ‰€€”¦– Ҋ”€ ’>¤‰‰”‹ļ €3°Ō¦‰‰”‹Ł €1°Ō’B‹Ģ €2°Ō’C‹æ ƒ•īڟՓ6ƒ•ńڟŌ! ƒ•łŚŸŌ „" „ €&¤Š ‰ē+É„ €&±Õ‚ˆ‰6ȉ6”‰€Ņ֕ūŠi’A’?”€‰Ō”€ŠS’A’?”€‰Ō”€Š=‰:³Ō ‰‰”:‰¢”€¦Š‰±Ō”€‰£”€¦”€Š ƒ–ŚÕż €'°Ō’DŠ’A„€’…"ŸŌ”€–1 Kolumn: {, current line}/¦††²‚——€‡””€ „€’‰‰”¦¦’?–§/#³ŸŌ#į’CŠ#’B–ņ0G¦”€„††€—”€ „ „(„ <°Ō„(”€„††€—”€ „ Š <°Ō”€„ <€4°Ō7€>°Ō„ Š„ Š<°Ō7€>°Ō„ Š„ <°Ō:¤¦8¤‰Ÿ "²…( ”Ō ’A’?‰‰”‰ŸŌ!H ¢¤ŠŅŠv<°Ō:¤¦8¤‰Ÿ "²…( ”Ō ’A’?‰‰”‰ŸŌ!H ¢¤ŠŅŠ7<°Ō !8¢¤8’BŠ'<°Ō !8£¤8’CŠ<€'±<€&±”Ō ”€‰‰”<€'°<€&° ÕÓž<€'°Ō’DŠ’A„€’”€–1Ņ<°ŌEАF–€Ņ+@ $ Too ManyToo many 8±hm<BŹrX(6xH6ń1 å3¦ ¦¦…(<ƒ˜ƒڟ”Ōh<€4°Ō7€>°Ō„ Š„ Š<°Ō7€>°Ō„ Š„ <֘‡Š*’4Š%’5Š 7€>°Ō’4Š’5Š7€<°Ō’4Š’5Š„€’”€€ˆ€#”ˆˆ”€¦‰¦ ‰¦ <֘­‹Ģ’=€ˆ€I”‹¾’;‹ø8£”€’1’3‹§8£”€’1‹™’2‹“’/‹’0‹‡7€>°Ō’/Š’0Šw7€<°Ō’/Š’0Šg’-Šb’.Š]8’1ŠW7€>°Ō€<„Š€>„8č²ŸŌ ‚˜£”€Š8;Œ’17€>°Ō€<„Š€>„Š8č²ŸŌ ‚˜Ø”€Š;8Œ’1Š’:Љ< ° <€$° Ō ‰‰”Š|‰‰ °Ō4‰‰ ¢°Ō”€Š!‰‰ £°‰:³Ÿ”Ō”€Š ‰‰”Š?‰‰ °Ō-‰‰ ¢°Ō”€Š‰‰ £°Ō”€Š ‰‰”Š ‰‰”„ ”€<ƒ˜ŻڟÕwž‰Ō”€ ”€–94'¤ &²ŌE> § °Ō- ¢¤$0!¢”€„”€–u¦‰ Ō¦ŠL<ƒŚ7€<°‰;‰ ;° ”Ō ˆ‰ ”€Š ˆ…€‘”€‰< ±”Ō”€ ¦‰¦ ‰¦ –ø‰Ō’*Š2‰;²ŸŌ*‰ ‰ < ° <€$° ‰;£;³ Ō’*Š ‰‰;£’$–‰Ō’*Š8‰³ŸŌ0‰ ‰ < ° ”€Ÿ <€$° ‰;¢² Ō’*Š ‰‰£’%–†¤”€3°¦8³3°”Ō8’( 8²3²Ÿ”Ō33£„”€3°Ō „8 £’(”€‰£¦ ¢¤‰°Ō0¦ŠĆ2‰4£5¢3¢’ >0” 0¢”€”€”€„’,–r¤’ >0” 0¢¤!1£³¦‰Ō8’'’ >0” 0¢¤!1£³¦!1£³Ÿ 8²”ŌJ!¢„’ >0” 0¢¤!1³ŸŌ‰¢¦ ¢¤‰;¢°Ō0¦!1£³Ō !„8 £’'0¤ŠŖ‰;²ŸŌ‰;£;³‰  Ō’*Š ‰‰;£’$”€1£2‰4£5¢3¢’ >0” 0¢”€”€”€„’+–”€¤3°Ō8’(208£²Ÿ08²Ÿ”ŌR¤802£¢£„ >0§ °Ō0£„’į >0” 0¢”€„‰£¦”€3°Ō8’(”€‰°Ō0¦Š”208£”€”€„’, Ō 402£¢¦Š ˆˆ”€–ݤ’ >0” 0¢¤"1£³Ō8’'’ >0” 0¢¤”€‰4³ŸŌ4¦"08¢³Ÿ"1£³Ÿ”ŌS¤8"0£¢£„ "¢„”€2„‰¢¦‰;¢°Ō3¦’ >0” 0¢¤"1£³Ō"0£¤8’'0!¢¤Šž’+0¤1£08¢”€„ Ō ‰0#£¢¦Š ˆˆ”€–¤7€<°Ō{”€3°Ō%’( %²0²Ÿ”ŌG>0§ °Ō0£„’į >0” 0¢„0³Ō‰£¦ ¢¤Š% £’(‰°Ō”€3¦ŠÆ0”€„0°¦‰Ō’*Š’,‹ˆ’ >0” 0¢¤!1£³Ō%’' %²01£³Ÿ”ŌB’ >0” 0¢¢„01³ŸŌ ¢¤‰¢¦‰;¢°Ō0¦Š ‰ ŸŌ% £’'в01£³¦‰Ō’*Š’+01£”€„”€‰Ō7€>° %²”Ō ˆˆ”€Š2„4¦Š2„4¦–… ”€<€6°Ō…€˜„Š”€„6„€˜††€—”€ ¤ 8°(€'° Ō€ˆ€2”‰¤‰¤0¤¤7€>°Ō~>0§ ±Ō0¢„'‰;²”…(8²Ÿ ”Ō^’ >0” ¤ 6>0” ¤! ³ŸŌ#8£„ 0!¢„0¤‰¤…(8²Ÿ Ō0¢„Љ;³ŸŌ’1Ф‰Ō¤АŠn'…(8³ ”‰³”Ō]02£į6>0£” ¤!0¢£2³Ō8£„ !0¢£„0¤‰¤Š+‰²ŸŌ’1Ф‰Ō¤Š’ >0” 0¢„Š’8²ŸŌ”€"¦#¦%„Š&„$¦”€02£4¢¦– § ’ >0” 0¢„”€02£4¢¦–¹ „†€–”€–Ķ 1£„†€–;”€– L  R  C &a! ”‰֐nŠ_‰‚h”ŠS‰‚j”ŠG‰‚l”Š;‰³ŸŌ ‰€-”Š ‰€+”‰‰ą” ‰ą ³ŸŌ ‰€ ”Љ‰”–Buffer overflow:"D”€4¦4‡E¢³ŸŌ4į¤E>3§°23£°”Ō>3¢§‡E¢€ £¦Š`23£²ŸŌ>2>3¢12£”Š&19€d£²ŸŌ‚²”€€ˆ€6”Š >2>3¢12£”3¢2±Ō33¢2£”€ 13¢¢2£„>3Č4‡E¢¦>3¢‰€ ¢Č3¢„”€‡E±Ō‰”‰”€†54‰”€–Ea"¦¦”€ „€’”‰‰”’7–N Adjust: [+0 ] L(just R(just C(enter Z(ero {, CURRENT line}0 @Ą)%”€4¤7¤¦¦ 0„¦¦¦††²‚‘2€‡””€ „€’¤”€ˆˆ”€¤¤¦”€„††€—”€ „ 6”€ „„(<°Ō„ „(”€„††€—”€ „ Š<°Ō”€„ Š„ <°Ō&€>°Ō„ Š„ Š<€4°Ō&€<°Ō„ Š„ <ƒ‘ZŚÕ“<°Ō€<„Š€>„ ± <±”Ō¤7<¤¤¦‰Ÿ!8²…( ”Ōg!¢¤’1‰Ō9¦‰ŸŌK'°Ō"8ŠA’ >2” ¤'֑\Š-……#4£8Š$……$#£¢4£8Š……$……#£¢#£4£……#¢8ŠŠ‹‰Ō9Š ‰‰”%¤‹»<ƒ‘aŚŌ¤8į8"8£¤¤‹ž<°Ō¤88"8¢¤¤‹ˆ6ƒ‘eŚŌV¤”€’ >2” ¤6€L°Ō ¤……#4£8Š.6€R°Ō¤……$#£¢4£8Ф……$……#£¢#£4£……#¢8Š)6€Z°Ō ¤¤7Š<€'°Ō ”€$4£8Š <€&±Ō”€7¦<ƒ‘kŚÕž&„–Ą%8¤ ¤¤!$²Õ„ 7€>°Ō’0Š’/‰¤7€>°Ō,’ >0” ‰¢¤†…#Ųɰ#"³Ÿ”Ō#¢¤ŠčŠ”€†…#Ųɰ#4²Ÿ”Ō#£¤Šč#‰£ą„ 7€>°Ō’0Š’/!¢¤‹y’–ą%‰£¦3£„”€02±Ō0£„–'„€ ¢€~¼Ēޤ¦ 8²‰Ÿ”Õł7€>°ŌR>0§„ŠŚŌ0¢„Šī>0§ °Ō’1>0§€ °Ō0¢„Šń>0§ °Ō’1‰>0§€ ±>0§ ±” ŌŌ’+”€‹™”€>0§„ŠŚ02²Ÿ”Ō0£„Šé>0§„ŠŚŌ3°¦‰ŸŌ<>0§„Šڟ02²Ÿ”Ō0£„Šč>0§„ŠڟŌ3°¦‰ŸŌ<‰>0§„ŠŚ Ōæ>0§„ŠŚ02²Ÿ”Ō0£„Šé02²ŸŌ0¢„’, ¢¤‹üž02£4¢¦– #b'”€‰€[”‰€Ņ֓„Š,‰€v”Š!‰€^”Љ€>”Š ‰€<”Љ€]”–Š(„ %֓²Š ’-Š’.Љ%°‰° ”Ō¤‰Ÿ¦”€3¦’ >0” 0¢¢¦%°‰”ŌH‰;°Ō3’ >…€” …€¢¢„€‰””€‰‰£”¦Š‰¢¦‰¦ˆ€ˆ€ ” ‰‰±Ō)€‡4”€¤’ >2” ¤>2ˆ!€‡!£ ”€”ˆJˆÅDˆ€ŽˆÅD‰Ō0¦…€’Ō ”€ ’>„€’%°Ō ‰‰¢”Š ‰‰£”–; eXchange: Text {, CURRENT line}÷(††²‚”F€‡””€ „€’¦€Ņ’>¦’?‰‰”–!Buffer is filling up... watch it!*€‡€ ˆ” ¤€‡į€ ˆ€‡” €‡¢¤!"£¢”€¢¤‰‰£#£¤ ²ŸŌ>‰>‰ £1‰£¢”€”Š ³ŸŌ>‰>‰ £1‰£¢”€” ±Ō‰ ᔀ 1 £„1€€¢9³Ō‚”}”€>‰Č!"³Ō >‰¢"€ ¢ČŠ >‰¢€ Ȉ">‰¢!"£¢”>‰#¢£ ȉ"£‰¢¢‰#¢£”€‰¢”€„–²*‰;°Ō :‰£$£¤Š :‰£$£¢¤€†‰:$”€ˆ‰ ”‰‰”ˆ‰ˆ‰$¢€‡‰£$£¢”ˆ‰$€ ” ˆJ‰ˆJ‰$¢€‡‰£$£¢”ˆJ‰$€ ” –<+‰;°Ō :‰£¤Š :‰£¢¤ˆ‰$¢ˆ‰€‡‰£$£¢”ˆ€‡$£¢$€ ” ˆJ‰$¢ˆJ‰€‡‰£$£¢”ˆJ€‡$£¢$€ ” €ˆ‰ ”‰‰”–•+€‡¢į€ ˆ€Ž€‡” €‡¢¢¦‰²ŸŌ*‰”‰ˆ€Ž‰€ˆ”‰‰”‰‰”€Š‰”€–š8K Default Mode: š€ Ą’’’’’’’’’’’.MĄ,/¦’@¦”€„††€—”€ ¤ ƒ•ĢŚŌ_ Ö•ĪŠV‰²ŸŌ”€‰£”€¦Š;‰:³ŸŌ”€:‰¢”€¦Š ’A’?‰ŸŌ”€Š ’A’?”€Š‹w °Ō|7€<°‰€Ņ° Ō7‰£”€¦‰²Ÿ†…‰Ųɰ”Ō ‰£¦Šį‰‰”Š5‰¢:”€¦‰:³Ÿ†…‰Ųɰ”Ō ‰¢¦Šį‰‰”‹ö €4°ŌO‰€Ņ°Ō”€‰£”€¦Š”€‰¢:”€¦ˆ‰ˆJ‰§Č‰ˆ‰§””€‹”6 °Ō?¦’A’?€‡€ ˆ” ¦‰€‡³Ō¦‰:”€¦‰‰”‹] €(°Ōh††Z‚•Ō€P””€”€„††€—”€ ¤ €4°Ō¤ ƒ•åŚŌŻ Ö•čŠ¦€ŅЦ€ŅЦ€ŅЦ€ eginLine L(ineEnd G(etch K(olumn P(age O(ppositePage S(et V(erify ?L Edit: T(oDisk N(ext M(argin Z(ap W(ordMove U(ptop E(dit ?6 Edit: "<", ">", "=" ?)5N :ś?ś¹¾ĆĖŠÕśŚÜęėśšśśśśś!Eśśõśś5śśśśśśįˆJ„(<°Ō „ „(”€Š<°Ō”€„ Š„ <Ö¤q‹ü”€”€”€‹š’‹ź’‹ä’‹Ž…€„”€2„”€”€‹Ź€ˆ”‹Ą’‹ŗ…$Ö¤eŠR††²‚£ū€‡”ŠE††²‚¤"€‡”Š8††²‚¤I€‡”Š+„%††²’`Š…%°Ō „€’„$І†²’`Š„€’Š…$¢„$…$±Ō”€ ”€”€ŠF’ ŠA’Š<‚¤m’ Š4”€Š/’Š*’Š%Š#’ Š’Š’Š’Š’Š ’Š’#Š–„J…‚y°Ō”€„‚y< ±ŌaŠ÷–Æ$—# !4!šĆX JČŠa3š¬\3żŠ‹p\”ŻõāŹ±Ö [e·‹{āņ—»uo_VE‘ń‰;Å ‚ ^ = å Į – \  Įį V (  Ó € ŪÆjŗA }' Ą–?aøA³F—§"mc D«:F%ˆa’’SYSTEMLEłPASCALCO€mCOMPINIT• DECLARAT‚BODYPARTƒ,čUNITPART„JCOMPFINI…MhA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved‰” „”€¤ &³ŸŌ €†‰:"” !¢¤Š€> ” ¢¤ж–“4)(”)¤(&£¤¤ #²Ō ±Ō! ”€¤‰” ¢¤Šį&;°Ō:¤Š:¢¤(&±Ō€†‰:"'¢”€”Š€†‰:")£')£¢”€”€”– Ü4%0°Ō‰¤Š‰„”€¤%‰ ¢£!¢¤–>5‰‰²‰‰²”Ō‰”‰”€Š;‰‰²Ō‰”€†‰:‰’M”Љ’M¤ ‰” ‰”€–µ5„…€‘”€…€¤¦0‰ ”€¤0‰ ”€¤#1£³Ÿ‰;²”Ō*1#£ >#” #¢¤!"² #³”ԐN"¢¤‰¢¦ŠČ‰$”$¦¦¦–j6 ‰ŌL‹¤‰¤‰¤‰ ¤‰ ¤‰ ‰ ²ŸŌ0£¤‰¤$£¤Š#‰ ‰ ³ŸŌ‰£¤0¤#£¤Š€ˆ€K”"!²Ÿ"!°$#²Ÿ” Ō&¤%¤ ¤"¤!¤ ¤$¤#¤ ¤‰ ą‰ ą²ŸŌ $"#!’)Š $"”&%’J‰‰”– @ Delete: < > { to delete, to abort}ü7 P8ggW\”a5BR%R ĄĄ}9 ¦¦ ¦¦¦0¤¦ ”€3¤02°¤††²‚›6€‡””€ „€’”€ˆˆ”€‰¤ ¦0¦‰ ¦ ‰¦ ‰¦ ”€„††€—”€ „ <°Ō”€„ Š„ <ƒ›WŚÕ#<֛[‹–’/‹’;‹Š’0‹„7€<°Ō’/Š’0Št7€>°Ō’/Š’0Šd8£”€’1ŠW8£”€’1’3ŠG’2ŠB’-Š=’.Š88’1Š2<°Ō€<„Š€>„††ö7Ȕ‰7”‰‰”Š’:Š0!£¦ ‰Ÿ0!³Ÿ‰!²Ÿ”0!²Ÿ‰!³Ÿ” ”Ō\0¤‰¤!„ˆˆ”€‰!£¦ ¦ !’K!¦‰¦ ‰¦ $„¦ 0!£¦ ˆˆ”€‰ ‰ ”!’K$„Š!’KŠ<ƒ›„ŚŸŌ ”€‰‰”<ƒ›‡ŚÕxž!¤”€&02°”Ō3„"¤03°&”„ 0!”€ŌR<€&°ŌG0!”€0!£ąį”€ !0³ŸŌ >0>!10£”Š >!>01!£”10!£ą£„0!”€„”€20”€„Š „Š „¦ ‰(°‰Ÿ”¤''Ÿ‰”€”€– ›9<°ŌOŠ<°Ō6”€ŠI–Ü9,„‡-€P”„§²ŸŌ„”€”€02”€„ˆ …€‘‰Ÿ”€”€€ˆ ”–-@’’’’’’’’’’’a:”€„†† ”€ ¤ ƒœļŚŌ„Š, °Ō „Š" €'°Ō‚œó’PŠ6ƒœōŚŸŌ ‰ē+É„6 °‰”Ō ¦”€Š‰6”–}:6€ ā¼ ā¼Ū ā¼ŪŚŌ’QŠė–’ž’’ž’’Invalid delimiter.Pattern too long0;’R6⼃@ŪŚŌ‚H’P6¦¤’Q6°Ō*&!§ ±!²Ÿ”Ō‰€ ”‰”!£¤Š”€Š &!6Č!¢¤6‰°!€³ Ō¹!’³Ō‚R’P%!£Ä–K;‰‰Å@‰‰xĉĖžb<6”€ „6€L°Ō ¦ ’QŠ,6€V°Ō ¦X’QŠ6€T°Ō ¦ ’QŠ 6€C°Ō¦’Q6”€ „6€C°6€V° 6€T° 6€L° ŸŌ”’R‰6€S°”Ō€R„6ƒ§ŚŌ'†„6€1£×¤% x y£Ä†‚™ y'%x”#xŸŌUŠh6€S°Ō(¦…Ō†€™'…”%…ą…Ÿ”ԐUŠ:6€R°Ō$…Ō†€Ł'…”%…ą…Ÿ”ԐUŠ'%’S&'Å@$%xÄ#˽<¤‰°Ō ‰³Ÿ>$ ¢§ˆT §°”Ō ¢¤ŠåŠ' ‰³Ÿ>$ ¢§ˆT §°>$ ¢§ˆ §° ”Ō ¢¤ŠŁ ‰°¤–ó<>#x§€ ā¼ ā¼Ūā¼Ū ā¼ŪŚŌ>#x§°Ō##x¢ÄŠ##x¢ÄŠŃ–ž’’ž’’=&%xˆT‰”‰°ŌU‰£¤¤!"²ŌFˆT!§¤ ƒž{ŚŌˆT! ”€ Ȉ! Ȋ ƒžƒŚŌˆ! €A£€a¢ČŠˆ! Č!¢¤е–ž’’ƒ>¤¦ˆˆ’X$‰Ÿ”Õ׉ ‰³Ō{‰°Ō]ˆT§ƒžĮŚŌ9ˆT§¤"€A£€a¢¤‰ į">‰ ” ¤!#>‰ ” ¤! ”€¤Š‰ įˆT§>‰ ” ¤Š‰ įˆT§>‰ ” ¤Š‰ į¤!‰ į°Ō ¤¦Š9‰ !¢¦ ‰ £¦ >‰ £§°Ō ‰ ¦ ‹A’‰ ’VԦЉ ¦ ‹ ’–ž’’‚?¤¦ˆˆ’X%‰Ÿ”ÕŅ1‰£‰ £¢¤"²ŸŌr‰°ŌWˆT§ƒŸCŚŌ6ˆT§¤#€A£€a¢¤"#>‰ ” ¤!$>‰ ” ¤! ”€¤Š"ˆT§>‰ ” ¤Š"ˆT§>‰ ” ¤Š"¤!"°Ō ¤¦Š9!‰ ¢¦ ‰ ¢¦ >‰ £§°Ō ‰ ¦ ‹F’‰ ’VԦЉ ¦ ‹%’–Ü?¦‰¦‰T£‰‰T‰£ ˆ‰” ¢”€¦‰‰T£°Ō‰”€¦¦‰¢¦–¬@¦‰¦ˆ‰§€ ā¼ ā¼Ū ā¼Ūډ‰T£³Ÿ”Ō ‰¢¦ŠÓ‰¦†ˆ‰§§†ˆ‰¢§§°‰‰T£³Ÿ”Ō ‰¢¦ŠĻ‰‰T£”€¦‰¢¦ˆ‰§ ā¼€ ā¼Ū ā¼Ūډ‰T³Ÿ”Ō ‰¢¦ŠÕ‰‰T°Ō‰”€¦¦–TB¦‰ ¦ ‰ ¦ ¦‰ °Ō\А]‰‰£¢¦7€>°Ō’ZŠ’Y‰Õ®‰ ¦ ¦‰ °Ō>†ˆT§§€A°Ō1‰ ²Ÿ>‰ £§±”‰ ² Ō†>‰ §§†>‰ £§§°Ō¦‰Ÿ‰”ŌU‰ °Ō\А]‰ ‰¢¦ ˆ ’W‰‰£¢¦ˆˆ’X‰ ‰¢1²ŸŌ¦Š‰ ’VŸŌ¦Š”‰ °Ōp†ˆT§§€A°Ōc‰Ō^‰ ²Ÿ>‰ £§±”‰ ² Ō†>‰ §§†>‰ £§§°Ō¦‰ ‰¢1£²†>‰ ‰¢£§§†>‰ ‰¢§§°”Ō¦7€<°Ō'‰Ō"‰Ō0‰ ³0‰ ‰¢²”Ō ¦‰ £¦ ¦‰‰Ÿ Õhž–]: L(itT(okßBU„‡Y€P”„*‡X€P”††²„€‡””€ ‰€[”…(Ō ‰€/”Š ‰‡W” ‰‚”+”‡VŌ‰ °Ō ‰‚”-”Š ‰‚”0”‰„*”–Y Replace' aborts, 'R' replaces, ' ' doesn't €Buffer full. Aborting Replace”D‰XÕ·‰W²Õ‘ˆ …€‘‰Ÿ”€¦‚”q‚”v8‰£¢’^”€¤”€„††€—”€ „ <°Ō¤”€„††€—”€ „ Š <°Ō”€¦W<ƒ”ŠŚŌ»<¦V <°”<€'° Ō‚”’PŠ < ° ”Ō¦XŠ ‰W£¦W „ ‰V°Ō8¢„ ‹”‰U0=£²ŸŌ:‰U0=££1¢9€Č£²ŸŌ‚”Ž’PŠ”€)Ō‚”ž’PŠ>0>=‰U¢10£”ЉU0=£³ŸŌ>0>=‰U¢10£”ˆ€Ō>=‰U”‰U0=£±Ō=¢‰U0=££”€ 1‰U¢0=££„0‰U¢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.GY¤¤W¤¤¤Y¤X„†€™Å@…¤T„€Ō†€ŁÅ@…¤U……"Ō¤ Ф ¤<°Ō ‚¢R‚¢U8^Š ‚¢_‚¢d8^„€’QR„†€™„T††T< °ŌQR„€Ō†€Ł„U††T”€”€<°…”< °…”…” Õ÷¤¤0¤ ¤-8²…( !”Õ¾[-¢¤!Ō"*'¢„(„< °Ō_7€<°Ō(£¤ Š0¤ ‹7€>°…€”…€“³Ÿ”7€<°…€•²Ÿ” Ōt#Ō€Y„Š$††Z‚¢s€P””€¤€N”€,Ō€Y„Š€N„6€Y°Ō>¤††Z‚¢Ž€P””€¤-£¤7€>°Ō1£„”€%”€$Š „”€%”€$0¤ Š‹+‹6’!ŸŌ…(-²Ÿ”ŸŌ#Ō„¤‚¢’”€Š‚¢ž”€”€20”€„„ …€‘/Ÿ”€”€”€–Y Edit: = ?óGa„ „bÅ(‚£Œ€P”„‚£”…%¤(§¢:² ³Ÿ”Ōw†„ פ„ €1¢Č%ē§²ŸŌ2(¤ „ (€P”„ „€V”„ ‚£“€¦”„ %瀱”„ €P”Š#%y%x±Ō(¤ „ (€P”„ „€V”„ €P” ¢¤‹{’ „%(¤ „ (€P”„ ‚£”€R”„ €P”–bL Edit: B( %¤ y°Ō $ |Ä# {Ċ $Ä%…1°Ō#€’Ċ%{˜±Ō#%{ę Ċ#ĖJ>„ŠڟŌ‘Šņ–h¤#˜±Ō#y°Ō #|#{…1°”¤–{¤#‘ Ō#¤–‹#¢¢¤–O˜¤'Ä>†rŠڟŌ€2‘„ ІrŠŪĒ‘ >†rŠŚÕ>€%°Ō<…°Ō…1¤Š&„ ” …+Å ē…Ä ē˜Ä„€‚” #…ŀ‚#„'†Å‘‹5¤>€(°?€`Ś”Ō?°Ō¤Š¤‘>°ÕˆĒ„‘ !¤$~¤'$ē Å"±Ōi ;°Ō "°Ō''xįĊX …3°Ō"°Ō„” #Ä#ē'xēŠäŽ'#Ċ3 …2‘Ō'"°Ō „ ” #Ä#ē£×'xē£×xįÄ'#Ċ€i‘‘‹‰>€#°Ō"°Ō…į„;¤'†Å‘Šm>€$°Ō"°Ō …ē…ēŠäŽ…3¤'†Å‘ŠH>€0°Ō5"°Ō…ē£×…ē£×xįĄ” …‘Ä ēÄ'†Å‘Š €j‘„ ŠĒ‘ >„ ŠŚŸŌ ‘„ ŠĒ‘ ( Ė  pv‚æ’Ą)(°Ō¤ ‹K)˜°(˜° Ō¤ ‹<)y(y°Õ)y֋)‹¤ ‹)z(z‘¤ ‹õ¤…A¤…A¤$˜±Ō$¤%y)z°%x(z°”Ō¤%z¤Šā"ŸŌ%„” $¤%ē)zÄ%(zÄ%ē…AÄ$„A)z(z‘¤"¤ #„A‹š¤ ‹”)z(z‘¤ ‹ˆ){({‘)|(|°”¤")|”Ō)~(~°)}(}°”)(°”¤")‘ Ÿ”Ō)x(x°¤"¤ ŠK)z¤(z¤¤!˜± ˜±”"”Ō!~ ~‘¤!¤ ¤Šā"!˜°” ˜°”){˜°”({˜°”¤ Š )z(z‘¤ ŠŠ#)y°Ō )z(‘¤ Š(y°Ō )(z‘¤ Ф – Ļ08#Č8¢„ –š8Ō 08Č8¢„ „08”8¢„ –,=…ƒ£¢¤!£¤1…ƒ0!”0! ” ! ¢„ ‘„ƒ–Ī8¤&¤…I8¢&£„I…„ł£¤ "!£²ŸŌ"!£¤0&†„ś…„ł ”& ¢¤…„ł ¢„„ł…„ł°' ŌI'…„ł³Ÿ”Ō†„ś…„ł…„ł£” ‰ °Ō‰†„ś…„ų”±Ō’‘…„ų¢„„ų„„ł" £¤"!°Õr’– [ ]„'Å…$Ō2‰”‰„”‰‚Œh”‰”(” ‰‚Œj”‘–<„# „„ł „I„«†¬€B” …„ų„ƒ –z„+Å‘†Ļ…‚Ī× ¤$Ź$ē„Å$ē*Ä$ē¤%)Ä%ē(Ź%ē'Ź– é ¤¤!"²Ō!…‚öŚŌ†‚÷!£×!,!¢¤ŠŽ…4˜±Ō;…4¤""ę "ę "ę †‚ÖŠڟ,"ę ¤ ˜±Ō ę "ę , ꤊé"„4Šæ–##Ō‰†„ś$”lŲPASCALCO <<<<Line , error ( (continue), (terminate), E(dit^‰ =±‰ …Q± Õ’…Q¦ =¦ %¦ …$Ō‘Š…"%²”Ō€€”…S°Ō¤Š…S£…S£į 1…S£” ¢¤1!=!£”‰‚”‰”‰‚ ”‰…P” ‰‚ ”‰%” ‰€:”…$Ō ‰‚”‰„” € ° €E°  €e°  ‰° Ōā €E° €e° Ō…Q£¦ €…””…€…”ᦠ%²Ÿ ‰° Ō€…””…€…”‘–-- «!‡"„€6”„‚€°”‰Ō„€>ȉ”‰„”‰„”…N„M…N¢„N–"1…$Ō{%³Ÿ¤%°¤%ठԤ…N%¢„N!…N…M£³ Ō,… Ō…ƒy°Ō‰Š†ƒzŠ…)²ŸŌ†ƒ¢Š‰ ‰” ŸŌ‰€<”‰…P” ‰€>”…P„O–.TEXT–X„.„YÅ„‡.€P”†ƒ¢„””"±Ō-†ƒ¢¤/„/„€P”„/‚€U”„/””"±Ō“‘„” „”!–Y”…Ō …… Ÿ”Ō‘„„S… Ō?…ƒy°Ō‰1…Q”°„ Іƒz1…Q”°„ … ŸŌ…ƒ„Q…ƒ„…ƒ„S… ŸŌf…)²ŸŌ_†ƒ¢1…Q”±ŌN”"°ŌA†ƒ¢”†ƒ…)£×¤ ę„Q ę„ ę„S†ƒ^ €(”…)£„)…)²ŸŌ†ƒ^‘‹”’Ё“‘…)²Ÿ…  ŸŌ‰ 1…Q”±Ō‘‘=°Ō 1§°Ō„…Q¢„Q– code discarded >>>>>> Error # ę5…ƒwŌ†ƒĖ…P” ” †ƒĖ‚Ė”” Šr…!Ō€D¤Š …D €0¢¤… Ō€*¤Š€ ¤†ƒĖ…P” ” †ƒĖ<” ” †ƒĖ…U” ” †ƒĖ€:”” †ƒĖ!”” †ƒĖ…R” ” †ƒĖ ”” =…S£¤"€d²ŸŌ€d¤1…S„"”„§°Ō+„§€ ²ŸŌ†ƒĖ€ „§€ £”” "£¤„„"”„"£ ȆƒĖ„"€d”” ‰ …Q°‰ …S²Ÿ”Ō#†ƒĖ‚Õ”” †ƒĖ‰ ” ” †ƒĖ”” –5*…„ų¤…„ų¢„„ų „Ī‰†Ķ…‚Ķ”±Ō—‘ „‚͆Ķ” ᄁ͖N…ƒ¢„ƒ…‚Ī¢„‚Ī…‚βŸŌ„‚Ī–¹…‚Ī¢„‚Ī…‚βŸŌU…‚Ķ…‚ϰŌ)‰Ō‰†Ķ…‚Ļ”±Ō—‘¦Š˜‘…Ī„‚͉†Ķ…‚Ķ”±Ō—‘„‚Ī– „*Ť ŸŌ9†Ļ…‚Ī× ¤)%ɰŌ%ÉÖ‚ŽŠ%焹¤Š Š%}(°¤Š ŸŌ’ŠĆ– V„*Ť…‚Ī„‚Š…‚Ķ„‚Ļ„‚Ī„ )փ ŠŠ Š„)( Š– £…‚Ķ…‚ϱŌ2‰†Ķ…‚Ķ”±Ō—‘‰†Ķ…‚Ļ”±Ō—‘…‚Ļ„‚Ķ…‚Š„‚Ī–†w7×x¤!˜°Ō †w7×&Ċ<!„&”¤"°Ō€e‘ |˜°Ō¤Š |„&”¤Šß"°Ō ē&Ċ ē&Ä&ē˜Ä&ē˜Ä–$$xŒ#¢Ä– ##xÄ–Ź…P¢„P=¢„…$Ō&#Ō ‰€+”Š ‰€.”…P…O£€2°Ō‘…"Ō‘1=§°Ō=³Ÿ1§±”Ō…Q£„Q‘Š=„S1=§ °Ō=¢„1=§°Ō=¢„Š=€P 1=” ¢„=€P€ 1=” ¢„…!Ō9„RŠ8„R–ö=¢„$‰#1=” ¤% Č1=% ”= ¢¢„–(@_¤=¢„=€P€ 1=” ¢„1=§‰#±Ō#‘>°Ō¤$†Å#€+Ä1=§ƒƒüŚŌ#1=§Ä=€P‰#1=” ¢¢„–Ž„)Ť(*Ä(x˜± Ÿ”Ō„(x¹Ō¤Š((x}ÄŠć– D …B²Ÿ%”Ԁ‘=¢„¤=€P€ 1=” ¢„1=§‰#°Ō¤Š_‘>±Ō¤ŠF„&ąĒ„‘ „&!˜±Ō1!¤"ę°Ō&&Š"ę ā¼ŪĒŽŠ"ę °Ō&&Š"ę ā¼ŪĒŽ1=§€,°Ō=¢„ Ō€=€P‰#1=” ¢¢„€€€$”–+^ (@*SYSTEM.LST.TEXT(@BVVhā÷“ł(1X`˜ "=¢„1=§€$°ÕH1=¢§‡#±Õ=1=¢§¤1=¢§¤1=¢§¤!€,°!‡#° Ō !¤€+¤=£„"€E°Ō"„„&Ō…ƒw„†ƒs¹”Ō„ƒw€€€$”…ƒwŸÕÖ"քī‹Ļ„„&Ō?…ƒx„„'‡˜±Ō0‡|¤‡€-°Ō‡Ÿ¤‡ŸŌ„ƒw†ƒs„Å‘…ƒwŸŌų€€”€€€$”‹|†‚ž€O%€€€$”‹j„„&Ōf…ƒx„„'‡˜°Ō0…B²ŸŌ€Ā‘Š#„” ‡¤ ‡ ē…ƒxć„ƒx‡ „Ň ēć˜±Ō!‡ք£Š‡ē‘!Їē‘"Š ‡ē‘!Š€€€$”‹š…B²ŸŌ€Ā‘!€-°„ƒ ‹Ū!ƒ„ŁŚŌ!€^°Ō†(‘"І(!€+°‘!‹š„€(%‡#€*°Ō=¢„…"Ō =¢„‘=£„…)°……” Ō –‘€€€$”…)²ŸŌ†ƒ¢”„‘…)¢„)ᑆƒ…)£×¤ ‡ ē=ć ē…Sć ē…Q£Ä‡ †ƒ^€(”†ƒ^„€(”„Q‘‘€€”‹!€+°!€-° Ō!€+°„"…"Ō †ƒĖ‚„ߔР„€(%†ƒĖ„””"°„"€€€$”‹Ł†‚֐(‹Š!€+°„%…%„†(…%Ÿ‘!†'…%Ÿ‘!‹µ†ƒĖ ”‹Ŗ!€-°„$‹”!ƒ„čŚŌ!€^°Ō†'‘"І'!€+°‘!І‚ę(Šz!€-°„Šr!€+°!€-° Ō!€-°„†(…Ÿ‘!†'…Ÿ‘!ŠQ…B²ŸŌ€Ā‘=¢„=€P€ 1=” ¢„1=§‡#±Ō ‘>€#°Ō…„‚Õ=€P‡#1=” ¢¢„€€€$”Š=¢„ €,±ÕĆü=£„=¢„1=§ °Ō’#Šó1=§‡#°Ōę1=¢§€)°‡#€}° ŌÖ=¢„–#>-¤,¤+‡,Ō=¢„=¢„‡+¢¤+‡+€P²ŸŌŽ‘¤+1=§ °Ō €Ź‘’#‹„‡+£1=§Č1=§€'°ŌĮ¤,1=¢§€'±Ō«‡+£¤+€%„„‡+„‡+°Ō „£§„Š$…J¤-‡-ć-ē‡+Ą£‡-磇+”…J„–-Ѥ ¤'¤¤'¤¤¤¤ =¤=¢„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Žč š ” 9…Ō…C„D„„€/„1=§Öˆn‹2)‹-*‹(†1”‹€}$‹Ł’‹1=¢§€*°Ō=¢„€*$=¢„‹»’Š„‹ņ„‹ģ„‹ę=¢„‹Ÿ’‹Ū1=¢§€.°Ō =¢„„Š„‹Į1=¢§€=°Ō =¢„„Š„‹§„‹”„‹›„‹•„‹1=¢§€*°1=¢§€*°”Ō =¢„€7„Š€'„„Šh€(„„Š_€(„„ŠV€'„„ŠM€)„„1=¢§ÖˆjŠ „=¢„Š „=¢„ŠŠ&€)„ „Š€)„1=¢§€=°Ō „=¢„Š „Š>€/°Ō1=§ °Ō #„‹«žŠ‘=¢„–[$˜±Ō$#†”°ŌŠ#˜ÄŠ#˜Ä–ū7¤„…!³ŌB†w…×x¤ ˜±Ō, „†”°Ō ę%ŚŌ‹dŠ …&Ō€g‘Š˜¤Š˜¤…£„Šø…&ŌD€h‘%ŚŌ…@¤Š4%ŚŌ…>¤Š(%ŚŌ…=¤Š%ŚŌ…?¤Š%ŚŌ…<¤Š…;¤$ Ė5 ׂ†Å„ׂ†Å„ׂ† ńׂ† ńׂ†Å„ׂ†Å„ׂ†Å„ׂ†Å„ׂ†!ńׂ†%ńׂ†)ńׂ†-ńׂ†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ńׂˆ\ńׂˆ`ŤS¤$‡S²Õ$Ąڤ$ֈd‹…0¤„ ” ¤T‡Tē;ćTēĊt…1¤Šn;¤„ ” ¤T‡Tē…3ćTēĊS˜¤ŠN…0¤„ ” ¤T‡Tē;ćTēĊ3…3¤Š-˜¤Š(˜¤Š#;¤Š…3¤Š„ ” ¤T‡Tē…3ćTēĊ%Ō„ ” Š„ ” !¤T‡T„$×ŇTē ćTē $¢Ä‡Tę €.³Ō ‡Tē ‡Tę £Ä%Ō‡TēĊ‡TēÄ ˜±Ō ē˜Ä‡Tē"ćTē Ä!”€$¢¤‹éž–T ȆJ€‚” †” †Š” „D„)„P„#„(„I„„ų„ €€„ „„ł„„U„R„Q„!„"„ „S„„T„„N˜„5€„H„„˜„A„ƒy„&„'„‚Ķį„‚Ī„‚Ļ„‚Š„ƒ „‚Õ„ƒ„ƒ„%„ƒŹ˜„7†‚Ń‚‰cŘ„4„ƒw˜„ƒx†ƒ^‚‰g€(”„ƒ †ƒs‚‰hÅ„ƒ ‰Ÿ„$„ƒ„ƒ„ƒ†Ķ” –8|tų"€€xų€{†r±Ō’‘Љ†„ś$”±Ō’‘– < „ „#…T£¤¤ '³Ō†€« ×x‘†€« ×Ä £¤Šć<‘…T£‘†‚Ń<‘†Ļ…‚Ī× ē¤'…ƒ Ä'ē…I8¢Ä‘‘…B…%Ÿ°Ōm+†‚Ń‘†Ļ…‚Ī× ¤'ē…ƒÄ'ē…ƒ£Ä'ē…ƒŹ'ē…ƒŹ…ƒ ŸŌ 'ēʊ…ƒ Ō 'ēʊ'ēŹ‘†‚ÖĒŽĒ„‚ö„ƒ …I£¤…«¤*˜±Ō„*ÅŠ„‚Å…ƒ ¤ -„†„ś ” -– t#˜±Ō-#¤ ę€`ŚŌ ę °Ō ę °Ō ęŌ€u‘ |’. }’.–DD € € Ŗ>ƒ»Ś…Ÿ”Ō&€„”„ŠƒæŪĒ”„€„”>°Ō€€”„G…GŌ>€‚”„ŠĒ”‚€‚”…Ō#>ƒĆŚŌ€„”„ŠƒĒŪĒ”„€„”‹u„!„C„ „R…%Ÿ…B²Ÿ Ō†w7×x.…Ō…Fęę…6°Ō>ƒĖŚŌ€€”>°Ō‘Š‘€ƒ”„ŠƒĶہŻĒ…Fę”ƒ€ƒ”>…F°…> °” ¤ ŸŌ,…F°Ō‘Š‘„Š…Fā¼ŪĒ‘ >…F°…> °” ¤ >†fŠŚ Ō” ŸŌ&…F°Ō‘Š‘€‚”„ŠĒ”‚€‚”‹•>°Ō‘>ƒĻڟ…F°”Ō/…> °”Ō‹$Š ‘„ŠĒ‘ €‚”„ŠĒ”‚€‚”ŠO…F¤!ę˜±Ō!ęēÄ!ę Ō…#Ō…Fę‘!z„T!|„ !y„B!x„!~„ !{„U…Fē ”!…Fę„F>ƒÓŚ„G…F˜°ÕBž…8‘–‚ƒÖ ķƒŽÖ”ƒŽÖ”ƒŽŲ”ƒŽŲ”†fІZŠۃŽŚŻĒ‘ƒŽŲ”ƒŽÖ”– b†ƒĖ†„÷ž’”†ƒz†„¦’’”†ƒ¢†„΁’’”€””€”…Ō‘/ІfІZŠۃŽ’ŻĒ‘€…””…€…”†ƒĖ”†ƒz”†ƒ¢”–Ż  ÷   æ !ĪI2ē’Œ…å©u“-— Ž Ų m  ś ź ā 4 H @ 6 '  ° Ÿ äTŽMŲ'€/” 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€(”„‚(€(”‰ŸÕ¢‰‚2”‰„€(”‰”„§±Õ€„§‰°ŌŠr‚<„”¤@‡@±Ō„‡@”„+„€(‡@”‚=„”¤@ŠŪ„„§§€.°Ō„„„B„§£”„B€(”Š„¤B„B„€(”„B‚>€0”„B€(”‰„””"±Ō‰‚C”‰„”‰8‚I”¦ ¦ ¦ –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£¤‚z€,‚~€'‚‚‚†‚Š‚Ž‚’€'‚–‚š ‚ž ‚¢‚¦€.‚Ŗ€ ‚®€"‚²‚¶‚ŗ€)‚¾€3‚Ā€4‚Ę‚Ź€'‚Ī€&‚Ņ ‚Ö€(‚Ś‚Ž€+‚ā€!‚ę€5‚ź€-‚ī‚ņ€*‚ö€!‚ś€6‚ž ‚‚‚‚‚‚ ‚‚€1‚‚€2‚‚‚‚‚‚‚‚"–ź† ” ;¤ Ä ēÄ ēĆ3” …3¤ Ä ēÄ ēĆ2” …2¤ £€dŒL¢”€Ä ēĆ1” …1¤ Ä ēÄ ēĆ0” …0¤ Ä ēÄ ēĆ,” …,¤ Ä ēÄ ē˜Ä†-” …-¤ ,¢Ä ēÄ ē…1Ć*” …*¤ ,¢Ä ēÄ ē…1Ć+ ” …+¤ ēÄ €P¢Ä ēÄ ēÄ ē;Ä ēÄ ēÄ ē…1Ä ē€PĆ/” …/¤ Ä ēÄ ē˜Ä ē˜Ä†.” ….¤ Ä ēÄ ē;ĖINTEGER REAL CHAR BOOLEAN STRING TEXT INTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL MAXINT SEMAPHORPROCESSI˜ „ ” !¤#‚ƒvÅ#ē;Ä#ēÄ!”€„ ” !¤#‚ƒzÅ#ē…3Ä#ēÄ!”€„ ” !¤#‚ƒ~Å#ē…1Ä#ēÄ!”€„ ” !¤#‚ƒ‚Å#ē…0Ä#ēÄ!”€„ ” !¤#‚ƒ†Å#ē…+Ä#ēÄ!”€„ ” !¤#‚ƒŠÅ#ē…-Ä#ēÄ!”€„ ” !¤#‚ƒŽÅ#ē…*Ä#ēÄ!”€†: ” …:¤#‚ƒ’Å#ē…-Ä#ēÄ#ē Ä#ē ą:”€†9 ” …9¤#‚ƒ–Å#ē…-Ä#ēÄ#ē Ä#ē ą9”€„ ” !¤#‚ƒšÅ#ē…-Ä#ēÄ#ē Ä#ē Ä!”€˜¤¤¤"#²Ō?„ ” !¤$ē…0Ä"°Ō$‚ƒžÅŠ$‚ƒ¢Å$ē Ä$ē "Ä$ēÄ!”€!¤"¢¤м…0ē!Ą ” !¤#‚ƒ¦Å#ē…,Ä#ē˜Ä#ē Ä#ēÄ!”€„ ” !¤#‚ƒŖÅ#ē;Ä#ēÄ#ē ’Ä!”€„ ” !¤#‚ƒ®Å#ē…/Ä#ēÄ!”€„ ” !¤#‚ƒ²Å#ē….Ä#ēÄ!”€–GOTOXYU PASCALIOTRANSCENLONGINT HEAPOPS  †‚÷£×‚„Ķņ‚÷ £×‚„Ńņ‚÷ £×‚„Õņ‚÷ £×‚„ŁÅ†‚÷ £×‚„ŻÅ–  †@ ” …@¤ ‚…Å ē˜Ä ēĆ? ” …?¤ ‚… Å ē˜Ä ē˜Ä ē Ä ēĆ> ” …>¤ ‚… Å ē˜Ä ē˜Ä ē Ä ē Ä ēĆ= ” …=¤ ‚…Å ē˜Ä ē˜Ä ē Ä ēĆ<” …<¤ ‚…Å ē˜Ä ēÄ ē˜Ä ēÄ ēÄ ē Ä ē Ä ē Ä ēÄ ēÄ ēÄ ē˜Ä ēÄ ē Ä ē Ć;” …;¤ ‚…Å ē˜Ä ēÄ ē˜Ä ēÄ ēÄ ē Ä ē Ä ē Ä ēÄ ēÄ ēÄ ē˜Ä ēÄ ē Ä ē Ė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 šĒ ø¢-ķ„ׂ…Įńׂ…Åńׂ…Éńׂ…Ķńׂ…Ńńׂ…Õńׂ…ŁÅ„ׂ…ŻÅ„ׂ…įÅ„ ׂ…åÅ„ ׂ…éÅ„ ׂ…ķÅ„ ׂ…ńÅ„ ׂ…õńׂ…łÅ„ׂ…żÅ„ ‡ „ ‡„T‡ „ ”€>±„ :Ō >±Ō”€ŠŠ”€:ÕÜž>°Ō”€Š”€–ė>€#°Ōq†w7פ#{¤¤ ˜±!Ÿ”Ō x…±Ō y¤Š¤€¦”€Šį!ŸŌ;„ ” ¤$…Ä$ē`mÄ ¤¤"%²Ō$ē"ׁ`mÄ"¢¤Šź$ē#{Ä#ē Ĕ€Š”€ˆŠ ŪĒ’>±„ :ŸŌ”€:Õg’>°Ō”€Š”€–‹>±Ō”€ˆŠŪĒ”€ >°Ō}„ ” ¤#†Å#ē˜Ä#ē˜Ä#ēĔ€>€)°? °”Ō”€Š”€ˆŠŪĒ„„”€ ”€ ē!Ä ē „Å>°Ō”€ˆŠŪĒ’Š > °…”ŸŌ”€‹~’–_>±Ō”€ˆŠŪĒ”€ >°Õ¢„ ” "¤%†Å%ē˜Ä%ēĔ€>€)°? °”Ō”€Š”€ˆŠŪĒ„„’"”€"ē#ą5¤!˜±Ō(!"¹Ō!~ē"~Ä!…5±Ō ē!Ċ!„5!¤!¤ŠÓ>°Ō”€ˆŠŪĒ’Š > °…”ŸŌ”€‹X’…5˜±Ō€u”€˜„5–¤˜¤>°Ō;„ ” "¤%†Å%ē!Ä%ēÄ%ē˜Ä… Ō%ē <įĊ%ē …BÄ"”€"¤”€Š”€>ˆŠŪ†VŠŪŚŸŌ”€ˆŠŪ†VŠŪĒ”€ >±„ :ŸŌ”€:ԁ>°Ō”€Š”€!¤ˆŠŪ†VŠŪĒ„„’!˜±ŌL!¤%ē#Ä%ē 9Ä9’$£²Ō9$¢„ Š€Į”€%¤%˜°Ō#˜±Ō#y°Ō%ē†w7×zĆw7×ē ĊÆ>°Ō”€ˆŠŪĒ’Š …> °”ŸŌ”€>±>†VŠڟ”ÕÓž…5˜±Ō€u”€˜„5–@@@š˜¤¤ ¤ >„ŠŪŚŸŌ”€ˆŠ„ŠŪŪĒ”€ >°Õ‰Ō€w”€”€>ƒ‰ÓڟŌ”€ˆŠ€!ŪĒ”€ >ƒ‰ÕŚÕ‚>°Ō¤”€Š¤˜¤¤>±Ō”€Š>„ ” #¤ +†Å+ē˜Ä+ē!Ä%°Ō+ēĊ+ēÄ+ē …BÄ#”€#¤'¢¤”€>ˆŠŪŚŸŌ”€ˆŠ€.ŪĒ”€ >±„ :ŸŌ”€:Ō‡˜¤>°Õ•”€>°Õ†Ē„”€ ”€#~¤!¤˜¤¤¤ $˜±Ō2%°Ō-$¤ +y°Ō€y”€Š$…/°Ō€Æ”€Š+y²Ō+x¤Š+x¤ ('*Œ¢¤ )'&Œ¢¤ !˜±Ō!¤!¤ +ē$Ä+¤Šź#˜±Ō#ē"Ä ¤Š”€Š”€>ˆŠ€(ŪŚŸŌ”€ˆŠ€(ŪĒ”€ >°Ō'”€>ˆŠƒ‰×ŪŚŸŌ”€ˆŠ€!ŪĒ”€ ‹tž>°Ō”€„ŠˆŠŪĒ’Š”€.¤ +ē)Ä+ē(ʤ"˜±Ō"¤ +¤+ē Ä"¤!¤Šē/ Ċ/˜Ä–€ ‡ƒ‰åĒŽ†n†rŠŪĒŽ†jƒ‰é†nŠŪĒŽ†Vƒ‰ģĒŽ†fƒ‰ļĒŽ†bƒ‰óĒŽ†^ƒ‰õĒŽ†Zƒ‰łĒŽ Ē„v†‚ęĒŽ†‚ÖĒŽĒ„‚ö–Pascal compiler 3.AoPROGRAM DDD   „B„†wפ ˜Ä ē˜Ä ē˜Ä ēą$Ō1¤„ 8 ²Ō ‰”8¢„ Šī‰‚Š?”‰‚ŠH”ᔀ”€”€…„   †8” …8¤ ē˜Ä ēÄ ēÄ ‚ŠKÅ ē˜Ä ēÄ ēÄ ē Ä ē Ä ē Ä ē <Ä ē Ä ēÄ ēÄ ēÄ ēÄ ē˜Ä…Ō!„ €€„H…%Ō„H†f†fŠƒŠOŪĒŽŠ„„B†wפ ˜Ä ē˜Ä ē˜Ä ēÄᄁĶ>ƒŠSڟŌ”€ƒŠWĒ”€ >€!°Õ¹”€>°Ōy”€†Ļ…‚Ī× ¤ Ź ē†Å ēŹ ēŹ ē…‚ÕĔ€†Ļ…‚Ī× ¤ Ź ēŹ”€†Ļ…‚Ī× ¤ Ź ē†Å ē<ƂцÅ…8†Å…8”€Š”€”€>°Ō”€>€(†fŠŪŚŌš>°Ō”€Š”€>°Ō”€Š”€†E” †F” …F¤ ē˜Ä ēÄ ē…8Ä ē Ä ē Ä ē Ä ēÄ ēÄ ē9Ä ē…BÄ 7Ä ē…UÄ ē Ä ē …EĆK†L” –ž m s®ā·×H'S\  DECLARAT(>„ŠڟŌ”€„ŠĒ”€ – *Ä>†nŠڟŌ”€„ ІnŠŪĒ”€ >†nŠŚÕŖ>°Õ›7¤†w7×y±Ō7£„Šļ„” !¤'Ä'ēÄ'ēʤ¤”€>°Ō3„ ” #¤'†Å'ē!Ä'ē"Ä'ē %Ä'ēÄ#”€%¢¤#¤”€Š”€„ Š€"ŪĒ’>±Ō®!ē"Ä$„>°Ō”€Š”€‹ś>°ÕSĒ„”€ ”€#ę°Ōe„” !¤#¤ 'ē(~Ä'ēÄ'z”€ Ō €””€'ē˜Ä'ē(ē Å'Ä>°Ō”€Š”€„ ŠĒ„„”€!ē„Å!z ±Ō€k”€‹Ł#~¤!…+°>°”Ōe”€„ ŠƒŪĒ„„”€ ;°Ō6&²&€’²Ÿ Ō €Ė”€€P¤&€P±Ō„ ” !…+Å !¤'ē&Ä'&¢ÄŠ”€>°Ō”€Š ”€Š]!;°ŌX>°ŌS”€„” !…2Å „ ŠƒŪĒ„„”€ ;°Ō&²&€$²Ÿ Ō€Ė”€Š!&”€Ċ”€>°Ō”€Š ”€!˜±Ō*!xĊk„” !ēĄ ŠŪĒ„„”€ ”€ Ō€””€˜¤!¤'ē Ä'ē„Å'Ä>°Ō”€Š”€„ ŠĒ„„”€!ē„Å!z ±Ō€k”€!˜±Ō1!¤'y°Ō('z˜±Ō"'z…3°Ō”€Š'|'{²ŸŌ €f”€'ē'|Ä+!Ą ŠĒ’Š+˜Ä–Cž¤%˜±‰ ”Ōp%¤"yցˆŠf%;±%…3±”Ō5%„„”€ !³Ō(¤¦ ¤! ³ŸŌ!¢¤!£Œ¢¤‰ ¢¦ ŠāŠ%"z’Ō"z„„”€ ¢¤ ³ŸŌ¤ ¦ Жډ˜±Ō/‰¤ ę Ō% ę °Ō ē Ċ ę ² ę ²”Ō ē Ä ē Ė€¤%¤"~’ŌI‰ ‰ ¢²ŸŌ‰¢¦¦ ¤"ē ‰Ä"ē Ä"ē ‰ Ä"ē ‰ ĉ ‰ ¢¦ ‰ ³Ÿ¤Š6‰ ²ŸŌ‰¢¦¦ ¤"ē Ä"ē ‰Ä"~˜±Ō ‰"~x¢¦¤!Ō’ Ō%¦Š˜¦–Iˆ ” ‰ ¤!ē˜Ä!ē˜Ä!ēĉ‰ Ĕ€>°ÕŪ‰ Ō ˆ ” Šˆ ” ‰¤!ē˜Ä!ēÄ!ē˜Ä!ē Ĥ„&Ēˆ”€ „&‰˜°Ō!¤‰†Å‰”€”€>°Ō”€Š”€>°ŌWĒˆ”€ ‰~¦‰˜±Ō:‰y²Ō-…3‰”€Ō€m”€‰ē‰ĉ ē‰Ä Ō‰’Š€n”€”€Š”€ˆŠŪĒ”€ Š”€ˆŠŪĒ”€ ‰ ¤!‰ĉ ²ŸŌ!!x¢Ä> °Ō”€Š”€˜¦‰¦ ‰¦ ‰ ¦‰ ¦˜¦ˆŠŪĒˆˆ ”€‰ z˜±Ō‰ z~‰”€ŸŌ€o”€ˆ” ‰¤!ē‰Ä!ē‰Ä!ēˆ Å!ē ĉ¦‰¦>±„ :ŸŌ”€:ŌŽ>°Ō”€Š”€>°Ō”€Š ”€>°Ō˜¦ŠˆŠ€(ŪĒˆ’‰‰ ²ŸŌ‰¦ ‰ ¦Š‰‰ °‰ ‰²Ÿ”Ō‰ ¦‰˜±Ō0‰z¦‰ē‰ĉ¤!‰ĉ ²ŸŌ!!x¢Ä‰¦ŠÉ>°Ō”€ˆŠŪĒ’Š”€>±„ :ŸŌ”€‰ ¦‰¦ :> ° Õ®ž‰ ¦‰¦ ‰ ē‰Ė      ¤˜¤˜¤ ˜¦>ƒƒ¦ڟŌ”€„ŠƒƒØŪĒ”€ >°Õå ¤>°Ō;‰ Ō„ ” Š„ ” #¤/†Å/ē˜Ä/ē!Ä/ēÄ/ē Ä#¤#”€”€Š”€>ڟŌ”€„ŠƒƒŖŪĒ”€ >±„ :ŸŌ”€:Ō’>°Ō”€Š”€„Šƒƒ¬ŪĒ„ „ ’(˜±Ō (y°Ō€l”€! ±Ō!¤/ē(Ä!/¤Šź#¤>°Ō!”€>ƒƒ®ڟŌ”€„Šƒƒ°ŪĒ”€ ‹’˜¤ ˜±Ō ¤/¤/ē!Ä ¤#¤Šē>°Ō Ї˜Ä–A ˆ” ‰‰ĉ¤ ē˜Ä Ä ēĔ€>°Ōk„&Ēˆ”€ „&‰˜°Ō*ˆ ” ‰¤ †Å ē‰Ä ē…5Ä ēĉ„5Š%‰~˜±Ō‰~y±… Ō ‰ē‰~Ċ€l”€”€Š”€–Å ‡˜Ä¤ >†jŠڟŌ ”€„ІjŠŪĒ”€ >†jŠŚÕ2>†nŠŚŌ„ŠĒ‡‡‹ >°Ō ‹>€+°Ō$”€¤ >†VŠڟŌ ”€„ІVŠŪĒ”€ >€,°ÕS”€>°Ō”€Š ”€˜¤*Ō„” Š„” "¤-ē!Ä-ē˜Ä*Ō-ēÄ-ēÄ-ēÄ"¤„Šƒ„¢ŪĒ„„!'Ä ˜±Ō2 y²Ō$ …3°Ō €m”€˜¤Š ;°Ō€•”€˜¤"ē Ċ€q”€˜¤>±„ :ŸŌ”€:Õp’>°Ō”€Š ”€> °Ō”€Š”€„ŠĒ„„’"˜±Ō "y°Ō€l”€"Ō++¢²Ō!¤-ēÄ-ē+Ä-ē+Ä!¤-{¤-ē"Ä-z˜±Ō4-z„ „ ”€ -|Ō ()£-~¢-~¤Š '()£¢Œ¤'²Ō Ž”€¤-'Ä!¤ ¤!˜°ŌƋ{>€-°Ō”€7¤7 ³ŸŌ7¢„†w7פ-˜Ä-ēĊ€ś”€¤¤ „Š݁ŪĒ„,²ŸŌ&¢¤„” "¤-ē†w7×xÄ-ē!Ä-&Ä-ēÄ#„> °Ō”€Š ”€‹ö>€*°Õ•”€> °Ō”€Š”€„ŠĒ„„!˜±Ō(!y²Ÿ!;° !…3° Ō €s”€˜¤Š!…3°Ō€r”€˜¤„” "¤-ē!Ä-ēÄ!˜±Ō-!„ „ ”€ )³ŸŌ”€-(¢Ä-x€’²ŸŌ€©”€-Ċ-ĊZ>€.°ŌT”€„” "¤-ēÄ-ē˜Ä> °Ō”€„ŠĒ„„’Š˜¤"ē!Ä!˜±Ō!y°Ō€l”€",!x¢ÄŠ"€(ć"ĄŠĒ’Ї˜Ä‡x˜°Ō‡Ċ‡‡xxĖ ‰¢¦‰²ŸŌ4¦‰¤ °Ō‰.Ā‚ ”Іƒzˆ ”±Ō—”€–½ -„‡0€P”‡.ąƒy‡/±‡/± Ō…ƒŹŌ†ƒz”†ƒz„””"°„ƒŹ…ƒŹŌi†ƒzˆ”±Ō—”€¤‡.xŸŌ&ˆ × ¤+‡+É°Ō ‡.‡+熹ć.xŸŌŠŌ‡.xŌ‡/„ƒyˆ × }¦ˆ × {¦–0*SYSTEM.INTRINS*SYSTEM.LIBRARY *USERLIB.TEXTėZ„„.ž’”‚†ą‡[ ‡[xŸÕ˜…7¤ ˜±‡[xŸ”Ō †¹Ō‡[Ċ ¤Šį‡[xŌ%†ᔀ†Ļ…‚Ī× {¦…‚Õ¦”€„ƒyŠJ‚†č‡[ ‡[xŸŌ:„‚†š””"°Ō(„” ‡[x ŸŌ„„/€P”„”„/‡[ ŠŲ‡[xŸŌ€¾”€Š‰°Ō €Ć”€‡[ć[xŌ„ =„ƒ…S„ƒ…Q£„ƒ‰„Q”€”€„”–[=…B±Ō€½”€>±Ō”€‹ł… Ō;…4¤¤‡Ÿ‡˜±”Ō‡†¹Ō¤Š‡¤ŠÜ‡ŸŌ€¼”€‹ŗ„†Å<¤ …T¤9¤ …H„ …H€’²ŸŌ”€…H¢„H„T„ „ ‡Ōoᔀ†”€„ ” ‡¤‡„Å‡ē…4ćē˜Ä‡ēćē ‡ćē <ćē ˜Ä‡”€‡„4ˆŠƒ‡zŪĒ‘'„Q”€ €Š”€˜¤’$”€„Šƒ…bŪĒ’&’2˜±Ō 2y±Ō€q”€ ˜±ÕÆ ¤ (z2”€ŌE(z˜± ”€ Ÿ”Ō6(z„„”€ …'Ō '’&’€K’'±Ō'ą’'²ŸŌ€#’Š€"’Š€‹”€({„„„„2˜±ŌG(|Ō-(}°Ō„ ”€ …'”Ō €F’’Š „€X(~(}’ Š€W2x’2y²2x²Ÿ”Ō„>±Õ’>°Ō”€Š ”€‹ō>°Õ–2˜±Ō2y±Ō€Œ”€˜„”€>°Ōu2˜±Ōk2z„”€%˜°Ō €˜”€˜„ŠU%¤ (~„4օdŠ6(ę ¢„Š5(ę ¢„Ё”€Š(ę Ō’$„(ę ’(ę ’2˜±Ō2y²2x²Ÿ”Ō’$„”€Š”€ŠX2˜±ŌP2¤ (y°(y° Ō=’„„„(y°Ō(z„Š(z„2˜°Ō”€2˜±Ō2y²2x²Ÿ”Ō„Š€”€”€>„ІbŠŪŚŸŌ”€„ІbŠŪĒ”€ ‹Ēż–K>°Ō…vŪĒ„”€ ”€Š”€…>¤„ŠĒ ’'–š„ŠĒ’&3°2…1°”2”€  Ō 3°Ō’$Š#Ō€š”€3°Ō†…+’Š2˜±Ō€}”€…+„–®>°Ō”€Š”€–¾2;±Ō€}”€–Ļ „ƒ ˆŠĒ’)’$˜¤¤¤2˜±Ō(2¤ (y°Ō(z˜±Ō(z¤ )x¤)y°Ō){¤Š€t”€>°Õ‰”€ˆŠĒ„„”€$¢¤!˜°Ō€ž”€Šc!y±Ō€¢”€ŠV!z˜±ŌP ”€ …3° Ō€Ÿ”€Š=!z~ ”€Ō.!{¤ ˜±Ō ¤ (|'°Ō (x¤(z¤‹Š({¤Šß!x¤˜¤Š€t”€‹q’&’…ƒ Ō‰€2°Ō”€Š ’Љ€2°Ō ’Š ’– >ˆ ŠĒ’)’%’+‰°Ōˆ ŠĒ’&’Šˆ ŠĒ’)’%’+ˆŠĒ’&’‰°Ō ’Љ°Ō’Š’–ø…B°…”ԁ”€>°Ō€ąĒ„”€ ”€Š>€!°Ō …8¤”€Š˜¤ ˜±Ō, ¤!ę °Ō!ęŌ!ę ’ Š!ę ’!ę ’Š€}”€Š€}”€’’–B’,’+ˆ ŠĒ’)’%’+ˆŠĒ’&’’,>°Ō!”€>°Ō’ŠˆŠĒ’&’’,Š’>°Ō”€ˆŠĒ’&’’,Š’‰ °Ō’Š’–ß9¤¤€’¢’!9¤9€’¢¢„ ’€&!’ !’ ˆŠĒ’*"2梤"€’³ŸŌ"’Š€’’’!’ >±„ :ŸŌ”€:ŌĮ"€’³ŸŌ!„ Š€’¤"¢’" „ † ” 2…+Å 2ē"ˤ‰°Ō9¤€’¢’!9¤9€’Ō<…#Ō ”€„I„„ł<¤ …H„ …T¤ „T>¤>ƒŠłŚŌ”€Š ”€¤ ¤9¤ „ 9„R„!>°Õ¬… ……” Ō¤Šn†w7×x„”€"˜±Ō["ę°Ō"ꇰ”"ę °”¤Š7"ę°Ō"ꇀ °”"ę °”¤Š"ę°Ō"ꇀ5°”"ę °”¤Š¤$ŸŌ€ ”€Š¤$ŸÕž‡°Ō„” Ї€ °Ō„” Š„” "¤‡†Å‡ē˜Ä‡ēćēćē ćē ćēćē …Bćē …Tćē <ćēćēćē˜Ä‡ē… … Ä… Ō#‡ē <įƀ«…T×ćŌ‡ē…4ę ą4ē "ćŌ…H€’²ŸŌ”€…H¢„H…T€’²ŸŌ”€Š…T¢„T‡°Ō‡ēĊ‡€ °Ō‡ēĊ‡ēÄ"”€Š'<"ę ±Ō "ę „ „T‡ŸŌ”€Š <*°Ō”€”€Š”€…<¤…B¤7¤…U¤ "¤¤"ę „U…B³ŸŌ…B¢„BŠ€ū”€7 ³ŸŌ.7¢„†w7פ$Ō‡"Ċ‡˜Ä‡ē˜Ä‡ē˜Ä‡ēĊ€ū”€‡°‡€5° ŌĒ„"$ŸŌ"ē!Ċr Ē„"$ŸŌ"ē!Ä>°ŌR”€>°Ō6$Ō€z”€Ē„”€ !~¤"ē#Ä#˜±Ō#yŚŸŌ €x”€"ē˜Ä”€Š”€ˆŠŪĒ”€ Š $ŸŌ€{”€>°Ō”€Š”€… Ō"ēċ™>€"°……” Ō3$Ō€””€Š"ēÄ>€"°Ō”€>°Ō”€Š”€ˆŠĒ’ŠZ‡Ō ”€†Ļ…‚Ī× ¤‡ʇē"Ňē<Ħ„” "¤‡ēćēĤ‡¤…F¤†F” …F„Å€‚”'„B&„,„ )„U‡Ō(„T*„ –®%˜°Ō…F¤"ē Ä"ē Ä"ē9Ä"ē9ċĘ%¤"ę±Õ»…F¤#ē "ęÄ"ę°Ō#ē Ċ"~˜±Ō #ē "~xĊ#ē Ä#ē9"ę¢Ä#ę #ę ¢²ŸŌ #ē#ę¢Ä#ę#ę ¢¤#ē #ę ¢Ä"ē Ä"¤!˜±ŌP!¤#~˜±ŌA#ę°Ō)#~y²ŸŌ £¤#ē 9Ä9#~x¢„ Š #~x£¤#ē Ċ#ę°Ō £¤#ē Ä#¤Š«–€ € D Tų¤>€1°Ō”€ >°Ō%……B°”Ō€ŗ”€„ŠƒXŻĒ”€ Š”€>°Ō”€>°Ō”€>°Ō”€>ƒZŚŌC…Ō …… Ÿ”Ō„…F¤"ę ŸŌ "ę"ē Ä>¤”€ €!°Ō Š >ƒ^ڟŌĢ>°Ō…F¤"ę ŸŌ "ę"ē Ċ@… … >ƒbŚ”Ÿ>ƒfڟ”Ō'…)²Ÿ! Ÿ>†fŠڟ Ō”€„ŠƒjŻĒ”€ >†ZŠƒnŪŚÕóž„G– ć Ś ž 2 Čx!eŠųTBļ³Ń„s ‚ēBODYPART„08”8¢„ –+#€€¢”€–’’’’g#ƒŚŌ#”€Š##²Ÿ#€’²”Ō €€¢”€#”€Š €€¢”€#’–#€²Ō#”€Š€€#¢”€#”€–@€f'€€¢”€'°Õ&°Ō¤Š"¤!²ŸŌ4ē!£×x±Ō‹ Š!£¤Šį2!Ä!²ŸŌB…I’!”€8¤!¤¤ #²Ō4ē £×x”€ ¢¤Šč"Ō "¢”€Š"”€"„ Š8£„ !°Ō 4ē£×x’Š*'ƒHŚŌ&”€Š'€f°&²”Ō8£„ €x&¢”€Š&’–Œ8¤$”€%”€…«’…I„« ”€ „ –%˜±ŌB%¤ ę<± ę° Ō+ ę ę  ē<Ä ē…«Ä ę € ²Ō†¬ ę €€£×…«Ä# ęĊ=$€ ²ŸŌ $#…«ÄŠ+†¬$€€£×x°Ō$†¬$€€£×…«Ä#†¬$€€£×xĖ(’$’#”€–:˜$„’ ’ –x‰…B£¤˜ „’!¢’ ‰°Ō €g‰¢’‰ °Ō €f‰¢’–?%€X°Ō%€€¢”€$”€#”€‹©$…B²ŸŌ ‹…B$£°Ō>…Ō‹pŠ3% °#²”Ō €/#¢”€Š!%°Ō’% °Ō’%€&°Ō€%’#’ŠW$°Ō4% °#²”Ō#¢”€Š!%°Ō’% °Ō’%€&°Ō€$’#’Š…B°…%Ÿ”Ō$¢¤%€€¢”€$”€#’–Z‰ ‰„’ ’ ’–Œ…B°Ō‰£¦…B‰£’‰ ‰„’ ’ ’–"'³ŸŌ‹…&<±¤!…”ԐŠv¤'°Ō…Ō‹&Š !Ō’Š’ŠA'…B°Ō!Ō’Š’Š,¤!Ō&€€³Ō‹/Š’Š’…B°…%Ÿ”Ō'£¤!Ō&”€ Ō…B'£”€%”€– 4’$”€#”€–L…‚ö$ā¼ŪĒ„‚ö$#’–[#’ ’–Ü%¤"xŌN"y8£¤ ³Ō €€²Ÿ¤Š €~᳟¤!&€T°”Ō€U¤Š !& °”Ō ¤&€€¢”€!Ō £’Š £”€Š%"ē08”& °Ō 8¢¤Š8¤"ē Ä8¢„ –ö’2…0±Ō€‡”€€T#’–#” #x¤ Ä ē`mĖ Code range:  moved  bytes}…"ŌE†ƒĖ‚‚‰”†ƒĖ%” †ƒĖ€-”†ƒĖ$” †ƒĖ‚‚”†ƒĖ#” †ƒĖ‚‚””†ƒĖ”–±0%§€€£¤ €U° ° Ō0$0$§¢Č0$§°Ō 0$¢0$¢§¢Č–07¤†w!×y±Ō!£¤Šļ†w!×{¤ ˜±Ō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Ä $’–„(Å!° …1° ”€  ”¤ – R’…I’8¤&¤‰€Ō&”€"Ÿ¤&¤¤!#²Ō'!£§”€!¢¤Šģ"Ō”€ ”€ „ –{%z˜±Ō%z„„”€ !£¢&xę±Ō€”€&%Ė“#…1°#y°#z…1°” ¤–„‡€…˜±‡€†x˜±”Ōp‡€†x ‡€… ”Ō ‡€†z’ŠW‡€…”€ ŌN‡€…¤€‡€†x…1°Ō„£‡€†zȄ‡€†‡€…ÄŠ&‡€†z¤€‚‡€‚燀‚y‡€Ÿ‡€†x”Ō‡€†‡€…–€†>‰‰±Ō9#¢‰²Ÿ9‰²”Ō‰„ –S9#¢„ 9…²ŸŌ9„– %®ą| 2˜±Õ3ք2‹ß2y°Ōt4¤'¤#ē£×x³Ÿ¤#ē£×x’’#z¤¤!$²Ō@!#z°Ō #y”$¾¤ ’’’#ē!£×x’’"Ō’Š’!¢¤Š»Š/2y°2…3±”Ō4’Š2…,°Ō’Š2…3°Ō’Š’Š44ք+Š* …B5£6’ Š€f5’Š€I’Š€P2x’Š€'’ŠŠŠ2¤#y°#y°3±” 3±”Ō2x’„–%,5Ś #¤ x˜±ŌA zքæŠ:€&…B {£ |’ Š, {±Ō”€Š€D’Š€J’Š xx’Š€H’Š– > 2˜±ŌG3քóŠ8†’Ō†…+’Š'4քīŠ…B5£6’ Š5±Ō€g5’Š€g”€ŠŠ„„„– ³ 2˜±ŌX3օ%Š8†’Ō†…+’Š'4օ Š…B5£6’ Š5±Ō€g5’Š€g”€ŠŠ3±Ō „”€Š 4±Ō”€„–2GŽ  ,¤ (~„„(ęօ[‹·(ę ³Ÿ+”Ō…B(ę £(ę ’ „„Š (ę „(ę „„‹ˆ …B(ę £(ę ’ „„Šs†w…פ )y°Ō„)z„){(ę ¢„Š )z’ „(ę „(ę Ō’$„(ę ’(ę ’Š,(ę ±Ō€–”€Š(ęŸŌ€g”€Š„(ę ¢„(ꄊ2˜±Ō2y²2x²Ÿ”Ō’$„>†bŠ„ŠŪŚŸŌ€;”€†bŠ„ŠŪĒ”€ >†bŠŚÕ/>°Õ„†Å ˜±Ō y±Ō &2˜±ÕÅ2y±Ō €ˆ”€˜„‹“$z2”€Õ„¤¤3°4€²”Ō ¤4¤&¤8¤’>°ŌF”€¤„Šƒ‘ńŪĒ’&$z2”€ŌŠ€‰”€˜„!Ō3°4€²”Ō4¤Š’¤Š’!Ō%„ „ „ Š&'¼ŪĒŽŠ#Ō€b’€<’"Ō€[’Ф$ē2Ä$„Š€‰”€>±„ :ŸŌ”€:Õ’>°Ō”€Š ”€"Ō/„ жŸŌ …Jē„ ŠĒŽ…JąJ„„’€[’„Š…Jē„ ŠĒŽ…JąJ„„Š>„ŠڟŌ”€„І^ŠŪĒ”€ ‹ż–€€_Ɂ°­( „ Šƒ“­ŪǐK>€'°Õ’„†Å?¤8¤”€„ Šƒ“°ŪǐK’ ˜±2˜±”Õė%֓³‹ā ;°2;°”Ō ’ŠJ„’H„&’G …3°2…3°”Ō€B’Š-2y° y°”Ō’Š y° 2”€”Ō€\’Š€†”€˜„‹†„&’G …3°2…3°”Ō€C’Š€†”€˜„Šd„’H ;°2;°”Ō ’Š y°2y°”Ō ’Š€†”€˜„Š5 ;°2;°”Ō’Š€†”€˜„Š …0°2…0°”Ō€!’Š€†”€˜„ŠŠ˜„‹Śž–_»G* ¤>€(°?€`Ś”Ō ¤?°¤”€„ Šƒ”XŪǐJ'Ō9’2;°Ō &Ō€a’Š'2…3°Ō &Ō€d’Š2y°Ō &Ō’Š€†”€˜„>€(°Õ’„†Å?¤8¤ ”€„ Šƒ”[ŪǐJ’ ˜±2˜±”ÕŻ%֔^‹Ō ;°2;°”Ō€"’ŠJ„’H„(’G …3°2…3°”Ō€@’Š-2y° y°”Ō’Š y° 2”€”Ō€[’Š€†”€˜„Šx ;°2;°”Ō€#’ŠJ„’H„(’G …3°2…3°”Ō€A’Š-2y° y°”Ō’Š y° 2”€”Ō€]’Š€†”€˜„Š …0°2…0°”Ō€ ’Š€†”€˜„ŠŠ˜„‹čž–  (9>TTš   ¦,8¤ „Šƒ•%ŪǐI>€)°Õ †’¤ (Ō2…1±Ō†J€‚” Š2˜±Ō2y²Ō’Š’$„†Å?¤8¤ ”€„ŠĒI ˜±2˜±”Õ·%°Ō.2y°Ō 2z”€Ō ’€Z’Š€”€˜„Š€‚”€˜„‹„†’Ō(Ō„ ’† ’Š?2y²Ō’Š’$ 2±Ō „H„+G(Ō „2’%֕(Š ¤Š ¤Š ¤Š¤Š 2”€Õ x¤¤€1¤ y֕.‹ž …3°Ō ¤€M¤ Š …0°%Ś”Ō¤€3¤ Šy%ŚŌ¤€3¤ Šh¤Šc% ŚŌ€„”€¤€6¤ ŠM¤€9¤ ”€ Ō$ Ō¤¤ Š z˜±Ō¢¢„ ‰€(±Ō#ˆ ŠĒ‰±’*‰°Ō 2¤!’ ’+ˆ ŠĒ’&’2˜±Ō’,’+ˆŠĒ’&’2˜±Ō’,‰°Ō)’!’ "ꀒ³ŸŌ!„ "ę¢’" „ "„Љ€(°Ō’Š’–ļ…22”€ŸŌ2;°Ō ’…2„Š€}”€’+ˆŠĒ’*2”€ Ō 2ę’ ’Š€t”€–NORMAL LOCK  PURGE CRUNCH žˆŠĒ’)’$2˜±Ō 2y±Ō€}”€>°ŌS”€>°ŌE†‚‰y¹Ō’Š1†‚‰}¹Ō’Š"†‚‰¹Ō’І‚‰…¹Ō’Š”€”€Š”€Š’’…(Ō ’–&)07KˆŠĒ’)’$2˜±Ō2y±Ō€}”€Š 2z˜°Ō”€‰Ö‰ŠŠV>°Ō”€ˆŠĒ’&’’,Š€}”€ ’Š/’Š(’Š!2˜±Ō 2z…1±Ō”€ ’’’Š…(Ō ’–ķ’ˆŠĒ’&’2˜±Ō’,’+>€)°Ō ? °Ō’Š? °Ō’Š€}”€”€Š€}”€ˆ ŠĒ’&’2˜±Ō 2…1±Ō€}”€’+ˆŠĒ’)’%>°Ō”€ˆŠĒ’&’Š’ ’;„–Œ’ˆ ŠĒ’)’$2˜±Ō2y±Ō€}”€Š 2z˜±Ō”€’+ˆ ŠĒ’)’%’+ˆŠĒ’&’’,>°Ō”€ˆŠĒ’&’’,Šį’‰€$°Ō’Š’’…(Ō ’;„–ø>°Ō…vŪĒ„”€ ”€ ~˜±Ō ~xŒ’;„–%„ˆŠĒŽ>°Ō”€„ŠĒ’)’$Š5>°Ō„ŠĒ’&’Š!„ŠĒ„„”€;!”€Ō"”€Š€t”€>±¤ ŸŌ”€ Ō„–V>°Ō!”€>°Ō#’ŠˆŠĒ’&’’,Š#’–& „ˆŠĒŽ>±Ō”€‹²9¤’!8¤ 8¢„ 8¤ €€Ē„”€ ”€ˆ ŠĒ$’(8¤)„ >°Ō(”€>°Ō’Š„ŠĒ’)2….±Ō€=”€’$Š’€Č<į<9’ ’„’ %’’8(³ŸŌ0(08'(£”(88(£’8'(£¢„ Š'„ %’’"&„ – NIL ,/ U‰€/°>°”†‚‹”¹”Ō ’”€ŠˆŠĒ’)2…/±Ō€<”€’$‰֋˜‹‚€^’Š{€_’Št>±Ō”€Š7€b’”€ˆŠĒ’&’2;”€ŸŌ”€€D’€g’’€D’Š0>±Ō”€Š#”€ˆŠĒ’&’2;”€ŸŌ”€’Š–Y„ƒ …ƒ ԁ”€Š@ˆŠĒ’*2”€ Ō(‰€3°Ō ’Љ€4°Ō ’Š ’;„Š€t”€–`„ƒ ˆŠĒ’)’$2˜±Ō 2y±Ō€t”€‰ƒŒ.ŚŌ:…ƒ ԁ”€Š+’+ˆŠĒ’&’’,‰€5°Ō ’;„Š ’Š1…ƒ Ō‰€8°Ō€ ’Š€!’Љ€8°Ō ’Š ’– 9 "&&*.26666:>>BB>BB²#֌ŠD.Š@1Š<2Š83Š4/Š00Š,5Š(6Š$7Š 8А9А:А;А=Š 4А>А?Š–Ž#¤ ę°Ō…B ę £ ę ’ Š …B ę £ ę ’ –C&Ō$…:Ċ$…9Ä>°‰”Ō>…v%ŪĒ„”€ ~˜±Ō) ~y°Ō" ~z…1°Ō”€$ Ä>€"ڟŌ”€>°Ō”€Š &‰”Ō”€–PĒ„’A‰>±”ÕŁ ’@ˆŠĒ’)4°¤’$!Ō9¤’!€&9’ €&9¢’ 9¢’ 2˜±Ō];2”€Ō ’ŠN…32”€Ō ’Š>…22”€Ō 2x’ ’Š)…12”€Ō’Š2”€ Ō 2ę’’Š€}”€!Ō" 9¢’ 9’ 9¢’ €H’’""„ …(Ō ’>±„ :ŸŌ”€:Õ'’‰°Ō ’@’…(Ō ’–ģ€RĒ„’A‰>±”Õh"’@ˆŠŪĒ’&2¤ ˜±Ō% ¤&y²ŸŌ’$Š’&y°Ō €$”€’’>°Ō'”€ˆŠŪĒ’&2˜±Ō 2;±Ō”€’¤Š¤ ;°Ō!Ō’ ’‹Ķ …3°ŌP!Ō’>°Ō9”€ˆŠĒ’&2˜±Ō3°Ō2y°2…3±”Ō 4°Ōį„’2˜±Ō’,Š’ ’Šw …2”€Ō!Ō’ ’Š` …1°Ō!Ō’’ŠL ”€ Ō!Ō’’Š7 ”€ Ō+¤ z˜±Ō z„„”€ #$£¢¤!Ō#’#’’Š€}”€…(Ō ’>±„ :ŸŌ”€:՘ž‰°Ō"’@’…(Ō ’–(‰¤"ę †‚ęŠڟ¤"ę °Ō ¤Š "ę †‚ÖŠŚ"ę €€°…” ”¤–€T‰¤%¤%ę °Ō1%ę ±Ō”€%ę <±ŌEŌ%ęŌ%ę ’ Š%ę ’’%ę°Ō(%ę °%ę ƒŽ•Ś”ŸŌ’%~˜±Ō %~x²ŸŌ’%ę°Ō9’ >°Õ!˜°Ō€~”€”€ˆŠ€"ŪĒ’&2˜±!˜±”ÕÓ!~¤!ę°"˜± ÕĆ!ę°Ō}†’Ō†"’Šk2y²Ōb’"y°Ō €G"x’ŠN"y°Ō2;°Ō’…2„"x’’Š0"y°…'”Ō"|’"{’€K’Š2;°"…3”€”Ō €L’…3„Š’$Š13°Ō'4°Ō€g”€’$"˜±Ō"yŚŌ 2x"x±Ō€Ž”€Š€š”€"2”€ŸŌ€Ž”€!˜±Ō!¤>±Õųž>°Ō”€Š”€!˜±Ō€~”€‰¤%ę °Ō5‰%ę %ę %ę ’ %ę <±ŌEŌ%ęŌ%ę ’ Š%ę ’’Š6%ę £ŚŌ%ę €!°Ō€?’ŠŠ%ę €*³Ō %ę €(£’Š%ę ’‰~„–Ą7xvÄž÷ż1 aa­Čś#<v›½õ%%%%Åe#‡ę °Õˆ¤‡ę ¤>°Ō”€Š €:ŚŌ¤Š ”€„„Š€ ŪĒŽ„ „ŠŪĒŽ„„Š„ ŠŪĒŽ ƒ«ŚŌ „ŠĒ’&’ ƒÆŚŌ -‹’ ֏³‹ųB‹óC‹ī’!Ō1„ŠĒ)’$2˜±Ō2y±Ō€}”€Š2z…1± °”ԁ”€Š…:@ °Ō ’Š ’…0„‹š’2˜±Ō@2y°2…3±”Ō0 °Ō€"’Š€#’…'2;±”Ō2„„”€ /’.’€K’Š€s”€‹N2˜±Ō2y³2…3° Ō€}”€;„‹32˜±Ō*2;°Ō €b’ ’Š2…3°Ō €F’€B’Š€}”€;„‹2˜±Ō!2;°Ō€`’Š2…3°Ō€c’Š€}”€;„‹Ų„ŠĒ*’€'’;„‹æ„ ŠĒ*+„ ŠĒ*2꒐+„ŠĒ’&’2˜±Ō,’‹…’„ ŠĒ*+„ŠĒ*’;„‹`„ ŠĒ)’$+„ŠĒ)’$’‹>’„ŠĒ’&’+„ ŠĒ)’$+„ŠĒ)’$;„’‹„ ŠĒ)’$2˜±Ō,+„ŠĒ)’$2˜±Ō, ’‹Ö„ŠĒ)’$2˜±Ō 2y±Ō€}”€>±Ō € °Ō’Š”€Š)”€„ŠĒ* ° ° Ō’Š’’’…(Ō ’Šn„ ŠĒ’&’2˜±Ō,+„ ŠĒ)’$+„ŠĒ’&’’Š62;°Ō €L’…3„2˜±Ō2…3°Ō€>’Š2y°Ō’Š€}”€;„Š!Ō>°Ō”€Š”€ŠD–‡#0#0#¢8#£”0#$Č#8’8¢„ –¬#2;°Ō €L’…3„$x;°Ō €Ģ#’F$…3ĖŪ##xy°2y° Ō2;°Ō ’…2„Š#x;°Ō’#…2Ė0ß;fx‹ŗX'>†^ŠڟŌ€:”€„І^ŠŪĒ”€ ˜„>†^ŠŚÕÜ>֑ó‹“€^Ē„”€ ”€ ę°Ō„ŠĒ ’(„Š( ę°Ō ¤‡~„„†‡ē ÅŠ „ŠĒ ’'2˜±Ō2¤‡y°Ō‡z„‹Q;„„††Å”€‹?…3„„††Å”€‹,…°Ō…1„Š„ ” $…+Å $ē…Ä$„„††Å”€‹ż„” $…2Å $…”€Ä$„„††Å”€‹Ų”€„Š€ ŪĒ’&>°Ō”€Š”€‹¶”€„ŠĒ’K3°2…0°”Ō4Ÿ„Š’’2˜±Ō2…0±Ō€‡”€˜„‹|”€„ ĒŽ¤„” $¤‡ē˜Ä‡ćēÄ>°Ō $„„”€‹ł„Šƒ‘ļŪĒ’ "‡"‡$²Ō”€†Ļ…‚Ī× „‡"× Å ‡"¢¤"ŠŽ–*éG„gCOMPFINISYSTEM.WRK.CODESYSTEM.WRK.CODE.CODE Compiled to Error closing codefile !!^u‰ ”‰8”‰‰ ± Ō¦‰”‹Ł¦‰„€6”„ׄ”„ׄE”ˆ‚”ŸŌeˆ„”ˆ„E”ˆ‚”ŸŌGˆˆ”ˆ§²ŸŌ3ˆ„nˆ§£”„n‚”Ōˆ.ˆ„nˆ§£”„n”‰””"°Ō&‰‚”‰„E”‰€:”‰„”Š ‰‚ ”–u,  min :  sec, lines/min@ „„ ” …L³ŸŌ…K¢„K(³ŸŌ'¢¤„'…K£’ŒŒ'…K£Œ¢(¢…L£Ģ€<ĢƎ„ŠĢΟŌt„Š€<Ģþ¤„Š&€<ŒĢĮ椅PĢ&Ģ%Ģ€<ĢĆĄĆæ¤‰‚€°”&²ŸŌ‰&” ‰‚€²”‰%” ‰‚€¶”‰$” ‰‚€ŗ”‰”–  linesÅ#ŸŌ >±Ō”€…"Ō…P¢„P1= Č=¢„”€†ƒĖ”#ŸŌ=¦ …$Ō‰”‰…P” ‰‚!”‰†Ķ…‚Ķ”±Ō—”€#Ō€€”–Į.&… z„„ ”€ ,-£¢¤Š%ŚŌ€ƒ”€''¢¤Š€…”€Š&°%0Ś”Ō% °Ō€0’Š€1’ŠL&°Ō %’’Š=%֕8Š)¢¤ Š)¢¤ Š&°Ō *F)’Š )’&°Ō'’%ŚŌ’Š€”€…0„„–**1Ahqż- ˆ Ё@ŪĒ*’'>°Õ ¤2˜±Ō4°2y²Ÿ Ō’$„†Å”€ˆ ŠĒ’& ˜±2˜±”Õź†’Ō† ’ŠJ2y²Ō’Š’$2;°Ō…3 ”€Ō €L’…3„…2 ”€Ō2;°Ō’…2„2y±Ō €”€…2„ 2”€Ղ ¤'y֖TŠv…'Ō'|’'{’€K’„’#Š\€G'x’„’#ŠN„’#ŠG'x’’„’#Š7'|Ō'Ō 'ę’’Š€E'x’Š€E'x’Š€E'x’Š€’”€ŠŠ€”€Š€3”€– Ž.>€#°Õ¤7¤†w"×y±Ō"£¤Šļ†w"×{¤ ˜±!Ÿ”ŌJ ¤$x…°Ō:¤¤# ²$ē#×x`m±”Ō#¢¤Šč# ²Ō $ē#×8ĊŽ”€8¢„ Š$y¤Š®!ŸŌ€§”€”€Š”€–Ė.ˆ ЁŪĒ’L>†ZŠڟŌę>±„ :ŸŌ”€:Ō×> °Ō”€Š ”€–=/ˆ ЁŪĒ’&„’!’8¤> °Ō”€Š€4”€ˆ Ё ŪĒ’L> °Ō'„’! „’”€ˆ ŠĒ’L ’"#£’Š!’–\/8²ŸŌ ‰ ”€‰ „ #”€–<1ˆ ЁŪĒ’&’8¢„ ’8¤2¤!˜±Ō!y±!…3° Ō€”€˜¤> °Ō”€Š”€˜¤„’¤ '’˜¤ˆ ŠŪĒ„„”€!˜±Ōb! ”€ŌU%¤˜¤$˜±Ō $¤/z&²Ō/z&°Ō€œ”€‹ $¤/x¤ŠŪ„” "¤/$Ä/ē&Ä/ē(Ä/ē8Ä#˜°Ō"¤Š#"Ċ€“”€>±„ :ŸŌ”€:Õw’>°Ō”€Š”€ˆ ŠŪĒ’L>†ZŠڟŌč"˜±Ō '’(¢¤ >±„ :ŸŌ”€:> ° Õ+’%˜±Õ™%z¤ %¤˜¤$x¤$%Ä$¤#¤$˜°Ōī%z¤ 8¤ '’8,£¤ 8¤ -£„ €V…I’8¤,„ 8Ō8¢„ 8¤ *R)R%¤/z*²ŸŌ R*¢¤ Šļ/{(²ŸŌ/y(¢¤Š/y/{¢¤.-£R/x¤*¢¤ %˜°ŌĆ+”€,„ > °Ō”€Š ”€–’1„’ ’ˆ ЁŪĒ’L>†ZŠڟŌę>±„ :ŸŌ”€:Ō×> °Ō”€ˆ ŠĒ’& ’Š€5”€–ó1„’!’ˆ Š€@ŪĒ’&„’ ’8¤>°Ō”€Š€6”€ˆ ŠĒ’L8¢„ ’8£„ 8¤ !’"#£’–›2”€ˆ Š„ŠŪĒ’&2˜±Õ‡2y±Ō€”€Šz‰2”€Ōk’‰˜±Ō‰y°…'”Ō‰|’‰{’€K’#Ō>’!€&9’ ˆ’#‰’†ˆÅ’ 9’ ’"‰°Ō€2’Š€3’Š€‘”€–Ų3 9¤ >°Ō\…vĒˆ”€ ‰¤ ,~¤¤,ę°,ę ³”Ō¤,ę ¤,ę ¤Š€›”€˜¤ ˜±Ō y²Ÿ…3 ”€ Ō€”€˜¤”€Š”€ˆ ЁĄAŪĒ”€ >°Ō ĄĒVŠ€3”€ˆ ЁĄŪĒ”€ „’>€ŚŌ >¤€@ǐVŠ€7”€ˆ Š€@ŪĒ”€ „ ’€T(’8¤ >°Ō”€Š€6”€ˆ ŠĒ’L†„Å’’&°Ō€"’Š€#’„’#8¢„ (’8£„ 8¤ '’)*£’+„ – ŗ4¤9¤>°Ō…vŪĒ„”€ ”€Š”€…>¤ˆ Š€BŪĒ ’'2˜±Ōo2y°Ōd7 ³ŸŌW7¢„!¢¤†w7פ#2zÄ4°Ō†w7פ#ēÄ#ē5Ä#ē6Ċ#’$’!€&9’ †w7פ#ēÄ#ē9Ä’"Š€ś”€Š€Œ”€>±„ :ŸŌ”€:ÕL’>°Ō”€Š€6”€ˆ ŠĒ’L7!£„"„ –ó4…B°…C°”…”ŸŌ”€Š¦ 8‰±¦ ‰ ‰ ˆ’8¦–7,:AOHV]3d²6…C¢„C>€#°Ō`7¤†w!×y±Ō!£¤Šļ†w!×{¤"˜±Ō)"¤%x…°Ō%z`m°Ō%ē8Ċ€„”€‹ Š%y¤ŠŅ€§”€”€>°Ō”€Š”€>„ ŠŪŚŸŌ”€„ ŠĒ”€ >†ZŠŪŚÕŖ„” …J¤>֚{Ši…v€pŪĒ„”€ ”€ ę°Ō „ ŠĒ ’(Š MŠ?”€OŠ8”€NŠ1”€PŠ*”€QŠ#”€TŠ”€SŠ”€UŠ”€WŠ”€XŠ$„J„”!8€d¢²ŸŌ€ż”€„ >&ڟŌ”€„ ŠĒ”€ …C£„C– 8‰ …”‰ Ÿ”Ō ‰ ‰ ˆ’8¦†w7×z¦‰˜±Ō‰¤ ę ’ ’’ ¦ŠÜ†‚ꊶŸŌ9…H€€¤¦‰ ³Ō!‰†‚ęŠŚŌ ‰’ ’‰£¦ŠŲ†‚ęĒŽ‰ ŸŌ‰…²ŸŌ‰„‰˜°Ō€’ŠK‰¤‰ ‰²Ÿ”Ō. ę’ ‰²ŸŌ€&…£’ 梒 €&…£’ ę°Ō’…‰££¦ ‰ ŌM‰ „ƒ¦ …Ō3‰ ŸŌ8‰¢±¦ 8‰±¦ Š8‰±¦ ‰ ’‰‰£’‰ „ƒ‰ „ƒ‰ ’–÷: …$‰˜±”Ō‰”€…I¦…B…%Ÿ°¤ ¦ ¦ ¦ ¦…#ŸŌ”€)…”Ōˆ ’ˆ ’€ ”€€T‰ ’8¦‰˜±Õ‘‰ę¤‰¤%˜±Ōf%¤ +~˜±ŌW+ę°ŌD+~y²ŸŌ3"£¤+ę ’ "’ +~”€ Ō+~ę’’Š€E+~x’Š"+~x£¤Š +ę°Ō"£¤+¤Š•‰¤ +ę°Ō +ę’ €^’9„†‚ꊶŸŌ0€€…H¤ ¤'+²Ō#'†‚ꊌŌ'’ ’'’ ’'¢¤ŠŲ†w7×z¤%˜±ŌT%¤ +~¤ +ę ’ +ę ,¢’ ,z˜°Ōį’Š!+~…*°Ō’Š,z…1°Ōį’Š,zx’’+¤ЧˆŠŪĒ’L>†ZŠڟŌę>±„ :ŸŌ”€:Ō×> °Ō”€Š ”€…‰²Ÿ‰‰¢²Ÿ”¤ Z8¤†w7×{¤&˜±ŌY&¤ +z`m°+ē×x`m±”Ō€Ø”€Š5 ¤ ¤ (,²Ō*+ē(×x`m±Ō+ē(×x„ ’+z8££’(¢¤ ŠŃ+y¤Š¢!„ 8Ō”€8¤ …I¢¢”€)Ō”€Š…‰£‰££”€*ŌG‰’ …‰£‰£’ €E‰‰¢’8Ō’ 8!£¢…I¢¤„0!”!8!££’†€«…U×…I¢Ä!”€!„ ”€– ;…F¤-ę¤-ę¤-ę ¤-ę ¤Y–[_īüPĖ ”°hI_¶'»dŲʵx™Ŗ $ ń Ū 3  Ÿ  - Ž Č y ( Ū Š T ņ£^!źa³ YO(čl?*ųĒ!Ą«„ĢvhŪĮ™}p80(Æ¢Č> µČO6~ƒZUNITPARTŹ…Ō€¶”€…#Ō ”€„I„„ł7¤…B¤…U¤…T¤<¤…H¤9¤ ¤ …F¤„ƒ€€„ €„H„U„T„ „„”€>±Ō”€„ŠŪĒ”€ Š~¤…7¤ ˜±!Ÿ”Ō †¹ŸŌ ¤Š¤€e”€Šą!ŸŌS†‚цÅ„ ” ¤‡†Å‡ē˜Ä‡ē…7ćēćē <ćē …‚Õćē ˜Ä „7 ¤ …Ō…Fę„6Š…8„6”€†Ļ…‚Ī× ¤‡ʇē†Å‡ēʇēʇē…‚ÕĔ€†Ļ…‚Ī× ¤‡ʇēŹ”€†Ļ…‚Ī× ¤‡ʇē†Å‡ē<ć” †F” …F„Å„B7 ³ŸŌ-7¢„†w7פ‡˜Ä‡ē˜Ä‡ē˜Ä‡ēÄ ˜±Ō ”€Š€ś”€”€>°Ō”€Š”€– y…F¤ ēÄ ēÄ ē Ä ē Ä ē” ę¤!…7Å!ē˜Ä!ē˜Ä!ēÄ!ē Ä!ē Ä!ē Ä!ē <Ä!ē Ä!ēÄ!ēÄ!ēÄ!ēÄ!ēÄ!ēÄ!ē˜Ä!ēÄ>°Ō”€€ƒ”ˆ'Šƒ€ęہŻĒ…Fę”ƒ€ƒ”–\D#&¤#…‚Ͱ…‚ΰ”Ō@¤$¤"‡"‡$²Ō$„‡"× †Ļ‡"× Å †Ļ‡"× ” ‡"¢¤"ŠÕᄂΤ#„†‚ŃÅ>€6°Ō ”€>€2±Ō”€„'ŠĒ„…„ų¤!=„ƒ„>€3°Ō”€Š”€€‚”„'ŠĒ”‚€‚””€†‚Ń”€†Ļ…‚Ī× ¤$‡$ē‡!ć$ē…„ų‡!£Ä”€„…>€4±”Ō”€„'ІZŠŻĒ”€ >€4°Ō”€„'Šƒ>ŻĒ”€…Fꔀ„>±Ō>°Ō”€Š”€…F¤$‡$x„‡$y„B‡${„U‡$z„T‡$|„ ‡$}„H‡$~„ …Fę„F„”!>ƒBڟÕōž‡#Ō3†‚фńƒ¤$¤  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 assinged 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  $SYNTAX $CURSOR $EQUAL ƒ)YSDzO.<¢<¢ 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:'IMPLEMENTATION' 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  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  $CURSOR $EQUAL $SYNTAX %ĻĒO.£„£„ Program Phone_Book;   Uses Sc_Cntrl;   Const "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 20; "  Type "Entry = Packed Record ,Bdate,First,Phone : string[15]; ,Address : string[40]; ,Last,Note,City,State : string[20]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Edit_Commands = (Name,Address,City,State,Phone,Note,Delete); "Alpha = 'A'..'Z'; "Numbers = '1'..'9'; "Alpha_File = Array[1..Max_Entries] of Entry;   VarCLOCKDRISERDRIVEüSERDRIVE¹SERDRIVEFLOPPYDRFLOPPYDR©SERDRIVEESERDRIVEASERDRIVEPRIAMDRIPRIAMDRI PRIAMDRIPRIAMDRI SERDRIVE SERDRIVESERDRIVEüSERDRIVESERDRIVESERDRIVE%SERDRIVE!SERDRIVE1?SERDRIVEaPRIAMDRInPRIAMDRIOPRIAMDRI?PRIAMDRI Bad CodeTextInfoDataGrafFoto:DRVINFO.TEXTA(c) Cop:DRVINFO.BACKd Computer Design, 1982 AllDRVINFO.TEXTTDRVINFO.TEXT \üŚ£–šDIAG.1070.TEXT N)£šžDIAG.3450.TEXT m)£ž¤ TAXSTART.TEXTŠ S¤¤$CURSOR $EQUAL $SYNTAX %E=O.£„£„  Program Phone_Book;   Uses Sc_Cntrl;   Const "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 20; "  Type "Entry = Packed Record ,Bdate,First,Phone : string[15]; ,Address : string[40]; ,Last,Note,City,State : string[20]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Edit_Commands = (Name,Address,City,State,Phone,Note,Delete); "Alpha = 'A'..'Z'; "Numbers = '1'..'9'; "Alpha_File = Array[1..Max_Entries] of Entry;   Var " "Entry_Record,Temp_Record : Entry; " "Command : Commands; " "Alpha_Rec : Alpha_File;  "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, "RecP2_Port, "Command_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Test : Boolean; " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(port,Columns,Rows,Width,Height,Command_Port);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79; "  Begin "Sc_New_Port(Port,10,2,Width,Height,RecM2_Port); "Sc_New_Port(Port,10,7,Width,Height,RecM1_port); "Sc_New_Port(Port,10,11,Width,Height,Rec0_Port); "Sc_New_Port(Port,10,15,Width,Height,RecP1_port); "Sc_New_Port(Port,10,20,Width,Height,RecP2_port);  End{Init_Edit_Screen};   Begin{Init_Screen} $ "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln('Oh shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin "Sc_Clr_Screen(Command_Port); "ch := Sc_Prompt(Command_port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,0,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Procedure Edit_Proc;  Begin  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "(*1*) "writeln('into Init_Screen'); "(*2*) "Init_Screen; "(*1*) "writeln(Out_File,'out of Init_screen'); "(*2*) "Repeat $Get_Command; $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " "  Ė× Å ę ¤†€3ƒ&—‰4” ” ˜°Ō‚Š!£¤"¢¤‹6’!1±Ō%!1£¤¤"$²Ō†Z"Ė׃«—"¢¤Šę!„1£„–‰ „-Å . ” .x„Å .xē ˜Ä.x¦,,x¢Ä–inputč^r³Bad segment dictionaryŠ ¤ ¤5±Õ\‚‚F†ƒx„(”” °ƒ<—'į°Õ.&Ō ‡ „€Ł€P”¤į¤ ¢¤„ Ė× ¤‡ÉւI‹ē1¤†‘ŸŌ‹ü†ƒ #Ė× ¤ ‡ ēだēだēだē だēだ‡ēҁ ē„ Ė× „ ‹Œ$ē „ Ė× „ $¤Šx†ƒ #Ė× ¤ ‡ ³‡}± Ō$ē „ Ė× ‡ ē Š%¤ ‡ 燁 z£ÄŠ7‡ēÉŌ$ē „ Ė× †ƒ #Ė× ē  Š$ē „ Ė× „ ŠŠ„ Ė× ɰ ° Õ龊¤ (°1° Õ¤ž'į±Ō¤ ‚‚Pƒ$—ŠQ¤ 5¤51£¤¤!‡²Ō2†ƒ !Ė× ę±Ō†ƒ "Ė× †ƒ !Ė× Å "‘"¢¤!¢¤ŠĒ"„"£„– *System.Library Input File: ‚«.Code.CodeCouldn't open VŽY„„.’’”‘„†1””"±Ō †1‚ƒG€P”†‚ƒO†1ƒƒV—†1§°Ō€€ ”†ƒx”†ƒx†1””"±ŌG†ƒx¤*„*†1€P”„*‚ƒX€U”„*””"°Ō†1¤*„*†1€P”„*‚ƒ[€U”„*€P””"¤ ±Ō¤*„*‚ƒ^”„*†1€^”„*ƒ$— °ÕT’†ƒ'‘ ÕK’†ƒƒf—‰€"”” ‰†ƒ'”” ‰€"”” „”–Y*System.Library Output File: Couldn't open Blocks: 0‚fZ„‚ƒó€P”†‚ƒū„ƒƒV—„§°Ō€€”†ƒP„””"¤*‡*±Ō¤+„+‚„”„+„€^”„+ƒ$—‡*°Ō©†€+‚„ ƒ„—†1„€P”–Z ) ? @@‚@ X„.„YÅ„‡0€P”‡.ŌZ„‚„P”„ʔƒ„ē‡/¢Ę”§Č¤2„2„€P”„2„€Q”„2‚„Q€U”„2ƒ„TĒƒ„\—ƒ„^ڤ1Ф1‡1¤\–[Keep Toss ‚\Ą 1‡2Ō„‚„£€P”¤Š „‚„¦€P”¤„„„52ƒ„©—Ō6"!¤/¤ ‡/²Ō*†ƒ  Ė× ¤0‡0}ŸŌ„ #‘Ō ‡0ē$Ä ‘ ¢¤ŠŠ–2Strip Recover interface for S 0‡1Ō „‚„į€P”Š „‚„å€P” " "Entry_Record,Temp_Record : Entry; " "Command : Commands; " "Alpha_Rec : Alpha_File;  "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, "RecP2_Port, "Command_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Test : Boolean; " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(port,Columns,Rows,Width,Height,Command_Port);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79; "  Begin "Sc_New_Port(Port,10,2,Width,Height,RecM2_Port); "Sc_New_Port(Port,10,7,Width,Height,RecM1_port); "Sc_New_Port(Port,10,11,Width,Height,Rec0_Port); "Sc_New_Port(Port,10,15,Width,Height,RecP1_port); "Sc_New_Port(Port,10,20,Width,Height,RecP2_port);  End{Init_Edit_Screen};   Begin{Init_Screen} $ "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln('Oh shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin "Sc_Clr_Screen(Command_Port); "ch := Sc_Prompt(Command_port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,0,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Procedure Edit_Proc;  Begin  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "(*1*) "writeln('into Init_Screen'); "(*2*) "Init_Screen; "(*1*) "writeln(Out_File,'out of Init_screen'); "(*2*) "Repeat $(*1*) $writeln(out_file,'into Get_Command'); $(*2*) $Get_Command; $(*1*) $writeln(out_file,'out of Get_Command'); $(*2*) $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " " V Qø HJKCAßPABDC? <-,+.>?5ćA4 B 3CDāS20123456789āBļE"E"=' &ļXXļFFīG6G6īg##g#ćH(Ić<āR1ļJJK%āDļL! !L!ļM M ļN N ļO$O$P ļQ Q ćT9R  āCS/  ćK:TāAļVVļW8W8ļZZāP)āQ*3+4,5-6.7/80XB@@X@D6€*€Ō‚€ŒĘ@Ō€ˆ€€.€R€²ˆĄ¦€RĄ ˆ€@€‚€€ˆ’’LIBRARY ńLIBRARY €čAPPPROCS‚SCCNTRL APPPROCS7APPPROCS€ ½SCCNTRL SCCNTRL SCCNTRL € CGOTOXYU =Copyright Advanced Computer Design, 1982 All Rights ReservedēnLIBRARY 1$ē¤!y¤!y±Ō ¢¤Š ¤–I†Z” #„[į„Z–‚&͆Z#Ė׃&—†ƒ #Ė× |Ö(œŠ*‰€*”” Љ€#”” Љ€ ”” Љƒ.ē#¢Ę”§”” ‰€)”” –†ƒ %Ė× ¤"~¤#¤%‘†Z%Ė׃&—‰"”” †Z%Ė׃&—"}Ō!"~Ō‰€s”” Š ‰€r”” ‹ä#ēɰŌ‰€p”” Š ‰€u”” "Ō#ę |¤Š¤ ±Ō‰€i”” Š ‰€ ”” "~ę ę ¤!˜±Ō!É°Ō !‘¢¤!ę ¤Šä†Z%Ė׃&—‰ ” ” †Z%Ė׃&—‰$}” ” †Z%Ė׃&—‰"ę” ” †Z%Ė×€!ƒ&—‰"ę ” ” –(No room left on screen. Entry not shown‚-m#x±¤#x°Ō ‚ƒ$—Š##x¢Ä–output‚$É&x¢¤¤!"²Ō†\!Ė× Ź!¢¤Šč&įą[¤%„[‚8†ƒP†Z ”” °ƒ<—%‘–inputoutputR‡”x¤‡”²ŸŌ¤Š‡”¤‚f†ƒx„ ‡”x” °ƒ<—‚i†ƒP„ ‡”x” °ƒ<—‡”‡”x ¢Ä‡”‡”x ¢Ä‡” £¤”‡”°Ō—‡”!Ė”<b1¤51£¤¤"$²Õƃ "Ė× ¤%|°Õ„%ēƃ 5Ė× †ƒ "Ė× Å 5‘5¢„%~¤3°Ō †4‘4¢„ ¤&¤'ɰ'|±”Ō%Ō 'ē†'| Š 'ēÄ'ēĊ'É°Ō 'ē† ‘ 3¢„†\3  ĖŲɟ” Ō ¤"Ō&&x€€¢Ä ¤ '’–<$#¢¤$‰³Ō‰¢¤$¤–L$„ ”–:]€. „€„Å„ ‡€¦€’”‡€§ę ¤ ‡€§¤€*¤€Ž¤ ¤ ‚„'„ ”¤%„ §¢%£€[„ %” ¢¤‚„(„ „€©$„ §$£¢”„€©”¤%¢¤‡€ę ԤЇ€~£%"¢‡€£¢£¤‡€§’‡€§‡€£‡€¢’‡€ęŸŌ‡€ŽęT  '¤#²Ō¤Šm$'£¤&€ „ '” ¤ &(£¤'(¢¤&#²Ÿ¤ Ō#£#ᇀ„ '#¢£” ¢¤&²Ō%'$'£‡€„ '” ¢¤!'°Ō¤Šį¤&³Ō“‡€ŽęT„ %”%±Ō ‡€ŽęT€  ‡€ŽęT„ '&”'&¢$³Ÿ&±”Ō ‡€ŽęT€? ‡€ŽęT„ $"”'&¤‡€„³Ō ‡€§‡€„‡€¤’‡€§’‡€‘¶ŸŌ&‡€§„ ’¤ )‡€‘Ś) ±+„€’Šƒ„)ŪŚ ”ŌŚ+€?±) ± Õ½ž+¤€Ø‡€Ø¤Ø–§A ŌŠ– Åå™{fWB.ĶĮœŒA%śØ™‹|nbRB2"ļ¼€ ’’BADBLOCK]BADBLOCK€Ū„„„52ƒ„©—ŌC"!¤.¤ ‡.²Ō7†ƒ  Ė× ¤/‡/}Ÿ‡/~ēɰ”Ō„ #‘Ō ‡/ē‡1ŸÄ ‘ ¢¤ŠĆ–1 Do refs for ‡ „„„2ƒ„©—Õ#¤ 1³ŸÕ "² 2²Ÿ †ƒ  Ė× }Ÿ”Õ傅+ $‘ÕŚ†ƒ  Ė× |°Ō†ƒ  Ė× ēÄ ‘†ƒ  Ė× ~¤&˜±ÕŖ&¤'¤ (ɰ(ēɔՌ¤¤!1³Ÿ%Ÿ”Ō†ƒ !Ė× (ē¹Ō¤Š!¢¤ŠŪ%Ō$†ƒ !Ė× ¤ )}ŸŌ)|°Ō )ēÄ!‘ŠŠŠ3†‘Ō,†ƒ 1£Ė× ¤ )ēÄ)ē(}€€³ŸÄ)(ēÅ)ēÄ1£‘'ę ¤Š'ę ¤‹P’ ¢¤‹õž– „ †‚ž†ƒ'€P”††‚žƒ„—–"outputoutput@ ‘4²ŸŌw†‚…Ō†‚ž€NƒƒV—…[°Ō†+†‚ž€O”†‘ŠD†‘‚…Õ†ƒP†Z”” °ƒ<—†+†‚ž€O”‚…نƒP†Z”” °ƒ<—†ƒP”” „–ABCDEFGHIJKLMNOPQRSTUVWXYZ1234*System.MiscinfoSysterm:Console:©"Could not open *System.Miscinfo. &Insert system disk ([ESC] to abort) : FStatusName#BlkVersSegRef‡†‚ž‚†!€P”†ƒ'‚†"€P”„į„„į„„‘ƒ„Ŗē‚†#€P”‚†3‚†<‚†A„ƒ†F—ŸŌ=‰”” ‰‚†H”” ‰‚†Z”” ‰„”” ‡°Ō€€”Š®„ƒ«—¤¤¤.‡²Ō'†Z.Ė×./€(Œ./¢€(£„ƒ†n—.¢¤ŠÓ†#€O/¢„ƒ†n—†€O„ƒ†n—†€O„ƒ†n—ƒ„Ŗē€O„ƒ†n—¤¤.‡²Ōn„.€(Œ¢‚†pƒ„—„.€(Œ¢‚†tƒ„—„.€(Œ¢‚†wƒ„—„.€(Œ¢‚†zƒ„—„.€(Œ¢‚†}ƒ„—„€!.€(Œ¢‚†ƒ„—.¢¤ŠŒ–$Library: N(ew, K(eep, T(oss, R(efs, &S(trip, I(nt, C(opy, A(bort, Q(uit [A] J JAT"' –†ƒP†„|’’”†ƒx†„¤’’”„‘‘ ‘ „„̆„Ģ‚‡E€$”†„Ģ‚‡X€J”†„Ģƒ‡lĒƒ„\—Ö‡tŠ)‘ Š%‘Š ‘БББР‘Š „Š‘Š0Ō£†ƒP”†ƒx”–‚ŽĘ3ņ¬gi3]n®?'i0‹€¼œAPPPROCSž’’Ž…„‡€˜€’”„€‡Š¶ŌǤЁǤˆ„įᇀ—„€‡ŠĒ!Ē€,ƒ—¤ ƒŚŌ €a£€A¢¤‡€†Ō ‰ ”” ¤€™–€˜Error: ; Hit space ’_„.„`Å„‡/€P”ˆ¤0„0‚I”„0„€W”„0‚M€c”„0įį‡.ƒTǁǀ,ƒ—¤–a*,„‡-€P”‡0‡/‡.ƒ€—‰„”” –0– ˜ š’’’’’’’’’’’łŅ„Z„€ÓÅœ„.‡\€P”„‡Z‡[§£Č„„§€_” ‡_‡^‡]¤`„`„.€P”„`‡[€ ”„`„€š”„`’‡_‡^„.§¢‡Z¢‡]ƒ€–—‡_‡^„.§¢‡[§¢‡]ƒ€—‡[§¢¤‡_„ƒ€˜—¤#°!‡[§²”Ō!¢¤‡_ƒ€š—‹ą#€Ś!²Ÿ”Ō!£¤‡_ƒ€œ—‹Å#°Ō‡[§¢¤ ¤‹²#°Ō !¤W¤"‡W³Ō‡_ƒ€œ—"£¤Šģ¤‹# °Ō} °Ō'!‡[§¤W¤"‡W²Ō‡_ƒ€š—"¢¤Šģ‡[§¢¤ŠO ƒ€žŚ!‡Z²”Ō/‰ ”” ‡_ē‡_{¢Ä‡[! ȇ[§!³ŸŌ‡[!Č!¢¤Š ±Ō ‰”” ŠŠ ‰”” °Õóž‡[!£Č‡_‡^„.§¢!£¢‡]ƒ€–—–€Ų -  Which entry () ? Invalid input?No entries in table÷K„A„LŇB‡A²¤F‡E‡BćD‡AćCĤ‡A‡B°Ō¤F‹Ž‡A‡B²ŸÕ~„‚~”„ʔˆ‡B¢Ę”§Č„ʔˆ‡A¢Ę”§Č„‚€€P”ˆ¤G„G‚ ”„G„”„G‚ˆ”„G„’„ĒŽ‡B‡A¤>¤"‡>²Ō „„Šˆ"¢Ę”§ā¼ŪĒŽ"¢¤ŠŚ„§°Ō¤F‹Ą„§¤>¤"‡>²Õ°„"ʔ§€?°Ō‡Cċ”„"ʔ§€-°Ō¤‹„"ʔ§€a³Ō„"ʔ„"ʔ§€a£€A¢Č„"ʔ§„ŠŚŌC#Ō ‡Eˆ§„"ʔ§ˆʔ” Ċ‡Dˆ§„"ʔ§ˆʔ” Ċ ‚‹€(’¤F"¢¤‹I’#„‚’”Ÿ”Ō‡D‡ExĊ‚“’‡F¤Q–PFatal I/O error on  file\a„-„bÅ„‡.€P”‡-ŸŌ,¤/„/‚‚”„/„€c”„/‚‚‰€h”„/’€€”–cg ŌŠ–ž§„X°€BSCCNTRL &%x$³ŸŌ%$Ċ %x#²ŸŌ%#Ė€%ę ¤ ¤!ēF¤"ē$ĖŲÉŌ !ęT" ”!ęT"ē$Ė ”!ē@§²ŸŌ!ęT!ē@ʔ!ē@§”–©%¤!!y°!~!x°”%$’”¤ Ō%$’ Ÿ¤–Č$%±¤ Ō '’'&’'’ ¤ –ņ‰¤ ēH#Ė%Č ēG#ĖŲˆ($ĖŲÉŹ–-‰Ś¤‰¤!%€’ĖŲ#Ź!ēO# Ė%Č!ēN# ĖŲˆ3$ ĖŲÉŹ–m\„1‡^€P”„„-’’”„„1”‡]”"Ą„)”„)Ė×x¤_„”–^¾Ł„\‡Ž€P”„…‡Ż€P”„®‡Ü€P”„4„‚`’’”¤ß„4„\””"°Õ’„4„’’”°Õė„€Z” ‡Ś¤×"¤Ų€’¤Ł¤ ‡Ł²Ō‡Ų €’ĖŲ Ź ¢¤ŠåˆȇŲē@ ” ‡Ųē@„&ÉȇŲē@§ ²ŸŌ‡Ųē@ ȇŲēF„#ÉĄ#ɐ„$ɐ„$ɐ„'ɐ„'ɐ„%ɐ„&ɐ„%ɐ‡ŲēHĖ Č‡ŲēGĖŲʇŲēM„1ÉĄ/É „-ɐ„1É „0É „0É „+ɐ„+ɐ„,ɐ„,ɐ‡ŲēXāÄē˜Ä‡ŲēVāÄē˜Ä‡ŲēU„…„Ä!°Ō‡ŲēT„®„ć×ē‡)£Ä‡×‡*£Ä‡×ē „!Éć×ē„!Éć×ēć×ēć×燁×yć×燁×xć×ēć×ēć×ē "ć×ē ‡Ūć×ē ć×ē Ä!°Ō ‡Ś’ ¤ß„4”–ŽŚ$#²ŸŌ#¤Š$¤–@„‡Å‡„Ňē ćē ćēćēć燇yć燇xć燇y‡}£ć燇x‡|£Ė_$ę °Ō $ę ¤ ēVß$ē $ę ¢Ä–$ę °Ō $ę ¤ ēVŽ$ē $ę £Ä–Ÿ$ę °Ō $ę ¤ ēXß$ē $ę ¢Ä–æ$ę °Ō $ę ¤ ēXŽ$ē $ę £Ä–×%ę ¤ ēH$˧±¤–ō#¤# {’Ō ē {£Ä–#¤# { ~’Ō ē {¢Ä–.#¤# z’Ō ē z£Ä–K#¤# z ’Ō ē z¢Ä–†#’#¤ }° |°”#’”Ō#’ ēÄ ēĊ#’#’–ć„Ė€’ĖȄĖ&€’ĖȄˉ}‰¢€ ¢€’ĖȄˉ|‰¢€ ¢€’Ėȉę ¤"ęT„ ”–F%’%¤„ ~’„ ’ ęŌ& ę ւóŠ%|$¢%}#¢”Š€=Š €YŠŠ ē$Ä ē#Ä%’–}$’$¤ |° ~ x°”$’”Ō $#’$’Š$#’$’–&’&¤!ęÕ&%$’!~!|¢!x°&’”Ō&’Ša&ę ¤„!~’„!’ˆĖ!~%£¢€ ¢€’ĖČ$!}¢!y°%!|¢!x°”ŌˆĖ!~%£€ ¢€’ĖČ ęTˆ”&%$’&’–4#’#’ #’Ō#’#’–~&’&%$’&’Ō.&¤!ęŌ&&%$’$¢!¤¤ "²Ō & ’ ¢¤Šļ&%$’&’–•%ę ¤ ēO$ ˧±¤– '’&€ Ä'ę ¤!¤#ēM¤#ęU& ”&x$x°$x±”Ō¤#ęU& ”Ф#&x€’ĖŲɤ ±Ō""Ÿ$ē ĖŲÉ”"$ē  ’’PATCH "PATCH €§GOTOXYU SCCNTRL SCCNTRL SCCNTRL €CGOTOXYU A(c) Copyright Advanced Computer Design, 1982 All Rights Reserved¦*PATCH  ‚-„‡0€P”‡.Ō‰””„§²ŸŌ ‰„”‡/±Ō‰‡/” ‰€ ”‰‚”‰„” € °Ōņ†„ƒ —–0£,„‡-€P”†„ƒ —‰„”–-Å,„‡-€P”†„ƒ —‰„”–-  ž’’’ƒž’’O†„„ƒd—¤"ąŚŌ "ÖfœŠ€U¤Š€D¤Š €L¤Š€R¤ŠŠ ƒlŚŌ €a£€A¢¤Š ƒtڟŌ€Z¤ ¤–’)Error in number. Value defaults to zero.Integer constant overflow=0„‡2€P”„§²ŸŌ„§€ „” ¤ ²ŸŌ¤Š¤„ ¢„§ £”¤ ³Ō:„ §ƒ€©ŚŌ!„ §€0£†ƒŠ„§ £×xŒ¢¤ £¤Š ‚€­‘¤¤ŠĮ!³Ÿ‡1”Ō‚€Ā‘’¤3Š!¤3–2 327680 Ö&’į£°Ō %‚ €P”Šk&°Ō %‚$€P”Š[%‚%€P”¤&³ŸŌ ¤&į¤Š¤&²ŸŌ%!†ƒÕ& ×xČ!£¤& ¤Šā Ō %!€-Č!£¤%!¢%!£”%!£Č–ć„$Ä ¤–ż$‘¤ ×x ×x£¤–ž’’?$§¤¤ !²Ō$ §ƒ€ŚŌ $ $ §€a£€A¢Č ¢¤ŠŻ– FILENAME : < c/r for Unit I/O > !Error opening file. Ioresult is File opened. Unitnumber : 0 ..  ( [RET] quits ) "Error clearing unit. Ioresult is File opened. ]-†„‡/‡.ƒ —‰ŚBADBLOCK3,†*„€P”„ €(Ė×x¤-„€(Ė×x„U–,kP†*„‡Š‡Š ”¤”"±Ō‡ŠćР‡Š¢‡Š³Ō‡ŠÄ–Š Fast Bad Block Scan Version 1.0File to scan? Not present. Scan all  blocks ? [y/n] @@@@Start scanning at block : Stop scanning after block : Scanning blocks  to Block #  of the file is bad bad blocks Insert system disk and type ¢†*†V’’”„\„R‰‚7”‰‚F”‰”‰”‰‚H”‰†€P”‰”†§°Ō€€”†*†””"„V…V±Ō ‰‚P”…V°Ō“‘£„T‰‚W”‰…T¢” ‰‚\”‰†]”…]ƒeŚŌ]”‰”…]ƒmŚŌJ‰‚t”‰†Z” ‰”…Z³…Z…T²”ŌŻ‰‚€‚”‰†X” ‰”…X…Z³…X…T²”Ōۊ„Z…T„X‰”„[…Z€(¢£„S…S…X²ŸŌ…X„S‰‚€‘”‰…Z” ‰‚€š”‰…S” ‰”…S…Z£¢„W…Z…X…W†\†[‘…S¢„Z…[ŌS…Z…W£„Y„[…Y…X†\†[‘…[Ō)…R¢„R‰‚€”‰…Y” ‰‚€¢”‰”…Y¢„Y…\…Y…Z²Ÿ Ō“„[…\ÕB’‰”‰…R” ‰‚€¬”‰”‰”…U°Ō‰‚€²”‰””†*”–Ā’’FORMAT FORMAT €ŒGOTOXYU ‹FORMAT *:/(„„-’’”„‚”€€”„”–(p,„‡-€P”‡/‡.”‰„”” ‰€ ”” ‡/„§¢‡.”–/Diskette Formatted SuccessfullyUnsuccessful Format :  errorsą#°Ō ‚9‘Š ‚I‘‰#” ” ‰‚U”” –”#ŸŌ‰„”” °Ō…‘‘–&ACD Floppy disk formatter Version [1.2:Enter unit number containing disk to be formatted [0,4,5] *Format single or double density? (S or D) ingleouble*Format single or double-sided? (S or D) ingleoubleSkewing? (Y or N) @@esFormat all tracks? (Y or N) @@@@Enter starting track number ’’’’’’’’’Enter final track number ’’’’’’’’’esé‚€ƒ‘‰‚€—”” ‰€]”” ‚€™‘‰&” ” ‰”” &x€1ŚŌŽ&x°Ō‘‚€·‘‰„”” !ƒ€ĶŚŌå+!ƒ€ÕŚÄ+xŌ‰‚€Ż”” ‰”” Љ‚€ą”” ‰”” ‚€ć‘‰„”” !ƒ€łŚŌå!ƒŚŌ'ĉ‚ ”” ‰”” Š'ĉ‚ ”” ‰”” ‚‘‰„”” !ƒŚŌå!ƒ!ŚŌ‰‚)”” ‰”” %Ċ%ĉ€o”” ‰”” ‚+‘‰„”” !ƒ:ŚŌå!ƒBŚŌi‰€o”” ‰”” ‚I‘‰)” ” ‰”” )xƒXŚŌÜ ‚]‘‰(” ” ‰”” (xƒjŚŌÜ)x(x²ŸŌ‘Љ‚o”” ‰”” )Ä(€LÄ*)x°+xŸ”Ė Ō$¤!€/Ė€)€’” !€)€/Ė” !€/€/Ė€ü€’ĖČ!ēĖ€’” ¤¤ "²Õ‘!ē% Ė×]¤#Ė” #ē€ž€’ĖŹ#ē€’ĖŹ#ē€÷€’ĖŹ#ēĖ €’” #ē Ė” #ēĖ€ū€’ĖČ#ē€Ė€€€å” #ēOĖ€÷€’ĖČ#ēOĖ€’” ¢¤‹i’!牗€ŻĖ€Ž€’” –ž$¤!€OĖ€P€N” !ē( Ė ” !ē.Ė€ö” !ē.Ė€ü€’ĖČ!ē0€1Ė€2€N” ¤¤ "²ÕĄ!ēI Ė׀¹¤# Ė ” #ēĖ€õ” #ēĖ€ž€’ĖČ#ē €’ĖŹ#ē €%Ė€÷€’ĖČ#ē €%Ė€N” #ē €%Ė ” #ē €#€%Ė€õ” #ēĖ€ū€’ĖČ#ēˁ€@” #灁ˀ÷€’ĖČ#ē€ž€5Ė€6€N” ¢¤‹:’!瓁ōˁö€’” –/'& Ō$ ” $x‘%$xÄ'ŸŌ#” #x‘&ŸŌ%#xĖSeek Error: Not Ready [##x¢Ä‚ƒ™‘–Transfer Error: Not Ready Write Error Write Protect Error ū„%Å$$x¢Ä‚ƒÆ‘„ÉŚŌ ‰‚ƒø”” „ÉŚŌ ‰‚ƒ¾”” „ÉŚŌ ‰‚ƒÅ”” –!g'¤&¤%փ’ŠQ€ ÉܶŸŌń ÉŚ$”Ō#‘ Š2 É€ܶŸ€€!y€ŽܶŸ Ō䀱 ÉܶŸ$”Ō'#‘ Š–®„$Å„ĖŹ„ ĖŹ&¤!¤%¤!„Å#ĒÄ#ēǁ"ÉܶŸŌą–Ż„%Å'&„‘ „ ĖŹ„ĖŹ'„Å'&$‘ –# „%Å('„‘ (¤!ÉڟŌö„ĖŹ„ ĖŹ(ē&€’ĖÄ(„Å('$‘ – œ (' Ō ¤Š(¤%¤&¤"ē„ɀ’ĖĄ„Ɂ’ĖŹ„ĖŹ"ē„ɀ’ĖÄ"ē„ɀ’ĖÄ į¤"ē„ɀ’ĖÄ"„ɀ’ĖĖ   ā %Ö„ĻŠ¤Š¤Š ¤Š¤Š$ ĖŹ$Ź$;< Ź– +ĢįÄ*ČįÄ'&)x(‘%$‘+x*x$#‘– ! &Ä%3Ä#Ź'&x%x$‘–@ $x°Ō $Ä#ʊ$Ä#Ź–ą &% ŌK$¤¤¤ "²Ō;!ē% Ė×]¤#ē)€’ĖŹ#ē )(Œ¢¢€’ĖŹ#ē'€’ĖŹ ¢¤ŠĄŠJ$¤¤¤ "²Ō…=;<††2†‘?>……;<†‘…‘”–ņ¦r"óŁ”qY6ѦģwrrZ F€  ? ( y/n )@@·…‚u…€Å¢¤¤!…‚u"³Ÿ”Ղ†‚t†€Éˆ,‘ Ō>†‚‹Ó”†…‚u” †‚‹Ü”††‚y”†”’’…‚u¢„‚uŠ3‚‹å…‚u‘‚‹ō‘‰„” ƒŒŚŌļ €Y° €y° ¤†„ƒ —‹s’–TrueFalseTrueFalseTrueFalseC„'Å&”"Ō ‰‚Œ]”Š ‰‚Œ`”€'&”!Ō ‰‚Œc”Š ‰‚Œf”€8&” Ō ‰‚Œi”Š ‰‚Œl”–dDUMP : D(o, Q(uit  A) Input File  B) Starting Block  C) Number of Blocks  E) Read from Memory  F) Starting Word  G) Number of Bytes   H) Output File  I) Width in words @ Flip Both  J) Decimal  K) Hexadecimal  L) Characters  M) Octal  N) Decimal bytes  O) Octal bytes  S) Space between Lines  T) Space between Groups True FalseTrueFalseTrueFalse¦†„ƒŒ£—‰‚Œ„”‰”‰”‰‚Œ±”‰”‰‚Œ¾”‰”‰‚ŒĖ”‰”‰”‰‚ŒŲ”‰”‰‚Œå”‰”‰‚Œņ”‰”‰”‰‚Œ’”‰”‰‚ ”‰”‰‚”‰”‰‚:”‰”‰‚G”‰”‰‚T”‰”‰‚a”‰”‰‚n”‰”‰‚{”‰”‰”‰‚ˆ”‰”‰‚—”‰””‰†‚y””‰…‚u” ”‰…€Å” ”…€ÄŌ ‰‚¦”Š ‰‚©””‰…€Č” ”‰…€Ē”  ”‰†‚K” ”‰…€Ę” †€æ "†€¼"†€¶"†€¹"†€³"†€°"”…€ĆŌ ‰‚¬”Š ‰‚Æ””…€ĀŌ ‰‚²”Š ‰‚µ””–@@TrueFalse‰„” ƒŽŌŚŌļ ƒŽÜŚŌ‰‚Žä”¤Š‚””‰„€P”‰”„§²ŸŌp‡0”‡0„””"±Ō‚²”"‘‡1ēƄ‡/‡.ƒ —Š9‡1¤+‡+ēć+ēĄ‘ ‡+ē„€P”‡+ēć+ē‡0‘ ć+įÁƑ‹Č†„‡/‡.ƒ —‰‚Ź”‰€’” ‰‚Ō”‰„€P”‰”„‘¤*‡*€’¼Ś„§° Ō°„§±Ōe‡0”‡*”&”"±Ō‚Ž”"‘‡1ēƄ‡/‡.ƒ —Š3‡1¤+‡+ēć+ēć+ēć+灒ć+‡*ć+ē„€P”‚š‘Š †„‡/‡.ƒ —”–1 Filename: !Error opening file. Ioresult is File opened.>,†„‡.‡-ƒ —‰‚‚°”‰„€P”‰”„§²ŸŌk‡/”‡/„””"±Ō‚‚¶”"‘‡0ēƄ‡.‡-ƒ —Š7‡0¤*‡*ēć*ēć*įć*ēć*灒Ą‘ ‡*ē„€P”‚‚Ē‘”–0"Error reading block. Ioresult is End of file exceeded !Error reading block. Ioresult is ¤%¤ {Ō- x# y””"±Ō‚ƒ ”"‘†„ƒ —¤Š9$# y”±Ō*”"°Ō ‚ƒ2‘¤Š‚ƒ=”"‘†„ƒ —¤–`'³ŸŌ &'¢ÄŠ&'Ä&x€<¤&x€<¤!!¢¤!°Ō%Ō!£¤Š!¢¤!¢ ¢”–: 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20: 22: 24: 26: 28:£”‰‚ƒ±”‰‚ƒĻ”‰”¤¤ !²Ō! ¢”‰ Œ” ‰€|” ¢¤ŠŚ–|2†‚Š$#¢§†ƒåŠŚ”Ōˆ‰†‚Š$#¢§ČŠBˆ‰†ƒÕ†‚Š$Œ†€¬#×x¢ŲÉ×xȈ‰¢†ƒÕ†‚Š$Œ†€¬#¢×x¢ŲÉ×xȉ¢¦–ł.‡/Ԑ¤,¤"‡,²Ō_£"¢”„€L€ ” "°Ō¤Š¤¤$¤-¤!‡-²Ō"Œ!Œ¢¤#¢¤  !¢¤ŠŻ‰„€K€K”"¢¤Š›0†‘–/u ¤„§°„€©…€©Ō2†€Ŗ×ƀŖ×ƀ¬×ƀ¬×ƀ¬×ƀ¬×Ċ0†€Ŗ×ƀŖ×ƀ¬×ƀ¬×ƀ¬×ƀ¬×ˇ $Ÿ#”$#Ÿ” ¤–˜ &%$&§”–| | Ń …€ĄŸ…€æ ŌwˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Ō&ˆ,‰€ˆ ¢×xˆ‘ˆˆC Œ¢’ ¢¤ŠÕ†‰€ˆŒ” †‚„Ķ”†ˆC”†”…€ĆŌ†”…€Ą…€æ Õ•ˆC‰€‡Œ€ ” ‰€‡£¤¤ !²ŌOˆˆ,‰€ˆ ¢Œ†€Ŗ×x¢§Čˆˆ,‰€ˆ ¢Œ†€Ŗ×x¢§Č‰ˆ‘ˆˆC Œ¢’ ¢¤Ь†‰€ˆŒ” †‚„Ļ”†ˆC”†”…€ĀŌ†”–| | Ł …€½Ÿ…€¼ ÕņˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Õ ˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xČ ¢¤‹Z’†‰€ˆŒ” †‚…j”†ˆC”†”…€ĆŌ†”…€½…€¼ ÕēˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Õ ˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xČ ¢¤‹Z’†‰€ˆŒ” †‚…l”†ˆC”†”…€ĀŌ†”–| | ą…€ŗŸ…€¹ ÕوC‰€‡Œ€ ” ‰€‡£¤¤ !²Õ‡ˆ,‰€ˆ ¢×¤ˆC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ" É×xȈC Œ¢†ƒÕ" É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xČ ¢¤‹s’†‰€ˆŒ” †‚†n”†ˆC”†”…€ĆŌ†”…€ŗ…€¹ Õ’ˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Õøˆˆ,‰€ˆ ¢Œ†€Ŗ×x¢§Čˆˆ,‰€ˆ ¢Œ†€Ŗ×x¢§ČˆC Œ¢†ƒÕˆÉ×xȈC Œ¢†ƒÕˆ É×xȈC Œ¢†ƒÕˆ É×xȈC Œ¢†ƒÕˆÉ×xȈC Œ¢†ƒÕˆÉ×xȈC Œ¢†ƒÕˆÉ×xČ ¢¤‹B’†‰€ˆŒ” †‚†p”†ˆC”†”…€ĀŌ†”–| | §…€·Ÿ…€¶ ÕRˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Õˆ,‰€ˆ ¢Œ¢§†ƒåŠŚŌˆC Œ¢ˆ,‰€ˆ ¢Œ¢§ČŠLˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈ,‰€ˆ ¢Œ¢§†ƒåŠŚŌˆC Œ¢ˆ,‰€ˆ ¢Œ¢§ČŠLˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xČ ¢¤‹śž†‰€ˆŒ” †‚‡q”†ˆC”†”…€ĆŌ†”…€·…€¶ ÕGˆC‰€‡Œ€ ” ‰€‡£¤¤ !²Õˆ,‰€ˆ ¢Œ¢§†ƒåŠŚŌˆC Œ¢ˆ,‰€ˆ ¢Œ¢§ČŠLˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈ,‰€ˆ ¢Œ¢§†ƒåŠŚŌˆC Œ¢ˆ,‰€ˆ ¢Œ¢§ČŠLˆC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xȈC Œ¢†ƒÕˆ,‰€ˆ ¢Œ†€¬×x¢ŲÉ×xČ ¢¤‹śž†‰€ˆŒ” †‚‡s”†ˆC”†”…€ĀŌ†”–| | !…€“…€©’Ÿ…€³ Õ¦ˆC‰€‡Œ€ ” ‰€‡£¤¤ !²ŌUˆ,‰€ˆ ¢Œ†€Ŗ×x¢§ˆ‘ˆˆC Œ¢’ˆ,‰€ˆ ¢Œ†€Ŗ×x¢§ˆ‘ˆˆC Œ¢’ ¢¤Ц†‰€ˆŒ” †‚ˆÕ”†ˆC”†”…€ĆŌ†”…€“…€©’՛ˆC‰€‡Œ€ ” ‰€‡£¤¤ !²ŌUˆ,‰€ˆ ¢Œ†€Ŗ×x¢§ˆ‘ˆˆC Œ¢’ˆ,‰€ˆ ¢Œ†€Ŗ×x¢§ˆ‘ˆˆC Œ¢’ ¢¤Ц†‰€ˆŒ” †‚ˆ×”†ˆC”†”…€ĀŌ†”–| | …€±…€©’Ÿ…€° ÕوC‰€‡Œ€ ” ‰€‡£¤¤ !²Õ‡ˆ,‰€ˆ ¢×¤ˆC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ" É×xȈC Œ¢†ƒÕ"É×xČ ¢¤‹s’†‰€ˆŒ” †‚‰’”†ˆC”†”…€ĆŌ†”…€±…€©’…€° ÕΈC‰€‡Œ€ ” ‰€‡£¤¤ !²Õ‡ˆ,‰€ˆ ¢×¤ˆC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ" É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xȈC Œ¢†ƒÕ"É×xČ ¢¤‹s’†‰€ˆŒ” †‚‰””†ˆC”†”…€ĀŌ†”–?†„C‡€‡ŒČ…€ĮԐ…€¾Ō…€»Ō…€øŌ…€µŌ…€²Ō–€ˆŒ…€Ę£¤¤ !²Ō …€ĘŒ…€Ę’ ¢¤Šé…€Ę²ŸŌ…€Ę£…€Ę’– : : : C†‚ŠĒ”…€Ę²Ō,…€Ę£¤¤ !²Ō† Œ” †‚ŠŹ” ¢¤ŠąŠP¤¤ !²Ō† Œ” †‚ŠĪ” ¢¤Šą…€Ę£¤¤ !²Ō† Œ” †‚ŠŅ” ¢¤Šą†”–CORE DUMP Startword :  Number of valid bytes : CORE DUMP Startword :  Number of valid bytes : ¤…€Ē¤…€Ē¤¤!²ŸŌk!£¤¤ '²Ō^…€Č¤&¤#%׈,”†‚‹#”†…€Č” †‚‹1”†” †”’’…€Č¢„€Č ¢¤Š"²ŸŌ^…€Č¤&¤#%׈,"”ˆ,""£” †‚‹?”†…€Č” †‚‹M”†"” †”’’…€Č"¢„€Č– Block number [  ] of the file Error occurred reading block !Do you want to continue ”Š·‘/†-‘€O”‰†€Ø”…€Øƒ˜RŚŌ …€Ø€a£€A¢„€Ø…€Øƒ˜ZŚÕ…€ØÖ˜±‹„‘‹†‚¢†€ń‘ …‚¦Ō†‚¢†€ń†‚Š‘ Ō‘Š]2Ÿ„2Ō‚˜`‘Š‚˜x‘ŠH‘(ŠD1Ō†‘І-‘1Ÿ„Š1…‚¦Ō#…€ØÖ˜ŽŠ‘$Š‘'Š‘)Š ‘%Š ‘&Š‘ŠŠ‚˜„‘Š…€Ø€Q°Õ8’‘.†”†€É”†€ń”–9w–2Tz.ū©ėp ¹  \ × ¢ — ŚvsoŅƽ… žŪ@ŠOĻų‰tm*Š{TCĢ€/BSCCNTRL &%x$³ŸŌ%$Ċ %x#²ŸŌ%#Ė€%ę ¤ ¤!ēF¤"ē$ĖŲÉŌ !ęT" ”!ęT"ē$Ė ”!ē@§²ŸŌ!ęT!ē@ʔ!ē@§”–©%¤!!y°!~!x°”%$’”¤ Ō%$’ Ÿ¤–Č$%±¤ Ō '’'&’'’ ¤ –ņ‰¤ ēH#Ė%Č ēG#ĖŲˆ($ĖŲÉŹ–-‰Ś¤‰¤!%€’ĖŲ#Ź!ēO# Ė%Č!ēN# ĖŲˆ3$ ĖŲÉŹ–m\„1‡^€P”„„-’’”„„1”‡]”"Ą„)”„)Ė×x¤_„”–^¾Ł„\‡Ž€P”„…‡Ż€P”„®‡Ü€P”„4„‚`’’”¤ß„4„\””"°Õ’„4„’’”°Õė„€Z” ‡Ś¤×"¤Ų€’¤Ł¤ ‡Ł²Ō‡Ų €’ĖŲ Ź ¢¤ŠåˆȇŲē@ ” ‡Ųē@„&ÉȇŲē@§ ²ŸŌ‡Ųē@ ȇŲēF„#ÉĄ#ɐ„$ɐ„$ɐ„'ɐ„'ɐ„%ɐ„&ɐ„%ɐ‡ŲēHĖ Č‡ŲēGĖŲʇŲēM„1ÉĄ/É „-ɐ„1É „0É „0É „+ɐ„+ɐ„,ɐ„,ɐ‡ŲēXāÄē˜Ä‡ŲēVāÄē˜Ä‡ŲēU„…„Ä!°Ō‡ŲēT„®„ć×ē‡)£Ä‡×‡*£Ä‡×ē „!Éć×ē„!Éć×ēć×ēć×燁×yć×燁×xć×ēć×ēć×ē "ć×ē ‡Ūć×ē ć×ē Ä!°Ō ‡Ś’ ¤ß„4”–ŽŚ$#²ŸŌ#¤Š$¤–@„‡Å‡„Ňē ćē ćēć ‰‚Žē”¤–ž’,Value out of range. Maximum block number is Input file must be opened first.!Number must be greater than zero.CONSOLE:#1:Type to continue Input file is not opened.Output file is not opened. Value out range. Defaults to 15.AT,“åL^žŽ`Š“Ž0Yj÷"+!‘¤!ƒŚÕ!֏‡‹x†„ƒ —†‚t†€É‘ †„ƒ —‰†‚y”‹O…‚xŌX†„ƒ —‰„€P”‰”„‘¤„§±Ō ³ …‚v²”Ō „‚uŠ ‚…‚v‘†„ƒ —‰…‚u” Š‚%‘‹č†„ƒ —‰„€P”‰”„‘¤„§±Ō ²ŸŌ „€ÅŠ‚6‘†„ƒ —‰…€Å” ‹–…‚JŌX…€Ä…‚x ŌF† ”…€ÄԐА †‚K‚G”†‚K‚L” Ō‰‚N”‰„”!€ °Ōņ!Š‚[‘Š‚h‘‹/†„ƒ —#„€Ä‹†„ƒ —‰„€P”‰”„§±Ō „‘„€Č†„ƒ —‰…€Č” ‹Ż†„ƒ —‰„€P”‰”„§±Ō „‘„€Ē†„ƒ —‰…€Ē” ‹†„ ƒ —†‚F† ‘ †„ ƒ —‰†‚K”‹t†„ ƒ —‰„€P”‰”„‘¤„§±Ō ³ ²”Ō „€ĘŠ ‚v‘„€Ę†„ ƒ —‰…€Ę” ‹†„ ƒ —#„€Į€' ”#„€Ą€8 ”#„€æ‹ń†„ƒ —#„€¾€'”#„€½€8”#„€¼‹Ē†„ƒ —#„€ø€'”#„€·€8”#„€¶‹†„ƒ —#„€»€'”#„€ŗ€8”#„€¹Št†„ƒ —#„€µ€'”#„€“€8”#„€³ŠK†„ƒ —#„€²€'”#„€±€8”#„€°Š"†„ƒ —#„€ĆІ„ƒ —#„€ĀŠ”!€Q°Õfü†„ƒŒ£—…‚¦Ō‘1Ō†-‘І‘–+Blocknumber : /Blocknumber is out of range. Highest value is Read was successful.Į#*‚‘}‘‰„€P”‰”„‘¤*„§±ŌB‡*³Ÿ‡*…‚¤£²Ÿ Ō‚‘……‚¤£‘†„ƒ —Ї*„‚£†‚¢†€ń†‚Š‘ Ō‚‘‘‘€O”–*Read was successful.Have reached end of file.+$…‚£…‚¤£³ŸŌ …‚£¢„‚£†‚¢†€ń†‚Š‘ Ō‚‘ā‘‘Š‚‘ķ‘–Read was successful.Already at block # 0.$…‚£²ŸŌ …‚££„‚£†‚¢†€ń†‚Š‘ Ō‚’‘‘Š‚’"‘–!Error saving block. Ioresult is Block saved."Error saving buffer. Ioresult is Block saved.L%…‚„Ō,…‚¢†‚Ё…‚£””"±Ō ‚’H”"‘Š‚’Y‘Š%†€ń†‚Š…‚£”±Ō ‚’`”"‘Š‚’r‘–File : Length : Current :  Byte 0 : HIGH Byte Byte 0 : LOW Byte Open : True Open : False Unit I/O : True  Unit I/O : False Unitnumber :  ž&†„ƒ —‰‚’§”‰†‚§”‰‚’«”‰…‚¤” ‰‚’²”‰…‚£” …€©Ō‰‚’¹”‰”Љ‚’Ä”‰”†„ƒ —…‚¦Ō ‰‚’ϔР‰‚’Ö”…‚„Ō ‰‚’ݔР‰‚’锉‚’õ”‰…‚¢” ‰‚“”‰†€Ø”…€Ø€ °Ōƒ —1Ō†-‘І‘–@'0¤!%¢²ŸŌ!£¤%£¤¤ "²Ō†‚Š! ¢&Č ¢¤Šģ0%Œ¢„‘–Number of bytes : Number of bytes is out of range.What pattern : Invalid format.Invalid format.~~~~6Invalid format. Hexdigits ::= 0 .. 9 , A .. F, a .. f Ch7Invalid format. Must have prefix character, 'C' or 'H' *-‚“”‘‰„€P”‰”„‘¤+„§±Õ7‡+²‡+²Ÿ Ō ‚“«‘‹‚“¼‘†V‘”‰„€P”‰”„§³ŸŌ ‚“Ä‘‹ī„§ƒ“ĢŚÕŚ„§Ö”‹Ī„§‡++‹Ć„§³ŸŌ ‚“Ó‘‹®„§†ƒõŠŚ„§†ƒõŠŚ”Ս„§ƒ“ŪŚŌ„§€A£ ¢Œ¤*Š&„§ƒ“ąŚŌ„§€a£ ¢Œ¤*Š „§€0£Œ¤*„§ƒ“ēŚŌ„§€A£ ¢‡*¢¤*Š(„§ƒ“ģŚŌ„§€a£ ¢‡*¢¤*Š „§€0£‡*¢¤*‡*‡++Š‚“ó‘ŠŠ‚”7‘†‘†„ƒ —0†‘–-2CHARACTERS : , quits Invalid characterŲ*‚•‘0Ō0£„0†‘†„„ƒd—¤!±Ō: †ƒåŠŚŌ#†‚Š0 ȉ ”‰€ ”0¢†‘Š ‚•(‘0†‘!°Ō°†„ƒ —0†‘–6HEXADECIMAL : 0 .. 9 , A .. F , a .. f , Quits~ Invalid inputż+‚•m‘0†‘†„„ƒd—¤"±Õ †ƒõŠŚÕ…0¤!Ō!£¤Š!¢¤…€©Ō!³ŸŌ!¢¤Š!£¤ †„ŠŚŌ†‚Š!Ų €0£ŹŠ0 ƒ•‰ŚŌ†‚Š!Ų €A£ ¢ŹŠ†‚Š!Ų €a£ ¢Ź €a£€A¢¤‰ ”0¢†‘Š ‚•Ž‘0†‘"°ÕK’†„ƒ —0†‘–X$CU; kuź,†‘0†‘‘¤ ƒ–ŚÕƒ ֖Š},Šy-Šu*Šq0³ŸŌ 0£†‘Š0€<³ŸŌ 0€A£†‘Š 0€<£†‘ŠD0ś²ŸŌ 0¢†‘Š0Ć²ŸŌ 0€A¢†‘Š 0€<¢†‘Š0£†‘Š 0¢†‘Š €Q°Õg’1Ō†-‘І‘–-†”†€É”†€ń”–6EDIT : G(et, R(ead, S(ave, T(ype, F(or, B(ack, M(ode, V(iew, Q(uit, ? 3.A 6EDIT : D(ump, I(nfo, ?  LTYPE : C(har, H(ex, F(ill, U(p, D(own, L(eft, R(ight, , Q(uitHValid format : C or H ’’’’’’’’’’’’’~~,0)†„ƒŒ£—†-¤„‚–„€6”„‚– €N”„€P”†¤„‚–­€6”„‚–É€N”„€P”†‚–Ö€P”†V‚–ż€P”„„†ƒåƒ—"ĒŽ†„ƒ—*ĒŽ†ƒõƒ—.ĒŽ†ƒŠ×ƃŠ× ƃŠ×€dƃŠ×čƃŠ×'Ä ¤¤ !²Ō†ƒÕ ×€0 ¢Ä ¢¤Šé¤¤ !²Ō†ƒÕ ¢×€A ¢Ä ¢¤Šē„„€Į„€Ą„€æ„€¾„€½„€¼„€»„€ŗ„€¹„€ø„€·„€¶„€µ„€“„€³„€²„€±„€°„€Ę„€Å„€Č„€Ē„€Ä„€Ć„€Ā†‚§‚—5€P”„‚¦„‚„„‚¤„‚£į„‚¢†‚y‚—6€P”„‚x„‚w„‚v„‚uį„‚t†‚K‚—7€P”„‚J„‚I„‚H„‚Gį„‚F‘–)*System.MiscinfoSysterm:Console:£ "Could not open *System.Miscinfo. &Insert system disk ([ESC] to abort) : ž’’€Ō"\/The display will be in characters if printable.*The display will be in hexadecimal digits.BV Error. File not open. ?VCVV?*VVVV×2††‚Ež’”†€É†õ’’”†€ń†‚’’”‚˜‚˜ ‚˜%†„ƒ˜*—ŸŌ3‰”‰‚˜,”‰‚˜>”‰†€Ø”…€Ø°Ō€€ ’’DUMPFILE‚DUMPFILE€NUMCON ƒDIRINFO ‚SPOOLUNINUMCON NUMCON €įDIRINFO  DIRINFO €é SPOOLUNINSPOOLUNI€¦A(c) Copyright Advanced Computer Design, 1982 All Rights ReservedSDUMPFILEPrinter Spooler Program;Version 3.Ax (c) Copyright Advanced Computer Design, 1982 to exit) ? **System.Library.CodeCould not open ; Try againFILE: ====================================================Program Unit  Version:  Machine: PDQ-3 Global Data Size: words Has Init section Has Term section Uses II.0 heapUses IV.0 heap Segment : Size:  words Referenced Unit Segment : Version: Resident Non-Resident«zņ:J‡„]„ˆÅ„2„^’’”‰”‰‚0”‰„ €P”‰”¤]„ §°Ō€€”„ ʔ§°Ō€€”„ ‚L”Ō „ ‚M€P”Š?„ „ §Ę”§€.°Ō „ „ §”Š#„ ¤^„^„ €P”„^‚U€U”„^€P”„2„ ””"±¤#Ō#‰‚X”‰„ ”‰‚`”‰”#ŸÕ(’¤]†- ”„‘†-‚f”†-„ ”‘‘¤„„2„Z2”±Ō¤Z¤ ‡Z²ÕÉ„\ Ė× ¤[‡[Éւ‹Ŗ!"„‘†-‚j”†-‚x”‘‘‡[ēÉցŽŠ†-‚†”Š †-‚‹”Š„‡[ēņ-‡[甆-‚’”†-‡[}” †-‚™”‘‹3†-‚¢”†-‡[y” †-‚­”‡[ēÉŌ †-‚²”‡[ēÉŌ †-‚¼”‡[ēÉց֊†-‚Ę”Š †-‚Ī”ŠŠ‘‡[|¤‡[{¤‹»†-‚Ū”†-‡[}” †-‚į”†-‡[甆-‚ć”†-‡[” †-‚č”‘Šs†-‚ģ”‡[ēÉŸŌ †-‚ö”†-‡[}” †-‚ū”†-‡[甆-‚ż”†-‡[~” ‡[ēÉŌ †-‚‚”Š †-‚‚ ”‘ŠŠ ¢¤‹/ž‡[„2°Õ ž!"„‘‘„2”‡]¤ˆ–‡Libmap Utility 3.Ax (c) Copyright ACD, 1982:What is the name of the output file ( for Console:) ? Console:.TextCould not open ; Try again †-†Yž’”‰”‰‚ƒ­”‰‚ƒµ”‰‚ƒø”‰”‰”‰‚ƒČ”‰†€P”‰”†§°Ō †‚ƒę€P”†ʔ§°Ō€€”††§Ę”§€.°Ō ††§”Š3††§Ę”§€:±Ō#†„Z†Z†€P”†Z‚ƒė€U”†Z€P”†-†””"±„0Ō#‰‚ƒī”‰†”‰‚ƒö”‰”0ŸÕ0’‘ŌŠł†-””†-”–›Jż€ ¤!Ō‡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× ę²Ÿ„§²Ÿ”Ōw‡1x‡4× ę³Ÿ Ÿ”Ōd‡1‡1x¢Ä‡4‡1x× ¤+‡+ē  ɀd°Ō‡/Ċ&‡+ēɰԇ/Ċ‡+ēɰԇ/Ċ‡/ć/x‡0ŚŌ„‡+ē‡.‡3’¤ЋР‡1‡4× ęÄ ¤5–4… .„‡3€P”„+‡2Å„” ¤,‡,‰ć,牀æ‰×”‡,ē‰ć,ē˜Ä‡,牀æ‰×|ć,ŌD‡,ē ‡1ć,ē‡0‡1£Ä‡,ē ‡4ć4±Ō&‡,ē „”‡,ē‡5ć,ē„+Ň4°Ō‡,ē‡/ĉ„x˜°Ō‰„ Ċ‰ē Ä ¦–5^ ¤*) Õ•"¤ˆ^‰„€ˆ5„‰„‚Ē„„’¤*ŌC$"£¤¤#&²Ō6ˆ^#× yˆ^#¢× x±Ō˜‚†Dˆ ˆ^#× yˆ^#¢× x’#¢¤ŠÅ%)”Ōˆ^"× ¤! &ē&ē &x&y’"ˆ^× ę°‰Ÿ Õk’*Ō-ˆ^× ¤ˆ^&ę× y&±Ō˜‚†Eˆ ˆ^&ę× y&’– f„„T‡„ƒ€P”„ ” ‡„˜Ä¤„„T„ „5„ „’¤%°Õ¶„ ’¤„5’¤„5’¤„^„ ‡„€„„’¤%°Ōt‡„‚¶Ō¤Šg¤‡„‚Ś#”Ō;‰€æ&×|Ō#„^× ¤„}˜‚†°‡„}ē ‡„}x‡„}‡„}ꐊ˜‚†±„ ’‰€æ&×|Ō‡„‚Ś#”‡„‚€!Żø&‰ę °!Ÿ %ڟ Õb’‡„x˜±Ō¤Š%°Ō¤%¤„„–„ƒ %× ē%× ę£Ä$%× ę¤¤ !²Ō% × % ¢× Å ¢¤Šč–×€„„U‡„‚€P”„” ¤¤ ‡„¶Ō¤ ‹„„U„5„ „ „’¤ )°Õš„5’¤„ ’¤¤’ „_„5„„^’¤ )°Õ¤ ‰€æ ×|„ §²Ÿ”‡„€!Żø”Ō\„_„ „‡„Ē„ „^’Ō¤ „_$’$£¤$„_× ę°'Ÿ ŌĶ)°Ō$ „_ģ””"¤"±Ō " °Ō¤ Ф ‡„Ś„ ’”Ō¤ ‰€æ ׂ‡Q”’ ()° ¤ ‰ę °&Ÿ )ڟ Õ*’()°”Ō¤ )¤„ƒ–„‚*-„‡/€P”‡.Ĥ„§²ŸŌ0‡.xˆ€­×ŠŅ‰‚€ķ”” ”&‰†€P”” ‰”” ††ƒ€š—°Ō€€”2†ŠŚÕn’ƒ€ņ—‰”” ‰‚€ō”” ‰†€P”” ‰”” †§±Ō†ʔ§€\°Ō †”€B„Š€<„†§±Ō;††§Ę”§€.°Ō ††§”І„O†O†€P”†O‚€ż€U”†O€P”†§±Õ8†” †Ē†ƒ—°Õ0˜±Õü†„O†O0甆O‚€W”†O0ē €f”†O€P”‰‚”” ‰†”” ‰‚”” ‰†”” ‰” ŸŌ ‰”” 6ƒ ŚŌ³6ƒŚŌv†3€B2ƒ—ցFŠe‰†”” ‰‚”” ‰”” ŠA‰‚'”” ‰”” 0ē˜ÄŠ$‰†”” ‰‚9”” ‰”” Š0~„‹žžŠ‰‚K”” ‰”” †”!†§°Õ*žƒS—”–V€ą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¤`–_-32768f/¤*‡1³ŸŌ%‡0‡*€-ȇ*¢¤*‡1į¤1‡1³ŸŌ ‡0‚q€P”‹I¤+‡+¢¤+„‡+‡1 €0¢Č‡1 ¤1‡1°Ōā‡+¤,‡0‡*„‡,§Č‡*¢¤*‡,£¤,‡,°Ōä‡0‡*£Č–1Y*³ŸŌ¤ „ ŠĢϟŌ„ „ ŠäŽ(€-Ȋ(€ Ȥ„„ ŠŽ„ Š”$ĻŌ%„Š”$ĻŌ ¢¤„„ Š ”$ƎŠŻŠ,„ ŠĢ͟Ō" £¤„„ Š į”$ĀŽ„Š”$ĻŌŽ*°* ¢¢)²Ÿ Ō„„ŠĢ)”$ĆĄŽŠ* ¢¢³Ō„„ŠĢ* ¢¢”$ĆĄŽ„Š”$ĻŌ ¢¤„„Š”$Ǝ)¢¤¤"%²Ō'„о¤("!€0¢Č„„Š!ĢĮ”$ĀŽ"¢¤ŠŌ*° )³ ŌZ((§Č(€.Č)¢¤ ±Ō?)¢¤()¢€EČ ³ŸŌ)¢¤()¢€-Č į¤ ²ŸŌ(" €0¢Č"¢¤(" €0¢Č("Ȋc ³Ō+(( ¢”( ¢€.Č()¢*)£ ££€ ” (*¢ ¢ČŠ3(*¢Č(( £)”(€0Č(€.Č( ᣀ0” ()¢ £*)£€ ” – 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 $#³ŸŌ$¤Š#¤–4$#²ŸŌ$¤Š#¤–X„Š„ŠĻŸŌ „„ŠŽŠ„„ŠŽ–|„Š„ŠĪŸŌ „„ŠŽŠ„„ŠŽ–‹„%$“Ä ¤–›„%$µÄ ¤–§ ŌŠ–ČĄ®œ’ˆµĄvŠ€ č DIRINFO ˜¦¦–=„’’Ä‰ ±Ō ˆ€øß ¦‰¢¦–\‰£¦‰°Ō ˜¦ˆ€øŽ–„.„‡/€P”„§±Ō„„§§€=°¤0Ф0–/¾„” &x˜±Ō&x¤!ē%!{£Ä!$!y£Ä ¤!ē%Ä!ē$Ä ē&xÄ& Ėų-„‡/€P”¤ Ÿ‡.x‰'²”Ō„‡.x§€ ±¤ ŸŌ‡.‡.x¢ÄŠŪ ¤0–/€-„‡1€P”¤‡0‡0x¢Ä‡/„‡0’ŸÄ‡/xŸŌ;„‡0x§€\°Ō'¤‡0x¢‰'²Ō‡0‡0x¢Ä‡.„‡0x§ÄЇ/Ċ ‡.„‡0x§Ä‡/xŸŌ‡.xˆŠŚ Ÿ”Ō‡/ć0‡0x¢Ä–1@0 ?¤¤¤¤‡‡x¢Ä‡ˆ(‡ŸÄ‡xŸÕ!ˆ(‡x§ƒ€ĮڇŸ”Ō#ˆ(‡x§€~°¤ˆ(‡x§€\°¤‡‡x¢Ä‹ėˆ(‡x§ˆŠڇŸ”Ō‡ċʤˆ(‡x§¤‡‡x¢Ä‡ˆ(‡ŸÄ‡xŸŌHˆ(‡x§ƒ€ÉڟŌ‡Ċ2ˆ(‡x§€-°Ō ˆ(‡‡„Š"¤"!²ŸŌ‡ćˆ(‡ŸÄ‡xŸŌV‡Ō$‡Ō „€’¼ĒŽ„„Š€’¼"!¼ŻÜĒŽŠ‡Ō„ĒŽ„„Š"!¼ŪĒŽˆ(‡x§€}°¤‡‡x¢Ä¤¤‡‡x ÕĆž‡xŸŌB‡„ŠڟŌ‡Ċ1‡‡x¢Ä‡x‰'²‰}”Ōˆ(‡x§ˆŠŚŸŌ ‡‡x‡x’ –¦((x¢Ä(x‰'²ŸŌ '‰&¢ÄŠHˆ” $x¦'x¤(x &$’ ¢¤ ‰&²ŸŌ%Ä&xŸ%xŸ”Ōˆ”!$‰Ĉ” &x%x ŌĒ– 0h={9-‡ +Ĥ¤‰'²ŸÕ7‰}ˆ(-§ˆŠڟ”Ō*,- ,‰&²Ÿ¤$‰"Ÿ”ŸÕ±ˆ(-§¤$ŸŌˆQ,§¤ €\°#Ÿ”Ō ¤-¢¤‹‹$Ÿ !°”Ō#Ÿ!ƒŌڔԤР-¢¤,¢¤ Šc ˆŠڟŌ¤ŠS‰}Ō*,- ց܊C-¢¤,¢¤ -‰'²‰}”Ōˆ(-§ˆŠڟŌ*,- Š„„ „!*Š „„ +„*Ф"Ÿ#Ÿ”,‰&²Ÿ”-‰'²Ÿ”Ō+Ċ,‰&²Ÿ-‰'²Ÿ ‰"Ÿ”Ō¤"+x Õ’‰}*x˜±”Ō*x¤'ē‰&'{£¢Ä'‰''y£¢Ä–0 h C|„(‡€€€P”„Q‡€P”„ƒ‚ÅĒŽ„ƒ‚ĶĒŽ„%” ‡~˜Ä„( ¤"„(§¤'„Q§¤&„!‡~ ‡}‡~x˜±”Ō+‡~x|¤#‡~xē˜Ä‡#˜±Ō‡#|¤$‡#ē‡~xć~‡#ć$¤#Šā‡!ŸŌ ‡~˜Ä„%”!‡!¤€–€€™¤¤( §¤!ˆZŠŚŌ &&x Œ!€0£¢ÄФ ¢¤ '°"Ÿ ŌŌ °'°”Ō( £§€*°Ō&įĤ"¤ – [].TEXT.BACK.CODE‹Z„2„[Å„‡5€P”¤‚ƒN„”¤!²ŸŌ!£¤Š„§¤!²ŸŌ‡4„„7!”„7€P”„!”„§°Ō¤Š#‚ƒO„”¤ °¤$Ÿ ²Ÿ”Ō „ ‡3¤$ŸŌ¤$‡4§²Ÿ”ŌA„‡4„7‡4§£”„7€P”„‚ƒP”„‚ƒS” Ō‡2Ċ„‚ƒV”Ō‡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”¤¤ Ÿ!„§³Ÿ”Ō&!¢¤„!§€\°Ō!¢¤Š„!§ƒ„cŚŌ¤ŠĪ ¤0–/P .„‡/€P”¤¤ „§²!”Ō„ §€=°¤ ¢¤Šę!¤0–/’’’’’’’’’?Ć ¤%&ģ””"¤!±Ō! °Ō¤Š¤Š8&× ¤"ēɁŚ"ē§²”"ęƒ„©Ś”Ō‰€æ%×"ē”Š¤ ¤–# 0„‡5€P”¤„§²ŸÕ@„§€#°„§²Ÿ”Õ­¤„"§ˆZŠŚ  ŚŌ‡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 $#³ŸŌ$¤Š#¤–4$#²ŸŌ$¤Š#¤–X„Š„ŠĻŸŌ „„ŠŽŠ„„ŠŽ–|„Š„ŠĪŸŌ „„ŠŽŠ„„ŠŽ–‹„%$“Ä ¤–›„%$µÄ ¤–§ ŌŠ–ČĄ®œ’ˆµĄvŠ€ ’’PASCALSY#DIRCHANG€?NUMCON NUMCON NUMCON €įA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved>cDIRCHANG"Disk Directory Size Change Program”„"”” „Ė×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’‹,’„Õóž”–#1:9 ŌC¦ ¦ˆāÄē˜ÄˆāÄē˜ÄˆāÄē˜ÄˆLX€@ˆM”ŠœˆM’¦Š‚gį’±ŌˆL€<”Šć–³Ł,$j€’’BOOTMOVEBOOTMOVE€ßNUMCON NUMCON NUMCON €įA(c) Copyright Advanced Computer Design, 1982 All Rights ReservedŽ BOOTMOVE What unit? ›e¤h‰‚”” ‰„€P”” ‰”” „„Sƒ —±ŌH‡S„U””"°Ō8‡]Ō4‡g°Ō‡S‡f ‡_Œ¢”ЇS‡f ‡_Œ¢””"°¤h–gName of file? .code Error opening fileError in bootstrap read. Error in bootstrap write. „W„€‚Åœ„*„V’’”¤R¤S‰‚O”‰„€P”‰”„§²ŸŌm‡X°Ō[„*„””"±ŌE„¤Z„Z„€P”„Z‚W€U”„Z€P”„*„””"±Ō‰‚Z”‰”ФSФSŠ „*„”¤S„§°‡S Õe’‡SŌ]‡X°Ō*„*‡W’’”€žڤR‡RŸŌ‰‚d”‰”Š-„*‡W’’”°¤R‡RŌ„*”Љ‚q”‰”‡R¤Y„*”‡Y¤€„–€ƒBootstrap Transfer Program„>‚(€P”„>‡<€ ”„>‚)€š”„>€P”‡<§°Ō:‡<ʔ§€#°‡<ʔ§„)ŠŚ”Ō‡<¤>„>‡<€P”„>‚*€ ”„>€P”ᄆ‡<€P”‡<‡<§Ę”§€:°Ōa‡<‚+”‡<‚-” Ō†‚2€P”„Š@‡<‚7”‡<‚9” Ō†‚>€P”„Ї<‚C”‡<‚E” Ō †‚J€P”„0²Ÿ„+„†””"°¤=„”” „”‡=¤€¶–€µ-‰„”” „”€ „ŠڟŌ’‰„”” „”€Šį‰ ”” ¤–’ų¤„!⼃ŪĒŽ¤¤¤‰„”” „ŠڟŌ’‰„”” Šę !°Ō4#²ŸŌ,‰!”” ‰€ ”” ‰!”” $ ¤#£¤Š; € °Ō#²ŸŌ¤Š’Š%#³ŸŌ‰ ”” #¢¤$ Œ ¢€0£¤Š’‡Õb’$¤–h,„‡-€P”‰*¢¦*ˆ‰*ˣפ*‡*„ʔ§Ä‡*ē‰*¢£Ä‡*y¢¢„—͇*y””€‰„”” ‡*y”‰€:”” –-+Print/Xref: to start; Q(uit >¦*„—ĶˆĖ£×€QĈĖ£×ē£ÄˆĖ£×ĈĖ£×ē£Ä””€ˆ,¤„‚µ€+”„†—N€{”„€P”–>YesNo5#Ō‰‚‚”” Š ‰‚‚”” –O,„‡.€P”„’‡-’ –.@‚#ƒ‚)Ē’€Y°Ä‰”” #x’ –¢,„‡.€P”„’‰‡-” ” –.®#’Ė×U„‡W€P”„*‡V€P”„’‰„*”” –W ‰#€P”” ‰”” #‚‚m”Ō #‚‚n€P”–*,„‡.€P”„’‰‡-”” –.:‰#”” –U””€‰ˆ,”” – F(ilename O(utput fileX(refP(rintI(nclude V(ert format C(ommand char S(kip Pages N(umbering L(ine spacingE(ject on incl #( of copiesP’‚‚¬†— ’‚‚±†’‚‚ø…,’ ‚‚»….’ ‚‚æ…1’ ‚‚Ä…2’ ‚‚Ė…5’‚‚Ņ…0’ ‚‚Ų…-’ ‚‚Ž…4’ ‚‚å…/’ ‚‚ķ…3’ –   Bad input file title Bad output file/vol title That's asking for trouble#Xœ„–h\?9 b Let's go...•W„3†ŸŌ †‚ƒ)€P”¤W‰„U”” „U”€¤)¤V„‡)Ė£×x‡U°Ō¤VЇ)¢¤)‡V‡)‡*²Ÿ ŌهVŌ½‡U°Ō"†— ‚ƒ*”Ÿ†‚ƒ+”Ÿ”Ō¤WА‹Ń‡U€Q°Ō €€”‹Ą„‡)Ė£×y¤+¢‡+””€‡UփS‹Ÿ†1 ‹˜†2 ‹‘†0 ‹Š†— †— ”€ŸŌ‚ƒ,†— ‚ƒ7€P”Ši†. Šc††ŸŌ‚ƒ8†‚ƒE€P”ŠF†- Š@†, Š:†4 …4³ŸŌ„4Š …4²ŸŌ„4І5…5€$°Ō‚ƒFŠ †/ І3 ЇWÕæž‚ƒ‹”€ †•ņ”” –WõŸ—‡pYSC0 Ģ~÷P’ƒINITXREF AND ARRAY BEGIN BOOLEAN CASE CHAR CONST DIV DOWNTO DO ELSE END EXIT FILE FOR FUNCTIONGOTO IF IN INPUT INTEGER MOD NIL NOT OF OR OUTPUT PACKED PROCEDURPROGRAM REAL RECORD REPEAT SET STRING TEXT THEN TO TYPE UNTIL VAR WHILE WITH WRITE WRITELN INTERACTREAD READLN SUCC PRED TRUNC ROUND ORD CHR ODD EOF EOLN PAGE PUT GET RESET REWRITE LABEL FORWARD NEW DISPOSE MARK FALSE TRUE …–ō¤ņŲ„–ō„”x__Ė„”v_¤¤!"²Ō†6!_ĖׂÅ!¢¤Šę†•¬”!†•¬” ‚ ”€‚”€‚”€‚”€‚”€‚”€‚"”€‚&”€‚*”€‚.”€‚2”€‚6”€‚:”€‚>”€‚B”€‚F”€‚J”€‚N”€‚R”€‚V”€‚Z”€‚^”€‚b”€‚f”€‚j”€‚n”€‚r”€‚v”€‚z”€‚~”€‚€‚”€‚€†”€‚€Š”€‚€Ž”€‚€’”€‚€–”€‚€š”€‚€ž”€‚€¢”€‚€¦”€‚€Ŗ”€‚€®”€‚€²”€‚€¶”€‚€ŗ”€‚€¾”€‚€Ā”€‚€Ę”€‚€Ź”€‚€Ī”€‚€Ņ”€‚€Ö”€‚€Ś”€‚€Ž”€‚€ā”€‚€ę”€‚€ź”€‚€ī”€‚€ņ”€‚€ö”€‚€ś”€‚€ž”€‚”€‚”€‚ ”€‚”€‚”€‚”€‚”€ „–ō––INITIALI <#‚€P”‚#€P”#ʔ$ €0¢Č$ ¤$°Ōą–Screen problem: ƒ,„‡-€P”‰”” ‰‚”” ‰„”” ¦t–-*SYSTEM.MISCINFO&No SYSTEM.MISCINFO file on boot volume No XY CRT.Screen width < Screen height < 'Erase-to-end-of-line or -screen missingCannot run PRXref.    Ūv„„B€0”¤t„‚C”‡¤u”"±Ō‚LŠ^‡uēɟŌ‚`‡uę&€@³ŸŌ‚f‰€@” ” ‡uę%³ŸŌ‚n‰” ” ‡uē ɰ‡uē ɰ Ō‚w‡tŌ‰”” ‰‚€‹”” €€”„‚€• ”„ʔ‡uēÉȄ‚€– ”„ʔȇuē"É ²ŸŌ ¤sŠ ‡uē"ɤs„‚€— ”‡uē"ɤv¤r‡r‡v²Ō„„ ”‡r¢¤rŠä†—å‚€˜ ”†—åʔ‡uē ÉȄ†—å ”‡uē$ĖŲÉŌ „†—å ”†—Ž‚€™ ”†—Žʔ‡uē ÉȄ†—Ž ”‡uē$ĖŲÉŌ „†—Ž ”„”–v*-$JanFebMarAprMayJunJulAugSepOctNovDec-¶}„~„‚~Å„„‚-’’”„‚r”„„”” °Ō„ ɄR’„  Ʉ)’‡~¤„„R€P”„‚s€ ”„‚t„’„ ÉŒ£”„’€Ä”„‚‡€’”„„)€’”„€P”„”–‚~-SYSTEM.WRK.TEXT PRINTER:f?ff U„„VÅ$ÕŪ†—# £„)‰††)’’”” ” ” ‰”” †”” †”–”€’’KILLDISKDKILLDISK€ē PASCALIO ę KILLDISK0Aą@łDąłDąłDą_††ŠƒƒĄŽ††Š†Šƒ þ̃ ĀĮŽ†ŠƒĆ#$£¢Ģ¾$¢¤–s#¢£¤– ProgrammingēÅ͉‚;”” 3£‘¤¤¤"$²Ō†œ%"Ė×ēÄ"¢¤Šē8¤¤"$²Õō'"€xĖפ ‘³ŸŌ 3£‘¤%†œ% Ė×xÜ% Ė×|†œ% Ė×{³ŸŌɆœ% Ė×ē†œ% Ė×|¢Ä%ēŒ‘ŒÄ†œ% Ėפ%ē&z&y£‘Ĥ¤!"³Ÿ#Ÿ”Ōm%x'!€xĖ×x°%y%z‘¢'!€xĖ×y²Ÿ%y'!€xĖ×y²””'!€xĖ×y'!€xĖ×z‘¢%y²Ÿ'!€xĖ×y%y²” ¤#Ō ‰€+”” !¢¤ŠŠ#ŸÕV’‰€.”” %ē‘Ä%ē‘Ä%ē‘Ä%熕Š”” ²ŸŌ…+Ō0°Ō0†–óĖ” ¢¤ŠĢ–J…–ņ…–ö³Ō‘…–ņ…4¢„–ņ–r$¤¤ !²Ō‘‘ ‘ Ō€€” ¢¤Šä– $¤¤ !²Ō…–ņ¢„–ņ‘ ‘ Ō€€” ¢¤ŠŽ–FILE:  PAGE INCLUDED FILE:  PAGE FILE: CROSS REFERENCE PAGE ]….…—É Õf…0Ō%…–÷ŸŌ±…+”Ō †•Å”” Š €B…–ņ£¢‘„–ņ„–÷…—L…0 Ō‘…—LÕ….Õ£…—MՃ†•Å‚‚Q”” †•ņ— ”” †•Å‚‚U”” †•Å…–ų” ” †—w†— ”ŸŌ@†•Å€ ”” †•Å‚‚Y”” †•ņ—w”” †•Å‚‚a”” †•Å…–ł” ” І•ņ–ś”” †•Å…–ų” ” …—ÉŌR….ŸŌ†•Å‚‚e”” †•ņ— ”” †•Å€ ”” †•Å‚‚i”” †•Å‚‚q”” †•Å…–ł” ” ‘†•ņ—#”” ¢‘…–ų¢„–ų…–ł¢„–ł–Ā„„Åœ&§¤ ²ŸŌI € &ʔ” ¤" ³Ō &‚ƒ0€’”Š( ဠ& ʔ” ¤&&„"¢ "£!¢”„€’”–’7†„‡€‡€’”„§²ŸŌ¤ŠM¤¤¤„ ʔ§ƒƒcŚŌ! Œ„ ʔ§¢€0£¤ ¢¤Š¤ „§²Ÿ" ŌŹ"ŌᤀˆŠ!¤€ˆ–€‡F”#Ÿ¤–#any key to continue; to quit  again to quit PRXref; any other key to reinitialize‘Ōc‰†—Ģ”” …—̱Ԃƒ¤‘ ‰†—Ģ”” ‚ƒ¶‘ …—̰Ō1‚ƒ·‘ ‰‚ƒĘ”” ‰†—Ģ”” …—̰Ԁ€”„—셗줖PROCEDURFUNCTIONq„(Å„‘„‚„¹„‚„¹ Ō¦‚)Љ‚)Ō¦‚)…–ō¤ńŲ„–ō„‘ „–ō– Œ™¦³… ˆ)‰÷‡Ė£§°Ō ‰÷¢¤Š‰÷¤!‰÷‰ł¢£¤¤"#²Õˆ)"‡Ė£§¤ €a³Ō €z²Ō € £¤‰‚(Ō €*°Ō¦‚'¦‚(‰‚'ք>‹Ń €A³ €Z²” €0³ €9²” Ō#‰q²Ōˆm‰qĖ£ ȉq¢¦qŠH €_±ŌB €{°Ō¦‚'Š €'°Ō¦‚'Š €(°Ō¦‚(‰q²ŸŌˆm¦qˆm‚„:ÅŠO¦‚'ŠH €'°Ō¦‚'Š; €}°Ō¦‚'Š. €*°Ō¦‚'Š! €)°Ō¦‚'Š €*°Ō¦‚'Ц‚'Š"¢¤‹įž&Ō‰q²ŸŌˆm¦qˆm‚„FÅ–*)}(Ļ Æ„€°„°Å‡€°¤€­¤€³ˆ)‡€²‡Ė£§°Ō‡€²¢¤€²‡€±£‡ˤ€±‡€±³ŸŌ‹oˆ)‡€²‡Ė£§€(°Ō8ˆ)‡€²¢‡Ė£§€*°Ō‡€±³ŸŌ‹<‡€²¢¤„‚…€P”Š‹&Š)ˆ)‡€²‡Ė£§€{°Ō‡€²¢¤„‚…€P”Š‹ū‡€­ēˆ) ‡Ė£§Ä‡€­y€$°Ō@‡€­ˆ) ¢‡Ė£§怭‘‡€­x€I°Ōˆ) ¢‡Ė£§ƒ… ŚŌ‹§Š‹¢Š6‡€­y…5°Ō*‡€­ˆ) ¢‡Ė£§Ä‡€­‘‡€­x†—ĪŠڟŌ‹oŠ‹j‡€±‡€²¢ ££¤€¬‡€¬²ŸŌˆ) ¢‡Ė£„,€’ˇ€¬”„,€’ˇ€¬Č„„,”¤!°Ō‹‡€­ē„,„€“!£”„€“€’”¤€³‡€³¤³–²Ā F‰ūˆ)‰÷‡Ė£” ¤ ‰ū³ŸÕĮ‘ˆ)‰÷‰ū¢£‡Ė£§ °Ō‰ū£‡˦ł¤Š‰ū‡˦ł¤….Ōs…-Ō†•Å…–ō” ” †•Å€ ”” …+Ō0ˆ)‰÷‡Ė£‰ł”Š8ˆ)‰÷‡Ė£„ʔ‰ł”„€‡Ė‰ł€’ĖȆ•Å„”” …,Ō!’‘ –Fœ‰÷‰ū¢‡˦÷‰ö‰÷£¢‡˦ś‰ś€‚²ÕP‰ś²ŸŌ ˆ)‰÷‡Ė£ˆ)‡Ė£‰ś”ˆ” Ō,ˆ)‰ś¢‡Ė£” ‰ś‡˦ü¤‹½‰śŸŌ!ˆˆ)‰ś¢‡Ė£‰ż”¤ŠEˆˆ)‰ś¢‡Ė£‰ż”¤ˆ)‰ś¢‡Ė£ˆ)‰ś¢‡Ė£””"„—ˉż„•ĉż¢¦ż!±…—˲Ÿ Ō …—Ėˆ‚*‘ įˆ)‰ś¢‡Ė£” ¢¤ ²Ÿˆ”  Õ’ž‡˦÷ ‰ś¢‡˦ö‰ö‡˦ś‰ś€‚³ŸŌ ‰ś‡ˤŠ €‚‡ˤ" ˆ)‰÷‡Ė£” ¢‡˦ū‰÷‰ū¢‰ü²Ÿ¦r–+-1ƒ„€‚‡ŀ‚„„€„€’”„‘‡€‚€H°Ō]„€„‚‡O”Ō „—L„—MŠE„€„‚‡P”Ō„—LŠ3„—L„—M†–ś„€„€P”†–ś§²ŸŌ†–śʔ§€ °Ō†–ś”Š[‡€‚€S°Ō7„‚‡Q”Ō „‚‡R€’”„‘¤ €B²Ÿ ³Ÿ Ō¦õŠ …4Œ‘Ї€‚€P°Ō„‚‡S”ԑЦõ–File:  cannot be opened included file:  xU„‚*‡‚V€P”„„-’’”„‚*‘ŸŌ'‚‡Ć‘ ‰„‚*”” ‰‚‡Ē”” €€”„”” „„‚*”” †—w„‚*€P”„–ł…/Ō‘„–õ¤ż‡‡ˤü‡ˤö‡ö¢‡ˤ÷‡ˤū…,Ō¤q„m‚‡ŠÅ¤‚'¤‚(¤‚)…–ō¢„–ō„)‡÷‡Ė£§°Ō‡÷¢‡ˤųŠ ‡÷‡ˤų¤õ‡÷‡ū‡Ė„sՊ¤õ‡t€$°Ōg…1Ōa‡s€I°ŌY„u‘„ž„u€P”‚‡Ō‘ ‰„ž”” …–ō£„–ō„ž‘…—ģŌ€€”†—w„‚*€P”„–õ…–ō¢„–ō‚‡Ü‘ Їt…5°Ō…2Ō„sŠ¤õ‡õŌ …–õŌ„–õ‘‘ Ō€€”‡rÕ’„”–‚Vfile: , copy  of ń†•ņ–ńž’”†”y†•„”€„””„€„”€ƒ””ƒ€ƒ”„—Ź„—ķ…—Ź…3²…—ķ”Õ퀄””„€„”‚ˆĮ‘ ‰†— ”” ‰‚ˆÅ”” ‰…—Ź” ” ‰‚ˆÉ”” ‰…3” ” †—w†— €P”„—솗 ‘…—ģŌ‹W…,ŌS…0ŸŌ‘…•Ŗ°Ō€‚””‚€‚”…—ģŌ‹.Š,€‚””‚€‚”…—ģŌ‹€‚””‚€‚”…—ģŌ‹…—ģŌ„—ģ„—ķ…0Ō €B…–ņ£¢‘…—Ź¢„—Ź‹’…+…—ģ Ō †•Å”” Š †•Å”” ÕĻž†•Å”†”y”–Ucķ KŽžh2;õ'Ö§ƒuZēv'Ķ€’’TEST (TEST € TEST C„*ņ*…)€1Ėפ$¤$ē„Å%)ĖŹ%(Ź%'Ź…)¢„)– *system.drvinfoCLOCKDRISERDRIVESERDRIVESERDRIVEFLOPPYDRFLOPPYDRSERDRIVESERDRIVESERDRIVEPRIAMDRIPRIAMDRIPRIAMDRIPRIAMDRISERDRIVESERDRIVESERDRIVESERDRIVESERDRIVESERDRIVESERDRIVESERDRIVESERDRIVEPRIAMDRIPRIAMDRIPRIAMDRIPRIAMDRI1††-’’”†‚#”” „)‚+‘‚/‘‚3‘‚7‘‚;‘‚?‘‚C ‘‚G‘‚K‘‚O‘‚S‘‚W‘‚[‘‚_‘‚c‘‚g‘‚k‘‚o‘‚s‘‚w ‘‚{‘‚ ‘‚€ƒ‘‚€‡‘‚€‹‘‚€‘…)$ $CURSOR $EQUAL $SYNTAX $LAST $TAG “O.\¢£¤. program test;  type Alpha = Packed Array [1..8] Of Char;  var f : file; $Driver_Table : Record 5Last_Driver : Integer; 5Drivers : Array [0..49] Of ERecord GRun_Time : Packed Record WHas_Driver : Boolean; WIs_Blocked : Boolean; WMinor_Unit : 0..31; UEnd {of Run_Time}; GDriver_Name : alpha; EEnd {of Drivers}; 5Filler : Array [0..4] Of Integer; 3End {of Driver_Table}; P  procedure enter (name : alpha; munit : integer; blocked, Valid : boolean); "begin $with drivertable, drive‘°%x€0Ś”Ä ‘ÖAœ‹£%ēĖ€Ŗ€’ĖČ%ēĖ€Ŗ€’ĖČ%ēĖ€U€’ĖČ%ēĖ€U€’ĖČ%ēĖ€Ŗ€’ĖČ%ēĖ€U€’ĖČ%ēĖ€Ŗ€’ĖČ%ēĖ€U€’ĖČ%ēĖ€Ŗ€’ĖČ%ē Ė€Ŗ€’ĖČ%ē Ė€U€’ĖČ%ē Ė€U€’ĖČ%ē Ė€Ŗ€’ĖČ%ē Ė€U€’ĖČ%ēĖ€Ŗ€’ĖČ%ēĖ€U€’ĖȋĄ%ēĖ€€€’ĖČ%ēĖ€€’ĖČ%ēĖ€@€’ĖČ%ēĖ€æ€’ĖČ%ēĖ€ €’ĖČ%ēˀ߀’ĖČ%ēĖ€’ĖČ%ēˀĖČ%ēĖ€’ĖČ%ē Ė€÷€’ĖČ%ē Ė€’ĖČ%ē Ė€ū€’ĖČ%ē Ė€’ĖČ%ē Ė€ż€’ĖČ%ēĖ€’ĖČ%ēĖ€ž€’Ėȋā%ēĖ€Ū€’ĖČ%ēĖ€g€’ĖČ%ēĖ€Ū€’ĖČ%ēĖ€g€’ĖČ%ēĖ€Ū€’ĖČ%ēĖ€g€’ĖČ%ēĖ€Ū€’ĖČ%ēĖ€g€’ĖČ%ēĖ€Ū€’ĖČ%ē Ė€g€’ĖČ%ē Ė€Ū€’ĖČ%ē Ė€g€’ĖČ%ē Ė€Ū€’ĖČ%ē Ė€g€’ĖČ%ēĖ€Ū€’ĖČ%ēĖ€g€’ĖȊ"¢¤‹ü‰”” –ü$#Ėׁ#¢Ė£#‘Œ#£” –2 „-Å„+”,²ŸŌ++ĖׁĖ£,£”+,‘–’’’’’’’’’’’’›„‡Å…œ"¤/„Å/ē‡Ä/ē‡Ä/ē‡Ä/ē‡Ĕ(ƒ‚šŚŸŌ …œ"ē” …œ"ę„œ"…œ"¤/ē˜Ä/ēĖCummulative Errors Before Pass  = /Replace the system disk then hit any character.Pausing. Pass . Hit "C" to proceed.Error Report. Pass  :Read error. Pass  : Write error. Pass  : Compare error. Pass  : +TPass , disk ,block , bytes, #, I/O result = _ ”#ŸÕ|‰„”” ⼃‚ĻŪŚÕc °Ōv‰”” ‰‚‚×”” ‰5” ” ‰‚‚ē”” ‰6” ” ‰”” ‰”” ‰‚‚é”” ‰”” ‰„”” €€”‹å € °ŌE‰”” ‰‚ƒ”” ‰5” ” ‰‚ƒ ”” ‰”” ‰„”” ‹š‰”” ‰‚ƒ”” ‰5” ” ‰‚ƒ ”” ‰”” ‰”” …œ#„œ"…œ"¤!ę±Õ(!ęփLŠ{‰‚ƒ"”” ‰!ę” ” ‰‚ƒ,”” ŠR‰‚ƒ0”” ‰!ę” ” ‰‚ƒ:”” Š)‰‚ƒ>”” ‰!ę” ” ‰‚ƒI”” Š!¤‰‚ƒQ”” ‰!ę” ” ‰‚ƒT”” ‰"x” ” ‰‚ƒX”” ‰"y” ” ‰‚ƒ\”” ‰"z” ” ‰‚ƒ^”” ‰!ę” ” ‰‚ƒc”” ‰!ę” ” ‰”” …œ"ę˜±Ō…œ"ę„œ"…œ"ę˜°Õ°ž€ ¤‹ż–Disk write error: on disk  starting at block  for  bytes. „‡Å¤‘)ԁĄ]įĄ]¤¤!‡²Ō!¢¤Šó#‡%$””"¤ ±Õ˜…œ$¤„ ‡‡‘‡‡x¢Ä‰”” ‰‚„±”” ‰ ” ” ‰‚„»”” ‰#” ” ‰‚„Ą”” ‰$” ” ‰‚„Ź”” ‰%” ” ‰‚„Ķ”” ‰”” "ŸÕ0’–Disk read error: on disk  starting at block  for  bytes.Buffer compare error on disk ; read starts at block  error at block on byte . Write =  Read = k „‡Å¤‘‡† ŕ+ԁĄ]įĄ]¤¤#‡²Ō#¢¤Šó%‡'&””"¤ ±Õ›…œ$¤„ ‡‡‘‡‡x¢Ä‰”” ‰‚…A”” ‰ ” ” ‰‚…J”” ‰%” ” ‰‚…O”” ‰&” ” ‰‚…Y”” ‰'” ” ‰‚…\”” ‰”” ‹\‡'‘'£¤¤"‡²ÕD‡"Ėׁ‡"Ėׁ¹‚ŸÕ#„ ‡‡‘‰”” ‰‚…`”” ‰%” ” ‰‚…o”” ‰&” ” ‰‚…{”” ‰&"¢” ” ‰”” ¤¤!‡²Õ¬‡"Ėׁ!Ė£§‡"Ėׁ!Ė£§±Ō}‘‰‚…„”” ‰!” ” ‰‚…‰”” ‰‡"Ėׁ!Ė£§” ” ‰‚…”” ‰‡"Ėׁ!Ė£§” ” ‰”” ‡‡x¢Ä!¢¤‹M’"¢¤‹µž$ŸÕŹż–Step: writes:  reads:  disk:  bytes:  block: Step:  reads:  disk:  bytes:  block: 3*‡ŖÄ8¤Ŗ¤Ŗ‡Ŗ‡Ŗ²ÕB‡Ŗ‡Ŗ€xĖפŖ‰‚†·”” ‰‡Ŗ” ” ‰‚†»”” ‰‡Ŗ}” ” ‰‚†Ą”” ‰‡Ŗ|” ” ‰‚†Å”” ‰‡Ŗx” ” ‰‚†É”” ‰‡Ŗz” ” ‰‚†Ī”” ‰‡Ŗy” ” ‰”” ‡Ŗē‡Ŗz„‘‡Ŗ}¤Ŗ¤Ŗ‡Ŗ‡Ŗ²Ō#‡Ŗ‡Ŗ€xĖׄ‡Ŗ‡Ŗ‡Ŗ‘ ‡Ŗ¢¤ŖŠŌ‡Ŗ|¤Ŗ¤Ŗ‡Ŗ‡Ŗ²Ō&‡Ŗ‡Ŗ€xĖׄ•„‡Ŗ‡Ŗ‡Ŗ‘ ‡Ŗ¢¤ŖŠŃ‡Ŗ¢¤Ŗ‹“ž8¤Ŗ¤Ŗ‡Ŗ‡Ŗ²Õš‡Ŗ‡Ŗ€xĖפŖ‰‚†Ó”” ‰‡Ŗ” ” ‰‚†×”” ‰‡Ŗ{” ” ‰‚†Ü”” ‰‡Ŗx” ” ‰‚†ą”” ‰‡Ŗz” ” ‰‚†å”” ‰‡Ŗy” ” ‰”” ‡Ŗē‡Ŗz„‘‡Ŗ{¤Ŗ¤Ŗ‡Ŗ‡Ŗ²Ō&‡Ŗ‡Ŗ€xĖׄ•„‡Ŗ‡Ŗ‡Ŗ‘ ‡Ŗ¢¤ŖŠŃ‡Ŗ¢¤Ŗ‹’–Ŗ.Kill Disk --- Disk Diagnostic Program Version 0.4What is your lucky number ? How many disks to test ? How many passes to make ? What is unit # ?  Minimum block = , maximum block = ;  Change them (Y/N) ? @@ New Minimum block ?  New Maximum block ? (Do you want to loop on an error (Y/N) ? @@!Load blank disks into drive(s) : ; then hit [RETURN] End of pass ;  errors this pass;  errors overall³‰”” ‰‚ˆ”” ‰‚ˆ3”” ‰”” ‰”” ‰‚ˆ5”” ‰†” ” ‰”” ‰‚ˆD”” ‰†” ” ‰”” 3¢¼ŚŌÖ3°Ō€€”‰‚ˆQ”” ‰†” ” ‰”” 2³2’²”ŌŌ2°Ō€€”„ 3£„œC„4…œC²Õw‰‚ˆ_”” ‰4” ” ‰‚ˆg”” ‰†œ%4Ė×” ” ‰”” †œ%4ĖׄœD…œDxŚŌ…œDēˆąœDēĊ…œDēąœDēķĉ‚ˆi”” ‰…œDz” ” ‰‚ˆr”” ‰…œDy” ” ‰‚ˆ|”” ‰‚ˆ~”” ‰† ”” ‰”” 9ƒˆ‰ŚŌÖ9ƒˆ‘ŚŌU‰‚ˆ™”” ‰…œDē” ” ‰”” ‰‚ˆ¤”” ‰…œDē” ” ‰”” …œDz¢…œDy²Ō«…œDē…œDy…œDz£Ä…œD{²ŸŌ…œDēąœD{8¢„ 4¢„‹ž‰‚ˆ°”” ‰† ”” ‰”” 9ƒˆÅŚŌÖ9ƒˆĶŚ„œ$‰‚ˆÕ”” 3£„œC„4…œC²Ō‰†œ%4Ė×x” ” 4¢„ŠŽ‰‚ˆę”” ‰† ”” 9°Ō€€”† Œ” †œ"” …œ"„œC…œCēąœCē˜Ä…œ"„œ#8£„ „2„œC„5…œC²Ōw†• ‘†• 5†‘ 67¢„‰‚ˆš”” ‰5” ” ‰‚ˆ÷”” ‰7” ” ‰‚ˆł”” ‰6” ” ‰‚‰”” ‰”” 5¢„Š‚–ė•Ņl¢€iG2 € % ¦dSERDRIVE߈&×x¤ y¤$ŌJ ē %Ä%Ō" xÖœŠ!!xŻĒĊ !!x€@ŪĒĊŠ xÖ œŠ!!xŪĒĊ !!x€@ŻĒĊ#ŌN ē %Ä%Ō$ xÖœŠ!!xŻĒĊ!ē!z€@ŪĒĊŠ" xÖœŠ!!xŪĒĊ!ē!z€@ŻĒĊ–ˆ$×x¤#Ō ēĊ }Ō ēÄ ēŽ ēāÄē˜Ä– Jˆ#×x¤ y¤ xր‰Š#!zŚ’ Š #!zŚ’ Š–‚Ds.@7.@7¦Įˆ$×x¤# ę°Ō }ŸŌ$’ Š ę¤# ę°Ō$’ # ę°Ō ē |ŸÄ ęŌz ę ę°Ō ē#Ċjƒ€§ē ę¢×¤#ր؊G!ēÄ!ēÄ!ēÄ!ēĊ1!ēÄ!ēÄ!ēÄ!ēĊ!ē!}ŸÄŠ!ē!|ŸÄŠ !ē!{ŸÄŠ ēÄ ē ęÄ# ę°Ō ēÄ# ę°Ō ē ęŸÄ# ę°Ō ē#ß ē%Ä ē&Ä ē'⦠ē#Ž# ę°Ōƒ€Ś—–- Ś)ޤˆ(×x¤%y¤&¤%ēߤ%xցbŠM€’'{€’”£¤'zڟŌ''xŪĒÄ''xŻĒċįŠ" ³ŸŌ €’”¤Š&y¤ ³ŸŌ¤Š ¤Š%ęŌ!€”¤!%ēŠŚ%ę Ō(!’ ‹x%}Ō%ēފg%ē#ß%ę%€ ³ŸŌ)%ē(%ę&!Č%ē&%ę&¢€ Ä%ē%%ę%¢Ä%ę%°Ō¤Š-%ę&°Ō€ £¤Š%ę&£¤%ē($§°Ō%ē&$Ä%ē%%ę%£Ä%ē#Ž#Ō%ē!Ž%xցfŠ'zڟ¤Š&xŚ ³Ÿ ¤Š"ŸÕļžƒj—Õßž”– .„$Č%„ ’¤–l('¢¤++° Õ(+ˆŠڟŌ ¤ ‹ˆ+×x¤¤ #ē ß#ē&ŸÄ‰ē)ɤ#ēÄ("³ŸÕć#ē#ß#ęŌ‰°Ō#ēÄ#ęŌˆ‰§¤‰¢¦ŠE#ę%°Ō #ē!āÄē˜Ä#ē#Ž#ē!ß#ęŌ‹°’#ē#ߊŁ#ē(#ę'§¤#ē'#ę'¢€ Ä#ē%#ę%£Ä#ē#Ž#ęŌ6 #ēŠŚ#ę Ō + ’ ‹m’Š+°Ō+ ¤ °Ō &ŸŌ+ ¤ )( Č(¢¤ !°Ō#ę&Ÿ”Ō+°Ō )(£"(¢£” "¤ ‹’#ē ŽŠ¤ – ’%Ž„āÄē˜Ä„”„ߒ ƒj—Ōń”–bBIˆ‰×x¤ y¤!¤ xÖ‚ĢŠx ē ß"zŚŌЉ’ }Ō‰’ ƒj— ē߉’ ē ß"瀒#£ÄŠ8 rs[lastdriver], runtime do &begin (drivername := name; (minorunit := munit; (isblocked := blocked; (hasdriver := valid; (lastdriver := succ (lastdriver); &end; "end; ( (  begin "reset (f, '*system.drvinfo'); "drivertable.lastdriver := 0; "enter ('CLOCKDRI', 0, false, true); {unit 0} "enter ('SERDRIVE', 0, false, true); {unit 1} "enter ('SERDRIVE', 1, false, true); {unit 2} "enter ('SERDRIVE', 14, false, true); {unit 3} "enter ('FLOPPYDR', 0, true, true); {unit 4} "enter ('FLOPPYDR', 1, true, true); {unit 5} "enter ('SERDRIVE', 10, false, true); {unit 6} "enter ('SERDRIVE', 17, false, true); {unit 7} "enter ('SERDRIVE', 16, false, true); {unit 8} "enter ('PRIAMDRI', 0, true, true); {unit 9} "enter ('PRIAMDRI', 1, true, true); {unit 10} "enter ('PRIAMDRI', 2, true, true); {unit 11} "enter ('PRIAMDRI', 3, true, true); {unit 12} "enter ('SERDRIVE', 3, false, true); {unit 13} "enter ('SERDRIVE', 2, false, true); {unit 14} "enter ('SERDRIVE', 5, false, true); {unit 15} "enter ('SERDRIVE', 4, false, true); {unit 16} "enter ('SERDRIVE', 7, false, true); {unit 17} "enter ('SERDRIVE', 6, false, true); {unit 18} "enter ('SERDRIVE', 9, false, true); {unit 19} "enter ('SERDRIVE', 8, false, true); {unit 20} "enter ('SERDRIVE', 12, false, true); {unit 21} "enter ('PRIAMDRI', 4, true, true); {unit 22} "enter ('PRIAMDRI', 5, true, true); {unit 23} "enter ('PRIAMDRI', 6, true, true); {unit 24} "enter ('PRIAMDRI', 7, true, true); {unit 25} "drivertable.lastdriver := pred (drivertable.lastdriver); "writeln (blockwrite (f, drivertable, 1)); "close (f,lock);  end. ’’SERDRIVE˜ SERDRIVE€§FLOPPYDR‚SYSDRIVECLOCKDRI CLOCKDRI€1SYSDRIVEFLOPPYDRFLOPPYDR€śPRIAMDRI=PRIAMDRI€§RX02DRIV RX02DRIV€'cSYSDRIVESYSDRIVE,SYSDRIVE€2ØA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved " "Const Ser_Q_Size = 32; { bytes in type-ahead Queue } (Ser_Tab_Size = 19; " "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; :Case Is_Blocked : Boolean Of g3j€ €   {$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; 8Case Is_Blocked : Boolean Of :False : (Vol_Name : String[7]; CIn_Unit : Boolean); :True : (Hard_Disk : Boolean; CPhysical_Unit :"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 łFLOPPYDRD„$Å„€ŠŹ‰¤!¤"„Å!ēĒÄ!ēǁ"xܶŸŌą–n#ŚŌ ¤Š#ŚŌ¤Š#ŚŌ¤Š¤–²'#Ź'’ ‰¤ ¤!xڟŌ%'&Ź ē$xÄ ē%Ä!'Å€!xܶŸŌó$ yĖę„'ńʄ %¢&’ ‰xĒ’ ¤ ±Ō&Ä ¤ –¶€"¤ˆ פ$Ä$ēÄ$ēĈ פ$€4Ä$ēÄ$ēĤ¤ $²Ō&ˆ פ Ō%ēĊ%ēÄ%%yÄ ¢¤ŠÕ¤¤¤"$²ŌKˆ"פ%ē¤%ēÄ%ēÄ%ēÄ%įÄ%ē#ÉÄ&Ź& Ź&#ÉŹ&!Ź!Œ¤"¢¤аˆ4üĈāÄē˜Ä–žˆ%פ$¤¤!Ä!ēˆ ēÉ×xÄ!ēˆ y×xÄ!ē€MÄ!ēÄ!ē Ä!ē %Ė1ˆß#²ŸŌ ¤Šˆ#פ ē ˆ y×y’ ¤ˆŽ–8–>–ˆ(¤„)„É×Ä'¢¤„ɤ¤ $²Ō"#¤%ɤ%%ÉŹ%!Ź#¢¤ ¢¤ŠŁ– Ą#ŚŌ ¤Š'#ŚŌ¤Š€8#ܶŸ‰}ڟ Ō¤Š¤–mˆ‰×¤${‰Ÿ”¤ˆ $y×x¤(‰Ÿ”Ō'Ō‰"£Œ"¢¦Š ‰"£"¢¦‰"¦‰"¤#Ō Œ" Œ"¢‰£Œ¢"¤ ¢¦ ¦#Ō ˆ'×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Å9„+‡=Å„,‡<Å ‡,ŚŸÕ–¦„‚å€P”„ ȄȄ*„+Å„*ɐ‡;‡:„*ɐ‡,‡-‡.„*‡0ĒŹ„*ɐ„*‡1ĒŹ„*ɐ‡3‡2‡6‡5‡4‰¤*„*ɐ„*ɐ„„§”–=I@Ł-@¶ó¼‰¤#¤#ē&Ä+’ „*Ä(¤!„É¢¤#ē „ÉĄ„ÉŹ„Ź#ē „ÉÄ#ē„ÉÄ)į¤#ē„ÉÄ#ē„ÉÄ'€¶°Ō #ē€AĒĊ #ē€QĒÄ+'+ÉŒ¢Ź$+Å#z¤€$xܶŸ€Ž#}܀€¶Ÿ Ōā#z ±$xڟ Ōóƒ‚dƒ‚fĆĢΟŌ'€¶°Ō $xĒ’¤ Š$x€@ŻĒ’¤ – 7&xį°Ō '&$’ ¤‰¤!¤'%¢‰&‰’ "xŚŌ='&$’ ¤'$¢‰&‰’ "xŚŌ''ɟŹ'ɒ'$¢‰&‰’ "xĒ’ ¤ –u‡²ŸŌ ¤‹*‡Ō¤‹ ˆ‡×¤.ē¤ˆ .yפ‡¤ ‡¤¤ˆ߇Ō‡¤Š‡ˆ/É×yŒ‡x¢¤'¤/ɐ¤.ē.‡z‡y¤ (°Ō\&¢¤$+²ŸŌ+¤ Š$¤ ‡*°”Ō ˆ/É×x¤ *±Ō.ē‡*!‡ ¤ (±.|”Ō .ē‰&(&°(° ( ° Ō¦Š.|Ō .ē‰(%*ˆ/É×x¢¤!*¢¤‡+°”ŌŠ+*£¤ +°(± ÕJ’ˆŽ(¤.}Ō ‡‡‡’ -Ō ¤ „ ”–€–('&%$#²Ÿ’¤ – øˆ(×}Ō&%$’ €¶('&%$#²Ÿ’¤ – Ę Ō’Š–ąi¹É bF![9$ŻŹ½uŽ€ "  {$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; 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 ¦PRIAMDRI*‰¤ ¤!ē¤"Ź"ÉŌŠų–'†„„ʼn¤#ē¤#¤„)Ä(¤!„É¢£¤$„ÉŹ#ē„ÉŹ#ēŹ#ē'į£Ä$ Ź$Ź$Ź$ +€R°Ź$ Ź&ē*Ź&ē+Ź$ Ź%ēÉŌŠö%ēÉŌ’ $ Ź%&ēÅ$ Ź%&Å$É$É Ōõ%ēÉŌ+€S°Ō%z¤Š%ēÄŠå$ÉŌś$ÉŌ€€¤ Šo%礀€-É¢¤ -ÉÖœŠX¤ ŠS-ɰԤ ŠF-ɰԤ Š ¤ Š4-ɰŌ¤ Š%-ɰԤ Š-ɰԤ Š -É°Ō ¤ Š’ ,¤– ‡¢£¤‡Ō¤Ša!°Ō¤ŠW‰¤ˆ6‡×¤!¤ ‡‡/x¢¤#/y¤%¤„%Ź„#/yŹ„ ‡/xŹ‡‡‡‡‡„’ ¤–ō „*Å/‰²„ÉŚ ÕĄˆ/פ¤¤„ÉցŠV+°Ō¤ ŠJˆ6„É×x£¤Š9+¤„ É°Ō „ ɤŠ „ É¢¤&z#£.³ŸŌ¤Š &y¤„&xʊ.Ō7+²Ÿ+³Ÿ”Ō+¤Š¤)-„É,!."’ ¤,!¢¤ +!£¤ .¢¤ °Ō)-„É,+."’ ¤Š ¤ ¤–ᔄ‘„•Å„„ Ĉ6‡‘פŽ‰¤‡¤‡ē¤’‡’ ÉÕ²€…‡‘!„’ °ÕŸ‡’ ʇŽ‡ēÉ恒 ʇŽē‡ÉĀS!‡‘‡Žx£’ °Ō`*¤“¤ ‡“²ŌR„ × ¤”ˆ‰×¤•‡”ēÉŌ.‡•‡‘恕燁”x恕燁”ēÉĉ±Ō‰¢¦ ¢¤Ч–•¦‰¤¤ !³Ō ‰(    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; & &STO = 196; {Store indirect} &LPR = 157;  {Load processor register} &SPR = 209; {Store processor register} &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 cl 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 3RX_Command : RX_Cmd_Rec; 3Dec_Format : Boolean; 3Noisy : Boolean; 3Flipped : Boolean; 3V_Sector : Integer; 3Track_Num : Integer; 3Sector_Num : Integer; 3Cur_Sides : RX_Side_Choice; 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 bRX02DRIV`‰%²”ŌDˆ%פ$¤¤!Ä!ēˆ É×xŒÄ!ēˆ ×xÄ!ē€MÄ!ēÄ!ē Ä!ē %Ċ ¤–«#²‰”Ō9ˆ#פ ¤ˆß!ʉ ʼnÉŌų‰yŚŌ¤Š ¤ˆފ ¤–²–ø–ˆ<’ĉ ɦ‰Õ¹ˆāÄē˜Ä€"¤ˆ×Ĉ×€4Ĥ¤ #²Ō&ˆ פ Ō$ēĊ$ēÄ$$yÄ ¢¤ŠÕ¤¤!#²ŌOˆ!פ$¤$ēÄ$ēÄ$ēÄ$ē"ÉÄ%Ź%!Ź%Ź%"ÉŹ% Ź% Ź%Ź!¢¤Ь‰ʉÉŌų–'¤#¤#y‰ Ÿ”¤ˆ#×x¤&‰ Ÿ”Ō $ÉŌ#ē#|!£!¢ÄŠ #ē#|!£Œ!¢Ä#ē#|!Ä#}€L²ŸŌ#ē€L¢Ä#|!¤"Ō Œ! Œ!¢#}£Œ¢!¤#ē ¢Ä$ Ź–X„(Ä"'¢¤&¤¤ #²Ō""¤$ɤ$$ÉŹ$!Ź"¢¤ ¢¤ŠŁ– t# ³ŸŌ€0#¢¤Š€A#¢ £¤–xx±$¤ˆ‚;ˆ”„ɍȈ‚<ˆ”„ɏȖExxFlop_xx [xx] xx C-xxxx E-xxxx EC-xx CT-xx DT-xx DS-xx LT-xx Vs-xxxxž*¦„‚Z€P”„ ȄȈɐ‰‰„*ˆÅ„*ɐ„*ɐ„* ‰ ĒŹ„*ɐ„*ɐˆɐˆˆɧˆɐˆɐ‰‰‰„„§”–*#)#„ ‡Å‰¤‡¤„‰Å‡yڤ„„Ą  „ÉŹ„„ÉŹ„Ź„ ʇ„ ŇɇÉ Ōó‡ē ćÉŌł€€¤„ÉÖŠŠ."ԤР¤Š!¤Š ¤Š¤Š¤Š €€¤Š’’¤Š!¤!ā¼ ā¼Ūڟ+”Ԑ –„„Ҥ‰¤‡¤‡’ „‡Å„ʇŹ„‡Ä ‡¢¤‡±ÕA¤¤&¢¤‡‡Å‡ɇÉ Ōó‡ē‡~Ą ‡Å‡ē‡|¢Ä‡ē‡}ć’ ‡ÉŌł‡ɟդˆ‡Éפ‡‡x²ŸŌ‡x¤Š#‡³ŸŌ‡x¤Š‰ ‡°”Ō‡x¤Š‡¤„ „ÉŹ‡„ŇɇÉ Ōó‡ē#Ą„ÉŹ„ʇē"Ą„Å #¢¤‡¤‡#£¤‡ÉŌł‡ÉŌ $¤„„ŇÉŌ3‡„ Ň&’ ¤%’’°Ō‡‡ÉŸŹ„‡Éʇ’ Š‹ &°ÕČž¤‹øž%¤‡¤–›„„Ҥ‰¤‡¤‡’ „‡Å„ʇŹ„‡Ä ‡¢¤‡±Õ9¤¤&¢¤ˆ‡Éפ‡‡x²ŸŌ‡x¤Š#‡³ŸŌ‡x¤Š‰ ‡°”Ō‡x¤Š‡¤„ „ÉŹ‡„ŇɇÉ Ōó‡ē#Ą„ÉŹ„ʇē"ćÉŌł‡ɟŌU‡‡Å‡ɇÉ Ōó‡ē‡~Ą„Å #¢¤‡ē‡}Ą ‡Å‡¤‡#£¤‡ē‡|¢Ä‡’ ‡ÉŌł‡ÉŌ<$¤„„Ň„ Ň&’ ¤%’’°Ō‡‡ÉŸŹ„‡Éʇ’ Š‹ &°ÕŠž¤‹Ąž%¤‡¤–9¤*¤%¤)Ō%ē.Ċ%ēˆ%×x.ˆ&É×yŒ¢Ä,¤-¤-Ō¤ŠI(Ō„ɄÉ+*¤Š"*{Ō +„É„ɐ „ɄÉ+*¤*{Ō +„Ʉɐ Ō ¤„”–e(²‰”Ō'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – ‘(²‰”Ō'%$&ˆ(×#²Ÿ’ ¤ Š ¤ –   Ō’Š–J.>~ķÉŅ[X25^K€) ¤'¤-ɐ ¤,ē,ē.z.y ¤ (°ŌJ&¢¤$‡²ŸŌ‡¤ Š$¤ /*°”Ō ˆ-É×x¤ *±Ō,ē‡*‡‡! ¤ &°(° ( ° Ō¶%*ˆ-É×x¢¤‡*¢¤/‡°”ŌŠ‡*£¤‡°(± Õg’ˆŽ(¤–('&%$#²Ÿ’¤ – ū ŌŠ–²;łŻš[9$muz 5%ļ7'ŠĶ6&¬ź€AĒĊ #ē€QĒÄ+'+ÉŒ¢Ź$+Å#z¤€$xܶŸ€Ž#}܀€¶Ÿ Ōā\Ķt€Čư cóČMAKEBOOTüé €'%’’BOOTSTRA BOOTSTRA€¬SERIALDR‚PRIAMDRI$EQUAL $SYNTAX $CURSOR %O.g£ó¤ock }  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 #Ä%āÄē˜Ä%$”–1‰ē€UĒĖn$ވāÄē˜Ä€’¤¤ !²Ō €"±Ōˆ ” ¢¤ŠēˆߒŌö”–Ā€"¤‰|ŚŌ!QĊ!Ä!ē@į!x£Ä!ēž’Ä!灒’Ä„ż’Ä’’ōŃ!ēāż’ і‰|€@ÜǤ‰ēĒĉxǤ‰!ŻĒЉ!Ēĉē ĒĖ? Ō0ˆ üĈüĈ€ €żˆ”Šœˆ’‰ēĒĊ–;c…€ü€ĶĶĶļ„ ’     ¬€č#Œ€Ä#$€«.BOOTSTRA‚ź5 „.Ť„ §ƒ— ¢¤ -²ŸŌķ,Ō‹ż’–H5#£„$†Å–Z$0Ć0#×ĖĶ Fatal I/O ErrorŒ:É#%$ƒ.—±Ō‚0‘–±$ü¤ āįÄ xԁ’„Ёᄖč5‰£„$5Ä$x‰‰#¢‘‰Ō$x灉xÄ$x灉Ė SYSTEM.‘„‡Å„‚uÅ„ „Åᤠ¢¤7 × ¤‡x¤‡Ō¤Š ‡y#£Œ¤‡ē§‡°¤¤‡ē"§„"§±Ō¤"¢¤"‡²ŸŌä$7× ę ° Ō¤$Ō&„%¤‡Ō%y±Ō%ē%y%ę¤Šź‡&Ė®#x°Ō$$xēÅ##x¢Ä– Need &„ ‡,Å3¤¤¤ !˜±)Ÿ”Õ¢!¤$‡$ē'× ¤%„„’ ‡%ɰ‡%ē„ ¹”Ōz¤ ‡%ēÉŌ9‡*°Ō ‡)‡%yxĊ‡)‡%y‡*‡%{¢×xć'Ōˆ ‡)x×xēŹ‹ĪŠ5‡%ēŹ„ !ē'× Å „+Œ¢‘„,Œ‘ ē‡%}Ä ē€’ć%ē ċU’)ŸŌ„‚€ŲÅ„„ Å„‘¤#,³ŸÕ9„„’ !¤$‡$ē'× ¤%‡%ɰÕÜ#°‡+€€³Ÿ”Ō‡+¤Š‡%}€€³Ō‰¤‰¢¦Š‡%}¤ „ˆ %בˆ %×x¤&‡&ē‡%ć&ē‡$ꁇ%~¢Ä‡&ē‡'#°”%° Ź‡&ē „ÉŹ‡&ē „ÉŹ‡&ē ʇ&ē‡%ēŇ&ē ˜Ä#°Ō ‡)%ć%}¤Š‡%}€€£ {³ŸŌ ē‡%}€€£Ä‡&ē ć&ē %ʇ&ē ʊ.‡%ēÉŌ „‡%ēŇ%}¤ „‡%}‡%}(£„‡(‡%ēɒ "‡%}$£×%Ä#¢¤‹Ąžˆ‡(פ$ˆ "xפ%‡$x˜°Ō‡$‡%xĊ ‡$yē ‡%xć$ē‡%xÄ 4Ä ē"Ė,PASCALSYCSP GOTOXYU PASCALIOTRANSCENLONGINT HEAPOPS U1„„×˜Ä„×˜Ä ¤‚‚„ ‚‚ „ ‚‚„ ‚‚ „ ‚‚ „ ‚‚ „ ‚‚ „ 4¤ ‡ ē€`‘‡ |¤ „ ēxxだē2x¢Œ‘¤2ē$פ‡ }$פ‡ē‡Å‡ÉŌ.‡ē€€‡ ‡ē&ē¹:ɇɰ”Ō‡ ē$Ä$¢¤$2x²ŸŌ”¤9˜±Ō;9¤‡ē!× ¤‡É°Ō‡ē€€„ „ #×xē ʆ „ ŠĄ‡ ē 2xだē„ņ Œ‘‡ ē †Å‡ ē £Ä‘¤6$ׄ $×xĄ $×x¤ ‡ ē4|zʇ 燁 ēÉだēÉŌl5‡ y£„‡ 5だx‡ yŒ‡ {‘‡ x‡ xxŒ$ȇ x×x¤"±Ō3„‡ x"×Ä%y¤%‡ ę y%ɀ€×xŹ%ē„ %É×xę ĊČ$¢¤$ °ÕR’–‚źĶINTRINS PASCAL DRIVERS DRVINFO =€"„ „0„‘ƒƒ,—ƒƒ.—†ģ‘7ģ‘˜„‚ƒ0†‘† †Å‚ƒ4 †‘‚ƒ8†‘‚ƒ<†‘‘ † €"‘8„ ;„ <˜Ä<瀀Ä<ē0Ä<ē5Ä<ē5Ä<ē4Ä<ē4Ä<ēÄ<ē6×xxÄ<ē ˜Ä<ē ˜Ä;ē Ä;ē 4Äį6Ń €ÅŒįx  Ėį8іŻĖ#[zH9& A€ #SERIALDRü¦–1‰¤ zڟŌų 瀒#£Ä–= ŌŠ– ‚‹FLOPPYDRD„$Å„€ŠŹ‰¤!¤"„Å!ēĒÄ!ēǁ"xܶŸŌą–n#ŚŌ ¤Š#ŚŌ¤Š#ŚŌ¤Š¤–²'#Ź'’‰¤ ¤!xڟŌ%'&Ź ē$xÄ ē%Ä!'Å€!xܶŸŌó$ yĖę„'ńʄ %¢&’‰xĒ’¤ ±Ō&Ä ¤ –¶€"¤ˆ×¤$Ä$ēÄ$ēĈפ$€4Ä$ēÄ$ēĤ¤ $²Ō&ˆ פ Ō%ēĊ%ēÄ%%yÄ ¢¤ŠÕ¤¤¤"$²ŌKˆ "פ%ē¤%Ä%ēÄ%ēÄ%ēįÄ%ē#ÉÄ&Ź& Ź&#ÉŹ&!Ź!Œ¤"¢¤аˆ4üĈāÄē˜Ä–ī#ŚŌ ¤Š'#ŚŌ¤Š€8#ܶŸ‰}ڟ Ō¤Š¤–iˆ ‰×¤ˆ$|×x¤(‰Ÿ”Ō'Ō‰"£Œ"¢¦Š ‰"£"¢¦‰"¦‰"¤ ¢¦ ¦‰"Œ‰Œ¢¤!¢‰£ˆ'×xŒ¦– I@Ł-@¶ó`‰¤#¤#ē&Ä+’„*Ä(¤!„É¢¤#ē „ÉĄ„ÉŹ„Ź#ē „ÉÄ#ē„ÉÄ)į¤#ē„ÉÄ#ē„ÉÄ'€¶°Ō #ē€AĒĊ #ē€QĒÄ+'+ÉŒ¢Ź$+Å#z¤€$xܶŸ€Ž#}܀€¶Ÿ Ōā#z ±$xڟ Ōóƒ6ƒ8ĆĢΟŌ'€¶°Ō $xĒ’ ¤ Š$x€@ŻĒ’ ¤ – Ū&xį°Ō '&$’¤‰¤!¤'%¢‰&‰’"xŚŌ='&$’¤'$¢‰&‰’"xŚŌ''ɟŹ'ɒ '$¢‰&‰’"xĒ’¤ –Õ‡²ŸŌ ¤‹ę‡Ō¤‹Üˆ ‡×¤ ,ē¤ˆ,|פ¤ˆß/Ō‡¤Š‡ˆ-É×yŒ.x¢* ’’APPPROCS7APPPROCS€½SCCNTRL   "Uses SC_Cntrl;  "Const Command_Row = 0; {Prompts and errors on this row} (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 Prompt (Line : SC_Long_String; 3Column : Integer; 3Match_Chars : SC_CHSet; 3Echo : Boolean) : Char; " {Places the prompt Line on the top line of the Command_Port at Column. %If Match_Chars <> [], Prompt waits around for a response in the set. %If Echo, the response is echoed back to the screen.} $ " "Procedure Error (S : String; 3Column : 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); " {  special key definitions for the VT-100 ASE implementation:  (ASE key VT-100 implementation (------- --------------------- (go to beginning of line control B (go to end of line  control L (get character control G (go to column 1 control E (escape escape escape (teach escape T (takeup key escape K (exchange direction  escape H (insert character F3 key (delete character F4 key (etx LINEFEED key (function 1 F1 key (function 2 F2 key (function 3  escape 3 (function 4 escape 4 (function 5 escape 5 (function 6 escape 6 (function 7 escape 7 (current date (function 8) escape 8 (up arrow up key (up arrow control A (down arrow down key (down arrow control Z (left arrow left key (right arrow right key  $EQUAL $SYNTAX $CURSOR %O.g££„  special key definitions for the VT-100 ASE implementation:  (ASE key VT-100 implementation (------- --------------------- (go to beginning of line control B (go to end of line  control L (get character control G (go to column 1 control E (escape escape escape (teach escape T (takeup key escape K (exchange direction  escape H (insert character F3 key (delete character F4 key (etx LINEFEED key (function 1 F1 key (function 2 F2 key (function 3  escape 3 (function 4 escape 4 (function 5 escape 5 (function 6 escape 6 (function 7 escape 7 (current date (function 8) escape 8 (up arrow up key (up arrow control A (down arrow down key (down arrow control Z (left arrow left key (right arrow right key  + ’’SERDRIVE˜ SERDRIVE€§FLOPPYDR‚SYSDRIVECLOCKDRICLOCKDRI€1SYSDRIVEFLOPPYDRFLOPPYDR€ śPRIAMDRI=PRIAMDRI€§SYSDRIVESYSDRIVE€µRX02DRIVRX02DRIV€cSYSDRIVEDTCDRIVEA(c) Copyright Advanced Computer Design, 1982 All Rights Reserved¦dSERDRIVE߈&×x¤ y¤$ŌJ ē %Ä%Ō" xÖœŠ!!xŻĒĊ !!x€@ŪĒĊŠ xÖ œŠ!!xŪĒĊ !!x€@ŻĒĊ#ŌN ē %Ä%Ō$ xÖœŠ!!xŻĒĊ!ē!z€@ŪĒĊŠ" xÖœŠ!!xŪĒĊ!ē!z€@ŻĒĊ–ˆ$×x¤#Ō ēĊ }Ō ēÄ ēŽ ēāÄē˜Ä– Jˆ#×x¤ y¤ xր‰Š#!zŚ’ Š #!zŚ’ Š–‚Ds.@7.@7¦Įˆ$×x¤# ę°Ō }ŸŌ$’ Š ę¤# ę°Ō$’ # ę°Ō ē |ŸÄ ęŌz ę Displays the string S on the Port at (Column, Row).} $ " "Procedure Get_String (Var Port : SC_Port;  and move back %one. moves forward one. moves to beginning of %field. moves to end of field. accepts up to %cursor. accepts all.} " " "Function Get_Entry_Range (Var First, @Last : Integer; ¤"‡>²Ō „„Šˆ"¢Ę”§ā¼ŪĒŽ"¢¤ŠŚ„§°Ō¤F‹Ą„§¤>¤"‡>²Õ°„"ʔ§€?°Ō‡Cċ”„"ʔ§€-°Ō¤‹„"ʔ§€a³Ō„"ʔ„"ʔ§€a£€A¢Č„"ʔ§„ŠŚŌC#Ō ‡Eˆ§„"ʔ§ˆʔ” Ċ‡Dˆ§„"ʔ§ˆʔ” Ċ ‚‹€(’¤F"¢¤‹I’#„‚’”Ÿ”Ō‡D‡ExĊ‚“’‡F¤Q–PFatal I/O error on  file\a„-„bÅ„‡.€P”‡-ŸŌ,¤/„/‚‚”„/„€c”„/‚‚‰€h”„/’€€”–cg ŌŠ–ž§„X°€$CURSOR $EQUAL O.£„£„ , -xxxx A-xxxxxx Vs-xxxxÅ9„+‡=Å„,‡<Å ‡,ŚŸÕ–¦„‚å€P”„ ȄȄ*„+Å„*ɐ‡;‡:„*ɐ‡,‡-‡.„*‡0ĒŹ„*ɐ„*‡1ĒŹ„*ɐ‡3‡2‡6‡5‡4‰¤*„*ɐ„*ɐ„„§”–=I@Ł-@¶ó¼‰¤#¤#ē&Ä+’ „*Ä(¤!„É¢¤#ē „ÉĄ„ÉŹ„Ź#ē „ÉÄ#ē„ÉÄ)į¤#ē„ÉÄ#ē„ÉÄ'€¶°Ō #ē€AĒĊ #ē€QĒÄ+'+ÉŒ¢Ź$+Å#z¤€$xܶŸ€Ž#}܀€¶Ÿ Ōā#z ±$xڟ Ōóƒ‚dƒ‚fĆĢΟŌ'€¶°Ō $xĒ’¤ Š$x€@ŻĒ’¤ – 7&xį°Ō '&$’ ¤‰¤!¤'%¢‰&‰’ "xŚŌ='&$’ ¤'$¢‰&‰’ "xŚŌ''ɟŹ'ɒ'$¢‰&‰’ "xĒ’ ¤ –u‡²ŸŌ ¤‹*‡Ō¤‹ ˆ‡×¤.ē¤ˆ .yפ‡¤ ‡¤¤ˆ߇Ō‡¤Š‡ˆ/É×yŒ‡x¢¤'¤/ɐ¤.ē.‡z‡y¤ (°Ō\&¢¤$+²ŸŌ+¤ Š$¤ ‡*°”Ō ˆ/É×x¤ *±Ō.ē‡*!‡ ¤ (±.|”Ō .ē‰&(&°(° ( ° Ō¦Š.|Ō .ē‰(%*ˆ/É×x¢¤!*¢¤‡+°”ŌŠ+*£¤ +°(± ÕJ’ˆŽ(¤.}Ō ‡‡‡’ -Ō ¤ „ ”–€–('&%$#²Ÿ’¤ – øˆ(×}Ō&%$’ €¶('&%$#²Ÿ’¤ – Ę Ō’Š–ąi¹É bF![9$ŻŹ½uŽ€¦PRIAMDRI*‰¤ ¤!ē¤"Ź"ÉŌŠų–'†„„ʼn¤#ē¤#¤„)Ä(¤!„É¢£¤$„ÉŹ#ē„ÉŹ#ēŹ#ē'į£Ä$ Ź$Ź$Ź$ +€R°Ź$ Ź&ē*Ź&ē+Ź$ Ź%ēÉŌŠö%ēÉŌ’ $ Ź%&ēÅ$ Ź%&Å$É$É Ōõ%ēÉŌ+€S°Ō%z¤Š%ēÄŠå$ÉŌś$ÉŌ€€¤ Šo%礀€-É¢¤ -ÉÖœŠX¤ ŠS-ɰԤ ŠF-ɰԤ Š ¤ Š4-ɰŌ¤ Š%-ɰԤ Š-ɰԤ Š -É°Ō ¤ Š’ ,¤– ‡¢£¤‡Ō¤Ša!°Ō¤ŠW‰¤ˆ6‡×¤!¤ ‡‡/x¢¤#/y¤%¤„%Ź„#/yŹ„ ‡/xŹ‡‡‡‡‡ę°Ō ē#Ċjƒ€§ē ę¢×¤#ր؊G!ēÄ!ēÄ!ēÄ!ēĊ1!ēÄ!ēÄ!ēÄ!ēĊ!ē!}ŸÄŠ!ē!|ŸÄŠ !ē!{ŸÄŠ ēÄ ē ęÄ# ę°Ō ēÄ# ę°Ō ē ęŸÄ# ę°Ō ē#ß ē%Ä ē&Ä ē'⦠ē#Ž# ę°Ōƒ€Ś—–- Ś)ޤˆ(×x¤%y¤&¤%ēߤ%xցbŠM€’'{€’”£¤'zڟŌ''xŪĒÄ''xŻĒċįŠ" ³ŸŌ €’”¤Š&y¤ ³ŸŌ¤Š ¤Š%ęŌ!€”¤!%ēŠŚ%ę Ō(!’ ‹x%}Ō%ēފg%ē#ß%ę%€ ³ŸŌ)%ē(%ę&!Č%ē&%ę&¢€ Ä%ē%%ę%¢Ä%ę%°Ō¤Š-%ę&°Ō€ £¤Š%ę&£¤%ē($§°Ō%ē&$Ä%ē%%ę%£Ä%ē#Ž#Ō%ē!Ž%xցfŠ'zڟ¤Š&xŚ ³Ÿ ¤Š"ŸÕļžƒj—Õßž”– .„$Č%„ ’¤–l('¢¤++° Õ(+ˆŠڟŌ ¤ ‹ˆ+×x¤¤ #ē ß#ē&ŸÄ‰ē)ɤ#ēÄ("³ŸÕć#ē#ß#ęŌ‰°Ō#ēÄ#ęŌˆ‰§¤‰¢¦ŠE#ę%°Ō #ē!āÄē˜Ä#ē#Ž#ē!ß#ęŌ‹°’#ē#ߊŁ#ē(#ę'§¤#ē'#ę'¢€ Ä#ē%#ę%£Ä#ē#Ž#ęŌ6 #ēŠŚ#ę Ō + ’ ‹m’Š+°Ō+ ¤ °Ō &ŸŌ+ ¤ )( Č(¢¤ !°Ō#ę&Ÿ”Ō+°Ō )(£"(¢£” "¤ ‹’#ē ŽŠ¤ – ’%Ž„āÄē˜Ä„”„ߒ ƒj—Ōń”–bBIˆ‰×x¤ y¤!¤ xÖ‚ĢŠx ē ß"zŚŌЉ’ }Ō‰’ ƒj— ē߉’ ē ß"瀒#£ÄŠ8 ē ß!zŚŌăj— ē ߊė!ē#Ċ ē ß }Ō ƒj— ēß!ē#Ċƒkēxē€UĒĤ–l‰ē¤ ē$ŲÉŌ ɒ#’–0 I0 ¤+,¢¤//±”Ō¤‹—/ˆŠڟŌ ¤‹†ˆ/×x¤/°ŌA'ē#ß, ±Ō(‰°Ō ¤ ¤Š‰£¦ˆ‰-,§Č,¢¤ ŠÓ'ēÄ'ē#Ž'ē!Ž‹7*Ÿ¤*Ÿ¤#$ ¤'ēß, ±'|Ÿ”Õ/’ / °ŌR'y¤ (¤ 'ē ß)zǤ&ڟ&ڟ Ō ƒj—'ē ß&ڟ'}Ÿ”ŌŲ)瀒-,§£Ä,¢¤ , °'| ŌĮƒj—‹¦%Տ-,§¤'~Ō'ēĀ!"¤ ¤!(²Ō € !¢¤ŠšŠf"ƒƒ7ŚŌZ"փ9ŠR#Ō'ēĊŠC/°Ō.‰ē¤ (ēÉ±Ō (ēɐŠ(ɐ(ēɐŠ Š $Ō ŠŠ"Š-,§,¢¤ , °'| ÕZ’'ē ß/’ ƒj—'ēŽ–’#ˆŠڟŌ ¤‹øˆ#×x¤¤ ēß ēÄ ēÄ ę Ք#PŚŌ? ē ęā¼ ęā¼Ū ęā¼Ū ęā¼Ū ęā¼Ū ęā¼ŪĒŽ ē ēŠ ęā¼ŪĒŽŠ ē ęā¼ ęā¼ŪĒŽ ēĒŽ ēÄ ē ęÄ ēÄ ē#ß ē%Ä ē&Ä ē'Ä#°Ō¦ ē#Ž ēŽ– –CONSOLESYSTERMREMOUT1REMIN1REMOUT2REMIN2REMOUT3REMIN3REMOUT4REMIN4PRINTERFASTCONKEYBUFRREMOUTREMIN*7CO[gs‹—£Æ¶ %ˆŠŚÕž$¤¤%Ō ˆ%×xę%Ċ%°Ō ‰£ÄŠ Ä ē %°Ä ē€ Ä ēÄ%Ö„æ‹ø ē ‚„„”‹« ē ‚„ˆ”‹ž ē ‚„Œ”‹‘ ē ‚„”‹„ ē ‚„””Šx ē ‚„˜”Šl ē ‚„œ”Š` ē ‚„ ”ŠT ē ‚„¤”ŠH ē ‚„Ø”Š< ē ‚„¬”Š0 ē ‚„°”Š$ ē ‚„“”Š ē ‚„ø”Š ē ‚„¼”ŠŠ ¤– jN „&Ä%օ\Š!x¶ŌŠ !z¶ŌŠƒk||ŚŌƒkēxēĒċF'Ō ˆ*×€9” Š ˆ*× ” ˆˆŠ*ā¼ŪĒŽˆ*×x¤"ē 'Ä"ē&Ä"%Ä"xօaŠ"y€’€”ŻĒÄ"y瀒ŻĒĊ"ēāÄē˜Ä"ēÄ*’ "ēāÄē˜Ä"ē ("ē ƒ…d—"ę Õ­ˆ*¢×ˆ*×xĈˆŠ*¢ā¼ŪĒŽ"ē€Q€@£Ä"ē€S€@£Ä"ē€F€@£Ä"ē€D€@£Ä"ē€@€@£Ä"ē€X€@£Ä"ē€P€@£Ä"ē āÄē˜Ä"ē)"ē ƒ…d—"ē!āÄē˜Ä"ē#āÄē˜Ä"ēĈ€K€Ü„”Šœ„*’ *’ *’¤–  ˆPĒŽü€Ą€Ä ž€Č€Ģ¤ž€Š€ŌØž€0€4ø’ €€€€¤’ˆ ׈×xĈ׈×xÄˆŠŚŌ/ˆˆŠƒ†(ŪĒŽˆ×ˆ×xĈ׈ ×xĄ€ €Ņ„”Šœ„’– –& Ō’Š–g'Ņø mŻr‹Ō‚A+Ž€0CLOCKDRI,%ē%ēÉŹ%ēʤ%¤„Ž–°'Ž„„ƒ—‰¤„߃ēxē€FĒĈß$ē$ę¢Ä$ę°Ō $ē$ę¢Ä„‰Ä ˜±Ō* ē ę£Ä ę²Ÿ¤!ŸŌ  ę¤ˆ Ä ˜°¤!Ō߈ŽŌ–”– ‰ēĉēĈāÄē˜Ä˜¦ƒēxē€tăēx×€aăēx×€QĄ€ €Ć„”Šœ„’ –É,³Õ „’’Ä"ē˜Ä"ē,ʤ"ē"ēÉŹ"ē€žŹˆ߄‰Ä!˜°Ōˆ"ĊR!ę"ę³ŸŌ"ē"ę!ę£Ä!¤!ę¤!˜°Ō ē"Ċ$!ē!ę"ę£Ä"ē!ʤ ˜±Ō ē"Ċˆ"Ä!˜°Ō®ˆŽ„āÄē˜Ä„ß)³Ō ‰ē+*”–Ü&%‰ē”– ā–č–CLOCK6„ž’Ä%¤ ×x¤!"x"x×x¢Ä!ē‰ęÄ!ē‰ęÄ!ēÄ!ē ‚€õ”!ē Ė<–J Ō’Š–łóšēˆ\ € łFLOPPYDRD„$Å„€ŠŹ‰¤!¤"„Å!ēĒÄ!ēǁ"xܶŸŌą–n#ŚŌ ¤Š#ŚŌ¤Š#ŚŌ¤Š¤–²'#Ź'’ ‰¤ ¤!xڟŌ%'&Ź ē$xÄ ē%Ä!'Å€!xܶŸŌó$ yĖę„'ńʄ %¢&’ ‰xĒ’ ¤ ±Ō&Ä ¤ –¶€"¤ˆ פ$Ä$ēÄ$ēĈ פ$€4Ä$ēÄ$ēĤ¤ $²Ō&ˆ פ Ō%ēĊ%ēÄ%%yÄ ¢¤ŠÕ¤¤¤"$²ŌKˆ"פ%ē¤%ēÄ%ēÄ%ēÄ%įÄ%ē#ÉÄ&Ź& Ź&#ÉŹ&!Ź!Œ¤"¢¤аˆ4üĈāÄē˜Ä–žˆ%פ$¤¤!Ä!ēˆ ēÉ×xÄ!ēˆ y×xÄ!ē€MÄ!ēÄ!ē Ä!ē %Ė1ˆß#²ŸŌ ¤Šˆ#פ ē ˆ y×y’ ¤ˆŽ–8–>–ˆ(¤„)„É×Ä'¢¤„ɤ¤ $²Ō"#¤%ɤ%%ÉŹ%!Ź#¢¤ ¢¤ŠŁ– Ą#ŚŌ ¤Š'#ŚŌ¤Š€8#ܶŸ‰}ڟ Ō¤Š¤–mˆ‰×¤${‰Ÿ”¤ˆ $y×x¤(‰Ÿ”Ō'Ō‰"£Œ"¢¦Š ‰"£"¢¦‰"¦‰"¤#Ō Œ" Œ"¢‰£Œ¢"¤ ¢¦ ¦#Ō ˆ'×x¦Š‰"Œ‰Œ¢¤!¢‰£ˆ'×xŒ¦– Š# ³ŸŌ€0#¢¤Š€A#¢ £¤–xxĒ$¤ˆ‚Ęˆ”„ɍȈ‚Ēˆ”„ɏȖKxxFlop_xx [xx] xx Fc-xx Fs-xx T-xx S-xx Dc-xx Ds-xx C- RDTCDRIVE‚„Ĥ‰¤'+Ź'Ź' *Ź„)Ä(¤ „É¢¤„„ÉŹ$ē„ÉŹ$ēŹ"'Å$ēŹ$ēŹ„Ź$ē„Å$ēÉŌų– Ī‰ēŹ„Ź„€2ʄʄʄ€™Ź„Ź„€™Ź„ Ź „„’ –Tc€€¤ ‰ÉŌy‰€“„„’ „ÉÖhœŠ_ ¤ ŠZ„ɰԤ Š<„É °Ō0€#¤ ˆ€„„ ÉŹˆ€„„ÉŹˆ€„ „ÉŹ(‰€„ÄŠ¤ ЄɰԤ Š’ – 3ᦀ‰‰€‰¢¦€‰ˆ‰€‰×y‰€°¦€Š‰€Š‰€‰‰° ŌŌ‰€ŠÕЉ€‰€†£€ Œ‰€£¦€…‰€…³ŸŌ¦€…‰€‰€†±Ō#‰€‘‰€…£¦€‘‰€…Œ‰€’¢¦€’¦€‰€‰€‘¢€ ²ŸŌ € ‰€£¦€‘ˆ‰€‰×x¦€†‰€‡‰€…£¦€‡Š€$¦€ˆ–MŽ ¤€ˆ‰Õ‰¤€Œ„€ƒŹ„€ƒʇ€‘¤€‡‡€¤€†¤€‹¤€ˆ„€ƒ‡€‘Ź„€‚‡€Ź‡€†¤€„„€‚ „€„ÉŹ„€‚„€„ÉŹ„€„€„ ÉŹ‡€•‡€“‡€”‡€’„€’ ‡€ŒēÉŌ „€ ¤€ˆ‡€ˆ€#°Ō,‡€‹ŸŌ„‡€“£Œ’ ¤€ˆ‡€ˆ°¤€‹‡€‹Ō Š1‡€ˆ°Ō*‡€‡‡€‘£¤€‡‡€‘Œ‡€’¢¤€’‡€¢¤€†‡€‡¤€‘¤€‡€‡°‡€ˆ±‡€ˆ€#±” Õ!’‡€ˆ¤€––€•FUĄ„€Š‡€Å‡€‘Ō¤‹“‡€”‰²„€ŠÉŚ Ō}ˆ‡€”פ€‹¤¤„€ŠÉց؊_‡€¤„ É°Ō „ ɤŠ „ É¢¤‡€‹z$£‡€“³ŸŌ¤Š‡€‹y¤„€Š‡€‹xʊ‡€°Ō¤€Š ‡€“¢£¤€“ŠŠ ¤‡€Ž °Ō‡€¢£¤Š ‡€¤‡€“Œ¤ ‡€“¢¤ˆß%°#²Ÿ”Ō‡€Ž‡€’„€Šɇ€‘#"!’ ¤%°‡€Ž°”‡€±”ŌF‡€Ž„ „€ŠÉ"#€ ¢!"#¢€ ¢’ ¤‡€‘#Œ¢¤€‘„ ‡€’‡€‘#Œ¢‡€”ˆŽ%¤€•–€”’’’’U„„Ä!‡‚£Œ’ °Ōi"ƒ‚bŚŌ`"¤‚¤ ‡‚²ŌR„ × ¤‚ˆ‰×¤‚‡‚ēÉŌ.‡‚‡‚ć‚燂xć‚燂ēÉĉ±Ō‰¢¦ ¢¤Ч–‚‰¦‰¤¤ !²Ō ‰±Ō  ¢¤Šź‰£¦–ʁˆ’¦ˆāÄē˜Ä€"¤ ɦ‰ēTUĉ{TU°¦‰Ō’ ’–Š–å#‰²Ō¤Š ¤–1$¤ˆ%פ%‰²Ō0¤„’ ¤–ō „*Å/‰²„ÉŚ ÕĄˆ/פ¤¤„ÉցŠV+°Ō¤ ŠJˆ6„É×x£¤Š9+¤„ É°Ō „ ɤŠ „ É¢¤&z#£.³ŸŌ¤Š &y¤„&xʊ.Ō7+²Ÿ+³Ÿ”Ō+¤Š¤)-„É,!."’ ¤,!¢¤ +!£¤ .¢¤ °Ō)-„É,+."’ ¤Š ¤ ¤–ᔄ‘„•Å„„ Ĉ6‡‘פŽ‰¤‡¤‡ē¤’‡’ ÉÕ²€…‡‘!„’ °ÕŸ‡’ ʇŽ‡ēÉ恒 ʇŽē‡ÉĀS!‡‘‡Žx£’ °Ō`*¤“¤ ‡“²ŌR„ × ¤”ˆ‰×¤•‡”ēÉŌ.‡•‡‘恕燁”x恕燁”ēÉĉ±Ō‰¢¦ ¢¤Ч–•¦‰¤¤ !³Ō ‰±Ō  £¤Šź‰£¦–: ’¦ˆāÄē˜Ä€"¤ ɦ’ –a ¤ ¤ +²Ō€ „„’ ¤ ¢¤Šå– w#‰²Ō¤Š ¤–É$¤ˆ%פ%‰²Ō6¤ Ä ēÄ ēˆ6!x×xÄ ē!z¢ zÄ ēÄ ē Ä ē !xĊ ¤–Š–ü$¤ˆß)('&%„€R’ ¤ „ɰԒ ˆŽ– $¤ˆß)('&%„€S’ ¤ ˆŽ– - Ō’Š’–|ó Ē>g3j€ €“SYSDRIVE #Ä%āÄē˜Ä%$”–1‰ē€UĒĖn$ވāÄē˜Ä€’¤¤ !²Ō €"±Ōˆ ” ¢¤ŠēˆߒŌö”–Ā€"¤‰|ŚŌ!QĊ!Ä!ē@į!x£Ä!ēž’Ä!灒’Ä„ż’Ä’’ōŃ!ēāż’ іŽ‰¤ zŚŌŠ÷ 瀒#£Ä–‰¤ zŚŌŠ÷€’ {€’”£¦‰€a³Ō ‰€ £¦‰’–Y$¤ˆ„ É˧’ˆ„É˧’ˆ„É˧’ˆ„É˧’–w‰’ €/’‰x’ € ’–椄 „ÉĖŹ„„ÉĖŹ„„ÉĖŹ‰€9²Ō„‰€0£ĖŹŠ„‰€A£ ¢ĖŹ’ ‰ˆ ŠڟԔ ¤–0123456789ABCDEF’~Ļ„‚€óÅ„ ƒ€ūĒŽ¤  €%¤¤ „ ŠŚŌ ¤¤ €H°Ō’‹‡ €P°Ō‹~ °Ō "Ō#!ċl €/°Ō"Ō!¤#x € ‹­’ €@°Ō"Ō!¤Š#x¤   ‹’ °Ō"Ō#!Ä#¢¤  ‹x’ €^°Ō"Ō#!Ä#£¤   ‹\’€?ÕJ’–‰|€@ÜǤ‰ēĒĉxǤ‰!ŻĒЉ!Ēĉē ĒĖM Ō0ˆ üĈüĈ€ €żˆ”Šœˆ’‰ēĒĊ–¾ÆŒqc;jŒ€ bRX02DRIV`‰%²”ŌDˆ%פ$¤¤!Ä!ēˆ É×xŒÄ!ēˆ ×xÄ!ē€MÄ!ēÄ!ē Ä!ē %Ċ ¤–«#²‰”Ō9ˆ#פ ¤ˆß!ʉ ʼnÉŌų‰yŚŌ¤Š ¤ˆފ ¤–²–ø–ˆ<’ĉ ɦ‰Õ¹ˆāÄē˜Ä€"¤ˆ×Ĉ×€4Ĥ¤ #²Ō&ˆ פ Ō$ēĊ$ēÄ$$yÄ ¢¤ŠÕ¤¤!#²ŌOˆ!פ$¤$ēÄ$ēÄ$ēÄ$ē"ÉÄ%Ź%!Ź%Ź%"ÉŹ% Ź% Ź%Ź!¢¤Ь‰ʉÉŌų–'¤#¤#y‰ Ÿ”¤ˆ#×x¤&‰ Ÿ”Ō $ÉŌ#ē#|!£!¢ÄŠ #ē#|!£Œ!¢Ä#ē#|!Ä#}€L²ŸŌ#ē€L¢Ä#|!¤"Ō Œ! Œ!¢#}£Œ¢!¤#ē ¢Ä$ Ź–X„(Ä"'¢¤&¤¤ #²Ō""¤$ɤ$$ÉŹ$!Ź"¢¤ ¢¤ŠŁ– t# ³ŸŌ€0#¢¤Š€A#¢ £¤–xx±$¤ˆ‚;ˆ”„ɍȈ‚<ˆ”„ɏȖExxFlop_xx [xx] xx C-xxxx E-xxxx EC-xx CT-xx DT-xx DS-xx LT-xx Vs-xxxxž*¦„‚Z€P”„ ȄȈɐ‰‰„*ˆÅ„*ɐ„*ɐ„* ‰ ĒŹ„*ɐ„*ɐˆɐˆˆɧˆɐˆɐ‰‰‰„„§”–*#)#„ ‡Å‰¤‡¤„‰Å‡yڤ„„Ą  „ÉŹ„„ÉŹ„Ź„ ʇ„ ŇɇÉ Ōó‡ē ćÉŌł€€¤„ÉÖŠŠ."ԤР¤Š!¤Š ¤Š¤Š¤Š €€¤Š’’¤Š!¤!ā¼ ā¼Ūڟ+”Ԑ –„„Ҥ‰¤‡¤‡’ „‡Å„ʇŹ„‡Ä ‡¢¤‡±ÕA¤¤&¢¤‡‡Å‡ɇÉ Ōó‡ē‡~Ą ‡Å‡ē‡|¢Ä‡ē‡}ć’ ‡ÉŌł‡ɟդˆ‡Éפ‡‡x²ŸŌ‡x¤Š#‡³ŸŌ‡x¤Š‰ ‡°”Ō‡x¤Š‡¤„ „ÉŹ‡„ŇɇÉ Ōó‡ē#Ą„ÉŹ„ʇē"Ą„Å #¢¤‡¤‡#£¤‡ÉŌł‡ÉŌ $¤„„ŇÉŌ3‡„ Ň&’ ¤%’’°Ō‡‡ÉŸŹ„‡Éʇ’ Š‹ &°ÕČž¤‹øž%¤‡¤–›„„Ҥ‰¤‡¤‡’ „‡Å„ʇŹ„‡Ä ‡¢¤‡±Õ9¤¤&¢¤ˆ‡Éפ‡‡x²ŸŌ‡x¤Š#‡³ŸŌ‡x¤Š‰ ‡°”Ō‡x¤Š‡¤„ „ÉŹ‡„ŇɇÉ Ōó‡ē#Ą„ÉŹ„ʇē"ćÉŌł‡ɟŌU‡‡Å‡ɇÉ Ōó‡ē‡~Ą„Å #¢¤‡ē‡}Ą ‡Å‡¤‡#£¤‡ē‡|¢Ä‡’ ‡ÉŌł‡ÉŌ<$¤„„Ň„ Ň&’ ¤%’’°Ō‡‡ÉŸŹ„‡Éʇ’ Š‹ &°ÕŠž¤‹Ąž%¤‡¤–9¤*¤%¤)Ō%ē.Ċ%ēˆ%×x.ˆ&É×yŒ¢Ä,¤-¤-Ō¤ŠI(Ō„ɄÉ+*¤Š"*{Ō +„É„ɐ „ɄÉ+*¤*{Ō +„Ʉɐ Ō ¤„”–e(²‰”Ō'%$&ˆ(×#²Ÿ’ ¤ Š ¤ – ‘(²‰”Ō'%$&ˆ(×#²Ÿ’ ¤ Š ¤ –   Ō’Š–J.>~ķÉŅ[X25^K€’’6DTCDRIVE€S. ŪĒŽ"¢¤ŠŚ„§°Ō¤F‹Ą„§¤>¤"‡>²Õ°„"ʔ§€?°Ō‡Cċ”„"ʔ§€-°Ō¤‹„"ʔ§€a³Ō„"ʔ„"ʔ§€a£€A¢Č„"ʔ§„ŠŚŌC#Ō ‡Eˆ§„"ʔ§ˆʔ” Ċ‡Dˆ§„"ʔ§ˆʔ” Ċ ‚‹€(’¤F"¢¤‹I’#„‚’”Ÿ”Ō‡D‡ExĊ‚“’‡F¤Q–PFatal I/O error on  file\a„-„bÅ„‡.€P”‡-ŸŌ,¤/„/‚‚”„/„€c”„/‚‚‰€h”„/’€€”–cg ŌŠ–ž§„X°€   Type $SC_WD_Sucks_File= File; $ $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, 7SC_Hazeltine1500); 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, 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  Ä ēÄ ē€ Ä ē!z¢ zÄ ēÄ ē Ä ē !xĊ ¤–8–[$¤)('&%„ ’¤ „ɰԒ– s$¤)('&%„’¤ – ‚ Ō’Š–e­®“nCēõź0Ē<€’’CAPPPROCS7APPPROCS€½SCCNTRL SCCNTRL  SCCNTRL €CGOTOXYU NUMCON NUMCON €"įSYSINFO %SYSINFO €(fFILEINFO)FILEINFO€.³DIRINFO / DIRINFO €7é COMMANDIACOMMANDI€BI   "Uses SC_Cntrl;  "Const Command_Row = 0; {Prompts and errors on this row} (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 Prompt (Line : SC_Long_String; 3Column : Integer; 3Match_Chars : SC_CHSet; 3Echo : Boolean) : Char; " {Places the prompt Line on the top line of the Command_Port at Column. %If Match_Chars <> [], Prompt waits around for a response in the set. %If Echo, the response is echoed back to the screen.} $ " "Procedure Error (S : String; 3Column : 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); " {Displays the string S on the Port at (Column, Row).} $ " "Procedure Get_String (Var Port : SC_Port;  and move back %one. moves forward one. moves to beginning of %field. moves to end of field. accepts up to %cursor. accepts all.} " " "Function Get_Entry_Range (Var First, @Last : Integer; ¤"‡>²Ō „„Šˆ"¢Ę”§ā¼/ $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 BSCCNTRL &%x$³ŸŌ%$Ċ %x#²ŸŌ%#Ė€%ę ¤ ¤!ēF¤"ē$ĖŲÉŌ !ęT" ”!ęT"ē$Ė ”!ē@§²ŸŌ!ęT!ē@ʔ!ē@§”–©%¤!!y°!~!x°”%$’”¤ Ō%$’ Ÿ¤–Č$%±¤ Ō '’'&’'’ ¤ –ņ‰¤ ēH#Ė%Č ēG#ĖŲˆ($ĖŲÉŹ–-‰Ś¤‰¤!%€’ĖŲ#Ź!ēO# Ė%Č!ēN# ĖŲˆ3$ ĖŲÉŹ–m\„1‡^€P”„„-’’”„„1”‡]”"Ą„)”„)Ė×x¤_„”–^¾Ł„\‡Ž€P”„…‡Ż€P”„®‡Ü€P”„4„‚`’’”¤ß„4„\””"°Õ’„4„’’”°Õė„€Z” ‡Ś¤×"¤Ų€’¤Ł¤ ‡Ł²Ō‡Ų €’ĖŲ Ź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; 7Break_Char : Char) : Char; ( #{This function displays the prompt Line in the text port described 0 * ¢¢)²Ÿ Ō„„ŠĢ)”$ĆĄŽŠ* ¢¢³Ō„„ŠĢ* ¢¢”$ĆĄŽ„Š”$ĻŌ ¢¤„„Š”$Ǝ)¢¤¤"%²Ō'„о¤("!€0¢Č„„Š!ĢĮ”$ĀŽ"¢¤ŠŌ*° )³ ŌZ((§Č(€.Č)¢¤ ±Ō?)¢¤()¢€EČ ³ŸŌ)¢¤()¢€-Č į¤ ²ŸŌ(" €0¢Č"¢¤(" €0¢Č("Ȋc ³Ō+(( ¢”( ¢€.Č()¢*)£ ££€ ” (*¢ ¢ČŠ3(*¢Č(( £)”(€0Č(€.Č( ᣀ0” ()¢ £*)£€ ” – 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 $#³ŸŌ$¤Š#¤–4$#²ŸŌ$¤Š#¤–X„Š„ŠĻŸŌ „„ŠŽŠ„„ŠŽ–|„Š„ŠĪŸŌ „„ŠŽŠ„„ŠŽ–‹„%$“Ä ¤–›„%$µÄ ¤–§ ŌŠ–ČĄ®œ’ˆµĄvŠ€   "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 ¢¤ŠåˆȇŲē@ ” ‡Ųē@„&ÉȇŲē@§ ²ŸŌ‡Ųē@ ȇŲēF„#ÉĄ#ɐ„$ɐ„$ɐ„'ɐ„'ɐ„%ɐ„&ɐ„%ɐ‡ŲēHĖ Č‡ŲēGĖŲʇŲēM„1ÉĄ/É „-ɐ„1É „0É „0É „+ɐ„+ɐ„,ɐ„,ɐ‡ŲēXāÄē˜Ä‡ŲēVāÄē˜Ä‡ŲēU„…„Ä!°Ō‡ŲēT„®„ć×ē‡)£Ä‡×‡*£Ä‡×ē „!Éć×ē„!Éć×ēć×ēć×燁×yć×燁×xć×ēć×ēć×ē "ć×ē ‡Ūć×ē ć×ē Ä!°Ō ‡Ś’ ¤ß„4”–ŽŚ$#²ŸŌ#¤Š$¤–@„‡Å‡„Ňē ćē ćēćēć燇yć燇xć燇y‡}£ć燇x‡|£Ė_$ę °Ō $ę ¤ ēVß$ē $ę ¢Ä–$ę °Ō $ę ¤ ēVŽ$ē $ę £Ä–Ÿ$ę °Ō $ę ¤ ēXß$ē $ę ¢Ä–æ$ę °Ō $ę ¤ ēXŽ$ē $ę £Ä–×%ę ¤ ēH$˧±¤–ō#¤# {’Ō ē {£Ä–#¤# { ~’Ō ē {¢Ä–.#¤# z’Ō ē z£Ä–K#¤# z ’Ō ē z¢Ä–†#’#¤ }° |°”#’”Ō#’ ēÄ ēĊ#’#’–ć„Ė€’ĖȄĖ&€’ĖȄˉ}‰¢€ ¢€’ĖȄˉ|‰¢€ ¢€’Ėȉę ¤"ęT„ ”–F%’%¤„ ~’„ ’ ęŌ& ę ւóŠ%|$¢%}#¢”Š€=Š €YŠŠ ē$Ä ē#Ä%’–}$’$¤ |° ~ x°”$’”Ō $#’$’Š$#’$’–&’&¤!ęÕ&%$’!~!|¢!x°&’”Ō&’Ša&ę ¤„!~’„!’ˆĖ!~%£¢€ ¢€’ĖČ$!}¢!y°%!|¢!x°”ŌˆĖ!~%£€ ¢€’ĖČ ęTˆ”&%$’&’–4#’#’ #’Ō#’#’–~&’&%$’&’Ō.&¤!ęŌ&&%$’$¢!¤¤ "²Ō & ’ ¢¤Šļ&%$’&’–•%ę ¤ ēO$ ˧±¤– '’&€ Ä'ę ¤!¤#ēM¤#ęU& ”&x$x°$x±”Ō¤#ęU& ”Ф#&x€’ĖŲɤ ±Ō""Ÿ$ē ĖŲÉ”"$ē  ĖŲɟ” Ō ¤"Ō&&x€€¢Ä ¤ '’–<$#¢¤$‰³Ō‰¢¤$¤–L$„ ”–:]€. „€„Å„ ‡€¦€’”‡€§ę ¤ ‡€§¤€*¤€Ž¤ ¤ ‚„'„ ”¤%„ §¢%£€[„ %” ¢¤‚„(„ „€©$„ §$£¢”„€©”¤%¢¤‡€ę ԤЇ€~£%"¢‡€£¢£¤‡€§’‡€§‡€£‡€¢’‡€ęŸŌ‡€ŽęT  '¤#²Ō¤Šm$'£¤&€ „ '” ¤ &(£¤'(¢¤&#²Ÿ¤ Ō#£#ᇀ„ '#¢£” ¢¤&²Ō%'$'£‡€„ '” ¢¤!'°Ō¤Šį¤&³Ō“‡€ŽęT„ %”%±Ō ‡€ŽęT€  ‡€ŽęT„ '&”'&¢$³Ÿ&±”Ō ‡€ŽęT€? ‡€ŽęT„ $"”'&¤‡€„³Ō ‡€§‡€„‡€¤’‡€§’‡€‘¶ŸŌ&‡€§„ ’¤ )‡€‘Ś) ±+„€’Šƒ„)ŪŚ ”ŌŚ+€?±) ± Õ½ž+¤€Ø‡€Ø¤Ø–§A ŌŠ– Åå™{fWB.ĶĮœŒA%śØ™‹|nbRB2"ļ¼€   "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_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 %and Num is undefined.} " " "Procedure N_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 N_Min_I (X, Y : Integer) : Integer; " ${Returns the smaller of the two integers X and Y.} " " "Function N_Max_I (X, Y : Integer) : Integer; " ${Returns the larger of the two integers X and Y.} " " "Function N_Min_R (X, Y : Real) : Real;  ${Returns the smaller of the two reals X and Y.}   "Function N_Max_R (X, Y : Real) : Real; " ${Returns the larger of the two reals 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.} "   {*************************************************************************} $  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¤`–_-32768f/¤*‡1³ŸŌ%‡0‡*€-ȇ*¢¤*‡1į¤1‡1³ŸŌ ‡0‚q€P”‹I¤+‡+¢¤+„‡+‡1 €0¢Č‡1 ¤1‡1°Ōā‡+¤,‡0‡*„‡,§Č‡*¢¤*‡,£¤,‡,°Ōä‡0‡*£Č–1Y*³ŸŌ¤ „ ŠĢϟŌ„ „ ŠäŽ(€-Ȋ(€ Ȥ„„ ŠŽ„ Š”$ĻŌ%„Š”$ĻŌ ¢¤„„ Š ”$ƎŠŻŠ,„ ŠĢ͟Ō" £¤„„ Š į”$ĀŽ„Š”$ĻŌŽ*°1 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 : D_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 : D_PatRecP; { name pattern info } ED_Date : D_DateRec; { File date } ECase D_NameType of { # of files on vol } GD_Vol : (D_NumFiles : 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;  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 eSYSINFO #ˆ€P”–)#ˆ€P”–9#ˆ€P”–I#ˆ&€P”–V‰z¤–e#ˆ@€P”–u#ˆ<€P”–Ž,„‡-€P”ˆ<„”–-š#ˆDÅ–¦ˆD#Å–± ŌŠ–OI=5-'U€    "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_File_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.}   "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 ²FILEINFOA,‡/„€R”„€(Ė×xŌ¤0‡-„‡.€(Ė×xĊ¤0‡-Ė/…,‡0„€R”„€(Ė×xŌ¤1„‡/€(Ėׇ-‡.”Š ¤1‡-‚"€P”–0•$ #’ ¤–„$#’ ¤–¶$#’ ¤–Ę$#’ ¤–Õ$#’ ¤– ,‡.„€R”„€(Ė×xŌ‡-„€(Ė×xĤ/Ї-Ĥ/–.B-‡/„€R”„€(Ė×xŌ„€(Ėׇ.”¤0Ф0–/M ŌŠ–$ˆme]UME£€  " "Type $D_DateRec = Packed Record 2Month : 0..12; 2Day : 0..31; 2Year : 0..100; 0End; $ $D_PatRecP = ^D_PatRec; $D_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 : D_PatRecP; { next pattern } /End; { D_PatRec }  $D_NameType = (D_Vol, D_Code, D_Text, D_2 ”‡,ē‰ć,ē˜Ä‡,牀æ‰×|ć,ŌD‡,ē ‡1ć,ē‡0‡1£Ä‡,ē ‡4ć4±Ō&‡,ē „”‡,ē‡5ć,ē„+Ň4°Ō‡,ē‡/ĉ„x˜°Ō‰„ Ċ‰ē Ä ¦–5^ ¤*) Õ•"¤ˆ^‰„€ˆ5„‰„‚Ē„„’¤*ŌC$"£¤¤#&²Ō6ˆ^#× yˆ^#¢× x±Ō˜‚†Dˆ ˆ^#× yˆ^#¢× x’#¢¤ŠÅ%)”Ōˆ^"× ¤! &ē&ē &x&y’"ˆ^× ę°‰Ÿ Õk’*Ō-ˆ^× ¤ˆ^&ę× y&±Ō˜‚†Eˆ ˆ^&ę× y&’– f„„T‡„ƒ€P”„ ” ‡„˜Ä¤„„T„ „5„ „’¤%°Õ¶„ ’¤„5’¤„5’¤„^„ ‡„€„„’¤%°Ōt‡„‚¶Ō¤Šg¤‡„‚Ś#”Ō;‰€æ&×|Ō#„^× ¤„}˜‚†°‡„}ē ‡„}x‡„}‡„}ꐊ˜‚†±„ ’‰€æ&×|Ō‡„‚Ś#”‡„‚€!Żø&‰ę °!Ÿ %ڟ Õb’‡„x˜±Ō¤Š%°Ō¤%¤„„–„ƒ %× ē%× ę£Ä$%× ę¤¤ !²Ō% × % ¢× Å ¢¤Šč–×€„„U‡„‚€P”„” ¤¤ ‡„¶Ō¤ ‹„„U„5„ „ „’¤ )°Õš„5’¤„ ’¤¤’ „_„5„„^’¤ )°Õ¤ ‰€æ ×|„ §²Ÿ”‡„€!Żø”Ō\„_„ „‡„Ē„ „^’Ō¤ „_$’$£¤$„_× ę°'Ÿ ŌĶ)°Ō$ „_ģ””"¤"±Ō " °Ō¤ Ф ‡„Ś„ ’”Ō¤ ‰€æ ׂ‡Q”’ ()° ¤ ‰ę °&Ÿ )ڟ Õ*’()°”Ō¤ )¤„ƒ–„‚*-„‡/€P”‡.Ĥ„§²ŸŌ0‡.xˆ€­× ę³Ÿ Ÿ”Ō‡.‡.x¢Ä„ˆ€­‡.x× ē”¤ŠŠ ¤0–/•Z„‡^€P”„/‡]€P”¤„„’ŌC¤„/„’Ō'‡\Ōˆ€­$× ē„/”#$±Ōˆ€­#’Š¤Šˆ€­$× ē„/” ¤_–^ń÷„„£‡„ś€P”„„̇„ł€P”„€«” ¤€Ø¤€§„„£„,„~„„€Ŗ’¤ °Ō„„Ģ„„U„„€Ŗ’¤ °Õü’ „€­„,„€§„€¬’¤ °Õ݉€æ‡€§×¤„õ„~§°Ōl‡€Ø¢¤€Ø‰€æ‡€Ø×„”Ō¤‡€Ø‰ę ° ° ŌÕ °Ō‡„ųŌ¤‰€æ‡€Ø×‚ˆL” ±Ō‡„õ„”‡„õ|Ō„€­× ē„”Š'„U§²Ō¤Š‡„õ|Ō„~„U‡„ų‡€§¤Š¤ °‡„õ|”Ō,‡€§„€­ģ””"¤€©‡€©±Ō‡€© °Ō¤Š¤’ ¤„ū–„śJ2„‡5€P”;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_Wild_Match(Wild, Comp : String; Var PPtr : D_PatRecP; TPInfo : 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) }  "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) } "  Procedure D_Init; "Procedure D_Lock; "Procedure D_Release; "{ Provide means to limit use of DirInfo routines to one task at a time " in multi-tasking environments } $ "  {*************************************************************************} "  Implementation č DIRINFO ˜¦¦–=„’’Ä‰ ±Ō ˆ€øß ¦‰¢¦–\‰£¦‰°Ō ˜¦ˆ€øŽ–„.„‡/€P”„§±Ō„„§§€=°¤0Ф0–/¾„” &x˜±Ō&x¤!ē%!{£Ä!$!y£Ä ¤!ē%Ä!ē$Ä ē&xÄ& Ėų-„‡/€P”¤ Ÿ‡.x‰'²”Ō„‡.x§€ ±¤ ŸŌ‡.‡.x¢ÄŠŪ ¤0–/€-„‡1€P”¤‡0‡0x¢Ä‡/„‡0’ŸÄ‡/xŸŌ;„‡0x§€\°Ō'¤‡0x¢‰'²Ō‡0‡0x¢Ä‡.„‡0x§ÄЇ/Ċ ‡.„‡0x§Ä‡/xŸŌ‡.xˆŠŚ Ÿ”Ō‡/ć0‡0x¢Ä–1@0 ?¤¤¤¤‡‡x¢Ä‡ˆ(‡ŸÄ‡xŸÕ!ˆ(‡x§ƒ€ĮڇŸ”Ō#ˆ(‡x§€~°¤ˆ(‡x§€\°¤‡‡x¢Ä‹ėˆ(‡x§ˆŠڇŸ”Ō‡ċʤˆ(‡x§¤‡‡x¢Ä‡ˆ(‡ŸÄ‡xŸŌHˆ(‡x§ƒ€ÉڟŌ‡Ċ2ˆ(‡x§€-°Ō ˆ(‡‡„Š"¤"!²ŸŌ‡ćˆ(‡ŸÄ‡xŸŌV‡Ō$‡Ō „€’¼ĒŽ„„Š€’¼"!¼ŻÜĒŽŠ‡Ō„ĒŽ„„Š"!¼ŪĒŽˆ(‡x§€}°¤‡‡x¢Ä¤¤‡‡x ÕĆž‡xŸŌB‡„ŠڟŌ‡Ċ1‡‡x¢Ä‡x‰'²‰}”Ōˆ(‡x§ˆŠŚŸŌ ‡‡x‡x’ –¦((x¢Ä(x‰'²ŸŌ '‰&¢ÄŠHˆ” $x¦'x¤(x &$’ ¢¤ ‰&²ŸŌ%Ä&xŸ%xŸ”Ōˆ”!$‰Ĉ” &x%x ŌĒ– 0h={9-‡ +Ĥ¤‰'²ŸÕ7‰}ˆ(-§ˆŠڟ”Ō*,- ,‰&²Ÿ¤$‰"Ÿ”ŸÕ±ˆ(-§¤$ŸŌˆQ,§¤ €\°#Ÿ”Ō ¤-¢¤‹‹$Ÿ !°”Ō#Ÿ!ƒŌڔԤР-¢¤,¢¤ Šc ˆŠڟŌ¤ŠS‰}Ō*,- ց܊C-¢¤,¢¤ -‰'²‰}”Ōˆ(-§ˆŠڟŌ*,- Š„„ „!*Š „„ +„*Ф"Ÿ#Ÿ”,‰&²Ÿ”-‰'²Ÿ”Ō+Ċ,‰&²Ÿ-‰'²Ÿ ‰"Ÿ”Ō¤"+x Õ’‰}*x˜±”Ō*x¤'ē‰&'{£¢Ä'‰''y£¢Ä–0 h C|„(‡€€€P”„Q‡€P”„ƒ‚ÅĒŽ„ƒ‚ĶĒŽ„%” ‡~˜Ä„( ¤"„(§¤'„Q§¤&„!‡~ ‡}‡~x˜±”Ō+‡~x|¤#‡~xē˜Ä‡#˜±Ō‡#|¤$‡#ē‡~xć~‡#ć$¤#Šā‡!ŸŌ ‡~˜Ä„%”!‡!¤€–€€™¤¤( §¤!ˆZŠŚŌ &&x Œ!€0£¢ÄФ ¢¤ '°"Ÿ ŌŌ °'°”Ō( £§€*°Ō&įĤ"¤ – [].TEXT.BACK.CODE‹Z„2„[Å„‡5€P”¤‚ƒN„”¤!²ŸŌ!£¤Š„§¤!²ŸŌ‡4„„7!”„7€P”„!”„§°Ō¤Š#‚ƒO„”¤ °¤$Ÿ ²Ÿ”Ō „ ‡3¤$ŸŌ¤$‡4§²Ÿ”ŌA„‡4„7‡4§£”„7€P”„‚ƒP”„‚ƒS” Ō‡2Ċ„‚ƒV”Ō‡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”¤¤ Ÿ!„§³Ÿ”Ō&!¢¤„!§€\°Ō!¢¤Š„!§ƒ„cŚŌ¤ŠĪ ¤0–/P .„‡/€P”¤¤ „§²!”Ō„ §€=°¤ ¢¤Šę!¤0–/’’’’’’’’’?Ć ¤%&ģ””"¤!±Ō! °Ō¤Š¤Š8&× ¤"ēɁŚ"ē§²”"ęƒ„©Ś”Ō‰€æ%×"ē”Š¤ ¤–# 0„‡5€P”¤„§²ŸÕ@„§€#°„§²Ÿ”Õ­¤„"§ˆ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× ę²Ÿ„§²Ÿ”Ōw‡1x‡4× ę³Ÿ Ÿ”Ōd‡1‡1x¢Ä‡4‡1x× ¤+‡+ē  ɀd°Ō‡/Ċ&‡+ēɰԇ/Ċ‡+ēɰԇ/Ċ‡/ć/x‡0ŚŌ„‡+ē‡.‡3’¤ЋР‡1‡4× ęÄ ¤5–4… .„‡3€P”„+‡2Å„” ¤,‡,‰ć,牀æ‰×3 f~PHONEBOO‰[„ ‚”„.‚”„‚”„‚ €(”„D‚ ”„O‚ ”„‚ ”„9‚ ”,¤[¤Z‡Z‡[²Ō†‡Z,Ė£×Y„ÅY‡Z¢¤ZŠą–[£†č”€O†č\ƒF—–†čč €O†č\ƒF—†čŚ €O†č\ƒF—†čĢ €O†č\ƒF—†č¾ €O†č\ƒF—†č° €O†č\ƒF—†č¢ †č\ƒF—–*system.miscinfoSYSTERM:CONSOLE:F!Oh shit a bad ERROR = Init_ScreenŠ‚€ƒ‚€Œ‚€‘†č\ƒ€–—¤ ԐŠ†ź{‚€˜”” †ź{”” ––)Command: E)dit, S)ort, P)rint, Q)uit [A0] ĘEs  y†č”ƒ€Ę—†č”‚€Čįįƒ€ŻĒĒ€,ƒ€å—¤ րēŠ„Š„Š „ЄЖ”¤† ,Ė£×Yē-§±Ō ¢¤Šå ¤–å6WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = RBook$ Reading From Disk Record Number = æ[†č”ƒR—‰‚T”” †ė؄”” †č”ƒp— ƒrŚŌ^¤†čö‚z”” †čö” ŸŌC†čö”” †!,Ė£×Y…čöÅY†č”ƒR—†ź{‚}”” †ź{!” ” !¢¤г†č”ƒp—–[>WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = Book" Writing to Disk Record Number = č†č”ƒR—‰‚į”” †ė؈”” †č”ƒp—‰ƒ‚ŚŌh†čö‚‚ ”” ,¤¤ !²ŌC…čö† ,Ė£×YÅY†čö”” †č”ƒR—†ź{‚‚ ”” †ź{ ” ” ¢¤Šø†čö”” †č”ƒp—– p First Name = ‚u Last Name = Address = City Name = State Name = Phone Number = Birthday = Any Notes ? = ⦦€(¦¦¦¦¦¦†č¢ƒ‚u—†č¢‚‚wˆc‰ƒ‚~—ˆˆc”ˆc‚‚€€P”†č¢‚‚ˆc‰ƒ‚~—ˆ6ˆc”ˆc‚‚ˆ€P”†č¢‚‚‰ˆc‰ƒ„/‡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 °”Ō¤ ¤„‚–„’ Ō’Š–ūī6G锯ä‘l$Z¢~aŅD0!S' NĻÖ³Ä € " $Procedure Chain (Prog_Name : String); $Procedure Exception (Kill_Chain : Boolean); $ "Implementation HCOMMANDIc,„‡-€P”ˆ€ŗß„§°Ō¦€½Š1‰€½‰ę±Ō%‰€¼‰€¾‰€½¢‰ę× „”‰€½¢¦€½ˆ€ŗŽ–-|#Ōˆ€ŗß¦€½ˆ€ŗŽ–‡ ŌŠ–4@€’’SPOOLUNINDSPOOLUNI€E¦PDQUNIT GPDQUNIT €H  "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‰Ō¤Š¤–Cˆ߉Ō¦ˆވāÄē˜ÄˆŽ–N¦–.textV „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’‹,’„Õóž”–#1:9 ŌC¦ ¦ˆāÄē˜ÄˆāÄē˜ÄˆāÄē˜ÄˆLX€@ˆM”ŠœˆM’¦Š‚gį’±ŌˆL€<”Šć–³Ł,$j€ " "Function PDQ_Serial_Number : Integer; "  Implementation PDQUNIT „ įxÄ ¤–' ŌŠ–€’’PHONEBOOŌlPHONEBOO€gAPPPROCS‚SCCNTRL 4 ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Function Get_Last_Entry : Integer;  Var "x : Integer; "  Begin "x := 1; "(*1 "writeln(Out_File,' The length of a record last name is ', 3Length(Alpha_Rec[x].Last)); "(*2*) "While Length(Alpha_Rec[x].Last) <> 0 Do (x := x + 1;  Get_Last_Entry := x;  End{Get_Last_Entry};   Procedure Edit_Proc;  Var "Index : integer; "ch : Char; "  Procedure Move_Proc(ch:char);  Procedure Print_Detail(x:integer);  Begin "With Alpha_Rec[x] Do 'Begin )Write(Out_File,First,Last); )writeln(Out_File,Address); )Writeln(Out_File,City,State); )Write(Out_File,Note,Phone); 'End{with};  End{Print_Detail};   Begin "If ch = '+' Then %Begin 'Index := Index + 1; 'If Index > Max_Entries Then *Index := MaxEntries; %End{Then} %Else 'Begin )Index := Index -1; )If Index < 1 Then ,Index := 1; 'End{Else}; "If (index-2) >= 1 Then %Begin 'Sc_Home(RecM2_Port); 'Print_Detail(Index - 2); %End{If} " Else 'Sc_Clr_Screen(RecM2_Port); "If (index - 1) >= 1 Then %Begin 'Sc_Home(RecM1_Port); 'Print_Detail(Index - 1); %End{Then} %Else 'Sc_Clr_Screen(RecM1_Port); "Sc_Home(Rec0_Port); "Print_Detail(Index); "If (index + 1) <= Max_Entries Then %Begin 'Sc_Home(RecP1_Port); 'Print_Detail(Index + 1); %End{Then} %Else 'Sc_Clr_Screen(RecP1_Port); "If (Index + 2) <= Max_Entries Then %Begin 'Sc_Home(RecP2_Port); 'Print_Detail(Index + 2); %End{Then} %Else 'Sc_Clr_Screen(RecP2_Port); !End{‚~—ˆ!ˆc€(”ˆc‚‚€P”†č¢‚‚‘ˆc‰ƒ‚~—ˆLˆc”ˆc‚‚˜€P”†č¢‚‚™ˆc‰ƒ‚~—ˆWˆc”ˆc‚‚ €P”†č¢‚‚”ˆc‰ƒ‚~—ˆˆc”ˆc‚‚©€P”†č¢‚‚Ŗˆc‰ƒ‚~—ˆ ˆc”ˆc‚‚°€P”†č¢‚‚±ˆc‰ƒ‚~—ˆAˆc”ˆc‚‚¹€P”–ü‹ †‘,Ė£×Y„ ÅY–€‹)Edit: A)dd, S)ave_File, G)et_File, Q)uit ‚ ‚ As  †č”ƒ€Ę—†č”‚ƒ€įįƒƒ•ǁǀ,ƒ€å—¤ փŠ Š  А ŠŠ ƒƒŅŚŌĄ–– ––CONSOLE:SYSTERM: –†ė؆ģŌ”†ź{†ė§ž’”†čö†ź"€Y”†ź{‚„ ”” †ė؂„”” ‘‘‘0քБР‘Š‘ Š‘Š0°Ōć†ėؔ†ź{”†čö”–»s‘Ū?TIŖ€$CURSOR $EQUAL $SYNTAX $TAG ė¬tO.£„£„d Program Phone_Book;   Uses Sc_Cntrl,App_Procs;   Const "First_Name_Length = 15; "Last_Name_Length = 20; "Address_Name_Length = 40; "City_Name_Length = 20; "State_Name_Lenght = 20; "Phone_Name_Length = 15; "Note_Name_Length = 20; "Bday_Name_Length = 15; "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 300; "  Type "Entry = Record ,Bday : String[Bday_Name_Length]; ,First : String[First_Name_Length]; ,Phone : String[Phone_Name_Length]; ,Address : String[Address_Name_Length]; ,Last : String[Last_Name_Length]; ,Note : String[Note_Name_Length]; ,City : String[City_Name_Length]; ,State : String[State_Name_Lenght]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Alpha_File = Array[1..Max_Entries] of Entry;   Var " "Command : Commands; "Alpha_Rec : Alpha_File; "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, "RecP2_Port,Detail_Port, "Commond_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Phone : File of Entry; " " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Vector;  Var "Temp : Entry; "x : Integer;   Begin "With Temp Do 'Begin )First := ''; )Last := ''; )Bday := ''; )Address := ''; )City := ''; )State := ''; )Phone := ''; )Note := ''; 'End{With}; "For x := 1 To Max_Entries Do $Alpha_Rec[x] := Temp;  End{Init_Vector};   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(Commond_Port,Columns,Rows,Width,Height,Orginal);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79;   Begin "Sc_New_Port(RecM2_Port,0,2,Width,Height,Orginal); "Sc_New_Port(RecM1_Port,0,7,Width,Height,Orginal); "Sc_New_Port(Rec0_Port,0,11,Width,Height,Orginal); "Sc_New_Port(RecP1_Port,0,15,Width,Height,Orginal); "Sc_New_Port(RecP2_Port,0,20,Width,Height,Orginal); "Sc_New_Port(Detail_Port,12,11,20,4,Orginal);  End{Init_Edit_Screen};   Begin{Init_Screen}  "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln(Out_File,'Oh shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin{Get_Command} "(*1 "writeln('into Get_command(Sc_Clr_Screen)'); "(*2*) "Sc_Clr_Screen(Commond_Port); "(*1 "writeln(out_file,'out of SC_Clr_Screen'); "(*2*) "ch := Sc_Prompt(Commond_Port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,17,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; 5  Program Phone_Book;   Uses Sc_Cntrl,App_Procs;   Const "First_Name_Length = 15; "Last_Name_Length = 20; "Address_Name_Length = 40; "City_Name_Length = 20; "State_Name_Lenght = 20; "Phone_Name_Length = 15; "Note_Name_Length = 20; "Bday_Name_Length = 15; "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 300; "  Type "Entry = Record ,Bday : String[Bday_Name_Length]; ,First : String[First_Name_Length]; ,Phone : String[Phone_Name_Length]; ,Address : String[Address_Name_Length]; ,Last : String[Last_Name_Length]; ,Note : String[Note_Name_Length]; ,City : String[City_Name_Length]; ,State : String[State_Name_Lenght]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Alpha_File = Array[1..Max_Entries] of Entry;   Var " "Command : Commands; "Alpha_Rec : Alpha_File; "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, Move_Proc};   Procedure Modify_Proc;  Begin  End{Modify_Proc};   Procedure Get_File_Proc;  Var "ch : Char; "x : Integer; "Temp_Rec : Entry; "  Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'x := 1; 'Reset(Phone,'Book'); 'While Not Eof(phone) Do -Begin /Get(Phone); /Alpha_Rec[x] := Phone^; /Sc_Goto_XY(commond_Port,0,23); /Write(Out_File,' Reading From Disk Record Number = ',x); /x := x + 1; -End{While}; %End{If};  Sc_Clr_Line(Commond_Port,23);  End{Get_File_Proc};   Procedure Save_File_Proc;  Var  x : Integer;   Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'Rewrite(phone,'Book'); 'For x := 1 To Max_Entries Do +Begin -Phone^ := Alpha_Rec[x]; -Put(phone); -Sc_Goto_XY(Commond_Port,0,23); -Write(Out_File,' Writing to Disk Record Number = ',x); +End{For}; 'Close(Phone,Lock); %End{If}; "Sc_Clr_Line(Commond_Port,23);  End{Save_Proc};   Procedure Add_Proc;  Var "First_Length, "Last_Length, "Address_Length, "City_Length, "State_Length, "Phone_Length, "Note_Length, "Bday_Length: Integer; "Temp_Rec : Entry; "Last_Entry : Integer; "Temp_String: String;   Procedure Get_Detail;  Begin "First_Length := First_Name_Length; "Last_Length := Last_Name_Length; "Address_Length := Address_Name_Length; "City_Length := City_Name_Length; "State_Length := State_Name_Lenght; "Phone_Length := Phone_Name_Length; "Note_Length := Note_Name_Length; "Bday_Length := Bday_Name_Length; "Temp_String := ''; "Get_String(Detail_Port,0,0,'First Name = ',Temp_String,First_Length); "Temp_Rec.First := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Last Name = ',Temp_String,Last_Length); "Temp_Rec.Last := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Address = ',Temp_String,Address_Length); "Temp_Rec.Address := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'City Name = ',Temp_String,city_Length); "Temp_Rec.City := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'State Name = ',Temp_String,State_Length); "Temp_Rec.State := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Phone Number = ',Temp_String,Phone_Length); "Temp_Rec.Phone := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Birthday = ',Temp_String,Bday_Length); "Temp_Rec.Bday := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Any Notes ? = ',Temp_String,Note_Length);  Temp_Rec.Note := Temp_String; "Temp_String := '';  Sc_Clr_Line(Detail_Port,0)  End{Get_Detail};   Begin{Add_Proc} "Get_Detail; "Alpha_Rec[Get_Last_Entry] := Temp_Rec;  End{Add_Proc};   Begin{Edit_Proc}  Index := 1; "Repeat $ch := SC_Prompt(Commond_Port, 4'Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify ', 4-1,-1,15,0,['a','A','s','S','g','G','Q','q','m','M', @'+','-'], 4[Sc_Unknown],','); $Case ch of )'a','A' : Add_Proc; )'s','S' : Save_File_Proc; )'g','G' : Get_File_Proc; )'m','M' : Modify_Proc; )'+','-' : Move_Proc(ch); )'q','Q' : ; )End{Case}; "Until ch In ['q','Q']  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "Init_Vector; "Init_Screen; "Repeat $Get_Command; $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " " $CURSOR $EQUAL $SYNTAX $TAG ¼¼#O.£„£„e6 "State_Length := State_Name_Lenght; "Phone_Length := Phone_Name_Length; "Note_Length := Note_Name_Length; "Bday_Length := Bday_Name_Length; "Temp_String := ''; "Get_String(Detail_Port,0,0,'First Name = ',Temp_String,First_Length); "Temp_Rec.First := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Last Name = ',Temp_String,Last_Length); "Temp_Rec.Last := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Address = ',Temp_String,Address_Length); "Temp_Rec.Address := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'City Name = ',Temp_String,city_Length); "Temp_Rec.City := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'State Name = ',Temp_String,State_Length); "Temp_Rec.State := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Phone Number = ',Temp_String,Phone_Length); "Temp_Rec.Phone := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Birthday = ',Temp_String,Bday_Length); "Temp_Rec.Bday := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Any Notes ? = ',Temp_String,Note_Length);  Temp_Rec.Note := Temp_String; "Temp_String := '';  Sc_Clr_Line(Detail_Port,0)  End{Get_Detail};   Begin{Add_Proc} "Get_Detail; "Alpha_Rec[Get_Last_Entry] := Temp_Rec;  End{Add_Proc};   Begin{Edit_Proc}  Index := 1; "Repeat "RecP2_Port,Detail_Port, "Commond_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Phone : File of Entry; " " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Vector;  Var "Temp : Entry; "x : Integer;   Begin "With Temp Do 'Begin )First := ''; )Last := ''; )Bday := ''; )Address := ''; )City := ''; )State := ''; )Phone := ''; )Note := ''; 'End{With}; "For x := 1 To Max_Entries Do $Alpha_Rec[x] := Temp;  End{Init_Vector};   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(Commond_Port,Columns,Rows,Width,Height,Orginal);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79;   Begin "Sc_New_Port(RecM2_Port,0,2,Width,Height,Orginal); "Sc_New_Port(RecM1_Port,0,7,Width,Height,Orginal); "Sc_New_Port(Rec0_Port,10,11,Width,Height,Orginal); "Sc_New_Port(RecP1_Port,0,15,Width,Height,Orginal); "Sc_New_Port(RecP2_Port,0,20,Width,Height,Orginal); "Sc_New_Port(Detail_Port,12,11,20,4,Orginal);  End{Init_Edit_Screen};   Begin{Init_Screen}  "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln(Out_File,'Oh shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin{Get_Command} "Sc_Clr_Screen(Commond_Port); "ch := Sc_Prompt(Commond_Port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,17,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Function Get_Last_Entry : Integer;  Var "x : Integer; "  Begin "x := 1; "(*1 "writeln(Out_File,' The length of a record last name is ', 3Length(Alpha_Rec[x].Last)); "(*2*) "While Length(Alpha_Rec[x].Last) <> 0 Do (x := x + 1;  Get_Last_Entry := x;  End{Get_Last_Entry};   Procedure Edit_Proc;  Var "Index : integer; "ch : Char; "  Procedure Move_Proc(ch:char);  Procedure Print_Detail(x:integer);  Begin "With Alpha_Rec[x] Do 'Begin )Writeln(Out_File,First,Last); )writeln(Out_File,Address); )Writeln(Out_File,City,State); )Write(Out_File,Note,Phone); 'End{with};  End{Print_Detail};   Begin "If ch = '+' Then %Begin 'Index := Index + 1; 'If Index > Max_Entries Then *Index := MaxEntries; %End{Then} %Else 'Begin )Index := Index -1; )If Index < 1 Then ,Index := 1; 'End{Else}; "If (index-2) >= 1 Then %Begin 'Sc_Home(RecM2_Port); 'Print_Detail(Index - 2); %End{If} " Else 'Sc_Clr_Screen(RecM2_Port); "If (index - 1) >= 1 Then %Begin 'Sc_Home(RecM1_Port); 'Print_Detail(Index - 1); %End{Then} %Else 'Sc_Clr_Screen(RecM1_Port); "Sc_Home(Rec0_Port); "Print_Detail(Index); "If (index + 1) <= Max_Entries Then %Begin 'Sc_Home(RecP1_Port); 'Print_Detail(Index + 1); %End{Then} %Else 'Sc_Clr_Screen(RecP1_Port); "If (Index + 2) <= Max_Entries Then %Begin 'Sc_Home(RecP2_Port); 'Print_Detail(Index + 2); %End{Then} %Else 'Sc_Clr_Screen(RecP2_Port); !End{Move_Proc};   Procedure Modify_Proc;  Begin  End{Modify_Proc};   Procedure Get_File_Proc;  Var "ch : Char; "x : Integer; "Temp_Rec : Entry; "  Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'x := 1; 'Reset(Phone,'Book'); 'While Not Eof(phone) Do -Begin /Get(Phone); /Alpha_Rec[x] := Phone^; /Sc_Goto_XY(commond_Port,0,23); /Write(Out_File,' Reading From Disk Record Number = ',x); /x := x + 1; -End{While}; %End{If};  Sc_Clr_Line(Commond_Port,23);  End{Get_File_Proc};   Procedure Save_File_Proc;  Var  x : Integer;   Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'Rewrite(phone,'Book'); 'For x := 1 To Max_Entries Do +Begin -Phone^ := Alpha_Rec[x]; -Put(phone); -Sc_Goto_XY(Commond_Port,0,23); -Write(Out_File,' Writing to Disk Record Number = ',x); +End{For}; 'Close(Phone,Lock); %End{If}; "Sc_Clr_Line(Commond_Port,23);  End{Save_Proc};   Procedure Add_Proc;  Var "First_Length, "Last_Length, "Address_Length, "City_Length, "State_Length, "Phone_Length, "Note_Length, "Bday_Length: Integer; "Temp_Rec : Entry; "Last_Entry : Integer; "Temp_String: String;   Procedure Get_Detail;  Begin "First_Length := First_Name_Length; "Last_Length := Last_Name_Length; "Address_Length := Address_Name_Length; "City_Length := City_Name_Length; 7 $CURSOR $EQUAL ;2O.£„£„$ 4 4 4 4 4 4what are we going to do on the machine $ch := SC_Prompt(Commond_Port, 4'Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify ', 4-1,-1,15,0,['a','A','s','S','g','G','Q','q','m','M', @'+','-'], 4[Sc_Unknown],','); $Case ch of )'a','A' : Add_Proc; )'s','S' : Save_File_Proc; )'g','G' : Get_File_Proc; )'m','M' : Modify_Proc; )'+','-' : Move_Proc(ch); )'q','Q' : ; )End{Case}; "Until ch In ['q','Q']  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "Init_Vector; "Init_Screen; "Repeat $Get_Command; $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort  : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " " ’’PHONEBOOŌlPHONEBOO€?APPPROCS‚SCCNTRL >1PHONEBOO‰[„ ‚”„.‚”„‚”„‚ €(”„D‚ ”„O‚ ”„‚ ”„9‚ ”,¤[¤Z‡Z‡[²Ō†‡Z,Ė£×Y„ÅY‡Z¢¤ZŠą–[£†č”€O†č\ƒF—–†čč€O†č\ƒF—†čŚ€O†č\ƒF—†čĢ €O†č\ƒF—†č¾€O†č\ƒF—†č°€O†č\ƒF—†č¢ †č\ƒF—–*system.miscinfoSYSTERM:CONSOLE:F!Oh shit a bad ERROR = Init_ScreenŠ‚€ƒ‚€Œ‚€‘†č\ƒ€–—¤ ԐŠ†ź{‚€˜”” †ź{”” ––)Command: E)dit, S)ort, P)rint, Q)uit [A0] ĘEs  y†č”ƒ€Ę—†č”‚€Čįįƒ€ŻĒĒ€,ƒ€å—¤ րēŠ„Š„Š „ЄЖ”¤† ,Ė£×Yē-§±Ō ¢¤Šå ¤–,†#,Ė£×Y¤†ź{ ē”” †ź{ ē-”” †ź{”” †ź{ ē”” †ź{”” †ź{ ēC”” †ź{ ēN”” †ź{”” †ź{ ē8”” †ź{ ē”” – å#€+°Ō‰¢¦‰,²ŸŌ,¦Š‰£¦‰³ŸŌ¦‰£³Ō†č胁——‰£ Іč胀Ę—‰£³Ō†čڃ——‰£ Іčڃ€Ę—†č̃——‰ ‰¢,²Ō†č¾ƒ——‰¢ Š†č¾ƒ€Ę—‰¢,²Ō†č°ƒ——‰¢ Š†č°ƒ€Ę—– –—6WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = Book$ Reading From Disk Record Number = '[†č”ƒ‚—‰‚‚”” †ė؄”” †č”ƒ‚$— ƒ‚&ŚŌ^¤†čö‚‚.”” †čö” ŸŌC†čö”” †!,Ė£×Y…čöÅY†č”ƒ‚—†ź{‚‚1”” †ź{!” ” !¢¤г†č”ƒ‚$—–[>WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = Book" Writing to Disk Record Number = P†č”ƒ‚—‰‚‚•”” †ė؈”” †č”ƒ‚$—‰ƒ‚µŚŌh†čö‚‚½”” ,¤¤ !²ŌC…čö† ,Ė£×YÅY†čö”” †č”ƒ‚—†ź{‚‚Ą”” †ź{ ” ” ¢¤Šø†čö”” †č”ƒ‚$—– First Name = ‚$ Last Name = Address = City Name = State Name = Phone Number = Birthday = Any Notes ? = T¦¦€(¦¦¦¦¦¦ˆc‚ƒ)€P”†č¢‚ƒ*ˆc‰ƒƒ1—ˆˆc”ˆc‚ƒ3€P”†č¢‚ƒ4ˆc‰ƒƒ1—ˆ6ˆc”ˆc‚ƒ;€P”†č¢‚ƒ<ˆc‰ƒƒ1—ˆ!ˆc€(”ˆc‚ƒC€P”†č¢‚ƒDˆc‰ƒƒ1—ˆLˆc”ˆc‚ƒK€P”†č¢‚ƒLˆc‰ƒƒ1—ˆWˆc”ˆc‚ƒS€P”†č¢‚ƒTˆc‰ƒƒ1—ˆˆc”ˆc‚ƒ\€P”†č¢‚ƒ]ˆc‰ƒƒ1—ˆ ˆc”ˆc‚ƒc€P”†č¢‚ƒdˆc‰ƒƒ1—ˆAˆc”ˆc‚ƒl€P”†č¢ƒ‚$—–n‹†‘,Ė£×Y„ ÅY–€‹1Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify (‚ ‚ +s  Ŗ ¤†č”‚„9įįƒ„Rǁǀ,ƒ€å—¤!քZАА А Š  Š! ŠŠ!ƒ„„ŚŌ·–° –¶ –¼ –CONSOLE:SYSTERM: @ †ė؆ģŌ”†ź{†ė§ž’”†čö†ź"€Y”†ź{‚„ß”” †ė؂„ä”” ‘‘‘0քéŠ‘Š ‘ББŠ0°Ōć†ėؔ†ź{”†čö”–ŻŚ×n,ÓESš®?TIŖš€8 tate); )Write(Out_File,Note,Phone); 'End{with};  End{Print_Detail};   Begin "If ch = '+' Then %Begin 'Index := Index + 1; 'If Index > Max_Entries Then *Index := MaxEntries; %End{Then} %Else 'Begin )Index := Index -1; )If Index < 1 Then ,Index := 1; 'End{Else}; "If (index-2) >= 1 Then %Begin 'Sc_Home(RecM2_Port); 'Print_Detail(Index - 2); %End{If} " Else 'Sc_Clr_Screen(RecM2_Port); "If (index - 1) >= 1 Then %Begin 'Sc_Home(RecM1_Port); 'Print_Detail(Index - 1); %End{Then} %Else 'Sc_Clr_Screen(RecM1_Port); "Sc_Home(Rec0_Port); "Print_Detail(Index); "If (index + 1) <= Max_Entries Then %Begin 'Sc_Home(RecP1_Port); 'Print_Detail(Index + 1); %End{Then} %Else 'Sc_Clr_Screen(RecP1_Port); "If (Index + 2) <= Max_Entries Then %Begin 'Sc_Home(RecP2_Port); 'Print_Detail(Index + 2); %End{Then} %Else 'Sc_Clr_Screen(RecP2_Port); !End{Move_Proc};   Procedure Modify_Proc;  Begin  End{Modify_Proc};   Procedure Get_File_Proc;  Var "ch : Char; "x : Integer; "Temp_Rec : Entry; "  Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'x := 1; 'Reset(Phone,'Book'); 'While Not Eof(phone) Do -Begin /Get(Phone); /Alpha_Rec[x] := Phone^; /Sc_Goto_XY(commond_Port,0,23); /Write(Out_File,' Reading From Disk Record Number = ',x); /x := x + 1; -End{While}; %End{If};  Sc_Clr_Line(Commond_Port,23); $CURSOR $EQUAL $SYNTAX $TAG %õO.£„£„f Program Phone_Book;   Uses Sc_Cntrl,App_Procs;   Const "First_Name_Length = 15; "Last_Name_Length = 20; "Address_Name_Length = 40; "City_Name_Length = 20; "State_Name_Lenght = 20; "Phone_Name_Length = 15; "Note_Name_Length = 20; "Bday_Name_Length = 15; "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 300; "  Type "Entry = Record ,Bday : String[Bday_Name_Length]; ,First : String[First_Name_Length]; ,Phone : String[Phone_Name_Length]; ,Address : String[Address_Name_Length]; ,Last : String[Last_Name_Length]; ,Note : String[Note_Name_Length]; ,City : String[City_Name_Length]; ,State : String[State_Name_Lenght]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Alpha_File = Array[1..Max_Entries] of Entry;   Var " "Command : Commands; "Alpha_Rec : Alpha_File; "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, "RecP2_Port,Detail_Port, "Commond_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Phone : File of Entry; " " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Vector;  Var "Temp : Entry; "x : Integer;   Begin "With Temp Do 'Begin )First := ''; )Last := ''; )Bday := ''; )Address := ''; )City := ''; )State := ''; )Phone := ''; )Note := ''; 'End{With}; "For x := 1 To Max_Entries Do $Alpha_Rec[x] := Temp;  End{Init_Vector};   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(Commond_Port,Columns,Rows,Width,Height,Orginal);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79;   Begin "Sc_New_Port(RecM2_Port,0,2,Width,Height,Orginal); "Sc_New_Port(RecM1_Port,0,7,Width,Height,Orginal); "Sc_New_Port(Rec0_Port,10,11,Width,Height,Orginal); "Sc_New_Port(RecP1_Port,0,15,Width,Height,Orginal); "Sc_New_Port(RecP2_Port,0,20,Width,Height,Orginal); "Sc_New_Port(Detail_Port,12,11,20,4,Orginal);  End{Init_Edit_Screen};   Begin{Init_Screen}  "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln(Out_File,'Oh shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin{Get_Command} "Sc_Clr_Screen(Commond_Port); "ch := Sc_Prompt(Commond_Port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,17,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Function Get_Last_Entry : Integer;  Var "x : Integer; "  Begin "x := 1; "(*1 "writeln(Out_File,' The length of a record last name is ', 3Length(Alpha_Rec[x].Last)); "(*2*) "While Length(Alpha_Rec[x].Last) <> 0 Do (x := x + 1;  Get_Last_Entry := x;  End{Get_Last_Entry};   Procedure Edit_Proc;  Var "Index : integer; "ch : Char; "  Procedure Move_Proc(ch:char);  Procedure Print_Detail(x:integer);  Begin "With Alpha_Rec[x] Do 'Begin )Writeln(Out_File,First,Last); )writeln(Out_File,Address); )Writeln(Out_File,City,S9  y†č”ƒ€Ę—†č”‚€Čįįƒ€ŻĒĒ€,ƒ€å—¤ րēŠ„Š„Š „ЄЖ”¤† ,Ė£×Yē-§±Ō ¢¤Šå ¤–,†#,Ė£×Y¤†ź{ ē”” †ź{ ē-”” †ź{”” †ź{ ē”” †ź{”” †ź{ ēC”” †ź{ ēN”” †ź{”” †ź{ ē8”” †ź{ ē”” – å#€+°Ō‰¢¦‰,²ŸŌ,¦Š‰£¦‰³ŸŌ¦‰£³Ō†č胁——‰£ Іč胀Ę—‰£³Ō†čڃ——‰£ Іčڃ€Ę—†č̃——‰ ‰¢,²Ō†č¾ƒ——‰¢ Š†č¾ƒ€Ę—‰¢,²Ō†č°ƒ——‰¢ Š†č°ƒ€Ę—– –—6WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = Book$ Reading From Disk Record Number = '[†č”ƒ‚—‰‚‚”” †ė؄”” †č”ƒ‚$— ƒ‚&ŚŌ^¤†čö‚‚.”” †čö” ŸŌC†čö”” †!,Ė£×Y…čöÅY†č”ƒ‚—†ź{‚‚1”” †ź{!” ” !¢¤г†č”ƒ‚$—–[>WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = Book" Writing to Disk Record Number = P†č”ƒ‚—‰‚‚•”” †ė؈”” †č”ƒ‚$—‰ƒ‚µŚŌh†čö‚‚½”” ,¤¤ !²ŌC…čö† ,Ė£×YÅY†čö”” †č”ƒ‚—†ź{‚‚Ą”” †ź{ ” ” ¢¤Šø†čö”” †č”ƒ‚$—– First Name = ‚$ Last Name = Address = City Name = State Name = Phone Number = Birthday = Any Notes ? = T¦¦€(¦¦¦¦¦¦ˆc‚ƒ)€P”†č¢‚ƒ*ˆc‰ƒƒ1—ˆˆc”ˆc‚ƒ3€P”†č¢‚ƒ4ˆc‰ƒƒ1—ˆ6ˆc”ˆc‚ƒ;€P”†č¢‚ƒ<ˆc‰ƒƒ1—ˆ!ˆc€(”ˆc‚ƒC€P”†č¢‚ƒDˆc‰ƒƒ1—ˆLˆc”ˆc‚ƒK€P”†č¢‚ƒLˆc‰ƒƒ1—ˆWˆc”ˆc‚ƒS€P”†č¢‚ƒTˆc‰ƒƒ1—ˆˆc”ˆc‚ƒ\€P”†č¢ End{Get_File_Proc};   Procedure Save_File_Proc;  Var  x : Integer;   Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'Rewrite(phone,'Book'); 'For x := 1 To Max_Entries Do +Begin -Phone^ := Alpha_Rec[x]; -Put(phone); -Sc_Goto_XY(Commond_Port,0,23); -Write(Out_File,' Writing to Disk Record Number = ',x); +End{For}; 'Close(Phone,Lock); %End{If}; "Sc_Clr_Line(Commond_Port,23);  End{Save_Proc};   Procedure Add_Proc;  Var "First_Length, "Last_Length, "Address_Length, "City_Length, "State_Length, "Phone_Length, "Note_Length, "Bday_Length: Integer; "Temp_Rec : Entry; "Last_Entry : Integer; "Temp_String: String;   Procedure Get_Detail;  Begin "First_Length := First_Name_Length; "Last_Length := Last_Name_Length; "Address_Length := Address_Name_Length; "City_Length := City_Name_Length; "State_Length := State_Name_Lenght; "Phone_Length := Phone_Name_Length; "Note_Length := Note_Name_Length; "Bday_Length := Bday_Name_Length; "Temp_String := ''; "Get_String(Detail_Port,0,0,'First Name = ',Temp_String,First_Length); "Temp_Rec.First := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Last Name = ',Temp_String,Last_Length); "Temp_Rec.Last := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Address = ',Temp_String,Address_Length); "Temp_Rec.Address := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'City Name = ',Temp_String,city_Length); "Temp_Rec.City := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'State Name = ',Temp_String,State_Length); "Temp_Rec.State := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Phone Number = ',Temp_String,Phone_Length); "Temp_Rec.Phone := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Birthday = ',Temp_String,Bday_Length); "Temp_Rec.Bday := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Any Notes ? = ',Temp_String,Note_Length);  Temp_Rec.Note := Temp_String; "Temp_String := '';  Sc_Clr_Line(Detail_Port,0)  End{Get_Detail};   Begin{Add_Proc} "Get_Detail; "Alpha_Rec[Get_Last_Entry] := Temp_Rec;  End{Add_Proc};   Begin{Edit_Proc}  Index := 1; "Repeat $ch := SC_Prompt(Commond_Port, 4'Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify ', 4-1,-1,15,0,['a','A','s','S','g','G','Q','q','m','M', @'+','-'], 4[Sc_Unknown],','); $Case ch of )'a','A' : Add_Proc; )'s','S' : Save_File_Proc; )'g','G' : Get_File_Proc; )'m','M' : Modify_Proc; )'+','-' : Move_Proc(ch); )'q','Q' : ; )End{Case}; "Until ch In ['q','Q']  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "Init_Vector; "Init_Screen; "Repeat $Get_Command; $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort  : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " " ’’PHONEBOOŌlPHONEBOO€?APPPROCS‚SCCNTRL >1PHONEBOO‰[„ ‚”„.‚”„‚”„‚ €(”„D‚ ”„O‚ ”„‚ ”„9‚ ”,¤[¤Z‡Z‡[²Ō†‡Z,Ė£×Y„ÅY‡Z¢¤ZŠą–[£†č”€O†č\ƒF—–†čč€O†č\ƒF—†čŚ€O†č\ƒF—†čĢ €O†č\ƒF—†č¾€O†č\ƒF—†č°€O†č\ƒF—†č¢ †č\ƒF—–*system.miscinfoSYSTERM:CONSOLE:F!Oh shit a bad ERROR = Init_ScreenŠ‚€ƒ‚€Œ‚€‘†č\ƒ€–—¤ ԐŠ†ź{‚€˜”” †ź{”” ––)Command: E)dit, S)ort, P)rint, Q)uit [A0] ĘEs : %ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»‚ƒ]ˆc‰ƒƒ1—ˆ ˆc”ˆc‚ƒc€P”†č¢‚ƒdˆc‰ƒƒ1—ˆAˆc”ˆc‚ƒl€P”†č¢ƒ‚$—–n‹†‘,Ė£×Y„ ÅY–€‹1Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify (‚ ‚ +s  Ŗ ¤†č”‚„9įįƒ„Rǁǀ,ƒ€å—¤!քZАА А Š  Š! ŠŠ!ƒ„„ŚŌ·–° –¶ –¼ –CONSOLE:SYSTERM: @ †ė؆ģŌ”†ź{†ė§ž’”†čö†ź"€Y”†ź{‚„ß”” †ė؂„ä”” ‘‘‘0քéŠ‘Š ‘ББŠ0°Ōć†ėؔ†ź{”†čö”–ŻŚ×n,ÓESš®?TIŖš€*system.miscinfjimE»G’ŗžÆĆE»žTEME»ÆĆG »a€ē,Züü~condit$ü‘»,0~»V '$».G,»[ G»a6 »%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»; C»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMü< } €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»= h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»> *`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü? Gh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü€ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņs@ RMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTEA €G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERM»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼B @@@@@@üC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»»%ņsG»'ņs»h» €ü}ż2»SYSTERMüC»C»ņü~»†ś4üü4ü*`»z. Į¼€G\»} €:d» ņsGh»ü’O.£„£„’’@@@@@@@@@@C @@@@@@@@@@@@@@@@@@@@@@@@@@D @@@@@@@@@@@@@@@@@@@@@@@@@@E @@@@@@@@@@@@@@@@@@@@@@@@@@F @@@@@@@@@@@@@@@@@@@@@@@@@@G @@@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@@@@@@@@@@@@@@@@@@@@I @@@@@@@@@@@@@@@@@@@@@@@@@@J @@@@@@@@@@@@@@@@@@@@@@@@@@K "RecP2_Port,Detail_Port, "Commond_Port,Edit_Port, "Sort_Port,Print_Port, "Orginal,Port : Sc_Port; " "Phone : File of Entry; " " "Out_File : Text; " "In_File : Interactive;   Procedure Init_Vector;  Var "Temp : Entry; "x : Integer;   Begin "With Temp Do 'Begin )First := ''; )Last := ''; )Bday := ''; )Address := ''; )City := ''; )State := ''; )Phone := ''; )Note := ''; 'End{With}; "For x := 1 To Max_Entries Do $Alpha_Rec[x] := Temp;  End{Init_Vector};   Procedure Init_Screen;  Var "Junk : Boolean; "  Procedure Init_Command_Screen;  Const "Columns= 0; "Rows = 0; "Height = 23; "Width = 79;  Begin "Sc_New_Port(Commond_Port,Columns,Rows,Width,Height,Orginal);  End{Init_Command_Screen};   Procedure Init_Edit_Screens;  Const "Height = 23; "Width = 79;   Begin "Sc_New_Port(RecM2_Port,0,2,Width,Height,Orginal); "Sc_New_Port(RecM1_Port,0,7,Width,Height,Orginal); "Sc_New_Port(Rec0_Port,10,11,Width,Height,Orginal); "Sc_New_Port(RecP1_Port,0,15,Width,Height,Orginal); "Sc_New_Port(RecP2_Port,0,20,Width,Height,Orginal); "Sc_New_Port(Detail_Port,12,11,20,4,Orginal);  End{Init_Edit_Screen};   Begin{Init_Screen}  "Junk := Sc_Init('*system.miscinfo',In_Name,Out_Name, 3Sc_Vt52, Orginal); "If Junk Then 'Begin )Init_Command_Screen; )Init_Edit_Screen; ){Init_Sort_Screen;} 'End{If} %Else 'Writeln(Out_File,'O@@@@@@@@@@@@@@@@ Program Phone_Book;   Uses Sc_Cntrl,App_Procs;   Const "First_Name_Length = 15; "Last_Name_Length = 20; "Address_Name_Length = 40; "City_Name_Length = 20; "State_Name_Lenght = 20; "Phone_Name_Length = 15; "Note_Name_Length = 20; "Bday_Name_Length = 15; "In_Name = 'SYSTERM:'; "Out_Name = 'CONSOLE:'; "Max_Entries = 300; "  Type "Entry = Record ,Bday : String[Bday_Name_Length]; ,First : String[First_Name_Length]; ,Phone : String[Phone_Name_Length]; ,Address : String[Address_Name_Length]; ,Last : String[Last_Name_Length]; ,Note : String[Note_Name_Length]; ,City : String[City_Name_Length]; ,State : String[State_Name_Lenght]; *End;{record} "Commands = (Edit,Print,Sort,Quit); "Alpha_File = Array[1..Max_Entries] of Entry;   Var " "Command : Commands; "Alpha_Rec : Alpha_File; "RecM2_Port,RecM1_Port, "Rec0_Port,RecP1_Port, L $ch := SC_Prompt(Commond_Port, 4'Edit: A)dd, S)ave_File, G)et_File, Q)uit,M)odify ', 4-1,-1,15,0,['a','A','s','S','g','G','Q','q','m','M', @'+','-'], 4[Sc_Unknown],','); $Case ch of )'a','A' : Add_Proc; )'s','S' : Save_File_Proc; )'g','G' : Get_File_Proc; )'m','M' : Modify_Proc; )'+','-' : Move_Proc(ch); )'q','Q' : ; )End{Case}; "Until ch In ['q','Q']  End{Edit_Proc};  "  Procedure Sort_Proc;  Begin  End{Sort_Proc};   Procedure Print_Proc;  Begin  End{Print_Proc};   Procedure Quit_Proc;  Begin  End{Quit_Proc};   Begin{Phone_Book} "Rewrite(Out_File,Out_Name); "Reset (In_File,In_Name); "Init_Vector; "Init_Screen; "Repeat $Get_Command; $Case Command of )Edit : Edit_Proc; )Print : Print_Proc; )Sort  : Sort_Proc; )Quit : Quit_Proc; $End{Case}; "Until Command = Quit;  End{Phone_Book}. " " " ū’ūūū’ū’ūūū’’ūūū’ū’ūū’’’’’ūū’ūž’ūū’ū’ūūū’’’’ū’’%€€€€€€€€€€ˆ€€€€€’ū’ū’’’’ū’ū’’’’’ū~’’’’’ūū’’’ūū’ū’ū’ū’’ū€€€€€€€€€€€€€€€ˆ€’’’ūū’’ū’’’’’’’ ’’’’’’’’ū’EDITOR €| €iPUTSYNTA?±iLISTDIR ‚Ńū’‚iOUT ƒ$Ž’ƒiRECURSE „ī„iINITIALI…‰ €…iCOPYFILE†-h shit a bad ERROR = Init_Screen');  End{Init_Screen};   Procedure Get_Command;  Var "ch : Char; "  Begin{Get_Command} "Sc_Clr_Screen(Commond_Port); "ch := Sc_Prompt(Commond_Port,'Command: E)dit, S)ort, P)rint, Q)uit [A0]', ,-1,-1,17,0,['E','e','S','s','P','p','Q','q'],[Sc_Unknown],',');  Case ch of ''E','e' : Command := Edit; ''S','s' : Command := Sort; ''P','p' : Command := Print; ''Q','q' : Command := Quit; 'End{Case};  End{Get_Command};   Function Get_Last_Entry : Integer;  Var "x : Integer; "  Begin "x := 1; "(*1 "writeln(Out_File,' The length of a record last name is ', 3Length(Alpha_Rec[x].Last)); "(*2*) "While Length(Alpha_Rec[x].Last) <> 0 Do (x := x + 1;  Get_Last_Entry := x;  End{Get_Last_Entry};   Procedure Edit_Proc;  Var "Index : integer; "ch : Char; "  Procedure Move_Proc(ch:char);  Procedure Print_Detail(x:integer);  Begin "With Alpha_Rec[x] Do 'Begin )Writeln(Out_File,First,Last); )writeln(Out_File,Address); )Writeln(Out_File,City,State); )Write(Out_File,Note,Phone); 'End{with};  End{Print_Detail};   Begin "If ch = '+' Then %Begin 'Index := Index + 1; 'If Index > Max_Entries Then *Index := MaxEntries; %End{Then} %Else 'Begin )Index := Index -1; )If Index < 1 Then ,Index := 1; 'End{Else}; "If (index-2) >= 1 Then %Begin 'Sc_Home(RecM2_Port); 'Print_Detail(Index - 2); %End{If} " Else 'Sc_Clr_Screen(RecM2_Port); "If (index - 1) >= 1 Then %Begin 'Sc_Home(RecM1_Port); 'Print_Detail(Index - 1); %End{Then} %Else 'Sc_Clr_Screen(RecM1_Port); "Sc_Home(Rec0_Port); "Print_Detail(Index); "If (index + 1) <= Max_Entries Then %Begin 'Sc_Home(RecP1_Port); 'Print_Detail(Index + 1); %End{Then} %Else 'Sc_Clr_Screen(RecP1_Port); "If (Index + 2) <= Max_Entries Then %Begin 'Sc_Home(RecP2_Port); 'Print_Detail(Index + 2); %End{Then} %Else 'Sc_Clr_Screen(RecP2_Port); !End{Move_Proc};   Procedure Modify_Proc;  Begin  End{Modify_Proc};   Procedure Get_File_Proc;  Var "ch : Char; "x : Integer; "Temp_Rec : Entry; "  Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT READ IN STORED FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'x := 1; 'Reset(Phone,'Book'); 'While Not Eof(phone) Do -Begin /Get(Phone); /Alpha_Rec[x] := Phone^; /Sc_Goto_XY(commond_Port,0,23); /Write(Out_File,' Reading From Disk Record Number = ',x); /x := x + 1; -End{While}; %End{If};  Sc_Clr_Line(Commond_Port,23);  End{Get_File_Proc};   Procedure Save_File_Proc;  Var  x : Integer;   Begin "Sc_Goto_XY(Commond_Port,0,23); "Write('WARNING-YOU ARE ABOUT WRITE OUT TO A STORAGE FILE. TYPE Y/N = '); "READ(In_File,ch); "Sc_Clr_Line(Commond_Port,23); "If ch In ['y','Y'] Then %Begin 'Rewrite(phone,'Book'); 'For x := 1 To Max_Entries Do +Begin -Phone^ := Alpha_Rec[x]; -Put(phone); -Sc_Goto_XY(Commond_Port,0,23); -Write(Out_File,' Writing to Disk Record Number = ',x); +End{For}; 'Close(Phone,Lock); %End{If}; "Sc_Clr_Line(Commond_Port,23);  End{Save_Proc};   Procedure Add_Proc;  Var "First_Length, "Last_Length, "Address_Length, "City_Length, "State_Length, "Phone_Length, "Note_Length, "Bday_Length: Integer; "Temp_Rec : Entry; "Last_Entry : Integer; "Temp_String: String;   Procedure Get_Detail;  Begin "First_Length := First_Name_Length; "Last_Length := Last_Name_Length; "Address_Length := Address_Name_Length; "City_Length := City_Name_Length; "State_Length := State_Name_Lenght; "Phone_Length := Phone_Name_Length; "Note_Length := Note_Name_Length; "Bday_Length := Bday_Name_Length; "Temp_String := ''; "Get_String(Detail_Port,0,0,'First Name = ',Temp_String,First_Length); "Temp_Rec.First := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Last Name = ',Temp_String,Last_Length); "Temp_Rec.Last := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Address = ',Temp_String,Address_Length); "Temp_Rec.Address := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'City Name = ',Temp_String,city_Length); "Temp_Rec.City := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'State Name = ',Temp_String,State_Length); "Temp_Rec.State := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Phone Number = ',Temp_String,Phone_Length); "Temp_Rec.Phone := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Birthday = ',Temp_String,Bday_Length); "Temp_Rec.Bday := Temp_String; "Temp_String := ''; "Get_String(Detail_Port,0,0,'Any Notes ? = ',Temp_String,Note_Length);  Temp_Rec.Note := Temp_String; "Temp_String := '';  Sc_Clr_Line(Detail_Port,0)  End{Get_Detail};   Begin{Add_Proc} "Get_Detail; "Alpha_Rec[Get_Last_Entry] := Temp_Rec;  End{Add_Proc};   Begin{Edit_Proc}  Index := 1; "Repeat