BINDING, CUT ON THE DIAGONAL BIASE TAPE U.S. OCEAN ON THE U.S. EAST COAST ATLANTIC GEO- STATE BORDERED BY BAYS OF LONG, ONSLOW, AND RALEIGH NORTH CAROLINA GRA- LARGE CITY IN PENN. THE SUSQUEHANNA FLOWS THROUGH HARRISBURG PHY LAKE BOUNDED BY THE STATES WIS.,ILL.,IND.,AND MICH. LAKE MICHAGAN LARGEST LAKE IN FLORIDA LAKEOKEECHOBEE NAME OF LARGEST NATIONAL FOREST, FOUND IN ALASKA TONGASS 16,011,643 SQ MI IN GENESIS 7:4 HOW LONG DID GOD TELL NOAH IT WOULD RAIN? 40 DAYS AND 40 NIGHTS ACCORDING TO EXODUS 20:12 WHY SHOULD YOU HONOR YOUR PARENTS?SO THAT YOUR DAYS MAY BE LONG IN THE LAND IN ISAIAH 7:14 WHAT SIGN IS TOLD TO MARK IMMANUEL'S BIRTH?THE VIRGIN WILL CONCEIVE AND BEAR A SON OLD GIVE 2 OF THE 5 NAMES FOR THE "GIVEN SON" IN ISAIAH 9:6 WONDERFUL, COUNSELOR, MIGHTY GOD, EVER. FATHER, PRINCE-PEACETEST- IN MICAH 5:2 WHERE WAS THE RULER OF OLD TO COME FROM? BETHLEHEM EPHRATHAH AMENT ACCORDING TO 1 SAMUEL 15:22 WHAT IS BETTER THAN SACRIFICE? TO OBEY      ■  ■   ■¤            П         ¤      ў¤           яЯ▀      ╧  ¤      я¤   ■┐  ┐   я┐'      з я·  √                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                /ИЖ " (83) AMORTIZE"," (87) GRAPHIT"," (97) PAYROLL","(100) POKER","(110) PART 1","(110) ALT","(111) ALT1","(111) ALT2","(111) PROBLEM"/█Ж "(118) CO3COLOR","(124) STOCK","(127) GRAPH","(170) ROBOFLIP","(174) BUDGET"/х.Ж ENDEK"," (80) ENVELOPE"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                4); Л(48)S/ dАX│1е9:Ю3:З@40,"FIXED DEDUCTIONS";SJ nЗ@233,FD$(X)" "FD(X);Sm xЗ@294,"PRINT THIS BILL (Y/N)";SД ВZ$│ Т:ЕZ$│"" з2690Sл МЕZ$│"N" зЛX :ДЕZ$│"Y" з2720 :Д2690S╢ ЦБе2730Tw аЗ#м2,д15); Л(27); Л(84); Л(49);"- ";FD(X);" ";FD$(X);" ()"; Л(27); Л(84); Л(50); Л(10); Л(13):AP│APмFD(X):З#м2,д15);"---------------":З#м2,д15):З#м2,═"$ ###.##";AP:З#м2,"BALANCE":ЛXT╟ кАX│1е9:Ю3:З@40,"MISC DEDUCTIONS";:ЕMD$(X)│"" з2790 :ДЗ@233,MD$(X)" "MD(X);Tъ ┤З@294,"PRINT THIS BILL (Y/N)";U ╛Z$│ Т:ЕZ$│"" з2750U( ╚ЕZ$│"N" зЛX :ДЕZ$│"Y" з2780 :Д2750U3 ╥Бе2790UЇ ▄З#м2,д15); Л(27); Л(84); Л(49);"- ";MD(X);" ";MD$(X);" ()"; Л(27); Л(84); Л(50); Л(10); Л(13):AP│APмMD(X):З#м2,д15);"---------------":З#м2,д15):З#м2,═"$ ###.##";AP:З#м2,"BALANCE":ЛXVH цЮ:З#м2, Л(27); Л(84); Л(54); Л(28); Л(45)"*":АX│1е3:З#м2, Л(10); Л(13):ЛX:Бе400(84); Л(49);"- ";MD(X);" ";MD$(X);" ()"; Л(27); Л(84); Л(50); Л(10); Л(13):AP│APмMD(X):З#м2,д15);"---------------":З#м2,д15):З#м2,═"$ ###.##";AP:З#м2,"BALANCE":ЛXVH цЮ:З#м2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                THREE FELINE CAT LET- WOLF,COYOTE,TERRIER, ECT. DOG TER FEMALE SHEEP EWE ANI- MATERNAL SWINE SOW MALS TYPE OF DEER, FOUND IN NORTH AMERICA ELK SPOUSE OF BUCK DOE WHAT PRODUCT MADE FAMOUS AMOS RICH CHOCOLATE CHIP COOKIES PRES. OF THIS PARIS JEWELRY CO. IS RESTORING HIS OWN CASTLECARTIER THE RICHEST MAN IN U.S. SAMUEL WALTON RICH COMPANY FOUNDED BY RICHEST MAN IN THE U.S. WAL-MART D FAMILY WHO ESTABLISHED LONG- WOOD AND WINTERTHUR GARDENS DU PONT FOUNDER OF EDS AND SECOND RICHEST MAN IN THE U.S. ROSS PEROT POINTED METAL CYLINDER WITH AHOLE, USED TO DIRECT THREAD NEEDLE TISSUE PAPER OUTLINE OF GARMENT WITH DIRECTIONS PATTERN THE DIRECTION THE FIBERS LAY,ESPECIALLY ON VELVET OR CORDROYNAP THE PART OF THE MACHINE THAT HOLDS THE THREAD FROM BELOW BOBBIN SEW THE MACHINE FINISHED EDGE OF A WOVEN PIECE OF YARD GOODS SELVAGE IT IS A STRIP OF MATERIAL USED AS A ##.## DATE: % % YEAR AVERAGE: $####.## YEAR HIGH: $####.##";S$(WQ),S(WQ,NE),D$(NE),AP(WQ),HP(WQ) /Ё0З═"YEAR LOW: $####.##";LP(WQ):З"--------------------------------";0V1З"PRESS <^> TO ADVANCE AND TO REVIEW. PRESS TO END SEQUENCE."0Ч2R$│ Т:ЕR$│"^"зWQ│WQл1:ДЕR$│ Л(10)зWQ│WQм1:ДЕR$│ Л(13)з34:Д500├3Е WQ▓5зWQ│5:а 200,2 :Д Е WQ┤1зWQ│1:а1,10╠4Бе4715Ю0:З"TURN PRINTER ON AND POSITION PAPER... PRESS ..."1-6R$│ Т:ЕR$│ Л(13)з55:Д541╝7З#м2,д35);"STOCK DATA":З#м2, б(80,"-"):З#м2,"STOCK";д20);"DATE";д30);"CUR. PRICE";д45);"YEAR MEAN";д60);"YEAR HIGH / LOW":З#м2, б(80,"-")2R8А QQ│1 е 5:З #м2,═"% % % % $####.## $####.## $####.## $####.##";S$(QQ),D$(NE),S(QQ,NE),AP(QQ),HP(QQ),LP(QQ):Л2k9З#м2, б(80,"-"):Бе343*:Ю0:З═"1. % % 2. % % 3. % % 4. % % 5. % %";S$(1),S$(2),S$(3),S$(4),S$(5)3Т;З@32н6,"MAKE SELECTION AS TO WHICH YOU WANT DAILY PRICES ON. PRESS TO RETURN TO MENU."3╨RR$│ Т:ЕRR$│"1"з D│0 :Д Е RR$│"2"зD│м2 :Д 624Ч?Ю0:З"PRESS ENTER WHEN READY TO PRINT DATA."4│@R$│ Т:ЕR$│ Л(13)з66:Д644╟AS(KK,0)│S(KK,1)4рBЕ D│м2 з З#м2, Л(15)5░CЕD│м2зЗ#м2,═"DAILY STOCK QUOTES FOR % %";S$(KK):З#м2, Л(14):З#м2,"DATE";д18);"PRICE":З#м2, б(40,"-"):АPP│1еNE:H│S(KK,PP)мS(KK,PPм1):З#м2,═"% % $####.### +####.###";D$(PP),S(KK,PP),H5┬DЕ D│м2зЛ:Бе345╘EА A│1е NE й145┌FЮ5·GЕ NEмA▓14з QQ│Aл14 :Д QQ│NE6RHАAA│A е QQ:З═"% % $####.### +####.###";D$(AA),S(KK,AA),S(KK,AA)мS(KK,AAм1):Л6IЗ@32н15,"PRESS TO CONTINUE.";6ШJR$│ Т:ЕR$│" "з75:Д746ЯKЛA6═LЗ@32н15,"PRESS A KEY TO RETURN TO MENU.";6хMR$│ Т:ЕR$│""з77:Д346юNБе787gOЮ0:Й"REWIND DATA TAPE... PRESS RECORD AND PLAY... PRESS ENTER WHEN READY... ";EE$:Бж80:Бе137ЖPЯИ:АX│1е2500:Л:Щ"O",м1,DN$7ТQЗ#м1,NE7тRАQ│1е5:З#м1,S$(Q):Л:АW│1еNE:З#м1,D$(W),S(1,W),S(2,W),S(3,W),S(4,W),S(5,W):Л7ьSЪ(м1)7ЄTР87UЮ:З"1 CREATE NEW FILE":З"2 BACKUP FILE":З"3 RETURN TO MAIN MENU"8hVR$│ Т:ЕR$│"1"з87:ДЕR$│"2"з92:ДЕR$│"3"з13:Д868ЕWЙ"ENTER FILENAME";DN$:Ю08╕XЗ"ENTER THE NAMES OF 5 STOCKS TO BE TRACKED:"8фYЗ@64,"";:АX│1е5:З═"STOCK #";X;:ЙS$(X):Л9ZЮ0:АX│1е5:ЗS$(X):Л:З@32н11,"ARE THESE CORRECT(Y/N)?";9J[R$│ Т:ЕR$│""з91:ДЕR$│"N"з85:ДЕR$│"Y"з799─\Ю:Й"HOW MANY DAYS BACK DO YOU WANT TO SAVE";BD:Е BD▓NE ▒ BD┤1 ▒ BD┤▓ Б(BD) з 92:ДЮ0:Й"FILE NAME";DN$:DN$│ Р(DN$,1,8):Ж]З@96,"";:З"PRESS PLAY AND RECORD. PRESS ";:╗ЙR$:ЯИ:АX│1е2500:Л:Як:Щ"O",м1,DN$:З#м1,BD:АX│1е5:З#м1,S$(X):Л:АQ│BD е1йм1:NB│1лNEмQ:З#м1,D$(NB),S(1,NB),S(2,NB),S(3,NB),S(4,NB),S(5,NB):У^Л:Ъ:Бе13:л_Е  З(D$(NE))┤▓8з105:═`АQ│1е8:E$(Q)│ Р(D$(NE),Q,1):Л:яaЕ E$(3)│"/"░E$(6)│"/"з98:Д105;bЕ E$(1)│"1"▒E$(1)│"0"з99:Д105;9cE│ К(E$(2)):ЕE▓│48░ E┤│57 з100:Д105;fdАW│4е5:E│ К(E$(W)):ЕE▓│48░E┤│57з101:Д105;leЛ;ПfЕ E$(7)│"8"▒E$(7)│"9"з103:Д105;╣gE│ К(E$(8)):ЕE▓│48░E┤│57 з 104 :Д 105;┐hР;єiЗ"ENTER DATE IN FORMAT MM/DD/YY.":ЙD$(NE):Бе95< j:Г VARIABLES:<*k:Г D$(X)=DATE R$=INKEY${:Г BE USED IN DATA BACKUPTAL OF STOCK =2t:Г PRICES FOR STOCK X=Qu:Г AP(X)=AVERAGE PRICE FOR=fv:Г STOCK X=Гw:Г LINES 500-680:D=PRINT=бx:Г DEVICE=┴y:Г KK=STOCK #=тz:Г BN= # OF ENTERIES BACK TO>{:Г BE USED IN DATA BA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 u&'М IN(3,3):Т65497,0:RD│3:GN│3:BL│3&X у ў:RR│36:RG│54:GG│18:BR│45:AL│63:GB│27:BB│9&eч11,8:ф2&Еэ1,908:ы(0,184)м(200,192),1&╝(э2,98:ы(0,0)м(20,8),2:э3,1025 : ы (0,72)м(80,96),3&ў2щ(159,60),80,,.75:щ(239,60),80,,.75:щ(199,120),80,,.75'(<ш(120,60),3,11:ш(200,40),1,11:ш(260,60),0,11'\Fш(160,100),6,11:ш(200,100),4,11:ш(240,100),5,11'pPш(200,120),2,11'СZАX│1е3:АY│0е3:НIN(X,Y):Л Y,X'╚dю(0,0),"ADDITIVE":ю(0,1),"COLOR":ю(0,2),"MIXTURES"'ўnю(1,6),"COLOR" : ю (1,7),"NUMBERS" : Бж600(xю(0,18),"COLOR INTENSITY"(8Вю(0,20),"RED ":ю(6,20),RD(qМю(0,21),"GREEN":ю(6,21),GN:ю(0,22),"BLUE":ю(6,22),BL(ТЦCL│20:LA$│ Л(95):ю(9,CL),LA$(╗аю(9,23),"ENTER NEW INTENSITY 0 TO 3"(┬╞:Г(╔╟:Г)╚I$│ Т:ЕI$│""з200 :Д Е  К(I$)┤48 ▒  К(I$)▓51 з I$│" ")q╥Е I$│" " з ь(70,CLн8м1)м(90,CLн8л7),2,╜:Е CL┤22 з CL│CLл1 :ю(9,CL),LA$:Бе200 :Д CL│20:ю(9,CL),LA$:Бе 200)~▄AP│CLм19)кцЕ AP│1 Бж 300 :Д Е AP│2 Бж 400 :ДБж 500)┤ЁБе200)╗*:Г)┬+:Г)°,RD│ Й(I$):ь(50,CLн8м1)м(70,CLн8л7),2,╜:ю(6,20),RD*,6RR│IN(1,RD) : RG│RRлGG : BR│RRлBB : AL│RRлGGлBB*L@у 3,RR:у 1,RG:у 6,BR:у 4,AL*WJБж 600*]ЖР*dО:Г*kП:Г*бРGN│ Й(I$):ь(50,CLн8м1)м(70,CLн8л7),2,╜:ю(6,21),GN*╒ЪGG│IN(2,GN) : RG│RRлGG : GB│GGлBB : AL│RRлGGлBB*√ду 0,GG : у 1,RG : у 5,GB : у 4,AL+оБж 600+ ъР+Є:Г+є:Г+PЇBL│ Й(I$):ь(50,CLн8м1)м(70,CLн8л7),2,╜:ю(6,22),BL+Д■BB│IN(3,BL) : BR│BBлRR : GB│GGлBB : AL│RRлGGлBB+ку 2,BB : у 6,BR : у 5,GB : у 4,AL+╡Бж 600+╗NР+┬V:Г+╔W:Г+сXь(0,72)м(80,96),3,╜, bю (0,9),RR : ю (3,9),RG : ю (6,9),GG,6lю (0,10),BR : ю (3,10),AL : ю (6,10),GB,Fvю (3,11),BB,L▓Р,Sш:Г,tЄЖ0,4,32,36,0,2,16,18,0,1,8,9: AL│RRлGGлBB+ку 2,BB : у 6,BR : у 5,GB : у 4,AL+╡Бж 600+╗NР+┬V:Г+╔W:Г+сXь(0,72)м(80,96),3,╜, bю (0,9),RR : ю (3,9),RG :                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &╠Ю0:З@138,"STOCK TRACKER";:З@138л32,"BY MARK EVANS";:З@136л96,"COPYRIGHT (C) 1986";:АX│1е2000:Л:Ю:З@96,"THIS PROGRAM IS DESIGNED TO AID IN THE TRACKING OF STOCK PRICES.IT IS not CLAIMED AS A METHOD"'iЗ"OF INVESTING IN STOCKS. FURTHER,THE AUTHOR IS not RESPONSIBLE FOR THE OUTCOME FROM ERRONEOUS CALCULATIONS RESULTING FROM THISPROGRAM.":АX│1е10000:Л'p:Г'М:Г STOCK TRACKER'У:Г'╢:ГCOPYRIGHT(C) 1986,MARK EVANS'╜:Г'─:Г'╦:Г'╥ :Г'┘ :Г'р :Г'  └1:Х1400:МS(5,130),D$(130)(z Ю3:З"1. DAILY ENTER SEQUENCE":З"2. SAVE DATA":З"3. PRINT OPTIONS":З"4. CREATE FILES":З"5. LOAD DATA":З"6. END PROGRAM"(ХЗ"ENTER SELECTION...";(ъR$│ Т:ЕR$│"1"з17:ДЕR$│"2"з79:ДЕR$│"3"з34:ДЕR$│"4"з85:ДЕR$│"5"зБе18:ДЕR$│"6"зЮ0:К(єБе15)PT$│"DAILY ENTER SEQUENCE...":Бж19:Бе25)@PT$│"LOAD DATA...":Бж19:Бе13)─Ю0:ЗPT$;:З@64,"";:Й"ENTER NAME OF STOCK DATA FILE ";DN$:З@128,"PRESS PLAY ON TAPE RECORDER... PRESS WHEN READY...";)▌R$│ Т:ЕR$│" "з21:Д20)ю:Г LOAD DATA)■Щ"I",м1,DN$*\Й#м1,NE:АQ│1е5:Й#м1,S$(Q):Л:АW│1еNE:Й#м1,D$(W),S(1,W),S(2,W),S(3,W),S(4,W),S(5,W):Л:Ъ(м1)*bР*s:ГDATA ENTRY*ЁЮ:NE│NEл1:Й"DATE(MM/DD/YY)";D$(NE):Бж95:Ю:З@0,D$(NE):А S│1е5:З@32н(Sл1),═"% %";S$(S),:З"PRICE";:ЙS(S,NE):Л+З@32н12:З"ANY CORRECTIONS(Y/N)?";+ДR$│ Т:ЕR$│"Y"зЗ:Й"WHICH NUMBER(1-5)";N:ЗS$(N),:З"PRICE";:ЙS(N,NE):Ю0:ЗD$(NE):АS│1е5:ЗS$(S),S(S,NE):Л:Бе27+ТЕR$│""з28+ЎЮ0:З"REWIND DATA TAPE... PRESS RECORD AND PLAY... PRESS ENTER WHEN READY...",R$│ Т:ЕR$│ Л(13)зБж80:Д31,И Ю0:З"DATA HAS BEEN SAVED... PRESS ANY KEY TO RETURN TO MENU.ALL DAILY ENTRY FUNCTIONS ARE COMPLETE.",а!R$│ Т:ЕR$│""з33:Д13,╫"Е TT│9187 з 43 :Д TT│9187:Т65495,0:АW│1е5:T(W)│0:Л,є#Ю0:З"PLEASE STANDBY..."-&$ZA│0:АQ│1е5:HP(Q)│0:LP(Q)│5000:АW│1еNE:ZA│ZAл1-;%T(Q)│T(Q)лS(Q,W)-V&З@25,═"######";5нNEмZA-w'Е S(Q,W)▓HP(Q)з HP(Q)│S(Q,W)-Ш(Е S(Q,W)┤LP(Q)з LP(Q)│S(Q,W)-а)Л:Л-─*АQ│1е5:AP(Q)│T(Q)оNE:Л:Т65494,0. +Ю0:З"1. GENERAL INFORMATION 2. DAILY PRICES 3. RETURN TO MENU".Q,R$│ Т:ЕR$│"3"з13:ДЕR$│"1"з45:ДЕR$│"2"з58:Д44.╢-Ю0:Й"PRINT TO:1. SCREEN 2. PRINTER ";EW:ЕEW│1з46:ДЕEW│2з53:Д45.┐.WQ│1/и/Ю0:З@0,═"% % CURRENT PRICE: $## D&:Г&:X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&OБж5:в44539:Бж4:Р&gЗ@Y,Y$;:в44539:ЮZ:Р&ЦS$│Y$:З@X,X$;: Р(S$,A)│ б(N,143):З@Y,S$;:Р&Ю ЮZ:&╟X$│" DIE STADT IST GROSS UND ALT. "&ьY$│" THE CITY IS BIG AND OLD. "&¤A│1:N│11:Бж2'A│14:N│4:Бж2'A│22:N│5:Бж2'0A│18:N│4:Бж2'7(:Г'CуЮZ:Бе10539:Бж4:Р&gЗ@Y,Y$;:в44539:ЮZ:Р&ЦS$│Y$:З@X,X$;: Р(S$,A)│ б(N,143):З@Y,S$;:Р&Ю ЮZ:&╟X$│" DIE STADT IST GROSS UND ALT. "&ьY$│" THE CITY IS BIG AND OLD. "&¤A│1:N│11:Бж2'                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 /&:Г&:X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&ВS$│Y$:З@X,X$;: Р(S$,A)│ б(N,143):З@Y,S$;:в44539:З@Y,Y$;:в44539:ЮZ:Р&Й ЮZ&▓X$│" DIE STADT IST GROSS UND ALT. "&╫Y$│" THE CITY IS BIG AND OLD. "&шA│1:N│11:Бж5&∙A│14:N│4:Бж5' A│22:N│5:Бж5'A│18:N│4:Бж5'"(:Г'.уЮZ:Бе10 :Д Бе 10&ВS$│Y$:З@X,X$;: Р(S$,A)│ б(N,143):З@Y,S$;:в44539:З@Y,Y$;:в44539:ЮZ:Р&Й ЮZ&▓X$│" DIE STADT IST GROSS UND ALT. "&╫Y$│" THE CITY IS BIG AND OLD. "&шA│1:N│11:Бж5&∙A│14:N│4:Бж5' A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 г&:Г&;X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&]З@X, О(X$,P);:З@Y, О(Y$,Q);:Р&БQ│181:З@Y, О(Y$,Q);:в44539:ЮZ:Р&жP│181:Q│P:Бж3:З@YлA, б(N,143);:Р&▓ ЮZ:Бе20&█X$│" DIE STADT IST GROSS UND ALT. "'Y$│" THE CITY IS BIG AND OLD. "'A│0:N│11:Бж5'%в44539:Бж4:Бе40'6A│13:N│4:Бж5'Jв44539:Бж4:Бе40'[A│22:N│5:Бж5'oв44539:Бж4:Бе40'АA│18:N│4:Бж5'Пв44539:Бж4'Ц(:Г'вуЮZ:Бе10Р&▓ ЮZ:Бе20&█X$│" DIE STADT IST GROSS UND ALT. "'Y$│" THE CITY IS BIG AND OLD.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  К&:ГERNATE&?X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&cQ│181:З@Y, О(Y$,Q);:в44539:ЮZ:Р&аS$│Y$:P│181:З@X, О(X$,P);: Р(S$,A,N)│ б(N,143):З@Y,S$;:Р&з ЮZ&╨X$│" DIE STADT IST GROSS UND ALT. "&їY$│" THE CITY IS BIG AND OLD. "'A│1:N│11:Бж5'в44539:Бж4'&A│14:N│4:Бж5'5в44539:Бж4'GA│22:N│5:Бж5:'Vв44539:Бж4'gA│18:N│4:Бж5'vв44539:Бж4'}(:Г'ЙуЮZ:Бе10│ б(N,143):З@Y,S$;:Р&з ЮZ&╨X$│" DIE STADT IST GROSS UND ALT. "&їY$│" THE CITY IS BIG AND OLD. "'A│1:N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  =&# :Г SALARY (SCREEN OR PRINTER)&>:Г *******************&Y:Г * HARVEY DETTMANN *&t(:Г * SILVERLEAF DR *&П2:Г * SUSSEX,WIS. *&к<:Г * 53089 *&┼F:Г *******************&▄P:Г VERSION 2.0&тZЮ&ўdЗ@108,"SALARIES"'nЗ:З" BY HARVEY DETTMANN"'"xЗ:З'PВ╗Й" MMM.DD,YYYY ";D$'VМЗ'gЦЙ" NAME";N$'oаЗ:З'ТкЗ" TO CONTINUE PRESS ANY KEY"'к┤C$│ Т:Е C$│"" з 180'░╛Ю'║╚З@5,;'╘╥Й"REG.HOURS WORKED";H'є▄Й" O.T.HOURS WORKED";O(цЗ" ----------------------"(3ЁЙ" WAGES/PER/HOUR ";S(U·З" ----------------------"({З═" REG SALARY IS $####.##";HнS(жЗ═" O T SALARY IS $####.##";OнSн1.50(░X│HнS(┐"Z│OнSн1.50(╔,W│XлZ(ъ6З" --------")@З═"GROSS WAGES ARE: $####.##";W)*JЙ" F.I.C.A.";SS)FTЙ" FEDERAL TAX";FT)b^Й" STATE TAX";ST)ГhЗ" --------")░rЗ═"NET WAGES ARE--->$####.##";WмSSмFTмST)╙ЖЙ" PRINTER OR SCREEN (P/S)";T$)єРЕ T$┤▓ "S" ░ T$┤▓ "P" з 390*ЪЕ T$│ "S" з 190*дЕ T$│ "P" з 430*2о:Г PRINTER ROUTINE*W╕З#м2, Л(31);д14);" WEEKLY WAGES"*s┬З#м2, Л(30);"DATE: ";D$*М╠З#м2:З#м2, б(80,"=")*ш╓З#м2," NAME GROSS SS/WH FED/WH ST/WH NET WAGES"*ёрЗ#м2+ъNET│WмSSмFTмST+ЇЗ#м2,д2);N$;+$■З#м2,д22);+?З#м2,═" $#,###.##";W;+NЗ#м2,д39);+fЗ#м2,═"$###.##";SS;+u&З#м2,д51);+Н0З#м2,═"$###.##";FT;+Ь:З#м2,д60);+┤DЗ#м2,═"$###.##";ST;+├NЗ#м2,д68);+▀XЗ#м2,═" $#,###.##";NET+юbЗ#м2,д20);,lЗ#м2,═" REG HOURS- ##.##";H;,3vЗ#м2,═" O T HOURS ##.##";O;,PАЗ#м2,═" RATE- $##.##";S,pКЮ:Й"PRINT ANOTHER (Y/N)";K$,НФЕ K$┤▓"Y" ░ K$┤▓"N" з650,аЮЕ K$│"Y" з 690,│иЕ K$│"N" з 910,╞▓Ю:З:Й"NAME";N$,щ╝З:З"TO CONTINUE PRESS ANY KEY"-╞C$│ Т:Е C$│"" з 710- ╨Ю:З@5,;-'┌Й"REG.HOURS WORKED";H-FфЙ" O T HOURS WORKED";O-hюЗ" ----------------------"-Ж°Й" WAGES/PER/HOUR ";S-иЗ" ----------------------"-═ З═" REG SALARY IS $####.##";HнS-ўЗ═" O T SALARY IS $####.##";OнSн1.50. X│HнS.*Z│OнSн1.50.4W│XлZ. >З.DHЗ═"GROSS WAGES ARE: $####.##";W.`RЙ" F.I.C.A.";SS.|\Й" FEDERAL TAX";FT.ШfЙ" STATE TAX";ST.╣pЗ" --------".ыzЗ═"NET WAGES ARE--->$####.##";WмSSмFTмST:З#м2/ДЗ" (PRINTING NEXT DATA)":Бе 490/1ОЮ:З@200,"THE END-THANKS !!"/<ШБе 920##";W.`RЙ" F.I.C.A.";SS.|\Й" FEDERAL TAX";FT.ШfЙ" STATE TAX";ST.╣pЗ" --------".ыzЗ═"NET WAGES ARE--->$####.##";WмSSмFTмST:З#м2/ДЗ" (PRINTING                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Р&В *** ENVELOP5 ***&5В *** DAVID M. ALLEN ***&QВ *** P. O. BOX 531 ***&sВ *** BREWSTER, WA. 98812 ***&и В: THIS PROGRAM PRINTS A SELF ADDRESSED ENVELOPE'Ю:З"SENDER ADDRESS":Й "NAME ";L1$:Й "COMPANY";C1$:Й "STREET ";L2$:╗Й "CTY,ST,ZIP ";L3$'dЗ "RECEIVER ADDRESS ":Й "NAME ";L4$:Й "COMPANY";C2$:Й "STREET ";L5$:╗Й "CTY,ST,ZIP ";L6$'║(АI│1е4:З#м2,д6);".";д69);".":Л:АI│1е74:З#м2,".";:Л:АI│1е2:З#м2,д6);".";д69);".":Л'▄2З#м2,д6);".";д9);L1$;д69);"."'ё<Е C1$│"" з Бе 80(FЗ#м2,д6);".";д9);C1$;д69);"."(5PЗ#м2,д6);".";д9);L2$;д69);"."(WZЗ#м2,д6);".";д9);L3$;д69);"."(zdАI│1е6:З#м2,д6);".";д69);".":Л(ЮnЗ #м2,д6);".";д30);L4$;д69);"."(┤xЕ C2$│"" з Бе 140(╫ВЗ#м2,д6);".";д30);C2$;д69);"."(·МЗ#м2,д6);".";д30);L5$;д69);".")ЦЗ#м2,д6);".";д30);L6$;д69);".")tаАI│1е7:З#м2,д6);".";д69);".":Л:АI│1е74:З#м2,".";:Л:АI│1е21:З#м2,д6);".";д69);".":Л)ПкА I│1е74:З#м2,".";:Л:КL4$;д69);"."(┤xЕ C2$│"" з Бе 140(╫ВЗ#м2,д6);".";д30);C2$;д69);"."(·МЗ#м2,д6);".";д30);L5$;д69);".")Ц                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ┤& В (C) 1986 RALPH D. MILLER&3Т149,0:Т150,17&9Ю&uЗ:З"ENTER THE ANNUAL INTEREST":Й"RATE, IN PERCENT: ";JU&ВM│JUо100&└З:З"ENTER THE NUMBER OF INTEREST":Й"PERIODS PER YEAR: ";Q&ЎЗ:З"ENTER THE NUMBER OF PAYMENTS":Й"PER YEAR: ";S''З:З"ENTER THE LOAN AMOUNT":Й"IN DOLLARS: ";A'] З:З"ENTER THE PERIOD OF THE LOAN":Й"IN YEARS: ";B's D│(1лMоQ)п(QоS)м1'У F│((1м(1лD)п(мSнB))пм1)нDнA'и C1│F:Бж52:F$│C1$'╜ C1│A:Бж52:A$│C1$'╨SP│ Ж(65314)░1'тЕ SP▓0 з Бж58' Ю:З@200,"printing table"(╥З#м2,"THE AMORTIZATION TABLE FOLLOWS FOR A $";A"LOAN AT"JU"PERCENT ANNUALLY,":З#м2,"INTEREST COMPOUNDED"Q"TIMES ANNUALLY AND PAYMENTS MADE"S"TIMES ANNUALLY" Л(13)"FOR"B"YEARS ("SнB"PAYMENTS ): " Л(13) Л(13)(█Бж62) З#м2,"INSTALLMENT AMOUNT:";F$; Л(13) Л(13))@З#м2,"PAYMENT","INTEREST","PAYMENT","OUTSTANDING")rЗ#м2,"NUMBER","ON DEBT","ON PRINC"," DEBT")┤З#м2,"-------","--------","--------","----------" Л(13) Л(13))┬DC│A:WY│0)█А Y│(WYл1) е (WYл10))чHM│DCнD)■C1│HM:Бж52:HM$│C1$* RT│FмHM*!C1│RT:Бж52:RT$│C1$*.LF│DCмRT*EC1│LF:Бж52:LF$│C1$*NБж64*q C1│Y:Бж56:З#м2,C1$,HM$,RT$,LF$*В!Е LF▓│F з 45*Ф"Y│Yл1:HM│LFнD*л#C1│HM:Бж52:HM$│C1$*╕$RT│LFмHM*╨%C1│Y:Бж56:З#м2,C1$,*ю&C1│HM:Бж52:Бж69:З#м2,C1$,+ 'C1│LF:Бж52:Бж69:З#м2,C1$,+(З#м2,"NIL"+-)C1│HMлLF:Бж52+U*Е F$┤▓C1$ з З#м2,"LAST PAY'T: ";C1$+k+З#м2, Л(12) Л(12)+t,Бе 3+~-DC│LF+Ж.Л Y+Щ/Е (SнB)▓Y з 49+г0Бе 51+░1WY│WYл10+║2Бе 24+└3Р+┘4C2│ Б(100нC1л.5)о100+Є5C1$│"$"л Р( И(C2),2),6Е C2│ Б(C2) з C1$│C1$л".00",7Р,-8C1$│ Р( И(C1),2),39Р,R:Ю:З@198,"printer off line",g;SP│ Ж(65314) ░ 1,x<Е SP┤▓0 з 59,~=Р,┤>JF$│ П(F$,3):IG$│ О(JF$,1):Е IG$┤▓"." з F$│F$л"0",║?Р,├@Бж69,№AJF$│ П(HM$,3):IG$│ О(JF$,1):Е IG$┤▓"." з HM$│HM$л"0"-5BJF$│ П(RT$,3):IG$│ О(JF$,1):Е IG$┤▓"." з RT$│RT$л"0"-nCJF$│ П(LF$,3):IG$│ О(JF$,1):Е IG$┤▓"." з LF$│LF$л"0"-tDР-нEJF$│ П(C1$,3):IG$│ О(JF$,1):Е IG$┤▓"." з C1$│C1$л"0"-│FР║?Р,├@Бж69,№AJF$│ П(HM$,3):IG$│ О(JF$,1):Е IG$┤▓"." з HM$│HM$л"0"-5                                                                                                                                                                                                                                                                 ў& В MICHAEL B. KROMEKE&4М A,A$,B,B$,X,P(9):Ю0&sА X│1057 е 1086:Т X,140:ТXл64,131:ТXл160,140:ТXл288,131:ЛX&├(З@7," CORRECT SOLUTION ";:А X│0 е 9 й 3:З@68лX, Л(191);:З@83лX, Л(175);:Л X'2А X│1056 е 1120 й 32:Т X,143:Т Xл31,143:Л X:А X│1216 е 1344 й 32:Т X,143:Т Xл31,143:Л X'7 ";:З@411," <=";:З@415, Л(191);(dЗ@459,"PRESS 'X'";:З@489,"TO TRY AGAIN ";:Бе260(nA$│ Т:Е A$│""з 110(2xЕ A$│"X" з О 20(SВA│ Й(A$):Е A┤1 ▒ A▓9 зБе 250(eМЕ P(A)│1з 210(xЦЕ P(A)│0 з 250(КаЕ Aм1│0 з 250(╡кЕ P(Aм1)│0 з P(Aм1)│P(A):P(A)│0:Бе 260(╟┤Е Aм2│0 з 250(Є╛Е P(Aм2)│0 з P(Aм2)│P(A):P(A)│0:Бе 260(¤╚Бе 250)╥Е Aл1│10 з 250);▄Е P(Aл1)│0 з P(Aл1)│P(A):P(A)│0:Бе 260)NцЕ Aл2│10 з 250)yЁЕ P(Aл2)│0 з P(Aл2)│P(A):P(A)│0:Бе 260)Й·а1,3:Бе 110)бЗ@228,"";:А X│1 е 9)┐Е P(X)│1 з З( Л(175));B$;)▄Е P(X)│0 з З B$л Л(128);)°"Е P(X)│2 з З  Л(191)B$;*X,Л X:а 99,2:а 140,1:Е B│1 з З@170,"CHANGE places";:B│0::Д Е B│0 з З@170,"change PLACES";:B│1*y6А X│1е4:Е P(X)┤▓2 з 110 :Д Л*Н@Е P(5)┤▓0 з 110*┤JА X│1 е 255 й 3:аX,2:Т 65314,X:Л X*╞TЮ3:А X│1 е 20*Ў^З@ Д(500)," YOU DID IT ";:а  Д(255),4:Л X:К*X,Л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Y&Ю&Т65495,0&NЙ"ENTER AMOUNT OF INCREASE IN DECIMAL FORM : %";A&ВЙ"ENTER YOUR PRESENT HOURLY WAGE XXX.XX : $";B&ЩА J │ 1 е 1000:Л J&ЯЮ&╖З@0,"% INCREASE :"A&┌З@32,"wage groups current new"&я З@67,"HOURLY :"B' I│BнA : B1│IлB' З@83,B1'" D│Bн8 : D1│B1н8'7 З@100,"DAILY :"D'DЗ@115,D1'XC│Dн5 : C1│D1н5'nЗ@131,"WEEKLY :"C'{З@147,C1'ПM│Cн4 : M1│C1н4'жЗ@162,"MONTHLY :"M'│З@179,M1'╦Y│Dн260 : Y1│D1н260'сЗ@195,"YEARLY :"Y'юЗ@213,Y1(З@264,"wage rate differences"(X│B1мB(=З@288,"HOURLY DIFFERENCE :"X(HS│D1мD(jЗ@320,"DAILY DIFFERENCE :"S(uT│C1мC(ЧЗ@352,"WEEKLY DIFFERENCE :"T(вQ│M1мM(─ З@384,"MONTHLY DIFFERENCE :"Q(╧!K│Y1мY(ё"З@416,"YEARLY DIFFERENCE :"K) #З@448,"AGAIN ? y/n")+$A$│ Т : Е A$│ Л(89) з 1 :Д 37)F%Е A$│ Л(78) з 38 :Д 36)X&Т 65494,0:Ю:КIFFERENCE :"S(uT│C1мC(ЧЗ@352,"WEEKLY DIFFERENCE :"T(вQ│M1мM(─ З@384,"MONTHLY DIFFERENCE :"Q(╧!K│Y1мY(ё"З@416,"YEARLY DIFFERENCE :"K) #З@448,"AG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,108)м(505,122),╜,B:ъ(550,108)м(590,122),╜,B8XьА L│72 е 505 й 40:ъ(L,108)м(L,122),╜:Л L8tЎъ(26,124)м(585,138),╜,B8бА L│66 е 560 й 40:ъ(L,124)м(L,138),╜:Л L8╜ ъ(32,140)м(590,154),╜,B8ъА L│72 е 590 й 40:ъ(L,140)м(L,154),╜:Л L9ъ(45,156)м(585,170),╜,B93(А L│88 е 560 й 40:ъ(L,156)м(L,170),╜:Л L92ъ(95,172)м(485,186),╜,B:ъ(510,172)м(586,186),╜,B:ъ(548,172)м(548,186),╜9Р<ш(10,85),1,19▒Fч 3,1:ъ(80,87)м(500,96),╜,BF9ъPч 1,4:ю(18,11),"COCO III Typing Tutor....by L. Hyre"9ЇZч 2,1:&dъ(0,0)м(619,60),╜,B:ъ(4,2)м(616,58),╜,B:ч 1,0:░nш(90,142),3,1:ш(140,142),3,1:ш(180,142),3,1:ш(220,142),3,1:ш(340,142),3,1:ш(380,142),3,1:ш(420,142),3,1:ш(460,142),3,1:ш(560,120),3,1:╢xР:╜В:Г:ЁМ:Г*** DATA FOR EXERCISES READ IN FROM HERE ***:ўЦ:Г;PаА X│1 е 36:Н A$(X):Л:А X│1 е 36:Н B$(X):Л:А X│1 е 18:Н C$(X):Л:А X│ 1 е 12:Н D$(X):Л< кЖ SFAD,FADS,KJL;,J;LK,GHTU,UGHT,WEVN,VEWQ,INOP,PINO,ZXTR,BRNY,CLOS,SEKP,TYUI,REOP,MVWH,DALK,VBNC,ZXCV,DEKI,AIAI,SUEA,QWOI,KSDJ,FDSA,JKLO,QWTR,OICN,NOQZ,HG;A,SLKD,YTOW,QOEI,ERLM,PSTR<─┤Ж A1S2,D3F5,T4Y5,7K86,POQW,D3L0,J5K1,0932,D012,PCB4,CR45,USA0,Z021,MO3D,L0O9,DR13,PR3V,ZPR6,NHU8,H0DX,XYP3,01CE,NL90,SL02,P03C,X09E,MOT5,9371,C0Z3,FH03,DX34,NL90,HNLZ,ZN37,CDE3,LKN8=╛Ж DOWNTOWN,EVERYDAY,ANTICIPATE,MERIDIAN,MAXIMUM,IMITATE,ZESTFUL,UNDERSTAND,OVERCOME={╚Ж MEANINGFUL,XYLOPHONE,SCHOOLING,PHOTOGRAPH,EXONERATE,INTERFACE,COMPUTER,GREATEST,MAGAZINE>g╥Ж NOW IS THE TIME FOR ALL GOOD MEN,EVERY GOOD BOY WILL HAVE HIS DAY,THERE IS NOTHING STOPPING ME NOW,ROSES ARE RED-VIOLETS ARE VIOLET,MANY A GOOD MAN HAS GONE ASTRAY,I LOVE TO TYPE WITH MY OWN TANDY,THE SLY FOX WILL GET THE CHICKEN?▄Ж COMPUTERS ARE NOT ACTUALLY SMART,HE LIKES TO WRITE HIS OWN STORIES,OSTRICHES ARE VERY STRANGE BIRDS,PLUTO AND CHARON ARE FAR DISTANT,DANCING AND SINGING CELEBRATIONS?цР? Ё:Г?M·:Г** This CLEARS the MENU and WORK Areas?T:Г?Щ╔"T10N$=A$(E) OR AN$=B$(E) THEN HPRINT( 4,77:PRINT TI;:PLAY"O5C"?╡E│1:ь(8,5)м(268,56),1,╜?╧"ь(355,5)м(615,56),1,╜?щ,ь(140,5)м(400,56),1,╜?я6Р?Ў@:Г@J:Г** The TITLE ROUTINE is here@ T:Г@5^у ў:т 40:ф 2:ц 3@Фhч 1:ъ(50,10)м(280,30),╜,BF:ч 14:ю(9,2),"The CC-III TYPING TUTOR":ч 2:ъ(52,13)м(278,27),╜,B@═rч 14:ъ(50,120)м(270,170),╜,B:ъ(52,122)м(268,168),╜,BA|ш(55,130),4,14:KEY$│"U4R9D4R2U4R9D4R2U4R9D4R2U4R9D4R2U4R9D4R2"AFЖKEY$│KEY$лKEY$лKEY$:ї"BM70,160;C14;XKEY$;U4R9D4;"AдРї"BM70,153;C14;XKEY$;U4R9D4;":ї"BM70,146;C14;XKEY$;U4R9D4;":ї"BM70,139;C14;XKEY$;U4R9D4;"A╓Ъч 4:ъ(42,118)м(280,100),╜,B:ч 2:ш(50,105),2,4AЎдч 14:ъ(32,95)м(41,125),╜,BFBоъ(290,95)м(281,125),╜,BFB/╕ъ(68,165)м(248,130),╜,BBL┬ї"BM120,129;C14;E8R62F8"Bm╠ч 4:ъ(90,112)м(228,102),╜,BFBё╓ч 14:T1$│"COCO III":А X│1 е  З(T1$):ю(16,13), О(T1$,X):╔"T32O1CP32E":Л:ч 4:ъ(90,102)м(228,92),╜,BF:╔"O5EO4EO5P30E":ю(16,13),T1$Cрч 14:ю(16,12),T1$CRъT2$│"Typing Tutor":А X│1 е  З(T2$):ю(14,13), О(T2$,X):╔"T32O1DCP32E":ЛC║Їч 4:ъ(90,92)м(228,82),╜,BF:╔"O5EO4EP32O5E":ю(16,12),T1$:ю(14,13),T2$:ч 14:ю(16,11),T1$:ю(14,12),T2$D■T3$│"by L. Hyre":А X│1 е  З(T3$):ю(15,13), О(T3$,X):╔"T32O1DCP32E":ЛDА TM│1 е 1200:Л:РD :ГDP:Г** ON BRK comes here to clean up the act!DW&:ГDЮ0т 32:┐ 0:Ю:Т 65496,0:З"NORMAL SPEED RESTORED":З"PROGRAM STOPPED":Кю(16,11),T1$:ю(14,12),T2$D■T3$│"by L. Hyre":А X│1 е  З(T3$):ю(15,13), О(T3$,X):╔"T32O1DCP32                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Я&8 :Г************************************************&o:Г* The COCO III TYPING TUTOR *&ж:Г* *&▌(:Г* by Leonard Hyre *'2:Г* *'K<:Г* REQUIRES COCO III WITH RGB 80 COL.DISPLAY *'ВF:Г* *'╣P:Г************************************************'└U:Г'тdМ A$(36),B$(36),C$(18),D$(12)'щn:Г'Ўxэ 1,6400(@ВТ 65497,0:В *** IT IS RECOMMENDED THAT THIS LINE BE TYPED IN LAST ***(GМ:Г(ПЦ:Г** ON BRK Allows Restoration To Normal Operation If Break Pressed(Ца:Г(жкИ Ё Бе 1840(н┤:Г(╫╛Бж 1630::Г** This is the TITLE screen) ╚Бж 1440::Г** This READS in the DATA statements);╥Бж 1140::Г** This draws the KEYBOARD display)B▄:Г)eц:Г** Menu Display Created Here)lЁ:Г)°·у 1,255:у 2,54:ч 1,0:ю(20,1),"The MENU....":ю(28,2),"1> Beginners Exercises":ю(28,3),"2> Advanced Exercises":ю(28,4),"3> Word Exercises*ю(28,5),"4> Phrase Practice"*2CH$│ Т:Е CH$│""з 270*TЕ  Й(CH$)┤1 ▒  Й(CH$)▓4 з 270*n"ь(140,5)м(400,56),1,╜*П,И  Й(CH$) Бе 750,750,340,570*Ц6:Г*╝@:Г*** ROUTINE FOR SELECTION 3 ****├J:Г*╒Tу 2,50:у 3,38+ ^ч 2:ю(1,1),"Word Practice.....":ч 3:ю(56,1),"'?' at prompt=MENU":ч 1,0+Phю(63,3),"DON'T WORRY":ю(63,4),"ABOUT SPEED"+orч 2:ъ(500,20)м(594,42),╜,B+╣|ч 1:ю(14,6),"Repeat These Exercises Until You Can Type Them Smoothly"+╚ЖА E│1 е 18+·Рю(20,2),"Here is your word....":ю(42,2),C$(E),Ъч 2:ю(34,3),"Type....":ч 1,$дAN$│"",;оА LX│1 е  З(C$(E)),x╕TP$│ Т:Е TP$│""з 440 :Д Е TP$│"?"з Бж 1560:Бе 250 :Д 450,И┬AN$│AN$лTP$,Ш╠ю(42,3),AN$,б╓Л LX,╙рЕ AN$│C$(E) з ╔"T130V15O3EO4EO5EP32O3EO4EO5E"-ъЕ AN$┤▓C$(E) з у 0,53:╔"O1T64CG":у 0,0:E│Eм1-*Їч 0:ю(42,2),C$(E):ю(42,3),AN$:ч 1-2■Л E-=Бе 390-HБе 530-O:Г-w&:Г *** ROUTINE FOR PHRASE EXERCISES-~0:Г-Р:у 2,27:у 3,46-ъDч 2:ю(1,1),"Words and Sentence Accuracy....":ч 3:ю(60,1),"'?'at prompt=MENU":ч 1:TC│0.ENю(14,6),"24 Correct Required!":ч 2:ю(50,6),"Correct=":ю(59,6),TC:ю(60,2),"=ABORT".TXА E│1 е 12.Кbч 2:ю(1,2),"Your Phrase Is....":ч 1:ю(20,2),D$(E).зlч 3:ю(14,3),"Type->":ч 1.▓vAN$│"".╔АА LX│1 е  З(D$(E))/КTP$│ Т:Е TP$│""з 650 :Д Е TP$│"?"з Бж 1560:Бе 250 :Д Е TP$│ Л(13) з 690 :Д 660/,ФAN$│AN$лTP$/AЮю(20,3),AN$:Л LX/миЕ AN$│D$(E) з ╔"T130V15O3EO4EO5EP32O3EO4EO5E":ч 0:ю(59,6),TC:TC│TCл1:ч 2:ю(59,6),TC:ч 1:Е TC│24 з 1050/▌▓Е AN$┤▓D$(E) з у 0,53:╔"O1T64CG":у 0,0:E│Eм10╝ч 0:ю(20,2),D$(E):ю(20,3),AN$:ч 10 ╞Л E0╨:Г0<┌:Г*** ROUTINES FOR SELECTIONS 1 AND 20Cф:Г0пюу 2,53:у 3,36:А E│1 е 36:TI│0:Е  Й(CH$)│1 з ю(1,1),"Beginners Exercises" :Д ю(1,1),"Advanced Exercises"0╙°ч 3:ю(60,1),"'?'at prompt=MENU"0¤ч 2:ю(1,2),"Here is the Exercise...."14 ч 1:ю(23,6),"Type Each Exercise Correctly 4 Times"1eЕ  Й(CH$)│1 з ю(26,2),A$(E) :Д ю(26,2),B$(E)1С ч 2:ю(61,2),"Times Perfect=":ю(75,2),TI1ж*ч 1:ю(24,3),"->"1▒4AN$│""1└>А LX│1 е 41ЎHTP$│ Т:Е TP$│""з 840 :Д Е TP$│"?"з Бж 1560:Бе 2502RAN$│AN$лTP$2\ч 2:ю(26,3),AN$2 fЛ2wpЕ AN$│A$(E) ▒ AN$│B$(E) з ╔"T255O5CDEFG":ч 0:ю(75,2),TI:ч 2:TI│TIл1:ю(75,2),TI:ч 12╤zЕ CH$│"1"░ AN$┤▓A$(E) ▒ CH$│"2" ░ AN$┤▓B$(E) з у 0,53:╔"O1T64CEG":А DL│1 е 10:Л:у 0,02хДч 0:ю(26,3),AN$3*ОЕ CH$│"1" ░ TI│4 з ч 0:ю(26,2),A$(E):ч 1:Л :Д Е CH$│"1" з Бе 8203cШЕ CH$│"2" ░ TI│4 з ч 0:ю(26,2),B$(E):ч 1:Л :Д Бе 8203jв:Г3Цм:Г** This is the GRADUATION Certificate3Э╢:Г3▓└у ў:т 40:ф 2:ц 83║╩ч 13╙╘ъ(0,0)м(319,191),╜,B3■▐ї"BM240,50;C1U20E20R30F20D20G20L30H20"4шш(260,40),1,14OЄч 3:ю(32,4),"GOLD-":ю(32,5),"MEDAL":ъ(248,27)м(300,52),╜,B4o№ч 2:ю(34,2),"*":ю(34,7),"*"4Чч 5:ю(5,5),"GRADUATION CERTIFICATE"4╧ч 7:ъ(24,32)м(230,52),╜,B:ч 0:ъ(22,30)м(232,54),╜,B53ч 4:ю(2,12),"You are hereby awarded a certificate":ю(3,14),"for the 'CC-3 TYPING TUTOR COURSE'"5R$ч 3:ъ(10,82)м(310,126),╜,B5m.ч 5:ю(1,16), б(38,"*")5И8ч 3:ю(1,18), б(38,"*")5гBч 1:ю(1,20), б(38,"*")5┼LAK$│ Т:Е AK$│""з 1100 :Д 18405╠V:Г5√`:Г** Here is where the KEYBOARD is created6j:Г6tу ў:т 806~у 0,0:у 3,862Иу 1,255:у 2,546@Тф 4:ч 1,06\Ьц 0:ы(140,5)м(400,56),16Ожъ(20,100)м(600,190),╜,B:ъ(5,70)м(615,195),╜,B6у░ю(3,14)," 1 2 3 4 5 6 7 8 9 0 : - esc"77║ю(2,16)," alt Q W E R T Y U I O P @ clr ^"7М─ю(3,18)," ctr A S D F G H J K L ; ent lf rt"7▐╬ю(4,20)," shft Z X C V B N M , . / shft dwn"7Ў╪ю(64,22)," F1 F2"8+тъ(32 S&U :Г*>BARREL PUZZLE<* *>BY PAUL D. BUTTACAVOLI<* *>NOV. 1986<*&j у ў:И Ё Бе 10000&Ъ т 40:Ю:ё11,11:°0,1,B:З"*>BARREL PUZZLE<*";&г °0,1&╟ё 11,23:З"WANT INSTRUCTIONS? ";&■X$│ Т:Е X$│"" з 15 :Д Е X$│"Y" ▒ X$│"y" з Бж 20000'$Ю:ё8,0:З"JOYSTICK OR KEYBOARD? ";';J$│ Т:Е J$│"" з 17'lЕ J$┤▓"J" ░ J$┤▓"K" ░ J$┤▓"j" ░ J$┤▓"k" з 17'zТ&HFFD9,0'И2А X│0 е 7'Р<Н C'ЪFу X,C'вPЛ X'╛ZЖ 63,0,15,32,53,55,20,7'╞dф 2'╠gц'╘iC│2'ъnА X│65 е 265 й 50(xА Y│20 е 170 й 30(.ВЕ X│115 ▒ X│215 з Е Y│20 ▒ Y│170 з Бе 150(IМщ(X,Y),12,1:ш(X,Y),C,1(QЦЛ Y([аC│Cл1(cкЛ X(z┤А X│65 е 265 й 100(К╛ш(X,20),7,1(Ы╚ш(X,170),0,1(г╥Л X(▓╘ш(0,0),1,1(║╫U│1(╥,X$│ Т:Е X$│"" з 300(с-И я Бе 300)/Е X$│"L" ▒ X$│"l" Бж 40000:Бе 340)6А A│0 е 40л Д(20))д;B│ Д(6):Е B│2 ░ C│1 з 315 :Д Е B│1 ░ C│2 з 315 :Д Е B│3 ░ C│5 з 315 :Д Е B│5 ░ C│3 з 315 :Д Е B│4 ░ C│6 з 315 :Д Е B│6 ░ C│4 з 315)╤@C│B:И B Бж 1000,2000,3000,4000,5000,6000)┘JЛ A*TИ я Бе 340:Е J$│"J" ▒ J$│"j" з 600*ЇX$│ Т:Е X$│"" з 500*0■Е X$│"^" з Бж 2000*JЕ X$│ Л(10) з Бж 1000*dЕ X$│ Л(21) з Бж 3000*~Е X$│ Л(93) з Бж 5000*Ч&Е X$│ Л(8) з Бж 4000*░0Е X$│ Л(9) з Бж 6000*╧3Е X$│"S" ▒ X$│"s" Бж 30000*ю5Е X$│"L" ▒ X$│"l" Бж 40000*∙:Бе 500+XB│ Н(0):C│ Н(1):D│ к(0):X$│ Т+4bЕ B┤20 ░ D│0 Бж 4000+MlЕ B▓40 ░ D│0 Бж 6000+fvЕ B┤20 ░ D│1 Бж 3000+АЕ B▓40 ░ D│1 Бж 5000+ТКЕ C┤20 Бж 2000+еФЕ C▓40 Бж 1000+─ЧЕ X$│"S" ▒ X$│"s" Бж 30000+уЩЕ X$│"L" ▒ X$│"l" Бж 40000+юЮБе 600+¤шВ *>DOWN<*, эЕ U│0 з Р,яU│0,*ЄА X│65 е 265 й 100,@№А Y│170 е 20 йм30,NC│ л(X,Y),`ш(X,Yл30),C,1,jЛ Y,X,Б$А X│65 е 265 й 100,С.ш(X,20),0,1,Щ8Л X,ЯBР,м╨В *>UP<*,║╒Е U│1 з Р,┬╫U│1,┘фА X│65 е 265 й 100,яюА Y│50 е 170 й 30,¤°C│ л(X,Y)-ш(X,Yм30),C,1- Л Y,X-0А X│65 е 265 й 100-A ш(X,170),0,1-I%Л X-O*Р-b ╕В *>TOP LEFT<*-А ┬C1│ л(65,50):C2│ л(65,70)-Ч ╠А X│115 е 265 й 50-│ ╓C3│ л(X,50):C4│ л(X,80)-╫ ■ш(Xм50,50),C3,1:ш(Xм50,80),C4,1-▀ Л X. ш(265,50),C1,1:ш(265,80),C2,1. 0Р.аВ *>BOTTOM LEFT<*.=кC1│ л(65,110):C2│ л(65,140).T┤А X│115 е 265 й 50.r╛C3│ л(X,110):C4│ л(X,140).Шцш(Xм50,110),C3,1:ш(Xм50,140),C4,1.аыЛ X.─ш(265,110),C1,1:ш(265,140),C2,1.╩Р.▐ИВ *>TOP RIGHT<*.■ТC1│ л(265,50):C2│ л(265,80)/ЬА X│215 е 65 йм50/0жC3│ л(X,50):C4│ л(X,80)/T─ш(Xл50,50),C3,1:ш(Xл50,80),C4,1/\╬Л X/|ьш(65,50),C1,1:ш(65,80),C2,1/ВЎР/ЩpВ *>BOTTOM RIGHT<*/╗zC1│ л(265,110):C2│ л(265,140)/╤ДА X│215 е 65 йм50/яОC3│ л(X,110):C4│ л(X,140)0мш(Xл50,110),C3,1:ш(Xл50,140),C4,10╢Л X0?╘ш(65,110),C1,1:ш(65,140),C2,10E▐Р0S'Т&HFFD8,00['у ў0z'$Ю:З" THANKS FOR PLAYING!":0И'.З:З:З:З:К0ЯN В *>INSTRUCTIONS<*1РN*Ю:З" THE PUZZLE CONSISTS OF COLUMNS OF COLORED BALLS. THERE ARE 4 BALLS OF 5 COLORS, AND 3 GRAY BALLS. THE OBJECT IS TO ARRANGE THE COLORED BALLS IN COLUMNS.THE GRAY BALLS GO AT THE TOP OF THE LEFT, RIGHT AND CENTER COLUMNS."2DN4З:З" WHEN YOU FIRST SEE THE PUZZLE, IT WILL BE IN ONE OF A NUMBER OF POSSIBLE SOLVED POSITIONS. PRESSING ANY KEY EXCEPT BREAK WILL THEN RANDOMLY SCRAMBLETHE BALLS."3:N>З:З" WHEN MOVING BALLS, THEY MOVE UP AND DOWN IN GROUPS OF 15, OR LEFT AND RIGHT IN GROUPS OF 10. WHEN MOVING UP OR DOWN,YOU MOVE THE LEFT, RIGHT AND CENTER COLUMNS. WHEN MOVING LEFT OR RIGHT, YOU MOVE THE 2 TOP ROWS, OR THE 2 BOTTOM"3GNHЗ"ROWS."3pNRЗ:Й" PRESS TO CONTINUE";X$3СN\Ю:З" JOYSTICK MOVEMENT:":З3▓NfЗ"FORWORD: MOVE COLUMNS UP."3╥NpЗ"BACK: MOVE COLUMNS DOWN."3ёNzЗ"LEFT: MOVE BOTTOM LEFT."4NДЗ"RIGHT: MOVE BOTTOM RIGHT."45NОЗ"LEFT+BUTTON: MOVE TOP LEFT."4ZNШЗ"RIGHT+BUTTON: MOVE TOP RIGHT."4{NвЗ:З" KEYBOARD MOVEMENT:":З4ЭNмЗ"UP ARROW: MOVE COLUMNS UP."4├N╢З"DOWN ARROW: MOVE COLUMNS DOWN."4шN└З"LEFT ARROW: MOVE BOTTOM LEFT."5N╩З"RIGHT ARROW: MOVE BOTTOM RIGHT."57N╘З"SHIFT LEFT ARROW: MOVE TOP LEFT."5aN▐З"SHIFT RIGHT ARROW: MOVE TOP RIGHT."5ИNсЗ:З"PRESS S TO SAVE YOUR POSITION"5▒NуЗ"PRESS L TO LOAD YOUR OLD POSITION"5┘NшЗ:З:Й" PRESS TO BEGIN";X$5▀NЄР5юu0В *>SAVE<*6u:Щ"O",#1,"PUZZLE.DAT"6uDЗ#1,U6'uNА X│65 е 265 й 506=uXА Y│20 е 170 й 306jubЕ X│115 ▒ X│215 з Е Y│20 ▒ Y│170 з 300706~ulF│ л(X,Y):З#1,F6ИuvЛ Y,X6СuАЪ #16ЧuКР6жЬ@В *>LOAD<*6┐ЬTЩ"I",#1,"PUZZLE.DAT"6╩Ь^Й #1,U6рЬhА X│65 е 265 й 506ЎЬrА Y│20 е 170 й 307#Ь|Е X│115 ▒ X│215 з Е Y│20 ▒ Y│170 з 4008079ЬЖЙ #1,C:ш(X,Y),C,17CЬРЛ Y,X7LЬЪЪ #17RЬдР Y│20 ▒ Y│170 з 300706~ulF│ л(X,Y):З#1,F6ИuvЛ Y,X6СuАЪ #16ЧuКР6жЬ@В *>LOAD<*6┐ЬTЩ"I",#1,"PUZZLE.DAT"6╩Ь^Й #1,U6рЬhА X│65 е 265 й 506ЎЬrА Y│20 е 170 й 307#Ь|Е X│@480,S$;8.JЗ@480,"ENTER ACCOUNT NAME ";:╗ЙQ$8JPЕQ$│""зA1$(I)│A2$:Д13708UUБе13058pZA1$(I)│ О(Q$,8):Бе13058dP│0:Бе11848ПiP1│0:Бе21108ЭnA│0:Бе4458░xЕP│1▒P1│1з14108┬}ЕD│1▒A│1з14208╓ВP│0:P1│0:Бе10008шМD│0:A│0:Бе1008Є@Ю:N│19 EЗ@106,"SORT OPTIONS"9)GЗ@166,"<1> SORT BY MONTH"9IJЗ@198,"<2> SORT BY ACCOUNT"9cOЗ@230,"<3> MAIN MENU"9QЗ@294,"ENTER <1-3>";:ЙQ9СTЕQ┤0░Q▓3з16009йYИ Q Бе1630,1720,1009╢^А I│1е129┐cБж129╙hЕD$(N,2)│""з1009юmЕ D(N,1)│I з1650:Д16559 rN│Nл1:Бе1635:wS│N:"|S│Sл1:ЕD$(S,2)│""з1700:7БЕD(S,1)┤▓I з1660:oЖY$(1)│D$(N,1):Y$(2)│D$(N,2):Y(1)│D(N,1):Y(2)│D(N,2):пЛD$(N,1)│D$(S,1):D$(N,2)│D$(S,2):D(N,1)│D(S,1):D(N,2)│D(S,2):чРD$(S,1)│Y$(1):D$(S,2)│Y$(2):D(S,1)│Y(1):D(S,2)│Y(2):ЎХN│Nл1:Бж12;ЪЕ Q│2 з1765;ЯБе1660;дЛ;$╕А I│1е26;-╜Бж12;A┬ЕD$(N,2)│""з100;`╟ЕD$(N,1)│A$(I)з1740 :Д1745;q╠N│Nл1:Бе1725;y╤S│N;Ф╓S│Sл1:ЕD$(S,2)│""з1770;н█ЕD$(S,1)┤▓A$(I)з1750;╕рБе1670;├хБе1750;╔ъЛ;╙lЮ:N│1;ЇqЗ@194,"INSERT DATA DISK NOW"<vЗ@226,"PRESS TO SAVE OR"<:{З@258,"ENTER ENU ";:╗ЙQ$">Ю:З@227,"CALCULATING ACCOUNT TOTALS">8CАX│1е12:MT(X)│0:Л>MHЕD$(N,2)│""з2145>fMЕD$(N,1)┤▓A$(I)з2140>|RЕD$(N,2)│DE$з2140>ЭWMT(D(N,1))│MT(D(N,1))лD(N,2)>о\N│Nл1:Бе2120>┤aЮ>╙fЗ#мZ,д12);A1$(I):ЕZ│2зЗ#мZ>їkЗ#мZ,д8);"MONTH";д19);"TOTAL"?pАX│1е12? uЗ#мZ,д6);:З#мZ,═"#####";X;?GzЗ#мZ,д15);:З#мZ,═"######.##";MT(X)?MЛ?VДЗ#мZ?eЗЕMN│1з2310?sЙЕZ│0з2195?ГОЗ#мZ:Бе2200?кУЗ@483,"

