AINTS":Q│6:Бе600/b*Q$(1)│"THE":Q$(2)│"INDEPENDENT":Q$(3)│"FUNCTIONAL":Q$(4)│"PRINCIPLE":Q│4:Бе600/ї4Q$(1)│"A":Q$(2)│"PRIMARY":Q$(3)│"INTERRELATION":Q$(4)│"BETWEEN":Q$(5)│"SYSTEM":Q$(6)│"AND/OR":Q$(7)│"SUBSYSTEM":Q$(8)│"TECHNOLOGIES":Q│8:Бе6000l┬Q$(1)│"MUST":Q$(2)│"UTILIZE":Q$(3)│"AND":Q$(4)│"BE":Q$(5)│"FUNCTIONALLY":Q$(6)│"INTERWOVEN":Q$(7)│"WITH":Q│7:Бе6001J╠Q$(1)│"MAXIMIZES":Q$(2)│"THE":Q$(3)│"PROBABILITY":Q$(4)│"OF":Q$(5)│"PROJECT":Q$(6)│"SUCCESS":Q$(7)│"AND":Q$(8)│"MINIMIZES":Q$(9)│"THE":Q$(10)│"COST":Q$(11)│"AND":Q$(12)│"TIME":Q$(13)│"REQUIRED":Q$(14)│"FOR":Q│14:Бе6001д╓Q$(1)│"ADDS":Q$(2)│"EXPLICIT":Q$(3)│"PERFORMANCE":Q$(4)│"LIMITS":Q$(5)│"TO":Q│5:Бе6002рQ$(1)│"NECESSITATES":Q$(2)│"THAT":Q$(3)│"URGENT":Q$(4)│"CONSIDERATION":Q$(5)│"BE":Q$(6)│"APPLIED":Q$(7)│"TO":Q│7:Бе6002╚ъQ$(1)│"REQUIRES":Q$(2)│"CONSIDERABLE":Q$(3)│"SYSTEM":Q$(4)│"ANALYSIS":Q$(5)│"AND":Q$(6)│"TRADE-OFF":Q$(7)│"STUDIES":Q$(8)│"TO":Q$(9)│"ARRIVE":Q$(10)│"AT":Q│10:Бе6003=ЇQ$(1)│"IS":Q$(2)│"FURTHER":Q$(3)│"COMPOUNDED":Q$(4)│"WHEN":Q$(5)│"TAKING":Q$(6)│"INTO":Q$(7)│"ACCOUNT":Q│7:Бе6003а■Q$(1)│"PRESENTS":Q$(2)│"EXTREMELY":Q$(3)│"INTERESTING":Q$(4)│"CHALLENGES":Q$(5)│"TO":Q│5:Бе6004AQ$(1)│"RECOGNIZES":Q$(2)│"THE":Q$(3)│"IMPORTANCE":Q$(4)│"OF":Q$(5)│"OTHER":Q$(6)│"SYSTEMS":Q$(7)│"AND":Q$(8)│"THE":Q$(9)│"NECESSITY":Q$(10)│"FOR":Q│10:Бе6004ЯQ$(1)│"EFFECTS":Q$(2)│"A":Q$(3)│"SIGNIFICANT":Q$(4)│"IMPLEMENTATION":Q$(5)│"OF":Q│5:Бе6005Q$(1)│"ADDS":Q$(2)│"OVERRIDING":Q$(3)│"PERFORMANCE":Q$(4)│"CONSTRAINTS":Q$(5)│"TO":Q│5:Бе6005BкQ$(1)│"THE":Q$(2)│"SOPHISTICATED":Q$(3)│"HARDWARE.":Q│3:Бе6005Э┤Q$(1)│"THE":Q$(2)│"ANTICIPATED":Q$(3)│"FOURTH-GENERATION":Q$(4)│"EQUIPMENT.":Q│4:Бе6005Ё╛Q$(1)│"THE":Q$(2)│"SUBSYSTEM":Q$(3)│"COMPATIBILITY":Q$(4)│"TESTING.":Q│4:Бе6006{╚Q$(1)│"THE":Q$(2)│"STRUCTURAL":Q$(3)│"DESIGN,":Q$(4)│"BASED":Q$(5)│"ON":Q$(6)│"SYSTEM":Q$(7)│"ENGINEERING":Q$(8)│"CONCEPTS.":Q│8:Бе6006╬╥Q$(1)│"THE":Q$(2)│"PRELIMINARY":Q$(3)│"QUALIFICATION":Q$(4)│"LIMIT.":Q│4:Бе6007^▄Q$(1)│"THE":Q$(2)│"EVOLUTION":Q$(3)│"OF":Q$(4)│"SPECIFICATIONS":Q$(5)│"OVER":Q$(6)│"A":Q$(7)│"GIVEN":Q$(8)│"TIME":Q$(9)│"PERIOD.":Q│9:Бе6007╧цQ$(1)│"THE":Q$(2)│"PHILOSOPHY":Q$(3)│"OF":Q$(4)│"COMMONALITY":Q$(5)│"AND":Q$(6)│"STANDARDIZATION.":Q│6:Бе6008#ЁQ$(1)│"THE":Q$(2)│"GREATER":Q$(3)│"FIGHT-WORTHINESS":Q$(4)│"CONCEPT.":Q│4:Бе6008r·Q$(1)│"ANY":Q$(2)│"DISCRETE":Q$(3)│"CONFIGURATION":Q$(4)│"MODE.":Q│4:Бе6008╝Q$(1)│"THE":Q$(2)│"TOTAL":Q$(3)│"SYSTEM":Q$(4)│"RATIONALE.":Q│4:Бе600TION.":Q│6:Бе6008#ЁQ$(1)│"THE":Q$(2)│"GREATER":Q$(3)│"FIGHT-WO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                PLAYERS TAKE TURNS SE-"8=▓З" LECTING WORDS FROM THIS LIST -"8d╝З" WITH THE OBJECT BEING TO GET 3"8Л╞З" WORDS WHICH SHARE(HAVE) A COM-"8Я╨З" MON LETTER."8е┌З8╗фА X│1е4:а140,1:ЛX8уюЙ" HIT ENTER TO CONTINUE, READY";I$8щ°Ю9З" *****************************"95З" LEAK, SEED, BENT, HILL, SINK,"9XЗ"   BIRD, LOAN, TOSS, & BOOK"9{ З"   ************************"9Б*З9и4З" FOR EXAMPLE,  A PLAYER ABLE TO"9╧>З" SELECT: 'BENT,'  'SINK,'   AND"9ЎHЗ" 'LOAN,'  WOULD BE A WINNER ...":RЗ" SINCE *ALL 3 WORDS* SHARE  THE":D\З" COMMON LETTER 'N.'  OF COURSE,":kfЗ" THE OTHER PLAYER, IN HIS (HER)":ТpЗ" SELECTION OF WORDS, WOULD MAKE":╖zЗ" EFFORTS TO PREVENT THIS WIN.":╜ДЗ:╙ОА X│1е4:а140,1:ЛX:√ШЙ" HIT ENTER TO CONTINUE, READY";I$;
вЮ;мЗ;.╢З" DEPENDING UPON THE *SKILL* AND";U└З" *ACUMEN* OF THE 2 PLAYERS, THE";u╩З" GAME CAN END IN A DRAW.";{╘З;в▐З" IF YOU CAN'T FIND *SOMEONE* TO";╔шЗ" PLAY AGAINST,  I (TRS-80) HAVE";ЁЄЗ" THE ABILITY TO ASSUME THE ROLE"<№З" OF THE 2ND PLAYER ... AND I'M"<3	З" GOOD AT THE GAME ! !"<9	З<`	З" G O O D   L U C K  ! ! ! ! ! !"<h	$З:З<~	.А X│1е4:а140,1:ЛX<ж	8Й" HIT ENTER TO CONTINUE, READY";I$<м	LЮ<╢	QЗ:З:З<▌	VЗ"FROM WEBSTER'S DICTIONARY . . ."<х	`З:З=	jЗ"** ACUMEN: QUICKNESS OF PERCEP-"=3	tЗ"TION OR DISCERNMENT; SHARPNESS;"=G	~З"PENETRATION."=O	ИЗ:З=e	НА X│1е4:а160,1:ЛX=М	ТЙ"HIT ENTER TO CONTINUE, READY";I$=Т	ЬРNTINUE, READY";I$<м	LЮ<╢	QЗ:З:З<▌	VЗ"FROM WEBSTER'S DICTIONARY . . ."<х	`З:З=	jЗ"** ACUMEN: QUICKNES                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╜&A
В COPYRIGHT (C) CLOAD 1979  CONVERSION BY CHROMASETTE STAFF&АВ J.R.LEWIS   4051 MOUNTAIN DRIVE  SAN BERNADINO, CA 92407&КХ 200&вМ Q$(14):ML│32:LL│0&хЮ:З"A COMPUTERIZED DISSERTATION ON        SYSTEM PERFORMANCE."'
Й"SPEED (0 IS FASTEST)";S'IЙ"TO PRINTER OR SCREEN (P/S)";A$:Е О(A$,1)│"P" зPR│м2 :ДPR│0:Бе20'gЙ"MAXIMUM LINE LENGTH";ML'БЗ#PR:З#PR,"   ";:LL│3'н2A│  Д(10):B│  Д(10):C│  Д(10):D│  Д(10)'╪FЕLL┤▓0 ░ LL┤▓(MLм1) зLL│LLл1:З#PR," ";(dИAБж1010,1020,1030,1040,1050,1060,1070,1080,1090,1100(L╚ИBБж2010,2020,2030,2040,2050,2060,2070,2080,2090,2100(Ж
,ИCБж3010,3020,3030,3040,3050,3060,3070,3080,3090,3100(└
РИDБж4010,4020,4030,4040,4050,4060,4070,4080,4090,4100(т
┬Е Д(10)┤9 з500 :ДЕLL┤▓0 зЗ#PR(№
╠З#PR:З#PR,"   ";:LL│3)
ЇЕS│0з50)
■АX│1еSн250:ЛX)#Бе50))XВ)5bАI│1е Q)IgLL│LLл З(Q$(I)))glЕLL▓ML зЗ#PR:LL│ З(Q$(I)))САЗ#PR,Q$(I);:ЕLL┤ML зЗ#PR," ";:LL│LLл1)нВЕLL▓│ML зLL│0:ЕPR зЗ#PR)│ЕЛ)╣КР)┐чК)ьЄQ$(1)│"IN":Q$(2)│"PARTICULAR,":Q│2:Бе600*-№Q$(1)│"ON":Q$(2)│"THE":Q$(3)│"OTHER":Q$(4)│"HAND,":Q│4:Бе600*LQ$(1)│"HOWEVER,":Q│1:Бе600*mQ$(1)│"SIMILARLY,":Q│1:Бе600*╖Q$(1)│"AS":Q$(2)│"A":Q$(3)│"RESULTANT":Q$(4)│"IMPLICATION,":Q│4:Бе600*э$Q$(1)│"IN":Q$(2)│"THIS":Q$(3)│"REGARD,":Q│3:Бе600+O.Q$(1)│"BASED":Q$(2)│"ON":Q$(3)│"INTEGRAL":Q$(4)│"SUBSYSTEM":Q$(5)│"CONSIDERATIONS,":Q│5:Бе600+z8Q$(1)│"FOR":Q$(2)│"EXAMPLE,":Q│2:Бе600+ЦBQ$(1)│"THUS,":Q│1:Бе600+ъLQ$(1)│"IN":Q$(2)│"RESPECT":Q$(3)│"TO":Q$(4)│"SPECIFIC":Q$(5)│"GOALS,":Q│5:Бе600,t┌Q$(1)│"A":Q$(2)│"LARGE":Q$(3)│"PORTION":Q$(4)│"OF":Q$(5)│"THE":Q$(6)│"INTERFACE":Q$(7)│"COORDINATION":Q$(8)│"COMMUNICATION":Q│8:Бе600,z█Р,сфQ$(1)│"A":Q$(2)│"CONSTANT":Q$(3)│"FLOW":Q$(4)│"OF":Q$(5)│"EFFECTIVE":Q$(6)│"INFORMATION":Q│6:Бе600-AюQ$(1)│"THE":Q$(2)│"CHARACTERIZATION":Q$(3)│"OF":Q$(4)│"SPECIFIC":Q$(5)│"CRITERIA":Q│5:Бе600-е°Q$(1)│"INITIATION":Q$(2)│"OF":Q$(3)│"CRITICAL":Q$(4)│"SUBSYSTEM":Q$(5)│"DEVELOPEMENT":Q│5:Бе600-¤Q$(1)│"THE":Q$(2)│"FULLY":Q$(3)│"INTEGRATED":Q$(4)│"TEST":Q$(5)│"PROGRAM":Q│5:Бе600.NQ$(1)│"THE":Q$(2)│"PRODUCE":Q$(3)│"CONFIGURATION":Q$(4)│"BASELINE":Q│4:Бе600.ЭQ$(1)│"AN":Q$(2)│"ASSOCIATED":Q$(3)│"SUPPORTING":Q$(4)│"ELEMENT":Q│4:Бе600/ Q$(1)│"THE":Q$(2)│"INCORPORATION":Q$(3)│"OF":Q$(4)│"ADDITIONAL":Q$(5)│"MISSION":Q$(6)│"CONSTR У&5В  ** ACUMEN ** COPYRIGHT  (C) CHROMASETTE 1981&Q(В CREATED BY JOHN OLSON&b2В JUNE, 1981&Б<В BOX 483  HOXIE, KS 67740&МnХ 1000&ЭxМ A$(9),T(9)&гВЮ&╖МЗ д12) "ACUMEN"&╩ЦА X│1е255 й 12&╘аа X,1&▄кЛ X'┤З:З" DO YOU NEED DIRECTIONS ... YES"'╛З" OR NO?"'<╚I$│ Т:ЕI$│"" з200 :ДЕI$┤▓"N" Бж1860'g╥Ю:З:З" HOW MANY PLAYERS . . . 1 OR 2?"'╓▄З:З" IF YOU ENTER 1, THE WONDERFUL,":З" GREAT, TREMENDOUS  >ME<  .....":З" TRS-80 ..... WILL BE PLAYER 2."(ца100,3:а140,2:З:Й" YOUR CHOICE ... 1 OR 2";NU("ЁЕ NU┤▓1 ░ NU┤▓2 з 230(=·Е NU │ 2 з DI│1:Бе 380(j
Ю:З:З:З" SO . . . YOU DARE TO PLAY ME !"(С
З" DON'T YOU KNOW THAT A MERE HU-"(╕
З" MAN CAN'T(!)  **OUT THINK**  A"(▀
"З" MACHINE AS SMART AS ME ! ! ! !")
,З:З" BUT I FEEL GENEROUS TODAY - SO")/
6З" I'M GOING TO GIVE YOU A BIT OF")V
@З" A CHANCE. HOW DIFFICULT DO YOU"){
JЗ" WANT ME TO MAKE MY PLAY ....")С
TА X│1е4:а160,1:ЛX)╡
^Й" 0(EASY) TO 5(HARD) . . .";DI)═
hЕ DI┤0 ▒ DI▓5 з 300)█
rDI│ Б(DI))є
|В MAIN / INITIALIZE)∙
ЖП*
РА X│ 1 е 9*
ЪН A$(X)*
дT(X)│0*6
оЖ 1) LEAK, 2) SEED*M
╕Ж 3) BENT, 4) HILL*d
┬Ж 5) BOOK, 6) TOSS*{
╠Ж 7) LOAN, 8) BIRD*О
╓Ж 9) SINK, END*Ц
рЛ X*н
ъY$│ Л(159):M│1:P│1*╔
ЇRE$│ Л(191):BL$│ Л(175)*▀
■В FIRST WORD LIST*цЮ0*√З@21, б(11,159);+З@53,Y$;"         ";Y$;+3&З@85,Y$;" WORDS:  ";Y$;+P0З@117,Y$;"         ";Y$;+\:Бж 1010+yDЗ@437,Y$;"         ";Y$;+ПNЗ@469, б(11,159);+мXЗ@96," PLAYER 1/WORDS ";+╞bЗ@130," NONE YET ! ";+фlЗ@320," PLAYER 2/WORDS ";+■vЗ@354," NONE YET ! ";,АВMAIN LOOP HERE,GКЕ P│1 з З@2,"  PLAYER 1  ";:З@34," # CHOICE ? ";,|ФЕ P│2 з З@2,"  PLAYER 2  ";:З@34," # CHOICE ? ";,ШЮА X│1е5:I$│ Т:а160,1:ЛX,▓иЕ P│2 ░ NU │ 1 з 1470,╩▓I$│ Т:Е I$│"" з 690,ъ╝I│ Й(I$): Е I┤1 ▒ I▓9 з 670,√╞Е I┤5 з TV│I-╨Е I▓│5 з TV│14мI-%┌Е T(TV)┤▓0 з 670-7фЕ TV┤5 з I│TV-MюЕ TV▓│5 з I│14мTV-a°Е P│1 з T(TV)│1-uЕ P│2 з T(TV)│4-УTE$│A$(I):A$(I)│"       "-зЗ@2, б(12,128);-╝ З@34, б(12,128);-╚*Бж 1010-■4Е P│1 з З@96л32нM,RE$;RE$;"  ";TE$;"   ";RE$;RE$;.5>Е P│2 з З@320л32нM,BL$;BL$;"  ";TE$;"   ";BL$;BL$;.EHЕ P│1 з Q│3.VRЕ P│2 з Q│12.i\В TEST FOR WIN.wfА X│1 е 3.ЩpЕ T(X)лT(Xл3)лT(Xл6)│Q з 1060.бzЛ X.▒ДА X│1е7 й 3.╙ОЕ T(X)лT(Xл1)лT(Xл2)│Q з 1060.┌ШЛX.°вЕ T(1)лT(5)лT(9)│Q з 1060/мЕ T(3)лT(5)лT(7)│Q з 1060/'╢В NO WIN YET/D└Е P│1 з P│2 :Д P│1:M│Mл1/[╩Е P│2 ░ M│5 з 1330/l╘А X│1е400:ЛX/w▐Бе 640/ГшБе 1000/║ЄВ ROUTINE TO PRINT WORD           LIST DURING GAME/╩№А X │ 1 е 9/юЗ@32нXл117,Y$;" ";A$(X);" ";Y$;/ЎЛ X/№Р0$В WIN ROUTINE0$.З@86," A WIN ! ";0;8З@150," PLAYER: ";0RBЗ@182,"         ";0sLЕ P│1 з I$│"ONE" :Д I$│"TWO"0НVЗ@214,"   ";I$;"   ";0д`З@278,"         ";0╗jЗ@246,"         ";0╥tЗ@310,"         ";0х~А X│1е255 й 140яИа X,20∙ТI$│ Т1
ЬЛ X1жЗ@342,"  ENTER  ";1/░З@374," TO PLAY ";1F║З@406,"  AGAIN  ";1T─А X│1е1001m╬I$│ Т:Е I$┤▓"" з 3801t╪ЛX1ЛтЗ@342,"         ";1вьЗ@374,"         ";1╣ЎЗ@406,"         ";1╞А X│1е601▀
I$│ Т:Е I$┤▓"" з 3801цЛX1ёа 15,21¤(Бе 119022В DRAW ROUTINE2&<З@86," A DRAW! ";2=FЗ@150," LIKE... ";2TPЗ@182," KISSING ";2kZЗ@214," YOUR... ";2ВdЗ@246," SISTER! ";2ЩnЗ@278,"         ";2░xЗ@310,"         ";2╟ВЗ@342,"         ";2▌МА X│255 е 3 й м122чЦа X,22ёаI$│ Т2°кЛX3┤Бе 12503╛В ROUTINE FOR COMPUTER3;╚В TO PLAY / SELECT MOVE3]╥Е  Д(100)▓(50 л 10нDI) з 17303o▄Е M┤▓1 з 15303КцЕ T(5)│0 з TV│5:Бе18303еЁЕ T(1)│0 з TV│1:Бе18303╖·Е M┤▓2 з 15903█Е T(2)│1 ░ T(7)│1 з TV│1:Бе18304Е T(2)│1 ░ T(8)│1 з TV│9:Бе 18304%Е T(4)│1 ░ T(6)│1 з TV│7:Бе 18304J"Е T(6)│1 ░ T(8)│1 з TV│9:Бе 18304o,Е T(5)│1 ░ T(9)│1 з TV│7:Бе 18304w6Q│84З@А X │ 1 е 34йJЕ T(X)лT(Xл3)лT(Xл6)│Q з 17604▒TЛ X4┼^А X │ 1 е 7 й 34чhЕ T(X)лT(Xл1)лT(Xл2)│Q з 17804яrЛ X5
|Е T(1)лT(5)лT(9)│Q з 18005+ЖЕ T(3)лT(5)лT(7)│Q з 18205DРЕ Q┤▓2 з Q│2:Бе 16005iЪЕ T(4)│0 ░ T(6)│0 з TV│4:Бе 18305НдЕ T(2)│0 ░ T(8)│0 з TV│2:Бе18305▓оЕ T(1)│0 ░ T(9)│0 з TV│1:Бе 18305╫╕Е T(3)│0 ░ T(7)│0 з TV│3:Бе 18305ч┬А X │ 1 е 96╠Е T(X)│0 з TV│X:Бе 18306
╓ЛX6CрЕ T(X)│0 з TV│X :Д Е T(Xл3)│0 з TV │ Xл3 :Д TV │ Xл66OъБе 18306ДЇЕ T(X)│0 з TV│X :Д Е T(Xл1)│0 з TV│Xл1 :Д TV│Xл26Р■Бе 18306мЕ T(1)│0 з TV│1 :Д TV│96╕Бе 18306╓Е T(3)│0 з TV│3 :Д TV │ 76є&В RETURN TO MAIN ROUTINE6■0Бе 7407:В7DВ DIRECTIONS HERE7 NЮ7&XЗ7MbЗ" 'ACUMEN' IS A TWO PLAYER GAME,"7tlЗ" WHICH USES A LIST OF NINE DIF-"7ЪvЗ" FERENT WORDS.  THE WORDS ARE:"7аАЗ7╞КЗ" LEAK, SEED, BENT, HILL, SINK,"7щФЗ"   BIRD, LOAN, TOSS, & BOOK"7яЮЗ8иЗ" THE TWO  O&?
В AUTHOR NAME AND ADDRESS GO      UP HERE IN ALL PROGRAMS&W:ГCHROMASETTE STAFF&i:ГPO BOX 1087&З:ГSANTA BARBARA, CA 93102&у:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.'<:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'ж:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.'°:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.(
М LO$(7)(I│0:J│0:K│0:Q│0:CR│0(M╚CRл3,1:В CR FLIPS TO  SET PMODE TO 3 OR 4(Г┴ 4лCRн4,1лCRн4:В GETS RIGHT COLOR SET FOR SCREEN(С(╝: ┐ 1,CR)_2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"*-4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"*√6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+╔8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",Ч:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"-e<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк".3>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".ЗALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9".гFVP│0:AD│0:VP│ Э(LO$(0)).└KAD│ Ж(VPл2)н256л Ж(VPл3).╥PVP│ Э(LO$(7)).ЁU╣ Г│ Ж(VPл2)н256л Ж(VPл3)/Z╞"C3BM0,191R255U149L255D148R255BM0,0"/'_Q│ Г(AD)/DdВ USER ROUTINE (100-999)/бfВ COPY AND MOVE LOGO ROU- TINE IS IN MR$. RANGE IS 0-106  FOR VALS TO PASS THIS ROUTINE./┌gВ EDITING LINE 110 CAN BE HAZARDOUS TO THIS PROGRAM!0%nMR$│"╜│э├└
О`Ж+4╞ жвзВZ&°5J&я9╜│э├└
О`Ж+4╞ жвCзВZ&°5J&я9"0_xVP│ Э(MR$):В GET LOC. OF ROUTINE AND SET USER POINTS.0{ВQ│ Ж(VPл2)н256л Ж(VPл3)0┼М╣ Г1│Q : ╣ Г2│Qл32:В USR1 MOVES LOGO, USR2 MOVES AND COMPLIMENTS LOGO0°ЦВ FLASHING LOGO FROM TOP  OF SCREEN TO BOTTOM.1аАI│0е1061кQ│Iн3218┤Е Б(Iо2)│Iо2 з K│ Г1(Q) :Д K│ Г2(Q)1?╛ЛI1r╚В 2 LOGOS GOING AROUND IN OPPOSITE DIRECTIONS.1}╥Q│20801М▄АI│128е2561жцK│ Г2(I) : K│ Г2(QмI)1нЁЛI1ъ·В FLASHING SCREEN - SWITCH COLOR SETS IN SCREEN COMMAND.1Ў
АI│1е182
CR│ В(и мCR)2
"┐1,CR2!
,АJ│1е100:ЛJ2(
6ЛI2B
@В 3 LOGOS SPIN UPWARD2N
JQ│43н322`
TАI│3380е0йм652m
^K│ Г1(I)2┤
hЕI┤(3380мQ) з K│ Г1(IлQ):Д K│ Г1(I):В DON'T DO 2ND LOGO TILL ROOM.2 
rЕI┤(3380м2нQ) з K│ Г1(Iл2нQ):Д K│ Г1(I):В DON'T DO 3RD LOGO TILL ROOM.3
|ЛI3
БАI│1е50:ЛI3T
ЖВ MOVE LOGO FROM BOTTOM TO TOP AND FILL SCREEN WITH 2 MORE3d
РАI│106е0йм23t
ЪK│ Г2(Iн32)3{
дЛI3Ш
оK│ Г1(53н32):АI│1е100:ЛI3к
│K│ Г2(106н32)3я
╕В MOVE CENTER LOGO BACK & FORTH, SLOWING AS LOGO NEARS THE EDGE.3√
┬Q│53н324
╠АI│0е24:В LEFT MOVE4#
╓АJ│0еIн2:ЛJ42
рK│ Г1(QмI)49
ъЛI4G
ЇQ│52н32л84`
■АI│0е48:В RIGHT MOVE4nАJ│0еI:ЛJ4}K│ Г1(QлI)4ДЛI4Т&Q│54н32м84н0АI│0е24:В CENTER AGAIN4╝:K│ Г1(QмI)4├DЛI4 NВ LOGO MOVES TOP TO BOTTOM AND FILL SCREEN WITH 2 MORE.5XАI│0е106й25bK│ Г1(Iн32)5%lЛI56vK│ Г2(53н32)5CАK│ Г1(0)5wКВ RANDOMLY FLASH LOGOS AND RANDOMLY COMPLEMENT.5ГЮАI│1е505ЩгQ│( Д(3)м1)н53н325░иИ  Д(2) Бж 700,7105╜▓ЛI:Бе7305╠╝K│ Г1(Q):Р5█╞K│ Г2(Q):Р6┌В SCROLL 3 LOGOS DOWNWARD WITH AN OFFSET6фQ│16506$юАI│0е3780й606^°J│I:ЕJ▓3360 з J│3360:В DON'T MOVE BOTTOM LOGO TO FAR.6kK│ Г2(J)6ЯЕI┤Q з 800:В DON'T    START 2ND LOGO TILL TIME.6┘J│IмQ:ЕJ▓1920 з J│1920:В DON'T MOVE 2ND LOGO TOO FAR.6ц K│ Г2(J)7*ЕI┤(Qн2) з 830:В DON'T START 3RD LOGO TILL TIME.7V4J│Iм(2нQ):ЕJ▓480 з J│480:В DON'T MOVE 3RD LOGO TO FAR.7c>K│ Г2(J)7jHЛI7╪RВ RUN LOGO UP SCREEN,     COMPLEMENT EVERY OTHER ONE, AND FLASH SCREEN EVERY 10 WITH THE  SCREEN COMMAND.7ш\АI│106е1йм18fЕ Б(Iо2)│Iо2 з K│                                                                                                                                                                                                                                                                                           ┴╞!"╚$%┬'(┴*+,├                       COVER   BAS RBLOCKADEBAS#@ACUMEN  BASЦDISRTATNBAS└BLAST   BAS&ОHOWFAR  BAS)д                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Г1(Iн32) :Д K│ Г2(Iн32)8?pЕ Б(Iо10)│Iо10з┐1, В(и мCR) :Д ┐1,CR8FzЛI8eДВ STOP MESSIN' WITH SCREEN8v└АI│1е1000:ЛI8з╩CR│ В(и мCR):В CHANGE  TO SET UP OTHER PMODE8└╘Бж 1000:В GET WORDYS9▐Бе 25:В GO BACK TO PMODE TO RUN ROUTINE AGAIN...... AND AGAIN...95шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.9;ЄЮ9[№З@38,"CHROMASETTE MAGAZINE"9ДЗ"ISSUE #1               JULY 1981";9оЗ:З:З" ALL PROGRAMS CONTAINED HEREIN"9╥З"   COPYRIGHT (C) CHROMASETTE"9ї$З"    MAGAZINE  P.O. BOX 1087":.З"    SANTA BARBARA, CA 93102.":=8З"   REPRODUCTION BY ANY MEANS":fBЗ"PROHIBITED. CHROMASETTE MAGAZINE";:МLЗ" ASSUMES NO RESPONSIBILITY FOR":▓VЗ"  ERRORS, OMISSIONS OR DAMAGES":╫`З"   CAUSED BY THE USE OF THESE":ьjЗд11)"PROGRAMS.":¤~АI│1е7500:ЛI;ИР;ON В THE ROUTINES I USED TO PACK THE MACHINE LANGUAGE STUFF IN THE ARRAYS.;░N*VP│ Э(MR$):В MOVE & COMP ROUTINES. DRAWS FROM TOP TO BOTTOM. GETS BYTES FROM LOGO ON SCREEN.;═N4AD│ Ж(VPл2)н256л Ж(VPл3);┘N>АI│0е63<(NCЕ I│32 з П:В  TWO SIMILAR ROUTINES - ONE COMP-LEMENTS, THE OTHER DOES NOT.<>NHН Q:В GET BYTE...<ХNMЕ I┤30 ░ Q│67 з Q│18:В PUT NOP INSTEAD OF COMP    INSTRUCTION IN 1ST MOVE ROUTINE.<╕NRТ (ADлI),Q:В STICK IT IN ARRAY<└N\Л I=NfЖ 189,179,237,195,16,192,31,1,16,142,11,96,134,43,52,2,198,32=(NpЖ 166,162,67,167,130,90,38,248,53==NzЖ 2,74,38,239,57=XNДАI│0е64:З  Ж(ADлI);:ЛI=хNОVP│ Э(LO$(7)):В GET AND PUT INITIAL LOGO ON SCREEN  ROUTINE. DRAWS FROM LFT TO RGT. GETS BYTES FROM PACKED ARRAYS IN PROGRAM (LO$(0-6)).>NШAD│ Ж(VPл2)н256л Ж(VPл3)>NвАI│0е69>NмН Q>%N╢Т (ADлI),Q>-N└Л I>eN╩Ж 189,179,237,31,1,16,142,5,255,134,32,52,2,166,160>ЭN╘Ж 52,32,52,16,134,7,52,2,198,6,166,132,167,164,30,1>╘N▐Ж 131,255,224,30,1,30,2,131,255,224,30,2,90,38,235?
NшЖ 31,16,131,255,242,31,1,53,2,74,38,219,53,16,166?,NЄЖ 128,53,32,53,2,74,38,198,57?HN№АI│0е70:З  Ж(ADлI);:Л I?NOР,134,32,52,2,166,160>ЭN╘Ж 52,32,52,16,134,7,52,2,198,6,166,132,167,164,30,1>╘N▐Ж 131,255,224,30,1,30,2,131,255,224,30,2,90,38,235?
NшЖ 31,16,131,255,242,31,1,53,2,74,38,21                                                                                                                                                                                                                                                                 =&$:ГMOD I TO COLOR CONV. - STAFF&]:ГP. TREFONAS 22 BLUEBIRD ST.  NEW ORLEANS, LA 70124&|:ГCOPYRIGHT (C) CLOAD 1979&З
Бе5000&ЩX│XлX1:M│MлM1&╜Е Ж(XлIB) ▒  Ж(MлIB) ▒ X│M з400'52┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZL,╜:┼( Г1(M), Г2(M))м( Г3(M), Г4(M)),ZR,╜:XT│XTлIP:MT│MTлIP:M(XT,IZ)│X:M(MT,IP)│M'M7╔P$:Е  Д(IZ)┤F з700'`<ЕXT▓IT з XT│IZ'sFЕMT▓IT з MT│IZ'ПPЕXC┤IZ з XC│XCлIP:Бе100'эZXB│XBлIP:┼( Г1(M(XB,IZ)), Г2(M(XB,IZ)))м( Г3(M(XB,IZ)), Г4(M(XB,IZ))),ZB,╜:ЕXB▓IT з XB│IZ(	dЕMC┤IZ з MC│MCлIP:Бе120(gnMB│MBлIP:┼( Г1(M(MB,IP)), Г2(M(MB,IP)))м( Г3(M(MB,IP)), Г4(M(MB,IP))),ZB,╜:ЕMB▓IT з MB│IZ(txЕJS з170(К}Е Ж(P0)┤C1 зM1│IS(аВЕ Ж(P4)┤C1 зX1│IS(╖ЗЕ Ж(P1)┤C1 зX1│мIE(╬МЕ Ж(P5)┤C1 зM1│мIE(хСЕ Ж(P2)┤C1 зM1│мIS(№ЦЕ Ж(P3)┤C1 зX1│мIS)ЫЕ Ж(P6)┤C1 зM1│IE)(аЕ Ж(P7)┤C1 зX1│IE)1еБе20)GкЕ Н(0)│IZ зM1│мIE)]пЕ Н(2)│IZ зX1│мIE)s┤Е Н(1)│IZ зM1│мIS)Й╣Е Н(3)│IZ зX1│мIS)Ю╛Е Н(3)│C9 зX1│IS)│├Е Н(1)│C9 зM1│IS)╚╚Е Н(2)│C9 зX1│IE)▌═Е Н(0)│C9 зM1│IE)ц╥Бе20*o
,┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZZ,╜:а75,3:┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZL,╛:аC2,3:┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZR,╛:а225,3*М
6XS│XSм10:MS│MSм10:Бе1000*д
РЕX│IL ▒ M│IL зБж500*▓
ТЕX│M з300*╚
ФЕPT зM│MмM1 :Д408+

