&+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ӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒBBBBBBBBBBBBBBBBONTEe ALOHA.TEXT@] HELLO.TEXT@]  PEOPLE.FONTe PEOPLE.FONTePEOPLE.FONTe]SIX.TEXT@] EIGHT.TEXT@] RAVEN.GRAFAW ASKERS.TEXT] SEVEN.TEXT@] NATIVES.TEXT]  FOUR.TEXT@]   SMILES.GRAFW  CRYOUT.SONGl WRITE.F HUNTER!.GRAFW RETURN.GRAFWNET.GRAF AWSKINHOUSE.GRAFW SCRIPT.FONTe PEOPLE.FONTe EAGLE.GRAFAW THREE.TEXT@] FIVE.TEXT@] NINE.TEXT@ASKERSS RT0006.APPLEbh0 SYSTEM.PASCALbh0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPh LOGO!.FOTOAW LOGO!.GRAFAW HUNTER!.FOTOW꽌ɪɖ'*&%&,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 á<<ˡ<*á< 8@@|?\p, @p`|W*U*u@~Y֪8g߈πψ< @`jpՎx~?Ն@k80`p@=X.x`ψ|`@@W:ުժ.u``p@8.pުW8RpBp` x@pG|+u?Uz@ @@!$D 8.u`U~pRbprpB@Ap``@x\x, @``~*U~?@`X֪8pߊȁp``j`Վ8@`k0@@8@sXx.|pȈH@`Wzժժժ.=p@`xp,=`|תW81RB2 xP ;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Ȅ `š@~x*}pWj"!$/5p@W`G8АSpRpC@p|@pp`U@ת@ת`x:```acc@y`^*_*AG@+=x?Wz~@0B@`@|@p_?, @0`/U*U*U~@q֪xȀȈɀ`pj0px~Վ@+ppp@@X@.p@8|qU>@/u asAbpcqpsbApc"@cAC@xx*<ժժp* `x`x8u@<`UN ' @ xp`+׺@`pj0`8ps@6/U : t:TOTE``8p@073_@shian In``@p x l.U*Uj 8six lett@A`N`@<6^*Uj lect the~`Wj @=U*U*`1 :answe@``U@]*U*U `xhis timeCaLDCrLD&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;; _\`;;<9!;######$7$;$H$Y$[$[L$;$ $$# ######## ##"#*#,#,# ##$*%3$'6$)C$H$[$## ##!#'#.#2#3$2 $0p,UxUxRB@@@^jpժժժ@/8@px@c`~~@@\ު8`ߊLJLjLJ?`xO/U~~+U`xpAC|cX:`׺/nώLJ@G@ΈLJ`8x~@@p\|, @px@@U "1"A@ x@\j@ժժ`+ `~ <p~`@\ܪ8@@ߍ>Uj@W*U`A~x:8׺+g@@@p`~`@a?X`, x@p`+=8L 0@ KODIAK t+U*=L+U*U80@`O ?????? pgp_* @}U*U*@3 #r :f@@U@}*U*U px t: t:SH@`p0sUneau u:sp`GA0000{@ word in`A`@y@|`vU*U* >ion is #f`<x0<0v*U 0~;es l:aspx~/=LW*U*u6ne man's@@8 pW@m+U*U:Xx0s lookinn@\*UzW80p`n. tn:Th@+U*UL/U*Uz`0>onsidere`N`86;U er Alask`pcA0p80{@ h as a `@`<~`vU*U* robably g`<`p0~*U: pg??? u:an`pp+LU*U*=7t(r/s*10@ @p xW@m*U*Upood work xX*U0`` s not. u@+U*UL/U*U:p0x0e thinki`F@ 6?U to my re`>@@s@0`@<0{@ ???? in`@`@ `>U*U* @u ???? tc``@0^*U: pAeal ?????>p* lU*U*3$n$ . tn@@@~W@}*U*U <p???? t: x*u1|0@@ have #r +U*uL+U*U:80`p| :boatsp0g@ 6/U :In Sout@C@`10`p>3_@at are s```8 ` l>U*U* po decora@c`N;x`p6^*Uz 0 did not~}@|*U*Up08`d with ?@{_*U:L/U*Uj0`berries,<`?uLW*U*u> three p`9@ @_@m+U*Uzx `0ded by lo$$ 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/U*l+U*U p@0`ve compl`Uj @=U*U*`0|nu e: :`p`@303W@d weathe>/N@0@ u:score @A`g @ `6W*Uj ??? t: u|@x1@6/U 8e spend `x?uL]*U*U  G8`0@ ve answe@A`s<``vW*Uj f the :Sl@x9v@8@0v+U 0ale is ax~?uL_*U*U < good st`0@ _@m/U*Ujy @0ons :co.U?@|*U*U @`0`ird ????`+Uz@-U*Uj80~salmon ?8``90sUover ???0|xNC08x00[@ WOOD. u:@A`@spp`vU*Uj v ty:Righn@|>@0p0v+U 0xr made f١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ _uPLleLasLe LtyLpeL yLouLr LfiLrsLt LnaLmeL aLndL tLheLnupLreLssL tLheL kLeyL mLarLkeLdRLETLURLN+uILf LyoLu LgoLofL, LusLe LthLe LleLftL aLrrLowL_c$c$_$l$lb$XX$t$UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU** **TT**TT**TT(((((**U@U((((((((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 ١ˡ) ! 䚹 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# ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _ #  #  #  #  #  $  $  $ # # # # #  # # # # # $  # # # # #  #  #   š Í ÄU ǐɄ:t$Z$tLo LbaLckL uLp.LuYLouL mLusLt LwaLitL fLorL tLheL sLquLarLe LcuLrsLorLutLo LapLpeLarL bLefLorLe LyoLu LbeLgiLn LtoL tLypLe.Lá  Ä+ޤ  ****UU** _~|#y#w#v#w#*v#Fw#K|#Z~#\#`#`#`#_#\#X#S#L#I#G#F#E#D#B#=$8$3 $($%$$### ############## # ####C#L#R#T#W#YY#X#W#TRight on! tn:They used RYE grass. u:return g:es t: t:So far, $n$ , you have #r of #s :correct. t: u:return t:What is one of the devices used to :catch salmon, $n$ ? u:answer m:net u:score ty:You sure caught that one! tn:The NET is a good thing to use t :middle of their houses for the cooking :fire? u:answer m:pit u:score ty:Absolutely, $n$ ! tn:There was a PIT for the cooking :fire. u:return t:What is one kind of grass used by the :Aleuts to make their fine baskets, $n$ :. u:answer m:rye u:score ty::is usually dipped in ??? before being :eaten. u:answer m:oil u:score ty:That is absolutely right! tn:Dried fish is commonly dipped in OIL :before it is eaten. u:return t: t:So far, $n$ , you are #r for #s . u:return t:What did the Tlingits have in the ee the answers and :to begin the questions. as: pr: u:xxx t:What is the name of the knife used by :Eskimo women? u:answer m:ulu u:score ty:Of course, $n$ ! tn:The correct answer is ULU. u:return t:Dried salmon is a staple food which ;v0,39,8,23 e: pr: g:es t:There are #p questions in this set. t:In all cases, the answers have only :three letters. t: t:You will be given the correct answers :in advance. Your job is to match the :answers with the questions. t: th:Press RETURN to s: e: *score jn:wrong c:r=r+1 *wrong c:s=s+1 e: *pix g:v;es;v0,39,14,23 e: *xxx g:v;es0 t: t: t:DRY FOG FUR t: GUT MEN NET t: OIL PIT RYE t: SOD SEA :ULU g:m0,365;d560,365c:p=11 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: g:es e: *answer t: th:$t$ a: t: mx:ulu!net!sea!gut!men!fog!fur!rye!sod!d :ry!pit!oil tn:Don't forget, $n$ , the :correct answers are shown above. t: t(len(%b)<>3):All the answers have :three letters. tc(^BB١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ###"#)#.#:"<C)4C1-#-SELagLleLצ   ١  n ١ á9 ٓ/! !!#S#M#E#F#C5#7#9#:#;#?#>#=#9#6#2#-#)#$#"### ##!#%#4)#*#-#,#1#4#6#8#9#:#9#7#5#1#/#,#)#(#(-#.#0#3#4#6#5#3#1#.#-#,#-#,:#4#/#+#&o :catch lots of fish. u:return t:The Eskimos who lived in the coastal :areas got most of their food from the :??? u:answer m:sea u:score ty:Where else! tn:Most of their food came from the :SEA. u:return t:You're going so fast, $n$ , it's all :I can do to keep up! t: t:According to my records, you :have answered #r of #s questions :correctly. t: u:return t:What material would be best to make a :parka to wear in the rain, $n$ ? u:answer m:gut u:score ty:That's the way to go! tn:The very bescan see, all of the correct :answers have five letters. t: t:Your job is to match the :answers with the questions. t: th:Press RETURN to begin the questions. as: g:es pr: t:One kind of boat. The Athapaskans :made them of birch bark--the :Tlingits usedwrong c:s=s+1 e: *pix g:v;es;v0,10,2,23 t:ALEUT t: t:BIRCH t: t:CANOE t: t:GRASS t: t:HAIDA t: t:IVORY t: t:KAYAK t: t:UMIAK t: t:YUPIK t: t:YUKON g:m100,0;d100,510;v10,39,0,23 e: pr: u:pix t:Here are #p questions for you to :answer, $n$ . t: t:As you c:p=10 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: g:es e: *answer t: th:$t$ a: mx:canoe!kayak!umiak!aleut!haida!birch!y :ukon!grass!ivory!yupik t: tn:Don't forget, $n$ , the :correct answers are all shown on the :screen. t: e: *score jn:wrong c:r=r+1 *(^BBhat's it, $n$ ! You have completed :the three letter word test. gx:smiles u:return l:askers,menu e: t:If you were doing the weather :forecasts for the Aleutian Islands, :$n$ , what weather condition would :you predict most of the time? u:answer m:fog u:score ty:You certainly can see that clearly! tn:The Aleutians have a lot of FOG. u:return g:v;es t:Tct answer. t: t(r>5):Keep up the good work! tc: u:return t:The Aleut houses called barabaras had :what kind of a roof, $n$ ? u:answer m:sod u:score ty:You're right on top of that one! tn:Each house had a SOD roof. u:return outside is :to stay warm and ??? u:answer m:dry u:score ty:Good for you, $n$ . I'm sure your :teacher is glad you know that too! tn:The answer is DRY! u:return t:Here is the very latest score! So :far, $n$ has answered #r questions :with the corret is a GUT parka. u:return t:The other type of material used to :make parkas is ??? u:answer m:fur u:score ty:You scored again, $n$ ! tn:Most people like to wear parkas made :of FUR. u:return t:In either case, the reason for :wearing a parka when you go cedar logs. u:answer m:canoe u:score ty:Of course, $n$ ! tn:The correct answer is CANOE. u:return t:Another kind of boat--a small boat :the Eskimos and Aleuts made by :covering a wooden frame with skins. u:answer m:kayak u:score ty:That is absolutely right! tn:The small skin covered boat is known :as a KAYAK. t: t:So far, $n$ , you are #r for #s . u:return t:One more kind of boat--this time a :large boat used by the Eskimos for :whale hunting. u:answer m:umiak u:score ty:Absol(^BB:the five letter word test. gx:smiles u:return l:askers,menu e: ap! t: t:What is the language spoken by the :Eskimos who live South of the Seward :Peninsula? u:answer m:yupik u:score ty:Positively! tn:They were the people who spoke YUPIK. u:return g:v;es t:Way to go, $n$ ! You have completed t's the right answer! tn:They used lots of IVORY. u:return t:NOW HEAR THIS! $n$ has correctly :answered #r questions! t: t(r>5):Keep up the good work! tc: u:return t:This is the last question, $n$ . If :you've been keeping track, it should :be a snial did the Aleuts use to :make baskets? u:answer m:grass u:score ty:You scored again, $n$ ! tn:Their really fine baskets were made :of GRASS. u:return t:A material used by the Eskimos for :carving and making many things. u:answer m:ivory u:score ty:That:Your score is now #r of #s :questions answered correctly. t: u:return t:What is the name of the longest river :in Alaska, $n$ ? u:answer m:yukon u:score ty:YUKON bet on that! tn:The YUKON River flows all the way :across Alaska. u:return t:What materers. tn:The HAIDA people were the ones I was :thinking of, $n$ . u:return t:What kind of bark did the Athapaskans :use to cover canoes and make baskets? u:answer m:birch u:score ty:What else! tn:Most of those items were made with :BIRCH bark. t: tn:The were the ALEUTS. t: t:You now have #r of #s :correct, $n$ . t: u:return t:What group of people lived in :Southeast Alaska, $n$ ? u:answer m:haida u:score ty:Yes, so did the Tlingits and the :Tsimshian but those words have more :than five lettutely, $n$ ! tn:That kind of boat is called an :UMIAK. u:return t:Now, $n$ , let's change the subject :and talk about people instead of :boats! t: t:Which people lived on the islands :beyond the Alaska Peninsula? u:answer m:aleut u:score ty:Absolutely!c:p=7 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: g:es e: *answer t: t:$t$ a: m:tsimshian!barabaras!peninsula!traditi :on!gonaqadet!athapaskan!environment tn: tn(len(%b)<9):Don't forget, $n$ , the :correct answers are all shown on the :screen and that a(^BBI don't know about you, $n$ , but I :could use a bit of a rest. Oh well... u:return l:askers,menu e: ally, $n$ , which word is used to :describe our surroundings? u:answer m:environment u:score ty:You did it! That was the last :question. tn:The word is ENVIRONMENT. t: t:Your score for this section is #r :correct, $n$ . t: u:return g:v;es gx:smiles t:t:A way of doing things, made up over :a long period of time, by the way :people think and act is called a :????????? u:answer m:tradition u:score ty:You're doing very well, $n$ ! tn:Perhaps you have a different :definition of TRADITION. u:return t:Finhis village and :keep his mother-in-law happy was :????????? u:answer m:gonaqadet u:score ty:Very good, $n$ . I'll bet you're :glad you don't have to say that name :too. tn:The name of the sea monster was :GONAQADET. u:return ?????????. u:answer m:barabara u:score ty:That is precisely correct! tn:The Aleut houses were known as :BARABARAS. t: t:So far, $n$ , you are #r for #s . u:return t:The name of the sea monster in the :Tlingit story about a young :man's efforts to feed xtends into the :sea and has water on three sides is :known as a ????????? u:answer m:peninsula u:score ty:That's the way to go, $n$ ! tn:Like Florida, that is a PENINSULA. u:return t:The sod roof houses, built :underground, by the Aleuts were called :tn:They were the TSIMSHIAN. u:return t:The nomadic people who lived :in the Interior of Alaska were the :????????? Indians. u:answer m:athapaskan u:score ty:You got that one, all right! tn:They were the Athapaskan people. u:return t:An arm of land that e and work very carefully. t: th:Press RETURN to begin the lesson. as: g:es pr: t:One group of people who lived in :Southeast Alaska were the ????????? :Indians. u:answer m:tsimshian u:score ty:Excellent! You are off to a good :start, $n$ . 65,0;d165,510;v14,39,0,23 e: pr: u:pix t:This time, since the words have so :many letters, $n$ , there are only :#p words for you to match to the :questions. t: t:Note that while each word has at :least nine letters, some are longer. t: t:Be carefulll the words in this :lesson have at least nine letters. t: e: *score jn:wrong c:r=r+1 *wrong c:s=s+1 e: *pix g:v;es;v0,12,0,23 t:ATHAPASKAN t: t: t:BARABARAS t: t: t:ENVIRONMENT t: t: t:GONAQADET t: t: t:PENINSULA t: t: t:TRADITION t: t: t:TSIMSHIAN g:m1c:p=7 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: u:xxx e: *answer t: th:$t$ a: t: g(len(%b)<>6):es tc:Careful, $n$ ! All the :answers have SIX letters. tc: e: *score jn:wrong c:r=r+1 *wrong c:s=s+1 e: *xxx g:v;es e: pr: u:xxx t:This time, $n$ , there at! So :far, you have answered #x % of the :questions correctly. t: t(r>5):Keep up the good work! tc: u:return t:That's it, $n$ ! You have completed :the six letter word test. t: t:Your score on this section is #r of :#s . gx:smiles u:return g:v;es lheir history from all :of these things. u:return t:Including that last question, $n$ , :you have answered #r of #s questions :correctly. u:return t:Please give me a few seconds to add :up your score... w:5 c:x=int(r/s*100) t: t:Here is the very lates:the history of their people from ?????? u:answer m:elders!dances!legend!family u:score gy:es ty:Absolutely! They learned in many :ways from all of these, their ELDERS, :DANCES, and LEGEND or stories told by :members of their FAMILY.. tn:They learned ting the :WINTER was gathered earlier in the :year when it was available. u:return g:v0,10,0,9 t:ELDERS t: t:DANCES t: t:LEGEND t: t:FAMILY gx:skinhouse g:v0,39,13,23 t:In the days long, long ago, (before :computers) Athapaskan children learned SPRING t: t:SUMMER t: t:WINTER g:v10,39,0,10 t:During which season was :it necessary to live on the supply of :food gathered during the rest of the :year? g:v0,39,13,23 u:answer m:winter u:score ty:You got that right, $n$ . tn:Most of the food eaten durfor nets. tn:They used nets to catch SALMON. u:return t:Congratulations, $n$ , you now have :#r of #s correct. t: c:y=r+t c:z=s+u t:That brings your total score to #y :correct of #z questions asked. u:return g:v0,39,0,10;es g:v0,10,0,8 t:AUTUMN t: t:t:WHALES gx:net g:v10,39,0,8 t:All of the native groups lived in :harmony with nature and took only what :they needed. t: t:Which of these animals did they catch :with nets? g:v0,39,13,23 u:answer m:salmon u:score ty:Of course, the others are too big :been :decorated with FRINGE? g:v0,20,11,23 u:answer m:quiver u:score ty:I agree! Fringe looks good on a :quiver. tn:Fringe on a basket would probably :get in the way, but it looks good on a :QUIVER. u:return g:v0,10,0,8 t:SALMON t: t:WALRUS t: or :decoration. t: th:$p$ as: g:v0,30,0,2;es;v0,30,0,9;es;v0,20,10,23 :;es;v0,30,0,2 t:BASKET QUIVER SHIELD g:v0,30,3,23 t:Other things were also decorated with :shells, quills, and fringe. t: t:Which of these do you think is :the MOST likely to have NARES g:v0,30,3,23 t:One of these words is wrong. t: t:The Athapaskans did NOT use ?????? to :decorate their clothing. g:v0,20,11,23 u:answer m:snares u:score ty:Can't fool you, $n$ ! tn:They used shells, quills, and fringe :but they did not use SNARES fu:answer m:juneau u:score ty:What a good choice! tn:They lived closer to JUNEAU. u:return t:At this stage, $n$ , you are #r :for #s . t: th:Please press RETURN when you are :ready to continue. as: g:es gx:hunter! g:v0,30,0,2 t:FRINGE QUILLS SHELLS Su:answer m:crests u:score ty:Good for you, $n$ ! tn:It is one of the CRESTS. u:return g:v0,9,14,23 t:ESKIMO t: t:KODIAK t: t:JUNEAU g:v gx:raven t:The people who were identified by the :raven crest lived nearest to the area :we now know as ?????? nd then type it correctly. t: th:Press RETURN to begin. as: pr: u:xxx g:v30,39,2,8 t:CRESTS t: t:DANCES t: t:TOTEMS gx:eagle g:v0,39,13,23 t:The eagle is one of the ?????? :used to represent the various clans of :Tlingit, Haida, and Tsimshian Indians. re #p :questions for you to answer with lots :of pictures. t: t:In all cases, the answers have only :six letters. t: t:On each page, there will be a picture :and a short list of words which are :related. t: t:Your job is to select the right word :a:askers,menu e: (^BBg:v;es;v10,30,12,14 t:Resting... w:3 g:es;v t:Hear ye, hear ye! $n$ has correctly :answered #r of the eight letter word :questions! t: t(r=p):A genius, obviously a genius! tc: u:return gx:smiles u:return l:askers,menu e: bilof u:score ty:Excellent. You are O.K. tn:They lived on the PRIBILOF Islands. u:return t:The rest of the Aleut people lived :on the ???????? Islands. u:answer m:aleutian u:score ty:You got it, $n$ ! tn:They lived on the ALEUTIAN Islands. u:return u:answer m:carvings u:score ty:Yes, indeed! tn:They are most famous for their ivory :carvings. t: t:Your score is now #r of #s :questions answered correctly. t: u:return t:A few of the Aleut people lived on :the remote ???????? Islands. u:answer m:prithe name given to the :type of large wooden canoe used in :Southeast Alaska? u:answer m:longboat u:score ty:That is correct, $n$ . tn:In English, the correct word is :LONGBOAT. u:return t:The Eskimo people are famous for :their ???????? made of ivory. tn:They lived in the INTERIOR. t: t:So far, $n$ , you are #r for #s . u:return t:The Aleut people made waterproof :parkas of ???????? and gut. u:answer m:birdskin u:score ty:Score another one for $n$ ! tn:They made parkas of BIRDSKIN. u:return t:What is nket :is called a ???????? u:answer m:potlatch u:score ty:Score one for $n$ ! tn:Such an event is usually called a :POTLATCH. u:return t:The Athapaskan Indians lived in :???????? Alaska. u:answer m:interior u:score ty:What a memory! ight letters. t: t:Please match the words to the :questions and then type the correct :answer. t: th:Please press the key marked RETURN :when you are ready to start. as: g:es u:pix t:A party or celebration where one of :the gifts might be a Chilkat blarong c:s=s+1 e: *pix g:v;es;m0,80;d550,80;v0,39,21,23 t:ALEUTIAN BIRDSKIN CARVINGS INTERIOR t: th: LONGBOAT POTLATCH PRIBILOF g:v0,39,0,19 e: pr: t:Here are #p questions for you to :answer, $n$ . t: t:As you will see, all of the words :have ec:p=7 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: g:es e: *answer t: th:$t$ a: m:aleutian!birdskin!carvings!interior!l :ongboat!potlatch!pribilof t: tn:Be careful, $n$ , the :correct answers are all shown on the :screen. t: e: *score jn:wrong c:r=r+1 *w _##$ $$$"$.$6$;$>$D$H$M$V$b$m$t${$$$$$>$=:$=$>$>$>$s$v$t$:$6$8$R$q$}$$$$]$($ $$###$$ $ $$$ $*$-$1$4$7$u:return *menu g:v;es0 j(a=0):@p c:l=a-2 c:v(l)=r c:w(l)=s c:t=t+r c:u=u+s c:r=0 c:s=0 pr: c:z$="a" t:Which set of questions would you :like, t: t:$n$ ? t: t: c:v(0)=v(1) c:w(0)=w(1) t: A three letter answers? #v of #w t: c:v(0)=v(2) c:w(0)=w(2) t: Bestions t: t:which have three, four, five, six, t: t:seven, eight, or nine letters in the t: c:/n$ c t:answer, $n$ . t: c:w(0)=0 c:w(1)=0 c:w(2)=0 c:w(3)=0 c:w(4)=0 c:w(5)=0 c:w(6)=0 c:w(7)=0 t: t:You may repeat a section to improve :your t: t:score. t: t:There are seven sets of questions on t: t:this disk. In each set of questions, t: t:the answers all have the same number t: t:of letters. t: c:v(0)=0 c:v(1)=0 c:v(2)=0 c:v(3)=0 c:v(4)=0 c:v(5)=0 c:v(6)=0 c:v(7)=0 t: t:You may choose to answer the :quPQ th:cdghklnqrt HIJKLMNWTUV tx: t: Questions t: gx:return g:v0,30,21,21 a:$n$ g(len(%b)<1):v0,39,17,23;es tc:Please wait for the square cursor :to appear before you begin to type. tc: tc: gc:v0,30,21,21 jc:@a g:v;es n un:clear jn:yorn g:es e: *clear g:x31,31,11 e: *clear4 g:x31,31,31,31,11 e: *start g:es tx:people t:ABCJKLA/SXYZ789 AbcABCjklAbcm ABC t:DEFMNODTU1230:- DefDEFmnoDefm DEF t:GHIPQRGVW456!"# Ghi$%&$%pGhi$%&$%& t: t: tx:script t:abefijmops ABCDEFGO or no and then :press RETURN to continue." d:z$(2) j:start *an3wer t:$t$ a:$a$ u(len(%b)<1):clear4 jc:an3wer g:es e: *answer th:$t$ a:$a$ u(len(%b)<1):clear jc:answer g:es e: *return t: th:$p$ as: g:es e: *yorn th:$y$ a: u(len(%b)<1):clear jc:yorn m:%y!%pr:l g:v10,33,12,12 th:Clearing my mind... g:v c:a=0 c:r=0 c:s=0 c:t=0 c:u=0 c:x=0 d:a$(30) d:n$(30) d:p$(27) c:p$="Press RETURN to continue..." d:t$(46) c:t$="Please type an answer and then :press RETURN." d:v(8) d:w(8) c:w(0)=0 d:y$(74) c:y$="Answer yes(^BB١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ 0$.$-$,$'$$$$D$#$))$&&$(*$"%$./$.D&D3צ   ١  n ١ á9 ٓ/! !!;$:$7$$$$,$6$B$F$I$G$D$%$$ $$$$$$$&$'$.$4$>$>$7$3$&$$RU$R$_$f$i$h$g$b$T$r<3-D+" $$$$!$#$%$&$($,$/$0$2$2$1$ four letter answers? #v of #w t: c:v(0)=v(3) c:w(0)=w(3) t: C five letter answers? #v of #w t: c:v(0)=v(4) c:w(0)=w(4) t: D six letter answers? #v of #w t: c:v(0)=v(5) c:w(0)=w(5) t: E seven letter answers? #v of #w t: c:v(0)=v(6) c:w(0)=w(6) t: F eight letter answers? #v of #w t: c:v(0)=v(7) c:w(0)=w(7) t: G nine letter answers? #v of #w t: t: H no more questions and t: see your final score? t: th:Please press A,B,C,D,E,F,G, or H. as: g:es m:a!%3 cy:a$="three" cy:n=3stions for you to :answer, $n$ . t: t:As you can see, all of the correct :answers have seven letters. t: t:Your job is to match the :answers with the questions. t: th:Press RETURN when you are ready to :begin the questions. as: g:es u:pix t:A kind ofn. t: e: *score jn:wrong c:r=r+1 *wrong c:s=s+1 e: *pix g:v;es;v33,39,2,23 t:BABICHE t: t:BIDARKA t: t:CARIBOU t: t:CHILKAT t: t:HALIBUT t: t:HARPOON t: t:INUPIAT t: t:NOMADIC t: t:SUGPIAQ t: t:TLINGIT g:m440,0;d440,510;v0,29,0,23 e: pr: t:Here are #p quec:p=10 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: g:es e: *answer t: th:$t$ a: m:halibut!chilkat!tlingit!bidarka!sugpi :aq!harpoon!inupiat!caribou!babriche!no :madic t: tn(len(%b)<>7):Don't forget, $n$ , the :correct answers are all shown on the :scree(^BBons again, $n$ . t: gx:smiles u:return t:You may now remove the diskette, or t: t:press RETURN to clear the scores t: th:and start the questions again. a: c:a=0 j(len(%b)>0):menu e: c:x=int(t/u*100) t(x>60):Your overall score is #t :correct tc: tc:answers for #u questions asked. t: t: thc:That is #x % correct. Good job, :$n$ ! t(x<=60):Perhaps you will want to :review tc: tc:the lesson diskettes and then try tc: tc:the questixi:a$ *exit g:v0,39,0,11 c(s=0):s=.1 c:v(0)=v(1)+v(2)+v(3)+v(4)+v(5)+v(6)+v( :7) c:w(0)=w(1)+w(2)+w(3)+w(4)+w(5)+w(6)+w( :7) t:Your final score is #v correct :answers for #w questions. c:x=int(v/w*100) t: t:That's #x % correct. u:return xit j:menu *confer t:Please type $z$ #n to confirm that :you :want to answer the questions which all :have $a$ letter answers. t: t:If you have changed your mind, :press RETURN to start again. t: as:#a g:es je:menu c(n<>a):a=0 jc:menu c:a$="l:"!!a$ jy:confer m:b!%4 cy:a$="four" cy:n=4 jy:confer m:c!%5 cy:a$="five" cy:n=5 jy:confer m:d!%6 cy:a$="six" cy:n=6 jy:confer m:e!%7 cy:a$="seven" cy:n=7 jy:confer m:f!%8 cy:a$="eight" cy:z$="an" cy:n=8 jy:confer m:g!%9 cy:n=9 cy:a$="nine" jy:confer m:h!%0 jy:e flatfish or flounder often :caught with a large wooden hook. u:answer m:halibut!sole u:score ty:That's right, $n$ ! tn:The correct answer is HALIBUT. u:return t:A valuable blanket with a very :distinctive design made of goat hair :and cedar bark. u:answer m:chilkat u:score ty:What a memory! tn:A CHILKAT blanket is a fine gift to :give at a potlatch. t: t:So far, $n$ , you are #r for #s . u:return t:One group of people who lived in :Southeast Alaska and built large :wooden canoes. u:answer m:tli(^BBenu e: t:NOW SEE THIS! $n$ has correctly :answered #r questions! t: t(r>5):Keep up the good work! tc: u:return g:v;es c:z=r*7 t:Way to go, $n$ ! You have completed :the seven letter word test and :correctly typed #z letters. gx:smiles u:return l:askers,mBABICHE. u:return t:Finally, what is the word used to :describe people who move a lot to find :food and water? u:answer m:nomadic u:score ty:You got it! NOMADIC is correct. tn:Such people are said to be NOMADIC. u:return the CARIBOU to obtain :all sorts of valuable items. u:return t:One of the things the Athapaskan :people made from caribou skin was a :kind of rope called ??????? u:answer m:babiche u:score ty:You scored again, $n$ ! tn:That type of rope was known as : :many words to describe the same thing. u:return t:What animal was very important to the :inland Eskimo and the Athapaskan :people for food, clothing, and :shelter, $n$ ? u:answer m:caribou u:score ty:CARIBOU were very important indeed! tn:They huntedt:Now, $n$ , let's change the subject :and talk about boats instead of :people! t: t:Which word describes the skin kayak :used by the Aleuts? u:answer m:bidarka u:score ty:Outstanding! tn:That is the word BIDARKA. I :sometimes wonder why people use so :spoken by the Eskimos in northern :Alaska? u:answer m:inupiat u:score ty:Very good! You are wonderful! tn:The people in the North speak :Inupiat. t: t:Your score is now #r of #s :questions answered correctly. t: u:return The rest of these questions :should be a snap for YOU! tn:That is the SUGPIAQ language group, :$n$ . That was also the hardest :question. If you try, you will :probably answer all of the rest :correctly! u:return t:What is the name of the language ngit u:score ty:Score another one for $n$ ! tn:This time the correct word is :TLINGIT u:return t:What is the name given to the :language spoken by the :Eskimo people who lived around the :Gulf of Alaska? Be careful! u:answer m:sugpiaq u:score ty:Yes! pr:l g:v10,33,12,12 th:Clearing my mind... g:v c:a=0 c:r=0 c:s=0 c:t=0 c:u=0 c:x=0 d:a$(30) d:n$(30) d:p$(27) c:p$="Press RETURN to continue..." d:t$(46) c:t$="Please type an answer and then :press RETURN." d:v(8) d:w(8) c:w(0)=0 d:y$(74) c:y$="Answer yesons again, $n$ . t: gx:smiles u:return t:You may now remove the diskette, or t: t:press RETURN to clear the scores t: th:and start the questions again. a: c:a=0 j(len(%b)>0):menu e: c:x=int(t/u*100) t(x>60):Your overall score is #t :correct tc: tc:answers for #u questions asked. t: t: thc:That is #x % correct. Good job, :$n$ ! t(x<=60):Perhaps you will want to :review tc: tc:the lesson diskettes and then try tc: tc:the questixi:a$ *exit g:v0,39,0,11 c(s=0):s=.1 c:v(0)=v(1)+v(2)+v(3)+v(4)+v(5)+v(6)+v( :7) c:w(0)=w(1)+w(2)+w(3)+w(4)+w(5)+w(6)+w( :7) t:Your final score is #v correct :answers for #w questions. c:x=int(v/w*100) t: t:That's #x % correct. u:return xit j:menu *confer t:Please type $z$ #n to confirm that :you :want to answer the questions which all :have $a$ letter answers. t: t:If you have changed your mind, :press RETURN to start again. t: as:#a g:es je:menu c(n<>a):a=0 jc:menu c:a$="l:"!!a$ jy:confer m:b!%4 cy:a$="four" cy:n=4 jy:confer m:c!%5 cy:a$="five" cy:n=5 jy:confer m:d!%6 cy:a$="six" cy:n=6 jy:confer m:e!%7 cy:a$="seven" cy:n=7 jy:confer m:f!%8 cy:a$="eight" cy:z$="an" cy:n=8 jy:confer m:g!%9 cy:n=9 cy:a$="nine" jy:confer m:h!%0 jy:ec:w(0)=w(6) t: F eight letter answers? #v of #w t: c:v(0)=v(7) c:w(0)=w(7) t: G nine letter answers? #v of #w t: t: H no more questions and t: see your final score? t: th:Please press A,B,C,D,E,F,G, or H. as: g:es m:a!%3 cy:a$="three" cy:n=3 four letter answers? #v of #w t: c:v(0)=v(3) c:w(0)=w(3) t: C five letter answers? #v of #w t: c:v(0)=v(4) c:w(0)=w(4) t: D six letter answers? #v of #w t: c:v(0)=v(5) c:w(0)=w(5) t: E seven letter answers? #v of #w t: c:v(0)=v(6) u:return *menu g:v;es0 j(a=0):@p c:l=a-2 c:v(l)=r c:w(l)=s c:t=t+r c:u=u+s c:r=0 c:s=0 pr: c:z$="a" t:Which set of questions would you :like, t: t:$n$ ? t: t: c:v(0)=v(1) c:w(0)=w(1) t: A three letter answers? #v of #w t: c:v(0)=v(2) c:w(0)=w(2) t: Bestions t: t:which have three, four, five, six, t: t:seven, eight, or nine letters in the t: c:/n$ c t:answer, $n$ . t: c:w(0)=0 c:w(1)=0 c:w(2)=0 c:w(3)=0 c:w(4)=0 c:w(5)=0 c:w(6)=0 c:w(7)=0 t: t:You may repeat a section to improve :your t: t:score. t: t:There are seven sets of questions on t: t:this disk. In each set of questions, t: t:the answers all have the same number t: t:of letters. t: c:v(0)=0 c:v(1)=0 c:v(2)=0 c:v(3)=0 c:v(4)=0 c:v(5)=0 c:v(6)=0 c:v(7)=0 t: t:You may choose to answer the :quPQ th:cdghklnqrt HIJKLMNWTUV tx: t: Questions t: gx:return g:v0,30,21,21 a:$n$ g(len(%b)<1):v0,39,17,23;es tc:Please wait for the square cursor :to appear before you begin to type. tc: tc: gc:v0,30,21,21 jc:@a g:v;es n un:clear jn:yorn g:es e: *clear g:x31,31,11 e: *clear4 g:x31,31,31,31,11 e: *start g:es tx:people t:ABCJKLA/SXYZ789 AbcABCjklAbcm ABC t:DEFMNODTU1230:- DefDEFmnoDefm DEF t:GHIPQRGVW456!"# Ghi$%&$%pGhi$%&$%& t: t: tx:script t:abefijmops ABCDEFGO or no and then :press RETURN to continue." d:z$(2) j:start *an3wer t:$t$ a:$a$ u(len(%b)<1):clear4 jc:an3wer g:es e: *answer th:$t$ a:$a$ u(len(%b)<1):clear jc:answer g:es e: *return t: th:$p$ as: g:es e: *yorn th:$y$ a: u(len(%b)<1):clear jc:yorn m:%y!%(^BB the covers for :their kayaks from seal ???? u:answer m:skin u:score ty:Absolutely! You are a good student. tn:The correct answer is SKIN. t: u:return t:According to my records, $n$ , you :have answered #r of #s questions :correctly. u:return t:All oess to :some kind of WOOD. u:return t:The Aleuts made waterproof parkas of :gut and bird ???? t: t:The Athapaskans wore leather clothing :made from caribou hide or ???? t: t:The Tlingits made boots and :containers from salmon ???? t: t:The Eskimos madet:The Aleuts wore armor made from slats :of drift???? t: t:The Southeast Indians made large :boats of ???? t: t:The Athapaskans cooked their food :over ???? fires. u:answer m:wood u:score ty:You're right on the beam, $n$ . tn:All of these groups had accrounded by lots of :water. t: t:Nomadic people who search for food to :eat are said to "live off the ????" u:answer m:land u:score thy:Right on! tn:They live off the LAND. ty:Congratulations, $n$ , you have #r :of #s correct. u:return at, berries, and ???? u:answer m:snow u:score ty:There's snow fooling you, $n$ ! tn:The correct answer is SNOW. u:return t:There are three places to get food-- :from the air, the ????, and the sea. t: t:In Southeast Alaska, the ???? is :mostly islands surth:Please press RETURN when you are :ready to continue. as: g:es t:The best time to use a dogsled is :when the ground is covered with ???? t: t:A fur parka is a good thing to wear :when the ???? is flying. t: t:Eskimo ice cream is made from whipped :f:approximately the same climate as :Alaska. They are Europe and ???? t: t:The largest country in ???? is :Russia. u:answer m:asia u:score ty:What a brain! tn:The first people in Alaska came from :ASIA. u:return t:So far, $n$ , you are #r for #s . t: to :keep out the ???? u:answer m:rain u:score ty:Of course, $n$ ! tn:The correct answer is RAIN. u:return t:The first people in Alaska came from :???? across the Bering Land Bridge. t: t:There are two continents which have for :all the questions. t: th:Press RETURN to begin the questions. as: pr: u:xxx t:The weather reports in Southeast :Alaska usually mention ???? t: t:The Arctic region is very cold and :does not get very much ???? t: t:The Aleut people made gut parkas there are #p :questions for you to answer. t: t:In all cases, the answers have only :four letters. t: t:On each page, you will be given :several sentences, with a blank in :each one. t: t:Your job is to type the ONE :word which is the correct answerc:p=10 c:q=0 c:r=0 c:s=0 j:@p *return t: th:$p$ as: u:xxx e: *answer g:v0,39,14,23 th:$t$ a: t: t(len(%b)<>4):Remember, $n$ ! All the :answers have FOUR letters. tc: e: *score jn:wrong c:r=r+1 *wrong c:s=s+1 e: *xxx g:v;es e: pr: u:xxx t:This time, $n$ ,f the Alaska native groups :included ???? in their diet. t: t:Dried ???? was a staple food for the :Southeast Indians. t: t:A halibut is a big ???? but a whale :is not. u:answer m:fish u:score ty:Good for you, $n$ , a whale is a :mammal. tn:A whale is a mammal not a FISH. u:return t:You're thinking so fast, $n$ , it's :all I can do to keep up! t: t:Please give me a few seconds to add :up your score... w:5 c:x=int(r/s*100) t: t:Here is the very latest! So :far, you have answered #x % of @@P@@@AA!! T(*AAAAA@@U !A(DT*  RP U@ (((((((P(TdX@0!p#@@@`P PPPPQU *0 ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:g:v;es l:askers,menu e: :answer m:food u:score ty:Yes! By the way, $n$ , I'm getting :hungry. tn:The word I was looking for is FOOD. u:return t:That's it, $n$ ! You have completed :the four letter word test. t: t:Your score on this section is #r of :#s . gx:smiles u:return t:Nomadic people spend much of their :time hunting for ???? t: t:Halibut heads are considered by some :to be a very fine ???? t: t:Climate and weather have a lot to do :with the type of ???? people eat. t: t:"One man's ???? is another man's :poison." uers of some ????. t: t:Each group used a crest such as a :raven, an eagle, or a wolf to :represent their ???? t: u:answer m:clan u:score ty:Correct! That was a tough :question. tn:The correct answer is CLAN. u:return to travel very far in :Southeast Alaska was by ???? u:answer m:boat u:score ty:Yes, indeed! You're sailing right :along. tn:The BOAT is used for water :transportation all over Alaska. u:return t:The Tlingit, Haida, and Tsimshian :people were all memb the :questions correctly. t: t(r>5):Keep up the good work! tc: u:return t:Bidarka, umiak, iqyax, and kayak are :each a kind of ???? t: t:The Aleuts on the Pribilof Islands :probably got there by ???? t: t:Before there were any airplanes, the :only wayP* BBBBB"D($BBU *DD* !  ((U JT!! UU* * )((((( H((H)**((**(^BB89 t: t: t: t: t: Do NOT copy or modify this :diskette. w:2 lx:askers  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(^BBam! lx:askers  e: gx:logo! g:es0 t: t: This Diskette is the Property of: t: t: t: t: t: t: Larry and Martha Stevens t: t: 515 North Franklin Street t: t: Juneau, Alaska 99801 t: t: (907) 586-3689 t: t: t: t: t: Do NOT copy or modify this progr