IMD 1.17: 24/11/2010 19:22:37 06 pascal 1.5  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,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 PASCAL S*ƿZ& SYSTEM.FILERlQ&+SYSTEM.CHARSETlQ+pSYSTEM.COMPILERQpSYSTEM.LIBRARYlQ SYSTEM.PASCALlQ SYSTEM.LINKERlQ SYSTEM.EDITORlQ SYSTEM.PDP-11lQ H.TEXT.WRK.TEXT  H.CODE.WRK.CODE  JUNK1.TEXTr0 FILER.CODEmQ69SYSTEM.WRK.CODE*r= FILEHAND   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 ?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGO<`>aP file name P scan string P volume name P- Illegal formatP - char. mat???tJantFebtMartAprtMaytJuntJultAugt Sepx >PNo directory on volumeP File foundPVolume already on linePOutput file fullPWorkfile alreadt Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYSTy savedPNo workfile to savePZá TextP CodePP file lost [P3Dangerous! Suggest EM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;Vusing ? on wildcards to same volSd.02468:<>@BD "$&(*,.02468:<>@BDFHJLNx^`~vnOKŦ((89bتP&R ParVXZ\^`bnprtvy{|~gS7 "$&(*,.046&ity (CRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost int ˡȡ"ۂaۂzȄ ۂۂaA** 8 ؾȡق š dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 Fil* &) $ ۪#  á10  ڡ,-er error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PSá -ˡ ڡ4Put  : in unit !Put in :áPunRPPblkd volXP File name YPEFile or vol nameP- V&(ڡ-l ضض˄:á ; /  ^ ȡز)(ئ(ȡb)ɡ))$ á)*..BACKP@ ERemove ..BACK ? Y áRR4= á? áˡ}:ئiɡ ...too long <ٹ@AB3ءWorkfile cleared&66&..TEXTText H andɡá   DC)Ҫ,,)ҾɡҦ Code ..CODE2&,YáGetHR?.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áFC6VO C6?5r4tCO:!(ҦȄ0%?ȡҦÄ< &8<. . ڪf ~ ȡ~~f ҦҾ ҦK)$vn~ŪO=?8*vn78Ä&KfvnšfSvfn-K:!(: )K:!(" Ҧd:T ݪ(á6ڡ%: P 01C- 1C - Ȅ- *ݡ what file what vol ? & Ҿ ҦDŧ- O:!(:9:  ? [ Workfile is . . not named43 (not saved) No workfile& ,,Xá:N,7,Pá/ , 0,1C :: .&&Y,430Throw away current workfile ?  ,ء,Yá4'*SY:,$(,N Ҧ)ˡ:۲) áڲ) STEM.WRK.TEXTPRR3'*SYSTEM.WRK.CODEPRR43,*SYSTEM.LST.TEXTPRWR e8  e changed to VeVn d T $HR"6Z:e8  é+Ɓ+ transferred to Ɓ+ Ɓ+:Ɓ+'Ɓ+,Xˡ؍ءҦҦfv"4QUZ$Remove@RP8 TSRemove S~9l?R6ڍڡҦҦ#,>B{(~!تSave as ~U$:-S : -S  removedTTT%á(%S:tUpdate t<H%ڪ ^,Vthe  file "V^.)Woudirectory ?  YáOST 1C :ST- ȡ$SST-"TTSS1-[R"HRld you like V written to G: ?  ,,Xá$,Yá^-"2 ? : V  removed ҦҦ l{4 %á%Put in  file P%Ū#^.)G:!( SYSTEM.WRK. ':0Put destination disk in unit #0 ( X,,#'V/!$*(J '%Ҧ74 text'773code'77','-,#áضò~ؤ#,f,á#Zضò~ؤ89D?d Do you still wish to conti$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXTnue ?  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$DS76ChangeChange to what ? `TP;876/Ŧ<Ŧ7078 Transfer S7767R"쥁R2U",ç,YÍ"=778Change S776*KOO:!(7R" R!r~]́+Ɓ+Possibly destroy directory of Ɓ+ %Ɓ+: ? )Ɓ+ Yˡ J ,Xˡ,ç,YÍ-Y-- ?Y-- "-!ؓcZ#XdÄ22 Z㧁YÄ7š2T"çTÄAT57Z R2U : changed to ?:~Y??ZYÄ??Z?o:8PZ:" "I7ń m d!nnòCń!C"n WOld code removed, R4Text file saved 43 & 3)CODE(3Code file savedʁ6  in largest area6 " 77(Ynj+?-0%3&6 $6MakeHR(,˧,Y˄,Xá6\R"Icb^RVolumes on-line:0 0ȡk~0٦S0 ٲ? *  #   "0?:V made66Ҧ )Prefix titles by6V/;?:00 Prefix is - ;:/%Bad blocks scan of$P0&" Prefix is ;:&Z*ض7%Íy7<ا9$&(+%7/:TS~0́SʁȡP0Sˡ4TTBlock S  is badSST  bad 'ء$6%$/:ا6 $87؄877,ٕڶ6šڸ6šC5blocks{ 0% Zero dir of$P0&"-ˡ2Destroy ?: ?  Y54< UNUSED >    ,b-69#TáWriting&.TT-SDuplicate dir ?  ,,Yá ,XáN,-ˡg- ħ- 'ȄR-  blocks ?  ,,Xá,Yá- ,YˡD# of blocks ?  ɡ Bad # blocksNew-آ  آá  أ  ILLEGALPpBad diskPuCodefilePeTextfile vol name ? P :á ō6y  C PUInfofilePEDatafileP5GraffileP%FotofilePwi[M?1# ,.Ɓ. : correct ?  Yá+0": zeroed @17776T7Dir 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 ɄCS7;?V7?.V7G;^V&4TEXT(43Y*..CODEPR:, ʁ3 : blocks used, ʁ5  unusedء+,  M(.4%Crunch P Are you sure:. you want to crunch ?: ? @~8(88(88(88(8  >> BB~~BB~>BBBBB>~>~~ Yˡ:-  ȡ-ؤ - ńMoving  SYSTEM.PASCAL??>>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<3ńz?  SSȡ+SAĥSZȄSSAaSS?S SȡtS?CSS- ܕۧUšUš܂܂ۂ ȡf02ڂ"ˡERead error, rel  ,S3C7SzS 0SScȫ77C S?-00á- C0- New da abs  5܂܂ۂ ȡf02ڂ"ˡEWrite error, rel ݕ , abste is C -tC-C  .2%Examine blocks on P  5ۂáݚނ0-? : crunchedߡ Please re-bootBlock number-range ?   1  ɡۀɡ ܫSSܧ- :lWb|l5'5),, á%$&,Qás065ҦFOFilɡ#Risk the dir ?  YˡT- ̂Tʂȡ-T ̂ʂʂĄbؓ%File(s) endangered:er: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [F.5]P6,?áXFOFiler: B(ad-blks, E(xt-dir, K(rnch, M ʂʂ ʂ TTء&Try to fix them ?  YˡܫT̂TʂȡBlock (ake, P(refix, V(ols, X(amine, Z(ero [F.5]P6,x55FP,a++ !|5$!5T 0ƁTƁ0ƁT"á 0T"Ɓ  may be ok* is bad 55$!^*ZV)R/N0J1F4B5>2:BZ2Xj i"}:sH rlr(HR@0H" TɡTTšTTTɡá5Block   is still badLBlocks   thr~n  6H>~!$%$&(>( +l)x++,-.(/8.10 34H4x448(:4v;;*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8 SܲoS0ܲoSSS- T٧-T ɡTTT-#0-  markedD ~8(8``0    EKCommand: E(dit, R(un, F(ile, C(ompile, X(ecute, D(ebug, I(nit, H(alt [I.4a]P')%$x<@\B|:FBF:BBBB>xx > پšh ٲ? * 4ٲ; P ^^^Sˍ^S^^ؚ^E.(ǐȄ Xá 1X X XڂڕnK*ZҦ:j**J**Km}?}0ڕǴ <<<<Line U , error  :.1( (continue), (terminatB<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~ 0``x@@@@@x>E8},`&0#!} ` ?  E U }      } 0 <@\B|:FBF:BBBB>xx >  H12@vC COMPILER >*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8 PASCALCOCOMPINITDECLARATBODYPARTWRITELINUNITPART ~8(8``0 > BB~~BB~>BBBBB>~>~~>>"rBB^@?BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB< .á .CODE:98:9 |ؚ7؞áeá ؞á٢ؚ٢ ؚآ آ< bUU.2.UT2áb6>v IJ/}*á*<U >(+áX ááP P %VV.á =á '((') ڿڞڂ0$áˡ,Í +۹Hš   =>) )=á   {  "$&(*,.)P +ë/+ë1+-Í+ë,(*á( $ ǖ V"ˡ-V2468:<G3 UWY[]_aceg npsuwy{}*)5(.TEXT-"ˡǓ$,X+S(S +-Í%+ë((~*SYSTEM.LST.TEXT(~/á á ǐ"  6ٟˡإá؟"ë( -ë.~ z+ë0s-ë"l+ë'e+-Í-ë00,1#(. -CU&x]\ Y؟"ġ>|ڟˡ(áڣb 2g2ChF4D(xrmhc,ˡ áá)}Í/1.:<Jy$^:,+,CEBAښá !ڧ8áˡ < ++ á !+'á,'ˡ++%++á %Q---+-+ ڟˡá 8Ä   ڳCTA w2e), E(dit EÍeÍ^ÍEeÍ ^S ǐÍ ^ .<U >QZ   '09ō.á:.ˡ0 09ȄáRo X#K-áSˡ#-á.Sˡ##'S*)X#.$*VSˡEáP -á  +á09Ȅɡáȡ<  V$(S,+X$#SˡǑá #áSS:%DJ 0+*傾0 ń  傾0 #ثە$ġ  ȡ6á~U ~ ~Z ~~~V ~ XdšdXڞá' š~  ؚ 悾0šؚ0ە ȡ  傾0ڞ ~d66S6Xń.~>>>>>> Error # ~6 ~)l|ڟá ġ 傾0ڕ$ ȡ 傾0 á $ $$  ááإj$áá :إF0á5á.ާ ޢإ jˡ(UU T TWW )*L~.U  linesWšP   ޚ á۟ڟÍáG Gˡ , W<  secs, WU  lines/min.BSmallest available space = Ä ޓ%  GG߫GÄ R  words ̄ʄȡL̄̄ʄȡ4L̄̄ʄȡdݟܟ˄ބݟÄܟÄÄÄ#`!%á ̄ʄȡL̄ʄȡLP̄ʄȡ̟ˡ ̧(̄á ,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آPE w w%á:á8% ާ3 ޢޢ ǂإ (ç`á  á*LYH ZL!L LNN Há>D. ˡgá áVާ:áá ᚹ2ާ9&á ᚹi#  LáZ^FƂ~ƃƂ.ƃZƂVƃƁƃ( W k_   EWRITE ЩCLOSE Щ SEEK Щ!RESET Щ"GET Щ#PUT Щ$SCAN ASCAL compiler [I.5] (Unit Compiler)< 0>|؟آآآ(R  "=OkkۦINTEGER Щۢ ۢ  ۦREAL Щۢ :ۢ  ۦCHAR Щۢ 8ۢ  ۦBOOLEAN Щۢ%BLOCKREAЩ&BLOCKWRIЩ'TRUNC Щ(PAGE Щ)SIZEOF Щ*STR Щ+ 7ۢ  ۦSTRING Щۢ 3ۢ  ۦTEXT Щۢ 6ۢ  ۦINTERACTЩۢ 4ۢ ? GOTOXY Щ+̀ʀȡ{'ٳ %`ٳڡ  ̀ʀʀʀ ڡ ʀʀʀ?ۦINPUT Щۢ 6ۢۢۢ? > >ۦOUTPUT Щۢ 6ۢۢۢ>  ۦKEYBOARDЩۢ 6ۢʀٚ b ODD ЩCHR ЩMEMAVAILЩROUND ЩSۢ ȡN ܢ 7áܦFALSE ЩܦTRUE Щܢؚܢښܢ 7ٚ ۦNIL IN ЩCOS ЩLOG ЩATAN Щ LN Щ EXP Щ SQRT  Щۢ 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 .[ ȡ  %P    خ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 á " ٟáǞ ew H|؟آآآ ==آآئPROGRAM Щآ آآآآآآآآ +:˄5á:á33R,á'6H(#":<> 3 آ"!á^ áL=ˡ ==   á (ká  á  K L Lآآ N˄˄0  ˡS>á+ 8H6ˡǐ #;آ=آ آHآZآآKi | J H .[ ȡ  %P=? E.dˡhP &ǐ G(á%2H!ˡ"g 0ASCAL compiler [I.5] (Unit Compiler)< 0>|؟آآآ(R  "=Okk 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 Í Ä  îá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 %Xá   ˡ} } FM?M8ˡ 8ˡǏ  M (_83 6,ڧ:  : 3C Ä +&Pˡ ݕˡǎ ګ1á&ág ڟˡˡ ˡ} á  )á á á}  }  ˡ 8ˡ} á   ˡǎ ǚ  ǎ ٟˡˡá  ٟˡ~ ޣ áޣáV!7ޣ ޣ ÄO"á     ˡˡ}  ˡǏ á  ޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ Mޣ ޣ 4ޣ áBޣ %ޣ HáNޣ ޣ áOޣ ˡǢ WˡQ ا:Íǟ < -؟ˡ á t ޮ < á  " ˡ} á   ˡ} %áM,!á  á á    á áá{  ˡ."ع0sokgc_[W S!O"KG +@7575 799;á`  !á = ؟ˡ4أ á'أ أ أ ! أ } } n9E"$&EC,GIGEG8SIGi٣á٣ á%٣  2H٣ ٣ ٣ á'٣  6H٣ ٣ ˡ} á  á  " ˡ} á' á" ˡ} á J#?ö={ ˡ(á!8á " á   ˄ٮ#"ág ˡ[  ˡ}  á 8خ2خ"ɡٮ M K: <9  )8 M M} ,˫  áٮ#MM2خ˫  ɡ  šث  3 ٚ t á +ˡ/, $>ö;{R ˡ(á!8á " á ˄ۮ#&؟   >á  á    ˡ ˡ} M+ ܟ˄'(Ä?ܧ::Ä/Ä   dž 'ܧ:á   Má   á  á :Ä dž v(ÄÄ  dž FÄ dž -ܧ77Ä dž   ˡ ˡ} á   ˡ ˡ}  "ˡ ˡ 'rD0 $R* (ç`  *. á":áá dž} ˡ!áM )  ÍM,á :ˡ!:áá }  (á  * ܟ˄'(Ä?ܧ::Ä/Ä 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, ).ޣ  ޣ á(ޣ ޣ ˄ޣ (DSt&أ áأ á t ݳ͐oȄ   ޡ 䔜ߡlj ˫  á  ߡ,Q" ݳ}ݹ$%ޡ2 ˡˡ} 8ÄǏ ?#áM M 7QQ QQQj0b "$&(*,.02468:<>@BDFtˡáás ˡ ġ} ˡá:á} ˡá:á} dPRTVXZ\^`M c -&$d++'á   ǁ 7 j@@خá ˡ ō  á 8 ؟ˡç0 8߮ 6 šá40Ǒ 7 @ ! á 6 ˡ ȡ ٟ˄á:  :9 á9ˡ ǁ 9ޡJ8Ä36ˡ- - á9߮  ] 5á{   DBخˡxál  8˄Pˡǁ ٫٫ a0 d YSCޡ*٣)(ɡ_ |á|ۢۢۢ+8|ۢۢ š nj ˫  '( ǒ IkMI\=#ǁ 3   .1 #áP|ڤˡ|ڤ؟ٓá 6 -ڕ ٕ  6II#á[|ݤˡ|ݤޟˡ# áǥ á 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ˡǨ ⧁ šߤ á     ؕ    ٟ$; ڟ˶zbڧ:˄2 ġ%ɡ܂5á+á$ [ [ ,á á    ߚ ɡ۸ ik3T@š  ڢ ڢڢڢ ޟˡ1ȡ$ާ:á m á Ǖ ޚq ˫  á   á / ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢ  ˡ ál "ȡ  ˡ9  Z H --L PPZPF@Q77  <.VV B ٢٢٢ á   ٢ ٢٢٢2 2 á!   áXRBvd `!""|##$h%(&&*'((( , -../|-$///4001182j2n 7  á  |ڟˡ   áU  ˡ8ȡ,: m   ء n     2 M%Há;ڟˡڣ ġ ڣ áV' áA-á۶|ܟˡ   ł á       ˡ o    `mˡǨ ⧁ šߤ á     ؕ  ٢٢ ٢٢    ˫  á  á  á (  š s s sá |ˡ  á2  ߚ öń ˡ%      ł  á%    ˫    " " ˡߢ á  á  ád   Í kk    áá>  ǔ á   ߢ ˡk ߧ3Äg  á4  ߚ      ˫  á   ō P Pˡ ߧ3  á  váqáW ߧ9  á$ˡ ál ˡ áá&     ޟˡ    á  á ǿ ߟˡkߢ  ǔ ޚá؟*/1-" h   آآ ái2 2 á)  إآ   á   ߢ ˡk ߟˡ/á&ˡ :áǏ š f ߚ آ<آ <$ ˡ ˧   l   o o os    79 Hˡǽ  ؓ)#;ؓ˄ #+;́ʁˡʁ ʁ́Ǽ  . ˫   áJ á<    ˡááy  ȡ 䏂  á ء"ƁTURTLE Щ́́ƁZƁ [(  words]<U >( (  ߟˡ  ˡ á( @ ! á+ ́ ÝƁ ʁaƁ ʁ́ʁƁʁ;ʁ ʁ& ʁʁʁ ʁ;'S & ʁ ʁ   آˡZޚˡ@á -á&ȡY&ؓ ˫ ˡ  ؍ؓá  ʁʁƁ#;.ce2 #áS|  ޚٟl ء@- Ǐ POY Y  Ǐ  ؟ٓˡ Ǧ ٓۧۢۢڢؚ      ˫   V%á#R| ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ ޓáá   ˡ  á ۥۢ ۢۢ )ç Ä   "HY# Y#$$ ȡ ǎ   ߟá-á  ɡ |  ł   آ ٚآá%   ç  ˡ  á |ߚ á  *á  á   ߟˡ%Íߧ:Í s  ߧ:ár  ݥݢ ݢ )ç Ä   ڢ ۚ<ٟˡ)گ ٧<ˡآ<á% ߚߟˡ% š ǩ \.áW ǿ    á    ç <ˡu <{ áM  ݥݢٚݢݢ ݢHߚߟˡ ,(  ٟá138:+ @ٟ٥ ݢݢ   [ [ ˫  á  [-L٣ ë&&٣ YL٣ -7."ˡ ǻ .ˡ ǻ ٟˡ<ݢ ۚݢ܂ á۟ˡáݢ||ؚá%   ç 9"ڤ "ڤ ~-rڤbڤë&&]OOO[<ˡu <OS ^   áw  @ !Oš Lۢۢ"ڤۢ ۢbڤۢ YǾ á #*X)S'S @á  ˡ =  ߚáH    [(  words]<U >Z--L)5á+ á  ةȡ      áأ ` أ  أ      #ܢ"çBޡǡ ܢ"á á    @ߡ           ȡ   á     N " LL L H ZءY &"    .$ z|ġ  ˡˡ$&LIx -Ǐ $|@#-HçO Ä # 1á  á&Ǻ    á  á  áMڟˡȡ𥀰ܤˡܹx FSEEK Щw FREADREAЩc FWRITEREЩO FREADDECЩ; FWR HáMC # !á ǹ ˧#.$ݍ2ITEDEЩ ' DECOPS Щ m[I7%ȡ  !!    ܤ k   _N2 fn Dh n<4  @ߡ ܤ   ܤȡ      *ء)3;GF&: N " LL L H ZءY &"    .$ z|ġ  ˡˡ$&LIx -Ǐ $|@#-HçO Ä # 1á  á&Ǻ    á  á  á*SYSTEM.INFO[*]"ˡǒ .Ƕ - Ǐ PH Z Y LOOOOš Y$š&ˡ 2%ç$Ä$ȡW$ɡǀ% ȡ%٧& ˡ T@ݟޓݥ e ޓ*  @ݫ@L؞ &LOš OOLYǕá YYá l۟ˡJá5á  š á& ܧ$ɡ ګ ȡ l ڣá  š ܣ ˡܣ YؓǏ   BH Z ܣ ZHɡHH  ɡ. |á ڣ ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ!   ޡ áޓܢۚo ޓܢۚáP á4ޡz  ܢ ݚݟˡ! "ڣ!  ! ١qˡAۣá "ۣáȡ  x ܢ   ޓ{ á  ܢ 5ç#&HˡǷ #Ǹ  `  ڣ 0 YV@B.١LáöÍ١ 2ˡ !! L LL 3á   R4ˡ _  .áCڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓ $š&$ˡǒ )Lݢݢ! á   ˡá  Lɡ ؼ݀$ ؼݞ$ۡܡ ؼ* Jɍ -    HZY L L!DV`f@ݫ@L؞ &L$ $ ݞ$' ݑ$ $݂ō $݂ġ  L H ɡ- |ݟˡ   á  ; .%$6á!  ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ>2ˡ !! L LL 3á   R4ˡ _    Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  0^  PASCALIOMOVETO DECOPS  0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *  á  +-Í- z,  0 sġؕؕġ#˄˄ DCOPYRIGHT (C) 1978 REGENTS OF THE UNIVERSITY OF CALIFORNIA SAN DIEGO:k(0Rb ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݢ ݣÄɡ3ڕġ$ڕšš"š 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *ޣ Ą ޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ á  +-Í- z,  0"ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ E / x sġؕؕġ#˄˄  L H ɡ- |ݟˡ   á  ; .%$6á! á +-Í-ڲzؼ 0 @xnpdTTTTTe@ ~B&&ffz&&ffzPSMATP MATP PSYPOS YPOS MOVETO PSXPOS XPOS GMOVETO & &f"f z&& f2f0zzzz&&ffz&&ffz& &f&f$z&& f6f4zzzzPSBUFP BUFP JUNK NK DRWLIN WLIN PSYPOS OS FSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE FWRITERE &&f fz&&ffz& &f*f(z&& f:f8zzzz &&ff z&&ffFWRITEDE  FWRITEDE  DECOPS hmrv  & *z& &f.f,z&& f>f<zzzz &&ffz&&ffz&&f"f z&&f2f0zzz á  +-Í- z,  0z&&ffz&&ffz&&f&f$z&&f6f4zzzz&&f fz&&ff sġؕؕġ#˄˄ z&&f*f(z&&f:f8zzzz&&ff z&&ffz&&f.f,z&&f>f<zzf&& ff z&&f fz&.&,ffz&>&<zzz&&ff z&&f fz&"& ffzz&"& ffz&&&$ffz&*&(f"f z&.&,f2f0zzzz "&"& ffz&&&$fz&2&0zzzffz f&&ff z&&f fz&&&$ffz&6&4zzzffz Fefz&*&(f&f$z&.&,f6f4zzzz$&&"& f fz&&&$ffz&*&(f*f(z&.&,f:f8z Hf& @UzN A f C W v    fztfzzz(*&"& ff z&&&$ffz&*&(f.f,z&.&,f>f<zzzz,.&2&0ffz&6&4fff f fff NmxNNf Fe HDjhJH2(~fz&:&8f"f z&>&<f2f0zzzz02&2&0ffz&6&4ffz&:&8f&f$z&>&<f6f4 `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m-  zzzz46&2&0f fz&6&4ffz&:&8f*f(z&>&<f:f8zzzz8:&2&0ff z&6&4` ~ m- ` ~-     5 ffz&:&8f.f,z&>&<f>f<zzzz<>e@ Hv`*&(f*f(z&.&,f:f8z \j \  @ zzz(*&"& ff z&&&$ffz&*&(f.f,z&.&,f>f<zzzz,.&2&0ffz&6&4f   D~-w: F~  & ~ &B|vwxCxp%\% ~T P TJFLB>@0 4$ -$$      `T\6fpPASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD  X w!     a ~E _ jJ  b ~^T    ~PN<$`h d ~~.,$`  ~~ 727& a " B ` $$~_ " ˕͕07 7   .͕- ͕0 ~FZ  F>COPYRIGHT (C) 1978 REGENTS OF UNIVERSITY OF CALIFORNIA, I.I.S.LINETO PSXPOS ~OS GMOVETO OVETO GLINETO DRAWLINE DRWLIN  b jv#"-      E~"& f V7 d wlj  XPSMATP TP CONCAT CONCAT V X R ͕0B ͕0~. _ ``f~ 6  _ ;NJ#&;KLZz2w&7$" G8  J~4 f~  w* ~ ~_ @" R~_DqPH>RHDF& a " _B B`A b eE~ QB  b B~  `7 x [l a " ` b R H B ` $$~_  ˕͕07 7   .͕- ͕0 ~F  FHH~~` H~HhHh~~ e_:8 F  F   C~  #"-      E~& f 7 d w  _%_  77  &   ~  ~k aB  B  ~ `X`7DECOPS DECOPS GDEC GDEC & 7 7 7 7a E  Da7 | D7pqmha L Ha B~N0e:!~F  (&   _d 7w   aw w  D 7Da7 ˡ.ˡ tš tJ&$>&:!F:F Fˡ FF 넡, ~ ,Í1~ š˄  `" RJ'Jɡšɡš  P&:*: (  d˯7 H ȡ   azȄaA:) Type : to continue) & XÍ 0 H" ġ  *@#ٕš ګ۫ š۫ ګfn(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22š*á ?,.   ȡQɫ  ȡ .  .ȡ? ȡ:22ȡá;2á!2ȡ5252š[22š2222ȡ  ġ  á ġMáš3 삫 d #(2š5252á4x4]11á4^1šX42233z 3042221ç4 - Íáɡ 럚肚Z 2ç1Ä2*á444ńi55P.TEXTF.CODE4.INFO".GRAF ū  < áš < c@B B Ä $.FOTO!~áë ::  B B >Ä /  !š Íá)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 ˡ!  ,ȫ,  á -Ä+  ɡ"á M B "ˡ >"ˡáˡ á uá%  g>@ << Ȅ 隹Já-Ä  >  |á6铡,B BB/"ˡ ( ! 767  á1 š0    šš&@B>l 9S328˄ šá  d</ dÍÍ邚邫镫ë퓡e @B "ˡ ɡB  B "ˡc >ˡ 퓄 Ä퓡  dÄÍ" á1 á(á" >"ˡ  *Qv ˄"ɡ  dá dá C#C˄ C      Q š *š á&á ~ -/18      4V j ɡ 逫-á-32768 Rġ?o00ń0ˡ  šˡ 쓄 Ä쓡t š  oɡa Mȡ龫š 龕龫!낾 ɍL "ˡ+ˡ d 0/š  2 dá3á+  á.Ą ɡ 낫š ꓡ0š땫ĚJ T p?š !삾 0 Vá삫Ú š ^ "á50 " *áá0á  7ÄT ǐɄ96ń~66! á  ɚ j šš  á~ 횧 :˄˥ń á   uš  gš  šš!B>邚邫镫ë퓡Q @B "ˡ Unknown run-time error(Value range error(No proc in seg-table(Exit from uncalled proc(Stack ove   ̆%ʆ%ȡƂ  ~GRAPHIC :.8ǀ ?̆%ʆ%+-Í-ëzX 0á%+á zrflow(Integer overflow(Divide by zero(NIL pointer reference(Program interrupted by user(Syste nQ  꾂ȡ龞꾂(ń꾂Ȅ4š뾂m IO error( unknown cause( parity (CRC)(illegal unit #(illegal IO request(data-com timeout(á뾞뾂NPńȄ.ń0á vol went off-line(file lost in dir( bad file name(no room on vol( vol not found(file not fo肂蕿BšT뾕ȡ4 š킥뾞und( dup dir entry(jfile already open(Q file not open(<bad input format($F4 w <X hE6!~?7FPut in :P?FP'Ǡá,EEE  dM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HA  "$E ##&Eá *6*6ˡ6á  .rLT(DProgrammed break-point(&A fE0lWBS#  z42lRNj V"j 4F Z pz`0ń0á , P#  , I#  |Dj, vol not found(file not fo肂蕿BšT뾕ȡ4 š킥뾞*ƁV`tDtD Doo odoo'źʁʁʁ8FNo user programP8F. file P%Ū#^.)*SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDtG:!( SYSTEM.WRK. $*(J 'D **wn  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM?%Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4??~?á';??ٟá'C &"á~PRINTER&"á~REMO(RWtn dTEXT-&..TEXTe&4+..CODEƶTEƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ  ̆%ʆ%ȡ C-C System re-initialized N  anFebMar.:áá  6   FJCommand: E(dit, R(un, F(ile, ܪP//ˡU*SYSTEM.STARTUPپ٢*>ؾآ$š$ɡ%ˡ8*SYSTEM.WRK.LIST L܏áJܚޓݓȄ,تP!RتPR"á XȄLۂˡޓ'Lۂڕ Lڂ ޓjLۂ ٶ&Ʉ+ ۾ȡ܂ ˡ ܂0' X۪177777 h 1Ä@@   : PړȄؤáڡؤ Brkpnt not active) ȡؤȄ.₾₾0  ႚ Bad numberU   x "S(et or C(lear breakpointSsÍ! CcÍ"F Proc: Offset:   Length: n _ Proc: G  U  Seg: ؂ܫݫ Proc not found #01  Seg:  Proc not found áqá#Only traverse UP static linksG˄"0ç0Í'Hit [space] when ready)*j$$١á <>?EXAMINE: áTop of link chainˡ rá5ٕȡBottom of link chain8 1..9 (links, M(ove, <, >, L(ink, D(ata, S(tack, H(eap,HE(rase, U(pdate, , , C(rawl, W(alk, ˄áTop of link chain:  áۂ R(esume,  Hڳ !ڳ<1SPڹ > <ġ Warning - offset too large'ۂšWarning - length too large ȡ\ ޻ݿ0 ( á Static  DynamicDelay: @@ٚData  ߢ    ؚ*n  áۂ~ zvj#f_,WX $(*,R`@68<>@TFH ġ Warning - offset too large%ۂšWarning - length too large ȡW ޻ݿJLjtVvá %h  *Má  *8á" á "* Not a cٚStack  ٤  ؚ*i Octal address:  ommandء%  [sp] or 'Q')Qá4% ȡǰȡ ! Proc not found0Heap  F .*Length: r ȡU ܏Heap  "á 7"Z ˶ ڦ ˶ ۄpܲy#ھɡھھܿ6ܶVá,>ߚ*h "ȡ* % <ړȄؤáݢ ݢھۡۓ Bad numberھń͞ ۦ32767 Bad number.ڡ2Set breakpoint at line:  ؤٚ All brkpnts in useHp ~!Clear breakpoint at line ( :&á#á%&.'ثDث  ˄ " ۂ"šȡ)ޢڿٻޢ"ȡW (*PASCAL INTERACTIVE DEBUGGER - Jan 23, 1978*SYSTEM.LST.TEXT"ˡ $F& FHLُáwL$L تP%Type (continue), (terminate)++á+ á PT lڂLؑ L $$$޸D  ȡ٤ڂ؂ڿ؂٢٢ٟáٚUۢ٢  !ۢ٢  D%B"% ȡ*hz$):I'm awfully sorry, b ٚ۟áڟˡܡڢٚڢٚT xݟˡ2ݢܱ !ݢܵ ˡ:ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break]  HܟˡCܢȡ'ޢ@ۯ ޢá8Unit  not foundinvalid while EXAMINING)% D%',*"'' ~j ȡ$ / @   b2:J> F   tf.VJp4HT* ȡ٤تPڹWs/cK/X#/M/B/7/,/![/^ULC:1(/D%B"% ȡ*hz$):I'm awfully sorry, b"ˡ/ in workspace.CODEP/"ˡ!No file Pˡ Opening ut I've discovered an error in myself.Z*Ɓ:á)(áV;[Break] 000/0ٚ/0ˡsegtbl read err.1-á220313.Ä13.invalid while EXAMINING)% D%',*"'' 3.˄'3.ˍfunny code seg3.3.ɍ3.,ō bad diskinfo3$SYSTEMLELINKER .2 bad seg kind3@.  bad seg name-š....š1ÄAll segs linked ˡTáno room in seginfo6  ٚۢۢۢ~ non-alpha named missing procٟˡaáUá ؟ˡ%áá ٢ ؚ٢ō too many refs bad formatáō bad privateáٮǠōɍá ٢ iF xڟˡ0ٟˡٚښ7B!۶ˡ` ō bad globdefō bad publicdefc٢٢Ǡōɍdō bad proc/func#ábá& ɡ>ڟá0ˡ"ڟˡˡá ڟáٟá ضؚؚ-á0(` 4ȡ  Linker [I.5]E˫Z&:sWY[]) D́ʁ́ʁʁ+Reading ʁ@( in workspace(*SYSTEM.LIBRARY Host file? (=&: ˡ bad litype fHš   ۢ۟ˡ( in workspace(šȡW Lib file? (+**SYSTEM.Lá1á)Ȅ   bad host LCá ܢ ٢ám6 F؟ˡIBRARY Map name? ((.á .TEXT(۫۟áآō bad proc #ڶ˶˄disagreeing p #Hd!J ȡۢÄ ڢڢڢٕۢȍ` ōproc place err `  (ǐɡ sep soˡ bad host segˡ dup host segګ Láڢ ڢګ3áۢ@ڢ  ww{/eg 2 big ȡˡsep seg read err3 Ǡō bad proc dictJá ښ ȡ á  á wierd hostDRM] !}   #ȡ ˡl N^ K D8 h۟ˡTȡ=ۢá'ڢۚڢڢڢڢګٟˡ٢٫ǀ%   V0ZIڡٟˡ@ á ٟˡ yj  >`  ( # ššš` á6 šNY؟ˡYD٢ؚ٢٢٢٢  ٢ Ǡ ٢ أǠٶٸ١ li read err ١آj ٟˡgˡb٢f؟ˡWBأá9٢ؚ٢٢٢٢ ٢ Ǡٶ ٸ ٸ  á,R b#؟ˡ5%%%"٢ؚ٢٢٢ٶٸB%    ڶڶ,ɡ  * á' ˡø  #ڢ욥    ˡ+  ؟ˡ`#   3ضˡcode write err  @ %  ٟˡ ٢ ؟ˡ 8# 4o(ǐɡ no mem roF؂+  Seg #    ,  Fomȡ  ܶˡ seg read err  ؟ˡ Sep procs ؟ˡ    á  proc  func  # ڕڕ ڕ ˡ1šٶەەڞ 3 '   base =   leng =   ȡ١-؟ˡ!  Sep pr "    ޟˡ á ڂُȡ size oflowoc refs ,؟ˡ"  Local seg refs ؟ˡ    public LC =o8l"ˡ!ݢ ˡݢݢˡݢݢݢ  ˡݢ'Ǡ ޟˡP ؚá5ǠǠšproc num oflowǠޢ Ǡݶݢ ! áݢ ˡ á  ۡ*Proc  param mismatch !áݢ ˡo &!(ǐɡ out of memȡ á  ۡ*Func  param mismatchM áݢݢ  unit err#1T4ˡsep seg read errظW)  ݟˡ  ˡ)G Copying  P  áUGlobal dPublic RConst AProc 1Func proc func    ˡ!\L> 5'=/ undefined˄"ܚJ# X ؟ˡ$$ ٕ! (ٟˡ   áá  8$آߣޟˡš ޢ? ɡ Ppr!!"ˡ+ Can't open (UƁ Link map for ˡƁ FƁ Ɓ assem hostƁ  V<0* EDITOR  Ɓ  #̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write erráe INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[ƀƀƀƀƁ#ƁKƁs0C` 2ffN. L> Ppr!!ɡ š   ؂&!!~""J#`#t###Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write erráeڂ ڂڥ å ˄  ˥ ۂܥ & N3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  P3ع >ڤ ڳ Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[ƀ*  ܪP    const val =   privat LC =   unit seg# =  ] glob dƀƀƀƁ#ƁKƁs0C` 2ffN. L> Ppr!!ef in    @   g O   4&HP#Z-̂MʂMȡ" ˥ ˄,ˡ,3 ˡCode write erráe- M Linking F #  á&-(*3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ Ɓ  P3*+   !,Ɓ ƂL- Output file?  ' 3*SYSTEM.WRK.CODE[*Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁsƂ &3[ƀ  :P!:ˡإؕ` ܕ"܂"ܕ"܂" " " "á"   á*٪P&áERROR: á;"-á" á".á" ç" Äە߂ŧȍ4" á"& Please press to continue. á%R"ۂ;"ۂáݧ"ۂ "ۂ܂ "" "˧""ۂ"ߞ"܂ "ۂ"܂ߞ" áE" á ܕcX f#ۥ ۧ "ۂ ٧ "ۂá 6" ç"Í "߂ " á߂߂ڧ܂ ܂""܂"ڞ"ڂ ˡ !UقاۧčD^ " á "܂ ܂ r !٪P% what marker? -P,-V,Vȡ-,-áŧ#ؓɍš # ٚ#áء # g# "݂ ݂ܧɡ, ,,-- -- E "ƁƂ *% š "݂ ݂٧ەݕ >^/š  á  á  á :ƁU=R z& F V v 6 R p  v & " 0ۍۡRepeatfactor > 10,000 ^" á " D" 6" ç"Í "߂ " á߂߂ڧ܂ ܂""܂"Bڕ šjܦKThere is no room to copy the deletion. Do you wish to delete anyway? (y/n)P r !٪P% what marker? -P,-V,Vȡ-,- Yá-ڕ" "ڂ " ܧٕ ", ,,-- -- E "ƁƂ *% šݞ"݂ ˡ!U܂ZnڡE١ *$7ۥ>%&  :ؓڹܢ>ܢHܢ@ܢHܢ@ܢH اۧč*hȡ' ڤġ ڤ ڤ؂ħɄ ؂ܢFܢHmܢFܢHYܢBܢHE =ܢDܢH+ܢBܢHscQ?9@@%ٕȡ R#ȡ J \ ګ" !ء?ȧ" " á   ˧Í " >!# ))á ) & ( 'Ĵ5ʂ5ʂ5$:ˡ. Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTܓ: CC^̂5ʂ5ȡ#ܤܚAẐ5ʂ5ȡ#ܤA*SYSTEM.WRK.CODEf4Do you want to E(xit from or R(eturn to the editor?  )ٻڂۿ ; , Z :ؓڹܣ.ܢ^ ܢXܢ^ ܢRaẑ5ʂ5ȡ#ܤA09̂5ʂ5ȡ#ܤA#  #  .Ǫ P5SqimF6ZHܢ^ ܢZܢ^ ܢXܢ^ ܢVܢ^~ܢNܢ^lܢNܢ^XܢPܢ^F  ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á  ܦNot present. File? P"á"ܢPܢ^2ܢVܢ^ tdRB0 ڂۿ ٻ  @ @ ˧Í " >!# ))á ) & ( 'Ĵ5ʂ5ʂ5$: ٤ؚٳ قؚ.>Edit:Readingˡ Reading fileܓ: CC^̂5ʂ5ȡ#ܤܚAẐ5ʂ5ȡ#ܤA.5øj.5  ĸ5"aẑ5ʂ5ȡ#ܤA09̂5ʂ5ȡ#ܤA#  #  .Ǫ P5SqimF6ZH á "ˡ Disk errorBuffer overflow.7 4 ACD>Quit:P# U(pdate the workfile and leave E(xit without updatingFIJLMP 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áꥁWá)Name of output file ( to return) -->ƂPƂ>Edit:Î5Ƃ5Ƃ5:Ƃ5&Ƃ5"ˡWorkfile lost.ܦ4No workfile is preseáƂ̂.ʂ.ȡƂۂƂۂ .TEXTƂƂƂȍƂƂ.˄$Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂnt. File? ( for no file ) P P á   ̂5ʂ5ȡ ₾  .TEXT Ƃ.á ƂƂƂ*SYSTEM.WRK.TEXTPWritingƂCˡ.ɡ  ȍ .˄" ̂5Ƃ5 PƂ5.TEXTUƂ5P .á  ܦNot present. File? P"á"Z " "ۂۂۀ ˡۂ.ɡ3 "! ..ȡ ۂ ۂ ..ȡۂۂ .TEXT˲ȍ.˄"?T or F**ȡ(** TáTrue False Y ..P..TEXTU.P.á ȡPٕڂġ(Buffer overflow. #( ڳɡ ڂ0 *$  ق"ڞڂ^= ˸ .     . Environment: {options} or to leaveP % A(uto indent VĶɄ, ک߶ߤ ߤ Marker not there. F(illing  L(eft margin   R(ight margin   ٲ0ߤز+߂á f v   з   з T=ˡ P(ara margin   C(ommand ch  T(oken def   EګWriting out the fileLL+CN ˡ.ɡ з     з     Ƃ=ƃi& Copy: From what file[marker,maZ " "ۂۂۀ ˡۂ.ɡ3 "rker]? P ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  ˡ. Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTⓄ ڕɄ čⓄ% Ʉ "ˡ Disk Error.*$*SYSTEM.WRK.CODEf4Do you want to E(xit from or R(eturn to the editor?  Ƃ=Ƃ=ePXpbH  з   з T=ˡImproper marker specification. 0"" <Marker exc з     з     Ƃ=ƃi& Copy: From what file[marker,maeeds file bounds.*$ :""4[á$rker]? P ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP   Щ  Щ]ɍٲˍ.ڕ.P..P,áⓄ ڕɄ čⓄ% Ʉ "ˡ Disk Error.*$ؕ     ۂە ..ȡۂۂ   ȡ,ءTrueFalse. ڳ@" i[M=/AT(k) geQ"c&;) r ؤ*$p] $ JUMP: B(eginning E(nd M(arker P % Bá* &(.( ؤá  Date Created: +Eá*Má ا&ˡا&$ l !*$Inap - -  Last Used:  - -propriate environmentR %  ݧ áȡ. ) ٤  ) J Not option dwܦ$Marker ovflw. Which one to replace?P*$q0Set" з i[M=/AT(k) geQ"c&;) rHȡ٤ ؤ ؤاáݭ@m *  Set: E(nvironment M(arker >Ƃ ƃ7Ƃ *SYSTEM.SYNTAX"ˡ hȡ9 ~>P % EáMá ا&ˡا&r H~ *$o < ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0 eXchange: TEXT { a char} [ escapes; accepts]P % á;š3"؂0 00 : ق  قؕ؞ق ق ق   قÍ   قÄI ؕ"j á\)&" ˄D ?؂""  bytes used,   available. Patterns:1Dؕ  . Type  á   Ƃ #%d) r = '+ǀ'- , = 'kǀ'š Markerá><ġ  PH! Copy: B(uffer F(rom file P %s: ȡ7 ؤá  Date Created:  &DBá𧁱 ŧĄ Invalid copy.ġNo room" - -  Last Used:  - -"ħɄ"""" *$ Fá  ) J Not option dw D Jump to" з ]اؤ ؤ  Not there.!# "!"!"!!!*$""ɡ "٫ګ"    U ؂ \  " "!No room to insert."" v ˄+ " H Insert: Text { a char, a line} [ accepts, escapes]P %  ""  Ä!   Í ˡRšǀ5á  ǀ)&'  !!!ڶȡ5No insertion to back over.   mڶġb4Plea ÍܧÍ-ȡ   " á ĄÄ(˄se finish up the insertion   ڶ šBuffer Overflow!!!! á  Ąۄ á  q'áVȡ(" $ˡܡ    " D" #" á" á    áثri+ l "# #ڧɄګ# "tjáS(ç"ç" Íɡ'ڂ ڂ٥ ٧č>q  dġ*r" ġ""-"""" š+š  - ç<öÍ  $v á()(" 2 á(9!ɧ~ō ˄ اȧń "   "            ɡ^l  " ٧اȄ< " ٧ɡáš! á   ǀj ؂ȡ ؂ġ"  ؂š!  ؂  Ķ   "   !ŧńB)&&á!٫"؞ǀN!PšqL WARNING! You are about to zap more tV  ɡ          š   ˡ\-"han 80 chars, do you wish to zap? (y/n)P % Yˡ ! ![! ! !š"  " ٕاġ -á- ؕ  ؕ "ق"؞"؞"$ V)  =%+&'<á%&! #%%F. . / Lá .Vá . Tá . VçTÍLÍ/" á " ɡ{ " " "#<á"# !$šToo many$ġInteger Overflow>)ااɄCاá " š!Ķ  <á"#˶˄>á#"+ $   Í u #<á^ȧń8" á " ġ ø á-áá ?á-áá  |ɡȧɄ: " ɡáĸ šdħ Í J *ȡI"ڂ á-ń ۂ"ڂQ \ 9  "# #ȡ#  ; L$*+ȡˡˡȡ ȡ 4` x%*&؂ɡ"çÄ"؂ š""7d š ɡ,ń šBuffer overflow'""ˡ "؂" ٮ ݮ+,    A Delete: < > { to delet;( ! K Adjust: L(just R(just C(enter {e, to abort}P % ܧá |"# to leave}P %  á# ܧá <á"# !|$vá<>Oġ Integer Ovflw)<á"#`br á<>  اȧj$ Zá(P " ܹ0(4ڕ(&ڕpExٕ ,&˧)˄ )&)áܧÄ f ٕ ( 80$á(٧á(٧nDŽW " á (0 á܄٧ɡ""ق"ق"ٕٕ ث ٕ٫ ö(ڕ()ˡ)á۫) *'šE>á%á ݓ;z-á-á'*  &á  ö  % ǀ + š 2 á#Aáupŧ"˄ȍ!#"#" Z(ap [E.6]P % zá á gá ȥ#" #" ÄF  \6.۪PڪP.P [ }{w s okg!*$D@ 8oea_][YYYWUSQ024680 / ]: ء# áL(it T(okv9~ $ Replace' V\+z6$4#00 aborts, 'R' replaces, ' ' doesn't 9&áR˧r˄!šf!š:! COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDSçsÍ`h0/('Invalid delimiter. .(á+ۂ ńBuffer full. Aborting Replace""! !ɡ""!k"! ( ۂčġ-Your pattern is too long # 1!ˡ!! !! h:̀̀  á Find =>۶ɧ"ۂۂÄ۶d' 22"  "á083ǀ9' Replace V(fy =>9%./0ʀ +1 á./̀0ʀ k1ç ç +ٶt ġ "  ض á : ؂   " á   p  ȧل-6 ١!ނ߫! á:<á  ٓ'ńPattern not in the fileNo old p2  y 4ǀ +ڶu š" á attern. $"j%]L Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng:ض    " á   2  y 5 +   Z(ap [E.6]P % zá á gáZ7+ Ʉ #+#+ }{w s okg!*$D@ 8oea_][YYYWUSQ024680öɄ  + Ʉ á@ >@e; ˡ; X4j D ( ( 0&<Nl& Dd v 8     á78>á54z f á78   3 !!"<#>$%%4&d'f('F( )T*nv;"j%]L Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng& 7 E7 ~ "7 E7 ,tv LwU W 7 .7 , (g E@  Ձ@  a a! F@    >VE`E `E &?  w U@w& K C & ^ T7 N 6 0ՀW   `E e `&& `E e `&EՀ VEՀ w  ?  "U@  wE7 wT?  ~ V 7   ҂  V E e ` E   @ ` G7 7 `lrv~  F j n z  *   X \ r \  0 : R n  R t 2F^fz& \& \7H 7 6W ww N B  V6 Ejf  TZ`flrx~$,4<DL E7  V& EE dd`z ~ %&  '  ``@` !a !@!"`#$  z   " E  D  %    & VAA E e @`& E&  @ @f ~f{fxfufrfoflfAA E e @`&AA E e @`  `(`    P  ?ifffcf `f"]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$ _ 6_ 8/efAA"V*&'($*!eeee e  e e&    Ee7 8%N w7&  G 7w:prLwU W 7 .7 , (g E@EE7-n @$@$@$@" xE  &7 D&%% 7 &'\ &E7 5@vVq7w k7w 7 bcw ]-@U a7 '`` B  aBE B<V  wN E   U f zE z3F E@ nh f:XF?X E@F F-B7 8?2 . 7E@U@R&7 '  eN @@ >ZE L4U@ 7`6 BE 2B @ w`&   E7 w. wU &    07 7 7  V7 4%& & E N\E &  & >e U ' 7@` dd&`f&d&b&  m eRECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES  ɋ e  rzfwBC % e 7jb Aɋ  BP@ Bm 1VAR WHILE WITH  #    %V  > @ Bm. @ Bm    z  c7 '& @  7 8%'7 h^(7 hB(7 h<%7 h)7 h@%7 h&7 h*\ vw L I?g& 7z  AF|eA VWFlN   mAɋV t'(((@ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\F! &(zffD e  wZ5 wTDeVC(VB@B^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & && &7  VC& Ο @  e E`E`` A EwwDw *  '(Z7 @Z7 x7 l"@Znd@Z7 V.@Zvd@Z6 \ ;   \  W  (@`@`( ((]   P P NPP  W    %Vm e5`\_e w5 5@>J X\ɋE 5\\\& ``! eί%@ eAp6% "1, 1,1,       B  BB`   V& $   @ B  ^  % ^A %^A&Daef ¥_09E AZ B`     V dn`|08@HPX`~Pjp  C  f ee $ $ $ $ @A eeee >eJV - e6_ 8 E E7 _ wU K@L2 A2@@A   J@ PV ``f  ``A   ҇ ``&&  !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO `  E e @a&&6E e @a&E e  DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IM@a e\VD@`@`$fH@7$`e    V _PLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !(  rEj7 fd,v vV R-NVDE7 > e e{vLN !wU  E@ f ^& 7 7 d80pH*VV &fEʝ@W V  xnw w ʕtʕ8ߊ3 7 | v n "w \    X F wC w2 7 $"   Q EU 5 Z L  X UU >e0  ?U@  _E7 w*f U? " E7 " W V@e@ E@W V E&@W VE  t`  Ue EPRTV { #wU  E@  U@ _E7 _ 5@tte E e' eX-T잇EJE7 > e ^25@7 X:%%>%&%%'%%%%'>%'>%'>%'>%%'%'>%%'%2&f&\  \& \\rl#l#*jB$<ZPRPE Ґ  wU &f&f7  $wU  R _&:?ŀ -5 -#l#  -~#U   0ɝ^& _E7 C DE!:7  7aehDl#t t n  d$$ R_HF <8 &,7 &E7 _$l#7  A   aw7e:wZP@P7n@eI70@wpM)w^ 7 , ß E7 E7 ,%U@ez\& Dr)&&\   5@5@z 5U&"J  E      7 7  B  47 !ׯ7 X4%%8%&%%'%%%%'8%'8%'8%'8%%'%'8%%'%,&f&\  \& \\r1@\+U E `    ͋D 5|w 5B P  5 . [?\ ew & ?U?*@ڪAD C %     @  f&\W#D  7W ΁?Zw w   D5I5!  :@ S  e$- wl   B -  e \z\D f C_  fW & @&&&&7 '''$'''&4%*''8%&8%8%&.5) 5|w 77 :  ,-$ nU`E@ wFw , '8%''f'e\\;@\ \N @   =@f&ysE[\pCf&f&\% a @ DU@ % eC % C ``` w   6 6 &  f 6A  v  6N\z\\\ N A f C)  GRAPH2   %C B    \ w  D& &&@7 8%j(D& && 6  A7 ^&(:&4%((:&(4%((('('8%'8%'8%'8%'( e\ \S\ e& @7 8%((e\.)f& \:יc&>X4%]@& & & & & D&&D&& @%7 r&n)  IA  e e@ e& & & & & D&&e #@  @6 7 &)PROGRAM GRAPH2(OUTPUT);  CONST D=0.0625; &S = 32; &H1 = 34; &H2 = 68; &C = 6.28318; LIM = 32;  VAR I,J,K,N: INTEGER; X,Y: 6 6 #?%-0 @ ׳f&& @׳@f&7 '4%*4%&^*f&f&7 l'*'8%'8%'8%REAL; $A : ARRAY [1..H2] OF CHAR;  BEGIN FOR J := 1 TO H2 DO A [J] := ' '; #FOR I := 0 TO LIM DO #BEGIN X := D*I; Y := EXP(-'8%'8%8%*8%'*   \*f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& X)*SIN(C*X);  A [H1] := ':'; N := ROUND(S*Y) + H1; A[N] := '*'; #IF N < H1 THEN K := H1 ELSE K := N; #FOR J := 1 TO K DO f7 &8% + ff w   &@& X+ WRITE(A[J]); #WRITELN; A[N] := ' '  END  END.   O^* r= FILEHAND  ?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGO PROGRAM X(INPUT,OUTPUT) ; "VAR Y : ARRAY[1..20] OF CHAR ; &I, J : INTEGER ; &BEGIN 'FOR I := 1 TO 20 DO )READ(Y[I]) ;   DOOȡ D  OOȡ >튐 A  "D: " D*"ɡ" FOR J := 20 DOWNTO 1 DO )WRITE(Y[J]) ; 'WRITELN ; &END.  PPȡ D D B(J '%Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXTe&4+. 0< V0-O^+ ity (CRC) errorPBad unit numberPBad IO operationP Timeout errorPVol went off-linePFile lost int ˡȡ"ۂaۂzȄ ۂۂaA** 8 ؾȡق š dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 Fil* &) $ ۪#  á10  ڡ,-er error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PSá -ˡ ڡ4Put  : in unit !Put in :áPunRPPblkd volXP File name YPEFile or vol nameP- V&(ڡ-l ضض˄:á ; / 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 ~ ȡ~~ft???tJantFebtMartAprtMaytJuntJultAugt Sepx >PNo directory on volumeP File foundPVolume already on linePOutput file fullPWorkfile alreadt Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYSTy savedPNo workfile to savePZá TextP CodePP file lost [P3Dangerous! Suggest EM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;Vusing ? on wildcards to same volSd.02468:<>@BD "$&(*,.02468:<>@BDFHJLNx^`~vnOKŦ((89bتP&R ParVXZ\^`bnprtvy{|~gS7 "$&(*,.046&, T ݪ(á6ڡ%: P 01C- 1C - Ȅ- *ݡ what file what vol ? & Ҿ ҦDŧ- O:!(:9:  ? [ Workfile is . . not named43 (not saved) No workfile& ,,Xá:N,7,Pá/ , 0,1C :: .&&Y,430Throw away current workfile ?  ,ء,Yá4'*SY:,$(,N Ҧ)ˡ:۲) áڲ) STEM.WRK.TEXTPRR3'*SYSTEM.WRK.CODEPRR43,*SYSTEM.LST.TEXTPRWR^ ȡز)(ئ(ȡb)ɡ))$ á)*..BACKP@ ERemove ..BACK ? Y áRR4= á? áˡ}:ئiɡ ...too long <ٹ@AB3ءWorkfile cleared&66&..TEXTText H andɡá   DC)Ҫ,,)ҾɡҦ Code ..CODE2&,YáGetHR?.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/Ŧ<Ŧ ҦҾ ҦK)$vn~ŪO=?8*vn78Ä&K=778Change S776*KOO:!(7R"fvnšfSvfn-K:!(: )K:!(" Ҧd:- 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J ,Xˡ,ç,YÍ-Y-- ?Y-- "-!ؓcZ#XdÄ22 Z㧁YÄ7š2T"çTÄAT57Z R2U : changed to ?:~Y??ZYÄ??Z?o:8PZ:" "I7ń m d!nnòCń!C"ne8  e changed to VeVn d T $HR"6Z:e8  é+Ɓ+ transferred to Ɓ+ Ɓ+:Ɓ+'Ɓ+,Xˡ؍ءҦҦfv"4QUZ$Remove@RP8 TSRemove S~9l?R6ڍڡҦҦ#,>B{(~!تSave as ~U$:-S : -S  removedTTT%á(%S:tUpdate t<H%ڪ ^,Vthe  file "V^.)Woudirectory ?  YáOST 1C :ST- ȡ$SST-"TTSS1-[R"HRld you like V written to G: ?  ,,Xá$,Yá^-"2 ? : V  removed ҦҦ l{4 %á%Put in  file P%Ū#^.)G:!( SYSTEM.WRK. ':0Put destination disk in unit #0 ( X,,#'V/!$*(J '%Ҧ74 text'773code'77','-,#áضò~ؤ#,f,á#Zضò~ؤ89D?d Do you still wish to conti$Z&ت( *SYSTEM.WRK. 4(RWtn dTEXT-&..TEXTnue ?  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$. 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 da3&6 $6MakeHR(,˧,Y˄,Xá6\R"Icb^RVolumes on-line:0 0ȡk~0٦S0 ٲ? *  #   "0?:V made66Ҧ )Prefix titles by6V/;?:00 Prefix is - ;:/%Bad blocks scan of$P0&" Prefix is ;:&Z*ض7%Íy7<ا9$&(+%7/:TS~0́SʁȡP0Sˡ4TTBlock S  is badSST  bad 'ء$6%$/:ا6 $87؄877,ٕڶ6šڸ6šC5blocks{ 0% Zero dir of$P0&"-ˡ2Destroy ?: ?  Y54< UNUSED >    ,b-69#TáWriting&.TT-SDuplicate dir ?  ,,Yá ,XáN,-ˡg- ħ- 'ȄR-  blocks ?  ,,Xá,Yá- ,YˡD# of blocks ?  ɡ Bad # blocksNew-آ  آá  أ  ILLEGALPpBad diskPuCodefilePeTextfile vol name ? P :á ō6y  C PUInfofilePEDatafileP5GraffileP%FotofilePwi[M?1# ,.Ɓ. : correct ?  Yá+0": zeroed @1777/ TɡTTšTTTɡá5Block   is still badLBlocks   thr~n  6H>~!$%$&(>( +l)x++,-.(/8.10 34H4x448(:4v;;2:BZ2Xj i"}:sH rlr(HR@0H" 0 { REBOOT : Change bootstrap to load different interpreter  (REBOOT toggles the bootstrap to alternately load the system Never gets this far } (END ; (  5:  END.   (interpreter from files: ( 0SYSTEM.INTERS Small interpreter 0SYSTEM.INTERB Big interpreter 0  It then boots the system to re-load the interpreter.  }  {$G+}  PROGRAM REBOOT ;  LABEL 5 ;  CONST (SYSVOL = 4 ; (BOOTBLOCK = 0 ;   BLOCK = 512 ;   VAR (BUF : PACKED ARRAY[1..BLOCK] OF CHAR ; (OLD : CHAR ; (K, FN, EXT : INTEGER ;  V : RECORD REBOOT  CASE BOOLEAN OF 0TRUE : ( A : INTEGER ) ; 0FALSE: ( P : ^INTEGER) ; -END ;   FUNCTION PLACE( S : STRING ) : INTEGER ;  L ABEL 1, 2, 3 ;  VAR (BASE, I, J, K : INTEGER ;  BEGIN (BASE := 0 ; (PLACE := 0 ; ( (2 : BASE := BASE + 1 ; (FOR I := BASE TO (BLOCK - LENGTH(S)) DO *IF BUF[I] = S[1] THEN GOTO 1 ; { FOUND ONE } *GOTO 3 ; { NOGO } * %1: BASE := I ; %FOR J := 1 TO LENGTH(S) DO +IF BUF[BASE+J-1] <> S[J] THEN GOTO 2 ; + +PLACE := BASE ;  3 :  END ;   BEGIN ڪP0000/1/1ȡ/á // ? @ A B C D E F G H I J @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K L