ХЕ В(M1)│IE зЕ Ж(IBлMлIS) зM1│мIS:Бе407::ДM1│IS:Бе407+"
ЦЕ Ж(IBлMлIE) зM1│мIE :ДM1│IE+Q
ЧM│MлM1:Е Ж(MлIB) зM│ Д(C6)нISл Д(C7):Бе404+t
ШЕ Ж(IBлX) ▒  Ж(IBлM) з410 :Д50+┴
ЪАI│1е10:Е Ж(XлIB) з┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZR,╛:аIP,IP:XS│XSмIP,
дЕ Ж(MлIB) з┼( Г1(M), Г2(M))м( Г3(M), Г4(M)),ZL,╛:аIP,IP:MS│MSмIP,B
оЕ Ж(XлIB) з┼( Г1(X), Г2(X))м( Г3(X), Г4(X)),ZL,╜:аC2,IP,~
╕Е Ж(MлIB) з┼( Г1(M), Г2(M))м( Г3(M), Г4(M)),ZR,╜:аC2,IP,М
┬ЛI:Бе1000,╝
ЇQ1│ Г1(IL):Q2│ Г2(IL):Q3│ Г3(IL):Q4│ Г4(IL),═
ўАI│IR е 1йм1-
∙┼(Q1,Q2)м(Q3,Q4),ZB,╜:Q$│"BM"л И(Q1)л","л И(Q2)л"C"л И( Д(3)л1)лA$(I)-'
■╞Q$:аIнC3,2-QЛI:┼(Q1,Q2)м(Q3,Q4),ZB,╜:IA│IZ:Бж7000-n0ЕX│IL зXS│XSлIR:XC│XCмIR-Л:ЕM│IL зMS│MSлIR:MC│MCмIR-ЧDIL│IZ:Р-й╝ЕIA з705:Д710-Ё┴Е  Д(C4)│C4 зIA│IZ:┼( Г1(IL), Г2(IL))м( Г3(IL), Г4(IL)),ZB,╜:IL│IZ-∙─Бе60.&╞I│ Д(C6)нISл Д(C7):Е Ж(IлIB)│IY з720:Д60.j╨IA│IP:┼( Г1(I), Г2(I))м( Г3(I), Г4(I)),ZA,╜:IR│ Д(C8):IL│I:Бе60.ПшЮ:З"    *** B L O C K A D E ***".кЄЗ:З:З"SCORE NOW IS:":З.╦№ЗZ1$,XS:ЗZ2$,MS:ЕXS│MS з1050.·ЕXS▓│100▒XSмMS▓│100▒MS┤м100 зQ$│Z1$:Бе1060/)ЕMS▓│100▒MSмXS▓│100▒XS┤м100 зQ$│Z2$:Бе1060/@АI│1е1500:Л:Бе5500/^$З:ЗQ$" WINS!!!":╔ "T25L1"/У.АI│1е5:АJ│1е12:╔"T+O"л И(I)л";"л И(J):Л:╔ "L+":Л/═8АI│5е1йм1:АJ│12е1йм1:╔"T-O"л И(I)л";"л И(J):Л:╔"L-":Л0
BЗ"ANOTHER GAME?":A$│ Т:Бж1200:ЕA$┤▓"N" зXS│0:MS│0:Бе55000#VАI│1е50:╔"T200C":Л:К0-░A$│""0G║A$│ Т:ЕA$│"" з1200:ДР0ШИХ100:М M(135,1),ZA(7,7),ZB(7,7),ZL(7,7),ZR(7,7),ZZ(7,7),A$(9):╚3,1:ВCOLOR4,10╕ТЮ:З д8);"B L O C K A D E":З0¤ЬЗ"  BLOCKADE IS A TWO-PERSON REAL-TIME GAME OF SKILL AND STRAT-"1AжЗ"EGEY. THE OBJECT OF BLOCKADE IS SIMPLE -- JUST OUTSCORE YOUR"1Ж░З"RIVAL BY HITTING MORE TARGETS.  BE CAREFUL THOUGH! IF YOU HIT"1╧║З"ANYTHING BUT A TARGET, OR HIT   YOURSELF, YOU LOSE 10 POINTS AND";2─З"MUST START OVER AGAIN. THE FIRSTPERSON TO REACH 100 POINTS, LEAD";2Y╬З"BY 100 POINTS, OR HAS A RIVAL GOBELOW -100 POINTS, WINS!!"2╪З:Й"HIT <ENTER> TO CONTINUE";A$:Ю2Н▌PT│0:JS│12┐тЗ"ONE OR TWO PLAYERS?":З"  (1/2 - DEFAULT 2)"2ЇчБж1200:ЕA$│"1" зPT│1:З"USE THE LEFT CONTROL(S)."3DьЗ"JOYSTICKS OR KEYBOARD?":З"  (J/K - DEFAULT J)":Бж1200:ЕA$│"K" зJS│0:Д51803dёБж1200:ЕA$│"K" зJS│0 :Д51803ЖЎЗ:З"HOLD THESE KEYS TO MOVE:"3▒З:З"MOVE   LEFT PLAYER  RIGHT PLAYER";3┌З"----   -----------  ------------";3∙
З"UP     <UP ARROW>   <:)"4З"DOWN   <DWN ARROW>  <@>"4?З"LEFT   <Q>          <LFT ARROW>"4f(З"RIGHT  <W>          <RGT ARROW>"4Ж<З:Й"LEFT PLAYER'S NAME";Z1$4╣FЕPT зZ2$│"TRS-80" :ДЙ"RIGHT PLAYER'S NAME";Z2$4їP╝:─(0,0)м(7,7),ZB,G:╗(0,0)м(7,7),╜,BF:─(0,0)м(7,7),ZZ,G5BZ╞"BM82,168C2D7R2U7D2R2D3L6U3":╞"BM170,168C3D7R2U7D2R2D3L6U3R2D1C1R2D1L2"5xd─(80,168)м(87,175),ZL,G:─(168,168)м(175,175),ZR,G5аnA$(1)│"BM+4,0D7":A$(2)│"R6D3L6D4R6"5╠xA$(3)│"R6D3L4R4D4L6":A$(4)│"D4R6L2U4D7"5·ВA$(5)│"R6L6D3R6D4L6":A$(6)│"R6L6D7R6U4L6"6 МA$(7)│"R6D7":A$(8)│"D7R6U7L6D3R6"67ЦA$(9)│"R6D7U4L6U3"6uа╞"BM10,10C2D7R7U7L7BM12,12C3D3R2U3":─(10,10)м(17,17),ZA,G6╥┤XY$│"╜│э
O_\
├ р
,ЎZ~┤Ї╜│э├ р,√Г рЖ=~┤Ї╜│э
O_\
├ р
,Ў╦~┤Ї╜│э├ р,√Г ▀Ж=Z~┤Ї"78|╝:┐1,1:IZ│0:IP│1:IS│256:IE│1:IY│0:IB│1536:IT│134:XC│ м3:MC│ м3:XB│0:MB│0:MT│0:XT│0:F│.3:IL│0:IA│07qБC1│255:C2│150:C3│25:C4│7:C5│2:C6│22:C7│30:C8│9:C9│637нЖP0│338:P1│339:P2│340:P3│341:P4│342:P5│343:P6│344:P7│3458;РАI│0е31:I1│Iн8:I2│I1л7:┼(I1,0)м(I2,7),ZZ,╜:┼(I1,184)м(I2,191),ZZ,╜:Л:АI│1е22:I1│Iн8:I2│I1л7:┼(0,I1)м(7,I2),ZZ,╜:┼(248,I1)м(255,I2),ZZ,╜:Л8|ЪX│( Д(8)л8)нISл Д(4)л5:X1│мIS:M│( Д(8)л8)нISл Д(4)л21:M1│мIS8ЦдP$│"C":╔"L120V31O4T2"8╗оQ│0:I│0:Q1│0:Q2│0:Q3│0:Q4│0:IR│08╞рБж70008╧pБе208▌XVP│0:AD│08ьbVP│ Э(XY$)9	lAD│ Ж(VPл2)н256л Ж(VPл3)96v╣ Г2│AD:╣ Г1│ADл22:╣ Г4│ADл40:╣ Г3│ADл639<АРЪX│( Д(8)л8)нISл Д(4)л5:X1│мIS:M│( Д(8)л8)нISл Д(4)л21:M1│мIS8ЦдP$│"C":╔"L120V31O4T2"8╗оQ│0:I│0:Q1│0:Q2│0:Q3│0:Q4│0:IR│08╞рБж70008╧pБе208▌XVP│0:AD│08ьbVP│ Э(XY$)9	lAD│ Ж(VPл2)н25                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Л&&
В COPYRIGHT (C) CHROMASETTE 1981&,В&8В BLAST&T(В CREATED BY JOHN OLSON&e2В JUNE, 1981&Д<В BOX 483  HOXIE, KS 67740&ЛPВ &СZВ&ЫdХ 800&бnЮ&┤xЗ д13) "BLAST"&═ВА X│1е255й12:аX,1:ЛX&╙МЗ&·ЦЗ" DO YOU NEED DIRECTIONS ... YES"'	аЗ" OR NO?"'1кI$│ Т:ЕI$│"" з170 :ДЕI$┤▓"N" Бж1520'7┤Ю'=╛З'd╚З" HOW MANY PLAYERS ..... 1 OR 2?"'j╥З'С▄З" IF YOU ENTER A '1', I (TRS-80)"'╕цЗ" WILL BE YOUR OPPONNENT, & WILL"'╒ЁЗ" PLAY THE RIGHT SIDE."'ы·А X│1е4:а170,1:ЛX(
З:Й" YOUR CHOICE .... 1 OR 2";NU(*
Е NU┤▓1 ░ NU┤▓2 з 250(;
Е NU│2 з 380(A
"Ю(^
,З:З" YOU DARE PLAY ME ?"(З
6З:З" WELL I'LL BE FAIR ABOUT IT ..."(о
@З" ENTER A LEVEL OF DIFFICULTY: 1"(╔
JЗ" (EASY) TO 5(HARD)."(▀
TА X│1е4:а160,1:ЛX)
^З:Й" YOUR CHOICE ... 1 TO 5";DI)
hЕ DI┤1▒DI▓5 з 340).
rDI │ 100 м DIн11)<
|SL│0:SR│0)U
ЖЮ0:В INITIALIZE HERE)l
РE$│ Л(128)л Л(128))|
ЪF$│E$лE$лE$)У
дA$│ Л(175)л Л(163))к
оB$│ Л(172)л Л(128))┴
╕C$│ Л(179)л Л(191))╪
┬D$│ Л(128)л Л(188))ч
╠VL│0:VR│12)■
╓S$│ Л(195)л Л(195)*
рT$│S$лS$лS$*$
ъL$│"T224O5L6CECE"*K
ЇM$│"O2T200V30L2EEECCDDCCDDECCDDEE"*]
■А X│79е399й32*vЗ@X, Л(255); Л(255);*}ЛX*ХЗ@239,E$;:З@271,E$;*г&З@207,E$;*╣0А X│1е4:а150,1:ЛX*├:IN│м1*фDЗ@47,E$;:З@431,E$;:З@463,E$;*№NВ MAIN ROUTINE HERE+XВ LEFT PLAYER ROUTINE+<bЕ  Ж(340)│253 ▒  Ж(340)│252 з 710+mlR│ Н(0):L│ Н(3):Е L┤21 з VL│VLм1:ЕVL┤0з VL│0+ТvЕ L▓41 з VL│VLл1:Е VL▓12 з VL│12+╔АV│1л32нVL:З@V,E$;:З@32лV,A$;:З@64лV,B$;:З@96лV,E$;+фКВ RIGHT PLAYER ROUTINE+їФЕ NU│1 з 790,ЮЕ  Ж(340)│254 ▒  Ж(340)│252 з 750,NиR│ Н(0):R│ Н(1):Е R┤21 з VR│VRм1:Е VR┤0 з VR│0,r▓Е R▓41 з VR│VRл1:ЕVR▓12 з VR│12,▒╝V│VRн32л29:З@V,E$;:З@32лV,C$;:З@64лV,D$;:З@96лV,E$;:Бе 590,╚╞В LEFT PLAYER SHOT-)╨V│(VLл1)н32:З@3лV,T$;:╔L$:З@3лV,F$;:З@9лV,T$;:╔L$:З@9лV,F$;:Е  С(32,2н(VLл1))┤▓0 з X│1:Бе850-u┌З@15лV,S$;T$;:╔L$:З@15лV,F$;E$;:З@23лV,T$;:╔L$:З@23лV,F$;:Е VL│VR з 890-ЕфFI│1:Бе 650-ЭюВ RIGHT PLAYER SHOT.°V│(VRл1)н32:З@23лV,T$;:╔L$:З@23лV,F$;:З@17лV,T$;:╔L$:З@17лV,F$;:Е  С(32,2н(VRл1))┤▓0 з X│2:Бе 850.LЗ@9лV,T$;S$;:╔L$:З@9лV,E$;F$;:З@3лV,T$;:╔L$:З@3лV,F$;:Е VL│VR з 1010.WБе 590.nВ COMPUTER ROUTINE.ЗЕ FI│1 з FI│0:Бе 590.д VR│VRлIN:Е VR│0 з IN│мIN.╣*Е VR│12 з IN│мIN.ё4V│VRн32л29:З@V,E$;:З@32лV,C$;:З@64лV,D$;:З@96лV,E$;/>Е  Д(100)▓DI з 750/HБе 590/,RВ HIT MIDDLE BARRIER/;\З@15лV,E$;/Cf╔M$/]pЕ X│1 з 650 :Д Бе 590/yzВ LEFT P. HITS RIGHT P./МДV│(VRл1)н32л29/ШОА X│1е3/▒ШЗ@V, Л(199); Л(203);/═вЗ@32лV, Л(197); Л(202);/╒м╔M$/с╢З@V,E$;/Ё└З@32лV,E$;/∙╩╔ M$0╘ЛX0▐SL│SLл10шБе 113004ЄВ RIGHT P. HITS LEFT P.0F№V│(VLл1)н32л10RА X│1е30kЗ@V, Л(199); Л(203);0ЗЗ@Vл32, Л(197); Л(202);0П$╔M$0Ы.З@V,E$;0к8З@Vл32,E$;0│B╔ M$0║LЛX0╞VSR│SRл10╥`Бе 11300√jЗ@484," LEFT:";SL;"      RIGHT:";SR;1.t╔"V25T3O3L2CL3CL8CL2CE-L8DL3DL8CL3CO2L8BO3L2C"1G~Е SL│5 ▒ SR│5 з 11701RИБе 3901fТВ MAIN END HERE1mЬЮ01ЛжЗ@32,"  FINAL SCORES:  ";1й░З@64,"                 ";1╟║З@96," LEFT  PLAYER:";SL;1ц─З@128,"                 ";2╬З@160," RIGHT PLAYER:";SR;2D╪╔"T3V25O3P2L4EEFGGFEDCCDEL3EL8DL2DL4EEFGGFEDCCDEL3DL8CL1C"2ZтА X│1е10:I$│ Т:ЛX2wьЗ@417,"  HIT ANY KEY  ";2ФЎЗ@449," TO PLAY AGAIN ";2╢З@87, Л(177); Л(179); Л(178);2█
З@118, Л(177); б(3,191); Л(178);2ЄА X│150 е 310 й 323З@X, б(5,191);3(ЛX312З@342, Л(181); б(3,191); Л(186);3F<З@243, б(3,175);3[FЗ@251, б(3,175);3rPА X│275 е 371 й 323ЦZЗ@X, б(2,175);:З@Xл9, б(2,175);3ЭdЛX3╚nЗ@402, Л(229); Л(239); Л(239); Л(234);3єxЗ@411, Л(229); Л(239); Л(239); Л(234);4$ВЗ@152, Л(143);:З@183, Л(159);:З@185, Л(159);41МА X│1е994JЦI$│ Т:Е I$┤▓"" з 3804QаЛX4\ка 60,24Н┤З@152, Л(207);:З@183, Л(223);:З@185, Л(223);4Ъ╛А X│1е994│╚I$│ Т:Е I$┤▓"" з 3804╗╥Л X4╟▄а 189,14╙цБе 14104щЁВ DIRECTIONS HERE4я·Ю4їЗ5З" 'BLAST' IS A ONE OR TWO PLAYER"5CЗ" GRAPHICS GAME. IN 'BLAST,' THE"5j"З" PLAYERS CONTROL LASER CANNONS,"5С,З" WHICH WILL BE  LOCATED ON  THE"5╕6З" LEFT  AND  RIGHT  SIDES OF THE"5╧@З" VIDEO DISPLAY."5°JЗ:З" THE OBJECT  OF THE GAME  IS TO"6TЗ" BLAST YOUR OPPONENT ... BEFORE"6F^З" HE(SHE) BLASTS YOU.  THE FIRST"6mhЗ" PLAYER TO  SCORE FIVE  HITS IS"6БrЗ" THE WINNER."6Ч|А X│1е4:а170,1:ЛX6ЭЖЗ6┼РЙ" HIT ENTER TO CONTINUE, READY";I$6╦ЪЮ6╤дЗ6°оЗ" THE LEFT JOYSTICK CONTROLS THE"7╕З" LEFT CANNON .... THE LEFT JOY-"7E┬З" BUTTON FIRES THE LEFT CANNON."7K╠З7r╓З" THE RIGHT JOYSTICK THEN, MOVES"7ЩрЗ" THE RIGHT CANNON ... THE RIGHT"7└ъЗ" JOYBUTTON FIRES THE RIGHT CAN-"7═ЇЗ" NON."7╙■З7·З" IF ONLY ONE PLAYER  DESIRES TO"8!З" PLAY, THE COMPUTER (ME, TRS80)"8HЗ" WILL CONTROL THE RIGHT CANNON."8_&З:АX│1е4:а170,1:ЛX8Д0Й" HIT ENTER TO BEGIN, READY";I$8К:Р. THE RIGHT"7└ъЗ" JOYBUTTON FIRES THE RIGHT CAN-"7═ЇЗ" NON."7╙■З7·З" IF ONLY ONE PLAYER  DESIRES TO"8!                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 б7
 В MARTIN MABEE POB 516 GOLETA  3,22,79 5:01 P M X:В ГCOPYRIGHT (C) CLOAD 1979}:В ГALSO APPEARED IN CURSOR MGZ.ЭВ CONVERSION BY CHROMASETTEй└1:Х100╩
K │ 57.29578 : W │ 1.5707963╨Юў З"   HOW FAR - BY MARTIN MABEE":ЗЖЗ"    THIS PROGRAM CALCULATES HOW FAR APART TWO POINTS ON THE     EARTH   ARE, AND WHAT DIRECTION THE DESTINATION IS FROM THE     ORIGIN."чЗ:З"(ON ANGLES > 179 OR < 1 A SMALL ERROR MAY OCCUR DUE TO ROUNDING)":З:Й"ENTER FOR MENU";A$√Ю:З"= MENU =":З8З "  1 = DEMO RUN USING THE WHITE  HOUSE AS THE ORIGIN."|З "  2 = YOU INPUT YOUR OWN CHOICE OF ORIGIN IN LAT. AND LONG."╛З "  3 = YOU INPUT YOUR OWN CHOICE OF ORIGIN WITH CITY NAME."єЗ "  4 = YOU INPUT BOTH ORIGIN AND DESTINATION."5 З "  5 = HINTS ON HOW TO FIND THE  LAT. AND LONG. OF PLACES."]&З:З:З"YOUR CHOICE (1, 2, 3, 4, 5)?"r(A$│ Т:ЕA$│"" з40Ц-И( Й(A$))Бе100,200,10000,500,50Я0Бе24╦2Ю:З:З"1  CALL YOUR LOCAL CITY LIBRARY."3З"2  LOOK IN THE CITIES INDEX PART   OF AN ATLAS.":ЗL4З"3  SCALE OFF A MAP THAT HAS LAT    AND LONG TICKS ON THE EDGE.":ЗФ5З:З"   THEN ADD THE CITY AND IT'S   LAT AND LONG TO THE DATA LIST."┐<З:З:Й"PRESS ENTER FOR MENU";A$ : Бе 24╓dВ FROM WHITE HOUSEnS2 │ 38 : S3 │ 53 : S4 │ 48 : S1$ │ "N"xБж 8970.ВБж 8930 : S1 │ D : S1$ │ D$>ЗЕA$│"3"з150iМS7 │ 77 : S8 │ 2 : S9 │ 36 : S6$ │ "W"uЦБж 8980ХаБж 8930 : S6 │ D : S6$ │ D$┐еЕA$│"3"зЗ:З"FROM ";NM$;", ";NC$:Бе180укЮ:З"= FROM THE WHITE HOUSE =":Зю┤Бе 221╚Бж 8940  : Бж 8970&╬Бж 8930 : S1 │ D : S1$ │ D$ >╤Бж 8950  : Бж  8980b╫Бж 8930 : S6 │ D : S6$ │ D$ : Юs▌ Бж 2600 : ЮБц Бж8880:ЗкЁЗ"LOCATION";д14)"ANGLE MILES KILOMS"╡·АI│1е3╒
Н N$,C$,E2,E3,E1$,E7,E8,E6$ч
ЕN$│"*" з9100
	Е  Р(N$,2,1) │ "9" з Бе 260.
D │ E2 : M │ E3 : S │ 0 : D$ │ E1$C
Бж 8930 : E1 │ Dj
"D │ E7 : M │ E8 : S │ 0 : D$ │ E6$
,Бж 8930 : E6 │ Dб
6F │ S1 : E │ E1 : C │ S6 м E6╖
@Бж 2900 : Бж 8890т
^ЗN$;",":З О(C$,14);д14)A;д19)SM;д26)KMЄ
cЕKM┤1000 зЗ∙
hЛI@
|З"  ENTER FOR MORE, M FOR MENU,   OR S TO SPECIFY DESTINATION - ";V
БA$│ Т:ЕA$│"" з385u
ЖЕ A$ │ "M" з П : Ю : Бе 24Х
РЕ A$ │ "S" з П : Ю : Бе 221д
ЪЮ : Бе 230╦
ЇВ YOU INPUT ORIGIN AND DESTINATIONЁ
■Ю:З"ORIGIN:":З:Бж 8940 : Бж 8970Бж 8930 : B1 │ D : B1$ │ D$&Бж 8950 : Бж 8980F0Бж 8930 : B6 │ D : B6$ │ D$q:З:З"DESTINATION:":З: Бж 8940 : Бж 8970СNБж 8930 : D1 │ D : D1$ │ D$зXБж 8950 : Бж 8980╟lБж 8930 : D6 │ D : D6$ │ D$щvF │ B1 : E │ D1 : C │ B6 м D6їАБж 2900	КH │ A : Бж 8960KФЮ:З"ANGLE OF DEPARTURE FROM ORIGIN  ";D;"D  ";M;"M  ";S;"S":ЗiЮH │ G : Бж 8960 : Бж 8890ЮиЗ"DISTANCE AS AN ANGLE":ЗD;"D  ";M;"M  ";S;"S":З╔▓З"STATUTE MILES";SM:З"KILOMETERS";KM:З╞З"   DO YOU WANT TO SOLVE ANOTHER PROBLEM WITH THE SAME ORIGIN?"3╨A$│ Т:ЕA$│"" з720 :ДЕA$│"Y" з570A┌Ю : Бе 24_
(В BEGINNING OR SPECIFIC ?╪
-З"  YOU CAN START FROM THE BEGIN- NING OF THE LIST OR YOU CAN     SPECIFY A CITY.":З:З"BEGINNING OR SPECIFIC (B/S)?"я
0A$│ Т:ЕA$│"" з2608 
2Е A$ │ "B" з П :  Р G
7З:З"WHAT IS THE FIRST LETTER OF THE CITY YOU HAVE IN MIND?" ^
<A$│ Т:ЕA$│"" з2620 s
AЕ  Й(A$)┤▓0з2620 │
FЗ"ONE MOMENT...":П:A5 │  К(A$) : Е 64 ┤ A5 ░ A5 ┤ 91 з 2640 ┐
KБе 2620 ┘
PН N$,Z$,Z,Z,Z$,Z,Z,Z$ ы
SЕN$│"*" з9100!

UЕ  К (N$) ┤  К (A$) з 2640!
ZР!0S В START OF CALCULATION SUB!MTE │ 90 м E : F │ 90 м F !i^Е C ▓ 180 з C │ C м 360!ЖhЕ C ┤ м180 з C │ 360 л C!жrC │ CоK : E │ EоK : F │ FоK!т|V │  Х(E)н  Х(F)л  Е(E)н  Е(F)н  Х(C) : Бж 8900 : G │ V""ЖV │ ( Х(E)м( Х(F)н  Х(G)))о( Е(F)н  Е(G)) : Бж 8900 : A │ V"TРG │ G н K : A │ A н K : Е C ┤ 0 з A │ 360 м A"ZЪР"r╖ Ж A9,1,2,3,4,5,6,7"Щ╨Ж ANCHORAGE,ALASKA,61,10,N,150,0,W"╝рЖ ATHENS,GREECE,38,0,N,23,44,E"шшЖ AUCKLAND,NEW ZEALAND,36,55,S,174,47,E" ъЖ B9,1,2,3,4,5,6,7#"ьЖ BAGHDAD,IRAQ,33,20,N,44,26,E#J°Ж BANGKOK,THAILAND,13,44,N,100,30,E#oЖ BERLIN,GERMANY,52,32,N,13,25,E#ТЖ BOMBAY,INDIA,18,56,N,72,51,E#┐8Ж BUENOS AIRES,ARGENTINA,34,40,S,58,30,W#╓>Ж C9,1,2,3,4,5,6,7#·@Ж CAIRO,U. A. R.,30,3,N,31,15,E$&TЖ CAPE HORN,SOUTH AMERICA,56,0,S,68,0,W$SXЖ CAPE TOWN,SOUTH AFRICA,33,56,S,18,28,E$jzЖ D9,1,2,3,4,5,6,7$МИЖ DELHI,INDIA,28,40,N,77,14,E$пШЖ DUBLIN,IRELAND,53,20,N,6,5,W$╞ЮЖ E9,1,2,3,4,5,6,7$юбЖ EVEREST MT.,NEPAL,27,59,N,86,56,E%вЖ F9,1,2,3,4,5,6,7%▓Ж G9,1,2,3,4,5,6,7%A┤Ж GALOPAGOS,ISLANDS,0,0,N,90,0,W%d╝Ж GIBRALTER,ROCK,36,9,N,5,21,W%П─Ж GOLETA,CALIFORNIA,34,25.7,N,119,50,W%║╠Ж GUAM,MARIANAS ISLDS,13,30,N,144,40,E%╤╥Ж H9,1,2,3,4,5,6,7%ї▄Ж HANOI,VIETNAM,21,1,N,105,52,E&рЖ HAVANA,CUBA,23,7,N,82,25,W&=шЖ HIROSHIMA,JAPAN,34,23,N,132,27,E&dЁЖ HONOLULU,HAWAII,21,19,N,157,50,W&{ЎЖ I9,1,2,3,4,5,6,7&Т■Ж J9,1,2,3,4,5,6,7&╣
Ж JERUSALEM,ISRAEL,31,47,N,35,13,E&╨
Ж K9,1,2,3,4,5,6,7&∙
 Ж KILIMANJARO,TANZANIA,3,2,S,37,20,E'
0Ж L9,1,2,3,4,5,6,7'.
@Ж LIMA,PERU,12,6,S,77,3,W'R
DЖ LISBON,PORTUGAL,38,44,N,9,8,W'Г
HЖ LITTLE AMERICA,ANTARCTICA,78,11,S,162,10,W'з
PЖ LONDON,ENGLAND,51,30,N,0,10,W'╛
dЖ M9,1,2,3,4,5,6,7'ч
АЖ MCKINLEY MT.,ALASKA,63,2,N,151,1,W(
ДЖ MECCA,SAUDI ARABIA,21,26,N,39,49,E(:
░Ж MOSCOW,SOVIET UNION,55,45,N,37,37,E(Q
╕Ж N9,1,2,3,4,5,6,7(x
╘Ж NEW YORK,NEW YORK,40,43,N,74,1,W(Я
▄Ж NORTH POLE,ARTIC,89,59.9,N,0,0,W(╢
рЖ O9,1,2,3,4,5,6,7(═
ЁЖ P9,1,2,3,4,5,6,7(ёЖ PEKING,CHINA,39,55,N,116,24,E)0Ж PRAGUE,CZECHOSLOVAKIA,50,5,N,14,25,E)38Ж Q9,1,2,3,4,5,6,7)JHЖ R9,1,2,3,4,5,6,7)v\Ж RIO DE JANEIRO,BRAZIL,22,55,S,43,12,W)Ч`Ж ROME,ITALY,41,54,N,12,28,E)оhЖ S9,1,2,3,4,5,6,7)╨ФЖ SEOUL,KOREA,37,31,N,127,6,E)·ЬЖ SINGAPORE,SINGAPORE,1,17,N,103,51,E*#дЖ SOUTH POLE,ANTARCTICA,90,0,S,0,0,W*GмЖ SUEZ,U. A. R.,29,52,N,32,33,E*o┤Ж SYDNEY,AUSTRALIA,33,55,S,151,10,E*Ж╕Ж T9,1,2,3,4,5,6,7*й╨Ж TOKYO,JAPAN,35,40,N,138,45,E*└рЖ U9,1,2,3,4,5,6,7*╫шЖ V9,1,2,3,4,5,6,7*ю№Ж W9,1,2,3,4,5,6,7+Ж WARSAW,POLAND,52,12,N,21,0,E+=Ж WASHINGTON D. C.,U S A,38,55,N,77,4,W+TЖ Y9,1,2,3,4,5,6,7+kЖ Z9,1,2,3,4,5,6,7+У Ж ZURICH,SWITZERLAND,47,15,N,8,40,E+й?Ж *,*,0,0,*,0,0,*+├"░В PRINT FROM LAT LONG+№"▒З"FROM  LAT";S2;S3;S4;S1$:З"      LONG";S7;S8;S9;S6$,"▓Р,"║ В CONVERT TO MILES,T"╗SM │ ( G н 60 н 1.151553) : KM │ ( G н 60 н 1.85325 ),Z"╝Р,z"├ В START OF ARC COSIGN SUB.,Ч"─Е V ▓ │ 1 з V │ .9999999,╢"╬Е V ┤ │ м1 з V │ м.9999999,╘"╪V │ м  Ф(Vо  Ы(мVнVл1))лW,┌"┘Р-"т В START SUB THAT CONVERTS D , M , S TO +/- DECIMAL DEG-4"уD │ D л (Mо60) л (Sо3600)-["фЕ D$ │ "S" з D │ мD : D$ │ "SOUTH"-Б"хЕ D$ │ "E" з D │ мD : D$ │ "EAST"-Я"цЕ D$ │ "N" з D$ │ "NORTH"-╝"чЕ D$ │ "W" з D$ │ "WEST"-┬"шР-р"ь В INPUT SUB FOR LATITUDE."эЙ"WHAT LATITUDE (D, M, S)";S2,S3,S4.u"юЕ S2▓│90 зЗ"THE LARGEST VALID NUMBER FOR    LATITUDE IN THIS PROGRAM IS     89 D  59 M  59 S." : Бе 8941.о"яЙ "NORTH OR SOUTH (N/S)";S1$:Q│(S1$│"S") ▒ (S1$│"N").э"ЁЕQ│0 зЗ"LATITUDES ARE LABELED NORTH OR  SOUTH" :   Бе 8943.є"ёР/"Ў В INPUT SUB FOR LONGITUDE/;"ўЙ"WHAT LONGITUDE (D, M, S)";S7,S8,S9/Н"°ЕS7▓180 зЗ"THE LARGEST VALID NUMBER FOR    LONGITUDE IS 180 DEGREES": Бе 8951/м"∙Й"EAST OR WEST (E/W)"; S6$/╔"·Q│(S6$│"E") ▒ (S6$│"W") 0"√ЕQ│0 зЗ"LONGITUDES ARE LABELED EAST OR  WEST":Бе 89530	"№Р0-# В DEC DEGREES TO D M S TO 1/100h#D │ H : M │ (HмD)н60 : S │ (((Hм(Dл(Mо60))н3600)л.5)) 0n#Р0Ъ#
D │ S2 : M │ S3 : S │ S4 : D$ │ S1$ : Р0╞#D │ S7 : M │ S8 : S │ S9 : D$ │ S6$ : Р1#МЗ"THOSE ARE ALL OF THE CITIES.":Й"PUSH ENTER FOR MENU";A$:Ю1#Ц П : Бе 241M'З:Й"ENTER THE CITY NAME YOU WANT AS THE ORIGIN";NM$1S'П1u' НNX$,NC$,S2,S3,S1$,S7,S8,S6$1И'ЕNX$│"*" з91001а'$ЕNM$│NX$з120:Д10010S7 : M │ S8 : S │ S9 : D$ │ S6$ : Р1#МЗ"THOSE ARE ALL OF THE CITIES.":Й"PUSH ENTER FOR MEN