TAXES PAID,340 MISC. (TAX DED.)NSE,220 WATER,230 MORTGAGE,240 GAS & ELECTRIC,250 TELEPHONE,260 CAR EXPENSE,270 INSURANCE8╛Ж 280 HOUSE REPAIRS,281 ANNUITY,282 MISC. EXPENSE,283 LOAN PAYMENTS,300 MEDICAL EXPENSE,310 CONTRIBUTIONS,320 INTEREST PAID,330                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &":Г* YEARLY REPORT PROGRAM *&C:Г* FOR USE WITH *&d:Г* HOME FINANCIAL ANALYST *&Е:Г* 4/85 BY DAN PIERSMA *&П Бе184&╕ :ГDIMENSION DATAFILES & DESCRIPTIONS' Х5500:МA$(100),B$(100),C$(100),D$(100),E$(100),M$(12),AD$(25),AN$(25),AN(25)'::ГSET BAUD 1200 & DEFINE NONVARIABLE STRINGS'ЕТ150,41:U$│ б(80,"-"):BG$│ б(10,"."):BP$│"BUDGET PLAN FOR .../.../..."'Э:ГREAD DESCRIPTIONS'─АM│1е12:НM$(M):Л:АY│1е25:НAD$(Y):Л'╓:ГENTER DATES(0Ю:З@9,"ANNUAL REPORT":З:З" ENTER BEGINNING MONTH AND YEAR AND ENDING MONTH AND YEAR"(░З:ЗV$:Й" BEGINNING MONTH (MM) ";BM:Й" BEGINNING YEAR (YYYY)";BY$:Й" ENDING MONTH (MM) ";EM:Й" ENDING YEAR (YYYY)";EY$(╩EY│ Й(EY$):BY│ Й(BY$)(▌ ЕBM┤1▒BM▓12з26(Ё"ЕEM┤1▒EM▓12з26)$ЕBY┤1984▒BY▓1988з26)"&:ГCREATE REPORT TITLE):(ЕEY┤(BY)▒EY▓1988з26)k*RTITLE$│M$(BM)л"-"лBY$л" TO "лM$(EM)л"-"лEY$)Г,ЕEM┤(BM)зEM│(EM)л12)д.:ГPRINT BUDGET PLANNING FORM)э0Ю:З@163,"WOULD YOU LIKE TO PRINT A BUDGET PLANNING FORM "*2L$│ Т:ЕL$│"Y"з54*4ЕL$│"N"з76:Д50*q6Ю:З@201,"HARDCOPY ONLY":З"IF PRINTER IS READY PRESS