RINT OR EXT ACCOUNT";?╩ШQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"N"з2200?█ЭЕQ$│"N"з2100?ъвZ│2:Бе2150@╩Ю:З@228,"CALCULATING MONTHLY NETS"@╧N│1:Z│0@3╘АX│1е12:MT(X)│0:Л@H┘ЕD$(N,2)│""з2295@^▐ЕD$(N,2)│DE$з2290@sуI│ К(D$(N,1))м64@жшЕ О(A1$(I),1)│"-"зMT(D(N,1))│MT(D(N,1))мD(N,2)@┘эЕ О(A1$(I),1)│"+"зMT(D(N,1))│MT(D(N,1))лD(N,2)@ъЄN│Nл1:Бе2265@ЁўЮA ∙З#мZ,д11);"NET INCOME"A№ЕZ│2зЗ#мZA) MN│1:Бе2155A< MN│0:ЕZ│0з2312AL З#мZ:Бе2313Ak З@487,"

RINT OR ENU";AЛ Q$│ Т:ЕQ$┤▓"P"░Q$┤▓"M"з2313AЬ ЕQ$│"M"з1000Aл Z│2:Бе2297(A1$(I),1)│"+"зMT(D(N,1))│MT(D(N,1))лD(N,2)@ъЄN│Nл1:Бе2265@ЁўЮA ∙З#мZ,д11);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 м&Ю:З@232,"COCO ACCOUNTANT"&2:ГJ.A.PHILLIPS&H:Г12 WILBUR BLVD.&e:ГPOUGHKEEPSIE, NY 12603&r:Г3/8/84&{ Бе30&Ь Ю:З@231,"SORTING ENTRY #"N:Р&╔Ю:З@230,"MAX OF "E" ENTRIES":АJ│1е1000:Л&╙Бе100&▐Х 7000&ш(E│360'/2МD$(Eл1,2):МD(Eл1,2):МA$(26):МA1$(26):МY$(2):МY(2):МT(26):М MT(12)'G LOAD OLD DATA"(nЗ@164,"<2> DEFINE/VIEW ACCOUNTS"(+sЗ@196,"<3> ADD NEW DATA"(LxЗ@228,"<4> VIEW/DELETE DATA"(l}З@260,"<5> PRINT SUMMARIES"(ЖВЗ@292,"<6> SORT DATA"(дЗЗ@324,"<7> SAVE NEW DATA"(└МЗ@388,"ENTER <1-7>";:ЙQ(╤СЕQ▓7▒Q┤1з100(√ЦИ Q Бе200,1300,400,700,1000,1600,1900)╚Ю:N│1)&═З@196,"INSERT DATA DISK NOW")H╥З@228,"PRESS TO LOAD")l╫З@260,"OR ENTER ENU ";:╗ЙQ$)Д▄ЕQ$┤▓""░Q$┤▓"M"з200)ШсЕQ$│""з230:Д100)│цЩ "I",#1,"ACCOUNT/DAT")└ыА I│1е26)╧ЁЙ#1,A1$(I))╒їЛ)х·Е  М(1)з270)ї Й#1,D$(N,1)*Й#1,D$(N,2)*Й#1,D(N,1)*#Й#1,D(N,2)*3N│Nл1:Бе250*AА I│N е E*mD$(I,1)│"":D$(I,2)│"":D(I,1)│0:D(I,2)│0*s"Л*Б,Ъ#1:Бе100*ЙРN│1*ЭХЕD$(N,2)│""з415*нЪN│Nл1:Бе405*╗ЯЕ N▓E з15*рдЮ:З@228,"ENTER MONTH <1-12>";:ЙQ*ЄйЕQ┤1▒Q▓12з420*·оM│Q+│D(N,1)│M+╕A│1:Бе1305+(╜D$(N,1)│A$(I)+L┬Ю:З@68,"ACCOUNT DATA ENTRY #";N+h╟З@129,"MONTH = ";D(N,1)+Ж╔З@141,"ACCOUNT = ";A1$(I)+з╠З@193,"DESCRIPTION = ";:╗ЙQ$+╖╓ЕQ$┤▓""з475+╨╪D$(N,2)│"NONE":Бе480+ц█D$(N,2)│ О(Q$,14)+єрЗ@193,S$,хЗ@193,"DESCRIPTION = ";D$(N,2),0ъЗ@257,"AMOUNT = ";:ЙQ,=ЇD(N,2)│Q,R∙N│Nл1:Е N▓E з 15,]■Бе 435,e╝N│1,П┴Ю:З " # M A DESCRIPTION AMOUNT",Ы╞АI│1е13,░╦ЕD$(N,2)│""з 770,▐╨З ═"###";N;:З д4);:З ═"##";D(N,1);:З д7);,Ё┌ЗD$(N,1);д9);-фЗ ═"% %";D$(N,2);:З д24);-1юЗ ═"####.##";D(N,2)-;°N│Nл1-A¤Л-iЗ@450,"=SCROLL <999>=QUIT"-ОЗ@482,"=VIEW/DELETE";:ЙQ-г ЕD$(N,2)│""з N│1-▓ ЕQ│999з100-└Е Q▓E з15-═ЕQ│0з705-уЮ:З@75,"ENTRY #"Q.З@131,"DESCRIPTION: "D$(Q,2).#З@230,"ELETE OR IEW".BQ$│ Т:ЕQ$┤▓"D"░Q$┤▓"V"з795.RЕQ$│"D"з800.`N│Q:Бе705.t D$(Q,2)│DE$:N│Q.~*Бе705.ИшЮ:N│1.бэЗ@73,"PRINT OPTIONS".╞ЄЗ@132,"<1> Y-T-D ACCOUNT TOTALS".эўЗ@164,"<2> 1-MONTH ACCOUNT TOTALS"/∙З@196,"<3> SINGLE ACCOUNT SUMMARY"/1√З@228,"<4> MONTHLY NETS"/X№З@260,"<5> ACCOUNT DATA (PRINTER)"/З@292,"<6> ACCOUNT NAMES(PRINTER)"/ЩЗ@324,"<7> MAIN MENU"/╡З@388,"ENTER <1-7>";:ЙQ/╟ ЕQ┤1▒Q▓7з1000/є И Q Бе1040,1038,2100,2250,1180,2000,1000Ю:З@228,"ENTER MONTH <1-12>";:ЙM10/Е M1┤1▒M1▓12з10380XЮ:З@227,"CALCULATING ACCOUNT TOTALS"0`Z│00vА I│1е26:T(I)│0:Л0Л)ЕD$(N,2)│""з11000и0ЕQ│2░ D(N,1) ┤▓ M1 з10950╛1ЕD$(N,2)│DE$з10950╙8I│ К(D$(N,1))м640шBT(I)│T(I)лD(N,2)0∙GN│Nл1:Бе10650 LЮ1'QЕQ│1зЗ#мZ,д6);"YEAR-TO-DATE TOTALS"1KTЕQ│2зЗ#мZ,д9);"MONTH"M1"TOTALS"1YVЕZ│2зЗ#мZ1f[А I│1е131~`З#мZ,д3);A$(I);д6);1ЪeЗ#мZ,═"######.##";T(I);1╖jЗ#мZ,д17);A$(Iл13);д20);1╒oЗ#мZ,═"######.##";T(Iл13)1█tЛ1ёyЕ Z│2зЗ#мZ :Д11552~З#мZ:Бе11602)ГЗ@483,"

