IMD 1.16: 31/08/2007 10:23:31 pascal 8 8080 objects  1!x>w>>wwyWw yA yH->t>c>t>rw#e/v1/T!"]͘>2!".">>@>>7>!ͷM* y#kÊ*" bÇ SYSTEM.MICRO*^#V{/_z/W#^#Vͷ#·))$LM!'! DM#:M}G> KWgh>= ,a$ | :L*iͯ*e}¸|¸*e; ZQ{z| }2FUQ2G"H"JDM1 !F6M ; "=M ͡ =M YP͡ !&~ʇ #^#V:Fʀ *{€ z€ "#~62"Ç #w6 R 1**!W~4ʼ #~#F#¼ x¼ ~#s#r#w>Qʅ = =Uͧᯕo>gͧ 'd Un>#! ^#V#0}o|g- xD y0K GW yW W GD  z { < >'{>' *##V+^+N+y Uͧ ʮ ~+â _ Ê x. * w#͹ ͹  * ͹ ?r# :Ln!Ow #w q!\ͷ  ͹ :5 @w#ͷ : G6# .̹  U ͹ I 6# W  6   w#j !ex#345<+<5:BGS'*vv2Õ: :_!~(5 y _dy h7>2y!_ !` ~= __!m ~#fo!6=:= :<>2{P8>O2y͍͕ ͕:/2 >P(G  Cx!>G K Y=:O{ O    >( : 2>Oa{:y(y> 2>:_W!w8>W(z:<2:= !zWÓy!~_!wy_!~y2/y2Vy2`i">> 2*> :>(>~w#!4:= !͕z!ĕz!ĕz!ĕz!ĕz!ĕ!͕>W z>G(x:Vz> 2*> :>(>)~#!4:= !͕z@!ĕz !ĕÖG> 2Oyx  >(!4:= !WÓ~0~#NOT READY NO REC CRC LOST DATA BUSY PROTECT FAULT ERROR. READ WRITE SEEK HOME ^C LPT !͕͕O !͕(y6o>2!"""">h>9 y>!G>x( E 7@ bgүb~/W*" b!"~!""b:O* "b Op* "bx2b 2b9b:/g++!.@l^#V={^'Ÿ ,lŗkm HBf     &  %C e U7N ?IO ERROR WHILE BOOTING? 7, ?NOT ENOUGH CORE TO BOOT?   e   ևߕ vߕ 7 SYSTEM.PASCAL? w7j SYSTEM.PDP-11? @Aw  `! m d!  \ZD C& H&  0  EL    _ U@pe5w E ŋw Ŋw C! @  ̋   wLwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ COUNT BEQ RWBAD ; HAVE WE RUN OUT OF CHOICES ?? MOV @SP,R0 ; GET ADDRESS OF IDCODE CMP (R0)+,(R1)+ ; IS FIRST WORD EQUAL ? BNE 1$ CMP (R0)+,(R1)+ ; IS SECOND WORD EQUAL ? BNE 2$ CMP (R0)+,(R1)+ ; IS THIRD WORD EQUAL  PASCAL8Z * SYSTEM.FILERlZ*oSYSTEM.COMPILER o SYSTEM.PASCALm  SYSTEM.LINKERl  SYSTEM.MICROmz SYSTEM.EDITORm SYSTEM.LIBRARYm{  SYSTEM.SYNTAXm (BASIC.COMPILERl(/ LIBMAP.CODEl*/4 BINDER.CODEl*49 OPCODES.I5l`9b DISASM.CODEpbp YALOE.CODElpw LIBRARY.CODElw 8080T.MICROmz PATCH.CODEmf BOOTER.CODEm CALC.CODE PASCAL8Z * SYSTEM.FILERlZ*oSYSTEM.COMPILER o SYSTEM.PASCALm  SYSTEM.LINKERlm SETUP.CODEm9 GOTOXY.TEXT:r  GOTOXY.CODE:r  SYSTEM.MICROmz SYSTEM.EDITORm SYSTEM.LIBRARYm{  SYSTEM.SYNTAXm (BASIC.COMPILERl NUM<=254 THEN BLK:=8 0ELSE BLK:=10; *IF BLOCKREAD(F,BUF,2,BLK)<>2 THEN PUTNUM *ELSE ,BEGIN .IF BUF[0]=CHR(DLE) THEN PTR:=2  dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 FilELSE PTR:=0; .D0:=ERRNUM DIV 100; (* convert error number to characters *) .D1:=(ERRNUM-D0*100) DIV 10; .D2:=ERRNUM MOD 10; er error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PS.T[0]:=CHR(D0+ORD('0')); T[1]:=CHR(D1+ORD('0')); .T[2]:=CHR(D2+ORD('0')); .REPEAT 0FILLCHAR(C,3,'0'); 0COLON:=SCAN(MAXCHAR,=áPunRPPblkd volXP File name YPEFile or vol nameP- V(/ LIBMAP.CODEl*/4 BINDER.CODEl*49 OPCODES.I5l`9b DISASM.CODEpbp YALOE.CODE':',BUF[PTR]); 0MOVELEFT(BUF[PTR],C[3-COLON],COLON); 0COLON:=COLON+PTR; 0PTR:=SCAN(MAXCHAR,=CHR(EOL),BUF[PTR])+PTR+3 lpw LIBRARY.CODElw 8080T.MICROmz PATCH.CODEmf BOOTER.CODEm CALC.CODEr= FILEHAND m SETUP.CODEm9 GOTOXY.TEXT:r  GOTOXY.CODE:r ?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGOt???tJantFebtMartAprtMaytJuntJultAugt Sep SEGMENT PROCEDURE PUTSYNTAX;  VAR "D0,D1,D2,BLK,PTR,COLON: INTEGER; "T,C:PACKED ARRAY [0..2] OF CHAR; "BUF:PACKED ARRAY [0t Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYST..1023] OF CHAR; "F: FILE;   PROCEDURE PUTNUM;  BEGIN "MSG:='Syntax Error #'; PUTMSG; "WRITE(USERINFO.ERRNUM,'. Type EM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;V');  END;   BEGIN (* putsyntax *) "WITH USERINFO DO $BEGIN &OPENOLD(F,'*SYSTEM.SYNTAX'); &IF IORESULT<>0 THEN PUTNUM &E~vnOKŦ((89bتP&R ParLSE (BEGIN *IF ERRNUM<=109 THEN BLK:=2 *ELSE ,IF ERRNUM<=131 THEN BLK:=4 ,ELSE .IF ERRNUM<=156 THEN BLK:=6 .ELSE 0IF ERRity (CRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost in using ? on wildcards to same volSd.02468:<>@BD "$&(*,.02468:<>@BDFHJLNx^`ŧ- O:!(:9:  ? VXZ\^`bnprtvy{|~gS7 "$&(*,.046& ,,Xá:N,7,Pá/ , 0,1C :: t ˡȡ"ۂaۂzȄ ۂۂaA** 8 ؾȡق š:,$(,N Ҧ)ˡ:۲) áڲ) * &) $ ۪#  á10  ڡ,-^ ȡز)(ئ(ȡb)ɡ))$ á)á -ˡ ڡ4Put  : in unit !Put in := á? áˡ}:ئiɡ ...too long <ٹ@AB&(ڡ-l ضض˄:á ; / ɡá   DC)Ҫ,,)ҾɡҦolume nameP-NVA+J"P expectedYP:VZ .Pˡع(*áH:á ? : 0 ($ - :TWildcard not allowedP*á not PFirst vol/file name was h a wildcardrP file loade, ˡ2ɡ  &2 (ݪ( ?V/!dP3áNo SPعfilePvolumeP 46!Illegal X name]P6 ;??-00á -á:~0EN \V- ˡ$P [Pع0Vol to file nameP$File to vol nameP <=8"Illegal change FC6VO C6?5r4tC<`>aP file name P scan string P volume name P- Illegal formatP - char. ma8<. . ڪf ~ ȡ~~fx >PNo directory on volumeP File foundPVolume already on linePOutput file fullPWorkfile alreadfvnšfSvfn-K:!(y savedPNo workfile to savePZá TextP CodePP file lost [P3Dangerous! Suggest T ݪ(á6ڡ%: P 01C- 1C - Ȅ-   ҦҾ ҦK)$vn~ŪO=?8*vn78Ä&K=778Change S776*KOO:!(7R": )K:!(" Ҧd:J ,Xˡ,ç,YÍ-Y-- ?Y-- "-!ؓcZ*ݡ what file what vol ? & Ҿ ҦD : changed to ?:~Y??ZYÄ??Z?o:8PZ:[ Workfile is . . not named43 (not saved) No workfile&e8  e changed to VeVn d T $HR"6.&&Y,430Throw away current workfile ?  ,ء,Yá4'*SY؍ءҦҦfv"4QUZ$Remove@RP8 TSRemove S~9l?STEM.WRK.TEXTPRR3'*SYSTEM.WRK.CODEPRR43,*SYSTEM.LST.TEXTPRWR:-S : -S  removedTTT%á(%S:tUpdate *..BACKP@ ERemove ..BACK ? Y áRR4directory ?  YáOST 1C :ST- ȡ$SST-"TTSS1-[R"HR3ءWorkfile cleared&66&..TEXTText H and"2 ? : V  removed ҦҦ l{4 %á%Put in  Code ..CODE2&,YáGetHR?.V.':0Put destination disk in unit #0 ( X,,#'V/!9)?) )ɫ9::خ')*á)*)#áخٮ)خؾپšKOnlyTTȫ7766TńE.T.TEXT.T.CODE .T3.Ȳ.  ) char. total allowed in a wildcard searchnš% ȡ58:..TEXT@ :..CODE@  7376  ٓcdá  O=?8(~ŮD,@ pإťVOK^?:V exists...remove it ?  ,,YáO:!(ҦȄ0%?ȡҦÄ< &DS76ChangeChange to what ? `TP;876/Ŧ<Ŧ nue ?  Yˡ X,U X,,álX, ? ?#á,,Xá2,áe&4+..CODEe3RTEXT Z[`(;?&43)xU Í% X,F"S76@R 7)Transfer To where ? tUVKL$7?..ۓ0Save as . ?  Yۡ9%Vš4$7078 Transfer S7767R"쥁R2U",ç,YÍ"7;?V7?.V7G;^V&4TEXT(43Y*..CODEPR R!r~]́+Ɓ+Possibly destroy directory of Ɓ+ %Ɓ+: ? )Ɓ+ Yˡ WOld code removed, R4Text file saved 43 & 3)CODE(3Code file saved#XdÄ22 Z㧁YÄ7š2T"çTÄAT57Z R2U3&6 $6MakeHR(,˧,Y˄,Xá6\R"Icb^R" "I7ń m d!nnòCń!C"n"0?:V made66Ҧ )Prefix titles by6V/;?Z:e8  é+Ɓ+ transferred to Ɓ+ Ɓ+:Ɓ+'Ɓ+,Xˡ Prefix is ;:&Z*ض7%Íy7<ا9$&(+%7/:R6ڍڡҦҦ#,>B{(~!تSave as ~U$'ء$6%$/:ا6 $87؄877,ٕڶ6šڸ6šC5t<H%ڪ ^,Vthe  file "V^.)Wou54< UNUSED >    ,b-69#TáWriting&.TT-Sld you like V written to G: ?  ,,Xá$,Yá^- -S -4343آ آ4 آšD آ -tآ file P%Ū#^.)G:!( SYSTEM.WRK. -آ  آá  أ  ILLEGALPpBad diskPuCodefilePeTextfile$*(J '%Ҧ74 text'773code'77PUInfofilePEDatafileP5GraffileP%FotofilePwi[M?1# ,.Ɓ.','-,#áضò~ؤ#,f,á#Zضò~ؤ89D?d Do you still wish to conti$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXT  vol name ? P :á ō6y  C u   are still bad Mark themء (may remove files!) ?  Yˡء8TT- : correct ?  Yá+0": zeroed @1777 ȡ)-T ̂ʂʂĄ T-"TT- Má C BAD.xxxxx.BADŜSʂġ(6T7Dir listing of`TT:Ɓ/?CONSOLE:P+XS ~067PP/:3%F/Date set: <1..31>--<00..99> OR P'Cá N"P+́5́3́6́7Ŧ,S`T V8List S.;S- ́o current dateT Today is C -tC-C   New date ? 8Sʁ8ȡ&Ŧ.-S ů.SS7:Ŧ8-S - -T /-   filesP `SzS 0SSōSŧS ɄCS:, ʁ3 : blocks used, ʁ5  unusedء+, 3ńz?  SSȡ+SAĥSZȄSSAaSS?S SȡtS?CSSʁ6  in largest area6 " 77(Ynj+?-0%S3C7SzS 0SScȫ77C S?-00á- C0- New daVolumes on-line:0 0ȡk~0٦S0 ٲ? *  #   te is C -tC-C  .2%Examine blocks on P:00 Prefix is - ;:/%Bad blocks scan of$P0&"Block number-range ?   1  ɡۀɡ ܫSSܧ- TS~0́SʁȡP0Sˡ4TTBlock S  is badSST  bad ɡ#Risk the dir ?  YˡT- ̂Tʂȡ-T ̂ʂʂĄbؓ%File(s) endangered:blocks{ 0% Zero dir of$P0&"-ˡ2Destroy ?: ?  Y ʂʂ ʂ TTء&Try to fix them ?  YˡܫT̂TʂȡBlock Duplicate dir ?  ,,Yá ,XáN,-ˡg- ħ- 'ȄR-  blocks ?  ,,Xá,Yá- ,YˡD# of blocks ?  ɡ Bad # blocksNewTɡTTšTTTɡá5Block   is still badLBlocks   thr (ake, P(refix, V(ols, X(amine, Z(ero [F.5]P6,x55FP,a++ !|5$!5ڕǴ <<<<Line U , error  :.1( (continue), (terminat 55$!^*ZV)R/N0J1F4B5>2:BZ2Xj i"}:sH rlr(HR@0H" e), E(dit EÍeÍ^ÍEeÍ ^S ǐÍ ^ .<U >~n  6H>~!$%$&(>( +l)x++,-.(/8.10 34H4x448(:4v;;|ڟˡ(áڣb 2g2ChF4D(xrmhc,ˡ áá)}Í/1.:<Jy$^:,+,CEBAښá !ڧ8áˡ < ++ á !+'á,'ˡ++%++á %Q---+-+ ڟˡá 8Ä   ڳCTA w2QZ   '09ō.á:.ˡ0 09Ȅáw w%á:á8% ާ3 ޢޢ ǂإ (ç`á  áEáP -á  +á09Ȅɡáȡ<   ˡgá áVާ:áá ᚹ2ާ9&á ᚹi#傾0 ń  傾0 #ثە$ġ  ȡ6áááإj$áá :إF0á5á.ާ ޢإ jؚ 悾0šؚ0ە ȡ  傾0   ޚ á۟ڟÍáG Gˡ ڞ ~d66S6Xń.~>>>>>> Error # ~6 ~)l|ڟá ġ 傾0ڕ$ ȡ 傾0 á $ $$ |ؚ7؞áeá ؞á٢ؚ٢ ؚآ آ< bUU.2.UT2áb6>v IJ/}*á*<U >(+áX ááP P %VV.á =á '((') ڿڞڂ0$áˡ,Í +۹Hš   =>) )=á   {  "$&(*,.)P +ë/+ë1+-Í+ë,(*á( $ ǖ V"ˡ-V2468:<G3 UWY[]_aceg npsuwy{}*)5  á ,0I; ؿ   áʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (ˡǒ:šۂٞقق؍*áˡv6 W<  secs, WU  lines/min.BSmallest available space = ǒٕálz Yġ%ؤáP񂥀ؤYLPP-R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡJ ^؟ˡM٣`:٣ á3٣ á,٣'u undefinedZ"   ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄ D á NN%I VHō|%L =á á á  ʄȡ Ƃ~Ƃ.ƂVƁ<t&\ 0J F(`:z> & B h l (á L Lç Äܓ+LáL Lç ÄkܓLá آآ::آآ99آ88آآ77آآ55آآ6 áLÄ% Ä  xLˡ"ݣ 9-)HÄL6,آآ844,آآ83 3آPآآآآ آ آ8آP. *LYH ZL!L LNN Há>D.ۦINTEGER Щۢ ۢ  ۦREAL Щۢ :ۢ  ۦCHAR Щۢ 8ۢ  ۦBOOLEAN Щۢ  LáZ^FƂ~ƃƂ.ƃZƂVƃƁƃ( W k_  7ۢ  ۦSTRING Щۢ 3ۢ  ۦTEXT Щۢ 6ۢ  ۦINTERACTЩۢ 4ۢ ? ˡ(UU T TWW )*L~.U  linesWšP?ۦINPUT Щۢ 6ۢۢۢ? > >ۦOUTPUT Щۢ 6ۢۢۢ>  ۦKEYBOARDЩۢ 6ۢ, W<  secs, WU  lines/min.BSmallest available space = ۢ ȡN ܢ 7áܦFALSE ЩܦTRUE Щܢؚܢښܢ 7ٚ ۦNIL Ä ޓ%  GG߫GÄ R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡdݟܟ˄ބݟÄܟÄÄÄ#`!%á ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄  IN ЩCOS ЩLOG ЩATAN Щ LN Щ EXP Щ SQRT ASCAL Compiler [1.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk Щۢ 5ۢۢۢ  ۦMAXINT Щۢ ۢۢ  ZF Fئ Щآ آE E MARK Щ RELEASE ЩIORESULTЩUNITBUSYЩPWROFTENЩUNITWAITЩئ Щآ آآآD Dئ Щآ آآآآC Cئ Щآ آآآUNITCLEAЩHALT ЩSSȡܳ 0ܹ7 TT T8 TT :TBBئ Щآ آآآ"آآ آآآآآآAAئ Щآ آآآ آ": TTTTTT ۚTbZ7 TT T@::5-&{ آآآآآآآVREAD ЩREADLN ЩWRITE ЩWRITELN VP84$3ݡ  TTTTݡTT؟ˡآT ښTؚ RdEOF ЩEOLN ЩPRED ЩSUCC Щ ORD Щ SQR Щ <@GXV(SUTȡ1Lڢڢ Щڢڢ ;ͦ*SYSTEM.PASCAL(ABS Щ NEW Щ UNITREADЩUNITWRITЩCONCAT ЩLENGTH ЩINSERͦ*SYSTEM.LIBRARY( ,%PYZQǂNJ*) O& .!"/+10'-2T ЩDELETE ЩCOPY ЩPOS ЩMOVELEFTЩMOVERIGHЩEXIT Щ$#ȡؤJB$ 0w8swo|s[tIDSEARCHЩTREESEARЩTIME ЩFILLCHARЩOPENNEW ЩOPENOLD ЩRkg;cTx_ {H .[ ȡ  %PEWRITE ЩCLOSE Щ SEEK Щ!RESET Щ"GET Щ#PUT Щ$SCAN ASCAL Compiler [I.5] (Unit Compiler)< 0>|؟آآآ(R  &=OMkk%BLOCKREAЩ&BLOCKWRIЩ'TRUNC Щ(PAGE Щ)SIZEOF Щ*STR Щ+Dz H|؟آآآ M==آآئPROGRAM Щآ آآآآآآGOTOXY Щ+̀ʀȡ{'ٳ %`ٳڡ  ̀ʀʀʀ ڡ ʀʀʀآ آ"!á^ áL=ˡ ==   á (ká  á  K L Lآʀٚ b ODD ЩCHR ЩMEMAVAILЩROUND ЩSآ آ=آ آHآZآآKj  R H .[ ȡ  %P  +:˄5á:á33R,á'6H(#":<> 3 ˡǢ WˡQ ا:Íǟ < -؟ˡ á t ޮ < N˄˄0  ˡS>á+ 8H6ˡǐ #;á  á á    á á=? E.dˡhP &ǐ G(á%2H!ˡ"g 0á`  !á = ؟ˡ4أ á'أ أ أ ! أ } } n XEv  ˡ Ä á'  6H ˡ} á  á  " ˡ} á' á" ˡ} á %ǀš&&$ˡǒ $$%&%ڧ{ ۢ ۢٚۧP؂%%fȄ 3ǔ |á Há'6  2 Í Ä á"   ; ˡǖ  ,ȡ (ǀٿ <ǀ &á& ȡڢg    9ˡńg; g gáݟˡ  >ǀ 3ámá šˡ ۚš$ ġ ˡ NJ   ˡ ˡq ݟˡ < , 0 ˡ䀮š á ٳ0d@ hٳǀ  FJ'ÍȄ 'á ؂ ؂ #Nj ˡA*á 0 @$ńˡá  áˡȄ ؂ خ @MÍǀ   Gڳáقšخáخǀˡ nj  áˡ á ǘ  # ǐ  " 2 Í Ä  خjYؤYYYYǕš *2 ؤá !Oؤ Oؤ á"   ˡń  WˡOÍ; ááǏ ˡ8`ǀ Ȅ ?á(ۢ⚧á ⥁ $ۢ9á ńǍ  g g W,WWp á{   Dۢښ   7ˡLJ !خ  ٢`m ۢۢ`mɡ'ġ ܮ28Ä Iá>ءǚ á08á(QݢݢQ 3  ˡ} 9!٫ خ 4PˡáY'ڢȡ5á$خڢ3 x"ˡ' áˡ át á " ٟáǞ e  Xá   ˡ} } FM?M8ˡ 8ˡǏ  M (_83 6,ڧ:  : 3C Ä +&Pˡ ݕˡǎ ګ1á&ág ڟˡˡ ˡ} á  )á á á}  }  ˡ 8ˡ} á   ˡǎ ǚ  ǎ ٟˡˡá  ٟˡ~ ޣ áޣáV!7ޣ ޣ ÄO"á     ˡˡ}  ˡǏ á  ޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ Mޣ ޣ 4ޣ áBޣ %ޣ HáNޣ ޣ áOޣ á  " ˡ} á   ˡ} %áM,!.ޣ  ޣ á(ޣ ޣ ˄ޣ (DSt&أ áأ á t ݳ͐oá{  ˡ."ع0sokgc_[W S!O"KG +@7575 799;" ݳ}ݹ$%ޡ2 ˡˡ} 8ÄǏ ?#áM M 79E"$&EC,GIGEG8SIGi٣á٣ á%٣  2H٣ ٣ ٣ á'٣  6H٣ ٣ ˡáás ˡ ġ} ˡá:á} ˡá:á} J#?ö={ ˡ(á!8á " á   ˄ٮ#"ág ˡ[ >á  á    ˡ ˡ} M  ˡ}  á 8خ2خ"ɡٮ M K: <9  )8 M M} ,˫  áٮ#MM2خ˫  ɡ  šث  3 ٚ t á +ˡ/, $>ö;{R ˡ(á!8á " á ˄ۮ#&؟îá2خá   ˡ ˡ} á    ˡ ˡ} á/M2خ٣ˡ#š á$ á% &ˡ ˡ  á ١M ا:á5١á" "ɡ ٣ šث ٫+áMM9 á 9} á    ˡ ˡ} rا9  ١]ا8á ١MJ ١M5 )ˡ ݕ١  t \"ˡ ˡ} ás áeNORMAL Я ILOCK Я 2PܮܮM} ,˫  áۮ#M,Y4 %ޣ á ޣ ˡǐ áٟá~  URGE Я CRUNCH Я    M,"ˡˡ}  áǏ "ٟ˄٣ڟˍ٣áȡt8Ä á Yáá9;ç0 %  U'NweD+$&*,.b#6>@DFHJLޡá  &s  dž '(Ä?ܧ::Ä/Ä  dž (ܧ77Ä  dž::Í؍á :á ٧:0'Íá 9á ا92(c:   |& )ˡ ەˡǁ ؚ,,))ác c^  ܣáܮ&ܣá ܮˡá 8Íˡ ȡ  ) 8Í ˡ ȡ ܟ˄á+á   ǁ  : á8 3   9     á ǂ ˡ '( , P, f  ܧ:á    +7Ä퓫 ˡ7ˡ LJ   á  7á  ǃ   DŽ  t $  ˡ  ǃ 5ˡˡ Lj   Ȅ  áG    lj ޡǃ  "Dž  n1 á @*564/1(0!7/ 1, )Ȅ   ޡ 䔜ߡlj ˫  á  ߡ,Qǁ 7 j@@خá ˡ ō  á 8 QQ QQQj0b "$&(*,.02468:<>@BDFtˡ ȡ ٟ˄á:  :9 á9ˡ ǁ 9ޡJ8Ä36ˡ- dPRTVXZ\^`M c -&$d++'á   8˄Pˡǁ ٫٫ a0 d YSCޡ*٣)(+ ܟ˄'(Ä?ܧ::Ä/Ä   dž 'ܧ:'( ǒ IkMI\=#ǁ 3   .1 #áP|ڤˡ|ڤ؟ٓá   Má   á  á :Ä dž v(ÄÄ  dž FÄ dž -ܧ77Ä dž   ˡ ˡ} á   ˡ ˡ}  "ˡ ˡ 'rD0 $R* (ç`  *. á":áá dž} ˡ!áM )  ÍM,á :ˡ!:áá }  (á  * ܟ˄'(Ä?ܧ::Ä/Ä  á 9 ٓǧ   7R n/-_˫   á  8: B0  á  / UU+  _ `{p  ܣá ܮ.v 0á7á ܓ ٮ á 4  -ܡ ۡګ  á-ܓ  9خ ٮ -ܡ o /h 1a 2Z 4S 3L 5E 6>6h  "$&fZUIRFAm!dš ګ خܓٮ 1  9߮ ٟˡ٧:Í ǐ  á      &  II7 Ql  -"   ." @# ( Rɡˡ^ Oܟˡ ȡáǜ   ܚޚ۟áښǓ ˫  á   Rˡ9 [   words]<U >ˡڟˡ -_ڟˡ9 ˫   Í߮ݟˡ` ݚܟá ,   9 š  ˡpá]šM2 6ٮ + *ˡ )ޕ( áUT  ݟá á  >=jFG#2 خ-_˫   á |ܟˡ ܢ .Há(;ڟˡڣ ġ ڣ M|ڟˡN 2 2 ,áخ 5 EG V3 ٮ@ خ á 6 -9ٮ خB4áX{  4á8áMHçUU-_˫   á  |ڟˡ á   Ǜ ؟ˡŧ:  Ǐ   A áW ˡ>ˡǐ 02 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ  ! ؟ˡç0 Ǒ 3   ǀ @ˡnˡǐ ` Q  `mˡǨ ⧁ šߤ á     ؕ  ؟ˡç0 8߮ 6 šá40Ǒ 7 @ ! á 6 Z H --L PPZPF@Q77  <.VV B - á9߮  ] 5á{   DBخˡxál XRBvd `!""|##$h%(&&*'((( , -../|-$///4001182j2n 7  á  |ڟˡ ɡ_ |á|ۢۢۢ+8|ۢۢ š nj ˫  2 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ á 6 -ڕ ٕ  6II#á[|ݤˡ|ݤޟˡ# áǥ  `mˡǨ ⧁ šߤ á     ؕ     áU  ˡ8ȡ,: m   ء n     |ߚ á  *á  á   ߟˡ%Íߧ:Í s  ߧ:ár    ł á       ˡ o   ߚߟˡ% š ǩ \.áW ǿ    á  ٢٢ ٢٢    ˫  á  á  á (  š ߚߟˡ ,(  ٟá138:+ @ٟ٥ s s sá |ˡ  á2  ߚ öń ˡ%      ł  á%    ˫    " " ˡߢ á  á  ád   Í kk    áá>  ǔ á   ߢ ˡk ߧ3Äg C á4  ߚ      ˫  á   ō P Pˡ ߧ3  á  váqáW ߧ9  á$ˡ ál ˡ áá&     ޟˡ    á  á ǿ ߟˡkߢ  ǔ ޚá؟*/1-" h   آآ ái2 2 á)  إآ   á   ߢ ˡk ߟˡ/á&ˡ :áǏ š f ߚ آ<آ <$ ˡ ˧   l   o o os  ٟ$; ڟ˶zbڧ:˄2 ġ%ɡ܂5á+á$ [ [ ,á á    ߚ ɡ۸ ik3T@š  ڢ ڢڢڢ ޟˡ1ȡ$ާ:á m á Ǖ ޚq ˫  á   á / ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢ  ˡ ál "ȡ  ˡ9  ٢٢٢ á   ٢ ٢٢٢2 2 á!   á ȡ ǎ   ߟá-á  ɡ |  ł   #áS|؟ٓˡ Ǧ ٓۧۢۢڢؚ      á V%á#R| ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  ˫  á   ˡ  á ۥۢ ۢۢ )ç Ä  ޓá "HY# Y#  آ ٚآá%   ç  ˡ  $$ءOš OOLYǕá YYá l۟ˡJá5á á ݥݢ ݢ )ç Ä   ڢ ۚ<ٟˡ)گ ٧<ˡآ<  š á  š ܣ ˡܣ YؓǏ   BH Z ܣ ZHɡHH  á%   ç <ˡu <{ áM  ݥݢٚݢ. |ޡ áޓܢۚo ޓܢۚáP á4ޡz  ݢ ݢHݢݢ   [ [ ˫  á  ܢ ݚݟˡ x ܢ   ޓ{ á  ܢ 5ç#&HˡǷ #Ǹ ءǏ-L٣ ë&&٣ YL٣ -7."ˡ ǻ .ˡ ǻ [ٟˡ<ݢ ۚݢ܂ á۟ˡáݢ||ؚá%   9"ڤ "ڤ ~-rڤbڤë&&]OOO ç [<ˡu <OS ^   áw  @Oš Lۢۢ"ڤۢ ۢbڤۢ YǾ á #*X)S'S ! @á  ˡ =  ߚáH    79 Hˡǽ  ؓ)#;ؓ˄ #+;́ʁˡʁ ʁ́Ǽ  . ˫   áJ á<    ˡááy  ȡ 䏂  ء"ƁTURTLE Щ́́ƁZƁ [(  words]<U >á ( (  ߟˡ  ˡ á( @ !́ ÝƁ ʁoƁ ʁ́ʁƁʁ;ʁ ʁ& ʁʁʁ ʁ;Yáʁ'S  á+    آˡZޚˡ@á -á&ȡ& ʁ ʁY&ؓ ˫ ˡ  ؍ؓá  ʁʁƁ#;.ce2  ޚٟl ء@- Ǐ POY Y  Ǐ  á HáMC # !á ǹ ˡQ#D FWRITEDEЩ ( DECOPS Щ n\J8&ȡ  !!    ܤ+$ݍk   _TN@ t | Tj ~LD  ܤ   ܤȡ      *ء)3;HF&B  N " LL L H ZءY&"    $ z|ġ  ˡˡ$&LIx -Ǐ $.@#-HçO Ä # 1á  á&Ǻ    á  á  *SYSTEM.INFO[*]"ˡǒ .Ƕ - Ǐ PH Z Y LOOOOš Y$š&ˡ2%ç$Ä$ȡW$ɡǀ% ȡ%٧& ˡ T@ݟޓݥ e ޓ*  @ݫ@L؞ &Lá& ܧ$ɡ ګ ȡ l ڣ L H ɡ- |ݟˡ   á  ; .%$6á! ç ڣ ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ!  2ˡ !! L LL 3á   ^4ˡ _   ! "ڣ!  ! ١qˡAۣá "ۣáȡ \ $š&$ˡǒ )Lݢݢ! á   ˡá`  ڣ 0 ]Z@B.١LáöÍ  L HZY L L!Dblrݫ@L؞ &L   [(  words]<U >Z)5á+ á ١ ةȡ      áأ ` أ  أ     #ܢ"çBޡǡ ܢ"á á    @ߡ           ȡ   á      N " LL L H ZءY&"    $ z|ġ  ˡˡ$&LIx -Ǐ $.@#-HçO Ä # 1á  á&Ǻ    á  á  ء|Mڟˡȡ𥀰ܤˡܹx FSEEK Щx FREADREAЩd FWRITEREЩP FREADDECЩ< 2ˡ !! L LL 3á   ^4ˡ _  fn(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22š*á ?\6f "r '6PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD :22ȡá;2á!2ȡ5252š[22š2222ȡ 2š5252á4x4]11á4^1šX42233z 3042221ç42ç1Ä2*á444ńi55P.TEXTF.CODE4.INFO".GRAF?COPYRIGHT (C) 1978, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA.FOTO.!~áë :: á)6!F *STK OFLOW*PFF* ˡ 6!:9"8~? Ä:ÄȄĄMȄqfȡD ōɍ ō ȍ dč " 5 Exec err #  á, (*, >Já[쓡ë  쓡 !7 4,~ Íˡ88t  쓡  $Ꟛšr#ń@ 񂾲z 񂾂0  8tB$$>:&ˡ,ˡ tš tT%>ń Ȅ! ~ÍV~M ˡ!  ,ȫ, ˡ.ˡ tš tJ&$>&:!F:F Fˡ FF 넡, ~ ,Í1~ š˄  `" RJ'Jɡšɡš  P&:*: (  d˯7 H ȡ    L H ɡ- |ݟˡ   á  ; .%$6á! azȄaA:) Type : to continue) & XÍ  l 9S328˄ šá  d</ dÍÍ邚邫镫ë퓡e @B "ˡ ɡB  B "ˡc >ˡ 퓄 Ä퓡  dÄÍ" á1 á(á" >"ˡ  *Qv 0 H" ġ  *@#ٕš ګ۫ š۫ ګ˄"ɡ  dá dá C#C˄ C    ,.   ȡQɫ  ȡ .  .ȡ? ȡá&á ~ -/18       ġ  á ġMáš3 삫 d #( šˡ 쓄 Ä쓡t š   - Íáɡ 럚肚Z  ɍL "ˡ+ˡ d 0/š ū  < áš < c@B B Ä $á.Ą ɡ 낫š ꓡ0š땫ĚJ B B >Ä /  !š Í삫Ú š ^ "á50 7ÄT ǐɄ96ń~66! á  ɚ j šš  á~ 횧 :˄˥ń á   uš  gš  šš!B>邚邫镫ë퓡Q @B "ˡá -Ä+  ɡ"á M B "ˡ >"ˡáˡ á uá%  g>@ << Ȅ 隹Já-Ä  >  |á6铡,B BB/"ˡ ( ! 767  á1 š0    šš&@B> á뾞뾂NPńȄ.ń0á Proc  Caller  Parent  Param  Data肂蕿BšT뾕ȡ4 š킥뾞  Seg  Seg  Seg  Stack  IPC <X hE6!~?7FPut in :P?FP'Ǡá,EEE    Depth ( Defaultlink: áDynamicStatic    "$E ##&Eá *6*6ˡ6á  .r Brkpnts: ȡ*٤š٤  ؕ=f ITYPE ID PRz42lRNj V"j 4F Z pz`0ń0á OC# OFFSET ADDR INTEGER OCTAL HEX LO HI CHAR^ ٨ 0 0 0  Q š *š 肂蕿BšT뾕ȡ4 š킥뾞 4V j ɡ 逫-á-32768 Rġ?o00ń0ˡ 8FNo user programP8F. file P%Ū#^.)oɡa Mȡ龫š 龕龫!낾G:!( SYSTEM.WRK. $*(J '  2 dá3á+  %Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4 T p?š !삾 0 Vá(RWtn dTEXT-&..TEXTe&4+. 6ܨB V6 " *áá0á ɡ>پ٢*>ؾآ+-Í-ëzX 0á%+á z,تP!RتPR"á  nQ  꾂ȡ龞꾂(ń꾂Ȅ4š뾂  ˡ  $š$ɡ%ˡ8*SYSTEM.WRK.LIST L܏áJܚޓݓȄȄ.₾₾0  ႚ Bad numberU  XȄLۂˡޓ'Lۂڕ Lڂ ޓjLۂ ٶ&Ʉ+Offset:   Length: n _ Proc: G LۂáL  LáLڂfYnSubrange limits exc Seg:  Proc not found áqá#Only traverse UP static linksG˄eededSegment not linked in$Exitting from procedure never calledInteger overflowInteger divide by zero áTop of link chainˡ rá5ٕȡBottom of link chain8!Attempted access to a nil pointerBreak character receivedUser I/O error. IORESULT = 1 Instruction no˄áTop of link chain:  áۂ t implementedFloating point over/underflowString too longwUncondition HALT executedX0áBrkpnt: #ġ Warning - offset too large'ۂšWarning - length too large ȡ\ ޻ݿStepping ended%\H. sV)T ݚÄ ˄'ٚData  ߢ    ؚ*n  áۂÄ 7`% "ȡDataޢ  ġ Warning - offset too large%ۂšWarning - length too large ȡW ޻ݿ000   0 0 0000 ޢۢ   " Proc not foundStackޢ  ȡ6 ɡ ە0 ە A0000 0 ! Proc not found0Heap  F .*0ȡGۂǠۂۂۂV`.  7"Z ˶ ڦ ˶ ۄpܲy#ھɡھھܿ6ܶVá,>Line:  ˡ Seg:  Proc:  Offݢ ݢھۡۓ Bad numberھń͞ ۦ32767 Bad number.set: 'ȡ2چ00Ä  ݿڎ :  P  ۾ȡ܂ ˡ ܂0' X۪177777 h 1Ä@@    ߚ*h "ȡ* % <ړȄؤá" ۂ"šȡ)ޢڿٻޢڡ2Set breakpoint at line:  ؤٚ All brkpnts in useHp ~!Clear breakpoint at line"ȡW (*PASCAL INTERACTIVE DEBUGGER - Jan 23, 1978*SYSTEM.LST.T: PړȄؤáڡؤ Brkpnt not active) ȡؤEXT"ˡ $F& FHLُáwL$L  x "S(et or C(lear breakpointSsÍ! CcÍ"F Proc: Lؑ L $$$޸D  ȡ٤ U  Seg: ؂ܫݫ Proc not found #01 D%B"% ȡ*hz$):I'm awfully sorry, b"0ç0Í'Hit [space] when ready)*j$$١á <>?EXAMINE:ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break]  1..9 (links, M(ove, <, >, L(ink, D(ata, S(tack, H(eap,HE(rase, U(pdate, , , C(rawl, W(alk, invalid while EXAMINING)% D%',*"'' R(esume,  Hڳ !ڳ<1SPڹ > < b2:J> F   tf.VJp4HT* ȡ٤0 ( á Static  DynamicDelay: @@D%B"% ȡ*hz$):I'm awfully sorry, b~ zvj#f_,WX $(*,R`@68<>@TFHut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break] JLjtVvá %h  *Má  *8á" á "* Not a cinvalid while EXAMINING)% D%',*"'' ٚStack  ٤  ؚ*i Octal address:  ommandء%  [sp] or 'Q')Qá4% ȡǰȡLength: r ȡU ܏Heap  "á ( :&á#á%&.'ثDث  ˄ TE ASSMBLER COMPILER EDITOR FILER LINKEŔ'?, toU.C.S.D. Pascal System I.5Current date is CUnknown run-time error(Value range error(No proc in seg-table(Exit from uncalled proc(Stack ove'ȡf:SYSTEM.ؤ ́(Ɓ(?Ɓ(ؤ Ɓ((ؤ ؗ~rflow(Integer overflow(Divide by zero(NIL pointer reference(Program interrupted by user(Systé'ʁ'nʁ'é(ʁ(ȡWÍ)Ɓ)ʁ'Ɓ)ؤ Ɓ)(ؤ ؗ ám IO error( unknown cause( parity (CRC)(illegal unit #(illegal IO request(data-com timeout((ypƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ vol went off-line(file lost in dir( bad file name(no room on vol( vol not found(file not fo ̆%ʆ%ȡ   ̆%ʆ%ȡƂ  ~GRAPHIC :.8ǀund( dup dir entry(jfile already open(Q file not open(<bad input format($F4 w ?̆%ʆ%ȡƄؤ8ؤ ƅ)FJJ "77::99dM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HA88:9  6    -&.LT(DProgrammed break-point(&U fE0lWBS#  ???&š&:&(*SYSTEM.WRK.TEXT(   & , P#  , I#  |Dj, vol not found(file not fo& š&:(*SYSTEM.WRK.CODE(&*ƁV`tDtD Doo odoo'źʁʁʁX:: P7 :9CONSOLE:(:9SYSTER*SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDtM:(8:986ë???JanFebD **wn  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM?MarAprMayJunJulAug Sep Oct Nov Dec ?????~?á';??ٟá'C &"á~PRINTER&"á~REMO??????6!:%$ )8P Welcome  .CODE[*]("ˡCode open error!   áثB  7:& $SYSTEMLELINKER 3 š% -&Execute : what file? š;.á .CODEb%:( Running...ء ء -C-C System re-initialized N  ZLFebz:98:9áA*SYSTEM.STARTUP(%Initializing...MarAprMayJunJulAug Sep Oct Nov Dec ???:áá  6   FKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(eܪP//ˡU*SYSTEM.STARTUP(continue), (terminate)++á+ á PT lڂIBRARY Map name? ((.á .TEXT(۫۟áڂ؂ڿ؂٢٢ٟáٚUۢ٢  !ۢ٢  d!J ȡۢÄ ڢڢڢۢ ٚ۟áڟˡܡڢٚڢٚT xݟˡ2ݢܱ !ݢܵ ˡ:oˡ bad host segˡ dup host segګ Láڢ ڢګ3áۢ@ڢ  ww{/ HܟˡCܢȡ'ޢ@ۯ ޢá8Unit  not foundJá ښ ȡ á  á wierd hostDRM] ~j ȡ$ / @  h۟ˡTȡ=ۢá'ڢۚڢڢڢڢګٟˡ٢٫تPڹWs/cK/X#/M/B/7/,/![/^ULC:1(/yj  >`  ( # ššš` á6  c dict!}   #ȡ ˡl N^ K Dٶٸڶáɡyj$ ۟ˡڟˡ+ܓ۟Í8 ǀ%   V0ZIڡٟˡ@ á ٟ$ڢ á,R b#؟ˡ5%%%"٢ؚ٢٢٢ٶٸB%   šNY؟ˡYD٢ؚ٢٢٢٢  ٢ Ǡ ٢ أǠٶ ˡø  #ڢ욥    ˡ+  ؟ˡ`#ٸf؟ˡWBأá9٢ؚ٢٢٢٢ ٢ Ǡٶ ٸ ٸ  %  ٟˡ ٢ ؟ˡ 8# 4o(ǐɡ no d missing procٟˡaáUá ؟ˡ%áá ٢ ؚmem roomȡ  ܶˡ seg read errá ٢ iF xڟˡ0ٟˡٚښ7B!۶ڕڕ ڕ ˡ1šٶەەڞ 3 ˡábá& ɡ>ڟá0ˡ"ڟˡˡá ڟáٟá ضؚ ' "    ޟˡ á ڂُȡ size ofؚo8l"ˡ!ݢ ˡݢݢˡݢݢݢ  low'Ǡ ޟˡP ؚá5ǠǠšproc num oflowǠޢ Ǡݶݢݢ ! áݢ ˡ á  ۡ*Proc  param mismatch !áݢ o &!(ǐɡ out of memȡ ˡá  ۡ*Func  param mismatchM áݢݢ  unit err#ˡsep seg read errظW)  ݟˡ  ˡ)G Copying آō bad proc #ڶ˶˄disagreeing p #H1T4P  áUGlobal dPublic RConst AProc 1Fuٕȍǰ6ōproc place err ǰ6 (ǐɡnc !\L> 5'=/ undefined˄"ܚJ# X ؟ˡ$ sep seg 2 big ȡˡsep seg read err3 Ǡō bad pro$$آߣޟˡš ޢ? ɡPvx!  ؟ˡ Sep procs ؟ˡ    á  proc  func!!!""P#f#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write err  #    base =   leng =   ȡ١-؟ˡ!  áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  Sep proc refs ,؟ˡ"  Local seg refs ؟ˡ    public LP3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[C =   const val =   privat LC =   unit seg# =  ] ƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!glob def in    @   g O   4&Hf#z###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write errP- M Linking F #  á&-(áe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ   ^#VÛs#rÛ^Ûs#rÛ^#VÛ_^#VÛ^^#VÛ^i`"D`i{=) Î^i`"DO>G~#~# oo™ #z/™ #| : l l ʷ ~/™ #~/™ #¤ : l i`"DxQ !Q {zJ yoxgyGM{ozg{ ! G}o^#V#ŒMDÛ ʛo&)+V+^=¦Û o&)9^#Vs#r#=Û^ÛsÛ^i`"DO>G~# Î2&!^#V"  = x!X G{_#zWx? : :GÛ᯲&&!&Û#i`"D 2i`"D|G}2M!LN:\ ~# QÎ ÛÛ _ 2i`"DKi`"DҠ G)9)9+~+~ ÎEO/w#w# Îi`"D])9N#F#! - yoxgyGM$ y_P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[!) :o&EoÎi`"DCK^#VxڷGjS]¼zW{_¼! ~_#~WÎi`"Dy! N#Fo`ALbS\oƀƀƀƀƁ#ƁKƁs0C` 2ffN. L>Pvx!{_zWyOxG-y/w#x/wÎ??{ozgÛ}o|gÛ}/o|/gÛ|so>gÛÛi`d\weAG ~C:  MwY n j flWx 9F^0<" W 6 B N ) "DSÎi`"DSÎi`"DÎi`"DKBÎᯕo>gÛ}o|gÛz}|z{zi`n|M  Q` llllllllllllllll#+++++++"DyH)y `i<)%MD!2xGyO){_zWI J#:=/ɯaʾʾxo!{/oz/g!{/_z/W7y " Î!SL U Ñ0@ I.`oxgɯO>Gz™ʬ+!{/_z/W}o|g#ɯo>g!o>g}| !Ûz}|  z{z } |!Û` / !Î` " !Î` " / " ` / " / ` / " ` " / i`"D_!q ^#V  !P ?|’ }2M!LÞ zž {2MLN2Gڪ Ayʷ #® :^i`"DKB ^i`"D)MD #  {_}ɯO>*DMDÛo& Җ&o^#V&"!9"*D"Û.é.é.é!">.é.é.é.é.é. é. éi`"Gi`"DE#)9~"J##  GOx1 {w#zw#$ y@ Gw#w#8 *JÎ O Gxc {/w#z/w#T *JÎ ڊ xʃ {w#zw#D. é. é. éi`"D.é.é^"i`"D:!{#Ez#:Î o gÛ!Û _W _R_*@^#VÛ^*v *JÎO!9Axʥ w#w#— *JH+~+~ª Î ^_! ^#V_ v e E#)9N##Y"Jx AO{2@Û^*@^#VÛ^*@s#rÛ2_*B^#VÛ^*BÛ^*B^#VÛ^*Bs#rÛ *^#V=^ ÛxO "y% Aѳ'  *"H F {Y #zY #5 :S  [  [ *H+ l + >O*JÎ ʏ {/ >2F Hz@CPt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;!>s#rÛ^#V">!"Û5*>s#r ">Ҏ*}=">!" s# OOÎ}|ڏl y}~# ~# I|oŰE7v@pvi`"D2F:Fʎ&0Î&""0**Î&Î&L 0&U 0&0 xxÎ y¤+~ +~ ŸŸÎ}o|gÎ {# {+ x&0&͑0& Î+@0+.0+`0"HzWx怺YP{z{z*H}| {# {+ y_ !$'(****AND 'ARRAY ,BEGIN }|Û (O>GÛ*O ^#V7}O|GÛyo`N#F#^#V#"Dz^}|bÎxl}o|g#)*DN#F+CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD}o|gMDÛ*+V+^" "B*@^#V ʽO*@ #~+~+ °*" "@"::*~"Ûo&))O F-N q "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR ,py*>!9}|"H%*""H i`"D/<_*^#V7}o|g"~e[*&))N 5+V-^^#V#N#Fڂo>g9 (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO !6 ~h&##)y #9$ !Î!Î! @!9]T>> >[ > >Ge /g9*##yʰO>G~#~# ŸŸ*D***!9" "@*"*"+V+^}O|G*HÛ*Û_~Gy#N#Vcږ >ڣ ZQHÖ oʺ xGyOzW{_-© $%~o### zW+yO+~7GҲGyOzW{_,ò_~W+~O+~7G҃$**@"B*"N#Fq#pÛ*MD*#~=8! V+^+F+N#8KBÛ *"m<*N#"N*~i`"DJ>*DMD"g_|W|O|GÃ> GN #x=25ƁOGOG~#V#^_P|gxezWyOxGyOzW-U||ʇ}l&%*&)]T)2"^#V{!9"}o|g,#"*+++F+N!9*+F+NF:*:"+F-Ny+V-}_|W:w#:.V_ß> OG~ G#yúƁO ~#V#^_~G#N#Vxy}?}o|g{_7}ow *,~-+V-}_|W~C+-}w_,|wW-"***="2o&))O~W-n^s,r#^,Vÿ"͇*+V-}_|W!9~&+~r#wS@){_{_ËZx zG{֐bX[>2Fi>_xGyOjO>~ʌ#~ʒ*ëV-^+F-N  o>g9"**4,#s,r7*}JÎ}Ž#^,V,#Î""*^#V7}o|g"D*GŸ{} ,GOWo,-|<怨BW]"H}o:F2Fl&:*:ʎ*^#V"*MD*}-|! ^#V!^#V7}_|W! s#r+++:b^#V:ʎi`##N#F  i`"D_!^#V9*HzWzW|g.L @!!͑]T ~))F+N+V+^iTOUVF %*5*>o>g9|g}oÎ*s#r*s#rÛ5* 2&o":>>2Î!>2Î>2!"r!>Y>V>!2"""""##^#V*|ʁ>Copyright (c) 1978 The Regents of The University of California*Ï.:ʤ.*)$"*MD.$*))!{<2O.>!=!#{ #}2=2O.!*ɡ š    H FI؂ %"W}.$,":W!9MD.$W:*!9:G~#G!9:d.*f.'r>2*"MD.$4IڂPڂNçN˄  ˥PۂܥO:ڏ!·<Ҵڥ:<2O.22O.!Á:g :2͖G:Gͥ**(P!ڧN˄9!'۹  vڤVڳN{G:NJC͹Ow:CJ:C: C6#{7G#Á:XͿÕ:xy 2:=2 Ϳfy2ʕ * 񿥆P(  Ϳ: •> 2OͿ.. Ö*&)~2#~2::o SYSTEM.PASCAL* *}o|g"K O>Gw# vPv v$á ٕ ٕ8++1L8*"*!L !!F!f "K#=\*" 4Y*!L(!@*N#Fi`"F>2.! "á <&ȡ<L(:N#F#* s#r#~#~#:=2‚!2^#V*##}o|g:O*0F!Rw# !"N*"P*"+F+N}o|g"+F ٪P&áERROR: á;& Please press to continue.+N}o|g"D* N#Fo>g9!9!!9"" "@"B!">ÎRxy 2:=2 Ϳfy2ʕ áRۂ;ۂáݧۂ ۂ á ܕcXTYPE UNIT 2UNTIL USES 1VAR WHILE WITH !'\"""!> #wn*^#V*!Ϳ: •> 2OͿ.. Ö*&)~2#~2::o SYSTEM.PASCAL* *}o|g"K O>Gw# `ڎ w_ʹ`ڟ Aک[ڳ0ڽ:ҽ#wÐ*7{_zW*s#r:9:<9"}|!# !   B.,& EDITOR **##w#Î*##6#6###w#.ÎAO* N#Fi` ))6* """*…#i!**s INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE#rÎҞ*^#V{=_!w* ^#V{=_!wô*}ʛ*Û2} č{^ ꂾ á ܂ ܂áŧؓɍš  ٚ ƂNƃz   š á á  á :ƂNQ: tn |áء  f  ݂ ݂ɡ ݂ ݂ەݕ < \H2rtV v  r   F  ` 8 B!ߞ áAꂾá 3삾 ç삾Í ߂ -š 0 ۍۡRepeatfactor > 10,000v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E\ 킾 á  :ڕ šjvKThere is no room to c.6e]PrH Insert: Text { a char, a line} [ accepts, escapes]PIA Delete: < > {opy the deletion. Do you wish to delete anyway? (y/n)P Yá,KڕJJI IJ to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}P ɡr2 Iڂ  ٕ ݞ݂ ˡ !U܂ Znڡnsrt: {,} [ accepts, aborts]PI4 Delete: { deletes, aborts}P5 Adjst: L(ft R?١ ħ1ۥ č%`wȡ'ڤġڤ(ght C(ntr to leaveP + Edit: A, C, D, F, I, J, R, Q, X, Z [E.6e]P 4>Edit:ڤ؂ IħIɄ I؂ IHZګ삾 ء:ȧ삾 삾 ReadingNvˡ Reading file.N5øe.áܕ܂ܕ܂  ꂾ ꂾá5  ĸ5낶 á "ˡ Disk errorBuffer oꂾ  ꂾ-á á.áꂾ ç Äە߂ŧȍ4verflow.6 .آ>FGأ%Fأ&G G آZNIآ>HآHIآ@Hآ á܂  ۂ܂ߞ áAꂾá 3삾 ç삾Í ߂ HIآ@HآHIآFHآHIآFHآHIآBHآHI H á߂߂܂܂ꂧ܂  |T .٪PIآDHآHIآBHآHPأ.Oآ^ POPآROآ^ P fۥ  ۂ  ۂڞڂ ˡ  !Uق what marker? -P,-V,Vȡ-,-, ,,-- -- E   Í  > KĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:H.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WGv9v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaRK.CODENe4Do you want to E(xit from or R(eturn to the editor?  R آZOآ^ PآXOآ^ PآXOآ^ PآNOآ^PآNOآ^ẑ5ʂ5ȡܤA09̂5ʂ5ȡܤA    Ǫ PS6Trae> .R^ PآPOآ^P آPO آ^أ.áPáPHO Pقخ>Quit:P# U(pdate the workfile and leave E(xit without updatingv ACDFIJLMP Q R S V XZ,>.+-?/=< + R(eturn to the editor without updating% W(rite to a file name and return     09̂5ʂ5ȡ )  (( Ʉ?Í    RáEáꥂNWá)Name of output file ( to return) -->ƂPƂá>Edit:IN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5"ˡWorkfile lost.v4No workfile is preƂ̂.ʂ.ȡƂۂƂۂ .TEXTƂƂƂȍƂƂ.˄$Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂsent. File? ( for no file ) Pv P á v  ̂5ʂ5ȡ ₾  .TEXT .á ƂƂƂ*SYSTEM.WRK.TEXTPWritingNƂCNvˡ.ɡW   ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á N vNot present. File? P"á ۂۂۀ Nˡۂ.ɡ0 ꕞNˡ Í  > KĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:H.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WGv9v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaRK.CODENe4Do you want to E(xit from or R(eturn to the editor?  R ẑ5ʂ5ȡܤA09̂5ʂ5ȡܤA    Ǫ PS6Trae> .R^ EګWriting out the fileJ/: CNvˡ.ɡW    ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á N vNot present. File? P"á ۂۂۀ Nˡۂ.ɡ0 ꕞNˡ! ز+߂á f v   з   з T=ˡ  P(ara margin   C(ommand ch  T(oken def   з     з     Ƃ=ƃi& Copy: From what file[marker,marker]? P    bytes used,   available.HG Patterns:G1 ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  Ⓞ ڕ = 'ŧEǀ'H- , = 'Fǀ'wš MarkersɄ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ=: wȡ7 xؤá  Date Created: ePXp^Dx  з   з T=ˡ  - -  Last Used:  - -Improper marker specification. 0ꂶꂶ8Marker exceeds з     з     Ƃ=ƃi& Copy: From what file[marker,marker]? P  file bounds.ħ :ꕕꂧ.[á$ ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  Ⓞ ڕ Щ  Щ]ɍٲˍ.ڕ.P..P,áؕɄ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ=     ۂە ..ȡۂۂ ..ȡ  ȡ.ءTrueFalse. ڳ@ ۂ ۂ ..ȡۂۂ .TEXT˲ȍ.˄"..P?T or FȡĹ TáTrue False Y ..TEXTU.P.á ȡMٕڂġ(Buffer overflow.ħ  # ڳɡ ڂ0  قڞڂZ= ˸ .   V  . Environment: {options} or to leaveP  A(uto indent ĶɄ, ک߶ߤ ߤ Marker not there. ٲ0ߤ F(illing  L(eft margin   R(ight margin  " \N>0hAT(l* hfR"d&< w?l &  Set: E(nvironment M(arker P  EáMá اˡاr vSyntax Error #P  . Type >Ƃ ƃ7Ƃ *SYSTEM.SYNTAX"ˡ hȡ9 ~H~ ħo < eXchange: TEXT { a char} [ escapes; accepts]P ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0  á;š4؂ꂾa áTꂾ ˄> 0 00 : ق  قؕ؞ق ق ق   قÍ   قÄI vؕv? ؂ꂾá ٫؞ǀ@ꕀPšqDؕ v . Type  á   Ƃ #%d L WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)P  Yˡ   á> < &! Copy: B(uffer F(rom file P  DBáIL šꂧꕞ ħꕕꂧK맂J IŧIĄ Invalid copy.맂JġNo roomsLꂧ꧂JIħIɄIJꂧɡ!No room to insert. n˄(JIꂧJ맂J꧂J ħ Fá , Jump to    ꂫꂶꂶÄ  Í     J Not option dxj з [اwxؤ xؤ  Not there.ؤ ħ[ $ JUMP: B(\N>0hAT(l* hfR"d&< eginning E(nd M(arker P  Bá)EáMá اˡا$  $&+z" xؤá  Date Created: h ħInappropriate environmentKP  w ww  - -  Last Used:  - -áwȡ. ) x٤v$Marker ovflw. Which one to replace?P ħ   J Not option dxjo0wSet  з Gwȡx٤ xؤؤاwáw# ꂶ  @ "삾 á nbi  ^ġ)š (š  ) <öÍáLçç Íɡ h ġ   ˄ ń  앞&삧앞 d á    ɡV d   Ȅ6  ɡá"4! á/!~ō? šĶ        !ń; ꂾ á              á   ǀd ؂ȡ     ɡkv"  Ʉ;  ؂ġ  ؂š!  ؂  P  ɡ          š á  šĶ   #<áV  ˡZ-    ٕاġ-á- ؕ ń3ꂾ á  ꂫġ  ø ɡ{Ʉ3  ɡ ؕ ق؞؞ق ٫ګ    U ؂ áĸ š# Í    ͈ $%\    rP  ˡPšǀ&؂ɡ킾Ä؂ nš삧앞1dšBuffer overflow'3á ǀ vá(ȡ 삧앞ˡ앫؂ ( á ĄÄ˄Ąۄz á  iáPȡ&   P  Má M vá    á< KIJڶȡ5No insertion to back over.   mڶġb4Please finish ˡܡ    á áث 9 up the insertion   ڶ šBuffer Overflow!!!! á    Ʉګ ڂ ڂ٥ č9$ ljBrٕ ,˄ áxÄ W ٕ܄Lɡ2 áAátoŧ˄ȍ!á ȥ >   ȧMf$ Vá(L  ܹ-(2ڕ(%ڕ(5.#ꂧقꕞ قٕٕ  ثLK IٕJ٫ ö ݓá(xá (fDŽQ  á (- áڕ(ڕ(  -á- á'*  á  ö D. ˡá۫ o 'šA>á#áR)./ Lá .Vá . Tá . VTÍLÍ/SsÍV^0/L  M;%*&&<á%&  "$"#<á"# !'Invalid delimiter. .á+ۂ ń  ۂ$šToo many$ġInteger Overflow<) <á"#˶˄ >á#"čġ-Your pattern is too long  1۶ɧۂۂÄ۶d'+ $ ~  Í á8á  á   22  á083ǀ Ŷٶt ġ Cá1á  á   |  *ȡI  ض á : ؂    á   2  uy 4ڂ á-ń ۂڂQ \+ȡˡǀ Ŷڶt š á :ض     á   ˡȡ ȡ 4` x š2  uy 5EE Ŷ  Eá Z ɡ,ń šٮ ݮ+,  7Ŷ EɄ ŶŶöEɄ E   IP   vá   vŶ EɄ Eá @ 8     á78"#<á"#~ z!v$qá< > Lġ Integer Ovflw) <á"#[]>á54y e á78   3ǀ Ŷ š % VH  " ( ,z (B8T td , RFt $"B""#$J$%%&hv;Pattern CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86not in the fileNo old pattern.  " ^ P  VTLXjh|l00000000  .Má  Má   d~ zxt p lhd DRAWLINE DRAWLINEDRAWBLOC  DRAWBLOCDRAWBLOC. DRAWLINEPASCALIODECOPS  ÄB  X6.۪PڪP.P [M / ]: ء# áL( it T(okv9x  Replace' aborts, 'R' replaces, ' ' doesn't 9 á Rr˄Fš\Fš8Buffer full. Aborting Replace ꂧ;COPYRIGHT (C) 1978, REGENTS OF THE UNIVERSITY OF CALIFORNIAFꕞFɡꂧFꕞFFˡ F맂F꧂F D:̀̀ `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m-  á Find =>9& Replace V(fy =>9./0ʀ ťE1G á./̀0ʀ  ` ~ m- ` ~-      F1HçG çHGk  ȧMل*6 ١ނ߫ á:<á  ٓ'MńPattern  5  \j \  @not in the fileNo old pattern.  " ^ P   @xnpdTTTTT&fE CE ww  w.Má  Má   d~ zxt p lhd RCaE ee e wz tE WuEB  N uED 7>tEpWuD@8lb^\ZXVVVTRPN024680>@b; ˡ; E` mtEp  uE` m %   ACBvC@A & .áCڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓFWRITERE FWRITEDE  FWRITEDE  DECOPS fkpt  *ɡ ؼ݀$ ؼݞ$ۡܡ ؼ* Jɍ -    á  +-Í- z,  0$ $ ݞ$' ݑ$ $݂ō $݂ġ  sġؕؕġ#˄˄ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ> 2w&7$" G8  J~4 f~  w* ~ ~_ Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ _B B`A b eE~ QB  b B~  `7 x [l a " ` b R H 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *HH~~` H~HhHh~~ e_:8 F  F   C~ á  +-Í- z,  0_%_  77  &   ~  ~k aB  B  ~ `X`7 sġؕؕġ#˄˄ :k(0Rb ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕݢ ݣÄɡ3ڕġ$ڕšš"š 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ" á  +-Í- z,  0ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v sġؕؕġ#˄˄ á +-Í-ڲzؼ 0PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE ' P TJFLB>@0 4$ -$$      `TH^ X w!     a ~E _ jJ  b ~^T Y  ~PN<$`h d ~~.,$`  ~~ 727& a " B ` $$~_ " ˕͕07 7   .͕- ͕0 ~FZ  F b jv#"-      E~"& f V7 d wlj  XV X R ͕0B ͕0~. _ ``f~ 6  _ ;NJ#&;KLZz @" R~_DqPH>RHDF& a " B ` $$~_  ˕͕07 7   .͕- ͕0 ~F  F  #"-      E~& f 7 d w  "1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symDECOPS DECOPS GDEC GDEC bol (possibly missing ';' om line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type & 7 7 7 7a E  Da7 | D7pqmha L Ha B~N0e:!~F  (&   _d 7w   aw w  D 7Da7  D~-w: F~  & ~ &B|vwxCxp%\% ~T ( !11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected ! standard procedure parameter  126: Number of parameters does not agree with declaration