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 16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*' 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130: expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': ='  Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:not allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or s 'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declaredubrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter sol 105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must ution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fnot be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not iles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index typbe real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or e must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference t152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cype identifier in variable declaration  119: Re-specified params not OK for a forward declared procedure 120: Function result tannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thype must be scalar, subrange or pointer  121: File value parameter not allowed  122: A forward declared function's result typeis record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  can't be re-specified  123: Missing result type in function declaration  124: F-format for reals only  125: Error in type of 162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed) s in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression too complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds ٧<<؂< Gá اGGGٚ (GGٚG٧@ġ ٧@ؿBBۢ 303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Impؚۢ>@'á%(@(@\ > >>؂  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  17lementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not e0: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or procenough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in sepadure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declrate procedure  406: Include file not legal aration not allowed in interface section  185: Segment declaration not allowed in unit  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not in library  191: No private files  192: 'Uses' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Unit not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer  & BASICCOM constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedu COMPINITCOMPCLOSPROG res or functions  252: Too many forward references of procedure entries  253: Procedure too long  254: Too many long constant* ?? ؚV?AZȡ|A?ATN BY CAT$ COS COP$ ȡڂ ȡڂ> *@ =UCSD BASIC Compiler, Version 2On DEF DEL$ DIM DATA END )EXP FOR FN GOSUB GOTH   ȡȡؤȡڤO GET$ INPUT IF INS$ INT LET !LEN LOG LN M(ڮǥǤǑǤOD NEXT "NEW ON #ORD OLD PRINT $POS RETURN &READ %ǂǚǂLjǫǭ TǕLjǫǑǤǥǤǚǭǭREM RND STEP SIN STR$ THEN TO -@ǃLǧ$džǕǕDŽDŽǍDŽǏǞLJNJǡǤ Ǜ ǥ Ǧ dz ǼǶǕǕDŽDŽǍǫ$NJljLJǽǭVǪȡǀ>,Oġ æ FILLINDICTؚ(<ǎǐǒǭǪǖǽǚǹǬǾy77Aá اAAٚ&AAٚ á  á " Nˡ>NNǰy87Ƿy97Ǵy:7DZy;7ǵy<7ǯD     تPٓW,d-,-ȡ,,"ASSERTION FAILED, REPORT MESSAGE: SVj ǎ  ,<0XDf2@\ > >>؂(æOUTBUFSIZE MOD 512 <> 0 ˡ%WORKFILE EMPTY  ˡ%Wȡǀ>,Oġ æ FILLINDICTؚ(<ORKFILE EMPTY  ȡȡؤȡڤAá اAAٚ&AAٚ á  á " Nˡ>NN򥀶 {@n ٩|A?á|A|AI|Aߧ?ˡߢ ޢ ޢߚߚ @ ٤h vOˡOá >O y7 ؕ  ( ٕȄ "M@áNNؚMMMOO > > >ˡ` h ˥ˍ ˡ?FWRM BڧDȡHCښDˡݧCáDIDN'T FIND LINE NUMBERء EEFš ITEREЩȡ؂ ˡ?FREADREAЩȡ؂ ۢښۢٚءۢݚݧFá۫Fۚ; ٧>خ>>ء>>C٧DȡLINE #'S NOT IN ORDERȡ <>ˡ4f BˡBB́ʁˡ*ڢٚڢؚڧDګDE٧FáFɡ Fخ FخF &r >ʁʁġʁʁ0ʁʁʁB Bá@  تP +,+,ȡ+++  ا>@.4l4np ˍ ˡ?FWRV :ء &ITEREЩȡ؂ ˡ?FREADREAЩȡ؂ ؤؤ٢ٟ٢٢٢ ٢6+áL LݟˡÄ $ȡ <>ˡ4f BˡBB́ʁˡ* Ná B٤áٮ$٧L*Ä'ڤáڤOOڤ6Ȅ؂ áȡ؂Bá) @٤áٮ$٧L+Ä횹Pǥ#LjǕǺǓǡǑ1Ǟ"NJǽǥ#LjǕǻǭTF X+PRESS SPACEBAR TO CONTINUE OR ESC TO ESCAPE  Íábت@ *ǪPǶǞǶ ǡǛǿǹǶ ǡǛ ǿǹP <--TR. š/Iá  IIIڢKګKPǛǿǭ > ǫǫ#ǐTǫ$ǭ2 ǫǫ#Ǟ ǫ$ $ȡKKK٢I٫I 8) š/Há)  HHHۢǡǥ$ǕǺǻǂǹǭ < ȡ`٤J۫JP JˡJJJآHثH, ǀ  ( y7, ˡ. UNEXPECTED END OF INPUT=v!!= ˡ "ث!= ˡ  REAL,STR,INT FUNC OR FNEND *+, ') NTVXZ+-1-#-áM#+>>>$%%ɍ EXP TOO BIGġ ڞ$ ڑ$<%=0ħ=9Ȅ =0"! ,&=-ޚš ޮ ܟ `--؟˄#+-؟ˍ WRONG # DIMS0ħ=9Ȅ ۼ ۼ=0". @'P=ˡ$ =P QP!!=:B.# >>>+>>>١ڢ-ܚڢ  .ܮ 3ˡ) #h/ˡȡ+ P QP>= á"GfT("=-ø=-ç=+Í"=٤áٮ٤ء٤٤٤٤/X0٤áٮ٤ء٤0ɧ=9č EXPONENT  &   %V) =='˧="˄"! á[2á <٤٤٤)/X1؟á2á NO ARGUMENTS g2ˡ ARGUMENTS #(ˡ+,؟-ˍ؟ˡ >.=á!!=0ħ=9Ȅ &?"^ōM ORD(CH)=  !CHARACTER DOEMORE ARGUMENTS -áLESS ARGUMENTS 3ˡ) #X 3#٤á UNDEF FN+áA٤á UNDEF FNS NOT BEGIN A SYMBOLٹ==á:$=>á<$7==á;$=<á<$9=<á:$=>á;$8=*á1$61) ٤3٤ 6٤á UNDEF FN٤3٤2)ض ./02345-= ˡ!( 0'=.á" '%=Eá)==0ɧ=9ō Fض 2ˡ( #,Pضض -ˡ$ R5á, +á62ˡ( #خ67-ˡRACTION  A'%=Eá)==Aɧ=Zō4=0ħ=9ȄA =0"A=$á("'Fç=NÄ  ", #خ68)ض 7Pض 88ض<97)ض ض 8Pض|A|=A 3ڧ?ˡ ݧ?á RESERVED WORD  "1ۧ?ˡ  ݧ?á RESERVED WORD  88ضF:)ض 7Pض *;)ض ض *<!" ?ェ==ݢゾˡ=ݢゾɡܢゾ ݧ?Äá>= ˡ! #?ˡ END OF LINE > RESERVOLD AND NEW NOT ALLOWED IN FN2ˡ( #=ˡ INT CONST  INT CONST INT MUST BE IN 1..1ED WORD  'ACH = !CHARACTER DOES NOT BEGIN A SYMBOLN"^z=\UWYG6ˡFILE #'S MAY NOT BE CHANGED, ٚ   #8ض(BتP <--EXPECTED R6 ==áV  pmdUWY[]_aceg    !#%')+-/13N- D DNM,H>*á> >ؕ>OO> VARIABLE NAMEL?(á3#2á1 P+#2á0 dI# FN IDS L#BCDG>>>EFFEˡUNRESOLVED FORWARD JMP(S)IH>r  T#4áp#=ˡ INT CONSTLFRACTION NOT ALLOWEDK<=#ع59:7=78778A+ JتP <--?ˡ# *R<KتP <--EXPECTED a;]#>  9 >>>"ˡ *?ˡ END OF LINFACTOR t>>1á#> "??A#?6á*4@/á# EL>##   >ڮ>>ۧ>'ˡ VARIABLE NAMELާˡIMPROPER FOR-NEXT NE.á#@#@/á١0 P+43(á#2á1  +á2 >STINGK# vM#+, COMPARATORL#١+خ ,خ @ THEN OR GOTOá#J,LáL+á=LˡFN ALREADY DEFINEDLLꚹ;LˡFN ALREADL#=ˡ LINE NUMBERL#N#JˡGOTOL#>>>>dž=ˡ LINE NUMBY DEFINEDL LꚭBš& EXCEEDED MAX NUMBER OF FUNCTIONS:C*áERL#-á(#=ˡ LINE NUMBERL#  JO=ˡ DIMENSIONLڢ2áx# ARGUMENT á ظ آ٢٢(á#-ˡ3ˡ) #آ#-á#ڢQ)ڢbQ#ARRAY VARIABLELá(+á D)+á؟ˡ>(á' Pښ)#ءiˡARRAY ALREADY EXISTSK2ˡ(L#Q bˡAٚ+áLLk E) 8á.#+á,+*á RRAY PREEXISTSK2ˡ(L#Q 3ˡ)L#-ˡ PREAD STMT NP/?ˡEND OF LINE OR = >#,ˡ*,á#4FFEFDCDNNMM*GFDCˡOT IMPLEMENTED#4á#=ˡ FILE NUMBERL#)#-á"# VARIABLE NAMEL#)R. ˡ)áA*?ˡ END OF LINE >#FEˡUNRESOLVED FORWARD JMPS\>> <>ؕ>ٕ ١آzتPY+ + M+ word referenceA+ byte reference>˥ˍˍˍ  :&\Bf '+ big referenceU=% š'+ (+ + times)+ (once)++ 5+5 . p f P  &`&V0Lnpd0x Nl> Z !!:!f!!!!("""j##ȡ ,++$h +# c+ completely linked segment++ Pascal host##$F$x$$ %b%%%\& ]0 >\    ]OO#]?ˡ LINE NUMBER >#>) outer block++ Pascal segment+s m+ library unit+s >+ sˡ)áA*?ˡ END OF LINE >#FEˡUNRESOLVED FORWARD JMPS\>> <>ؕ>ٕeparate procedure segment+ i<́ʁʁZ䍡ˡ߹ZK+ á UNDEF FILEK#T-á#T S+ , >˥ˍˍˍ  :&\Bf  AFV#4áp#=ˡ INT CONSTLFRACTION NOT ALLOWEDKá UNDEF FILEK( LIBMAP #ل!V ١5#ۡ ڮS= UDATA STATEMENT NOT IMPLEMENTE D"#+,-á#+,dW#=ˡ LINE NUMBERL#0X#=ˡ LINE NUMBERL#<Y#Z!á# VARIABLEL(á-#2á1  8ˡ=L#,P+#2á0  8ˡ=L#+ [COMMAND KEYWORDȡ$ / @ō  ˡ++Interface readL0[QRMMINEOAP=U9W5X1Y-Z)S%(%35E93I'QS~*ȡ(ˡ error+ ~   4  á á   0 >\    ]OO#]?ˡ LINE NUMBER >#>)ō+ ++ áG ١$+library read error!+/  enter library name: ,P, +,*,*SYSTEM.LIBRARYP,"ˡ.CODE,P,,ˡbad fileUUȡ\ɥɍ,ō# not a code filelist linker info table (Y/N)? ٳ@@  ERROR &>This program modifies the SYSTEM.PASCAL of your default prefixٳZZylist referenced items (Y/N)? ٳ@@ ?disk. If any of the files it expects to be around are missing,?i.e. SYSTEM.PASCAL, or enough room (60 blocks) tٳYYX}map output file name: P.á o re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th:ˡ.TEXTP+"á+ + LIBRARY MAP FOR +,++۾š+ ++e program SETUP to get the system to&work intelligently with your terminal.* File with GOTOXY(++nBJƁ+ƂWƁƂ/ՁLibrary map utility [I.5:4]XXƁ+X,Y: INTEGER) procedure:Pá "ˡ! ++P+.CODEU+"á2 SYSTEM.PASCALƁlrzn^ Zylist referenced items (Y/N)? ٳ@@ "ˡ2ˡ+++2+ˡ ˡ+++ + global addr P #+ +, I #+ +Z5+ + public var base = + +ٳYYX}map output file name: P.á Z4+ + constant value of + +Y4+ + external proc P #+ ++ :ˡ.TEXTP+"á+ + LIBRARY MAP FOR +,++۾š+ +++ separate proc P #+ +t globalg publicZ constantK separate< unit1 private#++nBJƁ+ƂWƁƂ/ՁLibrary map utility [I.5:4]XXƁ+ ZOFLGIán 5ȡš+ Segment #+ + BINDER : ++F----------------------------------------------------------------------K++  0 ˡF\@PASCALSYЩ\욶\UXXUUZض[ YLAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT ˡk]YUˡM\@[آ@[\[\[UXXUUSRS SBI SBR SGS SQI SQR STO IXS UNI S2P CSP LDCN ADJ FJP INC IND ,š Zá[[ȡZ[š[[ @. d,٪PتP]ƁIXA LAO LCA LDO MOV MVB SAS SRO XJP RNP CIP EQU GEQ GTR LDA LDC X\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[LEQ LES LOD NEQ STR UJP LDP STP LDM STM LDB STB IXP RBP CBP EQUI  ,]\á ])Code file write error ] Ɓ62Ɓ^ՀGEQI GTRI LLA LDCI LEQI LESI LDL NEQI STL CXP CLP CGP S1P IXB BYT EFJ ҥ  Moving procedures around  ! 2 Calling systeNFJ BPT XIT NOP SLDL1 SLDL2 SLDL3 SLDL4 SLDL5 SLDL6 SLDL7 SLDL8 SLDL9 SLDL10 SLDL11 SLDL12 m linker to create new SYSTEM.PASCAL SYSTEM.PASCALSYSTEM.PASCAL[60] 2f\RSLDL13 SLDL14 SLDL15 SLDL16 SLDO1 SLDO2 SLDO3 SLDO4 SLDO5 SLDO6 SLDO7 SLDO8 SLDO9 SLDO10 SLDO11 SLDO12 X\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[SLDO13 SLDO14 SLDO15 SLDO16 SIND0 SIND1 SIND2 SIND3 SIND4 SIND5 SIND6 SIND7 REAL STRING BOOLEAN POWER BYTE WORD EXEC-ERRINIT RESET OPEN CLOSE GET PUT SEEK EOF EOLN READINT WRITEINTREADREALWRITREALREADCHARWRITCHARREADSTR WRITESTRWRITBYTSREADLNN WRITELN CONCAT INSERT COPY DELETE POS BLOCKIO GOTOXY IOCHECK NEW MOVELEFTMOVERGHTEXIT UREAD UWRITE IDSEARCHTREESRCHTIME FILLCHARSCAN DRAWLINEDRAWBLOC    +ˡ)ؕܕؕܕ'ؕ'ؕە TRUNC ROUND SIN COS LOG ATAN LN ''''۞ۂە. Z]UEXP SQRT MARK RELEASE IORESULTUBUSY PWROFTENUWAIT UCLEAR HALT MEMAVAL SLDC ABI ABR ADI ADR 1 ع// / / //-s/b/@ š  +ɡI \+d\+d1Q/*@/// teVK<-/ع|٢ ٢ ٢ ٢"8 o٢ c٢ ٢ P٢ ٢" ٢B 6٢R *٢  ]yUD0&m +ƁW0 + *OPCODES.I5+0̅ʅȡ2+`+`+  UCSD P-CODE DISASSEMBLERInput code file: PD!%" CODESTAT l̅ƅPƅ.CODEUƅ"ˡ llá̅ʅȡSˡ  INIT DISASSEMGATHER DATACOUN Ǘ.    (Is this code file designed for a machine 8where byte zero is the most significant byte ?Yë  *Dis-assembly output file ( for none): PPCONSOLE:#1: /'#"!press spacebar to continue... á hƂlƃƁ/Ƃ[ +\ Щd0123456789ABCDEFЩ +}b BH ˡ Յ     /ƂlƁ/ƒPVnt statistics( for none): PǗ.    (Is this code file designed for a machineCONSOLE:#1://P /š/// 8where byte zero is the most significant byte ?Yë  *Dis-assembl sorry but there were no accesses/3 to this data segment from dis-assembled procedures/! Zۂ(ڂ(() Ʉl(á= Jɡ %%  %% 2   /$ǥǧǫ/44 ۢ/\//BOOL/ /\//POWR/ /\//ۢڡخ١خ)/ / /\/ //4BYTE/ / /\/W/WORD/ / /\/ ;4 /  ڢڢ ڢڢؕٮ)/  U# //44/ / ' ڢ/ /\/ //44á ۢڢ!ȡ/ȡ /'/)L /++ š ǀ<ۢÄÄÄńɄWۢ"ۢ"8/8؂44/ /\Fɡá*//áǀɡK##/aڡ(ǖǖ3/ / / /\/ ۢۢ@/44/ / /\//44šɡE"" f//44)/ / /\/ ٢-/ / /\/ɡD!!-/ / /\/6 ٢//44  ۢۢ -/ / /\/"/ /\/ /6:   ۢ"ۢ"ڕ ۢBۢBǀɡ ?c=  áءGd //4/ / / / /\/ڕȡ`+\ Щؕ)/4ǭÍǡǹǀɡ@ 0/ / /\/) / /\/h //448/V`?c :/?c / /\/Ǯ44/ /\/آ(آ( //44١(ǖǖ)/ / /\/ / ڢڢ٢٢ Í/REAL/ /\//STR / 3 OCK #/( / OFFSET IN BLOCK=/ //SEGMENT PROC OFFSET#/ # 4ǖȡ!  "Procedure guide: #(of /HEX CODE/W*.2á ([ ]procedure),%L(isting),Q(uit))A(ll),L(isting),Q(uit) to segment: z/ / / /(/d/d/d/): ȡ!?قwhich procedure #data segment to watch?/.2á +\ Щ'', EA= 9to dis-assemble?LáAç dis-assembling all4ǖ  proced51 - )%! 3)/-?=Lp4ǖ́3ʁ3ȡƀǖuresꓡ2( )Q09Ȅ004ǖ́3ʁ3ȡ4ǖ́4ʁ4ȡ&ǖġǖǖǖǖ9Ȅ 04ǖōF$I didn't say you had THAT procedure!S diƀǖƀǖƀǖ4ǖ́3ʁ3ȡǖ"4ǖ́3ʁ3ȡ s-assembling procedure  cȡ  4/44)/ / /\/ ۢۢ&G[0hL8)&4)ȡT+\ Щ)/) / /\/\ $ %%$$&)(& š & & 4ǖ 4ǖ 4ǖġ4ǖǀɄ?$cؕ,'ǀɡ?$cŧ$cÍ?c$%ɡ(٥ۧcĄá<cۧcšۧá ؤؤ?% % $?c$ȡ!?$c?$c$$) 4ǖá*Procedure notń4šڧá ؤؤ6y  *؂ in file&4ǖ ɡ!&4ǖ  š  %(؂l 24ǖ4ǖ ááL Procedure   is written in Assembly./ /BLȡ$ # LL SIZE4ǖȡH : 4 %for possible DIS-ASSEMBLY?Qˡ09Ȅ009Ȅ 0 one Parameter two٦ Case table size٦7Bits used Total Percentage Total PerōK"I didn't say you had THAT segment! ˡAQÍ  z.centage٦ Total Percentage٦*Flavor Total Percentage Flavor٦ Total PercenQák  7have you changed your mind about data segment watching?Yáçtage~٦2 # Total Pct # Total Pct # Total٦ Pct # Total PctSȡHˡ d \   }X)=| //Jump statistics on the/ / Total jumps/š/1 Do you wish to keep track of references2 to a particular procedure's data segment?/5 Positive jumps Negative jumps//ȡu/ / /Yë  &Do you wish control over dis-assembly?Yë d/ /d/2//Sorry no jumps today!;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLED PROCEDURES ONLY ***o/c5 t//Procedure call statistics/ȡˡǖȡ /*** THIS INCLUDES DATA SEGMENT WATCHING ***}ǖšw/ Segment:/ / Procedure:/ / Calls:/ǖ / ȡVꓡ(( )ˡ`  #􊉇ئSLDC OPCODE: 0..127 TOTAL:ا# ا#'dئ  6 R n t : 2,h N h& : rol over dis-assembly?Yë % ȡ*#ˡ ȡ :إ/ إ/#ȡcQÍV 2^Xp $Segment guide: #(of segment),Q(uit);*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLED PROCEDURES ONLY ***oyou have these segments:ȡV  ȡ!ع٦ Parameter one٦ Bits used Total Percentage٦7 Parameter one P?؂which segment to look at 'to decide on DATA SEGMENT?arameter two ٦7Bits used Total Percentage Total Percentage٦. Parameter5 d  :إ/  إ/ #d@ :إ/@ إ/@/ 􊉇/ /'d/ % ȡ*/ #d` :إ/` إ/`#d "􊉇r / 􊉇/ /'d/ % ˡȡ/*//SLDL OPCODE: 216..231 TOTAL:ا" ا"'dئ % ȡ*"ˡ///ȡG/ /٢ /٢d// [  ȡ :إ/ إ/"d :إ/ إ/ /􊉇/ /'d/ % ȡ/*////"d :إ/ إ/"d  :إ/  /ákȡ^/ /٢ //٢ //إ/ "d "_+!􊉇ئSLDO OPCODE: 232..247 TOȡu/ /٢ /٢d/٢ /٢d/TAL:ا! ا!'dئ % ȡ*!ˡ ȡ ⥁//áȡ쥁/8؂44/٢" // /8؂44:إ/ إ/!d :إ/ إ/!d/٢" //ȡ楁/8؂44/٢" /٢" :إ/ إ/!d  :إ/  إ/ !dd/ /8؂44/٢" /٢"d/ 􊉇ئSIND OPCODE: 248..255 TOTAL:ا  ا 'dئ % z$ / 􊉇/ /'d/ % ˡȡ* ˡ ȡ :إ/ إ/ d/*/////ȡG/ /٢ /٢d/ :إ/ إ/ d :إ/ إ/ d/ [ / 􊉇/ /'d/ % ˡȡ :إ/ إ/ d  (e5///*/////ȡu/ /٢ /٢d/٢6 ȡˡ\/3؂44/٢ /٢󊉇d/ M/3؂44اؕؤ ؤšؤؤاġ;b/٢ // á/ X ǀ ȡ/ئData Segment size:ا ئ Data references:ا ئ Lex levelإۧc Tš dš Xš Lš @š 4š (š  \FT>4fh.$V ئ For segment ȡ إ?قئ Procedure #ا ئOffset( /٢d/ȡG/ /٢$ /٢d/   3Output file for opcode statistics ( for none): P/ [!| / 􊉇/ /'d/ % ˡȡCONSOLE:#1://P ǀ **ȡ//44/*/////ȡ/ /٢ /٢d/٢"/ Opcode:/ / Total: : 6 2 . *&" ("(" ,. /٢"d/٢B /٢Bd//d  8 '  Total operatorsST ɍX/􊉇/ /'d/ % ȡ/*/// -   $ $ ݞ$' ݑ$ $áȡ/V؂44/٢( // /j؂44/٢(ō $݂ġ ݂$ $ $ȡ&  ߂0 ފ$ ///~44,/٢(( //ȡ쥁/V؂4č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   4/٢( /٢(d/j؂44 /٢( /٢(d. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  (, //~44,/٢(( /٢((d/RG"v/ ` ` p0 ed your mind about data segment watching?YáçSȡ 􊉇/ /'d/ % ȡ/*///ɡ=ˡ/آ;ˡ/آ7 lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ   ȡ$ D X X %:&)(, (  إ/ #d@ :إ/@ إ/@Lost workfile sourceB Workfile .š. read in*No wor#d` :إ/` إ/`#d "􊉇kfile to read 31p"  %áɡ{  SLDL OPCODE: 216..231 TOTAL:ا" ا"'dئ % ȡ*"ˡ؂؀ %ˡ4!Output file error: Help%؂ɡ]ꕕ % ȡ :إ/ إ/"d :إ/ إ/ˡ6!Output file error. HELP!%!%٫q *$ $  bPASCALSYEDITOR Z%F@Quit: U(pdate work file, E(xit without update, R(eturn to editorP'UuÍs*SYSTEM.WRK.TEXTword) Total %u 4ˡ3/ / /d /ˡ X   8Output file for data segment statistics( for none): PCONSOLE:#1://P /š/// sorry but there were no accesses/3 to this data segment from dis-assembled procedures/! Zš%á ەš ڂ۞$not enough space   xɍ -   $ $ ݞ$' %% "ˍ܍-%not enough space^š:ݑ$ $݂ō $݂ġ ݂$ $ $ȡ&   ނš ݂%ڂ۞ꂫ a BYALOE::$ 0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿- ? for details ڕLjڕńܓܡɡ}2 ȡ 28 e defined are: -  ȡ%ˡ  - Your text buffer is  ɡ؂؂ث Y  ڂš?%insertion truncated, not enough space bytes,   of which are filled, leaving  Your 'save' text is   byteš&'save' area deleted.ڂڂڞڂڂګ ءڂás  >: V   ٓ ɶɄ ōa: ȡ؂ؕؕ؂ؕꕕgá:ǀáǀ١áošj% 킾%킾=킾 áȡH ȡ ؂ؕ .ɶ ō# á 2 dō ág or (^X).ܡ macro haltedثګ٫ܡ Y $$$#Jš $ $á  áá /ؓÄ' please finish  ġ܂$A> ńؿ؞%"á u%(.TEXT-"á :|+<  : IS IN ERROR, COMMAND STOPPED.D ȡ3BFile:  is in error. Not read#File name error.؂+Z %?&SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE%%. %! ڂɍ( ڂÍ+` p á  ꕸYet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jump5Kill ɡ!ɡ؂ؕث'ɍ ؂ؕꕕp ɡ" ȡ List Macro Now 8Quit Read Save Unsave Verify# ġ ꂲ9rzɡ 삾؂ Write eXchange ?elp%Ctrl-X (can) to cancel command input. The macros you havˡfġ  Find too long9؞9ؿؿڍڡ&9 not found9 W؂ڂɡقڞ؞؂#not enough space l۹   %  Unimplemented  Ȅؿ؞؂.؂]˄.TEXTÄ(.TEXT-(؂.á%۳ ?zx~|zxvtroHFzFDB@:<>@"áQFile: . is in error. Write not done.K  Illegal title LIBRARIA ؂'xɡ삾 񗜳Ʉ삾-۳( 삾 / 삾0삾ǀ ō삾۳ %ˡ =áǼ삾ܡڑġ۳۹   %  Unimplemented ۳ ?zx~|zxvtroHFzFDB@:<>@á->پ٢B""ˡ""- I/O error # P 6BD $%$ $X(B6:G-Link Code File -> PPš P[ÍV ^ȡ l%ƁQ* %.DT  | h jd4ڑġ۳-ۢ@ڤڤ  -ۢ@  -ۢ@ ۹   %  Unimplemented   -ۢ@   -Code file length - P  ( á{[ ۳ ?zx~|zxvtroHFzFDB@:<>@ˡ"-Link info read errPE ˡ"-Code file overflowP  l'b.H8,pL&BT*X(B6:G    - Bad link infoPۓ'>`š  ȡٕؕȡ0Not enough room to save inȡ ق؞ ؞xál%ƁQ* %.DT  | h jd4ڑġ۳: á  Code write error  nƁ[ƂƁƂƁ[ƁP0f\D. é. é. éi`"D.é.é^"i`"D:!{#Ez#:Î o gÛ!Û _W _R_*@^#VÛ^*"J ortP @@[,  -Pascal System LibrarianP,@Û^*@^#VÛ^*@s#rÛ2_*B^#VÛ^*BÛ^*B^#VÛ^*Bs#rÛ *^#V=^ Ûۡh x ō , [ ˡ!-Interface read errP ˡ"-I-Output code file -> P  P á  ˡ', ,VWWȡnterface write errP i ق 4 ɡ ق á á Щسسe-Notice? P,O,ōe [ˡ&-Error reading seg P ˡá  Code write error  nƁ[ƂƁƂƁ[ƁP0f\'-I/O error - no room on diskP,@آ@,,آآō آ,آ"J ortP @@[,  -Pascal System LibrarianP,,آˡ آ آ ,  2-Pá -Output code file -> P  P á  ˡ', ,VWWȡ 0 ˡ ڤšګ-Seg to link into? P Yd\weAG ~C:  MwY n j f-Wx 9F^0^ W 6 B N ) ,ˡU-, N(ew fi$" Î!SL U Ñ0@ I.`le, Q(uit, A(bortP @@[,  -Pascal System LibrarianP,-Output code file -> P  P á  ˡ', ,VWWȡ !P ?V@ Щسسe-Notice? P,O,*DMDÛo& Җ&o^#V&"!9"*D"Û.é.é.é!$">.é.é.é.é.é. é. éi`"; } |!Û` / !Î` " !Î` " / " ` / " / ` / " ` " / i`"D_!q ^#V GŸ{} ,GOWo,-|<怨BW]"H}o:F2Fl&|’ }2M!LÞ zž {2MLN2Gڪ Ayʷ #® :^i`"DKB ^i`"D)MD #  {_}ɯO>9*HzWzW|g.L @!!͑]T ~))F+N+V+^Gi`"DE#)9~"J##  GOx1 {w#zw#$ y@ Gw#w#8 *JÎ O Gxc {/w#z/w#T *JÎ ڊ xʃ {w#zw#>2F Hz@CPt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;!v *JÎO!9Axʥ w#w#— *JH+~+~ª Î ^_! ^#V_ v e E#)9N##Y"Jx AO{2 I|oŰE7v@pvi`"D2F:Fʎ&0Î&""0**Î&Î&L 0&U 0&0xO "y% Aѳ'  *"H F {Y #zY #5 :S  [  [ *H+ l + >O*JÎ ʏ {/&0&͑0& Î+@0+.0+`0"HzWx怺YP{z{z*H@^#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_!) :o&EoÎi`"DCK^#VxڷGjS]¼zW{_¼! ~_#~WÎi`"Dy! N#Fo`ALbS\o!6 ~h&##)y #9$ !Î!Î! @!9]T>> >[ > >Ge /gÛÛi`_~Gy#N#Vcږ >ڣ ZQHÖ oʺ xGyOzW{_-© $%~o### zW+yO+~7GҲGyOzW{_,ò_~W+~O+~7G҃$"DSÎi`"DSÎi`"DÎi`"DKBÎᯕo>gÛ}o|gÛz}|z{zi`g_|W|O|GÃ> GN #x=25ƁOGOG~#V#^_P|gxezWyOxGyOzW-U||ʇ}l&"DyH)y `i<)%MD!2xGyO){_zWI J#:=/ɯaʾʾxo!{/oz/g!{/_z/W7y.V_ß> OG~ G#yúƁO ~#V#^_~G#N#Vxy}?}o|g{_7}ooxgɯO>Gz™ʬ+!{/_z/W}o|g#ɯo>g!o>g}| !Ûz}|  z{z !9~&+~r#wS@){_{_ËZx zG{֐bX[>2Fi>_xGyOjO>< ""@""L ****U ͑""@"0U ̓*X:Iͣ="2o&))O~W-/^s,r#^,VÀ"H*+V-}_|W~M#~S*lV-^+F-N  o>g9"**4,#s,r7""{I""* "*"!")-0*KB0****͑L ""*-3:ڝ***} Î}ͳŽ#^,V,#Î""*^#V7}o|g"D*:*:ʎ*^#V"*MD*}|! ^#V!^#V7}****IU ð****͑""|>2F}I}ց2_}o""*"_|W! s#r+++:#^#V:ʎi`##N#F i`"D_!A^#V!*M"" !tu~*">2****͑L ,"":= :o:KI**U ""* "*">2o&!!!!*>o>g9|g}oÎ*s#r*s#rÛ*>s#rÛ^#V">!"Û*>s#r ">Ҏ*}=">0:<OYP0****͑L "":=x****͑|}>2F >2I>2!" s# Î}|P- y>~# ~# 99Î ye+~ +~ ``Î҃ͺ}ց2.Q*&0*"* L :***(*&0*&*$L :+0+Æ͔}o|gÎ {# žž{+ ««x {# {+ y_ 0+0+0+Ͷ0+>0+0}|}|Û O>GÛ*O ^#V7}O|GÛy!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELo`N#F#^#V#"Dz}|#Îx-}o|g#)*DN#F+}o|gMDÛ*+V+^" "B*@^#V ~O*@ #~+~+ q*SE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN ) `-TIہI1r ^[4>* *͑**L ͑**L ͑**L " "@":¡:ʪ*~ͳ"Ûo&))O F-N q,py*>!9}|"H*""H i`"D/<_*^#V7}o|****,U ****U ****,U ****U  g"~&*&))N 5+V-^^#V#N#FCo>g9T o>g9*##yqO>G~#~# ``*D***""@""6****U ͑ ""@""L ****U ͑!9" "@*"*"+V+^}O|G*HÛ*Û**@"B*"N#Fq#pÛ*MD*#~=! V+^**͑@}20""**L "":͂ͺ""͇:+F+N#KBÛ *.<*N#"N*?i`"D >*DMD"*&)]T)2"^#V{!9"}o|g,#"*+++F+N>: : ""͇:<B>E:R {**}2**:=h!9*+F+N":*:"+F-Ny+V-}_|W:w#:w ë*,~-+V-}_|W~+-}w_,|wW-"*ͣ*ͣ*= ILE WITH ! """!> #w/ *^#V*!`O w_z `` Aj [t 0~ :~ z #wQ *:#o͇# SYSTEM.PASCAL* *}o|g"K O>Gw# »$»$++1*"*!!!"!"$$7{_zW*s#r: :< "}ª | !¾ #° ! *à *##w# Î*##6#6###w# ÎAOPASCALSYHEXEDIT * N#Fi` ))6* """*F!#*!!**s#rÎ_!*^#V{= !!8!* ^#V{= !!8!u!## I"N"##*}ʛ*Û2}!!2!&ot!"!:!>!>2Î!>2!ʹ!Î>2!!"!ʹ!3"!>">">!2!"!"!"!"!"!ʹ!##^#V*!|B"*!P".͇#:!e".͇#Ä#*!)$"!*!MD.$͇#*!))!{<2H"O.͇#>!=•"!#{ ک"#}2F"=Ұ"2G"O.!͇#*!%"!#}"ʄ#$,"!:!#!9MD.$͇##:!„#*!!!>ؾآ4>ؾآ(J`ۢÍU9:!G~##!9Ä#:!%#.*'#.'͇#3#>2*!"!MD.$͇#:G"P#!F"x#<u#f#:H"<2H"O.͇#2F"2G"O.!͇` ÍۢÍRIۢÍZ6ÍۢÍL!ڳ  0123456789#"B":g :!ʹ#2#W$$:!$f$*!*!{$:!#N $$z$Ow:!$ $:!$: $6#{ABCDEFЩ J ONMKLSRQPϦPPTP#$##B":!$̀$V$:#9$y 2#:#=V$2# ̀$'$y2#V$̀$:# V$> 2#Ò$.͇#. ͇#W$*!&)#~2##~2#:#Ã$}P>ھڢ0 ɡ IMPOSSIBLE:#o͇# SYSTEM.PASCAL* *}o|g"K O>Gw# »$»$++î%1 >*"*! &!!"!&&"$$@ءTrueFalse. YTÍ YTÍ( ;Type the prefix cha %#$%*$"$ $%*! .!@*$N#Fi`"$">2$.! .:N#F#*$ s#r#~#~#:$=2$B%!2^#V*##}o|g:racter of the option you want to change.Type 'P' to PRINT, 'Q' to QUIT. A( Input File INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -REPEATO*0"!Rw# •%•%!"N*"P*"+F+N}o|g"+F+N}o|g"D* N#Fo>g9!9!!9"" "@ SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WH"B!$">Î%#9$y 2#:#=V$2# ̀$'$y2#V$̀$:# V$> 2#Ò$.͇#. ͇#W$*!&)#~2##~2#:#Ã$> 2  PRINTING...  BLOCK[P ]  |9 0: 2: edIMRType to continue AThis procedurK T B( Begin Block #   C( Num. of Blocks   4: 6: 8: 10: 12: ?14: 16: 18: 20: 22: 24: 26: 28:  E( Output File L } G( Hexadecimal   H( ASCII   ́DʁDȡ    DŽ Ɓ5 `DŽ ƀDŽ ƀDŽ Ɓ& ɡ [₥  I( Decimal   J( Octal   K( Decimal Bytes   L( Octal Bytes     Jڂ`ڂ ڂ  M( Krunch   N( Double Space  ٳXٹ!`ڂ Ɓ5ߤڤ{ƀႥ ڤƀ ڤ ƀ ڤ ƀ ڤKTP!T"ˡOK"! Ioresult was   Try Againƀ ڤƀ ڤ %Ɓ&ނڂƁ&ڂ~ƀゥ ڤƀ ڤ L}P}ˡPL" IORESULT WAS   ƀ ڤ ƀゥ ڤƀ ڤ ƀ ڤ ġ p  TRY AGAIN     }  n _ P A t P;This procedure will write out sequential blocks to any fileas a patch dump ؓ2 #AN$  ~qdWJ=0PQÍQÚ9j 9 :|DŽDŽګPۂPȡt!Pˡ\Error reading block[P ]. Type to continue9 :|`DŽDŽ :|ɡ6mP"ë퓡WError reading block[P ]. Type to continue PPȡ&5  5  : :|DŽ  WRITING... ȄqˡX" + is IORESUDŽ  :| ɡ2ȡ"& ,& LT. Error occured reading block[ ]}IRˡa"  is IORESULT.Error & : :|DŽDŽ N& occured writing block[R ]RR퓡 -Something wrong, File Locked, Loop Terminat? إ(  Kx ;ɡ%ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Qá /ɡ(%"2dFill with what hex pair:, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewrit~ 0 A ~0e, Q(uit PB :62CW* * "$&(4Qá!A X خ!@BDJ)NPRTQás j  (!Patch: G(et, Q(uitP# H(ex, Mesult was   Try again IPIRM"ˡPM"I (ixed!P:! S(ave,!P:! R(ead,!P:! [J ] Ioresult was   Try again9+IS3 7QPÍQ***M)Jˡ JrBLOCK: J ;Jˡ#5 .  |I 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20: 22: 24: 2 Error reading block J"ë!Filename: PPū6: 28:==ȡ :|J إ݂ ۂ݂(ۂ ݂ ݂"ë#:Ä?á 00+ 0++&"ëV"  error on ݡġJJ512:|إ(   Type to continue*!, Unitnum to patch [4,5,9..12] (0 will Quit) P 1@  COPYBOOT   ;ȡ ;훾#azȄ .Ȫ} ꊃ0 ڡƂ/ƃ[ *This program is a general bootstrap mover.ATo copy a boot from one disk to another, type the unRfd.ˡ.áړ dڡ99 ˸it number forAthe destination disk, and the volume name of the source disk. If@the source is a diskdکe#e#   8 Щȡ  ˸ file, then type the name of the disk file. ) Unit to write boot to [4,5,9,10,11,12]:  LASTX Я d%še# dd dSn @'5ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q0 File to be written as boot: Pš /"ˡ9 is not ava, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritilable, other file: á//ˡ_; is not big enough to be a bootstrap, no transfer attemptedB :62CW* * "$&(4Qá!2When the destination disk is on-line, type return./"ˡQ8 Error in attemqIƂƂ!ƂIƂqƂ+(rt6 TrT(P 1pt to write boot, boot area now undefined/ Boot transferred successfully. Ƃ/6ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q File to be written as boot: Pš /"ˡ9 is not ava, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewritJ CALCULAT A    Undefined TANc UndefՁ7c->;P;á ˡadÄddsdçc)Unexpecteined LOGc  Undefined LNc Undefined SQRTd end of expressioncIllegal Symbol : Try Again. ac !ɍ2!Cannot calculate factorial GTR 33c/ ȡߊ7a ɍ -   $ $ ݞ$ ri`&cO/Q  dáڥ9d$d e#dáz' ݑ$ $݂ō $݂ġ ݂$ $ $o áS#ȡe# .Table full. Assignment not donecˡe# ڼ7 á ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0Unrecognized IDcڥe# /dá dáڥ7 n4 *  `ۧd  ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ V G*Cannot calculate powercۡ.s  ؂ ɡ  (, " <F r > j  ,  ݂. ݕ ؂݂:  ݕ ۧdd ܹ$cDivision by zero Sác 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & * MOD by zero E ۡ $<  d` d  SETUP  Xۡ ܧd`Ad  . 'ܡM_ INITS TEACHSET dd ddd ddddd##^x )&AMLF "$&(*,.024I8:<>@BD 'P e#ئSIN Щآe#ئCOS ЩآFHJLNPRTVXZ\^`bdfhjlnprv dؓ ˡ  dáF;dá.dˡ(e#ئTAN Щآe#ئLOG Щآe#ئLN Щآe#ئABS Щآe#ئcRight parenthesis missingUd cIllegal symbol-dˡ'cLeft parenthesis missingSQRT Щآe#ئE Щآآ U-Ae #ئPI Щآآ IAe #ئFAC Щآ B NTINUE) Q(UIT)NCN V$OCTAL DECIMAL HEXADECIMAL ء2ǀɡASCII  ɡCONTROLɡ 1) ń ġ تPٓ BUG NUMBER %PLEASE WRITE DOWN THIS NUMBER AND ANY&SUPPORTING DETAILS YOU CAN,   ń ġ= ɡ  A AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCENR  ء!ɡ%o! o!BáDEL 'ٳ?  ɡ  aA!áHڦP /ۄ ><á^@N 8[  NEW VALUE: ܄ ڦP<>/áPھšHۓ<ھL?ھ?ھG?ȄAo!! o!  DEL !˄Ȅᚹ F ?P#QPھ꿹!áھáR$T ڪP P-P 0  ( DO 6-á = C / --- -JتP  ˡ4ڕڕ ڂ ڂ~D5 -á0 FFȡ  ߡ >XƁ.`7QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT) *NEW.MISCINFO0 A  ₚ ȡ/0 A  ō`_/_́ʁȡ__-D(ISK) UPDATE PUTS THE CURRENT SETUP ON DISK ޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE  ..  AS THE FILE "NEW.MISCINFO",M(EMORY) UPDATE CHANGES THE SETUP IN MEMORY ) UNTIL THE NEXT SIN THE FORMAT BELOW: !-->("O"{OCTAL})--! ! !:------{DEFAULTYSTEM INITIALIZATION$R(ETURN) TAKES YOU BACK INTO SETUP  IF YOU'RE NOT DONEE(XI}-----!------------------>(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-T) TERMINATES THIS PROGRAM"UDM{ R썡 ;0R C(O->("H"{HEX})----! !-->("-")--! !--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!C NEW VALUE: -썓  NEW VALUE:  썡خcIT zá áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH$NAME OF FIELD: Y쓄F DIDN'T FIND NAME OF FIELD: تo NULSOHSTXETXEOTENQACKBELBSHTLFVTFF쓡\R 쓄;쓡3 FIELD NAME = آ خL1CHANGE: S(INCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPڡ3OR IF YOUR KEYBOARD CAN GENERATE THE VALUE YOU WANT/JUST TYPE THE KEY AND THEN TYPE CARRIAGE RETURNGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT).S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME,OR TYPE THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡z!DO YOU 'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS.R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROWISH TO CHANGE THIS FIELD? ("Y","N" OR "!")Y@썡L M 8OCTALADECIMAL/ HEXADECIMAL?3 - TO EITHER [DECIMAL ORD NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; 1h): O(CTAL) D( HEXADECIMALTOCTAL OR HEXADECIMAL5OCTAL OR DECIMALOcF 3 NHS ECIMAL) H(EXADECIMAL) Q(UIT)0 ( DO 6썡 Qá * , 6  %SETUP: C(HANGE) T(EACH) H(ELP) Q(UIT)  (C(HANGE) ALġ _'Dɡ_ؑLOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR ȡ#_*hȡ  (áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH 2 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARANGES PERMANENT AND TO LEAVE THIS PROGRAM,CT$m j "D6ˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOWED VALUES ARE:˦S`  rB*(X &  v FHl4EACH) H(ELP) Q(UIT)  (C(HANGE) ALHOWALLآá* ZڪP.P.....A T : R LOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR D RINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIXED[KEY TO ENOCEDURE GOTOXY IN THE7 OPERATING SYSTEM. SEE SECTION X OF THE DOCUMENTS.6ALL NON-PRINTING CHAD FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXERACTERS EXCEPT CR WILL ECHO AS "?"THE INPUT ABORT CHARACTER "!" CAN BE TYPED IN-7RESPONSE TO MOD[EDITOR "ACCEPT" KEY]/ f SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENMOVE CURSOR ST REQUESTS FOR INPUT AND WILL ESCAPE YOU9FROM THE SEQUENCE WHICH ASKED THE QUESTION. FOR EXAMPLE,WHEN CHANGING A VHOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPACE" ERASE ALUE, TYPING "! " TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOULINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO MOVE CURT CHANGING THE CURRENT FIELD'S VALUE.I0THE LINE DELETE CHARACTER, "<" ALLOWS YOU TO DELETE ASOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO D5 TO MOVE CURAS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$PREFIXED[DEELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.LETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/$PREFIXED[KتP á R<3 IF YOU HAVE A VIDEO TERMINAL AND EXPECT TO USE2 THEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ PREFIXED[NON-PE SCREEN ORIENTED EDITOR, THE CHANGES SETUP2 CAN MAKE WILL BE INSUFFICIENT. YOU WILL ALSO0 HAVE TO BIND IN THE PRE RACTER":FIELDS ARE EITHER NUMBERS, CHARACTERS OR MNEMONIC SCALARS.6WHEN YOU ACCESS A FIELD, YOU WILL BE SHOWN ITS CURRENT:VALUE. NUMBERS ARE GIVEN IN OCTAL, DECIMAL OR HEXADECIMAL;RADIX, CHARACTERS ARE GIVEN AS THEIR ASCII VALUE AS NUMBERS6AND AS THEIR ASCII MNEMONIC SYMBOL. SCALAR VALUES ARE3SHOWN BY GIVING THE MNEMONIC FOR THE CURRENT VALUE.@ENTER NUMBERS OR INTEGERS AS CHARACTERS ACCORDING TO THE FORMAT: !-->("O"{OCTAL})--! ! !:------{DEFAULT}-----!------------------>(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-->("H"{HEX})----! !-->("-")--! !--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!E0=THE DEFAULT RADIX STARTS AS DECIMAL. NON-PRINTING CHARACTERS@MAY BE INPUT FROM THE KEYBOARD BY TYPING THE KEY WHICH GENERATES?THAT VALUE, FOLLOWED BY CARRIAGE RETURN OR IF THERE IS AN ASCII@MNEMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC {$U-}  PROGRAM OUTERSPACE;   (* Following is the GOTOXY that is already bound in to your SYSTEM.PASCAL *)   PROCEDURE FGOFOR THE VALUE DESIRED, E.G.@FOR BOOLEANS ONE MIGHT TYPE IN THE VALUE TRUE.:GIVING AN ILLEGAL VALUE WILL TOXY(X,Y: INTEGER);  CONST "RS = 29;  BEGIN "WRITE(CHR(RS),CHR(X+32),CHR(Y+32))  END;   (* Following is an example of hoL AND=YOU WILL BE ABLE TO START OVER ON THE NEW LINE. THE BACKSPACE CHARACTER, " / )" WILL DELETE YOUR RCAUSE LISTING OF ALL POSSIBLE@VALUES. IF YOU FORGET THE NAME OF THE FIELD YOU WISH TO C(HANGE)ANGLE BRACKETS. FOR EXAMPLE, TYPING THE SEQUENCE OF CHARACTERSCHARAQF// \( 6 V  EMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC CTER 8b$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER0AND WILL BE UNDERSTOOD AS THE STRING "CHAO^F  and y coordinates. The upper left hand corner #of the screen is considered to be 0,0. Coordinates are postitive.  *)    Xۡ ܧd`Ad  . 'ܡM_ {PROCEDURE FGOTOXY(X,Y: INTEGER);  BEGIN "WRITE(CHR(HOME)); "WHILE Y > 0 DO $BEGIN &Y := Y-1; &WRITELN $END; "WHILE X  'P e#ئSIN Щآe#ئCOS Щآ> 0 DO $BEGIN &X := X-1; &WRITE(' ') $END  END;}   BEGIN "(*DUMMY MAIN BLOCK*)  END.  e#ئTAN Щآe#ئLOG Щآe#ئLN Щآe#ئABS Щآe#ئSQRT Щآe#ئE Щآآ U-Ae #ئPI Щآآ IAe #ئFAC Щآ Ձ7c->;P;á ˡadÄddsdçc)Unexpecte:OUTERSPA d end of expressioncIllegal Symbol : Try Again. a 7a ɍ -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0  $ file P%Ū#^.) ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 ݕ݂ G:!( SYSTEM.WRK. $*(J '؂ ɡ  (, " <F r > j  ,  ݂. ݕ ؂݂:  ݕ%Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *w you might want to write your GOTOXY #procedure. Do whatever sneakyness you can to get your terminal to #go to the correct x(v6 W<  secs, WU  lines/min.BSmallest available space = G `_/_́ʁȡ__-D(ISK) UPDATE PUTS THE CURRENT SETUP ON DISK ޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE  ..  AS THE FILE "NEW.MISCINFO",M(EMORY) UPDATE CHANGES THE SETUP IN MEMORY ) UNTIL THE NEXT SIN THE FORMAT BELOW: !-->("O"{OCTAL})--! ! !:------{DEFAULT  SETUP YSTEM INITIALIZATION$R(ETURN) TAKES YOU BACK INTO SETUP  IF YOU'RE NOT DONEE(XI INITS TEACHSET T) TERMINATES THIS PROGRAM"UDM{ R썡 ;0R C(ONTINUE) Q(UIT)NCN V$OCTAL DECIMAL HEXADECIMAL ء2ǀɡASCII  ɡCONTROLɡ 1) ń ġ تPٓ BUG NUMBER %PLEASE WRITE DOWN THIS NUMBER AND ANY&SUPPORTING DETAILS YOU CAN,   ń ġ= ɡ  A AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCENR  ء!ɡ%o! o!BáDEL 'ٳ?  ɡ  aA!áHڦP /ۄ ><á^@N 8[  NEW VALUE: ܄ ڦP<>/áPھšHۓ<ھL?ھ?ھG?ȄAo!! o!  DEL !˄Ȅᚹ F ?P#QPھ꿹!áھáR$T ڪP P-P 0  ( DO 6-á = C / --- -JتP  ˡ4ڕڕ ڂ ڂ~D5 -á0 FFȡ  ߡ >XƁ.`7QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT) *NEW.MISCINFO0 A  ₚ ȡ/0 A  ōH ȡ#_*hȡ  (áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH 2 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARANGES PERMANENT AND TO LEAVE THIS PROGRAM,CT$m j "D6ˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOWED VALUES ARE:˦S`  rB*(X &  v FHl4EACH) H(ELP) Q(UIT)  (C(HANGE) ALHOWALLآá* ZڪP.P.....A T : R LOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR NEW VALUE: -썓  NEW VALUE:  썡خcIT zá áHARDWARE CONFIGURATION+T(EACH) TEACHES YOU HOW TO USE THIS PROGRAM0Q(UIT) ALLOWS YOU TO MAKE YOUR CH}-----!------------------>(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-$NAME OF FIELD: Y쓄F DIDN'T FIND NAME OF FIELD: ->("H"{HEX})----! !-->("-")--! !--(DIGIT)<-! ! ! !->("D"{DECIMAL})-!쓡\R 쓄;쓡3 FIELD NAME = آ خL1CHANGE: S(INڡ3OR IF YOUR KEYBOARD CAN GENERATE THE VALUE YOU WANT/JUST TYPE THE KEY AND THEN TYPE CARRIAGE RETURNGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT).S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME,OR TYPE THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡z!DO YOU 'P(ROMPTED) TAKES YOU THROUGH ALL FIELDS.R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROWISH TO CHANGE THIS FIELD? ("Y","N" OR "!")Y@썡L M 8OCTALADECIMAL/ HEXADECIMAL?3 - TO EITHER [DECIMAL ORD NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; 1h): O(CTAL) D( HEXADECIMALTOCTAL OR HEXADECIMAL5OCTAL OR DECIMALOcF 3 NHS ECIMAL) H(EXADECIMAL) Q(UIT)0 ( DO 6썡 Qá * , 6  %SETUP: C(HANGE) T(EACH) H(ELP) Q(UIT)  (C(HANGE) ALġ _'Dɡ_ؑLOWS YOU TO CHANGE OR EXAMINE* THE VARIOUS PIECES OF INFORMATION THE1 SYSTEM HAS ABOUT YOUR I AS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$PREFIXED[DEELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.LETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/$PREFIXED[KتP á R<3 IF YOU HAVE A VIDEO TERMINAL AND EXPECT TO USE2 THEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ PREFIXED[NON-PE SCREEN ORIENTED EDITOR, THE CHANGES SETUP2 CAN MAKE WILL BE INSUFFICIENT. YOU WILL ALSO0 HAVE TO BIND IN THE PRRINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIXED[KEY TO ENOCEDURE GOTOXY IN THE7 OPERATING SYSTEM. SEE SECTION X OF THE DOCUMENTS.6ALL NON-PRINTING CHAD FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXERACTERS EXCEPT CR WILL ECHO AS "?"THE INPUT ABORT CHARACTER "!" CAN BE TYPED IN-7RESPONSE TO MOD[EDITOR "ACCEPT" KEY]/ f SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENMOVE CURSOR ST REQUESTS FOR INPUT AND WILL ESCAPE YOU9FROM THE SEQUENCE WHICH ASKED THE QUESTION. FOR EXAMPLE,WHEN CHANGING A VHOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPACE" ERASE ALUE, TYPING "! " TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOUتo NULSOHSTXETXEOTENQACKBELBSHTLFVTFFLINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO MOVE CURCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER+KEY TO DCتP+ +(++!T&ڪP. 2á  WW--̀ƀENTER ƀELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER.Vƀ/̀ʀ Pʀ ʀٚʀؚʀʀʀ ʀW .W. PVERTICAL MOVE DELAY"|  /ڢ Pڢ/ + + + <æINITS ثتP,+,---ٚ-P-,-V6TFTRUEFALSE HAS CLOCK HAS 8510AH /ȡ٤٤ INITIALIZING  ED v> TO MOVE CURJ L AND=YOU WILL BE ABLE TO START OVER ON THE NEW LINE. THE BACKSPACE CHARACTER, " / )" WILL DELETE YOUR RCAUSE LISTING OF ALL POSSIBLE@VALUES. IF YOU FORGET THE NAME OF THE FIELD YOU WISH TO C(HANGE)ANGLE BRACKETS. FOR EXAMPLE, TYPING THE SEQUENCE OF CHARACTERSCHARAQF// \( 6 V  EMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC CTER 8b$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER0AND WILL BE UNDERSTOOD AS THE STRING "CHA>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8RACTER":FIELDS ARE EITHER NUMBERS, CHARACTERS OR MNEMONIC SCALARS.6WHEN YOU ACCESS A FIELD, YOU WILL BE SHOWN ITS CURRENT ~8(8``0 > BB~~BB~>BBBBB>~>~~AND AS THEIR ASCII MNEMONIC SYMBOL. SCALAR VALUES ARE3SHOWN BY GIVING THE MNEMONIC FOR THE CURRENT VALUE.@ENTER NUMBERS O>>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<R INTEGERS AS CHARACTERS ACCORDING TO THE FORMAT: !-->("O"{OCTAL})--! ! !:------{DEFAULT}-----!----B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>-------------->(DIGIT)---->(CR)--2 ! ! ! ! ! !2 !-->("H"{HEX})----! !-->("-")--! <@\B|:FBF:("D"{DECIMAL})-!E0=THE DEFAULT RADIX STARTS AS DECIMAL. NON-PRINTIfZBBB>BBBB>xx > T CHANGING THE CURRENT FIELD'S VALUE.I0THE LINE DELETE CHARACTER, "<" ALLOWS YOU TO DELETE AIF THERE IS AN ASCII@MNEMONIC FOR THAT VALUE, JUST TYPE IT IN. MNEMONIC SCALAR VALUES?ARE INPUT BY TYPING IN THE MNEMONIC 5.:GIVING AN ILLEGAL VALUE WILL K  IF RT11ISH THEN IF FSEGS DIV 2 <= SSEGS THEN BEGIN FSEGS := SSEGS; DINX := SINX END ELSE FSEGS := (FSEGS+1) DIV 2 END > FMAXBYTE THEN BEGIN BIGGER := TRUE; FMAXBYTE := FNXTBYTE END; IF FBUFCHNGD THEN BEGIN FBUFCHNGD := FALSE; FMODIFIED :ہہǻ ELSE BEGIN I := 1; WHILE I <= LASTI DO BEGIN IF FDIR^[I].DFIRSTBLK-FDIR^[I-1].DLASTBLK >= FSEGS THEN BEGIN ýDINX := I; I := LASTI END; I := I+1 END; IF DINX = 0 THEN IF FDIR^[0].DEOVBLK-FDIR^[LASTI].DLASTBLK >= FSEGS THEN ýýýDINX := LASTI+1 END; IF LASTI = MAXDIR THEN DINX := 0; IF DINX > 0 THEN BEGIN WITH LDE DO BEGIN ݽ DFIRSTBLK := FDIR^[DINX-1].DLASTBLK; DLASTBLK := DFIRSTBLK+FSEGS; DFKIND := FKIND; DTID := FTID; DLASTBYTE := FBLKSIÿ۽ϟZE; WITH DACCESS DO BEGIN MONTH := 0; DAY := 0; YEAR := 100 END END; INSENTRY(LDE,DINX,FDIR) END; ENTERTEMPÿŹýýýŹ := DINX END (*ENTERTEMP*) ; (* FILE STATE HANDLERS *) PROCEDURE FINIT(*VAR F: FIB; WINDOW: WINDOWP; RECWORDS: INTEGER*); BEGIýýýŻN WITH F DO BEGIN FSTATE := FJANDW; FISOPEN := FALSE; FEOF := TRUE; FEOLN := TRUE; FWINDOW := WINDOW; IFQˡá  (RECWORDS = 0) OR (RECWORDS = -2) THEN BEGIN FWINDOW^[1] := CHR(0); FRECSIZE := 1; IF RECWORDS = 0 THEN FSTATE := FNEEDC000 Q 0 ̌̌̌? ?HAR END ELSE IF RECWORDS < 0 THEN BEGIN FWINDOW := NIL; FRECSIZE := 0 END ELSE FRECSIZE := RECWORDS+RECWORDS END?< ~ ``0 END (*FINIT*) ; PROCEDURE RESETER(VAR F:FIB); VAR BIGGER: BOOLEAN; BEGIN WITH F DO BEGIN FREPTCNT := 0; FEOLN := FA??`(H"a- TR cbd cLSE; FEOF := FALSE; IF FISBLKD THEN BEGIN BIGGER := FNXTBLK > FMAXBLK; IF BIGGER THEN FMAXBLK := FNXTBLK; !@H!H! JA@bIb6r8`<1x~ IF FSOFTBUF THEN BEGIN IF BIGGER THEN FMAXBYTE := FNXTBYTE ELSE IF FNXTBLK = FMAXBLK THEN IF FNXTBYTE L ) = 4); SWAPPED := FALSE; WITH SWAPFIB^ DO IF FISOPEN AND (SYSCOM^.GDIRP = NIL) THEN BEGIN MARK(OLDHEAP); NB BEGIN SYSCOM^.IORSLT := INOROOM; GOTO 1 END; FHEADER := LDIR^[LINX]; FMODIFIED := TRUE; WRITEDIR(LUNIT,LDIR) YTES := ORD(SYSCOM^.LASTMP)-ORD(OLDHEAP); IF (NBYTES > 0) AND (NBYTES < SIZEOF(DIRECTORY)+400) THEN BEGIN NBYTES :=  END END ELSE (*FHEADER NOT IN DIRECTORY*) WITH FHEADER DO BEGIN (*DIRECT UNIT OPEN, SET UP DUMMY FHEADER*) ORD(OLDHEAP)-ORD(EMPTYHEAP); IF (NBYTES > 0) AND (NBYTES > SIZEOF(DIRECTORY)) AND (UNITABLE[FUNIT].UVID = FVID) THEN  DFIRSTBLK := 0; DLASTBLK := MMAXINT; IF UISBLKD THEN DLASTBLK := UEOVBLK; DFKIND := LKIND; DTID := '';  BEGIN UNITWRITE(FUNIT,EMPTYHEAP^,SIZEOF(DIRECTORY), FHEADER.DFIRSTBLK); RELEASE(EMPTYHEAP); SWAPPED := TRUE  DLASTBYTE := FBLKSIZE; WITH DACCESS DO BEGIN MONTH := 0; DAY := 0; YEAR := 0 END END; IF FOPENOLD THEN = TRUE; IF BIGGER THEN FILLCHAR(FBUFFER[FNXTBYTE],FBLKSIZE-FNXTBYTE,0); UNITWRITE(FUNIT,FBUFFER,FBLKSIZE,  END END END; LUNIT := VOLSEARCH(LVID,TRUE,LDIR); IF LUNIT = 0 THEN SYSCOM^.IORSLT := INOUNIT ELSE  FHEADER.DFIRSTBLK+FNXTBLK-1); IF BIGGER AND (FHEADER.DFKIND = TEXTFILE) AND ODD(FNXTBLK) THEN BEGIN FMAX WITH UNITABLE[LUNIT] DO BEGIN (*OK...OPEN UP FILE*) FISOPEN := TRUE; FMODIFIED := FALSE; FUNIT := LUNIT; FVID :=BLK := FMAXBLK+1; FILLCHAR(FBUFFER,FBLKSIZE,0); UNITWRITE(FUNIT,FBUFFER,FBLKSIZE, FHEADER.DFIRSTBLK+FNXTBLK)  LVID; FNXTBLK := 0; FISBLKD := UISBLKD; FSOFTBUF := UISBLKD AND (FRECSIZE <> 0); IF (LDIR <> NIL) AND (LENGTH(LTID) > 0) END END; FNXTBYTE := FBLKSIZE END; FNXTBLK := 0; IF FSOFTBUF AND (FHEADER.DFKIND = TEXTFILE) THEN FNXTBTHEN BEGIN (*LOOKUP OR ENTER FHEADER IN DIRECTORY*) LINX := DIRSEARCH(LTID,FOPENOLD,LDIR); IF FOPENOLD THEN LK := 2 END END END (*RESETER*) ; PROCEDURE FOPEN(*VAR F: FIB; VAR FTITLE: STRING; FOPENOLD: BOOLEAN; JUNK PARAM*);  IF LINX = 0 THEN BEGIN SYSCOM^.IORSLT := INOFILE; GOTO 1 END ELSE FHEADER := LDIR^[LINX] ELSE (*OPEN NEW FI LABEL 1; VAR LDIR: DIRP; LUNIT: UNITNUM; LINX: DIRRANGE; LSEGS,NBYTES: INTEGER; LKIND: FILEKIND; LE*) IF LINX > 0 THEN BEGIN SYSCOM^.IORSLT := IDUPFILE; GOTO 1 END ELSE BEGIN (*MAKE A TEMP ENTRY*) I OLDHEAP: ^INTEGER; SWAPPED: BOOLEAN; SAVERSLT: IORSLTWD; LVID: VID; LTID: TID; BEGIN SYSCOM^.IORSLT := INOERROR; WF LKIND = UNTYPEDFILE THEN LKIND := DATAFILE; LINX := ENTERTEMP(LTID,LSEGS,LKIND,LDIR); IF (LINX > 0) AND (LKIND = TEXITH F DO IF FISOPEN THEN SYSCOM^.IORSLT := INOTCLOSED ELSE IF SCANTITLE(FTITLE,LVID,LTID,LSEGS,LKIND) THEN BEGIN TFILE) THEN WITH LDIR^[LINX] DO BEGIN IF ODD(DLASTBLK-DFIRSTBLK) THEN DLASTBLK := DLASTBLK-1; IF D(*GOT AN OK TITLE*) IF ORD(FOPENOLD) > 1 THEN (*OLD CODE SPECIAL CASE*) FOPENOLD := (ORD(FOPENOLD) = 2) OR (ORD(FOPENOLDLASTBLK-DFIRSTBLK < 4 THEN BEGIN DELENTRY(LINX,LDIR); LINX := 0 END END; IF LINX = 0 THEN