`L i=L\Ʃx ? Nٷ)i  ʭ?6ȱ lMUST BOOT FROM SLOT 6NO FILE RTSTND.APPLE RTSTND.APPLE   L$J) (jJJ>Lvtȩttituveztȱve{tȱvtȱvttituvivwзRދSߋ쌅\팅][ ͡ދ\ߋ]x ɝRPRRSQRR RȭR쌅Z팅[g lqnps΋LHHH)(H`HHHHHH)   lNi i3[HZHHH `# ]е8Ɓzȱ{HHH)(H`HHHH{HzH)   l @tu`w SYSTEM.PASCAL SYSTEM.PASCAL not found#]m-+,hL'hحZ[/0 !"'()*)VV#$)6 /\z FLLIEHJh**F`F$Lө oʋʌ DSYSTEM.LIBRARY LESSON3.CODEvg LESSON9.CODEvgSYSTEM.STARTUPg7LESSON3.CODEvgSTARTUPD.CODEFDEMOLES9.TEXTvgŦLESSON9.CODEvgħDEMO1T1 # RTSTND.APPLEvg1#@ SYSTEM.PASCALvg@ASYSTEM.MISCINFOEAD FONT2.DATA=vgDF CIRCLE.DATAvgsFVMAP.DATAr=vg{V^ FONT4.DATA=vg^RUNDEMO.LIBRARY EVEREST.DATAvgɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" "?I(  8 `  ` x @ Nx .x- | d `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪ*ʋbra }Hjpђ+♱-pAX֏ – e/ޒg{Ց ǐD6c}R!_Wݏ[Sc:ɟfۤXXXXXXXXXXXXXXXX lXLLL>LO   UF_f^LK UhvhwhthuXY^Lwtvtuvw_L꛰LL~hvhwv~vwhthuttutvv ȱtvtv %l HHL{H}L{)L8z|~{}L|) u|f}jtz) wzf{jv8vtwxyyHxHxyyHxHxu9ܚxy9ݚyyHxHxyt yHxHHviHLHHLHHL??F|}H|HLX hh&ńL{0eeƄL{8傅ń 8冪8冪ƂL{hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9ڙ fHHLfHHL @hhHHHHhzh{h|h}vI%~t~wI%u~xȥxLhhh |he|Ȅ~ Ȅtl #|8|e| h9 0 ~ʚL #|| hI9~ʚL #|0| h~ʚLztzx{yxtezʥ|x}y~xЏXXz{hh &hexheHxH{HzHezHHLnh|h}hzh{hxhyx~ȱx|80~~ iff~z ~=~=H~HLhthuh|h}hzh{z v%ttw%uu|80tuutvwwvi t&uv&whxhyx~ȱxYYHXHL"XYYHXHXXYeXXYLhhhihjhkXi&jhȑjL{hhjLhhjL{LtutLL Uhe^xhe_yxHxHL{ Uhe^he_HHL{hh U_ ^&L^_ ChexheHxHL{Ɗ8冥凰 ` ef"f fefd8de8&&`ffefd&&`hhhh IiIiHHLhhhh HHLhthuhvhwxyEw0wy)xv!y0uEy0yutxyLLXYXXhthuhheteuHHLhIihIiHHLhthuhh8tuHHLedff dedeeefefdff`hh0 hhLhh"IiIiIiIi CHHLHHLjdeLߎIiIi报IiIi`0\XE0XLXŌC?8XX&XeYei捠8XYLXiXYL hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LÎL{ hthuZtȥ[tL{hthutZȱt[ҋӋL{lhh0HHLIiIiHHLXYLȱXt v8vthhhihHhHL{LÎȱXtetetjktL\hjhjhhL{hthuhettheuuHtHLhhhthuhettheuutLhhhihjhk ULhthuhh%uH%tHLhthuhhuHtHLhhIHIHLXXhhQX0XōiXd_ecedi deeHdHLnX q U^ebd_ece hdhdLnX Ue^te_utHtHLnX Ue^te_uhthtLnX Ue^e_HHLnhthuȱtHtHLhthuhvhwtvȥuvLȱXȘ tX)XYXHXHXetdSe_e dHdHL{ URe^dSe_edi deeHdHL{ URe^dSe_e hdhdL{èPHPHL UPe^dQe_e dHdHL{ UPe^dQe_edi deeHdHL{ UPe^dQe_e hdhdL{X q U^ebd_ece dHdHLnX q U^ebidʋˋ  HʋH V ͡x ɝPRȥQRRvȱRwv8vwv8vRwv RLXiXYXiXY HHXYX oLnhh)X0 eXXYL{eTteUut8tXutYLHHLXHXHLn飨RHRHL URe^oPP4b׫DNk“ͫU㤴L-X_XYX ^&_` ^_`RbScbtȱbctb`ҋӋ`ZӋ[ҋӋ`Zʋt@<8ҋӋZ\t]b[       HL{htExx0tEtttx0LLh)thh)htL曩 lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLhHHL%lHHLhhh |~hve| z~~8|eztl8冨L 0 8`hh Üt~ h0 LF LFllLeLk/ L 8L Üt~ hI=+ L Üt~I= ~ LȄHHL{hh tuLhhVtWu\z][^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v]]{cuZZr) `) e`ʋhhL{ˋHʋHL{ʋLL{hh }HHL{hh }L{|hhhzh{hezzhe{{hh }HH vHwHxHyHL L8uhhL0 vwx`Fvfwfxx wvL$tvIvwIiwv`t ٥ vHwHL{t ٥ vHwHL{hh' HHHHL{HHHHL? ABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z *`t ٥z ٥u{ HHHHL Lt ٥u HHHHLtzu{v|w}x~y L^Ltv&t&v ILhhhh4IiIi&lhyhxhwhv 馢 Lt ٥z ٥uLߎ{ HHHHLtEz{8u i  iL󎅁 8y~x}w|v |}~8&&&&Fvfwfxfy J j * LtEzu8u{8euPhhLi򅁩Fvfwfxe~e}e|ffffإ Lʨ * j|v ` J j *`u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t ٥z ٥uz L{t LtEzt æ L " 馢 Lt ٥z ٥uz L{tItt LtEzz æ L "I lhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvfwfxfyyyF|f}f~f` yexe~we}ve| * j *` 8y~x}wtvȑtvL{he^hie_ije^jke_k_ik ʱhjL+^LKhjL{h^h_ hhhhhhhhL{hjhkhejjhekkhhhihehhheiiXЀ_ʱhjkiL^LhjL{8Ӌ\ҋ]ӋLѥ\Z][JHjHL{hhhhh*68jh*v|}0 |}L죥|8|}L죥|8優}HHL{hxhhhTLT8tUut8tXȥutYxT VLRSLȱvȱwvLv8vwv8vwv xvиtȱutХL UL{XiXYLhthuhvhw 8ƑzL` 8   ` J\K]`hh ͡L{hh L{X rLqhhh^h_hhhhL{hjhkhejjhekk_ ʑjkL^LjL{hhh|h}he||he}}hhhhh^eh_e^Ii^Ii_|ň.L'$-8\.\]/]\8]`8\] ?z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLPQ |l|8|}8||ȥ}||8|}| iiL梥 |ȱ|L,8||tȥ}|utetȱtet|8|}Ƅ`t et HHH* ! o* H.t/u\8t\]u]\Z][ 8\Z][LÎ]H\HuHtH-H,H! * L¡ lʋL`   `\J]K t et,xX ͡XY ɝ |0 LXx 䝥QHPH ~P~ȱP~~P֋Q׋L RhP֋hQ׋Lm RR8tSut\ȱt]X i RHLRtȱRuVt tV܋uW݋RTڋȱRUۋRXȱRYRRR؋SًL8|}` ~|it}iu8ttXutY|iTڋ}iUۋ~R؋Sً~8vw\vȥ]vv\w]V܋W݋lXx 䝠 |ƄRSLȱȱńRRLXx 䝠~~~~LXx 䝠P~Qȑ~LX{XiXYt8xtut8xtu8tt|ut}|=0 8   |8|}8||ȥ}|uHtHlLp|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LÎP~ ~i jik|Lhj{HzH)X ! _ Lଊ L L Lଢ hhhhL଩|hh }) | Lଊ ! | Lହ oLଊ[HZHHH `L fL xL ~ Lଭ\ʋL{hhHHHH{HzHyHxHwHvHHH`\L{L |~\hJJJJ) ʋ)~)hhvhwhxhy0LwhhhhhhL{h0yhzh{hezzhe{{hh }) 權| Lڬ !" 權| Lڬ 欥| lLڬ iLڬt [\kl| Lڬ Ի'È rh`@ n n0`LԻ` KLTLԻHH r hhLԻ ~` OȄ`H$)A[hIH80(hI`i(LĻ8(hI`LJ) )i i`¥ĥ zJ` 5 AHL z A MȽ`H AL zH ,h`   ׺ݺ"5>EKTrU808 0PL8 0 Ի``) ` )? L~ @` ONl```LԻH Ի 4# `H A hlQ`) թ` A Ȣ`JJJJ ϱ` z,p 0*P$ ϻ j ϻ`H 5 AL zH Ah ɢ`) 2 z0` z)` ( `) 'Lط )?l I@L;  "L;,QL,c*A[ Lڷ0%H)@hILө UЪhhh(`N`hhhhhhHH)> 6` a0* )` z `(5ƊgƈЪ ` QRTW E ϻ *0 L-qŐ`8Hh`HHH*@^]U)j7 [ +)L;~ lJf)jjAUIL;0 ,> ϐ8 (H 7 +P 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `"ZxDŽ `І `?;78H<8Hֶ ڶ 8`Ί ax>?8T8Wuv ýI꽌ɪ꽌ɭ蠪ϮVE]V]H)]V])]T])]Ψ 8$hU>`ȅSϭ83Ii  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴    `Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`LJ 8彐.mĿ"Š>?( XˍL ˩($8` h Hǹxhx ڵN`8Ύ켽0|ϩHhHh    VYΝY켝ꪽ   Ͱ()I يJJJ(jǩF؅G(  7 k( F G  Xj0  $8 xH Ｉ`Ǚx kh kL~@(LYLWH͍h (ͥpi)ͥˤ˹HH(x zh(`~Ȍ``hhh )hJ¥jJJhhihhhJihhha [U8ſƅh)x h H('eƍ8ƅи ĘHH` Ｎ xLQ|8 z~#ĄLzz{xyLt ZLIz Zz{xгyL~(8 Ǝ Li`` ` `ʋ`HHlHHl`HH8(iPH Ի'(hH'O'OhhmhLԻJL680%`M8$LL2LhhhhhhhhץHH` ȑآL 8ؘ ؈ȩؠ#LLLLLLLLLLLLLLLL) emөmԥl` ҹ!H H` ``LzLθLXLL˹LL(L,LLLL$LL LLLLͼLLzL:LhiZhi $ $USES FIOPrims; $ $PROCEDURE FInit(VAR F: FIB; Window: WindowP; RecWords: Integer); $ $PROCEDURE FReset(VAR F: FIB); $ $PROCEDURE FOpen(VAR F: FIB; VAR FTitle: String; FOpenOld: Boolean; 4Junk: FIBP); " $PROCEDURE FClose(VAR F: FIB; FType: Cl! "ˡ! "ˡ ߡp  ᄡM "ˡo )á á ávˡ á cń# Ȅ ښ6áÄ  š  ġ݂š  šš!ڞڂڂڕߓS  ! "ˡ! "ˡ ߡp  ᄡM "ˡo )á á ávˡ á cń# ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ šš  ġ݂š  šš!ڞڂڂڕߓS  RUNTIME SYSTEM.CODEz6 ʪz|z6 UNb6 *,, SYSTEM.CODEEM.SWAPDISK ̅(צSYSTEM.TEXT - %̅,ړצLis SYSTEM.CODE.CODE[*]AP0WRK:SYSTEM.SWAPDISK. " $PROCEDURE FGet(VAR F: FIB); $ "IMPLEMENTATION E ODEDISKWAPDISKԍ֍br r b^br RUN`b6 6 ^``Pb6 r BBBBBB >zPASCALSYUSERPROGSYSIO PRINTERRINITIALIGETCMD FIOPRIMS THISISIT THISISIT ϐ8 (H 7 +P 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `"ZxDŽ `І `?;78H<8Hֶ ڶ 6>?8T8Wuv ýI꽌ɪ꽌ɭ蠪ϮVE]V]H)]V])]T])]Ψ 8$hU>`ȅSϭ83IiŅhh ҭHH`l]^@MNP]^@(8LoseType); $ $FUNCTION VolSearch(VAR FVID: VID; 7LookHard: 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 CEDURE FReset(VAR F: FIB); $ $PROCEDURE FOpen(VAR F: FIB; VAR FTitle: String; FOpenOld: Boolean; 4Junk: FIBP); " $PROCEDURE FClose(VAR F: FIB; FType: Cl 䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄצ   ١  n ١ á9 ٓ/! !!١ ˡ) !á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ  PMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ġڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ   7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢۢ؂X!  ,ߓ$ ޓ "ߓۄ, ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯߢ  d˯ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓń Ȅޓޓ! ܲݤߓÍߡ`ݤW ˡɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ"á  $.GRAFׯצ.FOTO < ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷iȡFۤ ō5252á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šoseType); $ $FUNCTION VolSearch(VAR FVID: VID; 7LookHard: Boolean; VAR FDir: DirP): UnitNum; " $PROCEDURE InsEntry(VAR FEntry: DirEntry; FInx: DirRange; FDir: Dirp); " $PROCEDURE DelEntry(FInx: DirRange; FDir: DirP); $ $FUNCTION FetchDir(FUnit: Unߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n b@"䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄˡ ߢ`ޤ7 VڪƁ Ɓ "áÔ/ʁ ʁ"ˡ2Ƃ. Ƃ.Ƃ. mƂ. Ɓ Ɓ XުP"ˡ ۡ́7ˡ!!P!x!P %'"6ۢڤ ɡ$ޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤצ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!ȄתPL`V\Z     CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT\8gikm V    p  CONSOLE:ת צSYSTERM: ~ Dø !m צTARTUPתٟá'      CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT\8gikm V  ʀʀʀoʀo <@تٞ&"á ٤  ȡؤצۢÍ ȄۢؓÍ؞&"á ۶ ضár۪*SYSTEM.S,ʀ%2 &̀ʀʀʀʀ%̀oʀoʀʀʀʀ ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀ٢ š٢ ٢٢ 4$ o/ o d'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n   䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n   䚹 9U?2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:!  n 1"ˡƁ3 Ɓ31Ɓ1Ɓ3́6ʁ6ȡ%Ɓ1ʁ6ƀʁ6ʁ6́6Ɓ4 ƀƁ4 N*SYSTEM.LIBRARY ́6ʁ6ȡ&ƀʁ6mʁ6ʁ6́61 J`8  á.(צ*SYSTEM.ATTACHáá'צ*SYSTEM.STARTUP šf"ˡ ۡ́7ˡȡ2 š:X f铡b!   תˡ%ˡ& öÍ##&*ńȄ4šáRתPńȄ ,ń.áš蕿@šQQP 0á0 é000+-Í-ë009ȄZ 000á("á 009Ȅ00 tU\ ȡ邫 T p>š 쾿  .Tá $ ,áá200á0ń0ˡ ɡa Mȡš ȡ뾿  + dá2á" ɚ V  Oš *š  4T h ɡ'áצ-32768 ^ 逫-ġ>0ɡ F b$ Ą ɡ 낫š ꓡ#š땫Ě@$"á1ꓡ삫Ú š K$"á61 !  ! "ˡf á3 á+á! "ˡ  +Uz ?š?ˡ?ء "ˡ$ߕނߚ  d쓡  # á1 š#    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ    šˡ 퓄 Ä퓡x š   ɍM   "ˡ.ˡ j <"!&ˡ ! !6%ɡšɡš  P & b l@$|Tj P~  6 J%蕿@šQ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYՊ@ЂЊLJ    !!!!"""""""""""""!!!!  l`0L0 @`c  @1fl 03333?633 ~ffc66ccc6< ? ? >?> > ? <<   ? >0>33>?33333006?333>3?3<6?333>03?3333 33{?33333333?3336?333>0007303?3;33>333?333300000333333?cggo{ssc33333333333333;>0333;sc3033? 3333333333 ~fffcc66cc333 ?0 ? 0000 0    ?? ЀЀԪЀЀъՂՂwwwwwwwwwwwwwwwwwwww ``00 pp037>3773x00??x|     I>>I                     ??ԪЂԠЀՀЀԂ@ԀŠЀЀЪՀ@ѪՊ<~|0 |x <|````ppp0xx ???? $ "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:IBBBGBGGBGGB'5/25/83 10:50A DEBORAH L. BAU (RUNTIME)"  & *" ) VPASCALIORESPONSECHAINSTUSHORTGRASHORTGRAAPPLESTUSFG SFG MCIUNIT SINUNIT SINUNIT  !'PUUssЦpepe?Ц?ph/foЦ cc37p` ` p``03`0@UPUPUPUPPTPTUTUUUAUQUQQPQEQEQ@P@P@PE@EUPPUUUUPPPPPPPPPPPPPPPPPPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPPPPPPPPPPPUUUUUUUUUUUUUUp``@D@D@D@UUUU@@D@A@APTUU@@@PPPTTUUUUUUUP@@DPUPTTPPTPPPTUTUp`0x0x0x0x00000000<0<0<0<0<0<0<0<00x0x0x0x0x0x0x0xPUPUTUU@@D@PDPPDTTDTTUTUTUTUUUU@D0xxx00<<<0<0<0<0s377?xxp0 0 0 < 88 8|`0<8p `p0  00``TT880pppppp09  x00000000000  8|8  8 0 0p```c????TUU@U@U@U@U@UUUTTU@UPUTUUUUUUUUUUUUQUUU@U@U@U@U@UPEPEPEPTTTUUUAUUUUT???? 0``0 p8<<q??NTEGER[36]) /END; ' " "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); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L E ER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IتPš++.تPRš+R+PP0RšزRPزPR,"6h b6 6 ^``Pb6 r  AP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK. "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E br AP0`b6 6 ^``Pb6 r    z Z   :    ( tV8z <|  [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <| )   uh[NA4'á +-Í-09Ȅ0ݡߑ ع    ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |,  &  * عteVG8  $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ōݢ ۚݢܚ   .á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáݣޢÄá ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢNTEGER[36]) /END; ' " "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); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRAP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK. $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; $ $VAR 'FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCE# " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #eNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}z I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)QتP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ٚ SYSTEM.CHARSETáSYSl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ 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; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION Sjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  T p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢ L me** +i+ ,``,#  `&'L(`+*L=LN٩--*) )+Ls)!Ls*+ LС`-Ls-I&-%&`  930+& Rhhhh 5HH`*+,mm,`)8 ` 8,,$*) )Lw)*+* +! ,"0   , *!+֩      ع2`  3`  %`   9-#`\  تP-.-.ȡ---V2  ع1ǁ ? :U* 3*U ,V* $+U RE PRINT(CH : CHAR); "PROCEDURE FILL(COL : INTEGER); "PROCEDURE HIRESINIT; " !IMPLEMENTATION E BSTART : INTEGER; #HEAP : ^INTEGER; #COLOUR,CURFONT,CHBYHIGH,CHBYWIDE : BYTE; #MODE,GRMODE,SPACING,TWKFLG : BYTE; (*PUBLIC VARIABLES*) #FONT1 : ^FONT1TYPE; #FONT2 : ^FONT2TYPE; #FONT4 : ^FONT4TYPE; #TABS : ^TABSTYPE; # "PROCEDURE AT(XPTR,YPTR : INTEGER); "PROCEDURE FONTSET(FNT : INTEGER); "PROCEDURE PRINTAT(XPTR,YPTR: INTEGER; S: STRING); "PROCEDURE COLOR(C: INTEGER); "PROCEDU" " !VAR #WINDOWX1,WINDOWX2 : INTEGER; #WINDOWY1,WINDOWY2 : BYTE; #XLOC,YLOC : INTEGER; #FONTSTRT,TABSTART : INTEGER; #HEAP : ^INTEGER; #COLOUR,CURFONT,CHBYHIGH,CHBYWIDE : BYTE; #MODE,GRMODE,SPACING,TWKFLG : BYTE; (*PUBLIC VARIABLES*) " !TYPE "BYTE = 0..255; "FONT1TYPE = PACKED ARRAY[0..1023] OF BYTE; "FONT2TYPE = PACKED ARRAY[0..1151] OF BYTE; "GRAPHICTYPE = PACKED ARRAY[0..39] OF BYTE; "FONT4TYPE = PACKED ARRAY[0..99] OF GRAPHICTYPE; "TABSTYPE = PACKED ARRAY[0..95] OF BYTE; $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $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,DURATIE&-&&`&`"N","0m`1*M- 7WLO)*)U*+0N, N (*Ъ+L` , N (Li  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&''''''' $USES SFG,RESPONSE; $ $PROCEDURE MCI(XPOS,YPOS:INTEGER;VAR VALIDINPUT:STRING;INPUTYPE:INTEGER; 2VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN; 2REVERSE:BOOLEAN);  "IMPLEMENTATION E DLB`b6 6 ^``Pb6 r (*,.024Ev *MǻצPress a number. K G $>.62 3"$&(*,.024Evá' $  <dO٪PتPdO++PTbO"bO`O `O p$Bl6bP|*MǻצPress a letter. K G $>.62 3"$&(*,.024Ev *MǻצPress a number. K G $>.62 3"$&(*,.024Evá' $  <dO٪Pȡ $ ȡ$ á'  @ $2 *MǻצPress a letter. K G $>.62 3"$&E SETSCR10; $PROCEDURE SETSCR11; $PROCEDURE NORESPONSE(VAR RESPNO,ELAPTIME:INTEGER); " "IMPLEMENTATION E ESP.CODEAPDISK ̅(צDEMORESP.TEXT - %̅,ړצLis DEMORESP.CODEODE[*]SYS:SYSTEM.SWAPDISK. $USES SFG; $ $TYPE &FUNSET = SET OF (TIMEOUT,START,REDO,HELP,CLEAR,ERASE,BACK,INSERTA, -DELETEA,RETURNKEY,SPACEBAR,QUIT); $ $PROCEDURE GETNAME(VAR NAME:STRING); $PROCEDURE SETNAME(NAME:STRING); $PROCEDURE SETTITLE; $PROCEDURE SETMENU; $PROCEDURwwwwwwwwwwwwwwwwwwww ``00 pp<"F  Z N  ??x|     I>>I PRWHH`321.+(Thhh !,LZLZ*LZULZLZLZՍHH`.+(%"sphI-%hhh,h-, h*h+ * HH`# nkhedaZFCB?8?{s^.) XM<3# '*hhh h Q PHH   ? KL```T"phh*+, '(+(/(3(7(;(?#'+/37;?P P$P(P,P0P4P8P< $(,048"&*.26:>P#P'P+P/P3P7P;P?#'+/37;?PNM.*$tspoeUF)!@ @ @ @ @ $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;?( ($(((,(0(4(8(< $(,048<(!(%()(-(1(5(9(=!%)-159=("(&(*(.(2(6(:(>"&*.26:>(#( @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ DLBNKDT MCIBOOKB.CODEz6 z|z6 LBb.6 *,, MCIBOOKB.CODEAPDISK ̅(צ #9:MCIBOOKB.TEXT- %̅,ړצLis MCIBOOKB.CODEODE[*]SYS:SYSTEM.SWAPDISK.ʶ,ɶɄ* ˡI  ,,ġضپ ,,ȡؾ -á} ˡhI  ,,ġضپ ,,ȡؾܪP0/ 10/1X 0ܪP11T  + תPܧ+2,ɶɄ*5@2K4á=DSET:STRING;VAR CHARVALUE:CHAR; .VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SBE(VAR ELAPTIME:INTEGER;VAR FUNKEYS:FUNSET;RESPNO:INTEGER; .KEYRESET:BOOLEAN);     (* ALL PROCEDURES ABOVE ARE DRIVERS *)   "IMPLEMENTATION E NSE; $ $TYPE &INPUTSTATE=(SKIN,SKEIN,SBEIN); )  (* DRIVERS AND PARAMETERS *)    PROCEDURE SK(VALIDSET:STRING;VAR CHARVALUE:CHAR;VAR FUNKEYS:FUNSET; -RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SKE(XPOS,YPOS:INTEGER;VALIDSET:STRING;VAR CHARVALUE:CHAR; .VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SBE(VAR ELAPTIME:INTEGER;VAR FUNKEYS:FUNSET;RESPNO:INTEGER; .KEYRESET:BOOLEAN);     (* ALL PROCEDURES ABOVE ARE DRIVERS *)   "IMPLEME $USES SFG,RESPONSE; $ $TYPE &INPUTSTATE=(SKIN,SKEIN,SBEIN); )  (* DRIVERS AND PARAMETERS *)    PROCEDURE SK(VALIDSET:STRING;VAR CHARVALUE:CHAR;VAR FUNKEYS:FUNSET; -RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SKE(XPOS,YPOS:INTEGER;VALIá::FhhhhhhH0!  HHH`>2bn lbضˡ9 á   á    ؾ+öؾ-Í ؾ.áġyؾ áC á   á    &ضˡ á  4     &20  '"  0rȡ Fȡ , B ˡȡؾضˡ9 á   á    ؾ+öؾ-Í+Í-ÍA+ö-Í ˶   ö Ä    d :ɶ/ń ö Ä    4 ɶń ö Ä   4 #   4 h  I ,$u bG 8Q [ɶ@ń{ɶ`ń Í ö Ä    F :ɶ/ń á> $  +   .á ɡR Ý Í              á    šZ Ý Í       ȡ    +  ˄   ,  .á  Ó= Ý Í     @  á> $  +  I  ,,ġضپ ,,ȡؾ ^ l &X}NsX ɡ   + 334K4á= 33422h2K 2,$G, Ef 8  ȡ15 ؾá5 ˡ52:L  ȡT5 ؾáB5 ˡ;3355 ^@o<`LOM ~>g|~1|ps>|p xVz`|r|`9`[tp`~?t|?@0?|b_'x`p/h|=x[e_b\x`{`/v|_'`qg ~ 0p~~x Xs?s}o{=`;|} @y@`?_{bp|xcn3k|ew`__g `p|xp|x8@ak1Hsn}Lklp@NcDsp pqpx`7Nz>~N0odYq?@AXl8>z?~x}O$|}pl8;x= v@?BGKB xXv>|C0 ntO!@gIX; |c>`xg;x/wv;v?px\?wpo8px?`vGph ||1x|g@s???ED\``~`p#c{ |{w`lMof?p@+bgqOG p|`oB@@`7oAJ?j`s~p_?p?~|h |8n~a}]}apoNE.|}|@pf\K ld'8p?_c@|{yqcyA(@M?`OyP~o|[|BCp~`|8pt^áá%342á2^ X5ˡ      f 4rȡ 4Fȡ , B 234 ˡ 5 &. ݪP2 'á2==ZNhhhhhhH0!  HHH`>d@` p áá%342á2^ X5ˡ      f 4rȡ 4Fȡ`8`xiM;`?~_)p~C3Oq}|xB"H ~0`q~8x?~F}w_zg?@L@;[/7|_h@'_R pbbq{x`Opeyg|g^/w#|C@g`<2wp?O<G{wy@`}@N`8p>__xx^scwXL~'8u0?g~|Pr^3}?? t~>`l6H76fq~>xc|2Oq pEsqh@xgg1_}~`~}!{w_|pp~gn"~{s{sCdxgj~p_}o0p`?[0~px ~{<|{N>w@2p?@!t|qp`|}aqgPaa @Q@?gxGobx{?~H@n@~@`Dg~?_x|cAz?>~_Jf|=p~}?~wPs~c4:0v r3wBv8c^CDz`~@8acmc {/\~`o7 9?~a<8X8f~gwg}|8x#@O`=|G?@?xoq~|xw?~|9Pyx0`  p?ty|@`|?qOo`q0@ P?cP~c>;~?p??@{L@e~C@ny9|`|q`~`sxZC=@}b~{y?`9xga}>xa` W8?|s;^{{&h`|P? 8@}q9w{" x@+p!\ `!=~?GO @b``?@~p;x`|p?xx>;p}Z<`p ?v|?~cp{h{xg{1xe{O|0o0p Cy{|o~?`@g}@{CqcFs==>>ns@HE&`?p1t8p?`@\~>@O}wq#px@Qau|wH|?@h?|Aaw|@#@" 2qg|AGc_ ~c| $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ōݢ ۚݢܚ   .á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáݣޢÄá ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢNTEGER[36]) /END; ' " "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); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L E ER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "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); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR $ "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:IBBBGBGGBGGB47/13/83 NEW RUN LIBRARY (NO SHIUNIT) DEBORAH L. BAU" &  & * ) VPASCALIORESPONSECHAINSTUSHORTGRASHORTGRAAPPLESTUSFG SFG MCIUNIT SINUNIT SINUNIT % 'v?z?E`G!@`'?|`8BwwA<~}@O1Zq Hdp|1F`x@`@X~`;~9ycx@7gA?~~_C?fF0?.?p<pm_xzp~fO }0 wOC|Pw3|w8a|zxbw}bY?pzgg؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |,  &  * عteVG8  )   uh[NA4'á +-Í-09Ȅ0ݡߑ ع    ǯ?Ǭ?ǰ?Ǯ?ǩ? áǫ?Ǭ?0 ٢ؚ ڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ 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; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION DURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION S $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); & &FONT=PACKED ARRAY[0..127,0..7] OF 0..255; $ $VAR 'FONTPTR:^FONT; $ $PROCEDURE INITTURTLE; $PROCEDURE MOVETO(X,Y: INTEGER); $PROCE(*,.024Ev*MǻצPress a number. K G $>.62 3"$&(*,.024Evá' $  < dO٪PتPdO++PTbO"bO`O `O ^O  :X6Nzh  K G $>.62 3"$&(*,.024Ev*MǻצPress a number. K G $>.62 3"$&(*,.024Evá' $  < dO٪Pȡ $ ȡ$ á'  @ $2 *MǻצPress a letter. K G $>.62 3"$&E SETSCR10; $PROCEDURE SETSCR11; $PROCEDURE SETSCRA1; $PROCEDURE NORESPONSE(VAR RESPNO,ELAPTIME:INTEGER); " "IMPLEMENTATION E FAKDEMR.TEXT FAKDEMR.CODECODE[*]SYS:SYSTEM.SWAPDISK $USES SFG; $ $TYPE &FUNSET = SET OF (TIMEOUT,START,REDO,HELP,CLEAR,ERASE,BACK,INSERTA, -DELETEA,RETURNKEY,SPACEBAR,QUIT); $ $PROCEDURE GETNAME(VAR NAME:STRING); $PROCEDURE SETNAME(NAME:STRING); $PROCEDURE SETTITLE; $PROCEDURE SETMENU; $PROCEDUR  z Z   :    ( tV8z <|  [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|l    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'    4 تP+,+,ȡ+ ++V 0  آآآǿآآǿآآ@ ٚ SYSTEM.CHARSETáSYShhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P $ $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,DURATIT p |  TURTLE.CODEODE PITURTLE.TEXT{d PITURTLE.CODEmd PRESHORT.CODEFɢ STURTLE.CODEm SHORT.TEXTXT{ɢjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )L6I1L6)QL6        xhXOF=2 6 j > @6  # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)f [B  ""##8&$iT8&UU ! U"# UT`+%$Y)!p JhhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH J "  ` ` `SN-(' . hhhhhhHH `  [HH8H8 hhhL.+ rhh heheheheHHLh< L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #eNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)     e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}z I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8TEM.CHARSETx @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^nkhedaZFCB?8?{s^.) XM<3# '*hhh h Q PHH   ? KL```T"phh*+, '(+(/(3(7(;(?#'+/37;?P P$P(P,P0P4P8P< $(,048"&*.26:>P#P'P+P/P3P7P;P?#'+/37;?PNM.*$tspoeUF)!@ @ @ @ @ $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;?( ($(((,(0(4(8(< $(,048<(!(%()(-(1(5(9(=!%)-159=("(&(*(.(2(6(:(>"&*.26:>(#( @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&'''''''E&-&&`&`"N","0m`1*M- 7WLO)*)U*+0N, N (*Ъ+L` , N (Li L me** +i+ ,``,#  `&'L(`+*L=LN٩--*) )+Ls)!Ls*+ LС`-Ls-I&-%&`  930+& Rhhhh 5HH`*+,mm,`)8 ` 8,,$*) )Lw)*+* +! ,"0   , *!+֩      ع2`  3`  %`   9-#`\  تP-.-.ȡ---V2  ع1ǁ ? :U* 3*U ,V* $+U RE PRINT(CH : CHAR); "PROCEDURE FILL(COL : INTEGER); "PROCEDURE HIRESINIT; " !IMPLEMENTATION E BSTART : INTEGER; #HEAP : ^INTEGER; #COLOUR,CURFONT,CHBYHIGH,CHBYWIDE : BYTE; #MODE,GRMODE,SPACING,TWKFLG : BYTE; (*PUBLIC VARIABLES*) #FONT1 : ^FONT1TYPE; #FONT2 : ^FONT2TYPE; #FONT4 : ^FONT4TYPE; #TABS : ^TABSTYPE; # "PROCEDURE AT(XPTR,YPTR : INTEGER); "PROCEDURE FONTSET(FNT : INTEGER); "PROCEDURE PRINTAT(XPTR,YPTR: INTEGER; S: STRING); "PROCEDURE COLOR(C: INTEGER); "PROCEDU" " !VAR #WINDOWX1,WINDOWX2 : INTEGER; #WINDOWY1,WINDOWY2 : BYTE; #XLOC,YLOC : INTEGER; #FONTSTRT,TABSTART : INTEGER; #HEAP : ^INTEGER; #COLOUR,CURFONT,CHBYHIGH,CHBYWIDE : BYTE; #MODE,GRMODE,SPACING,TWKFLG : BYTE; (*PUBLIC VARIABLES*) " !TYPE "BYTE = 0..255; "FONT1TYPE = PACKED ARRAY[0..1023] OF BYTE; "FONT2TYPE = PACKED ARRAY[0..1151] OF BYTE; "GRAPHICTYPE = PACKED ARRAY[0..39] OF BYTE; "FONT4TYPE = PACKED ARRAY[0..99] OF GRAPHICTYPE; "TABSTYPE = PACKED ARRAY[0..95] OF BYTE;  PRWHH`321.+(Thhh !,LZLZ*LZULZLZLZՍHH`.+(%"sphI-%hhh,h-, h*h+ * HH`# <"F  Z N  ??x|     I>>I "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E br AP0`b6 6 ^``Pb6 r  á::FhhhhhhH0!  HHH`>2bn lbضˡ9 á   á    ؾ+öؾ-Í ؾ.áġyؾ áC á   á    &ضˡ á  4     &20   '"  0rȡ Fȡ , B ˡȡؾضˡ9 á   á    ؾ+öؾ-Í+Í-ÍA+ö-Í ˶   ö Ä    d :ɶ/ń ö Ä    4 ɶń ö Ä   4 #   4 h  I ,$u bG 8Q [ɶ@ń{ɶ`ń Í ö Ä    F :ɶ/ń á> $  +   .á ɡR Ý Í              á    šZ Ý Í       ȡ    +  ˄   ,  .á  Ó= Ý Í     @  á> $  +  I  ,,ġضپ ,,ȡؾ ^ l &X}NsX ɡ   +ö,ɶɄ* ˡI  ,,ġضپ ,,ȡؾ -á} ˡhI  ,,ġضپ ,,ȡؾDLBNKDT MCIBOOKB.CODEz6 z|z6 LBb.6 *,, MCIBOOKB.CODEAPDISK ̅(צ #9:MCIBOOKB.TEXT- %̅,ړצLis MCIBOOKB.CODEODE[*]SYS:SYSTEM.SWAPDISK. $USES SFG,RESPONSE; $ $PROCEDURE MCI(XPOS,YPOS:INTEGER;VAR VALIDINPUT:STRING;INPUTYPE:INTEGER; 2VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN; 2REVERSE:BOOLEAN);  "IMPLEMENTATION E DLB`b6 6 ^``Pb6 r wwwwwwwwwwwwwwwwwwww ``00 ppAP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK.تPš++.تPRš+R+PP0RšزRPزPR,"6h b6 6 ^``Pb6 r  n {nn!@n nn!-n @nn!|bOxx"ˡù |å FONT2.DATAr || á|||| ˡ@nn@nnצBCBBB B B B B n< LESSON3 STARTUP SEGMT4 SEGMT1 SCR33 SEGMT2 SEGMT3 t^áá%342á2^ X5ˡ      f 4rȡ 4Fȡ , B 234 ˡ 5 &. ݪP2  'á2==ZNhhhhhhH0!  HHH`>d@` p áá%342á2^ X5ˡ      f 4rȡ 4Fȡ$G, Ef 8  ȡ15 ؾá5 ˡ52:L  ȡT5 ؾáB5 ˡ;3355 ^ 334K4á= 33422h2K 2,ܪP0/ 10/1X 0ܪP11T  + תPܧ+2,ɶɄ*5@2K4á=DSET:STRING;VAR CHARVALUE:CHAR; .VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SBE(VAR ELAPTIME:INTEGER;VAR FUNKEYS:FUNSET;RESPNO:INTEGER; .KEYRESET:BOOLEAN);     (* ALL PROCEDURES ABOVE ARE DRIVERS *)   "IMPLEMENTATION E NSE; $ $TYPE &INPUTSTATE=(SKIN,SKEIN,SBEIN); )  (* DRIVERS AND PARAMETERS *)    PROCEDURE SK(VALIDSET:STRING;VAR CHARVALUE:CHAR;VAR FUNKEYS:FUNSET; -RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SKE(XPOS,YPOS:INTEGER;VALIDSET:STRING;VAR CHARVALUE:CHAR; .VAR FUNKEYS:FUNSET;RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SBE(VAR ELAPTIME:INTEGER;VAR FUNKEYS:FUNSET;RESPNO:INTEGER; .KEYRESET:BOOLEAN);     (* ALL PROCEDURES ABOVE ARE DRIVERS *)   "IMPLEME $USES SFG,RESPONSE; $ $TYPE &INPUTSTATE=(SKIN,SKEIN,SBEIN); )  (* DRIVERS AND PARAMETERS *)    PROCEDURE SK(VALIDSET:STRING;VAR CHARVALUE:CHAR;VAR FUNKEYS:FUNSET; -RESPNO:INTEGER;KEYRESET:BOOLEAN);    PROCEDURE SKE(XPOS,YPOS:INTEGER;VALIAP0WRKTCHAINSTUFF.CODE6 z|z6 P0bF6 *,,CHAINSTUFF.CODEAPDISK ̅(צ CHAINSTUFF.TEXT- %̅,ړצLisCHAINSTUFF.CODEE[*]B2WRK:SYSTEM.SWAPDISK.1 תצ2 3 תצ4 5 תצ6  ת{ǀǛoǬdǴZǷQǣFNJ8}*rrȡrrrt&~ 4n!|bOxx"ˡù |å FONT2.DATAr || á|||| ˡ@nn@nnצBCplies.p p You were caught in a storm. You צ!need 10 days to prepare to climb.wp p צStorm clears, but you did not "reach the next camp. Lose 10 days. jAu듡pɡ t your rest at ;  You spend two days at this camp.pp  There are no previous camps. You use 5 days preparing to climb.oopp You return to 6 צ!You use 5 days to stock sup ǷצPress RETURN to continue.rru>utá)J.r 8 + 9 You have 1צ days to reach the top.H GYou can:oá 1. try for the summit.ת(#1. establish the next camp.ת( U c2. remain at the current camp. q3. return to the previous camp. צ4. cancel the climb.Mǩצ Your choice?Fu1237* Your supply level is =Ĺv!The weather is good for climbing.ת(YצA storm is beginning.(:"A blizzard is blocking the way up.ת(~U8 + 9 You have 1צ days to reach cXZO7 áŹ[áŹNũo4ɡŹ6ɡŹ)ɡŹɡŹ;0%z צ You are at 3Ź0צgood.(.low.ת( very low.ת( p š$צ (p 0p 0 (p 0F\EpE8E8>Į o[ɡĹbɡĹUɡĹ ɡĹ;ɡĹ ɡĹ!ɡĹoice?BuצABabvuu@u7vtRtǴOnn!tátá  ǴZǷQǣFNJ8}*+3L+צ Simulationljnj r rȡ%L@rצ 3333333333333rrrurutKljNj +3L+ SimulationLGA. Climbing EverestLUצB. StopLǩ Your ch1 תצ2 3 תצ4 5 תצ6  ת{ǀǛoǬdǴZǷQǣFNJ8}*+3L+צ SimulationljNj LUCongratulations,Lc| . LqצYou have completedLצ this lesson.urruuu tRáצBC1 תצ2 3 תצ4 5 תצ6  ת{ǀǛoǬdǴZǷQǣFNJ8}*t3D    You spend two days at this camp.pp  There are no previous camps. You use 5 days preparing to climb.oopp You return to 6 צ!You use 5 days to stock sup ǛצDo you want to try climbing ǩEverest again? ǷPress Y for yes or N for no.uצYNynvuot  You decided to cancel the climb. The climb is over.  You cannot reach the top.           &ǠralsǟNj       צSEA SF תצLA DEN תצMPL DAL תצCHI MEM ת צBOS  NY ת צMIA  *Fz|z6 LBb6 *,, NEWLES9.CODEWAPDISK ̅(צNEWLES9.TEXT - %̅,ړצLis NEWLES9.CODECODE[*]SYS:SYSTEM.SWAPDISK.ʝHM9á á>5 ^aM"צComputers Are Changing09M0צPeople's LivesLJlj lv BBB B B B B BBB  (h\    LESSON9 SCREEN90INITARRASCREEN91SCREEN95SCREEN96SCREEN93SCREEN92SCREEN98DISK  oáצ Base Camp.(צCamp .(oButu@tuuǴOnn!X.Z1t -t tá t8 .G^ǿs ssrrȡAssȡ ss򥁷ooorrSEf oáצ Base Camp.(צCamp .(oButu@tuuǴOnn!X.Z1t -t tá tǩsssˡrssǿsǿsssǿsǿs ssrrȡAssȡ ss򥁷ooorrSEf " Press RETURN to restart.gV|  צplease wait a moment.22Jצ EVEREST.DATA-r8sosȡs ǯ?nnr"0!צPlease check the following:צDisk drive door closed? צAll cables connected?צPress RETURN to restart.[ SYSTEM ERROR # Return  to Base Camp. The climb is over.co  Congratulations! You reached the summit. Have a safe climb down.a듡#vtt.> BH  צ!You use 5 days to stock supNjHǭyǩ\  nj  DŽ  2    M"צComputers Are Changing09M0צPeople's LivesLJlj MHA. Connecting aPXצ Long-Distance CallMhB. StopMǨצ Your choice? mB6ABתP6 @͹M צ Connecting aM0צLong-Distance CallLJlj TUijUijcijnuij ij:ǍצijǺǩצij  * %  13$!xȡ*0 to  á . צ. Ƿצ#Press RETURN to watch the computer. צConnecting a Long-Distance Call /You can: ?1. connect a call. O$2. have the computer connect a call. _3. stop.Lǧ Your choice? qF6123תP6 @ he call is complete. ǷצPress RETURN to continue.R\ ǧצThe call will be from to  á . צ. Ƿצ#Press RETURN to watch the computer.    Ƿצ#Press RETURN to watch the computer.Ǹ ȡȡ  =/M n Connects a Call0:J ǧThe call is complete. ǷצPress RETURN to continue.R\ ǧצThe call will be from to  á . צ. Ƿצ#Press RETURN to watch the computer.ȡ񥀹á   ȡ[˄<ȡá cB ) צThe Computer Connects a Call0:J ǧT D G_ a ǧ Next route?ǝǧצ Type HOLD and Ƿ!press RETURN if you want to wait.hrq   mǧצ v  תPmǧ   F˶C˄áxz $& ȡ-  צHOLD E  ȡ{ fJȡá B  áF  C D G_ a ǧ Next route?ǝǧצ Type HOLD and Ƿ!press RETURN if you want to wait.hrq   mǧצ v  תPmǧ     7 ǷTyping error. Try again.BG ^"5Ǹ ȡ-  צHOLD E  ȡ{ fJȡá B  áF  C continue the call.   ǷצLines do not connect to  áצ. צ. ǷPress RETURN to continue.   ǧצThe call is complete. ǷPress RETURN to continue.͹ ǧצThe call will be from to  áצ. צ. ǷצPress RETURN to continue.  ǷצAll lines are busy. Try again. Ƿצ"Press RETURN to  AB#t~  DŽ  2    F %  13$!xȡ*0 to  á . צ. Ƿצ#Press RETURN to watch the computer.M צ Connecting aM0צLong-Distance CallLJlj MhCongratulations,MvMDŽYou have completedMǒthis activity. s_  P@ STARTUP SFUNK DOIT MENUSCRNSCREEN78SCREEN9 SCREEN13ENTERNAMTITLESCR @_,A < 7 2 . ) $41.+(&# cá_  PLEASE WAIT A MOMENT.22 *RJ8R PLEASE WAIT A MOMENT.22ե {!@ ! @!0զ FONT2.DATA՝ @_,A < 7 2 . ) $41.+(&# cá_  PLEASE WAIT A MOMENT.22 *RJ8_  PLEASE WAIT A MOMENT.22ե {!@ ! @!0զ FONT2.DATA՝ [ צSYSTEM ERROR # " צPress RETURN to restart.h `@I_  צPLEASE WAIT A MOMENT.22I   ǯ?"Þ"Í" Í"lÍ"mÍPlease check the following:1. Disk drive door closed? צ2. All cables connected?Press RETURN to restart.($F$.Ɓ-צMAP.DATAP H @ צYou Connect a Call ǷצPress RETURN to begin.HR ٚ1R ` qȡaˡMǿǥxt 9     @JBHǰjB>9B4BB*ǓB nhb\VNH@80( Bǿ JT ȡ ȡ*ȡ  š,ȡááá Vȡf'B| UBtgBloTBdǕ;BZ~}BRǠLLEASE WAIT A MOMENT.22z_Pġ" ˡ.ײP)BR\ á . צ. Ƿצ#Press RETURN to watch the computer.צThis completes this session. צRemove your diskette before0switching off the power.ǷPress RETURN to restart.c _  PLEASE WAIT A MOMENT.22z_Pġ" ˡ.ײP)BR\ á . צ. Ƿצ#Press RETURN to watch the computer.BBB B B B B BB צSpecial Function Keysǧǩ  +צ!Certain Special Function Keys are 9used in People Using Computers Gand Computer Applications. c!You will see a list of these keys qצ on the next screen. You may want צto tr צPeople Using Computersǧǩ  + Components:9צPupil's Edition (consumable)GצTeacher's Annotated EditionU3 Interactive Diskettes qצ The 14 lessons focus on the ways צcomputers are used and how the ǍOakland, NJ-99 Bauer Drive Ǎ07436oǍצ 201-337-5861 Ǜצ!Palo Alto, CA-855 California Ave. ǩ94304oǩצ 415-857-0551 ǷצPress RETURN to continue.   program listings  צScott, Foresman Sales Offices + Glenview, IL-1900 E. Lake Avenue 960025o9צ 312-729-3000 GצTucker, GA-1955 Montreal Road U30084oUצ 404-939-7210 cצDallas, TX-11310 Gemini Lane qצ75229oq 214-241-8631  1234תP Ƿ,212'2 2143+# 2á&  Cǧǩ  9The program listings  צOrdering Informationǧǩ  +1. People Using Computers 9צ2. Computer Applications Gצ!3. Concepts of Programming: BASIC U4. Return to Demonstration"c Diskette Menu ǷצType your choice. Press RETURN.TURN to view the Ƿordering information now. 4:   צConcepts of Programming: BASICǧǩ  9The program listings used in GLesson 1 can be found on the Uother side of this diskette. q After you turn the diskette over  and view lesson 1, please return Ǎto this side for ordering Ǜצinformation about the program. ǩצOr press RE used to illustrate each concept. ǛצPlease turn to Lesson 1 in the ǩצ sample text. ǷצThen press RETURN to continue.  צConcepts of Programming: BASICǧǩ  9The program listings  צConcepts of Programming: BASICǧǩ  + Components:9צPupil's Edition (consumable)GצTeacher's Annotated EditionU 2 Diskettes qצThe 14 lessons focus on several !concepts of programming. BASIC is Ǎצ   12345תPǷ2 : 0 &  15 :2*"  á   FUNCTIONǑǓ  ACTR צDemonstration Diskette Menuǧǩ  +צ1. People Using Computers 92. Computer Applications G!3. Concepts of Programming: BASIC Uצ4. Ordering Information c5. Stop ǷצType your choice. Press RETURN.ore RETURN is pressed ǴPress RETURN to continue. 0L צSpecial Function Keys +KEYQ+צFUNCTIONǑǓ  ACTRL/Q quits the activity OצCTRL/R restarts the activity ]צ!CTRL/S starts at the first menu k CTRL/B returns to the previousQymenu LJ"CTRL/E erases the last key typed Ǖ"CTRL/C clears line of charactersQǣbefy these Special Function Ǎ!Keys as you view the lessons from Ǜצthese two programs. ǷPress RETURN to see the list.  צSpecial Function Keys +KEYQ+צFUNCTIONǑǓ  ACTRצ!use of computers affects society. ǛPlease turn to Lesson 9 in the ǩ sample text. ǷThen press RETURN to continue.  צComputer Applicationsǧǩ  +צ Components:9Pupil's Edition (consumable)GTeacher's Annotated EditionUצ4 Interactive Diskettes qThe 17 lessons focus on how צ computers are used in education, Ǎצin business, and in homes. ǛצPlease turn to Lesson 3 in th צWelcome to a demonstration of the Scott, Foresman Computer +Literacy Courseware Series. Gצ!This diskette contains one sample Ulesson from each of the three cצ programs. This diskette is for use with Ǎצthe|+}} ǍScott, Foresman ǛצElectronic Publishing Ǫ~ǩצ 1984 Scott, Foresman and Company aǷצPress any key.   צScott, Foresman #Computer Literacy Courseware Seriesǿǡ ǡ 9Demonstration Diskette for: GצPeople Using Computers UצComputer Applications cConcepts of Programming: BASIC }{tact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  wצPlease enter your name.9Type your first nameG(up to 10 letters)Uand press RETURN.~/0mצ Pqm6@ X ny questions, please contact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  UR?,)&$"  š| JJ|ing new Gצ Computer Literacy series, please Uצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please contact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  or viewing this צdemonstration. 9צTo order this exciting new Gצ Computer Literacy series, please Uצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please con!40012 Teacher's Annotated Edition cצ 40015 Diskette Package (includesEqצbackup set of 2 diskettes) Ǜצ90-day Limited Warranty ǷPress RETURN to continue.r ~ צThank you fd Warranty ǷצPress RETURN to continue.j v צOrdering Informationǧǩ  +!To order Concepts of Programming: 9צBASIC, order number- Gצ40011 Pupil's Edition Ug Informationǧǩ  +To order Computer Applications, 9צ order number- G40005 Pupil's Edition Uצ!40006 Teacher's Annotated Edition c 40010 Diskette Package (includesEqbackup set of 4 diskettes) Ǜ90-day Limite U!40001 Teacher's Annotated Edition cצ 40004 Diskette Package (includesEqצbackup set of 3 diskettes) Ǜצ90-day Limited Warranty ǷPress RETURN to continue.j v צOrderine ǩצ sample text. ǷצThen press RETURN to continue.  צOrdering Informationǧǩ  + To order People Using Computers, 9 order number- Gצ40000 Pupil's Edition books included in the Ǜdemonstration packet. ǷצPress RETURN to continue.f r צThank you for viewing this צdemonstration. 9צTo order this exciting new Gצ Computer Literacy series, please Uצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please contact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart.used in GLesson 1 can be found on the Uother side of this diskette. q After you turn the diskette over  and view lesson 1, please return Ǎto this side for ordering Ǜצinformation about the program. ǩצOr press RE used to illustrate each concept. ǛצPlease turn to Lesson 1 in the ǩצ sample text. ǷצThen press RETURN to continue.  צConcepts of Programming: BASICǧǩ  9The program listings  צConcepts of Programming: BASICǧǩ  + Components:9צPupil's Edition (consumable)GצTeacher's Annotated EditionU 2 Diskettes qצThe 14 lessons focus on several !concepts of programming. BASIC is Ǎצ   12345תPǷ2 : 0 &  15 :2*"  á   FUNCTIONǑǓ  ACTR צDemonstration Diskette Menuǧǩ  +צ1. People Using Computers 92. Computer Applications G!3. Concepts of Programming: BASIC Uצ4. Ordering Information c5. Stop ǷצType your choice. Press RETURN.ore RETURN is pressed ǴPress RETURN to continue. 0L צSpecial Function Keys +KEYQ+צFUNCTIONǑǓ  ACTRL/Q quits the activity OצCTRL/R restarts the activity ]צ!CTRL/S starts at the first menu k CTRL/B returns to the previousQymenu LJ"CTRL/E erases the last key typed Ǖ"CTRL/C clears line of charactersQǣbefy these Special Function Ǎ!Keys as you view the lessons from Ǜצthese two programs. ǷPress RETURN to see the list.  צSpecial Function Keys +KEYQ+צFUNCTIONǑǓ  ACTR צSpecial Function Keysǧǩ  +צ!Certain Special Function Keys are 9used in People Using Computers Gand Computer Applications. c!You will see a list of these keys qצ on the next screen. You may want צto trBBB B B B B BB@ STARTUP SFUNK DOIT MENUSCRNSCREEN78SCREEN9 SCREEN13ENTERNAMTITLESCR  ˥mˡ  צPLEASE WAIT A MOMENT.22, Zp/hnN O"ˡʹm^O ám `O ámʩ ámʭ,X/l {ll!@l ll!+l @ll!0@llʡDá Ɓ-צ FONT2.DATA) FONT4.DATA)R t bO"ˡʹm^O áTURN to view the Ƿordering information now. 4:   צConcepts of Programming: BASICǧǩ  9The program listings  צOrdering Informationǧǩ  +1. People Using Computers 9צ2. Computer Applications Gצ!3. Concepts of Programming: BASIC U4. Return to Demonstration"c Diskette Menu ǷצType your choice. Press RETURN.UR?,)&$"  š| JJ|ing new Gצ Computer Literacy series, please Uצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please contact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  or viewing this צdemonstration. 9צTo order this exciting new Gצ Computer Literacy series, please Uצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please con!40012 Teacher's Annotated Edition cצ 40015 Diskette Package (includesEqצbackup set of 2 diskettes) Ǜצ90-day Limited Warranty ǷPress RETURN to continue.r ~ צThank you fd Warranty ǷצPress RETURN to continue.j v צOrdering Informationǧǩ  +!To order Concepts of Programming: 9צBASIC, order number- Gצ40011 Pupil's Edition Ug Informationǧǩ  +To order Computer Applications, 9צ order number- G40005 Pupil's Edition Uצ!40006 Teacher's Annotated Edition c 40010 Diskette Package (includesEqbackup set of 4 diskettes) Ǜ90-day Limite U!40001 Teacher's Annotated Edition cצ 40004 Diskette Package (includesEqצbackup set of 3 diskettes) Ǜצ90-day Limited Warranty ǷPress RETURN to continue.j v צOrderine ǩצ sample text. ǷצThen press RETURN to continue.  צOrdering Informationǧǩ  + To order People Using Computers, 9 order number- Gצ40000 Pupil's Editionnts:9Pupil's Edition (consumable)GTeacher's Annotated EditionUצ4 Interactive Diskettes qThe 17 lessons focus on how צ computers are used in education, Ǎצin business, and in homes. ǛצPlease turn to Lesson 3 in thצ!use of computers affects society. ǛPlease turn to Lesson 9 in the ǩ sample text. ǷThen press RETURN to continue.  צComputer Applicationsǧǩ  +צ Compone צPeople Using Computersǧǩ  + Components:9צPupil's Edition (consumable)GצTeacher's Annotated EditionU3 Interactive Diskettes qצ The 14 lessons focus on the ways צcomputers are used and how the ǍOakland, NJ-99 Bauer Drive Ǎ07436oǍצ 201-337-5861 Ǜצ!Palo Alto, CA-855 California Ave. ǩ94304oǩצ 415-857-0551 ǷצPress RETURN to continue.   program listings  צScott, Foresman Sales Offices + Glenview, IL-1900 E. Lake Avenue 960025o9צ 312-729-3000 GצTucker, GA-1955 Montreal Road U30084oUצ 404-939-7210 cצDallas, TX-11310 Gemini Lane qצ75229oq 214-241-8631  1234תP Ƿ,212'2 2143+# 2á&  Cǧǩ  9The program listings tact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  wצPlease enter your name.9Type your first nameG(up to 10 letters)Uand press RETURN.~/0mצ Pqm6@ X ny questions, please con*printat(13,29,'need 10 days to prepare to climb.'); (END; $5: BEGIN *days := days - 10; *printat(13,15,CONCAT('Storm clears, but you did not')); *printat(13,29,'reach the next camp. Lose 10 days.'); (END; "END;  flashit; "wait; "IF NOT sp THprintat(13,15,CONCAT('You return to ',letters)); *printat(13,29,'You use 5 days to stock supplies.'); (END; $4: BEGIN *days := days - 10; *mountain; *printat(13,15,CONCAT('You were caught in a storm. You')); You spend two days at this camp.'); (END; $2: BEGIN *days := days - 5; *printat(13,15,'There are no previous camps. You'); *printat(13,29,'use 5 days preparing to climb.'); (END; $3: BEGIN ( camp := PRED(camp); *days := days - 5; *campname; *ys := days - 5; *printat(13,15,CONCAT('You successfully establish ',letters)); *printat(13,29,'You now can continue the climb.'); (END; $1: BEGIN *days := days - 2; *campname; *printat(13,15,CONCAT('Enjoy your rest at ',letters)); *printat(13,29,' END; (* WAIT *)   BEGIN "funkeys := [start,redo,quit]; "mountain; "IF screen=2 THEN BEGIN $sup := good; $choice := down; $days := 60; $camp := 0; $funkeys := []; "END "ELSE CASE screen-5 OF $0: BEGIN *camp := succ(camp); *campname; *da ˥mˡ  צPLEASE WAIT A MOMENT.22, Zp/hnN O"ˡʹm^O ám `O ámʩ ámʭ,X/l {ll!@l ll!+l @ll!0@llʡDá Ɓ-צ FONT2.DATA) FONT4.DATA)R t bO"ˡʹm^O áצuse the order form enclosed in cצthe demonstration packet. If you need order forms or have Ǎצany questions, please contact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. books included in the Ǜdemonstration packet. ǷצPress RETURN to continue.f r צThank you for viewing this צdemonstration. 9צTo order this exciting new Gצ Computer Literacy series, please U צWelcome to a demonstration of the Scott, Foresman Computer +Literacy Courseware Series. Gצ!This diskette contains one sample Ulesson from each of the three cצ programs. This diskette is for use with Ǎצthe|+}} ǍScott, Foresman ǛצElectronic Publishing Ǫ~ǩצ 1984 Scott, Foresman and Company aǷצPress any key.   צScott, Foresman #Computer Literacy Courseware Seriesǿǡ ǡ 9Demonstration Diskette for: GצPeople Using Computers UצComputer Applications cConcepts of Programming: BASIC }{tact Ǜyour local authorized Scott, ǩForesman representative. ǷPress RETURN to restart. ˩N d צLESSON9O LESSON3: 5 0,($  EN $IF days<5 THEN &screen := 12 $ELSE screen := 3;  END; (* segmt2 *)   (**************************************)  (* *)  (* segment 3 *)  (* *)  (**************************************)  SEGMENT PROCEDURE segmt3;  PROCEDURE getyn;  BEGIN "printat(13,155,'Do you want to try climbing'); "printat(13,169,'Everest again?'); "printat(13,183,'Press Y for yes or N for no.');  funkeys := [start,redo,q$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^screen IN [11,12,13] THEN &segmt3 $ELSE segmt4; "UNTIL FALSE;  END. ase(csw.vector); $setmenu; " chainback; "END;  END; (* chkfct *)    BEGIN (* MAIN *) "startup; "REPEAT $fill(2); $IF screen IN [0,1] THEN &segmt1 $ELSE IF screen IN [2,5,6,7,8,9,10] THEN &segmt2 $ELSE IF screen=3 THEN &scr33 $ELSE IF k] THEN BEGIN $sp := TRUE; $screen := 1; "END; "IF funkeys = [quit] THEN BEGIN $(*sp := TRUE; $screen := 81;*) " CSW.ADDR := 20318; $RELEASE(CSW.VECTOR); $SETSCRA1; $CHAINBACK; "END; "IF funkeys = [start] THEN BEGIN $csw.addr := 20404; $rele$letters := 'Base Camp.' "ELSE BEGIN $letters := 'Camp .';  letters[6] := flashcamp[camp][1]; "END;  END;    PROCEDURE chkfct;  BEGIN "sp := FALSE; "IF funkeys = [redo] THEN BEGIN $sp := TRUE; " screen := 0; "END; "IF funkeys = [bacND; (* if *) "END; (* for j *) "mode := 1; "color(7); "FOR i:=0 TO 3 DO BEGIN $FOR j:=0 TO 750 DO; $printat(flashx[camp],flashy[camp],flashcamp[camp]); "END; "mode := 0;  color(1);  END;    PROCEDURE campname;  BEGIN "IF camp=0 THEN DO BEGIN $printat(flashx[j],flashy[j],flashcamp[j]); " IF j<>7 THEN BEGIN &viewport(stopx[j],flashx[j]-4,191-flashy[j]+5,191-flashy[j]+7); &fillscreen(black); &viewport(stopx[j],flashx[j]-4,191-flashy[j]+6,191-flashy[j]+6); &fillscreen(orange); $Elease wait a moment.'); "GOTOXY(50,50); "EXIT(lesson3);  END; (* chainback *)    PROCEDURE mountain;  BEGIN "RESET(fptr,'EVEREST.DATA'); "i := BLOCKREAD(fptr,hires^,16); "CLOSE(fptr);  END;    PROCEDURE flashit; BEGIN "FOR j:=0 to camp %WRITELN('SYSTEM ERROR # ',IORESULT); %GOTOXY(5,20); %WRITELN('Press RETURN to restart.'); "END; "READLN; "EXIT(LESSON3);  END; (* errorhandler *)    PROCEDURE chainback;  BEGIN "setname(name); "WRITE(CHR(12)); "GOTOXY(8,10); "WRITELN('pY(3,3); $WRITELN('Please check the following:'); $GOTOXY(3,7); $WRITELN('Disk drive door closed?');  GOTOXY(3,9); $WRITELN('All cables connected?'); $GOTOXY(5,20); $WRITELN('Press RETURN to restart.'); "END "ELSE BEGIN %GOTOXY(10,5); t procedures *)  (* *)  (**************************************)  PROCEDURE errorhandler;  BEGIN "WRITELN(CHR(12)); "csw.addr := -16303; "i := csw.vector^; "IF IORESULT IN [0,5,9,108,109] THEN BEGIN $GOTOXn.'); (END; "END; "flashit; "getyn;  IF NOT sp THEN $IF charvalue IN ['Y','y'] THEN &screen := 2 $ELSE screen := 1;  END; (* segmt3 *)   (**************************************)  (* *)  (* residen(END; $1: BEGIN *printat(13,15,'You cannot reach the top. Return'); *printat(13,29,'to Base Camp. The climb is over.'); (END; $2: BEGIN *camp := 7; *printat(13,15,'Congratulations! You reached the'); *printat(13,29,'summit. Have a safe climb dowuit]; "sk('YNyn',charvalue,funkeys,1,TRUE); "chkfct;  END; (* getyn *)   BEGIN "donea := TRUE; "mountain; "camp := 0; "CASE screen-11 OF $0: BEGIN *printat(13,15,'You decided to cancel the climb.'); *printat(13,29,'The climb is over.');