IMD 1.18: 23/09/2013 11:04:56 v009-a ucsd pascal ver I.0 terak  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,lŗkm HBf     &  K.TEXT{SYSTEM.WRK.CODE{%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  V009-A&L{zZ * SYSTEM.FILERmZ*oSYSTEM.COMPILER o SYSTEM.LINKERm, SYSTEM.EDITORml SYSTEM.SYNTAXm SYSTEM.PDP-11mSYSTEM.CHARSETm"SYSTEM.LIBRARYm! BINDER.CODEm* SETUP.CODEmq, SYSTEM.PASCALn2,ZSYSTEM.ASSMBLERZ] 11.OPCODESm]d 11.ERRORSmdiRT11TOEDIT.CODE"imWRITE.OUT.TEXTTmqFACTORIAL.TEXTTq{ LIFE.TEXTm{ DEMO.TEXT V009-A&L{zZ * SYSTEM.FILERmZ*oSYSTEM.COMPILER o SYSTEM.LINKERm, SYSTEM.EDITORmmCOPYDUPDIR.TEXT PATCH.CODEmf PATCH.TEXTm"WATERRATE.TEXTm؞SYSTEM.WRl SYSTEM.SYNTAXm SYSTEM.PDP-11mSYSTEM.CHARSETm"SYSTEM.LIBRARYm! BINDER.CODEm  dirP Bad file namePNo room on volP{No such vol on-lineP`File not foundPJ Dup dir entryP5 Filer error!!P  sZF3$ F Blkd volumeP Unblkd volumePRˡM or PSáPunRPPblkd volXP File name YPEFile or vol nameP- V* SETUP.CODEmq, SYSTEM.PASCALn2,ZSYSTEM.ASSMBLERZ] 11.OPCODESm]d 11.ERRORSmdiRT11TOEDIT.CODE"imWRITE.OUT.TEXTTmqFACTORIAL.TEXTTq{ LIFE.TEXTm{ DEMO.TEXTr= FILEHAND mCOPYDUPDIR.TEXT PATCH.CODEmf PATCH.TEXTm"WATERRATE.TEXTm؞SYSTEM.WR K.TEXT{SYSTEM.WRK.CODE{?COPYRIGHT (C) 1978, REGENTS UNIVERSITY OF CALIFORNIA, SAN DIEGOt???tJantFebtMartAprtMaytJuntJultAugt Sept Octt Novt Dect ???t???t???&SYSTEM.WRK.TEXT44SYSTEM.WRK.CODE33R2 UDSUUؕTTŧTSɄU?Í- f?;V~vnOKŦ((89bتP&R Parity (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ˡ _  3.˄'3.ˍfunny code seg3.3.ɍ3.,ō bad diskinfo36$SYSTEMLELINKER .2 bad seg kind3@.  bad seg name-š....š1ÄAll segs linked -á0(` 4ȡ  Linker [I.5]E˫Z&:( in workspace(*SYSTEM.LIBRARY Host file? (=&:( in workspace(šȡW Lib file? (+**SYSTEM.LتP%Type (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 "ˡ/ in workspace.CODEP/"ˡ!No file Pˡ Opening ١ li read err ١آj ٟˡgˡb٢ L H ɡ- |ݟˡ   á  ; .%$6á! 000/0ٚ/0ˡsegtbl read err.1-á220313.Ä13. šNY؟ˡYD٢ؚ٢٢٢٢  ٢ Ǡ ٢ أǠٶٸB%   ˡø  #ڢ욥    ˡ+  f؟ˡu`أáW ٟˡáٸ٢ؚ٢٢٢٢ ˡ`#  %  ٟˡ ٢ ؟ˡ 8# 4oˡTáno room in seginfo6  ٚۢۢۢ~ non-alpha name٢ Ǡٶ ٸ ٸT missing procٟˡaáUá ؟ˡ%٢ō too many refs bad formatáō bad privateáٮǠōɍá ٢ ؚá ٢ iF xڟˡ0ٟˡٚښ` ō bad globdefō bad publicdefc٢٢Ǡōɍdō bad proc/func#7B!۶ˡábá& ɡ>ڟá0ˡ"ڟˡˡá sWY[]) D́ʁ́ʁʁ+Reading ʁ@ڟáٟá ضؚؚo8l"ˡ!ݢ ˡݢݢˡݢݢ ˡ bad litype fHš   ۢ۟ˡݢ  ˡݢݢ ! áݢ ˡ á  ۡ*Proc  param misá1á)Ȅ   bad host LCá ܢ ٢ám6 F؟ˡmatch !áݢ ˡá  ۡ*Func  param mismatchM áݢݢ آō bad proc #ڶ˶˄disagreeing p #H unit err#1T4P  áUGlobal dPublic RConst ٕȍ` ōproc place err `  (ǐɡ sep sAProc 1Func !\L> 5'=/ undefined˄"ܚJeg 2 big ȡˡsep seg read err3 Ǡō bad proc dict# X ؟ˡ$$$آߣޟˡš ޢ? ɡ to continue.Ɓ  P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁs áRۂ;ۂáݧۂ ۂ á ܕcX  &3[ƀƀƀƀƁ#ƁKƁs0C` 2ffN.fۥ  ۂ  ۂڞڂ ˡ  !Uق Z B.,& EDITOR č{^ ꂾ á ܂ ܂áŧؓɍš  ٚ INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCOREء  f  ݂ ݂ɡ ݂ ݂ەݕ < \-š 0 ۍۡRepeatfactor > 10,000\ 킾 á  :ڕ šjvKThere is no room to copɡ š    H FI؂y the deletion. Do you wish to delete anyway? (y/n)P Yá,KڕJJI IJ 4l^,p!!! """j#####Z-̂MʂMȡ" ˥ ˄,ˡ,3 2IڂPڂNçN˄  ˥PۂܥOˡCode write erráe3"?SYSTEM.WRK.CODE2ˡ&Ɓ next base LC = Ɓ Ɓ Ɓ (P!ڧN˄9!'۹  vڤVڳNƁ  P3Ɓ_[ƁƀƁƀƁƀƁƀƂ'Ɓ#ƂOƁKƂwƁs * 񿥆P(   &3[ƀƀƀƀƁ#ƁKƁs0C` 2ffN.vPv v$á ٕ ٕ8p!!! """j#####Z-̂MʂMȡ" ˥ ˄,ˡ,3  "á <&ȡ< ؂ 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 what marker? -P,-V,Vȡ-,-, ,,-- -- E آZOآ^ PآXOآ^ PآXOآ^ PآNOآ^PآNOآ^ ƂNƃz   š á á  á :ƂNQ: tn |PآPOآ^P آPO آ^أ.áPáPHO PقخH2rtV v  p   F  ^ 8 B!ߞ áAꂾá 3삾 ç삾Í ߂ v ACDFIJLMP Q R S V XZ,>.+-?/=< v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E   09̂5ʂ5ȡ )  (( Ʉ?Í  D ȡ.6f]PrH Insert: Text { a char, a line} [ accepts, escapes]PIA Delete: < > {D   >Edit:IN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5"ˡWorkfile l to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}P ɡr2 Iost.vFNo workfile is present. File? ( for no file to exit ) Pv:  Pڂ  ٕ ݞ݂ ˡ !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.6f]P 4>Edit: .á ƂƂƂ*SYSTEM.WRK.TEXTPWritingNƂCNvˡ.ɡW ..TEXTU.P.á ȡMٕڂġ(Buffer overflow.ħ  á v Xá ̂5ʂ5ȡ ₾  .TEXT   ȍ .˄" ̂5Ƃ5 P ۂۂۀ Nˡۂ.ɡ0 ꕞNˡƂ5.TEXTUƂ5P .á N vNot present. File? P"á Í  > K.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:HGv9v CCRK.CODENe4Do you want to E(xit from or R(eturn to the editor?  5 ^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5ʂ5ȡܤA09̂5ʂ5ȡEګWriting out the fileJ/: CNvˡ.ɡW ܤA    Ǫ PI6Traec @Fh$   ȍ .˄" ̂5Ƃ5 P ۂۂۀ Nˡۂ.ɡ0 ꕞNˡƂ5.TEXTUƂ5P .á N vNot present. File? P"á Í  > K.N Your file is   bytes long.UáS?&SYSTEM.WRK.TEXTN*SYSTEM.WĴ5ʂ5ʂ5 ʂ5ʂ5 ʂ5P:HGv9v CCRK.CODENe4Do you want to E(xit from or R(eturn to the editor?  5 ^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5ʂ5ȡܤA09̂5ʂ5ȡImproper marker specification. 0ꂶꂶ8Marker exceeds>Quit:P# U(pdate the workfile and leave E(xit without updating file bounds.ħ :ꕕꂧ.[á$ + R(eturn to the editor without updating% W(rite to a file name and return   Щ  Щ]ɍٲˍ.ڕ.P..P,áؕRáEáꥂNWá)Name of output file ( to return) -->ƂPƂá     ۂە ..ȡۂۂ ..ȡƂ̂.ʂ.ȡƂۂƂۂ .TEXTƂƂƂȍƂƂ.˄$Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ ۂ ۂ ..ȡۂۂ .TEXT˲ȍ.˄"..P Ʉ čⓄ% Ʉ "ˡ Disk Error.ħƂ=Ƃ= $&+z" xؤá  Date Created:   ȡ.ءTrueFalse. ڳ@ - -  Last Used:  - -?T or FȡĹ TáTrue False Y    J Not option dxj # ڳɡ ڂ0 \N>0hAT(l* hfR"d&<  قڞڂZ= ˸ .   V  . Environment: {options} or to leaveP  A(uto indent ĶɄ, ک߶ߤ ߤ Marker not there. ٲ0ߤ F(illing  L(eft margin   R(ight margin  ز+߂á 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:  - - з     з     Ƃ=ƃi& Copy: From what file[marker,marker]? P    J Not option dxjƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? P"á CopyP  Ⓞ ڕ\N>0hAT(l* hfR"d&<  JIꂧJ맂J꧂J ħ Fá , Jump to    ꂫꂶꂶÄ  Í   з [اwxؤ xؤ  Not there.ؤ ħ[ $ JUMP: B(KIJڶȡ5No insertion to back over.   mڶġb4Please finish eginning E(nd M(arker P  Bá)EáMá اˡا$ up the insertion   ڶ šBuffer Overflow!!!! á  h ħInappropriate environmentKP  w ww ꂶ  @ "삾 á nbáwȡ. ) x٤v$Marker ovflw. Which one to replace?P ħáLçç Íɡ h ġo0wSet  з Gwȡx٤ xؤؤاwáw앞&삧앞 d á w?l &  Set: E(nvironment M(arker P  EáMá اˡاr "4! á/!~ō? 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˄(  ؕ ق؞؞ق ٫ګ    U ؂ áĸ š# Í    ͈ $%\    rP  ˡPšǀ&؂ɡ킾Ä؂ nš삧앞1dšBuffer overflow'3á ǀ vá(ȡ 삧앞ˡ앫؂ ( á ĄÄ˄Ąۄz á  iáPȡ&   P  Má M vá    á< ˡܡ    á áث 9 >   ȧMf$ Vá(L  ܹ-(2ڕ(%ڕ(5.#  Ʉګ ڂ ڂ٥ č9á(xá (fDŽQ  á (- áڕ(ڕ( i  ^ġ)š (š  ) <öÍˡá۫ o 'šA>á#áR)   ˄ ń    M;%*&&<á%&  "$"#<á"# !   ɡV d   Ȅ6  ɡá$šToo many$ġInteger Overflow<) <á"#˶˄ >á#"šĶ        !ń; ꂾ á+ $ ~  Í á8á  á                á   ǀd ؂ȡ     ɡkv"  Ʉ;  ؂ġ  ؂š!  ؂  P  ɡ          š á  šĶ   #<áV  ˡZ-    ٕاġ-á- ؕ ń3ꂾ á  ꂫġ  ø ɡ{Ʉ3  ɡ 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ǀ Ŷ š ljBrٕ ,˄ áxÄ W ٕ܄Lɡ2 áAátoŧ˄ȍ!á ȥ ꂧقꕞ قٕٕ  ثLK IٕJ٫ ö ݓ ÄB  X6.۪PڪP.P [M / ]: ء# áL( -á- á'*  á  ö D. it T(okv9x  Replace' aborts, 'R' replaces, ' ' doesn't 9./ Lá .Vá . Tá . VTÍLÍ/SsÍV^0/L á Rr˄Fš\Fš8Buffer full. Aborting Replace ꂧ'Invalid delimiter. .á+ۂ ń  ۂFꕞFɡꂧFꕞFFˡ F맂F꧂F D:̀̀čġ-Your pattern is too long  1۶ɧۂۂÄ۶d'  á Find =>9& Replace V(fy =>9./0ʀ ťE1G á./̀0ʀ 22  á083ǀ Ŷٶt ġ  F1HçG çHGk  ȧMل*6 ١ނ߫ á:<á  ٓ'MńPattern  not be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not be real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference tnot in the fileNo old pattern.  " ^ P  .Má  Má   d~ zxt p lhd "1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symD@8lb^\ZXVVVTRPN024680>@b; ˡ; bol (possibly missing ';' om line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type VH  " ( ,z (B8T td , RFt $"B""#$J$%%&hv;Pattern !11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected !not in the fileNo old pattern.  " ^ P  16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*'.Má  Má   d~ zxt p lhd  expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': =' H^expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:Y 'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declared twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier  105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must  ubrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit 186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter soluses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not in library  191: No private files  192: 'Usesution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of f' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Uniiles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index typt not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer e must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedu152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cres or functions  252: Too many forward references of procedure entries  253: Procedure too long  254: Too many long constantype 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 standard procedure parameter  126: Number of parameters does not agree with declaration   165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  17 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130:0: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proce Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison dure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declnot allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or saration not allowed in interface section  185: Segment declaration not allowed in unit  nough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in sepa  E7 w0 wU &    *7 7 7  7 E7 rate procedure  406: Include file not legal  7 E7 tv wU W 87 H7 F BZ E@ &?  w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $ wE7 w  "&\htx   $ ( 2 6  0 L \ p  ( @ V(b b b b b b 4 F \ N 28NPTX$ * ,Z^ $*06<BHNTZ`flrx~``@Lt`DraDr@8"^#` !h  )`*!. & 4 R x j  @ @\"bCOPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NKHEB  P  ??<963 0"-$*&'($*!eeee e  e es in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression  _ 6_ 8/efAA"too complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds w7&  G 7w pr 303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Imp&E7 5@up7w j7w 7 Nbw \-@T alementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not ezE z3F E@ nh f9XF?X E@F F-B278?2 .~7E@U@   7 %h\7 %h``WtB  aBE B<  wN EC~ B~7@` dd&`f&d&b&  m e, ɋ e  rfwBC U f &z  eN 8@ 6NE LU@t7`.~BE B @Wt% e 7dj\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ w`& B~z& & E N\Et& B~ & >e UB~     I?f& 7  AF Ձ@  a a!~F@  B~ ~E`E `EՀ.eA zWFlhT   mXAɋF!` &.:ffD e w5 wDeW   `E e `&& `E e `&EՀ~EՀ~ C.B@B C& Ο @ e E`E``B~ 7$   ҂ ~ E e ` E   @ ` Gz7<z   A EwwDwz   '((@`@`( ($]   P~P7NH 7$ 6W w{$ N B  6 E E~NPP  W  ~~%``!~eί%@ eAp67N ~& EET Bd`n * %  D~ " ~ E D~ D % "1, 1,1,^  % ^A %^A&DaefC~ %  D~  ~& AA~E e @`& E&~AA~E e @`& ¥_09E AZ   ,.C  f ee $ $ $ $ @A eAA~E e @`  `` t @L A@@A tBt J@ Peee >eJ !$'(****AND 'ARRAY ,BEGI ``f~ ``A~  ҇ ``&& `  E e N CASE CONST DIV 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .@a&&6E e @a&E e @a e\@FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF & ,   EezN EE7- @$@$@$@" EB~ &&z%%@`@`$fH@7 `e B~  B~ _  ~EU 5 \ N  X UU0 >e0   W wU  M _&5ŀ -/ - f   - f x x@e@ E@W  E&@W E  t`  Ue Ette x n b_X\ LH <<47 6E*7 &_f 7  E7 E OR (PACKED +PROCEDURPROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO  E e' eZ-V잇ELE7 @ e BBBBBBBZBBBBBB TYPE UNIT 2UNTIL USES 1VAR WHILE WITH TR  BBBBBBBPE Ґ~6 wU &f&f7 :U  C~C~ % C~C~c7 4&h& @  z7 4&h7 &7 &7 #7 '7  0ɝ^& _E7 :C DE!:7  7aehD A  #7 $7 $)\ vw b '(((@ BCzEG@HPtJ$L aw7e:wXP@P7n@eI70@wnM)w\ 7 , ßz 5M nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  U$ J  E     7 7  @  27 !ׯ+U E & && &7 r@7 dr@7 @7 Ldr|dr@7 vXdr|dr@6 `    ͋D 5|w 5B N  5 , W#D  7\ 2   \  W  m e,5`\_e w5 5@ \ɋE 5W ΁?Zw w   D5H5   :@ S~ e&-"wn.5) 5|\\\wvr@p@6H<DZbjrzzw 77 :  .-& pU`E@ wHw .F  - e6_ 8 E E7 _ wU K EFU@ % eC ~% C ``` ez|7 xvv vV R-NDPRTV x wU  E@  U@ _E7 _ &fEʝ@W   xw w ʕtʕ  Qf f ! v  6N\z\\\ N A f C %C B    \ w <@\B|:FBF:BBBBX4%]@& & & & & D>>xx > &&D&& @%7 r$'  IA e e@ e& & & & & D&&ہہǻe #@  @6 7 $B(6 6 #?%-0 @ ׳f&ý7 "U@ %LN wU  E@ e ]& 7& @׳@f&7 &x#(x#$(f&f&7 l&(&|#&|#&|#&|#&|#|#)|#&&(   \ )f& \ 7 7ߐ2 7  | t ~"w d    X N wK w:  e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 $|#P) ff w   7 ,* $? U@ _E7 wf U?  E7 ez\&@& ) & Dr)&&\   5@5@7 Xx#$|#$($($&#$$$&|#&|#&|#&|#$%2$&|#<$&<$>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8p$f&\  \& \\r1@\[?\ ew & ?U?*@ڪAD  ~8(8``0 > BB~~BB~>BBBBB>~>~~ C_  fW & @&&&&7 ^%&4&h%%^%$x#n%&|#$|#|#$N%|#T%&%e\\;@\ \N @   >>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<=@f&ysE[\pCf&f&\% a @w   6 6 &  f 6A  B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>" Qˡá RCaE ee e wz tE WuEB  N uED 7>tEpWu000 Q 0 ̌̌̌? ?E` mtEp  uE` m %   ACBvC@A ?< ~ ``0CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86??`(H"a- TR cbd cVTLXjh|l00000000  !@H!H! JA@bIb6r8`<1x~DRAWLINE DRAWLINEDRAWBLOC  DRAWBLOCDRAWBLOC. DRAWLINEPASCALIODECOPS  ýýý?COPYRIGHT (C) 1978, THE REGENTS OF THE UNIVERSITY OF CALIFORNIAݽ `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m-ÿ۽ϟ  ` ~ m- ` ~-     ÿŹýýýŹ 5  \j \  @ýýýŻ @xnpdTTTTT&fE CE ww  w# ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v sġؕؕġ#˄˄ á +-Í-ڲzؼ 0PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE .áCڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓFWRITERE FWRITEDE  FWRITEDE  DECOPS fkpt  *ɡ ؼ݀$ ؼݞ$ۡܡ ؼ* Jɍ -    á  +-Í- z,  0$ $ ݞ$' ݑ$ $݂ō $݂ġ  sġؕؕġ#˄˄ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ> 2w&7$" G8  pfPN7w& 8  & 2  D!@    Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕAa@  U  D D   D          f   wN 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *  _ _B B`A b e  QB  b   j7 ev á  +-Í- z,  0 a " j b \ H HH  ` H HhHh    e_DB sġؕؕġ#˄˄  F  F   _%_ "77 * &   :k(0Rb ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ  w aB  ~ B   `w`7& 7 7 7 7a E  ݢ ݣÄɡ3ڕġ$ڕšš"š 0 . ݑ0 ݕ݂ ؂ ɡ  (,  & *ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ" á  +-Í- z,  0$ e program SETUP to get the system to&work intelligently with your terminal.* File with GOTOXY(Da7 D7zE ,mna R Ha H R e<! F  (&   _d 7dwH J7 D aw> w* (7 "D 7Da7  -w`DECOPS DECOPS GDEC GDEC  F   &  & w %% | x |rntjfhX \L -LL   *      l  b  w!     a  E _ vJ  b h^  XVD$`h d  20$`    BINDER  747( a "  ` $$ _ * ˕͕07 7   ͕- ͕0   F\  F  ##- (    "& f X7  vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  6  _ ;NJ#&;KLZzĊ @" R _XN ERROR &>This program modifies the SYSTEM.PASCAL of your default prefixJD ?disk. If any of the files it expects to be around are missing,?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th% ҥ  Moving procedures around  ! 2 Calling syste  aA!áHڦP /ۄ >m linker to create new SYSTEM.PASCAL SYSTEM.PASCALSYSTEM.PASCAL[60] 2f\R<áڦP<>/áPھšHۓ<ھEھ?ھGX\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[ ?P#QPھ꿹!áھá"$T ڪP P-< f PASCALSYSETUP P--- -JتP  ˡ4ڕڕ ڂX,Y: INTEGER) procedure:Pá "ˡ! ++P+.CODEU+"á2 SYSTEM.PASCAL INITS TEACHSET "ˡ2ˡ+++2+ˡ ˡ+++ +ˡ)ؕܕؕܕ'ؕ'ؕە''''۞ۂە. Z]UFIGURATION$T(EACH) TEACHES YOU HOW TO USE SETUP&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGˡF\@PASCALSYЩ\욶\UXXUUZض[ YES( PERMANENT AND TO LEAVE THIS PROGRAM+CT$x u "5`ˡk]YUˡM\@[آ@[\[\[UXXUU ~@$j rv  v :z64[S.2]  (C(HANGE) ALLOWS YOU TO CHA,š Zá[[ȡZ[š[[ @. d,٪PتP]ƁNGE OR EXAMINE& THE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREX\Z]UY\̀[̀[ʀȡ;ʀ@[ Щʀ[ʀ[[[تPٓ BUG LOCATION 'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YOU  ,]\á ])Code file write error ] Ɓ62Ɓ^ՀCAN, AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCETR &  C(ONTINUE) Q(UIT)CNN V OCTAL DECIMAL HEXADECIMALء,ǀɡPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPE$THE ASCII MNEMONIC FOR THE CHARACTER ASCII ɡ CONTROLɡ 1) ń ġ  C(ONTINUE)Cá & x 쓡hWANT TO CHANGE THIS VALUE? (Y,N,!)Y   ń ġ= ɡ  AE@썡n z D NOW OCTALI NOW DECIMAL3NOW HEXADECIMALK; ء!ɡ%o! o!CáDEL (ٳ?  ɡ 1h: O(CT) D(EC) H(EX) Q(UIT)0 ( DO ^@M <_  NEW VALUE: ܄ ȄA6썡ġ _'Dɡo!! o!  DEL !˄Ȅᚹ F 0_ؑȡ#_*hȡ   ( DO 6-á = C / ~ (á 2 쓄 쓡 N썡쓡ۮ46X  ڂ>XƁ.` QUIT: D(ISK) OR M(EMORY) UPDATE, R(ETURN) H(ELP) E(XIT)D5 -á0 FFȡ  ߡ  *NEW.MISCINFO٥`_/_́ʁȡ__'D(ISK) UPDATE PUTS THE CURRENT0 A  ₚ ȡ/0 A  ō SETUP ON$ DISK AS THE FILE "NEW.MISCINFO"! WHICH MUST BE CHANGED IN THE ޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE: .. FILER TO "SYSTEM.MISCINFO"$M(EMORY) UPDATE CHANGES THE SETUP IN! MEMORY UNTIL THE NEXT SYSTEM IN THE FORMAT BELOW:!->O-{OCTAL}-!! !'--DEFAULT----!----------->DIGIT INITIALIZATION"R(ETURN) TAKES YOU BACK INTO SETUP IF YOU'RE NOT DONE--->(CR)"! ! ! ! ! !"!->H-{HEX}---! !->(-)-! !-DIGIT<-!! E(XIT) TERMINATES THIS PROGRAM!DM7 !R썡[/,  !!->D{DECIMAL}!ڡ OR IF YOUR KEYBOARD CAN GENERATE%THE VALUE YOU WANT, JUST TY' T zá á$NAME OF FIELD: Y쓄F DIDN'T FIND تo NULSOHSTXETXEOTENQACKBELBSHTLFVTFFNAME OF FIELD: 쓡\R 쓄;쓡3 FIELD NAME = آ خCRSOSIDLEDC1DC2DC3DC4NAKSYNETBCANEMSUBESCFSGSRSUSSPL#CHANGE: S(INGLE) P(ROMPTED) R(ADIX) H(ELP) Q(UIT)تP+ +(++!T&ڪP. (á  WW--̀ƀENTER ƀ&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDSVƀ/̀ʀ Pʀ ʀٚʀؚʀʀʀ ʀW .W. P(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED RADIX FROM 8OCTALBDECIMAL0تP,+,---ٚ-P-,-V6TFTRUEFALSE HAS CLOCK HAS 8510AH HEXADECIMALO@4 . TO EITHER [DECIMAL OR HEXADECIMALSOCAS LOWER CASEHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALSTUDENTPREFIXED[MOVE CURSOR UP]$PREFIXED[TAL OR HEXADECIMAL4OCTAL OR DECIMALbE 2 HS Qár MOVE CURSOR RIGHT]$PREFIXED[ERASE TO END OF LINE]$ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$, ~  "SETUP: C(HANGE T(EACH H(ELP Q(UIT [S.2]  (C(HANGE) ALLOWS YOU TO CHAPREFIXED[DELETE CHARACTER]$PREFIXED[ERASE SCREEN]$PREFIXED[ERASE LINE]$%PREFIXED[KEY FOR MOVING CURSOR RIGHT]/NGE OR EXAMINE& THE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWARE$PREFIXED[KEY FOR MOVING CURSOR LEFT]/"PREFIXED[KEY FOR MOVING CURSOR UP]/$PREFIXED[KEY FOR MOVING CURSOR DOWN]/ P CONFIGURATION$T(EACH) TEACHES YOU HOW TO USE SETUP&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGREFIXED[NON-PRINTING CHARACTER]/PREFIXED[KEY FOR STOP]/PREFIXED[KEY FOR BREAK]/PREFIXED[KEY FOR FLUSH]/PREFIr˦ SHOWSCALARˡ˦ SHOWSCALARCURRENT VALUE IS ٢IhALLOWES( PERMANENT AND TO LEAVE THIS PROGRAM+CT$x u "5`ED VALUES ARE:˦SHOWALLآá* ZڪP.P.....A ~@$j rv  v :z64[S.2]  (C(HANGE) ALLOWS YOU TO CHA T : R NEW VALUE: -썓  NEW VALUE:  썡خcINGE OR EXAMINE& THE VARIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWARE( XED[KEY TO END FILE]/ PREFIXED[EDITOR 'ESCAPE' KEY]/ PREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER] NEW.MISCINFO(ON YOUR DISK. THE NAME OF THIS FILE MUSTBE CHANGED USING THE FILER TO:  SYSTEM.MISCINFO&IN / PREFIXED[EDITOR "ACCEPT" KEY]/ Rt SCREEN HEIGHT% SCREEN WIDTH&LEAD-IN TO SCREENORDER FOR THE CHANGES YOU HAVE MADETO BE LOADED AT BOOTSTRAP TIME."ALL NON-PRINTING CHARACTERS EXCEPT&CAMOVE CURSOR HOMEERASE TO END OF SCREEN ERASE TO END OF LINE MOVE CURSOR RIGHT!MOVE CURSOR UP! BACKSPARRIAGE RETURN (CR) WILL ECHO AS "?".&THE INPUT ABORT CHARACTER, "*", CAN BE(!&TYPED IN RESPONSE TO MOST REQUESTSCE" ERASE LINE# ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(K FOR"INPUT AND WILL ESCAPE YOU FROM THE(SEQUENCE WHICH ASKED THE QUESTION, E.G.,(WHEN CHANGING A VALUE, TYPING "*" TOEY TO MOVE CURSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTER THE( !"PROMPT "NEW VALUE" WILL ESCAPE THE"CHANGE WITHOUT ALTERING THE VALUE.*%THE LINE DELETE CH+KEY TO DELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU'HAVE NOT YET TYPED CR. CR WILL BE SENT'TO THE TARACTER+VERTICAL MOVE DELAY"|  /ڢ Pڢ/ + + + <æINITSERMINAL AND YOU WILL BE ABLE TO'START OVER ON A NEW LINE. THE BACKSPACE(CHARACTER, "*" WILL DELETE YOUR RESPONSE( / ث /ȡ٤٤ INITIALIZING  ED v>%TO A QUESTION CHARACTER BY CHARACTER,(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECHOED DELETED CHARACTERS WILL  TO MOVE CURSOR RIGHT(KEY TO END FILE) KEY FOR FLUSH) KEY FOR BREAK* KEY FOR STOP*NON-PRINTING CHARACTERBE(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,!TYPING THE SEQUENCE OF CHARACTERSCHARAQF// CTE+KEY TO DELETE LINE,EDITOR "ESCAPE" KEY,LEAD-IN CHAR FROM KEYBOARD-EDITOR "ACCEPT" KEY-KEY TO DELETE CHR 8($WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER$AND WILL BE UNDERSTOOD AS THE STRING& "CHAتPR 'IF YOU HAVE A VIDEO TERMINAL AND EXPECT&TO USE THE SCREEN ORACTER". WHEN YOU ACCESS A FIELD,$YOU WILL BE SHOWN ITS CURRENT VALUE.&NUMBERS ARE GIVEN IN OCTAL, DECIMAL OR'HEXADECRIENTED EDITOR, THE%CHANGES SETUP CAN MAKE WILL BE NOT BE'SUFFICIENT. YOU WILL ALSO HAVE TO BIND(IN THE PROCEDURE GOTOIMAL RADIX, CHARACTERS ARE GIVEN&AS THEIR ASCII VALUE AS NUMBERS AND AS#THEIR ASCII MNEMONIC. BOOLEANS ARE(EITHER TRUEXY IN THE OPERATING(SYSTEM. SEE SECTION 4.7 OF THE DOCUMENT.S #NOTE: DISK UPDATES CREATE THE FILE:  OR FALSE. ENTER NUMBERS, OR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,ACCORDING TO THE FORMAT:!->O-{OCTAL}-!! ) .TEXTF.CODE4.INFO".GRAF.FOTO.!~?COPYRIGHT (C), 1978 THE REGENTS OF THE UNIVERSITY OF CALIFORNIAë :: Ä:ÄȄĄMȄqfá)6!F *STK OFLOW*PFF* ˡ 6!:9"8~? ȡD ōɍ ō ȍ dč "쓡ë  쓡 !'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEX}---! !->(-)-! !-DIGIT< 5 Exec err #  á, (*, >Xá[-!! !!->D{DECIMAL}!$THE DEFAULT RADIX STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE IÍtš R,&JUST TYPE IT IN (AND CR). BOOLEANS ARE!INPUT BY TYPING "TRUE" OR "FALSE" (AND CR). FOR MORE INFORMATION,$PLEASE tB,>,$$>:&ˡ , ,:%@,SEE THE SYSTEM DOCUMENTATION.Or "HINTS ON DEALING WITH BACKSPACING:'THE 'KEY TO DELETE CHARACTER' SHOULD BE(S&$&:!F:F Fˡ FFD'JɡšɡšET TO THE KEY YOU WISH TO TYPE TO CAUSEA BACKSPACE. THE 'BACKSPACE'(CHARACTER WILL BE ECHOED TO THE TERMINAL"WHEN THE  P&:*:azȄaA:) Type : 'KEY TO DELETE CHARACTER' IS TYPED.   (Bp  B  MNEMONIC FOR THAT CHARACTE to continue) & XÍ ˫fn(ުP22ȡ7233 ȡ R,&JUST TYPE IT IN (AND CR). BOOLEANS ARE!INPUT BY TYPING "TRUE" OR "FALSE" (AND CR). FOR MORE INFORMATION,$PLEASE 23aħ3zȄ 23aA22š*á ?:22ȡá;2á!2ȡ50$6%<t 6PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD TURTLE 252š[22š2222ȡ2š5252á4x4]11á4 !^1šX42233z 3042221ç42ç1Ä2*á444ńi55P* /  /ȡ? ȡ  ġ  á ġMáš3     šˡ 퓄 삫 d #( . Íá Ä퓡w š   ɍL "ˡ.ˡɡ 럚肚Z ū  < áš < c d쓡  10šá.@B B Ä $ B B >Ä ɡ 낫š ꓡ1š땫ĚJ삫Ú 0  !š Í 7ÄT ǐɄ96ń š ^ "á50 ɚ ~66! á ~ 횧 :˄˥j šš  áš  šš! !7 4-~ çÍ{  , Ą:쓡"áń á   uš  gá .Ä+  ɡ"  8"ë á 쓡  $Ꟛšrá M  #ń@ 񂾲z 񂾂0 ń Ȅ! ~ÍV~M g>@ << á6铡,B BBˡ!  ,ȫ- 넡, ~ -Í1~0"ˡ ( ! 767l 9S328˄  š˄  `" R (  d˯šá  d<0 dÍÍˡ 퓄 Ä7 H ȡ   0 H" ġ 퓡  dÄÍ" ˄"ɡ  dá dá C#C˄ *@#ٕš ګ۫ š۫ ګ,/   ȡQɫ  ȡ  C    á&á ~ -/18 +  "ˡ ɡB  B "ˡc >á1 á(á" >##&Eá *6*6ˡ6á  B 4b|dl "ˡ  *Qv  X $l 6H \$ Nb1ń0á š肂蕿BšTQ š *š  4V j ɡ 逫뾕ȡ4 š킥뾞 <X hE6!~?7FPu-á-32768 Rġ?o00ń0ˡ oɡUnknown run-time error(Value range error(No proc in seg-table(Exit from uncalled proc(Stack ovea Mȡ龫š 龕龫!낾  2 dárflow(Integer overflow(Divide by zero(NIL pointer reference(Program interrupted by user(Syste3á+   T p?š m IO error( unknown cause( parity (CRC)(illegal unit #(illegal IO request(data-com timeout(!삾 0 Vá " *ávol went off-line(file lost in dir( bad file name(no room on vol( vol not found(file not foá0á +-Í-ëzXund( dup dir entry(jfile already open(Q file not open(<bad input format($F4 w 0á%+á z nQ  dM: IO error: (Unimplemented instruction(Floating point error(rString overflow([Programmed HAB>邚邫镫ë퓡Q @B "ˡB "ˡ >꾂ȡ龞꾂(ń꾂Ȅ4š뾂á뾞뾂N"ˡáˡ á uá% Ȅ 隹Já-ÄPńȄ.ń0á š肂蕿BšT  >  |  á1 š뾕ȡ4 š킥뾞 <X hE6!~?7FPu1    šš&@B>邚邫镫ë퓡e @Bt in :P?FP'Ǡá-EEE    "$E , , P#  , I#  |Dj, vol not found(file not fo & š&:(*SYSTEM.WRK.CODE(&*ƁV`tDtD Doo odoo'źʁʁʁX:: P7 :9CONSOLE:(:9SYST*SYSTEM.MISCINFOP*"áh* X́*́ʁ:ʁ:ʁ<ʁʁ>ʁ>ʁJʁJ tDtERM:(8:986ë???JanFebD *&*n  ȡ,~ؤۦۢ0ۢ ؞&~CONSOLE~SYSTERM?MarAprMayJunJulAug Sep Oct Nov Dec ???~?á';??ٟá'C &"á~PRINTER&"á~RE????????6!:%$ )8P Welcome MOTE ASSMBLER COMPILER EDITOR FILER LINKEŔ'?, toU.C.S.D. Pascal System I.5Current date is Cʁ'ȡf:SYSTEM.ؤ ́(Ɓ(?Ɓ(ؤ Ɓ((ؤ ؗ -C-C System re-initialized N  ZLFeb~ۤ́'ʁ'nʁ'é(ʁ(ȡWÍ)Ɓ)ʁ'Ɓ)ؤ Ɓ)(ؤ ؗ áMarAprMayJunJulAug Sep Oct Nov Dec ?(ypƅ*SYSTEM.CHARSET(ƅʅǀ"áʅʅūʅ  ʅ ܪP//ˡU*SYSTEM.STARTUP \  @  "CONST $ $TGUxscreen = 319; { maximum horizontal size } $TGUyscreen = 239; { ditto vertical } $T @xnpdTTTTT6l8F4 n"PROCEDURE INITTURTLE; { magic for initialization } "PROCEDURE Clearscreen; "PROCEDURE Hideturtle; "PROCEDURE Move (distanc e: INTEGER); "PROCEDURE Moveto (x, y: INTEGER); "PROCEDURE Newturtle (xsize, ysize, centerx, centery: INTEGER); { init proc } "PROCEDURE Pencolor (pen: TGUpenstate); "PROCEDURE Showturtle; "PROCEDURE Turn (angle: INTEGER); "PROCEDURE Turnto (angle: I/  INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR "ˡ."ء&'ȡvؤˡd%BB>>>>>Bؤ<󄓡(>>>>>ؤؤ ' <BB B BPAGE - B B CCOPYRIGHT (C) 1978 REGENTS OF UNIVERSITY OF CALIFORNIA AT SAN DIEGOBQB FILE:B<BB BBBBj á6 (á6 >á6<9.2á'< >7áɡEEE E!~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBB| BB| BEOšO;áB#BBB x-~}cy ƄjƅƄBƅnBƁn  BBáE:T BءWá$B*B*á'B ŧ8  JáƄjƄBB.XB2:#$ T& n!*"""#>09ō B B áHB* B*B*B*áNB BBB;PPBBERROR #B BءFB"*B11B.ERRORS" file not aroundB  B  B B B  /šH@á6 ,š,@8FNo debugger in systemP8F4 file P%Ū#^.)ڂ<󄓡;PPERROR # ءE"*11.ERRORG:!( SYSTEM.WRK. $*(J 'S" file not around ,(šE(dit,,ٶ/%Ҧ74 text'773code'77$Z&ت( *SYSTEM.WRK. 4<ȄEeÍ&3! " % # ظ  á<'< >7Ʉʹ(RWtn dTEXT-&..TEXTe&4+. 6pB V6~ B* Bt(٨ǀɍp Location * *%|2 #n,nSYSTEMLETLA **@؂@؂@7á/0 ápȡiE* ɡ"E삥* E*ˡ$E*E*E áȡ$%#$#$á=3/"#!% *#$3BoP $& w6 6?á/{E* ɡ+E0E 0E 0ˡ-E0E0E0E :? ë;Oɡ;;? %á? 19ō1ša?˧?  : >.*77á#jؚj٨j . ˄?,áP ? ؂? ;Í ?D˥* ˄*,áP *"Dwwc*򥂮x"á5xx ˡ  *w ؂* ;˄6 Q ç9,P ? ؂Pɡ; ؂؂5 ˄Pɡ;Aá 6 c{{!ç{ç{˄E{á{{{{ˡ  *u{{6š ? * , Í;ÍCšF ? F * ؂?6 b ç9EP||.|{{|{(})"cegi wcIɡ; š ? * ˡ Pɡ;Aá 6 %%6%š *%_c@  .x"á1.z!á yá*%ç12*% ë;Oɡ;;%%*% ;á5P *% ؂Pɡ*%;؞؂z!á xx ˡ  ]Hz!á yy%؂% U ç91/P *% ؂Pɡ; ؂%؂% ˡPɡ;Aá xRVǀĶȄ z!á wch w١(y؄ǀȄ١; *ō˄ J48˄ "z!á yy؄ǀȄ z!áڧwc{{!ç{ç{˄M١;z!á y 뚶á#á  òWÄ&zyòy؄ǀȄ z!áڧ١0.z!á yWÄ_!뚹 %zy@//00@/ؿ//0/..-š.-:á7ȡ0E삥*E*E{á{{{{ˡ  QBB{<󄓡{ á@ȡ9E0E0E0E   ٨"?ACE5 ;=wc[Y@{ ;P3B*#$ *#1  l4- P PAFȄ09Ȅ6Aġ -7-0WWPW-Ǡ$&(*,.02\@B[ ڤڤꚹT#áNš %5 ˡ  ááġWáٳ WP ÍHá$.á áBá6R-ڹšPɡWW-PW  Äڳ<<ڹ Íݢۂ ˡݢؿ ÄݢǠWPV VVVVš|ɡWW-PWǠWPWWȡ$ق ە ˡݢ ܡ ݢۍܡ ݢۄzܡݢۓۄbܡ ݢۏQܡ ݢۆ@ܡ ݢێ  ق ń ÄɡWW-PWǠWP/(tT-  ^ áLWWWȡقšVV V VVVVš[ɡW?$6# SnW  W-PWǠWPWWȡ'قš VٕقV&q *_ twc2 2}ܤ뻹áP**á<á ܤ ܤ&"N  ЩAZȄ09Ȅɡ؂ á-==Ʉؤ =wܤ!ܤW 뚹ܤ뻹á ܤ ܤwc wwáwcܤ=-><! ؤ6ENDM Я bš&?? ˡ!ܤWܤRá ܤ;ȡ1ȡ ܤܤۂܤ ܤW*% ˡ%% 84Í4á" Ná3#观ˡ%30 P P ˄!0YYPY0Ǡwc w˄&"á w&xܤ&ܤ!ܤW ܤ$YP á#"%!B P#%8<󄓡<;PP< >˄ ܤ ܤ"˄ ܤ ܤ!"wc w˄ wꫂ{ܤW R ЩAZȄ09Ȅ_Íɡ؂ =ȡڂ؂ړلٓ뚹áˡܤܤܤܤWˡS|~ǀǀړلٓǀڤ=˄ ==짂5   $0t:<>@BDFHJLNPRTVXZ\^`bdfhjlnptvxz|~$   #  mf_ N #F'  "2  ŧ8  JáƄjƄBB.XB2:#$ T& n!*"""#>09ō8CONSOLE:#1::Q Щ P(BPAGE - BEEQU ЩBFUNC Щ;PUBLIC ЩCPRIVATE ЩD PROC  Bj *LINKER.INFO<󄓡< 0>U *f &x A Щ : WORD Щ 6 EXPAND Щ V MACRO Щ @ ENDM Щ U .á o&Po.PoP2Output file for assembled listing: ( for none)P ?8  ;&:á =O"ÍO&Ȅd !"#{$v%q&l'g(IF ЩAENDC Щ<ELSE Щ=REF ЩDEF Щb)]*X+S,N-I.D/?0:1520(lifc`]ZWTQNKHEB?<963S6  3VSORG Щ>INCLUDE ЩNLIST ЩFNOLIST ЩGASECT Щ Щ09Ȅɡ؂ á'=&=&'Ʉ& =&&=A'á (HPSECT ЩITITLE ЩLEND ЩJPAGE ЩK2'' "'' ''P;:Ä 6 Q9 PP "PɄ ˄6ȡU=ȡ#قٓ؄ؓǀǀٓ؄ؓǀ򿥁,,P,Ǡ,Pá 9١ؑ ؂ ؂ á8)Pš*x8ë;; ٤=˄ ==1Opcode declared twice=- U U٤;P á ; á8     8*$á 09ō٤ꚲUU 54"#6%8' =LUƁ,́Ɓ11Ɓ.OPCODES ƁP6  á6 (á6 >á6,́Ɓ*Ɓ,QƁPU,"ˡ*, not on vol&Óʁȡق;P!~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRB11 Assembler  I.5 [b.1]́ʁȡ:ق E:*0123456789ABCDEFЩ/ Ax-~}cy ƄjƅƄBƅnBƁn   .á o&Po.PoP2Output file for assembled listing: ( for none)P 3 roBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private  ˡ-á4B B<󄓡)-- -  CS - ConstsBBBá1 ------| Pá1----| PZPB-á - - - - --- - -F>e! (. ޢ̀ʀȡrܤˡ]N#F   "$&(*,.02?  "$&(*,.02L"DD  "$&(*,.02vxz|~@ACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - MacB fj8- *LINKER.INFO ˡ - ȡ/--ároBB=RF - Ref DF - Def PR - Proc FC - FuncBB,PB - Public PV - Private -ܮܧ06vFBCurrent available space is B( B wordsBj-ا0ɡd.š@ɡ6ق,šق, "á@á0/ا0š.0/./ wc.+  Y .+.+AP!-(ث@Aȡ .á"آ,á"آjˡBš@ɡ6ق,šق, ,ġ'"á@,,,ɡ6,"á@á0 AB P LB P PR P FC P PB P PV P RF Pu DF Ph UD P[/ا0/  7ˡg-ȡN--á5ȡ*-ܤˡ.-ܤ MC PN#Fp  "$&(*,.026tidYB !ÍB|  ȡ ܤˡ.ܤ  -m }ˡ - B1ç<ç<B7áˡ~ t Já ;P ȡ䥃ؤˡ&BB>>>>>B<󄓡#>>>>>- Щޢޢ̀ʀȡrܤˡ]N#F   "$&(*,.02? F--x-n-d-Z- P- F>  "$&(*ACEGIKMOQZPSYMBOLTABLE DUMPPB>AB - Absolute LB - Label UD - Undefined MC - Mac,.02nzh`N-- - --ˡB-á--4 bʂbġ ٥Yڤ  ٫/@ɡ6ڂ ʁ-Ɓ-Ɓ-Ɓ *LINKER.INFO).á Щɡ قIF Я (ENDC Я ɡ  اELSE Я "áƁ@á@ "á@ɡ6 @ǀ HاENDC Я W   Щ Oš á;P).á ÔbʂbȡڂUH"áá68<B 8BƁ&AssemblyЩɡ قIF Я (ENDC Я ɡ  اENDC Я    complete:  lines " Errors flagged on this AssemblyP ٟˡb0٢؂٢٢Ʉjj٨j٢٫ j rOáb  * )} ( š*Ɓ-j *LINKER.INFOj .+:á "ˡá>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ Sˡ> áUQ  á Rˡ   E:8ˡ8ˡ ;P",& !&&& Oá Bˡ٧&šٕȡ  Ɓ-Ɓ/`ݢ ݣÄɡ3ڕġ$ڕš : Qá<ȡ)˄ ;P؂   : V> š"šޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "áAˡA wc qwá$x"á?AˡA !Dwá.{!ç{ç{˄AˡA !?ݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚAˡA AˡA A AˡA!á AA >0 #ˡ=   - vvP 4 V ١0.z!á yڧ{á 5 #?  ? á6 Щ1š?  Oš? á;P).á@ UB B blocks for procedure code B( B words leftB<{{{{ˡ  QBB{<󄓡{"?AC  blocks for procedure code (  words left< >0. QáAP ړ ˡ> Qáۯ. H2:á+ - ,/Y @á6@B d Ɓ-ƂYƁƂ1Ƃa@# š Já ̂ۯX8ˡ8ˡ  Щ;P Oš á;P5  Щɡ ؂ENDM Я ȡ? ? ? "1   _3!á*@wc  TRQ vǠ    ݻ ܻrwQá  ?áǀȡ   t á  ?wcˡR ڻ ٻmwwc wr  ߡwmޡ   Ä ;F ˡ B b á  LǀǠ ˡR á Q rwwc ڻ ٻ ܡwrۡ   Ä ;F ˡKh QCá7á (ɡ~Ǡ ǀ  8 ȡ   dqke_YER  "$&(*,.02468:!"#$%1<'< >  @&<>@BDFHJLkgu SˡCˡ 5á+ á Ráآ  آ  ˡ"\8   '@#7BMemory after initialization:B( B OPÍ@ Qá ꥁP. "á.áˍáJȍMč 2Ȅ8ˡ &'     åÄ݂ SÄ ˡL Mvá `á.á ɡ  {!w"s#o$k%gL`z|á)á åÄNá˥Ä SÄL á: á  [YWUSQOMKIGECA?=;97508:ˡ8ˡ8ˡ ݂&ˡá ݂OLMáO  Ǡ   >2q"hv2l~Lp(P4 t P lN 'Í@Ǡ yy ,Ǡ rwwc ڻ ٻ ܡwrۡ ȍMč 2Ȅ8ˡ &'      \Ǡ  á   P4Ǡ  á Q ˡRƁ.ƁD́mƁm*Ɓm11ƁmṔmƁmƁDPƁm.ERRORSWƁmƁC "ˡw0BBrwwc ڻ ٻ ܡwrۡ  ~S Ǡ  áR  á=;PPBBB<󄓡/;PP. ݢ 6 @ ADCB @SBC SBCB SXT MOV  MOVB CMP CMPB ADD ` SUB BIT .ORG currently not allowedbelntidentifier expectedntly not allowedbelntconstant expectededntly not allowedbelntinvalid str 0 BITB BIC @ BICB BIS P BISB BR BNE BEQ BPL BMI uctureedntly not allowedbelntextra special symboltly not allowedbelntbranch too farsymboltly not allowedbelntvariable not BVC BVS BCC BCS BGE BLT BGT BLE BHI BLOS BHIS PC relativenot allowedbelntillegal macro parameter indexllowedbelntnot enough macro parametersexllowedbelntoperand not absݣÄɡ3ڕġ$ڕšš"šBLO CLC CLV CLZ CLN SEC SEV SEZ SEN SCC CCC ޣ Ąޣ ݣ ˡPݣ %ݢ@ݢݢBݣ "ˡݣ ˄ݢBۂ"ˡ\ݣ ݣ šݢ NOP JMP @JSR RTS MFPI @ MTPI XOR xMUL p DIV r ASH t ݣ ݢ<ݣݣ ݣ ݣݣńݢ<ݣݢݢݢˡݢݢۚݢ>ܚ  - v~ ٟˡbASHC v FADD zFSUB zFMUL zFDIV z0٢؂٢٢Ʉjj٨j٢٫ j rOáb"ˡá>  >;á  ! >꫄Aٟ˄N>á,>&"ˡ ,& !&&& Oá Bˡ٧&šٕȡ   : ust branch backwards to labelsll or intundefined labelkwards to labelsll or intoperand out of ranges to labelsll or intmPC SP R7 R6 R5 R4 R3 R2 R1 R0 MARK ust have procedure name labelsll or intnumber of parameters expectedlsll or intextra garbage on lineexpectedlsll or intinp SOB ~TRAP EMT BPT IOT RTI RTT RESET WAIT HALT CLR ut line over 80 characterslsll or intnot enough .IF's80 characterslsll or int&must be declared in .ASECT before usedntident CLRB COM @ COMB @INC INCB DEC DECB NEG NEGB TST ifier previously declaredore usedntimproper formatiously declaredore usednt .EQU expectedatiously declaredore usednt&must .ETSTB ASR ASRB ASL ASLB ROR RORB ROL @ ROLB @SWAB ADC QU before use if not to a labelntmacro identifier expectedot to a labelntword addressed machinetedot to a labelnt#backward 7 rracters 1estring expectedrdn .ASECTmeterracters 1ebad block, parity error (CRC)rracters 1ebad unit numberty error (CRC)rr RT11TOTE acters 1ebad mode, illegal operationC)rracters 1eundefined hardware errorionC)rracters 1e$lost unit, unit is no longer on-l ines 1e(lost file, file is no longer in directorbad title, illegal file name in director#no room, insufficient space on diskectorno unit, no such volume on-linediskectorno file, no such file on volumediskectorduplicate filech file on volumediskector(not closed, attempt to open an open file(not open, attempt to access a closed fil(bad format, error in reading real or inۡ (ۡ-(3 ġ((((ȡ=á t nested macro definitions illegall or int'=' or '<>' expectedions illegall or intmay not EQU to undefined labelsll or intȡ@ġ ٿD  ( @ Dz?$ TITLE SIZEoluteametersexllowedbelntillegal use of special symbolslowedbelntill-formed expressionl symbolslowedbelntnot enough operan ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int dsonl symbolslowedbelnt&cannot handle this relative expressionntconstant overflows relative expressionntillegal decimal conay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int aystantive expressionntillegal octal constantntive expressionntillegal binary constanttive expressionntinvalid key wordonsta not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay nnttive expressionnt%unexpected end of input - after macronntinclude files may not be nested macronntunexpected end of inputot EQU to undefined labelsll or int ay not EQU to undefined labelsll or int ay not EQU to undefined labelsll or intclose pe nested macronnt(this is a bad place for an .INCLUDE file'only labels & comments may occupy col 1eexpected local labelts maaren ')' expected labelsll or intregister expectedxpected labelsll or inttoo many special symbols labelsll or intunrecogniy occupy col 1elocal label stack overflow occupy col 1e#string constant must be on one lineol 1e%string constant exceeds 80 zable operandls labelsll or intregister reference onlys labelsll or intfirst operand must be registersll or intcomma ',' echaracters 1eillegal use of macro parameterracters 1eno local labels in .ASECTmeterracters 1eexpected key wordn .ASECTmetexpected be registersll or intunimplimented instructionistersll or intmust branch backwards to labelsll or int8  l+ >%Enter title of wanted RT11 text file:PšX.ˡȡ P Щ  B  Enter title of output Text file:Pš?(Transfer Option? B(inary R(t11 edit :س Bá Rá  ??? (? ? ??ȡ?ȡ? á$? ǬšTޡ@ á2?? ؂?ݿ?ݿ?PROGRAM TESTOUTPUT(INPUT,OUTPUT);   VAR #OUT : TEXT;  I : INTEGER;   BEGIN #REWRITE(OUT,'OUTTEST.TEXT'); #FOR I := % ȡq???ˡA OUTPUT ERROR, program terminated1 TO 10 DO &WRITELN(OUT,'ABCDEFG'); #CLOSE(OUT,LOCK)  END.  ? Ɔ?ƇkՁ@Place RT11 disk in drive, indicate unit number [4,5], then (C/R)  0"ÄDisplay the directory? (y/n) STARTGˡGá[       з .    Ɔ??   ?ݿ?       GO^ړGá}         Я  ȡ  .    ړ ڡcG  SIZE: , START:9  ',X,' FACTORIAL = ',Y) &END; {FOR}  END.  O^O^PROGRAM FACTTABLE (OUTPUT);   VAR #X,Y:INTEGER; #  FUNCTION FACTORIAL (Z:INTEGER):INTEGER; #BEGIN &IF Z=1 THEN FACTORIAL := 1 &ELSE FACTORIAL := Z*FACTORIAL(Z-1) #END; #  BEGIN #FOR X:=1 TO 7 DO &BEGIN )Y := FACTORIAL(X); )WRITELN('NUMBER =: NOT EOF DO &BEGIN { Here is the input section. It initializes all the 0necessary parameters and creates the initial board. D(NUMBEROFNEIGHBORS=3)) OR D((OLDBOARD[I,J]='*') AND D(NUMBEROFNEIGHBORS IN ESURVIVEPOPULATION)) DTHEN GBEGIN JNEWBOARD[I}  GENERATION := 0; )GETGENERATION; )GETBOARDSIZE; )IF BOARDSIZE > MAXBOARDSIZE THEN ,BEGIN /WRITELN('BOARDSIZE T,J] := '*'; JALIVECOUNT := ALIVECOUNT + 1 GEND AEND; { Of the processing of each H individual cell. } A A OO BIG - WILL RESET TO',MAXBOARDSIZE); /BOARDSIZE := MAXBOARDSIZE ,END; )FOR I := 1 TO BOARDSIZE DO ,FOR J := 1 TO BOARDSIZE DO /OLDBOARD[I,J] := ' '; )GETORGANISM; )WHILE (I<>0) AND (J<>0) DO ,BEGIN /IF (I<1) OR (I>BOARDSIZE) OR (J<1) OR (J>BOARDPROGRAM GAMEOFLIFE (INPUT,OUTPUT);   { Program to play the Game of Life as described by H. L. Conway "at the University of CSIZE) 2THEN 5WRITELN('ATTEMPT TO INSERT ELEMENT IN NONEXISTANT', =' CELL AT LOCATION',I,J,' VALUE DISREGARDED') 2ELSE 5OLDBambridge }   CONST MAXBOARDSIZE = 10; {Maximum board size}   TYPE STATE = (DEAD,STABLE,GROWING); &NEIGHBOR = SET OF 0..OARD[I,J] := '*'; /READLN(I,J) { Read location of next organism. } ,END; )  { The actual board processing begins 8; &BOARDS = PACKED ARRAY [1..MAXBOARDSIZE,1..MAXBOARDSIZE] OF CHAR;   VAR SURVIVEPOPULATION : NEIGHBOR; &BOARDSTATE : SThere. } )REPEAT ,ALIVECOUNT := 0; ,CHANGECOUNT := 0; ,FOR I := 1 TO BOARDSIZE DO /FOR J := 1 TO BOARDSIZE DO 2BEGIN ATE; &NEWBOARD, OLDBOARD : BOARDS; &I, J : 0..MAXBOARDSIZE; &NUMBEROFNEIGHBORS : 0..8; &GENERATION, MAXGENERATION, BOARDSIZE5{ First we must compute the number of neighbors for 7a cell at coordinate I,J. We must make sure that 7the cell is not on an : INTEGER; &ALIVECOUNT, CHANGECOUNT : INTEGER; &LEFT, RIGHT, UP, DOWN, HORIZOFFSET, VERTOFFSET : -1..+1;   PROCEDURE GETGE edge. } 5IF I>1 THEN LEFT := -1 ELSE LEFT := 0; 5IF I1 THEN UP := -1 ELSENERATION; #BEGIN &WRITE('Number of generations :'); &READLN(MAXGENERATION); &IF MAXGENERATION=0 THEN EXIT(GAMEOFLIFE) #END; UP := 0; 5IF JAND ((HORIZOFFSET<>0) OR (VERTOFFSET<>0)) >THENISM; #BEGIN &WRITELN('Enter coordinates of initial organism,'); &WRITELN('Terminate entry with a 0, 0'); N ANUMBEROFNEIGHBORS := NUMBEROFNEIGHBORS+1; A{ That last test is to insure we do not Ccount the cell as a neighbor of itself&READLN(I,J) {Enter coordinates, terminate with 0, 0} #END;   BEGIN { Game of Life } #SURVIVEPOPULATION := [2,3]; #WHILE .} A{ Now see which cells should be alive in Cthe next generation. } ANEWBOARD[I,J] := ' '; AIF ((OLDBOARD[I,J] = ' ') AND ; LENGTH(HESAYS) > 0 THEN BEGIN REVERSE(HESAYS,PALIN); WRITELN(' I SAY: ',PALIN); WRITE('WHICH MEANS IT IS'); IF PALIN <> HESAYS THEN WRITE(' NOT'); WRITELN(' A PALINDROME'); END UNTIL LENGTH(HESAYS) = 0; END. O^ { We have now completed a new generation. Print it 7out and copy it back into the OLDBOARD to 7get ready for the next cycle. } 5GENERATION := GENERATION + 1; 5WRITELN; 5WRITELN(' GENERATION # ',GENERATION:3, =', POPULATION = ',ALIVECOUNT:3); 5FOR I := 1 TO BOARDSIZE DO 8BEGIN ;FOR J := 1 TO BOARDSIZE DO >BEGIN AWRITE(NEWBOARD[I,J]); A{ See if anything has changed Dduring the generation. } AIF NEWBOARD[I,J]<>OLDBOARD[I,J] DTHEN GBEGIN JCHANGECOUNT := CHANGECOUNT + 1;PROGRAM PALINDROMETESTER; VAR HESAYS,PALIN: STRING; PROCEDURE REVERSE(VAR FORWARDS,OUT: STRING); VAR STRINGCH: STRING[1];  JOLDBOARD[I,J] := NEWBOARD[I,J] GEND >END; ;WRITELN { Begin a new line. } 8END; 2{ Set a flag indicating the state of th I: INTEGER; BEGIN STRINGCH := '*'; (* WHY NOT? *) OUT := ''; (* SET LENGTH TO 0 *) FOR I := LENGTH(FORWARDS) DOWNTO 1 DOe board at the 4end of this generation. } 2IF ALIVECOUNT=0 5THEN BOARDSTATE := DEAD 5ELSE 8IF CHANGECOUNT=0 ;THEN BOARDSTA BEGIN STRINGCH[1] := FORWARDS[I]; OUT := CONCAT(OUT,STRINGCH); END END; BEGIN WRITELN('PALINDROME TESTERTE := STABLE ;ELSE BOARDSTATE := GROWING ,UNTIL (BOARDSTATE=DEAD) OR (BOARDSTATE=STABLE) /OR (GENERATION>=MAXGENERATION); ) .....'); WRITELN('WHEN I SAY ''YOU SAY'' TYPE SOMETHING THAT YOU THINK'); WRITELN('IS A PALINDROME FOLLOWED BY A CARRIAGE RE WRITELN('END'); )END { Of a single data set. } &END { Of all data sets. } { GAMEOFLIFE }.  TURN, I WILL'); WRITELN('REVERSE IT, AND SHOW YOU WHAT I FOUND'); REPEAT WRITE('YOU SAY: '); READLN(HESAYS); IF < E( ': {blocks 2-5}? ' ); "END; " "IF YES THEN "BEGIN $IF ORD( BUFFER[ 1, 2 ] ) <> DUPDIRLASTBLK THEN $BEGIN $ WRITELN( PROGRAM DUPLICATEDIRECTORYCOPIER;  "(*) This utility will copy the duplicate directory (*) "(*) in blocks 6 - 9 into the 'A duplicate directory has not been maintained on this disk. ' ); $ WRITE( ' Are you sure you want to copy the directory? ' )standard directory in (*) "(*) blocks 2 - 5. It will also mark DLASTBLK as 10 (*)  (*) so as to maintain the duplicate d; &IF NOT YES THEN (EXIT( PROGRAM ) &ELSE &BEGIN (BUFFER[ 1, 2 ] := CHR( DUPDIRLASTBLK ); (BUFFER[ 1, 3 ] := CHR(0); (UNIirectory. (*) " " "CONST (DIRBLOX = 4; {size of a directory in blocks} (BLOCKBYTES = 511; {size of a block in bytes miTWRITE( DRIVENUM, BUFFER, SIZEOF(BUFFER), 6, 0 ); &END; $END; $UNITWRITE( DRIVENUM, BUFFER, SIZEOF(BUFFER), 2, 0 ); nus 1}  (FIRSTIDCHAR = 7; {location of first character in volume id} (MAXIDLENGTH = 7;  (DUPDIRLASTBLK = 10;  $WRITE( ' Directory copy is complete. ' ); "END  ELSE $WRITE( ' Directory copy aborted. ' );  "WRITE( 'Type t"VAR 'UNITID : STRING[1]; 'DRIVENUM : INTEGER; 'BUFFER : PACKED ARRAY [ 1 .. DIRBLOX, 0 .. BLOCKBYTES ] OF CHAR; 'IDLENGTH, o exit. ' );  READLN;   END.  N : INTEGER; '  FUNCTION YES: BOOLEAN; "VAR CH : CHAR;  BEGIN "UNITREAD( 1, CH, 1, 0, 0 ); "WRITELN;  YES := (CH = 'Y');  END; '  BEGIN { of Duplicate Directory Copier } " "PAGE(OUTPUT); "WRITELN; "WRITELN( 'Duplicate Directory Copier { July 12, 1978 } ' );  WRITELN; " "REPEAT $WRITE( ' Enter drive # of user''s disk [4 or 5]: ' ); $READLN( UNITID ); $IF LENGTH( UNITID ) > 0 THEN &DRIVENUM := ORD( UNITID[1] ) - ORD('0') $ELSE &EXIT( PROGRAM ); "UNTIL DRIVENUM IN [4,5]; " "UNITREAD( DRIVENUM, BUFFER, SIZEOF(BUFFER), 6, 0 ); "IDLENGTH := ORD( BUFFER[ 1, 6 ] ); " "IF (IDLENGTH > MAXIDLENGTH) OR (IDLENGTH <= 0) THEN " WRITE( 'Illegal volume name. Do you want to copy anyway? ' ) " "ELSE "BEGIN $WRITE( 'Are you sure you want to zap the directory of ' ); $FOR N := FIRSTIDCHAR TO (FIRSTIDCHAR - 1 + IDLENGTH) DO &WRITE( BUFFER[ 1, N ] ); $WRIT=  E( Output File L } G( Hexadecimal   H( ASCII    I( Decimal   J( Octal   K( Decimal Bytes   L( Octal Bytes PASCALSYHEXEDIT   M( Krunch   N( Double Space  ٳXٹ! KTP!T"ˡOK"! Ioresult was   Try Again L}P}ˡPL" IORESULT WAS   TRY AGAIN     }  n _ P A !>ؾآ4>ؾآ(J`ۢÍU2 #AN$  ~qdWJ=0PQÍQÚ9j 9 :|DŽDŽ` ÍۢÍRIۢÍZ6ÍۢÍL!ڳ  01234567899 :|`DŽDŽ :|ɡ6ABCDEFЩ J ONMKLSRQPϦPPTPȡ&5  5  : :|DŽ}P>ھڢ0 ɡ IMPOSSIBLEDŽ  :| ɡ2ȡ"& ,& @ءTrueFalse. YTÍ YTÍ( ;Type the prefix cha & : :|DŽDŽ N&racter of the option you want to change.Type 'P' to PRINT, 'Q' to QUIT. A( Input File K T B( Begin Block #   C( Num. of Blocks  >  occured writing block[R ]RR퓡 -Something wrong, File Locked, Loop Terminat~ 0 A ~02  PRINTING...  BLOCK[P ]  |9 0: 2: edIMRType to continue AThis procedur 4: 6: 8: 10: 12: ?14: 16: 18: 20: 22: 24: 26: 28: e writes any number of blocks from an exsisting fileAto a new file, unchanged. Simply specify the necessary paraḿDʁDȡ    DŽ Ɓ5 `DŽ ƀDŽ ƀDŽ Ɓ& ɡ [₥ tersType 'P' to PUT, 'Q' to QUIT I(nput File N  S(tart    Jڂ`ڂ ڂ Block   N(mber of Blcks   O(utput File M `ڂ Ɓ5ߤڤ{ƀႥ ڤƀ ڤ ƀ ڤ ƀ ڤܹܳN qPq"ˡP"qN  Iorƀ ڤƀ ڤ %Ɓ&ނڂƁ&ڂ~ƀゥ ڤƀ ڤesult was   Try again IPIRM"ˡPM"I ƀ ڤ ƀゥ ڤƀ ڤ ƀ ڤ ġ p   Ioresult was   Try again9+IS3 7QPÍQt P;This procedure will write out sequential blocks to any fileas a patch dump ؓ5 .  |I 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20: 22: 24: 2ګPۂPȡt!Pˡ\Error reading block[P ]. Type to continue6: 28:==ȡ :|J إ݂ ۂ݂(ۂ ݂ ݂mP"ë퓡WError reading block[P ]. Type to continue PPݡġJJ512:|إ(    WRITING... ȄqˡX" + is IORESUإ(  Kx ;ɡ%LT. Error occured reading block[ ]}IRˡa"  is IORESULT.Errorá /ɡ(%"2dFill with what hex pair:?  Type to continue*!, Unitnum to patch [4,5,9..12] (0 will Quit) P 1ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewrite, Q(uit PB :62CW* * "$&(4Qá!A X خ! to continue.*!GS] g8h*Q"ۂšɡš á ڡ <ڂ <ڂɡ , -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewrit0ڡ <ڂ <ڂɡ"A ^0ZVB :62CW* * "$&(4Qá! "lnprtv02468<>@BDJ)NPRTQás j  (!Patch: G(et, Q(uitP# H(ex, MqIƂƂ!ƂIƂqƂ+(rt6 TrT(P 1(ixed!P:! S(ave,!P:! R(ead,!P:! [J ]ˡP&"ˡD(No such unit. Type to continue.*!GS] g8h*Q***M)Jˡ JrBLOCK: J ;Jˡ#, -1V>ƂƃƂ!ƃMƂIƃuƂqƃƂƃ!*C(onsole, P(atchwrite, W(holewrit Error reading block J"ë!Filename: PPūO^"ë#:Ä?á 00+ 0++&"ëV"  error on @  2: (CH: CHARBLOCK) END; PFILE: FILE; BLOCK: INTEGER; PROCEDURE CLEARSCREEN; BEGIN PAGE(OUTPUT) END; PROCEDURE PROMP+2; (UNTIL (INX >= ((ROW +1)*60)); WRITELN(TLINE); END(* ROW = 0..16 *); (* NOW DO THE PARTIAL ROW *) WRITE('512:T; BEGIN WRITE(CHR(EM),PL,CHR(EEOL)) END; FUNCTION READCH: CHAR; VAR CH: CHAR; BEGIN READ(KEYBOARD,CH); IF (CH = '`') O|'); "IF CHARSOK AND (BUF.CH[510] IN ALPHA) THEN $WRITE(BUF.CH[510]:2) "ELSE $BEGIN &WRITE(HTABLE[BUF.HEX[1021]]); &WRITE(R (CH = CHR(26)) THEN READCH := 'U' ELSE IF (CH = CHR(US)) OR (CH = ' ') OR (CH = CHR(11)) THEN READCH := 'R' ELSE IF (CH = HTABLE[BUF.HEX[1020]]); $END; "IF CHARSOK AND (BUF.CH[511] IN ALPHA) THEN $WRITE(BUF.CH[511]:2) "ELSE $BEGIN &WRITE(HTABLECHR(3)) OR (CH = CHR(12)) THEN READCH := 'Z' ELSE IF (CH = CHR(DC1)) OR (CH = CHR(BS)) OR (CH = CHR(23)) THEN [BUF.HEX[1023]]); &WRITE(HTABLE[BUF.HEX[1022]]); $END; "WRITELN; END; PROCEDURE FIXIT(USECHARS: BOOLEAN); CONST MAXROW = 1 READCH := 'L' ELSE IF CH IN ['a'..'z'] THEN READCH := CHR(ORD(CH)-32) ELSE READCH := CH; END; PROCEDURE INITIALIZE; BEG7; MAXCOL = 59; VAR CCH: CHAR; ROW,COL: INTEGER; INX: INTEGER; VAL,BYTES: INTEGER; PROCEDURE ADVANCE; BEGIN IF COL IN CLEARSCREEN; HTABLE := '0123456789ABCDEF'; "UPLINE := CHR(US); DOWNLINE := CHR(LF); RIGHTCOL := CHR(FS); LEFTCOL :< MAXCOL THEN BEGIN COL := COL +1; WRITE(RIGHTCOL); IF (COL MOD 4) = 0 THEN WRITE(RIGHTCOL) END ELSE= CHR(BS); ALTERED := FALSE; FILEOK := FALSE; BLOCKOK := FALSE; BLOCK := 0; END; PROCEDURE DISPLAYHEX(CHARSOK: BOOLEAN) IF ROW < MAXROW THEN BEGIN ROW := ROW +1; COL := 0; WRITE(CHR(RS),CHR(37),CHR(34+ROW)); END END; ; VAR DIGIT: INTEGER; INX,ROW,TINX: INTEGER; TOGGLE: BOOLEAN; "ALPHA: SET OF ' '..'~'; "TLINE: STRING;  BEGIN ALPHA := [' '..'~']; CLEARSCREEN; WRITELN; WRITELN(' |', ' 0: 2: 4: 6: 8: 10: 12: 14: 16: 18: 20: 22: 24: 26:(*$I-*) PROGRAM HEXEDIT; CONST US = 31; FS = 28; LF = 10; BS = 8; EM = 25; RS = 30; DC1 = 17; EEOL = 29; TYPE CHARB 28:'); FOR ROW := 0 TO 16 DO BEGIN WRITE(ROW*30:3,':|'); INX := ROW*60; &TINX := 2; &TLINE :=  ' LOCK = PACKED ARRAY[0..511] OF CHAR; HEXBLOCK = PACKED ARRAY[0..1023] OF 0..15; (* HEX DIGITS *) VAR UNITNUM: INTEGER; AL '; &WITH BUF DO (REPEAT *IF CHARSOK AND (CH[(INX DIV 2)] ITERED: BOOLEAN; FILEIO: BOOLEAN; FILEOK,BLOCKOK: BOOLEAN; TTABLE: ARRAY[0..3] OF INTEGER; HTABLE: PACKED ARRAY[0..15] OFN ALPHA) THEN ,TLINE[TINX] := CH[(INX DIV 2)] *ELSE ,BEGIN .TLINE[TINX] := HTABLE[HEX[INX]];  CHAR; CCH: CHAR; UPLINE,DOWNLINE,RIGHTCOL,LEFTCOL: CHAR; PL: STRING; BUF: RECORD CASE INTEGER OF 1: (HEX: HEXBLOCK); .TLINE[TINX-1] := HTABLE[HEX[INX+1]] ,END; *INX := INX +2; *IF (INX MOD 4) = 0 THEN ,TINX := TINX +3 *ELSE ,TINX := TINX A 6+ORD(CCH)-ORD('A')+10; WRITE(CCH) END; BEGIN DISPLAYHEX(USECHARS); ROW := 0; COL := 0; PL := 'Alter: pad vector 1,5, END END (* CASE ON CCH *) UNTIL CCH = 'Q'; END; PROCEDURE OUTER; VAR TITLE: STRING; BEGIN PL := 'Patch: F(ile, Q(u3,0 0..F hex characters, S(tuff Q(uit'; PROMPT; WRITE(CHR(RS),CHR(37),CHR(34)); (* GO TO 0,0 FOR THE HEX DUMP *) REPEAT it'; IF BLOCKOK THEN INSERT(' H(ex, M(ixed,',PL,POS(':',PL)+1); IF ALTERED THEN INSERT(' P(ut,',PL,POS(':',PL)+1); IF FILE CCH := READCH; CASE CCH OF 'S': (* STUFF BUFFER *) BEGIN ALTERED := TRUE; -INX := ((ROW*60)+COL) DIV 2; OK THEN INSERT(' G(et,',PL,POS(':',PL)+1); PROMPT; CCH := READCH; CLEARSCREEN; CASE CCH OF 'H','M': IF BLOCKOK THEN  CLEARSCREEN; WRITE('Stuff for how many bytes: '); READLN(BYTES); GETVAL; FILLCHAR(BUF.CH[INX],BYTEFIXIT(CCH = 'M'); 'P': IF ALTERED THEN BEGIN ALTERED := FALSE; IF FILEIO THEN IF BLOCKWRITE(PFILE,BUF,1,S,VAL); DISPLAYHEX(USECHARS); PROMPT; WRITE(CHR(RS),CHR(37+COL+(COL DIV 4)),CHR(34+ROW)); END; BLOCK) <> 1 THEN (* OOPS *) ELSE ELSE UNITWRITE(UNITNUM,BUF,512,BLOCK); END; 'G': IF FILEOK THEN BEGIN  'U': (* MOVE CURSOR UP *) IF ROW > 0 THEN BEGIN ROW := ROW-1; WRITE(UPLINE); END; 'Z': (* ALTERED := FALSE; WRITE('BLOCK: '); READLN(BLOCK); IF FILEIO THEN IF BLOCKREAD(PFILE,BUF,1,BLOCK)  MOVE CURSOR DOWN *) IF ROW < MAXROW THEN BEGIN ROW := ROW+1; WRITE(DOWNLINE); END; 'R': (* MOV<> 1 THEN (*OOPS*) ELSE ELSE UNITREAD(UNITNUM,BUF,512,BLOCK); BLOCKOK := (IORESULT = 0); END; 'F': BE CURSOR RIGHT *) ADVANCE; 'L': (* MOVE CURSOR LEFT *) IF COL > 0 THEN BEGIN COL := COL-1; IF (((COLEGIN ALTERED := FALSE; BLOCKOK := FALSE; CLOSE(PFILE); WRITE('Filename: '); +1) MOD 4) = 0) THEN WRITE(LEFTCOL); WRITE(LEFTCOL); END; '0','1','2','3','4','5','6','7','8','9':(* CHANGE  READLN(TITLE); FILEIO := (LENGTH(TITLE) > 0); IF FILEIO THEN BEGIN OPENOLD(PFILE,TITLE); FILEOHEX DIGIT *) BEGIN IF ODD(INX) THEN .INX := (ROW*60)+COL-1 ,ELSE .INX := (ROW*60)+COL+1; IF INX < 1024 THEN K := (IORESULT = 0); IF NOT FILEOK THEN WRITELN(IORESULT,' error on ',TITLE); END ELSE BEGIN PROCEDURE GETVAL; BEGIN CLEARSCREEN; WRITE('Fill with what hex pair:'); REPEAT CCH := READCH UNTIL CCH IN ['0'..'9', BEGIN BUF.HEX[INX] := ORD(CCH)-ORD('0'); WRITE(CCH,LEFTCOL); ADVANCE; ALTERED := TRUE; END; END; 'A','A'..'F']; IF CCH IN ['0'..'9'] THEN VAL := ORD(CCH)-ORD('0') ELSE VAL := ORD(CCH)-ORD('A')+10; WRITE(CCH); REPEAT C'B','C','D','E','F': BEGIN IF ODD(INX) THEN .INX := (ROW*60)+COL-1 ,ELSE .INX := (ROW*60)+COL+1; IF INX < 1024 TCH := READCH UNTIL CCH IN ['0'..'9','A'..'F']; IF CCH IN ['0'..'9'] THEN VAL := VAL*16+ORD(CCH)-ORD('0') ELSE VAL := VAL*1HEN BEGIN BUF.HEX[INX] := ORD(CCH)-ORD('A')+10; WRITE(CCH,LEFTCOL); ADVANCE; ALTERED := TRUE; END; B WRITE('Unit to patch [4,5]'); REPEAT READ(UNITNUM) UNTIL UNITNUM IN [4,5]; FILEOK := TRUE END  END END; END; BEGIN INITIALIZE; REPEAT OUTER UNTIL CCH ='Q'; CLOSE(PFILE); END. PROGRAM TESTRATE(INPUT,OUTPUT);   CONST #BASELINE = 5.09; #LOWRATE = 0.52; #HIGHRATE = 0.52; #MINIMUM = 100;   VAR #READING, COST : REAL;   BEGIN #WRITELN('ENTER METER READING.'); #READING := 1; #WHILE READING>0 DO &BEGIN )READLN(READING); )IF READING > MINIMUM ,THEN /COST := BASELINE + MINIMUM*LOWRATE + (READING-MINIMUM)*HIGHRATE ,ELSE /COST := BASELINE + READING*LOWRATE; ,WRITELN('READING = ',READING:3:0,' COST = ',COST:5:2) &END; #WRITELN('THE END')  END.  O^؞؞O^{C   PROCEDURE GETBOARDSIZE; #BEGIN &WRITE('Maximum dimension of board :'); &READLN(BOARDSIZE) #END;   PROCEDURE GETORGAN VERTOFFSET := UP TO DOWN DO ;IF (OLDBOARD[I+HORIZOFFSET,J+VERTOFFSET] = '*') >AND ((HORIZOFFSET<>0) OR (VERTOFFSET<>0)) >THEISM; #BEGIN &WRITELN('Enter coordinates of initial organism,'); &WRITELN('Terminate entry with a 0, 0'); N ANUMBEROFNEIGHBORS := NUMBEROFNEIGHBORS+1; A{ That last test is to insure we do not Ccount the cell as a neighbor of itself&READLN(I,J) {Enter coordinates, terminate with 0, 0} #END;   BEGIN { Game of Life } #SURVIVEPOPULATION := [2,3]; #WHILE .} A{ Now see which cells should be alive in Cthe next generation. } ANEWBOARD[I,J] := ' '; AIF ((OLDBOARD[I,J] = ' ') AND NOT EOF DO &BEGIN { Here is the input section. It initializes all the 0necessary parameters and creates the initial board. }  GENERATION := 0; )GETGENERATION; )GETBOARDSIZE; )IF BOARDSIZE > MAXBOARDSIZE THEN ,BEGIN /WRITELN('BOARDSIZE TOO BIG - WILL RESET TO',MAXBOARDSIZE); /BOARDSIZE := MAXBOARDSIZE ,END; )FOR I := 1 TO BOARDSIZE DO ,FOR J := 1 TO BOARDSIZE DO /OLDBOARD[I,J] := ' '; )GETORGANISM; )WHILE (I<>0) AND (J<>0) DO ,BEGIN /IF (I<1) OR (I>BOARDSIZE) OR (J<1) OR (J>BOARDPROGRAM GAMEOFLIFE (INPUT,OUTPUT);   { Program to play the Game of Life as described by H. L. Conway "at the University of CSIZE) 2THEN 5WRITELN('ATTEMPT TO INSERT ELEMENT IN NONEXISTANT', =' CELL AT LOCATION',I,J,' VALUE DISREGARDED') 2ELSE 5OLDBambridge }   CONST MAXBOARDSIZE = 10; {Maximum board size}   TYPE STATE = (DEAD,STABLE,GROWING) &NEIGHBOR = SET OF 0..8OARD[I,J] := '*'; /READLN(I,J) { Read location of next organism. } ,END; )  { The actual board processing begins ; &BOARDS = PACKED ARRAY [1..MAXBOARDSIZE,1..MAXBOARDSIZE] OF CHAR;   VAR SURVIVEPOPULATION : NEIGHBOR; &BOARDSTATE : STAhere. } )REPEAT ,ALIVECOUNT := 0; ,CHANGECOUNT := 0; ,FOR I := 1 TO BOARDSIZE DO /FOR J := 1 TO BOARDSIZE DO 2BEGIN TE; &NEWBOARD, OLDBOARD : BOARDS; &I, J : 0..MAXBOARDSIZE; &NUMBEROFNEIGHBORS : 0..8; &GENERATION, MAXGENERATION, BOARDSIZE 5{ First we must compute the number of neighbors for 7a cell at coordinate I,J. We must make sure that 7the cell is not on an: INTEGER; &ALIVECOUNT, CHANGECOUNT : INTEGER; &LEFT, RIGHT, UP, DOWN, HORIZOFFSET, VERTOFFSET : -1..+1;   PROCEDURE GETGEN edge. } 5IF I>1 THEN LEFT := -1 ELSE LEFT := 0; 5IF I1 THEN UP := -1 ELSEERATION; #BEGIN &WRITE('Number of generations :'); &READLN(MAXGENERATION); &IF MAXGENERATION=0 THEN EXIT(GAMEOFLIFE) #END;  UP := 0; 5IF J=MAXGENERATION); ) ATE; &NEWBOARD, OLDBOARD : BOARDS; &I, J : 0..MAXBOARDSIZE; &NUMBEROFNEIGHBORS : 0..8; &GENERATION, MAXGENERATION, BOARDSIZE WRITELN('END'); )END { Of a single data set. } &END { Of all data sets. } { GAMEOFLIFE }.   : INTEGER; &ALIVECOUNT, CHANGECOUNT : INTEGER; &LEFT, RIGHT, UP, DOWN, HORIZOFFSET, VERTOFFSET : -1..+1;   PROCEDURE GETGEO^NERATION; #BEGIN &WRITE('Number of generations :'); &READLN(MAXGENERATION); &IF MAXGENERATION=0 THEN EXIT(GAMEOFLIFE) #END;{   PROCEDURE GETBOARDSIZE; #BEGIN &WRITE('Maximum dimension of board :'); &READLN(BOARDSIZE) #END;   PROCEDURE GETORGANISM; #BEGIN &WRITELN('Enter coordinates of initial organism,'); &WRITELN('Terminate entry with a 0, 0'); D(NUMBEROFNEIGHBORS=3)) OR D((OLDBOARD[I,J]='*') AND D(NUMBEROFNEIGHBORS IN ESURVIVEPOPULATION)) DTHEN GBEGIN JNEWBOARD[I,J] := '*'; JALIVECOUNT := ALIVECOUNT + 1 GEND AEND; { Of the processing of each H individual cell. } A A  { We have now completed a new generation. Print it 7out and copy it back into the OLDBOARD to 7get ready for the next cycle. } 5GENERATION := GENERATION + 1; 5WRITELN; 5WRITELN(' GENERATION # ',GENERATION:3, =', POPULATION = ',ALIVECOUNT:3); 5FOR I := 1 TO BOARDSIZE DO 8BEGIN ;FOR J := 1 TO BOARDSIZE DO >BEGIN AWRITE(NEWBOARD[I,J]); A{ See if anything has changed Dduring the generation. } AIF NEWBOARD[I,J]<>OLDBOARD[I,J] DTHEN GBEGIN JCHANGECOUNT := CHANGECOUNT + 1;PROGRAM GAMEOFLIFE (INPUT,OUTPUT);   { Program to play the Game of Life as described by H. L. Conway "at the University of C JOLDBOARD[I,J] := NEWBOARD[I,J] GEND >END; ;WRITELN { Begin a new line. } 8END; 2{ Set a flag indicating the state of thambridge }   CONST MAXBOARDSIZE = 10; {Maximum board size}   TYPE STATE = (DEAD,STABLE,GROWING); &NEIGHBOR = SET OF 0..E  DO /OLDBOARD[I,J] := ' '; )GETORGANISM; )WHILE (I<>0) AND (J<>0) DO ,BEGIN /IF (I<1) OR (I>BOARDSIZE) OR (J<1) OR (J>BOARDdy for the next cycle. } 5GENERATION := GENERATION + 1; 5WRITELN; 5WRITELN(' GENERATION # ',GENERATION:3, =', POPULATION = 'SIZE) 2THEN 5WRITELN('ATTEMPT TO INSERT ELEMENT IN NONEXISTANT', =' CELL AT LOCATION',I,J,' VALUE DISREGARDED') 2ELSE 5OLDB,ALIVECOUNT:3); 5FOR I := 1 TO BOARDSIZE DO 8BEGIN ;FOR J := 1 TO BOARDSIZE DO >BEGIN AWRITE(NEWBOARD[I,J]); A{ See if anOARD[I,J] := '*'; /READLN(I,J) { Read location of next organism. } ,END; )  { The actual board processing begins ything has changed Dduring the generation. } AIF NEWBOARD[I,J]<>OLDBOARD[I,J] DTHEN GBEGIN JCHANGECOUNT := CHANGECOUNT + 1;here. } )REPEAT ,ALIVECOUNT := 0; ,CHANGECOUNT := 0; ,FOR I := 1 TO BOARDSIZE DO /FOR J := 1 TO BOARDSIZE DO 2BEGIN  JOLDBOARD[I,J] := NEWBOARD[I,J] GEND >END; ;WRITELN { Begin a new line. } 8END; 2{ Set a flag indicating the state of th5{ First we must compute the number of neighbors for 7a cell at coordinate I,J. We must make sure that 7the cell is not on ane board at the 4end of this generation. } 2IF ALIVECOUNT=0 5THEN BOARDSTATE := DEAD 5ELSE 8IF CHANGECOUNT=0 ;THEN BOARDSTA edge. } 5IF I>1 THEN LEFT := -1 ELSE LEFT := 0; 5IF I1 THEN UP := -1 ELSETE := STABLE ;ELSE BOARDSTATE := GROWING ,UNTIL (BOARDSTATE=DEAD) OR (BOARDSTATE=STABLE) /OR (GENERATION>=MAXGENERATION); )  UP := 0; 5IF JAND ((HORIZOFFSET<>0) OR (VERTOFFSET<>0)) >THE GAMEOFLI N ANUMBEROFNEIGHBORS := NUMBEROFNEIGHBORS+1; A{ That last test is to insure we do not Ccount the cell as a neighbor of itself &READLN(I,J) {Enter coordinates, terminate with 0, 0} #END;   BEGIN { Game of Life } #SURVIVEPOPULATION := [2,3]; #WHILE .} A{ Now see which cells should be alive in Cthe next generation. } ANEWBOARD[I,J] := ' '; AIF ((OLDBOARD[I,J] = ' ') AND NOT EOF DO &BEGIN { Here is the input section. It initializes all the 0necessary parameters and creates the initial board. D(NUMBEROFNEIGHBORS=3)) OR D((OLDBOARD[I,J]='*') AND D(NUMBEROFNEIGHBORS IN ESURVIVEPOPULATION)) DTHEN GBEGIN JNEWBOARD[I}  GENERATION := 0; )GETGENERATION; )GETBOARDSIZE; )IF BOARDSIZE > MAXBOARDSIZE THEN ,BEGIN /WRITELN('BOARDSIZE T,J] := '*'; JALIVECOUNT := ALIVECOUNT + 1 GEND AEND; { Of the processing of each H individual cell. } A A OO BIG - WILL RESET TO',MAXBOARDSIZE); /BOARDSIZE := MAXBOARDSIZE ,END; )FOR I := 1 TO BOARDSIZE DO ,FOR J := 1 TO BOARDSIZE { We have now completed a new generation. Print it 7out and copy it back into the OLDBOARD to 7get reaF  ڟá#can not deleteptr - not there4á 4Z jڑNumber of generations :m máFMaximum dimension of board :l ّؑB&Enter coordinates of initial organism,Terminate entry with a 0, 0j *ژؘ&*$*$$&i *  nl šA!BOARDSIZE TOO BIG - WILL RESET TO  &(*٘&($*($$l jl wjwȡ9 il xixȡj i  iijjj˧i˄jɧjlōiɍilō(ATTEMPT T&&P1ǀ%   26543 ȡ O INSERT ELEMENT IN NONEXISTANT CELL AT LOCATIONj i  VALUE DISREGARDED<!4ܟˡ ܢ55ڟˡ 262ȡ"7272 j i *j i po jl wjwȡ il xixȡjš vvjlɡ  á after sort 62š72 áafter doactive72uuiš ttilɡ sskvruyryȡZtqszqzȡ9j6 á after donode2ɡ"W & 2"Մ! welcome to seeabuggerr iq *çr˧qˍ kkqqrr7j i  j i  çkÄj i !enter to enter a command>  1 - addnode2 - deletenode*çk7j i *ppiijjnn GENERATION # n , POPULATION =  3 - addptr 4 - deleteptr 5 - setview6 - drawp  jl wjwȡ il xixȡ~7j i 7j i j i 7 - init 8 - debugger9 - exit id,wx,wy,wz,xdiˡ.ooj i 7j i iijjާpáoáÍnmčڶENDm,ydim,nline     EhIdpG0, ).vi  j i  çkÄj i G CX BUGTEST FWRITERE     آآ آ آ  go.( SEEABUGG ٨ )1&: ڨ٨  id  src,dst,linetype   src,dst  vx,vy,vz   تPR$٨   D DCC  1"-!)cli  )'%#'&zL lVp "F D DCCآآZf"!!l"> D"src,dst,linetype  "  d آ src,dst  آ آ آ     vx,vy,vz   Z    X C Y Z MAXNODE 2LAB ACTIVEPTACTIVE 5Y    ZREALLAB SCREEN 1RECLIST 3INTEGERLVIEW BOOLEANLNODE PTR     ]W  TOO POINTER 4FROM DRAWBLOC  DRAWLINE NTOP 6NTABLE 7STRINGLA  *     (     H ''J ب DEDEȡCFCFȡ#CDCDC     ٥72DCDCD`b @ 6 ȡ;72á ޚߓ72áޚ߄CCDD# ȡJȡ8áinvalid pointersource  ok bad destination RI b262ȡ622 ġl7272š67272 ߡ ok badenterring debugger)  F72727272 3á  ا33ا3ث3٨ب ڢڢ 472ڟˡڢÍ|ڢá   R       & ܨ  ۂ  ڂ    ݂  ܂  ەڂۂá1آآآ/آآآڂەڕ u1آآآ9-آآآáۂ ڕ NHA; 4.'! H;TG .)آآآ+آآآ])آ!T$NHN:$4.4-6''آآ)آآآ7272!G6AA;hbn[UabtUo1@t 7272   #= 72 72t1@ttxrH ; . !  $ڨ٨ '('(ȡ' :     = $'$'$''    <    =I  nodes,2 - ptrs,3 - activeptr,4 - bugtest%5 - drawl,6 - drawb,7 - view,8 - exit>*ژؘ&*$*$$&+ +6.9.9ȡu7.2:. : :: : :&(*٘&($*($$ ..4//ˡR/ 0true 0false/ / 0//5//ˡb&&P1ǀ%   26543 ȡ / //9 9 9 9 9 bugtest[i] := j (enter i<!4ܟˡ ܢ55ڟˡ 262ȡ"7272 ,j). - . -(src,dst : coordinates;linetype : integer63 á after sort 62š72 áafter doactive72. 63. 0p : coordinate; deltax,deltay,linetype : integer6. - 6 á after donode2ɡ"W & 2"Մ! welcome to seeabugger, 6.-, .9.9ȡ...!enter to enter a command>  1 - addnode2 - deletenode...>_8w",w[r 3 - addptr 4 - deleteptr 5 - setview6 - draw á   ٧5٫5٢ ٢ ڢ٢ ٢  5ˡ ݚܚۚߢߢߢߢ 626762 ޚߚ   ؕ  ٧6ȥ72˄72á]724ڟˡá6ȡ7      ؚ     5á5272626/P ۧ4۫4ۢښۢٚۢۢ.44ڟÄ+ :ب    ` ڟá#can not deleteptr - not there4á 4Z jڑ enter x,y,z   ZتP,1 -ّؑJ   id ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ src,dst,linetype   $ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ src,dst   š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂݂:  ݕ 0 . ݑ0 vx,vy,vz    ݕ݂ ؂ ɡ  (, l  \.N8~R(<H "#&#b'N( ZP&1"-!)cli  )'%#' `x7 7 ttw j7 "j^^R7 R CptE`eE -00(7 $m-  ` ~ nm- ` ~-     5  \j \  @ @xnE ,mna R Ha H R e<! F  (&   _d 7pdTTTTT&fE CE ww  wRCaE ee e dwH J7 D aw> w* (7 "D 7Da7  -w` F wz tE WuEB  N uED 7>tEpWuE` mtEp  uE`  &  & w %% | x |rntjfhX  m %   ACBvC@A CBv xC L@P\L -LL   *      l  b  7 - init 8 - debugger9 - exit id,wx,wy,wz,xdiM|C L@A C@Pmlm`A C@xm\mPe:86VTLXjh|lm,ydim,nline     00000000 ɍ -   $ $K w!     a  E _ vJ  b h^  XVD$`h d  20$`    747( a "  ` $$ _ * ˕͕07 7   ͕- ͕0  F\   F  ##- (    "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  6  _ ;NJ#&;KLZzĊ @" R _XNJD 4; RELEASE ;!IORESULTL