&+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ӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒBBBBBBBBBBBBBBBBTERS.FONTe GOODBY.TEXT] ALOHA.TEXT@]2.GRAFW STPAUL1.GRAFW STPETER1.GRAFW EXAM.TEXT@] RUSSIANS.TEXT] SM!LES.FOTOW SM!LES.GRAFW GOODBY.GRAFW  HELLO.TEXT@] PRUSSIANS.FONTe LETW BIDARKA.GRAFW OTTER.GRAFAW BOTHAA!.FOTOW BOTHAA!.GRAFW SMILES.GRAFW PROMO2.GRAFW PROMO1.GRAFW RUSSIANS.FONTe STPAUL2.GRAFW STPETER LOGO!.FOTOAW LOGO!.GRAFAW QMARK.GRAFAW WHERE?.GRAFW BOTHAA.GRAFW ARROW1.GRAFW UNKNOWN.GRAFW SHIPS.GRAFAW SH!PS.FOTOAW SH!PS.GRAFALESSONS) RT0006.APPLEbh0 SYSTEM.PASCALbh0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPh SCRIPT.FONTe RETURN.GRAFW PEOPLE.FONTe꽌ɪɖ'*&%&,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 á<<ˡ<*á< t$Z$utLo LbaLckL uLp.LuYLouL mLusLt LwaLitL fLorL tLheL sLquLarLe LcuLrsLorLutLo LapLpeLarL bLefLorLe LyoLu LbeLgiLn LtoL tLypLe.Lqá  Ä+ޤ  ɋ _uPLleLasLe LtyLpeL yLouLr LfiLrsLt LnaLmeL aLndL tLheLnupLreLssL tLheL kLeyL mLarLkeLdRLETLURLN+uILf LyoLu LgoLofL, LusLe LthLe LleLftL aLrrLowL_c$c$_$l$lb$XX$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 P ;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Ȅ `š((((((((UU**"*** **TT**TT**TT(((((**U@U((((((((UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**x|08`Up?՞8U@@x + >`x:```acc@y`^*_*AG@+=x?Wz~@0B@`@|@p_?, @0`/U*U*U~@q֪xȀȈɀ`pj0px~Վ@+ppp@@X@.p@|@pp`U@ת@תU "1"A@ x@\j@ժժ`+ `~ <p~`@\ܪ8@@ߍ>Uj@W*U`A~x:8׺+g@@@p`~`@a?X`, x@`x8u@<`UN ' @ xp`+׺@`pj0`8|qU>@/u asAbpcqpsbApc"@cAC@xx*<ժժp* `x0?@?p@\ܪ8@p߈pW*U+U*uppx|p:<׺+@c@@|px@X, p|_@88UվpUG@` xx`@+`|pz0pp@Wzp+=@"`p*pתժ?xj`@xpxp?@\ܪ8@_*U*U*U*=8~@`p8p:8p@ך+@a~@<@X<,m?x@~0pU8`պ0Ux`` @@+x`@p:@8x`Wj|*p$@`+ߪժ^jpab`psaaB`||cX:`׺/nώLJ@G@ΈLJ`8x~@@p\|, @p@c`~~@@\ު8`ߊLJLjLJ?`xO/U~~+U`xpAC$E$D$@$>$=$A$?$A $B$@ $>$: $8 $8$:$9$7 $5$3$2$.$,$)$($'$% $"$" $$$$$$$!$!$(%$-'+"$($% $#"$##$%'$'+$,.$&2$%5$"7$"9$ ;$"=$@$ D$I$G$I$I$J$M$R$S$M$#5#:#<#<#7#8#6#5#5#9#;#:#6#4#3#2#2#1#/#/#.#.#3#0#2#0#0#3#-; ZDX$EV$GU$GP$CO$CN$DP$FL$FI$CG$CA$G@$G>$J;$J9$K9$L3$L0$O-$O,$P&$S'$U&$V$T$T$U$S$R$M$N $K$H _Z#X#U#T#R#P#O#M#J#I#G$G$F$D$C$B$B$?#?#:#9#9#=#?#D#@#?#>#<#<#?#>#=#;#:#8#5#6#7#6#4#2#3#/#0#1#0#/#*#$#"##########"#+#38,8$,1D,.,4$,5$#,;$),@$/,B$2,B$6,@$8,7$>,1$=,*$6,($2,($,,0$,,.$1,2$3,6$2,8$/,7$-,4$),/$&,.$,0D,G,ALs,iLa,s`#`#t$t$`ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ Z$^$`$^ #[ #Z #V #T #S $T $W $\ % # # # # # # # # # $ $ $ !$ ,$ /$ 3$ 8$ >$ C$" I$' O$- R$/ W$5 ]$= _$D b$J Z # V #T #;V # V<2$; X<)$6$T>$Q8$R6$X6$Z5 1$1$4$3$5$5$8$;$=$=$A$D$D$E$H$H$J$I$J$L$N$R$T$X$\$^$_$\$W$V$T$T$U$V$ _\#W#Y#T#W#R#N#L#B#D#;#8#5#1#/#1#4#4#.#*#*#.#/#-#-#/#/#'#$#"#!###%#&#(#*#+#-#/#2#5#3#2#4#3#4#;#0IXK$VI$SJ$QK$QM$SP$PP$NR$LT$OW$LW$IY$KZ$K]$Hń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _-,6<,3D,0,3$,3$",8$&,<$,,?$0,>$9,:$<,2$=,)$7,($,,0$,,/$3,4$6,7$3,8$/,4$),1$&,/$&,/$,1D,2D ,ڢ ڣڢÄڢ    š Í ÄU ǐɄ: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;; _\`;;<9!;######$7$;$H$Y$[$[L$;$ $$# ######## ##"#*#,#,# ##$*%3$'6$)C$H$[$## ##!#'#.#2#3$2 $0p,UxUxRB@@@^jpժժժ@/8@pxO$Q$S$U$R$Q$(#)$'#####  # #  # #b\#\#b$cc$\JALsiLaߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ _/$ C$" I$' O$- R$/ W$5 ]$= _$D b$J Z # V #T #;V # V<2$; X<)$6$T>$Q8$R6$X6$Z5 1$1$4$3$5$5$8$;$=$=$A$D$D$E$H$H$J$I$J$L$N$R$T$X$\$^$_$\$W$V$T$T$U$V$ _\#W#Y#T#W#R#N#L#B#D#;#8#5#1#/#1#4#4#.#*#*#.#/#-#-#/#/#'#$#"#!###%#&#(#*#+#-#/#2#5#3#2#4#3#4#;#0IXK$VI$SJ$QK$QM$SP$PP$NR$LT$OW$LW$IY$KZ$K]$Hń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  0 pnpЂe :sentЀ8@`mors :o~@x~Шըood reas@@0 t:The wp00~``qp80Њ@AACcՀ݊ppxp Р@`~9|Ԫ ` @op@y0F08F`@q`@p@Ac{Ѐjz?p>>x< @Њ`78 p `xЪe: gx:s0`p8F0etter idv`@q t: t:Le@@q00Ђof the t@cՂpрm:%y thy@px@ eight ye@@x0:return 0 ~|8e sailed0`| :could `0F0nce likeЂ >`@s go :by@?p?on, and @g_$ ? t: u ` @@}`@|X@p@a|Р _##### # ######!#"#$#&#)#.#)#$#%#'#(#<F#C#@#=#<#<$<$=: $?$D$F$I#F$R $O$J)#(#&$& 0######$$$$$1$5$8$A$B&$"١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ $$$$3#3#3#3$3 $3##### $ $ $ $ $#$#$$$$C+á9 ٓ/! !!$3$3)$33 $3+$33$38$3D$3G$3K$3Q$3X$33$3$3#$3($3,$3/$33$3:$33#3#3#3#3#3#33#3#3#3#3&3,$31$34$3;$3C$3E$3K$3T$3W$3_$3 $$$$$$$$$$ $$$$$ _#######$ $ $$###################$$$########3#3#3#3#33#3#3#3#3#33 $3$3~n$ . t: `p@C0X:Alaska.x@@8orn m:%y~p a bette@ @```|;ach of t~0>Ԁ8|~@s@<ؠ8``@C<xxo@XxGx` @``p>00`g`18<j?`aACՀՂ"$*$;$J$]$_$^$Z$S$5$ $8#6#3#1#0#1#3#8#;#=#=#92#)%#$$ $!$&$-$)$$$ $$$  ޤ uš  gá  Ä+ޤ  ɋ _4#4#4#3#3#3#4# 4#4#3#3#33#3#3$3 $3$3'$3*$37$3C$4J$3Y$3g$3s$3## ##$#6#B#M#V#\$_$` $_+$^5$[:$XC$PF$KN$?#  $$#$$(9$+E$,L$/P$3Q$7I=X<9%H+$K0$L3$J5$I4$F@@p8ptheir bopq`<76 men. Cp`8  :Kamchap`@xad to tr`8@~ed the c<@~`xs about `xAery bravZ$@i$>T;[$<c$9k$2T:]$6d$1h$.j$)H<@$=7$;-$5#$)G;>$77$32$.*$#J9B$4<$-9$(7$ L:G$3D$,B$%C$ ١á  ޤ uš  gá  Ä+ޤ  @{@>@8n you gep8~=@gx:botha`@n:saw lan@`w@px :get t@`xx8:promo u``pp :return p<~in a hur|`x miss a tx3@`g@es0;v0,3@o`p`pre fur t8`~p than a @xA@boat and@``cand he t`xp` d. It  0pXiles w:5@ySaint El@7@p @he Russip@@lationsh``0the Aleu@@t:Finall@<iled offpxp Chain. <8`ch!adven8@} :take >@8`uresome p>`the sea  `p0e rest ox`?pea otter@p<  :lost <p?`r crashecpeter saw8p@M` water sp@``re terri`@^7ed to huF;`~@realize p}8xp8darka u:TT**TT**TT****TT**TT**TTT (P @TTTT @ P( \$$_$#Y$!S$"8$;$&>$&A$%B$#A$"@$"?$!<$"9$#FO$U$V$ML$Q$QT$E+$Ok$<L;$K=$HA$JB$LJOL$LS$OUFV$C]$E>A@$>C$=I$@432$5437$2=$4E6H$4N$7W4Y$0]$/b$2Ä+ޤ  ɋ _1.5$ 8$7$C$>F$E J$K O$Q S$W W$[ Z$`^$eb$eh$j$k$n$q$#r$'p$*m$+l$,j$+j$.,31$/=$,I$*T$+b$-n$/o$3n$6j$9g$@c$H]$PT$TG$V=$U7$S3$M0$C,$3@+C$(E$%F$"D$W+P$'N$#S#V$%#### ######## #$##### ١á  ޤ uš  gá  Ä+ޤ  ɋ _/#!############"#-#/#.#/#.#/#0#M#R#U#V#U#R#O#B#0#$$$######+#)#'###,#*#'#$#(;$$;&### ##ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:O$Q$S$U$R$Q$(#)$'#####  # #  # #b\#\#b$cc$\JALsiLaߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ $E$D$@$>$=$A$?$A $B$@ $>$: $8 $8$:$9$7 $5$3$2$.$,$)$($'$% $"$" $$$$$$$!$!$(%$-'+"$($% $#"$##$%'$'+$,.$&2$%5$"7$"9$ ;$"=$@$ D$I$G$I$I$J$M$R$S$M$#5#:#<#<#7#8#6#5#5#9#;#:#6#4#3#2#2#1#/#/#.#.#3#0#2#0#0#3#-; ZDX$EV$GU$GP$CO$CN$DP$FL$FI$CG$CA$G@$G>$J;$J9$K9$L3$L0$O-$O,$P&$S'$U&$V$T$T$U$S$R$M$N $K$H _Z#X#U#T#R#P#O#M#J#I#G$G$F$D$C$B$B$?#?#:#9#9#=#?#D#@#?#>#<#<#?#>#=#;#:#8#5#6#7#6#4#2#3#/#0#1#0#/#*#$#"##########"#+#3@p`Ogurn g:es@ethods. """""">"""""""AAAIUcABFJJRbB>******AA"">>""">"""""">"""BFJJRbB"  "BFJJRbB _,#,,#,,#,,#,,#, ,# , ,# ,,#,,#,,#,,#,,#,+#++#++#++#++#++#++#++#++#++#+,#,,#,,#,,#,+#++#++#++#++#++(^BB#;;#;;$;;$;;$; ; $; ; $;;$;<$<<$<<$<<$<<$< <$ < <$ $,,;$,, _,#,,#,,#,,#,,#, ,# , ,# ,,#,,#,,#,,#,,#,+#++#++#++#++#++#++#++#++#++#+,#,,#,,#,,#,+#++#++#++#++#++# < <# < <# <<#< <# < <# < <# < <# <<#<<#<<#<<#<<#<<#<<#<<#<<#<!<#!< <# <<#<<#<F,>$,;,;$,9,pr:lg j:start *answer th:$t$ a:$a$ u(len(%b)<1):clear jc:answer e: *return t: th:Press RETURN to continue... a: g:es e: *yorn th:$y$ a: u(len(%b)<1):clear jc:yorn m:%y!%n un:clear jn:yorn e: *clear g:x31,31,11 e: *number th:Please type a number 1, 2, 3, orons. : Please type the number of the correct :answer and then press RETURN. g:m0,340;d559,340;v0,39,12,23 u:return t:What were the people in Kamchatka :most interested in when the survivors :of the Bering voyage returned? t: u:number m:%1 cy:r=r+1 c:t=ectly! c:p=int((r/t)*100) t(s<>3):So far, you have answered #p % :of the questions with the right :answer, $n$ . t: u:return g:es0;v t:1) sea otter fur 2) Russian hunters t: t:3) Aleuts 4) finding new homes t: t:The following are matching questi:or false? t: u:answer m:%f!false!%n!no cy:r=r+1 cy:s=s+1 c:t=t+1 t: thy:Excellent, $n$ , you know what :happened. t:Bering was shipwrecked and died near :Kamchatka. t: t(s=3):Very good, $n$ , you answered :all three of the True/False questions :corrhat is :your answer, $n$ ? True or false? t: u:answer t: m:%f!false!%n!no cy:r=r+1 cy:s=s+1 c:t=t+1 ty:You got it! You are reading very :carefully. tn:It took about 40 days. u:return t:Bering went back to :Russia after his second voyage. True True or false? t: u:answer t: m:%f!false!%n!no cy:r=r+1 cy:s=s+1 c:t=t+1 ty:Very good, $n$ ! tn:The correct answer is False. The :boats were the St. Peter and the St. :Paul. u:return t:It took only a week for Bering to go :from Kamchatka to Alaska. We a :perfect score. Keep it up! c:s=0 u:return t:The answers to the next three :questions are either true or false. :Please be careful! g:v0,39,5,23 u:return t:On the second voyage one of Bering's :boats was named the St. Albert. Is :that correct? tn:At 80 feet his boats were a lot :smaller than a 300 foot ocean liner. ty:Of course. t: t(s=2):Congratulations, $n$ ! You got :both of the last two questions correct. t(s=3):At this point, $n$ , you are #r :for #t . t(s=4):Outstanding, $n$ , you havede Islands near :Russia. ty:That was a hard question but you got :it right! t: t: t:Did Bering have boats larger or :smaller than the ocean liners of :today? a: t: m:small!little!short!not&larger cy:r=r+1 cy:s=s+1 c:t=t+1 swered one question :correctly, $n$ . t(r=2):Good for you, $n$ , you answered both :questions correctly! u:return *more c:s=0 t:Where did Bering go on his first :voyage, $n$ ? a: t: m:diomede!island&russia cy:r=r+1 cy:s=s+1 c:t=t+1 tn:He got to the Diomat!chart!weather!co :mmunica!tele cy:r=r+1 cy:s=s+1 c:t=t+1 ty:Of course! tn:With all the fog and ice, no one had :made a map to show the way. t: t: t(r=0):Would you like to start over, :$n$ ? tc: uc:yorn m:y jy:start g(r=0):es jc:more t(r=1):You have anthy:Most of the people from Europe went :to the Lower 48. m:asia!russia tn:The first white :people in Alaska were Russians who :came from Asia. t: t: t:Why didn't the Russians know if North :America was close to Asia, $n$ ? a: t: m:fog!ice!maps!navigso :be careful how you answer, $n$ ! t: u:return t:Where did the first white people in :Alaska come from? a: t: m:siberia!asia!kamchatka!russia!land&br :idge!sea cy:r=r+1 cy:s=s+1 c:t=t+1 thy:Absolutely! You really were paying :attention! m:europe hr(11) d:a$(30) d:t$(46) c:t$="Please type your answer and then :press RETURN." d:y$(74) c:y$="Answer yes or no and then :press RETURN to continue." *bypass t: t:Please type an answer to each :question and then press RETURN. t: t:Spelling is important, 4. a: mx:%1!%2!%3!%4 g:x31,11 jn:number e: *start g:v g:es c:r=0 c:s=0 c:t=0 t: t:Here are some questions for you to :answer. Remember, these :questions are about things which :happened long ago. j(b=1):bypass c:b=1 d:t$(1) c:t$=chr(25) d:c$(1) c:c$=ct+1 ty:That's all they cared about, $n$ ! tn:They were most interested in profits :from sea otter fur, $n$ . t: u:return t:Who were the people with the most :skill in hunting sea otters? t: u:number m:%3 cy:r=r+1 c:t=t+1 ty:That's right, it was not the :Russians. tn:Think about it, $n$ . The Russian :fur hunters had to rely on the Aleuts :superior hunting methods. t: u:return t:Who traveled the length of the :Aleutian Chain in wooden boats? t: u:number m:%2 cy:r=r+1 c) c:t$="Please type your answer and then :press RETURN." d:y$(74) c:y$="Answer yes or no and then :press RETURN to continue." tx: t: Part One Russian Exploration t: gx:return g:v0,39,21,23 a:$n$ g(len(%b)<1):x31 jc:@a m:and!, cy:/n$ u cn:/n$ c c:q=ijc:yorn m:%y!%n un:clear jn:yorn g:es e: *clear g:x31,31,11 e: *clear4 g:x31,31,31,31,11 e: *start g:es0;v tx:people t: q pABCu v AbcABCjklAbcm ABC t: rspDEFwxy DefDEFmnoDefm DEF t: ptp$%&z,. Ghi$%&$%pGhi$%&$%& t: t: d:n$(30) d:a$(30) d:t$(46pr:l 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:Press RETURN to continue... a: g:es e(len(%b)<1): m:quiz!test!exam jy:quiz e: *yorn th:$y$ a: u(len(%b)<1):clear (^BB :from the beginning again. a: e: :about the Russian exploration and :discovery period of Alaska's history. gx:smiles t: t: Have a good day, $n$ ! w:5 g:es0 gx:logo! w:10 g:es0 t: t:That is the end of this lesson and :you may remove the diskette. t: th:Otherwise, press RETURN to start jc:done t(r<9):You got #r of #t right, $n$ . :That's great! jc:done t:You got #r right, $n$ . You are :a very fine student. Congratulations! *done t: t:Right now, it's time for some :other activities. t: t:Let's learn some more e total. as: g:es0;v t(r<4):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<7):You correctly answered #r of #t : questions, $n$ . Better review the :lesson again. :t=t+1 ty:What a brain you have, $n$ ! tn:Wooden boats were made by the :Russians, $n$ . The Aleuts made boats :covered with skins. t: u:return g:es0 t:Now I need a few seconds to :compute your final score. t: th:Press RETURN when :you're ready for thns(1,n$," ") c(q>0):/n$ u g:es0;v t:This is a true adventure story, $n$ . t: t: t:As you go through the program, try t: t:to imagine that you are one of the t: t:people who was involved in this t: t:adventure. t: t: u:return g:es;v0,39,15,23 t:People from Europe and the British t:Isles were the first non-native people t:to settle in most of the United :States. gx:bothaa u:return g:m175,450;tAsia t:What, do you think, is the name of :the one state whose first white :settlers came from Asiather. The St. Paul :sailed for about 40 days. The crew :first saw land in Southeast Alaska. gx:stpaul1 u:return th:It took them almost 3 months to get :back to Kamchatka. gx:stpaul2 t:They were lucky to :get there at all! u:return gx:bothaa! t:At althy:I think you are right, $n$ . thn:Well, maybe not, $n$ . t:When you get a chance, measure your :classroom to see how big 80 feet by :20 feet really is. u:return g:es0;v0,39,14,23 gx:bothaa! t:The two ships soon lost each other :because of bad weat:It is hard to believe, isn't it, :$n$ , that they traveled over 5,000 miles. u:return g:es0;v0,39,0,11 gx:sh!ps t:Each of the two boats was about 80 :feet long, 20 feet wide and carried :76 men. t: t:Do you think it was crowded, $n$ ? t: u:yorn m:%y 1,000 miles. :Try again. jc:notnum t(n<2500):It was more than twice that :far. Try again. jc:notnum t(n<4000):You're warm. Add some more and try :again. jc:notnum t(n<5000):You're close! Add 1,000 :miles and try again. jc:notnum *outnum g:es between 1 and 9,999 :miles. je:notnum j6:outnum t(n<0):Please type a positive number. jc:notnum t(n>6000):It wasn't quite that far. :Try again. jc:notnum t(n<100):They probably went that far :the first week. Try again. jc:notnum t(n<1000):It was overeria. u:return t:They carried most of their supplies :and the materials to build :their boats a very long way. u:return t:How many miles do you think they :traveled across Russia, $n$ ? *notnum t: th:$t$ a:$a$ g:es c:/a$ /,/ c:n=flo(a$) te:Pick a numbert:Bering could not see any land because :of the heavy fog so he turned back to :Kamchatka and returned to Russia. u:return t:It took eight years to get ready for :the second voyage. Bering and his men :had to travel all the way across :Russia and Sibturn t:On his first voyage, Bering :followed the coast of Kamchatka, :going North. He sailed to the place :where the arrow is on the map. gx:arrow1 u:return t:The arrow is about :where the Diomede Islands are. u:return re very brave. thn:Good thinking. t:There certainly would have to be a :good reason to take a chance like that. u:return *test g:es0;v0,39,17,23 gx:unknown t:This is the kind of a map that :Bering had to follow. It is not much :to go by, $n$ ! u:reld :most of the year. The only navigation :tools were made to be used when the :sun, moon, and stars could be seen. gx:ships u:return t:Do you think you would want to risk :sailing in a little ship in those :conditions, $n$ ? t: u:yorn m:%y thy:You a:there, knew about Alaska, $n$ . u:return t:What do you think that reason was? t: u:answer g:es0;v0,39,0,11 m:weather!fog!cold!ice!dark!storm!sun!m :oon!star!navigat!chart!map!communicat! :climate thy:Very good, $n$ ! t:The weather was foggy, icy, and coto Asia. u:return t:Most of the rest of the world had :been mapped by this time. There were :only rumors of land in this uncharted :area. u:return t:There was a good reason why no one, :except the people who already lived ter the Great was the :ruler of Russia, very little was known :about the Pacific Ocean above the 50th :parallel. gx:where? u:return t:Peter was a very curious man. He :sent Vitus Bering to find out if there :was land and to see if it was :connected , $n$ ? t: u:answer g:es;m350,400;tAlaska m:alaska!ak ty:You are off to a good start, $n$ ! :That is correct. tn:Alaska is the state, $n$ . That was :a hard question. I'll bet :you get the next one right! u:return g:es0;v0,39,17,23 t:In 1720, when Pemost exactly the same time, the :crew of the St. Paul first saw land :in Alaska, the crew of the St. Peter :saw Mt. Saint Elias. gx:stpeter1 u:return th:As you can see by the route, they :got lost and circled round and around. gx:stpeter2 t:It took them 4 months to reach a :small island near Kamchatka. u:return t:By this time, Bering was sick and :discouraged. Food and water supplies :were running out and he thought they :should start for home. u:return t:Nearing Kamchatka, the St. Pet|``p@``|@@@0p`0@p(^0*quiz g:es0 l:exam e: :form family relationships. u:return g:es0 g:v t:That began the period of Russian :settlement which you will learn about :in the next lesson. t: t:Let's take a break from this story, :$n$ , and review the time of Russian :discovery. gx:smiles u:return 23 t:Finally, the Russians began to :realize that they needed the help of :the Aleuts because they were more :skillfull hunters than the Russians. gx:bidarka u:return t:When the senseless murder of Aleuts :stopped, Aleuts and Russians began to turn g:es0;v t:These were terrible years for the t: t:Aleut people. t: t: t:The Russian fur traders killed t: t:many of the Aleuts. Others were t: t:forced to hunt sea otters and had to t: t:travel far away from their homes. t: t: u:return g:es;v0,39,14,take real chances to get rich. u:return t:They built small wooden boats laced :together with leather thongs and :sailed off to the Aleutian Islands. u:return t:In less than 50 years, the fur :hunters had traveled the length of :the Aleutian Chain. u:re:sent them off in a hurry! t: t:What do you think they were after, $n$ ? t: u:answer m:fur!skin!pelt!otter!sea!rich!adventur :e!money!fortune!hide thy:You don't miss a thing! t:Sea otter pelts would bring a lot of :money and these men were willing to :glish, that's Promyshlenniki. u:return gx:promo1 t:These men were fur traders who had :roamed across Asia for years. Perhaps :your teacher can help you pronounce :Promyshlenniki. u:return t:The sight of all the sea otter furs from :the wreckage of the St. Peter and :returned to Kamchatka. u:return g:es0;v0,39,14,23 gx:promo2 th:The Russians who lived at Kamchatka :at that time were a wild and :adventuresome group of people called tx:russians t:abcdefghijklm. tx: t: t:In Ener :crashed onto the rocks and less than :a month later, Bering died. u:return g:es0;v0,39,16,23 gx:otter t:After a long hard winter, all the :crew had to show for their voyage :was a load of sea otter furs. The men :who were left built a small boat @xx8 `8`08@`he name p  e: p~xpΡ$@xp`  ۩ 㩃`<<ǩá~xgppp`šx|8f8`n @8:~>ˡ`}x@p ~8@?|8:~>~p@xpéx`x`ۤō  `00@@׮ `㥄```@|~x?@````x@`@`8<p ǩxg`x`x`?8@`͋ _uPLleLasLe LtyLpeL yLouLr LfiLrsLt LnaLmeL aLndL tLheLnupLreLssL tLheL kLeyL mLarLkeLdRLETLURLN+uILf LyoLu LgoLofL, LusLe LthLe LleLftL aLrrLowL_c$c$_$l$lb$XX$t$ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:0`i `@p@8ȡ$x`x@xé8Ä0=Qp8x@٩0==@@p`|< @@```@|`D;`x|~h<p40Kϩ0`੄0 šS@@@ppb@`x`@`~x?@@@?Ráp`@@p ǩ8t$Z$utLo LbaLckL uLp.LuYLouL mLusLt LwaLitL fLorL tLheL sLquLarLe LcuLrsLorLutLo LapLpeLarL bLefLorLe LyoLu LbeLgiLn LtoL tLypLe.Lqá  Ä+ޤ  (^BB @@P@@@AA!! T(*AAAAA@@U !A(DT*  RP U@ (((((((P(TdX@0!p#@@@`P PPPPQU *0 ****UU**%E%E  TPPPPPPP*TPPPPPPPUU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU**"*** **TT**TT**TT(((((**U@U((((((((89 t: t: t: t: t: Do NOT copy or modify this :diskette. w:2 lx:russians  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-36P* 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:russians  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(^BB89 t: t: t: t: t: Do NOT copy or modify this :diskette. w:2 lx:russians  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