RINT OR ENU OR ET";2QИQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"M"░Q$┤▓"N"з11602bНЕQ$│"M"з10002sПЕQ$│"N"з12502ВТZ│2:Бе11052СЬP│1:Бе13052└аЮ:З@226,"PRINTING DATA FOR ACCOUNT ";A$(I)2╚бN│12ъжЗ#м2,д11);A$(I)"="A1$(I):З#м23лЗ#м2,"MONTH";д8);"DESCRIPTION";д23);" TOTAL"31░ЕD$(N,2)│""з12353G▓ЕD$(N,2)│DE$з12303`║ЕD$(N,1)┤▓A$(I)з12303x┐З#м2,═"###";D(N,1);3Ж└З#м2,д8);3к─З#м2,═"% %";D$(N,2);3╣┼З#м2,д23);3╘╔З#м2,═"####.##";D(N,2)3х╬N│Nл1:Бе12003є╙З#м2:З#м23■╪Бе11804тZ│0:T1│0:T2│0:T3│04"фА I│1е264CцЕ О(A1$(I),1)│"-"зT2│T2лT(I)4dшЕ О(A1$(I),1)│"+"зT1│T1лT(I)4jьЛ4wюT3│T1мT24}ЁЮ4ИЄЕZ│0зЗ4нЇЕQ│1зЗ#мZ,д8);"YEAR-TO-DATE NET"4╧ЎЕQ│2зЗ#мZ,д10);"MONTH"M1"NET"4╪°З#мZ4Ї·З#мZ,д5);"INCOME";д18);5 №З#мZ,═"######.##";T15)■З#мZ,д5);"DEBITS";д18);5BЗ#мZ,═"######.##";T25ZЗ#мZ,д18); б(9,"-")5sЗ#мZ,д5);"NET";д18);5МЗ#мZ,═"######.##";T35дЗ#мZ:З#мZ:ЕZ│2з12945─ З@294,"

