esday,Wednesday,Thursday,Friday,SaturdayГ IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORaЖаPщ 8н(16м( З(ZST$)о2)), 72:З ZST$a╧аZЗ:З"Please record this information":З"and report the error to MECC."aщаdє: Т 32767,0: О"MENU"aяаnКb'├PЖ Monday,Tu                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                &╖ ▀О&2Оp┐

Ж&цАчаJ&∙О'ОА╠
АюБябГ
&ў╖ ▐я9╖ ▀~А╖ ▐я~╫╔╖ ▐я~ЙU╖ ▐╜q╖ ▀╜АR ъ▐я9F╞ 9SILEN EQU   *-KSI√0Нш! НН╞жАНZ&∙НЖ
ш:НЖЦЧе їНЖ  я  6809 MACRO ASSEMBLER      BY ANDREW PHELPS    (C) 1982 THE MICRO WORKS╪4@2tCoHжа╞@БL&TжачDп╢ ╢	Е'~pЖ┐╖ ╢ Д'~p └Ж╖ ╢ Д@&s└4tОqОГНОБОqН5t~p(╠
юБябГ
&ў94tОГОqНш5t9о─зKАцасА&#J&ў_оIжH&ж
Е&( ж
Е'жHоBцD2l5└оIжKц
0Ж]*│жH'O0М тоBjGжвзHБA'БB&щ Фт*.xщ
h
Ь
▐ Ё ю
є@ ш цDRxЦ ▄╞ЎО ╘ ╥╥╒BGBAB:BX%DЙDC%DЛDD6@├4tО)ЯХЖ■ЧoЖ╚ЧmЖ╜вВЖ╜вВЖ╜вВЖ╜вВ┴Ю║┐╞O╖┬Ж ╖├Н&╛╞0
┐╞z├&ё0И@┐╞Ж
╜вВ╢┬ЛБ└&╒o5t9Н 6}┴&О╚Н╢┬Б╜&oд9жДзд9О╚жДза0И  ╞жДзаза0И Z&Ї9╞ў─О╚╞hАFZ&·D╕└КА╖┼╜вВ╢┼╜вВz─&▐9dLIFUBOLR╞B:LRC╓BVLRD╒BSLV6PГMPD6HМMPS6HГMPU6@МMPX6PМMPY%DБMPUBCOM &ЯХЖ■ЧoЖ╚ЧmЖ╜вВЖ╜вВЖ╜вВЖ╜вВ┴Ю║┐╞O╖┬Ж ╖├Н&╛╞0
┐╞z├&ё0И@┐╞Ж
╜вВ╢┬ЛБ└&╒o5t9Н 6}┴&О╚Н╢┬Б╜&oд9жДзд9О╚жДза0И  ╞жДзаза0И Z&Ї9╞ў─О╚╞hАFZ&·D╕└КА╖┼╜вВ╢┼╜вВz─&▐9dLIFUBOLR╞B:LRC╓BVLRD╒BSLV6PГMPD6HМMPS6HГMPU6@МMPX6PМMPY%DБMP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ■ў                             ■ ё                             № №                             ∙  ?                            є  ┐                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      З  б(23,"*")/!ИрА ZY│72 е 108 й 9/4Иъщ 36,ZY: З "*"/HИЇщ 212,ZY: З "*"/ZИ■Л ZY: щ 52,81/uЙЗ "Number tried.....";/ЕЙЗ ═ "##";ZT/СЙщ 52,99/лЙ&З"Number correct...";/╗Й0З ═ "##";ZR/╓Й:щ 36,117: З  б(23,"*")/▀ЙDє: Р/■а(:ГERROR PROCESSING ROUTINE0Чв╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))16в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":є1sв0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERROR1Шв:щ 8н(16м( З(ZST$)о2)), 72:З ZST$1свDЗ:З"Please record this information":З"and report the error to MECC."1√вNє: Т 32767,0: О"MENU"2
вXКicker and replace the":З"diskette in the drive.":є1sв0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERROR1Шв:щ 8н(16м( З(ZST$)о2)), 72:З ZST$1свDЗ:З"Please record this information":З"and report the error to MECC."1√вNє: Т 32767,0: О"MENU"2
в                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             °                               Є                              чч■                             ╧є°                           Ё Я∙√                           ц>?№3                           яР  З                           я╟                              П                               ┐                               ┐                              ■?                              р                               я                               я                               ╧                               ▀                               Я                               ┐                               ┐                               ┐                               ┐                               Я                               ▀                               ▀                               ╧                               у                               ∙                               ¤                               с                               ╧                               Я                               ?                                       °                            у└Ё              
    ■        П ■            №╜    ■         ?  ч            √╜    ■       ■  є            √╜     ?       Ё   √            √╜ ч   Я       ч   √            √╜    ╧       ▀   √            √╜°╜   П       Я   °            √╜Ж~ ■?       ?   ■            √╝y ┐ ■       №   ■            √гў ▀ №       ¤    ■           √╧ я ∙       №                ° ┐ ў √       ¤                ╟■ √ ∙       ∙     ?       ° №?¤  № №       ├     ┐       х▀ у є   ■      ▀     ┐       ▌▀  ╧Ё┐ ╧      ▀     Яр  ▌▀°  ┐ў ▀ ў      ▀     ▀я   ў  ▌▀╟ ■ў я ў      ┐     ▀я   ў  ▌▐? ¤ ў ў ў      ?     ▀ь?э ў  ▌╤  є ў ∙ ё      ?     ▀э╣щ№7  ▌  я ў ■ ¤      ?     ▀ш?уНў  ╪   Я ў  ¤           э▌щw  З    ў  ┐№           э▌э7 ■?  №  ў  ▀■    ■     ь0mw ё   є  ў  ч     ■      я   ў П   я  ў  √ у    ■    №я   ў°   Я  ў  ¤ √         ∙ └╟      ў  ■ є     ?    у    ║?   №   ў   ч     ┐    П р
    √   р  ┐я     ▀    ┐ ╫   ў    ч        ╧я     ╧    ┐ ╫   ў    Я        ўф~є■ я    Я ╗   я   ■        √ёpЁ№ я    ▀ ╗   ▀   ■         ї 7Ў∙ у     }   ▀             ў ЗЎ3 √     }   ┐  °     Ё   ў  ўЗ №   ■■■    ■■     ■?  ў  ў  ■ ■~ ■■    Б ■      Я  ў  ў    № ¤  ■ Ё ■      ▀  ў  ў   ? ¤ь ¤  ¤№  ■      ╧  ў  ў   Я¤с √ ┐ ¤   ■        ў  ў   ╚▀¤  √°    ■№■ °o  ў  ў   у▀¤  Ў┐ √   р wЮ   я  ў  ў    ▀¤  ё ┐ √ уЁ▐ o■Ь8  ў  ў    ▀¤  ў ┐ √№ў ▐■╛=╕0╧▀ ў  ў    ▀¤  ў ┐ √у√ў ▐ w╛}┐Зф! ў  ў    ▀¤  ўу┐р√я√ў ▐ w╛?Яу■?ў  ў    ▀¤  ў┐О;я√ў ▐ w╛╠ ?┘ ▀ў  ў    ▀¤  ў{┐┐╗я√ў ▐■ю>╝ яў  ў    ▀¤  ў{┐╜Гя√ў ▐    № ╛яў  ў    ▀¤  ў{╛?√я√ў ▐    ∙ ўў  ў    ▀¤  ў{╛№я√ў ▐    є■ ?√ў  ў    ▀¤  ў{┐w■o√ў ▐    є■ ┐√ў  ў    ▀¤  ў{┐┐o√ў ▐    є■ Я√ў  ў    ▀¤  ў{░ c√ў ▐    √№ ▀∙ў  ў    ▀¤  ў{╖яЎ|;ў ▐    р■  √ў  ў    ▀¤  ў{╖ ■ ├Ё ▐Ёy  Ъ>  √ў  ў    ▀¤  ў{│ ■   ▐чє  ╗╛  √ў  ў    ▀¤  ў{╗■■?  №яў  {▀ ўў  ў    ▀¤  ў{╗┐я┐   ■чў ■{╧┐ яў  ў    ▀№  ў{╗  ┐   ■ЁpсЗ▀┐ яў  ў    ▀■ ў{│  ?   ■ 6l│┐┐▀ ▀ў  ў     Я є{зў■   ■ ╖l╗Я?у■?ў  ў   °   №;п ~    ■ 7l│р №! ў  ў   √     ├г №    ■ЁwaЗ√  ▀ ў  ў         № ∙    ■   ┐     ў  ў          №?у?   ■   ┐     ў  ў           Яяч   ■   ?     ў  ў           ▀╧°  ■  ■      ў  ў              П  ■         ў  ў              ё  ■         ў  ў              ■? ■         ў  ў               ╟ ■         ў  ў               ° ■         ў  ў                ■         ў  ў                с■         ў  ў                ■>         ў  ў                 ╞         ў  ў                 °  ў                              ў                              ў                              ў                            etimes money"Y00З "spent on advertising lowers"YA:З "profits."YGDєYoNЗ:З "How many signs did you use on"YРXщ 0,108:З "your best day? ";YиbFI$│"12S":LE$│"0-9"YоlЁY┤qЗY├vBD│ Й(IN$)Z
АЕ BD┤▓BH ░ BT│0 з З "Incorrect.  Try again.":BT│1:Бе 4440Z+КЕ BD│BH з ъ:З "That's right!":Бе 4590ZPФЗ "On your best day you used";BHZ_ЮЗ "signs."ZeюєZkўРZ~':ГMAIN PROGRAMZН'jPLEFT│1000ZУ'tьZЮ'~щ 0,81Z─'ИЗ "What name do you want to give"Zх'ТЗ:З "to your plant store? ";['ЬFI$│"1:A":Ё  :Г THE         COLUN IS A TEN[%'жNAME$│IN$л""[0'║Бж 500[F'─DAY│0:TPROFIT│.09[R'╬Бж 3000[з'╪Е PRICE┤.09 з CONSTANT│(TPROFITмPRICE)оPRICEл125 :Д CONSTANT│10125о(PRICEн100)п2[╦'тDAY│DAYл1 :ГBEGIN PROGRAM LOOP [ь'чЕ DAY▓3 ░ FLAG(2)│0 з Бж 800\'ьЕ DAY▓1 з Бж 1000 :ГMAKE SIGNS?\,'ЎSEXP(DAY)│.25нSIGN(DAY)\h(PSOLD(DAY)│ Б(CONSTANTлCONSTANTн(1м Ч(мSIGN(DAY)н.15)))\Ф(Е PLEFTмPSOLD(DAY)┤0 з PSOLD(DAY)│PLEFT\╡(
INCOME(DAY)│PSOLD(DAY)нPRICE\╨(PLEFT│PLEFTмPSOLD(DAY)\ї(POFIT(DAY)│INCOME(DAY)мSEXP(DAY)](Е DAY│1 з Бж 700 ]( Бж 800]3(!Е FLAG(2)┤▓0 ▒ DAY▓2 з є]b((Е FLAG(2)│1 ░ SI(DAY)┤▓SI(DAYм1) з Бж 1300]А(PЕ DAY│3 ▒ DAY│5 з Бж 3300]┤(ZЕ DAY│4 з HO│PR:Бж 3600:Е  О(IN$,1)│"Y" з 10190]╚(dЕ DAY┤5 з 10210]╘(nБж 3800]р(xБж 4000]■y:ГENDING ROUTINE 08/15/83^y"╚ 4,1: ф 3584: ї0^$y,т 0: с 0: ч^1y6┴ 0,1: ь^<y;щ 0,91^`y@З "Do you want to try again? ";^АyJIN$│"": FI$│"13S":LE$│"A-Z"^РyTТ 32625,255^вy^Ё: IN$│IN$л""^ёycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31035_!yhЕ  О(IN$,1)│"Y" з Бж 33000:О "SELPLANT/INS"_/yrь: щ 0,91_Qy|З "Returning to main menu..."_byЖО "MENU.BAS"_БАш:Г MOMENT ROUTINE 08/09/83_ПАЄт0: с0: ч_ЯА№х: ┴ 0,1: ь_кБщ 0,90_╟БЗ "One moment please..."_═БР_ьа(:ГERROR PROCESSING ROUTINE`Еа2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))a$а<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єaaаF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORaЖаPщ 8н(16м( З(ZST$)о2)), 72:З ZST$a╧аZЗ:З"Please record this information":З"and report the error to MECC."aщаdє: Т 32767,0: О"MENU"aяаnКb'├PЖ Monday,Tuce",96,"Glasses",105," sold",117,"Income",130,"Expenses",143,"Profit",156,Assets,80,ENDJ~├ZЖ 21,35,58,72,86,87,110,124,138,152nd report the error to MECC."I╕аdє: Т 32767,0: О"MENU"I╛аnКJV├PЖ 18,"Stand",37,"Glasses",48," made",59,"Signs made",70,"Pri                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 each"GJБЗ:З "day so you can find the best":З:З"number of signs to make."GhГFLAG(1)│1:щ 0,117:Бе 1165GsИщ 0,99GЩНЗ "How many advertising signs do"G╢ТЗ:З"you want to make? ";G╬ЬFI$│"12S":LE$│"0-9"G╘жЁGшлSI(DAY)│ Й(IN$)GюпРH:Г DAYLY SUMMARYHс 7HьH#щ 0,9H3(X│SI(DAY)мSI(DAYм1)HK2З "Today you made";HXFЗ  В(X);H|PЕ X▓0 з З "more"; :Д З "fewer";HЮZЗ " sign";:Е X▓1 з З "s" :Д ЗH═dЗ"than ";DAY$(╠F(DAYм1));".  Compared to "HЁnЗ "yesterday, the class spent"IxX│SE(DAY)мSE(DAYм1)I2{Е X│0 з З " the save amount";:Бе 1430Ib}X$│"$"л б( Б( Щ( В(X))о Щ(10))л1,"#")л".##"ItВЗ ═ X$; В(X);IЩМЕ X┤0 з З " less"; :Д З " more";I│ЦЗ" on signs and your"I├аЗ"income ";I█кY│IN(DAY)мIN(DAYм1)JпЕ Y│0 з З "stayed the same.":Бе 1510J#┤Е Y▓0 з З "in"; :Д З "de";J8╛З "creased by ";Je╚X$│"$"л б( З( И( В( Б(Y))))м1,"#")л".##"Jw╥З ═ X$; В(Y);JБ▄З "."JЦцщ 0,89:З "Did ";J╟щЕ SI(DAY)▓SI(DAYм1) з З "more"; :Д З "less";JхыЗ " advertising increase"J№ЁЗ"your profits? ";K·FI$│"13S":LE$│"A-Z"K$щ 112,105:ЁKxЕ  О(IN$,1)┤▓"N" ░  О(IN$,1)┤▓"Y" з щ 0,123:З "Please enter YES or NO.":Бе 1540KЖщ 0,123:ъK╤Е (X┤│Y ░  О(IN$,1)│"N") ▒ (X│▓Y ░  О(IN$,1)│"Y") з З "Inc"; :Д З "C";Kф"З "orrect.  ";L,Е SI(DAY)▓SI(DAYм1) з X$│"In" :Д X$│"De"L$6З X$;"creased"L`@Е POFITS(DAY)▓POFITS(DAYм1) з X$│"higher" :Д X$│"lower"LАJЗ "advertising resulted in"LЭTЗ X$;" profits for you."LгоєLл│с 0L▒╖РL╤╕:ГWHAT DO YOU WANT TO SPENDL█┬┴ 0,0Lс╠ьLь╓ф 9728LЎр╚ 3,5L¤ъї0MЇ┴ 3,1M∙т 255M(■щ 91,167:З "CENTS"M2┴ 0,2M=щ 0,95MI&щ 0,113Mi0З "What":щ 32,113:З "price"Mu:щ 0,131MЕDЗ "are you"MСNщ 0,149MвXЗ "going to"Mоbщ 0,167M╛lЗ "charge?"M╠qт 0:┴ 3,1M┘vщ 63,167MёАFI$│"12S":LE$│"0-9"MўКЁNФPRICE│ Й(IN$л"")о100N%ЩЕ PRICE│0 з 3190N0Юф 3584N8и╚ 4N?▓ї0NI╝┴ 0,1NO╞ьNUуРNsф:ГSALES REPORT AND TOTALSNyюьNЕ°щ 32,18N▒
Е DAY│5 з З " Final "; :Д З "Midweek ";N╦
З "sales report for "Nє
щ  Б((32м З(NAME$))о2)н8,36:З NAME$O
щ 35,54:З "After";DAY;"days of selling"O7
 ╗ (0,68)м(255,68),╜OT
*щ 0,81:З "Total Income";Od
>INCOME(0)│0OЦ
HА L│1 е DAY:INCOME(0)│INCOME(0)лINCOME(L):Л LOи
RЗ  б(11,".");O─
\З ═"$$###.##";INCOME(0)Oш
fщ 0,99:З "Total Sign Expenses";Oў
pSIEXP(0)│0P%
zА L│1 е DAY:SIEXP(0)│SIEXP(0)лSEXP(L):Л LP6
ДЗ  б(4,".");PQ
ОЗ ═"$$###.##";SIEXP(0)Pz
╩щ 0,117:З "Plants Left............";PУ
╘З ═ "########";PLEFTPЩ
▐єPЯРP└:ГDO YOU WANT TO HAVE A SALEP╞ьP╤$щ 0,36Q.З "Your class has been charging";PRICEн100Q/8щ 0,54:З"cents for each plant.  There are"Q`BЗ  Л(8);PLEFT;"plants left to sell.  Do you"QМLщ 0,90:З "want to lower your price and"Q╖VЗ:З "have a sale on Friday, the final"Q╬`щ 0,126:З "day? ";QцjFI$│"13S":LE$│"A-Z"QьtЁR~Е  О(IN$л"",1)│"Y" ▒  О(IN$л"",1)│"N" з 3799R?ИЗ:З "Please enter YES or NO."RKТБе 3680RQ╫РRc╪:ГEND OF SALERiтьR~ьЕ PLEFT│0 з 3880RЙЎщ 0,27R┤З "Your class had";PLEFT;"plants left"R┌
З:З"at the end of the week.  You"S
З:З"could have earned more money."S
Бе 3910S(щ 0,36S?2З "Congratulations!  You sold all"SY<З:З "of your plants."SFЗ:З "To see how your advertising"SкPЗ:З "affected plant sales, let's look"S╤ZЗ "at a summary of your sales for"SхdЗ:З "the week."SыnєSёЯРTа:ГSUMMARY SCREENTкьT4┤З "  DAY  PRICE SIGNS PLANTS DAILY"T^╛З "                    SOLD PROFITS";Tv╚╗ (0,23)м(255,23),╜TД╥А L│1 е 5Tб▄щ 0,18лLн9:З DAY$(╠F(L))T▒цщ 80,18лLн9T▀ЁЕ L│5 з З ═ "##";PRн100 :Д З ═"##";HOн100T■·щ 120,18лLн9:З ═"##";SI(L)U!щ 168,18лLн9:З ═"###";PSOLD(L)UFщ 192,18лLн9:З ═"$$###.##";PO(L)U\PO(0)│PO(0)лPO(L)UШЕ PO(L)│▓BR з BR│PO(L):BC│BCл1:BR$│DAY$(╠F(L)):BH│SI(L)UаЛ LU║"╗ (208,73)м(255,73),╜U╟,щ 192,76Uу6З ═ "$$###.##";POFIT(0)UЎ;х 0,90,255,191V2@щ 16,99:З "Sum of Daily Profits ";:З ═ "$$###.##";PO(0)VbJщ 0,108:З "- Fixed Expenses        -$30.00"V}T╗ (16,117)м(172,117),╜VЩ^╗ (192,117)м(247,117),╜V┘hщ 16,119:З "Total Profit         ";:З ═ "$$###.##";PO(0)м30V▀rєW|З:З "Does advertising usually help"W+Жщ 0,108:З "sell more plants? ";WCРFI$│"13S":LE$│"A-Z"WIЪЁWOдЗWЫоЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З "Please enter YES or NO.":Бе 4230W─╕Е  О(IN$,1)│"Y" з З "C"; :Д З "Inc";Wу┬З "orrect.  In most cases"X╠З "advertising helps sell more"X╓З "plants."XрєXFъЗ:З "Are profits always higher with"XjЇщ 0,108:З "more advertising? ";Xp■ЁXvЗX┬Е  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З "Please enter YES or NO.":Бе 4340XыЕ  О(IN$,1)│"Y" з З "Inc"; :Д З "C";Y&З "orrect.  Som	`ХА	`ХА	`ХА%`ХА%`ХА%АХА%АХА%АХАХАХАЦХАЦХАЦХАЦХАЦХАЦкккккккккккккХАкVUUUUUUUUUUUUUХккаЦVUUUUUUUUUUUUUХХUАХЩUUUUUUUUUUUUUХХUАХЩUUUUUUUUUUUUUХХUАХeUUUUUUUUUUUUUХХUАХUUUUUUUUUUUUUUЪUUАХUUUUUUUUUUUUUUeUUАХUUUUUUUUUUUUUUUUUАХUUUUUUUUUUUUUUUUUАХUUUUUUUUUUUUUUUUUАХUUUUUUUUUUUUUUUUUАХUUUUUUUUUUUUUUUUUАХUUUUUUUUUUUUUUUUVАХUUUUUUUUUUUUUUUUVХUUUUUUUUUUUUUUUUVХUUUUUUUUUUUUUUUUVХUUUUUUUUUUUUUUUUVХUUUUUUUUUUUUUUUUVеUUUUUUUUUUUUUUUUV	UUUUUUUUUUUUUUUUV	UUUUUUUUUUUUUUUUV	UUUU]uUUUUUUUUUUV	UUUU]uUUUUUUUUUUV	UUUU_їUUUUUUUUUUV	UUUU¤UUUUUUUUUUV	UUUU¤UUUUUUUUUUV	UUUU¤UUUUUUUUUUV	UUUU¤UUUUUUUUUUV	UUUU¤UUUUUUUUUUV	UeUU¤UUUUUeUUUUV	UеUU_їUUUUUeUUUUV	UХUUїUUUUUeХUUUVИ	UХUU╒UUUUUiХUUUVИ	UХUU ╒UUUUUYХUUUVИ(	UЩUW ╒UUUUUYХUUUVи"
UйUW ╒UUUUUYХUUUVАВ
UеUW ╒UUUUUYХUUUVи кккакккп ъкккккккккккккк*кккк Ё╧ Ё  №? №?? №<? №Ё? №Ё? №└  №  №  ■<  ■<  ■ <  ·к<  ·А<  ъка?  └*ка?  ?  № Ё └< 0 IF DAY<5 THEN 12000
11010 GOSUB 1600
11020 CLWIN
11030 IF PR(BP)=CO THEN GOSUB 1500:GOTO 12010
11040 PC 0,36:PRINT RIGHT$(STR$(PR(BP)),LEN(STR$(PR(BP)))-1);" is correct.  However, there"
11050 PRINT:PRINT "is a better price."
11055 IF DAY=12 THEN IN$="N":GOTO 11110
11060 PRINT:PRINT:PRINT "Do you want to sell apples for a"
11070 PRINT "another day to try to find the"
11080 PC 0,117:PRINT "best price? ";
11090 FI$="13A":SIMPUT
11100 IF LEFT$(IN$+"",1)<>"Y" AND LEFT$(IN$+"",1)<>"N" THEN PRINT:PRINT "Please  &0
:Г PROGRAM NAME:SELL LEMONADE INSTRUCTIONS&K:Г COPYRIGHT MECC 1983&g:Г LAST UPDATE:04/13/84&v:Г AUTHOR:&Ч:Г PROGRAMMER:CHAD C. COOPER&╡:Г DISK NAME:MARKET PLACE&╓:Г ENVIROMENT:COLOR COMPUTER':Г FILES USED: LSTAND/PIC AND MED FONT/BIN'
:Г DECLARATIONS'*Х 1000,26500';╙M"MED FONT"'Iу 2,26500'sЄ 26507,27700:Г PROPORTIONALITY TABLE'}Бе 35'З!Бе 50'Х#└ 8:Бе 33'л2:Г INITIALIZATION'╖3Ў 41000'┬<IN$│""'▄A╙M"LSTAND/PIC",&H1800'фF╚ 4'ъPю'ЇZ┴ 0,1'·dь(
nї0(╟Бе 10000(.L:ГDO YOU WANT INSTRUCTIONS?(9Vф 9728(C`╚ 3,5(Jjї0(Tt┴ 2,0(\~ш 2(xИщ 0,148:З "Do you want"(ЧТщ 0,158:З "instructions?";(│Ьш 1:┴ 0,2:щ 60,158:З"";(╦░FI$│"13S":LE$│"A-Z"(╤║Ё).─Е  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,177:ш 2:┴ 2,0:З"Please enter YES or NO.":Бе 1170)9╬ф 3584)A╪╚ 4)Hтї0)Rь┴ 0,1)XЎь)^Р)q╨:ГINSTRUCTIONS)w┌ь)В▀щ 0,18)ЮфЗ "           LEMONADE")йющ 0,54)▒єс 4)┘°З "You are going to run a lemonade") З "stand in a little town called"*%З "'Lemonsville.'  You will make"*LЗ "decisions similar to those you"*q З "would make in running a real"*Й*З "lemonade stand."*П4є*Щ9щ 0,0*╠>З "Each day, you will have to":с 13:З"decide:"*╘Cс 4*■HЗ "  * How many glasses of lemonade";+RЗ "     to make;"+;\З "  * How many advertising signs"+bfЗ "     to make at 15 cents each;"+ЕpЗ "  * How much to charge for"+Оuс 13+кzЗ "     your lemonade."+▓Дс 4+╓ОЗ "Try to manage your lemonade"+√ШЗ "stand as well as possible so",вЗ "that you make the greatest",.зЗ "profit.",4мє,:√Р,M':ГMAIN PROGRAM,Y'Бж 1100,u'BЕ  О(IN$,1)│"N" з 10070,Б'LБж 2000,О'VБж 33000,Ы'`Бе 10100,и'jБе 10110,╣'t└ 4:Бе 10090,╬'~О "SELLEMON/CCC",╘u/К,Єy:ГENDING ROUTINE 08/15/83-y"ш 1:╚ 4,1: ф 3584: ї0-y,т 0: с 0: ч-)y6┴ 0,1: ь-4y;щ 0,91-Xy@З "Do you want to try again? ";-xyJIN$│"": FI$│"13S":LE$│"A-Z"-ИyTТ 32625,255-Ъy^Ё: IN$│IN$л""-щycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31035.
yhЕ  О(IN$,1)│"Y" з Бж 33000:О.yrь: щ 0,91.:y|З "Returning to main menu...".KyЖО "MENU.BAS".jАш:Г MOMENT ROUTINE 08/09/83.xАЄт0: с0: ч.ИА№х: ┴ 0,1: ь.УБщ 0,90.░БЗ "One moment please...".╢БР.╬И╕:Г SCORE1  08/02/83.уИ┬х 0,0,255,191: ч.ЁИ╠┴ 0,1: ь/И╓щ 36,63 : 
*А*АЦА%АV%АV%АV%А	X%А	X%А	X%А%X%А%`
ки%АкккккккккккйUZкккА
UUUUUUUUUUUUUUUUUййUUUUUUUUUUUUUUUUZ	UUUUUUUUUUUUUUUUZ)UUUUVекYUХUUUUUUXеUUUUYUХYUХUUUUUUXХUUUUYUХYUХUUUUUUX*UUUUUYUХYUХUUUUUUhеUUUUUVХйYUХUUUUUU`%UUUUUUeХYUХUUUUUU`*UUUUUUeХYUХUUUUUU`UUUUUUeХYUХUUUUUjаUUUUUZХкZекUUUUUаUUUUUUUUUUUUUUUUА
UUUUUUUUUUUUUUUUА	UUUUUUUUUUUUUUUUайUUYUкYYZVVVХйZеU`
ХUUYUХZieЦЦYeЦYUUh)UUUYUХYЩeЦfYeЦYUUX%UUUYUХYYeЦZYeЦYUUX%UUUYUйYYeЦVZеЦZХUZ%UUUYUХYYeЦVYeЦYUUV)UUUYUХYYeЦVYeЦYUUV	UUUYUХYYeЦVYeЦYUUVА
UUUZекYYZVVYeйZеUUаUUUUUUUUUUUUUUUUUU`UUUUUUUUUUUUUUUUUUhUUUUUUUUUVккХUUUUUZUUUUUUUUккеUUUUZи
UUUUUUUкА*кккки	UZкккккХА*киVХА	ZХА	XХА	`ХА	`ХА	`ХА%`ХА%АХА%АХА%АХА%АХАЦХАЦХАЦХАЦХАVХАZХАXХАXХАXХА	XХАЗ(ZST$)о2)), 72:З ZST$G^аZЗ:З"Please record this information":З"and report the error to MECC."Gxаdє: Т 32767,0: О"MENU"G~аnКicker and replace the":З"diskette in the drive.":єFЁаF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORGаPщ 8н(16м( ke to make signs to"06З "advertise your business? ";0NFI$│"13A":LE$│"A-Z"0\щ 200,1170m$Ё:YN$│IN$л""0┴.Е  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,135:З "Please enter YES or NO.":Бе 10500▄8Е  О(IN$,1)│"N" з 11990тBь1Lщ (255м( З(DAY$(╠F(DAY))))н8)о2,91VЗ DAY$(╠F(DAY))1/[Е DAY▓2 з 11501:`щ 0,361`jЗ "Each sign will cost 25 cents."1ЛtЗ:З "Signs will be posted for one day"1Ц~щ 0,811╝ИЗ "How many advertising signs do"1┘ТЗ:З"you want to make? ";1ёЬFI$│"12S":LE$│"0-9"1ўжЁ2лSI(DAY)│ Й(IN$)2#нSE(DAY)│SI(DAY)н.252)пР2K░:Г CONVERT NAME TO LOWER CASE2a║А L│2 е  З(NAME$)2v─N$│ Р(NAME$,L,1)2░╬Е  К(N$)▓64 ░  К(N$)┤97 з  Р(NAME$,L,1)│ Л( К(N$)л32)2╕╪Л L2╛Р2╙:Г DAYLY SUMMARY2┘є2ё(X│SI(DAY)мSI(DAYм1)3	2З "Today you made";3<Е X│0 з ####3'FЗ  В(X);3KPЕ X▓0 з З "more"; :Д З "fewer";3ZZЗ " signs"3ЛdЗ:З"than ";DAY$(╠F(DAYм1));".  Compared to "3▒nЗ:З "yesterday,  the class spent"3╔xX│SE(DAY)мSE(DAYм1)3┌{Е X│0 з ####4}X$│"$$"л б( Б( Щ( В(X))о Щ(10))л1,"#")л".##"4(ВЗ:З  Л(8);:З ═ X$; В(X);4MМЕ X┤0 з З " less"; :Д З " more";4gЦЗ" on signs and your"4yаЗ:З"income ";4СкY│IN(DAY)мIN(DAYм1)4впЕ Y│0 з ####4┴┤Е Y▓0 з З "in"; :Д З "de";4╓╛З "creased by ";5╚X$│"$$"л б( Б( Щ( В(Y))о Щ(10))л1,"#")л".##"5╥З ═ X$;Y;5▄З "."5GцЗ:З "Did more advertising increase"5`ЁЗ:З"your profits? ";5x·FI$│"13A":LE$│"A-Z"5Ищ 112,108:Ё5▄Е  О(IN$,1)┤▓"N" ░  О(IN$,1)┤▓"Y" з щ 0,126:З "Please enter YES or NO.":Бе 15405тЗ6+Е (X┤Y ░  О(IN$,1)│"N") ▒ (X▓Y ░  О(IN$,1)│"Y") з З "Inc"; :Д З "C";6M"З "orrect.  The signs cost ";6n,Е X┤Y з З "less" :Д З "more"6Х6З:З "than the income you received"6Ыоє6╗╕:ГWHAT DO YOU WANT TO SPEND6┼┬┴ 0,06╦╠ь6╓╓ф 97286рр╚ 3,56чъї06ёЇ┴ 3,16√∙т 2557■щ 91,167:З "CENTS"7┴ 0,27'щ 0,957BЗ "What price are you"7N&щ 0,1137_0З "going to"7k:щ 0,1317~DЗ "charge for"7КNщ 0,1497ЧXЗ "each"7гbщ 0,1677▓lЗ "plant?"7└qт 0:┴ 3,17═vщ 59,1677хАFI$│"13S":LE$│"0-9"7ыКЁ8ФPRICE│ Й(IN$л"" $(>!
:Г PROGRAM NAME:SELL PLANTS><:Г COPYRIGHT MECC 1983>Y:Г LAST UPDATE: 05/11/84>i:Г AUTHOR :>К:Г PROGRAMMER:CHAD C. COOPER>й:Г DISK NAME: MARKET PLACE>╩:Г ENVIROMENT:COLOR COMPUTER>▌:Г FILES USED:>ё
:Г DECLARATIONS>№Х 2000?Бе 35?Бе 50?#└ 8:Бе 30?42:Г INITIALIZATION?@3Ў 41000?K<IN$│""?SF╚ 4?ZPї0?dZ┴ 0,1?~d╙M"PSTAND/PIC",&H1800?ЪnА L│1 е 6:Н DAY$(L):Л L?┴x╣╠F(A)│Aм Б(Aо6)н6м6н( Б(Aо6)│Aо6)?╥кТ &H7F71,255?╪┤ь?▐╛ю?ы╟Бе 10000@
Ї:Г INSTRUCTIONS PT2@	
■ь@с 4@щ 0,36@AЗ "You have 1000 plants to sell"@bЗ "and 5 days to sell them."@Й&З "Your fixed expenses for seeds,"@░0З "containers, and fertilizer are"@╣5с 13@╘:З "3 cents per plant."@▄Dс 4A
NЗ "This means you have expenses"A$XЗ "of $30.00 before you start"AF]З "selling your 1000 plants."ALbєATlс 0AZ╗РAb╝:Г Ah╞ьAs╨щ 0,45AХ┌З "Instead of advertising on"A╝фЗ:З"Monday, your class decided to"AуюЗ:З"tell all of their friends and"B°З:З"families about the tomato plant"BЗ:З"sale."B!єB'РB> :ГFINANCIAL REPORTBD%ьBФ*щ (255м( З(DAY$(╠F(DAY)))л19)н8)о2,18:З DAY$(╠F(DAY));"'s financial report"B─4щ (255м( З(NAME$)л4)н8)о2,36:З "for ";NAME$B▄>╗ (0,49)м(255,49),╜CHщ 0,63:З "Price   Plants Sold   Income"C-RЗ "-----   -----------   ------"CK\щ 0,81:З ═ "$#.##";PRICE Clfщ 96,81:З ═ "###";PSOLD(DAY)CУpщ 168,81:З ═ "$$##.##";INCOME(DAY)C┬zщ 0,99:З "Signs    Expenses   Plants Left"CЄД        З "-----    --------   -----------"DОщ 16,117:З ═ "##";SIGN(DAY)DGШщ 72,117:З ═ "$$##.##";SEXP(DAY) :ГSIGN EXPENSESDtвщ 184,117:З ═ "####";PLEFT :ГPLANTS LEFTDzчРDЪш:Г DO YOU WANT TO BUY SIGNSD▒эЕ FLAG(2)│1 з 1090D╜Єщ 0,135Dх№З "Would you like to make signs to"EЗ "advertise your business? ";E FI$│"13S":LE$│"A-Z"E.щ 200,144E?$Ё:YN$│IN$л""EУ.Е  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,162:З "Please enter YES or NO.":Бе 1050Eо8Е  О(IN$,1)│"N" з 1199E╝=FLAG(2)│1E┬BьEщLщ (255м( З(DAY$(╠F(DAY))))н8)о2,18E¤VЗ DAY$(╠F(DAY))F[Е FLAG(0)│1 з 1145F`щ 0,45FEjЗ "Each sign will cost 25 cents."FhtЗ:З "Signs will be posted for"F{uЗ:З "one day."FЖvщ 0,99FЬwFLAG(0)│1:Бе 1165F│yЕ FLAG(1)│1 з 1160F╛{щ 0,45G~З "It is a good idea to try a":З:З"different number of signsOGRAMA
'ьA"'$FI$│"13S":LE$│"A-Z"AJ'.щ 0,45:З "Is this a new session? ";AP'8ЁAb'BDU$│ О(IN$,1)Aе'LЕ DU$┤▓"N" ░ DU$┤▓"Y" з З:З "Please enter YES or NO.":Бе 10030A▓'Vщ 0,63:ъA▀'`щ 0,81:З "How many players are there? ";A∙'tFI$│"11S":LE$│"0-9":ЁB
'~NSTANDS│ Й(IN$)Bg'ИЕ NSTANDS┤1 ▒ NSTANDS▓6 з щ 0,99:З "Please enter a number from      1 to 6.":Бе 10080B~'Тщ 0,99:ъ:щ 0,108:ъB┐'ЬЕ DU$│"N" з Бж 3100 :Д А L│1 е NSTANDS:MONEY(L)│2:Л L:LCST│2B╘'░DISPLAY│0:RMOD│1Bт'║DAY│DAYл1B·'─А STAND│1 е NSTANDSC'╬Бж 200C?'╪Е CHARGE(STAND)│0 з GSLD(STAND)│GLASS(STAND):Бе 10250Cc'тBASE│3000о(CHARGE(STAND)н100)п2Cа'ьЕ CHARGE(STAND)┤.10 з BASE│((10мCHARGE(STAND))о10)н24л30C▌'ЎGSLD(STAND)│ Б(RMODн(BASEлBASEн(1м Ч(мSIGN(STAND)н.5))))D(Е GSLD(STAND)▓GLASS(STAND) з GSLD(STAND)│GLASS(STAND)DC(GTOTAL(STAND)│GTOTAL(STAND)лGSLD(STAND)Dr(GMTOTAL(STAND)│GMTOTAL(STAND)лGLASS(STAND)D~(
Л STANDDШ(Е DISPLAY│3 з Бж 2500D╝(Е DISPLAY│4 ░  Д(2)│1 з Бж 2700D╟((Бж 800D▀(2А STAND│1 е NSTANDSE(<Е MONEY(STAND)▓LCSTо100 з 10340E(FЛ STANDE(PБж 3000E((ZБе 31000E.(dьE9(nщ 0,70EO(xЕ DAY│2 з Бж 2800Ee(ВЕ DAY│6 з Бж 2900E|(аЕ DAY┤14 з Бж 2400EС(кЕ DAY┤15 з 10170EЭ(┤Бж 2300Eк(╛Бе 31000E░(╚КE╬y:ГENDING ROUTINE 08/15/83Eфy"╚ 4,1: ф 3584: ї0EЇy,т 0: с 0: чF
y6┴ 0,1: ьFy@щ 0,91F0yJЗ "Do you want to try again? ";FPyTIN$│"": FI$│"13S":LE$│"A-Z"F`y^Т 32625,255FryhЁ: IN$│IN$л""F┴yrЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31040FЁy|Е  О(IN$,1)│"Y" з Бж 33000:О "SELLEMON/INSF■yЖь: щ 0,91G yРЗ "Returning to main menu..."G1yЪО "MENU.BAS"GPАш:Г MOMENT ROUTINE 08/09/83G^АЄт0: с0: чGnА№х: ┴ 0,1: ьGyБщ 0,90GЦБЗ "One moment please..."GЬБРG╗а(:ГERROR PROCESSING ROUTINEHTа2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Hєа<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єI0аF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORIUаPщ 8н(16м( З(ZST$)о2)), 72:З ZST$IЮаZЗ:З"Please record this information":З"and report the error to MECC."I╕аdє: Т 32767,0: О"MENU"I╛аnКJV├PЖ 18,"Stand",37,"Glasses",48," made",59,"Signs made",70,"Pri 	>.
:Г PROGRAM NAME:SELL PLANTS INSTRUCTIONS>I:Г COPYRIGHT MECC 1983>f:Г LAST UPDATE: 02/17/84>v:Г AUTHOR :>Ч:Г PROGRAMMER:CHAD C. COOPER>╡:Г DISK NAME:MARKET PLACE>╓:Г ENVIROMENT:COLOR COMPUTER>щ:Г FILES USED:>¤
:Г DECLARATIONS?Х 2000?Бе 35?Бе 50?*#└ 8:Бе 30?@2:Г INITIALIZATION?L3Ў 41000?W<IN$│""?_F╚ 4?fPї0?pZ┴ 0,1?v┤ь?|╛ю?Й╟Бе 10000?Ь╚:ГINSTRUCTIONS?в╥ь?к╫с 4?╡▄щ 0,18?┘цЗ "In this simulation you will"?√ЁЗ "try to find the amount of"@·З "advertising needed to sell"@'
с 13@:
З "a product."@B
с 4@e
,З "Your class has planted and"@Ж
6З"grown tomato plants for a"@н
@З"science project.  The class has"@╙
JЗ"started a business to sell the"@Ў
TЗ"plants and earn money for a"A	
^З"field trip."A
hєA:
rщ 0,18:З "On Monday, the first day of"A\
|З"business, the class sets a"AБ
ЖЗ"price for the plants.  During"Aд
РЗ"the five-day sale, you make"A╟
ЪЗ"decisions about advertising"A╨
Эс 13Aц
ЯЗ "your product."Aю
дс 4B
╓З "Your goal is to sell all your "B8
рЗ "plants, but still raise as"BZ
ъЗ "much money as you can for"Bn
эЗ "your class."Bt
яєBz
єРBН':ГMAIN PROGRAMBЩ'8щ 83,45Bн'BЗ "SELL PLANTS"B┘'Lщ 0,108:З "Do you want instructions? ";Bє'VFI$│"13S":LE$│"A-Z":ЁCH'`Е  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,126:З "Please enter YES or NO.":Бе 10060Ce'jЕ  О(IN$,1)│"Y" з Бж 200Cr'tБж 33000CЗ'~О "SELPLANT/CCC"Cеy:ГENDING ROUTINE 08/15/83C╗y"╚ 4,1: ф 3584: ї0C╦y,т 0: с 0: чC╪y6┴ 0,1: ьCуy;щ 0,91Dy@З "Do you want to try again? ";D'yJIN$│"": FI$│"13S":LE$│"A-Z"D7yTТ 32625,255DIy^Ё: IN$│IN$л""DШycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31035D░yhЕ  О(IN$,1)│"Y" з ОD╛yrь: щ 0,91Dрy|З "Returning to main menu..."DёyЖО "MENU.BAS"EАш:Г MOMENT ROUTINE 08/09/83EАЄт0: с0: чE.А№х: ┴ 0,1: ьE9Бщ 0,90EVБЗ "One moment please..."E\БРE{а(:ГERROR PROCESSING ROUTINEFа2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))F│а<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єFЁаF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORGаPщ 8н(16м( STAND)о100нм1/)0щ 123,98:З "   Signs: ";/B:З ═ US$;VSIGN(STAND)/^D╗ (205,111)м(252,111),╜/zN╗ (205,112)м(252,112),╜/ШXщ 123,116:З " Balance: ";/╥bBALANCE(STAND)│MONEY(STAND)лLEMON(STAND)лVSIGN(STAND)/эlЗ ═ US$;BALANCE(STAND)0qх 18,135,255,1910vщ 18,135:З "What price"0@АЗ "(in cents) would you like"0UКЗ "to charge? ";0uФЁ:CHARGE(STAND)│ Й(IN$)о1000ЗЮх 0,0,255,1910Уищ 0,1710╧▓З"Do you want to change anything  (enter YES or NO)? ";0щ╞FI$│"13S":LE$│"A-Z":Ё1╦Е  О(IN$,1)┤▓"N" ░  О(IN$,1)┤▓"Y" з Бе 68012╨Е  О(IN$,1)│"Y" з 20018Р1L :ГTOTALS SCREEN1g*А SCRN│1 е NSTANDS й 31m4ь1Ц>З "Daily Financial Report - Day";DAY1еHА L│1 е 111│Rщ 0,WP(L)1└\З WD$(L)1╚pЛ L2ШL1│NSTANDSм1:Е L1▓2 з Е SCRN▓1 з L1│NSTANDSм4 :Д L1│22вА L│0 е L12/мщ 109лLн64,WP(1):З SCRNлL2G▒╗ (0,27)м(255,27),╜2t╢щ 101лLн64,WP(3):З ═ F1$;GLASSES(SCRNлL)2Ю└щ 101лLн64,WP(4):З ═ F1$;SIGN(SCRNлL)2╔╩щ 94лLн64,WP(5):З ═ F3$;CHARGE(SCRNлL)2╤╘Л L2р┘А L│0 е L13
▐щ 101лLн64,WP(7):З ═ F1$;GSLD(SCRNлL)38уINCOM(SCRNлL)│CHARGE(SCRNлL)нGSLD(SCRNлL)3bшщ 77лLн64,WP(8):З ═ US$;INCOM(SCRNлL)3╖эЕ FLAG│SCRNлL з XPENCD(SCRNлL)│0 :Д XPENCE(SCRNлL)│MONEY(SCRNлL)мBALANCE(SCRNлL)3тЄщ 77лLн64,WP(9):З ═ US$;XPENCE(SCRNлL)4ўPROFIT(SCRNлL)│INCOM(SCRNлL)мXPENCE(SCRNлL)4>№щ 77лLн64,WP(10):З ═ US$;PROFIT(SCRNлL)4АЕ FLAG┤▓SCRNлL з MONEY(SCRNлL)│BALANCE(SCRNлL)лINCOME(SCRNлL)4лщ 77лLн64,WP(11):З ═ US$;MONEY(SCRNлL)4│$Л L4╣)є4─.Л SCRN4╩KР4ш№:ГFINAL STATUSES PRINTOUT5	А STAND│1 е NSTANDS5	ь5(	З:З "            Stand";STAND5{	$Е DU$│"N" з щ 24,27:З "Final Report Since Day";HLD :Д щ 80,27:З "Final Report"5У	.╗ (0,40)м(255,40),╜5╔	8щ 0,63:З "    Total glasses made:";GMTOTAL(STAND)5■	Bщ 0,90:З "    Total glasses sold:";GTOTAL(STAND)6#	Lщ 0,117:З "     Final assets: ";6<	VЗ ═ US$;MONEY(STAND)6B	[є6N	]Л STAND6T	_Р6h	`:ГRANDOM EVENTS6v	eDISPLAY│06г	jИ  Д(6) Бе 2420,2430,2440,2450,2495,24976╓	tDISPLAY│1:RMOD│.5:Бе 2499:Г 50% CHANCE OF RAIN7	~DISPLAY│2:RMOD│1.5:Бе 2499:Г HOT AND SUNNY7J	ИDISPLAY│3:RMOD│0:Бе 2499 :ГSURPRISE  YOUR SIGNS HAVE BEEN RUINED7P	Ть7[	Чщ 0,507Е	ЬЗ:З"The street department is working"7л	жЗ"on your street today, so there"7╚	░З:З"will be no traffic."7╬	╡є7Ў	║DISPLAY│4:RMOD│.1:Бе 2499 :ГTRAFFIC8	┐DISPLAY│5:RMOD│.2 :ГSTORM8 	└Бе 24998+	┴RMOD│181	├Р8Q	─:ГSURPRISE---> SEVERE STORM8W	╬ь8b	╪щ 0,458М	тЗ:З "A severe thunderstorm hits your"8│	ьЗ:З "town just as you set up your"8▐	ЎЗ:З "stands.  Your lemonade and signs"8Є	√З "are ruined."9
(:ГTHUNDER9
2ї1: ╔ "O1T25599
<╔ "V10DEV16CGAV20GABFFGFBGAV17GAF"9U
F╔ "V15DAV11EGV9ADFEFDF"9z
Pї0: ╔ "V8CDEDV5CEDDECV3DECEDCED"9н
Zї1: ╔ "V15ADEGV19DFBGV13DAFE":ї0: ╔ "V4FEGDFE"9ш
dї1: ╔ "V25GDV29FAEBV31BAGEV25GBGV31ABFV27AGAFV21GDFED":P
n╔ "V18FDAEV20DECDV14GBGDFCEDEFEFCV10DGEFDV8CEFCDEF": ї0: ╔ "V6DEFDCDFEDEV4FCECDCECV2DECDECDEDCDECE":Z
xї0: є:`
ЛР:Ц
М:Г The construction workers buy all your lemonade:Ь
Ць:з
ащ 0,60:═
кЗ "The street crew comes to your":ў
┤З:З "stand at lunchtime and buys all";
╛З:З "the lemonade you had made.":є;6
╚А STAND│1 е NSTANDS;S
╥GSLD(STAND)│GLASS(STAND);_
▄Л STAND;e
яР;{
Ё:Г4 CENT LEMONADE;а
·З "Your parents quit giving you";╔З:З"free sugar.  Your cost is now 4";ЄЗ:З "cents for each glass you make.";¤LCST│4<"є<	SР<T:Г5 CENT LEMONADE<F^З "Inflation caused your lemonade"<phЗ:З "mix to go up.  Your cost is now"<НrЗ:З "5 cents per glass."<Ш|LCST│5<ЮЖє<д╖Р<┬╕:ГALL STANDS ARE BANKRUPT<╚┬ь<╙╠щ 0,80=/╓Е NSTAND│1 з З "Your lemonade stand is bankrupt." :Д З "All of the stands are bankrupt"=5рЇ=;Р=M:ГOLD SESSION=Y&щ 0,117=w0З "What was the last day"=Й:З "number? ";=бDFI$│"12S":LE$│"0-9"=зNЁ=┐XDAY│ Й(IN$):HLD│DAY>bЕ DAY▓15 ▒ DAY┤1 з щ 0,144:З "Please enter a number from      1 to 15.":Бе 3110>eLCST│2>3gЕ DAY▓1 з LCST│4>HiЕ DAY▓5 з LCST│5>Nlь>nvА L│1 е NSTANDSл(NSTANDS▓5)>ФАщ 0,(Lм1)н30л Б((6мNSTANDS)н9)л18>╬КЗ "Assets for lemonade stand #"; П( И(L), З( И(L))м1)>ЄФЗ "after day";DAY;"were ($)? ";?ЮFI$│"16D"?иЁ?▓MONEY(L)│ Й(IN$)?Щ╝Е MONEY(L)┤.01 ▒ MONEY(L)▓200 з щ 0,(Lм1)н30л Б((6мNSTANDS)н9)л45:З "Please enter a number from      .01 to 200.":Бе 3200?┴┴щ 0,(Lм1)н30л Б((6мNSTANDS)н9)л45:ъ?╔╞Л L?с╨Е NSTANDS┤▓6 з 3399?ч┌ь?Єфщ 0,90@,юЗ "Assets for lemonade stand #"; П( И(L), З( И(L))м1)@P°З "after day";DAY;"were ($)? ";@^
FI$│"16D"@d
Ё@
MONEY(NSTANDS)│ Й(IN$)@ы
 Е MONEY(NSTANDS)┤1 ▒ MONEY(NSTANDS)▓655 з щ 0,117:З "Please enter a number from      1 to 655.":Бе 3300@ё
GРA':ГMAIN PRUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  $&#
:Г PROGRAM NAME:SELL LEMONADE&>:Г COPYRIGHT MECC 1983&Z:Г LAST UPDATE:05/11/84&i:Г AUTHOR:&К:Г PROGRAMMER:CHAD C. COOPER&и:Г DISK NAME:MARKET PLACE&╔:Г ENVIROMENT:COLOR COMPUTER':Г FILES USED: SELLEMON/INS, LEMON/IMA AND DIMAGE/BIN'
:Г DECLARATIONS')Х 1000,&H69BD'>(М WD$(12),WP(12)'T2:Г INITIALIZATION'`3Ў 41000'k<IN$│""'}A╙M"LEMON/IMA"'РC╙M"DIMAGE/BIN"'ШF╚ 4'ЮPю'иZ┴ 0,1'оdь'╡nї0'╒xGL$│"D16U16R1D17R8U17R1D16"(ВUS$│"###.##":F1$│"###":F2$│"##":F3$│"#.##"(*МSN$│"D9R1U9R11D9R1U9D9L7D9R1U9L6"(JЦА L│1 е 12:Н WP(L),WD$(L):Л(fаА L│1 е 10:Н LN1(L):Л L(еIM│&H7FA0:IGO│&H6F00(гкТ IMл2,1:Т IMл1,1:Є IMл3,&H69BD(╚┤CE$│"G1L1D1U1L1H1U2E1R1U1D1R1F1"(╒╟Бе 10000(ч╚:ГMAIN SCREEN(э╥ь)▄:ГUPPER LEFT BOX)#цЕ DISPLAY│0 ▒ DISPLAY│3з 300)9Ёэ 0,0,45,45,0,0,0)S·э 1,1,44,44,255,255,0)Р
Е DISPLAY│1 з щ 0,48:З "50% Chance of rain":Т IM,3:в IGO)╞
Е DISPLAY│2 з щ 0,48:З "Hot & sunny":Т IM,1:в IGO)√
Е DISPLAY│4 з щ 0,48:З "No traffic":Т IM,2:в IGO*,
"Е DISPLAY│5 з щ 0,48:З "Stormy":Т IM,4:в IGO*F
,:ГMAIN BOX AND SCREEN*a
6э 120,60,255,136,0,0,0*А
@э 122,62,253,134,255,255,0*Т
Jх 48,0,255,93*┬
Tщ 48,0:З "Lemonade Stand";STAND;"- Day";DAY*Є
^щ 48,18:З"Lemonade:";LCST; Л(8);"  a glass"+

c╞ "BM140,23C2XCE$;"+
hЗ "to produce."+0
rх 0,0,255,191+M
|щ 123,62:З "  Assets: ";+f
ЖЗ ═ US$;MONEY(STAND)+
Йэ 1,74,10,88,85,85,0,
КЕ MONEY(STAND)┤LCSTо100 з щ 0,72:З "You are":З"bankrupt.":є:GLASS(STAND)│0:LEMON(STAND)│0:VSIGN(STAND)│0:SIGN(STAND)│0:CHARGE(STAND)│0:FLAG│STNAD:Бе 799,0
Л╞ "BM0,72XGL$;",H
Рщ 16,72:З"How many",b
Ъщ 16,81:З"glasses? ";,С
дFI$│"12S":LE$│"0-9":Ё:GLASS(STAND)│ Й(IN$),ё
йЕ LCSTнGLASS(STAND)нм1о100лMONEY(STAND)┤0 з щ 0,171:З"  You can't afford that much.":Бе 410, 
кщ 0,171:ъ-
ощ 123,71:З "Lemonade: ";-A
╕LEMON(STAND)│LCSTн Й(IN$)нм1о100-Z
┬З ═ US$;LEMON(STAND)-t
╠╗ (205,84)м(252,84),╜-О
╓╗ (205,85)м(252,85),╜-╜
рщ 203,89:З ═ US$;MONEY(STAND)лLEMON(STAND)-╥
ъ╞ "BM0,108XSN$;"-э
Їэ 2,109,11,116,85,85,0.
■щ 16,99:З "How many".$щ 16,108:З "signs at 15 ".=
╞ "BM110,113C2XCE$;".Vщ 16,117:З "each? ";.pЁ:SIGN(STAND)│ Й(IN$).╫!Е 15н Й(IN$)нм1о100лMONEY(STAND)лLEMON(STAND)┤0 з щ 0,171:З "  You can't afford that much.":Бе 530.х#щ 0,171:ъ/&VSIGN(STAND)│15нSIGN(кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккХкккккккккккккккккккккккккккккккUVкккккккккккккккккккккккккккккеUUкккккккккккккккккккккккккккккUUUZккккккккккккккккккккккккккккUUUZкккккккккккккккккккккккккккйUUUZкккккккккккккккккккккккккккйUUUjкккккккккккккккккккккккккккеUUUjкккккккккккккккккккккккккккеUUUккккккккккккккккккккккккккккеUUZкккккккккккккккккккккккккккккХUZккккккккккккккЦкккккккккккккккUjккккккккккккккUккккккккккккккккккккккккккккккйUZкккккккккккккккккккккккккккккХUVккккккеUкккккккккккеUZккккккйUUVккккккХUZккккккккккХUUккккккйUUVкккккйUUVккккккккккUUUккккккеUUVкккккеUUVкккккккккйUUUjкккккеUUVкккккХUUVкккккккккеUUUZкккккеUUZкккккХUUVкккккккккеUUUZкккккеUUккккккХUUVкккккккккйUUUjкккккйeVккккккеUUZккккккккккUUUjккккккйZккккккеUUjккккккккккUUUккккккккккккккккUUкккккккккккХUUккккккккккккккккеZкккккккккккйUZкккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккки
ккккккккккккккккккккккккккккка
ккккккккккккккккккккккккккккккккккккккккккккккккккккккккки*ккккккккккккккккккккккккккка*кккккккккккккАа*ккккккккккка
ккккккккккккккккккккккккА└кккка
кккккккккккккккккА└кккикккккиккккккккккка└
кккиккккки*кккккккккка└0
ккка*кккка
ккккккккккА0
кккА0
ккккА└├
кккккккккк
кккА0└
ккккА└└
кккккккккккккА
ккккА
кккккккккк├ккк
кккккккккккккк├ккк0
кккккккккккккк0ккк3
кккка├кккккккккк0ккк0
ккккА├кккккккккк└
ккк
ккккА└кккккккккк└
кккА*кккк0└ккккккккккА*ккки*кккк0ккккккккккА*ккккВАкккккАккккккккккаккккк╛╛кккккакккккккккккА
ккккк┐┐╬ккккка
кккккккккккЁЁ■кккккл ·кккккикккккккккккк№ ■кккккк ъкккккикккккккккккк┐ ъкккккк ккккккк└кккккккккккк┐ ъкккккк ккккккк┐>ккккккккккккп ккккккк кккккккп·ккккккккккккп ккккккк кккккккл ·ккккккккккккп ккккккк кккккккл ъккккккккккккп ккккккк кккккккл ъккккккккккккп ккккккк кккккккл ъккккккккккккп ккккккк кккккккл ъккккккккккккп ккккккк кккккккл ъккккк └ └ └ └? № └ └    └? └ └  Ё └  Ё └  Ё └ Ё №  ?     
UUUUUUUTUХеiYVеiU
VеЩfYVUЦT
VeЩfYVUХPeеiYVХiPеХeYVUVPeХeYVUЦPVeХeZЦеiT
UUUUUUUUU00└0└3╠ № № № №№ЁUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU p╬
>Жз└ОpFп┴Оp╤п┴Ж
з└ОpЮп┴Оp┘п┴О▓wпCпHo─oEО┐О ┐'О┐┐)О{╢┐┐9VS╨HS╨D╞D╙WIN─INVERS┼NORMA╠FON╘P├CLEO╠CLEO╫CLWI╬BO╪CON╬DISCO╬SIMPU╘PAUS┼WPOK┼SP┬SP▓G╥ER╥WPEE╦pшpўq
qr▌qNqQq5qVsr╖rлs└uIuwx│rКtЩqиqлut╗tйОpгАс~н╘4╜▓b5└PОp╧~▓╬╜r{M&
ў'ў!9╜r{M&nў p 'ў 9╜r{┐9Эе'╜r{М'ЗМ.АZ4╜▓m╜r{5XОпе9╜r{М'eМ.`ZОXое┐9ЖА!O╖9Эе&
╢╖╢╖
9╜r{M&5ўЁ%-Ё$(Эе'#╜▓m╜r{M&ё%ё$Ш√%
Zё"╖
9OЛ~┤JЖ
!O╖@╢Ў
4Ц╢Б'Ж!O╖Ж╢╖
ЗОr╜t▒AнЯа'·Б&ЖА╕A╖A+ь5~{5╢@&╜s5╖ў q■
9╜rл59Press SPACE BAR to continueЭе'>НR╝'.Jў@Эе'3╜▓mНA╝).9ўAЭе'%╜▓mН0╝'.(ўBЭе'╜▓mН╝).ўC9@A╢(╖B╢*╖C9~qвЭе&О ╜╖=9НяM&щЖ=╛


│
.·┐
є
¤
9╢╖╢╖
НM╢
╛л▒$?╖A╢╖C╢╖@╗╖B G╜r#╢B░@%Р╖╢C▒A#Е╢@╖╢A╖ r¤╢C╖9╢
╖A╛лJ╖C╢╗╖B╢╖@Ц╢Б&Ц│Б&Ж !O╖Щ╖Ъ_~sхЦ│ОxhжЖ э╜uB╓@TT╢╢Б'
T╫Р╓BTTБ'
T╫С╨Р% Z╫ТОxЛ╓@─╢╢Б&─XцЕ╫ФОxЫ╓B─Б&─X\цЕ╫Х╓Т\&	ЦФЪХЧФCЧЧЦCРAЧУ%¤ЎЦA╞ =╙
ЦР0ЖЖРТЧЦ9╜r#╜▓m╜r{M&¤╘ўЩ╜▓m╜r{M&¤╞ўЪ╜▓m╜r{─XP╦ўt~╜sGЖ■ЧE╓Т\& s№
Ц (ОxУ╢╢╓@─Б&─XцЕ╫ЧОxл╓B─Б&─X\цЕ╫ШEОЩ╓AT$ОЪжДФЧЧHждФФЪHза╓Т\'жД╓Т'заZ&√ФШЧHждФХЪHздЦЦ1ж
У'/
УA
E+╣ОЩЦAD$ОЪ_жД ■DVDVDVDVDVDVDV╫HЪHзД~t7~uE╜╖=Я¤╜▓m╜╖=пЯ¤9╜╖@ьД~┤ЇжА'єнЯа Ў╜r{&О╞╖┐
П9┐%Оt╧ Їў-ЦhL'яЮh┐.╜╤х4╜╩;5╜зщ╜йt╜н3№%▌+Ю╜н0 t√Яж~нЮ╞
╜Хк╜r{]'╞╫┴╢ "ДўЪ┴╖ "Ц╢Б&ОvлЖ ╖(┐+╖╢*╖9ОwKЖ уЖ!OЛ9НўОu┐
hО{╢ЯЯ
Ц(ЧЦ*ЧЮжД╜v О╦J┐
h ╞}o&46╞ЫНН╖562b9Юб!%б"#
Б%!Б
# ╜vЦJЫ%Р%Р#╜vд╓нЯ+Ж	АHОu╧нЦ оvLvjv|vУvjvд44╞ЫЮжД╜v╓нЯ+OЛнЯа'4Ж u·ЛЖ ╜v╓нЯ+5_Ы54M9ЮН!╫ц$╫а!=╙├	▌"╓&ц%╫ ╓&ц&╫!9ц#о''Йр!%цЕ─&╞9ЦР%
Р Ч%С$
╜vУЦЫРР Ч9ЦЫ ЫЧ%РР%я (ЦЫ!Ы
%
Ч
Ы%С#ЦЧ
9Ц
Р%Р!С$ЦЧ
9ЦЧ~v|Ж]*ЖC╖wЦЧa╞ Ц
=╙ЦDDD1жЦДЙH@Л╖w╫`ОxЛжЕ╖w4╓ZОxлцЕўwЖР`Р*╞!ўw9О v∙xЫCцЖўw> Оxг╞ ўw9цЖ·w4ўw4Ю"жАД_ ■DVDVDVDVDVDVDVўw@╖w6цд─╩ча цд─╩чд1и
a&╦9Ж]*ЖC╖wщЦЧ`╞ Ц
=╙ЦDD1жЦДHЙЧaHHЫa@Л#╖x Ж ЧiЧjОxhЎ▓жЕЧbЎ│жЕЧcЦJОx|Б$mцЖ╫l 
А╞ ╫lцЖ╫mОxЛ╓aжЕЧhЖРaРР+ОxгжЖЪhЧh Л+ОxЫИжЖЧi 
iОxЫCжЖЧjЮ"жАg4ДОxlжЖ4C w°ФcЧk5ФbЪkФmЧf5DDDDжЖ4CФcЧk5ФbЪkФl5 ■DfgDfgDfgDfgDfgDfgDfgЧeждФhЪeзаждФiЪfзаждФjЪgзд1и
`& А9Uк 03<?└├╠╧Ёє№ └Ё№  А└рЁ°№■MVSА└рЁ°№■ ?
?

?А└рЁ°№■ ╞ОАoАZ&√ЖF╞╔╜{D$О{`~{(ж"╖r'ЭжАА0╖tzr'ФжАА0╖uzr'ЛжА╖zБ xўA&ЖA╞Z╜zтЖa╞z╜zтЖ ╜{
 sБD&Ж0╞9╜zтЖ-╜{
Ж.╜{
 \БS&BЖL╞┼╜{D%Oц"'KўrжА4╜{
5zr':жДБ-&ьzr&╜{
 *ж0
цА4╜zт5zr&╨ О{p~{(Ж
╖tЖ
╖u~x·╖zvwЭе'╜▓m╜╖=М /О{Ш~{(Ж<=¤v╠¤
╢u▒t,О{~{(yЎu'	Ж нЯаZ&∙Ўu]'╜z╨Z&·rs╛v'╝
/╞Жя╖ ╢ Бє&Ж yЎ╖ ╢ Б┐&Ж ╜u█'╙Б&Ўr ╗Б&
ЖА╕y╖y+╝~{5yБ
&
╢s▒t-f~zоЎq\&
Бa%Б{.А Б&╢r'HJ╖rО¤цЖ┴ '╖s╜z╨~y▄Ўrёu,*╖{╜{
┤x'╢{ЎrО¤нЯазЕ\ўrБ ' Hўs~y▄╢pL& :╞ЖАЧМ╜йQ~y▄ЖI╞╬╜{D$О{ж~{(╢sО¤oЖп$Zз"Ж
nЯаЖнЯаЖ нЯаЖnЯаў}▒}/Йў}╖|╜{
 zї||╢|▒}/Є9╜{
║xзЕ94ДЙO\
IZ&№╖x5DDDЙОАжЕ9жА'нЯа Ў~▓w╠y▌+Ю╜н0Яж9ЮЬ'бА&	сД&о$■90' щ
9FI$ NOT DEFINEDILLEGAL FIELD.ERR - MAX LEN <  MIN LENILLEGAL TIME.IN$ NOT DEFINED` {	          яяяяя я  ╖╖╖      ██Б█Б██  я├┐╟√Зя  ЯЫўя▀│є {Ї  ▀пп▀л╖╦  ўўя      ўя▀▀▀яў  ▀яўўўя▀  ял╟я╟ля   яяГяя       ччўя    Г          чч   √ўя▀┐   ч█████ч  я╧яяяя╟  ╟╗√ч▀┐Г  ╟╗√ч√╗╟  ўч╫╖Гўў  Г┐З√√╗╟  ╟╗┐З╗╗╟  Г√ўяя▀▀  ╟╗╗╟╗╗╟  ╟╗╗├√╗╟   чч чч    чч ччўя ўя▀┐▀яў    Г Г    ┐▀яўя▀┐  ╟╗ўяя я  ╟╗лгз┐├  ╟╗╗Г╗╗╗  З |є╗╗З╗╗З  ╟╗┐┐┐╗╟  Г█████Г  Г┐┐З┐┐Г  Г┐┐З┐┐┐  ╟╗┐┐г╗╟  ╗╗╗Г╗╗╗  ГяяяяяГ  √√√√√╗╟  ╗╖пЯп╖╗  ┐┐┐┐┐┐Г  ╗Улл╗╗╗  ╗╗Ыл│╗╗  Г╗╗╗╗╗Г  З╗╗╗З┐┐  ╟╗╗╗л╖╦  З╗╗Зп╖╗  ╟╗┐╟√╗╟  Гяяяяяя  ╗╗╗╗╗╗╟  ╗╗╗╗╗╫я  ╗╗╗ллУ╗  ╗╗╫я╫╗╗  ╗╗╫яяяя  Г√ўя▀┐Г  ╟▀▀▀▀▀╟   ┐▀яў√   ╟ўўўўў╟  я╟ля }Єяяя  ■■■■■■■  ББББББББ   ч√у█у  ▀▀╟███╟    ч█▀█ч  √√у███у    ч█├▀у  єэя╟яяя    ч██у√ч ▀▀╟████  я ╧яяя╟  ў чўўў╖╧ ▀▀█╫╧╫█  ╧яяяяя╟    mmmm    ╟████    ч███ч    ╟██╟▀▀   у██у√√   ╙╧▀▀▀    у▀ч√╟  ▀▀З▀▀█ч    ████у    ╗╗╗╫я    ╜╜╜е█    ╗╫я╫╗    ███у√ч   Гўя▀Г
~ё  p■■  ББББББББ   ч√у█у  ▀▀╟███╟    ч█▀█ч  √√у███у    ч█├▀у  єэя╟яяя    ч██у√ч ▀▀╟████  я ╧яяя╟  ў чўўў╖╧ ▀▀█╫╧╫█  ╧яяяяя╟    mmmm    ╟████    ч███ч    ╟██╟▀▀   у██у√√   ╙╧▀▀▀    у▀ч√╟  ▀                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 н&
:ГPROGRAM NAME: MENU&4:ГCOPYRIGHT MECC 1984&O:ГLAST UPDATE 05/11/84&r:ГAUTHOR: DAVE QUADY, AUG 1983&П:ГPROGRAMMER: DAVE QUADY&н:ГDISK NAME: MARKET PLACE&ч:ГENVIRONMENT: COLOR COMPUTER,    1 DISK DRIVE, 1 TV.':ГFILES USED: M-UTIL'
:Г DECLARATIONS'%Х 400,&H6E00'╔Е  Ж(&H7000)┤▓206 ▒  Ж(&H7001)┤▓1 ▒  Ж(&H7002)┤▓62 ▒  Ж(&H7003)┤▓134    з ╙M"M-UTIL":в:╙M"PATCH":в :Г PEEKS CHECK TO  SEE IF 1ST BYTES OF M-UTIL ARE  IN MEMORY'є
П:Н DISKNUM: Е  Ж(32767)│DISKNUM з 25(╚ 4,1: ╝1: ї0(.П: Н DISKNUM: Т 32767,DISKNUM: Бе 17(8Бе 18(G└ 8: Бе 16(n╙M "LOGO.PIC",&H1800: ╚ 3,5: ┐ 1,0(ФА I│1 е 1000:Е  Т│" " з 20 :Д Л I(╗╚ 4,1: ┐ 1,0:ї0:ю:П :Н DISKNUM,D1$)Yщ  Б(16м( З(D1$)о2))н8,36:ЗD1$:щ 72,54:З"Copyright 1984":щ 43,63:З"Minnesota Educational":щ 46,72:З"Computing Consortium":щ 47,81:З"All rights reserved.")╚щ 56,155:З"Prepared for and a":щ 44,164:З"Non-Exclusive License":щ 14,173:З"Granted to Tandy Corporation.")їА I│1 е 500:CM$│ Т:Е CM$│" " з 25 :Д Л I*╚ 4,1:╝1:ї0:└4:ф 3584:┴ 0,1:с0:т0:ч:ю*xNPROGRAMS│4:DESCLN│7:NOP│3:MXPROG│10:MOP│2:CT│0:Т &H7F71,&HFF:Г CONVERT L.C. TO U.C.*кТ &H7F70,255:Г TURN ON BELL FOR ILLEGAL INPUT*■М PROGRNME$(NPROGRAMS),FILNME$(NPROGRAMS),PDESC$(NPROGRAMS,DESCLN),OPTNME$(NOP)+2:Г INITIALIZATION+ 3Ў 41000++7IN$│""+C<П:Н DISKNUM,D1$,D2$+bd:Г---> USER INITIALIZATION+╣nї0:А I│1 е NPROGRAMS:Н PROGNME$(I),FILNME$(I):А J│1 е DESCLN:Н PDESC$(I,J):Л J:Л I+┘xА I│1 е NOP:Н OPNME$(I):Л I+ц╟Бе 10000,╚:Г---> USER SUBROUTINES,╥:Г---> PRINT MENU TITLE,Q▄NSPACES│ Б(16м( З(D1$)о2)):щ NSPACESн8,0:З D1$,}цЕ D2$│"" ▒  Й(WHICH$)мNPROGRAMS│1 з З:Р,▓ЁNSPACES│ Б(16м( З(D2$)о2)):щ NSPACESн8,9:З D2$:Р,╦':Г ---> MAIN PROGRAM,▐'┴ 0,1:ь:Бж 210,√'$З:З  б(5,32);"Programs:"-9'.Е NPROGRAMS│6 з J│4 :Д Е NPROGRAMS▓6 з J│5 :Д J│NPROGRAMS-'8А I│1 е J:PRUS$│ б(FUDGEл5,32)л"##. ":З ═ PRUS$;I;:З PROGNME$(I);-╓':Е NPROGRAMS▓J ░ Iл(Jм1)┤NPROGRAMS з З  б(20,32);═ "##. ";IлJ;:З PROGNME$(IлJ) :Д З-▐'BЛ I-·'`З:З  б(5,32);"Options:".-'jА I│1 е NOP:З ═ PRUS$;NPROGRAMлI;:З OPTNME$(I).5'tЛ I.f'Ищ 40,(7лNOPлNPROGRAM)н9:З"Which number? ";:ъ.Ь'ТIN$│"":FI$│"11S":LE$│"0-9"л Л(20):Ё:WHICH$│IN$л""/'ЧЕ WHICH$│ Л(20) з щ 0,(9лNOPлNPROGRAM)н9:З"    There are no teacher options    on this diskette.":Бе 10120/║'ЬЕ  Й(WHICH$)┤1 ▒  Й(WHICH$)▓NPROGRAMлNOP з щ 32,(9лNOPлNPROGRAM)н9:З"Please enter a number from";:ъ:щ 32,(10лNOPлNPROGRAMS)н9:З "1 to";NPROGRAMSлNOP; Л(8);".";:ъ:Бе 101200
'жЕ  Й(WHICH$)┤│NPROGRAMS з 10160 :Д И  Й(WHICH$)мNPROGRAMS Бе 10200,10800,107000B'░ь:щ 0,91:З"Getting ";PROGRNME$( Й(WHICH$));"..."0a'║:ГLOAD PROGRAM AND EXECUTE0}'─╙ FILNME$( Й(WHICH$)),R0П'╫:ГEND OF MENU0░'╪:ГPRINT PROGRAM DESCRIPTIONS0▐'ть:Бж 210:щ 48,9:З"Program Descriptions":З0э'ьLINSLFT│131'ЎА I│1 е NPROGRAMS:А J│1 е DESCLN1>(L│J:Е PDESC$(I,J)│"" з J│DESCLNл1:L│Lм11F(
Л J1V(LNEEDED│2лL1ж(Е LNEEDED▓LINSLFT з є:ь:Бж 210:щ 48,9:З "Program Descriptions":З:LINSLFT│131┬((LINSLFT│LINSLFTмLNEEDED1р(2З:З "  ";PROGNME$(I);" -"1ю(<А J│1 е L2(FЗ "   ";PDESC$(I,J)2(PЛ J:З2(ZЛ I2(dє2R(nщ 60,9:З"Leaving a Program":х 32,45,255,191:с 42й(pЗ"While you are using MECC":З"software you may leave a":З"program by pressing the"3'(rЗ "CLEAR key twice.  This":З"will end the program you":З"are running and ask if you":З"want to run the program":З"again."3C(vх 0,0,255,191:є:с0::З:З3h(xЗ"A manual to aid in the use of"3К(ВЗ"this diskette is available"3Ю(МЗ"from MECC.":З3▌(ОЗ"Title: ";D1$;" #R"; П( И(200лDISKNUM), З( И(DISKNUM))м1)3Ё(ЦЗ"       ";D2$3Ў(аЗ4(кЗ"Direct inquiries to:"47(┤З:З"   MECC Distribution Center"4](╛З"   3490 Lexington Avenue North"4z(╚З"   St. Paul, MN 55112"4У(╥З"   (612) 481-3527"4Щ(▄є4ж(Ёь:щ 1,274╠(·З"If you have any problems using"4э)З"MECC courseware with your"5
)З"computer, write or call:"5))"З:З"    MECC Help Line"5P),З"    3490 Lexington Avenue North"5n)6З"    St. Paul, MN 55112"5И)@З"    (612) 481-3660"5к)BЗ:З"    Radio Shack Computer"5╙)DЗ"    Customer Service (Education)";5Ё)FЗ"    (800) 433-5682 or"6)HЗ"    (800) 772-8538 (Texas)"6)Jє6()Tь:WHICH$│""65)gБе 100006P)╠:ГRUN ANOTHER DISKETTE6V)╓ь6Е)рщ 0,91:З"Place the diskette in the drive."6Х)ъє:Т 32767,06в)ЇО "MENU"6и*/К6└*0:ГCOLOR BAR ROUTINE6╓*:CL$(1)│ б(20,143)6щ*<CW$(1)│"green"6 *DCL$(2)│ б(20,159)7*FCW$(2)│"yellow"7)*NCL$(3)│ б(20,175)7;*PCW$(3)│"blue"7Q*XCL$(4)│ б(20,191)7b*ZCW$(4)│"red"7x*bCL$(5)│ б(20,207)7Л*dCW$(5)│"white"7б*АCL$(6)│ б(20,255)7╡*ВCW$(6)│"orange"7┴*Оя:┐ 0,07Ї*ФЮ0:А L│1 е 6:З@Lн64,CL$(L); Л(128);CW$(L);:Л L8M*ЮЗ@482,                                                                                                                                                                                                                                                                      ┴ ╟─┴╟	┴
╟╟!"╟$%╟'()7+,-.401╟3├├┴╞┴ ╞┬         IL  BINGASTAND  PIC
SELAPPLECCC& SELLEMONCCCPATCH   BIN5HSELPLANTINSВMENU    BAS ░LOGO    PIC#
M-UTIL  BINGASTAND  PIC
SELAPPLECCC& SELLEMONCCCВPATCH   BIN5HSELPLANTINSВPSTAND  PIC/
LSTAND  PIC
SELPLANTCCC+SELBIKESCCC*FSELBIKESINS2~BIKESHOPPIC
SELLEMONINSLEMON   IMA9MDIMAGE  BIN:$MED FONTBIN6ГELLEMONCC 8В                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ]EDUCATION 1B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "press"; Л(128);"space"; Л(128);"bar"; Л(128);"to"; Л(128);"continue";:Т 135,08z*иA$│ Т:Е A$│"" з 10920 :Д ь:ї0:ю:Бе 100008Аu/К8Юy:ГENDING ROUTINE 08/10/838╜y":ГROUTINE HAS BEEN CHANGED8▌y,:ГSO THAT IT JUST GOES BACK8°y6:ГTO LINE NUMBER 100009y@с0:т0:Бе 100009*Аш:Г MOMENT ROUTINE 08/09/8398АЄт0: с0: ч9HА№х: ┴ 0,1: ь9SБщ 0,909pБЗ "One moment please..."9vБР9Ха(:ГERROR PROCESSING ROUTINE:а*ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E)):жа2Е  Ж(&H7F2D)│60 з щ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":є:К:╦а<щ 8н(16м( З(ZST$)о2)), 72:З ZST$;аFЗ:З"Please record this information":З"and report the error to MECC.";GаPБе 10730::Г GO TO RUN ANOTHER DISKETTE ROUTINE;MаZК;l├P:Г---> DISK & PROGRAM DATA;Ш├ZЖ 206,"Market Place","Version 01.00.00"<+├dЖ SELL APPLES,SELAPPLE/CCC,"This is a simulation on","running an apple stand.","You try to find the best","price for selling apples.","","",""<╒├xЖ SELL PLANTS,SELPLANT/INS,"This is a simulation on","operating a plant stand.","You set the price for","plants and decide how much","to spend on advertising.","",""=Л├аЖ SELL LEMONADE,SELLEMON/INS,"This is a simulation on","running a lemonade stand.","You try to make a profit","based on decisions about","production and advertising","costs.","">_├┤Ж SELL BICYCLES,SELBIKES/INS,"This is a simulation on","managing a bicycle company.","You must determine the","production level,","advertising budget, and","selling price that will","sell the most bicycles.">r╟8:Г---> OPTIONS>м╟BЖ General Information,Color Bars,Run Another Diskettehis is a simulation on","managing a bicycle company.","You must determine the","                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а  
А*А  *а*а*А 
А
А*а
а
а(а     А         
а
а"     "        
а
а" *а*А(*А   *а *А
а
а    "" *А     
а
а     А А        
а
а        *а *а  
А*а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
а
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка
кккккккккккккккккккккккккккка(**А*а *ккккА*ккккиикА*каки*кккккккакка*ки *кКкА
ки
ккакки*ккккккка*кк*кквкки*кккккккикккккквкки*кккккккиккккккккки ккккккккккккккиккккккккккккккккккикккккВк
ккАкккккккикккккВк
ккАккаккА
кВк
кк*кАкиА*кВк
кк*кАкакккккВк
ки
ккакккккВк
ки
ккАкккккк
ки
ккААкки
ккккикАкк
и
ккккикАкк
и*ккккикАккккк
и*ккккикАккккк
и*ккккикА
кк
и*ккккикА*кк
и*ккккикА*кк
и*ки
икА
ккккк
и*ки
кка
ккккк
и*ки
кка*кк
и*вк
кАки*кк
и*вк
кАки
кк
и*вкАкакк
кк
и*вкиккикккА*кккки
а*АккАкки*ккА ки
а*АккАкки*ккА ки*акАккА*ки
ккА ки*акА*кА*ки
ккА *и*акА
кА
киккА *и*акАкАкиккА*кккки*акАкАки*кАкккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк
("**
ИКА   И """ ВаИИИ "(""КВ ( и " ( ИВ И
 "*
ИВиа                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   $>$
:Г PROGRAM NAME:SELLING APPLES>?:Г COPYRIGHT MECC 1983>[:Г LAST UPDATE:05/11/84>j:Г AUTHOR:>Л:Г PROGRAMMER:CHAD C. COOPER>к:Г DISK NAME: MARKET PLACE>╦:Г ENVIROMENT:COLOR COMPUTER>▐:Г FILES USED:>Є
:Г DECLARATIONS>¤Х 2000?Бе 35?Бе 50?#└ 8:Бе 30?52:Г INITIALIZATION?A3Ў 41000?\7М PR(12),SO(12),IN(12)?g<IN$│""?ОA╣╠F(A)│Aм Б(Aо5)н5м5н( Б(Aо5)│Aо5)?вC╣╠A(X)│Xли(X▓5)?кF╚ 4?▒Pї0?╗Z┴ 0,1?╒d╙M"ASTAND/PIC",&H1800@9nAP$(1)│"L1H2L1U1L3U1L4D1L3D1L2D1L1D1L1D2L1D2L1D3L1D8R1D3R1D3R1D2R1D2R1D1R1D1R2D1R3D1R4U1R3U1R3"@ЭxAP$(2)│"R1D1R3D1R4U1R3U1R2U1R1U1R1U2R1U2R1U3R1U3R1U8L1U3L1U2L1U2L1U1L1U1L2U1L3U1L4D1L3D1L1G2L1"@╟ВAP$(3)│"R2U5R1U3R1U3R1U1R3U1R5D1R3D1"AМAP$(4)│"U1H2L1U1L1U2L1U3L1U5D1R2D1R2D1R1D1R1D2R1D3R1D4L1"AЦА L│1 е 5A!аН DAY$(L)A)кЛ LA:пТ &H7F71,255A@┤ьAF╛юAS╟Бе 10000Af╚:ГINSTRUCTIONSAl╥ьAw▄щ 0,54Aсс 4AвцЗ "This is a simulation about"A╦ЁЗ"selling apples.  You have set up";AЄ·З "a stand to sell apples.  Don't"B
З"worry about running out of"B:
З"apples.  You have several good"BH
З"trees."BN
"єBY
,щ 0,27BГ
6З "In this program, you will try to";Bи
@З "find the best price for your"B▒
Eс 13B└
JЗ"apples."B╚
Oс 4Bх
TЗ"If your price is high"C
^З"(50 cents), you will earn a"C-
hЗ "lot of money for each apple."CN
rЗ"However, you may not sell"Ch
wЗ "very many apples."Cn
|єCy
Жщ 0,36CЯ
РЗ"If your price is low (1 cent),"C┴
ЪЗ"you will sell many apples."Cш
дЗ"However, you will not earn much"Cё
йс 13D
оЗ"money for each apple."D
│с 4D<
╕З"The best selling price will be"Da
┬З "somewhere between 1 cent and"DВ
╠З "50 cents for each apple."DИ
╓єDУ
рщ 0,36D╖
ъЗ"After you set the price, the"D▐
ЇЗ"computer will tell you how many"E
■З"apples you have sold.  The"E(З "computer will also tell you how"EPЗ "much money your apple stand has"EYс 13EiЗ "earned."Eq!с 4EХ&З "O.K., ";NAME$;", let's sell"Eе0З "apples!"Eл:єE│Dс 0E╣WРE╬X:ГCLOSING REPORTE╘bьF lщ (255м З(DAY$(╠F(DAY)))н8м150)о2,0:З DAY$(╠F(DAY));"'s Closing Report"FVvщ (255м З(NA$)н8м120)о2,18:З NA$;"'s Apple Stand"FnА╗ (0,31)м(255,31),╜FиК╞ "BM210,48XAP$(1);XAP$(2);XAP$(3);BM-16,+11XAP$(4);"F│Фщ 0,45F╬ЮЗ "At";PR(DAY);"cent";FчбЕ PR(DAY)▓1 з З "s";F√гЗ " per apple,"G$иА L│1 е SO(DAY) й  Б(SO(DAY)о50)н2л1G<нщ 203,55:З ═ "##";LGQ▓А L1│1 е 20:Л L1GY╖Л LGv╣щ 203,55:З ═"##";SO(DAY)G╜╝щ 0,63:З "you sold";SO(DAY);"apple";:Е SO(DAY)│1 з З "." :Д З "s."G├┴ЇG▌╞Е DAY┤2 ▒ DAY▓5 з 790GЎ╦щ 0,81:З "That is ";H╨DIF│SO(DAY)мSO(DAYм1)H5╒Е DIF│0 з З "the same as":Бе 745HJ┌З  Л(8); В(DIF);Hh▀Е DIF▓0 з З"greater than"HГфЕ DIF┤0 з З"less than"HЧщЗ:З"yesterday."H╕ющ 0,117:З "Your estimate: ";HхєЕ VA│44 з З "fewer":щ 120,126:З "apples"I°Е VA│117 з З " same":щ 120,126:З "amount"IA¤Е VA│190 з З " more":щ 120,126:З "apples"I_╗ (118,115)м(169,136),╜,BIоЕ (DIF│0 ░ VA│117) ▒ (DIF┤0 ░ VA│44) ▒ (DIF▓0 ░ VA│190) з X$│"" :Д X$│"in"I▀щ 0,144:З "Your estimate was ";X$;"correct."IхЇJ<щ 0,81:ы:щ 0,81:З "You received";:З ═"$$#.##";IN(DAY);:З " in income":З:З"today.";JSЕ DAY┤5 з З:Бе 793J┼З "  That puts your total":З:З"sales so far at $"; П( И( Б(SU)), З( И( Б(SU)))м1);:З ═".##";(SUм Б(SU));:З"."J▄Е DAY▓5 з 798 :Д ЗKИ  Б(IN(DAY)м.25)л1 Бе 795,796,797,797KHЗ "You won't make very much money":З:З"at this rate.":Бе 798KДЗ "Not bad.  But there is a better":З:З "price.":Бе 798K╬З "Keep experimenting in this price":З"range to find the best price."K╘єK┌РKЇД:Г APPLE STAND SCREENK Оф 9728L	Ш╚ 3,5Lвї0Lмщ 0,99L%╢┴ 0,2L8└З "What price"LJ┼З :З "do you"L[╩З:З"want to"Ll╘З:З"charge?"Lv▐┴ 1,2LГшщ 88,153LСЄЗ "cents"LЮ№щ 64,153L╢FI$│"12S":LE$│"0-9"L╝ЁL╙PR(DAY)│ Й(IN$л"")LўЕ PR(DAY)┤1 ▒ PR(DAY)▓50 з 1020M$ф &H0E00M.╚ 4:ї0M8┴ 0,1MBьM%KРM8L:ГGRAPH SCREENMQV┴ 0,0:ь:╚ 3:ї0:┴ 0,0MW[ьMa`┴ 0,2MpjА L│1 е 10MЩtщ 0,24л(Lм1)н9:З  Р("INCOME IN",L,1)M├~щ 7,33л(Lм1)н9:З  Р("DOLLARS   ",L,1)M╦ИЛ LMрТА L│5 е 137 й 33N
ЬЕ L┤▓137 з щ 15,L:З  П( И(4м(Lм5)о33),1)N)ж╜(45,Lл3,3):╜(47,Lл3,3)N1░Л LNI║╗ (48,0)м(48,140),╜Nd─╗ (48,140)м(255,140),╜Nz╬А L│48 е 248 й 20NЙ╪╜(L,140,3)NШт╜(L,141,3)Nзь╜(L,142,3)NпЎЛ LN┬щ 16,143:З "0"N╓
щ 67,143:З "25"Nїт 255:щ 113,143:З "50":т 0Oщ 16,153:З "PRICE IN CENTS"O%(А L│1 е DAYOZ2╗ (48л4нPR(L),140)м(51л4нPR(L),140мIN(L)н33),╜,BOb<Л LOВZщ 0,171:З "Press SPACE BAR"OЦdЗ "to continue"OйnЕ  Т│"" з 1390O│x┴ 0,0O╣ВьO┐█РO▐▄:ГYOU FOUND THE BEST PRICEOфцьPЁщ 0,74:З " You have found the best price"P6·щ 51,91:З "for selling apples."PPщ 95,108:З "GOOD JOB"PVєP\?РPЖ@:ГWHAT IS THE BEST PRICE SO       FARPЩJ╚ 4:ї0:┴ 0,1:ьP┐TЗ "You have been in business for"Q^З  П( И(DAY), З( И(DAY))м1);" days.  Here's how you're":З"doing:"Q$hЗ "                Number"QLrЗ "Day     Price    Sold    Income"Qt|З "---     -----    ----    ------"Q|БM│0QМЖА L│1 е DAYQоРщ 0,54л(╠A(L))н9:З DA$(╠F(L))Q╙Ъщ 80,54л(╠A(L))н9:З ═ "##";PR(L)Q∙дщ 144,54л(╠A(L))н9:З ═ "##";SO(L)R#ощ 200,54л(╠A(L))н9:З ═ "$$#.##";IN(L)R@▒Е IN(L)│M з BQ│L:M│IN(L)R]│Е IN(L)▓M з BP│L:M│IN(L)Re╕Л LRЮ┬щ 0,╠A(DAY)н9л72:З "What do you think is the best  "R╛╠З "selling price so far? ";R╓╓FI$│"12S":LE$│"0-9"RчрЁ:IN$│IN$л""RЎхAN│ Й(IN$)S#ъЕ AN┤▓0 ░ (AN│PR(BP) ▒ AN│PR(BQ)) з 1799SVЇЕ DAY┤7 з щ 0,╠A(DAY)н9л99 :Д щ 0,╠A(DAY)н9л72Sw∙Е IN$┤▓"1" з X$│"s" :Д X$│""S╔■ы:З "There is a better price than":З IN$;" cent";X$;" in your summary list. "S■Ї:Е DAY┤7 з щ 0,╠A(DAY)н9л99 :Д щ 0,╠A(DAY)н9л72TыTБе 1730TРTF:ГGUESS HOW MANY APPLES YOU       WILL SELLTLьTZ&З "You ";TЖ0Е PR(DAY)▓PR(DAYм1) з З "raised ";:NU│2T│:Е PR(DAY)┤PR(DAYм1) з З "lowered ";:NU│1UR?Е PR(DAY)│PR(DAYм1) з З "did not change your price":З:З "today.  Estimate how many apples":З"you will sell today compared to":З:З"yesterday.":NU│3:Бе 1890UlDЗ "your price today."UТNЗ:З"Estimate how many apples you"U╖XЗ:З"will sell today compared to"U╦]З:З"yesterday."UЁbЗ:З "   Fewer     Same     More"VlЗ "   Apples   Amount   Apples    "V3vAR$│"U10L4E6F6L4D10L4"V?Ащ 0,131VdКЗ "Use the right and left arrow"VКФЗ:З "keys to select your answer."VоЮЗ:З "Then press the ENTER key."V┐иVA│5:Бе 1975V╙▓Е VA│78 з VA│44Vє╖╞ "C2BM"л И(VA)л",117XAR$;"W
╝├ (VAл2,108),0,0:CC│0W&╞N$│ Т:Е N$│"" з 1990W[╨N│ К(N$):Е N│12 з CC│CCл1:Е CC│2 з 31000 :Д 1990WР┌Е N│8 ░ VA▓81 з ├(VAл2,108),1,1:VA│VAм73:Бе 1970W╞фЕ N│9 ░ VA┤190 з ├(VAл2,108),1,1:VA│VAл73:Бе 1970WъюЕ N│13 з Е VA┤10 з 1990 :Д 2050WЎ°Бе 1990X-Е VA┤▓44 з щ 24,72:З "       ":щ 24,81:З "       "XeЕ VA┤▓117 з щ 88,72:З "       ":щ 88,81:З "       "XЯЕ VA┤▓190 з щ 160,72:З "       ":щ 160,81:З "       "X┐>╗(VAм25,68)м(VAл30,122),╜,BX┼\єX╦ЧРX▐':ГMAIN PROGRAMX·'щ 78,18:З "SELL APPLES"Y'$щ 0,80:З"What is your name? ";YY'.FI$│"1:S":LE$│"A-Z ":Ё :Г THE          COLLUN IS A '10'Yj'8NAME$│IN$л""Yv'Vщ 0,108YЩ'`З"Do you want instructions? ";Y│'jFI$│"13S":LE$│"A-Z":ЁZ'tЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,126:З "Please enter YES or NO.":Бе 10070Z%'~Е  О(IN$,1)│"Y" з Бж 200Z;'ИDAY│0:CO│ Д(22)л3ZI'ТDAY│DAYл1Zb'ЬБж 900 :ГAPPLE STANDZp'ЮJU│300оCOZ╤'ЯЕ PR(DAY)│▓CO з SO(DAY)│ Б((COп2)нJUо(PR(DAY)п2)л.5) :Д SO(DAY)│ Б((COмPR(DAY))оCOн.7нJUлJU)Zї'бINCOME(DAY)│PR(DAY)нSO(DAY)о100[
'гSUM│SUMлINCOME(DAY)[+'жЕ DAY▓1 ░ DAY┤6 з Бж 1800[G'░Бж 600 :ГCLOSING SCREEN[b'║Бж 1100 :ГGRAPH SCREEN[v*°Е DAY┤5 з 12000[В+Бж 1600[И+ь[л+Е PR(BP)│CO з Бж 1500:Бе 12010[┘+ щ 0,36:З "Athough";AN;"is correct, there"[Ў+*З:З "is a better price."\+/Е DAY│10 з IN$│"N":Бе 11110\C+4З:З:З "Do you want to sell apples for a"\j+>З "another day to try to find the"\И+Hщ 0,117:З "best price? ";\в+RFI$│"13S":LE$│"A-Z":Ё\ў+\Е  О(IN$л"",1)┤▓"Y" ░  О(IN$л"",1)┤▓"N" з З:З "Please enter YES or NO.":Бе 11080]+aщ 0,135:ъ]R+fЕ  О(IN$л"",1)│"N" з З:З "The best price is";CORRECT;"cents.":є:Бе 12010]_.рБе 10130]e.ъь]П.Їщ 0,55:З "Thanks for selling apples."]╢.■З:З"Remember the best price today"]┘/З:З"may not be the best price"]ь/З:З"tomorrow."]Є/є^y:ГENDING ROUTINE 08/15/83^&y"╚ 4,1: ф 3584: ї0^6y,т 0: с 0: ч^Cy6┴ 0,1: ь^ny@щ 0,91:З "Do you want to try again? ";^НyJIN$│"":FI$│"13S":LE$│"A-Z"^ЭyTТ 32625,255^пy^Ё: IN$│IN$л""^■ycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31040_yhЕ  О(IN$,1)│"Y" з Бж 33000:О_-yrь: щ 0,91_Oy|З "Returning to main menu..."_`yЖО "MENU.BAS"_Аш:Г MOMENT ROUDINE 08/09/83_НАЄт0: с0: ч_ЭА№х: ┴ 0,1: ь_иБщ 0,90_┼БЗ "One moment please..."_╦БР_ъа(:ГEROR PROCESSING ROUTINE`Гв╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZSD$л И( и(&H7F2E))a"в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єa_в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORaДв:щ 8н(16м( З(ZSD$)о2)), 72:З ZST$a═вDЗ:З"Please record this information":З"and report the error to MECC."aчвNє: Т 32767,0: О"MENU"aэвXКb├PЖ Monday,Tues /C&$
:Г PROGRAM NAME: SELL BICYCLES&?:Г COPYRIGHT MECC 1983&[:Г LAST UPDATE:02/15/84&j:Г AUTHOR:&Л:Г PROGRAMMER:CHAD C. COOPER&й:Г DISK NAME:MARKET PLACE&╩:Г ENVIROMENT:COLOR COMPUTER&┘:Г FILES :&э
:Г DECLARATIONS&°(Х 1000'2:Г INITIALIZATION'3:Г ERR 41000'*<IN$│""'2F╚ 4'9Pї0'CZ┴ 0,1'Idь'Onю'ЮxUS$│"$$#####":US$(1)│US$л"#":US$(2)│"####":US$(3)│US$(1)л"#":US$(4)│"$###"'л╟Бе 10000'╟╚:Г* PROGRAM SUBROUTINES'▀╥:Г MAIN SCREEN PT 1'є▄х 0,0,255,191:ь'¤цщ 0,0()ЁЗ "  Balance Sheet for Quarter";QUARTER(A·╗ (8,10)м(247,10),╜(f
щ 96,17:З "Company 1  Company 2"(Ф
╗ (96,26)м(167,26),╜:╗(183,26)м(255,26),╜(Я
щ 0,29(п
ъ:З "Price"(─
"ъ:З "Bikes Sold"(╓
,ъ:З "Profits"(х
6ъ:З "Cash"(∙
@ъ:З "Inventory")

Jъ:З "Assets")"
T╗ (0,89)м(255,89),╜)D
^щ 0,99:З "Production:      0")_
hЗ "Advertising:    $0")z
rЗ "Unit Price:     $0")в
|щ 0,133:З "Unit production cost =";)╢
ЖЗ ═ "$$###";CST)╝
ПР)╙
Р:ГMAIN SCREEN PT 2)т
ЪА L│1 е 2 *
дх 0,99,255,191:щ 0,99:З "Production:      0"*8
ощ 0,108:ы:З "Advertising:    $0"*]
╕щ 0,117:ы:З "Unit Price:     $0"*Е
┬щ 0,133:З "Unit production cost =";*Щ
╠З ═ "$$###";CST*н
╓х 0,149,255,191*╟
рщ 0,149:З "Company";L*у
ъх 0,164,255,191:щ 0,164+3
ЇЕ RFLAG│3 з З "No production possible due to":З"strike.":є:PLAV(L)│0:Бе 570+O
■З "Production level? ";+iFI$│"13S":LE$│"0-9":Ё+}PLEV(L)│ Й(IN$)+Рх 0,99,255,191+░&щ 112,99:З ═ US$(2);PLEV(L)+─0х 0,164,255,191+╩:ь+шDЗ "Advertising budget? ";,NFI$│"14S":LE$│"0-9":Ё,XAD(L)│ Й(IN$),'bх 0,99,255,191,Glщ 96,108:З ═ "$$####";AD(L),[vх 0,164,255,191,aАь,wКЗ "Unit price? ";,СФFI$│"13S":LE$│"0-9":Ё,йЮPRICE(L)│ Й(IN$)м99,╝их 0,99,255,191,▀▓щ 96,117:З ═ "$$####";PR(L)л99,є╖х 0,164,255,191-G╞Е PRICE(L)▓0 ░ PRICE(L)┤302 ░ (RFLAG┤▓1 ▒ (PRICE(L)┤│PHOLD(L) ░ RFLAG│1)) з 760-╖┌ь:З "Enter a price from $100 to ";:Е RFLAG┤▓1 з З "$400" :Д З "$"; П( И(PHOLD(L)л99), З( И(PHOLD(L)л99))м1)-╜фє-╚юБе 640-ч°Е LFLAG│1 з LFLAG│0:Бе 770-¤х 0,164,255,191:ь.	щ 0,164.,З "Are all entries correct? ";.FFI$│"13S":LE$│"A-Z":Ё.УЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З"Please enter YES or NO.":Бе  775.н Е  О(IN$,1)│"Y" з 820.╕*Бе 420.└4Л L.╥>х 0,0,255,191.╪ГР.шД:ГNEW GAME?.юОь/Шщ 76,18:З "SELL BICYCLES"/вщ 0,64/(мЗ "Options:"/I╢З:З "   1. Begin a new game"/i└З:З "   2. Continue a game"/И╩щ 0,118:З"Which number? ";/в╘FI$│"11S":LE$│"0-9":Ё/╢▐GAME│ Й(IN$л"")/ышЕ GA┤1 ▒ GA▓2 з З:З"Please enter 1 or 2.":Бе 970/∙ЄА L│1 е 20№MONEY(L)│17000:CASH(L)│50000.INVENTORY(L)│10006Л L0BCST│1200V$Е GAME│1 з 16900\.ь0g3щ 0,270П8З:З "What was the last quarter you"0дBЗ "completed? ";0╝LFI$│"12S":LE$│"0-9"0┬VЁ0┘`QUARTER│ Й(IN$л"")1"jЕ QUARTER│0 з З:З "Please enter a number from      1 to 99.":Бе 10751/oщ 0,63:ъ1[tщ 0,72:З "What was the unit production"1r~щ 0,81:З "cost? ";1АИFI$│"13S"1ЖТЁ1ЩЬCST│ Й(IN$л"")1эжЕ CST┤100 ▒ CST▓400 з З:З "Please enter a number from      100 to 400.":Бе 11502░х 0,99,255,1912║А L│1 е 22─ь2&╬З "Company";L2F╪З:З "How much cash did you"2VтЗ "have? ";2nьFI$│"15S":LE$│"0-9"2tЎЁ2ЛCASH(L)│ Й(IN$л"")2░
З:З "What was your inventory? ";2╚FI$│"13S":LE$│"0-9"2╬Ё2ъ(INVENTORY(L)│ Й(IN$л"")3-MONEY(L)│CASH(L)лINVEN(L)нCST3b.Е MONEY(L)│▓32000 з З:З "Your total assets must be less  than $32,000.":є:Бе 12203j2Л L3p<х3vFь3ЭPЗ "Did a price freeze or a strike"3└Zщ 0,9:З"start last quarter? ";3┌dFI$│"13S":LE$│"A-Z":Ё4(nЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 13704CxЕ  О(IN$,1)│"N" з 16904йВЗ:ъ:З "Was it a":З:З "  1. Price freeze":З"  2. Transportation strike":З "  3. Production strike"4╚Мщ 0,81:З "Which number? ";4тЦFI$│"11S":LE$│"0-9":Ё4ЇаRFLAG│ Й(IN$)5BкЕ RFLAG┤0 ▒ RFLAG▓3 з З:З "Please enter a number from":З"1 to 3.":Бе 14205X╚Е RFLAG┤▓1 з 16605f═FLAG(1)│15Р╥З:З "Did the freeze start in quarter"5ц▄щ 0,108:З  П( И(QUARTERм1), З( И(QUARTERм1))м1);" or quarter";QUARTER; Л(8);"? ";6,цFI$│ П( И( З( И(QUARTERм1))м1),1)л П( И( З( И(QUARTER))м1),1)л"S"6:ЁLE$│"0-9"6@·Ё6RQHOLD│ Й(IN$)6БЕ QHOLD┤▓QUARTER ░ QHOLD┤▓QUARTERм1 з 15006Нщ 0,1266Ы"А L│1 е 26╓,щ 0,99лLн27:З "Company";L; Л(8);", what price did you"76З "charge in quarter";QHOLD; Л(8);"? ";7@FI$│"13S":LE$│"0-9"7 JЁ7/MЕ L┤▓2 з З7ЙOЕ  Й(IN$)┤100 ▒  Й(IN$)▓400 з З "Please enter a number from      100 to 400.":Бе 15807бTPHOLD(L)│ Й(IN$)м997╖^PRICE(L)│PHOLD(L)7┐hЛ L7╦rБе 16907Є|З:З "Which quarter did the strike"84Жщ 0,108:З "occur, quarter";QUARTERм1;"or";QUARTER; Л(8);"? ";8lЛFI$│"1"л Р( И( З( И(QUARTER))м1),2)л"S":LE$│"0-9":Ё8СРQRETAIN│ Й(IN$):BQUARTER│QRETAIN8яХЕ QRETAIN┤QUARTERм1 ▒ QRETAIN▓QUARTER з З:З "Please enter";QUARTERм1;"or";QUARTER:Бе 16708їЪь8√гР9д:Г SCREEN UPDATE9'зщ 104,99:З "    0"9?ищ 104,108:З "   $0"9Wйщ 104,117:З "   $0"9qкЕ PR(1)│0 з PR(1)│м999Члщ 120,29:З ═ "$"лUS$(4);PR(1)л99;9▒мЕ PR(2)│0 з PR(2)│м999╓нщ 208,29:З ═ "$"лUS$(4);PR(2)л999їощ 128,38:З ═ US$(2);BS(1);:╕щ 216,38:З ═ US$(2);BS(2);:/┬щ 104,47:З ═ US$;PO(1):J╠щ 192,47:З ═ US$;PO(2):g╓щ 96,56:З ═ US$(1);CA(1):Ерщ 184,56:З ═ US$(1);CA(2):жъщ 128,65:З ═ US$(2);INVEN(1):╟Їщ 216,65:З ═ US$(2);INVEN(2):ф■щ 88,74:З ═ US$(3);MO(1);щ 176,74:З ═ US$(3);MO(2);щ 216,0:З QUARTER;Р;3:Г RANDOM EVENTS;BREVENT│0:х;_Е  Д(0)┤.1 з 2470 :ГFIRE;}&Е  Д(0)┤.1 з 2350 :ГTHEFT;Ь0Е  Д(0)┤.1 з 2230 :ГFREEZE;║:Е  Д(0)┤.1 з 2090 :ГTRANS;цDЕ  Б((QUARTERм1)о4)н4┤▓QUARTERм1 з 2699<NЕ  Д(0)┤.25 з 1970 :ГWORKERS< XВ NEW LABOR CONTRACT<2bCST│CSTл Д(5)<8vь<cАщ 0,64:З "New labor contract-variable"<ЕКЗ:З "production.  Cost now=";<ЩФЗ ═ US$(4);CST;<иЮЗ "/unit."<╢иє:Бе 2690<╠▓:Г WORKERS STRIKE<╥╝ь<▌╞щ 0,54=
╨З "There has been a strike and"=$┌З:З "your production has been"=NфЗ:З "halted.  Negotiations have been"=vюЗ:З "started, bet settlement hopes"=Й°З:З "are dim."=ХRFLAG│3=йQRETAIN│QUARTER=пє=╗ Бе 2690=╫*:ГTRANSPORTATION STRIKE=√4Е QUARTERмBQUARTER┤ Д(4) з 2699>>BQUARTER│QUARTER>Hь>!Rщ 0,36>E\З "A transportation strike has">nfЗ:З "occurred and you are unable to">ПpЗ:З "move your goods to the">╡zЗ:З "distributers.  Negotiations">╓ДЗ:З "have been started, but">·ОЗ:З "settlement hopes are dim."?ШRFLAG│2?вє?мБе 2690?1╢:Г WAGE PRICE FREEZE?A╗LNGTH│ Д(2)?G└ь?R╩щ 0,54?x╘З"The president has just imposed"?Э▐З:З "a wage-price freeze on the"?├шЗ:З "economy.  You may not raise"? ЄЗ:З "your price over the next";:Е LNGTH▓1 з З " 2" :Д З@.№З:З "quarter";:Е LNGTH│2 з З "s." :Д З "."@:	RFLAG│1@L	QHOLD│QUARTER@t	PHOLD(1)│PRICE(1):PHOLD(2)│PRICE(2)@В	$є:Бе 2690@Ш	.:Г EMPLOYEE THEFT@д	8L│ Д(2)@╨	BЕ QUARTERмQRETAIN┤2 ▒ CASH(L)┤│0 з 2699A	LЕ CASH(L)┤200 з LOSS│ Б(CASH(L)н.75) :Д LOSS│200A	VCASH(L)│CASH(L)мLOSSA$	`ьA/	eщ 0,63AW	jЗ "Company";L;"has been the victim"AЬ	tЗ:З "of theft of $"; П( И(LOSS), З( И(LOSS))м1);" by one of its"A┴	~З:З "workers.  Your cash is now"Aє	ИЗ:З "$"; П( И(CASH(L)), З( И(CASH(L)))м1);"."B	ТQRETAIN│QUARTERB	Ьє:Бе 2690B+	ж:Г WAREHOUSE FIREBH	░Е QUARTERмQKEEP┤2 з 2699BT	║L│ Д(2)Bf	─QKEEP│QUARTERBУ	╬CASH(L)│ Б(CASH(L)лCSTнINVENTORY(L)н.75)Bж	╪INVENTORY(L)│0Bм	тьB╖	ьщ 0,45B▀	ЎЗ "Company";L;"has suffered a fire"C
З:З "in its warehouse.  All units"C0

З:З "were destroyed.  Your insurance"CT
З:З "will reimburse you in the"C|
З:З "amount of 75% of the value of"CЦ
(З:З "the lost bikes."CЬ
2єCв
<ьCн
Fщ 0,72C╒
PЗ "Your inventory is now zero, but"C¤
ZЗ:З "the insurance money increased"D<
dЗ:З "your cash to $"; П( И(CASH(L)), З( И(CASH(L)))м1);"."DB
nєDO
ВREVENT│1DU
ЛРDk
Ё:ГYOU WON ROUTINEDБ
·FLAG(0)│FLAG(0)л1DФ
¤х 0,99,255,191DЪ
 ьDжщ 0,108D╥З "Congratulations Company";L; Л(8);"."D°З:З "You have reached $32,000 in"E"З:З "assets and W O N !"E''х 0,0,255,191E-,єE3SРECT:Г BANKRUPTEVYх 0,99,255,191E\^ьEhhщ 0,117EПmЕ MONEY(1)┤│0 ░ MONEY(2)┤│0 з 2960EШoс 13E─rЗ "Company";3мU; Л(8);", you have WON!"E╠xс 4EєyЗ "Unfortunately, Company";U;"has"F
|З "gone bankrupt."FЖБе 2980FNРс 4:З "Both companies have gone":с 13:З "bankrupt."FfЪЗ "Nobody has won."F|дс 0:х 0,0,255,191FВоєFИ╖РFШ╕:ГBANK LOANFЮ┬ьFй╠щ 0,54F┌╓З "Company";L; Л(8);", you ran out of cash."G
рЗ:З "A bank loaned you the money."G%ъЗ:З "Your interest payment is";GCяX$│ И( Б( В(CASH(L))о20))GbЇЗ " $"; П(X$, З(X$)м1);"."GhєGnРGМВ ENDING RANDOM ROUNTINESG─&Е RFLAG┤▓1 ▒ (RFLAG│1 ░ QUARTERмQHOLD┤LNGTH) з 3170G╩0ьG╒Dщ 0,81G■NЗ "The wage-price freeze has ended."HXє:RFLAG│0H;bЕ RFLAG┤▓2 ▒ QUARTERмBQUARTER┤ Д(2) з 3240HAlьHLvщ 0,72HsАЗ "Transportation strike settled."HШКЗ:З "Normal deliveries resumed."HЮФєHкЮRFLAG│0HфиЕ RFLAG┤▓3 ▒ (RFLAG│3 ░ QUARTERмQRETAIN┤ Д(2)) з 3399Hъ▓ьH№╝CST│CSTл Д(5)I╞щ 0,54I'╨З "Strike settled.  Normal"IJ┌З:З "production resumed.  New"IgфЗ:З "variable cost is ";I{юЗ ═ US$(4);CST;IН°З " per unit"Iп
З:З "due to increased wages."I╗
RFLAG│0I┴
єI╟
GРIх
H:ГPLAYERS TIES OVER 32000Iы
MєI 
Rх 0,0,255,191:ьJA
\щ 0,63:З "Both companies have more than   $32,000 in assets."Jv
fщ 0,90:З "Do you want to coninue":З "playing? ";JО
pFI$│"13S":LE$│"A-Z"JФ
zЁJт
ДЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 3430Jэ
ОA$│IN$K
ШЕ  О(A$,1)│"Y" з Бж 200:Бж 1700K
лРK*':ГMAIN PROGRAMK5'Бж 900KC'FLAG(9)│1KU'$х 0,0,255,191K['.ьKi'LFLAG(9)│0Kt'VБж 200Kе'`Е QUARTER▓5 ░ FLAG(9)┤▓0 ░ RFLAG│0 з Бж 1800K╟'tЕ BFLAG│1 ▒ REVENT│1 з Бж 200K▌'~FLAG(9)│1:BFLAG│0Kы'ИА L│1 е 2L
'ТMONEY(L)│CASH(L)лCSTнINVEN(L)L%'УЕ MONEY(L)┤│0 з U│LL-'ХЛ LLh'ЧЕ MONEY(1)┤│0 ▒ MONEY(2)┤│0 з Бж 1700:Бж 2900:Бе 31000Lt'ЬБж 1700LВ'жА L│1 е 2Lш'░Е MO(L)│▓32000 з Е MO(L)│MO(3мL) з Бж 3400:Е  О(A$,1)│"N" з 31000 :Д Бе 10180 :Д Бж 2800:Бе 31000LЁ'║Л LM'─QUARTER│QUARTERл1M'╬Бж 400M4'╪TADV│ADVERTISE(1)лADVERTISE(2)MЭ'тЕ TADV▓0 з VARIBLE(1)│ADVERTISE(1)оTADV:VARIABLE(2)│ADVERTISE(2)оTADV :Д VARIABLE(1)│0:VARIABLE(2)│0M┴'ьBASE│(50м50н Ч(м.001нTADV))н1.5M╧'ЎА L│1 е 2N(CASH(L)│CASH(L)м250мPLEV(L)нCSTмADVERTISE(L)N(
INVEN(L)│INVEN(L)лPLEV(L)NW(DEMAND(L)│.5н(50л2нVARIABLE(L)нBASE)о(PRICE(L)о65)п2N_(Л LNh((Q2│1NЗ(2Е PRICE(1)▓PRICE(2) з Q2│2N▓(<Q3│(PRICE(3мQ2)мPRICE(Q2))оPRICE(3мQ2)N╞(FЕ Q3┤.2 з 10370N┌(PЕ Q3▓.4 з Q3│.4N■(ZQ4│DEMAND(3мQ2)н((Q3м.2)о.2)н.4O(dDEMAND(3мQ2)│DEMAND(3мQ2)мQ4O<(nDEMAND(Q2)│DEMAND(Q2)лQ4OJ(ВА L│1 е 2Of(МЕ RFLAG│2 з DEMAND(L)│0Oн(ЦЕ DEMAND(L)▓INVEN(L) з BSOLD(L)│INVEN(L) :Д BSOLD(L)│ Б(DEMAND(L))O╪(аCASH(L)│CASH(L)лBSOLD(L)н(PRICE(L)л99)Oў(кINVEN(L)│INVEN(L)мBSOLD(L)P(┤VARIABLE(L)│ В( Б(CASH(L)н10)о100)PE(╛CASH(L)│CASH(L)м(.05нINVEN(L)нCST)PЕ(╚CASH(L)│CASH(L)м.05нCASH(L)н( А(CASH(L))м В( А(CASH(L))))о2Pз(╥Е CASH(L)┤0 з Бж 3000:BFLAG│1P┐(▄CASH(L)│ Б(CASH(L))Pё(цPOFIT(L)│ Б(CSTнINVEN(L)лCASH(L)мMONEY(L)л.5)P∙(ЁЛ LQ&(·Е RFLAG┤▓0 з Бж 3100:Е RFLAG│0 з BFLAG│1Q3)Бе 10080QQy:ГENDING ROUTINE 08/15/83Qgy"╚ 4,1: ф 3584: ї0Qwy,т 0: с 0: чQДy6┴ 0,1: ьQПy;щ 0,91Q│y@З "Do you want to try again? ";Q╙yJIN$│"": FI$│"13S":LE$│"A-Z"QуyTТ 32625,255Qїy^Ё: IN$│IN$л""RDycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31035RtyhЕ  О(IN$,1)│"Y" з Бж 33000:О "SELBIKES/INS"RВyrь: щ 0,91Rдy|З "Returning to main menu..."R╡yЖО "MENU.BAS"R╘Аш:Г MOMENT ROUTINE 08/09/83RтАЄт0: с0: чRЄА№х: ┴ 0,1: ьR¤Бщ 0,90SкккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккйUкккккккккккккккккккккккккккккйUUZккккккккккккйUккккккккккккккеUUVккккккккккккХUZкккккккккккккеUUVккккккккккккUUVкккккккккккккХUUVккккккккккккUUUккккккйUjккккХUUVкккккккккккйUUUккккккеUZккккХUUZкккккккккккйUUUккккккХUVккккеUUjкккккккккккйUUUккккккUUVккккйUUккккккккккккйUUVкккккйUUVкккккйVккккккккккккйUUVкккккйUUVккккккккккккккккккккUUVкккккеUUVккккккккккккккккккккХUZкккккеUUVккккккккккккккккккккйUккккккйUUZкккккккккккккккккккккккккккккUijкккккккккккккккккккккккккккккекккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккХUUUUUUUUUjкеjккккккккккккккккккХUUUUUUUUUZкеjккккккккккккккккккХUUUUUUUUUVкйкккккккккккккккккккФкй
ккккккккккккккккСUUUUUUUUUUкйакКккккккккккккккккСUUUUUUUUUUкйЪ КккккккккккккккккСUUUUUUUUUUкйfUКккккккккккккккккСUUUUUUUUUUкйЪ КкккккккккккккккUUUUjкеUUU
fUАUUUUeeeUUU
∙ Аййййeefжже
_UАййййeefжже
ї Аййййeefжже
пкАййййeefжже

ййййeefжже
ййййeefжже
UUUUeeeUUU
UUUUeeeUUU
UUUUeeeUUU
UUUUeeeUUU
UUUUeeeUUU
UUUUeeeUUU
UUUUeeeUUU

UUUUjкеUUU

UUUUUUUUUU









              ╒ў▀▀}_╫▀ў▀u}ў▌╫]_}▀▌▀╒╫}ў№ў▌╒]▀}▀▌▀▌╒}ў№ў▌▌▌▀}▀▌▀▌▌}ї|ў▌▀▌_}▀╫▀╒▀} |ў▌▀▌▀}▀▀▀▌▀} |ўў▀▌▀▀╒▌▀}ї               └?└?└?└?└?└@@?└?└
@P
?└A
EDA?└UUAD?└@@@AP?└@@@@?└@DP?└T
E?└E
@?└@@?└@@?└@@?└*икА*и?└*икА*и?└*икА*и?└
ак
а?└
ак
а?└
ак
а?└
ак
а?└
ак
а?UUUUUUUUUUUUUUUUU                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤                ¤UUUUUUUUUUUUUUUUU                 ¤                ¤                ¤                ¤                ¤                ¤                ¤UUUUUUUUUUUU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 {>1
:Г PROGRAM NAME: SELL BICYCLES INSTRUCTIONS>L:Г COPYRIGHT MECC 1983>i:Г LAST UPDATE: 02/17/84>x:Г AUTHOR:>Щ:Г PROGRAMMER:CHAD C. COOPER>╖:Г DISK NAME:MARKET PLACE>╪:Г ENVIROMENT:COLOR COMPUTER>ы:Г FILES USED:> 
:Г DECLARATIONS?	Бе 40?Бе 50?'(└ 8:Х 100:Бе 30?=2:Г INITIALIZATION?I3Ў 41000?T<IN$│""?^F╚ 4,1?ePї0?oZ┴ 0,1?unю?Сx╙M"BIKESHOP/PIC",&H1800?ЯВф &HE00:ь?м╟Бе 10000?┐Д:ГINSTRUCTIONS?╤Ох 0,0,255,191?╫Шь?твщ 0,36?ъзс 4@мЗ "This is a simulation for two"@7╢З "groups.  Each group will manage"@@╗с 13@[└З "a bicycle company."@c╩с 4@Г╘З "At the beginning of the"@з▐З"simulation, each company has"@╬шЗ"$5,000 in cash and 100 bicycles"@чЄЗ"in the warehouse."@эўєA№щ 0,27:З "There is a fixed production"A!
с 13ACЗ "cost of $250 per quarter."AKс 4ArЗ "There is a 10% interest charge"AЪ$З "if you run out of cash and have"Aг)с 13A╝.З "to borrow money."A─3с 4Aы8З "There is a 5% warehouse charge"B=З "on the value of your inventory"B6BЗ "at the end of each quarter."B<GєBELс 13BkVЗ "Each quarter you must decide:"BТ`З"  *  How many bicycles to make;"BЪeс 4B╝jЗ"  *  How much to spend for"B┼oс 13B▀tЗ "     advertising;"Bчyс 4C~З"  *  What price to charge for"CГс 13C,ИЗ "     bicycles."C4Чс 4C\ЬЗ "The first company to get assets"Ceбс 13CЖжЗ"of $32,000 wins the game."CОлс 4C╡░З "Do not look at the values that"C╒║З "the other group enters."C█─єCсРCЇ':ГMAIN PROGRAMC■'╚ 4,5D'$ї0D'.┴ 0,1D'8ф&H2600D2'`щ 99,9:З "S E L L"DR'jщ 67,27:З "B I C Y C L E S"D~'tщ 0,162:З "Do you want instructions? ";DШ'~FI$│"13S":LE$│"A-Z":ЁDэ'ИЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з щ 0,180:З "Please enter YES or NO.":Бе 10100D·'Н╚ 4,1:ї0E'О┴ 0,1E'Пф &H0E00E.'ТЕ  О(IN$,1)│"Y" з Бж 900E;'ЬБж 33000EH'жБе 10170EU'░Бе 10180Ef'║└ 4:Бе 10160Ez'─О "SELBIKES/CCCEШy:ГENDING ROUTINE 08/15/83Eоy"╚ 4,1: ф 3584: ї0E╛y,т 0: с 0: чE╦y6┴ 0,1: ьE╓y;щ 0,91E·y@З "Do you want to try again? ";FyJIN$│"": FI$│"13S":LE$│"A-Z"F*yTТ 32625,255F<y^Ё: IN$│IN$л""FЛycЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31035FмyhЕ  О(IN$,1)│"Y" з Бж 33000:ОF║yrь: щ 0,91F▄y|З "Returning to main menu..."FэyЖО "MENU.BAS"GАш:Г MOMENT ROUTINE 08/09/83GАЄт0: с0: чG*А№х: ┴ 0,1: ьG5Бщ 0,90GRБЗ "One moment please..."GXБРGwа(:ГERROR PROCESSING ROUTINEHа2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Hпа<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єHьаF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORIаPщ 8н(16м( З(ZST$)о2)), 72:З ZST$IZаZЗ:З"Please record this information":З"and report the error to MECC."Itаdє: Т 32767,0: О"MENU"IzаnКicker and replace the":З"diskette in the drive.":єHьаF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORIаPщ 8н(16м( З(ZSENTORY(L)│ Й(IN$л"")22Л L2!<х2'Fь2NPЗ "Did a price freeze or a strike"2qZщ 0,9:З"start last quarter? ";2ЛdFI$│"13S":LE$│"A-Z":Ё2┘nЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or No.":Бе 13702ЇxЕ  О(IN$,1)│"N" з 16903^ВЗ:ъ:З "Was it a":З:З "  1. price freeze,":З"  2. transportation strike, or":З "  3. production stike"3}Мщ 0,81:З "Which number? ";3ЧЦFI$│"11S":LE$│"0-9":Ё3эаЕ  Й(IN$)┤0 ▒  Й(IN$)▓3 з З:З"Please enter a number between":З "1 and 3.":Бе 14204	кЕ  Й(IN$)│1 з FLAG(1)│14%┤Е  Й(IN$)│2 з FLAG(5)│14A╛Е  Й(IN$)│3 з FLAG(2)│14Y╚Е  Й(IN$)┤▓1 з 16904Г╥З:З "Did the freeze start in quarter"4╝▄щ 0,108:З QUARTERм1;"or quarter";QUARTER; Л(8);"? ";5цFI$│ П( И( З( И(QUARTERм1))м1),1)л П( И( З( И(QUARTER))м1),1)л"S"5ЁLE$│"0-9"5·Ё5(QHOLD│ Й(IN$)5WЕ QHOLD┤▓QUARTER ░ QHOLD┤▓QUARTERм1 з 15005cщ 0,1265q"А L│1 е 25в,З:З "Company";L; Л(8);", what price did you"5╬6З "charge in quarter";QHOLD; Л(8);"? ";5ц@FI$│"13S":LE$│"0-9"5ьJЁ6TPHOLD(L)│ Й(IN$)м996^PRICE(L)│PHOLD(L)6"hЛ L6(Ъь6.гР6Dд:Г* RANDOM EVENTS6[оЕ QUARTER┤6 з 25306q╕Е  Д(0)┤.1 з 18706З┬Е  Д(0)┤.1 з 19906Э╠Е  Д(0)┤.1 з 21106┤╓Е  Д(0)│▓.1 з 17706срЕ FLAG(1)┤▓1 ░ QUARTERмBQUARTER▓2 з 23107%ъЕ  Б((QUARTERм1)о4)н4┤▓QUARTERм1 ▒ QUARTER│1 ▒ FLAG(1)│1 з 25307IЇЕ  Д(0)┤│.25 ▒ QUARTER▓5 з 24307b■:ГNEW LABOR CONTRACT7ВCST│ Б(CSTн(1.05л.1н Д(0)))7И
ь7╡щ 0,45:З:З "New labor contract-variable"7╫З:З "production.  Cost now=";7ь&З ═ "$$###";CST;7√0З "/unit."8
БЗ "One moment please..."S БРS?а(:ГERROR PROCESSING ROUTINES╪а2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Twа<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єT┤аF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORT┘аPщ 8н(16м( З(ZST$)о2)), 72:З ZST$U"аZЗ:З"Please record this information":З"and report the error to MECC."U<аdє: Т 32767,0: О"MENU"UBаnКicker and replace the":З"diskette in the drive.":єT┤аF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORT┘аPщ 8н(16м( З(ZST$)о2)), 72:З ZST$U"аZЗ:З"Please record this informationy";L;"has suffered a fire";AfЗ:З "in its warehouse.  All units";kpЗ:З "were destroyed.  Your insurance";ПzЗ:З "will reimburse you in the";╖ДЗ:З "amount of 75% of the value of";╤ОЗ:З "the lost bikes.";╫Шє<вCASH(L)│CASH(L)лCSTнINVENTORY(L)н.75<мINVENTORY(L)│0<B╢щ 0,54:З "Your inventory is now zero, but"<j└З:З "the insurance money increased"<В╩З:З "your cash to";<д╘З ═ "$$#####"; Б(CASH(L)л.5);<┤▐З  Л(8);"."<╟шQSTORE│QUARTER<═Єє<┘№Бе 1750<ї	:ГTRANSPORTATION STRIKE=	QSAVE│QUARTER=
	ь=8	щ 0,32:З "A transportation strike has"=`	$З:З "occured and you are unable to"=Д	.З:З "to move your goods to the"=к	8З:З "distributers.  Negotiations"=╠	BЗ:З "have been started,  but"=Ё	LЗ:З "settlement hopes are dim."=■	VFLAG(5)│1>	`QKEEP│QUARTER>	jє>"	tБе 1770>7	~:ГWORKERS STRIKE>=	Гь>h	Ищ 0,32:З "There has been a strike and">Л	ТЗ:З "your production has been">╡	ЬЗ:З "halted.  Negotiations have been">▌	жЗ:З "started, but settlement hopes">Ё	░З:З "are dim.">■	║FLAG(2)│1?	─CST│ Б(CSTн(1.1л.1н Д(0)))?1	╬QRETAIN│QUARTER?7	╪є?U	т:ГENDING OF RANDOM EVENTS?	ьЕ FLAG(1)┤▓1 ▒ QUARTER┤QHOLDл2 з 2580?Н	ЎFLAG(1)│2?╢
З "The wage-price freeze has ended."?╝

є?ф
Е FLAG(5)┤▓1 ▒ QKEEP│QUARTER з 2630?Є
FLAG(5)│0@ 
(щ 0,63:З "Transprotation strike settled."@E
2З:З "Normal deliveries resumed."@K
<є@u
FЕ FLAG(2)┤▓1 ▒ QRETAIN│QUARTER з 2799@Ь
Pщ 0,45:З "Strike settled.  Normal"@┐
ZЗ:З "production resumed.  New"@▄
dЗ:З "variable cost is ";@Ё
nЗ ═"$$###";CST;A

xЗ "per uni>О.1╝┴T&|p╒ОpЯйО╥╥┐t▌Жщ╖tуО╠┐uxО2ОpЖцАчаJ&∙9Б 'Бс%
L~к   *-CODE


DX   #CODE
       LDY   #CODADR
       LDA   #CODLEN
LMU2   LDB   ,X+
       STB   ,Y+
       DECA
       BNE   LMU2
       RTS

CODE   CMPA  #$FF
       BEQ   CODE1
       Бе 35'Бе 50'#└ 8:Бе 30'52:Г INITIALIZATION'A3Ў 41000'\7М PR(12),SO(12),IN(12)'g<IN$│""'ОA╣╠F(A)│Aм Б(Aо5)н5м5н( Б(Aо5)│Aо5)'вC╣╠A(X)│Xли(X▓5)'кF╚ 4'▒Pї0'╗Z┴ 0,1'╒d╙M"ASTAND/PIC",&H1800(9nAP$(1)│"L1H2L1U1L3U1L4D1L3D1L2D1L1D1L1D2L1D2L1D3L1D8R1D3R1D3R1D2R1D2R1D1R1D1R2D1R3D1R4U1R3U1R3"(ЭxAP$(2)│"R1D1R3D1R4U1R3U1R2U1R1U1R1U2R1U2R1U3R1U3R1U8L1U3L1U2L1U2L1U1L1U1L2U1L3U1L4D1L3D1L1G2L1"(╟ВAP$(3)│"R2U5R1U3R1U3R1U1R3U1R5D1R3D1")МAP$(4)│"U1H2L1U1L1U2L1U3L1U5D1R2D1R2D1R1D1R1D2R1D3R1D4L1")ЦА L│1 е 5)!аН DAY$(L)))кЛ L):пТ &H7F71,255)@┤ь)F╛ю)S╟Бе 10000)f╚:ГINSTRUCTIONS)l╥ь)w▄щ 0,54)сс 4)вцЗ "This is a simulation about")╦ЁЗ"selling apples.  You have set up";)Є·З "a stand to sell apples.  Don't"*
З"worry about running out of"*:
З"apples.  You have several good"*H
З"trees."*N
"є*Y
,щ 0,27*Г
6З "In this program, you will try to";*и
@З "find the best price for your"*▒
Eс 13*└
JЗ"apples."*╚
Oс 4*х
TЗ"If your price is high"+
^З"(50 cents), you will earn a"+-
hЗ "lot of money for each apple."+N
rЗ"However, you may not sell"+h
wЗ "very many apples."+n
|є+y
Жщ 0,36+Я
РЗ"If your price is low (1 cent),"+┴
ЪЗ"you will sell many apples."+ш
дЗ"However, you will not earn much"+ё
йс 13,
оЗ"money for each apple.",
│с 4,<
╕З"The best selling price will be",a
┬З "somewhere between 1 cent and",В
╠З "50 cents for each apple.",И
╓є,У
рщ 0,36,╖
ъЗ"After you set the price, the",▐
ЇЗ"computer will tell you how many"-
■З"apples you have sold.  The"-(З "computer will also tell you how"-PЗ "much money your apple stand has"-Yс 13-iЗ "earned."-q!с 4-Ф&З "O.K. ";NAME$;", let's sell"-д0З "apples!"-к:є-▓Dс 0-╕WР-═X:ГCLOSING REPORT-╙bь.lщ (255м З(DAY$(╠F(DAY)))н8м150)о2,0:З DAY$(╠F(DAY));"'s Closing Report".Uvщ (255м З(NA$)н8м120)о2,18:З NA$;"'s Apple Stand".mА╗ (0,31)м(255,31),╜.зК╞ "BM210,48XAP$(1);XAP$(2);XAP$(3);BM-16,+11XAP$(4);".▓Фщ 0,45.═ЮЗ "At";PR(DAY);"cent";.цбЕ PR(DAY)▓1 з З "s";.·гЗ " per apple,"/#иygД` z
l4@@@@@@@аааP°PP°P@`А└  └@РР  @@РР@аа@└иРh@@А`└АААА└`└`    `└ иppи @@р@@└└@└р└└  @@АА@аааааа@@└@@@@@р@а  @ААр@а @  а@ ааар   рАА└  а@@аА└ааа@р   @@@@@аа@ааа@@ааа` а@└└└└└└└└@└ @АА@ ррА@  @А`Р`@@pИи╕Аp`РРРЁРРРрРРрРРРр`РААААР`рРРРРРРрЁААЁАААЁЁААЁАААА`РАА░РР`РРРЁРРРРр@@@@@@рР`РРа└└аРРАААААААЁИ╪╪ииИИИРР╨╨░░РР`РРРРРР`рРРРрААА`РРРР╨аPрРРРр└аР`РА`Р`°       РРРРРР░PИИИPPP  ИИИии╪╚ИИИP  PИИИИPP    Ё  @@АЁрААААААрАА@@  р      р p°и  ЁЁЁЁЁЁЁЁЁ└ рарААА└ааа└`ААА`   `ааа`@арА` P@@р@@@`аа` └ААА└аааа@└@@@р `  аа@АААа└└аа└@@@@@@р╨ииии└аааа@ааа@└аа└АА`аа`  └аАААрАр р@@@р@@P аааарааа@@ИИииPаа@ааааа` └р @Арр@@@@@@рР`РРа└└аРРАААААААЁИ╪╪ииИИИРР╨╨░░РР`РРРРРР`рРРРрААА`РРРР╨аPрРРРр└аР`РА`Р`°       РРРРРР░PИИИPPP  ИИИии╪╚ИИИP  PИИИИPP    Ё  @@АЁрААААААрАА@@  р      р p°и    └ рарААА└ааа└@аАа@   `ааа`
└аааа@ааа@└аа└АА`аа`  └аАААрАр р@@@р@@P аааарааа@@ИИииPаа@аа gД└ рарААА└ааа└@аАа@   `ааа`
25
шщ 88,1535ЄЗ "cents"5(№щ 64,1535@FI$│"12S":LE$│"0-9"5FЁ5]PR(DAY)│ Й(IN$л"")5uЕ PR(DAY)▓50 з 10205В$ф &H0E005Н.╚ 4:ї05Ч8┴ 0,15ЭBь5гKР5╢L:ГGRAPH SCREEN5╧V┴ 0,0:ь:╚ 3:ї0:┴ 0,05╒[ь5▀`┴ 0,25юjА L│1 е 106tщ 0,20л(Lм1)н9:З  Р("PROFITS IN",L,1)6B~щ 7,33л(Lм1)н9:З  Р("DOLLARS   ",L,1)6JИЛ L6_ТА L│5 е 137 й 336МЬЕ L┤▓137 з щ 15,L:З  П( И(4м(Lм5)о33),1)6иж╜(45,Lл3,3):╜(47,Lл3,3)6░░Л L6╚║╗ (48,0)м(48,140),╜6у─╗ (48,140)м(255,140),╜6∙╬А L│48 е 248 й 207╪╜(L,140,3)7т╜(L,141,3)7&ь╜(L,142,3)7.ЎЛ L7Aщ 16,143:З "0"7U
щ 67,143:З "25"7tт 255:щ 113,143:З "50":т 07Фщ 16,153:З "PRICE IN CENTS"7д(А L│1 е DAY7┘2╗ (48л4нPR(L),140)м(51л4нPR(L),140мIN(L)н33),╜,B7с<Л L8
Zщ 0,171:З "Press SPACE BAday,Wednesday,Thursday,Friday":єa_в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORaДв:щ 8н(16м( З(ZSD$)о2)), 72:З ZST$a═вDЗ:З"Please record this information":З"and report the error to MECC."aчвNє: Т 32767,0: О"MENU"aэвXКb├PЖ Monday,Tues   FAR9J╚ 4:ї0:┴ 0,1:ь9>TЗ "You have been in business for"9m^З DAY;"days.  Here's how you're":З"doing:"9МhЗ "                Number"9┤rЗ "Day     Price    Sold    Income"9▄|З "---     -----    ----    ------"9фБM│09ЇЖА L│1 е DAY:Рщ 0,54л(╠A(L))н9:З DA$(╠F(L)):;Ъщ 80,54л(╠A(L))н9:З ═ "##";PR(L):aдщ 144,54л(╠A(L))н9:З ═ "##";SO(L):Лощ 200,54л(╠A(L))н9:З ═ "$$#.##";IN(L):и▒Е IN(L)│M з BQ│L:M│IN(L):┼│Е IN(L)▓M з BP│L:M│IN(L):═╕Л L;┬щ 0,╠A(DAY)н9л72:ъ:З "What do you think is the best";(╠ъ:З "selling price so far? ";;@╓FI$│"12S":LE$│"0-9";QрЁ:IN$│IN$л"";~ъЕ  Й(IN$)│PR(BP) ▒  Й(IN$)│PR(BQ) з 1799;▒ЇЕ DAY┤7 з щ 0,╠A(DAY)н9л99 :Д щ 0,╠A(DAY)н9л72;ў■З "There is a better price than":З  Й(IN$);"in your sumary list."<Е DAY▓6 з Ї<Бе 1730<Р<I:ГGUESS HOW MANY APPLES YOU       WILL SELL<Oь<]&З "You ";<Й0Е PR(DAY)▓PR(DAYм1) з З "raised ";:NU│2<╢:Е PR(DAY)┤PR(DAYм1) з З "lowered ";:NU│1=U?Е PR(DAY)│PR(DAYм1) з З "did not change your price":З:З "today.  Estimate how many apples":З"you will sell today compared to":З:З"yesterday?":NU│3:Бе 1890=oDЗ "your price today."=ХNЗ:З"Estimate how many apples you"=║XЗ:З"will sell today compared to"=╧]З:З"yesterday? "=ЇbЗ:З "   Fewer     Same     More">lЗ "   Apples   Amount   Apples    ">7vAR$│"U10L4E6F6L4D10L4">CАщ 0,135>hКЗ "Use the right and left arrow">ОФЗ:З "keys to select your answer.">▓ЮЗ:З "Then press the ENTER key.">├иVA│5:Бе 1975>╫▓Е VA│78 з VA│44>ў╖╞ "C2BM"л И(VA)л",117XAR$;"?╝├ (VAл2,108),0,0?%╞N$│ Т:Е N$│"" з 1990?2╨N│ К(N$)?g┌Е N│8 ░ VA▓81 з ├(VAл2,108),1,1:VA│VAм73:Бе 1970?ЮфЕ N│45 ░ VA┤190 з ├(VAл2,108),1,1:VA│VAл73:Бе 1970?┬юЕ N│13 з Е VA┤10 з 1990 :Д 2050?╬°Бе 1990@Е VA┤▓44 з щ 24,72:З "       ":щ 24,81:З "       "@=Е VA┤▓117 з щ 88,72:З "       ":щ 88,81:З "       "@wЕ VA┤▓190 з щ 160,72:З "       ":щ 160,81:З "       "@Ж А L│1 е 12@з*╗ (VAм25,68)м(VAл30,122),╜,B@╝4А L1│1 е 40:Л L1@▄>╗(VAм25,68)м(VAл30,122),╛,B@ёHА L1│1 е 40:Л L1@∙RЛ L@ ЧР $&#
:Г PROGRAM NAME:SELL LEMONADE&>:Г COPYRIGHT MECC 1983&Z:Г LAST UPDATE:05/11/84&i:Г AUTHOR:&К:Г PROGRAMMER:CHAD C. COOPER&и:Г DISK NAME:MARKET PLACE&╔:Г ENVIROMENT:COLOR COMPUTER':Г FILES USED: SELLEMON/INS, LEMON/IMA AND DIMAGE/BIN'
:Г DECLARATIONS')Х 1000,&H69BD'>(М WD$(12),WP(12)'T2:Г INITIALIZATION'`3Ў 41000'k<IN$│""'}A╙M"LEMON/IMA"'РC╙M"DIMAGE/BIN"'ШF╚ 4'ЮPю'иZ┴ 0,1'оdь'╡nї0'╒xGL$│"D16U16R1D17R8U17R1D16"(ВUS$│"###.##":F1$│"###":F2$│"##":F3$│"#.##"(*МSN$│"D9R1U9R11D9R1U9D9L7D9R1U9L6"(JЦА L│1 е 12:Н WP(L),WD$(L):Л(fаА L│1 е 10:Н LN1(L):Л L(еIM│&H7FA0:IGO│&H6F00(гкТ IMл2,1:Т IMл1,1:Є IMл3,&H69BD(╚┤CE$│"G1L1D1U1L1H1U2E1R1U1D1R1F1"(╒╟Бе 10000(ч╚:ГMAIN SCREEN(э╥ь)▄:ГUPPER LEFT BOX)#цЕ DISPLAY│0 ▒ DISPLAY│3з 300)9Ёэ 0,0,45,45,0,0,0)S·э 1,1,44,44,255,255,0)Р
Е DISPLAY│1 з щ 0,48:З "50% Chance of rain":Т IM,3:в IGO)╞
Е DISPLAY│2 з щ 0,48:З "Hot & sunny":Т IM,1:в IGO)√
Е DISPLAY│4 з щ 0,48:З "No traffic":Т IM,2:в IGO*,
"Е DISPLAY│5 з щ 0,48:З "Stormy":Т IM,4:в IGO*F
,:ГMAIN BOX AND SCREEN*a
6э 120,60,255,136,0,0,0*А
@э 122,62,253,134,255,255,0*Т
Jх 48,0,255,93*┬
Tщ 48,0:З "Lemonade Stand";STAND;"- Day";DAY*Є
^щ 48,18:З"Lemonade:";LCST; Л(8);"  a glass"+

c╞ "BM140,23C2XCE$;"+
hЗ "to produce."+0
rх 0,0,255,191+M
|щ 123,62:З "  Assets: ";+f
ЖЗ ═ US$;MONEY(STAND)+
Йэ 1,74,10,88,85,85,0,
КЕ MONEY(STAND)┤LCSTо100 з щ 0,72:З "You are":З"bankrupt.":є:GLASS(STAND)│0:LEMON(STAND)│0:VSIGN(STAND)│0:SIGN(STAND)│0:CHARGE(STAND)│0:FLAG│STNAD:Бе 799,0
Л╞ "BM0,72XGL$;",H
Рщ 16,72:З"How many",b
Ъщ 16,81:З"glasses? ";,С
дFI$│"12S":LE$│"0-9":Ё:GLASS(STAND)│ Й(IN$),ё
йЕ LCSTнGLASS(STAND)нм1о100лMONEY(STAND)┤0 з щ 0,171:З"  You can't afford that much.":Бе 410, 
кщ 0,171:ъ-
ощ 123,71:З "Lemonade: ";-A
╕LEMON(STAND)│LCSTн Й(IN$)нм1о100-Z
┬З ═ US$;LEMON(STAND)-t
╠╗ (205,84)м(252,84),╜-О
╓╗ (205,85)м(252,85),╜-╜
рщ 203,89:З ═ US$;MONEY(STAND)лLEMON(STAND)-╥
ъ╞ "BM0,108XSN$;"-э
Їэ 2,109,11,116,85,85,0.
■щ 16,99:З "How many".$щ 16,108:З "signs at 15 ".=
╞ "BM110,113C2XCE$;".Vщ 16,117:З "each? ";.pЁ:SIGN(STAND)│ Й(IN$).╫!Е 15н Й(IN$)нм1о100лMONEY(STAND)лLEMON(STAND)┤0 з щ 0,171:З "  You can't afford that much.":Бе 530.х#щ 0,171:ъ/&VSIGN(STAND)│15нSIGN(Ci╜
!,7,,                                ¤    ¤¤    ¤¤■   ■}№   }¤   =√   ╧=єє  ч ўч  є  ╧  √р?Я ч А? Ё  ?■>
° ╝
ё  °я  °  °  °  Ё`?р8  °   °   №
▀  №
╟  ╬є  ° № А■   р>  ■ ■?  ё  Я  ў  ╧  ╧ў╧ч  ячя    яч    яч    ╧ў    ▀√              ,,                                                                                                      р ўч    єу    √є    √є    ∙ё   8∙Г├▀ №°    ■°    ■№    ■|    ~  ?                                                                        ,,                   ∙     А   ё   ф   ЁвO   ф   рI   Є?   °D   №          я         √ √▐  є ■  ∙ўЯўя ■?    у¤√  ┴ ▀  Ё┴  ┐  ┴    у        с№ь   Дя  "
▀  ■У   ■ДИ  ■    	@   ─$     Б                                                              ,,                        ■w    °
    Ё?   р   р   р   Ё   Ё   °   №?   №|          ╖    √      w №    Ё ў√ р  ┐ р ■  р   └я▀ └   р   °?   °    Є    ч∙    я    чc    цs    ╬s    Ь∙    =ё    ¤ч    ¤ч    ёє    ў∙    ў¤                   ,,     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў  o   ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў     ў                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  o4~ЖЛЦа'Югбд/5~~▓wHJьж1л╢╢Б&ЦбД■ЧбждЙДЧоTTT╫мжаЫбДЧижаЧкжа╓бTTT╛║0ЕЦв╞ =0ЛЦбДЧж'
╞ ИXJ*№╫зЦи'╞ TJ&№╫иS╫йЦжЫоАЧп4ЦмЧн
ж'NжДФзЧежал╓жDлZ&·ЪезАЦлЧе
н&ш
о&ЦидД 9жал╓жDлZ&·Ъе╓й
п''*ЧеЦи╘е зАЦи╘л цачАJ&∙Ци'╓йфадД╫еЪезД50И ╝╖,
к& Б5~
o 9а` oБ&ЦбД■ЧбждЙДЧоTTT╫мжаЫбДЧижаЧкжа╓бTTT╛║0ЕЦв╞ =0ЛЦбДЧж'
╞ ИXJ*№╫зЦи'╞ TJ&№╫иS╫йЦжЫоАЧп4ЦмЧн
ж'NжДФзЧежал╓жDлZ&·ЪезАЦлЧе
н&ш
о&ЦидД 9жал╓жDлZ&·Ъе╓й
п''*ЧеЦи╘е зАЦи╘л цачАJ&∙Ци'╓йфадД╫еЪезД50И ╝╖,
к&                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                STAND)о100нм1/)0щ 123,98:З "   Signs: ";/B:З ═ US$;VSIGN(STAND)/^D╗ (205,111)м(252,111),╜/zN╗ (205,112)м(252,112),╜/ШXщ 123,116:З " Balance: ";/╥bBALANCE(STAND)│MONEY(STAND)лLEMON(STAND)лVSIGN(STAND)/эlЗ ═ US$;BALANCE(STAND)0qх 18,135,255,1910vщ 18,135:З "What price"0@АЗ "(in cents) would you like"0UКЗ "to charge? ";0uФЁ:CHARGE(STAND)│ Й(IN$)о1000ЗЮх 0,0,255,1910Уищ 0,1710╧▓З"Do you want to change anything  (enter YES or NO)? ";0щ╞FI$│"13S":LE$│"A-Z":Ё1╦Е  О(IN$,1)┤▓"N" ░  О(IN$,1)┤▓"Y" з Бе 68012╨Е  О(IN$,1)│"Y" з 20018Р1L :ГTOTALS SCREEN1g*А SCRN│1 е NSTANDS й 31m4ь1Ц>З "Daily Financial Report - Day";DAY1еHА L│1 е 111│Rщ 0,WP(L)1└\З WD$(L)1╚pЛ L2ШL1│NSTANDSм1:Е L1▓2 з Е SCRN▓1 з L1│NSTANDSм4 :Д L1│22вА L│0 е L12/мщ 109лLн64,WP(1):З SCRNлL2G▒╗ (0,27)м(255,27),╜2t╢щ 101лLн64,WP(3):З ═ F1$;GLASSES(SCRNлL)2Ю└щ 101лLн64,WP(4):З ═ F1$;SIGN(SCRNлL)2╔╩щ 94лLн64,WP(5):З ═ F3$;CHARGE(SCRNлL)2╤╘Л L2р┘А L│0 е L13
▐щ 101лLн64,WP(7):З ═ F1$;GSLD(SCRNлL)38уINCOM(SCRNлL)│CHARGE(SCRNлL)нGSLD(SCRNлL)3bшщ 77лLн64,WP(8):З ═ US$;INCOM(SCRNлL)3╖эЕ FLAG│SCRNлL з XPENCD(SCRNлL)│0 :Д XPENCE(SCRNлL)│MONEY(SCRNлL)мBALANCE(SCRNлL)3тЄщ 77лLн64,WP(9):З ═ US$;XPENCE(SCRNлL)4ўPROFIT(SCRNлL)│INCOM(SCRNлL)мXPENCE(SCRNлL)4>№щ 77лLн64,WP(10):З ═ US$;PROFIT(SCRNлL)4АЕ FLAG┤▓SCRNлL з MONEY(SCRNлL)│BALANCE(SCRNлL)лINCOME(SCRNлL)4лщ 77лLн64,WP(11):З ═ US$;MONEY(SCRNлL)4│$Л L4╣)є4─.Л SCRN4╩KР4ш№:ГFINAL STATUSES PRINTOUT5	А STAND│1 е NSTANDS5	ь5(	З:З "            Stand";STAND5{	$Е DU$│"N" з щ 24,27:З "Final Report Since Day";HLD :Д щ 80,27:З "Final Report"5У	.╗ (0,40)м(255,40),╜5╔	8щ 0,63:З "    Total glasses made:";GMTOTAL(STAND)5■	Bщ 0,90:З "    Total glasses sold:";GTOTAL(STAND)6#	Lщ 0,117:З "     Final assets: ";6<	VЗ ═ US$;MONEY(STAND)6B	[є6N	]Л STAND6T	_Р6h	`:ГRANDOM EVENTS6v	eDISPLAY│06г	jИ  Д(6) Бе 2420,2430,2440,2450,2495,24976╓	tDISPLAY│1:RMOD│.5:Бе 2499:Г 50% CHANCE OF RAIN7	~DISPLAY│2:RMOD│1.5:Бе 2499:Г HOT AND SUNNY7J	ИDISPLAY│3:RMOD│0:Бе 2499 :ГSURPRISE  YOUR SIGNS HAVE BEEN RUINED7P	Ть7[	Чщ 0,507Е	ЬЗ:З"The street department is working"7л	жЗ"on your street today, so there"7╚	░З:З"will be no traffic."7╬	╡є7Ў	║DISPLAY│4:RMOD│.1:Бе 2499 :ГTRAFFIC8	┐DISPLAY│5:RMOD│.2 :ГSTORM8 	└Бе 24998+	┴RMOD│181	├Р8Q	─:ГSURPRISE---> SEVERE STORM8W	╬ь8b	╪щ 0,458М	тЗ:З "A severe thunderstorm hits your"8│	ьЗ:З "town just as you set up your"8▐	ЎЗ:З "stands.  Your lemonade and signs"8Є	√З "are ruined."9
(:ГTHUNDER9
2ї1: ╔ "O1T25599
<╔ "V10DEV16CGAV20GABFFGFBGAV17GAF"9U
F╔ "V15DAV11EGV9ADFEFDF"9z
Pї0: ╔ "V8CDEDV5CEDDECV3DECEDCED"9н
Zї1: ╔ "V15ADEGV19DFBGV13DAFE":ї0: ╔ "V4FEGDFE"9ш
dї1: ╔ "V25GDV29FAEBV31BAGEV25GBGV31ABFV27AGAFV21GDFED":P
n╔ "V18FDAEV20DECDV14GBGDFCEDEFEFCV10DGEFDV8CEFCDEF": ї0: ╔ "V6DEFDCDFEDEV4FCECDCECV2DECDECDEDCDECE":Z
xї0: є:`
ЛР:Ц
М:Г The construction workers buy all your lemonade:Ь
Ць:з
ащ 0,60:═
кЗ "The street crew comes to your":ў
┤З:З "stand at lunchtime and buys all";
╛З:З "the lemonade you had made.":є;6
╚А STAND│1 е NSTANDS;S
╥GSLD(STAND)│GLASS(STAND);_
▄Л STAND;e
яР;{
Ё:Г4 CENT LEMONADE;а
·З "Your parents quit giving you";╔З:З"free sugar.  Your cost is now 4";ЄЗ:З "cents for each glass you make.";¤LCST│4<"є<	SР<T:Г5 CENT LEMONADE<F^З "Inflation caused your lemonade"<phЗ:З "mix to go up.  Your cost is now"<НrЗ:З "5 cents per glass."<Ш|LCST│5<ЮЖє<д╖Р<┬╕:ГALL STANDS ARE BANKRUPT<╚┬ь<╙╠щ 0,80=/╓Е NSTAND│1 з З "Your lemonade stand is bankrupt." :Д З "All of the stands are bankrupt"=5рЇ=;Р=M:ГOLD SESSION=Y&щ 0,117=w0З "What was the last day"=Й:З "number? ";=бDFI$│"12S":LE$│"0-9"=зNЁ=┐XDAY│ Й(IN$):HLD│DAY>bЕ DAY▓15 ▒ DAY┤1 з щ 0,144:З "Please enter a number from      1 to 15.":Бе 3110>eLCST│2>3gЕ DAY▓1 з LCST│4>HiЕ DAY▓5 з LCST│5>Nlь>nvА L│1 е NSTANDSл(NSTANDS▓5)>ФАщ 0,(Lм1)н30л Б((6мNSTANDS)н9)л18>╬КЗ "Assets for lemonade stand #"; П( И(L), З( И(L))м1)>ЄФЗ "after day";DAY;"were ($)? ";?ЮFI$│"16D"?иЁ?▓MONEY(L)│ Й(IN$)?Щ╝Е MONEY(L)┤.01 ▒ MONEY(L)▓200 з щ 0,(Lм1)н30л Б((6мNSTANDS)н9)л45:З "Please enter a number from      .01 to 200.":Бе 3200?┴┴щ 0,(Lм1)н30л Б((6мNSTANDS)н9)л45:ъ?╔╞Л L?с╨Е NSTANDS┤▓6 з 3399?ч┌ь?Єфщ 0,90@,юЗ "Assets for lemonade stand #"; П( И(L), З( И(L))м1)@P°З "after day";DAY;"were ($)? ";@^
FI$│"16D"@d
Ё@
MONEY(NSTANDS)│ Й(IN$)@ы
 Е MONEY(NSTANDS)┤1 ▒ MONEY(NSTANDS)▓655 з щ 0,117:З "Please enter a number from      1 to 655.":Бе 3300@ё
GРA':ГMAIN PROGRAMA
'ьA"'$FI$│"13S":LE$│"A-Z"AJ'.щ 0,45:З "Is this a new session? ";AP'8ЁAb'BDU$│ О(IN$,1)Aе'LЕ DU$┤▓"N" ░ DU$┤▓"Y" з З:З "Please enter YES or NO.":Бе 10030A▓'Vщ 0,63:ъA▀'`щ 0,81:З "How many players are there? ";A∙'tFI$│"11S":LE$│"0-9":ЁB
'~NSTANDS│ Й(IN$)Bg'ИЕ NSTANDS┤1 ▒ NSTANDS▓6 з щ 0,99:З "Please enter a number from      1 to 6.":Бе 10080B~'Тщ 0,99:ъ:щ 0,108:ъB┐'ЬЕ DU$│"N" з Бж 3100 :Д А L│1 е NSTANDS:MONEY(L)│2:Л L:LCST│2B╘'░DISPLAY│0:RMOD│1Bт'║DAY│DAYл1B·'─А STAND│1 е NSTANDSC'╬Бж 200C?'╪Е CHARGE(STAND)│0 з GSLD(STAND)│GLASS(STAND):Бе 10250Cc'тBASE│3000о(CHARGE(STAND)н100)п2Cа'ьЕ CHARGE(STAND)┤.10 з BASE│((10мCHARGE(STAND))о10)н24л30C▌'ЎGSLD(STAND)│ Б(RMODн(BASEлBASEн(1м Ч(мSIGN(STAND)н.5))))D(Е GSLD(STAND)▓GLASS(STAND) з GSLD(STAND)│GLASS(STAND)DC(GTOTAL(STAND)│GTOTAL(STAND)лGSLD(STAND)Dr(GMTOTAL(STAND)│GMTOTAL(STAND)лGLASS(STAND)D~(
Л STANDDШ(Е DISPLAY│3 з Бж 2500D╝(Е DISPLAY│4 ░  Д(2)│1 з Бж 2700D╟((Бж 800D▀(2А STAND│1 е NSTANDSE(<Е MONEY(STAND)▓LCSTо100 з 10340E(FЛ STANDE(PБж 3000E((ZБе 31000E.(dьE9(nщ 0,70EO(xЕ DAY│2 з Бж 2800Ee(ВЕ DAY│6 з Бж 2900E|(аЕ DAY┤14 з Бж 2400EС(кЕ DAY┤15 з 10170EЭ(┤Бж 2300Eк(╛Бе 31000E░(╚КE╬y:ГENDING ROUTINE 08/15/83Eфy"╚ 4,1: ф 3584: ї0EЇy,т 0: с 0: чF
y6┴ 0,1: ьFy@щ 0,91F0yJЗ "Do you want to try again? ";FPyTIN$│"": FI$│"13S":LE$│"A-Z"F`y^Т 32625,255FryhЁ: IN$│IN$л""F┴yrЕ  О(IN$,1)┤▓"Y" ░  О(IN$,1)┤▓"N" з З:З "Please enter YES or NO.":Бе 31040FЁy|Е  О(IN$,1)│"Y" з Бж 33000:О "SELLEMON/INSF■yЖь: щ 0,91G yРЗ "Returning to main menu..."G1yЪО "MENU.BAS"GPАш:Г MOMENT ROUTINE 08/09/83G^АЄт0: с0: чGnА№х: ┴ 0,1: ьGyБщ 0,90GЦБЗ "One moment please..."GЬБРG╗а(:ГERROR PROCESSING ROUTINEHTа2╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Hєа<Е  Ж(&H7F2D)┤▓60 з 41040 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єI0аF:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORIUаPщ 8н(16м( З(ZST$)о2)), 72:З ZST$IЮаZЗ:З"Please record this information":З"and report the error to MECC."I╕аdє: Т 32767,0: О"MENU"I╛аnКJV├PЖ 18,"Stand",37,"Glasses",48," made",59,"Signs made",70,"Price",96,"Glasses",105," sold",117,"Income",130,"Expenses",143,"Profit",156,Assets,80,ENDJ~├ZЖ 21,35,58,72,86,87,110,124,138,152nd report the error to MECC."I╕аdє: Т 32767,0: О"MENU"I╛аnКJV├PЖ 18,"Stand",37,"Glasses",48," made",59,"Signs made",70,"Pri