IMD 1.16: 7/09/2007 11:35:58 SOFTECH MICROSYSTEMS UCSD p-System UZP40D.C UTILITIES  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ÅŁŌĮ×@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@åÖÓńÄčāĮÕ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ęČÄŁń@ÄĮćĮ@@@@@@@@@@@@@@@šųš@šńššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@šńššń@ÄÄŁń@ÄĮćĮšł@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńš@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńń@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńņ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńó@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńō@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńõ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńö@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮń÷@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńų@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮńł@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņš@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņń@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņņ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņó@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņō@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņõ@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ÄÄŁń@ÄĮćĮņö@@@@@@@@@@@@@šųš@÷ōššń@÷óšņö@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@÷ōššń@ ååååååååUTIL1™ !ņ¢  BOOTER.CODE`{L  DISKCHANGE.CODE\  DISKSIZE.CODE`{< FINDPARAMS.CODE< ) YALOE.CODE`{, )6 LIBRARY.CODE Ø2V¢6:SAMPLEGOTO.TEXT:GSCREENTEST.CODEF¢GTSCREENOPS.CODE2¢Tp DECODE.CODEō ’S¢psCOPYDUPDIR.CODE, swMARKDUPDIR.CODE, w™ PATCH.CODEŖĢčÜ’F¢åååååååååååååååååååååååååååååååååÄBOOTER   €€€€€€€€€€€€€€€€GÓāéāé]LųSTUFF# 5ø 8YĄÓN-,ĢjĄÓŚ) źŠ0=€Óö0 źĆBOOTER $•+b„.¬Pš‚€r šb˜r š‚€ r š`ršr 1ŚŌĻ Ó7 p"p°i!ń$š‚€r š rš‚€r šrŠ ‡-‡,p$! ° Ō ¤0–/Fšrš‚€"r šršr‚€.†%‘„5±Õh‚€2†‘„4±ÕU†%×x€€„†×x€€„3†%×xŒ„2†×xŒ„01²ń1„DŠ0„D†F…D€€Œs„E„C5…F…C†%×xŒ…Cp…Cķ„C…C3Œ…D³p± ŌŚp°Õ“š‚€8r š…Cršr45Ņ"š‚€@r š4rš‚€Qr šr „C4…F…C†×xŒ…Cp…Cķ„C…C2Œ…D³p± ŌŚpŅš‚€[r š…CršrŠ+š‚€dr š…Cīrš‚€sr š4ršrŠ+š‚€wr š…Cīrš‚€†r š5ršršrš‚€Šr šr –What unit is the  disk (0,4,5,9..12) ? Drive not on-lineeBootstrap Copier [A1]]sourcee destinationSectors read: Put destination disk into drive  and type >Sectors written: Error writing logical sector , driveError reading logical sector , drive$Put in system disk and type > MEXTRAHEAPASCALIO ū‰DISKCONVINITSTUF  €€€€€€€€€€€€€€€€›DISKCONV&_īļīļ]XžSTUFF¼22Šŗ‡ šeL’x*ęlL_'šŠX:€_.šˆINITSTUFu†ihā¼ƒ€ŪĒqj"ƒ€ŚŌ ķh! Œ"¢€0£iŠ,"Ņ( ²ń#šspš€ spšsp īh! i"€ ° ²Ÿ”Ō”!kštp–ę?īj„ 8"²Ō$8×įĈ8×įÄ8ķ„ Šåh?īj„ 8"²Ō,ˆ ×xįÓ ķ?hŠī$8× Ĉ ×Ä #¢?h8ķ„ ŠĻ–¬„€„„€­¬P†‚1‡€Æ¤€ƒštpš„€„˜t pštpš‚€ t pļh ?ī¼ŚŌē‡€ƒ š‚€t p‡€ƒē€€ļ怃ꀀ?ī¼ŚŌܚ‚€/t p‡€ƒē€ļ怃ꀁ;ī¼ŚŌܖ€Æēštpštpš‚€Ct pš‚€Rt pštpštpš‚€Ut pštpštpštpš‚€_t p„=0ŚŌęš‚€wt p„ <0ŚŌę=<Ņ'š‚€‘t pƒ€±Ēq€N°„‚štpŠ„‚=ap$a×x„>€€„a×x„a×x„ ±a×x?± a×x;± Ōštpš‚€·t pštpqš‚€Öt p„1?ī¼ŚŌꆀ“‚€ś†‚……€’³…‚ =<± „‚:Œ>?Œī„–’’"  What is the interleaving ratio? % What is the sector skew per track? ' What is the first interleaved track? FLOPPY INTERLEAVING CHANGER [B3]] Type "!" to exitt. What is the source unit number? (4,5,9..12) 3 What is the destination unit number? (4,5,9..12) ? Are you writing onto the same diskette you are reading from? @< Both source and dest units must have same characteristics..F What is the interleaving ratio of the drives used for the transfer? SOURCE DISK TYPE:DESTINATION DISK TYPE::Eu Ć śDISKCONV-Fš‚€t pƒ€ Ē‘„‚šštpŌčštp–’p"€’h aŠŚń#š`t p €!Ņ‘ ƒ€ŚŌ €a£€A¢hŠÕ €!€~¼ŚŌ š sp ¤–ļ„€„‡ŀ‚?ī¤€ƒh ‡€ƒ²Ō7„€„ ×x‡‡Œ¢?i‡Ņb!׆ ×xĊ b ׆!×xÄ ķhŠĀ†bŀ€–š7īih !²Õ™?īj„3"²Õ‡<…×@>†‚3×x ?Œ¢Œ? 9¢…€’¢Œ†‚3×x¢ppÓQštpš‚€t pš 9¢…€’¢tpš‚€#t pš†‚3×xtpštp=<±…‚ Ō‘3ķ„‹s’ ķh‹a’–štpštp…‚ń8š‚€)t pš=tpš‚€8t pš<tpš€,sp‘:Œ>?Œī„……€’²ń ;…£„ Š;…€’£„ …‚Ō„ Š;„ …‚Ō97¢;²ń;9£„Š 97£³ń9„7²ŸÕ;…‚Ōš‚€Ct pš=tp‘…‚ń97£„ 7īh„6 ²Õ߆†—Å€€?īi„3!²Õ‚=††‚3×x×x?9…¢6¢Œ†‚3×x¢ppÓQštpš‚€Rt pš9…¢6¢tpš‚€^t pš†‚3×xtpštp=<±…‚ Ō‘3ķ„‹x’†€“96¢‘†96¢‘6?Œ5Œ„?īi„ 8!²Ō†8×x…0×@>p05¢„8ķ„ ŠŽ6ķ„‹’…‚Ōš‚€dt pš<tp‘‘…‚Ō97¢„ 9;³…‚”…‚å9²” ÕŽž‘–īštpš‚€ut pš†‚št p…‚…‚šƒ€‡Ś”štp ŌŻštp…‚š€ Ņ‚€upŠp–W„‚‚€Ŗu‚€Åu„ :³:@³Ÿ”ń’?„ r„‚?ī„‚›„ 8…‚›²Ō†—8×€@5Œu„8ķ„ Šä†€@7Œ?Œu„‘Ōū– and press returnž’’DISK WRITE ERROR Track Sector Insert source disk in drive , dest disk in drive Insert source disk in drive DISK READ ERROR Track Sector !Insert destination disk in drive #Insert system disk and press return5DISKCONVERT,EXTRAIO,PASCALIO,HEAPOPS,OSUTIL,EXTRAHEAP5DISKCONVERT,EXTRAIO,PASCALIO,HEAPOPS,OSUTIL,EXTRAHEAPĻzKŹ %łEXTRAHEAPASCALIOEXTRAIO  UBARRYYOU  €€€€€€€€€€€€€€€€ÓRéRé]xųSTUFF#F5dø Č_ĄÓĪ--gĄÓ\*|錊<€Ó21|éTBARRYYOUĶ—šrpšrpšrpš‚€r pšrpšrpš‚€r pš†rpšrpńšrp…0ŚŌĪ…†pp°Õך‚€(r pš†rpšrpńšrp…†…īpp„…Ó&šspš‚€Br pš spšrp… ²Ÿ…°”Ōˆ…†ppŅ6†€’Ė×…ą†ppÓš‚€Or pšrpŠš‚€[r pšrpŠš‚€gr pšrpšrpš‚€sr pšr p–DISK SIZE CHANGER [A2]]2 Change directory size on what unit? (4,5,9..12) 2 What is new directory size in 512 byte blocks ?  No such block on disk!! DIRECTORY WRITE ERROR DIRECTORY READ ERRORR No such disk on line!% Insert system disk and press return EXTRAIO PASCALIO  †HELPTHES  €€€€€€€€€€€€€€€€& ÓRéRé]xųSTUFF#F5eø Š`ĄÓĪ--hĄÓ\*|錊<€Ó21|é…HELPTHES®Cšrpš‚€r pšrpšr pšrp–§+¤-š`€Pr pšr p`§Ó>‡,Ä`§¤+¤*‡*‡+²Ō)`‡*ģ§ƒ€Śń¤-‡, ‡,xŒ`‡*ģ§¢€0£Ä‡*ķ¤*ŠŠŠ‡,įĖ,Üš‚€r pšrpš‚€*r pšrpš‚€>r pšrpš‚€Qr pšrpš‚€cr pšrpš‚€xr pšrpš‚€Šr pšrpš‚€r pšrpš‚€²r pšrpš‚€Är pšrpš‚€Ųr pšrpš‚€ģr pšrpš‚€’r pšrpš‚r pšrpš‚'r pšrp‘–¬š‚1r pšrpš‚Er pšrpš‚Wr pšrpš‚kr pšrpš‚r pšrpš‚r pšrpš‚£r pšrpš‚¶r pšrpš‚Čr pšrpš‚Ür pšrp‘–hš‚įr pšrpš‚ōr pšrpš‚‚r pšrpš‚‚r pšrpš‚‚,r pšrpš‚‚?r pšrpš‚‚Rr pšrpš‚‚fr pšrpš‚‚yr pšrp‘–šš‚‚„r pšrpš‚‚˜r pšrpš‚‚«r pšrpš‚‚¾r pšrpš‚‚Šr pšrpš‚‚ćr pšrpš‚‚ör pšrpš‚ƒr pšrpš‚ƒr pšrpš‚ƒ/r pšrpš‚ƒCr pšrpš‚ƒVr pšrpš‚ƒir pšrpš‚ƒ|r pšrpš‚ƒr pšrp–š‚ƒ›r pš2rpšrp€.ji kh #²ŌC†!pbp!2¢i!1³Ō!1£i†!1¢pbp!2¢i!1³Ō!1£i ķhŠøšrpšrp–¤š‚ƒžr pš2rpšrp€.kj lh $²ŌI mi!%²Ō3†"p"2¢j"1³Ō"1£j†"1¢p"2¢j"1³Ō"1£j!ķiŠČcp ķhŠ²šrpšrp–š‚ƒ”r pš5rpšrp€.jikh #²Ō#†!pbp!5¢i!1³Ō!1£i ķhŠŲšrpšrp–vš‚ƒ„r pš5rpšrp€.kjlh $²Ō1mi!%²Ō†"p"5¢j"1³Ō"1£j!ķiŠącp ķhŠŹšrpšrp–Zšrpšrp‘‘†p$†Ė×x„†Ė×x„„1ī„&„5…&²Ō‘ 5ķ„Šńšrpš‚ƒ©r p†‘5±”51³Ÿ”Ōć5²ń‘ 5įŅךrpšrp‘1ī„&„2…&²Ō‘2ķ„Šńšrpš‚ƒ»r p†‘21³Ÿ”Ōē2³Ō‘ 2įŅŪšrpšrp‘– Press return to continuee’& This program is intended to help youu&find the fastest interleaving and skeww$arrangement for your disk drives. Iff#your drives need some delay after a)DSKSTRT or before a DSKSTOP (i.e. turning"the motor on or off or loading andd%unloading the head), this program may(not operate correctly. If the program iss#running properly, some interleaving'ratios will be much faster than others.&Dots will be written to the console att%the rate the disk reads complete. The&best interleaving and skew will be thee&ones for which dots are written to theescreen the fastest.& First you will be shown all possiblee#interleaving ratios in a  short test&execution. You should watch the screenn&and remember approximately which ratioo!results in dots being put out the$fastest. After this is finished, youu$will be able to run a longer test onn#the ratios of your choice to aid in&determining exactly which ratio is theefastest..$ Now you will be shown all possiblee$skews in a short test execution. Youu$should watch the screen and rememberr#approximately which skew results in%dots being put out the fastest. After%this is finished, you will be able to&run a longer test on the skews of yourr$choice to aid in determining exactlyywhich is the fastest.& If all ratio and skew tests executedd%at the same speed, then you will have%to guess at the proper values and try"them out by running the diskchangee$program, rebooting, and seeing whichh%accesses the disks the fastest (steps#2 through 4 in the adaptable system'user manual). Start your guesses with a$skew of 0 and interleave ratio of 2..'Keep trying larger ratios until you see$a large speed up. Then increment thee%skew until the speed increases again.%The speed increase from the skew will%be not be very large so you will haveto observe it closely..SKEW=SKEW=RATIO==RATIO=="Ratio to test ( to exit) !SKEW to test ( to exit) ŌO¶XšV$ = PASCALIO ˆ YALOE  €€€€€€€€€€€€€€€€I#(ī^ļ^ļ]„žYALOE>83¦†ø NŒŪīĄ++RŽŪīN(ˆļŒ|:€ī$/ˆļ‡ YALOE Ī%! ²ń jŠ!j–!¤ †"dr°Õć0n10£i4!£h 0²ń <0< !pŠš‚€s šs¤ ‹o0Ōo0ķ„ 0£j†"<0"įrj†"såp± " Ō†"tš‚€ s šs&„¤ ŠQ"m'Ō0ī„<0ķ<0%Œp0k%²ń3%īm0’¢„#¢kį<0pl0$¢ķ„%²ń <#<0pŠČ†"t< <0!p!0¢„<1Č&„–U š‚€s šēÉń š‚€s šs‚€&uh ³ń}h† ˆ£u„† ču„ i„3!²Ō†3×ē˜Ä3ķ„Šģ„„5„„ „ šē"É„ šē,É„šē,É„ šŌv†"ia›˜va‚€'va›&˜va˜t‘Ōš‚€(s šsŁŠ6š‚€3s ›.§²ńš›.˜s š€ rš‚€8s šsŠ„<Ț‚€<s šs„„– 70ibwcw#p„†"#įrŅg0’¢1³ń^žį <0ž¢ph<0#’ ¢p#’ ¢ ąķp†"#įrÓbwš‚€Fs šs†"tp0’¢ ¢„Š™01³ń@<110££p<0#p†"#įrÓbwš‚€Rs šs†"tpbw†"t!„–䄃€_ĒŽ‡x„ŠŚń,šsš‚€gs š‚€s šsš‡s šs‡x€U°‡x€u° ŌH`‚€‰ė†"`˜t‘››@ė›&‚€’ėŁ`‚€šė†"`˜t†"tŁ›‚€£ė‡x„ŠŚÕf’–šsš‚€¤s šsšsš‚€µs šsš‚€Šs šsš‚€ės šsš‚s šsš‚s šsšsš‚,s šsš‚=s h„3 ²Ō!†3×y˜Óš3sš‚?s 3ķ„ŠŚšsš‚As š5sš‚Ls š1sš‚Qs š51£sšsš‚as š54£sš‚ls  –‹;č7plš¤‡ē¤‡ē¤‡ēÉ°¤ ‡ē+Ém‡ɤ ‡ēÉo‡ēÉn¤ € j„hišbs šsŌ9j"7±!å Õ "ŅšēÉŌ $€€ŅlŠ€€l"7°i!Ō‹×"%Ņb3²ń]3ī„*Ō!)Ō š;3§rŠš€%rš;3§rŠ5;3§ Ņ¤k#‡²Ō š:r#ķkŠīŠš:rš€ rš:r"8Ņ]*Ōš‚ps šsŠ!š(rš'ršsš(rš&r3²Ÿ;3§9±”Ō3ī„Šī3Ó3ķ„Šš€*r‹Œ"€ ³ńF"ƒsŚŌ);3"Č3ķ„!Ō š€$rŠ"Ņ šrŠš"r"Ņ „šs pŠ@"%±)”Ō*Ōš€%rš"r;3"Č3ķ„Š"%±"€ ³”"8±”Ōš"r;3"Č3ķ„"%°¤ 3č€P£³Ōf3č£²ń<š‚us šsšbs "Ņ „ pŠ"7Ņšbs "7Ņ pŌʊ! å"9°”Ōš‚s šršshšbs šsŌ9j"€ ³Ō"$¢j‹īżš€$ršs3ī„–®š rš‚”s šsp–"0Ä!²Ō/""xīÄ"xķį9<"xph""x ¢Ä!ķi!²Ÿ"x³Ÿ ŌŲ""xķĊ#1"x£ī9<"xph""x ¢ķÄ!īi!°"x1° ŌŻ–o­Ņ `ļ 0£¦0­¢h­³ń ³ńh<0< 10£ķp10 ££„ „Š$ 1³ ³Ÿ Ō 0„<0Ȋ< <01 £ķp1 0££„–ą­³ń"00į­<0p¢„0²Ō ¦„pŠ"010£ķ­<0p¢„01³Ō ¦1„p<0ˆ­pˆˆ9č¦0­¢„­Ō––Š k­³ń ­į¦įiŠi2ķ„h;2§l;2 ¢§7Ó ķhŠó €f³Ōš‚„s šsp;2„9 p„9 Če Čjk­ī¦­²" Ōš"Ōš„9˜s š‚¬s šsp!³ń0ķ„Š0 ¢ī„2 ¢„ „–k h2ķ„32£7;2pj1"¢i!5²ńš‚²s šsh51£j5i!4²ńš‚Ås šs5„<0<0"¢40"¢£p;2<0"p1"¢„0"¢„"„ Ōp2"¢„–A ­Ņ†ļ Š0­¢„0³Ÿ­³Ÿ”Ō„Š0³Ÿ01²Ÿ Ō1„–~ `­ļ ­²Ō<0< 10£ķp10 ££„00 ££„Š< <01 £ķp1 0££„–„ `­ļ ­²Ō < 0 £pŠ <0 0£p–: ­³Ÿ­ ²Ÿ Ō€#ļ †­×y˜Ņ †­×ē€2w;2ķ§h32£ ;2¢pi!32£°!€d²Ÿ !° Ōš‚Šs šsp;2¢†­×y!p†­×y!ķ€d!£7p†­×!Ä2!¢¢„–į 2ķ„;h3j2i;2§7ŅkŠ;2§€0£k†#×y˜Ņš‚Żs šsp#³Ÿ# ²Ÿ Ō€#ļ †#×y„ †#×x„­²ń2­ī¦‘Ō ¦p23³Ÿl$Ō¦š‚źs šsŠČ „ "„!„$Ōp–› -2ķ„7;2ph ² ²Ÿ”Հa Č;2a p†"a˜tpŅ ‘ŌpŠY†"¤„a˜€(v„‚ń€-v„˜tpŅ ‘ŌpŠ(š‚ōs ša˜s š‚ųs šspŠš‚‚s šsp2 ¢„–-ļ a­ļ ­²Ō0!£hŠ!0£h5 £„41²Ō5„š‚‚ s šsp­²Ō Š:! Š5;2ķ§ia‘!ƒ‚ZŚopŠŠŠŠŠ Š ŠւbŠ! 2ķ„‹Ęž–”†"†Nįt‘š€*r‘ ‘Ōń†"t–not enough spaceenot enough spaceeYALOE:: - ? for details:Lost workfile sourcee Workfile read inNo workfile to readOutput file error: HelpOutput file error. HELP! $ $.Quit: U(pdate work file, E(xit without update,, R(eturn to editorr*SYSTEM.WRK.TEXTTSYSTEM.WRK.TEXT*SYSTEM.WRK.CODEE!Yet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jump5Kill List Macro Now 8Quit Read Save Unsave Verifyy Write eXchange ?elpp%Ctrl-X (can) to cancel command input. The macros  you have defined are:: -  - Your text buffer is  bytes,  of which are filled, leaving Your 'save' text is  bytess or (^X). please finish : IS IN ERROR, COMMAND STOPPED.. Find too long not foundd%insertion truncated, not enough space'save' area deleted..Error in macro definitionILLEGAL MACRO...Try again macro haltedd.TEXTFile:  is in error. Not readFile name error..Not enough room to save innnot enough spacee.TEXT.TEXTFile:  is in error. Write not done. Illegal title’(€ €ž’’ž’’ ?z’”’›’ ’¦’Ę’Ŗ’Ŗ’Ę’®’²’¶’ŗ’¾’Ā’Ę’Ę’Ė’ć’ē’Ę’ė’ļ’ó’÷’Ę’Ę’”’›’ ’¦’Ę’Ŗ’Ŗ’Ę’®’²’¶’ŗ’¾’Ā’Ę’Ę’Ė’ć’ē’Ę’ė’ļ’ó’÷’Ę’Ę’¬£zPóŸUA#Ē:r ŁČ‚ōž-“ ¼HEAPOPS STRINGOPEXTRAHEAFILEOPS PASCALIOEXTRAIO  - IV0LIBRA  €€€€€€€€€€€€€€€€ė2 (e,ÓŲļŲļh°žSCRTST|8īb ĄÅĄŽj0\/b ĄÓ¢,š‚Ø@€Ó ž, IV0LIBRA›3…aŌ'&tŠšu`rh`r–c)`„*¬P …g‘švš‚€u š`˜u rs–+P‡Ņ1¤Š0¤¤‡˜Ó#‡x˜±‡‡ķ±”Ō‡x¤‡ķ¤ŠŻ‡˜±‡‡ķ°”Ō|‡ķ¤‡ē¤‡‡‡×ҁē‡ē ‡×ҁē‡ē`‡×ҁē‡ēp‡×xćē‡ē€€‡×ҁē ‡ē€‡×ÅŠ‡ē†€¢Å‡ēćēŹ–Q(ķhj9³Ō 9ķ ³ŸjŠj"Ōq0˜Ņ †w0kŠ0k#x˜Ó#xkŠö#w#xk#˜Ä9ķ¢„ #l$ēm$ēpni!&²Ō%ē`!׏%ē !׆€¢Å!ķiŠą$ēÄ$ē€Ł‚€ėM9ķ ³Õp’0k l„7$²Ō #xk7ķ„Šņ(ķ¤ #l'm$ē(×%Å$ē!(×%ēÅ$ēa(×%ēÅ$ēq(×%Ä$ē€(×%ēÅ$ē€‘(×%ē Å– n!xh!`§Ä``§Č`!xČ! Ė`‡Ł¤¤‡‡²Ōy`‡×¤‡‡ē„a‡×„a‡×ɤ„q‡×„€‡×‡ŚŌ)¤¤‡‡²Ō„€‘‡×‡×‡ķ¤Šß‡ķ¤‹~’„„€Ń‡`Ł–õ$°Õ•1h ˜Ó i xha” Šī˜„jį„ ” ō³ń ‚€‘p`w1˜Ņ „Š! Ä i ˜Ä†6 ē"vÓ‚€‘:ķ¢„ ꁱ ꁁ±”Ō‚€"‘ ęÓ ē ę€Ńj"ŅŠŠ:0ik!˜Ó2!x˜Ó2j2ķ„Šj!ē€Ń"Ć!ē#vÓ‚€)‘"k!xiŠŹ– į„ į„ ˜„˜„–Ü]„5„^¬Paw” m%³ń}m%£k#³ńkŠ #€@³Ō€?k`#Œ” Ņ ‚€7‘‹‡`#²ń#jŠ‡`jn†6 "‡bv"Óog‚€=” g„5˜€X” g˜‘Š+† "‡av"Óog‚€B” g„5˜€X” g˜‘Šn‡b"¢¤b‡a"¢¤a‡`"£¤`‡`°&å Ō‚&¤caw–b /†€¢Å.-`‘fɊ/bÅŠ /„ ÅŠրG–>¦­­h¦­ ²Ō ­­ˆ‘ˆ ÉÓ­ķ¦­ķ¦ŠŚ–V…`å‡ Õ ‡Ņ…kh:iŠ…hh9i…a…`å”Ō …f¢ī¤j"‡²Ō "‘r"ķjŠļ #Ņ¤ #…f…eŒ³Ÿ‡²Ÿ”Ō‡ī¤‡‡d‘„ ÉÓ#ķkŠ×k‡j"!²#…f…eŒ³Ÿ”Վ‡"d‘„ ÉÓz#…fŒ #…f¢‘š"u„ Ɋ4š‚€Mu Š*š‚€Ou Šš‚€Qu Šš‚€Su ŠրUšfu š%u#ķk‡Ņ "„q‡„rŠ"„o‡„p"ķj‹c’–×…a…`å”Ō…h…h…f¢ījh "²Ō ‘r ķhŠš…b„c…sjh "²Ō …c|„c ķhŠń…si…c˜±!…f…dŒ³Ÿ”Ō"!…f Œ…h!…f¢‘š…cu …c|„c!ķiŠĻ…c˜Ņ„sŠ!„s– cg«c†€¢¹ń4…bh ˜°j"ńc ¹j"ń  |h"Ōé ˜Ņ„s`w ē…bÄ „b…bcÅ– f¦hˆÉ°…_”­±”Ō(­ ¦­­­‚€[‘ Ō­¦­­¢¦hŠh–²iˆÉŚŌ­hŠh­ ¢€’¢¦­­­‚€d‘ Ō­¦­­¢¦­¦i–7¤ˆÉŌo¤†6`įvŅO†`­vŅ8­ķ¦¤¤¤¤‡‡²Ō`‡×|Ņ¤‡ķ¤ŠąŠ‚€k‘Š‚€u‘‡Ō“Š¤–xˆ­§h­ķ¦­Ņ&¦­ķ¦†ˆ­vÓ ‚€‘p–ö ˆ ÉŚŌm­²ńg­­¢j­Œh†g"vŅ@­ī¤ k#‡ ²Ō-¤ i!‡ ²Ō „!Č!ķiŠģii„˜‘#ķkŠĢŠ‚€Š‘– ć $¤'‡&„‘2m‡%įŅ3‡&f‘„ ÉÓ!į¤%l$f‘„ ÉŅ$¤%$ķl‡%įÓēŠ‡&¤%‡%f‘„ ɰՉ„ÉÓxŌqŌlŌg%„"n!o ¤„ „Å„ „Å„„Å„„Ő„!‡%‘ „!˜‘„ÉŚŌ„˜‘‡%f‘1ē€Ł§Ó 0ē€Ł1ē€ŁėM¤'‡&„ ‡%„ Š‚€”‘Š‚€›‘–& -¤.…l‘†u‚€«ėPš†u˜u †u§…lr†€§r„€§†€§rš†u€Pu šu †u§Ņp„^†6” †6†u˜” pÓ†6jb†u˜€P” b‚€²€U” b˜” pi!Ó‚€µ‘!°Õk’‘į„ ¤.„^–-¹ š`u ƒ€¼ŚŌ €a£€A¢h aŠŚŌą ¤–^ ¤ š‚€Äu )Ōc…€¦Čš…€¦viŠi !£hšbu c!"Čc!§ Ņc!€ Čc!§„€¦ca`rń…€¦ƒ€ÉŚń!īi ķhŠ š…€¦v…€¦€ ° ³Ÿ Ō³*Ä!£¤ h (²Ō* *xŒc §¢€0£Ä ķhŠé!²Ÿ¤ – Į šę%išę&hšēÉ„ašēÉ„`!£„f ī„e ī „d„n…nķ„m…mķ„l…lķ„k…k…f¢„j…jķ„i…iķ„h…h…f¢„g–• į„rį„qį„pį„oį„ į„ „sr …n‘š‚€Ķu š‚€Ņu …j‘†u‚€ŲėPš†u˜u †u§…jr†€§r„€§†€§rš†u€Pu šu †u§Ņp†u‚€ßčŌ†u‚€ąėP††u˜” p„6Ó‚€č‘6Ņˆ†€¢‚€ļÅ„„_‘ ‘Ō‘ – '¤)‡(„‘„ÉÓT¤)„‡(‘ „†€¢¹ń?9¤'i!‡'²Ō4!b‘„ ɄÉŅd„¹Ō„#!‘ „#„¹Ō¤)Š!ķiŠĘ–(M f„ «¤*Ä:m„5%²Ō0a5‘ af¹Ō*Äf˜‘5ļŌ5į‘ńp¤5ķ„ŠĖ– ž…€¦‹”„¤5Ōx/Ō€Y¤ŠK5…r³Ÿ5…q²Ÿ Ō5‘ …m‘š‚€óu š5uš‚€üu rƒ€žĒ‘¤š‡v‡Š5į‘ńpŠ:„Š 5ī„¤Šց5ķ„5:²ŸÕw’‹:¤„5‡²Ō5Ō 5į‘ńp5ķ„Šį‹ź…m‘š‚@u š†u€Pu šu †u§²ŸÕœ†€ž†€¢Å†u§²ń¤„7‡²Ō†€ž7ī†u7§Č7ķ„ŠźŠ†u§¤„7‡²Ō†€ž7ī†u7§Č7ķ„Šź¤„7‡²Ō$†€ž7§ƒOŚŌ†€ž7†€ž7§€a£€A¢Č7ķ„ŠÖ†€ž˜„ń.Ō ‚W‘Š‚h‘Š$¤…bh ˜Ó ˜„Ō¤ |hŠė‡ŌįŠցu–(††:į” †6†bį” ‘˜„b„€­†€­‚ˆ€2” †€­‚¢€d” †€­‚¼€r” †€­‚Ä€|” †€­˜įį…nƒŹĒ€,r„€¦…€¦ƒŠŚń š…€¦v…m‘r …g‘r…€¦ƒŌŚÕ¢…^Քį„ …€¦ƒŚŚŌB…m‘š‚Žu †‘Ō(5:²Ōš‚įu †‘Ō54‘ŌŠ‚ę‘Š‘;įÓ9<…r³Ÿ<…q²Ÿ Ō<‘ ;‘ …i‘š‚ōu š2uš‚üu Š‚‚‘Šc…€¦Š[…_å„_…m‘š‚‚u …_ń š‚‚u š‚‚u Š-‘Š)‘Ō‘ Š…qķ‘ Š…oķ‘ Š …p‘ Šւ#…€¦ƒ‚ZŚÕjž…€¦€QŅn…m‘š‚‚`u …mr†€§r„€§†€§rš†u€Pu šu †u§Ó 0ē€Ł†uėM‘…i‘š‚‚eu š2uš‚‚mu †” †” †6” –ERROR: no mem room for seg dicttreading segment dictionaryy bad seg dicttwriting segment dictionaryy No mem roomreading writing ī’ī’õ’õ’ p  u  s  a É’Ö’ć’š’interface section code segmenttwriting linker inforeading linker inforeading seg ref listtreading segref list empty segmentdestination slot already in use Input file? .code no such fileež’’slot #? ’ Library: [IV.0 z10]] Output file? **SYSTEM.LIBRARY no such filee Copy from slot ##?  @ Yļ’ō’ą’Copy what compilation unit? ž’’ comp unit already in output   fileeno such compilation unittCS’īžÜ’\ž2Library: N(ew, 0-9(slot-to-slot, E(very, S(elect, 2C(omp-unit, F(ill, I(nput, O(utput, T(ext, R(efs, A(bort, Q(uit [IV.0 z10]]’jĀ’’h’From  To no such slot in source fileOutput file is blocks longgsource file not opennInterface sections will not be copied Tõ’ć’×’ģ’Ó’¢’Notice? Output file is blocks longgƒM©±ć_Jō>Ūµ’~n-…”pż+9«4 FILEOPS STRINGOP EXTRAHEA HEAPOPS EXTRAIO PASCALIOGOTOXY COMMANDISCREENOP O^(*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN "IF X<0 THEN X:=0; "IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));  END;  BEGIN  END. © SCREENDI    €€€€€€€€€€€€€€€€—&·&_ššh°žSCRTST‚2OØBõĀ½’ łÅ’šfņ&:š‚®:€_&.Ø SCREENDI-Œr†/€%pš‚€s šsš‚€s šsš‚€/s š‚€Ks šsšs†€Ær†€éɀ’Ė„†€éɀ’Ė„†€źÉ„–Īš‚€Qs š†€Ps šs †k†˜tp°†§° ŌĻ„†§±„–Qr šsš‚€ms šs2Ōc†ks†k‚€€s †k4s†k‚€Œs †ks†ktš‚€—s š†˜s š‚€žs š4sš‚€¦s šs–€`„€¬’2Ō 4ķ„†k4s†k€ u†k`˜s †ks–€‚«*a„+¬Pš`s ƒ€«ŚŌš ƒ€³ŚŌa˜‘–,/iˆ#xģ§h ƒ€ŗŚŌ>! Œ ¢€0£i!€’²ń(š‚€¾s š‚€Ńs š#xsšsp##xķĊ "Óš‚€Ös š ušsp "ŅŒ##xķÄ!l–…e„€†¬’le§k$#²ŌV#$£ķ€|e$ģp$¢j"#²ńe$ģ#$£ķp#ķlŠ-e$ģ"$£pe"ģ§€|Ņ"ķld€ id€|h! rŠ"ķlŠ„–€‡»š‚€ķs šs‚ ‘–ī0­1°£h¦­ ³Ō­­rš€A­¢u­ī¦Šß–_r r0ji!"²Ōš€A!¢u!ķiŠź1jh "³Ō īhŠō‚#‘‚?‘‚S‘h h 1rš€ 0u1r‚i‘‚|‘–t­­rš€*u–Qr ‚‘‚®‘r 1kj"#²Ō šs"ķjŠń0£kj"#²Ō š€ u"ķjŠīš€>u0ī1r‚Å‘‚ć‘‚ķ‘r rkh #²Ō šs ķhŠń‚‚ ‘ h ki!#²Ō !ķiŠō i kh #²Ō ķhŠōh ki!#²Ō !ķiŠōi kh #²Ō ķhŠō‚‚‘‚‚4‘ –r ‚‚G‘‚‚a‘‚‚{‘r ‚‚‘‚‚¦‘–Čd„<„e¬Pr ‡grš†/0ķs ‡h‡gr‡gr ‚‚Į‘h`‚‚ם€%v`„<˜€uv`˜‘–h%€- ‚‚ź ‚‚ī0‚‚ņr r1ījh "²Ōš†/0ķs ķr ķhŠå r r ‚‚ś‘‚ƒ‘–,–‰r rih !²Ō š€*u ķhŠīš€>u0ih !²Ō š€$u ķhŠīrr‚ƒ3‘‚ƒQ‘‚ƒ\‘–ār r1jh "²Ōš†/0 1°£ķs 1³ń ķr ķhŠÜ r r ‚ƒr‘‚ƒ‘‚ƒ­‘‚ƒĮ‘–śr ‚ƒŌ‘r ‚ƒņ‘–Yr ‚„‘rr‚„‘‚„3‘rr‚„J‘rr ‚„_‘rr‚„s‘‚„ˆ‘rr‚„œ‘–‡r š†/0ķs ‚„°‘1rš u‚„Ź‘–4„€„€-pc€+pj"0²ÕŠr "h" ¢²"0²”Ō>" £ķr"²ń šc"s "ķ0²Ōš€<u0"£i!²ń š„€„!s "ķjŠ·r "¤i!‡²Ōšuš!€ ¢ušs!ķiŠŽ‚„ć‘‚„ž‘‹p’– d„<„g¬Pr kc‚…vc„<˜€avc‚…"€hvc˜‘šˆs šsŌ ¦ˆrj"‡f°‡f ±‡f °­‡e°” ”i‡fŅ"°"° i„<‚…&čŌ ­ °"° i!ńO‚…+‘‚…;‘šˆs ­ƒ…SŚŌķ­ƒ…[Śh Ō!kc‚…bvc„<˜€_vc‚…j€ovc˜‘ ! Õ5’–h€‚…s‚…x‚…~‚…„ ‚…Š‚…”‚…™‚…›‚… ‚…¤ ‚…؝ ‚…Ŗ –Z ©„€„€Ŗ¬P‚…Ɲ‘­ƒ…ĮŚŌ š­uŠš‚…ɝs š­sš€)uh`‚…Ģv`„€˜€Qv`˜‘‚…Ķ‘šˆs ­ƒ…äŚŌķ­ƒ…ģŚŌ6„€‚…óėP„€ģ­Ȉh`ˆ˜€’v`„€˜€’v`ė’­ķ€’Ė¦rrrr r r­¢­£r–€«Ļ r ‚…ō‘‚†‘&€ Ņ‚†‘&%lj"$²Ō š"u"ķjŠļr&jšas ar Ó ‚†3Š"!Ņš"u"ķ€’ĖjŠ‚†J"%²ńŹ– `‚†Kė’€ €O3ń€P€`€{€~Š€P€~`§²ń¤€„€‚†L€%v„€`˜€’v„€˜‘–R †k†‚—įt‘‘‘ ‘‘ ‘‘‘‘‘‘‘‘‘‘‘†kt–*Screen Control Diagnostic Program IV.0.BB-Copyright (c) 1981, SofTech Microsystems Inc.7Answer all verification questions with a 'Y' ('y') or 'N' ('n')..7What file should errors be logged in? ( for none) $Done with Screen Control Diagnosticss***** End Diagnostic;  errors encountered.. Error File """ closed with  errors..@@@@’%integer overflow in message procedure .  index=,illegal character in message procedure. ch==9* Is this sentence surrounded by two asterisks (stars). *0test_basic: not all characters being written outt6|0 0|Are all of the below lines the same (except for aa'|0 1|missing char in the lower right) ?*exhaustive_gotoxy_check: first pass not okk$Are all of the above lines the same??'exhaustive_gotoxy_check: top line error;|0 0|Does this message also start at the upper-left corner?,test_gotoxy: sc_goto_xy(0,0) did not go homee:*|0 0|Is there a '>' immed. followed by a '*' in the lowerr|0 1|right corner??:test_gotoxy: sc_goto_xy(screenwidth-1,screenheight) not okk-------->|9 9||@|5 0|Does the box have 10 stars per side and start at the arrow??$test_gotoxy: box not correctly drawnn3|0 10|Is the screen blank (except for this sentence3|0 11|and (maybe) the lower-right hand character) ?#test_clr_screen: screen not cleared1Does this message start at the upper-left corner?4test_clr_screen: cursor not left at (0,0) afterwardss*|0 0|Is this the only thing on the screen??%test_clr_line: didn't clear enough - (45,12)(0,10))(0,Screenwidth)>|0 0|Are there two blocks of "%"s (no gaps or missing chars) ??1test_clr_line: Clearing one line affected another;|0 0|Is the line below a series of stars immed. followed by a right-arrow ('>')?+test_erase_eol: sc_erase_to_eol didn't work9|0 0|Are there five full lines of '%'s followed by a line:|0 1| with just five '%'s (and maybe a stray character inn'|0 2| the extreme lower-right corner)?$test_etoeos: sc_eras_eos didn't workk;|0 0|Is the cursor at the upper-left corner (over the 'I')? test_home: cursor didn't go homee4|15 15|*|0 0|Is the cursor to the right of the star??)test_single_vectors: sc_right didn't work,|0 0|Is the cursor to the left of the star??(test_single_vectors: sc_left didn't workk'|0 0|Is the cursor just below the star?(test_single_vectors: sc_down didn't workk'|0 0|Is the cursor just above the star?&test_single_vectors: sc_up didn't workk3|0 1|Is this the top (and only) line of the screen?1test_scroll: sc_down at bottom line didn't scroll4|0 0|Are all the lines below a '<' followed by '-'s??4test_DLE_expansion: expansion not happening properlyyPlease press the  key. line feed|0 5|Key typed is not correct...|0 6|Do you wish to try typing this key again??@@@@test_keyboard:  key not correcttup-arroww down-arroww left-arroww right-arroweditor accept (etx)line dellDC1 backspaceescapeereturnntab line feed"|4 7|Bad character. You typed a ''’’’’’’’’’’’chr(('-|4 9|Do you wish to try this character again?@@@@ 8Please type in the following characters|2 1|in the EXACTT order shown:|4 4||.|2 2|Note: The first character is a space|4 4||,,|4 8|which is interpreted as a special key..%check_normal_keys: Can't type these: B°ź F/’óĒ˜•Bf+²`y¼QŲĆ«iH STRINGOPEXTRAIO FILEOPS PASCALIOSCREENOP  V’SCREENOPSEGSCINI    €€€€€€€€€€€€€€€€”SCREENOP&µ&_€ļ€ļh,ž4.0D™¼„2] œLŗĄšl*®) œL_ņ&Ŗļ‚°:€_Š-  const $sc_fill_len = 11; $sc_eol = 13;   type $sc_chset = set of char; $sc_misc_rec = packed record 8height, width : 0..255; 8can_break, slow, xy_crt, lc_crt, 8can_upscroll, can_downscroll : boolean; 6end; $sc_date_rec = packed record 8month : 0..12; 8day : 0..31; 8year : 0..99; 6end; $sc_info_type = packed record 8sc_version : string; 8sc_date : sc_date_rec; 8spec_char : sc_chset; {Characters not to echo} 8misc_info : sc_misc_rec; 6end; $sc_long_string = string[255]; $sc_scrn_command = (sc_whome, sc_eras_s, sc_erase_eol, sc_clear_lne, 7sc_clear_scn, sc_up_cursor, sc_down_cursor, 7sc_left_cursor, sc_right_cursor); $sc_key_command = (sc_backspace_key, sc_dc1_key, sc_eof_key, sc_etx_key, 7sc_escape_key, sc_del_key, sc_up_key, sc_down_key,  7sc_left_key, sc_right_key, sc_not_legal); $sc_choice = (sc_get, sc_give); $sc_window = packed array [0..0] of char; $sc_tx_port = record 8row, col, { screen relative} 8height, width, { size of txport (zero based)} 8cur_x, cur_y : integer; E{cursor positions relative to the txport } 6end; 4 "procedure sc_use_info(do_what:sc_choice; var t_info:sc_info_type); "procedure sc_use_port(do_what:sc_choice; var t_port:sc_tx_port); "procedure sc_erase_to_eol(x,line:integer); "procedure sc_left; "procedure sc_right; "procedure sc_up; "procedure sc_down; "procedure sc_getc_ch(var ch:char; return_on_match:sc_chset); "procedure sc_clr_screen; "procedure sc_clr_line (y:integer); "procedure sc_home; "procedure sc_eras_eos (x,line:integer); "procedure sc_goto_xy(x, line:integer); "procedure sc_clr_cur_line; "function sc_find_x:integer; "function sc_find_y:integer; "function sc_scrn_has(what:sc_scrn_command):boolean; "function sc_has_key(what:sc_key_command):boolean; "function sc_map_crt_command(var k_ch:char):sc_key_command; "function sc_prompt(line :sc_long_string; x_cursor,y_cursor,x_pos, 7where:integer; return_on_match:sc_chset; 7no_char_back:boolean; break_char:char):char; "function sc_check_char(var buf:sc_window; var buf_index,bytes_left:integer) 9:boolean; "function space_wait(flush:boolean):boolean; "procedure sc_init; $  implementation   ‘SEGSCINI…=†Jē ŲÉń†fē*†fē*Š†Jē §ā¼ŪĒŽ–U†Jē "ȆJē Ų!Ź–l"­ē$!ŲÉ ļ ļ–•†Qē ŲÉń†fē*†fē*Š†Qē §ā¼ŪĒŽ–µ†"Ų Ź†Qē "ȆQē Ų!Ź–Ģ"­ē/!ŲÉ ļ ļ– ›ap!k€’lh $²Ō † Ų Ź ķhŠī†Q#ē-ÉĆJ#ēÉĆfē)›DÅ#ēl†fē:m%#ę%īŹ%#ę&īŹ%ēŹ%ēŹ%ē$ÉŹ%ē$ÉŹ%ē$ÉŹ%ēŹ†fē*ā¼#ē-Éā¼Ū#ēÉā¼Ū ā¼Ūā¼ŪĒŽ#ēl$ɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ$ēɐ #ē%l$ēÉ $ēɐ$ēÉ $ēÉ $ēÉ $ēɐ$ēɐ$ēɐ$ēÉ †Qē§Ņ†Jl†G‚€ė$ēŲÉŌ†G$xȊ†GȆG$ē§Č$ē§Ņ†Gme†G˜se‚€se†G˜ seė†fē*†fē*Š ā¼ŻĒŽ†YȆA p†A#ē"ÉȆA§ ²ń†A Ȇ`k#ēÄ#ēÄ#ē†fē:ÉÄ#ē†fē:ÉÄ#ēÄ#ĆZ†`Åq–   ]M8-! hUSCREENOPr–6"x!³ń"!Ċ "x ²ń" Ėe†Jh ē!ŲÉŌš xtš ē!§tš†A˜u –ƒ†`†Z¹ !‘”h Ō!‘ åj–Ÿ!"±h†`†Z¹  Ō#‘ l–»†fh"Ņ!†fÅ<Š†f!Å<–Ō!Ņ †ZÅŠ†Z Å–Ž†Zyh–č†Zxh–†Zhb z‘a {‘†fē;ÉŌ |"¢ }!¢vŠšu ē"Ä !Ė£#’į°i†fē;ÉŌm†Zj!ń$#‘"z"|¢†fē:É°‘”Ō‘ŠJd"z‘c"{‘†Y"z$£ķ€ ¢Č#"}¢†fē:É°! Ō †Y"z$£€ ¢Čš†Yu !ŌšuŠ$#‘–½†Zh y‘Ō ē yīĖŲ†Zh y z‘Ō ē yķĖļ†Zh x‘Ō xīĖ†Zh x {‘Ō xķĖ†Jē §±i–'†Qē §±i–s†Qj#x"x°"x±”Ō iš#u Ši†#xŲÉh Ó!å"ē ŲÉ”!"ē ŲÉå” Ō h l–‹‘ ‘Ō‘ Šp"–œ‘Ō!‘–Ć‘‘ Ō’į‘ Š‘Ō’į‘ ‘–į‘Ō‘Š †Zh ēÄ Ä–#"‘‘Ō%†fē;ÉŌ#"‘"ķ†Z{ih !²Ō ‘ ķhŠó#"‘–Pš‡u šuŌ‡ ćxƒ€ŚŌ ‡‡x€ £Ä‡x`ŠŚŌĪ–q€‡€ƒ‡€‚`‡€p`‡€Čš`˜u –€ƒˆ! ¢i!­³Ō­ķi!j–ī „€Œ„"¬’†fē:¤ ¤ ‚€ „€Œ˜sm%„€Œ§ķ%£€[„€Œ%p¢l‚€ „€Œ˜„ $„€Œ§$£ķs„ ˜sj%ķo*ēÉŌkŠ †Zzī%"¢£k‡’įÓ‡‡‘*ēÉńšu'i#²ŌnŠc$'£n&€ „€Œ'p¤ &(£n'(¢o&#²Ÿh Ō#£#į‡ „€Œ'#¢£p¢n&²Ō '$'£‡ „€Œ'pķo!'ŅnŠįn&³Ō„€Œ%‘%Óš€ t„€Œ'&‘'&¢$³ń š‚€ u „€Œ$"‘'&o‡!³Ō‡!‡ ‘‡ ń„ „Šƒ€ŪĒ‘ )€?±Õ ’)¤$–#Ā'&x§h¤ j†Jk`‘Ņ\‘å†fē;É Ōš‚€u šuŠ1&xīli!$³Ō'!§€ ³Ō š†G˜u !īiŠå‘Ō ’į’į‘&x£j¤ ŠP`‘ŚŌE¤ &x²ń:įj‘ń € ³ń š€_tŠš tŠ'&xī§€ ³Ō ‘š€ t‘Šj&&x"¢Ä%%x"£Ä–!Ōp"š9ēĚ‚€u šēÉń š‚€u š`u šē,Éā¼ƒ€#ŪŚŌåšu € ±j– –ž’’:]? €> to continuee»ŖD5 ćzĘqlPvsdH<ŽśīįŌ’`RGOTOXY PASCALIOEXTRAIO STRINGOP  µ IVMDCODEIVDCODE   €€7  7Copyright (c) 1981 SofTech Microsystems. Regents of UC. “IVMDCODE™6"i`aɀ’ĖŹ`aɀ’ĖŹ k–b†8Ł¤i!‡²Ōb!€’Ė×b!€’Ė×x‘Ä!ķiŠß€`€¤i!‡²Ōb!€’Ė×b!€’Ė×x‘Ä!ķiŠßb­p­¤‡ē€Š‡ꀩ‘Ĥi!‡²ŌY‡ē`!Ė×ÉŚŌA‡ē€!Ėפ‡‡x‘ćē‡y‘ćē‡z‘ćē‡{‘Ä!ķiŠ –~įk"h†3 Ė×x³ŌJ†3 Ė×x…)Ó††8†3 Ė×xrÓp†3 Ė×x„)†8!p!ꀒӐ"k–Āįjį„+„1…0!Ó!€OĖ†‚8‘„+Š!„+…+³Ō…)„0…+j`‘°„2–jV„.„W¬P†s†„.˜spÓ†jb„.˜€Ptb‚€€Utb˜s†3 €’ppŅJih††‚8 rŅ+†3!Ė× Ƃ8ꀒÓ †‚8ꀩ‘hŠ†‚8ꀩh!ķiŠh °!²Ÿ Ōŗp¤Yį„0į„+„1į„)–X• ¤ …+³Õ†‚8ē`…+Ė×ÉŚÕg‘m%g‘h'Õó„ p ¤ l$‡ ²Ō%‡ $€’Ė$€’ĖȄ $€’Ė×%$£g‘Ä$ķlŠŌj’ik" ¤ l$‡ ²Ō/„ $€’Ė×x!³Ÿ„ $€’Ė×x²Ÿ”Ō „ $€’Ė×xi$k$ķlŠŹ#²ńQ#‡ "€’Ė§ÓB‡ #€’Ė§n‡ #€’Ė‡ "€’Ė§€’ĖȄ #€’Ėׄ "€’Ė×xć "€’Ė&€’ĖČ"ķj#°" ²Ÿ Õ]’‡ €’Ė"ī€’ĖČ ¤ – |& p¤ …+³ÕŠ†‚8ē`…+Ė×ÉŚÕød‘k#d‘h$Õ”'²Ÿ' ²”Ց&m#'£d‘j"²Ÿ"#³Ÿ”Ōv"ķŒ„-†‚8…+Ė×x…-¢„/…-„,„.%ē…/Ä%ē…,Ä%ē"ķÄ%"īd‘Ä%x""¢³ń%""¢Ä%ē"d‘Ɔ8…/rpŅ¤ „1Š¤ Š¤ Š¤ Š¤ Š¤ –ž­‹t­‚€Å‹l­‚€ Å‹a­‚€ Å‹V­‚€Å‹K­‚€Å‹@­‚€Å‹5­‚€Å‹*­‚€!Å‹­‚€%Å‹­‚€)Å‹ ­‚€-Å‹ž­‚€1Å‹ó­‚€5Å‹č­‚€9Å‹Ż­‚€=Å‹Ņ­‚€AÅ‹Ē­‚€EÅ‹¼­‚€IÅ‹±­‚€MÅ‹¦­‚€QÅ‹›­‚€UÅ‹­‚€YÅ‹…­‚€]ÅŠ{­‚€aÅŠq­‚€eÅŠg­‚€iÅŠ]­‚€mÅŠS­‚€qÅŠI­‚€uÅŠ?­‚€yÅŠ5­‚€}ÅŠ+­‚€ÅŠ!­‚€…ÅŠ­‚€‰ÅŠ ­‚€ÅŠր‘–‹­‹­‚€¶Å‹w­‚€ŗÅ‹l­‚€¾Å‹a­‚€ĀÅ‹V­‚€ĘÅ‹K­‚€ŹÅ‹@­‚€ĪÅ‹5­‚€ŅÅ‹*­‚€ÖÅ‹­‚€ŚÅ‹­‚€ŽÅ‹ ­‚€āÅ‹ž­‚€ęÅ‹ó­‚€źÅ‹č­‚€īÅ‹Ż­‚€ņÅ‹Ņ­‚€öÅ‹Ē­‚€śÅ‹¼­‚€žÅ‹±­‚Å‹¦­‚Å‹›­‚ Å‹­‚Å‹…­‚ÅŠ{­‚ÅŠq­‚ÅŠg­‚ÅŠ]­‚"ÅŠS­‚&ÅŠI­‚*ÅŠ?­‚.ÅŠ5­‚2ÅŠ+­‚6ÅŠ!­‚:ÅŠ­‚>ÅŠ ­‚BÅŠցF– ­‹­‚lÅ‹ū­‚pÅ‹š­‚tÅ‹å­‚xÅ‹Ś­‚|Å‹Ļ­‚€Å‹Ä­‚„Å‹¹­‚ˆÅ‹®­‚ŒÅ‹£­‚Å‹˜­‚”Å‹­‚˜Å‹‚­‚œÅ‹w­‚ Å‹l­‚¤Å‹a­‚ØÅ‹V­‚¬Å‹K­‚°Å‹@­‚“Å‹5­‚øÅ‹*­‚¼Å‹­‚ĄÅ‹­‚ÄÅ‹ ­‚ČÅ‹ž­‚Ģŋ󭂁ŠÅ‹č­‚ŌÅ‹Ż­‚ŲÅ‹Ņ­‚ÜÅ‹Ē­‚ąÅ‹¼­‚äÅ‹±­‚čÅ‹¦­‚ģÅ‹›­‚šÅ‹­‚ōÅ‹…­‚ųÅŠ{­‚üÅŠq­‚‚ÅŠg­‚‚ÅŠ]­‚‚ÅŠS­‚‚ ÅŠI­‚‚ÅŠ?­‚‚ÅŠ5­‚‚ÅŠ+­‚‚ÅŠ!­‚‚ ÅŠ­‚‚$ÅŠ ­‚‚(ÅŠւ,– ŗ!€¢²ŌŠ !€Ę²ŌŠ– 6­h…,’²ń0…/ķ„/††8…/rpÓ ēŹ ē Ź„1p„,†8…,’Ė§€’Ėi ē ęĖ†8…,’Ė§€’ĖČ ē ęķą,ķ„,….ķ„.– cļh €²ńa €”€’ĖŹaļ€’ĖŹ!jŠ j– ‚`ļ€’ĖŹ`ļ€’ĖŹ i– Č#p…1°Õ3#i!ē ….Ä!ē …-….¢Ä!ē€’ĖŹ!ēɀ€€ö¼ŚŌ !ēÉ!!ēɀŖā¼€Æā¼Ū€÷€’¼Ūƒ‚^ŪŚŌ!ēŹ!‚‚dÅ‹“!ēÉ€Œā¼€ā¼Ū€ā¼Ū€—ā¼Ū€˜ā¼Ū€œ€£¼Ū€§ā¼Ū€Øā¼Ū€°€ø¼Ū€¼€Ä¼Ū€Ęā¼Ū€Č€Ļ¼Ū€Ńā¼Ū€Ś€å¼Ū€ģ€ī¼Ū€ó€ö¼Ūƒ‚hŪŚÕ!ēɀ€³ŸÕš!ēŹ!ēɀ ³ń!‚‚pÅ!ē !ēÉċČ!ēɀ/²Ō!‚‚tÅ!ē !ēɣċ§!ēɀ?²Ō!‚‚xÅ!ē !ēɀ/£Ä‹…!ēɀg²Ō!‚‚|Å!ē !ēɀ_£ÄŠd!ēɀo ²Ō!‚‚€Å!ē !ēɀg£ÄŠC!ēɀw²Ō$!‚‚„Å!ēŹ!ē !ēɀo£Ä!ē Ċ!‚‚ˆÅ!ē !ēɀx£ÄŠ!ēŹ‹F!ēɋ:!ēŹ!ē Ä!ēɀŠā¼€Ņ€Ō¼Ū€ńā¼ŪŚŌ"!ę €²ń!ē ….£!ę ¢ÄŠ !ē ….!ę ¢Ä‹ņ!ēŹ!ē ċį!ēŹ!ē Ä!ē ċÉ!ēŹ!ē Ä!ē ċ±!ēŹ!ē Ä!ē Ä!ē ċ’!ēŹ!ē Ä!ē Ä!ē Ċt!ēŹ!ē Ä!ēɀ‹ā¼€Õā¼ŪŚŌ !ē ….!ę ¢ÄŠH!ēŹ!ē Ä!ē Ä!ē Ċ*!ēŹ!ē Ä!ę jh "²Ō !ē Ä ķhŠļŠւŒ!ē !ēɀ–°Ź!ē ÉŌ„1–Q#ą+³Ōz†‚8ē`…+Ė×ÉŚŌf†‚8…+Ė×i!y$²Ÿ$³”ŌP!x$¢h$l#Ä …)Ó††8 rpŅ „)Š#Ä"…2”Ō†8$€’Ė×x‘mŠ †8$€’Ė×xm–ē$ą+³Õ…†‚8ē`…+Ė×ÉŚŌq†‚8…+Ė×k#yŒ%²Ÿ%³”ŌY%i#x%¢h%m$Ä …)Ó††8 rpŅ „)Š$Ć8%€’Ė×xj!Ō bĖ§€’ĖnŠ bĖ§€’Ėn–Ej…+³ŌO†‚8ē`…+Ė×ÉŚŌ;†‚8…+Ė×i!yh ¢„,„1!x ¢„/††8…/rpŅj„1–Õ" € p"ēą1Ņx†8…,’Ė" p…, ¢„,…,’²ń?…/ķ„/††8…/rpÓ„1 p…,£„,…,²ń†8" …,£…,pŠ„,"i!|h!ē`Ė§Ä"‚ƒ¹Ō„1–?j…+³Ō[†‚8ē`…+Ė×ÉŌJ†‚8…+Ė×h†‚8ē€…+Ė×i x y!y¢€’¢¢„/„,„1††8…/rpŅj„1„*– #p…1°Õ¶…,’²ń"…/ķ„/††8…/rpÓ„1 p„,†8…,’Ė#p…,¢„,#i…2Ō!jh "²Ō! Ė×! Ė×x‘Ä ķhŠć…*²ń)jh "²Ō! Ė×! Ė×x‘Ä ķhŠć…*£„*Š!!|ŚŌ!|Ņ!~„*Š!~ī„*Š!|Ņ„1–*††-įsį„0į„+„1į„)u†s–.CODELDCB LDCI LCO LDC LLA LDO LAO LDL LDA  LOD UJP UJPL MPI DVI STM MODI CPL CPG CPI CXL CXG CXI RPU CPF LDCN LSL LDE LAE NOP LPR BPT BNOT LOR LAND ADI €¢ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z’e’p’{’…’’™’£’­’·’Į’Ė’Õ’ß’é’óSBI STL SRO STR LDB NATIVE NAT-INFOINVALID CAP CSP SLOD1 SLOD2 INVALID EQUI NEQI LEQI GEQI LEUSW GEUSW EQPWR LEPWR GEPWR EQBYTE LEBYTE GEBYTE SRS SWAP TRUNC ROUND ADR SBR MPR DVR STO MOV DUP2 £Ęž~ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z’e’p’{’…’’™’£’­’·’Į’Ė’Õ’ß’é’óADJ STB LDP STP CHK FLT EQREAL LEREAL GEREAL LDM SPR EFJ NFJ FJP FJPL  XJP IXA IXP STE INN UNI INT DIF SIGNAL WAIT ABI NGI DUP1 ABR NGR LNOT  IND INC EQSTR LESTR GESTR ASTR CSTR INCI DECI SCIP1 SCIP2 TJP LDCRL LDRL STRL CNTRL  EXPRL Ēöżśžžžž&ž1ž<žGžRž]žhžsž~ž‰ž”žŸžŖžµžĄžĖžÖžįžģž÷’’ ’’#’.’9’D’O’Z’e’p’{’…’’™’£’­’·’Į’Ė’Õ’ß’é’ó’’’’INVALID ’’’’’’’’’’’’SLDC SLDL SLDO SLLA SSTL SCXG SIND €ņžĆ’Œ’’n’’’’’7’7žĆ’ŒžĆžĆžĆ’’’’ø’žĆ’7’7’’’7’Ö’žĆ’’’O’O’O’7žĆžĆžĆžĆžĆ’Œ’’’’7’’’’’’žĆžĆžĆ’ 4ßČ@Ń "ķ„v+ęCĶ7Įć‡*** STRINGOPFILEOPS EXTRAIO  IVDCODE  BB†U‚€Å†‚€ ėP sš‚€ t pštp–pštpš‚€t pš`t p € Ņóštp–ž$h#ji!"³Ō†€Ż†U`!ĖīŲÉĖ§up!īiŠŽ–’ke€ p‡‡£¤j"/²Õ±‡"¢`ri#³Ō:†€Ż€ up†€Żet p†€Żtpke€ p†€Ż"tp†€Ż‚€, t p!‘†€Ż€ up!ldɲŸdɀ~³Ÿ”Ō e#ĖdÉȊe#Ė€-ČdɲŸdɀ~³Ÿ”Ō e#ķĖdÉȊ e#ķĖ€-Č#¢k"ķj‹I’ķ#£Œķj†€Ż€ "up†€Żet p†€Żtp–€štperier†]€’Ė§£j†‚ ­Ė×xh†€Żtp†€Ż‚€.t p†€Ż†‚*­Ė×t p†€Żtp†€Ż‚€<t p†€Ż tp†€Ż‚€@t p†€Żtp †€Żtp†€Ż‚€St p†€Ż !¢tp†€Ż‚€Wt p†€Ż!Œtp†€Ż‚€_t p†€Ż!!¢tp†€Żtp!"–†€Żtp­Šb†€Ż‚€ft p†€ŻtpŠO†€Ż‚€vt p†€ŻtpŠ9†€Ż­tp†€Ż‚€‰t p†€ŻtpŠ†€Ż‚€˜t p†€ŻtpŠր”†€Ż‚€§t p†€Ż†‚*®Ė×t p†€Ż‚€¬t p†€Ż­tp†€Ż‚€²t p†€Żtp1ńKš‚€Ėt pš†‚*®Ė×t pš‚€Št pš­tpš‚€Öt pštp–a‡€’Ėdrh °Õø1ńKš‚€ļt pš†‚*­Ė×t pš‚€ūt pš‡tpš‚t pštp†€Żtp†€Ż‚t p†€Ż†‚*­Ė×t p†€Ż‚ t p†€Ż‡tp†€Żtp†€Ż‚t p†€Ż(tp†€Ż‚t p†€Ż'tp†€Ż‚t p†€Ż&&¢tp†€Żtp†€Ż‚$t p†€Ż%tp†€Ż‚*t p†€Ż$tp†€Żtp†€Ż‚0t p†€Ż€ up†€Ż‚6t p†€Żtp„ r‡$Ņ†€Ż‚;t p†€Żtp†€Ż‡tp†€Ż€(up‡‘†€Ż‚Bt p†€Ż„ t p„ɋļ†€Ż€ up‹å„ɀŠā¼€‹ā¼Ū€Ņ€Õ¼Ū€ńā¼ŪŚŌ‡¤†€Ż‡tp†€Ż€ up‹®„ɀ“ā¼€”ā¼ŪƒEŪŚŌ †€Ż†ƒ ‡€’Ė×t p†€Ż‡tpŠ†€Ż‡tp†€Ż‡tp†€Ż€ upŠV„ɀ•Ņ †€Ż†ƒ ‡€’Ė×t p†€Ż‡tpŠ†€Ż‡tp†€Ż‡tp†€Ż‡tp†€Ż€ upŠցM‡ī¤j"‡²Ō„"Ė§‘"ķjŠė†€Żtp„ ɇ‡²Ÿ Õ†žŠ –£&†]€’Ė§³ń'†]&ķ€’Ė§€’Ė`rŅ %"Œ£ÄŠ%­Œ£ÄŠ%­Œ£Ä–¹)`„*¬P†€Ż`˜t p–+‹štpštp†‚z®Ė×xi!²Ÿ†‚j®Ė×É°”Ն†€Żtp‚Tļ †€Ż†‚*®Ė×t p†€Żtp†‚š®Ė×{h!! ¢ī¤i!‡²Ō9›b!upŅ†€Żbt pŠš‚bt pštp!ķiŠĄ†€ŻtpŠš‚ot pštp– štpštpr Ōg†€Żtp‚|ļ †€Ż†‚*®Ė×t p†€Żtpm`r `‚Ž¹ń)†€Ż$tp†€Ż‚’t p†€Ż`t p†€ŻtpŠm%ŌŊš‚”t pštp– f štpštpr Õ†€Żtp‚©ļ †€Ż†‚*®Ė×t p†€Żtp`r †€Ż`t p$‹Ķ‚¹ļ ‹Ę†€Ż‚¾t p†€Ż%tp‹­†€Ż‚Ćt p†€Ż%tp†€Ż‚Īt p†€Ż&tp‹~†€Ż‚Õt p†€Ż%tp†€Ż‚ßt p†€Ż&tp‹O$Š$‚åļ Š‚źļ Š‚ļļ Š ‚ōļ Šցł†€Ż‚’t p†€Ż%tp†€Ż‚‚t p†€Ż&tp†€Ż‚‚ t p'Ō ‚‚ļ Š‚‚ļ ‹Ö$Š$‚‚ļ Š‚‚ļ Š‚‚ļ Š ‚‚#ļ Šւ(‚‚.ļ %Š‚‚3ļ Š‚‚6ļ Š ‚‚9ļ Šւ;‚‚@ļ †€Ż&tp$Ņ†€Ż‚‚Dt p†€Ż'tp&¤ Š†€Ż`Ė×xtp&ī¤ ¤ )¤ ¤ *+²Ō.(³Ō†€Żtp¤ `r Š(ķ¤ †€Ż`*Ė×xtp*ķ¤ ŠĶŠւI†€Żtp$°ÕžŠš‚‚Wt pštp– ¾štpštpš‚‚ft pš­tpš‚‚kt pš†‚*­Ė×t pštpš‚‚wt pštpš‚‚“t pš`t p ‹Äļ†]€’Ė§kj"#²Ō"ˆļ †]"€’Ė§­ļ"ķjŠä‘‹™ ‹”ļ‹‹Š‹… €0£iš`t p ƒ‚“ŚŌ$! Œ ¢€0£iš`t p ƒ‚øŚŌ ! Œ ¢€0£ihštp!²Ÿ!­²”Ō&j"†]€’Ė§²†]"€’Ė§!±”Ō"ķjŠä"ˆļ Š¦!­ļ‘Šւ¼ ƒƒŚÕµžštp– Ņ)`„*¬P­`˜t p–+ …ƒ h‚ƒ ļ`Ė§Ó ‚ƒ ļŠ‚ƒļ­‚ƒt p­…‚Śtp­tp–®#tp#tp‚ƒ&#‚ƒEt p#tp#€ € number of procs in segmentIO error on filee’›’±’Ē’ēsegment procedure0 not available in P-Code form for disassembly....segment procedure0 not available in P-Code form for disassembly.... Disassembling segment procedure  .... Segment: Procedure::Block:: Block offset: Seg offset: Data size:: Exit IC:: OffsetHex codee exit code::): ’’’’’R’ŖInterface text for segment trouble reading interfaceno interface text to list#Segment reference list for segment : )no segment reference list in this segmentLinker information for segment  EOFMARKK CONSTDEF PUBLDEF baseoffset== pubdataseg== GLOBDEF homeproc== icoffset== EXTPROCC EXTFUNCC SEPPROCC SEPFUNCC ’Ł’ā’ė’ō srcproc= nparams= koolbit=TRUEEFALSE GLOBREFF PUBLREFF PRIVREFF CONSTREF’Ł’ā’ė’ō format==WORDDBYTEEBIG’ā’ė’ō nrefs= nwords== ž0’*’*’*’*ž‚žSž:ž±ž±ž±ž±no linker information to list There are procedures in segment 7Procedure Guide: A(ll), #(of procedure), L(inker info),@ C(onstant pool), S(egment references), I(nterface text), Q(uit))’’0s’{’{’{’{’{’{’{’{’{’{’9’l’g’v’q’9’l’g’v’qSEX: LEASTMOSTT$ significant byte first NEXT PAGE::Óø üYŪīĄ++cŪīN(ˆļŒ|:€ī$/ˆļµDUPLICATė3š`r pšrp €Y° €y° i–Óš spšrpš‚€r pšrpšrpš‚€r pš†r pšr p†§²ń †ģ§€0£„Šp1€0ŚŌĀ1†p†Ėīׁ’Ė§„„…„²Ÿ…„² Ōš‚€.r pŠTš‚€Gr pī…„¢„„„„…„…„²Ō$š†Ėīׁ…„’Ė§sp…„ķ„„ŠÓš‚€_r p‘Ōz†Ėīׁ€’Ė×x ÓKš‚€hr pšrpš‚€‡r p‘ńpŠ†Ėīׁ€’Ė× Ä1†p1†pš‚€Ÿr pŠ š‚€Ær pš‚€½r pšr p–-Duplicate Directory Copier { July 12, 1978 } ) Enter drive # of user's disk [4 or 5]: 1Illegal volume name. Do you want to copy anyway? .Are you sure you want to zap the directory of : {blocks 2-5}? to exit. EXTRAIO PASCALIO IDUPLICAT  €€€€€€€€€€€€€€€€(ī^ļ^ļ]„žDUPDIR83€:¦Ó:ø üYŪ‰ĪĄ++cŪīN(ˆļŒ|:€ī$/ˆļHDUPLICAT93š`r pšrp €Y° €y° i–pš spšrpš‚€r pšrpšrpš‚€r pš†r pšr pšrp†§²ń †ģ§€0£„Šp1€0ŚŌ»1†p†Ėīׁ’Ė§„„…„²Ÿ…„² Ōš‚€.r p‘ńp†Ėīׁ€’Ė×x ±Õļš‚€Ir pī…„¢„„„„…„…„²Ō$š†Ėīׁ…„’Ė§sp…„ķ„„ŠÓš‚€br pšrp†Ėīׁ€’Ė×xŅ#š‚€dr pšrpš‚€‚r pŠ š‚€”r p‘ŌHš‚€®r p‘Ō6†Ėīׁ€’Ė× Ä1†p1†pš‚€År pŠhš‚€Ūr p ī…„¢„„„„…„…„²Ō$š†Ėīׁ…„’Ė§sp…„ķ„„ŠÓš‚€÷r pšrpš‚€łr pš‚r pšr p–-Duplicate Directory Marker { July 13, 1978 } ) Enter drive # of user's disk [4 or 5]: 4Illegal volume name. Do you want to mark it anyway? 1A duplicate directory is not being maintained on : .;WARNING! It appears that blocks 6 - 9 are not free for use." Are you sure that they are free? 3 Are you sure that blocks 6 - 9 are free for use? , Do you want the directories to be marked? + Directories are now marked as duplicate. 6 A duplicate directory is already being maintained on : . Mark not done. Type to exit. EXTRAIO PASCALIO ē0PATCH C16BITCO  €€ ( (Copyright (c) 1981, SofTech MicrosystemsęPATCH 6x*a„-¬P‡+Ō štpra§²ń ša˜u p‡,Óš‡,upš€ tpš‚€u pš`u p € Ņór–.‘)`„*¬Prš`˜u p–+µ/f„0¬Pršf˜u p`rh`r–1š`u p i`rj"ĄŚŌ"Š€UhŠ€DhŠ €LhŠ€RhŠրŠ!!ƒ€ ŚŌ €a£€A¢hŠ !ƒ€Śń€Zh k–µ-d„.¬P¤0d§Ņ ‚€‘‹ƒd§²ń ‚€.‘Šqd§hi Ņdģ§ƒ€CŚŌhįi ³Ō:d ģ§ƒ€GŚŌ!d ģ§€0£›Od§ £Ė×xŒ¢i īhŠ ‚€K‘ihŠĮ!³ń‚€`‘¤0Š!¤0–/-#’įīŅ "‚€zėPŠ`#Ņ "‚€~ėPŠS"‚€ėPi#³ńh#įkŠh#²ń"!ģ†ƒĖ# Ė×xČ!īi# kŠā Ō "!ģ€-Č!īi"!ķģ"ģ!£p"!£Č–G$‡%`Hp‡‡£¤&–%y"§ih !²Ō " ģ§ƒ€ƒŚŌ" ģ" ģ§€a£€A¢Č ķhŠŪ–ž1‡3‡2r„+r¤+„+rš‚€‹u pš`€Pu pšu p`§²ńy‡4vp‡4`˜vpÓ*‚€œp‘‡5ēć5ē‚€­ėP‚€®‘‡3‡2rŠ7‡5¤1‡1ēć1ēÄ`‘ ‡1ē`ėP‡1ēć1ē‡4‘ć1įÀƝ‘‹¼‡3‡2r„+r¤+„+rš‚€¶u pš`€Pu pšu p`˜‘¤*‡*1ŚŌæ‡*²ńo‡4vp‡*p"pÓ*‚€Ėp‘‡5ēć5ē‚€ŻėP‚€Ž‘‡3‡2rŠ2‡5¤1‡1ēć1ēć1ēć1ē’ć1‡*ć1ē`ėP‚€ß‘Š‡3‡2rr„+r¤+„+r–5§*‡,‡+rš‚€ęu pš`€Pu pšu p`§²ńt‡-vp‡-`˜vpÓ*‚€ģp‘‡.ēć.ē‚€żėP‚€ž‘‡,‡+rŠ5‡.¤*‡*ēć*ēć*įć*ēć*ē’Ä`‘ ‡*ē`ėP‚€’‘r–.k"h {Ō' x› yppÓ‚p‘rkŠ9!› ytÓ‚p‘rkŠpÓ‚*p‘rk–8…ŗ允¹ Õ‚ˆģ­Œ€ p­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻ†‚­Œu†‚‚<u †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…ŗ…¹ Ōmˆģ­Œ€ ps ­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻs †‚­Œu†‚‚>u †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–\…·å…¶ Õƒˆģ­Œ€ p­īlh $²Ō­ ¢Œasaģˆ Œ¢ģa§p ķhŠÜ†‚­Œu†‚‚@u †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…·…¶ Ōnˆģ­Œ€ ps ­īlh $²Ō­ ¢Œasaģˆ  Œ¢ģa§p ķhŠÜs †‚­Œu†‚‚Bu †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–~…“允³ Õ‚ˆģ­Œ€ p­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻ†‚­Œu†‚‚Du †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…“…³ Ōmˆģ­Œ€ ps ­īmh %²Ō­ ¢Œasaģˆ Œķģa§p ķhŠŻs †‚­Œu†‚‚Fu †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–w …±å…° Õķˆģ­Œ€ p­īnh &²Õˆ­ ¢Œas­ ¢Œcsaģ§†ƒŪŠŚŌˆ Œķģaģ§ČŠˆ Œķģcģ§Čˆ Œ¢ģcģ§Čaģ§†ƒŪŠŚŌˆ Œ¢ģaģ§ČŠˆ Œ¢ģcģ§Čˆ Œ¢ģcģ§Č ķh‹r’†‚­Œu†‚‚Hu †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…±…° ÕŲˆģ­Œ€ ps ­īnh &²Õˆ­ ¢Œas­ ¢Œcsaģ§†ƒŪŠŚŌˆ Œķģaģ§ČŠˆ Œķģcģ§Čˆ Œ¢ģcģ§Čaģ§†ƒŪŠŚŌˆ Œ¢ģaģ§ČŠˆ Œ¢ģcģ§Čˆ Œ¢ģcģ§Č ķh‹r’s †‚­Œu†‚‚Ju †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–µ …®å…­ Õˆģ­Œ€ p­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠ†‚­Œu†‚‚Lu †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…®å…­ Ōzˆģ­Œ€ ps ­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠs †‚­Œu†‚‚Nu †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–ó …«å…Ŗ Õˆģ­Œ€ p­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠ†‚­Œu†‚‚Pu †‚ˆ˜u †‚upÓ ¦p…½Ō†‚upÓ ¦p…«å…Ŗ Ōzˆģ­Œ€ ps ­īmh %²Ō+­ ¢Œasaģˆ Œķģpaģˆ Œ¢ģp ķhŠŠs †‚­Œu†‚‚Ru †‚ˆ˜u †‚upÓ ¦p…¼Ō†‚upÓ ¦p–Ź †‚‚Tu pÓ ¦p…Ą²Ō6…Ąīih !²Ō(†‚ Œu†‚‚Wu pÓ ¦p ķhŠÓŠeih !²Ō(†‚ Œu†‚‚[u pÓ ¦p ķhŠÓ…Ąīih !²Ō(†‚ Œu†‚‚_u pÓ ¦p ķhŠÓ†‚upÓ ¦p–mFk#Ō‚cp‘‹ˆ…Ąī¤Fh ‡F²Õ² …ĄŒj…Ąid!ŒČ…»Ō#Ō‚sp‘p…µŌ#Ō‚ƒp‘p…øŌ#Ō‚“p‘p…²Ō#Ō‚£p‘p…ÆŌ#Ō‚³p‘p…¬Ō#Ō‚Ćp‘p ķh‹G’…Ą²ŸÕ¶…Ą£j…Ąid!ŒČ…»Ō#Ō‚Óp‘p…µŌ#Ō‚ćp‘p…øŌ#Ō‚óp‘p…²Ō#Ō‚‚p‘p…ÆŌ#Ō‚‚p‘p…¬Ō#Ō‚‚#p‘p–Fj…Įi…Įj!²ńo!īkh #²Ōe…Ć…Ā Œ¢›p†‚‚‚3u †‚…Ā Œ¢u†‚‚‚Au †‚u†‚upÓ‚‚Op‘pļ ķhŠ–"²ńm…Ć…Ā!Œ¢›"p›"’Ė"£p†‚‚‚_u †‚…Ā!Œ¢u†‚‚‚mu †‚"u†‚upÓ‚‚{p‘pļ–…ƒp…æ¢j…ƒpki!#"³Ÿ”Շ†ƒo†Ä‘ ŌI†‚‚‚‹u †‚#u†‚‚‚”u †‚†ƒt˜u †‚upÓ‚‚p‘pļ#ķkŠ0‚‚­#‘‚‚¼‘š`u p ƒ‚ĶŚŌī €Y° €y° ir‹p’–„`$Å#r"Ōš‚‚՝u pŠ š‚‚Ųu p€'#r!Ōš‚‚Ūu pŠ š‚‚Žu p€8#r Ōš‚‚įu pŠ š‚‚äu p–r š‚‚ēu pšupšupš‚‚óu pšupš‚ƒu pšupš‚ƒ u pšupšupš‚ƒu pšupš‚ƒ'u pšupš‚ƒ4u pšupšupš‚ƒAu pšupš‚ƒNu pšupš‚ƒ[u pšupš‚ƒ|u pšupš‚ƒ‰u pšupš‚ƒ–u pšupš‚ƒ£u pšupš‚ƒ°u pšupš‚ƒ½u pšupšupš‚ƒŹu pšupš‚ƒŁu pšuprš†ƒt˜u prš…ƒpuprš…æupr…¾Ōš‚ƒču pŠ š‚ƒėu prš…Āuprš…Įup rš†ƒF˜u p rš…Ąup†¹ †¶†°†³†­†Ŗr…½Ōš‚ƒīu pŠ š‚ƒńu pr…¼Ōš‚ƒōu pŠ  š‚ƒ÷u pr–µ…ƒEՎ…¾Ō†ƒF‚ƒśč†ƒF‚ƒ’č Ōr ļŠ)…ƒsŌ†ƒF‚„č†ƒF‚„č Ōr ļŠ ‚„‘†ƒF‚„č†ƒF‚„č …ƒs…¾ ”Ō&š‚„u pšupšˆu p­€ ŅšļŠ ‚„.‘–ųš`u p ƒ„<ŚŌī ƒ„DŚŌš‚„Lu piŠš‚„Ou pi–!"h!r ēļĀ'!w ēļĀ8!w ļĖĪ+‘i!ƒ„RŚÕy!‹rr†ƒo†Ä‘ rš†ƒt˜u p‹T…ƒsŌHršb€Pu pšu pb˜‘h ³ …ƒq²”Ō „ƒpŠ ‚„X…ƒq‘rš…ƒpupŠ ‚„o‘‹ū…ƒsŌ>ršb€Pu pšu pb˜‘h ²ń „æŠ ‚„€‘rš upŠ ‚„‘‘‹¬‹§r…¾å„¾…¾Ōš‚„¢u pŠ š‚„„u p‹x…¾Ō.ršb€Pu pšu pb˜‘„Ārš…ĀupŠ ‚„؝‘‹9…¾Ō.ršb€Pu pšu pb˜‘„Įrš…ĮupŠ ‚„±‘‹ś r†ƒA†‚ ‘  rš†ƒF˜u p‹Ł ršb€Pu pšu pb˜‘h ³ ²”Ō „ĄŠ ‚„ŗ‘„Ą rš…Ąup‹†¹ ‹‡†¶Š†°Šw†³Šo†­Šg†ŖŠ_r…½å„½…½Ōš‚„Ėu pŠ š‚„Īu pŠ1r…¼å„¼…¼Ōš‚„ѝu pŠ š‚„Ōu pŠք×r!€Q°Õmżr 2Ō†.˜‘Š†˜‘–+#īrš‚„ķu pš‚… u pšupih !²Ō ¢rš Œupš€|tp ķhŠŪ–† ‘ī¤ j"(²Õ¶ī"¢r¤ i!)²Õž"Œ!!¢¢hš€ tp cs es3cģ§†ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp3cģ§†ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp!ķi‹\’"ķj‹D’¢ržcsžes3cģ§†ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp3cģ§†ƒŪŠŚ”Ōšcģ§tpš€ tpŠšeģ§tpšeģ§tp0¢1¢r– õ+‚…‘š`€Pu pšu p`˜‘¤*‡*³Ÿ‡*…ƒŸī²Ÿ Ō‚……ƒŸī‘rŠ#…ƒž¤+‡*„ƒž†ƒ†ģ‘ Ō ‚…6‘Š‡+„ƒž€Or–+,…ƒž…ƒŸī³ń…ƒžķ„ƒž†ƒ†ģ‘ Ō ‚…A‘‘Š ‚…L‘–_…ƒž²ń…ƒžī„ƒž†ƒ†ģ‘ Ō ‚…Y‘‘Š ‚…d‘–Š…ƒ Ō,…ƒ›…ƒžppÓ ‚…sp‘Š‚…†‘Š9†ģ›…ƒžtÓ ‚…p‘ŠpÓ ‚… p‘Š‚…³‘–Įrš‚…ŗu pš†ƒ¢˜u prš‚…¾u pš…ƒŸupš‚…ĝu pš…ƒžupšŌš‚…Ėu pšupŠš‚…Ųu pšupr…ƒ”Ōš‚…åu pŠ š‚…ģu p…ƒ Ōš‚…óu pŠ š‚…’u pš‚† u pš…ƒupš‚†u p–Żīih !²Ō ¢r ķhŠš–M1²ń 1īĖ„rŠY0²ń)īĖ„0ī€IĖ„0¢1¢r0Ņ 0ī€IĖ„rŠ+0²ń&Ė„0ī€IĖ„0¢1¢r0Ņ 0ī€IĖ„r–œ1ī³Ÿ0³Ÿ1ī°” Ō 1ķĖ„rŠ,0€I³ń&Ė„0ķ€IĖ„0¢1¢r0Ņ 0ķ€IĖ„r–ß0²ń0ī€IĖ„r0Ņ 0ī€IĖ„rŠ1²ń€I€IĖ„1īĖ„0¢1¢r–80€I³Ÿ1³Ÿ”1°0³Ÿ” Ō"0ķ€IĖ„r0°1³Ÿ”Ō 0ķ€IĖ„rŠ0€IŅ€IĖ„1ķĖ„0¢1¢r–|1Œ00Œ¢¢i!#x¢²ń#!£Ä#xījh "²Ō›! ¢’Ė$Č ķhŠé–<.‚†‘š`€Pu pšu p`˜‘¤+‡+²‡+²Ÿ Ō¤+‚†%‘‹Q‚†6‘†W˜‘rš`€Pu pšu p`§³ń‚†>‘¤+‹`ģ§ƒ†FŚÕ`ģ§‹ō`ģ§„++‘1‡+¢Ė„‹ß`§³ń‚†M‘¤+‹Ä`ģ§†ƒėŠŚ`ģ§†ƒėŠŚ”՞`ģ§ƒ†UŚŌ`ģ§€A£ ¢Œ¤*Š'`ģ§ƒ†ZŚŌ`ģ§€a£ ¢Œ¤*Š `ģ§€0£Œ¤*`ģ§ƒ†aŚŌ`ģ§€A£ ¢‡*¢¤*Š)`ģ§ƒ†fŚŌ`ģ§€a£ ¢‡*¢¤*Š `ģ§€0£‡*¢¤*‡*„++‘1‡+¢Ė„Š ‚†m‘¤+Šֆ‰Š ‚†±‘¤+†€€˜‘r0¢1¢r‡+¤.¤,‡,‡.²Ō ļ)ļ)‡,ķ¤,Šī–.邆Ķ‘0°0° Ō0ī€IĖ„0¢1¢rš`u p i`rj"Ó`!†ƒŪŠŚŌE›1Œ00Œ¢¢’Ė!Ț!tpš€ tp0¢1¢rļ)ļ)1°0°”Ōļ(Š‚†ē‘0¢1¢r"Ņ‰r0¢1¢r–ź ‚†š‘0¢1¢rš`u p i`rl$±ÕÄ †ƒėŠŚ! °”Õ¤ †ƒūŠŚŌ €0£kŠ" ƒ‡ ŚŌ €A£ ¢kŠ €a£ ¢k €a£€A¢h1Œ00Œ¢¢j0°0° Ō›"’Ė›"’Ė§#Œ¢ČŠ#›"’Ė›"’Ė§›"’Ė§£#¢Čš tp0¢1¢rļ)Š‚‡‘0¢1¢r$°Õ!’r0¢1¢r–F!r†€€˜‘0¢1¢ r‘h ƒ‡ŚŌ" Š,Š-Š*Š&Š'Š (Š)Šև €QŅĖ2Ō†.˜‘Š†˜‘–d!†‚vp†Ävp†ģvp–-#*r †.jb‚‡3€!” b‚‡D€O” bėP†jb‚‡\€!” b‚‡m€O” bėP†€€‚‡…ėP†W‚‡¬ėP„„†ƒŪƒ‡ŃĒŽ†ƒūƒ‡ŁĒŽ†ƒėƒ‡ŻĒŽ›OĖ×ěOĖ× ěOĖ×€děOĖׁčěOĖׁ'Ä jh "²Ō†ƒĖ Ė×€0 ¢Ä ķhŠčjh "²Ō†ƒĖ ¢Ė×€A ¢Ä ķhŠę€IĖ„Ė„i!„Ć„»„ŗ„¹„ø„·„¶„µ„“„³„²„±„°„Æ„®„­„¬„«„Ŗ„Ą„æ„Ā„Į„¾„½„¼†ƒ¢‚‡äėP„ƒ”„ƒ „ƒŸ„ƒžį„ƒ†ƒt‚‡åėP„ƒs„ƒr„ƒq„ƒpį„ƒo†ƒF‚‡ęėP„ƒE„ƒD„ƒC„ƒBį„ƒA–*X$†‚†ƒ@įv†Ä†‚šįv†ģ†ƒįvrs‘/†.˜‘€Orš†€©u p…€©ƒ‡ēŚŌ …€©€a£€A¢„€©…€©ƒ‡ļŚÕ¼…€©‹³†€Ŗ›Ł‘ ›†€ŖŁ‹†ƒ†ģ‘ …ƒ”Ō †ƒ†ģ‘ Ō‹€3å„3Ō ‚‡õ‘Š‚ˆ‘Šg‘#Šc‘$Š_2Ō†˜‘Š†.˜‘2å„ŠJr2Ō†.˜‘Š†˜‘Š5…ƒ”Ō"…€©Š‘Š‘"Š‘%Š‘ Š ‘!Š‘Šֈ$Š ‚ˆ;‘ŠֈG…€©€Q°Õ’‘.†‚v†Äv†ģv– > é’ī’ó’ų’ž’’’ƒž’’%Null string. Value defaults to zero.(String too long. Value defaults to zero..š’)Error in string. Value defaults to zero.2Integer constant overflow. Value defaults to zeroo-3276880 ž’’ FILENAME : < c/r for Unit I/O > !Error opening file. Ioresult is File opened. )Unitnumber : 4, 5, 9 .. 12 ( 0 quits ) "Error clearing unit. Ioresult is File opened. Filename: !Error opening file. Ioresult is File opened..#Error reading block.U Ioresult is #Error reading block.B Ioresult is #Error reading block.B Ioresult is | | | | | | | | | | | |  : : : ERROR in I/O #1. Ioresult is ERROR in I/O #2. Ioresult is ERROR in I/O #3. Ioresult is ERROR in I/O #4. Ioresult is ERROR in I/O #5. Ioresult is ERROR in I/O #6. Ioresult is ERROR in I/O #7. Ioresult is ERROR in I/O #8. Ioresult is ERROR in I/O #9. Ioresult is ERROR in I/O #10. Ioresult is ERROR in I/O #11. Ioresult is ERROR in I/O #12. Ioresult is ERROR in I/O #13. Ioresult is CORE DUMP Startbyte :  Number of valid bytes : ERROR in I/O #14. Ioresult is CORE DUMP Startbyte :  Number of valid bytes : ERROR in I/O #15. Ioresult is  Block number [  ] of the file ERROR in I/O #16. Ioresult is Error occurred reading block !Do you want to continue ? ( y/n )@@TrueeFalseTrueeFalseTrueeFalseDUMP : D(o, Q(uit  A) Input File  B) Starting Block  C) Number of Blocks  E) Read from Memory  F) Starting Byte  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 FalseTrueeFalseTrueeFalseCONSOLE::#1:CONSOLE::#1:Input file is not opened.CONSOLE::#1:#Type < space > to redisplay promptsOutput file is not opened..@@TrueeFalsež’,Value out of range. Maximum block number is Input file must be opened first..!Number must be greater than zero. Input file must be opened first..TrueeFalseCOREREAD not set.COREREAD not set. Value out range. Defaults to 15 ..TrueeFalseTrueeFalseAT‹ż¬żžTžYžˆžĒž’'’p’y’’‰’‘’™’”’Ļ’: 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20:: 22: 24: 26: 28::Blocknumber : /Blocknumber is out of range. Highest value is Read was successful..Read was successful..Have reached end of file.Read was successful..Already at beginning of file.$Error saving buffer.U. Ioresult is Block saved..$Error saving buffer.B. Ioresult is $Error saving buffer.B. Ioresult is Block saved..File : Length : Current :  Byte 0 = Most_Sig_Bytee Byte 0 = Least_Sig_Byte Open : True Open : Falsee Unit I/O : True  Unit I/O : False Unitnumber : 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 Ch ’!’ ’!’7Invalid format. Must have prefix character, 'C' or 'H' 2CHARACTERS : , quits Invalid character6HEXADECIMAL : 0 .. 9 , A .. F , a .. f , Quitss~ Invalid inputX$CUį’ń’é’å’õ’ł’ķ’!EDIT : D(ump, G(et, R(ead, S(ave,. M(ix, T(ype, I(nfo, F(or, B(ack, ? IV.0.bb!EDIT : V(iew, W(ipe, Q(uit, ? . LTYPE : C(har, H(ex, F(ill, U(p, D(own, L(eft, R(ight, , Q(uittHValid format : C or H  ’’’’’’’’’’’’’~~ž’’€Ō"Ü0The display will be in characters, if printable..*The display will be in hexadecimal digits..BVõ’ń’å’é’ķ’ł’Error. File not open. W¶’”’Ė’J’Ė’c’™’€’Ė’Ė’Ė’Ė’’“„÷ žĄrP)ń wć j 2  ż Å  é ~ ] ‰Ä7¹|Ż>A°ē“ V?&Ż‹]K> ™/STRINGOP GOTOXY FILEOPS PASCALIOEXTRAIO C16BITCOSCREENOP /C16BITCOg”†%1¢’Ė§i†%0¢’Ė§h €€³Ō! €€£Œ¢i!’£īiŠ! Œ¢i$‚€ė!’įīŅ $‚€ėŠ5!³ń!įikŠkj!²ń$"ģ†! Ė§Č"īj! iŠä#Ō$"ģ€-Ȗ $‚€ ė†%…¢’Ė§hki!#³Ō$!ģ† Ė§Č h!īiŠä†%…¢’Ė§hki!#³Ō$!¢ģ† Ė§Č h!īiŠā–=!‚€ ė!ģ†"…¢’Ė§Č!ģ†"…¢’Ė§Č–æ&‚€ė†'1¢’Ė§hmj"%³Ō&"ģ† Ė§Č h"ījŠä†'0¢’Ė§h&ģ†&ģ§€0£ Œ¢Ė§Č hmj"%³Ō&"ģ† Ė§Č h"ījŠä–+$‚€ė†%…¢’Ė§hki!#³Ō$!ģ† Ė§Č h!īiŠä†%…¢’Ė§hki!#³Ō$!¢ģ† Ė§Č h!īiŠā–—$‚€ė†%…¢’Ė§hki!#³Ō$!ģ† Ė§Č h!īiŠä†%…¢’Ė§hki!#³Ō$!¢ģ† Ė§Č h!īiŠā–Ą0h1Ė„ Ė„…h…Ė„ Ė„–5 jh "²Ō† Ė€0 ¢Č ķhŠź jh "²Ō† Ė€A ¢ £Č ķhŠčĖ „Ė„iaĖ§°„2ŌĖ„Ė„Š Ė„Ė„–kš‚€r pšrpš‚€5r pšrpšrp–ʐ š‚€Mr pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh „‘š‚€Ur pš!rpš‚€Yr pš„˜r pš€/spšrp! Ņ‰š‚€^r pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh f‘š‚€gr pš!rpš‚€kr pšf˜r pš€/spšrp! Ņ‹š‚€pr pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh b‘š‚€wr pš!rpš‚€{r pšb˜r pš€/spšrp! Ņ‹š‚€€r pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh „ ‘š‚€†r pš!rpš‚€Šr pš„ ˜r pš€/spšrp! Ņ‰š‚€r pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh „‘š‚€™r pš!rpš‚€r pš„˜r pš€/spšrp! Ņ‰š‚€¢r pšrpšarpšr p†’ĖaĖ§Č†’ĖaĖ§Čh „‘š‚€«r pš!rpš‚€Ær pš„˜r pš€/spšrp! Ņ‰š‚€“r pšrp–Ģ– 00-327688      2DEBUGGING PROCEDURE FOR THE 16 BIT CONVERSION UNITT.TYPE INTEGER NUMBERS - A 10 WILL QUIT THE LOOPPCHARACTER TESTTNUM =  CHAR = HEXADECIMAL TESTTNUM = HEX = INTEGER TESTTNUM = INT = OCTAL TESTTNUM = OCT = INTEGER BYTES TESTTNUM = DEC = OCTAL BYTES TESTTNUM = OCTB = FINISHED TESTINGGøNbāS‰” e EXTRAIO PASCALIO åååååååååååå åååååååååååååååååååååååååå ååååååååUTIL2™×+¢ COMPRESS.CODE`{< - XREF.CODE`{< -5RECOVER.G.CODE{\ 5K CPMBOOT.CODE`{q¢KŠ KERNEL.CODEō Ø2Õ£Š”COMMANDIO.CODE2Ä£zCPMBOOT.CODE`{q¢ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååų/COMPRESSINITIALI   €€€€€€€€€€€€€€€€_# COMPRESS(ī^ļ^ļ]„žC®Ņ> Øø diŪīĄ++°pŪīN(ˆļŒ|:€ī$/ˆļ.INITIALIV\žjh "²Ō7$k# ’Ė§€’Ėi# ’Ė# ķ’Ė§€’ĖČ# ķ’Ė!€’ĖČ ķhŠÄ–ØƆX‚€Å„„†sštš‚€ t š‚€t štštš‚€t štštš‚€+t š`t ƒ€JŚŌš €!ŅpŠ ƒ€RŚ„š ušt3ń9štš‚€Zt š„X€Pt št „X‚€očŌp„X˜†qj"ŌĢštš‚€pt še€Pt št e‚€}čŌp†e˜vpÓ#†¤„e˜€Pw„‚€~€Uw„˜vpŅ£štš‚€t š„/€Pt št št„/‚€”čŌp„/‚€•čŌ„/eėP†0„/˜vpÓ"p¤„‚€– w„„/˜€]w„˜q†„€u±p± Ō p‚€q„€ž’Ė§°„‡€Ó„€i¤k#‡²Ō>„€į#Ėפ‚‡‚ÉŚå‡‚É°!” Ō ‚€®qŠ ‡‚ÉŅi#l#ķkŠ»!ń ‚€ĀqŠ„€$Ėפ‡x„‡y„–Æ0123456789ABCDEFAssembly Code File Compressor IV.0 [g3] Type "!" to escape< Do you wish to produce a relocatable object file? (Y/N))@@( Base address of relocation (hex) : ! File to compress : !.CODE$ Output file ( for same) : ! opening file while reading segment dictionaryy&input code file is not linked assemblyy&input code file is not linked assemblyy 0÷COMPRESSŽC)`„*¬Pšuš‚€t š`˜t štp–+ƒ)`„*¬Pšuš‚€t š‡,tš€ uš`˜t štp–,ē*a„,¬Pša˜t h‡+³ń%‡+’¢ķ¤+š†X‡+ ¢Ė§u‡+ ¤+ h ²ńš†X‡+ Ė§u‡+ ¤+ hŠß–-Z+b„-¬P‡,Ĥ/b§Śń¤/ŠSb§ih !²ŌHb ģ§ƒ€ŚŌ‡,‡,xŒb ģ§€0£¢ÄŠ$b ģ§ƒ€ŚŌ‡,‡,xŒb ģ§€A£ ¢¢ÄŠ¤/ ķhŠ³–.‚2Ō­ ķ0uĖ§€’ĖiŠ­ 0uĖ§€’Ėi–æ2Ō­ 0uĖ§­ ķ0uĖ§Œ¢iŠ­ ķ0uĖ§­ 0uĖ§Œ¢i–2Ō'­!0uĖ €’ĖČ­!ķ0uĖ €’ĖȊ%­!ķ0uĖ €’ĖČ­!0uĖ €’ĖȖ]"!ŅhŠ7"³!³”Ō"!³ŸhŠ'"³Ÿ!³”Ō"!²ŸhŠ"³!³Ÿ”Ō"!²ŸhŠ"!³Ÿh k–¶"ļ!¢h2Ō%­"0uĖ`ɀ’ĖČ­"ķ0uĖ`ɀ’ĖȊ#­"ķ0uĖ`ɀ’ĖČ­"0uĖ`ɀ’ĖȖ‚€”  £iˆ!” Ņ‚€%‘4ī¢h !ī¢²ń‚€2‘†­ 5u ±p± Ō p‚€J‘– ļŒk#ļ€dĖ¦­€d²ń‚€V‘­Ņ‚€f‘#­Œ££h­¤ o'(²Ō<­'¤ m%)³Ō, %Œ¢n&£ļ&ļ³ń&£ļl&£&ļļ &$ļ %īmŠĻ'ķoŠæ ķi­€dĖ€dĖ¤ ¦­(³ŌT#­Œ£ļŒj"ļįÓ‚€s‘"£ļÓ‚€‘ˆ­€dĖīפ )ē"¢Ä)ē!Ä)Ä"£i­ī¦Š¦– §¦ļŒ¦­±Õ…j­i!ļÓ5!ļÓ!ļŅ ‚€‘Š‚€‘!k!!£ļŒ££i#"ļ #jŠÄ!k!¢h"Ó4"£ļl$Œm­$¢¦­ 0uĖ­#0uĖ%p#%¢k"¢h"ļjŠČ#£¦–c¦€dĖ­€dĖh¦­ ²Õ›ˆ­€dĖī×i­!z0uĖ­­0uĖ!y!z£ķp!­Ä­!y¢!z£ķ¦š‚€·t š­īt‚€Ą­4!x¢‘‚€Ā­4!x¢!y!z£¢‘š‚€Åt š!y!z£ķtš‚€Ēt št­ķ¦‹^’–¢h"Ä å"x®²”Ō)ˆ"x€dĖī×i!z$š $!y#¢š ”ŌhŠ""xķĊĶ–&­īlk#$²Ōs­#Œ£i!ļj"ˆ­­²ń‚€Ė‘ˆ­€dĖī×m!%z%x£įļ !ļj"ļh ˆ­­² ń ­€dĖ¦ˆ­€dĖī×m"%z%x£įļ #ķkŠˆ–x­ļ ­¢¦­­īŒ£h­ 0uĖ­­0uĖ­Œp­­Œ¢¦­­ļ ­¢ļ ­¢¦–œ­īih !²Ō­ Œ£ļ­4ļ ķhŠč–'­3­Ä­īķi’­ī£h­­0uĖ p­ ¢¦3Ō. ³ń!ķi­­0uĖp­¢¦­£­3x£ļ †0­!įu!±p± Ō p‚€Ł‘†0v–C2  3ŌŠ–4Ž†s3ń‚€å01¢ī‘š‚€ót štš‚€õt š1tš‚€žt št–Ɔ†4įv†0†\įvr0†‘‘†v†0v– >>>>  >>>> disk error ’~pascalio,compressorbuffer allocation hassles.insufficient memory space to read in code fileewhile reading code filetoo many procedures in segmenttno procedures in segmenttprocedure code not assemblyinput code file not linkeddinput code file not linkedd3code may not contain base or interpreter relocation Procedure ##: H - H  bytessbad relocation informationnwhile writing out codee Highest code address is H.. Output file is bytes long¤P>“ÓVŽ]1 āĆƖDv$ ÉEXTRAHEA STRINGOPFILEOPS EXTRAIO PASCALIOHEAPOPS  †N*lĶpREFERENCPROSESS INITIALITREEDUMPPROCTREEDOPASS  €€€ € € €€€€€€€€€€€Ņ# REFERENCREFERENCREFERENCREFERENCREFERENCÓRéRé]xųSTUFF#F5īø "xĄÓĪ--€ŒĄÓ\*|錊<€Ó21|éMPROSESS 11xē 1yÄ1h z„9īį’Ė„ –l1hi†`†dÅ ˜±!å”Ōab yq!ń zhŠź!"ę °”Ō"ę±kŠk–S1xę ˜Ņ&q `s i!†dÅ!ē…hĒÄ!ē˜Ä1xē Äq Š1xę h…iÓJ…iŅq …iÓ ’ĖqŠ…i°…”Ō„p ēs }h i!†dÅ!ē…hĒÄ!ē˜Äq Š±…iÓq Š÷…iÓq Š÷†d†~¹†d†z¹ †d†v¹ †d†€Š¹ †d†€†¹ †d†r¹ †d‚€¹ †d†€‚¹ ÕQ’–eh`†`p%!°o–¢i!Ō1xę hŠ˜h ˜Ó  x†`¹Ōi j"ē"{­  Ä˜hŠ zhŠÜ!k–Ÿ h1kÕķ9į’Ėj"³ å”Ō.#xę l$˜± å”Ō$†`¹h ń$}lŠč ń "īį’Ėj#zkŠŹ"³ń1k ՜1xę mgs'¤ (ē#xÄ($Ä(ē)Ä(ē˜Ä%˜Ņ1xē 'Ċ_%n†`%xŗŸi!ń'ēs'ē%Ä1xē 'Ċ=!Ō%n%zm%˜±i!Ō †`%xŗŸiŠå%˜Ņ &ēs&ē'Ċ'ēs'ē&zÄ&ē'Ä#1°)å”Ō’ĖqŠ’Ėq– Õ¦1xę h ˜Ó ¦­x†`¹¦­yh­ ˜° Ō䊘¦–.1kl#˜±$å”Ōdb#yq$ń#zkŠź$"ę±”Ō(5Ņ" $ń`s!˜Ó!ē Ċ1xē Ä "Ä ē˜ÄŠ5Ņļ–?q …iÓq Š÷–i†d†r¹ŸÕš†d†r¹Ÿ†d†€Š¹Ÿ”†d‚€¹Ÿ”†d†€†¹Ÿ”†d†€‚¹Ÿ”Ō!†d†v¹5°”ŌļŠ  ļŌqhŠØ†d†r¹ń5‘…°†d†n¹”Ōq †d†n¹Ōq p…iӐ Š…Ņ ‹Z’’Ė„q 5Ņ 1xē 47¢’ĖÄ6Ó^…iÓq ŠS†d†r¹†d‚€ ¹ Ō 6ķ’Ė„q Š2†d†n¹Ō 6ī’Ė„q Š†`†dÅq …iӐ Š 5Ņq Šž–‚q …iÓ …iŅļ q Šš–÷q …iÓf…iŅ]†d†€Š¹†d†€†¹ †d†€‚¹ Ō/q …iŅqh5Ņ ēÄļq …iŅ Š ’Ėqq Š ļŌqhq Šq Š•q – †d †~¹ŌW†d†z¹Ÿ†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō5Ņq …iŅq …iŅłq Š©†d†z¹ŌL†d†~¹Ÿ†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō q …iŅłq Š“†d†v¹ŌM5ŅļŠE†d†~¹Ÿ†d†z¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ōq Š»–3†d†~¹Ÿ†d†z¹Ÿ”†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d‚€¹Ÿ”†d†€‚¹Ÿ”Ō-…Ō„Š„q …i±…i±”Ō’Ėq…iÓq Š÷‹›ļ†d†€Š¹†d†€†¹ †d†€‚¹ Ōl5Ņ„Š„q …iӁ’Ėqq¦5Ņ…Ō…Ņ­ēĊ­ēÄļ…i€4Śńq Šō…iŅļ …iÓq Š÷5Ņ q„†‚Ltp†d‚€¹Ō„q …°…° Õßž–&5Ņ„„ Š„†`†dÅq …iÓ ’Ėq‹Ä!qh…i€4Śńq Šō…iŅ …iÓq Š÷5Ņ q„†‚Ltpq …Ņ…iÓ ’ĖqŠx†d‚€"¹Ÿ†d†~¹Ÿ”†d†z¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d†v¹Ÿ”†d†r¹Ÿ”†d†€‚¹Ÿ”Ō5Ņ†d‚€&¹Ō ēĊ ēĐŠ–implemenimplemencase implemenimplemenimplemenimplemenimplemenlabel forward ~7C™Rm¬µÓ¢8 œ)INITIALIbˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€ ň€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ€HĖīׂ€Åˆ €HĖīׂ€"ň €HĖīׂ€&ň €HĖīׂ€*ň €HĖīׂ€.ň €HĖīׂ€2ň€HĖīׂ€6ň€HĖīׂ€:ň€HĖīׂ€>ň€HĖīׂ€Bň€HĖīׂ€Fň€HĖīׂ€Jň€HĖīׂ€Nň€HĖīׂ€Rň€HĖīׂ€Vň€HĖīׂ€Zň€HĖīׂ€^ň€HĖīׂ€bň€HĖīׂ€fň€HĖīׂ€jň€HĖīׂ€nň€HĖīׂ€rň€HĖīׂ€vň€HĖīׂ€zň€ €HĖīׂ€~ň€!€HĖīׂ€‚ň€"€HĖīׂ€†Åˆ€#€HĖīׂ€ŠÅˆ€$€HĖīׂ€ŽÅˆ€%€HĖīׂ€’ň€&€HĖīׂ€–ň€'€HĖīׂ€šÅˆ€(€HĖīׂ€žÅˆ€)€HĖīׂ€¢Åˆ€*€HĖīׂ€¦Åˆ€+€HĖīׂ€ŖÅ–{#†€Ž‚€®Å†€Š‚€²Å†€‚‚€¶Å†€†‚€ŗņ~‚€¾Å†z‚€Āņv‚€Ęņr‚€ŹÅ†n‚€Īņj‚€Ņҁ$ńpŠa€,€HĖīׂ€ÖÅa€-€HĖīׂ€ŚÅa€.€HĖīׂ€ŽÅa€/€HĖīׂ€āÅa€0€HĖīׂ€ęÅa€1€HĖīׂ€źÅa€2€HĖīׂ€īÅa€3€HĖīׂ€ņÅa€4€HĖīׂ€öÅa€5€HĖīׂ€śÅa€6€HĖīׂ€žÅa€7€HĖīׂÅa€8€HĖīׂÅa€9€HĖīׂ Åa€:€HĖīׂÅa€;€HĖīׂÅa€<€HĖīׂÅa€=€HĖīׂÅa€>€HĖīׂÅa€?€HĖīׂ"Åa€@€HĖīׂ&Åa€A€HĖīׂ*Åa€B€HĖīׂ.Åa€C€HĖīׂ2Åa€D€HĖīׂ6Åa€E€HĖīׂ:Åa€F€HĖīׂ>Åa€G€HĖīׂBÅa€H€HĖīׂFÅĒ„h€HĖ€H€HĖ¤#h ‡#²Ō&†da €HĖī×Åq¤"5Ņ‡"ēÄ ķhŠÓ–$„Ž†€ö‚JėPaƒKĒŽš‚St pš†tpšt p…€(€„¼ŚŌŁš‚it š†€ö€Pt št †€ö‚‚čŌp††€ö˜vpÓ"†¤d„d†€ö˜€Pw„d‚ƒ€Uw„d˜vpŅ„š‚†t š`t št ƒ™ŚŌą aŠŚļš‚”t š`t št ƒ¹ŚŌą aŠŚ„…Ō(š‚Įt š`t št ƒŲŚŌą aŠŚ„š‚ąt š`t št ƒõŚŌą aŠŚ„?Ō}š‚żt š`t št ƒ‚ŚŌą aŠŚ„š‚‚t š`t št ƒ‚+ŚŌą aŠŚ„…Ō)š‚‚3t š„€Pt št †ƒy„˜vpŅך‚‚Ft š„;€Pt št „;‚‚YčŌp„;‚‚Zč„;‚‚\č „;‚‚ač „;‚‚fč å„†‚L„;˜vpŅ¢–€ŽĀ˜„†s1¤‡˜Ä‡ē˜Ä‡ē˜Ä5ķ’Ė„’Ė„ €ČĖ„ €ČĖ„ ’Ė„’Ė„įį’Ė„  € „‡Ō\†@ƒ‚kĒŽ`†@Šƒ‚qŪĒŽ†0ƒ‚yĒŽ† `Š†0ŠŪƒ‚}ŪĒŽ†P`Š†0ŠŪƒ‚ƒŪĒŽ„„i„„„„…¢£ķ’Ė„‡…”Ō8q †‚L‚‚‹t p†‚Ltp†‚L‚‚§t p†‚Ltp†‚Ltp†‚Ltp–attach blockreablockwriclose concat copy delete exit fillchargotoxy halt idsearchinsert ioresultlength mark memavailmemlock memswap moveleftmoverighpos pwroftenrelease scan seek seminit signal sizeof start str time treesearunitbusyunitcleaunitreadunitstatunitwaitunitwritvaravailvardispovarnew wait program procedurprocess functionconst type var begin end unit abs arctan atan chr cos dispose eof eoln exp get ln new odd ord page pred put read readln reset rewrite round sin sqr sqrt succ trunc write writeln +How wide is your output device ? [40..132] 1Please enter the file you wish Cross-Referenced: .text%Do you want intrinsics listed? [y/n] @@.Do you want initial procedure nestings? [y/n] @@-Do you want procedure called by trees? [y/n] @@(Do you want variables referenced? [y/n] @@,Do you want variable called by trees? [y/n] @@Do you wish warnings ? [y/n] @@%Please enter your warning file name: $Please enter your output file name: #1:Console::CONSOLE::console::ž’’ž’’’€€S (6 Absolute/Relative Program/Procedure/Function headingg6-------------------------------------------------------Ą ƒÕkTREEDUMP:7`c«%Ņ †‚L`t pŠ †‚L%tp–l"˜±Õ("h ęļ†‚Ltp†‚L ę tp ę ’Ė‚€ļ ęŠ]…Ņ†‚L‚€t pŠ †‚L‚€ t pŠ=†‚L‚€ t pŠ.†‚L‚€t pŠ†‚L‚€t pŠ†‚L ętpŠր†‚L‚€!t p"˜"|q†‚L‚€#t p ę ¦’Ė¦­˜Ó[­i­…°­±”Ō!†‚Ltp†‚L€ ¢” p†‚L‚€%t p!x˜!x|q†‚L‚€'t p­y¦­ķ’Ė¦Š †‚Ltp ļ–`#˜±Õč#h ęļ#˜#|q†‚L‚€)t p ę ¦’Ė¦­˜±Õ„­˜±Õž­i­ķ…³Ō(’Ė¦†‚Ltp†‚L€ ” p†‚L‚€+t p†‚L€ ” p!y#Ó­ķ’Ė¦!yj"˜"|q!{Ō †‚L€*” pŠ †‚L€ ” p!xj"˜"|q†‚L€ ” p­z¦­¢’Ė¦‹[’†‚Ltp†‚Ltp ļ–q%Ō&Š&–   eh?? extt fmll extt  ’š’į’Ć’Ņ’ ’  :  :   :: ::ø 2ĢPROCTREE™d„ «®hij!å ˜±”Ō_( Äd ēŗń xhŠd ē»ń yhŠi5Ņ6"åd ē¹”Ō)®yk( Ä# ē ŗń xhŠ# ē »ń yhŠjŠŹŠ™5Ņ!¤ Š"¤ – “af«®h ˜Ó% Ä xhŠō–©­k&Ō(as!l$˜Ä$ē#Å$ē#|ĒÄ#˜bļ"s"!ċĮ5Š ` sŠ ` sŠր l$ē˜ Ä$˜Ä5Ņ$ē®xÅ$ē®x|ĒĊ®m$ē%xÅ$ē%x|ĒÄ$ē %yÅ$ēs$m%˜Ä%ē­Å%ē­|ĒÄ®˜Ņ ¦ŠE®ē ēŗń 5Š®ē sŠ ®ē sŠր®ē Ċ5Š® sŠ ® sŠր ® ĖS!˜±Õ!h ęļ5Ņ ę ¦Š ę ¦3Ō<7€2Ņ*štpš€{” pš7tpš‚€t pŠ š€.” p7ķ’Ė„5Ņ­˜Ó­x˜ˆ­y¦ŠēŠ­˜Ó­x˜ˆ­z¦Šē ļ–0"˜±ÕŠ"h yļ’Ė¦ 5Ņ ē ˜­q†‚L‚€t p ē˜ ~q†‚L‚€t p ¦ ­ ˜Óu­ i­ …°­ ±”Ō;†‚Ltp5Ņ†‚L€ ” p†‚L‚€t p†‚L€ ” p†‚L‚€t p!ē˜!}q†‚L‚€t p­ ķ’Ė¦ ­ x¦ Š††‚Ltp†‚Ltp xļ–& ˜hasĒo3Ō<5Ņštpš‚€t pštpŠštpš‚€,t pštp’Ė„03Ō<5Ņštpš‚€=t pštpŠštpš‚€Ot pštpq 5Ņ*†‚L‚€bt p†‚Ltp†‚L‚€rt p†‚LtpŠ(†‚L‚€‚t p†‚Ltp†‚L‚€št p†‚Ltp as– ń’÷’ė’ō’ļ’ö’}   ::  :: "Building procedure called by treess!Building Variable called by trees"Printing procedure called by treess%Printing Variable referenced by treesProcedure  Called Byy-------------------------------/Procedure Variable Referenced By/-----------------------------------------------,\O ךoDOPASS źŅas5Ņ&3Ōš‚€t pštp†v†‚L ” pq …iÓ ’Ėq‹v†d†€Ž¹Ÿ†d†j¹Ÿ”Ō ’Ėq‹U†d†€Ž¹Ō„Š„r…åÕ9…i±…i ±”>å”Ō ’ĖqŠ 5Ņ„ qq 5°Õ…3Ōštpš‚€t pštp†‚L‚€t p†‚L€ ” p†‚L‚€&t p†‚Ltp’Ė€%¢’Ėkh #²Ō†‚L€-” p ķhŠė†‚Ltp0” †‚LtpŠK3Ōštpš‚€/t pštp†‚L‚€Et p†‚Ltp†‚L‚€Yt p†‚Ltp0” 3…5°”…5°” ”Ō/štp‚€m” j"'³ńš‚€nt pštp” as–Initiaize Pass 2, VariablesPrinting Standard TreesHead Body Notes  Calls Made Too*Now Printing the variable reference tabless'Procedure References Variables'---------------------------------------+Memory small, variable trees not guaranteed …REFERENCČI¦†‚L‚€t p­²Ō†‚L€ ” p­ķ’Ė¦Šā–·c„ «i’Ė’Ėjh "²ŌE'c ķĖī§€ °”Ō Š- (ŚŌ†‚Lc ķĖī§€ £” pŠ†‚Lc ķĖī§” p ķhŠ¶'!å”Ō – ‘†‚L47¢tp†‚L€/” p†‚L7tp†‚L‚€t p€ČĖh<Ņ< ;³Ÿ†€’ €ČĖī§€ °”Ō ķ€ČĖhŠć9Œ ī£„„ 9²ń †‚L€ 9Œ” pŠ9=²ń †‚L€ =” pŠ'=³ń" ;³Ÿ†€’ €ČĖī§€ °” =į²”Ō ķ€ČĖhŠŽ ;³ń†‚L†€’ €ČĖī§” p ķ€ČĖhŠß†‚Ltp–\7Ņp„š‚€t p ‹‡š‚€t pŠ{š‚€t pŠlš‚€)t pŠ]š‚€9t pŠNš‚€It pŠ?š‚€[t pŠ0š‚€gt pŠ!š‚€vt pŠš‚€‡t pŠր™š‚€¤t pš7tpštp–ā…Ō|8ķ’Ė„ †ƒy‚€Ŗt p ŠC†ƒy†`t p†ƒy‚€Æt pŠ,†ƒy†`t p†ƒy‚€¹t pŠ†ƒy‚€Ęt pŠրՆƒy‚€Śt p†ƒy7tp†ƒytp–dĖ:;³ń):ķ€ČĖ„ †€’:€ČĖī§„2€.°†d†n¹”Ō„‹N3Ō<7€2Ņ*štpš€{” pš7tpš‚€Žt pŠ š€.” p…Ō‘€ČĖ„ …ÕƆ`tpŅW ’Ė„†a€Čt p†t pa¤g„ga˜€Čw„g‚€ą€Éw„gėČaģ§„a§£€ČĖ„ aģ†€’€ČĖī;pŠV†a€Čt p†t pa¤g„ga˜€Čw„g‚€į€Éw„gėČ7ķ’Ė„  aģ§„a§£€ČĖ„ aģ†€’€ČĖī;p€ČĖ„ ‹:…ÕĶ†„¦tpŌY€ „€ČĖ„ 47¢’Ė„…’Ė„„†„¦vp5Ņ'†‚L‚€āt p†‚L†€ö˜t p†‚Ltp†‚Ltpp†„¦tpń';ķ€ČĖ„ †„¦†€’;€ČĖī¤g¤h„it ‡h‡g‡iČpŠĻ;ķ€ČĖ„ †€’;€ČĖī€ Ȇ„¦t p7ķ’Ė„€ČĖ„ †€’€ČĖī§„Šh†tpń';ķ€ČĖ„ ††€’;€ČĖī¤g¤h„it ‡h‡g‡iČpŠĻ;ķ€ČĖ„ †€’;€ČĖī€ Ȇt p7ķ’Ė„€ČĖ„ †€’€ČĖī§„–€Ėœ"Ä ˜±"xå”Ō$! Ć` »ń ~hŠ†` ŗń }hŠ"ĊӖĄ`s !Ä ē˜Ä ē1Ä „9ķį’Ė„ –ä0h ˜Ó ¦†` »ń ęhŠ hŠä– 0˜Ņ"„Š i†`!»ń!ē"Ċ!ē"Ėj†`†dÅ5Š `sŠ ` sŠրč%ŌŠ,1y˜Ņ1ē Ċ ba1y‘"ń!k†d#»ń#ē Ċ#ē Ä"åՁ k#†dÅ#ē…hĒÄ#ē˜Ä#ē˜Ä#ē˜Ä#ē˜Ä#ē ˜Ä#ē 5ĖÄ5Š<#ē 47¢’ĖÄ#ē ’ĖÄ#ē ˜Ä$5°”Ō#ēĊ#ēĊ#ē ˜Ä#ē ˜ÄŠրģ n$Ō   Š1!n! 5Ņ(!ęŅ1ē!ę Ä!ēÄ!ē47¢’ĖĊ’Ė‘–bh ń‘h2€(Ņ‘2€*Ņ’Ė‘Š 2€{Ņ’Ė‘2!ŅŅ!€*Ņ‘h2€)°2€}° Ō¾‘–’„7’Ė„’Ė„€ČĖ„ €ČĖ„ € „p–®-‘…Ō‡.‹ 2€$Ó‡.‹ża‚€šė(‘2€IÓ‡.‹č‘2ƒ€ńŚŌ‡.‹Õ†„¦vp…Ō’Ė‘€(‡.†€’:€ČĖīp’Ėha Ȇ€’:€ČĖīaģ p3Ō%štpš‚€ōt pša˜t pštp5Ņ%†‚L‚€żt p†‚La˜t p†‚Ltp†‚Ltp†„¦a˜vpÓ4†„¦¤„a˜€(w„‚€-w„˜vpÓ ’Ė‘ŠŠ–. 2†0ŠŚŌ‘Šó2€.Ņ"†€’:ķ€ČĖī§†0ŠŚŌ‘2†0ŠŚŌ‘Šó2€E°2€e° Ō‘2€+°2€-° Ō‘2†0ŠŚŌ‘Šó– „i†d‚ ÅĒ„h’Ėh’Ėi!²2† ŠŚ”ŌO2†@ŠŚŌ†d Ėī2€ ¢Č…h īā¼ŪĒ„hŠ2€_Ņ ī’ĖhŠ †d Ėī2Č!ķ’Ėi ķ’Ėh‘Š¤2† ŠŚŌ‘Šó†d‚ ¹ŌN…Ō„†d†~¹Ÿ†d†z¹Ÿ”†d†v¹Ÿ”†d†€Š¹Ÿ”†d†€†¹Ÿ”†d†€‚¹Ÿ”Ō‘ Š¼„i†d‚¹†d‚¹ Ō„i†d‚¹Ō„„i–­ „i2†PŠŚŌr2Šj‘„iŠf‘2€*Ņ€*Š„iŠT€}ŠN‘2€'Ó‘Š÷‘Š?Š;‘2€=Ņ„i‘Š„iŠ(‘2€.Ó„iŠ „i‘Š‘„iŠ‘„iŠŠցŠ‘…i±Õ|’–ķ †‚L ” p†‚L‚tt p†‚L‚Št p†‚Ltp†‚Ltp†‚Ltp–v †„¦†…Ņįv†ƒy†„„įv†‚L†ƒxįv††‚Kįvš‚Žt pš‚¦t pštp’Ė„u…Ō” u?Ō” 8Ņ †ƒyvpŠ†ƒyvp†‚Lvp†„¦v†ƒyv†‚Lv†v–'ss FATAL ERROR - No "program" word"No identifier After prog/proc/funccToken After heading unexpecteddLost ".", check Begin/case/ends#Same name, but not forward-DeclaredInclude File not founddNested Include file not legal Units not in legal syntatic formm"No Identifier after const/type/varr v’…’”’£’²’Į’Š’ß’ī’ - AT LINE Warning: : may be undeclared: may not be initializeddNot Standard, Nested commentsŗ’Ō’ī’ line #}   Return to ń’÷’Į’ń’ (Include file is::Include file is::.TEXT uses packed segment interfac'{²’š’“’ė’Ų’Į’Į’Į’Į’Į’Į’Į’Į’Į’Į’Å’ņ’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’ł’¬’+Procedural Cross-Referencer - Version S-02.IV.0.aa/PROCEDURAL CROSS-REFERENCER VERSION S.02-IV.0.aaŠY³ĖāōŠ Yµs0Ė^'yEXTRAHEA EXTRAIO STRINGOPFILEOPS PASCALIOHEAPOPS  ńRECOVER  ! €€€€€€€€€€€€€€€€Óāéāé]LųSTUFF# 5£ø ŽYĄÓN-,ĄbĄÓŚ) źŠ0=€Óö0 źšRECOVER č­…€MĖ× h Ä ēÄ ēŹ ē†ė ē0ķÄ ē…€MĖĚ‚€r š†r …ƒ€ŚŌģšr…€YŅ42…ģppŅš‚€r šrŠš‚€ r šr–ˆ …˜Ņ†s…†ė …ē˜Ä‹µ…„…†蟅~˜±”Ō …~„Šä…†čń…ēs…~†ė …~ē˜ÄŠl†§³Ō††˜`t`ė†h`†˜t`‚€5t`†˜t`ė†ģ†ģ§¢Č†ģ§€9²ń†ģ€0Ȇģ†ģ§¢Čļ– µ1ķ„†‚€6ė†ģ1 €0¢Č†ģ1 €0¢Čļ–> †)’Ė§€ Ņ)ķ¤ Šķ†)’Ė§ƒ€;ŚńļŠY†‚€AėĖh†)’Ė§ƒ€Fƒ€LŪŚ ³Ÿ”Ō ķĖh† ģ†)’Ė§Č)ķ¤ ŠĒ††˜a taėļ– w!ÄpŅ*h† ’Ė§° ’³Ÿ”Ō ķhŠē† ’Ė§Ņ!Ė`&‹Ū#%ķÄh##xķÄ2†#xp’ji!"²Ō)†!’Ė§ā¼ ā¼Ū ā¼Ūā¼Ūƒ€PŪŚńh!ķiŠŅ#x$³  Ō³ Ō##xīċ€#%Ä##xķÄ2†#xp€@i†!’Ė§ƒ€XŚŌ!ķiŠé!€¾³h ń5h¦’ji!"²Ō†!’Ė§Óh!ķiŠč Ō2†#xķp`ļ#x$³  Ō Ō##xīĊր^–”i…ķh!…² !±”Ō‡…!€MĖ× x²Ō!hŠ!ķiŠÜ …²Ō/… €MĖ× x³Ō … €MĖ× x¤… ji!"³Ō…!ķ€MĖ× …!€MĖ× Å !īiŠŽ… €MĖ× j"‡Ä"ē/ķÄ"ē.Ź"ē ĖŹ"ēŹ.Ņ†kc†˜tc‚€btcė.Ņ†kc†˜tc‚€etcė"ē†ė"ē ĖÄ"ē †Åš‚€hr š†˜r š‚€kr š‡rš€-uš/ršr–6h¦jk"@†§£³Ÿ#å”Ōi†"’Ė§ƒ€vŚŌBi†"!¢’Ė§†!ķģ§°!³Ÿ”Ō!ķiŠį†"¢’Ė§†ģ§°!°”Ōk"¢šŠ ķh ²ń@j¦"ķjŠ†­å#å”Ōš–Æ#ā¦’jh "²Ō† ’Ė§Ó#Ä ķhŠē#xŌ2†%ķp#ļ#xŌ2†%¢p #x!å”Ō%$†ļ%…ļ #Ċ#Ä2†%p–f&Ā@h† ’Ė§ƒ€~ŚŌ ķhŠé& €¾³Ä&xՈ€@ļjmh %²Ō_dĖ† Œ’Ė§ČdĖ† Œķ’Ė§Č$idĖ† Œ¢’Ė§ČdĖ† Œ¢’Ė§Č!$¢k#"²ń#j ķhŠœ("¢'³ń("¢o('†ļ(…ļ – žk…ih !²Ō%… €MĖ× j­"x³­"y³Ÿ”Ōk"y¦ ķhŠÖ– …€M³Ōp…€MĖ× y Ņ hŠh 0²ŌA Ō:2† p 0a !ń 0a !Ō…ķ€MĖ„…€M²ńp…h ķhŠŗ–D…h2 p2 p2 p2 ģp–Œšbrš`r šcrš`r šaršr †#ĖŹ†" ĖŹ† !€dĖŹ–ųš‚€„r šr˜„†‚€‘ė„†‚€“ėš‚€—r š‚€¦r š†ršr š‚€±r š†r šr –Ļk…"× i"ŅW!x°!ēÉ°”!ē§²Ÿ”!ē§²”!ę³”!ę€M²”Ō(h !ē§²!ē §ƒ€ŗŚ”Ō ķhŠå !ē§²ńkŠm!ēɲŸ!ēɲ”!ē§²Ÿ”!ē§²”!y!x³”!ę ²”!ę ²Ÿ”!ē  ɀd³Ÿ”Ō(h !ē§²!ē §ƒ€ĄŚ”Ō ķhŠå !ē§²ńk–~ †ösŌ…× j"ī„"ꄁŠ&š‚€Ęr š†ršr pŅć0ī„€M„h …²ŌS Ō!š… × ē˜r š‚€Ōr šrŠ' …ji!"²Ō…!× …!ķ× Å !ķiŠę…ī„ ķhŠ¦–Ķ ‘šrš‚€Ųr š†r …ƒ€šŚń š†r Šźš…ušr…€YŅ‘‘–%GO AHEAD AND UPDATE DIRECTORY? (Y/N) @WRITE OKK)SECTOR ID ERROR--DISK MUST BE REFORMATTED.DUMMYNNXXž’’ ž’’’’’’’’’’’’’’’ž’’"’€’.TEXT.CODEFile  inserted at blocks ž’’’’’’’’’’’’’’’’ž’’Recover - Version II.0.gg022PROGRAMENTER TODAY'S DATE MM-DD-YY:USER'S DISK IN DRIVE:USER'S VOLUME ID:@’’’’G@’’’’GHow many blocks on disk ?  foundd/Are there still IMPORTANT files missing? (Y/N) @ž¤Čˆj5ŚS²>!ŻĘYQ ĮEXTRAIO STRINGOPHEAPOPS " PASCALIO ōCPMBOOT CPMUNIT  €€CPMBOOT B0¤‚1šŅ$š‚€s ššsš‚€s šs €+¤‚š`‡‚€+£ķī×@‡‚pp±¤‚‡‚ķ¤‚‡‚€+‡‚¢ī²Ÿ‡‚ Ōɇ‚Ōš‚€s š‡‚īsšs‹Š1šŅ"š‚€-s š1sš‚€=s šs ‡‚¤‚1`‡‚‡‚£ķī×@‡‚pp±¤‚‡‚ķ¤‚‡‚‡‚‡‚¢ī²Ÿ‡‚ Ōɇ‚Ōš‚€Gs š‡‚īsšsŠ¤‚–‚ÉŌš‚€[s šs­ķ¦­³ŌH1šŅ$š‚€ds ššsš‚€qs šs ˆ-ˆ‚0ˆˆˆrńp¦ˆ‚0­§h €²ń €€£h iŌš‚€{s šs–ŻŌNš‚€„s šsš‚€s š®„‡sš‚€’s š­sš‚€˜s š!sšsˆ/­!Č­ī³ń­ķ¦Še1šŅ"š‚€œs š1sš‚€¬s šs h®„‡®³Ÿ Œ€€³Ÿ”Ō1ˆ/ €€Œ®„‡p®„‡ķ¦„‡ ķhŠĻˆ/pŌ<š‚€¶s š®„‡sš‚€»s š­sšsš‚€Įs šs–Ōš‚€Źs šsšišh!€0€9¼ŚŌ b!€0£ŹŠ b!€A£ ¢Ź €0€9¼ŚŌ b €0£ŹŠ b €A£ ¢ŹbÉkŌNš‚€Ös š!sš‚€Ųs š sš‚€Ūs šbÉsšsš‚€äs šs–‡Ō(š‚€ļs šsš‚€ūs š)xsšskji"Œ!¢m%±(x±”Ō%)x£(x£on&'³Ōļ&īnŠó)%Ä(#Äd#¢"¢!¢Ź#on&'²ŌhddÉ ¢Ź ļ&ķnŠåddɐ¢ŹdÉÓš‚s šsŌ9š‚ s š#sš‚s š%sšsš‚s šs– óŌš‚#s šsnmlkījiˆ/p¦¦h €:Ņˆˆ Ņėi nŌš‚.s šs–ė…„„]„„ˆ¬PŌš‚9s šs¤„Š‡„‡‡„†¢iš‚Cs š„„]˜s š‚Ks šc€Ps šs c§Ņp‚Rc˜tŅ c¤„2„„2c˜€Pt„„2‚U€Tt„„2ėPc˜„-r¤„1‡„1ńš‚Xs šc˜s šs‡„1Õn’ńš‚^s š„„]˜s šsŠ¤„ŠŌš‚fs šs–„‰‚p‚|rrŌhšs‚r„1ÓU‚„‘ŌIš‚s š†s šs0ƒŚŌ‚„‘„Š‘„2Ōš‚Øs šsšsš‚²s šs –Put CP/M disk into drive  and type >&Error reading CBIOS at logical sector Put bootstrap disk into drive  and type >&Error writing CBIOS to logical sector Entering get_nextPut CP/M disk into drive  and type >Leaving get_nexttEntering out_data l_sector= out_index= data==Put bootstrap disk into drive  and type > l_sector= out_index=Leaving out_dataaEntering convert_ASCIIIb1= b2== convert_ASCII ==Leaving convert_ASCIIEntering process_a_line old_address==Checksum errorr data_bytes= new_address=Leaving process_a_lineeEntering get_HEX_codeLeaving get_HEX_codeeEntering # write_codeEnter name of .HEX file: .HEXX.HEXX Can't find Error writing Leaving write_codeeCP/M Boostrap Generator[A1]] bootstrapprimary bootstrapCBIOS from a .HEX file (Y/N) ? CBIOSGeneration complete$Put in system disk and type >qŹē›F| ųSTRINGOPPASCALIOCPMUNIT   "CONST $bytes_per_sector = 128; $sectors_per_track = 26; $tracks_per_disk = 77; $map_size = 16; {Number of bytes in disk allocation map} $buffer_size = 1024; {2 blocks + 1 (Must be multiple of 1024)} $buffer_blocks = 2; {Number of blocks in buffer, Must be even} "TYPE $byte = 0..255; $buffer_range = 0..buffer_size; $map_range = 1..map_size; $map_array = PACKED ARRAY [map_range] OF byte; $map_rec_p = ^map_rec; $map_rec = RECORD 0extent: byte; 0map: map_array; 0next_rec: map_rec_p; .END; $finder_rec = RECORD 3records: INTEGER; 3disk_map: map_rec_p; 1END; $a_buffer = PACKED ARRAY [buffer_range] OF byte; " "VAR $dir_read: BOOLEAN; { Directory read into core Boolean } $CPM_drive: INTEGER; { Drive from which directory was read } " "PROCEDURE initialize(title, version: STRING); "{ (Initialize the Unit and write out a header containing the 'title' $and 'version' of the program. Must be called before any routines within $this Unit are called. "} "FUNCTION get_drive(title: STRING): INTEGER; "{ (This function returns the drive number for the 'title' unit $desired. The drive number 0 is used as an abort. "} "FUNCTION get_char: CHAR; "{ (This function returns the character reads from the CONSOLE. $It will always return upper case. "} "FUNCTION read_directory: BOOLEAN; "{ (Finds out which drive to read the directory off and reads the $CP/M directory on the given drive. (It is known to be the first DIR_SCTR_SIZE CP/M logical sectors $on the DIR_TRK track. (Returns the directory in the globals variables: directory $and dir_structure. (Returns TRUE is the read is successful, FALSE otherwise. (Sets global variable 'drive' and 'dir_read'. "} "FUNCTION find_a_file(the_name: STRING; VAR the_file: finder_rec): BOOLEAN; "{ *Find the specific file in the global directory $ and return $its attributes in 'the_file'. *Returns FALSE if search is unsuccessful and 'the_file' record $is junk, otherwise TRUE. "} "FUNCTION list_directory(force: BOOLEAN): BOOLEAN; "{ (This routine will list a CP/M directory. $'force' is used to display deleted entries. (Returns TRUE if directory read was good, FALSE otherwise. "} "FUNCTION read_a_file(the_file: finder_rec; VAR buffer: a_buffer; 8VAR i,j,k: INTEGER): BOOLEAN; "{ &This routine will read up at most 8 sectors from 'the_file', $starting with the 'i'-th extent, the 'j'-the map and the 'k'-th $sector and put them into the 'buffer'. &This routine will return TRUE if a valid read was done or FALSE $is not. &One would normally initialize i,j and k to 0 and repeatly call $this routine until the entire file was read. "}  IMPLEMENTATION  óCPMUNIT 8US„+„V¬Pa„T¬PŌš‚€r šr`s†p„†ī×Ćī×Ćī× Ćī×Ćī×Ćī×Ćī× Ćī×Ć ī×Ć ī×Ć ī× Ć ī×Ć ī×Ćī×Ćī×Ćī×Ćī×Ćī×Ćī×Ćī× Ćī×Ćī×Ćī×Ćī× Ćī×Ćī×Ěrš„+˜r š‚€ r ša˜r šršrŌš‚€r šr–Wō+b„,¬PŌš‚€r šrš‚€"r šb˜r š‚€+r š`ršr 1ŚŌĻ Ó. p"p°i!ń"š‚€7r š rš‚€;r šr! ° Ō– ¤.Ōš‚€Br šr–-š`r  ƒ€KŚŌ €a£€A¢iŠ i–Ł$iš‚€Sr š#ršrš‚€]r š!xršrš‚€dr š!ēr š‚€kr š!ēr šrš‚€rr š!ēÉrš‚€zr š!ēÉršrš‚€ƒr jh "²Ōš!ē ī§r ķhŠźšr–ķ Œ†!ī×x¢īj–ĮŌš‚€‡r šr„l‚€“‘„1±Õ’†„ijh "²Ō 1! ī×@ ‘ ppÓp ķhŠŪ€@jh "²ŌV† ī×k#! īקÄ! ī×#ēp! ī× #ēp#ē! ī× §Ź#ē! īקŹ! ī×#ēp ķhŠ„l„Ōš‚€–r šr–,Ō@š‚€¢r šrš‚€®r šˆS˜r š‚€“r šˆS§ršr¤-ˆS§¢ķ²ˆS‚€ŗčŸ”Õ܈S§ji!"²Ō#ˆS!§ƒ€»ŚŌˆS!ˆS!§€a£€A¢Č!ķiŠŲˆSjbˆS˜€Ptb‚€Ć€RtbėPˆ€ pˆS§€.ˆSpiŌš‚€År š!ršr!²Ÿ!²”ŌR¤-ˆSˆ!pˆ€ pˆS§!££hŌš‚€Źr š ršr ²Ÿ ²”Ō ˆS!¢ˆ pŌš‚€Šr šr–, {„S„}¬PŌš‚€Ūr šr„€€p¤ ÕĒi¤ Ō;š‚€ęr šrš‚€ör šbr š‚€śr šfr šr!€@²*„!ī×x å”Õ\†!īפOb‡Oē¹f‡Oē¹”¤ *Õ5‡|¤PŌ2š‚€žr šbr šfr š‚r š!ršr‡Ox¤ „!ī×ćP‡OēÉćPē s‡Py‡OēÉćPyē‡OēŇPyē ˜Ä!ķ€@¤Qh ‡Q²Õ°† īפRb‡Rē¹f‡Rē¹”‡Rx(°”ՆŌš‚ r š ršr„ īץ s‡P‡Px‡RēÉ¢Ä+‡RēÉÄ+ē‡Rēؤ‡Py¤ ¤ ,˜±)å”Ō,x+x²Ÿ¤ )ń,¤,ę ¤ Šć-˜Ņ‡Pē+Ċ-ē +Ä+ē ,Ä ķh‹I’Š!ķi‹’žŌš‚r šr*¤Ōš‚&r šr–~‡OŌš‚0r šrb€€p¤JŌ€@¤Li!‡L²Ō†!ī×!‘ !ķiŠģ€@¤Li!‡L²Õ†!īפM‡Mx°‡P b!ī×xå”Õį‡Mx±¤Kb!īץC‡MēÅ„G‡MēŇMēɤI‡Jķ¤J!ķ€@¤Nh ‡N²ŌJ† īפO‡Ox°‡K唇Ox±‡K” ‡Oē„C¹”‡Oē„G¹”Ōb ī×ćI‡OēÉ¢¤I ķhŠ°‡KŌ š€(uŠš€ uš„Cr š„Gr š‡Iīķr‡KŌ š‚=r Š š‚Ar ‡JŅšr!ķi‹÷žšrŌš‚Er šr–PŻŌš‚Qr šri‘ń1Óš‚]r š1ršriŠ  Ōš‚pr šr–g f,ÅŌš‚|r šr¤+% p'˜±ÕG'h x*x± ę ˜±”Ō ę hŠķ x*x°)x³Ÿ”(x³Ÿ”*xŒ)x¢Œ(x¢&³Ÿ”Õ m%ē)xķī§Œk#¢i#ķj(x³Ÿ*xŒ)x¢Œ(x¢&³Ÿ”ÕĮՂš‚‡r š*xrš‚‰r š)xrš‚Œr š(xršrš‚r š!rš‚“r š"ršrš‚˜r š"!‘ ršr1+(x€€Œ"!‘ ppÓp"ķj"²ńj!ķi!€M²ńp((xķċ'’(xŅ(Ä))xķÄ)xŅ)Ä**xķĤŌš‚„r šr– n –Entering initialize Leaving initializeeEntering get_driveeWhat unit is the  disk (0,4,5,9..12) ? Drive not on-lineeLeaving get_drivež’’File Control Block Entry_type: File_name: file_type:  File_extent:  record_count:  Map: Entering read_directoryCP/MMLeaving read_directoryyEntering test_the_namee The_name: Length: ž’’... Dot_loc: Ext_size: Leaving test_the_nameEntering find_a_fileeEntering find_a_file WHILE loopName:  Ext: Found the file:  as FCB Adding a map - FCB Leaving find_a_file WHILE looppLeaving find_a_fileEntering write_directoryyK) K Leaving write_directoryEntering list_directory%Error in reading directory from unit Leaving list_directoryyEntering read_a_fileei:  j:  k: track: sector: PASCAL absolute sector: Leaving read_a_file’ćo qFyü­ 6 EXTRAIO STRINGOPHEAPOPS PASCALIO 9±Šs#2EKERNEL PRINTERRINITIALIGETCMD USERPROG  €€€ € €€€€€€€€€€€€XAKERNEL KERNEL KERNEL KERNEL _āļāļh°ž4.0HܼĢ2ĆfŸL%fDųŗ*¬)fŸL_D‚Å’›€_X.  CONST %MMAXINT = 32767; { MAXIMUM INTEGER VALUE } %MAXUNIT = 16; { MAXIMUM PHYSICAL UNIT # FOR UREAD } %MAXDIR = 77; { MAX NUMBER OF ENTRIES IN A DIRECTORY } %VIDLENG = 7; { NUMBER OF CHARS IN A VOLUME ID } %TIDLENG = 15; { NUMBER OF CHARS IN TITLE ID } %MAXSEG = 15; { MAX CODE SEGMENT NUMBER } %FBLKSIZE = 512; { STANDARD DISK BLOCK LENGTH } %DIRBLK = 2; { DISK ADDR OF DIRECTORY } %AGELIMIT = 300; { MAX AGE FOR GDIRP...IN TICKS } %EOL = 13; { END-OF-LINE...ASCII CR } %DLE = 16; { BLANK COMPRESSION CODE } %name_leng = 23; { Number of characters in a full file name} %swapping = 0; { Swapping segment status} & %p_locked = -1; { Position locked segment status} %stack_slop = 40; { Number of words of temp for procedure stack} %mem_link_size = 4; { Number of words in heap record}  %sys_error = 0; { Unknown system error} %proc_error= 3; { Unknown procedure error} %stk_error = 4; { Stack overflow error} %sys_io_error = 9; { System I/O error} %heap_error= 15; { Heap operation error} %seg_fault = 128; { Segment fault} %stk_fault = 129; { Stack fault} %heap_fault= 130; { Heap operation fault}    TYPE  %IORSLTWD = (INOERROR,IBADBLOCK,IBADUNIT,IBADMODE,ITIMEOUT, 1ILOSTUNIT,ILOSTFILE,IBADTITLE,INOROOM,INOUNIT, 1INOFILE,IDUPFILE,INOTCLOSED,INOTOPEN,IBADFORMAT, 1IBUFOVFL, i_write_prot, i_ill_block, i_ill_buf);  8{ COMMAND STATES...SEE GETCMD }  %CMDSTATE = (sys_boot, sys_init, sys_halt,UPROGNOU,UPROGUOK,SYSPROG, 1COMPONLY,COMPANDGO,LINKANDGO,sys_debug); % H{ CODE FILES USED IN GETCMD } H %SYSFILE = (ASSMBLER,COMPILER,EDITOR,FILER,LINKER);  H{ ARCHIVAL INFO...THE DATE }  %DATEREC = PACKED RECORD 1MONTH: 0..12; { 0 IMPLIES DATE NOT MEANINGFUL } 1DAY: 0..31; { DAY OF MONTH } 1YEAR: 0..100 { 100 IS TEMP DISK FLAG } /END { DATEREC } ;  H{ VOLUME TABLES } %UNITNUM = 0..MAXUNIT; %VID = STRING[VIDLENG];  H{ DISK DIRECTORIES } %DIRRANGE = 0..MAXDIR; %TID = STRING[TIDLENG];  %full_id = STRING[name_leng]; %file_table = ARRAY [sys_file] OF full_id; % %FILEKIND = (UNTYPEDFILE,XDSKFILE,CODEFILE,TEXTFILE, 1INFOFILE,DATAFILE,GRAFFILE,FOTOFILE,SECUREDIR);  %DIRENTRY = PACKED RECORD 2DFIRSTBLK: INTEGER; { FIRST PHYSICAL DISK ADDR } 2DLASTBLK: INTEGER; { POINTS AT BLOCK FOLLOWING } 2CASE DFKIND: FILEKIND OF 4SECUREDIR, 4UNTYPEDFILE: { ONLY IN DIR[0]...VOLUME INFO } 7(filler_1 : 0..2048; {13 bits} 8DVID: VID; { NAME OF DISK VOLUME } 8DEOVBLK: INTEGER;  { LASTBLK OF VOLUME } 8DNUMFILES: DIRRANGE; { NUM FILES IN DIR } 8DLOADTIME: INTEGER; { TIME OF LAST ACCESS } 8DLASTBOOT: DATEREC); { MOST RECENT DATE SETTING } 4XDSKFILE,CODEFILE,TEXTFILE,INFOFILE, 4DATAFILE,GRAFFILE,FOTOFILE: 7(filler_2 : 0..1024; {12 bits} 8status : BOOLEAN; {Filer kludge temporary} 8DTID: TID; { TITLE OF FILE } 8DLASTBYTE: 1..FBLKSIZE; { NUM BYTES IN LAST BLOCK } 8DACCESS: DATEREC) { LAST MODIFICATION DATE } 0END { DIRENTRY } ;  %DIRP = ^DIRECTORY;  %DIRECTORY = ARRAY [DIRRANGE] OF DIRENTRY;  H{ FILE INFORMATION }  %CLOSETYPE = (CNORMAL,CLOCK,CPURGE,CCRUNCH); %WINDOWP = ^WINDOW; %WINDOW = PACKED ARRAY [0..0] OF CHAR; %FIBP = ^FIB;  %FIB = RECORD -FWINDOW: WINDOWP; { USER WINDOW...F^, USED BY GET-PUT } -FEOF,FEOLN: BOOLEAN; -FSTATE: (FJANDW,FNEEDCHAR,FGOTCHAR); -FRECSIZE: INTEGER; { IN BYTES...0=>BLOCKFILE, 1=>CHARFILE } -f_lock : SEMAPHORE; -CASE FISOPEN: BOOLEAN OF /TRUE: (FISBLKD: BOOLEAN; { FILE IS ON BLOCK DEVICE } 6FUNIT: UNITNUM; { PHYSICAL UNIT # } 6FVID: VID; { VOLUME NAME } 6FREPTCNT, { # TIMES F^ VALID W/O GET } 6FNXTBLK, { NEXT REL BLOCK TO IO } 6FMAXBLK: INTEGER; { MAX REL BLOCK ACCESSED } 6FMODIFIED:BOOLEAN;{ PLEASE SET NEW DATE IN CLOSE } 6FHEADER: DIRENTRY;{ COPY OF DISK DIR ENTRY } 6CASE FSOFTBU' F: BOOLEAN OF { DISK GET-PUT STUFF } 8TRUE: (FNXTBYTE,FMAXBYTE: INTEGER; ?FBUFCHNGD: BOOLEAN; ?FBUFFER: PACKED ARRAY [0..FBLKSIZE] OF CHAR)) +END { FIB } ;  H{ USER WORKFILE STUFF }  %INFOREC = RECORD 1SYMFIBP,CODEFIBP: FIBP; { WORKFILES FOR SCRATCH } 1ERRSYM,ERRBLK,ERRNUM: INTEGER; { ERROR STUFF IN EDIT } 1SLOWTERM,STUPID: BOOLEAN; { STUDENT PROGRAMMER ID!! } 1ALTMODE: CHAR; { WASHOUT CHAR FOR COMPILER } 1GOTSYM,GOTCODE: BOOLEAN; { TITLES ARE MEANINGFUL } 1WORKVID,SYMVID,CODEVID: VID; { PERM&CUR WORKFILE VOLUMES } 1WORKTID,SYMTID,CODETID: TID { PERM&CUR WORKFILES TITLE } /END { INFOREC } ;   %int_p = ^INTEGER; %tib_p = ^tib; %sib_p = ^sib; %e_rec_p = ^e_rec; %e_vec_p = ^e_vec; %sem_p = ^sem; %mscwp = ^mscw; %p_mem_chunk = ^mem_chunk; %vip = ^vinfo;  %byte = 0..255; %mem_chunk = ARRAY [0..0] OF INTEGER; {Accessed $R-} %alpha = PACKED ARRAY [0..7] OF CHAR; {Identifier name} % %mem_ptr = RECORD 1CASE INTEGER OF 30 : (m : ^mem_link); 31 : (i : int_p); 32 : (c : p_mem_chunk); 33 : (t : INTEGER); /END {of mem_ptr}; % %mem_link = RECORD 2avail_list : mem_ptr; 2n_words : INTEGER; 2CASE BOOLEAN OF 4TRUE : (last_avail,  insertchar,deletchar:char; @expan1,expan2:integer; >end; 3HIGHTIME,LOWTIME: INTEGER; 3MISCINFO: PACKED RECORD ?NOBREAK,STUPID,SLOWTERM, ?HASXYCRT,HASLCCRT,HAS8510A,HASCLOCK: BOOLEAN; ?USERKIND:(NORMAL, AQUIZ, BOOKER, PQUIZ) =END; 3CRTTYPE: INTEGER; 3CRTCTRL: PACKED RECORD >RLF,NDFS,ERASEEOL,ERASEEOS,HOME,ESCAPE: CHAR; >BACKSPACE: CHAR; >FILLCOUNT: 0..255; >CLEARSCREEN, CLEARLINE: CHAR; >PREFIXED: PACKED ARRAY [0..8] OF BOOLEAN WIDTH,HEIGHT: INTEGER; >RIGHT,LEFT,DOWN,UP: CHAR; >BADCH,CHARDEL,STOP,BREAK,FLUSH,EOF: CHAR; >ALTMODE,LINEDEL: CHAR; >alphalok,notused_anymore,ETX,PREFIX: CHAR; >PREFIXED: PACKED ARRAY [0..15] OF BOOLEAN; so that file system locks are not enforced } $perm_sib:sibp; { points to a seg always in code pool } $dfliptog:boolean; { true when gdirp contains a flipped directory } " debugging:boolean; $permlist:memptr; { list of "permanent" new's } " suspectset : set of unitnum; " atsysprompt:boolean; { true if at system prompt } " userlib:fullid; { library text file } $syslist:e_rec_p; { last unit placed on unit_list that is a >system unit; all subsequent units added >to the unit_list are user units } $pool_base:memptr; { address of bottom used word in code pool } $nofit : boolean; {set to true if dumpsegs can't get any more room} " "procedure exec_error(bad_e_rec_p:e_rec_p; n_words,err:integer); "procedure seg_read(seg_erec: erec_p; read_loc:mem_ptr); "procedure s_rloc_seg{(cur_addr:memptr; segrelval:integer; var seg_rec:e_rec; 7first:boolean)}; "function ptr_add (p : mem_ptr; n_words : integer) : int_p; "function ptr_sub (p_0, p_1 : mem_ptr) : integer; "function ptr_less (p_1, p_2 : mem_ptr) : boolean; "function ptr_gtr (p_1, p_2 : mem_ptr) : boolean; "function ptr_geq (p_1, p_2 : mem_ptr) : boolean; "procedure print(s:string); "procedure printint(i:integer); "procedure writestr(s:string); "procedure checkunit(lvid:vid; lunit:unitnum); " implementation ‰PRINTERRöź`Ä yh ¤‡{zl‡|j$¤‡z‡x‡x×x"£×xŒ£ie‚€ė(‡‹ee‚€ė(‹^e‚€ė(‹Te‚€"ė(‹Je‚€.ė(‹@e‚€6ė(‹6e‚€?ė(‹,e‚€Gė(‹"e‚€Rė(‹e‚€`ė(‹e‚€hė(‡‹¦e‚€oė(‹Ÿe‚€yė(‹•e‚€ė(‹‹e‚€‹ė(‹e‚€”ė(Šxe‚€ė(Šoe‚€¦ė(Šfe‚€­ė(Š]e‚€µė(ŠTe‚€¼ė(ŠKe‚€Äė(ŠBe‚€Ėė(Š9e‚€Ōė(Š0e‚€Ūė(Š'e‚€äė(Še‚€ļė(Še‚€öė(Š e‚€żė(Šց‚e€(” ŠKe‚ė(ŠBe‚,ė(Š9e‚7ė(Š0e‚?ė(Š'e‚Gė(Še‚Sė(Še‚Yė(Š e‚hė(Šցo‚ƒp e˜p ‚„p $ēp‚‰p "p ‚p !p –Unknown run-time errorrValue range errorNo proc in seg-tableeExit from uncalled procStack overflowwInteger overflowwDivide by zerooNIL pointer referenceProgram interrupted by userSystem IO error unknown causeparity error (CRC))illegal unit ##illegal IO requesttdata-com timeouttvol went off-linefile lost in dirr bad file nameno room on voll vol not foundfile not foundd dup dir entryfile already open file not openbad input formattring buffer overfloww write protect illegal blockillegal bufferrW’a’k’* u’’ˆ’‘’š’£’¬’µ’¾’Ē’Š’Ł’ā’ė’ō’ IO error: Unimplemented instructionFloating point errorrString overflowProgrammed HALTIllegal heap operationn BreakpointtIncompatible real number size Set too large˜ž¢ž¬ž¶žĄžŹžŌžŽžčžņžµ’¾’Ē’Š’Ł’ā’ė’ō’Segment  Proc# Offset# rINITIALIī~`‚€ėP„Z˜įr„Z`˜˜r‡aŌo‡c„*€`‡lp0¤~‡~ē„Bҁ~ē„Gҁ~ē‡Hć~ē„Iҁ~ē%„OÅ ‡~ē"É ²ń ‡~ē" Ź†T‡~ē"ÉȆT‡~ē"Ép„Zrp"†O×ĆO× ĆO×€dĆOׁčĆOׁ'ĆZƒ€ ĒŽ0ēÄ0Ä0ēŹ–~ `d¬&p"pŅ †€‡&×`ė–šƒ†6āÄē˜Ä†€ķ× ‚€ė†€ķ× ‚€ė†€ķ× ‚€!ė†€ķ× ‚€)ė†€ķ× ‚€0ė†€ķ„4€xpĒ¤p„˜įr¤qh ‡q²Ō,†€‡ פr‡r‚€8ė‡rē 0ŚÄ‡rē’Ä ķhŠĶ¤qh ‡q²Õֆ€‡ פr‡r|ÕĄ p"p°Õµ rÕ®‡r0|× ēė 0zŅ!†@‡rėa‚€9ė„a˜˜r‡¦!„r¤s¤3‡3‡s²Ōj 0z°‡3‡pŚ ŌRa¤t„t‡r˜” „t„4‡3× ˜” „tė„a˜˜r‡Ō†€ķ‡3× aė‡p‡3ā¼ŻĒ¤p„r‡3ķ¤3Š ķh‹"’­$Ō†<†@ė†@„rh-˜Ņ ‚€Ap ŌŠū†D-× ē Å‚€M‚€Q‚€U‚€Y‚€]‚€`–ƒM…8ēāÄē˜Ä…;ēāÄē˜Ä…:ēāÄē˜Ä…9ēāÄē˜Ä†×…;Ć×…:Ćh yēāÄē˜Ä xēāÄē˜Ä–Ģ†<˜Ä†8€ ” …8˜įr†;€ ” `” …; r†:€ ” `” …: r†9€ ” `” …9 r†×…;Ć×…:Ći!ē€ ” !y˜įr!€ ” !x˜įr–@$„„(¬‡*„˜˜r‡*ń8‡&‚€dčń.`¤ „ ‡'˜” „ ‚€e” „ ‡&˜” „ ė‡*`˜˜r‡%‡*ć%xŌ‡'‡*ē ė‡&‡*ēė‡*r–*цh ēÄ ēÄ ēÄ­$Ō3 ē‚€fė ē‚€gė ē&‚€hė ē†@ė ē †@ė ē†@ė y‚€i ē ē ē  x‚€r ē ē ē ē0ē,ÉÄ ē0ēÉÄ ē0ēÉĖS …8r†yr†xr…;r…:r`‚€{ė…;`˜˜r…:`˜˜r­$Ō`‚€€ė…9`˜˜r†@‚€…ė†×…;Ć×…:Ć×…9ĆטĆטĆטĖ #`ׂ€Œė`ׂ€Žė`ׂ€ė`ׂ€’ė`ׂ€”ė`ׂ€–ė`ׂ€˜ė`ׂ€šė`ׂ€œė` ׂ€žė` ׂ€ ė` ׂ€¢ė` ׂ€¤ė` ׂ€¦ė`ׂ€Øė`ׂ€Ŗė‡$ŌŠ…9ę¤"‡"…9Ó!‡"ē‚€¬¹Ÿ…Wå Ō‡"ēć"ę¤"ŠŲ„?„8„N„:†=ĒŽq ‡$Ōtq š” ‡$Õ¤‡!å՜qš‚€°” š†@˜” š‚€µ” š” š” š‚€ø” š” š” †D¤#š‚€Å” š‡#ɔ š€-”š`‡#Éט” š€-”š‡# ɔ š” ŠŠš‚€Ī” š” –$*SYSTEM.MISCINFOO’:SYSTEM.ASSMBLERR:SYSTEM.COMPILERR:SYSTEM.EDITORR :SYSTEM.FILER:SYSTEM.LINKERR*SYSTEM.STARTUPCan't find system diskkCONSOLESYSTERMGRAPHICPRINTERREMINREMOUTT:*SYSTEM.WRK.TEXTT*SYSTEM.WRK.CODEECONSOLE::SYSTERM:: *USERLIB.TEXT???JanFebMarAprMayJunJulAugSepOctNovDec?????????REALOPS  Welcome , toU.C.S.D. p-System IV.00Current date is System re-initializedkč"©{z‰ ¬ GETCMD  # ¦k p–;)`„*¬P­ŠÕ`ėP p–+˜…WŌ‚€”„W…3h…3…L±Õź |„3 zę ” zē ” yi!xkj"#²Õ¶!l$ē"ī×xm%zn$ē"ī×x˜±Õ•"$ē$xķī×xŅ $ē"īטĊ}%y!Ņx&x˜Ó&|įŅ&&ę ”%ē”Š&ēĊ:0ę&y±”Ō)&ē o&ēÄ'x˜Ó 'xē'yĊ0+ ē 'yÄ'y˜Ó'yē 'xÄ%ē”"Ņ $ē"ī×”Š $ē"ī×”"ķj‹D’a!x¢”˜h…3h‹ ’…4ē…UīטĘ„5…Lh ˜Ó4 yi!k#ē#xķī×xj"±#ē"ī×x˜±”Ō!…4Ó #ē"ī×˜Ä |hŠČ–Ū…9j"i!ęh!{Ņ"!ē k#xē#yÄ#yē #xą2!Ņ#y„2a” i!"ŅĻ˜€‚p–ih !²Ōˆ ׁj"ēk#įÄ#ēįÄ ķhŠß¦Š{¦Šdį¦Ša–F"§ih !²Ō" §ƒ€ŚŌ " " §€A¢€a£Č ķhŠŽ–;h†x†@˜˜rp°¤ )ńT†x¤‚ „‚ †@˜” „‚ ‚€” „‚ ˜˜rp°¤ )Ō$†@¤‚ „‚ †@˜” „‚ ‚€” „‚ ė)Õ†x¤‚ ‡‚ ēÉÓ‚€ļ‡‚ ę¢¤ ‡‚ ęo‡‚ ę n¤ *åÕä&„ (p(¢¤ ('°¤ k ²#’³Ÿ”Õ±#j’"£ „ "pi„ "!¢§ °¤ !"¢ķk)Պ"!¢i„ "§Ņ"¢j!"£€ „ "pl"$¢j!į"£€ „ !īpl!$¢i!"£m%²ńm%³ŌEˆ…* ×+¤‚ „ "‡‚ ē%p‡‚ ē%ȇ‚ ē§€*Ņ‡‚ ē ‡‚ ē‚€$čŌ¦Š{ ķh‹B’ ²ń‚€,ļ‹’ ±¤ )ń¦ŠdŠ ¦Šd­Š{Ōˆ…*­Šd×+ē‚€AėPŠ­Šdī¦Šd­Šd¤‚ h ‡‚ ²Ōˆ…* ×+Ĉ…* ×+ē*Ä ķhŠą¦Š{†xr–‚X!xh!`§Ä``§Č`!xČ! Ė8`‡Ł`€’×x±Õ椁¤‡‡²՟`‡×`‡¢×`€’×xŅ `€`‡¢×x¤`€`‡¢×`€’×xÓ `€`‡¢×x¤`€p‡¢×`€€‡¢×„ÉŚŌ+¤¤‡‡²Ō`€‡Œ¢‡¢×‡ķ¤ŠŻ‡ķ¤‹W’`€Š×`€’א‡`Ł–y_­ŠÕ‚€IėP‡b­Šaķćbx²ń‡bĈ‡bxׁ¤,‡`ŅhŠˆ…*‡a×+¤-‡-xŅ¤+‹īŠ‡-xh‡aŅ aˆŠ¬ėPŠ­Š{Ōļ aˆ…*‡a×+ēėP†xa˜˜rp°¤+‡+åՑ‡a±a‚€JčŸ”Ձ‚€Ra˜” a§£±‚€Ua˜” a§£±a§¢²” ŌT†x¤-„-a˜€P” „-‚€X€U” „-˜˜rp°¤+‡+Ō'ˆ…*‡a×+ē¤-„-a˜€P” „-‚€[€U” „-ėP‡+Õ½‡,ē¤-†x¤.‡-ē‡.ę ć-ē‡.ęć-‡ać-ē‡`Ä‡-ē†xē ė‡-z‡.걤+‡+Ō‡-{‡,‡-z ¢pp°¤+‡, ‡+Ō6‡aŅ ‡.ēÉ°¤+‡+ń ­ŠÕ¤/„/a˜€P” „/‚€^€Y” „/ėPŠ­ŠÕ¤/„/‚€c” „/a˜€`” „/ėPŠ<ˆ…*‡a×+ē*ÄpŅ ­ŠÕ‚€lėPŠ­ŠÕ¤-„-‚€u” „-a˜€X” „-ėP‡+Ō‡bx¦Šaˆ…*‡a×+‡,ꀩĆxr‡+¤c–b¶#Äh#x² ”Ō'ˆ#xׁi!ēj"x­±"y­x± h Ō##xķÄŠŃ l–8jaŌa&'xļ j'x'xŒ£h"Ō[ˆ!ׁk#l%$ ×Å%ē$ē ×Å%ē$ē` ×Å%ē$ēp ×xÄ%ē$ē€€ ×Å%ē $ē€ ×Å%ē #ēÅŠ'įĖ d‡Å­i„ Éh Ņ2!ēī×” !ē ī×xēÄ!ē ī×xē…3Ä!ēī×x„3Š !ē ī×” !ē ī×xē” !ē ī×xj"zk"ē­Ä"ˆÅ#ēÄ#ēÄ#ēÄ"zēfÅ"zē„ ÉÄ#ē %Ä#ē $‡¢Ä#˜Ä#ē ­Ä#ē ­Ä#ē˜Ä#ē ˜Ä„  ÉŌ#ēĊ#ēįĖč %„‡&Å­¤‡ ‡¢‡¢i‡Œh¦‡!„ ¢!p ¢³ńd„ ¢c pg§ŅŠtc‚€z¹Ōg§jb‡ē‡xķī×pŠ)c˜š¤ ‡ēg§ī×(Ä(˜ŅŠ6c‚€~¹Ō„W ¢hŠ“„ ¢„ £ ¢ £p £h!ķiÕb’g§°¤'–&Õ „€„€’«˜¤€”o…3¤2‡2˜±'”Ō„€‡2zē¹Ÿo'Ō‡2|¤2Šą‡2˜°Õ–jokc"„3ļ#³'”Ō1„5„€¹Ÿ„9É „9ɇ€‘± „; ɱ o'Ō #ķkc"„3ļŠČ'Ō"ķj'å"­Šd²Ÿ ŌÆ"­Šd²ńS„ €!€ p„€„ p„ ‚€‚„ ˜” īČ­ŠÕ¤]„]‚€ƒ” „]„ ˜€U” „]‚€†€_” „]ėP‹å`‡>¢”‡>¢Ó ­ŠÕ‚€ŒėP‹į ‡>Äf” &‡CÄ&ē„Dė‡<¢le$”$Óf”`‡>¢”­ŠÕ‚€œėP‹„%…4ēī×xxÄ ēī×…4ēī×xÄ x¤]i!‡]²Ō ē!īטÄ!ķiŠģia ē‡>ķī×pia"„Hļ„Q„€¹!#° Ō„H!ķia"„Hļ!³ńß ēī×x¤2„3ń˜¤2ļ‡2¤€”Š‡2{²ń ‡2ē‡2{ķć2¤€”–€“o &xkh%x˜±&x…4±”Ō:&xl$ē$xķī×xh Ņ%xkŠh$ē ī×x˜Ņ$ē ī×%xēī×xĊ%xkŠE&xxli!$²Ō:&xē!ī×x˜±! ±”Ō$&xē!ī×xj"y&x±&x…4±”Ō %#Ä"ykc%ļk!ķiŠĮ#o–ęŌ „Š¬„Š×¬P¤ŠŁ‡ŠÕ‚€¬ėP …5˜Ó¤Šb¤Šc„Šb‡Šc„Šfh ‡Šb³”Ō „Šlɱh Ō‡Šbķ¤Šb„Šb‡Šc„ŠfŠ× Ō5‡ŠÕ‚€­čŌ$¤Š|„Š|‚€®” „Š|„Š¬˜€^” „Š|˜Š‡ŠÕ˜„ŠlÉŌ7‡ŠÖŌ&š‚€¶” š” ļŌļŠ‚€¼Š ­jÓ‚€½…4¤Š|‡Š|ē…UīׄŠh˜ćŠ|ē…Uī×x˜±Õ^…WŌY…L¤Š`‡Š`zē‚€Ę¹Ÿ‡Š`˜±”Ō ‡Š`|¤Š`Šį‡Š`˜Ó.‡Š`zx˜°0ęå”Ō„W‚€Ź”‡Š`zu„WŠ‚€Ī”…3¤Š`‡Š`˜ÓO‡Š`¤Š}‡Š}z¤Š~‡Š~|į°‡Š~x˜°”Ō)„, Še‡Š~ę ”‡Š~ę Ӑ‡ŠÕ‚€ŅėP‹¶‡Š`„Šep‡Š`|¤Š`Š«‡Š{ńY‡Šd¤Š}¤Šc‡Šc‡Š}²ŌF„…*‡Šc×+¤Š~‡Š~ę*Ō+š‚€ā” š‡Š~ē˜” š‚€ė” š” ‡Šcķ¤ŠcŠ±‡Š|ē…Uī×xy„5˜¤Š_‡Š|ē…Uī×xē„Š_¤Š_‡Š_˜Ó‡Š|ē…UīׇŠ_ēī×xćŠ|ē…Uī×x˜±¤ŠŁ–ŠŲ¶R†€ķ‡S× ˜cļj"åÕ²†€ķ‡S× ˜„-„1`ar ՞¤9‡9ķ¤9†€‡‡9פF‡F|ŌY‡F‚€ńė‡9rŌJ‡F0|× ēė„:¤G„G‡F˜” „G‚€ņ” „G„1˜” „Gė„:†€ķ‡S× čń „:˜cļj‡9°" ŌŒ"Ō†€ķ‡S× „:ėŠš‚€ó” š„1˜” "¤T–S‚˜¦j‡™Ņš‚€ś” ¤ Šš‚” ¤ š” ‡ ļՋ†¤ ‡ ę Ō4`¤ „ ‡ ē˜” „ ‚” „ ‡ ē˜” „ ė’‹‚‡™Ņš‚ ” Š š‚” š‚” š`€’” š” `‚čŌ‹ų``§§€.±¤ ‡ Ō$`¤ „ `˜€’” „ ‚€’” „ ė’Š``§īȇ y`˜˜rpÓš‚” š`˜” ‡ ē ċŽ„‡ yēė‡ Ō„„˜„ „§£” „ ė`¤ „ †€ķ‡ × ˜„‚#†€ķ‡ × ˜” ” „˜” „ ‚$€&” „ ė’…8`˜˜r„€‚,ė’‡ ę åÕ“š‚6” š`€’” š” `‚@čŸÕŽ`§0ē,ÉŅ‹ĻŠ~‚A`˜” ¤ ‡ Ó%`‡ ” „˜`€’‡ ” ‚B`˜” ¤ ŠÕ``§§€.Ņ„€`˜„ `§ī” „ ė’Š$„€¤ „ `˜€’” „ ‚C€’” „ ė’‡ x„€˜˜rpÓš‚H” š„€˜” Š$‡ ēć ēć ē恙Ņ¤™‡™ļ‡ yr…8r–™0 †yr…8r†h z²ń {²ńq š” ļŌļŠy ē‚Nčńa ē xē ė ē xēė ē‚VčńB ē ē ė ē§²ń0 ē˜a ē§£” a‚^čŌ ē& ē˜a ē§£” aė ēÄ­jŅļ– ¤*šŌ„€tŠ=š‚a” 0ēÉń š‚e” š‚k” š„€€’” š” „€§²ŸÕ¤‡„€§²„€‡§€=±”Ō ‡ķ¤Šį‡„€§²„€‡§€=°”Ō‡²Ÿ„€‡§€ ±”Ō ‡ī¤Šä`„€§‡£ķȄ€‡īČ`§²ń „€‡``§p`§²ń`˜tńš‚m” t p„€§²Ÿ„€„€§§€ °”Ō„€„€§” ŠŪ„€§²ńK„€„€§§€.Ņ„€„€§” Š‚v„€€’„€§ķ” „€˜„ļŌļŠ š„˜” –*  †h ęŌUq š” ia ē ˜” a‚y” a ē˜” a˜-ˆļŌš‚z” š” ļŠ šˆ˜” Šļ–uŁ‚€įįƒ™Ē€,qhq š”  Š-tŠ,tŠ'tŠ"ŁŠšŌŁŠ š‚Ÿ” Šց§ ƒ¼ŚŌ”–Ćšš Ō ‚ĀtŌ…;ēą;ēą;ēą:ēą9ēą9ēĆ×…;Ć×…:Ėi‡jŚŌ‚ÉaŌq ‡j€ĄŚŌ‡jŅ0ēÉŅ†¤,‡,ēć,ēć,ēĚŌ„?¤,„,‚Ń€+” „,‚ē€X” „,‚ž€z” „,˜įįƒ‚Ē€,qh„?q ‹©š” Ō‹šš” Ō‹ˆš‚‚” š” ŌŠkŠgŠbŠ]‡j°…4ē…Uī×x˜° Ōš” š‚‚” Šš‚‚#” š” Š ŠŠŠŠ ŠŠւ*Õśž–jREALOPSž’’.TEXT.TEXTLibrary File is not a Textfilee*SYSTEM.LIBRARY(Too many libraries in library text file..*SYSTEM.LIBRARY*SYSTEM.LIBRARY.CODE.code.CODE.CODE not codeBad block #0 in Illegal file nameNo file *** REALOPS  Unit not founddUnable to allocate global dataaUnable to allocate global dataaNo program in Linking....Must L(ink firsttREALOPS REALOPSREALOPSUnable to load segment on heappWarning: library not found.: Cannot find Assembling... Compiling....:AssembleeCompile what text? .TEXT Can't find :SYSTEM.SWAPDISK*SYSTEM.WRK.CODE[*]To what codefile? $$.CODE[*]] Can't open SYSTEM.WRK.CODESYSTEM.WRK.CODE.CODEExecute what filee? redirection error.CODE: Running....1Monitor: B(egin, E(nd, A(bort, S(uspend, R(esume & no monitor openASŁ’Š’Ō’ä’Ž’ pi="" pi= po=*SYSTEM.STARTUP+Command: E(dit, R(un, F(ile, C(omp, L(ink, -X(ecute, A(ssem, - D(ebug, H(alt, I(nitialize, "U(ser restart, M(onitor [IV.0 B3h]]z3$ Linking.... U not allowed Restarting... Xū’ž’™’ć’T’f’ņ’ķ’x’÷’č’£’•’½ ˆ š D ŻķŠ÷æŻ .Ÿ%šĪ : vU ä DUSERPROG."xh`§i``§Č`!Č" ĖS „ -Å,×x±Õ,א,×xi!Óu,!א,!×xh Óe,! ¢×,! ¢×x¤ ,א,×x¤ ok)²ń>¤ #'¢ko,! ¢'¢#¢×'³Ō(°,! ¢'¢#¢×x³Ÿ '° ¤ 'ķo*ŌŃ)ī¤ Š½,א,×xk,#א,#×xl$²ń%#īk,#א,#×xm%Ó ,%א,%īא$īlŠÖ,א,×xj"Ó8,"×xÓ0,"א,"īא"£j,"ķ×x¤ k#+²Ō,"א"īj#ķkŠķŠČ–¾`įÄa­Ĉ­ķ×Ä! Å!l$m%ēˆÅˆ­'×Ä%ēˆÅ%ē%ēÅ%ē&Ź%ē Ä$ē Äb(Å!kj%˜Ä(bÅ– Ś!xh!`§Ä``§Č`!xČ! Ėŗ`‡Ł`€’×x±Õ椁¤‡‡²ÕŸ`‡×`‡¢×`€’×xŅ `€`‡¢×x¤`€`‡¢×`€’×xÓ `€`‡¢×x¤`€p‡¢×`€€‡¢×„ÉŚŌ+¤¤‡‡²Ō`€‡Œ¢‡¢×‡ķ¤ŠŻ‡ķ¤‹W’`€Š×`€’א‡`Ł–hl¦…c­…c$²Ō&mi!%²Ōˆ…­…c×!טÄ!ķiŠč­…cķ¦…cŠÓhį¦…c­…cķ¦…c­…dˆ­…cׁ­…Y ¢pˆ­…cׁļli!$²Õˆ­…cׁm­…cŅ9…4ē!ķī×x˜Ó…4ē!ķī×xzē ­…eĈ…×!×…4ē!ķī×xċ¶%ē`!×ɱÕØc®Ĉ®×Ä#n&˜Ä&ēÄ&ēÄ&ēÄ&ēÄ&ē %!×yÄ&ē %!×x­…Y¢Ä&ē ­…eÄ%ē`!×ÉŚŌ&ē %ē€!×xĊ&ē Ä&ē˜Ä&ē ˜Ä&ē%ē€€!×ÉÄb®Ĉ®×Ä"n&ē#Ä&ēÄ&ē˜Äˆ…­…c×!×"Ä!ķi‹õžˆ­…cׁꀩh °­…c° Õ­ž­…c° ±”Ō ‚€p ŌŠū–€`!§Č!!§Č!`§Č–Óa%xĀMjh "²Ō?! × k# #ē #ē #ēl Ņ$ē $ē $ē $ē Š $ē $ē  ķhŠ¼–O s…4ēī×xzē „…dp­h ¤…U‡…d‡…Uģp‡…U× y±‡…U× y ±”Ō„…U ‡…U× ę¤…X‡…X²Ÿ‡…U‡…X× ē‚€čŸ”Ō ‡…Xī¤…XŠŻ‡…U‡…X× x¤…Y­h ¤…eˆ­×ć…e‡…dć…eē‡…U× ēė į„U˜¤…T¤†n¤…W‡…W‡†n²Ō0aׁē ‡…Wׂ€¹Ō„…g„…ׇ…W×xŇ…Wķ¤…WŠĒ‡…c¤†n¤…[‡…[‡†n²Õ`a‡…[ׁ¤†o¤†p¤…W‡…W‡†p²Õ:‡†oē ‡…Wׂ€¹Ō‡†oē€€‡…W×É„U‡†oē`‡…W×ÉŚÕł‡†oē ‡…Wׂ€¹ŸÕŠ„…fˆÅˆ­‡†oē€‡…W×x¢×ć…fׇ…gÄ­h ¤…ˆ­‡†oē€‡…W×z¢×ć†oē€‡…W×z¤†q¤…V‡…V‡†q²Ō‡…ē‡…Vīטć…Vķ¤…VŠį‡…‡†oē€‡…W×zĤ…V„…V‡…ē‡…xķī×p‡…ēī×…4ēī×xć…ēī×xē‡…ēī×x{ķĊ6„…f„…gŤ†q¤…V‡…V‡†q²Ō…4ē‡…Vīטć…Vķ¤…VŠį…4¤…‡…c¤†q¤…Z‡…Z‡†q²Õōa‡…Zׁ¤†r¤†s¤…V‡…V‡†s²ÕĪ‡…V‡…W°‡…Z‡…[°”¤…h‡†rē`‡…V×ÉŅ#‡†rē€‡…V×a‡…[ׁē ‡…W×¹Ō¤…h‡…hŌz„…‡…Zׇ…V×x¤…S‡…ē‡†rē€€‡…V×Éīׇ…Sć…Sē‡…ć…S„…fŇ…Szē‡†rē ‡…V×Ň…Szē‡†rē€€‡…V×Éć…Szē ‡…eć…Sē‡…S{ķć…Vķ¤…V‹(’‡…Zķ¤…Z‹’„…‡…[ׇ…W×xē‡…TĄ…‡…[ׇ…W×x¤…T‡†o‡…Wפ†q‡†qy‡†qx¢‡…Y¢¤…`‡†qy¤…_‡†oē€‡…W×yī¤…^‡…^±Õm‡…d„…n‡…`p‡…`ķ¤…`‡…^¤†q¤…]‡…]‡†q²ÕB¤†r¤…\‡…\‡†r²ŌE„…i‡…\ׄ…n‡…_×xć…_ķ¤…_‡…_Ņ‡…d„…n‡…`p‡…`ķ¤…`¤…_‡…\ķ¤…\Š²„…i‚€"¹Ō>„…‡…[ׇ…W×xyxķ¤…b„…m§¤…V„…V„…‡…[ׇ…W×xyē‡…bī×p‹˜‡…c¤†r¤…Z‡…Z‡†r²Õ„¤†s¤…V‡…V‡†s²Ōia‡…Zׁē ‡…Vׄ…i¹ŌI„…‡…[ׇ…W×xyē„…m§īׄ…‡…Zׇ…V×xĄ…‡…Zׇ…V×xē„…. ‡…Zׇ…V×x{ķć…Vķ¤…VŠŽ‡…Zķ¤…Z‹r’‡…]ķ¤…]‹“ž‡…Wķ¤…W‹¼ū‡…[ķ¤…[‹–ū˜„5‡…T„3…3„L–†s¼ 0ē˜Ä†Fj"{k"āÄē˜Ä#"{×Ä"ē"{Œ×Ä#ē˜Ä#ēÄ#ē#Å#x˜Ä`Äa "{£×Ä!³ń !’¢ķiŠ!i†M"z!×ĖL …3h ˜°i!ń zē‚€&¹i!ń |h!Ōä ˜Ņ ‚€*p ŌŠū z„2…2„9†Fj…7k…2l$ē m#ē†Mx$ę ×Ä$†MÅ$ę x$x$ę Œ$ę p$š$ēÄ$ē${ķÄ%ē…2Ä%…2Ė€ †Jh ēāÄē˜Ä āÄē˜Ä ēÄ0ēāÄē˜Ä0ēāÄē˜Ä–ł p"†4įÄ…4ēī×xzļ†7įÄaÄ†Q€x†S€ś€’„W†FēaŐ  „;„V„N†=ĒŽ…4ē…UīטÄ`Ä yyє– –Too many dicts in SYSTEMM SYSTEM.PASCALKERNEL USERPROGKERNEL *** GOTOXY missing unit GOTOXYØ`*6B`įļl¬Ā ’°KERNEL #8¦­ē­Ä­˜Ņ­¦Š­ē­Ėū˜k…2jl"n&ē o&|Ņ;$&ę ¢l#i˜hm!˜±%”Ō#!z&z²Ÿ!z&z°!ę &ę ³Ÿ” Ō-Š!h!ęiŠÖ%Ō-'yj"…2Ņ±$(x)£³ń„N0ę €€Ņ€)pŠ€*p#i#ęk!n&ē o…2!Ņ'y„2&ē&{īÄ'yē 'xÄ'xē'yÄ'˜Ä'ē˜Ä((x&ę £Ä&˜Ä)(x³Ō»– ö…7¤ †F¤ ,{¤+ē‡į€(£‘k+ē†M‘‡¢mc,ē‘l$%³ń$e‘,,ē$%£‘j‡bÅ…2i˜h!¤.ē ¤!¤ .x‡x.x£f”‡.‘Ō !h/ē‡ÅŠ.x‡x.ę Œp.‡Å‡‡.ę ‘Ä.yŅ .ē.zÄŠ.ē.zÄ/yi!…2Ņ• ˜Ó' ¤.ē ¤.x/z.ę Œp./ēÅ/xh …2ę ŅŁ+ē‡Å†MbÅ–*!ē!{ķÄ!ē…2Ä!ē …2ę ą2ę ē!ą2ē !Ä Ō!„2–Ą…7i†Fj"{k#ēl'm%zn!ē!ē‘&ę €(¢³Ō`!ēÅ!ē!ē&ę ‘Ä%zå.ŠE†M"ē‘&ę ²ń†M†M&ę į‘Ä`†MÅ%z.Š&ę `‘*%zå.!ē!ē&ę ‘Ä'`‘'zē€ČĖi +Ž0¤ (ēß(ēÉn(ēŹ(xm`(ē Å…VŌ }{zoŠ ęzo'¤ )ē)|ķÄ#ŠL!‘)…NŌ˜‘Š@ …7Ó „N˜‘Š$!¤ *zē*z|ķÄ"d‘**zē*z|īąNŌ˜‘Š d‘*Šր)ē)|īÄ(%Ä(ē&ŹÕb’”– …'Ž‚€‘ ‚€‘ Ōż”–¢"xh`§i``§Č`!Č" ĖĒ „ -Å,×x±Õ,א0,×xi!Óu,!א0,!×xh Óe,! ¢×0,! ¢×x¤ ,א0,×x¤ ok)²ń>¤ #'¢ko,! ¢'¢#¢×0'³Ō(°,! ¢'¢#¢×x³Ÿ '° ¤ 'ķo*ŌŃ)ī¤ Š½,א0,×xk,#א0,#×xl$²ń%#īk,#א0,#×xm%Ó ,%א0,%īא0$īlŠÖ,א0,×xj"Ó8,"×xÓ0,"א0,"īא0"£j,"ķ×x¤ k#+²Ō,"א0"īj#ķkŠķŠČ–ģ)`„*¬Pp"``§p` Č`p–+’a#Å`!"×Ä l–1c%Åb$Å`#"£×Äcb‘ i ³Ÿ!”Ō ’¢ķh n–Lb$Åa#Å`"!µå”Ä m–fb$Åa#Å`"!“å”Ä m–}b$Åa#Å`"!µÄ m–Ś c‚€ ėj)³ń c€-Čj)į¤ 'h¤ ) i(å ° !± Ō!Ó¤ c"!€0¢Č"ķj) ¤ h ŅŅcp– ļ)`„*¬P``§p–+.!Ōp"‚€‘ ‚€‘ `p`§0ē,Éā¼ƒ€ŪŚŌć`§€ ±j–jaf¬‚€"‘ ‚€#‘ a˜‘ ‚€)‘ %‘ ‘1h†=†=Š%ā¼ŪĒŽ–°„„¬‡`pp°„c蔤.Ō†€‡‡×¤/„ė/ē'Ċ„˜‡‘2.Ōʖ „ *Å+o'ę ¤ p ±m)×`p%'ē`¹”m%ń4‚€.‘ ‚€/‘ 'ēp‚€4‘ (ē˜(x‘2†€‡(x×(ēė%¤ – ja"Å#zh ę x! ę ę ¢ ę p#za3Ōåa‘/pÓ˜ ‘!!#” aÅ…WŌ u…;Ōs–†^‚€;ėP†^†^§p`pįs–Ų…NŌo†Fm†^‚€DėP†^†^§paįÄ!ę ń4„N…6˜Ó&0ē˜Äc…6Ä%ē#ēÅ%ē%{ē‘Ɓ<˜Ä˜„6…9ęj"…9Ó "ēÄ"ęjŠļ€+p'€€³Ō@0xl`Ä0ēm%ēn%ß&įÄ&ē)Ä&ē(Ä&ē'Ä€ĄŃ„V%ēŽ%Ž„V Ń0$ċˆ„8aįÄ…;Ō"0ē m%įÄ%x}{zn&ē&|ķÄ's&ē&|īĊ7šš š Ōt†€‡0z׆@čŌ'pvŠ‚€M‘ ‚€N‘ '‘ 'Ó!ę ń4‘1ń…6˜Ó†6” €+p– / eįÄ%ę hbÄ"{yē)ī×xk"i!n&ē&|į/ Ä! Ņ"i!ē!|įÄ!yi! Ņņ˜‘&|į(°&{#°”! ° l&yi$Ōɖ ˜ †=ĒŽ…E” „E†6” …EųŚŌ” Š …E Ņįs†6” …E€ĄŚŌ†zŅ†xrŠ†xrpp Ōp"…EŚŌž–ć `Äb(Å#l$m n%ē&yÄ%ē&zÄ&ē&z¢Ä%ēÄ$ē %}ĆJēß'āÄē˜Ä(Ž'߆JēŽ– @ †Q†O‘5†O‘(œœœ†S†O‘5†O‘'œœœ…7„X…Xē Ä„;„E…E°w‘+…EŅóšŌ ‚€TtŌŌż””–€‚±’Ą’ö’waiting:: Type to continuee Put volume in unit Segment not found: Exec err--REBOOTT*STACK OVERFLOW** Exec err # po= o==Ī·ZśĘÓż š€øbn7ļĮfµØ›‚xŽŹō5*** CONCURREEXTRAHEAEXTRAIO PASCALIO HEAPOPS STRINGOP REALOPS COMMANDIDEBUGGERFILEOPS SCREENOP £×SMALLCOMCOMMANDI  €€€€€€€€€€€€€€€€ #&µ&_ÄļÄļhØż4.0˜”¼Š2`˜Lŗ–ŗ*¬)˜L_ņ&īļ‚ü:€_ .  uses {$U kernel.code} kernel;  type litrecp=^litrec; %litrec=record , next:litrecp; , size:integer;  {# of words of whole record} .bytes:packed array[0..1]of 0..255;{contains chars accessed r-} ,end;  var myprogin,mysysin,oldinput,oldoutput,monitor:fibp; $chainlist,progliteral,sysliteral:litrecp; procedure writemonchar(ch:char); function getredirectchar:char;  procedure updatebools; "procedure remliteral(var listhead:litrecp); "  implementation ¢SMALLCOM•D6˜±5˜± 4˜± 3˜± Ł›×x1±š:1± Ł7˜±Ł–W!xh!!xxÄ`u‘–!xh ē§¦ ē ē§īČ ē§Ó ē ē ē§pŠ!‘–¦6˜Ó†Š†‘–6˜±4˜°43° 5˜±” Ō‘jŠR4ęŌ/4`t 4y € °”Ō h4zŌ43Ņ ‚€rŌŠ ‚€rŌŠ4ę Ņ apŠ 4ę ap‘ j–!0 s–(–i==pi=.J$ U“PERMHEAPPASCALIOEXTRAIO COMMANDI   type bigstring=string[255];  var havechain,inredirect,outredirect,monitoropen,inmonitor:boolean; "function redirect(command:bigstring):boolean;  procedure exception(stopchaining:boolean); "procedure chain(command:bigstring); " 0 "procedure initcommand;  procedure startmonitor; "procedure stopmonitor(saveit:boolean); "procedure getchainline(var command:bigstring); "  implementation ÖCOMMANDIf‰+1Ō š‚€u Š_š‚€ u š`€Pu šu `§ÓA„*-r„+„*-īpć*‡+s‡*`˜˜spÓš‚€u „*rŠ‡*Ł„–+æ1Ō,šh!ŌšsŠšspÓ š‚€u „`r–D†āÄē˜Ä†××›Ć××›×Ć××›Ć××›:Ć××›Ć×כʣ˜Ł˜Łš:Ł˜Ł˜Ł˜Ł˜Ł„„v–ž†ß#§Ņ $x˜Ó$vŠöŠ:#§¢ķj`"r ē"Ä ˜Ä# ē#§ķp$xi!˜Ņ$ Ċ !x˜Ó!xiŠö! Äv†Ž–»šē šē§ķp›v–Ī€`„€¬’›`‘ –€‚0†"×!×xh x†"ī×!×xxÓA!Ņ xs"° x†×!×xx°”Ō†×!×x†×!×xÅ r †"ī×!×xxĖŽX„0„[¬P†ß¤]†‡ZׇY×xk„0§²ń}b-rab-īpÄ"!s"„0˜‡Y°˜spÓ"ld„0˜€Pwd‚€'€Uwd˜‡Y°˜spŅ+‡Z‡Y ‡ZŅ#x†×‡Y×xxŅ †×‡Y×x"Ä#"Ċbr¤]Š‡Z‡Y †Žv–\ž›<ˆ€Ķė›@ˆ€Įėp– ³ ˆ[§²”Ō ˆ[ §iŠi–/­Wˆ[§²h–=­Wļ h–Ģi€?h­Wķ¦W €"°ļ€"°”Ō­Wķ¦Wļńļ ļhļ€,Ņ ˆ€Ņ! Ȋ ˆ€Ņ!ļČ!ķi­Wķ¦W €"°ļ€"±”Ōƈ€Ņ!£Č­W¦X­€ŃŅ ›ˆ€Ņ‘ Š ›ˆ€Ņ‘ –šˆ"ׂ€*čńˆ"ט! ‘ ńļ –A)`„+¬Pˆ€Ņˆ‡.×ė’ˆ€Ņ‚€+čń,ˆ€Ņ‚€,čŌ‡-`ėPŠˆ€Ņ§‡*²ńļ Š ‡-ˆ€ŅėP–.©Ś„[„Ū¬’¤Ż„€Ķ›<ė„€Į›@ė¤Z¤€Ń‡€Ń‡Z²Ō`‡€Ńׂ€-ė(‡€Ńķ¤€ŃŠā„€©×‚€.ė„€©×‚€0ė„€©×‚€2ė„€©×‚€3ė„€©×‚€4ė„€©×‚€5ė¤U¤€Ń¤WՁ€ Ņ ‡Wķ¤WŠš‡W¤X‡X ā¼ƒ€6ŪŚń ‡Xķ¤XŠä‡X €=°Õ­‡UŌ `‡€Ńׂ€:ė(¤€Ń‡€Ńķ¤€Ń‡€ŃŅ ¤V‡X‡W£„€©‡€ŃקŅ^¤V‡W‡Xī¤Z¤Y‡Y‡Z²ŌD‡Y ¤S‡Sƒ€;ŚŌ ‡S€a£€A¢¤S‡S„€©‡€ŃׇY‡W£ķ§Ó¤V‡Yķ¤YŠ³‡VÕv’‡Xķ¤X¤U‹Շ¤U‡€ŃŅ €"Ņ‡€Ń ŚŌŠ Šd`‡€ŃׇX‡W£Č`‡€Ńק¤Z¤Y‡Y‡Z²Ō=„[‡Wī‡Y¢§¤S‡Sƒ€CŚŌ ‡S€a£€A¢¤S`‡€ŃׇY‡SȇYķ¤YŠŗ‡X¤W‹yž‡UŌ `‡€Ńׂ€Kė(›<›@˜›@‚€L¤Ż–ÜÄ‚€S‘Ō Ō‚€]‘–Ź–file already openWrite to what file? can't open filecan't close filee.text   PIIPOOIOPL ž’’ž’’ *USERLIB.TEXTi=o=pi=po=i=""pi=""śč”š‘qź¤ŃG bąW#dSTRINGOPSMALLCOMPASCALIOEXTRAIO FILEOPS PERMHEAP åååååå1 åååååååååååååååååååååååååå2 åååååååååååååååååååååååååå3 åååååååååååååååååååååååååå4 åååååååååååååååååååååååååå5 åååååååååååååååååååååååååå6 åååååååååååååååååååååååååå7 åååååååååååååååååååååååååå8 åååååååååååååååååååååååååå9 åååååååååååååååååååååååååå: åååååååååååååååååååååååååå; åååååååååååååååååååååååååå< åååååååååååååååååååååååååå= åååååååååååååååååååååååååå> åååååååååååååååååååååååååå? åååååååååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååååE ååååååååååååååååååååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå