THAT TELLS THE BRANCH INSTRUCTION WHERE TO GO.":Бж740:Бж770:З"WHEN THE PROGRAM IS ASSEMBLED, THE COMPUTER WILL CALCULATE THE OFFSET."9VъЗ"NOTE THAT THE INCA INSTRUCTION ADDS 1 TO THE A REGISTER. THEN THE REGISTER IS COMPARED TO 10. IF IT IS 10, THEN THE BNE IN- STRUCTION WILL BE FALSE AND THE RTS INSTRUCTION WILL BE EXECUT- ED.":Бж7409╧ЇБж770:З" THERE ARE 2 OTHER BRANCH-TYPEINSTRUCTIONS WHICH ARE UNCONDI- TIONAL BUT DO NOT USE RELATIVE ADDRESSING.":I■З" 1. JMP - JUMPS TO SPECIFIED (ACTUAL) ADDRESS.":З"EXAMPLE: JMP 45768 - CAUSES A JUMP TO MEMORY ADDRESS 45768.";+З" 2. JSR - JUMPS TO A MACHINE LANGUAGE SUBROUTINE AT THE SPECIFIED (ACTUAL) ADDRESS.":З"EXAMPLE: JSR 44885 - CAUSES A JUMP TO MEMORY ADDRESS 44885. THE SUBROUTINE MUST BE TERMINAT-ED WITH AN RTS INSTRUCTION.";5Бж740;ZБж770:Зд6)"MULTIPLE CHOICE QUIZ";б&З" YOU WILL BE QUIZZED WITH 10 MUTIPLE CHOICE QUESTIONS.":Бж740;к0NR│0;°:Q$│"1. WHAT INSTRUCTION IS USED TO MANIPULATE THE CCR BITS ?":CA│1:Бж780<;DQ$│"2. WHAT INSTRUCTION MEANS BRANCHON CARRY SET ?":CA│5:Бж780<NQ$│"3. WHAT INSTRUCTION MEANS BRANCHTO SUBROUTINE ?":CA│3:Бж780<╣XQ$│"4. WHAT TYPE OF INSTRUCTION IS BRA ?":CA│8:Бж780<єbQ$│"5. WHAT TYPE OF INSTRUCTION IS BLS ?":CA│7:Бж780=BlQ$│"6. WHAT BRANCH INSTRUCTION IS THE MOST FREQUENTLY USED ?":CA│2:Бж780=РvQ$│"7. WHICH INSTRUCTION DOES NOT USE RELATIVE ADDRESSING ?":CA│4:Бж780=▄АQ$│"8. WHICH INSTRUCTION MEANS BRANCH ON CARRY CLEAR ?":CA│6:Бж780>КQ$│"9. WHAT TYPE OF INSTRUCTION IS JSR ?":CA│8:Бж780>PФQ$│"10. WHAT TYPE OF INSTRUCTION IS BEQ ?":CA│7:Бж780>eЮБж770:З"SCORE :">ЖиЗ"YOU WERE ";NR;" OUT OF 10">б▓З"FOR ";NRо10н100;" %">л╝Бж740>╔╞Бж770:Зд11)"NEXT MONTH":З?╨З" THE INSTRUCTION SET OF THE 6809 WILL BE DESCRIBED FURTHER."?┌К?=фЗ@484,"PRESS [ENTER] TO CONTINUE";?QюЕ Т┤▓ Л(13)з750?W°Р?Ш╔"V10T255O3":АC│127е64йм1:Т16100,C:U│ Г0(0):╔ И( Д(9)):Л:Ю:Р?ж Бж770:ЗQ$@HЗ:Зд7)"A) CMP (COMPARE)":Зд7)"B) BNE, LBNE":Зд7)"C) BSR, LBSR":Зд7)"D) JMP":Зд7)"E) BCS, LBCS":Зд7)"F) BCC, LBCC":Зд7)"G) CONDITIONAL":Зд7)"H) UNCONDITIONAL"@l З:Зд4)"ENTER YOUR CHOICE (A-H)"@Б*K$│ Т:ЕK$│""з810@в4P│ Ю("ABCDEFGH",K$):ЕP│0з810@│>ЕP┤▓CA з 850@▌HЗд7)"**** CORRECT ****":NR│NRл1:Бе860ARЗ"SORRY, THE CORRECT ANSWER WAS "; Л(CAл64);A\Бж740:РЗд7)"G) CONDITIONAL":Зд7)"H) UNCONDITIONAL"@l З:Зд4)"ENTER YOUR CHOICE (A-H)"@Б*K$│ Т:ЕK$│""з810@в4P│ Ю("ABCDEFGH",K$):ЕP│0з810@│>ЕP┤▓CA з 850@▌HЗд7)"**** CORRECT ****":NR│NRл1:Бе860ARЗ"SORRY, THE CORRECT ANSWER W                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &'В COPYRIGHT (C) T&D SOFTWARE 1983&> └1:╚0,1:Х500,16050&f╣ Г0│16101:АI│16101е16122:НD:ТI,D:Л&▒Ж182,62,228,198,96,142,4,0,161,132,38,2,231,132,48,1,140,6,0,38,243,57&ъ(Бж770:Зд8)"MACHINE LANGUAGE":Зд8)"TUTORIAL PART 4":З'|2З" THIS PART OF THE TUTORIAL IS COVERING THE BRANCH INSTRUCTIONSAND CONDITION CODES REGISTER (CCR) OF THE 6809 MICROPROCES- SOR.":Бж740'┌<Бж770:З" THERE ARE THREE DIFFERENT TYPES OF BRANCH INSTRUCTIONS A- VAILABLE TO YOU:"(ЖFЗ" 1. CONDITIONAL BRANCHES - THESEARE SIMILAR TO BASIC'S IF-THEN STATEMENT. CONDITIONAL BRANCHES RELY ON BITS IN THE CCR TO DE- CIDE IF THE BRANCH IS TO BE TA- KEN."(█PЗ" 2. UNCONDITIONAL BRANCHES - THESE ARE SIMILAR TO BASIC'S GO-TO STATEMENT.")-ZЗ" 3. SUBROUTINE BRANCHES - THESE ARE SIMILAR TO BASIC'S GOSUB STATEMENT.")7dБж740* nБж770:З" ALL BRANCH INSTRUCTIONS ARE AVAILABLE IN TWO DIFFERENT MODES:":З:З" 1. ONE BYTE OFFSET - THESE ARE USED FOR SHORT DISTANCE BRANCHESWHERE THE DISTANCE IS ONLY 127 BYTES IN EITHER DIRECTION."*жxЗ" 2. TWO-BYTE OFFSET - THESE ARE LONG BRANCH INSTRUCTIONS WHICH, BECAUSE THEY USE A TWO BYTE OFF-SET, MAY JUMP TO ANYWHERE IN MEMORY.":Бж740:Бж770+SВЗ"TO MAKE A BRANCH INSTRUCTION A LONG BRANCH INSTRUCTION, SIMPLY PRECEDE THE MNEMONIC WITH THE LETTER 'L'. FOR EXAMPLE, BNE IN LONG BRANCH FORM WOULD BE LBNE.":Бж740+еМБж770:З" AS WAS MENTIONED EARLIER, THECONDITIONAL BRANCHES RELY ON THECCR.", ЦЗ"BITS 7, 6, AND 4 ARE USED FOR INTERRUPT HANDLING WHICH IS BE- YOND THE SCOPE OF THIS TUTORIAL.",dаЗ"BIT 5 IS THE HALF-CARRY BIT WHICH IS NOT DIRECTLY USED BY THE PROGRAMMER.",ыкЗ:З"BIT 3 IS THE SIGN BIT. IF IT IS A 1, THEN THE RESULT OF THE LASTINSTRUCTION WAS NEGATIVE. IF 0, THEN THE RESULT WAS POSITIVE.",√┤Бж740:Бж770-Ь╛З"BIT 2 IS THE ZERO BIT. IS THE RESULT OF THE LAST INSTRUCTION WAS ZERO, THEN THIS BIT WILL BE SET. IF THE RESULT IS NON-ZERO, THEN THE BIT WILL BE A 0.".C╚З:З"BIT 1 IS THE OVERFLOW BIT. IT HELPS DETECT OVERFLOWS DURING SIGNED TWOS-COMPLEMENT OPERA- TIONS WHICH ARE BEYOND THE SCOPEOF THIS TUTORIAL.":Бж740:Бж770.ч╥З"BIT 0 IS THE CARRY BIT. IT DE- TECTS A CARRY IN ADDITIONS AND A BORROW IN SUBTRACTIONS, MUCH THE SAME WAY LONG ADDITION AND SUBTRACTION IS DONE BY HAND."/T▄З"IF A CARRY (OR BORROW) WAS GEN- ERATED BY THE LAST INSTRUCTION, THEN THE CARRY BIT IS SET (MADE A 1)."/^цБж7400 ЁБж770:З" THE MOST FREQUENTLY USED BRANCH INSTRUCTIONS WILL NOW BE DESCRIBED. SOME BRANCH INSTRUCT-IONS HAVE BEEN OMITTED DUE TO THEIR INCREASED COMPLEXITY.":Бж7400l·Бж770:З" BCC, LBCC - BRANCH ON CARRY CLEAR, CAUSES A BRANCH IF THE CARRY BIT IS A 0."0┬З" BCS, LBCS - BRANCH ON CARRY SET, CAUSES A BRANCH IF THE CAR-RY BIT IS A 1."1З" BEQ, LBEQ - BRANCH IF EQUAL TO ZERO, CAUSES A BRANCH IF THE ZERO BIT IS A 1."1uЗ" BHI, LBHI - BRANCH IF HIGHER, CAUSES A BRANCH IF THE ZERO AND CARRY BITS ARE 0'S."1╗"З" BHS, LBHS - BRANCH ON HIGHER ORSAME, SAME AS BCC, LBCC.":Бж7401√,Бж770:З" BLO, LBLO - BRANCH ON LOWER, SAME AS BCS, LBCS."2g6З" BLS, LBLS - BRANCH ON LOWER OR SAME, CAUSES A BRANCH IF THE EITHER THE ZERO OR CARRY BITS ISA 1."2╓@З" BMI, LBMI - BRANCH ON MINUS, CAUSES A BRANCH IF THE SIGN BIT BIT IS SET INDICATION A NEGATIVERESULT."3hJЗ" BNE, LBNE - BRANCH NOT EQUAL TOZERO, CAUSE A BRANCH IF THE ZEROBIT IS A 0. THIS IS THE MOST FREQUENTLY USED BRANCH INSTRUCT-ION.":Бж7403▌TБж770:З" BPL, LBPL - BRANCH ON PLUS, CAUSES A BRANCH IF THE SIGN BIT IS A 0, INDICATING A POSITIVE RESULT."4 ^З" BRA, LBRA - BRANCH ALWAYS, THISIS AN UNCONDITIONAL BRANCH."5hЗ" BSR, LBSR - BRANCH TO SUBROUT- INE, BRANCHES TO A MACHINE LAN- GUAGE SUBROUTINE. THE SUBROUTINEMUST END WITH AN RTS (RETURN FROM SUBROUTINE) INSTRUCTION, WHICH WILL CAUSE THE MICROPRO- CESSOR TO CONTINUE EXECUTION AT THE NEXT";5,rЗ" INSTRUCTION.":Бж7405╬|Бж770:З" THE INSTRUCTION WHICH IS IN- TENDED TO BE USED TO MANIPULATE THE CCR BITS FOR BRANCH INSTRUC-TIONS IS THE CMP (COMPARE RE- GISTER) INSTRUCTION."6xЖЗ" THE CMP INSTRUCTION SUBTRACTSTHE OPERAND FROM THE REGISTER AND CHANGES THE CCR BITS ACCORD-INGLY BUT DOES NOT ALTER EITHER THE REGISTER OR THE OPERAND.":Бж7406─РБж770:З"EXAMPLE: A PROGRAM TO HAVE THE A REGISTER COUNT FROM 1 TO 10."6сЪЗ" 00010 LDA #1"6·дЗ" 00020 LOOP1 INCA"7оЗ" 00030 CMPA #10"78╕З" 00040 BNE LOOP1"7P┬З" 00050 RTS"7h╠З" 00060 END"7ч╓З"THE 5 DIGIT NUMBERS ARE EDITOR- SUPPLIED LINE NUMBERS AND ARE NOT USED LIKE BASIC LINE NUMBERSWITH RESPECT TO GOTO'S."8ЕрЗ"LOOP1 IS A LABEL ;MNл1/9▓З" PROPOSED BUDGET : ";:З═"$$#####.##";M(I,MN,0)/T╝З:Зд8)"CHANGE ? (Y/N)"/k╞Бж1320:ЕK$│"N"з110/╡╨Зд8);:Й"NEW BUDGET";NB:ЕNB┤0зЗ" BUDGET MAY NOT BE LESS THAN 0.":Бе720/╞┌M(I,MN,0)│NB/╨фБе670/фюЮ:Бж1240:Бж12700°Ю:Зд8)"CATEGORY : "; Л(CAл65);") ";CN$(CA)0+Зд11)"MONTH :";MNл10G Зд7)"ENTER EXPENSE";:ЙE0oЗ:З" IS THIS INPUT CORRECT ? (Y/N)"0Ж Бж1320:ЕK$│"N"з7600в*M(CA,MN,1)│M(CA,MN,1)лE0м4Бе1100╔>Ю:Бж1240:Бж1270:Бж1370:Ю0хHЗ#DN,д11)"MONTH :";MNл11RЗ#DN,д8)"CATEGORY : "; Л(CAл65);") ";CN$(CA)1T\З#DN," PROPOSED BUDGET :";:З#DN,═"$$######.##";M(CA,MN,0)1ТfЗ#DN," ACTUAL EXPENSES :";:З#DN,═"$$######.##";M(CA,MN,1)1▄pЗ#DN," AMOUNT OVER/UNDER :";:З#DN,═"$$####.##+";M(CA,MN,0)мM(CA,MN,1)1эzБж1210:Бе1102ДЮ:Бж1270:Бж1370:Ю:З#DN,д9)"YEARLY TOTALS"2LОЗ#DN,д8)"CATEGORY : "; Л(CAл65);") ";CN$(CA)2ДШTP│0:TE│0:АI│0е11:TP│TPлM(CA,I,0):TE│TEлM(CA,I,1):Л2╗вЗ#DN," PROPOSED BUDGET :";:З#DN,═"$$#######.##";TP2ЄмЗ#DN," ACTUAL EXPENSES :";:З#DN,═"$$#######.##";TE3-╢З#DN," AMOUNT OVER/UNDER :";:З#DN,═"$$#####.##+";TPмTE3>└Бж1210:Бе1103щ╩Ю:З" THE FOLLOWING BAR-GRAPH WILL INDICATE YOUR EXPENSES FOR ONE YEAR OF ONE SPECIFIC CATEGORY. AFTER THE GRAPH IS COMPLETE, PRESS [ENTER] TO CONTINUE.":Бж12104╘Бж1270:Ю0:АI│0е5:З@64нI,"$"; И((6мI)н100);:Л4%▐Бж131042шАMN│0е114YЄL│ Б((M(CA,MN,1)л24)о50):ЕL│0з10604r№ЕMN▓7зCN│MNм8:ДCN│MN4ЙB$│ б(2,143лCNн16)4ШЕL▓12зL│124гБж12004й$Л4║.Бж1220:Бе1105_8Ю:З" THE FOLLOWING BAR-GRAPH WILL SHOW A MONTH BY MONTH GRAPH OF ALL CATEGORIES COMBINED. AFTER THE GRAPH IS COMPLETE, PRESS [ENTER] TO CONTINUE.":Бж12105ЙBЮ0:АI│0е5:З@Iн64,"$"; И((6мI)н600);:Л5ФLБж13105бVАMN│0е115─`TE│0:АI│0е25:TE│TEлM(I,MN,1):Л5хjL│ Б((TEл100)о300):ЕL│0з11805■tЕMN▓7зCN│MNм8:ДCN│MN6~B$│ б(2,143лCNн16)6$ИЕL▓12зL│126/ТБж12006BЬЛ:Бж1220:Бе1106HжК6k░АY│1еL:З@390л2нMNмYн32,B$;:Л:Р6Т║З@484,"PRESS [ENTER] TO CONTINUE";6з─Е Т┤▓ Л(13)з12206н╬Р6╨╪Зд6);:Й"WHICH MONTH (1-12)";MN6їтЕMN┤1 ▒ MN▓12 ▒ MN┤▓ Б(MN) з12407ьMN│MNм1:Р70ЎЮ:Бж1340:З:З" WHICH CATEGORY ? (A-Z)"7FK$│ Т:ЕK$│""з12807| CA│ Ю("ABCDEFGHIJKLMNOPQRSTUVWXYZ",K$):ЕCA│0з12807КCA│CAм1:Р7ЎЗ@390,"J F M A M J J A S O N D ";:З@422,"A E A P A U U U E C O E ";:З@454,"N B R R Y N L G P T V C ";:Р8(K$│ Т:ЕK$┤▓"Y"░K$┤▓"N"з132082Р88<З@7,"<- CATEGORIES ->";8fFАI│0е25:З@33лIн16, Л(65лI);") ";CN$(I);:Л8lPР8ТZЮ:З" SCREEN OR PRINTER ? (S/P)"8йdK$│ Т:ЕK$│"S"з14108╗nЕK$┤▓"P"з13808╠xDN│м2:Бе14208╒ВDN│08█МРR R Y N L G P T V C ";:Р8(K$│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ═ННE9┼Ю┐╩0жДБ"&s┼ +Б &}┼&"┐╞Ю┐╚Нb╛╞0 M&┼0ьДГ&╞90 ╞Ю┐╩0жДБВ' Б:& жБГ&0 M& 0ьДГ&┌90 ┌0┐╞Ю┐╚╛╞жДM'▄Н╛╞ Ї╛╚0┐╚╛╞жзА╝╚&ўоЯ╩0пЯ╩ьДГ' ГэД яЮ0Я9 CM ьЗ" "Bў PL$│ ТC !ЕPL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▄&' В COPYRIGHT (C) T&D SOFTWARE 1983&GВ<< HOME BUDGET MANAGER >>&S╚0,1:└1&_(Ю:Х2000&x2М CN$(25),M(25,11,1)&е<Зд6)"HOME BUDGET MANAGER":Зд6) б(19,"$")&ЎFЗ:З" THIS MENU-DRIVEN PROGRAM WILLHELP YOU KEEP TRACK OF YOUR HOMEBUDGET."'╒PЗ" YOU WILL HAVE 26 CATEGORIES WHICH CAN BE NAMED BY YOU. THIS PROGRAM WILL DISPLAY MONTHLY ANDYEARLY TOTALS AND AMOUNT OVER/ UNDER THE PROPOSED BUDGET. YOU WILL ALSO BE ABLE TO SEE THE TO-TALS IN BAR-GRAPH FORM."(oZБж1210:Ю:З" YOU WILL ALSO BE ALSO TO SAVE/LOAD DATA FROM PREVIOUS MONTHS,INCLUDING THE USER-DEFINED CAT- EGORY NAMES TO/FROM DISK AND CASSETTE."(zdБж1210(АnЮ(ЬxЗд14)"MENU":Зд14)"----"(┴ВЗ" 1. LOAD DATA FROM TAPE/DISK"(фМЗ" 2. SAVE DATA TO TAPE/DISK")ЦЗ" 3. CHANGE CATEGORY NAMES")*аЗ" 4. CHANGE PROPOSED BUDGETS")IкЗ" 5. ENTER EXPENSE DATA")m┤З" 6. DISPLAY MONTHLY RESULTS")Р╛З" 7. DISPLAY YEARLY RESULTS")│╚З" 8. BAR-GRAPH ONE CATEGORY")╪╥З" 9. BAR-GRAPH YEARLY SUMMARY")ё▄З" 10. END PROGRAM"*цЗ:Зд5);:Й"YOUR CHOICE (1-10)";C*IЁИ C Бе300,410,520,650,750,830,900,970,1080,1190*А·З" ";C;"IS AN INVALID INPUT.":Зд12)"RE-ENTER.";*САTD│0е2000:Л*жЗ@416, б(95,32);*┤З@384,"";*╛"Бе230*у,Ю:З" CASSETTE OR DISK ? (C/D)"*∙6K$│ Т:ЕK$│"C"з340+ @ЕK$┤▓"D"з310+JDN│1:Бе350+#TDN│м1+Q^З" READY ";:ЕDN│м1зЗ"CASSETTE";:ДЗ"DISK";+ihЗ" - PRESS [ENTER]"+}rЕ Т┤▓ Л(13)з370+Ц|Ю:З@32,"LOADING ..."+яЖЩ"I",#DN,"BDGTDATA":АI│0е25:Й#DN,CN$(I):АJ│0е11:Й#DN,M(I,J,0):Й#DN,M(I,J,1):Л:Л:Ъ#DN+∙РБе110,ЪЮ:З" CASSETTE OR DISK ? (C/D)",4дK$│ Т:ЕK$│"C"з450,EоЕK$┤▓"D"з420,T╕DN│1:Бе460,^┬DN│м1,М╠З" READY ";:ЕDN│м1зЗ"CASSETTE";:ДЗ"DISK";,д╓З" - PRESS [ENTER]",╕рЕ Т┤▓ Л(13)з480,╨ъЮ:З@32,"SAVING ..."-)ЇЩ"O",#DN,"BDGTDATA":АI│0е25:З#DN,CN$(I):АJ│0е11:З#DN,M(I,J,0):З#DN,M(I,J,1):Л:Л:Ъ#DN-3■Бе110-@Ю:Бж1340-UЗ@448, б(63,32);-АЗ@449,"WHICH NAME IS TO BE CHANGED ?";-Ю&З@488,"(A-Z, ^ TO EXIT)";-│0K$│ Т:ЕK$│""з560-ч:I│ Ю("ABCDEFGHIJKLMNOPQRSTUVWXYZ^",K$):ЕI│0з560-їDЕI│27з110.4NЗ@448, б(63,32);:З@448,"ENTER NEW NAME FOR ";K$;"? ";:╗ЙN$.KXCN$(Iм1)│ О(N$,10).hbЗ@36л(Iм1)н16, б(11,32);.ДlЗ@36л(Iм1)н16,CN$(Iм1);.ШvЕ З(N$)▓│10з520.вАБе530.пКЮ:Бж1240.┐ФБж1270:I│CA.ьЮЮ:Зд8)"CATEGORY : "; Л(65лI);") ";CN$(I)/иЗд11)"MONTH :"  ╟&':ГCOPYRIGHT (C) T&D SOFTWARE 1983&9Т65494,0:Бж14&ЩA│128:B│2.53:C│N1:D│.0327:E│144:F│N2:G│199 :Г MAIN ROUTINE STARTS HERE&╧МQ,AA,BB,A,B,C,N1,F,N2,H,CC,D,D1,DD,E,G,X,Y,X1,Y1&цЮ:╚4,1:┐1,1:┴0,1:╝&ЎАH│мA еA йB'AA│ Б(.5л Ы(Aп2мHп2))'!АBB│мAA еAA '7CC│ Ы(BBп2лHп2)нD'[ D1│╠R(CC):DD│D1нC:Бж11:Л:Л:Бж53'm Е Т│""з10:Д49'и X│BBл(HоB)лE:Y│DDм(HоB)лF:X1│ Б(.85нX):Y1│ Б(.9н(GмY))'╗ ЕY1┤0▒Y1▓190зР'т ╜(X1,Y1):╗(X1,(Y1л1))м(X1,190),╛:Р(Ю0:└4:З@203,"trigdemo";:Бж45(чЮ:З:З" THIS PROGRAM IS A TRANSLATION FROM APPLESOFT OF PART OF THE LISTING WHICH ACCOMPANIES JAS. FULLER'S ARTICLE 'THREE WAYS OF LOOKING AT A FUNCTION' IN THE JANUARY 1983 ISSUE OF CREATIVE COMPUTING.(ЁБж45)▐Ю:З:З" MANY OF US HAVE BEEN AMAZED BY THE DISPLAYS OF 3-D GRAPHS FOR TRIGONOMETRIC FUNCTIONS WHICH FIGURE IN THE ADS FOR CERTAIN HIGH - PRICED COMPUTERS, AND WONDERED WHETHER THE SAME SORT OF THING COULD NOT BE ARRANGED ";*!З"FOR COCO'S SCREEN. THIS PRO- GRAM SHOWS THAT IT CAN BE.**Бж45*УЮ:З:З" THE PROGRAM WILL PRESENT YOU WITH A CHOICE OF FIVE FORMULAE AND THEN RUN YOUR SELECTION.+З:З" AS THE EXECUTION TIME WILL OC- CUPY SOME HOURS, YOU WILL BE AFFORDED THE CHOICE OF LOADING IN A SAMPLE GRAPH DIRECTLY.+#Бж45+╦Ю:З:З" THIS PROGRAM DOES NOT PRETEND TO BE A TRIGONOMETRY TUTORIAL NOR TO OFFER ANY INSTRUCTION AT ALL. IT IS OFFERED SOLELY AS A GRAPHIC EMTERTAINMENT.+╘Бж45,HЮ:З:Й" CAN YOUR SYSTEM OPERATE WITH THE SPEED-UP POKE (65495,0) ACTIVATED (Y,N)";PO$:ЕPO$│"Y"зБж54:ДБж45,╬Ю:З:З" UPON COMPLETING THE GRAPH THE PROGRAM WILL MAKE A NOISE TO LET YOU KNOW. PRESS ANY KEY AFTERWARDS TO CONTINUE.,╫Бж45-AЮ:З:З" WOULD YOU LIKE TO :":З:З" 1. COMPILE A FORMULA":З" 2. SEE ONE READY-COMPILED":З:Й" ";CH-YЕCH│2з47:ДЕCH┤▓1з49-zЮ:З:З"SOME SAMPLE FORMULAE :-УЗ" "л б(30,128)л" ";-╡ З"1 = COS(2*Q)+COS((Q+BB)/16)-╒!З"2 = COS(4*Q)+(20/(Q^2+3))-°"З"3 = COS(Q)+COS(2*Q)+COS(5*Q).#З"4 = COS(7*SIN(2*Q)).$$З"5 = 1/(Q-5).=%З" "л б(30,128)л" ";.}&З:Й" CHOOSE ONE";FO:ЕFO┤1▒FO▓5з30:ДИFO Бж39,40,41,42,43:Бе2.м'N1│18:N2│75:╣╠R(Q)│ Х(2нQ)л Х((QлBB)о16):Р.┌(N1│18:N2│40:╣╠R(Q)│ Х(4нQ)л(20о(Qп2л3)):Р/ )N1│18:N2│40:╣╠R(Q)│ Х(Q)л Х(2нQ)л Х(5нQ):Р/0*N1│18:N2│40:╣╠R(Q)│ Х(7н Е(2нQ)):Р/R+N1│18:N2│120:╣╠R(Q)│1о(Qм5):Р/з,В N1 CONTROLS VERTICAL HEIGHT, N2 VERITCAL PLACEMENT./╬-З@451,"PRESS ANY KEY TO CONTINUE";/▀.Е Т│""з46:ДР0/Ю:З:Й" PRESS =PLAY= ON CASSETTE";CA:╚4,1:┐1,1:╝10.0Т65494,0:ЧM:Бж53:Бе100╧1Ю:З:З" WOULD YOU LIKE TO : 1] TRY AGAIN ; 2] SAVE PICTURE TO TAPE ; 3] EXIT PROGRAM":ЙCA:ЕCA┤1▒CA▓3з49:ДИCA Бе28,50,5212Ю:З:Й" PREPARE CASSETTE FOR RECORDING";CA:Ю:З:З" RECORDING...."1K3Т65494,0:ШM"DEMO", Ж(186)н256, Ж(25)н256м1,138:Бе491Е4Т65494,0:Ю:З:З" THANK YOU. PROGRAM ENDING. ":К1╖5АT│1е500:Л:╔"V31O3L40T40ABFDEGABFDEGABFDEG":Р1╞6Т65495,0:Р,50,5212Ю:З:Й" PREPARE CASSETTE FOR RECORDING";CA:Ю                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ж&':ГCOPYRIGHT (C) T&D SOFTWARE 1983&9 Т 359,57:┐0,1&u╛Ю:Х2048:╚0:└4:З@229,"READING DISK DIRECTORY";:Т&HFF22,8&о╚А X│512 е 541:НA$:ТX, Й("&H"лA$):ЛX:╣ Г0│512:F│ г(0)&╬╥МA$(68):Y│1:P1│1:PO│4:T│247&·▄А X│3е11:▀0,17,X,A$,B$:C$│A$л О(B$,127)'4цА N│0е7:A$(Y)│ Р(C$,Nн32л1,8)л"."л Р(C$,Nн32л9,3)л" "'[ЁR│ К(A$(Y)):Е R│255зA$(Y)│"":Бе300'Д·A$(Y)│A$(Y)л Л( Ж(1547лNн32)л48)л" "'┐Е  Ж(1548лNн32)│0 з A$(Y)│A$(Y)л"B" :Д A$(Y)│A$(Y)л"A"(Е R│0 ▒  П(A$(Y),1)┤▓"B" ▒ ( Р(A$(Y),10,3)┤▓"BAS" ░  Р(A$(Y),10,3)┤▓"BIN") з A$(Y)│"":Бе290(<A$(Y)│ О(A$(Y),12):Y│Yл1(F"Л N,X(q,P2│ Б((Yм1)о10):Е P2┤(Yм1)о10 зP2│P2л1(Т6Ю:Зд6)"COLOR DISK DIRECTORY"(ц@A$│ И(68мF)л" USED -"л И(F)л" FREE":Зд(32м З(A$))о2)A$:Зд10)"PAGE";P1;"OF";P2:З(°JH│(P1м1)н10л1)TА X│H е Hл9) ^Е A$(X)│"" зЗ:Бе370)/hЗд9);A$(X))5rЛ)C|Т&HFF22,8)nЖK│POн32л8:Т529,&H80:A│ Г0(K):Т529,&H8B)ГРE│(P1м1)н10лPOм3)юЪЕ Ж(341)│T ░ PO│4 ░ P1▓1 з P1│P1м1:PO│13:A│ Г0(K):Бе310 :Д Е  Ж(341)│T ░ PO▓4 з A│ Г0(K):PO│POм1:Бе390*dдЕ  Ж(342)│T ░ PO┤13 ░ E┤Yм1 з A│ Г0(K):PO│POл1:Бе390 :Д Е  Ж(342)│T ░ P1┤P2 ░ PO│13 з P1│P1л1:PO│4:A│ Г0(K):Бе310*zоЕ  Ж(338)│191з450*Д╕Бе410*к┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*╓╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);* ╓Е  Ю(A$(E),"BIN") з Т 359,126:╙MT$:в+&рЕ  Ю(A$(E),"BAS") з Т359,126:╙T$,R+0ъБе410+ЕЇЖ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0┬ Р(A$(E),9,1)│".":T$│ О(A$(E),12)*╓╠Z$│ Т : Ю : З @233,"LOADING "л О(T$,8);* ╓Е  Ю(A$(E),"BIN") з Т 359,126:╙MT$:в                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ф&':ГCOPYRIGHT (C) T&D SOFTWARE 1983&7╝:╚3:┐1,1:╝&┌╞"BM5,40C2R235F2R1F2D135BF10U135H10D135L30ND2U1H1U3H1U3H1U3H1U3H1U3H1U3H1U3H1L169G1D3G1D3G1D3G1D3G1D3G1D3G1D3G1D3NR185U2L30U135E2R1E2BR8BD8R219F5D93L229U93E5"'\╞"BM0,180F10R30NH4F2R185H2NR30H2BH6L185BR6BD2NR32F6R32H6BR18BD1NR4F4R4H4BR18BU1NR32F6R32H6BR19BD1NR4F4R4H4BU1BR18NR32F6R32H6"'╫├(248,55),2,2:╞"BM35,182C5NF8BR182NF8":╞"BM52,168C2E3R3F3D3G3L3H3U3BR128E3R3F3D3G3L3H3U3":├(54,168),2,2:├(182,168),2,2(Г╞"C3":X│20:Y│32:Бж 59:A$│"T AND D SOFTWARE":X│50:Y│20:Бж61:X│220:Y│32:Бж59:X│50:Y│30:A$│"HOLLAND MICHIGAN":Бж61:X│14:A$│"REPRODUCTION OF ANY OF THE":Y│Yл32:╞"C4":Бж 61(╢A$│"FOLLOWING IS PROHIBITED.":Y│Yл10:X│22:Бж61(ыA$│"T AND D SOFTWARE SHALL HAVE":X│6:Y│Yл18:Бж61)! A$│"NO LIABILITY OR RESPONSIBIL-":Y│Yл10:X│6:Бж61)W A$│"ITY TO CUSTOMER WITH RESPECT":Y│Yл10:X│6:Бж61)╝ A$│"TO ERROR, LOSS, OR DAMAGES":Y│Yл10:X│14:Бж61:A$│"CAUSED BY THESE PROGRAMS.":Y│Yл10:X│14:Бж61*G A$│"COCO CASSETTE NO.":X│46:Y│158:╞"C2":Бж61:╞"BM+10,+1;U4L4D2R2":A$│"MARCH":X│82:Y│Yл10:Бж61:╞"BM+10,+0;U4R4D2NL2D2NL4BR4R4U2NL4U2L4"*X АTD│1е2000:Л*t╝:X│80:Y│190:╞"C3":Бж51*~Бж102*╡╞"C0":X│10:Y│10:A$│"THIS IS MY TIME MACHINE.":Бж61+Y│Yл10:X│0:A$│"WITH IT, I WILL PRESENT A BRIEF":Бж61:Y│Yл10:X│0:A$│"HISTORY OF THE COMPUTER.":Бж61+-АTD│1е1000:Л+^Y│Yл20:X│0:A$│"READY... HERE WE GO...":Бж61+hБж106+К╝:X│80:Y│190:╞"C3":Бж51:Бж102+╔АI│0е7:╜(Iн20л55,80,3):╜(Iн20л55,70,3):┬(Iн20л55,80),7,3:Л+ш┴3,1:╗(46,65)м(202,87),╜,B,ВX│0:Y│10:A$│"ONE OF THE EARLIEST MECHANICAL":╞"C0":Бж61:X│0:Y│20:A$│"COMPUTERS WAS BUILT BY PASCAL.":Бж61:X│0:Y│30:A$│"IT USED DIALS AND GEARS.":Бж61,┬АTD│1е2000:Л:X│0:Y│Yл20:A$│"HERE WE GO AGAIN...":Бж61:Бж106,ф╝:X│80:Y│190:╞"C3":Бж51:Бж102-┴3,1:╗(140,5)м(236,85),╜,B-|╞"C3BM140,5 R24U2NL10NR10D2R24U2NL10NR10D2R24U2NR10NL10D2D10NR10NL10D10NR10NL10D20NR10NL10D20NL10NR10D20NL10NR10U80".╞"BM+0,+0 L24D5NL10NR10D10NL10NR10D20NL10NR10D20NR10NL10D20NL10NR10D5U80L24D10NL10NR10D10NL10NR10D20NL10NR10D15NR10NL10D15NL10NR10D10".╜X│0:Y│10:A$│"THE NEXT":╞"C0"::Бж61:X│0:Y│Yл10:A$│"MAJOR COMPUTER":Бж61:Y│Yл10:X│0:A$│"WAS KNOWN AS":Бж61:X│0:Y│Yл10:A$│"BABBAGES FOLLY.":Бж61:X│0:Y│Yл10:A$│"IT OPERATED ON":Бж61.хX│0:Y│Yл10:A$│"PUNCHED PAPER.":Бж61.Ў АTD│0е2000:Л/#!X│0:                                                                                                                                                                                                                                                                                      ┴┴┴├╞"#╞%&'├)┼┼,─./─                    DEMOBAS╩CHEOPS BAS$3PACKER BIN╫BUDGET BAS▀DATEBOOKBAS(·MLT 4 BASDIR BAS ЙTIMECOVEBAS!чTRIGDEMOBAS╩CHEOPS BAS$3PACKER BIN╫BUDGET BAS▀DATEBOOKBAS(·MLT 4 BASTAPE DIRBAS*тBLOCKSTRBAS+аCOCOADD BAS-Ю                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Y│Yл10:A$│"HERE WE GO...":Бж61:Бж106/E"╝:X│80:Y│190:╞"C3":Бж51:Бж1020#X│0:Y│10:╞"C0":A$│"THE FIRST ELECTRONIC COMPUTER":Бж61:Y│Yл10:X│0:A$│"WAS ENIAC. IT REQUIRED A LARGE":Бж61:Y│Yл10:X│0:A$│"ROOM TO HOUSE ITSELF. IT":Бж61:X│0:Y│Yл10:A$│"CONTAINED TWENTY THOUSAND":Бж610п$X│0:Y│Yл10:A$│"VACUUM TUBES, WEIGHED THIRTY":Бж61:X│0:Y│Yл10:A$│"TONS, AND CONSUMED ONE-HUNDRED":Бж61:X│0:Y│Yл10:A$│"FIFTY THOUSAND WATTS OF POWER.":Бж610└%АTD│0е2500:Л0э&X│0:Y│Yл10:A$│"HERE WE GO...":Бж61:Бж1061'╝:X│80:Y│190:╞"C3":Бж51:Бж1021█(X│0:Y│0:A$│"WE ARE BACK AT THE PRESENT.":Бж61:X│0:Y│Yл10:A$│"THE COMPUTERS OF TODAY ARE MUCH":Бж61:X│0:Y│Yл10:A$│"MORE RELIABLE, POWERFUL, AND":Бж61:X│0:Y│Yл10:A$│"SMALLER THAN THE COMPUTERS OF":Бж612?)X│0:Y│Yл10:A$│"THE PAST.":Бж61:АTD│0е2000:Л:X│0:Y│Yл10:A$│"SHALL WE LOOK AT THE FUTURE...":Бж612I*Бж1062k+╝:X│80:Y│190:╞"C3":Бж51:Бж1022х,╞"C4BM200,5 R5NH3R10NE3R5L20D10F5R10E5U10D10G5L4ND2L2D2R2R5L12G10D40C3R10ND3R1ND3R1ND3R1ND3R4R1R1ND3R1ND3R10C0U40H10"3-┬(208,50),5,3:┬(208,40),5,2:┬(208,30),5,333.┬(205,10),2,2:┬(214,10),2,23у/╞"C0":X│0:Y│0:A$│"IN THE FUTURE THERE WILL":Бж61:X│0:Y│Yл10:A$│"BE ROBOTS THAT CAN LEARN":Бж61:X│0:Y│Yл10:A$│"FROM EXPERIENCE AND":Бж61:X│0:Y│Yл10:A$│"REMEMBER. THEY WILL"4?0Бж61:X│0:Y│Yл10:A$│"BECOME AS POPULAR AS":Бж61:X│0:Y│Yл10:A$│"PERSONAL COMPUTERS.":Бж614X1АTD│0е2000:Л:Бж106:╝4╛2X│80:Y│190:╞"C3":Бж51:Бж102:X│0:Y│0:╞"C0":A$│"I HOPE YOU ENJOYED THE TRIP.":Бж61:АTD│0е2000:Л:Бе24╤3╗(X,Y)м(X,Y),╛584╞"BM+0,+0;R16E3R1F3R12U20D20R30E2U2H2L4H4U5D5F4L4G2L12H2L6U1L8H1L10H1L7H1L7G2D3F2D2BU12BR4NG4E3U8"5Н5╞"BM+0,+0H1L5H1L5R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R40U2L45BU2R45"6$6╞"BM+0,+0;H20L48G2F20BR3BU2H16R41F16BL13BU21H1L4H1L4H1L4U32L72D20E1R3E1R3BL6BG2L3G1L3G1L3G1L1G1L1G2L1G3D2F7R30U1H3U1E3U1L22U1E1R3BR24U24R30D24L30"6░7╞"BM+0,+0;E3U18H3F3R24E3G3D18F3H3L24BR5BU8U8R4D8L4BR2BU2R1BR8U6R4D8L4U2BR2R1BD6BL3L6BR21BD9R7BU3L7BU3R7BU3L7BU5U12R8D12L8BU3BR2R3BU4L3"7W8╞"BM-65,+35;R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1H5L5H1L5H1U6D6L5H1U5D5L5H1U4D4L5H1U3D3L5H1L5H1L5H1L3G1D2F1R1G2D1F2BR32BU12H2U2E2R5G2D2F2L5R12E1H1L4R4E1R1U1H1L4R4"7╔9╞"BM+0,+0;L9U2R4F2D1G2BR20BD10R2BR4R2BR4R2BR4R2BR4R2BR4R2BD4L2BL4L2BL4L2BL4L2BL4L2BD4R2BR4R2BR4R11BR4R2BR4R2"7╧:Р8\;╗(X,Y)м(X,Y),╛:╞"BM+0,+0;R3U2R5D2L5R7U6L10D6BU6BR3U1L2H2U1R3L7H2U1R4L9H2U1R22D3G3D2R2E3R2E2R2U3H7U1L2G1D2F2H2L2G1D2F2H2L2G1BD17BL6BU5":Р8П<╗(X,Y)м(X,Y),╛:╞"BM+0,+0R3U2R5D2L5R7U6L10D6":Р8Щ=╞"S2"8╚>А P│1 е  З(A$):I$│ Р(A$,P,1):I│ К(I$)м64 8∙?X│Xл8лB:Е X▓(252м(Bн1.5)) з X│8:Y│Yл10л(Bо2)9 @Е I│м19 з I│289AЕ I│м18 з I│2992BЕ I│м20 з I│309CCЕ I┤0 з I│279╣D╗(X,Y)м(X,Y),╛:И I Бж 72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,1019╨EЕ S│0 з ╔"T250O1C"9рFЛ P:╞"S4":Р9ъGБе 71:H╞"BM+0,+0;BR4ND4NF4G4D4BR8U4":Р:.I╞"BM+0,+0;ND8R8D4NL8D4L8":Р:GJ╞"BM+0,+0;NR8D8R8":Р:fK╞"BM+0,+0;ND8R6F2D4G2L6":Р:ДL╞"BM+0,+0;NR8D4NR6D4R8":Р:аM╞"BM+0,+0;NR8D4NR6D4":Р:╜N╞"BM+0,+0;NR8D8R8U4L1":Р:┌O╞"BM+0,+0;D4ND4R8U4D8":Р:юP╞"BM+4,+0;D8":Р; Q╞"BM+0,+0;BR6D8L4U2":Р;'R╞"BM+0,+0;D8U4R4NE4NF4":Р;AS╞"BM+0,+0;D8R8":Р::ГL;_T╞"BM+0,+0;ND8R4ND3R4D8":Р;xU╞"BM+0,+0;ND8R8D8":Р;ТV╞"BM+0,+0;D8R8U8L8":Р;нW╞"BM+0,+0;ND8R8D4L8":Р;╤X╞"BM+0,+0;R8D8NH3NF2L8U8":Р::ГQ;ЄY╞"BM+0,+0;R8D4L4NF4L4D4U8":Р<Z╞"BM+0,+0;NR8D4R8D4L8":Р<([╞"BM+0,+0;R4ND8R4":Р<@\╞"BM+0,+0;D8R8U8":Р╗(222,66)м(222,42),╜)з?╗м(233,50),╜)╕@╗м(224,58),╜)└A:ГS)┘B╗(247,42)м(236,50),╜)ъC╗м(247,58),╜)√D╗м(236,66),╜* EАI│1е1500:ЛI*FБе 86*6G╞ "BM15,180;E125;F125;L240"*FHАI│1е100:ЛI*_I╗(15,180)м(49,128),╜*xJ╗(49,128)м(138,55),╜*ОK╗(0,90)м(92,90),╜*ЯL├(10,95),3,4*╕M╗(175,90)м(255,90),╜*╩N├(250,95),3,4*▄O├(58,179),2,4*юP┬(40,28),15,4* Q├(40,28),4,4+ R┐ 1,0+SАI│1е1000:ЛI+$TБе 30+-UMI│0+7V┐ 0,0+ЇWЮ:З@64," 'CHEOPS' IS A ONE OR TWO PLAY- ER GAME. TRY TO ESCAPE THE PYRAMID THROUGH THE TOP RIGHT EXIT. USE THE FOLLOWING KEYS: =UP, =DOWN, =LEFT AND =RIGHT.",XXЗ@288," BEAT YOUR OLD TIME AND DO NOT GET TRAPPED BY THE MUMMY'S BLOCKADES. "",bYG$│ Т,uZЕG$┤▓""з91:Д89,¤[Ю:З@32," WITH TWO PLAYERS, ONE PLAYER IS THE MUMMY. USE RIGHT JOY- STICK AND AND

