LnSOS BOOT 7.0 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)Z PASCALSYLIBRARIA PASCAL3u' ,LIBRARY.CODE  `+LIBMAP.CODE  `.AIIFORMAT.CODE  `*SETUP.CODE&  `.SYSTEM.LIBRARY2J  >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@Lbbbbbbbbbbbbbbbb(C)Apple Computer Inc. 1979 צCode write error H 2    Zצ#Apple /// Pascal Librarian [A3/1.0]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11 ȡ רצNotice? OצХOҥá  x@@쥀&(*ҥ Zצ#Apple /// Pascal Librarian [A3/1.0]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11 = for all, ? for select, N(ew file, Q(uit, A(bortתP =á;ZCopying all slots...תPȡڡ?á}ȡl٤šZZ Copy slot תP צ?  ڡ  ˡ RڤťXڤÍ=ګZSlot to copy into? תP = š7á"Z Read error # תPZMSlot # to copy and ,ˡؤX٤ɥX٤ōX٤XؤX٤xؤx٤x٤á% $ХЪOX٤ !N ZצPá  0(ɡ(ZצNot enough room to copy slotPhؤh٤ˡ h٤  ȡˡ ZצError reading slot Pˡ+ZI/O error - no room on diskתPؤ٤ؤˡ ق!k ٤ ׷ 쥅ؤˡZWARNING - Slot תP + already linked. Please reconfirm (y/n) - ZתPڳ٤á `š ۡh x ZצInterface write errorP( ō ؕhȡZInterface errorתP  ȡˡ ZצInterface read errorPҶ á ˡ$ZצLink info read errorPFҲ ˡ"ZCode file overflowתP    Zצ bad link infoPۓ'>ÍVȡڡ  -ܢۤ ܢ ۤ ׷ '(ܢۤ )  ܢ ۤۤ ڡZצFile length - P $to continue áۢ3""ˡ"Zצ I/O error # P0ZצInput file -> PP*צ*SYSTEM.LIBRARYPš3"ˡ#Pצ.CODEUáZڢá[ צType to continue áڢ3Z ۢ צType  ȡ רצNotice? OצХOҥá  ror H 2    Zצ#Apple /// Pascal Librarian [A3/1.0]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11-II.1 segment'''צF----------------------------------------------------------------------K''  צenter library name: ,P,צ ',*,*SYSTEM.LIBRARYתPˡ;' Segment #' ': '.'צ Segment #' ': ' ˡr'צSystem version = 'Q 'צ, code type is 'q ' 'צPreglobalצ publicצ constantצ separate|צ unitpצ privateaaá-' Private dataseg # = ' '%C`ZY!á 7Hb,,ȡōإ' 'P6' 'צ public var base = ' 'P5' ' constant value of ' 'O5' ' external proc P #' '' 'צ separate proc P #' 'צ aáj' separate procedure segment'<' data segment'`7b  :́ʁʁP䍡ˡ߹PM' 'צ global addr P #' ', I # ' Pascal host outer block''צ Pascal segment'q 'צ library unitaá'' (UNLINKED INTRINSIC)'8aá%' (LINKED INTRINSIC)''qce''צ big reference W>% ˡ)'צ (' 'צ times)' (once)'+ 5+5ȡ ,++#h '! a' completely linked segment'qˡq' '' áI ١%'library read error!' ١آ~تPO' ' P'צ word referenceB' byte referenȡ" - >ō  ˡ,'Interface read error' |   4  á á  ōbbbbbbbbbbbbbbbb^^(C)Apple Computer Inc. 1979 t LIBMAPPELIBMAP  ȡ רצNotice? OצХOҥá  ,"ˡ.CODE,P,,ˡצbad fileVVȡ]ɥɍ,ō!!not a code filelist linker info table (Y/N)? ٳ@@ٳPPolist referenced items (Y/N)? ٳ@@ٳOONcmap output file name: PׯצCONSOLE:P>ńצ# Enter the desired volume name : P̄-*̄.*ʄ.ȡv*̄-*<̄-$ Illegal character in volume name.**ʄ-+**+ies diskette.̄-̄,+C̄-*̄.*ʄ.ȡ&*̄-**ʄ-ʄ-f+B̄,*̄.*ʄ.ȡ%*̄,**ʄ,+ ʄ-ʄ,ʄ,"á0$" WARNING - destroy all files on  ? (Y/N) &. .Y˩.y˄,+"ˡF6 Error: disk not formatted using UtilitjjCODEACCESS.TEXT______|,| Apple /// Pascal 1.14 |k+ SOS:v44;O48DD@Db4;DDPT4; dd"h^htf ^fECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, rv artblk:integer); "{read BLKLEN blocks from the executing codefile, "{starting at STARTBLK, reading into BUF. Set IORESULT.}   implementation E 80, 1981@M^h(M\ \ U^hU !"#$bbbf6AIIFORMACODEACCE צ6502q צ6800q צTI 9900NN'm  < . ''!#'M'צ&Apple /// Library Map Utility [A3/1.0]ꩅ驅ȡ!Qu|ldB 2/1.0QצA2/1.1QצA3/1.0q צ Undefinedq P-Code (most sig. 1st)תq P-Code (least sig. 1st)תq צPDP-11q צ8080q צZ-80q צGA 440q צ6502q צ6800q צTI 9900NN'm  < . ''!#'M'צ&Apple /// Library Map Utility [A3/1.0]ꩅ驅ȡ!QunknownתQצA2/1.0QצA2/1.1QצA3/1.0q צ Undefinedq P-Code (most sig. 1st)תq P-Code (least sig. 1st)תq צPDP-11q צ8080q צZ-80q צGA 440qP '"á,>'' LIBRARY MAP FOR ',''š' ''''!#'M'צ&Apple /// Library Map Utility [A3/1.0]ꩅ驅ȡ!Qu, Are there 280 blocks on the disk ? (Y/N) . .Yé.yÍ*F Number of blocks: **  *š*+\**+,+"̄+,0ʄ+"ˍ̄+ʄ+Hצ: Error: check for write-protected diskette and try again'צ Format completeds;\ 2Apple II Pascal Diskette Format Conversion Utility> This program conve  ڳaAڳ^تPRצChange this? Y)es, N)o 闳@@ˡٳO %'()*+,-./0bbbbbbbbbbbbbbbb^^(C)Apple Computer Inc. 1979 lPASCALSYOPTIONS &꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$Jצ5 (Enter a Pascal unit number 4, 5, 9, 10, 11, or 12 or press CTRL-C to exit)  DRIVE --> ,P--ȡ,- ,-0,-- /,0* Error: try again.// Z:, not boot on an Apple II system.5 In which drive is the diskette to be reformatted ?צ5 (Enter a Pascal unit number 4, 5, 9, 10, 11, or 12 or press CTRL-C to exit)  DRIVE --> ,P--ȡ,- ,-0,-- /,0"ˡ@ WARNING: Boot info cannot be loaded - reformatted disks will, not boot on an Apple II system.5 In which drive is the diskette to be reformatted ?rts a disk which has been formatted using< the Apple /// System Utilities diskette formatter into an# Apple II Pascal format diskette.צ1 WARNING: All files on the disk are destroyed.~ %ڢڢˍڢˍڢˍˍˍ> ؓ! צ NOT תצ (new setting)ת "Apple II Pascal disk routines are "&צresident.>ؓX ؓ! צSOS צApple II Pascalצ (new setting)ת File names are displayed in  ,צ format3Cؓ \,' '$ z %     !צ$A) Change Graphics space allocation צ+B) Change status of Apple II disk routines  #C) Change file name display format  צ!D) Change editor key assignmentsS(etup: A, B, C, D, Q(uitתP# & !  AE !Qá9;" *` s spaceǠȡ' '$ z %     !צ$A) Change Graphics space allocation צ+B) Change status of Apple II disk routnot be saved on system disk.*Graphics space allocation has not changed.8צ(Other options have changed until reboot.$Ɓ 2RZW!0System will re-boot to reallocate GraphicO""˄Ʉ;!Error: must insert system disk. תP#$áátƁá^" """211.*+Ɓˡ ! צ5Error: New options could ges and leave  to return to SETUP! ,@,áYˡ  ?  8%̄ʄʄʄʄʄʄƁ*SYSTEM.MISCINFscape8 צ delete line$צ end of fileADNA4"á ݫ ۫ ܫ ګQÍ\ ƁƄ ! צPlease confirm changes: צY(es to update system and leave צ N(o to cancel chan,,(á-,,,(á-,-,,HvV ء,   (new setting)! &Key Options: A, B, C, D, , Q(uit תP#闳ٹF צacceptG e((س  ؂08" "- -6تP- צType new value for צ key:,  ,,H-,2nצ0Option Character Function Current Value0------ ------------------ -------------צA) Accept KeyB) Escape KeyצC) Delete Line KeyצD) End of File Key((á<-תPܹspaceתPצreturnPצescapePצtabPlf arrowתPprt arrowתP^up arrowתPLdn arrowתP: 2P_2 X "$&*,.0-ׯ @, B, C, D, , Q(uit P#闳ٹAD~  ٳ ء1d d  צ => ǀš+צצ 000 => ǀrently  K bytes reserved for Graphicsá (No Graphics)צ (new setting)! A!BCD Currently you have option צ+Graphics Options: Ah  צ%Option Bytes reserved for Graphicsצ%------ ---------------------------צ A) 0K bytes (No Graphics)B) 8K bytesC) 16K bytesD) 32K bytesء  Curines  #C) Change file name display format  צ!D) Change editor key assignmentsS(etup: A, B, C, D, Q(uitתP# & !  AE !Qá9;" *` F|.0b:H*F`^/     !צ$A) Change Graphics space allocation צ+B) Change status of Apple II disk rout?L' hhh)?hȼhhhhHH`hhhhWV) ) 02@*P"`pL&&&LFfFfFfFfHH`P.AUDIO,d`hXȑhhWȑhhHH`_`O?/!hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ Thh   MyMz { | y z {U|HH`A<62,('&% `hh hhhhhhh)h' 1H)/HHH`,d+`,+#Lhhhhhhh)h) YH)U)HHH` !<hhi )n YhhV)ȑhhU)ȑhUE hxNIL :pMAXINT |RRKBYTESTREWORDSTRE .WOR 0BN DY  P  V  STA READ!PROCEDURE SOUND(PITCH,DURATION,VOLUME: INTEGER); !PROCEDURE DATE(VAR D: DSTR8); !PROCEDURE TIMEOFDAY(VAR T: TSTR6); !PROCEDURE CLOCKINFO(VAR YR,MON,DAY,DAYOFWK,HR,MIN,SEC,THOU: INTEGER); !PROCEDURE SETTIME(T: SSTR18); !  IMPLEMENATION E TRUE hxNIL :pMAXINT |RRKBYTESTREWORDSTRE .WOR 0BN DY  P  V  STA READPRbRINTEGER R CREAL $X CHAR 6b BOOLEAN fhe STRING P TEXT $vMEINTERACTL|ouINPUT xvSTOUTPUT bv KEYBOARDv0FALSE hTRYPRESS: BOOLEAN; !FUNCTION RANDOM: INTEGER; !PROCEDURE RANDOMIZE; !PROCEDURE NOTE(PITCH,DURATION: INTEGER); !Copyright (C) 1980 Apple Computer] ;Clear the Buffer 0LDA #16. 'b'b)Rb  !TYPE "DSTR8=STRING [8]; "TSTR6=STRING [6]; "SSTR18=STRING [18]; " !FUNCTION PADDLE(SELECT: INTEGER): INTEGER; !FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; !PROCEDURE JOYSTICK(SELECT: INTEGER; VAR X,Y: INTEGER; VAR B0,B1: BOOLEAN); !FUNCTION KE13456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzggb7g8bgb9ggg=Copyright (C) 1981 Apple Computer Inc. All rights reserved. +8=APPLESTULONGINTICHAINSTUPGRAF PGRAF TURTLEGRTURTLEGRREALMODETRANSCENPASCALIO  (7<ines  #C) Change file name display format  צ!D) Change editor key assignmentsS(etup: A, B, C, D, Q(uitתP# & !  AE !Qá9;" *` D0  !"#$%&'()*+0123456789:;@ABCDEFGHIJKPQRSTUVWXYZ[`abcdefghijkp@=97)('%#  zhh ?hh)HH`*c<`&&&ee*)eLL`pMK hh hhHH`'6hh  ;C hhȥ ߥHH`  87M9\hhhh᭙0:0 ( (PROCEDURE SetChain( Tytle: STRING); (PROCEDURE SetCVal ( Val: STRING); (PROCEDURE GetCVal ( VAR Val: STRING); # #IMPLEMENTATION E _ERJSYSLIB:CHAINUNIT.CODEhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLOL,3-'~{vvvvvvvvvvvZTNlb3 `\[TOG@;:3(  T[Fc= YP12 &%& FTYP13 &%& FT ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,LGhhhhhƀhh-Ȅʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,}ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` _LWŁ|}ƅLwE||怦}ʚH恺8倅偪ƅ  ILL, _LwLL,E0LL _Lw ILL,ELL _LwEe8刅刪ʈʈݒ&~ƀLV~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅLw ~~8ʭ==` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LGIL,h hBCʈ _.ł( Ł|} ŀ}|z Z   :    ( tV8$@hvhwhhxylxh:vwlv8<<+-Í-۲0ݡߑ ع       &  * عteVG8  )   uh[NA4'á NTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I qr80bHH`' <<EBi[ZXGFD@2  FdhFd  P  V  STA READCHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, تPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0D~YSLIB:CHAINUNIT.CODE8'ǀn]L;* 8'  8'6 8'8'8'8'8' \ 8'8'8'.8'8'.8'8'ġ ڹ8'8'8'x8'e8'R8' ?8'@,s8sš78'8'قd8'8'8'8'8'.8'8'cs buffer space.צHit to continue....\٧8' "ˡaUnit  צ write error: IORESULT =  ~á 8s@8sá 8s88s-Insufficient graphics buffer space allocated.צNeed  K bytes, but only  K bytes have been allocated.=Use O)ptions to increase the available graphiNTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE GSave(FName: STRING);  PROCEDURE GLoad(FName: STRING);  PROCEDURE InitGrafix;    IMPLEMENTATION E ;  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: INTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE Viewport(Left,Right,Bottom,Top: INTEGER);  PROCEDURE MoveTo(X,Y: INTEGER);  PROCEDURE MoveRel(DX,DY: INTEGER);  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: Ilor);  PROCEDURE XfrOption(GrfxSMode: XfrMode);  PROCEDURE SetCTab(Ink,Pixelcolor,Newcolor: Screencolor); :'')PBB..15,0..7] OF CHAR; 2END; 2  VAR FotoFile: FILE; 2  PROCEDURE GrafixMode(GrfxHMode: GMode; GrfxBuf: GBuf);  PROCEDURE GrafixOn;  PROCEDURE TextOn;  PROCEDURE FillPort;  PROCEDURE PenColor(Color: Screencolor);  PROCEDURE FillColor(Color: Screencoptr = ^GSCB; %GSCB = PACKED RECORD 4GHMode,GSMode: CHAR; 4GPX,GPY: INTEGER; 4GVL,GVR,GVB,GVT: INTEGER; 4GCF,GCB: CHAR; 4GFont: PACKED ARRAY[0..3] OF CHAR; 4CWidth,CHeight: CHAR; 4GColTab: PACKED ARRAY[0   TYPE Screencolor= (Black,Magenta,DarkBlue,Purple,DarkGreen,  Grey1,MedBlue,LightBlue,Brown,Orange, 3Grey2,Pink,Green,Yellow,Aqua,White); %GMode = (BW280,CP280,BW560,COL140); %GBuf = 1..2; %XfrMode = 0..7; %GSCBCHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, < 8'ǖ8' 8'8)8'8(ٝ8)؝8( \ 8'8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8( \8'8'8'<8'ǖ8' 8'8)8'8(ٝ8)؝8(\8'8'8' 8'8'URTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(NONE,WHITE,BLACK,REVERSE,RADAR, 3BLACK1,GREEN,VIOLET,WHITE1,BLACK2,ORANGE,BLUE,WHITE2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE #REPORTERb3!7RESULT 8t3x3#PGRAF ****7end; 55 1:2 415 ); 3 411 tinue....'); d to allocate buffer space.'); le.'); 43-STARTADD~|zkhZEB-*'% 8hhhhhhHHHH`.8" ~(B N j * l  r  L .P47!2BYTECT 3SETCTMAS3 7I R3&3&3COLOR >H`F.GRAFIXNL<2.*&$ ZXA=9r8h&h'h h 'H&H`(&*('$!B8hyhzh}h~hhhh{|}{|{|zHyH`RPL88hlhmh h h h h h h h h h h h    n o mHlH`pnvtrpnljhfdb`\YVUTSRQMI8h>h?h h hhBȑE @ A ?Hate buffer space.צHit to continue....= hShTh\hh[hhXhYZWnflgm NUlVmTHSH`j`Wrpnkhfb_\[ZYXWVUTS8' 8rˡGraphics driver not resident!צ:Use SCP to add the .GRAFIX driver to your SOS.DRIVER file.áצ&No graphics buffer space is allocated!צ2Use the O)ptions command to alloc,+/3+3ȡM88'."--ˡ-!87,8',,++8cd 8'8' 88r8'8r˄=&8'ǖ8' 8'8'088'."--ˡ-!8'x22á 8s@8s0á 8s8s8sš870á ,2á@,`,,8'21ˡD20040(008.$2á/ /,á@,`,1á/ /+/2+2ȡc,8'+á8'x188'.,,"--ˡ-!78++8wb *تP8"--ˡ-!8'ǖ8' 8'8'8'1צFOTO file I/O error: IORESULT= Hit to continue....!تP8"-- á8"--ˡ-!8'ǖ8' 8'8'8'18'00á ,18'r8'8'á8'@:8'ǖ8' 8'8)8)<8'ǖ8' 8'8(8(<8; $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T٧ ǖǖ á%ǖǖbǖÍ Íǖǖǖǖáoáצ&No graphics buffer space is allocated!צ2Use the O)ptions command to allocate buffer space.צHit to continue...; hhhhhhhhhh˄hǖǖ ǖ ǖǖˡGraphics driver not resident!צ:Use SCP to add the .GRAFIX driver to your SOS.DRIVER file.QE5ǖǖǖǖ-  -- -   +ǖǖ,X MNj_ @ ؿتPǖǖ ǖ,+ǖlǖǖoǖ]ǖKǖ9ǖ' suwy{k[NZ6اNZاNZٕZZ4 M؂MMɡhMhM MhM2MMɡhMhM MhM.  @˄ǖǖǖ^ٝ ؝ MZMZá/ڹ$ؑؑ"ڹاNZٕZاNZاNZاNZٕZ^اNZٕZ{?KNPZ|?aNQZ|?ٽNRZ}?4NSZ~?NTZ~?NUZ?NVZ?[`NWZ?&NXZ?ؽNYZ? NZZ?2  áǖh?NBZi?޽NCZk?7NDZm?[NEZn?NFZp?NGZr? NHZs?yxNIZt?hнNJZv?DNKZw?FNLZx?ReNMZy?PpNNZz?gNOZZF? N4ZI?N5ZL?XsN6ZO?N7ZQ?N8ZT?;N9ZV?%N:ZY?N;Z[?LoN<Z]?гN=Z_?N>Zb?N?Zd? N@Zf?]NAZ?N&Z?N'Z!?N(Z$?N)Z'?|N*Z+?+LN+Z.?lN,Z1?սN-Z5?DN.Z8?&N/Z;?:N0Z>?>N1ZA?4N2ZD?vN3> NZ>?NZ>caNZ>*rNZ>aqNZ>^NZ>9NZ?NZ?ٽN Z?ƨN!Z ?vmN"Z?F'N#Z?սN$Z?yN%ZZ ><0N Z1>нN ZC>ocN ZT>N Zf>YNZw>gNZ>탽NZ>K NZ>ȱNZ>z7NZ>ٰNZ>?NZ>|NZ>}̽NZǖ X     MNZNZ^N ǖáǖǖǖǖǖOÍ Íǖǖǖ ǖǖǖǖhhhhhhhhhhL  mmmm 8LL   HH`` KL"M(N (OM/   NMz fNMNt   \ < J K$LDá HB  6GCF D Ná(EF I!  F.ٹ5'6#789: jع;<=>*á?@ áAB DDE *,ب"! .ء1ٹ#($$% &'( .ٹ)'*#+,-. jء1ٹ/(0$1 234 eal; function minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^function nextafter(x, y: real): real; function sqrt(x: real): real; function rem(x, y: real): real; Implementation E boolean; function integral(x: real): boolean; function unordered(x, y: real): boolean; function infinity: real; function maxreal: real; function minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^osure; procedure setdnorm(x: denorm); function getdnorm: denorm; function finite(x: real): boolean; function isNaN(x: real): boolean; function integral(x: real): boolean; function unordered(x, y: real): boolean; function infinity: real; function maxreal: rcedure setxcpn(e: xcpn; b: boolean); function getxcpn(e: xcpn): boolean; procedure sethalt(e: xcpn; b: boolean); function gethalt(e: xcpn): boolean; procedure setround(x: rmode); function getround: rmode; procedure setclos(x: closure); function getclos: cl type numenv = array[0..2] of integer; rmode = (rnear, rpos, rneg, rzero); closure = (proj, affine); denorm = (warning, normalizing); xcpn = (invop, underfl, overfl, div0, inxact, cvtovfl); procedure savenv(var e: numenv); procedure restenv(e: numenv); proxhhhhhhHHHH`.h&h'hh 'H&H`(&*('$!B* t Tx` BVj~Prr R  Wrpnkhfb_\[ZYXWVUTSRPL8765430/-,+*)(&%$#"!   hAhBhhhhEȑHCDBHAH`I.GRAFIXRP@6/+'% ^\ED@<~|zwtsrqnkhedcba^]ZYXWVSRQPOKJIHGFEDCBA@?>=<;:9 ÄNM-ܡܑP  š  <R  ȡ  F XS.RM M"Mf OM1S Q "-!ǀ@ hhhhhh5HHHH`     FL  C 0 F LL (ӥ L (L_  E  6EL<  FEU 0  LU HHhhhhhhhh&*8f$3C$&&jHjHHHHH`8ߥץ0ϊLIHHHHhhhhhh k k   88 e     L2)22)*`%Р0 % 2)8`%0Ԡ0 ffff쩀%A0 4)4074)@E0iii2)8`2)`$%ʥjŐ892hhhh&&&eeP 3b88 E50V&&jfHHHHHH`*$Pߠ0 2)HHHH l%L0 HHHH2)L2)4)@:4) \0 0  ?H HHHHH`4  `4)@0 2)hh l`T5)`hhhhhhHHHHHH`$hhhhhhHHHHHH`"hhhhhhhhhhhh**Lti ie e e &&&8 L=Ffff Ffff  e eee e e e e &&&e eeeLD     &&&%e   e e e e  hhhhhHHHHHH`"5 `hhhhhhhhhh8&&&HiHHH`8hhhhhhhhh hFfff8 @| e e e e Ffff Ffff  e **)HHH`05 @`hhhhhhhhhhhh&ffHHHHHH`>hhhhhhH5)@HHH`,hhhhhhhjhHjjHHHHH`*hhhhhhH50HHH`*h4`hhhhhhhhhh&&8ffff8e080 HHHH`HHT 4`4`hhhhhh404)@ 4) HHHH`:5)`hhhhhhhhhhH2)YU2)HD2)732)&"2)ʢ2) HHHH`hhhhhhhhhh*JHHHH`8hhhhhhhhhhhh&&jfHHHHHH`B@2)ߑ`hhhhhhhh0)YU0)HD0)730)&"0)ʢ0) HHHH`4`hhhhhhhhhhH&*HHH`.hhhhhhhh0)ߑ`2 `2 `2 `2 `2 `2 `2)`2)`2)`2)`2)` 0 2) l` 0 2) l` 0 2) l` 0 2)  l` 0)`0)`0)`0)`0)`"hhhhhh3HHHH`"hhhhhh1HHHH`"hh4hhHH`hh2hhHH`hh0hhHH`0 2) l` 0 2) l``hhhhh*68jh*vHH` `hh00 2)hh ljH*vjHHHHH`Vvvv`666``8`yyyy`8`ROHA UJIF"Z4\ h  z T 8D j ^ v   6 N f ~ 4Z:^f20\x"@< \ xj >  9SɄɡ& 8ݍ á ބݍݍܓ܄>ۢۢۢۢۢNۢۢۢܕ(TION E CALIO.TEXTil:}| tSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); PROCEDURE FWRITEREAL(VAR F: FIB; xx: REAL; e1, e2: INTEGER); FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER;  IMPLEMENTA  ??ܳ1? ?=~@:?ܳ^  9   9 á   9q99 á  H9/9 á  9 A     >[hhhhhhhhHHHHHH`(6> Fh&jF ????2 ?  ??ܳ1? ?=~@:?ܳ^  9   9 á   9q99 á  H9/? ?> ??    >9ܑ95?.????2 ??L=[?9  J 9 9$ ? ?8 ?? ġ,@ነ 9 9/9 á   9 ?Br99B 9?;ܳ1?ܳ^; S>9߳I@߳}:#{9L.6ZO$<=*      < ?  &9 9آ99آ99آ99آ99آ99آ99n ب99999990 /9 9 >ߡڑ9!tTRANSCEND.TEXTil:}| tSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, USES REALMODES; FUNCTION SIN(X:REAL):REAL; FUNCTION COS(X:REAL):REAL; FUNCTION EXP(X:REAL):REAL; FUNCTION ATAN(X:REAL):REAL; FUNCTION LN(X:REAL):REAL; FUNCTION LOG(X:REAL):REAL;  IMPLEMENTATION E ERETURN (RTS ; (.END  XWRITEREFREADCHA~YF Y >YCH bFWRITECHZYF YY >YCH bYRLENG RFREADSTRX[4Zšڢۑڢ.ɡܢڕܢښ $ ڢܢۢڢ``ڢ 2!آڢ٢آ*"آڢ٢آ(#آڢ٢آ($آڢ٢آ&%ڢڢá ޡ?šڢڢ'ޡڢڢڢ~ڢ n& ȡ ۞$&@ $& $& ۡ!š !ȡ l` 0 2) l` 0 2) l` hhhhhh404)@ 4) HHHH`:hhhhhhH50HHH`*hhhh LHH`4<ˡ;2ɡ#??P?0Q?P>>.P>8??P?8U?P/ؑ>2>Nš N>>š3=>?=?ȡ#@@P@צ0Q@P==ȡ5=?=?ȡ###ɡ#"ɡ2ݓ&&Í&&&á&"&!'$%&&Í&&"&!'"%&&!$$#ȡ!ˡ ء##ȡ''0'Q'P% 2ȡ ȄPšPMšM/&<<<ۀ š ۀ)ByO7>zS8ڨ ɡ(MMMM܏M܏T1ܨ ء '$1$ &!&%š#$ە##š##$"$+-0*L,Ná=;á/Äڡؼ-A/N/'Ä!0'ˡ+-0ڡؼáڡؼZš0á* . .á,Eáa0*-.,ɡ-*,Eá0+á0-á0*-*Ǹ ɡ ۏ0-ۑL.٢-,ˡ-0/آ- 0-á Ä-*/-+á -á,Ná- > )09Ȅ*!~Ȅ+azōaA,آ"-0ˍ8,ɡ -ɡؿ 0Äɡ-Í á ܑ ' %!Í ' # ɡ   ~ɡ  ~ ˡǀġg/  ( ǡ?˄??&@ۂ"ˡu??š???#?$???$?#ń ?#?$?ۚ?$ܚ?AAA?AˡA  5~   ̶??@ɡ??"@?Ä?á?????,? >"Má? > >? >á @@@ Ą @ ?ˡ\?%,?%???&@?"' \'    ݂܂F  (    ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏( hhhhhhhhhhhhhhhhȑ**ȩȑ&HHHH`hhhhhhhhhhhh&FffHHHHHH`Phhhhhh⨥HH`,hhhhhhhhhh訪 横v E 詀 vE 詀  Lj0 fLfJJJi䨩ȩ50,8 &5&  6 F5L L5HH&hhhhhheȑȦ0+L4-I8i  L6i0i0HH`.` 4j 8rHt8b\2D"\l2r ,2?FJANDW ?Y?FNEEDCHAZ??[ȱ)uD*&**u&L&*** ʈHHHH`7hhhhhhhh訪 H & *HHH`6hhhhhhhhHHHH`& u E   ؠ ) JJJJ 0ȑ ) 0ȑᘠHH`hhhhhhR0H*8IȱjE Ȅ橀إHH`zhhhhhhhhhhh bL)5Ffeyumꩀ5JA1SKQL51QF55(5ȱ5qjȑHHHH`\hhhhhhhh  0<Ȱ`~u$hhhhhhhhhh訪 横 Ji&&0 fL]fJJJi&&v  u&&v&E& &詀&L&&ť&&ʈHH`o'hhhhhhhhhhh