IMD 1.17: 24/11/2010 19:18:23 04 PASCAL 1.4J  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lŗkm HBf     &  %C e U7F ?IO ERROR WHILE BOOTING? 7$ ?NOT ENOUGH CORE TO BOOT?    e   ևߕ vߕ 7| SYSTEM.PASCAL? w7b SYSTEM.INTERP? @Aw  `! mG~d!~  ^\F C& J&  0  EN  ~ 000 Q 0 ̌̌̌? ? _~U@pe5w E ŋw Ŋw C!?< ~ ``0 @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_??`(H"a- TR cbd cv @ @ !@H!H! JA@bIb6r8`<1x~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@1.4JDISנ"Z SYSTEM.INTERP"f> SYSTEM.PASCAL"f>q SYSTEM.EDITOR"f+q SYSTEM.FILER"f@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@+ SYSTEM.SYNTAX"f꟢SYSTEM.COMPILER[SYSTEM.CHARSETf"PLOTt"f+COM.CODE"f@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@* SHOOT.TEXT"zנ TONY.CODE".נ TONY.PMD".xנ$( DRAWER.TEXT"zנ(, TONY.TEXT@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"zנ2<KEY.TEXT"zנHRTRAINl*\f APPLE.TEXT"fڠfr TERAK.TEXT"fڠrv DATABASE.TEw,2XT".נv{ DRAWER.CODE".נ SHOOT.PMD".HנPRINTER"f* DRAWER.PMD".0נt &  #   EezN EE7 REB~ &z##8\zp&$@`@`$fH@7`e B~ B~ $*04LXdh607 " " \7 " ``WtB  aBE B D \ b  @f F&z  eN 8@ 6~E LU@t7`^~BE B @Wtw`lz ~ N T :  &,28>DJPV\bhntz ,,`V\`V\@4\` P  ?>& B~6z& & E N\xEt& B~ &- >e _ 6_ 8/efAA"w  UB~  Ձ@  a a!~F@  B~ ~E`E7 E@ 7U@~w&nE75@k7w d7w 7 \w V-t@ `EՀW  `E e `&& `E e `&EՀ~N pazE J3 E@ >8 63(?( E@ - 7n? ~7>EՀ~ 7  ҂ ~ E e ` E      E7 w wU &    #7 7 7 zv x7 vE@ ` G47z   7H 76W wN B l7 h v7 rEj7 f \wRU W 7 27 0 ,Z 2*E@ $&?  w U 6 E E7 ~& EE >d`V  @w > 6 & 7  ~w ?  "U@ wP%  D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& Ez7 vwBd ^pr|3M:@3vL@U.:s@:x@A @;K@lMM:@tvE&~AA~E e @`&AA~E e @`  `` t @Lf zfwftfqfnfkfhfefbf_f \f"Yf$Vf&Sf(Pf*M JGDA A@@A tBt J@ P ``f~ ``A~  ҇ d ``&& ` >;852/ ,")$&&#( *eeee e  e e E e @a&&6E e @a&E e @a e A 5^A&Daef  _09E A Z ꆃ > ѕ  Eʝ@W   x נww w ʕtʕ  Q~ .D@  R~@A @`e eJ  C~C~ %EU 5 J <  p UU Ve0   W @ C~C~c7 " & @  z7 " 7 B#7   7 $7 $ 7 !7 %e@ E@W  E&@W E  t`  U&E w e En\ vw~-e@ BCzEG@HPtJ$LM nO(kQRChTV焵W!tte E e' e2-.E$E7  e w:::::::dcY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &F&D&:::::::::::::PE Ґ~H wU &f&f7 LU  &E7 jp|7 \v7 Nv7 B7 ,6 \ 2   0ɝ^& _E7 LC DE!:7  7aehD AVaV@,,,,,,,,,,,, R ` $  ~    \  W  m e 5`\wHe w5 5@ \ɋE 5\ @ @ @` dd&`f&d&b& w\\..ww. m e  ɋ e wvr@p@T^DZFJT@&'@ w   AF,]A@AK w WFlr   mR)>+,2>*8ND'RRAY,EGINASEONSTIV'OOWNTOLSE ND ORILAF! &PxffD e wZ5 wTDeC$B@E.ORWARD"UNCTION OTOFN)ABELOD'OT&F R(ACKED+ROCEDURROGRAM!ECORD-EPEATET*EGMENT!B C@ e E`E``B~A EwwDw d  -@`@`HEN OYPENTIL ARHILEITH'/5;D`q - e( 7$]   P~P~NPP  W  ~~%``!~6_ 8 E E7 _ wU K E|7 xveί%@ eAp6% "1, 1,1,^  5 ^v vV R-NDKh",h`6h:hlԪph.ONhOfhO &f ) 5|w 77 :  .-& pU`E@ wHw . " " " "# e\ \S\ e& @7  #v#e\$f& \:X FU@ % eC ~% C ``` eיc&>X4%]@& & & & & D&&D&& @%7 r!R$  IA e e@z&f U@ -(T~ & 7  F  <? :? - e& & & & & D&&e #@  @6 7 !$6 6 #?%-0( 7 7 v   j7 d ZEeN7H  >?0_ (f&?  @ ׳f&& @׳@f&7 " z% !B%f&f&7 l"%" " " " "  % "v%  (77B~&P eHJe7B7 eee \%f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 ! % ffPPXXxhPXpx @6 7 t^ (tS.6 6 #?%-0 @ w   &@& <&  'Z7 f7 VVw L7 L8'@@*'47 4 Cp . ez\& Dr)&&\   5@5@7 X  ! " "tE`eE - 7 m-  ` ~ m-  " " " " " " !f&\  \& \\r1@\[?\ ew & ` ~-Z' ه   5  \x )7vP @ 7v7vx7vee~m m.ń0á š肂蕿BšT뾕7vwt{H) wvPA 7t7v 7t7vx((((())).)(ff w  ȡ4 š킥뾞<X h%!m/^5Please put volume  w :hv6 u-@>m5 <wr@6@>6@>6- @eB@m>AmNo user program linked in6.ɡk) NPP  ~~m>m *@eBA Amf&f& w-h 5 >fff& w-S ˡ.ɡ9 ˡU.W-UW-W  @W*fw@!5 ,*fwtW# :W-$@  is   characters long. -q >+fwB   eff wl :wv6 @ @m5 ړf2Do you want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ"@>m5 6hwD@6@>6@>6- "@@eB@m>AmNPP  P~Pš r  -~m>m : @5 @@eBA Am f&f& w-?BAa~ 5 >fff& @' B B3$ B@ ɍw-v#W-%W-$!W/ 5W->>= ,fwzw ,ew@.ŧ7ȡ5ˡ0݊ Bġsá  ȡ%eB@m>AmNPP  ~.~m>m *@eBA .Amf&f& w-h á.ˡ*ɡe e+ e ܕڂȡ 0.5 z`:xo. >fff& w-SW-z`":xg.0UW-W ġ0ȡ:b"v3˶3 ˍ.> ,PASCALSYUSERPROGPRINTERRINITIALIGETCMD J333 3 333!!OOPS!!Щ@ Z á{ NIL } E : 7 t7m7 El7h7^ 7\ZZ7 Vev 6  n`& , @ R , *^/ńȄ -(š4))5ƀ5ƀP).TEXTU) XP ȡ ؞&.invalid input format($ VB.{hQ> IO error: (< Unknown run-time error(,,˶,Ä ,,'5٢:٢&P٢&?55ƀ5ƀP.PMValue range error(No proc in seg-table(Exit from uncalled procedure(Integer overflow(Division by  ^ to @ + 3R**ȡǀ ɍ8%ńAšDTP,æSYSTEM.5ō9 in System, to exit)*ST Ɓ-A''fT آǞáInvalid value was آ  Dump to file:Ɓ/PƁ/Ɓ/́XƁXƁ/PƁX.TEXTUƁXPƁ/"áv./,́.3ʁ.,outside range of [آ ..آ ]Source string length was آ ʁ.,á+́.+/Info written to Ɓ/)Can't open file Ɓ/(, exceeds destination maximum length of آ *" )In  )0151ȡ051Í0110  0% source line: 46b  .$/ .+  Variables in +-áprogram a3+أ  أ DŽ X-N3,>:+/BU(&lmodule ȡ)3 ˡ3:3O  3 ]  "$T8 ,---*---*,5Dump: P+$53 Í3 + ٦:=   Ȅ٦ ORD( )ɍH5P Up, Top, YP+,ˡ)55PDown, Bottom, ^P ˡ!55PEdit, VP5ǀ ġ#٦ ''٦ CHR( )X T @á ٦TRUE á٦FALS5P File, QuitZP'Qá` 3Ɓ_/35"223 8. E J8Tߡ٦ *NOT SET* ޡ( ߓ ٦ ޓ3Zr to exit)*3 r unknown cause(hardware error(illegal unit #(illegaˍ"á     l I/O request(data-com timeout(volume went off-line(file lost in dir( bad file name(no room on ˡá ˡ7̂ƂPƂ QƂPP Pv\ Ɓ volume(volume not found(file not found( dup dir entry(nfile already open(U file not open(@ "áǀ"áƄ  ̄+ʄ+ȡ   ̄+ʄ+ȡƂ  Dh|.. .:..P`.CODEۡ@.TEXTۡڡ..P..mGRAPHIC :ƄPV&&**)CODEU.! No workfile. Execute: šA.á &)((*)''%    X#:ƀƀ.CODEƀPt  T5ESystem: Edit Run Filer Compile Xecute Initia$<&'*)CONSOLE:(*)SYSTERM:((*)lize Again P'T)S%SjTT|S@*SYSTEM.EDITORc *SYSTEM.FILEROKFA=8(%ë%!:%蓡5&System re-initialized ( VersiAX0P= "3&(*,.Mˡ  š*SYSTEM.EDITOR &+ *SYSTEzero(NIL pointer reference(Program interrupted by user(System I/O error(Unimplemented instructioon I.4j )),rxXPV&&**)n(Floating point error(String overflow(Programmed halt(String too long(hString index out of ra)((*)''%    X#:nge(GArgument out of range(*"|\F0ydE*4. 6,V| D Z$<&'*)CONSOLE:(*)SYSTERM:((*)4 4Nh*rror(No proc in seg-table(Exit from uncalled procedure(Integer overflow(Division by ڪP'--áO'PPáP/@P"áR.Q.Qȡ@.. č-O`.R/.SRPRSR+ƁW`4cDcD ^^ ^d^^'íʁʁʁSP.. Bad block #0! not codeH-á"Illegal file name *SYSTEM.MISCINFOP+"á,+ ́ʁ>+>ʁJ+J ++n  ȡ,mؤNo file 'Qv 2*SYSTEM.COMPILER*SYSTEM.SWAPDISK(&  ۢ0ۢ ؞&mCONSOLEmSYSTERM///m/á'+// Compiling8  :.TEXTؚ*٪Pءٟá'3 &"ámPRINTER&"ámREMOTEƄƅ/Ƅ*SYSTEM.CHARSET  R.٪PƁ.ƂZƁ.́VƁVPƁVǠƁV؞"ÚƁ..Ú.ۤƁ. .CODEt *)(*). +ƁW  á ÄȄĄMȄqfȡD ōɍ ō ȍ dč "%!á-5** Stack Overflow **P55* *)"(m/ *쓡ë  쓡 ! 8 ,m Ä{Execution error #  (*>Já2š  , Ą:쓡"á  8"ë á 쓡 áMš1 ˡ   á ͇ +>ˡ $Ꟛšr#ń@ 񂾲i 񂾂0 ń Ȅ((c ˄ (cB$$>:&ˡ,ˡ cš c! mÍVmM ˡ!  ,ȫ, 넡T%>ˡ.ˡ cš cJ&$&::5ń, m ,Í1m š˄  `" R5:5 5RT'Jɡšɡš   (  d˯7 H ȡ   P&***azȄaA:)Type a < space > to continue:) 0 H" ġ  *@#ٕš ګ۫ š۫ ګ,.M.INIT"á *SYSTEM.INIT8 & š  š*SYSTEM.EDITOR=á5% :& XÍ ˫X `(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22.CODEt *)(*). +ƁW  á š*á /:22ȡá+2á!2ȡ5252š[2+ 28lN&j: TT|S@*SYSTEM.EDITORc *SYSTEM.FILEROKFA=82š2222ȡ2š5252á4x4]11á4^1šX42233i AX0P= "3&(*,.Mˡ  š*SYSTEM.EDITOR &+ *SYSTE3042221ç42ç1Ä2*á444ńi55P.TEXTF.CODE4.M.INIT"á *SYSTEM.INIT8 & š  š*SYSTEM.EDITOR=á5% :INFO".GRAF.FOTO!máë   Íáɡ 럚肚Z ū  "ˡ ˄B"ˡ\ š < ń<ˡ < áš < c@B B Ä $ B>욹  - v /šá.Ą ɡ B >Ä /  !š Í & 낫šꓡš땫ĚQ삫Ú< šÄT ǐɄ9%ńm%%! á m  ^ "á50 ɚ j 횧 :˄˥ń á   uš  gá     Q š *-Ä+  ɡ"á M š  4V j ɡ 逫-á-32768 Rġ?^ g>@ << á6铡,00ń0ˡ ^ɡa ɍB BB/"ˡ ( ! &%& -   $ $ $' 푞$ $ō  9S32(˄ šá  d</ dÍÍ $ġ $ $ $ȡ&  0 $čˡ 퓄 Ä퓡  dÄÍ" ˄"ɡ^   .ˡ>  Eɡ  -푫 š 0 0 lġ-   킂.   dá dá 3#3˄ 3    á&á 핕 킿:  핂 0 . 0 핂 肿 ɡ  , Mȡ龫   ȡQɫ  ȡ .  .ȡ? ȡ  ġm -/18  Äɡ3ġ$ꕫ  á ġMáš3 삫 d #( -šš"š Ą  ˡP %@B  .ń0á š肂蕿BšT뾕ou want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&š 龕龫!낾  2 d?š !ȡ4 š킥뾞<X h%!m/^5Please put volume 삾 0 Vá " *áá2+   b)PASCALSYEDITOR S2 S3 S4 S5 S6 S7 0á ]+-Í-ëi 0S8 S9 INITIALIFINISH ENVIRONMBLEND EDITCORE l `   D"ۊ*Hۊܳ @y á +-Í-ëiHaFD!٪P what marker? - ئ Щ,- V,Vȡ,-, 0.áBi0$iheEÍ,, t% . Type 1Error # . Type  áɍCá >듡ɡ 퀞$ $ # Báˡ.ɡk)  3á+   T p꾂ȡ龞ˡ.ɡ9 ˡU.꾂(ń꾂Ȅ4š뾂á뾞뾂NPńȄ is   characters long. -qړf2Do y.ń0á š肂蕿BšT뾕ou want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ȡ4 š킥뾞<X h%!m/^5Please put volume ˡ.ɡk)  / in #4P'pá,##&á=$ *%*ˡ.ɡ9 ˡU. tL((VFl8 Z*n`& , @ R , *^/ńȄ is   characters long. -qړf2Do y  ˡ.ɡ9 ˡU. is   characters long. -qړf2Do y is   characters long. -qړf2Do you want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ou want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ػٳ قػ0  (|š  *1 Bˡ.ɡk)   , + *) ('&% $#ȡABCDFGIJL M P Q R SVXˡ.ɡk)  ˡ.ɡ9 ˡU.ˡ.ɡ9 ˡU. is   characters long. -qړf2Do y is   characters long. -qړf2Do you want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ou want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ˡ.ɡk)  ˡ.ɡk)  ˡ.ɡ9 ˡU.ˡ.ɡ9 ˡU. is   characters long. -qړf2Do y is   characters long. -qړf2Do you want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW&ou want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ-EW& ˡ.ɡk)  ˡ.ɡk)  ˡ.ɡ9 ˡU.   ̂ʂ ̂ʂ̂ʂʂʂ áʂʂ̂"ˡ Disk error!ʂFile too long /R<++,,P,[Q,ǡ,]Ǣ,؞"ÚTWriting to edit< 6Edit: Enter edit file P&Y,, ,:,,PYP á|vv!xx. 6NJˡ .ɡk* for  Ynew file to exit.: Y  ˡ.ɡ9 PPYPY6Y,,ȡYقYق .TEXTYY˥YȍY,,YP,.TEXTUˡU. is   characters long. ,PY"6,Not present. Enter Edit file Pá ȡػǀ-qړf2Do you want to Exit from or Return to the editor?  -- ػ$2 :yx6H ȡ0ȡ8٤؂8٤؂ ا-EÚ٫>ƂYPړ-EW&  8$ڡCan't write the file"ۓNot enozáz;67opqrst^uvwxz AZ az 09 ** ,,  ugh room for fileDsZ &`2t ˡ.ɡ9 Z,>.+-?/=<٢>á ٢P٢N٢P٢NJ٢٢"٢ !٢   š.!*Í 삧*@*H,fjV Y˥YȍY,,YP,.TEXTU  V*,(09ȡ %$ ^ƓƔ>Edit:Ɠ Y 0 Quit:P U7 Update Y and leavƓ*SYSTEM.SYNTAX"á' '*Ɠ'̓̓̓ʓʓʓ Ʉ̓ʓ)áʓ̓e Exit without updating* Return to the editor without updating Write to ʓ ʓ0̓ʓ̓ʓ ˡ.'*ʓ ʓ̓ʓá ʓ̓ʓ áRʓ̓ʓa file and return --E <4Name of output file to return t*ˡ>̓ƓƓ Ɠȥʓʓ̓Ɠ Vi2(Reading Yo editor:  D.TEXT˲ȍ"P.TEXTUPVˡ Reading file6NJ .̂̂̂ʂʂ̂ʂe.ɡ)* ɡt@ NئPˡ( QP0   ݧÍܡޚ  ا"á{ETX}Lا*á{CR}7ا,á{TAB}! ɡ^y"0-"$ ?*,]B6, á @jئPP QPؾٿٮ\áؾ7T D 0eY ,09 Environment: { options } Quit to leave [ Edit 9I.4i=]>P  Auto indent o Filling p Left margin r  Right margin  --"$ &-oprssrtus  Para margin t  Delimit char u Seek tokens q w z *Go command: enter commands, type \ to end  /AT( cq Ignore case w Tab spacing z  Go command \ȡ+ Blend in file:P  .TEXT   ȍ" ̂2Ƃ2 PƂ2.TEXTUƂ2Pá \Y File is unnamed$ File title is  ̂2Ƃ2 Can't find Ƃ2 [Ƃ2. Blend in file: lƂ2P"áġ)áY , Edit Cycle v  Editing time: xpC  hrs. x< Blending؍Z2ٓC.2 ڂ ء2ڞڂ mins.   characters, C슐󊇞 % full.y Patter"ˡ Disk errorٓBuffer overflow.ޕۂ߫  /AT( cns:/ = 'zǀ'y- , = '8xǀ'7šë >< .직 ŧĄ Invalid copy.x직ġNo room` Markers: 7ȡH :8á 療ħɄ療 療직療   Jump tءTrueFalse.  ڳ@ T or F0eY ,09 Environment: { options } Quit to leave [ Edit 9I.4i=]>P ڳu@TÚTrue False  ݳ --"$ &-oprssrtuɡ ݂0ݳȄܓM& Must be in range [ .. ]q w z *Go command: enter commands, type \ to end  /AT( c o з Xا78ؤ 8ؤ  Not there.eؤ W  0o insert.) lpo-˄** 7 Jump: Beginning End Marker to cancelP  Bá'EáMá po-"Ä -Í   اˡا$ e  p5Marginate this paragraph?Pڶȡ  ]ڶġR*Editor almost full!!   ڶ š Editor Full!! Yá  N Set0-ا7ɥ8ؤ  ġ ȡ7 : '8٤-,áz z B*o$p낾*átr'5All markers are in use. Which one to replace? (0..9)P--0-2 f-'áO-!ç)ç*Íɡ з  8ؤeؤ7 7E  02 Set: Marker Environment to cancel P  -n*ġ #ꂧ)  EáMá اˡا F šP-d--á!--(,*! "'/-(,-*á-'! F-ǀPá !-!!^-á  -1-á&-?--    +  aA--P--->-Pá    ǀT ؂  ȡ  ! 8  ɡ60C Xchange: text accepts to cancelP     š   ˡP- á l-    --á(-*á-"*˄-"-á8ق*ˡقاsrġ -  ؕ ؞ق*)o٫ګr  ګ' PšC0 Zap: Delete > 80 characters ? P  Yˡ   ;  U ؂ \    0N Insert: text a char a line < š ɡ!No room tetx> to accept to cancelP  ˡOšǀ2á  ħ Í $= .+ȡ " Xń7*áȡ ȡ 4[ p# š ɡ* ġ  ø ɡ$eg )*1ń šٮ# ݮ01   +؂ɡꂾ)Ä؂ fš ,dšBuffer overflow, ˡ 0B Delete: Moving commmands to delete to cancelP  ǀ-*" '-á&ȡ! ! #-,á psĄ땫ꂧ)؂ -  0C Adjust:  -pÄ-!˄ &Ąۄ{-*á  h- áOȡ&* ˡܡ  Left Right Center to acceptP --á --   -'á -"-áثC; 4Ʉګ߹á   ߳0|˫  ȧ_) Oá-Eܹ-r-1sڕ-$srڂ٥+č:c z" ^ġ)šڕr- 4-"á-zá -f"O á r-/ ás #(š  ) çÍ  ˄ ڕ-srڕr- -"ˡ-"á۫ p ,ȡm2 (ĥ$ń   ɡ$P^%ڷ0' 'ȥڷu)_ .  ;߹*)+%+Ȅ0ɡášĶ $ " * !#!߹V-!á '('j(f('Z%V&R)MšTo  &ń? *á*   ɡ$o many)/.+ $) HFs^% Ndá2áá ! Dit'ɡ Ʉ5 ášĶ á2á +á   ߳ 2/ȡLڂ*á$ " |(Ʉ-ɡáĸ šT-ń ۂڂS^0ȡˡˡ *Eń !EE_-+áBC<DBFDFȡ,EȡDEDEEDD-ˡ E>  A  Replace:. R to replace to skip to cancel-EE-EčآE آ&q &6L$ۂ Lۂ áۂLۂA--á -R˧-r˄xšWxš8Buffer full. Aborting Replace á۶"H b7(,)*)á8 @8Lǀ z xxɡ x8xxˡ x직x療x HB̀̀L[LLaA2LL :ẁq̀̀á Find:A Replace :A345̀-z6 á86á >   ؂  )á   7  X;:Y ġ? L ç çyl̀ ʀȧل.>ʀ̀١ނ߫ áB  ٓ"ʀńPattern not found ˡ     ;f p<:` š=L No old pattern ʀ $F\0M Ed: Adjust Blend Copy Delete Find Go Insert Jump Page--ߧá  á ߹ ߳߹e-!á '('l(h('\% ˡ  ;lv==<9*zX&T)Oë ><".9;JHu`Pfٕ 1-˧-"˄ -  á Z?z(*,Ʉ z"-"ámÄ L ٕ܄ɡ ٕٕ  ثzöɄ  z*(,Ʉ á  ٕ  á ޶ -á٫ z2á2á,C @    á?@9z fá?@   8/ "!--á -*ö -+ˡ -P3-(,*3Lǀ zL š 7á򥁿Lá}ŧ)˄ȍ'4- --Lá2-Vá%-Tá-Cá -Iá-P 3- --Pá ȥ  ÄLd>.4 5zBáM-(,*!! !3-E3-!á.E۪PڪP0.P  [All] [ ] ءPá  ڧ˄KڶPá4ڶP<١1ۥ č&\7ȡ'eڤġeڤeڤ؂#ڶNáڶNá lڳ aA, >پˡ  ħɄ ؂ HZګ낾*uء-ŧ낾u˄낾*˄ tپعE٢I٢<٢-٢ ٢ LA6)x&tátr ܕܕ܂) * ,())á"  0>0<0, & 0ġ* ġ.ç Ä Äە sŧsrȍ: á٪P&&Error: " Please press to continue.& á܂*)r r*á7á '낾*ç낾uÍ ᓡ  á!Rۂ,()@ۂ)áݧۂ ۂ(á ܕ܂܂삧ݫ  8q<u*ڂ ٦P ^lۥ ۧ ۂڞڂ*ˡ  !Uقۧ*ۧ!á3پš!! !پ kۧ%á/پȡ!٦P 6ۧ*čy^ *á*܂ ܂áؓɍš  ٚ0P QPپۿ ۧÚxV  šۊ*Hۊܳ Quit Replace Set XchngP --߭zzá  á   ߹káء  b ݂ɡ݂ەݕ 5 L~ zxt plhd G!C 10,000-߭` ꂾ*á* -| bR@p R "!!X"F$$$$#H%b%%h''<('\(()Cd: Adjust Blend Copy Delete Find Go Insert Jump Page@ڕ šB+Can't save the deleted text, delete anyway?P Y%ڕ󧁽  ,, t% . Type 1Error # . Type  ár???rJanrFebrMarrAprrMayrJunrJul  ȭ"ƁƂ<   š"á  á  á rAugr Sepr Octr Novr Decr ???r???r???:ƁUEx~V(j2 0 F l `   D"ۊ*HۊܳP2 SDQSSؕRRŧRQɄS?Í- R=9T|tlHaFD!٪P what marker? - ئ Щ,- V,Vȡ,-,MIæ((67MbتP&R Parity (CRC) errorP,, t% . Type 1Error # . Type  áBad unit numberPBad IO operationP Timeout errorPVolume went off-linePFile lost in directoryPbȭ"ƁƂ<   š"á  á  á  Bad file namePNo room on volumePNo such volume on-linePkFile not foundPUDuplicate directory entryP4:ƁUEx~V(j2 0 F l `   D"ۊ*Hۊܳ Filer error!P R 7 eQ2$ `Blocked volumePUnblocked volumePRˡSHaFD!٪P what marker? - ئ Щ,- V,Vȡ,-, or PSáPunRPPblocked volume^P File name YPGFile or,, t% . Type 1Error # . Type  á volume nameP, Volume namePNVC*"P expectedYPP:U` $bDEPASCALSYFILEHAND <PˡعWildcard not allowedP*á not PFirst volume/file name was k a wildcardu 1f  Z2h P d!!j#~$$%"&(')P file loadedP3áNo SPعfilePvolumePn46"Illegal ,+-@/j///2033J5:455h07698&;$[Pع6Volume to file nameP'File to volume nameP <=HaFD!٪P what marker? - ئ Щ,- V,Vȡ,-, Date Prefix Quit ? PA,?áT5KFiler: List Ext-dir Vols Work Split Join Make Krunch Bad-blks Xamine Zero PA,| -áBm0 EdNdbT- ˡFdC:T% ȡ;6ddٓdlá  MOd dC:=5d4dC<@. F=?6(d|îM:!(ЦȄ0%=>%Illegal change <`>aP file name P scan string P volume name P- Illڪd | ȡÍ|å|ddtlšdSegal formatP - char. max >PNo directory on volumeP File foundPVolume already on linePOutput fitdl-I:!(T ݪ(á=ڡ%le fullP6Dangerous! Suggest using ? on wildcards to same volumed "$&(*,.8 Pd0 1A-M 1A -M Ȅ-M ç-M02468:<>@BDFHJLN VXZ\^`b{}nprtv |~r_I5  M:!(87:  ?  ,,Xá8Q, &v ˡdȡ.ۛ ۛۛ:,Pá2 ,d0,1A 88 d8 =)-=aA6 D ؾȡٛ š*  ؾ  &) N dЦ ۿ)áڿ)š )$ ۪#  á10  ڡ,-á -ˡ ڡ4Put b# ڿ۶Ȅ: ȡز)(ئ(ȡA) : in unit !Put in :&(ڡ-l ɡ))$= ?ˡ:ئxɡ ...too long <ٹ@d ضض˄:á + / (*áH:á AdBd ɡá   DdCdd)Ъ,,)/ : 0 ($ - d:W, dˡ2ɡ  &2 .ݪ( =T/! 9==- 00á d/)خؾپšSOnly  . characters total allowed in a wildcard searchdvš  <̀ƀ=ƀ:ƀTƀ.TEXTƀP+̀ƀ=ƀ:ƀTƀ.CODEƀPT̀ƀ= : T  removed ЦЦsw4#?The current workfile is ƀ:ƀTƀ.PMDƀP}+~T}~š}( already exis : No workfile&l$..* ..TEXT.PCopying ts.~(+ already exists.(T already exists.á Remove it?á2St2ڂɡ0Out of room on output device! š Remove them? Yá&}~+TT =T =!New: H%áer & Output file:P %PǠPRdd'T.TEXTT.CODE==+!N Q54ChangeChange to what ? `TdPdA6g already exists. Remove it ?  Yá) removed.%t"˸ȡЦÄ? & Цdо ЦI)$tl|545æ<dæ=d556Change Q554*IMMêX=?6*dtl=6Ä,I:d)dI:!:!(5P"dJd,Xˡ,ç,YÍ-W--M("  Цg:-ݡ what file what volume ? & =W--M "d-!ؓfX : changed to =:mW =/X о ЦD,@dwإåTMIe=:T aWÄ/=X=r:6PX:c6  c changed to Tclready exists; remove it ?  ,,YáDتP,پ, پ*Tl dd! Td$HdP"d4؍ءЦЦ &"7Z^c$"تPPPRڪPPUPR$%GetHRddT.TEXTT.CODE=Remove@RdPd6 RQRemove Q7r=:-QM : -QM=+=:T.TEXT=:T.CODEء5=:  removedRRR%á(%QM8Update directory ?  Yá[QR 1AT .TEXT loaded١5=:T .CODE loadedٍT =3d" FQR-M ȡ*QMQRM-"RRQQ1 -aP"dKP"d2 = P .TEXT***P*.TEXTU*P|"ˡ/ Can't find  Yˡ #VbÄ22 X㧁WÄ5š2R"çRÄDR85X *+š_̶̲͂2ζζɡ0Out of room on output device!*P2S"d "dId5ń k b!llòp,̶ϓSP*ǠP**SfS already exists. Remove it ?  Y3ń!3"dnX:c6  ć+Ɓ+ transferred to Ɓ+ Ɓ+:)SS removed.*S"ˡ6Can't open output file S*ͧ2Ɓ+'Ɓ+,XˡP4ڍڡЦЦ&/AE9~ /4MakeHRdd , -š|2ͶɸϹͭ2.ƀƁ|Ɓ*.A.TEXTP̀϶ (,˧,Y˄,Xá4bP"dLa`\P"d0=:TSplit file into editable files.+.-ʀ̧SġCʀ̕.,ƀFile S created. made44Ц 2Prefix titles by6Vdd/+= Prefix is +:-S.,ʀϡʀš6ƀFile S created.ƀ|*%á%&`39Files on volume 03áR on 3 -Put in ':0Put destination disk in unit #0 ( X,,1r3-3   File name Size Last mod-$ File name Size Lƶơ0Can't open output file Ɠ"*'ڪP"R&(Ķ.'T/!','-,#áضòm 1,l,á1`ضòm 67GBdd Do yoEnter list of input files, RETURN to end list. Input file:P |**P*u still wish to continue ?  Yˡ X,Ud X,,árX,d= =#Ǡ*(ƶơ8 Can't find IJ* čá,,Xá5,á,xUdÍ% X,X0Q54Transfer To where ? t)ƁtƂƁƂƁǦ.TEXTP  Join: Concatenate files.')ʁšQ́ʁUdVd5056 Transfer Q5545P"d쥁P2S0,ç,YÍ́ʁʁȡʁ&ʁ́ŹƁtFiles copied to ƁtƁX% Input file:"d Pum ]́+Ɓ+Possibly destroy directory of Ɓ+ %Ɓ+: ? )Ɓ+ {{ Unused }}} 5R747#RáWriting&.RR-QM -QM 75RRBlock Q  is badQQR  bad blocks{ :Ƃ+ƃW454SYSTEM.آÄآ آ5 آšG آ -rآVolume to get boot from: P:á̂SƂSPƂS:QƂSPƂ+"ˡ1-آ  آá IllegalPpBad diskPuCodefilePeTextfilePUInfofil is not available, other file: áƂ++ˡU; is not big enough to be a bootstrap, no transfer attePEDatafileP5GraffileP%FotofilePwi[M?1# 5 8Ɓ/4Rempted0+"ˡI8 Error in attempt to write boot, boot area now undefined/ Boot transferr5ء:Directory listing of`TdTd8Ɓ0=CONSOLE:P^XSdFm0 45ed successfully. Ƃ+ <%Zero directory of$Pdd0&"d-ˡ2DestP.TEXT́:Ɓ:PƁ:.TEXTUƁ:PP"dṔ6́4́7́8æroy =: ?  YˡDuplicate directory ?  ,,Yá ,XáN,-ˡs-M ħ-5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï8QQ58æM 'ȄX-M  blocks ?  ,,Xá,Yá -M ,YˡD# of blocks ? 6-QM -M 7ʁ9-M   files in directory, ʁ4  blocks used, ʁ6 ɡ Bad # blocksNew volume name ? P :á   unused, ʁ7  in largest area.4 "d 55 -0Yō6d  3M  : correct ?  Yá00"d4=- 0%Version I.4j 26 October 1979Volumes on-line: 0 0ȡ: zeroed< n;555إ/:>%5 Date sm0 ٦0  : پٲ/ System files.ٲ+ Default files.et: 1..31-Jan..Dec-00..99P'3á No current dateW Today is 3 -r3ast modr6ض8%ÍK5%ا7$&(4%86ء 4%$6ا4 $65؄6 File Character-structured volume.00 Prefix is - +:G2988 99885ٕڶ7šڸ7š36ڂ6${0 < 9%Bad blocks scan of$Pdd0&"dRQm0 ́QʁȡP0Qˡ4 ADQ̂Qʂġ. Qܲ^Q0ܲ^QQQ-M R٧-RM ɡRRRM-#0 -MOMKGEECCA?(?=;0;,Qár j f  Z2h P d!!j#~$$%"&(')-3   New date ? P oQiQ 0Q  markedPN%w(j?%Crunch Pdd:M-M M ȡ-QōۡQŧQ Ʉ 3Q>ܥń=  =QQȡ9QAĥM -M ńMoving  SYSTEM.PASCAL=/-M ܕۧSšQZȄ=QQAa =QQQQQ Qȡ#rQ= 3Q QQ>ܡF5QiQ Sš܂܂ۂ ȡd02ڂ"ˡCRead error, rel  , abs  0QQcȫ55 3 Qd/- 00á-M 30 - New date is 3 ܂܂ۂ ȡd02ڂ"ˡCWrite error, rel ݕ , abs  -r3-3  J =%Examine blocks on Pddáݚނ0 -= : crunchedߡ Please re-boot:WbBlock number-range ?   1  ɡۀɡ ܫQQܧ-M ɡ)RkX@'3),, á%$&&A3Ц5IFiler: Get New Remove Files Change Transferisk the directory ?  YˡR-M ̂Rʂȡ-RM ̂ʂʂĄbؓ%File(s) endangered: Date Prefix Quit ? PA,?áT5KFiler: List Ext-dir Vols Work Split Join Make Krunch Bad-blks Xamine Zero PA,|ʂ ʂʂ ʂ RRء&Try to fix them ?  YˡܫR̂RʂȡBlo335P,T:"=4{4uq%m@i4c2_ [3WU#Q*M/I9E$A?=;9BZ2[YWUQck R 0ƁRƁ0ƁR"á 0R"Ɓ  may be ok* is badMOMKGEECCA?(?=;0;,Qár j f  Z2h P d!!j#~$$%"&(')RɡRRšRRRɡá5Block   is still badLBlocks   ,+-@/j///2033J5:455h07698&;$  20:'.' expected  21:'*' expected  50:Error in constant  51:':=' expect Date Prefix Quit ? PA,?áT5KFiler: List Ext-dir Vols Work Split Join Make Krunch Bad-blks Xamine Zero PA,|ed  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expected  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expecO^ted  57:'FILE' expected  58:Error in (bad expression)  59:Error in variable  101:Identifier declared twice 102:Low o@Ē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 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 type identifier in variable declaration  119:Re-specified params not OK for a forward declared procedure 120:Function result type must be scalar, sub  to formal function is not allowed 152:No such field in this record  153:Type error in read  154:Actual parameter must be a vaacter in text  401:Unexpected end of input  402:Error in writing code file, not enough room  403:Error in reading include filriable  155:Control variable cannot be formal or non-local  156:Multidefined case label e  404:Error in writing list file, not enough room  410:Must have quotes around file name  901:Value out of range  902:No su 157:Too many cases in case statement  158:No such variant in this record  159:Real or string tagfields not allowed  160:Prech procedure in segment-table  903:Exit from uncalled procedure  904:Stack overflow  905:Integer overflow  906:Division by zvious declaration was not forward  161:Again forward declared  162:Parameter size must be constant  163:Missing variant in deero  907:NIL pointer reference  908:Program interrupted by user  909:System IO error  910:I/O error  911:Unimplemented instclaration  164:Substition of standard proc/func not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared lruction  912:Floating point error  913:String overflow abel  168:Undefined label  169:Error in base set  170:Value parameter expected  171:Standard file was re-declared  172:UndeA8  X&D /PASCALSYPASCALCONUM1 NUM2 NUM3 NUM4 NUM5 NUM6 clared external file  173:Fortran procedure or function expected!  174:Pascal function or procedure expected  201:Error in reNUM7 NUM8 NUM9 COMPINITFINISHCODECLARATBODYPART 4ܢܢ ܢ)ܢ ܢ3ܢBܢܢۚ 132:Strict inclusion not allowed  133:File comparison not allowed  134:Illegal type of operand(s)  135:Type of operand mustal number - digit expected  202:String constant must not exceed source line  203:Integer constant exceeds range  204:8 or 9 i be boolean  136:Set element type must be scalar or subrange  137:Set element types must be compatible  138:Type of variable n octal number  250:Too many scopes of nested identifiers  251:Too many nested procedures or functions  252:Too many forward is not array  139:Index type is not compatible with the declaration  140:Type of variable is not record 141:Type of variable mreferences of procedure entries  253:Procedure too long  254:Too many long constants in this procedure ust be file or pointer 142:Illegal parameter solution  143:Illegal type of loop control variable  144:Illegal type of expressi 256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Dion  145:Type conflict  146:Assignment of files not allowed  147:Label type incompatible with selecting expression  148:Subravision by zero  301:No case provided for this value  302:Index expression out of bounds  303:Value to be assinged is out of bnge bounds must be scalar  149:Index type must be integer  150:Assignment to standard function is not allowed  151:Assignmentounds  304:Element expression out of range  398:Implementation restriction  399:Implementation restriction  400:Illegal char 8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4  blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line: -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:æ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ïæ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4 8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4  blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line: -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:æ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ïæ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4 8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4  blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line: 4áhVZJƄƅ0Ƅ,ƅXƁƂƁƂ > OF  ƄƄ,Ɓ -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:Ɓ#v ( ^T$z8z6 44ˡ4á4 æ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ïæ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4   æ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï٢%!!#  ٢P٢٢٢'٢ ٢ ٢%٢P٩ ߢ ؚߢ 8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4 (٩ ޢ $ޢޢؚޢ @INTEGER Ч'REAL Ч&CHAR Ч%BOOLEAN blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 Ч$STRING Ч TEXT Ч#INTERACTЧ! ۦMAXINT Щۢ 'ۢۢ+ +ۦINPUT Щۢ #ۢ -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:ۢۢۢ+* *ۦOUTPUT Щۢ #ۢۢۢۢ* ۦKEYBOARDЩۢ #ۢۢۢۢ æ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ïFALSE TRUE $ٚ ۦNIL Щۢ "ۢۢۢ@1 1ئ Щآ آ8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4 0 0ئ Щآ آآآ/ /ئ Щآ آآآآآ. .ئ Щآ آ blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55آآ--ئ Щآ آ آآآآآآآآآ,,ئ Щآ آآ  -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:آآآآآآآآP٩ء  ޢޢ ءޢޢޢޢæ5Q`Td\6List Q8AQ-M ́:Qʁ:ȡ)æ8-QM ï \READ READLN WRITE WRITELN EOF EOLN PRED SUCC 8QQ58æ6-QM -M 7ʁ9-M   files in directory, ʁ4  ORD SQR ABS NEW UNITREADUNITWRITCONCAT LENGTH INSERT  blocks used, ʁ6  unused, ʁ7  in largest area.4 "d 55 DELETE COPY POS MOVELEFTMOVERIGHEXIT IDSEARCHTREESEARTIME  -0Y4=- 0%Version I.4j 26 October 1979Volumes on-line:FILLCHARDISPOSE ########REWRITE CLOSE SEEK RESET GET PUT ''٢٢&&٢٢%%٢٢$$٢٢""٢٢##,٢SCAN BLOCKREABLOCKWRIDRAWLINEPAGE SIZEOF DRAWBLOCGOTOXY f Ƃ*:Ƃ*Ƃ*P,̂*Ƃ*ƂPƂ*.TEXTUƂ*TEXT ̂*Ƃ*ƂPƂ*.CODE[*]XƂ*CODE  words.77=  lines>š[, ><  seconds, >=  li*Ƃ*ƂPƂ*.PMDTƂ*PMD ,ˡǑ@?   3 [ٟ٢٢٢nes per minute.JSmallest available space = :"  identifiers. 77ȡ%7 :UCSD Pascal Compiler [I.4j](: )76u 3[ٟ٢٢٢7777ȡ1%7ȡ٢77?"Compilation errorsODD ЩCHR ЩTRUNC ЩROUND ЩSIN ЩCOS ЩL))٢٢٦PROGRAM Щ٢ ٢٢٢٢٢7٢٢ ٢!áY%7)ˡ ))OG ЩATAN Щ LN Щ EXP Щ SQRT Щ MARK Щ RELEASE á(O* dlr> L  J r z  Ƃ*.CODE[*]XƂ*CODE IORESULTЩUNITBUSYЩPWROFTENЩUNITWAITЩUNITCLEAЩHALT Щ*Ƃ*ƂPƂ*.PMDTƂ*PMD ,ˡǑ@?   3 [ٟ٢٢٢MEMAVAILЩWWȡܳI0ܹ$ XX 'X%' XX &X& XX :UCSD Pascal Compiler [I.4j](: )76u 3[ٟ٢٢٢XXXX ۚXp'g$ XX 'XL&FA9'0( b))٢٢٦PROGRAM Щ٢ ٢٢٢٢٢7٢٢ ٢!áY%7)ˡ ))[B>$=7ݡ  XXXXݡXX؟ˡYYYX ښXؚndnˡ  á< <>>f77ȡT%7š=Segment ٢  ((2@;=<77ȡ)%7٢٢ Щ778AB9ǁNJ words.77=  lines>š[, ><  seconds, >=  li7 6$ʦPROGRAM Щ X8UXR|Unes per minute.JSmallest available space = :"  identifiers. 77ȡ%7CtOL8IxF تP"ˡ: Can't open 7777ȡ1%7ȡ٢77?"Compilation errors.RN 7 Compile: ƂPƂ*Ƃ̂*Ƃ* .%xe f77ȡT%7š=Segment ٢  / ł ڢڢ ˡ   ٶ˄/ڣ %ڣ áڢڣ ڣ Ȅ ڢڢ  ߟˡ álȡ 熚 ߚˡ9   ȡ ǎ٢٢٢á   ٢ ٢٢٢á   ޟá-á~ ɡ [ ł [ޚáU  ˡ8 ȡ,&  m   ء n  *á á ޟˡ&ާ'Íާ&Í s ާ&árޚޟˡ%  ł       ˡ  o  ٢ š ǩM.áH á ߢޚޟˡ ,(ߚ ٢ ٢٢    ˫ á (  š  ٟá2249; #O[؟ٓˡ Ǧٓ öń ˡ%      ł  # ˫ ۢۢڢؚ   ˫ ˡUU Uá [ˡ   0   ޚ Í  ii   á<  "" ˡޢߚ á áb   ޚ  ˫  ǔ  ޢ ˡk{ާ Äd  ݧ'á4ˡ álˡ áá&   ݟˡ ޚō P Pˡ ާ  ޟˡiޢ   ǔ ݚá؟*//+"fآآg  á)  إآ آ(   ޢ ˡkޟˡ/ á&ˡ &áǏš fޚآ ($ ˡ ˧  lR R RU  ٟ%4b ڟ˶zcڧ'ڧ&˄2ġ%ɡ܂4á+á$C C ,á ޚɡ۸km2S@š  ڢ ڢڢڢ ݟˡ2ȡ%ݧ&á mݧ'á Ǖߢݚq˫   Cٟˡ>ݢ ۚݢ܂á۟ˡáݢ[[ؚ# á á á á !á  ˡ&܍ C(ˡu()- 8   áw@ F5_ vH t ~B  áޓܢۚo ޓܢۚáPá! @á  ˡ6  ޚ34ޡzܢ ݚݟˡ xܢ  ޓ{"á;ޡǡܢ . ˫\   ˡááy ȡ ㏂ޟˡ  35  44 4 3 BءA7$ R  ߚ(( á(@! ) á á á á !á  ˡ&܍ آߟˡ\ݚ˄< Í á   ȡ.ǀٿBǀ&á,ڢڢȡڢقݚٟm  hء` Ǐ87 67A 6šA Ǐá %7 Dǀ3áná šˡ ۚš$ġá  áá[ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠޓá_ٳ0d@HJ'ÍȄ'á ؂؂#Ȅ؂خ @MÍ 3A7ء66AǕáAAáaǀGڳáقšخáخǀخjȄ3ǔ á ۥۢ ۢۢ) Ä آ ٚآ#ˡ>á-ˡ& á    ߧš߫7ܣ ˡܣ 7AؓǏ-3 B ܣ B3  ˡ á ݥݢ ݢ) Äڢ ۚ(ٟ33 ɡ. [ޡáޓܢۚo ޓܢۚáPáˡ)گ ٧(ˡآ(# (ˡu( p 4ޡzܢ ݚݟˡ xܢ  ޓ{"á;ޡǡܢ 1 ݥݢٚݢݢ ݢݢ3CC ˫ 35  44 4 3 BءA7$ R  ۢ9á ۢښ$ˡLJ!خ ٢`m ۢ ˡ} x" ˡ' áˡ átá"  ۢ`mɡ(ġ 9!٫خ5R ˡr&˄"á&á33S,ڟáǞeˡǢWˡQ ٧&Íǟ< -ٟˡ á t߮خ á'63)##:<> 4!zO˄ ˡS>á<  á  á á+ 836ˡǐ#;=? E.d ˡhP &ǐG(á%Wá0!á )؟ˡأ á أ أ }}R'ˡ}23!ˡ"킮g0 XEv   á  ! á'  "'ˡ}á(á"'ˡ}á ' 63 [á 3á'6  2 Í Ä á" ˡ} á8خ2خ"ɡٮM2خ˫  : ˡǖg  8ˡń L;L Lɡ šث  ٚ}x á+ˡ-îáܟˡˡ NJ >ˡ ˡqܟˡ  < ,  á2خˡ 'ˡ} ˡ 'ˡ}á1M2خ٣ɡ ٣ˡ〮šNjˡA*á  @$ńˡ šث٫+áMM" ˡ ˡ}áqcNORMAL Я Iáˡˡ njˡ á ǘ  # ǐ "LOCK Я 2PURGE Я CRUNCH Я M" ˡ  2 Í Ä á"   ˡń WˡO Í;áçáǏ}W} 'ˡ}M E?9ˡ %ˡǏ M (ǏˡńǍLL S,USlá _73 7ˡ 'ˡ})á á á}}ˡ %ˡ.aǀȄ?á(ۢá(/ۮ .%Ä Iá >ءǚá0%á(9ܢܢ쿧9     +&Pˡݕˡǎګ+á ág á ˡǎǚ ǎٟˡˡȄ   áF   ljݡȄ ݡ 㔜ޡٟˡ~ޣ áVޣáޣ 7ˡ Mޣ ޣ 4ޣ áBޣ %ޣ 3áNޣ ޣ áOޣ .ޣ ޣ ޣ ˄ߢ߫lj˫á ޡ, 9 999 99V}" á  ' ˡˡ} ˡǏޣ "أ áأ át ܳo"ܹ !ݡ2  "'ˡ}á 'ˡ}%áM ˡˡ}%ÄǏ+áM M $ˡáásˡ ġ}''  *áȡ1"ˡ 'ˡˡ'á&á}'ˡ'á&á}' >'}*á  خKá ˡ'*٣ á٣ á%٣  23٣ ٣  ˡ 'ˡ}M M'٣ á'٣  63٣ ٣ J+ö9 ˡ(á!%á"á ˄      'ٮ"ág ˡK' M :& M)% M M}˫ ˡ 'ˡ}  ˡ 'ˡ} " ˡ ˡ}ˡ!áM) áٮM  *ö7.ˡ(á!%á"á˄ۮÍM{wsokgc^+Vta>tvtrF&؟ˡ ȡ á&&ˡ 'ˡا'á ١M ا&á8١á#" C:a_cecacaoagݡ "x 'á &'á ا&$#I:ˡ 'ˡ}M]ا%á ١MJ ١M5 )ˡݕ١ܮܮM}I I.ۣáۮ&ۣá ۮˡá'˫áۮM57 !ޣ á ޣ ˡǐáٟá~"ٟ˄&á% ߧ ߢ߫ á&ڟˡ٣ áȡW%Äá <ç &'ڧ& &  C Ä ˡ$ˡ LJ á ߫ˡˡ Lj  ! ' P'  a ۧ&á ۧ$á  ǃ DŽ áWˡ>ˡǐ0 !؟ˡç  Ǒ3  ǀ s  $  ˡ ǃ4ǃ !Dž ~m0*56@ˡsˡǐe V؟ˡç 8߮ 6šá404/1(0!7/ 1, )ǁ$ Zr$@خ3 Ǒ7@ !6(á 9߮ [0á  ō  á % ˡ ȡ ٟ˄'á&  &ޡJ%Ä /Bخˡ}áq ɡd [á[ۢۢۢ0 8[ۢۢ6ˡ-  %˄Pˡǁ٫٫ lQ  Q  F @ޡ*٣)šnj˫6(ڕ ٕ 1#áX[ܤˡ &Ni "$&(*,.02468:<>@BDFQA1I &~($(ǒ8Z<I: ǁ b)#M[ڤˡ[ڤ؟ٓá $&&'á &۟˄ۧ''Ä0#ۧ&&Ä9ٓǧ0K b*(F˫ 8: B+   dž#ۧ&&Ä džcۧ''Ä džHۧ''Ä dž-ۧ$$Ä ٮ 4 ( á 9خٮ (خ ٮ ^, 9ٟ߮ˡ٧&Í ǐ dž z'_F $ &% (` %!'á&á   ٟˡ_ Pܟˡ ȡáǜ  ܚޚ۟ dž(á %۟˄ۧ''Ä0#ۧ&&Ä  džjáښǓ˫(Fڟˡ9˫ Í߮ ݟˡc ݚۧ''Ä0#ۧ&&Ä  dž(ۧ$$Ä  dž f& ܟá , 9 š  ݟá >=kJK'- خ D$ˡەˡǁؚ,'$)á %Í ˡ ȡ  (F˫ 5خ EG V. ٮ @ خ 6$ %Í ˡ ȡ ۟˄á+á   ǁ ǂˡ# (9ٮخ @/áW  á   Ǜ؟ˡŧ& ǏA" 562  ( :ɡ:؟ˡةأߟˡáuˡo ńM2 6; @,;ˡǑá á ;;z[ڟá [ؚ7؞áeá  +*ˡ )( áʦ????????Щ=<[ ˡ ؞á٢ؚ٢ ؚآ آ< b== á@ á á P P  [ߟˡN2 2 ,á!á%áM(F˫ X١   ō  9؂򂾿'á'ˡ%  ثá 99 [ߟˡ2 M؟áV!أ áA - á[ ˡ 99ؿzt +ö-Í +ë á 'ˡǚ9"ˡ6`mˡǨ 槁š؟áܕB.TEXT"ˡǓ򂾶ˡ *á @;;?  $á3%788B8 3ȡ  ؟ˡ ? ?3 ˡ۳aA,Í + ۹Pڳ0d+ë]Y-ëR+ȡ    words code,  words data.("  ids left.2~ëK-ëD-ë,du$XB COJE"B ,ˡ  áá)V#%zF 0^B6 ^ ` t <$t< p!""##t$$V%H&& &*+.,,,+,-.}Í /1.:< , ' 09ō.á:.ˡ0  09Ȅ[ܤݟˡ"áǥ ǧġ U; F.>/n-j5ˡǨ 槁š؟áܕB \<ۣá ۮ)u+n*g,`-Y/R.K0D1=6c Ɓ-*SYSTEM.SYNTAXƁ. Ɓ/Pʁ. Ɓ/Ɓ/ In procedure  "$&eYTHQE@l!dš & Id  t(ڟáR@ڧ'á$ڧ%á , in file ˶ ;ˍ; ظ @á 1@ڧ&áڧ$á3Hd3ک΢ٚ΢ ػΞ(4٣٣ Ä @ @ڂڕڕǴ <---< Error!2 Type to continue to terminate Edit˄,٣ 34٣ 4ˡ5ˡ5^5š'7B4ĥ[˄[EeÍ ; ǐٶ#Í  áA  @.;ˡ# ڕ$ ȡ 䂾0  á $ $$    c ݟÄܟÄÄÄ"    _ %á á ,= / 򂾹 }*á *     .á   0H5 | ؿ"šۂٞقق =á        ' (  (  '  )      =>؍, áˡǒٕáo ~Aġ8ؤ7A) ) =á   {  "$&(*,.2468:<F2 TVX%788> R؟ˡL٣09٣ á2٣ á+٣&u  undefinedZ\^`bdf nprtvxz|~)(4Z455á[ 44ˡ4á4 /á áǐ   (ٟˡإá؟؟}" ġ<[ڟˡ(4O4ˡ4á 4ˡ4Ä  M4ˡ3 áڣa g Ch14/(.0-,ښ Bܣ A74!4 4 5L4á< 4 4ܢܢ ܢ)ܢ ܢ3ܢBܢܢۚ á !ڧ%áˡ < á 4áhVZJƄƅ0Ƅ,ƅXƁƂƁƂ > OF  ƄƄ,Ɓڟˡá %Ä   X2X X%á9á%$ Ɓ#v ( ^T$z8z6 44ˡ4á4  ݢݢ ǁ切إ(`ááW ˡ9ݧ'á á'ݧ&ááH4ˡ4á 4ˡ4Ä  M4ˡ3  iI#áá'إ.$áá &إ j   Bܣ A74!4 4 5L4á< 4 4ܢܢ ܢ)ܢ ܢ3ܢBܢܢۚ áEáP  -á   +á 09Ȅ ɡáJ ȡ P á۟ڟÍá 2 2ˡ Ä ޓ%  1 䂾7ń  䂾0 #  ث  ȡ  䂾0 ġ 䂾022 ߫2  Ä cݟܟ˄$ ýýý 4áhVZJƄƅ0Ƅ,ƅXƁƂƁƂ > OF  ƄƄ,ƁݽƁ#v ( ^T$z8z6 44ˡ4á4 ÿ۽ϟ>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8ÿŹýýýŹ ~8(8``0 > BB~~BB~>BBBBB>~>~~Qˡá >>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<000 Q 0 ̌̌̌? ?B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>?< ~ ``0<@\B|:FBF:BBBB>xx > H O^ہہǻ+cD'ý% "ScrConfig = set of BitW; (ScP = ^ GrafScreen; %ScrNum = 1..Scrs; # var &WhereX, &WhereY, $XLWindow, $XHWindow, $YLWindrue; #end { AtXY };  procedure SetWindow(Left, Right, Bottom, Top: integer);  %begin % )XLWindow := Left; )XHWindowow, $YHWindow: integer; $NewPlace: boolean; )Pen: PenColor; &Screen: Array [ 1..Scrs ] of ScP; &DisScr, %DrawScr: ScP; #  := Right; )YLWindow := Bottom; )YHWindow := Top; ) %end; % % % %  procedure StartPlot; #  var &Dummy : Boolean; &I procedure CreateScreen ( I : ScrNum ; var OK : boolean );   const )SafetyMargin = 200; )  %begin %  : integer; ) #begin &SetWindow(0, ColSize, 0, RowSize); &SetPen(White); &AtXY(0,0); &for I := 1 to Scrs do 'Screen[I] :=%if MemAvail >= SizeOf(GrafScreen) div 2 + SafetyMargin then % begin -new(Screen[I]); -OK := true; )end %else )OK :=  NIL; &SelectDraw(1,Dummy); &Erase(1); &SelectDisplay(1, [ ], Dummy); #end { StartPlot }; procedure Point(X, Y: integerfalse; % %end; % % %  procedure SelectDraw ( I : ScrNum ; var OK : Boolean );  %begin % ' if Screen[I] = NIL then ) CreateScreen(I, OK) ' else ) OK := true; ' if OK then ( DrawScr := Screen[I] ; ( %end; %    procedure 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,{ Terak graphics package George Gonzalez July, 1978 ( (Dale V. Gear Nov, 1979 ( added  OK) )else -OK := true; )if OK then -begin & if How = [ ] then ) How := [ AlphaLow .. GraphTop ]; & SelectDraw, SelectDisplay, SetPen .SetWindow . . (Includes StartPlot, Line, Box, AtXY SelectDraw, SelectDi X.Sett := How; & DisScr := Screen[I]; & UnitWrite(Graphic, DisScr ^, X.Int); # end { Displsplay, Erase SetPen, SetWindow } {$R-} const $Graphic = 3; $RowSize = 239; $ColSize = 319; # Scrs = 4;ay }; 1 %end; procedure Erase(I : ScrNum); # # begin & if Screen[I] <> NIL then  # type #PenColor = (NullColor, White, Black, Flip); %GrafScreen = packed array [ 0.. RowSize, 0..ColSize ] of boolean; 'Bit& FillChar(Screen[I] ^, SizeOf(GrafScreen), 0); # end { Erase }; procedure SetPen(PColor : PenColor);  %begin W = (AlphaLow, AlphaMid, AlphaTop, GraphLow, GraphMid, GraphTop, b6, 0GenBuf, ClickBit, b9, b10, BeepBit, b12, b13, b14, b15); % )Pen := PColor; ) %end; % % % % procedure AtXY(X, Y: integer); # #begin &WhereX := X; &WhereY := Y; &NewPlace := t&  0 then ,Slope := DY / DX; )if DX <> 0 )then -if X < XLWindow then 0begin 3TempY := abs(Y - RowSize) {Transform to real co &for I := 1 to Thick do )begin ,AtXY(LX, LY); ,Line(WhereX + Width, WhereY); ,Line(WhereX, WhereY - Height); ,Line(LX, Whords}; 3TempY := TempY - Round((Wherex - XLWindow) * Slope); 3Y := abs(TempY - RowSize) {Return to graph coords}; 3X := XLWinereY); ,Line(LX, LY); ,LX := LX + Spacing; ,LY := LY - Spacing; ,Height := Height - 2 * Spacing; ,Width := Width - 2 * Spacdow; 0end )else ,if X > XHWindow then 0begin 3TempY := abs(Y - RowSize); 3TempY := TempY - Round((WhereX - XHWindow) * Sloing; )end; #end { Box }; pe); 3Y := abs(TempY- RowSize); 3X := XHWindow; 0end; )if DY <> 0 )then ,if Y < YLWindow ,then /begin 2if DX <> 0 then 5begin 8TempY := abs(WhereY - RowSize); 8X := WhereX - Round((TempY - abs(YLWindow - RowSize)) T/ Slope); 2 end; 2Y := YLWindow; /end ,else /if Y > YHWindow then 2begin 5if DX <> 0 then 8begin ;TempY := abs(WhereY - RowSize); ;X := WhereX - Round((WhereY - abs(YHWindow - [RowSize)) / Slope); 5 end; 5Y := YHWindow; 2end; &end { Window }; # );   var )TempY: integer; ) # #begin &AtXY(X, Y); &TempY := abs(WhereY - RowSize); &if (WhereX >= XLWindow) and (Where# # # # #begin { Line } &SX := X; &SY := Y; &Window(X, Y, WhereX, WhereY); &WX := WhereX; &WY := WhereY; &Window(WhereX <= XHWindow) & and (WhereY >= YLWindow) and (WhereY <= YHWindow) &then )case Pen of ,White: X, WhereY, SX, SY); &TrueY := abs(WhereY -Rowsize); &DestY := abs(Y - Rowsize); &if (X >= XLWindow) and (X <= XHWindow) and /DrawScr ^ [ TempY, WhereX ] := true; ,Black: /DrawScr ^ [ TempY, WhereX ] := false; ,Flip: /DrawScr ^ [ TempY, WhereX ] :=+(Y >= YLWindow) and (Y <= YHWindow) and + ((X <> WhereX) or (DestY <> TrueY)) &then )begin ,if NewPlace or (WX <> WhereX) o not DrawScr ^ [ TempY, WhereX ] )end; &NewPlace := false; #end { Point }; procedure Line(X, Y: integer); # #var *Trur (WY <> WhereY) then /Point(WhereX, WhereY); ,drawline(Junk, DrawScr ^, 20, WhereX, TrueY, X - WhereX, DestY /- TrueY, ord(PeY, *DestY, -SX, -SY, -WX, -WY, +Junk: integer; & # # # #procedure Window(var X, Y: integer; WhereX, WhereY: integer)en)); )end; &WhereX := SX; &WhereY := SY; #end { Line }; procedure Box(Width, Height, Thick, Spacing: integer); # ; & &var -Slope: real; 0DX, -TempY, 0DY: integer; ) &begin { Window } )DX := X - WhereX; )DY := Y - WhereY; )if DX <>#var .I, -LX, -LY: integer; & #begin { Box } &Width := Width - 1; &Height := Height - 1; &LX := WhereX; &LY := WhereY;'  dxǀɓ!ɟHXCƁKƂw  CƁKϰA0646<TX  ڪPՕ-Օ././ȡՖ -.0-..Ֆ5-ՖA.X LتPՖՖՖЭRՉڳ ՉaAՊ3Պ?8تPՊՊ{  }0՗Z՗k՗՘՘!ؚ՘3՘h՘v177570՘176570՘176560՘177530՘¦17752ՊҭRVՋ Fš'Ջ!Ջ' Ջ7Ջ@ ՋMՋT:Ջ ՋɶMicro character?Ջ0՘զ176530՘176520՘177560ՙ ՙ005037ՙIՙgՙՙՙՌ Ռ'Ռ=ՌFEnter Micro string for ՌoՌ , end with 'ՌՌՌڶՙՙՙ՚90՚"՚8՚L90č՚w՚՚O"*՛^á(՛՛ܲ':Ռ ՌՍ3Ս= PՍNՍgՍy^ՍՍѶՍ Ս՜^ˡ ՜%@՜Q՜X՜m՜=՜إ՜߭5p ՝ Initializing՝+*Micro character ՎՎ5 defined.ՎIՎPRzՎ Վڧȡ{ՎyˡaՏՏá ՝I՝^ ՝{՝.՝՝՝՝ܲ՝՞ J՞& ՞H+*Տ7:ՏCyȡՏty؛ՏՏ ՏՏC Ր"ë՞t+ë"՞ ՞P~՞۹y Xr   "$&(*,.02468:<>@BȡՐGyՐ`All Micros clearedՐ}; NՐՐ%Micros: Define, List, Quit, or Clear?ՐDFLNPRTVXZ^bdfhjlnp՞6՞Bad init directive:՟&՟7՟BՐՑՑٳylՑCٹKՑ\_ՑpXՑ}*Are you sure you want to clear all Micros?՟I@}[bƁ.՟z COM.DATA.TEXT՟"á՟E՟՟́/Ɓ/*Ɓ/ COM.DATA.TEXTƁՑCLDT ]ՑԶՑQáՑExit Micro mode.Ւ  l. ˡaՏՏ/ՠ"áՠ!ՠ(ՠ7l ՠ!ՠ ՠա$ա-"աwաաբբ. բ^բբբ  d"n>@ COM *Տ7:ՏCyȡՏty؛ՏՏ ՏՏC Ր" MICROS INITIALIHELP Micros nested too deeply! " *?6?$aAmȡՐGyՐ`All Micros clearedՐ}; NՐՐ%Micros: Define, List, Quit, or Clear?Րáǐ$ǰBǾ׭x@;N @g ni ?ȴ Ⱦç#x 8#3?9xՐՑՑٳylՑCٹKՑ\_ՑpXՑ}*Are you sure you want to clear all Micros?( գ գ?գjգգդդ>\ դ%դ5ե)E եiUndling."լլ$P Change command Prefix character.լ-M Micro Mode. Define, List or Clear Micros.խ-U Upզ&yզ6 ȡզZy զqyxզzǘ:?զ BATCH|$XFER,~Pզx#է date Info file with current COM status.խV ժ߶ժ L List file to other Computer.ի!է2է> է^էyէzzvP ՟"á՟E՟՟́/Ɓ/*Ɓ/ COM.DATA.TEXTƁ$R Record text from other Computer. իb( իnš0իǘ:d % full )իӶempty )/ՠ"áՠ!ՠ(ՠ7l ՠ!ՠ ՠա$ա-"աwաաբբ. բ^բբբ լ "C Clear text from Record Buffer.լ:"W Write Record Buffer to a file.լk"O Toggle file overflow haգ գ?գjգգդդ>\ դ%դ5ե)E եiUndling."լլ$P Change command Prefix character.լ-M Micro Mode. Define, List or Clear Micros.խ-U Upզ&yզ6 ȡզZy զqyxզzǘ:?զ BATCH|$XFER,~Pզx#է تP|Հ ՀtR(Հ׶Հ Հ ՁAš(ՁՁ&Ձ/ Ձ= ՁI٪Pը ը$ { Currently ը>ءըRON }ըiOFF }ըyRjتPը ըՁO ɡՁjՁp{Ձ{اá ՁTAB}ՁáՁRETURNfՁاáՁRUBOUTNՁáՂ LINE FEED4Ղ2اáՂJESCըթ R4թ%թ0# < COM Options > Version 2.0թkAPEՂcՂiCTRL-Ղ{AՂՂ}ՂՂՂ֭  ՃtyáՃՃ~ՃyښՃՃ̥yթv*G Get file from other Computer to TERAK.թ+S Send file from TERAK to other Computer.թD Toggle Half-DupleتՃNՄ3ڳ ՄZaAՄՄ8ՅؾȡՅ-ٛٛՅP x.ժժ$H Prints this help list.ժM Q Exit COM.ժiժt( key Escapes one from any command2 Յ&ՅfՅ تPՆEՆP{  }ՆlR.ժժ Some other commands:ժ߶ժ L List file to other Computer.ի!V VڪP-٪PتPՆVP-Ǡ Ն@ ՇJfǀՇՇ& Ոg Ոsg c$R Record text from other Computer. իb( իnš0իǘ:d % full )իӶempty )ommand aborted!! ՈՈՈՈBՉ!#ՉA áՉbՉw Չ~,تՉ Չ.TEXTլ "C Clear text from Record Buffer.լ:"W Write Record Buffer to a file.լk"O Toggle file overflow haá!Պ.TEXT#Պ*KՊ@KՊU"ˡ#ՊpՊ{ Can't open !! ՊՊՊPՊŭD) - Ջإ+Ջ.تՋ@ ---.TEXT#-Ջ`x!٪ՌSKՌgKՌ}؞"ÚՌ 2#՜՜ʭ` +՝՝ޥzǘ:E2՞՞zǘ: á ՞)՞<՞L՞SL^-՞Ռ̥g!Ռ饁 #Ս Ս#Ս/)ՍEՍPCan't find file !! ՍՍՍ+ `"ՎJՎdՎoՎՎ՞՞zǘ:՞ɡ՞՞-՟՟4՟Fzǘ:ˡ,՟i՟nzǘ:U՟՟՟՟ġ՟՟ȡՎՎՎ׭H%Տ K SՏ%Տ9K ՏS%-ՏbՏgKáՏՏ á ՏħKšՠ$KK ނ"ՠTȡՠpK ՠȡՠKzǘ:ՠ" ՠݕՋՋ$xՋSxǀՋ! ,Ռxǀ Ռ0ÍÍՌsՌeՌeՌՌǭՏ٥KՏՐˡՐ&%Ր-q? ~$ՐءՐՐՐՐՐԧՐՐՑ :ՑrؾšՑJՍxՍUՍ^xؚՍvxՍՍ/:ՎՎՎeؿՎ6eՎTՎ`Վj8*á ՑՑ:Ցš ՑՑ.šՒئ.Ւ<%l&ՓO;Փ_+ȡ(Փ;Վŧ ՎݶՎՎ&ՏJՏYՏcՏhՏwxՏՏՏՏՏšՏխ7HՐwՐ+؛;ՓԶ;+Ք To Host+!Ք,+šՔY++Ք+Ք+NoNameՔՐՐՐՐՐ'ՐxՐՑáՑ١Ց.Host didn't respond ՑMYX rتPՑ+,+," (ՕՕ9PACKՕKՕfՕn/ՕՕ+ՕFile + is now your primary file. Օl)ՖȡՑ+++ՑՒ &V >تPՒfՒr/ՒRՒՒՓՓ Փ%Փ'gSendPՖ;<"ՖQ+Ֆo+&Ֆ(Ֆ<ՖՖ5Final NOS Control Statement: ( Type RETURN for none )Ֆ ՓՓ+.Յ,ث Յ7 iՅQՅbǘ:ɡՅՅՅzǘ:Յ׹:ՅՅ Նzǘ:Ն.!! Record ՗ BATCH՗ ==NEW,=+"=՗FTEXT՗\՗m՗}K՗՗ ՗$՗ƥK՗)՗&՗eBuffer full !! ՆQՆXՆj˄ՆՆeՆeՆՆՇz7ՇՇՇ  '՘gListP՘"՘ءG՘՘՘ ՘$՘Kՙ Listing of is complete. ՙ8ՙ?l*ڪՇՇN ՈئPՈ)Ո< ՈZՈ_áՈ~ՈáՈئՈ ^Ո׶Pՙՙՙ -ՙ-ՙYes՚No!՚$-՚2áՉ JՉ ؾɡ?Չ2Չ9P QPՉVؾՉ~ؾՉՉՉՉՉƭRT՚՚쥀!՚; ՛;+՛7;&՛I:ˡ7՛t՛|K՛K ՛"՛˥K՛׹ ٪PՊc file: Պ+Պ+ՊՊ+ Պæ/+,Պ,šՊإ+-,՛՛ٓm՜՜   already exists, replace it?:՜l"Okay then, what shall we call thisP՜՜١* 4ȡvժ ժ;Error detected between line #  and line # ^á#չiչo؞չx^ˡ չ@չչչN;չۦչչ;պˍպBպGۦÄ%պqMicro cann šQժPlus   more errors later in the file.իի J3ի7իFիS իlot include itself! պպ۾ɡLպպ պ պջ۾ջ,ջ9!ջHջRMicro isիzիիիիիxլ xǀլ95լPլ` լsլլ2@22լ full!! ջw2ջջ١ջջջ;ջùջ۾š ռ۾ռ%( ռ:ս ١ս +0լōխ'ءyխ;խKխfǘ:šխ/խխ,խš:խխծ ȡ$ծ&  ծJծUۚծlծծծAս<-սNT=ս^áս^^Bսسս^@ վծծ9ծծծNծTransmission error-- retrying. կկ-ݧÄկS/կhKկFile  Saved կ?վ)h>Ɓ/վR COM.DATA.TEXTվm*** COM info fileվD=վ"O=վX:ˡ}կկԦOverflow text written to files: հA  ȡBհ&..TEXT հNվC:տ>տ.տ=́0ʁ0ȡտ^yˡuտ~տM:տ>տ=աաɡ ա8KաCءWաVա[2á:աyաաWriting to fileաա.աաահh3հz հհ`!61,٪PتPձW~,UձqUš/ձձ,Uձ,PUձ~,Uձҹձձբբբ+j,բšբբգgWritePգ Write Record Buffer toPգI +գ_ գ|,UձUáղղ,ղ",Uղ:ղH,VUVղj,Uղ{,ղ/ղ,ղn 6ղ٥gGwգ:,գ¥Kգضդ {   lines written. }դ<դetPղ쥀GetPճ;ճ+ճ*ճ@;6ճl ճyճճճ?ճճáճ1մ &մ 5UNothing in the buffer!! դw$" .դդ?áեA ե)եBKեR.Z.TEXTPեdե**٪Pմմմ turned ON մ turned OFF յRL7յhx#յ#յCarrier detected յצ C*n*եl/զ-զ>զsȡզզzǘ:զWզզá<զզarrier lost յJ8նFšcնgնl.Do you really want to clear the Record Buffer?%նննѦRecord Buffer Cleaէzǘ: áէ'է+է; էTէ[էbقǀէէէQ( 0ը0ը2թ9red "շRecord Buffer already empty շ-9շg#Change Command Prefix character to:շշ շթJթ\թh"4թ|á թNo transmission errors. թթζUnrecovered errors!!:թ շ϶&{ Command prefix character changed to ո ո. }ո;:չ,؞չ53չNչS+ =<š]ݢŒ~Şyˡ;žyȡyܛ@.&AJxtƃƊW BƲš2Micros nested too deeply! " *?6?$aAmáǐ$ǰBǾ׭x@;N @g ni ?ȴ Ⱦç#x 8#3?9x dxǀɓ!ɟHXCƁKƂw  CƁKϰA0646<TX  PROGRAM fdsjklfsdjkl  fjdsklfsdjfklsfjslfsjdlfsjflskdfjsdlfjsdklfsjdlkfsdjf;  VAR DUMMY :BOOLEAN; $A,B,C :INTEGZ "Z^tj<F 8v8 VX& H "," ! C.&AER; $I,J,K :INTEGER; $S :CHAR; $  {$I 'PLOT'}  $  BEGIN $writeln('press s to shoot'); $read(s); $STJxtƃƊW BƲš2Micros nested too deeply! " *?6?$aAmARTPLOT; $SELECTDISPLAY(1,[GRAPHLOW..GRAPHTOP],DUMMY); $SHOOT; $SELECTDISPLAY(1,[],DUMMY);  PROCEDURE SHOOT; $BEGIN $whileáǐ$ǰBǾ׭x@;N @g ni ?ȴ Ⱦç#x 8#3?9x a <> 1000 do begin $ATXY(0,120); $FOR I:=1 TO 235 DO begin $a:=i+5; $POINT(I,A); point(a,i); $end; $end;END; {SHOOT}   dxǀɓ!ɟHXCƁKƂw  CƁKϰA0646<TX  END.  O^տý1ʁ1ȡ y؛>+>C>hInfo file updated. 5*B/ubz<2عL9] Half Duplex75 * զOverflow checking"7k:d!\6 Saving text 7Fd'?y<8Œ.1CW*~~yu[VP<$9(6šM9 d$xÐإ%ü@4AQáerxąđݢĶ ˡ-, Հ Ձ ՁՁ&(ՁjՁtՁ(WHAT DO YOU WANT TO CALL YOUR DATA BASE?Ձ/WRITELN('WHAT IS THE MAXIMUM NUMBER OF CHARACTERS'); /WRITELN(' FOR THIS STRING?'); /READLN(ELEMENTS); /WRITELN(OUTFILE,' ՁͥPROGRAM;ՁTYPE POINTER=^;Ղ$  ',FIELD,':PACKED ARRAY[1..',ELEMENTS,'];'); /TEST:=1; /END; { S } +'R':BEGIN /CLEARSCREEN; /WRITELN(OUTFILE,' ',FIELD,':R=RECORDՂLՂՂ'WHAT TITLE DO YOU WANT FOR FIRST FIELD?ՂͶ EAL;'); /TEST:=1; /END; { R } +'I':BEGIN /CLEARSCREEN; /WRITELN(OUTFILE,' ',FIELD,':INTEGER;'); /TEST:=1; /END; { I } + * NO BLANKS PLEASE * ՂՃ ENDՃ%Ճ3Ճ> WHAT DATA TYPE IS IN THIS FIELD?'A':BEGIN /CLEARSCREEN; /WRITELN('WHAT IS THE MAXIMUM NUMBER OF ELEMENTS IN ARRAY?'); /READLN(ELEMENTS); /WRITELN(OUTFILE,' Ճm'** (S)TRING,(R)EAL,(I)NTEGER,(A)RRAY **ՃՃՃՃՃՄ (WHAT ',FIELD,':PACKED ARRAY[1..',ELEMENTS,'];'); /TEST:=1; /END; { A } )END; { CASE } )IF TEST=0 -THEN BEGIN -WRITELN('SORRY  IS THE MAXIMUM NUMBER OF CHARACTERSՄ@ FOR THIS STRING?Մ` Մu BUT YOU HAVE ENTERED AN ILLEGAL KEY! TRY AGAIN'); -END; { IF } )WRITELN('ENTER A TITLE FOR THE NEXT FIELD ( OR ENTER END )':PACKED ARRAY[1.. ];ՄՄՄՄՄ :REAL;); )READLN(FIELD); $END; { WHILE } $WRITELN(OUTFILE,' END; { OF RECORD }'); !END; { TEST FILE } ! !BEGIN {PROGRAM} %REWRՅՅՅ+Յ9ՅD  :INTEGER;ՅlՅvՅՅՅ0WHAT IS THE MAXIMUM NUMBER OITE(OUTFILE,'#4:DATABASE.TEXT'); %HEADING; %FIELDS; %CLOSE(OUTFILE,LOCK);  END. { PROGRAM }  F ELEMENTS IN ARRAY?Յ Յ :PACKED ARRAY[1.. ];> DATABASE Ն3Ն=-AS&  "qRՆZáPՆnՆx4SORRY BUT YOU HAVE ENTERED AN ILLEGAL KEY! T *ZáPՆnՆx4SORRY BUT YOU HAVE ENTERED AN ILLEGAL KEY! TRY AGAINՆՆɶ4ENTER A TITLE FOR THE NEXT FIELD ( OR ENTER END )Շ ՇՇRY AGAINՆՆɶ4ENTER A TITLE FOR THE NEXT FIELD ( OR ENTER END )Շ ՇՇ. END; { OF RECORD }ՇU .ƁJƂvƂwƃƁIՇ#4:DATABASE.TEXTՇ. END; { OF RECORD }ՇU .ƁJƂvƂwƃƁIՇ#4:DATABASE.TEXTՇ- NMJ>>ZZ,!X8HH8ȲȲ *SYSTEM.EDITORž 0´߃ƲO^B}ՇՇՇƁJƂwBrx :PACKED ARRAY[1.. ];Ն3Ն=-AS&  "qRՆZáPՆnՆx4SORRY BUT YOU HAVE ENTERED AN ILLEGAL KEY! TRY AGAINՆՆɶ4ENTER A TITLE FOR THE NEXT FIELD ( OR ENTER END )Շ ՇՇ. END; { OF RECORD }ՇU .ƁJƂvƂwƃƁIՇ#4:DATABASE.TEXTՇPROGRAMinventory; TYPE POINTER=^inventory; inventory=RECORD partno:INTEGER; name:PACKED ARRAY[1..34]; address:PACKED CLEARSCR(HEADING (FIELDS (DATABASE(TITLE &FIELD &PAGE "TEST !KIND "ELEMENTS!ARRAY[1..34]; cost:REAL; cost:PACKED ARRAY[1..50]; end:PACKED ARRAY[1..34]; END; { OF RECORD } . ); *'V':SETPEN(NULLCOLOR); *'E':SETPEN(FLIP); *'T':BEGIN /A:=A-1; /B:=B+1 /END; *'G':A:=A-1; *'B':BEGIN /A:=A-1; /B:=B-1; /END; *'N':B:=B-1; *'M':BEGIN .A:=A+1; .B:=B-1; .END; *'J':A:=A+1; *'U':BEGIN /A:=A+1; /B:=B+1; /END; *'Y':B:=B+jfkldsfjsdlkfjsdlkfjsd  fjsdklfjsdlfjsdlkfjsd  fjslkfjsdlkfjsdlfskdj  end  1; *'Q':TEST:='T'; &END; {CASE} $POINT(A,B);  END; {WHILE}  END; {PROCEDURE}  PROCEDURE START; #BEGIN #GOTOXY(5,20); #WRITELN('GIVE X COORDINATE'); #READ(A); #WRITELN('GIVE Y COORDINATE'); #READ(B); #ATXY(A,B); #WHATDO; #END; {PROCEDURE START}    BEGIN {MAIN PROGRAM} #STARTPLOT; #SELECTDISPLAY(1,[GRAPHLOW..GRAPHTOP],DUMMY ); #TEST:='F'; #ERASE(1); #START;  END.  *V**v `FFVVv1vO^?iPROGRAM DRAWER(INPUT,OUTPUT); #VAR MODE, TEST :CHAR; 'A,B :INTEGER; 'DUMMY :BOOLEAN; ' #{$I 'PLOT'} # #  PROCEDURE WHATDO; #BEGIN #WHILE TEST <> 'T' DO 'BEGIN 'READ(MODE); 'CASE MODE OF *'D':SETPEN(WHITE/  BEBEGIN {MAIN PROGRAM} #STARTPLOT; #SELECTDISPLAY(1,[GRAPHLOW..GRAPHTOP],DUMMY ); #TEST:='F'; #ERASE(1); #START;  END.  $WRITELN('** WHAT WOULD YOU LIKE TO DO **'); $WRITELN; WRITELN; $GOTOXY(5,10); $WRITELN('ADD TO FILE = A'); $GOTOXY(5,12); $WRITELN('DELETE FROM FILE = D'); $GOTOXY(5,14); $WRITELN('LIST INFORMATION = L'); $READ(CHOICE); $CASE CHOICE OF ''A':ADD; ''D':DELETE; ''L':LIST; 'END; {CASE} $IF(CHOICE<>'A')OR(CHOICE<>'D')OR(CHOICE<>'L')THEN MENU; !END; {MENU} ! !BEGIN {PROGRAM} %MENU; !END. {PROGRAM} PROGRAM DRAWER(INPUT,OUTPUT); #VAR MODE, TEST :CHAR; 'A,B :INTEGER; 'DUMMY :BOOLEAN; ' #{$I 'PLOT'} # #  PROCEDURE WHATDO; #BEGIN #WHILE TEST <> 'T' DO 'BEGIN 'READ(MODE); 'CASE MODE OF *'D':SETPEN(WHITE); *'V':SETPEN(NULLCOLOR); *'E':SETPEN(FLIP); *'T':BEGIN /A:=A-1; /B:=B+1 /END; *'G':A:=A-1; *'B':BEGIN /A:=A-1; /B:=B-1; /END; *'N':B:=B-1; *'M':BEGIN .A:=A+1; .B:=B-1; .END; *'J':A:=A+1; *'U':BEGIN /A:=A+1; /B:=B+1; /END; *'Y':B:=B+1; *'Q':TEST:='T'; &END; {CASE}  END; {WHILE}  END; {PROCEDURE}  PROCEDURE START; #BEGIN #GOTOXY(5,20); #WRITELN('GIVENMJ>>ZZ,!X8HH8ȲȲ *SYSTEM.EDITORž 0´߃ƲO^ X COORDINATE'); #READ(A); #WRITELN('GIVE Y COORDINATE'); #READ(B); #ATXY(A,B); #WHATDO; #END; {PROCEDURE START}    0 O^DO YOU WANT TO ADD TO? **') (WRITELN; WRITELN; (GOTOXY(5,10); (WRITELN('JOB INS = I'); (GOTOXY(5,12); (WRITELN('JOB OUTS = .*AO'); (GOTOXY(5,14); (WRITELN('TABLES = T'); (READLN(CHOICE); (CASE CHOICE OF +'I': BEGIN 1RESET(IZ,'#4:JOBINS.TEXT'); 1END; +'O': BEGIN 1RESET(OUT,'#4:JOBOUTS.TEXT'); 1PHILE:='OUT'; 1END; {O} +'T': BEGIN 1RESET(TABL,'#4:TABLES.TEXT'); 1PHILE:='TABL'; 1END; {T} )END; {CASE} )IF(CHOICE<>'I')OR(CHOICE<>'O')OR(CHOICE<>'T')THEN ADD; )CLEARSCREEN; )GOTOXY(5,5); )WRITELN('PLEASE WAIT A MINUTE..GOT SOME FILE WORK TO DO...'); )WITH KEYB DO BEGIN )READLN(PHILE,NUMBER); )WHILE NUMBER <> 9999 DO -BEGIN -WRITELN(TEMP,NUMBER); -READLN(PHILE,AUTHOR); -WRITELN(TEMP,AUTHOR); -READLN(PHILE,DATE); -WRITELN(TEMP,DATE); -READLN(PHILE,FIRSTLINE); -WRITELN(TEMP,FIRSTLINE); -READLN(PHILE,SECONDLINE); -WRITELN(TEMP,SECONDLINE); -READLN(PHILE,THIRDLINE); -WRITELN(TEMP,THIRDLINE); -READLN(PHILE,NUMBER); )END; {WHILE} )GOTOXY(5,5); )CLEARSCREEN; )WRITELN('WHEN DONPROGRAM KEYBATCHINFO;  TYPE KBINFO=RECORD ,NUMBER :INTEGER; ,AUTHOR :STRING[20]; ,DATE :STRING[E ENTERING,ENTER 9999 FOR NUMBER'); )GOTOXY(1,8); )READLN(NUMBER); )WHILE NUMBER <> 9999 DO -BEGIN -WRITELN(TEMP,NUMBER); 8]; ,FIRSTLINE :STRING[80]; ,SECONDLINE :STRING[80]; ,THIRDLINE :STRING[80]; ,END; {RECORD} ,  VAR PAGE -WRITELN('ENTER AUTHOR'); -READLN(AUTHOR); -WRITELN(TEMP,AUTHOR); -WRITELN('ENTER DATE WRITTEN'); -READLN(DATE); -WRITELN(T :CHAR; $IZ,OUT,TABL,TEMP :FILE OF CHAR; $X,Y :INTERACTIVE; $CHOICE EMP,DATE); -WRITELN('ENTER DESCRIPTION'); -READLN(FIRSTLINE); -WRITELN(TEMP,FIRSTLINE);  :CHAR; $PHILE :STRING[4]; $KEYB :KBINFO; $  PROCEDURE CLEARSCREEN; $BEGIN $PAGE:=CHR(12); $WRITE(PAGE);  END; {CLEARSCREEN)   PROCEDURE ADD; $BEGIN (CLEARSCREEN; (GOTOXY(5,5); (WRITELN('** WHAT FILE 1 ؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏU-WRITELN('ENTER MORE DESCRIPTION AND ASSOC. JOB INS,OUTS, TABLES'); -READLN(SECONDLINE); -WRITELN(TEMP,SECONDLINE); -WRITELN('ENTER ASSOCIATED JOB INS, OUTS , TABLES'); -READLN(THIRDLINE); -WRITELN(TEMP,THIRDLINE); -WRITELN('ENTER NEXT NUMBER'); -READLN(NUMBER); )END; {WHILE} )CLOSE(TEMP,LOCK); )RESET(TEMP,'#4:SCRATCH); )CASE CHOICE OF ,'I':REWRITE(IZ,'#4:JOBINS.TEXT); ,'O':REWRITE(OUT,'#4:JOBOUTS.TEXT); ,'T':REWRITE(TABL,'#4:TABLES.TEXT); ,END; {CASE} )CLEARSCREEN; )WRITELN('HOLD ON A SEC GRAPHTEX OND... MORE FILE WORK TO DO...'); )READLN(TEMP,NUMBER); )WHILE NUMBER <> 9999 DO ) BEGIN -WRITELN(PHILE,NUMBER); -READLN 2 Օ؂Օ1ؕՕK؏Օl؏ՕՕc(TEMP,AUTHOR); -WRITELN(PHILE,AUTHOR); -READLN(TEMP,DATE); -WRITELN(PHILE,DATE); -READLN(TEMP,FIRSTLINE); -WRITELN(PHILE,FI Հˡ ՀxՀ ȡ)ՀՀՀ ՁՁ Ձ Ձ"4Q \Ձ@press s to shootRSTLINE); -READLN(TEMP,SECONDLINE); -WRITELN(PHILE,SECONDLINE); -READLN(TEMP,THIRDLINE); -WRITELN(PHILE,THIRDLINE); -READLNՁ\ Ձl Ձ}8ՁՁՁ,`f ``T~\Ց Ւ (TEMP,NUMBER); (END; {WHILE} (END; {WITH} %END; {ADD} %  PROCEDURE MENU; $BEGIN $CLEARSCREEN; $GOTOXY(5,5); Մ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj$WRITELN('** WHAT WOULD YOU LIKE TO DO **'); $WRITELN; WRITELN; $GOTOXY(5,10); $WRITELN('ADD TO FILE = A'); $GOTOXY(5,12); >ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇť$WRITELN('DELETE FROM FILE = D'); $GOTOXY(5,14); $WRITELN('LIST INFORMATION = L'); $READ(CHOICE); $CASE CHOICE OF ''A':ADDˡՈǀ% Ո>,ՈثՈՈ٫ՈثՈՉ Չl۫Չګ Չ٫ Չث Չ; ''D':DELETE; ''L':LIST; 'END; {CASE} $IF(CHOICE<>'A')OR(CHOICE<>'D')OR(CHOICE<>'L')THEN MENU; !END; {MENU} ! !BEGIN {P$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`ROGRAM} %MENU; !END. {PROGRAM} ȄĄȄNՋѧ:Ռ ڤ7Ռ9ڤ'Ռiڤڤ A3%ՌՌ­ Սٕ Ս2 ՁR Ձb Ձs8ՁՁՁ,`fZZNxVՑՑ Ւ  GRAPHTEX Մ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj 4 Օ؂Օ1ؕՕK؏Օl؏ՕՕc>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇť ՀˡBՀՀxՀ ȡ#ՀՀՀ Ձ Ձ ՁՁ"O5 \Ձ@press s to shootˡՈǀ% Ո>,ՈثՈՈ٫ՈثՈՉ Չl۫Չګ Չ٫ Չث ՉՁ\ Ձl Ձ}8ՁՁՁ,`f ``T~\Ց Ւ ՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`ˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ ȄĄȄNՋѧ:Ռ ڤ7Ռ9ڤ'Ռiڤڤ A3%ՌՌ­ Սٕ Ս<ՒVȄĄȄˍ0ՒՒˍˍՓ Փ9 ՓՓޫՓݫՓ Ք:ՔQؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏUՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕcՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐ Հˡ ՀxՀ ȡ)ՀՀՀ ՁՁ Ձ Ձ"4Q \Ձ@press s to shootˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ Ձ\ Ձl Ձ}8ՁՁՁ,`f ``T~\Ց Ւ <ՒVȄĄȄˍ0ՒՒˍˍՓ Փ9 ՓՓޫՓݫՓ Ք:ՔQ GRAPHTEX ՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc 3 Օ؂Օ1ؕՕK؏Օl؏ՕՕc Հˡ ՀxՀ ȡ#ՀՀՀ Ձ Ձ Ձ.K VՁ6press s to shoot Հˡ ՀxՀ ȡ#ՀՀՀ Ձ Ձ Ձ.K VՁ6press s to shootՁR Ձb Ձs8ՁՁՁ,`fZZNxVՑՑ Ւ 3 ՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ *************************************  TOPICS FOR STUDENT TRAINING  *************************************     KEYBATCH <ՒVȄĄȄˍ0ՒՒˍˍՓ Փ9 ՓՓޫՓݫՓ Ք:ՔQDATA ENTRY AND EQUIPMENT $general key to disk description $overview of supervisor options (inc:tape save, shutdown, batch delՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕcete $description of screen layout (field type indicator (column indicator (auto (field number (mode (message (format lev ՀˡBՀՀxՀ ȡ#ՀՀՀ Ձ Ձ ՁՁ"O5 \Ձ@press s to shootel (record count $description of key functions (multipunch (hex) (field keys (char. keys (field complete (reset (rtn (rՁ\ Ձl Ձ}8ՁՁՁ,`f ``T~\Ց Ւ ecord keys (auto (insert (correct (delete (suspend (end (accept $description of startup for new batch $explaination ofO^ re-entry to existing batch $description of 3 methods of search (unique (mask (offset $brief description of update and veriՄ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj+*AV4>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇťˡՈǀ% Ո>,ՈثՈՈ٫ՈثՈՉ Չl۫Չګ Չ٫ Չث Չ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`ȄĄȄNՋѧ:Ռ ڤ7Ռ9ڤ'Ռiڤڤ A3%ՌՌ­ Սٕ ՍؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏU4  (   SHUTDOWN PROCEDURE #difference between hard and soft shutdown #tape backup  ' (   TELEPHONE OPERATION #forwaiscussion &manuals are excellent > self-study #terak &demonstration of editor &description of capabilities & 0 1 &  FArd calls to other extension #pickup call #hold one call--pick up another #call waiting signal #trunk queing (batch room) #cMILIARITY WITH COMPUTER CENTER USER GUIDE &excellent source of information &should be studied in detail - . & all forwarding #operation of switch hook #description of tones and their meanings #system status #help line #how to take me STUDENT RUN PRODUCTION JOBS &should know ins and outs &there should exist definitive documentation - . &  SHORT DISCUSSIssages + # + #  JOB RUNS #from card decks #from card deck accessing keybatch #from keybatch disk (single and multiple) ON OF PROPOSED EQUIPMENT &pdp 11/44 &expected equipment configuration &word processing & - . &  GENERAL OFFICE AND CLER#system configurations #system control (pcl) &s e,lp e,cr a h c &stop - abort - reset #offline listings #paper chaICAL CONSIDERATIONS &filing &air conditioners, humidifiers, etc. &stocking of supplies &housekeeping &recycling &closing pnges (labels) #carriage control considerations #discussion of unique and unexpected job run problems #keeping track of pink rocedures &mailboxes &forms &bulletin boards &drawer assignments &time cards and time sheets &work schedule . / &  CHAjob request cards (date and initial) - . &  TIMESHARE #basic MECC MIRJE MERITSS login procedure IN OF CONSULTATION &hierarchial set-up of center and hours available &procedure to get students/faculty started . / &  FA#timeshare commands (nos) #differences between batch and timeshare #local vs permanent file concepts (primary) #xedit #fileMILIARITY WITH DOCUMENTATION &should know what is available and where it is )for all languages, machines and utilities -write manipulation #security of passwords and account numbers #fetch command #sign-up #popular statistical packages (isis) + ,ups -manuals  #  NOS COMMANDS #discussion of most used commands of nos operating system # + , #  TERMINALS (operation) #decwriters fy $short summary of job-ins,job-outs,tables    KEYPUNCHES $explaination of 026 and 029 punches $recognizing wrong char#teleray #terminet #tektronix 'ribbon storage and changing # + , #  MODEMS AND MUX #set-up of modem controls #baud racter set during read of cards $drum cards ! )   BRINGING UP EQUIPMENT  loading emulator ates #explaination of multiplexer * + #  MICROS #care of diskettes #booting #listings #sign-up #care and installation (character set differences (xmit button (description of A side and B side -what has direct link and what requires channel  of hardware #initializing diskettes #transfer of files #general set-up for peripherals &lines, modems,utilities #apples &d5 CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR '(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINXLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODE(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POIN "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR 'T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !XLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODECREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR '(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINXLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODE(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POIN6 (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODE7 06 1302 1 3 0 05 00 10 00 06 9200 9 2 0 04 00 05 50 06 9200 9 2 0 10 00 11 15 06 1302 1 3 0 06 30 07 30 06 1302 1 2 0 03 15 03 "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR ' 45 06 9200 9 2 0 04 15 04 45 06 9200 9 2 0 08 15 09 00 06 9200 9 2 0 09 00 11 30 06 9200 9 2 0 09 00 10 00 06 9200 9 2 0 07 30 XLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $09 00 06 9200 9 2 0 09 45 10 15 06 9200 9 3 0 11 30 12 30 06 9200 9 2 0 01 10 02 00 06 1401 1 2 0 01 00 02 00 06 1402 1 2 0 04 4T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODE "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR 'XLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINT (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX 13 1111 1 1 23 23 23 1 23 13 1111 1 1 23 23 23 1 23 12 1000 1 1 6 03 35 04 35 06 2102 2 1 0 08 30 09 00 06 9100 9 1 0 01 50 02 37 09 30 07 1402 1 2 0 11 00 11 10 07 1501 1 2 0 03 30 05 00 07 1501 1 2 0 10 00 10 30 07 1402 1 2 0 09 00 10 00 07 1402 1 2 0 10 309 1501 1 2 0 12 30 04 00 09 1501 1 2 0 09 00 12 00 09 1501 1 2 0 12 30 05 00 09 1501 1 2 0 07 30 11 30 09 1501 1 2 0 12 00 04 00 12 00 07 1402 1 2 0 02 30 03 30 07 1102 1 2 0 03 55 05 00 07 1402 1 2 0 08 00 10 00 08 1402 1 2 0 08 00 10 00 08 1402 1 2 0 100 09 1501 1 2 0 08 00 11 30 09 1501 1 2 0 12 00 05 00 09 1501 1 2 0 08 00 12 00 09 1501 1 2 0 01 00 05 00 09 1501 1 2 0 10 30 01 00 11 00 08 1402 1 2 0 01 00 04 00 08 1402 1 2 0 08 30 11 30 08 1402 1 2 0 01 00 05 00 08 1402 1 2 0 08 00 12 00 08 1402 1 2 0  00 09 1501 1 2 0 02 00 05 00 09 1501 1 2 0 07 30 12 00 09 1501 1 2 0 01 00 03 00 09 1501 1 2 0 04 30 05 00 09 1501 1 2 0 01 00 01 00 04 30 08 1501 1 2 0 04 30 05 00 08 1402 1 2 0 08 30 09 00 08 1402 1 2 0 10 00 12 00 08 1402 1 2 0 01 00 04 30 08 1402 1 2 05 00 09 1501 1 2 0 08 30 01 00 09 1501 1 2 0 02 00 05 00 09 1501 1 2 0 12 00 01 00 0 08 00 09 30 08 1402 1 2 0 11 00 12 00 08 1402 1 2 0 02 30 04 30 08 2102 2 1 0 03 30 05 00 08 1102 1 2 0 03 30 04 30 08 1102 1 2 0 09 00 10 35 05 10 06 1102 1 2 0 12 00 12 30 06 2102 2 1 0 03 30 04 00 06 1501 1 2 0 03 40 04 00 06 1501 1 2 0 03 30 05 00 06 9200 9 2 0 090 08 1402 1 2 0 08 00 09 45 08 1402 1 2 0 01 00 04 00 08 1402 1 2 0 08 30 12 30 08 1402 1 2 0 01 00 03 00 08 1102 1 2 0 04 00 04 00 10 45 06 2102 2 1 0 12 00 03 30 06 1501 1 3 0 04 30 05 00 07 9200 9 2 0 10 00 11 20 07 1501 1 2 0 12 00 02 00 07 1501 1 2 0  15 08 1402 1 2 0 08 00 12 00 09 1402 1 2 0 08 00 09 30 09 1402 1 2 0 10 30 01 00 09 1402 1 2 0 02 00 05 00 09 1402 1 2 0 08 00 03 15 05 00 07 2102 2 1 0 10 30 11 30 07 2102 2 1 0 03 00 03 30 07 1501 1 2 0 04 00 06 00 07 1501 1 2 0 11 30 12 15 07 1501 1 2 12 00 09 1402 1 2 0 08 00 10 00 09 1402 1 2 0 02 00 05 00 09 1402 1 2 0 10 00 12 30 09 1402 1 2 0 02 00 05 00 09 1402 1 2 0 08 30 12 45 01 45 0 12 00 09 1402 1 2 0 01 00 04 30 09 1402 1 2 0 08 30 01 00 09 1402 1 2 0 02 00 05 00 09 1402 1 2 0 08 00 11 30 09 1402 1 2 0 0107 1501 1 2 0 03 00 04 00 07 1501 1 2 0 03 15 06 30 07 1302 1 2 0 03 30 05 00 07 1302 1 2 0 02 15 04 00 07 1302 1 2 0 09 00 11 0 00 05 00 09 1402 1 2 0 08 00 09 00 09 2201 2 2 0 08 30 09 10 09 1402 1 2 0 02 00 05 00 09 1402 1 2 0 10 30 01 00 09 1402 1 2 0 0 07 1302 1 2 0 03 00 05 10 07 1302 1 2 0 08 30 10 00 07 1302 1 2 0 08 30 10 00 07 1302 1 2 0 11 30 01 00 07 1302 1 2 0 08 15 0110 30 01 00 09 1402 1 2 0 02 00 05 00 09 1501 1 2 0 08 00 11 30 09 1402 1 2 0 11 30 01 00 09 1501 1 2 0 02 00 05 00 09 1501 1 2  15 07 1302 1 2 0 03 30 04 30 07 5200 5 2 0 03 30 04 45 07 1402 1 2 0 09 30 11 45 07 1402 1 2 0 12 00 02 15 07 1102 1 2 0 08 30 0 07 30 12 00 8 1 03 56 04 56 01 1202 1 3 0 12 45 01 52 01 1202 1 3 0 03 00 04 00 01 1202 1 3 11 07 00 08 30 01 1201 1 3 19 10 10 12 00 01 1201 1 3 6 01 10 02 50 01 1201 1 3 0 09 30 10 00 01 1202 1 3 0 12 00 04 00 01 6201 6 3 15 11 45 12 10 01 1202 1 3 8 12 30 01 30 01 2101 2 1 0 03 00 04 30 01 1202 1 3 8 06 00 07 30 01 2101 2 1 4 08 30 10 30 01 1202 1 3 10 10 30 11 37 01 2101 2 1 0 12 00 01 00 01 1201 1 3 21 02 30 02 40 01 1202 1 3 7 03 00 03 30 01 6103 6 2 0 01 09 03 00 01 1202 1 3 0 10 00 11 50 01 2101 2 1 0 12 00 01 00 01 1202 1 3 5 01 00 02 00 01 1202 1 3 8 02 00 03 37 01 5101 5 1 5 05 15 07 00 01 2101 2 1 10 09 30 12 30 01 5101 5 1 0 05 30 06 00 01 5101 5 12 5101 5 1 0 09 45 10 00 12 5101 5 1 0 01 00 01 30 12 1201 1 3 0 03 30 03 45 12 5101 5 1 0 04 30 05 30 12 6201 6 2 0 05 15 05 41 10 08 15 09 30 01 2101 2 1 4 09 30 11 11 01 1203 1 1 3 11 30 12 30 01 5101 5 1 0 12 30 01 00 01 2101 2 1 26 05 00 06 30 01 1200 12 1101 1 3 0 11 00 12 00 12 1102 1 3 0 07 00 07 45 12 5101 5 1 0 10 00 11 00 12 1201 1 3 0 08 30 09 30 12 1201 1 3 0 11 30 122 1 3 2 08 30 10 00 01 2101 2 1 2 10 00 11 45 01 1202 1 3 3 01 00 02 20 01 1202 1 3 6 03 00 03 45 01 5101 5 1 0 04 30 05 00 01 1 00 12 5101 5 1 0 03 30 04 00 12 5101 5 1 0 08 00 08 30 12 6202 6 2 0 12 00 12 30 12 1102 1 3 0 08 30 10 30 12 5101 5 1 0 01 00 203 02 00 12 6201 6 2 0 02 20 02 35 12 1204 1 3 0 06 15 07 15 12 5101 5 1 0 07 00 09 00 12 5101 5 1 0 08 45 09 45 12 5101 5 1 0 03 15 04 00 12 5101 5 1 0 02 00 05 00 12 1201 1 3 0 09 30 12 00 12 5101 5 1 0 12 00 01 00 12 5101 5 1 0 04 30 05 00 12 1201 1 3 0 08 00 09 00 12 9100 9 2 0 01 00 02 15 12 6202 6 2 0 06 30 07 25 12 1201 1 3 0 09 30 12 00 12 5101 5 1 0 01 15 01 45 12 1101 1 3 0 02 30 03 30 12 5101 5 1 0 09 00 10 00 12 1101 1 3 0 10 00 11 00 12 1202 1 3 0 12 00 01 10 12 1201 1 3 0 09 00 11 00 11 1103 1 1 9 300 1 3 18 09 20 09 40 01 5101 5 1 3 11 30 01 00 01 1201 1 3 0 02 15 02 21 01 1201 1 3 0 03 30 05 15 01 1201 1 3 18 08 20 09 50 03 15 04 00 08 2201 2 3 0 09 15 01 00 08 1202 1 3 0 03 30 05 00 08 1202 1 3 0 10 00 12 00 08 1201 1 3 0 03 00 03 50 08 5101 5 3 01 1203 1 3 0 11 45 12 17 01 1202 1 3 16 02 45 04 10 01 1203 1 3 4 04 10 04 45 01 6103 6 2 0 06 30 08 30 01 1202 1 3 5 09 00 10 0 01 30 04 00 00 01 1202 1 3 2 01 45 02 15 01 6201 6 3 15 04 00 04 40 01 1202 1 3 6 08 30 09 30 01 6103 6 2 0 12 30 03 11 01 1201 1 3 15 02 0008 5101 5 1 0 02 00 03 00 09 1402 1 2 0 09 30 11 00 09 1202 1 3 0 08 00 09 05 09 1202 1 3 0 11 00 12 15 09 1202 1 3 0 02 00 03 3 05 00 01 1201 1 3 0 11 00 12 00 01 1201 1 3 0 02 40 03 00 01 2101 2 1 4 09 30 11 00 01 2101 2 1 10 08 00 09 30 01 6104 6 3 0 070 09 1402 1 2 0 08 00 08 35 09 1202 1 3 0 10 00 12 00 09 5101 5 1 0 08 30 12 00 09 5101 5 1 0 08 30 09 00 09 2201 2 3 0 09 30 12 30 08 00 01 1202 1 3 0 09 00 10 00 01 6103 6 2 4 01 50 03 00 04 1105 1 1 6 02 34 03 45 06 6103 6 2 0 04 00 11 50 06 2200 2 1 0  00 09 2201 2 3 0 09 30 02 00 09 5101 5 1 0 08 15 08 30 09 2201 2 3 0 09 15 09 30 09 5101 5 1 0 10 00 11 00 09 5101 5 1 0 08 30 12 10 01 10 06 6103 6 2 0 03 00 12 00 06 6103 6 2 0 02 00 12 30 06 6103 6 2 0 01 30 11 00 06 6103 6 2 0 08 00 08 45 06 6103 6 2 10 00 09 5101 5 1 0 08 30 10 00 09 1402 1 2 0 02 30 04 15 09 5101 5 1 0 09 30 10 30 09 1402 1 2 0 05 30 06 00 0 05 15 06 00 06 6103 6 2 0 02 00 10 40 06 1402 1 2 0 10 30 11 00 06 1402 1 3 0 08 00 08 10 06 6103 6 2 0 12 15 05 00 06 9100 9 1 0 12 05 01 00 06 6103 6 2 0 12 00 02 00 06 1201 1 3 0 02 30 03 30 07 2200 2 3 0 01 00 02 00 07 2200 2 3 0 02 00 05 10 07 1201 1 3 0 08 00 09 30 07 2200 2 3 0 02 45 03 30 07 1201 1 3 0 03 30 05 00 07 2200 2 3 0 09 00 10 30 07 2200 2 3 0 02 00 03 30 07 2200 2 3 0 10 00 12 30 07 1402 1 2 0 10 30 11 15 07 1201 1 3 0 02 00 04 30 07 2200 2 3 0 09 00 12 20 07 1201 1 3 0 02 00 04 30 07 1201 1 3 0 08 00 10 00 07 1201 1 3 0 02 00 02 40 07 2200 2 3 0 03 30 05 00 07 2200 2 3 0 09 00 10 30 07 2200 2 3 0 10 00 01 00 07 1201 1 3 0 091 3 8 07 30 09 45 01 5101 5 1 50 10 30 12 00 01 5101 5 1 0 02 30 03 00 01 5101 5 1 10 07 30 08 40 01 2101 2 1 3 08 00 09 00 01 1 30 11 30 07 2200 2 3 0 12 00 02 30 07 2200 2 3 0 01 00 05 00 07 1201 1 3 0 09 00 12 00 08 2201 2 3 0 02 00 05 00 08 2201 2 3 0 : ՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ  DRAWER  FՃtՃՃ&.4"zxlt ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂՄ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅjPROGRAMjohns; TYPE POINTER=^johns; johns=RECORD records:PACKED ARRAY[1..40]; title:PACKED ARRAY[1..40]; END; { OF REC>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇťORD } ˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`ȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ ՍؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏU; * is badTɡTTšTTTɡá5Block   is still badLB4~  2L,$dd"!h#d%((&*(*, -/:.f00123-4D3475j8h999:@>t?":@@NAn7ҦEJFiler: locks   thru   are still bad Mark themء (may remove files!) ? Get, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix YˡءATT-M ȡ/-TM ̂ʂʂĄ TM-"TT-M Má d, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55C BAD.xxxxx.BADŜSʂġ. SܲnS0ܲnSSS-M T٧-TM ɡTT՚~لt>@VbX0hb8v6\T*0Hr|" TM-#0 -  markedN%w(j5%Crunch Pdd:M4~  2L,$dd"!h#d%((&*(*, -/:.f00123-4D3475j8h999:@>t?":@@NAn7ҦEJFiler: <ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQ-M M ȡ-M -M ńMoving  SYSTEM.PASCAL??-ՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc M ܕۧUšUš܂܂ۂ ȡi02"ˡERead error, rel  , abs  ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁ 6܂܂ۂ ȡi02"ˡEWrite error, rel ݕ , abs ՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ 6ۂáݚނ0 -? : crunchedߡ Please re-boot) Ղ7ՂF OՂwՂGIVE X COORDINATEՂ ՂGIVE Y COORDINATE:U `}s`6'5),, á%$&,Qá:075ҦEJFiler: Ղж ՂՂՂՃ. Ճ?8ՃfFՃtՃՃ&.4"zxltGet, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁ, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55ՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ$!^*ZV)R0N1J2F5B6>3:BZ2Xqmi":sH rlr(HR@0Hr|" < CLEARSCR(HEADING (FIELDS (DATABASE(TITLE &FIELD &PAGE "TEST !KIND "ELEMENTS!Program try (input,output) ;  var a:char ; i:integer; j:integer ;  begin !for j := 0 to 63 do #begin ! readln (i); $write(chr(i)) ; #end  end.  Get, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55-M ,YˡD# OF BLOCKS ?  ɡ BAD # BLOCKSNew vovO^ nB= TEST (ANSWER #PROGRAMinventory; TYPE POINTER=^inventory; inventory=RECORD partno:INTEGER; name:PACKED ARRAY[1..34]; address:PACKED ARRAY[1..34]; cost:REAL; cost:PACKED ARRAY[1..50]; end:PACKED ARRAY[1..34]; END; { OF RECORD } CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINT (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !TEST (ANSWER #> T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINYHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POIN !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !YHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINYHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $? (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINYHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINCREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINYHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B (X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POIN !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !T (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !YHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY  !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !@ O^ re-entry to existing batch $description of 3 methods of search (unique (mask (offset $brief description of update and veri+*AV4fy $short summary of job-ins,job-outs,tables    KEYPUNCHES $explaination of 026 and 029 punches $recognizing wrong character set during read of cards $drum cards ! )   BRINGING UP EQUIPMENT  loading emulator (character set differences (xmit button (description of A side and B side -what has direct link and what requires channel   (   SHUTDOWN PROCEDURE #difference between hard and soft shutdown #tape backup  ' (   TELEPHONE OPERATION #forward calls to other extension #pickup call #hold one call--pick up another #call waiting signal #trunk queing (batch room) #call forwarding #operation of switch hook #description of tones and their meanings #system status #help line #how to take meT (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !LINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX *************************************  TOPICS FOR STUDENT TRAINING  *************************************     KEYBATCH (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !SHOOT (GRAPHTEX(A !B DATA ENTRY AND EQUIPMENT $general key to disk description $overview of supervisor options (inc:tape save, shutdown, batch del !C !I !J !K !S "NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !ete $description of screen layout (field type indicator (column indicator (auto (field number (mode (message (format levYHWINDOW !DISSCR 'XLWINDOW!YLWINDOW !DRAWSCR 'DUMMY $el (record count $description of key functions (multipunch (hex) (field keys (char. keys (field complete (reset (rtn (record keys (auto (insert (correct (delete (suspend (end (accept $description of startup for new batch $explaination ofA job request cards (date and initial) - . &  TIMESHARE #basic MECC MIRJE MERITSS login procedure IN OF CONSULTATION &hierarchial set-up of center and hours available &procedure to get students/faculty started . / &  FA#timeshare commands (nos) #differences between batch and timeshare #local vs permanent file concepts (primary) #xedit #fileMILIARITY WITH DOCUMENTATION &should know what is available and where it is )for all languages, machines and utilities -write manipulation #security of passwords and account numbers #fetch command #sign-up #popular statistical packages (isis) + ,ups -manuals  #  NOS COMMANDS #discussion of most used commands of nos operating system # + , #  TERMINALS (operation) #decwriters #teleray #terminet #tektronix 'ribbon storage and changing # + , #  MODEMS AND MUX #set-up of modem controls #baud rO^ates #explaination of multiplexer * + #  MICROS #care of diskettes #booting #listings #sign-up #care and installation -*A9mof hardware #initializing diskettes #transfer of files #general set-up for peripherals &lines, modems,utilities #apples &discussion &manuals are excellent > self-study #terak &demonstration of editor &description of capabilities & 0 1 &  FAMILIARITY WITH COMPUTER CENTER USER GUIDE &excellent source of information &should be studied in detail - . &  STUDENT RUN PRODUCTION JOBS &should know ins and outs &there should exist definitive documentation - . &  SHORT DISCUSSIssages + # + #  JOB RUNS #from card decks #from card deck accessing keybatch #from keybatch disk (single and multiple) ON OF PROPOSED EQUIPMENT &pdp 11/44 &expected equipment configuration &word processing & - . &  GENERAL OFFICE AND CLER#system configurations #system control (pcl) &s e,lp e,cr a h c &stop - abort - reset #offline listings #paper chaICAL CONSIDERATIONS &filing &air conditioners, humidifiers, etc. &stocking of supplies &housekeeping &recycling &closing pnges (labels) #carriage control considerations #discussion of unique and unexpected job run problems #keeping track of pink rocedures &mailboxes &forms &bulletin boards &drawer assignments &time cards and time sheets &work schedule . / &  CHAB  of job-ins,job-outs,tables $ $  TIMESHARE  (WED. 3-5 PM ANDY & PAM) #basic MECC MIRJE MERITSS login procedure #timeshare commands (nos) #differences between batch and timeshare #local vs permanent file concepts (primary) #xedit #file manipulati*************************************  TOPICS FOR STUDENT TRAINING 09/12/80  *****************************on #security of passwords and account numbers #fetch command #sign-up #popular statistical packages (isis)    TELEPHON********     GENERAL INTRODUCTION  (WED. 10-11 AM ANDY) $goals of computer center $goals of training session $compE OPERATION  (THUR. 8-10 AM PAM & WANDA) #forward calls to other extension #pickup call #hold one call--pick up another #cuter center user's guide $familiarity with documentation )should know what is available and where it is +for all languages, mall waiting signal #trunk queing (batch room) #call forwarding #operation of switch hook achines and utilities + writeups /manuals / /  BRINGING UP EQUIPMENT  (WED. 11-12 LYNN)  loading emulator (from c#description of tones and their meanings #system status #help line #how to take messages #evening & weekend direct line # ards and disk) (character set differences (xmit button (description of A side and B side -what has direct link and what requ#  MICROS  (THUR. 10-12 AM TONY,PAM & WANDA) #care of diskettes #booting #listings #sign-up #care and installation of hires channel    KEYBATCH DATA ENTRY AND EQUIPMENT  (WED. 1-3 PM LYNN & TONY) $general key to disk description $video taardware #initializing diskettes #transfer of files #general set-up for peripherals &lines, modems,utilities #apples &discupe on use of keybatch $overview of supervisor options (inc:tape save, shutdown, batch delete $description of screen layout (ssion &manuals are excellent > self-study #terak &demonstration of editor &description of capabilities & &  JOB RUNS  (Tfield type indicator (column indicator (auto (field number (mode (message (format level (record count HUR. 1-3 PM TONY) &from card decks &from card deck accessing keybatch &from keybatch disk (single and multiple runs) &syste$description of key functions (multipunch (hex) (field keys (char. keys (field complete (reset (rtn (record keys (auto m configurations &system control (pcl) +s e,lp e,cr a h c  stop - abort - reset &off-line listings &paper c(insert (correct (delete (suspend (end (accept $description of startup for new batch $explaination of re-entry to existhanges (lables,forms) &carriage control considerations &discussion of unique and unexpected job run problems &keeping track ing batch $description of 3 methods of search (unique (mask (offset $brief description of update and verify $short summaryof pink job request cards (date and initial) & &  KEYPUNCHES !(THUR. 3-4 PM TONY & PAM) C e &procedure to get students/faculty started . / &  ******************************* N O T E S *****************************$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`**   all staff picnic at Andy Lopez's (1102 Park Lane) $at 5:30 PM Friday Sept. 26, 1980 ȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ ՍؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏU$explaination of 026 and 029 punches $recognizing wrong character set during read of cards $drum cards  video tape $    TERMINALS  (THUR. 3-4 PM PAM & WANDA) $decwriters $teleray $terminet $tektronix $teletype (ribbon storage and changing ( (  SHUTDOWN PROCEDURE  (THRU. 4-5 PM PAM & WANDA) #difference between hard and soft shutdown #tape backup ( (  NOS COMMANDS  (FRI. 8-10 AM ANDY & LYNN) #discussion of most used commands of nos operating system # #  STUDENT RUN PRODUC DRAWER TION JOBS  (FRI. 10-11 LYNN & TONY) &minitext &circount )should know ins and outs )documentation , #  MODEMS AND MUX   ՃiFՃwՃՃ&4:(~ r z(FRI. 11-12 PM ANDY) #set-up of modem controls #baud rates #explaination of multiplexer # #  GENERAL OFFICE AND CLERICAL TˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁCONSIDERATIONS  (FRI. 1-3 PM PAM & WANDA) &filing &air conditioners, humidifiers, etc. &stocking of supplies &housekeepingՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$W &recycling &closing procedures &mailboxes &forms &bulletin boards &drawer assignments &time cards and time sheets Մ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj&work schedule * &  SHORT DISCUSSION OF NEW PROPOSED EQUIPMENT  (FRI. 3-4 PM ANDY) &pdp 11/44 &expected equipment config>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇťuration &word processing / &  CHAIN OF CONSULTATION  (FRI. 3-4 PM ANDY) &hierarchial set-up of center and hours availablˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉD ՂĶ ՂՂՂՃՃ1 ՃB8ՃiFՃwՃՃ&4:(~ r zՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐTˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ ՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$W<ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQ DRAWER ՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc  ՃVՃbՃi&,2 xvjr  ՀTˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁ ՀTˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$WՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$Wˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ Մ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj<ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQ>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇťՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc ˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉ ՀTˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ`ՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$WȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ Ս,.GՂ+Ղ: GՂkՂ|GIVE X COORDINATEՂ ՂGIVE Y COORDINATEؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏUE  DRAWER ՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc  Ճ`Ճg&,2pnbjc  ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁ ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ)Ղ8GՂiՂzGIVE X COORDINATEՂ ՂGIVE Y COORDINATEՂՄ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj ՂՂՂՃ Ճ1ՃFFՃTՃ`Ճg&,2pnbjc >ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇť ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ` DRAWER ȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ Ս ՃrՃy&.4rpdlc ,.GՂ+Ղ: GՂkՂ|GIVE X COORDINATEՂ ՂGIVE Y COORDINATEؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏUՂĶ ՂՂՂՃ" Ճ3ՃHFՃVՃbՃi&,2 xvjr ՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐ ՀTˡՀՀٶՀՀՁՁ*Ձ=ՁAՁKՁ_ՁqՁuՁՁՁˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ ՁՁՁՁkՁaՁՁՁՁIՁ?ՂT7BY0u Kiu-"$W<ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQF ՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ)Ղ8GՂiՂzGIVE X COORDINATEՂ ՂGIVE Y COORDINATEՂՄ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj ՂՂՂՃ Ճ18ՃXFՃfՃrՃy&.4rpdlc >ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇť ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ` DRAWER ȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ Ս ؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏUՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ Մ(ǀ%ġՄJՄPՄaՄpՄ|Մ@Մá ՅՅ+Յ; ՅRՅj<ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQ>ՆUá Ն}ՆՆ:ՆՆ Ն?ՇՇ(ՇMՇxՇjՇťՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc ˡՈǀ% Ո>,ՈثՈՈ٫ Ոث ՈՉ Չl۫ Չګ Չ٫ ՉثՉ ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁ$Պ"?ՊDՊSՊ_ȡՊzՊՊՊՊέ7 b Ջ2ՋAՋ` ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂG ՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂTRY (A "I !J !CREATESC(I !SELECTDR(I !SELECTDI(I !ERASE (I !SETPEN (PCOLOR %ATXY ȄĄȄNՋ:Ռ ڤ8Ռ9ڤ(ՌiڤڤB4&ՌՌ­ Սٕ Ս(X !Y !SETWINDO(LEFT !RIGHT !BOTTOM !TOP !STARTPLO(DUMMY $I !POINؕՍˡ ՎՎ ˡ~Վ4ɡ7ՎNՎVՎՎՎՏ >Տš5Տ0Տ8ՏUT (X !Y !TEMPY !WINDOW (WHEREX !TEMPY !WHEREY !SLOPE #DX !DY !ՏՏՏՏˡՏɡ>ՏՐˡ(ՐՐ!Ր?ՐՐՐEՐš<ՐՐLINE (X !Y !TRUEY !DESTY !SX !JUNK !SY !WX !WY !BOX ˡ(ՐՐՑՑPՑUՑhՑo@  N ՑՑՑ ՑՑՑ Ւ (WIDTH !HEIGHT !I !THICK !SPACING !LX !LY !WHATDO (START (DRAWER (MODE<ՒVȄĄȄˍ.ՒՒˍˍՓ Փ9 ՓՓޫ Փݫ Փ Ք:ՔQ "TEST "A !B !NEWPLACE$PEN %WHEREX !WHEREY !XHWINDOW !YHWINDOW!DISSCR 'ՔeՔuՔȡXՔՔՔۂ Քڕ Ք Օ Օ؂Օ1ؕՕK؏Օl؏ՕՕc XLWINDOW !YLWINDOW !DRAWSCR 'DUMMY $ ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁՁՁkՁaՁՁՁՁIՁ?Ղ T7BY0u Kiu-"$W,.GՂTRY (A "I !J !) Ղ7ՂF OՂwՂGIVE X COORDINATEՂ ՂGIVE Y COORDINATEՂж ՂՂՂՃ. Ճ?8ՃfFՃtՃՃ&.4"zxlt ՀTˡՀՀ׶ՀՀՁՁ(Ձ;Ձ?ՁIՁ]ՁoՁsՁ}ՁՁՁՁH ɡ ٕٕ  ث ٕ٫  á ޶  z)'+Ʉ á C ;   d V-á-á'* "--á -)ö -*ˡ   á:;4z fá:;   3Lǀ zL-P.-'+)./- --Lá2-Vá%-Tá-Cá -Ná- š 2á򥁿Lá}ŧ(˄ȍ'áPP .- --PP/ 0zB áL/- (Invalid delim ȥ  ÄLd9.۪PڪP0.P [All]iter. -E.- á.E)Eń  EE_-*áBC<DBFDFȡ,Eȡ[ ]ءPáDEDEEDD-ˡ E-EE-EčEġ.Your pattern is too long آEآ R1L$ۂ Lۂ áۂLۂá۶"H b2TRY (A "I !J !'+()(á8 @3Lǀ zL[LLaA2LL 5á >   ؂  (á   2  X65Y ġ? L ˡ     6f p75` š=L ˡ  ߹ ߳|߹O"i#e,<á"#W S!O$Já<,>,,") 6lv8,>á874)z  á 46EC_]Kcٕ ,-˧-!˄ -!-!ámÄ L ٕ܄Z:z')+Ʉ zzöɄI ʀ $ \\0M Ed: Adjust Blend Copy Delete Find Go Insert Jump Page Quit Replace Set XchngP!Rۂ+'(@ۂ(áݧۂ ۂ'á ܕ^l --߭zá  á   ߹kۥ ۧ ۂڞڂ)ˡ  !Uقč~ zxt p lhd GC>*<~ ,  8 ,v jZHx b ݂ɡ݂ەݕ 5 LZ *!!`"#$$:%\&'&^''v(~|>\0M Ed: Adjust Blend Copy Delete Find Go Insert Jump Page Quit Replace Set XchngPڂق؞ڂق؞-/š -0--ۍۡ --߭zá  á   ߹kRepeatfactor > 10,000-߭` ꂾ)á) -@~ zxt p lhd GC aborts, 'R' replaces, ' ' doesn't<--á -R˧-r~á ڧ"á ǀ ġۡڶ>ڧ˄KڶPá4ڶP˄xšWxš8Buffer full. Aborting Replace  xxɡ x8#ڶNáڶNá lڳ aA, >پˡ xxˡ x직x療x >=̀̀ẁq̀̀á Find:<% RepپعE٢I٢<٢-٢ ٢ LA6)x%lace /from/to/ :<./0 ̀-z1 á81ç çyt̀ "  0,0" % ȧل09ʀ̀١!ނ߫ á=,<á  ٓ(ʀńPattern not in the fileNo old pattern. ٪P&%ERROR: " Please press to continue.% ááJ tr ܕܕ܂( ) +'((áUEx~P", * @ f P  D"ۊ)HۊܳHaFá) 򧁾.ç Ä Äە sŧsrȍ: á܂)D!٪P what marker? - ئ Щ,- V,Vȡ,-,,,(r r)á7á '낾)ç낾uÍ ᓡ   t% . Type 1Error # . Type  á   ܂삧ݫ 5h-l)ڂ ٦P ۧ)ۧS  is badSST  bad blocks{ 1%Zero directory of$Pd á3پš!   پ kۧ$á/پȡ ٦P 6ۧ)ˡ0Pd0&"d-ˡ2Destroy ?: ?  YˡDuplicate directory ?  ,,Yá  QPپۿ ۧÚxV  šۊ)HۊܳHaF,XáN,-ˡs-M ħ-M 'ȄX-M  blocks ?  ,,Xá,Yá D!٪P what marker? - ئ Щ,- V,Vȡ,-,,,-M ,YˡD# of blocks ?  ɡ Bad # blocksNew volume name ? P t% . Type 1Error # . Type  á    :á ō6d  CM  : correct ? ȭ"ƁƂ<   š"á  á  á :Ɓ Yá.0"d: zeroed l2777/UEx~P", * @ f P  D"ۊ)HۊܳHaF:4%E/Date set: <1..31>--<00..99> OR P'Cá No current dateD!٪P what marker? - ئ Щ,- V,Vȡ,-,,,W Today is C -tC-C   New date ? P <١1ۥ č&\7ȡ'eڤġeڤeڤ؂  t% . Type 1Error # . Type  á   ħɄ ؂ HZګ낾)uء-ŧ낾u˄낾)˄ ttá"ƁƂ<   š"á  á  á :ƁK TM-#0 -  markedN%w(j5%Crunch Pdd:M4~  2L,$dd"!h#d%((&*(*, -/:.f00123-4D3475j8h999:@>t?":@@NAn7ҦEJFiler: cSyS 0SSōSŧS Ʉ CS4ń? -M M ȡ-M -M ńMoving  SYSTEM.PASCAL??- SSȡ+SAĥSZȄSSAaSS?S Sȡ#tS? CS SS4F7M ܕۧUšUš܂܂ۂ ȡi02"ˡERead error, rel  , abs SyS 0SScȫ77 C Sd?- 00á-M C0 - New da 6܂܂ۂ ȡi02"ˡEWrite error, rel ݕ , abs te is C -tC-C  F3%Examine blocks on P 6ۂáݚނ0 -? : crunchedߡ Please re-bootddBlock number-range ?   1  ɡۀɡ ܫS:U `}s`6'5),, á%$&,Qá:075ҦEJFiler: Sܧ-M ɡ)Risk the directory ?  YˡT-M ̂Tʂȡ-TM ̂ʂʂĄbؓ%File(sGet, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix) endangered:ʂ ʂʂ ʂ TTء&Try to fix them ?  Yˡ, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55ܫT̂TʂȡBlock T 0ƁTƁ0ƁT"á 0T"Ɓ  may be ok$!^*ZV)R0N1J2F5B6>3:BZ2Xqmi":sH rlr(HR@0Hr|" * is badTɡTTšTTTɡá5Block   is still badLB4~  2L,$dd"!h#d%((&*(*, -/:.f00123-4D3475j8h999:@>t?":@@NAn7ҦEJFiler: locks   thru   are still bad Mark themء (may remove files!) ? Get, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix YˡءATT-M ȡ/-TM ̂ʂʂĄ TM-"TT-M Má d, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55C BAD.xxxxx.BADŜSʂġ. SܲnS0ܲnSSS-M T٧-TM ɡTT՚~لt>@VbX0hb8v6\T*0Hr|" L Get, Save, List, Change, Transfer, Remove, Fast, New, Date, ?, QuitP7,?áQEHFiler: Bad-blks, Ext-dir, Krunch, Make, Prefix, Vols, Xamine, Zero, WhatP7,x55EP,i+++ !|5$!5 55