TO MOVE POSITION AND BUILD WALLS."-Д\З@160," YOU CAN BUILD 10 VERTICAL WALLS AND 10 HORIZONTAL WALLS. THE ANTHROPOLOGIST CAN BLAST HOLES THROUGH 5 WALLS USING.".#]З@320," IF YOU GET TRAPPED TOUCH . BUT DON'T GIVE UP TOO EASILY, YOU'LL BE SURPRISED AT THE PLACES YOU CAN GET THROUGH. ".-^Y$│"".9_L│0:B│0.D`UU$│ Т.XaЕUU$┤▓""з98:Д96.xbЮ:З@32,"<1> PLAYER OR <2>?".АcЙNU.ЩdЕNU▓0░NU┤3зБе101:Д99/qeЮ:З@32," BEGINNER<1>, EXPERIENCED<2>, EXPERT<3> OR IN THE DARK<4>? IF YOU PLAY IN THE DARK AND GET LOST, TOUCH . THAT WILL TURN THE LIGHTS ON FOR THE REST OF THE GAME."/yfЙSP/СgЕSP▓0░SP┤5з104:Д102/║hЮ:З@194,"WHO IS THE ANTHROPOLOGIST?"/─iЙ SU$/╥jCC│ Д(95)/▐kFF│CCо2/ьlBB│ Б(FF)0mЕCC┤▓(BBлBB)з1060nЕSP│3зТ65495,0:Д1120#oБе11300pТ65494,009q Я│00FrBB│BBлBB0^sAA│ Д(148):BB│BBл880jtAA│AAл50{uЕAA▓245з 1150Вv╝20Ыw╗(49,128)м(138,55),╛0╡x╗(138,55)м(250,180),╛0╬y╗(15,180)м(49,128),╛0чz╗(15,180)м(138,55),╛0∙{┬(40,28),15,51|M│01╫}╞"BM4,184;R250;BU8;L50;BL10;L25;BL10;L10;BL10;L10;BL10;L25;BL10;L10;BL10;L15;BL10;L34;U8;R20;BR10;R30;BR10;R20;BR10;R40;BR10;R50;BR10;R30;BR10;R40;BR10;R20;BU8;L20;BL10;L40;BL10;L30;BL10;L50;BL10;L40;BL10;L20"2Щ~╞"BM4,152;R5;BR10;R10;BR10;R50;BR10;R40;BR10;R10;BR10;R50;BR10;R25;BR10;R40;BU8;L40;BL10;L25;BL10;L50;BL10;L10;BL10;L40;BL10;L35;U8;R5;BR10;R20;BR10;R20;BR10;R20;BR10;R50;BR10;R70;BR10;R80"3Z╞"BM255,128;L25;BL10;L25;BL10;L25;BL10;L25;BL10;L25;BL10;L25;BL10;L40;U8;R10;BR10;R50;BR10;R50;BR10;R50;BR10;R10;R50;BU8;L20;BL10;L20;BL10;L20;BL10;L20;BL10;L30;BL10;L20;L25;BL10;L25;BL10"3~А╞ "BM50,184;U8;BR50;U8;BR50;U8"4Б╞"BM4,104;R50;BR10;R50;BR10;R50;BR10;R50;BR10;R50;BU8;L11;B;L10;L19;BL10;L18;BL10;L12;BL10;L42;BL10;L48;BL10;L40;BU8;R50;BR10;R50;BR10;R40;BR10;R65;BR10;R54╢В╞"BM255,80;L35;BL10;L35;BL10;L55;BL10;L20;BL10;L15;BL10;L40;BU8;R10;BR10;R50;BR10;R50;BR10;R50;BR10;R50;U8;L10;BL10;L50;BL10;L50;BL10;L50;BL10;L50"5sГ╞"BM4,56;R20;BR10;R20;BR10;R20;BR10;R20;BR10;R25;BR10;R25;BR10;R31;BR10;R25;BU8;L20;BL10;L50;BL10;L50;BL10;L50;BL10;L40;U8;R11;BR10;R19;BR10;R18;BR10;R12;BR10;R42;BR10;R48;BR10;R30;U8"6%Д╞"BM255,32;BR15;L25;BL10;L45;BL10;R24;BL10;L50;BL10;L40;L50;BL10;L15;U8;R10;BR10;R10;BR10;R50;BR10;R50;BR10;R50;BR10;R50;BU8;L10;BL10;L27;BL10;L50;BL10;L50;BL10;L50;BL10;L136DЕ╞"BM241,32;U8;BD32;BL40;D86bЖ╞"BM44,104;D8;BD32;BL4;D86~З╞"BM44,104;BU24;BR35;U86щИ╞"BM4,184;BU16;BR25;U8;BU8;BR40;U8;BR40;U8;BU16;BR8;U8;BR40;U8;BU16;BL60;U8;BU16;BL25;U8;BU16;BR70;U8"7*Й╞"BM250,184;BL10;U8;BL39;U8;BU16;BL10;U8;BR59;U8;BU8;BR14;U87EК╞"BM4,12;D174;L1;U178"7iЛ╞"BM4,187;R250;U1;L250;U1;R250"7ЖМ╞"BM255,12;D174;R1;U174"7оН╞"BM255,0;D11;BU11;BL10;D8;L240;D4"7╜О├(1,1),1,47╦ПЕSP│4з1457╘Р┐1,07█СЮ07фТ Я│07юУБе1587№ФЕNU│1з1528 ХH│ Н(0)н4.38ЦV│ Н(1)н380Ч╜(H,V,3):╜(H,V,1)86ШР8@ЩY$│ Т8NЪЕNU│1з1588^ЫH│ Н(0)н4.38lЬV│ Н(1)н38ВЭ╜(H,V,3):╛(H,V,1)8ФЮЕY$│"A"зБж1818еЯЕY$│"L"Бж2908╡аЕY$│"T"з2408╩бЕY$│"P"з162:Д1668╪вЕV┤10з1668тгL│Lл18ЁдЕL▓10з1669е╗(H,V)м(H,Vм8),╜9жЕY$│"D"зБж1939!зPM│ Я93иЕPM▓17999з2399CйЕNU│1зБж2309YкЕY$│"O"з171:Д 1759fлЕH┤9з1759pмB│Bл19~нЕB▓10з1759Уо╗(H,V)м(Hм8,V),╜9жпЕY$│"F"з Бж2049╜░ЕAA▓245░BB┤5зБе2399╧▒ЕY$│"S"зБж2169▌▓ЕNU│1з1809ю│ЕY$│"R"Бж2819°┤Бе153:╡M│Mл1:╢Е а(AA,BBм2)│4зР:"╖Бж 148:0╕АI│1е2:ЛI:G╣╗(AA,BB)м(AA,BB),╛:f║ЕSP│1за250,1:Д╔"O5;A;T250":r╗BB│BBм2:╝Е BB┤2зР:Ц╜╗(AA,BB)м(AA,BB),╜:а╛X$│ Т:░┐ЕX$│""з 182:╢└Р:└┴M│Mл1:╒┬Е а(AA,BBл2)│4зР:р├Бж 148:ў─╗(AA,BB)м(AA,BB),╛;┼ЕSP│1за50,1:Д╔"O2;A;T255";!╞BB│BBл2;/╟ЕBB▓188зР;F╚╗(AA,BB)м(AA,BB),╜;P╔X$│ Т;_╩ЕX$│""з194;e╦Р;o╠M│Mл1;{═ЕAA┤2зР;Р╬Е а(AAл2,BB)│4зР;Ы╧Бж 148;▓╨╗(AA,BB)м(AA,BB),╛;╤╤ЕSP│1за200,1:Д╔"O4;A;T240";▌╥AA│AAл2;ы╙ЕAA▓255зР<╘╗(AA,BB)м(AA,BB),╜< ╒X$│ Т<╓ЕX$│""з205 ъ╗(AAм4,BBм8)м(AAл4,BBм8),╜>ыР>!ьЕAA┤5▒BB┤5зР>@э╗(AAм4,BBм4)м(AAл4,BBм4),╜>FюР>PяБе242>]ЁPM│18000>gёБе243>qЄPM│ Я>{єTM│PM>МЇЕTM▓3599з247>вїMI│0:SC│ Б(TMо60)>мЎБе254>┬ўTM│TMо60:TM│TMо60>╤°TM$│ И(TM)>у∙MI$│ О(TM$,2)>Є·MI│ Й(MI$)?√SC$│ Р(TM$,4,3)?№SC│ Й(SC$)?)¤SC│(SCн60)о1000?G■SC$│ И( Б(SC)):MI$│ И(MI)?Y ЕPM▓17999з257?uЕAA▓245░BB┤5зБе257:Д169?РII│IIл1:SC$│ И( Б(SC))?╛PR$│"=":PX$│" MINUTE(S)":PZ$│" SECOND(S)"?тHY$(II)│SU$лPR$лMI$лPX$лSC$лPZ$?°Ю:З@192," "SU$","@~З@224,"YOUR TIME WAS"MI"MINUTE(S) AND"  Б(SC)"SECOND(S) "@ЙPU$│ Т@ЯЕPU$┤▓""з264:Д262@еЮ@╩ З"JHR= 0 MINUTE(S) 22 SECOND(S)"@╫ АTT│1еII@ф ЗHY$(TT)@ь ЛTT@° UE│UEл1AЗ" "A%ЕUE▓11з272:Д273AfЗ@416," SERIES OVER!":З@416," ":Бе 272AoЙPO$AДЕPO$│""з275:Д273A▓Ю:З@192,"DO YOU WANT TO PLAY AGAIN?(Y-N)"A╜PM$│ ТA╥ЕPM$│"Y"з91:Д278AхЕPM$┤▓"N"з 276BЮ:З@224," BYE-BYE"BБе279BP│Pл1B#ЕP▓5зРBg╔"T250;O1;B;A;B;V25":┬(AA,BB),4,4:╔"T255;O1;A;V30":┬(AA,BB),4,1BЮ╔"T250;O1;B;V31;T250;O1;A;V30;B;A":╔"T250;O1;B;10"BдРB╘З@224," BOO,"SU$",YOU WENT OVER 5 MINUTES!"BьЗ" "Bў PL$│ ТC !ЕPL$┤▓""з275:Д288C"┐1,0C$#ЕY$┤▓""зРC/$Бе 291B;A;B;V25":┬(AA,BB),4,4:╔"T255;O1;A;V30":┬(AA,BB),4,1BЮ╔"T250;O1;B;V31;T250;O1;A;V30;B;A":╔"T250;O1;B;10"BдРB╘З@224," BOO,"SU$",YOU WENT OVER 5 MINUTES!"BьЗ" "Bў PL$│ ТC !ЕPL                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ў&' В COPYRIGHT (C) T&D SOFTWARE 1983&BВ ELECTRONIC DATEBOOK&N╚0,1:└1&Z(Ю:Х6000&y2М D$(100,1),MN(12):I│0:J│0&О<АI│1е12:НMN(I):Л&╖FЖ31,28,31,30,31,30,31,31,31,31,30,31&фPЗд6)"ELECTRONIC DATEBOOK":Зд6) б(19,"-")'yZЗ:З" THIS HOME DATEBOOK-TYPE PRO- GRAM WILL ALLOW YOU TO ENTER, EDIT, SAVE, LOAD AND DISPLAY FUTURE DATES, EVENTS, APPOINT- MENTS, ETC."'╗dЗ" THE DATEBOOK MAY SAVED/LOADEDTO/FROM CASSETTE AND DISK."(9nЗ" PLEASE DO NOT USE '!' IN THE TEXT WHICH YOU ENTER BECAUSE THE'!' IS USED BY THE PROGRAM AS ANEMBEDDED CONTROL CODE."(CxБж770(IВЮ(iМЗ:Зд14)"MENU":Зд14)"----":З(ТЦЗ" 1. LOAD DATEBOOK FROM TAPE/DISK";(╕аЗ" 2. SAVE DATEBOOK TO TAPE/DISK"(╘кЗ" 3. ENTER EVENT DATA"(я┤З" 4. EDIT EVENT DATA") ╛З" 5. DELETE EVENT DATA")*╚З" 6. DISPLAY EVENT DATA")A╥З" 7. END PROGRAM")a▄З:Зд6)"YOUR CHOICE ? (1-7)")vцK$│ Т:ЕK$│""з230)бЁИ  Й(K$) Бе260,300,340,510,570,620,760)л·Бе230)╖Ю:Бж800)╒Ю:З"LOADING DATEBOOK ..."*Щ"I",#DN,"DATEBOOK":АI│0е100:╗Й#DN,D$(I,0):╗Й#DN,D$(I,1):Л:Ъ#DN*#"Бе130*/,Ю:Бж800*L6Ю:З"SAVING DATEBOOK ..."*О@Щ"O",#DN,"DATEBOOK":АI│0е100:З#DN,D$(I,0):З#DN,D$(I,1):Л:Ъ#DN*ШJБе130*╖TАI│0е100:ЕD$(I,0)│""зI│400*ю^Л:ЕI┤400зЗ"SORRY, NO SPACE AVAILABLE.":Бж770:Бе130*·hЮ:Бж880+rАI│0е100:ЕD$(I,0)│DA$зI│400++|Л:ЕI┤400з400+ЛЖЗ"THAT DATE HAS ALREADY BEEN USED.IF YOU WISH TO ADD INFORMATION, TRY EDITING.":Бж770:Бе130+│РEF│0:T$│"":L│0:Зд9)"ENTER EVENT(S)",ЪЗ" ENTER UP TO 5 LINES. PRESS [ENTER] AFTER EACH LINE. DO NOT USE '!' IN THE TEXT!",Wд╗ЙE$:T$│T$лE$л Л(33):L│Lл1:P│ Ж(136)н256л Ж(137):ЕL│5з470,yоЗ@486,"ANOTHER LINE ? (Y/N)";,П╕K$│ Т:ЕK$│"N"з470,а┬ЕK$┤▓"Y"з440,╚╠З@480, б(31,32);:З@Pм1024,"";:Бе420,╪╓Е EF│1 з500,√рАI│0е100:ЕD$(I,0)│""зT│I:I│400-ъЛ-"ЇD$(T,0)│DA$:D$(T,1)│T$:Бе130-.■Ю:Бж880-RАI│0е100:ЕD$(I,0)│DA$зT│I:I│400-cЛ:ЕI▓300з550-sБж940:Бе130-Н&З"ENTER NEW EVENT(S)"-з0EF│1:L│0:T$│""::Бе410-│:Ю:Бж880-╫DАI│0е100:ЕD$(I,0)│DA$зT│I:I│400-шNЛ:ЕI▓300з610-°XБж940:Бе130.=bD$(T,0)│"":D$(T,1)│"":З" DATE ";DA$;" DELETED":Бж770:Бе130.PlЮ:Бж1100:Бж880.tvАI│0е100:ЕD$(I,0)│DA$зT│I:I│400.ЕАЛ:ЕI▓300з659.оКЗ" DATE ";DA$;" NOT FOUND":Бе700.├УЕ DN│м2зЗ#DN," ".ыФЮ:З#DN,д12)D$(T,0):З б(32,"-"):SP│1/ЮP│ Ю(SP,D$(T,1), Л(33)):ЕP│0 ▒ P│SP з700/<иЗ#DN, Р(D$(T,1),SP,PмSP):SP│Pл1/F▓Бе670/з╝З" PRESS I TO INCREMENT DATE":З" PRESS D TO DECREMENT DATE":З" PRESS [ENTER] FOR MENU"/└╞K$│ Т:ЕK$│ Л(13)з750/╤╨ЕK$│"I"з1010/т┌ЕK$┤▓"D"з710/юфБе 1070/°юБе130/■°К0%З@484,"PRESS [ENTER] TO CONTINUE";09 Е Т┤▓ Л(13)з7800?Р0c З" CASSETTE OR DISK ? (C/D)"0y*K$│ Т:ЕK$│"C"з8400К4ЕK$┤▓"D"з8100Щ>DN│1:Бе8500гHDN│м10╙RЮ:З" READY ";:ЕDN│м1зЗ"CASSETTE";:ДЗ"DISK";0ы\З" - PRESS [ENTER]"0ўfБж780:Р1pЙ" ENTER DATE (M/D/Y)";DA$1QzP1│ Ю(DA$,"/"):P2│ Ю(P1л1,DA$,"/"):P3│ Ю(P2л1,DA$,"/")1xДЕP1│0 ▒ P2│0 ▒ P1│P2 ▒ P3┤▓0 з 8801лОM│ Й( О(DA$,P1м1)):ЕM┤1 ▒ M▓12 ▒ M┤▓ Б(M) з8801чШT$│"":АI│1е З(DA$):Е Р(DA$,I,1)┤▓" " зT$│T$л Р(DA$,I,1)1ЎвЛ:DA$│T$:Р2!мЗ" DATE ";DA$;" NOT FOUND":Бж770:Р2H╢P1│ Ю(DA$,"/"):P2│ Ю(P1л1,DA$,"/")2e└DY$│ Р(DA$,P1л1,P2мP1м1)2y╩M$│ О(DA$,P1м1)2У╘Y$│ П(DA$, З(DA$)мP2)2д▐DY│ Й(DY$):Р2╨шDA$│"":DA$│M$л"/"л И(DY)л"/"лY$:Бж920:Р2┌ЄБж9503№M│ Й(M$):Y│ Й(Y$):ЕM│2 ░ Yо4│ Б(Yо4) з MN(2)│29 :Д MN(2)│283/ЕDYл1▓MN(M) з7103;DY│DYл13FБж10003R$Ю:Бе6303\.Бж9503l8ЕDYм1┤1з7103ЗBDY│DYм1:Бж1000:Ю:Бе6303лLЗ" SCREEN OR PRINTER ? (S/P)"3┬VK$│ Т:ЕK$│"S"з11403╘`ЕK$┤▓"P"з11103хjDN│м2:Бе11503юtDN│03Ў~Ю:Ро4│ Б(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ▀&':ГCOPYRIGHT (C) T&D SOFTWARE 1983&3 Ю:Х2000&?МF$(12)&lЗд6)"CASSETTE FILE INDEX":Зд6) б(19,"-")'S(З" THIS PROGRAM WILL ALLOW YOU TO CREATE A DIRECTORY FOR YOUR PROGRAMS. THE DIRECTORY IS THEN SAVED AT THE BEGINNING OF THE TAPE. TO LATER LOAD THE DIRECT- ORY, USE CLOADM. THE DIRECTORY WILL THEN APPEAR ON THE SCREEN."(2З" YOU MAY HAVE 12 FILES PER DIRECTORY. THE FILENAMES MAY BE UP TO 28 CHARACTERS LONG TO AL- LOW OTHER INFORMATION SUCH AS COMMENTS, TAPE POSITION, ETC. TOBE INCLUDED IN THE DIRECTORY.""(@FЗ@484,"PRESS [ENTER] TO CONTINUE";(SKЕ Т┤▓ Л(13)з75(лMЮ:З" A CASSETTE NAME AND DATE OF CREATION MAY ALSO BE INCLUDED INTHE DIRECTORY."(╥NЗ@484,"PRESS [ENTER] TO CONTINUE";(хOЕ Т┤▓ Л(13)з79(ыZЮ))dЗд7)"HOW MANY FILES";:ЙNF:ЕNF┤1 ▒ NF▓12 ▒ NF┤▓ Б(NF) з100)ZnЗд4)"CASSETTE NAME ? ";:╗ЙCN$:CN$│ О(CN$,10))РxЗ"CREATION DATE ? (M/D/Y) ";:╗ЙCD$:CD$│ О(CD$,10))ЬВАI│1еNF)╨МЗ"ENTER FILENAME #";I:З"-> ";:╗ЙFS$:ЕFS$│""з140)хЦF$(I)│ О(FS$,28))ыаЛ*кЮ:З" READY CASSETTE - PRESS [ENTER]"*(┤Е Т┤▓ Л(13)з180*.╛Ю*E╚З@480,"NAME:";CN$;*\╥З@496,"DATE:";CD$;*Ъ▄АI│1еNF:З@(Iм1)н32л96, П( И(I), З( И(I))м1);". ";F$(I);:Л*╗цШM"TAPE DIR",1120,1535,33040*╪ыЮ:Зд8)"DIRECTORY SAVED."*▐ЁК,28))ыаЛ*кЮ:З" READY CASS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Э&'В COPYRIGHT (C) T&D SOFTWARE 1983&6В PACKER&@└1:╚0&RЮ0:Х500,13500&oАI│0е127:НD:Т14000лI,D:Л&▄Ж225,163,226,209,128,128,193,211,179,226,163,195,178,161,128,209,128,128,128,241,227,147,193,195,227,128'YЖ130,145,163,131,128,128,149,131,155,133,128,128,197,128,128,234,234,128,128,245,147,200,145,211,243,213,211,147,128,245'╩Ж128,128,250,245,211,215,128,128,181,147,231,245,179,147,245,227,131,234,155,243,130,165,128,217,128,128,128(Г Ж129,243,135,128,213,128,128,138,149,128,233,128,128,131,179,147,163,211,227,163,131,147,211,163,211,227,211,163,131,147,227,211,147,163,147,211,163,131,147,227,147,227,131,211,227(л ╣ Г0│14150:АI│14150е14167:НD:ТI,D:Л(э Ж142,54,176,16,142,4,0,166,128,167,160,16,140,4,128,38,246,57)% U│ Г0(0):╔"O2T100L10V31ABCDGFEBDGEAV15ABCDGFEBDGEA")M ╣ Г1│14200:АI│14200е14233:НD:ТI,D:Л)╩Ж142,4,0,166,132,132,143,183,58,152,166,132,132,112,139,16,132,112,77,38,2,139,16,186,58,152,167,128,140,4,128,38,226,57)Є╣ Г2│14300:АI│14300е14325:НD:ТI,D:Л*SЖ142,4,0,166,132,132,240,183,58,152,166,132,67,132,15,186,58,152,167,128,140,4,128,38,234,57*{╣ Г3│14400:АI│14400е14462:НD:ТI,D:Л+Ж142,4,55,16,142,58,153,166,132,167,160,48,136,32,16,140,58,167,38,243,142,4,55,198,15,166,31,167,132,48,31,90,38,247,48,136,47,140,5,247,38,237+^Ж142,4,40,16,142,58,153,166,160,167,132,48,136,32,16,140,58,167,38,243,57+Ж╣ Г4│14500:АI│14500е14560:НD:ТI,D:Л, Ж142,4,40,16,142,58,153,166,132,167,160,48,136,32,16,140,58,167,38,243,142,4,40,198,15,166,1,167,128,90,38,249,48,136,17,140,5,232,bЖ38,239,142,4,55,16,142,58,153,166,160,167,132,48,136,32,16,140,58,167,38,243,57,К╣ Г5│14600:АI│14600е14653:НD:ТI,D:Л-IЖ127,58,152,142,5,200,166,128,129,128,39,14,166,136,31,129,128,39,7,134,255,183,58,152,32,5,140,5,216,38,231,142,5,247,198,16,166,136,224,167,132,48,31,90,38,246,48,16,140,4,55,38,237,57-_З@140,"SCORING:";-аАI│1е8:З@137л32нI, б(2,127лIн16); б(10,128);:З═"###";Iн50;:Л-┬З@455,"BONUS BASE AT 100000";-цЗ@486,"PRESS ANY KEY TO START";-ЄАI│0е20- U│ Г1(0).!╔"V10T255L255O4"л Л(64л Д(7)).0 Е Т┤▓""з34.D!Л:U│ Г2(0):Бе29.f"S│0:EF│0:B│3:OJ│8:SF│0:╔"V31".Р#Ю0:АI│1063е1535й32:ТI,134:ТIл17,137:Л.╠$З@3,"SCORE: ";:З═"#######";S;:З@19,"BASES: ";:З═"##";B;.┘%R│1:L│10/&B$│"":АI│1е8:B$│B$л б(2,127лIн16):Л/'АI│0е4:З@40лIн32,B$;:Л/V(Т1512лOJ,143:АTD│1е800:Л:╔"T5L10V31O2ABO3DFBO2DCL255"/l)Т1512лOJ,143:DC│0/u*SC│0/Б+АT1│1еL/а,J│ Н(0):J│ Б(Jо4):ЕOJ│Jз46/┬-Т1512лOJ,128:Т1512лJ,143:OJ│J/╧.ЕSF│1з490/Е Ж(65280)│126▒ Ж(65280)│254зSF│1:P│1512лOJ:╔"O5T200A":Бе4900Бе56051P│Pм32:ЕP┤1056зSF│0:Бе560R2A│ Ж(P):ТP,191:ЕA│128з550Л3S│Sл( Б((Aм128)о16)л1)н50:╔"V31T255O3ADFEV15ADFEV31"0к4ЕS▓│100000░EF│0зEF│1:B│Bл10ц5З@3,"SCORE: ";:З═"#######";S;:З@19,"BASES: ";:З═"##";B;0я6SF│00·7ТP,12818Л:Е Д(100)│10зR│мR199АTD│1е Д(3):ЕR▓0зU│ Г3(0):ДU│ Г4(0)1]:Л:╔"T50O2AC":SC│SCл1:ЕSC┤7лLз431б;U│ Г5(0):З@40,B$;:╔"T10O1AC":З@488, б(16,128);:Е Ж(15000)┤▓0з631├<Т1512лOJ,143:DC│DCл1:ЕDC┤5з421╓=L│Lм1:ЕL│0зL│11▀>Бе411·?╔"O1L10T5ABBCADFGL255"2@B│Bм12AЕB┤0з682VBЗ@19,"BASES: ";:З═"##";B;:З@488, б(16,128);:Т1512лOJ,143:ЕL┤3зL│32_CБе402vDЗ@268,"GAME OVER";2ЗEАTD│0е3000:Л2ЬFЮ0:U│ Г0(0):Бе25631├<Т1512лOJ,143:DC│DCл1:ЕDC┤5з421╓=L│Lм1:ЕL│0зL│11▀>Бе411·?╔"O1L10T5ABBCADFGL255"2@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ы&':ГCOPYRIGHT (C) T&D SOFTWARE 1983&C :ГEDWIN P. MEINERS, III&` :Г9350 COUNTRY CREEK #30&{:ГHOUSTON, TEXAS 77036&ЕБе232&╞D$│D$(K):D$(K)│D$(J):D$(J)│D$:A│A(K):A(K)│A(J):A(J)│A:N│м1:Р&рХ3900:МA(150),D$(150)'4Ю:З б(32,249);:A$│ Л(249)л б(30," ")л Л(249):З Л(249) Л(239)д30) Л(239) Л(249);'tЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;:ЗA$;'▓З Л(249) Л(239)д30) Л(239) Л(249);:З б(31,249);:Т1535,249( З@40,"WELCOME TO THE";:З@69,"COLOR ADDING MACHINE";:З@141,"MENU";:З@167, б(16,"-");(kЗ@199,"1 CALCULATE";:З@231,"2 PRINT";:З@263,"3 SAVE";:З@295,"4 LOAD";:З@327,"5 VIEW / EDIT";(П З@359,"6 SORT";:З@391,"7 EXIT";)"KEY$│ Т:ЕKEY$│""з34:ДЕKEY$│"5"з48:ДЕKEY$│"4"з38:ДЕKEY$│"3"з46:ДЕKEY$│"1"з76:ДЕKEY$│"2"з184:ДЕKEY$│"6"з202:ДЕKEY$│"7"зЮ:К:Бе22)=$а128,1:З@455,"TRY ANOTHER KEY !!";:Бе34)Т&ЕL│0з40:ДЗ@308,"";:Й"SURE??";A$:Т1343,249:Е О(A$,1)┤▓"Y"зЗ@308," ";:Бе34*(T│0:I│0:Ю:З"FILE INPUT INFO":Бж100:З@384," SEARCH FOR FILE";:Бж104:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж104:Е М(DV)з44:ДЙ#DV,C$*{*Е М(DV)│м1▒I│150з44:ДI│Iл1:Й#DV,D$(I):Й#DV,Z$:A(I)│ Й(Z$):T│TлA(I):L│I:З@448," AT LINE"L;:Бе42*Й,Ъ#DV:Бе22+.Ю:З"FILE OUTPUT INFO":Бж100:З@384," WRITING FILE";:Бж104:Щ"O",DV,F$:З#DV,C$:АI│1еL:З#DV,D$(I):З#DV,A(I):З@448," AT LINE"I"OF"L;:Л:Ъ#DV:Бе22+:0ЕL│0зЗ@340,"...EMPTY!";:Бе34+\2SC│0:I│0:Ю:З@480,"TITLE: "C$;+м4Бж108:I│Iл1:З@P,"";:З═"###";I;:З" "D$(I)" ";:З═"########.##-";A(I);:SC│SCл1,B6ЕSC┤14░I┤▓L з52:ДЗ@Pл32,"";:╗Й"SEQ#, OR ^ >";A$:Е Й(A$)┤▓0з56:ДЕA$│"^"з22:ДЕI▓│L зЗ@Pл32, б(30,32);:Бе80:ДЮ:SC│0:З@480,"TITLE: "C$;:Бе52,Н8J│ Й(A$):ЕJ┤1▒J▓L зI│Iм1:Бе72:ДЮ:З@480,"PRESS FOR NO CHANGE.";,╔:З@0,"";:З═"###";J;:З" "D$(J)" ";:З═"########.##-";A(J);-<З═"###";J;:З"> DESCRIPTION?";:CU│36:Бж134:Е О(D$,1)┤▓ Л(95)зD$(J)│D$-9>З@35, б(28,32);:З@35," "D$(J)" ";-@З@50," > AMOUNT?";:CU│52:Бж114:З@51," ";:Е П(A$,1)│"-"зS│м1:ДS│1-╕BЕ О(A$,1)│ Л(13)з68:ДT│TмA(J)лSн Й(A$):A(J)│Sн Й(A$).DЗ═"########.##-";A(J);:I│Jм1:З@480,"PRESS ANY KEY ";.FЕ Т│""з70.2HЮ:SC│0:З@480,"TITLE: "C$;:Бе52.=J:ГCALC.ТLЕL│0з78:ДЗ@212,"";:Й"SURE??";A$:Т1247,249:Е О(A$,1)┤▓"Y"зЗ@212," ";:Бе34.╓NT│0:Ю:З@448,"";:╗Й"TITLE? >";C$:Ю:З@480,"TITLE: ";C$;:L│0:P│м32.ЇPP│Pл32:L│Lл1:ЕP▓448зP│448/0RN│0:З@P,"";:З═"###";L;:З"> DESCRIPTION?";:CU│Pл4:Бж134/zTЕ О(D$,1)│"_"з172:ДЕ О(D$,1)│"^"зБж156:Бе82:ДЕ О(D$,1)│"@"зБж164:Бе82/зVЕN зD$(L)│ б(15,32):З@Pл3, б(28,32):Бе92/┼XD$(L)│D$:З@Pл3, б(28,32);0ZЗ@Pл3," ";D$(L);" ";:З@Pл19,"> AMOUNT?";:CU│Pл20:Бж114:Е О(A$,1)│"^"зЗ@P:Бе820A\З@Pл19," ";:Е П(A$,1)│"-"зS│м1:ДS│10З^A(L)│Sн Й(A$):З═"########.##-";A(L);:ЕP▓│448зЗ@480:З"TITLE: ";C$;0Ф`T│TлA(L)0ЮbБе 800╪dЗ:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж1061&fЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":╗Й"PRESS WHEN READY ";A$:Ю0:Р1GhЗ" ";:ЕF$│""зР:ДЗ">"F$" ";:Р1ИjЗ:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л"/DAT":Р1бlP│SCн32:ЕP▓448зP│4481зnР1┤p:ГINKEY$1╔rA$│ б(12,32):I│01яtТ1024лCU,255:KEY$│ Т:ЕKEY$│""з1162 vЕKEY$│ Л(8)зБж150:Бе1162@xЕKEY$│ Л(21)░I▓0зБж150:Бе120 :Д ЕKEY$│ Л(21)з1162АzI│Iл1: Р(A$,I,1)│KEY$:ЕKEY$│"-"▒KEY$│"+"з Р(A$,12,1)│KEY$:Р2а|Е О(A$,1)│"^"▒KEY$│ Л(13)зР2╜~ЕKEY$▓│"0"░KEY$┤│"9"з1322╧АЕKEY$│"."з1322цВа128,1:I│Iм1:Бе1163 ДЗ@CU,KEY$;:ЕI│12зР:ДCU│CUл1:Бе1163!ЖD$│ б(15,32):I│03GИТ1024лCU,255:KEY$│ Т:ЕKEY$│""з1363cКЕKEY$│ Л(8)зБж152:Бе1363ШМЕKEY$│ Л(21)░I▓0зБж152:Бе140 :Д ЕKEY$│ Л(21)з1363╧ОI│Iл1: Р(D$,I,1)│KEY$:Е О(D$,1)│"@"▒ О(D$,1)│"^"зР4РЕ О(D$,1)▓│"0"░ О(D$,1)┤│"9"зN│м1:A$│ О(D$,12):Бе1324MТЕKEY$│ Л(13)░I▓1з Р(D$,I,1)│" ":Р:ДЕKEY$│ Л(13)з Р(D$,1,1)│"_":Р4sФЗ@CU,KEY$;:ЕI│15зР:ДCU│CUл1:Бе1364кЦЕI│0зР:Д Р(A$,I,1)│" ":I│Iм1:Т1024лCU,96:CU│CUм1:Р4сШЕI│0зР:Д Р(D$,I,1)│" ":I│Iм1:Т1024лCU,96:CU│CUм1:Р4щЪ:Г^5ЬL│Lм1:T│TмA(L):З@P, б(18,32);:P│Pм32:ЕP┤0зP│05(ЮЕL┤1зL│15=аЗ@P, б(32,32);:Р5Mв:ГSUB-TOTAL5МдЗ@P,"";:З" > SUB TOTAL ";:З═"$###,###,###.##-";T;:Бж1685╓жKEY$│ Т:ЕKEY$│""з166:ДЕKEY$┤▓" "за128,1:Бе166:ДЗ@P, б(32,32);:Бж180:Р6иЗ@480,">>PRESS SPACE TO CONTINUE<< ";:Р6к:ГTOTALIZE6HмЗ@P," TOTAL ";:З═"$###,###,###.##-";T;6aоЕP┤448зP│Pл32:ДЗ@4806Ж░L│Lм1:З@P,д16); б(16,252);:Бж1686─▓KEY$│ Т:ЕKEY$│""з178:ДЕKEY$┤▓" "за128,1:Бе178:ДБж180:Бе226ю┤З@480, б(31,32);:З@480,"TITLE: "C$;:Р6√╢:ГREPORT7А╕Ю:З"PRINTER SETUP":З:З" 1 ADJUST PAPER":З" 2 TURN PRINTER ON":З" 3 PUT PRINTER ONLINE":З:╗Й"PRESS WHEN READY ";A$:T│07Х║Ю0:Бж190:LC│LCм17■╝АX│1еL:LC│LCл1:Бж194:Л:З#м2:З#м2,д34);:З#м2,═"$###,###,###.##-";T:З#м2,д34) б(16,"="):З#м2:З#м2:Бе228y╛LC│8:З#м2:З#м2:З#м2:З#м2, б((80м З(C$))о2,32)C$:З#м2:З#м2,д11);"SEQ DESCRIPTION AMOUNTS TOTALS"8╣└З#м2,д11)"--- " б(15,"-")" " б(14,"-")" " б(15,"-"):Р8╩┬ЕLC▓60зБж1989L─З#м2,д11);:З#м2,═"###";X;:З#м2," "D$(X)" ";:З#м2,═"##,###,###.##-";A(X);:З#м2," ";:T│TлA(X):З#м2,═"###,###,###.##-";T:Р9f╞АI│0е5:З#м2:Л:Бж190:Р9q╚:ГSORT9╪╩ЕL│0зЗ@372,"...EMPTY!";:Бе34:ДЮ:З"SORT SETUP":З:З" 1 SORT ON DESCRIPTION":З" 2 SORT ON AMOUNT":З:╠З@160:З@160,"";:╗Й"SELECTION? >";KEY$:╬ЕKEY$│"1"зБж212:Бе22:4╨ЕKEY$│"2"зБж222:Бе22:U╥а128,1:З"TRY AGAIN !!":Бе204:j╘Ю0:B│1:S│Lм1:N│0:У╓АJ│B еS:K│Jл1:ЕD$(K)┤D$(J)зБж18:Л:ДЛ:й╪ЕN│0зР:ДB│Bл1:N│0:╓┌АK│S еB йм1:J│Kм1:ЕD$(K)┤D$(J)зБж18:Л:ДЛ:Є▄ЕN│0зР:ДS│Sм1:N│0:Бе214;▐Ю0:B│1:S│Lм1:N│0;.рАJ│B еS:K│Jл1:ЕA(K)┤A(J)зБж18:Л:ДЛ;DтЕN│0зР:ДB│Bл1:N│0;oфАK│S еB йм1:J│Kм1:ЕA(K)┤A(J)зБж18:Л:ДЛ;ЛцЕN│0зР:ДS│Sм1:N│0:Бе224;Ъш╚0:└1:Бе20Р:ДB│Bл1:N│0:╓┌АK│S еB йм1:J│Kм1:ЕD$(K)┤D$(J)зБж18:Л:ДЛ:Є▄ЕN│0зР:ДS│Sм1:N│0:Бе214;▐Ю0:B│1:S