80:Бе15509Ф,Бж560:З"HOW LONG WILL IT TAKE TO PAY OFFA LOAN OF $4200 IF 12 TIMES A   YEAR YOU MAKE PAYMENTS  OF $185 WITH 12% ANNUAL INTEREST RATE?"9д6Бж160:Бж5609┬@Й"LOAN AMOUNT   ";P:Бж1809фJЗ"PAYMENT EACH 1/"T"YEAR":Й A:TY│( Щ(A)м Щ(AмRнP))о( Щ(1лR)нT):N│YнT:,^Бж230:K│NнAмP:Бж240:Бж250:JhЗ"TIME REQUIRED"Y" YEARS":jrБж270:B│A:BA│P:Бж380:Бе1630;|Бж570:З"WHAT PERCENT ANNUAL INTEREST    RATE, COMPOUNDED 2 TIMES A YEAR,MUST YOU GET IN ORDER TO EQUAL  THE INCOME OF 9% ANNUAL RATE    COMPOUNDED 12 TIMES A YEAR?";#ЖБж160:Бж570;GРЗ:Й"KNOWN INT. RATE(6%=.06)";R2;СЪЙ"HOW MANY TIMES A YEAR IS THE    KNOWN  INTEREST RATE COMPOUNDED";T2;▄дЙ"HOW MANY TIMES A YEAR IS THE    UNKNOWN INTEREST RATE COMPOUNDED";T1;■оR1│(((1лR2оT2)п(T2оT1))м1)нT1<4╕З"IT IS EQUIVILIANT TO A RATE OF "R1"OR"R1н100"%"<V┬З:Й"<ENTER> FOR MENU";B$:Бе10<╫╠Бж580:З"WHAT TAX-FREE INTEREST RATE IS  EQUIVILANT TO A 12% TAXABLE RATEIF YOU ARE IN THE 32 PERCENT    INCOME TAX BRACKET?"<ч╓Бж160:Бж580=рЙ"TAXABLE INT. RATE(6%=.06)";R1=<ъЙ"YOUR TAX BRACKET(27%=.27)";TB:R2│R1н(1мTB)=~ЇЗ:З"THAT IS EQUAL TO A TAX-FREE RATEOF"R2"OR"100нR2"%":Бе1730I╛'oД9╜T%Б $Б
'Ж~■9╜∙╜ГО'2╜%О'2Ж
╜О'2╜к&9О!№╜IО"r╜I~!О" я╢&t╖&pО'2╜W&(Б
'Б%
Б▓%ьБ║% цЙM─▀┴A%┴Z"ШM╖                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0ЄK│TнPо12:Бж2400,№Бж270:B│P:Бж320:Бе9600╦Бж500:З"HOW LONG WILL IT TAKE YOU TO    ACCUMULATE $15,000 IF YOU SAVE  $225 EVERY MONTH AND INVEST AT  11.2% ANNUAL RATE COMPOUNDED    12 TIMES PER YEAR"0█Бж160:Бж5000 Й"AMOUNT TO ACCUMULATE";A:Бж1801"$З"AMOUNT TO BE SAVED EACH 1/"T10.Й"YEAR";P1Z8Y│(( Щ(AнRлP)м Щ(P))о Щ(1лR))оT:N│YнT1rBБж230:K│AмNнP:Бж2401МLЗ"AMOUNT SAVED     ";1ЬVK│NнP:Бж2401║`З"TIME REQUIRED"Y" YEARS"1╒jБж270:B│P:Бж320:Бе10902xtБж510:З"HOW MUCH MUST YOU INVEST NOW AT 8% ANNUAL INTEREST RATE TO BE   COMPOUNDED 12 TIMES PER YEAR IN ORDER TO HAVE A MONTHLY INCOME  OF $800 FOR 15 YEARS?"2О~Бж160:Бж510:Бж1802╖ИЗ"INCOME DESIRED EACH 1/"T"YEAR":Й A2┴ТБж2002╪ЬP│Aн(1м(1лR)пмN)оR2ЁжБж230:K│NнAмP:Бж2403
░З"AMOUNT TO INVEST ";3║K│P:Бж24038─Бж270:B│A:BA│P:Бж380:Бе11903▀╬Бж520:З"HOW MUCH WILL YOUR MONTHLY      INCOME BE IF YOU HAVE $45,000   INVESTED AT 12.6% ANNUAL RATE   COMPOUNDED 4 TIMES A YEAR AND   WISH IT TO LAST 20 YEARS?"3я╪Бж160:Бж5204тЙ"PRINCIPAL INVESTED";P4ьБж180:Бж20045ЎA│RнPо(1м(1о(1лR)пN))4OЗ:Бж230:K│NнAмP:Бж2404s
З"INCOME WILL BE   ";:K│A:Бж2404КЗ"EVERY 1/"T"YEAR"4ЮЗ"OR MONTHLY ";4▒(K│TнAо12:Бж2404т2Бж270:B│( Б(Aн100л.5))о100:BA│P:Бж380:Бе12805n<Бж530:З"HOW LONG WILL YOUR MONEY LAST IFYOU HAVE $27,000 INVESTED AT 11%ANNUAL INTEREST RATE AND WISH TOHAVE A MONTHLY INCOME OF $900?"5КFБж160:Бж530:Бж180:Бж2205бPЗ"INCOME PER 1/"T;5пZЙ"YEAR";A5┘dY│( Щ(A)м Щ(AмRнP))о( Щ(1лR)нT):N│YнT5ЎnЗ:З"TIME LEFT "Y" YEARS"6xБж270:B│A:BA│P:Бж380:Бе13906┴ВБж540:З"HOW LARGE A LOAN CAN YOU AFFORD IF YOU CAN MAKE PAYMENTS OF $200EACH MONTH OVER A 20 YEAR PERIODAT 9.4% ANNUAL INTEREST RATE    COMPOUNDED 12 TIMES PER YEAR?"6сМБж 160:Бж 540:Бж 180:Бж 2007ЦЗ"AMOUNT OF PAYMENT EACH 1/"T7аЙ"YEAR";A7*кP│Aн(1м(1лR)п(мN))оR7B┤Бж230:K│NнAмP:Бж2407\╛З"LOAN AMOUNT      ";7М╚K│P:Бж240:Бж250:Бж270:B│A:BA│P:Бж380:Бе14608,╥Бж550:З"HOW LARGE WILL EACH PAYMENT HAVETO BE IN ORDER TO PAY OFF A LOANOF $75,000 IN 25 YEARS AT 13%   ANNUAL INTEREST RATE COMPOUNDED 12 TIMES PER YEAR?"8<▄Бж160:Бж5508TцЙ"LOAN AMOUNT   ";P8dЁБж180:Бж2008~·A│RнPо(1м(1о(1лR)пN))8ЬБж230:K│NнAмP:Бж240:Бж2508╢З"PAYMENTS MUST BE ";8─K│A:Бж2409"З"EACH 1/"T" YEAR":Бж270:B│( Б(Aн100л.5))о100:BA│P:Бж3######.##";M;:З#м2,═"########.##";M2;J:ЛX:Р'U
┬Ю:З"1-AMOUNT AT COMPOUND INTEREST":З:Р'Б
╠Ю:З"2-VALUE NEEDED FOR COMPOUNDING":З:Р'к
╓Ю:З"3-TIME REQUIRED TO COMPOUND":З:Р'╦
рЮ:З"4-AMOUNT OF ANNUITY":З:Р'ю
ъЮ:З"5-PAYMENTS TO ANNUITY":З:Р(
ЇЮ:З"6-TIME REQUIRED FOR ANNUITY":З:Р(?
■Ю:З"7-VALUE NEEDED FOR ANNUITY":З:Р(iЮ:З"8-ANNUITY FROM PRESENT VALUE":З:Р(ОЮ:З"9-TIME LEFT FOR ANNUITY":З:Р(│Ю:З"10-POSSIBLE LOAN AMOUNT":З:Р(▐&Ю:З"11-PAYMENTS REQUIRED FOR LOAN":З:Р)	0Ю:З"12-TIME REQUIRED FOR PAYMENTS":З:Р)6:Ю:З"13-COMPARISON OF INTEREST RATES":З:Р)cDЮ:З"14-TAXABLE VS TAX-FREE INTEREST":З:Р)ёNБж450:З"HOW MUCH MONEY WILL YOU HAVE IN 12 YEARS IF YOU NOW INVEST $2500AT 9% ANNUAL INTEREST RATE AND  IT IS COMPOUNDED 4 TIMES A YEAR? *XБж160:Бж450:Бж220:Бж180:Бж200*%bA│Pн((1лR)пN)*;lБж230:K│AмP:Бж240*UvЗ"TOTAL AMOUNT     ";*yАK│A:Бж240:Бж270:J│P:Бж280:Бе620+ КБж460:З"HOW MUCH MUST YOU INVEST NOW IN ORDER TO ACCUMULATE $11,000     AFTER 8 YEARS IF IT WILL BE     COMPOUNDED 12 TIMES A YEAR AT   11% ANNUAL INTEREST RATE?"+0ФБж160:Бж460+NЮЙ"AMOUNT TO ACCUMULATE";A+^иБж180:Бж200+p▓P│Aо((1лR)пN)+Ж╝Бж230:K│AмP:Бж240+а╞З"AMOUNT TO INVEST ";+─╨K│P:Бж240:Бж270:J│P:Бж280:Бе700,X┌Бж470:З "HOW LONG WILL IT TAKE FOR $2000 TO GROW TO $12000 IF IT IS      INVESTED AT 12% ANNUAL INTEREST RATE AND COMPOUNDED 4 TIMES A   YEAR?",hфБж160:Бж470,ДюЙ"PRINCIPAL INVESTED";P,в°Й"AMOUNT TO ACCUMULATE";A,мБж180,╬Y│(( Щ(A)м Щ(P))о( Щ(1лR)))оT,фБж230:K│AмP:Бж240- З"TIME REQUIRED" Y " YEARS"-*Бж270:J│P:Бж280:Бе790-│4Бж480:З"HOW MUCH MONEY WILL YOU HAVE IF EVERY MONTH FOR 8 YEARS YOU SAVE$175 AND INVEST IT AT 10.5%     INTEREST RATE COMPOUNDED 4 TIMESA YEAR?"-╧>Бж160:Бж480:Бж180:Бж200-ЄHЗ"AMOUNT TO BE SAVED EACH 1/"T.RЙ"YEAR";P.\A│(Pн((1лR)пNм1))оR.0fБж230:K│AмNнP:Бж240.VpЗ"TOTAL OF SAVINGS ";:K│NнP:Бж240.zzЗ"TOTAL ANNUITY    ";:K│A:Бж240.ФДБж270:B│P:Бж320:Бж870/@ОБж490:З"HOW MUCH MUST YOU SAVE EACH     MONTH IF YOU INVEST AT 9.2%     ANNUAL INTEREST RATE COMPOUNDED 12 TIMES A YEAR AND WANT TO     ACCUMULATE $12,000 IN 5 YEARS?"/PШБж160:Бж490/nвЙ"AMOUNT TO ACCUMULATE";A/~мБж180:Бж200/Ф╢P│AнRо((1лR)пNм1)/м└Бж230:K│AмNнP:Бж240/╞╩З"PAYMENTS MUST BE ";/╘╘K│P:Бж240/ы▐З"EVERY 1/"T"YEAR"/ шЗ"OR MONTHLY "; +
Х:Ю:З" 1-AMOUNT AT COMPOUND INTEREST"RЗ" 2-VALUE NEEDED FOR COMPOUNDING"vЗ" 3-TIME REQUIRED TO COMPOUND"Т(З" 4-AMOUNT OF ANNUITY"░2З" 5-PAYMENTS TO ANNUITY"╘<З" 6-TIME REQUIRED FOR ANNUITY"ўFЗ" 7-VALUE NEEDED FOR ANNUITY"PЗ" 8-ANNUITY FROM PRESENT VALUE"<ZЗ" 9-TIME LEFT FOR ANNUITY"[dЗ"10-POSSIBLE LOAN AMOUNT"АnЗ"11-PAYMENTS REQUIRED FOR LOAN"еxЗ"12-TIME REQUIRED FOR PAYMENTS"╠ВЗ"13-COMPARISON OF INTEREST RATES"ЎМЗ"14-TAXABLE VS TAX-FREE INTEREST":ЙB GЦИ B Бе 590,650,730,820,910,1030,1140,1230,1340,1410,1490,1580,1660,1740:Бе10 bаЗ:Й"CONTINUE <Y/N>";B$ vкЕB$┤▓"Y"з10:Д Р Ч┤Й"ANNUAL INT.RATE(6%=.06)";I р╛Й"NUMBER OF TIMES PER YEAR THAT   INTEREST IS COMPOUNDED ";T:R│IоT:Р  ╚З"LENGTH OF TIME IN YEARS"!(╥Й"(2 YR 3 MO=2.25)       ";Y:N│TнY:Р!F▄Й"PRINCIPAL INVESTED";P:Р!dцЗ:З"TOTAL INTEREST   ";:Р!|ЁЗ ═"#######.##";K:Р!Ц·З"TOTAL PAYMENTS   ";!░
З ═"#######.##";NнA:Р!с
З:Й"PRINT TABLE <Y/N>";B$:ЕB$┤▓"Y" з 10 :Д Р"
Й"SCREEN<S> OR PRINTER <P>";B$:ЕB$│"P"з420"@
"Зд4)"INTEREST  TOT/INT   PRIN/BAL":M│0:M2│0"l
,А X│1еN:M│JнR:M2│M2лM:J│JлM:З ═"###";X;"Ь
6З ═"######.##";M;:З ═"#######.##";M2;J:ЛX:Р"╩
@Й"SCREEN<S> OR PRINTER<P>";B$:ЕB$│"P"з350#
JЗд4)" PAYMENT  TOT/PAY   INTEREST     TOT/INT  BALANCE"#}
TTP│0:BA│0:M2│0:АX│1еN:TP│XнB:M│BAнR:M2│M2лM:BA│TPлM2:З ═"###";X;:З ═"######.##";B;:З ═"#######.##";TP;M;M2;BA:ЛX:Р$
^З#м2,"PAYMENTS";:З#м2,═"######.##";B;:З#м2," INT RATE"I"TIME"Y"YEARS":З#м2:З#м2,"NUM    PAYMENT    TOT/PAY   INTEREST    TOT/INT    BALANCE"$V
hTP│0:BA│0:M2│0:АX│1еN:TP│XнB:M│BAнR:M2│M2лM:BA│TPлM2:З#м2,═"###";X;$А
rЗ#м2,═"########.##";B;TP;M;M2;BA:ЛX:Р$о
|Й"SCREEN<S> OR PRINTER<P>";B$:ЕB$│"P"з400%Y
ЖЗд4)" PAYMENT  TOT/PAY   INTEREST     TOT/INT  BALANCE":TP│0:M2│0:АX│1еN:TP│XнB:M│BAнR:M2│M2лM:BA│BAлMмB:З ═"###";X;:З ═"######.##";B;:З ═"#######.##";TP;M;M2;BA:ЛX:Р%Ё
РЗ#м2,"BALANCE";:З#м2,═"#######.##";BA;:З#м2," INTEREST RATE"I"TIME"Y"YEARS":З#м2:З#м2,"NUM    PAYMENT    TOT/PAY   INTEREST    TOT/INT    BALANCE"&Z
ЪTP│0:M2│0:АX│1еN:TP│XнB:M│BAнR:M2│M2лM:BA│BAлMмB:З#м2,═"###";X;:З#м2,═"########.##";B;TP;M;M2;BA:ЛX:Р&╝
дЗ#м2,"INVESTMENT $"J"INT RATE"I"TIME"Y"YEARS":З#м2:З#м2,"NUM INTEREST    TOT.INT    PRIN/BAL"&є
оM│0:M2│0:АX│1еN:M│JнR:M2│M2лM:J│JлM:З#м2,═"###";X;'*
╕З#м2,═"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                50&░Ж  0, 186, 0, 255, 0, 255, 0, 2550L║Ж  0, 255, 0, 255, 0, 255, 0, 2550r─Ж  0, 255, 0, 255, 0, 255, 0, 2550Ш╬Ж  0, 255, 0, 255, 0, 255, 0, 2550╛╪Ж  0, 255, 0, 255, 0, 255, 0, 2550фтЖ  0, 255, 0, 255, 0, 255, 0, 2551
ьЖ  0, 255, 0, 255, 0, 255, 0, 25510ЎЖ  0, 255, 0, 255, 0, 255, 0, 2551VЖ  0, 255, 0, 255, 0, 255, 0, 2551|
Ж  0, 255, 0, 255, 0, 255, 0, 2551вЖ  0, 255, 0, 255, 0, 255, 0, 2551╚Ж  0, 255, 0, 255, 0, 255, 0, 2551ю(Ж  0, 255, 0, 255, 0, 255, 0, 25522Ж  0, 255, 0, 255, 0, 255, 0, 2552:<Ж  255, 0, 255, 0, 255, 0, 255, 02`FЖ  255, 0, 255, 0, 255, 0, 255, 02ИPЖ  255, 233, 255, 0, 255, 0, 255, 02оZЖ  255, 0, 255, 0, 255, 0, 255, 02╘dЖ  255, 0, 255, 0, 255, 0, 255, 02·nЖ  255, 0, 255, 0, 255, 0, 255, 03 xЖ  255, 0, 255, 0, 255, 0, 255, 03FВЖ  255, 0, 255, 0, 255, 0, 255, 03lМЖ  255, 0, 255, 0, 255, 0, 255, 03ТЦЖ  255, 0, 255, 0, 255, 0, 255, 03╕аЖ  255, 0, 255, 0, 255, 0, 255, 03▐кЖ  255, 0, 255, 0, 255, 0, 255, 04┤Ж  255, 0, 255, 0, 255, 0, 255, 04*╛Ж  255, 0, 255, 0, 255, 0, 255, 04P╚Ж  255, 0, 255, 0, 255, 0, 255, 04v╥Ж  255, 0, 255, 0, 255, 0, 255, 04Ь▄Ж  255, 0, 255, 0, 255, 0, 255, 04┬цЖ  255, 0, 255, 0, 255, 0, 255, 04щЁЖ  255, 87, 255, 0, 255, 0, 255, 05·Ж  142, 16, 0, 79, 167, 128, 140, 205:Ж  152, 37, 249, 32, 254, 0, 255, 0T RATE AND WISH TOHAVE A MONTHLY INCOME OF $900?"5КFБж160:Бж530:Бж180:Бж2205бPЗ"INCOME PER 1/"T;5пZЙ"YEAR";A5┘dY│( Щ(A)м Щ(AмRнP))о( Щ(1лR)нT):N│YнT5ЎnЗ:З"TIME LEFT "Y" YEARS"6xБж27                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                64, 57',XЖ  206, 5, 0, 142, 18, 91, 189, 17'WbЖ  128, 141, 23, 57, 206, 18, 152, 134'БlЖ  2, 183, 18, 132, 141, 202, 57, 206'лvЖ  19, 152, 134, 3, 183, 18, 132, 141'╫АЖ  191, 57, 189, 161, 193, 39, 251, 129'■КЖ  3, 16, 39, 254, 40, 57, 206, 18($ФЖ  137, 142, 5, 64, 16, 142, 0, 0(OЮЖ  141, 232, 129, 13, 39, 17, 167, 192(xиЖ  246, 18, 151, 39, 2, 167, 128, 49(а▓Ж  33, 16, 140, 0, 12, 37, 233, 167(╚╝Ж  192, 57, 75, 96, 109, 96, 76, 79(я╞Ж  67, 203, 87, 82, 73, 84, 84, 69)╨Ж  78, 96, 66, 217, 75, 69, 78, 78)<┌Ж  69, 84, 72, 96, 76, 96, 87, 85)cфЖ  69, 76, 90, 69, 210, 68, 73, 83)ЙюЖ  75, 96, 73, 83, 96, 76, 79, 67)░°Ж  75, 69, 196, 68, 73, 83, 75, 96)╓Ж  73, 83, 96, 85, 78, 76, 79, 67)¤Ж  75, 69, 196, 83, 79, 82, 82, 89*$Ж  108, 96, 96, 73, 78, 86, 65, 76*J Ж  73, 68, 96, 80, 65, 83, 83, 87*q*Ж  79, 82, 196, 68, 73, 83, 75, 96*Ш4Ж  69, 82, 82, 79, 210, 69, 78, 84*╛>Ж  69, 82, 96, 80, 65, 83, 83, 87*хHЖ  79, 82, 196, 76, 79, 67, 75, 69+	RЖ  68, 32, 32, 32, 32, 16, 0, 0+*\Ж  32, 0, 1, 128, 0, 0, 0, 0+HfЖ  0, 0, 0, 0, 0, 0, 0, 0+fpЖ  0, 0, 0, 0, 0, 0, 0, 0+МzЖ  0, 255, 0, 255, 0, 255, 0, 255+▓ДЖ  0, 255, 0, 255, 0, 255, 0, 255+╪ОЖ  0, 255, 0, 255, 0, 255, 0, 255+■ШЖ  0, 255, 0, 255, 0, 255, 0, 255,$вЖ  0, 255, 0, 255, 0, 255, 0, 255,JмЖ  0, 255, 0, 255, 0, 255, 0, 255,p╢Ж  0, 255, 0, 255, 0, 255, 0, 255,Ц└Ж  0, 255, 0, 255, 0, 255, 0, 255,╝╩Ж  0, 255, 0, 255, 0, 255, 0, 255,т╘Ж  0, 255, 0, 255, 0, 255, 0, 255-▐Ж  0, 255, 0, 255, 0, 255, 0, 255-.шЖ  0, 255, 0, 255, 0, 255, 0, 255-TЄЖ  0, 255, 0, 255, 0, 255, 0, 255-z№Ж  0, 255, 0, 255, 0, 255, 0, 255-аЖ  0, 255, 0, 255, 0, 255, 0, 255-╞Ж  0, 104, 0, 255, 0, 255, 0, 255-ьЖ  0, 255, 0, 255, 0, 255, 0, 255.$Ж  0, 255, 0, 255, 0, 255, 0, 255.8.Ж  0, 255, 0, 255, 0, 255, 0, 255.^8Ж  0, 255, 0, 255, 0, 255, 0, 255.ДBЖ  0, 255, 0, 255, 0, 255, 0, 255.кLЖ  0, 255, 0, 255, 0, 255, 0, 255.╨VЖ  0, 255, 0, 255, 0, 255, 0, 255.Ў`Ж  0, 255, 0, 255, 0, 255, 0, 255/jЖ  0, 255, 0, 255, 0, 255, 0, 255/BtЖ  0, 255, 0, 255, 0, 255, 0, 255/h~Ж  0, 255, 0, 255, 0, 255, 0, 255/ОИЖ  0, 255, 0, 255, 0, 255, 0, 255/┤ТЖ  0, 255, 0, 255, 0, 255, 0, 255/┌ЬЖ  0, 255, 0, 255, 0, 255, 0, 2550жЖ  0, 255, 0, 255, 0, 255, 0, 25 ┘)
:Г** FAST FOURIER TRANSFORM TEST **Q:Г**  R. KEARNS/ S. L. NORMAN    **y:Г**        JANUARY, 1984        **Ю
N9│512::ГNUMBER OF POINTS IN FFT▓М XR(N9),XI(N9)└Т 65495,0ч(U9│0::ГTIME-TO-FREQUENCY TRANSFORM2P9│1Eм9::ГTIME NORMALIZATION!<АI│1е100:XR(I)│1.0:Л-FБж 1000@PА I│1 е N9 й 8NZТ 65494,0gdЗ#м2,I,XR(I),XI(I):ЛvnЗ#м2, "  "ДxТ 65495,0ХВP9│1о(N9нP9)╝МU9│1::ГFREQUENCY-TO-TIME TRANSFORM╚ЦБж 1000╓аТ 65494,0¤кА I│1е N9 й 8:З#м2,I,XR(I),XI(I):Л ┤Т 65495,0 ╛К -ш:ГACTUAL FFT SUBROUTINE FЄH9│N9о2:Q9│N9м1:J9│1 l№M9│ Щ(N9)о.693147181:PI│3.1415926 {А I│1 е N9 ЯXR(I)│XR(I)нP9:XI(I)│XI(I)нP9:Л пА I9│1 е Q9 ├$Е I9▓│J9 з 1100 █.S9│XR(J9):T9│XI(J9) ¤8XR(J9) │ XR(I9):XI(J9)│XI(I9)!BXR(I9)│S9:XI(I9)│T9!LK9│H9!3VЕ K9▓│J9 з 1140!H`J9│J9мK9:K9│K9о2!TjБе 1110!atJ9│J9лK9!j~Л I9!ЕИЕ U9│0 з O9│м1 :Д O9│1!ХТА L9│1 е M9!йЬA9│2пL9:B9│A9о2!╖жD9│1:E9│0!╪░W9│ Х(PIоB9):Y9│O9н Е(PIоB9)!ш║А J9│1 е B9!■─А I9│J9 е N9 й A9"╬C9│I9лB9"=╪V9│XR(C9)нD9мXI(C9)нE9:Z9│XI(C9)нD9лXR(C9)нE9"cтXR(C9)│XR(I9)мV9:XI(C9)│XI(I9)мZ9"ЙьXR(I9)│XR(I9)лV9:XI(I9)│XI(I9)лZ9"ТЎЛ I9"вF9│D9:G9│E9"─
D9│F9нW9мG9нY9:E9│G9нW9лF9нY9"╥Л J9:Л L9"╪Р(1)│ О(N$(1),11) :Д N$(1)│N$(1)л б(1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;
А I│ 4096  е  5284 !Н X+Т I,X3(Л I?2в&H1000i<Ж  53, 16, 191, 18, 135, 189, 17, 115РFЖ  206, 4, 12, 142, 18, 2, 189, 17║PЖ  128, 206, 5, 75, 189, 17, 128, 206фZЖ  5, 136, 189, 17, 128, 189, 17, 210dЖ  198, 2, 189, 17, 199, 182, 19, 1847nЖ  129, 255, 16, 39, 0, 163, 189, 17_xЖ  115, 206, 4, 0, 142, 18, 51, 189ИВЖ  17, 128, 206, 4, 64, 142, 18, 101┤МЖ  189, 17, 128, 134, 255, 183, 18, 151▐ЦЖ  189, 17, 222, 198, 2, 189, 17, 188 
аЖ  182, 19, 184, 183, 19, 214, 134, 255 5кЖ  183, 19, 184, 142, 18, 152, 198, 69 ]┤Ж  166, 132, 129, 255, 39, 9, 48, 1 Ж╛Ж  140, 19, 152, 37, 243, 32, 6, 231 п╚Ж  132, 48, 1, 32, 235, 206, 19, 152 █╥Ж  142, 19, 168, 166, 192, 167, 128, 17!▄Ж  131, 19, 168, 37, 246, 16, 142, 0!.цЖ  0, 142, 18, 137, 206, 19, 200, 166!ZЁЖ  128, 31, 137, 192, 13, 231, 192, 129!·Ж  13, 39, 8, 49, 33, 16, 140, 0!й
Ж  12, 37, 236, 206, 19, 152, 142, 18!╒
Ж  115, 166, 128, 167, 192, 17, 131, 19! 
Ж  168, 37, 246, 198, 3, 189, 17, 188"'
"Ж  198, 3, 189, 17, 199, 206, 5, 64"Q
,Ж  142, 18, 37, 189, 17, 128, 189, 17"|
6Ж  210, 190, 18, 135, 52, 16, 126, 161"е
@Ж  193, 189, 17, 115, 206, 4, 0, 142"═
JЖ  18, 37, 189, 17, 128, 206, 4, 64"°
TЖ  142, 18, 101, 189, 17, 128, 79, 183#"
^Ж  18, 151, 189, 17, 222, 198, 2, 189#M
hЖ  17, 199, 142, 18, 137, 206, 19, 200#x
rЖ  95, 166, 128, 128, 13, 183, 18, 134#г
|Ж  166, 192, 177, 18, 134, 38, 80, 129#╔
ЖЖ  0, 39, 5, 92, 193, 12, 37, 233#Ї
РЖ  182, 19, 214, 183, 19, 184, 142, 19$!
ЪЖ  152, 206, 19, 168, 166, 192, 167, 128$K
дЖ  140, 19, 168, 37, 247, 198, 3, 189$u
оЖ  17, 199, 198, 2, 189, 17, 188, 142$б
╕Ж  18, 152, 198, 255, 166, 132, 129, 69$╚
┬Ж  39, 23, 48, 1, 140, 19, 152, 37$ё
╠Ж  243, 198, 3, 141, 119, 206, 5, 64%
╓Ж  142, 18, 51, 189, 17, 128, 126, 16%E
рЖ  198, 231, 132, 48, 1, 32, 221, 141%m
ъЖ  26, 206, 4, 36, 142, 18, 67, 189%Щ
ЇЖ  17, 128, 141, 110, 124, 18, 133, 182%┐
■Ж  18, 133, 129, 3, 16, 36, 3, 40%цЖ  126, 16, 5, 142, 4, 0, 134, 175&Ж  167, 128, 140, 6, 0, 37, 249, 57&8Ж  166, 128, 181, 18, 131, 38, 4, 167&d&Ж  192, 32, 245, 132, 127, 167, 192, 57&Н0Ж  190, 192, 6, 231, 132, 79, 167, 1&╖:Ж  134, 17, 167, 2, 182, 18, 132, 167&▀DЖ  3, 239, 4, 173, 159, 192, 4, 166'NЖ  6, 38, 5, 79, 183, 255,                                                                                                                                                                                                                                                                                          ┼ ╞┼┼┼%&'┴                            TITLE   BAS"1QTYPE   BAS#oFASTFOURBAS ▄K-LOCK  BAS!>FLASHCRDBAS$ЫINTERESTBASВ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                <DRIVE  0>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      .
Х200,15000:Ю'B$│"<HIT ENTER>":АX│15000е15103R(НOP$:N│ Й("&H"лOP$)c2ТX,N:S│SлN:ЛБ<З@72,"HOT COCO MAGAZINE "ЦFЗ@139,"PRESENTS"ЮPЗ:З╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"5iЗ@330,"NOVEMBER 1984"BnЗ@426,B$wxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120ВВБе 120╬МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO " ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *" ]ЫЗ@290,"*ALL PROGRAMS COPYRIGHT 1984*       * HOT COCO MAGAZINE *" БЬЗ@389,"** CW COMMUNICATIONS **" ОаЗ@458,B$ ─кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 ╧┤Бе 170!5╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0!=╚Ю:С!ж╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00"▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39"$цЖ 9F,AF,CF,BF"-ЁЖ 00EAT ENTRY":Бе 100"еnЗ:Й"FIRST PLAYER";N$(0):L5│ З(N$(0)):Е L5▓│11 з N$(0)│ О(N$(0),11) :Д N$(0)│N$(0)л б(11мL5," ")#xЙ"SECOND PLAYER";N$(1):L5│ З(N$(1)):Е L5▓│11 з N$(1)│ О(N$(1),11) :Д N$(1)│N$(1)л б(1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 l

Бе10$Й"NAME OF PROGRAM";P$ЦЮ:АZ│1е5:а100,5:З@(160л2),"SET RECORDER FOR":АQ│1е460:Л:З@(160л2),"SET RECORDER FOR 'RECORDING'":а100,5:Л:З:ЗїЙ"    IF READY PRESS 'ENTER'";Q$:Ю:Зд05)"PROGRAM BEING 'CSAVED'":ЯИ:АZ│1е3000:Л:Як:ШP$:З:ЗHЗд16м З(P$)о2)P$:Зд09)"DATE: 20MAR84":Зд09)"VERSION 01.02":АZ│1е460н4:Л:Ю:Бе10b
Т282,0:Х5000:МC$(100)ЫX│1:Ю:Й"MAX NO CHARACTERS PER LINE =";Y:Е Y│┤0 зY│64┐Зд06):Й"ENTER TAB POSITION";T:Ют(З@0,KлT"/"YмKмT;:З@23,"LINE"X; 
2З@33,"TAB='_'             REPEAT='^'"; #<A$│ Т:Е A$│"" з60 6FЕ A$│ Л(9)з 60 ]PV│ К(A$):Е V▓96░V┤123зV│Vм32:Бе100 sZЕV┤91░V▓64зV│Vл32 РdЗ@(96лKлT), Л(V); Л(207) ▓nK│Kл1:Е K▓Yм4 ░ K┤Yм1 за200,1 ╥xЕ A$│"_" ▒ A$│ Л(13) зK│Kм1 ЎВЕ A$│ Л(8)░K┤2зA$│"":K│Kм1:Бе40!МЕ A$│ Л(8)зБж240:K│Kм2!&ЦЕ K┤0 зK│0:A$│""!;аЕ K▓Y зK│Y:Бж260!OкЕ K│▓Yм1 за30,1!b┤Е K│▓Y за30,30!s╛Е A$│"_" з30!Д╚Е A$│"^"з280!С╥B$│B$лA$!ю▄Е A$│ Л(13)░ Ж(1120лK)┤▓94зA$│"":Ю:З#м2,дT);B$л Л(27):C$(X)│C$(X)лB$:X│Xл1:B$│"":T│0:K│0!ўцБе40"	ЁN$│ О(B$,Kм2)"·B$│N$:A$│"":Р"+
N$│ О(B$,K)"=
B$│N$:A$│"":Р"\
АZ│1еX:З#м2,C$(Z)л Л(27):Л"e
"Бе40"k
,К5▓│11 з N$(0)│ О(N$(0),11) :Д N$(0)│N$(0)л б(11мL5," ")#xЙ"SECOND PLAYER";N$(1):L5│ З(N$(1)):Е L5▓│11 з N$(1)│ О(N$(1),11) :Д N$(1)│N$(1)л б(1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ш)
В FLASHCARDS BY DAVID MEREDITH 1983═BL$│ б(2,128):Q0│36:Q1│53:A2│296:A3│313:T0│392:T1│409:В Q0 (Q1) IS SCREEN LOCATION OF LEFT (RIGHT) PROBLEM; A IS LOCATIONS OF ANSWERS, T IS LOCATIONS OF SCORESЫМL(1,10):А I│0 е 1:А J│0 е 2:А K│0е2:L(I,3нJлKл1)│1221л17нIм32нJл2нK:Л K:ЛJ:ЛI:L(0,0)│1253:L(1,0)│1270:L(0,10)│1255:L(1,10)│1272:В L(0,I) IS LOCATION OF DIGIT I ON LEFT KEYPAD, L(1,I) IS SAME FOR RIGHTз(М N$(1)р2Ю:З:З"           flash cards":З:З"INPUT PROBLEM TYPE в<З"   A   FOR ADDITION":З"   S   FOR SUBTRACTION":З"   AS  FOR ADD AND SUBTRACT":З"   M   FOR MULTIPLICATION":З"   D   FOR DIVISION":З"   MD  FOR MULTIPLY AND DIVIDE":З"   ALL FOR ALL TYPES"!)FВ LATER L6 AND L7 ARE USED TO SELECT PROBLEM TYPE--TYPE = RND(L6)+L7, A VALUE BETWEEN 1 AND 4 INDICATING ADD, SUB, MULT, OR DIVIDE!╥PЙ C$:ЕC$│"A"зL6│1:L7│0:ДЕC$│"S"зL6│1:L7│1:ДЕC$│"AS"зL6│2:L7│0:ДЕC$│"M"зL6│1:L7│2:ДЕC$│"D"зL6│1:L7│3:ДЕC$│"MD"зL6│2:L7│2:ДЕC$│"ALL"зL6│4:L7│0:ДЗ"REPEAT COMMAND":Бе80"ZЗ:З"HOW MANY TO WIN?  (ENTER -1":З"TO SUPPRESS SCORING.)""AdЙ WN:Е WN┤м1 ▒ WN│0 з З"REPEAT ENTRY":Бе 100"еnЗ:Й"FIRST PLAYER";N$(0):L5│ З(N$(0)):Е L5▓│11 з N$(0)│ О(N$(0),11) :Д N$(0)│N$(0)л б(11мL5," ")#xЙ"SECOND PLAYER";N$(1):L5│ З(N$(1)):Е L5▓│11 з N$(1)│ О(N$(1),11) :Д N$(1)│N$(1)л б(11мL5," ")#┼ВЮ:З@15,BL$:З@47,BL$:З@79,BL$:З@111,BL$:З@133,"7 8 9     ";BL$;"     7 8 9":З@165,"4 5 6     ";BL$;"     4 5 6":З@197,"1 2 3     ";BL$;"     1 2 3":З@229,"0 ERASE   ";BL$;"     0 ERASE"$МЗ@271 , BL$:З@289,"ANSWER        ";BL$;" ANSWER      ":З@335,BL$:З@367,BL$;$UЦЕ WN▓0 з З@386,"SCORE 0      ";BL$;"  SCORE 0" :Д З@399,BL$$йаЗ@431,BL$:З@452 , N$(0);BL$;"    ";N$(1)"               ";BL$;"              ";%UкW$│"winner     ":S0│0:S1│0:P0│1:P1│1:В S0,S1=SCORES OF PLAYERS 0(LEFT) AND 1(RIGHT); P0 AND P1 KEEP TRACK OF NEXT INSTRUCTION IN COROUTINES FOR LEFT AND RIGHT PLAYERS.%Ф┤В BEGIN COROUTINE FOR LEFT PLAYER.  CHOOSE A PROBLEM FIRST&╛P0│1:И P1 Бе 550,690,750,830,860:В SWITCH TO COROUTINE FOR RIGHT PLAYER. P0 HOLDS VALUE INDICATING RETURN TO THIS POINT&:╚X│ Д(м Я):В RANDOMIZE RANDOM FUNCTION&▒╥И  Д(L6)лL7 Бе 220,250,270,300:В CHOOSE ADDITION, SUBTRACTION, MULTIPLICATION, OR DIVISION PROBLEM FOR LEFT PLAYER&╓▄A0│ Д(10)м1:B0│ Д(10)м1:N0│A0лB0&ъцЗ@Q0,A0;"+";B0;&їЁБе 320'·B0│ Д(9):N0│ Д(9):A0│N0лB0'/
З@Q0,A0;"-";B0;:Бе 320'T
A0│ Д(10)м1:B0│ Д(10)м1:N0│A0нB0'h
З@Q0,A0;"*";B0;'s
"Бе 320'Х
,N0│ Д(10)м1:B0│ Д(9):A0│N0нB0'й
6З@Q0,A0;"/";B0;(
@P0│2:И P1 Бе 550,690,750,830,860:В SWITCH TO COROUTINE FOR RIGHT PLAYER, REMEMBER TO COME BACK HERE(Я
JM0│0:L0│5:I│L(0,L0):Т I, Ж(I)м64:З@A2,"     ";:В SET LEFT ANSWER M0=0 AND PUT CURSOR ON 5 TO START AND BLANK ANSWER FROM PREVIOUS PROBLEM(╧
TВ GET JOYSTICK POSITION TO MOVE LEFT CURSOR)
^J2│ Н(2):Е J2┤20 з J2│0 :Д Е J2┤43 з J2│1 :Д J2│2)M
hJ3│ Н(3):Е J3┤16 з J3│0 :Д Е J3┤32 з J3│1 :Д Е J3┤48 з J3│2 :Д J3│3)и
rЕ J3┤3 з K0│J2м3нJ3л7 :Д Е J2│0 з K0│0 :Д K0│10:В K0=NEXT KEY TO GET CURSOR (10=ERASE))Ї
|P0│3:И P1 Бе 550,690,750,830,860:В SWITCH TO COROUTINE FOR RIGHT PLAYER*
ЖЕ K0│L0 з 420:В IF CURSOR NOT MOVED*е
РI│L(0,L0):Т I, Ж(I)л64:L0│K0:I│L(0,L0):Т I, Ж(I)м64:В MOVE LEFT CURSOR FROM OLD POSITION TO NEW POSITION, WHICH BECOMES OLD POSITION+^
ЪВ CHECK FIRE BUTTON--IF IT IS PUSHED AND WAS NOT PUSHED LAST TIME THROUGH HERE, ADD DIGIT TO ANSWER AND CHECK FOR CORRECT ANSWER.  V1=1 IF LAST TIME THROUGH HERE BUTTON WAS PUSHED.+м
дЕ ( Ж(65280) ░ 2) з V0│0:Бе350:Е FIRE BUTTON и PUSHED з RECHECK JOYSTICKS+┼
оЕ V0│1 з 350 :Д V0│1+ц
╕Е L0│10 з 520:В IF ERASE KEY,f
┬Е M0┤1000 з M0│10нM0лL0:З@A2,M0;:В IF LEFT ANSWER LESS THAN 4 DIGITS THEN ADD NEW DIGIT TO ANSWER AND PRINT OVER OLD ANSWER,▓
╠P0│4:И P1 Бе 550,690,750,830,860:В RETURN TO COROUTINE FOR RIGHT PLAYER-	
╓Е M0┤▓N0 з 350:В IF ANSWER NOT YET CORRECT GET NEW CURSOR POSITION FROM JOYSTICKS.-╫
рI│1024лA2:А J│I е Iл4:Т J, Ж(J)м64:Л J:Е WN▓0 зS0│S0л1:З@T0,S0;:Е S0│WN з 900:В SINCE ANSWER CORRECT THEN REVERSE PRINT ANSWER AND ADD ONE TO SCORE IF KEEPING SCORE.  IF WINNING SCORE ACHIEVED,GOTO 930-х
ъP0│5:C0│0.b
ЇЕ C0┤5 з C0│C0л1:И P1 Бе 550,690,750,830,860:В GOTO RIGHT COROUTINE 5 TIMES TO DELAY INTRODUCTION OF NEW PROBLEM ON LEFT.╤
■I│L(0,L0):Т I, Ж(I)л64:З@A2,"     ";:Бе 190:В TURN OFF CURSOR, ERASE LAST ANSWER, AND GO GET A NEW PROBLEM/З@A2,"     ";:M0│0:Бе350:В ERASE LEFT ANSWER/)В BEGIN COROUTINE FOR RIGHT PLAYER/ЕP1│1:И P0 Бе 200,330,390,470,500:Р е COROUTINE А LEFT ╔ER.  P1 INDICATES е REETURN HERE/п&X│ Д(м Я):В RANDOMIZE RANDOM FUNCTION0'0И  Д(L6)лL7 Бе 570,600,630,660:В CHOOSE ADDITION, SUBTRACTION, MULTIPLICATION, OR DIVISION PROBLEM FOR RIGHT PLAYER0L:A1│ Д(10)м1:B1│ Д(10)м1:N1│A1лB10_DЗ@Q1,A1;"+";B10jNБе 6800ЙXB1│ Д(9):N1│ Д(9):A1│N1лB10гlЗ@Q1,A1;"-";B1:Бе 6800╚vA1│ Д(10)м1:B1│ Д(10)м1:N1│A1нB10█АЗ@Q1,A1;"*";B10цКБе 6801ФN1│ Д(10)м1:B1│ Д(9):A1│N1нB11ЮЗ@Q1,A1;"/";B11yиP1│2:И P0 Бе 200,330,390,470,500:Р е COROUTINE А LEFT ╔ERммUSE P1 е ВEMBER TO RETURN HERE1█▓M1│0:L1│5:I│L(1,L1):Т I, Ж(I)м64:В SET RIGHT ANSWER M1=0 AND PLACE RIGHT CURSOR ON 5 TO START2╝В GET JOYSTICK POSITION TO MOVE RIGHT CURSOR2B╞J0│ Н(0):Е J0┤20 з J0│0 :Д Е J0┤43 з J0│1 :Д J0│22К╨J1│ Н(1):Е J1┤16 з J1│0 :Д Е J1┤32 з J1│1 :Д Е J1┤48 з J1│2 :Д J1│32ч┌Е J1┤3 з K1│J0м3нJ1л7 :Д Е J0│0 з K1│0 :Д K1│10:В K1=NEXT KEY TO GET CURSOR   (10=ERASE)32фP1│3:И P0 Бе 200,330,390,470,500:В RETURN TO COROUTINE FOR LEFT PLAYER3ZюЕ K1│L1 з 780:В IF CURSOR NOT MOVED3э°I│L(1,L1):Т I, Ж(I)л64:L1│K1:I│L(1,L1):Т I, Ж(I)м64:В MOVE RIGHT CURSOR FROM OLD POSITION TO NEW POSITION AND MAKE OLD POSITION = NEW POSITION4жВ CHECK FIRE BUTTON--IF IT IS PUSHED AND WAS NOT PUSHED LAST TIME THROUGH HERE, ADD DIGIT TO ANSWER AND CHECK FOR CORRECT ANSWER.  V1=1 IF LAST TIME THROUGH HERE BUTTON WAS PUSHED.4■Е ( Ж(65280) ░ 1) з V1│0: Бе 710:В IF FIRE BUTTON NOT PUSHED THEN RECHECK JOYSTICKS5Е V1│1 з 710 :Д V1│158 Е L1│10 з 880:В IF ERASE KEY5╣*Е M1┤1000 з M1│10нM1лL1:З@A3,M1;:В IF RIGHT ANSWER LESS THAN 4 DIGITS THEN ADD NEW DIGIT TO ANSWER AND PRINT OVER OLD ANSWER64P1│4:И P0 Бе 200,330,390,470,500:В RETURN TO COROUTINE FOR LEFT PLAYER6]>Е M1┤▓N1 з 710: В IF ANSWER NOT YET CORRECT, GET NEW CURSOR POSITION FROM JOYSTICKS.7,HI│1024лA3:А J│I е Iл4:Т J, Ж(J)м64:Л J:Е WN▓0 з S1│S1л1:З@T1,S1:Е S1│WN з 900:В SINCE ANSWER CORRECT THEN REVERSE PRINT IT, ADD TO SCORE IF KEEPING SCORE AND LEAVE COROUTINES  IF WINNING SCORE ACHIEVED.7:RP1│5:C1│07═\Е C1┤5 з C1│C1л1:И P0 Бе 200,330,390,470,500:В GO TO LEFT COROUTINE 5 TIMES AFTER CORRECT ANSWER TO DELAY INTRODUCTION OF NEW PROBLEM ON RIGHT88fI│L(1,L1):Т I, Ж(I)л64:З@A3,"     ":Бе 540:В TURN OFF CURSOR, ERASE LAST ANSWER, AND GET A NEW PROBLEM8kpЗ@A3,"     ";:M1│0:Бе 710:В ERASE RIGHT ANSWER8йzВ INDICATE WHICH PLAYER WON AND BEGIN NEW GAME IF DESIRED8─ДЕ S0│WN з PP│0 :Д PP│18╘ОF│452л17нPP8яША I│1 е 3:З@F,W$;: Я│09вЕ  Я ┤30 з 9309мЗ@F,N$(PP);: Я │09+╢Е  Я ┤30 з 9509U└Л I:З@F,W$;:З@488,"SAME GAME (Y/N)?";9Ч╩R$│ Т:Е R$│"" з 970 :Д Е R$│"Y" з 130 :Д Е R$│"N" з 50 :Д 970ж160:Бж5609┬@Й"LOAN AMOUNT   ";P:Бж1809фJЗ"PAYMENT EACH 1/"T"YEAR":Й A:TY│( Щ(A)м Щ(AмRнP))о(