LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)T PASCALSYLIBRARIA *SOS.DRIVER .ZPASCAL3u' ,LIBRARY.CODE +LIBMAP.CODE .AIIFORMAT.CODE *SETUP.CODE) .SYSTEM.LIBRARY5*PMOVE.CODE >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L(C)Apple Computer Inc. 1979 e write error B ,   Zצ#Apple /// Pascal Librarian [A3/1.1]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11 ȡ רצNotice? OצХOҥá  צCod@@쥀&(*ҥ Zצ#Apple /// Pascal Librarian [A3/1.1]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11 all, ? for select, N(ew file, Q(uit, A(bortתP =á;ZCopying all slots...תPȡڡ?á}ȡl٤šZZ Copy slot תP צ?  ڡx  ˡ RڤťXڤÍ=ګZSlot to copy into? תP = š7á"Z Read error # תPZMSlot # to copy and , = forˡؤ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ҥá  צCod B ,   Zצ#Apple /// Pascal Librarian [A3/1.1]PZOutput file -> תP1P1*1צ*SYSTEM.LIBRARYP1á ҥ11 'צPre-II.1 segment'''צF----------------------------------------------------------------------K''  צenter library name: ,P,צ ',*,*SYSTEM.Lōˡ;' Segment #' ': '.'צ Segment #' ': ' ˡr'צSystem version = 'Q 'צ, code type is 'q ''צ globalצ publicצ constantצ separate|צ unitpצ privateaaá-' Private dataseg # = ' '%C`ZY!á 7Hb,,ȡ, I #' 'P6' 'צ public var base = ' 'P5' ' constant value of ' 'O5' ' external proc P #' '' 'צ separate proc P #' q aáj' separate procedure segment'<' data segment'`7b  :́ʁʁP䍡ˡ߹PM' 'צ global addr P #' 'ˡq ' Pascal host outer block''צ Pascal segment'q 'צ library unitaá'' (UNLINKED INTRINSIC)'8aá%' (LINKED INTRINSIC)''byte reference''צ big reference W>% ˡ)'צ (' 'צ times)' (once)'+ 5+5ȡ ,++#h '! a' completely linked segment'qō' '' áI ١%'library read error!' ١آ~تPO' ' P'צ word referenceB' ȡ" - >ȡ  ˡ,'Interface read error'  á   4  á á ^^(C)Apple Computer Inc. 1979  LIBMAPPELIBMAP  ȡ רצNotice? OצХOҥá  צCodIBRARYתP,"ˡ.CODE,P,,ˡצbad fileVVȡ]ɥɍ,ō!!not a code filelist linker info table (Y/N)? ٳ@@ٳPPolist referenced items (Y/N)? ٳ@@ٳOONcmap output file name: PׯצCONSO $ $"á&  (צ" WARNING - destroy all files on GECBA?ER; {Use DevNum returned by GetDInfo as parameter--returns Pascal Unitnumber.}  IMPLEMENTATION E JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) ) *á šk*4hhhhhhhhhhLfLb♊L=Ljȑ ȑଢ଼HH`XXXXXXXXXXXXXXX|wvrljgf'7UTILITY/CODEACCESS.TEXT*tZt^+ZRt^ DEVO/UTILITY"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,)v artblk:integer); "{read BLKLEN blocks from the executing codefile, "{starting at STARTBLK, reading into BUF. Set IORESULT.}   implementation E  !"#$%&' 6 AIIFORMACODEACCEGETUNITN Z-80q צGA 440q צ6502q צ6800q צTI 9900NN'  P N 'M'צ&Apple /// Library Map Utility [A3/1.1]ꩅ驅ȡ!p`X6v QצA2/1.0QצA2/1.1QצA3/1.0QצA3/1.1q צ Undefinedq P-Code (most sig. 1st)תq P-Code (least sig. 1st)תq צPDP-11q צ8080q צZ-80q צGA 440q צ6502q צ6800q צTI 9900NN'  P N 'M'צ&Apple /// Library Map Utility [A3/1.1]ꩅ驅ȡ!QunknownתQצA2/1.0QצA2/1.1QצA3/1.0QצA3/1.1q צ Undefinedq P-Code (most sig. 1st)תq P-Code (least sig. 1st)תq צPDP-11q צ8080q צLE:P>P '"á,>'' LIBRARY MAP FOR ',''š' ''''!#'M'צ&Apple /// Library Map Utility [A3/1.1]ꩅ驅ȡ!צ ? (Y/N) &/ /Y˩/y˄1,+..á?צERROR: drive does not exist..+"ˡV3ERROR: disk not formatted using utilities diskette.̄.̄-+B̄.*̄/*ʄ/ȡ%*̄.**ʄ.ʄ.f+B̄-*̄/*ʄ/ȡ%*̄-**ʄ-+ ʄ.ʄ-Ʉu&꽌ɪɖ'*&%&,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$Jsing the AppleN /// System Utilities disk formatter into an Apple ][ Pascal format diskette.A WARNING: All files on the diskette are destroyed."ˡצ@ WARNING: Boot info cannot be loaded - reformatted disks willצ, not boot on an Apple ][ system. 00 X AEhnD&~  4 Jd which has been formatted using the AppleN /// System Utilities disk formatter into an Apple ][ Pascal format diskette.A WARNING: All files on the diskette are destroyed."ˡצ@ WARNING: Boot info . צ Illegal entry; Please try again.ة0 & 05 Diskette Format Conversion UtilityצK This program converts a diskette which has been formatted uyour selection.ȡة,  J #     0,ٹ&, , , , wr0m $/  "צO PLEASE SELECT DRIVE WHERE DISK IS TO BE REFORMATTED (OR PRESS ESCAPE TO QUIT).N Use and to move to your selection, then press RETURNH to accept it; OR just type the number to the left of צ.D3P1+צ.D4PȡT1+ ؏1+á1+1+,^  $1+ צ - ء1+ء+1,+h   צ8ERROR: check for write-protected diskette and try again.! Format completedB^6,,,š, ,á,,, 1+צ.D1P1+צ.D2P1+, Are there 280 blocks on the disk ? (Y/N) / /Yé/yÍ*D Number of blocks: **  *š*+\**+.+"̄,.ʄ,"ˍ̄,ʄ,Uȡd*** **̄.**ʄ.8צ$ Illegal character in volume name.,צ Volume name too long.ʄ.+**+ Keep volume name צ ? (Y/N) &/ /Yé/yÍ̄+̄+ʄ+ʄ.ʄ-ʄ-ń# Enter the desired volume name : P ̄.*̄/*ʄ/ nPASCALSYOPTIONS scape8 צ 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ء  CurI Pascal disk routines are "&צresident.>ؓX ؓ! צSOS צApple II Pascalצ (new setting)ת File names are displayed in  ,צ format3Cؓ~ %ڢڢˍڢˍڢˍˍˍ> ؓ! צ NOT תצ (new setting)ת "Apple I  ڳaAڳ^تPRצChange this? Y)es, N)o 闳@@ˡٳO (*+,-./0123^^(C)Apple Computer Inc. 1979ges and leave  to return to SETUP! ,@,áYˡ  ?  8%̄ʄʄʄʄʄʄƁ*SYSTEM.MISCINFO""˄Ʉ;!Error: must insert system disk. תP#$áátƁá^" """211.*+Ɓˡ ! צ5Error: New options could )PINTEGER *REAL Nr5ECHAR <s BOOLEAN edSTRING `TEXT rphINTERACTtiINPUT 8edOUTPUT (OKEYBOARDV anFALSEYPRESS: BOOLEAN; !FUNCTION RANDOM: INTEGER; !PROCEDURE RANDOMIZE; !PROCEDURE NOTE(PITCH,DURATION: INTEGER); !Copyright (C) 1980 Apple Computertion in source): sk. תP#$''  !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 KE46789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~789;COPYRIGHT APPLE COMPUTER INC. 1981-1983 RELEASE VERSION 1.1 "-:GHZ4x,APPLESTULONGINTICHAINSTUPGRAF PGRAF TURTLEGRTURTLEGRREALMODETRANSCENPASCALIOSANE SANE ELEMS ELEMS  +7FKuines  #C) Change file name display format  צ!D) Change editor key assignmentsS(etup: A, B, C, D, Q(uitתP# & !  AE !Qá9;" *` T~02dۢۢۢۢۢNۢۢۢܕ( trToNum(VAR decstr: string; poweroften: integer ): real;  procedure NumToStr( r: real; fixed: boolean; placecount: integer; 4var s: string; var expon: integer );  IMPLEMENTATION E and: 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;  function S< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXPšEצ:š  >#צ*צ:á >š{-NVWf-N@ȡQ-Pצ:-á:ײPN? XP ??زP>پ/ˡ צ/P?8??زP>? f<zH~  /á< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXPšEצ:š  >#צ*צ:á >š{-NVWf-NتPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0ȡپ á*š*۾١:/˄ /P /áVAR current_prefix: STRING); (PROCEDURE get_pathname(VAR pathname: STRING); ( # #IMPLEMENTATION E LIBRARY"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) ( ( (PROCEDURE SetChain( Tytle: STRING); (PROCEDURE SetCVal ( Val: STRING); (PROCEDURE GetCVal ( VAR Val: STRING); # ({PASCAL 1.1 additions for application support} ( (FUNCTION set_prefix(new_prefix: STRING): BOOLEAN; (PROCEDURE get_prefix(hhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLOL,3-'~{vvvvvvvvvvvZTNlb3 `\[TOG@;:3(  T[Fc= 8BLKRANGEX(=+U8IN ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,LGhhhhhƀhh-Ȅʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,}' \)  ɡ-Í á ܑ ) '!Í ) % ɡ    ~ɡ  ~"ˡǀġg/  ( ǀ > *ڨ ɡ(MMMM܏M܏T+ܨ ء '$H`:hhhhhhH50HHH`*hhhh LHH`4hhhhhhhhhhhhhhhhȑ**ȩȑ&HHHH`h hhhhhhhhHHHHHH`(0 2) l` 0 2) l` 0 2) l` 0 2) l` hhhhhh404)@ 4) HHH š)  ȡ0ˡ š  *ݡ W~ ٦***תP(š_ۡɡڑ ɡá0PÄ,ߡצ-QP<ˡ;,ɡ#??P?0Q?P>>.P>8??P?8U?P/ؑ>,>Nš N>>š3=>?=?ȡ#@@P@צ0Q@P==ȡ5=?=?ȡ#ˡ/14 ڡؼáڡؼZš0áۀ š ۀ*ByO7>zS8ȡ ȄPšPMšM/(<<<0Eá4+á4-á4.1.Ǹ ɡ ۏ01ۑ+-4.L0Ná=;á/Ä ڡؼ1A3N3'Ä!4' Ä1./-+á -á0Ná1. 2 .á0Eáa4.12,ɡ1.0آ  "10ˍ8,ɡ 1ɡؿ 0ÄL2٢10ˡ103آ1 41á?˄??&@ۂ"ˡu??š???#?$???$?#ń ?#?$?ۚ?$ܚ?AAA?AˡA  5~ 09Ȅ.!~Ȅ/azōaA??@ɡ??"@?Ä?á?????,? >"Má? > >? >á @@@ Ą @ ?ˡ\?%,?%???&@?"% ,    ݂܂F  -    ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏- +$&!&%š#$ە##š##$"$##ɡ#"ɡ2ݓ&&Í&&&á&"&!)&%&&Í&&"&!)$%&&!!$$#ȡ!ˡ ء##ȡ''0'Q'Phhhhhhhhhhhh&FffHHHHHH`Phhhhhh⨥HH`,hhhhhhhhhh訪 横v E 詀 vE 詀  Lj0 fLfJJJi䨩ȩ50,8 &5&  6 F5L L5HH`~u$hhhhhhhhhh訪 横 Ji&&0 fL]fJJJi&&⠝8s-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); '^'^)N^PN^N..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; %GSCBv :2D"\.< z 048VID K6ANU8HVIDS ZA\A!8H@DIRRANGEA~AA8MTID CAAN8HFULLID VJAA8H HH`7hhhhhhhh訪 H & *HHH`6hhhhhhhhHHHH`&hhhhhheȑȦ0+L4-I8i  L6i0i0HH`.`4j rXJF8IȱjE Ȅ橀إHH`zhhhhhhhhhh[ȱ)uD*&**u&L&*** ʈHH5qjȑHHHH`\hhhhhhhh  0<Ȱ& u E   ؠ ) JJJJ 0ȑ ) 0ȑᘠHH`hhhhhhR0H*v  u&&v&E& &詀&L&&ť&&ʈHH`o'hhhhhhhhhhhh bL)5Ffeyumꩀ5JA1SKQL51QF55(5ȱcs buffer space.צHit to continue....\٧8' "ˡaUnit  צ write error: IORESULT =  ~á 8s@8sá 8s8s8sš78'8'قd8'8'8'8'8'.8'8'~|zkhZEB-*'% 8hhhhhhHHHH`.8" ~(B N j * l  r  L .P47!TAB ;NADJCTAB NSETGFC P7NSETGBC NSETSMODENLI>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(<88( \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'ǀn]L;* 8'  8'6 8'8'8'8'8' \ 8'8'8'.8'8'.8'8'ġ ڹ8'8'8'x8'e8'R8' ?8'@,NTO NPLOTAT NMOVTO 8NCLRVP NSCBLEN NSYSFONTH78N SYSFONTLNSYSFONTENBUFSA1 ,8T8N BUFSA2 @8N@BUFSA3 9N`BUFBLKS1h8NBUFBLKS2N $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); $PROCEDURENZ6ا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Í Íǖǖǖ ǖǖǖǖ٧ ǖǖ á%ǖǖbǖÍ Íǖǖǖǖáo; $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 TURTLEY: 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@ ؿتPǖǖ ǖ,+ǖlǖǖoǖ]ǖKǖ9ǖ' suwy{k[QE5ǖǖǖǖ-  -- -   +ǖǖ,X MNj_ ,ب"! .ء1ٹ#($$% &'( .ٹ)'*#+,-. jء1ٹ/(0$1 234 : 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; '^'^function nextafter(x, y: real): real;   function sqrt(x: real): real; function rem(x, y: real): real; Implementation E lean; 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; '^'^ closure; 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 maxrealprocedure 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: 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); xhhhhhhHHHH`.h&h'hh 'H&H`(&*('$!B* t Tx` BVj~Prr R  Wrpnkhfb_\[ZYXWVUTSRPL8765430/-,+*)(&%$#"!   hAhBhhhhEȑHCDBHAH`I.GRAFIXRP@6/+'% ^\ED@<~|zwtsrqnkhedcba^]ZYXWVSRQPOKJIHGFEDCBA@?>=<;:9m 8LL   HH`` hhhhhhhhhhL  mmmáצ&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..ٹ5'6#789: jع;<=>*á?@ áAB DDE *Dá HB  6GCF D Ná(EF I!  FP 3b88 E50V&&jfHHHHHH`*$Pߠ0 2)HHHH l%L0 HHHH2)L2)4)@:4) \0 0  2)22)*`%Р0 %hhhhhhhhhh&&8ffff8e080 HHHH`HHThhhhhhhhhh8&&&HiHHH`8hhhhhhhhhhhh**Lti i&&&eeHHHH`>hhhhhhhhhhhh&&jfHHHHHH`BhhhhhhhjhHjjHHHHH`*hhhhhhHHHHHH`"hhhhhhHHHHHH`$hhhhhhHHHHHH`",hhhhhhH50HHH`*hhhhhhhhhhH&*HHH`.hhhhhhhhhhH**)HHH`0hhhhhhhhhh*JHHHH`8hhhhhhhhhhhh&ffHH@4` 4`4`hhhhhh404)@ 4) HHHH`:5)`5 @`5 `5)`hhhhhhH5)@HHH`0)HD0)730)&"0)ʢ0) HHHH`hhhhhhhh2)YU2)HD2)732)&"2)ʢ2) HHHH`4`2 `2 `2 `2 `2)`2)`2)`2)`2)`2)ߑ`hhhhhhhh0)YU 0 2) l` 0 2)  l` 0)`0)`0)`0)`0)`0)ߑ`2 `2 `HH`"hh4hhHH`hh2hhHH`hh0hhHH`0 2) l` 0 2) l` 0 2) l` 0 2) l` PNKT$R <"-!ǀ@ hhhhhh5HHHH`"hhhhhh3HHHH`"hhhhhh1HH $H ZTF.NNSN NUN;PN"  ONz fONN ÄON-ܡܑQ  š  <S  ȡ  L$MLM"N(O (PN/ tǀ(K   Ko Y< J 2)8`%0Ԡ0 ffff쩀%A0 4)4074)@E0iii2)8`2)`$%ʥjŐ892hhhhhhhhhhhh&*8f$3C$&&jHjHHHHH`8ߥץ0ϊLIHHHHhhhhhhhhh hFfff8 @| e e e e Ffff Ffff  e e e 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!ͨ'7FLOATLIB/TRANSCEND.TEXT*tZt^+Z Rt^ DEVO/FLOATLIB"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) USES {$U FLOATLIB/REALMODES.CODE} 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 XMLI#Hh 4 x ~  2 H ^  0 H ` x  8^@d  @\ $ @H \ h p69T8USERINFOV]lHEMPTYHEAH` `hh00 2)hh ljH*vjHHHHH`Vvvv`666``8`yyyy`8`jg`Y)&%  JL 0 ] LL ?ӥ L ?Lv  E  6ELS  ]EU 0  Ll HH`hhhhh*68jh*vH HHHHH`4)@ 4  0 2)hh l` ^hhhhhh     88  e     L     ]L   e &&&8 LAFfff Ffff  e eee e e e e &&&e eeeLH     &&&%e   e e e e  FJH  ??ܳ1? ?=~@:?ܳ^  9   9 á   9q99 á  H9/ $ (CONST ( ,SIGDIGLEN = 28; { Maximum length of SigDig. } , ,DECSTRLEN = 80; { Maximum length of DecStr. } , (TYPE ( ,{----------------------------------------------------------------- ,** Numeric types. ,------------------------------ Extended; var y : Double); (procedure X2C (x : Extended; var y : Comp); ,{ y := x (arithmetic assignment) } ({----------------------------------------------------------------- (** Conversions between the numeric types and the intermediate (** decima(procedure C2X (x : Comp; var y : Extended); (procedure X2X (x : Extended; var y : Extended); ,{ y := x (arithmetic assignment) } ( (procedure X2I (x : Extended; var y : integer); (procedure X2S (x : Extended; var y : Single); (procedure X2D (x :(** including the type integer. (-----------------------------------------------------------------} ( (procedure I2X (x : integer; var y : Extended); (procedure S2X (x : Single; var y : Extended); (procedure D2X (x : Double; var y : Extended); function RelX (x, y : Extended) : RelOp; ,{ x RelX y, where RelX in [GT, LT, EQ, UNORD] } ({----------------------------------------------------------------- (** Conversions between Extended and the other numeric types, e DivD (x : Double; var y : Extended); (procedure DivC (x : Comp; var y : Extended); (procedure DivX (x : Extended; var y : Extended); ,{ y := y / x } ( (function CmpX (x : Extended; r : RelOp; y : Extended) : boolean; ,{ CmpX := x r y } D ( var y : Extended); (procedure MulD (x : Double; var y : Extended); (procedure MulC (x : Comp; var y : Extended); (procedure MulX (x : Extended; var y : Extended); ,{ y := y * x } ( (procedure DivS (x : Single; var y : Extended); (procedur( (procedure SubS (x : Single; var y : Extended); (procedure SubD (x : Double; var y : Extended); (procedure SubC (x : Comp; var y : Extended); (procedure SubX (x : Extended; var y : Extended); ,{ y := y - x } ( (procedure MulS (x : Single;-----------------------------} ( (procedure AddS (x : Single; var y : Extended); (procedure AddD (x : Double; var y : Extended); (procedure AddC (x : Comp; var y : Extended); (procedure AddX (x : Extended; var y : Extended); ,{ y := y + x } ORMAL, DENORMAL); 0DecForm = record @style : (FLOAT, FIXED); @digits : integer  < <> = >= <= <=> } 0Exception = (INVALID, UNDERFLOW, OVERFLOW, DIVBYZERO, eINEXACT); 0NumClass = (SNAN, QNAN, INFINITE, ZERO, N?sig : SigDig { String of significant digits. } ;end; ,{----------------------------------------------------------------- ,** Modes, flags, and selections. ,-----------------------------------------------------------------} 0 0Environ = integerSTRLEN]; 0Decimal = record ?sgn : 0..1; { Sign (0 for pos, 1 for neg). } ?exp : integer; { Exponent. } Copyright Apple Computer [A3/1.1]tion in source): taXTOY % ( 0LDA '')------- ,** Decimal string type and intermediate decimal type, ,** representing the value: ,** (-1)^sgn * 10^exp * sig ,-----------------------------------------------------------------} 0 0SigDig = string [SIGDIGLEN]; 0DecStr = string [DEC-----------------------------------} 0 0Single = array [0..1] of integer; 0Double = array [0..3] of integer; 0Comp = array [0..3] of integer; 0Extended = array [0..4] of integer; , ,{----------------------------------------------------------l type. (-----------------------------------------------------------------} ( (procedure S2Dec (f : DecForm; x : Single; var y : Decimal); (procedure D2Dec (f : DecForm; x : Double; var y : Decimal); (procedure C2Dec (f : DecForm; x : Comp; var y : Decimal); (procedure X2Dec (f : DecForm; x : Extended; var y : Decimal); ,{ y := x (according to the format f) } ( (procedure Dec2S (x : Decimal; var y : Single); (procedure Dec2D (x : Decimal; var GˡCGڡDڀš DáA QܢšvܢIá RܢNáC --------------------------------------------------------} ${------------------------------------------------------------------------} $ $IMPLEMENTATION E (procedure SetEnv (e : Environ); ( (function GetRnd : RoundDir; (procedure GetEnv (var e : Environ); ( (function TestXcp (x : Exception) : boolean; (procedure SetXcp (x : Exception; OnOff : boolean); (function TestHlt (x : Exception) : boolean; (procedure SetHlt (x : Exception; OnOff : boolean); ({---------------- (** Manipulations of the static numeric state. (-----------------------------------------------------------------} ( (procedure SetRnd (r : RoundDir); (procedure SetEnv (e : Environ); ( (function GetRnd : RoundDir; ,{ sgn := sign of x (0 for pos, 1 for neg) } (procedure ScalbX (n : integer; var y : Extended); ,{ y := y * 2^n } (procedure LogbX (var x : Extended); ,{ returns unbiased exponent of x }  ({---------------------------------------------------------on ClassS (x : Single; var sgn : integer) : NumClass; (function ClassD (x : Double; var sgn : integer) : NumClass; (function ClassC (x : Comp; var sgn : integer) : NumClass; (function ClassX (x : Extended; var sgn : integer) : NumClass; ,{ x := x with the sign of y } ( (procedure NextS (var x : Single; y : Single); (procedure NextD (var x : Double; y : Double); (procedure NextX (var x : Extended; y : Extended); ,{ x := next representable value from x toward y } ( (functi(var x : Extended); ,{ x := rounded to integral value of x } (procedure NegX (var x : Extended); ,{ x := -x } (procedure AbsX (var x : Extended); ,{ x := |x| } (procedure CpySgnX (var x : Extended; y : Extended); s the integer closest 9to y / x (n is even in case of tie). . quo := low order seven bits of the integer quotient n, 9so that -127 <= quo <= 127. } (procedure SqrtX (var x : Extended); ,{ x := sqrt (x) } (procedure RintX ------------------ (** Numerical 'library' procedures and functions. (-----------------------------------------------------------------} ( (procedure RemX (x : Extended; var y : Extended; var quo : integer); ,{ (new y) := (old y) - x * n, where n i(procedure Str2S (x : DecStr; var y : Single); (procedure Str2D (x : DecStr; var y : Double); (procedure Str2C (x : DecStr; var y : Comp); (procedure Str2X (x : DecStr; var y : Extended); ,{ y := x } ({-----------------------------------------------procedure D2Str (f : DecForm; x : Double; var y : DecStr); (procedure C2Str (f : DecForm; x : Comp; var y : DecStr); (procedure X2Str (f : DecForm; x : Extended; var y : DecStr); ,{ y := x (according to the format f) } ( (These conversions have a built-in scanner/parser to convert (** between the intermediate decimal type and a string.) (-----------------------------------------------------------------} ( (procedure S2Str (f : DecForm; x : Single; var y : DecStr); ( y : Double); (procedure Dec2C (x : Decimal; var y : Comp); (procedure Dec2X (x : Decimal; var y : Extended); ,{ y := x } ({----------------------------------------------------------------- (** Conversions between the numeric types and strings. (** R*ܢá#**ۿ***-ˡ  *:Dá ا RˡIɡV á&çÍá > ˡ&çÍ*QI*Dا  R٨ P ɡ"á0áINññ   LX   LX   LX hhhhhhhh hhhh  :HHHHH`;980-&%^hhhhhhhh hh     LX   LX   LX   LX   LX   LX   LX   LXġ>9ɡ*á1 áJKLIJ$A\;F  LX   LX   LX   LX   LXW1\1-Ä .W1\1- 10-W1آ.-/=b~eL~&$X٪PJXJ!R)٪PJXJ"R*٪PJXJ#R+٪PJXJ$R,Y\1I,ɡ0//,,21آ33آ323 10ˡ10W1آáآ000á,آآآ0Ä//آآ+A>Ä>Äآآ\1 a.-W1\1+Ä W1\1I,ɡ*,,21آ33آ323//10ˡ10W1\1.ÄfW1\1I,ɡ0,,//21آ33آ323 10ˡ10W1\1.ÄW1\10Ä//W11N1nÍآN[[W1\1~~k1~ 91a11~ 91A121آ33آ323W1ܝ\10Ä W1\1,,21آ33آ323ϡV J JU>([ȡڝ[[[\(W٪Pآآת00/.-,20[\W1\1  W1\$1+á W11-áW1\1IÄآI؝\1iÄآIڝ\KPŝKPɍ Vڨ٨KJáV JJU>%ڨ٨KJáV JJU >&ڨ٨KJáV JJU >' ڨ٨K J ..ȡ //P/צ0Q/P..P.צ.Q.P٢ɡ+..P.٢l.P.Pf..P.0.R.P٢..ȡ //P/0Q/P..P.٢l.P JULTˡ-P P٢0á..P.0.0S.P٢Iá"..P.צINFINITYX.P٢Ná..P.צNAN''U.PáL٢٢T..P.٢l.צem.ǽ.Pצ.Pġ`..P.٢l.P S" ٨RL"!٨RM""٨RN"#٨RO"$ɡڑ10 P ˡ0 P ɡצ-QP?V lߧQǀڧ*D*ȡ*ݡA7 Sڨ٨HS"ڨ٨IS "ڨ٨JS " ڨ٨KEڧDEá ܂šޕݕɡɡR&çÍá ߑ5&çÍ:HʊHHH`1.'$RhhhhhhLt 4hhhhhh Lv%" HL`LbL`hhhhhh HHL%@hhhhhh HH@L%@hhhhhh HH@L%@hhhhhh HHL%@hhh jjj((8)0(6(knqL 8knq8qiq0~  s  qq  nqF v: F vivgIg6  !8kiq ()0 pL gLhLhi0>L  BL Lߩ L 0i,x{ BL @vE{L)(L( 0,x0   {L9( ( ((f  8 gȱj q䨱(L(( ʩ(j`hihi`q`kn` g u⨱(`uvghi00LXLȱ0,x0 BLh L X 䨪( ʈ( )(L,x0h i @ f  u((&v(E(f(((ƥк8k}nq0 gjj0 y|JL gjq((`hi X hhhhhhHHwةjgyf{LhL L= L+ iL@ QgL-Lxh;i4 {j  `Lhi0BL hL BLhLLH` LLLL@L@LL@LhhhhhhhhhhH8L(hhhh+P'$@C$! (k}mgbhhhhhhhh  ( ) ()    ( IH)IH)HHH` E F )e )(i(f(f)`\Khh lH +(vsliMLK*&!tsrmid_aaahhhh ȑhhHH0C?n vȑv` Ivʽvȑʽvݠ 51_1 .@*hhhhh!"k/ȱl/n/ȑHHL"#$%&)L#$'(%&HH@LL#$Lhhhhh'h(hhHH%&!"p/m/o/k/ȱl/n/ȑL"HH`'$<hhhhhhhhH8*1HHH`1.<hhh hhh8*f I1L< Ȫ1LHH`IFVLL^!"`p/m/o/hȑHH`WPK<62}zwtZhhhhHH`!*hhh)? **)hHH`+(:hhhhhhHHHH`'$0hhhhJjjc9\YVOLD;852" LLLLLhhhhhhhhhh荇ȱ荈謆 H)8ȭiH% @hhhh QHH`$hhhh 1HH`$hhhhhh 1 1 HH`2dhhhh hhd HHd@L{h|hhhh  @ {|~)} ~8~ȑHH`zx>;61)%yvkheb[hhhh Ll(hhhh 㩁 Lv2 6   {IL}kk`i(6}nn`)ȹ(ȹ((((( )0 (6(((({I8 `}qq`,x w`Lv E  `vEf ` JJJ1e((((f(( (((ʈݘ( )`v(E(f(((`,|Ey s r q|JL$ j` qr ssFq\yU 8.qʕ q0= j  ,q.y qpWVUOF.%$# }|nidZU10/+#"!  fa_^W54J6310+&#    ] O N J 4 1     LL      5@ ``8 H(hhWPONMLKFA<72/*#  U;:91.-*)#  ~{:hLnop @ g5;kn)0/lomp  %   I{% `   BL XL IzJ Q{nopih,x0(Lyqr .gJ L(( ssg(8(()0Ly BL| 1 h),xP iLLklm 5 hklm    i,xpnop(scr\){~)zrI)L)j).s(\F)q.sȹ.rLs)8f)((8:mssȹ:mrriqL( )LF)LLr)rsrж()0ШrЛ()ɀ))@ E)) (* *s:sr:r')Ngsjf)( (`6)Nrnsf)Nrnsv(E(((s NgjЯfr NgjsКLyr .gjȱ .gjrs(((y e (((6(.s.r ).s.r8f)((,ȹ(  & u E   E(ؠ ) JJJJ 0ȑ ) 0ȑᘠ`qj)Hy6%  s* g)ɀ `(g (`8(`yj)Ȅ(rs))0 rs  U(( ( ((LL )Ȅ (+ -Lg ;ܥ)) n((*((6((u(( C8&) )(u(( &8&) Ф)L( ssrqL BL( ((((ʈ(`,|po (<ȹ( E(0  h,x0 L)(Lj g 0ꪠ gL,xP BL u 0 ,x0  q nqnrns y  (( +F  ((( (  6 (( ( )&( ( ( u(( u( (f " 8       ʈ ( {  䪽FgV?( u(,v(E(f(((8qiqʰL(8 (50((zg0( L0  p0gIg8 ({Qgnq(0 i gkq (L(8nqkt'(8kqnt   y'u tvv L)A ʵ * * 6 v E  JJJ e  6`    u & 6 `h0?L {Q ,xpQ gL{g BL h0$   h,x0 i0$i,x0 @hEi {QQgLz (( (j`)0 p((8(y` q.%qj{  `)0/y( q. q y LBjq0syl :}qmq` z?ʊMg4y :Iqq()y((`jȦ   ,|0 y Vy(u(* (E((& Y   z ?ʊMg6F 2((J)(8$u(( y) f)8}qqʰy (6()jj  ,|:|Jy( ((((`| w v m j e b ] R M @ } r o l k \ U R Q D < ; : 9 - , + *      S I H G (     ~ y d a ^ ] [ Z Y V U T {`PJIFEDA@'pTS?>10)('&$#{zsrc\I>3('&$#     pon[ZSRQHG>;652/.8    @٨8$@٨9 cá$QJ(*%3$(ا0A(& B٨9ÍV f   HAA 6٨;0"9á #;/Aߑ: : 0 ڨ٨1  ^:  ɡ      ɡ0:" ڨ٨ '('(ȡ '''"J ٨  ġ  A0 ġ  A0$&XáA ڨ٨ 99ÍÍ   T ڨ ٨ ȡAA0 ȡCC0 ?= ȡޤ@ޤ@= ȡޤAޤA-g zd); ,{ x := (1 - (1 + r)^-n) / r } , Copyright Apple Computer Inc.1.1]tion in source): N^XTOY % ( 0LDA '')P${$p----------------------------------------------------------------------} $ $ $ $ $ $ $ $IMPLEMENTATION E re Compound (r, n : Extended; var x : Extended); ,{ x := (1 + r)^n } , procedure Annuity (r, n : Extended; var x : Extended); ,{ x := (1 - (1 + r)^-n) / r } , Copyright Apple Computer Inc.1.1]tion in source): N^XTOY % ( 0LDA '')Px : Extended); ,{ x := x^i } ( procedure XpwrY (y : Extended; var x : Extended); ,{ x := x^y } , procedure Compound (r, n : Extended; var x : Extended); ,{ x := (1 + r)^n } , procedure Annuity (r, n : Extended; var x : Extendeded); ,{ x := ln (1 + x) } ( procedure Exp2X (var x : Extended); ,{ x := 2^x } ( procedure ExpX (var x : Extended); ,{ x := e^x } , (procedure Exp1X (var x : Extended); ,{ x := e^x - 1 } ( procedure XpwrI (i : integer; var $ (USES ( ,{$U floatlib/sane.code } 0 0SANE { Standard Apple Numeric Environment } ; , procedure Log2X (var x : Extended); ,{ x := log2 (x) } ( procedure LnX (var x : Extended); ,{ x := ln (x) } , (procedure Ln1X (var x : Exten_*@V6l% d B&b&&&+Z+++.../=:4)&%$# ~`@ 橀ȑ ȑȑ戥LX?>; Lhhhhhhhh  0HȱHHH`H3&Lb&*++-n/V1R3(B\vA 9޹Gá$ب40%'".á$p ب9Í : 9޹2 9  Z ڨ٨ ȡ "6 B ٨9Q\ R   >   : AAXSU*|٨  /PPATCH 8E+2R,+0.1372201370995018778753405E+4קR,צ+0.2132829591390430817310353E+3>,+0.3959336226071100526269220E+4ק>,b? <?0A =83 $8$.$.צ+0.2718281828459045235360287E+1,8...).)0I$N??ת0= T< H BL&N <>Zt4f` ^ & f L&13053527758E+2R,+0.1372201370995018778753405E+4קR,צ+0.2132829591390430817310353E+3>,+0.3959336226071100526269220E+4ק>,b? <?0A =83 $8$.$.צ+1f,+0.5641063644979311328397920E+1קf,צ-0.2876477662292165399975444E+1H,+0.1955043680438308966893987E+1קH,צ-0.1523098106341779462320022E-4R,+0.2665544475689997672828303E-1קR,צ+0.189783838612511305352775O& !|2 b צ+0.2827064759880235566554557E-2f,+0.1818284789116497535738819E-1קf,צ+0.1077109054851084084494426E00f,+0.1247016105029232685961517E+1קf,צ-0.6419405568907133719132319E  3.e $og. .;3)&3"&Zdpr&.&V. A&.3'&R&٨9"0áا3*,'& P%á49á8. 0%0r$ ڨ٨ 99ÍÍ.  8WY&V. .+8"A'$&O& !( , ٨  /A   .ˡ8 8 ÍÍ VáN  /@ %+   /@A#0#*  ڨ٨ 99ÍÍÍ  3.Oá- .&á ï .١2NBD?Aá 81ـȡ!ب1  ١2 $1˄݀Ȅ@ ݲ  L#٨99Í٨  -   /A .ˡ88 *r" 9޹#1á 3بب+-("Z9;á 8ڨـ    š    ا8ɡ  8W  n9بÍT- ب   /A80A  8 <! 9޹%3á .ب8-/*!\ ڨ٨ 9á19áا..0  .pl releases of the Apple /// Pascal system.צ8Type to continue; to exit instructions.á0To use the program, perform the following steps:B1. Make sure the new system deviceSYSTEM.PASCAL will only be changed for version 1.0 of the צEPascal system. In later versions of the Pascal system, SYSTEM.PASCAL,will not need to be changed by this program.IThis program can be used for al. The program will alsoLchange SYSTEM.PASCAL so that it will start looking for the editor, compiler,Bfiler and linker on the new system device to avoid spinning drivesunnecessarily.ANOTE: vice you specifyFwill become the Pascal system device (unit #4). The effect of this isIthat SYSTEM.PASCAL, SYSTEM.MISCINFO and SYSTEM.LIBRARY will reside on theצIspecified device instead of on the built-in driveEThis program will allow you to run the Apple /// Pascal System on anyצLblocked device, for example, a ProFile. The program will take a first-stageצIPascal boot diskette and change SOS.INTERP so that the deF INSTRUCTIONSצ3Type to continue; to exit program.á<$Would you like instructions? (Y/N) Yy˄צ1 PASCAL SYSTEM MOVERצG the new boot diskette. The Pascal system should now be running on F the new system device. The boot diskette is only necessary during* booting and can be removed afterwards.END OYSTEM.LIBRARY copy from Pascal3 disketteצ.4. Make sure your new system disk is mounted.צ*5. X(ecute PMOVE and follow instructions.צF6. When the program terminates successfully, re-boot the system usingtteצ: SYSTEM.SYNTAX copy from Pascal2 disketteצ: OPCODES.6502 copy from Pascal2 disketteצ: ERRORS.6502 copy from Pascal2 disketteצ: SEDITOR copy from Pascal2 disketteצ: SYSTEM.COMPILER copy from Pascal2 disketteצ: SYSTEM.LINKER copy from Pascal2 disketteצ: SYSTEM.ASSMBLER copy from Pascal2 diskeצ: SYSTEM.PASCAL copy from Pascal1 disketteצ: SYSTEM.MISCINFO copy from Pascal1 disketteצ: SYSTEM.FILER copy from Pascal1 disketteצ: SYSTEM. " A SOS.DRIVER " " " " " " צ8Type to continue; to exit instructions.á7 On new system disk (at ROOT directory level) - Íá, 4( On a new Pascal boot diskette -A SOS.KERNEL copy from current Pascal boot disketteצA SOS.INTERP " " " " " is configured into the current? Pascal system, i.e., the SOS.DRIVER file contains an activeצ driver for the device.צ-2. Format the disk in the new system device./3. Create the following arrangements of files:ڪ ġ{ ˡ.áZġR7  ȡ&䛾  㓡["-" is not a valid SOS deviceSOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 e name of driveצ-> jjj /SOS.INTERPj"ˡNצ Cannot open: jjjצ /SOS.INTERPjAjj j/SYSTEM.PASCALj"ˡQ Cannot open: jj j/SYSTEM.PASCALj צSUCCESSFUL COMPLETIONA\ P ^ \ &h   צHInsert diskette containing SOS.INTERP and enter SOS device name of driveצ-> jjj /SOS.INTERPj"ˡNצ Cannot open: jjjצ /SOS.INTERPjAjj j/SYSTEM.PASCALj"ˡQ CPMOVE - Version 1.0צNEnter SOS device name for NEW Pascal system device ( to exit)צ->    צHInsert diskette containing SOS.INTERP and enter SOS devicS #4:SYSTEM.ׯ@,SYSTEM.PASCAL does not require modification. #hءe١2Agצwriteצ SYSTEM.PASCALi0Agצwriteצ SYSTEM.PASCALiávU  ץAAggwriteצ SOS.INTERP668ál.iAgצread SYSTEM.PASCAL#hɡh š2Agreadצ SYSTEM.PASCALh   #5:SYSTEM.ׯh4.PASCALׯEBBBצ/SYSTEM.PASCALBP:88\,/SYSTEM.MISCINׯEBBBצ/SYSTEM.MISCINFOBP:88:h.h١Yء,6gwriteצ SOS.INTERP*656gצwriteצ SOS.INTERPi866gצread SOS.INTERP.hɡ쩆hš06greadצ SOS.INTERPh:h/hh:ɡh,,,/SYSTEM@55?;5Ǭ@=5=5=5 5<5<5L5?5?Ǎ@=5=5=5ǩ5>5Ǎ@=5 =5 =5 5 DŽ5 @5gצread SOS.INTERP5ˡ95hDŽˡ 9hh@9 hhLˡ 9 hh<h h;h5?55ǩ5>5- of .i3צ damaged. Use a new copy. igצread SOS.INTERP_;aA;A7;á w;776755*9;>6 name. Try again.צ->  š۫hٕڥ ؄Hצ4ERROR: Unable to perform modification of SOS.INTERP.܂h-٪PتP"˩gˍ" צ - I/O error during  7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ H)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I V L) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`L 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɻ """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple ComputerDL8H\0`(d  $,($  ,9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww0,>!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>ӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F,b `  L LBa@LB a @LLD8?8`DE( 8DCDE` E0LXDE`DHEH hEGhDFL \DF]EGL) d>`H_E ^Db) b bh`  b)h` mDm`DE(E ZHYH`Lh~}k} =@ '` `è" (ÙY`L_Ùe`Ù `` q>  ,  C[JC` ?`> HH` s) L/ d` 6H5H` D^Ol>` ` Jcd % ( i=` ( (,=) =x)) v(cd `# (,=ȅɅŐİ  ( ,=  HH`! (88" (èYÈ`,=0L (C) 1980 Apple 'H&H` (# (9d7="Z[    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{  .SILENTYPE A@  @   .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}%(-47=FMUX\_jmzJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL Fܪ7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$f`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅfݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`J y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjfDmCDEhBkȌB`LBkB` '`)ݲ>`A@>A HH`>`<>EeFJKL.^CcHV=WwBbG? "#Rgnh*2U^wb b) b b)b``@?m` _ ^`\]LY@?m`  ٥`^_LY j` j@)` jLX@)c`@)a`@HEmDh0_^`0]\DEH j@ jhLXB j@0)HmHHh jܭ@L`@)[) L:[)L:[0 H j[ jh` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @? B J O T [ ` e j m p {     ' + / 1 3 5 7 9 ; = ? D I M T Y ^ a f k q v { (Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH   "&)-047CKNUX[^nqt $ * - 2 7 > C F I L Q Z d k |   * - 0 3 < ? B E H K N o x    ! $ ) , 1 4 7 : 8AINQTY]bv{~ !&),14>ADHKPSW`eipuy|  "(+037:?BGKPSdilotwz'+579;=?BFKQTWZ]`ehknsvy| !$'048;@FIMPUY\`hknqw  %*.36$# >1fN&`6> 9?6">A@.~A>0=3&@~|cpa ,&(*,.0246;@Cchkx 2;@CNRWY[]_acegjq{A@ADIAAIHAAAHAHI@EA@?A> 6A}5 AA>III$QIHII""M]DIAAIHIAHEHIIAA H_ AAp*@"*QIYQIPIIAPIDIAAIHIA"AHBLI@QA@^ A8`8)8ILH > ' ` j 8` ) ` > ` C ` L ` S ` 348``  y y 8 ``  b6>#B r>@62 >?>>>>2@~|cpC p*dI"*E!EAQIGII8;;<3ij X 3gh5 X 53e,<0m;f,<0m< X ij X h`  `0>H hJ)@$0P L S S L P  J L `J0 H/ H` d y ~ o t Z 8`8 5 P P ) ` C $ a0 '8` P a P a J  L a 0 P a0 P a0 P a0 ) 9:`Y_Zx) ) =(`H6H 7I%h7680 9:LV 9:9L) [,8누 ,[ Hh tF t,80,[ t` ^H ))[_^Zh`3J 3L 3 ) 4J 4 ح4 ) 3 5 P L 4  J L ) P LL ) 0)9  tL> )&0 ,8BkL  ,8Ii`a a tL> a0ca t L 8D9E:II  t8 t`A t\] L  678F:G0 г氭LA t  BHb)bZI[J`K`IZJ[K`` H 0L06,8 `  t( K ,8`   ) J J LS HH `,80`B`#$+29Y` `` Z` [` [ j X `[) >`b b)b`@d`e`BNk B L;<,b= ' 9 : , FDGE  L BLqk E: -D9%    C  tB@Bk L!8D9E:9 ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#DParallel Printer Driver -- Copyright (C) 1983 by Apple Computer Inc.v7.PRINTER A`@dCopyright (C) 1983 by Apple Computer Inc. 5  Hdcefh&+si M0  h) `(" ( (È& 8 `)2ȱÍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i`(" ((è%È`2ȭ3`1`d`c`+È`&È` * IMk`4`5`6`7`8`9`<ȭ=` * @jI`:ȭpȭqé,i0LÈ`,g HH`LL! l      j`; ;j`uBL8 uCL8 u)u;) u;L8   x) `(, LuL1upp<`uqq=L> vuL L L <Li Li ,g0L HH`! ( 9EKQWbmz?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L> ,lXL ==L> ,lCL <=L> <,n)LL8 L8 u:L8 ;)ߍ;Ls Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu #1:CY` 9C<m><=m@=>@K50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  * @jIH,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L ҅ӥĥŰ+,0p 4    4(P 4 4 `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8O +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H h 4 `5!  0`)aIL,, 3,,0-./(,$)x*%)/+(```04@DRTVXZ01 % (, :'`'LM :01 `,'0LM& (,'0LMIĥIC ,$P( n(.0- .-L 3L 3`,,P*M#-"x Z)(,,p` *+)+X,,PM#-" 2Z SHRH` (# ($GGjc`,'$ ( 2 *)60!M:0p ȱq L`" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gK 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< N8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< = NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= DÈ` ȑ`! (`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A͝ )X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 *̍m%%#$  " ` L ``(%, ( *x (I  ) (j`;Profile Driver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&% `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     + / @ C H K R Y j o t | ,/DIMV_x}  RU  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  !$(+.147<?BFILORUX]`finsw| !%*/369<?BEJMRUX]`hRX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKORY\aelpu0 JfiΥiώJe΅Хiю@ F $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 > `ʝ"`t  !#%')+;CNU\eh "*-036<BLȎбʑΈ0Ƞ l L> $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ F ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L> ֦ڱΑ0Б֤ l L p,:I`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< F l AL> 8p,:Jf׮@$PA F $P@/A'ʤ˅΄ϥ̤ͅЄ F $é ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx 00 )ߍ:) J,P,QJ,R,S,T,V( > `,k<,: J ʝ88 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*8`AB*0 B8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx (̠`x (̠` [   `L `` ``I FF x (̠%L)07Jehp{"$F`+ (' (i0 (" (! (ȑ``"r.FMTD2 Dr.FMTD3 r.FMTD4 #(-CHMR'>AJQV]`gju` La` Laҥҭ%z8 a aHh` 9ԥ",8`` ` z0 z`Ɠ8`% ` Ɠ8` a a$L HH`& (`! ( Í&č'( `)&'( ׅP w VLxөЭ#iԩѥѢ` w`L "L"L#L%ƓL` ` ѥ#H` wI)jH(ih`$֠L 꽌ɪ8``80^݌Hh [ [݌ m m m \ \ \EEHJНh l m m m`HJН݌h Hh݌` JJJJ F``kpuLi hjI)) Apple Computer, 1983. Disk /// Formatter Driver.gr.FMTD1  [I꽌ɪVɭռYռY$/6;>AHOTW\_bx{'69@IPW]`cfjmpsx} #4:=Z_bpsv{ "%(+.2ADGJx{~5(C#fowz*13579;=?ACFNWaehmpx "'+@\mrv{#&+25FKQT\adgjmry~