PRESS TO SKIP TO REPORTS"*Ж8L$│ Т:ЕL$│"C"з76*Щ:ЕL$│"P"з60:Д56*╬<Ю:З@204,"PRINTING":З" BUDGET PLANNING FORM"+>З#м2,U$:З#м2,д28)"BUDGET PLANNING FORM":З#м2,U$:З#м2:З#м2,BP$д40)BP$:З#м2+/@АY│1е5:Бж70:ЛY+@BЗ#м2,U$:З#м2+YDАY│6е25:Бж70:ЛY:Бе72+ИFЗ#м2,AD$(Y)д25)BG$д40)AD$(Y)д65)BG$:З#м2:Р+ШHЗ#м2, Л(12)+пJ:ГGENERATE REPORTS,LЮ0:З@160," REPORT GENERATION":З"PRINT HARD COPY REPORTS ?":З" PRESS TO END PROGRAM",4NL$│ Т:ЕL$│"Y"зH│1:Бе84,CPЕL$│"N"з84,URЕL$│"E"зК:Д78,вTЙ"ENTER COST OF LIVING RATE FOR BUDGET PROJECTIONS IN %";I:I│(Iо100)л1,ыVЙ"ENTER CHECKBOOK BALANCE";CH:Й"ENTER SAVINGS BALANCE ";SA:BA│SAлCH-XАY│1е25:AN$(Y)│ Р(AD$(Y),1,3):ЛY-VZTITLE$│M$(BM)л"-"лBY$:Бж172:АX│0еCм1:ЕAN$(1)│ Р(B$(X),1,3)з92:Д94-j\AN(1)│ Й(C$(X))-q^ЛX-Г`АYY│(BM)е(EM)-ЧbЕYY▓12з100:Д102-└dS│(YY)м12:TITLE$│M$(S)л"-"лEY$:Бе104-┌fTITLE$│M$(YY)л"-"лBY$. hБж172:Ю:З@195,"CALCULATING ACCOUNT TOTALS".jАY│2е25."lАX│0еCм1.WnЕAN$(Y)│ Р(B$(X),1,3)зAN(Y)│AN(Y)л Й(C$(X)):Д112.epЛX:ЛY:ЛYY.wrЕH│0з116:Д118.┤tАY│1е25:ЗAD$(Y):З═"$#####.##";AN(Y):АT│1е900:ЛT:ЛY:Бе124/vЗ#м2,д30)RTITLE$:З#м2:З#м2,U$:З#м2,д3)"ACCOUNT NUMBER"д37)"CREDIT"д52)"DEBIT":З#м2,U$:З#м2/IxАY│1е5:З#м2,AD$(Y)д35):З#м2,═"$#####.##";AN(Y):ЛY/АzАY│6е25:З#м2,AD$(Y)д50):З#м2,═"$#####.##";AN(Y):ЛY/Ъ|АY│1е5:TI│AN(Y)лTI:ЛY/╡~АY│6е25:TE│AN(Y)лTE:ЛY/╨АCB│TIмTE:ЕH│0з130:Д14005ВЮ:З@160,"TOTAL INCOME $";TI:З"TOTAL EXPENSE $";TE:З"YEAR END CASH BALANCE $";CB0УДЗ"CHECKBOOK BALANCE $";CH:З"SAVINGS BALANCE $";SA:З"TOTAL CASH ON HAND $";BA0пЖЕ Б(BA)│ Б(CB)з136:Д1380щИЗ" ******STATEMENT BALANCES******":АT│1е1500:ЛT:Бе1541КЗ"STATEMENT OUT OF BALANCE - REDO":К1ДМЗ#м2:З#м2,"BEGINNING BALANCE & INCOME"д35):З#м2,═"$#####.##";TI:З#м2,"TOTAL EXPENSE"д35):З#м2,═"$#####.##";TE1╝ОЗ#м2,"END OF YEAR BALANCE"д35):З#м2,═"$#####.##";CB2\РЗ#м2:З#м2,"CHECKBOOK BALANCE"д35):З#м2,═"$#####.##";CH:З#м2,"SAVINGS BALANCE"д35):З#м2,═"$#####.##";SA:З#м2,"CASH BALANCE ON HAND"д35):З#м2,═"$#####.##";BA2xТЕ Б(BA)│ Б(CB)з148:Д1502╣ФЗ#м2:З#м2,д27)"****STATEMENT BALANCES****":З#м2, Л(12):Бе1543ЦЕH│1зЗ#м2,"********STATEMENT DOES NOT BALANCE. PLEASE FIND YOUR ERROR AND REDO********":К3:Ш:ГFORMULATE BUDGET PROJECTIONS3LЪA│(EM)м(BMм1)3wЬАY│2е25:AN(Y)│AN(Y)оA:AN(Y)│AN(Y)нI:ЛY3ЙЮЕH│0з160:Д1623цаЮ:З"MONTHLY BUDGET PROJECTIONS":АY│2е25:ЗAD$(Y):З═"$#####.##";AN(Y):АT│1е900:ЛT:ЛY:Бе1684ZвЗ#м2,д28)"MONTHLY BUDGET PROJECTIONS":З#м2:З#м2,U$:З#м2,д3)"ACCOUNT NUMBER"д37)"CREDIT"д52)"DEBIT":З#м2,U$:З#м24СдАY│2е5:З#м2,AD$(Y)д35):З#м2, ═"$#####.##";AN(Y):ЛY5 жАY│6е25:З#м2,AD$(Y)д50):З#м2, ═"$#####.##";AN(Y):ЛY:З#м2:З#м2,"MULTIPLIED BY"I" FOR RISE IN COST OF LIVING":З#м2, Л(12)5иК59к:ГLOAD FILES FROM DISK SUBROUTINE5змАX│0еCм1:A$(X)│"":B$(X)│"":C$(X)│"":D$(X)│"":E$(X)│"":ЛX:Ю:З@140,"LOADING":З@203,TITLE$:З@267,"DATA FILE"5╜оЩ "I", #1, TITLE$5┼░X│05Є▓Й #1,A$(X),B$(X),C$(X),D$(X),E$(X):X│Xл16 ┤Е М(1)│м1з182:Д1786╢Ъ #1:C│X:Р6$╕└1:Бе147 ║Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,100 CASH BALANCE,110 EARNED INCOME,120 INTEREST INCOME,130 MISC. TAXABLE INCOME,140 NON-TAXABLE INCOME,200 FEDERAL WITHOLDING,201 FICA,202 STATE WITHOLDING,203 LOCAL WITHOLDING7{╝Ж 210 GROCERY EXPENSE,220 WATER,230 MORTGAGE,240 GAS & ELECTRIC,250 TELEPHONE,260 CAR EXPENSE,270 INSURANCE8╛Ж 280 HOUSE REPAIRS,281 ANNUITY,282 MISC. EXPENSE,283 LOAN PAYMENTS,300 MEDICAL EXPENSE,310 CONTRIBUTIONS,320 INTEREST PAID,330▓"2" з 1730\%╠I│ Й(I$):И I Бе 70,160\K╓Е DF(XX)│1 з 160 :Д Е ZZ┤2 з 1835\qрА PP│1 е NP:Z(PP)│WB(PP):X│0:Л PP\{ъX│Xл1\МЇЕ X▓4 з 1800\а■Е Z(X)┤0 з 1770\оА Y│1 е 4\─Е Z(Y)▓Z(X) з X│Y\╠Л Y\╒&WF│X]+А RR│1 е 144:Е BS(RR)│XX ▒ BS(RR)│XXл4 з BG(RR)│0:Л RR :Д Л RR]F0Ю:З@268,"PLAYER"XX:З@301,"WEEK"ZZ:а 100,1]_:I$│ Т:Е I$│"" з 1850]┼DЗ"WELCOME GUILDMASTER OF THE GUILD"GN$(XX):Е WF│XX з З"THE WIZARD SENDS A NOTE OF ALLIANCE."]█NА PP│1 е 920:Л PP^2SЙ"HOW MUCH GOLD DO YOU WISH TO SPEND ON THE WIZARD";WB(XX):GP(XX)│GP(XX)мWB(XX)^uXGP(XX)│GP(XX)лTI(XX):TI(XX)│IC(XX):TB(XX)│AF(XX):LI(XX)│QI(XX)^{[Р^Ы]TI(XX)│IC(XX):TB(XX)│AF(XX)^бbР^┘lЮ:З"MONEYLENDERS":А Y│1 е 6:ЗY;:ЗML$(Y):Л Y:Бе 2010^ЄvЮ:З"INNS":А Y│1 е 20_АЕ Y│15 з I$│ Т:Е I$│"" з 1920_3КЗYл6;:З IN$(Y):Л Y:Бе 2010_QФЮ:З"CRAFTSMEN":А Y│1 е 50_БЮЕ Y│15 ▒ Y│30 ▒ Y│45 з I$│ Т:Е I$│"" з 1950_биЗYл26;:З CM$(Y):Л Y:Бе 2010_╜▓Ю:З"FARMERS":А Y│1 е 60_Ї╝Е Y│15 ▒ Y│30 ▒ Y│45 ▒ Y│55 з I$│ Т:Е I$│"" з 1980`╞ЗYл76;:З FM$(Y):Л Y:Бе 2010`N╨Ю:З"LIVESTOCK TRADERS":А Y│1 е 8:ЗYл136;:З LT$(Y):Л Y`k┌З"(R)ETURN OR (C)ONTINUE`ЭфI$│ Т:Е I$│"R" з Р :Д Е I$│"C" з 2030 :Д 2020`ўюЮ:З"1. MONEYLENDERS":З"2. INNS":З"3. CRAFTSMEN":З"4. FARMERS":З"5. LIVESTOCK TRADERS"a9°Й WG:Е WG┤1 ▒ WG▓5 з 2030 :Д И WG Бе 1900,1910,1940,1970,2000alЕ BS(AT)┤1 з 2060 :Д Е BS(AT)┤5 з 2070 :Д 2090ar Рa┘QD(AT)│BS(AT):Е AT┤7 з RN│200 :Д Е AT┤27 з RN│260 :Д Е AT┤77 з RN│28 :Д Е AT┤137 з RN│20 :Д RN│210aх Бе 2100b\*QD(AT)│BS(AT):BS(AT)│BS(AT)м4:Е AT┤7 з RN│450 :Д Е AT┤27 з RN│600 :Д Е AT┤77 з RN│60 :Д Е AT┤137 з RN│40 :Д RN│420bv4Е PM│1 з 2110 :Д 2120b┐>IC(BS(AT))│IC(BS(AT))мZX(AT):AL(BS(AT))│AL(BS(AT))м1:BS(AT)│QD(AT):Рc"HZX(AT)│ZX(AT)л Д(RNмZX(AT)):IC(BS(AT))│IC(BS(AT))лZX(AT):BS(AT)│QD(AT):QI(BS(AT))│IC(BS(AT)):РcВRЮ:З"DO YOU REALLY,REALLY WANT TO QUIT THIS AWESOMELLY FUN GAME? (ARE YOU POSITIVE ???)"cж\Й VV$:Е VV$│"Y" ▒ VV$│"YES" з Кc░fБе 70c└kHA│SM:HB│OFc°pOA│(OFн2)л20:AA│SM:ЗAA"ATTACKERS";" "OF"DEFENDERS"dczXF│ Д(10):YF│ Д(15):Е (XFлOA)▓(YFлAA) з SM│SMм Б(((XFлOA)м(YFлAA))о2) :Д OF│OFм Б(((YFлAA)м(OAлXF))о2)dТДЕ OF┤0 з OF│0:LO│AG :Д Е SM┤0 з SM│0:LO│XXd─ОЗ"ATTACKING FORCES:"SM:З"DEFENDING FORCES:"OFeШЕ OF│0 ▒ SM│0 з HA│ В(SMмHA):AF(XX)│AF(XX)мHA:HB│ В(OFмHB):AF(AT)│AF(AT)мHB:Р :Д 2160eYвЮ:З"BAD GONZO WHOPPER ERROR. IT'S ALL YOUR FAULT!":КXF))о2)dТДЕ OF┤0 з OF│0:LO│AG :Д Е SM┤0 з SM│0:LO│XXd─ОЗ"ATTACKING FORCES:"SM:З"DEFENDING FORCES:"OFeШЕ OF│0 ▒ SM│0 з HA│ В(SMмHA):AF(XX)│AF(XX)мHA:HB│ В(OF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                З"YOUR THIEVES WERE DISCOVERED... BUT THEY ESCAPED.":А PP│1 е 920:Л PP:Бе 970Jй░Ю:Й"WHICH BUSINESS DO YOU WISH TO STEAL FROM (0 FOR LIST)";AT:Е AT│0 з Бж 1900:Бе 1200KM║Й"HOW MANY MEN ARE YOU SENDING";SM:Е SM▓TB(XX) ▒ SM┤1 з З"YOUR MATH SKILLS WERE PROBABLY WHAT CAUSED YOUR POVERTY IN THE FIRST PLACE":А PP│1 е 920:Л PP:Бе 970KЦ─TB(XX)│TB(XX)мSM:PD│ Д(100):Е (PDлSMн2)м(BG(AT)л40)▓0 з 1230 :Д 1250L╬PD│ Д(100):З"YOUR THIEVES STRUCK SWIFTLY AND STOLE"PD"GOLD PIECES":GP(XX)│GP(XX)лPD:А PP│1 е 920:Л PP:Бе 970L.╪PD│ Д(100): Е PD▓36 з 1260 :Д 1250L│тЗ"THE CITY GUARD JUST LOVED KILLING YOUR THIEVES FOR 'RESISTING ARREST'.":AF(XX)│AF(XX)мSM:А PP│1 е 920:Л PP:Бе 970MьЗ"YOUR THIEVES MESSED UP, BUT WERENOT CAPTURED":А PP│1 е 920:Л PP:Бе 970M>ЎЮ:Й"HOW MANY BRAVE SOULS ARE GOING TO ROB THE WIZARD";SMMйЕ TB(XX)┤SM ▒ SM┤1 з З"THE WIZARD DOESN'T BELIEVE IN NON-MAGICAL ILLUSIONS":А PP│1 е 920:Л PP:Бе 970Mс TB(XX)│TB(XX)мSM:PD│ Д(100):Е PD┤50 з WQ│1 :Д WQ│10NPD│ Д(100):Е (PDмSM)┤(WQл1) з 1310 :Д 1320N┐PD│ Д(10000):З"YOUR MEN ARE SURE TO REACH LEGENDARY STATUS. YOU GOT LUCKY AND STOLE"PD"GOLD PIECES FROM A CARELESS WIZARD.":GP(XX)│GP(XX)лPD:А PP│1 е 920:Л PP:Бе 970N┘(Е WQ┤2 з 1330 :Д 1340Og2З"THE WIZARD WAS HOME. ALL YOUR MEN MET HORRIBLE DEATHS BUT THE PROPERTY DAMAGE WAS MINIMAL.":AF(XX)│AF(XX)мSM:А PP│1 е 920:Л PP:Бе 970O╪<З"THE WIZARD'S DEADLY MAGIC TRAPS DESTROYED YOUR HAPLESS THIEVES.":AF(XX)│AF(XX)мSM:А PP│1 е 920:Л PP:Бе 970PВFЮ:З"ARMED CONFLICT":З"1. RECRUIT LOCALS":З"2. HIRE MERCENARIES":З"3. TRAIN AND EQUIP RECRUITS":З"4. AMBUSH A GUILD":З"5. AMBUSH A BUSINESS":З"6. RETURN TO MAIN MENU"PнPI$│ Т:Е I$│"" ▒ I$┤"1" ▒ I$▓"6" з 1360P▀ZI│ Й(I$):И I Бж 1400,1420,1450,1470,1500,1390PхdРPыnРQБxЕ TB(XX)┤2 з З"YOU DON'T HAVE ENOUGH MEN TO RECRUIT.":А PP│1 е 920:Л PP:Бе 1350 :Д TB(XX)│TB(XX)м2:Й"HOW MUCH MONEY ARE YOU GOING TO SPEND";SMRZВЕ SM▓GP(XX) з З"PROMISES... BUT WHERE'S THE MONEY":А PP│1 е 920:Л PP:Бе 1350 :Д GP(XX)│GP(XX)мSM:PD│ Д(50):SR│ Б(SMоPD):RC(XX)│RC(XX)лSR:З"YOU BEAT THE BUSHES AND FOUND"SR"NEW RECRUITS":А PP│1 е 920:Л PP:Бе 1R═МЕ TB(XX)┤1 з З"THEY WON'T JUST COME TO YOU, YOU MUST GO TO THEM.":А PP│1 е 920:Л PP:Бе 1350 :Д TB(XX)│TB(XX)м1SеЦЙ"HOW MUCH TO YOU WISH TO SPEND ON MERCS";SM:Е SM▓GP(XX) з З"MERCENARIES ARE PAID SOLDIERS.":А PP│1 е 920:Л PP:Бе 1350 :Д GP(XX)│GP(XX)мSM:SR│ Б(SMо100):З"YOU HIRED"SR"MERCS.":AF(XX)│AF(XX)лSR:А PP│1 е 920:Л PS▒аБе 1350TГкЮ:З"YOU HAVE"RC(XX)"RECRUITS.":Й"HOW MUCH DO YOU WANT TO SPEND ONTRAINING";SM:Е GP(XX)┤SM з З"TEACHERS' SALARIES ARE A BIT HIGHER THAN WHAT YOU HAVE, BUT YOUR OFFER WAS NICE.":А PP│1 е 920:Л PP:Бе 1350T╚┤GP(XX)│GP(XX)мSM:PD│ Д(150):SR│ Б(SMоPD):Е SR▓RC(XX) з SR│RC(XX)U5╣З"YOU TRAINED AND EQUIPED"SR" RECRUITS.":RC(XX)│RC(XX)мSR:AF(XX)│AF(XX)лSR:А PP│1 е 920:Л PP:Бе 1350U┘╛Ю:Й"WHICH GUILD DO YOU WISH TO AMBUSH";AG:Й"HOW MANY MEN WILL YOU SEND";SM:Е SM▓TB(XX) з З"DON'T SEND MORE MEN THAN YOU HAVE":А PP│1 е 920:Л PP:Бе 1350Uю├TB(XX)│TB(XX)мSMV[╚OF│GG(AG):Бж 2155:Е LO│XX з З"YOU HAVE LOST YOUR BID TO DESTROY GUILD"AG:А PP│1 е 920:Л PP:Бе 1350Vл╥З"YOU HAVE WON!!! CANDIDATE"AG" IS DEAD":GS(AG)│1:А PP│1 е 920:Л PP:Бе 1350W@▄Ю:Й"WHICH BUSINESS WILL YOU AMBUSH";AG:Й"HOW MANY MEN WILL YOU SEND";SM:Е SM▓TB(XX) з З"YOU HAVE TOO FEW TROOPS LEFT.":А PP│1 е 920:Л PP:Бе 1350WUсTB(XX)│TB(XX)мSMWмцOF│BG(AG):Бж 2155:Е LO│XX зЗ"BUSINESS"AG"IS STILL OPEN.":А PP│1 е 920:Л PP:Бе 1350XЁЗ"YOU HAVE SUCCEEDED IN CLOSING BUSINESS"AG".":BT(AG)│1:PM│1:AT│AG:Бж 2050:А PP│1 е 920:Л PP:Бе 1350XР·Е DBл1│NP з А X│1 е 4:Е GS(X)┤▓1 з Ю:а 100,1:З"PLAYER "X" REPRESENTING THE GUILD "GN$(X)" IS THE WINNER":Бе 1640YЮ:З"ELECTION DAY HAS COME...WHO WILLBE THE NEXT KING":А X│1 е NP:TV(X)│((IC(X)н2)л(GP(X)н5)л(AL(X))лRC(X)лAF(X)н3)Y=KK(X)│TV(X):Л X:З"THE KING IS THE CANDIDATE FROM"YEY│0YO"Y│Yл1Ya,Е Y▓NP з 1630Yv6Е TV(X)┤0 з 1630YЕ@А Z│1 е NPYЭJЕ KK(Y)▓KK(X) з X│YYеTЛ ZY▒YБе 1570Y╩^ЗGN$(X);"(GUILD"X")"YуhI$│ Т:Е I$│"" з 1640Z-rЙ"DO YOU WISH TO PLAY AGAIN";X$:Е  О(X$,1)│"Y" з О :Д Т 113,0:в 40999Z▌|Ю:З"STATUS REPORT":З"GOLD PIECES"GP(XX):З"INCOME"IC(XX):З"INCOME THIS TURN"TI(XX):З"LAST TURN'S INCOME"LI(XX):З"RECRUITS"RC(XX):З"TROOPS";AF(XX):З"UNCOMITTED TROOPS"TB(XX)ZЎЖI$│ Т:Е I$│"" з 1670[WРЮ:З"ALLIES"AL(XX):З"ALLY NUMBERS:";:А FF│1 е 144:Е BS(FF)│XX ░ BT(FF)┤▓1 з ЗFF;:Л FF :Д Л FF[_ЪЗ:З[пдЗ"INVESTMENTS:";:А FF│1 е 144:Е BS(FF)│XXл4 ░ BT(FF)┤▓1 з ЗFF;:Л FF :Д Л FF[╖оЗ:З[▀╕З"HIT 1 FOR MENU OR 2 TO END TURN."\ ┬I$│ Т:Е I$│"" ▒ I$┤"1" ▒ I$А PP│1 е 920:Л PP:GP(XX)│GP(XX)лCI:Бе 490 :Д З"IT COSTS"CI"GOLD PIECES.":PM│0:BS(AT)│XXл48лvБж 2050:З"IT ADDS"ZX(AT)"GOLD PIECES TO YOUR INCOME.":А PP│1 е 920:Л PP:Бе 4908╛АБж 2030:Бе 4909xКЮ:З"PROTECT CANDIDATES AND BUSINESSES.":З"1. ASSIGN GUARDS TO CANDIDATE":З"2. ASSIGN GUARDS TO BUSINESS":З"3. HIDE CANDIDATE":З"4. MAGICALLY HIDE CANDIDATE":З"5. MAIN MENU"9РФI$│ Т:Е I$│"" з 6609╕ЮI│ Й(I$):И I Бж 690,740,780,800,8209╛иР:▓Е MH│1 з З"YOUR CANDIDATE IS HIDING":А PP│1 е 920:Л PP:Бе 650:p╝З"YOU HAVE"GG(XX)"GUARDS CURRENTLY ON YOUR CANDIDATE.":Й"HOW MANY DO YOU WISH TO HAVE NOW";NG:Е NG┤0 з NG│0:╟╞Е TB(XX)м(NGмGG(XX))┤ 0 з З"YOU CAN'T GUARD WITH GHOSTS!":А PP│1 е 920:Л PP:Бе 650;╨Е NG▓GG(XX) з TB(XX)│TB(XX)м(NGмGG(XX)) :Д TB(XX)│TB(XX)л(GG(XX)мNG);%┌GG(XX)│NG:Бе 650;╕фБж 2030:Й"WHICH BUSINESS DO YOU WISH TO GUARD";PX:З"THERE ARE"BG(PX)"GUARDS THERE NOW.":Й"HOW MANY DO YOU WISH TO HAVE NOW";NG:Е NG┤0 з NG│0<юЕ TBм(NGмBG(PX))┤0 з З"YOU MUST THINK THIS ALLY IS BLIND!":А PP│1 е 920:Л PP:Бе 650<[°Е NG▓BG(PX) з TB(XX)│TB(XX)м(NGмBG(PX)) :Д TB(XX)│TB(XX)лBG(PX)мNG%Е GP(XX)┤0 з З"THE WIZARD IS YOUR ALLY, NOT YOUR SLAVE.":GP(XX)│GP(XX)л1000:А PP│1е920:Л PP:Бе 650>Ц*З"THE WIZARD WEAVES MAGIC AROUND YOUR CANDIDATE, AND HE IS THUS HIDDEN.":GG(XX)│100:А PP│1 е 920:Л PP:MH│1:Бе 650>Ь4Р?>Ю:З"DISCREDIT BUSINESSES":З"1. MAGICALLY DISCREDIT.":З"2. SPREAD RUMORS":З"3. BLACKMAIL":З"4. RETURN TO MAIN MENU"?=HI$│ Т:Е I$│"" ▒ I$┤"1" ▒ I$▓"4" з 840?aRI│ Й(I$):И I Бж 880,900,930,870?g\Р?mfР@;pЮ:Е WF┤▓XX з З"THE WIZARD ONLY HELPS HIS SUPPORTERS.":А PP│1 е 920:Л PP:Бе 830 :Д GP(XX)│GP(XX)м100:Е GP(XX)┤0 зЗ"THE WIZARD DOESN'T DO CHARITY WORK.":А PP│1 е 920:Л PP:GP(XX)│GP(XX)л100:Бе 830AzБж 2030:Й "WHICH BUSINESS DO YOU WANT THE WIZARD TO ZAP";AT:DV(XX)│IC(XX):IC(XX)│TI(XX):PM│1:Бж 2050:PM│0:TI(XX)│IC(XX):IC(XX)│DV(XX):З"THE WIZARD'S SPELL DRIVES AWAY ALL CUSTOMERS THIS WEEK.":А PP│1 е 920:Л PP:Бе 830A0ДЗ"SPREAD RUMORS"AЮОGP(XX)│GP(XX)м25:Е GP(XX)┤0 з З"EVEN RUMORMONGERS NEED TO EAT.":GP(XX)│GP(XX)л25:А PP│1 е 920:Л PP:Бе 830BCШЙ"WHICH GUILD DO YOU WISH TO ATTACK";AT:З"THE RUMORMONGERS WORK TO STOP CUSTOMERS FROM DEALING WITH GUILD"AT:TI(AT)│TI(AT)м Д(50):А PP│1 е 920:Л PP:Бе 830CвЮ:З"BLACKMAIL":Й"WHICH BUSINESS DO YOU WISH TO PLY THIS TACTIC ON";AT:GP(XX)│GP(XX)м150:Е GP(XX)┤0 з З"BLACKMAIL'S A CRIME AND WE AIN'TDOIN' IT FOR FREE.":GP(XX)│GP(XX)л150:А PP│1 е 920:Л PP:Бе 830C▄мPD│ Д(100):Е PD▓40 з З"THEIR AIN'T ENOUGH DIRT ON THAT BUSINESS":А PP│1 е 920:Л PP:Бе 830 :Д PM│1:Бж 2050:Бж 950:AL(BS(AT))│AL(BS(AT))м1:BS(AT)│0:З"THEY BROKE THEIR ALLIANCE!":А PP│1 е 920:Л PP:Бе 830C¤╢Е BS(AT)▓4 з BS(AT)│BS(AT)м4D└РDl╩Ю:З"RAISE FUNDS":З"1. SOLICIT CONTRIBUTIONS FROM WIZARD.":З"2. STEAL":З"3. RETURN TO MAIN MENU"DЦ╘I$│ Т:Е I$│"" ▒ I$┤"1" ▒ I$▓"3" з 980D╣▐I│ Й(I$):И I Бж 1020,1090,1010D┐шРD┼ЄРED№Ю:З"ASK THE WIZARD TO DONATE MONEY":Й"HOW MUCH MONEY ARE YOU GOING TO ASK HIM FOR";AD:WR│ADл Д(200):Е WF│XX з WR│WRм Д(50)E`Е WV│1 з WR│200 :Д WV│1E╠Е WR┤100 зЗ"THE WIZARD SMILES AND GRANTS YOU"AD"GOLD PIECES.":GP(XX)│GP(XX)лAD:А PP│1 е 920:Л PP:Бе 970F1Е WR┤175 з З"THE WIZARD TELLS YOU TO GO STICK YOUR HEAD IN A PIG.":А PP│1 е 920:Л PP:Бе 970Fs$З"THE WIZARD GROWS ANGRY AT YOUR UNMITIGATED OBNOXIOUSNESS."Fх.А FE│1 е 144: Е BS(FE)│XX ▒ BS(FE)│(XXл4) з З"THE WIZARD DESTROYS BUSINESS ";FE:PM│1:BT(FE)│1:Бж 2050:Л FEG$8З"YOU ARE THROWN FROM HIS HOUSE.":А PP│1 е 920:Л PP:Бе 970GrBЮ:З"STEAL":З"1. FROM A GUILD":З"2. FROM A BUSINESS":З"3. FROM THE WIZARD"GЭLI$│ Т:Е I$│"" ▒ I$┤"1" ▒ I$▓"3" з 1100G└VI│ Й(I$):И I Бе 1120,1200,1270HП`Ю:Й"WHICH GUILD DO YOU WANT TO STEALFROM";GS:Й "HOW MANY MEN DO YOU WISH TO SEND";SM:Е SM▓TB(XX) ▒ SM┤1 з З"ILLUSIONARY MEN TAKE ONLY ILLU- SIONARY GOLD":А PP│1 е 920:Л PP:Бе 970 :Д TB(XX)│TB(XX)мSMH│jЕ TI(XX)│м10000 з TI(XX)│IC(XX)HыtPD│ Д(100):Е PDл(SMн2)м(GG(GS)л60)▓0 з 1150 :Д 1170I~PD│ Д(250):Е PD▓GP(GS) з PD│GP(GS)IzИЗ"YOUR THIEVES SUCCEEDED IN TAKING"PD"GOLD PIECES.":GP(XX)│GP(XX)лPD:А PP│1 е 920:Л PP:Бе 970IаТPD│ Д(100):Е PD┤51 з 1180 :Д 1190I·ЬЗ"YOUR THIEVES WERE CAUGHT...AND EXECUTED":AF(XX)│AF(XX)мSM:А PP│1 е 920:Л PP:Бе 970JLж ?Z& └ 1& Х 2000:ZZ│0:XX│0&rМ ML$(6),IN$(20),CM$(50),FM$(60),LT$(8),BT(144),BS(144),BG(144),QD(144),ZX(144)&ЛА X│1 е 4:FQ(X)│0:ЛX&вЩ"I",#1,"KING.DAT"'U(Й #1,NP,W:А X│1е6:Й #1,ML$(X):Л X:А X│1е20:Й #1,IN$(X):Л X:А X│1е50:Й #1,CM$(X):Л X:А X│1е60:Й #1,FM$(X):Л X:А X│1е8:Й #1,LT$(X):Л X:А X│1е4:Й #1,GG(X),GP(X),GN$(X),AF(X):Л X'^-Ъ #1'Ж2ZZ│ZZл1:XX│0:Е ZZ▓W ▒ DBл1│NP з 170'ь■I│ Й(I$):И I Бж 530,590,640,5203DР3zЮ:Й"WHICH BUSINESS DO YOU WISH TO ALLY WITH";AT4Е BS(AT)┤▓0 з З"THAT BUSINESS CLAIMS ALLEGIANCE TO ANOTHER GUILD":А PP│1 е 920:Л PP:Бе 490 :Д Е BT(AT)┤▓0 з З"THAT BUSINESS IS CLOSED":А PP│1 е 920:Л PP:Бе 4904Ш&TB(XX)│TB(XX)м2:Е TB(XX)┤0 з З"YOU HAVE TOO FEW MEN TO PERFORM THIS ACTION.":А PP│1 е 920:Л PP:TB(XX)│TB(XX)л2:Бе 4905G0Й"HOW MUCH GOLD DO YOU WISH TO SEND ALONG";BB:GP(XX)│GP(XX)мBB:Е GP(XX)┤0 з З"SMART GUILDMASTERS DON'T MAKE EMPTY PROMISES":А PP│1 е 920:Л PP:GP(XX)│GP(XX)лBB:Бе 4905╝:PD│ Д(100):Е PD┤│(30лBB) з 580 :Д З"NEGOTIATIONS FAIL TO PRODUCE FAVORABLE RESULTS.":А PP│1 е 920:Л PP:Бе 4906eDPM│0:BS(AT)│XX:З"YOUR ALLIANCE OFFER IS ACCEPTED.":А PP│1 е 920:Л PP:Бж 2050:З"YOU GAIN"ZX(AT)"GOLD PIECES INCOME.":А PP│1 е 920:Л PP:AL(BS(AT))│AL(BS(AT))л1:Бе 4906гNЮ:Й"WHICH ALLIED BUSINESS DO YOU WISH TO INVEST IN";AT7YXЕ BS(AT)│XX з 610 :Д Е (BS(AT)м4)│XX з З"YOU HAVE ALREADY INVESTED WITH THAT BUSINESS.":А PP│1 е 920:Л PP:Бе 490 :Д З"YOU AREN'T ALLIED WITH THEM YET.":А PP│1 е 920:Л PP:Бе 4907╖bЕ AT┤7 з CI│2000 :Д Е AT┤27 з CI│2600 :Д Е AT┤77 з CI│280 :Д Е AT┤137 з CI│200 :Д CI│21008XlGP(XX)│GP(XX)мCI:Е GP(XX)┤0 з З"MAN CAN'T LIVE ON EMPTY PROMISES.": ╫&Ю&Х2000&(T$│ Л(136)л Л(132)&4М A$(3)&?PO│495&M A│ Д(м Я)&ДA$(1)│ б(255,32):A$(2)│ б(255,32):A$(3)│ б(255,32)&САX│1е100'(R│ Д(254):Е  Р(A$(1),R,1)┤▓ Л(175) з  Р(A$(1),R,1)│ Л(175): Р(A$(2),R,1)│ Л(159): Р(A$(3),R,1)│ Л(175):ЛX :Д Бе 40'-2M1│ Д(254):M2│ Д(254):M3│ Д(254)'<7З@POм1,T$;'G8E1│300'gЕ Y$│ Л(9) ░ PO┤510 з З@POм1, Л(32)л Л(32);:PO│POл1:З@POм1,T$;:Бе60(FАX│POм32 е POм480 й м32(&KЕX│E1 з E1│0(8LЕ X│E2 з E2│0(iPЕ  Ж(1024лX)│175 ▒  Ж(1024лX)│159з 100 :Д 90(}ZЗ@X, Л(133);:ЛX(И_Бе 120)dЕ X▓128 ░ X┤159 з  Р(A$(3),M3л(Xм128),1)│ Л(32) :Д Е X▓64 ░ X┤95 з  Р(A$(2),M2л(Xм64),1)│ Л(32) :Д Е X▓0 ░ X┤31 з  Р(A$(1),M1л(Xм0),1)│ Л(32))#nБе90)UxА X│POм32 е POм480 йм32:З@X, Л(32);:ЛX:Бе60)оъБж1000:M1│M1л1:M2│M2м1:M3│M3л1:Е M1│255 з M1│1 :Д Е M2│1 з M2│255 :Д Е M3│255 з M3│1)єЇЗ@0, Р(A$(1),M1,32):З@64, Р(A$(2),M2,32):З@128, Р(A$(3),M3,32):Р* шЕ E1│0 з E1│POм480*#ЄЕ E2│0 з E2│ Д(31)м1*S№З@E1, Л(32);:З@E2, Л(32);:E1│E1л32:E2│E2л32*gЕ E1▓511 з E1│0*{ Е E2▓511 з E2│0*╓З@E1, Л(134л64);:З@E2, Л(134л64);:Е  Ж(POл1024)│134л64 ▒  Ж(POм1л1024)│134л64 з К :Д Р2):З@128, Р(A$(3),M3,32):Р* шЕ E1│0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  m&Z:Гcalendar' by: fred kolesar 7 ladd road, westfield,pa 16950 4/87&ФL│22:M│0:Бж5:M$│"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&хАP│L е26й4:D│Dл1:ЗдP)D;:ЕD│29░M│2Бж4:ДЕD│30зЕM│4▒M│6▒M│9▒M│11Бж4:Д:ДЕD│31Бж4&їЛ:З:L│2:Бе2'в44539:Е Ж(135)│12зК'lЕM│12з1:ДЮ0:D│0:З@76, Р(M$,Mн3л1,3)" 1988";:M│Mл1:З@192," SUN MON TUE WED THU FRI SAT":Р"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&хАP│L е26й4:D│Dл1:ЗдP)D;:ЕD│29░M│2Бж4:ДЕD│30зЕM│4▒M│6▒M│9▒M│11Бж4:Д:ДЕD│31Бж4&їЛ:З:L│2:Бе2'в4453                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ш&D:Г********TITLE SCREEN******** ****************************&З :Г*******FOR "REMEMBER"******* ****************************&О:Г&йЮ:T$│"r e m e m b e r"' G$│ Л(128)л" "л Л(159)л" "л Л(255)л" "л Л(191)л" "л Л(223)л" "л Л(175)л" "л Л(239)л" "л Л(207)'$АX│0е150:З@456,T$:Л'I#АL│456е39йм32:З@L,T$:З@Lл32,G$:Л'X(АX│0е300:Л'в-З@352," b y l a r r y a n d e r s o n"'▒2АX│0е300:Л'┘7З@450,"C. 1985 BENTON, LA. 71006"'ч<╙"MAIN",R "л Л(175)л" "л Л(239                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & В"ELECTION PREVIEW"&UВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLEAND,NY,1988"&qМ A$(7),B$(7),A(7),B(7)&Ы(А T│1 е 7:Н A$(T),A(T),B$(T),B(T):Л T&│2N│0:Ю:Q$│ б(32,239)&▌<З@5,"OUR ELECTION PREVIEW";:З@32,Q$'FЗ@64," DEMOCRATS REPUBLICANS":З@96,Q$'7Pа 200,3:N│0:А T│1 е 7:З@128лN,A$(T);'IZЗ@138лN,A(T);'XdN│Nл32:Л T'ЕnN│0:А T│1 е 7:З@143лN, Л(233)л" "лB$(T);'ТxЗ@352,Q$'дВЗ@156лN,B(T);'│МN│Nл32:Л T'┌ЦЗ@416," ":З@416,"YOUR CHOICE IS ";'уаЙ C$'ЎкЕ C$│"E" з 250( ┤Е C$│"L" з Бе 410("╛Е C$│"S" з Бе 340(0╚А Y│1 е 7(S╥Е C$│A$(Y) з A(Y)│A(Y)л1:Бе 50(v▄Е C$│B$(Y) з B(Y)│B(Y)л1:Бе 50(~цЛ Y(ЙЁБе 150(╖·З@416," VOTING COMPLETED.....THANKYOU";:К(╦Ж HART,0,BUSH,0(тЖ JACKSON,0,DOLE,0(ўЖ SIMON,0,KEMP,0)"Ж DUKAKIS,0,ROBERTSON,0)',Ж GORE,0,HAIG,0)A6Ж GEPHARDT,0,DUPONT,0)_@Ж BABBITT,0,KIRKPATRICK,0)}JВ OPTION TO SAVE THE FILE)еTЗ@448,"saving data";:Щ"O",#1,"DATA")┤^А T│ 1 е 7)╙h┘ #1,A$(T),A(T),B$(T),B(T))█rЛ T)ф|Ъ #1)юЖБе 50* РВ OPTION TO LOAD THE FILE*5ЪЗ@448,"loading data";:Щ"I",#1,"DATA"*DдА T│ 1 е 7*cоЙ #1,A$(T),A(T),B$(T),B(T)*k╕Л T*t┬Ъ #1*~╠Бе 50TЗ@448,"saving data";:Щ"O",#1,"DATA")┤^А T│ 1 е 7)╙h┘ #1,A$(T),A(T),B$(T),B(T))█rЛ T)ф|Ъ #1)юЖБе 50* РВ OPTION TO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   t&! :Г*********EXPNS**********&` :Г*********V1.01********** ************************&Я:Г*****COPYRIGHT 1985***** **BY LARRY ANDERSON*****&┬Х5000:МA$(150),B$(150),C$(150)'Z$│ Л(128):V$│ б(8,128)л"@escapes"лZ$л"to"лZ$л"menu"л б(7,128)')U$│"r e m e m b e r"л б(17,128)'_#W$│"<--LAST"л б(5,128)л"Exit"л б(5,128)л"NEXT-->"'i(Бе430'▄-Ю3:З@0,U$;:З@24,N$:З@480,V$;:З@233,Z$лZ$л"records"лZ$л"for"лZ$лZ$;:З@265,Z$л"which"лZ$л"vehicle"лZ$;:Т1535,128(-2З@332," ";:З@332,"";:╗Й N1$:З@340, б(12,175);:ЕN1$│""з65:ДЕN1$│"@"з70(A7TEMP$│N$:N$│N1$(W<И A Бе480,480,405(КAЕN$┤▓""зN1$│"":З@332,N$;:ИA Бе505,505,295:Бе45)FЮ3:З@0,U$;:З@24,N$:З@200,"Review"; Л(128);"items";:З@264,"Update"; Л(128);"items";:З@328,"Main"; Л(128);"menu"; б(3,128);)9KF1$│"DATE- ":F2$│"AMOUNT- $":F3$│"DETAILS- ")CPБж555)\UB$│"RUM":A│ Ю(B$,A$))tZИA Бе45,45,405:Бе80)А_:Г*****)ЧdЮ3:З@0,U$;:З@24,N$)┐iЗ@232,"Add"лZ$л"records"; б(3,128);)рnЗ@296,"Remove"лZ$л"records";)ъxБж555*}B$│"AR@":W│ Ю(B$,A$)*ВЮ:ИW Бе140,210,70:Бе120*+З:Г******7МRC│RCл1*]СЮ:ЗU$л б(3,128);:З@19," ADD# ";RC*ВЦЗ@32, б(3,143);:З@48м З(N$)о2,N$*╟ЫЗ@480, б(11,128);"@"лZ$л"escapes"; б(11,128);:Т1535,128:З@64,"";*┌аЗF1$;:╗ЙA$(RC)*·еЕA$(RC)│"@"зA$(RC)│"":Бе290+ кЗF2$;:╗ЙB$(RC)+7пЕB$(RC)│"@"зB$(RC)│"":A$(RC)│"":Бе290+J┤ЗF3$;:╗ЙC$(RC)+~╣ЕC$(RC)│"@"зC$(RC)│"":A$(RC)│"":B$(RC)│"":Бе290+╘╛З@480, б(5,128);"ok"лZ$л"to"лZ$л"enter"лZ$л"Yes No"; б(8,128);:Т1524,47:Т1535,128+▐├Бж555+Ў╚B$│"YN":W│ Ю(B$,A$), ═ИW Бе135,145:Бе195,2╥Ю(7):З@0,U$;:З@480,V$;:Т1535,128,\╫З@32,"record"лZ$л"removal"; б(4,128);,t▄З@50,"REC.#:";:╗ЙQ$,КсЕQ$│"@" з 70:Д230,зцQ│ Й(Q$):ЕQ▓RC ▒ Q┤1з210,╨ыЗ@64,F1$;A$(Q):ЗF2$;B$(Q):ЗF3$;C$(Q)-"ЁЗ@480, б(6,128);"remove"; б(4,128);"Yes"лZ$л"or"лZ$л"No"; б(6,128);:Т1535,128-,їБж555-E·B$│"YN@":W│ Ю(B$,A$)-_ ИW Бе260,210,70:Бе245-ЗA$(Q)│A$(0):B$(Q)│B$(0):C$(Q)│C$(0)-Ц АN│Q е RCD-─A$(N)│A$(Nл1):B$(N)│B$(Nл1):C$(N)│C$(Nл1)-╦ЛN-чRCD│RCDм1:Е RCD┤1зRCD│0-ёБе295-¤"RC│RCм1.Z'Ю0:L1│ З(N$)о2:C│207мL1:З@171," SAVING ";:З@203," ";:З@C,N$;:З@235,"DATA FILE";.s,З@299,RCD;"RECORDS";.Й1Щ"O",#1,N$л"/DTL".е6АQ│1е 150:ЕA$(Q)│""з325.┐;┘#1,A$(Q),B$(Q),C$(Q).╞@ЛQ.╬EЪ#1.╫JБе70.уO:Г*****.єTЮ3:АQ│1е RC/(YЮ:З@0,U$:З@15, б(5,128);Q"OF"RC:З@80м З(N$)о2,N$/9^З:ЗF1$;A$(Q)/HcЗF2$;B$(Q)/WhЗF3$;C$(Q)/emЗ@482,W$;/orБж555/БwЕ К(A$)│9з395/Р|ЕA$│"E"з70/оБЕ К(A$)│8зQ│Qм1:ЕQ┤1зQ│RC/╕ЖБе345/┬ЛЮ3:ЛQ/╠РБе340/уХЩ"O",#1,"CRNT/NDX"/юЪ┘#1,N$/ЎЯЪ#10д╙"MAIN",R0й:Г*****0&оЩ"I",#1,"VEH/NDX"0;│АQ│1е5:Й#1,N$(Q)0M╕Е М(1)│м1з4500T╜ЛQ0\┬Ъ#10s╟Щ"I",#1,"CRNT/NDX"0~╠Й#1,N$0Ж╤Ъ#10П╓Бе700Ы█:Г*****0╢рА N│1е5:ЕN$(N)│N$ з5001хЕN$(N)│"" зЮ3:З@0,U$;:З@260,"NO VEHICLE BY THAT NAME";:а200,5:а150,10:АT│1е300:Л T:N$│TEMP$:Бе451#ъЛ N1tяЮ3:З@260,"NO VEHICLE BY THAT NAME";:а200,5:а150,10:АT│1е300:ЛT:TEMP$│N$:Бе451ЙЇИA Бе505,505,4051╦∙ЕN1$│""░A$(1)┤▓""з550:ДАQ│1е150:A$(Q)│"":B$(Q)│"":C$(Q)│"":ЛQ1с■Щ"I",#1,N$л"/DTL"1юАQ│1е1502Е М(1)│м1з5402 Й#1,A$(Q),B$(Q),C$(Q)2,ЕA$(Q)│""з54023ЛQ2>RC│Qм12G!Ъ #12[&ИA Бе335,95,2952s+A$│ Т:ЕA$│""з555:ДРЙЇИA Бе505,505,4051╦∙ЕN1$│""░A$(1)┤▓""з550:ДАQ│1е150:A$(Q)│"":B$(Q)│"":C$(Q)│"":ЛQ1с■Щ"I",#1,N$л"/DTL"1юАQ│1е1502Е М(1)│м1з54                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Бж1620:З@480," ANY KEY WHEN READY ";:в&HA171:З#м2, б(18,10):З#м2, Л(27); Л(17);8ЯцЗ#м2,"Arthur S. Hallock":З#м2,"Route 1, Box 198HHH":З#м2,"Deming, NM 88030"8▓ЁЗ#м2, б(12,10)9 ·Ю4:З@130," ENTER ADDRESSEE: ":З@224," NAME: ";:З@256," ADDR: ";:З@288," CTST: ";:З@320," ZIP : ";:З@224,;9:Т282,0:╗Й" NAME: ";A$9M╗Й" ADDR: ";B$9`╗Й" CTST: ";C$9|"╗Й" ZIP : ";D$:Т282,2559д,З#м2,д45)A$:З#м2,д45)B$:З#м2,д45)C$9▄6З#м2, Л(27); Л(14);:З#м2,д48)D$:З#м2, Л(27); Л(15);:@З#м2, Л(27); Л(19);:З#м2, Л(12):Бе90:"J:Г* PRINTER TEST ROUTINE:>TЕ( Ж(&HFF22)░1)з1630:ДР:~^а200,3:З@483,"*** PRINTER NOT READY *** ";:АD│1е1000:Л:Бе90:СдЕC│0 з90:Д1720:по:Г* CHECK PRINTER OPTIONS:█╕Ю3:З@33,"** hardcopy"BK$"routine **";;Ъ┬Е( Ж(&HFF22)░1)за150,5:З@129," printer IS not TURNED on ";:З@225," PLEASE CHECK, THEN TOUCH ";:З@257,;:З" [SPACE] ENTER FOR MENU ";:З@289,;:╗Й" ENTER TO CONTINUE ";K$:ЕK$│" "з90:Д1720;ф╠З@97," DO YOU NEED A FORM FEED ? ";:З@129," (y OR TOUCH ANY KEY ) ";;·╓Y$│ Т:ЕY$│""з1750<рЕY$│"Y"▒ Y$│"y"з 1770:Д1780<*ъЗ#м2, Л(12)<8ЇБж1900:Ю3<л■CP│0:З@352, б(2,128)"enter" Л(128)"zero" Л(128)"to" Л(128)"return" Л(128)"to" Л(128)"menu" б(2,128);:З@417,"";<┘Й" NUMBER OF COPIES NEEDED ";CP:ЕCP│0 з90<чАZZ│1е CP<єАE│1е C=&З#м2,дL);L$(E)=+0Е E│44 ▒E│95 зЗ#м2, Л(12)::Д1860=c:ЕST$│"Y"зЗ@481," TOUCH [ENTER] TO CONTINUE ";:Д1860=iDЛ=sNE│0:Л=НXE│0:З#м2, Л(12);:Бе90=╧lЮ3:З@33,"** LETTERHEAD AND ";:З@67," SALUTATION ROUTINE **";=ЁvЗ@129," SELECT LETTERHEAD ";>АЗ@195,"[a]RTHUR S. HALLOCK ";>4ВЗ@227,"[t]EXT ONLY ";>KКI$│ Т:ЕI$│""з 1930>eФЕI$│"A" ▒I$│"a" з1960>ЦЕI$│"T" ▒I$│"t" з2180>УЮЕI$│"" зР:Д1940>┴иЮ3:З@33," LETTERHEAD FOR ... ASHALLOCK ";>╠▓Т282,0>ч╝З@97," ";:╗Й"DATE ";D$?╞З@225," SALUTATION OR HEADING ";:З@289,"";:╗ЙSA$?)╨Т282,255?E┌LH$│"Arthur S. Hallock"?БфAD$│"Route 1, Box 198HHH Deming, New Mexico 88030"?МюБе2040?Ъ°З#м2:З#м2?└З#м2, Л(27); Л(66); Л(27); Л(14);?╤ З#м2,д8);LH$?щЗ#м2, Л(27); Л(15);@ З#м2, Л(27); Л(29);@*З#м2,д44);D$@)4З#м2, Л(27); Л(66)@:>З#м2,д12)AD$@RHЗ#м2, Л(27); Л(29);@fRЗ#м2, б(95,167)@t\З#м2:З#м2@ЛfЗ#м2, Л(27); Л(29)@гpЗ#м2,дLл1);SA$:З#м2@йzР@╧ДЮ:З@33,"** TEXT ENTRY ROUTINE **"@┌ОТ282,0@їШЗ@128," ";:Й"DATE ";D$AвЗ@192," ";:Й"PAGE NUMBER ";P$ANмЗ@256," ";:╗Й"HEADER (96 CHARACTERS, MAXIMUM)";HE$AР╢З:З" ";:Й"NUMBER OF LINES OF SPACE FROM THE POP OF PAGE ";NA─└З:З" ";:╗Й"TITLE OF ARTICLE OR PAGE ";TT$Aф╩TT│ З(TT$):TU│96мTT:TA│TUо6Aё╘Т282,255B▐З#м2, б(N,10)BшЗ#м2, Л(27); Л(20);B5ЄЗ#м2,D$;д80)"Page "P$BL№З#м2, Л(27); Л(29)BY З#м2,HE$Bm З#м2, б(96,167)B{ З#м2:З#м2BУ $З#м2, Л(27); Л(14);Bе .З#м2,дTA);TT$B┘ 8З#м2, Л(27); Л(29); Л(27); Л(15); Л(27); Л(17);B▀ BРC ИK│95:Т282,255:BK$│ Л(128):Ю3C= ТЗBK$"letter"BK$"writer"BK$"program"BK$"in"BK$"basic"BK$;Cg ЬЗ@71,"** "BK$"main"BK$"menu"BK$" **";CЪ жЗ@129,"c";:З@132," COMMENCE A NEW LETTER ";C═ ░З@161,"a";:З@164," ADD TO EXISTING LETTER ";D ║З@193,"e";:З@196," EDIT, INQUIRE, VIEW PAGE ";D3 ─З@225,"l";:З@228," LOAD PAGE - TAPE OR DISK ";Df ╬З@257,"h";:З@260," HARDCOPY ON LINE PRINTER ";DЩ ╪З@289,"s";:З@292," SAVE PAGE - TAPE OR DISK ";D╠ тЗ@321,"x";:З@324," EXIT - TERMINATE PROGRAM ";D  ьЗ@353,"p";:З@356," PRINT : FANFOLD ENVELOPE ";E ЎЗ@416," NOTE: "BK$"save"BK$"page"BK$"if"BK$"you"BK$"have"BK$BK$BK$BK$"made"BK$"any"BK$"changes"BK$"since"BK$"entry"BK$BK$;Eа З@486," touch MENU choice ";E╢ M$│ Т:ЕM$│""з2570FE И  Ю("PWACNELHSQXTpwacnelhsqxt",M$)Бе1500,100,200,100,100,400,1100,1700,800,700,700,700,1500,100,200,100,100,400,1100,1700,800,700,700,700FP Бе2570FV (╬Fm 2Е Т│""з2610 :Д1220FЭ МTD$│"":Е Ж(188)│14 зTD$│"DISK" :ДTD$│"TAPE"F╩ ЦЕ TD$│"TAPE" зDV│м1 :Д ЕTD$│"DISK" зDV│1F╨ аРGa'SV$│"LETRWRTR":АC│1е3:Ю3:З@96," SAVING "SV$" TO TAPE:"C;:ШSV$:ЯИ:АD│1е3000:Л:Л:АD│1е5000:Л:Як:Ю3:З@96," "SV$" IS SAVED"Cм1"TIMES";:З@416,;:К10 :Д1220FЭ МTD$│"":Е Ж(188)│14 зTD$│"DISK" :ДTD$│"TAPE"F╩ ЦЕ TD$│"TAPE" зDV│м1 :Д ЕTD$│"DISK" зDV│1F╨ аРGa'SV$│"LETRWRTR":АC│1е3:Ю3:З@96," SAVING "SV                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !b&8 Бе 30 н ║RWRTRоBAS 14 JAN 84 н ASHALLOCK&p└1:Т150,41:Ю3 :Г*** BAUDRATE SET TO 1200 DMP110*&Д(Х10000:МL$(200)&┤2МC(180),L(25),M(60),P(60),Q(60),R(96),Z(96)&┐ZБе2440&╥dЕ C▓0 з30:Д110' nЮ3:З@33,"** "BK$"start-up"BK$"routine"BK$" **";:З@96, б(32,182);:Т1066,45'zxЗ@162," WHEN ENTERING TEXT, ENTER ";:З б(5,175);:З@194," A PERIOD ( . ) TO EXIT ";'┼ВP│0:З@258,;:Й" ENTER LEFT MARGIN ";L:L│Lм1:ЕL┤0 з L│0:З@257, б(5,175);(МЗ@258," RIGHT MARGIN MUST BE ";:З б(5,175)" EQUAL TO OR LESS THAN 96 ";(>ЦЗ@354," ";:Й"ENTER RIGHT MARGIN ";R([аЕR│0 з90:ДЕR┤L з150:Д170(ВкЕR▓(KлLл2) зR│0:а150,5:Бе140 :Д180(Э┤R│Rм1:Z│RмL:M│44:Бе210(п╚ЕC│0 з90:Д210(┼╥C│Cл1:ЕC│▓M з1360)3▄Т282,0:Ю3:З@128, б(32,182);:З@160,д4); Л(188)"5";:Зд9); Л(188)"10";:Зд14); Л(188)"15";:Зд19); Л(188)"20";)ЫцЗд24); Л(188)"25";д29); Л(188)"30";:З@0,"tab"BK$"guide"BK$"and"BK$"end"BK$"of"BK$"text"BK$"marker";)╧ЁEN│96мZ:З@192,"";:ЗдZ); б(EN,191);:З б(32,183);*·З@357," MARGINS ARE"Lл1"AND"Rл1;:З@417," LINE LENGTH IS"Rл1мL"CHARACTERS ";*ИЗ@480, б(4,128);:З@484,"enter"BK$"a"BK$"period"BK$"."BK$"to"BK$"end";:З б(4,128);:Т1535,128:Т1523,46*╢З@71," LINE NUMBER "C" ";:З@192,;:╗ЙL$(C)*╤ЕL$(C)│"."з C│Cм1:Бе90*э"Е  З(L$(C))▓Z з300:Д310+9,L$(C)│"":З@320," TOO LONG- TRY AGAIN ":а100,10:а50,10:АD│1е1000:Л:Бе220+U6Е З(L$(C))│0 зL$(C)│" "+_@Бе210+tРЕC│0 з90:ДТ282,0+бЪЮ3:З@33,"** edit"BK$"routine **";:З@96,;+ндQ│0:P│0+╜оQ│Qл1:P│Pл1+╬╕ЗQ;д4);L$(Q)+т┬ЕQ│C з480 :Д460+Ё╠ЕP│5 з480+·╓Бе430,рP│0,>ъYY│0:З"enter"BK$"line"BK$"number"BK$"or"BK$"enter";:ЙYY,TЇЕ YY▓C з490 :Д510,j■ЕYY┤│0 з520 :Д540,БЕQ│C ░P│0 з90:Д530,ОЮ3:Бе470,еEE│0:EE│YY:YY│0:Ю3,▌&З@97," OLD LINE: ";:ЗL$(EE):L$(EF)│L$(EE):L$(EE)│""-0З@257,;::Т282,0:З" NEW LINE: ";:З б(Z,".");:З@268,;:╗ЙL$(EE)-B:ЕL$(EE)│"" зL$(EE)│L$(LF):Бе410-kDЕL$(EE)│"."з L$(EE)│"":EE│EEм1:C│Cм1-иNЕ  З(L$(EE))▓Z зЗ" TOO LONG - TRY AGAIN":L$(EE)│"":Бе560-▓XБе410.▓З@480,BK$"touch"BK$"any"BK$"other"BK$"key"BK$"to"BK$"return"BK$;:Т1535,128:Р.╝Т282,255:Ъ.С╞Ю4:З б(64,182);:З@97," DID YOU SAVE YOUR LAST PAGE? ";:З@160, б(64,182);:З@257," TERMINATE ?...(y"BK$"to"BK$"confirm)"BK$;.н╨Т1296,40:Т1309,41:Бж690.┬┌Q$│ Т:ЕQ$│""з730.┌фЕQ$│"Y" ▒Q$│"y"з790.єюЕQ$┤▓"Y" ▒Q$┤▓"y"з90/|Ю3:З"THE LETTER WRITER PROGRAM IS","TERMINATED (C)1984 ASHALLOCK","TYPE " Л(34)"CONT" Л(34)" TO CONTINUE WITHOUT LOSS OF DATA ";:К/Р ЕC│0 з2440:Д810/╔*Ю4:З@39,"** save"BK$"routine **";:Бж2700:АD│1е1000:Л074Е DV│м1 зЗ@98," * * * ready"BK$"cassette * * * ";:ДЗ@98," * * * touch"BK$"S"BK$"to"BK$"save * * *";:Бе9200^>З@227," [space] TURNS MOTOR OFF ";0ДHЗ@291," [enter] TURNS MOTOR ON ";0лRЗ@358," TOUCH [s] TO SAVE ";:Бж6900└\I$│ Т:ЕI$│""з8600╨fЕI$│" "з9100уpЕI$│ Л(13)з9001zЕI$│"S" ▒I$│"s"з920 :Д901(ДЗ@424," MOTOR IS on ";:бИ:ЯИ:Бе8601PОЗ@424," MOTOR IS off ";:бк:Як:Бе8601ЮШЮ3:З@97," NAME MUST BE BETWEEN 1 AND 8 ";:З@129," CHARACTERS LONG only ";1ЁвNE$│"":З@225," ENTER NAME YOU WISH TO SAVE ";:З@257,;:╗Й" THIS FILE AS: ";NE$2мЕ  З(NE$)│0 з24402 ╢Е  З(NE$)▓8 з810:Д9602S└З@321," SAVING TO "TD$" AS ";NE$" "; б(5,175);2q╩Е DV│м1 зЯИ:АD│1е300:Л:Як2В╘Щ"O",#DV,NE$2Х▐З#DV,C,L,R,Z,M2гшА RR│1 еC2│ЄЗ#DV,L$(RR)2╣№Л2┐Ъ2яЗ@321," FILE IS SAVED AS "NE$" "; б(5,175);3 Е DV│м1 зЯИ:АD│1е100:Л:Як3$Бе24403#.Бе244037LЕ C▓0 з30:Д11103rVЮ3:З@38,"** load"BK$"routine **";:Бж2700:АD│1е1000:Л3╡`Е DV│м1 зЗ@98," * * * ready"BK$"cassette * * * ";:ДЕ DV│1з12203▄jЗ@227," [space] TURNS MOTOR OFF ";4tЗ@291," [enter] TURNS MOTOR ON ";4)~З@358," TOUCH [l] TO LOAD ";:Бж6904?ИI$│ Т:ЕI$│""з11604QТЕI$│" "з 12104eЬЕI$│ Л(13)з12004ГжЕI$│"L" ▒I$│"l"з1220 :Д904м░З@424," MOTOR IS on ";:бИ:ЯИ:Бе11604╒║З@424," MOTOR IS off ";:бк:Як:Бе11605─Ю3:Бж2700:З@1," SYSTEM SET TO "TD$" ";5╬:Г* SAVE ROUTINE5D╪NE$│"":З@225,;:Й" ENTER NAME OF FILE ";NE$5rтЕ  З(NE$)│0 з90 :ДЕNE$│"DIR" з2600 :Д12605ПьЕ  З(NE$)▓8 з1240 :Д12705аЎЩ"I",#DV,NE$5│Й#DV,C,L,R,Z,M5╒ З:З" LEFT MARGIN SET AT ";Lл15°З:З" RIGHT MARGIN SET AT ";Rл16З:З" PAGE LENGTH SET AT ";M6&(А RR│1е C672Е  М(DV) з906H<╗Й#DV,L$(RR)6WFЛ:Ъ:Бе24406бPЮ3:З@33," YOU HAVE REACHED THE LIMIT ";:З@65," OF YOUR PAGE LENGTH ";6єZЗ@129," DO YOU WANT TO INCREASE THE ";:З@161," LENGTH ( y OR ANY OTHER KEY)";7dY$│ Т:ЕY$│""з1380:Д13907.nЕY$│"Y"▒ Y$│"y"з1400:Д14307]xЗ@225,;:MM│0:Й" ENTER NEW PAGE LENGTH ";MM7uВЕMM ┤M з1400 :Д14207ДМM│MM:Бж6907ЩЦЕ Т│""з1430 :Д907╪╥:Г* PRINT FANFOLD ENVELOPE ALL PRINTER CODES FOR DMP1108N▄Ю4:З@130," READY PRINTER PAPER ";:  ■&:Г***********************&=:Г* HOME INVENTORY **&[:Г* (C)1986 **&y:Г* BY BILL TOTTINGHAM **&Ч:Г* BOX 331 MILTON, WI **&╡:Г***********************&╝ └1&╞Х5000&╨DA│40&∙(М I$(DA),B$(DA),C$(DA),S$(DA),V$(DA)'2Ю0'"<З@32," HOME INVENTORY"'AFЗ@128, б(255,32); б(32,32)'gPЗ@160," 1) CREATE DISK FILE"'НZЗ@224," 2) CREATE TAPE FILE"'▒dЗ@288," 3) LOAD DISK FILE"'╒nЗ@352," 4) LOAD TAPE FILE"'▀xI$│ Т'°ВЕ I$│"1"з DN│1:Бе180(МЕ I$│"2"з DN│м1:Бе180(+ЦЕ I$│"3"з DN│1:Бе610(EаЕ I$│"4"з DN│м1:Бе610(OкБе120(W┤X│1(g╛Бж840:Бж850(r╚АZ│1е5(Р╥И Z Бж860,880,900,920,940(г▄Е I$(X)│""з210(лцЛ Z(тЁЕ  З(C$(X))▓111 з C$(X)│"":Бж840:Бж850:Бж940:Бе250)·З@454,"INFORMATION CORRECT?") I$│ Т)Е I$│"N"з350)0Е I$┤▓"Y"з260)Q"З@454,"(A)DD (V)IEW (S)AVE ")[,I$│ Т)t6Е I$│"A"зX│Xл1:Бе190)С@Е I$│"V"з NF│X:X│1:Бе410)кJЕ I$│"S"з NF│X:Бе560)┤TБе300)╓^З@454,"LINE TO BE CORRECTED?")ьhI$│ Т:Е I$│""з360*rI│ Й(I$):Е I│0 з 360*|Е I▓5з360*1ЖИ I Бж860,880,900,920,940*GРБж840:Бж850:Бе240*ZЪЕ I$(X)│""з470*|дЮ:З@32л(32м З(I$(X)))о2,I$(X)*╛оЗ@129л(16м З(B$(X)))о2,B$(X):З@144л(16м З(S$(X)))о2,"#";S$(X)*у╕З@191л(32м З(V$(X)))о2,"$";V$(X)*є┬З@256,C$(X)+D╠З@384,"(D)ELETE (A)DD (H)ARDCOPY (S)AVE":З@451,"(Q)UIT "+Z╓I$│ Т:Е I$│""з470+НрЕ I$│ Л(94)зX│Xл1:Е X▓NF з X│NF :Д Бе410:Бе410+╛ъЕ I$│ Л(10)з X│Xм1:Е X┤1 зX│1 :Д Бе410:Бе410+ЎЇЕ I$│"D"з I$(X)│"":X│Xм1:Е X┤1з X│NF :Д Бе410:Бе410, ■Е I$│"H" з 1030,%Е I$│"A"з X│NFл1:Бе190,6Е I$│"S"з560,GЕ I$│"Q" з К,Q&Бе470,[0Бж960,v:I$│ Т:Е I$┤▓ Л(13)з570,АDБж740,ХNI$│ Т:ЕI$│""з590,гXX│1:Бе410,оbБж 960,╔lI$│ Т:Е I$┤▓ Л(13)з620,╙vБж650,тА:X│1:Бе410,ЄК:ГREAD FILE,·ФX│0- ЮЩ"I",#DN,FILE$-иX│Xл1:NF│X-.▓Е  М(DN) з720-U╝Й#DN,I$(X),B$(X),S$(X),V$(X),C$(X)-h╞Е  М(DN)│0з680-n╨Ъ-t┌Р-Еф:ГWRITE FILE-ШюЩ"O",#DN,FILE$-ж°А X│1е NF-╣Е I$(X)│""з810-ъ Е DN│1 з ┘ #DN,I$(X),B$(X),S$(X),V$(X),C$(X).Е DN│м1 з З #DN,I$(X),B$(X),S$(X),V$(X),C$(X)., Е X│NF з820.4*Л X.:4Ъ.@>Р.^HЮ:З@8,"DATA ENTRY/EDIT":Р.фRЗ@68,"1) ITEM: ";I$(X):З@132,"2) BRAND: ";B$(X):З@196,"3) SERIAL#: ";S$(X):З@260,"4) VALUE: ";V$(X):З@324,"5) COMMENTS: ";C$(X):Р/\З@77, б( З(I$(X)),32):З@77,"";:╗ЙI$(X)/fР/BpЗ@142, б( З(B$(X)),32):З@142,"";:╗ЙB$(X)/HzР/uДЗ@208, б( З(S$(X)),32):З@208,"";:╗ЙS$(X)/{ОР/иШЗ@270, б( З(V$(X)),32):З@270,"";:╗ЙV$(X)/овР/█мЗ@337, б( З(C$(X)),32):З@337,"";:╗ЙC$(X)/с╢Р0 └Ю:З@74,"FILE NAME??":З@106,"";:╗ЙFILE$0╩Е FILE$│""з96005╘Е  З(FILE$)▓8з9600m▐Е DN│1зЗ@264,"PLACE DATA DISK":З@298,"IN DRIVE -0-"0ншЕ DN│м1 з З@266,"POSITION TAPE":З@294,"PRESS PLAY & RECORD"0┴ЄЗ@460,""0╟№Р0▌:ГPRINTER ROUTINE1EO$│ Л(27)л Л(14)::ГDOUBLEWIDTH ON1,ED$│ Л(27)л Л(15)::ГDOUBLEWIDTH OFF1G$UO$│ Л(15)::ГUNDERLINE1f.UE$│ Л(14)::ГEND UNDERLINE1Щ8Ю:З@37,"POSITION PRINTER HEAD":З@364,""1╢BI$│ Т:Е I$┤▓ Л(13) з10901╚LЗ#м2, б(5,13)1єVЗ#м2,д31);EO$;"INVENTORY";ED$; б(3,13)2 `З#м2,д0);UO$;д80);UE$2]jЗ#м2,д0);UO$;д10);"ITEM";д30);"BRAND";д50);"VALUE";д65);"SERIAL #";д80);UE$2ftЗ#м22s~А X│1еNF2ЗИЕ I$(X)│""з Л X2┬ТЗ#м2,д7);I$(X);д25);B$(X);д48);V$(X);д63);S$(X); Л(13)2чЬЗ#м2,д5);"CMTS: ";C$(X); б(2,13)2яжЛ X2¤░X│1:Бе410;UO$;д80);UE$2]jЗ#м2,д0);UO$;д10);"ITEM";д30);"BRAND";д50);"VALUE";д65);"SERIAL #";д80);UE$2ftЗ#м22s~А X│1еNF2ЗИЕ I$(X)│""з Л X2┬ТЗ#м2,д7);I$(X);д25);B$(X);д48);V$(X);д63);S$(X); Л(13)2чЬЗ#м2,д5);"CMTS: ";C$(X); б(2,13)2яжЛ X2¤░X│1:Бе410                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ian should be alerted are as follows:"/.З#м2/~Е HI$│"" ░ MH$│"" з З#м2,д12)"No special instructions at this time.":Бе 680/Н&A$│HI$л" "/и0Е A$│"" ▒ A$│" " з 610/╝:А CT│60 е 1 йм1/╓DЕ  Р(A$,CT,1)┤▓" "з Л/ЇNB$│ О(A$,CT):З#м2,д12);B$0XA│ З(A$):A$│ П(A$,(AмCT)):Бе 5600"bЗ#м201lC$│MH$л" "0LvЕ C$│"" ▒ C$│" " з 6800`АА CT│60 е 1 йм10zКЕ  Р(C$,CT,1)┤▓" "з Л0ШФD$│ О(C$,CT):З#м2,д12);D$0╜ЮC│ З(C$):C$│ П(C$,(CмCT)):Бе 6300╞иЗ#м21▓Е PE$┤▓"" з З#м2,д8)"Our Pediatrician is: ";PE$:З#м2,д12)"Phone:";PP$:З#м21j╝Е FA$┤▓"" з З#м2,д8)"Our family physician is: ";FA$:З#м2,д12)"Phone:";FP$:З#м21╡╞Е DE$┤▓"" з З#м2,д8)"Our Dentist is: ";DE$:З#м2,д12)"Phone:";DP$:З#м21р╨З#м2,д8)"Our Hospital of choice is: ";2!┌Е HO$│"" з З#м2,"No specific Hospital":З#м2 :Д З#м2,HO$:З#м22АфЕ HE$┤▓"" з З#м2,д8)"Our Health Insurance Plan is: ";HE$:З#м2,д12)"I.D. Number: ";ID$:З#м22╣юЗ#м2,д8)"This authorization expires at noon on ";EX$2я°З#м2:З#м2:З#м2:З#м2,д8) б(24,"-");д40); б(32,"-")3+З#м2,д8)"Witness";д40);"Parent's Signature Date"3F З#м2:З#м2,д40);PA$(PN)3XЗ#м2,д40);ST$3j З#м2,д40);CI$3Л*З#м2,д40);"Home Phone: ";HP$3┐4Е WP$(PN)┤▓"" з З#м2,д40)"Work Phone: ";WP$(PN)4>З#м2, Л(12); :ГFORM FEED -OMIT IF YOUR PRINTER DOES NOT ACCEPT IT.4=HЮ:З"THE FORM FOR ":ЗCH$:З"IS FINISHED PRINTING."4KRТ 282,2554Q\К4sf:Г***************************4ЖpЗ  б(32,"*"):Р4иД:Г***************************5О:ГSUBSTITUTE THE INFORMATION THAT APPLIES TO YOU AND YOUR CHILD ON THE FOLLOWING LINES.5ЄШ:Гnote! ANY LINE THAT DOES NOT APPLY TO YOU OR YOUR CHILD, SUCH AS A SPECIFIC TYPE OF DOC- TOR OR PARENT'S WORK PHONE NUM- BER MAY BE OMITTED OR PRECEDED WITH AN APOSTROPHE <'>. THE COMPUTER WILL SKIP THAT ENTRY ONTHE FORM.6▐:Г***************************6>шCH$│"John E. Doe Jr." :ГCHILD'S NAME6pЄDA$│"January 1, 1978" :ГCHILD'S DATE OF BIRTH6┌№OT$│"Treatment with penicillin based antibiotics":ГOTHER TREATMENT RESTRICTED. 50 CHARACTERS MAXIMUM.7HI$│"John Jr. is allergic to Penicillin."7Q:ГHI$ IS THE CHILD'S MEDICAL HISTORY. 240 CHARACTER MAXIMUM LENGTH.7{PE$│"A. Kiddedoc M.D." :ГPEDIATRICIAN7л$PP$│"(614) 555-1234" :ГPEDIATRICIAN'S PHONE7╓.FA$│"I. Kurem, M.D. " :ГFAMILY DOCTOR88FP$│"(614) 555-5678" :ГFAMILY DOCTOR'S PHONE82BDE$│"I Yankum D.D.S." :ГFAMILY DENTIST8^LDP$│"(614) 555-9012" :ГDENTIST'S PHONE 8ЪVHO$│"County General Hospital West" :ГHOSPITAL OF CHOICE8┬`HE$│"Blue Cross" :ГHEALTH INSURANCE8хjID$│"1122-33445" :ГI.D. NUMBER9tPA$(1)│"Mr. John E. Doe, Sr." :ГFATHER'S NAME9B~PA$(2)│"Mrs. Jane Doe" :ГMOTHER'S NAME9mИST$│"123 E. Main St." :ГSTREET ADDRESS9ЬТCI$│"Anytown, Ohio 43210" :ГCITY AND STATE9┬ЬHP$│"(614) 555-9876" :ГHOME PHONE9їжWP$(1)│"(614) 555-5432" :Г FATHER'S WORK PHONE:(░WP$(2)│"(614) 555-2345" :Г MOTHER'S WORK PHONE:.║Р" :ГMOTHER'S NAME9mИST$│"123 E. Main St." :ГSTREET ADDRESS9ЬТCI$│"Anytown, Ohio 43210" :ГCITY AND STATE9┬ЬHP$│"(614) 555-9876" :ГHOME PHONE9їжWP$(1)│"(614) 555-5432" :Г FATHER'S WORK PHONE:(░WP$(27)CHR$(202)CHR$(197)CHR$(197)CHR$(202)CHR$(202)CHR$(207)CHR$(192)CHR$(196)R$; 25 PRINTCHR$(197)CHR$(206)CHR$(204)CHR$(200)CHR$(197)CHR$(206)CHR$(205)CHR$(206)R$CHR$(207)CHR$(204)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(207)CHR$(204)R$CHR$(197)CHR$(202)CHR$(203)CHR$(197)CHR$(202); 26 PRINTR$CHR$(197)CHR$(202)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(197)CHR$(202)CHR$(192)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(202)CHR$(207)R$CHR$(207)R$; 27 PRINTCHR$(207)R$CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(199)CHR$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1UILT"," (88) KINGBOOT"," (90) KING","(101) UTILITY1","(116) BUDGET","(120) REPORT"/[.Ж END INVNTORY"," (49) LETRRITR"," (60) MAIN"," (68) EXPNS"," (69) REM"," (70) ELECTION"/Q№Ж " (72) BRU"," (73) ENCRYPT"," (74) SHOOTEM"," (74) CALENDAR"," (75) QXREF","(182) COMMANDO"0.Ж END) FILESRCH"/ЗЖ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/рЖ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$Ж "(167) SOUNDGEN","(172)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  /&$ :Г****************************&C:ГAUTHORIZATION TO CONSENT&f:ГFOR THE TREATMENT OF A MINOR&Й(:Г****************************&й2:ГPROGRAM BY J. A. UPPERMAN&╔<:ГBASED ON AN AUTHORIZATION&ыF:ГFORM BY RIVERSIDE METHODIST' P:ГHOSPITAL, COLUMBUS, OHIO'-Z:Г****************************'NЦ:ГENTER THE INFORMATION THAT'lа:ГAPPLIES TO YOU AND YOUR'Ок:ГCHILD STARTING AT LINE 1000'░┤:Г***************************'├╚Х 1500:Бж 1000'╧╥Т 282,0(▄Ю:З"AUTHORIZATION TO CONSENT FOR":З"TREATMENT OF:":З CH$:Бж 880(DцЗ"NAME OF PERSON BEING APPOINTED GUARDIAN?"({Ё╗ Й GA$:Е GA$│"" з а 100,1:а 50,2:Бе 230 :Д Бж 880(▒·З"AUTHORIZATION EXPIRES ON NOON":З"OF WHAT DATE?"(щ╗ Й EX$:Е EX$│"" з а 150,1:а 100,2:Бе 250 :Д Бж 880)DЗ"MEDICAL HISTORY ON FILE:": Е HI$│"" з З:З"<>":З:Бе 290)NЗ HI$)И"З"DO YOU WISH TO ADD TO THIS INFORMATION ";)╦,Й YN$:Е YN$│"n" ▒ YN$│"N" з 330 :Д Е YN$┤▓"y" ░ YN$┤▓"Y" з 290*6Ю:З"TYPE IN ADDITIONAL INFORMATION":З"(250 CHARACTERS MAXIMUM)":З*@╗ Й MH$*@JБж 880:З"PARENT SIGNING FORM:"*sTЗ"1> ";PA$(1):З"2> ";PA$(2):Й"ENTER 1 OR 2";PN*Н^Е PN┤▓1 ░ PN┤▓2 з 330*ШhБж 880*╔rЗ"SET THE PRINTER TO THE TOP OF THE PAPER"*Ё|З:Й"PRESS WHEN READY.";YN$+Ж:Г***************************+&Р:ГPRINTING FORM+RЪЮ:З"PLEASE WAIT - PRINTING FORM":Бж 880+hдА CT│1 е 2:З#м2:Л+йоЗ#м2,д14)"AUTHORIZATION TO CONSENT FOR TREATMENT OF A MINOR"+╘╕З#м2:З#м2,д8)"I hereby grant to: ";GA$,D┬З#м2:З#м2,д8)"Authority to give an informed consent for the treatment of:":З#м2,д12)CH$;" Born: ";DA$:З#м2-)╠З#м2,д8)"Should such child require medical care of any nature by reason":З#м2,д8)"of any condition or incident, except that the following procedures":З#м2,д8)"should not be performed without my consent unless the concurring". ╓З#м2,д8)"medical opinion of two physicians is that such procedures are":З#м2,д8)"necessary to relieve the suffering or preserve the life or limb":З#м2,д8)"of such child and I cannot be reached after reasonable attempts.".рЗ#м2.3ъЗ#м2,д12)"A> Major Surgery".VЇЕ OT$┤▓"" з З#м2,д12)"B> ";OT$._■З#м2/%З#м2,д8)"Facts concerning the child's history, including allergies,":З#м2,д8)"physical impairments and medications being taken, to which a":З#м2,д8)"physic                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    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??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ^&#:Г***************************&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)Ax╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR36BU22R10D10L10NU10L2D12R14U12L2BD12")OВАII│1е500)cМЕ Т│""з150:Д160)kЦЛII)БаВ 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*AцАI│NPл1е34:B$(I)│"":Л*GЁЮ*f·З" RAINBOW ON DISK"*ЕЗ" (C) FALSOFT, 1988"*оЗ" PRESS LETTER TO LOAD BASIC ONLY";+З " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"+ "З+('З" SIDE ONE"+Q,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+W6З+|@З" PRESS TO CONTINUE";+СJX$│ Т:Е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,mЪЗ " 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-8ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-■Ю:З@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."шЖ "APRIL".│ЄЖ " (25) MED FORM"," (32) RECIPES"," (36) FINANCE"," (44) INVNTORY"," (49) LETRRITR"," (60) MAIN"," (68) EXPNS"," (69) REM"," (70) ELECTION"/Q№Ж " (72) BRU"," (73) ENCRYPT"," (74) SHOOTEM"," (74) CALENDAR"," (75) Qр╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┴ ┴   ┼┬┬┼─╟┼├┴╟┬┬├$%╟'╚)*+─-./01├─├├6┼89:;╟=>?╞     FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BASaMED FORMBAS2RECIPES BAS&nFINANCE BAS(&INVNTORYBASLETRRITRBASeMAIN BAS,PEXPNS BASwREM BASыELECTIONBASВBRU BAS2хENCRYPT BAS3XSHOOTEM BAS┌CALENDARBASpQUILT BAS4 KINGBOOTBAS5╝KING BAS ]UTILITY1BAS7■BUDGET BAS<REPORT BAS#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          k& :Г RECIPE FILER&,:Г BY BRAD SPENCER&@Х 2000:М W$(30)&ш(Ю:З@41,"RECIPE FILER":З@96,"1> ENTER RECIPE":З "2> LIST RECIPE":З "3> PRINT RECIPE":З "4> SAVE RECIPE":З "5> LOAD RECIPE":З "6> EDIT RECIPE":З@352,"SELECT (1-6):";& 2A$│ Т:Е A$│"" з 50'j<Е A$┤▓"1" ░ A$┤▓"2" ░ A$┤▓"3" ░ A$┤▓"4" ░ A$┤▓"5" ░ A$┤▓"6" з 50 :Д И  Й(A$) Бе 80,180,230,370,440,520'~F:Г ENTER RECIPE(=PЮ:З@9,"ENTER RECIPE":З@64,"CATEGORIES:":З "1> BROWNIES":З "2> CAKES":З "3> COOKIES":З "4> DESSERTS":З "5> MAIN DISHES":З "6> MEATS":З "7> PASTRY":З "8> SALADS":З "9> SOUPS":З "10> OTHER"(рZЙ "CHOOSE (1-10):";CA$:Е  Й(CA$)▓10 з 90 :Д Е  Й(CA$)│10 з 130 :Д Ю:З@9,"ENTER RECIPE":З@64,"LIMIT OF 30 LINES.":З "(44 CHARACTERS OR LESS)":З:LI│1:X│1:Бе 140)4dЗ LI;"> ";:╗ Й "";W$(X):Е  З(W$(X))▓44 з З "TOO MANY CHARACTERS!":Бе 100 :Д 110)tnЕ W$(X)│"END" з 40 :Д Е LI▓29 з 120 :Д LI│LIл1:X│Xл1:Бе 100)пxLI│LIл1:З "NO MORE LINES LEFT.":А D│1 е 1000:Л D:Бе 40*]ВЙ "NAME OF CATEGORY";CB$:Е  З(CB$)▓13 з З "13 CHARACTERS OR LESS!":Бе 130 :Д Ю:З@9,"ENTER RECIPE":З@64,"LIMIT OF 30 LINES.":З "(44 CHARACTERS OR LESS)":З:LI│1:X│1:Бе 100+МЕ CA$│"1" з CB$│"BROWNIES" :Д Е CA$│"2" з CB$│"CAKES" :Д Е CA$│"3" з CB$│"COOKIES" :Д Е CA$│"4" з CB$│"DESSERTS" :Д Е CA$│"5" з CB$│"MAIN DISHES" :Д Е CA$│"6" з CB$│"MEATS" :Д 150+рЦЕ CA$│"7" з CB$│"PASTRY" :Д Е CA$│"8" з CB$│"SALADS" :Д Е CA$│"9" з CB$│"SOUPS" :Д Е CA$┤▓"1" ░ CA$┤▓"2" ░ CA$┤▓"3" ░ CA$┤▓"4" ░ CA$┤▓"5" ░ CA$┤▓"6" ░ CA$┤▓"7" ░ CA$┤▓"8" ░ CA$┤▓"9" з CB$│"BROWNIES"+ыаБе 100+■к:Г LIST RECIPE,>┤Ю:З@10,"LIST RECIPE":З@64,"CATAGORY: ";CB$:З:Е LI│30 з 200,r╛А I│1 е LIм1:З W$(I):А D│1 е 400:Л D:Л I:Бе 210,Э╚А I│1 е LI:З W$(I):А D│1 е 400:Л D:Л I,с╥З:З@452,"PRESS ANY KEY TO RETURN";:A$│ Т:Е A$│"" з 210 :Д Бе 40,ї▄:Г PRINT RECIPE--цЮ:З@9,"PRINT RECIPE":З@228,"PRESS TO PRINT"-PЁA$│ Т:Е A$│ Л(12) з 250 :Д 240.·Ю:З@234,"PRINTING...":З#м2,"-------------------":З#м2,"! \":З#м2,"!";д4);CB$;д20);"\":З#м2,"! \":З#м2,"! -----------------------------".8З#м2,"!";д50);"!":Е LI▓16 з 310.ЄА I│1 е LIм1:З#м2,"! ";W$(I);д50);"!":Л I:Е LI│1 з LM│15 :Д Е LI│2 з LM│14 :Д Е LI│3 з LM│13 :Д Е LI│4 з LM│12 :Д Е LI│5 з LM│11 :Д Е LI│6 з LM│10 :Д Е LI│7 з LM│9 :Д Е LI│8 з LM│8/БЕ LI│9 з LM│7 :Д Е LI│10 з LM│6 :Д Е LI│11 з LM│5 :Д Е LI│12 з LM│4 :Д Е LI│13 з LM│3 :Д Е LI│14 з LM│2 :Д Е LI│15 з LM│1 :Д Е LI│16 з 300/ж"А I│1 е LM:З#м2,"!";д50);"!":Л I/¤,З#м2,"!";д50);"!":З#м2,"---------------------------------------------------":Бе 400Й6А I│1 е 15:З#м2,"! ";W$(I);д50);"!":Л I:З#м2,"!";д50);"!":З#м2,"---------------------------------------------------":З#м2,"!";д50);"!"1@А I│16 е LIм1:З#м2,"! ";W$(I);д50);"!":Л I:Е LI│17 з LM│14 :Д Е LI│18 з LM│13 :Д Е LI│19 з LM│12 :Д Е LI│20 з LM│11 :Д Е LI│21 з LM│10 :Д1║JЕ LI│23 з LM│8 :Д Е LI│24 з LM│7 :Д Е LI│25 з LM│6 :Д Е LI│26 з LM│5 :Д Е LI│27 з LM│4 :Д Е LI│28 з LM│3 :Д Е LI│29 з LM│2 :Д Е LI│30 з LM│1 :Д Е LI│31 з 3001▀TА I│1 е LM:З#м2,"!";д50);"!":Л I1ъ^Бе 3001¤h:Г SAVE RECIPE20rЮ:З@10,"SAVE RECIPE":З:╗ Й "NAME OF FILE: ";F$2r|З@228,"PRESS TO SAVE.":A$│ Т:Е A$│ Л(13) з 390 :Д 3802┐ЖЮ:З@234,"SAVING...":Щ "O",#1,F$:З "CATEGORY:";CB$:┘ #1,CB$:Е LI│30 з 4102цРА I│1 е LIм1:┘ #1,W$(I):Л I:Бе 4203ЪА I│1 е LI:┘ #1,W$(I):Л I3/дЪ #1:З "GOT IT!":А D│1 е 500:Л D:Бе 403Bо:Г LOAD RECIPE3u╕Ю:З@10,"LOAD RECIPE":З:╗ Й "NAME OF FILE: ";F$3╖┬З@228,"PRESS TO LOAD.":A$│ Т:Е A$│ Л(13) з 460 :Д 4503¤╠Ю:З@233,"LOADING...":Щ "I",#1,F$:LI│1:Й #1,CB$:З "CATEGORY: ";CB$4╓Е  М(1) з 49047рЙ #1,W$(LI):З W$(LI):LI│LIл1:Бе 4704PъЪ #1:З:З "GOT IT!":З4ОЇЗ@452,"PRESS ANY KEY TO RETURN":A$│ Т:Е A$│"" з 500 :Д 404б■:Г EDIT RECIPE5Ю:З@10,"EDIT RECIPE":З@64,"OPTIONS:":З@128,"1> CHANGE CATEGORY":З "2> EDIT A LINE":З@224,"SELECT:"5:A$│ Т:Е A$│"1" з 540 :Д Е A$│"2" з 550 :Д 5305vЮ:З "OLD CATEGORY: ";CB$:╗ Й "NEW CATEGORY: ";CB$:Бе 405К&Ю:Е LI│30 з 5705╚0А I│1 е LIм1:З I;") ";:З W$(I):А D│1 е 400:Л D:Л I:Бе 5805¤:А I│1 е LI:З I;") ";:З W$(I):А D│1 е 400:Л D:Л I6*DЗ:╗ Й "WHICH LINE:";L$:Е  Й(L$)▓30 з 5806`NЗ L$;"> ";W$( Й(L$)):З L$;"> ";:╗ Й "";W$( Й(L$))6jXБе 40CB$:Бе 405К&Ю:Е LI│30 з 5705╚0А I│1 е LIм1:З I;") ";:З W$(I):А D│1 е 400:Л D:Л I:Бе 5805¤:А I│1 е LI:З I;") ";:З W$(I):А D│1 е 400:Л D:Л I6                                                                                                                                                                                                                                                                 #&)d:Г FINANCIAL TIME VALUE CONVERSIONS&aiХ 200,&H4000л16127 :ГSAVE SPACE FOR TEXT DUMP CODE&ЕkТ 150,18 :ГSET PRINTER TO 2400&Юl:Г TEXT DUMP ROUTINE&сnЖ &H86,&HFE,&HB7,0,&H6F,&H8E,4,0,&H5F,&H5C,&HA6,&H80,&H81,&H60''sЖ &H2B,2,&H84,&HBF,&HAD,&H9F,&HA0,2,&HC1,&H20,&H2B,&HEF,&H86,&H0D'bxЖ &HAD,&H9F,&HA0,2,&H8C,6,0,&H2B,&HE3,&H7F,0,&H6F,&H39'Й}А I│&H4000л16128 е &H4000л16128л40'ЧВН A:Т I,A'ЯЗЛ I'пМ╣ Г0│&H7F00'┌ОЮ:З"ARE YOU USING A PRINTER?(Y OR N)";'єПQ$│ Т:Е Q$│"" Бе 143(СЕ Q$│"Y" з QQ│1 :Д QQ│0(УЗ(ШЦЕ QQ│1 з З "TYPE P TO PRINT RESULTS AFTER A CONVERSION, THEN TYPE Y OR N AS":З"PROMPT REQUESTED.":З:З"HIT ANY KEY TO CONTINUE"(╣кЕ QQ│1 з A$│ Т:Е A$│""Бе 170)═F1$│"$$#######.##":P$│"PRESENT VALUE IS: ":U$│"UNIFORM VALUE IS: ":F$│"FUTURE VALUE IS: ")╥Ю)=цЗ@5,"FINANCIAL CONVERSIONS")\ЁЗ@70,"BY DALE TINKLEPAUGH")Б·З@131,"SELECT CONVERSION RESULT")ЭЗ@197,"1 PRESENT VALUE")└З@229,"2 UNIFORM SERIES VALUE")█З@261,"3 FUTURE VALUE")ў"З@293,"4 INTEREST RATE"*",З@385,"PRESS A NUMBER BETWEEN 1 AND 4"*:6A$│ Т:Е A$│""Бе 310*S@CASE│ Ю(1,"1234",A$)*uJИ CASE Бж 1000,2000,3000,4000*АTБе 210*Эш:ГMENU FOR PRESENT VALUE*гЄЮ*╬№З@64,"WHICH WOULD YOU LIKE TO CONVERT"*эЗ@96,"TO A PRESENT VALUE?"+ З@165,"1 UNIFORM SERIES"+(З@197,"2 GRADIENT SERIES"+J$З@229,"3 PROPORTIONAL SERIES"+c.З@261,"4 FUTURE SUM"+Е8З@293,"5 RETURN TO MAIN MENU"+░BЗ@385,"PRESS A NUMBER BETWEEN 1 AND 5"+╔LA$│ Т:Е A$│""Бе 1100+┌VЕ A$│"5" з Р+є`CASE│ Ю(1,"1234",A$),jИ CASE Бж 1200,1400,1600,1800,!tБе 1000,G░:ГPRESENT VALUE OF UNIFORM SERIES,M║Ю,v┐З"PRESENT VALUE OF UNIFORM SERIES":З,С─Й"NUMBER OF PERIODS";N,┤╬Й "INTEREST RATE/PERIOD(%)";IP,┴╪I│IPо100,█тЙ "PERIODIC AMOUNT";A,щьQ│(1лI)пN,№ЎPA│(Qм1)о(IнQ)-P│PAнA-З P$- З ═ F1$;P-;З"DO ANOTHER? (Y OR N)";-TA$│ Т:Е A$│""Бе 1305-sЕ A$│"P" ░ QQ│1 з A│ Г0(0)-еЕ A$│"Y" з Бе 1210 :Д Е A$│"N" з Р :Д Бе 1305-╠x:ГPRESENT VALUE OF GRADIENT SERIES-╥}Ю- З"PRESENT VALUE OF GRADIENT":З"SERIES":З.ВЙ"NUMBER OF PERIODS";N.=ЗЙ "INTEREST RATE/PERIOD(%)";IP.JМI│IPо100.iСЙ"PERIODIC INCREASE ($)";G.wЦQ│(1лI)пN.ЙЫA│(Qм1)о(IнQ).УаB│NоQ.беR│(AмB)оI.лкP│RнG.╜пЗ P$:З═ F1$;P.┌┤З"DO ANOTHER? (Y OR N)";.Ў╢A$│ Т:Е A$│"" з Бе 1462/╖Е A$│"P" ░ QQ│1 з A│ Г0(0)/K╕Е A$│"Y" ░ QQ│1 з 1405 :Д Е A$│"N" з Р :Д Бе 1462/Q╣Р/|@:ГPRESENT VALUE OF PROPORTIONAL SERIES/ВEЮ/│GЗ"PRESENT VALUE OF PROPORTIONAL":З"SERIES":З/╧JЙ "NUMBER OF PERIODS";N/ёOЙ"INTEREST RATE/PERIOD(%)";IP/■TI│IPо1000YЙ "RATE OF INCREASE(%)";RP0*^R│RPо1000GcЙ"FIRST PERIOD AMOUNT";C0QhQ│Iл10zmЕ R│I з 1705 :Д Е R┤I з 1675 :Д 16500Еr:Г R>I0ЧwX│((1лR)оQ)м10о|FA│(((Xл1)пN)м1)оX0║БPC│FAоQ0╞ЖБе 17150╤Л:Г RИ CASE Бж 2200,2600,28004ьHБе 20005Ш:ГUNIFORM SERIES VALUE OF PRESENT SUM5ЭЮ5LЯЗ"UNIFORM SERIES VALUE OF PRESENT":З"SUM":З5gвЙ"NUMBER OF PERIODS";N5ЛзЙ "INTEREST RATE/PERIOD (%)";IP5ШмI│IPо1005н▒Й"PRESENT SUM";P5╗╢Q│(1лI)пN5╦╗R│IнQо(Qм1)5╒└A│RнP5ч┼З U$:З═ F1$;A6╟З"DO ANOTHER (Y OR N)?"6╩A$│ Т:Е A$│"" з Бе 22506>╠Е A$│"P" ░ QQ│1 з A│ Г0(0)6Z╧Е A$│"Y" з Бе 2250 :Д Р6И (:ГUNIFORM SERIES VALUE OF GRADIENT SERIES6О -Ю6┬ /З"UNIFORM SERIES VALUE OF GRADIENT":З"SERIES":З6▐ 2Й "NUMBER OF PERIODS";N7 7Й"INTEREST RATE/PERIOD (%)";IP7 Й"NUMBER OF PERIODS";N><Й"INTEREST RATE/PERIOD (%)";IP>I$I│IPо100>d)Й"PERIODIC INCREASE";G>Г.FG│(((((1лI)пN)м1)оI)мN)оI>О3F│FGнG>а8З F$:З═ F1$;F>╜=З"DO ANOTHER (Y OR N)?";>╓BA$│ Т:Е A$│""Бе 3650>їDЕ A$│"P" ░ QQ│1 з A│ Г0(0)?'GЕ A$│"Y" з Бе 3605 :Д Е A$│"N" з Р :Д Бе 3650?Pа:ГMENU FOR INTEREST RATE CONVERSIONS?VкЮ?|┤З@64,"WOULD YOU LIKE TO CONVERT:"?б╛З@165,"1 NOMINAL ANNUAL RATE TO"?┼╚З@197," EFFECTIVE ANNUAL RATE"?ь╥З@229,"2 EFFECTIVE ANNUAL RATE TO"@▄З@261," NOMINAL ANNUAL RATE"@0цЗ@293,"3 RETURN TO MAIN MENU"@[ЁЗ@385,"PRESS A NUMBER BETWEEN 1 AND 3"@t·A$│ Т:Е A$│""Бе 4090@ЫЕ A$│"3" з Р :Д CASE│ Ю(1,"12",A$)@│И CASE Бж 4300,4600@┐Бе 4000@┌╠:ГNOMINAL TO EFFECTIVE@р╓Ю@■█З"NOMINAL TO EFFECTIVE":ЗA+рЗ"NUMBER OF COMPOUNDING":З"PERIODS/YEAR"AMЇЙ"(FOR CONTINUOUS INPUT 0)";MAk■Й"NOMINAL ANNUAL RATE";IPAxI│IPо100AЙЕ M│0 з 4380AдIA│(1лIоM)пMм1:Бе 4390A│IA│ Ч(I)м1Aр&З"EFFECTIVE ANNUAL RATE IS:":ЗIAн100;"%"A¤0З"DO ANOTHER (Y OR N)?";B:A$│ Т:Е A$│"" Бе 4410B6?Е A$│"P" ░ QQ│1 з A│ Г0(0)BhDЕ A$│"Y" з Бе 4310 :Д Е A$│"N" з Р :Д Бе 4410BГ°:ГEFFECTIVE TO NOMINALBЙЮBзЗ"EFFECTIVE TO NOMINAL":ЗB╘ З"NUMBER OF COMPOUNDING":З"PERIODS/YEAR"BўЙ"(FOR CONTINUOUS, INPUT 0)";MC Й"EFFECTIVE ANNUAL RATE";IPC%*IA│IPо100C94Е M│0 з Бе 4690CN>I│(1лIA)п(1оM)м1CaHNI│IнM:Бе 4700CqRNI│ Щ(1лIA)CЬ\З"NOMINAL ANNUAL RATE IS:":ЗNIн100;"%"C╣fЗ"DO ANOTHER (Y OR N)?";C╥pA$│ Т:Е A$│""Бе 4720CёuЕ A$│"P" ░ QQ│1 з A│ Г0(0)D"zЕ A$│"Y"з Бе 4610 :Д Е A$│"N" з Р :Д Бе 4720C94Е M│0 з Бе 4690CN>I│(1лIA)п(1оM)м1CaHNI│IнM:Бе 4700CqRNI│ Щ(1лIA)CЬ\З"NOMINAL ANNUAL RATE IS:":ЗNIн100;"%"C╣fЗ"DO ANOTHER (Y OR N)?";C╥pA$│ Т:Е A$│""Бе 4720CёuЕ A$│"P" ░ QQ│1 з A│ Г0(0)D"zЕ A$│"Y"з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 /M&@:Г *******REMEMBER******** *********V1.01*********&~ :Г*****COPYRIGHT 1985**** ***********************&╝:Г*********************** ***BY LARRY ANDERSON***&·:Г*********************** ***BOX 180 BENTON LA***'8:Г*********************** ***********************'?:Г'F#:Г'S(Ю3:Х5000's-Т150,1:Г***** 9600BAUD POKE'Х2Бе1350:Г***** PCLEAR ROUTINE'▓7МA$(150),B$(150),C$(150)( mB$│"NY@":W│ Ю(B$,A$)3ZrИW Бе240,800,1355:Бе3603~w:Г***** (A=1) NEW VEHICLE ENTRY3Н|Z$│ Л(128)4 БЮ3:З@0,U$лU2$;:З@199,"name"лZ$л"you"лZ$л"will"лZ$л"use"лZ$;:З@231,Z$л"for"лZ$л"this"лZ$л"vehicle"лZ$;:З@480,W$;:Т1535,12841ЖЗ@364," ";:З@364,"";:╗ЙN1$4aЛЗ@372, б(12,175);:ЕN1$│""з385:ДЕ N1$│"@"з754лРАQ│1е  З(N1$):Е К( Р(N1$,Q,1))┤48 ▒  К( Р(N1$,Q,1))▓90 з N1$│"":Бе3854│ХЛ Q4╬ЪTEMP$│N$:N$│N1$:Бе11704ъЯЮ3:З@266,"SAVING DATA";5дЩ"O",#1,N$л"/DAT"5йА Q│1е8:┘#1,D(Q),H$(Q)5#оЛ Q5+│Ъ#155╕Бе9655]╜:Г***** (A=2) CHECK FOR SERVICE DUE5ю┬Ю3:З@0,U$;:З@24,N$;:З@169,Z$л"what"лZ$л"is"лZ$л"the"лZ$лZ$;:З@201,Z$л"vehicle"лZ$л"name"лZ$;:З@480,W$;:Т1535,128:З@332," ";:З@332,"";6B╟╗ЙN1$:З@340, б(12,175);:TEMP$│N$:ЕN1$│""░N$┤▓""з790:ДЕN1$│"@"з75:ДN$│N1$:Бе11706W╠ЕN$│""▒N$│"@"з756m╤Щ"I",#1,N$л"/DAT"6Й╓А Q│1е8:Й#1, D(Q),H$(Q)6Ь█H(Q)│ Й(H$(Q))6прJ(Q)│0:J1(Q)│06╖хЛ Q6┐ъЪ#16╠яЕA│3з24077ЇЮ3:З@0,U$;:З@24,N$;:З@196,Z$л"enter"лZ$л"current"лZ$л"mileage"лZ$;:З@300," ";:З@480,W$;:Т1535,1287E∙D$│"":N│17P■Бж14407~ЕA$│"@"з75:ДЕ К(A$)│8з700:ДЕ К(A$)│13з5457гЕ К(A$)┤48 ▒ К(A$)▓57 з510 :Д5257║ D$│D$лA$:З@300,D$;7╤N│Nл1:Е N┤│6 з 5107▄Бж14408Е К(A$)│8з700:ДЕ К(A$)│13з545:Д5358!M(0)│ Й(D$)85&АQ│1е7й2:ЕM(0)┤ Й(H$(Q))з13658<+ЛQ8о0Ю3:З@0,U$;:З@24,N$;:З@197,Z$л"enter"лZ$л"current"лZ$л"date"лZ$;:З@300," ";:З@480,W$;:Т1535,128:D$│"":N│18╣5Бж14408ч:ЕA$│"@"з75:ДЕ К(A$)│8з715:ДЕ К(A$)│13з6259?Е К(A$)┤48 ▒ К(A$)▓57 з5659DD$│D$лA$:З@300,D$;9QIЕN│2зV$│ Р(D$,1,2):Е Й(V$)▓12 ▒  Й(V$)│0 з 10309ГNЕN│4зV$│ Р(D$,3,2):Е Й(V$)▓31 ▒  Й(V$)│0з10309ЩSN│Nл1:ЕN┤│6 з 5659дXБж14409╦]Е К(A$)│8з715:ДЕ К(A$)│13з610:Д6009єbАQ│2е8й2:Е П(D$,2)┤ П(H$(Q),2)з1030:'gЕ П(D$,2)│ П(H$(Q),2)░ О(D$,2)┤ О(H$(Q),2)з1030:/lЛ Q:<qH$(0)│D$:LvАT│1е300:ЛT:╠{M$│ И(M(0)):Z│ З(M$):Ю3:З@0,U$;:З@67,N$;"...":З@85мZ,M(0)" MILES";:З@96, " MAINTENANCE DUE ";:Т1117,175:Т1118,175:Т1119,175;АЗ"FOR / / ";:З@117, О(H$(0),2);:З@120, Р(H$(0),3,2);:З@123, П(H$(0),2);;4ЕЗ@128, б(32,32);;PКАQ│1е7й2:M(Q)│D(Q)лH(Q);оПT$(1)│"OIL CHANGE":T$(3)│"LUBE":T$(5)│"TUNE UP":T$(7)│"BELTS/HOSES":Е M(0)▓│M(Q)л1000з725<ФЕ M(0)┤M(Q)л1000 ░ M(0)▓M(Q)м500 з735:ДЗ Л(143);T$(Q);" IN";M(Q)мM(0);"MILES":J(Q)│3<ЩЛ Q<ЮБж910╦Z│ З(D$):ЕZ┤1 з 565:ДD$│ О(D$,Zм1):З@300," ";:З@300,D$;:N│Nм1:Бе565>"╨:Г***** SERVICE 'FLAGS'>H╒З Л(191); T$(Q);" OVERDUE":J(Q)│2>R┌Бе665>x▀З  Л(159);T$(Q);" SVC DUE":J(Q)│1>ВфБе665>гщ:Г***** (A=3) UPDATE RECORDS>їюЮ3:З@0,U$;:З@24,N$;:З@233,"Service"лZ$л"update";:З@297,"Expense"лZ$л"record";?єБж1440?°B$│"ES@":W│ Ю(B$,A$)?4¤ИW Бе1300,775,75:Бе755?O:Г***** SERVICE UPDATE?тЮ3:З@0,U$;:З@24,N$;:З@232,Z$л"new"лZ$л"data"лZ$л"for"лZ$лZ$;:З@264,Z$л"vehicle"лZ$л"named"лZ$;:З@480,W$;:Т1535,128:З@331," ";:З@331,"";@ ╗ЙN1$:ЕN1$│"@"з75:ДЕN1$│""░N$┤▓""з790:ДЕN1$┤▓""зN$│N1$@(Бе1170@NЗ@332,N$;:З@340, б(12,175);:Бе460@jЕA│2з445:ДЕA│3з775:Бе75@Ж ЕA│1з415:ДЕA│3з810:Бе75@п%:Г***** WRITE UPDATES TO "/DAT" FILE@═*Ю3:З@266," SAVING DATA ";@▄/Щ"I",#1,N$@є4Щ"O",#2,"TEMP/DAT"A9А Q│1е8:Й#1, B(Q),E$(Q)A->Е H$(Q)┤▓"" з E$(Q)│H$(Q)A@C┘#2,B(Q),E$(Q)AGHЛQAMMЪAxR╥N$л"/DAT":╓"TEMP/DAT"е N$л"/DAT":Бе75AЮW:Г***** CHK. VEH/NDX AND CRNT/NDXA┤\Щ"I",#1,"VEH/NDX"A┐aАQ│1е5A█fЙ#1,N$(Q):ЕN$(Q)│""з885AяkЕ  М(1)│м1 з885AЎpЛQA■uЪ#1B;zЕA│0зЩ"I",#1,"CRNT/NDX":Д75 :Г *****READ FIRST TIME ONLYBFЙ#1,N$BSДЪ#1:Бе75BrЙ:Г***** DATE CALCULATIONSBАОА Q│2е8й2B╚УMO(Q)│ Й( О(H$(Q),2)):DA(Q)│ Й( Р(H$(Q),3,2)):YR(Q)│ Й( П(H$(Q),2))CШM0│ Й( О(H$(0),2)):D0│ Й( Р(H$(0),3,2)):Y0│ Й( П(H$(0),2))CЭY(Q)│(Y0мYR(Q))н360CgвT$(2)│"OIL CHANGE":T$(4)│"LUBE":T$(6)│"TUNE UP":T$(8)│"BELTS/HOSES"CЫзI(Q)│(((M0м1)н30лD0лY(Q))м((MO(Q)м1)н30лDA(Q)))C▄мЕ I(Q)▓D(Q)н30м15 з З Л(175); T$(Q);" BY CALENDAR":J1(Qм1)│1Cу▒ЛQCщ╢РDQ╗Ю3:З@0,U$л б(6,128);:З@21,"NEW VEHICLE";:З@231,"NAME ALREADY USED";:а200,5:а150,10:АT│1е425:Л:Бе385DП└:Г***** WRITE NEW VEH. TO FILE AND OPEN BLANK "/DTL" FILEDе┼Щ"O",#1,"VEH/NDX"D║╩АN│1е5:┘#1,N$(N)D┬╧Л ND╩╘Ъ#1Dр┘Щ"O",#1,N$л"/DTL"D·▐┘#1,A$(0),B$(0),C$(0)EуЪ#1:Бе75E)ш:Г***** CHECK MAX. # VEHICLESE1эN│1ECЄЕN$(N)│N$з955EdўЕN$(N)│""зN$(N)│N$:M│N:Бе115Eб№N│Nл1:ЕN▓5зЮ3:З@260,"LIMIT 5 VEHICLES";:АT│0е300:ЛT:Бе75EмБе1010E╪Ю3:З@264,"NOT A VALID DATE";:АX│0е300:ЛEт Бе560F:Г***** PRINTOUT OF SERVICE DUEF2З@448," BE SURE THE PRINTER IS ONLINE "FDЗ#м2, б(6,13)FZЗ@448, б(32,175);FД$З#м2,д28)"***MAINTENANCE FOR "N$"***"G)З#м2,д28) О(H$(0),2);"/"; Р(H$(0),3,2);"/"; П(H$(0),2);д44)M(0)" MILES":З#м2, б(80,61):З#м2,"Item:";д30)"Due";д40)"Overdue";д55)"Miles to go"G#.АQ│1е7й2Gf3P(Q)│0:ЕJ(Q)│2зJ$(Q)│"M":T│43:Бе1090 :Г****SVC. OVERDUE 'FLAG'Gе8P(Q)│0:ЕJ(Q)│1зJ$(Q)│"M":T│31:Бе1090 :Г****SVC. DUE 'FLAG'Gы=P(Q)│0:ЕJ1(Q)│1зJ$(Q)│"C":T│31:Д1095 :Г****DUE BY CALENDAR 'FLAG'H BP(Q)│1:З#м2,д3)T$(Q);дT)J$(Q)HFGM$│ И(M(Q)мM(0)):ЕJ(Q)│3зЗ#м2,д3)T$(Q);д65м З(M$))M$HMLЛQHXQБе1130HЧVАQ│1е7й2:ЕP(Q)│1з1120 :Г****'FLAG' TO PRINT SVC. SUMMARIESHЮ[ЛQH═`ЕQ│1з1135:ДЕQ│3з1140:ДЕQ│5з1145:ДЕQ│7з1155I>eЕQ┤7з1115:ДЗ#м2,"PERFORMED ABOVE ITEMS .................(MILEAGE & DATE FOR SERVICE UPDATE)"; б(5,13):Бе1210IМjЗ#м2, Л(13);д15)"C=Calendar interval, M=Mileage interval"; б(3,13):Бе1110JDoЗ#м2,"CHECK LIST:"; Л(13); Л(13);д3)"Change oil and filter...check fluid levels under hood...check for any leakage, battery corrosion, loose belts, etc."; б(2,13):Бе1125KtЗ#м2, Л(13);д3)"Lube all fittings...oil door hinges and strikers, hood hinges, etc... check transmission & differential. Inspect exhaust system. Check for damage under car."; б(2,13):Бе1125K╟yЗ#м2, Л(13);д3)"Tune up engine...change spark plugs, air and fuel filters, check plug wires and ignition system...check PCV and breather...check timing and "L,~З#м2,д3)"idle speed...choke action when applicable...check overall performance."; б(2,13):Бе1125L┌ГЗ#м2, Л(13);д3)"Belts/hoses...check belt tension and condition...hoses for softness or deterioration...clamps for tightness...radiator should be free of debris"MГИЗ#м2,д3)"in cooling fins, and should be free from leakage. Also inspect brake linings and operation. Check tires for tread depth and even wear."; б(2,13):Бе1125MзН:Г***** CHECK MAX. 8 CHARACTERSNТЕ З(N$)▓8зЮ3:З@0,U$;:З@260,"ONLY 8 LETTERS ALLOWED ";:N$│TEMP$:а200,5:а150,10:АT│1е400:Л T:И A Бе385,445,775,855N9ЧИ A Бе1005,1185,1185,855NaЬ:Г***** CHK. FOR NAME IN "VEH/NDX"NzбАQ│1е5:ЕN$(Q)│N$з460N▐жЕN$(Q)│""зЮ3:З@0,U$;:З@260,"NO VEHICLE BY THAT NAME";:а200,5:а150,10:АT│1е450:ЛT:N$│TEMP$:Бе795NхлЛQO ░Ю3:З@260,"NO VEHICLE BY THAT NAME";:АT│1е350:Л T:Бе795O=╡:Г***** CPTM COMPUTATIONOq║Ю3:SUM│0:ЗU$;:З@24,N$:З@266,"please"лZ$л"wait";OК┐АQ│1е150:B$(Q)│"":ЛQOа─Щ"I",#1,N$л"/DTL"O╥╔АQ│1е150:Й#1,A$(Q),B$(Q),C$(Q):ЕA$(Q)│""з1245Oх╬Е М(1)│м1з1245O√╙SUM│SUMл Й(B$(Q))P╪ЛQP ▌Ъ#1PИтЮ3:З@229,"start"лZ$л"figuring"лZ$л"costs"лZ$лZ$лZ$;:З@261,Z$лZ$лZ$л"at"лZ$л"what"лZ$л"mileage"; б(5,128);:З@364," ";PучЗ@0,U$;:З@24,N$;:З@364,"";:╗ЙMI$:З@370, б(14,175);:Z│ З(MI$):ЕMI$│""з1250:ДЕMI$│"@"з75Q#ьАQ│1еZ:Е К( Р(MI$,Q,1))┤48▒ К( Р(MI$,Q,1))▓57зMI$│"":Бе1250Q*ёЛQQJЎMI│ Й(MI$):Y│(M(0)мMI)о1000QН√Ю3:ЗU$;:З@24,N$;:З@99, б(25,32);:З@99,"FROM"MI"TO"M(0)"MILES";Q╤З@163, б(25,32);:З@163,"EXPENSE TOTAL:";:З@179,═"$$###.##";SUM;R@З@259," COST PER THOUSAND MILES ";:З@291," OF DRIVING: ";:З@307,═"$$###.##"; Б(SUMн100оY)о100;:З Л(32);RX З@480,W$;:Т1535,128RsA$│ Т:ЕA$│"@"з75:Д1295RШ:Г***** LEAVE "MAIN/BAS" PROGRAMRЯ:ГR╢Щ"O",#1,"CRNT/NDX"R┴#┘#1,N$R╟(ЪRю-ЕA│5з1340 :Г*****CALLING IT QUITS S2╙"EXPNS/BAS",RS7:Г***** (A=5) QUITS!<Ю:ЦS(A:ГS4F└1:Бе55ShKЕA│1зN$│TEMP$:N1$│"":A$│"":N$(M)│"":Бе75:Д Бе75StP:Г*****SйUЮ3:З@264,"NOT VALID MILEAGE";:АX│0е300:Л X:Бе500S╨Z:Г***** (A=4) VEHICLE INDEX SCREENS√_Ю:ЗU$;:З@19,"vehicle"; Л(128);"index";TdЗ:ЗTiАM│1е5:ЗN$(M),:ЛMT1nЗ@480,W$;:Т1535,128TMsA$│ Т:ЕA$┤▓"@"з1395:Д75TЗx:Г***** UTILITY TO INITIALIZE "VEHICLE INDEX" FILE TЬ}:ГN$(1)="SAMPLE"T▓ВЩ"O",#1,"VEH/NDX"T╦ЗА Q│1е5:┘#1,N$(Q):ЛQT╙МЪ#1TъСЩ"O",#1,"CRNT/NDX"T°Ц┘#1,N$(0)UЫЪ#1:КUаA$│ Т:ЕA$│""з1440:Д РULе:Г*****MAIN MODULE/ BY L. ANDERSON/ (C)1985Зx:Г***** UTILITY TO INITIALIZE "VEHICLE INDEX" FILE TЬ}:ГN$(1)="SAMPLE"T▓ВЩ"O",#1,"VEH/NDX"T╦ЗА Q│1е5:┘#1,N$(Q):ЛQT╙МЪ#1TъСЩ"O",#1,"CRNT/NDX"T°Ц┘#1,N$(0)UЫЪ#                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 т&% :ГBACK UP AND RESTORE DIRECTORY&>:ГCOPYRIGHT (C) 1987&Q:ГCARL ENGLAND&](Ю:Х5000&x2З"<1> BACKUP DIRECTORY&Ф<З"<2> RESTORE DIRECTORY&░FI$│ Т:ЕI$┤"1"▒I$▓"2"з70&─PИ Й(I$)Бе90,260&╤ZАI│13е18&уd▀0,17,I,A$,B$'nЕB$│"BRU"л б(125,255)з160'xЕA$│ б(128,255)░B$│A$з150'nВЗA$B$:З"TRACK 17, SECTOR"I:З"CONTAINS DATA. DO YOU WISH TO OVERWRITE IT?'РМI$│ Т:ЕI$│"N"зК:ДЕI$┤▓"Y"з140'ЦЦЛ'╠а▀0,17,2,A$,B$:B$│"BRU"л б(125,255):р0,17,13,A$,B$'┌кАI│3е12й2'№┤▀0,17,I,A$,B$:▀0,17,Iл1,C$,D$("╛A$│A$л О(B$,112):C$│C$л О(D$,112)(2╚B$│"":D$│""(=╥АJ│0е7(o▄B$│B$л Р(A$,Jн32л1,16):D$│D$л Р(C$,Jн32л1,16)(uцЛ(ОЁр0,17,(Iл25)о2,B$,D$(Ц·Л:К(Ё▀0,17,13,A$,B$:ЕB$┤▓"BRU"л б(125,255)зЮ:З"ERROR:",,"DISK DOES NOT CONTAIN BRU FILE":К)р0,17,2,A$,B$)АI│3е12й2))"▀O,17,(Iл25)о2,A$,B$)3,Бж350)E6р0,17,I,C$,D$)U@A$│B$:Бж350)iJр0,17,Iл1,C$,D$)qTЛ:К)Б^C$│"":D$│"")МhАJ│0е3)▓rC$│C$л Р(A$,Jн16л1,16)л б(16,255))┘|D$│D$л Р(A$,Jн16л65,16)л б(16,255))сЖЛ:Р BRU FILE":К)р0,17,2,A$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 U& В ENCRYPT&(В COPYRIGHT (C) 1987&?В BY DAVID COMPTON&EЮ&O(Х1000&Е2AL$(1)│"ABCDEFGHIJKLMNOPQRSTUVWXYZ":AL$(2)│AL$(1)&С<ЗAL$(1)&аFCR│ Д(м Я)&мPАX│1е26&║ZCR│ Д(26)&╓dЕ Р(AL$(1),CR,1)│" "з90&ЄnCR$│CR$л Р(AL$(1),CR,1)'/xЕ Р(CR$,CR,1)│ Р(AL$(1),CR,1)зCR$│ О(CR$, З(CR$)м1):Бе90'GВ Р(AL$(1),CR,1)│" "'MМЛ'VЦЗCR$'hаЗ:З"MESSAGE:"'qк╗ЙM$'~┤M│ З(M$)'Й╛МM$(M)'Ф╚АY│1еM'░╥F│ Ю(AL$(2), Р(M$,Y,1))'╥▄ЕF│0зMC$│MC$л Р(M$,Y,1):Бе240'ъцMC$│MC$л Р(CR$,F,1)'ёЁЛY'··ЗMC$(З(Й"HARDCOPY (Y/N)";Y$(6Е О(Y$,1)│"Y"зЗ#м2,MC$:К(J"Е О(Y$,1)│"N"зК(T,Бе270'hаЗ:З"MESSAGE:"'qк╗ЙM$'~┤M│ З(M$)'Й╛МM$(M)'Ф╚АY│1еM'░╥F│ Ю(AL$(2), Р(M$,Y,1))'╥▄ЕF│0зMC$│MC$л Р(M$,Y,1):Бе240'ъцMC$│MC$л Р(CR$,F,1)'ёЁЛY'··ЗMC$(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 №& Ю&И Ё Бе 220&@F1$│" ### ### ###"&l(З @0,"BEGIN MAKING PATTERNS WITH THESE"&З2З @40,"NUMBERS THEN--"&н<З@67,"C R E A T E YOUR O W N !"&┴FЗ@96, б(32,"-")&юPЗ@128,"X INCREMENT Y INCREMENT RADIUS"' ZЗ@160, б(32,"-"):Бж 270:П'*dВ **********************'0nВ'QxЙ"NO. OF X STEP INCREMENT";A'sВЙ "NO. OF Y STEP INCREMENT";B'ТМЙ "NO. RADIUS OF CIRCLE";C'ЫЦт 32'на╚ 4,1:╝:┐ 1,1'┴кА X│0 е 255 й A'╒┤А Y│0 е 191 й B'у╛┬ (X,Y),C'э╚Л Y,X(╥А T│1 е 2400:Л T(▄Ю('цЙ "ANOTHER ONE? ";A$(>ЁЕ A$│"Y" з 10 :Д К(X·В *******************(^В(jН X,Y,C(yЕ X│99 з Р(Л"З ═ F1$;X,Y,C(Ц,Бе 270(е6Ж 11,11,17(│@Ж 10,7,10(┬JЖ 12,10,21(╨TЖ 13,6,11(▐^Ж 16,8,14(ьhЖ 5,10,15(√rЖ 99,99,99:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╣& └ 1&Ю&X│ Д(м Я)&% ф 1&8ц0:у 0,0:у 1,0&╠ї"BM10,10S8BR3BDG3ERE2NR5DR6DR3NEGL2HLG3RND3ED3G2UH3NRNE3D2RDRDF2NU2R5NE3UL4BR10BU11BR4BDG4ND3RD4ED2ED2FNU7NR5ER5E3NU3LU4GU2GU2NGNL3HL2G3NGRD4"'nї"S8BD10BL3BR3BDNG3R5GL4NGR4G4NUFDLDBU8BR8ND2FDG5U3NE3LD4GL3NG2R2DRNR2DR4E3UGUGBR5BU9BR3BDG3ERE2R4GNL3G4ND2RNDBR2NRE5D2EDNRD2NE3G2NR3L4D2NEDR3D2R2ENEL6HL2G2"( (ї"S8BD8BR3BDG3ERE2NR4DR3G4NRNFD2BD2LNG2R3GNR3FR3LH2ENU3EU3E4D2EDR2NEL2BD2L3NGR3DLG2FRD3E2HDBR5BU10BR3BDG3ERE2NR4DR3G3LGLNGR3DL2FBD2LNG2R2DFU2RU4RND2UE4"(Ы2ї"S8BR2BU1BR2BDG2ER3NHGD7LNG2R2GR3GNLBR4HUH2UHUH2RF2DFDF2DFU11NRGR3GR3NEGLBR4BU4BR4BDG4ND3RD4F3R5E3U2LND2L4NLE4NEL3NDNFLNEU2G4RND6ED4GD2R5"(┐<ї "BR7DR2DBR2BU2DR2DBR2BU2DR2D"(яFю(16,19),"(C) 1988":ю(14,20),"S&M Software") Pу 1,64:у 12,64:у 13,0) ZI$│ Т:Е I$│"" з 90)+_Х 5000)oaМ ML$(6),IN$(20),CM$(50),FM$(60),LT$(8),BT(200),BS(200),BG(200))wcф 0)▒dЙ"HOW MANY PLAYERS (2-4)";NP:Е NP┤2 ▒ NP▓4 з Ю:Бе 100*nЮ:А X│1 е NP:З"WHAT IS THE GUILD NAME FOR PLAYER"X"?":Й GN$(X):GP(X)│1000:AF(X)│10:GG(X)│10:Л X*SxЙ"HOW MANY WEEKS UNTIL THE NEW KING IS ELECTED";W*nМА X│1 е 6:Н ML$(X):Л X*эНЖ GUIDO'S MONEY HOUSE, THE KING'S ENVY,SHARKEY'S LOAN EMPORIUM,ALPHONSE'S FAMILY,HAPPY EDDIE'S FINANCING,THE GOLD EXCHANGE+ аА X│1 е 20:Н IN$(X):Л X+║бЖ THE ALE HOUSE, DRINKS AROUND, THE BATTERED MACE, THE MINSTREL, EHD'S PLACE,HARNEY'S LIQUORS, PEACEFUL REST INN, THE DRAGON'S DEN, THE IMPERIAL HOSTEL,THE BLUE HERRING INN,|вЖ THE ELFIN DAMSEL,THE BLACK ORCHID,THE ADVENTURERS GUILD,THE CROSSED SWORDS INN, BLOODHAWK TAVERN, THE GOLDEN UNICORN, KING'S CASTLE,THE LOQUACIOUS BARD,ALL THE KING'S MEN,ELYSIUM ON EARTH,Ш┤А X│1 е 50:Н CM$(X):Л X-\╡Ж SENSUOUS SILKS,MARKAN CLOTHES,CLAY CREATIONS,GOLDEN TIMBRE MUSIC, SEA WORTHY SHIPPING,FROW'S SMITHY,BANNERS FOR PROCLAMATION,FLASKS BOTTLES AND JARS,LOWAN'S CABINETS,FINE PARCHMENTS AND INK.╢Ж SWEETS AND CONFECTIONS,DEWQUAS' BARBERY,GLIMMER OF GOLD,THE GOOD BAKER,SUITS AND CLOAKS,PLEASURE OF PLATINUM,BRITE SKEIN WEAVERY,DELGAR THE ARMORER,SAM'S CHANDLERY,WOVEN DREAM CARPETS.▌╖Ж PERFECT ESSENCE, THE MINERAL BATHS,MACWEN'S LEATHER SHOP,BROKEN HEEL COBBLER,LEXIS' SCRIPT,LOKAN THE FLETCHER, BARREL MAKERS' GUILD,TITAN LUMBER COMPANY,SAVAR THE PHYSICIAN,SARL'S MORTUARY/~╕Ж SORAHAN'S COLORS,RARE SPICE,CLASH OF STEEL,SIGNOR'S STUDIO,THE GRANITE MINER,HELKEN'S FINE WEAPONRY,ETCHED PANES,MOLTEN WAX,WOOLEN WONDERS,TRUSTY'S SMITHY08╣Ж LIQUID CURES ALCHEMY,BUTCHER'S BLEND,GLAZED POTTERY,GERWEK'S PAWN SHOP,QUESTEN THE SHARPENER,TAROT REVEALED,ADDER'S STING POISONS,BESVAN'S CUTLERY,FOR LADIES ONLY,YE OLDE TOY SHOP0T╚А X│1 е 60:Н FM$(X):Л X0Є╔Ж MILLER, CUSHING, FIELDS, BARNETT, HARTMAN, LINDEN, HERL, ROHLEDER, BROOKS, LUEHRS, KLEIN, LEE, SMITH, JONES, BROWN, WHITE, MINOR, WOLF, CASEY, VILLINES1П╩Ж ETHAM, STORM, STACEY, HAGEN, CULVER, MC FLY, WEIS, KASSON, DINKEL, LAMB, BERRYMAN, MEADE, WITT, FABER, CAMPBELL, HORN, VINCENT, BREWSTER, DILLON, HEIL21╦Ж FURMANSKI, BARBOUR, MARSHALL, SCHUSTER, LUCAS, BIRD, WILSON, SLOOP, DOAN, GRAFF, STURGEON, THISSEN, ANDERSON, BACH, BOOR, PAGE, NEWTON, SOOK, LEIKER, BREIT2L▄А X│1 е 8:Н LT$(X):Л X2▌▌Ж ARABIAN KNIGHTS HORSES,JUSAN'S CATTLE PENS,THE GOAT HERD,THE KING'S MOUNT,THE SHEEP AUCTION,KEB'S STOCKYARD,YEWLON'S ANIMALS,THE MULE BARN2Ї▐Щ"O",#1,"KING.DAT"3д▀┘ #1,NP,W:А X│1 е 6:┘ #1,ML$(X):Л X:А X│1 е 20:┘ #1,IN$(X):ЛX:А X│1е50:┘ #1,CM$(X):ЛX:АX│1е60:┘ #1,FM$(X):ЛX:АX│1е8:┘ #1,LT$(X):ЛX:А X│1е4:┘ #1,GG(X),GP(X),GN$(X),AF(X):ЛX3╕рЪ #1:Ю::О"KING"ARD,YEWLON'S ANIMALS,THE MULE BARN2Ї▐Щ"O",#1,"KING.DAT"3д▀┘ #1,N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 *√&$ :Г****************************&G:Г* *&j:Г* UTILITIES 1 *&Н(:Г* *&░2:Г* BY: RAYMOND LUEDERS *&╙<:Г* HANOVER PK, IL *&ЎF:Г* *'P:Г* *'<Z:Г****************************'Cd:Г'Jn:Г'Qx:Г'XВ:Г'_М:Г'fЦ:Г'pаБе230(<кA│ Ж(116)н256л Ж(117)м100:X│ Б(Aо256):Y│Aм(Xн256):АI│A е A л72:НB:ТI,B:ЛI:Т362,126:Т363,X:Т364,Y:Х200,A:Ж50,100,52,20,189,161,121,132,127,52,2,189,161,193,142,4,254,189,167,211,182,1,83,129,191,38,37(┌┤Ж53,22,150,255,129,8,38,7,90,39,31,48,31,32,15,129,32,37,22,129,123,36,18,193,249,36,14,167,128,92,189,162,130,52,20,32,201,53,22,151,255,57,198,1,32,251)╛Ю:З:З" KEY REPEAT NOW ACTIVATED.")#╚З" HOLD DOWN A KEY AND PRESS ")?╥З" THE KEY.":З:)E▄К)Lц:Г)SЁЮ0)·З:З" ARE YOU USING A COCO 3? (Y/N) ";:)ЭCOCO$│ Т:Е COCO$│"" з 260)║Е COCO$│"Y" з 280 :Д 290)▌у12,0:у13,48:И Ё Бе 280:Бе 300)·"Е COCO$│"N" з 300 :Д 260*,Бе3900*&6:ГDEFINITIONS FOR HI-RES CHR*I@LA$│"BM+1,0U4E2F2D2BL4R4D2BR3"*wJLB$│"BM+1,0U6R3F1D1G1BL3R3F1D1G1BL3R3BR4"*ЪTLD$│"BM+1,0BR3E1U4H1L3D6R3BR4"*┴^LE$│"BM+1,0BR5BU6L5D3R3BL3D3R5BR3"*фhLI$│"BM+1,0BU6R4BL2D6BL2R4BR3"* rLL$│"BM+1,0U6BD6R5BR3"+#|LM$│"BM+1,0U6R1F2D1U1E2R1D6BR3"+?ЖLN$│"BM+1,0U6F5BU5D6BR3+fРLO$│"BM+1,0BR3L2H1U4E1R2F1D4G1BR4"+НЪLR$│"BM+1,0U6R3F1D1G1BL3R3F1D2BR3"+╜дLS$│"BM+1,0BU1F1R2E1U1H1L2H1U1E1R2F1BD5BR3"+▐оLT$│"BM+1,0BR6BU6L6BR3D6BR5",╕LU$│"BM+1,0BU6D5F1R3E1U5BD6BR3",)┬LY$│"BM+1,0BU6D2F2E2U2BL2BD4D2BR5",G╠NO$(1)│"BM+1,0BU4E2D6BR3",x╓NO$(9)│"BM+1,0BU1F1R2E1U4H1L2G1D1F1R3BD3BR4",│рNO$(8)│"BM+1,0BR3L2H1U1E1H1U1E1R2F1D1G1L2BR2F1D1G1BR4",чъNO$(6)│"BM+1,0BR5BU5H1L2G1D4F1R2E1U1H1L3BD3BR6"-ЇMUS$│"O4;T10;V12;A;V9;A;V6;A;V3;A;V2;A;V1;A;"-2■:ГDISPLAY TITLE PAGE-B╚4,1:╝:┐1,1-L╔MUS$-e╗(8,8)м(246,162),╜,B-А&╗(10,10)м(244,160),╜,B-Ы0╗(12,12)м(242,158),╜,B-╢:╗(14,14)м(240,156),╜,B-╤D╗(16,16)м(238,154),╜,B-ьN╗(18,18)м(236,152),╜,B.X╗(20,20)м(234,150),╜,B."b╗(22,22)м(232,148),╜,B.=l╗(27,26)м(227,144),╜,B.MvА X│1е500:Л.КА╞"BM84,44;XLU$;XLT$;XLI$;XLL$;XLI$;XLT$;XLI$;XLE$;XLS$;".гК╞"BM174,44;XNO$(1);".▓ФАX│1е500:Л.═Ю╞"BM118,64;XLB$;XLY$;".▄иАX│1е500:Л/▓╞"BM67,104;XLR$;XLA$;XLY$;XLM$;XLO$;XLN$;XLD$;"/E╝╞"BM134,104;XLL$;XLU$;XLE$;XLD$;XLE$;XLR$;XLS$;"/T╞АX│1е500:Л/И╨╞"BM66,104;XLR$;XLA$;XLY$;XLM$;XLO$;XLN$;XLD$;"/Ч┌АX│1е200:Л/╠ф╞"BM133,104;XLL$;XLU$;XLE$;XLD$;XLE$;XLR$;XLS$;"/▄юАX│1е1000:Л0°╞"BM68,104;XLR$;XLA$;XLY$;XLM$;XLO$;XLN$;XLD$;"0АX│1е200:Л0T ╞"BM135,104;XLL$;XLU$;XLE$;XLD$;XLE$;XLR$;XLS$;"0cАX│1е500:Л0Х ╞"BM110,120;XNO$(1);XNO$(9);XNO$(8);XNO$(6);"0е*АX│1е500:ЛX0╡4Y│244:Z│1600─>АX│10е85й20┘H╗(X,X)м(Y,Z),╜,B0щRY│Yм2:Z│Zм20Ё\ЛX0 fАX│1е100:Л1pY│244:Z│1601zАX│10е8511Д╗(X,X)м(Y,Z),╜,B1AОY│Yм1:Z│Zм11HШЛX1Rв╔MUS$1hмБж1330:ГMAIN MENU1╢Е MAIN$│"1"зБж15301Ц└Е MAIN$│"2"зБж16501н╩Е MAIN$│"3"зБж17701─╘Е MAIN$│"4"зБж18701█▐Е MAIN$│"5"зБж21901ЄшЕ MAIN$│"6"зБж27102 ЄЕ MAIN$│"7"зБж28602 №Е MAIN$│"8"зБж308027Е MAIN$│"9"зБж32102OЕ MAIN$│"10"зБж33402gЕ MAIN$│"11"зБж34502$Е MAIN$│"12"зБж37002Ч.Е MAIN$│"13"зБж12302п8Е MAIN$│"14"зБж11002╣BБе9402фLЮ:З:З" YOU MAY DIRECT QUESTIONS TO ME"3VЗ" PLEASE SEND A SASE TO:":З""3!`З" RAYMOND LUEDERS3@jЗ" 1341 SEA BISCUIT LN"3atЗ" HANOVER PARK IL 60103"3g~З3ОИЗ" YOU CAN ALSO GET HOLD OF ME ON"3ЮТЗ" DELPHI."3─ЬЗ" USERNAME 'MOONSHINE' FROM THE"3╓жЗ" COCO SIG."3ч░З" -RAY-";:4║З:З"":З" HIT ANY KEY."4─в44539:К4$╬:Г EXIT TO BASIC4@╪Ю:З@8,"COLD START POKE"4ВтЗ:З" CMD: 100 POKE113,0:EXEC40999":З:З" COMMENTS: COLD-START"4Мь╔MUS$4╝ЎЗ:З" warning MEMORY WILL BE ERASED":Бж 38804╥Е A$│"Y" з1290:ДР4ф Т113,0:в409994ъР4ё:Г5(:ГMAIN MENU52Ю:З@7,"*** MAIN MENU ***"5%<З5AFЗ"(1) PRINT DIRECTORY"5dPЗ"(2) PRINTER NOT READY PEEK"5ЙZЗ"(3) DISABLE THE RESET BUTTON"5аdЗ"(4) KEY REPEAT"5├nЗ"(5) SET PRINTER LINE WIDTH"5тxЗ"(6) SET MAXIMUM MEMORY"6ВЗ"(7) HI SPEED POKE CMD"6%МЗ"(8) ALTERNATE CMD FOR INKEY$"6HЦЗ"(9) SLOW KEYBOARD RESPONSE"6jаЗ"(10) DISK OR CASSETTE PEEK"6МкЗ"(11) DISK DRIVE LIGHT POKE"6о┤З"(12) DISABLE ALL FUNCTIONS"6╩╛З"(13) COLD-START POKE"6ш╚З"ENTER NUMBER:";:Й MAIN$7╥Е  Й(MAIN$)┤1 з15207▄Е  Й(MAIN$)▓14 з15207цР7+Ё╔MUS$:Р72·:Г7I:Г PRINT DIRECTORY7eЮ:З@8,"PRINT DIRECTORY"7ЙЗ:З" CMD: 100 POKE 111,254:DIR"7н"З:З" COMMENTS: DISK BASIC ONLY"7╕,Бж38807═6Е A$│"Y"з1600:ДР8@З:З" PLEASE WAIT":АX│1е3000:Л:Е( Ж(65314)░1)│1 з Бе 1610 :Д Бе 164087J╔MUS$:З:З" PRINTER NOT READY"8BTБе15808X^Е A$│"Y" з1580:ДР8mh╬:Т111,254:╬:З:Р8tr:Г8Т|:Г PRINTER NOT READY PEEK8╡ЖЮ:З@6,"PRINTER NOT READY PEEK"8сРЗ:З" CMD: 100 IF (PEEK(65314)AND1)=1";:8 ЪЗ" THEN GOTO..."9)дЗ:З" COMMENTS: IF LINE 100 RETURNS 1"9PоЗ" PRINTER IS NOT READY"9[╕Бж38809p┬Е A$│"Y"з1740:ДР9╖╠З:З" PLEASE WAIT":АX│1е3000:Л:Е ( Ж(65314)░1)│1 з Бе1750 :Д Бе17609с╓╔MUS$:З:З" PRINTER NOT READY":Бе 1720:рЗ:З" PRINTER READY":Бе 1720:ъ:Г:#Ї:Г PRINTER SCREEN MODE:H■Ю:З@4,"DISABLE THE RESET BUTTON":eЗ:З" CMD: 100 POKE113,0":ЗЗ:З" COMMENTS: RESET COMMAND":еЗ:З" CMD: 100 POKE113,85":╧&З:З" COLDSTARTS WHEN RESET IS PUSHED":┌0Бж3880:я:Е A$│"Y"з1860:ДР:№DТ113,0:Р;N:Г;X:ГKEY REPEAT;,bЮ:З@11,"KEY REPEAT";UlЗ:З" CMD 100 A=PEEK(116)*256+PEEK(1";|vЗ" 17)-100:X=INT(A/256):Y";гАЗ" =A-(X*256):FORI=A TO A";╩КЗ" +72:READB:POKEI,B:NEXT";ёФЗ" I:POKE362,126:POKE363,"<ЮЗ" X:POKE364,Y:CLEAR200,A" 4З" ,53,22,151,255,57,198,">9>З" 1,32,251">`HЗ:З" COMMENTS: USE KEY TO">ВRЗ" REPEAT THE KEY.">О\Бж 3880>гfЕ A$│"Y"з2160:ДР>нpБе170>┤z:Г>╪ДЮ:З:З" KEY REPEAT IN EFFECT.":К>▀О:Г>°Ш:ГPRINTER LINE WIDTH?вЮ:З@5,"SET PRINTER LINE WIDTH"?1мЗ:З" (1) 16 CPL"?E╢З" (2) 32 CPL"?Y└З" (3) 64 CPL"?w╩З" (4) 132 CPL (DEFAULT)"?Л╘З" (5) 255 CPL"?й▐З" (6) EXIT TO MAIN MENU"@шЗ:З" ENTER NUMBER:":З:З" ALL MAY not BE COMPATIBLE,":З" CONSULT YOUR PRINTER MANUAL";:@ЄA$│ Т:Е A$│"" з2290@1№Е  Й(A$)┤1 з2330@F Е  Й(A$)▓6 з2330@Q Бе2340@b ╔MUS$:Бе2190@w $Е A$│"1" зБж2410@М .Е A$│"2" зБж2470@б 8Е A$│"3" зБж2530@╢ BЕ A$│"4" зБж2590@╦ LЕ A$│"5" зБж2650@▄ VЕ A$│"6" з Р@т `Р@я j:Г16 CPLA tЮ:З@5,"16 CHARACTERS PER LINE"A2 ~З"":З" CMD: 100 POKE155,16"A= ИБж3880AR ТЕ A$│"Y"з2460:ДРA` ЬТ155,16:РAm ж:Г32 CPLAР ░Ю:З@5,"32 CHARACTERS PER LINE"Aо ║З:З" CMD: 100 POKE155,32"A╣ ─Бж3880A╬ ╬Е A$│"Y"з2520:ДРA▄ ╪Т155,32:РAщ т:Г64 CPLB ьЮ:З@5,"64 CHARACTERS PER LINE"B* ЎЗ:З" CMD: 100 POKE155,64"B5 Бж3880BJ Е A$│"Y"з2580:ДРBX Т155,64:РBf :Г132 CPLBК (Ю:З@4,"132 CHARACTERS PER LINE"Bй 2З:З" CMD: 100 POKE155,132"B┤ <Бж3880B╔ FЕ A$│"Y"з2640:ДРB╪ PТ155,132:РBц Z:Г255 CPLC dЮ:З@4,"255 CHARACTERS PER LINE"C) nЗ:З" CMD: 100 POKE155,255"C4 xБж3880CI ВЕ A$│"Y"з2700:ДРCX МТ155,255:РC_ Ц:ГCt а:ГSET MAX MEMORYCУ кЮ:З@7,"SET MAXIMUN MEMORY"C╣ ┤З:З" CMD: 100 POKE25,6:POKE26,1:"C┘ ╛З" POKE1536,0:NEW"D ╚З:З" USE BELOW POKE FOR DISK SYSTEMS"D( ╥З" CMD: 100 POKE25,14:POKE26,1:"DG ▄З" POKE3584,0:NEWDt ц╔MUS$:З:З" warning WILL ERASE MEMORY!!!"DЫ ЁЗ" DOES NOT ALLOW USE OF GRAPHICS"Dж ·Бж3880D╗ Е A$│"Y"з2830:ДРD╙ Е  Ж(188)│14 з 2850E Ю:З:З" CASS.SYSTEM POKE CMD EXECUTED!":АX│1е2000:Л:Т25,6:Т26,1:Т1536,0:ЦEn "Ю:З:З" DISK SYSTEM POKE CMD EXECUTED!":АX│1е2000:Л:Т25,14:Т26,1:Т3584,0:ЦEu ,:ГEН 6:ГSET HI-SPEED POKEEз @Ю:З@9,"HI-SPEED POKE"E╝ JЕ COCO$│"Y"з2930E█ TЗ:З" CMD: 100 POKE65495,0"E√ ^З:З" RESET POKE FOR ABOVE:"F! hЗ:З" CMD: 100 POKE65494,0":Бе2960FA rЗ:З" CMD: 100 POKE&HFFD9,0"Fa |З:З" RESET POKE FOR ABOVE:"FИ ЖЗ:З" CMD: 100 POKE&HFFD8,0":Бе2960F▓ РЗ:З" COMMENTS: DOUBLES RUNNING SPEED"F╝ Ъ╔MUS$Fс дЗ" warning USING HI-SPEED HEATS"F¤ оЕ COCO$│"Y"з3000::Д3010G ╕З" UP CHIPS.":Бе3030G; ┬З" UP CHIPS, ALSO WILL NOT WORK"G[ ╠З" ON DISK OR CASSETTE I/O"Gf ╓Бж3880G{ рЕ A$│"Y"з3050:ДРGШ ъЕ COCO$│"Y"з3060 :Д 3070Gи ЇТ&HFFD9,0:РG╖ ■Т65495,0:РG╛ :ГG▌ :ГALTERNATE CMD FOR INKEY$H Ю:З@3,"ALTERNATE CMD FOR 'INKEY$'"H! &З:З" CMD: 100 EXEC44539"HJ 0З:З" COMMENTS: HELPFUL WHEN MAXIMUM"Hm :З" MEMORY IS NEEDED"Hx DБж3880HН NЕ A$│"Y"з3160:ДРH╚ XЮ:З:З" 10 PRINT ";:З  Л(34);:З"HIT ANY KEY.";:З  Л(34)H▌ bЗ" 20 EXEC44539"Hы lЗ:З" RUN"I vЗ:З" HIT ANY KEY."I Ав44539:РI К:ГI3 Ф:ГSLOW KEYBOARD RESPONSEIV ЮЮ:З@4,"SLOW KEYBOARD RESPONSE"Is иЗ:З" CMD: 100 POKE283,X"IЪ ▓З:З" X=5 TO 255, 5 IS THE FASTEST"I╣ ╝З:З" RESET CMD FOR ABOVE:"I╓ ╞З:З" CMD: 100 POKE283,4"Iс ╨Бж3880IЎ ┌Е A$│"Y"з3300:ДРJ5 фЗ:З" ENTER X (5-255) RECOMMEND 40 ":З" 4 TO RESET";:Й XJV юЕ X┤4 ▒ X▓255 з 3320 :Д 3330Jg °╔MUS$:Бе3300Jt Т283,X:РJ{ :ГJУ :ГDISK OR CASS PEEKJ╡ Ю:З@5,"DISK OR CASSETTE PEEK"J▐ *З:З" CMD: 100 IF PEEK(188)=14 THEN "K 4З:З" IF LINE 100 RETURNS 14 = DISK"K, >З" IF LINE 100 RETURNS 06 = CASS"K7 HБж3880KL RЕ A$│"Y"з3420:ДРKp \Е  Ж(188)│14 з Бе3430 :Д Бе3440Kк fЗ:З" 14,YOU ARE USING A DISK SYSTEM":А X│1 е 4000:Л:РK▀ pЗ:З" 6, YOU ARE USING A CASSETTE":А X│1е4000:Л:РKц z:ГK¤ Д:ГDISK/DRIVE LIGHTL ОЮ:З@6,"DISK/DRIVE LIGHT POKE"L= ШЗ:З" CMD: 100 POKE65344,XLC вЗLg мЗ" IF X=1 THEN IT USES DRIVE 0"LЛ ╢З" IF X=2 THEN IT USES DRIVE 1"Lп └З" IF X=4 THEN IT USES DRIVE 2"L╘ ╩З" IF X=64 THEN IT USES DRIVE 3"LЎ ╘З" IF X=0 RESETS ABOVE CMD'S"M ▐З:З" TURNS ON LIGHT, DOES NOT "M: шЗ" EFFECT DISK/DRIVE MOTOR"ME ЄБж3880MZ №Е A$│"Y"з3590:ДРMqЕ  Ж(188)│6 з 3610M|Бе3630MбЗ" YOU HAVE A CASSETTE, TRY #10"M╚$З" FROM MAIN MENU.":А X│1е4000:Л:РM .Ю:╔MUS$:З:З" WATCH LIGHT ON DRIVE #0":А X│1е4000:ЛN8Т65344,1:А X│1е3000:ЛN3BТ65344,0:А X│1е1000:ЛN@LА X│1е10NZVТ65344,1:А Y│1е150:ЛYNx`Т65344,0:А Y│1е100:ЛY:Л XNДj╔MUS$:РNЛt:ГNз~:ГDISABLE ALL FUNCTIONSN╔ИЮ:З@6,"DISABLE ALL FUNCTIONS"NёТЗ:З" CMD: 100 POKE301,129:POKE302,"OЬЗ" 119"O'жЗ:З" USE CMD BELOW TO RESET"OQ░З:З" CMD: 100 POKE301,129:POKE302,60"O~║╔MUS$:З:З" warning SAVE PROGRAM BEFORE "OЮ─З" EXECUTING THIS COMMAND."O┬╬З" OR COPY DOWN THE RESET CMD."O═╪Бж3880OттЕ A$│"Y"з3820:ДРPьЮ:З:З" ALL FUNCTIONS DISABLED"PЎТ301,129:Т302,119PCЗ:З" TRY IT. TYPE 'LIST', AND VIEW"Pg З" THE PROGRAM IN MEMORY, THEN"PОЗ" TRY AND 'RUN' IT, OR 'SAVE' IT"PФКP┬(A$│"":З:З" EXECUTE? (Y/N, = N)";:Pр2A$│ Т:Е A$│"" з 3890 :Д РPЁ<╚4,1:╝:┐1,1P·FБе310IS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  & :Г*HOME FINANCIAL ANALYST*&?:Г* 4/85 BY DAN PIERSMA *&^:Г* 32K-ECB & 1 DISK *&hБе448&С:ГDIMENSION DATAFILES & DESCRIPTIONS&█ Х5500:МA$(100),B$(100),C$(100),D$(100),E$(100),M$(12),AD$(25),AN$(25)' :ГSET BAUD 1200 & DEFINE NONVARIABLE STRINGS'зW│8:Т150,41:V$│" "л б(30,"*"):U$│ б(72,"-"):W$│ Л(32):BA$│" DAY (DD) ":BB$│" ACCOUNT# ":BC$│" AMOUNT ":BD$│" CHECK # ":BE$│" COMMENTS ":BF$│"REC #"'╕:ГENTER DATE(8Ю:З@9,"BUDGET MANAGER":З"ENTER MONTH AND YEAR THAT YOU WILL BE ENTERING DATA ON. ":Й"MONTH (MM) ";MM:Й"YEAR (YYYY) ";YY$(KЕMM┤1▒MM▓12з18(nYY│ Й(YY$):ЕYY┤1984▒YY▓1988з18(Ж:ГREAD DESCRIPTIONS(пАM│1е12:НM$(M):Л:АAD│1е25:НAD$(AD):Л(╠:ГCREATE DISK FILE TITLE(юMM$│M$(MM):TITLE$│MM$л"-"лYY$) L│ З(TITLE$)о2:Z│207мL) ":ГCREATE MAIN MENU)\$H│0:Ю:З@9,"BUDGET MANAGER":З" SELECT A NUMBER 1-5")╥&З@128,V$:З" 1> FILE MAINTENANCE":З" 2> SEARCH FILE":З" 3> GENERATE REPORTS":З" 4> SAVE FILE":З" 5> LOAD FILE":ЗV$)▄(L$│ Т)ї*L│ Й(L$):ЕL┤1▒L▓5з40*,ИL Бе48,212,276,392,420*-.:ГFILE MAINTENANCE MENU*т0Ю3:З@32," SELECT A NUMBER 1-4":З@160,V$:З" 1> ADD AN ENTRY":З" 2> DELETE AN ENTRY":З" 3> EDIT OR VIEW A FILE":З" 4> LIST CHART OF ACCOUNTS":З" R> RETURN TO MAIN MENU":ЗV$*∙2L$│ Т:ЕL$│"R"зБе36+4L│ Й(L$):ЕL┤1▒L▓4з50+*6ИL Бе58,112,128,200+;8:ГADD A FILE+t:Ю:З@11,"ADD A FILE":Бж452:З@136,"FILE NUMBER: "Cл1:З+Й<ЗBA$":";:╗ЙA$(C)+п>Е З(A$(C))┤(W)зA$(C)│A$(C)лW$:Д66+╕@Бе62+═BЗBB$":";:╗ЙB$(C)+єDЕ З(B$(C))┤(W)зB$(C)│B$(C)лW$:Д72+№FБе68,HЗBC$":";:╗ЙC$(C),7JЕ З(C$(C))┤(W)зC$(C)│C$(C)лW$:Д78,@LБе74,UNЗBD$":";:╗ЙD$(C),{PЕ З(D$(C))┤(W)зD$(C)│D$(C)лW$:Д84,ДRБе80,ЩTЗBE$":";:╗ЙE$(C),┴VЕ З(E$(C))┤(Wн2)зE$(C)│E$(C)лW$:Д90,╩XБе86,рZЕ З(A$(C))▓(W)з58,Ў\Е З(B$(C))▓(W)з58- ^Е З(C$(C))▓(W)з58-"`Е З(D$(C))▓(W)з96-:bЕ З(E$(C))▓(Wн2)з58-HdX│C:Бж446-efЗ"IS THIS CORRECT "-{hL$│ Т:ЕL$│"Y"з108-ПjЕL$│"N"з58:Д104-ЮlC│Cл1:Бе48-▓n:ГDELETE A FILE..pЮ:З@128,V$:З" * DELETE A FILE *":З" * PRESS TO RETURN TO MENU*":З" * OR TO CONTINUE *":ЗV$.DrL$│ Т:ЕL$│"C"з118.XtЕL$│"R"з36:Д114.zvЙ"RECORD # TO BE DELETED :";D.ЛxАX│(Dм1)еCм1.╒zA$(X)│A$(Xл1):B$(X)│B$(Xл1):C$(X)│C$(Xл1):D$(X)│D$(Xл1):E$(X)│E$(Xл1)/ |ЛX:Ю:З@232,"FILE DELETED":АT│1е800:ЛT:C│Cм1:Бе36/~:ГEDIT A FILE/^АЮ:Бж452:З:Й" ENTER FILE NUMBER :";E:X│Eм1:Е(X)▓(C)з128:ДБж446/аВЗ" EDIT WHICH FIELD <1-5>":З" OR PRESS TO RETURN"/╡ДL$│ Т:ЕL$│""з132/─ЖЕL$│"R"з36/рИL│ Й(L$):ЕL┤1▒L▓5зБе132/¤КИL Бе140,156,166,176,1860МЗBA$":";:╗ЙA$(X)09ОЕ З(A$(X))┤(W)зA$(X)│A$(X)лW$:Д1460CРБе1420_ТЕ З(A$(X))▓(W)з128:Д1480iФБж4460ЖЦЗ"IS THIS CORRECT "0ЫШL$│ Т:ЕL$│"Y"з360░ЪЕL$│"N"з130:Д1520┼ЬЗBB$":";:╗ЙB$(X)0ьЮЕ З(B$(X))┤(W)зB$(X)│B$(X)лW$:Д1620ЎаБе1581вЕ З(B$(X))▓(W)з128:Д1641"дБж446:Бе15017жЗBC$":";:╗ЙC$(X)1^иЕ З(C$(X))┤(W)зC$(X)│C$(X)лW$:Д1721hкБе1681ДмЕ З(C$(X))▓(W)з128:Д1741ФоБж446:Бе1501й░ЗBD$":";:╗ЙD$(X)1╨▓Е З(D$(X))┤(W)зD$(X)│D$(X)лW$:Д1821┌┤Бе1781Ў╢Е З(D$(X))▓(W)з128:Д1842╕Бж446:Бе1502║ЗBE$":";:╗ЙE$(X)2D╝Е З(E$(X))┤(Wн2)зE$(X)│E$(X)лW$:Д1922N╛Бе1882l└Е З(E$(X))▓(Wн2)з128:Д1942|┬Бж446:Бе1502Е─Бе482в╞:ГLIST CHART OF ACCOUNTS2╤╚Ю0:З@192,"DO YOU WANT A HARD COPY ?"2ч╩L$│ Т:ЕL$│"Y"з2062№╠ЕL$│"N"з208:Д20234╬З#м2,"LIST OF ACCOUNTS":АY│1е25:З#м2,AD$(Y):ЛY:Бе363v╨Ю:З@7,"CHART OF ACCOUNTS":АY│1е25:ЗAD$(Y):АT│1е500:ЛT:ЛY:Бе363М╥:ГSEARCH FUNCTION3н╘Ю:З" SEARCH FUNCTION"3╥╓З"DO YOU WANT A HARD COPY "3ш╪H$│ Т:ЕH$│"N"з2243¤┌ЕH$│"Y"з220:Д2164▄H│14▐ЕH│1зБж44041р╗Й"DATA TO LOOK FOR:";T$4OтЕ З(T$)┤(W)зT$│T$лW$:Д2304YфБе2264yцЗ:З"SELECT FIELD TO SEARCH"4╚шЗ" 1> ";BA$:З" 2> ";BB$:З" 3> ";BC$:З" 4> ";BD$:З" R> RETURN TO MAIN MENU"4▌ъL$│ Т:ЕL$│""з2344ььЕL$│"R"з364∙юL│ Й(L$)5ЁЕL┤1▒L▓4з234:Д2425(ЄИL Бе244,254,258,2625JЇАX│0еCм1:ЕA$(X)│T$зБж266:Д2465QЎЛX5y°Ю:З@232,"NO MORE FILES":АT│1е800:ЛT5О·ЕH│1зЗ#м2, Л(12)5Ч№Бе365╣■АX│0еCм1:ЕB$(X)│T$зБж266:Д2565╞ЛX:Бе2485шАX│0еCм1:ЕC$(X)│T$зБж266:Д2605їЛX:Бе2486АX│0еCм1:ЕD$(X)│T$зБж266:Д2646$ЛX:Бе24868 ЕH│1зБж270:Д2726> Р6}З#м2,A$(X)д10)B$(X)д20)"$"C$(X)д30)D$(X)д40)E$(X)д59)Xл1:Р6ХБж446:АT│1е800:ЛT:Р6п:ГREPORT SETUP & MENU6▐Ю0:З@192,"DO YOU WANT A HARD COPY ?"6·L$│ Т:ЕL$│"Y"зH│1:Бе2827ЕL$│"N"з282:Д2787▄Ю3:З" REPORT GENERATION":З@160,V$:З" 1> REPORT FOR EACH ACCOUNT #":З" 2> REPORT OF ACCOUNT TOTALS":З" 3> REPORT OF ALL TRANSACTIONS (OR LIST ALL FILES BY #)":З" R> RETURN TO MAIN MENU":ЗV$8АY│1е25:AN$(Y)│ Р(AD$(Y),1,3):ЛY8L$│ Т:ЕL$│"R"з3680 L│ Й(L$):ЕL┤1▒L▓3з2868E"ИL Бе294,338,3868_$:ГREPORT EACH ACCOUNT8s&ЕH│1зБж440:З#м28(АY│1е258Ш*ЕH│1░Y│6зБж308:Бе3108│,ЕH│1░Y│10 зБж308:Бе3108═.ЕH│1░Y│17зБж308:Бе3108ч0ЕH│1░Y│21зБж308:Бе3108ё2Бе31094З#м2, Л(12):Бж440:З#м2:Р9'6ЕH│1зЗ#м2,д22)AD$(Y)948АX│0еCм19W:ЕAN$(Y)│ Р(B$(X),1,3)з316:Д3229f<ЕH│1зБж2669u>ЕH│0зБж2729З@U│Uл Й(C$(X))9ЬBЛX:ЕU│0з324:Д3289кDЕH│1зЗ#м29┤FБе3329ўHЕH│1зЗ#м2,"TOTAL FOR ACCOUNT"д20):З#м2,═"$#####.##";U:З#м2:U│0:4JЕH│0зЗ"TOTAL FOR ACCOUNT ";AN$(Y);" $"U:U│0:АT│1е1000:ЛT:LLЛY:ЕH│1зЗ#м2, Л(12):UNБе36:mP:ГCHART OF ACCOUNTS:╪RЕH│1зЗ#м2,д25)TITLE$;" CHART OF ACCOUNTS":З#м2:З#м2,U$:З#м2,"ACCOUNT #"д32)"CREDIT"д52)"DEBIT":З#м2,U$;!TЙ"ENTER CHECKBOOK BALANCE";CH:Й"ENTER SAVINGS BALANCE ";SA:BA│SAлCH;9VЮ:АY│1е5:V│30:Бж348;JXI│UлI:U│0:ЛY;YZV│50:Бе360;f\АX│0еCм1;О^ЕAN$(Y)│ Р(B$(X),1,3)зU│Uл Й(C$(X));Х`ЛX;┴bЕH│1зЗ#м2,AD$(Y)дV):З#м2,═"$#####.##";U;┘dЕH│0зЗAN$(Y);" $";U;▀fР;ёhАY│6е25:Бж348<jD│DлU:U│0:ЛY<lCB│IмD:ЕH│0з366:Д374lxЗ#м2,"CHECKBOOK BALANCE"д30):З#м2,═"$#####.##";CH:З#м2,"PLUS SAVINGS BALANCE"д30):З#м2,═"$#####.##";SA:З#м2,"CASH BALANCE"д30):З#м2,═"$#####.##";BA:З#м2>╒zЕ Б(CB)│ Б(BA)зЗ#м2,д20)"*****STATEMENT BALANCES*****":ДЗ#м2,д20)"??TOTALS DO NOT ADD PLEASE REDO??">х|З#м2, Л(12)>Ў~D│0:I│0:Бе36?А:ГLIST OF DATA FILES?$ВЕH│1зБж440:Бе442?KДАX│0еCм1:Бж446:АT│1е950:ЛT:ЛX:Бе36?^Ж:ГSAVE TO DISK?╤ИЮ3:З@192," INSERT DATA DISK IN DRIVE #0 ":З" PRESS TO CONTINUE OR TO RETURN TO MAIN MENU. "?чКL$│ Т:ЕL$│"C"з398?√МЕL$│"R"з36:Д394@"ОЗ"SAVE TO DISK-ARE YOU SURE "@:РL$│ Т:ЕL$│"Y"зБе404@PТЕL$│"N"зБе36:Д400@ВФЮ:З@140,"SAVING":З@Z,TITLE$:З@267,"DATA FILE"@ЧЦЩ"O", #1, TITLE$@ЯШX│0@▒ЪЕA$(X)│""з416@╫Ь┘#1,A$(X),B$(X),C$(X),D$(X),E$(X)@чЮX│Xл1:Бе410@ЇаЪ#1:Бе36A в:ГLOAD FROM DISKArдЮ3:З@192," INSERT DATA DISK IN DRIVE #0":З" PRESS TO LOAD DATA OR TO RETURN TO MAIN MENU."AИжL$│ Т:ЕL$│"C"з426AЮиЕL$│"R"зБе36:Д422A╤кЮ:З@140,"LOADING":З@Z,TITLE$:З@267,"DATA FILE"AчмЩ "I", #1, TITLE$AяоX│0B░Й #1,A$(X),B$(X),C$(X),D$(X),E$(X):X│Xл1B3▓Е М(1)│м1з436:Д432BI┤Ъ #1:C│X:N│C:Бе36Bb╢:ГPRINTER SUBROUTINEB┤╕З#м2,д32)TITLE$:З#м2,U$:З#м2,BA$д10)BB$д20)BC$д30)BD$д40)BE$д59)BF$:З#м2,U$:РC║АX│0еCм1:З#м2,A$(X)д10)B$(X)д20)"$"C$(X)д30)D$(X)д40)E$(X)д59)Xл1:ЛX:З#м2, Л(12):Бе36C'╝:ГPRINTER SUBROUTINECt╛Ю:З" THIS IS FILE NUMBER "Xл1:З:ЗA$(X):ЗB$(X):ЗC$(X):ЗD$(X):ЗE$(X):РCА└└1:Бе10CЯ┬:ГDATA OVERFLOW SUBROUTINED─З" FIRST 4 ENTRIES ARE LIMITED TO 8 CHARACTERS EACH, AND COMMENTS ARE LIMITED TO 16 CHARACTERS.":РD╞:ГDATA DESCRIPTIONSE╚Ж JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,100 CASH BALANCE,110 EARNED INCOME,120 INTEREST INCOME,130 MISC. TAXABLE INCOME,140 NON-TAXABLE INCOME,200 FEDERAL WITHOLDING,201 FICA,202 STATE WITHOLDING,203 LOCAL WITHOLDING Ew╩Ж 210 GROCERY EXPENSE,220 WATER,230 MORTGAGE,240 GAS & ELECTRIC,250 TELEPHONE,260 CAR EXPENSE,270 INSURANCEF╠Ж 280 HOUSE REPAIRS,281 ANNUITY,282 MISC. EXPENSE,283 LOAN PAYMENTS,300 MEDICAL EXPENSE,310 CONTRIBUTIONS,320 INTEREST PAID,330 TAXES PAID,340 MISC. (TAX DED.)NSE,220 WATER,230 MORTGAGE,240 GAS & ELECTRIC,250 TELEPHONE,260 CAR EXPENSE,270 INSURANCEF╠Ж 280 HOUSE REPAIRS,281 ANNUITY,282 MISC. EXPENSE,283 LOAN PAYMENTS,300 MEDICAL EXPENSE,310 CONTRIBUTIONS,320 INTEREST PAID,330 TAX