&+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ӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒӒBBBBBBBBBBBBBBBBSH.FONTEe GOODBY.TEXT]RAFAW VEN!.FOTO AW VEN!.GRAF AW LOGO!.FOTOAW LOGO!.GRAFAW RUSSIANS.TEXT] EXAM.TEXT@] HELLO.TEXT@] SM!LES.FOTOW SM!LES.GRAFW SMAFW MINER1.GRAFW OUTLINE.GRAFW CREOLE.GRAFW DATE1.GRAFAW DATE2.GRAFAW DATE3.GRAFAW DATE4.GRAFAW DATE5.GRAFAW DATE6.GRAFAW DATE7.G VENI.GRAF AW SCRIPT.FONTe PEOPLE.FONTe RUSSIANS.FONTe WAVES.FONTEe SEWARD.GRAFW SEWARD2.GRAFW DOUBLE!.FOTOW DOUBLE!.GRAFW PICKAXE.GRALESSONS( RT0006.APPLEbh0 SYSTEM.PASCALbh0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPh RETURN.GRAFW SMILES.GRAFW SITKA.GRAFAW꽌ɪɖ'*&%&,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 á<<ˡ<*á< ̋ _;############;######################################### ##  # # # ### #- #'+)$$$##  $ $ $$$ $ $ $ $$*$3$$#$3$L @$F  Ä+ޤ  ɋ _ux#|##########$$$!$+$:$F$X$######### $"$#$$#################ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ: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 ;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Ȅ `š######################### ############################################# ١  n ١ á9 ٓ/! !!"""""">"""""""AAAIUcABFJJRbB>******AA"">>""">"""""">"""BFJJRbB"  "BFJJRbBTT**TT**TT****TT**TT**TTT (P @TTTT @ P( ****UU**%E%E  TPPPPPPP*TPPPPPPPUU**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ÍÍޢˡ ݓۤ ((((((((UU** **TT**TT**TT(((((**U@U((((((((UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**p@`@` X~0@`phabet fp@` 8@al skill `C`8`w;|`xf0` `|ussians `p@x@?\c|7 `nounce t| `;`0p`and :a @@@|<p|1>8 You ar@@p`qpp@$n$ . ` p`@~|<p`el becam<`p8@ Xqp`@`|{ent worl0xypp`8ish trapxp>8`|N@C0|`nn:/n$ c F0xc@`ief t: ` x0`8` type yo@@l`g0@00x@pThree @@x@1``@ear jn:y`8`xnp8`lAbcm A p0p|?`p`@cCwer g:es00`8`0RN to co%$'0$$5$!9$%B$"Q$U$ \$b$c$$$$á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _ALt LthLe LtiLmeL, LcaLrtLooLnsLsLhoLweLd LpiLctLurLesL oLf LSeLwaLrdLCaLndL hLisL "LIcLebLerLgiLa"L.u###### ###!#&###%#&###&#!#%#$ $ $$$$$"#$#######################{#z###########################;ɋ _## # #######|# w#u#u#v#w#x#x#z#~#######################################`3d0oW:}oW:}oGx}`3d0d8l8UU**@@@0@``08 the Rus` 8``pgx`@`ho were `?`p8Gypp `eturn t:``Xp `@38cways pos8x0@@008|`L@X@@@p|x<@p~}8F@ @7@0~8@@88~@88p00@~pp~08`w0@|c96pq`p@0@ 8```@>`@q`gp @@p0@80@|?`\`X@0<````NoF@ >30 @@|pp6xpp0088`>88`g1@_8``?x`7@gp`@0@8t of Ala` p@`@cp~`@am e: @`< 0|0`psted 126`x`@0awn into88@C _/#!############"#-#/#.#/#.#/#0#M#R#U#V#U#R#O#B#0#$$$######+#)#'###,#*#'#$#(;$$;&### ##ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _1$5$3$1 0$"+$'!$-$0$3 $4$6$4'$17$)?$$H$M$P$S$N$ I$B$>$8$7<$D$H$R$23$$8$%7<$=$"  š Í ÄU ǐɄ:/13:! šá٢. n b@T& LD PDRAW C#C2#4#5#8#;#=#>#?#>#<#8#5#4#1?#JE#Eɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ#######################+#/#0#/#.#,#+#,#++#-#.#/#.#-#,#+#*#+#+4#5#6#8#:#<#>#>#<#:#7#5#5#3>#G### ######"}#&w#/v#%x#{####################$#########################-#,#*#'#$###%#&#'#%######### #####$ $$$' $1$,$'$#$$$ $ $$$############<$ $## _############# # ############### ####%#,#1#4#3#1#-#-#+#(#'#(#)#(#%#!#####"#(#.#1#2#1#0f<ppx18<` @88 `l`0``~double! @@l8`0p`@xG@8p@L@A0`pg` `<g` `` p>@98@0`88`pp0@N@x@9```np80G@`qpa8@ p@lx@8`pp #### ######## #$##### ١á  ޤ uš  gá  Ä+ޤ  ɋ _$}$z$w$q$o$m$f$e$`$^$]$Z$Z$U$S$Q$N$N$Q$O$Q$Q$O$K$G$C$A$@$<$:$9$>$@$@$=$<$;$=$>$=$?$B$F$J$J$F$E$H$I$H$C$B$A$<$4$4$,$.$1$0$,$ _ 1L84L2,$,$,$,$,$,$ , $ , $,$,$, $+$+$+#+#+#,#,#,#,#,#,#,# ,# ,#,$, $,$,$,$,$,$,$,$",$$,$!,$!,$ ,$", š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _H1L83L85#8#<#@#B#D#F#J#G$H$K$N$U$T$V$Y!$X&$[)$\-$[,$Yڢ ڣڢÄڢ    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _ 1L8 3L0  $ $ $ $ $ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _CLreLolLesL wLerLe LthLecLhiLldLreLn LofL RLusLsiLanL aLndLnLatLivLe LmaLrrLiaLgeLs4 ,33  š Í ÄU ǐɄ:  ގ‹ zVۢڤޢ ȡUڤ ˡB########################}~#xz#uu#u#pBPTEXT2:SYSTEM.LIBRARY-$-$0$0$2$3$3$5$4$6$9$7$6$5$############# ################## ##############$W $W$$Y&$Z,$Z-$W0$S3$P2$S5$T8$R:$P<$N=$M?$NA$OF$PH$NI$MM$MO$NS$LU$M[$K^$Mb$Me$Ki$Jm$Ir$Ju$Hx$G{$F}$E$E~$J$I$N$M$O75$4$2$1$4$5$8$:$9$8$30$/$/$-$,$.$,$+$)$($)$,$$$########### #"#"#!#"#$#%#'#)#*#+#*#,#-#.#-#*#)$& $( $*$+$/ $. $, $+$*$+$,$. $0$3$5#8#;#>#A#B#D#E#H#I#F$G$I$K $N $Q $S$T$S$V$$$$$$$$$$$$ $$$ $ $ $ $$$$$$############################# # # #$  $$ $ $ $$$,$($&$#$"$$$$$$$$ $ $$ $ $$$$$####################################$$ $$$$$ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _$ 1L84L3, $,)$,/$,6$, ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ    š Í ÄU ǐɄ:``=`A@?f was thepp`<:x30,32, p``@ Alaska 8`@c@You got 0` many :px@ t: t:A.s3dy to tN]q8@=nch, and`@```qsue... as`a@G>e letterx `p`Aer an Ap@A@: th:Ple`r t: th:@@8 8):clearń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _g$1L86L3 $ ####$$$$ $ $$$ $ $  $ $$$$.$6$=$E$I$"L$&O$(V$*[$,_$(`$%b$"g$ i$n$ q$t$w$}$ š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _W1L84L7-L48Lc3i$3h$3d$3e$3f$3i$3h$3e$3c$3a$3`$3]$3[$3\$3_$4a$4e$4f$4ڢ ڣڢÄڢ    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _1L84L4+ $+$+$+$,+$+$$+($+)$+/$+!+($+-$+0$+3$+2$+2$+ڣ ڢڢ ڣڢÄڢ    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ;G3X created@`o=7|iest who w@ gy:m0,0<`@ver? tc:0p@A`x{n$ ! t(uf  o :comp 0Gp? u:aske@py`@}{last #s `@@thy:Abso ` s hey explppx[{1 cy:s=sp`}vYin :Ame00FA`qaply the N The name 08@00r<3): tc@`O{ :questi`a@q10 g:es `7 to figu@ma8Xnch, and<`pC{oy ecoming p8@sAA@cC make mo  8<|Boy are  0@1<0ing. t: p`er j(s=n@c@schools @` > was ???@_cXu:annwerp`c{pLsian pri`p~AGA answer. 80p<<g 8.  0`q8 You got0` is the x;|xOs . :Th@p~_8 right, ~p@now, it' ` 8@c iles t: p``@x\x, @`nue... a`~*U~?@`X֪8pߊȁt: t:be p``j`Վ8@`k0@her an @8@sXx.|pȈH@t: th:Pl`Wzժժժ.=p@`er t: thxp,=`|תW81RB2 x>8):clea١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ##################### ١  n ١ á9 ٓ/! !!######################### ######################## _;############;################################### ~8|Lis the e8`a: e: .@s`AC@6:a fine gwbout the0@` total. @p``qver the |~@0the next ` 0@at: *all3|xlMcestion tp0 p: t: tc:8`@A`wskokwim!Ff  on :fo 0@`iskette.@<>`@a. t: u:r@pG|+u?Uz@ @@!$D. t: t: 8.u`U~pRbprpB@Agan to e|`@@W:ުժ.u`` Alap@8.pުW8RpBp` xood starxpxp?@\ܪ8@: t: c:n_*U*U*U*=8~@l! *last`p8p:8p@ך+@as. u:ann~@<@X<,m?xhad to c@~0pU8`պ0Ux=1):Yes,`` @@+x`@p:@8x furs we`Wj|*p$her thin@`+ߪժ^jpab`psaaB`|rn *q9 g@`@@\< @, the ot8|*U*U*Uj@`߈πƈj:nodup @8ppz0@@`՞@+`a1 jc:q7.8x@Xp.pπψNow, $n$x|08`Up?՞8U@@'s rightx + >`x:```acc@ys t:Anot`^*_*AGians in @+=x?Wz~@0B@ t: u:re`@|@p_?, @ time, $0`/U*U*U~@q֪xȀȈɀt:4. mi`pj0px~Վ@+ppe. ac: mp@@X@.p@nt, $n$ |@pp`U@ת@ת#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@@is the e@^jpժժժ@/8@pxa: e: @c`~~@@\ު8`ߊLJLjLJ student?`xO/U~~+U`xpACe Russia|cX:`׺/nώLJ@G@ΈLJ a: g:v `8x~@@p\|, @p :progrx@@U "1"A@ x They we@\j@ժժ`+ `~n t(r=n) <p~`@\ܪ8@@ߍ th:Othe>Uj@W*U`An *q13 t~x:8׺+g@@ some :@p`~`@a?X`, x@ Have a`x8u@<`UN ' @ xight forp`+׺@`pj0`hat's gr8|qU>@/u asAbpcqpsbApc"@cAC1):Good @xx*<ժժp* `xinal sco0?@?p@\ܪ8@p߈result, pW*U+U*uppestions x|p:<׺+@c@@ with yo|px@X, p|_ad for tCaLDCrLD&C#CCCLDC;CYCKC L1D9L8D1LD!C CtLD-C&$C&C&$C'#'$#-$-'$'-$-'$'-$-'$'-$-'$'-$U$#U$U$$U$ޢޣޣߢ  dÍÍޢˡ ݓۤ (^BBactical :skills. gx:creole u:return t: g:es0;v1,10,1,21 gx:outline t:During the years between 1820 and :1867, the Russians explored much of :interior Alaska. u:return t:Do you think this had any effect on t:the people who were living in these :areainov learned to speak t:both the Tlingit and Aleut languages. t:He also created an alphabet for the :Aleuts. u:return t:The priests conducted schools for :Native, Creole, and Russian boys and t:girls. They learned reading, :writing, arithmetic, and pr:built Cathedral. u:return g:es0;v1,39,1,7 t:The most outstanding group of :Russians were the Russian Orthodox :priests. gx:veni u:return t:This is Father Veniaminov. Don't t:worry, $n$ , I won't ask you to :pronounce his name! u:return t:Father Veniam u:return t:There was a hospital, a theatre, and :a library. t: t:What else do you see in the picture? t: u:an5wer m:church!cathedral!cross!chapel!build!s :teeple!dome ty:Of course, $n$ ! You are right. t: t:There are crosses on top of the newly the Pacific. t: t: t:Let's see what happened, $n$ . t: t: t:Don't forget the quiz! Remember, t: t:it pays to read carefully. t: t: u:return g:es0;v27,39,1,18 t:New Archangel became a fine city. gx:sitka t: t:By 1850, there were many new :buildings. t: t:They were also living in a very t: t:different world. The old rough and t: t:ready fur trading days were gone. t: t: u:return t:American, British, French, and t: t:Spanish trappers and traders were t: t:everywhere. They all wanted to t: t:control a:$n$ g(len(%b)<1):x31 jc:@a m:and!, cy:/n$ u cn:/n$ c c:q=ins(1,n$," ") c(q>0):/n$ u g:es0;v0,39,1,23 t:Things in Alaska changed after t: t:Baranov died in 1819. The new Chief t: t:Managers who followed him cared more t: t:about rank and wealth. t: t:t: d:n$(30) d:a$(30) d:t$(49) c:t$="Please type your answer and then :press RETURN. " d:y$(53) c:y$="Answer yes or no and then :press RETURN to continue. " tx: t: Part Three Russian America t: 1820-1867 gx:return g:v0,39,21,23 un:clear6 jn:yorn6 g:es e: *clear g:x31,31,31,11,13 e: *clear5 g:x31,31,31,31,31,11 e: *clear6 g:x31,31,31,31,31,31,11 e: *start g:es0 tx:people t: q pABCu v AbcABCjklAbcm ABC t: rspDEFwxy DefDEFmnoDefm DEF t: ptp$%&z,. Ghi$%&$%pGhi$%&$%& t: est!quiz!final jy:exam e: *eraser t: th:Press RETURN to continue ... a: g:es0 e(len(%b)<1): m:exam!test!quiz jy:exam e: *yorn th:$y$ a:$a$ u(len(%b)<1):clear jc:yorn m:%y!%n un:clear jn:yorn g:es e: *yorn6 th:$y$ a:$a$ u(len(%b)<1):clear6 jc:yorn6 m:%y!%n pr:l j:start *an5wer th:$t$ a:$a$ u(len(%b)<1):clear5 jc:an5wer g:es e: *answer th:$t$ a:$a$ u(len(%b)<1):clear jc:answer g:es e: *replys th:$t$ a:$a$ u(len(%b)<1):clear jc:replys e: *return t: th:Press RETURN to continue ... a: g:es e(len(%b)<1): m:exam!ts, $n$ ? t: u:yorn6 m:y ty:You are right. tn:There were effects. t: t:Wherever Russians went, they brought :change. t: t:The effect on the native :people was not always positive. u:return t:The Russians explored the rivers and :the coasts where most of the native :people lived. t: u:return t:Let's look at the routes of several :trips they took. t: t:The first was on the Nushagak river :in the Kuskokwim Delta. gx:date1 u:return t:Then, along the Northwest coast from :Kotzebueheritage. t: u:return g:es0;v t: t:Now it is time to see how much you :remember, $n$ ! gx:smiles u:return *exam g:es0 l:exam e: :missions were established. t: t:Coasts were charted and Alaska was :drawn into the world economy. u:return t:To this day, $n$ , you will hear :Russian names and see Russian churches :in Alaska. t: t:Some Russian customs are also part of :the Alaskan *yesnam t:For years the purchase of Alaska was :known as "Seward's folly." gx:seward2 u:eraser gx:double! g:v24,39,1,23 t:The Russian American part of :Alaska's history lasted 126 years. t: t:During that time, settlements and e for the purchase :of Alaska so I will know that you are :paying attention, $n$ . gx:seward t: u:answer m:seward thy:Of course. He was the Secretary of :State. jy:yesnam c:/a$ c thn:I don't recognize the name $a$ . :William H. Seward was the man. :return g:es0;v t:$7,200,000 for all of Alaska! t: t: t:Just think, $n$ , t: t:for that small amount of money, t: t:the United States got t: t:375,296,000 acres of land! t: u:return g:v0,39,1,8 t:Please type the last name of this man :who was responsiblt:their energies on the home land. t: t: t:William H. Seward arranged a sale t: t:and the United States bought t: t:the Russian territory for about 2 t: t:cents an acre. Even then, most t: t:people in the lower 48 thought t: t:it was a bad bargain! t: uuses. The Russians :had to use something that couldn't be :made into tools or weapons. u:return t:When the profits from Alaska started t: t:going down, some of the Russians :began t: t:to feel that they should concentrate t: metal coins? t: u:replys m:indian!tool!beat!pound!knive!spear!ar :row!weapon!hook!ring c:y=y+1 t: thy(y>2):That's three in a row! th(y=2):You got 2 out of three! j:skips thy:There you go! *skips t:The metal was worth more to the :natives for other :return t:Why do you think they didn't use :paper? t: u:replys m:cost!expens!money!afford!scarce!hard! :no t: thy:Right on! cy:y=y+1 t:Paper was very scarce. It was :too valuable to be used for money! t: u:return t:Why do you suppose they didn't :uset:In those days the Russians used an :interesting kind of money that was :not made of paper or metal. t: t:What do you think they might have :used, $n$ ? t: u:replys m:leather!skin!hide!fur!animal t: thy:Good for you! cy:y=1 t:It was made from skin. uclined sharply, $n$ . gx:miner1 t: t:The Russians tried ship building and :mining to make money. gx:pickaxe u:return t:They even built an ice plant near :Kodiak and shipped blocks of ice to :California! u:return g:es0;v c:y=0 a two year trip up the :Copper River. gx:date6 u:return t:Finally, a long trip on the Yukon :River. gx:date7 u:return g:v1,10,1,21;es t:They also drew maps of all the areas :they visited. u:eraser g:es0;v1,39,16,23 t:During this time, the fur trade :de Sound to Barrow. gx:date2 u:return t:There was a trip in the Yukon Delta, :$n$ . gx:date3 u:return t:Followed by a short trip along more :of the Yukon :River. gx:date4 u:return t:Next, they explored the Kuskokwim :River. gx:date5 u:return t:And then, (^BB:s1 jc:s2 t(r=4):Congratulations, $n$ ! You got :all of the first four questions :correct. t(r<>4):At this point, $n$ , you are :#r for 4. u:return *s2 g:es t:Here is the next section. These are :matching questions. t: t:Your job this time, $n$ , is is correct! cy:r=r+1 thn:Father Veniaminov created the :Aleut alphabet. t:He also worked with the Tlingits. t: u:return g:es0;v t(r=0):Would you like to start over? tc: thc:If so, please type Yes. Otherwise, :press RETURN to continue. ac: mc:%y jcyt: A. The priest who created the t: Russian alphabet was Father t: Veniaminov. t: t: B. Father Veniaminov was the Russian t: Orthodox priest who created the t: Aleut alphabet. t: u:answer jn:q4 m:b gxy:ven! gy:v0,39,0,7 thy:Thathe center of Russian t: America after Baranov died. t: u:answer jn:q3 m:a gy:v28,39,3,18 ty:Good job, $n$ ! gxy:sitka cy:r=r+1 tn:After Baranov died, Sitka was the :center of Russian America. u:return *q4 g:es0;v t: t: Alaska after Baranov died. t: u:answer jn:q2 m:b tn:The people who took over were Naval :officers. ty:You got it! cy:r=r+1 u:return *q3 g:es0;v t: t: t: A. Sitka was the center of Russian t: America after Baranov died. t: t: B. Kodiak was trs from many :nations, $n$ , but no Japanese. ty:Absolutely! Good start, $n$ . cy:r=r+1 t: u:return *q2 g:es0;v t: t: t: A. Officers from the Russian Army t: managed Alaska after Baranov t: died. t: t: B. Russian Naval officers managed t: th:RETURN. as: *q1 g:es;v0,39,0,23 t: t: t: A. The Japanese began to explore t: Alaska in 1820. t: t: B. The British, French, and Spanish t: were exploring and trapping in t: Alaska in 1820. t: u:answer jn:q1 m:b tn:There were exploreyou to t: t:answer, $n$ . They are tricky, so t: t:be sure you read carefully. t: t: t:Please type the letter in front of t: t:the correct answer and then press t: t:RETURN. t: t: t: t: *s1 c:r=0 t: t: t:When you are ready to begin, press t: a: m:a!b un:clear4 jn:answer t: g:es e: *asker t: th:Please type your answer and then :press RETURN. a:$x$ u(len(%b)<1):clear4 jc:asker e: *return t: th:Press RETURN to continue ... as: g:es e: *start g:v g:es c:r=0 c:s=0 t: t:Here are some questions for one is correct? Please type :a number from 1 to 8 and then :press RETURN. a:#n ue:clear4 je:annwer u(n<1):clear4 jc:annwer u(n>8):clear4 jc:annwer g:es e: *answer t: t:Which one is correct? Please enter :either an A or a B and press :RETURN. pr:l d:t$(1) c:t$=chr(25) d:c$(1) c:c$=chr(11) d:x$(16) j:start *yorn th:Please type yes or no and press :RETURN. a: u(len(%b)<1):clear2 jc:yorn m:%y!%n un:clear2 jn:yorn g:es e: *clear2 g:x31,31,11 e: *clear4 g:x31,31,31,31,11 e: *annwer t: th:Which to :pick the number of the correct answer. t: t: t: u:return t: t: t: t:1. furs 2. ice 3. wheat t: t:4. mining 5. schools 6. rocks t: t:7. ship building 8. railroads g:m0,300;d559,300 g:v1,38,11,23 *q5 g:es t:The Russians in Alaska sent ??? :to California packed in sawdust. u:annwer t(n=2):That's cool, $n$ . cc:r=r+1 t(n<>2):It was ice, $n$ . t: u:return *q6 t:In addition to their churches, The :Russian priests were also responsible :for the ??? u:annwer trogram again. jc:done t(r<11):You got #r right, $n$ . :That's great! jc:done t:You got #r right, $n$ . You are :a fine student. Congratulations! *done t: t:Right now, it's time for some :other activities. t: t:You'll learn some more :about the Rht. t: g:es0 t:Now I need a few seconds to :compute your final score. t: th:Press RETURN when :you're ready for the total. a: g:v g:es0 t(r<6):You got #r correct, $n$ . :That's all right for the first time. :Perhaps you would like to go over the :p:result, their lives were changed :forever. c:r=r+1 t: u:return t(s=3):You did it, $n$ , you answered :all of the last three questions :correctly! tc: jc:q13 t(s=1):That's okay, $n$ ! t(s=2):Good job, $n$ ! You got #s of :the last three questions rig see :when they explored $x$ . t: u:return *q13 t:Do you think these Russian :explorations were good or bad for the :native people of Alaska, $n$ ! t: t: u:yorn t:Perhaps. They were exposed to many :new ideas and ways of life. As a sker m:everywhere!coast!interior!rivers!all& :over!yukon!kuskokwim!copper&river!nush :agak!koyukuk!kotzebue!barrow cy:r=r+1 cy:s=s+1 t: thy:Absolutely! th:They went just about :everywhere you can get by boat or on :foot! tn:Check with your teacher to who was responsible for :buying Alaska from Russia is ?????? u:asker m:seward cy:r=r+1 cy:s=s+1 t: gy:es gxy:seward ty:He's our hero, $n$ ! tn:William H. Seward was the man, $n$ . t: u:return *q12 g:es0;v t:Where did the Russians explore in :Alaska? u:a:a score of #n correct answers. Be :careful! *last t: u:return t:You must supply the answers for the :last three questions, $n$ . t: t:Be careful how you answer, :spelling is important! t: u:return *q11 t:The last name of the U.S. Secretary :of State$ , so it had to come by :boat. u:return g:v;es t(r<3): tc: tc:There are only a few questions :left, $n$ , better keep trying! jc:last t: t: c:n=r+3 t:If you get the next three :questions correct, $n$ , you will have d furs were harder to get. t: u:return *q10 g:es t:It was always a problem to get enough :??? during the Russian :American times. u:annwer th(n=3):Way to go! cc:r=r+1 t:You had to figure that one out for :yourself. Wheat was not grown in :Alaska, $n:es t:When the British, French, and Spanish :started exploring in the Pacific, it :became hard to get ??? u:annwer t(n=1):Yes, $n$ , the animals were :becoming scarce. cc:r=r+1 t(n<>1):As the number of hunters :increased, the animals became scarce :an:other thing they tried was mining. t(n=4):Boy are you into mining! The :other thing they tried was building :ships. j:q8.9 *nodup t:Besides ice making, the other things :they tried to make money were mining :and ship building. *q8.9 t: u:return *q9 g(n=4):That's right, the other thing :they tried was mining. cc:r=r+1 jc:q8.9 t(n=7):You got it! The other thing :they tried to make money was building :ships. cc:r=r+1 jc:q8.9 j:nodup *dupe t(n=7):Boy are you into ships! The t! cc:r=r+1 cc:s=n jc:q7.9 t(n=7):That's the way! cc:r=r+1 cc:s=n t(n<>7):One of the things they tried :was mining. *q7.9 t: u:return *q8 g:es t:Now, $n$ , let's see if you can tell :me what else the Russians tried to :make money. u:annwer j(s=n):dupe t(n=5):That's right! cc:r=r+1 t(n<>5):The Russian priests conducted :schools for boys and girls in Sitka :and Kodiak. t: u:return *q7 g:es t:Another thing the Russians tried, :besides making ice, to make :money after 1850 was ??? u:annwer t(n=4):I dig iussian American period :between 1820-1867. gx:smiles t: t: Have a good day, $n$ ! w:5 u:return 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 :from the beginning again. a: e: |``p@``|@@@0p`0@plecart P07) 586-389 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(^BB@xx8 `8`08@`pp~xp@xp` `<<~xgpppx|88` @`x@p ~8@?|~p@xpx`x` `00@@````@|~x?@````x@`@`8<pxg`x`x`?8@`ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:0``@p@8  adam1x`x@x80p8x@0@@p`|<@@```@|``x|~<p00`0@@@pp@`x`@`~x?@@@?p`@@p8((((((((UU** **TT**TT**TT(((((**U@U((((((((UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**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-36(^BB`3d0oW:}oW:}oGx}`3d0d8l8UU**