>О.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                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       №~№~|~} °~=№                                                                                  № °  № ¤¤   °> ¤ ¤¤          √┐ √┐  √┐ ¤¤   ¤┐ ¤ ¤¤          √┐ √╜╝√╝~x|~}?¤╝■=╛xx~        №? °}╜┐°=╜╜¤╜╝ ¤╛¤¤}╜¤¤┐         ┐ ·¤╜┐√╜╜╜¤╝= ¤╛■|№=¤№?        √╛√}╜┐√╜╜╜╜╜¤ ¤╛ ╜}¤╜╜         №~√╛=┐√╜╛~}╛= °<|}╛>~~?                                                                                                                                                                                                                                                                                                                                                                       √╜■ ¤    ¤  №                  √╜  ¤    ¤  √┐                  √╝|■<№}▒~}?                  ·╜╛¤¤┐¤╜╢▌╜╝■                   ·╜╛¤¤┐¤╜╢▌╝=■                   ∙=╛¤¤┐¤╜╢▌╜¤                    √╜╝~=┐¤╛6▄~=■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          cnЭUPUTUTUUUUUUUHVХеHVХеHUUUHUUUHUUUHUUUHUUUHVUeHVUeHUХХHjUUUUTUTUP o╓╢╗IZ&·Ъ║заЦ╗Ч║ ╕&ч жАзаZ&∙50И ╣&├Я░5~96nа4v№TєP├№TєR├№T├DV4огп├Г&ў5$жвз┬5v9 ░` n0 XPOS2 FCB 0 YPOS2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ├                               ▌       є                       ▌щєєщєИёє                       ▌чээч¤╢я                        ├яээяё╢єє                       ▀яэёяэ╢¤є                       ▀яє¤яё╢у                           є                                                                                              ё°                            фЄ                >           ╬g                Ь            ▀o┐                ╔             o                 у            °                └          є∙                ▀  ▀          ч№                ▀  ▀          ╧■               ▄▀        ▀ ▀                ▌UX▀        Я ▀                ▌UX▀        ▀ ▐я■   ┐ ▌U_▀├┴у┴▌├┴у▀ ▀ ~юя╛■юя╛■■юя  ? ▌U]▀▌ў▌ў▌▌▀▌▀ ▀ ~■я╛■юя╛■■юя ■┐ ▌U]▀▌ў▀ў▌▌▀▀▀╧▀ ~■╛я╛■■ ¤┐ ▌U_▀▌ў▀ў▌├├уП╧▀ ~■я╛■╛╛■■ю┐ № ▌UX▀├ў▀ў▌╫▀¤  █ў~юя╛■▐ ╛■■ю▀  ┐?▌UX▀▀ў▌ў▌█▀▌  ▌яя╛ю■юя  ┐?▄▀▀┴уўу▌┴у  ▐               ▀  ▀          ╧■               ▀  ▀          ч№                └          є∙                              °                                                                                                                                                                                                                                                                                               А?                              Я?                            ╬?∙                            ю │;                            ю │;             №        ю │;             Ё        юя│;             ў     ╧        юя┐√             ч     ╧       ■?√             ч╗ГЗГ╟╧     П №  ∙°8|x;┐    № ч╗╗╗█╗╧     w ¤  ¤■√╗╛√┐    ¤  ч╗╗╗█┐╧     ў №■√╗╛∙┐    №? чл╗З█╟╧     ╧ ¤  ¤■°x>·┐     ▀ чл╗п█√╧     ┐ ∙Ё¤■·√╛√?     ▀ чУ╗╖█╗╧     ╧єч ■}■√{╛√┐    ¤▀?ч╗Г╗Г╟╧     ╧чю|>√╗╕;┐    ■??ч     ╧       ╧ьц{}             ч     ╧       ЯэЎ∙}             Ё       А Ў∙             №        №цs                             ■                                                                                                                                                                                                                                                             Ё                              Зр                           ■?р▀                           ° ■╧             ■?               ч№><       №            gЁэ│¤ }▌▀       °            яў э│¤ }▌        Ё            яў эє№?|>?       р            яЁэ√¤ }▀       └          П яў сЩ¤ }╜▀       А          w чў  ═¤№▐?    ■? А■=▐<<?   ў ўЁ├Д          ¤▀ А¤▌▌▌▌¤▀   ╧ є  ╪6          ¤  А¤¤▌▌▌¤    ў ∙  ЯЎ          №? А■<▄>?   w╧№№?Ў¤№?   ¤▀ └ ▌▌▄= ▀   П╧ Aс┐Ў¤¤ }¤▀   ¤▀?р¤▌▌▌¤¤▀      z┐Ё¤¤ }¤▀   ■??■?■=▌▌№?      {ў┐ ¤№?|                       √╜╜■¤╜╜                         √╜╜■¤╜╛~                       √╝}╛¤╜┐╛                       °=■|~}╝                         ¤                                                               °? №    № °? ?   ¤■             ┐ √┐    ■ ■ ■▀   ¤               √■|~}>~ ■№~■}1x|■|         ■  √¤╜╜╝ ╛ ■¤╝}╝Ў▀╜■¤╜┐         ■  ·<=╝=■> ■¤╛¤╜Ў▐=■¤╜┐         ¤■√╜¤╜¤¤╛ ■¤╛¤╜Ў▌╜╛¤╜┐         ¤■№~=╛=■<°=╛■}Ў▐>|~}┐                                                                         № №№   °                     √┐ √┐■   ¤┐                     √┐ √■~■}?¤╛}>?                  № √¤╛¤╝ №╝¤                   √┐ √¤╛¤╜ ¤╛=■                  √╛√╜╛¤╜ ¤╜╜ ┐             * каЩакаЩаХака*  oка< ккА ккА ккА кк┐└ кк╜ кк╜ кк╜ кк┐└ кк┐№ кк┐№ кк┐№   ЇЫ ■lШ`иа А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Сkoх@╥ OG   №   ■   р  ■   АА  ■  ■    ■  Ё  Ё? ■  └  № ■  Б     ■ ■    Б ■ №    р■ °?    °?■ р    №■ ┴      ■ Г      Г■       ┴■■      р■■?      Ё■№?      °~°      №>° №  Ё■>Ё °  р?■ё Ё  └ с р  А Оу р  А О├ р  А Ж├ Ё  └ ╞З °  р? ┬З №  Ё ┬П        т        р        Ё        Ё        Ё        Ё        Ё        Ё        Ё        Ё        Ё        Ё        Ё        Ё ?    № р■?    № рП°    °тЗЁ    Ё?┬╟■    р╞├     └ ╞у Б    Б Жу └    Ос р  № Оё °  р Ё ■?■?■°  А ■>° р №>№? ° °~■   °■■      Ё■       ┴■ Г      Г■ └      ■ р    ■■ °?    °■ №    р■      Б ■  Б     ■  └?  ° ■  Ё  р? ■  ■    ■   АА  ■   р  ■   №   ■ └oЯ/$П╧NO ПЯ/└o<  ╧     ў      ў№     ўЁ  ў└  ў  ў└  ўЁ  ў№     ў      ў ╧     ў7      ч■     с■     р~ ■ ■ ■ ■ ■     р~     с■     ч■: o  └?  ° ■  Ё  р? ■  ■    ■   АА  ■   р  ■   №   ■ └oЯ/$П╧NO ПЯ/└o<  ╧     ў      ў№                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 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Д└ рарААА└ааа└@аАа@ `ааа`                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #e▌ ю┴Фg:├Цi< h <UUUUUU жХЦeЦY╚=ЦffжfЩ╚¤ЦЦeЦfй╚=ЦfеЦfi╚ жfeХЦY╚UUUUUU<VVVVVVUVUV   Ё?  Ё  └<?? └ └ є Ё є Ё   Ё   Ё   Ё   Ё   Ё   └   └?  ?   № Ё └? <╨╘╘╒╒U╒@U╒@  ЁU╒@U╒@╒╒╘ ╘№╨Ё╨/А╨╝АЁ╕№·?р <U@UPUPUTUTUUUUUU}] | № Ё Ё Ё Ё?└?└<*к┐  └*к┐  └*кХUU@*кХUU@*к┐  └*к┐  └*кХUU@*кХUU@*к┐  └*к┐  └*кХUU@*кХUU@?    └?    └UUUU@UUUU@?    └?    └UUUU@UUUU@?    └< 0ЁЁ    ?         ?        ЁЁ0< └Ё№        ╚    °    ╚    №Ё└< (АавА*?  └?  └?U}└=U]└=U_└=U_└=U]└=U_└=U]└?U└?  └?  └< <?<√№ъ№к╝>жп·жл└ъкк└*кк*кк*кк%╛Ъ%╛Ъ%╛к*Юк*╛к*╛к*╛к<кккакккакккаквкаквкакАкакАкакАкак*ак*ак*аи аи аи ааааак╛как╛как╛как╛как╛ка< ккА ккА ккА кк┐└ кк╜ кк╜ кк╜ кк┐└ кк┐№ кк┐№ кк┐№   ЇЫ ■lШ`иа АG'{┴ 3,0G'~ьG*'ИТ 135,0 :Г RESET INKEY$G5'Тщ 0,76Gc'ЬЗ"How many players, 1 or 2? "; Л(96):CC│0GГ'жPLR$│ Т : Е PLR$│"" з 10150G╖'░Е  К(PLR$)│12 з CC│CCл1:Е CC│2 з 31000 :Д 10150G╓'┤CC│0:Е  К(PLR$)│49 з 11000GЁ'╡Е  К(PLR$)│50 з 10170H'╢З : З"Please enter 1 or 2." : Бе 10130H&'║Бж 200HP*°:Г DRAW BOX WITH 20 SLOTS LABELED A-TH^*¤Є 26507,0Hg+L0│0Hm+ ьHЙ+э 0,0,127,136,170,170,0HШ+ А L2│0 е 4Hз+*А L1│0 е 3H│+4L0│L0л1Hу+>э 1лL1н32,2лL2н27,30лL1н32,27лL2н27,85,85,0I+Hэ 3лL1н32,5лL2н27,28лL1н32,24лL2н27,170,170,0I,+Rщ 8лL1н32,11лL2н27ID+\З" "; Л(64лL0);" ";IM+fЛ L1IV+pЛ L2Im+╢Е PLR$│"1" з 11500IТ+└:Г PRINT THE NAMES ON THE SCREENIл+╩щ 0,144 : З NAME$(1)I┘+╘щ 67л6н(10м З(NAME$(2))),144 : З NAME$(2)J,ь:Г LOOP THAT RANDOMLY PLACES THE WORDSJ,ЎА L1│1 е 20J5-R│ Д(10) : Е YN$│"N" з 11570JЕ-2Е  Й( Р(USED$,R,1))│0 з 11550 :Г CHECKS IF WORD HAS ALREADY BEEN USED TWICEJ░-< Р(USED$,R,1)│ Л(47л Й( Р(USED$,R,1)))J┐-FSLOT(L1)│RJ╚-KЛ L1J▀-OЕ PLR$│"1" з 12000J·-P:Г DRAW ARROW FOR TURNK-ZТ IMл1,98 : Т IMл2,165K$-dTURN│ Д(2)K=-iТ IM,TURNл10 : в IGOKM-nА L1│1 е 10Km-xЕ TURN│1 з TURN│2 :Д TURN│1Ku-}ё 3KО-ВТ IM,TURNл10 : в IGOKЦ-кЛL1Kл.р:Г INPUT ROUTINEK╣.ъOLDCH$│""K╘/щ 19,180 : ъ : З"BOX";Kу/NА L1│1 е 2Kю/SCKEY│0L/XЗ"? "; Л(96);L/bТ 135,0 : Бе 12150L5/l╔"O2T255DEBDEBDEBDEBDEBD"LS/vCH$│ Т : Е CH$│"" з 12150Le/АCH│ К(CH$)м64LМ/ВЕ CH▓32 з CH│CHм32 : CH$│ Л(CHл64)L├/ЕЕ CH│12м64 з Е CKEY│0 з CKEY│1 : Бе 12150 :Д 31000Lы/КЕ CH$│OLDCH$ ▒ CH┤1 ▒ CH▓20 з 12140M/ФЕ SLOT(CH)│0 з 12140M/▓WNDW(L1)│CHM0/╝З  б(3,8);" ";CH$;" ";M;/┌Бж 400M_/°Е L1│1 з щ 53,180 : З"AND BOX";Mn/¤OLDCH$│CH$Mw0Л L1MЯ2╚:Г CHECK IF GUESS IS RIGHT OR WRONGM▒2╥GUESS│GUESSл1M┴2▄щ 0,180 : ъMЎ2цЕ SLOT(WNDW(1))│SLOT(WNDW(2)) з Бж 500 :Д Бж 700N2·Е MATCH(1)лMATCH(2)┤10 з 12000N.6░:Г DISPLAY SCOREN@6┐Є 26507,27700NW6тЕ PLR$│"2" з 14500Nd6ьё 25 : ьN~7:Г SCORE FOR 1 PLAYERNЫ7э 30,64,96,112,170,170,0N┤7э 36,72,92,104,0,0,0N└72щ 42,79N╙7<З"It took you"N▀7Fщ 42,89O 7PЗ  П( И(GUESS), З( И(GUESS))м1);" tries."O7nБе 15000O58д:Г SCORE FOR 2 PLAYERSOИ8ж╙M"MSMILE/IMA",65536м&H900:Т IM,1:Т IMл2,76:Є IMл3,&H6CD4м&H900:ГSET UP SMILESOО8иьOШ8й┴ 2,0O╚8╕З NAME$(1);"'S score is";MATCH(1); Л(8);"."O°8┬З NAME$(2);"'S score is";MATCH(2); Л(8);"."PS8╓Е MATCH(1)│MATCH(2) з З"It is a tie game!" :Т IMл1,28:в IGO:Т IMл1,156:в IGO: Бе 15000Pz8рЕ MATCH(1)▓MATCH(2) з WN│1 :Д WN│2PЩ8ъщ 32,54 : З"The winner is"Pз8яЄ 26507,0P─8Їщ 64м3н З(NAME$(WN)),160P╘8■З NAME$(WN)Pц9Є 26507,27700Pї9&Т IMл1,92 P 90в IGOQ:Ш:Г END OF GAME/PROGRAMQ :вєQ-:ЄБе 31000QKy:ГENDING ROUTINE 10/21/83QYy┴ 0,0 : ьQkyЄ 26507,27700QВy"╚ 4,1: ф 3584: ш 1QЧy,ї 0: т 0: с 0: чQбy6┴ 0,1Q╕y@╝ 1 : Х 200,&H7000Q╞y|ь: щ 0,91QшyЖЗ "Returning to main menu..."Q∙yРО "MENU.BAS"RЬ@:Г MOMENT ROUTINE 08/17/83R&ЬJт0: с0: чR6ЬTх: ┴ 0,1: ьRAЬ^щ 0,90R^ЬhЗ "One moment please..."RdЬrРRГа(:ГERROR PROCESSING ROUTINESв╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))S╗в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єS°в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORTв:щ 8н(16м( З(ZST$)о2)), 72:З ZST$TfвDЗ:З"Please record this information":З"and report the error to MECC."TАвNє: Т 32767,0: О"MENU"TЖвXКicker and replace the":З"diskette in the drive.":єS°в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORTв:щ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Фn4~ЖЛ╢╢Б& Ц▓Д■Ч▓Ц┤КЧ┤Ю░╛║Ц▓DDD0ЖЦ│╞ =0ЛЦ┤Р▓LзаЙDDD─'LЧ╖Ц╡Р│LзаЧ╣oаЦ▓ДЧ╢4╓╖╫╕Ц╢'#цАXJ&№╫║цАO╫╗╓╢╗IZ&·Ъ║заЦ╗Ч║ ╕&ч жАзаZ&∙50И ╣&├Я░5~96nа4v№TєP├№TєR├№T├DV4огп├Г&ў5$жвз┬5v9 ░` n0 XPOS2 FCB 0 YPOS2                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 З> :Г PROGRAM NAME: PICTURES>;:Г COPYRIGHT MECC 1983>Y:Г LAST UPDATE: 06/06/84>h:Г AUTHOR:>Й:Г PROGRAMMER: TIM ANDERSON>з:Г DISK NAME: PREREADING>ц:Г ENVIROMENT: 48K??? TRS-80 COLOR COMPUTER, 1 DISK DRIVE?%:Г FILES USED: MED FONT/BIN,PIC/IMA,DIMAGE/BIN,MSMILE/IMA?9 :Г DECLARATIONS?PХ 400,&H65DDм&H900?_М SLOT(20)?u2:Г INITIALIZATION?Б3Ў 41000?М7IN$│""?╝dТ &H7F71,255 :Г CONVERT LOWER TO UPPER CASE?╔fу2,26500?┌h╙M"MED FONT"?∙p╙M"PIC/IMA",&HFFFFл1м&H900@r╙M"DIMAGE"@#tIGO│&H6F00 : IM│&H7FA0@;vЄ IMл3,&H65DDм&H900@hЦЄ 26507,27700 :Г MAKE FONT2 PORPORTIONAL@ба:Г WPOKE 26507,0 IS TO MAKE FONT2 NON-PORPORTIONAL@ткТ 26503,6 :Г SET WIDTH OF NON-PORPORTIONAL FONT2 TO 6 PIXELS@э┤TURN│1@·╟Бе 10000A╚:Г ASK FOR THE PLAYERS' NAMESA.═Є 26507,27700A4╥ьA?▄щ 0,27AxцЗ"Press the 'ENTER' key after you type your name."AЗыА L1│1 е 2AСЁЗ : ЗA╦·З"Name of" : З"player #"; Л(48лL1);"? "; : Є 26507,0A▌ FI$│"0:A" : ЁBЕ IN$│"" з NAME$(L1)│"PLAYER #"л Л(48лL1) :Д NAME$(L1)│IN$л""B1Є 26507,27700B:Л L1B@+РBК,:Г FIND PARAMETERS FOR BOX COMMAND --- USED IN DRAWING SEPARATE SLOTSBг6Y0│ Б((CHм1)о4)н27л2B░@Y1│25лY0B║JX0│CHBыTЕ X0┤│4 з X0│1л(X0м1)н32 :Д X0│X0м4 : Бе 340B°^X1│29лX0B■ПРC$Р:Г DISPLAY WORD THAT IS IN A SLOTCQЪБж 300 :ГGET COORDINATES FOR BOX COMMANDCcдТ IM,SLOT(CH)CоТ IMл1,X0н2 : Т IMл2,Y0CЙ╕в IGOCПєРCеЇ:Г CORRECT GUESS!C┴■щ 37,180 : З"* MATCH *"C╠Бж 900CфА L1│1 е 800 : Л L1DMATCH(TURN)│MATCH(TURN)л1DТ IM,13DTЕ TURN│1 з Т IMл1,12н(MATCH(TURN)м1) :Д Т IMл1,255м12нMATCH(TURN)Dk!Т IMл2,155 : в IGODz&А L1│1 е 2DК0CH│WNDW(L1)DЩ:SLOT(CH)│0DдDБж 300D╝Nэ X0,Y0,X1,Y1,0,0,0D┼SЛ L1D╦WРD▐╝:Г WRONG GUESSD¤╞щ 28,180 : З"- NO MATCH -"E╨А L1│1 е 800 : Л L1E*┌Е PLR$│"1" з 760EJфЕ TURN│1 з TURN│2 :Д TURN│1EtюТ IM,10лTURN : Т IMл1,98 : Т IMл2,165E~єв IGOEН°А L1│1 е 2EЭCH│WNDW(L1)Eи Бж 300E┬э X0,Y0,X1,Y1,85,85,0Eцэ X0л2,Y0л3,X1м2,Y1м3,170,170,0EЎ*щ 7лX0,9лY0F 4З" "; Л(64лCH);" "F>Л L1FГРF7Д:Г MUSIC FANFARE STUFFFEО╔ "T35O4"FUША L1│1 е 30Fhв╔  Л(64л Д(7))Fq└Л L1FwчРFЛ':Г MAIN PROGRAMFЦ'TURN│1Fн'$USED$│"2222222222"F┬')╚ 4 : ї0 : ю : ьF╧'.╚ 3 : ї0Fы'8MATCH(1)│0 : MATCH(2)│0Fў'BGUESS│0F■'zш2 └ └ └ └ └ └└└b<*а*а*и*а а а( И (иИаИ АИ(Аи╚аИ└   ((  аА ак(АААка(КА КАаккААААААВАа АВ*иАкаАа*ААакАА*и кАА(АА("АА ("А "А " " "а **акb<@PPAP@AP@UU@@@@@UU@ <└0└3 └0└0└2└0а└<└*П *Акг кАкжйкаккккакжйкаккккакжйкаjкккРP)жАPP*кАPP*кАPP*кАT@*кА@*кА@*кА@*кА@*кА@ккаккакка  Ё  №   ?   └    Ё    Ё    №    №    №               ?     └?     └?     └?     └      Ё      Ё      Ё      Ё      Ё      Ёb<ААА  ╨А└╨АЁ╨а╠ ╨/   ├0╨ (└└╨    ├0╨( ╠ ╨ Ё╨ккА└╨ААЁ╨АА╠ ╨АА├0╨АА└└╨АА├0╨АА╠ ╨ААЁ╨АА└╨ААЁ╨АА╠ ╨АА├0╨АА└└╨АА├0╨АА╠ ╨ккаЁ╨ Аи└╨(АкЁ╨аАкА╠ ╨АГ0кА├0╨кГ0А└└╨А0А├0╨А0А╠ ╨А0АЁ╨А└А└╨ААЁ╨АА╠ ╨АЁА├0╨АА└└╨А└А├0╨А0А╠ ╨А└АЁ╨АА└╨К(АЁ╨К└(А╠ ╨к0*А├0╨в0"А└└╨вЁ"А├0╨В0 А╠ ╨В0 аЁ╨ └╨  (Ё╨ ╠ ╨ кккки├0╨" "└└╨АИАА├0╨  ╠ ╨  Ё╨кккка  ╨ o├0╨А0А╠ ╨А└АЁ╨АА└╨К(АЁ╨К└(А╠ ╨к0*А├0╨в0"А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ЫSe "1 @ O^m|Лb<*РаРКР Р(РаРАР Р(РаРкккккккАРР  АPPPP РАPPPPР(TАкА*киР TА*АРаАаА*кАА*Аак А *икАа кккккк ,какАb< └Ё╝ М<П0ГЁГ└└А└└АЁА0А< А <А0АЁА└└А└└АЁкккк░А0└АЁ└А└└А└ЁА└0А0А<А А  А А<А0А0└АЁ└А└└А└ЁГ└0Г0Г<П М М╝░░Ё└Ёt< @└Ё4O|№№@b<кккикккикккикккикккккккккккккккк ккккА ккккА ккккА ккккА*кккка*кккка*кккка*ккккакккккикккккикккккикккккикккккккккккккккккккккккккккккк №@ №        └  └  └?  Ё?  Ё?  Ё?  Ё   №   №   №   №   №   №   №?  Ё?  Ё?  Ё?  Ё  └  └  └      UUUU@b<<  ├?├└3└3└3 └?└  └├└└<├Ё0├0Ё<└ └  ╙ |<p└Ё@Ё└└└№└╧└№<└=<└ AЁ └C@ ╧№▀   №P╠ └╠ └?╠№└ └№?└b< ииКА ААикА АВАа А((а а АА ккккккРА *кккккРа кккккккРи и"вВаК( *К ВИ ( аа а  * Аа а иАА * ААА иАА(ААААКААиА ВАаАвААА "А А*А*аВв*к ВВа АААиАА(КАА ивАА(  аВи  кк  А  А а( АаА АкА аВВА*кВ(АВ ВКВК(И ИИаИИАиКА и b<└<ЁЁ<└ └№Ё└╠0 └╠< └╠╧└ 00└ ЁЁ └<?? └0├╠├№0Ё╠ Ё??<└└303?0 ├є<є?Ё<  ├  └ └ Ё└ Ё └ ?└└ є ЁЁ<0Ё0<  <?0Ё№├ Ё├└├╧╧╧╠├╠╠╠є└ ╠╠0└<╠╠<ЁЁ0╠╧ 000 ├000<є?№Ё Ё03└└ └03├№ └03  └03<└030└033└03303?03└ Ё<└ └ └ └ └ └ └ (а ак и $ААААААа( (аА АКИи $ААААААААА А а ( (иаИА КА$АА АКИи иИК ААА$ (а ак и а(А ки$ккикки(аА (аА (аАккикки oА$ (а ак и                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  1 ************************** ************************** IALIZATION'h7IN$│""'yiNSTATIONS│14'УxН X0,X1,Y0,Y1,SEISTEP'гzXRANG│X1мX0'╔}YRANG│Y1мY0 : CLIN│Y0л Б(YRANGо2)(ВА L1│1 е NSTATIONS : Н STATION$(L1),STCOORD(L1,1),STCOORD(L1,2) : Л L1(!╟                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                MAINмA):Е B▓0 з щ Xо2л4,Yл12:З Л(Bл96);G,/bЛGH/иX│200:Y│129:I│2:Бж 2000Gg/▓щ Xо2л4,Yл12:З Л(LTTRл96);Gг/╝Є MI,AD:Т MIл2,X:Т MIл3,Y:Т MIл4,Xл35:Т MIл5,Yл32:в MGOG╣/╞А X│198 е 10 й м4G┼/╨Бж 3000G╦/┌ЛGы/фэ Xо2м1,Y,Xо2л18,Yл32,0,0,0H0 Е MAIN▓5 з 12400H#0Y│63:А X│202 е 42лMAINн32 й м2H/0 Бж 3000H50*ЛHB04Бе 13000Hi0pY│96:А X│202 е (MAINм6)н32л30 й м2Hu0zБж 3000H{0ДЛHИ0ОБе 13000HШ2╚ё 20:Л MAINHп2╥I│3:X│Xл32:Бж 2000H╕2▄ё 20H╞y╚ 4:ї:╝ 1H╫y"Х 200,&H7000H y,щ 0,91:З"Returning to main menu..."I y6О "MENU"02 е 42лMAINн32 й м2H/0 Бж 3000H50*ЛHB04Бе 13000Hi0pY│96:А X│202 е (MAINм6)н32л30 й м2Hu0zБж 3000H{0ДЛHИ0ОБе 13000HШ2╚ё 20:Л MAINHп2╥I│3:X│Xл32:Бж 2000H╕2▄ё 20H╞y╚ 4:ї:╝ 1H╫y"Х 200,&H7000H y,щ 0,91:З"Returning to main menu..."                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 |P5дВё`╧>нЛ·i╪G╢%Фrс P ┐ . Э $ к кАа и к а(а (а ак и $ААААААААААВкКкАиаа(ААААААААа(иаКкАВк$к кА(аа(ААААААААа((а кАк$к кИ(иа(ААААААААа((и кИк$к кА(аа(АААккиккиАААа((а кАк$ *АааА А*и*и$к кИ(иа(ААААААААа((и кИкА(аа*кА к$АААААААААААиВкКАиаа(ААААААААААА$ аа кк$ аа (а Аки$ А А ( а"А*А(а (   А А А$аа кк$ВККАииаа (А А А А А А А А А А $ВкКкАиаа(АААААААААА$к кА(аа(ААААААААа((а кАк$ВкКкАиаа(ААААААААа(иаКкАВкАААААААААА$к кИ(иа(ААААААААа((и кИк$АВкКкАиаа ААААААААААА$кА ка((  ( кАка( (( какА$ кА кА ( иа$210л(MAINо2│ Б(MAINо2))н2 е (MAINм1)н22л10 й м4GJ/0X│A:I│MOVE(SEG):Бж 2000Gk/:SEG│SEGл1:Е SEG▓MOVE з SEG│0Gs/NЛ AGГ2╚ё 20:Л MAINGЯ2╥А B│1 е 2:А A│2 е 4:┴ AG╩2▄╗(18,86)м(18,88),╜:╗ (24,86)м(24,88),╜G╥2цё 3G▐2ЁЛ A:Л BH 2·┴ 2:╗(18,86)м(18,88),╜:╗(24,86)м(24,88),╜Hy╚ 4:ї:╝ 1H+y"Х 200,&H7000HSy,щ 0,91:З"Returning to main menu..."H`y6О "MENU" з SEG│0Gs/NЛ AGГ2╚ё 20:Л MAINGЯ2╥А B│1 е 2:А A│2 е 4:┴ AG╩2▄╗(18,86)м(18,88),╜:╗ (24,86)м(24,88),╜G╥2цё 3G▐2ЁЛ A:Л BH 2·┴ 2:╗(18,86)м(18,88),╜:╗(24,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  >:Г PROGRAM NAME: Train>7:Г COPYRIGHT MECC 1984>T:Г LAST UPDATE: 02/27/84>c:Г AUTHOR:>Д:Г PROGRAMMER: Roger Shimada>в:Г DISK NAME: Pre-Reading>ш:Г ENVIROMENT: 32K TRS-80 Color Computer with disk extended BASIC?,:Г FILES USED: DIMAGE/BIN, MIMAGE/BIN, TRAIN/IMA and LOCASE/IMA?@ :Г DECLARATIONS?QХ 200,&H5000?g2:Г INITIALIZATION?r7IN$│""?Ц<╙M"LOCASE/IMA":Г LOADS AT $5000?╣F╙M"TRAIN/IMA":Г LOADS AT $6BD7?╚P╙M"DIMAGE"?╫Z╙M"MIMAGE"@dIM│&H7FA0:IGO│&H6F00:LC│&H5000:T│&H6AD7:MI│&H7FB0:MGO│&H6E00@DnAM$│"abcdefghijklm":NZ$│"nopqrstuvwxyz"@sxYBASE│44:AD│&H5F00:Т AD,1:Є ADл1,3:AD│ADл3@А╟Бе 10000@▒шТ IM,I:Т IMл1,X:Т IMл2,YBASE:Є IMл3,LC:в IGO@╖╧Р@у╨Т IM,I:Т IMл1,X:Т IMл2,Y:Є IMл3,T:в IGO@щ ╖РA ╕Т IM,1:Т IMл1,X:Т IMл2,Y:Є IMл3,&H5F00:в IGOA ЯРA2'А MAIN│1 е 10AJ'TRIES│1:╚ 3:╝ 1:ї:юA\'$LTTR│ Д(25)л1A╫'.A1$│AM$:A2$│NZ$:Е LTTR▓13 з XX│20л(LTTRм13)н16:YY│140: Р(A2$,LTTRм13,1)│" " :Д XX│20лLTTRн16:YY│122: Р(A1$,LTTR,1)│" "B'8LOW│LTTRм Д(4):Е LOW┤1 ▒ LOWл4▓26 з 10040B'tА A│LOW е LOWл4B-'~BASE│(AмLOW)н52BЕ'И┴ 3:Е A│LTTR з ┴ 2: ╗(BASE,YBASEм5)м(BASEл40,YBASEл40),╜,B :Д X│BASEл10:I│A:Бж 1000BН'ТЛ ABа*°CCOUNT│0:A$│ ТB─+Т 282,255:A$│ Т:Е A$│"" з 11010C+ Е A$│ Л(12) з CCOUNT│CCOUNTл1:Е CCOUNT│2 з 31000 :Д 11010C&+Е  К(A$)┤65 ▒  К(A$)▓90 з 11010CL+CCOUNT│0:Е A$│ Л(64лLTTR) з 11300Cb+ Е TRIES│2 з 11200CИ+\┴ 0,2:щ 11,124:ЗA1$:щ 11,142:ЗA2$C∙+a┴ 2:Е LTTR▓13 з ╗(4л(LTTRм13)н16,140)м(20л(LTTRм13)н16,153),╜,B :Д ╗(4л(LTTR)н16,122)м(20л(LTTR)н16,135),╜,BD +fTRIES│TRIESл1D+┐Бе 11000Dm+└X│10л(LTTRмLOW)н52:Е LTTR▓13 з XPC│3л(LTTRм13)н8:YPC│142 :Д XPC│3лLTTRн8:YPC│124Dx+╩I│LTTRDЖ+╘А A│1 е 4D├+▐Бж 1000:ё 7:Е A┤▓4 з э Xо2м2,YBASE,Xо2л12,YBASEл36,0,0,0E+ш┴ 0,2:щ XPC,YPC:З Л(96лLTTR);:┴ 2:╗ (XX,YY)м(XX,YYл13),╜E+Єё 8E4+№:ГBOX X/2-2,YBASE,X/2+16,YBASE+36,0,0,0Er,Е A┤▓4 з ┴ 0,2:щ XPC,YPC:З" ";:┴ 2:╗ (XX,YY)м(XX,YYл13),╜Ez,Л AEГ,ё 20EР,#Бе 10010E╢,$X│10л(LTTRмLOW)н52:I│LTTR:Бж 1000F,.┴ 0,2:Е TRIES│2 з Е LTTR▓13 з щ 3л(LTTRм13)н8,142:З Л(96лLTTR) :Д щ 3лLTTRн8,124:З Л(96лLTTR)FC,3Е TRIES│2 з ┴ 2:╗ (XX,YY)м(XX,YYл13),╜FL,8ё 15Fn.р╝ 1:┴ 3:╗ (0,0)м(254,190),╜,BFН.ъX│6:Y│63:I│1:Бж 2000:┴ 0,2Fв.ЇЕ MAIN│1 з 12200Fц/DI│2:А A│1 е MAINм1:Е A▓5 з X│(Aм6)н32л30:Y│96 :Д X│42лAн32:Y│63FЄ/NБж 2000G&/XB│LTTRм( 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И ╝╖, к&                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  a>":Г PROGRAM NAME: Caterpillar>=:Г COPYRIGHT MECC 1984>Z:Г LAST UPDATE: 02/27/84>i:Г AUTHOR:>К:Г PROGRAMMER: Roger Shimada>и:Г DISK NAME: Pre-Reading>ю:Г ENVIROMENT: 32K TRS-80 Color Computer with disk extended BASIC?):Г FILES USED: DIMAGE/BIN, CATERPIL/IMA and UPCASE/IMA?= :Г DECLARATIONS?NХ 200,&H5000?\М MOVE(7)?r2:Г INITIALIZATION?}7IN$│""?б<╙M"UPCASE/IMA":Г LOADS AT $5000?╟F╙M"CATERPIL/IMA":Г LOADS AT $6000?╓P╙M"DIMAGE"@ dIM│&H7FA0:IGO│&H6F00:UP│&H5000:CAT│&H6000:MOVE│7@_nMOVE(0)│2:MOVE(1)│3:MOVE(2)│4:MOVE(3)│3:MOVE(4)│2:MOVE(5)│5:MOVE(6)│6:MOVE(7)│5@ЛxAM$│"ABCDEFGHIJKLM":NZ$│"NOPQRSTUVWXYZ"@ШВYBASE│44@е╟Бе 10000@╓шТ IM,I:Т IMл1,X:Т IMл2,YBASE:Є IMл3,UP:в IGO@▄╧РA╨Т IM,I:Т IMл1,X:Т IMл2,78л(I│1)н8:Є IMл3,CAT:в IGOA ╖РA+'А MAIN│1 е 10AC'TRIES│1:╚ 3:╝ 1:ї:юAU'$LTTR│ Д(25)л1A╨'.A1$│AM$:A2$│NZ$:Е LTTR▓13 з XX│20л(LTTRм13)н16:YY│140: Р(A2$,LTTRм13,1)│" " :Д XX│20лLTTRн16:YY│122: Р(A1$,LTTR,1)│" "A■'8LOW│LTTRм Д(4):Е LOW┤1 ▒ LOWл4▓26 з 10040B'tА A│LOW е LOWл4B&'~BASE│(AмLOW)н52B~'И┴ 3:Е A│LTTR з ┴ 2: ╗(BASE,YBASEм5)м(BASEл49,YBASEл40),╜,B :Д X│BASEл10:I│A:Бж 1000BЖ'ТЛ ABЩ*°A$│ Т:CCOUNT│0B╜+Т 282,255:A$│ Т:Е A$│"" з 11010B√+ Е A$│ Л(12) з CCOUNT│CCOUNTл1:Е CCOUNT│2 з 31000 :Д 11010C+Е  К(A$)┤65 ▒  К(A$)▓90 з 11010CE+CCOUNT│0:Е A$│ Л(64лLTTR) з 11300C[+ Е TRIES│2 з 11200CБ+\┴ 0,2:щ 11,124:ЗA1$:щ 11,142:ЗA2$CЄ+a┴ 2:Е LTTR▓13 з ╗(4л(LTTRм13)н16,140)м(20л(LTTRм13)н16,153),╜,B :Д ╗(4л(LTTR)н16,122)м(20л(LTTR)н16,135),╜,BD+fTRIES│TRIESл1D+┐Бе 11000Df+└X│10л(LTTRмLOW)н52:Е LTTR▓13 з XPC│3л(LTTRм13)н8:YPC│142 :Д XPC│3лLTTRн8:YPC│124Dq+╩I│LTTRD+╘А A│1 е 4D╝+▐Бж 1000:ё 7:Е A┤▓4 з э Xо2м2,YBASE,Xо2л16,YBASEл36,0,0,0D∙+ш┴ 0,2:щ XPC,YPC:З Л(64лLTTR);:┴ 2:╗ (XX,YY)м(XX,YYл13),╜E+Єё 8E-+№:ГBOX X/2-2,YBASE,X/2+16,YBASE+36,0,0,0Ek,Е A┤▓4 з ┴ 0,2:щ XPC,YPC:З" ";:┴ 2:╗ (XX,YY)м(XX,YYл13),╜Es,Л AE|,ё 20EЙ,#Бе 10010Eп,$X│10л(LTTRмLOW)н52:I│LTTR:Бж 1000F,.┴ 0,2:Е TRIES│2 з Е LTTR▓13 з щ 3л(LTTRм13)н8,142:З Л(64лLTTR) :Д щ 3лLTTRн8,124:З Л(64лLTTR)F<,3Е TRIES│2 з ┴ 2:╗ (XX,YY)м(XX,YYл13),╜FE,8ё 15Fg.р╝ 1:┴ 3:╗ (0,0)м(254,190),╜,BF|.ъX│10:I│1:Бж 2000FС.ЇЕ MAIN│1 з 13000Fж.∙Е MAIN│2 з 12060F╣.■А A│1 е MAINм2F┘/X│Aн22л10:I│ Д(5)л1:Бж 2000Fс/Л AFЎ/SEG│ Д(MOVEл1)м1G./&А A│ning to main menu..."P%yrО "MENU.BAS"PDа(:ГERROR PROCESSING ROUTINEP▌в╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Q|в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єQ╣в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORQ▐в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$R'вDЗ:З"Please record this information":З"and report the error to MECC."RAвNє: Т 32767,0: О"MENU"RGвXКicker and replace the":З"diskette in the drive.":єQ╣в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORQ▐в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$R'вDЗ:З"Please record this infor                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "TO" "GO" "CAR" "BE" "HE" "SHE" "DID" "THE" "GET" "YOU" T" "YOU" А∙∙А∙А|А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А√А∙А∙А∙А∙А∙А∙А∙А∙А√А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А]А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А∙А                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 H>:Г PROGRAM NAME: WORDS>8:Г COPYRIGHT MECC 1983>V:Г LAST UPDATE: 05/29/84>e:Г AUTHOR:>Ж:Г PROGRAMMER: TIM ANDERSON>д:Г DISK NAME: PREREADING>у:Г ENVIROMENT: 48K??? TRS-80 COLOR COMPUTER, 1 DISK DRIVE? :Г FILES USED: WORDLIST/TXT,WRD/IMA? :Г DECLARATIONS?1Х 400,&H6B6F?@М SLOT(20)?V2:Г INITIALIZATION?b3Ў 41000?m7IN$│""?ЬdТ &H7F71,255 :Г CONVERT LOWER TO UPPERCASE?╖nIM│&H7FA0 : IGO│&H6F00?╟p╙M"WRD/IMA"?╓r╙M"DIMAGE"?шvЄ IMл3,&H6B6F@xЩ "I",#1,"WORDLIST/TXT"@ВА L1│1 е 10@%МЙ#1,WRD$(L1)@.ЦЛ L1@6аЪ#1@MкUSED$│"2222222222"@X┤TURN│1@d╛╚4 : ї0@q╟Бе 10000@У╚:Г ASK FOR THE PLAYERS' NAMES@Щ╥ь@д▄щ 0,27@█цЗ"Press the 'ENTER' key after you type your name."@ъыА L1│1 е 2@ЇЁЗ : ЗA·З"Name of player #"; Л(48лL1);"? ";A. FI$│"0:A" : ЁApЕ IN$│"" з NAME$(L1)│"PLAYER #"л Л(48лL1) :Д NAME$(L1)│IN$л""AyЛ L1A+РA╔,:Г FIND PARAMETERS FOR BOX COMMAND --- USED IN DRAWING SEPARATE SLOTSA╒6Y0│CHо4Aё;Е  Б(Y0)мY0│0 з Y0│Y0м1B=Y0│2л Б(Y0)н27B@Y1│25лY0BJX0│CHBLTЕ X0┤│4 з X0│1л(X0м1)н64 :Д X0│X0м4 : Бе 340BY^X1│61лX0B_ПРBЕР:Г DISPLAY WORD THAT IS IN A SLOTB▓ЪБж 300 :ГGET COORDINATES FOR BOX COMMANDB╬дэ X0,Y0,X1,Y1,255,255,0B¤ощ X0л2л8н Б((7м З(WRD$(SLOT(CH))))о2),Y0л9C╕З WRD$(SLOT(CH))CєРC.Ї:Г CORRECT GUESS!CB■З" * MATCH *"CMБж 900CeА L1│1 е 800 : Л L1CГMATCH(TURN)│MATCH(TURN)л1C╔Е TURN│1 з Т IMл1,12н(MATCH(TURN)м1) :Д Т IMл1,255м12нMATCH(TURN)Cщ!Т IM,3 : Т IMл2,153 : в IGOC°&А L1│1 е 2D0CH│WNDW(L1)D:SLOT(CH)│0D"DБж 300D>Nэ X0,Y0,X1,Y1,255,255,0DGSЛ L1DMWРD`╝:Г WRONG GUESSDu╞З" - NO MATCH -"DН╨А L1│1 е 800 : Л L1Dв┌Е PLR$│"1" з 760D┬фЕ TURN│1 з TURN│2 :Д TURN│1D╨щщ 104,153DўюТ IM,TURN : Т IMл1,98 : Т IMл2,165Eєв IGOE°А L1│1 е 2E CH│WNDW(L1)E+ Бж 300EKэ X0л3,Y0л3,X1м3,Y1м3,0,0,0E\*щ 11лX0,9лY0Eu4З" "; Л(64лCH);" "E~>Л L1EДГРEЯД:Г MUSIC FANFARE STUFFEмО╔"T35O4"E╝ША L1│1 е 30E╧в╔  Л(64л Д(7))E╪└Л L1E▐чРEЄ':Г MAIN PROGRAME°'yюF'{┴ 0,1F'~ьF$'ИТ 135,0 :Г CLEAR INKEY$F/'Тщ 0,76F]'ЬЗ"How many players, 1 or 2? "; Л(96):CC│0F}'жPLR$│ Т : Е PLR$│"" з 10150F▒'лЕ  К(PLR$)│12 з CC│CCл1:Е CC│2 з 31000 :Д 10150F═'░CC│0:Е PLR$│"1" з 11000Fф'╡Е PLR$│"2" з 10190G'║З : З"Please enter a number from 1 to 2."G$'─Бе 10130G/'╬Бж 200GY*°:Г DRAW BOX WITH 20 SLOTS LABELED A-TGb+L0│0Gh+ ьGА+э 0,0,255,136,0,0,0GП+ А L2│0 е 4GЮ+*А L1│0 е 3Gк+4L0│L0л1G▄+>э 1лL1н64,2лL2н27,62лL1н64,27лL2н27,255,255,0H +Hэ 4лL1н64,5лL2н27,59лL1н64,24лL2н27,0,0,0H"+Rщ 12лL1н64,11лL2н27H;+\З" "; Л(64лL0);" "HD+fЛ L1HM+pЛ L2Hd+╢Е PLR$│"1" з 11500HЙ+└:Г PRINT THE NAMES ON THE SCREENHв+╩щ 0,144 : З NAME$(1)H╤+╘щ 176л8н(10м З(NAME$(2))),144 : З NAME$(2)H№,ь:Г LOOP THAT RANDOMLY PLACES THE WORDSI ,ЎА L1│1 е 20I--R│ Д(10) : Е YN$│"N" з 11570I}-2Е  Й( Р(USED$,R,1))│0 з 11550 :Г CHECKS IF WORD HAS ALREADY BEEN USED TWICEIи-< Р(USED$,R,1)│ Л(47л Й( Р(USED$,R,1)))I╖-FSLOT(L1)│RI└-KЛ L1I╫-OЕ PLR$│"1" з 12000IЄ-P:Г DRAW ARROW FOR TURNJ -ZТ IMл1,98 : Т IMл2,165J-dTURN│ Д(2)J2-iТ IM,TURN : в IGOJB-nА L1│1 е 10Jb-xЕ TURN│1 з TURN│2 :Д TURN│1Jj-Вё 3JА-МТ IM,TURN : в IGOJЙ-кЛ L1JЮ.р:Г INPUT ROUTINEJм.ъOLDCH$│""J╟/щ 68,180 : ъ : З"BOX";J╓/NА L1│1 е 2Jс/SCKEY│0Jє/XЗ"? "; Л(96);K /bТ 135,0 : Бе 12150K(/l╔"O2T255DEBDEBDEBDEBDEBD"KF/vCH$│ Т : Е CH$│"" з 12150KX/АCH│ К(CH$)м64K/ВЕ CH▓32 з CH│CHм32 : CH$│ Л(CHл64)K╢/ЕЕ CH│12м64 з Е CKEY│0 з CKEY│1 : Бе 12150 :Д 31000K▐/КЕ CH$│OLDCH$ ▒ CH┤1 ▒ CH▓20 з 12140Kў/ФЕ SLOT(CH)│0 з 12140L/▓WNDW(L1)│CHL"/╝З  б(3,8);" ";CH$;" ";L-/┌Бж 400LR/°Е L1│1 з щ 116,180 : З"AND BOX";La/¤OLDCH$│CH$Lj0Л L1LТ2╚:Г CHECK IF GUESS IS RIGHT OR WRONGLд2╥GUESS│GUESSл1L╡2▄щ 68,180 : ъLъ2цЕ SLOT(WNDW(1))│SLOT(WNDW(2)) з Бж 500 :Д Бж 700M 2·Е MATCH(1)лMATCH(2)┤10 з 12000M"6░:Г DISPLAY SCOREM+6║ё 25M16─ьMH6тЕ PLR$│"2" з 14500Mb7:Г SCORE FOR 1 PLAYERM|7э 72,68,184,107,0,0,0MЩ7э 80,76,176,99,255,255,0Mе72щ 84,79M╕7<З"It took you"M─7Fщ 84,88MЄ7PЗ  П( И(GUESS), З( И(GUESS))м1);" tries."M 7nБе 15000N8д:Г SCORE FOR 2 PLAYERSND8оЕ MATCH(1)│MATCH(2) з щ 0,68 :Д щ 0,0Nt8╕З NAME$(1);"'S score is";MATCH(1); Л(8);"."Nд8┬З NAME$(2);"'S score is";MATCH(2); Л(8);"."N▐8╓Е MATCH(1)│MATCH(2) з З"It is a tie game!" : Бе 15000Nщ8рТ IM,4O8ъТ IMл1,90 : Т IMл2,72O 8Їв IGOO,9щ 74,54 : З"The winner is"OS9&Е MATCH(1)▓MATCH(2) з WN│1 :Д WN│2Oy90щ 126м8н( Б( З(NAME$(WN))о2)),156OЙ9:З NAME$(WN)Oд:Ш:Г END OF GAME/PROGRAMOк:вєO╖:ЄБе 31000O╒y:ГENDING ROUTINE 08/09/83Oьy@╝ 1 : Х 200,&H7000PyJщ 0,91:З"Retur ╘>:ГPROGRAM NAME: MENU>4:ГCOPYRIGHT MECC 1984>O:ГLAST UPDATE 06/06/84>r:ГAUTHOR: DAVE QUADY, AUG 1983>П:ГPROGRAMMER: DAVE QUADY>м:ГDISK NAME: PRE-READING>ц:Г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@7Бе 18@F└ 8: Бе 16@m╙M "LOGO.PIC",&H1800: ╚ 3,5: ┐ 1,0@УА I│1 е 1000:Е  Т│" " з 20 :Д Л I@┴ф&HE00:╚ 4,1: ┐ 1,0:ї0:ю:П :Н DISKNUM,D1$A_щ  Б(16м( З(D1$)о2))н8,36:ЗD1$:щ 72,54:З"Copyright 1984":щ 43,63:З"Minnesota Educational":щ 46,72:З"Computing Consortium":щ 47,81:З"All rights reserved."A╬щ 56,155:З"Prepared for and a":щ 44,164:З"Non-Exclusive License":щ 14,173:З"Granted to Tandy Corporation."A√А I│1 е 250:CM$│ Т:Е CM$│" " з 25 :Д Л IB"╚ 4,1:╝1:ї0:ф 3584:┴ 0,1:с0:т0:ч:юByNPROGRAMS│6:DESCLN│4:NOP│3:MXPROG│10:MOP│3:CT│1:NTP│2:Т &H7F71,&HFF:Г L.C. TO U.C.BлТ &H7F70,255:Г TURN ON BELL FOR ILLEGAL INPUTCМ PROGRNME$(NPROGRAMS),FILNME$(NPROGRAMS),PDESC$(NPROGRAMS,DESCLN),OPTNME$(NOP): Е CT│1 з М KEY(NTP)C*2:Г INITIALIZATIONC63Ў 41000CA7IN$│""CY<П:Н DISKNUM,D1$,D2$Cxd:Г---> USER INITIALIZATIONC╧nї0:А I│1 е NPROGRAMS:Н PROGNME$(I),FILNME$(I):А J│1 е DESCLN:Н PDESC$(I,J):Л J:Л ICяxА I│1 е NOP:Н OPNME$(I):Л IDВЕ CT│1 з А I│1 е NTP:Н KEY(I):Л IDAД╙M"SCREEN/PIC",&H1800:ГLOAD MENU SCREENDN╟Бе 10000Dj╚:Г---> USER SUBROUTINESDЖ╥:Г---> PRINT MENU TITLED╣▄NSPACES│ Б(16м( З(D1$)о2)):щ NSPACESн8,0:З D1$DЄцЕ D2$│"" ▒  Й(WHICH$)мNPROGRAMS│1 ▒ WHICH$│"T" з З:РE'ЁNSPACES│ Б(16м( З(D2$)о2)):щ NSPACESн8,9:З D2$:РE@':Г ---> MAIN PROGRAMEb'ф&H2600:╚ 4,5:ї0:┴ 0,1:Бж 210E{'Ищ 116,164:З Л(96);:ъEЭ'ТWHICH$│ Т:Е WHICH$│"" з 10130Eч'ФЕ ( Й(WHICH$)┤1 ▒  Й(WHICH$)▓9) ░ (WHICH$┤▓"[" ░ WHICH$┤▓"T") з 10130F 'ЦЕ  Й(WH$)▓│1 ░  Й(WH$)┤│9 з 10140F}'ШЕ WHICH$│"[" з C1│1:Бе 10130 :Д Е WHICH$│"T" ░ C1│1 з C1│0:ф&HE00:╚ 4,1:ї0:┴0,1:ь:Бе 11000 :Д C1│0:Бе 10130FШ'Ьф&HE00:╚4,1:ї0:┴ 0,1:ьFы'жЕ  Й(WHICH$)┤│NPROGRAMS з 10160 :Д И  Й(WHICH$)мNPROGRAMS Бе 10200,10800,10700G '░ь:щ 0,91:З"Getting ";PROGRNME$( Й(WHICH$));"..."G?'║:ГLOAD PROGRAM AND EXECUTEG['─╙ FILNME$( Й(WHICH$)),RGm'╫:ГEND OF MENUGО'╪:ГPRINT PROGRAM DESCRIPTIONSG╝'ть:Бж 210:щ 48,9:З"Program Descriptions":ЗG╦'ьLINSLFT│13GЁ'ЎА I│1 е NPROGRAMS:А J│1 е DESCLNH(L│J:Е PDESC$(I,J)│"" з J│DESCLNл1:L│Lм1H$( Л JH4(LNEEDED│2лLHД(Е LNEEDED▓LINSLFT з є:ь:Бж 210:щ 48,9:З "Program Descriptions":З:LINSLFT│13Hа((LINSLFT│LINSLFTмLNEEDEDH╛(2З:З " ";PROGNME$(I);" -"H╠(<А J│1 е LHф(FЗ " ";PDESC$(I,J)Hю(PЛ J:ЗHЎ(ZЛ IH№(dєI0(nщ 52,9:З"Leaving a Program":х 24,45,255,191:с 4IЗ(pЗ"While you are using MECC":З"software you may leave a":З"program by pressing the"I№(rЗ "CLEAR key twice. In":З"this package, Pre-Reading,":З"the program will end and":З"the main menu will appear."J(vх 0,0,255,191:є:с0::З:ЗJ=(xЗ"A manual to aid in the use of"J_(ВЗ"this diskette is available"Js(МЗ"from MECC.":ЗJ▓(ОЗ"Title: ";D1$;" #R"; П( И(200лDISKNUM), З( И(DISKNUM))м1)J┼(ЦЗ" ";D2$J╦(аЗJч(кЗ"Direct inquiries to:"K (┤З" MECC Distribution Center"K0(╛З" 3490 Lexington Avenue North"KM(╚З" St. Paul, MN 55112"Kf(╥З" (612) 481-3527"Kl(▄єKy(Ёь:щ 1,27KЯ(·З"If you have any problems using"K└)З"MECC courseware with your"Kр)З"computer, write or call:"K№)"З:З" MECC Help Line"L#),З" 3490 Lexington Avenue North"LA)6З" St. Paul, MN 55112"L[)@З" (612) 481-3660"L})BЗ:З" Radio Shack Computer"Lж)DЗ" Customer Service (Education)";L├)FЗ" (800) 433-5682 or"Lх)HЗ" (800) 772-8538 (Texas)"Lы)JєL√)Tь:WHICH$│""M)gБе 10000M#)╠:ГRUN ANOTHER DISKETTEM))╓ьMX)рщ 0,91:З"Place the diskette in the drive."Mh)ъє:Т 32767,0Mu)ЇО "MENU"M{*/КMУ*0:ГCOLOR BAR ROUTINEMй*:CL$(1)│ б(20,143)M╝*lFIRST TOP?<PATCH BINH                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                _EDUCATION 2B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               P8+*Л I:щ 8,63л(Iн9):З═ "##. ";I;:З"Return to main menu"P{+4щ 0,63л(NTPл5н9):З "Which number? ";:FI$│"11D":Ё:WHICH$│IN$л""Q+6Е  Й(WHICH$)┤1 ▒  Й(WHICH$)▓NTPл1 з щ 0,63л(NTPл7н9):З"Please enter a number from":щ 0,63л(NTPл8н9):З"1 to";NTPл1; Л(8);".":Бе 11060Q#+>Е  Й(WHICH$)│NTPл1 з 10000Qv+HБж 33000:╙  О(FILNME$(KEY( Й(WHICH$))), З(FILNME$(KEY( Й(WHICH$))))м3)л"TOP",RQЬ+[:ГEND OF TEACHERS OPTIONS ROUTINEQвu/КQ└y:ГENDING ROUTINE 08/10/83Q▀y":ГROUTINE HAS BEEN CHANGEDQ y,:ГSO THAT IT JUST GOES BACKRy6:ГTO LINE NUMBER 10000R-y@с0:т0:Бе 10000RLАш:Г MOMENT ROUTINE 08/09/83RZАЄт0: с0: чRjА№х: ┴ 0,1: ьRuБщ 0,90RТБЗ "One moment please..."RШБРR╖а(:ГERROR PROCESSING ROUTINER╙а)ф&HE00:╚ 4,1:ї0:┴ 0,1:ьSLа*ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Sфа2Е  Ж(&H7F2D)│60 з щ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":є:КT а<щ 8н(16м( З(ZST$)о2)), 72:З ZST$TRаFЗ:З"Please record this information":З"and report the error to MECC."TЕаPБе 10730::Г GO TO RUN ANOTHER DISKETTE ROUTINETЛаZКTк├P:Г---> DISK & PROGRAM DATAT╒├ZЖ 203,"Pre-Reading","Version 01.00.00"U5├dЖ "CATERPILLAR","CATERPIL/RMS","This program is a drill on","the uppercase alphabet.","",""UМ├nЖ "TRAIN","TRAIN/RMS","This program is a drill on","the lowercase alphabet.","",""V├xЖ "FIRST LETTER","FIRST/RMS","This program is a drill on","the initial letter used to","spell a pictured word.",""Vp├ВЖ "PICTURES","PICTURES/TJA","This program is a","concentration type of","memory game using pictures.",""V╘├МЖ "WORDS","WORDS/TJA","This program is a","concentration type of","memory game using words.",""W;├аЖ "SHAPES","SHAPES/TJA","This program is a","concentration type of","memory game using shapes.",""WN╟8:Г---> OPTIONSWИ╟BЖ General Information,Color Bars,Run Another DisketteW╔╦ :Г---> TEACHERS OPTIONS KEY. DATA WILL ONLY BE HERE IF CT=1W╙╦*Ж 3,5;├аЖ "SHAPES","SHAPES/TJA","This program                                                                                                                                                                                                                                                                  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#:Г PROGRAM NAME: First Letter>>:Г COPYRIGHT MECC 1984>[:Г LAST UPDATE: 02/ /84>k:Г AUTHOR: >М:Г PROGRAMMER: Roger Shimada>к:Г DISK NAME: Pre-Reading>Ё:Г ENVIROMENT: 32K TRS-80 Color Computer with disk extended BASIC?Y:Г FILES USED: DIMAGE/BIN, UPCAASE/IMA, LOCASE/IMA, FIRST/TXT, FIRST1/IMA, FIRST2/IMA and FIRST3/IMA?m :Г DECLARATIONS?w Бе 18?ББе 20?П└ 4:Бе 14?аХ 200,&H3F00?╖М AZ(26),AZ$(26,1)?▐!╣ ╠X(A)│(Aм1м Б((Aм1)о2)н2)н210л10?¤$╣ ╠Y(A)│ Б((Aм1)о2)н130л10@ (╚ 3:┴ 0,2@7IN$│""@/<Щ "I",#1,"FIRST/TXT"@;FЙ #1,AZ@QKЙ #1,UP$:Й #1,LO$@XPЪ @ЦZЕ AZ│1 з ╙M "UPCASE/IMA",&HF000 :Д ╙M "LOCASE/IMA",&HF000@кd╙M "DIMAGE/BIN"@┼i╙M "FSMILE/IMA",&HD100@цk╙M "FIRST/BIN":в:K64│ Ж(800)A%nIM│&H7FA0:IGO│&H6F00:ALPHA│&H4000:PICT│&H5365:SMILE│&H3F9DA/xCUR│0ATВА A│1 е 26:Н AZ$(A,0),AZ$(A,1):ЛAЪМЕ K64 з А A│1 е 3:╙M "FIRST"л Л(48лA)л"/IMA":Т 801,A:в &H3F02:Л AAзчБе 10000A┴'LIM│0:Е AZ┤▓1 з 10100B'А A│1 е 26:Е  Р(UP$,A,1)┤▓"*" з AZ(A)│1 :Д AZ(A)│0:LIM│LIMл1B'$Л:Бе 11000BR'tА A│1 е 26:Е  Р(LO$,A,1)┤▓"*" з AZ(A)│1 :Д AZ(A)│0:LIM│LIMл1Ba'~Л:Бе 11000Bt*°А MAIN│1 е LIMBЧ+LTTR│ Д(26):Е AZ(LTTR) з 11010B╗+ AZ(LTTR)│1:CIM│ Б((LTTRм1)о9)л1C+Е K64│0 ░ CUR┤▓CIM з ╙M "FIRST"л Л(48лCIM)л"/IMA" :Д Е MAIN┤▓1 з А I│1 е 610н3.5:ЛC=+ CUR│CIM:A$│"":B$│AZ$(LTTR,0):А A│1 е 4CЬ+*B│ Д(4):Е  Р(B$,B,1)┤▓" " ░  Ю(A$, Р(B$,B,1))│0 з A$│A$л Р(B$,B,1): Р(B$,B,1)│" " :Д 11050Cд+4Л ACп+\╝1:ї:юC└+fЄ IMл3,ALPHAD+pА A│1 е 4:Т IM, К( Р(A$,A,1))м64:Т IMл1,╠X(A):Т IMл2,╠Y(A):в IGO:ЛD++zЄ IMл3,PICT:Т IMл1,78:Т IMл2,66Dg+ДТ IM,LTTRм(CURм1)н9:Е K64 з Т 801,CUR:в &H3F04 :Д в IGODК.рCCOUNT│0:TRIES│0:SCR$│A$:A$│ ТDо.ъA$│ Т:Т 282,255:Е A$│"" з 12010Dь.ЇЕ A$│ Л(12) з CCOUNT│CCOUNTл1:Е CCOUNT│2 з 31000 :Д 12010E'.■CCOUNT│0:A│ Ю(SCR$,A$):Е A$│" " ▒ A│0 з A$│ Т:Бе 12010ED/Е A$│ Л(64лLTTR) з 12900Ei/ Р(SCR$,A,1)│" ":I│╠X(A):J│╠Y(A)E╣/┴ 2:╗ (Iм2,Jл37)м(Iл28л6н(AZ┤▓1),J),╜:╗ (I,Jл37)м(Iл30л6н(AZ┤▓1),J),╜:┴ 0,2E▐/!ё 10:э Iо2м4,J,Iо2л16,Jл37,0,0,0F/&TRIES│TRIESл1:Е TRIES┤2 з 12010 :Д ё 5:Бе 12900FС2dЕ AZ│1 з Z$│AZ$(LTTR,1) :Д Z$│"":А A│1 е  З(AZ$(LTTR,1)):Z$│Z$л Л( К( Р(AZ$(LTTR,1),A,1))л32):Л:Е LTTR│24 з  Р(Z$,2,1)│"-"Fю2gА A│1 е 4:Е  Р(SCR$,A,1)┤▓ Л(LTTRл64) з I│╠X(A)о2:J│╠Y(A):э Iм2,J,Iл16,Jл37,0,0,0 :Д K│AFЇ2jЛG 2kЄ IMл3,SMILE:Т IM,1GG2lЕ A$│ Л(LTTRл64) з Т IMл1,╠X(Kл1):Т IMл2,╠Y(K)л4:в IGOGa2nщ 64м З(Z$)н4,150:ЗZ$Gl2ВЛ MAINGВ2МА A│1 е 610н3.5:ЛGУyХ 200,&H7000Gгy"╚ 4,1:ї:╝ 1Gлy,└ 8G╙y6щ 0,91:З"Returning to main menu..."Gрy@О "MENU"Hj├PЖ JADY,APPLE,BRET,BED,COGS,CAR,COLD,DOG,MIKE,ELEPHANT,COIF,FISH,QUOG,GOAT,SMDH,HAT,MIKE,IGLOO,TCJK,JET,MIKE,KITE,LERN,LAMP,MQZX,MOUSEH№├ZЖ TNOY,NET,COIB,OCTOPUS,PRUK,PIG,QXIO,QUEEN,WORK,ROCKET,STAN,SUN,TRAI,TREE,WULJ,UMBRELLA,SKOV,VASE,WNDR,WAGON,QUXZ,X-RAY,YUAH,YARN,ZOWI,ZEBRA,CAR,COLD,DOG,MIKE,ELEPHANT,COIF,FISH,QUOG,GOAT,SMDH,HAT,MIKE,IGLOO,TCJK,JET,MIKE,KITE,LERN,LAMP,MQZX,MOUSEH№├ZЖ TNOY,NET,COIB,OCTOPUS,PRUK,PIG,QXIO,QUEEN,WORK,ROCKET,STAN,SUN,TRAI,TREE,WULJ,UMBRELLA,SKOV,VASE,WNDR,WAGON,QUXZ,X-RAY,YUAH,YARN,ZOWI,ZEBRA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ЫSe "1 @ O^m|Лb<А*а((( (А(А(А(?№А └(  А? Ё(  └А  №(  ЁГ   (?  №П   (?       └(        └(        Ё(        Ё(        Ё(        Ё(        Ё(        Ё(        └(        └(        └(        └(        └(        └(        (        (?       (?       (?       (?       (?       (?      №(?      №(?      №(      №(      №(      №(      Ё(      Ё(      Ё(      Ё(      Ё(      └(      └(      └(      └(      (      (      (      (     №(?    №(?    №(?    №(?    Ё( Ё  Ё( └? └(  *b<иИИИИИИИИИИИИИИИИИИИИИИИИИИИИИИИ РИРИРИРИUU@РЙUUPРЙUUPРЙUUPРИUUC       °РКккл       °РИ       °РИ       °РИ       °РИ       °РИ       °РИ       °РИРИРИРКккккккккккиРИРИРИРИРИРИРИРИРи Рb<   Ё <0< ЁU5 ┴U5 U5C <U5S└   №UU5P└ № UU5P └ └ 0 └ p 0  p 0 p 0 p 0 p 0 p 0 0 0 № 0№├ <  Ё<  └Єг└Єг└р└ ╩и    ╩и №р └*к*к р*j*jр)Z)Z *j*j *к*к и и аа b< а ( а( и  ( (аа вА (* а*А (а * (А аа А( 8 └8 Ё <  (и ╩А( а°аа АH*А АV V ( а А ( а А(  ( а а А АА АА А А АА А *ВАа*А (К(вА (И ВА (и а ((К ((В(  аВ АИ АКвК а("кк ( А  кА b<  №?└└ └ЁЁ№└?└Ё├└0<є<Ё< Ё└└0└Ё Ё0 └<└<└ └Ё└ └└└ └└ └└ └ Ё 0<└00└00Ё0000 └Ё00<<└└00└00 └<0└Ё└Ё└№<└└└└├Ё╠ └└└└├<╠ └└└└├  Ё└└└╧№╧0Ё└Ё╠├<00<├ <<0├ Ёє╙╠ 0╙№ └?╙< └ └№ └  ╠ └ └ └ └ └ └ └ └ └ Ё Ё 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Ё Ё  # b<кА*Ак г2а*и└<(*а Ё  <<┬А(└ЁАи└Ё└*аКА Ё<ъа(аиА<*а  а аА( А(иаА КА  ии( А А А( АВаPак@ @Р @Р(@Р@Р(@ Р @(Р @РакP *АВавА А(  А ии(АкА ( ААиа  аАаи(ка КАакА*а(иВкА*акb<└0└Ё└Ё└Ё└└?└?└<? ё_└є┴Pє№:Г PROGRAM NAME: SHAPES>9:Г COPYRIGHT MECC 1983>W:Г LAST UPDATE: 06/06/84>f:Г AUTHOR:>З:Г PROGRAMMER: TIM ANDERSON>е:Г DISK NAME: PREREADING>ф:Г ENVIROMENT: 48K??? TRS-80 COLOR COMPUTER, 1 DISK DRIVE?#:Г FILES USED: MED FONT/BIN,SHP/IMA,DIMAGE/BIN,MSMILE/IMA?7 :Г DECLARATIONS?NХ 400,&H65DDм&H900?]М SLOT(20)?s2:Г INITIALIZATION?3Ў 41000?К7IN$│""?║dТ &H7F71,255 :Г CONVERT LOWER TO UPPER CASE?╟fу2,26500?╪h╙M"MED FONT"?ўp╙M"SHP/IMA",&HFFFFл1м&H900@r╙M"DIMAGE"@!tIGO│&H6F00 : IM│&H7FA0@9vЄ IMл3,&H65DDм&H900@fЦЄ 26507,27700 :Г MAKE FONT2 PORPORTIONAL@Яа:Г WPOKE 26507,0 IS TO MAKE FONT2 NON-PORPORTIONAL@ркТ 26503,6 :Г SET WIDTH OF NON-PORPORTIONAL FONT2 TO 6 PIXELS@ы┤TURN│1@°╟Бе 10000A╚:Г ASK FOR THE PLAYERS' NAMESA,═Є 26507,27700A2╥ьA=▄щ 0,27AvцЗ"Press the 'ENTER' key after you type your name."AЕыА L1│1 е 2AПЁЗ : ЗA╔·З"Name of" : З"player #"; Л(48лL1);"? "; : Є 26507,0A█ FI$│"0:A" : ЁBЕ IN$│"" з NAME$(L1)│"PLAYER #"л Л(48лL1) :Д NAME$(L1)│IN$л""B/Є 26507,27700B8Л L1B>+РBИ,:Г FIND PARAMETERS FOR BOX COMMAND --- USED IN DRAWING SEPARATE SLOTSBб6Y0│ Б((CHм1)о4)н27л2Bо@Y1│25лY0B╕JX0│CHBщTЕ X0┤│4 з X0│1л(X0м1)н32 :Д X0│X0м4 : Бе 340BЎ^X1│29лX0B№ПРC"Р:Г DISPLAY WORD THAT IS IN A SLOTCOЪБж 300 :ГGET COORDINATES FOR BOX COMMANDCaдТ IM,SLOT(CH)C}оТ IMл1,X0н2 : Т IMл2,Y0CЗ╕в IGOCНєРCгЇ:Г CORRECT GUESS!C┐■щ 37,180 : З"* MATCH *"C╩Бж 900CтА L1│1 е 800 : Л L1DMATCH(TURN)│MATCH(TURN)л1D Т IM,13DRЕ TURN│1 з Т IMл1,12н(MATCH(TURN)м1) :Д Т IMл1,255м12нMATCH(TURN)Di!Т IMл2,155 : в IGODx&А L1│1 е 2DИ0CH│WNDW(L1)DЧ:SLOT(CH)│0DвDБж 300D║Nэ X0,Y0,X1,Y1,0,0,0D├SЛ L1D╔WРD▄╝:Г WRONG GUESSD√╞щ 28,180 : З"- NO MATCH -"E╨А L1│1 е 800 : Л L1E(┌Е PLR$│"1" з 760EHфЕ TURN│1 з TURN│2 :Д TURN│1ErюТ IM,10лTURN : Т IMл1,98 : Т IMл2,165E|єв IGOEЛ°А L1│1 е 2EЫCH│WNDW(L1)Eж Бж 300E└э X0,Y0,X1,Y1,85,85,0Eфэ X0л2,Y0л3,X1м2,Y1м3,170,170,0EЇ*щ 7лX0,9лY0F 4З" "; Л(64лCH);" "F>Л L1FГРF5Д:Г MUSIC FANFARE STUFFFCО╔ "T35O4"FSША L1│1 е 30Ffв╔  Л(64л Д(7))Fo└Л L1FuчРFЙ':Г MAIN PROGRAMFФ'TURN│1Fл'$USED$│"2222222222"F└')╚ 4 : ї0 : ю : ьF═'.╚ 3 : ї0Fщ'8MATCH(1)│0 : MATCH(2)│0Fї'BGUESS│0F№'zш2G'{┴ 3,0G '~ьG('ИТ 135,0 :Г RESET INKEY$G3'Тщ 0,76Ga'ЬЗ"How many players, 1 or 2? "; Л(96):CC│0GБ'жPLR$│ Т : Е PLR$│"" з 10150G╡'░Е  К(PLR$)│12 з CC│CCл1:Е CC│2 з 31000 :Д 10150G╘'┤CC│0:Е  К(PLR$)│49 з 11000Gю'╡Е  К(PLR$)│50 з 10170H'╢З : З"Please enter 1 or 2." : Бе 10130H$'║Бж 200HN*°:Г DRAW BOX WITH 20 SLOTS LABELED A-TH\*¤Є 26507,0He+L0│0Hk+ ьHЗ+э 0,0,127,136,170,170,0HЦ+ А L2│0 е 4Hе+*А L1│0 е 3H▒+4L0│L0л1Hс+>э 1лL1н32,2лL2н27,30лL1н32,27лL2н27,85,85,0I+Hэ 3лL1н32,5лL2н27,28лL1н32,24лL2н27,170,170,0I*+Rщ 8лL1н32,11лL2н27IB+\З" "; Л(64лL0);" ";IK+fЛ L1IT+pЛ L2Ik+╢Е PLR$│"1" з 11500IР+└:Г PRINT THE NAMES ON THE SCREENIй+╩щ 0,144 : З NAME$(1)I╫+╘щ 67л6н(10м З(NAME$(2))),144 : З NAME$(2)J,ь:Г LOOP THAT RANDOMLY PLACES THE WORDSJ,ЎА L1│1 е 20J3-R│ Д(10) : Е YN$│"N" з 11570JГ-2Е  Й( Р(USED$,R,1))│0 з 11550 :Г CHECKS IF WORD HAS ALREADY BEEN USED TWICEJо-< Р(USED$,R,1)│ Л(47л Й( Р(USED$,R,1)))J╜-FSLOT(L1)│RJ╞-KЛ L1J▌-OЕ PLR$│"1" з 12000J°-P:Г DRAW ARROW FOR TURNK-ZТ IMл1,98 : Т IMл2,165K"-dTURN│ Д(2)K;-iТ IM,TURNл10 : в IGOKK-nА L1│1 е 10Kk-xЕ TURN│1 з TURN│2 :Д TURN│1Ks-}ё 3KМ-ВТ IM,TURNл10 : в IGOKФ-кЛL1Kй.р:Г INPUT ROUTINEK╖.ъOLDCH$│""K╥/щ 19,180 : ъ : З"BOX";Kс/NА L1│1 е 2Kь/SCKEY│0K■/XЗ"? "; Л(96);L/bТ 135,0 : Бе 12150L3/l╔"O2T255DEBDEBDEBDEBDEBD"LQ/vCH$│ Т : Е CH$│"" з 12150Lc/АCH│ К(CH$)м64LК/ВЕ CH▓32 з CH│CHм32 : CH$│ Л(CHл64)L┴/ЕЕ CH│12м64 з Е CKEY│0 з CKEY│1 : Бе 12150 :Д 31000Lщ/КЕ CH$│OLDCH$ ▒ CH┤1 ▒ CH▓20 з 12140M/ФЕ SLOT(CH)│0 з 12140M/▓WNDW(L1)│CHM./╝З  б(3,8);" ";CH$;" ";M9/┌Бж 400M]/°Е L1│1 з щ 53,180 : З"AND BOX";Ml/¤OLDCH$│CH$Mu0Л L1MЭ2╚:Г CHECK IF GUESS IS RIGHT OR WRONGMп2╥GUESS│GUESSл1M┐2▄щ 0,180 : ъMЇ2цЕ SLOT(WNDW(1))│SLOT(WNDW(2)) з Бж 500 :Д Бж 700N2·Е MATCH(1)лMATCH(2)┤10 з 12000N,6░:Г DISPLAY SCOREN>6┐Є 26507,27700NU6тЕ PLR$│"2" з 14500Nb6ьё 25 : ьN|7:Г SCORE FOR 1 PLAYERNЩ7э 30,64,96,112,170,170,0N▓7э 36,72,92,104,0,0,0N╛72щ 42,79N╤7<З"It took you"N▌7Fщ 42,89O 7PЗ  П( И(GUESS), З( И(GUESS))м1);" tries."O7nБе 15000O38д:Г SCORE FOR 2 PLAYERSOЕ8ж╙M"MSMILE/IMA",65536м&H900:Т IM,1:Т IMл2,76:Є IMл3,&H6CD4м&H900:ГSET UP SMILEOЛ8иьOХ8й┴ 2,0O┼8╕З NAME$(1);"'S score is";MATCH(1); Л(8);"."Oї8┬З NAME$(2);"'S score is";MATCH(2); Л(8);"."PP8╓Е MATCH(1)│MATCH(2) з З"It is a tie game!" :Т IMл1,28:в IGO:Т IMл1,156:в IGO: Бе 15000Pw8рЕ MATCH(1)▓MATCH(2) з WN│1 :Д WN│2PЦ8ъщ 32,54 : З"The winner is"Pд8яЄ 26507,0P┴8Їщ 64м3н З(NAME$(WN)),160P╤8■З NAME$(WN)Pу9Є 26507,27700PЄ9&Т IMл1,92 P№90в IGOQ:Ш:Г END OF GAME/PROGRAMQ:вєQ*:ЄБе 31000QHy:ГENDING ROUTINE 10/21/83QVy┴ 0,0 : ьQhyЄ 26507,27700Qy"╚ 4,1: ф 3584: ш 1QФy,ї 0: т 0: с 0: чQЮy6┴ 0,1Q╡y@╝ 1 : Х 200,&H7000Q├y|ь: щ 0,91QхyЖЗ "Returning to main menu..."QЎyРО "MENU.BAS"RЬ@:Г MOMENT ROUTINE 08/17/83R#ЬJт0: с0: чR3ЬTх: ┴ 0,1: ьR>Ь^щ 0,90R[ЬhЗ "One moment please..."RaЬrРRАа(:ГERROR PROCESSING ROUTINESв╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))S╕в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єSїв0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORTв:щ 8н(16м( З(ZST$)о2)), 72:З ZST$TcвDЗ:З"Please record this information":З"and report the error to MECC."T}вNє: Т 32767,0: О"MENU"TГвXКicker and replace the":З"diskette in the drive.":єSїв0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORTв:щ 8н(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #e▌ .╘зzM є╞Щl╟ * каЩакаЩаХака* <?? └ └ є Ё є Ё   Ё   Ё   Ё   Ё   Ё   └   └?  ?   № Ё └? <TTTUUUTUUTUPU@UUUU@U@E@PP<<<   └ └ Ё Ё? №? № Ё Ё └ └  <<<**кАкАкака ки ки ки ки кикаИа**<   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё   Ё<*кАкАкАкА*  ки Ии Ии **<U@U@UPUPUTUTUUUUUUU@UUU@UUUP<UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<  └ └ Ё Ё? №? №? №? №? №? № Ё Ё └ └ <UU@UPUTUTUUUUUUUUUUUUUUUUTUTUPU@U< 0ЁЁ    ?         ?        ЁЁ0< └Ё№        ╚    °    ╚    №Ё└ oPU@U< 0ЁЁ    ?         ?        ЁЁ0< └Ё№        ╚    °                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  @>-:Г PROGRAM NAME: WORDS TEACHER OPTIONS>H:Г COPYRIGHT MECC 1983>f:Г LAST UPDATE: 02/13/84>u:Г AUTHOR:>Ц:Г PROGRAMMER: TIM ANDERSON>╡:Г DISK NAME: PRE-READING?:Г ENVIROMENT: TRS-80 COLOR COMPUTER, DISK ADVANCED BASIC, 1DISK DRIVE?":Г FILES USED: WORDLIST/TXT?6 :Г DECLARATIONS?L2:Г INITIALIZATION?X3Ў 41000?c7IN$│""?xЩ "I",#1,"WORDLIST/TXT"?П}А L1│1 е 10?аВЙ#1,WRD$(L1)?йЗЛ L1?▓МЪ #1?╛╛╚4 : ї0?┘':ГSTART OF THE PROGRAM?▀'ю?щ'$┴ 0,1?я'~ь@*°:Г EDITING SCREEN@+щ 74,0@$+ З"Modify WORDS"@3+*А L1│1 е 5@^+>щ 18,36л(L1н15):З  И(L1);". ";WRD$(L1)@s+Rщ 128,36л(L1н15)@Ц+fЗ ═"##. ";L1л5; : З WRD$(L1л5)@Я+pЛ L1@╞+ОЗ : З" 11. Return to menu and"@у+ШЗ" save changes"A>+╩щ 0,18: З" Enter the number of the word you want to change or "; Л(34);"11"; Л(34)Ac+╘З" to return to the main menu."Ax,$:Г INPUT ROUTINEAЖ,.FI$│"12D"Aм,8щ 16,150 : ъ : З"Which number? ";A▓,BЁA─,LNUM│ Й(IN$):ыB,QЕ NUM┤1 ▒ NUM▓11 з З:З" Please enter a number from 1":З" to 11":Бе 11300B(,VЕ NUM│11 з 15000BI,`FI$│"17S" : LE$│"0-9A-Z a-z"Bi,jЗ" Enter your word? "; : ЁB~,tWRD$(NUM)│IN$л""Bп,~Е NUM▓5 з Y│36л((NUMм5)н15) :Д Y│36л(NUMн15)B═,ИЕ NUMо5▓1 з X│160 :Д X│50B╫,Тщ X,YB■,ЬЗ WRD$(NUM); б(7м З(WRD$(NUM)),32)C,жщ 0,155:ы:Бе 11300C.:Ш:Г SAVE FILE CHANGESC4:ЭЮC::вяCV:мЩ "O",#1,"WORDLIST/TXT"Cf:╢А L1│1 е 10Cw:└┘#1,WRD$(L1)CА:╩Л L1CЖ:╘ЪC╗:Єь:ю:щ 0,89:З"Returning to main menu...":О "MENU"C┘y:ГENDING ROUTINE 10/21/83CЁy"╚ 4,1: ф 3584: ш 1Dy,ї 0: ю: т 0: с 0: чDy6┴ 0,1: ьDpy@щ 0,80:З"Do you want to return to the main menu WITHOUT saving your changes? ";:ъDКyJFI$│"13S":LE$│"A-Z":ЁDжy|Е  О(IN$,1)│"N" з 10000DьyЖЕ  О(IN$,1)│"Y" з ь:щ 0,89:З "Returning to main menu...":О "MENU"EyРщ 0,116:З "Please enter YES or NO.":Бе 31040E<а(:ГERROR PROCESSING ROUTINEE╒в╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))Ftв&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":єF▒в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORF╓в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$GвDЗ:З"Please record this information":З"and report the error to MECC."G9вNє: Т 32767,0: О"MENU"G?вXКicker and replace the":З"diskette in the drive.":єF▒в0:Г IF THENS TO GET BACK TO LINE WITH WRITE PROTECT ERRORF╓в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$GвDЗ:З"Please record this information":                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,l╘F=TU@UUTUUU@UUUPUUUUTUUUUUUUUUUUUUUU@UUUUU@UUUUUPUUUUUPUUUUUUTUVUUVUTUZХUZХTUjеUjеUUjеUjеUUкйUкйUUкйUкйUBUкйUкйUBUjеUjеUBUjеUjеUBUZХUZХURUVUUVUURUUUUUUURUUUUUUURUUUUUUUURUUUUUUUUVUUUUUUUUVUUUUUUUUVUUUUUUUUVUUUUUUUUVUUUUUUUUVUUUUUUUUVUХUUUVURVХUUUVХRZеUUUZеRZеUUUZеRVйUUUjХRUкUUUкUBUjХUVйUBUZеUZеUBUVкUкХUUUкккUUUUjкйUUUUZкеUUUUUкUUTUUUUUUTUUUUUPUUUUUPUUUUU@UUUUU@UUUUUUUUUUUUUUTUUUUPUUU@UUUUUTU@T  oUUUUUUVUХUUUVURVХUUUVХRZеUUUZеRZеUUUZеRVйUUUjХRUкUUUкUBUjХUVйUBUZеUZеUBUVкUкХUUUкккUUUUjкйUUUUZкеUUUUUкUUTUUUUUUTUUUUUPUUUUUPUUUUU@UUUUU@UUUUUUUUUUUUUUTUUUU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                b?  6 ╖ ▀╢АsА▒А'4C▒А&.s )ОSeН*╠╖ ▀юБябГ&ў  @Н┐г╖ ▀╜o╖ ▐я9_╢!JHHHHHКА9 ? ORCC #$10 STA SET64K JSR IGO RFS STA CLR64K ANDCC #$EF RTS GIA CLRB LDA 801 DECA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   9&4:Г PROGRAM NAME: First Letter Teachers Options&O:Г COPYRIGHT MECC 1984&l:Г LAST UPDATE: 04/04/84&Й:Г AUTHOR: ROGER SHIMADA&к:Г PROGRAMMER: ROGER SHIMADA&╚:Г DISK NAME: PRE-READING':Г ENVIROMENT: 32K TRS-80 COLOR COMPUTER WITH EXTENDED DISK BASIC.',:Г FILES USED: FIRST/TXT'@ :Г DECLARATIONS'KХ 2000'a2:Г INITIALIZATION'm3Ў 41000'x7IN$│""'С<Щ "I",#1,"FIRST/TXT"'ЭFЙ #1,AZ'кPЙ #1,UP$'╖ZЙ #1,LO$'╜dЪ(nU$│"ABCDEFGHIJKLMNOPQRSTUVWXYZ":L$│"abcdefghijklmnopqrstuvwxyz"(x╚ 4:┴ 0,1(чБе 10000(F'х:ї:ю:ь:щ 52,9:З"Modify FIRST LETTER"(s'щ 12,33:З"Now in use: ";:Е AZ┤▓1 з 10040(К'З"Upper Case list"(╦'$щ 16,49:А A│1 е 26:Е  Р(UP$,A,1)│"*" з З Р(U$,A,1); :Д З" ";(▄'.Л:З:Бе 10110(є'8З"Lower Case list")4'Bщ 16,49:А A│1 е 26:Е  Р(LO$,A,1)│"*" з З Р(L$,A,1); :Д З" ";)<'LЛ:З)U'~щ 0,72:ы:З"Options:")w'ИЗ:З" 1. Add letters to list")Ь'ТЗ" 2. Delete letters from list")╪'ЬЗ" 3. Use ";:Е AZ│1 з З"Lower Case"; :Д З"Upper Case";*'жЗ" list":З" 4. Save changes and return to main menu"*/'░FI$│"11S":LE$│"0-9"*R'║щ 0,144:З"Which number? ";:ъ:Ё*л'─WH│ Й(IN$):Е WH┤1 ▒ WH▓4 з щ 0,162:З"Please enter a number from":З"1 to 4.":Бе 10170*╪'╪щ 0,90:ы:И WH Бе 11000,12000,13000,14000+*°З:З"Enter the letters that you want selected, then press ENTER."+j+FI$│"0"л Л(48л26)л"S":Е AZ│1 з LE$│"A-Z" :Д LE$│"a-z":Т &H7F71,0:Т 282,0+x+ щ 0,126:Ё+Ъ+SEL$│IN$л"":Е SEL$│"" з 10110+н+ Е AZ│1 з 11100+ё+*А A│1 е  З(SEL$): Р(LO$, К( Р(SEL$,A,1))м64л32н(AZ┤▓1),1)│"*":Л+■+4Бе 11900,7+\А A│1 е  З(SEL$): Р(UP$, К( Р(SEL$,A,1))м64,1)│"*":Л,[.|Т &H7F71,255:Т 282,255:Бе 10010,▒.рЗ:З"Enter the letters you want deleted from selection, then press ENTER.",■.ъFI$│"0"л Л(48л26)л"S":Е AZ│1 з LE$│"A-Z" :Д LE$│"a-z":Т &H7F71,0:Т 282,0- .Їщ 0,135:Ё-,.■DE$│IN$л"":Е DE$│"" з 10110-?/Е AZ│1 з 12100-Б/А A│1 е  З(DE$): Р(LO$, К( Р(DE$,A,1))м64л32н(AZ┤▓1),1)│"X":Л-О/Бе 12900-┼/DА A│1 е  З(DE$): Р(UP$, К( Р(DE$,A,1))м64,1)│"X":Л-щ2dТ &H7F71,255:Т 282,255:Бе 10010.2╚Е AZ│1 з AZ│2 :Д AZ│1.2╥Бе 10010.>6░ь:Е  Ю(UP$,"*")│0 ▒  Ю(LO$,"*")│0 з 14110.l6║щ 0,89:З"Returning to main menu...":я:┐ 1.Е6─Щ "O",#1,"FIRST/TXT".С6╬З #1,AZ.Ю6╪З #1,UP$.л6тЗ #1,LO$.▒6ьЪ.╛6ЎО "MENU"/7щ 0,80:З"Please add letters to the ";:Е  Ю(UP$,"*")│0 з З"upper":AZ│1 :Д З"lower":AZ│2/07(З"case selection."/672є/C7<Бе 10000/Iyь/дy"щ 0,80:З"Do you want to return to the main menu WITHOUT saving your changes? ";:ъ/╛y,FI$│"13S":LE$│"A-Z":Ё0y6Е  О(IN$,1)│"Y" з ь:щ 0,80:З"Returning to main menu....":О "MENU"0 y@Е  О(IN$,1)│"N" з 100000PyJщ 0,144:З"Please enter YES or NO.":Бе 310100oа(:ГERROR PROCESSING ROUTINE1в╚4,1:ї0:ф3584:ю:ш1:ч:┴0,1:с0:т0:ь:ZST$│"Error"л И( Ж(&H7F2D))л" at line":Е  и(&H7F2E)┤0 з ZST$│ZST$л И( и(&H7F2E)л65536) :Д ZST$│ZST$л И( и(&H7F2E))1░в&Е  Ж(&H7F2D)┤▓60 з 41530 :Дщ 32,72:З"DISK WRITE PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":є:Бе 310001╒в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$2вDЗ:З"Please record this information":З"and report the error to MECC."28вNє: Т 32767,0: О"MENU"E PROTECT ERROR":З:З"Please remove the write protect":З"sticker and replace the":З"diskette in the drive.":є:Бе 310001╒в:щ 8н(16м( З(ZST$)о2)), 72:З ZST$2вDЗ:З"Please record this information":З