IMD 1.17: 23/11/2010 20:15:32 03 system a upgraded system 'a' pascal morris - 4/15/81  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lŗkm HBf     &  E4cF XREF.CODE4cw CHECKER.CODE4c CHECKER.PMD4c CHECKER.TEXT4cINVERSE%C e U7F ?IO ERROR WHILE BOOTING? 7$ ?NOT ENOUGH CORE TO BOOT?  .CHRSETcCURSIVE.CHRSETc LARGE.CHRSET4c  e   ևߕ vߕ 7| SYSTEM.PASCAL? w7b SYSTEM.INTERP? @Aw  `! mG~d!~  ^\F C& J&  0  EN  ~  _~U@pe5w E ŋw Ŋw C! @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ NEWSYSv  SYSTEM.CHRSET4c ESYSTEM.COMPILEREv SYSTEM.EDITOR4cv SYSTEM.FILER4cx SYSTEM.INTERP4c SYSTEM.PASCAL4c SYSTEM.SYNTAX4c CHEDIT.CODE4cܡ CALC.CODE4cܡ COM.CODE4c  COMPARE.CODE4c DECLIST.CODE4cܡ-INPUT.HELP.TEXTS-0 LOWER.CODE4cܡ0< PLOT.TEXT4cx<G RT11.CODE4cܡG` SPRUCE.CODE4c`b UPLOW.CODE4cܡbl LISTER.CODE66$$$~$~$$>> >&&228DD800   $~$|8884cLlp GRAPH1.TEXT4uzpr GRAPH1.CODE;z GRAPH1.PMD;$z COM.DATA.TEXT414z PROSE.COD ~888``0 @@<@@> 0($~ >>@@B<|>BB<~@ 8> BB>BB>"rBB^@BBB~BBB>>x ">F&&F~BfZBBBBBFJRRbBBB>"BB<2   x0 PASCALCO B<@B<~BBBBBB<BBBB$$BBBBZfBBB$$BBBBB$~B <B~>> 0``|@@@@@|" ERROR COMPINITFINISHCODECLARATBODYPART <@\F|:FBF:BBBBBBB>>pp`> ہہǻ//٢٢..٢٢--٢٢,,٢٢))٢٢**(٢(ý8TT8٢٢-++,٢,٢٢-( (٢P٢٢٢/٢ ٢ ٢-٢P٩  @@ ýýýÿýߢ ؚߢ (٩ ޢ ,ޢޢؚޢ @INTEGER Ч/REAL Ч.ýýýݽݽCHAR Ч-BOOLEAN Ч,STRING Ч(TEXT Ч+SMALLTEXЧ* ۦMAXINT Щۢ /ۢۢFAýýÿ۽LSE TRUE ,ٚ ۦNIL Щۢ )ۢۢۢ9 9ئ Щآ آ8  IORESULTЩUNITBUSYЩPWROFTENЩUNITWAITЩUNITCLEAЩHALT ЩMEM H@&UCSD Pascal Compiler [ U of M version @A@ ]@(C 1?>u ;l؟AVAILЩWWȡܳI0ܹ, XX /X-/ XX .X. XXXآآآ11آآئPROGRAM Щآ آآآآآ?آآ آ$zNhfXXX ۚXp/g, XX /XL.FA9/0( b[B>R( ` "$ h 66?1ˡ 11á \T$=7ݡ  XXXXݡXX؟ˡYYYX ښXؚdn?>! \*    ; Al؟آآآ =ȡ*=ˡ=&ؚآ(=آ&ث==ˡ ==F X 0:32$#!"'Ɓ-?́.*SYSTEM.SYNTAX"á'Ɓ. Ɓ/Pʁ.ʁ.áƁ/@Ɓ/@ @E%& @IFEK?JD >BǁNJ PPROGRAM Щȡ'6rror #@ @r^^^Dˍ^D^ثA @Iá @1I I I \READ READLN WRITE WRITELN EOF EOLN PRED SUCC ڢڢ Щ/ h8dh`|dLt\ORD SQR ABS NEW UNITREADUNITWRITCONCAT LENGTH INSERT XTBxP تP"ˡA@ Can't open @@.@@DELETE COPY POS MOVELEFTMOVERIGHEXIT IDSEARCHTREESEARTIME FRT7@@ Compile: iƂPiƂƂP=̂*Ƃ*ƂPƂ*.TEXTUƂ*ILLCHARDISPOSE SYSINFO REWRITE CLOSE SEEK RESET GET PUT SCA=TEXT̂*Ƃ*ƂPƂ*.CODE[*]XƂ*CODÊ*Ƃ*ƂPƂ*.PMDTƂ*PMDˡN BLOCKREABLOCKWRIDRAWLINEPAGE SIZEOF DRAWBLOCGOTOXY fǑ @H a>>??ˡ?إ e ???إآ>آ آ "آODD ЩCHR ЩTRUNC ЩROUND ЩSIN ЩCOS ЩLOG ?ˡh 66?1ˡ 11á \T ЩATAN Щ LN Щ EXP Щ SQRT Щ MARK Щ RELEASE Щ?>! \*    ; Al؟آآآ ڂڕ@ڕǴ@ <---< Error!@@Error # @ @ in PROGRAM Я @ main prograō P Pˡ ߧ(   ߟˡiߢ   ǔ ޚm@ procedure @=ˡ@ , in file @=@@/Compiler: Continue Detail Edit Q   ߢ ˡk ߟˡ/á&ˡ .áǏ š f ߚ ˡ AáE EGG f@??ȡT6?š=@Segment @٢@ @ worٟ%4b ڟ˶zcڧ/ڧ.˄2ġ%ɡ܂4ds.@??@F @ linesGš[@, @G< @ seconds, @GF @ lines pɡ۸km2S@š  ڢ ڢڢڢer minute. .@@C" @ identifiers left. ??ȡ6?????ȡ1/ ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢ6?ȡ٢ ??H%/@Errors in Pascal program.@٢٢٢á   ٢ ٢٢٢' ' á  2| G f@??ȡT6?š=@Segment @٢@ @ woráU  ˡ8ȡ,. m   ء n   ds.@??@F @ linesGš[@, @G< @ seconds, @GF @ lines p ł      ˡ  o   ٢er minute. .@@C" @ identifiers left. ??ȡ6?????ȡ1٢ ٢٢   ˫ á (  š ڂڕ@ڕǴ@ <---< Error!@@Error # @ @ in PROGRAM Я @ main progra6?ȡ٢ ??H%/@Errors in Pascal program.@m@ procedure @=ˡ@ , in file @=@@/Compiler: Continue Detail Edit Qd ddá lˡ  0  ߚuit &iٳAa@ٹ8@^D^A^=P*SYSTEM.EDITOR.P -DE@> " "ˡߢ á ábQǐč ^ٳ@  ^ثA @Iá @1I I I ǔ   ߢ ˡk {ߧ(Äd  ާ/á4  Í ii   á< ۢۢڢؚ   ˫ ˡ   ߚ  ˫ á ۥۢ ۢۢ) Ä  آ ٚآ# ˡ ál ˡ áá&   ޟˡ ߚ ˡ á ݥݢ ݢ) Ä ڢ ۚ0á؟*//+" f   آآg' ' á)  إآ  آ0ٟˡ)گ ٧0ˡآ0# 0ˡu 0p آ 0$ ˡ ˧   l     آآآ1 ݥݢٚݢݢ ݢݢ;L L˫آآ   ˡ?ȡ/.á m /á Ǖ  q ˫Lٟˡ>ݢ ۚݢ܂á۟ˡáݢllؚ#      ˡ  ál  %ȡآآ آ آL0ˡu 0)- 8  áw @ ˡG    ȡ ǎ  ض  ás   á !@á  ˡ 6  ߚ;  ˡ0Ŷ/Í.Í s .ár   آآˡ(ض .˫\   ˡááy  ȡ 䏂ߟˡ š ǩ  ` ``d á+á'L   ( (á(@ !) L ,á -á~ ɡ l  ł l آˡ\ޚ˄< Í áߚ b*á Y.áT  á ߚߟˡ,,( ޚٟm  hlˡTáÄ Ä%á Ä Ä öń ˡ%      ł  # ˫ ( ٟá249 #Ol؟ٓˡ Ǧ ٓ ڢȡڢق  @ǀ 3áná šˡ ۚš$ ġ #٣ ǐ  "٣ 2٣ ٣ Í٣ Ä٣ á" ٣ ٣ ˡń á _ٳ0d@ HJ'ÍȄ'á ؂ ؂ #Ȅ؂  أأ áأ أ !أ á'أ  6;أ أ láأ ;á'6Ǡ áإآ آآآآآ;آJآ?>>JǕá Jخ @MÍǀ   Gڳáقšخáخǀ  خjJáآآqˡCأá.ˡ(أ á أ  أ š? ˡ ?Mخaǀ Ȅ ?á(ܢá  .JǏ ox xء`& Ǐ @? >?J >š J Ǐ á 6?ܢ9á ܢSá ܢ ة á&ǀ  ȡ > á$á 5; K ܣ K;ɡ;;  ɡ. lޡ N  ,ˡLJ !خ ٢`m ۢۢAá8`mɡ1ɡ! ɡ9S áޓܢۚo ޓܢۚáPá4ޡz ܢ ݚݟˡ x ܢ  خ? b á ا;"ˡd.˄)á.á33ޓ{ =ޡǡ ܢ "Ú 3=  E'6(#":<> & lA˄ ˡA,+86<< < ; KءJ?$?؟ˡڦINPUT Я ڦOUTPUT Я qڢ  کˡǐ #;=? 3.RˡZB &ǐ 9%2 ˡ"g  ۢ +ۢ *ۢۢۢ;ۢ٢llٚڦINPUT Я ٫3٫2 #" J7h؟ˡB٣ á٣ á%٣  2;٣ ٣ ٣ á'٣  6;٣ ٣  P#á á á á!áˡ&=ݍ ˡˡ NJ  ˡ ˡq ˡ J˶ 8  !P=a rx J J ( $  3=      ˡ  šNj ˡC,á ! @$Ȅ 3ǔ $ȡ 'ǀٿ:ǀ &á(ڢ ńˡ  &ˡˡ nj ˡ  á ǘ  ٣  NټA@BDF T&~$/ˡ/á.á} /ˡ/á.á} /ICVACELICELICELIS5.ICVACELICELICELIS6.Äخ dž "1À/'á  / ܟ˄ybܧ//Ä0+ >/  ˡ /ˡ} ܧ..Ä   dž 2+.1'/1 /1,1 j*#  ./ CXLICELI.  / VACVACELS2. VACVACELS3.V/Äڮ7+..Äٮ ö خ dž R2 (` .! /á   ٮ 4 4 á 9خٮ 4خ ٮ ^8  9ٟ߮ˡ٧.Í ǐ$&NHF@F@>X !& -H  X4ڟáR@ڧ/á$ڧ-áڧ.áڧ,á    ٟˡ_ Pܟˡ ȡáǜ   ܚޚ۟?Hd?کٚ ػ(@٣٣ Ä˄,٣ ?áښǓ ˫4Pڟˡ9˫ Í߮ ݟˡc ݚ@٣ @ˡAˡA^Aš'?K@ĥl˄lA6>?؟ˡVܟá , 9 š  ݟá >=kJK'9 خ  D٦INPUT Я ٦OUTPUT Я CONSOLE:Ю ٮ ? Ю ˡW áN٦INP4P˫ 5خ EG V: ٮ @ خ 6UT Я ٦OUTPUT Я (2٣ ? Ю ٦INPUT Я Z Cl؟ˡL2ڣ 2ڣ á49ٮخ @;áW  á   Ǜ ؟ˡŧ. Ǐ  A -á,áCT dBl  ˡ# `mˡǨ  áWˡ>ˡǐ 0 ! ؟ˡç! Ǒ 3  ǀšáأأK ; &&6?@ˡsˡǐ e V ؟ˡç! 8߮  6šá40@@K@ ;ȡ@ ˡ @@? ?;ȡ@ Ǒ 7 @ !64 á9߮ [<á @ @ words code,@ @ words data.@("  @ ids left.@>u 7Bخˡ}áq ɡd lálۢۢۢ08lۢۢD#   (CɡC؟ˡ𥁳ةأ ˡáˡ{ ńU 2 6 0š nj ˫64ڕ ٕ =#áZlޤˡ *ˡ)( á   ????????ЩFEl ˡ ($(ǒ 8Z<I: ǁ  b5#Mlڤˡlڤ؟ٓá lޤߟˡ$ áǥ  ǧ ġ UD P9ٓǧ 0K b64P˫ 8: B7 ˡݹD<ܣá ܮ5^7Z6V8R9N;J:F6L  "    $áˡ۳aA,Í + ۹Z+ë"ڳ0á ڟˡá -Ä   h2  B4P˫ Xl ˡK2 ؟ˡ+أ á$?ݟˡl+ëea-ë Z+ë!S-ëL-ë!!!"0bu(b_J KWRM&J ,ˡ  ؟áV!أ áA - áD_  >   áá)}Í /1.:<J< ' 09ō.á;n   b N\FrJ*4"* Z !6""L##$# %%|&z'()&v*,++,,-<-+^--V.j../ 0L0D 0.ˡ1  09Ȅ á EáQ  -á   +á 09Ȅ *ˡ)( á   ????????ЩFEl ˡ  ɡ áK ȡ2 䂾7ń  䂾0 #ث  ȡ   B4P˫ Xl ˡK2 ؟ˡ+أ á$?ݟˡ0 ġ 䂾0ڕ$ ȡ 䂾0  á $ $$  ؟áV!أ áA - áD_  >    b>0􂾹 }*á * Dá IS=ˡD===أDأ أIDˡǑ Ǒ á á D .á  =á  '((')Dlڟá lؚ8؞áe á ؞á٢ؚ٢ ؚآ آ<bFF     =>) )=á    {  "$&(*,.áI á á P P XBڢ١  ڢō 2468:<F2 TVXZ\^`bdf nprtvxz|~)(4 Bڢڢ ڢڢ􂾿'á'ˡڢڢ%ڢá ڢ B B0á áǐ   (ٟˡإˡ؟؟ +ö-Í +ë á 'ˡǚ 􂾶ˡ *á =٢"٢ I٢$D=  ġ=lڟˡ)áڣc 'g  'Dh 947(6؟áآ(==&ؚث==٧B٢&"ˡ0.TEXT#"ˡǓ D(854ښ á !ڧ-áˡ <  <==$á l <<ˡ<á  <<\set View Zap ?P54 A @ ?>=< ;:54ȡ ABCDFGIJL M <ˡ<á   <ˡ<Ä  L<ˡ; Kݣ P Q R STVXZ,>.+-?/=<á(٢&J?<!< <=L<á< < <ݢݢ ݢ1ݢ ݢ;ݢKݢݢܚ <án6٢9٢ 8٢7   A?09ȡ     ƓƓ?X\OƄiƄCONSOLE:Ƅi?Ƅ@ƄhCONSOLE:Ƅ@?ƃƄ?ƄƄ=?ƁƂ?>Edit:PƓ*:system.syntax"á' ' Ɠ'̓̓̓ʓʓʓ˄̓ʓhh%á9á-$ ާ( ޢޢ ǁ񨀁 إ  (`á  áX  G \P  ƄiƄ@ƃƄƁ )^ :(2*nrˡ:ާ/á á(ާ.áá ᚹi J#áá /إ /$áá .إ v4á   <ˡ<Ä  L<ˡ; Kݣ  j   ޚ T á۟ڟÍá : :&J?<!< <=L<á< < <ݢݢ ݢ1ݢ ݢ;ݢKݢݢܚ <án Ä ޓ%  :: ߫:  Ä*  ( ( ) EDITOR  cݟܟ˄ބ ݟÄܟÄÄÄ"   _ % INITIALIFINISH ENVIRONMBLENDZAPEDITCORE á á ,0H5 | ġ ؿ $šۂٞقق짂؍-ˡǒ ٕáo~Jġ@ؤ? J 6?@ ػٳ قػ0 (Ǵš *:)KEd: Ad@&> R؟ˡN٣0;٣ á4٣ á-٣(u@@@ undefined\# just Copy Delete Find Insert Jump Page Quit Replace Xchng ?P)KEd: Blend Go Marginize Type  0 ȡض 2IJ ø"ˡ؂8 ٶN 2 𥂮bAZaz09 AAKP ,š ٶ .š#á  ##<$File Read error$4Error # . Type  . Type  áآآPFile too long to fit in editorNP# ؓا - for ¦ D%  šۊoHۊܳHpaFDsysterm:š$new file to exit.:DȡDD  D Quit: U7 Update D and leave.TEXTDD˥DȍDDP.TEXTUPĥD"˲-Not present. Enter Edi Exit without updating* Return to the editor without updating* Write to a filt file PV DªPš DPPDPDV#-Edit: e and return to editing$ Caution:7( The file overflowed the editor.Enter edit file PÍڡb"D Hȡػǀػ$2  $* There were read errors on blocks ڥ$]ء and $6ڥ$áʓ̓ʓ ʓ ʓ0̓ʓ̓ʓˡ,' ʓ ʓ̓ʓá ʓ̓ʓáMVU  bár ȡ0ȡd٤؂d٤؂ áTʓ̓ʓ ˡ:̓ƓPƓ QƓPʓʓ̓Ɠ Pd'xReading ȡû򥂮ȹkbˡdc^ TȡDˡ Reading filebb .#$rڂ˄ڂá𥂮bAZaz09 AAKP ,  ڂ  ڂ ۂš ۂ܂ ەق ūۂٞق ؂4Error # . Type  . Type  áآآP   ī؞؂ < bɡ   øڂ%  šۊoHۊܳHpaFDsysterm:š$"ˡx .?!! DISK READ ERROR - BLOCK NUMBER ## LOST !!?Щ. $ 0% 0. .$$ٗB Í   šx~`p4^*&h$<   ɡ<JئPˡ( QP0 /R<11ءTrueFalse.  ڳ@ T or F++P+[Q+ǡ+]Ǣ+"ضÚZš$1Yˡ4 ڳ@TÚTrue False  ݳ . ɡu  YY ġ ɡ ݂0ݳȄܓM= Must be in range [ .. ] .ɡ6Y Y. L1 is  ݧ6Íܡޚ  ا9á{ETX}K á{CR}7اAá{TAB}! ɡ^ characters long. , Writing 󫂭BY @jئؾɡ% ؾٿٮ\áؾC PbYb1Yˡ | D#Ą11 > Auto indent  Filling  Left margin   RightDo you want to: Exit from the editor Return to the editor   margin   Para margin   Delimit char  SeekEÚ 8 b11"áI already exists. Overwrite  tokens  Ignore case  Go command \**ȡ+*á it? Yá  ءx "DP0***\D File is unnamed$ File title is D , Edit Cycle  Error while writing filekeKNo such volumeJ Bad file name5Not enough room for file  Editing time: opC  hrs. <  mins.   thru   ڧ#š of the file. 8&R F31Y?:6 2.EW& 3 ,$41Name of output file: ?.TEXT˲ȍ P.TEXTU hn &^b.p  b11"áI already exists. Overwrite PV šۊoHۊܳ:HaFDɡ&  it? Yá  ءx "DP0    characters, C % full.*! ( ** File overflowed editor ** ) PATabs: Set Clear Zap Evenly Quit P ȡV Patterns:/ = 'Wǀ'V- , = 'Uǀ  ;! 򕀑š 򕀕 XPšA'Zap: Delete more than 80 'cš Markers: *c  *ȡH* :d**ácharacters ?   YáVƂ3Ƃ[? Blend in file:P   **Y <8Environment: { options } Quit to leave [ Edit 8.TEXT   ȍ" ̂[Ƃ[ PƂ[.TEXTUƂ[PƂ3Ƃ3 ̂[Ƃ[ Can't find Ƃ[ [Ƃ[. Blend iA9.:1; ] >P  9;  ="n file: lƂ[P"á ġá BlendingƂ33ٞ"ˍړ@ | t*Go command: enter commands, type \ to end  .3 ۂ ء3۞ۂ ؍١ Disk errorءBuffer overflow.ߕ܂ -AS&} Zf"9; 5*,[@ Ƃ3 " áj Blend in file:P  Oȡ# |. + > Oȡ| & .ɡ.TEXT   ȍ" ̂[Ƃ[ PƂ[.TEXTUƂ[PƂ3Ƃ3 ̂[Ƃ[ Can't find Ƃ[ [Ƃ[. Blend i* |ɡ*  Tab Spacing:ȡ؎ûn file: lƂ[P"á ġá BlendingƂ33ٞ"ˍړ@ PATabs: Set Clear Zap Evenly Quit P ȡ ë ><. ݂ Ą Invalid copy݂ġNo room|!  ȡ 1234567890!C    á š]݂ȡ%Ʉ ݂݂  ]  OɡL C ? ;7CZ0  3$&(*,.GQá  Eá TJump to١Xاcdؤ dؤ  Not there.ؤ  %X v6x.Z&dl T  ɡ*  Tab Spacing:ȡ؎ûJump: Beginning End Marker to cancel  Bá  'Eá Má ا6  h6˄'   8 8!Aá ĄÄ8˄ =Ą܄x á f 9Ä 6Í    ڶȡ bڶġW7áOȡ% ˡݡm   >á 966á ث  /=Editor almost full!!   ڶ š Editor Full!!Aá(ťl0 ȡˡˡġ  ȡ  ەCXˡا6$ d   Xء Typeset this paragraph?P Marginiz  F X ! áe this paragraph?P Yá  p Setڡ"0اcɥdؤ  ġ   b>á H8 Íɡ 7 ȡ7 : 'd٤'5All markers are in use. Which one to replace? (0..9)Pf ġ #  \02 з  dؤؤc cMlJ( 8Set: Marker Ená8?A 8796>+?A á>87Eǀ "vironment Tabs to cancel    Má 6ˡ6 T      @ á     šK 맀á 8)88X\؂ȡ  ! 8 ɡ    š  á  0á& aANǀ뿶  ˡ P á e-    ٕاġؕ >맀á  󂾸2EXchange: text accepts ؞ ق ٫ ګ   U؂\  to cancel  á" á96 ˄966á(!  MInsert: text a char a line to accept to cancel  ګ "y󕕸ɡ!No room to insert.ˡCš,á  967> á&ȡ   &k v)ɡɄ;  ám 01  ܕٕ޶ضȡe؂ á2ضšĶ " !  *Ʉ- ɡń ڂ)ɡ ؂ á!&o 3˶ˍ áĸ  š-ħ Í  " !Nń1 á   ɡń šٮ3  2 ġ  ø & Y[ + , -؂ɡ    ADelete: Moving commmands to delete to cancel 삾Ä؂ dš ,dšBuffer overflow. ˡ    á  á   7v G)a*]'Y(U+O ؂  "/  BAdjust: Left Rigë ><"09;KIWUQ_ 269˄ 969áɄګ ڂ٥@č<e |! ht Center to accept    á   á  #š &#šX$š ` ˫  اȧb+ Rá/Hܹ0/3ڕ/%ڕ/ #ġ#R% ġ$% ) çÍ 7/# á/٧~ á/٧h "R á /1 áڕ/ ˄ m j" 6ɡ- ۂ ۂؕە"9ɡ".á'ڕ/ 9ˡ9á۫w  .ȡ3*ĥڷ |&اń    &:( N0  ; ,)-%-, !'  :)c*_L Z'اȄ0 ɡášĶ " !'[(W+QšToo many+10- &+ MKYW' "Sa Í á2   (ń> á  ɡ áá 8 Dá2á @á   3  P6z 7WBáI?A 88 85 [ ] ءPá    E58á-E Eń 8EE\@áBC<DBFDFȡ,EȡDEDEEDDC Replace:% Yes No to cancelC6á ˡ EEEEčآE آm 8L"ۂ Lۂ áUšWUš8Buffer full. Aborting Replace  UUɡ ۂLۂá۶ D ^9?A á08:Lǀ WU򂧁U"Uˡ UU򕕫 U򕕫  LD̀̀̀̀̀ áLZLLaA1LL <Find:CReplace :C567̀W8 á8 ç çVm̀á ;   ؂  á   9  T=<T ġ: L  ʀȧل.@ʀ̀١ނ ߫ áD  ٓ"ʀńPattern not foundNo old pattern ˡ     =`j><[ š8L ˡ $ Fȡ؂L ,:E)   =h r??>; W  ?á) ?ˡ F N áL All á  pá  ZAW? AɄ WWE }y u p lhf  I E>w oki`Ä ٸ\ ۄ!ɡ     ث öɄ  W ?AɄ á B!     6á á ݶ 6á h t4 á B    áAB;z fáAB   :Lǀ4 á.1 " 8@6 6á  ö @ˡ\ WL š 9áLáwr˄ȍ#d5?A 56 Lá.Vá"TáCá IáP 5á ȥ  ÄB X@.۪PڪP.  [All] :0X^N(z  X  L!!""$f$#$ #%6%%z''J(':(()E,:E)  tڂٕ ݞ݂ ˡ !U܂Zdڡɡ š šȡá6  ڧ=١2ۥ č( bcȡ'ڤġ=á ~á ڧ:á ǀ ġڧۡڧ˄Kڧáڤڤ؂ Ʉ ؂ "DV šš ض؂ 4ڧá#ڧáڧá jڳ aA, ؂ ضń)ؕض؂ ˡضضčȍás3w!  ŧپˡ پعE٢J٢=٢.٢!٢ MB7*v ȍN á  !  Q t R >="  تP ><mPR<  š ȍȡ á  ] |" =m ٪P&=Error: $. Please press to   D# á  4 <%  continue.= áá!RۂA?9ۂáۂ ۂ?á  -á á . Ä Ä X `&á D á   ܕTb٥ č'8  á      áZ' ɡT%ɡE&    á'   ۂ ۂáؓɍń  ٚáء  f݂ɡ    fr$ɡ 󕂫   ">(ګ ݂ەݕ 5 Lڂق؞ڂق؞ "#$( 06 ڂ  ٦P ۧ6 ۧ8á3پš!8 85ɡ 0L  Bb삾 á پ jۧ<á/پȡ8٦P 5 ġ&P QPپۿ ^\Z!YYWURPN579;=6CEd n jFN*|  > x T2<":ڕ šB+Can't save the deleted text, delete anyway?P Y ڕ foundP  lK/عVolume already on-lineP File foundPBlocked volume expectedPFile ná-á &"ˡ~džDž`۪(饇#'ء (ame expectedP!File or unblocked-volume expectedPFile or blocked-volume expectedPFile or volume expectedP"ˡt ǂ0R ۿ# ۪ڪ !!ȡ   ۧ6ÚwV ڪP٦ Щ what marker? .)-. W-WȡOutput space fullPNo directory on volumePWildcard not allowedPWildcards mismatchedPInvalid file o-.--- |ƃƃ;CONSOLE:ƃ?ƀƁ?ƀƀ?  á  r volume nameP%Invalid change of volume to file namePBad destination for files foundPaBlocked volumePKU  á  ƃƀƀ`br n(2|vFJ2` nblocked volumeP3q, qL1]I( dɄ&wUnknown I/O error #w w Z l Z v   J ^ dj P(8٦P 5 ġ&P QPپۿ B>sdR`w( & w+XáYr3PASCALSYFILER 8 ww" Type to continue: @ ؾȡDق }Ȅ-ق ق قaAOM X ٪ #  á 1 0 ء, ˡ    ߓ[(wPut ww : in unit w w ء  ߓ  ڪ٪ت(ww:w&š :ww --> ww2~  ٢ ٢٢"(٢* Filer Error!" ثضÍ& *á.:áww::á w!PعI/O device errorPBad unit numberPBad I/O operationP Timeout errorPVolume went off-linePw&Pġw -  عj}wålPt`4File lost in directoryP Bad file namePrInsufficient room on volumePONo such volume on-lineP1File not uroqsHf0N: ڡ&Pɡ w, nR  ( R*ت(پ پT* ت(??z*!ڪ(,   in largest area./٢ ٢٣ ٢&Zer A?AA&A"|D"š#ɡ$ئ0ZerJanF.٣ -٢&-٣ 0á-% ޏޏˡȡrޏݏebMarAprMayJunJulAugSepOctNovDecBadBadBad(2J%ڂނ$ނÄ. ȡ2ܮ0ނÄw ނ0ˡ '/{N 1'ȡ4  šɡ&ɡ&kB & .w Writing to ww ȡw.خ0/'f2CONSOLE:0: š#؂SYSTEM.٢ˍDڢ٢ڢ$ڢ"٢٢ڢ&%y''1>3Directory listing of~yCONSOLE:(9.TEXT (t': Dڪ(=?*تP(: w/&Pɡ w - ww.RP ٢ (   ȡ (š&S N'=á ?۪P..á /ڪPڦP/X.XP./ȡ/P too long\(ww wha&+٪(+Y+XYšYYWZZآƀYƀZآƀآWWƀZ(آ,t filew what volumew ? 00 0t$šY#šئyBآZYآZ(-(-X-ZZƀXƀZB7Z-_Z(آ,--ōأزƀƀPǠƀؕƀPTt#Q-آ* آ*آ *ت('ȡ˥*ȡ/P#::*á*":(Rš2؂\á(á Jt6 )Files on volume 2P.TEXTUPP""(7(Xz٪0,0# (matching pattern '') % on  --  آ":ǀ99آ9:9@uآ"v۪ڪP--File name Size Last modء8 File name Size Last mod談¥ǥå@0~0談¥ ٪Pwz.  of    files,   blocks used,   unused =2=šw68</$.4./-19<2323Ä00 22  ڂA(P"ءP(wJoin w -/.-.ˡ|04 23 /./823 آ6٣ آ$آ8٢٢wwڂڂؓٓ.wNo files matching that pattern!wf(P"ö ńآ8 33&2:2&40>9(.w Can't find wwwču{%FƂƂ?Ƃ.TEXT('Fʂ& ( NO.NAME.TEXT(:0(:0(š3Êʂ̂ʂʂȡʂDʂ̂ʂš* fCSplit what file ? @@.TEXT @@ǁ˦FDŽ¥ 443233Ä//(.TEXT-(UXbHInto what files ? ( for @F .A.TEXT ) : R.T12*?٪(ت(4\??8/4 >86)'wȡڣ(wwEXT @(TrI~š+~~}}~ɡ:J(+P is a bad name.w?ow Transfer ww:wڢw to ww:ww(++"9ww already exists. Remove it ?  w Copying to w ?  ڢڮ6ڢڮ6 @@˥6AˡV šIdLjɄ7(w~~ JR KšU~~ɸ~.LU}?+.A.TEXT(̀'HI.TEXT-(ǰx:@y˦')'CONSOLE:12w Transfer w w blocks ?  ٓP(wHow many blocks ?  ȡ(wInvalid number..4Ɓ1?ء34` ,'á*wPut in ww:w&wInsert destinatBTransferToz˦HB˥6A0PX5(ion diskw zr7٪("Cww! already exists.. Overwrite it ?  !.TEXT-(wCopying ww to wwá*X:˄> š4(wDestroy ww: ?  P;1z#Äڂɡá8^ DInto what file: (P("=w觇ÄÍ7 'w:ء6-š;v9ڢ =32$3w! already exists. Overwrite it ?  RE*Join what file? to terminate list: w ޾޶w System files.޶w Default files.w Filew Characterw-structuw-BTB!kk8 dkk&k&C"W')'wȡݣ-wred volume.www Prefix is - ww:w6 A M٪ á)wPuw is an invalid name.wb??IwChange wݢw to ww ?  ݢݮWt in ww:w ˡCPPP0Pw0OwNumber of blocks,ݢݮW X:( ǁX˥W TV choose:ww)494 for Terak single density floppy disksww)980 for Terak double density floppy disksw 0Z:DuáqZ ¤ǯÄwEnter a number:  ɡ=w(Bad number of blocks. Using 494 blocks.wǯæ xYChange Change toyǁ:(˦Q'Zero directory ofuHž&áQ}wDestroy volume ww: ?  ءE 'ȄV˦Yǃ06 Uǥremoved*%ġ '3w w blocks ?  QءNew volume name ? 0000:á 000:T\(wRemove ww:wآw? آ* أd]Du 0  ¥ Oww : zeroed.we  lNPrefix titleȡ8ڣ":ڢ!@ P^Removewǀ)'s byuLá Ǫê(w Prefix is ww:bR'Krunchu@: ȡ?]\$ `_š(wReally remove tháwis filew ȡؤ  ńwMoving ww SYSTEM.PASCALڕ$š4 ese filesw? ( Remove or Keep ) ?  Rá^^ `_`0[ڂڂقڕ$ۚ܂!ww : krunchedw˥Ƕ) ȡ ȡ ٤ۦ ȡr۲ ؤ` wWarning: Units w w & w w have the same vLKʀ#ġLJKLJš9lG 'wwVersion wAwˡ`ݤ ނ:.g)r`S٪(":ww already exists, supercede it ?   - w 12-Jul-80wwwVolumes on-line:w ȡ ܤަw w ww:*RT٪(ت(Ck?-kk(kPk(-kk(kPk(CC-ǐ wB>/d47 TEB~ &z##827 $ $"\7 $ ``WtB  aBolume name!!  aتP)+RcNFiler: Files Remove Change Transfer Split Join Quit ? c?áRNFiler: List Volumes Krunch Zero Prefix ? c_ P  ?Hء&ؓ0w&( b5'U,CS,R[G5MN~t Zv=@>6@>6- w _ 6_ 8  "$&(*,.02468:<>@BDF~JLPRT\^`~|l|prtd/efAA>w7>E@ 7U@w&xE75@p7bd*e (Ş(DɄ?č'6f0w i7 d7w 7 \w V-t@N pazE J3 E@ >8 63(?faaeQá (.jZt|Lb"<" v N j 6>&Nt?( E@ -.72? ~7   E7 w wU & vd^ b #!\!#<#:$$4%P%l%%%&N''h(()^)&T&*8***d+*,,,l-4..././N/32D3\3^ft Zv=   #7 7 7 zv x7 vEl7 h v7 rEj7 f \wRU W 47 27   "$&(*,.02468:<>@BDF~JLPRT\^`~|l|prtd0 ,Z 2*E@ $&?  w U@w > 6 & 7 ƀƀCONSOLE:wƀCONSOLE:֐4*|\ZTp6n~t8XT6 ~w ?  "U@ wFEz7 vw8d ^prNn2d|~X,á (.jZt|Lb"<" v N j 6>&Nttvf zfwftfqfnfkfhfefbf_vd^ b #!\!#<#:$$4%P%l%%%&N''h(()^)&T&*8***d+*,,,l-4..././N/32D3\3^ft Zv=f \f"Yf$Vf&Sf(Pf*M JGDA>;852/ ,")$&&#(   "$&(*,.02468:<>@BDF~JLPRT\^`~|l|prtd*eeee e  e e& (#   EezN EEE  @`    `d` t @L A@@A tBt J@ P> ``f~ E A Z 톃 > ѕ  rD@  R~@A @`e eJ``A~  ҇ ^ ``&& `  E e @a&&6>  C~C~ %> C~C~c7 >% & @  z7 >%E e @a&E e @a e8\8>.&$@`@`$fH@7 7 :%7 :%7 :"7 :&7 :"7 :#7 :.(\ vw-e`e B~ B~> T`flp >FR^bhrz*T`fl   , F ` @ BCzEG@HPtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|oE B<>  wN EC~ B~UE 8f >&z  eN E8 ^0  : H h   V@ N T Z r z ^  z DJPV\bhntz@ 6xE LU@t7`X~BE B @Wtw`8& B~0>z& & EH $,4``@x`a@xl@|"" l@l  N\Et& B~ &- >e UB~  Ձ@  al \  @ @ a!~F@  B~ ~d>E`E `EՀW  `E  @` dd&`f&d&b& w @ w  AF6,]A@e `&& `E e `&EՀ~>EՀ~> 7  ҂ ~AK w~6 rWFl`t   mPAF!\ &R6ffD e w5 wD> E e ` E   @ ` Gv78z   7JHe> C>6B@B >C@ e E`E``B~A Ew 76W wN B  >6 E E7J wDw  f -d\zTn@`@`( 7X$]   P~P~~>& P Bd`Z & %  D~ " ~ E D~ D C~ %  D~  NPP  W  ~~%>``!~eί%@ eAp6%~& >AA~E e @`& E&~AA~E e @`&AA~E e "1, 1,1,^  5 ^A 5^A&Daef  09 [bksy - e6_ 8 E E7 _ 5|w 77 :  .-& pU`E@ wHw . wU K E|7 xvv vV R-N.DFU@ % eC ~% C ``` ez h &fEʝ@W .  x\ נww 7 b&f ]H8:4 0-,! "( Z~] &   :? 8? -w ʕtʕ  Q~EU 5 J <  !  7  7   7  Ee7  ?r_ d r X  UU e0   W -@e@ E@W . E&@W .E  %f&? H!VRR7 PE@7 <U@(? ( 7$7"@ B~ wU  d 3_&t`  U&E w e Entte E e' e2Lŀ 7 ? 9@]? -/ -|"! ||v v-r|"!h -.E$E e 7 -e E Tw~~~~~~~~~~~h ^ V R_H, <8 &,7 &E7 @&f"! euEw7x߄z @|Η}½  & &&&  &E7 p"7 b"7 T~~~~~~~~~>PE Ґ~ wU &f&f7 U 7 H"6,"7 2">,"6 \ 2   \  W  m e(5`\w e w5   0ɝ^& _E7 C DE!:7  7aehD A 5@ \ɋE 5\\\..ww. m e( ɋ e  aw7e:wXP@P7n@eI70@wnM)w\ 7 , ßz 5 wvr@p@,>(d*,-hR "*2NnzXftBDND'RRAY,U$ J  E     7 7  @  27 !ׯ+U E EGINASEONSTIV'OOWNTOLSE ND XTERN/ORILE.ORWARD"UNCTION OTOFN)ABELOD'OT&`    ͋D 5|w 5B N  5 , W#D  7F R(ACKED+ROCEDURROGRAM!ECORD-EPEATET*EGMENT!HEN OYPENTIL ARHILEITH(<W ΁?Zw w   D5H5   :@ S~ e&-"wn.5)  ez\& Dr)&&\   5@5@7 X"#"#2#2#"%####"%""%""%""%"&#$<#"%%DeE -** "; m-   ` ~ m- "F#"%F#z#f&\  \& \\r1@\[?\ ew & ?U?*@ڪAD` ~-) >dׇ   5  \ < L f <wX7V H` < C %     @  f&\   B -  e \z\D> 0 <0. w (w $*)))) et   p f C_  fW & @&&&&7 h$"%>%r$$h$#"x$"%"#""#X$"^$"%$e\\;@\ \N @  t `mwe%E : 7 t7m||7 xrE^7Z7P 7N  =@f&ysE[\pCf&f&\% a @w   6 6 &  f LL7 Hev 6 8e>   -- wt  {+7vP 6A  v  6N\z\\\ N A f C %C B    \ @ 7v7vx7vee~m m7vwt{+ wvPA 7tv7vv 7tf7vfxpv++++&+++ w  D& &&@7 "%D& && 6  A7 ^# &#"& &#&"$& & &"%L&"%""%""%""%""%%++&+ff w w   w :hv6 u-@>m5 <wd@6@> e\ \S\ e& @7 "<&%e\|&f& \:יc&>X4%]@& & 6@>6- @eB@m>AmNPP  ~~m>m *@eBA Amf& & & D&&D&& @%7 r#&  IA e e@ e& & & & & &f& w6-a 5 >fff& w -LW-NW  @Wz-fw@D&&e #@  @6 7 #L'6 6 #?%-0 @ !5 ,-fwrW# :W-$@  >-fw@   $ef`\e:e2 eE~PPXXxhPXpx@!׳f&& @׳@f&7 "%"'"#'f&f&7 l"%'"%""%""%""%""%"" ("0%'   \*(f&!! \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 #"Z( ff w     &@& (  **7 7 ||w r7 r)ff)Z7 Z CptE`LJe f w w :wv6 @ @m5 "@>m5 6wL@6@>6@>6@' B B3$ B@ ɍ- "@@eB@m>AmNPP  P~P~m>m : @5 @@eBA Am ŧ7ȡ5ˡ0݊ Bġsá  ȡ%f&f& w4-CBAa~ 5 >fff& w-'W-)W-$%W/ !5W->á.ˡ*ɡe e+ e ܕڂȡ 0.>f= /fwfw ^eġ0ȡ:b"v3˶3 ˍ.|86 tPASCALSYUSERPROGPRINTERRREALIO INITIALIGETCMD N333 3 3?33!!OOPS!!ЩD ^ á{ NIL }   ^ to @ + 3R**ȡǀ ɍ8%ńrATB D EJ*T-ŃMJ.rAšA''fT -أ ǞáInvalid value was أ ,outside range of [أ ..أ ]Source string length was أ (, exceeds dewNo user program linked inw0. Enter Edit file ZP$$®®N$ڂڂF>stination maximum length of أ *" )In source line: J#.#:[„"ɂ[Rɜ [SYSTERM„"46b j .:/ .+  Variables in +-áprogram module ɀ NNcLjhzrPILERM.COMPILERR.CODEODECODE$f<hȡ)3 ˡ3:3P  3 3 Í$$8NN<:w+/BU(*}  "$X834!>,---*---*Integer overflow(-Division by zero(-NIL pointer reference(-Program interrupted by user(-System I/O errorw,Dump: Pw+"P Up Top YP+,ˡ'PDown Bottom ^P ˡ(-Unimplemented instruction(-Floating point error(-String overflow(-Programmed halt(-String toPEdit VPP File QuitZP)CQá` 3Ɓ_?/3"223o long(h-String index out of range(G-Argument out of range(*"|\F0ydE,4I7Sߡ٦ *NOT SET* ޡ( ߓ ٦ ޓ3Zq 8w-w. to exitw+C,nتP-++P+ 'S+fl+'m+ˍ"á     áo (<- unknown cause(-hardware error(-illegal unit #(-illegal I/O request(-data-com timeoá ˲PɄ7̂ƂPƂ QƂPPP _\ut(-volume went off-line(-file lost in dir( bad file nameno room on volumevolume not foundfile )?(š1))ƀƀP).TEXTU)RCP ȡ ؞& not found dup dir entry-file already open(- file not open(-invalid input format(u- read past EOF(`.w,,˶,Ä ,,٢:٢&P٢&?ƀƀP.PM-write on read file(Fblocked file disallowed)"oV@&o\D IO error: -(A DTP,æSYSTEM.ō9w-w in System, to exit+C,T Ɓ-?-Unknown run-time error(-Value range error(-No proc in seg-table(-Exit from uncalled procedure(-w Dump to file:Ɓ/PƁ/Ɓ/́XƁXƁ/PƁX.TEXTUƁXPƁ/"áz./,́.3?Integer overflow(-Division by zero(-NIL pointer reference(-Program interrupted by user(-System I/O errorʁ.ʁ.,á+́.+/wInfo written to wƁ/w)wCan't open file wƁ/(-Unimplemented instruction(-Floating point error(-String overflow(-Programmed halt(-String tow "+C011ȡ0C1Í0110 www w0'wo long(h-String index out of range(G-Argument out of range(*"|\F0ydE,4wC3?w+٢أ أ ٢DŽ *SYSTEM.EDITOR.P\w-R3?w $ < x 6 nB d,or(-No proc in seg-table(-Exit from uncalled procedure(- ؂. ؕ ؂:ؕ0.ؑ0  ؕ؂ 邿ɡ,Nw.text"áx*SYSTEM.COMPILER^*SYSTEM.SWAPDISK[10](w Compiling [[ [d[['sآآآ^تٞ&"á  ٤wwؚ$ww not found.w JتP wR٪  ȡ, ؤۦۢ0ۢ ؞& CONSOLE SYSTERM  P...P.Ǡ.؞"ÚزÚڲۤR ƁƁ)?.P.{`Ɓ*.CODEƁ,' ٟá' PRINTERNULLREMIN REMOUTƁ-`?* aˡ́*ʁ,'@Ɓ).TEXTƁ, ʁ, ʁ*ʁ)́+́+́+ʁ+ ́-Ɓ-.PƁ-.CODEUƁ- No workfileSYSTEM.MISCINFO"á >آ>JآJ RƁ-? SYSTEM.CHRSET"áhƁ3ǀ́2 ́,.á إ.P.Pإ.P.ئؾ.ø..ؾP)Td تP.P 3ʁ3 %ʁ3ǀ ġʁ2ʁ3 ʁ3́3 GRAPHICƁ3 : _f  P.ww Execute: ...š .P/.++š..ƀ+ƀP< .A.CODE<+++ɍ- $$؞$%ؑ$  ) ) ? ȡ  P? 6 $؂ō$؂ġ؂$$$ȡ&ڂ0ي?w?آآHë!:'w蓡Bw$č^.ˡ>  Eɡ  -ؑ šڂ 0ڂ 0ڿlġ- System re-initialized ( Version wAw )w~dNhvCHRSET"áhƁ3ǀ́2 ́؂. ؕ ؂:ؕ0.ؑ0  ؕ؂ 邿ɡ,تPww.w ww.wR<ؾȡ;ق ȡ&ڳ قaA á +-Í-زs 0CNPڪP.P."á̀̀ʀáʀ.ʀ".áCزs0۞$زs[eEÍɍ8 <ٓʀʀá^-̀-ʀȡJ-- č7ʀ`-̀.-̀ʀʀʀʀʀʀʀ--is an obsolete coɡ ۀ$ ۞$١ ڡ >áá  &jġ-de filehas bad block #0is not a code file0"áis an invalid file name not found9Sk$ P(Date set: 1..31 - Jan..Dec - 80..99)w New date: P---SP *":&(*,@Wˡ V *SYSTEM.INIT"á *SYSTEM.INIT6ˡ* ġHSPSSSSS*~~š  ~   껶| á"'.CODE F,? WWȡ   }}á|  }|!PV ڪP:á̀ƀPƀ:QƀPV-ƀ#5Vƀ  áPlr,LP r >00z--&* +*+ȡVP ʀ̀ʀʀʀPwwVolume prefix is currently ww:wwPre ***,H*SYSTEM.EDITORl *SYSTEM.FILERY SN HD@ <8AX0'XFfix file ids by volume:..R.**9wNew volume prefix is ww: not foundT*":&(*,@Wˡ V *SYSTEM.INIT"á *SYSTEM.INIT6ˡ*تPپš',,پá-,-P<ڪP-U?-"*wwC!áC ** Memory Full ** to exitP  &f, "w   urrent workfile is wwwNew workfile name: ....TEXT..CODE.ȡ.&./#wError # w w, >Já2šwww &.00&0:00P00.P0.TEXTU000.P0.CODEU0x7w.áMš1 ˡ ww w áw  ->ˡ www.TEXT is available for editing.w7w.w.CODE is available for running.w4 not foundwNeD ˄!Dȡwb&&>:&ˡ;ˡ ww<ˍ"<̀ƀ쓡"á  8"ë á 쓡 $! 1ÄP ǐɄ5ń آأ!   š s #  #å ńC 񂾲s 񂾂0 h2( ! 43P B?B 1BhCCBCń Ȅ"   ÍX Oˡ"  ,ȫ.:CB&CPB& çB&?Ä/BBCCPC[*]SCP  #2  á Dȡwd'>ˡ=ˡ wwDȡw 넡-  . Í1 š˄  `*   Q š *š , B  dXDjL28B HBz  2@ Xh4w 4V j ɡ 逫-á-32768 Rġ?[00ń0ˡ6ng`Y:P>GJ> 7 0 )" d_XSNIB;4!3. CB BB욧B BB CB:CB˄BB˥ń"á  B u [ɡa  Iȡ龫š 龕龫ȡš  gá /Ä+ DDD DDDDɡ$áB B!MB DD낾  . `;š ɡ삾 DCDCDDDDEEEE BBBBBgB>B@ BGJ> 7 0 )" d_XSNIB;4!3.삫Ú< š ^ "á50  YwPlease put volume  in #4)pá.l vɚ j    áá4!44##&>  F,ƀƀCONSOLE:wƀCONSOLE:! 104:Undeclared identifier 6:Unexpected symbol (maybe missing ';' on the line above) 13:'END' expected 14:':' expected 400:Illegaor in type of standard procedure parameter 116:Error in type of standard procedure parameter 127:Illegal parameter substitution l character in text 401:Unexpected end of input 402:Error in writing code file, not enough room 403:Can't read include file 410:128:Result type does not agree with declaration 130:Expression is not of set type 131:Tests on equality allowed only 132:Strict Must have quotes around file name 101:Identifier declared twice 175:No file name 'input' in program statement.  176:No file naminclusion not allowed 133:File comparison not allowed 135:Type of operand must be boolean e 'output' in program statement.  1:Error in simple type 2:Identifier expected 3:'PROGRAM' expected 4:')' expected 5:':' expect136:Set element type must be scalar or subrange 137:Set element types must be compatible 138:Type of variable is not array 139:Ied 7:Error in parameter list 8:'OF' expected 9:'(' expected 10:Error in type 15:Integer expected 16:'=' expected 17:'BEGIN' expendex type is not compatible with the declaration 140:Type of variable is not record 141:Type of variable must be file or pointerO^cted 18:Error in declaration part 19:error in 20:',' expected 21:'*' expected 50:Error in constant 51:':=' expectedEB@ 52:'THEN' expected 53:'UNTIL' expected 54:'DO' expected 55:'TO' or 'DOWNTO' expected in for statement 56:'IF' expected 57:'FILE' expected 58:Error in (bad expression) 59:Error in variable 102:Low bound exceeds high bound 103:Identifier is not of the appropriate class 105:sign not allowed 106:Number expected 107:Incompatible subrange types 108:File not allowed here 109:Type must not be real 11:'[' expected 12:']' expected 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 117:Unsatisified forward reference 120:Function result type must be scalar, subrange or pointer 121:File value parameter not allowed 126:Number of parameters does not agree with declaration 125:Err" e statement 158:No such variant in this record 159:Real or string tagfields not allowed ger overflow 906:Division by zero 907:NIL pointer reference 908:Program interrupted by user 909:System IO error 910:I/O error 91160:Previous declaration was not forward 161:Again forward declared 162:Parameter size must be constant 163:Missing variant in d1:Unimplemented instruction 912:Floating point error 913:String overflow eclaration 164:Substition of standard proc/func not allowed 165:Multidefined label 166:Multideclared label 167:Undeclared label 168:Undefined label 169:Error in base set 170:Value parameter expected 171:Standard file was re-declared 172:Undeclared external file 123:Missing result type in function declaration 124:F-format for reals only 122:A forward declared function's result type  CHARACTE can't be re-specified 118:Forward reference type identifier in variable declaration 119:Re-specified params not OK for a forward  declared procedure 174:Pascal function or procedure expected 201:Error in real number - digit expected 202:String constant must not exceed source line 203:Integer constant exceeds range 250:Too many scopes of nested identifiers 251:Too many nested procedu 142:Illegal parameter solution 143:Illegal type of loop control variable 144:Illegal type of expression 145:Type conflict 134:Ires or functions 252:Too many forward references of procedure entries 253:Procedure too long llegal type of operand(s) 129:Type conflict of operands 146:Assignment of files not allowed 147:Label type incompatible with sel254:Too many long constants in this procedure 256:Too many external references 257:Too many externals 258:Too many local files 2ecting expression 148:Subrange bounds must be scalar 149:Index type must be integer 150:Assignment to standard function is not a59:Expression too complicated 300:Division by zero 301:No case provided for this value 302:Index expression out of bounds 303:Vallowed 151:Assignment to formal function is not allowed 152:No such field in this record 153:Type error in read 154:Actual paramlue to be assinged is out of bounds 304:Element expression out of range 398:Implementation restriction 399:Implementation restrieter must be a variable 155:Control variable cannot be formal or non-local 156:Multidefined case label 157:Too many cases in casction 901:Value out of range 902:No such procedure in segment-table 903:Exit from uncalled procedure 904:Stack overflow 905:Inte# ۫ګ٫ث?ȡ ) H  ħ Save in character slot: \ا \  Character replaced in position "ȄĄȄO =ڤ :ڤ *ڤ ڤ  D6(  ٕ ؕ"ȡ, ȡإ\8/ Hث\\ˡ ˡ>ɡ٧ۧš٧ۧˡHɡˡاڧ# "تP  R8!@ : šˡاڧ       ٧٧ȄاĄاȄ٧     ȡ ȡ  L ˍ0 ܧ ˍۧˍ   ٧ ޫ ݫ  ȡA ۂ  "3  0ȡ,3 ق ȡ03# X# "C : Cl ݧ ؂ؕ؏؏Hj 4\?́]2rATB D EJ*T-ŃMJ.rear whole character!D : Display character set!G : Get a character!I : Invert a character!M : Move character!Q : Q2́\2́^ʁ\ʁ^ȡʁ\ʁ\ʁ\́\4*system.pascal"ˡ́]T4\́\ʁ\Þ"Ä5́\ʁ]ʁ\2Ȅ$ʁ\uit!S : Save character!X : standard/optional!1 : turn on mode.!2 : travel mode.!3 : turn off mode.!Movƀʁ\ˡ́]ʁ\́\́]ʁ]4 D]ڳ aAing commands:! q w e! a d! z x c!#d áǀ $ ,ǿ  2 áStandardOptional\ا ?   Z&  Current charset  Z$ ȡ "ástandardoptional ȡ &ZZQZXá0٨  ȡ0     B$Z á BW %#Rewriting the current character setȡǀ ġ\ؤ [ؤ(ǀ%ġ , á . á(\[0\ػءȡ(  3 b? J ˡ ǀ% $ث  ٫ ث عQVK\-\YPG+lˡ$  #Character set editor. Version I.4k 1Paǀ0[[03ƌƎCONSOLE:ƌצ?ƋƌCONSOLE:Ƌ?Ɓ/?*3 ƌ( r(تP4Ɓ`? Writing to file 44+́e+ʁeȡf: "p+a\\ i* Get)+ǀ ġ\+ ,4,4++44A)f[0 Quit: char: ץt0/ɡ ڎڂڎ(0\  ȡ9ȡ'ق0؂  Exit without updating1- Update to 1 Save as  SYSTEM0E< \2 Move modeZ62k2e2_2.CHRSET Write to a file& Return to the Character Set editor6 TryX2Q2I2B2;az4$;C  =$&(*,A_2]Z 1 as the current (memory-resident) character set 1@ 0 0$4ȡ% ȡ ګ٫X;/ V5ZZZg SYSTEM.CHRSET)({1)t#Write character set to what file ? PZZZ44444)-EW&n wu$r ZZR˫ @*.r 'ȡǀ4445%/51'$1z  "$RK*, ġ[ؤ\ؤ * >,٧ %ǀ ġ\٤ ؞7 D-ץ1PM0M468P<>@TDTHJLNZRTVXZ\^`dlnprtvxz|~" إ1"ٓ" Can't find 1١T\.Ɓ-?Read a character3ƌƎCONSOLE:ƌצ?ƋƌCONSOLE:Ƌ?Ɓ/?*3 ƌ set file/Use the current (memory-resident) character setEdit SYSTEM.CHRSETƁƋ"~l6D<n $ n \r (P V(>X$| Zx2$ ZZƁ2ZXWhat character set file ? .-S,O SYSTERj54445%/51'$1z  "$RK*,M.CHRSET-*hEU"- z Q ZƁ2 +SYSTERM: M0M468P<>@TDTHJLNZRTVXZ\^`dlnprtvxz|~" % Negative powerPSՆ%Division by zeroP7ՆF MOD by zeroP  fC!gO5Նe@( ՆՔS Օ/ɡՕ7Օ=//ՕN/,ՕiՕu#,Օ,aġՕ,zȡ Օ, ,P ՗0@՗>ՆՆܦ *** ܦ ***ՆХՆ׭T^Շ4 SIN Շ[ COS ՗O՗TȪ}/՗z՗ B,0՗ B՗ͮ ,1՗ڡ՘ ՘. Շ TAN Շ LOG Շ LN Ո ABS Ո/ SQRT ՈV u ՘px՘,.ˡ/՘՘ ՘,.á՘Ԯ ՘,1՘+ՙՙՙ$ ՙ1,1ՙHړՙg xՙڡՙqFAC Ո}ՈAIՈ˥1ՈaA1ՉQP ՉG  ՙqՙԭ ک ՚e0 ՚zyK ՚yK ՚ ՚"  H՛s z CALCULAT 0Չ]ՉdtՊՊՊ¥ ՊՊՊՊՋՋՋ#@6ՋS 7 B"ՋnՋyՋ BՋ@ՋA.ՋՌ Ռ% BՌ@@ՌZaŧ7Ռ B ՌՌՌ BՌՌ ɍՍ<ՍLՍdՍpՍՍՍȡIՍՎˡՎ>ՎH0Վs݊ BՎġՎՎáՎՎ瓡Տܦ Տ&ܦ -Տ54\?Ճ́]Մ2rATB D EJ*T-ŃMJ.r2ՄÍ\2́^ʁ\ʁ^ȡ(Մhʁ\2ʁ\2ȡ?ՏVՏ^Տm˄ Տ.ՏՏɡ1ՐȡՐ5ʁ\́\Մ4*system.pascalՄ"ˡ Մ́]ՄՄ4\́\Յ&ʁ\Þ"ÄVՅPՅT́\Յbʁ]ʁ\2Ȅ9ՅՅʁ\2ՐEՐՐ Ր-Րȡ;ՐՐ٥Րá Ց.ՑՑɡՑ9eƀʁ\2ˡՅ́]Յʁ\́\ՅٹՅՅ́]ՅՆՆ ʁ]Ն4n`ՄՄвRight parent Ց_ܦe+ Ց~ՑՑ ܕڂȡՑ奂 ՑՒ- Ւ Ւ(ܦhesis missingPՄLeft parenthesis missingPՅ!Incorrect symbolPՅATAN of 90 degreesPՅbLOG of 0P0.Ւ5ġՒY0ՒȡՒՒՒ.SDe3}ՅzLN of 0PՅSQRT of negative numberPՅFactorial of > 33 overflowsPՅUnknown identifierPmՆ ۩ ՓC0KȡJՓhՓ00Փy0K ՓՓ Փ ڿՓ ܻՔ Ք*Ք4ܦVariable table full.& ա բ բ)բCբX բkvբ!ɍբ>բբբh .կկկկۡ կկ  հ/áհ+ հ6 հ=հKհd ȡբߊգ x$ tգ=գM *R tդ(x դ?yK դ`.հsߡ հհհ L Ƅ ƅ5CONSOLE:Ƅ ?ƂƄCONSOLE:Ƃܦ?հհհݥܦ--> դt դzxá^դyKդդն >դդե áե8 եpyK ե2ե áե  հ籠 P ձ\ձձ#/ձ. ձKձWڼձjձq%ձܦERRORձեզզyK զ{զxáզզڥqզէ էDէx$էF1էRxáէtէ.-է COM  էէ޹ ըը*ը7ըը֧x`թթ xթ# թ*թ0թGۡթUá թqթ MICROS INITIALIHELP ۡ թթhժ4ժBVժ]ۧx ÄIժժ ժ.ժժժ ժի ի(ի7ۡ իHիZիgt լլլ.ۧxլhլqxլ լլܹeլ Щ ՛՛ ՛% ȡ՛=s ,՛N՛b ,a՛s.՛.š-՛y.K՛՛٢ x՛٢ ՜iլլ խBխ/áխO խa 4 eyխխխ՜ xy ՜U, á՜k ՜q,A՜՜,1@՜ ՜ѧ,Q՜՜,!~՝عP՝&xۡ խխխ"&2 ծծkծծۧx`Zծծx կ կ8կ,$կFկ՝Cx՝a x՝~x՝x՝ x՝x՝x՞x՞5x#^x 2,VhdX "$&(*,.0h .կկկկۡ կկ  հ/áհ+ հ6 հ=հKհd24L8:<>@BDFHJLNPRTVXZ\^`bdfhjlnprv՞O ՞V՞i x՞}MX ՞՞xáհsߡ հհհ L Ƅ ƅ5CONSOLE:Ƅ ?ƂƄCONSOLE:Ƃܦ?հհհݥܦ--> :՟՟ +՟6xá՟Y՟c ՟v՟՟xˡ՟#՟ŧx ՟ՠ xˡՠ*tՠՠՠyհ籠 P ձ\ձձ#/ձ. ձKձWڼձjձq%ձܦERRORձ-K աա:աSաmաաա աաܦ--> ձ P ձձƄ Ƃf  v"$vh T r B Lr\ .կ'  L function character  defined.R6 ȡQ٤ˡe |^  \`Ɓ.? COM.DATA.TEXT"á5́/Ɓ/*?:٤ȡ٤؂ oY0 nȡؤAll functiƁ/ COM.DATA.TEXTƁ/"ál r؞&"ˡ,Can't find I/O unit # >$#on keys cleared4 D(Functions: Define, List, Quit, or Clear?0000ٳ !'%   \(Mؑ8H XdٹF]Y1Are you sure you want to clear all function keys?CLEO [QáExit   ȡ Lsysterm:? BATCH|$XFER,~P   " function mode.J&z ter  defined.R6 ȡQ٤ˡ٪P { Currently ءON }OFF }RXتP nR^á?^á@=(# < COM Options > Version 2.0*G Get file from other Computer tإ Initializing.bo TERAK.+S Send file from TERAK to other Computer.D Toggle Half-Duplex.!H Prints this help list. Q +ë!+ë% P{y Xr   Exit COM.( key Escapes one from any command. Some other commands: "$&(*,.02468:<>@BDFLNPRTVXZ^bdhjlnp=Bad init directive: L List file to other Computer.$R Record text from other Computer.#( š-ǘ:d Xˡ \`Ɓ.? COM.DATA.TEXT"á5́/Ɓ/*% full )empty )"C Clear text from Record Buffer."W Write Record Buffer to a file.ڳ aA,تP{  }RNƁ/ COM.DATA.TEXTƁ/"ál r؞&"ˡ,Can't find I/O unit # >$#Fš  & Function character?LLLLEnter fu!'%   \(Mؑ8H Xnction string for  , end with '': L P  ȡ Lsysterm:? BATCH|$XFER,~P   " ( "O Toggle file overflow handling.%$P Change command Prefix character.7F Function Mode. Define, List or Cleث#<ǘ:ɡ '#!! Record Buffer full !! ˄t^+ar function Keys.-U Update Info file with current COM status.DJx  Some other commands: <!ئPLL LLLáxLLLá ئ!X4\?́]2rATB D EJ*T-ŃMJ.r2́\2́^ʁ\ʁ^ȡʁ\ʁ\ʁ\́\4*systemLLLá!Aؾɡ9P QPؾLLLؾL }R ٪.pascal"ˡ́]T4\́\ʁ\Þ"Ä5́\ʁ]ʁ\2Ȅ$ʁ\ƀʁ\ˡ́]ʁ\́\́]ʁ]4 DP file: , ,, /,,,šإ,-,-إ,ت ---.TEXT#تP LR  Aš  ɡq{ا á TABZا-x"٪uu؞"Ú &$h" $$Can't find file !! B#á RETURNHاá RUBOUT6á LINE FEED"اá ESCAPECTRL-A}٤á ~ȡ f 2&uFu &/uuu á áuuuښ٤ت*ڳ aA, ؾȡقق  * &uˡ&Z0 d%ءXX"$ؾš*á:š.šئ   تP{  }RN VڪP-٪P.  R';+ȡ&;+؂;;+To Host+"+š++تPVP-Ǡ :ǀ h command aborted!!"0+ +NoNamew")PACK /(File + is now your primary file.P*#á ت .TEXTá.TEXT#uu"ˡ Can't open hSendP<#++')<5Final NOS Control Statement: ( Type RETURN for none ) BATCH==NEW,!!PDx# T  ÍÍ& #=+"=TEXT"Xu? %u*&(hListP#ء2 %u Listing of !! #š$'# is complete.pL+ڪPLLLLt--YesNo!á١Host didn't respond 8: HتP+,+,ȡ+++V2تP/R-Tz"<<,<':ˡ$uu "uٓa ) 31ōء= ǘ:š0-š ȡ ۚA*NTransmission error-- retrying. ݧInfo file updated. bD<عm9 Half Duplex!86 +{ vOverflow checking%8]:Ä/uFile  Saved?ˡnOverflow text written to files: A ȡ?..Y$TRecording text#8>(:<6/2CW*usWfdgdMKH4$4(4' إ(TEXT4# Oodf~2,٪PتP~,UUš ,U,PU~,U|,UU@ &AáNˡ+ȡ܂@!# 5 bB already exists, replace it?:"Okay then, what shall we call thisP١` ,Há ,,U,VUV,U,/,Jr 7hGetPGetP<,<7  ? á0<.ɡ.ڂˡڂXġhšuá2& R6٪P turned ON turned OFFR>8šT.Do you really want to cu ނȡu ȡuق% ݕɡuء@2á/lear the Record Buffer? Record Buffer Cleared Record Buffer already empty 9#Change Command PrefixWriting to file . "-šhWriteP Write Record Buffer character to:LLLL&{ Command prefix character changed to  } toP ,  :-u{   lines written. }N:؞7؞^á)؞؞^ˡ؞؞@J;ۦ;ܞˍۦܞothing in the buffer!! "/?áAu.Z.TEXTP***n*R0Ä%Function cannot include itself! |۾ɡM  ܞ۾ܞܞȡI/٧á á قǀR/( z10Function is full!! !١ ܞ;۾š۾ :١+-3ɡ5šUnrecovered errors!!: 5ȡmError detectednF=^á^^:س^@ V>Ɓ/? between line #  and line #  šNPlus   more erro COM.DATA.TEXT*** COM info filé0ʁ0ȡ_٤ˡMM:>=٤́1ʁ1rs later in the file. 4# # 8 3@3٤؂>\>\>C:>!D=%O=X:R: *  ٢á٢ 6٣ , ٢٢ ٢٢ Щ٢n ٢٢٢ 0 çÍإاÚا H ` 3 1á  8J  2˄  4\?́]2rATB D EJ*T-ŃMJ.r2́\2́^ʁ\ʁ^ȡʁ\ʁ\ʁ\́\4*systemܚۚ ޚ ݚښٚR خ  ˧ڮ (CLine.pascal"ˡ́]T4\́\ʁ\Þ"Ä5́\ʁ]ʁ\2Ȅ$ʁ\ƀʁ\ˡ́]ʁ\́\́]ʁ]4 DáC C 0Cs C C to C áC (Before EOF)C Exá٢ǖ<1C۟˄C C. tra text on fileCC, ۮCá6C before EOF on fileCCkC be&Functions nested too deeply! ?'A á'BR@@ u? #?# $C۟á#C *** EOF ***CCDáC۟˄XDáC D 1C t &CƢ0ƣ\CONSOLE:Ƣ0?ơƢ/CONSOLE:ơ?ƁuƂ?ƁLƁt?  CƢ0CC C. CDáC۟˄% ڣ ơƁuƁLF"0|`Tt   P ~ 6XB*f8p|Hˡ ۢۧA٫A( 0ˡ&آآآ á ؟آ4 Hf$B\ PTrCȡ܂@!# 5 bB ڧ0Ʉ%ڤ ڤ áڧɡȡ٤ ګA؟áRA&Functions nested too deeply! ?'A á'BR@@ u? #?# $Aݢǖȡݢ٤ݢښ  ö ȡC t &CƢ0ƣ\CONSOLE:Ƣ0?ơƢ/CONSOLE:ơ?ƁuƂ?ƁLƁt?  CƢ0  ˡ  ö    ޢ COMPARE ݟáؚ ؚؚ%G ˡ*á ٢+  *INSERT,^*DELETE,ˡ6 ˍ,ƄCƁ3Ƃ` !:ZD LJ .  < t  Vfr6C characters.Cˡ ˡDˡA&1   &ؓ CMatch criterion = C2 C lines.CCCbƄCƅoCONSOLEء`33`?J B$4٢ ٢ ٢:ƄC?Ɓ3Ƃ_FILEBƂ`ƃFILEAƁ/MODS`RC FileA is empty.C3٢٢ٟ٢.C! Compare control statement error.C@    DECLIST 1   0    ōD f1H02 6 6P 77 P7.Q 7P ₾ ₾/á ₾ BX  ,111z ǖ0md2b`e,WX   "$&(*,.Cd4b8:<>@BjFHJLNPRTVx ₾ `?3?1á ?`3AǖXC CCompare version C2.0C 4\?Ճ́]Մ2rATB D EJ*T-ŃMJ.r2ՄÍ\2́^ʁ\ʁ^ȡ(Մhʁ\2ʁ\2C(C7-Aug-80C)CCCOutput option = 1GC Differences.;CFlags.ʁ\́\Մ4*system.pascalՄ"ˡ Մ́]ՄՄ4\́\Յ&ʁ\Þ"ÄVՅPՅT́\Յbʁ]ʁ\2Ȅ9ՅՅʁ\2tween lines C C and C C of fileCC C>-----------(CModifications. N$9CCInput line width = C0 C characters.C---------------------------------------------------C؍١ BA ABC MisCMatch criterion = C2 C lines.CCCbƄCƅoCONSOLEmatch:CCC FileA, C:C C FileB, C:C:ƄC?Ɓ3Ƃ_FILEBƂ`ƃFILEAƁ/MODS`RC FileA is empty.C3 ب á& ˡ . G  bá#C FileB is empty.C\3%C FileB is empty.C-BB"CNo differences.C, aAՉ;ՉOT8Չ ՉՉ ǀՉՊ8,NՊ% ,NՊ? ՊPՊ]ՊlՊ}B Պdɡ ՚5՚O՚t ՚ȡ՚(՛  ՛4ԓA՛N՛^ՊՊՊՊՋՋ(PRINTER:Ջ,UFile:Ջ?PՋX֥PՋl/(՛ted՛ ՛՛ڭy՜"՜3՜Kš՜c՜w8, Ȅ ՜ՋšՋ֥PՋɥ(ՋޭTՌ?ɡՌTՌgՌšՌՌ՜ū՜ԡ ՝ڕ4՝5՝J՝Zed՝{՝ɡ՝՝՝˧ԍ՝՞՞(՞* ՍՍնՍՍ&Վ3Վ7 0ՎtՎՎܶˡՎՎ̶JH ՞ȡ՞祃(8,՟(՟9 Jՠՠ 7ՠfՏ*P.QPՏSՏqȡՏ؛؛ՏՐɥٛ/˄ ՐLՠ㥁8,ՠաա  ա ա*_pաoաաAաաáաա䥁8Ր`ȡՐՐٛȄՐՑٛcՑ2ѹՑPϹՑhՑxՑՑՑՑϥd~Ցй -աբōբpբբբբȡբ٥8, բ8, á գգ# AuՒՒՒ- ^Ւ]Y,TR   "$&(*,.p2468:>@DFHkLzՒgՒ Ɓ0?գZգm"ˡ&գ́1Ɓ1PƁ1.TEXTUƁ1գšգգϥ8٨-գգդ؞"Úդ'|ՒաՒՒUTitle:ՒPՒՒȡՓ , Փȡ)ՓHՓVդ0դFդUդh դpդդդ;ե8,$եեեեե楁8,r ,؛ՓՓՓՓ =fX0ՔYȡ@ՔxՔ(ՔȡՔ($áզť8,8,{Ä8,(å8,*Äզ8, զšզզՔՔ؂ O1 b Օ>  Օȡ%ՕՕ(8,Ֆ- >զ$ է/.Ŷ.Ȅէ]էe8.,'˶.Ʉ է..է..է.-է8-,'˶- Ֆ8,\Ֆ٥8,Ֆ C՗ ;՗ 3՗0 , 1$ = 71՗?Ʉ ը--ը./-/ȡIը=ըBP QPը[8/,ը//ըը[՗Rȡ$՗o8,8,՗/ ՗קϡ՗ ՘   ՘ՙeTըըը8,}թ8,}å8,*å8,)Ä2թ{թթ ,8,ƀʁ\2ˡՅ́]Յʁ\́\ՅٹՅՅ́]ՅՆՆ ʁ]Ն4n`Ոڳ ՈdՙXՙf8, á ՙՙ¥ededՙede- . "} & "const &escape = 27; &ret = 13; &bell = 7; & "VAR $TEMP, divs, SUM: real; $STARTCOUNT, CHANGED, NEG: BOOLEAN; program demo( input, output );  { / 0This program demonstrates the use of two *utility procedures whose text is give$CH: CHAR; * "BEGIN &STARTCOUNT := FALSE; &NEG := FALSE; &CHANGED := FALSE; &SUM := 0; &divs := 10.0; &ch := ' '; &whiթթعթु8, թ{ ժ$Pժ0ń(ժSժW.ժժժҡ ժn here. *They are: ReadReal, ReadInteger. These utilities *make input of data from a user more error free *and will not a0ժ0ժ,ի11ȡի0СիRիf իv8ի0šիի0ի իիllow a program to bomb during the *input, you may still get bad data but the program *won't stop. ! /These are not in a O`ƅƆCONSOLE:ƅ?ƄUƅCONSOLE:ƄU?ƃ(ƄT?լլ*լ>լH֥8լglibrary so you will have *to patch the text into your own programs. Take *what you need. ! /Both routines will allow ӡլ լƅƄUƃ(X z&Z*~^H @   :x0թ{թթ ,8, only appropriate *characters to be input. Other characters will *produce a beep and the character is ignored. *The <^re are only two ways out of the routines once *entered. A valid number must be entered or the *user must escape from thenF DYsx routine deliberately. *Aborting the read routine will leave the value of *the variable read in unchanged from what it was *before entering the routine. The user signals *the abort by typing 'esc' (escape character). *Typing a carriage return will accept the input *number as valid. ! /Report any problems to the MICRO HELP LINE *at the U. of Minn. !} ! ! const eraseline = 29; &  var integ: integer; $ch : char; $rel : real;    PROCEDURE READreal(VAR reel: real); "{ /This procedure is completely self *contained. note: this routine does NOT allow *input of real numbers of the form 1.0E???. There *is no limit on the number of digits that may be *used to input the number however. ed. } " " "const &escape = 27; &ret = 13; &bell = 7; & "VAR $SUM, TEMPINT: INTEGER; $CHANGED, NEG: BOOLEAN; $CH: CHAeln; "end;  procedure promptinteger; "begin $gotoxy( 0,0 ); $write( chr(eraseline), ' Demonstration of bombproof INTEGER rR; $ "BEGIN &NEG := FALSE; &CHANGED := FALSE; &SUM := 0; &ch := ' '; &while (ord(ch) <> ret) and (ord(ch) <> escape) do ead routine'); "end; " procedure promptreal; "begin $gotoxy( 0,0 ); $write( chr(eraseline), ' Demonstration of bombproof RE'begin (unitread(2, ch, 1, 0,0); (IF (CH IN ['0'..'9','-']) THEN +CASE CH OF -'0','1','2', -'3','4','5', -'6','7','8', 5AL read routine'); "end; " begin "prompt; "integ := 0; "repeat $promptinteger; $gotoxy( 10, 19 ); $write( chr(eraseline)'9' : BEGIN =TEMPINT := ORD(CH) - 48; =CHANGED := TRUE; =if sum > 3276 then write(chr(bell)) =else >begin ?SUM := SUM * 1, integ ); $gotoxy( 10, 19 ); $readinteger( integ ); $gotoxy( 10, 20 ); $write( chr(eraseline), 'you entered a ', integ ); 0 + TEMPINT; ?write( ch ); >end; ;END; 0'-' : IF NEG OR CHANGED THEN write(chr(bell)) ;ELSE  ret) and (ord(ch) <> escape) do 'begin (unitread(2, CH, 1, 0,0); (IF (CH IN ['0'..'9','-','.']) THEN )begin =NEG := TRUE;  escape) and CHANGED THEN &BEGIN (INT := SUM; (IF *CASE CH OF ,'0','1','2', ,'3','4','5', ,'6','7','8', 4'9' : BEGIN begin @sum := sum + (temp/divs); @divs := divs *  '); &read(ch); $until ch = ' '; $gotoxy(0, 20); $write(chr(eraseline)); $gotoxy(0, 22); $write(chr(er10.0; >end; :END; /'-' : IF NEG OR CHANGED THEN write(chr(bell)) :ELSE ;BEGIN  escape) and CHANGED THEN &BEGIN (reel := SUM; (IF NEG THEN reel := -reel; &EN$writeln('A carriage return will accept the number that you have entered.'); $writeln('If you simply enter a carriage return iD; END; "  PROCEDURE READINTEGER(VAR INT: INTEGER);   { *This procedure is completely self contained. *Error checmmediately then the value'); $writeln('will remain unchanged.'); $writeln; $writeln('An escape will abort the read process anking is done on the magitude of the *input integer, exceeding the limits of an integer *value (+- 32535) will not be allowd leave the value'); $writeln('unaltered.'); $writeln; $writeln('A value of zero will terminate this demonstration.'); $writ/ ^ ,1.0002á1꧂^^^^^\nƂ^ƃCONSOLE:Ƃ^?Ɓ1Ƃ]CONSOLE:Ɓ1?Ɓ/OUTFILE0?^u^^^'áH O^ LOWERCAS =wDpS 4\?́]2rATB D EJ*T-ŃMJ.r2́\2́^ʁ\ʁ^ȡʁ\ʁ\ʁ\́\4*system$gotoxy( 10, 19 ); $readreal( rel ); $gotoxy( 10, 20 ); $write( chr(eraseline), 'you entered a ', rel:8:3 ); $hang; "until.pascal"ˡ́]T4\́\ʁ\Þ"Ä5́\ʁ]ʁ\2Ȅ$ʁ\ƀʁ\ˡ́]ʁ\́\́]ʁ]4 D rel = 0; "write(chr(12)); "gotoxy( 15, 10); "write('Bye....'); END. ^ ,1.0002á1꧂^^^^^\nƂ^ƃCONSOLE:Ƃ^?Ɓ1Ƃ]CONSOLE:Ɓ1?Ɓ/OUTFILE0?^u^^^'á^^^^'Í@^^^ ^^^^^^aA11Done.1Ƃ^Ɓ1(.Ä5́\ʁ]ʁ\2Ȅ$ʁ\ƀʁ\ˡ́]ʁ\́\́]ʁ]4 D0 { ( (This is Plot ( (Terak graphics package ((c) Copyright 1980 University of Minnesota. (George Gonzalez Julyif OK then -begin 1if How = [ ] then 1How := [ AlphaLow .. GraphTop ]; 1X.Sett := How; 1DisScr := Screen[I]; 1UnitWrite(Gr, 1978 ( (Dale V. Gear Nov, 1979 )added SelectDraw, SelectDisplay, SetPen .SetWindow . . (Includes StartPlot, Line,aphic, DisScr ^, X.Int, 0, 0); -end { Display }; 1 %end; procedure Erase(I : ScrNum); # %begin )if Screen[I] <> NIL th Box, AtXY 1SelectDraw, SelectDisplay, Erase 1SetPen, SetWindow } {$R-} const $Graphic = 3; $RowSize = 239; $ColSize = 3en -FillChar(Screen[I] ^, SizeOf(GrafScreen), 0); %end { Erase }; procedure SetPen(PColor : PenColor); %begin % 19; $Scrs = 4; # type #PenColor = (NullColor, White, Black, Flip); %GrafScreen = packed array [ 0.. RowSize, 0..ColSize ])Pen := PColor; ) %end; % % % % procedure AtXY(X, Y: integer); # #begin &WhereX := X; &WhereY := Y; &NewPlace := tru of boolean; 'BitW = (AlphaLow, AlphaMid, AlphaTop, GraphLow, GraphMid, GraphTop, b6, 0GenBuf, ClickBit, b9, b10, BeepBit, b12e; #end { AtXY }; procedure SetWindow(Left, Right, Bottom, Top: integer); %begin % )XLWindow := Left; )XHWindow := Ri, b13, b14, b15); "ScrConfig = set of BitW; (ScP = ^ GrafScreen; %ScrNum = 1..Scrs; # var &WhereX, &WhereY, $XLWindow, $ght; )YLWindow := Bottom; )YHWindow := Top; ) %end; % % % % procedure StartPlot; # var &Dummy : Boolean; &I : integerXHWindow, $YLWindow, $YHWindow: integer; $NewPlace: boolean; )Pen: PenColor; &Screen: Array [ 1..Scrs ] of ScP; )vcr: ^ sc; ) #begin &SetWindow(0, ColSize, 0, RowSize); &SetPen(White); &AtXY(0,0); &for I := 1 to Scrs do 'Screen[I] := NIL; &Serconfig; &DisScr, %DrawScr: ScP; # procedure CreateScreen ( I : ScrNum ; var OK : boolean ); const lectDraw(1,Dummy); &Erase(1); &SelectDisplay(1, [ ], Dummy); #end { StartPlot }; procedure Point(X, Y: integer); var ))SafetyMargin = 200; ) %begin % %if MemAvail >= SizeOf(GrafScreen) div 2 + SafetyMargin then )begin -new(Screen[I]); -TempY: integer; ) # #begin &AtXY(X, Y); &TempY := abs(WhereY - RowSize); &if (WhereX >= XLWindow) and (WhereX <= XHWindow)OK := true; )end %else )OK := false; % %end; % % % procedure SelectDraw ( I : ScrNum ; var OK : Boolean ); %begin '  'and (WhereY >= YLWindow) and (WhereY <= YHWindow) &then )case Pen of ,White: /DrawScr ^ [ TempY, WhereX ] := true; ,Blac)if Screen[I] = NIL then -CreateScreen(I, OK) )else -OK := true; )if OK then -DrawScr := Screen[I] ; ( %end; % proceduk: /DrawScr ^ [ TempY, WhereX ] := false; ,Flip: /DrawScr ^ [ TempY, WhereX ] := not DrawScr ^ [ TempY, WhereX ] )end; re SelectDisplay ( I : ScrNum ; How : ScrConfig ; var OK : Boolean ); %var )X: packed record )case boolean of -false: ( Int: integer); -true: ( Sett: ScrConfig) )end; %begin % )if Screen[I] = NIL then -CreateScreen(I, OK) )else -OK := true; )1 k, Spacing: integer); # #var .I, -LX, -LY: integer; & #begin { Box } &Width := Width - 1; &Height := Height - 1; &LX :gementՉ2highest segmentՉ> Nbeginning BlockՉkՉzՉ  ՋՋ'áՋ< .ՋOȡ Ջqa&NewPlace := false; #end { Point }; procedure Line(X, Y: integer); # #var *TrueY, *DestY, -SX, -SY, -WX, -WY, +J= WhereX; &LY := WhereY; &for I := 1 to Thick do )begin ,AtXY(LX, LY); ,Line(WhereX + Width, WhereY); ,Line(WhereX, WhereYunk: integer; & # # # #procedure Window(var X, Y: integer; WhereX, WhereY: integer); & &var -Slope: real; 0DX, -TempY, - Height); ,Line(LX, WhereY); ,Line(LX, LY); ,LX := LX + Spacing; ,LY := LY - Spacing; ,Height := Height - 2 * Spacing; , 0DY: integer; ) &begin { Window } )DX := X - WhereX; )DY := Y - WhereY; )if DX <> 0 then ,Slope := DY / DX; )if DX <> 0Width := Width - 2 * Spacing; )end; #end { Box };  )then -if X < XLWindow then 0begin 3Y := WhereY - Round((WhereX - XLWindow) * Slope); 3X := XLWindow; 0end )else ,if X  RT11 > XHWindow then 0begin 3Y := WhereY - Round((WhereX - XHWindow) * Slope); 3X := XHWindow; 0end; )if DY <> 0 )then ,if Y <  YLWindow ,then /begin 2if DX <> 0 then 8X := WhereX - Round((WhereY -YLWindow) / Slope); 2Y := YLWindow; /end ,else /if Y > YHWindow then 2begin 5if DX <> 0 then ;X := WhereX - Round((WhereY - YHWindow) / Slope); 5Y := YHWindow; 2end; &end { Window }; # # # # # # # #begin { Line } &SX := X; &SY := Y; &Window(X, Y, WhereX, WhereY); &WX := WhereX; 4\?Ճ́]Մ2rATB D EJ*T-ŃMJ.r2ՄÍ\2́^ʁ\ʁ^ȡ(Մhʁ\2ʁ\2&WY := WhereY; &Window(WhereX, WhereY, SX, SY); &TrueY := abs(WhereY -Rowsize); &DestY := abs(Y - Rowsize); &if (X >= XLWinʁ\́\Մ4*system.pascalՄ"ˡ Մ́]ՄՄ4\́\Յ&ʁ\Þ"ÄVՅPՅT́\Յbʁ]ʁ\2Ȅ9ՅՅʁ\2dow) and (X <= XHWindow) and +(Y >= YLWindow) and (Y <= YHWindow) and ,((X <> WhereX) or (DestY <> TrueY)) &then )begin ,ifƀʁ\2ˡՅ́]Յʁ\́\ՅٹՅՅ́]ՅՆՆ ʁ]Ն4n`Յqڳ Յa NewPlace or (WX <> WhereX) or (WY <> WhereY) then /Point(WhereX, WhereY); ,drawline(Junk, DrawScr ^, 20, WhereX, TrueY, X - WAՅՅ׭!4تPՆtō-Ն-OՆInvalid  Value: hereX, DestY /- TrueY, ord(Pen)); )end; &WhereX := SX; &WhereY := SY; #end { Line }; procedure Box(Width, Height, ThicՆ맂-ՇT~ՇՈ0Ո#Ո<ՈGՈ" Io ResultՈ2 Segment LimitՈ2 Next se2  ՕՕՕՕáuՕՕՖՖ šOՖ#Ֆ+! Press for more files.ՖWˡ;զէOutput Error!!է)է8է?fէɡէէէ"ƔƔ+3ՖfՖv Ֆ}ՖՖÍՖՖՖۥՖ楂Ֆ  files in   bloc?ը Ɣը-̔,ըBʔ,šdը\ըgʔ,̔-ըʔ-ըΞ"˫ըʔ-թ ʔ,ʔ-̔,թ-ks. ՗.  free blocks,   in largest area.՗u՗՗ʔ-թ>թD?թ[թe  blocks read.թƔթթƔV(ժ1ժ3 ~ ՙ*ՙ3Enter RT-11 file Name:ՙW3P3ՙbՙsՙՙ.ՙš-ՙ1ժGժOժ^áժ/0ժ/0ժɥժϧ(ժ楂Transfer Errors.իՋġ Ջ0Ջ?ՌT Ռ.ڼڼ C< C ՌUڼ CՌo0BՌá0Ռ..ȡՙɦ Pՙ ..ȡ5ՙȡ՚ ۛ ՚7  ՚K՚RȡՌۂ  _ՌՌġ Ս ڊՍHڊՍ5ȡՍNە FuX ՛  Output file:՛#3P3՛.՛?h՛S՛Y--ȡ՛tڛڛՍqՍx* Սɡ&ՍՍՍآ ՎՎՎ)آ ՎP GՎuՎzڢá Վ՛.text:Í ՛՜ ՜՜%P՜1^V ۩ ՝ ՝.՝A՝J ՝Yá ՝Վڢá+ՎՎˡՎՏ Տ,Տ;ՏKՏ]ڢáՏՏآ ՏՏՐ  ՝ ՝Í՝՝՝՞՞#՞*[xՠ šՠ(ՠ, ՠ?ՠVxՠeՠՐ*Ր7    Ä   ÄՐ  Ր .Ր0ՐڢáՐآ Ցڢ file tynՠr2ՠՠ˶ ˄ՠŶ áՠ)ՠáա աա0 ա>աEաLpeՑ$ file sizeՑLآڢՑhՑo@.` Ւ ՒȡՒՒա_աkա2 աաȡաբբ á բ'բ:բIšբc22 ۂȡ'Ւѥ Title SizeՒՒՓHt ՓVšՓiՓ{Փ#բȡբ2 բ ˡբ2բȡ"գգ2գ+գ?գDգT" Փ ՓՓՓՓՔՔՔ'Ք:ՔIՔRՔd Քqá;Xw գգգգ2գգդȧ6դ<դG2݂դ"ՔՔՔՔ᥂  ՕMՕ áEՕ1Օ:Օ[ Օ {Unused} ˫դդդԹդߥ  lines read.դ2ե~զզ3 1կqáկ& ƃ3Ƅ_CONSOLE:ƃ3?Ƃƃ2CONSOLE:Ƃ?կկޥ կկ IN # ՚Ѧ PROCEDURE ՚ FUNCTION  ՛ ARRAY # ՛= RECORD  ՛b VAR  ՛ TYPE  ՛ հƃ3Ƃx~22Z<b Z6 ^ N 2l20cխխխծ ծ<ծCONST  ՛˦ LABEL ՜ SEGMENT  ՜* PROGRAM ՜M NOSYMBOL  ՜m.՜ǠM՜ťǠ . SPRUCE A՜ڥǠI՜鹿ǠN՝ Ǡ՝Ǡȡ՝<Ǡ՝[ȡ՝ ՝  ՝̥(!՝)"՞= ՞0,՞Q. ՞s[՞]՞:՞ץ< ՞> ՟;՟8՟?#ȡ՟~#՟#ՠ #ՠD#ՠs#ՠ#ՠ饅#ա$#աOf ա աتբ/բš 4\?Ճ́]Մ2rATB D EJ*T-ŃMJ.r2ՄÍ\2́^ʁ\ʁ^ȡ(Մhʁ\2ʁ\2բ4 բVբh{[ǘ]}ǚբǖբբ բ쥇 ?բ? ի RT-11 file 'ի' ի>  áիZիjȡի իʁ\́\Մ4*system.pascalՄ"ˡ Մ́]ՄՄ4\́\Յ&ʁ\Þ"ÄVՅPՅT́\Յbʁ]ʁ\2Ȅ9ՅՅʁ\2' transferred to UCSD file ''իիի znƂ2ƃ^?լ%1լ;1ƀʁ\2ˡՅ́]Յʁ\́\ՅٹՅՅ́]ՅՆՆ ʁ]Ն4n`Օ'ɡՕ:ՕLՕX2HլMլZ/01լ1(լFile not found!!լլլƂ2 z խWխ`ENewDisk: Plac"ՕšՕՕՕ̭2"Ֆڳ ՖCAaՖՖT8٩ ՗՗e RT-11 diskette in a drive, enter Unit number {4 or 5}:խ3 3խ0cխխխծ ծ<ծ̧( ՗˥(ؚ՗ B ՘՘) BEGIN  ՘M END  ՘o IF  ՘ THEN 0&That doesn't look like an RT-11 disk!!ծb$ծsInvalid unit #ծծծկ ՘ ELSE  ՘֦ DO  ՘ FOR  ՙ WHILE  ՙ= REPEAT  ՙb UNTIL  ՙ CASE 2RT-11: Files Transfer NewDisk Quit կE3կQعկh 3կ{ ,կ%ft  OF  ՙʦ WITH  ՙ MOD # ՚ DIV # ՚9 AND # ՚_ OR # ՚ NOT # ՚4 ǝcթ_ǝcթrǝcթթթթǠǠǠȡժ0Ǡ ժ# ժJժZ. ȡՉ|:0ǠՉ:ՉՉ*ՉՉŧǠՊǜǠՊՊ1ǠՊI%Պ[ǠիǠիšի իӧիǠիլ լǠլ0áլD 0000000000Ǡȡ Պ ՊǠǠȡՊ0Ǡ ՊՊѧ Պ -Vk0Ջ%SՋ=ՋB լ}լ'š լ'լլ~խBխMš(խhխp  խšՋkՋp듡ՋՋՋ'ՋՋǜǠ ՋՌ ǜǠ Ռ'Ռ< ՌNՌ`fՍl4ՍՍ盾ՍխDծ駀Ǡծ-ծ2ɡ%ծTծ\ ծǜǠծaծծçɡծկկ š-կ)Ս}áՍՍՎ ՎLՎgՎՎՎ%ՎՎ 0Տ2Տ;šկF կ կǜǠհհհ! հY հt: հ հ%$ հհհՏlՏ~/a lՏȲՐ ɶPÍՐUՐ~ǝcՐɡՐՐūՐ߶ՐՑ ǝcձ ǠǠձ>ձlǠǠձ駀ǠձձSձձղ =ղ ղ%ղ;:xՑ+ǝciՑJǝcZՑlǝcKՑǝc<Ցǝc-AS& mSJCr$:ՑϭղNղdǜǠղ|ղղղػղղǜǠճճ 6 C駀Ǡn|7 Ւ#Ւ4ՒAˡՒ`Ւ|ŶǠɄń$ՒՒݶǜǠ ՒǜǠ ՓՓՀ٢ǜǠՀՀ<ՁǠՁ!ǜǠՁ-Ǡȡ ՁN ՁZBՁ(ՁՁ ՁŶń"ՓJՓXǜǠ ՓqՓfՓՓՓՓ>˄ՔՔ%>áՔFNǜǠՂ%ǠՂ=ՂI<ՂLՂՂ ՂՂՂՃ Ճ Ճ.ǜǠՃIǠՃaՃmՃ~ WR Քun%\ՔՔӮՔ(Օ (fՕ3MՕX+ëTՕ-ëJՕbՃՃ   Ճ+ǠՃՄ Մ! Մ1Մ@Մ] ՄoGՄՄՄՄ:Օ+ëՕՖ"Ֆ(Ֆ\- ՖhBF TLHՖՙ Ֆ ՖՖ՗գ գ*գ4գZԳդ- ե*dզO'* զErrors in Pascal program!:ՄՄ ՅoՅՅǝcՅ  x$'@զ!$զǜǠզǜǠ էǜǠ է$ǜǠէ8ǜǠ էMէpǜǠÄ Նǝc^Նçç Ä ÍՇBǝc8Շ\- -"ՇȡՇՇ ՈǝcՈ-Ո8тقš էPǜǠ էǠէէէը1ըHըdըըըըǝcթǝcթǝcթ.ǝcթGՈՈՈՈǜǠՈтšՉ"Չ,:Չ7:*** Warning - Symbol too long::Չ`Ǡ5 ۳R_՗՗՗ڹ՗D՘#=՘N6AW.%)-30;=8A(*,B՘cp՘w՘՘۳'ˡլǠխ խ { 3   8<@B2468:<>@BDFHNՙ.ՙ8:ՙC:*** Unknown Spruce Directive:::ՙvՙՙՙ]áՙՙ׭JLNPRTVXZ\^`bdxz|~rtvxz|~SխA áխeխnխ ˡխ4, 2՚}á՚ˡ՛ ՛՛#*ˡ՛H՛Z՛c)á՛՛ ՛՛21G Z՜e՜v՜ խϥ0Ǡխ𥄼ծǠծ)@HX\ծծծW#ծծ#կկ!,՜Ǡ՜+Ǡ á՝ Ǡ՝}å+Ǡ{Ä+Ǡ(å+Ǡ*Ä%"$կǜǠ կǜǠ կɡհ ǜǠ *հ հ5 ǜǠհiǜǠ հհf%/ǜ՝՝ǜǠ ՝՝ǜǠ ՝՝՞$á՞*՞0[á՞]՞c}á՞ˡ՞՞՞*ˡ՞՟՟ )á՟/Ǡ%V&ՀǜǠ%Հ'ՁdǝcՁ|š2ՁՁǝcՁ$Ղ#Ղ!5Ղ5՟= ՟V՟]:21G՟ء7՟ՠǠՠ0Ǡՠ8ՠbՠiՠtáBՠՠ0ǠՠՂFǝcՂU&ՂnՂ|$Ղ#Ղ'ՂՂǝcՂۭ)ՃǠՃ!ՄՄآǜǠՠ٫ՠՠÄ ա7ǠաN աǠաաաǠբ 0Ǡբ/բ8ԼբǠՄWՄkǜǠՄV+ՄǠՅ#Յ$ǜǠ%ՅkՅ*Յ'ՅՅ#ՅǜǠ%ՅfǠբy Щ բ բ ȡ#բ 0Ǡբ̧( գգ)(Z,Ն8Ն>š=Ն^**ՆՆ+ՆáՆՆՆՆՇՇՇ\-ՇǜǠՇϧš@ՇՈ  գQգh(գ2y !գգդդ դ0ǠդDդM@դ$Ո-á#ՈSՈ_#Ոm+ՈǜǠ%ՈՈՈͧˡՈ$Չ&ՉՉ$#Չ*ˡnՉQՉiՉ}*w dդդդ0Ǡդդ(-եեե*0ǠեOեXե!áJՉՉ#ՉǜǠՊǜǠ%Պ1*ՊP#ՊbǜǠ%ՊzՊՊˡՊǜǠ%Պ׭.Ջ#եեB "եWAէ?է[էdǠէs0Ǡէէէէ}է}ըՋ8ՋK !á&Ջn Ջѕ ȡ Ջ ՋǠՌՌ3Ռ8 4Ռiˡ+ՌՌՌ߳ըը&* ըFçըըáըըѹթ!ժ("ժ8ժAժR ˡժyժ=  ժժ=  ժ ˡի$> ՌՍՍՍoՍՍՍՍ,RՍ.KՎ)DՎV-=!6# & իMի` ˡ ի.  ի իիǠիիլ Ǡլ(0ǠլVլ_'áլ~Ǡլ0Ǡլ "$&(*,.0>4IՎkՎ#ՎՎ  <*ՎՏՏ &Տ$Տ2ՏF*ՏoՏy'Տ:(Ր6 Ǡ1բբբӲǝc2բգǝc2գ_գmáգգ0գǠ:յ9ƈ:ƉfCONSOLE:ƈ:?ƅƇ OUTƇ ƈ9INPն%ն3ն9 (նS: *** Eգդդ դ6#դ?դ[Ǡ1դդդǝc2ե!ե>mpty file.:Wնvննննˡ4նޥ: *** "PROGRAM" was expected.:շ9շշ#ƈ:ƅեVǝc2եGեǠɡ6եեզզ*ǝc2զcզ}զզTƇ ,b 6  2L l (H0*d.$ >!!!# $$#""'+)'$,̀ʀȡ ՐՑՑ áՑ2#Ց?#ՑK0ՑeǠ̀Ց|#Ց!áՑՑ$Ց#ՑՑá Ւ6զ$է#է&է'ˡէJէbէkէ0էǠէ$է#ըWը@ըHըd$Ւ-#Ւ7&ՒPՒgՒ{ʀǠ/ՒՒ'Ւ#ՒՒRH 0 ۨڨ٨ՔƧՔՕ ǝcՕǠ1ըըȶըǝc2թթ*áթR#թYթk'թթ#թ ÄWթթǠ9؂ՕlǠ Օ ՕՕՕᕶɧǠɄՖ~>ՖՖ؂Ֆ楁ǠCժǠAժǠSժ;ǠEժYǠժn3ժuժx2 V7ժֲ0ժǠի  ՗՗2ؑǜǠ՗O՗[՗g2՘՘-0՘FǠ՘^ ՘w0Ǡ{՘Ǡ՘՘0$ի$#ի-իIǠ1իիլǝc2լ88٨լ̀լ՘ƶǠ՘ ՙ ՙ"ՙ,0Ǡ}ՙCǠՙWՙe٫ՙǠՙ0ՙF3՚dˡ՚՚լ̀լ&լլƀխӡEխխ%駀Ǡ̀խYʀʀѕǜǠխ#խ#խխإ#Dծ$8#՚ˡ՚՚IJ՚Ǡ1՛!՛W՛ǝc2՛$՛՛ǠPծE4Hծk6Aծ7:ծծկ #կկD4 KF@;8կbʀǠɡկʀǠ կǠկ'կ՜՜՜3Ǡ՜N՜Z՜i 5՜՜#՜̧ˡw՜՜҄ Ä՝j3՝s՝db1٨հ)ҧÄհh á հ*(հá հޥ'(հá ձ $(ձ/á ձ`!(ձq՝՝Ǡ1՝Ǡ՞՞O5՞V՞o՞ǝc2՞՞۲ձ0ձámձձ꧀ҡ.ղ Ǡ̀Ǡ̀ʀʀȡղ=ʀ̀ղR̀ղǹղ'ղƀǠ1ղղ&ղá՟$՟[$՟;՟՟á ՠ ՠ4ՠTǝc2ՠՠ)ՠç ճ #ճ"ճ8]J /մdմq#մy0մǠմ$մ#մմ륀Ǡ/յ . յ ˫յNյTաڧա43 ա@աf3աml4ա0աҧǠա$բբբ2#բ;բWYյjյt:յ:$ *** Errors found in Pascal program.:յյ+յҥ: *** Spruce complete.7 PȡՄ-Մ,Մ6ՄF2WHAT FILE WOULD YOU LIKE TO COPY?.................4\?́]2rATB D EJ*T-ŃMJ.r2́\2́^ʁ\ʁ^ȡʁ\ʁ\ʁ\́\4*system Մ2ENTER FILE TO WRITE TO, OR ENTER P FOR PRINTER:...Մ Մ襂2HOW MANY COPIES WOULD YOU LIKE?...pascal"ˡ́]T4\́\ʁ\Þ"Ä5́\ʁ]ʁ\2Ȅ$ʁ\ƀʁ\ˡ́]ʁ\́\́]ʁ]4 D.................Յ(Յ92HOW MANY LINES PER PAGE DO YOU WANT WRITTEN?......ՅyՅ2H2 뚥22Ɓ2Ƃ^CONSOLE:Ɓ2?Ɓ1CONSOLE:?OW MANY BLANK LINES AT TOP OF PAGE DO YOU WANT?..ՅՅۥ2HOW MANY BLANKS BETWEEN LINES WOULD YOU LIKE?....2L222꧁222.Íꓡ aAƁ2g.ՆՆ,2WOULD YOU LIKE THE PAGES NUMBERED?................Նl7Ն|"#"Ն< LISTIT 7 Ն""ՆPpՆץPRINTER:Ն7 Ն" "Շ7Շ"" "Շ67R,z,,r9:յ:$ *** Errors found in Pascal program.:յյ+յҥ: *** Spruce complete. @:յ9ƈ:ƉfCONSOLE:ƈ:?ƅƇ OUTƇ ƈ9INPն%ն3ն9 (նS: *** Empty file.:Wնvննննˡ4նޥ: *** "PROGRAM" was expected.:շ9շշ#ƈ:ƅƇ ,b 6  2L l (H0*d.$ >!!!# $$#""'+)'$,ՁA Ձ***************ՂA Ղ)* *ՂFAՂX* IN PROGRESS * UPLOW ՂuAՂ* *ՂAՂ š<Ղʥ * COPY NO.   * ;Ղ * COPY NO.   *ՃAՃ.* *ՃKAՃ]***************ՃwՃՃՃƥ) *** UTILITY PROGRAM COPY ***Մ8 LE WILL BE ............PRINTER:Չ ՊNUMBER OF COPIES IS......1Պ, Պ=LINES PER P!CONSOLE:Ƃ?ƀƁOUTFILEƁƂINFILEՒ ՒՒՓՓՓ%*DO YOU WAAGE IS........60Պf ՊwBLANKS LINES AT TOP IS...4Պ ՊBLANKS BETWEEN LINES IS..0NT TO RUN THIS PROGRAM AGAIN?....Փ]/Փl"ՓyYçyÍՓYՓՓՓՓՓՊ Պ饂!PAGES WILL BE............NUMBEREDՋՋ)&DO YOU WANT TO USE THESE DEFAULTS?.Փ YYՔՔ Ք( FOR FILE #.....ՔNՔ_ THERE ARE ...Ջ]+Ջl"ՋwYçyÍՋՋPRINTER:ՋՋ<ՋՋՋYՌՌ  NON-BLANK LINES.ՔՔ THERE ARE  BLANK LINES.Ք Ռ($ENTER FILE YOU WOULD LIKE TO COPY...ՌZ) Ռk"#"Ռz ՌՌՌՌtՌՔ秂󂫂Օ...FOR A TOTAL OF   LINES.Օ7ՕHGOOD BYE........ȡՌՌՍ#ՍՍ5š3ՍIȡ Սg3ՍՍՕcƄ"ƂƀƁZ #0  "ՓyYçyÍՓYՓՓՓՓՓՍՍՍå\PՍ֥\3ՍՍ3Վá Վ(Վ;1ՎHՎR\Փ YYՔՔ Ք( FOR FILE #.....ՔNՔ_ THERE ARE Վfá Վ~ՎՎšCՎȡ0ՎՎե3ՎՏ ՏáՏ;  NON-BLANK LINES.ՔՔ THERE ARE  BLANK LINES.ՔՏCՏSBՏjՏ{ȡՏՏYçyÍ@ÄwՏՏYՐ# -Ք秂󂫂Օ...FOR A TOTAL OF   LINES.Օ7ՕHGOOD BYE........ՇG" "ՇY7Շj" "Շz7Շ"ՇYç@ńՇՇՈ 3*** SORRY, NO PAGE ՐA -Ր_ՐuՐ'ՐՐ3ՐՐՐѧՐNUMBERS ARE OUTPUT WHEN PRINTINGՈK$ MORE THAN 64 LINES PER PAGE*****ՈNՈՈ*ȡ Ր3ՑՑ&Ց?ՑFBՑZՑhȡՑՑYç@ÄpՑՑ \Ոå3 PՈՈՉ=WELCOME TO PROGRAM LISTER.....PLEASE ENTER A TO BEGIN# -Ց -ՒՒ-Ւ@'ՒMՒW3ՉO""ՉaՉqՉ& ******** TABLE OF DEFAULTS ******** ՉՉť!FIqՒՒՒՒՒՒĭ5!&FT!"Ƅ"ƅNCONSOLE:Ƅ"?ƂƄ9 AI.ew ww.wR<ؾȡ;ق ȡ&ڳ قaACNPڪP.P."á̀ GRAPH  pǀ% Հ?Հ̒ŧʒȡJՀ@̒Ƨʒȡ*Հ@ùĹՀǀ% program graph;   var screen : packed array [1..240,1..320] of boolean; $i,j : integer; $ $begin &fillchar(screen,sizeof(sՁ(lX% DISK*SYSTEM.SWAPDISK[10] PASCALCO 0< creen),chr(0)); &unitwrite(3,screen,63,0,0); &for i := 1 to 240 do (for j := 1 to 320 do *screen[I,J] := true; &fillchar(sc n0D>. >>´,!ٲ8¯ʶ/8º*SYSTEM.SWAPDISK[10]&?²dreen,sizeof(screen),chr(0)); &unitwrite(3,screen,7,0,0) $end. /EWSYS:GRAPH1.text.DATA|h8ԲBԲ.CODE1.CODEL F1f||tzD||z41 ?TMP.AOW.DATA޶w Default fiE*SYSTEM.EDITORilew CharacterwL(>O^:  , , 0UNIVERSITY OF MINNESOTA,MORRIS COMPUTER CLUB 0 &Our last meeting for the quarter will be held Wednesday, May 13, &1981, in the conference room (Camden 13) at 7:00p.m. &BE THERE. Thank you, V.P.C.C. & & & & & & ?TMP.AAI.DATA޶w Default fiE*SYSTEM.EDITORilew CharacterwL(>O^B.w ww.wR<ؾȡ;ق ȡ&ڳ قaACNPڪP.P."á̀ 0.8 3000.0 1.0 1600.0 1.15 1000.0 1.35 505.0 1.60 230.0 1.80 110.0 2.00 61.0 2.15 33.0 2.40  10.5 2.65 8.2 2.90 4.3 3.10 2.8 3.45 1.8 3.65 1.4 3.85 1.2 4.1 1.1 4.6 1.0 4.7 0.95  UNIVERSITY OF MINNESOTA,MORRIS COMPUTER CLUB / $Our last meeting for the quarter will be held Wednesday, May 13, $1981, in the conference room (Camden 13) at 7:00p.m. $BE THERE. Thank you, V.P.C.C. $ $   ;  by index letter. $ %2. Bidders' Qualifications: Bids to furnish equipment *specified below will be accepted only from bidders who have *been engaged in the business as manufacturers of digital *computing equipment for a period of at least two years (or *represent such manufacturers with these qualifications) and *further, who have actually supplied such equipment of a *satisfactory character. Bidders must submit with their *bids a list of at least three sites where the &1. Invitation to Bids: Sealed bids will be received at the *office of the Purchasing Department of the University  specific *equipment being bid upon is now operating satisfactorily *and has been so operating for a period of not less tha & 1 1UNIVERSITY OF MINNESOTA,MORRIS COMPUTER CLUB 1 'Our last meeting for the quarter will be held Wednesday, May 13, '19of *Minnesota until SEE ATTACHED for the purchase of a *Digital Equipment Corporation VAX-11/750 or equivalent to *b81, in the conference room (Camden 13) at 7:00p.m. 'BE THERE. Thank you, V.P.C.C. ' ' ' ' ' ' e installed at the University of Minnesota, Morris, MN *between July 1 and August 1, 1981. All questions relating *to th' ' ' 2UNIVERSITY OF MINNESOTA,MORRIS COMPUTER CLUB 2 (Our last meeting for the quarter will be held Wednesday, May 13, (1e bid should be referred to Andy Lopez, phone (612) *589-2234, Room 14 Camden Hall. *This specification is divided int981, in the conference room (Camden 13) at 7:00p.m. (BE THERE. Thank you, V.P.C.C.  o two segments: The *primary computing system (hardware and software) and *supporting subsystem(s). Vendors must O^ clearly indicate *which item(s) they are bidding on and how it would *interface with the rest of the system (mustAS- specify all *controllers and interfaces required). % *The University of Minnesota considers all terms and *conditions accepted by the bidder unless written exceptions *are made to specific clauses of this specification. % *All items should be responded to in the order in which they *are presented in this specification and should be referred *to< nesota. *The University reserves the right to reject any bid which *does not comply with the requirements of t-B) - at least 134 Mbytes (user accessible) of 2removable disc storage (on two spindles) 2with peak transfer rates of 1.2 Mhese *specifications. %3. Specifications: This equipment will be used to *simultaneously support local db/sec 2connected to the MASSBUS in the case of a VAX-11/750. 2Required cables. Example: DEC RGM03 and RM03 - -C) - 16 EIA aata processing (e.g. *compilations in FORTRAN, BASIC and Pascal), data entry, *text or word processing and remote batsynchronous (DEC DZ11-A,B) ports 2capable of auto baud detection and 2programmable to speeds of 9600 bits/sec 2System must bch processing (i.e. *act as a batch terminal to CDC and IBM computers). The *equipment must be able to support 16 asye capable of being easily 2expanded to 32 ports (please specify 2equipment required to do this) and must be 2able to supportnchronous ports *(all operating simultaneously at 9600 baud) doing text  continuous interaction with 2all 16 ports at 9600 bits/sec - -D) - 1 synchronous communication controller capable 2of half*processing and/or data entry. The system must be capable of *providing average response time of 3 sec to interactive *us/full duplex operation at speeds up to 29600 bits/sec, must interface to Bell 200 2series modems. 50 ft modem and data set ers while synchronously communicating with a host *computer at 4800 baud. Vendor should bid components *capabl2control cable. Such as DEC DUP-11 - -E) - Operating system, assemblers, editors and other 2utilities with the convene of concurrently supporting all of these *applications and the peripherals specified in this *document. ience, capabilities and 2reliability of DEC VMS 2.0 or better. -F) - FORTRAN compiler in full compliance of the FORTRAN n one *year (with the exception of the processor which will be *expected to have been in operation for no less than 90 day The system must be capable of being enhanced to *32 ports, at a later date, by the addition of memory, mass *storage and cos *at the time of this installation). This list should *represent three separate companies, not various branches of mmunication ports. *Equipment bid must meet all specifications and character- *stics of: * *PRIMARY SYSTEM -A) A 32-bit*the same company. This list of sites must include the *following information: (1) name of the company; (2) *ad minicomputer such as DEC VAX-11/750 with: 0- 1 Megabyte of ECC MOS memory 0- 4 Kbyte of cache memory 0- programmable real-tidress; (3) name and phone number of the person *responsible for the equipment's operation. *A financial status repme clock and time of 2the year clock with battery 0- Console subsystem consisting of appropiate tape 2or disc cartridge and ort of the bidding corporation is *required if the vendor has not previously done business *with the University of Minprinting terminal. 2Fifty ft cable for printing terminal. 0- Remote Diagnostic Module - =  standard. It 2must operate in an interactive as well as a batch 2mode and provide meaningful diagnostics in both 2modes. It should interface with any special file 2system such as DEC RMS. -H) - BASIC compiler with extended features such as PRINT 2USING, external subroutines, etc. It should be 2highly interactive and provide meaningful 2diagnostics. It should interface with any special 2file system such as DEC RMS. -I) - Query language software package for any specialized 2file structures supported by the system. For 2example DEC RMS files and DATATRIEVE/VAX. *The above mentioned  equipment and software should be *compatible with DECnet Phase III Network Protocols. System *should also be able to run the UNIX operating system. *Vendor must quote prices on additional software and *hardware required for the proposed equipment to become a *node in the proposed University of Minnesota network. (See *enclosed diagram.) . *The PRIMARY SYSTEM must be bid as one fully integrated *package to be installed and maintained by one vendor. *Vendors may choose to bid only on the following subsystem *or its individual components. -J) 1 - 9 track mag*** COM info file C:\ D:+ O:+ X:BATCH|$XFER,~ R:3 GRAPH 1I 1J 1277 Standard. It must operate in an interactive as 2well as a batch mode and provide meaningful 2diagnostics in both modes. It should interface 2with any special file system such as DEC RMS. 3 -G) - Pascal compiler which meets the ANSI>  55& 4  b & !z733E&3m&E-3p\-3r\-p-rr@E d, t6h-3 Dt~ ,  &P&!_e" stsuvxF3l3 # s !5 5 #J3"e!#ePe"Pj3h3|3z h U $ .u!\y+?Err 59 USR not locked?Err 62 FORTRAN start fail L&556 6 f&AEV2@ lB`)  rrwʊ;@ҋ54 ^ R X΋ B+ ,+1  wF  1z|  + l1? DW=W?= A @ @)鈇& e:   낃 (  h 3 E`E& N U%@"w?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err (PC=D0B wĊNF @ĊA    <&/ B CUNUeeePPPHeN TɥRU@ɥOUɥSU 0 ɥNUɥCU p33 ĊAW ե B 5U `#wJ5e* >5e* N A f C%v   \  \4e* 4e* f B % % e@ ( B`  ` A@^   A ^”E 6 6 &  f 6A  v  6N\4huj(  "&(f & eBCIE `-    D E A@D D e0bb %- ҕ* V ?  3 35@5#E 5m5 ҕ   mU |mpt to store outside partition048 Unit already open@64 Virtual array initialization failureA65 Virtual array mapping errorB6|| 11 Floating underflow6 Output conversion error4 Computed goto ou6 Unsupported OPEN/CLOSE keyword or optionC67 Unsupported OPEN/CLOSE keyword or option351 Inconsistent OPEN/CLOSE statement spt of range 12 Floating zero divide2 Integer zero divide3 Compiler generated error16 Wrong number of arguments 13 Sqrt ofecifications250 Keyword value error in OPEN statementD68 Direct access record size error0 Non-FORTRAN error call %c negative number1 Integer overflow 10 Floating overflow5 Input conversion error14 Undefined exponentiation operation15  s ыs e    ;3  ,FF3 F V H-t~3 r3 p3 X 3\"~ RU Eȋ th`5w "J U   Log of zero or negative number7 Incompatible object modules553 List directed I/O syntax error=61 Illegal memory reference2U  `5 8&  % & 鈀鈶   0 Invalid logical unit number21 Out of available logical unitS22 Input record too long23 Hardware I/O error?63 Illegal in% \ PAUSE -- @&@&& M @&@&&M  @ ) e& 5@  24 4 E5struction trap24 Attempt to read/write past end of file25 Attempt to read after write26 Recursive I/O not allowed-45 Inco4 3 3\    ++ f3! ,f$ f nH5$ STOP -- mpatible variable and format types27 Attempt to use device not in system31 No available I/O channel28 Open failed for file %B+t&& fAP  t\ %+t *& 29 No room for device handler$36 Bad file specification string,44 2nd record request in ENCODE/DECODE 32 Fmtd-unfmtd-randomeN t  RDZ ~&$3R3~3D3Ze &j*S3`D Z~^ I/O to same file!33 Attempt to read past end of record"34 Unfmtd I/O to TT or LP%37 Random access read/write before define f\ $*& eN t RD \RD ^f&ile&38 Random I/O not allowed to TT or LP'39 Record larger than record size in define file(40 Request for block larger than 6) 35nȋ~ 5*4& 54-  pt p&朢d   Z5535)41 Define file attempted on open unit#35 Attempt to output to read only file30 No room for buffers*42 Memory overflow  5@a3 s 5@ @ 3@3 r3 p3!  #p  compiling object time format.46 Infinite format loop+43 Syntax error in object time format149 Endfile on random file/47 Atte@  `CBД  SD @` .@P|df`bX\^Z`pdf`bX\^Z  7 7 2 2\# F# (8 j2j7  XwrH h@ ^8 T035e3d & 35 5  Xf&̋TT 5 E J ($> 4 K  ? BB ,  '( w 8*ť1 ť+ť$ 3 Tť0 H̋  <̋s  Ş@{s @ s ツ̋j7+ zd".lcT08 e x2 l F d94\-666Nm 54 w&4 4-45@E4   &vC j5 , F$t7 69. 7 :.8 @e  2 ^<  = 8EUe  & 4-2 . Z& &v    E5@ e 2 &   -Z  2%2 "C& *88 eW   , /ߋ*3 pr 5U3 rpwf&$  J"Kv v&EJ G>I2J*-w\LJ2 wFN2j2  P2  2 2 f& @ D\&e &&& &N&P0* 22 &8 BU2 `V2 7 >2   v7 t n3  `D T3 {` `3 V3 Tl ,FFBFF R w  3oAsk T g  N  || @ @H @@@ 7 -z. n.. z X.z.  Z[ `X DTB ";  J  @ B   D \$w 񮉳V- D  ׬R0`7   :.}. F`7  -* . . . ^  . DD >3 V3  .3 F  `P B3 \ p@  dEx6 H3I \sJ 8sLp .  .  . x7 &.jz1. v Vz1/% *sN DL׬I( R%RNN @ 3`"  , b Bz10 N  ,-@  *   1 x F1 d1  1     4 JœH @ & %NR W w V𭉗   D > 7 v1 2  21 . 22 n 8 T27  n <w^2 L R2& & EF   zw f w DR%% $J J N ꇁ   Е H F21 R 022  8 "8     - @ 7 2 8 2 $A 7 v33  3 / /   x9z $e ^7 3P3  D7 36 Dw&4 tE 54 \5d 4 P  4 0E  -  43 <4 5h8 e v/  jb|xP n F4 :2 < (43 4  4 X5 h8 Be 7 44 4 P44  v 2      @ l d?  \4 P> PROSE  `` ڤaġ aA(ڤZȡ aA(ۤ۹?0 D (#8 R% wD  p% w / 3   r   "$&(*,.02468:<>@BDFHJLNPRTVXx\`bdzx/ 3  g/ 32 " #v /Xb /LZ  />N fhjlnprtvxz|~ ۫c  ɡؚ& . ^w .T8z @ /$ @!% @e / w( L%) $ ع  0 áA áġ M DŽġD M DŽ'ġ D B C D `0 ߢ 9  LH٩  ȡ1  9 LI٩ 0` ȡ1  9 LJاcآ  MISSING ) IUNMATCHED QUOTE JPAGENUMBER TOO LARGEJUNDEFINED KEEP BUFFEJR HUNKNOWN DIRECTIVE: J ȡ7٥d٢ BAD NUMERIC FORM JHYPHENATION NEEDED: Jȡ4ɡBAD TERMINAL TYPE JMUST BE IN INITIAL DJIRECTIVE GROUP J"EXCEPT" MUST BE FIRJST HDIRECTIVE NOT ALLOWEJD: H ȡ7Z[ń[k ˡárkɡikkPk٧š9٢ AA٢ ٢ "٧٢  D٢ ٢ ȡ# ٢ \\.ġ``1` 1x F_[K^@] [[^.Ä[Ʉ\.Ą\wšw\꧇`škšlkšbP\٢ wȡ4٢ n٢ ٢ -wš^_  GG٧wȡF٧wġ ٧wšGF٧wġ 4E٩ȡ1E H_ɡ- H___ IS TOO Ib SMALLH LARGEH, H`  USEDH   ȡAZȡaz Laa  ---- HɡFORM ERROR: JعLINE TOO LONG Jȡ09ȡDiVCDELṔʁcʁ fPAGENUMBER TOO LARGEJJBAD NUMERIC FORM J.NO "L" FOUND J $B`STW#[]/"' BCDH꧁ql0 . H́@́ʁʁȡ!ʁAʁʁ́٧@q dKUW KLR EFJKLMP MARGIN I OPTION I PARAGRAPH IFORM H SELECT I SORTINDEX IzCOUNTHm INDENT RSU EPSUW WVWCFI[SKIP HN OUTPUT I<INPUTH/RESETH" ~ncSH8- ERROR: Id2ɡKLIKNPSU L M P R S   + R.Rf_ɫbb ښ`š ٚ`8([//T#62E///L56//#33"- "PN:1"- " ' NnLlRr UbNbOb -"///] Щ((ȡr(Q0P65y y S,M34 bCbLbObCbKb  b  b tXl l l l)o. ǖ& ȡxؤ$ TN'ˡ''>'($O*.Fw l l l l l  l  al tY ۤښ ۤٚ ؚۤ٥d٢ HAJ PITCH MUST BE 10 JOR 12H! iY?%% F%u ȡؤ\ &*DP+ap-Z^vON ȡؤKKEEP HRIGHT MARGIN JLEFT MARGIN JWIDTHH INDENT INUMBER WI( PQ /x\_MY4R,\[2m]^n ȡؤDTH JSKIP H LEFT WIDTH I MARGIN IPAGE COLUMN JRIGHT WIDTH J~SORT*HSȡڹmZMNOPQR}{SwuȡVTR COLUMN JbSHIFTHUJUSTIFICATION LIMIT J9 SPACING I'3B G<"t\Q7 OF H><:86.uuuqoomkkigeeccFFF>6666JF [WEO[EXC[ASC[LPT[AJ [Z5ښ5ٚ5ؚ[6]Jan]Feb]Mar]Apr]M]á1^^0 š0<]]]0 0T0  0. ay]Jun]Jul]Aug] Sep] Oct] Nov] Dec]P\`?o?\UXYZ ]na1 ǖ0 0P 0 Lǖġ#0 @'(01Y[\]^_`l  V0E|ˡ& +TƑƓCONSOLE:Ƒ?ƐƑCONSOLE:Ɛ?ƇoƈOUTFILEƄƅ?INFILETD]EDؗ ٿ <š    ق  Í؂  "/ɡZa)Prose errors detected.ƑƐƇoƄu.&$R*   3     áٸ ٚٸ ظؕɡ ؂ "x V $ RLJ>n|v8!"l$%$&'(l( ))))"*p**>+++,,,-8-2.V-0<3f ٢آ Nڟܡ-گ ڟ9 n 33<44450<57^88899=:F=<>j>>>L ]Y[\]^_`l  V ˡ    _ڤá@ܢܚ_ڤ _ڤ߲ߢܚߢ;;_ڤTƑƓCONSOLE:Ƒ?ƐƑCONSOLE:Ɛ?ƇoƈOUTFILEƄƅ?INFILETD]ED ޡ6ߣˡ(ܢߣܚߢܚݓߢ Eقġá&= Name table full!="/ɡZa)Prose errors detected.ƑƐƇoƄu.&$R*'ء    Íˡ?= Unclosed string at line number  IDMAP = =gz }á$*á)á P  ^ظظ ȡ K;K +K+   0[BRE[COM[COU[FOR[IND[INP[INX[LIT[MAR[ OPT[ OUT[ PAG[ PAR[ RES[SEL[SKI[SOR[SUB[TIT[UNDG 0 0 characters.0_0&Identifiers marked with a "*" are not 0consistently capitaliz CHECKBOO ed.0g&e1x$;š;] ة ߧ<š 5; *á'{" JLNPRTVXZ\(*,.024prtvx áޕɡނ_ߤˡ0= Reserved word collision!='@_ߤ _ߤ  ;z|~jlnprtڡ6=# Unclo;ޚ  ? (= Empty source file!=0?]^sed comment at end of source!=<PDH,`_ؤáا;ġ7_٤ˡ_٤_;ȡ_ؤ9ZɡZzɡzٕ<<ǖō-= Hash function overflow!=ؤ_ؤˡ@=Xjۢڢ Pۢڢ @ܟá(ݟáܷ ޡ ܵ ' and  array  begin  case  const  div  do  downto  els ޡ:j_؂_ۤ_ڤȡ)_ۤ _ۤ_ڤ_ڤe  end  file  for  function  if  in  mod  nil šٕەɡɡڮ ɡخȡwšٮfġ\  ٢آŶ  not  of  or  packed  procedure  program  record  repeat  set 8 á   ˡ  K  ~ȡ7ٶ 00  then  to  type  until  var  while  with j >L;ȡ_٤ˡɡ_ؤ 0?  0*ƈ=ƉiCONSOLE:ƈ=?Ɓ/SOURCEƁ0Ƃ\LISTING ƈ=Ɓ0xR 0   š      Ʉ0 6\l@ x J~ zh T0  function  if  in  mod  nil ɡ0 ەڟˡ8 ġ00 0ڢ 0卡0 not  of  or  packed  procedure  program  record  repeat  set 0*Identifiers marked with a "?" are similar 0to the previous identifiers00 in their first   then  to  type  until  var  while  with j H ǥ Մ ՅՅ Ħ ĦAre these correct? ( y or n ) Ջ_Ջn<̄ʄȡ$Ջ<ՋՋ٥Ջ⥁Ռ Ħ @񥀏ՅSՅYyˡՅrՅ|ՅĦ Ħ&Which number would you like to change?Յĥ ĦThe balance is $ĥĦ on ĥƂƁƀ#I8$Ħ Ħ ( enter 0 to quit )Յ񥀐 Յˡ~ՆՆՆ$Ħ ĦChange $ Ħ BALANCING YOUR CHECKBOOK Պ+Պ4Պ=Ħ ĦWhat is today`s date?ĥ Ħ to $Ն_ ՆwՆáB9+^pՆȡՊj񥁾 Պ~ՊՊՊՊåoՊ̄ʄȡ$Պ Ջ̥ՆץĦ Ħ3List all OUTSTANDING CHECKS ( enter 0.00 to stop )ՇՇ/Շ3 Ջ_Ջn<̄ʄȡ$Ջ<ՋՋ٥Ջ⥁Ռ Ħ ՇEĦ Ħ ħ Ħ) $Շn<Շ<ՇՇĦ ĦAre these correct? ( y or n )Շ饂񥀏ՈyˡՈՈ'Ո2Ħ Ħ&WՁȡՁ楁Ձ論Ħ Ħ0What is the ENDING BALANCE on your statement? $Ղ:ՂC hich number would you like to change?ՈoĦ Ħ ( enter 0 to quit )Ո񥀐 ՈՂ`ՂiĦ ĦIs $ĥ Ħ correct? ( y or n )Ղ񥀏ՂˡpՈՈťĦ ĦChange $ĥ<Ħ to $Չ<Չ"áȡՂեՂۧyˡ9ՂĦ ĦRe-enter ENDING BALANCE: $Ճ%yánd vՃW(ƂƄCONSOLE:Ƃ?ƁƂCONSOLE:ƁĦ?ƀƁ?Չl̄ʄȡ"Չ ȡՃnՃyĦ Ħ&Have you made any DEPOSITS that aren`tՃĦ Չ<̄ʄȡ"Չ¥< ՉܥՉ奁ՉĦ ĦĦ%listed on your statement? ( y or n )Ճ񥀏Մ ՄyáՄ)Մ3Ħ Ħ%List DEPOSITS ( en Ħ BALANCING YOUR CHECKBOOK Պ+Պ4Պ=Ħ ĦWhat is today`s date?ter 0.00 to stop )ՄqՄvՄՄՄĦ Ħ ħ Ħ) $ՄՊj񥁾 Պ~ՊՊՊՊåoՊ̄ʄȡ$Պ ՋI tC,$e-enter ENDING BALANCE: $'); "until ANS = 'y' " end; procedure DEP; begin "for I := 1 to 3 do writeln; "writeln ( BLANKS, 'Have you made any DEPOSITS that aren`t'); "write ( BLANKS, 'listed on your statement? ( y or n )'); "read ( ANS ); "writeln; " "if ANS = 'y' %then begin 'writeln ( BLANKS, 'List DEPOSITS ( enter 0.00 to stop )'); 'writeln; 'I := 0; ' 'repeat )I := I + 1; )write ( BLANKS, BLANKS, I:2, ') $'); )readln ( DEPOSITS [I] ); 'until DEPOSITS [I] = 0.00; ' 'writeln; 'write ( BLANKS, 'Are these correct? ( y or n )'); 'read ( ANS ); 'writeln; 'if ANS <> 'y' )then repeat +writeln; +writeln ( BLANKS, 'Which number would you like to change?'); +write ( BLANKS, ' ( enter 0 to quit )'); +readln ( I ); +if I <> 0 -then begin /writeln; /write ( BLANKS, 'Change $', DEPOSITS [I]:8:2, ' to $'); /readln ( DEPOSITS [I] ); -end; +untilprogram checkbook ( input, output ); const MAXCHECKS = 60; 'MAXDEPOSITS = 6; 'BLANKS = ' '; { 5 spaces } ' var ENDINGB I = 0 %end end; procedure CHECKS; begin "for I := 1 to 3 do writeln; "writeln ( BLANKS, 'List all OUTSTANDING CHECKS ENDBAL 1DEP 1CHECKS 1CHECKBOO1BALANCE 1I 1DATE 1ENDINGBA 1ANS 1TOTALIN 1TOTALOUTALANCE, %BALANCE, %TOTALIN, %TOTALOUT : REAL; % %DEPOSITS : ARRAY [ 1 .. MAXDEPOSITS ] of REAL; % %CHECKS1OUT : ARRAY [ 1 .. MAXCHECKS ] of REAL; % %ANS : CHAR; % %I : INTEGER; % %OUTFIL  : TEXT; %DATE : STRING [10]; procedure ENDBAL; begin "for I := 1 to 3 do writeln; "write ( BLANKS, 'What is the ENDING BALANCE on your statement? $'); " "repeat $readln ( ENDINGBALANCE ); $writeln; $write ( BLANKS, 'Is $', ENDI-M ,YˡD# OF BLOCKS ?  ɡ BAD # BLOCKSNew vovO^NGBALANCE:8:2, ' correct? ( y or n )' ); $read ( ANS ); $for I := 1 to 3 do writeln; $if ANS <> 'y' &then write ( BLANKS, 'RJ "if ANS <> 'y' $then repeat &writeln; &writeln ( BLANKS, 'Which number would you like to change?'); &write ( BLANKS, ' ( enter 0 to quit )'); &readln ( I ); &if I <> 0 (then begin *write ( BLANKS, 'Change $', CHECKSOUT [I]:8:2, ' to $'); *readln ( CHECKSOUT [I] ) (end; %until I = 0 % end; begin { main program } "{ reset arrays to zero } "for I := 1 to MAXDEPOSITS do DEPOSITS [I] := 0.00; "for I := 1 to MAXCHECKS do CHECKSOUT [I] := 0.00; " "writeln; writeln; "writeln ( BLANKS, BLANKہہǻS, ' BALANCING YOUR CHECKBOOK '); "writeln; writeln; "write ( BLANKS, 'What is today`s date?'); "readln ( DATE ); "writeln; ýýÿýýýÿ"ENDBAL; "DEP; "CHECKS; " "{ Figure total money in } "TOTALIN := 0.00; "for I := 1 to MAXDEPOSITS do TOTALIN := TOTALIN +ýýýýݽ DEPOSITS [I]; "TOTALIN := TOTALIN + ENDINGBALANCE; " "{ Figure total money out } "TOTALOUT := 0.00; "for I := 1 to MAXCHECݽýKS do TOTALOUT := TOTALOUT + CHECKSOUT [I]; " "BALANCE := TOTALIN - TOTALOUT; "writeln; writeln; ÿ۽ϟ"writeln ( BLANKS, 'The balance is $', BALANCE:8:2, ' on ', DATE ) " end. ÿŹýýýŹýýýŻ~~~~~~~~>>$$$~$~$$>> >&&228D( enter 0.00 to stop )'); "I := 0; " "repeat $I := I + 1; $write ( BLANKS, BLANKS, I:2, ') $'); $readln ( CHECKSOUT [I] ); "until CHECKSOUT [I] = 0.00; " "writeln; "write ( BLANKS, 'Are these correct? ( y or n )'); "read ( ANS ); K  >""""""""""""""**6""""""""> >> 8 8>>@ >AAACCC> ? ??000?##? ?? ??!!??! >"">ccc?!!?0D800   $~$|888 ~888``0 >  0"""l2R2"I6L4DDDfBB>BB>~~>"rBB^@BBB~BBB>> ">B""B~`P 2Q`P0*BfZBBBBBFJZRbBBB>~BBBRr~@>BB>BBB> 0``|@@@@@|"<@\B|:FBF:BBBB>pp`> 00\<%<>>< (&&22 *,**> )Y3.inժ*˵6 ˳:MSo> "2*&" >" >"  ">> "8""> """"""< 6Lͭݶ6V&ͮ?00>> " ":*:"">"""""""""""">>>"2""""">"""8 "  ">"6**""""&&*22"""""""""""*,"" "<$$$??  ! ##11L ݽýÿݾ߿ն݃ûۻݣ000  >> "  !-%%=>BB>BBB>BBBBBB>>>>"2""BBB~BBBB>> ""B""BB~AcUIIAAAACEIQaAA>AAAAAA>>BBB>!!!!)1>@"" "B<B<@BB<>BBBBBBB<AAAAA"AAAAIUcAAA""AAAAA"~@ 8~?? @~@@@@@@~*I <""|""""" ,2"""<""<$<"""< 0"""""\"""AAIII>! !"""< > >00 ` -" ~~~~ýýýݽ