IMD 1.17: 27/06/2012 8:42:05 UCSD PASCAL SYSTEM VII.0 DISK 3/6 PART NUMBER 61-0011-003 REV A UCSD UTILITES MANUFACTURED ON 6-NOV-80  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lŗkm HBf     &  %C e U7F ?IO ERROR WHILE BOOTING? 7$ ?NOT ENOUGH CORE TO BOOT?   e   ևߕ vߕ 7| SYSTEM.PASCAL? w7b SYSTEM.8510/A? @Aw  `! mG~d!~  ^\F C& J&  0  EN  ~ e  HEe>:C h4 <4 Ca a ae @e 5a , p`Vp`X _~U@pe5w E ŋw Ŋw C!p]]5 AFF   @5 \ 5Tf@f 9a  aW,n`p @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_ % 0 W P @ 0 DP 0  0  w (P 0 v @ @  Q ~@ `U P~e~E w   l9ae9 wVP H 0  % % h 1  "P 0  0 ڇ׭P Z  PASCAL3$e SYSTEM.8510/A\> 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--(' * 񿥆P&  "צPrefix titles byl;G& Prefix is ;:`%\!X0T4P1L5H6vPv v&áٕٕ:D*@:BZ2" (@,(NXF0N>w\ ƁG&צSYSTEM. "á <&ȡ<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 " " ġ  7 ~ \6F& EDITOR צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת  INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE ȡ'  š 7  צback  ġ ɡ7 G : crunched#צPlease re-boot{ X6تPFP') xRev 1R88ת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+צɡ š    H FIؾ&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.2IھPھNéN˄  ˥P۾ܥO4]8+&Filer: W, B, E, K, M, P, V, X, Z [C.4]8ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤ( P!کN˄9!'۹  vڤVڳN . Do you wish to delete anyway? (y/n)תP Yá*KڕJJI IJtx> to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}ת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آ$ ٪P&áצERROR: á<& Please press to continue.۩ߞ á<á / é쾩Í ߂  á߂߂܂܂ áR۾8۾áݩ۾ ۾ á ܕR`  d>h ٪Pצ what marker? -P,-Vۥ    ڞڂ ˡ  !Uقč,Vȡ-,-, ,,-- -- C ƂNƃz   šw^  á  ܂áũؓɍš  ٚáء  á á  á ƂN-R; v< ~*^LLbP& F > Z   ~  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: < > {.+-?/=+ R(eturn to the editor without updatingצ% W(rite to a file name and return <    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 ꕞNIآ Hآ$Iآ Hآ$Iآ#Hآ$Iآ#Hآ$Iآ!Hآȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á $I HIآ"Hآ$Iآ!Hآ$Pأ.Oآ/ POPآ)  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvOآ/ Pآ-Oآ/ Pآ,Oآ/ Pآ,Oآ/ Pآ'Oآ/Pآ:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5'Oآ/Pآ(Oآ/P آ(O آ/أ.áPáPJO>Quit:תP# U(pdate the workfile and leaveצ E(xit without updating XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? Ƃ=fV^vdN  ׷   ׷ U=ˡ צImproper marker specification.  2ꂶ6צMarker exceed ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? Ps file bounds.ĩ :ꕕ,צ[á$  ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ר  צ]ɍٲˍ.ڕ.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ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ= 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ˡ  á> < A&! Copy: B(uffer F(rom file תP  DB EL š ꕞ ĩꕕ Markers: wȡ8 xؤá K멂J IũIĄצ Invalid copy.멂JġNo roommLꩂJIĩIɄIJꩂצ Date Created:  - -  Last Used:  -J IꩂJ멂JꩂJ ĩ Fá * צJump to   -   Jצ Not option d \ةwxؤ xؤ  Not there.ؤ ĩ.\ $ JUMP: B(wi[M=/AT(k) geQ"c&eginning E(nd M(arker תP  Bá)EáMá ةˡة$ ; ~ &(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ؕǟō? ة꾿á٫؞ǀ >              á   ǀd ؂ȡ ؂  ɡit"  Ʉ: á  ؂š!  ؂  P  ɡ          š    šĶ   #<áTń1 á   ˡZ-    ٕةġ-á- ؕ  ؕġ  ø ɡzɄ2  ɡáĸ š# ٩؞؞ ٫ګ    U ؂ \ Í     $%&؂ɡ    rP  ˡPšǀ3Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫ɡ"צNo room to insert. j˄'á ǀ vá(ȡ  á   ꂫꂶÄ  Í  ĄÄ˄Ąۄy á  háOȡ% ˡܡ KIJڶȡ6No insertion to back over.   oڶġd5Please finish u   á áث8   p the insertion   ڶ š Buffer Overflow!!!! á  Ʉګ  ڂ٥ č9h  ^ > ! á ^)š (š  ) <öÍ  áJéé Íɡ f ġ ˄ ń     ɡ$앞 ^ á "Tb   Ȅ5  ɡášĶ  4! á4!~ǠɄ?      !ń9  á      "$"#<á"# !$šToo many$ġצ .á*۾ ń  čġ.צYour pattern is too longInteger 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   3؂ (  P Nġ Integer Ovflw) <á"#]_nlDtٕ ,˄  Má M vá    á< >   ȩMd$ TáátÄ S ٕ܄Lɡ ꕞ ٩ٕٕ (J  ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽ ثLK IٕJ٫ ö ݓ -á- á'* P  á (- áڕ(ڕ( ˡá۫ k 'š á  ö D. ./ Lá .Vá A>á#áR)  M;%*&&<á%&. Tá . VTÍLÍ/SsÍV^0/L(Invalid delimiter.  / צ]: ء% áL(itT(okz9z  Replaceצ'<%esc> aborts, 'R' replaces, ' ' doesn't 9 á Rr˄Fš[Fš9צBuffer 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ǀ Ŷ š 2 á}Aáojũ˄ȍ~ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680á ȥ  Ä: N6.۪PڪP.P [MO^  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 xpected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expen not allowed  134:Illegal type of operand(s)  135:Type of operand must be boolean  136:Set element type must be scalar or sucted  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad expressbrange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with thion)  59:Error in variable  101:Identifier declared twice 102:Low bound exceeds high bound 103:Identifier is not of the apprope declaration  140:Type of variable is not record 141:Type of variable must be file or pointer 142:Illegal parameter solution riate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types  143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not al 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  nds  303:Value to be assinged is out of bounds  304:Element expression out of range  398:Implementation restriction ٨SAáSASAGSAˡߢ ޢ ޢߚߚ  399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file,ؚS AZȡSAATN BY CAT$ COS COP$  not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in sDEF DEL$ DIM DATA END )EXP FOR FN GOSUB GOTO eparate procedure  406:Include file not legal  500:Error while Assembling.  GET$ INPUT IF INS$ INT LET !LEN LOG LN MOD allowed at this nesting level  184:External declatation not allowed in INTERFACE section  185:Segment declaration not allowed in UNIT  186:Labels not allowed in interface section  187:Attempt to open library unsuccessful  188:Unit not declared in previous USES  189:'USES' not allowed at this nesting level  190:Unit not in library  191:File not allowed to be private  192:'USES' must be in interface section  193:Not enough room for this operation  194:Comment must appear 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  25\|'PASCALSYBASICCOMNUMBER2 NUMBER3 NUMBER4 NUMBER5 NUMBER6 NUMBER7 1:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254:NUMBER8 NUMBER9 COMPINITCOMPCLOSPROG Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files II0D0 Copyright(c)1979 Regents of the University of California, San DiegoTION I  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bou  0 ˡ"צWORKFILE EMPTY ˡ"WORKFILE EMPTY ȡ @ˡ/ BˡBB́ʁˡ,;ȡȡؤȡڤ򥀍$yڤáڤ999OOڤ8Ȅؾ áȡؾu {yqm@n q@ m}B R+PRESS SPACEBAR TO CONTINUE OR ESC TO ESCAPE Íá `تP@EEFCCDABKJIHGONM?ȡ @ǿȡ ȡ צ <--R.;٩????=š?=/Iá  IIIڢKګKV 9 צUCSD BASIC Compiler [D0]Ecrtz4xx WORKFILE EMPTY;??$ȡKKK٢I٫I :;ک??)??=š?=/Há)  HHH;ȡȡؤȡڤ򥀍$yۢJ۫JV;>?JˡJJJآHثH. ǀ  H( P7OˡOáOOO9   ˡ\ dȡڤˡ P7 ؕ  ( ٕȄ "M@áNNؚMNEXT "NEW ON #ORD OLD PRINT $POS RETURN &READ %REM  .ۨڤˡ/  ȡ ڤ,  J BWRITERERND STEP SIN STR$ THEN TO - @ǃǞ BREADREA BGOSUB  BRETURN  BGETCHAR BOPENFIL BRANDOM  BAUTOINI BAUTORANLJNJǡǤ Ǜ ǥ Ǧ dz ǼǶǎǐǒ ȡ @ˡ/ BˡBB́ʁˡ,ǭǪǖǽǚǹǬǾP77ǰP87ǷP97ǴP:7DZʁʁġʁʁ.ʁʁʁB BáP;7ǵP<7ǯ>     ,2"X ڤ,  J BWRITEREǎ'æOUTBUFSIZE MOD 512 <> BREADREA BGOSUB  BRETURN  BGETCHAR BOPENFIL BRANDOM  BAUTOINI BAUTORAN >  تP +,+,ȡ+*á1$61./02345- ˡ!( 0'.á" ' %Eá)=++VBء; (;09ō צFRACTION ' %Eá)=AZō009ȄA 0"A$á("'FNÄ ؤؤ٢ٟ٢٢٢٢6:+áL LݟˡÄ "SASA 2ˡ áצ RESERVED WORD  "0ˡ  áצ RESERVED WORDF% Pá B٤áٮ;%٩Lé:* " ݢˡݢɡܢ Äá= ˡ!#?ˡצ END OF LINE צ RESERVED WORDÄ'Dá) @٤áٮ 'Ac = צ!CHARACTER DOES NOT BEGIN A SYMBOLP"^z&DVXZ0XU;&٩Lé:+Ä ک<(FتPצ <--EXPECTED R8 뾫hLqk>@BDFHJLNPoo   PREAL,Q ˡ+UNEXPECTED END OF INPUT뾫j!! ˡ "ث!STR,INT FUNC OR FNEND׮ *+, ')(VXZ\.0(t|#-áS#+  ˡ $%š EXP TOO BIG׮3%ɡ EXP TOO SMALL׮ġ ڞ$ ڑ$R%09Ȅ 0-ޚš ޮ ܟ f--؟˄#+-؟ˍצ WRO"(&ۼ ꊃ0" , >'צPˡ'P*QNG # DIMSD L.#  + ١ڢ-ܚڢ  .ܮ 3ˡ) #P꿮!!ˡȡ/P*QP> á"Igl/٤áٮ٤ء٤٤٤٤/V0٤áٮ٤MMM BکDȡICښDˡݩCáDIDN'T FIND LINE NUMBER׮ء EEFš T("-ø-+Í"09č צEXPONENT  &   %R)'"˄"! ۢښۢٚءۢݚݩFá۫Fۚ< خ ء C٩DȡצLINE #'S NOT X2á < >.á!!09Ȅ &?"^ōNצORD(c)= IN ORDERڢٚڢؚکDګDE٩FáFɡ Fخ FخF ' t  !CHARACTER DOES NOT BEGIN A SYMBOL׮ٹ=á:$ >á<$7=á;$ <á<$9<á:$ >á;$8 ء٤٤٤٤)/V1؟á2áצ NO ARGUMENTS j2ˡצ ARGUMENTS #(ˡ+,+m42(á#2á1  +á2 >á#H,LáL:+á?LˡFN ALREADY DE؟-ˍ؟ˡצMORE ARGUMENTS -áצLESS ARGUMENTS 3ˡ) #Z 3#٤á UNDEF FN׮+áB٤FINED׮LL9=LˡצFN ALREADY DEFINEDLL9B9š'צ EXCEEDED á UNDEF FN׮) ٤3٤ 7٤á UNDEF FN׮٤3٤2MAX NUMBER OF FUNCTIONS99>C:*á2áw#y ARGUMENT׮ á ظ آ)ض ض 2ˡ( #,Pض -ˡ $ R5á,+á  $62ˡ٢٢(á#-ˡ3ˡ) #آ:+á < D):+á( #خ6 7-ˡ, #خ6 8)ض 7Pض 88<97)ض؟ˡ>(á' Pښ)ٚ:+áLLl  ض 8Pض 88F:)ض 7Pض *;)ض E;)??=8á0#:+á,+:*á P.?ˡצEND OF LINE OR = #,ˡ*,á#;ض *<;"צOLD AND NEW NOT ALLOWED IN FN2ˡ( #=ˡ INT CONST׮  צ INT CONST  3FFEFDCDNNMM*GFDCˡD DNM,H:*áINT MUST BE IN 1..16׮ե ˡ צFILE #'S MAY NOT BE CHANGED , ե ٚ    =ؕOO9bI#u צFN IDS L:#BCDG  #8"=#ع59:7=787EFFEˡצUNRESOLVED FORWARD JMP(S)IHnA?>+ JتPצ <--?ˡ 78b;^KتPצ <--EXPECTED ?ˡ# *RFL#'ˡ VARIABLE׮L#8ˡeس 3ˡ) #L 4'á!#2á0  E=á #62=L#  JˡצTOL# J á#J?ˡ END OF LINE׮L##+3ˡ) #!*á2q4 צFACTOR t>>1á #>( 2??A  9  "ˡ*?ˡ END OF LINE׮L##   ڮ#?6á*4@/á# .á#@#@/á١#0 P 'ˡצ VARIABLE NAMELˡIMPROPER FOR-NEXT NESTING׮K# pM#?>+, C FRACTION NOT ALLOWED׮Kե áצ UNDEF FILEKե #}ل!V ١ؚ'á*'' \   ؾ5#ۡ ڮ< UDATA STATEMENT NOT IMPLEMENTED"#+,-á#+,ȡǀ',O9ġ צ FILLINDICTؚ)> fW#=ˡ LINE NUMBER׮L #2X#=ˡ LINE NUMBER׮L   Aá ةAAٚ&AAٚ á  á " Nˡ NNOMPARATOR׮L#١+خ ,خ @ THEN OR GOTO׮L#=ˡ LINE NUMBER׮L #N#J#,HY  # Z!á#y VARIABLE׮L?>(á-#2á1  8ˡ=L#ˡ צGOTOL# dž=ˡ LINE NUMBER׮L #-á)#=ˡ LINE NUMBER׮L #,P+#2á0  8ˡ=L#+ [COMMAND KEYWORDL0[RRNMJNFOBP>U  KO=ˡ DIMENSION׮Lڢ #-á#ڢQ):W6X2Y.Z*S&(&4 6F:4J(RT*ȡ(ˡ B0ڢbQ#yצARRAY VARIABLELá(#ءeˡARRAY ALREADY EXISTS׮K2 >\ æ genautoinits: seed's offset <> 3 צ$genautoinits: donefile's offset <> 4 æ$genautoinˡ(L#Q ^ˡצARRAY PREEXISTSK2ˡ(L#its: stackptr's offset <> 5 צ$genautoinits: substack's offset <> 6]OO#]   Q 3ˡ)L#-ˡ  PREAD STMT NOT IMPLEMENTED#4á#=ˡ FILE NUMBER׮L#y)?ˡ LINE NUMBER #)ˡ(áA*?ˡצ END OF LINE #FEˡUNRESOLVED FORWARD JMPS\#-á"#y VARIABLE NAME׮L#* Ryצ VARIABLE NAMEL??>(á3 @ٕؕ:.JD.j   4 d H8 @#2á1 P+#2á0   RT#4ás#N>B8XV`JX">VN  (!~!!!! "8""""#z##B$$$$$%R%%%J&~&&<' ]toin=ˡצ INT CONSTL  FRACTION NOT ALLOWED׮Kե áצ UNDEF FILEKե #T-á#Tits: stackptr's offset <> 5 צ$genautoinits: substack's offset <> 6]OO#]    S?>+ , FV#4ás#=ˡצ INT CONSTL  ٩@@؂@ Gá ةGGGٚ (GGٚGġ ؿBBۢٚۢ Aá ةAAٚ&AAٚ á  á " Nˡ NNSLDO SLDO SLDO SLDO SIND SIND SIND SIND SIND SIND SIND SIND REAL STRING BOOLEAN POWER BYTE WORD EXEC-ERRINIT RESET OPEN CLOSE GET PUT SEEK EOF EOLN READINT WRITEINTREADREALWRITREALREADCHARWRITCHARREADSTR WRITESTRWRITBYTSREADLNN WRITELN CONCAT INSERT COPY DELETE POS BLOCKIO GOTOXY IOCHECK NEW MOVELEFTMOVERGHTEXIT UREAD UWRITE IDSEARCHTREESRCHTIME FILLCHARSCAN DRAWLINEDRAWBLOC     TRUNC ROUND SIN COS LOG ATAN LN EXP SQRT MARK RELEASE IORESULTUBUSY PWROFTENUWAIT UCLEAR HALT MEMAVAL SLDC ABI ABR ADI ADR   تPٓX,d-,-ȡ,,"ASSERTION FAILED, REPORT MESSAGE: UV lLAND DIF DVI DVR CHK FLO FLT INN INT LOR MODI MPI MPR NGI NGR LNOT    ,/\Fh2\   ؾSRS SBI SBR SGS SQI SQR STO IXS UNI LDE CSP LDCN ADJ FJP INC IND ȡǀ',O9ġ צ FILLINDICTؚ)>IXA LAO LSA LAE MOV LDO SAS SRO XJP RNP CIP EQU GEQ GTR LDA LDC Aá ةAAٚ&AAٚ á  á " Nˡ NNLEQ LES LOD NEQ STR UJP LDP STP LDM STM LDB STB IXP RBP CBP EQUI تPٓX,d-,-ȡ,,"ASSERTION FAILED, REPORT MESSAGE: UV lGEQI GTRI LLA LDCI LEQI LESI LDL NEQI STL CXP CLP CGP LPA STE BYT EFJ    ,/\Fh2\   ؾNFJ BPT XIT NOP SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL SLDL ȡǀ',O9ġ צ FILLINDICTؚ)>SLDL SLDL SLDL SLDL SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO SLDO  HEN FGET(F); *WHILE (FWINDOW^[0] = ' ') AND NOT FEOF DO FGET(F); *IF FEOF THEN GOTO 1; *CH := FWINDOW^[0]; *IF (CH = '+') OR (CH = '-') THEN ,BEGIN NEG := CH = '-'; FGET(F); CH := FWINDOW^[0] END; *WHILE (CH IN DIGITS) AND NOT FEOF DO ,BEGIN XVALID  Type  word = Packed Array[1..16] Of Boolean; "otherword = Packed Array[0..15] Of 0..1; "stackra = Array[0..30] Of Integer;:= TRUE; .X := X*10 + (ORD(CH)-ORD('0')); .FGET(F); CH := FWINDOW^[0] ,END; *IF FEOF THEN GOTO 1; *IPOT := -1; *IF CH = '. " "PROCEDURE BREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE BWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "Procedure Bgos' THEN ,BEGIN IPOT := 0; .REPEAT FGET(F); CH := FWINDOW^[0]; 0IF CH IN DIGITS THEN 2BEGIN XVALID := TRUE; IPOT := IPOT + 1; ub(Var stackptr: Integer; Var substack: stackra); "Procedure Breturn(Var stackptr: Integer; Var substack: stackra); "Procedure4X := X + (ORD(CH)-ORD('0'))/PWROFTEN(IPOT) 2END .UNTIL FEOF OR NOT (CH IN DIGITS); .IF FEOF THEN GOTO 1 ,END;  Bgetchar(Var s: String); "Function Bopenfile(Var donefile: word; 3Var FIBPTR:FIB;WINDPTR:WINDOWP;FILENUM:INTEGER; 3VAR TITLEá +-Í-ڲzؼ 0:STRING;OLD:BOOLEAN):REAL; "Function Brandom(Var seed: Integer):Real; "Procedure Bautoinits(Var stackptr: Integer; 7Var donef.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓile: Integer; Type  word = Packed Array[1..16] Of Boolean; "otherword = Packed Array[0..15] Of 0..1; "stackra = Arraɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   y[0..30] Of Integer; " "PROCEDURE BREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE BWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGE$ $ ݞ$' ݑ$ $݂ō $݂ġ R); "Procedure Bgosub(Var stackptr: Integer; Var substack: stackra); "Procedure Breturn(Var stackptr: Integer; Var substack: s7Var seed: Integer); "Procedure Bautorandomizedinits(Var stackptr: Integer; AVar donefile: Integer; $  4PASCALSYBASICIO  Var seed: otherword); "  IMPLEMENTATION " "PROCEDURE BREADREAL(*VAR F: FIB; VAR X: REAL*); $LABEL 1; $VAR CH: CHAR;  NEG,XVALID: BOOLEAN; IPOT: INTEGER; "BEGIN $WITH F DO (BEGIN X := 0; NEG := FALSE; XVALID := FALSE; *IF FSTATE = FNEEDCHAR T ɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑBRANDOM BWRITERE BWRITERE  &0 ݕ݂ ؂ ɡ  |, &$*P   ٿ<"$*P   ٿ<"@ PATCH >ޕݕۄ݄ޕݕۄ݄ޚTǐT  ȡە4 N VpPz ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, &$*P   ٿ<"ڪPء š ˡ  צ -- áT vتPBASICIO BGOSUB BGOSUB BAUTOINI BAUTOINI BAUTORAN BAUTORAN BGETCHAR RتPR)ܹUDLR 8BGETCHAR BOPENFIL BOPENFILBREADREA BREADREA BRETURN BRETURN BRANDOM ۳  aA۳ZڪPš  --š----BRANDOM BWRITERE BWRITERE  &.-ġs-&.-0-.--6צ)Error in string. Value defaults to zero..-.$*P   ٿ<"ɡ'צInteger constant overflow.Z áئ-32768תPlá0Paצ Pɡ ّA ZZY3b3LX&OINI BAUTOINI BAUTORAN BAUTORAN BGETCHAR šۛ  ڡ ۛ-ەەC݂$ $ $ȡ%  0 ފ$čV   .ˡ:  EBGETCHAR BOPENFIL BOPENFILBREADREA BREADREA BRETURN BRETURN BRANDOM   /؂Eǀ"G G| GEGGE/؂G Gצ| GEGG䩁㍡5?h#ꓩ鍡E ȡE/؂E/؂E ȡ/؂E/؂`E/؂ȡ.ٛ ٛٛaA6 F FILENAME : < c/r for Unit I/O > E/؂E/؂Pš"ˡ4צ!Error opening file. Ioresult is "ۢB////PG Gצ| GEGGꩁ鍡E ȡE/؂///צ File opened. Unitnumber : 2 ..   ( 0 quits ) PE/؂E/؂E...š.&"ˡ5צ"Error clearing unit. Ioresult is "ۢ to redisplay prompts locknumber is out of range. Highest value is ש**ѥХצRead was successful.OT2ѩ-!צOutput file is not opened./P Pɡ1ѥХRead was successful.1 צHave reached end of file.d3š1ѥХRea  tG  y PȄث+צ Value out range. Defad was successful.1צAlready at block # 0.\4ӡSХ/"ˡ+צ!Error saving block. Ioresult is "ults to 15.   /' /8 //'/8//' Block saved.S/ˡ,צ"Error saving buffer. Ioresult is "צ Block saved.5//8//'/8/n/'/8/ݹI/<//File : צ Length :  צ Current :  ֡+צ Byte 0 : HIGH AT(z\b "$E:Qá /Z18"$UPeVLצ: 0: 2: Byte) Byte 0 : LOW Byteԡ Open : True  Open : Falseӡ%4: 6: 8: 10: 12: 14: 16: 18: 20:צ 22: 24: 26: 28:ȡ$ |צ Unit I/O : True # Unit I/O : Falseצ Unitnumber :  צ   צTrue False   y+00ȡȡق 0/ /   ......צTrueצFalseTrueV/؂/؂0/ /False-ڳ @@ڳTrueצFalse V/؂/؂0f n/-ٳٹá𩃦wP/"/ V//ةȄث5,Value out of range. Maximum block number is ש 'צ Input file must be opened fir0/"/ V//#  ..3-Iɡ-.-I--.-á -I-\:-š -I--á -I- .šII-/a aA-.<צ Invalid input-.á-.: h@..-.N;-Iɩ.Ʉ.é-Ʉ%-I--é.Ʉ -I- -IáI-..-.-.س $XLع?E@A==99:5;1<-CU&#! )!)"$;Qá/Zb<.--šەȡ/ڂٿP>צNumber of bytes : P1~8G$A Zצ!EDIT : D(ump, G(et, R(ead, S(ave,!צ. M(ix, T(yp+++ō,+צ Number of bytes is out of range.What pattern : Pɡצe, I(nfo, F(or, B(ack, ? II.0 OP1!EDIT : V(iew, W(ipe, Q(uit, ? !. Invalid format.++>1.+.ɡצInvalid format.+# OPLTYPE : C(har, H(ex, F(ill, U(p, D(own, L(eft, R(ight, , Q(uitתPHValid format : C<#O~A *3~a * 0*~printable char> or H תP0/3#~~A **6~a ** 0***+>1.+.@צ6Invalid format. Hexdigits ::= 0 ..  d' ȡ0؂ȡ A؂9 , A .. F, a .. f +TChLk \ "$&(*,.02468:<>@DFHJAצ7Invalid forI-.٫弄צmat. Must have prefix character, 'C' or 'H' +-.,+.,.ȡ <<,,57z~\"=PХתPyצPxwvutT BƂGƃsƁƃ#Ƃצ2CHARACTERS : , quits -é-Í -I--.ˡz٥M/KՉHBZOճ aAթճ"չХԡ Х.--ٿ -.<<.é-Ä;#Invalid character-.á-.0006צ/The display will be in characters if printable./צ*The display will be in hexadecimal digits.67 á/Z1* 6ȡ $7.š ..j-š1 ?צ6HEXADECIMAL : 0 .. 9 , A .. F , a .. f , Quits-.ˡإ#Ä..-I--.-á -I-3-š-.-I--.-á -I- 9.ɩ-ɩ.Ä<-- ֡إ3/0Bس~/A $ \C  C  C C-/1Z//ԡPչ2E5A8=394511BV*  ?=;(3צError. File notȡ H    ? open. 9?W2 ;=, "$&.QáAƂGƁƂ"$_ #L" T ɡ Dڡ̀ȡ/ġړƀ ʀ?ˡȡC ٢ڢ٣%٣&ڢ ڢ ٢-٢٢$٢ ̀ƀתPƀȦתPצ[ˡAƀƁ[צ[ƁPƀƀצ:ˡ-ƀƁצ٢$٢ ٢$٢#٢$٢#٢$٢!:ƁPצ:ƀ̀ʀƀ̀ƶƀʀ¾ áʀ̀ʀʀ•ʀʀ٢$ ٢"٢$٢!٢$C٣.٣.٢D̀ʀ•ʀƕšʀđ ʀʀĂ ̀ʀʀẦƀʀĿʀƀʀĞƀړ ?  צ / C٣.C٢)٢)٢/ C٢-٢-٢/ ƀʀʀẰʀġ̀ġړ ƀ ʀ?ʀʀ/<0<B z xC٢,٢,٢/ C٢,٢,٢/ C٢'٢'٢/4 $N0T"$'z"'(8*++-/2.57 9$9l+B9::;r====>?@6@X@h(B"pfxb@DM} C٢'٢'٢/C٢(٢(٢/C٢(  ٢(-˫  áٮ%M- &?ö;}R ˡ(á!9á "  ٢/á#For use with SYSTEM.MISCINFO [S.5b]תPV " š " "Fá ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ  á ١ áزC Cب,ب"٢ ٢ؾ6CC7إEDITORUNSCONTROL áٕٕPC C C C  ھھ˄ C ˡܓݢݢ % LONGSTRING = STRING[255]; $ $SCSCRNCOMMAND = (SCWHOME,SCERASS,SCERASEEOL,SCCLEARLNE,SCCLEARSCN, 5SCUPCURSOR,SCDOWNCURSOR,SCL 1CANBREAK: BOOLEAN; { Valid break key } 1HASPREFIX: PACKED ARRAY[SCKEYCOMMAND] OF BOOLEAN; 1CH: PACKED ARRAY[SCKEYCOMEFTCURSOR,SCRIGHTCURSOR); 5 $SCKEYCOMMAND = (SCBACKSPACEKEY,SCDC1KEY,SCEOFKEY,SCETXKEY,SCESCAPEKEY, 4SCDELKEY,SCUPKEY,SCDOWNMAND] OF CHAR /END; { Keyboard } !  SCBLANKAREA : PACKED ARRAY[0..SCMAXSW] OF CHAR; " "PROCEDURE SCINIT; "CONST KEY,SCLEFTKEY,SCRIGHTKEY,SCNOTLEGAL); 0  SCCHOICE = (SCGET,SCGIVE); $  VAR "SCVERSION : STRING; "SCDATE : SCDAȡ ٢ڢ٣%٣&ڢ ڢ ٢-٢٢$TETYPE;   PROCEDURE SCUSEDATE(DOWHAT:SCCHOICE; VAR TDATE: SCDATETYPE);  PROCEDURE SCERASETOEOL(X,LINE: INTEGER);  PROCEDURE٢ ٢$٢ ٢$٢#٢$٢#٢$٢   TYPE $   TYPE $   TYPE $   TY SCINIT;  PROCEDURE SCLEFT;  PROCEDURE SCRIGHT;  PROCEDURE SCUP;  PROCEDURE SCDOWN;  PROCEDURE SCGETCCH(VAR CH: CHAR; RETURPE $   TYPE $   TYPE $   TYPE $ NONMATCH: SCCHSET);  PROCEDURE SCCLRSCREEN;  PROCEDURE SCCLRLINE(Y: INTEGER);  PROCEDURE SCHOME;  PROCEDURE SCERASEOS(X,LINE   TYPE $   TYPE $   TYPE $ : INTEGER);  FUNCTION SCSCRNHAS(WHAT: SCSCRNCOMMAND): BOOLEAN;  FUNCTION SCHASKEY(WHAT: SCKEYCOMMAND): BOOLEAN;    TYPE $   TYPE $   TYPE $  FUNCTION SCMAPCRTCOMMAND(VAR KCH: CHAR): SCKEYCOMMAND;  FUNCTION SCPROMPT( 3LINE:SCLONGSTRING; XCURSOR,YCURSOR,XPOS,WHERE:   TYPE $   TYPE $   TYPE $ INTEGER; 3RETURNONMATCH:SCCHSET; NOCHARBACK: BOOLEAN 2): CHAR;   IMPLEMENTATION  CONST "SCEOL = 13; SCLF = 10; SCDC1 = 1   TYPE $   TYPE $   TYPE $   TY7;  SCMAXSW = 84; {Maximum allowable screenwidth} "  VAR "TRANSLATE : PACKED ARRAY[CHAR] OF SCKEYCOMMAND; "SCFILLIT : STPE $   TYPE $   TYPE $   TYPE $ RING[11]; (*For writing in front of controls*) "SCSCREEN : PACKED RECORD (* For sending to screen *) 0PREFIX: CHAR; 0HEIGHT,   TYPE $   TYPE $   TYPE $ WIDTH: 0..255; 0CANUPSCROLL,CANDOWNSCROLL,SLOW: BOOLEAN; 0HASPREFIX: PACKED ARRAY[SCSCRNCOMMAND] OF BOOLEAN; 0CH: PACK$SCDATETYPE = PACKED RECORD 6MONTH: 0..12; 6DAY: 0..31; 6YEAR: 0..100 4END; $ $SCCHSET = SET OF CHAR; $ $SCED ARRAY[SCSCRNCOMMAND] OF CHAR .END; {screen} ) "SCKEYBRD : PACKED RECORD (*For recieving from keyboard *) 1PREFIX: CHAR;& 7إáٕٕP   SCSCRNHA:\SCSCREEN#^k} +8JW*LzSCGETCCH  ھ ھ˄  ˡܓݢݢSCGETCCH |FSCKEYBRDRt~#CPp}!SCLEFT  \    SCLEFT SCVERSIO)SCFILLIT\ySCRIGHT SCRIGHT SCBLANKA+-ȡH    ?T&SCINIT SCINIT SCCLRSCR SCCLRSCR SCCLRLIN SCCLRLIN L" Tɡ ڡ̀ȡ/ġړƀʀSCDOWN SCDOWN SCHOME SCHOME %SCUP SCUP SCERASET ?ˡ̀̀ƀתPƀȦתPצ[ˡAƀƁ[צ[ƁPƀƀצ:ˡ-ƀSCERASET JFpSCERASEO SCERASEO )SCPROMPT SCPROMPTSCUSEDAT Ɓצ:ƁPצ:ƀ̀ʀƀ̀ƶƀʀ¾ áʀ̀ʀʀ•SCUSEDAT TRANSLAT @i5bCONTROL CONTROL  JZjz!?a!٢$ ٢"٢$٢!٢$٣.٣.ʀƕ̀ʀ•ʀƕšʀđ ʀʀĂ ̀ʀʀẦƀʀĿʀƀʀĞƀړ ?  צ ٢/ ٣.٢)٢)٢/ ٢-٢-٢ ƀʀʀẰʀġ̀ġړ ƀʀ?ʀʀ/<0<Bd/ ٢,٢,٢/ ٢,٢,٢/ ٢'٢'.Rp(:NתPצ[ˡAƀƁ[צ[ƁPƀƀצ:ˡ-ƀ٢/٢'٢'٢/٢(٢(٢/٢(  ٢(Ɓצ:ƁPצ:ƀ̀ʀƀ̀ƶƀʀ¾ áʀ̀ʀʀ• ٢/á#For use with SYSTEM.MISCINFO [S.5b]תPV " š " ʀƕ̀ʀ•ʀƕšʀđ ʀʀĂ ̀ʀʀẦƀʀĿʀƀʀĞƀړ ?  צ "F áزC Cبب"٢ ٢ؾ6SCONTROLSCDATE SCHASKEY SCHASKEYSCMAPCRT SCMAPCRTSCSCRNHA ' SCUSEDAT TRANSLAT @i5bCONTROL CONTROL  JZjz!?a ȡ " , , $:&*צIMIN  SCCLRSCR SCCLRLIN SCCLRLIN Lost workfile sourceEצ Workfile .š. צread in*צNo workSCDOWN SCDOWN SCHOME SCHOME %SCUP SCUP SCERASET file to read 23r"  $áɡ|  ؂SCERASET JFpSCERASEO SCERASEO )SCPROMPT SCPROMPTSCUSEDAT ؂؀ $ˡ5!צOutput file error: Help$؂ɡ_ꕕ $SCUSEDAT TRANSLAT @i5bCONTROL CONTROL  JZjz!?aˡ7!Output file error. HELP!$!$٫s .$ $  dnPASCALSYSEDITOR [%Fצ@Quit: U(pdate work file, E(xit without update, R(eturn to editorP'UuÍwצ*SYSTEM.WRK.TEX T$?&SYSTEM.WRK.TEXTת*SYSTEM.WRK.CODEת$$צ.  %צ!Yet Another Line Oriented Editor.5Advance Beginning Change Delete Get Insert Jump;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIAצ5Kill List Macro Now 8Quit Read Save Unsave Verifš@$á ەš ۞%צnot enough space  y Write eXchange ?elp%Ctrl-X (can) to cancel command input.צ TheMIN MIN  SCCLRSCR SCCLRLIN SCCLRLIN $$ "ˍ܍.$צnot enough spaceYš7SCDOWN SCDOWN SCHOME SCHOME %SCUP SCUP SCERASET  ނš $۞ꂫ@\ <YALOE:%צ - ? SCERASET JFpSCERASEO SCERASEO )SCPROMPT SCPROMPTSCUSEDAT  for details ڕLjڕńܓܡɡ}2 ȡ 2(  macros you have defined are:צ -  ȡ&ˡ צ - צYour text buffet foundɡ؂؂ث Z  ڂš@%insertion truncated, not enour is  צ bytes,  צ of which are filled, leaving  צYour 'save' text is gh spaceš'צ'save' area deleted.ڂڂڞڂڂګ ءڂ צ bytes@   +  á ɶɄ ōt: ȡؕؕؕꕕ ٓáǀáǀ١álšg# %<D ȡ ؕ ,ɶ ō# á 2 dō áȡ ág orܡ צ macro haltedثګ٫ܡZ  ńؿ؞$"á  (^X).á  áá 0ؓÄ(צ please finishx$(.TEXT-"á DFile: צ is in error. Not read  ġ܂$;|+<  : IS IN ERROR, COMMAND STOPPED.$File name error.؂,Z  ȡٕؕȡ1צNot enough room to saveD ȡ2 ڂɍ' ڂÍ*^ n  inȡ ؞؞táS؂ڂɡڞ؞؂$צnot enough á  ꕸɡɡؕث$ɍ ؕꕕl ɡ! spaceh Ȅؿ؞ؾ.ؾ]˄צ.TEXTÄȡ " ġ 9nvɡ (.TEXT-(ؾ.á$"áSFile: .צ is in error. Write not done.K؂ˡfġ!צ Find too long9؞9ؿؿڍڡ'9צ no! Illegal title؂(x ɡ 񗜳Ʉ)  ۳ $?zx{ڂ ˡ  !Uقčs^  á ܂áũywusqoqnHFyFDB@:<>@BD ؓɍš  ٚáء  d  ݂ɡ ݂ 0 d ,+ EDITOR ەݕ : X-š 0ۍ-۳( , 쾂0ǀ ō۳ $ˡ =á INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCOREǼܡڑġ۳I۹   %  Unimplemented ۳ $?zx{L2 Version L.2aywusqoqnHFyFDB@:<>@BD ɡ š    ڶ˄Oڶ(á6<$ƁP* $.t|XBl  \  44 Nb2$ˡ =á(á%ڶ'áڶ'á ڤpڳ * Ǽܡڑġ۳I۹   %  Unimplementedˡ عI٢L?٢0٢!٢ QD9, ۳ $?zx{ FP    ywusqoqnHFyFDB@:<>@BD FP&  ٪P&áצERROR:  3(߲ZhgV[^?`%2^j|~rN8bR**DXV+ Nb2$ˡ =áá<& Please press to continue. áR۾5۾á۾ Ǽܡڑġ۳I۹   %  Unimplemented۾ á ܕeP ^ۥ   ڞ* ȍ, á  ߞ á7á + 꾩Í ߂  áD#ƁƂƁƂ   šá á  á ƁƁ߂߂܂܂  iZ6^ ٪Pצ what marYB~8NP" < x  v p H . F J%ޤڕ ڕker? -P,-V,Vȡ-,-, ,,-- -- C צBad disk tran٤ؚٳ قؚ.  ȡض ض    .TEXTĄ sfer. $ۓMá%oˡ$#oˡ$ۓh"Pצ.TEXTUPP.BACKUPV ˡd ~^򫃂 éȄéĄۓMá%oˡ$#oˡ$ۓt!š ȡn   CCP: vتP:,,š,*á.:áǸ ބu!ޡio oٞȡ/FݤáFݤZݤZݤ܂.&--- d-.8.:l5$55(Ɓ3"ˡ ۡ צRepeatfactor > 10,000 \ á 킫6ڕ ق.ܫǸ ބ{!ޡoo oٕٕٞȡ1FݤkKThere is no room to copy the deletion. Do you wish to delete anyway? (y/n)תP Yá(ڕ񩁠áFݤZݤZݤ܂.ܕۂ镫ܑ۫۞hPpġۥoە ڂ ٕ ݞ݂ ˡ !U܂oەە "ȡTFܤåZܤĄZܤȄ-á Fܤ FܤZܤZܤە.Zfڡ?١ 1ۥ č%`ȡ3k %á   ۂɡ.%ߡצRan out of disk roomFڤá ZڤġZڤZڤ؂ ĩɄ ؂ Tfګ ء6ÍɡɄ ڕڕ ȡ*FޤáZޤZޤڕ ڕ꾩 꾩 쩃áܕܕ    á ۂɡ.%ߡRan out of disk roomߓá  -á á@  Äە߂ũńɄ٫  š2ꕞꕚꕫ + Readingˡצ Reading file.!n  ABC$F>Quit:תPF# U(pdate the workfile and leaveצ% E(xit DFIJLM N P Q R SVXZ,>.+-?/=<('((but workfile not updated)1 R(eturn to the editor without doing anything $ '+   09̂GʂGȡ *    Ʉ?Í ɡ RáEá{šc"á=-Backup file not present (tried to remove it).צ>Edit:V ̂GƂGƂG:ƂG&ƂGP "ˡWorkfile lostWriting Cáš LPAGE+1>RPAGE*.4No workfile is present. File? ( for no file ) תP P á *SYSTEM.WRK.TEXTתP "ˡˡˡ"ˡ܂܂á̂2ʂ2ȡ,FۤġFۤ  צP"ˡ System volume not on line5ˡ!צFۤ򥁤ˡצThe workfile, צ, is  File system terminal error?&SYSTEM.WRK.TEXTתצ*SYSTEM.WRK.CODEצצ*SY blocks long.š'The backup file is צWriting out the fileP |_`STEM.WRK.TEXTJ צNot present. File? P"á𥁤  Í >jp Writing Cáš LPAGE+1>RPAGE*%̂GʂGʂGʂGʂGʂG ʂG ̂GʂGȡ"ˡˡˡ"ˡ܂܂á̂2ʂ2ȡ,FۤġFۤצCan't open backup file! کɡ$Not enough room for backup! צ Copying to کܤܚAẐGʂGȡܤAaẑGʂGȡܤA09̂GʂGȡܤA    oV F PˡReading Page Zero / /ȡ"F F   ˡ4Rp>r@@n\ &SYSTEM.WRK.TEXTתצ*SYSTEM.WRK.CODEצצ*SYצWriting Page Zero"ˡצBad input file.ˡCˡRan out of room."ˡצOSTEM.WRK.TEXTJ צNot present. File? P"á𥁤  Í >n backup file.ققáîګ^צ>Edit:צتP:,,š,*á.:.&--- d-.8.:l ,  blocks long.š'The backup file is צWriting out the fileP |_`"ˡ Disk Error.Ƃ=Ƃ=fV^x0v*  ׷  צImproper marker specification.  2肶##>צMarke ׷ U=ˡ ׷     ׷     Ƃ=ƃir exceeds file bounds. :蕕*צ[á$ צ& Copy: From what file[marker,marker]? P ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename ר  צ]ɍٲˍ.ڕ.P..P,á? תP"áצ CopyP  Ⓞ ڕɄ čⓄ% Ʉ ؕ     ە ..ȡ۲۾ ..بáNONE Äצ ChristmasÄצ New Years Äצȡ ۲ ۾ ..ȡ۲۾ צ.TEXT˲ȍ.˄#.. HalloweenJanuaryתPFebruaryתPצMarchPצAprilPצMayPצJunePJulyתPrצAP.צ.TEXTU.P.áȡHٕڂġ&Buffer overflow.ugustPc SeptemberתPQOctoberתPANovemberתP0צDecemberP ~sh[K=.   ڞڂV= ˸ "ˡ%Bad disk transfer .  צ,  l !#%DeT  ȡ,ءצTrue  ĶɄd, ڨ߶ߤ צFalse0 ڳ@@צT or Fȡߤ Marker not there. ٲgߤزSߤá h x   ׷   TáTrue צFalse Z  #  ׷ U=ˡ ׷     ׷     Ƃ=ƃi ڳɡ ڂ0   ع7-n{nצ& Copy: From what file[marker,marker]? P ƂPƂá Ƃ=Ƃ# Copy: File not present. FilenamennanT-RL?  "$&(*,.C2468:<>mBFHJlFۤ򥁤ˡצThe workfile, צ, is  ? תP"áצ CopyP  Ⓞ ڕɄ čⓄ% Ʉ - Ä  Created צ; Last updated צ (Revision : B(uffer F(rom file תP  fDBá򩁡驁 ũĄצ Invalid copy.驁 ).r>  צ+ Environment: {options} to leaveP    ġNo room{詁ĩɄ詁 詁驁詁#詁#צNSet tabs: C(ol# {N(o R(ight L(eft D(ecimal stop} ȡIn(Jצ Not option ~  {-.L$RD0( צColumn #    eU >0AT(A q"Q< AP aCá   ?á ؕ -á ؂ á  "Tv|dF  Created צ; Last updated צ (Revision $  A(uto indent ~צ F(illing  L(eft margin Syntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ mȡ-  R(ight margin   P(ara margin   C(ommand ch  ǃȡ ǜȡ ȡ Ƃ ˡ á d d   0 0 0 S(et tabstops  T(oken def  צ bytes used, 0 :  ؕ؞ق ق   پÍ پáG ؕDؕ   available.צ There are  צ pages in the left stack, and  צ pageצ . Type  á   Ƃ #%dast updated צ (Revision s in the right stack.צ You have   pages of room,צ and at most  á><A&% Banish: To the L(eft or Right תP  ة pages worth in the buffer. צ Patterns:2צ = 'ةˡ Lá Rá ةˡ _ J Next: F(orwards, B(ackwards in the file; S(tarǀ'. , = '[ǀ'šצ Markers:t, E(nd of the file. תP  ةdةˡ Fá  cBá  TSáצ ȡצ Fá  !Fȡ <>˶#š ,Eá'ɡ ةˡ =g &! Copy. IwI v Set: E(nvironment M(arker תP  EáMá ةˡة ! á3!~ǠɄ?       G~o< eXchange: TEXT { a char} [ escapes; accepts]תP         á   ǀd ؂ȡ ؂ġ  ؂šá2š+ؾ` áS ˄? !  ؂  P  ɡ          š   ˡǟō?辿á٫؞ǀ4蕀PšrL WARNING!Z-    ٕةġ-á- ؕ  ؕ ؞ You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ   A ~٫ګ    U ؂ \     Fá 8 LeapingFȡ-ťF˄ š 蕞 ?蕕ɡ"צNo room /ɥF˄ 1` Jump to ׷ ٩ to insert.  f~˄&  肫٤ ٤ צ Not there.WF٤ˡ F٤ˡMarker all messed up. Z٤ 肶~Ä  Í   $ JUMP: B(eginning E(nd M(arker תP  Bá)Eáڶȡ6No insertion to back over.   oڶġd5Please finish up the insertion   Má ةˡة $ Zi ~ צInappropriate environmentڶ š Buffer Overflow!!!!  á( nɄض  R  áȡGaق) ٤ áB V ~  á \áצEMarker overflow. Which one to replace? (Type in the letter or ) P H Íɡd ġ ꕞ"AtצSet Pȡ٤ ؤZؤ蚥Fؤةáꕞ 삿Vá"4/ 9g  ^ġ)š !(š  ) < áڕ+ڕ앩+ ˡá۫l *ȡu >á&%>á)öÍ   ˄ "ń nɄnń۶ >á&%}6T ,      ɡ"T b# Ȅ4 ɡáM(<)8<á()+ $ .,20. 46E%l&h<á%&[#WšĶ "       $ń7 á$S'NšToo many'/,+ $* IGb`% Of Í }á1á    ɡ"gr% Ʉ9 á  Cá1á  á   á šĶ "   &<áRń /-ȡEھ á-ń ۂھM X./ á 肫ġ  ø ɡ"yɄ1 ɡáȡˡˡȡ ȡ 4` x!ĸ š#Ķ Í "    '( š ɡ/ń šٮ! ݮ.צH Insert: Text { a char, a line} [ accepts, escapes]P  ˡP)؂ɡÄ؂ eš ꕞ.dšצBuffer overflow* ꕞšǀ3á ǀ }á$ȡꕫ؂ +  K Adjust: L(  á ĄÄ˄Ąۄx á  gájust R(just C(enter { to leave}תP  á Nȡ$ ˡܡ    á áث á   0á<>  ȩd' Tá+J ܹ-+24 (   Ʉګ ڂ٥ +%ڕ앩+5.#á+vá +d!O á +-0 >",13B@[YH_ٕ /˄ ápÄ5 áxAáje  ˄ ȍ  á ȥ   O ٕ܄ɡ 蕞 ٕٕ  ث ٕÄ4 H9.۪PڪP.P [ / צ]: ء% áL(it٫ ö ݓ0á0 á*- á  ö T(okz<  Replaceצ' aborts, 'R' replaces, ' ' doesn't<oD1 12 Lá 1Vá 1 Tá 1 VTÍLÍ2Ssá Rr˄ šYš9Buffer full. Aborting Replace  V^32L(Invalid delimiter. 1á*۾ ń 蕞ɡ 蕞[ˡ 驁詁@=̀̀  čġ.צYour pattern is too long Ä 4۶ۂ áצ Findצ =><(צ Replace V(fy =><123ʀ 4 á12̀3ʀ [۾Ä۶#.5  á,46ǀ ٶ4é é ȩل9١ ߂ á=<á  >éɄ<éńۡYo ġ   ض á 8 ؂    á   5  ztb4End of Buffer encountered. Get more from disk? (Y/N)תP @YáAFindingתP 7ǀ ڶo š á 8ض     á>á    Oٓ1ń'ۡPattern not in the fileNo old pattern.   5  zt 8   á   3lnrt$D_צM Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap X: Ʉ öɄ  [L.2a]P  |á  á   l /    @ Delete: < > { to delete, to abort}תP  Ʉ á ? ;     á:;  á   vK%e&a<á%&T#P$L'Gá<>á87v  b á:;   6ǀ  š 1  ˡ> b  4 @x~Jfp 4T L  Directory copy aborted. Type to exit. Pp >D to zap the directory H _צM Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap of ̄ʄȡ': {blocks 2-5}?  ˡ[L.2a]P  |á  á   l  DUPLICAT j DUPLICAT   Y -Duplicate Directory Marker { July 13, 1978 } Y" -Duplicate Directory Copier { July 12, 1978 } צ) Enter drive # of user's disk [4 or 5]: š 00צ) Enter drive # of user's disk [4 or 5]: š 00ũȍKצ4Illegal volume name. Do you want to mark it anyway?  ˥ũȍ?צ1Illegal volume name. Do you want to copy anyway? .Are you sure you want to zap the directory ˍצ1A duplicate directory is not being maintained on ̄ʄȡ'of ̄ʄȡ': {blocks 2-5}?  ˡ: .áצ;WARNING! It appears that blocks 6 - 9 are not free for use.2 צ9where byte zero is the most significant byte ?YyÍ צ*Dis-assembly output f(ȡ.press spacebar to continue...ile ( for none): PP׷צCONSOLE:#1:ׯ /'#"!  áhƂlƃƁ/Ƃ[Յ    ׷ /ƂlƁ/ؒX^+\ רd0123456789ABCDEFר ,7d  ˡ!צCONSOLE:#1:ׯ//P/š///צ sǗ.   צ(Is this code file designed for a machine , Do you want the directories to be marked? s צ+ Dirorry but there were no accesses/צ3 to this data segment from dis-assembled procedures/! Z ectories are now marked as duplicate. 6 A duplicate directory is already being maintained on ̄ع// / / //-s/b/ʄȡ': .צ Mark not done. צType to exit. 1Q/*@/// teVK<-/ع٢ + |ree? ?3 Are you sure that blocks 6 - 9 are free for use? צ٢ ٢  ٢8 w٢ j٢ ٢ U٢ ٢ ٢! 8٢R +٢  , Do you want the directories to be marked? s צ+ Dire\I2'u",ƁX0 ,צ OPCODES.II.0"ˡ4 *OPCODES.II.0 not on system diskectories are now marked as duplicate. 6 A duplicate directory is already being maintained on ̄,0̅ʅȡR,0š,0,0ٻ, `d!^%  CODESTAT UCSD P-CODE DISASSEMBLER צ II.0 [a.6]Input code file: Pl INIT DISASSEMGATHER DATACOUN ̅ƅPƅ.CODEUƅ"ˡ llá̅ʅȡRˡ!Ǘ.   צ(Is this code file designed for a machine 3  -/ / /\/"/ /\/ /6:   ۢۢڕ ۢ!ۢ!ǀɡ ?c=  áءGd //4/ / / / /\/ڕȡ`+\ ؕ)/4ǭÍǡǹǀɡ@ 0/ / /\/) / /\/h //448/V`?c :/?c / /\/Ǯ44/ /\/آ(آ( //44١(ǖǖ)/ / /\/ / ڢڢ٢٢ Í/צREAL/ /\//STR   /$ǥǧǫ/44 ۢ/ /\//צBOOL/ /\//POWR/ /\/ۢڡخ١خ)/ / /\/ //4/צBYTE/ / /\/X/WORD/ / /\/ Aۂ(ڂ(() Ʉl(á= Jɡ %%  %% 4 /  ڢڢ ڢ ڢ ؕٮ)/ > š  +ɡF \+d\+d++/ /\/ //44á ۢ |š"ǀ>ۢÄÄÄńɄWۢۢ8/8؂44/ /\Jɡá*//áǀɡK##/aڡ(ǖǖ3/ / / /\/ ۢ ۢ @/44/ / /\//44šɡE"" f//44)/ / /\/ ٢-/ / /\/ɡD!!-/ / /\/6 ٢//44  ۢۢ4 ȡT+\ )/) / /\/\ $ %%&1)&)(& š & & 4ǖ 4ǖ$$?$cؕ?$cũ$cÍ?c$%ɡ%  4ǖġ4ǖ) ٥۩cĄá<c۩c% $?c$ȡ!?$c?$c$$) 4ǖá+Procedure not in fileš۩á ؤؤ?ń4šکá ؤؤ6y  *&4ǖ ɡ!&4ǖ  š  % á؂(؂l 24ǖáN Procedure   is written in Assembly./ /BLOCK #4ǖȡ%צ # LL SIZE4ǖȡH/( / OFFSET IN BLOCK=/ //צSEGMENT PROC OFFSET#/ #/צ :  4ǖȡ" HEX CODE/8*[ ] .x/ / / צ"Procedure guide: #(of procedure),&צL(isting),Q(uit)*צA(ll),L(isting),Q(uit)/(/d/d/d/צ): 0.2áצ to segment: ȡ ?قצwhich procedure $ +\ ר'', EA= 951 - )%! צdata segment to watch?צto dis-assemble?LlÍAaÍdis-assembling all3)/-?=KZ4ǖ́3ʁ3ȡƀǖ4ǖ́3ʁ3ȡ4ǖ צ proceduresꓡ2( ) V# //44/ /צ '4ǖ́4ʁ4ȡ&ǖġǖǖǖǖƀǖƀǖƀ ڢڢ!ȡ/ȡ /'//*M /4ǖ́3ʁ3ȡ;ǖ2Ä G4ǖ́3ʁ3/44)/ / /\/ ۢۢ.2Äצ 7KD'zh5)5 Q09Ȅ009Ȅ 04ǖōG$I didn't say you had THAT procedure!| ȡU(( )Mצdis-assembling procedure  dˡe` 2 P l l f JD* n  L !: ol over dis-assembly?ȡ  4ǖȡcQqÍÍX6cXrצ$SegmeYyÍ;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLEDצ PROCEDURESnt guide: #(of segment),Q(uit)צyou have these segments:ȡV عצ Parameter oneצ Bits used Total Percentageצ7 Parameter one  ȡ ?؂which segment to look at  Parameter two ٦7Bits used Total Percentage Total Percentageצ. Para(צto decide on DATA SEGMENT?&צfor possible DIS-ASSEMBLY?Qq˄09Ȅ00meter one Parameter twoצ Case table sizeצ7Bits used Total Percentage Total9Ȅ 0ōL"I didn't say you had THAT segment!  Percentage٦ Total Percentageצ*Flavor Total Percentage Flavorצ TotalˡAQqÍÍ&4QqÍi 7have you changed your mind about data segment watching? Percentage٦2 # Total Pct # Total Pct # Total٦ Pct # Total PctYyÍéQȡFˡ dc3C~ //Jump statistics on the/ /צ Total jumps/T  1 Do you wish to keep track of referencesצ2 to a parš//צ5 Positive jumps Negative jumps//ȡw/ /ticular procedure's data segment?YyÍ צ&Do you wish control over dis-assembly? /d/ /d/3//Sorry no juYyÍ;*** WARNING - - STATISTICS ARE GATHERED ON DIS-ASSEMBLEDצ PROCEDURESmps today!/r6 z//Procedure call statistics/ȡˡǖ ONLY ***q /*** THIS INCLUDES DATA SEGMENT WATCHING ***ȡǖšz/ Segment:/ / Procedure:/ / Calls:/6 !d  :إ/  إ/ !d צSIND OPCOD/'d/צ % ˡ/////ȡI/ /٢ /E: 248..255 TOTAL:ة  ة 'dצ %   ˡ ȡ :إ/d// \ / / /'d/צ %  إ/ d :إ/ إ/ d ://///ȡw/ /٢ /٢d/٢  ǖ / 􊉇ȡ/*2ئSLD/ إ/ d :إ/ إ/ d C OPCODE: 0..127 TOTAL:ة# ة#'dئ % ##ˡ ȡ : (\ // / / /'d/ % /إ/ إ/#d  :إ/  إ/ #d@ :L / / /'d/צ % ˡ/////ȡI/إ/@ إ/@#d` :إ/` إ/`#d /٢ /٢d// \ // /' צSLDL OPCODE: 216..231 TOTAL:ة" ة"'dצ % ""ˡd/צ % /////ámȡ`/ /٢ / ȡ :إ/ إ/"d :إ/ إ//٢  //ȡw/ /٢ /٢d/"d :إ/ إ/"d  :إ/  إ  /٢ d/á䥁//áȡ/8؂44/٢/ "d "JئSLDO OPCODE: 232..247 TOTAL:ة!  // /8؂44/٢ //ة!'dئ % !!ˡ ȡ :إ/ إ/!dȡ襁/8؂44/٢ /٢d/צ /8؂44 :إ/ إ/!d :إ/ إ//٢ /٢d/z / / 7 /٢( /٢(d//~44,/٢(( /٢((ݕ݂ ؂ ɡ  |,  j  ,. o look at (צto decid/RGP/ / /'d/צ % ///de on DATA SEGMENT?&צfor possible DIS-ASSEMBLY?Qq˄09Ȅ009Ȅ 0ȡˡ]/3؂44/٢ /٢󊉇d/ N/3؂44ōL"I didn't say you had THAT segment! ˡAQq/٢ // á// 6 ǀ ȡ/Í&4QqÍi 7have you changed your mind about data segment watching?Tš dš Xš Lš @š 4š (š / \FT>4fh.$ɡ=ˡ/آ;ˡ/آV   3Output file for opcode statistics ( for none): Pةؕؤ ؤšؤؤةġ= d /٢ d/ȡI/ /٢ $ /٢ d/צCONSOLE:ׯצ#1://Pǀ **ȡ//44/ \ Z/ / /'d/צ % ˡ/////צ Opcode:/ / Total: : 6 2 .*&" ("(" ,/ȡ/ /٢ /٢d/٢ /٢d/. 8 ////' / Total operators/٢! /٢!d//  4// /'d' צ Total operators TT "ɍ -   $/צ % ///áȡ/V؂44/٢( //  $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ /j؂44/٢( ///~44,/٢((  $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ //ȡ/V؂44/٢( /٢(d/j؂44  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 8 ׷צCONSOLE:#1:ׯ//P/š///צ s;COPYRIGHT (C) 1979, REGENTS OF THE UNIVERSITY OF CALIFORNIAorry but there were no accesses/צ3 to this data segment from dis-assembled procedures/! Z ۡ (ۡ*(3 ġ((((ȡ;á ȡpɍ -   $ $ ݞ$' ݑ@ġ ٿB  ( @ Dz?$ TITLE SIZE START$ $݂ō $݂ġ ݂$ $ $ȡ%  0GˡGá[ ׷ . ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(    צ   @ G ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, pړGáu   ׯ  ȡ  .t  إ/#d  :إ/  إ/ #d@ :  ړ ڡeG  SIZE: צ, START:إ/@ إ/@#d` :إ/` إ/`#d @o& :%Enter title of wanted RT11 text file:PšZ.ץ צSLDL OPCODE: 216..231 TOTAL:ة" ة"'dצ % ""ˡˡȡצ P ר C  Enter title of output TexئData Segment size:ة צ Data references:ة ئ Lex levelإ۩c  ȡ :إ/ إ/"d :إ/ إ/צ For segment ȡإ?قצ Procedure #ة ئOV RT11TOTE ffset(word) Total %u8ˡ3/ / /d /ˡ X  8Output file for data segment statistics( for none): P9 SPצ#5:SP#9:SPצ#10:TP^צ#11: nצ)Place Pascal Disk in Drive and Type  jnTP<צ#12:TP  zZ:j (Transfer Option? B(inary R(tڂˡ6 THERE WAS AN ERROR IN TRANSFER!! j G& 4 ȡn11 edit :س@ BáRá X *Place PascajnˡJצ OUTPUT ERROR, program terminatedj l disk in drive then Type "á Enter title of output Text file:P تP!-̄/+.-ʄ/m.-á̄/--,+̄1,ʄ1ȡ%,.-ˡ̄/--,,šj צ(Transfer Option? B(inary R(t11 edit :س Báʄ/ -+- -+--š---.-.-` ƯjưՁצRá * 2jnn T, n n jn(Are you using a standard RT11 disk[Y,N]? צ,Are you using a Single floppy drive machine? ȡnȡn á#n Ǭš Pޡ= áצAPlace RT11 disk in drive, indicate unit number [4-12], then (C/R) A/nn ؂nݿnݿ j% š !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) o) n( n צ'Place RT11 Disk In Drive and Type  ġ nZ"  E   צ)Place Pascal Disk In Drive and Type   ȡn(w (Put system disk in drive, then type [Y]: Q3The RT11 directory on the Pascal disk was náo)  P= á/o)o) ؂ o)߿o)߿jnot foundƯjZ!_Z X h $ dv Ajo݂ˡ6 THERE WAS AN ERROR IN TRANSFER!!ݡjn !Eצ RT-11.DIRPE0"ÄˡġDisplay the directory? (y/n) t file:PšצEnter unit # of Pascal disk : #4:j_ H2 šצ'Place RT11 Disk in Drive and Type  ġ:  HAS CLOCK HAS 8510AHAS LOWER CASEצHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALSTUDENTTS ث /ȡ٤٤צ INITIALIZING  TE xVX$\ HAS BYTE FLIPPED MACHINE צHAS WORD ORIENTED MACHINE צPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RIGHT]$T URSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*NON PRINTING CHARACTERZ"  E   PREFIXED[ERASE TO END OF LINE]$צ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$צPREFIXED[DELETE C(Put system disk in drive, then type [Y]: Q3The RT11 directory on the Pascal disk was nHARACTER]$PREFIXED[ERASE SCREEN]$צPREFIXED[ERASE LINE]$"PREFIXED[KEY TO MOVE CURSOR RIGHT]/צ!PREFIXED[KEY TO   PASCALSYSETUP NUMBER2 NUMBER3 NUMBER4 NUMBER5 NUMBER6 NUMBER7  MOVE CURSOR LEFT]/צPREFIXED[KEY TO MOVE CURSOR UP]/צ!PREFIXED[KEY TO MOVE CURSOR DOWN]/צ PREFIXED[NON PRINTING CHANUMBER8 NUMBER9 INITS TEACHSET RACTER]/PREFIXED[KEY FOR STOP]/צPREFIXED[KEY FOR BREAK]/צPREFIXED[KEY FOR FLUSH]/צPREFIXED[KEY TO END FILE] II0D1 Copyright(c)1979 Regents of the University of California, San DiegoF YOUR/ צPREFIXED[EDITOR ESCAPE KEY]/ צPREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXED[EDITOR ACCEPT KEY]/ Oצ SCREEN HEIGHT%צ SCREEN WIDTH&LEAD IN TO SCREENMOVE CURSOR HOMتo צNULצSOHצSTXצETXצEOTצENQצACKצBELצBSHTצLFVEצERASE TO END OF SCREEN ERASE TO END OF LINE צMOVE CURSOR RIGHT!צMOVE CURSOR UP! BACKSPACE" ERATצFFCRצSOSIצDLEצDC1צDC2צDC3צDC4צNAKצSYNצETBצCANצEMSUBESCSE LINE#צ ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO FSצGSRSצUSSPتP+ +(++!T&ڪP. (á  WMOVE CURSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*NON PRINTING CHARACTERW--̀ƀצENTER ƀVƀ/̀ʀPʀʀٚʀؚʀʀʀʀW.+צKEY TO DELETE LINE,EDITOR ESCAPE KEY,LEAD IN FROM KEYBOARD-EDITOR ACCEPT KEY-KEY TO DELETE CHARACTW.PتP,+,---ٚ-P-,-V6TFTRUE׮FALSE׮ER+VERTICAL MOVE DELAY"  /ڢתPڢ/ + +צ +צ L@æINI; צ%THE LINE DELETE CHARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU׮צ'HAVE NOT YET TYPED CR. CR TH BACKSPACING:'THE 'KEY TO DELETE CHARACTER' SHOULD BE׮(SET TO THE KEY YOU WISH TO TYPE TO CAUSE׮צA BACKSPACE. THE 'WILL BE SENTצ'TO THE TERMINAL AND YOU WILL BE ABLE TOצ'START OVER ON A NEW LINE. THE BACKSPACEצ(CHARACTER, "*" WILL DBACKSPACE'צ(CHARACTER WILL BE ECHOED TO THE TERMINAL"WHEN THE 'KEY TO DELETE CHARACTER'׮צ IS TYPED.  ELETE YOUR RESPONSE( /צ%TO A QUESTION CHARACTER BY CHARACTER,צ(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECH .d< L d  OR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TROED DELETED CHARACTERS WILL BE׮(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,׮צ!TYPING THE SEQUENCE OF CHARACTERSCHARAتPٓצ BUG LOCATION צ'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YOQF// CTER 84צ$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER׮$AND WILL U CAN, AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCERتPR צ'IF YOU HAVE A VIDEO TERMINAL AND EXPECTצ&TO USE THE SCREENBE UNDERSTOOD AS THE STRING׮צ& "CHARACTER". WHEN YOU ACCESS A FIELD,$YOU WILL BE SHOWN ITS CURRENT VALUE.׮צ&NUMBERS A ORIENTED EDITOR, THE%CHANGES SETUP CAN MAKE WILL BE NOT BE׮'SUFFICIENT. YOU WILL ALSO HAVE TO BIND׮(IN THE PROCEDURE RE GIVEN IN OCTAL, DECIMAL OR'HEXADECIMAL RADIX, CHARACTERS ARE GIVEN׮&AS THEIR ASCII VALUE AS NUMBERS AND AS׮צ#THEIR AGOTOXY IN THE OPERATING׮צ(SYSTEM. SEE SECTION 4.7 OF THE DOCUMENT.Eצ#NOTE: DISK UPDATES CREATE THE FILE:צSCII MNEMONIC. BOOLEANS AREצ(EITHER TRUE OR FALSE. ENTER NUMBERS, OR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,׮צACCOR NEW.MISCINFOצ(ON YOUR DISK. THE NAME OF THIS FILE MUSTBE CHANGED USING THE FILER TO: ׮ SYSTEM.MISCIDING TO THE FORMAT:!->O-{OCTAL}-!׮צ! !'--DEFAULT----!----------->DIGIT--->(CR)׮"! ! ! NFO׮צ&IN ORDER FOR THE CHANGES YOU HAVE MADETO BE LOADED AT BOOTSTRAP TIME.׮T צ"ALL NON-PRINTING CHARACTE ! ! !׮צ"!->H-{HEX}---! !->(-)-! !-DIGIT<-!! !׮צ!->D{DECIMAL}!Rצ$THE DEFAULT RADIXRS EXCEPT&CARRIAGE RETURN (CR) WILL ECHO AS "?".׮צ&THE INPUT ABORT CHARACTER, "*", CAN BE(!צ&TYPED IN RESPONSE STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE INPUT׮צ'BY TYPING THE KEY WHICH GENERATES THEIRצ&VALUE (FOLLOWED BY  TO MOST REQUESTS FOR"INPUT AND WILL ESCAPE YOU FROM THE׮צ(SEQUENCE WHICH ASKED THE QUESTION, E.G.,(WHEN CHANGING A VCR) OR, IF THERE IS%AN ASCII MNEMONIC FOR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRALUE, TYPING "*" TO THEת( !"PROMPT "NEW VALUE" WILL ESCAPE THE׮צ"CHANGE WITHOUT ALTERING THE VALUE.Y*UE" OR "FALSE"צ (AND CR). FOR MORE INFORMATION,$PLEASE SEE THE SYSTEM DOCUMENTATION.׮z צ"HINTS ON DEALING WI<  *NEW.MISCINFO٥`_/_́ʁȡ__'D(ISK) UPDATE PUTS  ߡ 0 A  ₚ ȡ00 THE CURRENT SETUP ONצ$ DISK AS THE FILE "NEW.MISCINFO"צ! WHICH MUST BE CHANGED IN THEA  ōޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE FILER TO "SYSTEM.MISCINFO"צ$M(EMORY) UPDATE CHANGES THE SETUP INצ! MEMORY UNTIL T: ..  IN THE FORMAT BELOW:צ!->O-{OCTAL}-!צ! !HE NEXT SYSTEM INITIALIZATIONצ"R(ETURN) TAKES YOU BACK INTO SETUPצ IF YOU'Rצ'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEXE NOT DONEE(XIT) TERMINATES THIS PROGRAM"DMC ,R썡E07}---! !->(-)-! !-DIGIT<-!! !!->D{DECIMAL}!ڡצ OR IF YOUR KEYBOARD CAN C(ONTINUE) Q(UIT)CUN Vצ OCTAL DECIMAL HEXADE GENERATEצ%THE VALUE YOU WANT, JUST TYPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPECIMALء.ǀɡצ ASCII ɡ CONTROLɡ 1) ń ġ$THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡jWANT TO CHANGE THIS    ń ġ= ɡ  VALUE? (Y,N,!)YE@썡p | Gצ NOW OCTALL  aA!áHڦתP /ۄ > A ء!ɡ&o! o!DáצDEL (ٳ?<áצPצ<>/áQšHۓ<?P  ɡ^@ ?b צ NEW VALUE: ܄  ?PɡPצ#QP꿹!áá$T ( ȄBo!! o!  DELׯ !˄ȄᚹڪPP-תP---<. LتP  ˡ-ڕ F 0  ( DO 6-á =  ڂ6NƁ.`צ QUIT: D(ISK) OR M(EMORY) UPDATE,צ R(ETURN) H(ELP) E(XIT)C / ~D5 -á1 FFȡ = ġ _'Dɡ_ؑȡ#_ H(ELP Q(UIT צ[D1]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VA*hȡ  (á 2RIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREצ CONFIGURATION 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARˡ˦ SHOWSCALARCURREצ$T(EACH) TEACHES YOU HOW TO USE SETUPצ&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESצ( PERMANENT ANNT VALUE IS ٢L lALLOWED VALUES ARE:צSHOWALLآáD TO LEAVE THIS PROGRAM+CT$ | "I5` \4F(  + \ڪP.P.....O T : Tצ NEW VALUE: .  @,>r4]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VA썓!צ NEW VALUE:  썡׷خeJT |á á $NAME INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREצ CONFIGURATIONOF FIELD: [쓄Hצ DIDN'T FIND NAME OF FIELD: 쓡]Rצ$T(EACH) TEACHES YOU HOW TO USE SETUPצ&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESצ( PERMANENT AN쓄<쓡4 FIELD NAME = آخLצ#CHANGE: S(INGLE) P(ROMPTED) R(ADID TO LEAVE THIS PROGRAM+CT$ | "I5` \4F(  X) H(ELP) Q(UIT)צ&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE  @,>r4]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VAצ BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDSצ(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED( BINDER צ RADIX FROM ;צOCTALDDECIMAL1צ HEXADECIMALYC6 /  NOW DECIMAL5צNOW HEXADECIMALO> 3l: O(CT) D(EC) H(EX) Q(UIT) TO EITHER ^DECIMAL OR HEXADECIMALVOCTAL OR HEXADECIMAL6OCTAL OR DECIMA/ 'DO 5썡LIfH 4 HS   Qá ,   צ"SETUP: C(HANGE T(EACH> '''۞ۂەZ Y]UˡF\ PASCALSYר\욶\UXXUU' Yض[ Zˡl]ZUˡM\ [آ [\[\[UXXUٚ.ȡ$ˡ,U ,š YáZY [[ȡY[š [[ -n  Tȡܢ"6 ERROR ( Pas ,٪PتP]ƁX\Y]UZ\̀[̀[ʀȡ;ʀ [ רʀ[cal System Binder (2.1 a2)>This program modifies the SYSTEM.PASCAL of your default prefix?d[[[ , Z\]\á ]*צCode file write error ] isk. If any of the files it expects to be around are missing,צ?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to Ɓ62Ɓ^Ձ.  Moving procedures around  !  re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th2 Calling system linker to create new SYSTEM.PASCALצ SYSTEM.PASCALצSYSTEM.PASCAL[35] 2e program SETUP to get the system toצ&work intelligently with your terminal.צ* File with GOTO6.\ ]UZ\̀[̀[ʀȡ;ʀ [ רʀ[XY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASC[[[ , Z\]\á ]*צCode file write error ] AL"ˡ2ˡ+ZZ ++++2+ˡ ˡZO^+צincompatible byte sex+Z ++++ +ˡe ZؕܕZؕܕ'ؕ'ؕە'? ay not be disclosed to %others or used for any purpose except as expressly consented to by %TERAK.  @TERAK/UCSD Pascal BVERSION II.0 EGOTOXY CREVISION O 6COPYRIGHT 1980 BY TERAK CORPORATION ="ALL RIGHTS RESERVED"}  (*The following is a sample gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN "IF X<0 THEN X:=0; Ƃ/ƃ[ צ*This program is a general bootstrap mover.צATo copy a boot from one disk to another, type the"IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));  END;  BEGIN  END. unit number forAthe destination disk, and the volume name of the source disk. Ifצ@the source is a %{TERAK CORPORATION believes that the information contained herein is %accurate. In no event will TERAK be liable for any losses or damages, %whether direct or indirect, resulting from the use of such %information, including, without limitation, losses arising from %claims of patent, copyright, and trademark infringement. No license %is granted hereby for the use of any patent or patent rights of %TERAK. TERAK reserves the right to update the information contained %herein at any time without furtheN COPYBOOT r notice. % %The information contained herein is proprietary to TERAK CORPORATION %and must be treated as confidential. It m @  B `f%T  w jw%7 \! % `` @:`T  &7  A!ۂBҕ Bw wew ` :[7m-ѭL7 @7Ee@7 U-   e @@fN% wh@ҕ-wZ@ewJDRe eU  0 4 , w4wҕ ҕ   < Е # & r `t 5$7 7$?CREF-F-Chain-only cuspH   w,A @l  w~@ vb h d%f X Z<"*ȝ >B<26 7?CREF-F-DeviceLv NZR  @  & e7 ,7D?CREF-F-List file errorE ʕ @@c BbaBe0e0  ~SR   w 77 aw7 L7& & w   mnwp warwaxernS -Xᓔ  - < T N  -   2 S - e e 7H disk file, then type the name of the disk file. צ) Unit to write boot to [4,5,9,10,11,12]: e jR\D7JmR78  e 7. w< 0 File to be written as boot: Pš /"ˡ: isCROSS REFERENCE TABLE (CREF V0 not available, other file: á//ˡ`צ; is not big enough to be a bootstrap, no transfer1-08 ) PAGE -  attempted/"ˡRצ8 Error in attempt to write boot, boot area now undefined   d'mm @PPPPw-0צ Boot transferred successfully. Ƃ/}FUnit to write boot to [4,5,9,10,11,12]: .@@m-tn5`U@-f e# @mNm e # e e U @ߋ* 0 File to be written as boot: Pš /"ˡ: is7B?CREF-F-CRF file errorE7 C@%xDE`;D&  `B DE!N` fA %{TERAK CORPORATION believes that the information contained herein is %accurate. In no event will TERAK be liable for any losses or damages, %whether direct or indirect, resulting from the use of such %information, including, without limitation, losses arising from %claims of patent, copyright, and trademark infringement. No license %is granted hereby for the use of any patent or patent rights of %TERAK. TERAK reserves the right to update the information contained %herein at any time without furthef .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 sesr notice. % %The information contained herein is proprietary to TERAK CORPORATION %and must be treated as confidential. It msion to demonstrate the creating of an RT-11 file named SAMPLE.DOC, and the entering of text and directives into it. .SK 2 .ay not be disclosed to %others or used for any purpose except as expressly consented to by %TERAK.  @TERAK/UCSD Pascal BNF #.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 VERSION II.0 EGOTOXY CREVISION O 6COPYRIGHT 1980 BY TERAK CORPORATION ="ALL RIGHTS RESERVED"}  (*The following is a samnot have to #specify the .fi directive. Please note that any #dollarsigns ($) you #see in this example are really the result ple gotoxy procedure for the VT-52*)  (*$U-*)  PROGRAM DUMMY;  PROCEDURE FGOTOXY(X,Y:INTEGER);  BEGIN "IF X<0 THEN X:=0; of pushing the #escape key. Two escapes tell TECO to process any commands #given it to that point. That is all!$$ #*ex$$ .SK"IF X>79 THEN X:=79; "IF Y<0 THEN Y:=0; "IF Y>23 THEN Y:=23; "WRITE (CHR(27),'Y',CHR(Y+32),CHR(X+32));  END;  BEGIN  END. #. .FI .SK 3 After you have created your CID file, you are ready to run CID. See the next section, RUNNING CID. .OP (PAGE-D  e B  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 ,,,