IMD 1.17: 27/06/2012 8:38:04 UCSD PASCAL SYSTEM VII.0 DISK 1/6 PART NUMBER 61-0011-001 REV A SYSTEM DISK MANUFACTURED ON 6-NOV-80  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ D(ŗ%!ŗkh HBf     B d 7×h3 7 ?IO ERROR WHILE BOOTING? 7 ?NOT ENOUGH CORE TO BOOT?   e    Ӈ\ߕ vߕ 7* SYSTEM.PASCAL? w7SYSTEM.8510.QX? @Aw  `! mG~d!~  \ZD C& H&  0  EL  ~e  HEe>:C h4 <4 Ca a ae @e 5a , p`Vp`X  _~U@pe &  %C e U&f&  BA!A p]]5 AFF   @5 \ 5Tf@f 9a  aW,n`pC5 D  ! A!U  C`C!C  U U5w \E ŋ % 0 W P @ 0 DP 0  0  w (P 0 w 2Ŋw ( C! @ D~̋   wwDDԤ  Ӌ5  Q ~@ `U P~e~E w   l9ae9 wVP H eW 7 ?YOU DON'T HAVE A  ߋt_v @ @ 0  % % h 1  "P 0  0 ڇ׭P Z  PASCAL1LSYSTEM.8510.QX\> SYSTEM.PASCALb[>CSYSTEM.CHARSET["C_ SYSTEM.FILER@[$, HU ,04@888E?? ?????"9&9K8K: ;6;L;C:9$D=*=>??CD8D0EZE.P  ?]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&'($*! /efAA,"<w eeee e  e e& f   EezN EE7- 7 &  G 6E7, 6 ?  w pr@$@$@$@" EB~f r&z%% 7 (\7 (``WtB &E7 5@|<7w {7yw 7 psw mw g- aBE B<<  wN EC~ B~Uf rfVpfz  eN @_ azE ~ ~UV3T E@ JD B94T?4 E@" "-l8@ 6NE LU@t7`.~BE B @Wtw`& B~<z& & E7? ~7E@U@  E7 w wU &    N\Et& B~ & > ~UB~  Ձ@  a a!~F@  B~  *7 7 7 zv x7 vEl7 h 7 E7 tv wU W r7 $7 "~<E `E `EՀW @p@ `E e `&& `& ` ^ E@ &?  w U@w > 6 & h ^7 X E e `&EՀ~<  7Z   ҂ ~< E e ` EF @~w 2 ?*  "U@  wE 7 wv FRX\`&    @ ` G7vz   7H 7Z 6W w{Z N B F J ^ f j n x |  " 6 B D J f 2  4 ^ v ~   6 j | h*06NV\bz <6 E E7 ~<& EE Jd`n  B@B <C``& ΟX @ e E`E``B~8A Ew0w.Dw$ &  Z&X( &7 |v7 n|7 `|7 T 7 < 6 '((@`@`( (+m ]   P~P~eeNPP  \ = "  \m\  W  m ef5`\_e w5 5@ W  ~~e<ee``!~ e C~C~ %< C~\ɋE 5\\\f F^T2&,FR,: f6 C~ceί%@ eAp6% "1, 1,1,^  %W Y#w (Q&vI  >7 7(w& EFHJKABCDWX][f@@ N Z[  ^A %^A&Daef ¥_09E AZ  U7MwG7 % @`?R wLVxx|xt@ wU :: C  f ee $ $ $ $ @A eeee >eJ< K E7 w z2@t  w Et@_7   O 0E]``&& `  E e @a&&6E e @a&!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTOE e @a \d<Z@@`@`$fH@7 `e B~  B~< _ ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN7@` dd&`f&d&b&  m ef )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD - ɋ e  rfwBC % e 7d,\ Aɋ BJ@ BREPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR m8~@ Bm*~@ Bm~     WHILE WITH 7 <)& @  z7 <)7 )7 )7 &7 *7 &7 ' I?zr& 7h  AF eA -Bl: \.<$WFl7 ,,\ vw *< R'(((@ BCzEG@HPtJ$LM nO(k<   mAɋF! &ffD e w5 wDe`<nC<QRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &  tʕ U Q~ʕ \׌UE׌x׌"  e w d    X N wK w: 7 ,* $? U@ _E7 wf @7 6_ 8 E7 _ 7 v7 7 7 P 7"U?  E7 PRTV + wU  E@ w h07  w w N!.7 eJww  U @e @wxBEfEP U@ _E7 _ ]p |ʋD~ G~ 5E~ E~e  e  ` e  |$$ K wU  J _&ZT| ** wU &f&f7 .U   02 -/ ->%$  -~>%$t t n d ^_TR HDɝ^& _E7 .C DE!:7  7aehD A   aw7 28*7 2E 7 _$7  E7 V&U@ % E7 e:wXP@P7n@eI70@wnM)w\ 7 , ßz 5U$ ez\& Dr)&&\   5@5@7 X&'&'0'0' )'''' )& )& )& )&$'(:' )&J  E     7 7  @  27 !ׯ+U E ` D' )D'x'f&\  \& \\r1@\[?\ ew & ?U?*@ڪAD    ͋D 5|w 5B N  5 , W#D  7W ΁?Zw  C %     @  f&\   B -  e \z\D'U `  xZ7Wm7 P ]Dw=7w Zl Fw bIw   D5H5   :@ S~ e&-"wn.5) 5|w  w tR <w H<  Alw&f65t w E   e@ׇEU 77 :  .-& pU`E@ wHw .:" ʵm H& W Y#w H^E. U w w  UEw  BFU@ % eC ~% C ``` ezLN w Zć  tw  h!w  UOw p w 먇  <w  0w `ʽ W Y#wwU  E@ e ]& 7 7 7ߐ2 7  | t ~"   =@f&ysE[\pCf&f&\% a @w   6 6 &  f 6A  v  6N\z\\\ N A f C %C B    \  w  D& &&@7 &)D& && 6  A7 ^'*'&**'*&"*** )J* )& )& )& )& )) ɡOšOɡšF  LS#  , P# e\ \S\ e& @7 &:*)e\z*f& \:יc&>X4%]@& & &  , I#  l,á*6!F *STK OFLOW*תPFF+ & & D&&D&& @%7 r'*  IA e e@ e& & & & & Dˡ 6!:9 "8?á <צ Exec err #   á,&&e #@  @6 7 'J+6 6 #?%-0 @ ׳ ,(+, ,ábÍ:L]L?ƪ@ \fEA#& e@ & f& f& f7 '&X, ff w +á -ˡ.$  š t@..  &@& , $$&ˡ . .6% .&$&!F:F FˡFFD'%ɡšɡš  P&:+:azȄaA:) Type צ to continue) 8>`  PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD & ,Í ˫hp(ުPצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA f C_  fW & @&&&&7 f( )<)p((f('&v( )&'&&'V(&\( )(e\\;@\ \N @     d˯7 H ȡ   צ0H" dÍÍˡ 퓄 Ä퓡  dÄÍ" ġ  *@#ٕš ګ۫ š۫ ګ,0   ˄"ɡ  dá  dá C#C˄ C    22š*á ?צ:22ȡá;2á!2ȡ5252š[ץQɫ  ȡ 0  0ȡ? ȡ  ġ  á22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z ġMáš6 삫뻥 d #( / 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEÍáɡ 럚肚X ū  J.BACKׯ7צ.INFO$.GRAFׯצ.FOTO8 <!~ áš  h ! ! Ä & ! !ë  ÄÄȄĄMȄt  Ä  1  !š Í 7ÄU iȡF ōɍ ō ȍ  dč "쓡ëǐɄ:6ń~66! á ~ 쓡ת!!9 D*~ éÍ~  , Ą ˄˥ń á   uš  gá /Ä쓡"á  :"ë á 쓡ת$+  ɡ"á a˄ Ꟛšq#ń? z 0 ń Ȅ! ~ת     n Í`~W ˡ!  ,ȫ$* "ë넡, ~ á9 铡/! !!1ˡ) ! 76*Í2~ š˄ `+ \ ( 7( :VQ28˄šá  d1    á sá# Ȅ 隹Ká/Ä   áš蕿@šQȡ2 šx á1 š2    :X fE6!~?8FצPut in :P?FP'Ǡá*EEšš$ !邚邫镫ë퓡h  ! "ˡ ɡ! E   !#E$ á"ˡ"& E ##& ! "ˡf á3 á+á! "ˡ Eá +6+6ˡ6á  T4P"hvf J.*L +Uz  Oš *š .Tf* zF d2:X fE6!~?8FצPut in :P?  áá ~צ/13:!      4T h ɡ 逫-á-32768ת Pġ>o0   šˡ 퓄 Ä퓡w 0ń0ˡ oɡ` Nȡš š   ɍL  "ˡ.ˡ   d쓡 뾿  .dá0á-  21šá. Ą ɡ 낫š ꓡ2  Q l>š 쾿  š땫ĚL삫Ú š a .Tá " *áá0á"á61 ɚ l š +-Í-ëzV 0á$-á š áš  šš!邚邫镫ë퓡S z kO  ȡ*ń ! "ˡ! "ˡ "ˡáˡȄ4šáRתPńȄ ,ń.  %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  ( :*צ dup dir entry(צfile already open(צ file not open(צbad input format(r8FNo debugger in systemתP8F6^.)G:!ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.( SYSTEM.WRK. $*(J '%Ҧ74 text&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8String overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYC %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  (٢ š٢ ٢٢ 4*ƁV`tDoo odoo'zrצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stacḱʁʁʁצ*SYSTEM.MISCINFOP*"áO* ?́*́ʁʁʁʁʁʁ overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(ʁ%ʁ% t*&*n تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMצSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-PILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤFP'Ǡá*EEE   !#E$ á"ˡ"com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not found& E ##&Eá +6+6ˡ6á  T4ת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(r8FNo user programתP8F0#^.)G:!ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.( SYSTEM.WRK. $*(J '%Ҧ74 text&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8String overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYC  ;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTexulתצAug Sepת צOct Novת צDec ???תצ??????ת6! <ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̌fʌުP11ˡCۡ>1áIllegal file nameצNo file ́3ˡ fȡƆD   ̌fʌfȡƈD  ل7@ǀ ?̌fʌfȡƊDؤؤ  not code3"ˡצ Bad block #02́42ʁ4ȡCƀ2ƀ2ō$ƀ ƀ P  ƋDR677::9 3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צ988:9  6 ۪1٦׷)Must L(ink firstg222́42ʁ4ȡJ22č7ʁ302́532́6ʁ5ʁ5ʁ6ʁ5ʁ622צ: ܢܢH d    0&צצ.צ??e f@^ڤ áڤ !~ e ת*U  ? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ , 7 !! !:!!ڤ  ڤ  áڤ R :9CONSOLE:ת(:9SYSTERM:ת(8:98áצ Assemblingצ Compiling...á999':::::&: 6ëצ???JanתצFebMarתצAprMayתצJunJ(yáצAssembleצCompile what text? (ׯ::(:.TEXT-:( ulתצAug Sepת צOct Novת צDec ???תצ??????ת6! "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7%7̄詄% š t Welcome ?צ, to-*SYSTEM.WRK.CODE[*]תצTo what codefile? (צ,áuצ$,,ˡ-́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7U.C.S.D. Pascal System II.0Current date is C -C-%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%C %System re-initialized(, 06" 0 MayתצJunJ  צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡ݽ,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't ope Linking...ˡ&צ Restarting...צ U not allowedn -   áث 7_a 7& š+ >*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5 ~8(8``0 > BB~~BB~>BBBBB>~>~~ šA.á צ.CODEm%>>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<צ:) Running...ء ء:9B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>8:9á'צ*SYSTEM.STARTUP %áá  <@\B|:FBF:BBBB>xx >  Linking...ˡ&צ Restarting...צ U not allowedہہǻRRJHá68AX0qz((* "D&(,. Dv\xý6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@Fýýý   " ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-ˡ[ ġR&    צ ? (Y/N) - -F&צ ?  ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  Gצצkת{צcתת(WצSתԦת(KצOת  J [ áF([*****]/(ġ 0 2` ٪ # ת á ÿ۽ϟn`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout errorÿŹýýýŹת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(ýýýŻ3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost(Qˡá  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צFile/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <??`l  (>ǟ`Ƌto> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ `8`8 ` `o`o?expected1(& Ş"˶ I/O error # 4!צ Filer error # ء5 FILEHAND \&),áY 6(   MJLN0A$6Uۡ &Pɡ צ, áצ áצ g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="=fܪ(G[!nء CGGá+á &"ˡ~[צ["=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =g ˡ  .  sآWצ:آ(Yצc&PܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK׷Ȅ آצ ? ) ,áYø۪   ff@Զ  rުݪ"צPWkKGšׯɄ  0ު(áܲ~Í %&ܥKO &&ȡu ''k'S{c\ڥs[KG2G:[ Remove oldRƁ-צChangȡKk'k-'' ܡšڡKNeChange to what׷{צSW,,W,צ:,(,,(,{A,(*צChange Y˄ &"&& & ܡ&'&k'{[*[")ǐ ),, d,,[,["𥀈{á򥀿D1 0 ء,ˡ   ߓ`&צPut  : in unit  { c󓍄E''S'צ:'{!'0'c?'(&K&not proccessedء ߓ ٨š5Kˡ*   ġ" ء " á á3!:W~,gڲ= ggۓ$=?N۪ڪƁK""áN׷9& צ ? "'ز=g(=g=&=g&Pɡۡצ ...too long <ٹFצ file n  ڪ٪ت&:&Pɡ(š ame < scan string #צ vol name  M8!ۡ1á    - char. max >---> 4ثضÍצ$*á-:á?: Illegal formatT<=ڲ= ݪצc&.צ what fileצ:á ;&Pġ - عEXå[ׯGC81(o* what vol ?  , gg#š=jgjPg?=ɍ :   Ɓ3"ݣ ɡݣ  ڕš"ق Text file saved  & 0צCODE  #צCode file saved62"o.ܡC׷C#ÄÄ~Íj%á*צPut in G:'צInsert destination צצ not named2 Workfile is :.񄓡 (not saved) No workfiledisk % š " ݢÄv%.ת&תת(&Ɓ.񄓡9&צThrow away current workfile ? ݢÄ ۡ"ˡ ݢڶ /ݢ0/0 /0 ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צ/0 0 òCń /C"ݢݢ///צ://td צTRemove  ء&צWorkfile cleared&Tf ' ݪܪ  : .  ǀransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransferá@ .  ڲ צ& * )'Getצǐ&G.[  צ. Ɓ-צMakeǐh"))** **.&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ"&G:[ madeצT! ߪ Ɓ8 55 *SYSTEM.W&)צ.CODEצCode )١&צNo  file loaded (- RK. 5 5 4454=5  d66.6.6 65ݪ   p &+- ȡ%ܾz ܾ0ŶȄ: \,%Date #٪ؓצ *SYSTEM.WRK.,C:[.set: <1..31>--<00..99>Cˡ_צ Today is C -C-á" G"+!+~G?KÄ?G;K;GK,,, $[.GC .צE&Save as G,:, ׯ>צRemoveǀ RemoveE+G:. ? 瓡צSave asצ[š C?/צTEXT$CODE$饀ޤ removed%á % ń,&Update directory ? צ".[G&TEXT&  #hKצ*..CODEOld code removed, C  New date ?  ,Cػ+škGGȡ"GؾAĥGؾZȄ?:צPrefix is - ;: 0 צ Zero dir ofצH  GإGؾAa ȡ$GCػ+c,C ػ?צ:@ÄצDuplicate dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ?  Cצ The date is C -C-C 6 * 饀:˥׷!צ:DGצ : correct ? ,%ö,ÍP$&,􍓡~%K:, %,,,|.G CK"צ: zeroed p1šצFile(s) endangered:Mȡڶ+šڸ+*ڂ*ŶB < UNUSED >     .p/ƃƅ'l\ؤ áצ Directoryڢڢ  v 2Dir listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(ˡZ ȡ<ڤ š+ؓښڤ ȡ3ؓ R j3צBad block scan ofצ Ä . %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/צHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQʅ- ʅ//ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ "ˡ93צBlock  צ is badۂġ צ bad blocks2 0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/  4צExamine blocks onצH&Block-range ? S  SRR  RRˡR ƃƅ0ʅ/ƅ0. ڍʅ- /ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest T USVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be ok"١ ƃƃ"ƃ ,  N- Vols on-line: ȡ &Gz is badV3ˡYV šOUVˡ9TTTM šTVT ȡR~צ; צ #  :צRoot vol is - VVUVVá52Mark bad blocks ?š$צ (files will be removed !)צ (Y/N)  VWarning units   &  צ have the same name--('Sp Z$M/áUˡ$/á0Uˡ$$)U,+Z$/%+XU"צPrefix titles byl;G& Prefix is ;:`%\!X0T4P1L5H6ˡX%*U.-Z%$UˡǑá $áUU:&DK 0,D*@:BZ2" (@,(NXF0N>w\ ƁG&צSYSTEM.*W  \ X ZdšdZڞá% š  YbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0WRK.TEXT צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFeʂeoTTT TWT ɡTTWT#VV צBad blocks markedH`]t5ebMarAprMayJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~% ۢˡMoving ۢۢצ SYSTEM.PASCAL G?   š "0 & L (*&brB\( "&`'"#))'D+*,H--*..\//x0001B1Z1h55p8L5H6 " " ġ  7C f$3>A COMPDUMM צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת  PASCALCOCOMPINITDECLARATBODYPARTWRITELINUNITPART ȡ'  š 7  צback  ġ ɡ7 G : crunched#צPlease re-boot{ X6تPFP') xR88תVצOFiler: G(et, S(ave, W(hat, N(ew, L(dir, R(em, C(hng, T(rans, D(ate, Q(uit [C.4]8+צ^^^Uˍ^U^^ؚ^E/)ǐȄ Zá .Z Z Zڕ&Filer: G, S, N, L, R, C, T, D, Q [C.4]8?áVOFiler: B(ad-blks, E(xt-dir, K(rnch, M(ake, P(refix, V(ols, X(amine, Z(ero [C.ڕǴצ <<<<Line W , error  :/2( (continue), (terminat4]8+&Filer: W, B, E, K, M, P, V, X, Z [C.4]8ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤe), E(dit EÍeÍ^ÍEeÍ ^U ǐÍ ^ /<W > xrmhc,ˡ áá)}Í+-*68Fu!^:,+,+á !ک9áˡ <  ڟˡá 9Ä+ á +'á,'ˡ++%++á #R---+-+RZ     y2y y%á:á9% ީ4 ޢ  '09ō.á7.ˡ. 09ȄáEáL ޢ ǂإ (é`á  á  ˡgá áVީ;áá -á  +á09Ȅɡáȡ:  0 ń  ᚹ2ީ:&á ᚹi#ááإj$áá ; 0 #ثە$ġ  ȡ5áؚ 澂0إF0á5á.ީ ޢإ j   ޚ ášؚ0ە ȡ  0ġ 0ڕ$۟ڟÍáH Hˡ Ä ޓ%  HHڞ d66U6Zń/צ>>>>>> Error # 6 l~ڟá  ȡ 徂0 á $ $$ b3~ؚ7؞áeá ؞á٢ؚ٢ؚآآ< bWW/2.WV2á2f JK/}*á*.á <W >),áZ ááP P &XX=á '((')   =>) ڿڞڂ,$áˡ,Í +۹Iš)P )=á   {  "$&(*,.2468:<@,NPRTV +ë0+ë+ë2+-Í+ë-(*á) %  ǖ X"ˡ.X(XZ\^`nplnprtvxz|~&%1.TEXT-"ˡǓ%.Z-U*U +-Í&+ë))צ*SYSTEM.LST.TEXT("ë/á á ǐ" .ٟˡإá؟؟"ġ>~ڟˡ() -ë/򥂀 z+ë1s-ë#l+ë(e+-Í-ë11-2$(0 -CU&fc^ [áڣb 3g3ChG4E(DFCBښ  z [ġ%ؤáQ񂥀ؤ[NQQ.J ^؟ˡN٣`;٣ áآآ77,آآ955,آآ94 4آPآآآآآآ9آP4٣ á-٣(uצ undefined\#!   D  INTEGER ۢۢ  REAL ۢ;ۢ  CHAR רۢ9ۢ  á OO&J XIō~ %M >á á á  á BOOLEAN ۢ8ۢ  STRING רۢ4ۢ  TEXT ۢ7ۢ  INTERACTרۢ5M Mé Äܓ+MáM Mé ÄmܓMá áۢ @ @INPUT רۢ7ۢۢ ۢ @ ? ?OUTPUT ۢ7ۢۢ ۢ ?  KEYBOARDMÄ% Ä  xMˡݣ 9.*IÄN+N[ۢ7ۢۢ ۢ  ȡN ܢ8áFALSE TRUE ܢؚܢ ښܢ 8ٚ I \M!M MON Iá>D.  MáNIL רۢ6ۢۢ ۢ  MAXINT ۢۢۢ   ZG G רآZ^FƂƃƂ0ƃ\ƂXƃƁƃ* Y ma ˡ)WW آF F آآآ آE E רآآآ آ آD D רآآV VYY *+N/W צ linesYšSצ, Y< آ آCC آآآآآآآ آ آ آآ آ BB רآآ secs, YW  lines/min/DSmallest available space = T  wordsآآآآآ آ آ آآ آ VREAD READLN WRITE ߫HÄ dݟܟ˄ބ ̄ʄȡN̄̄ʄȡ3N̄̄ʄȡ̄ʄȡNݟÄܟÄÄÄ#`!%á á ,0I; ̄ʄȡNP̄ʄȡΟˡ Ω(̄ʄȡ ؿ  ٿ 4áˡǒƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 Y< 6šۥٞقق؍+áˡǒٕál آآ;;آآ::dL آ99آآ88آآ66 R  ABS  NEW  UNITREADUNITWRITCONCAT LENGTH <Ϧ*SYSTEM.PASCALת(Ϧ*SYSTEM.LIBRARYת( -&Q[\RǂNJ+* P'!/INSERT DELETE COPY POS MOVELEFTMOVERIGH"0, 21(.3%$ȡؤKW'  By8uyq)EXIT IDSEARCHTREESEARTIME FILLCHAROPENNEW OPENOL|u]tmiexaM }*I /D REWRITE CLOSE  SEEK !RESET "GET #PUT $R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  SCAN %BLOCKREA&BLOCKWRI'TRUNC (PAGE )SIZEOF *ST%>PNmmDz I~؟آآآ N>>آآPROGRAM آآآ R +GOTOXY +̀ʀȡ{(ٳ %`ٳڡ  ̀ʀʀʀڡ ʀآ آ آ آ آآآ!á^ áN>ˡ >>   á (má  á ʀʀ ʀ ٚ b ODD CHR MEMAVAILROUND  L M Mآ آآ>آآIآ\آ آLj z Z }*I / SIN COS LOG ATAN  LN  EXP  R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  SQRT  MARK  RELEASE IORESULTUNITBUSYPWROFTENUNu u uá ~ˡ  á2 ߚ ITWAITUNITCLEAHALT SSȡܳ 0ܹ8 TTT9 TT   " " ˡߢ á  á  ád;T; TTTTTTۚTbZ8 TTT@;:5-& ǔ  á   ߢ ˡk ߩ4Äg  á4{ VP84$3ݡ  TTT T ݡTT؟ˡآTښTؚ ō P Pˡ ߩ4  á  váqáW ߩ:  á$WRITELN EOF EOLN PRED SUCC  ORD  SQRd(&š##=AHZX)UWVȡ1Nڢڢ ڢڢ  ߚ       ˫  á   PPš Nۢۢ"ڤ ۢ ۢbڤۢ[Ǿ á $,Z+U)Uˡ ál ˡáá&     ޟˡ   68 Iˡǽ   ؓ*$<ؓ˄ $+<́ʁˡʁ ʁ́Ǽ    á  á ǿ ߟˡkߢ  ǔ ޚá؟*/1-" h   آآ ái3 3 á)  إآ  á   ߢ ˡk ߟˡ/á&ˡ ;áǏ š f ߚ آ=آ =$ ˡ ˩   l   q q qu  ٟ$; ڟ˶zbک;˄2 ġ%ɡ܂5á+á$ ] ] ,á á    ߚ ɡ۸ ik3T@š  ڢ  ڢ ڢ ڢ  ޟˡ1ȡ$ީ;á m á Ǖ ޚq ˫  á   á / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ   ˡ ál "ȡˡ9  ٢٢٢ á   ٢٢٢٢ 3 3 á!   á ȡ ǎ   ߟá-á  ɡ ~  ł   áU  ˡ8ȡ,; m   ء n     ~ߚ á  *á  á   ߟˡ%Íߩ;Í s  ߩ;ár    ł á       ˡ o   ߚߟˡ% š ǩ \.áW ǿ    á  ٢٢ ٢٢    ˫  á  á  á (  š ߚߟˡ ,(  ٟá138:+ Aٟ٥  öń ˡ%      ł  á%    ˫ -N٣ ë''٣ [N٣ /80"ˡ ǻ 0ˡ ǻ    Í kk    áá> 9"ڤ "ڤ ~/rڤbڤë'']PP ݢݢ I ݢ ݢ   ] ] ˫  á  ܢݚݟˡ x ܢ   ޓ{ á  ܢ5é$'IˡǷ  $Ǹ ء]ٟˡ<ݢۚݢ ܂ á۟ˡáݢ~~ؚá%     [( צ words]<W >\*5á+  é  ]=ˡu =OS ^   áw   @    $ܢ"é Bޡǡ ܢ"á á    @ ! @á  ˡ = ߚá I   O MM M I \ء[&#!!  . ˫   áJ á<    ˡááy  ȡ 䏂   /@#.IéP Ä $ 1á  á' Ǻ ~   á  áء"ƁTURTLE ר́́Ɓ\Ɓ [( צ words]<W >á ( (  ߟˡ ˡ á( @ !́ [́Ɓ ʁoƁ ʁ́ʁƁʁ<ʁʁ' ʁ ʁ ʁ ʁ<[áʁ 'U á+    آˡZޚˡ@á -á&ȡ  ' ʁ ʁ['ؓ ˫ ˡ  ؍ؓá  ʁʁƁ$ <0ce2  ޚٟl ء@. Ǐ QP[ [  Ǐ  #áS~؟ٓˡ Ǧ ٓ۩ۢۢڢؚ      á X&á$ R~ ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  ˫  á   ˡ  á ۥۢۢۢ )é Ä  ޓá     I [ $ [ $  آٚآ á%   é   ˡ ءPš PPN[Ǖá [[á l۟ˡJá5á á ݥݢݢ )é Ä   ڢۚ=ٟˡ)گ ٩=ˡآ=  š á  š ܣ ˡܣ [ؓǏ   CI \ ܣ \IɡII á%   é  =ˡu ={ áM   ݥݢٚ ɡ. ~ޡ áޓܢۚo ޓܢۚáP á4ޡz   Sړ Ǧ  ȡۢ ڡ " ^Ȅ "3ǔ ؀ ؀ ɡR   ˡ Ä á)  6I :ȡ ǀ  (ǀ 3ámá šˡ ۚš$ ~á Iá)6    < ˡǖ g    ġ  á ٳ0d@ h ٳ ǀ  FJ)ÍȄ ) :ˡńi; i iáݟˡˡ NJ  á ؂ ؂ #Ȅ ؂ خ @MÍǀ   Gڳáق ˡ ˡq ݟˡ < , 1 ˡ䀮šNj ˡ>'šخáخǀ  خj[ؤ[[[[Ǖš +2 ؤá "Oá 1 @$ńˡá  áˡˡ nj  áˡu á ؤ Oؤ8`ǀ Ȅ ?á(ۢ䚩á 䥁ǘ ^ " ǐ  !   ˡń  WˡO $ۢ9á ۢښ   8ˡLJ !خ  ٢`m Í; ááǏ ˡńǍ  i i 1-.+ۢۢ`mɡ'ġ 9!٫ خ 4Pˡáb'ڢȡ;Gv dá}   Eܮ29Ä Há=ءǚ á/9á'R  á IáNC $ !á ǹ ˡQ$ á$خڢ+;˄6á;á33S,á)6I D+%ݍm   aTOA v$~  Zn RJ)##:<> 4!O˄˄0  ˡS>á+ O MM M I \ء[&#!!  8I6ˡǐ #;=? E.dˡfN &ǐ E&á%2 /@#.IéP Ä $ 1á  á' Ǻ ~   á  áIˡ"g . VCtˡuN &ǐ E&á%2I'ǀš'(&ˡǒ &&'('ک} ۢ ۢٚ۩Q؂''h&ˡ ǀ Dˡ"g . VCˡˡء!% t ޮ < á  á á %áM-#á}  ˡ.$ع0sokgc_   á áá`  !á > ؟ˡ4أ á'أ أ  أ  [!W"S#O$KG +@7575 799;9E"$&EC,GIGEG8SIGi٣á٣ á%٣ " أ } } nˡ} á  á  " ˡ} á 2I٣ ٣ ٣ á)٣  6I٣ ٣ J%@ö=} ˡ(á!9á " á ' á" ˡ} á   ˡ}  á   ˄ٮ%"ág ˡ[ M K; <:  )9 M 8خ2خ"ɡٮM2خ˫  ɡ  šث  4 ٚ M} -˫  áٮ%M- &?ö;}R ˡ(á!9á t á +ˡ/îá2خá   ˡ ˡ} á " á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ     ˡ ˡ} á/M2خ٣ɡ ٣ šث ٫+áMM: á ١M ة;á5١á" " ˡ ˡ} rة:  ١]ة9á ١MJá :} á     t ^"ˡ ˡ} ás á ١M5 )ˡ ݕ١ܮܮM} -˫  áۮ%M-Y4eNORMAL ILOCK ׯ 2PURGE CRUNCH ׯ    M- 'ޣ á ޣ ˡǐ áٟá~  "ٟ˄٣ڟˍ٣áȡw9Ä á \ "ˡˡ}  áǏ Xá   ˡ} } FM?M8ˡ 9ˡǏáá :;é1 %ک;  ; 4D Ä ,'S  M (_83 6-!ˡ ˡ} á  )á á á}  }ˡ ݕˡǎ ګ1á&ág ڟˡ ˡǎ ǚ  ǎ ٟˡˡá  ݢݢR 4  ˡ} 4  x"ˡ' áˡ á  ˡ 9ˡ} á  "á    "ˡt á " ٟáǞ eˡǢ WˡQ ة;Íǟ < -؟ˡ á ˡ}  ˡǏ á  á  " ˡ} á   ˡ}    :     á   -8Ä퓫 ˡ8ˡ LJ  S. f  ܩ;á ܩ8á  ǃ   DŽ  u ٟˡ~ ޣ áޣá V"7ޣ ޣ ÄOޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ   á  ˡˡ Lj   Ȅ  ˡ Mޣ ޣ 4ޣ áBޣ %ޣ IáNޣ ޣ áOޣ .ޣ  ޣ á(ޣ ޣ ˄ޣ (HSx áG    lj ޡȄ   ޡ 䔜ߡlj(أ áأ á t ݳ͐o" ݳ}ݹ&'ޡ2 ˡˡ ˫  á  ߡ,RRR RRRj0b } 9ÄǏ @%áM M 8ˡáás ˡ ġ} ˡá"$&(*,.02468:<>@BDFtdPRTVXZ\^`M e -&;á} ˡá;á}  >á  á$d--'á  - ܟ˄)*Ä?ܩ;;Ä    ˡ ˡ} Má   Má  /Ä   dž )ܩ;;Ä dž v*ÄÄ  dž  á  á   ˡ ˡ} á  FÄ dž -ܩ88Ä dž  'rD0 $R, (é`   ˡ ˡ}  "ˡ ˡ} ˡ!áM )  ÍM,. á";áá dž (á  , ܟ˄)-á ;ˡ;áá} U'NweD+$&*,._ 6*Ä?ܩ;;Ä/Ä  dž )*Ä?ܩ;;Ä/Ä>@DFHJLޡá  (s ;;Í؍á ;á ٩;0)Í!á  dž (ܩ88Ä  dž  |& +ˡ ە :á ة:6*e: e e^  ܣáܮ&ܣáˡǁ ؚ,.+)á 9Íˡ ȡ  S + 9  ܮˡá ; á9 4 ˡ ȡ ܟ˄á+á   ǁ  ǂ ˡ )* .   ܚޚ۟áښǓ ˫  á  /aڟˡ9 ˫   Í߮ words]<W >ˡڟˡ ˡtáašQ2 6ٮ / ݟˡ` ݚܟá ,   9 š   ݟá á  >=jF*ˡ (ޕ( áWV~ܟˡ ܢ  .Iá(<ڟˡG#4 خ/a˫   á خ 5 EG V5 ٮ@  ġ ڣ M~ڟˡN 2 2 ,á5á9áMIéخ á 6 /9ٮ خB6áX}  á   Ǜ ؟ˡũ;  ǏUW/a˫   á  ~ڟˡ 2 M %Iá<ڟˡڣ  %  ˡ  ǃ 5ǃ  "Dž  o1 á @   A áW ˡ>ˡǐ 0 ! ؟ˡé1 Ǒ 3 *564/1(0!7/ 1, )ǁ 8 jF@خá   ǀ @ˡnˡǐ ` Q ؟ˡé1 8߮ 6 ˡ ō  á 9 ˡ ȡ ٟ˄á;  ;: á šá40Ǒ 7 @ ! á 6 / á9߮  :ˡ ǁ :ޡK9Ä47ˡ.  9˄Sˡǁ ٫٫ e1 ] 7á}   EBخˡxál ɡ_ ~á~ۢۢۢh ]WGޡ*٣(('( ǒ  MoQM`A#ǁ 3 +8~ۢۢ š nj ˫  á 6 /ڕ ٕ  8J  02 #áP~ڤˡ~ڤ؟ٓá 9 ٓǧ   7R J#á[~ݤˡ~ݤޟˡ# áǥ ǧ  á  0 UW, n1/a˫   á  8: B2á8á ܓ ٮ á a `}p  ܣá ܮ0v 2o 1h 3a 4Z 6S 5L 7E 8> 4  /ܡ ۡګ  á-ܓ  9خ ٮ /ܡ ۓګ خܓٮ 3 6h  "$&fZUIRFAm!dš  &  JJ7 Ql   9߮ ٟˡ٩;Í ǐ  á    ٟˡ^ Oܟˡ ȡáǜ  /#!  /# @# ( Tɡ Tˡ;צ [   é ڣ  ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ"  2ˡ "" N NN 3á   _4ˡ a  " "ڣ"  " ١qˡAۣá "ۣáȡ  \ &š(&ˡǒ *Nݢݢ" á   ˡ`  ڣ 0  ]Z@B.١NáöÍá  M I\[ M M! Ddnt ݫAN؞ (١ بȡ      áأ ` أ  أ   M M I ɡ- ~ݟˡ   á   0'&6á"           ȡ   á     2ˡ "" N NN 3á   _4ˡ a $ y{ġ  ˡˡ$&LGv .Ǐ  & ۂۂۀ Nˡۂ.ɡ3 ꕞNء~Nڟˡȡ𥀲ܤˡܹ FSEEK ר~ FREADREAרj FWRITEREרV FREADDECרB ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTġ ڣ áV' áA-á۶~ܟˡ `mˡǨ ੁFWRITEDEר$ ' DECOPS  tbP>%ȡ  "!    ܤ šߤ ޶á     ؕ  \ I ..N QQ ܤ   ܤȡ      +ء*4<NG&F\QG ART!99  F8``  L r4p` !2""#$$%L&&N'$ y{ġ  ˡˡ$&LGv .Ǐ  & B((( f,,F--J///0./0~00b1p222B3r 9 á  ~ڟˡ 2 M %Iá<ڟˡڣ *SYSTEM.INFO[*]"ˡǒ . Ƕ . Ǐ QI \ [ MPPPPš [&š(ˡ2'é&Ä&ȡW&ɡǀ' ȡ%٩(  ˡ TAݟޓݥ e ޓ* A ݫAN؞ (á( ܩ&ɡ ګ ȡ  l ڣM M I ɡ- ~ݟˡ   á   0'&6á"   -ˍfunny code seg2-2-ɍ2-,ōצ bad diskinfo2`-1צ bad seg kind2 -  bad seg name,š----š0ÄצAll segs linked,á/[`9ȡ Linker [II.0 a2]E˫[':'צ in workspتP%Type (continue), (terminate)++á+ á VTrace'*SYSTEM.LIBRARYצ Host file? 'ׯ?':'צ iٚi.ھZڿ Zn workspace'š  ȡXצ Lib file? 'צ***SYSTEM.LIBRARYǀ"ȡ6ݢܢ`ܢ`ښ>  Rצ Map name? 'צ,.á .TEXTץ'۫۟á! ٢٢ٟáٚUۢ٢  !ۢ٢   ٚ۟áڟˡܡڢٚڢٚT x H ȡۢ`Ä ڢڢڢۢ`qˡצ badݟˡ2ݢܱ !ݢܵ ˡ: H ܟˡBܢȡ&ޢ ۯ ޢ` host segˡצ dup host segګ Láڢ ڢګ3áۢ ڢ  yy}/Já á:צUnit  not foundl ȡ"ښ ȡ á  áצ weird hostFTO_| l - > [ ڂتP.(2.P."ˡ2צ in workspace.CODE۟ˡSȡ<ۢcá'ڢۚڢڢڢڢګٟˡ٢٫eyj N*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?  P."ˡ&.!צNo file Pˡ !צOpening /s//./ٚ./ EګצWriting out the file*ZlDTXZ\l\B.5$<ˡsegtbl read errá>-2-2ȡ+/c-˫ZZ--Z/ -0,&SYSTEMLELINKER á11/22`-ˡצ bad byte sex02`-Ä02-2`-˄'2`   >`  ת' #Zë[ !ššk N] J D7 ǀ$  U/YHڡٟˡšá8 ١צ li read err ١آ@ á ٟˡ šN ؟ˡYD٢ؚ٢n ٟˡhˡc٢ˡUáצno room in seginfo6  ٚۢۢۢ٢٢٢ ٢Ǡ ٢أǠٶٸf؟ˡu!!!`أáW  non-alpha name٢ōצ too many refsצ bad formatáōצٟˡáٸ ٢ؚ٢٢٢٢٢Ǡٶ ٸ ٸ T!!צ missing proc` bad privateá ˡٮǠōɍ Nōצ bad globdefō bad publicdefe٢٢ ٟˡaáUá ؟ˡ%áá ٢ؚá ٢ iF xǠōɍdōצ bad proc/func$  vY[]_* Ŕ&ʁ&́'ʁ'ʁ'ڟˡ0 ٟˡٚښ7B#۶ˡábá& ɡ,צReading ʁ& ́%Z4Ɓ ́&ʁ&ȡƁ Ɓ >ڟá0ˡ"ڟˡˡá ڟáٟá ضؚؚo8l$ˡˡ bad litype fzá́%nšE   ۢZ ́&ʁ&ȡۢ#ݢˡݢ ݢˡݢ ݢݢ ˡݢݢ # áݢˡ á  ۟ˡá2á*Ȅ  צ bad host LCʁ% ܢ  ۡ,צProc  param mismatch #áݢˡá  ۡ,צFun ٢ áWsBJ؟ˡآōצ bad proc #ڶc  param mismatchO áݢݢ unit err$3Z:$V  ˶˄disagreeing p #Iٕȍ Nōצproc place err  N ZGlobal iצPublic VConst DProc 3צFunc "bQB 8)(ǐɡ sep seg 2 big ȡˡsep seg rea@1 undefined˄$ܚsX$ f"؟ˡ&&&آߣޟd err5Ǡō bad proc dict!   #ȡ ˡˡš ޢ? ɡ to continue.Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/ áR۾8۾áݩ۾ ۾ á ܕR`/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext ۥ    ڞڂ ˡ  !Uقč ~ \6F& EDITOR w^  á  ܂áũؓɍš  ٚáء ׯ2*SYSTEM.WRK.CODE[*] 2 "ˡ Code open err ƀ  ̂MʂMȡ'@ INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE ƀצƁ "ˡ-צ Can't open ת'WƁ Link map for ˡƁ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/Rev 1/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext ɡ š    H FIؾbase LC = Ɓ Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \:2IھPھNéN˄  ˥P۾ܥO,$ T@ F$ h###f$$2%%%%%&&L&`0n ת'WƁ Link map for ˡ( P!کN˄9!'۹  vڤVڳNƁ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/ * 񿥆P&   ڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ r2 Insrt: {,} [ accepts, aborts]תPI4 Delete: { deletes, aborts}תP5 Adjst:ĩ1ۥ č%`wȡ'ڤġڤڤ؂  L(ft R(ght C(ntr to leaveתP צ+ Edit: A, C, D, F, I, J, R, Q, X, Z [E.6f]P<צ>EditIĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 :צReadingNvˡצ Reading file.N5øbáܕܩܕ   á  .5  ĸ5 á "ˡצ Disk error-á á.á é Äە߂ũȍ0 á  Buffer overflow.8 4آFGأ%Fأ&G G آ-NIآHآ$۩ߞ á<á / é쾩Í ߂  á߂߂܂܂Iآ Hآ$Iآ Hآ$Iآ#Hآ$Iآ#Hآ$Iآ!Hآ  d>h ٪Pצ what marker? -P,-V$I HIآ"Hآ$Iآ!Hآ$Pأ.Oآ/ POPآ),Vȡ-,-, ,,-- -- C ƂNƃz   šOآ/ Pآ-Oآ/ Pآ,Oآ/ Pآ,Oآ/ Pآ'Oآ/Pآ á á  á ƂN-R; v< ~*^LLbP& F > Z   ~ 'Oآ/Pآ(Oآ/P آ(O آ/أ.áPáPJO e   ݂ɡ  ݂ەݕ ; Z ,  B!۩ߞ á<á / é쾩Í ߂  á߂߂܂܂-š 0 ۍۡ צRepeatfactor > 10,000v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E\ á  8ڕ škvKThere is no room to copy the deletion.6h]תPrצH Insert: Text { a char, a line} [ accepts, escapes]PIצA Delete: < > { to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}תP ɡ <    09̂5ʂ5ȡ )  (( ń(Ą?Í " RáEáꥂNWáצ)Name of output file ( to return) -->ƂPƂ " ȡ"   >Edit:KN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5áƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ."ˡWorkfile lost.vFNo workfile is present. File? ( for no file to exit ) תPvPƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTPצWritingNƂCNvˡ.:  P á v ,á ̂5ʂ5ȡ   .TEXT   ɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞNȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TE  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvXTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? :v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5  EګצWriting out the file K+IT Nvˡ.5ȡܤA09̂5ʂ5ȡܤA    Ǫ צP 8VteinTZ|H  ɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞNȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TE  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvXTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? :v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5צImproper marker specification.  2ꂶ6צMarker exceed>Quit:תP# U(pdate the workfile and leaveצ E(xit without updatings file bounds.ĩ :ꕕ,צ[á$ Pپخ%v ACDFIJLMP Q R S V XZ,>.+-?/=+ R(eturn to the editor without updatingצ% W(rite to a file name and return   ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? P -   Jצ Not option d ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ wi[M=/AT(k) geQ"c&ר  צ]ɍٲˍ.ڕ.P..P,áؕڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=     ە ..ȡ۲۾ ..ȡ  ȡ.ءצTrueצFalse0 ڳ@ ۲ ۾ ..ȡ۲۾ צ.TEXT˲ȍ.˄#..P@צT or FȡĹ TáTrue צFalse Z.צ.TEXTU.P.áȡLٕڂġ)Buffer overflow.ĩ  # ڳɡ ڂ0   ٩ڞڂZ= ˸ .   V   צ. Environment: {options} or to leaveP  A(uto indenĶɄ , ڨ߶ߤ ߤ Marker not there. ٲ0t צ F(illing  L(eft margin   R(ight margin  ز+߾á f v   ׷   ׷ U=ˡ  P(ara margin   C(ommand ch  T(oken def  ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? Pצ  צ bytes used,   available.HG Patterns: ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ G2 = 'ũEǀ'H.צ , = 'Fǀ'wڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ= Markers: wȡ8 xؤá Ƃ=fV^vdN  ׷   ׷ U=ˡ צ Date Created:  - -  Last Used:  -! á> < A&! Copy: B(uffer F(rom file תP  DB EL š ꕞ ĩꕕK멂J IũIĄצ Invalid copy.멂JġNo roommLꩂJIĩIɄIJꩂɡ"צNo room to insert. j˄'J IꩂJ멂JꩂJ ĩ Fá * צJump to    ꂫꂶÄ  Í   \ةwxؤ xؤ  Not there.ؤ ĩ.\ $ JUMP: B(KIJڶȡ6No insertion to back over.   oڶġd5Please finish ueginning E(nd M(arker תP  Bá)EáMá ةˡة$ p the insertion   ڶ š Buffer Overflow!!!! á  ; ~ &(38 xؤá i ĩ צInappropriate environmentKR  w wצ Date Created:  - -  Last Used:  -w áwȡ/ ) x٤vצ$Marker ovflw. Which one to replace?P  -   Jצ Not option dĩp0wSet  ׷ Gwȡx٤ xؤؤةwwi[M=/AT(k) geQ"c&áww@n *  Set: E(nvironment M(arker תP  EáMá ةˡة vSyntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ hȡ9G~ ĩo < eXchange: TEXT { a char} [ escapes; accepts]תP ~ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0  á8š1ؾb áU ˄@ 0 00 ٕ̂3ʂ3: ȡ ؕ؞قʂ3 ق   پÍ   پÄG vؕǟō? ة꾿á٫؞ǀ >vDؕ v . Type  á   Ƃ  $&fQ"c&PšrL WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ  "   ؂š!  ؂  P  ɡ          š    šĶ   #<áTń1 á   ˡZ-    ٕةġ-á- ؕ  ؕġ  ø ɡzɄ2  ɡáĸ š# ٩؞؞ ٫ګ    U ؂ \ Í     $%&؂ɡ    rP  ˡPšǀ3Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫á ǀ vá(ȡ  á ؂ (  P ĄÄ˄Ąۄy á  háOȡ% ˡܡ  Má M vá    á< >   ȩMd$ Tá   á áث8   (J  ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽɄګ  ڂ٥ č9h  ^P  á (- áڕ(ڕ( ˡá۫ k 'š > ! á ^)š (š  ) <öÍ  áJéé Íɡ f ġ ˄ ń     ɡ$앞 ^ á "Tb   Ȅ5  ɡášĶ  4! á4!~ǠɄ?      !ń9  á                á   ǀd ؂ȡ ؂  ɡit"  Ʉ: á# Integer Overflow<) <á"#˶˄ >á#"+ $    1۶ɩۂ۾Ä۶d% 02  á Í á8á  á  Cá1á  á.63ǀ Ŷٶq ġ   ض á 9 ؂      |  *ȡGھ á-ń  á   2  .|v 4ǀ Ŷڶq š ۂھO Z+ȡˡˡȡ  á 9ض     á   2  .|v 5EE ȡ 4` x š ɡ,ńŶ  Eá X7Ŷ EɄ Ŷ šٮ ݮ+,    IP ŶöEɄ E Ŷ EɄ Eá ?  vá   w"#<á"# |!x$sá< >  8     á78>á54v b á78   3Nġ Integer Ovflw) <á"#]_nlDtٕ ,˄ ǀ Ŷ š 2 á}Aáojũ˄ȍátÄ S ٕ܄Lɡ ꕞ ٩ٕٕ á ȥ  Ä: N6.۪PڪP.P [M ثLK IٕJ٫ ö ݓ -á- á'*  / צ]: ء% áL(itT(okz9z  Replaceצ'< á  ö D. ./ Lá .Vá esc> aborts, 'R' replaces, ' ' doesn't 9 á Rr˄Fš[Fš9צBuffeA>á#áR)  M;%*&&<á%&. Tá . VTÍLÍ/SsÍV^0/L(Invalid delimiter.  "$"#<á"# !$šToo many$ġצ .á*۾ ń  čġ.צYour pattern is too long$ riate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types r full. Aborting Replace FꕞFɡFꕞFFˡ F멂FꩂF@:̀̀  á Findצ =>9( Replaceצ V(fy =>9./0ʀ ťE1G á./̀0ʀ F1HéG éHGl  ȩMل*6 ١ނ߫ á:<á  ٓ(MńצPattern not in the fileצNo old pattern.  " d P  .Má  Má   d~ zxt p lhd ĩD@08lb^\ZXVVVTRPN0246801:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (term>@b; ˡ; z\2n  t  ^&@H t tZz6inator expected)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' exfh6 !!t"#$#8%H%x&hv;צPattern not in the fileצNo old pattern.  pected  13:'END' expected  14:semicolon expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in d" d P  .Má  Má   declaration part  19:error in  20:'.' expected  21:'*' expected  22:'INTERFACE' expected  23:'IMPLEMENTATION' e~ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680xpected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expeO^cted  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad express%ion)  59:Error in variable  101:Identifier declared twice 102:Low bound exceeds high bound 103:Identifier is not of the approp% n not allowed  134:Illegal type of operand(s)  135:Type of operand must be boolean  136:Set element type must be scalar or suallowed at this nesting level  184:External declatation not allowed in INTERFACE section  185:Segment declaration not allowed brange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with thin UNIT  186:Labels not allowed in interface section  187:Attempt to open library unsuccessful e declaration  140:Type of variable is not record 141:Type of variable must be file or pointer 142:Illegal parameter solution  188:Unit not declared in previous USES  189:'USES' not allowed at this nesting level  190:Unit not in library  191:File not 143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not al allowed to be private  192:'USES' must be in interface section  193:Not enough room for this operation  194:Comment must app 108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible withlowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be inte part 112:Index type must not be real  113:Index type must be a scalar or a subrange  114:Base type must not be reager  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed 152:No such field inl  115:Base type must be a scalar or a subrange  116:Error in type of standard procedure parameter  117:Unsatisified forward  this record  153:Type error in read  154:Actual parameter must be a variable reference  118:Forward reference type identifier in variable declaration  119:Re-specified params not OK for a forward declare 155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:d procedure 120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward No such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Againdeclared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for reals forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/f only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegunc not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in basal parameter substitution  128:Result type does not agree with declaration  129:Type conflict of operands e set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure  130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File comparisoor function expected!  174:Pascal function or procedure expected  182:Nested units not allowed  183:External declaration not &  399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file, ڂ D󄓡#ffERROR # ءD"11.ERRORS not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in s" file not around ,(šE(dit,,ٶ/eparate procedure  406:Include file not legal  500:Error while Assembling.  <ȄooEeÍ:<% & ) '  oo á 7Ʉ " Iצ*  I  7á 8٨ǀɍm Location H HHHH8HH87  "ˡ."ء&*,ȡxؤˡf&IIצ>>>>>IؤD󄓡)>>>>>ؤؤ*,* áu)ɡear at top of program  195:Unit not importable  201:Error in real number - digit expected  202:String constant must not exceed source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  25J&6 B %. TLA 1:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254: INITIALISYMTBLDUPROCEND ASSEMBLEPRINTERR Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bou V2.0 Rev Ands  303:Value to be assinged is out of bounds  304:Element expression out of range  398:Implementation restriction II#ffIIERROR #I IءEI"I11Iצ.ERRORS" file not aroundI'  !!D.!2á  7á  ɡCcc cIצ| $ 434r%á qr%á II| Iceše#￩áI#III IInǀĶȄ<r%á qqr%á :ácX #3*j" ءUá"IHIHá'I I In١qo7ppˡ  s1ssˡ áDIH IHIHIHáNI I  I    T&L9  "$&(*,.0246k:<>@B{}HHIIsI I I   5šGHá6 2š2HH55D󄓡s B#nV #^ L#3<GH'( H'66H5ؿ5565443š43B{á2ȡ+c쥈HcHc á<ȡ5c()'('(á><0&'%) H'(l > >Gá,G ëCeɡ##G %á4*?r$˄8á$oؚo٨o 4J J éA*f G ؂fɡ# ؂؂ ˡfɡ# á > >š G Hm>6 H) fɡH)#H)#f, H) fɡH)# H)#fDn0o5ppˡ  0s?0ssˡ@[( ]<! >#PDII I IPAGE - I  0T&LG  "$&(*,.0246s:<>@BHsˡ0ss" I IoIצ FILE:IDIIצ IIII ""tt4tssts.|&/-u! (,$. W|gknV (  %éń, Í;ÍZšF G F H ؂Gá >] éAnV%HšEá 6ȡ+ȡ۾$HšBfɡ# š G H ˡ fɡ# á >))>)ġH)é:Ho+&á+&áon+p+%HšnHš) ëC))H) ;áf H) )؂) 0 éA:f H) )؂) ˡ á C%o onꫂs%onꫂs%onꫂss^*ō˄ J(ˡonꫂsV&NC  "$&(*,_acegHš 뚶á#á  òHÄ&rqò뚹áˡܤܤܤܤHˡšFOQSHÄf_!뚹 %rqUWi$od,u0>@BDFHJLNPTVXZ\^`dfhjlnprtvxz|~y ˡġݡHáٳ  ,4,. P P~7Aġ .7.0XXPX.ǠXP$س$$$Ä?oڳ<<ڹ$$Íޢۂ$ˡػ$ÍHá8.á .á$BáBá>E.ڹšMɡXX.PX$Äޢە$ˡ$ܡ ޢۍܡ ޢۄzܡޢۓۄbܡ ޢۏQܡ ޢۆ@ܡǠXPW WWWWšyɡXX.PXǠXPXXȡ"پ š  ޢێ/(tT-  ^$á{1ޢEޢ  پ ń ÄɡXX.PXǠXP6ޢ$) ASH$XnV;XXȡپš WW W WWWWšZɡXX.P;x}?뻹ˡ %;á áI**á5XǠXPXXȡ%پš   WٕپW&Nq *] á n%Hš 뚹 뻹á nV nnP  רɡá-EE Ʉؤ EE->) :Ä>R @#DA PתP"PɄ ˄5򿥁,,P,Ǡ,PáA١IF ר'2ENDC ')ELSE ר'*REF '4DEF ר'5ؑ ؂ á()Pš*w $(ëC áC á( "!  ORG '"INCLUDE ר'ALIST '9NOLIST ר':ASECT    (*$á09ō>##$+áá>-á(' PSECT ר'!TITLE '<END ר'?PAGE ';MACR<! 'ؤ>Gáš%GG ˡH) ˡ)á>>á>!~3?Bz  ")(á#3@󓄩Ä DAá<#橂ˡ%<0 P P ˄ 0YYP$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~Y0ǠYP á'&)%G ')(D󄓡#ffR!wƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI-X רɡEȡڂؾړلٓǀړلٓF,zT#$J 2x| l!!L""#$D$H$+áá>-á(ڤE˄ EEh𩂒 %   !$!uá>>á>!~3?Bz  "ngV'N'  "$&(*,.0246O:DdHJc$&(v\EL 468:<>@BDFHJLNPRTVXZ\^`bdfVxA~ڤڤꚹ'áá"vš  ) ˡ *,*GáGwƄoƅƄGƅsIƁu  $ũ@  ?áƄoƄGI-X D(C :áBȄ#F>(*<V" רء$ۤALIGN ר'$ASCII 'BLOCK ר'%BYTE ''CONST ר+á* *+,ɡá'EE+Ʉ+ E++E},'8EQU '3FUNC ר'>PUBLIC '6PRIVATE ר'7 PROCá (nءH++,+** ȡ٤٤򥂳+ &,,CC ' = WORD ר' & INTERP ' 0 MACRO ר' 1 ENDM ' G* "ˡ8. not on any vol on line&@BDV WƁf #3צ11r  UD תPd  MC תPV'Nx  "$&(*,.0246Z:>tnbI צ Assembler צ II.0 [d.4]́ʁȡ X cX H0123456789ABCDEFר5!o4 IéDéDI  7á I| ˡ$ .á v&v.v @2Output file for assembled listing: ( for none) á  ?á  #3  רݢݢ__ȡzܤˡeV'N  @á$ġ  ˡ áٿצCONSOLE:#1:ׯDצDPRINTER: "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute L#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncƁ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnVIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-OLISר'+NOMACROL',PATCHLISר'-NOPATCHL'. ABSOLUTEר' /Wn ;A:<FBo ר" P)IPAGE - I" I""oë9  ȡƶWWWE ȡ"قٓ؄Wh-jPV  áٿצCONSOLE:#1:ׯDצDPRINTER:ǀٓ؄ؓ٤E˄ EE2Opcode declared twice=#6:ׯצREMOUT:#8:ׯ Ib.TEXTá+ÍƁPƁצ.TEXT[*]XƁ$ÍƁPOڡWWۚWW٤٤ꚲWW WÍW=&'Ɓ[*]SƁ"ءצ @87? ́ʁȡVX[&ZYnV>)(,* FRB*LINKER.INFO[*]ת.11צ.OPCODES PW*Wn ;A:<FBo ר" P)IPAGE - I" I""o.Q"ˡW#4:.S"ˡW#5:.S"ˡW#9:.ب 'áߢꚹ%áߢꚹޡ]rˡS"ˡuW#10:.T"ˡLWצ#11:.T"ˡ#W#12:.TI  AB תP  LB תP  PR תP  FC תP  PB תP  PV תP  RF תP  DF תP+ 9!ȡڤڤV- Bة6ɡf4šHɡ6ق2šV41w$41#41#ƥFn!ثHFƨȡH2 "áHá65ة6š4šHɡ6ق2šق2 2ġ( WI I blocks for procedure code I( Iצ words leftID_  blocks"áH222ɡ62"áHá65ة65 ?ˡgV for procedure code ( צ words left643 25#w Há6ȡNVVá5ȡ*Vܤˡ4Vܤȡ ܤˡ4ܤ$ F ƁVƂƁ.ƂZƂ@#$š ?á$̂ʂġ٥wڤ $ ٫#5-m u| ˡ Vȡ䥃ؤˡ'IIHɡ6ڂ ʁV ʁV רʁVƁVƁ."áƁ.HáH>>>>>I  D󄓡$>>>>>V FVVVuV "áHɡ6 #@ǀ Ɓ II.0 [d.4]תPƁ HÔʂȡڥskVaV WV M#F  "$&(*,.02468:uogUVVH "áá6@DIIAssembly complete:I! Iצ lineVVVˡ;VáVV ˡVVsII Iצ" Errors flagged on this AssemblyII IƁ.&צAssembly complete:V$VVá V V VVVVVVVN#F[!  lines צ" Errors flagged on this Assembly쥈n $$--- 6PI   ! .4 __ȡzܤˡeV'N    "$&(*,.02468:9;=?T&L  "$&(*,.0246 "$&(*,.0246C:GIKMOQSUWY6ǪPǦSYMBOLTABLE DUMPתP I>AB - Absolute L:468:<>HJ nrV ˡ V ȡ/VB - Label UD - Undefined MC - MacroII=RF - Ref DF - Def PR - Proc FC - FuncVáVܮܩ67 l (š(@FICurrent minimum space is I I wordsIIצ,PB - Public PV - Private CS - ConstsIII  áצ------ áצ-I@DMצCurrent minimum space is  צ wordso 36545 n, >$áso$áEˡcX  (ˡ(ˡ #3&ƁV0ššٕȡ   RDá<ȡ(˄  #./! ݢݣޢÄ@@@3ؾ  9 VF xo?5F"ˡ-á F$F0 FF   á ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡ FˡF%éF"Í FF F 'ˡ=@ 'GG ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  á>G7 ר: šGešG á (.á ɡ    pVz X 6 ^  ˡcX  (ˡ(ˡ #3&ƁVENDM ׯ  ȡG GG &: aSá AáDáAPړ ˡ>Dáۯ.S;Eo8á+ǀȡ  v á 6 ۯX(ˡ(ˡ eš á#3.á Ä ˡ8X á Eǀ Ä ˡE b  Ʉ>IF ׯ (ENDC ׯ ɡ  ةUGá;é? (ɡȡ   h)# ELSE ׯ ةENDC ڡH eš á#3.á!48 #-FˡCˡ 5 á+áEáآآˡ&\ רɄ>IF ׯ (ENDC ׯ ɡ  ةDá ǥP."á.áˍáENDC ׯ ڡ ٟˡc6٢؂٢Ʉoo٨oJåÄ݂FÄ ˡLMvá `á.á ٢٫jrBáZF꫄Fٟ˄á"+&áá $% á)á åÄNá˥ÄFÄd áRá 0 /| .u -$šƁVoo 41=á#FˡFNFá,>+&ˡ ,+%+++Bá3ˡ٩>-   (ɡ( qmieɡNJ?Bk|YMTPD MFPD @MTPS MFPS PC SP R7 R6 R5 R4 ykig7=$QY[]_a~|~ˡ(ˡ(ˡ Fy2~G"R3 R2 R1 R0 MARK SOB ~TRAP EMT BPT IOT RTI  ݂>ġá ݂Oá LMáO  Ǡ`(b^ ` b \  < צCurrent memory available:I( IBCÍ Ǡ qq,Ǡ hnnV ڻ ȍ@č$(Ʉ(ˡ 7788$š@?ٻܡnhۡ \Ǡ á P4Ǡ á   (ɡ( qmieɡNJ?Bk|YQˡRhnnV ڻ ٻܡnhۡ ~S Ǡ Ɓ.́mƁmצ#4:Ɓm11Ɓm.ERRORS Ɓm"ˡ8́mƁmצ#5:Ɓm11Ɓm.ERRORS Ɓm áR á=3%á*@nV TRQvǠ "ˡ8́mƁmצ#9:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#10:Ɓmצ11Ɓmצ.ERRORS Ɓm"   ݻ ܻhnnVˡR ڻ ٻbnnVnhߡnb9́mƁm#11:Ɓm11Ɓm.ERRORS Ɓm"ˡ9́mƁmצ#12:Ɓmצ11Ɓmצ.ERRORS ƁmƁC ޡǠ ˡRá QhnnV ڻ ٻ"ˡw0II#ffIII  D󄓡/#ffܡnhۡ ~Ǡ ǀ :(@<840,r ݢݣޢÄ@@@ ($  0.,*(&$" P  D @2٩؄٤ء  á ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ   2 D@#5IצCurrent memory available:I( IBCÍݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  ȍ@č$(Ʉ(ˡ 7788$š@?  px0II#ffIII  D󄓡/#ff. nttive expressionCtB%macro stack overflow - 5 nested limitnCtBinclude files may not be nested limitnCtBunexpected end of inpute nested limitnCtB(this is a bad place for an .INCLUDE fileB'only labels & comments may occupy col 1eBexpected local labelts ma A' or 'B' expecteddexed addressingPROCtBundefined labelcteddexed addressingPROCtBoperand out of rangeexed addressingPROCtBmy occupy col 1eBlocal label stack overflow occupy col 1eB#string constant must be on one lineol 1eB%string constant exceeds 80 ust have procedure name addressingPROCtBnumber of parameters expectedessingPROCtBextra garbage on lineexpectedessingPROCtBinpcharacters 1eBillegal use of macro parameterracters 1eBno local labels in .ASECTmeterracters 1eBexpected key wordn .ASECTmeteut line over 80 charactersessingPROCtBnot enough .IF's80 charactersessingPROCtB&must be declared in .ASECT before usedCtBidentrracters 1eBstring expectedrdn .ASECTmeterracters 1eBbad block, parity error (CRC)rracters 1eBbad unit numberty error (CRC)rr RTT RESET WAIT HALT CLR CLRB COM @ COMB @INC INCB ifier previously declaredore usedCtBimproper formatiously declaredore usedCtB .EQU expectedatiously declaredore usedCtB&must .EDEC DECB NEG NEGB TST TSTB ASR ASRB ASL ASLB ROR QU before use if not to a labelCtBmacro identifier expectedot to a labelCtBword addressed machinetedot to a labelCtB#backward  RORB ROL @ ROLB @SWAB ADC @ ADCB @SBC SBCB SXT MOV  MOVB.ORG currently not allowedbelCtBidentifier expectedntly not allowedbelCtBconstant expectededntly not allowedbelCtBinvalid str CMP CMPB ADD ` SUB BIT 0 BITB BIC @ BICB BIS P BISB uctureedntly not allowedbelCtBextra special symboltly not allowedbelCtBbranch too farsymboltly not allowedbelCtBvariable not BR BNE BEQ BPL BMI BVC BVS BCC BCS BGE BLT PC relativenot allowedbelCtBillegal macro parameter indexllowedbelCtBnot enough macro parametersexllowedbelCtBoperand not absBGT BLE BHI BLOS BHIS BLO CLC CLV CLZ CLN SEC oluteametersexllowedbelCtBillegal use of special symbolslowedbelCtBill-formed expressionl symbolslowedbelCtBnot enough operan SEV SEZ SEN SCC CCC NOP JMP @JSR RTS MFPI @ dsonl symbolslowedbelCtB&cannot handle this relative expressionCtBconstant overflows relative expressionCtBillegal decimal conMTPI XOR xMUL p DIV r ASH t ASHC v FADD zFSUB zFMUL zFDIV zstantive expressionCtBillegal octal constantntive expressionCtBillegal binary constanttive expressionCtBinvalid key wordonsta/ 'must declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ˡ#"- I/O error # תP 8-Link Code File -> תPP*צ*SYSTEM.LIBRARYPust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB usš P[Íx ȡ -ۢ ڤڤ  t declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust -ۢ   -ۢ    -ۢ  declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtB ust declare .ABSOLUTE before 1st .PROCtBclose p -Code file length - תP  (  á[ ˡ#-Link info read errתParen ')' expectedefore 1st .PROCtBregister expectedxpectedefore 1st .PROCtBtoo many special symbolsefore 1st .PROCtBunrecogniG ˡ#-Code file overflowתP    zable operandlsefore 1st .PROCtBregister reference onlysefore 1st .PROCtBfirst operand must be register1st .PROCtBcomma ',' e- Bad link infoתPۓ3>`&š ۡxpected be register1st .PROCtBunimplimented instructionister1st .PROCtBmust branch backwards to label1st .PROCtB ōٍؕ-צInterface errorP,p[ڂˡ"-צInterface LIBRARIA  read errPDˡ#-צInterface write errPۡ,pآ`acters 1eBbad mode, illegal operationC)rracters 1eBundefined hardware errorionC)rracters 1eB$lost unit, unit is no longer on-l ines 1eB(lost file, file is no longer in directorBbad title, illegal file name in directorB#no room, insufficient space on diskectorBno unit, no such volume on-linediskectorBno file, no such file on volumediskectorBduplicate filech file on volumediskec?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIAtorB(not closed, attempt to open an open fileB(not open, attempt to access a closed filB(bad format, error in reading real or inٚ@$ȡܾۤˡ@&  Bȡ(٤tB nested macro definitions illegall or intB'=' or '<>' expectedions illegall or intBmay not EQU to undefined labelsll or intBܢۢ`٤ۢp٤0 >á-٢D""0  , @  , -תPá  0 ˡ ڤšګ-צSeg to link into? P Y,ˡV-צ, N(ew file, Q(uit, A(bortP  c@@[5    TȡAݢܢ`ܢ`ښܢpH \ȡ" -צPascal System Librarian [II.0]P,-צOutput code file -> P  P * צ*SYSTEM.LIB - >ō  ˡ,+Interface read error+ RARYP á  ˡ', ,VWWȡV  ר |   4  á á  ō+ +سس-צNotice? P,O,,á !C+ áI ١%+library read error!+ ١ode write error @K Ɓ[ƂƁƂƁ[ƁT2^VB L  X آ~ تPY+ + P+צ word referenceB+ byte reference'+צ big re-צPascal System Librarian [II.0]P,-צOutput code file -> P  P * צ*SYSTEM.LIBference W>% ˡ)+צ (+ +צ times)+ (once)++ 5+5ȡ , ++RARYP á  ˡ', ,VWWȡV  ר #h +# c+ completely linked segment++צ Pascal host outer block آp[ˡ'-צError reading seg P ˡ(-צI/O errorسس-צNotice? P,O,,á !C - no room on diskPj, آ ,,آ`آ`ōآ`,`آ`آ`ˡ LIBMAP 1 map output file name: PׯצCONSOLE:P.á  :ˡ.TEXTP++ Pascal segment+s p+ library unit+s @+ separate proc+"á++צ LIBRARY MAP FOR +,++š+ ++++ gKMedure segment+@ l>́ʁʁZ䍡 [<Ɓ́́ʁʁȡƁʁ.6 Ɓ+ƂWƁƂ/Ղ1Library map utility [II.0]X XƁ+Ɓlrʁ́Ɓˡ߹ZM+ + global addr P #+ +צ, I #+ +Zl ~^  ^  ferenced items (Y/N)? ٳ@@ٳ YYX6+ + public var base = + +Z5+ +צ constant value of + +Y5+  , DRWBLK PASCALIODECOPS DRWSTUFFGRAPHICS  +צ external proc P #+ ++ + separate proc P #+ +{ global m public  _ constant O separate ? unit 3 private $s#aUKWKMás 6 Nb,tȡš+צ Segment #+ +: ++צF----------------------------- V2.0-R0-L2-----------------------------------------K++  [צenter library name: ,&fet  pt `mwhE Z: 7  Dt7.2m2,((7 $ P,צ +,*,*SYSTEM.LIBRARYתP,"ˡ.CODE,P,,ˡצE 77 77 ev 6 e wt  {bad file[UUȡ]ɥɍ,ō#!not a code file~7vP @ 7v7vx7v~e~elh~mjmb7vZwtN{ wvFPPA H7t27v2< 7t"7v"x,list linker info table (Y/N)? ٳ@@ٳZ N\Znb2222222222 ZZolist referenced items (Y/N)? ٳ@@ٳ YYXDRWBLK  DRWBLK DRWBLK 2 STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INT    k ݢݣޢÄ@@@   P  5  O ~eL3Ná ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ <<Df\A4 '  }rg\QF;0%á "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ   p +-Í-۲z0ݡߑ ع  á +-Í-ڲzؼ 0.áAڲzؼ 0ڲzQeEÍݍ.á '߂ۓۡܡ  $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGERؼɡ ؼ߀$ ؼߞ$"Hɍ -   $[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I $ ݞ$' ݑ$ $݂ō $݂ġ ݂$NTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCE $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ DURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL ݂ ؂ ɡ   x,  & * عuu1; $VAR BYTE,BLOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN *IF (RECNUh[NA4 '  }rg\QF;0%á M < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN $ "TYPE DECMAX = INTEGER[36]; +-Í-۲z0ݡߑ ع  3 w\  __ _B B`A b e  QB  b   6  _ ;NJ#&;KLZzĊ @" R _j7 ev a " j b \ H HH  ` H HhHh    e^TPJ$BLOCK <= FMAXBLK) AND (BYTE <> FBLKSIZE) THEN 0BEGIN 2UNITREAD(FUNIT,FBUFFER,FBLKS_DB F  F   _% _ "77 * &IZE,DFIRSTBLK+BLOCK-1); 2IF IORESULT <> ORD(INOERROR) THEN GOTO 1 0END ,END; *IF FNXTBLK > FMAXBLK THEN ,BEGIN FMAXBLK := F     w aB  ~ B   `w`7& 7 7 7 7aNXTBLK; FMAXBYTE := FNXTBYTE END *ELSE ,IF (FNXTBLK = FMAXBLK) AND (FNXTBYTE > FMAXBYTE) THEN .FMAXBYTE := FNXTBYTE; *FEOF : E  Da7 D7zE mna R Ha H R e<! F  (&  = FALSE; FEOLN := FALSE; FREPTCNT := 0; *IF FSTATE <> FJANDW THEN FSTATE := FNEEDCHAR; *FNXTBLK := BLOCK; FNXTBYTE := BYTE  _d 7dwH J7 D aw> w* (7 "D 7Da7  DECOPS DECOPS GDEC GDEC -w` F   &  & w %% |PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE  x |rntjfhX \L -LL   *     FWRITERE FWRITEDE  FWRITEDE  DECOPS @  $-1:>GK l  b  w!     a  E _ ,/36:GJNQUbeilp}  }rg\QF;0%á vJ  b h^  XVD$`h d  20$`   +-Í-۲z0ݡߑ ع   747( a "  ` $$ _ * ˕͕07 7  2w&7$" G8  x*b`$7w& 8  & 2  D!@  ͕- ͕0  F\  F  ##- (      Aa@  U  D D   D          f   "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  4 7 $m-  ` ~ m- ` ~-, nb^(&f@ACpe& Δ~BB  LBB  LB   5  \v h&  e ~B ee# ~CpPp(Cm r `W  W  eru~ , @ @|rfVVVVV&fE CDRWSTUFF DRWSTUFFDRAWLINE DRAWLINEBITTER vDRAWBLOC  DRAWBLOCGCHAR E ww  wRCaE ee e wz tE WuEB  N uEDGCHAR BITTER  GMARK  GMARK THROTTLE THROTTLE  7>tEpWuE` mtEp  uE` m %   ACBvC@A CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86VTLXjh|l22222222 &f #TYPE SCRN = PACKED ARRAY[0..319 , 0..79] OF BOOLEAN;{one zone} # PSCRN = ^SCRN ; #PROCEDURE INIT_GRF ; #PROCEDURE USE_ p C`WqP b tm ?Y AaWp(mEtU  5tUBE vSURF ( S:PSCRN ) ; #PROCEDURE DRAW_VS ( SIZE: INTEGER ) ; #PROCEDURE DISP_VS ( DISPLACEMENT , GRZONES , CHZONES:INTEGER ) ;v n ds D`   <T L]LM W!  ~ (  e #PROCEDURE SET_VPRT ( LEFT , RIGHT , BOTTOM , TOP:REAL ) ; #PROCEDURE SET_WNDW ( XMIN , XMAX , YMIN , YMAX:REAL ) ; #PROCEDUnb^(&f@ACpe& Δ~BB  LBB  LBRE SET_LNST ( LSTYLE:INTEGER ) ; #PROCEDURE NEW_FRAM ; #PROCEDURE INQ_CPOS ( VAR XPOS , YPOS:REAL ) ; #PROCEDURE MOVE_ABS ( X e ~B ee# ~CpPp(Cm r `W  W  eru~ e&~e&~eep`@I**I"AAA"A""A>"A"AAAAA>"""> l7 7 w v7 v jj^7 ^ CptE`eE /6 .-00(J*v5t5t "* (  e5  , Y:REAL ) ; #PROCEDURE MOVE_REL ( X , Y:REAL ) ; #PROCEDURE LINE_ABS ( X , Y:REAL ) ; #PROCEDURE LINE_REL ( X , Y:REAL ) ;  ,ݼܼ ۼڼ ˍš á   ޓ  ڥC #PROCEDURE MARK_ABS ( X , Y:REAL ) ; #PROCEDURE MARK_REL ( X , Y:REAL ) ; #PROCEDURE SET_CHPR ( CHPR:INTEGER ) ; #PROCEDURE  ڥ,  ۥ  ۥݼܼ ޡ_ ټSET_CHSZ ( XSIZE , YSIZE:INTEGER ) ; #PROCEDURE SET_CHSP ( XSPACE , YSPACE:REAL ) ; #PROCEDURE TEXT ( S:STRING ) ; #PROCEDUREؼD bP ?ነ? SET_MKSM ( N:INTEGER ) ; # P !IMPLEMENTATION ! VAR #TYPE SCRN = PACKED ARRAY[0..319 ,?. ثáBצdraw_on_view_surface not calledF  ɩ ō$צ marker error   Vةȓɍ ō" drvs error 1@ȡ@ǀ ث  P ? 劐Im ōɍō צ dsvs error??劐劐)    ؂ˡ ǀ ڏZ"צ vprt error (ō"צ chpr error :ɍ"צ chsz error ث٫<"צ wndw error تP +,5,5ȡ31/3-131/-x31ō"צ lnst errorá:3?PP1  ,3?1P šB áǀ ؞ 0٥إ á,,h ث  BtlH ,@`<,XxV  &    ō"צ chpr error :ɍ"צ chsz error ث٫<   rټؼܼۼܼڼټؼټڼتP +,5,5ȡ31/3-131/-x316  <fr.4H'B&J86!a6!@$% ''@&0(b6!c6! \ j .  $!COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD @ @f ~f{fxfufrfoflfifffcf `f"HJKC  >P  ?]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&'($*!á:3?PP1  ,3?1P /efAA,"<w á,,h ث  BtlH ,@`<,XxV 7 &  G 6E7, 6 ?  w prGRAPHICS o 0+i; YBOT 6GCHAR WCX i&E7 5@|<7w {7yw 7 psw mw g-VCX {VCY WCY CHPRECIS %3@_ azE ~ ~UV3T E@ JD B94T?4 E@" "-lCHARWIDTsi CHARHEIGf !oTHROTTLE IMPLICIT"SKRN 7? ~7E@U@  E7 w wU &   {Eb@ XLEFT $GMARK  SPDX y ,SPDY 3  *7 7 7 zv x7 vEl7 h 7 E7 tv wU W r7 $7 "DRAWLINE XRIGHT -MRKSYM )[ NZONES [ 1IRe  C  ^ E@ &?  w U@w > 6 & h ^7 X CXPOS `{3Geoq t WSX toVSX uF @~w 2 ?*  "U@  wE 7 wv FRX\`& VSY &WSY YTOP 4?STYLE 5!l F J ^ f j n x |  " 6 B D J f 2  4 ^ v ~   6 j | h*06NV\bzCYPOS  h8Pjy y ,SPDY 3 Z Z ` f:@FLRX^djpv| "*2``@Z`7    @ ` G7vz   7H 7Z 6W w{Z N B '((@`@`( (+m ]   P~P~eeNPP   <6 E E7 ~<& EE Jd`n W  ~~e<ee``!~ e C~C~ %< C~d %  D~ " ~ E D~ D C~ %  D~  ~& <AA~E eC~ceί%@ eAp6% "1, 1,1,^  % @`& E&~AA~E e @`&AA~E e @`  `` ^A %^A&Daef ¥_09E AZ   t @L A@@A tBt B@P< ``f~ ``A~ c ҇ef r C  f ee $ $ $ $ @A eeee >eJ< ``&& `  E e @a&&6E e @a&!$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTOeeee e  e e& f   EezN EE7- E e @a \d<Z@@`@`$fH@7 `e B~  B~< _@$@$@$@" EB~f r&z%% 7 *\7 *``WtB 7@` dd&`f&d&b&  m ef aBE B<<  wN EC~ B~Uf rfVpfz  eN  ɋ e  rfwBC % e 7d,\ Aɋ BJ@ B8@ 6NE LU@t7`.~BE B @Wtw`& B~<z& & Em8~@ Bm*~@ Bm~     N\Et& B~ & > ~UB~  Ձ@  a a!~F@  B~  I?zr& 7h  AF eA -Bl: \.<$WFl~<E `E `EՀW @p@ `E e `&& `& `<   mAɋF! &ffD e w5 wDe`<nC<E e `&EՀ~<  7Z   ҂ ~< E e ` EB@B <C``& ΟX @ e E`E``B~8A Ew0w.Dw$ &  8 7 -\ vw *< R'(((@ BCzEG@HPtJ$LM nO(k@7 6_ 8 E7 _ 7 v7 7 7 P 7"QRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &w h07  w w N!.7 eJww  U @e @wxBEfEPZ&X( &7 |v7 n|7 `|7 T 7 < 6  ]p |ʋD~ G~ 5E~ E~e  e  ` e  |\ = "  \m\  W  m ef5`\_e w5 5@ ZT| *, wU  @E  @7LW\ɋE 5\\\f F^T2&,FR,: f6 E w<E 7$  7 t$Wax$Waw$  w wW Y#w (Q&vI  >7 7(w& EFHJKABCDWX][f@@ N Z[ y7|7v$ :)wmwed$ $ w[&$ $  E?R?DŸJEU7MwG7 % @`?R wLVxx|xt@ wU :: R7~  #l d#\ a:-:2* $ K E7 w z2@t  w Et@_7   O 0E]$ :?$ ,g SF $ ':t w` 1'U `  xZ7Wm7 P ]Dw=7w Zl Fw bIT $ '& _w E  t_! \RU \@@&2E  ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN w tR <w H<  Alw&f65t w E   e@ׇEU  )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -ʵm H& W Y#w H^E. U w w  UEw  BREPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR w Zć  tw  h!w  UOw p w 먇  <w  0w `ʽ W Y#w WHILE WITH 7 +& @  z7 +7 t+7 X+7 R(7 ,7 V(7 ) tʕ U Q~ʕ \׌UE׌x׌"  e 9  | r $ _ $B  #E %M~ @E  a7 w7 _\r1@\[?\ ew & ?U?*@ڪAD C %     @ w7wm ,URN WW=774\% eC ~  f&\   B -  e \z\D f C_  fW & @&&&&7 0**+:*% C ``` e7 %  % % ` %*0*)J(@**N()N(N() *N(&**|*e\\;@\ \N @   =@f&ysE[\pCf&f&\%  @t@@T a @w   6 6 &  f 6A  v  6N\z\\\$  LN wU  E@ e ]&  N A f C %C B    \ w  D& &&@7 N(+D& &&7 7 7ߐ2 7  | t ~"w d    X N wK  6  A7 ^)+P)J(++P)+J(+++*,*N(*N(*N(*N(*+ e\ \S\ e& @7 w: 7 ,* $? U@ _E7 wf U?  E7 N(,+e\D,f& \:יc&>X4%]@& & & & & D&&D&& @%7 rPRTV + wU  E@  U@ _E7 _),  IA e e@ e& & & & & D&&e #@  @6 7 )-6 6 #?%-0 @ ׳f&& @׳@f&7 *J(-J()t-f&fz&z& K wU  J _&2 -/ -'z& &7 l*-*N(*N(*N(*N(*N(N(-N(*-   \-f& \ e\>:L]L?ƪ@ \fEA# -~'z&t t n d ^_TR HD 28*7 2E 7 _z&7  & e@ & f& f& f7 )N(". ff w   &@& n. E7  (U@ % E7 ez\& Dr)&&\   Ub ]ER H7h$ga7k$`7n$[7q$VwLwCw;7B DI~A<5@5@7 XJ((N()((*((((*N(*N(*N(*N((*)*N()*)B)f&\  \& \: 814 SCALE DELTA ENTRIESP INCREMENCR OUTFILE FREADREA FWRITERE  5 .BYTE ȡ.٥hIA  Íbˡצ .BYTE .צ צ,   Ɓ4Xצ.***** Opening output file: 'SIN_TABLE.TEXT'...Sin_Table.Text SINTABLE Link map for CYCLE Seg # 1, CYCLE Sep procs DRAWLINE proc # 2 base = 3482 leng = 470 next base LC = 4 ; צ***** Closing output file...d  á +-Í-ڲzؼ 0.áAڲzؼ 0ڲzQeEÍݍ.á '߂ۓۡܡ ؼɡ ؼ$ ؼߞ$"Hɍ -   $ $ SIN_DATA: ; Increments: 0 ; Delta Theta: 0.00000 ; Scale Factor: 0 ݞ$' ݑ$ $݂ō $݂ġ ݂$ $  .BYTE  צצSIN-TABLE GENERATOR{ GC Tsiknas [3.17.81] }$ȡ%  0 ފ$čQ   .ˡ5  Eɡ  -ݑ š 0Number of Increments:  &Delta Theta (Real V 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ alue, in degrees): צScale Factor (Integral Value):  z  x, $JA RT-11SJ u~ Ķ^TP***** Creating Table  SIN_DATA: " ; Increments:  צ" ; Delta Theta: צ" ; Scale Factor:   .BYTE ȡ.٥hIA  Íbˡצ .BYTE .צ צ,   Ɓ4Xצ.***** Opening output file: 'SIN_TABLE.TEXT'...Sin_Table.Text<      ٤ CYCLE ٤ضȡ@?ȶȄ Ipš$ 4š$4š$4š$4ȡG2l؂  ǐšAɡš ??ȡBȡ ؤ ؤ L1Ɓ]1צ CYCLE.PROMPT Y1Yǐ   8J- nˡ?ˡͥ ګ٫ء˹˭V9=1 تP  .0.0ȡ2///Ráڑ///š..>6X X  ȡ؂ڂh 6ō ɍōS ^9=  *-ZLJȡ خّH, (d  < 224؂hšhɡh(ث Ǡxؕ ثx ȡ ǀ% Ǡx˭2D Ljȡ# ( ?̑ʑȡ x̑ʑȡ ٤Ǡ?̑ʑȡ`Ǡá @)\>ڊ )\>ڊ xd٤̑ʑȡ>ڕ̑ʑȡUڤؤؤ)\>xڤؤd ٤ڤ?ڤ>-Q#d     = ǐǐ >"  -P(" ǥ  (P" ǖ <<"<!ɡġ^ $  F 0 n L D| 2l*T,+FUME<3) MGA;4-%ُ CYCLE ؏% -  % š$$6$ ؏d$#' (''.)áǴš Z Z()(2'š  ڑڑ  '$ 4& ġ2ͥ ?ͥ ??ؕȡ3ͥ ??ؑͥ ?=~ * ġͥ ??ġͥ ɡš ??ȡBȡ ؤ ؤȡͥ ?ٕٕ?ġͥ ?ٕٕ%Pu+ǵ& &+ #  J- nˡ?ˡͥ ګ٫ء˹˭V9= !ZRRRZצRRRRZצRRRRRZRRRRRR ZRRRRRRR ZצRRRRRRRRZצLLRLLLRRxצRRLLRxRLRRR؂ڂh 6ō ɍōS ^9=ǐצRRR!&ǐ *Ǘ[uGǖ#  Ձ  84؂hšhɡh(ث Ǡxؕ ثx ȡ  !%, l7 7 w v7 v jj^7 ^ CptE`eE /6  ǀ% Ǡx˭2D Ljȡ# ( ?̑ʑȡ x.-00(7 $m-  ` ~ m- ` ~-̑ʑȡ ٤Ǡ?̑ʑȡ`Ǡá @)\>ڊ )\>ڊ xd < 2 < (EEǖ  n d  Z  ȡ -2  $,    5  \v á%š Z   :  P   ǐǐǐ h& , @ @|rfVVVVVXl4> ǐǐ >"  -P(" ǥ  (P" ǖ <<"<!ɡġ^ $  F 0 n L D| 2l*T,+@ ٤̑ʑȡ>ڕ̑ʑȡUڤؤؤ)\>xڤؤd ٤FUME<3) MGA;4-%ُڤ?ڤ>-Q#d     ؏% -  % š$$6$ ؏d$#'     ٤(''.)áǴš Z Z()(2'š ٤ضȡ@?ȶȄ Ipš$ ڑڑ  '$ 4& ġ2ͥ ?ͥ ??ؕȡ3ͥ ??4š$4š$ؑͥ ?=~ * ġͥ ??ġͥ 4š$4ȡȡͥ ?ٕٕ?ġͥ ?ٕٕ%Pu+ǵ& &+ #  G2l؂  ǐšA !ZRRRZצRRRRZצRRRRRZRRRRRR ZRRRRRRR ZצRRRRRRRRZצLLRLLLRRxצRRLLRxRLRRR L1Ɓ]1צ CYCLE.PROMPT Y1Yǐ   8ǐצRRR!&ǐ *Ǘ[uGǖ#  Ձ  81 تP  .0.0ȡ2///Ráڑ///š..>6X X  ȡ  !%, l7 7 w v7 v jj^7 ^ CptE`eE /6   *-ZLJȡ خّH, (d  < 22.-00(7 $m-  ` ~ m- ` ~- < 2 < (EEǖ  n d  Z  ȡ -2  $,    5  \v á%š Z   :  P   ǐǐǐ h& , @ @|rfVVVVVXl4? R 28 22-Jul-79 SYSTEM.COMPILER 68 8-Feb-79 SYSTEM.LINKER 22 17-May-79 SYSTEM.EDITOR 45 11-Aug-80 SYSTEM.SYNTéۓá ƺ_ƻxƥƦQƺ_ƥx28 Ɓ.񄓡9&צTAX 14 11-Aug-80 SYSTEM.ASSMBLER 48 12-Aug-80 11.OPCODES 3 16-Apr-79 11.ERRORS 7 28-Mar-79 LIBRARY.CODhrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODE<~<`E 7 7-Mar-79 LIBMAP.CODE 7 28-Feb-79 SYSTEM.LIBRARY 31 12-Aug-80 SYSTEM.8510.QB 24 25-Sep-80 CYCLE.TEXT SCR1 SCR2 SCR3 %BLOCK1 9BLOCK2 o9BLOK1 _:DRWBLK  DRAWBLOC   4 22-May-80 SIN_TABLE.TEXT 4 22-May-80 SYSTEM.WRK.CODE 9 22-May-80 CYCLE 9 22-May-80 20 files,  <ۡ:(@((o(@((?2@(((o@(((?481 blocks used, 7 unused f PLANETS   SPHERE2.FOTOé_צ MASK.FOTO空_x__ INVERSE.FOTOo_x_PASCAL1: 4-Apr-85 SYSTEM.8510.QX 23 11-Aug-80 SYSTEM.PASCAL 33 25-Mar-80 SYSTEM.CHARSET 5 2-Feb-78 SYSTEM.FILE(ۡ:(@((o(@((?2@(((o@(((?@  SPHERE2.FOTOé_צ MASK.FOTO空_x__ INVERSE.FOTOo_x_g from it starts with the line following the .EF directive instead of the first line in the file. This directive facilitates (ۡ:(@((o(@((?2@(((o@(((?the creation of such things as name and/or address files for use in generating form letters. .SK .NF #.EF .FI .NT 2 Kill Jéۓá ƺ_ƻxƥƦQƺ_ƥx2&fet  ob .KJ This directive is most often used in an imbedded file to cause CID to abort processing when all the information has bept `mwhE Z: 7  Dt7.2m2,((7 $ E 77 77 en read from it. This is most useful when generating form letters and the exact number of copies (see RUNNING CID) is not knowev 6 e wt  {~7vP @ 7v7vx7v~en or is inconvenient to determine. The Kill Job directive implies a break. .SK .NF #.KJ .SK .CE .UL EXAMPLE .SK #Sam H~elh~mjmb7vZwtN{ wvFPPA H7t27v2< 7t"7v"x, N\Znill #.EF #Sally Prather #.EF #Mike Trumble #.EF #.KJ .FI .SK .NT 1 Expand Line .XP This is a "space saver" directive b2222222222 &fE CE ww  wRCaE ee e in that it takes a specified character and replicates it a given number of times to actually replace the directive itself. Theéۓá ƺ_ƻxƥƦQƺ_ƥx28 Ɓ.񄓡9&צTwz tE WuEB  N uED 7>tEpWuE` mtEp  uhrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODE<~<`E` m %   ACBvC@A CBv xC L@B PLANETS PM|C L@A C@Pmlm`A C@xm\mPe:86VTLXjh|l 22222222  w (P 0  Q ~@ `U P~e~E w   l9ae9 wVP H 0  % % reading from the file which imbedded it. Then, should the file which contained the End File directive be imbedded again, readinA ective Indicator .DI The Directive Indicator is, by default, the period. This directive changes it to the new character given eated with the RT-11 editor (EDIT) or the TECO editor. The TECO editor is recommended because of its greater editing power. .in the operand field. If this replacement character is not given, then it reverts to the period. .SK .NF #.DI .SK 1 .NT 1 Zone .ZN .FI The Zone directive enables the CID user to specify the maximum number of columns to proces file. If you choose this route, you will need to run the utility program PAS2RT in order to transfer your Pascal TEXT file tos from each input line. The default in effect when CID starts processing is 80 columns. This facility is often useful when the an RT-11 compatible disk. In either case, it is convenient, but not essential, that your RT-11 text file have the extension o CID file has sequence numbers or other such information beyond a certain column that the user does not want imaged. Converselyf .DOC--it will save you typing when you run CID! .SK 2 .UT 2 An example (using RT-11) .SK Here is an example TECO edit ses, there may be an occasion when input records exceed 80 columns--this directive solves that problem too. If the Zone value ission to demonstrate the creating of an RT-11 file named SAMPLE.DOC, and the entering of text and directives into it. .SK 2 . omitted, CID assumes 80 columns. .SK .NF #.ZN .FI .SK .NT 1 Left Margin .LM The Left Margin directiNF #.run teco #*ewqx1:sample.doc$$ #*i.tt //This is a Sample File/Page &/ #.sk 2 #CID will start out in fill mode, so I do ve instructs CID to shift the entire document over to the right a given number of print positions. This action affects every inot have to #specify the .fi directive. Please note that any #dollarsigns ($) you #see in this example are really the result mage CID writes to your output device--filled images, unfilled images, titles, topics etc. This directive is useful if adjustinof pushing the #escape key. Two escapes tell TECO to process any commands #given it to that point. That is all!$$ #*ex$$ .SKg the platten or carriage on your printer is not feasible or does not provide a wide enough left margin. The default value for #. .FI .SK 3 After you have created your CID file, you are ready to run CID. See the next section, RUNNING CID. .OP (PAGErefore, the Expand Line directive is a pseudo line of text. .SK .NF #.XP .SK .UL .CE EXAMPL the Left Margin is zero print positions, and that value will be assumed if not specified with this directive. .SK .NF #.LME .SK #.XP 50 + .SK .UL .CE GENERATES .SK 2 .FI .IN 9 .XP 50 + .IN 5 .PA .SK 2 .NT 1 Comments .CM This directive  .SK .FI .OP (PAGE INTENTIONALLY BLANK) .FI .UT 0 ERROR MESSAGES .BT //Errors/-&-/ .AB .OP (PAGE INTENTIOis used for inserting comments in your files and is completely ignored by CID. .SK .NF #.CM .FI .SK 2 .NT 1 DirNALLY BLANK) .UT 0 CREATING A CID FILE .BT //The CID File/-&-/ .AB .SK 2 .UT 2 With RT-11 .SK The CID file is normally crB  INTENTIONALLY BLANK) .UT 0 RUNNING CID .BT //Running CID/-&-/ .AB .SK 3 Running CID is a very simple process. You need onl then you will have to enter a "T" to cause output to your terminal. If this is the case, CID will respond with an additional y ensure that the file CID.SAV is on one of your RT-11 disks and that your CID text file is on that same, or another, disk alquestion: .UT 4 Terminal in P(ause or N(opause mode? (P) The default here is pause mode if you simply type a carriage return. so. At that point, and with your RT-11 system "booted up" and running, enter: .UT 2 RUN QX?:CID The "?" is either a 0, 1, 2 eThis causes CID to wait for you to enter a carriage return following each document page printed at your terminal. This pause tc., depending upon which disk drive contains the CID.SAV program. .SK Within a few seconds, CID will display a sign-on banneis necessary if you are using a Diablo, Qume or other such terminal for producing final copy on typing paper--you can insert r with a version number and revision level indicator (unimportant to you at this time) prior to asking you the first of six (pand align a new sheet. If, on the other hand, you are using continuous form paper, as on a DECWRITER or Teletype, you may wishossibly seven) questions. The first question is: .UT 4 Document Filename? (SOURCE(.DOC)) To respond, enter the name of your C to enter an "N". This will cause CID to output to your terminal as if it were a lineprinter. Don't worry, CID uses "software"ID file. If you do not enter a name, but merely push return, it assumes the default name of SOURCE.DOC. If you enter a name, b page ejects regardless of your output device! .SK The next question is: .UT 4 Starting Page? (1) Normally, CID will begin ut no extension (ex., .FUN, .COB), it will assume an extension of .DOC (see! saves you typing). If your CID file resides on a producing your document starting at page one. And, if that is your wish, then simply type the carriage return. Often times, hodisk other than the DK disk (usually in drive QX0), then you must specify it (ex., QX1:SAMPLE.ABC). The next question then askewever, you may need to reproduce only a specific page. This may occur, for example, after you have corrected a spelling error.d of you is: .UT 4 Version Number? (1) Unless you have used the .IF directive in your CID file, you will normally need only h Another handy use of this facility is to enter a page number at or beyond the number of pages your document contains to cauit the return key here for a default version of 1. See the .IF write-up elsewhere in this document for details. .SK After havse CID to produce only the table of contents. You may want to do this for checking the logical flow of a technical document bying providing the document version number, the next question is: .UT 4 Output Device is L(ineprinter or T(erminal? (L) If you  examining your topic and sub-topic titles. .SK The next-to-last question asked is: .UT 4 Line Spacing? 1=Single, 2=Double, emerely hit the return, your document will be output to the lineprinter driven by your TERAK. If you do not have a line printer,tc. (1) Normally, you will hit return. But, if you want additional lines skipped between each line of your document (perhaps fC not interested in this file, you may simply delete it. At any rate, you'll now know where it came from. 1.1 Alternate Top .AT ............................. 10 .SK 1 1.5.2 Bottom Title .BT .................................. 11 .SK 1 1.5.2.1 Alternate Bottom .AB .......................... 11 .SK 1 1.5.3 Page Substitute .PS ...........INI/NOQ B: INI/NOQ C: COP/DEV/NOQ A: B: COP/DEV/NOQ A: C: DEL/NOQ B:CID.FOR,B:STRING.FOR DEL/NOQ C:CID.FOR,C:STRING.FOR SQ.................... 11 .SK 2 2. TEXT FORMATTING .......................................... 13 .SK 1 2.1 Fill Mode .FIor proofreading), you may enter a value other than one. A three would provide for triple spacing, that is, text printed on eve/NOQ B: SQ/NOQ C: ry third line (two blank lines in between). .SK The final question is: .UT 4 Number of Copies? (1) If only a cariage return is typed, CID will produce one copy of your document. Should more than one copy be necessary, then enter the number of copies desired followed by a carriage return. You will probably specify more than one copy if you are generating form letters. In thatINI/BA/NOQ B: INI/BA/NOQ C: COP/DEV/NOQ A: B: COP/DEV/NOQ A: C: DEL/NOQ B:BUILD.COM,B:CID.FOR,B:STRING.FOR DEL/NOQ C:BUILD. event, and if you have used the .KJ (Kill Job) directive in one of your imbedded files, enter a value sufficiently large suchCOM,C:CID.FOR,C:STRING.FOR SQ/NOQ B: SQ/NOQ C:  that the .KJ directive itself actually controls the maximum number of copies. .SK 1 As soon as all questions have been answered, CID will attempt to read your text file and process it to produce your document. In addition, CID creates a permanent file (TOC.DAT) on the disk in your DK drive, normally QX0, to contain the table of contents. Upon finishing the body of your docu 1.4.1 Linelength .LL .................................... 9 .SK 1 1.4.2 Fill Length .FL ............................ment, this table of contents file is read back in, processed, and your table of contents is produced. Since this file is in CID....... 9 .SK 1 1.4.3 Content's Length .CL .............................. 9 .SK 1 1.5 TITLES ................... format, you may edit it, rename it and use it as a CID text file to generate another table of contents directly! If you are ............................. 10 .SK 1 1.5.1 Top Title .TT ..................................... 10 .SK 1 1.5.D  Adjust .RA .................................. 16 .SK 2 3. SPACING AND LINE SKIPS ................................... 17 ................................. 27 .SK 1 With Pascal ............................................... 27 .SK 1 An exSK 1 3.1 Skip Lines .SK ........................................ 17 .SK 1 3.2 Reserve Block .RB ......................ample (using RT-11) .................................. 27 .SK 2 RUNNING CID ............... 17 .SK 1 3.3 Line Spacing .LS ...................................... 17 .SK 2 4. TOPIC TITLES ........ 29 .SK 1 RUN QX?:CID ............................................... 29 .SK 1 Document Filename? (SOURCE(.DOC)) ..................................... 19 .SK 1 4.1 Numbered Topic .NT .................................... 19 .SK 1 ....................... 29 .SK 1 Version Number? (1) ..................................... 29 .SK 1 Output Devic 4.1.1 Contents Skip .CS ................................. 20 .SK 1 4.1.2 Level Cutoff .LC ............................e is L(ineprinter or T(erminal? (L) ......... 29 .SK 1 Terminal in P(ause or N(opause mode? (P) ................ 29 .S...... 20 .SK 1 4.2 Un-numbered Topic .UT ................................. 20 .SK 2 5. MISCELLANEOUS ................K 1 Starting Page? (1) ...................................... 30 .SK 1 Line Spacing? 1=Single, 2=Double, etc. (1)  ......................................... 13 .SK 1 2.1.1 Indent .IN ........................................ 13 .SK ............................ 21 .SK 1 5.1 Conditional Imaging .IF ............................... 21 .SK 1 5.2 Imbed1 2.1.1.1 Undent .UN .................................... 13 .SK 1 2.1.1.2 Paragraph Offset .PO ............... File .IM ........................................ 21 .SK 1 5.2.1 End File .EF ...................................... 2........... 14 .SK 1 2.1.2 Break .BR ......................................... 14 .SK 1 2.1.3 Underline (filled 2 .SK 1 5.2.2 Kill Job .KJ ...................................... 22 .SK 1 5.3 Expand Line .XP ....................mode) .UL ....................... 14 .SK 1 2.2 Fill Ragged .FR ....................................... 15 .SK 1 2.3 ................... 22 .SK 1 5.4 Comments .CM .......................................... 23 .SK 1 5.5 Directive IndiNo Fill .NF ........................................... 15 .SK 1 2.3.1 Center .CE ......................................cator .DI ............................... 23 .SK 1 5.6 Zone .ZN .............................................. 23 .SK 1.. 15 .SK 1 2.3.2 Tabset .TB ........................................ 15 .SK 1 2.3.2.1 Tab Substitute .TS .... 5.7 Left Margin .LM ....................................... 23 .SK 2 ERROR MESSAGES ........................ 16 .SK 1 2.3.3 Underline (no fill mode) .UL ...................... 16 .SK 1 2.3.4 Right 25 .SK 2 CREATING A CID FILE 27 .SK 1 With RT-11 ................E ..................................... 19 .SK 1 4.1 Numbered Topic .NT .................................... 19 .SK 1 ....................... 29 .SK 1 Version Number? (1) ..................................... 29 .SK 1 Output Devic 4.1.1 Contents Skip .CS ................................. 20 .SK 1 4.1.2 Level Cutoff .LC ............................e is L(ineprinter or T(erminal? (L) ......... 29 .SK 1 Terminal in P(ause or N(opause mode? (P) ................ 29 .S...... 20 .SK 1 4.2 Un-numbered Topic .UT ................................. 20 .SK 2 5. MISCELLANEOUS ................K 1 Starting Page? (1) ...................................... 30 .SK 1 Line Spacing? 1=Single, 2=Double, etc. (1) ............................ 21 .SK 1 5.1 Conditional Imaging .IF ............................... 21 .SK 1 5.2 Imbed.............. 30 .SK 1 Number of Copies? (1) ................................... 30   File .IM ........................................ 21 .SK 1 5.2.1 End File .EF ...................................... 22 .SK 1 5.2.2 Kill Job .KJ ...................................... 22 .SK 1 5.3 Expand Line .XP ....................................... 22 .SK 1 5.4 Comments .CM .......................................... 23 .SK 1 5.5 Directive Indicator .DI ............................... 23 .SK 1 5.6 Zone .ZN .............................................. 23 .SK 1 .NF .BT //-&-// .LL 65 .SK 2 INTRODUCTION 1 .SK 1 What is CID? ... 5.7 Left Margin .LM ....................................... 23 .SK 2 ERROR MESSAGES ........................................... 1 .SK 1 CID's Design Philosophy ................................... 1 .SK .............. 30 .SK 1 Number of Copies? (1) ................................... 30   25 .SK 2 CREATING A CID FILE 27 .SK 1 With RT-11 ................................................ 27 .SK 1 With Pascal ............................................... 27 .SK 1 An example (using RT-11) .................................. 27 .SK 2 RUNNING CID  29 .SK 1 RUN QX?:CID ............................................... 29 .SK 1 Document Filename? (SOURCE(.DOC)) F ............ 3 .SK 1 Page Control .............................................. 3 .SK 1 Special Control .........11 .SK 1 1.5.2.1 Alternate Bottom .AB .......................... 11 .SK 1 1.5.3 Page Substitute .PS ............................................. 4 .SK 2 OPERATIONAL MODES 5 .SK 1 Fil.................... 11 .SK 2 2. TEXT FORMATTING .......................................... 13 .SK 1 2.1 Fill Mode .FIled Mode ............................................... 5 .SK 1 No Fill Mode ........................................... ......................................... 13 .SK 1 2.1.1 Indent .IN ........................................ 13 .SK ... 5 .SK 2 THE CONTROL DIRECTIVE 5 .SK 1 Directive Format .................1 2.1.1.1 Undent .UN .................................... 13 .SK 1 2.1.1.2 Paragraph Offset .PO ........................................ 6 .SK 2 CONTROL DIRECTIVES EXPLAINED 7 .SK 2 1. PAGE AND LI........... 14 .SK 1 2.1.2 Break .BR ......................................... 14 .SK 1 2.1.3 Underline (filled NELENGTH CONTROL .............................. 7 .SK 1 1.1 Pagelength .PL ........................................ 7 mode) .UL ....................... 14 .SK 1 2.2 Fill Ragged .FR ....................................... 15 .SK 1 2.3 .SK 1 1.2 Page Number .PN ....................................... 7 .SK 1 1.3 Page Eject .PA ........................No Fill .NF ........................................... 15 .SK 1 2.3.1 Center .CE ...................................................... 7 .SK 1 1.3.1 Odd Page .OP ...................................... 8 .SK 1 1.3.2 Even Page .EP.. 15 .SK 1 2.3.2 Tabset .TB ........................................ 15 .SK 1 2.3.2.1 Tab Substitute .TS .... ..................................... 8 .SK 1 1.4 LINELENGTHS ........................................... 9 .SK 1 ........................ 16 .SK 1 2.3.3 Underline (no fill mode) .UL ...................... 16 .SK 1 2.3.4 Right 1.4.1 Linelength .LL .................................... 9 .SK 1 1.4.2 Fill Length .FL ............................ Adjust .RA .................................. 16 .SK 2 3. SPACING AND LINE SKIPS ................................... 17 ........ 9 .SK 1 1.4.3 Content's Length .CL .............................. 9 .SK 1 1.5 TITLES ...................SK 1 3.1 Skip Lines .SK ........................................ 17 .SK 1 3.2 Reserve Block .RB ................................................... 10 .SK 1 1.5.1 Top Title .TT ..................................... 10 .SK 1 1.5................ 17 .SK 1 3.3 Line Spacing .LS ...................................... 17 .SK 2 4. TOPIC TITLES ........ 2 FEATURES OVERVIEW 3 .SK 1 Format Control ................................1.1 Alternate Top .AT ............................. 10 .SK 1 1.5.2 Bottom Title .BT .................................. G ample (using RT-11) .................................. 27 .SK 2 RUNNING CID  .................................... 19 .SK 1 4.1.1 Contents Skip .CS ................................. 20 .SK 1  29 .SK 1 RUN QX?:CID ............................................... 29 .SK 1 Document Filename? (SOURCE(.DOC))  4.1.2 Level Cutoff .LC .................................. 20 .SK 1 4.2 Un-numbered Topic .UT ................................................................ 19 .SK 1 4.1 Numbered Topic .NT .................................... 19 .SK 1 ....................... 29 .SK 1 Version Number? (1) ..................................... 29 .SK 1 Output Devic 4.1.1 Contents Skip .CS ................................. 20 .SK 1 4.1.2 Level Cutoff .LC ............................e is L(ineprinter or T(erminal? (L) ......... 29 .SK 1 Terminal in P(ause or N(opause mode? (P) ................ 29 .S...... 20 .SK 1 4.2 Un-numbered Topic .UT ................................. 20 .SK 2 5. MISCELLANEOUS ................K 1 Starting Page? (1) ...................................... 30 .SK 1 Line Spacing? 1=Single, 2=Double, etc. (1) ............................ 21 .SK 1 5.1 Conditional Imaging .IF ............................... 21 .SK 1 5.2 Imbed.............. 30 .SK 1 Number of Copies? (1) ................................... 30   File .IM ........................................ 21 .SK 1 5.2.1 End File .EF ...................................... 22 .SK 1 5.2.2 Kill Job .KJ ...................................... 22 .SK 1 5.3 Expand Line .XP ....................................... 22 .SK 1 5.4 Comments .CM .......................................... 23 .SK 1 5.5 Directive Indicator .DI ............................... 23 .SK 1 5.6 Zone .ZN .............................................. 23 .SK 1L ...................... 16 .SK 1 2.3.4 Right Adjust .RA .................................. 16 .SK 2 3. SPACING AND  5.7 Left Margin .LM ....................................... 23 .SK 2 ERROR MESSAGES LINE SKIPS ................................... 17 .SK 1 3.1 Skip Lines .SK ........................................ 17 . 25 .SK 2 CREATING A CID FILE 27 .SK 1 With RT-11 ................SK 1 3.2 Reserve Block .RB ..................................... 17 .SK 1 3.3 Line Spacing .LS ....................................................... 27 .SK 1 With Pascal ............................................... 27 .SK 1 An ex............... 17 .SK 2 4. TOPIC TITLES ............................................. 19 .SK 1 4.1 Numbered Topic .NTH ................................ 27 .SK 1 An example (using RT-11) .................................. 27 .SK 2 RUNNING............ 3 .SK 1 Page Control .............................................. 3 .SK 1 Special Control ......... CID 29 .SK 1 RUN QX?:CID ................................................................................ 4 .SK 2 OPERATIONAL MODES 5 .SK 1 Fil. 29 .SK 1 Document Filename? (SOURCE(.DOC)) ....................... 29 .SK 1 Version Number? (1) ..............led Mode ............................................... 5 .SK 1 No Fill Mode .................................................................. 29 .SK 1 Output Device is L(ineprinter or T(erminal? (L) ......... 29 .SK 1 Terminal in ... 5 .SK 2 THE CONTROL DIRECTIVE 5 .SK 1 Directive Format .................P(ause or N(opause mode? (P) ................ 29 .SK 1 Starting Page? (1) ...................................... 30 .S......................... 6 .SK 2 CONTROL DIRECTIVES EXPLAINED 7 .SK 2 1. PAGE AND LI...... 20 .SK 2 5. MISCELLANEOUS ............................................ 21 .SK 1 5.1 Conditional Imaging .IF ...K 1 Line Spacing? 1=Single, 2=Double, etc. (1) .............. 30 .SK 1 Number of Copies? (1) ................................................. 21 .SK 1 5.2 Imbed File .IM ........................................ 21 .SK 1 5.2.1 E.............. 30  nd File .EF ...................................... 22 .SK 1 5.2.2 Kill Job .KJ ...................................... 22 .SK 1 5.3 Expand Line .XP ....................................... 22 .SK 1 5.4 Comments .CM .......................................... 23 .SK 1 5.5 Directive Indicator .DI ............................... 23 .SK 1 5.6 Zone .ZN .............................................. 23 .SK 1 5.7 Left Margin .LM ....................................... 23 .SK 2 .NF .BT //-&-// .LL 65 .SK 2 INTRODUCTION 1 .SK 1 What is CID? ... ERROR MESSAGES 25 .SK 2 CREATING A CID FILE ........................................... 1 .SK 1 CID's Design Philosophy ................................... 1 .SK  27 .SK 1 With RT-11 ................................................ 27 .SK 1 With Pascal ............... 2 FEATURES OVERVIEW 3 .SK 1 Format Control ................................I ....... 9 .SK 1 1.4.3 Content's Length .CL .............................. 9 .SK 1 1.5 TITLES ...................SK 1 3.2 Reserve Block .RB ..................................... 17 .SK 1 3.3 Line Spacing .LS .................................................... 10 .SK 1 1.5.1 Top Title .TT ..................................... 10 .SK 1 1.5................ 17 .SK 2 4. TOPIC TITLES ............................................. 19 .SK 1 4.1 Numbered Topic .NT1.1 Alternate Top .AT ............................. 10 .SK 1 1.5.2 Bottom Title .BT ..................................  .................................... 19 .SK 1 4.1.1 Contents Skip .CS ................................. 20 .SK 1 11 .SK 1 1.5.2.1 Alternate Bottom .AB .......................... 11 .SK 1 1.5.3 Page Substitute .PS ........... 4.1.2 Level Cutoff .LC .................................. 20 .SK 1 4.2 Un-numbered Topic .UT ............................................... 11 .SK 2 2. TEXT FORMATTING .......................................... 13 .SK 1 2.1 Fill Mode .FI...... 20 .SK 2 5. MISCELLANEOUS ............................................ 21 .SK 1 5.1 Conditional Imaging .IF ... ......................................... 13 .SK 1 2.1.1 Indent .IN ........................................ 13 .SK ............................ 21 .SK 1 5.2 Imbed File .IM ........................................ 21 .SK 1 5.2.1 E1 2.1.2 Undent .UN ........................................ 13 .SK 1 2.1.3 Break .BR ..............................nd File .EF ...................................... 22 .SK 1 5.2.2 Kill Job .KJ ...................................... 2........... 14 .SK 1 2.1.4 Underline (filled mode) .UL ....................... 14 .SK 1 2.2 Fill Ragged .FR ......2 .SK 1 5.3 Expand Line .XP ....................................... 22 .SK 1 5.4 Comments .CM .......................NELENGTH CONTROL .............................. 7 .SK 1 1.1 Pagelength .PL ........................................ 7 ................................. 14 .SK 1 2.3 No Fill .NF ........................................... 15 .SK 1 2..SK 1 1.2 Page Number .PN ....................................... 7 .SK 1 1.3 Page Eject .PA ........................3.1 Center .CE ........................................ 15 .SK 1 2.3.2 Tabset .TB ...................................................... 7 .SK 1 1.3.1 Odd Page .OP ...................................... 8 .SK 1 1.3.2 Even Page .EP.. 15 .SK 1 2.3.2.1 Tab Substitute .TS ............................ 15 .SK 1 2.3.3 Underline (no fill mode) .U ..................................... 8 .SK 1 1.4 LINELENGTHS ........................................... 9 .SK 1 L ...................... 16 .SK 1 2.3.4 Right Adjust .RA .................................. 16 .SK 2 3. SPACING AND  1.4.1 Linelength .LL .................................... 9 .SK 1 1.4.2 Fill Length .FL ............................LINE SKIPS ................................... 17 .SK 1 3.1 Skip Lines .SK ........................................ 17 .J  ERROR MESSAGES 25 .SK 2 CREATING A CID FILE clxvi P 27 .SK 1 With RT-11 ................................................ 27 .SK 1 With Pascal ...............P................................ 27 .SK 1 An example (using RT-11) .................................. 27 .SK 2 RUNNINGP .#&_+$0123456789 CID 29 .SK 1 RUN QX?:CID ............................................... 29 .SK 1 Document Filename? (SOURCE(.DOC)) ....................... 29 .SK 1 Version Number? (1) ..................................... 29 .SK 1 Output Device is L(ineprinter or T(erminal? (L) ......... 29 .SK 1 Terminal in P(ause or N(opause mode? (P) ................ 29 .SK 1 Starting Page? (1) ...................................... 30 .SK 1 Line Spacing? 1=Single, 2=Double, etc. (1) .............. 30 .SK 1 Number of Copies? (1) ................................... 30  &s55 TRj3 T ................... 23 .SK 1 5.5 Directive Indicator .DI ............................... 23 .SK 1 5.6 Zone .ZN .............................................. 23 .SK 1 5.7 Left Margin .LM ....................................... 23 .SK 2d2 mdK r. Don't worry, CID uses "software" page ejects regardless of your output device! .SK The next question is: .SK .NF #Start directly! If you are not interested in this file, you may simply delete it. At any rate, you'll now know where it came from.   ޲4 m E% w6% C ˇɕ s ing Page? (1) .FI .SK Normally, CID will begin producing your document starting at page one. And, if that is your wish, then simply type the carriage return. Often times, however, you may need to reproduce only a specific page. This may occur, for example, after you have corrected a spelling error. Another handy use of this facility is to enter a page number at or beyond the number of pages your document contains to cause CID to produce only the table of contents. You may want to do this for cher having providing the document version number, the next question is: .NF .SK #Output Device is L(ineprinter or T(erminal? (Lcking the logical flow of a technical document by examining your topic and sub-topic titles. .SK The final question asked is:) .FI .SK If you merely hit the return, your document will be output to the lineprinter driven by your TERAK. If you do not  .NF .SK #Line Spacing? 1=Single, 2=Double, etc. (1) .FI .SK Normally, you will hit return. But, if you want additional lihave a line printer, then you will have to enter a "T" to cause output to your terminal. If this is the case, CID will respondnes skipped between each line of your document (perhaps for proofreading), you may enter a value other than one. A three would with an additional question: .SK .NF #Terminal in P(ause or N(opause mode? (P) .SK .FI The default here is pause mode if  provide for triple spacing, that is, text printed on every third line (two blank lines in between). .SK 2 As soon as all queyou simply type a carriage return. This causes CID to wait for you to enter a carriage return following each document page pristions have been answered, CID will attempt to read your text file and process it to produce your document. In addition, CID cnted at your terminal. This pause is necessary if you are using a Diablo, Qume or other such terminal for producing final coreates a permanent file (TOC.DAT) on the disk in your DK drive, normally QX0, to contain the table of contents. Upon finishing py on typing paper--you can insert and align a new sheet. If, on the other hand, you are using continuous form paper, as on a the body of your document, this table of contents file is read back in, processed, and your table of contents is produced. SinDECWRITER or Teletype, you may wish to enter an "N". This will cause CID to output to your terminal as if it were a lineprintece this file is in CID format, you may edit it, rename it and use it as a CID text file to generate another table of contentsL tvv :  ?,"""",,,9., .ENDC .ENDM  ffff ( 7  w 7 7 PWpP (CptE`m.E -7 m-  ` ~ x~x tnmhj-fb VXX N` >~D    5  \ < L @ @WORD .WORD WNSIZ .WORD WNRID .WORD WNOFF .WORD WNLEN .WORD WNSTS .ENDM .MACRO .WDBDF W.NID =0 W.NAPR =1 W.NBAS =2LENBUF)=NUMRAL(I) GO TO 100 110 CONTINUE RETURN END . W.NSIZ =4. W.NRID =6. W.NOFF =^O10 W.NLEN =^O12 W.NSTS =^O14 W.NLGH =^O16 WS.CRW =^O100000 WS.UNM =^O40000 WS.ELW =^O20000 WS.MAP =^O400 .ENDM .MACRO .WRITC AREA,CHAN,BUF,WCNT,CRTN,BLK,CODE .IF NDF ...V1 .MCALL .MACS .MACS .ENDC .IF EQ ...V1-1 ...CM5 ...CM0 ...CM0 ...CM0 EMT ^O<220+AREA> .IFF ...CM4 ,,,,,,9., .ENDC .ENDM .MACRO .WRITE AREA,CHAN,BUF,WCNT,BLK,CRTN=#1,CODE .IF NDF ...V1 .MCALL .MACS .MACS .ENDC& f@! ! & et&w `뛉w Z뜉w T띉# B   ` ׮PU ׮PU,  .IF EQ ...V1-1 ...CM5 ...CM0 #1 ...CM0 ...CM0 EMT ^O<220+AREA> .IFF ...CM4 ,,,,,,9., .ENDC .ENDM .MACRO .WRITW AREA,CHAN,BUF,WCNT,BLK,CRTN=#0,CODE .IF NDF ...V1 .MCALL .MACS .MACS #& 5ff@ & 5 EE 爄 Mxdxd za'x v .ENDC .IF EQ ...V1-1 ...CM5 ...CM0 ...CM0 ...CM0 EMT ^O<220+AREA> .IFF ...CM4 ,,,