IMD 1.17: 27/06/2012 8:48:09 UCSD PASCAL SYSTEM VII.0 DISK 6/6 PART NUMBER 61-0011-006 REV A CHARACTER SETS MANUFACTURED ON 6-NOV-80  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lŗkm HBf     &  ARSET[Š  DM.8510/A\ * DM.PASCALp[*@ STDM.8510/A\Ƞ@j STDM.PASCALp[1%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  ~  _~U@pe5w E ŋw Ŋw C! @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ PASCAL6xXe SYSTEM.8510/A\> SYSTEM.PASCALb[>CSYSTEM.CHARSET[ŠC_ SYSTEM.FILER@[g_u CHEDIT.TEXTp[u| CHEDIT.CODEp[| CHEDIT.PROMPTp[ CHDEMO.TEXTp[ CHDEMO.CODEp[ CHDEMO.PROMPTp[ MATH.CHARSETp[Š APL.CHARSETp[Š OCRB.CHARSETp[ŠSMUDGE.CHARSET[Š LARGE.CHARSETp[ŠINVERSE.CHARSETŠRUSSIAN.CHARSETŠ FORMS.CHARSETp[ŠHEBREW.CHAR <f,4~%x$J8SET[ŠCURSIVE.CHARSETŠWESTERN.CHARSETŠ AG1.CHARSETp[Š GREEK.CHARSETp[ŠARABIC.CH#V"COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD Z Z ` f:@FLRX^djpv| "*2``@Z`d %  D~ " ~ E D~ D C~ %  D~  ~& <AA~E e8f"a8f"@"$ F% &@L$f&b8f"c8f" \ j .   @`& E&~AA~E e @`&AA~E e @`  `` @ @f ~f{fxfufrfoflfifffcf `f" t @L A@@A tBt B@P< ``f~ ``A~ c ҇ef rHJKC  >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--('"צPrefix titles byl;G& Prefix is ;:`%\!X0T4P1L5H6PROGRAM CHARACTERSETEDITOR; (*V3*) (*2/ 5/77*)  {TERAK CORPORATION believes that the information contained herein is %acD*@:BZ2" (@,(NXF0N>w\ ƁG&צSYSTEM.curate. In no event will TERAK be liable for any losses or damages, %whether direct or indirect, resulting from the use of suchYbcCZ 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 " " ġ  7O^צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת  ȡ'  š 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+צ&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.4]8+&Filer: W, B, E, K, M, P, V, X, Z [C.4]8ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤ is one, the code is very * cryptic and highly machine dependent. If you do not thoroughly understand * what this program is MIN(A,B: INTEGER): INTEGER; BEGIN IF A doing, then do not attempt to modify it, you might * cause yourself more problems than you had figured on. Use it, enjoy it B THEN MAX := A ELSE MAX := B END; PROCEDURE INITIALIZE; VAR I,J:INTEGER; BEGIN PAGE(OUTPUT); SCAN := 0; BIT := 0;  * and do not attempt to understand it, you're better off in APL. kas. *)  {this program was slightly modified to avoid con CH := ' '; CCH := ' '; ALTSET := 0; R.TRIX := -8192; T.TRIX := -8192; (*$I-*) OPENOLD(F,'CHEDIT.PROMPT'); FILLCHflicts with a new format in  'chedit.prompt'. the modification consisted of moving three outputed lines !of text down one liAR(BIGCH,9600,0); IF BLOCKREAD(F,BIGCH,19) <> 13 THEN (* TOUGH *); CLOSE(F); (*$I+*) FOR I := 1 TO BIGHGT*10+1 DO BIGCH[ne. ! !the modification was made on 2 feb 1979 by evan sakey ! !the file 'chedit.prompt' was modified to better explain and !necessitated the changing of this program. ! !the file 'chedit.prompt' was modified on an unknown date sometiCHR(1); END; FOR I := 8 TO 15 DO BIGCH[BIGHGT*10+1,I] := CHR(255); FOR I := 0 TO 47 DO T.TP^[18,I] := CHR(32+I); FOR I : %information, including, without limitation, losses arising from %claims of patent, copyright, and trademark infringement. Nome during !summer 1978 by evan sakey !  }     CONST "GENBUF = 128; DISPLAY = 57; BIGHGT = 14;  license %is granted hereby for the use of any patent or patent rights of %TERAK. TERAK reserves the right to update the infor ACGRAV = 96; DC1 = 17; CTRLC = 3; US = 31; UPARR = 26; DOWNARR = 12; RIGHTARR = 11; LEFTARR = 23;  TYPE  "CHARSETmation contained %herein at any time without further notice. % %The information contained herein is proprietary to TERAK CORP = ARRAY [CHAR] OF .PACKED RECORD 7DATA: PACKED ARRAY[0..9] OF SET OF 0..7; 7JUNK: PACKED ARRAY[10..15] OF SET OF 0..7 5END;ORATION %and must be treated as confidential. It may not be disclosed to %others or used for any purpose except as expressly "LINEOF = ARRAY[0..23] OF PACKED ARRAY[0..127] OF CHAR; "GENPTR = RECORD CASE BOOLEAN OF -TRUE: (TRIX: INTEGER); -FA consented to by %TERAK. 6COPYRIGHT 1980 BY TERAK CORPORATION ="ALL RIGHTS RESERVED"}   (* 2/5 mod to use only MOVERIGLSE: (CHS: ^CHARSET) +END; VAR SCAN,BIT: INTEGER; BLINKING,NEEDTODISPLAY,TRITON: BOOLEAN; CH,CCH: CHAR; ALTSEHTs to genbuf.*)  (*Keith Allan Shillington - Author*) T: INTEGER; T: RECORD CASE BOOLEAN OF )TRUE: (TRIX: INTEGER); )FALSE:( TP: ^LINEOF) 'END; R: GENPTR; BIGCH: ARRA(* This program is an example of what PASCAL programs can do and should not * look like. There are no comments other than thY[0..240] OF PACKED ARRAY [0..39] OF CHAR; STR: STRING[9]; IOBUF: PACKED ARRAY[0..2559] OF CHAR; F: FILE; FUNCTION  R.CHS^[CH].DATA[SCAN] := R.CHS^[CH].DATA[SCAN] + [BIT]; UPDATE; END; PROCEDURE DELBIT; BEGIN R.CHS^[CH].DATA[SCAN] := R.C := CH; UNITWRITE(3,BIGCH,GENBUF+DISPLAY); FOR SCAN := 0 TO 9 DO $BEGIN &TS := R.CHS^[CH].DATA[SCAN]; &FOR BIT := 0 TO 7 HS^[CH].DATA[SCAN] - [BIT]; UPDATE; END; PROCEDURE SWAPBIT; BEGIN IF BIT IN R.CHS^[CH].DATA[SCAN] THEN DELBIT ELSE ADDBIT EDO (FOR I := 3 TO BIGHGT DO *IF BIT IN TS THEN ,BIGCH[SCAN*BIGHGT+I,BIT+8] := CHR(127) *ELSE ,BIGCH[SCAN*BIGHGT+I,BIT+8] :=ND; PROCEDURE INVERTCHAR; VAR SCAN: INTEGER; "XLATE: RECORD CASE BOOLEAN OF TRUE: ( CH: CHAR ); FALSE:( ST: SET OF 0..7 )  CHR(1); END; END; PROCEDURE NXTCCH; VAR COMPAT: PACKED ARRAY[0..0] OF CHAR; PROCEDURE DELAY(WAIT:INTEGER); BEGIN  END; BEGIN NEEDTODISPLAY := TRUE; FOR SCAN := 0 TO 9 DO BEGIN XLATE.ST := R.CHS^[CH].DATA[SCAN]; XLATE.CH  WHILE (WAIT>0) AND UNITBUSY(2) DO WAIT := PRED(WAIT) END; BEGIN UNITREAD(2,COMPAT[0],1,,1); IF NEEDTODISPLAY AND UNIT:= CHR(ORD(NOT ODD(ORD(XLATE.CH)))); R.CHS^[CH].DATA[SCAN] := XLATE.ST; END; END; PROCEDURE INVERTSET; VAR SCAN: INBUSY(2) THEN $BEGIN &NEEDTODISPLAY := FALSE; &SHOWBIG; $END; WHILE UNITBUSY(2) DO $BEGIN &BLINKING := TRUE; &IF (BIT INTEGER; "TCH: CHAR; BEGIN FOR TCH := CHR(32+ALTSET) TO CHR(ALTSET+127) DO BEGIN IF ALTSET = 0 THEN CH := CHR(ORD(TC R.CHS^[CH].DATA[SCAN]) THEN (BEGIN *DELBIT; *DELAY(100); *ADDBIT; *DELAY(2200); (END &ELSE (BEGIN *ADDBIT; *DELAY(100H)+128) ELSE CH := CHR(ORD(TCH)-128); FOR SCAN := 0 TO 9 DO R.CHS^[CH].DATA[SCAN] := R.CHS^[TCH].DATA[SCAN]); *DELBIT; *DELAY(2200); (END; &BLINKING := FALSE; $END; CCH := COMPAT[0]; END; PROCEDURE ACCEPT; BEGIN CH := CHR(ORD; INVERTCHAR; END; CH := ' '; END; PROCEDURE CLEARCHAR; VAR "SCAN,BIT: INTEGER;  BEGIN FOR SCAN := 0 TO 9 DO (CCH)+ALTSET); SHOWBIG; CCH := ' '; (* A Harmless character *) END; PROCEDURE SETALTSET; BEGIN IF ALTSET = 128 THEN B$FOR BIT := 0 TO 7 DO &BEGIN &R.CHS^[CH].DATA[SCAN] := R.CHS^[CH].DATA[SCAN] - [BIT]; &UPDATE; &END; "NEEDTODISP := TRUE; EGIN STR := 'STANDARD'; ALTSET := 0 END ELSE BEGIN STR := 'OPTIONAL'; ALTSET := 128 END; = 0 TO 47 DO T.TP^[23,I] := CHR(80+I); FOR I := 0 TO 47 DO T.TP^[16,I] := CHR(160+I); FOR I := 0 TO 47 DO T.TP^[21,I] := CHREND; PROCEDURE SHOWBIG; VAR "SCAN,BIT,I: INTEGER; TS: SET OF 0..7; STR: STRING[20];  BEGIN IF NOT UNITBUSY(2) THEN $BE(208+I); UNITWRITE(3,BIGCH,GENBUF+DISPLAY); END; PROCEDURE UPDATE; VAR I: INTEGER; BEGIN IF BLINKING THEN IF BIT IN R.CGIN &NEEDTODISP := TRUE; &EXIT(SHOWBIG) $END; UNITWRITE(3,BIGCH,DISPLAY); STR := ' '; " {123456HS^[CH].DATA[SCAN] THEN FOR I := 3 TO BIGHGT DO BIGCH[SCAN*BIGHGT+I,BIT+8] := CHR(127) ELSE FOR I := 3 TO BIGHGT789a123456789b} { 20 count } "FILLCHAR(STR[1],20,CH); MOVERIGHT(STR[1],T.TP^[17,58],20); {the 17,18,19 in the follwing mover DO BIGCH[SCAN*BIGHGT+I,BIT+8] := CHR(1); END; PROCEDURE ADDBIT; BEGIN ights} "MOVERIGHT(STR[1],T.TP^[18,58],20); {used to be 16,17,18 eas} "MOVERIGHT(STR[1],T.TP^[19,58],20); "T.TP^[21,58]  VAR "ADDIN,XOR: BOOLEAN; "TX: GENPTR; "SAVEALT,SCAN: INTEGER; "SCH: CHAR;  BEGIN TX.TRIX := R.TRIX; ['K','k'] THEN $BEGIN &OPENOLD(F,'*SYSTEM.CHARSET'); &TRITON := BLOCKREAD(F,IOBUF,1,4) = 1; &CLOSE(F); &IF TRITON THEN (BE STR := ' MOVE '; UNITWRITE(3,BIGCH,DISPLAY); MOVERIGHT(STR[1],T.TP^[23,60],8); UNITWRITE(3,BIGCH,DISPLAY+GENBUF); SCGIN *OPENNEW(F,'*NEWSET.CHARSET[5]'); *IF BLOCKWRITE(F,IOBUF,1,4)<>1 THEN WRITE('ERROR ON TRITON TRANSFER'); (END &ELSE (OPH := CH; "ADDIN := FALSE; "XOR := FALSE; "SAVEALT := ALTSET; REPEAT NXTCCH; $IF CCH IN ['+'] THEN ADDIN := TRUE; $IF ENNEW(F,'*NEW.CHARSET[4]'); &FOR CH := CHR(32) TO CHR(127) DO (MOVERIGHT(R.CHS^[CH],IOBUF[(ORD(CH)-32)*10],10); &FILLCHAR(IOBCCH IN ['O','o'] THEN XOR := TRUE; $IF CCH IN ['x','X'] THEN SETALTSET "UNTIL CCH IN ['g','G']; "NXTCCH; "ACCEPT; "FOR SCANUF[960],64,CHR(0)); (* FILLER *) &FOR CH := CHR(160) TO CHR(255) DO (MOVERIGHT(R.CHS^[CH],IOBUF[(ORD(CH)-58)*10+4],10);  := 0 TO 9 DO $IF XOR THEN &R.CHS^[SCH].DATA[SCAN] := 6(R.CHS^[SCH].DATA[SCAN] + TX.CHS^[CH].DATA[SCAN]) ;- (R.CHS^[SCH].DAT&IF BLOCKWRITE(F,IOBUF,4,0) <> 4 THEN WRITELN('oops. File error'); &CLOSE(F,LOCK); $END; UNITWRITE(3,BIGCH,7); PAGE(OUTPUA[SCAN] * TX.CHS^[CH].DATA[SCAN]) $ELSE &IF ADDIN THEN (R.CHS^[SCH].DATA[SCAN] := TX.CHS^[CH].DATA[SCAN] R+ R.CHS^[SCH].DATAT); END. [SCAN] &ELSE (R.CHS^[SCH].DATA[SCAN] := TX.CHS^[CH].DATA[SCAN]; "CH := SCH; "SHOWBIG; "ALTSET := SAVEALT; "UNITWRITE(3,BIGCH,DISPLAY); "FILLCHAR(T.TP^[23,60],8,' '); "UNITWRITE(3,BIGCH,DISPLAY+GENBUF);  END;   BEGIN "INITIALIZE; "SHOWBIG; "REPEAT $NXTCCH; CASE ORD(CCH) OF ACGRAV,UPARR: SCAN := MAX(0,SCAN-1);  CTRLC,DOWNARR: SCAN := MIN(9,SCAN+1); DC1,LEFTARR: BIT := MAX(0,BIT-1); US,RIGHTARR: BIT := MIN(7,BIT+1) END; CASE CCH OF 'g','G': BEGIN NXTCCH; ACCEPT END; 'x','X': SETALTSET; 'c','C': CLEARCHAR; 'i','I': INVERTCHAR; 's','S': INVERTSET; 'a','A','!': ADDBIT; 'z','Z','{': DELBIT; 'o','O','}': SWAPBIT; 'h','H': BEGIN BIT := 0; SCAN  UNITWRITE(3,BIGCH,DISPLAY); MOVERIGHT(STR[1],T.TP^[23,60],8); UNITWRITE(3,BIGCH,DISPLAY+GENBUF) END;  PROCEDURE COPYTO; := 0 END; 'm','M': COPYTO END (* A..Z CASE *); UNTIL CCH IN ['Q','K','q','k']; UNITWRITE(3,BIGCH,GENBUF); IF CCH IN    Z< n  ȡ=ȡ+  ؗH? X #ET楒ëZצ*NEWSET.CHARSET[5]楒ˡ$צERROR ON TRITON TRANSFER  9צ  @:@:@:@: ǀ9צ*NEW.CHARSET[4] ̘ʘȡ!   @ Ǡ ̘ʘȡ#: CHARACTE  ȡt ȡNȡ; ؂' ؂' {_U$  ## #5 dǘ dǘF f  ǀáצSTANDARD OPTIONALת ǀ  9@< 9ǀbצ MOVE  9@< 9ǀ ɡ š    צ CHEDIT.PROMPT ǀ% ڀ  ȡءQ    ˡ ȡ 'ȡC ȡ1 ؏' ؏'  S١1     ݫ ܫȡ  '/ȡ@ ق/ȡ@Pق/ȡ  9@<  9ǀ/J ƗƙՁ@ 0 @Ǡق/ȡ@ق ǀ9 -Ru 8e *`+ #=; "$&(G,.e2468K<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxȡ ؂'(ȡ ؂'$P t  ꗜz|~.  !},  ꗅ, " ȡ0   "$&(*,.02468:<>@_DoHJLawTVXc\s`bdhjlnrvxz|~ٓ 7H  ȡOá ǀ ǀ  ȡ&   ǀ쥗*SYSTEM.CHARS 0p@0 0ppxxph00x| 0 D0p@`D8<<8x80DDDDDD0pDDDDD8<0DDDDD@0| 8<<8>@0 "" "80 ""000 0p@0" 0pxp > ""0P " """H0 D<0 pph DD0 0 >> 0P0`p0HDD0 xHDD0  H 8<0p@@0p00D@@0 D8xx0ppxp|@DD0x000x @DxDD0xpxDDDD0 D xxx0@xx0H@0Hx8D40@HDDDL0 000 DDTD0PpxphppDDTD0 PH x8(D0Px x| 0@@0H  |8<0(ppx8 @D00 P0@00Ȉ8xD0((xxDD0H X| |x<0@ 00pH08<0  DDD@ DDG@$"B@ @@$"B$"B@@@@  @@@{D@@@ DDDD@<@ &@<"(DDD@ $""p` @<"P@HDDDXqq DDDDDDKSTERAK lu SYSTEM.INTERP,ٚSYSTEM.CHARSET% BLOCKADE.CODEDE%3 BITEDIT.TEXTEXT0 0pxpxp 0 DDDD0 x0P`@ `DDD urther notice. % %The information contained herein is proprietary to TERAK CORPORATION %and must be treated as confidential.EGER); (FALSE:( TP: ^LINEOF) "END; "VCR: RECORD CASE BOOLEAN OF )TRUE: (ADR: INTEGER); )FALSE:(REG: ^GENBIT) 'END; "R: GEZ O^ It may not be disclosed to %others or used for any purpose except as expressly consented to by %TERAK. 6COPYRIGHT 1980 BY TERAK CORPORATION ="ALL RIGHTS RESERVED"}  (*$S+*)  (*$I-*)  (*$L-*)  PROGRAM CHARSETTER;(* V03 ADAPTED FROM UCSD CHDEMO 15-APR-78, D.K.*) CONST "DISPLAY = 15; BORED = 3200; TOPSCROLL = 16; SPARKHIGH = 80; WHIZBANG = 100; DEL = 127;  UAR = 26; DAR = 12; LAR = 23; RAR = 11; TERM = 27; RET = 13; ESC = 27; TYPE "CHARSET=PACKED ARRAY[0..255] OF PACKED ARRAY [0..15] OF CHAR; " "CHARREC=PACKED RECORD ,LOWER: PACKED ARRAY[32..127] OF PACKED ARRAY [0..9] OF CHAR; ,JUNQUE: PACKED ARRAY[0..63]OF CHAR; (*FILLS TO BLK BNDRY*) ,UPPER: PACKED ARRAY[160..255] OF PACKED ARRAY [0..9] OF CHAR; ,EUQNUJ: PACKED ARRAY[0..63]OF CHAR (*FILLS TO BLK BNDRY*) *END; " "LINEOF = ARRAY[0..23] OF PACKED RECORD >DATA: PACKED ARRAY[0..79] OF CHAR; >FILLER: PACKED ARRAY[0..47] OF CHAR B THEN MAX := A ELSE MAX := B  END;   PROCEDURE SYNC;  BEGIN "REPEAT UNTHR(3); (MARQUE[I+J,39] := CHR(192); &END; $FOR I := 0 TO 39 DO &BEGIN (MARQUE[160,I] := CHR(204); MARQUE[239,I] := CHR(153IL EML.REG^.SYNC; (*MS BIT = 1 ... VERT RETRACE*)  END;   PROCEDURE ZAPCRS; !BEGIN SYNC; T.TP^[ROW].DATA[COL] := ' ' END; ); (MARQUE[240,I] := CHR(102); MARQUE[319,I] := CHR(51); (MARQUE[320,I] := CHR(51); MARQUE[399,I] := CHR(102); (MARQUE[400$  PROCEDURE PUTCRS; !BEGIN SYNC; T.TP^[ROW].DATA[COL] := CHR(127) END;   PROCEDURE HANG(WAITTIME:INTEGER);  BEGIN "REPEA,I] := CHR(153); MARQUE[479,I] := CHR(204); &END; $CLEARBOX('Character set loader V03...please type as you will...'); "END; T $SYNC;WAITTIME:=WAITTIME-1; "UNTIL (WAITTIME<0) OR (NOT UNITBUSY(2)); END;   PROCEDURE CLEARBOX(TVAR: STRING); " "PROCEDURE LOAD(TITLE: STRING); $VAR I,J,RSLT: INTEGER; "BEGIN $RESET(F,TITLE); $IF IORESULT <> 0 THEN &CLEARBOX('!! Sp!VAR I,J: INTEGER;  BEGIN "ROW := TOPSCROLL; COL := 1; FOR I := TOPSCROLL TO 23 DO BEGIN SYNC; 0MOVERIGHT(BLANKSTR[1],T.ecified font not available !!') # ELSE &BEGIN (RSLT := BLOCKREAD(F,IOBUF,4); (VCR.REG^.GENBL:=TRUE; ((*FOR J:=0 TO 9 DO FORTP^[I].DATA,80) END; I:=LENGTH(TVAR); J:=41-(I DIV 2); "SYNC; MOVERIGHT(TVAR[1],T.TP^[19].DATA[J],I); PUTCRS; UNITWRITE(3,M I:=32 TO 127 DO THIS IS * R.CHS^[I,J]:=IOBUF.LOWER[I,J]; THE OLD, SLOW (FOR J:=0 TO 9 DO FOR I:=160 TOARQUE,DISPLAY); END; PROCEDURE INITIALIZE; VAR J,I: INTEGER; PROMPT: FILE OF CHAR; BEGIN PAGE(OUTPUT); RESET(PROMPT,'CHDE 255 DO BUT SAFE WAY !!! ,R.CHS^[I,J]:=IOBUF.UPPER[I,J];*)  F CCH = CHR(ESC) THEN "BEGIN $NXTCCH; $CASE CCH OF &'M','m':LOAD('MATH.CHARSET'); &'C','c':LOAD('CURSIVE.CHARSET'); &'O','$END; "PUTCRS;  END; BEGIN INITIALIZE; REPEAT NXTCCH; ACCEPT UNTIL EXIT; PAGE(OUTPUT); o':LOAD('OCRB.CHARSET'); &'H','h':LOAD('HEBREW.CHARSET'); &'R','r':LOAD('RUSSIAN.CHARSET'); &'A','a':LOAD('APL.CHARSET'); &' UNITWRITE(3,MARQUE,7); END. " I','i':LOAD('INVERSE.CHARSET'); &'L','l':LOAD('LARGE.CHARSET'); &'B','b':LOAD('SMUDGE.CHARSET'); &'F','f':LOAD('FORMS.CHARSET'); &'U','u':BEGIN CLEARBOX(' '); GOTOXY(0,16); .WRITE(' Enter character set filename: '); READLN(FILENAME); .CLEARBOX('Looking...'); LOAD(CONCAT(FILENAME,'.CHARSET')); END; &'\','|':IF ALTSET=0 THEN ALTSET := 128 ELSE ALTSET := 0; &'S','s':LOAD('*SYSTEM.CHARSET') $END{case}; " EXIT:=CCH=CHR(ESC); $CCH:=CHR(0); "END; "IF (CCH>=' ') AND (CCH<>CHR(DEL)) THEN $BEGIN SYNC; IF ORD(CCH)<128 THEN $ T.TP^[ROW].DATA[COL] := CHR(ORD(CCH)+ALTSET) ELSE %T.TP^[ROW].DATA[COL] := CHR(ORD(CCH));ITLE)); &END; "END; " "PROCEDURE NXTCCH; "VAR COMPAT: PACKED ARRAY[0..0] OF CHAR; $X,START,NOW: INTEGER; $HOLD: CHAR; "  &COL:=COL+1 END; "IF (CCH=CHR(DEL)) OR (CCH=CHR((*BS*)8)) OR (CCH=CHR(LAR)) THEN $BEGIN ZAPCRS; COL := MAX(1,COL-1) END; "$PROCEDURE DELAY(WAIT:INTEGER); $VAR T: INTEGER; $BEGIN &WHILE (T>0) AND UNITBUSY(2) DO BEGIN (T := T-1; (IF (T MOD WHIZBAIF CCH=CHR(RET) THEN BEGIN ZAPCRS; COL := 80 END; "IF CCH=CHR(UAR) THEN BEGIN ZAPCRS; ROW:=MAX(TOPSCROLL,ROW-1) END; "IF CCH=CNG) = 0 THEN BEGIN *IF SPARKLE>SPARKHIGH+SPARKHIGH THEN SPARKLE := 0 *ELSE SPARKLE := SPARKLE +SPARKHIGH; *UNITWRITE(3,MARQUEHR(DAR) THEN BEGIN ZAPCRS; ROW:=ROW+1 END; "IF CCH=CHR(RAR) THEN BEGIN ZAPCRS; COL:=COL+1 END; "IF (COL>78) THEN BEGIN ROW:=RO[SPARKLE],DISPLAY,,1); (END &END $END; " "BEGIN $UNITREAD(2,COMPAT[0],1,,1); $TIME(X,START); W+1; COL:=1 END; "IF (ROW>23) THEN $BEGIN &FOR I := TOPSCROLL TO 22 DO (BEGIN SYNC; MOVERIGHT(T.TP^[I+1].DATA,T.TP^[I].DATA,$WHILE UNITBUSY(2) DO BEGIN &DELAY(200); &TIME(X,NOW); &IF ABS(NOW-START)>BORED THEN BEGIN (CLEARBOX('...You may type in th20); .SYNC; MOVERIGHT(T.TP^[I+1].DATA[20],T.TP^[I].DATA[20],20); .SYNC; MOVERIGHT(T.TP^[I+1].DATA[40],T.TP^[I].DATA[40],20); is space...'); (TIME(X,START); &END; $END; $CCH := COMPAT[0]; "END;  "  PROCEDURE ACCEPT; "VAR I: INTEGER;  BEGIN "I.SYNC; MOVERIGHT(T.TP^[I+1].DATA[60],T.TP^[I].DATA[60],20); (END; &SYNC; MOVERIGHT(BLANKSTR[1],T.TP^[23].DATA,80); ROW := 23;   0dá"PPšP< D  #B  ڕǀ š+צ ...You may type in this space... R l á צ MATH.CHARSET CURSIVE.CHARSET OCRB.CHARSET צHEBREW.CHARSET RUSSIAN.CHARSET APL.CHARSET INVERSE.CHARSET LARGE.CHARSET SMUDGE.CHARSET צ FORMS.CHARSɡ š  @O @OET  Enter character set filename: P Looking...Pצ.CHARSETX áǀ# تP,-,-ȡP,@P,,,),+@+O,צ*SYSTEM.CHARSET (A|x_ @a "?B(,.0246e:<>@G HJNETV5WXpƁ/ צ CHDEMO.PROMPT      nj PP \`bh lnprtvë  ˄,ǀɡ@O @OÍÍ  áP'(  !  /́0ʁ0ȡO @O @OP@á  á áNššȡu@@@O@OOǠ@OǢɡ0'ق'''́0ʁ0ȡǠ'@(O@(O@<O@<OP@P4>\8 ƩƪՁ* 'Ǚ'f?'3@'3Ǐ'fǐ'Ǚ  Ʃ"2T<B<$ *  "?B(,.0246e:<>@G HJNETV5'5Character set loader V03...please type as you will...C+`L تP"ˡ)"!! Sp\`bh lnprtvë  ˄,ǀɡ@O @OÍÍ  áPecified font not available !!˥+ -.-.ȡ)-   - --Ǡ-.-./-ǠǠ - --- .-.ȡ2-ǠǠ- --H CHARSETT P @OP @(OצCharacter set file name: P @(O+Z # O^n  or edit the display. Type DC2 to enable lower case. Type escape followed by a  backslash to toggle between the upper and lower halves of the character set.  !S)tandard H)ebrew L)arge !M)ath R)ussian A)PL !C)ursive B)lotch F)orms !O)CR B  I)nverse U)ser  fff>>< (&&22<<**> > ""*"" >" >"  """> > """> """"""<>> """:*:"">"""""""""""">>>"2""""">""" """  ">"6**""""&**2"">""""">"""""*2L"" "< >""""""""""""""**6""""""""> > < <> CHDEMO... TERAK 8510a Character Set Loader and Demonstrator  &The 8510a system is capable of displaying m <"<"""<< <"""<"<$"""< """"(2 "any different character fonts.  Type escape, followed by the letter of a character set from table below, and  CHDEMO will load**""&"""""""""""2, &"< $"""""""""**""""" that set. The full 192 characters of the set will be put in a  block below. A character set file may be created or changed by 2, >>00> Z<$$< <@  @""""ters in context, anything typed will be displayed  in the box below. The cursor arrow and backspace keys may be used to positio"A||>@@@>$$$ $<$$$< < 8$< 8$$$8  | >>>I (I>  @  |**> 0(<"!s"">BB?!!!"""""BBB!9!!w"">""w>><w""w"?>@ "2*&" " ">"  ">8> "8"">"<""""""< c66**"ws"&*2"g!!!!!?BB>!!!!-0""""g! !Iw"""""gB" w"**6""c""cc""00>> L22L6>""!>B ""@@@@~BBBBB~>UU>>AAAll00<< ~~   <<ffffffffffÙÙəA""A ""@@@@~BBBBB~>UU>>AAA> @8DD<ÙəÙ #ə**@ "II6%) @*>III> @8 8*ßÙ$$$$$$$$   0(<"!s"">BB?!!!"""""BBB!9!!w"">""w>><w""w"?$$$ $<$$$< < 8$< 8$$$8 ll~c66**"ws"&*2"g!!!!!?BB>!!!!-0""""g! !Iw"""""gB" w"**6""c""cc" ~ ~~$$$$$@! ??0$B$$$<<$$$B$0__!>BI00 ff> < >"">"llf<<åf.DATESET: <1..31>--<00..99> OR P$"A"ff"AA"'*r""'*r*II*~ZZBBB~>AA>AIAAIAA]ccc]Aǟ`ƋUIAA>'*r"AaQIEIQaAAAAACEIQIECaQIECI]kIIIIIIIIk]IAaQIECAACEIQaAAIUcAAA`8`8 ` `o`o?IEEIAAIQQIABBBBB<AA]U]AAAAcUIA?@@@?~~ ><$6&&>DDD~FFF022>D$&FF~>"""":~`
FFF<B<@B<~DDDFFF~DDDDD(BBBRRR<BB$$BBBBB~~B0< B~>> 0``|`````|>< |b|>> >"bb~|D~~$ >"bb~ <|DFFF$&??`l  (>ǟ`Ƌ~VVFF>FFFF>""">>&&&>>222> ~F>> >> L|""bb~"""FFVV~66bbb`8`8 ` `o`o?b~ >$>xx *$ UUUUUfff>>><<&&22<<>>>>~~ffff~~ǻ> 08>>>>> >><>>00>>>> ><8>>>>< >>>>>><ýÙہûù??`l  (>ǟ`ƋٹíûûŁû`8`8 ` `o`o?ÿ۽lll>>>>0>&&0228DD8 $f$|8(8߃ùݝݝ >8(8``0  >>02>f~``>> >>">>" 0<$$"">0ݝ008(88(88(88(8  >> >& < >":*:><$$~FFF
FF>|DF~<>><"""""8 ll<~~~~~~<<~~~~~~<<~~~~~~<<~~~~~~<z^ >>>>:>>>>>>>>>>>>, >><8$6>>>6>>6>>6>>>>>`8`8 ` `o`o?>, >8>088<880>80Z<$$~~>""~~DD|>~>>@ >AAACCC> ? ??000?##? ?? ??!!??! >"">ccc?!!?0000  >> "  !-%%=>BB>BBB>BBBBBB>>>>"2""BBB~BBBB>> ""B""BB~AcUIIAAAACEIQaAA>AAAAAA>>BBB>!!!!)1>@"" "B<B<@BB<>BBBBBBB<AAAAA"AAAAIUcAAA""AAAAA"~@ 8~?? @~@@@@@@~*I <""|""""" ,2"""<""<$<"""< 0"""""\"""AAIII>! !"""|88?<<<<<<8DD8< > >00 ` -" ~~~~ >> """:::>>>""">>>>>>>>>>>>f<<åf 4ġ'too big to get!؞!>>>>6>>>>>6 >>~>>~>"6>>>>>"&..>>>>>>>>>>>>>>>>>L>> "<8<>66>>>>66>>>66>>>6">>>>>>>>8> <80 08<> <><>>><>>< <>>><><$>>>< >>>>8>"??`l  (>ǟ`Ƌ ýýͳݽݽÿݾ߿ն݃ûۻ?ݣZ<$$>< (&&22<<**> > ""*"" >" >"  """> > """> """"""<>> """:*:"">"""""""""""">>>??`l  (>ǟ`Ƌ"2""""">""" """  ">"6**""""&**2"">""""">"""""*2L"" "<`8`8 ` `o`o? >""""""""""""""**6""""""""> > < <> <"<"""<< <"""<"<$"""< """"(2 "ý  !@|@! <"\@<#!3@<(($>""<*II*>$ccw2*&wc". pggHHJ??`l  (>ǟ`Ƌc6*"cw">"w"""?32JNJ2""""">*w"$8">Dk***>k***~@c2*`8`8 ` `o`o?**""&"""""""""""2, &"< $"""""""""**""""""w""|""<($sk****k 8H<gBBNRRo2, >>00> f<<åf۷ݜ݁݀??`l  (>ǟ`Ƌݜݜߏݜݜݜݜýݜ̵`8`8 ` `o`o?ՁݜýϿ߿$ $$H$"<F&21 *,>޿>@ "2*&" " ">"  ">8? 8"">"<""""""< ƺՁ"00!""w?"""w"""""@$$$""A?""?>IیՔǷII>Dw""ww"2*&"ww"", xg""g$$$$%sc6*"""ww"">""w<BB<Iw"""""k*****>k*****@k"2*&"wz^HHx<~~~~~~<<~~~~~~<<~~~~~~</A/<~~~~~~ "2*&" >> "8""""""<<~~~~~~<@ $$$ $<$$$< < 8$< 8$$$8 00~~ " ":*:Bd L?! | >$RRBB>~BNll<~~~~~~<((((((((<~~~~~~<ÙÙə@@@@@@<$ 8$$? """""9Fq>@0 ~DDDDD|<$ 8~BN@H@~DDDDDD> ÙəÙ #əxDDDD<|BBBDG>" ~BRZZJ~FD$ 3"x  8 8*>ßÙρ @>aB$" 0~<@@@@>?3RBBB<>BN@@@< 0,#>@BBB~@b2>0 fff>>< (&&22<<**> $$$ $<$$$< < 8$< 8$$$8 llll*> ""*"" >" >"  """> > """> """"""<* ~ ~<~~~~~~<<~~~~~~<cAIAcaIIII<~~~~~~<<~~~~~~<<~~~~~~<$B$$$<<$$$B$/A/>> """:*:"">"""""""""""">>> zAz <~~~~~~<f<<åf?"2""""">""" """  ">"6**""""&**2"">""""">"""""*2L"" "< >""""""""""""""**6""""""""> > < <> <"<"""<< <"""<"<$"""< """"(2 "??`l  (>ǟ`Ƌ**""&"""""""""""2, &"< $"""""""""**"""""`8`8 ` `o`o?2, >>00> Z<$$>< (&&22 *,**>"  ~| """"""""""""""**6""""""""> >> 8 8>߁@BRZZJ~N N"<@`,$ <  0( +B0 8 2+b pDB|BFJRbB <""<$  0xX *UUD4JIH2#4LF<"!` <"`> 0"""l2R2"I6L4DDDfϹ߁ϟ`P 2Q`P0*~~??`l  (>ǟ`Ƌ?BBBB<< ?<"AB@?~BBBBB> " ~BRRJF>"?!BB$`8`8 ` `o`o?? *>>< (&&22 *,**>!!!^> "2*&" >" >"  ">> "8""> >""""""< 00>> " ":*:0HDFzAA"""""B<rBBFK3"""8 "  ">"6**""""&&*22"""""""""$ v"" "<# ժ*˵6 ˳:MSo6Lͭݶ6V2, >>*@  ?p&ͮ?ame? P/New default volume is P//??`l  (>ǟ`Ƌ`8`8 ` `o`o?>>< (&&22 *,**>> "2*&" >" >> ">> "8"">""""""< 00>> " ":*:"">""w""""""""$DND$BBD$baba<$""w>>|8 w""w">c6**""wr&&*22'""w""$$"""*,"" w" "I>w""w""w""""w""**6"w""ww"">>">"> 8 8*> <"<&""<< ,2""<"<$,2""< &""" " " NN<%< )93.iv**""&""""""&""""2, &< $"""2,"""""**"""""$ oqww{{{}Ow{}{wOAAywo_owyc]_owwc]EUE}cc]]A]]]a]]a]]ac]}}}]cqm]]]mqA}}a}}AA}}?!?w"">""w>>>AU]UA>g  g""wc6**""wc&**2"'>""""">""?""?"""""w??`l  (>ǟ`Ƌa}}}c]}M]]c]]]A]]]cwwwwwcGooooms]muyum]}}}}}}A]IUU]]]]YYUMM]c]]]]]ca]]a}}}c]]]UmSa]]aum]C`8`8 ` `o`o?}}c__aAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]]cwwwA_ow{}Aq}}}}}q}}{wo__G_____GwcUwwwwA>>< (&&22 *,**>{woc_C]C}}eY]]aC}}}C__SM]]Cc]a}Cg[{q{{{SM]]C_c}}eY]]]{{{{{sooookw}}]mui]swwwwww> "2*&" >" >"  ">> "8""> """"""< iUU]]eY]]]c]]]ceY]]a}}c]]MS__eY}}}C}c_a{{a{{[g]]]MS]]]kw]]UUk]kwk]]]]00>> " ":*:"">"""""""""""">>>MS_cAow{Aoww{wwowwwwww{wwoww{oU{"2""""">"""8 "  ">"6**""""&&*22"""""""""""*,"" "< >""""""""""""""**6""""""""> > 8 8*> <"<&""<< ,2""<"<$,2""< &""" " " ??`l  (>ǟ`Ƌ**""&""""""&""""2, &< $"""2,"""""**"""""`8`8 ` `o`o?2, >>*fff>><< &&22<<**> wwwwwkkkkkAkAkkwCucWawYYow{MMwkksUmSow{ow{{{wo{wooow{wUcUwwwAww{> ""*"" >" >"  """> > """> """"""<{}A}__ow{}}c]MUY]cwsuwwwAc]_g{}Ac]_g_]cogkmAooA}a__]cG{}a]]cA_ow{{{c]]c]]cc]]C_>> """:*:"">""w""""?""A?"  "?>% $$$ $<$$$< < 8$< 8$$$8 ll~ P` @ @Pp8$ ~ ~~$$$$$@! ??0$B$$$<<$$$B$0__">p00> Z<$$ < >"">"llm۽AAI""""""""""">*I*>w""wk**"A"Uw < <>0 \"""\BB># <"""<<$< tLDD@("| ##2*b *??`l  (>ǟ`Ƌ#^#BD(""""""|"""""B>>>@>?$""""""r~#"bk**`8`8 ` `o`o?"III600>  @fff8< (<<<@|B> BBBB<< <@  @""""> |~ 8 ~~BBBB~~@@@@@@BBBB$$$$BBBB""< "A||>@@@>$$$ $<$$$< < 8$< 8$$$8  >> ""((< &|<ll00<< ~~   <<ffffffffff"""0""" """"A""""L2" |< ~88 P@$"""$$<<\"""\"""(tLDD@L2tLDD@<<"""L2"III6\"""\"(\"""\@@ < <8$"# "l$Ù$$$$$$$$ (8$"(8$">(h(h(h&  ^ E@ &?  w U@w > 6 & h ^7 X F @~w 2 ?*  "U@  wE 7 wv FRX\`& ??`l  (>ǟ`ƋF J ^ f j n x |  " 6 B D J f 2  4 ^ v ~   6 j | h*06NV\bz`8`8 ` `o`o?Z Z ` f:@FLRX^djpv| "*2``@x` <f*"!>a@V |! "~#@!#bc \ j .  z COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD @ @f ~f{fxfufrfoflfifffcf `f"  P  ?]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&'($*!???????}}} /efAA,"<w ??????????????߯ooss7 &  G 6E7, 6 ?  w pr^_]wW&E7 5@|<7w {7yw 7 psw mw g-owwww~~뿀חחח@_ azE ~ ~UV3T E@ JD B94T?4 E@" "-lW߯Womom___߿_o7? ~7E@U@  E7 w wU &   ߯ *7 7 7 zv x7 vEl7 h 7 E7 tv wU W r7 $7 "' 8@ 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$ &     @ ` 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 J&\7 J&``WtB 7@` dd&`f&d&b&  m ef aBE B<<  wN EC~ B~Uf rfVpfz  eN  ɋ e  rfwBC % e 7d,\ Aɋ BJ@ B(  ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4INW ^<E  dt`  Ue E:tte E e' e- )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -잇EE7  e &RPE ҐREPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR ~ wU &f&f7 U   0ɝ^& _E7  WHILE WITH 7 && @  z7 &7 '7 &7 #7 R(7 #7 V%C DE!:7  7aehD A   aw7e:wXP@P7n@eI7 )\ vw *< R'(((@ BCzEG@HPtJ$LM nO(k70@wnM)w\ 7 , ßz 5U$ J  E   QRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &  7 7  @  27 !ׯ+U E `    ͋Z&X( &7 |v7 n|7 `|7 T 7 < 6 D 5|w 5B N  5 , W#D  7W ΁?Zw w   D5H\ = "  \m\  W  m ef5`\_e w5 5@ 5   :@ S~ e&-"wn.5) 5|w 77 :  .\ɋE 5\\\f F^T2&,FR,:  -& pU`E@ wHw . FU@ wU jjK E7 J-`f5tD P 6_ 8׌E % eC ~% C ``` ezLN wU  E@El7 h_&  ^< <ߗv<7|&fEʕ @W ^ e ]& 7 7 7ߐ2 7  | t ~"w d    X N<  x*w w ʕtʕ  Q~wEU 5  wK w: 7 ,* $? U@ _E7 wrf U?    V U  >e0   W <]@e" E@W ^< E&@ E7 PRTV + wU  E@  U@ _) 7 #'D& && 6  A7 ^R%f'$#p'f'$z'#'f'f'~&'~&#~&#~&#~&#~&X' e\ \S\?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA e& @7 #'<'e\'f& \:יc&>X4%]@& & & & & D&&D&& S#  , P#  , I#  l,á*6! @%7 rR%(  IA e e@ e& & & & & D&&e #@ F *STK OFLOW*תPFF+ ˡ 6!:9 "8?á <E7 _ @6 7 R%(6 6 #?%-0 @ ׳f&& @׳@f&7 ~&#"" K wU  J _&2 -/ -"@)#R%)f&f&7 l~&J)~&#~&#~&#~&#~&##f)#&<)   \)f& \ e\>:L]L?ƪ"  -~""t t n d ^_TR HD 28*7 2E 7 _@ \fEA#& e@ & f& f& f7 R%#) ff w   &@& "7  E7 #U@ % E7 ez\& Dr)&&* \   5@5@7 X#x$#R%$$~&d$n$n$n$~&#~&#~&#~&#$J&$~&#$~&$$f&\  \& \\r1@\[?\ ew & ?U?*@ڪAD C %     @  f&\   B -  e \z\D f C_  fW & @&&&&7 %~&&%J&%R%#%~&#R%##R%%#%~&&e\\;@\ \N @   =@f&ysE[\T8>`  PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD pCf&f&\% a @w   6 6 &  f 6A  v  6N\z \\\ N A f C %C B    \ w  D& &&@* 5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á š۫ ګ,0   ȡQɫ  ȡ 0  0ȡ!2ȡ5252š[ץ22š2222ȡ2š5252á4w4? ȡ  ġ  á ġMáš6 삫뻥 d]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń #( /Íáɡ 럚肚X55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO ū   áš  h ! ! 8 <!~áë  ÄÄ & ! !  Ä  1 ÄȄĄMȄtiȡF ōɍ ō ȍ  dč " !š Í 7ÄU ǐɄ:6ń~66! צ Exec err #   á, ,(+, ,áb쓡ë 쓡ת!!9 D*~ `+ \ (   d˯7 H ȡ  צ to continue) & ,Í ˫hp(ުPצצ22 צ0H" ġ  *@#ٕš ګ+ ) ! 767( :VQ28˄2    šš$ !邚邫镫ë퓡h  !á  d1  dÍÍˡ 퓄 Ä퓡 "ˡ ɡ!  ! "ˡf á3 á+á!   dÄÍ" ˄"ɡ  dá  dá C#C˄ C"ˡ  +Uz        áá ~צ/13:! Oš *š  4T h ɡ 逫      šˡ -á-32768ת Pġ>o00ń0ˡ oɡ Ä퓡w š   ɍL  "ˡ.` Nȡš 뾿  .dá   d쓡  21šá. 0á-   Q l>š Ą ɡ 낫š ꓡ2š땫ĚL삫Ú쾿  .Tá " *á š a "á61 ɚá0á +-Í-ëzV 0á ~횩 ˄˥ń á   l šš áš  š uš  gá /Ä+  ɡ"á aš!邚邫镫ë퓡S  ! "ˡ! "ˡ ˄ ת     n"ˡáˡ á sá# Ȅ 隹Ká/Ä á9 铡/! !!1ˡ   x á1 š, *ńȄ4šáRתP8FNo debugger in systemתP8F6^.)G:!ńȄ ,ń.áš蕿@šQ( SYSTEM.WRK. $*(J '%Ҧ74 textȡ2 š:X fE6!~?8FצPut in :P?'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8FP'Ǡá*EEE   !#E$ á"ˡ" %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  (& E ##&Eá +6+6ˡ6á  T4צUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(StackP"hvfp J.*L .Tf* zF d2蕿@šQ overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(ȡ2 š:X fE6!~?8FצPut in :P?צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-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á$-á z kO  ȡ %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\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ō$ƀ ƀ  :*צ dup dir entry(צfile already open(צ file not open(צbad input format(rP  ƋDR677::9ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.988:9  6 ۪1٦׷)&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(uצ: ܢܢH d    0&צצ.צ??String overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYC? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ , 7 ٢ š٢ ٢٢ 4*ƁV`tDoo odoo'zr:9CONSOLE:ת(:9SYSTERM:ת(8:98́ʁʁʁצ*SYSTEM.MISCINFOP*"áO* ?́*́ʁʁʁʁʁʁ 6ëצ???JanתצFebMarתצAprMayתצJunJʁ%ʁ% t*&*n تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMulתצAug Sepת צOct Novת צDec ???תצ??????ת6! PILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ%7̄詄% š t Welcome ?צ, tó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;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTexulתצAug Sepת צOct Novת צDec ???תצ??????ת6! . ,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't ope Linking...ˡ&צ Restarting...צ U not allowedn -   áث 7_a 7& š+  <f*"!>š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5z COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDצ.CODE.. Execute what file?/  P  ? šA.á צ.CODEm% /efAA,"<w  3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צצ:) Running...ء ء:9Must L(ink firstg222́42ʁ4ȡJ22č7ʁ302́532́6ʁ5ʁ5ʁ6ʁ5ʁ6228:9á'צ*SYSTEM.STARTUP %áá  e f@^ڤ áڤ !~ e ת*U  6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F!! !:!!ڤ  ڤ  áڤ R צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡áצ Assemblingצ Compiling...á999':::::&: Linking...ˡ&צ Restarting...צ U not allowed(yáצAssembleצCompile what text? (ׯ::(:.TEXT-:( RRJHá68AX0qz((* "D&(,. Dv\x"ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(76   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F-*SYSTEM.WRK.CODE[*]תצTo what codefile? (צ,áuצ$,,ˡ-צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡/  ^ 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 Z Z ` f:@FLRX^djpv| "*2``@x`d %  D~ " ~ E D~ D C~ %  D~  ~& <AA~E ea@V |! "~#@!#bc \ j .   @`& E&~AA~E e @`&AA~E e @`  `` @ @f ~f{fxfufrfoflfifffcf `f" t @L A@@A tBt B@P< ``f~ ``A~ c ҇ef r]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&'($*!``&& `  E e @a&&6E e @a&eeee e  e e& f   EezN EE7- E e @a \d<Z@@`@`$fH@7 `e B~  B~< _7 &  G 6E7, 6 ?  w pr@$@$@$@" EB~f r&z%% 7 J&\7 J&``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 `&& `& `0 m8~@ Bm*~@ Bm~     WHILE WITH 7 && @  z7 &7 '7 &7 #7 R(7 #7 V% 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 @|Η}½  & &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,:  C~ceί%@ eAp6% "1, 1,1,^  %wU jjK E7 J-`f5tD P 6_ 8׌E  ^A %^A&Daef ¥_09E AZ  El7 h_&  ^< <ߗv<7|&fEʕ @W ^ C  f ee $ $ $ $ @A eeee >eJ< <  x*w w ʕtʕ  Q~wEU 5 !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO   V U  >e0   W <]@e" E@W ^< E&@ ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4INW ^<E  dt`  Ue E:tte E e' e-7@` 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 1 E7 _ @6 7 R%(6 6 #?%-0 @ ׳f&& @׳@f&7 ~&#잇EE7  e &RPE Ґ"" K wU  J _&2 -/ -"~ wU &f&f7 U   0ɝ^& _E7 "  -~""t t n d ^_TR HD 28*7 2E 7 _C DE!:7  7aehD A   aw7e:wXP@P7n@eI"7  E7 #U@ % E7 ez\& Dr)&&70@wnM)w\ 7 , ßz 5U$ J  E   \   5@5@7 X#x$#R%$$~&d$n$n$n$~&#~&#~&#~&#$J&$~&#$~&$$f&\    7 7  @  27 !ׯ+U E `    ͋\& \\r1@\[?\ ew & ?U?*@ڪAD C % D 5|w 5B N  5 , W#D  7W ΁?Zw w   D5H    @  f&\   B -  e \z\D f C_  fW & @&5   :@ S~ e&-"wn.5) 5|w 77 :  .&&&7 %~&&%J&%R%#%~&#R%##R%%#%~&&e\\;@\ \N @   =@f&ysE[\-& pU`E@ wHw . FU@ pCf&f&\% a @w   6 6 &  f 6A  v  6N\z% eC ~% C ``` ezLN wU  E@\\\ N A f C %C B    \ w  D& &&@ e ]& 7 7 7ߐ2 7  | t ~"w d    X N7 #'D& && 6  A7 ^R%f'$#p'f'$z'#'f'f'~&'~&#~&#~&#~&#~&X' e\ \S\ wK w: 7 ,* $? U@ _E7 wrf U?  e& @7 #'<'e\'f& \:יc&>X4%]@& & & & & D&&D&&  E7 PRTV + wU  E@  U@ _ @%7 rR%(  IA e e@ e& & & & & D&&e #@ 2 ACopyright (c) 1980 UCSD and the University of Utah CAI group b.d.55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOS#  , P#  , I#  l,á*6!8 <!~áë  ÄF *STK OFLOW*תPFF+ ˡ 6!:9 "8?á <ÄȄĄMȄtiȡF ōɍ ō ȍ  dč "צ Exec err #   á, ,(+, ,áb쓡ë 쓡ת!!9 D*~ @)#R%)f&f&7 l~&J)~&#~&#~&#~&#~&##f)#&<)   \)f& \ e\>:L]L?ƪצ to continue) & ,Í ˫hp(ުPצצ22T8>`  %PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD TURTLE 5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á !!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń3  š۫ ګ,0   ȡQɫ  ȡ 0  0ȡ      áá ~צ/13:! ? ȡ  ġ  á ġMáš6 삫뻥 d      šˡ  #( /Íáɡ 럚肚X Ä퓡w š   ɍL  "ˡ. ū   áš  h ! !    d쓡  21šá. Ä & ! !  Ä  1 Ą ɡ 낫š ꓡ2š땫ĚL삫Ú !š Í 7ÄU ǐɄ:6ń~66!  š a "á61 ɚá ~횩 ˄˥ń á   l šš áš  šéÍ~  , Ą쓡"á  :"ë á uš  gá /Ä+  ɡ"á a 쓡ת$Ꟛšq#ń? z 0 ˄ ת     nń Ȅ! ~Í`~W ˡ!  ,ȫ$* á9 铡/! !!1ˡ "ë넡, ~ *Í2~ š˄ ) ! 767( :VQ28˄`+ \ (   d˯7 H ȡ  á  d1  dÍÍˡ 퓄 Ä퓡 צ0H" ġ  *@#ٕš ګ  dÄÍ" ˄"ɡ  dá  dá C#C˄ C4 2    šš$ !邚邫镫ë퓡h  !FP'Ǡá*EEE   !#E$ á"ˡ" "ˡ ɡ!  ! "ˡf á3 á+á! & E ##&Eá +6+6ˡ6á  T4"ˡ  +Uz  P"hvfp J.*L .Tf* zF d2蕿@šQOš *š  4T h ɡ 逫ȡ2 š:X fE6!~?8FצPut in :P?-á-32768ת Pġ>o00ń0ˡ oɡFP'Ǡá*EEE   !#E$ á"ˡ"` Nȡš 뾿  .dá& E ##&Eá +6+6ˡ6á  T40á-   Q l>š 8FNo user programתP8F0#^.)G:!쾿  .Tá " *á( SYSTEM.WRK. $*(J '%Ҧ74 textá0á +-Í-ëzV 0'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8á$-á z kO  ȡ %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  (š!邚邫镫ë퓡S  ! "ˡ! "ˡ *ńȄ4šáRתP"ˡáˡ á sá# Ȅ 隹Ká/ÄńȄ ,ń.áš蕿@šQ   x á1 šȡ2 š:X fE6!~?8FצPut in :P?5 8FNo 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ȡ~ؤcom timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not found́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7ת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(r%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTex&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u<ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̌fʌString overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYCfȡƆD   ̌fʌfȡƈD  ل7@ǀ ?̌fʌfȡƊDؤؤ  :*צ dup dir entry(צfile already open(צ file not open(צbad input format(rP  ƋDR677::96 ުP11ˡCۡ>1áIllegal file nameצNo file ́3ˡ צ.CODE.. Execute what file? not code3"ˡצ Bad block #02́42ʁ4ȡCƀ2ƀ2ō$ƀ ƀ  šA.á צ.CODEm% 3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צצ:) Running...ء ء:9988: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צ$,,ˡ-U.C.S.D. Pascal System II.0Current date is C -C-,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't opeC %System re-initialized(, 06" 0 MayתצJunJn -   áث 7_a 7& š+ ulתצAug Sepת צOct Novת צDec ???תצ??????ת6! š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš57  Linking...ˡ&צ Restarting...צ U not allowed$NEW(TGUscreen); $Newturtle(160,120,0,0); $UNITWRITE(3,TGUscreen^,63); "END; " "PROCEDURE Drawto(x,y: REAL; pen: TGUpensta  "CONST $ $TGUxscreen = 319; { maximum horizontal size } $TGUyscreen = 239; { ditto vertical } $TGUrowsize = 2te); { Global procedure 14 } "VAR tempx,tempy: real; &range: INTEGER; " $FUNCTION Funct15(VAR p6,p5,p4,p3: REAL): BOOLEAN; {0; { words per row on the Terak } " "TYPE " $TGUpenstate = (none, white, black, reverse); { order is significant! }  15 *** } $VAR p13,p11,p9,p7: real; (p17,p16,p15: boolean; ( &FUNCTION Compare(p7,p5: REAL; VAR p4,p3: REAL): BOOLEAN; { 16 $TGUterakscreen = PACKED ARRAY [0..TGUyscreen, 0..TGUxscreen] OF BOOLEAN;  "VAR 3{ Turtle state info } $TGUxcurr, TGUycu *** } &BEGIN (IF p7 > p5 THEN BEGIN *p4:=p5; *p3:=p7; *Compare:=FALSE; (END ELSE BEGIN *p4:=p7; *p3:=p5; rr: REAL; { cursor address } $TGUheading: INTEGER; { Turtle's angle } $TGUpen: TGUpenstate; { pen color } $TGUwant Ǡx?& 8"ؼؼټ޼cursor: BOOLEAN; { slow mode } $TGUalreadyinitialized: BOOLEAN; {smart initialization} " 4{ Newturtle info } $TGUxcenter,  ټټؼ޼޼Vݼۼ ܼڼ   8:9á'צ*SYSTEM.STARTUP %áá  TGUycenter: INTEGER; { start point to center screen } $TGUxlovalue, TGUylovalue, TGUxhivalue, TGUyhivalue: REAL; 1{ world coo6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@Frdinate range }  $TGUscreen: ^TGUterakscreen; { graphics buffer for Terak } $ "PROCEDURE INITTURTLE; { magic for inצ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡itialization } "PROCEDURE Clearscreen; "PROCEDURE Hideturtle;  "CONST $ $TGUxscreen = 319; { maximum hori Linking...ˡ&צ Restarting...צ U not allowed"PROCEDURE Move (distance: INTEGER); "PROCEDURE Moveto (x, y: INTEGER); "PROCEDURE Newturtle (xsize, ysize, centerx, centery:RRJHá68AX0qz((* "D&(,. Dv\x INTEGER); { init proc } "PROCEDURE Pencolor (pen: TGUpenstate); "PROCEDURE Showturtle; "PROCEDURE Turn (angle: INTEGER); "P6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@FROCEDURE Turnto (angle: INTEGER); "PROCEDURE Whereami (VAR x, y, angle: INTEGER);   IMPLEMENTATION  "PROCEDURE Drawline(Vצ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡AR range,s; size,x,y,dx,dy: INTEGER; mode: TGUpenstate); $external; " "PROCEDURE Init; "BEGIN $TGUalreadinitialized:=TRUE; 8 #J  f &  ة (  ي؊ <f*"!> (  ؂ɡ hh ' F   ɡ hhz COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SD 6   ثڥ٥ة        P  ?   ǀ%   ?  ۑ   ڑ /efAA,"<w    ۊ ? ?  ڊ     7 &  G 6E7, 6 ?  w pr `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m- &E7 5@|<7w {7yw 7 psw mw g- ` ~ m- ` ~-     @_ azE ~ ~UV3T E@ JD B94T?4 E@" "-l5  \j \  @7? ~7E@U@  E7 w wU &                @xnpdTTTTT6l8F4 n       E       ; ZˡM=     |ٳ:=8Ǒ9  ^ 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 Z Z ` f:@FLRX^djpv| "*2``@x`d %  D~ " ~ E D~ D C~ %  D~  ~& <AA~E ea@V |! "~#@!#bc \ j .   @`& E&~AA~E e @`&AA~E e @`  `` @ @f ~f{fxfufrfoflfifffcf `f" t @L A@@A tBt B@P< ``f~ ``A~ c ҇ef r]f$Zf&Wf(Tf*Q NKHEB?<963 0"-$*&'($*!``&& `  E e @a&&6E e @a&eeee e  e e& f   EezN EE7- E e @a \d<Z@@`@`$fH@7 `e B~  B~< _@$@$@$@" EB~f r&z%% 7 J&\7 J&``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 *7 7 7 zv x7 vEl7 h 7 E7 tv wU W r7 $7 "~<E `E `EՀW @p@ `E e `&& `& `:  WHILE WITH 7 && @  z7 &7 '7 &7 #7 R(7 #7 V%C DE!:7  7aehD A   aw7e:wXP@P7n@eI7 )\ vw *< R'(((@ BCzEG@HPtJ$LM nO(k70@wnM)w\ 7 , ßz 5U$ J  E   <   mAɋF! &ffD e w5 wDe`<nC<QRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &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,:  C~ceί%@ eAp6% "1, 1,1,^  %wU jjK E7 J-`f5tD P 6_ 8׌E  ^A %^A&Daef ¥_09E AZ  El7 h_&  ^< <ߗv<7|&fEʕ @W ^ C  f ee $ $ $ $ @A eeee >eJ< <  x*w w ʕtʕ  Q~wEU 5 !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO   V U  >e0   W <]@e" E@W ^< E&@ ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4INW ^<E  dt`  Ue E:tte E e' e- )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDURPROGRAM !RECORD -잇EE7  e &RPE ҐREPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR ~ wU &f&f7 U   0ɝ^& _E7 ; E7 _ @6 7 R%(6 6 #?%-0 @ ׳f&& @׳@f&7 ~&#"" K wU  J _&2 -/ -"@)#R%)f&f&7 l~&J)~&#~&#~&#~&#~&##f)#&<)   \)f& \ e\>:L]L?ƪ"  -~""t t n d ^_TR HD 28*7 2E 7 _@ \fEA#& e@ & f& f& f7 R%#) ff w   &@& "7  E7 #U@ % E7 ez\& Dr)&&* \   5@5@7 X#x$#R%$$~&d$n$n$n$~&#~&#~&#~&#$J&$~&#$~&$$f&\    7 7  @  27 !ׯ+U E `    ͋\& \\r1@\[?\ ew & ?U?*@ڪAD C % D 5|w 5B N  5 , W#D  7W ΁?Zw w   D5H    @  f&\   B -  e \z\D f C_  fW & @&5   :@ S~ e&-"wn.5) 5|w 77 :  .&&&7 %~&&%J&%R%#%~&#R%##R%%#%~&&e\\;@\ \N @   =@f&ysE[\-& pU`E@ wHw . FU@ pCf&f&\% a @w   6 6 &  f 6A  v  6N\z% eC ~% C ``` ezLN wU  E@\\\ N A f C %C B    \ w  D& &&@ e ]& 7 7 7ߐ2 7  | t ~"w d    X N7 #'D& && 6  A7 ^R%f'$#p'f'$z'#'f'f'~&'~&#~&#~&#~&#~&X' e\ \S\ wK w: 7 ,* $? U@ _E7 wrf U?  e& @7 #'<'e\'f& \:יc&>X4%]@& & & & & D&&D&&  E7 PRTV + wU  E@  U@ _ @%7 rR%(  IA e e@ e& & & & & D&&e #@ < = > ? @ A B C D E F G H I J K L