RINT OR ETURN"6; З@353,"NOTE: YOU CAN DECLARE ACCOUNTS":З@385,"AS INCOME/DEBITS BY PLACING A":З@417,"+/- IN THE FIRST CHARACTER OF"6Д З@449,"THE ACCOUNT NAME USING OPTION":З@481,"<2> OF THE MAIN MENU.";6дQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"R"з12946║ЕQ$│"R"зZ│0:Д12986┼Бе11006╘Z│2:Бе12666▄D│16ЄЮ:З@12,"ACCOUNTS"6■АI│1е137#З@(3лIн32),A$(I)" "A1$(I)7C(З@(17лIн32),A$(Iл13)" "A1$(Iл13)7I-Л7u2З@480,"PRESS OR TO QUIT";7Л7Q$│ Т:ЕQ$│""з13357Я<ЕQ$│ Л(12)з14007╜AАI│1е26:ЕQ$│ Л(64лI)з13507├BЛ7╬CБе13357▄FЕP│1з13807ыGЕP1│1з13857∙HЕA│1з13908IЗ  &$ :Г****************************&з:Г NOTE: THIS PROGRAM IS USES THE GEMINI-10X PRINTER CODE FOR DISREGARDING THE SIGNAL FROM THE "PAPER-OUT" DETECTOR.'0:Г WHEN USING A DIFFERENT PRINTER YOU MAY NEED TO REMOVE LINE #330 OR REPLACE IT WITH YOUR PRINTER'S APPROPRIATE CODE.'S(:Г****************************'─2Ю:З@133,"personal check printer":З@205,"BY":З@263,"ROBERT A. GREEN":З@326,"SEPTEMBER 30, 1986":А Z│1е2000:ЛZ(6<Ю:З@162,"PLACE PERSONAL CHECK IN YOUR PRINTER AND TURN THE PRINTER ON.":З@290,"HIT TO CONTINUE";:ЙZ$(░FD$│"MONTH AND DAY":Y$│"YEAR":A$│"AMOUNT-digits":AW$│"AMOUNT-printed":N$│"NAME":P$│"PAY TO":M$│"MEMO":LY$│" ONLY":NL│0(▀PЮ:З"ENTER THE CURRENT MONTH AND DAY";:ЙDA$(їZЗ:ЗY$;:╗Й"? ";YR$) dЗ:ЗP$;:╗Й"? ";PA$)$nЕ  З(PA$)▓35 з Бе440)3xЗ:ЗA$;:ЙAM)LВЕAM▓99999.99 з Бе460)dМЗ:ЗAW$;"?":╗Й"";AM$)}ЦЕ  З(AM$)▓45 з Бе480)УаЗ:ЗM$;:╗Й"? ";MM$)мкЕ  З(MM$)▓25 з Бе500)ч┤З:З"IS THIS INFORMATION CORRECT?":З" YES - NO";)ё╛C$│ Т*╚Е C$│""з Бе190*-╥Ю:Е C$│"N" ▒ C$│"n" з Бе220 :Д Бе320*А▄З"1 ";D$,DA$:З"2 ";Y$,YR$:З"3 ";P$,PA$:З"4 ";A$,AM:З"5 ";AW$:ЗAM$:З"6 ";M$,MM$*┤цЗ:З"WHICH LINE IS INCORRECT":ЙNL:Е NL▓6 з Бе230*╦ЁЗ:З"ENTER CORRECT"*т·Е NL│1 з ЗD$;:ЙDA$*∙Е NL│2 з ЗY$;:ЙYR$+%Е NL│3 з ЗN$;:ЙPA$:Е  З(PA$)▓35 з Бе440+QЕ NL│4 з ЗA$;:ЙAM:Е AM▓99999.99 з Бе460+}"Е NL│5 з ЗAW$;:ЙAM$:Е З(AM$)▓45 з Бе480+й,Е NL│6 з ЗM$;:ЙMM$:Е  З(MM$)▓25 з Бе500+ц6Ю:ЗD$,DA$:ЗY$,YR$:ЗP$,PA$:ЗA$,AM:ЗAW$:ЗAM$:ЗM$,MM$:Бе180,@Ю:З@170,"PRINTING":YR$│ П(YR$,2):LL│ З(DA$):AD│43мLL,6JЗ#м2, Л(27)  Л(56),dTЗ#м2:З#м2,дAD)DA$;:З#м2,",";:З#м2,д46)YR$,Ъ^З#м2:З#м2,д8)PA$;:З#м2,д45);:З#м2,═"**,###.##";AM,╣hЕ  З(AM$)┤39 з AM$│AM$лLY$,╦rZZ│44м З(AM$),Ў|З#м2:З#м2,д1)AM$;:З#м2,( б(ZZ, Л(42)))-ЖА L│1 е 4:З#м2:ЛL:З#м2,д5)MM$-╛РЗ@160,"DO YOU WANT TO PRINT ANOTHER COPY OF THE SAME CHECK?":З:З"HIT IF YES, FOR ANOTHER CHECK, SAME DATE, FOR A NEW DATE, OR TO END PROGRAM."-╚ЪX$│ Т-█дЕ X$│""з Бе410.XоЕ X$│"Y" ▒ X$│"y" з Бе 320 :Д Е X$│"S" ▒ X$│"s" з Ю:Бе100 :Д Е X$│"N" ▒ X$│"n" з Бе70 :Д Е X$│"E"▒ X$│"e" з Ю:К :Д Бе410.Ъ╕Ю:З"LINE SPACE IS LIMITED TO 35 CHARACTERS -- TRY AGAIN.".╢┬Е NL│3 з Бе270 :Д Бе100/ ╠Ю:З"AMOUNT OF CHECK IS LIMITED TO $99,999.99 IN THIS PROGRAM -- -- TRY AGAIN."/)╓Е NL│4 з Бе280 :Д Бе120/АрЮ:З"SPACE FOR THE WRITTEN AMOUNT IS LIMITED TO 45 CHARACTERS -- -- TRY AGAIN."/ЬъЕ NL│5 з Бе290 :Д Бе140/уЇЮ:З"SPACE FOR THE MEMO IS LIMITED TO25 CHARACTERS -- TRY AGAIN.":З/ ■Е NL│6 з Бе300 :Д Бе160TRY AGAIN."/)╓Е NL│4 з Бе280 :Д Бе120/АрЮ:З"SPACE FOR THE WRITTEN AMOUNT IS LIMITED TO 45 CHARACTERS -- -- TRY AGAIN."/ЬъЕ NL│5 з Бе290 :Д Бе140/уЇЮ:З"SPACE FOR THE MEMO IS LIMITED TO25 CHARACTERS -- TRY AGAIN.":З/ ■Е NL│6 з Бе300 :Д Бе160                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    №?№??№?   №  └№╒╨  №ї?№Ц?╬?№╬?ЦФ?    O╩H№H╒╒ ёї?№Ц?╬╧№╬?ЦЦГ Ё? O╩H№H├ ёї╧№Ц?╬╧№╬?АР  O╩H№H?╘ ёї╧№Ц?╬├№╬?ПЁЦ?╩C J2C?Ё╘ ёї╧№Ц?╬├№╬?П№<╩C J2C?№╘?┼ї╧№Ц?╬╠№╬?П№ ╩C J2C?№╘ ┼┼є№Ц?┬╠№╬?П№Ц<?Ё╩C J2C?└╘ ┼┼є№Ц?┬╬<╬?П┬Ц2 № C 2C├ 51є№Ц?╠╬<╬?АРЄ   C 2C╒╒ 51є№Ц?╠╬<╬?ЦЦГЄ   HH JC╒╒? 51Ї№Ц?╧╠╬?ЦФ?┬  HH JO╒╒├ 51Ї№Ц?╧╠╬?АГЄ  2HC╩JO╙№Ї№Ї№Ц?╧╬└╬?ПЁРЄ  2HC╩JO?┴╙№ЇЇ№Ц?╧╬└╬?П№2 №2JC╩JO?ё╙№їїї<Ц?╧╬╠╬?П№<?ЁЄJC╩JO?ё╙ёїїї<Ц?╧Є╠╬?П№Ц ЄJC╩JO?ё╘ёЁ5<Ц?╧Є╬╬?П┬Ц?ЄJC╩JO?ё╘ёє 5<Ц?╧№╬╬?АЦ?№JOЄJ??Ё╘ё╧ ┼╠Ц?╧№╬╬?ЦЦР №JOЄJ??№╘┼╧ ┼╠Ц?╧ ╬?ЦЦГ Ё?№JOЄJ??№└ └ ? ??   №Ё?                       №                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ш&#:Г***************************&E:Г* RAINBOW ON DISK GRAPHIC *&g:Г* BY FRED B. SCERBO *&Й:Г* COPYRIGHT (C) 1985 *&л:Г* UNDER LICENSE TO *&═:Г* FALSOFT PUBLISHING INC. *&Ё:Г*************************** &¤ Ю0:Х1000'OAA$│ б(3,143):АI│1е5:╙M" FALSOFT/"лAA$:╙M"PRESENTS/"лAA$:ЛI:╙M" RAINBOW/"лAA$'fАI│1е300:Е Т│""зЛI'Н(╚2,1:╝1:┐1,1:╚1:╝0:┐1,1:Т65314,248'Ю2╚2,3:╝1:╚1,3'▒<╙M" ON/"лAA$'┐F╟3е1:╟4е2(P╝0:╗(40,190)м(212,60),╛,BF:┬(126,126),24,0,.9:├(126,126),0,0:┬(126,126),20,1,.9(LZ┬(170,126),8,0,.9:╞"BM122,186C0R10E4U26H4L10G4D26F4"(hd╟3е1:╟4е2:▀0,17,2,A$,B$(Бn╙M" DISK/"лAA$:╟3е1)*x╚1,1:╞"BM70,88C3U12R12D12NL12BR8U12F12NU12BR16R2U12NL2R10F2D8G2NL10BR12NU12BR10R10U6L10U6R10BR8D12U6R4NE6NF6BM98,156C2R10D10L10NU10L2D12R14U12L2BD12BR38E12U10L14D2")8ВАII│1е500)LМЕ Т│""з150:Д160)TЦЛII)jаВ START MENU TEXT)~кМ A$(34),B$(34))╡┤АI│1е26:B$(I)│ Л(64лI):Л:АI│27е34:B$(I)│ Л(22лI):Л)┐╛Н MN$)щ╚АP│1е34:Н A$(P):Е A$(P)│"END"з210:ДЛP*╥Е A$(P)│"END"з A$(P)│""*▄NP│Pм1**цАI│NPл1е34:B$(I)│"":Л*0ЁЮ*O·З" RAINBOW ON DISK"*oЗ" (C) FALSOFT, 1987"*ШЗ" PRESS LETTER TO LOAD BASIC ONLY";*ёЗ " (XX)=PAGE NUMBER OF LISTING":KK│ З(MN$):KK│ Б(KKо2):Зд9мKK)"IN "MN$"'S RAINBOW"*ў"З+ ,АP│1е7:ЗB$(P)A$(P),B$(7лP)A$(Pл7):ЛP+F6З:З" DA=DATA FILE, DO NOT RUN!"+k@З" PRESS TO CONTINUE";+АJX$│ Т:ЕX$│""з330+РTЕX$│" "з370+к^АI│1е14:ЕX$│B$(I)з500+╖hЛI:Бе330+╜rЮ+ц|З:З " (XX)= PAGE NUMBER OF LISTING"+ьЖЗ,РАP│15е24:ЗB$(P)A$(P),B$(10лP)A$(Pл10):ЛP,\ЪЗ " PRESS TO RETURN TO FIRST PAGE OF MENU",ДдЗ " PRESS ^ (UP ARROW) FOR

";,ЬоXX$│ Т:Е XX$│""з430,│╕ЕXX$│ Л(94)з Ю:╬:Ц,─┬ЕXX$│" "з240,с╠АI│15е NP:ЕXX$│B$(I)з500,ю╓ЛI:Бе430,¤рЕXX$┤▓з430-ъБе240-'ЇQ$│A$(I):Е П(Q$,1)┤▓"*"з540-n■Ю:З@138,"SORRY, BUT":З:Зд8)Q$:З:З" IS A MACHINE LANGUAGE PROGRAM."-╤З:З" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-╫Ц-ўQ│ З(Q$):Q│Qм6:SL$│ П(Q$,Q).&╙ SL$,R.шЖ "MARCH".ЙЄЖ " (20) CHEKRITR"," (27) TAPEUSER"," (27) ACCOUNT"," (37) FNANPLAN"," (52) BARREL"," (61) GPARTY"," (DA) GENERAL1".■№Ж " (68) COCOTYPE"," (75) DEWEY"," (76) SWITCH"," (77) WAGECALC"," (78) TOTAL"," (80) COLRCHEK"," (80) ENVELOPE"р╝┐╝╜║┐╝╜║┤╜╛╕А┐╝╝┐╡╛╝┐┤╜╛╝┐╡╝┐╝║А┐░╡║┐А╡║А╡║А░┐А░┐╡║░┐░╡║░┐╡░┐░║А ААА Ёї·Аї·АА АЁ ї·╨ Аї·А№їЁ Ё·А ААЁ Аї·Аї·АА ЁА ї·╨ Аї·АААА АААЯЁХЪЯАХЪАХЪААЯАР░ХЪРЯАХЪРЯААЯАААЯЬЭЪЯЬЭЪАХЪААЬЬЬЯХЪРЯРХЮЬЯрРЯАААПАААПАЕКАЕКААПААПЕКАПАЕКААрАПАААПАААПАЕКАЕКААПААПЕКАПАЕКААААПАААпАААпАекАекбвпаАпекАпаекААААпАААпАААпЁекАекекпААпекАпАекААААпААуяуруяРхытчычъяууяхыуясчытААсятА└└└└└р└└└└└└а└└└└└└└└└└└└└└└└└└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ПАЕКАЕКААПААПЕКАПАЕКАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                рьяьэъяьэъфэюшАяььяхюьяфэюьяхьяьъАя░хъяАхъАхъА░яА░яхъ░я░хъ░яхря░ъАпАААпЁекАекААпАЁпек╨пАекАмеЁпакапААЁпАекАекААпЁапек╨пАекААААпАААПЁЕКПАЕКАЕКААПАР░ЕКРПАЕКРПААПАААПМНКПМНКАЕКААМММПЕКРПРЕОМПрРПАААЯАААЯАХЪАХЪААЯААЯХЪАЯАХЪААрАЯАААЯАААЯАХЪАХЪААЯАРЯХЪАЯРХЪААААЯААА ААА Аї·Аї·ёЄ аА ї·А аї·АААА ААА ААА Ёї·Аї·ї· АА ї·А Аї·АААА АА│┐│░│┐Р╡╗▓╡╗╖║┐││┐╡╗│┐▒╖╗▓АА▒┐▓А└└└└└р└└└└└└а└└└└└└└└└└└└└└└└░└А└└└└└└└└└└└└└А└└└А└└└└└└└└└└└└└А└└└└└└└└А└└А└└└А└└А└└└└└А└└А└└└А└└└А└└└└А└А└└А└А└А└└└└└└А└└А└А└А ЯАХЪАХЪААЯАРЯХЪАЯРХЪАА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╟┴─╟╟┬┬┬┬ ┴─╚┼──╔┴┬╟┬┬├$%╟'()┴+,┼./0╞╟─├56┬89:╟┬╔>├@ABC FALSOFTППП ъPRESENTSППП!ъ RAINBOWППП" ON ППП# DISK ППП MENU BASыCHEKRITRBASTAPEUSERBAS&═ACCOUNT BASпFNANPLANBAS*BARREL BASVGPARTY BAS-°COCOTYPEBASвDEWEY BAS1SWITCH BAS·WAGECALCBAS\TOTAL BAS2│COLRCHEKBAS3 ENVELOPEBASУAMORTIZEBAS╖GRAPHIT BAS4 PAYROLL BAS @POKER BAS7"PART 1 BAS жALT BAS НALT1 BASGALT2 BAS 2PROBLEM BAS;ЯCO3COLORBASxSTOCK BASGRAPH BAS< ROBOFLIPBAS=8BUDGET BAS?LGENERAL1DAT Ц                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                № №¤·ЯЬЭЪдноиА┐╝╝┐╒▐▄▀фэюьяЕМПМКА Аї·ЯАХЪАекАА┐АА┐╒┌╨▀АхъАяЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъАьЕАПАКА АААЯАХЪАекАА┐АА┐╒┌╨▀АхъААААПААА Ёї·ЯАХЪАекАА┐АА░╒┌А▀АхъАяААПААА №¤·ЯЬЭЪАекАА╝╝╝┐╒┌А▀АхюьярАПААА АААЯАХЪАекАА┐АА┐╒┌А▀АхъААрАПА А АААЯАХЪАекАА┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦└╧├╧А ЯАХЪАекбв┐АА┐╒┌А▀АхъААААПАА АААЯАХЪАекек┐АА┐╒┌А▀АхъААААПААє єАУЯСЧЫТзлзк┐││┐╒█╙▀счытААБПВА├├├┬├├├├┴├├┬├├├┴├├┬├┬┴├├┴├├┬├├├А┼╩┼╩┼╩└╧└╧└╚╧А─└╧А╚┼╦┬┼╩┼┼╩╩╧└─А┼╬╠╚┼╬═╬А╧╠А╠╠╧А╧╠А┼╩╦┼╩А┼╩А╠╠╧А┼╩└А┼╩┼╩А╧А╩╧А╧А╧А╩┼╩┼╟╩А┼╩А╧А╧А╟╦└А╟╦┼╦┴╧├╩╧├╧┴╧├╩╟╦└┼╦└╟╦                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           №       Ё?      └       ЁЁ           №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       └                             №         №         Ё?  Ё?        Ё?    Ё?        └      └         └?      Ё?Ё              └        №?    Ё       №?  Ё       Ё?      Ё  ?      └└      └ 0       0       0     №  └     №     Ё?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ╩&Ю:З@232,"COCO ACCOUNTANT"&2:ГJ.A.PHILLIPS&H:Г12 WILBUR BLVD.&e:ГPOUGHKEEPSIE, NY 12603&r:Г3/8/84&{ Бе30&Ь Ю:З@231,"SORTING ENTRY #"N:Р&╔Ю:З@230,"MAX OF "E" ENTRIES":АJ│1е1000:Л&╙Бе100&▐Х 7000&ш(E│360'/2МD$(Eл1,2):МD(Eл1,2):МA$(26):МA1$(26):МY$(2):МY(2):МT(26):М MT(12)'G LOAD OLD DATA"(nЗ@164,"<2> DEFINE/VIEW ACCOUNTS"(+sЗ@196,"<3> ADD NEW DATA"(LxЗ@228,"<4> VIEW/DELETE DATA"(l}З@260,"<5> PRINT SUMMARIES"(ЖВЗ@292,"<6> SORT DATA"(дЗЗ@324,"<7> SAVE NEW DATA"(└МЗ@388,"ENTER <1-7>";:ЙQ(╤СЕQ▓7▒Q┤1з100(√ЦИ Q Бе200,1300,400,700,1000,1600,1900)╚Ю:N│1)+═З@196, "REWIND TAPE - PRESS PLAY")M╥З@228,"PRESS TO LOAD")q╫З@260,"OR ENTER ENU ";:╗ЙQ$)Й▄ЕQ$┤▓""░Q$┤▓"M"з200)ЭсЕQ$│""з230:Д100)╡цЩ "I",#м1,"ACCOUNT")┬ыА I│1е26)╥ЁЙ#м1,A1$(I))╪їЛ)щ·Е  М(м1)з270)· Й#м1,D$(N,1)* Й#м1,D$(N,2)*Й#м1,D(N,1)*+Й#м1,D(N,2)*;N│Nл1:Бе250*IА I│N е E*uD$(I,1)│"":D$(I,2)│"":D(I,1)│0:D(I,2)│0*{"Л*К,Ъ#м1:Бе100*ТРN│1*жХЕD$(N,2)│""з415*╢ЪN│Nл1:Бе405*─ЯЕ N▓E з15*щдЮ:З@228,"ENTER MONTH <1-12>";:ЙQ*√йЕQ┤1▒Q▓12з420+оM│Q+│D(N,1)│M+╕A│1:Бе1305+1╜D$(N,1)│A$(I)+U┬Ю:З@68,"ACCOUNT DATA ENTRY #";N+q╟З@129,"MONTH = ";D(N,1)+П╔З@141,"ACCOUNT = ";A1$(I)+░╠З@193,"DESCRIPTION = ";:╗ЙQ$+└╓ЕQ$┤▓""з475+┘╪D$(N,2)│"NONE":Бе480+я█D$(N,2)│ О(Q$,14)+№рЗ@193,S$,хЗ@193,"DESCRIPTION = ";D$(N,2),9ъЗ@257,"AMOUNT = ";:ЙQ,FЇD(N,2)│Q,[∙N│Nл1:Е N▓E з 15,f■Бе 435,n╝N│1,Ш┴Ю:З " # M A DESCRIPTION AMOUNT",д╞АI│1е13,╣╦ЕD$(N,2)│""з 770,ч╨З ═"###";N;:З д4);:З ═"##";D(N,1);:З д7);,∙┌ЗD$(N,1);д9);-"фЗ ═"% %";D$(N,2);:З д24);-:юЗ ═"####.##";D(N,2)-D°N│Nл1-J¤Л-rЗ@450,"=SCROLL <999>=QUIT"-ЧЗ@482,"=VIEW/DELETE";:ЙQ-м ЕD$(N,2)│""з N│1-╗ ЕQ│999з100-╔Е Q▓E з15-╓ЕQ│0з705-ьЮ:З@75,"ENTRY #"Q. З@131,"DESCRIPTION: "D$(Q,2).,З@230,"ELETE OR IEW".KQ$│ Т:ЕQ$┤▓"D"░Q$┤▓"V"з795.[ЕQ$│"D"з800.iN│Q:Бе705.} D$(Q,2)│DE$:N│Q.З*Бе705.СшЮ:N│1.кэЗ@73,"PRINT OPTIONS".╧ЄЗ@132,"<1> Y-T-D ACCOUNT TOTALS".ЎўЗ@164,"<2> 1-MONTH ACCOUNT TOTALS"/∙З@196,"<3> SINGLE ACCOUNT SUMMARY"/:√З@228,"<4> MONTHLY NETS"/a№З@260,"<5> ACCOUNT DATA (PRINTER)"/ИЗ@292,"<6> ACCOUNT NAMES(PRINTER)"/вЗ@324,"<7> MAIN MENU"/╛З@388,"ENTER <1-7>";:ЙQ/╨ ЕQ┤1▒Q▓7з1000/№ И Q Бе1040,1038,2100,2250,1180,2000,1000"Ю:З@228,"ENTER MONTH <1-12>";:ЙM108Е M1┤1▒M1▓12з10380aЮ:З@227,"CALCULATING ACCOUNT TOTALS"0iZ│00А I│1е26:T(I)│0:Л0Ф)ЕD$(N,2)│""з11000▒0ЕQ│2░ D(N,1) ┤▓ M1 з10950╟1ЕD$(N,2)│DE$з10950▄8I│ К(D$(N,1))м640ёBT(I)│T(I)лD(N,2)1GN│Nл1:Бе10651LЮ10QЕQ│1зЗ#мZ,д6);"YEAR-TO-DATE TOTALS"1TTЕQ│2зЗ#мZ,д9);"MONTH"M1"TOTALS"1bVЕZ│2зЗ#мZ1o[А I│1е131З`З#мZ,д3);A$(I);д6);1гeЗ#мZ,═"######.##";T(I);1└jЗ#мZ,д17);A$(Iл13);д20);1▐oЗ#мZ,═"######.##";T(Iл13)1фtЛ1·yЕ Z│2зЗ#мZ :Д11552 ~З#мZ:Бе116022ГЗ@483,"

