`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$Jٚp$ȡܾۤˡ &  BȡO٤ݢܢ`٤ܢ`٤ښܢp٤ܢ٤ܢ٤V dáZ" PASCALSYLIBRARIA ǻN Qr Q0N Qr Q0SYSTEM.WRK.CODEFORT1  FORTLIB.CODE^o6OSYSTEM.LIBRARYgOo SYSTEM.APPLEvgo SYSTEM.PASCALvgiSYSTEM.MISCINFOESYSTEM.CHARSETg枛SYSTEM.STARTUPg蠝SYSTEM.WRK.TEXTǡSYSTEM.WRK.CODE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&٢B""ˡ""Zצ I/O error # P 6ZצLink code file -> PP*צ*SYSTEM.LIBRARYPš3"ˡ#Pצ.CODEUÍVȡڡ  -ܢۤ ܢ ۤ ׷ '(ܢۤ )  ܢ ۤۤ ڡZצCode file length - P =* á ˡ$ R%t,LONGINTIPASCALIOTRANSCENAPPLESTUTURTLEGRTURTLEGR RTUNIT  $P1P1*1צ*SYSTEM.LIBRARYP1á 11ԥ ȡ ר ֳgֳZצNotice? POԡá  Code write error1צ*SYSTEM.LIBRARY1צSYSTEM.LIBRARY%ZצPlease re-initialize systemP)^p&  ( p ^ n Librarian 1.1PZצOutput code file -> P1P1*1צ*SYSTEM.LIBRARYP1á 11ԥ ȡ ר ֳgֳZצNotice? POԡá  Code write error1צ*SYSTEM.LIBRARY1צSYSTEM.LIBRARY%ZצPlease re-initialize systemP)^p&  ( p ^ n Librarian 1.1PZצOutput code file -> P1P1*1צ*SYSTEM.LIBRARYP1á 11ԥ ȡ ר ֳgֳZצNotice? POԡot P ? ֳ ڡxֹ ֳ@@쥀&(*  Zצ"Apple Pascal-Fortran Librarian 1.1PZצOutput code file -> !ZIncompatible byte sexתP ԡZצMSlot # to link and , = for all, ? for select, N(ew file, Q(uit, A(bortPթ=á;ZצCopying all slots...Pȡ ڡ?á|ȡk٤šYZצ Copy slֳ  ˡRڤť4ڤÍ=ګZSlot to link into? תP = š>á#"Z Read error # תP ա Թ9ԥom on diskP~ؤ٤ؤˡؤ4٤ɥ4٤ō4٤4ؤ4٤TؤT٤4٤ !.& h ZצPá ֳ ւ0٤á (ɡ(ZצNot enough room to copy slotPDؤD٤ˡ D٤  ȡˡ'ZצError reading slot P 򥀬ˡ+ZצI/O error - no roInterface read errorתPˡق ٤ ׷ ؤˡZWARNING - Slot תP + already linked. Please reconfirm (y/n) - ZתPڳ š ۡ ZצInterface write errorP ,ō ԶؕDɡEá!ˡá áZInterface errorתP ˡ ZZצLink info read errorPF ˡ"ZCode file overflowתP     ԡZצ bad link infoPۓ3>`&ԡ' !''"" $ "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:IIZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n .LIBLIBRARYoEqs TAKE280.CODEODEEsw LONGCALC.TEXT`o1w} DECONE.CODECODEE} UNIT30.ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  N* عteVG8  )  T 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 צCode file saved62!o.צצ not namedBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ  ġ+@? ??? k '~~5?. ????2   ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*A     4?GER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTEGER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT 26; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTE$ $CONST EXPCONV=126; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4LMANT:INTEGER; 4MANT:0..127; 4EXPT:0..255; 4SGN:0..1; 3END) .END; $ ${6800-990 (IEEE standard on high byte first) compatible $CONST EXPCONV=1{$ } "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; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION $(* 6502 compatible *) $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0?  ??  1?   ?=~ @:?^c>[' ~ ~>?  ȡ!2? 5? ?f  z '~~5?. ????2 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--)hh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH \HHH`.hhhhhhHHLM0`L+L1--)v EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  --)ESS;  EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  DURATION: INTEGER); $ "IMPLEMENTATION  $PROCEDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTERNAL; $ $FUNCTION PADDLE(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION BUTTON(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION KEYPR{$ } $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,?  ??  1?   ?=~ @:?^c>[' ~ ~>?  ; $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 TSǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢcY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  Iif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^ JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8SETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#ihh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡLjB|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# BZOi?޽ CZ(k?7 DZCm?[ EZEn? FZGp? GZTr?  HZ s?yx IZ;t?hн JZLv?D KZNw?F LZ x?Re MZOy?Pp NZ z?g OZ;{?K PZ 4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F? ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &Z ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE> 6تP+,+,ȡ+++V 0 Z Zʎ^ Z) ><0l   ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@ ) )`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh heheٚEȡ *B "Fȡ B GC ˩Í--+Íؓ!á!C ˩ˍf á ɡ3! ܏.09ō! ȡ8ݕ ȍ3! ܏0ەɡC Zۣš ۣۢ@DáD šۢ  ë é ۢǼڡٚ H Cڢڣ_ڣ'ڣ'ڣ#ڣڣɍڢ)ڣ'ڢ'ڣ'0ڣڣġ ڣ(?ڣ@ڢ)ڣ'ڢ'ڣ'ڣ٣@٣@٢)٣'ؿ٢'٣'٢( ٣BآأPآ)أ'أ'ĶÍ%أأġأ(?أ@آ)أ'ˡ آ'أ'أzD'ȡ #ȡ!٢'٢٢(f@٢)ؾ ˄٢)ؾ ˡ2!٢))ؕ٢)ؕ ?٣@)٢)ؕ٢(٢'ؕr A"ȡؿB!^٢٣A٣'ġ ٣(٣A?>;áC!ۣ2ۢ)ۣ'ۣ'čۣۣĄۣۣۣ'ۣ#Ą˄l1آPآ)أˡ0!آآ(>?٣ġ٢) ٢٢##٢P٢)ˡ1:f!۟܄á 0;á * ܢښܩܢܢܢ۫H<ةáٟˡáةˡ ةث/ J=@!/!áצ S#   P#   I#  Z :**** Fortran Runtime Error #X  ****  #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!   TYPE " "FTYPE = FILE;   VAR " "CURFILE: FTYPE; (* 80 BYTES *) "  { 2 } PROCEDURE RTINITIALIZE;   { 3 } PROCEDURE RTFINALIZE;    IMPLEMENTATION E :[.,H v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPOOF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRCe*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXhhhhhhhhHH v # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8heheHHL<  B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p v hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhšݡܑܚr H/}ġA!}ȡ B}=٣ǀ>š4!š4!ɡCE B?9Z٣ǀ>ɡC٢&"٣٣٣'Ä A٢'٣' Bˡ5!٢L[ Iš! ˡaĶzȄ >FKKٳb٫^BáKNZÍ٫!Cٳ10 ق0Kٳث!.Jߞ$b'jȡ$á">EٿEٿiLLˡ%!C ˩Í.áá&!CTF˄t˄f˄'!TtÍɡC] ȡ A}.á ġ#!kEDÍeÍdÍHI+-ÍH-áߑ&09ō$! A0ܓC܍ݡ ġޞ$$ܓɡߑ$ EٿLIˡ!!ةHD ȡ $á)> ȡE ٿ LF˩E˄"!C ˩Í--+Íá C ˩ˍ á ˡI٢á٢N٢٢J ;ˡNHO٣>٢٣) ٢P)٣ˡ0!٣)٣(?٢á٢٢٢'٢(٢٢٢٢ á">EٿR;ˡܢܣń NQRNQ ˡRRQ áܢYܢá'ܣەܣܣ'ܣەܣ'šq;ˡ2;!ޣˡ ޣ(?@ޢ'ٚޢ  ڢáڣ'ڣÄڣ'ڣÄڣ'ڣÄڣ'ڣÄPPP Eڣ'á3ڣ(?ڣ@ڢ'ڣڢ)ڣ'á ڢ'ڣ'ڢ)ڣ'& `QP '' !٫ثJ(ˡ !hɡ8!9!ޣ:!/݆ۏݎġ ޢáOޣޣޣ#Ą  ߫P!á'( 6!;á!˄7!ثء-NáZhثګ٫$>ڢڣ) ڢP)ڣˡ0!ڣڣ(?Pء  = צ šȡ <ؚٚۚPڡƲLأá Iآˡkآ)أ'أ' آ#أ'?أ>آأ) آP)أˡ0!آأNˡIأأÄأ'أ#ńآ#أ'2O;ˡNHOڣ'ˡ$Bš!M'á'B ۡܡ!Iܡ!\ܡ!Zëy$\r%cG "$&(*,.02468:>@BSUH[NPaTmX3\^`bdfhlplٚܡ!é+ˡš(š ,Iܡ!!詀!ܡ!MJ0áȡ !ث詀!ܓ!ȡ MBܓ!ȡ Cȡ Bܓ!٫ܡ!J0ˡ!+áJPˡ!詀ġ!áš!(Mš J0áȡ!JJ0ˡ!٫ȡ!FéEÍ]J.ˡ !J0ˡ !Eá8JEá"J0ˡ !ȡ !ث$áC>ȡ2؏ء݂ ȡE܂޿ȡLAˡ(!ثؕ ȡ C؏ء݂ ȡC܂޿ ȡ܂ $Ho á@!L\ˡIaá>I?L\˩Iڢ ڢڢá>BBLIˡ)!á-32768רJ K0,4??K0-A-' ? ?34??r.ɡ á /~)?)* K ( ? ?N 5+ I@ I@  +4?? &%š&  &'3%$'28(?>!a?85' ? ?š܏áޡ݆* N?ˡXš  ڑڡ š á?8J z64  ɡ$ ؂Ǭ?<#ɡG GGە̀ ڕ̀G۞Gʀڞʀٹ or to continue. áQ "ȍc!آáa!^PCONSOLE:VˡNHOأ>آأ) آP)أˡ0!أأ(?آP ۡ ȡ܂Bjȡ]LAˡ.!ثؕGɡ؏ءۂ ȡ܂Be! á@!L\ˡI2á >IآL\áآIآܹ,!I %?g80+X ȡ &á>BBLLˡ-!GءTBFBJȡ &á@>ȡ/؏ءۂȡ婀˄ BS.Bġ 0B䩀ĩɄSȡ S⩀EBdɡ EBɡ -B+B  0 á敕ȡ 0BȡBȄ ɡF_Gܡ-BȄ0Bš S .Bń0B ȡ S֩Eáةȩō+!ۡ ⩀ 
$ ġ Ă܂ɡڡFߕGܡ-B ġ/ġ@$Š@ߞ$ A!  AFáȡ8 Ȅ0ኖ AۡFá⩀ ń  ɡ*!ȡܕ ܕ ╾BL  A+$ $áD?1$ ⑞$á Fá ⩀1š !á רɡ ؑ 0 áޡ -ܕšF%ܕGȡBa ȡ  &ȡB0B*Sá(>ȡ20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT T42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮  0INTERNAL P !6INTPAC INTNXTBY &:?PINTPACLEBLASTGPPO5 M LLASTGPLET] LASTGPREY PNEWFILE ( READING  2: l  PVAL \|0EJ^ UNITS   E _ f r    * c r | 0INTERNAL P !6INTPAC INTNXTBY &:?PINTPACLEBLASTGPPO5 M LLASTGPLET] LASTGPRE5   % : ? FMTTOK   C a g n FREEUNITM]bf GPCOUNT  P ` o y 3GPBEGIN = 8 D GP2FIELD / GPLEVEL    * c r | t EDW #:TFPDGNU ! $ EDWPRESE 1 =FIELDFOU X'NFMTINTVA J |  FMTP EI/>GL     2 EOFFLAG  X^a|EDCNT - 4 9 y  (EDLET ~v,Sdu3d _ j EDD  AM[ EDE  EDEPRESEak=WCURUNIT / i l  u!=U Lpps}x3>AH;CURFMT ]S@e ;  CURFMTLECURFILE x ~m t #R\g BZFLAG o ,CONSOLEUSy] w &hH CONSOLERL XkqCONSOLEN CONSOLEB.COL ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+. ????2 K?  ????  1?   ?=~@:?^66>[7' ?  ġ+@? ?K????  5'~~5?  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|iT}iU・~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx L0 L0 L0 $ L0޽L;hhHHHH{HzHyHxHwHvHHH`L;ҩLp|~hJJJJ) ޽)~)hhvhwhxhy0LhhhhhhL;h0yhzh{hezzhe{{hh ) 6| 9L* " 6HL;ҭ޽LL;hh HHL;hh L;ҩ|hhhzh{hezzhe{{hh HH{HzH)X  _ 0L0 *L0 -L0 3L0 hhhhL0|hh ) | 9L0 | o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6ֲkW9Z~?bU ~fBU ܉}{Hy0_҇kٚCKW%iӞ?Sݭӕ݇gr#=*e7/ҝ3+߶;&M+Mҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩjggggggg ҹHH` ``LrLLPLLLL(L,LLLLLXLLXLLLLLrLLBL܅hiZhihh ҭHH`l]^@MNP]^@(8LLLLLLLLLLLLLLLLL) emօөmօԥllL֭l/LRѩ`THISISIT THISISIT RSQRR RȭR)[ [Zg lqnps⽭!  LSp% < Ni iSHHHH "1#"! ! ""ˬ##Е8Ɓzȱ{HHHH`HHHH{HzH  < @tu`wvtȩttituveztȱve{tȱvtȱvttituvivwз\R]S[ \l]m]|\ l\m]x RPR </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < Ni iSHHHH "1#"! ! ""ˬ##Е/֠in:@A'&kւ3LuX_XYX ^&_` ^_`RbScbtȱbctb``Z罅[潩`޽t@<8潍罅Z\]b[      ཀྵὥXY\8轥]齭,҅X-҅YLS)ҥXiXYXiXY HHXYX oLnhh)X0 eXXYL;eTteUut8tXutYLSҩHHLMҠXHXHL.飨RHRHLMҠ UѥRe^dSe_e dHdHL;Ҡ UѥRe^dSe_edi deeHdHL;Ҡ UѥN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYeҠX Uѽe^te_utHtHL.ҠX Uѽe^te_uhthtL.ҠX Uѽe^e_HHL.hthuȱtHtHLMhthuhvhwtvȥuvLMȱXȘ tX)XYXHXHXetXYLSȱXt v8vthhhihHhHL;LȱXtetRe^dSe_e hdhdL;èPHPHLMҠ UѥPe^dQe_e dHdHL;Ҡ UѥPe^dQe_edi deeHdHL;Ҡ UѥPe^dQe_e hdhdL;ҠX qѠ Uѥ^ebd_ece dHdHL.ҠX qѠ Uѥ^ebd_ecedi deeHdHL.ҠX qѠ Uѥ^ebd_ece hdhdL.BBBBBBƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETͶ%ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*š  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡU  Íáɡ 럚肚X  šš  ġ킯 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36%ꢫ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$8 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initializedצ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name:(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO !!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU 6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3SȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ۶ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SY$ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH ( (DO 30 CYCLES = 1, 15 ( 0DO 10 PITCH = 30, 50 8CALL NOTE (PITCH, 1) !10 CONTINUE ! ! DO 20 PITCH = 50, 30, -1 8CALL NOTE (PITCH, 1) !20 CONTINN^ǑAPPLE1TSYSTEM.WRK.CODE6 z|zM6 ʪb6 *,,APPLE2:SYSTEM.SWAPDISKAPPLE1:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]APPLE2:SYSTEM.SWAPDISKb<64F>.CODEM.WRK.CODE[*]]ISKԍ֍br r b^br APP`b6 6 ^``Pb6 r  B@"INITFORT .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>UE ! !30 CONTINUE ! (WRITE (*, 40) %* CHAR(15), 'YOU''RE UNDER ARREST, JOE FORTRAN!', CHAR(14) !40 FORMAT (A, A, A) ! (END ( Bˡ5!٢L[ I4{š!z444 ˡaĶzȄ >FKKٳb٫5^BáKNZÍ٫5!Cٳ10533 ق034Kٳث4!.Jšݡܑܚr Hȡ B}m0=٣ǀ>š4!š4!ɡiCE Bi?9~Z٣ǀ>ɡC1٢&"٣٣٣'Ä A٢'٣'ٚEuȡ *B "Fȡ B GC ˩Í--+Íؓ!á!C ˩ˍf á| ɡ3! ܏.09ō! ȡ8ݕ ȍ3! ܏0ەɡC Z0ۣš ۣۢ@DáD šۢ  ë1 é1 ۢǼڡٚ H C0ڢڣ_ڣ'ڣ'ڣ#ڣڣɍڢ)ڣ'ڢ'ڣ'0ڣڣġ 1ڣ(?ڣ@ڢ)ڣ'ڢ'ڣ'ڣ٣@٣@٢)٣'ؿ٢'٣'٢( ٣B0آأPآ)أ'أ'ĶÍ%أأġأ(?أ@آ)أ'ˡ آ'أ'أzD<'m>ȡ=mmm1 ~#ȡ!٢'٢٢(f@0٢)ؾ ˄٢)ؾ ˡ2!٢)})ؕ٢)ؕ ?٣@})٢)ؕ٢(٢'ؕr A<"m>ȡ=mؿmmB!^0٢٣A٣'ġ ٣(٣A?>;00áC!0ۣ2ۢ)ۣ'ۣ'čۣۣĄۣۣۣ'ۣ#Ą˄l10آPآ)أˡ0!آآ(>?0٣ġ٢) ٢٢##٢P٢)ˡ1:f!j۟܄á 0;6á * 666ܢښܩjܢܢܢ۫jH<ةjájjٟˡáة}ˡ ة6ث60/ J=<@!0/!áצ S#   P#   I#  Z :**** Fortran Runtime Error #X  **** A2 ݕɡ2 ߂ݕɡɡەɡD&  !YOU'RE UNDER ARREST, JOE FORTRAN!!  (A, A, A)"6t, MAINSEGX SIREN RTUNIT 4{š!z444(Msš ssJ50á3ȡ!J5t5J50ˡ!٫s3uuȡ!2rtFétEÍ]J5.ˡ !J50ˡ !3wtEá84J5Eá"J50ˡ !3xyxȡ !ث4y٫s4J2r50áv3uuȡ !vث4詁i!ܓ!ȡ MBܓ!iȡ Cȡ Bܓ!٫kܡ!J50ˡ!t+á3k3kJ5Pˡ!詁;ġ!;ár;$Ho <zá@!2Lt\ˡII?2Lt\˩~I1ڢ~~ 11ڢ1ڢ1zá>BBLtIˡ)!á-32768רJ $záC>ȡ2؏ء݂ ȡE܂޿ȡLtAˡ(!vثuuؕ ȡ C؏ء݂u ȡC܂޿u ȡ܂ ߞ$b'jȡ$zá">EٿEٿiLtLˡ%!C ˩uÍ.áuá&!CTF˄t˄f˄1'!TtÍuɡC] ȡ A}.á ġ#!kEDÍeÍdÍuHI+-ÍuH-áߑ&09ō$! A0uܓCu܍ݡ ġޞ$w$ܓkɡߑ$ EٿLtIˡ!!ةuHD ȡ $zá)> ȡE ٿ LtF˩tE˄"!C ˩uÍ--+Íuá C ˩uˍ á| ˡI٢á٢N٢٢J ;00ˡ0NHO٣>٢٣}) ٢P})٣ˡ0!٣)٣(?٢á٢٢٢'٢(٢٢٢٢ zá">EٿR;00ˡ0ܢܣń NQRNQ ˡRRQ áܢYܢá'ܣەܣܣ'ܣەܣ'šq;00ˡ20;!ޣˡ ޣ(?@ޢ'ٚޢ  0ڢáڣ'ڣÄڣ'ڣÄڣ'ڣÄڣ'ڣÄPP0P Eڣ'á3ڣ(?ڣ@ڢ'ڣڢ)ڣ'á ڢ'ڣ'ڢ)ڣ'& `QP 0'0'< 0!٫zث{4J5(ˡ !s|;7n44?@l2khɡ8!09!ޣ:!/݆ۏݎġ ޢáOiޣޣޣ#Ą   ߫0P!á'( 6!;00á!00}˄7!zثiء-0N0}á~Z1hz1ثi<ګ=٫>m$>ڢڣ}) ڢP})ڣˡ0!ڣڣ(?0Pء  0= צ šȡ <ؚٚۚAPڡƲL0أá iIآˡkآ)أ'أ' آ#أ'?أ>آأ}) آP})أˡ0!آأN0ˡIأأÄأ'أ#ńآ#أ'2O;00ˡ0NHOڣ'ˡ$B4{š!z444M'á'B 44ۡܡ!Iܡ!\tܡ!tZë|y$\r%cG "$&(*,.02468:>@BSUH[NPaTmX3\^`bdfhlpl;7;ٚn;4ܡ!;ér+?nˡn?7@l7;š(7;7;n;4;š ;;2,Il;?47;@n;?ܡ!!詁i!ܡ!M רɡ ؑ 0 áޡ -ܕušF%uܕGȡBa ȡ  &ȡB0B*Szá(>ȡBL  A+$ $áD?1$ ⑞$á tFá ⩁kw1kš w!káwkwŭ42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT TK0,4??K0-A-' ? ?34??r.ɡ á /~)?)* K ( ? ?N 5+ I@ I@  +4?? &%š&  &'3%$'28(?>!a?85' ? ?š܏áޡ݆* N?ˡXš  ڑڡ š á?8J z64  ɡ$ ؂Ǭ?<#ɡG GGە̀ ڕ̀G۞Gʀڞʀٹ or to continue. áQ "ȍc!آáa!^APz0j6CONSOLE:j}~<Vjˡj00NHOأ>آأ}) آP})أˡ0!أأ(?آPj ۡ ȡ܂Bjȡ]LtAˡ.!vثuuؕGuɡu؏ءۂ ȡ܂Be! <zá@!2Lt\ˡI<20zá >Iآ2Lt\áآIآܹ,!I %?g80+X ȡ &zá>BBLtLˡ-!uGءTBFBJȡ &zá@>ȡ/؏ءۂkȡ婁k˄ BS.Bkġ 0B䩁kĩkwɄSwkȡ S⩁yEBdɡ EBxxɡ -B+B  0 áx敕ȡ 0BȡBȄ ɡF_Gܡ-BwȄ0Bš S .Bwń0B ȡ S֩tEáةkwȩkwō+!ۡ ⩁k y
x$ux ġu wkĂ܂ɡڡFߕGܡ-B wkġ/ġ@$Š@ߞ$ A!  AtFáȡ8 Ȅ0ኖ AۡtFá⩁k ń uw ɡ*!ȡܕ ܕ w?  ġ+@? ?K????  5'~~5?. ????2 K?  ????  1?   ?=~@:?^66>[7' 42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT TK0,4??K0-A-' ? ?34??r.ɡ á / errors. Smallest available space = 4356 words. ICAL FUNCTION 5,22 NOTE SUBROUTINE 8,22 PADDLE INTEGER FUNCTION 2,22 RANDOI SUBROUTINE 7,22 RANDOM INTEGER FUNCTION 6,22 SIREN PROGRAM TTLOUT SUBROUTINE 4,22 21 lines. 0 20. 161 END CHAR INTRINSIC CYCLES INTEGER 4 NOTE SUBROUTINE 8,22 PITCH INTEGER 6 SIREN PROGRAM BUTTON LOGICAL FUNCTION 3,22 KEYPRE LOG 50 20 CONTINUE 13. 68 14. 68 30 CONTINUE 15. 80 16. 80 WRITE (*, 40) 17. 80 * CHAR(15), 'YOU''RE UNDER ARREST, JOE FORTRAN!', CHAR(14) 18. 161 40 FORMAT (A, A, A) 19. 161 DO 10 PITCH = 30, 50 7. 16 CALL NOTE (PITCH, 1) 8. 21 10 CONTINUE 9. 33 10. 33 DO 20 PITCH = 50, 30, -1 11. 45 CALL NOTE (PITCH, 1) 12. FORTRAN Compiler II.1 [1.1] 0. 0 $ USES APPLESTUFF 1. 0 PROGRAM SIREN 2. 0 INTEGER CYCLES, PITCH 3. 0 4. 0 DO 30 CYCLES = 1, 15 5. 8 6. 8 /X .~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+?  ġ+@? ?K????  5'~~5?. ????2 K?  ????  1?   ?=~@:?^66>[7' / . 26 MAINSEGX SIREN RTUNIT /X .~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+CURFILE  0$ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH (DO 30 CYCLES = 1, 15 0DO 10 PITCH = 30, 50 ( 3CALL NOTE (50, 1)  10 CONTINUE ( (DO 20 PITCH = 50, 30, -1 0CALL NOTE (PITCH, 1)  20 CONTINUE  30 CONTINUE  (WRITE (*N^55, 40) %* CHAR(15), 'YOU''RE UNDER ARREST , JOE FORTRAN!', CHAR(14)  40 FORMAT (A, A, A)  (END ( $ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH (DO 30 CYCLES = 1, 15 0DO 10 PITCH = 30, 50 ( 3CALL NOTE (50, 1)  10 CONTINUE ( (DO 20 PITCH = 50, 30, -1 0CALL NOTE (PITCH, 1)  20 CONTINUE  30 CONTINUE  (WRITE (*N^55, 40) $* CHAR(15), 'YOU''RE UNDER ARREST , JOE FORTRAN!', CHAR(14)  40 FORMAT (A, A, A)  (END ( $ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH (DO 30 CYCLES = 1, 15 0DO 10 PITCH = 30, 50 ( 3CALL NOTE (50, 1)  10 CONTINUE ( (DO 20 PITCH = 50, 30, -1 0CALL NOTE (PITCH, 1)  20 CONTINUE  30 CONTINUE  (WRITE (*N^55, 40) %* CHAR(15), 'YOU"RE UNDER ARREST , JOE FORTRAN!', CHAR(14)  40 FORMAT (A, A, A)  (END ( $ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH (DO 30 CYCLES = 1, 15 0DO 10 PITCH = 30, 50 ( 3CALL NOTE (50, 1)  10 CONTINUE ( (DO 20 PITCH = 50, 30, -1 0CALL NOTE (PITCH, 1)  20 CONTINUE  30 CONTINUE  (WRITE (*N^55, 40) %* CHAR(15), 'YOU"RE UNDER ARREST , JOE FORTRAN!', CHAR(14)  40 FORMAT (A, A, A)  (END ( 50 20 CONTINUE 13. 68 14. 68 30 CONTINUE 15. 80 16. 80 WRITE (*, 40) 17. 80 * CHAR(15), 'YOU''RE UNDER ARREST, JOE FORTRAN!', CHAR(14) 18. 161 40 FORMAT (A, A, A) 19. 161 DO 10 PITCH = 30, 50 7. 16 CALL NOTE (PITCH, 1) 8. 21 10 CONTINUE 9. 33 10. 33 DO 20 PITCH = 50, 30, -1 11. 45 CALL NOTE (PITCH, 1) 12. FORTRAN Compiler II.1 [1.1] 0. 0 $ USES APPLESTUFF 1. 0 PROGRAM SIREN 2. 0 INTEGER CYCLES, PITCH 3. 0 4. 0 DO 30 CYCLES = 1, 15 5. 8 6. 8 6 MAINSEGX SIREN RTUNIT , 40) %* CHAR(15), 'YOU"RE UNDER ARREST , JOE FORTRAN!', CHAR(14)  40 FORMAT (A, A, A)  (END ( $ USES APPLESTUFF (PROGRAM SIREN (INTEGER CYCLES, PITCH (DO 30 CYCLES = 1, 15 0DO 10 PITCH = 30, 50 ( 3CALL NOTE (50, 1)  10 CONTINUE ( (DO 20 PITCH = 50, 30, -1 0CALL NOTE (PITCH, 1)  20 CONTINUE  30 CONTINUE  (WRITE (*N^55 20. 161 END CHAR INTRINSIC CYCLES INTEGER 4 NOTE SUBROUTINE 8,22 PITCH INTEGER 6 SIREN PROGRAM BUTTON LOGICAL FUNCTION 3,22 KEYPRE LOGICAL FUNCTION 5,22 NOTE SUBROUTINE 8,22 PADDLE INTEGER FUNCTION 2,22 RANDOI SUBROUTINE 7,22 RANDOM INTEGER FUNCTION 6,22 SIREN PROGRAM TTLOUT SUBROUTINE 4,22 21 lines. 0ٚEuȡ *B "Fȡ B GC ˩Í--+Íؓ!á!C ˩ˍf á| ɡ3! ܏.09ō! ȡ8ݕ ȍ3! ܏0ەɡC Z0ۣš ۣۢ@DáD šۢ  ë1 é1 ۢǼڡٚ H C0ڢڣ_ڣ'ڣ'ڣ#ڣڣɍڢ)ڣ'ڢ'ڣ'0ڣڣġ 1ڣ(?ڣ@ڢ)ڣ'ڢ'ڣ'ڣ٣@٣@٢)٣'ؿ٢'٣'٢( ٣B0آأPآ)أ'أ'ĶÍ%أأġأ(?أ@آ)أ'ˡ آ'أ'أzD<'m>ȡ=mmm1 ~#ȡ!٢'٢٢(f@0٢)ؾ ˄٢)ؾ ˡ2!٢)})ؕ٢)ؕ ?٣@})٢)ؕ٢(٢'ؕr A<"m>ȡ=mؿmmB!^0٢٣A٣'ġ ٣(٣A?>;00áC!0ۣ2ۢ)ۣ'ۣ'čۣۣĄۣۣۣ'ۣ#Ą˄l10آPآ)أˡ0!آآ(>?0٣ġ٢) ٢٢##٢P٢)ˡ1:f!j۟܄á 0;6á * 666ܢښܩjܢܢܢ۫jH<ةjájjٟˡáة}ˡ ة6ث60/ J=<@!0/!áצ S#   P#   I#  Z :**** Fortran Runtime Error #X  **** A2 2ݕɡ2 ߂ݕɡɡەɡD&  "YOU"RE UNDER ARREST , JOE FORTRAN!"  (A, A, A)"6t, MAINSEGX SIREN RTUNIT CURFILE  0 errors. Smallest available space = 4356 words. šݡܑܚr Hȡ B}m0=٣ǀ>š4!š4!ɡiCE Bi?9~Z٣ǀ>ɡC1٢&"٣٣٣'Ä A٢'٣' Bˡ5!٢L[ I4{š!z444 ˡaĶzȄ >FKKٳb٫5^BáKNZÍ٫5!Cٳ10533 ق034Kٳث4!.Jߞ$b'jȡ$zá">EٿEٿiLtLˡ%!C ˩uÍ.áuá&!CTF˄t˄f˄1'!TtÍuɡC] ȡ A}.á ġ#!kEDÍeÍdÍuHI+-ÍuH-áߑ&09ō$! A0uܓCu܍ݡ ġޞ$w$ܓkɡߑ$ EٿLtIˡ!!ةuHD ȡ $zá)> ȡE ٿ LtF˩tE˄"!C ˩uÍ--+Íuá C ˩uˍ á| ˡI٢á٢N٢٢J ;00ˡ0NHO٣>٢٣}) ٢P})٣ˡ0!٣)٣(?٢á٢٢٢'٢(٢٢٢٢ zá">EٿR;00ˡ0ܢܣń NQRNQ ˡRRQ áܢYܢá'ܣەܣܣ'ܣەܣ'šq;00ˡ20;!ޣˡ ޣ(?@ޢ'ٚޢ  0ڢáڣ'ڣÄڣ'ڣÄڣ'ڣÄڣ'ڣÄPP0P Eڣ'á3ڣ(?ڣ@ڢ'ڣڢ)ڣ'á ڢ'ڣ'ڢ)ڣ'& `QP 0'0'< 0!٫zث{4J5(ˡ !s|;7n44?@l2khɡ8!09!ޣ:!/݆ۏݎġ ޢáOiޣޣޣ#Ą   ߫0P!á'( 6!;00á!00}˄7!zثiء-0N0}á~Z1hz1ثi<ګ=٫>m$>ڢڣ}) ڢP})ڣˡ0!ڣڣ(?0Pء  0= צ šȡ <ؚٚۚAPڡƲL0أá iIآˡkآ)أ'أ' آ#أ'?أ>آأ}) آP})أˡ0!آأN0ˡIأأÄأ'أ#ńآ#أ'2O;00ˡ0NHOڣ'ˡ$B4{š!z444M'á'B 44ۡܡ!Iܡ!\tܡ!tZë|y$\r%cG "$&(*,.02468:>@BSUH[NPaTmX3\^`bdfhlpl;7;ٚn;4ܡ!;ér+?nˡn?7@l7;š(7;7;n;4;š ;;2,Il;?47;@n;?ܡ!!詁i!ܡ!Ms4J2r50áv3uuȡ !vث4詁i!ܓ!ȡ MBܓ!iȡ Cȡ Bܓ!٫kܡ!J50ˡ!t+á3k3kJ5Pˡ!詁;ġ!;ár;4{š!z444(Msš ssJ50á3ȡ!J5t5J50ˡ!٫s3uuȡ!2rtFétEÍ]J5.ˡ !J50ˡ !3wtEá84J5Eá"J50ˡ !3xyxȡ !ث4y$záC>ȡ2؏ء݂ ȡE܂޿ȡLtAˡ(!vثuuؕ ȡ C؏ء݂u ȡC܂޿u ȡ܂ $Ho <zá@!2Lt\ˡII?2Lt\˩~I1ڢ~~ 11ڢ1ڢ1zá>BBLtIˡ)!á-32768רJ K0,4??K0-A-' ? ?34??r.ɡ á /~)?)* K ( ? ?N 5+ I@ I@  +4?? &%š&  &'3%$'28(?>!a?85' ? ?š܏áޡ݆* N?ˡXš  ڑڡ š á?8J z64  ɡ$ ؂Ǭ?<#ɡG GGە̀ ڕ̀G۞Gʀڞʀٹ or to continue. áQ "ȍc!آáa!^APz0j6CONSOLE:j}~<Vjˡj00NHOأ>آأ}) آP})أˡ0!أأ(?آPj ۡ ȡ܂Bjȡ]LtAˡ.!vثuuؕGuɡu؏ءۂ ȡ܂Be! <zá@!2Lt\ˡI<20zá >Iآ2Lt\áآIآܹ,!I %?g80+X ȡ &zá>BBLtLˡ-!uGءTBFBJȡ &zá@>ȡ/؏ءۂkȡ婁k˄ BS.Bkġ 0B䩁kĩkwɄSwkȡ S⩁yEBdɡ EBxxɡ -B+B  0 áx敕ȡ 0BȡBȄ ɡF_Gܡ-BwȄ0Bš S .Bwń0B ȡ S֩tEáةkwȩkwō+!ۡ ⩁k y
x$ux ġu wkĂ܂ɡڡFߕGܡ-B wkġ/ġ@$Š@ߞ$ A!  AtFáȡ8 Ȅ0ኖ AۡtFá⩁k ń uw ɡ*!ȡܕ ܕ w╾BL  A+$ $áD?1$ ⑞$á tFá ⩁kw1kš w!káwkw רɡ ؑ 0 áޡ -ܕušF%uܕGȡBa ȡ  &ȡB0B*Szá(>ȡ20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT T42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?EٿLtIˡ!!ةuHD ȡ $zá)> ȡE ٿ LtF˩tE˄"!C ˩uÍ--+Íuá C ˩uˍ á| ˡI٢á٢N٢٢J ;00ˡ0NHO٣>٢٣}) ٢P})٣ˡ0!٣)٣(?٢á٢٢٢'٢(٢٢٢٢ zá">EٿR;00ˡ0ܢܣń NQRNQ ˡRRQ áܢYܢá'ܣەܣܣ'ܣەܣ'šq;00ˡ20;!ޣˡ ޣ(?@ޢ'ٚޢ  0ڢáڣ'ڣÄڣ'ڣÄڣ'ڣÄڣ'ڣÄPP0P Eڣ'á3ڣ(?ڣ@ڢ'ڣڢ)ڣ'á ڢ'ڣ'ڢ)ڣ'& `QP 0'0'< 0!٫zث{4J5(ˡ !s|;7n44?@l2khɡ8!09!ޣ:!/݆ۏݎġ ޢáOiޣޣޣ#Ą   ߫0P!á'( 6!;00á!00}˄7!zثiء-0N0}á~Z1hz1ثi<ګ=٫>m$>ڢڣ}) ڢP})ڣˡ0!ڣڣ(?0Pء  0= צ šȡ <ؚٚۚAPڡ/X .~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+. ????2 K?  ????  1?   ?=~@:?^66>[7' ?  ġ+@? ?K????  5'~~5? A}.á ġ#!kEDÍeÍdÍuHI+-ÍuH-áߑ&09ō$! A0uܓCu܍ݡ ġޞ$w$ܓkɡߑ$ ߞ$b'jȡ$zá">EٿEٿiLtLˡ%!C ˩uÍ.áuá&!CTF˄t˄f˄1'!TtÍuɡC] ȡ٭ &%š&  &'3%$'28(?>!a?85' ? ?š܏áޡ݆* N?ˡXš  ڑڡ š á?8J z64  ɡ$ ؂Ǭ?<#ɡG GGە̀ ڕ̀G۞Gʀڞʀٹ or to continue. áQ "ȍc!آáa!^APz0j6CONSOLE:j}~<Vjˡj00NHOأ>آأ}) آP})أˡ0!أأ(?آPj ۡ ȡ܂Bjȡ]LtAˡ.!vثuuؕGuɡu؏ءۂ ȡ܂Be! <zá@!2Lt\ˡI<20zá >Iآ2Lt\áآIآܹ,!I %?g80+X ȡ &zá>BBLtLˡ-!uGءTBFBJȡ &zá@>ȡ/؏ءۂkȡ婁k˄ BS.Bkġ 0B䩁kĩkwɄSwkȡ S⩁yEBdɡ EBxxɡ -B+B  0 áx敕ȡ 0BȡBȄ ɡF_Gܡ-BwȄ0Bš S .Bwń0B ȡ S֩tEáةkwȩkwō+!ۡ ⩁k y
x$ux ġu wkĂ܂ɡڡFߕGܡ-B wkġ/ġ@$Š@ߞ$ A!  AtFáȡ8 Ȅ0ኖ AۡtFá⩁k ń uw ɡ*!ȡܕ ܕ w╾BL  A+$ $áD?1$ ⑞$á tFá ⩁kw1kš w!káwkw רɡ ؑ 0 áޡ -ܕušF%uܕGȡBa ȡ  &ȡB0B*Szá(>ȡ$Ho <zá@!2Lt\ˡII?2Lt\˩~I1ڢ~~ 11ڢ1ڢ1zá>BBLtIˡ)!á-32768רJ $záC>ȡ2؏ء݂ ȡE܂޿ȡLtAˡ(!vثuuؕ ȡ C؏ء݂u ȡC܂޿u ȡ܂ ~)?)* K ( ? ?N 5+ I@ I@  +4??K0,4??K0-A-' ? ?34??r.ɡ á //X $~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+. ????2 K?  ????  1?   ?=~@:?^66>[7' ?  ġ+@? ?K????  5'~~5?42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT T