&+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.GRAFW RUSSIANS.TEXT] EXAM.TEXT@] HELLO.TEXT@] SM!LES.FOTOW SM!LES.GRAFW VEN!.FOTO AW VEN!.GRAF AWRTN.GRAF AW PRUSSIAN.FONTe SMAeBLOCKHOUSE.GRAF COASTAL.GRAFW DOUBLE.GRAFW KENAI.GRAFAW FTROSS.GRAFW QSITKA.GRAFW YAKUTAT.GRAFW KODIAK1.GRAFW RUSSIANS.FONTe BARANOV SMILES.GRAFW SCRIPT.FONTe PEOPLE.FONTe SITKA.GRAFAW KAYAKS.GRAFW VENI.GRAF AW KODIAK.GRAFW MEDAL!.GRAFW MEDAL!.FOTOW WAVES.FONTELESSONS' RT0006.APPLEbh0 SYSTEM.PASCALbh0VSYSTEM.LIBRARYhVXSYSTEM.CHARSEThXYSYSTEM.MISCINFOYSYSTEM.STARTUPh LOGO!.FOTOAW LOGO!.GRAFAW RETURN.GRAFW꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" (jJJ>L& "?I9  I `  ` x I Nx .x- u `V0^*^*>` YI꽌ɪVɭ&Y&&Y& \8`&&`L  x ? N 'i ͭ҅?/ȱ llMUST BOOT FROM SLOT 6NO FILE SYSTEM.APPLE RT0005.APPLE  L$J) URe^dSe_edi deeHdHLe URe^dSe_e hdhdLeèPHPHLw UPe^dQe_e dHdHLe UPe^dQe_edi deeHdHLe UPe^dQe_e hdhdLeX q U^ebd_ece dHdHLXX q U^ebd_ecedi deeHdHLXX q U^ebd_ece hdhdLXX Ue^te_utHtHLXX Ue^te_uhthtLXX Ue^e_HHLXhthuȱtHtHLwhthuhvhwtvȥuvLwȱXȘ tX)XYXHXHXetXYL}ȱX hhhivȥ]vv\w]VW8\Z][LǑlXx |ƄRSLZȱȱńRRL}Xx ~~~~L}Xx P~Qȑ~L}XxX HXY |0 L;Xx QHPH ~P~ȱP~~Pꎥ}|=0 8|8|}8||ȥ}|DHCHlL}?|8|}8z|~{||LǑ~8|~~8 ~P~ ~i jik|Lhj ~|it}iu8ttXutY|iT}iU~R쎥S펥~8vw\0 ՟L ̟LllL4L:/ L 韰8L t~ hI=+ ՟L t~I= ~ ̟LȄHHLehh tuLɠhhVtWu\z]{XiXYt8xtut8xtu8tt|ut0LLh)thh)htL lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLwhHHLw%lHHLwhhh |~hve| z~~8|eztl8冨Lן 0 8`hh t~ hL   UF_f^L UhvhwhthuXY^LFtvtuvw_LLL~hvhwv~WvXwhthutYtZutvv ȱtvtv %l HHLeHHLehtExx0tEtttxjtz) wzf{jv8vtwxyyHxHxyyHxHxu9xy9yyHxHxyt yHxHHviHLwHHLwHHL?? lXLӞL[L eƄLe8傅ń 8冪8冪ƂLehh&eȹ|ȹ})3f|)uf}|jjj)?tłetu9 fHHLwfHHLw @hhHHHHhzh{h|h}}L{)L8z|~{}L{|) u|f}e|Ȅ~ Ȅtl |8|e| h9 0 ~ʚLw || hI9~ʚLw |0| h~ʚLwztzx{yxtezʥ|x}y~xF|}H|HLwX hh&ńLe0exH{HzHezHHLXh|h}hzh{hxhyx~ȱx|80~~ iff~z ~=~=H~HLwhthuh|h}hzh{z vw|80tuutvwwvi &t&u&v&whxhyx~ȱxvI%~t~wI%u~xȥxLwhhh |hYL}hhhihjhkXi&jhȑjLehhjL>hjLeL瑺tutLLw Uhe^xhe_yxHxHLe Uhe^he_HHLehh U_ ^&LǙ^_ hexheHxHLeXXz{HH L&hexheH*ŇĆ 内&&&*ŇĆ 内ⅉ $ 8包HHLw HHLw(LLfLvhthuhvhwxyEw0wy)xv!y0uEy0yutxyLwLXYXXYYHXHLXYYHXHXXYeXXwhI8}hI}Lw & ee녌`HHhhd 8劅dhhEdd刅剅 d8匨HHLwHHLwhdhehh 8内劅LϑhhE8包卅&*ņ􅈆&eHdH`&&X&XeYei捠8XYL}XiXYL} hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LǑLe hthuZtȥ[tLehthutZȱt[掩Lel8Lwh}h}LwhIihIiHHLhHhHLeȱXtetetjktL3hjhjhhLehthuhettheuuHtHLwhhhthuhettheuutLwhhhihjhk ULhthuhh%uH%tHLwhthuhhuHtHLwhhIHIHLwXXhhQX0XōiX`0\XE0XLXŌC?8XQL} RhPhQL$ RR8tSut\ȱt]X i RHLERtȱRuVt tVuWRTȱRURXȱRYRRR쎆SL}L}8|}`|ȱ|L棠8||tȥ}|utetȱtet|8|}Ƅ`t et >HHBtCu\8t\]u]H\H8Z][LǑuHtHAH@H `  `\^]_t et@$A8\B\]C]\8]`8\] z8Ƒ |5|8|}8\|ȥ]|8|ƌ8حTRWPDŽ 1 - )8H<8HF J 8 и \`x y z { (@ Leq`8Hh`HHH0Ll) [,cjA[ituvivwзRS\][ Hx \]RPRRSQRR RȭR)@[@[Zg lqnpsL}VU>)Q>jj`ގ SYSTEM.PASCALة ގގ0HH`HHHHHH NiLli8Ɓzȱ{HH`HHHH{HzH @tu`wvtȩttituveztȱve{tȱvtȱvtt ޭ0Lt ̭ͭ| ގLexL|8 z~#0ĄLezz{xyLet Lz z{xгyLe~(8 Ǝ L`` ᯩ ` `ܯގ`ܯHۯHlܯHۯHl>LۑLehh ޭHHLehh ޭLehh ޭ0 LsHHHH Ls Ls Ls ގLehhhhhhLeHH{HzHyHxHwHvH| ގLe ގLeL|~h)~)hhvhwhxhy0Lh0yhzh{hezzhe{{hhHHLeHHHHL㑀? ABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~vӑ!  `ގhhLeߎHގHLeގ4IiIi&lhyhxhwhv 櫢 mvHwHxHyHLw 櫢 mLw8uhhL㑪0 vwx`Fvfwfxx wvLztvIvwIiwv`t ? svHwHLet ? svHwHLehh' HHu8u{8euPhhLi򅁩Fvfwfxe~e}e|ffffإ L0 Ш `t ?z ?u{ HHHHLw mLwt ?u HHHHLwtzu{v|w}x~y mLw^LwILwhhhht ) mLw O mLwt ?z ?uz mLw{tItt mLwtEzz ) mLw I O mLwt ?z ?uLϑ{ HHHHLwtEz{8u i  iL㑅 8y~x}w|v |}~8&&&&Fvfwfxfy Ш mLwtEzvfwfxfyyyF|f}f~f` yexe~we}ve| Ш ` 8y~x}w|v ` Ш `u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t ?z ?uz mLw{t mLwtEzXЀ_ʱhjkiL ^L(hjLe8RZS[JHjHLehhhhh*68jh*vlhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvȱwvLÑv8vwv8vwv xvиtȱutХL} ULeXiXYLӑhthuhvhwtvȑtvLehe^hie_ije^jke_k_ik ʱhjL^LħhjLeh^h_ hhhhhhhhLehjhkhejjhekkhhhihehhheii_ ʑjkL^LjLehhh|h}he||he}}hhhhh^eh_e^Ii^Ii_|ň.Lx'|}0 |}Lg|8|}Lg|8優}HHLehxhhhTT8tUut8tXȥuYxT VL}RSLȱ ƍLPQ |l|8|}8||ȥ}||8|}| iiLa 8ƑzL` 8` ^\_]`hh HLehh LeX rLqhhh^h_hhhhLehjhkhejjhekk P]M^N@P]^@H))hILO  Ll { նLl,LѲhhh(`N`hhhhhhHH)?` ˲ {H h` ` ` Ȣ`JJJJ ϱ` ˲,p ` ˲H h ɢ` 2 ˲0` ˲)` Ԣ `  ˲J` ˲ MȽ`_<8 0 L 8 0 e`800jjjá4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.""""" RTSYSIO.CODE @hLPASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD LLLL`LͳL+L/LL~L9LLX`L˲L˲LLLRp _bbb8`' ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪&VE&]V]H)]V])]T])]' 8$hU>`FG8`0($ p,&" `Hh`&&Q꽌ɪɖ'*&%&,E' 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴.m">?( ر-Lx -($8` ~h H5@@h@ N@`8'`0|&HhHh VY'&Y`ꪽ'  Ͱ()I يJ @JJJ5F؅G(  ڽ ]( F YG t XjPP0 Y .@85 @@Hh@H H`5@ ]h ]Ls@(LKLIH/h/ (-ͥmi)ͥ--9J 8J II `FNȌ``hhh )hJjJJhhihhhJiظhR LF8  ۸'e 8 Ǥ HH``P@h H Y t tP```e(`e8``````J) ) je`PPPP+*@S&@'8*3I@i@&&8  ڽ' ڽ& ڽ@)*++`3) 0Υ ˲Lg0iiЯH ghi` g0 i` e*0 j) @Ii` Lﶩ@ 0``L޵ IL,PL ,Q`) K #H"H`cccccζcԶcOccc cc%;cHcQҵbW]H & &e)e eeh `))? $PA[I&E$p $pP!pA0 i` ˲H g)hi H gGRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$á4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$. HNT0 Ȅ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤˡ ߢ`ޤ7 Vˡ)~~ת́ ˡ"ˡƁ  Ɓ ƁƁ ́ ʁ ȡAƁʁ ƀʁ ƀʁ lʁ ʁ ́ ~~ _  ۢڤޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤˡ ߢ`ޤ7 Vˡ)צ(C) 1979 U.C. Regents   ,,@.Ptn   z  CONSOLE:ת( צSYSTERM:(*SYSTEM.SWAPDISKת(z צ*SYSTEM.CHARSETP**/́L1ʁL:*N     Welcome to Apple PILOTצ(C) 1980 Apple Computer Inc.צ(C) 1979 MicroPi צREMIN REMOUT U     z  CONSOLE:ת( צSYSTERM:(*SY٤ ~ ȡؤۦתۢÍ ȄqۢÍa؞&"áX P۶ ضá<۪ צ*SYSTEM.STARTUP(~ צCONSOLE SYSTERM צGRAPHIC PRINTERʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢʁݢʁݢʁʁݢʁݢʁݢʁݢnʁn تٞ&"á  d'*SYSTEM.MISCINFOתPצתPƀƀʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O ƀ&́ʁܢʁʁܢʁܢ%́ݲn nnʁݢ٤SYSIO 30Ƅz٤̄ʄʄƃ٤ʄʄ؂     ٢ š٢ ٢٢ 4$ n/ nl ȡpZؤòZؤÍRzؤۢ0٤ؤܢlZؤáܢ ܢx  ڄ(٤ SYSTEM.LIBRARYׯC٤ ƃڄ"GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$á4w4]11á4\1šV42233z 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$~~ת́ ˡ"ˡƁ  Ɓ ƁƁ ́ ʁ ȡAƁʁ ƀʁ ƀʁ lʁ ʁ ́ ~~ _   צSYSTEM FAILURE NUMBER  . %PLEASE REPORT FAILURE TO YOUR DEALER.zˡ.$  š @  !!&ˡ  ȡ2 š:X fȡ*!צ$ ,&&ֲX $>0 qS\ ńȄ4šáRתPńȄ ,ń.áš蕿@šQ *áá000áQP 0á0 é000+-Í-ë009ȄX 000á'%á 009Ȅ0+ dá1á%   Q l>š 쾿  .Tá " h ɡ 逫-á-32768ת Pġ>00ń0ˡ ɡ` Mȡš ȡ뾿  +áYšPá+ ɡ _" ġ   fj <% Oš *š  4T  +Uz   ,áʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  N* عteVG8  )  T uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E צCode file saved62!o.צצ not named $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I' "''"""©RIGHT (C) 1980 APPLE COMPUTER INC.LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECSIZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,ȡ!2? 5? ?f  z '~~5?. ????2 ?  ??  1?   ?=~ @:?^=>[' ~ ~>?    ġ+@? ??? k '~~5?. ????2   ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*A     4?צ)Name of output file ( to return) -->ƂPƂáƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ.PƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTP "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E ꥂNWá$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); ?  ??  1?   ?=~ @:?^=>[' ~ ~>?  $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIIif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8D ٚ  & @4` - G`` 8`*UH)JJh & & f)4#ibl    '    4 تP+,+,ȡ+ ++ V 0  آآآǿآآǿآآSǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E ENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZ $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRhh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH HHH`.hhhhhhHHLM0`L+L1ON: INTEGER); $ "IMPLEMENTATION E  .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓń Ȅޓޓ! ܲݤߓÍߡ`ݤW ˡ!  č ܓܡߢ ܓצߢޢ!ޢ 8 0 ٤ Íܡ~  , Ąܓ"á  ܡ:"$.GRAFׯצ.FOTOO < ڤáޢܡ ޢޢÄȄĄMȄt߷iȡFۤ ōɍ ō ȍ  d5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFOުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*á ݲצ:22ȡáݲ 2á!2ȡ5252š[22š2222ȡ2šH(VAR FVID:VID; LOOKHARD:BOOLEAN; VAR FDIR:DIRP): UNITNUM; " "PROCEDURE INSENTRY(VAR FENTRY:DIRENTRY; FINX:DIRRANGE; FDIR:DIRP); " "PROCEDURE DELENTRY(FINX:DIRRANGE; FDIR:DIRP); " "FUNCTION FETCHDIR(FUNIT:UNITNUM):BOOLEAN; " "PROCEDURE WRITEDIR(FUNIT:UNITNUM; FDIR:DIRP); "  IMPLEMENTATION E ORDS:INTEGER); " "PROCEDURE FRESET(VAR F:FIB); " "PROCEDURE FOPEN(VAR F:FIB; VAR FTITLE:STRING; FOPENOLD:BOOLEAN; JUNK:FIBP); " "PROCEDURE FCLOSE(VAR F:FIB; FTYPE:CLOSETYPE); " "FUNCTION VOLSEARCH(VAR FVID:VID; LOOKHARD:BOOLEAN; VAR FDIR:DIRP): UNITNUM; " "PROCEDURE INSENTRY(VAR FENTRY:DIRENTRY; FINX:DIRRANGE; FDIR:DIRP); " "PROCEDURE DELENTRY(FINX:DIRRANGE; FDIR:DIRP); " "FUNCTION FETCHDIR(FUNIT:UNITNUM):BOOLEAN; " "PROCEDURE WRITEDIR(FUN  "PROCEDURE FINIT(VAR F:FIB; WINDOW:WINDOWP; RECWORDS:INTEGER); " "PROCEDURE FRESET(VAR F:FIB); " "PROCEDURE FOPEN(VAR F:FIB; VAR FTITLE:STRING; FOPENOLD:BOOLEAN; JUNK:FIBP); " "PROCEDURE FCLOSE(VAR F:FIB; FTYPE:CLOSETYPE); " "FUNCTION VOLSEARCOF=2  > | R  * ( BEGIN " SAVECOLO 8e*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )LdI1Ld)QLd        xhXhhhhhhhhHH x # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0heheheHHL<  B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p xhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8 hhhL.+ rhh he,ߓ$ ޓ "ߓۄ, ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ  <:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> "GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$تP š+ +0تPRš+R+PP0RšزRPزPR,@vP.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOV < ~٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$ #PROCEDURE SETCHAIN(TYTLE:STRING); #PROCEDURE SETCVAL(VAL:STRING); #PROCEDURE GETCVAL(VAR VAL:STRING); #  IMPLEMENTATION E 444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! šá٢. n b@T&˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ # n ١ á9 ٓ/! !!١ˡ) ! 䚹 9U?2ń ١á  ޤ uš  gá  Ä+ޤ  ɡáޤ  Pצ   ١    š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟۢۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ȡ? ȡ  ġ  á ġMáš6 ܂ۻݪ d ( ۢۢۢۢٚÍۢáۢɡ ۟<"< """<<<"""< <>"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80,   ( ?ɡr áٓٶš&>ق؂ٕؕ ń)ɡ @ߊ @ފ @ ނ  ák zȡńńǿɄɡݡ  šńōč<hh=Tצ.GRAFY"áhf f ؂\v  š ݡ-܂܂ɍ܂ō ܑ܂ń routines)(Invalid variable name)aצ(Invalid execute instruction)8EAX0f? sO+ " ~._gJá𩄸@Paצ@MF@A+ȡZš㩀ȡ㩀ġ á8c}(bf  &,`ny subroutines)(Invalid variable name)aצ(Invalid execute instruction)8EAX0f? sO+ " ~._gJá𩄸@Paצ@MF@A+nation)צ(Invalid link destination)צ(Invalid modifier/condition)צ(Invalid instruction code)צ(Too many arrays or strings)צ(Invalid syntax or format)צ(Invalid expression type)(Too mas)(Invalid compute instruction)צ(Diskette read error)(Invalid expression)(File input/output error)צ(Invalid graphic instruction)(Invalid function argument)צ(Invalid jump desti=" ١f< ^'gJášgצ-error gצ(Arithmetic error)צ(Value out of boundp#5:ת*צ,**SSPSSSSSצ.TEXTXS*צת HELLO.TEXT& " á_LESSON: =Q==Q.TEXTVQO~h =תQ dP' 0T**׷""" " " "pPILOT:RTSYS.LIBRARY'L\ N  ) PILOT INITIALIGXSTUFF GRAFSTUFDOLITTLEDOMAINST    @ނP f f á  áɡ ˡ f f   ɡ ˡ    عڸ ٸ ɡ  ɡF'hh="ëfũFS ⩅fšث⥄5⚥ϩߩfQߩ Fháh=hyh="ëFf ثg Qߥ==࿦:ץ==áF==Q.DATAVQ:ץ=á==TQXhf⩄áF(  pCš ȡǿpCǿšǿٳ@س*@6 0pCšš ۶ɡۚ ȡǿpCǿšǿš ڶɡښ ȡ˶ˍ#= ׃H hhצ*SYSTEM.CHARSET"áh㥅hT=ׯfh==T.FONTYQh="áh㥅h\|ǿL :OVXr%hn H2 ޫޫޫޫ  ;˩Ʉ     ǿ;˩Ʉ&,á  ܕڕ 3CX,] Ei "M&*_ɡ ;ˡGꩅ'éÄޡ ɡߩÍ á š  ޫޫޫޫ  ;˩Ʉ    צ EXCOMTPQDRVáG쩄ǹ𩀄ëǩ;˩Ʉ   ǀީ ɡ   ߩÍ á ,álǀߩ0Ä1ީ ō  ީáޭ4",á޳>ޭ&ީީ ޭ,áޕޭ   ɡ  ǿثg  Ρ,͓1ˍSϩ޹7ëS ǩٕëǹɡB2 ع2HC>9 4 / * %  9630-*'$!X=תQh=צ  h 2(:  +qkg ;  خ á           HšHɡ=؞=ؿצ!=ˡehh!!!=T!.FOTOY! "áhͿwٮoٮi    ˡ   +qkg ;  خ á     㩅ȡhfhh="ëDϩߥ5੅ũF š ɡ੅f࿥Qߩff hf⩄áF b h  , ==㿩カå,==Tצ.CODEYQ*==Tצ.TEXTYQ="˫LQپǹšץ׼$ץ׼ռȥQپEÄQپ-ë̥Qپ+é̍ȡ2Qپ ǂ̡ٕץ׼$ץ׼$׼ li~d ؂QپQپǹšAťQ.ÄťQ-Ä Qپȩ..á^׼GPץ׼ ANJي1ռ4ńץ׼݀?եռ   ڂXšRەȡQ؂Q؂ȡQ؂Q؂ٮق 1W XšR㩄ȡ Qi㾿)^ݕȡ 0 ȡ \Ȅ ȡ!. ȡ ܕȡ 0 V . ȡ E ɡ- ݀ݩ٩  ٩  G\p2cϼݥ ݑ$ ϼ6Ń  A  Aȡ4 ۊ۩ق  A0áĩɄܩȄšݹɡݹȡ9. ռ׼ ع*70)" 2-(#ڊ ߩ߫ ׼XšR  - 0 ॄ ϼ  ݞ$)ϼ@ XȡE䩅3ˡT٥ꩅإH ׮ ծ    ō4  ǩˡǩɡB  \ ɡS䩅1á& ռ׼ߩ,ëͩ͡)ˡSέF ġE䩅1ꩅؚ,POȡRPPPP2 áE䩅3ꩅؚٚ6ȡE䩅1ˡTإꩅثg h2áThhh㥃1ϩd@ Ρ,1˩͓Sϩ޹7ëS ǂٕëǹɡB2 (ëΩΡ.ޫɡ١ڕɡ9$tf l 2glHšHɡ=؞=ؿ=40, ( $  $&*(&$"~Z$R6  fffffݕɡšݕݕۆšܑڏġ*ڕ܂š šɡšvfffɡ ɡ١ڕɡ9$tf l 2glHšHɡ=؞=ؿ=40, ( $  $&*(&$"~Zfffffffݕɡšݕݕۆšܑڏġ*ڕ܂š šɡšvfffɡ ٩=.<,áZL HšHɡ=ߞ=߿hh  =T צ.SONGY "áhfh"áf 쩅fXšRߩ߫⩄ȡ Q⥄i᾿ᩄ׮ 7 t׮ ׼ ׼׼<׮ Q׼*  ծ ռۊۥռռȡWȡ"Q۩ゾQکゾˡܡ۩ ׼eV  ռ׼ռcռR׼׼A<׼׼ռ&; T!OPġROOؤO("ȡD ==ɡM\%=תQD=̽.EW& 0 "BW:$2 áU D Γ͓3ˍXϩߥ5ޥQߥޞޫP ފD;੄੄ޮ[3áϩ5:ϩdá"OPġROOϩOϩ˹EhV|ɡɡtǹ1ފRLF@:4Qǿ㕫⩄㩄˹Ρ Ρ쩄͓㫄ܮܫ㩄Ρ͓ޥ㾫Ʃ1áB2áKϩॄ⥄5ᩄߩĩީčB੄ߩᏂނIϩ੄ɡީɩߩނ5ōB੄߭@dP~ǩ:éčˡA (á% šS˹"á/"ˡ㕫⩄㩄˹.^㩄.Eá+é-ÍIMׯ !^|b"z "$&(*,.0246>@-HNPwTSAZbjlnprtvxzšٮڂé˫έS& QÿXġRšENTׯ EYׯ ENׯ  OGׯ  NáOTׯ h؂RáfDLׯ NDׯ GNׯ :INׯ &QRׯ TRׯ ' "$&(*,.KF˹gBSׯ 8NDׯ g&SCׯ TNׯ TNׯ HRׯ OSׯ XPׯ IXׯ LOׯ NSׯ Źc˹h؂ˡ g؂؂8˓7ڹĩáǝũá6f>á=á=áǞ˹Ĺ#VOHA:AY2+&  ؚ!cáSˡؚ šS-Xh&خخخťĥĿ˥˄׮ ׮ ׼šɡ׮ ׮ ׼ōEǀ?],V" trljhYH'xig$'cÄ׮ ׼׮ ׼׮ ׼ ׼׼?X׮ ׼ծ ռ?GGռ㥄 Q㾊㥄 ⊮׮ ׼šɡͼռ׼A׮ ׼׮ ׼׮ ߩޮ׮ ׼׮ ׼׼A׮ ׼׮ ׼׼A׮ ׼׼A׮ ׼׼ռdš㩄d⩄٩Ȅd㩄 ׼ռ ׼ռ      ׼ռ ռ׼ ռ׼ ٩ɡ!ɡ <̃  ġf=Pɡ[==Q RQ==ǿ٩šکɡ2å=ń%á =%á٩ɡå=Ä" ۡ  QXqSZ$&éÄ ⩄  򩄽$=áǹ=ǥ= é(⩄ÄXBDjHJLNn򩄸PáMáš ˡ(á" ׼:ˡMTˡ³O¹_*# -}PéXÍFá (EB~xrlféٕZ1YR "$ "$b(`,.`2^68:~>ȡ0ááDJ *ám2ɡ\ɩéɄC ġۤ⩄ީš⫄ޥ5ۤޚᩄȡ(Q㥁Q߾ߩ㩄}ۤɡق5ۤōBکȡ>á ǹQ߾ǩߩޥQکǿM> -  ΓV͓@ɡVΡۤ͡dáۮ"=ˡC۾3ɡo׮ áۤ׼Mۤ㥄ۤ⥄5ۤک٩č۾2ˍBکᏂق׼ߥޮ ágۤ㥄,/á)ꩄ%áMá$ΩńǀɄ ǀ?C=ˡCAá׮ ׼Bá[ߥޮ PšP㩄ȡ(iQ߾ߩiMá׮ ׼C ΓV͓㫄ΓSAɡ\ɩōBX~šR3ϩ~ߚ5~߂~l͓ީߩީߩޏPOšR2ϩOߚ5ޚOߩޏO˩$˄+򩀄 Γ͓ ˩Ʉ⫀é+3á&ϩߥ5ީߩނ޹+ץϩ~ߩނީ߫㩄ȡQ+𩅞š +"$@(*᥄5ᩄ wJ)á| ȶōSš!šš== ø=צQ==ؿ+ =צQɡëǩ#⥄5ᩀɡCáQ⥁QUá1⫄੄ȡQुQ/áëë⫄ߩ⫄੄ȡHQྩˡQߥQ྿߹/ˡQߩƿߩثɡ &<ޫ ϩߥ54'< [ޫߩ2š2ߩ,ˡSšީߩɩ;˄Sš^ z( VϩɩÄ!i⾫⫄ᩄ쩄ťi.Äᩄťi-Äᩄëؤ׼Q -0# ɡaEåSÄ+;éÍ  ᥄iᩄéᫀ #ɡ#˩$˄V ΓV͓@ɡV"ؾ3ácؤ⩄⩄š⥄5ؤ⚥ؤᩄȡ Qߥi᾿ߩᩄ⩄iǿE$ ǩ ⥄iǿǩˡǩéPō$i=i &i@áצSYSXSî #iiGOTOׯigotoׯe㥄i áᩄ㫄⩄ȡ$y t,p f' Z' N&J(F u,8n Bo6xr B | < N|,v04Nh, ^ "8##t&'j'''(R((()))Z -68:~><š f< < >fǩǩéō<<fǭ@کf á<<ˡ<*á< 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` _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$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@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@ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ   *0 ##################### ١  n ١ á9 ٓ/! !!######################### ######################## _;############;###################################@$3K$3P$3###$$*$4$9$ $$######################$$$3+$34$38$3A$3E$3M$3S$3]$3f$3n$3 ɋ _3#3#3#3#3#3#3#3#3wy###########z########################### 3$3 $3$$3,$34$36$3###### ##  # # # ### #- #'+)$$$##  $ $ $$$ $ $ $ $$*$3$$#$3$L @$F  Ä+ޤ  ɋ _ux#|##########$$$!$+$:$F$X$######### $"$#$$#################****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١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ _3#3#3#3#3#3#3#33#3$3$3 $3$3$33"$3%$3)$3,$30$383?$3A$3B$3G$3I$3L$3 # # # # # # # # # # # # # # # $ $ ($ 4$ 6$ A$ E$ H$ W$ ########@?@>`x?p was a m$x@y8@x@@ hard wosp0L@ @@`to have @@@`der :Ba8  0America Np^  `00@:A Siber@pspprspDEFwx  `00`r and th@wC@p@?p`wer g:es<@> ``y8`p@:yorn g:/13:! šá٢. n b@T& LD PDRAW mLanLy LyeLarLs,L hLeDAA$AAwLasL aLwaLrdLedL aL9mLedLalL fLorL tLruLe1aLndL fLaiLthLfuLl)sLerLviLceL. ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ#1#0#13#6#7#4#2#1#1#2$###;##############CC##C#C######QFLinLalLlyL, LafLteLrI## # # #$$#### # # ####9#;#<#;#7#4#2#/#+#'7#9#:#:#9#7&### ##%#"##"#!!##!#"######2#5#6#5#3#$# ###### # # # ######!#'#.#6#<#<#1<#C#8#0C#I#N#S#W#Y#\#_&##z#u##### ###$###### # ######## __#_#_#^#^#^#^#]#\#\#\#[#Z#Z#Y#X#X#W#W#U#U#S#S#R#Q#P#O#N#L#K#H#F#D#B#@#>#<#:#6#5#2#.?#>#<#;#9#7#7#6#4#5#2#1#1#/#0#-#-#,#+#)#'١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ 62$!$$#$#$$$####$#$ $########### á9 ٓ/! !!#####$ $$$"$##############$$$$C$E$K$M$W$]$##################$5$//$44$`xg`p<`n Americ @pp@x<ent in A;< $88 destroyl8 @<^ $$`88Aleuts bp@ `8` t:In le@""<"$`cp`x0ble year@` >">8080pt miss a@w888@u:returnv|l*>"<"">p@@``d roamedv@0<_<""<""80 t: t:Wh8 *<"""><"> p~<w~ were le0*<<*<">"<p`Ap`@@ Russianxp80@ @`@ t:Nearin8`"<"<>@cxc`cxp23 gx:ot`` """8pp` and cir?p@g was siwl*"" """`x` were luv||ppA^ "" ""0@ a, the p * """" ""<@8>@?0;v0,39,0"  " """ ````x` and fin?p8 @@x carried px" " "@@sgx@` $n$ . @p <:" <@`` t:abcde` 8upplies s|6<::"@ pade homeN``A^< "8@t: t:Whe`6"":<` |8@to :tra8"<":<<@```pt:Barano|x`@`~8 a woman@ ":@q~x@`at he go@s0 @``@ea otter@ phare of *""<<" "8~>p>xd to hun8*" "*""""0@A8@@turn t: f@l*"""$20 8@`@ake a brf@@8[""""$"2pp8 _`u#3u###0#`#<##` $? $#v2#1#; $>v## $ ##v#v##  $ ##v#v# # $  )#&#v#v ##// $2 8#5#(v#(~(~#  #((#!!#''#!!#''`3d0oW:}oW:}oGx}`3d0d8l8UU**UU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU** **TT**TT**TT(((((**U@U((((((((@@` LnaCc`0p`F@p8^ppppg?x8`O@`@@` `08@@8@ p pp`<@ppppF?`pp@<<<``xl osp0`@fx?pn"<<<,<8 0``<f@`|@_<"<<",``p"<" <<"<p8>>p86<<6<<<<<8@``<x`<~C `<0`@"< <<`G 8`8p@ pp88`op;08`#!#''#  #''# "#**#$$#**#%&#,,#''#,-#'/#))#//#**#/1#++#11#,-#33#./#36$11$63uu#{{#####################$$  $$$ $ $ $ $ $ $ $$$ $ !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#0#33#33#33#33FLo4rLt4 LR4oLs4sL,4 LC4aLl4iLf4oLr4nLi4aL4  ގ‹ zVMۢڤޢ ȡUڤ ˡBV$4V4V$4V 4V$ 4V 4V$ 4W 4W$ 4X4X$4Y4Y$4Z4Z$4[4[$4[3[$3[3[$3[3[$3[3[$3]3]$3^3^$3_3_$3`3`$3a3a$3b3b$3c3c$3d3d$3e3e$3f3f$3g3g$3h3h$3j3j$33#33#33#33#33#33#33:$<<$>>$@@$BB$DD$FF$HH$JJ$LL$NN$PP$UU$SS$UU$UU$##########SLitLkaL (LNeLw LArLchLanLgeLl)LV49$ < <$ ? ?$ ?$  #  #  #  #  #  #  #  #  #  #  #  YLa kLu tLa tL $$!!$##$%%$''$))$++$--$//$11$33$55$77$99$:$,$$,&,&$,(,($,*,*$,, ,,$ ,,!,,$!,-",-$",+#++#++#++#++#++#++#++#++#++#++KLe,nLa,iL ,PLe,nLi,nLs,uLl,aL, $  $ " "$ $ $$ ' '$ * *$ - -$ 0 0$ 3 3$ 6 6$ 9 #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#98#89#<,$,!,!$,$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#' _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ /13:! šá٢. n b@T& LD PDRAW _>O?$"C$$H$"K$!M$P$$R$%U$%W$"Z$_$d$j$k$ i$ g$f$_$ [$X$L$G$G$<$ 9$!5$$2$%.$$!$! $ $!$#!$'&$*!$+$($$$## # # # # # # ##########$$ $$ $١ˡ) ! 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ 62$!$$#$#####$#$###### á9 ٓ/! !!#####$ $$$"$##############$$$$C$E$K$M$W$]$##################$5$//$44$ _3#3#3#3#3#3#3#33#3$3$3 $3$3$33"$3%$3)$3,$30$383?$3A$3B$3G$3I$3L$3 # # # # # # # # # # # # # # # $ $ ($ 4$ 6$ A$ E$ H$ W$ ########ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _ $  $ ! !$ # #$ % %$ ' '$ ) )$ + +$ . .$ 1 1$ 4 4$ 7 7$ : :$ = =$ @ @$ B" B$"  #  #  #  #  #  #  #  #  #  #  #  ?L? ?L? ?L? ?L? Y$ZZ$##########?L??L??L??L?˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _$!!$##$%%$''$))$++$--$//$11$33$55$77$99$;;$==$??$AA$CC$EE$GG$II$KK$MM$OO$QQ$SS$UU$VV$WW$XX$Y#33#33#33#33#33#33#33#33#33#33#33?L?4?L?4?L?4?L?4˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _Y4Y$4Y4Y$4Y4Y$4Y 4Y$ 4Y 4Y$ 4Y4Y$4Z4Z$4[4[$4\4\$4]4]$4]4]$4]3]$3]3]$3]3]$3^3^$3_3_$3_3_$3`$3`3`$3`3`$3c3c$3c3c$3c3c$3c3c$3e3e$3g3g$3g3g$3g$3i3i$3k3k$3l3l$3m3m$33$,$$,&,&$,(,($,*,*$,, ,,$ ,,!,,$!,-",-$",+#++#++#++#++#++#++#++#++#++#++?L?,?L?,?L?,?L?,i,nLs,uLl,aL, $  $  "$  $$  '$  *$  -$  0$  3$  6$  #'#(#*E#E#D#A#A#C # # ## #  #  #  # # #############$#$#%CNL/#=#8#6#98#89#<,$,!,!$,$$$!$#$$#"#!#"#(#-#,#-#4#8#;$<$A $C $D$C#D#E#E#F#H#I#J#K$Q$N$M$N $S$U$W$X#X$Z$\$] $_ $^$`$]$` $_,$]6$Z=$Y>$O$$$$$$$$$$*#)#'TTT (P @TTTT @ P( "">""**22TT>>""&*2"""""**6"TT**""**TT**TT**t:This story, $n$ , is about what t: t:happened when Alaska was settled by t: t:the Russians. After you have finished t: t:the story, there will be questions t: t:to answer so read carefully! t: t: u:return g:es0;v0,39,1,12 t:A Siberian merchant named Shea 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:By 1781, the Aleutian Chain had been t: t:explored by the Russian fur traders. t: t:People in Russia were beginning to t: t:get interested in the new land. t: t: 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." tx: t: Part Two Russian America t: 1781-1819 gx:return g:v0,39,21,23 a:$n$ g(len(%b)<1):x31 jc:@lear jc:yorn m:%y!%n un:clear jn:yorn g:es e: *clear g:x31,31,31,11,13 e: *clear4 g:x31,31,31,31,11 e: *start g:es 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)pr:l g 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:exam!test!quiz jy:exam e: *yorn th:$y$ a:$a$ u(len(%b)<1):c(^BB#1#0#13#6#7#4#2#1#1#23#33#33$#3$䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ## # # #$$#### # # ####9#;#<#;#7#4#2#/#+#'7#9#:#:#9#7&### ##%#"##"#!!##!#"######2#5#6#5#3#$# ###### # # # ######!#'#.#6#<#<#1<#C#8#0C#I#N#S#W#Y#\#_&##z#u##### ###$###### # ######## __#_#_#^#^#^#^#]#\#\#\#[#Z#Z#Y#X#X#W#W#U#U#S#S#R#Q#P#O#N#L#K#H#F#D#B#@#>#<#:#6#5#2#.?#>#<#;#9#7#7#6#4#5#2#1#1#/#0#-#-#,#+#)#'"""""">"""""""AAAIUcABFJJRbB>******AA"">>""">"""""">"""BFJJRbB"  "BFJJRbBlikov t:established the first Russian :settlement in Alaska. That :settlement was located on Kodiak :Island. gx:kodiak1 t: t:Shelikov wanted a trade :monopoly in Alaska so he could :get all the profits from :the fur trade. u:return t:That first village was destroyed. :What do you think happened to :it, $n$ ? t: u:answer m:tidal!tsunam!destroy!quake!water!wave :!flood thy:You're right! jy:wave m:fire!burn!holocaust thy:There was no fire. *wave t:A tidal wave destroyed the :village. tx:waves gu:return g:v22,39,1,23 t:Finally, after t:many years, he t:was awarded a t:medal for true t:and faithful t:service. gx:medal! t: t:When he was old and sick, he :started home to Russia but he died at :sea. u:return t:Baranov was a rough man with many :fae t:Tlingits, :he rebuilt. t: t:The new town t:was called t:New Archangel. u:return g:es0 gx:baranov t:Baranov worked hard over the years. :In spite of hardships and :trouble, he always sent some of the :profits from the fur trade home to :Russia. t:The Tlingit Indians who lived there :did not want the Russians to move in. t: t:What do you think they did, $n$ ? t: u:an3wer m:fought!fight!kill!destroy!burn!attack thy:That's right! t:The Tlingits destroyed the fort. t: t:When Baranov t:won over thm300,400;tAMERICA g:m425,400;t(English) tx:russians g:m300,375;tAMERICA tx: g:m425,375;t(Russian) u:return g:es0;v24,39,1,23 t:He built a fort near the site of :modern day Sitka. gx:blockhouse t: t:This was the first :seaport in Western America. u:return:Alaska. Baranov traded with the :English and Americans. t: t:He even got some of his food from :Hawaii! u:return *test g:es0;v0,39,18,23 t:The English helped Baranov build his :first big ship so he could explore :more of the coast line. gx:coastal g:rip, he met American and :English seamen. u:return t:Do you think, $n$ , that he got much :help from Russia? t: u:yorn m:y tn:You are absolutely right! ty:No, he didn't. t: t:Russia was far away and not that :interested in the problems in rlier :Russians. t:He learned their language :and gave them a small share of the :profits. u:return t:Baranov traveled far and wide with :his hunters. t: t:On one of his trips, :he met and married a woman of the :Kenai Indian tribe. :On another t,13 t:The Russians were in Alaska to make :money from furs. The success of their :fur trade depended on the skill of :Aleut hunters. gx:kayaks t: th:Although Baranov continued to use :the Aleuts to hunt sea otters, he :treated them better than the ea:glad you are paying attention! cn(n>28):m=n-28 cn(n<28):m=28-n tn(m=1):Not quite, by one year. tn(m>1):Not quite, by #m years. t: t:Baranov lived :in Alaska from the time he was 44 :until he was 72, so he was here for 28 :years. u:return g:es0;v0,39,1 years did he live in :Alaska? *notnum t: t:$t$ a:#n ge:v22,39,11,23;es te:You must type a number. je:notnum g(n<=0):v22,39,11,23;es tc:Enter a positive number. jc:notnum g:v22,39,1,23;es mx:%28 ty:Your arithmetic is correct. I'm :smart! gx:baranov t: t:He was a good business man and :a very hard worker. t: t:He was 44 years :old when he came to Alaska. u:return t:He spent the rest of his life in the :service of Russian America. t: t:Baranov lived to be 72. $n$ , :how manyhigher ground. gx:kodiak t: t:He also gained the respect of the :community, which included both :Russian and Aleut people, by bringing :order to their village. u:return g:es0;v22,39,1,23 t:Baranov had very little :formal education, but he was plenty :aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aaaaaaaa g:v0,39,3,12 tx: t: t:Fortunately, Shelikov had picked a :good man to manage the colony on :Kodiak Island. That man was Alexander :Baranov. u:return g:es0;v0,39,1,12 t:Baranov rebuilt the village :on :v0,39,18,23;x13,13,13,13,13 th:xxxxxxaaaaaaaaaaaaaaaaaaaaaaaaaaxxxxx :xxxxxxaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :xxxxaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ults but he was also honest and :generous. To many people, he :represents Russian America. u:return g:es0;v t:Let's stop at this point in the :story, t: t:$n$ , and review Baranov's t: t:time in Alaska. gx:smiles t: u:return *exam g:es0 l:exam e: tn:At this point, $n$ , you are #r for :4. t(s=4):Outstanding, $n$ , you have a :perfect score. Keep it up! c:s=0 u:return t:Where did Baranov rebuild the first :Alaskan settlement? a: t: m:kodiak!high&ground ty:Very good, $n$ ! cy:r=r+1 c:t=t+1 tn:K :h!money!wealth!empire ty:Excellent! You are right. tn:Shelikov hoped to get rich from a :monopoly in the fur trade. t: cy:r=r+1 cy:s=s+1 c:t=t+1 ty(s=2):Congratulations, $n$ ! You got :both of the last two questions correct. he :early exploration times too! tn:Bering was the early explorer who :first saw that part of Alaska. cy:r=r+1 cy:s=1 c:t=t+1 t: u:return t:Now, $n$ , why did Shelikov want to :establish a colony in Alaska? a: t: m:trade!fortune!monopoly!profit!fur!ricy one :question, $n$ . jc:more t:Good for you, $n$ , you answered both :questions correctly! *more u:return c:s=0 t:What is the name of the explorer for :the Russians who first saw Mount St. :Elias? a: t: m:bering ty:Good for you, $n$ , you remember t:built New Archangel? Was it Baranov, :Bering, or Seward? a: t: m:baranov thy:You got it! cy:r=r+1 c:t=t+1 t:Baranov was the one. Seward was an :American. We'll get to Bering in :a few seconds. t: t: j(r=0):more t(r=1):So far, you have missed onlv, Bering, :or Shelikov? a: t: m:shelikov thy:Can't fool you! cy:r=r+1 c:t=t+1 t:It was Shelikov. One of the others :came earlier, and the other later, in :the history of Russian America. t: u:return t:What is the name of the Russian who then press RETURN. t: t:Be careful how you answer, $n$ . :Spelling is important! t: g:m0,350;d559,350 t: t: th:Press RETURN to begin. as: g:v0,39,8,23;es t:What is the name of the man who :founded the first Russian settlement :in Alaska? Was it Barano(len(%b)>2):three m:no un:clear jn:yorn jy:exit *three u(len(%b)>3):clear jc:yorn m:yes un:clear jn:yorn *exit e: *clear g:x31,31,31,11 e: *start g:v;es c:r=0 c:s=0 c:t=0 t: t:Here are some review questions. :Please type an answer to each :question and pr:l g d:t$(1) c:t$=chr(25) d:c$(1) c:c$=chr(11) j:start *return t: th:Press RETURN to continue. as: g:es e: *yorn t: th:Please type yes or no and then press :RETURN. a: u(len(%b)<1):clear jc:yorn j(len(%b)>1):two m:%y%!%n% un:clear jn:yorn jy:exit *two j(^BBodiak Island was the place, $n$ . t: u:return t:Who did Baranov trade with to get :supplies, $n$ ? a: m:america!english!british!hawaii t: tn:He traded with the English and :the Americans. ty:You got it! cy:r=r+1 c:t=t+1 t(r<3): tc: tc:There are only a few questions :left, $n$ , better keep trying! u:return g:es0;v t:The following questions require only :a simple yes or no answer. Any other :response will be counted wrong. t: t:Be sure you press RETURN :after each answer, $n$ . g:m0,350;d559,350 g:vth:Have a good day, $n$ ! a: e: x:smiles t: th:Press RETURN to continue. a: g:es0 gx:logo! w:10 g:es0 t: t:That is the end of this lesson. t: t:you may remove the diskette. t: t: t: OR t: t: t: t:You may press RETURN to start t: t:again from the beginning. t: t: ons! jc:done th:$n$ is a Champion! You gave #r :correct answers! *done t(r>5):Your score is #p % of #t :questions. t: t: t:Right now, it's time for some :other activities. Let's learn some :more about the life and times of :Russian America. g<6):You got #r correct, $n$ . :That's all right for the first time. :Perhaps you would like to go over the :program again. jc:done th(r<9):You got #r right, $n$ . jc:done th(r<11):You got #r right, $n$ . You :are a fine student. :Congratulatig:m114,163;tFort Ross, California u:return t: t:You got #s of the map questions. c:r=r+s t: u:return *score g:es0 t:I need a few seconds to :compute your final score. c:p=int(r/t*100) t: th:Press RETURN when :you're ready for the total. a: g:v g:es0 t(rw Archangel) t: u:return th: The last one is the hardest! gx:ftross u:next m:ft&ross!fort&ross!california!ca ty:Very good, $n$ . cy:s=s+1 c:t=t+1 tn:They went to Fort Ross California. :It is not shown on this map, $n$ . of Yakutat. g:m114,216;tYakutat t: u:return th: Get ready for the next one... gx:qsitka u:next m:sitka!new&archangel ty:That's right, $n$ , only one more :to go! cy:s=s+1 c:t=t+1 tn:That is about where Sitka was :founded, $n$ . g:m114,191;tSitka (Ne!gulf&coast ty:Of course! cy:s=s+1 c:t=t+1 tn:That trip was from Kodiak to the :Kenai peninsula. g:m112,243;tKenai Peninsula t: u:return gx:yakutat u:next m:yakutat ty:You looked that one right in the :eye, $n$ ! cy:s=s+1 c:t=t+1 tn:That is the location :end of the trip as each route appears :on the screen. t: t:Don't forget, $n$ , that you must :wait for the square cursor to appear :before you begin to type. t: th:Watch closely! Press RETURN to :begin. as: g:es0 gx:kenai g:v0,39,17,23 u:next m:kenait to continue, just press t: th:RETURN. a: j(len(%b)<1):maps m:done!quit!stop jy:score *maps g:es0 t:Here are some maps you saw before. :Let's see if you know where Baranov :went on each trip. t: t:Type in the name of the place at the RETURN to continue. th:$t$ th:Your answer? a: th:$c$ t: e: *final g:v;es t:The next section is for the experts! t: t: t:It requires that you know the place t: t:names of Baranov's voyages. You may t: t:skip this section by typing DONE. t: t: t:If you wanAmerica. It was a very :important place. u:return t:Was Baranov a good business man? u:yorn m:%y t: thy:Of course! cy:r=r+1 c:t=t+1 tn:He was successful in business and :he cared about people too. t: t: u:return c:s=0 j:final *next g:es t: t: th:Pressm:%y t: thy:That's right! cy:r=r+1 c:t=t+1 t:He was given a medal and he was very :proud of it. u:return t:Was Sitka the first seaport in :Western America, $n$ ? u:yorn m:%y t: thy:Correct! cy:r=r+1 c:t=t+1 t:Sitka was the first seaport in :Western 0,39,8,23;es u:return t:Did Baranov explore the Gulf Coast :and the area of Southeast Alaska? u:yorn m:%y t: ty:Yes, $n$ , right on! cy:r=r+1 c:t=t+1 tn:Baranov did explore both areas, $n$ . u:return t:Was Baranov ever given any awards, :$n$ ? u:yorn 8`08@`p@xx8 `|``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@`8x?@````x@`8@`<pxg`x`x`?p~xp@xp` `<<~xgpppx|88` @`x@p ~8@?|~p@xpx`x` `00@@````@|~p8?@@@?p`@@`@```qs`a@G>x `p`Ap@A@`lecart P@@8 7) 586-3ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá  Ä+ޤ  ɋ _M;#####$$$$$$ $#######ڣڢÄڢ    š Í ÄU ǐɄ:0``@p@8x`x@x80p8x@0@@p`|<@@```@|``x|~<p00`0@@@pp@`x`@`~xs3N]q8@=0`px@00FA`qaN  08@00@`O{`a@ `7 @ma8X<`pC{oy p8@sAA@cC  8<| 0@1<0p`@c@ @` >@_cXp`c{pL`p~AGA 80p<< 0`q80` w@<`@;G3X@`o=7|``=`A@?fpp`< p``@8`@c@ppx[{p`}vY`@@ ` s ##################### ١  n ١ á9 ٓ/! !!######################### ######################## _;############;################################### ~8|L8`@s`AC@6gw0@`@p``q|~@0 ` 0@a|xlMcp0 p8`@A`wFf  0@`@<>`@a~p@ ` 8@c x;|xOs@p~_80p@A`x{f   0Gp@py`@}{١ˡ) ! 䚹 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$t:Fortunately, Shelikov had picked a :good man to manage the colony on :Kodiak Island. That man was Alexander :Baranov. u:return g:es0;v0,39,1,12 t:Baranov rebuilt the village :on higher ground. gx:kodiak t: t:He also gained the respect of the :commua t: aaaaaaaaaaaaaaaaaaaaaaaaaaaa t: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa th: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aa th:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aa th:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :aa g:v0,39,4,12 tx: ink happened to :it, $n$ ? t: u:answer m:tidal!tsunam!destroy!quake!water!wave :!flood thy:You're right! m:fire!burn thy:There was no fire. t:A tidal wave destroyed the :village. tx:waves g:v0,39,18,23;x13,13,13,13,13 t: aaaaaaaaaaaaaaaaaaaaaan :settlement in Alaska. That :settlement was located on Kodiak :Island. gx:kodiak1 t: t:Shelikov wanted a trade :monopoly in Alaska so he could :get all the profits from :the fur trade. u:return t:That first village was destroyed. :What do you tht:happened when Alaska was settled by t: t:the Russians. After you have finished t: t:the story, there will be questions t: t:to answer so read carefully! t: t: u:return g:es0;v0,39,1,12 t:A Siberian merchant named Shelikov t:established the first Russia****UU**%E%E  TPPPPPPP*TPPPPPPPUU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU**"*** **TT**TT**TT(((((**U@U((((((((****UU**%E%E  TPPPPPPP*TPPPPPPPUU**UU  @@@@@TT* *@@@@@@@@TT@@@@@* * * ((* TT**((((((((UU**"*** **TT**TT**TT(((((**U@U((((((((t$Z$utLo LbaLckL uLp.LuYLouL mLusLt LwaLitL fLorL tLheL sLquLarLe LcuLrsLorLutLo LapLpeLarL bLefLorLe LyoLu LbeLgiLn LtoL tLypLe.Lqá  Ä+ޤ  nity, which included both :Russian and Aleut people, by bringing :order to their village. u:return g:es0;v22,39,1,23 t:Baranov had very little :formal education, but he was plenty :smart! gx:baranov t: t:He was a good business man and :a very hard