RINT OR ENU OR ET";2ZИQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"M"░Q$┤▓"N"з11602kНЕQ$│"M"з10002|ПЕQ$│"N"з12502ЛТZ│2:Бе11052ЪЬP│1:Бе13052╔аЮ:З@226,"PRINTING DATA FOR ACCOUNT ";A$(I)2╤бN│12єжЗ#м2,д11);A$(I)"="A1$(I):З#м23%лЗ#м2,"MONTH";д8);"DESCRIPTION";д23);" TOTAL"3:░ЕD$(N,2)│""з12353P▓ЕD$(N,2)│DE$з12303i║ЕD$(N,1)┤▓A$(I)з12303Б┐З#м2,═"###";D(N,1);3П└З#м2,д8);3│─З#м2,═"% %";D$(N,2);3┬┼З#м2,д23);3▌╔З#м2,═"####.##";D(N,2)3ю╬N│Nл1:Бе12003№╙З#м2:З#м24╪Бе11804тZ│0:T1│0:T2│0:T3│04+фА I│1е264LцЕ О(A1$(I),1)│"-"зT2│T2лT(I)4mшЕ О(A1$(I),1)│"+"зT1│T1лT(I)4sьЛ4АюT3│T1мT24ЖЁЮ4СЄЕZ│0зЗ4╢ЇЕQ│1зЗ#мZ,д8);"YEAR-TO-DATE NET"4╪ЎЕQ│2зЗ#мZ,д10);"MONTH"M1"NET"4с°З#мZ4¤·З#мZ,д5);"INCOME";д18);5№З#мZ,═"######.##";T152■З#мZ,д5);"DEBITS";д18);5KЗ#мZ,═"######.##";T25cЗ#мZ,д18); б(9,"-")5|З#мZ,д5);"NET";д18);5ХЗ#мZ,═"######.##";T35нЗ#мZ:З#мZ:ЕZ│2з12945═ З@294,"

RINT OR ETURN"6D З@353,"NOTE: YOU CAN DECLARE ACCOUNTS":З@385,"AS INCOME/DEBITS BY PLACING A":З@417,"+/- IN THE FIRST CHARACTER OF"6Н З@449,"THE ACCOUNT NAME USING OPTION":З@481,"<2> OF THE MAIN MENU.";6нQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"R"з12946├ЕQ$│"R"зZ│0:Д12986╬Бе11006▌Z│2:Бе12666хD│16√Ю:З@12,"ACCOUNTS"7АI│1е137&#З@(3лIн32),A$(I)" "A1$(I)7L(З@(17лIн32),A$(Iл13)" "A1$(Iл13)7R-Л7~2З@480,"PRESS OR TO QUIT";7Ф7Q$│ Т:ЕQ$│""з13357и<ЕQ$│ Л(12)з14007╞AАI│1е26:ЕQ$│ Л(64лI)з13507╠BЛ7╫CБе13357хFЕP│1з13807ЇGЕP1│1з13858HЕA│1з13908IЗ@480,S$;87JЗ@480,"ENTER ACCOUNT NAME ";:╗ЙQ$8SPЕQ$│""зA1$(I)│A2$:Д13708^UБе13058yZA1$(I)│ О(Q$,8):Бе13058ИdP│0:Бе11848ШiP1│0:Бе21108жnA│0:Бе4458╣xЕP│1▒P1│1з14108╦}ЕD│1▒A│1з14208▀ВP│0:P1│0:Бе10008ёМD│0:A│0:Бе1008√@Ю:N│19EЗ@106,"SORT OPTIONS"92GЗ@166,"<1> SORT BY MONTH"9RJЗ@198,"<2> SORT BY ACCOUNT"9lOЗ@230,"<3> MAIN MENU"9ИQЗ@294,"ENTER <1-3>";:ЙQ9ЪTЕQ┤0░Q▓3з16009▓YИ Q Бе1630,1720,1009┐^А I│1е129╚cБж129▄hЕD$(N,2)│""з1009ўmЕ D(N,1)│I з1650:Д1655:rN│Nл1:Бе1635:wS│N:+|S│Sл1:ЕD$(S,2)│""з1700:@БЕD(S,1)┤▓I з1660:xЖY$(1)│D$(N,1):Y$(2)│D$(N,2):Y(1)│D(N,1):Y(2)│D(N,2):╕ЛD$(N,1)│D$(S,1):D$(N,2)│D$(S,2):D(N,1)│D(S,1):D(N,2)│D(S,2):ЁРD$(S,1)│Y$(1):D$(S,2)│Y$(2):D(S,1)│Y(1):D(S,2)│Y(2): ХN│Nл1:Бж12;ЪЕ Q│2 з1765;ЯБе1660; дЛ;-╕А I│1е26;6╜Бж12;J┬ЕD$(N,2)│""з100;i╟ЕD$(N,1)│A$(I)з1740 :Д1745;z╠N│Nл1:Бе1725;В╤S│N;Э╓S│Sл1:ЕD$(S,2)│""з1770;╢█ЕD$(S,1)┤▓A$(I)з1750;┴рБе1670;╠хБе1750;╥ъЛ;▄lЮ:N│1<qЗ@194,"REWIND TAPE - PRESS PLAY AND RECORD"<4vЗ@226,"PRESS TO SAVE OR"ENU ";:╗ЙQ$иN│Nл1:Бе1950=MнЪ#м1:Бе100=r╨Ю:З@229,"PRINTING ACCOUNT NAMES"=Р╙З#м2:З#м2,д11);"ACCOUNTS"=Щ╘З#м2=ж╒А I│1е13=▄┌З#м2,д3);A$(I)"="A1$(I);д17);A$(Iл13)"="A1$(Iл13)=т▀Л=ЁфЗ#м2:З#м2=√щБе1000>4N│1:Z│0>9P1│1:Бе1305>@>Ю:З@227,"CALCULATING ACCOUNT TOTALS">VCАX│1е12:MT(X)│0:Л>kHЕD$(N,2)│""з2145>ДMЕD$(N,1)┤▓A$(I)з2140>ЪRЕD$(N,2)│DE$з2140>╗WMT(D(N,1))│MT(D(N,1))лD(N,2)>╠\N│Nл1:Бе2120>╥aЮ>ёfЗ#мZ,д12);A1$(I):ЕZ│2зЗ#мZ?kЗ#мZ,д8);"MONTH";д19);"TOTAL"?pАX│1е12?>uЗ#мZ,д6);:З#мZ,═"#####";X;?ezЗ#мZ,д15);:З#мZ,═"######.##";MT(X)?kЛ?tДЗ#мZ?ГЗЕMN│1з2310?СЙЕZ│0з2195?бОЗ#мZ:Бе2200?╚УЗ@483,"

RINT OR EXT ACCOUNT";?шШQ$│ Т:ЕQ$┤▓"P"░Q$┤▓"N"з2200?∙ЭЕQ$│"N"з2100@вZ│2:Бе2150@/╩Ю:З@228,"CALCULATING MONTHLY NETS"@;╧N│1:Z│0@Q╘АX│1е12:MT(X)│0:Л@f┘ЕD$(N,2)│""з2295@|▐ЕD$(N,2)│DE$з2290@СуI│ К(D$(N,1))м64@─шЕ О(A1$(I),1)│"-"зMT(D(N,1))│MT(D(N,1))мD(N,2)@ўэЕ О(A1$(I),1)│"+"зMT(D(N,1))│MT(D(N,1))лD(N,2)AЄN│Nл1:Бе2265AўЮA)∙З#мZ,д11);"NET INCOME"A7№ЕZ│2зЗ#мZAG MN│1:Бе2155AZ MN│0:ЕZ│0з2312Aj З#мZ:Бе2313AЙ З@487,"

