ч&1
В"COMPUTING THE INTEREST - VERBAL PROBLEMS"&ZВ"STEVE BLYN,COMPUTER ISLAND,NY,1985&зCT│0:CR│0:V│ Д(м Я):В  "CT=THE COUNTER AND CR=THE # OF CORRECT EXAMPLES"&╟(Ю5:З@7,"INTEREST EXAMPLES";&╓2З@27,CTл1;&Ё<CT│CTл1:Е CT│11 з 270&№FR│ Д(6)'ЬPЕ R│1зA3$│"  MRS. JONES" :Д Е R│2з A3$│"  MS. SMITH" :Д Е R│3 зA3$│"  MR. HYDE" :Д Е R│4 зA3$│"  DR. JEKYL":Д Е R│5 з A3$│"  MR. GRAY":Д A3$│"  MS. HUNTER"'┬ZP$│"interest=principalXrateXtime"'сdA3│ Д(200)н10::ГTHE AMOUNT'°nM│ Д(5)::ГTHE TIME(xB3│ Д(5)л10::ГTHE RATE OF INTEREST(aВЗ@128,A3$" BORROWED $";A3:З"  AT ";B3;"%  A YEAR FOR"M"YEAR";(zМЕ M▓1 з З"S" :Д З" "(╨ЦЗ@256," ":З@224,"   WHAT IS THE TOTAL AMOUNT        OF INTEREST PAID? $ ";:╗ Й J$(саЗ б(64,207);( кJ│ Й(J$)::ГPLAYER'S GUESS)"┤H│A3нB3нMн.01::ГCORRECT ANSWER)^╛Е  И(J)│ И(H) з З@393,"CORRECT !";:CR│CRл1:а240,3:Бе230)в╚Е  И(J)┤▓ И(H) з З" THE ANSWER IS ";:З═"$###.##";H;:З" BECAUSE")╙╥З"  $"A3;"X"B3н.01;"X";M;"= ";:З═"$###.##";H)ц▄а15,5:З@66,P$;*цЗ@485,"press enter to go on";*ЁA$│ Т*'·Е A$│ Л(13) з 40*2
Бе 240*c
Ю4:АT│250е30й10:аT,1:ЛT:З@41,"report  card";*Ж
З@134,"YOUR GRADE IS"CRн10"%";*┤
"З@352,"PRESS 'G' TO GO ON OR 'E' TO END";*╛
,B$│ Т*ц
6Е B$│"G" з О :Д Е B$│"E" з К :Д 300Д Е Z▓T1 зZ│T1л1:ЕZ▓12                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┐&
S│1:TU│50:Ю3&"PP│1:Бж7000&?Ю3:З@12,"OPTIONS:";:Бе80&n(:ГTHIS IS WHERE THE SECOND MENU IS PRINTED&Щ2АX│1е250:Л:З@225,"LOAD IN SAVED GAME";&╢4З@289,"CHANGE MENU ONE";&╫5З@321,"START THE ADVENTURE";&ю8З@492,"TURNS:";TU;'=З@257,"PICK TURNS";:Бе246':F:ГTHIS IS WHERE THE FIRST MENU IS PRINTED'aPАX│1е250:Л:З@65,"SKILL LEVEL ONE";'}QЗ@97,"SKILL LEVEL TWO";'ЬRЗ@129,"SKILL LEVEL THREE";'╕SЗ@161,"GO TO MENU TWO";'┌TЕPP│1зЗ@65,"skill level one";'№UЕPP│2зЗ@97,"skill level two";(!VЕPP│3зЗ@129,"skill level three";(1╚А X│1е250:Л(t╔E│ Н(0):O│ Н(1):ЕO┤4зO│4:ГTHIS IS WHERE YOU PICK FROM MENU ONE(Г╩ЕO▓11зO│11(Р╦Ь(1,O,5)(ашB│ Ж(65280)(╡ъЕB│254▒B│126з238(┬ьЬ(0,O,3)(╠эБе201(тюЬ(0,O,3):ЕO│4з400(яяЕO│5з400(№ЁЕO│6з500)	ёЕO│7з500)ЄЕO│8з600)#єЕO│9з600);ЇЕO│10з700:ЕO│11з700)DїБе50)zЎА X│1е250:Л:ГTHIS IS WHERE YOU PICK FROM MENU TWO)ОўZ│ Н(0):Y│ Н(1))Э°ЕY┤14зY│14)м∙ЕY▓21зY│21)╣·Ь(0,Y,5))╔√B│ Ж(65280))▐№ЕB│254▒B│126з300)ы■Ь(0,Y,3))ї
Бе247*
,Ь(0,Y,3):ЕY│14з900*
-ЕY│15з900*(
.ЕY│16з950*6
/ЕY│17з950*E
0ЕY│18з1000*T
1ЕY│19з1000*c
2ЕY│20з9099*r
3ЕY│21з9099*А
РPP│1:Бе80*О
ЇPP│2:Бе80*ЬXPP│3:Бе80*ж╝Бе245*╝ДАX│1е250:Л:Бе1900*█╢:ГTHIS IS THE TURN ROUTINE+<╖З@384,"POSITION STICK FULLY UP TO      INCREASE TURNS OR FULLY DOWN TO DECREASE YOUR TURNS";+R╣З@491, Л(143л80);+`║З@498,TU;+v╗JJ│ Н(0):JY│ Н(1)+Л└Е JY│0 з TU│TUл1+б┴Е JY│63 з TU│TUм1+╖┬Е TU▓110 з TU│110+╦├Е TU┤40 з TU│40+█─АX│1 е 50:Л+ы┼B│ Ж(65280),╞ЕB│254▒B│126з968,
╟Бе954,%╚З@491, Л(143л32);:Бе50,.шБе80,:LБе10000,@lЮ,Т╨З"THIS IS WHERE YOU WOULD HAVE    A SUBROUTINE THAT LOADS IN A    SAVED GAME",┼╤З:З"PRESS JOYSTICK TO GO BACK TO THEBEGINNING",╒╥B│ Ж(65280),ш╙ЕB│254▒B│126з1,є╒Бе2002-*XАX│1е250:Л:З@0,"* *  T H E  J O Y S T I C K  * *";-`Y╔"O5L34DEDEDEDEDEDEDEDEDEDEDEDE":З@75,"TUTORIAL";-ВZЗ@134,"****BY TC TAULLI****";-╨[З@192,"PRESS THE RIGHT JOYSTICK BUTTON TO SEE THE JOYSTICK MENU PROGRAM";-ъ\З@458,"**(C) 1984**";-·vB│ Ж(65280).
АЕB│254▒B│126зР.ЮБе7030.'#ЛАX│1е250:Л.\'Ю:З"THIS IS WHERE THE ADVENTURE     WOULD START".П'З:З"PRESS JOYSTICK TO GO BACK TO THEBEGINNING".Я'B│ Ж(65280).▓'$ЕB│254▒B│126з1.╛'.Бе10010NDEX=  ######.##";IX/
╓Е HP│0 ░ PP│1з З"   *****PRINTOUT (Y/ORMATION IS INCORRECT";:З@261,"RECHECK YOUR SOURCE OF";:З@330,"INFORMATION";::АV│1е6000:Л:Ю:Бе110в
TЗ@416,"<ENTER> TO CONTINUE":З@448,"<R> TO RECOMPUTE T-BILL":Р╦
^З@384,"<C> TO CHANGE TAX BRACKETS":РЮ
hЮ:З"COST=$"; Б(Bн100л.5)о100:З"AMOUNT OF INTEREST=$"; Б(Cн100л.5)о100:З:З"IN A";Hн100;"% TAX BRACKET YOUR","FEDERAL TAX ON THIS T-BILL IS","$"; Б(HнCн100л.5)о100:З:ЕST▓0зЗ"IF TAXED BY YOUR STATE AT";ST;"%";╤
rЕST▓0зЗ"STATE TAX WOULD BE $"; Б(Jн100л.5)о100C
|ЕST▓0зЗ"FEDERAL TAX WOULD BE $"; Б(100нHн(CмJ)л.5)о100,"THEN,TOTAL TAX WOULD BE $"; Б((Hн(CмJ)лJ)н100л.5)о100e
ЖБж350:Бж340:Бж520:ЕW$│"C"з290u
РЕW$│"R"з110 -
ЪK│Hн(CмJ)лJ:Ю:З@64,"PROFIT IF ONLY FEDERALLY TAXED=", Б(((((365оD)н(CмHнC)))оB)н10000л.5)о100;"%":З:ЕST▓0зЗ"PROFIT IF ALSO STATE TAXED=", Б(((365оD)н((CмK)оB))н10000л.5)о100;"%":З z
дЕST▓0зЗ"DIFFERENCE="; Б((365оD)н((((CмHнC)оB)м((CмK)оB)))н10000)о100;"%" ╬
оЗ@416,"<ENTER> TO RECHECK              <^> TO RESTART PROGRAM":Бж520:ЕW$│"^"з10 ╪
╕Бе360!Е
┬Ю2:З:З:З:З@192,"START RECORDER, THEN PRESS ENTER":Як:ЙW$:ЯИ:Ю3:АW│1е6000:Л:З@196,"NOW RECORDING 'T-BILLS'";:З@228," (U.S. TREASURY BILLS) ";:Ш"T-BILLS":Ю:ЯИ:АW│1е1000:Л!С
╠Як:Бе10"p
╓Ю5:C│63:F│31:З@132,"    COMPUTATION FOR     ";:З@164,"  U. S. TREASURY BILLS  ";:З@196,"  ISSUED BY THE BUREAU  ";:З@228,"   OF THE PUBLIC DEBT   ";:З@260," WASHINGTON, D.C. 20239 ";:З@292,"########################";:Р"╫
рZ│4:АK│0е2:АA│B еC:Ь(A,D,Z):Л:АH│E еF:Ь(C,H,Z):Л:АG│C еJ йм1:Ь(G,F,Z):Л:АI│F еB йм1:Ь(J,I,Z):Л:Z│1"¤
ъB│4:C│59:D│4:E│4:F│28:J│4:ЕK│1зЛK#.
ЇZ│3:B│6:C│57:D│6:E│6:F│26:J│6:ЛK:АX│1е3000:Л#n
■A│0:B│0:C│0:D│0:E│0:F│0:G│0:H│0:I│0:J│0:K│0:Р:АW│1е9999:Л:Р#ЕW$│ Т:ЕW$│""з520:Р#оЗ"#########PRESS ANY KEY#########":Р END)";#└Й D#╥
Е D┤│0 з 1530#рY│(DмL)оP$R│ Ч(м(Yп2)о2)о2.506628274                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                $│ Л(13) ▒ X│N з Бж 1540:З:З" CLEARING REGISTERS......":А X│1еN:F(X)│0:S(X)│0:ЛX:З:З" RECOMPUTING START/END TIMES...":Бе810/В╘Л X/Ф▐FLAG│0:Бе1530/╢шБж1540:З:Й"RESPONSIBILITY";K$/┴ЄTIME│0/╠№Бж2650/▄	V│0:C│0:L│00	З#м2, Л(30);"   PROJECT: "PT$:З#м20Й	З#м2, Л(29);"                                                  ----NODES----    EXP.     -START TIME-     --END TIME--     SLACK"1	$З#м2,"                    STEPS                RESP.    START     END    TIME     EARLY    LATE    EARLY    LATE    TIME "1З	.З#м2,"   --------------------------------   ----------  -----   -----    -----    -----   -----    -----   -----    -----"2	8U$│"   %                              %   %        %  #####   #####    ###.#    ###.#   ###.#    ###.#   ###.#    ###.#  %           %2 	BА I│1 е N2<	LЕ  Ю(R$(I),K$)│0 з 24302~	VS1│F(A(I,2))мS(A(I,1))мE(I,1):Е  Б(S1)│┤0 з C(I)│0 :Д C(I)│S12░	`Е C(I)│0 з CR$│ Л(93)л"-- ├RITICAL" :Д CR$│""3!	jЗ#м2, ═ U$;A$(I),R$(I),A(I,1),A(I,2),E(I,1),S(A(I,1)),F(A(I,2))мE(I,1),S(A(I,1))лE(I,1),F(A(I,2)), В(S1),CR$36	tTIME│TIMEлE(I,1)3>	~Л I3|	ИЗ#м2:З#м2:З#м2,"     TOTAL EXPECTED TIME:";TIME:З#м2:З#м23И	ТБе 15303к	ЬБж1540:З:Й"RESPONSIBILITY";K$3т	жБж2650:З#м2, Л(30); Л(31);:З#м2,д(40м З(PT$))о2)PT$4	░З#м2, Л(30);д25)"(CRITICAL PATH SCHEDULE)"4S	║З#м2:З#м2,"RESPONSIBILITY: ";:Е K$│"" з З#м2,"ALL" :Д З#м2,K$4╨	─З#м2, Л(29);д35)"          10        20        30        40        50        60        70        80        90       100"5M	╬TT$│"+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+":З#м2,д35)TT$5Y	╪А I│1еN5u	тЕ  Ю(R$(I),K$)│0 з 26305С	ьЕ  О(A$(I),1)│"*" з26305ы	ЎЗ#м2,═"%                                %";A$(I);:З#м2,д35)"!";:З#м2, дS(A(I,1))л36);6L
T1│ Б(S(A(I,1))л.5):Е C(I)│0 з T│ Б(F(A(I,2))м.5):M$│"C" :Д T│ Б(S(A(I,1))лE(I,1)м.5):M$│"X"6\

А X│ T1 е T6i
З#м2,M$;6q
Л X6М
(Е C(I)│0 з З#м2:Бе26306│
2А X│S(A(I,1))лE(I,1)л1 е F(A(I,2))6╔
<З#м2,".";:ЛX:З#м26▀
FЛ I:З#м2,д35);TT$6ы
PБе 153077
ZЕ  Ж(65314)│4 ▒  Ж(65314)│6 з З@480,"     DATA BEING PRINTED NOW   ";:Р7x
dЗ@480,"      PRINTER IS NOT READY";:а100,5:АX│1е500:Л:Бе15307~
nР7П
x╚0,1:└1:Бе20:ЕB1$│""з28200:Д╘A1$│ ж( Й(B1$))IЄn(З"ENTER SAVINGS TOTAL":ЙB1$:ЕB1$│""з28300:Д╘A2$│ ж( Й(B1$))J3nМЗ"ENTER "* P E R T *"&AЗ" (PROJECT EVALUATION & REVIEW)":З  б(32,131):Р&KЗ:T│5&l"З дT)"1 - ENTER NEW PROJECT"&Л,ЗдT)"2 - LOAD OLD PROJECT"&г6ЗдT)"3 - SAVE DATA"&┬@ЗдT)"4 - EVALUATE PROJECT"&▐JЗдT)"5 - PRINT RESULTS"&■TЗдT)"6 - PRINT GANTT CHART"'^ЗдT)"7 - END PROGRAM'IhЗ@448, б(32,140);:З д9)"YOUR CHOICE?";:а100,1'`rI$│ Т:Е I$│""з1650'Й|I│ Й(I$):Е I┤0 ▒ I▓7 з а100,1:Бе1650'▓ЖИ I Бе 1830,1890,2020,2100,2280,2460'їРБж1540:З" DO YOU WANT TO PREPARE A WORK-  SHEET AT THIS TIME?"(ЪI$│ Т:Е I$│""з1690(дЕ I$┤▓"Y"з Ю:К(;оЗ:Й" RESPONSIBILITY";K$(G╕Бж 2650(░┬U$│"  %                               %  %         %   ###   ###    ###    "л б(8,95)л"   "л б(8,95))!╠З#м2, Л(30);"  PROJECT: "PT$:З#м2,"           (WORKSHEET FOR RECORDING TIME ESTIMATES)"; Л(13); Л(13); Л(28))Г╓З#м2,"             STEPS                   RESPONS.      BEG   END   TIME      FROM       TO")щрЗ#м2,"  ------------------------------     ---------     ---   ---    ---    --------   --------")∙ъА I │ 1 е N*ЇЕ  Ю(R$(I),K$)│0з1810*B■З#м2,═ U$;A$(I),R$(I),A(I,1),A(I,2),E(I,1)*dЕ  Б(Iо58)│Iо58 з З#м2, Л(12)*xЛ I:З#м2, Л(12)*ДБе 1530*Х&Е PT$│""з 60*╞0Бж1540:З"PROJECT CURRENTLY IN MEMORY:":З PT$*щ:З:З"DO YOU WANT TO ADD TO IT?"+DI$│ Т:Е I$│""з1860+NЕ I$│"Y" з Бж1540:Бе170+*XN│0:Бе150+5bБж1540+Ll╗Й"FILE NAME: ";F$+dvЕ F$│"?" з ╬:Бе1900+wАЕ F$│"" з 1530+ЧКЗ:З" PROJECT BEING LOADED:"+жФЩ"I",#1,F$+оЮX│0+┬иЙ#1,PT$,Y:N│NлY+╧▓З" ";PT$+ъ╝Е  М(1)з 2010 :Д X│Xл1,)╞Й#1,A$(X),R$(X),A(X,1),A(X,2),S(X),F(X),E(X,1),E(X,2),C(X),5╨Бе 1980,D┌Ъ#1:Бе1530,OфБж1540,fю╗Й"FILE NAME: ";F$,u°Щ"O",#1,F$,Д┘#1, PT$,N,ТА X│1 е N,╤┘#1,A$(X),R$(X),A(X,1),A(X,2),S(X),F(X),E(X,1),E(X,2),C(X),┘ Л X,ш*Ъ#1:Бе1530,є4Бж1540-J>З"  DO YOU WANT TO CHANGE ANY OF    THE DATA BEFORE EVALUATING      THIS PROJECT?"-aHI$│ Т:Е I$│""з2120-tRЕ I$│"N" з 940-Й\Е I$┤▓"Y" з 2120-вfЗ:╗Й"  KEYWORD: ";K$-╧pU$│"%                    %  ###":А X│1еN-ыzЕ  Ю(A$(X),K$)│0 з 2250-ЎДБж1540.ОЗ A$(X):З.>ШЗ ═ U$;" START NODE",A(X,1):З ═ U$;" END NODE",A(X,2).вЗ ═ U$;" EXPECTED DURATION";E(X,1):З ═ U$;" VARIANCE";E(X,2).┐мЗ:З" CORRECT RECORD?":З @480,"     (PRESS <ENTER> TO END)";.╓╢I$│ Т:Е I$│""з2230.ў└Е I$│"Y" з I│X:FLAG│1:Бж 550/z╩Е I OF ACTIVITIES."*КЗ" *** TRY AGAIN  ***"0ФЗ;ЮБе 550qиЗ"ENTER THREE TIME ESTIMATES FOR  THIS ACTIVITY:"Н▓З"   OPTIMISTIC TIME:";Ц╝Й A1▓╞З"     EXPECTED TIME:";║╨Й M╓┌З"  PESSIMISTIC TIME:";▐фЙ B·юE(I,1)│╠R((A1лMн4лB)о6)°E(I,2)│╠R((BмA1)о6)п2S(I)│0*F(I)│0BЕ FLAG│1 з FLAG│0:РJ Л IX*А I│1 е NА4Е S(A(I,2))▓│S(A(I,1))лE(I,1) з 840Я>S(A(I,2))│S(A(I,1))лE(I,1)зHЛ I┐RF(A(N,2))│S(A(N,2))╘\А I │ N е 1 й м1ьfЕ F(A(I,1))│0 з 900pЕ F(A(I,1))▓F(A(I,2))мE(I,1) з 900zБе 930^ДЕ F(A(I,2)) ┤ S(A(I,1))лE(I,1) з F(A(I,2))│S(A(I,1))лE(I,1)КОQ│F(A(I,2))мE(I,1):Е Q│▓0 з F(A(I,1))│Q▓ШЕ F(A(I,1))│0 з F(A(I,1))│S(A(I,1))┬вЛ I:Бе 1430юмV│0:U$│"%                  % - ###.###"Ў╢C│0■└L│0 ╩А I│ 1 е N:Ю Q╘S1│F(A(I,2))мS(A(I,1))мE(I,1):Е  Б(S1)│┤0 з C(I)│0 :Д C(I)│S1 Ж▐Ю:Е  З(PT$)│▓32 з З PT$ :Д З д(32м З(PT$))о2)PT$ ШшЗ  б(32,131); жЄЗ A$(I):З ╬№З"FROM NODE";A(I,1)"TO NODE";A(I,2) █З "(A "; яЕ C(I)│0 з 1060 №З"NON-";!$З"CRITICAL EVENT)":З![.З═ U$;"EXPECTED DURATION",E(I,1):З═U$;"STD. DEVIATION", Ы(E(I,2))!q8Е  Б(S1)▓0 з 1150!ЪBЗ═U$;"START NO LATER THAN",S(A(I,1))!┴LЗ═ U$;"MUST COMPLETE BY",F(A(I,2))!█VЕ L▓│F(A(I,2)) з 1130!ы`L│F(A(I,2))!·jV│VлE(I,2)"tБе 1190"L~З═ U$;"EARLY START",S(A(I,1)):З ═U$;"LATE START",F(A(I,2))мE(I,1)"wИЗ ═ U$;"EARLY FINISH",S(A(I,1))лE(I,1)"ШТЗ═U$;"LATE FINISH",F(A(I,2))"│ЬЗ ═ U$;"SLACK TIME",S1"ьжЗ@448, б(32,140);:З@484,"PRESS ANY KEY TO CONTINUE";#░I$│ Т:Е I$│""з1200#║Е I$│ Л(13) з 1530#"─Л I#-╬Бж1540#V╪З"THE CRITICAL PATH LENGTH IS:   ";L#bтP│ Ы(V)#ЕьЗ"PLUS OR MINUS";:З ═" #.##";P#╕ЎЗ"ENTER DESIRED COMPLETION TIME   (0 TO END)";#└Й D#╥
Е D┤│0 з 1530#рY│(DмL)оP$R│ Ч(м(Yп2)о2)о2.5066282746$(Z│Y$!2Y│1о(1л.33267н В(Y))$Q<T│1мRн(.4361836нYм.1201676нYп2л.937298нYп3)$cFЕ Z▓│0 з 1370$mPT│1мT$xZБж1540$~dЗ$┼nЗ ═ "PROBABILITY OF COMPLETION WITH  DURATION OF ### IS ##.##";D,T$╦xЗ$╫ВБе 1270$▀МЮ:К%ЦЗ:З" EDITING STARTING TIMES....."%аА I │ 1 е N%.кЕ S(A(I,1))▓0 з 1490%D┤Е A(I,1)│1 з 1490%z╛Е XX│0 з Бж1540:З"THESE ITEMS NEED EDITING:":XX│1%К╚З " ";A$(I)%Ч╥Л I:XX│0%┬▄З@480,"  <PRESS ANY KEY TO CONTINUE>";%╙цЕ  Т│""з1510%▀ЁБе 1530%Є·Бж 1540:Бе1560&Ю:З д10) #Р

Бе 2680Х 10000VМ A$(100),R$(100),A(100,2),S(100),F(100),E(100,2),C(100)x(╣╠R(Z1)│ Б((Z1н1000л.5))о1000Д2Бе 1530┬<Бж1540:З"HAVE ACTIVITIES ALREADY BEEN    STORED ON DISK?"∙FI$│ Т:Е I$│""з70 :Д Е I$┤▓"Y" з PT│0:Бе150 :Д PT│1aPБж1540:З"PLACE DISK CONTAINING PREVIOUSLYSTORED ACTIVITIES IN DRIVE 0 ANDPRESS ANY KEY WHEN READY."ЛZЕ  Т│""з90 :Д З:З"LOADING DATA......"вdЩ"I",#1,"PERT.ACT"оnЙ#1,PT$└xЕ  М(1) з 140сВN│Nл1:Й#1, A$(N),R$(N):Бе120яМЪ#1:Бе250ЦБж 1540:З"TITLE OF THIS PROJECT:":╗ Й PT$#аЗXкЗ"DESCRIBE ACTIVITIES INCLUDED IN THIS PROJECT."П┤З"TYPE 'END' WHEN DONE.":З:A│ Ж(&H88)н256л Ж(&H89)╒╛З@Aм&H400,"ACTIVITY NO.";Nл1; Л(8)":":З:З:З:З@Aм&H400л32,;:╗ Й A$ї╚Е A$│"ERROR" з N│Nм1:Бе 190
╥Е A$│"END" з 250▄N│Nл1дцI│ Ю(A$,"/"):Е I▓0 з A$(N)│ О(A$,Iм1):R$(N)│ Р(A$,Iл1) :Д а100,2:N│Nм1:З@Aм&H400,"ENTER '/' PLUS RESPONSIBILITY!":А Q│1е500:ЛQ:а100,2:Бе190пЁБе 190¤·Бж 1540:З"DO YOU WANT TO PREPARE WORSHEET TO DEVELOP A PRECEDENCE TABLE?"
I$│ Т:Е I$│""з 260(
Е I$┤▓"Y" з 520@
Е PT│1 з PT│0:Бе380x
"Бж 1540:З"DATA MUST BE STORED BEFORE WE   PROCEED."╛
,З:З"PRESS ANY KEY WHEN YOU HAVE A   DISK READY FOR STORING DATA."╬
6Е  Т│""з310х
@Щ"O",#1,"PERT.ACT"ё
J┘#1,PT$¤
TА X│1еN
^┘#1,A$(X),R$(X)
hЛ X!
rЪ#1-
|Бж 1540q
ЖЗ"PLEASE GET PRINTER READY FOR    PRINTING ACTIVITY WORKSHEET."Ф
РЗ:З"PRESS ANY KEY WHEN READY."е
ЪЕ  Т│""з 410╜
дЗ#м2,"PROJECT: "PT$╦
оЗ#м2:З#м2
╕З#м2,"                                            NODES                TIMES"t
┬З#м2,"                                          -----------     -----------------"╠
╠З#м2,"           ACTIVITIES                    START   END      BEST   PAR   WORST"$
╓З#м2,"---------------------------------------  -----   ----     ----   ----  -----"1
рА X│1е NЧ
ъЗ#м2:З#м2,═"### - %                               %   ----   ----     ----   ----   ----";X,A$(X)Я
ЇЛ X▓
■PT$│"":Бе 1530═:Г***  ENTER DATA  ***█А I│1 е NЁЕ A(I,1)▓0 з 800√&Бж1540	0З A$(I):З:З"START NODE";)DЙ A(I,1)KNЕ A(I,1)┤0 з I│IлA(I,1):Бе550\XЗ"END NODE";ibЙ A(I,2)ГlЕA(I,2)▓│A(I,1) з 680ШvЕ A(I,2)┤N з 680АЗ" START NODE MUST BE NUMBERED     LOWER THAN END NODE, AND END    NODE MUST BE LESS THAN NUMBER   п▐
Ю0:Бж320:З"THIS PROGRAM PROVIDES THE COUPONOR INVESTMENT RATE, PROFIT, DAYSTO MATURITY, AS WELL AS FEDERAL & STATE TAX IMPLICATION OF EACH T-BILL.":З:З:З"DO YOU NEED INSTRUCTIONS?  <Y/N>":З"PRESS <S> TO RECORD":З:З::ЇБж520:ЕW$│"N"з100ЕW$│"S"з450╔(Ю:З"EACH WEEK THE U.S. TREASURY     BORROWS BILLIONS OF DOLLARS BY  AUCTIONING 13 & 26 WEEK T-BILLS,USUALLY ON MONDAYS, AND 52-WEEK T-BILLS EACH MONTH. MANY ARE    PURCHASED AT AVERAGE COST.";%2З"RATES ARE PUBLISHED IN FINANCIAL PAGESOF MANY TUESDAY NEWSPAPERS,SOME INCLUDE COST.";щ<З"  RECENT AUCTION   RESULTS ARE ON TELEPHONE TAPE   (202)-287-4100. FOR INFORMATION CALL (202)-287-4113 OR WRITE TO: THE BUREAU OF THE PUBLIC DEBT,   WASHINGTON, D.C. 20239-0001":Бж530:Бж520┘FЮ0:Бж320:З"THIS PROGRAM REQUIRES DISCOUNT  RATES.  IF NEITHER THE COST NOR THE EXACT DAYS TO MATURITY ARE  KNOWN, THEN USE 91, 182, & 364  DAYS RESPECTIVELY FOR 13 & 26   WEEK AND 1-YEAR T-BILLS AS THESEARE MOST LIKELY TO BE ACCURATE."яPЗ:З:З:Бж530:Бж520mdЮ:Бж510:Бж470:З@324,"(C)1984 WALTER J. TUCKER";:З@356," 8211 CARRLEIGH PARKWAY ";:З@388," SPRINGFIELD, VA. 22152 ";:Бж480бnЮ:Бж320:Й"DISCOUNT RATE IN %";A:З:ЕA┤7▒A▓15з110▐xЙ"COST OR NUMBER OF DAYS TO       MATURITY";G:ЕG┤367зD│GэВЕG▓366зB│G#МЕG┤367зB│ Б(10000н(1м((Aо100)н(Dо360)))н10л.5)о10JЦC│10000мB:ЕG▓366зD│ Б(Cн3.60оAл.5)╤аЮ:Бж320:З"DISCOUNT RATE=";A;"%":З:З"COST=$"; Б(Bн100л.5)о100:З:З"AMOUNT OF INTEREST=$"; Б(Cн100л.5)о100:З:Y│365:ЕD▓│363░D┤│365з200шкЕD▓│181░D┤│183з210¤┤ЕD▓│90░D┤│92з220╛Бе3302╚З"1 YEAR -";D;"DAYS TO MATURITY":Бе230_╥З"6 MONTHS -";D;"DAYS TO MATURITY":Бе240М▄З"3 MONTHS -";D;"DAYS TO MATURITY":Бе240■цE│ Б(100000н( Ы(((DоY)п2)м(4н(Dо(2нY)м.25)н(((Bо100)м100)о(Bо100))))м(DоY))о(2н(Dо(2нY)м.25))л.65)о1000:Бе250ЁE│100000н(Cн365)о(BнD)о1000g·З:З"INVESTMENT RATE="; Б(1000нEл.5)о1000;"%":Бж340:Бж520:ЕW$│"R"з110t
ЕQ│1з290╪
Ю:З:З:З:З"DOES YOUR STATE HAVE AN INCOME  TAX   <Y/N>":Бж520:З:З:Q│1:ЕW$┤▓"N"░W$┤▓"Y"зQ│0:Бе270ш
ЕW$│"Y"зL│1:
"ЕL│1зЮ:З:З:З:Й"WHAT IS YOUR STATE INCOME TAX   BRACKET(%)";ST:ЕST┤1▒ST▓20з290Д
,Ю:З:З:З:Й"WHAT IS YOUR FEDERAL INCOME TAX BRACKET(%)";H:ЕH┤1▒H▓50з300╟
6Ю:З:H│Hн.01:J│Cн(STо100):Z│(Cм(Hн(CмJ)лJ))оB:Y│(CмHнC)оB:Бе360э
@З"   U.S. T-BILL COMPUTATION":З:Р`
JЮ4:З@164,"INF8
^Р8*
`:ГSUBROUTINE TO PRINT INFORMATION84
bБж4108Х
dЮ:З@160,"DO YOU WANT TO PRINT ALL FILE OR JUST ONE PROPERTY LOCATION? ":З@224,"(ALL OR ONE)"8Я
fЙ XX$8┌
hЕ XX$│"O"з З:З"WHAT IS THE PROPERTY NO. (XXX): ":Й MN$8ю
jА REC│1 е  е(1)8√
l─ #1,REC9
nPRI(REC)│ в(PRIC$)9'
pM(REC)│ в(MREN$)9;
rD(REC)│ в(DEP$)9P
tQ(REC)│ в(MORT$)9r
vЕ XX$│"O" ░ COD$ ┤▓ MN$ з 4029Е
xАX│1е3:З#м2:ЛX9▒
zЗ#м2,д26);"Rental Property Information"9╒
|З#м2,д30);"PROPERTY NO:  ";COD$9є
~З#м2,д32);"DATE:  ";UDAT$:

АЗ#м2:З#м2:C
ВЗ#м2,"ADDRESS:  ";ADR$;"       ";CITY$;",  ";STAT$;"   ";ZIP$:L
ДЗ#м2:а
ЖЗ#м2,"RENTER:  ";NAME$;д8);"PHONE:  ";PHON$;"          ";"RENTAL DATE:  ";RDAT$:·
ИЗ#м2,"MONTHLY RENT: ";:З#м2,═KK$;M(REC);:З#м2,"      ";"DEPOSIT:  ";:З#м2,═KK$;D(REC);
КЗ#м2;K
МЗ#м2,"PUR. DATE:  ";PUR$;"   ";"PUR. PRICE:  ";:З#м2,═K1$;PRI(REC);;
ОЗ#м2,"   MONTHLY MORTGAGE:  ";:З#м2,═KK$;Q(REC);┬
РЗ#м2,"LIEN HOLDER: ";LIEN$;"                  DUE: ";PAY$;"th";╠
ТЛ REC;╘
ФЪ#1;▌
ЦБе42;э
ШО"RENTMENU"<

ЪЩ"D",#1,"RENTAL/DAT",145<└
Ь╨#1,3  з COD$,8  з UDAT$,20  з ADR$,15  з CITY$,2  з STAT$,5  з ZIP$,20  з NAME$,8  з PHON$,8  з RDAT$,6  з MREN$,6  з DEP$,8  з PUR$,8  з PRIC$,6  з MORT$,20  з LIEN$,2  з PAY$<╞
ЮР<╧
аБе42 ***CHANGE IN SAVINGS***","  ----SALES TAX PA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ▓D(REC)│ в(DEP$)/&┤Q(REC)│ в(MORT$)/H╢Е XX$│"O" ░ COD$ ┤▓ MN$ з 224/N╕Ю/\║TAG$│"NO"/В╝З@2,"rental property information"/Ю╛З:З@64,"prop. #: ";COD$/╢└З@80,"date: ";UDAT$/╨┬З@96,"address: ";ADR$/√─З@137,CITY$;:З@149,", ";STAT$;" ";ZIP$0╞З:З@192,"renter: ";NAME$06╚З@224,"phone no.: ";PHON$0V╩З@256,"rental date: ";RDAT$0М╠З@288,"rent: $";M(REC);:З@302,"deposit: $";D(REC)0п╬З:З@321,"purchase date: ";PUR$0╓╨З@353,"purchase price: $";PRI(REC)1╥З@384,"monthly mort.: $";Q(REC);:З"  due: ";PAY$;"th"10╘З@416,"lien holder: ";LIEN$1Y╓З@482,"PRESS nEXT, mENU, OR cHANGE";1e╪ANS$│ Т1z┌Е ANS$│"N" з 2241О▄Е ANS$│"C"з 2301й▐Е ANS$│"M"з 226 :Д 2141│рЛ REC1╗тЪ#11┼фБе 421хц:ГSUBROUTINE TO CHANGE DATA1ЇшTAG$│"YES"2ъЮ:З@64,"PROPERTY NO.: ";COD$:Бж34422ьЕ AT$│"Y"з238:Д2402UюЙ"NEW PROPERTY NO.: ";P$:Бе2422aЁP$│COD$2ЄЗ@64,"DATE: ";UDAT$:Бж3442ЦЇЕ AT$│"Y"з246:Д2482▒ЎЙ"NEW DATE: ";U$:Бе2502╛°U$│UDAT$2▐·З@64,"ADDRESS: ";ADR$:Бж3442ї№Е AT$│"Y"з254:Д2563■Й"NEW ADDRESS: ";A$:Бе2583
A$│ADR$3G
З@64,CITY$;" ";STAT$;" ";ZIP$:Бж3443^
Е AT$│"Y"з262:Д2643Ы
Й"NEW CITY: ";C$:Й"NEW STATE: ";S$:Й"NEW ZIP: ";Z$:Бе2703и
C$│CITY$3╡

S$│STAT$3┴
Z$│ZIP$3с
З@64,"RENTER: ";NAME$:Бж3443°
Е AT$│"Y"з274:Д2764
Й"NEW RENTER: ";N$:Бе2784"
N$│NAME$4E
З@64,"PHONE NO.: ";PHON$:Бж3444\
Е AT$│"Y"з282:Д2844|
Й"NEW PHONE NO.: ";H$:Бе2864Й
H$│PHON$4о
З@64,"RENTAL DATE: ";RDAT$:Бж3444┼
 Е AT$│"Y"з290:Д2924ч
"Й"NEW RENTAL DATE: ";R$:Бе2944Ї
$R$│RDAT$5
&З@64,"MONTHLY RENT: ";M(REC):Бж34452
(Е AT$│"Y"з298:Д3005Y
*Й"NEW MONTHLY RENT: ";M(REC):Бе3005{
,З@64,"DEPOSIT: ";D(REC):Бж3445Т
.Е AT$│"Y"з304:Д3065┤
0Й"NEW DEPOSIT: ";D(REC):Бе3065┌
2З@64,"PURCHASE DATE: ";PUR$:Бж3445ё
4Е AT$│"Y"з310:Д3126
6Й"NEW PURCHASE DATE: ";E$:Бе3146!
8E$│PUR$6L
:З@64,"PURCHASE PRICE: ";PRI(REC):Бж3446d
<Е AT$│"Y"з 318:Д3206Й
>Й"NEW PURCHASE PRICE: ";PRI(REC)6┤
@З@64,"MONTHLY MORTGAGE: ";Q(REC):Бж3446╦
BЕ AT$│"Y"з324:Д3266ю
DЙ"NEW MORTGAGE: ";Q(REC):Бе3267
FЗ@64,"LIEN HOLD:";LIEN$:Бж3447'
HЕ AT$│"Y"з330:Д3327J
JЙ"NEW LIEN HOLDER: ";LN$:Бе3347X
LLN$│LIEN$7y
NЗ@64,"DATE DUE: ";PAY$:Бж3447Р
PЕ AT$│"Y"з338:Д3407░
RЙ"NEW DUE DATE: ";PY$:Бе3427╜
TPY$│PAY$7╟
VБе1027р
XЗ:З:З"CHANGE? (Y/N)"7°
ZAT$│ Т:Е AT$│""з3467■
\З ~&
:Г***** RENT MENU *****&.:ГLISTING #1&H:ГCOPYRIGHT- J.D. RAY&O(└1&j2CC│163:DD│200:А XX│1е6&q<Ю6&ШFЗ@CC,"RENTAL PROPERTY MANAGEMENT";&╡PЗ@DD,"(C) BY J. D. RAY";&┬ZCC│CCм32&╙dА Z│1е250:ЛZ&█nЛXX&·x:ГINSERT PRINTER BAUD RATE'ВЗ@107,"MAIN MENU:";'7МЗ@162,"1) PROPERTY INFORMATION";'aЦЗ@194,"2) LIST MONTHLY TRANSACTIONS";'ИаЗ@226,"3) INCOME/EXPENSE SUMMARY";'икЗ@258,"4) SET-UP ACCOUNTS";'└┤З@290,"5) END JOB";'р╛З@390,"(1, 2, 3, 4, OR 5)";'ы╚AN$│ Т'№╥Е AN$│""з200(!▄И  Й(AN$) Бж240,250,260,270,280 (,цБе 130(<ЁО"RENTMANG"(L·О"TRANSACT"([
О"INCOEXP"(k
О"FILEMAIN"(}
Т113,0:в40999¤А S│1е2:А Q│1 е 5:┼(124,90)м(132,98),J,╛:АT│1е50:Л(╬■┼(124,90)м(132,98),J,╜(т
а10,2:а100,1:ЛQ)z

АQ│1е300:Л:╔"V20L4EEL8FA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╨&:Г***RENTMANG***&5:Г**PROPERTY INFORMATION**&F:ГLISTING #2&\CC│163:А XX│1 е 6&Е
Ю:З@CC,"RENTAL PROPERTY INFORMATION"&ТCC│CCм32&гА Z│1е250:ЛZ&лЛXX&└Х1000:М MTH$(12)&▀А ZZ│1 е 12:Н MTH$(ZZ):ЛZZ'DЖ JANUARY,FEBRUARY, MARCH, APRIL,  MAY,  JUNE,  JULY, AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER'{K$│"$##,###.##":K1$│"$$###,###.##":KK$│"$$####.##"'ГX│0'ЮЩ"I",#1,"PROPERTY/ACC"'╕Е  М(1)│м1 з Ъ#1:Бе40'┬ X│Xл1'т"Й#1,COD$(X),ADR$(X),NAM$(X)'ы$Бе30'є&Ъ#1(9(Е X│0 з Ю:З:З"YOU NEED TO INPUT PROPERTY      INFORMATION FIRST!"(b*Ю:З@98,"RENTAL PROPERTY INFORMATION"(|,З@162,"1) INPUT DATA"(Х.З@194,"2) VIEW DATA"(╟0З@226,"3) PRINT DATA":З@258,"4) END THIS JOB"(у2З@322,"(1, 2, 3, OR 4)"(·4AN$│ Т:Е AN$│""з52)6И  Й(AN$) Бж 56,156,352,408)A8:ГSUBROUTINE TO INPUT DATA ON DISK)v:Ю:АJJ│1е5:З:Л:З" ENTER TODAY'S DATE: (MM/DD/YY)")Е<З:Й"  ";U$)П>Бж410)Я@REC │  е(1))пBREC │ RECл1)╪DЮ:З @3,"RENTAL PROPERTY INFORMATION")▐FЗ*	HP$│COD$(REC):З"PROPERTY NO. CODE: ";P$**JA$│ADR$(REC):З"ADDRESS: ";A$*;LЙ"CITY: ";C$*RNЙ"STATE (XX): ";S$*oPЙ"ZIP CODE (XXXXX): ";Z$*ФRN$│NAM$(REC):З"RENTER NAME: ";N$*╖TЙ"RENTAL DATE (MM/DD/YY): ";R$*╘VЙ"PHONE (XXX-XXXX): ";H$*ёXЙ"DEPOSIT PAID: ";D(REC)+ZЙ"MONTHLY RENT: ";M(REC)+-\Й"PUR DATE (MM/DD/YY):";E$+N^Й"PURCHASE PRICE: ";PRI(REC)+m`Й"MONTHLY MORT.: $";Q(REC)+ЖbЙ"LIEN HOLDER: ";LN$+дdЙ"PAYMENT DUE: (XX) ";PY$+│f╘ UDAT$│U$+┴h╘ COD$│P$+╧j╘ ADR$│A$+▐l╘ CITY$│C$+эn╘ STAT$│S$+√p╘ ZIP$│Z$,
r╘ NAME$│N$,t╘ RDAT$│R$,(v╘ PHON$│H$,>x╘ DEP$│ ж(D(REC)),Uz╘ MREN$│ ж(M(REC)),c|╘ PUR$│E$,|~╘ PRIC$│ ж(PRI(REC)),УА╘ MORT$│ ж(Q(REC)),гВ╘ LIEN$│LN$,▓Д╘ PAY$│PY$,┐Ж┼ #1,REC,╘ИЕ TAG$│"YES"з184,чКЕ REC│X з Бе42-МЮ:З@162,"1) INPUT ANOTHER FILE"-+ОЗ@194,"2) VIEW INFORMATION"-MРЗ@226,"3) CHANGE INFORMATION"-iТЗ@258,"4) END THIS JOB"-ЕФЗ@394,"(1, 2, 3, OR 4)"-ЭЦAN$│ Т:Е AN$│""з150-╜ШИ  Й(AN$) Бж 66,156,230,416-╚ЪБе 140-ўЬ:ГSUBROUTINE FOR VIEWING INFORMATION FILES- ЮЪ#1.
аБж 410.PвЮ:З@160,"DO YOU WANT TO SEE ALL FILES OR ONE PROPERTY LOCATION? ".iдЗ@224,"(aLL OR oNE)".sжЙ XX$.оиЕ XX$│"O"з З:З"WHAT IS THE PROPERTY NO. (XXX): ":Й MN$.─кА REC │ 1 е  е(1).╤м─ #1,REC.шоPRI(REC)│ в(PRIC$).¤░M(REC)│ в(MREN$)/,"      TOTAL"8жЖ"    WITHHOLDINGS & PAYMENTS:",F.I.C.A.,Federal Income Taxes,State Income Taxes,Retirement & Deferred Comp.,I.R.A.,Credit Union Loans,"      TOTAL"9Q$Ж "    RESIDENTIAL EXPENSES:",Mortgage Payments,Property Taxes,Insurance,Repairs & Maintenance,"Utilities:","  Telephone","  Electricity","  Gas","  Water & Disposal":).Ж Major Improvements,Furnishing Purchases,"      TOTAL","    AUTOMOBILE EXPENSES:","Husband's Car:","  Insurance","  Repairs & Maintenance","  Licenses & Fines","  Gasoline","  Less Reimbursements","      TOTAL":╨8Ж  "Wife's Car:","  Insurance","  Repairs & Maintenance","  Licenses & Fines","  Gasoline","  Less Reimbursements","      TOTAL","      TOTAL AUTOMOBILE EXPENSES";ШBЖ  "    OTHER EXPENSES:",Union Dues,Life Insurance,Health/Hospital Insurance,Medical/Dental,Pet Expenses,Meals Out,Food Purchases,"Appliances, Dishes, etc.",Small Tools etc.,Work Related Expenses<OLЖ  Computer Expenses,Stereo/Video/Photo,Hobby Expenses,Entertainment,Physical Fitness Expenses,Personal Grooming & Hygiene,Vacation,Clothing,Laundry & Cleaning,Gifts etc.,Flowers<жVЖ  Contributions,Magazines & Books,Bank/Finance charges,Collectibles,Miscellaneous=`Ж "     TOTAL","     TOTAL EXPENSES","  ***CHANGE IN SAVINGS***","  ----SALES TAX PAID-----"=9jЩ"O",#1,"MIDMONTH."лZ$:АN│1е75:┘#1,M(N):Л:Ъ#1=РtЗд10)"INSERT BACKUP DISK AND PRESS":З:Зд15)" 'C' FOR COPY":З:Зд15)"'ENTER' TO END"=░~в44539:Е  Т│"C" з 1130 :Д К=рИЮ:S$│"SUMMARY OF ACTIVITY TO DATE":Зд3)S$:З><ТАN│1е75:C│Cл1:З═"%         %";A$(N);:З"   ";:З═"####.##";M(N);:З"  ";:З═"#####.##";Y(N)>\ЬЕC│13зC│0:в44539:Ю:Зд3)S$:З>cжЛN>z░ЕN▓75зв44539:C│0:Р?5║З@261,"ENTER FIRST 3 LETTERS OF      MONTH:  ";:╗ЙZ$:Щ"I",#1,"MIDMONTH."лZ$:А N│1 е 75:Й#1,M(N):Л:Ъ#1:M(7)│0:M(15)│0:M(28)│0:M(36)│0:M(43)│0:M(44)│0:M(72)│0:M(73)│0:M(74)│0:M(75)│0:Р?NRlЗ#м2,д6)RH;д25)OH?WR╨З#м2?ЫS4З#м2,"TOTAL SALES","GROSS AMOUNT","TOTAL WITHHELD","NET AMOUNT"?╡SШЗ#м2,═F1$;TS;GA;TW;PT?╚S№З#м2, б(16,10)?▌T`ЕOA│1зЪ#1:Бе6700?№T─ЕOA│1зЪ#1:Бе6700::ДЛ X:Ъ#1@                                                                                                                                                                                                                                                                N│9е14:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):MM(15)│MM(15)лMM(N):YY(15)│YY(15)лYY(N):Л/ж
ЇАN│17е27:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):MM(28)│MM(28)лMM(N):YY(28)│YY(28)лYY(N):Л/¤
■АN│31е35:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):YY(36)│YY(36)лYY(N):MM(36)│MM(36)лMM(N):Л0TАN│38е42:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):MM(43)│MM(43)лMM(N):YY(43)│YY(43)лYY(N):Л0ВMM(44)│MM(36)лMM(43):YY(44)│YY(36)лYY(43)0┘АN│46е71:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):MM(72)│MM(72)лMM(N):YY(72)│YY(72)лYY(N):Л1#&MM(73)│MM(15)лMM(28)лMM(44)лMM(72):YY(73)│YY(15)лYY(28)лYY(44)лYY(72)1K0MM(74)│M(74)оM(7):YY(74)│Y(74)оY(7)1^::Гto convert %1МDАN│1е75:MM(N)│MM(N)н100:YY(N)│YY(N)н100:Л1╨NЮ:З@162,"DO YOU WANT A SCREEN PREVIEW? ";:в44539:Е Т│"Y"зБж11601ЁX:Гcheck if printer is ready2bЕ Ж(65314)о2│ Б( Ж(65314)о2)зI│1:ДI│02glЕI│0зЮ:З@200,"PRINTER NOT READY":З@420,"PRESS ANY KEY WHEN READY":в445392vЮ0:З@236,"WORKING";2╤АЗ#м2, Л(14)"           INCOME STATEMENT":З#м2,д24)"FOR MONTH ENDING ";M$:З#м23КЗ#м2,д42)"MONTH"д53)"%"д62)"Y.T.D."д74)"%"3ФЗ#м2,д6)A$(1)3 ЮN│2:Бж95033иАN│3е7:Бж940:Л3J▓З#м2:З#м2,д6)A$(8)3X╝N│9:Бж9503m╞АN│10е15:Бж940:Л3Е╨З#м2:З#м2,д6)A$(16)3Ф┌N│17:Бж9503йфАN│18е20:Бж940:Л3╝юЗ#м2,д6)A$(21)3╦°N│22:Бж9503рАN│23е28:Бж940:Л3°З#м2:З#м2,д6)A$(29)4З#м2,д4)A$(30)4 N│31:Бж9504/*АN│32е36:Бж940:Л4G4З#м2:З#м2,д4)A$(37)4V>N│38:Бж9504kHАN│39е43:Бж940:Л4ЛRЗ#м2:N│44:Бж950:З#м2, Л(12)4░\З#м2,д27)"MONTH ENDING ";M$:З#м24├fЗ#м2,д6)A$(45)4╥pN│46:Бж9504чzАN│47е72:Бж940:Л4√ДЗ#м2:N│73:Бж9505ОЗ#м2:N│74:Бж9505WШЗ#м2:З#м2,д4)A$(75)д37):З#м2,═X$;M(75);:З#м2,д57)"";:З#м2,═X$;Y(75)5mвЗ#м2, Л(12):Бе9606
мЗ#м2,д5)A$(N)д38):З#м2,═X$;M(N);:З#м2, Л(15)д56)"";:З#м2,═K$;MM(N);:З#м2, Л(18)д64)"";:З#м2,═X$;Y(N);:З#м2, Л(15)д84)"";:З#м2,═K$;YY(N):З#м2, Л(18)"";:Р6з╢З#м2,д4)A$(N)д37):З#м2,═X$;M(N);:З#м2, Л(15)д55)"";:З#м2,═K$;MM(N);:З#м2, Л(18)д63)"";:З#м2,═X$;Y(N);:З#м2, Л(15)д83)"";:З#м2,═K$;YY(N):З#м2, Л(18)"";:Р6┐└:Гto convert % back6э╩АN│1е75:MM(N)│MM(N)о100:YY(N)│YY(N)о100:Л7╘Щ"O",#1,"BUDGET"7▐АN│1е757!ш┘#1,Y(N):Л:Ъ#17zЄЮ:З@65,"ENTER BACKUP DISK FOR COPY AND":Зд8)" PRESS <ENTER>":в44539:Щ"O",#1,"BUDGET"7Ж№АN│1е757Ы┘#1,Y(N):Л:Ъ#1:К8
Ж "    SOURCES OF INCOME:",Husband's salary,Wife's salary,Overtime,Interest earned,Misc. Income 6&$
:Г****************************&E:Г  HOME FINANCIAL STATEMENT&Z:Г            BY&x(:Г     ROLAND B. PORTILLO&2:Г&Ш<:Г       VERSION 2.2&▒F:Г        JULY, 1984&╘P:Г****************************&█Z:Г'dЮ:З@164,"HOME FINANCIAL STATEMENT":А X│1е1500:Л'8n┌И:МA$(75),M(75),MM(75),Y(75),YY(75)'ixX$│"#######,.##":D$│"$$#####,.##":K$│"###.#"'╘ВЮ:З@130,"ARE THERE ANY MIDMONTH TOTALS":З@170,"TO ENTER:":Зд15)"";: :╗ЙR$:ЕR$│"Y" ▒ R$│"YES" з Бж 1210(>МЮ:З@132,"To Enter CUMULATIVE TOTALS":З@170,"press <<ENTER>>":З@256,"If no prior totals, enter 'NONE'"(`ЦЗ@398,"";:╗ЙR$:ЕR$│"NONE"з190(uаЩ"I",#1,"BUDGET"(БкАN│1е75(Ф┤Й#1,Y(N):Л:Ъ#1(й╛АN│1е75:НA$(N):Л(ъ╚Ю:З@135,"ENTER STATEMENT DATE:":З@171,"";:╗ЙM$:Е M$│"" з 200)`╥Ю:З@32,"Enter 'END','SUM' or budget code":З@64, б(32,"-"):З@174,"";:╗ЙBC$:ЕBC$│"END"з300:ДЕBC$│"SUM"зБж1160:Бе210)p▄ЕBC$│""з240)~цA│ Й(BC$))─ЁЕA▓30░A┤36зЗ@169,"HUSBAND'S CAR:":ДЕA▓37░A┤43зЗ@169,"WIFE'S CAR:")█·ЕA│20зЗ@263,A$(16)*Z
ЕA▓71▒A┤2▒A│21▒A│7▒A│8▒A│15▒A│16▒A│28▒A│29▒A│30▒A│36▒A│37▒A│43▒A│44▒A│45за50,1:Ю:З@170,"NO SUCH ACCOUNT";:АX│1е500:Л:Бе210*Ч
З@202,A$(A):З:ЕA│35▒A│42зЗ"  Enter as a negative amount"*║
З:╗Й"     ENTER AMOUNT:$ ";AM$*с
"AM│ Й(AM$):M(A)│M(A)лAM:AM│0:Бе210+{
,Ю:З@164,"Will there be any additions before printing statement? ";:╗ЙR$:ЕR$│"Y"▒R$│"YES"зЗ@352,"Enter first 3 letters of month:":Зд12)"";:╗ЙZ$:Бе1130+Ц
6:Гto accumulate totals+╨
@АN│2е6:M(7)│M(7)лM(N):Y(N)│Y(N)лM(N):Л:Y(7)│Y(7)лM(7),
JАN│9е14:M(15)│M(15)лM(N):Y(N)│Y(N)лM(N):Л:Y(15)│Y(15)лM(15),Q
TАN│17е27:M(28)│M(28)лM(N):Y(N)│Y(N)лM(N):Л:Y(28)│Y(28)лM(28),Т
^АN│31е35:M(36)│M(36)лM(N):Y(N)│Y(N)лM(N):Л:Y(36)│Y(36)лM(36),╙
hАN│38е42:M(43)│M(43)лM(N):Y(N)│Y(N)лM(N):Л:Y(43)│Y(43)лM(43),√
rM(44)│M(36)лM(43):Y(44)│Y(36)лY(43)-<
|АN│46е71:M(72)│M(72)лM(N):Y(N)│Y(N)лM(N):Л:Y(72)│Y(72)лM(72)-Т
ЖM(73)│M(15)лM(28)лM(44)лM(72):M(74)│M(7)мM(73):Y(73)│Y(73)лM(73):Y(74)│Y(7)мY(73)-п
Р:Гto calculate sales tax-╧
ЪАN│53е71:M(75)│M(75)лM(N):Л-ё
дM(75)│M(75)лM(20)лM(26)лM(27).
оM(75)│M(75)л(M(32)о2)л(M(39)о2).1
╕M(75)│M(75)л(.85нM(51)).e
┬M(75)│M(75)лM(50)мM(59)мM(62)мM(64)мM(67)мM(69).Х
╠M(75)│M(75)м(M(75)о1.065):Y(75)│Y(75)лM(75).и
╓:Гto compute %.∙
рАN│2е6:MM(N)│M(N)оM(7):YY(N)│Y(N)оY(7):MM(7)│MM(7)лMM(N):YY(7)│YY(7)лYY(N):Л/O
ъА о&0:ГLISTING1 MODIFIED FROM FEB.'85 'RAINBOW'&┐2Ю(0): З@128,"  TO STUDY THE SENTENCES IN THISPROGRAM, PRESS THE <G> KEY.  RE-PEAT THIS PROCEDURE UNTIL YOU   ARE FINISHED WITH THE TABLE."&ф<З:Й "          PRESS <ENTER>";OA&ъdЮ&№iА I│1 е 6:З:Л'nX│ Д(7)'.xИ X Бе130,140,150,160,170,171,172'IВЗ"      I SEE ";:Бе200'eМЗ"      WE SEE ";:Бе200'БЦЗ"     YOU SEE ";:Бе200'ЮаЗ"     JOE SEES ";:Бе200'╜кЗ"   OLIMPIA SEES ";:Бе200'┌лЗ"      HE SEES ";:Бе200'ўмЗ"     SHE SEES ";:Бе200(╚X│ Д(5):И X Бе210,220,230,240,250(0╥З"HIM ";:Бе260(C▄З"HER ";:Бе260(WцЗ"THEM ";:Бе260(mЁЗ"GEORGE ";:Бе260(В·З"DIANA ";:Бе260(Ь
X│ Д(2):И X Бе270,280(▒
З"OPENING":Бе290(╟
З"SHUTTING":Бе290(т
"X│ Д(2):И X Бе 300,310(°
,З@225,"A ";:Бе320)
6З@224," THE ";:Бе320)5
@X│ Д(4): И X Бе330, 340,350,360)H
JЗ"DOOR.":Бе370)]
TЗ"WINDOW.":Бе370)p
^З"BOOK.":Бе370)Й
hЗ"DICTIONARY.":Бе370)н
rA$│ Т: Е A$│"G" з Ю:Бе100 :Д370зЗ@169,"WIFE'S CAR:")█·ЕA│20зЗ@263,A$(16)*Z
ЕA▓71▒A┤2▒A│21▒A│7▒A│8▒A│15▒A│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ME. I'M A BLUEBLOOD!": Бж 1530: A$│"HE AIMS THE PISTOL AT YOU AND FIRES! THE END.": Бж 1530: Бж 2490: Бе 2610n 	░A$│"BLURTON DRAINS THE FLAGON AND KEEPS IT.": Бж 1530: A$│"HE SAYS: I LIKE IT. I PROMISE NEVER TO SHOOT YOU.": Бж 1530: FL$│"": PI$│"EMPTY": Рo6	║А V│1 е 10: ┬(159,45),3,4: Т 65494,0: ╔"T32;O5;CB"ot	─┬(159,45),3,1: ┬(8л Д(20),60л Д(20)),3,4: Л: Т 65495,0: Рoу	╬╗(40,40)м(215,95),╜,B: ╗(40,40)м(0,0),╜: ╗(215,40)м(255,0),╜: ╗(215,95)м(255,135),╜: ╗(40,95)м(0,135),╜: Рp	╪╞"BM225,105;U50E20D90": ├(228,101),2,3: Рp=	т╞"BM30,105;U50H20D90": ├(27,100),2,3: Рpl	ь╗(DS,50)м(DSл30,95),╜,B: ├(DSл2,52),2,3: Рp╦	ЎБж 2650: ┬(200,80),12,4: ├(200,80),4,4: ╗(1,120)м(1,120),╜: А V│1 е 255 й  Д(15)л10: N│Nл1q
N│Nл1: Е Nо2│ Б(Nо2) з V1│80л Д(20) :Д V1│100л  Д(20)qk

╗м(V,V1),╜: Л: ╗м(254,120),╜: ├(2,134),3,3: ╞"C2;BM40,100;U30R10D10R30U10R10D30L50": ├(43,98),2,2q┴
A$│"IT IS DAWN AS YOU ESCAPE LURKLEY MANOR. YOU ARE VERY HAPPY": Бж 1530: Бе 2580rТ
Бж 2600: Бж 2650: Бж 1600: A$│"IT'S IGOR! HARUMPH! NEVER HOPED-- I MEAN EXPECTED TO SEE YOU AGAIN.": Бж 1530: A$│"I GIVE YOU A PARACHUTE. USE IT WELL. I NOW RETURN YOU TO THE GREAT HALL.": Бж 1530: Бе 160s"
(A$│"UP THE CHIMNEY YOU FIND THE ATTIC. SOME WEIRDNESS HAPPENS - A COLOR FIELD...": Бж 1530: А V│1 е 20: ╝  Д(3)л1: ┐  Д(2),1: Л: Бж 2650: Рs?
2╔ "T1": Бж 1820: Бе 2610s\
<╗(S1,P1)м(S2,P2),╛,BF: Рsд
FЕ KZ│1 з KZ│0: Р :Д А T│1 е 500: Л: ┴ 1,1: ╗(0,140)м(255,Yл12),╛,BFs╜
PX│1: Y│140: ┴ 3,1: РsЄ
Z╚ 3,1: ┴ 3,0: ╝1: ┐ 1,1: ╗(0,0)м(255,135),╜,B: Рt'
dX$│ Т: HY│ Ю(DI$,X$): Е X$│"" ▒ HY│0 з 2660 :Д РtV
nА V│1 е 15: ┬(22,60),V, Д(2)л2,1.8: Л V: Рtm
xВ - END OF LISTING                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Y APPEARS, SAYING . . .": Бж 1530: A$│"I AM ENRAGED BY THE ORANGE OF YOUR FLAGON!": Бж 1530eымЕ X$│"R" з A$│"THERE'S A SKELETON IN THE CLOSET. IT SAYS . . .": Бж 1530: A$│"YOU CAME HERE TOO SOON, YET YOU ARE NOW... THE LATE.": Бж 1530f>╢A$│"YOU TAKE A PERMANENT PLACE ON THE OTHER SIDE OF THE MIDDLE DOOR.": Бж 1530fz└┬(128,95),38,,2,.5,1: X│107: Y│70: A$│"R I P ": Бж 1540f─╩┴ 2,1: А X│90 е 166: ╗(X,100)м(Xл(3м Д(6)),100м Д(15)),╜: Л X: ┴ 3,1:g-╘A$│"IT LEADS TO A SECLUDED GLEN JUST BEHIND LURKLEY MANOR. YOUR FINAL STOP.": KZ│1: Бж 1530: Бе 2610g~▐A$│"NOIRA DARK ASKS IF YOU HAVE SOMETHING TO DRINK. <Y>ES OR <N>O.": Бж 1530gдшX$│ Т: Е X$┤▓"Y" ░ X$┤▓"N" з 2280g▐ЄЕ X$│"N" ░ FL$│"" з A$│"DON'T FORGET ME.": Бж 1530: Рh]№Е X$│"N" ░ FL$┤▓"" ▒ X$│"Y" ░ FL$│"" з A$│"SHE CALLS YOU A LIAR, AND RIGHTLY SO. SHE FLIES INTO A RAGE.": Бж 1530: Бе 2370hФ	A$│"SHE ASKS FOR A DRINK: <Y>ES OR <N>O.": Бж 1530h║	X$│ Т: Е X$┤▓"Y" ░ X$┤▓"N" з 2320i#	Е X$│"Y" ░  О(FL$,2)│"BL" з A$│"IT'S BLUE! I HATE PRUNE JUICE, OR WHATEVER IT IS!": Бж 1530: Бе 2370iП	$Е X$│"Y" ░ FL$│"ORANGE" з A$│"SHE SNIFFS AT IT, SAYING: THE SKELETON MUST OKAY THIS FIRST.": Бж 1530: Рj	.Е X$│"Y" ░ FL$│"ORANGEX" з FL$│"": YO│3: CV│1: A$│"THAT TASTED VERY GOOD! MY ADVICE TO YOU GO WALK THROUGH A WALL.": Бж 1530: Рjл	8Е FD│0 ░ X$│"N" з FD│1: A$│"SHE VOWS: YOU'LL SLAKE MY THIRST BEFORE YOU ESCAPE! SCRAM!": Бж 1530: Р :Д Е X$│"N" з A$│"REMEMBER MY VOW.": Бж 1530: Рj╤	B┴ 2,1: ┬(200,66),16,1,1.1,.35,.67k"	L╞"BM190,52;L15H9L7F14R15F2": ┬(163,40),8,,.7: ├(163,40),1,2: ╞"BM163,10;D25"kI	VA$│"SHE PRODUCES A BOMB.": Бж 1530kЧ	`А X│10 е 35: А V│4 е 1 й м1: ┴ V,1: ┬(163,X),2,V: Л V: ╔ "T254;O1;C": Л Xkь	j┴ 4,1: А X│1 е 60: А V│0 е 1: ┐ 1,V: ╗(163,40)м( Д(255), Д(134)),╜: Л V,X: ┴ 3,1l=	tA$│"NO ONE SURVIVES. WILL THIS TEACH YOU NOT TO FIB?": KZ│1: Бж 1530: ╔ "T1"lR	~Бж 1820: Бе 2430lн	ИA$│"BLURTON SAYS: I SEE YOU HAVE A FLAGON. MAY I HAVE A SIP - <Y>ES OR N<O>?": Бж 1530mH	ТX$│ Т: Е X$┤▓"N" ░ X$┤▓"Y" з 2450 :Д Е X$│"Y" ░ FL$│"BLUE" з A$│"SEE MY MOMMY - I MEAN MY MUMMY - TO GET THIS APPROVED BEFORE I DRINK IT.": Бж 1530: Рm╠	ЬЕ X$│"Y" ░  О(FL$,2)│"OR" з A$│"IT'S ORANGE STUFF, WHICH I HATE!": Бж 1530: A$│"HE FIRES. YOU FALL. IT ENDS.": Бж 1530: Бе 2610nl	жЕ X$│"N" з A$│"BLURTON SCOWLS: NO ONE REFUSES 495,0: Р\R0├(220,5),3,3: ┴ 1,3: ┬(210,16),11,,1.5,.45,.056: ┬(210,19),9,,2.2,0,.5\С:╜(208,11,1): ╜(213,11,1): ╞ "BM210,16;D3": ╞ "BM209,24;R4"\╩D╞ "BM190,69;U10R3U17E5R25E15U3H10": ╞ "BM210,34;D40"]*NV1│14: V2│.7: V3│47: А V│1 е 5: ┬(210,V3),V1,,V2,.45,.05: V1│V1м2.5: V2│V2м.1: V3│V3л5: Л V]|XА V│67 е 70: ┬(210,V),14,,.6,0,.5: Л: ╞"BM188,132;E7U10H3U30E7R20F20G20F7": Р]╜b┬(70,90),25,,1.5,.45,.99: ┬(80,90),25,,1.5,.5,.6: ┬(53,95),7]▌l╞"BM48,103;D15G5R10E2R5E10"]·v┬(68,85),18,,1.6,.75,.25^1А┬(70,47),15,,1.2: ╞ "BM80,51;L4H2": ┬(76,41),3,,.7^\КА V│5 е 16: ┬(72,47),V,,1.2,.5,.7: Л V^гФ╞ "BM63,120;D14R17E2U4H2L5U5E2U5E7U2E7U3E2U1E2U7L9": ├(65,132),3,3^╕Ю├(70,100),4,3: Р_иА V│21 е 145 й 1: ╗(6,Vл( Д(10)м20))м(75,Vл Д(10)м20),╜: Л V: ┴ 3,0_8▓┴ 2,0: ╞ "BM35,80;D50L20U10R10U80G10D30L10U35E20R5"_R╝┬(39,17),14,,1,.4,.12_Ж╞╞ "BM35,80;R10D50R20U10L10U80F10D30R10U35H20L5"_╢╨╗(0,0)м(85,135),╜,B: ├(5,5),4,2: ├(5,5),1,2_с┌┴ 3,0: ╗(0,0)м(85,135),╜,B: ├(5,5),1,3_чфР_ёю┴ 2,1`P°╞"BM202,130;L13E4R5U75G12H15R7F7E11R20F15G15U7E7H9D75G8L3U4E6R4L13R7U40": ╞ "BM199,70;R15"`s├ (202,68),2,2: ├ (202,72),4,2`█┬(206,33),10,,1.3: ├(206,33),0,2: ├(206,33),1,2: ┴ 2,0: А V│1 е 10: ┬(206,28),V,,.8,.5,1:Л V: ┴ 3,0a╞ "BM203,37;F2R3E2": ╞"BM207,36;U4": ╜(202,30,3): ╜(209,30,3)a> ╞"BM173,47;U1L10U1R13E2G3D7"aЗ*╞"BM10,125;U5E5U50L5D15L3U20R10U10R10D10R10D20L5U15L5D38F3G10U25": Рaх4Бж 2650: BU$│"BU": A$│"DUNGEON": Бж 1530: Бж 2510: A$│"IT'S EMPTY EXCEPT FOR...": Бж 1530bP>╞"C2;BM195,103;R20D30L20U30": ├(197,105),2,2: ┬(205,103),10,2,.5,1: A$│"A NICE LITTLE BUCKET": Бж 1530bЪHYO│YOл1: A$│"YOU TAKE THE BUCKET AND CRAWL BACK UP TO...": Бж 1530: Рb╞R┴ 3,1: L│1: А V│35 е 59: А K│3 е 1 й м2b \┴ K,1: ╗(111лL,V)м(137,35),╜: Л K: L│Lл1: Л V: ┴ 3,1crfA$│"OH MY GOODNESS! A TRAPDOOR OPENS AND DROPS YOU THROUGH.": Бж 1530: A$│"BUT DON'T WORRY TOO MUCH.": Бж 1530c╤p┬(136,96),40,2,1,.77,.47: X$│"C2;BM136,96": ╞ X$л"G5H5G5H5G5H5G5": ╞ X$л"H5E5H5E5H6E6H6R6"d	z┬(150,75),10,2,.5: ├(128,133),2,2: ┬(150,75),2,4,.7d┤ДA$│"A RENEGADE FROM SOME GENTLER VIDEO PASTIME CATCHES YOU BEFORE YOU HIT THE FLOOR.": Бж 1530: A$│"IT HAS EATEN RECENTLY BUT MANAGES TO PAC YOU IN. THE END": Бж 1530d╔ОБж 1820: Бе 2190dхШЕ X$│"L" з V│2 :Д V│182eZвЕ X$│"L" з A$│"A MUMMGS YOU. THE END.": Бж 1530: Бе 2610SAВЕ PI$│"EMPTY" ░ HY│1 з 810SuМЕ PI$│"EMPTY" ░ HY│3 з A$│WA$: Бж 1530: Бе 1400SЧЦЕ HY│4 з 240 :Д Е HY│2 з 1070S═аБж 2650: А V│1 е 79 й 3: ┬(128,55),V, Д(2)л2: Л VT*кA$│"THIS MEANS JUMPING THROUGH A BEAUTIFUL STAINED GLASS WINDOW. <Y>ES OR <N>O": Бж 1530TВ┤X$│ Т: Е X$┤▓"Y" ░ X$┤▓"N" з 1460 :Д Е X$│"N" ░ GL│2 з 560 :Д Е X$│"N" ░ GL│1 з 930T▐╛╞"C2;BM128,40;U30G10D20H30D10F20L30F20G30R5U5R13U5E20F40U10R40H40U30G20": ├(128,65),1,2U╚А X│255 е 1 й 10: а X,1: Л: A$│"YOU JUMP": Бж 1530Uh╥Е PA$│"PA" з A$│"YOUR PARACHUTE RIPS ON JAGGED GLASS AND IS USELESS.": Бж 1530UЧ▄A$│"IT'S THE END. YOU FALL . . .": Бж 1530U╠цA$│"... AND FALL ...": Бж 1530: Бж 1820: Бе 1510U√ЁЕ FI│2 з ╞"C3;BM200,74"лJH$: ├(180,80),3,3V·┴ 3,1: X│1: Y│140: A$│A$л Л(32)VAА P│1 е  З(A$): Q$│ Р(A$,P,1)VfK│ К(Q$)м31: Е K┤1 ▒ K▓59 з 1590WИ K Бж 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62Wr"Бж 63: X│Xл12: Е Q$│ Л(32) ░  Ю( Р(A$,Pл1, Б((255мX)о12)), Л(32))│0 з X│1: Y│Yл14WИ,Е Y▓182 з Бж 2630WЬ6Л P: Бж 2630: РW╣@┬(128,90),55,,1.5,.6,.09WїJА V│120 е 128: А U│110 е 170 й 60: ┬(U,V),15,,.2: Л U,VXLT┬(155,75),18,,2.5,.5,1: ╞"BM137,75;R30": ┬(157,75),13,,1,0,.5: ┬(85,97),11,,1,0,.5Xs^╞ "BM155,120;H15G15L20H8U15L20U22"XИh┬(100,62),30,,.8X╗rА V│90 е 110 й 20: ┬(V,55),9,,.7: ┬(V,58),3: ЛX█|╞ "BM101,55;D3G7D5F3R2E5U2"XўЖ╗ (97,80)м(107,77),╜: РY0Р┴ 2,1: ┬(200,130),20,,3,.5,0: ╗(180,130)м(220,130),╜Y^Ъ╞ "BM195,75;U6L1H3U6E3R3F4E4R2F3D6G3D6G3"YИд╗(200,120)м(200,70),╛: ├(200,112),2,2Y╟о┬(200,40),9,,1.6: ┬(200,66),16,,1.1,.35,.16: ├(200,40),1,2Z╕╜(198,37,3): ╜(202,37,3): ┬(200,41),1: ┬(200,44),2,,.7,0,.5ZB┬┴ 4,0: А V│10 е 14: ┬(200,46),V,,1.7,.5,1: Л: ┴ 3,0: РZ^╠╚ 4,1: ┴ 1,0: ╝0: ┐ 3,2ZЕ╓╞"BM0,134;E10R3U2E5R40U3R50U3R150"ZЮр╗(116,110)м(90,30),╜Zэъ╞"BM90,30;L10U10R40D10L10D10R40U10L5U5R15D5L5D10R30U20L10U8R30D8L10D20R40"Z Ї╗м(220,111),╜['■А V│1 е 12: ┬(180,111),V,,2,.5,1: Л[EА V│1 е 10: ┬(30,20),V: Л[ЩKZ│1: A$│ б(9,32)л"LURKLEY MANOR"л б(11,32)л"BY RICHARD RAMELLA": Бж 1530: KZ│0[ёТ 65494,0: Т 223,6: А G│1 е 2: А T│1 е 2: ╔ P1$: Л T: ╔ P2$: Е G│1 з ╔ P3$ :Д ╔ P4$\&Л G: Т 6500 е 140 й 10: ╗(V1,V)м(V1л10,Vл10),╜,B: Л V1,V: ╞"C1;BM60,40;R20": ╞"BM50,95;R40"J│B┴ 2,1: ╗(170,120)м(215,134),╜,BF: ╗(175,70)м(210,119),╜,B: ┴ 3,1: Бж 1890: ╞"C1;BM176,95;R33"J▐L╞"C2;BM190,90;E10H10E10H10E10H10L63D9"K>VA$│"PROFESSOR FUDDLES PERFORMS UNSPEAKABLE EXPERIMENTS ON SMALL HELPLESS AMOEBAS.": Бж 1530Kв`А V│1 е 100: ├(101л Д(42),43л Д(43)), Д(2)н2,3: ╜(176л Д(34),71л Д(48), Д(2)н2): а  Д(240),1: ЛLSjA$│W$: Бж 1530: Бж 2660: Е HY│2 ░ CV│1 з CV│0: Бж 2100: Бе 1070 :Д Е HY│3 з 1340 :Д A$│WA$: Бж 1530: A$│"THIS GIVES YOU A CHANCE TO WATCH SOME MORE AS...": Бж 1530: Бе 1110LГtБж 2650: A$│"FLAGON SPILLING ROOM": Бж 1530L╗~Бж 2510: А V│1 е 100: ╜( Д(253)л2, Д(133)л2,2): Л VL°ИA$│"THERE ARE STRANGE SMALL THINGS ALL AROUND.": Бж 1530M!ТЕ FL$┤▓"ORANGE" ░ FL$┤▓"BLUE" з 1290M╥ЬA$│"THIS IS THE FLAGON SPILLING ROOM. YOU HAVE A FLAGON. YOU SPILL IT.": Бж 1530: A$│"THE FUMES REANIMATE MUMMIFIED SPIDERS WHICH GROW HUGE AND ATTACK.": KZ│1: Бж 1530: ╝ 1NжМ A(1,25),B(7): ╝ 1: ┬(15,14),3,,.5: ┬(15,10),13,,.8NQ░А V│8 е 23 й 5: V$│ И(V)л",17;": Е V│┤16 з J$│"G5F5" :Д J$│"F5G5"N}║╞ "BM"лV$лJ$: Л V: ╜(11,7,4): ╜(18,7,4)NЩ──(2,2)м(33,33),A,G: ╝ 1N╬╬X│ Д(7)м1: P│Xн36л8: А J│1 е  Д(25): B(X)│B(X)л1Nэ╪┼(P,B(X))м(Pл31,B(X)л25),AOтЕ B(X)▓110 з 1270OьЛ J: Бе 1230O~ЎA$│"OH WHAT A SAD ENDING!": Бж 1530: ├(0,0),4,3: ┴ 1,1: A$│"E-E-E-E-E-K!": KZ│1: X│64: Y│160: Бж 1540OЫ╔ "T1": Бж 1820: Бе 1280O╒
A$│"YOU'RE VERY LUCKY . . . FOR SOME REASON": Бж 1530P7Бж 2650: A$│"DIRECTION?": Бж 1530: Бж 2660: Е HY│3 з 480 :Д A$│WA$: Бж 1530: Бж 2660: Бе 1140PoA$│"YOU WALK DIRECTLY INTO THE FIREPLACE.": Бж 1530P╤(A$│"YOU MUST THINK THIS TEST IS A CINCH. FOR YOU IT'S A SINGE. T-H-E E-N-D": Бж 1530: Бе 2610Q2A$│"THE DOOR BEHIND YOU IS LOCKED. REMEMBER?": Бж 1530: Бе 160QK<Бж 2650: A$│"GYMNASIUM": Бж 1530: Бж 2510: Бж 2520QУF├(228,101),3,3: DS│100: Бж 2540: Бж 2030: Е YO│3 з Бж 2490: Бе 1400QыPЕ BU$│"BU" ░ SD│0 з SD│1: A$│"BLURTON SAYS: GO SEE THE ELEPHANT.": Бж 1530: Бе 1400RLZЕ VX│0 з VX│1: A$│"SMIRKING BUT SILENT, BLURTON SHARPE PRACTICES HIS PISTOL SKILL.": Бж 1530RXdБж 2490RЖnE$│ О(FL$,1): Е E$│"B" ▒ E$│"O" з Бж 2440S"xA$│"DIRECTION?": Бж 1530: Бж 2660: Е PI$│"" ░ HY│1 ▒ PI$│"" ░ HY│3 з A$│"YOU ENTER SHARPE'S LINE OF FIRE, AND HE PLUIENDLY MUMMY APPEARS. IT GESTURES OVER THE BLUE FLAGON.": Бж 1530: A$│"ITS ADVICE: SHARE THE POTABLE WITH SOMEONE WHOSE NAME BEGINS AS ITS COLOR.": Бж 1530: Бе 800BYO│YOл1: FL$│FL$л"X": A$│"A RATTLING SKELETON IS THERE.": Бж 1530: A$│"IT TELLS YOU: SAY YES TO THE LADY.": Бж 1530Bq A$│"CONSIDERABLY WISER, YOU DESCEND THE STAIRS WITH YOUR FLAGON.": Бж 1530: Бе 580Bд*Бж 2650: A$│"YOU GET A WHIFF OF HAY.": Бж 1530Bя4┬(128,65),70,,.8,.6,.1: ┬(128,65),70,,.8,.2,.3: ┬(128,65),70,,.8,.4,.5C/>╞ "BM185,95;D30L22H9C1L46C3G9L22U25": ┬(205,58),12,,.7,0,.4C~H┬(55,45),20,,1,.3,.9: А V│19 е 29 й 10: ┬(V,65),30,,1,0,.25: Л: ┬(48,45),3C·RA$│"AN OBESE, DIM-WITTED ELEPHANT IS THERE.": Бж 1530: A$│"HAPPY TO SEE YOU, IT RUSHES FORWARD IN GREETING...": Бж 1530DМ\Е BU$│"BU" з BU$│"OK": A$│"AND FILLS THE BUCKET WITH WATER FROM ITS TRUNK.": Бж 1530: A$│"IT TRUMPETS: GO DOUSE SOMETHING.": Бж 1530: Бе 1340D№f╔ "L4;O1;C;O4;L1;C": A$│"AND STEPS ON YOU. YOU FEEL MIGHTY LOW AS EVERYTHING ENDS.": KZ│1: Бж 1530: Бе 2610E$pБж 2650: A$│"DRAWING ROOM": Бж 1530ERzБж 2510: Бж 2520: DS│46: Бж 2540: Бж 2670EgДЕ YO┤3 з Бж 1680EъОX│2: А V│80 е 150 й 2: ╞ "C"л И(X)л";BM"л И(V)л",120;"л"U20E2R2E2R2E2R2U20E2R2E2C2D40C3G5L3G5L3G5": X│Xл1: Е X│5 з X│2: Л :Д ЛE ШЕ YO┤3 з Бж 2270F*вA$│W$: Бж 1530: Бж 2660: Е HY│3 з GL│1FGмИ HY Бе 480,160,1440,310Ft╢Бж 2650: GH│0: A$│"THE PARAPET": Бж 1530F░└А I│64 е 129 й 5: N1│N1л1: Е N1о2│ Б(N1о2) з V│1 :Д V│5Fь╩А G│V е Vл200л Д(20) й 10: ╗(G,I)м(Gл10,Iл5),╜,B: Л G,IG1╘А V│2 е 80 й 2: ┬(V,63),20,4,1,.5,.75: ┬(V,63),12,3,1.8,.77,1: ЛGЕ▐Е JL│0 з A$│"AN ARCHED WALKWAY OPENS ON A CRUMBLING BRICK WALL.": Бж 1530: JL│2GышA$│"IT'S HUNDREDS OF FEET DOWN -- SOUTH, EAST AND NORTH.": Бж 1530: A$│W$: Бж 1530: KZ│1: Бж 2660HЄKZ│0: Е HY│3 з 240H№Е GH│1 ░ PA$│"PA" з 2550H╘Е GH│1 з ┬(220,33),10,1,.5,0,.5: ┬(220,40),10,2,.5,.5,0: A$│"YOU JUMP.": Бж 1530: A$│"YOU FOOL!": Бж 1530: А VB│240 е 1 й м5: а VB,1: Л VB: A$│"THE END": KZ│1: Бж 1530: Бе 2610I┬(220,60),26,2,2,.5,1: ╞"C2;BM200,60;E5F5E5F5E5F5E5F5"IC┬(220,33),10,,.5,0,.5: ┬(213,25),5: ┬(228,25),5Iк$GH│1: A$│"A GHOST APPEARS IN MID-AIR, SAYING... RECONSIDER! GO WEST OR BE AS I!": Бж 1530: Бе 1000Iт.Бж 2650: A$│"LABORATORY": Бж 1530: Бж 2510: Бж 2530JQ8А V│40 е 80 й 10: А V1│1 Бж 1530: Бе 4708д
┬Е X$│"B" ░ F2│0 з F2│1: FL$│"BLUE": ╗(170,73)м(230,134),╛,BF: A$│"YOU'RE WELCOME I'M SURE. NOW RUN BEFORE THE FULL MOON RISES!": Бж 1530: Бе 4709
╠Е X$│"B" ░ F2│1 з A$│"SURELY IT'S OBVIOUS THAT'S A FRUITLESS GUESS. DEPART LEST I BITE YOU!": Бж 1530: Бе 4709[
╓A$│W$: Бж 1530: Бж 2660: Е HY│1 з 880 :Д A$│WA$: Бж 1530: Бе 4709е
рБж 2650: A$│"DINING ROOM": Бж 1530: Бж 2510: Бж 2520: DS│170: Бж 25409╧
ъ╞"BM236,60;D31H6U25E6D5F6G6": Бж 2670:
Ї╞ "C2;BM60,120;U40L5U5R105D5L5D40L5U35L85D35L5": ├(62,118),2,2:n
■А V│60 е 160 й 30: ┬(V,71),8,4,.4,1,.5: А U│1 е 4: ┬(Vл Д(2)м1,70), Д(5), Д(3)л1: Л U,V:╠Е QZ│1 з QZ│0: Бе 560 :Д A$│"THAT FOOD LOOKS GOOD. WANT A SNACK? <Y>ES OR <N>O.": Бж 1530;X$│ Т: Е X$┤▓"Y" ░ X$┤▓"N" з 530 :Д Е X$│"N" з 560;ЗXZ│1: А V│50 е 150 й 30: A$│ Р("SLURPSNORFSCHMFGASP",XZ,5)л"!": Бж 1530: ╗(V,60)м(Vл18,74),╛,BF: ╔ "T128;O5;CDECDE": XZ│XZл5: Л;ф&A$│"UH-OH! ANOTHER PIGGY BECOMES A DINING ROOM VICTIM. THE END!": KZ│1: Бж 1530: Бе 2610<0A$│W$: Бж 1530: Бж 2660: Е HY│3 з GL│2<-:И HY Бе 580,1140,1440,880<RDБж 2650: L│0: А V│135 е 40 й м10<ГN╞ "BM"л И(L)л","л И(V)л"U5R20D5L20U5E5R20G5"<╕X╞ "BM"л И(230мL)л","л И(V)л"U5R20D5L20U5H5R20F5"<чb├(234мL,Vм2),3,3: ├(Lл2,Vм2),4,3: L│Lл5: Л=!l╗(68,35)м(180,135),╜,B: ├(65,133),4,3: ├(182,133),3,3=PvА V│80 е 153 й 31: ╗(V,5)м(Vл25,35),╜,B: Л=бАЕ LK│0 з LK│1: A$│"YOU ARE AT TWO STAIRWAYS TOPPED BY THREE DOORS.": Бж 1530=тКA$│"CHOOSE <L>EFT STAIR, <R>IGHT STAIR OR <S>OUTH.": Бж 1530>ФX$│ Т: Е X$│"" ▒  Ю("LRS",X$)│0 з 660>ЮЕ X$│"S" з 480>cиЕ FL$│"ORANGE" ░ X$│"L" ▒ FL$│"BLUE" ░ X$│"R" з Бж 2630: Бе 720>м▓A$│"AS YOU NEAR THE TOP, THE ENTIRE ARRANGEMENT COLLAPSES.": Бж 1530>Ї╝L│8: А K│1 е 8: А V│36 е 134 й L: ╗(2,V)м(253,V),╛: Л V: L│Lм1: Л K?[╞A$│"IN YOUR NEXT LIFE, REMEMBER THE FLAGON AND STAIR COLORS MUST MATCH.": Бж 1530: Бж 1820: Бе 710?п╨A$│"YOU ASCEND TO THE DOORS. OPEN <L>EFT, <M>IDDLE OR <RIGHT>. WHICH?": Бж 1530?ь┌X$│ Т: Е X$│"" ▒  Ю("LMR",X$)│0 з 730 :Д Е X$│"M" з 2130@фБж 2650: А V│0 е 255 й 85: ╗(V,0)м(V,135),╜: Л@KюA$│"YOU SLOWLY OPEN THE DOOR.": Бж 1530@m°Е X$│"L" з Бж 1960 :Д Бж 1840@╞Е X$│"L" ░ FL$│"ORANGE" ▒ X$│"R" ░ FL$│"BLUE" ▒ YO│0 ░ X$│"R" ▒ YO│1 ░ X$│"L" з 2200AвЕ X$│"L" з YO│1: FL$│FL$л"X": A$│"A FORBODING BUT FRNORTH, E FOR EAST, W FOR WEST, S FOR SOUTH.": Бж 1530/ЩЦA$│"IN EVERY SCENE YOU FACE NORTH.": Бж 1530: A$│"FIND THE ATTIC TO ESCAPE... PERHAPS.": Бж 1530/▐аБж 2650: A$│"THE GREAT HALL": Бж 1530: Бж 2510: Бж 2520: Бж 25300=к╞ "BM100,95;U50L10U5R70D5L10D50L50": ┬(125,76),21,,1.5,.4,.12: T1│90: B1│T1: ├(125,76),3,30К┤Е PW│0 з A$│"IT IS EMPTY EXCEPT FOR A ROARING FIREPLACE.": Бж 1530: PW│10Э╛A$│W$: Бж 15300с╚А J1│3 е 4: ┴ J1,0: ╗(112л Д(25),93)м(112л Д(26),60м Д(5)),╜: Л1	╥X$│ Т: Е X$│"" ▒  Ю(DI$,X$)│0 з 2001x▄Е BU$│"OK" ░ X$│"N" з BU$│"": PA$│"PA": A$│"YOU DOUSE THE FIRE AND ENTER": Бж 1530: ├(125,56),2,1: Бе 25901ЄцЕ X$│"N" з 1310 :Д Е X$│"E" з 240 :Д Е X$│"W" з 880 :Д A$│"THE DOOR BEHIND YOU IS LOCKED. REMEMBER?": Бж 1530: Бе 2002BЁБж 2650: A$│"SCULLERY": Бж 1530: Бж 2510: Бж 2520: Бж 2530: DS│180: Бж 25402▒·А V│32 е 168 й 2: ╞ "C2;BM"л И(V)л",105;"л"U30;C3;E10": Л V: А V│74 е 104 й 2: ╞"BM170,"л И(V)л";E10": Л V2№
А V│50 е 75 й 25: ┬(V,70),10,1,.6: ├(V,70),1,1: ┬(Vл4,65),6,,2,.6,1: Л3v
А V│140 е 160 й 20: ┬(V,70),7,4,.6: ├(V,70),4,4: Л: ┬(153,65),20,3,.9,.5,1: А V│50 е 20 й м1: ┬(153,V),4,3,.7,.5,1: Л3╬
┬(128,100),30,4,.3: ├(128,100),4,4: ╞"C4;BM105,125;U20E9D25": ╞"BM145,125;U20E9D25"4"
"Е QA│0 з QA│1: A$│"A DOUBLE SINK, AN OLD COOK STOVE AND A BARE TABLE.": Бж 15304И
,A$│W$: Бж 1530: Бж 2660: Е HY│1 з 1340 :Д Е HY│2 з 950 :Д Е HY│3 з 160 :Д A$│WA$: Бж 1530: Бе 3004п
6Бж 2650: A$│"FLAGON ROOM": Бж 15304 
@┬(128,60),30,,2.5: ╞"BM99,60;H25U35R110D35G25": ├(97,55),2,3: ├(160,55),2,358
JА V│115 е 142 й 27: ┬(V,30),10,,.6: ┬(V,30),2,2: Л V5П
T╗(128,30)м(120,80),╜: ╗м(135,70),╜: ╞"BM120,90;G5H5R37G5H5": ╞"C4;BM146,91;D5G3F3"5╓
^JH$│"D60L30U60R30F20G20": Е F1│0 з ╞"C4;BM60,74"лJH$: ├(55,80),4,46
hЕ F2│0 з ╞"C3;BM210,74;"лJH$: ├(190,80),3,36[
rЕ PY│0 з A$│"GOOD EEFNINK! I AM COUNT DRACU- NEVER MIND MY NAME!": Бж 1530: PY│16в
|Е F1│1 ░ F2│1 з A$│"I'M OUT OF FLAGONS. GO AWAY.": Бж 1530: Бе 4706Ї
ЖA$│"WANT A FLAGON OF POIS- I MEAN - DRINK AS YOU SEARCH? <Y>ES <N>O": Бж 15307
РX$│ Т: Е X$┤▓"Y" ░ X$┤▓"N" з 4007G
ЪЕ X$│"N" з A$│"GO AWAY!": Бж 1530: Бе 4707{
дA$│"WHICH COLOR - <O>RANGE OR <B>LUE?": Бж 15307а
оX$│ Т: Е X$┤▓"O" ░ X$┤▓"B" з 4308
╕Е X$│"O" ░ F1│0 з F1│1: FL$│"ORANGE": ╗(25,73)м(85,134),╛,BF: A$│"YOU GOT IT. NOW LEAVE.": p&
:ГE.O.Q. CALCULATOR&2:ГBY PAUL MYERS 1984&FА X│1024 е 1279&f(Т X,128:Т 1535м(Xм1024),128&Д2Л X:B$│ Л(128):C$│ Л(130)&▒<З@5,"economic"лB$л"order"лB$л"quantity";&╚FЗ@44,"calculator";&цPЗ@97,"annual"лB$л"usage";'ZЗ@129,"unit"лB$л"cost";'-dЗ@161,"order"лB$л"overhead"лB$л"cost";'cnЗ@194,"includes"лB$л"cost"лB$л"of"лB$л"handling";'бxЗ@226,"paper"лB$л"work"лC$лB$л"shipping"лB$л"charges"лC$;'╬ВЗ@258,"and"лB$л"delivery"лB$л"handling";'°МЗ@289,"stock"лB$л"holding"лB$л"cost";(3ЦЗ@322,"includes"лB$л"cost"лB$л"of"лB$л"tying"лB$л"up";(tаЗ@354,"capital"лB$л"in"лB$л"stock"лC$лB$л"and"лB$л"storage";(ЩкЗ@386,"costs"лB$л"(percentage)";(╢┤З@449,"e"лB$л"o"лB$л"q";(═╛З@118,"         ";(ф╚З@150,"         ";(√╥З@182,"         ";)▄З@310,"         ";)#цP│118:Бж 700)AЁЕ I$┤▓ Л(13) з WO$│ И(AU))W·AU│ Б( Й(WO$)л.5))j
X│9м З( И(AU)))Н
А Z│0 е X:З@118лZ, Л(143);:Л Z)й
З@118лZм1,AU;:З@127,B$;)┐
"Е I$│ Л(94) з 490)╥
,Е I$│"@" з 580)у
6P│150:Бж 700*

@Е I$┤▓ Л(13) з WO$│ И(UC)*
JUC│ Б( Й(WO$)н100л.5)о100*2
TX│9м З( И(UC))*U
^А Z│0 е X:З@150лZ, Л(143);:Л Z*q
hЗ@150лZм1,UC;:З@159,B$;*А
rЗ@150,"$";*Ц
|Е I$│ Л(94) з 230*й
ЖЕ I$│"@" з 580*║
РP│182:Бж 700*╪
ЪЕ I$┤▓ Л(13) з WO$│ И(OC)*Ў
дOC│ Б( Й(WO$)н100л.5)о100+	
оX│9м З( И(OC))+,
╕А Z│0 е X:З@182лZ, Л(143);:Л Z+H
┬З@182лZм1,OC;:З@191,B$;+W
╠З@182,"$";+m
╓Е I$│ Л(94) з 310+А
рЕ I$│"@" з 580+С
ъP│310:Бж 700+п
ЇЕ I$┤▓ Л(13) з WO$│ И(HC)+╦
■HC│ Б( Й(WO$)н10л.5)о10+▐X│9м З( И(HC)),
А Z│0 е X:З@310лZ, Л(143);:Л Z,З@310лZм1,HC;:З@319,B$;,,&З@310,"%";,B0Е I$│ Л(94) з 400,d:Е I$│ Л(10) ▒ I$│ Л(13) з 230,иDЕ HC│0 ▒ UC│0 ▒ AU│0 ▒ OC│0 з 230 :Д OW│(2нAUнOC)о((HCо100)нUC),░NX│1,╠XЕ XнX┤OW з X│Xл1:Бе 600,╓bX│Xм1,єlЕ XнX┤OW з X│Xл.1:Бе 620,■vX│Xм.1-АЕ XнX┤OW з X│Xл.01:Бе 640-:КX│Xм.01:EO│ Б(Xн10л.5)о10-MФX│9м З( И(EO))-pЮА Z│0 е X:З@470лZ, Л(128);:Л Z-МиЗ@470лZм1,EO;:З@479,B$;-Ч▓Бе 230-л╝WO$│"":З@P,"?";-├╞I$│ Т:Е I$│"" з 710-√╨Е I$│ Л(64) ▒ I$│ Л(13) ▒ I$│ Л(94) ▒ I$│ Л(10) з Р.$┌Е I$│ Л(8) з З@P,"         ";:Бе 700.FфЕ I$┤ Л(46) ▒ I$▓ Л(57) з 710.dюWO$│WO$лI$:З@P,WO$;:H$│I$.o°Бе 710M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"/
├(10,14),0,0:├(50,14),0,0:├(74,14),0,0:├(94,14),0,0:├(142,14),0,0:├(190,14), Nn&?
В * LURKLEY MANOR * TRS-80 EXTENDED COLOR BASIC / RAMELLA&TХ 500: Т 65495,0&ШW$│"DIRECTION?": DI$│"NEWS": WA$│"YOU RUN INTO A WALL.": Бе 100&еX│Xм6: Р&║Z$│"30353838": Р&╧Z$│"10135053": Р&ьZ$│"2029606903930797": Р'Z$│"700000040474747979094049": Р'*	Z$│"111179792970": Р'K
Z$│"79000070700505090965": Р'\Z$│"3033": Р'uZ$│"402222272749": Р'О
Z$│"406262676749": Р'пZ$│"43472424262664646666": Р'─Z$│"42481575": Р'╒Z$│"2937": Р'цZ$│"2575": Р'ўZ$│"4949": Р(Z$│"7009": Р()Z$│"60200108296978716228": Р(BZ$│"234040482959": Р(kZ$│"0220206060737375750707090979": Р(ЬZ$│"022020606073737575357578786969292908": Р(╡Z$│"000606765059": Р(тZ$│"70000004046464757577775959191908": Р)Z$│"70202002020707292979797878757515": Р)$Z$│"00707009": Р)mZ$│"011010606071717373646414140303011405050808191969697878757564": Р)вZ$│"7414140303010110106060717178786969191908": Р)╖Z$│"43434747": Р)╠Z$│"43432937": Р)с Z$│"72050577": Р)Ў!Z$│"12721575": Р*"Z$│"02757507": Р*8#Z$│"02202060607171737364643434373939": Р*q$Z$│"56343414140505070718186868777772725050111102": Р*О%Z$│"0920205050797414": Р*┐&Z$│"000909696978786464046473737171606000": Р*ш'Z$│"7160601010010108081919696978": Р+
(Z$│"000909696975757272505000": Р+*)Z$│"7000000909790565": Р+C*Z$│"700000090565": Р+l+Z$│"6010100101070729296969667646": Р+Е,Z$│"000970790575": Р+Ю-Z$│"206029694049": Р+┐.Z$│"70777759593939060604": Р+╪/Z$│"000905702379": Р+э0Z$│"00090979": Р,
1Z$│"0900004545707079": Р,#2Z$│"090000797970": Р,@3Z$│"1070707969190801": Р,]4Z$│"0901107171746505": Р,~5Z$│"10707079691908017956": Р,г6Z$│"090000707073736464040479": Р,─7Z$│"70000004047474797909": Р,┘8Z$│"00704049": Р,Є9Z$│"000909797970": Р-:Z$│"00494970": Р-$;Z$│"0029294545696970": Р-9<Z$│"00790970": Р-R=Z$│"004545704549": Р-k>Z$│"007070090979": Р-?Е Q$│ Л(32) з Р-ю@А H│1 е  З(Z$) й 4: ╗(Xл Й( Р(Z$,H,1)),Yл Й( Р(Z$,Hл1,1)))м(Xл Й( Р(Z$,Hл2,1)),Yл Й( Р(Z$,Hл3,1))),╜: Л: Р.d╚ 3,1: ╝: ┐ 1,1.]nP1$│"L10;O1;G;F;D#;D": P2$│"L10;G;G#;G;F;D#": P3$│"L10;F;L4;G": P4$│"L4;D;L1;C": ┴ 3,0.БxБж 1740: Бж 2650: KZ│1: Бж 1600.▀ВA$│"I AM, OF COURSE, IGOR. YOU ARE AN UNLUCKY FOOL NOW LOCKED IN LURKLEY MANOR.": Бж 1530/4МA$│"TO TRAVEL, PRESS N FOR                                                                                                                                                                                                                                                                         ┼╔╟╔
┼├╚─╟╔#$┴&'()╚+,─.╟╟├─3╚╞67╟╟╔;├=>?╟    MENU    BAS"┬EOQ CALCBAS sLURKLEY BAS!qEMPLOYEEBAS%хEMPLOYERBAS*жDEMON IIBAS-KHOME FINBAS9LISTING1BAS▒LISTING2BAS/xLISTING3BAS0√STARSONGBAS1СRENTMENUBASБRENTMANGBAS╙FILEMAINBAS2ўRACER   BAS4	CFRR    BAS5dPERT    BASУT-BILL  BAS▓CONVERT BAS8%COCONUTSBAS9уSTKINDEXBAS:EDUNOTESBASъJOYSTICKBAS	┬INTERESTBIN<d                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┐&#
:Г***************************&E:Г* RAINBOW ON TAPE GRAPHIC *&g:Г*    BY FRED B. SCERBO    *&Й(:Г*   COPYRIGHT  (C) 1984   *&л2:Г*     UNDER LICENSE TO    *&═<:Г* FALSOFT PUBLISHING INC. *&ЁF:Г*************************** '$PЮ0:З@32, б(32,191);:АI│1120е1407:Н A:ЕA│0зA│128'BZТI,A:ЛI:З@416, б(32,239);'UdВ TEXT GRAPHIC(nЖ,,191,188,188,,183,188,187,,191,176,176,,191,188,188,,191,188,191,,191,188,188,,188,191,188,,,,,,255,252,252,,255,252,255,,255,240,240,,252,252,255,,255,240,255,,255,252,252,,240,255,240,,,(║xЖ,,252,240,240,,252,240,252,,252,252,252,,252,252,252,,252,252,252,,252,240,240,,240,252,240,,,,,,,,,,,,,148,159,152,,159,155,144,159,,159,156,156,,,,,,,,,,,)>ВЖ,,,,,,,,,144,159,144,,159,148,155,159,,159,144,144,,,,,,,,,,,,,,,,,,,,,148,156,152,,156,144,148,156,,156,156,156,,148,,,,,,,,,*МЖ143,140,143,,143,140,143,,143,140,140,,143,140,140,,143,140,140,,143,139,,143,,140,143,140,,143,140,140,175,172,172,,175,173,162,,175,172,172,,172,172,175,,175,172,172,,175,164,171,175,,160,175,160,,172,172,175*ЖЦЖ236,224,224,,236,224,236,,236,236,236,,236,236,236,,236,236,236,,236,224,228,236,,224,236,224,,236,236,236*ЦаZ│0:R│3:B│2*хк╚4,1:╝0:┐0,0:МA(50),B(50),G(50),S(50),P(50),R(50),Z(50):╗(0,0)м(256,1),╜,B+H┤АX│1е256й4:╜(XлZ,0,0):╜(Xл2лZ,1,0):╜(XлZ,4):╜(Xл2лZ,5):Л:─(0,0)м(256,1),A,G:─(0,4)м(256,5),B,G+Б╛АX│1е256й8:╜(XлZ,30):╜(Xл4лZ,31):╜(Xл1,40):╜(Xл3,41)+ў╚╜(Xл1лZ,50):╜(XлZ,51):╜(XлZл5,50):╜(Xл4лZ,51):ЛX:─(0,40)м(256,41),S,G:─(0,30)м(256,31),G,G:─(0,50)м(256,51),P,G  ,W╥╚3:┴R,B:╗(0,60)м(256,61),╜,B:╗(0,64)м(256,65),╛,B:─(0,60)м(256,61),R,G:─(0,64)м(256,65),Z,G,Д▄╚4,1:╝1:┐0,0:╚4                         -ц╞"BM0,54C0U42R20":┬(16,24),16,0,.8,.8,.17:╞"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"-ХЁ╞"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10".+·╞"BR48U42R20":┬(154,24),16,0,.8,.8,.17:┬(154,44),16,0,.8,.8,.17:╞"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"   .U
┬(190,34),19,0,1.2:┬(190,34),11,0,1.2.о
╞"BU18BR110NL8M-6,+42L12M-4,-26L2M-4,+26L12M-6,-42R9M+4,+26M+4,-26R12M+4,+26M+4,-26"/
├(10,14),0,0:├(50,14),0,0:├(74,14),0,0:├(94,14),0,0:├(142,14),0,0:├(190,14),0,0:├(214,14),0,0/
"╚4:┐1,1/C
,АI│10е18й2:┼(0,I)м(256,Iл1),R,▒:ЛI/i
6АI│20е26й2:┼(0,I)м(256,Iл1),A,▒:Л/П
@АI│28е32й2:┼(0,I)м(256,Iл1),S,▒:Л/╡
JАI│34е36й2:┼(0,I)м(256,Iл1),G,▒:Л/█
TАI│38е42й2:┼(0,I)м(256,Iл1),B,▒:Л0

^АI│44е46й2:┼(0,I)м(256,Iл1),Z,▒:Л0'
hАI│48е56й2:┼(0,I)м(256,Iл1),P,▒:Л07
rБж380:Бе4200`
|╚3:┬(20,80),20,1,.9:┬(20,80),12,1,.90Щ
Ж╞"BM44,96C1U32R14M+12,+22U22R10D32L14M-12,-22D22L10"1B
Р╞"BR76U24L14U8R40D8L14D24L12BR26M+12,-32R18M+12,+32L12M-2,-8L13M-2,+8NL12M+2,-8BU6BR2U4R2U4R6D4R2D4NL8BD14BR22U32R22F2RF2RF4D6G4LG2LG2L12BU6R8E4U2H4L8D10BD6D10NL10"1o
Ъ╞"BR28U32R32D8L12D4R12D8L12D4R12D8L20":Р1М
д├(8,78),1,1:├(48,78),1,11┤
оАI│58е102й2:┼(0,I)м(256,Iл1),A,▒:ЛI1╛
╕Бж3801·
┬├(112,66),3,1:├(168,66),3,1:├(202,66),3,1:├(240,66),3,127
╠╞"BM0,186NR26U16R8U44L8U12R2E2R2E4RU2RU2R16D66R8D16NL16"2y
╓┬(72,130),36,1,.8,.2,.99:┬(72,160),36,1,.8,1.05,.48          2к
р┬(72,130),18,1,.8:┬(72,160),18,1,.8,1.05,.452╪
ъ╞"BU22BR2R16BR34U14NG6BR18NU20ND16"      3
Ї┬(146,130),36,1,.8,.4,1.1:┬(146,160),36,1,.8,.92,.6            3F
■┬(146,130),18,1,.8:┬(146,160),18,1,.83e┬(218,160),36,1,.8,.69,.483Г┬(218,160),18,1,.8,.6,.453н╞"BR96BD14NL18BU10L16U50R60D12L42D20"3╓&├(10,184),1,1:├(80,186),1,1         3°0├(146,186),2,1:├(218,186),2,14:АII│1е5004DЕ Т│""з590:Д6004"NЛII48XВ START MENU TEXT4EbМ A$(34)4OlН MN$4yvАP│1е34:Н A$(P):Е A$(P)│"END"з640:ДЛP4ХАЕ A$(P)│"END"з A$(P)│""4ЫКЮ4║ФЗ"        RAINBOW ON TAPE"4┌ЮЗ"       (C) FALSOFT, 1985"4риЗ59▓З "  (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"5?╝З5\╞АP│1е7:ЗA$(P),A$(Pл7):ЛP5В╨З:З"  *=MACHINE LANGUAGE PROGRAM"5з┌З"   PRESS ANY KEY TO CONTINUE";5╖фЕ  Т│""з7405╜юЮ5ц°З:З "  (XX)= PAGE NUMBER OF LISTING"5ьЗ6АP│15е23:ЗA$(P),A$(Pл9):ЛP6PЗ:З "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"6y З "PRESS ^ (UP ARROW) TO EXIT MENU";6м*XX$│ Т:Е XX$│ Л(94) з Ю:К :Д Е XX$│""з810:Д6506╝4З б(32,45);6╚шЖ MARCH6▐ЄЖ" (20) EOQ CALC"6єўЖ" (44) LURKLEY"7	№Ж" (61) EMPLOYEE"7
Ж" (72) EMPLOYER"75Ж" (79) DEMON II"7KЖ" (90) HOME FIN"7aЖ"(102) LISTING1"7wЖ"(102) LISTING2"7НЖ"(103) LISTING3"7г$Ж"(104) STARSONG"7╣)Ж"(108) RENTMENU"7╧.Ж"(110) RENTMANG"7х3Ж"(113) FILEMAIN"7°8Ж"(128) RACER"8
=Ж"(134) CFRR"8BЖ"(142) PERT"80GЖ"(153) T-BILL"8ELЖ"(162) CONVERT"8[QЖ"(164) COCONUTS"8qVЖ"(173) STKINDEX"8З[Ж"(176) EDUNOTES"8Э`Ж"(232) JOYSTICK"8┤eЖ"(253) INTEREST*"8╛ИЖ END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 +т&ш:Г    EMPLOYEE&1L:Г    EMPLOYEE DATA BASE&O░:Г    FOR PAYROLL PACKAGE&l:Г    BY DENNIS H. WEIDE&x:Г    (C) 1983&Ж▄:Г&╡@Ю:Х1000:F1$│"$$#####.##          ":Т153,20&╝д:Г&╒:Г    VARIABLE TABLE&Єl:Г    USE REM STATEMENTS&∙╨:Г'4:Г'(Ш:Г     BUFFER #1-EMPLOYEE VARIABLES'/№:Г'W	`:Г(A$)   12  LN$=EMPLOYEE LAST NAME'А	─:Г(B$)    8  GN$=EMPLOYEE GIVEN NAME'н
(:Г(C$)    1  MI$=EMPLOYEE MIDDLE INITIAL'┌
М:Г(D$)   20  AD$=EMPLOYEE STREET ADDRESS'¤
Ё:Г(E$)   12  AC$=EMPLOYEE CITY(!T:Г(F$)    2  SA$=EMPLOYEE STATE(H╕:Г(G$)    5  ZC$=EMPLOYEE ZIP CODE(t:Г(H$)    9  SS$=SOCIAL SECURITY NUMBER(ЮА:Г(I$)    1  DN$=NUMBER OF DEPENDANTS(┐ф:Г(J$)    5  HW =HOURLY WAGE(р
H:Г(K$)    5  UD =UNION DUES )
м:Г(L$)    5  CM =COMMISSION)":Г(M$)    5  SP =SAVINGS PLAN)Gt:Г(N$)    5  GI =GROUP INSURANCE)q╪:Г(O$)    5  CC =CHARITY CONTRIBUTION)б<:Г(P$)    1  PC$=PAYCHECK THIS PERIOD (Y/N))ча:Г(Q$)    5  MW =MISC. WITHHOLDING (SAVINGS,UNION DUES,INS.,ETC.)*:Г(R$)    5  TS =TOTAL SALES*6h:Г(S$)    5  SW =SOCIAL SECURITY WITHHELD*g╠:Г(T$)    5  FW =FEDERAL INCOME TAX WITHHELD*Ц0:Г(U$)    5  LW =STATE INCOME TAX WITHHELD*┬Ф:Г(V$)    5  SY =SOCIAL SECURITY Y-TO-D*ю°:Г(W$)    5  FY =FED. INCOME TAX Y-TO-D+\:Г(X$)    5  LY =STATE INCOME TAX Y-TO-D+?└:Г(Y$)    5  CY =CHARITY Y-TO-D+f$:Г(Z$)    5  UY =UNION DUES Y-TO-D+НИ:Г(A1$)   5  GY =GROUP INS. Y-TO-D+╡ь:Г(A2$)   5  ST =SAVINGS PLAN TOTAL+сP:Г(A3$)   5  PA =TOTAL PAID ABSENT DAYS,┤:Г(A4$)   5  PV =TOTAL PAID VACATON DAYS USED,A:Г(A5$)   5  UA =TOTAL UNPAID ABSENT DAYS,r|:Г(A6$)   5  VA =TOTAL VACATION DAYS ALLOWED,ар:Г(A7$)   5  AA =PAID ABSENT DAYS ALLOWED,├D:Г(A8$)   5  RH =REGULAR HOURS,юи:Г(A9$)   5  OH =OVERTIME HOURS WORKED-:Г(B2$)  11  WE$=WEEK ENDING STRING-Cp:Г(B3$)   5  GE =GROSS EARNINGS (Y-TO-D)-\╘:Г     CONTROL CODES-c8:Г-ЧЬLF$│ Л(10):LP$│ Л(31):SP$│ Л(30):FP$│ б(32,"#")-Ю:Г-╢d:Г     PROGRAM MENU-╜╚:Г-Ё,Ю:ЗFP$;:Зд3)"EMPLOYEE DATA BASE PROGRAM":ЗFP$;.РЗд10)"PROGRAM MENU"..ЇЗд2)"1. CREATE NEW EMPLOYEE FILE".SXЗд2)"2. RESERVE DISK FILE SPACE".r╝Зд2)"3. EMPLOYEE PRINTOUT".Т Зд2)"4. EDIT EMPLOYEE FILE".▓ДЗд2)"5. MOVE EMPLOYEE FILE".╠шЗд2)"6. LIST RECORDS".цLЗд2)"7. PRINT CHECKS"/░Зд2)"8. EMPLOYER DATA BASE"/#Зд2)"9. COMPUTE PAYROLL"/=xЗд1)"10. END PROGRAM"/d▄З:Й"     ENTER ONE OF THE ABOVE";Y/й@И Y Бе12200,15500,16700,22200,31000,32200,32700,32600,32800,8200/╝дБж33200:Бе6700/┬ К/╔ l:Г/ь ╨:Г     SUBROUTINE TO OPEN FILE/є!4:Г0
!ШЩ"D",#1,"PAYROLL",2121!№╨#1,12 зA$,8 зB$,1 з C$,20 зD$,12 зE$,2 зF$,5 зG$,9 зH$,1 зI$,5 зJ$,5 зK$,5 зL$,5 зM$,5 зN$,5 зO$,1 зP$,5 зQ$,5 зR$,5 зS$,5 зT$,5 зU$,5 зV$,5 зW$,5 зX$,5 зY$,5 зZ$,5 зA1$,5 зA2$,5 зA3$,5 зA4$,5 зA5$,5 зA6$,5 зA7$,5 зA8$,5 зA9$,11 зB2$,5 зB3$1	"`Р1"─:Г13#(:Г     LSET EMPLOYEE VARIABLES1:#М:Г1V#Ё╘A$│LN$:╘B$│GN$:╘C$│MI$1r$T╘D$│AD$:╘E$│AC$:╘F$│SA$1О$╕╘G$│ZC$:╘H$│SS$:╘I$│DN$1│%╘J$│ ж(HW):╘K$│ ж(UD):╘L$│ ж(CM)1╪%А╘M$│ ж(SP):╘N$│ ж(GI):╘O$│ ж(CC)1¤%ф╘S$│ ж(SW):╘T$│ ж(FW):╘U$│ ж(LW)2"&H╘V$│ ж(SY):╘W$│ ж(FY):╘X$│ ж(LY)2G&м╘Y$│ ж(CY):╘Z$│ ж(UY):╘R$│ ж(TS)2k'╘A1$│ ж(GY):╘A2$│ ж(ST):╘P$│PC$2У't╘A3$│ ж(PA):╘A4$│ ж(PV):╘A5$│ ж(UA)2╗'╪╘A6$│ ж(VA):╘A7$│ ж(AA):╘A8$│ ж(RH)2▀(<╘A9$│ ж(OH):╘B2$│WE$:╘Q$│ ж(MW)2я(а╘B3$│ ж(GE)2ї)Р2№)h:Г3#)╠:Г     CONVERT 5 BYTE CODED STRING3**0:Г3L*ФHW│ в(J$):UD│ в(K$):CM│ в(L$)3n*°SP│ в(M$):GI│ в(N$):CC│ в(O$)3Р+\SW│ в(S$):FW│ в(T$):LW│ в(U$)3▓+└SY│ в(V$):FY│ в(W$):LY│ в(X$)3╒,$CY│ в(Y$):UY│ в(Z$):RH│ в(A8$)3·,ИGY│ в(A1$):ST│ в(A2$):OH│ в(A9$)4,ьPA│ в(A3$):PV│ в(A4$):UA│ в(A5$)4C-PVA│ в(A6$):AA│ в(A7$):TS│ в(R$)4k-┤MW│ в(Q$):WE$│B2$:PC$│P$:GE│ в(B3$)4q.Р4x.|:Г4Х.р:Г     CREATE A NEW FILE4Ь/D:Г4й/иЮ:Бж86004╗0АX│1е10:─#1,X4▌0pЕ О(A$,7)│"NO NAME"з12700:ДЛX50╘Ю:З:З"NO SPARE RECORDS LEFT. YOU MUST RESERVE MORE RECORDS."5O18З:Й"     PRESS <ENTER> TO CONTINUE";Y:Бе67005Ф1ЬЪ#1:Ю:З б(32,"#");:Зд3)"ENTER EMPLOYEE INFORMATION":З б(32,"#");5╜2З"NAME (LAST,FIRST,INITIAL)":PC$│"N"5╬2dЙLN$,GN$,MI$5ч2╚ЕLN$│"NO NAME"з145005¤3,З"STREET ADDRESS"63РЙAD$6+3ЇЗ"CITY(12),STATE(2),ZIP CODE(5)"6<4XЙAC$,SA$,ZC$6Y4╝Й"SOCIAL SECURITY #";SS$6y5 Й"NUMBER OF DEPENDANTS";DN$6У5ДЙ"HOURLY PAY RATE";HW6н5шЙ"UNION DUES RATE";UD6╟6LЙ"COMMISSION RATE";CM6х6░Й"SAVINGS PLAN AMOUNT";SP77Й"GROUP INSURANCE AMOUNT";GI77xЙ"CHARITY AMOUNT";CC7>7▄Й"ABSENCE DAYS ALLOWED";AA7^8@Й"VACATION DAYS ALLOWED";VA7Д8дЙ"IS ALL INFORMATION CORRECT";X1$7д9Е О(X1$,1)│"Y"з14700:Д127007╢9lБж8600:Бж92007└9╨┼#1,X7╚:4Ъ#17ф:ШЙ"ANOTHER NEW FILE";X1$7¤:№ЕX1$│"Y"з12200:Д67008;`:Г8!;─:Г     RESERVE FILE ROOM8(<(:Г84<МБж340008M<ЁЕE2$│"R"з15700:Д67008f=TLN$│"NO NAME":Бж86008r=╕АX│1е108}>Бж92008З>А┼#1,X8О>фЛX8Ц?HЪ#18б?мБе67008и@:Г8┬@t:Г     READ DATA FILE8╔@╪:Г8ЇA<Ю:OA│0:ЗFP$;:Зд10)"DATA READOUT":ЗFP$;9AаЗ:Й"ENTER EMPLOYEE RECORD #";ER$9@BЕER$│"ALL"з17300:ДЕER$│"NONE"з67009nBhX│ Й(ER$):OA│1:Е X┤1▒X▓10зБж33200:Бе167009БB╠Бж8600:Бе175009иC0Ю:ЗFP$;:Зд9)"READ DATA FILE":ЗFP$;9│CФБж86009┐C°АX│1е109╤D\─#1,X:Бж109009∙D└З#м2,LP$;"DISK FILE RECORD #";X;SP$:!E$Е О(A$,7)│"NO NAME"зЗ#м2,A$:Бе21700:VEИЗ#м2,LF$;LP$;"EMPLOYEE NAME AND ADDRESS";SP$;LF$:hEьЗ#м2,A$;B$;C$:tFPЗ#м2,D$:ЛF┤З#м2,E$", "F$" "G$:ШGЗ#м2,LF$:┐G|З#м2,LP$;"EMPLOYEE STATUS";SP$;LF$;GрЗ#м2,"SOCIAL SEC. #","DEPENDANTS","HOURLY WAGE","COMMISSION";DHDЗ#м2,H$;д25)I$;д42)"";:З#м2,═"$$###.##";HW;:З#м2,д65)CMн100;"%";MHиЗ#м2;СIЗ#м2,"UNION DUES","SAVINGS PLAN","GROUP INSUR.","CONTRIBUTIONS";лIpЗ#м2,═F1$;UD;SP;GI;CC;цI╘З#м2,LP$;LF$;LF$;"WITHHOLDING THIS PAY PERIOD";LF$;SP$<(J8З#м2,"SOCIAL SEC.","FED.INC.TAX","STATE TAX","MISC. WITHHELD"<IJЬMW│SPлCCлGIлUD:ЕPC$│"N"зMW│0<cKЗ#м2,═F1$;SW;FW;LW;MW<lKdЗ#м2<аK╚З#м2,LP$;LF$;"YEAR-TO-DATE WITHHOLDING";LF$;SP$<сL,З#м2,"SOCIAL SEC.","FED.INC.TAX","STATE TAX","CONTRIBUTIONS"<√LРЗ#м2,═F1$;SY;FY;LY;CY=LЇЗ#м2=IMXЗ#м2,"UNION DUES","GROUP INSUR.","SAVINGS PLAN","GROSS EARNINGS"=cM╝З#м2,═F1$;UY;GY;ST;GE=ЦN З#м2,LF$;LF$;LP$;"EMPLOYEE ATTENDANCE";LF$;SP$=╤NДЗ#м2,"ABSENCE ALLOWED","PAID ABSENCE","UNPAID ABSENCE"=°NшЗ#м2,д4)AA"DAYS",PA"DAYS",UA"DAYS">(OLЗ#м2,LF$;"VACATION ALLOWED","VACATION USED">FO░З#м2,д4)VA"DAYS",PV"DAYS">ГPЗ#м2,LP$;LF$;LF$;"PAYCHECK FOR WEEK ENDING ";WE$;LF$;SP$>╬PxЕPC$│"N"зЗ#м2,LP$;"NO PAYCHECK THIS PERIOD";SP$:З#м2, б(20,10):Бе21700>°P▄З#м2,"REGULAR HOURS","OVERTIME HOURS"?Q@GA│(RHл(OHн1.5))нHWл(TSнCM)?+QдTW│MWлFWлSWлLW?8RPT│GAмTW?NRlЗ#м2,д6)RH;д25)OH?WR╨З#м2?ЫS4З#м2,"TOTAL SALES","GROSS AMOUNT","TOTAL WITHHELD","NET AMOUNT"?╡SШЗ#м2,═F1$;TS;GA;TW;PT?╚S№З#м2, б(16,10)?▌T`ЕOA│1зЪ#1:Бе6700?№T─ЕOA│1зЪ#1:Бе6700::ДЛ X:Ъ#1@U(Бе6700@UМ:Г@,UЁ:Г     EDIT EMPLOYEE FILE@3VT:Г@^V╕Ю:ЗFP$;:Зд7)"EDIT EMPLOYEE FILE":ЗFP$;@БWЗ:Й"ENTER EMPLOYEE RECORD #";X@ПWАЕX┤1з6700@иWфБж8600:─#1,X:Бж10900@╥XHЮ:ЗFP$;:Зд7)"EDIT EMPLOYEE FILE":ЗFP$@·XмЗ@130,"1.EMPLOYEE NAME AND ADDRESS"AYЗд2)"2.EMPLOYEE PAY STATUS"ABYtЗд2)"3.WITHHOLDING THIS PAY PERIOD"AgY╪Зд2)"4.WITHHOLDING YEAR-TO-DATE"AПZ<Зд2)"5.EMPLOYEE ATTENDANCE RECORDS"AпZаЗд2)"6.PAYROLL COMPUTATION"A═[Зд2)"7.END EDIT FUNCTION"AЇ[hЗ:Й"    ENTER ONE OF THE ABOVE";OAB+[╠Ю:И OA Бе24000,25100,26600,27500,28500,29800,30600B?\0Бж33200:Бе22200BF\Ф:ГBn\°:Г     EDIT EMPLOYEE NAME & ADDRESSBu]\:ГBз]└ЗFP$;:Зд2)"EDIT EMPLOYEE NAME & ADDRESS":ЗFP$B▌^$З:З"ENTER EMPLOYEE NAME":З" (LAST,FIRST,INITIAL)"C^ИЙLN$,GN$,MI$:ЕLN$│""з24300:Д╘A$│LN$:╘B$│GN$:╘C$│MI$C<^ьЗ:З"ENTER EMPLOYEE STREET ADDRESS"C\_PЙAD$:ЕAD$│""з24500:Д╘D$│AD$CД_┤З:З"ENTER CITY (12),ST (2),ZIP (5)"C╝`ЙAC$,SA$,ZC$:ЕAC$│""з24700:Д╘E$│AC$:╘F$│SA$:╘G$│ZC$C╚`|Бе22600C╧`р:ГCєaD:Г     EDIT EMPLOYEE PAY STATUSC·aи:ГD(bЗFP$;:Зд6)"EDIT EMPLOYEE PAY STATUS":ЗFP$DSbpЗ:З"ENTER SOCIAL SECURITY NUMBER":ЙSS$Dnb╘ЕSS$│""з25400:Д╘H$│SS$DХc8З"ENTER NUMBER OF DEPENDANTS":ЙDN$D░cЬЕDN$│""з25600:Д╘I$│DN$DэdЗ"ENTER HOURLY WAGE":ЙB1$:ЕB1$│""з25700:Д╘J$│ ж( Й(B1$))E)ddЗ"ENTER UNION DUES":ЙB1$:ЕB1$│""з25800:Д╘K$│ ж( Й(B1$))Eqd╚З"ENTER COMMISSION PERCENT":ЙB1$:ЕB1$│""з25900:Д╘L$│ ж( Й(B1$)о100)E┤e,З"ENTER SAVINGS DEDUCTION":ЙB1$:ЕB1$│""з26000:Д╘M$│ ж( Й(B1$))EїeРЗ"ENTER GROUP INSURANCE":ЙB1$:ЕB1$│""з26100:Д╘N$│ ж( Й(B1$))F8eЇЗ"ENTER CHARITY DEDUCTION":ЙB1$:ЕB1$│""з26200:Д╘O$│ ж( Й(B1$))FDfXБе22600FKf╝:ГFwg :Г     EDIT WITHHOLDING THIS PAY PERIODF~gД:ГF░gшЗFP$;:З"EDIT WITHHOLDING THIS PAY PERIOD";FP$FєhLЗ"EDIT SOC. SEC. WITHHELD":ЙB1$:ЕB1$│""з26800:Д╘S$│ ж( Й(B1$))G1h░З"EDIT FICA WITHHELD":ЙB1$:ЕB1$│""з26900:Д╘T$│ ж( Й(B1$))GtiЗ"EDIT STATE TAX WITHHELD":ЙB1$:ЕB1$│""з27000:Д╘U$│ ж( Й(B1$))G╢ixЗ"EDIT MISC. WITHHOLDING":ЙB1$:ЕB1$│""з27100:Д╘Q$│ ж( Й(B1$))G┬i▄Бе22600G╔j@:ГGЄjд:Г     EDIT YEAR-TO-DATE WITHHOLDINGG∙k:ГH*klЗFP$;:З" EDIT YEAR-TO-DATE WITHHOLDING":ЗFP$Hkk╨З"ENTER SOC. SEC. TOTAL":ЙB1$:ЕB1$│""з27700:Д╘V$│ ж( Й(B1$))Hзl4З"ENTER FICA TOTAL":ЙB1$:ЕB1$│""з27800:Д╘W$│ ж( Й(B1$))HшlШЗ"ENTER STATE TAX TOTAL":ЙB1$:ЕB1$│""з27900:Д╘X$│ ж( Й(B1$))I-l№З"ENTER CONTRIBUTIONS TOTAL":ЙB1$:ЕB1$│""з28000:Д╘Y$│ ж( Й(B1$))Iom`З"ENTER UNION DUES TOTAL":ЙB1$:ЕB1$│""з28100:Д╘Z$│ ж( Й(B1$))I▓m─З"ENTER GROUP INS. TOTAL":ЙB1$:ЕB1$│""з28200:Д╘A1$│ ж( Й(B1$))IЄn(З"ENTER SAVINGS TOTAL":ЙB1$:ЕB1$│""з28300:Д╘A2$│ ж( Й(B1$))J3nМЗ"ENTER GROSS EARNINGS":ЙB1$:ЕB1$│""з28400:Д╘B3$│ ж( Й(B1$))J?nЁБе22600JFoT:ГJro╕:Г     EDIT EMPLOYEE ATTENDANCE RECORD"Jyp:ГJзpАЗFP$;:Зд4)"EDIT EMPLOYEE ATTENDANCE":ЗFP$JэpфЗ"EDIT ABSENCE DAYS ALLOWED":ЙB1$:ЕB1$│""з29000:Д╘A7$│ ж( Й(B1$))K+qHЗ"EDIT PAID ABSENCE":ЙB1$:ЕB1$│""з29100:Д╘A3$│ ж( Й(B1$))KmqмЗ"EDIT VACATION ALLOWED":ЙB1$:ЕB1$│""з29200:Д╘A6$│ ж( Й(B1$))KмrЗ"EDIT VACATION USED":ЙB1$:ЕB1$│""з29300:Д╘A4$│ ж( Й(B1$))KьrtЗ"EDIT UNPAID ABSENCE":ЙB1$:ЕB1$│""з29400:Д╘A5$│ ж( Й(B1$))K°r╪Бе22600K s<:ГL#sа:Г     EDIT PAYROLL COMPUTATIONL*t:ГLXthЗFP$;:Зд4)"EDIT PAYROLL COMPUTATION":ЗFP$LТt╠З"REGULAR HOURS":ЙB1$:ЕB1$│""з30000:Д╘A8$│ ж( Й(B1$))L═u0З"OVERTIME HOURS":ЙB1$:ЕB1$│""з30100:Д╘A9$│ ж( Й(B1$))MuФЗ"TOTAL SALES":ЙB1$:ЕB1$│""з30200:Д╘R$│ ж( Й(B1$))Mu°Бе22600Mv\:ГM4v└:Г     END EDIT FUNCTIONM;w$:ГMPwИ┼#1,X:Ъ#1:Бе6700MWwь:ГMuxP:Г     MOVE EMPLOYEE FILEM|x┤:ГMиyЮ:ЗFP$;:Зд6)"MOVE EMPLOYEE RECORD":ЗFP$M╪y|Бж8600:З:Й"ENTER OLD EMPLOYEE RECORD #";PR$M∙yрЕPR$│"NONE"з6700:ДPR│ Й(PR$)NzD─#1,PR:З"RECORD #"PRNIzиЗA$;B$;C$:Й"IS THIS INFORMATION CORRECT (Y/N)";OA$Nc{ЕOA$│"Y"з31600:Д31000NВ{pЗ:Й"ENTER NEW RECORD #";NRN╕{╘─#1,NR:Е О(A$,7)┤▓"NO NAME"зБж33200:Ъ#1::ДБе31000N╒|8─#1,PR:┼#1,NR:Ъ#1:Бе6700N▄|Ь:ГNЇ}:Г     LIST RECORDSN√}d:ГO5}╚Ю:ЗFP$;:Зд10)"RECORDS LIST":ЗFP$:Бж8600:АX│1е10:─#1,XON~,З"REC#"X;д8)A$;B$;C$O|~РЛX:Ъ#1:Й"   PRESS <ENTER> TO CONTINUE";OAOЗ~ЇБе6700O╝XЮ:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"EMPLOYER"Oё╝Ю:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"CKWRITER"P%А Ю:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"COMPUTE"P,АД:ГPEАш:Г     ERROR ROUTINEPLБL:ГP]Б░А X│1 е 10:ЮPpВА T│1 е 50:Л TPТВxЗ@233,"ILLEGAL ENTRY":а 100,1PлВ▄А Y│1 е 50:Л Y,X:Ю:РP▒Г@РP╕Гд:ГP╙Д:Г     WARNING ROUTINEP┌Дl:ГQ\Д╨Ю:ЗFP$;:Зд12)"warning":З:З" RESERVING DISK FILE SPACE WILL    DESTROY ANY PAYROLL RECORDS         CURRENTLY ON DISK!!":З:ЗFP$Q|Е4АX│1е20:а100,1:АY│1е20:ЛY,XQеЕШЗ:З"PRESS <ENTER> TO RETURN TO MENU"Q┼Е№З"PRESS r TO RESERVE SPACE"QсЖ`E2$│ Т:ЕE2$│""з34400:ДРБе 1400RLZЕ VX│0 з VX│1:                                                                                                                                                                                                                                                                  г&ш:Г     EMPLOYER&;L:Г     EMPLOYER DATA BASE PROGRAM&Z░:Г     FOR PAYROLL PACKAGE&x:Г     BY DENNIS H. WEIDE&Тx:Г     COPYRIGHT 1983&Щ▄:Г&╪@Ю:Х1000:Т153,20:F1$│"$$#####.##          ":МMN$(12):Бе3900&▀д:Г&ц:Г&эl:Г'╨:Г     BUFFER #2-EMPLOYER VARIABLES'4:Г'@Ш:Г(D1$)    9  MO$=PAYROLL MONTH'm№:Г(D2$)    5  PT =EMPLOYER PAYROLL TOTAL'Ы	`:Г(D3$)    5  PY =EMPLOYER PAYROLL Y-TO-D'├	─:Г(D4$)    5  T2 =EMPLOYER SS TOTAL'ь
(:Г(D5$)    5  YS =EMPLOYER SS Y-TO-D(
М:Г(D6$)    5  TF =EMPLOYER TOTAL FED. INC. TAX(X
Ё:Г(D7$)    5  YF =EMPLOYER TOTAL FED.INC. TAX Y-TO-D(ПT:Г(D8$)    5  TU =TOTAL UNION DUES THIS PAY PERIOD(╦╕:Г(D9$)    5  TC =TOTAL CHARITY CONTRIB THIS PAY PERIOD(■:Г(E1$)    5  YC =TOTAL CHARITY CONTRIB Y-TO-D)0А:Г(E2$)    5  YL =TOTAL STATE INC. TAX Y-TO-D)[ф:Г(E3$)    5  TL =TOTAL STATE INC. TAX)Б
H:Г(E4$)    5  IT =INSURANCE TOTAL)и
м:Г(E5$)    5  IY =INSURANCE Y-TO-D)п:Г)╚t:Г     CONTROL CODES)╧╪:Г*<LF$│ Л(10):LP$│ Л(31):SP$│ Л(30):FP$│ б(32,"#")*аАX│1е12:НMN$(X):ЛX*%Бе6700*,h:Г*V╠:Г     SUBROUTINE TO OPEN FILE BUFFER*]0:Г*wФЩ"D",#2,"EMPLOYER",74*с°╨#2,9 зD1$,5 зD2$,5 зD3$,5 зD4$,5 зD5$,5 зD6$,5 зD7$,5 зD8$,5 зD9$,5 зE1$,5 зE2$,5 зE3$,5 зE4$,5 зE5$*ч\Р*ю└:Г+$:Г     LSET EMPLOYER VARIABLES+И:Г+DьБж4600:╘D1$│MO$:╘D2$│ ж(PT):╘D3$│ ж(PY)+lP╘D4$│ ж(T2):╘D5$│ ж(YS):╘D6$│ ж(TF)+Ф┤╘D7$│ ж(YF):╘D8$│ ж(TU):╘D9$│ ж(TC)+╝╘E1$│ ж(YC):╘E2$│ ж(YL):╘E3$│ ж(TL)+┬|Р+╔р:Г+ЁD:Г     CONVERT 5 BYTE CODED STRING+ўи:Г,'PT│ в(D2$):PY│ в(D3$):T2│ в(D4$):YS│ в(D5$),WpTF│ в(D6$):YF│ в(D7$):TU│ в(D8$):TC│ в(D9$),З╘YC│ в(E1$):YL│ в(E2$):TL│ в(E3$):IT│ в(E4$),Ю8IY│ в(E5$):MO$│D1$,дЬР,л:Г,╤d:Г     EMPLOYER DATA BASE PROGRAM,╪╚:Г-,Ю:ЗFP$;:Зд3)"EMPLOYER DATA BASE PROGRAM"-"РЗFP$:Зд10)"PROGRAM MENU"-DЇЗ:Зд5)"1. RESERVE FILE SPACE"-fXЗд5)"2. RETREIVE DATA RECORD"-Д╝Зд5)"3. EDIT DATA RECORD"-б Зд5)"4. COMPUTE PAYROLL"-╗ДЗд5)"5. WRITE CHECKS"-█шЗд5)"6. EMPLOYEE DATA BASE"-ЇLЗд5)"7. END PROGRAM".░З:Й"    ENTER ONE OF THE ABOVE";OA.MИ OA Бе8300,9500,12400,17200,17300,17400,7900.`xБж17800:Бе6700.f▄К.m@:Г.Лд:Г     RESERVE FILE SPACE.Т :Г.▓ lБж18500:ЕE2$│"R"з8400:Д6700.╒ ╨Ю:З:Зд6)"RESERVING FILE SPACE".ч!4Бж4500:Бж5100. !ШАX│1е12:╘D1$│MN$(X)/!№┼#2,X:ЛX:Ъ#2:П:Бе6700/ "`:Г/;"─:Г     DATA STATEMENTS/B#(:Г/Э#МЖJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER/д#Ё:Г/─$T:Г     RETREIVE DATA RECORD/╦$╕:Г/ў%Ю:ЗFP$;:Зд6)"RETREIVE DATA RECORD":ЗFP$0%АЗ:З:Й"ENTER RECORD MONTH";M1$:F2│00E%фЕM1$│"ALL"з10200:ДЕM1$│"NONE"з67000X&HБж4500:АX│1е120Д&мЕ О(MN$(X),3)│ О(M1$,3)з─#2,X:X│12:F2│10д'ЛX:ЕF2│0зЪ#2:Бж17800:Бе95000┬'tБж5900:Бж10700:Ъ#2:Бе67000█'╪Бж4500:АX│1е12:─#2,X0№(<Бж5900:Бж10700:ЛX:Ъ#2:Бе67001(а:Г1#):Г     PRINT DATA RETREIVAL1*)h:Г1U)╠З#м2,LF$;LP$;"EMPLOYER RECORD FOR "MO$1*0З#м2,LF$;LF$;"MONTHLY TOTALS";LF$;SP$1╚*ФЗ#м2,"PAYROLL TOTAL","SOC.SEC.TOTAL","FED.INC.TAX","STATE TAX TOTAL"1т*°З#м2,═F1$;PT;T2;TF;TL2+\З#м2,LF$;LF$;LP$;"YEAR-TO-DATE TOTALS";LF$;SP$2\+└З#м2,"PAYROLL TOTAL","SOC.SEC.TOTAL","FED.INC.TAX","CONTRIBUTIONS"2v,$З#м2,═F1$;PY;YS;YF;YC2л,ИЗ#м2,LF$;LF$;"STATE TAX TOTAL","INSURANCE TOTAL"2┐,ьЗ#м2,═F1$;YL;IY2я-PЗ#м2,LF$;LF$;LP$;"PAY PERIOD TOTAL";LF$;SP$3'-┤З#м2,"UNION DUES","CONTRIBUTIONS","INSURANCE TOTAL"3>.З#м2,═F1$;TU;TC;IT3Q.|З#м2, б(36,10)3l.рЗ#м2,LF$;LF$;LF$;LF$:Р3s/D:Г3Р/и:Г     EDIT DATA RECORDS3Ч0:Г3┐0pЮ:ЗFP$;д8)"EDIT DATA RECORDS":ЗFP$;3т0╘З:З:Й"ENTER MONTH TO EDIT";M1$3ў18ЕM1$│"NONE"з670041ЬБж4500:F2│042АX│1е12492dЕ О(M1$,3)│ О(MN$(X),3)зRN│X:F2│14W2╚ЕF2│0зБж17800:Ъ#2:Бе124004i3,─#2,RN:Бж59004Н3РЮ:ЗFP$;:Зд10)"EDITOR MENU":ЗFP$4░3ЇЗ:Зд2)"1. EDIT MONTHLY TOTALS"4╓4XЗд2)"2. EDIT YEAR-TO-DATE TOTALS"4·4╝Зд2)"3. EDIT PAY PERIOD TOTALS"55 Зд2)"4. END EDIT FUNCTION"5?5ДЗ:Й"   ENTER ONE OF THE ABOVE";OA5b5шИ OA Бе14300,15100,16100,169005v6LБж17800:Бе132005}6░:Г5Ь7:Г     EDIT MONTHLY TOTALS5г7x:Г5╬7▄Ю:ЗFP$;д6)"EDIT MONTHLY TOTALS":ЗFP$:З68@З"PAYROLL TOTAL";:ЙB1$:ЕB1$│""з14500:ДPT│ Й(B1$)688дЗ"SOC.SEC. TOTAL":ЙB1$:ЕB1$│""з14600:ДTS│ Й(B1$)6l9З"FED.INC.TOTAL":ЙB1$:ЕB1$│""з14700:ДTF│ Й(B1$)6x9lБе1320069╨:Г6г:4:Г     EDIT YEAR-TO-DATE TOTALS6к:Ш:Г6╪:№Ю:ЗFP$;д4)"EDIT YEAR-TO-DATE TOTALS":ЗFP$7;`З:З"PAYROLL TOTAL":ЙB1$:ЕB1$│""з15300:ДPY│ Й(B1$)7C;─З"SOC.SEC. TOTAL":ЙB1$:ЕB1$│""з15400:ДYS│ Й(B1$)7w<(З"FED.INC.TOTAL":ЙB1$:ЕB1$│""з15500:ДYF│ Й(B1$)7л<МЗ"CONTRIBUTIONS":ЙB1$:ЕB1$│""з15600:ДYC│ Й(B1$)7с<ЁЗ"INSURANCE TOTAL":ЙB1$:ЕB1$│""з15700:ДIY│ Й(B1$)7э=TБе132007Ї=╕:Г8>:Г     EDIT PAY PERIOD TOTALS8>А:Г8I>фЮ:ЗFP$;д5)"EDIT PAY PERIOD TOTAL":ЗFP$;8|?HЗ:З"UNION DUES":ЙB1$:ЕB1$│""з16300:ДTU│ Й(B1$)8░?мЗ"CONTRIBUTIONS":ЙB1$:ЕB1$│""з16400:ДTC│ Й(B1$)8ц@З"INSURANCE TOTAL":ЙB1$:ЕB1$│""з16500:ДIT│ Й(B1$)8Є@tБе132008∙@╪:Г9A<:Г     END EDIT FUNCTION9Aа:Г9/BБж5100:┼#2,RN9>BhЪ#2:Бе67009DB╠К9xC0Ю:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"COMPUTE"9нCФЮ:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"CKWRITER"9тC°Ю:ЗFP$;:Зд8)"ONE MOMENT PLEASE":ЗFP$:О"EMPLOYEE"9щD\:Г:D└:Г     ERROR ROUTINE:	E$:Г:EИА X│1 е 10:Ю:-EьА T│1 е 50:Л T:OFPЗ@233,"ILLEGAL ENTRY":а 100,1:hF┤А Y│1 е 50:Л Y,X:Ю:Р:oG:Г:КG|:Г     WARNING ROUTINE:СGр:Г;HDЮ:ЗFP$:Зд12)"warning":З:З" RESERVING DISK FILE SPACE WILL    DESTROY ANY PAYROLL RECORDS         CURRENTLY ON DISK!!":З:ЗFP$;2HиАX│1е20:а100,1:АY│1е20:ЛY,X;[IЗ:З"PRESS <ENTER> TO RETURN TO MENU";ГIpЗ"PRESS r <ENTER> TO RESERVE SPACE";ЬI╘E2$│ Т:ЕE2$│""з18900;вJ8Р;GI;CC;цI╘З#м2,LP$;LF$;LF$;"WITHHOLDING THIS PAY PERIOD";LF$;SP$<(J8З#м2,"SOCIAL SEC.","                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 H& 
В*************************&?В* DEMON'S DEFIANCE  II  *&^В*  BY  FRED B. SCERBO   *&}(В*   149 BARBOUR ST.     *&Ь2В* NORTH ADAMS, MA 01247 *&╗<В*  COPYRIGHT (C)  1984  *&┌FВ*************************&¤PЮ0:АI│1056е1247:Н A:ЕA│0зA│128'	ZТI,A:ЛI'1dЗ@238, Л(221) Л(222) Л(221) Л(222);'YnЗ@270, Л(215) Л(219) Л(215) Л(219);'╜xЖ,255,252,251,,255,252,252,,255,242,241,255,,255,252,255,,255,251,240,255,,,253,,,255,252,252,,(ВЖ,255,240,255,,255,252,252,,255,244,248,255,,255,240,255,,255,244,251,255,,,,,,252,252,255,,(МЖ,252,252,248,,252,252,252,,252,240,240,252,,252,252,252,,252,240,244,252,,,,,,252,252,252,,(яЦЖ175,172,171,,175,172,172,,175,172,172,,164,175,168,,167,172,171,,175,171,160,175,,175,172,172,,175,172,172)_аЖ175,160,175,,175,172,172,,175,172,172,,160,175,160,,175,172,175,,175,164,171,175,,175,160,160,,175,172,172)╧кЖ172,172,168,,172,172,172,,172,160,160,,164,172,168,,172,160,172,,172,160,164,172,,172,172,172,,172,172,172)т┤Х80:U$│ Л(128)*$╛З@328,"by"U$"fred"U$"b"U$"scerbo";:Т1354,32:Т1359,32:Т1361,46*К╚З@359,"copyright"U$U$"c";:Т1392,32:Т1393,40:Т1395,41:Т1396,32:Т1397,49:Т1398,57:Т1399,56:Т1400,52*Є╥З@389,"j"U$"oystick"U$"or"U$U$"k"U$"eyboard";:Т1412,40:Т1414,41:Т1422,32:Т1425,32:Т1426,40:Т1428,41+▄X$│ Т:ЕX$│""з220+/цЕX$│"J"з JS│1 :ДЕX$│"K"з JS│0 :Д220+ПЁЗ@425,"f"U$"ast"U$"or"U$U$"s"U$"low";:Т1448,40:Т1450,41:Т1454,32:Т1457,32:Т1458,40:Т1460,41+╖·X$│ Т:ЕX$│"F"з260:ДЕX$│"S"з270:Д250+╩
Т65495,0:Бе280+╫
Т65494,0,E
З@452,"select"U$"skill"U$"level";:Т1482,32:Т1488,32:Т1494,32:Т1495,40:Т1496,49:Т1497,45:Т1498,57:Т1499,41,Z
"X$│ Т:ЕX$│""з290,}
,SL│ Й(X$):ЕSL┤1з290:ДЕSL▓9з290,П
6WL│109м(SLн8),╣
@М T(14,4):Ю0:U│1:G│12:Y│13:B$│U$:PD│4-
JKA$│ Л(152)л Л(146)л Л(152):KB$│ Л(146)л Л(148)л Л(148):KC$│ Л(145)л Л(145)л Л(148)-i
TUB$│B$л Л(230)л Л(236)л Л(226)л Л(225)л Л(236)л Л(233)лB$:UL$│B$л Л(244)л Л(248)лB$-├
^DB$│B$л Л(228)л Л(227)лB$лB$л Л(227)л Л(232)лB$:DL$│B$л Л(249)л Л(246)лB$:Бж360:Бе390-■
hQW│0:АI│1е14:АY│1е4:T(I,Y)│0:ЛY,I:АI│2е29:З@I, Л(159);.I
rЗ@Iл32, Л(207);:З@Iл64, Л(223);:З@Iл96, Л(175);:ЛI:PD│PDл1:Т1530,PDл48.d
|АI│128е256:З@I,B$;:Л:Р.о
ЖАWW│418е445:З@WW, Л(252);:ЛWW:З Л(248);:З@482,"score";:З@500,"lives";.┘
РG$│B$лB$л Л(215)л Л(213)л Л(210)лB$лB$.щ
ЪЗ@384лG,G$;.№
дЕQW│▓112зБж360/
оW│ Д(6):ЕW▓3з450/!
╕Y│Yл1:Бе460/5
┬Y│Yм1:ЕY┤│0зY│0/E
╠ЕY│▓24зY│24/R
╓ЕS│1з530/g
рE│ Д(6):ЕE▓5зS│1/В
ъRB│ Д(100):ЕRB┤WL з520/к
ЇRC│ Д(4):RD│ Д(14):Е T(RD,RC)│0з520/ь
■SC│5мRC:З@((SCм1)н32лRDн2), Л(239) Л(239);:T(RD,RC)│0:QW│QWм2/№Бж530:Бе5400З@192лY,UB$;:З@226лY,UL$;:Р0)ЕS│0з6200&АH│64е192й32:З@195лYлH, Л(154) Л(149);:Л:АH│64е192й32:З@195лYлH,B$B$;:Л:а10,1:S│00Ш0ЕYл1мG▓2▒GмYм1▓2з6200и:Бж580:Бе6201DАJL│1е2:З@320лG,KA$KB$;:З@352лG,KB$KC$;:З@384лG,KC$KA$;:а255,1:З@320лG,KB$KC$;:З@352лG,KC$KA$;1lNЗ@384лG,KA$KB$;:а100,1:ЛJL:З@320лG,B$B$B$B$B$B$;:З@352лG,B$B$B$B$B$B$;:З@384лG,B$B$B$B$B$B$;1ЫXG│ Д(13)н2:З@384лG,G$;:PD│PDм1:Т1530,PDл481кbЕPD┤│0з8901╡lа255,11┼vБж640:Бе6501хАЗ@192лY,DB$;:З@226лY,DL$;:Р1√КF│ Д(2):Е F▓1з6702=ФF│ Д(13)н2:З@448лU,B$B$B$;:З@448лF, Л(188) Л(188) Л(184);:U│F2KЮЕJS│0з7002`иЕ Ж(339)│254з7802Й▓JP│ Н(0):ЕJP┤25з740:ДЕJP▓38з760:Д4302в╝X$│ Т:ЕX$│ Л(32)з7802┤╞ЕX$│ Л(9)з7602╞╨ЕX$│ Л(8)з7402╨┌Бе4302ффG│Gм2:ЕG┤│0зG│02ююБе7703°G│Gл2:ЕG│▓26зG│263З@384лG,G$;:Бе4303+Е Uм2│G з5803eа30,1:АH│0е224й64:З@Gл355мH, Л(154);:З@Gл355мH,B$;:ЛH3z ЕGмY▓3▒YмG▓3з8303═*АO│1е2:З@192лY,KA$KB$;:З@224лY,KB$KC$;:а1,1:З@192лY,KC$KA$;:З@224лY,KA$KB$;:ЛO4$4З@192лY,B$B$B$B$B$B$B$B$;:З@224лY,B$B$B$B$B$B$B$B$;:GS│GSл100:Y│ Д(24):Бж880:Бе4204->LV│14JHR│(Gл2)о2:ЕT(R,LV)│1з8604вRБж530:QW│QWл2:T(R,LV)│1:З@Gл354м(Hл32н(LVм1)),B$B$;:Бж640:GS│GSл(25нLV):Бж880:Бе4204╕\LV│LVл1:ЕLV▓4з4204┬fБе8405pБж530:GS$│ И(GS):P│ З(GS$):АW│1еP:Z│ К( Р(GS$,W,1)):Т1510лW,Z:ЛW:Бж640:Р5+zЗ@267,"game"лB$л"over";5=ДЕ Т│ Л(13)з О5GОБе900е14300,15100,16100,169005v6LБж17800:Бе132005}6░:Г5Ь7:Г     EDIT MONTHLY TOTALS5г7x:Г5╬7▄Ю:ЗFP$;д6)"EDIT MONTHLY TOTALS":ЗFP$:З68@З"PAYROLL TOTAL";:ЙB1$:ЕB1$│""з14500:ДPT│ Й(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 u&:ГLISTING2&▐2Ю(0): З@128,"  TO STUDY THE SENTENCES IN EACHTABLE, PRESS <G>.  WHEN YOU ARE READY TO GO TO THE NEXT TABLE,  PLEASE PRESS <H>.  REPEAT THIS  PROCEDURE UNTIL YOU FINISH ALL  THE TABLES IN THE EXERCISE."'<З:Й "          PRESS <ENTER>";OA'	dЮ'iА I│1 е 6:З:Л''nX│ Д(5)'ExИ X Бе130,140,150,160,170'\ВЗ"      I ";:Бе180'tМЗ"      WE ";:Бе180'МЦЗ"     YOU ";:Бе180'даЗ"     JOE ";:Бе190'╛кЗ"   OLIMPIA ";:Бе190'╤┤З"SEE ";:Бе200'х╛З"SEES ";:Бе200(╚X│ Д(5):И X Бе210,220,230,240,250(╥З"HIM ";:Бе260(1▄З"HER ";:Бе260(EцЗ"THEM ";:Бе260([ЁЗ"GEORGE ";:Бе260(p·З"DIANA ";:Бе260(К
X│ Д(2):И X Бе270,280(Я
З"OPENING":Бе290(╡
З"SHUTTING":Бе290(╨
"X│ Д(2):И X Бе 300,310(ц
,З@225,"A ";:Бе320( 
6З@224," THE ";:Бе320)#
@X│ Д(4): И X Бе330, 340,350,360)6
JЗ"DOOR.":Бе370)K
TЗ"WINDOW.":Бе370)^
^З"BOOK.":Бе370)w
hЗ"DICTIONARY.":Бе370)Х
rA$│ Т: Е A$│"G" з Ю:Бе100)п
|Е A$│"H" з 400 :Д 370)├
РЮ:А I│1 е 6:З:Л)я
ЪB$│"    JOE ":C$│"    GEORGE ":D$│"HE "*
дE$│"    DIANA ":F$│"    OLIMPIA ":G$│"SHE "*>
оL$│"THINKS ":M$│"THOUGHT "*Y
╕N$│"KNOWS ":O$│"KNEW "*z
┬P$│"DOESN'T. ":Q$│"DIDN'T. "*Э
╠X│ Д(4): И X Бе470,480,490,500*│
╓З B$;:Z$│D$:Бе510*╔
рЗ C$;:Z$│D$:Бе510*▀
ъЗ E$;:Z$│G$:Бе510*ї
ЇЗ F$;:Z$│G$:Бе510+
■X│ Д(2):И X Бе520,530+.ЗL$;Z$;:ZZ$│N$:ЗZZ$;:Бе540+GЗM$;Z$;:ZZ$│O$:ЗZZ$;+iX│ Д(4):И X Бе550,560,570,580+Ж&З@226,"RUMANIAN ";:Бе590+а0З@226,"GREEK ";:Бе590+║:З@226,"LATIN ";:Бе590+╧DЗ@226,"FRENCH ";+▀NЗ"BUT ";Z$;+їXЕ ZZ$│N$ з AA$│P$,bЕ ZZ$│O$ з AA$│Q$,lЗAA$,/vA$│ Т:Е A$│"G" з Бе400,MАЕ A$│"H" з Ю:Бе650 :Д 630,iКЮ(3):З@235," THE END ";,tФБе 660N)лM(N):Л:Y(36)│Y(36)лM(36),╙
hАN│38е42:M(43)│M(43)лM(N):Y(N)│Y(N)лM(N):Л:Y(43)│Y(43)лM(43),√
rM(44)│M(36)лM(43):Y(44)│Y(36)лY(43)-<
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 °&o:ГLISTING3***ANOTHER WAY TO    MAKE THE SENTENCES (LINES400- INLISTING2 USING GOSUB'S INSTEAD  OF GOTO'S.&ГdЮ:А I│1 е 6:З:Л&▒nB$│"     JOE ":C$│"     GEORGE ":D$│"HE "&уxE$│"     DIANA ":F$│"     OLIMPIA ":G$│"SHE "'ВL$│"THINKS ":M$│"THOUGHT "'МN$│"KNOWS":O$│"KNEW"':ЦP$│"DOESN'T.":Q$│"DIDN'T."'SаБж2000:Бж2100:Бж2200'cкЗ"BUT ";Z$;'y┤Е ZZ$│N$ з AA$│P$'П╛Е ZZ$│O$ з AA$│Q$'Ш╚ЗAA$'╣╥A$│ Т:Е A$│"G" Бе 100 :Д 210'▀╨X│ Д(4):И X Бе2010,2020,2030,2040'Ё┌ЗB$;:Z$│D$:Р(
фЗC$;:Z$│D$:Р(юЗE$;:Z$│G$:Р(#°ЗF$;:Z$│G$:Р(@4X│ Д(2): И X Бе2110,2120(Z>ЗL$;Z$;:ZZ$│N$:ЗZZ$:Р(tHЗM$;Z$;:ZZ$│O$:ЗZZ$:Р(ЫШX│ Д(4): И X Бе2210,2220,2230,2240(┤вЗ@226,"RUMANIAN ";:Р(╩мЗ@226,"GREEK ";:Р(р╢З@226,"LATIN ";:Р(ў└З@226,"FRENCH ";:РБе320                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 О&:Г<STARSONG>&+
:Г(C) 1984, J. KOLAR&7╚2:╝:╚4&N(A│170:B│106:P│1.01&q2М B(2), D(2), F(2), H(2), J(2)&Б=╞"BM14,0D4"&С?╞"BM38,4L4"&бA╞"BM54,8U4"&▒C╞"BM70,4R4"&▌E╞"BM90,0F2ND4R4NE2D4NF2L4NG2BEU2R2D2L2"&ЇG─(10,0)м(18,8),B,G'I─(30,0)м(38,8),D,G'"K─(50,0)м(58,8),F,G'9M─(70,0)м(78,8),H,G'PO─(90,0)м(98,9),J,G'[Z╝:┐1,1'oiА R│80 е 20йм10'ПnА Z│2000 е 1904 йм5:C│ZлZо2'ЯxC│CлPп2о180'╤╚X│ Б(Aм6лRн Е(Cм.625)):Y│ Б(Bм6лRн Х(Cм.625))'ёс┼(Xм40,Yм10)м(Xм32,Yм2),B,и(ц┼(Xм40,Yм10)м(Xм32,Yм2),D,и(1ы┼(Xм40,Yм10)м(Xм32,Yм2),F,░(QЁ┼(Xм40,Yм10)м(Xм32,Yм2),H,░(|Є┼(Xм40,Yм10)м(Xм32,Yм2),J,╜:а45,1:ЛZ,R(│¤А S│1е2:А Q│1 е 5:┼(124,90)м(132,98),J,╛:АT│1е50:Л(╬■┼(124,90)м(132,98),J,╜(т
а10,2:а100,1:ЛQ)z

АQ│1е300:Л:╔"V20L4EEL8FAFAL16AO3CEECO2FAL32FL16AEDL4CO1BO2CP4V15O2DEGL8GEL16GL8DCEEFFL16GAGL8FEEL2CP4V20L4EEFFAAL16BDL8O3CECEEDCO2BDL4CO1BL8O2CL2C")В
Л S)Н
Бе 260Бе100)п
|Е A$│"H" з 400 :Д 370)├
РЮ:А I│1 е 6:З:Л)я
ЪB$│"    JOE ":C$│"    GEORGE ":D$│"HE "*
дE$│"    DIA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ї&
:Г***FILEMAIN***&9:Г**FILE MAINTENANCE PROGRAM**&J:ГLISTING #3&T(Х1000&j2CC│164:А XX│1 е 6&p<Ю&ФFЗ@CC,"FILE MAINTENANCE PROGRAM"&бPCC│CCм32&▓ZА Z│1е300:ЛZ&╗dЛ XX&╘nЗ@107,"SELECTIONS: "&ЄxЗ@162,"1) PROPERTY CODES"'ВЗ@194,"2) EXPENSE ACCOUNTS"'1МЗ@226,"3) INCOME ACCOUNTS"'HЦЗ@258,"4) END JOB"'cаЗ@394,"(1, 2, 3 OR 4)"'{кAT$│ Т:Е AT$│""з170'Ю┤И  Й(AT$) Бж 190,730,1260,1810'│╛:ГPROPERTY CODES'╬╚Ю:З@9,"PROPERTY CODES"'┘╥Бж 780'√▄И  Й(AT$) Бж 240,400,490,1240(цБе210(Ё:ГINPUT CODES(U·Ю:З"PREVIOUSLY ENTERED PROPERTY     CODES WILL BE LOST!!"(А
З"DO YOU WANT TO CONTINUE (Y/N)":Й AZ$(Т
Е AZ$│"N"з780(│
X│0:Ю:Щ"O",#1,"PROPERTY/ACC"(█
"Ю:З" PRESS <ENTER> WHEN FINISHED":З(х
,X│Xл1)
6Й" PROPERTY CODE: ";COD$(X))"
@Е COD$(X)│"" з Ъ#1:Бе190)T
JЕ  З(COD$(X))▓3 з З"  TOO LONG!! REDO ":Бе320)n
TЙ" ADDRESS: ";ADR$(X))в
^Е  З(ADR$(X))▓20 з З"   TOO LONG!! REDO ":Бе340)╜
hЙ" RENTER: ";NAM$(X):З)ё
rЕ  З(NAM$(X))▓20 з З"   TOO LONG!! REDO ":Бе360*
|┘ #1, COD$(X),ADR$(X),NAM$(X)*
ЖБе 300*2
Р:ГVIEW ACCOUNTS*Y
ЪX│0:Ю:З"         PROPERTY CODES":З*t
дЩ"I",#1,"PROPERTY/ACC"*Ц
оЕ  М(1)│м1 з Ъ#1:в44539:Бе190*а
╕X│Xл1*└
┬Й#1,COD$(X),ADR$(X),NAM$(X)*█
╠ЗCOD$(X);"   ";NAM$(X)*ё
╓З"      ";ADR$(X)*№
рБе 430+
ъ:ГCHANGE ACCOUNTS+3
ЇX│0:Ю:Щ"I",#1,"PROPERTY/ACC"+J
■Щ"O",#2,"TEMP/ACC"+_Е  М(1)│м1 з 650+iX│Xл1+ЙЙ#1,COD$(X),ADR$(X),NAM$(X)+к&Ю:З@64,COD$(X);"   ";NAM$(X)+└0З"      ";ADR$(X)+╦:Бж1580+шDИ  Й(Q2$) Бж 600,520,630+єNБе 570,XЙ" NEW PROPERTY CODE: ";COD$(X),5bЙ" NEW ADDRESS: ";ADR$(X),RlЙ" NEW RENTER: ";NAM$(X),rv┘#2,COD$(X),ADR$(X),NAM$(X),|АБе520,пКЗ:Й"DO YOU WISH TO ADD A PROPERTY   (Y/N)";Q3$,┬ФЕ Q3$│"N"з 690,╠ЮX│Xл1,╫иБе 600,т▓Ъ#2,#1,Ў╝╥"PROPERTY/ACC"-╞╓"TEMP/ACC"е"PROPERTY/ACC"-╨Бе190-7┌:Г EXPENSE ACCOUNTS-TфЮ:З@9,"EXPENSE ACCOUNTS"-^юБж780-Б°И  Й(AT$) Бж 860,960,1040,1240-ЛБе750-дЗ@107,"SELECTIONS: "-┬З@162,"1) INPUT ACCOUNTS"-▀ З@194,"2) VIEW ACCOUNTS".*З@226,"3) ADD/CHANGE ACCOUNTS".%4З@258,"4) RETURN TO MAIN MENU".@>З@394,"(1, 2, 3 OR 4)".ZHAT$│ Т:Е AT$│"" з 840.`RР.u\:ГINPUT ACCOUNTS.БfБж 1760.бpЮ:X│0:Щ"O",#1,"EXPENSE/ACC".╩zЮ:З"  PRESS <ENTER> WHEN FINISHED":З.╘ДX│Xл1.ЇОЙ"EXPENSE ACCOUNT: ";EX$(X)/2ШЕ  З(EX$(X))▓10 з З"  CATEGORY IS TOO LONG! -REDO!":Бе910/MвЕ EX$(X)│""з Ъ#1:Бе730/]м┘ #1,EX$(X)/h╢Бе 900/|└:ГVIEW ACCOUNTS/г╩X│0:Ю:З"       EXPENSE ACCOUNTS":З/╛╘Щ "I",#1,"EXPENSE/ACC"/р▐Е  М(1)│м1 з Ъ#1:в44539:Бе730/ъшX│Xл1/·ЄЙ #1,EX$(X)0№ЗX;"   ";EX$(X)0Бе 9900/:ГCHANGE ACCOUNTS0OЮ:X│0:Щ"I",#1,"EXPENSE/ACC"0f$Щ"O",#2,"TEMP/ACC"0{.Е  М(1)│м1з 11600Е8X│Xл10ХBЙ #1,EX$(X)0пLЮ:З@64,X;"   ";EX$(X)0║VБж15800┌`И  Й(Q2$) Бж 1130,1070,11400°jЙ"  NEW ACCOUNT: ";EX$(X)1t┘#2,EX$(X)1~Бе10701EИЗ:Й"DO YOU WISH TO ADD AN ACCOUNT   (Y/N)";Q3$1YТЕ Q3$│"N" з12001cЬX│Xл11nжБе11301y░Ъ#2,#11М║╥"EXPENSE/ACC"1к─╓"TEMP/ACC"е"EXPENSE/ACC"1┤╬Бе7301╬╪:ГRETURN TO MAIN MENU1┌тЮ:Бе1101ёь:Г INCOME ACCOUNTS2ЎЮ:З@10,"INCOME ACCOUNTS"2Бж 7802>
И  Й(AT$) Бж 1310,1410,1490,17902IБе12802^:ГINPUT ACCOUNTS2j(Бж 17602Й2Ю:X│0:Щ"O",#1,"INCOME/ACC"2░<З"  PRESS <ENTER> WHEN FINISHED":З2║FX│Xл12┘PЙ"INCOME ACCOUNT: ";IN$(X)3ZЕ  З(IN$(X))▓10 з З"  CATEGORY IS TOO LONG! -REDO!":Бе136036dЕ IN$(X)│"" з Ъ #1:Бе12603Gn┘ #1, IN$(X)3SxБе 13503hВ:Г VIEW ACCOUNTS3ПМЮ:X│0:З"        INCOME ACCOUNTS":З3йЦЩ "I",#1,"INCOME/ACC"3╠аЕ  М(1)│м1 з Ъ#1:в44539:Бе12603╓кX│Xл13х┤Й#1,IN$(X)3∙╛ЗX;"   ";IN$(X)4╚Бе 14404╥:ГCHANGE ACCOUNTS4:▄Ю:X│0:Щ"I",#1,"INCOME/ACC"4QцЩ"O",#2,"TEMP/ACC"4gЁЕ  М(1)│м1 з 16804q·X│Xл14БЙ #1,IN$(X)4ЫЮ:З@64,X;"   ";IN$(X)4жБж15804╞"И  Й(Q2$) Бж 1650,1520,16604с,З:З" DO YOU WISH TO: "56З"  1) CHANGE THE ACCOUNT"5@З"  2) DELETE THE ACCOUNT"5<JЗ"  3) SEE NEXT ACCOUNT"5BTЗ5L^Й Q2$5RhР5prЙ"  NEW ACCOUNT: ";IN$(X)5А|┘ #2,IN$(X)5ЛЖБе15205╛РЗ:Й"DO YOU WISH TO ADD AN ACCOUNT   (Y/N)";Q3$5╥ЪЕ Q3$│"N"з 17205▄дX│Xл15чоБе16505Є╕Ъ#2,#16┬╥"INCOME/ACC"6!╠╓"TEMP/ACC"е"INCOME/ACC"6,╓Бе12606dрЮ:З"PREVIOUSLY ENTERED ACCOUNTS     WILL BE LOST!!"6ПъЗ"DO YOU WANT TO CONTINUE (Y/N)":Й AZ$6зЇЕ AZ$│"N"зБе110:Д Р6┴■:ГRETURN TO MAIN MENU6═Ю:Бе1106у:ГEND SUB-ROUTINE6єО"RENTMENU"4,"LIEN H                                                                                                                                                                                                                                                                 &9
В JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913&C└5:Ю0&uАA│160е180:а Д(150)л50,1:З@A," R A C E R";:ЛA&Ц(М R(10),S(10),X(0,4),M(0,14)&б2╚0,1:╝&х<CR$│"D10L2U4R2D16L2U4R2D6R6U6R2D4L2U16R2D4L2U10L6BR2BD12U1R2D1"&°F╞"BM2,0S4"лCR$'P─(0,0)м(10,24),X,G'Z╝'(d╞"BM4,0S6"лCR$'7n╞"BR2D2L6"'Gx├(6,30),1,1'^В─(0,0)м(20,48),M,G'iМ╚0,1:╝'wЦB│0:Бж210'Ва╚0,2:╝'СкB│14:Бж210'Ь┤╚0,3:╝'л╛B│28:Бж210'╡╚Бе250'═╥╗(100,0)м(75,191),╜'ц▄╗(150,0)м(175,191),╜'ЎцАA│1е190й42(Ё╗(125,AлB)м(125,AлBл7),╜:ЛA:Р(.·АA│1е10:Н R(A):ЛA(Z
Ж 106,104,100,94,88,130,135,138,140,144(p
АA│1е10:Н S(A):ЛA(Ш
Ж 10,40,70,100,140,10,40,70,100,140(е
"A│1:D│88(╖
,ЕE│4зE│5:ДE│4(└
6╚0,E(╠
@╟ A е E( 
JЕ G│0 з G│1:Е  Д(2)│1 з H│1:Бе360 :Д H│6:Бе360)9
TЕ J▓50 ░ G│1 з G│2:Е  Д(2)│1 з H│2:Бе360 :Д H│7:Бе360)t
^Е J▓100 ░ G│2 з G│3:Е  Д(2)│1 з H│3:Бе360 :Д H│8:Бе360)б
h┼(R(H),S(H))м(R(H)л10,S(H)л24),X,╜:H│Hл1)╕
rЕ H│6 ▒ H│11 з G│0)╬
|Т343,255:Т344,255) 
ЖЕ  Ж(343)│247 з D│88:Д Е  Ж(344)│247 з D│144*
Р┼(D,140)м(Dл20,188),M,╜*$
Ъ┐1,1*.
дJ│Jл1*T
оЕ H│5 ░ D│88 ▒ H│10 ░ D│144 з 460*g
╕A│Aл1:ЕA│4зA│1*q
┬Бе300*и
╠┐0,0:А AA│1е20:Ю Д(9)м1:╔"L255O1"л Л(64л Д(7)):ЛAA*┴
╓Ю:З@260,Jо10;"MILES"*┘
рЗ"PLAY AGAIN (Y/N)"+
ъA$│ Т:ЕA$│"Y"зЮ0:О :Д Е A$│"N"зК :Д 490E ACCOUNTS+3
ЇX│0:Ю:Щ"I",#1,"PROPERTY/ACC"+J
■Щ"O",#2,"TEMP/ACC"+_Е  М(1)│м1 з 650+iX│Xл1+ЙЙ#1,COD$(X),ADR$(X),NAM$(X)+к&Ю:З@64,COD$(X);"   ";NAM$(X)+└0З"      ";ADR$(X)+╦:Бж1580+шDИ  Й(Q2$) Бж 600,520,630+єNБе 570,XЙ" NEW                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  a
Ю-З"  ****************************"SЗ"  * CFRR PROGRAM, W. BONNELL *"y(З"  *    3/24/1983 COPYRIGHT   *"Я2З"  ****************************"ж<:ГоFЗ:ЗъPМ EX(20),SA(20),CA(20),DF(20),DP(20),CF(20),RR(6),PW(6)ZЙ "MENU ENTRY OR REGULAR ENTRY M/R";A$/dЕ  О(A$,1)│"M" з 1810\nБж 130:Бж 190:Бж 360:Бж430:Бж500:Бе 1110cx:ГРВЕ PL▓0 з Ю:З"OLD PROJECT LIFE="OP"YEARS"оМЙ "PROJECT LIFE";PL:OP│PL└ЦЕ PL▓20 з 130╤аЕ PL┤1 з 130╫кР▐┤:Г
╛Е OD▓0 з Ю: З"OLD DEPRECIATION LIFE="OD-╚Й "DEPRECIATION LIFE";DL:OD│DL3╥ЮE▄Е DL▓20 з 190VцЕ DL┤1 з 190\ЁЗx·З "DEPRECIATION TYPES:"Ч
З "1. SUM OF YEARS DIGITS"╗
З "2. DOUBLE DECLINING BALANCE"╘
З "3. STRAIGHT LINE"∙
"З "4. DDB->SOYD 1/2YR.AVERAGING"
,З "5. ENTER OWN FACTORS"'
6Й"CHOOSE";DTH
@И DT Бж 690,740,820,900,1030N
JЗT
TР[
^:ГВ
hЕ TX▓0 з Ю:З"OLD TAX RATE=";TXн100Ы
rЙ "TAX RATE IN %";TXн
|Е TX▓99 з 360╛
ЖЕ TX┤0 з 360╠
РTX│TXо100╥
ЪР┘
д:Г	
оЕ TC▓0 з Ю: З "OLD INV. TAX CREDIT=";TCн100)
╕Й "INV. TAX CREDIT IN %";TC:
┬Е TC┤0 з 430L
╠Е TC▓99 з 430Z
╓TC│TCо100`
рРg
ъ:ГЪ
ЇЙ"DO ANNUAL FLOWS BECOME CONSTANT    Y/N  ";A$┤
■Е  О(A$,1)┤▓"Y" з 590║ЮєЙ "YEAR WHEN FLOWS BECOME CONSTANT";YY:Е YY▓PL з 530$З "FOR YEAR WHEN FLOWS ARE CONSTANT  ENTER:"*&З\0З "EXPENSE,SAVINGS,CAPITAL FLOWS": Й EE,SS,CCЛ:А I│YY е PL:EX(I)│EE:SA(I)│SS:CA(I)│CC:Л IСDЗ╖NЗ"YEAR  EXPENSE, SAVING, CAPITAL"╩XЕ YY│0 з YY│PL█bА J│1 е YYм1эlЗ ═ "##  ";J;vЙ EX(J),SA(J),CA(J)АЛJКРФ:Г8Ю:ГGET DEPRECIATION FACTORSWи:ГSUM OF YEARS DIGITS TYPEР▓Е  Б(DL)│DL з SF│DLн(DLл1)о2 :Д SF│(DLл.5)н(DLл.5)о2д╝А J│DL е 0 й м1╕╞DF(DLмJл1)│JоSF└╨Л J╞┌Рхф:ГDOUBLE DELCINING BALANCEююRV│1°А I│1 е DLл.5FR│2оDLDF(I)│RVнFR,RV│RVмDF(I)4 Л I:*РN4:ГSTRAIGHT LINEW>RV│1fHА I│1 е DLuRDF(I)│1оDLЕ\RV│RVмDF(I)НfЛ IЪpDF(I)│RVаzР╪Д:ГDDB TO SOYD 1/2 YR AVG CONVNTN SWITCH IN 2ND YEARчОDF(1)│1оDLЎШRV│1мDF(1)вDF(2)│2оDLнRVмRV│RVмDF(2)&╢RL│DLм1.5d└Е  Б(RL)│RL з SY│RLн(RLл1)о2:EN│1 :Д SY│(RLл.5)н(RLл.5)о2l╩K│2А╘А I│RL е 0 й м1К▐K│Kл1ЬшDF(K)│IоSYнRVвЄЛи№Р║:ГOWN FACTORS╒Ю:З "ENTER"DL"FACTORS"фА I│1 е DLї$З ═ "## ";I;
.Й DF(I)8Л
BРL:Г8V:ГGET DEPR. AND AFTER TAX FLOWS>`ЮhjЗ:З "START DEPREC AFTER TAX DISCOUNT"НtЗ"OF YR. FLOW  CASH FLOW  @ 15%"Ь~А I│1 е PL╜ИЕ I▓DL з I1│Iм Б(DL) :Д I1│1╠ТА K│I1 е IюЬDP(I)│DP(I)лCA(Kм1)нDF(IмKл1)ЎжЛ K8░CF(I)│SA(I)мTXн(SA(I)м(EX(I)лDP(I)))м(EX(I)лCA(I))лTCнCA(Iм1)I║З ═ "## ";I;|─З ═ "######.##";DP(I);CF(I);CF(I)о(1.15)п(Iм1)Д╬Л Iе╪Й "HIT ENTER TO CONTINUE";A$лтЮ▓ь:Г╞Ў:ГPRESENT WORTH╠Зщ
З "REQUIRED   AFTER TAX"З " RATE %  PRESENT WORTH"J│0((А R│.15 е .91 й .15>2J│Jл1:RR(J)│Rн100L<PW│0:SM│0[FА I│1 е PLtPDC│CF(I)о(1лR)п(Iм1)ДZSM│SMлCF(I)СdPW│PWлDC▒nЕ PB│0 з Е PW▓0 з PB│I:RR│R╠xЕ P9│0 з Е SM▓0 з P9│I╘ВЛ IюМЗ ═ "  ## %  ";100нR; ЦЗ ═ "######.##";PW аPW(J)│PW кЛ R H┤Е P9м1▓0 зЗ "STRAIGHT PAYBACK"P9м1"YEARS" Х╛Е PBм1▓0 зЗ "DISCOUNTED PAYBACK"PBм1"YEARS" :Д З "NO DISCOUNTED PAYBACK" й╚Е RR│0 з RR│.15 ┴╥З"    AT "RRн100"%" ╚▄:Г ╫ц:ГGET CFRR єЁR│0:R3│0:R5│0:R6│0:N6│0 №·R4│1!Бж 1690!Е N┤│0 з Бе 1760!&R│R4!2"Бж 1690!M,Е N▓│0 з R│100:Бе 1760!]6R│(R3лR4)о2!x@Е  В(R6мR)┤│.03 з 1730!ЖJR6│R:N6│N!ТTБж 1690!ж^Е N┤0 з Бе 1660!╖hЕ N▓0 з 1670!╚rЕ N│0 з 1760!┘|R4│R:Бе 1590!ъЖR3│R:Бе 1590"&ЪЗ@416,"wait ";:N│0:А I│1 е PL:N│NлCF(I)о(1лR)п(Iм1):Л I":дЗ @420, б(4,8);"@оР"L╕Бе 1780"U┬N6│N"a╠Бж 1690"╓R│(RмNн(RмR6)о(NмN6))н100"ЦрR│ Б(100нRл.5)о100"ЬъЗ"▓ЇЗ@416,"CFRR="R"%""╒■Й "HIT ENTER TO CONTINUE";A$:З"▄:Г"Ў:ГCHANGE DATA ROUTINE"№Ю#&З "   entry/change menu"#10З "1. PROJECT LIFE"#N:З "2. DEPRECIATION LIFE"#b?З "3. EXPENSES"#uDЗ "4. SAVINGS"#ИNЗ "5. CAPITAL"#ЬbЗ "6. TAX RATE"#╖lЗ "7. INV. TAX CREDIT"#╘vЗ "8. SAVE DATA IN FILE"#ёАЗ "9. READ DATA IN FILE"$КЗ "10.RUN"$'ФЗ "11.PRINT REPORT-(AFTER OPT.10)"$7ЮЗ "12.STOP"$HиЙ "CHOOSE";A$Ж▓И A Бж 130,190,2020,2120,2220,360,430,2320,2420,2540,2620$б╝Е A│10з Бж 320:Бе 1120$п╞Е A│12з С$╗╨Бе 1810$┬┌:Г$ыфЮ:З"YR      EXPENSE  YR     EXPENSE"$·юА I│1 е PL%&°З ═ "## ";I;:З ═ "$$#######.## ";EX(I);%,Л%[З:З"ENTER START,END YR,EXPENSE":Й S1,E1,V1%kА I│S1 е E1%x EX(I)│V1%~*Л%Д4Р%Л>:Г%┤HЮ:З"YR      SAVINGS  YR     SAVINGS"%├RА I│1 е PL%я\З ═ "## ";I;:З ═ "$$#######.## ";SA(I);%їfЛ&$pЗ:З"ENTER START,END YR,SAVINGS":Й S1,E1,V1&4zА I│S1 е E1&AДSA(I)│V1&GОЛ&MШР&Tв:Г&}мЮ:З"YR      CAPITAL  YR     CAPITAL"&М╢А I│1 е PL&╕└З ═ "## ";I;:З ═ "$$#######.## ";CA(I);&╛╩Л&э╘З:З"ENTER START,END YR,CAPITAL":Й S1,E1,V1&¤▐А I│S1 е E1'
шCA(I)│V1'ЄЛ'№Р'	:Г'>	Й"ENTER OUTPUT FILE NAME";F$'|	Й"TO DISK OR TAPE D/T";A$:Е  О(A$,1)│"D" з D│1 :Д D│м1:бИ'М	$Щ "O",#D,F$'л	.З #D,PL;DL;TX;TC;DT;OD;OP;'║	8А I│1 е PL'╓	BЗ #D,EX(I);SA(I);CA(I);'▐	LЛ I'ц	VЪ D'ь	`Р'є	j:Г(	tЙ"ENTER INPUT FILE NAME";F$(S	~Й"FROM DISK OR TAPE D/T";A$:Е  О(A$,1)│"D" з D│1 :Д D│м1:бИ(c	ИЩ "I",#D,F$(z	ТЕ  М(D)│м1з Бе2500(Ш	ЬЙ #D,PL,DL,TX,TC,DT,OD,OP(з	жА I│1 е 20(├	░Е  М(D)│м1з I│20:Бе2500(▐	║Й #D,EX(I),SA(I),CA(I)(ц	─Л I(ю	╬Ъ D(Ї	╪Р(√	т:Г)	ь:ГINITIALIZE THEN RERUN)&	ЎА I│0 е 20)B
DF(I)│0:CF(I)│0:DP(I)│0)H

Л)[
PB│0:P9│0:RR│0)o
Бж 320 :ГDEPREC){
(Бе 1120)В
2:Г)Ч
<:ГPRINTER REPORT)┐
FЗ#м2,"****************************")ч
PЗ#м2,"* CFRR PROGRAM, W. BONNELL *"*
ZЗ#м2,"*    3/24/1983 COPYRIGHT   *"*7
dЗ#м2,"****************************"*E
nЗ#м2:З#м2*j
xЗ#м2,   "PROJECT LIFE="OP"YEARS"*С
ВЗ#м2,"DEPRECIATION LIFE="OD"YEARS"*п
МЗ#м2,"TAX RATE="TXн100"%"*┌
ЦЗ#м2,"INVESTMENT TAX CREDIT="TCн100"%"*у
аЗ#м2*√
кЗ #м2,"YEAR      ";+P
┤З#м2,═ "%         %";"  EXPENSE";"  SAVINGS";"  CAPITAL";"DPR. FLOW";"CASH FLOW"+_
╛А I│1 е PL+w
╚З#м2,═ "##     ";I;+о
╥З#м2,═ "$$######.##";EX(I);SA(I);CA(I);DP(I);CF(I)+╢
▄Л I+┐
цЗ#м2+у
ЁЗ#м2,"REQUIRED   PRESENT WORTH"+ё
·А I│1 е 6,З #м2,═"   ## %    ";RR(I);,2З#м2,═ "$$#######.## ";PW(I),:Л I,D"З #м2,Z,З #м2,"CFRR="R"%",`6Р>z░ЕN▓75зв44539:C│0:Р?5║З@261,"ENTER FIRST 3 LETTERS OF      MONTH:  ";:╗ЙZ$:Щ"I",#1,"MIDMONTH."лZ$:А N│1 е 75:Й#1,M(N):Л:Ъ#1:M(7)│0:M(15)│0:M(28)│0:M(3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "%
:Г************CONVERT**********I:Г****1984, BY GORDON LEWIN****n:Г****MARCH 1985 RAINBOW********w
Ю(3)нЗ@142,"MONEY";:З@204,"CONVERSION";:З@270,"TABLE";тЗ@448,"U.S. DOLLARS IN FOREIGN CURRENCY";:Бж 390Ж(Ю:З@1,"THIS PROGRAM WILL PRINT OUT A   TABLE OF U.S. DOLLARS EXPRESSED AS A FOREIGN CURRENCY.  ALL YOU NEED TO DO IS ANSWER A FEW VERY SIMPLE QUESTIONS.":Бж390б2З@456,"ARE YOU READY?"╜<I$│ Т:Е I$│"Y" з70 :Д60╬AА X│1е500:ЛX4FЮ(3):З@32," WHAT FOREIGN CURRENCY NEEDS TO  BE CONSIDERED FOR CONVERSION?  ";:З  б(34,175);:Й FC$FKЕ FC$│"" з 70^PZ│127:Q$│ б(32,175)аZЕ  З(FC$)┤23 з 135:З@ 360,"USE AN ABBREVIATION!!":АX│1е150:ЛXлdZ│Zл16╛nЗ@352, б(32,Z)╤xА C│1е 150:Л CшВЕZ│255 з 140 :Д 90ЗЗ@352,Q$:З@352,FC$;HМЗ@352,"HOW MANY "FC$;:З@384,"ARE THERE IN ONE U.S. DOLLAR ?";:Й FM$iЦЕ FM$│"" з 140 :Д FC│ Й(FM$)ЙаЕ FC┤▓0 з 170 :Д Ю(3):Бе140╢кЕ FC┤0 з З@352, б(128,175) :Д 175:Бе 140┐пЮ(3)ш┤З@258,"IS THE PRINTER READY ? ? ? ";╣I$│ Т:ЕI$│"Y"з190 :Д 180#╛Ю(3):З@262,"PRINTING...";А╥З#м2:З#м2,"CONVERSION TABLE OF "FC$" TO U.S. DOLLARS AT THE RATE OF "FC" TO 1":З#м2:З#м2╧╫З#м2,д4)"U.S. DOLLARS        "FC$;:З#м2,д44)"U.S. DOLLARS        "FC$:З#м2┘сFT│FCчцАT│1 е 200·З#м2, ═"        ###        =     ######         ";T,FT;:FT│FTлFC:Л TN
А T│30 е 110 й 10:FT│FCнTg
"Е T▓100 з 310 :Д 250{
6З #м2:З#м2:З#м2Ч
JЗ@262,"DONE PRINTING ";├
^З@ 322,"ANOTHER CURRENCY TABLE? (Y/N)";

rI$│ Т:Е I$│"" з 370 :Д Е I$│"Y" з 70 :Д Ю(3):З@270,"END";
|Бе 380!
ЖА X│1е1500:Л X:РATURITY":Бе230_╥З"6 MONTHS -";D;"DAYS TO MATURITY":Бе240М▄З"3 MONTHS -";D;"DAYS TO MATURITY":Бе240■цE│ Б(100000н( Ы(((DоY)п2)м(4н(Dо(2нY)м.25)н(((Bо100)м100)о(Bо100))))м(DоY))о(2н(Dо(2нY)м.25))л.65)о1000:Бе250                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 р1:ГCOPYRIGHT (C) BY PAUL POULOSKY    7/22/84:
╚4,1C┐1,2I╝i(╞"BM80,168;R96;U65;L96;D65"}2╞"BM80,133;R96"П7├(81,132),1,1п<╞"C2;BM165,128;L7;U4;R7;D4"ЁF╞"BM176,128;L6;R6;U4;L6;R6;U4;L6;R6;U4;L6;R6;U4;L6;R6;U4;L6"0P╞"BM80,128;R6;L6;U4;R6;L6;U4;R6;L6;U4;R6;L6;U4;R6;L6;U4;R6"SZ╞"C1;BM85,138;D30;R86;U30;L86"ed├(84,138),1,1|n╞"C0;BM80,133;R96"Юx╞"C1;BM100,165;R56;U3;L56;D3"▒В├(101,164),1,1╜ММA(5,5)┌Ц╞"BM100,140;D3;R3;U3;L3"эа├(101,141),1,1к─(99,139)м(104,144),A┤АX│95 е 160 й53╛┼(X,139)м(Xл5,144),A9╚ЛT╥┼(160,139)м(165,144),Aw▄МB(5,5):─(100,139)м(105,144),BЙцАX│91е161 й 5вЁ┼(X,146)м(Xл5,151),B╗ё┼(X,153)м(Xл5,158),B┴їЛс·╞"BM60,12;R136;D70;L136;U70
╞"BM65,17;R100;D60;L100;U60""
╞"BM170,77;R22;U30;L22;D30"2
┬(177,20),3B
"┬(188,20),3R
,┬(181,33),6u
6╞"BM120,103;U21;L1;D21;L1;U21"Э
Р╞"BM100,20;R5;D10;L5;R10;L5;U10;R5"┼
Ъ╞"BM114,18;R2;D1;L2;D1;R2;D3;L1;U3"ч
д╞"BM120,20;D10;U10;F5;E5;D10"
о╞"BM81,35;R6;L6;D6;R6"
╕╞"BM90,35;R6;D6;L6;U6"8
┬╞"BM99,35;R6;L6;D6;R6"T
╠╞"BM108,35;D6;R6;U6;L6"p
╓╞"BM117,35;D6;U6;F6;U6"Й
р╞"BM126,35;D6;R6;U6"в
ъ╞"BM135,35;R6;L3;D6"─
Ї╞"BM144,35;R6;L6;D3;R6;D3;L6"▀
■╞"BM99,45;R6;D6;L6;U6"°╗(108,45)м(111,51),╜╗(111,51)м(114,45),╜6╞"BM117,45;R6;L6;D3;R4;L4;D3;R6"^╞"BM126,45;R6;D3;L6;U3;D6;U3;R3;F3"}&╞"BM108,55;D6;U6;F3;E3;D6"Щ0╞"BM117,55;F3;E3;G3;D3"┤:╞"BM81,65;R6;L6;D6;R6"╧D╞"BM90,65;R6;D6;L6;U6"ъN╞"BM99,65;R6;L6;D6;R6"X╞"BM108,65;R6;D6;L6;U6"(b╞"BM126,65;R6;D6;U3;L6;D3;U6"Dl╞"BM135,65;D6;U6;F6;U6"fv╞"BM144,65;D6;R4;E2;U2;H2;L4"vААX│1е2000:ЛДКАX│66е164ЩФ╗(X,18)м(X,76),╛ЯЮЛ╕и╞"BM103,20;R6;L3;D6"╫▓╞"BM112,20;D6;U3;R6;D3;U6"№╝╞"BM121,20;R6;L6;D3;R4;L4;D3;R6"#╞╞"BM85,30;R6;D3;L6;U3;D6;U3;R3;F3"D╨╞"BM94,30;R6;D6;U3;L6;D3;U6"b┌╞"BM103,30;R6;L3;D6;R3;L6~ф╞"BM112,30;D6;U6;F6;U6"йю╞"BM121,30;R5;F1;D2;L6;R6;D2;G1;L5;U6"┼°╞"BM130,30;R6;D6;L6;U6"с╞"BM139,30;D6;E3;F3;U6"¤┬(115,76),50,,.4,.5,.99┬(115,56),50,,.4,.5,.995 ┬(115,71),50,,.4,.5,.99Q*┬(115,66),50,,.4,.5,.99m4┬(115,61),50,,.4,.5,.99~>├(67,71),1,1ПC├(67,61),1,1ЯHАX│1е2000:ЛнДАX│66е164┬О╗(X,18)м(X,76),╛╚ШЛ╙вБе 400▀шБе 1000TATION":З:Р`
JЮ4:З@164,"INF &#2:ГSTOCK INDEX    JUNE 24,1984&√dЮ:З@133,"$$$$$$$$$$$$$$$$$$$$$":З@165,"$                   $":З@197,"$       STOCK       $":З@229,"$                   $":З@261,"$       INDEX       $":З@293,"$                   $":З@325,"$$$$$$$$$$$$$$$$$$$$$"'`nЗ@416,"COPYRIGHT (C) LOWRIE INFORMATION     SERVICES, INC. 1984.            ALL RIGHTS RESERVED"'vxF$│ Т:Е F$│""з120'оВМS$(13):МNS(13):МP(13):МTP(13):МK(13):МL(13):МM(13)'╒МЮ:З@195,"PRINTER CONNECTED? (Y/N)"(ЦQ$│ Т:ЕQ$┤▓"Y" ░Q$┤▓"N" з150 :Д ЕQ$│"Y" з PP│1 :Д PP│0([┤АX│1е13:S$(X)│"":NS(X)│0:P(X)│0:ЛX:Ю:З"****STOCK INDEX CALCULATOR****"(╥╛╗Й"ENTRY DATE MO/DA/YR ";M$:З═"TOTAL INVESTMENT ON %      %";M$:Й TD:Й"TOTAL DIVIDENDS TAKEN           IN CASH";DC(р╚DV│TDо100(Ў╥T1│0:G│0:AG│0:V│0)0▄Ю:З@6,"STOCK     NO.    PRICE/":З@46,"SHARES   SHARE")lцЕ AG▓0 з З@64,═" 1   %   %    ###.###  ###.##";A$,MS,PZ*!ЁАX│(Gл1) е 12:K(X)│34л32н(XмGлV):L(X)│44л32н(XмGлV):M(X)│53л32н(XмGлV):З@(32л32н(XмGлV)),═"##";X;:З@K(X),"";:ЙS$(X):ЕS$(X)│""з 260 :Д З@L(X),"";:ЙNS(X):З@M(X),"";:ЙP(X):T1│T1л1*(·ЛX*G
З@448,"CORRECTIONS? (Y/N)"*А
Q$│ Т:ЕQ$┤▓"Y" ░ Q$┤▓"N" з270 :Д ЕQ$│"Y" з280 :Д 320+
З"ENTER NO OF LINE TO BE CHANGED":ЙZ:ЕZ▓12 з З@384,"IMPROPER ENTRY":З@416,"    ":АT│1е350:ЛT:Бе300 :Д Е Z▓T1 зZ│T1л1:ЕZ▓12з Z│Zм1 :Д T1│T1л1+q
"Бж510:З@(34л32нZ),"";:ЙS$(Z):ЕS$(Z)│""з 310 :Д З@(44л32нZ),"";:ЙNS(Z):З@(54л32нZ),"";:ЙP(Z)+Б
,Бж510:Бе260+╬
6АX│Z е T1:S$(X)│S$(Xл1):NS(X)│NS(Xл1):P(X)│P(Xл1):ЛX:T1│T1м1:Бж510:Бе260+╫
@TV│0,
^АY│1еT1:TP(Y)│NS(Y)нP(Y): TV│TVлTP(Y):ЛY,,
hTV│TVлDC:ЕTD│0 з IX│100 :Д IX│TVоDV,[
rЮ:HP│0:G│1:Z│0:MS│0:АX│1еT1:MS│MSлNS(X):ЛX-
|З#мHP,═"FOR %      %";M$:З#мHP,═"INVESTED TO DATE: $#####.##";TD:З#мHP,═"DIVIDENDS TAKEN : $#####.##";DC:З#мHP:З#мHP,"STOCK       NO.    PRICE  VALUE":З#мHP,"          SHARES    ($)    ($)-8
ЖЕNS(G)│0 ░ P(G)│0 з 440-F
РАX│G е T1-Р
ЪЗ#мHP,═"%      % ####.### ###.## #####.";S$(X),NS(X),P(X),TP(X):Z│Zл1-╤
дЕHP│0 ░ Z│6зG│Xл1:Z│0:Й"PRESS <ENTER> TO CONTINUE";H:Ю:Бе380-╪
оЛX.@
╕A$│"AGG":B$│ И(AGл1):A$│A$лB$:PZ│(TVмDC)оMS:З#мHP,═"%      % ####.### ###.## #####.";A$,MS,PZ,TVмDC.ж
┬Е TD│0з З#мHP,═"BASELINE IS        $######.";TVмDC :Д З#мHP,═"TOTAL VALUE:        $######.";TVмDC.╒
╠З#мHP,═"             INDEX=  ######.##";IX/
╓Е HP│0 ░ PP│1з З"   *****PRINTOUT (Y/N)?*****" :Д 540/5
рQ$│ Т:ЕQ$┤▓"Y"░Q$┤▓"N"з480 :Д 500/S
ъQ$│ Т:ЕQ$│"" з 490 :Д 540/О
ЇЕQ$│"Y"з HP│2:З#м2,"        ********":G│1:Бе380 :Д 540/╒
■Ю:З"NO.   STK       NO.     PRICE":З"              SHARES   /SHARE/сАX│1еT10 З═"##  %      %  ###.###  $###.##";X,S$(X),NS(X),P(X):ЛX:Р0СЗ@448,"MORE STOCKS? (Y/ )":АT│1е150:ЛT:З@448,"MORE STOCKS? ( /N)":АT│1е150:ЛT:Q$│ Т:ЕQ$┤▓"Y" ░ Q$┤▓"N" з 5400к&ЕQ$│"Y" з 560 :Д 1800╥0АX│1е T1:S$(X)│"":NS(X)│0:P(X)│0:ЛX1DS$(1)│A$:NS(1)│MS:P(1)│PZ:G│1:T1│1:AG│AGл1:V│1:Бе220THEN,TOTAL TAX WOULD BE $"; Б((Hн(CмJ)лJ)н100л.5)о100e
ЖБж350:Бж340:Бж520:ЕW$│"C"з290u
РЕW$│"R"з110 -
ЪK│Hн(CмJ)лJ:Ю:З@64,"PROFIT IF ONLY FEDERALLY TAXED=", Б(((((365оD)н(CмHнC)))оB)н10000л.5)о100;"%":З:ЕST▓0зЗ"PROFIT IF ALSO STATE TAXE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                !ZИ4PйОА■╞ ї " ╖ ▀О ■0Й жДCзДбД&єяД▄r4О
ьГ4М
"ўяНz0НNЯrWп0Н!пО
oт0&·0фЖ¤з
Ж╠зИ43~4@NP<2щ
"О
5эБМ
%ў5▌r5╖ ▐п5 О
BюНМь%╖ ▀5эБМ
%ў5Яr$╖ ▐nДC4@3d2шт╠
Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эД╠	Г
XI4╠50╚ц0Л эД╠
Г
XI4╠50╚ц0Л эД╠Г
XI4╠50╚ц0Л эДьF4╠
4ьbгс2bэFьF4╠4ч5ьF4╠d4┘5ьbгс2b4ьF4╠
Р4├55усэ╚ф0╚▐4ьD4
иь╚ф4
аьF4
ЦН6P
╨ъg
┘ьF4╠
ус4╠4u52b4O_гс&╠Г
XI4╠50╚ц0Л эД╠
э╚фьB4╠
4ьbгс2b4ь╚фгф.00╚▐40╚▐4
]ь╚фГ
XI0╚цьЛ4
х
Wь╚ф├
э╚ф ╞2b0H40╚▐4
,
;2\5└4@3d2шт0╪44@┐2d0╪4НEARNED INTEREST CALCULATIONO_4╝ж0╪4ЮНSTART╠Q44@)2шS0V40Н
Ф4╠4НEND╠Q4ъ4@
2шS0╚ъ4oт2z0Н
g4╠4╦4@¤2hoт2z0V4╠4┤4@¤2h
№Н6RBP	Z╖	f0P4oт2zНYEARLY RATE╠Q4{4@
R2шS	=0╚▐4Н
		*2~Н
QUARTERLY?╠Q4F4@
╚2шS5]'0╚▐4Н
@тё0╪4Н	AMOUNT: O_4Ь2b0╪40╚ф4рГ0╪4Н
FINAL VALUE:O_4o0╚ф4Уoт2zoт2zН
А0P4y0╚▐4q
╬
4@М2i0╚▐4\
v0╚ъ4Q
k4@ш2i
a╠4╠4}2b2\5└4@3dцН ё]',о─0Ш4Н*** ERROR - OUT OF RANGEO_4┴л╠
чН ╣2\5└4@3dO_чН ло─4Нм2bо─0Ш40B4O_4ПН (%) O_4А2bо─0Ш40Н n4┴d0Н b4ОНГ_	h.
\O40Н D4pНe_	J-
\дрфр]'В0╚S40Н 4IН>	ЫJ2\5└4@3dO_чН о─4 2bо─0Ш40B4O_4уН (Y/N) O_4╥2bо─0Ш40Н■╞4Д╢цН■║O4╠Y_мс&
\O4цН■дO4╠N_мс&
\крър]'ПцН■КO4╠Y_мс&
\ч╚T2\5└4@3dO_чН■kо─4■k2bо─0Ш40B4O_4NН (MM,DD,YYYY) O_462bо─0Ш40Н■,4╠4╗0Н■ 4╠4н0Н■4╠4Я∙ьН¤ 4╠
_мс.
\O4ьН¤ъ4╠_мс-
\дрфрO4ьН¤╒4O__мс,
\дрфрO4ьН¤╗4╠
_мс.
\дрфрO4ьН¤в4╠_мс-
\O4ьН¤Н4╠_мс-
\O4ьН¤v47╠
4╠4■╠4Ў╠4ю╠4ц╠
4▐╠4╓┐дрфркрърO4ьН¤)4╠_мс-
\O4ьН¤4╙╠4в╠4Ъ╠	4Т╠4КsдрфркрърO4ьН№▌4╠_мс-
\O4ьН№╞4╠_мс&
\дрфрO4ьН№▒4╠4Н52b4O__мс&
\дрфркрърдрфр]'■2\5└%Pfffg33333u
pyc'В8РpBwЧВvpAp0Б`R#pВA4
bГS
¤hGУС ~HPФ!` 
А4 Ц8 T'С2АrEqЦP ЙА#Х@	2A0А(9ААЩЩА3331`
|F7$7}$fv%~TIЩ9~PТФ`YvЦАhУqi iХЖYSУВЦf
q%R
 4gЖw
&PФС)
#XQ%
CBФGY
fЗpЙШRА2ШPUЗ`Favt@Ж ЩR9ЩWДwvU Г2@rВ
`БСuФi&@#ЕD(gPBrsДYР!ЗГВ
%1$(WГH`В %
РБE
0БШa"Й
27З`ББ&0wC
!REБuw&c
yБSБHY
T
p"
2АУdBaUД'Ш59Аy
#Ehy
#EhАИИИИЙ
3333А(vВ$4@3d2x0I40B4п0Н■#4ж@ 4@3d2x0I40B4РН`0Н■'4Ет
°0Н¤╥4s
жфзT*0Н¤╞4a√mф+╙0Н¤н4NшmT*└1Н0Н¤║ ,TНD2\5└oXжb*ДзbcX9mX'√ЦпVжАзYпZжАзYпZпV0ф4
■0ф4
ў0╪·4
ь0g4
х ьZ├эZ0╪·4
╙mjY&рцьZ├эZ0╪·4
║Tn╪Ў4@3d2x0I4жBHM.0B4
Э l1Н \ #0Н¤4
Л0Н¤m4
В0B4
{ J╒1Н0Н¤ \Д√ *4@3d2x0I40B4
P0Н¤З4
GaжфHБ.+Н?Б>.%Б└-0зT
╝1Н0Н¤ 	жфДлTДзф
(2\5└Ж?зф╠ЩЩэaэcэe ъoф╠ ёOцbX]/жcDDDD└'╞
=4жdДлрmb*
@94@3d2x0I40B4╔ьф+┬]'┐Г
&ьb'╡цaoф0Н№ё1Н№┴"%0Н¤:1Н№┴F%0Н¤Г1Н№пT4 Н!1НоT■gцBXW420Н№в4nИw2\5└2y Y4@3d2x0I4oт2zoт2z0B4C4 d2i0Н√Ш43M4■╩2i82\5└4@3d2x0I40B40B4
$2\5└50oть$4ь"4ьд4nДоi55эб5эб5эб2cnДоd	ў&Aьш42y4и2dН╥2o50nД4@3bO_гD*"2ыoтA1FьD4&оB46<2jоMAO_46b2^5@52knДmc'жbИАзb9жbДзb9жbHM/0b` є954@Ж	oтJ&√CnД0B1╚ЖцАчаJ&∙0╚Д2I5@52gnД4601'■╞жВйвздZ&Ў5╢4601'
╞ЖЩЙаВлвздZ&Є5╢4жДА
%(ИАзД54Жhiiiii
J&ё5В4жДЛ
%(ИАзД54Жd
fffffJ&ё5В4Ж0
mА&J&∙o°5Цоbж
ДЁ&ЎНЪ ЇжMHG4ж╚HGар'-
Б, A0M @0MБ, (0╚НФJ&√0╚НМ0MНИ9жbИАзb■№Н┐0M1╚ж╚иM+  Н
#Н "■∙460
1!ЖцАса&J&ў5╢46Ж4цДждчазАjф&Ї2a5╢1i0bжДид*жДбд mД*ждH4жДHбр&Н│'%Ж
 ЖА52nnД■|0M 	ж╚иMДАзBж╚лMДкBзB1BЖц╚─'
0M■Аj╚ яJ'■X0╚■╒0B■╨ ▌■90MьД&╠@эД■╜0╚■╖1M D$■xж╚иMДАзBж╚аMLДкBзB1╚Ж0M■?$lH ї■ J'¤¤0╚■U0B■P р502y40b╠чА 30b2y42d0i╞5зАZ&∙92zocodoaoфЖзe0loДоjцачbНuБ '·Б+'Б-&ЖАзДНcНl&mф'Ўlc ЄБ.&НQНZ&mф&Ўjc ЄБE&%Н?Б+'Б-&jaН3Б0-Б9.А0цd4Ж
=ырчd чжdma'
@лcДкДзДжe'¤ЫJ&·2f9jd+жа92b ┘Б0-Б9.mg'А0Йъbчb'
jg¤oкзO9оjоdжiцgза4v42wCM/RжДHGзGзHь
эAьэCьэEmJ+НI 6жIА-4Б/ЖзJжIАзIЖ
зHН-jG╠E+mG*╞-`GэбцGЖ/L└
,√╦:эд2K5ЎоO╞*чаjI&· я╞ жIJmH/LаHАаJ-с'чаJ&√m╪
*╞-ча0─жH/Н"╞.ча ╠0.эбmH'mJ'заjJ'lH+ЎжJН
9M/ц
TTTT╩0ча№ФJ&э90Н┐

0Н"┐

9	В	Е @	Ж
N9}	В'╛	Гпj	В;} *} }	Е'z	Е&╢	ЖД0╖	Ж╖ @;46ЖА 46Жа╞4	Еж
1Н
"жжК(цИ┴-КЎ	Ж╖	Ж╖ @┼&
О№∙╙&ЯО	~ж
цжў IсИ'цИў KчжЖ╖ HИИл&yЕ&u┴жИ╖ J1Н_┐	Г0ИО} H╢	ЖКА╖	Жцфs	ВPў HИИ┴А&╞ї H&1?&ў !Ў KчА╖ @ Ў╞ї H&1?&ў 
цАў K╖ @ Ў	ВпНK 	п╢ HД|'#оdЖ■зja'О	~ж
oжЖ╖ HНН4Е' Ж■оdзЖx╖	Е2b5╢О1?'╢ HЕ
&ї9Ж╨╖ HИИ} HЖА9О".1?&№9
@4oтЖзИЖзИ■▓m&#Жзф1ИЖи'1и jф&ЇlИжИБ-┌Ж¤з2a5Цж-зИь.эИж+з ь4НжИзИЛцЖчИН5Ж4ЖзИЖзИ■S5В4жИGзИжИБ"-lИД
'Ж	зИЛ	зИжИБC#ДлИзИ5Ж4m&:lИжИбИ/жИБC"*НО ц■╠
эИOэИжИБC#жИбИ&ьИэИ'5ЖЖ з °Н
m&Н6 {94 ж'Б¤&#o ж-4oд¤╖ L51ИжеoеjеЙM*ї¤б5Ж46НZm&1ЖзИЖзИ¤Дm& ╞1Ижд'L'1и Z&єlИжИБ-▌Ж¤з5╢╞0жАзаZ&∙оb15жз+ч,жИз-o.o/¤C5╢4&■╘oтЖ 1ИН1' lфлфН)'lфlфlфафJ*щЖ√з2a5жцИзезИ╞╔чИчж¤ шцж\'К
цж\94&■Кoт1ИжИБ ,Н"'╠Н Н'─Н'└ ╢4цж\'LБC/Ў5Ж2a5Д4Н╝'ЎА*°5Ж4m&lИ№кm&O_эИжИбИ- Я■<5Ж4&m&#lИ№ЕжИ■m&1ИА	.Л	К└цИзе№hж¤Ъm&з+_J&
Zч,ьИэ.№N5жНSoИж
*L'	L+Ж№з з ¤d╛ЖкзИьИ'4
E2dоф2jnдж
*L&и 
■#m'oИ ▐оj1Й
пБ╞1НДжазАZ&∙оfоjьdэИ0
ца'
┴#╞жазАZ&∙оhоjЖзтжазт'NжаБ 'Б:'Б/&Ж
зa 
цa┴
,зЕlajф&▐ *жфJ'%ца┴+'┴-'O J'Шца└0+
┴.	Б-&
Pоlч
2b9           
╠оdцэf9Ж
зgоdц
!'ч9m&og9ogоdц
'ч9ьИгИ-m&	├жЛБ
&lg9оdoжИБ╠'Ж№з9oИж
*■XL&mИ'╞
к╞ е9оd╜&'Ж№зоИ'o4 1Й
пД
-&заьфГ
эф&Ё2b95 2q40Б&<
&7Б 'ўБ
'єБ,'я1doацd┴'заldЁ&Б 'Б
'Б,&хьИГ
эИO5Р502onдоfНп&A46	+2d52oоbМ
'э° ч°52dnДоdН&Я&з°░50nД4ьИ&54жц
┴¤'цИ┴к'Ж№з5ЖоbН▄&Нk&Б
&°{50nДоdоbьИ'эу0Й
жАзаьфГ
эф&є2bоd4■ь2d50nДоfоdoаНЦ&Н%&Б
'ц°сc$ёзаl° ъьИГ
эИН52dnД4Н&ьИ├
эИ├жЛзф_5Жж
L+ьИгИ-m&ж
*L'
h_9√+ т ▌4@3bO_гB*2ыьBA4ьDfAоFO_46Н/2^5@Tоf0dЖ
зДьb46Н52dnДоb0Н
O_46Н56nД

оfоdжацc'р?$жc_M'	Н&1!J&ў]'1Н
Н&Z Є52dnД 4vц
\+7жИБ╠'Ж№з 9m&7ьИ3И3╦ждз─\чИ'm
*┴ &╞
Z √╤ жд\') лOO55роdоbьИ'эу0Й
жазАьфГ
эф&є2bоd42d50nДоdm&Ж№зьИ'o1Й
пД f&1!Г
&Ї9оdО╠
46■є5ЖоdцOэf9оfьdч946M'0цАса&J&ў5╢42|oc▄vГ
▌v&╠7─О
ROJзфзbжbI$АзblфСзaиДдДцaчА\'хlcM'р╞°╦D$√0Н▒ыф'0┴/0Н]┴ /$0Н7┴0,Нj┴+/И@M&╦ ╩@НY║
&╩  XНM'
\цЕчdО^oЖ Н,L&жbН%бa&	┴&s
 mc'▄vГW&╠X"od2d5Ц╖ ╢ КА} +К@9Ж╖ ╢ CД@9▌vЖ ╞О
RзАZ&√9^_
[	]  0

\@0&№9462~o╞Пчфoa1ИO_эИэИжфЛБ&ЖЯзфНvoa■╒&
ja+ўЖНg сБ& ъ4ЖНX5Б
'AБ'Б'!Б'/цИ\'╝заlИН9 │mИ'о1?jИН+ еmИ' Ю1?jИЖН юЖ зЖ
заН
ьИ├
эИ2b5╢4ЮИБ'Б
'&Б'BБ %MM+Б@-Б`-Д▀И@зА М'5Ж`зВ 
Ж`зА┼&ЎЯИМ%ОьИ эБМр%Ў О╠``ЯИэБМ %∙ ╢ CH'¤Ў'Б&¤э'√ ї5ЦьdД
├▌И94╞4Ў "─
&∙PН_Н_DYНja&ўН5жфБ
&ЮЧН
5Ц╞
Xў  ЮХ4■Я5■Ъ94&НUж'Б & mИ&ёжБ '
Ж1И¤l&сН6m&ЖкзИ5ж461И╠эИ╞0жАзаZ&∙╞oаZ&√оb╠  эИ'_
5╢4Н&Н:╢НO_эИm&	mИ*Ж з5Ж╢ !Дў╖ !п94"╢ !К╖ !О1?&№P5в4oИНIН/"Н%%jИжИБа' ъН"шН%шlИжИА`&╪зИ5ЖБН БН!╓Б┴"┴
9oИ9БmИ&	Н%№Н$№9Н$№Н%№9БЎ  V9ЖзИНFjИ&°9Н╨╓Б┴94&2~1ИOНюFБ<&∙Н┘зИН╘зИoИзфлИзamф'Н┴залaзajф&ЇН╡аa'Ж■з2b5ж4&чИ "╠UР4Н4jф&·2aЖ<Н*_жИН$жИНM'1ИжаНjИ&ўШНЖUН■сoИ5ж4&ыфчa1Н[4 1Н34 ╞
жИ╖  офхd&жа╖  мb#Ў 
жб╖  мb%ЎжазИX$╒2d5жВТк║╩┌ъЄ···Єъ┌╩║кТzjRB2"

"2BRjM&4TTT0Е5─4╞
jф+X ∙2a9_9ьш"0bН█фД'╞
52ш"nДьb0dН╚ъДчД52bnДьdгb"0fН│ъДчДle&э52dnД5╞ oтZ&√nДНжДказАZ&ў52ш nД╞ 0ш$1d9НЎжДдазАZ&ў фНщжаCдДзАZ&Ў ╓Н█жДдабА&Z&ї╞
 
_52ш@nДН┬ уН╝жабА&ыZ&ў ц50╞ 1ежв4Z&∙nД5╞ ох5заZ&∙2bnД4@юfоhоdж└бА&1?&Ў5@52fnД56
CS├
2ы44@3d
жаз└0
&°5└4@юfоhоdж└зА1?&° ╚mf*lcO_гfэfmh*jcO_гhэh9oтoтНсoтжfцh=эфжeцh=ыфчфжfцg=ыфчфmb'O_гфэфьфоc2inДoтoтmf*lфНи4ОO_hiihYIгf%гfli0&э5эdжр'O_гcэcжр'O_гdэd946oтM*lфO_гaэaЖ цf'14зАZ&√оb╠
4&НЫжa*
@Л0зВ╠
эфjd'ьb&шme'Ж-зВ2e2a5╢цgоdчАьhоfНй9оhоdьfXIXIуf├
DVZчажgН
946oтM'цДTTTTНцА─НJ'цф╚ чф&ч╞ ча с2a569╩0┴9/╦ча9ofogоdжАoтзт'@жАБ &jф&Ў 4Б-&ja А0+Б	"зтьiXIэiXIXIуiырЙэhжАjф&▐ma'O_гhэh2b9ьН5э°уbэН,52dnДьН"э°9ьdэН9@ГdгН#*╠  O_эd9 ИR$(I),K$)│0 з 26305С	ьЕ  О(A$(I),1)│"*" з26305ы	ЎЗ#м2,═"%                                %";A$(I);:З#м2,д35)"!";:З#м2, дS(A(I,1))л36);6L
T1│ Б(S(A(I,1))