`L  i=L\ƭ x ? 4 N )i -  ˭҅?/ȱ 4 llꭉ?iȱi 4 lMUST BOOT FROM SLOT 6NO FILE SYST HގH Hx PRȥQRRvȱRwv8vwv8vRwv RL}XiXYXiXY HHXYX oLnhh)X0 eXXYLeeTteUut8tXutYL}HHLwXHXHLX飨RHRHLw URe^dSe_e dHdHLeFɧɧߑߑjݥ"ɥ֬ߑߑߑߑߑߑߑ\-LX_XYX ^&_` ^_`RbScbtȱbctb``Z玅[掩`ގt,($       idގߎкȫؖةNAp|EhLZUk֫ÜLFp+ӥܛimunO2ߝםϝד۝ӝ˝p :Tי آ\.&ǒ*"2$˘PwߑߑTwӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒBBBBBBBBBBBBBBBBt(z):Where are the L.TEXT]iLEGENDS.TEXT]LINKTEST.CODEBOZOorEoMB.TEXT@]LEGENDS.TEXT^oBEETHOVEN.SONGl MUSIC.FONTEe KATAKANA.FONTeLONERANGER.SONGCALCULATOR.TEXTIMMEDIATE.TEXT] MATCH.TEXT@] HELLO.TEXT@] PRLEGEND.GRAFW LEGENDSMAP.GRAFrE^o LAFBIRD!.GRAF^o LAFBIRD!.FOTO^o FLOOBIES.SONG^o PRODUCTS.GRAF^o LAFBIRD.SONG^oBIGLETTER.FONTo LEGENDS.GRAF^o APPLE.GRAFE^o ASCII.FONTVLESSON1 RT0006.APPLE^o0 SYSTEM.PASCAL0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPo硄 MAXWELL.FONTgFLOOBIES!.GRAFoFLOOBIES!.FOTOo$ p,&"Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0(EM.APPLE RT0005.APPLE -   L$J) (jJJ>L` "?Is  `  ` x Nx / .x- `V0^*^*>` aI꽌ɪVɭ&Y&& URe^dSe_edi deeHdHLe URe^dSe_e hdhdLeèPHPHLw UPe^dQe_e dHdHLe UPe^dQe_edi deeHdHLe UPe^dQe_e hdhdLeX q U^ebd_ece dHdHLXX q U^ebd_ecedi deeHdHLXX q U^ebd_ece hdhdLXX Ue^te_utHtHLXX Ue^te_uhthtLXX Ue^e_HHLXhthuȱtHtHLwhthuhvhwtvȥuvLwȱXȘ tX)XYXHXHXetXYL}ȱX hhhivȥ]vv\w]VW8\Z][LǑlXx |ƄRSLZȱȱńRRL}Xx ~~~~L}Xx P~Qȑ~L}XxX HXY |0 L;Xx QHPH ~P~ȱP~~Pꎥ}|=0 8|8|}8||ȥ}|DHCHlL}?|8|}8z|~{||LǑ~8|~~8 ~P~ ~i jik|Lhj ~|it}iu8ttXutY|iT}iU~R쎥S펥~8vw\0 ՟L ̟LllL4L:/ L 韰8L t~ hI=+ ՟L t~I= ~ ̟LȄHHLehh tuLɠhhVtWu\z]{XiXYt8xtut8xtu8tt|ut0LLh)thh)htL lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLwhHHLw%lHHLwhhh |~hve| z~~8|eztl8冨Lן 0 8`hh t~ hL   UF_f^L UhvhwhthuXY^LFtvtuvw_LLL~hvhwv~WvXwhthutYtZutvv ȱtvtv %l HHLeHHLehtExx0tEtttxjtz) wzf{jv8vtwxyyHxHxyyHxHxu9xy9yyHxHxyt yHxHHviHLwHHLwHHL?? lXLӞL[L eƄLe8傅ń 8冪8冪ƂLehh&eȹ|ȹ})3f|)uf}|jjj)?tłetu9 fHHLwfHHLw @hhHHHHhzh{h|h}}L{)L8z|~{}L{|) u|f}e|Ȅ~ Ȅtl |8|e| h9 0 ~ʚLw || hI9~ʚLw |0| h~ʚLwztzx{yxtezʥ|x}y~xF|}H|HLwX hh&ńLe0exH{HzHezHHLXh|h}hzh{hxhyx~ȱx|80~~ iff~z ~=~=H~HLwhthuh|h}hzh{z vw|80tuutvwwvi &t&u&v&whxhyx~ȱxvI%~t~wI%u~xȥxLwhhh |hYL}hhhihjhkXi&jhȑjLehhjL>hjLeL瑺tutLLw Uhe^xhe_yxHxHLe Uhe^he_HHLehh U_ ^&LǙ^_ hexheHxHLeXXz{HH L&hexheH*ŇĆ 内&&&*ŇĆ 内ⅉ $ 8包HHLw HHLw(LLfLvhthuhvhwxyEw0wy)xv!y0uEy0yutxyLwLXYXXYYHXHLXYYHXHXXYeXXwhI8}hI}Lw & ee녌`HHhhd 8劅dhhEdd刅剅 d8匨HHLwHHLwhdhehh 8内劅LϑhhE8包卅&*ņ􅈆&eHdH`&&X&XeYei捠8XYL}XiXYL} hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LǑLe hthuZtȥ[tLehthutZȱt[掩Lel8Lwh}h}LwhIihIiHHLhHhHLeȱXtetetjktL3hjhjhhLehthuhettheuuHtHLwhhhthuhettheuutLwhhhihjhk ULhthuhh%uH%tHLwhthuhhuHtHLwhhIHIHLwXXhhQX0XōiX`0\XE0XLXŌC?8XQL} RhPhQL$ RR8tSut\ȱt]X i RHLERtȱRuVt tVuWRTȱRURXȱRYRRR쎆SL}L}8|}`|ȱ|L棠8||tȥ}|utetȱtet|8|}Ƅ`t et >HHBtCu\8t\]u]H\H8Z][LǑuHtHAH@H `  `\^]_t et@$A8\B\]C]\8]`8\] z8Ƒ |5|8|}8\|ȥ]|8|ƌ8حTRWPDŽ 1 - )8H<8HF J 8 и \`x y z { (@ Leq`8Hh`HHH0Ll) [,cjA[ituvivwзRS\][ Hx \]RPRRSQRR RȭR)@[@[Zg lqnpsL}VU>)Q>jj`ގ SYSTEM.PASCALة ގގ0HH`HHHHHH NiLli8Ɓzȱ{HH`HHHH{HzH @tu`wvtȩttituveztȱve{tȱvtȱvtt ޭ0Lt ̭ͭ| ގLexL|8 z~#0ĄLezz{xyLet Lz z{xгyLe~(8 Ǝ L`` ᯩ ` `ܯގ`ܯHۯHlܯHۯHl>LۑLehh ޭHHLehh ޭLehh ޭ0 LsHHHH Ls Ls Ls ގLehhhhhhLeHH{HzHyHxHwHvH| ގLe ގLeL|~h)~)hhvhwhxhy0Lh0yhzh{hezzhe{{hhHHLeHHHHL㑀? ABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~vӑ!  `ގhhLeߎHގHLeގ4IiIi&lhyhxhwhv 櫢 mvHwHxHyHLw 櫢 mLw8uhhL㑪0 vwx`Fvfwfxx wvLztvIvwIiwv`t ? svHwHLet ? svHwHLehh' HHu8u{8euPhhLi򅁩Fvfwfxe~e}e|ffffإ L0 Ш `t ?z ?u{ HHHHLw mLwt ?u HHHHLwtzu{v|w}x~y mLw^LwILwhhhht ) mLw O mLwt ?z ?uz mLw{tItt mLwtEzz ) mLw I O mLwt ?z ?uLϑ{ HHHHLwtEz{8u i  iL㑅 8y~x}w|v |}~8&&&&Fvfwfxfy Ш mLwtEzvfwfxfyyyF|f}f~f` yexe~we}ve| Ш ` 8y~x}w|v ` Ш `u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t ?z ?uz mLw{t mLwtEzXЀ_ʱhjkiL ^L(hjLe8RZS[JHjHLehhhhh*68jh*vlhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvȱwvLÑv8vwv8vwv xvиtȱutХL} ULeXiXYLӑhthuhvhwtvȑtvLehe^hie_ije^jke_k_ik ʱhjL^LħhjLeh^h_ hhhhhhhhLehjhkhejjhekkhhhihehhheii_ ʑjkL^LjLehhh|h}he||he}}hhhhh^eh_e^Ii^Ii_|ň.Lx'|}0 |}Lg|8|}Lg|8優}HHLehxhhhTT8tUut8tXȥuYxT VL}RSLȱ ƍLPQ |l|8|}8||ȥ}||8|}| iiLa 8ƑzL` 8` ^\_]`hh HLehh LeX rLqhhh^h_hhhhLehjhkhejjhekk P]M^N@P]^@H))hILO  Ll { նLl,LѲhhh(`N`hhhhhhHH)?` ˲ {H h` ` ` Ȣ`JJJJ ϱ` ˲,p ` ˲H h ɢ` 2 ˲0` ˲)` Ԣ `  ˲J` ˲ MȽ`_<8 0 L 8 0 e`800jjjá4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.""""" RTSYSIO.CODE @hLPASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD LLLL`LͳL+L/LL~L9LLX`L˲L˲LLLRp _bbb8`' ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪&VE&]V]H)]V])]T])]' 8$hU>`FG8`0($ p,&" `Hh`&&Q꽌ɪɖ'*&%&,E' 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴.m">?( ر-Lx -($8` ~h H5@@h@ N@`8'`0|&HhHh VY'&Y`ꪽ'  Ͱ()I يJ @JJJ5F؅G(  ڽ ]( F YG t XjPP0 Y .@85 @@Hh@H H`5@ ]h ]Ls@(LKLIH/h/ (-ͥmi)ͥ--9J 8J II `FNȌ``hhh )hJjJJhhihhhJiظhR LF8  ۸'e 8 Ǥ HH``P@h H Y t tP```e(`e8``````J) ) je`PPPP+*@S&@'8*3I@i@&&8  ڽ' ڽ& ڽ@)*++`3) 0Υ ˲Lg0iiЯH ghi` g0 i` e*0 j) @Ii` Lﶩ@ 0``L޵ IL,PL ,Q`) K #H"H`cccccζcԶcOccc cc%;cHcQҵbW]H & &e)e eeh `))? $PA[I&E$p $pP!pA0 i` ˲H g)hi H gGRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$á4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$. HNT0 Ȅ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤˡ ߢ`ޤ7 Vˡ)~~ת́ ˡ"ˡƁ  Ɓ ƁƁ ́ ʁ ȡAƁʁ ƀʁ ƀʁ lʁ ʁ ́ ~~ _  ۢڤޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤˡ ߢ`ޤ7 Vˡ)צ(C) 1979 U.C. Regents   ,,@.Ptn   z  CONSOLE:ת( צSYSTERM:(*SYSTEM.SWAPDISKת(z צ*SYSTEM.CHARSETP**/́L1ʁL:*N     Welcome to Apple PILOTצ(C) 1980 Apple Computer Inc.צ(C) 1979 MicroPi צREMIN REMOUT U     z  CONSOLE:ת( צSYSTERM:(*SY٤ ~ ȡؤۦתۢÍ ȄqۢÍa؞&"áX P۶ ضá<۪ צ*SYSTEM.STARTUP(~ צCONSOLE SYSTERM צGRAPHIC PRINTERʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢʁݢʁݢʁʁݢʁݢʁݢʁݢnʁn تٞ&"á  d'*SYSTEM.MISCINFOתPצתPƀƀʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O ƀ&́ʁܢʁʁܢʁܢ%́ݲn nnʁݢ٤SYSIO 30Ƅz٤̄ʄʄƃ٤ʄʄ؂     ٢ š٢ ٢٢ 4$ n/ nl ȡpZؤòZؤÍRzؤۢ0٤ؤܢlZؤáܢ ܢx  ڄ(٤ SYSTEM.LIBRARYׯC٤ ƃڄ"GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$á4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$~~ת́ ˡ"ˡƁ  Ɓ ƁƁ ́ ʁ ȡAƁʁ ƀʁ ƀʁ lʁ ʁ ́ ~~ _   צSYSTEM FAILURE NUMBER  . %PLEASE REPORT FAILURE TO YOUR DEALER.zˡ.$  š @  !!&ˡ  ȡ2 š:X fȡ*!צ$ ,&&ֲX $>0 qS\ ńȄ4šáRתPńȄ ,ń.áš蕿@šQ *áá000áQP 0á0 é000+-Í-ë009ȄX 000á'%á 009Ȅ0+ dá1á%   Q l>š 쾿  .Tá " h ɡ 逫-á-32768ת Pġ>00ń0ˡ ɡ` Mȡš ȡ뾿  +áYšPá+ ɡ _" ġ   fj <% Oš *š  4T  +Uz   ,áʈƅ ~~擥 ~ 抦|ɥ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 named $ "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' "''"""©RIGHT (C) 1980 APPLE COMPUTER INC.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 FRECSIZE < 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 ,ȡ!2? 5? ?f  z '~~5?. ????2 ?  ??  1?   ?=~ @:?^=>[' ~ ~>?    ġ+@? ??? k '~~5?. ????2   ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*A     4?צ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTP "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 E ꥂNWá$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN 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); ?  ??  1?   ?=~ @:?^=>[' ~ ~>?  $ $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,DURATIIif 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 hL8D ٚ  & @4` - G`` 8`*UH)JJh & & f)4#ibl    '    4 تP+,+,ȡ+ ++ V 0  آآآǿآآǿآآSǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: 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); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZ $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRhh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH HHH`.hhhhhhHHLM0`L+L1ON: INTEGER); $ "IMPLEMENTATION E  .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓń Ȅޓޓ! ܲݤߓÍߡ`ݤW ˡ!  č ܓܡߢ ܓצߢޢ!ޢ 8 0 ٤ Íܡ~  , Ąܓ"á  ܡ:"$.GRAFׯצ.FOTOO < ڤáޢܡ ޢޢÄȄĄMȄt߷iȡFۤ ōɍ ō ȍ  d5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFOުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*á ݲצ:22ȡáݲ 2á!2ȡ5252š[22š2222ȡ2šH(VAR FVID:VID; LOOKHARD:BOOLEAN; VAR FDIR:DIRP): UNITNUM; " "PROCEDURE INSENTRY(VAR FENTRY:DIRENTRY; FINX:DIRRANGE; FDIR:DIRP); " "PROCEDURE DELENTRY(FINX:DIRRANGE; FDIR:DIRP); " "FUNCTION FETCHDIR(FUNIT:UNITNUM):BOOLEAN; " "PROCEDURE WRITEDIR(FUNIT:UNITNUM; FDIR:DIRP); "  IMPLEMENTATION E ORDS:INTEGER); " "PROCEDURE FRESET(VAR F:FIB); " "PROCEDURE FOPEN(VAR F:FIB; VAR FTITLE:STRING; FOPENOLD:BOOLEAN; JUNK:FIBP); " "PROCEDURE FCLOSE(VAR F:FIB; FTYPE:CLOSETYPE); " "FUNCTION VOLSEARCH(VAR FVID:VID; LOOKHARD:BOOLEAN; VAR FDIR:DIRP): UNITNUM; " "PROCEDURE INSENTRY(VAR FENTRY:DIRENTRY; FINX:DIRRANGE; FDIR:DIRP); " "PROCEDURE DELENTRY(FINX:DIRRANGE; FDIR:DIRP); " "FUNCTION FETCHDIR(FUNIT:UNITNUM):BOOLEAN; " "PROCEDURE WRITEDIR(FUN  "PROCEDURE FINIT(VAR F:FIB; WINDOW:WINDOWP; RECWORDS:INTEGER); " "PROCEDURE FRESET(VAR F:FIB); " "PROCEDURE FOPEN(VAR F:FIB; VAR FTITLE:STRING; FOPENOLD:BOOLEAN; JUNK:FIBP); " "PROCEDURE FCLOSE(VAR F:FIB; FTYPE:CLOSETYPE); " "FUNCTION VOLSEARCOF=2  > | R  * ( BEGIN " SAVECOLO 8e*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )LdI1Ld)QLd        xhXhhhhhhhhHH x # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0heheheHHL<  B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p xhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8 hhhL.+ rhh he,ߓ$ ޓ "ߓۄ, ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ  <:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> "GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$تP š+ +0تPRš+R+PP0RšزRPزPR,@vP.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$ #PROCEDURE SETCHAIN(TYTLE:STRING); #PROCEDURE SETCVAL(VAL:STRING); #PROCEDURE GETCVAL(VAR VAL:STRING); #  IMPLEMENTATION E 444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! šá٢. n b@T&˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ # n ١ á9 ٓ/! !!١ˡ) ! 䚹 9U?2ń ١á  ޤ uš  gá  Ä+ޤ  ɡáޤ  Pצ   ١    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟۢۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ȡ? ȡ  ġ  á ġMáš6 ܂ۻݪ d ( ۢۢۢۢٚÍۢáۢɡ ۟<"< """<<<"""< <>"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80,   ( ?ɡr áٓٶš&>ق؂ٕؕ ń)ɡ @ߊ @ފ @ ނ  ák zȡńńǿɄɡݡ  šńōč<hh=Tצ.GRAFY"áhf f ؂\v  š ݡ-܂܂ɍ܂ō ܑ܂ń routines)(Invalid variable name)aצ(Invalid execute instruction)8EAX0f? sO+ " ~._gJá𩄸@Paצ@MF@A+ȡZš㩀ȡ㩀ġ á8c}(bf  &,`ny subroutines)(Invalid variable name)aצ(Invalid execute instruction)8EAX0f? sO+ " ~._gJá𩄸@Paצ@MF@A+nation)צ(Invalid link destination)צ(Invalid modifier/condition)צ(Invalid instruction code)צ(Too many arrays or strings)צ(Invalid syntax or format)צ(Invalid expression type)(Too mas)(Invalid compute instruction)צ(Diskette read error)(Invalid expression)(File input/output error)צ(Invalid graphic instruction)(Invalid function argument)צ(Invalid jump desti=" ١f< ^'gJášgצ-error gצ(Arithmetic error)צ(Value out of boundp#5:ת*צ,**SSPSSSSSצ.TEXTXS*צת HELLO.TEXT& " á_LESSON: =Q==Q.TEXTVQO~h =תQ dP' 0T**׷""" " " "pPILOT:RTSYS.LIBRARY'L\ N  ) PILOT INITIALIGXSTUFF GRAFSTUFDOLITTLEDOMAINST    @ނP f f á  áɡ ˡ f f   ɡ ˡ    عڸ ٸ ɡ  ɡF'hh="ëfũFS ⩅fšث⥄5⚥ϩߩfQߩ Fháh=hyh="ëFf ثg Qߥ==࿦:ץ==áF==Q.DATAVQ:ץ=á==TQXhf⩄áF(  pCš ȡǿpCǿšǿٳ@س*@6 0pCšš ۶ɡۚ ȡǿpCǿšǿš ڶɡښ ȡ˶ˍ#= ׃H hhצ*SYSTEM.CHARSET"áh㥅hT=ׯfh==T.FONTYQh="áh㥅h\|ǿL :OVXr%hn H2 ޫޫޫޫ  ;˩Ʉ     ǿ;˩Ʉ&,á  ܕڕ 3CX,] Ei "M&*_ɡ ;ˡGꩅ'éÄޡ ɡߩÍ á š  ޫޫޫޫ  ;˩Ʉ    צ EXCOMTPQDRVáG쩄ǹ𩀄ëǩ;˩Ʉ   ǀީ ɡ   ߩÍ á ,álǀߩ0Ä1ީ ō  ީáޭ4",á޳>ޭ&ީީ ޭ,áޕޭ   ɡ  ǿثg  Ρ,͓1ˍSϩ޹7ëS ǩٕëǹɡB2 ع2HC>9 4 / * %  9630-*'$!X=תQh=צ  h 2(:  +qkg ;  خ á           HšHɡ=؞=ؿצ!=ˡehh!!!=T!.FOTOY! "áhͿwٮoٮi    ˡ   +qkg ;  خ á     㩅ȡhfhh="ëDϩߥ5੅ũF š ɡ੅f࿥Qߩff hf⩄áF b h  , ==㿩カå,==Tצ.CODEYQ*==Tצ.TEXTYQ="˫LQپǹšץ׼$ץ׼ռȥQپEÄQپ-ë̥Qپ+é̍ȡ2Qپ ǂ̡ٕץ׼$ץ׼$׼ li~d ؂QپQپǹšAťQ.ÄťQ-Ä Qپȩ..á^׼GPץ׼ ANJي1ռ4ńץ׼݀?եռ   ڂXšRەȡQ؂Q؂ȡQ؂Q؂ٮق 1W XšR㩄ȡ Qi㾿)^ݕȡ 0 ȡ \Ȅ ȡ!. ȡ ܕȡ 0 V . ȡ E ɡ- ݀ݩ٩  ٩  G\p2cϼݥ ݑ$ ϼ6Ń  A  Aȡ4 ۊ۩ق  A0áĩɄܩȄšݹɡݹȡ9. ռ׼ ع*70)" 2-(#ڊ ߩ߫ ׼XšR  - 0 ॄ ϼ  ݞ$)ϼ@ XȡE䩅3ˡT٥ꩅإH ׮ ծ    ō4  ǩˡǩɡB  \ ɡS䩅1á& ռ׼ߩ,ëͩ͡)ˡSέF ġE䩅1ꩅؚ,POȡRPPPP2 áE䩅3ꩅؚٚ6ȡE䩅1ˡTإꩅثg h2áThhh㥃1ϩd@ Ρ,1˩͓Sϩ޹7ëS ǂٕëǹɡB2 (ëΩΡ.ޫɡ١ڕɡ9$tf l 2glHšHɡ=؞=ؿ=40, ( $  $&*(&$"~Z$R6  fffffݕɡšݕݕۆšܑڏġ*ڕ܂š šɡšvfffɡ ɡ١ڕɡ9$tf l 2glHšHɡ=؞=ؿ=40, ( $  $&*(&$"~Zfffffffݕɡšݕݕۆšܑڏġ*ڕ܂š šɡšvfffɡ ٩=.<,áZL HšHɡ=ߞ=߿hh  =T צ.SONGY "áhfh"áf 쩅fXšRߩ߫⩄ȡ Q⥄i᾿ᩄ׮ 7 t׮ ׼ ׼׼<׮ Q׼*  ծ ռۊۥռռȡWȡ"Q۩ゾQکゾˡܡ۩ ׼eV  ռ׼ռcռR׼׼A<׼׼ռ&; T!OPġROOؤO("ȡD ==ɡM\%=תQD=̽.EW& 0 "BW:$2 áU D Γ͓3ˍXϩߥ5ޥQߥޞޫP ފD;੄੄ޮ[3áϩ5:ϩdá"OPġROOϩOϩ˹EhV|ɡɡtǹ1ފRLF@:4Qǿ㕫⩄㩄˹Ρ Ρ쩄͓㫄ܮܫ㩄Ρ͓ޥ㾫Ʃ1áB2áKϩॄ⥄5ᩄߩĩީčB੄ߩᏂނIϩ੄ɡީɩߩނ5ōB੄߭@dP~ǩ:éčˡA (á% šS˹"á/"ˡ㕫⩄㩄˹.^㩄.Eá+é-ÍIMׯ !^|b"z "$&(*,.0246>@-HNPwTSAZbjlnprtvxzšٮڂé˫έS& QÿXġRšENTׯ EYׯ ENׯ  OGׯ  NáOTׯ h؂RáfDLׯ NDׯ GNׯ :INׯ &QRׯ TRׯ ' "$&(*,.KF˹gBSׯ 8NDׯ g&SCׯ TNׯ TNׯ HRׯ OSׯ XPׯ IXׯ LOׯ NSׯ Źc˹h؂ˡ g؂؂8˓7ڹĩáǝũá6f>á=á=áǞ˹Ĺ#VOHA:AY2+&  ؚ!cáSˡؚ šS-Xh&خخخťĥĿ˥˄׮ ׮ ׼šɡ׮ ׮ ׼ōEǀ?],V" trljhYH'xig$'cÄ׮ ׼׮ ׼׮ ׼ ׼׼?X׮ ׼ծ ռ?GGռ㥄 Q㾊㥄 ⊮׮ ׼šɡͼռ׼A׮ ׼׮ ׼׮ ߩޮ׮ ׼׮ ׼׼A׮ ׼׮ ׼׼A׮ ׼׼A׮ ׼׼ռdš㩄d⩄٩Ȅd㩄 ׼ռ ׼ռ      ׼ռ ռ׼ ռ׼ ٩ɡ!ɡ <̃  ġf=Pɡ[==Q RQ==ǿ٩šکɡ2å=ń%á =%á٩ɡå=Ä" ۡ  QXqSZ$&éÄ ⩄  򩄽$=áǹ=ǥ= é(⩄ÄXBDjHJLNn򩄸PáMáš ˡ(á" ׼:ˡMTˡ³O¹_*# -}PéXÍFá (EB~xrlféٕZ1YR "$ "$b(`,.`2^68:~>ȡ0ááDJ *ám2ɡ\ɩéɄC ġۤ⩄ީš⫄ޥ5ۤޚᩄȡ(Q㥁Q߾ߩ㩄}ۤɡق5ۤōBکȡ>á ǹQ߾ǩߩޥQکǿM> -  ΓV͓@ɡVΡۤ͡dáۮ"=ˡC۾3ɡo׮ áۤ׼Mۤ㥄ۤ⥄5ۤک٩č۾2ˍBکᏂق׼ߥޮ ágۤ㥄,/á)ꩄ%áMá$ΩńǀɄ ǀ?C=ˡCAá׮ ׼Bá[ߥޮ PšP㩄ȡ(iQ߾ߩiMá׮ ׼C ΓV͓㫄ΓSAɡ\ɩōBX~šR3ϩ~ߚ5~߂~l͓ީߩީߩޏPOšR2ϩOߚ5ޚOߩޏO˩$˄+򩀄 Γ͓ ˩Ʉ⫀é+3á&ϩߥ5ީߩނ޹+ץϩ~ߩނީ߫㩄ȡQ+𩅞š +"$@(*᥄5ᩄ wJ)á| ȶōSš!šš== ø=צQ==ؿ+ =צQɡëǩ#⥄5ᩀɡCáQ⥁QUá1⫄੄ȡQुQ/áëë⫄ߩ⫄੄ȡHQྩˡQߥQ྿߹/ˡQߩƿߩثɡ &<ޫ ϩߥ54'< [ޫߩ2š2ߩ,ˡSšީߩɩ;˄Sš^ z( VϩɩÄ!i⾫⫄ᩄ쩄ťi.Äᩄťi-Äᩄëؤ׼Q -0# ɡaEåSÄ+;éÍ  ᥄iᩄéᫀ #ɡ#˩$˄V ΓV͓@ɡV"ؾ3ácؤ⩄⩄š⥄5ؤ⚥ؤᩄȡ Qߥi᾿ߩᩄ⩄iǿE$ ǩ ⥄iǿǩˡǩéPō$i=i &i@áצSYSXSî #iiGOTOׯigotoׯe㥄i áᩄ㫄⩄ȡ$y t,p f' Z' N&J(F u,8n Bo6xr B | < N|,v04Nh, ^ "8##t&'j'''(R((()))Z -68:~><š f< < >fǩǩéō<<fǭ@کf á<<ˡ<*á< ̌,#+,#+~#++#++#+,#+,#+#++#++#+4< 4 (4;44'4;4N4;B4`4<<<<<<|~>>> LLll|p`@```@ppppx||x#3 800`@PXXXxpGg?00p@>  `@?>>>p```@@`@@```@bflXxpp`  ??????s3333333`@ 000000p@ X^p`x`@~p|`p8xx@0 @8<0@ p```````0p8xp0xxx0 `@ppppqs~| 800ppx8xP ;v X$Jx4T.Nr&ھܡQ%á"ˡ ǹ ھةá ǩ*˩&˄ǥiؾˡ ݡھǩ&é!Íکčܡ&ˡ ۩ġکɡھ!ˡ/ Ω̈́3ˍh@ "   éÍ  hhɡ N ھܡQ%á"ˡ ǹ ھةá ǩ*˩&˄ǥiؾˡ ݡھǩ&é!Íکčܡ&ˡ ۩ġکɡھ!ˡޭ @áS@:(AP  8DWΡ$+ ɡ á9 ëǩسΩΓ ؿëǿëǩ$á 㩄hȡ  ͭ+ šڥQ ( Qؿ۩ íȡ0ġ å ˡء6㩃ȡ έ,u   í*dzš fق fقǩš f؂قǩá f fǩ:á:ˡ< "AZȄ `š! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  ܎@`U*U*U*U*u|p`*U*}pU*U*U*U*W*U*U*U  !РW*~?U*W*U*pU*x  ! Հ֎^*U*U*U*pĂ>p+U*U*U*Uj`+}@Wxpxiq xpx0xpx`W*U*U*Uj^*U*U*Uj0xxxp0hVp*Ѐ`+U*U*Uz?` ppx0pp֎W*U*U*U*Ѐ`܎?U*U*U*UzЊp*^ _*U*U*Uj\*U*U*U*}~`?x*U*U*U*u ЀގЊ@W*U*U*U*=~<pU~ܞxW*U*U*UՀpjx0 |*U*U*UjРx*U*U*U*U  p\*U*U*U*U>x1 Հ~x*U*U*U*U*@+U?|U! !@x*U*U*Ujp@?p+U*U*U*U>Т@ܚр^*U*U*U*Uz`+U*U*UzЀ`xU*U*Uxx?U*U~X`~p/8U*U*U*U*uqa0 pqqyp`pa@/U*U*U*UzР@gܚp`qqV*U*U*U*Uj?U*U*U:pppxppy|<>U*U*Uz`p\p\~|*>U*U~?U*U I ! ! .U*U*U*Uj@*U*}  W*U*U*U*U*ЪЀxW*U*U  !р||p/U*U*Ujx?pl<\*}/U*/Uzp/Uq p!q !pxx|pU*U*U*U*u _$B#G#?#6#,## #########$ $$$$$*$2$7$###|#u#D#`SLeaL oLf LDrLeaLmsL}<XLi<YLiZLaaLrbLń! pՎ*E@p*ǏժժժՂժՂC*ժժѪժժՀxn@#ժՊ@(ЪԪ֪Վ~ժpժG*`ߪgƟ#$#$#$#$#$#$#$# $#"$#"$#"$$##<# <<# <%D#$D#%D#D##D#(<'<#"<#D#'D+D#1D,D#0D+D#/D0D#0D2D#2D3D#3D$#$#$#$#$#$ $# $3$#5$5<#2<#0<+$#+$$D#$D8<#2<#)<#"<####C#,<#'<*<#'<#'<(<#&<########## #!# ########### ###################### ##  ##7#3#,#&#;#B>#B!#### # # # #####"#""#"2;)C/4C/4C/4C,C,## ######################## # _&#1#8#;#7#1#*#%%#+#3#7#9#7#2#+#'#"&###$#$#"# #!### ####################%3;+2;*:#<#@=#==#A=#@#?>#<á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɡáޤ  PתU`pժժ`gG*Պ`)Ъժ`?*ϏժժՂԪՂ~ժx@'Պժ`ժCުպ~G*ԪժժժժՂ`sC*Ղժժp)Ԫժp?*ԪՂЪՀ|p`'Պժ`ժժܪx xO*ԪժժՀժժՂ@}վQ*ժЪժժޣޣ      !!! (((%   !!! ***',,*( ,,*( ,,*(%<"< """<<<"""< <>"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80,<:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> " ,+ ,###### # +#+3#3;#; #  #  ,# , #  4# 4 #  #  ,# , #  4# 4 Ä+ޤ  ɡáޤ  Pʋ _+# # # ##,# # # # ###$$ #!$$#4$!$##4$4$####!$$#$#$##+ +  ,+ ,á9 ٓ/! !!١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣ/$62$65$5:$6=$8C$;J$?O$AR$BU$BV$@W$=U$AR$AL$@H$<C$8B$6B$4D$3G$2N$3S$5W$9[$@`$Gg$Pm$Yp$]h$Sc$M^$F[$@Y$;Y$7[$4`$4f$6k$9p$<v$>|$A$B$B$?$:$6|$2y$2v$3t$6s$8q$; n ١ #9#=#B#E#G#D#?#:#6#1#,#&# ######## #"#%#(#+#/#2#6$: $>$B$E$G $H $H$G$E$B#>#:#6$4$3$4 $7$;$>$A"$C&$E%$A"$=$9$6$3!$:'$?*$A.$D1$D1$B1$?/$=.$9 _z1#3#5#7#9#;#?#C#G#K#Q#V#Z#]#`#`#`#_#]#Z#W#S#N#H#@#9#4#3#2#3#6#:#=#A#F#I#K#K#J#H#E#@#;#7#4#4#6#9#<#?#B#D#E#G#F#A#>#:#7#4#2#3#5((UU((((((((Q(((((((PPPPPPP P (((( UPPUUP( P(((((((PPPPPPP((((((((PPP@(((((((PPPP( UU(( U@@UdX@0!p#@@@`,t:Apple PILOT: Calculator t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:To use the calculator, just type in :any valid mathematical expression, :according to the rules of Apple PILOT. t: t:If your formula contains an equal(^BB ?> ***> >> >*>""""<>  >  **> >  >" 8>>$>>> > > >**  " 0*$<> ***> >> >*>""""<>  >  **> >  >" 8>>$>>> > > >**  ">""""> ""> $  8  > > > >""""> ""> $>>> > > **>( >   "">>>>$$$$>>>  "$<<> >> & " >8$>  $"" ""  >>" >""8 >"""" <""s :sign (=), the variable on the left of :the equals sign will be set to the :value of the expression on the right. t: t:If your formula does not contain an :equals sign, the expression will be :evaluated immediately. t: t:To exit the calculator, type CTRL-C. t: pr: d:z9$(80) r:CALCULATOR *calc s:50,10 a:$z9$ j(z9$=""):@a m:= cn:z9$="z9="!!z9$ c:z9$="c:"!!z9$ xi:z9$ te:...does not compute se:2,20 je:@a tn:...the answer is #z9 j:calc t:Apple PILOT: Match t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:This sample program allows you to  :try various options of the PILOT t: t: M: (match) instruction.  t:  t:When you see the ">" prompt, type :the m(^BB "*BEGIN"): pr:e d:z9$(80) j:begin r:CALCULATOR *sysx s:50,10 a:$z9$ e(z9$=""): m:= cn:z9$="z9="!!z9$ c:z9$="c:"!!z9$ xi:z9$ te:...does not compute se:2,20 je:@a tn:...the answer is #z9 j:sysx *BEGIN ax:$z9$  xi:z9$  te:...does not compute j:begin t: t:To exit the calculator, type RETURN. t: t:To quit, type E: or CTRL-C.  t: r:To use the calculator as a "SYSX" :subroutine in another PILOT lesson, :just copy the following lines into :the beginning of your lesson (up to :and including the labelt:To use the calculator, type "@". t: t:The calculator will evaluate and :print the value of any valid :mathematical expression. To assign :the value to a variable, simply begin :the expression with the variable name, :followed by an equals sign (=).t:Apple PILOT: Immediate t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:This sample program allows you to  :execute PILOT instructions :immediately. It may be used to :explore the various features of :Apple PILOT.  t: (^BBatch instruction exactly as it :should appear when it is executed. t: t:After this, you will see a "?" :prompt. Your input will then be :tested according to the previous :match instruction, and the result :(yes or no) will be displayed. t: t:To enter a new match instruction, :just press the carriage return. t: t:To exit the program, type CTRL-C. t:  d:m$(80)  d:a$(80) *match th:> s:38,10;50,10 ax:$m$ j(m$=""):match j(m$(1)<>"m"):match xi:m$ je:match t: *input th:? s:50,10 ax:$a$ j(a$=""):match x(^BB! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  uLm (La fLt eLr )L צ   ١  n ١ á9 ٓ/! !!١ˡ) 3  3  ,3,,3,,3,+&L,+&L,+&L,`3P+`TPLroLduLctL MLapL6Z4@4 G sLu gLa rL cLa nLe 9 @L aLl uLm iLn _$B#G#?#6#,## #########$ $$$$$*$2$7$###|#u#D#`SLeaL oLf LDrLeaLmsL}<XLi<YLiZLaaLrbL64;-44;44;4*4""):start j3:human t1: t1:Sorry, I didn't quite car:LEGENDS: (C) 1980 Apple Computer Inc. : pr:lw d:n$(20) g:v;es;c1;m0,0;d0,511;d559,511;d559,0 :;d0,0;v1,38,7,22 r:(color border) s:50,10;50,10;50,10 r:(sound effect) gx:legends r:(title drawing) tx:maxwell r:(special character set) t:DAW t:EB t:FC t: S. A symbol stands for :something else. For example, the :"&" symbol shows where Floobies are :found. u:cont g:es t:Looking at the legend in the upper :right hand corner, $n$ , what would :you say the blue circles on the map :represent? t: a: t: ms:water!h2o!lake!sea!ocean!river tn:No, a blue circle stands for water, :such as a lake or a sea. wn:2 tn: tn:Notice the blue circle in the legend. ty:Very good. A blue circle stands :for water, such as a lake or a sea. w:3 *laf t: t:What symbol standst(z):Where are the Laf birds found? tc:(Hint: the legend symbol is "<") jc:ap1 t:Where are Floobies found? t:(Hint: the legend symbol is "&") j:ap2 *aok s:32,10;36,10;39,10;44,10 t: t:I think you've got it, $n$ ! u:cont *end g:v;es t: t: t:This lesson,grown. j:prompt *zone2 t(%x<135 and %y<355): tc:That's where aluminum is found. jc:prompt t(%x>135 and %x<225 and %y>355): tc:No, that's where the Laf birds are. jc:prompt t:Sorry, that's not the right area. *prompt t: t t(%x<70 or %x>280 or %y<150 or %y>435): tc:You're not even on the map! jc:prompt t(%y<250): tc:That's where Floobies are found. jc:prompt j(%y>305):zone2 *zone1 t(%x>180): tc:That's where the oranges are grown. jc:prompt t: t:That's where sugar cane is 10;44,10 t: t:Great! Now, $N$ , where are the :Floobies? *ap2 ap: c:z=0 j(%x>50 and %x<350 and %y>150 and :%y<250):aok r: check for wrong places *rongpl t(%x>360 and %y>200): tc:No, that's in the legend area. tc:Please point it out on the map. jc:promp:on one of the paddles to point it out. u:cont g:es t: t:Where are Laf birds found? *ap1 ap: r:(z tells which problem we're on) c:z=1 r:(check if paddles are in range) j(%x>135 and %x<225 and %y>355 and :%y<435):okbird j:rongpl *okbird s:32,10;36,10;39,an :point it out on the map, using the :Apple's built-in game paddles. u:cont g:es t:To select your answer, just move the :crosshairs (the thin crossed lines) :across the map by turning the knobs :on the game paddles. Push the button tn: jn:notag t:Excellent! *notag3 t:Zaarb's non-agricultural exports :are aluminum and laf birds. u:cont *grafix j(btn(0) and btn(1)):end g:es th:Let's try something new, $n$ . w:2 t:I'll ask you about one of Zaarb's :products on the legend, and you cal products. t: wn:3 *notag t:Now, $n$ , name an export :that isn't an agricultural product. a: t: ms:orange!sugar!cane jy3:notag3 ty:That's an agricultural export. ty: jy:notag ms:%alumi!metal mn:laf!bird jn3:notag3 tn:That's not a product. Try again. ty:That's a product, but it is not :part of a plant, so it's not an :agricultural product. Try again. jy:agri ms:orange!sugar!cane jn3:agri3 tn:Sorry, that's not a product. jn:agri th:OK! *agri3 t:Actually, both oranges and sugar :cane are agricultur t:No, that's the "<" symbol. j:alum m:* t:Sorry. Try again, $n$ . j:alum *alum3 t:It stands for aluminum. w:2 *agri t: t:Name one of Zaarb's agricultural :products that's shown on the map. a: t: ms:%alumi!metal mn:laf!bird jy3:agri3 Zaarb exports :oranges, sugar cane, aluminum and t:(of course) Laf birds. w:3 u:cont g:es *alum t:What does the "@" symbol stand for? a: t: ms:%alumi!metal thy:Right. jy:alum3 j3:alum3 mj:floob t:No, that would be a "&". Try again. j:alum mj:laf!birds for Laf Birds? j:@a m:* t:Look at the legend in the upper :right corner, $n$ , and try again. j:laf *laf3 t:It's a "less than" sign (<). w:3 u:cont g:es t:The map legend also gives us more :information about Zaarb's products. t:Of the products shown, mj:>!great!right!arrow t:Almost right. What symbol looks :like that but points the other way? j:@a mj:amper *laf1 t:No, that's the symbol for Floobies. t:What's the one for Laf Birds? j:@a mj:@!%at t:No, that's the one for Aluminum. t:What symbol stand for laf birds? a: t: m:""):start j3:human t1: t1:Sorry, I didn't quite car:LEGENDS: (C) 1980 Apple Computer Inc. : pr:lw d:n$(20) g:v;es;c1;m0,0;d0,511;d559,511;d559,0 :;d0,0;v1,38,7,22 r:(color border) s:50,10;50,10;50,10 r:(sound effect) gx:legends r:(title drawing) tx:maxwell r:(special character set) t:DAW t:EB t:FC t: (^BB t: t: t: t: t: t: t: s:44,20;0,30;39,10;38,10;39,10;40,30 s:0,10;39,30 t: That's all, folks! s:0,20;43,20;0,30;44,20 w:5 e: d", you say? t: s:50,10;50,10;50,10 w:1 th:Press the space bar to find out... as: gx:lafbird! g:v22,39,0,23 t:Laf birds are t: t:raised in the t: t:northwest of t: t:Zaarb for export. t: w:2 t: t:Their worldwide t: t:popularity stems t: t:from the fact t: t:that people feel t: t:happy when Laf t: t:birds are around. t: t: sx:lafbird th:Press the space bar to continue. as: g:es t: t: t:Remember the "&" t: t:symbol on the map? t: t: w:1 t: t:A legend would t: t:also tell you t: t:that the symbol t: t:"&" :on one of the paddles to point it out. u:cont g:es t: t:Where are Laf birds found? *ap1 ap: r:(z tells which problem we're on) c:z=1 r:(check if paddles are in range) j(%x>135 and %x<225 and %y>355 and :%y<435):okbird j:rongpl *okbird s:32,10;36,10;39,an :point it out on the map, using the :Apple's built-in game paddles. u:cont g:es t:To select your answer, just move the :crosshairs (the thin crossed lines) :across the map by turning the knobs :on the game paddles. Push the button tn: jn:notag t:Excellent! *notag3 t:Zaarb's non-agricultural exports :are aluminum and laf birds. u:cont *grafix j(btn(0) and btn(1)):end g:es th:Let's try something new, $n$ . w:2 t:I'll ask you about one of Zaarb's :products on the legend, and you cal products. t: wn:3 *notag t:Now, $n$ , name an export :that isn't an agricultural product. a: t: ms:orange!sugar!cane jy3:notag3 ty:That's an agricultural export. ty: jy:notag ms:%alumi!metal mn:laf!bird jn3:notag3 tn:That's not a product. Try again. ty:That's a product, but it is not :part of a plant, so it's not an :agricultural product. Try again. jy:agri ms:orange!sugar!cane jn3:agri3 tn:Sorry, that's not a product. jn:agri th:OK! *agri3 t:Actually, both oranges and sugar :cane are agricultur t:No, that's the "<" symbol. j:alum m:* t:Sorry. Try again, $n$ . j:alum *alum3 t:It stands for aluminum. w:2 *agri t: t:Name one of Zaarb's agricultural :products that's shown on the map. a: t: ms:%alumi!metal mn:laf!bird jy3:agri3 Zaarb exports :oranges, sugar cane, aluminum and t:(of course) Laf birds. w:3 u:cont g:es *alum t:What does the "@" symbol stand for? a: t: ms:%alumi!metal thy:Right. jy:alum3 j3:alum3 mj:floob t:No, that would be a "&". Try again. j:alum mj:laf!birds for Laf Birds? j:@a m:* t:Look at the legend in the upper :right corner, $n$ , and try again. j:laf *laf3 t:It's a "less than" sign (<). w:3 u:cont g:es t:The map legend also gives us more :information about Zaarb's products. t:Of the products shown, mj:>!great!right!arrow t:Almost right. What symbol looks :like that but points the other way? j:@a mj:amper *laf1 t:No, that's the symbol for Floobies. t:What's the one for Laf Birds? j:@a mj:@!%at t:No, that's the one for Aluminum. t:What symbol stand for laf birds? a: t: m:50 and %x<350 and %y>150 and :%y<250):aok r: check for wrong places *rongpl t(%x>360 and %y>200): tc:No, that's in the legend area. tc:Please point it out on the map. jc:prompt t(%x<70 or %x>280 or %y<150 or %y>435): tc:You're not even on the map! jc:prompt t(%y<250): tc:That's where Floobies are found. jc:prompt j(%y>305):zone2 *zone1 t(%x>180): tc:That's where the oranges are grown. jc:prompt t: t:That's where sugar cane is tch that. s:10,50 r:(low note) w:1 t: t:Please type just your first name. t: th:What's your name? j:@a r:(try it again) *cont r:(pause subroutine) t: th:Press the space bar to continue... as: e: *human c:n$="human" r:(default name for bozos) *start c:/r:(picture of maxwell) tx: r:(back to standard character set) g:v1,38,11,22 t:Hi. I'm Maxwell. t: th:What's your name? s:50,10 a:$n$ m:#!$!/! !1!2!3!4!5!6!7!8!9!0 r:(test for illegal characters) jn(n$<>""):start j3:human t1: t1:Sorry, I didn't quite car:LEGENDS: (C) 1980 Apple Computer Inc. : pr:lw d:n$(20) g:v;es;c1;m0,0;d0,511;d559,511;d559,0 :;d0,0;v1,38,7,22 r:(color border) s:50,10;50,10;50,10 r:(sound effect) gx:legends r:(title drawing) tx:maxwell r:(special character set) t:DAW t:EB t:FC t: (^BB t: t: t: t: t: t: t: s:44,20;0,30;39,10;38,10;39,10;40,30 s:0,10;39,30 t: That's all, folks! s:0,20;43,20;0,30;44,20 w:5 e: r r:(custom picture character set) g:es t: t: t: t: 23 23 23 23 23 23 t: 45 45 45 45 45 45 t: t: 23 ABEFIJMNQRUVYZ 23 t: 45 CDGHKLOPSTWX01 45 t: t: 23 23 23 23 23 23 t: 45 45 45 45 45 45 tx: along with all the others t: t: t: on this diskette, was created using t: t: t: the Apple PILOT Author system. t: t: t: t: t: t: s:50,10;50,10;50,10 w:3 t: t: We hope you enjoyed it t: t: t: as much as we did. w:3 tx:biglettet(z):Where are the Laf birds found? tc:(Hint: the legend symbol is "<") jc:ap1 t:Where are Floobies found? t:(Hint: the legend symbol is "&") j:ap2 *aok s:32,10;36,10;39,10;44,10 t: t:I think you've got it, $n$ ! u:cont *end g:v;es t: t: t:This lesson,grown. j:prompt *zone2 t(%x<135 and %y<355): tc:That's where aluminum is found. jc:prompt t(%x>135 and %x<225 and %y>355): tc:No, that's where the Laf birds are. jc:prompt t:Sorry, that's not the right area. *prompt t: n$ /"/ /'/ /,/ /./ /?/ c r:(edit student's name) g:es t:Hi, $n$ ! s:32,10;44,10;56,10 t: t:Do you know what a LEGEND is? t: a: m:%ye!may!%per!think!%try!cert!%bet :!abso!posit!sure!right!of&%co jn:no m:. !, !; !: !- r:(more than one phrase?) jy:scan t: t:Ok, $n$ . What is it? t: a: r:(get another answer) *no mj:%no!n't%!nt% t: t:Well, let's find out, shall we? t: a: j:map *scan mj:stor!tale!tell!myth!exag!fab t: t:Well, that's very true, $n$ , :but the word LEGEND has another :important meaning: t, sugar cane, aluminum and t:(of course) Laf birds. w:3 u:cont g:es *alum t:What does the "@" symbol stand for? a: t: ms:%alumi!metal thy:Right. jy:alum3 j3:alum3 mj:floob t:No, that would be a "&". Try again. j:alum mj:laf!bird t:No, that's the "<" s:* t:Look at the legend in the upper :right corner, $n$ , and try again. j:laf *laf3 t:It's a "less than" sign (<). w:3 u:cont g:es t:The map legend also gives us more :information about Zaarb's products. t:Of the products shown, Zaarb exports :orangest:Almost right. What symbol looks :like that but points the other way? j:@a mj:amper *laf1 t:No, that's the symbol for Floobies. t:What's the one for Laf Birds? j:@a mj:@!%at t:No, that's the one for Aluminum. t:What symbol stands for Laf Birds? j:@a mr laf birds? a: t: m:!great!right!arrow s:water!h2o!lake!sea!ocean!river tn:No, a blue circle stands for water, :such as a lake or a sea. wn:2 tn: tn:Notice the blue dot in the legend. ty:Very good. A blue circle stands :for water, such as a lake or a sea. w:3 *laf t: t:What symbol stands foS. A symbol stands for :something else. For example, the :"&" symbol shows where Floobies are :found. u:cont g:es t:Looking at the legend in the upper :right hand corner, $n$ , what would :you say the blue circles on the map :represent? t: a: t: mt: t:occasionally have t: t:been caught on the t: t:Spur o'the Moment. t: t: sx:floobies th:Press the space bar to continue. as: *prod g:v;es;v0,39,17,23 gx:prlegend t:The signs, marks and patterns that :you see on the map and on the legend :are SYMBOLshows where t: t:Floobies live. t: t: t: w:3 th:Press the space bar to continue. as: gx:floobies! g:es t:Floobies are a t: t:type of sea life t: t:found in the t: t:Sea of Dreams. t: w:2 t: t:They are usually t: t:trapped in Webs of t: t:Imagination, but t: t:that people feel t: t:happy when Laf t: t:birds are around. t: t: sx:lafbird th:Press the space bar to continue. as: g:es t: t: t:Remember the "&" t: t:symbol on the map? t: t: w:1 t: t:A legend would t: t:also tell you t: t:that the symbol t: t:"&" d", you say? t: s:50,10;50,10;50,10 w:1 th:Press the space bar to find out... as: gx:lafbird! g:v22,39,0,23 t:Laf birds are t: t:raised in the t: t:northwest of t: t:Zaarb for export. t: w:2 t: t:Their worldwide t: t:popularity stems t: t:from the fact:LEGEND is used to explain, or :"unlock" a map. t: w:1 t:In fact, a legend is also called a :KEY. gx:products g:es t:Without a legend, for example, :you couldn't tell that the symbol "<" t:shows us where Laf birds are found. t: w:3 t:What's a "Laf birg:v;es gx:map g:v0,39,17,23 t: t:This is a map of an imaginary :country called Zaarb. In this :lesson, we will discover some :interesting facts about this country :by studying its map. w:3 u:cont g:es t: t:Just as a key unlocks a door, a must've been studying this stuff. t: w:2 t:Well, let's take a look at the :lesson anyway. Ok, $n$ ? t: a: j:map m:* t: t:Well, I haven't heard of that one, :but this lesson is about MAP legends. w:2 t: t:Let's take a look at it, shall we? t: a: *map : w:2 t:a legend also explains how to read a :map or chart. That's what we'll look :at in this lesson. Maybe we can share :some tall tales some other time. t: th:Ok? a: j:map mj:map!char!sym!exp!gra!sym t: t:Yes, that's right! s:32,20;44,20 t: t:You ymbol. j:alum m:* t:Sorry. Try again, $n$ . j:alum *alum3 t:It stands for aluminum. w:2 *agri t: t:Name one of Zaarb's agricultural :products that's shown on the map. a: t: ms:%alumi!metal mn:laf!bird jy3:agri3 ty:That's a product, but it is not :part of a plant, so it's not an :agricultural product. Try again. jy:agri ms:orange!sugar!cane jn3:agri3 tn:Sorry, that's not a product. jn:agri th:OK! *agri3 t:Actually, both oranges and sugar :cane are agricultural products. t: wn:3 *notag t:Now, (^BB That's all, folks! s:0,20;43,20;0,30;44,20 w:5 e: 3 t: 45 45 45 45 45 45 t: t: 23 ABEFIJMNQRUVYZ 23 t: 45 CDGHKLOPSTWX01 45 t: t: 23 23 23 23 23 23 t: 45 45 45 45 45 45 tx: t: t: t: t: t: t: t: s:44,20;0,30;39,10;38,10;39,10;40,30 s:0,10;39,30 t: t: the Apple PILOT Author system. t: t: t: t: t: t: s:50,10;50,10;50,10 w:3 t: t: We hope you enjoyed it t: t: t: as much as we did. w:3 tx:bigletter r:(custom picture character set) g:es t: t: t: t: 23 23 23 23 23 2t:Where are Floobies found? t:(Hint: the legend symbol is "&") j:ap2 *aok s:32,10;36,10;39,10;44,10 t: t:I think you've got it, $n$ ! u:cont *end g:v;es t: t: t:This lesson, along with all the others t: t: t: on this diskette, was created using t: t:where aluminum is found. jc:prompt t(%x>135 and %x<225 and %y>355): tc:No, that's where the Laf birds are. jc:prompt t:Sorry, that's not the right area. *prompt t: t(z):Where are the Laf birds found? tc:(Hint: the legend symbol is "<") jc:ap1 even on the map! jc:prompt t(%y<250): tc:That's where Floobies are found. jc:prompt j(%y>305):zone2 *zone1 t(%x>180): tc:That's where the oranges are grown. jc:prompt t: t:That's where sugar cane is grown. j:prompt *zone2 t(%x<135 and %y<355): tc:That's s? *ap2 ap: c:z=0 j(%x>50 and %x<350 and %y>150 and :%y<250):aok r: check for wrong places *rongpl t(%x>360 and %y>200): tc:No, that's in the legend area. tc:Please point it out on the map. jc:prompt t(%x<70 or %x>280 or %y<150 or %y>435): tc:You're not t:Where are Laf birds found? *ap1 ap: r:(z tells which problem we're on) c:z=1 r:(check if paddles are in range) j(%x>135 and %x<225 and %y>355 and :%y<435):okbird j:rongpl *okbird s:32,10;36,10;39,10;44,10 t: t:Great! Now, $N$ , where are the :Floobieme paddles. u:cont g:es t:To select your answer, just move the :crosshairs (the thin crossed lines) :across the map by turning the knobs :on the game paddles. Push the button :on one of the paddles to point it out. u:cont g:es t: Zaarb's non-agricultural exports :are aluminum and laf birds. u:cont *grafix g:es th:Let's try something new, $n$ . w:2 t:I'll ask you about one of Zaarb's :products on the legend, and you can :point it out on the map, using the :Apple's built-in ga$n$ , name an export :that isn't an agricultural product. a: t: ms:orange!sugar!cane jy3:notag3 ty:That's an agricultural export. ty: jy:notag ms:%alumi!metal mn:laf!bird jn3:notag3 tn:That's not a product. Try again. tn: jn:notag t:Excellent! *notag3 t:t:Apple PILOT: Calculator t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:To use the calculator, just type in :any valid mathematical expression, :according to the rules of Apple PILOT. t: t:If your formula contains an equal(^BB "*BEGIN"): pr:e d:z9$(80) j:begin r:CALCULATOR *sysx s:50,10 a:$z9$ e(z9$=""): m:= cn:z9$="z9="!!z9$ c:z9$="c:"!!z9$ xi:z9$ te:...does not compute se:2,20 je:@a tn:...the answer is #z9 j:sysx *BEGIN ax:$z9$  xi:z9$  te:...does not compute j:begin t: t:To exit the calculator, type RETURN. t: t:To quit, type E: or CTRL-C.  t: r:To use the calculator as a "SYSX" :subroutine in another PILOT lesson, :just copy the following lines into :the beginning of your lesson (up to :and including the labelt:To use the calculator, type "@". t: t:The calculator will evaluate and :print the value of any valid :mathematical expression. To assign :the value to a variable, simply begin :the expression with the variable name, :followed by an equals sign (=).t:Apple PILOT: Immediate t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:This sample program allows you to  :execute PILOT instructions :immediately. It may be used to :explore the various features of :Apple PILOT.  t: (^BB CTRL-C. t: pr: d:z9$(80) r:CALCULATOR *calc s:50,10 a:$z9$ j(z9$=""):@a m:= cn:z9$="z9="!!z9$ c:z9$="c:"!!z9$ xi:z9$ te:...does not compute se:2,20 je:@a tn:...the answer is #z9 j:calc s :sign (=), the variable on the left of :the equals sign will be set to the :value of the expression on the right. t: t:If your formula does not contain an :equals sign, the expression will be :evaluated immediately. t: t:To exit the calculator, typet:Apple PILOT: Match t: r:July 17, 1980 by Charlie Kellner :Copyright 1980 Apple Computer Inc. t:This sample program allows you to  :try various options of the PILOT t: t: M: (match) instruction.  t:  t:When you see the ">" prompt, type :the m׶Hi. I'm a Pascal program.Ǹ ȡAmazing, isn't it?ȡJ ame and return  RáEáꥂNWá" LINKTEST  program linktest;   var i:integer;   begin " writeln; #writeln ('Hi. I''m a Pascal program.'); #writeln; #for i:=1 to 3000 do; #writeln ('Amazing, isn''t it?'); #for i:=1 to 2000 do;  end.  '^i:m$ ty:...yes tn:...no j:input a new match instruction, :just press the carriage return. t: t:To exit the program, type CTRL-C. t:  d:m$(80)  d:a$(80) *match th:> s:38,10;50,10 ax:$m$ j(m$=""):match j(m$(1)<>"m"):match xi:m$ je:match t: *input th:? s:50,10 ax:$a$ j(a$=""):match xatch instruction exactly as it :should appear when it is executed. t: t:After this, you will see a "?" :prompt. Your input will then be :tested according to the previous :match instruction, and the result :(yes or no) will be displayed. t: t:To enterצ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTP