IMD 1.17: 27/06/2012 8:40:02 UCSD PASCAL SYSTEM VII.0 DISK 2/6 PART NUMBER 61-0011-002 REV A STUDENT SYSTEM 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  ~  _~U@pe5w E ŋw Ŋw C! @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @ PASCAL2 h%e SYSTEM.8510/A\G SYSTEM.PASCALb[1GLSYSTEM.CHARSET["Lh SYSTEM.FILER@[ghSYSTEM.COMPILER SYSTEM.LINKER@[ SYSTEM.EDITOR\ SYSTEM.SYNTAX\SYSTEM.LIBRARY\Ƞ  STRING1.TEXT[ " STRING1.CODE-Š"& GRAPH1.TEXT[&( GRAPH1.CODE.Š <f,4~%x$J8#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 r/HJKC  >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    \ /Student SYSTEM.PASCAL with TURTLE and TK GOTOXY 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 TURTLE & ,Í ˫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쓡AR range,s; size,x,y,dx,dy: INTEGER; mode: TGUpenstate); $external; " "PROCEDURE Init; "BEGIN $TGUalreadinitialized:=TRUE; ,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't ope Linking...ˡ&צ Restarting...צ U not allowedn -   áث 7_a 7& š+   "CONST $ $TGUxscreen = 319; { maximum horizontal size } $TGUyscreen = 239; { ditto vertical } $TGUrowsize = 2š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš50; { words per row on the Terak } " "TYPE " $TGUpenstate = (none, white, black, reverse); { order is significant! } צ.CODE.. Execute what file? $TGUterakscreen = PACKED ARRAY [0..TGUyscreen, 0..TGUxscreen] OF BOOLEAN;  "VAR 3{ Turtle state info } $TGUxcurr, TGUycu šA.á צ.CODEm%rr: REAL; { cursor address } $TGUheading: INTEGER; { Turtle's angle } $TGUpen: TGUpenstate; { pen color } $TGUwantצ:) Running...ء ء:9cursor: BOOLEAN; { slow mode } $TGUalreadyinitialized: BOOLEAN; {smart initialization} " 4{ Newturtle info } $TGUxcenter, 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   |ٳ:=8Ǒ#J  f &  ة (  ي؊>*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8 (  ؂ɡ hh ' F   ɡ hh ~8(8``0  p5 THEN BEGIN *p4:=p5; *p3:=p7; *Compare:=FALSE; (END ELSE BEGIN *p4:=p7; *p3:=p5;  `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m-  Ǡx?& 8"ؼؼټ޼ ` ~ m- ` ~-      ټټؼ޼޼Vݼۼ ܼڼ   5  \j \  @             @xnpdTTTTT6l8F4 n       E       ; ZˡM=      ہہǻ ýýýýݽGצצkת{צcתת(WצSתԦת(KצOת  ÿ۽ϟ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(@~8(88(88(88(8  >> BB~~BB~>BBBBB>~>~~Qˡá >>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|><@\B|:FBF:ǟ`ƋfZBBB>BBBB>xx > 5 FILEHAND  to> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ  MJLN0A$6Uۡ &Pɡ צ, áצ áצ expected1(& Ş"˶ I/O error # 4!צ Filer error # ءfܪ(G[!nء CGGá+á &"ˡ~[צ[\&),áY 6( ˡ  .  sآWצ:آ(Yצc&" ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ- آצ ? ) ,áYø۪   ˡ[ ġR&    צ ? (Y/N) - -F&צ ?   0ު(áܲ~Í %&ܥKO &&ȡu ''k' ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  ȡKk'k-'' ܡšڡKNJ [ áF([*****]/(ġ 0 2` ٪ # ת á  Y˄ &"&& & ܡ&'&k'{[1 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 File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צ  ڪ٪ت&:&Pɡ(š File/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to --> 4ثضÍצ$*á-:á?:saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <:á ;&Pġ - عEXå[ׯGC81(o* ame < scan string #צ vol name  M8!ۡ1á    - char. max >- Ɓ3"ݣ ɡݣ  ڕš"ق Illegal formatT<=ڲ= ݪצc&.צ what fileצܡC׷C#ÄÄ~Íj%á*צPut in G:'צInsert destination  what vol ?  , gg#š=jgjPg?=ɍ :disk % š " ݢÄg=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#š=P="=ݢÄ ۡ"ˡ ݢڶ /ݢ0/0 /0"=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 =g/0 0 òCń /C"ݢݢ///צ://td צTPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGK׷ȄransferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransferff@Զ  rުݪ"צPWkKGšׯɄ  צ. Ɓ-צMakeǐh"))** **S{c\ڥs[KG2G:[ Remove oldRƁ-צChang"&G:[ madeצT! ߪ Ɓ8 55 *SYSTEM.WeChange to what׷{צSW,,W,צ:,(,,(,{A,(*צChangeRK. 5 5 4454=5  d66.6.6 65ݪ   p *[")ǐ ),, d,,[,["𥀈{á򥀿D#٪ؓצ *SYSTEM.WRK.,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 ?  Text file saved  & 0צCODE  #צCode file saved62"o.,%ö,ÍP$&,􍓡~%K:, %,,,|.צצ not named2 Workfile is :.񄓡 (not saved) No workfileڶ+šڸ+*ڂ*ŶB < UNUSED >     .p/ƃƅ'v%.ת&תת(&Ɓ.񄓡9&צThrow away current workfile ? Dir listing ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅( ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צצ Ä . %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/Remove  ء&צWorkfile cleared&Tf ' ݪܪ  : .  ǀʅ- ʅ//ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ á@ .  ڲ צ& * )'Getצǐ&G.[0ƃ-ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ .&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ ƃƅ0ʅ/ƅ0. ڍʅ- /ƃʅ. ƃ/ƃ  ƃ files;ƃצ, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest&+- ȡ%ܾz ܾ0ŶȄ: \,%Date "١ ƃƃ"ƃ ,  N- Vols on-line: ȡ &Gset: <1..31>--<00..99>Cˡ_צ Today is C -C- ȡR~צ; צ #  :צRoot vol is -   T USVR̂dVʂdȡצBlock V ƁdVƁdV"á dV"Ɓdd  may be okVWarning units   &  צ have the same name--('z is badV3ˡYV šOUVˡ9TTTM šTVT"צPrefix titles byl;G& Prefix is ;:`%\!X0T4P1L5H6VVUVVá52Mark bad blocks ?š$צ (files will be removed !)צ (Y/N) 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--*..\//x0001B1Z1h55p8L5H6G CK"צ: zeroed p1šצFile(s) endangered:Mȡ " " ġ  7l\ؤ áצ Directoryڢڢ  v 2צCrunch@צFrom end of disk, blockצStarting at block # 3 % forward ת ˡZ ȡ<ڤ š+ؓښڤ ȡ3ؓ R j3צBad block scan of ȡ'  š 7  צback  ġ ɡ7 GצHScan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ : crunched#צPlease re-boot{ X6تPFP') x"ˡ93צBlock  צ is badۂġ צ bad blocks2 R88ת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+צ 4צExamine blocks onצH&Block-range ? S  SRR  RRˡR&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. ġ RSSRō5%SVR̂dVʂdȡ V3VVš#2 Fix them ? Ǡ  4]8+&Filer: W, B, E, K, M, P, V, X, Z [C.4]8ڡ$&B% ȡ~٤ܦ׷u ȡhܲ~ؤ ^^^Uˍ^U^^ؚ^E/)ǐȄ Zá .Z Z Zڕxrmhc,ˡ áá)}Í+-*68Fu!^:,+,+ڕǴצ <<<<Line W , error  :/2( (continue), (terminat+ á +'á,'ˡ++%++á #R---+-+RZ e), E(dit EÍeÍ^ÍEeÍ ^U ǐÍ ^ /<W >  '09ō.á7.ˡ. 09ȄáEáL Sp Z$M/áUˡ$/á0Uˡ$$)U,+Z$/%+XU-á  +á09Ȅɡáȡ:  0 ń  ˡX%*U.-Z%$UˡǑá $áUU:&DK 0, 0 #ثە$ġ  ȡ5áؚ 澂0*W  \ X ZdšdZڞá% š  šؚ0ە ȡ  0ġ 0ڕ$ڞ d66U6Zń/צ>>>>>> Error # 6 l~ڟá  ȡ 徂0 á $ $$ b3~ؚ7؞áeá ؞á٢ؚ٢ؚآآ< bWW/2.WV2á2f JK/}*á*.á <W >),áZ ááP P &XX=á '((')   =>)C f$3>A COMPDUMM  ڿڞڂ,$áˡ,Í +۹Iš)P PASCALCOCOMPINITDECLARATBODYPARTWRITELINUNITPART +ë0+ë+ë2+-Í+ë-(*á) %  ǖ X"ˡ.X(.TEXT-"ˡǓ%.Z-U*U +-Í&+ë))צ*SYSTEM.LST.TEXT("ë) -ë/򥂀 z+ë1s-ë#l+ë(e+-Í-ë11-2$(0 -CU&fc^ [ XZ\^`nplnprtvxz|~&%1 z [ġ%ؤáQ񂥀ؤ[NQQ.J ^؟ˡN٣`;٣ á/á á ǐ" .ٟˡإá؟؟"ġ>~ڟˡ(4٣ á-٣(uצ undefined\#!   D áڣb 3g3ChG4E(DFCBښá OO&J XIō~ %M >á á á  á á !ک9áˡ <  ڟˡá 9ÄM Mé Äܓ+MáM Mé ÄmܓMá á    y2y y%á:á9% ީ4 ޢMÄ% Ä  xMˡݣ 9.*IÄN+N[ޢ ǂإ (é`á  á  ˡgá áVީ;áá I \M!M MON Iá>D.  Máᚹ2ީ:&á ᚹi#ááإj$áá ;Z^FƂƃƂ0ƃ\ƂXƃƁƃ* Y ma ˡ)WW إF0á5á.ީ ޢإ j   ޚ áV VYY *+N/W צ linesYšSצ, Y< ۟ڟÍáH Hˡ Ä ޓ%  HH secs, YW  lines/min/DSmallest available space = T  words߫HÄ dݟܟ˄ބ ̄ʄȡN̄̄ʄȡ3N̄̄ʄȡ̄ʄȡNݟÄܟÄÄÄ#`!%á á ,0I; ̄ʄȡNP̄ʄȡΟˡ Ω(̄ʄȡ ؿ  ٿ 4áˡǒƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 Y<  )=á   {  "$&(*,.2468:<@,NPRTV6šۥٞقق؍+áˡǒٕál R  ABS  NEW  UNITREADUNITWRITCONCAT LENGTH <Ϧ*SYSTEM.PASCALת(Ϧ*SYSTEM.LIBRARYת( -&Q[\RǂNJ+* P'!/INSERT DELETE COPY POS MOVELEFTMOVERIGH"0, 21(.3%$ȡؤKW'  By8uyq) آآ;;آآ::dL آ99آآ88آآ66EXIT IDSEARCHTREESEARTIME FILLCHAROPENNEW OPENOLآآ77,آآ955,آآ94 4آPآآآآآآ9آPD REWRITE CLOSE  SEEK !RESET "GET #PUT $ INTEGER ۢۢ  REAL ۢ;ۢ  CHAR רۢ9ۢ  SCAN %BLOCKREA&BLOCKWRI'TRUNC (PAGE )SIZEOF *STBOOLEAN ۢ8ۢ  STRING רۢ4ۢ  TEXT ۢ7ۢ  INTERACTרۢ5R +GOTOXY +̀ʀȡ{(ٳ %`ٳڡ  ̀ʀʀʀڡ ʀۢ @ @INPUT רۢ7ۢۢ ۢ @ ? ?OUTPUT ۢ7ۢۢ ۢ ?  KEYBOARDʀʀ ʀ ٚ b ODD CHR MEMAVAILROUND ۢ7ۢۢ ۢ  ȡN ܢ8áFALSE TRUE ܢؚܢ ښܢ 8ٚ  SIN COS LOG ATAN  LN  EXP  NIL רۢ6ۢۢ ۢ  MAXINT ۢۢۢ   ZG G רآSQRT  MARK  RELEASE IORESULTUNITBUSYPWROFTENUNآF F آآآ آE E רآآآ آ آD D רآآITWAITUNITCLEAHALT SSȡܳ 0ܹ8 TTT9 TTآ آCC آآآآآآآ آ آ آآ آ BB רآآ;T; TTTTTTۚTbZ8 TTT@;:5-&آآآآآ آ آ آآ آ VREAD READLN WRITE { VP84$3ݡ  TTT T ݡTT؟ˡآTښTؚ WRITELN EOF EOLN PRED SUCC  ORD  SQRd(&š##=AHZX)UWVȡ1Nڢڢ ڢڢ  ǔ  á   ߢ ˡk ߩ4Äg  á4 ߚ       ˫  á   ō P Pˡ ߩ4  á  váqáW ߩ:  á$ˡ ál ˡáá&     ޟˡ    á  á ǿ ߟˡkߢ  ǔ ޚá؟*/1-" h   آآ ái3 3 á)  إآ  á   ߢ ˡk ߟˡ/á&ˡ ;áǏ š f ߚ آ=آ =$ ˡ ˩   l   q q qu  ٟ$; ڟ˶zbک;˄2 ġ%ɡ܂5á+á$ ] ] ,á á    ߚ|u]tmiexaM }*I / ɡ۸ ik3T@š  ڢ  ڢ ڢ ڢ R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ %>PNmmDz I~؟آآآ N>>آآPROGRAM آآآ ٢٢٢ á   ٢٢٢٢ 3 3 á!   áآ آ آ آ آآآ!á^ áN>ˡ >>   á (má  á   áU  ˡ8ȡ,; m   ء n      L M Mآ آآ>آآIآ\آ آLj z Z }*I /  ł á       ˡ o   R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  ٢٢ ٢٢    ˫  á  á  á (  š u u uá ~ˡ  á2 ߚ  öń ˡ%      ł  á%    ˫    " " ˡߢ á  á  ád   Í kk    áá>  ߚߟˡ ,(  ٟá138:+ Aٟ٥ ݢݢ I ݢ ݢ   ] ] ˫  á  -N٣ ë''٣ [N٣ /80"ˡ ǻ 0ˡ ǻ ]ٟˡ<ݢۚݢ ܂ á۟ˡáݢ~~ؚá%   9"ڤ "ڤ ~/rڤbڤë'']PP é  ]=ˡu =OS ^   áw   @PPš Nۢۢ"ڤ ۢ ۢbڤۢ[Ǿ á $,Z+U)U ! @á  ˡ = ߚá I    68 Iˡǽ   ؓ*$<ؓ˄ $+<́ʁˡʁ ʁ́Ǽ  . ˫   áJ á<    ˡááy  ȡ 䏂  ء"ƁTURTLE ר́́Ɓ\Ɓ [( צ words]<W >á ( (  ߟˡ ˡ á( @ !́ [́Ɓ ʁoƁ ʁ́ʁƁʁ<ʁʁ' ʁ ʁ ʁ ʁ<[áʁ 'U á+    آˡZޚˡ@á -á&ȡ  ' ʁ ʁ['ؓ ˫ ˡ  ؍ؓá  ʁʁƁ$ <0ce2  ޚٟl ء@. Ǐ QP[ [  Ǐ  ޟˡ1ȡ$ީ;á m á Ǖ ޚq ˫  á   á  #áS~؟ٓˡ Ǧ ٓ۩ۢۢڢؚ       ˡ ál "ȡˡ9   ˫  á   ˡ  á ۥۢۢۢ )é Ä   ȡ ǎ   ߟá-á  ɡ ~  ł   آٚآ á%   é   ˡ ~ߚ á  *á  á   ߟˡ%Íߩ;Í s  ߩ;ár   á ݥݢݢ )é Ä   ڢۚ=ٟˡ)گ ٩=ˡآ=ߚߟˡ% š ǩ \.áW ǿ    á  á%   é  =ˡu ={ áM   ݥݢٚ ءPš PPN[Ǖá [[á l۟ˡJá5áSړ Ǧ  ȡۢ ڡ " ^Ȅ "3ǔ ؀ ؀ ɡ  š á  š ܣ ˡܣ [ؓǏ   CI \ ܣ \IɡII :ȡ ǀ  (ǀ 3ámá šˡ ۚš$  ɡ. ~ޡ áޓܢۚo ޓܢۚáP á4ޡz  ġ  á ٳ0d@ h ٳ ǀ  FJ)ÍȄ )ܢݚݟˡ x ܢ   ޓ{ á  ܢ5é$'IˡǷ  $Ǹ ءá ؂ ؂ #Ȅ ؂ خ @MÍǀ   Gڳáق  [( צ words]<W >\*5á+ šخáخǀ  خj[ؤ[[[[Ǖš +2 ؤá "O    $ܢ"é Bޡǡ ܢ"á á    @ؤ Oؤ8`ǀ Ȅ ?á(ۢ䚩á 䥁 O MM M I \ء[&#!!  $ۢ9á ۢښ   8ˡLJ !خ  ٢`m  /@#.IéP Ä $ 1á  á' Ǻ ~   á  áۢۢ`mɡ'ġ 9!٫ خ 4Pˡáb'ڢȡ;  á IáNC $ !á ǹ ˡQ$ á$خڢ+;˄6á;á33S,á)6I D+%ݍm   aTOA v$~  Zn RJ)##:<> 4!O˄˄0  ˡS>á+ O MM M I \ء[&#!!  8I6ˡǐ #;=? E.dˡfN &ǐ E&á%2 á X&á$ R~ ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  /@#.IéP Ä $ 1á  á' Ǻ ~   á  áޓá     I [ $ [ $'ǀš'(&ˡǒ &&'('ک} ۢ ۢٚ۩Q؂''h&ˡ ǀ D t ޮ < á  á á %áM-#á}  ˡ.$ع0sokgc_Iˡ"g . VCtˡuN &ǐ E&á%2I   á áá`  !á > ؟ˡ4أ á'أ أ  أ ˡ"g . VCˡˡء!%" أ } } nˡ} á  á  " ˡ} áR   ˡ Ä á)  6I ' á" ˡ} á   ˡ}  á ~á Iá)6    < ˡǖ g    8خ2خ"ɡٮM2خ˫  ɡ  šث  4 ٚ  :ˡńi; i iáݟˡˡ NJ  t á +ˡ/îá2خá   ˡ ˡ} á  ˡ ˡq ݟˡ < , 1 ˡ䀮šNj ˡ>'   ˡ ˡ} á/M2خ٣ɡ ٣ šث ٫+áMM: á 1 @$ńˡá  áˡˡ nj  áˡu á á :} á     t ^"ˡ ˡ} ás áǘ ^ " ǐ  !   ˡń  WˡOeNORMAL ILOCK ׯ 2PURGE CRUNCH ׯ    M-Í; ááǏ ˡńǍ  i i 1-.+ "ˡˡ}  áǏ Xá   ˡ} } FM?M8ˡ 9ˡǏGv dá}   Eܮ29Ä Há=ءǚ á/9á'R  M (_83 6-!ˡ ˡ} á  )á á á}  }ݢݢR 4  ˡ} 4  x"ˡ' áˡ á  ˡ 9ˡ} á  "á    "ˡt á " ٟáǞ eˡǢ WˡQ ة;Íǟ < -؟ˡ á ˡ}  ˡǏ á  á  " ˡ} á   ˡ}  ˡ ݕˡǎ ګ1á&ág ڟˡ ˡǎ ǚ  ǎ ٟˡˡá    :     á   -8Ä퓫 ˡ8ˡ LJ ٟˡ~ ޣ áޣá V"7ޣ ޣ ÄOޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ   á  ˡˡ Lj   Ȅ  ˡ Mޣ ޣ 4ޣ áBޣ %ޣ IáNޣ ޣ áOޣ .ޣ  ޣ á(ޣ ޣ ˄ޣ (HSx áG    lj ޡȄ   ޡ 䔜ߡlj(أ áأ á t ݳ͐o" ݳ}ݹ&'ޡ2 ˡˡ ˫  á  ߡ,RRR RRRj0b  [!W"S#O$KG +@7575 799;9E"$&EC,GIGEG8SIGi٣á٣ á%٣ } 9ÄǏ @%áM M 8ˡáás ˡ ġ} ˡá 2I٣ ٣ ٣ á)٣  6I٣ ٣ J%@ö=} ˡ(á!9á " á ;á} ˡá;á}  >á  á  ˄ٮ%"ág ˡ[ M K; <:  )9 M     ˡ ˡ} Má   Má  M} -˫  áٮ%M- &?ö;}R ˡ(á!9á  á  á   ˡ ˡ} á  " á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ   ˡ ˡ}  "ˡ ˡ} ˡ!áM )  ÍMá ١M ة;á5١á" " ˡ ˡ} rة:  ١]ة9á ١MJ-á ;ˡ;áá} U'NweD+$&*,._ 6 ١M5 )ˡ ݕ١ܮܮM} -˫  áۮ%M-Y4>@DFHJLޡá  (s ;;Í؍á ;á ٩;0)Í!á 'ޣ á ޣ ˡǐ áٟá~  "ٟ˄٣ڟˍ٣áȡw9Ä á \ :á ة:6*e: e e^  ܣáܮ&ܣááá :;é1 %ک;  ; 4D Ä ,'S  ܮˡá ; á9 4    dž (ܩ88Ä  dž  |& +ˡ ە ܚޚ۟áښǓ ˫  á  /aڟˡ9 ˫   Í߮ˡǁ ؚ,.+)á 9Íˡ ȡ  S + 9ݟˡ` ݚܟá ,   9 š   ݟá á  >=jFˡ ȡ ܟ˄á+á   ǁ  ǂ ˡ )* . G#4 خ/a˫   á خ 5 EG V5 ٮ@  S. f  ܩ;á ܩ8á  ǃ   DŽ  u خ á 6 /9ٮ خB6áX}  á   Ǜ ؟ˡũ;  Ǐ %  ˡ  ǃ 5ǃ  "Dž  o1 á @   A áW ˡ>ˡǐ 0 ! ؟ˡé1 Ǒ 3 *564/1(0!7/ 1, )ǁ 8 jF@خá   ǀ @ˡnˡǐ ` Q ؟ˡé1 8߮ 6 ˡ ō  á 9 ˡ ȡ ٟ˄á;  ;: á šá40Ǒ 7 @ ! á 6 / á9߮  "$&(*,.02468:<>@BDFtdPRTVXZ\^`M e -&:ˡ ǁ :ޡK9Ä47ˡ.  9˄Sˡǁ ٫٫ e1 $d--'á  - ܟ˄)*Ä?ܩ;;Äh ]WGޡ*٣(('( ǒ  MoQM`A#ǁ 3 /Ä   dž )ܩ;;Ä dž v*ÄÄ  dž   02 #áP~ڤˡ~ڤ؟ٓá 9 ٓǧ   7R FÄ dž -ܩ88Ä dž  'rD0 $R, (é`  n1/a˫   á  8: B2á8á ܓ ٮ á,. á";áá dž (á  , ܟ˄) 4  /ܡ ۡګ  á-ܓ  9خ ٮ /ܡ ۓګ خܓٮ 3 *Ä?ܩ;;Ä/Ä  dž )*Ä?ܩ;;Ä/Ä 9߮ ٟˡ٩;Í ǐ  á    ٟˡ^ Oܟˡ ȡáǜ    a `}p  ܣá ܮ0v 2o 1h 3a 4Z 6S 5L 7E 8>é ڣ  ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ"  6h  "$&fZUIRFAm!dš  &  JJ7 Ql   " "ڣ"  " ١qˡAۣá "ۣáȡ /#!  /# @# ( Tɡ Tˡ;צ [  `  ڣ 0  ]Z@B.١NáöÍ words]<W >ˡڟˡ ˡtáašQ2 6ٮ / ١ بȡ      áأ ` أ  أ   *ˡ (ޕ( áWV~ܟˡ ܢ  .Iá(<ڟˡ          ȡ   á      ġ ڣ M~ڟˡN 2 2 ,á5á9áMIé$ y{ġ  ˡˡ$&LGv .Ǐ  &UW/a˫   á  ~ڟˡ 2 M %Iá<ڟˡڣ ء~Nڟˡȡ𥀲ܤˡܹ FSEEK ר~ FREADREAרj FWRITEREרV FREADDECרB ġ ڣ áV' áA-á۶~ܟˡ `mˡǨ ੁFWRITEDEר$ ' DECOPS  tbP>%ȡ  "!    ܤ šߤ ޶á     ؕ  \ I ..N QQ ܤ   ܤȡ      +ء*4<NG&F\QG ART!99  F8``  L r4p` !2""#$$%L&&N'$ y{ġ  ˡˡ$&LGv .Ǐ  &] 7á}   EBخˡxál ɡ_ ~á~ۢۢۢ B((( f,,F--J///0./0~00b1p222B3r 9 á  ~ڟˡ 2 M %Iá<ڟˡڣ +8~ۢۢ š nj ˫  á 6 /ڕ ٕ  8J&š(ˡ2'é&Ä&ȡW&ɡǀ' ȡ%٩(J#á[~ݤˡ~ݤޟˡ# áǥ ǧ  á  0 UW, á( ܩ&ɡ ګ ȡ  l ڣ *SYSTEM.INFO[*]"ˡǒ . Ƕ . Ǐ QI \ [ MPPPPš [   ˡ TAݟޓݥ e ޓ* A ݫAN؞ (M M I ɡ- ~ݟˡ   á   0'&6á" 2ˡ "" N NN 3á   _4ˡ a تP%Type (continue), (terminate)++á+ á VTr \ &š(&ˡǒ *Nݢݢ" á   ˡٚi.ھZڿ Zá  M I\[ M M! Ddnt ݫAN؞ (ǀ"ȡ6ݢܢ`ܢ`ښ>  RM M I ɡ- ~ݟˡ   á   0'&6á"  ٢٢ٟáٚUۢ٢  !ۢ٢   ٚ۟áڟˡܡڢٚڢٚT x 2ˡ "" N NN 3á   _4ˡ a ݟˡ2ݢܱ !ݢܵ ˡ: H ܟˡBܢȡ&ޢ ۯ ޢ` ۂۂۀ Nˡۂ.ɡ3 ꕞNá:צUnit  not foundl ȡ"ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXT - > [ ڂتP.(2.P."ˡ2צ in workspace.CODEN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?  P."ˡ&.!צNo file Pˡ !צOpening /s//./ٚ./ EګצWriting out the file*ZlDTXZ\l\B.5$<ˡsegtbl read errá>-2-2ȡ+/c-˫ZZ--Z/ -0,&SYSTEMLELINKER á11/22`-ˡצ bad byte sex02`-Ä02-2`-˄'2`   >`  ת' #Zë[ !ššk N] J D7 ǀ$  U/YHڡٟˡšá8 ١צ li read err ١آ@ á ٟˡ šN ؟ˡYD٢ؚ٢n ٟˡhˡc٢ˡUáצno room in seginfo6  ٚۢۢۢ٢٢٢ ٢Ǡ ٢أǠٶٸf؟ˡu!!!`أáW -ˍfunny code seg2-2-ɍ2-,ōצ bad diskinfo2`-1צ bad seg kind non-alpha name٢ōצ too many refsצ bad formatáōצ2 -  bad seg name,š----š0ÄצAll segs linked,á/[` bad privateá ˡٮǠōɍ Nōצ bad globdefō bad publicdefe٢٢9ȡ Linker [II.0 a2]E˫[':'צ in workspǠōɍdōצ bad proc/func$  vY[]_* Ŕ&ʁ&́'ʁ'ʁ'ace'*SYSTEM.LIBRARYצ Host file? 'ׯ?':'צ i,צReading ʁ& ́%Z4Ɓ ́&ʁ&ȡƁ Ɓ n workspace'š  ȡXצ Lib file? 'צ***SYSTEM.LIBRARYˡ bad litype fzá́%nšE   ۢZ ́&ʁ&ȡۢצ Map name? 'צ,.á .TEXTץ'۫۟á! ۟ˡá2á*Ȅ  צ bad host LCʁ% ܢH ȡۢ`Ä ڢڢڢۢ`qˡצ bad ٢ áWsBJ؟ˡآōצ bad proc #ڶ host segˡצ dup host segګ Láڢ ڢګ3áۢ ڢ  yy}/Já ˶˄disagreeing p #Iٕȍ Nōצproc place err  N ښ ȡ á  áצ weird hostFTO_| l(ǐɡ sep seg 2 big ȡˡsep seg rea۟ˡSȡ<ۢcá'ڢۚڢڢڢڢګٟˡ٢٫eyj d err5Ǡō bad proc dict!   #ȡ ˡ ZGlobal iצPublic VConst DProc 3צFunc "bQB 8)ނ  ȡ݂ˡצ proc read errLáܞ@1 undefined˄$ܚsX$ f"؟ˡ&&&آߣޟ+á؂ ,  ݟˡ  ˡ+J Copyinˡš ޢ? ɡڟá0ˡ"ڟˡˡá ڟáٟá ضؚؚo8l$ˡ  ޟˡ á ڂُȡצ size oflow)Ǡ#ݢˡݢ ݢˡݢ ݢݢ ˡݢݢ # áݢˡ á  ޟˡQ ؚá6ǠǠšצproc num oflowǠޢǠݶq  ۡ,צProc  param mismatch #áݢˡá  ۡ,צFun (! (ǐɡ%(ǐɡצ out of mem  Wȡc  param mismatchO áݢݢ unit err$3Z:$V  ˡsep seg read errظZ+! (ǐġ   #    base =   leng =   ȡ١.؟ˡ"/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext  צ Sep proc refs -؟ˡ# צ Local seg refs ؟ˡ צ   Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \: public LC =   צ const val =   privat LC =   צ unit seg# =,$ T@ F$ h###f$$2%%%%%&&L&`0n ת'WƁ Link map for ˡ  _ glob def in    @  s j Q  Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/@ ;&H_0 O Linking #צ #  /Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext á(׷0*--.   !/Ɓ ƂL/צ Output file?  '  ~ \6F& EDITOR ׯ2*SYSTEM.WRK.CODE[*] 2 "ˡ Code open err ƀ  ̂MʂMȡ'@ INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCORE ƀצƁ "ˡ-צ Can't open ת'WƁ Link map for ˡƁ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/Rev 1$ڶ ڶڶ,ɡ  - á'/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext  2ضˡצcode write err  base LC = Ɓ Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \:@#؂.  Seg #    ,  #,$ T@ F$ h###f$$2%%%%%&&L&`0n ת'WƁ Link map for ˡ  ؟ˡ Sep procs ؟ˡ צ   á  proc  funcƁ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/ 2IھPھNéN˄  ˥P۾ܥOڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ ( P!کN˄9!'۹  vڤVڳNĩ1ۥ č%`wȡ'ڤġڤڤ؂  * 񿥆P&  IĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 vPv v&áٕٕ:áܕܩܕ   á   "á <&ȡ<-á á.á é Äە߂ũȍ0 á   ٪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: < > { to return) -->ƂPƂ " ȡ"   >Edit:KN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5áƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.tx> to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}תP ɡ"ˡWorkfile lost.vFNo workfile is present. File? ( for no file to exit ) תPvr2 Insrt: {,} [ accepts, aborts]תPI4 Delete: { deletes, aborts}תP5 Adjst::  P á v ,á ̂5ʂ5ȡ   .TEXT    L(ft R(ght C(ntr to leaveתP צ+ Edit: A, C, D, F, I, J, R, Q, X, Z [E.6f]P<צ>Editȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á :צReadingNvˡצ Reading file.N5øb  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGv.5  ĸ5 á "ˡצ Disk error:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5Buffer overflow.8 4آFGأ%Fأ&G G آ-NIآHآ$5ȡܤA09̂5ʂ5ȡܤA    Ǫ צP 8VteinTZ|H  Iآ 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 updatingPپخ%v ACDFIJLMP Q R S V XZ,>.+-?/=+ R(eturn to the editor without updatingצ% W(rite to a file name and return ! צ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 ZPƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTPצWritingNƂCNvˡ..צ.TEXTU.P.áȡLٕڂġ)Buffer overflow.ĩɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN  ٩ڞڂZ= ˸ .   Vˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEĶɄ , ڨ߶ߤ ߤ Marker not there. ٲ0XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? ز+߾á f v   ׷   ׷ U=ˡ   EګצWriting out the file K+IT Nvˡ. ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? PɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? Ƃ=fV^vdN  ׷   ׷ U=ˡ " G2 = 'ũEǀ'H.צ , = 'Fǀ'wá> < A&! Copy: B(uffer F(rom file תP  DB 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ؤؤةw  # ڳɡ ڂ0 wi[M=/AT(k) geQ"c&   צ. Environment: {options} or to leaveP  A(uto indenvSyntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ hȡ9t צ F(illing  L(eft margin   R(ight margin   ~ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0 P(ara margin   C(ommand ch  T(oken def  0 00 ٕ̂3ʂ3: ȡ ؕ؞قʂ3 ق   پÍ   پÄG vؕצ  צ bytes used,   available.HG Patterns:vDؕ v . Type  á   Ƃ  $&fQ"c&#   á8š1ؾb áU ˄@  ؂š!  ؂  P  ɡ          š  ǟō? ة꾿á٫؞ǀ > ˡZ-    ٕةġ-á- ؕ  ؕPšrL WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ   ٩؞؞ ٫ګ    U ؂ \ EL š ꕞ ĩꕕ    rP  ˡPšǀ3ɡ"צ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  ɡášĶ  áww@n *  Set: E(nvironment M(arker תP  EáMá ةˡة 4! á4!~ǠɄ? G~ ĩo < eXchange: TEXT { a char} [ escapes; accepts]תP             á   ǀd ؂ȡ ؂$ Integer Overflow<) <á"#˶˄ >á#"+ $    1۶ɩۂ۾Ä۶d% 02  á     !ń9  á    Í á8á  á  Cá1á  á  ɡit"  Ʉ: á   |  *ȡGھ á-ń   šĶ   #<áTń1 á  ۂھO Z+ȡˡˡȡ ġ  ø ɡzɄ2  ɡáĸ š#ȡ 4` x š ɡ,ń Í     $%&؂ɡ šٮ ݮ+,    IP Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫  vá   w"#<á"# |!x$sá< > ؂ (  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.  "$"#<á"# !$šToo many$ġצ .á*۾ ń  čġ.צYour pattern is too long% 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 ١ނ.63ǀ Ŷٶq ġ   ض á 9 ؂   ߫ á:<á  ٓ(MńצPattern not in the fileצNo old pattern.   á   2  .|v 4ǀ Ŷڶq š " d P  .Má  Má   d á 9ض     á   2  .|v 5EE ~ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680Ŷ  Eá X7Ŷ EɄ Ŷ>@b; ˡ; z\2n  t  ^&@H t tZz6ŶöEɄ E Ŷ EɄ Eá ?fh6 !!t"#$#8%H%x&hv;צPattern not in the fileצNo old pattern.   8     á78>á54v b á78   3" d P  .Má  Má   dǀ Ŷ š 2 á}Aáojũ˄ȍ~ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680á ȥ  Ä: N6.۪PڪP.P [MO^ / צ]: ء% áL(itT(okz9z  Replaceצ'<%& 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 declared procedure 120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward 1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (termdeclared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for realsinator expected)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' ex only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegpected  13:'END' expected  14:semicolon expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in dal parameter substitution  128:Result type does not agree with declaration  129:Type conflict of operands eclaration part  19:error in  20:'.' expected  21:'*' expected  22:'INTERFACE' expected  23:'IMPLEMENTATION' e 130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File compariso' unc not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in bas 399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file,e set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure  not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in sor function expected!  174:Pascal function or procedure expected  182:Nested units not allowed  183:External declaration not eparate procedure  406:Include file not legal  500:Error while Assembling.  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  , DRWBLK PASCALIODECOPS DRWSTUFFGRAPHICS 1:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254:  155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local filesNo such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Again  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bou forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/fnds  303:Value to be assinged is out of bounds  304:Element expression out of range  398:Implementation restriction ( DURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR V2.0-R0-L2ITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL &fet  pt `mwhE Z: 7  Dt7.2m2,((7 $ 1; $VAR BYTE,BLOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN *IF (RECNUE 77 77 ev 6 e wt  {M < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN $ "TYPE DECMAX = INTEGER[36]; ~7vP @ 7v7vx7v~e~elh~mjmb7vZwtN{ wvFPPA H7t27v2< 7t"7v"x,STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INT N\Znb2222222222 ݢݣޢÄ@@@   DRWBLK  DRWBLK DRWBLK á ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ   p á +-Í-ڲzؼ 0.áAڲzؼ 0ڲzQeEÍݍ.á '߂ۓۡܡ  $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGERؼɡ ؼ߀$ ؼߞ$"Hɍ -   $[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I $ ݞ$' ݑ$ $݂ō $݂ġ ݂$NTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCE $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ ) ,/36:GJNQUbeilp}  }rg\QF;0%á vJ  b h^  XVD$`h d  20$`   +-Í-۲z0ݡߑ ع   747( a "  ` $$ _ * ˕͕07 7  2w&7$" G8  x*b`$7w& 8  & 2  D!@  ͕- ͕0  F\  F  ##- (     -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ  Aa@  U  D D   D          f   ݂ ؂ ɡ   x,  & * عuuw\  __ _B B`A b e  QB  b   h[NA4 '  }rg\QF;0%á j7 ev a " j b \ H HH  ` H HhHh    e+-Í-۲z0ݡߑ ع  _DB F  F   _% _ "77 * &    k      w aB  ~ B   `w`7& 7 7 7 7aP  5  O ~eL3N E  Da7 D7zE mna R Ha H R e<! F  (&   <<Df\A4 '  }rg\QF;0%á  _d 7dwH J7 D aw> w* (7 "D 7Da7  +-Í-۲z0ݡߑ ع  -w` F   &  & w %% |PASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE  x |rntjfhX \L -LL   *     FWRITERE FWRITEDE  FWRITEDE  DECOPS @  $-1:>GK l  b  w!     a  E _ * nb^(&f@ACpe& Δ~BB  LBB  LB e ~B ee# ~CpPp(Cm r `W  W  eru~ e&~e&~eep`@I**I"AAA"A""A>"A"AAAAA>"""> l7 7 w v7 v jj^7 ^ CptE`eE /6 .-00(J*v5t5t "* (  e7 $m-  ` ~ m- ` ~-, nb^(&f@ACpe& Δ~BB  LBB  LB   5  \v h&  e ~B ee# ~CpPp(Cm r `W  W  eru~ "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  , @ @|rfVVVVV&fE C6  _ ;NJ#&;KLZzĊ @" R _E ww  wRCaE ee e wz tE WuEB  N uED^TPJ$BLOCK <= FMAXBLK) AND (BYTE <> FBLKSIZE) THEN 0BEGIN 2UNITREAD(FUNIT,FBUFFER,FBLKS 7>tEpWuE` mtEp  uE` m %   AIZE,DFIRSTBLK+BLOCK-1); 2IF IORESULT <> ORD(INOERROR) THEN GOTO 1 0END ,END; *IF FNXTBLK > FMAXBLK THEN ,BEGIN FMAXBLK := FCBvC@A CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:8NXTBLK; FMAXBYTE := FNXTBYTE END *ELSE ,IF (FNXTBLK = FMAXBLK) AND (FNXTBYTE > FMAXBYTE) THEN .FMAXBYTE := FNXTBYTE; *FEOF :6VTLXjh|l22222222 &f= FALSE; FEOLN := FALSE; FREPTCNT := 0; *IF FSTATE <> FJANDW THEN FSTATE := FNEEDCHAR; *FNXTBLK := BLOCK; FNXTBYTE := BYTE  p C`WqP b tm ?Y AaWp(mEtU  5tUBE vDECOPS DECOPS GDEC GDEC v n ds D`   <T L]LM W!  ~ (  e+  #TYPE SCRN = PACKED ARRAY[0..319 , 0..79] OF BOOLEAN;{one zone} # PSCRN = ^SCRN ; #PROCEDURE INIT_GRF ; #PROCEDURE USE_ō"צ lnst errorSURF ( S:PSCRN ) ; #PROCEDURE DRAW_VS ( SIZE: INTEGER ) ; #PROCEDURE DISP_VS ( DISPLACEMENT , GRZONES , CHZONES:INTEGER ) ; šB áǀ ؞ 0٥إ  #PROCEDURE SET_VPRT ( LEFT , RIGHT , BOTTOM , TOP:REAL ) ; #PROCEDURE SET_WNDW ( XMIN , XMAX , YMIN , YMAX:REAL ) ; #PROCEDU &   RE SET_LNST ( LSTYLE:INTEGER ) ; #PROCEDURE NEW_FRAM ; #PROCEDURE INQ_CPOS ( VAR XPOS , YPOS:REAL ) ; #PROCEDURE MOVE_ABS ( X   rټؼܼۼܼڼټؼټڼ , Y:REAL ) ; #PROCEDURE MOVE_REL ( X , Y:REAL ) ; #PROCEDURE LINE_ABS ( X , Y:REAL ) ; #PROCEDURE LINE_REL ( X , Y:REAL ) ;  ,ݼܼ ۼڼ ˍš á   ޓ  ڥC #PROCEDURE MARK_ABS ( X , Y:REAL ) ; #PROCEDURE MARK_REL ( X , Y:REAL ) ; #PROCEDURE SET_CHPR ( CHPR:INTEGER ) ; #PROCEDURE  ڥ,  ۥ  ۥݼܼ ޡ_ ټSET_CHSZ ( XSIZE , YSIZE:INTEGER ) ; #PROCEDURE SET_CHSP ( XSPACE , YSPACE:REAL ) ; #PROCEDURE TEXT ( S:STRING ) ; #PROCEDUREؼD bP ?ነ? SET_MKSM ( N:INTEGER ) ; # P !IMPLEMENTATION ! VAR #TYPE SCRN = PACKED ARRAY[0..319 ,?. ثáBצdraw_on_view_surface not calledF  ɩ ō$צ marker error   DRWSTUFF DRWSTUFFDRAWLINE DRAWLINEBITTER vDRAWBLOC  DRAWBLOCGCHAR Vةȓɍ ō" drvs error 1@ȡ@ǀ ثGCHAR BITTER  GMARK  GMARK THROTTLE THROTTLE Im ōɍō צ dsvs error؂ˡ ǀ ڏZ"צ vprt error "צ wndw error , ??劐劐)    DRAWLINE XRIGHT -MRKSYM )[ NZONES [ 1IRe  C (ō"צ chpr error :ɍ"צ chsz error ث٫<CXPOS `{3Geoq t WSX toVSX uتP +,5,5ȡ31/3-131/-x31VSY &WSY YTOP 4?STYLE 5!l á:3?PP1  ,3?1PCYPOS  h8Pjy y ,SPDY 3 á,,h ث  BtlH ,@`<,XxV  ō"צ chpr error :ɍ"צ chsz error ث٫<تP +,5,5ȡ31/3-131/-x31á:3?PP1  ,3?1Pá,,h ث  BtlH ,@`<,XxV GRAPHICS o 0+i; YBOT 6GCHAR WCX iVCX {VCY WCY CHPRECIS %3CHARWIDTsi CHARHEIGf !oTHROTTLE IMPLICIT"SKRN   P ? 劐{Eb@ XLEFT $GMARK  SPDX y ,SPDY 3 - PROGRAM GRAPH1;  BEGIN "PENCOLOR(WHITE); MOVE(100); "TURN(120); "MOVE(100); "TURN(120); "MOVE(100);  END. ,HI THEREצHI THEREצ THIS IS A DEMONSTRATIONצOPROGRAM STRING1;  BEGIN "WRITE('HI'); "WRITE(' ','THERE'); "WRITELN; (* Moves to start of next line *) "WRITE('HI THERE'); F PROGRAM EXECUTION& צ not named2 Workfile is :.񄓡"WRITELN(' THIS IS A DEMONSTRATION'); "WRITELN('OF PROGRAM EXECUTION')  END.  (not saved) No workfilev%.ת&תת(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.W p|!0pxi STRING1 TURTLE  . PROGRAM GRAPH1;  BEGIN "PENCOLOR(WHITE); MOVE(100); "TURN(120); "MOVE(100); "TURN(120); "MOVE(100);  END. ,dx dx d& ,ݽýÿ۽ϟÿŹýýýŹýýì |!<|i4 GRAPH1 TURTLE  / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L