Ж " (91) ROADSKIL","(103) PAGE","(112) GRAPH","(112) EQUATION"/H.Ж END"," (41) FRACTION".в№Ж " (43) SCOREBRD"," (53) BEEZAP"," (60) ABC"," (70) MONEYJAR".√Ж " (71) MATHTCHR"," (72) TIMETABL"," (74) LETRGETR"," (74) CRUNCHER"," (76) GRADER"/>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ;S$;N(4);:З" TO BOTH SIDES."e30ЄЗ@ 100,  б(23,"-");eI0№Е Q$│"+" з Q$│" "eМ1Бж 4000: З@ 132,═"###X ! ### = ! ###";T1;P$;N(3);Q$;N(5);e╡1Е P$│"+" з P1$│"-": S$│"-": Бе 12580e╘1Е P$│"-" з P1$│"+": S$│"+"eч1$Бж 4000:Бж4500f@1.З@171, ═"!## !##";P1$;N(3);P1$;N(3);: З@ 416, "ADD "S$;N(3)"TO BOTH SIDES."fV18З@ 196, б(23,"-")fН1BБж 4000: З@ 228, ═"###X = ###";T1;T2;fа1LЕ T1│1 з 12650fє1VБж 4000:Бж4500: З@260,"----";: З@280,"---";: З@ 448,"DIVIDE BOTH SIDES BY ";T1g1`З@292,═"### ###";T1,T1g>1jБж 4000: З@ 333,"X = ";N(2)gY1tБж4000:Бж4500:Бе 12960gx1~В - SOLUTION FOR TYPE #2 -gО1ИЕ P$│"+" з S$│"-"gд1ТЕ P$│"-" з S$│"+"h1ЬЗ@ 68, ═ "!##X !##X";S$;N(4);S$;N(4);: З@ 384, "ADD ";:З ═ "!##X";S$;N(4);:З" TO BOTH SIDES."h%1жЗ@100,  б(18,"-")hX1░Бж 4000: З@132, ═"###X = ####";T1;N(5);:Бж4500hk1║Е T1│1 з 12760hи1─З@164,"---- -----";: З@ 416, "DIVIDE BOTH SIDES BY "T1h╚1╬З @196,═"### ###";T1,T1hч1╪Бж 4000: З@263,"X = ";N(2)i1тБж4000:Бж4500:Бе12960i 1ьВ - SOLUTION FOR TYPE #3 -i71ЎЕ Q$│"+" з Q1$│"-"iN2Е Q$│"-" з Q1$│"+"i║2 З@74, ═ "!##X !##X";Q1$;N(4);Q1$;N(4);: З@384, "ADD ";: З ═ "!##X";Q1$;N(4);:З" TO BOTH SIDES."i╨2З@ 100, б(23,"-")iь2P$│"+": Е T1┤0 з P$│"-"j*2(Бж 4000: З@132, ═ "### ! ###X = ###";N(3);P$; В(T1);N(5);j:22T3│ В(N(3))jX2-<И REWARD Бж460,560,660,730VK-FБе 12960Vп-PSC│SCл5:L2│L2л1:REWARD│ Д(7):ZM$│REWARD$(REWARD)л", "лN$л"!":ZL│13:Бж2600:ZT│1.5:Бж4000:Бе12960V╟-Z:Г-----------------V▀-d:Г DISPLAY SOLUTIONVў-n:Г-----------------W -xZP│352:Бж3200W0-ВZP│384:ZM$│"SORRY, "лN$л".":Бж5000We-МZM$│"THE ANSWER IS: X = "л И(ANS):ZP│416:Бж5000WШ-ЦZT│3:Бж4000:ZP│192:Бж3200:Т65314,5:ZP│0:Бж3000Wч-аZL│1:ZM$│"THIS IS HOW I DID IT.":Бж2600:З@352, б(32,131);:ZT│1:Бж4000:ZT│3X-кИ LEVEL Бе 11730,11950,12460X -┤:Г-----------------X8-╛:Г LEVEL 1 SOLUTIONXP-╚:Г-----------------Xv-╥И TYPE Бе 11740,11740,11810,11870XЫ-▄S$ │"-":Е SIGN$(1) │"-" з S$│"+"X┬-цЕ SIGN$(1) │"+" з N(1) │ (м1)нN(1)X·-ЁZ1│384:Z1$│"ADD "л И(N(1))л" TO BOTH SIDES.":Бж3500Y9-·З@ 96лX9,N(1);: З@ 96лX0л( З( И(N(2)))м З( И(N(1)))),N(1);YO.З@130, б(16,"-");YЫ.З@ 164,"X";: З@ 160лX9л З( И(N1))," =";: Е ANS┤0 з З " ";ANS; :Д З ANS;Y║.ZT│2:Бж4000:Бж4500:Бе12960Yї."Z1│384:Z1$│"DIVIDE BOTH SIDES BY "л И(N(1))л".":Бж3500ZR.,З @ 101, б( З( И(N(1)))л1,"-")" " б( З( И(N(3)))л1,"-");:З@ 133,N(1)" "N(1):Бж4000ZЙ.6ZT│2:Бж4000:ZL│6:ZM$│"THIS REDUCES TO ....":Бж2600Z╘.@З @ 202,N(3):З @ 230,"X = " б( З( И(N(3)))л1,"-");:З @ 266,N(1):Бж4000[*.JZT│2:Бж4000:ZL│11:ZM$│"AND FINALLY .... X =":Бж2600:Е ANS┤0 з З " "ANS; :Д З ANS;[I.TZT│2:Бж4000:Бж4500:Бе12960[{.^N1$│ И(N(1)):Е N(1)▓│0з N1$│ П(N1$, З(N1$)м1)[┤.hZ1│384:Z1$│"MULTIPLY BOTH SIDES BY "л И(N(1)):Бж3500[Ї.rN2$│ И(N2):З@99м З(N1$),"("N1$")";:З@108л З(N2$),"("N1$")";\;.|ZT│2:Бж4000:ZP│192:ZM$│"THIS REDUCES TO X =":Бж5000:ЕN(1)┤0зЗ" ";\X.ЖЗ N(1)"(";:ЕN(2)┤0зЗ" ";\r.РЗ  И(N(2))")";:Бж4000\п.ЪZT│2:Бж4000:ZL│9:ZM$│"AND FINALLY X = "л И(ANS):Бж2600\├.дБж 4500:Бе12960\█.о:Г-----------------\є.╕:Г LEVEL 2 SOLUTION] .┬:Г-----------------]7.╠И TYPE Бе 11990 ,12090 ,12210 ,12330 ]T.╓Е SIGN$(3)│"+" з 12010 ]v.рS$│"+": TP│NлN(3): Бе 12020 ]М.ъS$│"-": TP│NмN(3)]│.ЇЗ@78,═"!## !##";S$;N(3);S$;N(3);]█.■З@384,"ADD "S$;N(3)"TO BOTH SIDES."^/Бж4000 :З@105, б(17,"-");:З@136,═"###X =####";N(1);TP^f/Бж4000 :З@168,"---- ----";:З@416,"DIVIDE BOTH SIDES BY "N(1)".";^О/З@200,═"### ###";N(1);N(1);^╡/&Бж 4000 :З@267,═"X = ###";ANS^╧/0Бж4000:Бж4500:Бе12960^ъ/:Е SIGN$(2)│"+"з12110 _ /DS$│"+":TP│N(3)лN(2):Бе12120 _$/NS$│"-":TP│N(3)мN(2)_q/XЗ@141,═"!## !##";S$;N(2);S$;N(2);:З@384,"ADD "S$;N(2)"TO BOTH SIDES.";_З/bЗ@167, б(17,"-");_Ю/lБж4000 :З@200,"X";_╛/vЗ@231,═"--- = ###";TP_╬/АЗ@263,N(1);`/КБж4500:З@234,"(" И(N(1))")";:З@246,"(" И(N(1))")";`./ФЗ@416,"MULTIPLY BOTH SIDES BY "N(1);`R/ЮБж4000 :З@328,"X = ";ANS`l/иБж4000:Бж4500:Бе12960`Ж/▓Е SIGN$(3)│"+"з12230 `д/╝S$│"+":TP│NлN(3):Бе12240 `╣/╞S$│"-":TP│NмN(3)a /╨З@72,═"!## !##";S$;N(3);S$;N(3);:З@384,"ADD "S$N(3);"TO BOTH SIDES.";a"/┌З@104, б(16,"-");aK/фБж4000 :З@136,═"### = ###X";TP;N(1);au/юБж4500:З@140," ";:З@168,"--- = ----";aЬ/°З@416,"DIVIDE BOTH SIDES BY ";N(1)a╜0З@200,═"### ###";N(1),N(1)aщ0 Бж4500 :З@264,═"### = X";ANS;:Бж4000b0З@291,"OR X = "ANS;b0 Бж4000:Бж4500:Бе12960b@0*TP│N(1)нN(3):Е TP┤0 з 12350 b\04S$│"+":S2$│"-":Бе12360 by0>S$│"-":S2$│"+":TP│ В(TP)bж0HЗ@74,═"###X ! ### = ####";N(1);S$;TP;N;b├0RЗ@384,"DISTRIBUTE "N(1);bє0\Бж4500 :З@113,═"!## !##";S2$;TP;S2$;TP;c0fЗ@416,"ADD "S2$;TP;"TO BOTH SIDES."c00pЗ@136, б(20,"-")cg0zБж4000 :З@170,═"###X = ####";N(1);ANSнN(1);c▒0ДБж4500:З@448,"DIVIDE BOTH SIDES BY ";N(1):З@202,"---- ----"c█0ОЗ@234,═"### ###";N(1),N(1)d0ШБж4000:З@301,"X = ";ANS;d0вБж4000:Бж4500:Бе12960d20м:Г-----------------dJ0╢:Г LEVEL 3 SOLUTIONdb0└:Г-----------------dВ0╩И TYPE Бе 12500,12680,12790dЯ0╘S$│"-": Е N(4)▓0 з 12520d╣0▐S$│"+": N(4)│ В(N(4))e0шЗ@68, ═ "!##X !##X";S$;N(4);S$;N(4);: З@ 384, ═"ADD !##X"3000:Бе10170A'╪ЕB$│"N"Бе10350A1'т:Г------------AD'ь:ГINSTRUCTIONSAW'Ў:Г------------B(Ю:ZM$│ "IN THE FOLLOWING LESSON, A SET OF TEN EQUATIONS WILL APPEAR, ONE AT A TIME, ON THE SCREEN.":ZP│0:Бж5000:ZM$│"COPY THE EQUATION ONTO A PIECE OF PAPER AND SOLVE.":ZP│128:Бж5000Bj( ZM$│"TAKE YOUR TIME AND BE SURE TO CHECK YOUR ANSWER.":ZP│224:Бж5000:Бж4500:ЮC@(ZM$│"YOU WILL HAVE TWO CHANCES FOR EACH PROBLEM.":ZP│0:Бж5000:ZM$│"YOU WILL RECEIVE 10 POINTS FOR EACH EQUATION YOU SOLVE CORRECT-LY ON THE FIRST TRY, BUT ONLY FIVE POINTS ON THE SECOND TRY.":ZP│96:Бж5000C╗(ZM$│"IF AFTER TWO ATTEMPTS YOU ARE STILL NOT SUCCESSFUL, I WILL SHOW YOU HOW I SOLVED IT.":ZP│256:Бж5000:Бж4500:ЮD!((ZM$│"YOU MAY TRY AS MANY SETS OF TEN AS YOU LIKE. I WILL KEEP SCORE FOR YOU.":ZP│0:Бж5000:Бж4500D╞(2Ю:ZM$│"THERE ARE THREE LEVELS OF DIFFI-CULTY YOU MAY CHOOSE.":ZP│0:Бж5000:ZM$│"LEVEL 1 INVOLVES EQUATIONS THAT CAN BE SOLVED IN ONE STEP, SUCH AS:":ZP│96:Бж5000E!()оЕ N(1) ┤ 0 з N(1) │  В(N(1))Lg)╕З@69,"X ";SIGN$(1);:Е N(1)┤0 з З" ";LС)┬X9│ Ъ(0):ЗN(1)"=";: Е N(2)┤0 з З " ";Lе)╠X0│ Ъ(0):З N(2)L▓)╓Бе 11410L┴)рANS │ N(2)L╪)ъN(3) │ N(1) н N(2)L√)ЇЗ @ 69,N(1);"X ";д10)"= ";N(3)M)■Бе 11410M*ANS │ N(1)нN(2)M+*З@ 70,"X";MD*З@ 106,"="; И(N(2));Mg*&З @101, б( З( И(N(1)))л1,"-");My*0З @ 133,N(1);MЖ*:Бе 11410MЯ*D:Г------------------M╕*N:Г LEVEL 2 EQUATIONSM╤*X:Г------------------M *bИ TYPE Бе 10860 ,10910 ,10970 ,11010 N*lN│(N(1)нN(2))лN(3):ANS│N(2)N<*vЕ N(3)┤0 з N(3)│ В(N(3))N_*АЕ SIGN$(3)│"-" з N(3)│ В(N(3))NС*КЗ@ 40,═"###X ! ## =####";N(1);SIGN$(3);N(3);NNЮ*ФБе 11410N╖*ЮANS│(N(3)мN(2))нN(1)N╘*иЕ N(2)┤0 з N(2)│ В(N(2))Nт*▓З@40,"X";O*╝З@71,═"--- ! ### = ###";SIGN$(2),N(2),N(3)O *╞З@103,N(1)O-*╨Бе 11410OM*┌ANS│N(2):N│(N(1)нN(2))лN(3)Oj*фЕ N(3)┤0 з N(3)│ В(N(3))OЬ*юЗ@40,═"### = ###X ! ###";N;N(1);SIGN$(3);N(3)Oй*°Бе 11410O╤+ANS│N(2):TP│N(3):N│N(1)н(N(2)лN(3))Oь+ Е N(3)┤0 з TP│ В(N(3))P +З@40,═"### (X ! ###) = ####";N(1);SIGN$(3);TP;NP,+ Бе11410PF+*:Г-------------------P_+4:Г LEVEL 3 EQUATIONSPx+>:Г------------------PЕ+HANS│N(2)Pе+RИ TYPE Бе 11100,11200,11290P├+\P1│N(1)нN(2):P2│N(4)нN(2)P▌+fP3│P1мP2:N(5)│P3лN(3)Pї+pЕ N(5)│0 з Бе 10470Q+zT1│N(1)мN(4):T2│N(5)мN(3)Q0+ДP$│"+": Е N(3)▓0 з 11160QJ+ОN(3)│ В(N(3)): P$│"-"Qg+ШQ$│"+": Е N(5)▓0 з 11180QА+вN(5)│ В(N(5)):Q$│"-"Q┐+мЗ@36,═"###X ! ### = ###X ! ###";N(1);P$;N(3);N(4);Q$;N(5);Q╠+╢Бе 11410Qъ+└P1│N(1)нN(2):P2│N(4)нN(2)Q∙+╩N(5)│P1мP2R+╘Е N(5)│0 з Бе 10470R"+▐T1│N(1)мN(4)R8+шЕ N(4)▓0 з P$│"+"RN+ЄЕ N(4)┤0 з P$│"-"R`+№N(4)│ В(N(4))RТ,З@36,═"###X = #### ! ###X";N(1);N(5);P$;N(4);RЯ,Бе 11410R╜,P1│N(1)нN(2):P2│N(4)нN(2)R╫,$P5│P1мP2:N(5)│P5лN(3)Rя,.Е N(5)│0 з Бе 10470S ,8T1│N(1)мN(428)л Л(K2)л б(4,128)л б(3,K2)л б(2,128)л Л(K2)л Л(128)л Л(132л16н(KOLORм1))л Л(128)л Л(136л16н(KOLORм1))/|bЗ@ZP,SUPER$;:ЛZP/ХlZT│2:Бж4000:Бж6000:Р/нv:Г-----------------/┼А:ГDYNAMITE GRAPHICS/▌К:Г-----------------0БФЮ0:Т359,57:┐0,1:З@204, Л(191); б(17,188); Л(191);:З@236, Л(191); б(17,128); Л(191);:З@268, Л(191); б(17,179); Л(191);:З@227, б(9,"-");:З@238,"D Y N A M I T E";0┼ЮА ZJ│1е8:З@227,"#";:А ZT│1е 40:ЛZT:З@227," ";:А ZT│1е20:ЛZT:ЛZJ1$иА ZP│227 е 235:АZJ│1е2:З@ZP,"#";:АZT│1е40:ЛZT:З@ZP," ";:АZT│1е20:ЛZT:ЛZJ:З@ZP, Л(128);:ЛZP11▓Бж6000:Р1J╝:Г------------------1c╞:Г CORRECT! GRAPHICS1|╨:Г------------------2┌Ю0:АZP│0е384й96:KOLOR│ Д(7)л1:KOLOR│16н(KOLORм1):C0$│ Л(128):C1$│ Л(143лKO):C2$│ Л(140лKO):C3$│ Л(142лKO):C4$│ Л(132лKO):C5$│ Л(133лKO)2АфCRRECT$│C0$лC0$лC1$лC2$лC2$лC0$лC1$лC2$лC1$лC0$лC1$лC2$лC1$лC0$лC1$лC2$лC1$лC0$лC1$лC2$лC2$лC0$лC1$лC2$лC2$лC0$лC2$2ищCRRECT$│CRRECT$лC1$лC2$лC0$лC5$лC0$3<юCRRECT$│CRRECT$лC0$лC0$лC1$лC0$лC0$лC0$лC1$лC0$лC1$лC0$лC1$лC2$лC3$лC0$лC1$лC2$лC3$лC0$лC1$лC2$лC0$лC0$лC1$лC0$лC0$лC0$лC0$лC1$лC0$лC0$лC4$лC0$3╠°CRRECT$│CRRECT$лC0$лC0$лC2$лC2$лC2$лC0$лC2$лC2$лC2$лC0$лC2$лC0$лC4$лC0$лC2$лC0$лC4$лC0$лC2$лC2$лC2$лC0$лC2$лC2$лC2$лC0$лC0$лC2$лC0$лC0$лC4$3ўЗ@ZP,CRRECT$;:ЛZP:ZT│2:Бж4000:Бж6000:Р49х:Г===========================================================4jц:Г GENERAL PURPOSE SUBROUTINES4мч:Г===========================================================4┐шБе1070::ГINPUT4▌.ZZ│1:ZA$│ Т:ZA$│"":ZZ$│""4°8ZZ$│ Т:Е ZZ$┤▓""Бе10905:ZZ│ZZл1:ЕZZ▓8зZZ│25G<З@ZPл З(ZA$), Л(143л16н(ZZм1));:АZT│1е10:ЛZT:Бе10805_BЕ ZZ$▓ Л(13) Бе11305tLЕ ZZ$│ Л(12) з Р5ЩVЕ ZZ$│ Л(13) ░  З(ZA$)┤▓0 Бе12205░`Е ZZ$│ Л(8) Бе11805╚jЕ  З(ZA$)│XM Бе10805┌tЕ XT│2 Бе11606$~Е ZZ$▓ Л(64) ░ ZZ$┤ Л(91) ▒ ZZ$│" " ▒ ZZ$│"'" ▒ ZZ$│"-" з1170 :Д 10806TИЕ(ZZ$┤ Л(48) ▒ ZZ$▓ Л(57))░ ZZ$┤▓"-" Бе10806uТZA$│ZA$лZZ$:З@ZP,ZA$;:Бе10806МЬЕ  З(ZA$)┤1 Бе10806ежЗ@ZPл З(ZA$)м1," ";6┐░ZA$│ О(ZA$, З(ZA$)м1)6╘║З@ZP,ZA$;:Бе10806■─З@ZPл З(ZA$)," ";:Е XT│2 з ZA│ Й(ZA$)7╬Р7&▄Бе1590::ГBOX AROUND A MESSAGE7>6CH│140л16н(KOLORм1)7W@З@ZPм34, б(ZMл4,CH);7ЖJCH│CHм9:З@ZPм2лZNн32, б(ZMл4,CH);:CH│CHл127лTА ZK│ZPм34е ZPм34л(ZNл1)н32 й 327╙^З@ZK, Л(CH);:З@ZKлZMл3, Л(CH);:Л ZK8cАZK│ZPм1 е ZPм1л(ZNм1)н32й32:З@ZK, Л(133);:З@ZKлZMл1, Л(138);:ЛZK8MhXP│ZP:А ZK│1 е ZN:З@XP, б(ZM,32);:XP│XPл32:Л ZK8SrР8g╨Бе2110::ГPROMPT8Б>Бж5000:Е XM┤▓0 Бе21408ЧHА ZK│1 е 900:Л ZK8╖RЗ@ZP, б( З(ZM$),32);:Бе21708╦\ZP│ZPл З(ZM$)л18╓fБж10009pЕ XT│3 ░  О(ZA$,1)┤▓"Y"░  О(ZA$,1)┤▓"N"Бе21109zР9* ─Бе2570::ГCENTER MESSAGE9J ZP│32н(ZLм1)л16м З(ZM$)о2:Р9q (ZP│32н(ZLм1)л16м З(ZM$)о2:Бж5000:Р9У ╕Бе3050::ГCLEAR TO END OF LINE9п ъZK│ Б((ZPл32)о32)н32мZP9┼ ЇЗ@ZP, б(ZK,32);:Р9ю АБе3250::ГCLEAR TO END OF SCREEN FAST: ▓ZI│512мZP:ЕZI┤255 Бе 3270:= ╝З@ZP, б(256мZP,32);:З@256, б(255,32);:Бе3280:S ╞З@ZP, б(ZIм1,32);:Y ╨Р:p мБе3600::ГFLASH S/R:╙ZT│.4:АI0│1е5:З@Z1, б( З(Z1$),32);:ЕZ2$┤▓""зЗ@Z2, б( З(Z2$),32);:ЕZ3$┤▓""зЗ@Z3, б( З(Z3$),32);;Бж4000:З@Z1,Z1$;:ЕZ2$┤▓""зЗ@Z2,Z2$;:ЕZ3$┤▓""зЗ@Z3,Z3$;;$Бж4000:ЛI0;1.Z2$│"":Z3$│"":Р;IаБе4100::ГTIME DELAY;R Я│0;fЕ  Я┤ZTн60з4110;lР;ЗФБе4600::ГENTER KEY S/R;╔°Z1$│"":Z2$│"PRESS THE enter key TO CONTINUE":З@480,Z2$;:K$│ Т;ЇZZ$│ Т:ЕZZ$│""з4610:ДЕZZ$┤▓ Л(13)з4610'$Ю:Т359,57:┐0,1:А ZH│0 е 63:Ь(ZH,0,5):Ь(ZH,31,5):Л ZH>I'.А ZV│0 е 31:Ь(0,ZV,5):Ь(63,ZV,5):Л ZV>i'8ZM$│"EQUATIONS":ZL│5:Бж2600>Ф'BZM$│"BY LOUIS R. TOSCANO":ZL│8:Бж2600>╕'LZM$│"P.O. BOX 2400":ZL│9:Бж2600>ш'VZM$│"VINEYARD HAVEN, MA 02568":ZL│10:Бж2600?'`ZM$│"TEL: (617)-693-1328":ZL│11:Бж2600?9'jZM$│"COPYRIGHT 1984":ZL│12:Бж2600?I'tZT│3:Бж4000?v'~ZM$│"PRESS enter TO BEGIN.":ZL│15:Бж2600?д'ИZZ$│ Т:Е ZZ$┤▓ Л(13) з ZX│ Д(100):Бе10120?═'ТЮ:Т65314,5:ZM$│"HELLO!":ZP│64:Бж5000@'ЬZM$│"WHAT IS YOUR NAME?":ZP│128:Бж 5000:ZP│147:XM│10:XT│1:Бж1000:N$│ZA$@@'жZM$│"HELLO, "лN$л"!":ZP│192:Бж5000@Г'░ZP│256:ZM$│"WE ARE GOING TO PRACTICE SOLVINGEQUATIONS.":Бж5000@╬'║ZP│352:ZM$│"DO YOU WANT DIRECTIONS? ":Бж5000:ZP│ZPл З(ZM$):XM│3:Бж1000@▀'─B$│ О(ZA$,1)A '╬Е B$┤▓"Y"░B$┤▓"N"зZP│352:БжAВжЖ "THE OPERATOR OF A VEHICLE EMRGING FROM A DRIVEWAY, OR A GARAGE MUST",STOP AND YIELD TO TRAFFIC,HONK AND PROCEED WITH CAUTIONB#░Ж "BEFORE MOVING AWAY FROM THE CURB OR PARKING POSITION, THE OPERATOR MUST YIELD TO TRAFFIC AND",SIGNAL HIS INTENT TO ENTER TRAFFIC,SIGNAL IF IT IS AT NIGHTBХ║Ж "WHEN A RED LIGHT SHOWS ALONE ON A TRAFFIC SIGNAL,THE OPERATOR MUST",STOP,SLOW DOWN AND BE PREPARED TO STOPC ─Ж "A FLASHING RED LIGHT MEANS THE OPERATOR MUST",STOP AND PROCEED WHEN SAFE TO DO SO,PROCEED WHILE SOUNDING HORNCФ╬Ж "WHEN A YELLOW LIGHT SHOWS ALONE ON A TRAFFIC SIGNAL, AN OPERATOR",MUST BE PREPARED TO STOP,SHOULD PROCEED BEFORE IT CHANGES TO REDCю╪Ж "A FLASHING YELLOW LIGHT MEANS",SLOW DOWN AND PROCEED WITH CAUTION,JUST KEEP GOINGD5тЖ "A FLASHING GREEN LIGHT MEANS",GO IF IT IS SAFE,IT IS SAFE TO GODбьЖ "A RED AND YELLOW LIGHT TOGETHER MEANS","VEHICLES STOP, PEDESTRIANS CROSS","WATCH OUT FOR PEDESTRIANSEЎЖ "YOU MAY PROCEED WHEN A RED LIGHT IS ILLUMINATED WHEN YOU ALSO SEE",GREEN ARROWS,FLASHING GREENEбЖ "A RED-YELLOW-RED BAND ON THE POST OF A TRAFFIC CONTROL SIGNAL MEANS","PEDESTRIAN BUTTON, PREPARE TO STOP",NOTHING TO THE DRIVER OF A MOTOR VEHICLEF* Ж "WHEN YOU ARE DRIVING A CAR WHILE YOU HAVE A LEARNER'S PERMIT, THE LICENSED DRIVER MUST SIT",IN THE FRONT SEAT,DIRECTLY BEHIND YOUF6ИЖ END,,FFIC CONTROL SIGNAL MEANS","PEDESTRIAN BUTTON, PREPARE TO STOP",NOTHING TO THE DRIVER OF A MOTOR VEHICLEF* Ж "WHEN YOU ARE DRIVING A CAR WHILE YOU HAVE A LEARNER'S PERMIT, THE LICENSED DRIVER MUST                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Lе&E:Г=============================================================&W:Г EQUATIONS &r:Г BY LOUIS R. TOSCANO&Л:Г MATHEMATICS DEPT.&╣:Г MARTHA'S VINEYARD REGIONAL HIGH SCHOOL&╬:Г P.O. BOX 2400&ю:Г VINEYARD HAVEN, MA 02568'R:Г 617-693-1033 OR 617-693-13289 ' ============================================================'f Х50,32384:Х1000't X│ Д(м Я)'ЛМ N(5),P$(4),P(20)'дTTL│0:SE│0:FT│0:ST│0'╟:Г----------------------------'ъ(:Г ML DATA FOR ROCK SCREEN S/R( 2:Г----------------------------(s<Ж 8E,4,0,C6,80,A6,84,81,60,26,2,E7,84,A6,80,8C,6,0,26,F1,8E,4,0,A6,84,8B,10,A7,80,8C,6,0,26,F5,39(░FА X│32384 е32418:НPP$:B│ Й("&H"лPP$):Т X,B:ЛX:╣ Г0│32384(╩Q:Г-------------------(фR:Г SECOND TRY REWARDS(■S:Г-------------------)MTЖ CORRECT,THAT'S IT,GOOD ANSWER,EXCELLENT,WAY TO GO,OUTSTANDING,YOU GOT IT)hUАK│1е7:Н REWARD$(K):ЛK)udБе 10000)╖Р:Г===========================================================)▀Ъ:Г GRAPHIC REWARDS*!д:Г===========================================================*6о:Г--------------*K╕:Г WOW! GRAPHICS*`┬:Г--------------*g╠Ю0*Л╓KOLOR│ Д(8):KK│143л16н(KOLORм1)+1рWOW$│ б(7,128)л Л(KK)л б(3,128)л Л(KK)л б(2,128)л Л(KK)л б(2,140л16н(KOLORм1))л Л(KK)л б(2,128)л Л(KK)л б(3,128)л Л(KK)л б(2,128)л Л(138л16н(KOLORм1))л б(11,128)+▀ъWOW$│WOW$л Л(KK)л Л(128)л Л(KK)л Л(128)л Л(KK)л б(2,128)л Л(KK)л б(2,128)л Л(KK)л б(2,128)л Л(KK)л Л(128)л Л(KK)л Л(128)л Л(KK)л б(2,128)л Л(136л16н(KOLORм1))л б(11,128),eЇWOW$│WOW$л б(5,140л16н(KOLORм1))л б(2,128)л б(4,140л16н(KOLORм1))л б(2,128)л б(5,140л16н(KOLORм1))л б(2,128)л Л(136л16н(KOLORм1)),Ж■ZL│7:ZP│32н(ZLм1):З@ZP,WOW$;,ЯZT│2:Бж4000:Бж6000:Р,╢:Г----------------,═:Г SUPER! GRAPHICS,ф&:Г-----------------,0Ю0:АZP│0е384й96:KOLOR│ Д(8):K1│143л16н(KOLORм1):K2│140л16н(KOLORм1)-ц:SUPER$│ б(4,128)л Л(K1)л б(2,K2)л б(2,128)л Л(K1)л Л(128)л Л(K1)л б(2,128)л Л(K1)л Л(K2)л Л(K1)л б(2,128)л Л(K1)л б(2,K2)л б(2,128)л Л(K1)л Л(K2)л Л(K1)л Л(128)л Л(138л16н(KOLORм1)).ЩDSUPER$│SUPER$л б(7,128)л б(2,K2)л Л(K1)л б(2,128)л Л(K1)л Л(128)л Л(K1)л б(2,128)л Л(K1)л б(2,K2)л б(2,128)л Л(K1)л Л(K2)л б(3,128)л Л(K1)л Л(K2)л Л(142л16н(KOLORм1))л Л(128).└NSUPER$│SUPER$л Л(136л16н(KOLORм1))/gXSUPER$│SUPER$л б(7,128)л б(3,K2)л б(2,128)л б(3,K2)л б(2,1 ON CAR A'S RIGHT":Бж375/E,Бж205:Бж280:Бж305:Бж230:Бж310:Бж290:Бе315/u1АI│204е223:З@I,"A";:АY│1е20:ЛY:З@I,R$;:ЛI:Р/п6АI│14е78й32:З@I,"B";:АY│1е20:ЛY:З@I,R$;:ЛI:З@I,"B";:Р0;Бж230:VL│384:JK$│"THIS TIME, CAR A HAS THE RIGHT OF WAY SINCE IT IS ON CAR B'S RIGHT.":Бж3750,@Бж205:Бж305:Бж325:Бе3300_EАI│110е396й32:З@I,"B";:АY│1е20:ЛY:З@I,R$;:ЛI:Р0╠JБж230:Бж310:Бж255:VL│384:JK$│"THIS TIME, CAR B HAS THE RIGHT OF WAY SINCE IT IS ON CAR A'S RIGHT.":Бж3750тOБж205:Бж325:Бж2751ЖTБж230:АY│0е7:АI│26е37:Ь(I,Y,7):ЛI,Y:З@179, Л(128);:З@273,"A";:VL│384:JK$│"AT A T-SHAPED INTERSECTION, CAR A MUST COME TO A COMPLETE STOP BEFORE TURNING.":Бж3751РYБж2051Ц^О1дcЮ0:АP│1еJ1ыhАI│1056е1503:ТI,32:Л:WW│ Д(8):АI│1024е1055:ТI,C(WW):ТIл480,C(WW):Л1їmVL│322rJK$│A$(AO(P))л" .......":Бж375:Бе41025wЕ З(JK$)┤│SW з 4002\|А T│SW е0йм1:Е Р(JK$,T,1)│" "з390 2jБЛ T:Бе4002кЖL$│ О(JK$,T):L$│" "лL$:Бж600:JK$│ П(JK$,( З(JK$))мT):Бе3752┤ЛБе3952╩РL$│" "лJK$:Бж6002╨ХР2▌ЪVL│VLл642їЯD│ Д(20):ЕD│▓11з4253'дF$│B$(AO(P)):H$│C$(AO(P)):J$│"A":M$│"B":Бе4303YйF$│C$(AO(P)):H$│B$(AO(P)):J$│"B":M$│"A":Бе4303yоJK$│"A) "лF$:Бж375:VL│VLл323Щ│JK$│"B) "лH$:Бж375:VL│VLл323п╕G$│ Т:Е G$│""з4403┐╜Е G$│J$з4653╧┬Е G$│M$з4653р╟Е G$│"@"з5253ъ╠Бе4403·╤Е G$│J$з4804╓Бе4904█Е C(F(G))┤▓AO(P) з4904@рL$│" YOU ARE CORRECT!":Бж6004RхCR│CRл1:Бе5154zъL$│" NO! THAT IS INCORRECT!":Бж6004ЖяIR│IRл14ЪЇЕ Т┤▓ Л(13)з5004┤∙АI│1088е1502:ТI,32:ЛI5&■VL│32:JK$│"THIS IS WHAT THE CORRECT RESPONSE SHOULD BE.":Бж375:VL│VLл32:JK$│A$(AO(P))л" "лB$(AO(P))л".":Бж3755:Е Т┤▓ Л(13)з5155AЛP5M Ю:З:З:З5lЗ" NUMBER CORRECT = "CR5rЗ5СЗ" NUMBER WRONG = "IR5ж!J│CRлIR:ЕJ│0зJ│15╓&З:З" STUDENT SCORE = "; Б(CRн100оJ);"%"5ў+З:З" ANOTHER TRY (Y/N/C)"60Е  Б(CRн100оJ)│▓70з5706?5З:З" YOU NEED TO STUDY MORE!!!":Бе5756_:З:З" NOT BAD AT ALL !!!"6u?W$│ Т:Е W$│""з5756ЖDЕ W$│"Y" з О6ЬIЕ W$│"C"зЮ0:Бе5206пNЕ W$│"N" з Ю:К6╣SБе5757XHL│0:VL│VLл32:DR│ З(L$):АK│1е DR:ZV│ К( Р(L$,K,1)):ЕZV┤│64зZV│ZVл647$]Т1024лVLлHL,ZVм64:HL│HLл1:ЛK:Р7ЪшЖ "IN MANY STATES, DURING THE ROAD TEST, THE OPERATOR MUST",USE HAND SIGNALS FOR TURNS,USE THE DIRECTIONAL LIGHTS7ыЄЖ "AN INTERSECTING WAY IS WHERE",ANY ROADS JOIN AT AN ANGLE,ROADS BRANCH OFF8И№Ж "THE RIGHT OF WAY LAW STATES THAT WHEN CARS ARE AT A FOUR WAY STOP AT THE SAME TIME, THE RIGHT OF WAY BELONGS TO",THE CAR ON THE RIGHT,THE CAR TURNING8¤Ж "WHEN AN OPERATOR APPROACHES A PEDESTRIAN WHO IS IN THE STREET, THE DRIVER MUST",COME TO A STOP,SOUND HIS HORN9~Ж "WHEN AN OPERATOR APPROACHES AN INTERSECTION WITH A YIELD SIGN, THE DRIVER MUST",STOP UNTIL SAFE TO PROCEED,PROCEED SLOWLY:Ж "WHEN AN OPERATOR APPROACHES A HORSE OR ANIMAL BEING DRIVEN, THE OPERATOR MUST",STOP IF THE ANIMAL IS FRIGHTENED,SOUND HIS HORN:w$Ж "WHEN YOU ARE APPROACHED BY A FIRE VEHICLE, YOU MUST PULL TO THE",RIGHT UNTIL IT PASSES,LEFT UNTIL IT PASSES: .Ж "WHEN YOU ARE BEING PASSED BY ANOTHER VEHICLE, YOU MUST STAY TO THE",RIGHT AND NOT BLOCK THE PASSER,CENTER AND LET THEM GO RIGHT;s8Ж "WHEN APPROACHING A BLIND PERSON, AN OPERATOR MUST",STOP FOR THE PERSON CROSSING,SOUND THE HORN AND SLOW DOWN< BЖ "WHEN PASSING A VEHICLE GOING IN THE SAME DIRECTION, YOU MUST STAY TO",THE LEFT AND PASS WITH SAFE CLEARANCE,WHICHEVER SIDE HAS THE BEST CLEARANCE<ЫLЖ "THE AMOUNT OF CLEAR AND UNOBSTRUCTED VIEW YOU MUST HAVE BEFORE OVERTAKING A VEHICLE BEING PASSED IS",FOUR HUNDRED FEET,TWO HUNDRED FEET=MVЖ "WHEN APPROACHING OR PASSING A SCHOOL BUS WHICH HAS STOPPED TO ALLOW PASSENGERS ON OR OFF, YOU MUST",STOP UNTIL THE BLINKING LIGHTS ARE OFF,SOUND YOUR HORN AND SLOWLY PASS=√`Ж "WHEN MAKING A LEFT HAND TURN ON A ONE WAY STREET, THE OPERATOR MUST SIGNAL, POSITION THE CAR IN THE LANE NEAREST THE",LEFT HAND CURB AND TURN,RIGHT HAND LANE AND TURN>ЗjЖ "WHEN APPROACHING A CURVE OR CORNER WITH AN OBSTRUCTED VIEW, YOU MUST","SLOW DOWN AND KEEP TO THE RIGHT",SLOW DOWN AND SOUND THE HORN? tЖ "THE FUNDAMENTAL SPEED LAW IS THE REASONABLE SPEED FOR","TRAFFIC, ROADWAY USE AND SAFETY","THE CONDITION AND AGE OF THE CAR"?Я~Ж "THE PRINCIPLE CAUSE OF AUTOMOBILE ACCIDENTS, BOTH FATAL AND OTHERWISE IS",SPEED TOO FAST FOR CONDITIONS,DRIVING TOO FAR BELOW THE POSTED RATE@>ИЖ "AN OPERATOR IS REQURED TO DRIVE AT SPEEDS BELOW POSTED SPEEDS WHEN ROAD CONDITIONS ARE",NOT IDEAL DUE TO WEATHER OR TRAFFIC,MADE WORSE BY OLDER DRIVERS@аТЖ "OUTSIDE A THICKLY SETTLED DISTRICT, AN UNREASONABLE SPEED IS ANYTHING ABOVE",40 MPH,30 MPH@■ЬЖ "IN A THICKLY SETTLED DISTRICT, AN UNREASONABLE SPEED IS ANY SPEED ABOVE",30 MPH,40 MPH ═&:ГGRADER by Bill Bernico&tNW│0:NR│0:TA│0:NQ│0:PR│0:AN│0:Ю:Й"NUMBER OF QUESTIONS";NQ:Й"STUDENT'S NAME";SN$:Ю&фAN│ANл1:З@0,"N0. QUESTIONS";NQ:З"NUMBER RIGHT";NR:З"NUMBER WRONG";NW:TA│NRлNW:ЕTA│0з4:ДPR│ Б((NRоTA)н100)'З@96,"TOTAL ANSWERS";TA:З"PERCENT RIGHT";PR;"%'/ЕPR│0зRG$│"F-":Бе20'HЕPR┤50зRG$│"F-":Бе20'`ЕPR┤60зRG$│"F":Бе20'yЕPR┤65зRG$│"D-":Бе20'С ЕPR┤70зRG$│"D":Бе20'к ЕPR┤74зRG$│"D+":Бе20'├ ЕPR┤77зRG$│"C-":Бе20'█ ЕPR┤80зRG$│"C":Бе20'Ї ЕPR┤83зRG$│"C+":Бе20( ЕPR┤86зRG$│"B-":Бе20(%ЕPR┤90зRG$│"B":Бе20(>ЕPR┤93зRG$│"B+":Бе20(WЕPR┤96зRG$│"A-":Бе20(oЕPR┤98зRG$│"A":Бе20(ГЕPR┤101зRG$│"A+(╫З@160,"RUNNING GRADE ";RG$:ЕTA│NQ з22:ДЗ@288,"WAS ANSWER #";AN:З"rIGHT OR wRONG)I$│ Т:ЕI$│"R"зNR│NRл1:Бе3:ДЕI$│"W"зNW│NWл1:Бе3:Д21)╠З@288,SN$;"'S":З"TEST IS NOW GRADED":АB│1е4:З@224,"FINAL OUTCOME":АE│1248е1260:ТE, Ж(E)м64:Л:АT│1е200:Л:З@224,"FINAL OUTCOME":АT│1е200:Л:ЛB:З@484,"HIT ANY KEY TO DO ANOTHER";:в44539:Бе2OR wRONG)I$│ Т:ЕI$│"R"зNR│NRл1:Бе3:ДЕI$│"W"з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  7&! В**************************&AВ* ROAD SKILLS INSTRUCTOR *&aВ* BY FRED B.SCERBO *&БВ* 60 HARDING AVE *&бВ* NORTH ADAMS,MA 01247 *&┴#В* COPYRIGHT (C) 1987 *&с(В**************************&Ў-Х2000:R$│ Л(128)'$2М AO(50),A$(50),B$(50),C$(50),NP(50),C(8)'?7Ю0:АI│1е32:З Л(172);:Л']<АI│1е192:НA:З Л(Aл128);:Л'─AЖ126,124,122,126,124,122,126,124,122,125,124,125,,,30,28,26,29,,,30,20,30,20,30,16,20,30,,21,28,29(FЖ122,,122,122,,122,122,96,122,117,,117,,,26,,24,21,16,22,16,,26,,26,,16,26,,21,,20(zKЖ123,115,122,122,,122,123,115,122,117,96,117,,,27,19,18,21,22,16,,,26,,26,,16,26,,21,19,19(╧PЖ122,117,,122,,122,122,112,122,117,112,117,,,,,26,21,20,18,,,26,,26,,16,26,,,,21)*UЖ122,117,96,122,,122,122,,122,117,,117,,16,26,,26,21,,20,18,,26,,26,21,16,26,21,21,,21)ХZЖ122,117,114,123,115,122,122,112,122,119,115,119,,,27,19,26,23,18,,27,17,27,17,27,23,17,27,23,21,19,23)н_АI│1е32:З Л(163);:Л)╤dЗ@325," INSTRUCTIONAL QUIZ ";)їiЗ@357," BY FRED B.SCERBO ";*nЗ@389," COPYRIGHT (C) 1987 ";*=sЗ@453," (R)EVIEW OR (Q)UIZ ";*RxSW│30:KZ│ Д(м Я)*^}АJ│1е50*ЗВНA$(J),B$(J),C$(J):Е A$(J)│"END"з140*ОЗЛJ*ШМJ│Jм1*╝САI│143е255й16:KK│KKл1:C(KK)│I:Л*╟ЦАI│1еJ*╫ЫAO(I)│ Д(J)*юаЕ NP(AO(I))│1 з155+еNP(AO(I))│1:ЛI+кX$│ Т:ЕX$│"R"з185+'пЕX$│"Q"з355+1┤Бе170+]╣Ю0:АI│1024е1535:ТI,32:Л:АP│1еJ:WW│ Д(8)+Ж╛АI│1024е1055:ТI,C(WW):ТIл480,C(WW):Л+о├VL│96:JK$│A$(P)л" "лB$(P)л".":Бж375+╛╚Бж205:Бе215+╪═X$│ Т:ЕX$┤▓ Л(13)з205+▐╥Р+√╫АI│1088е1120лVL:ТI,32:ЛI,▄ЛP,сЮ7:Бж230:Бе235,0цАI│1440е1535:ТI,32:Л:Р,lыАY│0е31:АI│26е37:Э(I,Y):ЛI,Y:З@128,"";:АI│1е128:ЗR$;:ЛI,┐ЁVL│384:JK$│"NOW WE WILL LOOK AT SOME EXAMPLES OF THE RIGHT OF WAY LAW.":Бж375,┘їX$│ Т:ЕX$┤▓ Л(13)з245,ї·Бж230:Бж255:Бж260:Бе265-1 АI│191е180йм1:З@I,"A";:АY│1е20:ЛY:З@I,R$;:ЛI:З@I,"A";:Р-nАI│401е305йм32:З@I,"B";:АY│1е20:ЛY:З@I,R$;:ЛI:З@I,"B";:Р-┌ VL│384:JK$│"AT THIS INTERSECTION, CAR A HAS THE RIGHT OF WAY OVER CAR B SINCE A IS ON B'S RIGHT.":Бж375-ЎБж205:Бж275:Бж280:Бе285.)АI│179е160йм1:З@I,"A";:АY│1е20:ЛY:З@I,R$;:ЛI:Р.\АI│273е17йм32:З@I,"B";:АY│1е20:ЛY:З@I,R$;:ЛI:Р.xБж230:Бж290:Бж260:Бе295.▒"АI│192е203:З@I,"A";:АY│1е20:ЛY:З@I,R$;:ЛI:З@I,"A";:Р/'VL│384:JK$│"IN THIS CASE, CAR B HAS THE RIGHT OF WAY SINCE IT IS ENTERING m&A:Г LETTER GETTER COPYRIGHT (C) JAMES DALE DUNCAN 11/7/86&d P│451:D│1:G│419:P1│131:W│0:M│0&╚A$│"DNUEPYCQLOSVAMHBRWZIJGTXFK":B$│"ABCDEFGHIJKLMNOPQRSTUVWXYZ":C$│"abcdefghijklmnopqrstuvwxyz"'Ю:З"*********LETTER*GETTER**********":З@67,B$;:З@P,A$;'x(АDD│32е448й64:З@DDл62, Л(191)л Л(175);:З@DDл30, Л(175)л Л(191);:З@DD, Л(175)л Л(191);:З@DDл32, Л(191)л Л(175);:Л'┬2G$│ Т:З@G, Л(42);:АJ│0е50:Л:З@G, Л(32);:ЕG$│","зG│Gм1:Д ЕG$│"."зG│Gл1'▌<ЕG$│"," ▒ G$│"."зM│Mл1(FЕG┤419з G│444:Д Е G▓444з G│419(PЕ G$│"Z"з Бж 110($ZЕ G$│""з50(-dБе50(QnL│ Ж(1056лG):ЕL┤65 ▒ L▓90 зL│32(`xЕ L│32 з Р(sВЗ@Gл32, Л(32);(─МG$│ Т:З@P1, Л(L);:АJ│0е50:Л:З@P1, Л(32);:ЕG$│","з P1│P1м1:Д ЕG$│"."з P1│P1л1(▀ЦЕG$│"," ▒ G$│"."зM│Mл1)аЕP1┤131зP1│156:ДЕP1▓156зP1│131)кЕG$│"Z"з190:Д Бе140))┤ЕG$│""з140)B╛Е  Ж(992лP1)┤▓96з210)t╚З@P1м32, Л(L);:ЕL┤▓ Ж(960лP1)зЗ@P1м32, Л(32);)Х╥ЕL┤▓ Ж(960лP1)зЗ@Gл32, Л(L);)н▄ЕL│ Ж(960лP1)зW│Wл1)╗цЕW│26з250)┴ЁР*·З@225,"YOU FINISHED IN ";M;" MOVES.";:З@289,"PRESS ANY KEY TO PLAY AGAIN.";*fG$│ Т:З@99,C$;:а180,1:З@67,C$;:а200,1:З@99,B$;:а220,1:З@67,B$;:а240,1:ЕG$│""з260*lО(32);)Х╥ЕL┤▓ Ж(960лP1)зЗ@Gл32, Л(L);)н▄ЕL│ Ж(960лP1)зW│Wл1)╗цЕW│26з250)┴ЁР*·З@225,"YOU FINISHED IN ";M;" MOVES.";:З@289,"PRESS ANY KE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 г&В TITLE&> Ю0:АI│1е 224 :Н A:З Л(Aл128);:Л&cЖ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,&мЖ,,,,47,32,32,,47,44,44,,44,47,44,,44,47,44,,47,44,44,,47,44,47,,,,,&ї(Ж,,,,47,32,32,,47,44,44,,32,47,32,,32,47,32,,47,44,44,,47,45,34,,,,,'>2Ж,,,,44,44,44,,44,44,44,,32,44,32,,32,44,32,,44,44,44,,44,32,44,,,,,'Х<Ж31,28,28,,31,28,31,,31,16,31,,31,27,16,31,,31,28,28,,31,16,31,,31,28,28,,31,28,31'ьFЖ31,16,16,,31,29,18,,31,16,31,,31,20,27,31,,31,16,16,,31,28,31,,31,28,28,,31,29,18(CPЖ28,28,28,,28,16,28,,28,28,28,,28,16,20,28,,28,28,28,,28,16,28,,28,28,28,,28,16,28(`ZЗ@425, " BILL SMITH ";(}\З@457, "COPYRIGHT 1986";(Т_А X│1 е 1500:Л X(Ю`А X│1е2(№a╔"L4;V8;O4;L16.;1;L32;1;L16.;1;L32;1;L16.;1;L32;5;L16.;8;L32;5;L16.;8;L32;5;L16.;8;L32;5") bЛX:╔"L2;1")(cВ END TITLE)=dP$│"A":L$│"":S│0)CnЮ)LxP│65)qВЗ:Й " TO BEGIN";U$)НЗЙ "SKILL LEVEL(1-5)";LV)ЭЙT│110мLVн10)┘МЮ:З"PLACE FINGERS OVER 'A' AND 'K' KEYS. GET READY !"*ЦА V│1 е 15:А X│1 е 3:╔"V"л И(Vн2)л"L255;O3;2;1;2;1":Л X:Л V*аЮ*KкЗ" letter cruncher":А X│1 е 250:Л X*Y┤З@207,"A"*l╛H│0:D│ Д(8)л64*y╚B$│ Л(D)*Ж╥L$│L$лB$*Ъ▄З@267,L$:а 90,1*пцЕ  З(L$)│9 з 400*╣ЁA$│ Т*╠·Е A$│"A" з 300*▀Е A$│"K" з 340*ЄЕ A$┤▓"" з 240+H│Hл1:Е H│T з 190+"Бе 240++,P│Pл1:Е P│73 з P│65+86P$│ Л(P)+E@З@207,P$+PJБе 240+]TE│ З(L$)+Й^Е P$│ П(L$,1) з L$│ О(L$,Eм1)::Д Бе 190+УhT│Tм1+иrЗ@267,L$:а 250,1+▓|S│Sл1+╝ЖБе240,РА X│1 е 10:╔ "L255;O1;V30;1;V26;2;V22;3;V18;4;V14;5;V12;6":а 1,1:Л X,ЪЮ:З" GAME OVER",<дЗ:З"YOU CRUSHED ";S;" LETTERS",\йЗ "PLAYING SKILL LEVEL ";LV,~оЗ:Й "PLAY AGAIN ";AG$:а 180,1,Ч╕Е  О(AG$,1)┤▓"Y" з К,в┬Бе 1000,1+▓|S│Sл1+╝ЖБе240,РА X│1 е 10:╔ "L255;O1;V30;1;V26;2;V22;3;V18;4;V14;5;V12;6":а 1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 :&В*MATHTCHR&)В*BY J.E.RITTENHOUSE&4Бе 500&=Ю(0)&M А H│20 е 43&\Ь (H,10,5)&kЬ (H,20,5)&s(Л H&Г2А V│10 е 20&Я<Ь(20,V,5):Ь(43,V,5):Л V&оFЬ(31,15,8)&╩PА H│28е34:Ь(H,17,4):Л H&фZЬ(25,13,3):Ь(38,13,3)'dЗ@0,"LET'S DO "'nЗ@32,"PRESS [ENTER]";:Й A$')СT│Tл1'?ЦX│ Д(15):Y│ Д(15)'\аЗ@32,"WHAT IS"X"+"Y;:Й A'q┤Е A│XлY з Бе 300'З╛Е A┤▓XлY з Бе 400'м,З@356,"****THAT'S CORRECT!****";'╜-А X│89 е 176'╦.а X,1:Л X'ц/Ь(27,16,4):Ь (35,16,4)'Ё6R│Rл1(@З@420,"THAT'S"R"CORRECT OUT OF"T(AJЗ@452,"PRESS [ENTER] FOR ANOTHER";:Й A$(J^Бе 5(gРЗ@360,"*****WRONG*****";(|СА P│176 е 89 йм1(КТа P,1:Л P(еУЬ(27,18,4):Ь (35,18,4)(╛ЪЗ@362,X"+"Y"="XлY ;(╔дБе 330(уЇЮ(0):S│128л16н(3м1)л0(¤■А H│20 е 43:Ь(H,10,5))Ь(H,20,5):Л H))А V│10 е 20:Ь(20,V,5));Ь(43,V,5):Л V)J&Ь(31,15,8))h0А H│28 е 34:Ь(H,17,4):Л H)В:Ь(25,13,3):Ь(38,13,3))ЬDЬ(27,16,4):Ь(35,16,4))╨NЗ@40,"math"; Л(S);"can"; Л(S);"be"; Л(S);"fun";*XЗ@393,"and"; Л(S);"i"; Л(S);"can"; Л(S);"help";*0bЗ@458,"press"; Л(S);"enter"; Л(S);:Й R$*9lБе 5)J&Ь(31,15,8))h0А H│28 е 34:Ь(H,17,4):Л H)В:Ь(25,13,3):Ь(38,13,3))ЬDЬ(27,16,4):Ь(35,16,4))╨NЗ@40,"math"; Л(S);"can"; Л(S);"be"; Л(S);"fun";*XЗ@393,"and"; Л(S);"i"; Л(S);"can"; Л(S);"h                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ё&:Г****TIMETBLE****&/:Г****************&F:Г***WRITTEN BY***&]:Г*JOHN MUSUMECI**&t:Г*103-57 104 ST**&Л:Г**OZONE PARK,***&в:Г***NEW YORK*****&╣:Г****11417*******&╨ :Г**718-738 0212**&╓ Ю&эЗ@11,"TIMES TABLE"'З@64,"WHAT NUMBER-TO-TIMES BY"'(З:З:Й B'12Е B┤1 ▒ B▓9 з 10'7<Ю'NFЗ@11,"TIMES TABLE"'ePЗ@43,"-----------"'mZЗ:З'|dА A│1 е 10'ЖnC│BнA'ЯxЗ B;"X";A;"=";C,:Л A'зВЗ:З'╟МЗ "PRESS FOR TEST" '╧ЦЙ Z'╒аЮ'ткA│ Д(10)( ┤З@480,"PRESS '99' FOR NEW NUMBER";(╛З@75,A("╚З@105,"X"(.╥З@107,B(?▄З@138,"----"(GцЗ:З(QЁC│AнB(e·Й "ANSWER IS";F(╕Е F│C з З "CORRECT":А X│1е460н3:Л X:а 150,1:R│ Д(7)л1:Ю(R):АX│1е460н3:ЛX:Бе160(╚Е F│99 з 10(яЗ"WRONG":А X│1е460н3:ЛX:а75,5:Бе60S '99' FOR NE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                │18$d┼(X(Z),180)м(X(Z)л10,190),B2,╜8ГeX(Z)│X(Z)лY(Z):W│Wнм1:ЕW▓0 з┼(X(Z),180)м(X(Z)л10,190),B,╜ :Д┼(X(Z),180)м(X(Z)л10,190),B1,╜8▐fЕX(Z)│▓169 зB│Bл1:L3│L3л1:┼(X(Z),180)м(X(Z)л10,190),B2,╜:X(Z)│31:Y(Z)│( Д(0)н4)л2:Бж789gM│Mл1:ЕM│Pм15 зM1│1 :ДЕM│P зM1│29БhЕM1▓0 зЕM1│1 ░W▓0з┼(H,95)м(Hл18,102),O,╜ :ДЕM1│1 з┼(H,95)м(Hл18,102),O1,╜ :Д┼(H,95)м(Hл18,102),O2,╜:ЕH│┤5 зM1│0:M│0:H│1809╩iЕM1│2 зH│Hм5:ЕW│▓0 з┼(H,95)м(Hл18,102),O,╜ :Д┼(H,95)м(Hл18,102),O1,╜9№jЕM1▓0 ░ а(Hм1,98)▓0 зB│16:Бж78:F│0:X│160:D│40:!kЕH│160 з┼(180,95)м(198,102),O3,╜:'lР2),O,╜ :ДЕM1│1 з┼(H,95)м(Hл18,102),O1,╜ :Д┼(H,95)м(Hл18,102),O2,╜:ЕH│┤5 зM1│0:M│0:H│1809╩iЕM1│2 зH│Hм5:ЕW│▓0 з┼(H,95)м(Hл18,102),O,╜ :Д┼(H,95)м(Hл18,102),O1,╜9№jЕM1▓0 ░ а(Hм1,98)▓0 зB│16:Бж78:F│0:X│160:D│40:!                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & :ГMONEY JAR&-:ГFROM KROMICO SOFTWARE&C:ГBY BILL BERNICO&J(:Г&Є2МA(11):АW│1е11:НA(W):Л:Ю:З@8,"COUNT YOUR MONEY":АX│1024е1055:ТX, Ж(X)м64:Л:З@34,"HOW MANY OF EACH DO YOU HAVE":З@75,"QUANTITY AMOUNT":АX│1088е1119:ТX, Ж(X)м64'╡<Л:З@96,"PENNIES":З@128,"NICKELS":З@160,"DIMES":З@192,"QUARTERS":З@224,"HALF-DOLLARS":З@256,"$1 BILLS":З@288,"$5 BILLS":З@320,"$10 BILLS":З@352,"$20 BILLS":З@384,"$50 BILLS":З@416,"$100 BILLS(tFB│110:А C│1 е 11:╔"O5T60B":З@B,"";:╗ЙD$:D│ Й(D$):ТBл1029,32:E│EлA(C)нD:Бж170:E$│"$$####.##":H│(A(C)нD)о100:З@Bл8,"";:З═E$;H:ТBл1041,32:B│Bл32:ЛC:Т1491,32:Т1523,32:З@471, б(8,45):Т1503,32)#PТ1535,32:D$│"$$######":C$│"##":АX│1472е1490:ТX,32:Л:З@480,"your ";:Т1508,32:З"moneyjar ";:Т1517,32:З"total";:╔"O1T60CP3O2CP3O3CP3O4CP3O5C":З@500,"";:З═D$;F;:З".";:З═C$;G;)nZЖ 1,5,10,25,50,100,500,1000,2000,5000,10000:Е  Ж(1533)│96 з Т 1533,112)зdЗ@32," TRY aGAIN OR qUIT":╔"O4T60F":АY│1е300:Л)▒nA$│ Т)┼xЕA$│"Q"з Ю:Фм30)╘ВЕA$│"A"з О* МЗ@39,"TRY AGAIN OR QUIT":╔"O2T60F":АY│1е300:Л:Бе100*█ЦЮ:З@230,"IF YOU HAVE THAT MUCH MONEY, IT BELONGS IN A BANK - NOT A JAR! TRY AGAIN.":АX│1е5:З@173,"OVERFLOW":А Y│1е100:ЛY:╔"O5T60G":З@173,"overflow":А Y│1е100:ЛY:╔"O3T60G":Л *эаАX│1е2500:Л:О+ кF│ Б(Eо100):ЕF▓99999з150+┤G│Eм100нF:РYOU HAVE THAT MUCH MONEY, IT BELONGS IN A BANK - NOT A JAR! TRY AGAIN.":АX│1е5:З@173,"OVERFLOW":А Y│1е100:ЛY:╔"O5T60G":З@173,"overflow":А Y│1е100:ЛY:╔"O3T60G":Л *эаАX│1е2500:Л:О+ кF│ Б(Eо100):Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (&$:Г****************************&G:Г* WRITTEN BY DAREN KOCH *&j:Г* ORIGINAL IDEA BY *&Н:Г* FRANCOIS GAGNE *&░:Г****************************&╛Т 65495,0&╟Бж21&╥╚4,1:╝&█ Бж37' B1│1:P│100:H│180:O1│210:O│5:B│5:X│160:D│40:N│9:W│1:V│1:A2│5'$ Бж24'- Бж78'6 Бж18'D╚4,1:┐1,1'MБж85'VБж99'_Бе15'╣╗(220,100)м(240,191),╛,BF:ЕV▓м1 зА A│170 е170м(Vн20) й м20:┼(220,A)м(238,Aл18),C,╜:ЛA(4ЕV│м2 зЮ(7):З@43,"GAME OVER";:З@128,"YOUR SCORE IS ";L1;:З@256,"DO YOU WANT TO PLAY AGAIN? (Y/N)";:ЙA$:ЕA$│"Y" зО :Д К(:Р(SЮ7:З@43,"CHAMELEON";(rЗ@263,"ONE MOMENT PLEASE";(xР(бАQ│1еN:X(Q)│31:Y(Q)│( Д(0)н4)л2:ЛQ:Р(┘Ю( Д(8)):ЕL3┤6 зЗ@192,"BONUS ";100нB1;:L1│L1л100нB1(ЎЕL3▓5 зЗ@192,"NO BONUS";)З@256,"YOUR SCORE IS ";L1;)6З@6,"LEVEL ";B1;" COMPLETE";)FЕB1│4 зA2│0)\ЕB1│5 зV│Vл1:Бж18)АЗ@480,"PRESS FIRE TO CONTINUE";)а Е( Ж(65280) ░3)│2 з 33 :Д32)╣!ЕV│м2 зР :Д╚4,1:┐1,1)╪"M1│0:L3│0:B│BмA2:ЕB┤0 зB│0*#Бж78:B1│B1л1:P│Pм20:ЕP┤20 зP│20:A1│0*$Р*Я%Ж 1,10,16,2,9,13,3,3,4,3,7,10,4,2,2,4,4,13,5,0,18,6,2,4,6,6,14,7,8,12,10,3,4,10,7,11,11,2,2,11,4,13,12,0,18,13,2,4,13,6,14,14,7,10,15,9,13,16,10,16*й&Ж-1,,*┐'Н A,B,C:ЕA│м1 з42*┘(АX│B еC:╜(Xл100,A):ЛX*т)Бе39+▌*Ж 1,3,3,1,15,15,2,3,15,3,2,16,4,2,16,5,2,4,5,7,11,5,14,16,6,1,4,6,7,11,6,14,17,7,1,17,8,1,17,9,1,3,9,5,13,9,15,17,10,1,4,10,6,7,10,9,9,10,11,12,10,14,17,11,1,5,11,7,11,11,13,17,12,1,6,12,9,9,12,12,17,13,2,2,13,16,16,13,4,8,13,10,14,14,2,3,14,6,12,4+Ж 14,15,16,15,2,5,15,7,11,15,13,16,16,0,6,16,12,18,17,0,18,18,0,4,18,7,11,18,14,18,?,Ж -1,,,T-НA,B,C:ЕA│м1 з48,o.А X│B еC:╜(Xл200,A):ЛX,x/Бе45-k0Ж 1,3,3,1,15,15,2,3,15,3,2,16,4,2,16,5,2,4,5,7,11,5,14,16,6,1,4,6,7,11,6,14,17,7,1,17,8,1,17,9,1,3,9,5,13,9,15,17,10,1,3,10,6,7,10,9,9,10,11,12,10,15,17,11,1,3,11,7,11,11,15,17,12,1,3,12,9,9,12,15,17,13,1,4,13,14,16,14,2,2,14,4,5,14,13,14-ъ1Ж 14,16,16,15,2,3,15,5,6,15,12,13,15,15,16,16,0,4,16,6,7,16,11,12,16,14,18,17,0,7,17,11,18,18,0,4,18,7,7,18,11,11,18,14,18-ї2Ж -1,,. 3НA,B,C:ЕA│м1 з 54.)4АX│B е C:╜(Xл200,Aл25):ЛX.25Бе51.К6Ж 5,8,9,6,2,5,6,7,8,6,10,10,7,1,5,7,7,9,8,0,4,8,6,6,9,0,1,9,5,5,9,7,9,10,0,4,10,9,9.Х7Ж -1,,.Я8ZZ│50.╢9Н A,B,C:ЕA│м1 з 60.╘:АX│B е C:╜(Xл200,Aл70):ЛX.▌;Бе57/A<Ж 1,0,1,2,0,3,3,0,4,4,1,4,5,4,5,5,8,9,6,2,5,6,7,8,6,10,10,7,1,9,8,0,6,9,0,5,9,7,9,10,0,4,10,9,9/K=Ж-1,,/a>Н A,B,C:ЕA│м1 з65/~?АX│B еC:╜(Xл200,Aл90):ЛX/З@Бе62/ЄAЖ 1,1,1,2,0,2,3,1,1,4,0,2,5,1,1,6,0,2,7,1,1,8,0,2,9,1,1,10,0,2,15,1,1,16,0,2,17,0,2,18,0,2,19,0,2,-1,,0 BН A,B,C:ЕA│м1 з 690(CАX│B е C:╜(Xл200,Aл110):ЛX01DБе660╞EМC(18,18),C1(18,18),C2(18,18),B(10,10),B1(10,10),B2(10,10),F(3,10),F2(3,10),F1(3,5),F3(3,5),X(10),P(10),Y(10),O(18,7),O1(18,7),O2(18,7),O3(18,7)1иF─(200,1)м(218,19),C,G:─(200,26)м(218,44),C1,G:─(0,0)м(18,18),C2,G:─(200,71)м(210,81),B,G:─(200,91)м(210,101),B1,G:─(0,0)м(10,10),B2,G:─(200,111)м(203,121),F,G:─(0,0)м(3,10),F2,G:─(200,125)м(203,130),F1,G:─(0,0)м(3,5),F3,G1ьG─(100,0)м(118,7),O,G:─(100,10)м(118,17),O1,G:─(0,0)м(18,7),O2,G1ЄH╝2I╗(180,0)м(200,191),╜,BF2╛J╗(5,165)м(15,170),╜,BF:╗(0,170)м(20,175),╜,BF:╗(0,175)м(25,180),╜,BF:╗(0,180)м(30,190),╜,BF:╗(5,170)м(15,170),╛:╗(0,175)м(20,175),╛:╗(0,180)м(25,180),╛:╗(0,185)м(30,185),╛2▐KА X│0е5:┬(182,100),2,0,X:ЛX2√L─(180,95)м(198,102),O3,G3MР3NЕB│14 зB│16:F│030O╗(30,36)м(180,40),╛,BF3RP╗(30л(10нB),36)м(180,40),╜,BF3bQS│30л(10нB)3эRЕB│16 зАJ│17 е170 й4:┼(X,J)м(Xл18,Jл18),C,╜:┼(X,J)м(Xл18,Jл18),C2,╜:ЛJ:B│5:╗(30л(10нB),36)м(180,40),╜,BF:S│30л(10нB1):V│Vм1:Бж18:F│0:Р4\SЕX┤S ░B┤16з┼(X,17)м(Xл18,35),C2,╜:┼(Xл10,17)м(Xл28,35),C1,╜:X│Xл10:ЕD▓40 з╗(Xм3,41)м(X,Dл15),╛,BF:F│0:D│404bTР4tUЕF│0 з86 :Д894├VJ│ Н(0):┼(X,17)м(Xл18,35),C2,╜:ЕJ│┤20 ░X▓Sл4 зX│Xм5 :ДЕJ│▓40 ░X┤160 зX│Xл54▌W┼(X,17)м(Xл18,35),C,╜4°XЕ( Ж(65280) ░3)│2 зF│15YЕF│2 з965ZЕF│1 з91 :ДР5└[┼(X,17)м(Xл18,35),C1,╜:┼(Xл8,Dл1)м(Xл11,Dл11),F,╜:┼(Xл8,Dл11)м(Xл11,Dл16),F1,╜:D│Dл10:ЕDл6│96 ░Xл9▓H ░Xл9┤Hл18 з┼(H,95)м(Hл18,102),O2M,╜:M1│0:F│2:H│180:M│0:L1│L1л2005╙\ЕD│180 з93 :ДР6Г]F│2:АR│1 еN:ЕXл11▓X(R) ░Xл8┤X(R)л10 з┼(X(R),180)м(X(R)л10,190),B2,╜:X(R)│31:Y(R)│( Д(0)н4)л2:K│1:┼(O1,O)м(O1л10,Oл10),B1,╜:O│Oл15:L│Lл1:L1│L1л50л(25нB1):ЕO│110 зO│5:O1│2307K^ЕL│14 зL2│L2л25:╗(31,180)м(180,191),╛,BF:┼(X,17)м(Xл18,35),C2,╜:╗(201,0)м(256,120),╛,BF:╗(Xл8,41)м(Xл11,190),╛,BF:O│5:M│0:M1│0:Z│0:K│0:F│0:L2│L2л1:O1│210:X│160:D│40:L│0:Бж25:ЕN▓4 зN│Nм2:Бж24:Бе857T_ЛR:Р7┴`┼(Xл4,D)м(Xл14,Dл10),B2,╜:D│Dм10:┼(Xл8,Dл11)м(Xл11,Dл16),F3,╜:┼(Xл8,Dл1)м(Xл11,Dл11),F2,╜:ЕD│40 зF│0:K│07хaЕK│1 з┼(Xл4,D)м(Xл14,Dл10),B1,╜7ыbР8cZ│Zл1:ЕZ│Nл1 зZ  )& :ГANIMALS&$:ГBY ANDY BLOUNT&+:Г&9(:Гcredits&▐2└1:Х5000:МA$(300):Ю0:З@13,"ANIMALS";:З@74,"BY ANDY BLOUNT";:AA$│ Л(128)л Л(147):BB$│ Л(128)л Л(157)л Л(157)л Л(152):АX│162е190:З@X,AA$;:З@Xл30,BB$;:╔"L32O1CD":Л'<╔"O4CABP20CABP20CAB":АX│1е1000:Л:X│0'F:Гload file 'GPЮ:З"DO YOU WISH TO LOAD AN ANIMAL FILE?"'nZA$│ Т:ЕA$│""з90:ДЕA$│"Y" з100:Д180'┴dЮ:З"WHICH DO YOU WANT TO LOAD ANIMALS OFF OF:",,"1. DISK",,"2. CASSETTE"'▌nИ Й( Т) Бе120,130:Бе110(-xЮ:З"INSERT DISK WITH 'ANIMAL/DAT' ONIT AND PRESS [ENTER]":в44539:SF│1:Бе140(БВЮ:З"POSITION TAPE - PRESS THEN PRESS [ENTER] WHEN READY":в44539:SF│м1(ЦМЩ"I",SF,"ANIMAL"(пЦЕ  М(SF) зЪ#SF:Бе170(╩аЙ#SF,A$(X):X│Xл1:Бе150(°кЗ"DONE LOADING ANIMALS":АX│1е1000:Л:Бе200) ┤АX│0е3:НA$(X):Л)╛:Гstart game )R╚Ю:З@12,"LETS PLAY":З@40,"'GUESS THE ANIMAL'":З)ж╥З" THINK OF AN ANIMAL AND I WILL TRY TO GUESS IT.":T│1:N│ Й(A$(0)))│▄ЕT│0 з Ю)щцT│0:З:PI$│" ARE YOU THINKING OF AN ANIMAL?":Бж710*/ЁA$│ Т:ЕA$│""з240:ДЕA$│"L" з250 :ДЕA$│"N" з730 :ДЕA$│"Y"з260 :Д240*G·З:Зд13)"LIST":Бе650*^З:Зд15)"YES":З:B│1*Бж490:Е О(A$(B),2)│"/Q" з270*Т:Гguess animal*╧"PI$│"IS IT A ":Бж710:PI$│ П(A$(B), З(A$(B))м2)л"?":Бж710*щ,A$│ Т:ЕA$│""з300:Д310+@6ЕA$│"Y" зЗ" YES":З" I GUESSED IT! WHY NOT TRY ANOTHER ANIMAL." :Д330+V@АZ│1е1000:Л:Бе220+ОJЗ" NO":Й"THE ANIMAL YOU WERE THINKING OF WAS A ";V$,2TЗ"ENTERING THE ANIMAL: "V$:АCC│1е300:Е О(A$(CC),2)┤▓"/A" зЛCC :ДАZ│3е  З(A$(CC)):Е Р(A$(CC),Z,1)│"/" зЛZ :Д CC$│CC$л Р(A$(CC),Z,1):ЛZ:ЕV$│CC$ з360 :ДCC$│"":ЛCC,<^Бе370,╘hPI$│"SORRY, I ALREADY KNOW A":Бж710:З:PI$│V$л", YOU MUST HAVE":Бж710:З:PI$│"ANSWERED A QUESTION WRONG. WHY NOT TRY AGAIN.":Бж710:АX│1е3000:Л:Бе220-?rЗ"PLEASE TYPE A QUESTION THAT WOULD DISTINGUISH A "V$:З"FROM A "; П(A$(B), З(A$(B))м2);":":╗Й"";X$-o|З"FOR A "V$",":╗Й"THE ANSWER WOULD BE: ";A$-ЧЖA$│ О(A$,1):ЕA$┤▓"Y" ░ A$┤▓"N" з380-лРЕA$│"Y" зB$│"N"-┐ЪЕA$│"N" зB$│"Y"-╧дD│ Й(A$(0))-соA$(0)│ И(Dл2)-ё╕A$(D)│A$(B).┬A$(Dл1)│"/A"лV$.7╠A$(B)│"/Q"лX$л"/"лA$л И(Dл1)л"/"лB$л И(D)л"/".A╓Бе220.Wр:Гask questions .dъQ$│A$(B).uЇАZ│3е  З(Q$).Ы■Е Р(Q$,Z,1)┤▓"/" зЗ Р(Q$,Z,1);:ЛZ.еЗ"?";.фC$│ Т:ЕC$│""з530:ДЕC$│"Y" зЗ" YES" :ДЕC$│"N" зЗ" NO" :Д530.ЄT$│"/"лC$/&АX│3 е  З(Q$)м1/0Е Р(Q$,X,2)│T$ з580/%:ЛX/9DАY│Xл1 е  З(Q$)/QNЕ Р(Q$,Y,1)│"/"з610/XXЛY/sbB│ Й( Р(Q$,Xл2,YмXм2))/ylР/░vЖ"4","/QDOES IT FLY/Y2/N3/","/ACROW","/AGOLD FISH"/├А:Гlist animals/шКЗ:З"ANIMALS I ALREADY KNOW ARE:"0ФАI│1е299:Е О(A$(I),2)┤▓"/A" зЛI:Бе6900NЮАZ│3е  З(A$(I)):Е Р(A$(I),Z,1)┤▓"/" зЗ Р(A$(I),Z,1);:ЛZ0YиЗ,;:ЛI0o▓АX│1е1000:Л:Бе2200Г╝:Гslow printing0╡╞АYP│1е З(PI$):З Р(PI$,YP,1);:АGH│1е4:ЛGH,YP:Р0╘╨:Гsaving animals & quiting1 ┌Ю:З,,:PI$│" ARE YOU SURE YOU WANT TO QUIT?":Бж7101CфA$│ Т:ЕA$│""з740 :ДЕA$│"Y" з750 :ДЕA$│"N" з220 :Д7401вюЮ:PI$│"DO YOU WISH TO SAVE THE ANIMALS AND QUESTIONS IN MEMORY TO DISK OR CASSETTE?":Бж7101┌°A$│ Т:ЕA$│""з760:ДЕA$│"N" зЮ:К :ДЕA$│"Y" з770 :Д7602!Ю:З"WHICH DO YOU WANT TO SAVE THEM TO?",,"1. DISK",,"2. CASSETTE"2= И Й( Т)Бе 790,800:Бе7802ЛЮ:З"INSERT DISK TO SAVE ANIMALS ON THEN PRESS [ENTER]":SF│1:в44539:Бе8102█ Ю:З"POSITION TAPE - PRESS PLAY AND RECORD THEN PRESS [ENTER]":SF│м1:в445393(*Щ"O",#SF,"ANIMAL":АX│0е300:З#SF,A$(X):Л:Ъ#SF:З"FINISHED":АX│1е1000:Л:Ю:КТ)Бе 790,800:Бе7802ЛЮ:З"INSERT DISK TO SAVE ANIMALS ON THEN PRESS [ENTER]":SF│1:в44539:Бе8102█ Ю:З"POSITION TAPE - PRESS PLAY AND RECORD THEN PRESS [ENTER]":SF│м1:в445393(*Щ"O",#SF,"ANIMAL":АX│0е300:З#SF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &# :Г$$$$$$$$$$$$$$$$$$$$$$$$$$$&E:Г$$ DOLLAR$ FOR $$&g:Г$$ GOOD GRADE$ $$&Й(:Г$$ WRITTEN IN 1985 BY $$&л2:Г$$ DENNIS O. DORRITY $$&═<:Г$$$$$$$$$$$$$$$$$$$$$$$$$$$&яF:Г###########################'P:Г## INITIALIZATION & MENU ##'3Z:Г###########################'KdТ150,41 :Г1200 BAUD'ЙnPG$│"#.##":PM$│"$$#.##":BL$│ б(30,191) :ГAESTHETIC VALUES'╠xBN│10.00:SA│10.00:SB│7.00:SC│4.00:SD│1.00:SF│0 :ГDOLLAR VALUES(ВЮ4:TL$│" DOLLAR$ FOR GOOD GRADE$ ":АL│1е26:TL│ К( Р(TL$,L,1)):ЕTL▓64зTL│TLм64(1МТ1026лL,TL:ЛL(ЕЦTL$│" WRITTEN BY DENNIS O. DORRITY ":АL│1е30:TL│ К( Р(TL$,L,1)):ЕTL▓64зTL│TLм64(ЧаТ1504лL,TL:ЛL(икБж520 :ГNAME(╝┤Бж540 :ГA OR VG(╨╛Бж550 :ГB OR S+(у╚Бж560 :ГC OR S(ў╥Бж570 :ГD OR S-) ▄Бж580 :ГF OR N)цЗ" 7. START OVER)9ЁЗ" P. PRINT HARD COPY)Z·:Г##########################){:Г## CALCULATION ROUTINES ##)Ь:Г##########################)╩GA│(Aн4)л(Bн3)л(Cн2)лD :ГGRADE ADJUSTMENT*"GV│(AнSA)л(BнSB)л(CнSC)л(DнSD)л(FнSF) :ГGRADE VALUATION*+,NC│AлBлCлDлF :ГNUMBER OF CLASSES*Q6ЕNC│0зЗ@384:З@417:GP│0:ME│0:Бе340*n@GP│GAоNC :ГCALCULATE GPA*КJME│GVоNC :ГMONEY EARNED*╗TЗ@384," A GRADE POINT AVERAGE OF ";:З═PG$;GP*█^З:З@417,"EARNS ";:З═PM$;ME;* hЕGP│4зЗ" + BONUS OF ";:З═PM$;BN+r:Г####################+5|:Г## CHANGE ROUTINE ##+PЖ:Г####################+uРTL$│" ANY CHANGES? ENTER <1-P> "+дЪАL│1е26:TL│ К( Р(TL$,L,1)):ЕTL▓64зTL│TLм64+╢дТ1346лL,TL:ЛL+═оAC$│ Т:ЕAC$│""з430+Ё╕З@320,BL$; :ГBLANKS OUT PROMPT,┬ЕAC$│"P"Бж620, ╠AC│ Й(AC$):ЕAC┤1▒AC▓7з280,H╓И AC Бж 520,540,550,560,570,580,130,dрБе280 :ГRECALC GPA & $$,Гъ:Г########################,вЇ:Г## INPUT SUB-ROUTINES ##,┴■:Г########################,тЗ@64:З@65,"1. NAME? ";:╗ЙSN$-Е З(SN$)┤1▒ З(SN$)▓15з520:ДР-CЗ@96:З@97,"2. HOW MANY A OR VG? ";:╗Й A$:A│ Й(A$):З@117,A:Р-Е&З@128:З@129,"3. HOW MANY B OR S+? ";:╗Й B$:B│ Й(B$):З@149,B:Р-╞0З@160:З@161,"4. HOW MANY C OR S? ";:╗ЙC$:C│ Й(C$):З@181,C:Р.:З@192:З@193,"5. HOW MANY D OR S-? ";:╗ЙD$:D│ Й(D$):З@213,D:Р.HDЗ@224:З@225,"6. HOW MANY F OR N? ";:╗ЙF$:F│ Й(F$):З@245,F:Р.dN:Г#####################.АX:Г## PRINTER ROUTINE ##.Ьb:Г#####################.╥lЕ( Ж(65314)░1)┤▓1з650 :ГDETERMINES PRINTER STATUS.ЎvЗ@325," PRINTER IS NOT READY ";/ААL│0е999:ЛL:Р/.КЗ#м2,д50)"DOLLAR$ FOR GOOD GRADE$/WФЗ#м2:З#м2,д44)"NAME OF STUDENT: "SN$/БЮЗ#м2,д48)"NUMBER OF 'A's OR 'VG's: "A/лиЗ#м2,д48)"NUMBER OF 'B's OR 'S+'s: "B/╒▓З#м2,д48)"NUMBER OF 'C's OR 'S's: "C/ ╝З#м2,д48)"NUMBER OF 'D's OR 'S-'s: "D0)╞З#м2,д48)"NUMBER OF 'F's OR 'N's: "F0\╨З#м2,д44)"GRADE POINT AVERAGE: ";:З#м2,═PG$;GP0Й┌З#м2,д44)"AMOUNT EARNED: ";:З#м2,═PM$;ME0ифЕGP│4зЗ#м2,д56)" + ";:Д7800╟юЗ#м2,═PM$;BN;:З#м2," BONUS0▄°З#м2,д59)"------0√З#м2,д59);:З#м2,═PM$;MEлBN1 АL│1е5:З#м2:ЛL1Р 'F's OR 'N's: "F0\╨З#м2,д44)"GRADE POINT AVERAGE: ";:З#м2,═PG$;GP0Й┌З#м2,д44)"AMOUNT EARNED: ";:З#м2,═PM$;ME0ифЕGP│4зЗ#м2,д56)" + ";:Д7800╟юЗ#м2,═PM$;BN;:З#м2," BONUS0▄°З#м2,д59)"------0√З#м2,д59);:З#м2,═PM$;MEлBN1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё? O╩H№H├ ёї╧№Ц?╬╧№╬?АР  O╩H№H?╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C J2C?№╘?┼ї╧№Ц?╬╠№╬?П№ ╩C J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 № C 2C├ 51є№Ц?╠╬<╬?АРЄ   C 2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ   HH JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№Ц ЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     K&#:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤ Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M" ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M" DISK/"лAA$:╟3е1)*x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR38E12U10L14D2")8ВАII│1е500)LМЕ Т│""з150:Д160)TЦЛII)jаВ START MENU TEXT)~кМ A$(34),B$(34))╡┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)┐╛Н MN$)щ╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*▄NP│Pм1**цАI│NPл1е34:B$(I)│"":Л*0ЁЮ*O·З" RAINBOW ON DISK"*oЗ" (C) FALSOFT, 1987"*ШЗ" PRESS LETTER TO LOAD BASIC ONLY";*ёЗ " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"+"З:З" SIDE ONE"+7,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+=6З+b@З" PRESS TO CONTINUE";+wJX$│ Т:ЕX$│""з330+ЗTЕX$│" "з370+б^АI│1е14:ЕX$│B$(I)з500+оhЛI:Бе330+┤rЮ+▌|З:З " (XX)= PAGE NUMBER OF LISTING"+уЖЗ,РАP│15е24:ЗB$(P)A$(P),B$(10лP)A$(Pл10):ЛP,SЪЗ " PRESS TO RETURN TO FIRST PAGE OF MENU",{дЗ " PRESS ^ (UP ARROW) FOR ";,УоXX$│ Т:Е XX$│""з430,к╕ЕXX$│ Л(94)з Ю:╬:Ц,╗┬ЕXX$│" "з240,╪╠АI│15е NP:ЕXX$│B$(I)з500,х╓ЛI:Бе430,ЇрЕXX$┤▓з430,■ъБе240-ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-e■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-╚З:З" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-╬Ц-юQ│ З(Q$):Q│Qм6:SL$│ П(Q$,Q)-·&╙ SL$,R. шЖ "SEPTEMBER"._ЄЖ " (22) GRADE$"," (29) CLS"," (29) VARIABLE"," (38) ANIMALS"," (41) FRACTION".в№Ж " (43) SCOREBRD"," (53) BEEZAP"," (60) ABC"," (70) MONEYJAR".√Ж " (71) MATHTCHR"," (72) TIMETABL"," (74) LETRGETR"," (74) CRUNCHER"," (76) GRADER"/>р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┴ ┼  ╞  ─┼╟┼├├╞┼├╟┬┬├$%╟├┬╔*┴,-./012╟4╔6789:;<=┴       FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BASNGRADE$ BASCLS BAS&▌VARIABLEBAS'>ANIMALS BAS,FRACTIONBAS(ЦSCOREBRDBAS)╡BEEZAP BAS+ABC BAS+MONEYJARBASMATHTCHRBAS=TIMETABLBASєLETRGETRBASpCRUNCHERBASжGRADER BAS╨ROADSKILBAS:PAGE BAS3,GRAPH BAS5DEQUATIONBAS и                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ┌&( Ю:З:З" THIS IS A 'CLS' COMMAND"&;АX│1е1000й1:ЛX&dЮ1:З:З" THIS IS A 'CLS1' COMMAND"&w(АX│1е1000й1:ЛX&а2Ю2:З:З" THIS IS A 'CLS2' COMMAND"&│<АX│1е1000й1:ЛX&▄FЮ3:З:З" THIS IS A 'CLS3' COMMAND"&яPАX│1е1000й1:ЛX'ZЮ4:З:З" THIS IS A 'CLS4' COMMAND"'+dАX│1е1000й1:ЛX'TnЮ5:З:З" THIS IS A 'CLS5' COMMAND"'gxАX│1е1000й1:ЛX'РВЮ6:З:З" THIS IS A 'CLS6' COMMAND"'гМАX│1е1000й1:ЛX'╠ЦЮ7:З:З" THIS IS A 'CLS7' COMMAND"'▀аАX│1е1000й1:ЛX(кЮ8:З:З" THIS IS A 'CLS8' COMMAND"(┤АX│1е1000й1:ЛX(з╛Ю:З:З" THIS DEMO SHOWS THE 'CLS' COM- MAND IF YOU WISH TO SEE THIS DEMO AGAIN PRESS (A) ELSE ANY OTHER KEY TO END THIS PROGRAM"(▒╚A$│ Т(┴╥ЕA$│""з 200(╤▄ЕA$│"A"з 10(┘ЁЮ:К:ЛX(кЮ8:З:З" THIS IS A 'CLS8'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;&$ Ю : З : Й "ENTER YOUR NAME";A$&KЗ : Й "ENTER YEAR OF YOUR BIRTH";A&kЮ : З : З "WORKING........"&Т(B│(87мA) : А X │ 1 е1000 й 1 : Л X&╚2Ю : З : З A$ ;: З " YOU ARE "; B ;: З "YEARS OLD"&т<З : З "ANOTHER (Y/N)"&¤FB$│ Т : Е B$ │ "" з 70'PЕ B$ │ "Y" з 10'&ZЕ B$ │ "N" з 110'0dБе 70':nЮ : К YOUR BIRTH";A&kЮ : З : З "WORKING........"&Т(B│(87мA) : А X │ 1 е1000 й 1 : Л X&╚2Ю : З : З A$ ;: З " YOU ARE "; B ;: З "YEARS OLD"&т<З : З "ANOTHER (Y/N)"&¤FB$│ Т : Е B$ │ "" з 70'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 У&B:ГFRACTPIE by Bill Bernico idea by David Polonsky'+МA$(90):P│3.14159:A$(32)│"BR5":A$(40)│"BR2HU4EBD6BR3":A$(41)│"BREU4HBD6BR4":A$(45)│"BE2R2BR4BD2":A$(48)│"BRHU3ER2FD3GNL2BR4":A$(49)│"BU4BR2ED5BR3":A$(50)│"BU4ER2FDGL3D2R4BR2":A$(51)│"BU5R3FGNL2FDGL2NHBR6":A$(52)│"BR3U5G3R4BD2BR3($A$(53)│"BU5NR4D2R3FDGNL3BR4":A$(54)│"BU5BRNR2GD3FR2EUHL2GBD2BR7":A$(55)│"BU5R4D2G3BR6":A$(56)│"BRNR2HUEHER2FGNL2FDGBR4":A$(57)│"R2EU3HL2GDFR2EBF3":A$(65)│"U5ER2FD3NL4D2BR3":A$(67)│"BRNRHU4ER2FBD4GNL2BR4":A$(68)│"U6R3FD4GNL3BR4":A$(76)│"NU6R4BR3)A$(69)│"NR4U3NR3U3R4BD6BR3":A$(70)│"U3NR3U3R4BD6BR3":A$(72)│"U3NU3R4NU3D3BR4":A$(73)│"U6LR2LD6LR2BR3":A$(75)│"U3NU3R2E2UBD3BL2F2DBR3":A$(77)│"U6F3E3D6BR3":A$(78)│"U5NUF4NU5DBR3":A$(79)│"BRNR2HU4ER2FD4GBR4":A$(80)│"U6R3FDGNL3BF3BR)╬A$(82)│"U6R3FDGL2NLF3BR3":A$(83)│"BUFR2EUHL2HUER2FBD5BR3":A$(84)│"BR2U6NL2R2BD6BR3":A$(85)│"BRHU5BR4D5GNL2BR5":A$(87)│"BUNU5FE2F2ENU5BR3BD":A$(89)│"BR2U3H2UBR4DG2BF3BR2":╚4,1:╝1:┐1,1:┴0,1*FA$│"INPUT FRACTION":╞"S4BM80,30":Бж13:A$│"DENOMINATOR (2-9)":╞"BM65,40":Бж13:A$│"1":╞"BM110,80S8":Бж13:╞"BM108,83R9*YB$│ Т:ЕB$│""з7*rB│ Й(B$):ЕB┤2▒ B▓9з5+2 A$│B$:╞"BM112,98":Бж13:╞"BM133,87E4BL4F4":A$│B$:╞"BM155,90S12":Бж13:╞"BM175,86R3BUL3":A$│"1":╞"BM190,90":Бж13:АX│1е1000:Л:╞"S4":╝1:╗(0,22)м(255,191),╜,B:A$│"EACH PIECE IS":╞"BM20,15":Бж13+{ A$│"1":╞"BM110,9":Бж13:╞"BM107,11R11":A$│ И(B):╞"BM106,18":Бж13:Бе14, A$│"OF THE WHOLE PIE":╞"BM130,15":Бж13:АX│1е1000:Л:╗(46,191)м(211,181),╜,BF:A$│"HIT ENTER TO TRY ANOTHER":╞"BM50,189C1":Бж13:╞"C0, Е Т┤▓ Л(13)з12:Д5,J АX│1е З(A$):Y│ К( Р(A$,X,1)):╞A$(Y):в43345:Л:Р,XБж25:Бе14,ЖИ  К(A$)м48Бж16,17,18,19,20,21,22,23,24:Р,Ф╞A$(49):Р,в╞A$(50):Р,░╞A$(51):Р,╛╞A$(52):Р,╠╞A$(53):Р,┌╞A$(54):Р,ш╞A$(55):Р,Ў╞A$(56):Р-╞A$(57):Р-Q│0:N│B:ЕN┤2 ▒ N▓9з25-|Z│Nм1:АJ│0еZ:L(J)│100оZ:Q│QлL(J):ЛJ:АJ│0еZ:M(J)│2нPнL(J)оQ:ЛJ:Бж27:Бж32:├(80,95),0,0:Бе11-╒T│A:┐1,1:┬(128,96),50:АJ│0еZ:X│128л50н Е(T):Y│96м50н Х(T):╗(128,96)м(X,Y),╜:T│TлM(J)-ъЕT▓(2нP)зT│Tм2нP-єЛJ:Р.╗(X,Y)м(X,Y),╛:Р.)Бж30:Бж15:╔"O5T60B":в43345:Р.Т T│A:АI│0еZ:K│126л3н80н Е(TлM(I)о2)о4:U│98м3н80н Х(TлM(I)о2)о4:Y│U:X│K:A$│ Л(49лI):Бж31:T│TлM(I):ЛI:Р0:АJ│0еZ:X│128л50н Е(T):Y│96м50н Х(T):╗(128,96)м(X,Y),╜:T│TлM(J)-ъЕT▓(2нP)зT│Tм2нP-єЛJ:Р.╗(X,Y)м  ▓&:Г*****SCOREBOARD*****'&9:Г*********BY*********'&U:Г****MIKE COONEY****'&b Т65495,0&{╚3,1:╝:┐1,0:Z│1:P1│1' ╞"BM106,115U8R4D4NL4D1C1D3R4C4NR4U4NR4U4R4R2C1D8R3C4U8R4D4L4R1F3D1R1C1R3C4NU8R1C1R3C4U8R4D8NL4R1C1R3C4U8R2F2D4G2L2":╞"C2":┬(114,122),4:╞"C4"'E(╞"C3":АE│1е10й2:╗(0лE,0лE)м(255мE,191мE),╜,B:Л:╞"C4"'k2╞"BM50,30":Бж450:╞"BM80,30":Бж450'У<╞"BM150,30":Бж450:╞"BM180,30":Бж450'чF╞"BM60,80C3U8D4R4U4D8R2C1R3C3U8R4D8NL4R2C1R2C3U8D1F2E2U1D8R2C1R2C3NR4U4NR4U4R4"(YP╞"BM154,72D6F2E2U6R2C1R3C3D8R1C1R2C3R4U4L4U4R6C1D8R3C3U8R2C1R2C3R4L2D8R1C1R4C3U8R4D8NL4R2C1R3C3U8R4D4L4R1F3D1(ЙZБж550:в44539:АC│1е700:ЛC:╞"C1BM70,130D48C4"(ЪdM│9:S│5:H│11(фn╔"V10O1T255L255":H│Hм1:ЕH┤1зH│10:S│Sм1:ЕS┤0зM│Mм1:H│10:S│5:ЕM┤0зБж620)$x╞"BM80,130":И Mл1 Бж450,460,470,480,490,500,510,520,530,540)eВ╞"BM120,130":И Sл1 Бж450,460,470,480,490,500,510,520,530,540)дМ╞"BM150,130":И H Бж450,460,470,480,490,500,510,520,530,540)мЦJ│0)╢аJ│Jл1)└кI$│ Т)╪┤ЕI$│"Q"зQ│Qл1:Бж330)Ё╛ЕI$│"W"зW│Wл1:Бж360*╚ЕI$│"O"зO│Oл1:Бж390*╥Е I$│"/"з Бж 600*5▄ЕI$│"P"зP│Pл1:Бж420*GцЕI$│"B"зБж560*YЁЕI$│"V"зБж580*k·ЕI$│"N"зБж590*ФЕI$│"E"з╞"C1BM40,30D40BM140,30D40C4"*зЕI$│" "зв44539*┐ЕI$│"T"за1,5:в44539*┘"ЕI$│"^"з╞"BM40,30D40"*Ї,ЕI$│"I"з╞"BM140,30D40"+$6ЕI$│"C"з╞"C1":╗(95,90)м(165,100),╜,BF:╞"C4"+?@ЕJ▓25зJ│0:Бе110:ДБе160+XJ╞"BM50,30":ЕQ│10зQ│0+МTИ Qл1 Бж450,460,470,480,490,500,510,520,530,540+Ч^Бе 160+░h╞"BM80,30":ЕW│10зW│0+фrИ Wл1 Бж450,460,470,480,490,500,510,520,530,540+ю|Бе160,Ж╞"BM150,30":ЕO│10зO│1,<РИ Oл1 Бж450,460,470,480,490,500,510,520,530,540,FЪБе160,`д╞"BM180,30":ЕP│10зP│0,ФоИ Pл1 Бж450,460,470,480,490,500,510,520,530,540,Ю╕Бе160,┐┬╞"R20D20C1NL19C4D20L20U40":Р,с╠╞"C1NR20D20NR20D20R20C4U40":Р- ╓╞"C1ND19C4R20D20C1ND20C4L20D20R20":Р-,р╞"C1ND40C4R20D20NL20D20L20":Р-Xъ╞"C1NR20C4D20C1D20NR20U20C4R20U20D40":Р-ВЇ╞"NR20D20C1ND19C4R20C1NU19C4D20L20":Р-ж■╞"C1R20ND20L20C4D40R20U20L20":Р-╦╞"C1D20NR20D20NR20U40C4R20D40":Р-ш╞"R20D20NL20D20L20U40":Р.╞"D20C1D20NR20U20C4R20U20NL20D40":Р.Е&╞"C4":┬(110,140),4:┬(110,160),4:╞"BM70,130D40R1C1R9C4NR20U40R20D40R1C1R19C4NR20U40R20D40R1C1R9C4NR20U40R20D40":Р.Є0╞"BM108,90C3D8R3E1U2H1NL3E1U2H1NL2R2C1R3C3D8R4U8NL4R2C1R3C3ND8D1F4ND3U5R2C1R2C3D8R4U8R2C1R2C3NR4D4R4D4L4.°:Р/D╞"C3BM100,90G4F4":Р/(N╞"C3BM153,90F4G4":Р/`XP1│P1л1:ЕP1│5з╞"C1":╗(100,118)м(150,128),╜,BF:P1│1 /Уb╞"C2":АRQ│1еP1:┬(106л(RQн8),122),4:ЛRQ:╞"C4":Р/▒l╔"V31O1T1L1C":в44539:Бе90D8R4U8NL4R2C1R3C3ND8D1F4ND3U5R2C1R2C3D8R4U8R2C1R2C3NR4D4R4D4L4.°:Р/D╞"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 E& :Г A*B*C&&:Г BY ANN B. MAYEUX&::Г KEY WEST, FL&╞(Т &HF8,&H32:Т &HF9,&H62:Т &HFA,&H1C: Т &HFB,&HAF:Т &HFC,&H7E:Т &HFD,&HAD:Т &HFE,&HA5:Т &H19A,&H39:Т &H19B,&H0:Т &H19C,&HF8:Т &H19A,&H7E&╓2А K│1 е 2:Л'<Ю:З@204,"A*B*C":З@328,"BY ANN B.MAYEUX":З@358,"FOR DAVID AND LANDRY"'ГF╔"L6CCGGAAL3GL6FFEEL12DDDDL3CL6GGL3FL6EEL3DL12GGGL3FL6EEL3DL6CCGGAAL3GL6FFEEDDL2C":АT│1е999:Л:Ю(PAL$│"U6E3F3D2NL6D4BR5":B$│"U9R3F2G2L3R4F2G3L3BR11":C$│"U9R6BD9L6BR11":D$│"U9R4F2D5G2L4BR11":E$│"U9R6BD4L6D5R6BR5":F$│"U9R6BD5L6D4BR11"(ПZG$│"U9R6BD4NL2D5L6BR11":H$│"U9D4R6U4D9BR5":I$│"NU9BR6":J$│"NU2R6NU9BR5":K$│"U9BR6G6E3F3D3BR5":L$│"NU9R6BR5":M$│"U9F4E4D9BR5")dN$│"U9D2F6DNU9BR5":O$│"U9R6D9L6BR11":P$│"U9R6D5L6D4BR11":Q$│"U9R6D9NF3L6BR11":R$│"U9R6D4L6R3F3D2BR5":S$│"R6U5L5U4R5BD9BR5")йnT$│"BR3U9L3R6BD9BR5":U$│"NU9R6NU9BR5":V$│"BU9D6F3E3U6BD9BR5":W$│"NU9E4F4NU9BR5":X$│"M+6,-9BL6M+6,9BR5":Y$│"BR3U4H3U2BR6D2G3D4BR8":Z$│"BU9R6D2G6DR6BR5"*lxЮ:З@100,"WE HAVE A PICTURE FOR EACH LETTER OF THE ALPHABET;JUST TYPETHE LETTER YOU WANT TO SEE.":З" AFTER THE PICTURE IS COMPLETEYOU CAN SEE ANOTHER PICTURE BY TYPING IN ANOTHER LETTER."*{В╚3,1:A$│ Т*ЛМЕA$│"A"з410*ЫЦЕA$│"B"з510*лаЕA$│"C"з590*╗кЕA$│"D"з680*╦┤ЕA$│"E"з750*█╛ЕA$│"F"з820*ы╚ЕA$│"G"з900*№╥ЕA$│"H"з1020+ ▄ЕA$│"I"з1100+цЕA$│"J"з1130+/ЁЕA$│"K"з1220+@·ЕA$│"L"з1340+QЕA$│"M"з1410+bЕA$│"N"з1490+sЕA$│"O"з1560+Д"ЕA$│"P"з1680+Х,ЕA$│"Q"з1780+ж6ЕA$│"R"з1890+╖@ЕA$│"S"з2020+╚JЕA$│"T"з2100+┘TЕA$│"U"з2190+ъ^ЕA$│"V"з2250+√hЕA$│"W"з2360, rЕA$│"X"з2440,|ЕA$│"Y"з2490,.ЖЕA$│"Z"з2550,8РБе130,KЪ╝2:┐1,0:╔"L6C",Тд╞"C3BM0,70R255C2":├(100,30),3,3:╞"BM10,50M30,20M50,50BM20,35R20C4",ыо┬(150,30),50,2,.25,.3,.05:╞"C2BM150,30L20F20R20H20F10R30H8R10F10L10H10BU8E12R4D15C4"-<╕АH│120е170й10:╜(H,27,2):ЛH:┬(60,145),45,,.85,.25,.72:┬(72,157),35,,.8,.3,.65-г┬╞"C2BM120,65XAL$;XI$;XR$;XP$;XL$;XAL$;XN$;XE$;C4":┬(65,138),13,,1.3,.2,.05:╞"BM75,141R5G4F6L5D6H6". ╠╞"BM78,138R45E10G10F15G5R5F5E5R5H20E5G5R65E3U9H3G3L7H3G3L14H3G3U5E6R3U3E6R3U3E6R3U3E6R3U5H10L3D5G25".j╓┬(150,105),10,,1.2,.3,0:┬(150,105),5,4:╗(140,105)м(53,110),╜:├(100,115),1,4:├(65,138),1,4.ар╞"BM70,180XAL$;XL$;XL$;XI$;XG$;XAL$;XT$;XO$;XR$;".шъ┬(215,110),10,,1.7:├(215,110),4,4:┬(228,110),10,,1.7:├(232,110),4,4/=Ї╞"BM210,85F15U15E10D10G10":├(230,87),1,4:╞"BM200,150XAL$;XP$;XP$;XL$;XE$;":Бе130/O■╝:┐1,0:╔"L6C"/У╞"C3BM0,100R255":├(100,30),3,3:┬(190,170),90,,.6:├(240,180),3,30 ╞"C1BM200,10D40R20E5U10H5L20R17E5U10H5L17C2BM140,140R90D15G5L65H20R50U74R2D74C4BM185,70M140,135R45U65":├(150,130),4,40I├(180,145),2,2:╞"BM199,68M230,135L31U67":├(220,130),4,40┴&╞"BM5,31M26,41R4H6U10F5H6U10F5H6U10F29D8G4E2R4E2U3E4R5F4D2R4GL3D2R3FL4D2G2L3G9L2GL13HL6M5,31":├(40,36),2,4:╜(64,39)130┬(50,100),15,2:├(50,100),2,2:╞"BM48,114G4F4U8F2D10F5D7G8":┬(75,75),13:├(75,75),4,4:╞"BM73,85G4F4U8F2D15G5D10"1q:┬(115,45),16,1:├(115,45),1,1:╞"BM113,60G4F4U8F2D10F5D7G8"1сD╞"C2BM25,72XB$;XI$;XR$;XD$;BM170,180XB$;XO$;XAL$;XT$;C4":╞"BM15,160XB$;XAL$;XL$;XL$;XO$;XO$;XN$;XS$;":Бе1301єN╝:┐1,1:╔"L6G"2@X┬(70,35),30,6,.77,.07,.7:┬(115,32),27,6,.9,.65,.4:┬(80,20),20,6,.9,.47,02bb╞"BM0,10XC$;XL$;XO$;XU$;XD$;"2╫l╞"C6BM0,99R255C5":├(100,100),6,6:┬(40,160),25,,1,.1,.9:┬(40,160),17,,1,.1,.9:╞"BM59,145G7BD16F7C8":├(19,160),5,53Zv╞"C7BM70,90R25E20R25F20R25D25L115U25C8":├(100,90),7,7:╗(115,72)м(97,90),╜:╗м(97,113),╜:╗м(130,113),╜:╗м(130,72),╜:╗м(115,72),╜3ЭА╞"BM97,90R33BM133,72R5M158,90L25U18C5BM110,143XC$;XAL$;XR$;C8"3╪К├(112,80),5,8:├(138,80),5,8:┬(85,115),10:┬(165,115),104<Ф┬(180,150),15:├(180,160),5,8:┬(195,165),25,,.9,.72,.55:┬(193,165),15,,1,.15,.45::├(195,165),5,84гЮ╞"BM170,168R10BM175,148R2BF4D2G2E2F2BR2BU8R2BM169,140U5F4BR14E4D5C5BM210,190XC$;XAL$;XT$;C8":Бе1304╡и╝:┐1,1:╔"L6G"5 ▓╗(48,17)м(55,63),╜,BF:┬(55,40),28,,.9,.75,.25:┬(55,40),20,,.9,.75,.25:├(80,40),8,85N╝╞"C6BM150,10R90D130L90U130BF10ND120R70D120L130C8":┬(170,70),55╔╞┬(75,140),25,,1,.4,.1:┬(75,107),19,,.9:╞"BM58,104H2L2G4D17F2R4E2U17BR33E2R2F4D17G2L4H2U17":├(54,117),8,8:├(95,117),8,86 ╨┬(75,115),8:┬(75,110),3,,.9:┬(68,105),3,6,1.2:┬(82,105),3,6,1.26e┌┬(65,156),11:┬(85,156),11:╞"BM50,145M35,150R15":┬(75,170),16,6,.6:┬(75,170),12,6,.66╕ф╞"BM58,191XD$;XI$;XS$;XH$;BM15,135XD$;XO$;XG$;BM176,130XD$;XO$;XO$;XR$;":Бе1306╩ю╝:┐1,1:╔"L6A"7°╞"BM0,90E75D166BM5,70U10E10BD5G10D5E10BE7M+9,-20BG9M+9,4BE10U10BE8E10G5D10"7|╗(200,5)м(215,60),╜,BF:╗(215,5)м(245,20),╜,BF:╗(215,60)м(245,45),╜,BF:╗(215,25)м(240,40),╜,BF7▄ ┬(90,110),30,6,1,.1,.9:┬(115,102),23,6,1.3,.6,.1:┬(150,130),50,6,.8,.6,.5:├(100,110),6,6::Г8)┬(115,102),23,7,1.3,.6,.2:┬(45,110),20,6,1,0,.4:┬(45,110),30,6,1,0,.4::Г8В ╞"C6BM30,120G8":├(40,130),6,6:╗(105,140)м(140,180),╜,BF:╗(195,140)м(160,180),╜,BF::Г8■*╞"BM196,120F10R5G2H5C8BM55,128R20D5L15H5":┬(75,110),4:╞"BM100,191XE$;XL$;XE$;XP$;XH$;XAL$;XN$;XT$;":├(60,130),5,8:Бе13094╝2:┐1,0:╔"L6A"9Н>╞"BM120,5R40D15L25D5R20D15L20D10L15U45":├(125,9),4,4:┬(190,170),99,3,.3:├(200,170),3,3:╞"C2BM140,165XF$;XR$;XO$;XG$;C4"9■H╞"BM120,90G15R100H15F15G15L70H15E15H30L25D25F40G10R10F10E10R10H10U5BM190,90E30R25D25G40F10L10G10H10L10E10U5":aR┬(135,90),15,,1.5,.5,0:┬(175,90),15,,1.5,.5,0:┬(175,85),6,,1.5:┬(135,85),6,,1.5:╞"BM147,90R15":Я\├(195,90),1,4:├(115,90),1,4:├(135,100),1,4:├(135,115),1,4:Ўf╞"BM20,150C1U120G12D60F12U35E40BD55G25D50U20E20D9G20C4":├(15,50),1,1:├(40,150),1,1;1p┬(55,30),5:┬(47,36),5:┬(63,36),5:┬(51,43),5:┬(58,44),5;гz┬(48,100),9,,.7:┬(66,100),9,,.7:┬(57,93),6,,1.3:┬(57,107),6,,1.3:╞"BM5,185XF$;XL$;XO$;XW$;XE$;XR$;XS$;":Бе130;╡Д╝:┐1,1:╔"L3G";шО┬(100,20),20,7,1,.1,.9:╞"C7BM112,25R10L5D15C8"@╘┬(157,25),18,,.6::╞"BM159,5D10H6D6R15U6G6U10":┬(157,3),4:┬(165,3),4:├(157,25),8,8>ж▐┬(152,22),3,6:╞"BM174,25D60F50D10H5U10H20D80L5U60H3D63L5U63H12D75L5U80H4D83L5U167":├(173,100),8,8?6ш╞"BM255,125L120D10R120BD30L120D10R120":╞"BM0,50XG$;XR$;XAL$;XP$;XE$;XS$;BM183,75XG$;XI$;XR$;XAL$;XF$;XF$;XE$;":╞"BM60,191XG$;XAL$;XT$;XE$;"?@ЄБе130?R№╝:┐1,1:╔"L6F"?д╗(200,120)м(190,180),╜,BF:╗(200,145)м(235,155),╜,BF:╗(235,120)м(245,180),╜,BF@┬(170,50),25:┬(162,45),13:├(190,50),7,8:╗(180,35)м(235,30),╜:╗м(185,65),╜:├(208,40),7,8@Ж┬(150,22),20,,.3:┬(190,22),20,,.3:┬(225,30),10,,.3:┬(245,30),10,,.3:┬(235,20),5,,2.5:┬(235,40),5,,2.5:├(150,22),8,8:├(190,22),8,8@Є$╗(10,80)м(100,180),╜,B:╗(43,179)м(67,140),╜,B:╗(20,165)м(35,145),╜,B:╗(75,165)м(90,145),╜,B:┬(49,160),3A.АH│20е75й27:╗(H,90)м(Hл15,110),╜,B:ЛHAв8╞"C6BM10,80E45F45BD50L90E15R60F15C8":├(50,117),6,6:╞"BM130,90XH$;XE$;XL$;XI$;XC$;XO$;XP$;XT$;XE$;XR$;BM30,25XH$;XO$;XU$;XS$;XE$;"AмBБе130A∙L╝6:┐1,1:╔"L6F":╞"BM175,40R25D15L5D81R5D15L25U15R5U81L5U15":├(185,50),8,8B[V┬(75,65),30,5,1,.4,.1:╞"C5BM46,75R56C8":├(75,65),5,5:╞"BM46,75R56M75,150M46,75":├(75,130),8,8BЪ`╞"C5BM30,175XI$;XC$;XE$;BR10XC$;XR$;XE$;XAL$;XM$;C8":Бе130Bнj╝3:┐1,0:╔"L6E"Bсt╞"BM120,185R65U65L65D65H25U65F25H25H35R64G32C1"C ~╞"BM150,30M185,119L63H26E41F11E10C4"CoИ┬(148,30),25,,1,.95,.55:┬(148,30),25,,1,.6,.9:┬(148,20),35,,.2,.8,.7:├(150,10),4,4:├(150,40),2,4CмТ├(140,130),2,4:├(116,150),2,4:├(85,70),2,4:├(148,80),1,1CюЬ┬(140,33),3,3:┬(156,33),3,3:┬(148,38),3:┬(148,39),7,,1,.1,.45Dж┬(146,160),10,,1,0,.5:╞"BM156,160U20"DQ░АH│0е44й16:АV│(142мH)е(142лH)й15:┬(V,68лH),3,2:ЛV:ЛHD│║╞"C2BM15,90XJ$;XAL$;XC$;XK$;BM26,105XI$;XN$;BM20,120XT$;XH$;XE$;BM20,135XB$;XO$;XX$;C4":Бе130D┼─╝:┐1,1:╔"L6E"E╬╞"C6BM99,135D30U10M124,135BD30M109,150BM40,5M15,30M40,70M65,30M40,5C8":├(40,30),6,6EВ╪╞"BM40,70D6R3D3H3D4G2D3F5R3U3G4D5":┬(40,100),11,,.6:├(40,100),8,8:┬(40,100),7,5,.6:├(40,100),5,5E╢т╗(40,105)м(42,125),╜,BF:╗(41,118)м(50,121),╜,BFEўь┬(180,160),30,,1,.1,.8:┬(146,182),23,,.3,0,.9:├(146,182),8,8FJЎ╗(160,140)м(175,70),╜:╗м(215,160),╜:╗м(255,178),╜:╗м(188,183),╜:├(175,100),8,8FП┬(164,73),18,,.6:╗(170,62)м(176,55),╜:╗м(179,75),╜:├(165,70),8,8F▄ ┬(156,119),10,,.5:╞"BM167,125L12D6F5R4U12":├(156,119),8,8:├(156,129),8,8GГ┬(164,107),9,,.6:├(164,107),8,8:╜(155,117,6):┬(159,70),2,6:╞"BM50,50M164,107BM60,10XK$;XI$;XT$;XE$;BM170,50XK$;XAL$;XN$;XG$;XAL$;XR$;XO$;XO$;BM25,147XK$;XE$;XY$;"Gв╜(155,117,6):┬(159,70),2,6G╗(╗(50,50)м(164,107),╜G┼2Бе130G┘<╝3:┐1,0:╔"L12D"H F╗(170,10)м(185,90),╜,BF:╗(185,90)м(230,75),╜,BFHaPLF$│"R60L40E13R40F13G13L40H13":MF$│"R50L25U10E30D25E20D20F15G15D20H20D25H30U10"HиZ╞"S6C2BM50,170XLF$;S4BM160,140XMF$;C4A1BM60,2XMF$;A0BM10,130XLF$;"I d┬(140,110),20,,.8:┬(140,103),6:┬(140,117),6:├(140,110),4,4:┬(122,110),10:╞"C3BM124,110R40C4"IFn├(110,175),1,2:├(210,145),1,2:├(55,52),1,4:├(50,135),2,4Iбx╞"C3BM97,184XL$;XE$;XAL$;XV$;XE$;XS$;C2BM101,137XL$;XAL$;XD$;XY$;XB$;XU$;XG$;C4":Бе130I┤В╝:┐1,1:╔"L12D"J_М╞"C6BM0,90E50F20G10H10G10H10BR40F60H20E60F15L5H5G10H5L5BR30F30G30E55F15":┬(80,140),12,,1,.5,0:╞"BM93,140D20F10H10L24F8H8U20D20H10U18E8R11F6C8":┬(92,168),14,6,.6,.1,.5JТЦ┬(82,25),22,6,1,.2,.8:┬(105,24),30,6,1,.38,.62J▓а├(100,110),7,6:├(100,0),6,6J┌к╞"BM73,165D26R8U18H8":├(75,180),8,8K┤╞"BM160,160U40F20E20D40L10U20G10H10D20L10":├(165,155),8,8KФ╛╞"C5BM90,25XM$;XO$;XO$;XN$;":╞"BM5,100XM$;XO$;XU$;XN$;XT$;XAL$;XI$;XN$;XS$;":╞"BM95,190XM$;XAL$;XI$;XL$;XB$;XO$;XX$;C8"KЮ╚Бе130K▒╥╝:┐1,1:╔"L12D"K╒▄┬(160,88),35,,.37:├(160,88),7,8L3цАH│55е170й5:╗(H,60)м(Hл95,140),╜:╗(Hл95,60)м(H,140),╜:ЛH:┬(160,100),50,7,.7:├(160,65),6,7L`Ё┬(160,88),35,6,.37:╞"C5BM10,60U50F50U50"LК·АT│1е30:H│ Д(180):V│ Д(160):╜(H,V):ЛTL▌╞"C7BM235,191U45L150H25R65BR60R50U60H65R20F15U25R10D20F30E15C8":├(250,100),8,7M$╞"C5BM185,140XN$;XE$;XS$;XT$;BM120,30XN$;XI$;XG$;XH$;XT$;C8":Бе130M7╝:┐1,1:╔"L12D"Mc"┬(210,30),25:┬(210,30),10:├(210,10),8,8Mз,╞"BM0,175R25H10U80E15R50H10L45G10U45E20L9G20D40H7":├(1,100),7,8NF6┬(50,50),20,,.8,.9,.7:┬(50,28),17,,.8:┬(44,28),8,,1.1:┬(56,28),8,,1.1:┬(65,48),10,,1.2,.3,.7:┬(35,48),10,,1.2,.9,.3:┬(45,28),4,6:┬(56,28),4,6:┬(50,36),3,7Ni@├(50,62),5,8:╞"C5BM40,60R20C8"NгJ╞"BM77,40XO$;XW$;XL$;BM12,90R70F80R100":├(60,160),8,8OjT┬(135,110),33,6,.7,.6,.8::┬(145,95),10,6,.8,0,.8:┬(175,95),20,6,.6,.5,.9:┬(192,95),10,6,.8,0,.8:┬(220,95),20,6,.6,.5,.9:┬(230,95),9,6,1,.2,.8:╞"C6BM235,100R5E10R5D95L74H87R15E6C8":├(200,130),6,6OФ^╞"BM125,115C5XO$;XC$;XE$;XAL$;XN$;C8"Ph╗(220,150)м(255,155),╜:╗м(225,160),╜:╗м(255,175),╜:╗м(225,167),╜:╗м(245,185),╜:╗м(220,170),╜:╗м(220,185),╜:╗м(210,165),╜PЕr╗м(200,185),╜:╗м(200,170),╜:╗м(175,185),╜:╗м(195,167),╜:╗м(165,175),╜:╗м(195,160),╜:╗м(165,155),╜:╗м(200,150),╜Pь|┬(210,135),22,,1.2,.3,.2:┬(204,140),5,,1.2:┬(216,140),5,,1.2:╞"BM207,145R6D3G3H3U3":├(210,135),8,8Q#Ж╞"C5BM170,190XO$;XC$;XT$;XO$;XP$;XU$;XS$;C8":Бе130Q5Р╝:┐1,1:╔"L3C"QпЪ╞"BM1,1R94D80L94U80BF9R75D60L75U60BM10,98XP$;XI$;XC$;XT$;XU$;XR$;XE$;BM105,30XP$;XU$;XM$;XP$;XK$;XI$;XN$;":├(4,4),6,8Qєд┬(45,47),27,,.8:├(50,50),8,8:┬(45,47),9,7,2.4:┬(45,47),18,7,1.2R о╞"C6BM42,37U11E10D5G5D11L5":├(45,33),6,6RV╕╗(100,191)м(70,130),╜:╗м(205,125),╜:╗м(255,191),╜RЩ┬╞"BM155,165L10M162,191L22M110,140R20":┬(140,155),23,,.8,.7,.15R▄╠┬(135,154),10,,1,.74,.15:╗(134,145)м(142,160),╜:├(130,150),6,6S╓╞"C8BM170,150E5R75D10L8U10D10L10U10D10L58H4L3U1R3E5D4F2G2D1"SNр├(245,150),7,8:├(235,150),6,8:├(190,150),8,8SЪъ╞"BM43,190XP$;XAL$;XP$;XE$;XR$;BM185,140XP$;XE$;XN$;XC$;XI$;XL$;":Бе130SмЇ╝:┐1,1:╔"L6G"S¤■╞"BM134,37R10F22L10H22":├(142,43),8,8:┬(135,30),30:┬(135,30),20:├(135,5),8,8T<╞"BM25,35XQ$;XU$;XI$;XL$;XT$;BM195,10XQ$;XU$;XE$;XE$;XN$;"TШ╗(5,50)м(100,160),╜,B:АH│15е95й15:╗(H,60)м(H,150),╜:ЛH:АV│60е155й15:╗(15,V)м(90,V),╜:ЛVTЁАH│20е90й30:АV│65е145й30:├(H,V),6,8:ЛV:ЛH:АH│35е75й30:АV│80е160й30:├(H,V),7,8:ЛV:ЛHUf&┬(220,50),20:┬(220,60),30,,.9:├(220,85),8,8:┬(220,90),30,7,.8,.5,0:╞"C7BM190,90D80R20U100BR20D95L20R20D5R20U80C8"UХ0├(205,87),7,7:├(235,87),7,7:├(220,140),8,7U╘:╞"BM207,35R26U15G5H4G4H4G4H5D15":АH│209е233й5:┬(H,28),3:ЛHVD┬(212,50),3,6:┬(228,50),3,6:╜(220,55):┬(220,60),5,7,.3V6N╞"C5BM210,100R20L10D30H10F10E10C8"V@XБе130VSb╝3:┐1,0:╔"L6G"Vol╗(0,130)м(255,191),╛,BFVцv╗(93,50)м(99,10),╜,BF:╗(99,10)м(110,16),╜,BF:╗(99,28)м(110,34),╜,BF:┬(110,22),9,,1,.75,.25:┬(110,22),14,,1,.75,.25W5А╗(115,32)м(125,50),╜:╗м(118,50),╜:╗м(109,34),╜:├(120,47),4,4:├(121,22),4,4W╖К╗(38,110)м(52,40),╜,BF:╗(52,40)м(45,5),╜:╗м(38,40),╜:├(45,20),4,4:╞"BM38,95G15R17D5R10U5R17H15C2":├(36,102),2,4:├(54,102),2,4WчФАH│42е48й3:V│ Д(30):╗(H,114)м(H,115лV),╜:ЛHXЮ╞"BM41,95R8U6L8BU8U6D6R4U6R4D6BU14L8U6R8L4D6C4"XVиАC│90е150й15:┬(255,160),C,,1,.5,.75:ЛC:╞"BM104,160R62"XФ▓├(106,155),4,4:├(251,29),2,4:├(252,45),1,4:├(160,155),3,4Xє╝┬(210,135),16,2,1,.9,.6:┬(210,165),25,2,.9,.8,.7:╞"C2BM199,128U20E4F4D16R6U8E8R7D5G7D10C4"YJ╞├(210,135),2,2:├(210,165),2,2:┬(205,135),3:┬(215,135),3:╞"BM210,140F2L4E2D4G2E2F2"Yh╨┬(200,180),6:┬(220,180),6Yх┌╞"C3BM10,155XR$;XO$;XC$;XK$;XE$;XT$;C2BM165,11XR$;XAL$;XI$;XN$;XB$;XO$;XW$;C3BM130,185XR$;XAL$;XB$;XB$;XI$;XT$;C4":Бе130Y°ф╝3:┐1,0:╔"L3F"Z;ю╗(0,105)м(255,191),╛,BF:╞"C2BM255,110L255BD30R100G51BR80E51R75ZШ°╞"BM40,40NU40ND40NR40NL40NE30NF30NG30NH30BM80,32XS$;XU$;XN$;C4":┬(40,40),25:├(40,40),2,4[╞"BM200,50R20F20D20G20L20H20U20E20C2BM195,45XS$;XI$;XG$;XN$;":├(210,80),4,4:╞"BM190,86XS$;XT$;XO$;XP$;":╗(207,112)м(213,181),╜,BF[] ╞"C4BM95,134F10BE40F16D4U4R4BM80,190XS$;XN$;XAL$;XK$;XE$;"[ш┬(120,110),29,,.9,.3,.9:┬(120,110),17,,1,.3,.9:┬(120,148),29,,.9,.7,.6:┬(120,145),17,,.9,.7,.5:┬(143,102),12,,1.1,.7,.6:├(145,110),4,4\  ┬(146,100),2,1:┬(140,104),2,1\7*╞"BM5,130XS$;XT$;XR$;XE$;XE$;XT$;":Бе130\I4╝:┐1,0:╔"L6E"\n>╞"BM0,123C3R255C4":├(100,20),3,3\щH╗(80,85)м(170,155),╜,BF:╞"C2BM177,100R35D20R30D35L65U55":╗(180,105)м(210,120),╜,B:╞"BM130,190C3XT$;XR$;XU$;XC$;XK$;C2"]AR├(190,135),2,2:├(230,145),2,2:╞"BM120,135U20L10U10R30D10L10D20L10C4":├(125,125),2,2]}\┬(100,155),15:┬(150,155),15:┬(226,155),15:┬(197,155),15]фf╞"BM0,40F25D70G20L5D3R20E5F10E10F8R20H10L5H8U65E30U40L7D30G25U55L12D50H15U35L7D30H20":├(30,70),4,4^.pАH│7е99й12:┬(H,10),13,2:├(Hл2,10),1,2:┬(Hл3,35),13,2:├(Hл5,35),1,2:ЛH^\zАH│18е80й12:┬(H,59),12,2:├(Hл2,52),1,2:ЛH^ЖД╞"C3BM15,190XT$;XR$;XE$;XE$;C4":Бе130^ЩО╝3:┐1,0:╔"L6E"^¤Ш┬(40,150),20,2,1,0,.5:┬(40,150),10,2,1,0,.5:╞"C2BM22,150U30R10D30BR17U30R10D30C4":├(40,165),2,2_в┬(125,90),85,1,.9,.5,0_Жм╗(124,82)м(128,170),╜,BF:┬(114,170),18,,1,0,.5:┬(114,170),10,,1,0,.5:╗(94,170)м(104,170),╜:├(114,183),4,4_╜╢АH│60е210й42:┬(H,90),22,1,.6,.5,0:ЛH:├(100,60),1,1`└╗(124,10)м(128,17),╜,BF:╞"C2BM150,130XU$;XM$;XB$;XR$;XE$;XL$;XL$;XAL$;C4":Бе130`#╩╝:┐1,1:╔"L3D"`}╘╗(170,10)м(200,50),╜:╗м(230,10),╜:╗м(215,10),╜:╗м(200,35),╜:╗м(185,10),╜:╗м(170,10),╜`ў▐┬(60,141),25,,.75,.92,.56:┬(60,103),25,,.75,.46,.06:┬(36,121),10,,1.6,.75,.25:┬(84,121),10,,1.6,.25,.75:├(60,141),8,8awш╞"C7BM53,131G2D5G3BR26H3U5H3":╗(60,145)м(56,135),╜:╗м(64,135),╜:╗м(60,145),╜:╗(55,130)м(65,131),╜,BF:┬(45,150),8,,.9,.65,.1a┌Є╞"BM65,25H3L6G3D3F3E4H3R2D2":╗(55,120)м(66,90),╜,BF:╗(57,90)м(64,25),╜,BF:╗(53,44)м(68,46),╜,Bb'№╞"C5BM58,37D100BR4U100C6":╗(5,124)м(135,127),╜,B:╗(3,127)м(138,132),╜,BFbm ┬(200,160),25,8,.8,.8,.7:╞"C8BM190,150U7H6R32G6D7":├(200,160),8,8b║ ╞"C6BM197,137L20H10U10R10F15U3H7U5E9R5F9D7E8R9F10D2G9L30":├(200,135),6,6c5 АH│178е233й15:┬(H,132),6,7,.4:├(H,132),7,7:ЛH:╞"C7BM186,134G4D3F4E4U3H4BR30G4D3F4E4U3H4":├(186,136),7,7:├(216,136),7,7c╞ $╞"BM180,132U8E2F3D6R4U6E3F2D9BR16U8E2F3D8R4U8E3F2D8C8":├(182,128),7,7:├(192,128),7,7:├(213,128),7,7:├(223,128),7,7:╜(186,131,5):╜(216,131,5)d1 .╞"BM0,57XV$;XI$;XO$;XL$;XI$;XN$;BM180,190XV$;XAL$;XS$;XE$;BM168,100XV$;XI$;XO$;XL$;XE$;XT$;XS$;":Бе130dG 8╝2:┐1,0:╔"L12GGG"dЗ B╗(185,40)м(195,90),╜:╗м(215,60),╜:╗м(235,90),╜:╗м(245,40),╜dы L╗(20,20)м(180,25),╜,BF:╗(30,25)м(35,120),╜,BF:╗(170,25)м(165,120),╜,BF:╗(20,120)м(180,130),╜,BFeI V╗(40,30)м(97,70),╜,B:╗(103,30)м(160,70),╜,B:╗(40,75)м(97,115),╜,B:╗(103,75)м(160,115),╜,BeЕ `├(50,40),3,4:├(50,100),3,4:├(130,40),3,4:├(130,100),3,4eё j┬(75,140),40,1,.7:├(75,140),1,1:┬(145,150),40,1,.7,0,.5:┬(145,150),38,1,.7,0,.5:┬(145,150),32,4,.7,0,.5f] t╗(113,150)м(178,150),╜:├(145,155),4,4:АH│120е174й12:┬(H,156),2,3,.5:ЛH:АH│130е155й11:┬(H,165),2,3,.5:ЛHf╗ ~╞"BM45,190XW$;XAL$;XT$;XE$;XR$;XM$;XE$;XL$;XO$;XN$;BM65,15XW$;XI$;XN$;XD$;XO$;XW$;":Бе130f╬ И╝2:┐1,0:╔"L3F"g Т╗(20,65)м(220,70),╜,BF:╗(20,100)м(220,105),╜,BF:╞"C3BM5,5F40BU40G40"gW ЬАG│5е45й6:╗(5нG,65мG)м(5нGл17,Gл105),╜,B:├(5нGл3,65),1,3:ЛGg┐ ж╗(20,180)м(90,170),╜:╗(30,140)м(99,140),╜:┬(20,180),10,1:├(20,180),1,1:┬(30,140),10,1:├(30,140),1,1g  ░┴4,1:╞"BM120,175XX$;XY$;XL$;XO$;XP$;XH$;XO$;XN$;XE$;":Бе130h ║╝2:┐1,0:╔"L6EE"hP ─АC│50е160й6:┬(125,0),C,1:ЛC:┬(120,105),55,3:├(100,7),2,3hr ╬АC│55е110й6:┬(120,105),C,1:ЛCh╝ ╪┬(70,105),30,3:┬(170,105),30,3:┬(134,70),37,3,1,.2,.05:├(125,120),3,3hц т╗(88,83)м(155,127),╜,B:├(120,110),2,4iA ь╞"BM110,95F10D10U10E10C2BM60,150XY$;XE$;XL$;XL$;XO$;XW$;BR15XY$;XAL$;XR$;XN$;C4":Бе130iS Ў╝:┐1,1:╔"L3D"i┐ ╞"BM50,30E2F2G2H2D10G4D40G40D5E5U5E10D50R3U38D3D36R3U39E16D55R3U58R4D58R3U110R10E2U3H5L10R5U10G2F2E2H2"i╬ ╜(56,43,7)jI ╞"C7BM175,80G15D3F4R3E6F6E6G6F10D30R5U23R25F9D14R5U32H4R6F4D4H8L2H4L5D9U9L9D7U7L7D8U8L4H6G6E6H6G7E7H4G6E6H4L5U6F3G3C6"j{ ╗(140,70)м(250,150),╜,B:╗(0,90)м(100,165),╜,Bj├ (АH│140е250й15:╗(H,70)м(H,150),╜:ЛH:АH│0е100й15:╗(H,90)м(H,165),╜:ЛHk 2╞"C8BM130,1R30G30R30BM180,60XZ$;XE$;XB$;XR$;XAL$;BM120,190XZ$;XO$;XO$;":Бе130D9U9L9D7U7L7D8U8L4H6G6E6H6G7E7H4G6E6H4L5U6F3G3C6"j{ ╗(140,70)м(250,150),╜,B:╗(0,90)м(100,165),╜,Bj├ (АH│140е250й15:╗(H,70)м(H,150),╜:ЛH:АH│0е100й15:╗(H,90)м(H,165),╜:ЛHk 2╞"C8BM130,1R30G30R30BM180,60XZ$;XE$;XB$;XR$;XAL$;BM120,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )&ZВ (C) BRIAN LE BLANC&0_В JANUARY 24 1987&6dЮ&GnЗ #м2, Л(30)&_xЗ #м2, Л(27); Л(22)&rВМ A$(137):т 40&~МБж 1070&йЦЗ"THIS PROGRAM WILL MAKE PRINTOUTS OF"&╔аЗ"PAGES ONE AND TWO OF THE"&фкЗ"FAMILY TREE PROGRAM"'┤З"----------------------------------"'2╛З "HOW MANY COPIES OF PAGE ONE"'<╚╗Й Q$'O╥║ PGONE│ Й(Q$)'r▄З"HOW MANY COPIES OF PAGE TWO"'|ц╗Й Q$'жЁЗ"----------------------------------"'╡·TWO│ Й(Q$)'╛J│95'шё 1,10:З "ENSURE TOP OF PRINTER PAGE"( ё 1,12:З " IS FLUSH WITH ROLLER"(>"ё 1,14:З "PRESS (P) TO PRINT,OR (Q) TO QUIT"(W,Q$│ Т :Е Q$│"" з 300(k6Е Q$│"Q" з 1050(@Е Q$┤▓"P" з 300(жJА I│1 е 47:З #м2, Л(27); Л(54):Л I(║TЕ PGONE│0 з 710(╠^А X│1 е PGONE(ыhЗ #м2, Л(15); Л(27); Л(14))rЗ #м2, Л(27); Л(21))"|З #м2, Л(27); Л(90); Л(12))IЖЗ #м2,"FAMILY HISTORY INFORMATION")hРЗ #м2, Л(27); Л(90); Л(12))ЗЪЗ #м2, Л(27); Л(15); Л(14))ЦдА I│1 е 16)╛оЗ #м2,д6);A$(I); Л(28); Л(50); Л(J))▌╕З #м2, Л(27); Л(90); Л(12))х┬Л I*╠З #м2, Л(27); Л(90); Л(12)*#╓З #м2, Л(15); Л(27); Л(14)*?рЗ #м2,"PERSONNAL NOTES"*^ъЗ #м2, Л(27); Л(90); Л(12)*}ЇЗ #м2, Л(27); Л(15); Л(14)*Н■А I│17 е 35*╡З #м2,д6);A$(I); Л(28); Л(50); Л(J)*╘З #м2, Л(27); Л(90); Л(12)*▄Л I*√&З #м2, Л(27); Л(90); Л(12)+0З #м2, Л(15); Л(27); Л(14)+E:З #м2,"PERSONAL FAMILY,FIRST MARRIAGE"+dDЗ #м2, Л(27); Л(90); Л(12)+ГNЗ #м2, Л(14); Л(27); Л(15)+УXА I│36 е 58+пbЕ I│41 ▒ I│50 з FLAG│1 +╔lЕ I▓41 з H│60 :Д H│50+№vЕ FLAG┤▓1 з З #м2,д6);A$(I); Л(28); Л(H); Л(J),АЕ FLAG│1 з З #м2,д6);A$(I),&КFLAG│0,EФЗ #м2, Л(27); Л(90); Л(12),MЮЛ I,eиЗ #м2, Л(27); Л(22),u▓В LINE FEED,}╝Л X,Н╞Е TWO│0 з К,Э╨А X│1 е TWO,╡┌З #м2, Л(27); Л(21),╘фЗ #м2, Л(27); Л(90); Л(36),єюЗ #м2, Л(15); Л(27); Л(14)- °З #м2,"PERSONAL FAMILY, SECOND MARRIAGE"-?З #м2, Л(27); Л(90); Л(12)-^ З #м2, Л(14); Л(27); Л(15)-nА I│59 е 81-Й Е I│64 ▒ I│73 з FLAG│1-г*Е I▓64 з H│60 :Д H│50-╓4Е FLAG┤▓1 з З #м2,д6);A$(I); Л(28); Л(H); Л(J)-ї>Е FLAG│1 з З #м2,д6);A$(I).HFLAG│0.RЗ #м2, Л(27); Л(90); Л(12).'\Л I.FfЗ #м2, Л(27); Л(90); Л(12).epЗ #м2, Л(15); Л(27); Л(14).РzЗ #м2,"PERSONAL FAMILY,THIRD MARRIAGE".пДЗ #м2, Л(27); Л(90); Л(12).╬ОЗ #м2, Л(14); Л(27); Л(15).▀ША I│82 е 104.·вЕ I│87 ▒ I│96 з FLAG│1/мЕ I▓87 з H│60 :Д H│50/G╢Е FLAG┤▓1 з З #м2,д6);A$(I); Л(28); Л(H); Л(J)/f└Е FLAG│1 з З #м2,д6);A$(I)/q╩FLAG│0/Р╘З #м2, Л(27); Л(90); Л(12)/Ш▐Л I/░шЗ #м2, Л(27); Л(22)/┐ЄА I│1 е 15/╫№З #м2, Л(27); Л(54)/▀Л I/чЛ X/эК0 $В SUB SCREEN DISPLAY ARRAY0.А I│1 е 1360%8Н Q$04B║ A$(I)│Q$0<LЛ I0fVЖ LASTNAME ;,FIRSTNAME ;,MIDDLENAME;0Р`Ж GENERATION;,LINEAGE NO;,BAPTIZED ;0║jЖ BORN DATE ;,DIED DATE ;,FATHER LST;0шtЖ " FST;"," MID;",MOTHER LST;1~Ж " FST;"," MID;",NO. OF BRS;1@ИЖ NO. OF SIS;,GOD FATHER;,GOD MOTHER;1jТЖ NICKNAME ;,BORN LOC ;,RESIDENCE ;1ФЬЖ B'RD LOC ;,RELIGION ;,SCHOOLING ;1─жЖ " ;"," ;"," ;"1Ё░Ж OCC/TRADE ;," ;",EMPLOYMENT;2║Ж " ;"," ;",ABROAD ;2J─Ж " ;",MILITARY ;,LASTNAME ;2t╬Ж FIRSTNAME ;,MIDDLENAME;,MAR'D DATE;2Ь╪Ж MAR'D LOC ;,BORN DATE ; SONS NAME2отЖ " "," "," "2└ьЖ " "," "," "2щЎЖ " "," ",BORN DATE ; DAUGHTERS NAME2√Ж " "," "," "3  Ж " "," "," "3'Ж " "," ",LASTNAME ;3QЖ FIRSTNAME ;,MIDDLENAME;,MAR'D DATE;3y(Ж MAR'D LOC ;,BORN DATE ; SONS NAME3Л2Ж " "," "," "3Э<Ж " "," "," "3╞FЖ " "," ",BORN DATE ; DAUGHTERS NAME3╪PЖ " "," "," "3ъZЖ " "," "," "4dЖ " "," ",LASTNAME ;4.nЖ FIRSTNAME ;,MIDDLENAME;,MAR'D DATE;4VxЖ MAR'D LOC ;,BORN DATE ; SONS NAME4hВЖ " "," "," "4zМЖ " "," "," "4гЦЖ " "," ",BORN DATE ; DAUGHTERS NAME4╡аЖ " "," "," "4╟кЖ " "," "," "4ъ┤Ж " "," ",SEARCHING CAN BE BY;5╛Ж " ",LASTNAME ;,FIRSTNAME ;5<╚Ж MIDDLENAME;,GENERATION;,LINEAGE # ;5r╥Ж BAPTIZED ;," "," BORN DIED"5║▄Ж SPECIFIC ; ,UP TO ; ,AFTER ; 5ьцЖ FROM ; ,TO ; 5ЎЁЖ " "6=·Ж DATES MUST BE ENTERED AS;," ----",YEAR MONTH DAY ;YYYYMMDD6GЖ " "6iЖ 1/ENTER DATA,2/SEARCH FILES6|Ж 3/QUIT," "6Й"Ж " "6╗,Ж 1/DISPLAY RECORD,2/PRINTOUT COMPLETE RECORD6ё6Ж 3/PRINTOUT PARTIAL RECORD,4/DISPLAY NEXT RECORD7@Ж 5/CHANGE RECORD,6/RETURN TO MENU7"JЖ " "7(TРNTH DAY ;YYYYMMDD6GЖ " "6iЖ 1/ENTER DATA,2/SEARCH FILES6|Ж 3/QUIT," "6Й"Ж " "6╗,Ж 1/DISPLAY RECORD,2/PRINTOUT COMPLETE RECORD6ё6Ж 3/PRINTOUT PARTIAL RECORD,4/DISPLAY NEXT RECORD7@Ж 5/CHANG HA& Х1000:Ю&$FLAG│1:╚4,1:╝:┐1,0&uЮ:М K$(100),E1(192),E2(192),A(4,4):C$│"COMPUTATIONS ARE IN PROGRESS...":Бе32&Б Y│ Е(X)&З Р&УY│ Х(X)&ЩР&▓ K$(32)│"BR8"::ГSPACE&╙!K$(33)│"BR3UBU2U3BD6BR4"::Г!&∙"K$(34)│"BRBU3EU2BR3D2GBD3BR4"::Г"'%#K$(35)│"BRBUR5BU3L5BED5BR3U5BD5BR2"::Г#'X$K$(36)│"BRBUFR3EUHL3HUER3FBHBL2NUD7BU2BR5"::Г$'В%K$(37)│"BRBU4EFGHBR5G5BR4HEFGBR3"::Г%'з'K$(39)│"BR3BU3EU2BR4BD6"::ГAPOST'╚(K$(40)│"BR4H2U2E2BD6BR4"::Г('щ)K$(41)│"BR4BU6F2D2G2BR4"::Г)(*K$(42)│"BR2BU2E2NH2NU2NE2NF2D2BD2BR4"::Г*(>+K$(43)│"BR2BU3R2NU2NR2D2BDBR4"::Г+([,K$(44)│"BR3EUBD2BR4"::Г,({-K$(45)│"BR2BU3R4BD3BR2"::Г-(Х.K$(46)│"BR2R1BR4"::Г.(▒/K$(47)│"BRE5BD5BR2"::Г/(╓0K$(48)│"BR2HU4ER3FD4GNL3BR3"::Г0(°1K$(49)│"BR3R2BLU6GBD5BR5"::Г1)2K$(50)│"BRBU5ER3FG4DR4BR3"::Г2)D3K$(51)│"BRBU5ER3FG2F2G1L3HBFBR6"::Г3)e4K$(52)│"BR5U6G4R5BD2BR2"::Г4)О5K$(53)│"BRBUFR3EU2HL4U2R5BD6BR2"::Г5)║6K$(54)│"BRBUNUFR3EUHL3GU3ER3BD6BR3"::Г6)┘7K$(55)│"BRBU6R5G5DBR7"::Г7*8K$(56)│"BR2HUEHUER3FDGNL3FDGL3BR6"::Г8*/9K$(57)│"BR2BU3HUER3FD2NL3D2GL3BR6"::Г9*Q:K$(58)│"BR4BUUBU2UBD5BR4"::Г:*r;K$(59)│"BR3EUBU2UBD5BR4"::Г;*ТK$(62)│"BR2BU6F3G3BR6"::Г>*·?K$(63)│"BR2BU5ER2FG2BD2DBR4"::Г?+AK$(65)│"BRU5ER3FD3NL5D2BR2"::ГA+EBK$(66)│"BRU6R4FDGNL4FDGNL4BR3"::ГB+kCK$(67)│"BR2HU4ER3FBD4GNL3BR3"::ГC+ПDK$(68)│"BRU6R3F2D2G2NL3BR4"::ГD+╡EK$(69)│"BRNR5U3NR3U3R5BD6BR2"::ГE+╪FK$(70)│"BRU3NR3U3R5BD6BR2"::ГF,GK$(71)│"BR2HU4ER3FBD2NL2D2GNL3BR3"::ГG,&HK$(72)│"BRU3NU3R5NU3D3BR2"::ГH,KIK$(73)│"BR4NLNRU6NLNRBD6BR4"::ГI,oJK$(74)│"BR2NHR3EU5NLRBD6BR"::ГJ,ТKK$(75)│"BR2U2NU4ENE3F3BR2"::ГK,оLK$(76)│"BRNU6R5BR2"::ГL,╬MK$(77)│"BRU6F2RE2D6BR2"::ГM,эNK$(78)│"BRU6F5NU5DBR2"::ГN-OK$(79)│"BR2HU4ER3FD4GNL3BR3"::ГO-5PK$(80)│"BRU6R4FDGL4BD3BR7"::ГP-_QK$(81)│"BR3H2U2E2RF2D2GNHNFGLBR5"::ГQ-ЕRK$(82)│"BRU5ER3FDGL2NL2F3BR2"::ГR-пSK$(83)│"BRBUFR3EUHL3HUER3FBD5BR2"::ГS-╤TK$(84)│"BR4U6NL2R2BD6BR2"::ГT-ЎUK$(85)│"BRBU6D5FR3EU5BD6BR2"::ГU.VK$(86)│"BRBU6D3F3E2U4BD6BR2"::ГV.=WK$(87)│"BRNU6E2RF2NU6BR2"::ГW.eXK$(88)│"BRUE2H2UBR5DG2NLF2DBR2"::ГX.КYK$(89)│"BRBU6F3ND3E2UBD6BR2"::ГY.мZK$(90)│"BRBU6R5DG4DR5BR2"::ГZ.╬^K$(94)│"BR2BU4E2F2BD4BR2"::Г^.э_Е FLAG│0 Бе5820 :Д Бе 5600/ ш:Г**PRINT ON HIRES SCREEN/LP│ZP:Бж1240/K`ZF$│"S"л И(ZF)л"BM"л И(ZX)л","л И(ZY):╞ ZF$/`tА ZJ│1 е  З(ZM$)/xИZK│ К( Р(ZM$,ZJ,1))/╠Ь╞ K$(ZK):P│Pл1:Е  Б(Pо32)│Pо32 з ZX│0:ZY│ZYл12:ZF$│"BM"л И(ZX)л","л И(ZY):╞ ZF$/╫░Л ZJ:Р/¤╪:Г**CONVERT PRINT@ TO HIRES COORD0) .001":ZP│480:Бж1000:ZT│2:Бж4900:Бе4660:>ЕR┤L зTEMP│L:L│R:R│TEMP:Р:Ю\:Г**CLEAR TO END OF SCREEN:цfТ65495,0:P│ZP:Бж1240:┴1,0:╗(ZX,ZYм8)м(255,191),╜,BF:┴0,1:Т65494,0:Р:¤Д:Г**PRINT CENTERED;$ОZP│32н(ZLм1)л16м З(ZM$)о2:Бж1000:Р;>м:Г**CLEAR PROMPT LINE;f╘┴1,0:╗(0,180)м(255,191),╜,BF:┴0,1:Р;y$:Г**TIME DELAY;ВL Я│0;Ц`Е  Я┤ZTн60з4960;ЬtР;▓Ь:Г**ENTER KEY S/R;ы─ZM$│"PRESS THE ENTER KEY TO CONTINUE.":ZP│480:Бж1000<╪ZZ$│ Т:ЕZZ$│""з5080:ДЕZZ$┤▓ Л(13)з5080<ьР<<:Г**ALTERNATE ENTER KEY S/R!Е В(N)▓│1000░ В(N)┤1000000зN│ Б(Nл.5):Бе5460>TЕ В(N)▓│100░ В(N)┤1000зN│ Б(Nн10л.5)о10:Бе5460>З,Е В(N)▓│10░ В(N)┤100зN│ Б(Nн100л.5)о100:Бе5460>▒@Е В(N)┤10зN│ Б(Nн1000л.5)о1000:Бе5460>╖TР>╓|:Г***** MAIN PROGRAM *****>ы╕:Г**OPENING PAGE?рZM$│"GRAPHS AND ROOTS":ZF│8:ZP│64:Бж1000?FЇZM$│" OF FUNCTIONS ":ZP│128:Бж1000:ZF│4?pZM$│"BY LOUIS R. TOSCANO":ZL│8:Бж4740?ХZM$│"P.O. BOX 2400":ZL│10:Бж4740?┼0ZM$│"VINEYARD HAVEN, MA 02568":ZL│12:Бж4740?ЁDZM$│"TEL: (617)-693-1328":ZL│13:Бж4740@"XZM$│"COPYRIGHT 1984":ZL│15:Бж4740:ZT│4:Бж4900@kb┴0,1:╝:ZM$│"DO YOU WANT INSTRUCTIONS (Y/N)?":ZP│256:XT│1:XM│1:Бж1400@ВlЕ ZA$│"Y"з Бж20000@ЪФ:Г**MENU AND DRIVER@╛╝Ю:З@4,"WHAT DO YOU WISH TO DO?"A ╨З@64,"(1) DRAW THE GRAPH OF THE PRESENT EQUATION AT LINE 10";AsфЗ@160,"(2) DRAW THE GRAPH OF THE PRESENT EQUATIONS AT LINES 10 AND 20 SIMULTANEOUSLY"A░ З@288,"(3) WRITE NEW EQUATIONS AT LINES 10 AND/OR 20"A╠4З@392,"CHOOSE 1 - 3: ";Aх6╗Й MENU$:M│ Й(MENU$)B9Е M┤▓1 ░ M┤▓2 ░ M┤▓3 з З@384, б(32,32);:Бе5940B5Д╝:И M Бж 7060,7060,30000BBШЮ:Бе5820Bal:Г**GRAPH OF TWO EQUATIONSBxФ╚ 4,1:┴0,1:╝:┐ 1,0Bн°ZP│0:ZM$│"CHOOSE THE DOMAIN (X-INTERVAL)":Бж1000Bш ZM$│"MINIMUM VALUE OF X? ":ZP│64:XM│8:XT│2:Бж1400:L│ZAC ZP│128:ZM$│"MAXIMUM VALUE OF X? ":Бж1400:R│ZAC84Е R┤L з TEMP│L:L│R:R│TEMPCЦHZP│256:ZM$│"COMPUTATIONS WILL TAKE ABOUT "л И(15нM)л" SECONDS. PLEASE STAND BY.":Бж1000C░\EQ│1:Бж2700:ЕM│1з7340CфpYL(1)│YL:YU(1)│YU:EQ│2:Бж2700:YL(2)│YL:YU(2)│YUDДYL│YL(1):Е YL(2)┤YL з YL│YL(2)D*ШYU│YU(1):Е YU(2)▓YU з YU│YU(2)DDмEQ│1:Бж3020:ЕM│1з7380D[└Бж4780:EQ│2:Бж4380DО╘Бж4780:ZM$│"":ЕM│2зZM$│ZM$л"D└╓ZM$│ZM$л" ELP ":ZP│480:XM│1:XT│1:Бж1400E┘Е ZA$┤▓"D"░ZA$┤▓"V"░ZA$┤▓"R"░ZA$┤▓"S"░ZA$┤▓"A"░ZA$┤▓"I"░ZA$┤▓"M"░ZA$┤▓"H"з7380E)█ЕM│1░ZA$│"I"з7380E░▐Е ZA$│"D"з7400 :Д Е ZA$│"V"з7450 :Д Е ZA$│"R"з7500 :Д Е ZA$│"H"з 7550 :Д Е ZA$│"I" з 7600 :Д Е ZA$│"A"з7650 :Д Е ZA$│"S"з7800 :Д РE╗шБж4650Eт Бж4780:ZM$│C$:ZP│480:Бж1000:Бе7260EЁЕM│1з7460FGБж4780:ZM$│"EQUATION (1) OR (2)? ":ZP│480:XT│2:XM│1:Бж1400:EQ│ZA:ЕEQ┤▓1░EQ┤▓2з7452FР$Бж4780:ZM$│"X = ":ZP│480:XM│8:XT│2:Бж1400:X│ZA:Е EQ│1 з Бж10 :Д Бж20F·)N│Y:Бж5320:ZM$│"Y = "л И(N):ZP│494:Бж1000:X1│63л(XмL)о(RмL)н192:Y1│145н(YмYU)о(YLмYU)л1:Бж5140:Бе7380GLЕM│1з7510G_QБж4780:ZM$│"EQUATION (1) OR (2)? ":ZP│480:XT│2:XM│1:Бж1400:EQ│ZA:ЕEQ┤▓1░EQ┤▓2з7505GЭVБж4780:ZM$│"ENTER ESTIMATE. X = ":ZP│480:XT│2:XM│8:Бж1400G╜[Бж4780:ZM$│C$:ZP│480:Бж1000G╧`Бж9000:Бе7380G█~┐ 0,1:ЮHГЗ@0,"OMAIN - CHANGE THE DOMAIN OF THE GRAPH(S)"HiЕЗ@64,"ALUE - FIND THE Y-COORDINATE OF THE GRAPH(S) FOR A SPECIFIED VALUE OF X"HбИЗ@160,"OOTS - FIND THE ROOTS OF THE FUNCTION(S)"H┘ЙЗ@224,"LOPE - FIND THE SLOPE OF THE FUNCTION(S)"I0КЗ@288,"REA - FIND THE AREA BETWEEN THE CURVE AND X-AXIS OR BETWEEN TWO CURVES"IВЛZM$│"NTERSECTION - FIND THE INTER-SECTION OF THE GRAPHS":Е M│2 з З@384,ZM$I┘МЕ M│1 з З@384,"ENU - RETURN TO THE MENU" :Д З@448,"ENU - RETURN TO THE MENU"JТЗ@482,"PRESS TO CONTINUE";J ЬZZ$│ Т:Е ZZ$┤▓ Л(13) з 7580J7ж╚ 4,1:┐ 1,1:Бе7380Ju░Бж4780:ZM$│"ENTER ESTIMATE. X = ":ZP│480:XT│2:XM│8:Бж1400JЬ║Бж4780:ZM$│C$:ZP│480:Бж1000:Бж9200Jз─Бе7380JытБж4780:ZM$│"MINIMUM VALUE OF X? ":ZP│480:XM│8:XT│2:Бж1400:L1│ZAK~ьБж4780:ZM$│"MAXIMUM VALUE OF X? ":ZP│480:Бж1400:R1│ZA:Е  В(R1мL1)┤.001 з Бж4780:ZM$│"INTERVAL MUST BE > .001":ZP│480:Бж1000:ZT│2:Бж4900:Бе7650KвЎЕ R1┤L1 з TEMP│L1:L1│R1:R1│TEMPK■Е L1┤L ▒ R1▓R з Бж4780:ZM$│"INTERVAL OUTSIDE DOMAIN OF GRAPH":Бж1000:ZT│2:Бж4900:Бе7650L4dБж4780:ZM$│C$:ZP│480:Бж1000:ЕM│1зБж10000:ДБж12000LВnN│AREA:Бж5320:Бж4780:ZM$│"AREA = "л И(N):Бж1000:ZM$│"ENTER":ZP│507:Бж1000LеsZZ$│ Т:ЕZZ$┤▓ Л(13)з7795:Д7340L│xЕM│1з7820M ВБж4780:ZM$│"EQUATION (1) OR (2)? ":ZP│480:XM│1:XT│2:Бж1400:EQ│ZA:ЕEQ┤▓1░EQ┤▓2з7810M?МБж4780:ZM$│"X = ":ZP│480:XM│8:XT│2:Бж1400:Бж4780M_ЦX│ZA:H│Xн(1Eм6):ЕH│0зH│1Eм6MtЫЕEQ│1зБж10:ДБж20MФаY1│Y:X│HлX:ЕEQ│1зБж10:ДБж20MдбS1│YоHмY1оHM└вX│ZAмH:ЕEQ│1зБж10:ДБж20MыдS2│Y1оHмYоH:N│(S1лS2)о2:Бж5320:SLOPE│NN)┤ZM$│"SLOPE = "л И(SLOPE):Бж1000:ZM$│"ENTER":ZP│507:Бж1000NL╛ZZ$│ Т:ЕZZ$┤▓ Л(13)з7870:Д7380N^#(:Г**FIND ROOTNs#<Т65495,0:ROOT│ZAN~#FX│ROOTNС#PЕ X│0 з X│.001N╢#ZА J│1 е 50:Е EQ│1 з Бж10 :Д Бж20N▌#dЕ  В(X)┤.0001 ░  В(Y)┤.0001 з 9160N∙#nY1│Y:X1│X:X│Xл.000001нXO#xЕ EQ│1 з Бж10 :Д Бж20O9#ВY2│Y:Е Y2мY1│0 з X│Xл.0001:Бе9080O\#МSLOPE│(Y2мY1)о(XмX1):X│X1:Y│Y1Oo#ЦROOT│XмYоSLOPEOТ#аЕ  В((ROOTмX)оX)┤.00005 з 9160Oб#кX│ROOT:Л JOц#┤Бж4780:ZM$│"NO ROOT FOUND":Е MM│2 з ZM$│ZM$л" FOR EQUAT."л И(EQ)P#╛ZP│480:Бж1000:Бж5160:Бе9180P&#╚Е  В(ROOT) ┤.00001 з ROOT│0PЪ#╥Бж4780:N│ROOT:Бж5320:ZM$│"ROOT AT X = "л И(N):ZP│480:Бж1000:X1│63л(NмL)о(RмL)н192:Y1│145н(мYU)о(YLмYU)л1:Бж5140Pй#▄Т65494,0:РP├#Ё:Г**FIND INTERSECTIONPю$Т65495,0:ROOT│ZA:X│ROOT:Е X│0 з X│.001Q$А J│1 е 75:Бж10:Y1│YQ$Бж20:Y1│Y1мYQ-$"X1│X:X│Xл.0001нXQH$,Бж10:Y2│Y:Бж20:Y2│Y2мYQu$6Е  В(X1)┤.000001 ░  В(Y1)┤.000001 з 9360QЛ$@Е Y2мY1┤▓0 з 9310Q╜$JБж10:Y1│Y:Бж20:Y2│Y:Е  В(Y2мY1)┤.00001 з 9360Q╔$TБе 9350Qь$^SLOPE│(Y2мY1)о(XмX1):X│X1:Y│Y1Q $hROOT│XмYоSLOPER"$rЕ  В((ROOTмX)оX)┤.00005 з 9360R1$|X│ROOT:Л JRw$ЖБж4780:ZM$│"NO INTERSECTION FOUND.":ZP│480:Бж1000:5140:Т65494,0:РRЦ$РЕ  В(ROOT)┤.00001 з ROOT│0R╝$ЪX│ROOT:Бж10:Е  В(Y)┤.000001 з Y│0SO$дБж4780:X1│63л(XмL)о(RмL)н192:Y1│145н(YмYU)о(YLмYU)л1:N│X:Бж5320:ZM$│"X="л И(N):N│Y:Бж5320:ZM$│ZM$л" Y="л И(N):ZP│480:Бж1000:Бж5140:Т65494,0:РSi':Г**DEFINITE INTEGRALS╕'tТ65495,0:AREA│0:DX│(R1мL1)о200:X│L1:Бж10:X1│63л(XмL)о(RмL)н192:AREA│AREAлYSю'~Y1│145н(YмYU)о(YLмYU)л1:Е AX┤▓0 з Y2│AX :Д Y2│145T'Г╗ (X1,Y1)м(X1,Y2),╜T9'ИА ZK│1 е 199:X│XлDX:Бж10:X1│63л(XмL)о(RмL)н192To'ЬЕ  Б(ZKо2)┤▓ZKо2 з AREA│AREAл4нY :Д AREA│AREAл2нYTг'ЮY1│145н(YмYU)о(YLмYU)л1:ЕY┤0з Т178,1 :Д Т 178,2T║'Я╗(X1,Y1)м(X1,Y2),╜T┬'жЛZKTЄ'░X│R1:Бж10:X1│63л(XмL)о(RмL)н192:AREA│AREAлYU!'║Y1│145н(YмYU)о(YLмYU)л1:╗(X1,Y1)м(X1,Y2),╜U6'╬AREA│DXо3нAREA:РUR.р:Г**AREA BETWEEN CURVESUм/DAREA│0:DX│(R1мL1)о200:X│L1:Бж10:X1│63л(XмL)о(RмL)н192:Y1│145н(YмYU)о(YLмYU)л1:YTEMP│YUч/NБж20:Y2│145н(YмYU)о(YLмYU)л1:Y│ В(YTEMPмY):AREA│AREAлYU■/X╗(X1,Y1)м(X1,Y2),╜VN/bАZK│1е199:X│XлDX:Бж10:X1│63л(XмL)о(RмL)н192:Y1│145н(YмYU)о(YLмYU)л1:YTEMP│YV}/gБж20:Y2│145н(YмYU)о(YLмYU)л1:Y│ В(YTEMPмY)V│/lЕ  Б(ZKо2)┤▓ZKо2 з AREA│AREAл4нY :Д AREA│AREAл2нYV╬/q╗(X1,Y1)м(X1,Y2),╜:ЛZKW[/vX│R1:Бж10:X1│63л(XмL)о(RмL)н192:Y1│145н(YмYU)о(YLмYU)л1:TEMP│Y:Бж20:Y2│145н(YмYU)о(YLмYU)л1:Y│ В(YTEMPмY):AREA│AREAлY:╗(X1,Y1)м(X1,Y2),╜Wy/АAREA│DXо3нAREA:Т65494,0:РWОN :Г**INSTRUCTIONSX NД┴0,1:╝:┐1,0:ZM$│"THIS PROGRAM WILL DRAW THE GRAPHOF ONE OR TWO FUNCTIONS ON THE CARTESIAN COORDINATE PLANE.":ZP│0:Бж1000YNЙZM$│"IT CAN ALSO BE USED TO FIND THE ROOTS OF AN EQUATION, TO SOLVE ASYSTEM OF TWO EQUATIONS WITH TWOUNKNOWNS, TO FIND THE MAXIMUM OR MINIMUM VALUES OF A FUNCTION,TO SHOW THE RELATIONSHIP BETWEENTHE GRAPH OF A FUNCTION AND ITS":ZP│96:Бж1000Y┼NЛZM$│"DERIVATIVE, TO FIND AREAS UNDER OR BETWEEN CURVES (THE DEFINITE INTEGRAL) AND TO SHOW THE EFFECTOF TRANSLATIONS, REFLECTIONS, ETC. ON THE GRAPH OF A FUNCTION.":ZP│320:Бж1000:Бж5020:╝Z2NОZM$│"TO GRAPH ONE EQUATION, YOU MUST WRITE THAT EQUATION AT LINE 10 IN THE FORM: Y = F(X)":ZP│0:Бж1000ZhNУZM$│"EXAMPLE: 10 Y = 2*X - SIN(X)":ZP│128:Бж1000Z░NХZM$│"DO NOT USE ANY OTHER VARIABLE EXCEPT X AND Y.":ZP│192:Бж1000[NЦZM$│"THEN TYPE "л Л(34)л"RUN 5"л Л(34)л" TO RESUME THE":ZP│288:Бж1000:ZM$│"PROGRAM.":ZP│320:Бж1000:Бж5020[ЦNШ╝:ZM$│"YOU WILL BE ASKED TO SPECIFY THEDOMAIN (X-INTERVAL) OVER WHICH YOU WANT THE GRAPH TO BE DRAWN.":ZP│0:Бж1000\NЭZM$│"AFTER ABOUT 15 SECONDS, THE GRAPH OF THE EQUATION AT LINE 10WILL BE DISPLAYED ON THE SCREEN.":ZP│128:Бж1000:Бж5020\ЙNв╝: ZM$│"AFTER THE GRAPH HAS BEEN DRAWN, YOU WILL BE PROMPTED AT THE BOTTOM OF THE SCREEN WITH":ZP│0:Бж1000\╜NжZM$│" ELP.":ZP│128:Бж1000],NмZM$│"ENTER IF YOU WISH TO RE-DRAWTHE SAME GRAPH OVER A DIFFERENT OMAIN (X-INTERVAL).":ZP│192:Бж1000]╣N╩ZM$│"ENTER IF YOU WISH TO FIND THE ALUE OF THE FUNCTION (Y- COORDINATE) FOR ANY VALUE OF X.":ZP│320:Бж1000:Бж5020:ZP│192:Бж4700^FNшZM$│"ENTER IF YOU WISH TO FIND THE ROOTS (ZEROES) OF THE FUNCTION (WHERE THE GRAPH CROSSES THE X-AXIS).":ZP│192:Бж1000^│NЄZM$│"THE PROGRAM USES NEWTON'S METHODOF ITERATION TO FIND THE ROOTS.":ZP│352:Бж1000:Бж5020:ZP│192:Бж4700_зN№ZM$│"NEWTON'S METHOD REQUIRES THAT YOU ENTER AN INITIAL ESTIMATE OFTHE ROOT. YOU CAN GET SUCH AN ESTIMATE BY LOOKING AT WHERE THEGRAPH CROSSES THE X-AXIS. THE ESTIMATE DOES NOT HAVE TO BE TOOEXACT.":ZP│192:Бж1000:Бж5020:ZP│192:Бж4700`OZM$│"IF THE GRAPH HAS MULTIPLE ROOTS,YOU CAN REPEAT THE PROCEDURE.":ZP│192:Бж1000:Бж5020:ZP│192:Бж4700`√OZM$│"ENTER IF YOU WISH TO FIND THE SLOPE OF THE FUNCTION FOR ANY VALUE OF X (IE. EVALUATE ITSDERIVATIVE). THE PROGRAM WILL NUMERICALLY COMPUTE A GOOD APPROXIMATION TO THE SLOPE.":ZP│192:Бж1000:Бж5020:ZP│192:Бж4700a╬O ZM$│"ENTER IF YOU WISH TO FIND THE AREA BETWEEN THE CURVE AND THE X-AXIS (THE DEFINITE INTE- GRAL). YOU WILL BE PROMTED FOR THE LIMITS OF INTEGRATION. THE PROGRAM WILL PARTITION THE":ZP│192:Бж1000bEO ZM$│"INTERVAL INTO 200 SUB-INTERVALS AND USE SIMPSON'S RULE TO FIND THE AREA.":ZP│384:Бж1000:Бж5020:ZP│192:Бж4700bфOZM$│"ENTER IF YOU WISH TO RETURN TO THE MENU OR FOR HELP IF YOU CAN'T RECALL WHAT MEANS.":ZP│192:Бж1000:Бж5020Ф20250cЧO╝:ZM$│"IF YOU WISH TO GRAPH TWO EQUATIONS AT THE SAME TIME, YOU MUST WRITE EQUATION (1) AT LINE 10 AND EQUATION (2) AT LINE 20, BOTH IN THE FORM Y = F(X).":ZP│0:Бж1000cшO$ZM$│"EXAMPLE: 10 Y = X^2 - 3*X + 5 20 Y = 2*X - 3":ZP│192:Бж1000d2O.ZM$│"USE ONLY X AND Y FOR BOTH EQUATIONS.":ZP│288:Бж1000:Бж5020d╣O8╝:ZM$│"AFTER ABOUT 30 SECONDS, THE GRAPHS WILL BE DISPLAYED ON THE SCREEN. YOU WILL AGAIN BE PROMPTED WITH:":ZP│0:Бж1000dюOBZM$│" ELP":ZP│160:Бж1000e╟OLZM$│",,,,, AND HAVE THE SAME MEANING AS BEFORE.YOU CAN EVALUATE EITHER FUNCTION, FIND THE ROOTS OF EITHER FUNCTION , FIND THE SLOPE OF EITHER FUNCTION , OR FIND THE":ZP│224:Бж1000fOQZM$│"AREA BETWEEN THE TWO CURVES .":ZP│416:Бж1000:Бж5020:ZP│224:Бж4700f░OVZM$│"HOWEVER, YOU ALSO HAVE THE THE OPTION OF FINDING THE INTER-SECTION OF THE TWO GRAPHS BY PRESSING .":ZP│224:Бж1000:Бж5020:ZP│224:Бж4700ghO`ZM$│"YOU MUST ENTER AN INITIAL ESTIMATE OF THE INTERSECTION WHICH YOU CAN GET BY LOOKING AT THE GRAPH. THE PROGRAM WILL THENFIND THE EXACT VALUES FOR X AND":ZP│224:Бж1000g╨OjZM$│"Y. IF THERE IS MORE THAN ONE INTERSECTION, YOU CAN REPEAT THEPROCESS.":ZP│384:Бж1000:Бж5020hИOt╝:ZM$│"TO FIND THE RELATIVE MAXIMUM OR MINIMUM VALUES OF A FUNCTION WITHIN AN INTERVAL, GRAPH THE FUNCTION (LINE 10) AND ITS DERIVATIVE (LINE 20). THE MAXI-":ZP│0:Бж1000hєO~ZM$│"MUMS OR MINIMUMS OCCUR WHERE THEGRAPH OF THE DERIVATIVE CROSSES THE X-AXIS.":ZP│160:Бж1000:Бж5020iЮOИ╝:ZM$│"THUS, FIRST FIND THE ROOTS OF THE DERIVATIVE (EQUATION 2) AND THEN EVALUATE THE FUNCTION (EQUATION 1) AT THE ROOTS OF THEDERIVATIVE.":ZP│0:Бж1000:Бж5020i▀OТ╝:ZM$│"TO GRAPH A PIECE-WISE FUNCTION, SUCH AS:":ZP│0:Бж1000jLOЬZM$│"Y = 2*X FOR X < -1 Y = 3*X - 2 FOR -1<=X<=2 Y = 5 FOR X > 2":ZP│96:Бж1000jvOжZM$│"WRITE AT LINE 10:":ZP│224:Бж1000jсO░ZM$│"10 IF X<-1 THEN Y=2*X ELSE IF X>=-1 AND X<=2 THEN Y=3*X ELSE Y=5":ZP│288:Бж1000:Бж5020kЪO║╝:ZM$│"YOU CAN USE A SIMILAR TECHNIQUE TO GRAPH DISCONTINUOUS FUNC- TIONS. FOR EXAMPLE, Y=1/X IS DISCONTINUOUS AT X=0. TO GRAPH THIS FUNCTION, WRITE AT LINE 10:":ZP│0:Бж1000k▐O─ZM$│"10 IF X<-.1 OR X>.1 THEN Y=X ELSE Y=0":ZP│160:Бж1000lЖO╬ZM$│"ALTHOUGH Y DOES NOT EQUAL 0 FOR VALUES OF X BETWEEN -.1 AND .1, THESE POINTS WILL BE PLOTTED ON THE X-AXIS AND WILL NOT BE VISIBLE.":ZP│256:Бж1000:Бж5020lМaиРlпu0:ГWRITE EQUATIONS INSTRUCTIONSm=uФЮ:З@0,"TO GRAPH ONE EQUATION, YOU MUST WRITE THAT EQUATION AT LINE 10 IN THE FORM: Y = F(X) EXAMPLE: 10 Y = 4*X - SIN(2*X)";mтuЮЗ@160,"TO GRAPH TWO EQUATIONS, WRITE EQUATION (1) AT LINE 10 AND EQUATION (2) AT LINE 20. EXAMPLE: 10 Y = X^2 - 5*X + 3 20 Y = 2*X - 5"n@uиЗ@320,"USE ONLY THE VARIABLES X AND Y.":З@384,"THEN TYPE 'RUN 5' TO RETURN TO THE MENU."@160,"TO GRAPH TWO EQUATIONS, WRITE EQUATION (1) AT LINE 10 AND EQUATION (2) AT LINE 20. EXAMPLE: 10 Y = X^2 - 5*X + 3 20 Y = 2*X - 5"n@uиЗ@320,"USE ONLY THE VARI