&+Iɪ꽌ɖ@*<%<==Å'Iɪ꽌IV<Y<<Y<&，YLV0&^*^*&=L+L ٠Šҍ̰ 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ӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒBBBBBBBBBBBBBBBB!.FOTOW FOURBIG!.GRAFW NATIVES.TEXT] EXAM.TEXT@] SM!LES.FOTOW SM!LES.GRAFW TRUMPET.SONGl HELLO.TEXT@]FW LOGO!.FOTOAW LOGO!.GRAFAW CANOE.GRAFAWBIRCHBARK.GRAFWNET.GRAF AW YUKON.GRAFAW PEOPLE.FONTe AREAS.GRAFAW HUNTER!.FOTOW FOURBIG RETURN.GRAFW SMILES.GRAFW SCRIPT.FONTe ALASKA!.FOTOW ALASKA!.GRAFW GOOSE.GRAFAW PEOPLE.GRAFW SALMON.GRAFWSKINHOUSE.GRAFW HUNTER!.GRALESSONS$ RT0006.APPLEbh0 SYSTEM.PASCALbh0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPh RIVERS.GRAFWAK.GRAF AW CARIBOU.GRAFW꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" (jJJ>L& "?I9  I `  ` x I Nx .x- u `V0^*^*>` YI꽌ɪVɭ&Y&&Y& \8`&&`L  x ? N 'i ͭ҅?/ȱ llMUST BOOT FROM SLOT 6NO FILE SYSTEM.APPLE RT0005.APPLE  L$J) 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#8#9#:#:#:;#<#;>#?#>@#B#FJ#>#=#>#B#E#F#I#L#PM#JH$JG#E B#A#?#9?#B#F#J#NQ#LL١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#9#8#88#<!$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#' _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $#/4$.4 $04 $04$+404$24$0424$54!4$#4 $#4$$4$%4$%4$'40&4/$(4-$/4'`$'$`$'$`D ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _R24N$44L$44H$54D$74H$<4?$C4@$D48$E44$K4 $E4$C4$E4 $>4$34$24#:4 E4#$B4%$A4"$=4&$;4+$845$54L$/45K4:$O4B$Q4G$S4>P4;$U4:$Y4-J4.$L4-$O4+$Q4.$T4F4 $H4 J4 $I4 E4 $E4 $D4F4#I4#I4#K4S4$U4$S4$U4!$X4 _4 $^4 $]4$[4&`4$$]4$[4%]4+$Y4.4P ;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Ȅ `š#RL#E#A4#43#39#64$7$8 $8 $7$6$5$4#$2*$3)$1-$,)$$3$-$*-$.$'$"$$%!#$$$$$$##$ $### $! $"$! $$)$/>$#ɋ _uPLleLasLe LtyLpeL yLouLr LfiLrsLt LnaLmeL aLndL tLheLnupLreLssL tLheL kLeyL mLarLkeLdRLETLURLN+uILf LyoLu LgoLofL, LusLe LthLe LleLftL aLrrLowL_c$c$_$l$lb$XX$t$p` gx:yuko~ @:other i|```?@d by mou(x`ople movx7|~ >>`@@`c Indian0p<8stions f@@CDEFGOPQg0`s@ t:This ``*answer @cABCjklA``~<p` t`x~er yes o>`~@|`py of: t:`0`pA?t: P* BBBBB"D($BBU *DD* !  ((U JT!! UU* * )((((( H((H)**((** @@P@@@AA!! T(*AAAAA@@U !A(DT*  RP U@ (((((((P(TdX@0!p#@@@`P PPPPQU *0 ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:t$Z$utLo LbaLckL uLp.LuYLouL mLusLt LwaLitL fLorL tLheL sLquLarLe LcuLrsLorLutLo LapLpeLarL bLefLorLe LyoLu LbeLgiLn LtoL tLypLe.Lqá  Ä+ޤ  `@t:How do~8p0@n$ ! tn:~q@px`@rce of f80x;pxks. u:repp`er for @ly held `@p@al :hoo~@rn t:Wha8`@x thinkin8`eapons a @t in seap|`|pts and tp`Fall, thp``00X@ the :yp0@``people h@se in Al08@ u:answe0`permissi|@mate. u:n``~turn t:WH@`x m:betty`p@ t:Pressvpp@|>o@`p3$RTáޤ  Pצ   ١  n ١ á9 ٓ/! !!7$\9$\?$YC$UG$QJ$NL$MN$LR$IN$IF$H>$H9$G6$E2$C1$@1$=1$:1$51$13$-5$(7$$:$#<$ >$A$E$G$I$J$K$ L$M$M$!&$$$&$ '$($&$#$!$$$$$$$ $ $$#######1S2$S2$T2T3$S _4#4#4#4#4#4#4#4#4$3 $3$4$4)$35$4?$4O$3U$34#4###$###(#.#1#.#*#'#&#%#'#)#+#-#0#1#2$0 $/ $.$-$+$)$( $&$/$3$;$A$H$N!$S$$V'$Y+$[-$\/$]1$^3$^5$]١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#9#8#88#<!$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#' _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $o0O@uld know@|8am e: ~`@@`p`g```@?@@Cs `8pxx@|p<@??`CCx8`@`ppx@Cp@`١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $o$$ yD$ $ $ $##$&&$**$--$00$33$66$::$==$@@$DD$GG$G$JJ$NN$ ١ á9 ٓ/! !!u$|$$$^^$]$[$V$P$N$N$Q$\$g$m$o$r$XM$C$ @$A$F$N$T$A?$B$V$S$Q$O$O$F$>$4$)$ $ $*$.$3$8$>$<$$/$7#$ ($fD2DfDCGD]#b$$h$#r$ y$$ D[a$g$ _qv$y$|$$$$$$$$!$-$/$8~$B}$F~$X}$Yy$\m$`h$_a$]\$Y[$VZ$O[$H^$Ae$9x$2$.]V`$Rb$Ma$Ae9a$5^$.X$U$Q$P$S$U$[$e$l$_,c$-h$,m$+s$)z$%$UX$_$a${$s }$$n١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ $=?$?@$@DC [ $[ Pצ   ١  n ١ á9 ٓ/! !!$ $- $####### $&##$' $- $6 $: -$%%$$4$">$$$$  # $$##9#6$5 $6% $# )$2#$5#&#(=$>$@$B$F$L#O#R$W$[ $\ $[$V $O $G $C _### # # # #####$$$$)$8$E$N$V$^$g$p$t$ #'#6$=$:$9 $< $>$:&$59$(M$###%'#5# ##*-$4A3$"0%$13 $:4 $%( $6# ١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ #'+#&*#&*#%)#$'#"#########';*  ١  n ١ á9 ٓ/! !!###!# #######%#####!#$#+$#!=$B$C$D$E$C$G $F $E $E $H $I $I$F#?A$E@ $C ?$BHN$M Q$N%T$#O(V$'S*\$-=,9$)6.1$)*.$$( /$)-$) - $)- _####$$$ $ $$$ $)$ 6$##'$3$"8#E$Q$S$S$V$Y$ X$"X$#\$&]$+f$.f$/e$0b$1\$0V$/K$.C$/3$3%$8$; $=$>#?#=#:#6#2#6#6#3#,#)#(#'#%#$#"# ### #" $;$8$0$.$%$# 1ALthLapLasLkaLnsLA9$=$9$imLoALleLutL1 1ALthLapLasLkaLnSLouLthLeaLstLILndLiaLnsL9$=$9$:$@$:$0$>$0$<<<<<<<&<$<!<<$<<$<"<#$"< ۤ #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#98#89#<=T.$V$Q$R$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#'١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ `Wzժժժ.=p@`art overxp,=`|תW81RB2 xe. as: g@`@@\< @ize :so8|*U*U*Uj@`߈πƈet that @8ppz0@@`՞@+`acaribou 8x@Xp.pπψt: t: thx|08`Up?՞8U@@: r = r x + >`x:```acc@yather cl`^*_*AGmost of @+=x?Wz~@0B@:Of cour`@|@p_?, @:left, $0`/U*U*U~@q֪xȀȈɀ have :`pj0px~Վ@+pp hunt fop@@X@.p@ fool yo|@pp`U@ת@תU "1"A@ x@\j@ժժ`+ `~ <p~`@\ܪ8@@ߍ>Uj@W*U`A~x:8׺+g@@t: t:the@p`~`@a?X`, x@`x8u@<`UN ' @ xYou are p`+׺@`pj0`hey live8|qU>@/u asAbpcqpsbApc"@cACy for th@xx*<ժժp* `xe to go 0?@?p@\ܪ8@p߈he SouthpW*U+U*uppa: g:x25x|p:<׺+@c@@ $n$ ! |px@X, p|_ter stud@88UվpUG@` xgx:areasx`@+`|pz0por 4 andp@Wzp+=@" is righ`p*pתժ?xj`@rip&hidexpxp?@\ܪ8@n g:es0 _*U*U*U*=8~@of the c`p8p:8p@ך+@aalmon!fi~@<@X<,m?xouse!tenp,UxUxRB@@@^jpժժժ@/8@px _\`;;<9!;######$7$;$H$Y$[$[L$;$ $$# ######## ##"#*#,#,# ##$*%3$'6$)C$H$[$## ##!#'#.#2#3$2 $0UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU** **TT**TT**TT(((((**U@U((((((((ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _R24N$44L$44H$54D$74H$<4?$C4@$D48$E44$K4 $E4$C4$E4 $>4$34$24#:4W04YLu4kLo4nL4W'4 LR4iLv4eLr4ڢ ڣڢÄڢ    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _ #  #  #  #  #  $  $  $ # # # # #  # # # # # $  # # # # #  #  #   š Í ÄU ǐɄ:#J#F#C#=#::#4#)#2#+#(#&#L,#N,#R,S,#O,O,#M, #  #  #  #  #  $  #    #      #      #  #  #  ɋ _u 4#"4##4#$4##4#!4#44$4($4@$!4T$#4i$%4$$4$#4zC#.#%f&$Bk$=W$;#88#9:#<}#C{B#6#/#,#*)#( $(M$,b$/p$4$@T;V$6V6W$4T$.<#9#6#0,#5#<#C#G#J#N#O#R#T#V#W#T#Pń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _8#0#+#'##@$[$b$i$~$($0$3v$0U$/$2#/#8#1#(#$ $"Y$$~$+Y/^$+^$)\$%&#(#*#+#,#/##%#%%$#$"###D$$/d$10ǐɄ:CaLDCrLD&C#CCCLDC;CYCKC L1D9L8D1LD!C CtLD-C&$C&C&$C'#'$#-$-'$'-$-'$'-$-'$'-$-'$'-$U$#U$U$$U$ޢޣޣߢ  dÍÍޢˡ ݓۤ #;;;PLR#B#D#E#C#B#?#;#90#2#1#/#1#1;#9#7H($J3$KC=:$;0$9'$: $9$; $>$@$B$F$GC4C2CCC;;****UU** _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $`F@ 6?U `>@@s@0`@<0{@ `@`@ `>U*U* @c``@0^*U: pA?>p* lU*U*3@@@~W@}*U*U <p x*u1|0@@ +U*uL+U*U:80`p|p0g@ 6/U @C@`10`p>3_@```8 ` l>U*U* p@c`N;x`p6^*Uz 0pgp_* @}U*U*@3@@U@}*U*U pxp`+=8L 0@ +U*=L+U*U80@`O8ps@6/U ``8p@073_@``@p x l.U*Uj 8@A`N`@<6^*Uj ~`Wj @=U*U*`1@``U@]*U*U `x $;$8$0$.$%$# !+$*6$)6)6$%$#(91L0B%,7:3LD+8 2L+G 4LOC, ?"?$ ILndLiaLnsLáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#98#89#<=T.$V$Q$R$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#' xX*U0`` @+U*UL/U*U:p0x0`pp+LU*U*=7@ @p xW@m*U*Upp8 `@30sW@8`> G8`0@ @A`s<``vW*Uj f l@x9v@8@0v+U 0x~?uL_*U*U <`0@ _@m/U*Ujy @0.U?@|*U*U @`0``+Uz@-U*Uj80~8``90sU0|xNC08x00[@ @A`@spp`vU*Uj v n@|>@0p0v+U 0x<`?uLW*U*u>`9@ @_@m+U*Uzx `0~}@|*U*Up08`@{_*U:L/U*Uj0`@`p0sUp`GA0000{@ `A`@y@|`vU*U* >f`<x0<0v*U 0~px~/=LW*U*u6@@8 pW@m+U*U:Xx0n@\*UzW80p`@+U*UL/U*Uz`0>`N`86;U `pcA0p80{@ `@`<~`vU*U* g`<`p0~*U: pg.Uz|*U*U ``0``?Uj @=U*U*p0|`x?uL]*U*U <`p@@ |l.U*Uj 8p:`88X0Dxx<0, $n$ , |p@^*5  H pqqp yy!jun!ju/o+u` `~W*wl. gx:gH@+U*`xo as a ~u/U>ux`+Uj, and otx*U*U*}+5x;Up*}ose tree`U*U~@at out p~8U*5p0~@jWjpaskans ^*U*U*U*5pU>x*t: t:The@psbbW*U@g time ag0U*=`syU:@ t: t:$n`j`@DDD|x8&$%& t: \*}P  !p qlen(%b)<`/U`~<.u`U*$p$ . a:^*U* `x~ g:es tx>`~/U\UjWz*return `W*U*U*U*5`UzA?^* jc:yorn/U*l+U*U p@0``Uj @=U*U*`0|`p`@303W@>/N@0@ @A`g @ `6W*Uj |@x1@6/U 8W*Uj@ight hav8U*508.U:@eese, $np/u+Uj0/5X/Uj you'll p*U*Uj7?U`+u gx:salmxx*U xp1pxp :$n$ .`q@PV*ucrape anV*U*`ppx@k$ ? u:anp@o`8D<<88x<nd polesW*U*U*U~~*o@W*then dri.U?}`>U*;v0,39,1|gU*@with the`NW*uL+<@=\paint wa`x_`p!, $n$ , `b0cV*u yI the hair|*U*5`@?|*hey used8u/`8oft and |*U*U*}@+=@W.u@+U gx:skin_~U* @the peop">$ RD 2 ALt hLa pLa sLk aLn @:$=$:$/$ELs$kLi$mLo$$ALl$eLu$tL$A#SLo$uLt$hLe$aLs$tL$I#ILn$dLi$aLn$sL$Íޢˡ ݓۤ #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#98#89#<=T.$V$Q$R$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#' _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $o0U*Ogu?@t how th^*UOU~W:alaska! ~X*u#  ! gx:skin@APV*U@ and :sV*U*` p`o paint, ``k`8DDDD@ier to p):x31 jc:@a c:/n$ c g:es0 g:v t:This lesson is about the Alaskans t: t:who lived in the Interior of t: t:Alaska, a long time ago. They were t: t:a nomadic Indian people known as t: t:the Athapaskans. t: t: t:Please read each sentence carefully, t: t:$n$ . t: t: t:There will be some questions for you t: t:to answer later. t: u:return gx:fourbig! g:v0,39,14,23 t:The Athapaskans lived in the :Interior of Alaska which is a large :area with many mountains, valleys, :rivers, and plains. t: t:The Athapnd soak the hide to make it :soft and smooth. t: t:For Winter clothing, the hair was :left on the skin. u:return t:If you were going to make a Winter :parka, $n$ , would you want the hair :on the inside or the outside? u:answr3 m:%in ty:Of course! typoles :that could be easily moved. gx:skinhouse t: t:Sometimes they used two layers of :skin or some bark for extra warmth, :$n$ . u:return gx:hunter! g:v0,20,4,23 t:They used caribou and moose hides to :make their clothing. t: t:They had to :scrape at:It is easy to see why they could :not have permanant homes. u:return t:What kind of homes do you think they :did have, $n$ ? u:answer m:tents!hide!skin!under&ground!pole&lod :ge g:es0 ty:You are really thinking today! ty: t:They made homes of skin and make :another kind of rope called babiche. t: t:The caribou skin was cut into long :narrow strips and then dried. u:return t:In the Winter, the people continued :to move about in search of any animals :they could find for food. t: Fall, they hunted caribou and :gathered berries. gx:caribou t: t:Bone, antlers, and the hooves of :animals were used to make weapons and :utensils. Tendons from the legs of :the caribou were used to make rope. u:return t:Caribou skin was also used toeir fish camps. gx:salmon t: t:They used nets and traps to catch :salmon and other kinds of fish. u:return t:They tried to :catch enough fish to last all Winter. t: t:They also collected :birch bark during the Summer. u:return g:es0;v0,39,14,23 t:In the:year to hunt geese, $n$ . tn:The geese aren't usually around :at that time of the year. t: t:Next time, $n$ , try Spring or Fall. :I'm sure you'll get at least one goose. *salmon u:return g:es0;v0,39,15,23 t:In the Summer, the Athapaskans moved :to thummer!may!jun!jul :!aug!sep cy:x=rnd(11)+2 ty:Way to go, $n$ ! You got #x geese. ty: ty:If you had gone hunting in the :Spring, you might have done even :better. jy:salmon m:winter!dec!nov!jan!feb!mar!apr!oct ty:That's not the best time of the would do as a :hunter, $n$ . t: t:What season of the year would you :hunt for geese? u:answer m:spring cy:x=rnd(18)+10 ty:Outstanding, $n$ , you bagged #x :geese! ty: ty:That really is a good time of the :year to go hunting. jy:salmon m:fall!autumn!s from those trees :was used to make canoes and baskets. u:return g:es0 t:In the Spring, $n$ , people hunted :small animals and waterfowl. gx:goose t: t:Some of the birds they hunted were :ducks, geese, ptarmigan, and grouse. u:return t:Let's see how youth:The rivers were also a valuable :source of food. gx:net t:Salmon and whitefish :came from the rivers, $n$ . t: t:Caribou, :moose, and other animals were hunted :near the river banks. u:return t:White birch trees grow along the t:rivers. The bark t:How do you think they traveled in the :Summer? u:answer m:canoe!boat!kayak!river!walk g:es0 ty:You figured that out pretty fast, :$n$ ! ty: t:They usually traveled in canoes. gx:birchbark t: t:Sometimes they walked. u:return g:es d other important :rivers served the Athapaskan :people in many different ways. gx:yukon t: t:Travel and trade routes followed :these rivers. gx:rivers u:return t:People used sleds, toboggans, and :snowshoes for travel on the rivers :in the Winter. t:askan people often moved :from place to place to find food. u:return t:The Summers in the Interior of :Alaska are short and very warm. t: t:The Winters are colder than anywhere :else in Alaska. u:return *map gx:alaska! g:v0,39,14,23 t:The Yukon River an: ty:It's a lot warmer to have the hair :on the inside than on the outside, :even if it's not quite as pretty. tn:That's very pretty but it's a lot :warmer with the hair on the inside. u:return t:Women decorated clothing with :porcupine quills, shells, and paint. t: t:Sometimes the paint was mixed with :blood. u:return t:Do you know why they used blood to :make their paint, $n$ ? t: u:yorn m:%y ty:You are too smart for words! ty: t:Blood is a kind of glue. It makes :the paip t: jc:two t:At this point, $n$ , you are #r for 4. c:s=0 t: u:return *two t:What did the Athapaskans use to make :their boats? a: m:birch&bark!bark!wood&frame tn:They built a wooden frame and :covered it with birch bark. cy:r=r+1 ty:Exactly! t: t: t:: t: t:Now, $n$ , how did the Athapaskans :travel in the Winter? a: m:sled!tobaggan!sno&shoe!ice!walk tn:They used sleds, tobaggans, and :snowshoes. cy: r = r + 1 ty: ty: ty(s=1):Congratulations! You got :both of the last two questions :correct. u:zi:one question correctly. jc:more t:Outstanding, $n$ , you are #r for 2. t: *more u:return *one t:Why did the Athapaskans move around :so much, $n$ ? a: m:food!hunt!fish!trade!eat tn:They had to hunt for food. cy:r=r+1 cy:s=1 ty:You're doing a good job! tre the rivers so important to :the Athapaskan people? a: m:trade!travel!food!fish!animals!trees! :bark!transport!boats cy: r = r + 1 ty:Exactly! tn:They used the rivers for travel and :trade. u:zip t: jc:one t(r=1):So far, $n$ , you have answered reful how you answer. Spelling :is important! t: t: th:Press RETURN to begin. as: g:es t: t:What is the name of the longest river :that runs through the Interior of :Alaska? a: m:yukon tn:It is the Yukon River. ty:Right on! cy: r = r + 1 t: t: t:Why we:es e: *start g:v g:es c:r = 0 c:s = 0 t: t:Here are some questions for you to :answer, $n$ . Remember that these are :all questions about how people lived :long, long ago. t: t:Please type an answer to each :question and then press RETURN. t: t:Be capr:l d:t$(1) c:t$=chr(25) d:c$(1) c:c$=chr(11) d:l$(1) j:start *zip t: th(r=0):Please type a Y if you would :like to start over again, $n$ . :Otherwise, press RETURN to continue. asc: mc:y jyc:start gc:es e: *return t: th:Press RETURN to continue. as: g(^BBPress RETURN for a quiz. t: th: Good luck! gx:smiles as: l:exam e: popular with the Athapaskans. u:return t:They had many kinds of songs and :sometimes they would sing and :dance all night long! u:return g:v;es0 t:Well, $n$ , you really should know a t:lot about how the Athapaskans lived :a long, long time ago. t: t:nt thicker and easier to put :on. It also holds the colors in place :when it dries. *story u:return g:es0;v0,39,14,23 t:In the Winter, people got together :for ceremonies and potlatches, $n$ . gx:skinhouse t: t:Telling stories and singing were :veryNow, $n$ , what did the Athapaskans :use to make their tents? a: m:skin!hide!poles!bark cy:r=r+1 ty:Very good, that is the right answer. tn:They covered a pole frame with skins :and bark. u:zip t: jc:three t(r=1):So far, $n$ , you have one :correct answer. jc:torf t:So far, $n$ , you have #r correct :answers. *torf t: u:return *three t:The next two questions require only :a simple yes or no answer. Any other :response will be counted wrong. t: t:Be sure you press RETURN :after each "):wrong t(s=0):Fantastic, $n$ ! You are :really paying attention! t(s<>0):You got it right. c:r=r+1 t: *quit u:return j:score *wrong c:s=s+1 t(s>5):Better study the map, $n$ . jc:quit t(%b="5"):$n$ must not be from Alaska. t(%b="2"):That is where the Ay:r=r+1 t: u:return g:es0 gx:areas g:v0,39,13,23 c:s=0 *chance t:In which one of these areas did the :Athapaskans live? Please type a number th:1, 2, 3 or 4 and then press RETURN. :If you guess wrong, I'll tell you who :did live there. a: t: j(%b<>"1:the hooves. t: t: t:What did the Athapaskans :use to make their rope? a: m:tendon!strip&hide!strip&skin!caribou! :sinew!babiche t: tn:They wove caribou tendon into :long strips or cut and dried long :pieces of skin to make babiche. ty:Good job, $n$ ! case :type an answer for each one and then :press RETURN. t: t: t:What parts of the caribou did the :Athapaskans use to make weapons and :utensils, $n$ ? a: m:bone!antler!horn!hoove!hoof cy:r=r+1 ty:That is right! tn:They used the bones, antlers, and is a picture of a salmon. t: u:return g:es0 gx:skinhouse u:next m:skin&house!tent!house cy:s=s+1 t: ty:You got it! tn:That is a skin house. t: t:You got #s of the picture problems. c:r=r+s c:s=0 t: u:return g:es0 g:v t:There are three more questions. Ple:es t:What time of the year did the :Athapaskans hunt the caribou? a: m:fall!autumn!sept!oct!nov ty:For sure! tn:The best time to hunt caribou is in :the Fall. t: u:return g:es0 gx:salmon u:next m:salmon!fish cy: s = s + 1 t: ty:Very good, $n$ . tn:That g:es0;v0,39,13,23 gx:goose u:next m:goose!duck!geese!water&fowl cy: s = s + 1 t: ty:Of course, $n$ ! tn:That is a goose with a short neck. t: u:return g:es0 gx:caribou u:next m:caribou!deer cy: s = s + 1 t: thy:Absolutely! t:That is a caribou. u:return gre :as it appears on the screen. t: t:Don't forget that you must wait for :the square cursor to appear before you :begin to type and that you must press :RETURN after each answer. t: t:Watch closely, $n$ ! t: th:Press RETURN to begin. as: ons correctly! t: u:return c:s = 0 j:final *next t: t: th:Press RETURN to continue. th:$t$ th:Your answer? a: th:$c$ e: *final g:es0;v0,39,0,23 t:Now let's see if you can recognize :some of the pictures you saw earlier. t: t:Type in the name of each pictut: u:return t:What did they do to make their :leather clothes smooth and soft? a: m:soak!scrape cy: r = r + 1 ty:That's correct! tn:They had to soak and scrape the :moose and caribou skins. t(s=r): tc: tc:You did it, $n$ , you answered :all three questitn:They used tanned moose and caribou :skins. ty:Of course! t: u:return t:What did they use to decorate :their clothes? a: m:paint!quills!shells!porcupine ty:What a memory! cy: r = r + 1 tn:They used such things as paint, :shells, and porcupine quills. uestions correct, $n$ , you will have :#s correct answers. Be careful! *last t: u:return g:v0,20,4,23 gx:hunter! t: t:What did the Athapaskans use to make :most of their clothes, $n$ ? a: m:moose!caribou!skin!hide!tanned cy: r = r + 1 ? a: m:n cy: r = r + 1 ty:Didn't fool you that time! tn:The Athapaskans lived in the :Interior of Alaska. u:zip t(r<3): tc: tc:There are only a few questions :left, $n$ , you'd better keep trying! c:s = r + 3 jc:last t: t: t:If you get the next three :qanswer. t: u:return t: t:Did the Athapaskans live in settled :villages, long ago? a: m:n cy: r = r + 1 tn:Remember that they were a nomadic :people who had to hunt for their :food all year long. t: t: t:Did the Athapaskans live on the :Aleutian islandsleuts :lived. t(%b="4"):The Southeast Indians lived :in that area. t(%b="3"):You're close but that's :Eskimo country. t: th:Press RETURN to try again. a: g:x25,11 j:chance *score g:es0;v t:Please close your eyes and count to t: t:10 while I calculate your score. t: t:Press RETURN when you're ready for t: th:the total. as: g:es t(r<6):You got #r correct, $n$ . :That's all right for the first time. :Perhaps you would like to go over the :program again. jc:done t(r<11):You g~p@xpx`x` `00@@````@|~x?@````x@`@`88`08@`p@xx8 `|``p@``|@@@0p`0@pistrict 0copy or day! w:5 gx:logo! w:10 g:es0 t: t:You may now remove the diskette from t: t:the computer, or you may press RETURN t: t:to re-start the lesson at the t: th:beginning... a: e: ot #r right, $n$ . :That's great! jc:done t:You got #r right, $n$ . You are :a fine student. Congratulations! *done t: t:Now it's time for some activities :about the Athapaskans and the :way they lived long ago. gx:smiles t: t: Have a goodx@p ~8@?|``x|~<p00`0@@@pp@`x`@`~x?@@@?p`@@p88@`<pxg`x`x`?p~xp@xp` `<<~xgpppx|88` @p`|<@@```@|`0@@89 t: t: t: t: t: Do NOT copy or modify this :diskette. w:2 lx:natives  e: gx:logo! g:es0 t: t: t: We hope you enjoy this program! t: t: t: t: Larry and Martha Stevens t: t: Applecart Programs for Education t: t: 515 N. Franklin Street t: t: Juneau, Alaska 99801 t: t: (907) 586-36(^BBń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:0``@p@8x`x@x80p8x@