RINT OR ENU";Aй Q$│ Т:ЕQ$┤▓"P"░Q$┤▓"M"з2313A║ ЕQ$│"M"з1000A╔ Z│2:Бе2297(A1$(I),1)│"+"зMT(D(N,1))│MT(D(N,1))лD(N,2)AЄN│N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &(Ю:З"FINANCIAL PLANNER - M. ZANGER"&EЗ" FEB. 12, 1986"&KЗ&tЗ"************ MENU ************";&z#З&Ц(З"1. compound interest"&╖2З"2. mortgage/loan payments"&▌<З"3. years to reach desired amt."&°FЗ"4. yield calculator"'KЗ"5. ira/savings contributions"'AMЗ"6. what mortgage can i afford"'aPЗ" ENTER YOUR CHOICE (1-6)"'{ZA$│ Т:ЕA$│""з90 :Д100'ИdA│ Й(A$)'▓nИ A Б ж 1000,2000,3000,4000,5000,6000'┘шЮ:З"compound interest calculation"'ъЄЗ б(32,"=");(ЇЙ"PRINCIPAL.....";M(ЎЙ"RATE..........";R(2°Й"YEARS.........";Y([№З"+++++++ how compounded ++++++++";(nЗ"1. Annually"(ЖЗ"2. Semi-Annually"(ЦЗ"3. Daily"(иЗ"4. Monthly"(╟$З"enter your choice (1-4)"(х.A$│ Т:ЕA$│""з1070 :Д 1080(Є8A│ Й(A$))I=Е A│1зC$│"annually":ДЕA│2зC$│ "semi-annually" :ДЕA│3зC$│"daily":ДЕA│4зC$│"monthly")hBИ A Бе 1100,1110,1120,1130)ДLT│1:P│Y:RR│Rо100:Бе1150)вVT│2:P│Yн2:RR│Rо200:Бе1150)╞`T│360:P│Yн360:RR│Rо36000:Бе1150)чjT│12:P│Yн12:RR│Rо1200:Бе1150)°~З б(32,"%");* ░TV │ Mн(1лRR)пP*%║З"AFTER ";Y;" YEARS"*@─З"YOUR $";M;" DOLLARS"*a╬З"INVESTED AT ";R;" PERCENT"*|╙З"(Compounded ";C$;")"*У╪З"WILL BE WORTH ";*лтЗ═"$$###,###.##";TV*╝ьЗ б(32,"$");*сЗ"DO YOU WANT A HARD COPY (Y/N)"+A$│ Т:ЕA$│""з 1310 :Д 1320+(Е A$│"N" з 1900 :Д 1330+B2Е A$┤"Y" ▒A$▓"Y" з 1310 :Д Бе1500+V▄З#м2, б(55,"-")+sцЗ#м2,"AFTER ";Y;" YEARS"+ТЁЗ#м2,"YOUR $";M;" DOLLARS"+╦·З#м2,"INVESTED AT ";R;" PERCENT (COMPOUNDED ";C$;")"+цЗ#м2,"WILL BE WORTH ";,З#м2,═"$###,###.##";TV,З#м2, б(55,"-"),%"З#м2, Л(10),AlЗ"another calculation?",]vA$│ Т:ЕA$│""з1910:Д1920,tАЕA$│"N"з К :Д 1930,ЯКЕA$│"Y" з 20 :Д Е A$┤"Y"▒A$▓"Y" з 1900,╔╨Ю:З" mortgage payment calculation":З,с┌Й"principal.....";P,∙фЙ"rate..(%).....";R-юЙ"years.........";Y:YY│м(12нY)-*°R │Rо1200-;З б(32,"%");-TZ │ 1м(1лR)пYY:X│ZоR-a MR │ PоX-ВЗ"your monthly payment is ";-Ц З═"$$###.##";MR-о#З"total repayment";-╦%З═"$$###,###.##";MRн12нY-▄*З б(32,"%");.ШЗ"DO YOU WANT A HARD COPY (Y/N)".вA$│ Т:ЕA$│""з2210:Д2220.9мЕ A$│"N" з 1900 :Д 2230.[╢ЕA$┤"Y"▒A$▓"Y" з 2200 :Д 2500.o ─З#м2, б(45,"=").Л ╬З#м2,"AMT. OF LOAN $";P.л ╪З#м2,"BORROWED AT %";Rн1200.╤ тЗ#м2,"FOR A PERIOD OF";Y;" YEARS".· ьЗ#м2,"YOUR MONTHLY PAYMENT WILL BE";/ ЎЗ#м2,═"$###.##";MR/9 °З#м2,"YOUR TOTAL PAYMENTS WILL BE";/Z √З#м2,═"$$###,###.##";MRн12нY/n З#м2, б(45,"=")/Е З#м2, Л(10):Бе1900/н ╕Ю:З"years to reach maturity calcn."/╛ ┬З б(32,"#");/▀ ╠Й"initial investment....";IV0 ╓Й"final value...........";FV0( рЙ"interest rate.........";R:R│Rо10009 ъЗ б(32,"%");0a ЇY│(2.303н Щ(FVоIV))о(2.303н Щ(1лR))0Д ■З"years to reach final value";0Х З═"###.##";Y0║ фЗ"DO YOU WANT A HARD COPY (Y/N)"0┘ юA$│ Т:Е A$│""з3310 :Д 33200є °Е A$│"N"з1900 :Д 33301 ЕA$▓"Y"▒A$┤"Y"з 3300 :Д 35001B мЗ#м2, б(32,"="):З#м2,"IF YOU INVEST $";IV1l ╢З#м2,"AT A RATE OF ";Rн100;" PERCENT"1Н └З#м2,"AND WANT TO RECEIVE ";1з ╩З#м2,═"$###,##.##";FV1┴ ╘З#м2,"IT WILL TAKE ";1х ┘З#м2,═"###.##";Y;:З#м2," YEARS"1∙ ▐З#м2, б(32,"=")2 шЗ#м2, Л(10):Бе190023аЮ:З" yield calculation"2DеЗ б(32,"*");2dкЙ"initial investment..$";IV2Д┤Й"value at maturity...$";FV2г╛Й"years to maturity....";Y2┤╚З б(32,"%");2╥╥R│(FVоIV)п(1оY)м1:R│Rн1002єцЗ"your rate of interest is";3 ЁЗ═"##.##";R;:З"%"3.╠З"DO YOU WANT A HARD COPY (Y/N)"3J╓A$│ Т:ЕA$│""з4310:Д43203aрЕA$│"N"з1900:Д43303ъЕA$┤"Y"▒A$▓"Y"з4300:Д45003УФЗ#м2, б(41,"=")3▒ЮЗ#м2,"IF YOU INVEST $";IV3╪иЗ#м2,"FOR A PERIOD OF ";Y;" YEARS"4▓З#м2,"AND AT MATURITY WILL GET $";FV4*╝З#м2,"YOUR RATE OF RETURN WILL BE ";4O┴З#м2,═"##.##";R;:З#м2," PERCENT"4v╞З#м2, б(41,"="):З#м2, Л(10):Бе19004Ж°З#м2, Л(10)4пИХ1000:Ю:З"ira/savings contributions"4├КЗ:З:З б(32,"*")4чМЗ"IRA or MONTHLY SAVINGS (I/M)"4¤ОQ$│ Т:ЕQ$│""з50065РЕQ$│"M"з50225+ТЙ"annual contribution";P5PЬЙ"annual interest rate";I:Бе50305nЮЙ"monthly contribution";P5МаЙ"interest rate";I:I│Iо125ЬжR │ 1лIо1005╡░Й"number of years";Y5╬╡T│Y:Е Q$│"M"з T│Yн125╪─SUM│05ш╬А N │ 1 е T5Ў╪SI│ PнRпN6тSUM │ SUMлSI6ьЛ:Ю:З:З:З6&ёЗ б(32,"*");67єЕQ$│"M"з51156лЎЗ"WITH AN ANNUAL contribution OF $";P;"@ AN interest rate OF ";" %";I;" -----AFTER----- ";Y;"years";:Бе51207√З"WITH A MONTHLY contribution OF $";P;"@ AN interest rate OF ";" %";Iн12;" --- AFTER";Y;"years"7<З" YOUR total value WILL BE":7K З" ";7dЗ═"$$###,###.##";SUM7uЗ б(32,"*");7Ъ(З"DO YOU WANT A HARD COPY (Y/N)"7╢2A$│ Т:ЕA$│""з5170:Д51807═<ЕA$│"N"з1900:Д51907ыFЕA$┤"Y"▒A$▓"Y"з5160:Д52007 PЗ#м2, б(50,"$")8RЕ Q$│"M"з 52328>ZЗ#м2,"With an annual investment of $";P8ddЗ#м2,"At a rate of ";I;" PERCENT"8СnЗ#м2,"For a total of ";Y;" Years":Бе52408╜pЗ#м2,"With a monthly investment of $";P8цrЗ#м2,"At a rate of ";Iн12;" PERCENT"9 tЗ#м2,"For a total of ";Y;" Years"99xЗ#м2,"You will have a grand total of ";9VВЗ#м2,═"$$###,###.##";SUM9jМЗ#м2, б(50,"$")9zСЗ#м2, Л(10)9ЕЦБе19009пpЮ: З"WHAT MORTGAGE CAN YOU AFFORD?":З9└uЗ б(32,"$");9┌zЙ"monthly payment";MR9єДЙ"rate...%.......";R:ОЙ"years..........";Y:YY│12нY:R│Rо1200:5вZ│1м(1лR)пмYY:X│ZоR:@мP│MRнX:\╢З"maximum mortgage is";:s└З═"$$###,###.##";P:Д╩З б(32,"$");:й╘З"DO YOU WANT A HARD COPY (Y/N)":┐▐A$│ Т:ЕA$│""з6110:╓шЕA$│"N"з1900:Д6130:ъЄЗ#м2, б(50,"=");ўЗ#м2,"IF MAXIMUM MONTHLY PAYMENT CAN BE ";;4З#м2,═"$$##,###.##";MR;nЗ#м2,"@ A RATE OF.......................... %";Rн1200;ЫЗ#м2,"FOR......... ";Y;" .........YEARS";╠$З#м2,"YOUR MORTGAGE CAN BE .............. ";;ч.З#м2,═"$$###,###.##";P;№8З#м2, б(50,"=");<BЗ#м2, Л(10):Бе1900 ";;4З#м2,═"$$##,###.##";MR;nЗ#м2,"@ A RATE OF.......................... %";Rн1200;ЫЗ#м2,"FOR......... ";Y;" .........YEARS";╠$З#м2,"YOUR MORTGAGE CAN BE .............. ";;ч.З#м2,═"$$###,###.##";P;№8З#м2, б(50,"=");<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ї&4В G-PARTY 1.0 09/29/86 BY DALE R. COLLINS&A└4:Х6000&LБе9900&]В PLAYER BID&ТЗ@480," ";:ЕPA┤1з70&вЕPB$│"K"з31&└C│440:В GAME-BUTTON INPUT&┌J│ Н(0):C│Cм1:ЕC┤1з70&цЕJ┤4з24&·PL│99:АI│0еNPм1'(ЕJ┤PA(I)л2░J▓PA(I)м2зPL│I:PA(I)│0:PA│PAм1'9ЛI:ЕPL│99з24'BБе38']C│440:В KEYBOARD INPUT'u A$│ Т:C│Cм1:ЕC┤1з70'Г!ЕA$│""з32'Ш"PL│999:АI│0еNPм1'┐#Е К(A$)│PA(I)зPL│I:PA(I)│0:PA│PAм1'╤$ЛI:ЕPL│999з32'я&З@480,P$(PL);" - PLAYER";((В CHECK ANSWER( )C│400($*A$│ Т:C│Cм1:ЕC┤1з60(2+ЕA$│""з42(C-ЕA$│ Л(8)з60(U.ЕA$┤▓ Л(9)з42(g2В GOOD ANSWER(3З@498,"GOOD GOOD";(л4P2(PL)│P2(PL)лB(CO,RO):B(CO,RO)│0:TU│PL(║5АI│1е20:ЛI(┼6Бе2500(▄<З@498,"BAD BAD";(ў=P2(PL)│P2(PL)мB(CO,RO))>АI│1е20:ЛI)@ЕDD│1з20)$FВ TIME LIMIT)3HB(CO,RO)│0)aIЗ@384,"answer ":З" ";Q1$(CO,RO);:Бж502)lJБе2500)БЎA$│ Т:ЕA$│""з502)ЗўР)Т╨В MENU)Ш╒Ю)░┌З" g-party")╫▄З"-------------------------------")ю▐З"1. PLAY ROUND 1"*рЗ"2. PLAY ROUND 2"*тЗ"3. PLAY FINAL"*5фЗ"4. IDENTIFY PLAYERS"*NцЗ"5. LOAD QUESTIONS"*gшЗ"6. SAVE QUESTIONS"*БъЗ"7. ENTER QUESTIONS"*ЬьЗ"8. MODIFY QUESTIONS"*╢юЗ"9. PRINT Q&A SHEET"*▌°З"-------------------------------"*°·З" ENTER OPTION ";:+№ЙOP+7ИOP Бе2060,2070,4500,2090,2110,2200,4300,4200,6000+BБе2042+P В ROUND 1+n A2$│" g-party"+|MX│B(0,5)+ЖCO│99+СБе2500+ЯВ ROUND 2+┴A2$│" double g-party"+ёАCO│0е4:АRO│0е5:B(CO,RO)│B(CO,RO)н2:ЛRO:ЛCO+ MX│B(0,5), CO│99,Бе2500,-*NP│0:В IDENT PLAYERS,d+Ю:З"ENTER PLAYER'S NAME ";:ЙP$(NP):ЕP$(NP)│""з2101,v,ЕPB$│"K"з2098,Ю-З:З"PRESS YOUR BUTTON TO REGISTER";,╛.P1(NP)│ Н(0):ЕP1(NP)┤4з2094,▌/K│ Н(0):ЕK▓P1(NP)зP1(NP)│K,Ё0NP│NPл1:Бе2091-2З"PRESS YOUR KEY TO REGISTER";-3Бж502->4P1(NP)│ К(A$):NP│NPл1:Бе2091-I5Бж2300-S6Бж502-j7TU│ Д(NP)м1:Бе2000-y>В LOAD Q'S-ДHАI│0е4-ТIB(I,0)│50-бJB(I,1)│100-░KB(I,2)│200-┐LB(I,3)│300-╬MB(I,4)│400-▌NB(I,5)│500-фQЛI.SЮ:З"load questions from ";:ЕMD$│"D"з2140.TTЗ"tape":З:З"READY TAPE - PRESS PLAY":З:З"ENTER FILENAME ";:ЙB$.dUЩ"I",#м1,B$.vVАI│0е4:АJ│0е5.бWЙ#м1,H$(I,J),Q2$(I,J),Q$(I,J),Q1$(I,J).лXЛJ:ЛI.┤YЪ#м1.┐[Бе2000.═\З"disk":З.Ў^З"ENTER FILENAME ";:ЙB$:B$│B$л"/DAT"/ `Щ"D",#1,B$,133/8b╨ #1,5  з C1$,8  з C2$,60  з C3$,60  з C4$/@dK│0/RfАI│0е4:АJ│0е5/bhK│Kл1:─#1,K/ШjH$(I,J)│C1$:Q2$(I,J)│C2$:Q$(I,J)│C3$:Q1$(I,J)│C4$/вlЛJ:ЛI/кpЪ#1/╡ЧБе2000/╩ШВ SAVE QUESTIONS/їЩЮ:З"save questions to ";:ЕMD$│"D"з22100@ЪЗ"tape":З:З"READY TAPE - PRESS PLAY & RECORD ":З"ENTER FILENAME ";:ЙB$0PЫЩ"O",#м1,B$0bЬАI│0е4:АJ│0е50НЭЗ#м1,H$(I,J),Q2$(I,J),Q$(I,J),Q1$(I,J)0ЧЮЛJ:ЛI0аЯЪ#м10лбБе20000╣вЗ"disk":З0тдЗ"ENTER FILENAME ";:ЙB$:B$│B$л"/DAT"0їжЩ"D",#1,B$,1331#и╨#1,5  з C1$,8  з C2$,60  з C3$,60  з C4$1+кK│01=мАI│0е4:АJ│0е51w░╘C1$│H$(I,J):╘C2$│Q2$(I,J):╘C3$│Q$(I,J):╘C4$│Q1$(I,J)1З▒K│Kл1:┼#1,K1С▓ЛJ:ЛI1Щ└Ъ#11дЄБе20001║№В DISPLAY PLAYERS1╒ Ю:З" total players":З1Є АPA│0еNPм1:PA(PA)│PA:ЛPA2 АI│1еNPм1:АJ│1еNPм12E ЕP2(PA(J))▓P2(PA(Jм1))зK│PA(Jм1):PA(Jм1)│PA(J):PA(J)│K2O ЛJ:ЛI2] АI│0еNPм12г З═"+##### % % ###";P2(PA(I)),P$(PA(I)),P1(PA(I))2к ЛI2░ VР2─ `В GENERAL BOARD2╧ jЮ:ЗA2$2с tАJ│0е5:АI│0е42■ vЗ".";:З═"% %";H$(I,J);3 xЛI:З"."3 zЛJ38 ТЗ"----1-----2-----3-----4-----5--"3C ЬАJ│0е53N ЭАI│0е43 ЮЗ"!";:ЕB(I,J)│0зЗ" ";:ДЗ═"#### ";B(I,J);3Р ЯЛI:З═"#";Jл13Ч аЛJ3╛ жЗ"-------------------------------"3ш ░ЗP$(TU);" - select";:З@504,"T A C M";3ю ║Р4 ─В NORMAL PLAY4 ╬Бж24004 ╪Бж5024& тЕA$│"M"з200047 чЕA$│"C"з29004I ыЕA$┤▓"T"з25454T ьБж23004^ эБж5024i юБе25004Г ёЕA$│"A"зБж2700:Бе25004Ф ЕA$┤"1"з25204е ЕA$▓"5"з25204╡ CO│ Й(A$)м14┐ Бж5024╨ ЕA$┤"1"з25204с ЕA$▓"6"з25204ё RO│ Й(A$)м15 ЕB(CO,RO)│0з25005 Бе50005# МВ SHOW ANSWER50 ЦЕCO│99зР56 аЮ5\ кЗ"question:":З" ";Q$(CO,RO):З:З5} ┤З"answer:":З" ";Q1$(CO,RO)5З ▄Бж5025Н цР5м TВ CORRECT A PLAYER'S SCORE5╖ ^Бж23005ф hЗ@448,"PLAYER TO CORRECT: PLEASE IDENT";5Ў mЕPB$│"K"з29506 rJ│ Н(0):Е Т┤▓""з29906 tЕJ┤4з293061 |PL│99:АI│0еNPм16O ~ЕJ┤P1(I)л2░J▓P1(I)м2зPL│I6V АЛI6f ВЕPL│99з29306q ДБе29606{ ЖБж5026Р ИPL│999:АI│0еNPм16з КЕ К(A$)│P1(I)зPL│I6╗ МЛI:ЕPL│999з29506ў РЗ@448,"ENTER CORRECTION AMT FOR ";P$(PL);"'S SCORE";:ЙK7 ЪP2(PL)│P2(PL)лK7 дБж23007' жАI│1е1000:ЛI72 оБж25007F ╕В INPUT INTO A$7T ┬A│0:A$│""7r ╟З@A9,"? ";A$; Л(255);" ";7И ╠Z$│ Т:ЕZ$│""з30207Щ ╓ЕZ$│ Л(13)зР7╛ рЕZ$┤▓ Л(8)зA│Aл1:A$│A$лZ$:Бе30157╥ ъA│Aм1:ЕA┤1з30107щ ЇA$│ О(A$,A):Бе30157 ┤В DISPLAY CATAORY8╛З@32,"catagory ";COл18/└З@064," >-----<";8h├АJ│0е5:J1│096лJн32:З@J1,═" % % ";H$(CO,J);:ЛJ8~╟З@288," >-----<";8Д╚Р8Щ═В INPUT CATAGORY8д╥АJ│0е58├╘J1│096л(Jн32):A9│J1:Бж30008▌╒Е З(A$)▓5зA$│ О(A$,5)8ї╓ЕA$┤▓""зH$(CO,J)│A$9╪З@J1,═" % % ";H$(CO,J);9┌ЛJ9%█Р97цВ INPUT Q & A9ИчЗ@320,═" % % # % % % %";"question",ROл1,"type",Q2$(CO,RO);9фшЗ@352,═"%% % %";"q",Q$(CO,RO);:AъЗ@416,═"%% % %";"a",Q1$(CO,RO);:iюA9│340:Бж3000:Е З(A$)▓8зA$│ О(A$,8):ГЁЕA$┤▓""зQ2$(CO,RO)│A$:йЄЗ@340,═" % % ";Q2$(CO,RO);:╙ЇA9│353:Бж3000:Е З(A$)▓60зA$│ О(A$,60):ьЎЕA$┤▓""зQ$(CO,RO)│A$;D°З@353,═" % %";Q$(CO,RO);;n·A9│417:Бж3000:Е З(A$)▓60зA$│ О(A$,60);И№ЕA$┤▓""зQ1$(CO,RO)│A$;с■З@417,═" % %";Q1$(CO,RO);;чР;їhВ MODIFY <rЮ:З" modify screen":З<.|Й"qUESTION OR cATAGORY";A$ФВ FINAL>ЩБж2300>ЫБж502>NЮЮ:З" final g-party":З@128,"catagory:">ЙиЗ@160,H$(0,0);H$(0,1);H$(0,2);H$(0,3);H$(0,4);H$(0,5);>У▓Бж502>й╝З@256,"question:">╝╞З@291,Q$(0,0);>╞╨Бж502>√▀PA│0:АI│0еNPм1:ЕP2(PA(I))▓0зPA│PAл1:ДPS(PA(I))│0?фЛI?-°PB│PA:АI│PBм1е0йм1:PB(PBм1мI)│PA(I):ЛI?<АA9│0еPBм1?G Бж2300?]З@448,P$(PB(A9));?gБж502?ВЕA$│ Л(8)зDD│м1:Бе4630?ЬЕA$│ Л(9)зDD│1:Бе4630?зБе4625?╝З"'S WAGER ";:ЙK?█ P2(PB(A9))│P2(PB(A9))лKнDD?у*ЛA9?ю4Бж2300@>З@448,"congradulations ";P$(PA(0));@ HБж502@+RБе2000@BИВ DISPLAY QUESTION@KКDD│1@МЛA$│ Т:ЕA$┤▓""зЗ@448,"someone has their key pushed";:goto5003@ЮМЕPB$│"K"з5006@▀НJ│ Н(0):ЕJ▓1зЗ@448,"someone has their button pushed";:Бе5005@ ОЕQ2$(CO,RO)▓" "з5100A ПАPA│0еNPм1:PA(PA)│P1(PA):ЛPAA9ТЮ:З" question"AM║З@131,Q$(CO,RO)AVтБе20AiьВ DAILY DOUBLEAxёPL│TU:DD│2A╣ЎЮ:З@128,"*** D A I L Y ***":З@160," D O U B L E"BЕQ2$(CO,RO)┤▓"A "░Q2$(CO,RO)┤▓"D "зЗ@096," v i d i o"B9 ЕQ2$(CO,RO)│"A "зЗ@096," a u d i o"BWЗ@224,"player - ";P$(PL);BuЗ@256,"total - ";P2(PL);BР(K│P2(PL):ЕK┤MX з K│500Bи-З@320,"limit - ";KB█2З@336,"";:Й"WAGER ";B(CO,RO):ЕB(CO,RO)▓K з5170C7Ю:З" question":З@131,Q$(CO,RO);C%9ЕQ2$(CO,RO)│"D "з5198CE:ЕQ2$(CO,RO)│"A "з5190CМ<ЕMD$│"D"зQ2$(CO,RO)│Q2$(CO,RO)л"/BIN":╙MQ2$(CO,RO) :Д ЧMQ2$(CO,RO)Cн>╚4,1:┐1,1:АI│1е100:ЛI:Бе5198C╖FбИ:ЯИC┴GБж502C╦Hбк:ЯкC╘NБе40CыpВ PRINT Q & A LISTDzЗ#м2," LIST OF Q & A FOR FILE ";B$D|З#м2D+ДАCO│0е4DBЖЗ#м2:З#м2,"*** ";DlИАJ│0е5:З#м2,H$(CO,J);" ";:ЛJ:З#м2," "DxКАRO│0е5DЎМЗ#м2,═"# # %% % % % %";COл1,ROл1,"Q",Q$(CO,RO),Q2$(CO,RO)EUОЗ#м2,═" %% % %";"A",Q1$(CO,RO)E^РЗ#м2EfТЛROEnФЛCOEy╩Бе2000EЕ&мВ SETUPEн&╢МB(5,6),P1(10),P2(10),PA(10),PB(10)E█&└МP$(10),Q$(5,6),Q1$(5,6),Q2$(5,6),H$(5,6)E &╩Ю:З" WELCOME TO CO-CO g-party!"Fg&╠З@128,"WILL YOU USE (G)AME-BUTTONS OR (K)EYBOARD FOR PLAYER BIDDING";:ЙPB$:ЕPB$┤▓"G"░PB$┤▓"K"з9932FО&╥Е Ж(&HC000)┤▓&H44 з MD$│"T":Бе9990Fщ&╘З@256,"WILL YOU USE (D)ISK OR (T)APE FOR FILE STORAGE";:ЙMD$:ЕMD$┤▓"D"░MD$┤▓"T"з9940FЇ'Бе2000-party!"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ¤& В"DEWEY DECIMAL SYSTEM"&TВ"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1987&gPR$│ б(32,255)&Р(М A$(10),B$(10),C$(10),D$(21),E$(21)&╖2А T│1 е 10:Н A$(T),B$(T),C$(T):Л T&╪<А T│1 е 21:Н D$(T),E$(T):Л T&▀FЮ5&ЎPN│Nл1:Е N▓10 з 210'(ZА T│1 е 10:Зд0)A$(T);"."д3)B$(T)д13)C$(T):Л T'7dЗ@320,PR$;'cnЗ@352," WHERE CAN WE LEARN MORE ABOUT"'pxR│ Д(21)'АВЗ@384,D$(R)'ЧМЗ@412,"? ";:╗Й AN$'жЦЗ@448,PR$;'╤аЕ AN$│E$(R) з З@425,"CORRECT";:CR│CRл1(кЕ AN$┤▓E$(R) з З@421,"SORRY,"E$(R)" IS CORRECT";((┤З@484,"press enter to go on";(3╛EN$│ Т(P╚Е EN$│ Л(13) з 70 :Д 190(r╥Ю:З" DEWEY DECIMAL SYSTEM"(Ю▄З:З"YOUR SCORE WAS "CRн10"% THIS TIME."(уцЗ:З" PRESS G TO GO AGAIN OR E TO END THE GAME."(юЁEN$│ Т(√·CR│0:N│0)%Е EN$│"G" з О :Д Е EN$│"E" з К :Д 240)ЕЖ A,000-999,GENERAL WORKS,B,100-199,PHILOSOPHY,C,200-299,RELIGION,D,300-399,SOCIAL SCIENCES)уЖ E,400-499,LANGUAGE,F,500-599,PURE SCIENCE,G,600-699,APPLIED SCIENCE,H,700-799,FINE ARTS*"Ж I,800-899,LITERATURE,J,900-999,HISTORY AND TRAVEL*a,Ж THE FRENCH LANGUAGE,E,BONGO DRUMS,H,THE STORY OF THE U.S.FLAG,J*Х6Ж WAYS OF THINKING,B,ALMANACS,A,BIBLE STORIES,C*ц@Ж STORIES ABOUT GODDESSES,C,WASHINGTON'S LIFE STORY,J,TURTLES AND TORTISES,F+1JЖ POETRY OF THE 1800'S,I,SENDING SOMEONE TO THE MOON,G,ATOMIC ENERGY,G+lTЖ BRAZIL'S HISTORY,J,TORNADOES,F,HOW TO MAKE PUPPETS,H+╖^Ж HISTORY OF ANCIENT ROME,J,THE CARE OF PETS,G,CHEMISTRY EXPERIMENTS,F+№hЖ FAMOUS FAIRY TALES,D,REFERENCE BOOKS,A,HISTORY OF TELEVISION,G'S,I,SENDING SOMEONE TO THE MOON,G,ATOMIC ENERGY,G+lTЖ BRAZIL'S HISTORY,J,TORNADOES,F,HOW TO MAKE PUPPETS,H+╖^Ж HISTORY OF ANCIENT ROME,J,THE CARE OF PETS,G,CHEMISTRY EXPERIMENTS,F+№hЖ FAMOUS FAIRY TALES,D,REFERENCE BOOKS,A,HISTORY OF TELEVISION,G                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░& Ю:З@40,"<<>>"&HЗ@96,"BY KEIRAN KENNY, THE HAGUE, 1986"&aАX│160е191:З@X,"+":Л'D(З@224,"INPUT THE NUMBERS TO BE ADDED (MAX. 9 CHARACTERS INCLUDING DECIMAL POINT). YOU WILL HAVE A RUNNING TOTAL AND, AFTER EACH 13 ROWS, A SUB-TOTAL AT THE TOP OF EACH COLUMN. TO SUBTRACT ENTER A MINUS NUMBER.";'k2З:З:Зд6)"PRESS ANY KEY.";:в44539:Ю's<З:З'ИFМ A(216),SM(216)'СPP│80'╒ZN│Nл1:З@0, Л(31):З@0,;:Й"INPUT A NUMBER";A$:A│ Й(A$):З@0, Л(31)'єdЕ З( И(A))▓10 зN│Nм1:Бе90(nA(N)│A:SM(N)│SM(Nм1)лA(N)(UxLA│ З( И( Б(A(N)))):LS│ З( И( Б(SM(N)))):LT│ З( И( Б(SM(Nм1))))(mВЕA(N)▓0░A(N)┤1зLA│1(ЗМЕSM(N)▓0░SM(N)┤1зLS│1(аЦЕA(N)┤0░A(N)▓м1зLA│1(╗аЕSM(N)┤0░SM(N)▓м1зLS│1(┌кЕSM(Nм1)┤0░SM(Nм1)▓м1зLT│1)!┤ЕNо13┤▓ Б(Nо13)зЗ@Pм16, Л(31):З@PмLA,A(N):З@Pл26мLS,"TOTAL:"SM(N);)z╛ЕNо13│ Б(Nо13)зЮ:З@40мLT,"SUB-TOT:"SM(Nм1):P│80:З@PмLA,A(N):З@Pл26мLS,"TOTAL:"SM(N);)Е╚P│Pл32)Ф╥ЕN│216з230)Э▄Бе90)пцЗ@Pл29,"END";)▓м1зLS│1(┌кЕSM(Nм1)┤0░SM(Nм1)▓м1зLT│1)!┤ЕNо13┤▓ Б(Nо13)зЗ@Pм16, Л(31):З@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &$ :Г****************************&G:Г* PALETTE COLOR CHECKER *&j:Г* FOR USE WITH THE COCOIII *&Н(:Г* VERSION:1.0 8611.04 *&░2:Г****************************&╙<:Г* (C) 1986 BY ERIC WHITE *&ЎF:Г****************************'PFG│0:BG│18:И Ё Бе 150'iZЮ:АX│32 е 127:З  Л(X);:Л:З@390,"PALETTE COLOR CHECKER":З@422,"VERSION: 1.1 8611.01"'КdЕ  Ж(343)│191 з FG│FGл1 ░ 63'лnЕ  Ж(344)│191 з BG│BGл1 ░ 63'╒xу 12,FG:З@230,"F1 FOR FOREGROUND="FG' Ву 13,BG:З@294,"F2 FOR BACKGROUND="BG( МБе100(Цу 12,0:у 13,18127:З  Л(X);:Л:З@390,"PALETTE COLOR CHECKER":З@422,"VERSION: 1.1 8611.01"'КdЕ  Ж(343)│191 з FG│FGл1 ░ 63'лnЕ  Ж(344)│191 з BG│BGл1 ░ 63'╒xу 12,FG:З@230,"F1 FOR FOREGROUND="FG' Ву 13,BG:З@294,"F2 FOR BACKGROUND="BG                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 №&:Г GRAFIT&.:Г =======&L:Г By Michael G. Sims&e:Г 5 Skinner Ct.&З:Г Tomkins Cove, NY 10986&О:Г&ЫБж 10000&ч М TEST(255),L$(97):А LE│48е57:L│Lл1:НL$(LE):Л:АLE│65е90:L│Lл1:НL$(LE):Л&ЄRNUM│0' Е  Я┤50 з 40 :Д Бж8020'O(Ю:З@0,"GRAFIT":З@8,"FN="FILE$:З@20,"NF="RNUM:З@32, б(32,204);'b2З:Зд7);"MENU:"'z<Зд7);"<1> ADD DATA"'УFЗд7);"<2> SAVE DATA"'мPЗд7);"<3> LOAD DATA"'╞ZЗд7);"<4> GRAPH DATA"'рdЗд7);"<5> NAME GRAPH"'·iЗд7);"<6> PRINT DATA"(jЗд7);" NEW MEMORY"()nA$│ Т:ЕA$│""з110(?xЕ A$│"N" з  Я│0:О(uВA│ Й(A$):ЕA┤1 ▒ A▓6 з Бж 6080:АDL│1е1000:ЛDL:Бе40(ЮМИ A Бе 1000,2000,3000,4000,5000,9000(еш:Г(╩ЄЮ:З@0,"ADD DATA":З@32, б(32,204)(▀№А X│RNUMл1 е 255(°З"ITEM"X":";:╗ЙTEST$)Е TEST$│"" з RNUM│Xм1:Бе40);Е  К(TEST$)▓57 з Бж 6070:Бе1030)_$Е  З(TEST$)▓9 з Бж 6020:Бе 1030)u.TEST(X)│ Й(TEST$))Ц8Е TEST(X)┤0 з Бж6000:Бе 1030)ЮBЛ X)░LБж 6010:Бе 40)ю╨ЕRNUM│0зБж6060:Бе40 :Д Ю:З@0,"SAVE DATA":З@32, б(32,204);)Ї┌З*фЗ"FILENAME:";:╗ЙFILE$*DюЕ FILE$│"" з 40 :Д Е  З(FILE$)▓8 з Бж 6040:Бе2020*`°Щ"D",#1,FILE$л"/GPH",33*sА RUM│1 е RNUM*Н З#1,TEST(RUM):┼#1,RUM*ЧЛ RUM*─ З#1,NAME$:┼#1:З#1,BOT$:┼#1:З#1,SIDE$:┼#1*╤*Ъ#1:Бе40*° ╕Ю:З@0,"LOAD DATA":З@32, б(32,204);*■ ┬З+ ╠З"FILENAME:";:╗ЙFILE$+M ╓Е FILE$│"" з 40 :Д Е  З(FILE$)▓8 з Бж6040:Бе2020+i рЩ"D",#1,FILE$л"/GPH",33+А ъА RNUM│1 е  е(1)м3+Ч Ї─#1:Й#1,TEST(RNUM)+в ■Л RNUM+╧ ─#1:Й#1,NAME$:─#1:Й#1,BOT$:─#1:Й#1,SIDE$+▄ Ъ#1:Бе40,#аТ178,3:Е RNUM│0 з Бж 6060:Бе40 :Д Е NAME$│"" з F1│1:Бж 6050:Бе5000,?еЗ:З"LINE OR BAR? (L/B)",ЗжA$│ Т:ЕA$│""з4006 :Д Е A$│"L" з З :Д Е A$│"B" з З :Д Бж 6080:Бе4006,акR5│0:X│0:╚4,1:╝:┐1,1,·┤X│123м((7н З(NA$))о2):АM│1е З(NA$):X│Xл7:╞"BM"л И( Б(X))л",10;"лL$( К( Р(NA$,M,1))):Л-S╛Y│97м((10н З(SI$))о2):АM│1е З(SI$):Y│Yл9:╞"BM2,"л И( Б(Y))л";"лL$( К( Р(SI$,M,1))):Л-о╚X│123м((7н З(BO$))о2):АM│1е З(BO$):X│Xл7:╞"BM"л И( Б(X))л",189;"лL$( К( Р(BO$,M,1))):Л-┼╥╗(0,15)м(255,15),╜-█▄А Y│191 е 20 й м5-яц╗(9,Y)м(12,Y),╜-ЎЁЛY.·АX│0е255й5:╗(X,179)м(X,176),╜:ЛX.#T│0.2S│255оRNUM.eZZ│TEST(1):АZQ│1еRNUM:ЕTEST(ZQ)▓ZZ з ZZ│TE(ZQ).n"Л ZQ.{,N│151оZZ.и6╗(15,171м(TE(1)нN))м(15,171м(TE(1)нN)),╜.╛;Е A$│"B" з Т178,2.Є@Е A$│"L" з А X│15 е 255 й S :Д А X│15 е 250 й S.■JR5│R5л1/OЕ R5│RNUM з 4200/cTЕ A$│"L" з ╗м(X,171м(TE(R5)нN)),╜ :Д ╗(X,170)м(Xл(Sм5),171м(TE(R5)нN)),╜,BF/k^Л X/БhЕ Т│""з4200:ДБе40/еИЮ:З"NAME GRAPH":З@32, б(32,204)/лТЗ/╚ЬЗ"ENTER TITLE OF GRAPH:"/╪ж╗Й">";NAME$0░Е NAME$│"" з NA$│" ":Бе40 :Д Е  З(NAME$)▓32 з Бж6040:Бе50300n║З"BOTTOM LABEL:":╗Й">";BOT$:ЕBOT$│""зBO$│" ":Бе40 :Д Е  З(BOT$)▓32 зБж6040:Бе50500╚─З"SIDE LABEL:":╗Й">";SIDE$:ЕSIDE$│""зSI$│" ":Бе40 :Д Е  З(SIDE$)▓15 з Бж 6040:Бе 50600щ╬Е F1│1 з F1│0:Бе4000 :Д Бе400Ї╪Бе50801pЗ"error:NUMBER TOO SMALL":а 200,3:Р1PzЗ"error:FILE TOO LARGE":а200,3:АDL│1е1000:ЛDL:Р1wДЗ"error:NUMBER TOO LARGE":а200,3:Р1ЬОЗ"error:NAME TOO SHORT":а200,3:Р1└ШЗ"error:NAME TOO LONG":а200,3:Р1ювЗ"error:NO TITLE":а200,3:АDL│1е1000:ЛDL:Р2 мЗ"error:MEMORY EMPTY":а200,3:АDL│1е1000:ЛDL:Р2M╢З"error:NO ALPHA DATA ALLOWED":а 200,3:Р2r└З"error:SO SUCH CHOICE":а200,3:Р2yX:Г2ПbЖBRHU4ERFD4GNLBR22ЯlЖR2U6NGD6R22╡vЖBU5ER2FDGL2GD2R42╨АЖBU5ER2FDGNLFDGL2NHBR32тКЖBR3U6G3R4BD32·ФЖBUFR2EU2HL3U2R4BD63ЮЖBU3R3FDGL2HU4ER2BD6BR3(иЖBU6R4DG3D2BR33G▓ЖBRHUER2EUHL2GDFR2FDGNL2BR3_╝ЖBRR2EU4HL2GDFR3BD33r╞ЖU5ER2FD2NL4D33Н╨ЖRU6NLR2FDGNL2FDGNL3BR3е┌ЖBR4BU5HL2GD4FR2EBD3╗фЖRU6NLR2FD4GNL2BR3╧юЖU6NR4D3NR3D3R43с°ЖU3NR3U3R4BD63√ЖBUU4ER3BD4NLD2L3NHR34  ЖU3NU3R4NU3D34!ЖR2U6NL2NR2D6R244 ЖBUNUFR2ENU5BD4E*ЖU3NU3RNE3F34P4ЖNU6R44`>ЖU6F2DUE2D64oHЖU6F4NU4D24ЖRЖBRHU4ER2FD4GNL2BR4Ъ\ЖU6R3FDGL3D3BR44┤fЖBRHU4ER2FD4GNL2BUHF24╞pЖU6R3FDGL3RF34▀zЖBUFR2EUHL2HUER2FBD54ёДЖBU6R4L2D6BR25ОЖBUNU5FR2ENU5BD5ШЖBU6D4F2E2U4BD65+вЖNU6E2UDF2NU65?мЖUE4NUG2H2NUF4D5V╢ЖBU6DF2E2NUG2D3BR25g└ЖBU6R4DG4DR45w@╚4,1:╝:┐1,15гJНA$:X│Xл5:╞"BM"л И(X)л",120;"лA$:Бе80106(TF5│1:╚ 4,1:╝:┐1,1:Т178,2:АX│0е20й2:╗(X,0)м(X,191),╜:╗(256мX,0)м(256мX,191),╜:╗(0,X)м(255,X),╜:╗(0,191мX)м(255,191мX),╜:ЛX:Т178,36TUG$(1)│"BM+1,+0;R4E1UL3;BM-3,+0;DU4ER4F"6╟VG$(2)│"U2R5FDUHEUH2L4D4":G$(3)│"U2R6D2U4H2L2G2D2":G$(4)│"U2R4L4U4R6":G$(5)│"R6L3U6R3L6":G$(6)│"BM+3,+0;U6R3L6"7WX│90:АG│1е6:X│Xл10:╞"BM"л И(X)л",40;"лG$(G):ЛG:╗(85,47)м(170,27),╜,B7в^A$(1)│"A GENERAL PURPOSE GRAPH":A$(2)│"PROGRAM FOR THE TANDY":A$(3)│"COLOR COMPUTER":Y│50:A$(4)│" ":A$(5)│" ":A$(6)│"BY":A$(7)│"MICHAEL SIMS"7░hА A│1 е 77╕rX│07╘|X│123м(( З(A$(A))н7)о2)7▀ЖY│Yл157їРА M│1 е  З(A$(A))7 дX│Xл787о╞"BM"л И( Б(X))л","л И(Y)л";"лL$( К( Р(A$(A),M,1)))8C│╔"L255"8M╕Л M,A8k╠А Z│1е1300:Е Т│""зЛ :Д 408u╓Бе 408▒#(ЕRNUM│0зБж6060:Бе40 :Д Ю:З"PRINT DATA":З@32, б(32,204);8╥#2З:З"PRINTER OR SCREEN (P/S)"93#"9Е#PЕB│м2 з Е Т│ Л(13) з 9050 :Д 90409╛#ZЗ#B,NAME$:З#B, б( З(NA$),"-"):АX│1еRNUM:ЗTEST(X),:ЛX9╧#dЕ  Т│""з90609┘#nБе 409ї'Т150,40:Гset br to 12009√'Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  !&HЮ:Т&HFFD9,0:уў:у0,0:у2,11:у14,3:ф2:Ю1:ГPOKER GAME BY R. L. BRIMNER&^ИЁБе5999:ИяБе5999&|Т278, Ж(274):Т281, Ж(275)&└МC(4,15),H$(5),H(5),N$(11),S$(10):C(1,15)│8:C(2,15)│8:C(3,15)│8&╨F$│"SCORES"'9 э1,1155:э2,6560:э3,8:ы(0,0)м(160,80),2:H$(1)│"4E":H$(2)│"4D":H$(3)│"4C":H$(4)│"4B":H$(5)│"4A":Бж5914'Ь Бж7000:Т&HFFD8,0:Щ"I",#1,F$:АQ│1е9:Й#1,N$(Q),S$(Q):Л:Ъ#1:Т&HFFD9,0:ЕS$(9)│""зX$│"20":ДX$│S$(9)(4ч3:ю(10,0),"FIVE CARD DRAW POKER":ъ(76,10)м(244,10),╜,B:X$│"Can you top $"лX$л"?":ч1:ю(12,10),X$:а50,1:а1,3:Бж5700:АQ│1е4000:Л:Бж5602:Z│108:у0,1:Ю1(eHB$│"":TM│1:SW│1:AB│1:H9│м1:N$│"":HH│20:D│20(ШЕGB│0зБж5601:ч3:ю(10,10),"Press for rules!(╩Бж5200:D$│"":RM│2:Бж5400:Бж5260:Бж1000:Бж1200(┘:ГBET LOOP)sB$│ Т:ЕB$│""зЕD▓0зPR$│"Place your bet":Бе5210:Д24:Да100,1:Бж5270:ЕB$│"R"зH9│H9нм1:Бж1100:Бе24:ДЕB$│"S"зH9│H9нм1:Бж2000:Бе24:ДЕB$│"E"зH9│1:Бж2000:Бе24)ОЕB$│" "зB$│HB$:ДHB$│B$) ЕB$│"A"зB│D :ДЕB$│"H"зB│ Б(Dо2):ДЕB$│"Q"зB│ Б(Dо4):ДЕB$│"T"зB│ Б(Dн3о4):ДB│ Й(B$):ЕB$┤"0"▒B$▓"9"з:ДЕB│0зB│10*ЕB│0▒B▓D зB$│"":Бе24*ЗAB│B:BT$│ И(B):L│ З(BT$)л1:BT$│ П(BT$,Lм2):D│DмB:PR$│"You bet $"лBT$:Бж5212:Бж5200:ЕB│▓ Б(Dо4)зRM│1:Бж5400*аЕGB│0зБж5918:ДБж5602*╥АZ│1е5:Бж5890:Л:Бж5914:QT│0:QS│1:H9│м1:Бж1000*▄Бе100*ьa:ГDRAW LOOP+bQT│0:ЕH(1)лH(2)лH(3)лH(4)лH(5)│м5зQS│1:ДQS│0+PdB$│ Т:ЕQT│150░QS│0з5990:ДЕB$│""зQT│QTл1:Бе5220,fБж5270:ЕB$│ Л(32)▒B$│ Л(13)▒B$│"N"з200:ДЕB$│"S"зH9│H9нм1:Бж2000:Бе100:ДЕB$│"R"зH9│H9нм1:Бж1300:Бе100:ДЕB$│"E"зH9│1:Бж2000:Бе100:ДЕB$│"A"зQS│0:Бж5602:Бе98:ДZ│ Й(B$):ЕZ┤1▒Z▓5з98,.hа80,1:H(Z)│H(Z)нм1:Y│14:X│24л(Zм1)н56,XjQS│0:ЕH(Z)│1зБж5160:Бе98:ДБж5140:Бе98,ч╚Бж5601:АZ│1е5:ЕH(Z)│1зY│14:X│24л(Zм1)н56:H(Z)│0:Бж5300:C(S,R)│8:C(0,R)│C(0,R)м1:C(S,1)│C(S,14):C(0,1)│C(0,14):ЕR┤15зC(S,0)│C(S,0)м1:Д:Д210,∙═Бж5890:Бж5140-╥Л:ЕGB│0зGB│1:Бж5601-,+:ГDETERMINE THE RETURN-Ж,P│0:JK│C(0,15):AC│C(0,14):ST│0:HJ│JK:FL│0:K3│0:K2│0:W│0:АS│1е4:ЕC(S,0)▓4мJK зFL│1:S│4-Ь-Л:ЕFL│0з310:ДFL│0-▓.АR│10е1йм1:Бж5500-╪0ЕFL│1зЕR▓9зP│15:Бе480:ДP│16:Бе480-щ2Л:P│19:Бе480.6АR│14е2йм1:ЕC(0,R)▓1зST│1.%9ЕC(0,R)│▓4мHJ зP│17:Бе480.P:ЕC(0,R)│3мHJ зK3│1:HJ│0:ЕK2▓0з470:Д324.=ЕC(0,R)│2зЕK2│1зK2│2:Бе330:ДK2│1:ЕK3│1з470.а@ЕST│0зЕR┤11зБж5500:ЕFL│1з326.│DЛ:ЕST│0зБж5500.┬EЕFL┤▓1з330.╤FP│20:Бе480.цJЕK3│1зP│21:Бе480.√LЕK2│2зP│22:Бе480/NЕAC│2░K2│1з:ДЕAC│1░JK│1з:Д340/,OP│23:Бе480/cTЕD▓0зч4:ю(0,11),"Try Again!":а80,1:а1,4:Бе480:Д480/l╓P│18/╢рЕP▓0зч5:Бж1004:АQ│1е13:K│ Д(50):аK,1:Л:а1,5:D│DлW:ЕHH┤D зHH│D :Д:Д495/┴ъБж52000яБж5700:ЕD▓0зRM│3:Бж5400:AB│1:Бе24:ДGM│1:Q│0:H9│1:а80,1:а1,4:B$│"":Бе20000%ч:ГSHOW THE RETURNS0OшX│0:Бж5250:Бж1099:АP│15е23:Бж1004:Л:Р0РьX$│" ":ИPм14Бж1010,1020,1030,1040,1050,1060,1070,1080,1090:Р0╔ЄX$│"$":W│100нAB:L│ З( И(W)):PR$│"Royal Flush":Бе10930ь№W│40нAB:PR$│"St. Flush":Бе10931W│20нAB:PR$│"4 of a Kind":Бе109315W│10нAB:PR$│"Full House":Бе10931SW│5нAB:PR$│"Flush":Бе10931t$W│4нAB:PR$│"Straight":Бе10931Ш.W│3нAB:PR$│"3 of a Kind":Бе10931╖8W│2нAB:PR$│"2 Pair":Бе10931╠BW│AB:PR$│"2 Aces2EPN│Lм З( И(W)):PR$│X$л П( И(W), З( И(W))м1)л" "лPR$:ю(PN,P),PR$:Р2TKч2:X$│"Returns on $"л П( И(AB), З( И(AB))м1)л":":ю(0,14),X$:Р2лLЕH9│1зX│160:Бж5250:ч7:ю(21,14)," for betting:":ДБж1200:Бе24 :ГSHOW BET RULES2═Qю(21,15),"<1-9,0> = $1-$9,$102ЇVю(21,16),"=1/4 of $":ю(32,16),D3[ю(21,17),"=2/4 of $":ю(32,17),D3B`ю(21,18),"=3/4 of $":ю(32,18),D3ieю(21,19),"=4/4 of $":ю(32,19),D3кjю(21,20)," will re-":ю(22,21),"peat your last bet"3хoю(21,22)," to see scores":ю(21,23)," to end game3ыпР4F░X│160:Бж5250:ч2:ю(21,14),"Definitions:":ю(21,15),"(AKQJ10 of a suit) 'SHOW DEFINITIONS4g║ю(21,16),"(Run of 5 in suit)4И─ю(21,18),"(3 of kind & pair)4й╬ю(21,19),"(All of same suit)4╦╪ю(21,20),"(Run of 5 any suit)4╤тР5*ЕH9│1зX│160:Бж5250:ч6:ю(21,14)," for drawing:":ДБж1200:Бе100 :ГSHOW DRAW RULES5Lю(21,16),"<1-5> will discard,5Лю(22,17),"or will recall, an":ю(22,18),"erroneous discard.5н#ю(21,19)," Discards all 5!6 (ю(21,21)," will re-":ю(22,22),"place cards and/or":ю(22,23),"continue the game."6wР6$╧:ГSHOW SCORES6k╨ЕH9│м1зX│160:Бж5250:Бж1200:Р:ДБж2002:ЕB$│"S"зР:ДЕB$│"E"з2100:Д20506█╥X│160:Бж5250:ч9:ЕN$▓""зАQ│9е1йм1:ЕHH▓ Й(S$(Q))зS$(Qл1)│S$(Q):S$(Q)│ И(HH):N$(Qл1)│N$(Q):N$(Q)│N$:ДQ│1:Д20056с╙Л7╒ю(21,14),"Nine high scores:7L┌АQ│1е9:Q$│ П( И(Q),2)л О(" "лN$(Q)л" ",9)лS$(Q):ю(20,14лQ),Q$:Л7R█Р7qЕHH▓ Й(S$(9))░HH▓20з:Д20677Яа80,1:L│0:ч1:Бж5204:ю(21,12),"Your name?"7╙ъ(257,103)м(263,103),╜,B:ы(257,103)м(263,103),38t M$│ Т:ЕM$│""зь(257лLн8,103)м(263лLн8,103),3,╜:Бе2060:Дь(257лLн8,103)м(263лLн8,103),2,╜:ЕM$│ Л(8)з2068:ДЕM$▓ Л(31)░L┤8зю(32лL,12),M$:N$│N$лM$:L│ З(N$):Бе20708░Т282,255:ЕM$┤▓ Л(13)зN$│"":Бе2050:ДЕN$▓""зБж2002:Бе21208╬Бж5204:ЕB$│"E"з2142:Д21409ь(249лLн8,96)м(263лLн8,103),2,╜:L│Lм1:ЕL┤1зN$│"":Бе2050:ДN$│ О(N$,L):Бе20609;ЕL│1зТ282,0:Бе2060:Д20609n4а80,1:ю(5,11),"Do you want to END GAME (Y/N)?"9г>A$│ Т:ЕA$│""з2110:ДЕA$│"Y"з2050:ДБж5270:Бж5200:Р9╚HБж5270:ю(13,11),"Saving scores!"9сMТ&HFFD8,0:Щ"O",#1,F$:BRАQ│1е9:┘#1,N$(Q),S$(Q):Л:Ъ#1:ЕH9│0зЮ:З"SCORES file established/cleared!":С:ДТ&HFFD9,0:Бе2140:y\а80,1:Бж5270:ю(6,11),"Press to play again":Ф]A$│ Т:ЕA$┤▓ Л(13)з2141:▒^Бж5270:Бж5602:Z│108:Бе15:─И:ГSUB ROUTINES;$ЕH9│0зч14:ъ(X,Y)м(Xл40,Yл54),╜,B:ч4:ъ(Xл1,Yл1)м(Xл39,Yл53),╜,BF:ы(X,Y)м(Xл40,Yл54),1:Бе5150;?ь(X,Y)м(Xл40,Yл54),1,╜;дБж5300:ЕR│15зї"S4C14":HX│Xл1:HY│Yл8:Бж6000:Бж6010:Р :Дї"S8C14":HX│Xл3:HY│Yл15:Бж5152:ЕS▓2зч3:Дч2;═HX│HXл1:Бж5152:HY│HYл1:Бж5152:Бе5155<" Бж6020:ИRм1 Бж6025,6030,6035,6040,6045,6050,6055,6060,6065,6080,6100,6085,6070:Р"dЕQS│1зь(0,88)м(112,95),2,╜:TM│TMнм1:ЕTM│1з:Дч4:ю(0,11),"Draw?":АQ│1е360:Л>,eБе100>KВь(X,112)м(Xл160,192),2,╜:Р>ВМь(0,Zл4)м(320,Zл44),2,╜:ь(0,Zл45)м(320,Zл85),2,╜:Р>ЭЦь(0,88)м(320,95),2,╜:Р>╤┤S│ Й("&H"л О(H$(Z),1)):R│ Й("&H"л П(H$(Z),1)):Р?ч4:Е Д(RM)│1зC(4,15)│0:X$│"Joker is IN":ДC(4,15)│8:X$│"Joker is OUT"?Bь(72,104)м(95,111),2,╜:ю(0,13),X$:Р?Б|ЕC(0,R)лC(0,Rл1)лC(0,Rл2)лC(0,Rл3)лC(0,Rл4)лC(0,15)▓4зFL│1?З}Р?гсь(32,80)м(288,87),2,╜:Р?╬тY│14:Z│0:АX│24е264й56:Z│Zл1:Бж5160:Л:Р?·DC(0,15)│0:АR│0е14:АS│0е4:C(S,R)│0:Л:Л:Р@ S│ Д(4):R│ Д(14)л1:ЕC(S,R)▓0з5890@ИC(S,R)│9:C(0,R)│C(0,R)л1:H$(Z)│ Ь(S)л Ь(R):C(S,1)│C(S,14):C(0,1)│C(0,14):ЕR┤15зC(S,0)│C(S,0)л1:Р:ДР@╦Y│14:Z│1:Q│1:АX│24е264й56:Бж5140:аQ,1:Q│Qл20:H(Z)│м1:Z│Zл1:Л:Р@¤ч2:ю(4,9),"<1> <2> <3> <4> <5>":РALfа100,2:QS│1:Бж5601:ч3:ю(4,10),"Press for new cards!":QT│0:Бе100AсoТ282,255:уў:т40:Т&HFFD8,0:Ю1:З"ERNO"; м;"ERLIN" н:Е н│13зё0,1:З"Did you enter, 'F$=" Л(34)"SCORES" Л(34)":GOTO 2125', to establish SCORES?":С:ДСBpБж6020:Бж6080:Бе6008 :ГSUB ROUTINES FOR HDRAWB%uБж6020:Бж6095BGxБж6090:Бж6085:Бж6075:Бж6105:РB╩z╞"S4":HX│Xл14:HY│Yл23:Бж6020:Бж6115:HX│Xл26:HY│Yл32:Бж6020:Бж6120:HX│Xл14:HY│Yл41:Бж6020:Бж6110:HX│Xл3:HY│Yл32:Бж6020:Бж6125:РBюДX$│"BM"л И(HX)л","л И(HY):їX$:РC Йї"BU4UER3FDGLG3R5BR4":Р:Г2C1Ої"BU5ER3FDGNL2FDGL3HBDBR9":Р:Г3CMУї"BR4U6G4R5BD2BR4":Р:Г4CnШї"BUFR3EUHL4U3R5BR4BD6":Р:Г5CФЭї"BUU4ER3NFBD3NL3FDGL3NHBR8":Р:Г6Cмвї"E5UL5BR9BD6":Р:Г7C╤зї"BRHUEHUER3FDGNL3FDGL3BR8":Р:Г8CЇмї"BUFR3EU4HL3GDFR3BR5BD3":Р:Г9D!▒ї"R3LU6LGBR5BD5BUU4ER2FD4GL2NHBR9":Р:Г10D;╢ї"U4E2F2D2NL4D2BR4":РDY╗ї"U3NR3U3R5BD6L5BR9":Р:ГEDv└ї"BU2DFR3EU5BD6BR2":Р:ГJDР┼ї"U6D3RNE3F3BR4":Р:ГKDи╩ї"U6R5D6L5BR9":Р:Г0D─╧ї"U6R4FDGL4BD3BR9":Р:ГPDш╘ї"BR2LHU4ER2FD3G2BU2F2BR4":Р:ГQE┘ї"U6R4FDGL3F3BR5":Р:ГRE%▐C│14:ї"C14E6F6G6H6":ч3:Бе6130E[уC│14:ї"C14U2EURUR2DRDFEURUR2DRDFD2G6H6":ч3:Бе6130EЙшC│14:ї"C14E6F6D2G2L4D2U2L4H2U2":ч2:Бе6130E├эC│14:ї"C14E2RU2E2R2F2D2RF2D2G2L4D2U2L4H2U2":ч2:Бе6130E∙Єш( Ж(199)н256л Ж(200)л8, Ж(201)н256л Ж(202)),,C:РFW:ГSUB ROUTINE FOR THE TITLEFIXZ│108:U│35:V│172:АY│1е3:ч3:ЕY│2зч4:ДЕY│3зч2FЮ]ї"S8":HX│35:HY│Zл20:Бж6000:HY│HYл1:Бж6000:HX│36:Бж6000:ъ(125,HYм2)м(285,HY),╜,BFF╧bї"S24":АX│1е3:HX│U:U│Uл1:HY│V:V│Vл1:Бж6005:ЛGgї"S4":HY│Zл83:ъ(35,HYм2)м(116,HY),╜,BF:ю(16,23),"R. L. Brimner, 11/86":Л:Р08:U│35:V│172:АY│1е3:ч3:ЕY│2зч4:ДЕY│3зч2FЮ]ї"S8":HX│35:HY│Zл20:Бж6000:HY│HYл1:Бж6000:HX│36:Бж6000:ъ(125,HYм2)м(285,HY),╜,BFF╧bї"S24":АX│1е3:HX│U:U│Uл1:HY│V:V│Vл1:Бж6005:ЛGgї"S4":HY│Zл83:ъ(35,HYм2)м(116,HY),╜,BF:ю(16                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ь&:Г&=X│97:Y│225:Z│ Д(7)л1:Е Z│6 Бе1 :Д Бе 10&RБж5:в44539:Бж4:Р&jЗ@Y,Y$;:в44539:ЮZ:Р&ЩS$│Y$:З@X,X$;: Р(S$,A)│ б(N,143):З@Y,S$;:Р&╟T$│S$: Р(T$,B)│ б(M,143):З@Y,T$;:в44539:Р&╒Бж6:Бж4:Р&▌ ЮZ:'X$│" DIE STADT IST GROSS UND ALT. "'+Y$│" THE CITY IS BIG AND OLD. "'IA│14:N│4:Бж5:B│22:M│5:Бж7'ZA│1:N│11:Бж2'wA│6:N│5:Бж5:B│18:M│4:Бж7'ИA│11:N│3:Бж2'П(:Г'ЫуЮZ:Бе10T$│S$: Р(T$,B)│ б(M,143):З@Y,T$;:в44539:Р&╒Бж6:Бж4:Р&▌ ЮZ:'X$│" DIE STADT IST GROSS UND                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &$:Г STOCK TRACKER GRAPH PROGRAM&H:ГCOPYRIGHT(C), 1986 MARK EVANS&┘└4:╚4,1:╝:Х1200:МS(5,130),D$(130):Ю0:Й"ENTER FILENAME";DN$:З@96,"PRESS PLAY AND TO LOAD DATA FROM TAPE.":╗ЙR$:R$│"":DN$│ Р(DN$,1,8)'sЩ"I",м1,DN$:Й#м1,NE:АQ│1е5:Й#м1,S$(Q):Л:АW│1еNE:Й#м1,D$(W),S(1,W),S(2,W),S(3,W),S(4,W),S(5,W):Л:Ъ(м1):Т65495,0:АW│1е5:T(W)│0:Л:З@448,"PLEASE STANDBY"'╞АQ│1е5:HP(Q)│0:LP(Q)│5000:АW│1еNE:T(Q)│T(Q)лS(Q,W):ЕS(Q,W)▓HP(Q) зHP(Q)│S(Q,W)'хЕS(Q,W)┤LP(Q)зLP(Q)│S(Q,W)(Л:AP(Q)│T(Q)оNE:Л:Т65494,0(MMA│0:MT│0:Ю0:З"ENTER NUMBER TO BE GRAPHED":АQ│1е5:З═"# ";Q;:ЗS$(Q):Л(nR$│ Т:S│ Й(R$):ЕS▓0░S┤6з9:Д8(╔ SC│180о(HP(S)мLP(S)):MP(S)│(HP(S)лLP(S))о2:DS│256оNE:┐1,1:╗м(0,96л(MP(S)мS(S,1))нSC),╛(ё АD│1еNE:ЕD┤│30зMT│MTлS(S,D):MA│MTоD) ЕD▓30зMT│MTлS(S,D)мS(S,Dм30):MA│MTо30)r ╜(DSнD,96л(MP(S)мMA)нSC):╗м(DSнD,96л(MP(S)мS(S,D))нSC),╜:╜(DSнD,192):╜(DSнD,191):Л)М ┐1,1:R$│ Т:Е R$│""з13*WЮ:З"ENTER SELECTION:":З"1 DAY GRID":З═"2 AVERAGE PRICE ($####.###)";AP(S):З"3 HIGHLIGHT A DAY":З"4 CLEAR SCREEN":З"5 GRAPH ANOTHER STOCK":З"6 VIEW GRAPH":З"7 HORIZONTAL PRICE LINES":З"8 END PROGRAM"+R$│ Т:ЕR$│"4"з╝:Бе13:ДЕR$│"6"з13:ДЕR$│"2"з25:ДЕR$│"5"зБе7:ДЕR$│"1"з21:ДЕR$│"3"з16:ДЕR$│"8"зК:ДЕR$│"7"░(HP(S)мLP(S))▓1зБе23:ДЕR$│"7"зЗ"INTERVAL TOO SMALL":Бе15:ДБе15+|Ю:З"USE THE UP AND DOWN ARROW TO SCROLL THROUGH THE DATES. PRESS ENTER TO HIGHLIGHT THE DATE BEING VIEWED.":QW│1+кR$│ Т:ЕR$│ Л(10)зQW│QWм1:ДЕR$│"^"зQW│QWл1+╓Е QW┤1за1,1:QW│1:ДЕ QW▓NE за255,1:QW│NE,ЕR$│ Л(13)з╗(DSнQW,0)м(DSнQW,196),╜:Бе13,'З@164,═"% %";D$(QW):Бе17,┌Ю0:Й"ENTER INVERVAL FOR GRIDS, ENTER <1> FOR A GRID FOR EACH DAY";GI:Е GI▓NE зЗ"INTERVAL TOO GREAT, ENTER AGAIN";:ДЕ GI┤1зЗ"INTERVAL MUST BE GREATER THEN 0":АWQ│1е3000:Л:Бе21- АX│1е NEнDS й GIнDS:╗(X,0)м(X,255),╜:Л:Бе13-ФI│ Б((HP(S)мLP(S))о20):Бж24:Ю:З═"$##.#INCREMENTS";I:АXY│ Б(LP(S)л1)е Б(HP(S))йI:╗(0,96л(MP(S)мXY)нSC)м(255,96л(MP(S)мXY)нSC),╜:Л:Бе13-жЕI┤1зI│1:Р:ДР-шТ65495,0:YP│96л(MP(S)мAP(S))нSC:АP│0е255:Е а(P,YP)│5зC│0:ДC│5.╜(P,YP,C):Л:Т65494,0:Бе133-ФI│ Б((HP(S)мLP(S))о20):Бж24:Ю:З═"$##.#INCREMENTS";I:АXY│ Б(LP(S)л1)е Б(HP(S))йI:╗(0,96л(MP(S)мXY)нSC)м(255,96л(MP(S)мXY)нSC),╜:Л:Бе13-жЕI┤1зI│1:Р:ДР-шТ65495,0:YP│96л(MP(S)мAP(S))нSC:АP│0е255:Е а(P,YP)│5зC│0:ДC│5.╜(P,YP,C):Л:Т65494  5& В ************************&?В * ROBOFLIP *&^В * BY FRED B.SCERBO *&}В * 60 HARDING AVE. *&ЬВ * NORTH ADAMS,MA 01247 *&╗В * COPYRIGHT (C) 1986 *&┌В ************************&ї Ю0:АI│1е32:З Л(252);:Л'8АY│128е192й32:П:АI│1е128:НA:З Л(AлY);:ЛI,Y:АI│1е32:З Л(252);:Л'ЩЖ28,30,28,29,,30,28,29,28,29,28,28,30,28,30,28,29,16,44,46,44,44,42,45,40,,36,46,36,46,44,45'шЖ,27,19,23,16,26,,21,,21,19,19,26,,26,,21,,,43,39,32,40,37,,,,42,,43,35,39(-Ж,26,,26,16,26,,21,,21,,,26,,26,,21,,,42,36,,,37,,37,32,42,,42,,(А#Ж28,24,,28,28,28,28,28,,28,28,28,24,,28,28,28,,44,44,,,,44,44,44,36,44,36,44,,(в(З@454," BY FRED B.SCERBO ";(─-З@486," COPYRIGHT (C) 1986 ";(╫2Е Т┤▓ Л(13)з50(▐7Ю0(эNTER PAYCHECK AIN MENU"3]КАX│384е415:З@X,"*":ЛX3ЮФЗ@422,"PAYCHECK'S WILL LOAD IN SEQUENCE (1 TO 5)"3│ЮZ$│ Т:ЕZ$│""з6703╔иЕ Z$│"M" зЮ:Бе4003р▓ЕZ$│"E" з700 :Д6703 ╝З@295,"ARE YOU SURE (Y/N)"4*╞Z$│ Т:ЕZ$│"" з710 :ДЕZ$│"Y" з720 :Д5704J╨Ю:З@7,"paycheck entry mode"4b┌АX│32е63:З@X,"X":ЛX4пфЕPA(1)│0 зЙ"ENTER AMOUNT";PA(1) :Й"DAY OF MONTH";PD(1):CB│CBлPA(1):Бе5704√юЕPA(2)│0 зЙ"ENTER AMOUNT";PA(2):Й"DAY OF MONTH";PD(2):CB│CBлPA(2):Бе5705G°ЕPA(3)│0 зЙ"ENTER AMOUNT";PA(3):Й"DAY OF MONTH";PD(3):CB│CBлPA(3):Бе5705УЕPA(4)│0 зЙ"ENTER AMOUNT";PA(4):Й"DAY OF MONTH";PD(4):CB│CBлPA(4):Бе5705▀ ЕPA(5)│0 зЙ"ENTER AMOUNT";PA(5):Й"DAY OF MONTH";PD(5):CB│CBлPA(5):Бе5706З@134,"all paychecks loaded":АT│1е2000:ЛT:Бе5706" Ю:Т65495,06C*З@6,"$$ FIXED DEDUCTIONS $$"6U4DC$│"<-paid!"6q>АX│32е63:З@X, Л(175):ЛX6░HЗ@64,"1. "FD$(1):З@78,═"$ ###.##";FD(1):ЕCK(1)│1 зЗ@88,DC$6ёRЗ@96,"2. "FD$(2):З@110,═"$ ###.##";FD(2):ЕCK(2)│1 зЗ@120,DC$73\З@128,"3. "FD$(3):З@142,═"$ ###.##";FD(3):ЕCK(3)│1 зЗ@152,DC$7ufЗ@160,"4. "FD$(4):З@174,═"$ ###.##";FD(4):ЕCK(4)│1 зЗ@184,DC$7╖pЗ@192,"5. "FD$(5):З@206,═"$ ###.##";FD(5):ЕCK(5)│1 зЗ@216,DC$7∙zЗ@224,"6. "FD$(6):З@238,═"$ ###.##";FD(6):ЕCK(6)│1 зЗ@248,DC$8;ДЗ@256,"7. "FD$(7):З@270,═"$ ###.##";FD(7):ЕCK(7)│1 зЗ@280,DC$8}ОЗ@288,"8. "FD$(8):З@302,═"$ ###.##";FD(8):ЕCK(8)│1 зЗ@312,DC$8┐ШЗ@320,"9. "FD$(9):З@334,═"$ ###.##";FD(9):ЕCK(9)│1 зЗ@344,DC$8ўвЗ@384,"CURRENT CASH BALANCE:":З@407,═"$ ####.##";CB9!мЗ:АX│1е9:P│PлCK(X):ЛX:ЕP│9 з970 :ДP│09I╢З@450," EDUCT BILL AIN MENU"9S└Бе9809x╩З" AIN MENU":Бе10009Н╘Z$│ Т:ЕZ$│""з9809┴▐ЕZ$│"D" з1010 :ДЕZ$│"M" зТ65494,0:Ю:Бе400 :Д9809чшЕ  Т│"M" зТ65494,0:Ю:Бе400 :Д1000: ЄЗ"WHICH BILL TO DEDUCT (1-9)":№Z$│ Т:ЕZ$│""з1020:2Е Z$│"0" з1020:oЕZ$│"1"зЕCK(1)│0 зCB│CBмFD(1):CK(1)│1:Бе800:Д а1,3:Бе800:мЕZ$│"2"зЕCK(2)│0 зCB│CBмFD(2):CK(2)│1:Бе800 :Да1,3:Бе800:щ$ЕZ$│"3"зЕCK(3)│0 зCB│CBмFD(3):CK(3)│1:Бе800 :Да1,3:Бе800;&.ЕZ$│"4"зЕCK(4)│0 зCB│CBмFD(4):CK(4)│1:Бе800 :Да1,3:Бе800;c8ЕZ$│"5"зЕCK(5)│0 зCB│CBмFD(5):CK(5)│1:Бе800 :Да1,3:Бе800;аBЕZ$│"6"зЕCK(6)│0 зCB│CBмFD(6):CK(6)│1:Бе800 :Да1,3:Бе800;▌LЕZ$│"7"зЕCK(7)│0 зCB│CBмFD(7):CK(7)│1:Бе800 :Да1,3:Бе800<VЕZ$│"8"зЕCK(8)│0 зCB│CBмFD(8):CK(8)│1:Бе800 :Да1,3:Бе800─ЕNB│9 з1210 :Д Ю3:З" HOW MANY NEW BILLS TO ADD?">╬Z$│ Т:ЕZ$│""з1230>^╪ЕZ$│"0" зЮ:Бе400 :ДЕNBл Й(Z$)▓9 з1250 :ДNB│NBл Й(Z$):Бе1270>ЯтЮ3:З@226,"MISC ONLY HOLDS 9 ENTRIES!!";:АT│1е1500:Л:Ю:Бе1220>▌ьЮ:З@7," $$ MISC LOADING $$":АX│32е63:З@X, Л(175):Л:Бе1290? ЎЮ:АY│1 е  Й(Z$):З@7," $$ MISC LOADING $$"?'АX│32е63:З@X, Л(175):ЛX?\ ЗCT". ":Й"NAME OF BILL";MD$(CT):ЕMD$(CT)│""з1290?uЕ З(MD$(CT))▓8 з1320?оЕ З(MD$(CT))┤8 зMD$(CT)│MD$(CT)л Л(32):Бе1310 :Д1330?ъ(Ю3:З@228,"EIGHT (8) LETTERS MAX!";:АT│1е1500:Л:Ю:Бе1260@2:Й"AMOUNT OF BILL";MD(CT)@<Ю:CT│CTл1:ЛY@%FЮ:Бе400@BPDC$│"<-paid!":Ю:Т65495,0@hZЗ@5," $$ MISC DEDUCTIONS $$ "@ДdАX│32е63:З@X, Л(175):ЛX@╨nЕMD$(1)┤▓"" зЗ@64,"1. "MD$(1):З@78,═"$ ###.##";MD(1):ЕCL(1)│1 зЗ@88,DC$AxЕMD$(2)┤▓"" зЗ@96,"2. "MD$(2):З@110,═"$ ###.##";MD(2):ЕCL(2)│1 зЗ@120,DC$AmВЕMD$(3)┤▓"" зЗ@128,"3. "MD$(3):З@142,═"$ ###.##";MD(3):ЕCL(3)│1 зЗ@152,DC$A╝МЕMD$(4)┤▓"" зЗ@160,"4. "MD$(4):З@174,═"$ ###.##";MD(4):ЕCL(4)│1 зЗ@184,DC$B ЦЕMD$(5)┤▓"" зЗ@192,"5. "MD$(5):З@206,═"$ ###.##";MD(5):ЕCL(5)│1 зЗ@216,DC$BZаЕMD$(6)┤▓"" зЗ@224,"6. "MD$(6):З@238,═"$ ###.##";MD(6):ЕCL(6)│1 зЗ@248,DC$BйкЕMD$(7)┤▓"" зЗ@256,"7. "MD$(7):З@270,═"$ ###.##";MD(7):ЕCL(7)│1 зЗ@280,DC$B°┤ЕMD$(8)┤▓"" зЗ@288,"8. "MD$(8):З@302,═"$ ###.##";MD(8):ЕCL(8)│1 зЗ@312,DC$CG╛ЕMD$(9)┤▓"" зЗ@320,"9. "MD$(9):З@334,═"$ ###.##";MD(9):ЕCL(9)│1 зЗ@344,DC$C╚З@384,"CURRENT CASH BALANCE:":З@407,═"$ ####.##";CBCз╥З@450," EDUCT BILL AIN MENU"C╜▄Z$│ Т:ЕZ$│""з1500CЄцЕZ$│"D" з1520 :ДЕZ$│"M" зТ65494,0:Ю:Бе400 :Д1500DЁЗ"WHICH BILL TO DEDUCT (1-9)"D*·Z$│ Т:ЕZ$│""з1530DuЕZ$│"1"зЕCL(1)│0░MD(1)▓0 зCB│CBмMD(1):CL(1)│1:Бе1360 :Д а1,3:Бе1360D╝ЕZ$│"2"зЕCL(2)│0░MD(2)▓0 зCB│CBмMD(2):CL(2)│1:Бе1360 :Да1,3:Бе1360EЕZ$│"3"зЕCL(3)│0░MD(3)▓0 зCB│CBмMD(3):CL(3)│1:Бе1360 :Да1,3:Бе1360EJ"ЕZ$│"4"зЕCL(4)│0░MD(4)▓0 зCB│CBмMD(4):CL(4)│1:Бе1360 :Да1,3:Бе1360EС,ЕZ$│"5"зЕCL(5)│0░MD(5)▓0 зCB│CBмMD(5):CL(5)│1:Бе1360 :Да1,3:Бе1360E╪6ЕZ$│"6"зЕCL(6)│0░MD(6)▓0 зCB│CBмMD(6):CL(6)│1:Бе1360 :Да1,3:Бе1360F@ЕZ$│"7"зЕCL(7)│0░MD(7)▓0 зCB│CBмMD(7):CL(7)│1:Бе1360 :Да1,3:Бе1360FfJЕZ$│"8"зЕCL(8)│0░MD(8)▓0 зCB│CBмMD(8):CL(8)│1:Бе1360 :Да1,3:Бе1360FнTЕZ$│"9"зЕCL(9)│0░MD(9)▓0 зCB│CBмMD(9):CL(9)│1:Бе1360 :Да1,3:Бе1360F╣^Ю:Бе400FтhЮ:З"PREPARE RECORDER..PRESS ANY KEY"F■rАX│32е63:З@X, Л(175):ЛXG|Z$│ Т:ЕZ$│""з1660GBЖАX│0е31:З@X, Л(175):ЛX:З@74,"SAVING DATA"G_РАX│96е127:З@X, Л(175):ЛXGuЪЩ "O", #м1,"DATA"GТдАQ8│1е9:З #м1,CK(Q8):ЛQ8GпоАQ9│1е9:З #м1,CL(Q9):ЛQ9G╞╕З #м1,CB:З #м1,CM$G▌┬З #м1,CX$:З #м1,NBGў╠АX│1е5:З #м1,PA(X):ЛXH╓АX2│1е5:З #м1,PD(X2):ЛX2H2рАX3│1е9:З #м1,FD$(X3):ЛX3HOъАX4│1е9:З #м1,FD(X4):ЛX4HmЇАX5│1е9:З #м1,MD$(X5):ЛX5HК■АX6│1е9:З #м1,MD(X6):ЛX6HФЪ #м1HЫЮ3H│З@299,"DATA SAVED";H╦&АX│1е2000:Л:Ю:Бе400Hў0Ю:З@0,"PREPARE RECORDER..PRESS ANY KEY"I:АX│32е63:З@X, Л(175):ЛXI)DZ$│ Т:ЕZ$│""з1860IDNАX│0е63:З@X, Л(175):ЛXI\XЗ@74,"LOADING DATA"IybАX│96е127:З@X, Л(175):ЛXIПlЩ "I", #м1,"DATA"IмvАQ8│1е9:Й #м1,CK(Q8):ЛQ8I╔ААQ9│1е9:Й #м1,CL(Q9):ЛQ9IрКЙ #м1,CB:Й #м1,CM$IўФЙ #м1,CX$:Й #м1,NBJЮАX│1е5:Й #м1,PA(X):ЛXJ.иАX2│1е5:Й #м1,PD(X2):ЛX2JL▓АX3│1е9:Й #м1,FD$(X3):ЛX3Ji╝АX4│1е9:Й #м1,FD(X4):ЛX4JЗ╞АX5│1е9:Й #м1,MD$(X5):ЛX5J╝╨АX6│1е9:Й #м1,MD(X6):Е  М (м1) з2010 :ДЛX6NEXTX6J╞┌Ъ #м1J═фЮ3JцюЗ@299,"DATA LOADED";K°АS│1е2000:Л:Ю:W$│"":Бе400K2Ю3:З@0,"UIT.............ESET FLAGS"KI Z$│ Т:ЕZ$│"" з2060KrЕZ$│"Q" з2120 :ДЕZ$│"R" з2080 :Д2060KС Ю3:З@233,"CLEARING FLAGS";Kз*АX│1е9:CK(X)│0:ЛXK╜4АY│1е9:CL(Y)│0:ЛYK╒>АT│1е1000:Л:Ю:Бе400LHЮ3:З@224,"DID YOU SAVE UPDATED DATA (Y/N)?";LRZ$│ Т:ЕZ$│"" з2130L9\ЕZ$│"N" зЮ:Бе400 :Д2150LvfЮ:Т359,60:З"THANK YOU FOR USING MY BUDGET!!!":Т359,126:КLнpЮ:З@5," KIPF....AP":АT│32е63:З@T, Л(175):ЛTL├zZ$│ Т:ЕZ$│""з2170LьДЕZ$│"S" з2190 :ДЕZ$│"G" з2320 :Д2170MОЮ:З@0,"PREPARE RECORDER..PRESS ANY KEY";M5ШАT│32е63:З@T, Л(175):ЛTMKвZ$│ Т:ЕZ$│""з2210MhмЮ:З@8,"SKIPPING PROGRAM"MГ╢АX│32е63:З@X, Л(175):ЛMЙ└гMж╩Ю:З@8,"PROGRAM SKIPPED!"M┴╘АX│32е63:З@X, Л(175):ЛM╙▐АX│1е1500:Л:ЮM∙шЗ@2," ET GAP.....AIN MENU"NЄАX│32е63:З@X, Л(175):ЛN*№Z$│ Т:ЕZ$│""з2300NV ЕZ$│"M" зЮ:Бе400 :ДЕZ$│"S" з2320 :Д2310NВ Ю:З@0,"PREPARE RECORDER..PRESS ANY KEY"NЮ АX│32е63:З@X, Л(175):ЛXN┤ $Z$│ Т:ЕZ$│""з2340Nф .ЯИ:Ю:З@0,"MOTOR IS ON..TAP ANY KEY TO STOP"O 8АX│32е63:З@X, Л(175):ЛXO BZ$│ Т:ЕZ$│""з2370O% LЯк:Ю:Бе400OE VЕCM$│"JAN" зCX$│"JANUARY":РOf `ЕCM$│"FEB" зCX$│"FEBRUARY":РOД jЕCM$│"MAR" зCX$│"MARCH":РOв tЕCM$│"APR" зCX$│"APRIL":РO╝ ~ЕCM$│"MAY" зCX$│CM$:РO┘ ИЕCM$│"JUN" зCX$│"JUNE":РOЎ ТЕCM$│"JUL" зCX$│"JULY":РP ЬЕCM$│"AUG" зCX$│"AUGUST":РP7 жЕCM$│"SEP" зCX$│"SEPTEMBER":РPW ░ЕCM$│"OCT" зCX$│"OCTOBER":РPx ║ЕCM$│"NOV" зCX$│"NOVEMBER":РPд ─ЕCM$│"DEC" зCX$│"DECEMBER":Р :ДCM$│"":РP─ ╬Ю3:З@8,"OUTPUT TO PRINTER";Pф ╪З@231,"ARE YOU SURE (Y/N)";P√ тZ$│ Т:ЕZ$│"" з2530Q ьЕZ$│"N" зЮ:Бе400Q- ЎЕZ$│"Y" зЮ:Бе2560 :Д2530QН Ю3:Й"DAY OF MONTH";DM:Й"AMOUNT OF PAY THIS WEEK";AP:Ю3:З"*VERIFY PRINTER IS ON AND READY*";Qи З@234,"PRESS ANY KEY";Q┐ Z$│ Т:ЕZ$│"" з2580Q▀ Ю3:З@233,"STARTING BUDGET";R- (З#м2, Л(27); Л(14); Л(27); Л(84); Л(48);д23);"=> BUDGET <="; Л(10); Л(13)Ro 2З#м2,д17);CX$;DM", 1986";д128); Л(27); Л(84); Л(49);"(CHECK)"Rн <З#м2, Л(27); Л(84); Л(54); Л(28); Л(45) "*"; Л(10); Л(13)R╦ FЗ#м2, Л(27); Л(84); Л(50)Rъ PЗ#м2,д15);"PAYCHECK $ ";APS ZЗ#м2, Л(27); Л(8