:Ю:Бж9000J0>АЗ@128,"  UNTIL NEXT TIME...   BYE!"JC>КА LP│1 е 500:ЛJWBh╔"V30;03;T5;L5"JiFP╔"CDEFGAABBC"JoJ8КJvN Ю0JСN*Е HJ┤▓1з HJ│1:МFG$(16)JЬN4C1│150JйNHАX1│1е16J┐NRFG$(X1)│ б(32,C1)J┼N\ЛJ╓NfY1│0:C1│C1л1JуNzАX1│1е16JїNДЗ@Y1,FG$(X1);KNШY1│Y1л32KNвЛKNмV1│1535KBN╢АZ1│1504е1519:ТZ1,C1м1:ТV1,C1м1:V1│V1м1:ЛKHN╗РKXN╩ЕS$│"Y" з КKhu0Ю0:З@96," "KЗu5З@102,"COPYRIGHT (C) 1982"KХu7З@128," "Kпu:З@134,"J. J. SCHMIDT"K╜uAЗ@160," "K▌uDЗ@166,"ALL RIGHTS RESERVED"KЄuNАYY│1е500:Л:Бе703▒6n╒[C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                AR CAN YOU GO ?"     AqБж8080ACvЗ"     IF YOU ARE READY TO TRY"AN{Бж8090AhАЗ"     GIVE ME A 'Y'"AsЕБж8100A~ЖБж8110AЙЗБж8120AФИБж8130AЯЙБж8140AкКБж8150A├ФQ$│ Т:Е Q$│"" з 1940A╘ЮЕ Q$│"Y" з РBиNO$│"Y":Бж9000:З@128,"WELL, LET'S GET TOGETHER SOON..."B▓КB,╝MM$│"M E M O R Y"B7╞LC│491BF╨А JZ│1е100Bd┌З@LCм11,"           ";MM$BqфLC│LCм32BЖюЕ LC┤32 з LC│491BМ°ЛBнЗ"         M  E  M  O  R  Y"B╤З"       M   E   M   O   R   Y"BўЗ"    M    E    M    O    R    Y"CЗ" M     E     M     O     R     Y"C7 ╔"V30;03;T255;L255"CE*А JJ│1е30CX4╔"CDEABFCD;V-"C^>ЛCСHPD$│"FGRPBCZXAQPLTYEIKBNTLDFSEOKBVCXRUGJVJXOQ"CЧMЮCеRА JJ│1е50C╝\LN│ Д(5):LL│ Д(35)C╥fST$│ Р(PD$,LL,LN)CфpЗ@ Д(510),ST$Cяzа169,1CїДЛC√ОРD
ШПDвАPQ│1е26DмНWW$:ЛD2╢Ж131,134,140.147,150DK└Ж153,156,166,169,172Dd╩Ж195,198,201,204,211D}╘Ж214,217,220,230,243DО▐Ж246,249,252DашАWO│1е  Д(22)DиЄНDBDо№ЛD┤	ПD╔	Е CG┤▓0 з Бе3000D▄	:ГBUILD BORDERDЄ	.АBD│1024е1504 й32D¤	8ТBD,DBE
	BТBDм1,DBE	LЛE!	`Т1055л480,DBE'	jРE?╕Е CG│1 з CG│0:Бе765EX┬Е CG│2 з CG│0:Бе 940Eq╠Е CG│3 з CG│0:Бе1110EК╤Е CG│4 з CG│0:Бе1280Eг╓Е CG│5 з CG│0:Бе1450E╝рЕ CG│6 з CG│0:Бе1630E╒ъЕ CG│7 з CG│0:Бе1790EэяЗ"ERROR.........":СF@Т1024,DB:Т1055,DB:РFJТ1056,DB:Т1087,DB:РF5TТ1088,DB:Т1119,DB:РFM^Т1120,DB:Т1151,DB:РFehТ1152,DB:Т1183,DB:РF}rТ1184,DB:Т1215,DB:РFХ|Т1216,DB:Т1247,DB:РFнЖТ1248,DB:Т1279,DB:РF┼РТ1280,DB:Т1311,DB:РF▌ЪТ1312,DB:Т1343,DB:РFїдТ1344,DB:Т1375,DB:РG
оТ1376,DB:Т1407,DB:РG%╕Т1408,DB:Т1439,DB:РG=┬Т1440,DB:Т1471,DB:РGU╠Т1472,DB:Т1503,DB:РGm╓Т1504,DB:Т1535,DB:РGy#(Бе20000GН#UЕNO$│"Y" з 9095Gе#Z╔"V30;03;T255;L255"G▒#dАGL│1е3G├#n╔"DEFGABC;V-"G╒#x╔"CBAGFED;V+"G█#ВЛGш#ЗNO$│"":РGЇ'Бж20000H)Е HT$│"Y" з РH)hТ1058, К("P")H*)╠Т1059, К("R")H<*0Т1060, К("O")HN*ФТ1061, К("G")H`+\Т1064, К("M")Hr+└Т1063, К("A")HД,$Т1062, К("R")HЦ,ИТ1068, К("B")Hи,ьТ1069, К("Y")I-PТ1131,255:Т1163,255м16:Т1195,255:Т1204,255м32:Т1223,255:Т1227,255м48:Т1236,255:Т1255,255м64:Т1256,255Ir-┤Т1257,255:Т1258,255м16:Т1259,255:Т1268,255м32:Т1296,255:Т1300,255м48:Т1328,255:Т1329,255м64IЧ.Т1330,255:Т1331,255м16:Т1332,255Iг2▄АUI│1е3I─2ц╔"T13;L3;V30;CCDEFGAB;P55;C"I╩2ыЛI╨2ЁРI┘2ї╔"C"Iэ3,HT$│"Y":Бе10000Iє3РКJ:ШNO$│"Y"8
-Бж80408-2З"     CONTROL THE LENGTH AND"887Бж80508Y<З"     SPEED.  YOU ALSO CAN"8dAБж80608ЕFЗ"     SELECT THE NUMBER OF"8РKБж80708пPЗ"     STRINGS DISPLAYED."8║UБж80808╪ZЗ"     BECAUSE THE GROUP"8у_Бж80909dЗ"     DISPLAY IS RANDOM, IT"9iБж810093nЗ"     WILL OCCASIONALLY COME"9>sБж81109_xЗ"     UP WITH A REAL WORD."9j}Бж81209ЕВЗ"          <ANY KEY>"9РЗБж81309ЫЙБж81409жМБж81509└ЦGL$│ Т:ЕGL$│"" з 14309╥аЮ:CG│5:Бе22009єкЗ"       THIS WORD MAY BE A"9■пБж8000:!┤З"     NAUGHTY WORD.  IF THIS":,╕Бж8010:N╛З"     IS OF CONCERN, REMOVE":Y├Бж8020:z╚З"     THE VOWELS FROM THE ":Ж═Бж 8030:е╥З"     DATA STATEMENT AND":▒╫Бж 8040:╨▄З"     CHANGE THE NUMBERS":▄сБж 8050;цЗ"     IN THE RND & FOR TO 21.";ыБж 8060;1ЁЗ"     (LINES 340, 370 & 2210).";=їБж 8070;^·З"     YOU SHOULD START OFF";j Бж 8080;ИЗ"     WITH A FEW SHORT ";Ф	Бж 8090;╕З"     STRINGS AT A SLOW SPEED";─Бж 8100;цЗ"     AND INCREASE BOTH THE";ЄБж 8110<"З"     LENGTH OF THE STRINGS"< 'Бж 8120<E,З"     AND THE SPEED AS YOU GO."<Q1Бж 8130<l6З"          <ANY KEY>"<x;Бж 8140<Д@Бж 8150<ЮJGL$│ Т:ЕGL$│"" з 1610<┤TЮ:З"":CG│6:Бе2200<╙^З"        YOUR SHORT TERM"<▐cБж8000=
hЗ"     MEMORY, AS AN AVERAGE,"=mБж8010=,rЗ"     CAN HANDLE 7 ITEMS."=7wБж8020=U|З"     BY USING 'GROUPS'"=`ББж8030=БЖЗ"     (STRINGS) OF LETTERS"=МЛБж8040=░РЗ"     YOU CAN REMEMBER LONGER"=╗ХБж8050=█ЪЗ"     SEQUENCES.  THIS IS"=цЯБж8060>
дЗ"     BECAUSE, WITH PRACTICE,">йБж8070>7оЗ"     YOUR MEMORY USES THE ">B│Бж8080>a╕З"     SAME 'SLOT' FOR A ">l╜Бж8090>О┬З"     WHOLE GROUP AS FOR A ">Щ╟Бж8100>┤╠З"     SINGLE LETTER.">└╤Бж 8110>█╓З"          <ANY KEY>">ц╪Бж8120>ё█Бж8130>№▌Бж8140?рБж8150?!ъGL$│ Т:ЕGL$│"" з 1770?7ЇЮ:З"":CG│7:Бе2200?Y■З"       SO IT IS NOT AT ALL"?dБж8000?ЕЗ"     IMPOSSIBLE TO EXPAND"?Р
Бж8010?нЗ"     YOUR ABILITY TO "?╕Бж8020?┌З"     REMEMBER 7 LETTERS TO"?х!Бж8030@	&З"     THE ABILITY TO REMEMBER"@+Бж8040@30З"     7 GROUPS OF SAY 5 "@>5Бж8050@a:З"     LETTERS.  YOU ARE THEN"@l?Бж8060@ПDЗ"     REMEMBERING 35 LETTERS"@░NЗ"     WITH THE SAME MENTAL"@╙XЗ"     HORSEPOWER USED FOR 7."@рbЗ"     "@ыgБж8070AlЗ"        HOW FЗ"       IT HAS BEEN KNOWN"/(Бж 8010/GЗ"     FOR SOME TIME THAT"/SБж 8020/sЗ"     WHAT WE CALL MEMORY"/Бж 8030/Ю З"     IS REALLY TWO VERY"/к%Бж 8040/╦*З"     DIFFERENT FUNCTIONS."/╫/Бж 8050/∙4З"     CALLED SHORT TERM AND"09Бж 80600)>З"     LONG TERM MEMORY, THESE"05CБж 80700WHЗ"     TWO ABILITIES CAN NOT"0cMБж 80800ЕRЗ"     ONLY BE TRAINED, BUT "0СWБж 80900╡\З"     CAN ACTUALLY BE MADE TO"0┴aБж 81000рfЗ"     ACHIEVE SOME VERY "0ьkБж 81101pЗ"     REMARKABLE RESULTS IF"1uБж 81201>zЗ"     YOU ARE WILLING TO TRY."1JБж 81301eДЗ"          <ANY KEY>"1qЙБж 81401}УБж 81501ЧШGL$│ Т:Е GL$│"" з 9201нвЮ:З"":CG│2:Бе22001╨мЗ"        IT IS NOT A MATTER "1▄▒Бж 80001■╢З"     OF INTELLIGENCE.  WE "2
╗Бж 80102-└З"     ALL HAVE THE NECESSARY"29┼Бж 80202W╩З"     EQUIPMENT.  IT IS"2c╧Бж 80302Г╘З"     MOSTLY A MATTER OF "2П┘Бж 80402░▐З"     EFFORT AND TRAINING."2╝уБж 80502▄шЗ"     HOW MUCH EFFORT IS,"2шэБж 80603
ЄЗ"     OF COURSE, UP TO YOU."3ўБж 807038№З"     THE MORE YOU TRY THE "3D
Бж 80803iЗ"     BETTER YOUR MEMORY WILL "3uБж 80903ЧЗ"     GET.  YOUR SHORT TERM"3гБж 81003╞З"     MEMORY IS THE ONE THAT"3╥Бж 81103Ї$З"     CAN MOST BE IMPROVED."4)Бж 81204.З"           <ANY KEY>"4(3Бж 8130445Бж 81404@8Бж 81504ZBGL$│ Т:ЕGL$│"" з 10904pLЮ:З"":CG│3:Бе22004СVЗ"        BY UTILIZING ONE "4Э[Бж 80004┬`З"     OF THE FAVORITE TRAINING"4╬eБж 80104юjЗ"     METHODS USED BY THE"4·oБж 80205tЗ"     RESEARCHERS IN THIS "5'yБж 80305D~З"     FIELD, THE TIMED"5PГБж 80405rИЗ"     SEQUENCE/RANDOM GROUP"5~НБж 80505ЮТЗ"     LETTERS METHOD, YOU"5кЧБж 80605╬ЬЗ"     CAN POTENTIALLY IMPROVE"5┌бБж 80705№жЗ"     YOUR MEMORY AS FAR AS"6лБж 80806+░З"     YOU ARE WILLING TO GO."67╡Бж 80906Z║З"     AND, YOU CAN HAVE SOME"6f┐Бж 81006Й─З"     FUN DOING IT WHILE YOU"6Х╔Бж 81106╡╬З"     CHART YOUR PROGRESS.6┴╙Бж 81206▄╪З"          <ANY KEY>"6ш▌Бж 81306Ї▐Бж 81407тБж 81507ьGL$│ Т:ЕGL$│"" з 126070ЎЮ:З"":CG│4:Бе22007QЗ"        THIS PROGRAM WILL"7\Бж80007y
З"     PROVIDE YOU WITH"7ДБж80107зЗ"     VARYING LENGTH STRINGS"7▓Бж80207╙З"     OF RANDOM LETTERS AT"7▐#Бж80307 (З"     VARYING SPEEDS.  YOU"D4BR5;BU7BR4NR5D3NR4D4BR5;BR4BU7D7R5;BU7BR4NR5D3NR4D4R5"/Ж/Е  Ж(339)│251 ▒  Ж(341)│247 ▒  Ж(342)│247 ▒  Ж(343)│247 ▒  Ж(344)│247 з 5000╞"C3;S8;BM72,4;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BR4BU1;D7U4R5NU3D4;BR4BU7D6F1R3E1U6BR4NR5D3NR4D4BR5;BU7BR4NR5D3NR4D4BR5;BR4BU7D7R5;BU7BR4NR5D3NR4D4R5"0p1Е  Ж(339)┤▓251 ░  Ж(341)┤▓247 ░  Ж(342)┤▓247 ░  Ж(343)┤▓247 ░  Ж(344)┤▓247 з 460v2Р0г3├(((X16м1)н50)л32,((Y16м1)н40)л32),2,3:Р0╨4├(((X16м1)н50)л32,((Y16м1)н40)л32),4,3:Р0┘5 Я│00ц6M│1:Бж460■7Е  Ж(339)│251 з 1081
8ZT│ZTл11!9Е  Ж(341)│247 з 6218:Е  Ж(342)│247 з 751O;Е  Ж(343)│247 з 681f<Е  Ж(344)│247 з 811o=Бе541Й>Е Y16│4 з а100,1:Бе541Т?Бж511о@A(X16,Y16)│A(X16,Y16л1)1├AX│X16:Y│Y16:Бж261╓BY16│Y16л1:Бж521▀CБе871∙DЕ X16│4 з а100,1:Бе542EБж512FA(X16,Y16)│A(X16л1,Y16)23GX│X16:Y│Y16:Бж262FHX16│X16л1:Бж522OIБе872UJК2oKЕ Y16│1 з а100,1:Бе542xLБж512ФMA(X16,Y16)│A(X16,Y16м1)2йNX│X16:Y│Y16:Бж262╝OY16│Y16м1:Бж522┼PБе872▀QЕ X16│1 з а100,1:Бе542шRБж513SA(X16,Y16)│A(X16м1,Y16)3TX│X16:Y│Y16:Бж263,UX16│X16м1:Бж5235VБе873щWЕ A(1,1)│1 ░ A(2,1)│2 ░ A(3,1)│3 ░ A(4,1)│4 ░ A(1,2)│5 ░ A(2,2)│6 ░ A(3,2)│7 ░ A(4,2)│8 ░ A(1,3)│9 ░ A(2,3)│10 ░ A(3,3)│11 ░ A(4,3)│12 ░ A(1,4)│13 ░ A(2,4)│14 ░ A(3,4)│15 з 893ЄXБе544YWN│ Я:Ю( Д(8))4ZSC│1:АQ│1е104 [┐1,SC4)\╔ S$4@]Е SC│1 з SC│0:Бе954I^SC│14Q_Л Q4x`З@99," YOU COMPLETED THE PUZZLE ";4ХaЗ@138," IN";ZT;"MOVES ";4ЮbSC│14╚cSQ│ Б(WNо60):MQ│ Б(SQо60):SQ│SQмMQн604┘dЕ MQ│0 з 1025eЗ@170, MQ;"MIN. AND";SQ;"SEC.";:Бе1035fЗ@170, SQ;"SEC.";5EgЗ@481,"PRESS Y TO TRY AGAIN. N TO END";5]hI$│ Т:Е I$│"" з 1045ЮiЕ I$│"Y" з M│0:Ю( Д(8)):З@200," RESTARTING ";: Я│0:ZT│0:Бе125▒jЕ I$┤▓"N" з1045ьkЮ( Д(8)):З@203,"T.T.F.N.";:З@448,"BYE-BYE";:Т65494,0:Ц68lЮ( Д(8)):З@102," YOU GAVE UP AFTER ";:З@138,ZT;"MOVES AND ";:WN│ Я:Бе986Cm└2:Бе93:З@66,"  SAVE TO TAPE  ";:З@130,"  SAVE TO DISK  ";:З@194,"  LOAD FROM TAPE";:З@258,"  LOAD FROM DISK";:CT│17ЙCT$│ П( И(CT),1):LP│ Ю(" 1 2 3 4",CT$):LP│LPн32л2:З@LP,">";:АJ│0е0:Z$│                                                                                                                                                                                                                                                                  D&
О6&:Г SHUFFLE  &0:Г by PHIL BEISTEL&J:Г    1439 ARNOLD ST.&c:Г    PGH, PA. 15220&ФЕ  Ж(&HC000)│126 ░  Ж(&HC001)│126 з Т65495,0&йXR│ Д(м Я):Бе109'1	Ю( Д(8)):З@11,"'SHUFFLE'";:З@96," ARRANGE THE NUMBERS FROM 1 TO":З" 15, UPPER LEFT TO LOWER RIGHT.":З" USE THE ARROW KEYS TO MOVE."'к
З@228,"DUPLICATE THIS PATTERN:";:З@298," 1  2  3  4";:З@330," 5  6  7  8";:З@362," 9 10 11 12";:З@394,"13 14 15   ";'╥М A(4,4),B(16):X16│0:Y16│0:M│0:ZT│0(&S$│"T200L200O4V31;1;2;3;4;5;6;7;8;9;10;11;12;11;10;9":T$│"T100;L100V31;O4;1;12"(^
АX│1е4:АY│1е4:A(X,Y)│0:ЛY:ЛX:┐0,0:АX│1е16:B(X)│X:ЛX(pАX│1е4:АY│1е4(}D│ Д(16)(ПЕ B(D)│0 з 15(иЕ D│16 з X16│X:Y16│Y(─A(X,Y)│B(D):B(D)│0:ЛY,X(╧╚1,1:╝)e╞"C2;S8;BM72,4;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BR4BU1;D7U4R5NU3D4;BR4BU7D6F1R3E1U6BR4NR5D3NR4D4BR5;BU7BR4NR5D3NR4D4BR5;BR4BU7D7R5;BU7BR4NR5D3NR4D4R5")О╞"C3;S4;BM28,28;R203;D163;L203;U163")Я├(40,30),2,3)ц╞"C3;S4;R51;D163;R51;U163;R51;D163;R50;U40;L203;U41;R203;U41;L203")яБж52*
АX│1е4:АY│1е4*q╔ T$:X$│ И(((Xм1)н50)л32):Y$│ И(((Yм1)н40)л32): И A(X,Y) Бе 29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44*ЭЗ@483,"(PRESS ANY KEY TO PLAY.)";:I$│ Т*┴I$│ Т:Е I$│"" з 28 :Д ┐1,0:Бе53*є╞"C4;S8;BM"лX$л","лY$л"BD5BR8E3D13NL3R3":Бе44+-╞"C4;S8;BM"лX$л","лY$л"BD6BR8U2E1R6F1D4G1L7D6R7":Бе44+h╞"C4;S8;BM"лX$л","лY$л"BD2BR6R6F1D4G1NL4F1D4G1L6":Бе44+Ъ ╞"C4;S8;BM"лX$л","лY$л"BD2BR12ND14G8R12":Бе44+╒!╞"C4;S8;BM"лX$л","лY$л"BD3BR6NR8D6R7F1D4G1L7H1U2":Бе44,"╞"C4;S8;BM"лX$л","лY$л"BD3BR7R6F1H1L6G1D10F1R6E1U6H1L6G1":Бе44,S#╞"C4;S8;BM"лX$л","лY$л"BD3BR6R10G2D1G2D1G2D1G2D1":Бе44,Ю$╞"C4;S8;BM"лX$л","лY$л"BD2BR8R6F1D4G1L6H1U4NE1D4F1G1D5F1R6E1U5H1":Бе44,▀%╞"C4;S8;BM"лX$л","лY$л"BD3BR8R6F1D4G1L6H1U4NE1D4F1R6G6":Бе44-&&╞"C4;S8;BM"лX$л","лY$л"BD5BR4E2D12NL2R2BR4R4E1U10H1L4G1D10F1":Бе44-e'╞"C4;S8;BM"лX$л","лY$л"BD4BR4E2D12NL2R2BR4R2NR2U12G2":Бе44-▒(╞"C4;S8;BM"лX$л","лY$л"BD5BR4E2D12NL2R2BR4NR5U6R4U1R1U4L1U1L3D1L1":Бе44-∙)╞"C4;S8;BM"лX$л","лY$л"BD4BR4E2D12NL2R2BR4R4E1U4H1NL3E1U4H1L4":Бе44.6*╞"C4;S8;BM"лX$л","лY$л"BD4BR4E2D12NR2L2BR12U12G6R8":Бе44.Б+╞"C4;S8;BM"лX$л","лY$л"BD5BR4E2D12NL2R2BR3BU1NU2F1R6E1U4H1L6U6R7":Бе44.Ш,Е M┤▓0 з Р :Д ЛY,X.б-Бе27/7.╞"C2;S8;BM72,4;BD1D1F1R3F1D2G1L3H1BU5E1R3F1BR4BU1;D7U4R5NU3D4;BR4BU7D6F1R3E1U6BR4NR5D3NR4 %є&
:Г THE MEMORY BUILDER&5:Г A LEARNING GAME BY&H:Г JIM SCHMIDT&_(:Г 196A ARLENE CT.&t2:Г WHEELING, IL.&Б<:Г 60090&И>Ю0&Щ?Т280, Ж(275)&г@Х1000&пAБж10000&╗CБе30000&╟FБж 1980&▐P:Г ENTRY FOR RERUN&хZЮ0')dБж2200:З@128, "   WANT INSTRUCTIONS? - <Y/N)":Т1152,DB:Т1183,DB'AnA$│ Т:Е A$│"" з 110'WxЕ A$│"Y" з Бж 750'ЬВЮ0:Бж2200:З@128,"     NUMBER OF STRINGS (1-9)":Т1152,DB:Т1183,DB'╡МAI$│ Т:Е AI$│"" з140'╩Ца234,1:A│ Й(AI$)(аЕ A│0 з З"          CAN'T BE ZERO":а7,7:А LO│1 е 100:Л:Бе 130(еЕA▓5зЗ"(^кЮ0:Бж2200:З@128,"     LENGTH OF STRINGS <1-9> ":Т1152,DB:Т1183,DB(w┤BI$│ Т:ЕBI$│"" з 180(М╛а234,1:B│ Й(BI$)(╬╚Е B│0 з З"          CAN'T BE ZERO":а7,7:А LO│1 е 100:Л:Бе 170)╥Ю0:Бж2200:З@128,"  DIFFICULTY LEVEL <TIME><1-5>":Т1152,DB:Т1183,DB)/▄CI$│ Т:Е CI$│"" з 220)Dца234,1:C│ Й(CI$))ЖЁЕ C│0 з З"          CAN'T BE ZERO":а7,7:А LO│1 е 100:Л:Бе 210)╩ЄЕ C▓5 з З"      YOU MUST BE KIDDING!!!":а7,7:А LO│1е100:Л:Бе210)╓·C│900оC)с
Бж 330)ш
Ю0*
З@32,"   PRESS SPACE BAR WHEN READY"*&
"З@140,"ready ??"*S
$З@148, б(11, Л(144)):Т1183,144:Т1169,144*^
,Бж2200*v
6A$│ Т:Е A$│"" з 310*Б
@Бе 490*ж
JNO$│"Y":Бж9000:М AA$(A):М ZZ$(A)*р
TЖ A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z*ь
^А I│1еA*°
hА K│1еB+
rD│ Д(26)+
|А J│1еD+
ЖН BB$+!
РЛ+'
ЪП+=
дAA$(I)│AA$(I)лBB$+[
оЗ@128м32,"PLEASE WAIT..."+f
╕а234,1+С
┬З@128,"I'M GETTING MY STUFF TOGETHER."+Щ
╠Л:Л+Я
╓Р+е
рЮ+▒
ъА L│1еA+╚
эЗ@224,">>>>>>>>>>"+┘
ЇЗ@235,AA$(L)+Ё
ўЗ@246,"<<<<<<<<<<"+■
■А M│1еC:Л,	а245,1,З@225, б(30,255),$Л,7а 200,1:а200,1,ZЮ0:З"        ANSWER TIME !!!!",Х&З "ENTER STRINGS ONE AT A TIME AND <ENTER> AFTER EACH",б0АAZ│1еA,о:ЙZZ$(AZ)-(DЕ AA$(AZ)▓┤ZZ$(AZ) зБж9000:а134,7:а2,24:З"YOU MISSED IT...":З"YOU ENTERED ";ZZ$(AZ);" SHOULD BE "AA$(AZ):R│Rл1:Бе 690-.NЛ-:XБж 9000-ebЗ@96,"  ALL STRINGS ARE CORRECT !!!!!"-xlа 69,2:а 111,9-Лvа 69,2:а 111,9-нАSC│(Aн2)л(Bн3)л( Й(CI$)н4)н10-╦КЗ@160,"YOUR SCORE IS ";SC-╙ФЗ"".ЮЗ@224,"C O N G R A T U L A T I O N S ! ".иБе 710.?▓З"":З"PROGRESS IS... CONTINUOUSLY      TRYING."._╝З"DEFEAT IS... NOT TRYING.".g╞З"".{╨З"AGAIN? <Y/N>".У┌S$│ Т:Е S$│"" з 730.┤фЕ S$│"Y" з О 80  :Д Бе 15000.║щК.┴ю:Г.╙°Ю:CG│1:Бе2200.Ё¤З"         ***MEMORY***".№■Бж 8000/ ╛&dВ ** CIRCLES AND ARCS **&%n:Г&8xВ ** INPUTS **&>ВЮ&_МЙ "STARTING ANGLE (DEG)";SAN&~ЦЙ "ENDING ANGLE (DEG)";EAN&ЪаЙ "INCREMENT (DEG)";INC&лкЙ "RADIUS";R&╚┤Й "CENTER X,Y";XCEN,YCEN&╧╛:Г&ш╟В ** SET GRAPHICS **&Є╚╚ 4,1&∙╥╝1'▄┐ 1,0'
ц┴ 0,1'Ё:Г'4
+В ** CONVERT AND GO PLOT **'I
,PL│INCо57.295779'Y
6EAN│EANмINC'r
@╗(0,180)м(250,180),╜'З
J╗(0,180)м(0,0),╜'У
TБж 2000'к
ПВ ** HOLD IMAGE **'┤
РA$│""'╘
ЪA$│ Т: Е A$│"" з 410 :Д 130'┌
дК'с
о:Г(╞В ** CALCULATE AND PLOT **(╨А N│SAN е EAN й INC(,┌ANG│Nо57.295779(AфX│Rн Х(ANG)лXCEN(_юY│180м(Rн Е(ANG)лYCEN)н.8(x°XX│Rн Х(ANGлPL)лXCEN(ЪYY│180м(Rн Е(ANGлPL)лYCEN)н.8(п╗(X,Y)м(XX,YY),╜(╖Л N(╜ Р44,186),W,G)
─(39,174)м(63,186),Z,G:L$│ Л(129):Q$│"DPMPS"лL$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &dВ ** CIRCLES AND ARCS **&%n:Г&8xВ ** INPUTS **&>ВЮ&_МЙ "STARTING ANGLE (DEG)";SAN&~ЦЙ "ENDING ANGLE (DEG)";EAN&ЪаЙ "INCREMENT (DEG)";INC&лкЙ "RADIUS";R&╚┤Й "CENTER X,Y";XCEN,YCEN&▐╖Й "X-STRETCH";XST&Ї║Й "Y-STRETCH";YST&√╛:Г'╟В ** SET GRAPHICS **'╚╚ 4,1'%╥╝1'/▄┐ 1,0'9ц┴ 0,1'@Ё:Г'`
+В ** CONVERT AND GO PLOT **'u
,PL│INCо57.295779'З
/XCEN│XCENоXST'Щ
2YCEN│YCENоYST'й
6EAN│EANмINC'┬
@╗(0,180)м(250,180),╜'╫
J╗(0,180)м(0,0),╜'у
TБж 2000'·
ПВ ** HOLD IMAGE **(
РA$│""($
ЪA$│ Т: Е A$│"" з 410 :Д 130(*
дК(1
о:Г(P╞В ** CALCULATE AND PLOT **(h╨А N│SAN е EAN й INC(|┌ANG│Nо57.295779(ЧфX│(Rн Х(ANG)лXCEN)нXST(╢юY│180м(Rн Е(ANG)лYCEN)нYST(╒°XX│(Rн Х(ANGлPL)лXCEN)нXST(°YY│180м(Rн Е(ANGлPL)лYCEN)нYST)
╗(X,Y)м(XX,YY),╜)Л N) Р?АI│0е160й40:┬(20лI,20),12,3,.9)R├(20лI,20),3,3)n
╗(8лI,10)м(32лI,30),╛,B)╜(20лI,16,2))ЖЛI)╢╗(32,10)м(22,20),╛:╗м(32,30),╛:├(24,20),1,1)■АS│1е22:F│ К( Р(Q$,S,1))л31:З@324лS, Л(F);:ЛS:Q$│"GSFE"лL$л"TDFSCP"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
+&
:ГLISTING #2&:Г&=:ГTHIS PROGRAM IS USED TO CHECK&Y:ГALL SECTORS ON A DISK&|:ГIF IT ENDS WITH AN I/O ERROR&а:ГTHE LAST TRACK/SECTOR DISPLAY&╢:ГIS NOT READABLE&╜:Г&ч
└ 1:Х 8000:DR│0  :ГDR IS DRIVE NUMBER'А T│ 0 е 34:Ю:А S│1 е 18'*З T,S:▀ DR,T,S,A$,B$:Л S,T:Х 2000<N│Nл1:Л J,S'W=:ГBUBBLE SORT CAN GO HERE'FА M│1 е N:Е  О(F$(M),1)│ Л(0) з 100'╡PЗ#м2:З#м2, О(F$(M),11);"  ";:G│ К( Р(F$(M),14,1))'хZЗ#м2,G;"-";:G│ К( Р(AL$,Gл1,1)):Е G┤68 з 90'эdЛ Mб(11,128);:ЛY:K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
─&
:ГLISTING #3&:Г&7:ГTHIS PROGRAM IS USED TO&X:ГMAKE A LOGICAL BACKUP FROM&q:ГDRIVE 0 TO DRIVE 1&x:Г&л
└ 1:Х 2000:М F$(72):DR│0  :ГDR IS DRIVE NUMBER&╛N│1:А S│3 е 11&э(▀ DR,17,S,A$,B$:A$│A$л О(B$,127):А J│0 е 7',2F$(N)│ Р(A$,Jн32л1,16):Е  О(F$(N),1)│ Л(255) з N│Nм1:Бе 61'<<N│Nл1:Л J,S'Z=:ГBUBBLE SORT CAN GO HERE'ВFА M│1 е N:Е  О(F$(M),1)│ Л(0) з 100'╗PW$│ О(F$(M),8)л"/"л Р(F$(M),9,3):З W$:▐ W$ е W$л":1"'├dЛ MG│ К( Р(AL$,Gл1,1)):Е G┤68 з 90'эdЛ Mб(11,128);:ЛY:K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
ю&
:ГLISTING #1&:Г&7:ГTHIS PROGRAM IS USED TO&Y:ГPRODUCE FILE ALLOCATION MAP&`:Г&У
└ 1:Х 2000:М F$(72):DR│0  :ГDR IS DRIVE NUMBER&и▀ DR,17,2,AL$,B$&╗N│1:А S│3 е 11&ъ(▀ DR,17,S,A$,B$:A$│A$л О(B$,127):А J│0 е 7')2F$(N)│ Р(A$,Jн32л1,16):Е  О(F$(N),1)│ Л(255) з N│Nм1:Бе 61'9<N│Nл1:Л J,S'W=:ГBUBBLE SORT CAN GO HERE'FА M│1 е N:Е  О(F$(M),1)│ Л(0) з 100'╡PЗ#м2:З#м2, О(F$(M),11);"  ";:G│ К( Р(F$(M),14,1))'хZЗ#м2,G;"-";:G│ К( Р(AL$,Gл1,1)):Е G┤68 з 90'эdЛ Mб(11,128);:ЛY:K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ANY KEY TO CONTINUE";M'Е  Т│""з 1280M╨
Ю:З:З"   EACH PLAYER GETS TEN RANDOM- LY CHOSEN WORDS IN EACH ROUND.  YOUR SCORE IS BASED ON BOTH THE AMOUNT OF TIME YOU USE AND THE  LENGTH OF THE SCRAMBLED WORD."N╡З"PLEASE NOTE THAT YOUR ANSWER IS NOT COMPLETE UNTIL YOU PRESS    <ENTER>. THE TIMER DOES NOT     START UNTIL ALL THE SCRAMBLED   LETTERS ARE ON THE SCREEN. FOL- LOW THE PROMPTS AS THEY APPEAR  ON THE SCREEN AND GOOD LUCK!!"N▌З:З" HIT ANY KEY TO BEGIN THE GAME"N (Е  Т│""з 1320 :Д Ю Д(8):Бе130ESS<ENTER>TO CONTINUE"O$(цБе 9000O;( :  В: SAVE TO TAPEOA):Od)Ю: З @135,"SAVE ITEMS ON TAPE"O~)З@234,"POSITION TAPE"Oа)З@294,"PRESS PLAY AND RECORD"O├)"З@388,"PRESS<ENTER>WHEN READY"O╠),Й Q$Oу)6Щ "O",#м1, "STATS"Oє)@А Y│1 е 8м1P+)JЗ#м1,PT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                L,BAKE,FRY,HAMMER,MOVE,CHICKEN,DUCK,GOOSE,HORSE,PONY,COLT,KNIGHT,RIDE,PAN,POT,MORTGAGE,PRETEND,PLAY,TENT,KNOW,TEACH,DRINK,DARK,VOICE,HOTEL,MOTEL,INTIMATE,STORY,STEХpЖ SIZE,CENTER,FORWARD,GUARD,TACKLE,GOAL,BACK,GROUND,PRESENT,GIFT,LOCKER,CIRCLE,FLOWER,CRYSTAL,JEWEL,COFFEE,FLEA,CRIME,MURDER,HOLD,UGLY,PRETTY,MILD,GENTLE,HAMMER,BALL,THEIR,THEY,WERE,GIRL,WARM,SOFT,YIELD,CREATURE,FAST,SLOW,EVERYONE,SUCH,ENDE╠zЖ "BU1;U4;E1;R2;F1;D4;G1;L2;H1;BD1;M+4,-6;BD6;BR3"EЄДЖ "BU5;BR1;E1;D6;NL1;R1;BM+4,+0" F%ОЖ "NR4;U1;BU3;U1;E1;R2;F1;D1;G1;L1;G2;BM+7,+1"F\ШЖ "BU5;E1;R2;F1;D1;G1;NL2;F1;D1;G1;L2;NH1;BM+7,+0"F~вЖ "BU3;NR4;M+3,-3;D6;BM+4,+0"F│мЖ "BU4;NR3;U2;R4;BD2;BL1;F1;D2;G1;L2;H1;BM+7,+1"Fю╢Ж "BU6;BR3;NF1;L2;G1;D2;NR3;D2;F1;R2;E1;U1;H1;BM+4,+3"G└Ж "U1;BU5;R4;D1;M-4,+4;BM+7,+1"GV╩Ж "BU1;U1;E1;R2;E1;U1;H1;L2;G1;D1;F1;R2;F1;D1;G1;L2;H1;BM+7,+1"GИ╘Ж "BU1;F1;R2;E1;U4;H1;L2;G1;D1;F1;R3;BM+3,+3"Gк▐Ж "U5;E1;R2;F1;D3;NL4;D2;BR3"G╒шЖ "U6;R3;F1;D1;G1;NL3;F1;D1;G1;L3;BR7"HЄЖ "BU1;U4;E1;R2;F1;BD4;G1;L2;H1;BR7;BD1"H'№Ж "R1;U6;NL1;R2;F1;D4;G1;L2;BR6"HGЖ "U3;NR3;U3;R4;BD6;L4;BR7"HdЖ "U3;NR3;U3;R4;BD6;BR3"HТЖ "BU1;U4;E1;R3;BD4;NL1;D2;L3;H1;BR7;BD1"Hп$Ж "U3;NR4;U3;BR4;D6;BR3"H▄.Ж "BU6;BR1;R1;ND6;R1;BR1;BD6;BL1;L2;BR6"H 8Ж "BU2;D1;F1;R2;E1;U5;BD6;BR3"I BЖ "U6;BR4;M-4,+3;M+4,+3;BR3"I3LЖ "NU6;R4;BR3"ISVЖ "U6;M+2,+3;M+2,-3;D6;BR3"Ip`Ж "U6;M+4,+6;U6;BD6;BR3"IИjЖ "U6;R4;D6;L4;BR7"IйtЖ "U6;R3;F1;D1;G1;L3;D3;BR7"I▄~Ж "BU1;U4;E1;R2;F1;D4;G1;L2;H1;BE1;BR1;F2;BR3"JИЖ "U6;R3;F1;D1;G1;L3;R1;M+3,+3;BR3"J;ТЖ "BU1;F1;R2;E1;U1;BU3;H1;L2;G1;D1;M+4,+2;BR3;BD2"JYЬЖ "BU6;R2;ND6;R2;BD6;BR3"JАжЖ "BU1;U5;BR4;D5;G1;L2;H1;BD1;BR7"Jв░Ж "BU6;M+2,+6;M+2,-6;BD6;BR3"J╩║Ж "U6;BR4;D6;M-2,-2;NU1;M-2,+2;BR7"JЇ─Ж "U1;M+4,-4;U1;BL4;D1;M+4,+4;D1;BR3"K#╬Ж "BR2;U3;M-2,-2;U1;BR4;D1;M-2,+2;BD3;BR5"K@╪Ж "BU6;R4;M-4,+6;R4;BR3"LтЮ:З:З"   IN whatzit  A SCRAMBLED GROUPOF LETTERS WILL APPEAR. YOU WILLHAVE APPROXIMATELY THIRTY SEC-  ONDS IN WHICH TO FIGURE OUT THE CORRECT WORD THESE LETTERS FORM AND ENTER THEM ON THE KEYBOARD."L▓ьЗ"IF YOU MAKE A TYPING ERROR, YOU MAY HIT THE '_' KEY AND START   OVER. IF YOU <ENTER> THE WRONG  ANSWER, IT WILL BE ERASED AND   YOU MAY RE-ENTER IT AS TIME AL-"MЎЗ"LOWS. THE GAME MAY BE PLAYED BY EITHER ONE OR TWO PEOPLE.":З:З"    HITC6;S8":Р;#DIN$│ Т: Е IN$│""з Бе450;~NЕ  К(IN$)│8 з WW$│"":Бе 610 :Д Е  К(IN$)│13 з 620 :Д Е  К(IN$)┤65 ▒  К(IN$)▓90 з Бе450;└XЕ  З(WW$)│ З(W$) з 450 :Д ╞ CH$( К(IN$)м55):WW$│WW$лIN$:Бе450;▀b├(128,175),5,8:Бж560:Бе450<-lЕ WW$│W$ з ╔"V31;L10;T100;O3;A;B;C;D;E;F;G" :Д Бж470:Е T▓0 з 450 :Д Бе650<hvSC$(PL)│ И(( Б(( З(W$)н30)лTо2.86))л Й(SC$(PL))):Бж760<аАА X│1 е 500:Л:╗(0,79)м(255,100),╛,BF:├(128,175),5,8=
КЛ WORD:Е LP│2 з PL│PLл1:LP│0:┼(0,52)м(28,66),B:┼(227,52)м(255,66),U,╜:╔"T3;L3;O3;V31;G;L3;O2;G":Бе270=AФЕ PL│2 з ┼(227,52)м(255,66),B :Д ┼(0,52)м(28,66),B=xЮ╞"BM13,100;C7;S16"лCH$(16)лCH$(10)лCH$(22)лCH$(14)=йи╞"BM145,100"лCH$(24)лCH$(31)лCH$(14)лCH$(27)=╫▓╞"BM65,187;C6;S8"лCH$(17)лCH$(18)лCH$(29)>╝╞"BM+10,+0"лCH$(14)лCH$(23)лCH$(29)лCH$(14)лCH$(27)>H╞Е  Й(SC$(1))▓ Й(SC$(2)) з ╞"BM107,25" :Д ╞"BM149,25">Г╨╞"S4;C8;NU5;NE5;NR5;NF5;ND5;NG5;NL5;NH5":А X│1 е 100:Л>╣┌╞"C5;NU5;NE5;NR5;NF5;ND5;NG5;NL5;NH5":А X│1е100:Л>╨фЕ  Т┤▓ Л(13) з 720>їюSC$(1)│"0":SC$(2)│"0":┐0,0:Бе130?°L│ З(SC$(PL))м1:И PL Бе770,780?E├(98,36),5,8:M│ Б(101м(14нLо2)м14):Бе790?m├(158,36),5,8:M│ Б(160м(14нLо2)м14)?ЭА SC│2 е Lл1:M│Mл14:╞"BM"л И(M)л",48;C6;S8"?└ ╞ CH$( К( Р(SC$(PL),SC,1))м48)?╔*Л SC?╧4Р@╞>Ж SIRLOIN,HELP,ASSIST,DONE,REMEMBER,WORK,LADY,NAME,PROGRAM,NUMBER,CIGAR,GRAPH,DISH,MOTOR,ENGINE,BODY,AUTOMOBILE,TRUCK,SWEEP,LAMP,LIGHT,DISPLAY,RECIPE,AUTOMATIC,FEATURE,ADVENTURE,CONTEST,MEMORY,QUICK,MACHINE,ANNUAL,HUNDRED,THOUSAND,SUGAR,BECAUA╝HЖ BOOK,PAPER,AUTHOR,COAL,FUEL,STOVE,BUCKET,PAIL,LAZY,QUIT,CHURCH,CHAPEL,STAR,SHIP,COMET,PLANET,ROCK,ROCKET,INDEX,EQUAL,EVEN,SAIL,SHELL,OYSTER,LOBSTER,PLEASE,RELEASE,EDITOR,WRITE,POWERFUL,SCREEN,ALLOW,SAMPLE,THROUGH,MANY,PURSUE,EACH,COPY,BOMBB│RЖ FACE,NOSE,CHEEK,BONE,FAT,MUSIC,TELEVISION,RADIO,LAW,SENIOR,JUNIOR,FRESH,SCHOOL,LIFT,RAISE,LOWER,MEDIUM,PLAIN,HILL,FARMER,RANCH,WING,SOME,OTHER,BELIEVE,THIS,JUST,WILD,MOTHER,FATHER,UNCLE,AUNT,SHOCK,EXACT,GENEROUS,BROWN,BLUE,GREEN,PURPLE,EIGHCк\Ж INDIAN,STATE,COUNTRY,THAT,POLICE,PECAN,WALNUT,BROOM,SAGE,PEPPER,MALT,DRUG,STAMP,ENVELOPE,HEAT,CLEAN,DIRTY,CARPET,SOFA,COUCH,TABLE,FLOWER,SHACK,LOOK,SHOE,PANTS,DRESS,SHIRT,SOCK,MITTEN,GLOVE,STRANGE,CITY,TOWN,BRIGHT,BEAUTIFUL,NOVEL,SWING,FORMDбfЖ CABINET,DRIFT,FLOAT,PRETEND,AUDIO,DOCTOR,DENTIST,NURSE,RENT,LEASE,SKILLET,BROI У2
Й"ARRAY SIZE";SIZE2)Е SIZE│0 з К2>Е SIZE▓4095 з 102[(Й"RESULTS TO PRINTER";A$2x2Е A$│"Y" з DV│м2 :Д DV│02Ф<М N(SIZE),LS(12),RS(12)2еFА I│0 е SIZE2╖PN(I)│ Д(1000)2┐ZЛ I2╥dЗ"SORT BEGINS"2█n Я│02цxБж 2002ЄВБж 10002°МО3╚B│0:E│SIZE3╥LI│0:RI│SIZE3"▄PTR│03GцЕ EмB▓10з Бж 500:Д Бж 1200:Бе3803X
,LSZ│(LIм1)мB3i
6RSZ│Eм(RIл1)3}
@Е LSZ│RSZ з 3503Ь
JЕ LSZ▓RSZ Бж 750 :Д Бж 8503з
TБе 3703║
^Е LSZ┤│0 з 3803┼
hБж 7603▀
rЕ(EмB)┤│0з 380 :Д 2303ё
|Е (PTR)│0 з Р3№
ЖБж 9504
РБе 2304 
ЇCMP│N( Д(EмBл1)лBм1)40&А LI│LI е E4G0Е N(LI)│▓CMP з 6004P:Л LI4dXА RI│RI е B йм14{bЕ N(RI)┤│CMP з 7004ДlЛ RI4─╝Е LI┤RI з T│N(LI):N(LI)│N(RI):N(RI)│T:LI│LIл1:RI│RIм1:Бе5504╩╞Р4▄юЕ LSZ┤│0з 7904ъ°LS(PTR)│B4√RS(PTR)│LIм15	PTR│PTRл15B│RIл15 RI│E5#*Р56RЕ RSZ┤│0 з 8905G\LS(PTR)│RIл15UfRS(PTR)│E5cpPTR│PTRл15nzE│LIм15wДLI│B5}ОР5Л╢PTR│PTRм15Щ└B│LS(PTR)5з╩E│RS(PTR)5╡╘LI│B:RI│E5╗▐Р5─шT│ Я5╪ЄЗ#DV, б(30,"*")5°№З#DV,"ARRAY SIZE WAS ";SIZE6&З#DV,═"SORT TIME WAS ###.## SECONDS";Tо606GЗ#DV,"CALLS TO EASISORT=";CL6ZА I│0 е SIZEм16s$Е N(I)▓N(Iл1) з 11006{.Л I6Ъ8З#DV,"SORT WAS SUCCESSFUL"6жBБе 11106╟LЗ#DV,"SORT WAS UNSUCCESSFUL"6█VЗ#DV, б(30,"*")6с`Р6щ░K│B6ї║CL│CLл16 ─K│Kл17╬Е K▓E зР7%╪Е N(K)▓│N(Kм1) з122071тTN│N(K)79ьI│K7IЎN(I)│N(Iм1)7SI│Iм17d
Е I│B з 13107zЕ TN┤N(Iм1)з 12707ЖN(I)│TN7Т(Бе 122032207Я╨:7╣уВ:  INPUT STRIKE OUTS7╙фЮ:а 200,5: А Y│1 е 157ўюЗ"ENTER STRIKE OUTS FOR "PL$(Y)8°Й K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 2!
:Г***WHATZIT A WORD GAME***2A:Г***BY RANDALL A. SMITH***2c:ГIF YOU CHANGE OR ADD TO THE2Е(:ГWORD LIST, YOU WILL HAVE TO2и2:ГDETERMINE HOW MANY WORDS YOU2╦<:ГHAVE AND ADJUST THE COUNT IN2ьF:ГLINES 90 & 270 ACCORDINGLY3?PЮ:а200,1:└4:╚3,1:╝ Д(4):┐1, Д(2)м1:Х350:М CH$(35),U(10),B(12),SC$(2):T│ Д(м Я)3nZА X│1 е 232:Н X$:Л:А X│0 е 35:Н CH$(X):Л:П3╧dа200,2:АX│1024 е 1055:ТX,134:Л:АX│1056 е 1472 й32:ТX,134:ТXл31,134:Л:АX│1504 е 1535:ТX,134:Л3√nЗ@225,"DO YOU WANT INSTRUCTIONS(Y/N)?";4sЗ@170,"w h a t z i t";4DxIN$│ Т:Е IN$│"Y"з Бж1250 :Д Е IN$│""з 1204pВЗ@225,"  HOW MANY PLAYERS (1 OR 2)?  ";4мМPL$│ Т:Е PL$┤▓"1" ░ PL$┤▓"2" з 140 :Д PL│ Й(PL$):а200,14√Ц╝:╞"BM0,12;C8;S8"лCH$(30)лCH$(25):─(0,0)м(28,14),U,G:─(128,96)м(156,110),B5*а╝:╞"BM83,12;S8;C7"лCH$(32)лCH$(17)лCH$(10)5Pк╞ CH$(29)лCH$(35)лCH$(18)лCH$(29)5v┤╞"BM0,30"лCH$(25)лCH$(21)лCH$(10)5Ы╛╞ CH$(34)лCH$(14)лCH$(27)лCH$(1)5ь╚╞"BM0,48"лCH$(28)лCH$(12)лCH$(24)лCH$(27)лCH$(14):┴8,5:╗(69,33)м(126,51),╜,B6)╥Е PL│1 з 240 :Д ┴7,5:╞"BM163,30"лCH$(25)лCH$(21)лCH$(10)6N▄╞ CH$(34)лCH$(14)лCH$(27)лCH$(2)6вц╞"BM191,48"лCH$(28)лCH$(12)лCH$(24)лCH$(27)лCH$(14):┴8,5:╗(128,33)м(185,51),╜,B6╛Ё╗(52,171)м(200,190),╜,B6╪·Е PL│2 з LP│2:PL│PLм16ї
┼(0,52)м(28,66),U,╜:┐1,17"
А WORD│1 е 10:А X│1 е  Д(232):Н W$:Л X:П7/
L│ З(W$)7B
"W(1)│ Д(Lм1)л17P
,А X│2 е L7_
6W(X)│ Д(L)7О
@А XX│1 е Xм1:Е W(XX)│W(X) з310 :Д Л XX:Л X7┤
JА X│1 е L:W$(W(X))│ Р(W$,X,1):Л X7ц
TJ$│"":А X│1 е L:J$│J$лW$(X):Л X:Е J$│W$ з 2908
^╞"BM65,187;C6;S8"лCH$(17)лCH$(18)лCH$(29)8L
h╞"BM+10,+0"лCH$(14)лCH$(23)лCH$(29)лCH$(14)лCH$(27)8u
rЕ  Т┤▓ Л(13) з 370 :Д ├(128,175),5,88Я
|L│ З(J$):M│ Б(132м(21н( З(J$)о2))м21)8┬
ЖА X│1 е L:M│Mл21:А S│1 е10 й 38√
Р╞"BM"л И(M)л",100;C6;S"л И(S)лCH$( К( Р(J$,X,1))м55)9J
Ъ╔"V31;T230;L230;O3;A":╞"BM"л И(M)л",100;C5;S"л И(S)лCH$( К( Р(J$,X,1))м55)9З
дЛ S:╞"BM"л И(M)л",100;C6;S12"лCH$( К( Р(J$,X,1))м55):Л X9Т
оT│20009Ь
╕Бж5609║
┬T│Tм1:Е T│0 з Бж470:Бе6509─
╠Бе5809▀
╓╔"T3;L3;V31;O1;B;L2;A"9Є
р├(128,175),5,8:
ъЕ T▓0 з Бж560:Р:!
Ї╗(0,79)м(255,100),╛,BF:B
■M│ Б(132м(21н( З(J$)о2))м21):\А X│1 е  З(W$):M│Mл21:Х╞"BM"л И(M)л",100;C8;S12"лCH$( К( Р(W$,X,2))м55):Л X:┐А X│1 е 1000:Л:╗(0,79)м(255,100),╛,BF:┼&Р:ш0WW$│"":M│ Б(130м(14н З(W$)о2));:╞"BM"л И(M)л",187;Е A(C,Rл1)│15 з R│Rл1:Бе380D;&Е A(Cм1,R)│15 з C│Cм1:Бе380Dy/В SET FLAGS TO GIVE THE       CURRENT PLAYER ANOTHER TURNDН0ST│(SRлSL):F│м1Dк9В SEARCH OF ENTIRE BOARDD└:А Y│1е10:А X│1е10D▐DЕ A(X,Y)│16 з Л X,Y:Бе170ENЕ A(X,Y)│7 з C│X:R│Y:Бж130:Бе310E+XЕ A(X,Y)│14 з C│Xл1:R│Y:Бж140:Бе330ESbЕ A(X,Y)│13 з C│X:R│Yл1:Бж130:Бе310EylЕ A(X,Y)│11 з C│X:R│Y:Бж140:Бе330EмvЕ A(X,Y)│15 з C│X:R│Y:FP│м1:Бж380:FP│1:X│C:Y│RE╝АЛ X,Y:Бе170EфЙВ PUT RANDOM LINES ON THE     BOARDE·КY│ Д(10):X│ Д(10)F5ФА R│Y е11:А C│X е11:Е R│11 ░ C│11 з ЛC,R:X│1:Y│1:Бе660FvЮЕ A(C,R)│0 ░ A(C,Rм1)│0 ░ A(Cм1,R)│0 з Е C│▓R Бе710 :Д Бе720F╫иЕ A(C,R)│0 з LP│A(C,Rм1):LP│LPл1:И LP Бе 710,710,690,690,710,700,690,700,710,700,690,700,700G8▓Е A(C,R)│8 з LP│A(Cм1,R):LP│LPл1:И LP Бе 720,700,720,700,720,700,700,700,720,700,700,700,700GO╝ЛC,R:X│1:Y│1:Бе660Gu╞Е C│11 з 715 :Д Бж130:Бж310:Бе730G┤╩В SPECIAL CASE * VERTICAL     LINE FOR RIGHT SIDE OF BOARDGх╦LP│A(Cм1,R):ЕLP│2 ▒ LP│4 ▒ LP│8 з 720 :Д 700H╨Е R│11 з 700 :Д Бж140:Бж330H'┌D│Dл1:а D,1:Е D│60 з Р :Д 650H@уВ PRINT INSTRUCTIONSIфЮ:З@46,"DOT":З" THE OBJECT OF THE GAME IS TO    CONNECT THE DOTS TO FORM AS     MANY BOXES AS POSSIBLE WITHOUT  LETTING YOUR OPPONENT CAPTURE   ANY BOXES. THE PLAYER WHO COM-  PLETES A BOX CAPTURES THAT BOX.";JюЗ" THE COMPUTER WILL THEN SEARCH   FOR ADDITIONAL CAPTURES. EACH   BOX COUNTS FOR ONE POINT.       WHEN ALL CAPTURES ARE MADE FOR  A TURN, THE SCORE IS UPDATED,   AND THE PLAYER WILL DRAW ONE    MORE LINE.":З@483,"PRESS ANY KEY TO CONTINJ#°N$│ Т:Е N$│""з760 :Д ЮKЗ@35,"A TONE WILL SOUND WHEN...":З@97,"A- AN ILLEGAL MOVE IS ATTEMPTED B- THE DOT IS BACK ON THE BOARD    AFTER A SEARCH               C- AS EACH CAPTURED BOX IS         FILLED WITH THE PLAYERS         COLOR":З@489,"PRESS ANY KEY";K@N$│ Т:Е N$│""з 780 :Д З@489, б(13, Л(32));:РKКВ SHOW BOARD AFTER FINAL      CAPTURE - THEN PLAY AGAIN       OR QUITKъА X│1е2500:ЛX:Ю:З@205,"DOTS":З@451,"FOR ANOTHER GAME PRESS 'A'        TO END PRESS ANY KEY"L N$│ Т:Е N$│""з 800:Д Е N$│"A" з О::Д К 82",0,1,1.Y▄Ж"CAB","A DINGY CABINET","IT IS EMPTY . . .",2,0,1.ФцЖ"SAF","A LOCKED SAFE","WRITING: VERYSTRONG CO.",0,0,1.╕ЁЖ"SAF","AN OPEN SAFE","Z",0,0,1.ь·Ж"NOT","A NOTEBOOK","WRITING:  KSED KCIK",0,1,1/Ж"KEY","A SMAL0;/ЁH│LH:V│LV:FP│LP:Е FP│126 ▒ FP│254 з FP│255;M∙В SET LOWER LIMIT FOR DOT;_·Е H┤48 з H│48;q
Е V┤20 з V│20;░

В FLASH DOT AND SET TO       ORIGINAL COLOR BEFORE LEAVING<
D│ а(H,V):╜(H,V,2):АX│1е40:Л:╛(H,V):АX│1е30:Л:╜(H,V,B):АX│1е50:Л:╜(H,V,D):Е FP│255 ▒ FP│127 з210<Q
В GET NUMBER OF COLUMN        AND ROW FROM DOT LOCATION<А
C│ Б((Hм32)о16):R│ Б((Vм4)о16):Е C│0 з C│1<м
!В SET COLUMN AND ROW TO       LOW LIMIT=A
"Е R│0 з R│1:В NOV 1982    WRITTEN BY                      DANIEL W. PHILLIPS              289 S. SHERIDAN ST.             WILKES-BARRE, PA.18702=Ч
+В CHECK FOR LEGAL MOVE        IN HORIZONTAL -IF NO LEGAL      MOVE CHECK VERTICAL>
,Е(Hм40)о16│ Б((Hм40)о16) ░ (Vм12)о16┤▓ Б((Vм12)о16) ░ ( а(Hм3,V)│1 ▒  а(Hм3,V)│5) з АX│(Hм8) е (Hл8):╜(X,V,2):Л::Д Бе320>R
5В ADD VALUE TO BOXES          ADJACENT TO HORIZONTAL LINE>П
6A(C,R)│A(C,R)л8:A(C,Rм1)│A(C,Rм1)л2:Е FP│м1 з Р :Д Бе340?
?В CHECK FOR LEGAL MOVE        IN VERTICAL - IF NO LEGAL       MOVE, MAKE NOISE AND GO         BACK TO JOYSTICKS?З
@Е(Hм40)о16┤▓ Б((Hм40)о16) ░ (Vм12)о16│ Б((Vм12)о16) ░ ( а(H,Vм3)│1 ▒  а(H,Vм3)│5) з А X│(Vм8) е (Vл8):╜(H,X,2):Л:Д а100,5:Бе210?├
IВ ADD VALUE TO BOXES          ADJACENT TO VERTICAL LINE?ў
JA(C,R)│A(C,R)л4:A(Cм1,R)│A(Cм1,R)л1:Е FP│м1 з Р@6
SВ CHECK THE ONLY THREE        BOXES THAT COULD BE CAPTURED@L
TЕ A(C,R)│15 Бе380@l
^Е A(C,Rм1)│15 з R│Rм1:Бе380@М
hЕ A(Cм1,R)│15 з C│Cм1:Бе380@Ю
qВ NO CAPTURES@и
rБе180A
{В COLOR BOX WITH PLAYERS'     COLOR - PROTECT BOX FROM        BEING REUSED - ADD ONE TO       SCOREAc
|X│(Cн16)л40:Y│(Rн16)л12:├(X,Y),B,2:а144,3:A(C,R)│16:Е B│4 з SL│SLл1 :Д SR│SRл1As
ЖЕ FP│м1 з РAС
ПВ FIND CONTINUED CAPTURESA╢
РЕ A(C,Rм1)│7 з R│Rм1:Бж130:Бе310B
ЪЕ A(Cл1,R)│14 з C│Cл2:Бж140:FP│м1:Бж330:FP│1:Е A(Cм1,R)│15 з C│Cм1:Бе380BP
дЕ A(C,Rл1)│13 з R│Rл2:Бж130:FP│м1:Бж310:FP│1:Е A(C,Rм1)│15 з R│Rм1:Бе380Bv
оЕ A(Cм1,R)│11 з C│Cм1:Бж140:Бе330BЫ
╕Е A(C,Rм1)│11з R│Rм1:Бж140:Бе330B╟
┬Е A(C,Rм1)│14 з C│Cл1:R│Rм1:Бж140:Бе330Bь
╠Е A(Cл1,R)│7 з C│Cл1:Бж130:Бе310C
╓Е A(Cл1,R)│13 з R│Rл1:C│Cл1:Бж130:Бе310C>
рЕ A(C,Rл1)│11 з R│Rл1:Бж140:Бе330Cj
ъЕ A(C,Rл1)│14 з C│Cл1:R│Rл1:Бж140:Бе330CП
ЇЕ A(Cм1,R)│7 з C│Cм1:Бж130:Бе310C╗
■Е A(Cм1,R)│13 з C│Cм1:R│Rл1:Бж130:Бе310C█Е A(C,Rм1)│15 з R│Rм1:Бе380C√Е A(Cл1,R)│15 з C│Cл1:Бе380D 2д
Ю:╚1,1:┴1,2:╝:З@205,"DOTS":З@234,"WRITTEN FOR":З@263,"COLOR COMPUTER BY":З@297,"DAN PHILLIPS":З@451,"FOR INSTRUCTIONS PRESS 'I'        ANY OTHER KEY TO PLAY";2╧N$│ Т:ЕN$│""з20 :Д Е N$│"I" Бж740 :Д Ю36З@323, Л(175)" OR " Л(239)" WILL BE RIGHT PLAYER":З@355, Л(191)" OR " Л(255)" WILL BE LEFT PLAYER"3▓'В STRINGS FOR NUMBERS         ORIGINALLY IN A PROGRAM BY      RON VAN DYKE IN THE APRIL 82    TRS 80 MICROCOMPUTER NEWS4"(N$(0)│"BM+1,0;H1U4E1R2F1D4G1L2;BM+6,0":N$(1)│"BM+1,0;R1NR1U6G1;BM+6,+5":N$(2)│"NR4U1E1R1E2U1H1L2G1;BM+7,+5"4Щ2N$(3)│"BM+0,-1;F1R2E1H2E2H1L3;BM+7,6":N$(4)│"BM+3,0;U2NR1L3U1E3D3;BM+4,3":N$(5)│"BM+0,-1;F1R2E1U2H1L3U2R4;BM+3,+6"5<N$(6)│"BM+4,-5;H1L2G1D4F1R2E1U1H1L3;BM+7,+3":N$(7)│"U1E4U1L4;BM+7,+6":N$(8)│"BM+1,-0;H1U1E1H1U1E1R2F1D1G1NL2F1D1G1L2;BM+6,0"5^FN$(9)│"BM+0,-1;F1R2E1U4H1L2G1D1F1R2;BM+4,+3":N$(10)│"D18R36U18"5иOВ LIST ALL VARIABLES IN       ORDER OF MOST USE..SET ARRAY    TO ZERO6.PМ A(11,11):X│0:Y│0:RH│0:RV│0:RP│0:LH│0:LV│0:LP│0:H│0:V│0:FP│0:D│0:C│1:R│1:B│4:ST│0:SL│0:SR│0:F│1:А R│1е11:А C│1е11:A(C,R)│0:Л C,R6CYВ DRAW GAMEBOARD6┬Z╞"BM46,0"лN$(10):╞"BM110,0"лN$(10):╞"BM174,0"лN$(10):├(1,1),1,1:Бж150:Бж160:┴2,1:АX│48е208 й16:АY│20е180 й16:╜(X,Y,2):ЛY,X7$dАX│1е5:N$│ Т:Л:З@419,"WOULD YOU LIKE SOME RANDOM        LINES TO GET STARTED?":З@493,"<Y-N>";7InN$│ Т:ЕN$│""з110:ДX│ Д(2)м1:┐1,X7}xЕN$│"Y"зFP│м1:X│ Д(м Я):Бж650:FP│1:Бе180::Д 1807ЩБВ DRAW HORIZONTAL LINES7╤ВH│(Cн16)л32:V│(Rн16)л4:А X│H е (Hл16):╜(X,V,2):ЛX:Р7ыЛВ DRAW VERTICAL LINES8#МH│(Cн16)л32:V│(Rн16)л4:А X│V е (Vл16):╜(H,X,2):ЛX:Р8\ХВ COMPUTE AND DISPLAY         SCORE FOR RIGHT PLAYER8жЦX│ Б(SRо10):Y│SRм(Xн10):├(178,2),3,1:╞"C2;S10;BM180,14"лN$(X)лN$(Y):Р8▐ЯВ COMPUTE AND DISPLAY         SCORE FOR LEFT PLAYER9&аX│ Б(SLо10):Y│SLм(Xн10):├(50,2),4,1:╞"C2;S10;BM52,14"лN$(X)лN$(Y):Р9WйВ ANY CHANGE IN SCORE -DO     ANOTHER SEARCH9oкЕ ST┤▓(SRлSL) з 5609╝│В FLAGS TO START SEARCHES,    CHANGE PLAYERS - DISPLAY        NEW SCORES9щ┤Е F│м1 ░ B│3 Бж150 :Д Е F│м1 ░ B│4 Бж160:╛Е F│1 з Е B│3 з B│4 :Д B│3:3╚F│1:├(116,8),B,1:а200,5:Е ST│100 Бе790:H╤В JOYSTICK INPUT:Б╥RH│ Б( Н(0)о3)н8л40:RV│ Б( Н(1)о3)н8л12:RP│ Ж(65280):║▄LH│ Б( Н(2)о3)н8л40:LV│ Б( Н(3)о3)н8л12:LP│ Ж(65280);цЕ B│3 з H│RH:V│RV:FP│RP:Е FP│125 ▒ FP│253 з FP│255:Бе250 :Д Бе25,5)/6@Е PDRAW│1 з ╜(X1,Y1,5) :Д Е PDRAW │0 з ╛(X1,Y1)/`AЕ  а(X1,Y1)┤▓0 з PIXEL │1 :Д PIXEL │0/zBX│X1:Y│Y1:Бж 67:Бе 14/ЪCА N│338 е 345:Т N,255:Л N:Р/╣DЕPDRAW│1▒PIXEL│1з ╜(X,Y,5)/╙E─(44,79)м(84,119),M,G/сF╚ 0,VPAGE0*GЕ A$│"&" з ┼(BX,BY)м(BXл40,BYл40),M,▒ :Д ┼ (BX,BY)м(BXл40,BYл40),M,╜0tH╚ 0,1: Е A$│"&" з ┼(172,79)м(212,119),M,▒ :Д ┼ (172,79)м(212,119),M,╜0zIР0МJАPAGE│2еVPAGE0╚KЕ PAGE┤▓VPAGE з А I│1 е 161 й 44:А J│1 е 241 й 42:Бе 780▄LА I│1 е BY й 441
MЕ I│BY з А J│1 е BX й 42 :Д А J│1 е 246 й 421N╚ 0,PAGE1:O─(J,I)м(Jл40,Iл40),M,G:╚0,11TP┼(44,79)м(84,119),M,╜1fQАD│1еDLAY:Л D1аRA$│ Т:Е A$│"" з 84 :Д Е A$│"-" ▒ A$│"+" з Бж 87:Бе 841жSР1╡TЛ J,I,PAGE1╛UБе742&VBX│1:BY│1:А PAGE │2 е 6:╚ 0,PAGE:╝:Л PAGE:╚0,1:╗(1,10)м(40,10),╛:╗(173,79)м(212,118),╛,BF:VPAGE│2:Р2UWЕ A$│"+" з DLAY│DLAYм10:Е DLAY┤1 з DLAY│1 2ЗXЕ A$│"-" з DLAY│DLAYл10:Е DLAY▓190 з DLAY│1902ЫYа200мD,1:Бж67:Р2лZCPAGE│VPAGE2╜[╚0,CPAGE:┐1,12╘\A$│ Т:Е A$│"" з 923]Е A$│ Л(12) з CPAGE│CPAGEл1:Е CPAGE│7 з CPAGE│2:Бе 91 :Д Бе 9132^Е A$│"G" з Бж 123:Бе903M_Е A$│"F" з Бж 98:Бе 903i`Е A$│"R" з Бж 104:Бе 903ya╚0,1:┐1,1:Р3зb╚0,VPAGE:╗(BX,BYл42)м(BXл40,BYл42),╛:╚0,13┬cBX│BXл42:ЕBX┤241 з 1023ЇdЕBYл44▓161 ░ VPAGE│6 з а200,10:BX│BXм42:Бе1024/eЕ BYл44▓161 з VPAGE│VPAGEл1:BX│1:BY│1 :Д BY│BYл44:BX│14Фf╚ 0,VPAGE: ─ (BX,BY)м(BXл40,BYл40),M,G:╗(BX,BYл42)м(BXл40,BYл42),╜:╚ 0,1:┼(172,79)м(212,119),M,╜4аgБж 67:Р4║hЕ BX┤▓1 ▒ BY┤▓1 з 1084╠iЕ VPAGE│2 з Р4Ўj╚ 0,VPAGE:╗(BX,BYл42)м(BXл40,BYл42),╛5;k╚ 0,1:╛(VPAGEн4,10):VPAGE│VPAGEм1:BX│211:BY│133:╚ 0,VPAGE:Бе 1125Hl╚0,VPAGE5hm╗(BX,BYл42)м(BXл40,BYл42),╛5ВnBX│BXм42:ЕBX▓│1 з 1125ЦoBX│211:BY│BYм445╢p╗(BX,BYл42)м(BXл40,BYл42),╜5·q─(BX,BY)м(BXл40,BYл40),M,G:╚ 0,1:┼(172,79)м(212,119),M,╜:Бж67:Р6*rЮ:Й"SAVE OR LOAD";T$:T$│ О(T$,1):ЕT$│""з1226PsЮ:Й"FILE NAME";F$:Е З(F$)▓8 з 1156wtЗ"READY TAPE AND HIT 'ENTER'":╗ЙA$6Зu╚ 0,2:┐ 1,16ЪvЕ T$│"S" з 1206лwЧM F$:Бе 1226▄x╚ 0,VPAGE:╗ (BX,BYл42)м(BXл40,BYл42),╛:╚ 0,27yШM F$,3072,1535л(VPAGEн1536),445537z╚ 0,1:┐ 1,1:Р7v{╚0,VPAGE:╗(BX,BYл42)м(BXл40,BYл42),╛:VPAGE│VPAGEл1:ЕVPAGE▓6 з VPAGE│2:╚0,1:╗(1,10)м(40,10),╛7А|Бе1026 йм2/!ZЬ(6,2лV,8)/)dЛ V/<nА V│24 е 6 йм2/IxЭ(6,2лV)/QВЛ V/rМLF$│ Т:Е LF$│""з1180 :Д 1430/xЦЮ/ЧаЗ"        RA U&$
:Г MINIDOS - MINI VIRTUAL DISK&F:Г ALLOWS USER TO CLOAD UP TO&f:Г TWO OTHER BASIC PROGRAMS&З(:Г AND SWITCH BACK AND FORTH&Ь2:Г BETWEEN THEM.&г<:Г&┼F:Г SEE RAINBOW ADVERTISEMENTS&уP:Г FOR A COMPLETE VIRTUAL'
Z:Г DISK OPERATING SYSTEM 'd:Г WHICH ALLOWS MULTIPLE'@n:Г BASIC AND MACHINE LANGUAGE'`x:Г PROGRAM STORAGE AND EVEN'~В:Г MAINTAINS A DIRECTORY.'ЕМ:Г'НЦ└ 1'ХаЮ 8'екЗ"STANDBY";'▒┤S1│&H21'╜╛S2│&H22'┘╚MX│ Ж(S1)н256л Ж(S2)м25'ш╥RG│MXм1536'¤▄SP│ Б(RGо2л1536)(	цCL│SPм1(ЁН CT(%·А X│SP е SPлCT(.
Н PK(9
Т X,PK(A
Л X(G
"Ю(O
,Ю 3(m
6З"ONLY ONE GRAPHICS PAGE"(З
@З"HAS BEEN PCLEAR'D."(и
JЗ:З"REMEMBER TO PCLEAR MORE"(╗
TЗ"IF DESIRED."(╘
^З:З:А X│1 е 2000:Л X(▐
hЗ@480(ў
rЗ"TYPE EXEC (ENTER)")
|З"TO SWITCH BETWEEN PROGRAMS")#
ЖЗ:З:З)5
РX1│ Б(SPо256))F
ЪX2│SPмX1н256)S
дТ 157,X1)`
оТ 158,X2)m
╕Х 200,CL)s
┬Ц)}
╠Ж 137*r
╓Ж 166,141,0,129,38,20,48,141,0,128,175,141,0,117,111,128,111,128,108,141,0,111,175,141,0,103,31,64,147,10,237,141,0,102,141,52,174,141,0,91,16,158,25,166,164,230,132,167,128,231,160,16,172,141,0,80,37,241,220,27,147,25,227,141,0,65,52,6,236+T
рЖ 141,0,57,163,141,0,55,211,25,221,27,53,6,237,141,0,43,32,28,220,27,147,25,237,141,0,38,236,141,0,29,163,141,0,27,16,163,141,0,25,35,4,237,141,0,19,57,127,2,221,127,2,222,127,2,223,22,0,0,57,251,255,255,255,0,0,0,251,251),W(NнNнN)+╨АI│1еNнN:АJ│1еN:C(Jл(Iм1)нN)│B(I)лRн Х(2нPIн(Jл2)оNлPIн2оN):W(Jл(Iм1)нN)│V(I)лRн Е(2нPIн(Jл2)оNлPIн2оN):ЛJ,sАJ│1еN:K│Jл(Iм1)нN:╗(C(K),W(K))м(C(Kл1мNн                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Б&#:Г--------------------------'&E
:Г                          '&g:Г        ANIMATOR          '&Й:Г      SCOTT L. BAIN       '&л:Г       BOX 178114         '&═:Г      SAN DIEGO, CA       '&я:Г         92117            '':Г                          ''3:Г               FOR ANDREA ''U	:Г--------------------------''\
└6'┤Х15:МM(11,11):DLAY│1:VPAGE│2:LOCK│0:OX│64:OY│99:X│OX:Y│OY:PIXEL│0:PDRAW│2:BX│1:BY│1(╚0,1:╝:Ю:┐1,1:╗(42,77)м(86,121),╜,B:╗(170,77)м(214,121),╜,B:Бж102:Т65495,0(2
╚0,VPAGE:╗(BX,BYл42)м(BXл40,BYл42),╜:╚ 0,1(AАI│2еVPAGE(T╜(Iн4,10,5):ЛI(gA$│ Т:╜(X,Y,5)(|АT│1е5:ЛT:╛(X,Y)(ЯЕA$│"D"з PDRAW│1:╜(X,Y,5):Бе14(┬ЕA$│"/"зТ65494,0:Бж114:Бж102:О(єЕA$│"B"з ╗(OX,OY)м(X,Y),╜,B:╜(X,Y,5):PIXEL│1)!ЕA$│"V"з╗(OX,OY)м(X,Y),╛,B:╛(X,Y):PIXEL│0)МЕA$│"N"з ╚ 0,VPAGE:╗(BX,BYл42)м(BXл40,BYл42),╛:╚ 0,1:╗(1,10)м(40,10),╛:BX│1:BY│1:VPAGE│2:Бж 102: Бе 14)ЬЕA$┤▓"@"з25)╞ЕLOCK│1зLOCK│0:а100,2::ДLOCK│1:а100,2)шЕA$│"E"зPDRAW│0:╛(X,Y):A$│","*ЕA$│"L"з╗(OX,OY)м(X,Y),╜:╜(X,Y,5):PIXEL│1*BЕA$│"K"з╗(OX,OY)м(X,Y),╛:╛(X,Y):PIXEL│0*iЕ A$│"'"з а 200,1:OX│X:OY│Y:A$│"."*МЕA$│"."з╜(X,Y,5):PIXEL│1:Бе 14*нЕA$│","з╛(X,Y):PIXEL│0:Бе 14*╞ЕA$│"M"зPDRAW│2:Бе14*ї ЕA$│"S"зБж68:ЕLOCK│1з A$│"F":а100,2::ДБе14+$!ЕA$│"&"зБж68:ЕLOCK│1з A$│"F":а100,2::ДБе14+:"ЕA$│"A"зБж74:Бе16+S#ЕA$│"#"зPIXEL│0:Бе12+i$ЕA$│"*"зБж86:Бе13+─%Е A$│"T"з ─(172,79)м(212,119),M,G:┼(44,79)м(84,119),M,╜:Е а(X,Y)│0з PIXEL│0 :Д PIXEL│1+▐&ЕA$│ Л(12)з Бж90:Бе17+Ў'ЕA$│"F" з Бж98:Бе14,(ЕA$│"R"з Бж104:Бе14,7)ЕA$│"P"з ├(X,Y),5,5:╜(X,Y,5):PIXEL│1,~*ЕA$│"C"з ┬(OX,OY), Ы( В(XмOX)п2л В(YмOY)п2):╜(X,Y,5):PIXEL│1:Бе 14,█+ЕA$│"X"з ┬(OX,OY), Ы( В(XмOX)п2л В(YмOY)п2),0:╗(42,77)м(86,121),╜,B:╛(X,Y):PIXEL│0:Бе 14-",ЕA$│"O"з ╜(X,Y,5):├(X,Y),0,0:╗(42,77)м(86,121),╜,B:╛(X,Y):PIXEL│0:-5-ЕA$│"G"з Бж123-V.Е Л(94)│A$з Y1│Yм2:X1│X:Бе55-v/Е Л(9)│A$з X1│Xл2:Y1│Y:Бе55-Ъ0Е  Л(10)│A$ з Y1│Yл2:X1│X:Бе 55-╜1Е  Л(8)│A$ з X1│Xм2:Y1│Y:Бе 55-р2Е A$│"1" з X1│Xм2:Y1│Yм2:Бе 55.3ЕA$│"2"з X1│Xл2:Y1│Yм2:Бе55. 4ЕA$│"W"з X1│Xл2:Y1│Yл2:Бе55.@5ЕA$│"Q"з X1│Xм2:Y1│Yл2:Бе55.J6Бе 14.b7Е X1 ┤44 з X1│X1л42.w8ЕY1┤79з Y1│Y1л42.М9ЕX1▓84з X1│X1м42.в:ЕY1▓119з Y1│Y1м42.╕;ЕPDRAW│1з PIXEL│1.╨<Е PDRAW│0 з PIXEL│0.ф=ИPIXELл1Бе62,63.ї>╛(X,Y):Бе 64/?╜(X,Y 
i&$
:ГRAINBOW ON TAPE MONTHLY MENU&7╚3,1:╝:┐0,1:Ю0&кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"&ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25& 2╞"S4BM116,126C3L50"'<├(100,124),3,3'NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛI'dP╞"BM20,132C2R161"'vZ├(75,130),2,2'Цd┬(256,130),257,4,.45,.5,.25'╢n┬(256,138),226,4,.56,.5,.25'╩x╞"BM0,128C4R45"'▄В├(15,126),4,4'°М╗(0,126)м(256,147),╛,BF(Ц╗(0,0)м(256,192),╛,B(*а╗(0,0)м(256,22),╛,BF(iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"(Е┤┬(176,90),8:┬(220,90),8(│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜(┼╚├(176,70),3,3)╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л)▄╞"S12BM19,177C3"лRB$)9цА JR│1 е 900:ЛJR:З" ")GЁ:ГMARQUIS)]·:ГMORTON GOLDBERG)t
:Г143 PEARL STREET)Х
:ГNEWTON,MASSACHUSETTS 02158)Ю
Ю(8))н
"А H│0 е 63)║
,Ь(H,0,3))┬
6Л H)╤
@А V│0 е 31)▀
JЬ(63,V,3))ч
TЛ V)·
^А H│63 е 0 йм1*
hЬ(H,31,3)*
rЛ H*#
|А V│31 е 0 йм1*0
ЖЬ(0,V,3)*8
РЛ V*G
ЪА H│3 е 60*T
дЬ(H,2,1)*\
оЛ H*k
╕А V│3 е 29*y
┬Ь(60,V,1)*Б
╠Л V*Ф
╓А H│60 е 3 йм1*в
рЬ(H,29,1)*к
ъЛ H*╜
ЇА V│29 е 3 йм1*╩
■Ь(3,V,1)*╥Л V*хА H│7 е 56 й 2*ЁЭ(H,6)*°&Л H+0А V│8 е 24 й 2+:Э(57,V)+DЛ V+2NА H│56 е 6 йм2+>XЭ(H,26)+FbЛ H+YlА V│24 е 7 йм2+dvЭ(6,V)+lАЛ V+vКВ "J"+ЖФА H│10 е 16+УЮЭ (H,20)+ЫиЛ H+м▓А V │11 е 20+╣╝Э (16,V)+┴╞Л V+╤╨А V│18 е 20+▐┌Э (10,V)+цфЛ V+ЁюВ "U",°А H │ 24 е 31,Э (H,20),Л H,)А V │ 11 е 20,6 Э (24,V),>*Л V,O4А V│ 11 е 20,\>Э (31,V),dHЛ V,nRВ "L",А\А V │ 11 е 20,НfЭ (38,V),ХpЛ V,зzА H │ 38 е 44,┤ДЭ (H,20),╝ОЛ H,╞ШВ "Y",╫вА V │16 е 20,фмЭ (50,V),ь╢Л V,ў└H │ 46-╩Э (H,11)-
╘H│47-▐Э (H,12)-#шH│48-0ЄЭ (H,13)-9№H│49-FЭ (H,14)-OH│50-\Э (H,15)-e$H│54-r.Э (H,11)-{8H│53-ИBЭ (H,12)-СLH│52-ЮVЭ (H,13)-з`H│51-┤jЭ (H,14)-╟tА X │ 1 е 1000-╧~Л X-ЄИЗ@358,"HIT ANY KEY FOR MENU!";.ТВ (ANIMATION).ЬА H│5 е 56 й 2.&жЬ(2лH,6,8)..░Л H.A║А H│5 е 56 й 2.N─Э(2лH,6).V╬Л H.i╪А V│6 е 25 й 2.yтЬ(57,2лV,8).БьЛ V.ФЎА V│6 е 23 й 2.вЭ(57,2лV).к
Л V.╜А H│56 е 6 йм2.═Ь(2лH,26,8).╒(Л H.щ2А H│54 е 5 й м2.ў<Э(2лH,26). FЛ H/PА V│24 е 6 йм2/!ZЬ(6,2лV,8)/)dЛ V/<nА V│24 е 6 йм2/IxЭ(6,2лV)/QВЛ V/rМLF$│ Т:Е LF$│""з1180 :Д 1430/xЦЮ/ЧаЗ"        RAINBOW ON TAPE"/╖кЗ"       (C) FALSOFT, 1983"/╜┤З/ ╛З "   YOU CAN LOAD THESE PROGRAMS        FROM OUR JULY ISSUE"0╚З0+╥З "  (XX)=PAGE NUMBER OF LISTING"01▄З0XцЗ "(29) FRACTAL0", "(30) FRACTAL1"0~ЁЗ"(32) FRACTAL2", "(34) FRACTAL3"0г·З"(48) MINIDOS", "(55) ANIMATOR"0┼З"(64) HOMEBDGT", "(83) DOTS"0цЗ"(92) STATS", "(119) QSORT"0ьЗ1"З"   PRESS ANY KEY TO CONTINUE"1!,Е  Т│""з15801'6Ю1N@З "  (XX)= PAGE NUMBER OF LISTING"1TJЗ1|TЗ "(125) WHATZIT", "(131) APPLICAT"1в^З"(139) REVENGE", "(JUN) 3CRAPSA"1╩hЗ"(156) DISKDIR1", "(156) DISKDIR2"1ЄrЗ"(156) DISKDIR3", "(156) DISKDIR4"2|З"(169) CIRCLE", "(172) CIRMOD"2:ЖЗ"(174) WIDGET", "(190) COMMWP"2`РЗ "(196) SHUFFLE", "(202) MEMORY"2ИЪЗ "(236) RAINBUG*", "(263) PMODE4*"2едЗ "      (280) CHEAPTKR"2╔оЗ"  *=MACHINE LANGUAGE PROGRAM"2╧╕З3┬З "    PRESS ANY KEY TO RETURN          TO FIRST PAGE OF MENU"37╠З "  PRESS (BREAK) TO EXIT MENU"3X╓Е  Т│"" з 1750 :Д Ю: Бе 14403hрЗ б(32,45);E DOOR POPS OPEN . .":Бе230!▓*З"THAT'S NOT POSSIBLE . . SORRY!":Бе230!ш4ЕB┤▓12 ▒ O$┤▓"DES" з З"NOTHING HAPPENS . .":Бе230"H>З"  ALL OF A SUDDE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ┬	
╚
├─┬┬┬├╞╔╔╞!┼╟╞╚╔'(╚*+,┼.┬012╟┬─67╞─├;╚        MENU783 BAS lFRACTAL0BAS"FRACTAL1BAS#│FRACTAL2BAS$ОFRACTAL3BAS%эMINIDOS BASXANIMATORBASДHOMEBDGTBAS&DOTS    BASSTATS   BAS)hQSORT   BASЦWHATZIT BASAPPLICATBAS-╩REVENGE BAS/НDISKDIR1BASёDISKDIR2BAS.DISKDIR3BAS╟DISKDIR4BAS3ўCIRCLE  BAS┴CIRMOD  BASWIDGET  BAS47COMMWP  BAS5HSHUFFLE BASGMEMORY  BASЎRAINBUG BIN8
PMODE4  BIN9╒CHEAPTKRBAS:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &R
Ю:З@3,"fractals 0  by r.delbourgo";:З@480,"15 willowdene av, australia7005";&ыАI│0е32й32:АJ│232е247:Т1024лIлJ,128:ЛJ,I:АI│0е1:АJ│134е358й32:Т1024лIлJ,128:Т1042лIлJ,128:ЛJ,I:АI│0е7:АJ│99е387й288:Т1024лIлJ,128:Т1042лIлJ,128:ЛJ,I'%АI│0е27й9:АJ│0е64й32:Т1090лIлJ,128:Т1378лIлJ,128:ЛJ,I'pАI│33е35:АJ│0е288й288:АK│0е27й9:Т1024лIлJлK,140:Т1152лIлJлK,131:ЛK,J,I'└АI│32е160й128:АJ│0е288й288:АK│0е27й9:Т1024лIлJлK,138:Т1028лIлJлK,133:ЛK,J,I(АJ│64е352й288:АK│0е27й9:Т1024лJлK,139:Т1028лJлK,135:Т1088лJлK,142:Т1092лJлK,141:ЛK,J(3╔"L20O3CEGO4CO3GECP1")Т65495,0:Ю:З@352," AFTER THE DRAWING IS FINISHED   YOU WILL HEAR A SOUND. PRESS    <P> TO PAINT OUT SURROUNDS OR   <C> TO CONTINUE.":З@0," ENTER MULTIPLICATION RATE OF    CIRCLES (ANY INTEGER BETWEEN    4 AND 16)";:ЙN:PI│3.14159265)/	ЕN┤4▒N▓16з8)?
╚4,1:┐1,1:╝)OЕN┤10зR│Nн7)cЕN▓9░N┤12зR│Nн5)r
ЕN▓11зR│70)Д┬(128,96),R,1)УМA(N),U(N))цАI│1еN:A(I)│128лRн Х(2нPIнIоN):U(I)│96лRн Е(2нPIнIоN):┬(A(I),U(I)),RнPIоN,1:ЛI*R│PIнRоN:МB(NнN),V(NнN)*nАI│1еNнN:B(I)│A(1л Б(Iм1)оN)лRн Х(2нPIнIоN):V(I)│U(1л Б(Iм1)оN)лRн Е(2нPIнIоN):┬(B(I),V(I)),RнPIоN,1:ЛI*zЕN▓9з25*ЪR│PIнRоN:МC(NнNнN),W(NнNнN)+АI│1еNнNнN:C(I)│B(1л Б((Iм1)оN))лRн Х(2нPIнIоN):W(I)│V(1л Б((Iм1)оN))лRн Е(2нPIнIоN):┬(C(I),W(I)),RнPIоN,1:ЛI+ЕN▓4з25+5R│PIнRоN:МD(256):МX(256)+бАI│1е256:D(I)│C(1л Б((Iм1)о4))лRн Х(PIнIо2):X(I)│W(1л Б((Iм1)о4))лRн Е(PIнIо2):┬(D(I),X(I)),RнPIо4,1:ЛI+ма100,1+└I$│ Т:ЕI$│""з26+ыЕI$│"P"з├(253,96),1,1:├(3,96),1,1:┐1,0+·ЕI$│"C"зО8,Бе26┐ р┐╗°ррАррА:√ °┐ рМИ╚ррАррА>; °┐ рюрррАррА; р┐ А"  рА рА р/ А8А  А  А
кА*кА                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░&{
Ю0:R│127л16н Д(8):АI│15е495й32:Т1024лI,R:ЛI:АI│257е285:Т1024лI,R:ЛI:АI│104е118:Т1024лI,R:Т1344лI,R:ЛI:Т1484,R:Т1490,R&╞Ж44,50,105,117,172,178,197,217,258,264,278,284,325,345,364,370,425,437'	АI│1е18:НD:Т992лD,R:Т1023лD,R:Т1024лD,R:Т1025лD,R:Т1056лD,R:ЛI'gЗ@2,"fractals 1";:З@16,"by";:З@19,"r.delbourgo";:З@480,"15,)willowdene av,australia7005";'Б╔"L20O3CEGO4CO3GECP1"(mТ65495,0:Ю:З@352," AFTER THE DRAWING IS FINISHED   YOU WILL HEAR A SOUND. PRESS    <P> TO PAINT OUT SURROUNDS OR   <C> TO CONTINUE.":З@0," ENTER MULTIPLICATION RATE OF    SPIKES  (ANY INTEGER BETWEEN    4 AND 16)";:ЙN:PI│3.14159265(}	ЕN┤4▒N▓16з8(Ф
╚4,1:┐1,1:╝:M│PIоN(дЕN┤10зR│Nн7(╕ЕN▓9░N┤12зR│Nн5(╟
ЕN▓11зR│70(╓МA(N),U(N))/АI│1еN:A(I)│128лRн Х(Mл2нPIнIоN):U(I)│96лRн Е(Mл2нPIнIоN):╗(128,96)м(A(I),U(I)),╜:ЛI)LR│3.3нRоN:МB(NнN),V(NнN))╤АI│1еNнN:B(I)│A(1л Б(Iм1)оN)лRн Х(2нPIнIоN):V(I)│U(1л Б(Iм1)оN)лRн Е(2нPIнIоN):╗(B(I),V(I))м(A(1л Б(Iм1)оN),U(1л Б(Iм1)оN)),╜:ЛI)▐ЕN▓10з25) R│3.3нRоN:МC(NнNнN),W(NнNнN)*ОАI│1еNнNнN:C(I)│B(1л Б((Iм1)оN))лRн Х(Mл2нPIнIоN):W(I)│V(1л Б((Iм1)оN))лRн Е(Mл2нPIнIоN):╗(C(I),W(I))м(B(1л Б(Iм1)оN),V(1л Б(Iм1)оN)),╜:ЛI*ЪЕN▓5з25*└R│3.3нRоN:МD(NнNнNнN):МX(NнNнNнN)+MАI│1еNнNнNнN:D(I)│C(1л Б((Iм1)оN))лRн Х(2нPIнIоN):X(I)│W(1л Б((Iм1)оN))лRн Е(2нPIнIоN):╗(D(I),X(I))м(C(1л Б(Iм1)оN),W(1л Б(Iм1)оN)),╜:ЛI+Xа100,1+lI$│ Т:ЕI$│""з26+ЧЕI$│"P"з├(253,96),1,1:├(3,96),1,1:┐1,0+жЕI$│"C"зО8+пБе26$│ Т:ЕI$│""з26+ыЕI$│"P"з├(253,96),1,1:├(3,96),1,1:┐1,0+·ЕI$│"C"зО8,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Л&w
Ю0:R│127л16н Д(8):АI│0е6:АJ│0е480й32:Т1024лIлJ,R:Т1049лIлJ,R:ЛJ,I:АI│7е24:АJ│0е32й32:Т1024лIлJ,R:Т1472лIлJ,R:ЛJ,I&┘АI│0е5:АJ│0е32й32:Т1101лIлJ,R:Т1421лIлJ,R:ЛJ,I:АI│0е1:АJ│0е96й32:Т1224лIлJ,R:Т1238лIлJ,R:ЛJ,I'	Ж4,10,16,22,132,150,260,278,388,394,400,406'кАI│1е12:НD:Т1024лD,Rм1:Т1025лD,Rм3:Т1026лD,Rм2:Т1027лD,Rм1:Т1028лD,Rм3:Т1029лD,Rм2:Т1056лD,Rм4:Т1057лD,Rм13:Т1058лD,128:Т1059лD,128:Т1060лD,Rм14:Т1061лD,Rм8(DТ1088лD,Rм1:Т1089лD,Rм7:Т1090лD,128:Т1091лD,128:Т1092лD,Rм11:Т1093лD,Rм2:Т1120лD,Rм4:Т1121лD,Rм12:Т1122лD,Rм8:Т1123лD,Rм4:Т1124лD,Rм12:Т1125лD,Rм8:ЛI(ЧАJ│0е6:АK│0е96й32:Т1095лJлK,128:Т1107лJлK,128:Т1351лJлK,128:Т1363лJлK,128:ЛK,J)З@203,"fractals 2";:З@239,"by";:З@267,"r.delbourgo";:З@328,"15,willowdene av";:З@360,"australia   7005";:)(╔"O3L20CEGO4CO3GECP1":Т65495,0)╡	Ю:З@352," WHEN YOU THE FRACTALS ARE ALL   DRAWN YOU WILL HEAR A SOUND.    PRESS <P> TO PAINT OUT THE      SURROUNDS OR <C> TO CONTINUE."*
З@0," ENTER THE NUMBER OF SIDES OF    THE FRACTAL POLYGON (3 - 8)";:ЙN:PI│3.14159265*ЕN▓8▒N┤3з10*:R│(Nл4)н5.6:╚4,1:┐1,1:╝*I
МA(N),U(N)*ЖАJ│1еN:A(J)│128лRн Х(2нPIнJоN):U(J)│96лRн Е(2нPIнJоN):ЛJ*╟АJ│1еN:╗(A(J),U(J))м(A(Jл1мNн Б(JоN)),U(Jл1мNн Б(JоN))),╜:ЛJ*цR│3нRо(Nл2):МB(NнN),V(NнN)+=АI│1еN:АJ│1еN:B(Jл(Iм1)нN)│A(I)лRн Х(2нPIнJоN):V(Jл(Iм1)нN)│U(I)лRн Е(2нPIнJоN):ЛJ+МАJ│1еN:K│Jл(Iм1)нN:╗(B(K),V(K))м(B(Kл1мNн Б(JоN)),V(Kл1мNн Б(JоN))),╜:ЛJ,I+пR│3нRо(Nл2):МC(NнNнN),W(NнNнN),АI│1еNнN:АJ│1еN:C(Jл(Iм1)нN)│B(I)лRн Х(2нPIнJоN):W(Jл(Iм1)нN)│V(I)лRн Е(2нPIнJоN):ЛJ,WАJ│1еN:K│Jл(Iм1)нN:╗(C(K),W(K))м(C(Kл1мNн Б(JоN)),W(Kл1мNн Б(JоN))),╜:ЛJ,I,cЕN▓4з26,КR│3нRо(Nл2):МD(NнNнNнN),X(NнNнNнN),хАI│1еNнNнN:АJ│1еN:D(Jл(Iм1)нN)│C(I)лRн Х(2нPIнJоN):X(Jл(Iм1)нN)│W(I)лRн Е(2нPIнJоN):ЛJ-4АJ│1еN:K│Jл(Iм1)нN:╗(D(K),X(K))м(D(Kл1мNн Б(JоN)),X(Kл1мNн Б(JоN))),╜:ЛJ,I-?а100,1-SI$│ Т:ЕI$│""з27-rЕI$│"P"з├(253,96),1,1:┐1,0-БЕI$│"C"зО9-КБе27                                                                                                                                                                                                                                                                 ъ&G
R│ Д(8):ЮR:АJ│0е11:АK│0е224й32:Т1162лJлK,128:ЛK,J:Ж16,132,278,394&дАI│1е4:НD:АJ│0е5:АK│0е96й32:Т1024лJлKлD,128:ЛK,J,I:Ж13,71,86,129,217,260,348,391,406,464'АI│5е14:НD:АJ│0е2:АK│0е32й32:Т1024лJлKлD,128:ЛK,J,I:Ж11,40,55,69,98,186,215,258,317,360,389,404,433'PАI│15е27:НD:Т1024лD,122л16нR:Т1025лD,128:ЛI:Т1152,128:Т1407,128'┤Ж77,106,121,150,193,252,295,324,412,441,455,470,499:АI│28е40:НD:Т1024лD,128:Т1025лD,117л16нR:ЛI(!З@203,"fractals 3";:З@239,"by";:З@267,"r.delbourgo";:З@299,"15,willowdene av";:З@331,"australia   7005";(D╔"O3L20CEGO4CO3GECP1":Т65495,0(└Ю:З@352," WHEN THE FRACTALS ARE DRAWN A   SOUND WILL BE HEARD. PRESS <P>  TO PAINT OUT SURROUNDS OR  <C>  TO CONTINUE.")	З@0," ENTER THE NUMBER OF SIDES OF    THE FRACTAL POLYGON (3 - 8)";:ЙN:PI│3.14159265:M│2оN).
ЕN▓8▒N┤3з9)HR│(Nл4)н5:╚4,1:┐1,1:╝)WМA(N),U(N))Ф
АJ│1еN:A(J)│128лRн Х(2нPIнJоN):U(J)│96лRн Е(2нPIнJоN):ЛJ*АJ│1еN:╗(A(J),U(J))м(A(Jл1мNн Б(JоN)),U(Jл1мNн Б(JоN))),╜:ЛJ:АJ│1еN:A(J)│A(J)лMнRн Х(2н(Jл1)нPIоN):U(J)│U(J)лMнRн Е(2н(Jл1)нPIоN):ЛJ*6R│MнR:МB(NнN),V(NнN)*ЫАI│1еN:АJ│1еN:B(Jл(Iм1)нN)│A(I)лRн Х(2нPIн(Jл2)оNлPI):V(Jл(Iм1)нN)│U(I)лRн Е(2нPIн(Jл2)оNлPI):ЛJ+DАJ│1еN:K│Jл(Iм1)нN:╗(B(K),V(K))м(B(Kл1мNн Б(JоN)),V(Kл1мNн Б(JоN))),╜:ЛJ:АJ│1еN:K│Jл(Iм1)нN:B(K)│B(K)лMнRн Х(2н(Jл3)нPIоNлPI):V(K)│V(K)лMнRн Е(2н(Jл3)нPIоNлPI):ЛJ,I+aR│MнR:МC(NнNнN),W(NнNнN)+╨АI│1еNнN:АJ│1еN:C(Jл(Iм1)нN)│B(I)лRн Х(2нPIн(Jл2)оNлPIн2оN):W(Jл(Iм1)нN)│V(I)лRн Е(2нPIн(Jл2)оNлPIн2оN):ЛJ,sАJ│1еN:K│Jл(Iм1)нN:╗(C(K),W(K))м(C(Kл1мNн Б(JоN)),W(Kл1мNн Б(JоN))),╜:ЛJ:АJ│1еN:K│Jл(Iм1)нN:C(K)│C(K)лMнRн Х(2н(Jл4)нPIоN):W(K)│W(K)лMнRн Е(2н(Jл4)нPIоN):ЛJ,I,ЕN▓4з29,аR│MнR:МD(NнNнNнN),X(NнNнNнN)-
АI│1еNнNнN:АJ│1еN:D(Jл(Iм1)нN)│C(I)лRн Х(2нPIнJоNлPI):X(Jл(Iм1)нN)│W(I)лRн Е(2нPIнJоNлPI):ЛJ-оАJ│1еN:K│Jл(Iм1)нN:╗(D(K),X(K))м(D(Kл1мNн Б(JоN)),X(Kл1мNн Б(JоN))),╜:ЛJ:АJ│1еN:K│Jл(Iм1)нN:D(K)│D(K)лMнRн Х(2н(Jм4)нPIоNлPIоN):X(K)│X(K)лMнRн Е(2н(Jм4)нPIоNлPIоN):ЛJ,I-║ЕN▓3з29-▀R│MнR:МE(NнNнNнNнN),Y(NнNнNнNнN).DАI│1еNнNнNнN:АJ│1еN:E(Jл(Iм1)нN)│D(I)лRн Х(2нPIн(Jл3)оN):Y(Jл(Iм1)нN)│X(I)лRн Е(2нPIн(Jл3)оN):ЛJ.УАJ│1еN:K│Jл(Iм1)нN:╗(E(K),Y(K))м(E(Kл1мNн Б(JоN)),Y(Kл1мNн Б(JоN))),╜:ЛJ,I.Юа100,1.▓I$│ Т:ЕI$│""з30.╤ЕI$│"P"з├(253,96),1,1:┐1,0.р ЕI$│"C"зО8.щ!Бе308R4EU2HNL4EU2HNL4BR 2"
:Г***HOME BUDGET ANALYSIS***25:ГBY J. D. RAY2Q:Г   5065 FRANCE AVENUE2t(:Г   N. CHARLESTON, S.C. 294062М2:Г   1-803-554-06372д<Ю5:З@99, б(26,"%");2╠FЗ@131,"%% HOME BUDGET ANALYSIS %%";2ЇPЗ@163,"%%                      %%";3ZЗ@195,"%%    BY  J. D. RAY     %%";3DdЗ@227,"%%  COPYRIGHT (C) 1983  %%";3ZnЗ@259, б(26,"%");3nxА T│1 е 1200:ЛT3zВМ T(13)3ЗММ Q$(10)3║С:ГINSERT YOUR OWN HEADING FOR THE MENU LISTING4\ЦЖ INCOME, ELECTRICAL USE EXPENSE, TELEPHONE EXPENSE, MEDICAL EXPENSE, SAVINGS, CLOTHING EXPENSE, GROCERY EXPENSE, MISCELLANEOUS, AUTOMOBILE EXPENSES,review  4hаАX│1е104tкН Q$(X)4|┤Л X4М╣:ГMENU LOOP4Т╛Ю4╕╚З@67,"WOULD YOU LIKE TO COMPARE:"4┬╥L│1304╬▄АX│1е104▐цЗ@L,X;Q$(X)4щЁL│Lл324ё·Л X5
З@460,"(1-10)"5
Й X5
Е X│10 з 46053
"ЕX┤0 ▒ X▓10 з 2705L
':ГVARIABLE SELECTION5u
,Ю:З:З"  ALL FIGURES ENTERED MUST BE:5Ь
6З:З"    0 - $ 1,000.00  RANGE <1>"5┴
@З"    0 - $10,000.00  RANGE <2>"5ц
JЗ"    $-400 - $600.00 RANGE <3>"6

TЗ:Й "SELECT RANGE: ";Z6
^Е Z┤1 ▒ Z▓3 з 3406-
c:ГDATA INPUT LOOP6N
hЮ:З@15м Б( З(Q$(X))о2),Q$(X)6[
rT$│Q$(X)6a
|З6{
ЖЕ Z│1 ▒ Z│3 з Бж 13206Э
Л:ГDATA INPUT LOOP FOR RANGE#26м
РА X│1 е 126╣
ЪЗ "# ";X6═
дЙ "MONTH ";T(X)7.
оЕ T(X)▓10000 з З "AMOUNT IS TOO HIGH.             PLEASE ENTER NUMBER < 10000":а 150,1:Бе41076
╕Л X7I
╜:ГDATA DISPLAY7Q
┬M│07p
╠L│36:P│48:A$│"$$##,###.##"7Н
╓Ю:З @ 15м Б( З(T$)о2),T$7Ы
рАX│1 е 127┐
ъЗ@L,"MONTH # ";X:З@P, ═ A$;T(X)7╤
ЇL│Lл32:P│Pл327┘
■Л X8T│T(1)лT(2)лT(3)лT(4)лT(5)лT(6)лT(7)лT(8)лT(9)лT(10)лT(11)лT(12)8<З@416,"TOTAL:   ";:З═A$;T8GT│Tо128`&Е Z│1 з M│ Б(Tо20)н38z0Е Z│2 з M│ Б(Tо200)н38У:Е Z│3 з M│ Б(Tо20)н38▓DЗ@448,"AVERAGE: ";:З═A$;T 8▄NЗ@437,"GRAPH? Y/N":З@469,"PRINT? <P>"9DS:ГSELECTION- (Y) TO SEE HIGH RESOLUTION GRAPH; (N) TO RETURN TO MENU; & (P) TO SEND DATA TO PRINTER9\XR$│ Т:Е R$│"" з 6009obЕ R$│"Y" з 6409ВlЕ R$│"N" з 1909ЭvЕ R$│"P" з 1500 :Д 6009┴{:ГLINE PLOT FORMULA FOR RANGE#2:ХАA│ Б(T(1)о200)н3:B│ Б(T(2)о200)н3:C│ Б(T(3)о200)н3:D│ Б(T(4)о200)н3:E│ Б(T(5)о200)н3:F│ Б(T(6)о200)н3:G│ Б(T(7)о200)н3:H│ Б(T(8)о200)н3:I│ Б(T(9)о200)н3:J│ Б(T(10)о200)н3:K│ Б(T(11)о200)н3:L│ Б(T(12)о200)н3::пКЕ Z│1 ▒ Z│3 з Бж 1300:╧П:ГGENERAL GRAPH PLOT - GRID:цФЮ:╚3,1:┴1,2:╝:┐1,0:ўЮАY│25е175й15;
и╗(35,Y)м(244,Y),╜;▓Л Y;╝┴ 1,2;1╞АX│35е244 й19;G╨╗(X,25)м(X,175),╜;O┌Л X;kф╞"S2;BM35,185U10G3" :Г1;Йю╞"BM56,185L6U5R6U6L6" :Г2;о°╞"BM71,185R8U10L8R8D5L7R7D5" :Г3;╨╞"BM90,184BU5U5D5R8U5D10" :Г4;я╞"BM109,185R9U6L9U5R9" :Г5<╞"BM128,185U10R10L10D5R10D6L10" :Г6<4 ╞"BM148,185U5E6L8D1" :Г7<X*╞"BM166,185U10R8D5L8R8D6L8" :Г8<v4╞"BM189,185U10L8D5R8" :Г9<и>╞"BM203,185U10G3":╞"BM207,185U10R8D10L8" :Г10<╒H╞"BM223,185U10G3":╞"BM227,185U10G3" :Г11=R╞"BM241,185U10G3":╞"BM249,185L8U5R8U6L8" :Г12=\Е Z│3 з Бе 1390=>f╞"S3;BM20,175U10R10D10L10" :Г0=Wp╞"BM25,160U10G3" :Г1=uz╞"BM26,145L8U4R8U6L8" :Г2=ЪД╞"BM27,130U10L8R8D4L6R6D6L8" :Г3=╡О╞"BM25,115U11G6R9" :Г4=╙Ш╞"BM20,100R8U6L8U4R8" :Г5=їв╞"BM20,85U10R8L8D5R8D6L8" :Г6>м╞"BM23,70U6E5L7" :Г7>0╢╞"BM20,55U10R8D5L8R8D6L8" :Г8>L└╞"BM27,40U10L8D5R8" :Г9>╦╩╞"S2;BM1,28U2E8U2BL8D2F8D2":╞"S2;BM9,28U10G3":╞"BM12,28U10R8D10L8":╞"BM21,28U10R8D10L8":Е Z│2з╞"BM28,28U10R8D10L8" :ГX1000>°╘╞"S5;BM80,15U10R10D2U2L10D10R10U4L4" :ГG?▐╞"BM100,15U10R10D5L10R5F5" :ГR?=ш╞"BM120,15U5E5F5L10R10D5" :ГA?^Є╞"BM140,15U10R10D5L10D5" :ГP?№╞"BM160,15U10D5R10U5D10" :ГH?Ф
:ГDATA-LINE PLOT?Э┴4,2?зV│175?╣Е Z│3 з V│115@]$╗(35,VмA)м(54,VмB),╜:╗ м(73,VмC),╜:╗м(92,VмD),╜:╗м(111,VмE),╜:╗м(130,VмF),╜:╗м(149,VмG),╜:╗м(168,VмH),╜:╗м(187,VмI),╜:╗м(206,VмJ),╜:╗м(225,VмK),╜:╗м(244,VмL),╜@t.╗ (5,10)м(10,10),╜@Ч8╞"S2;BM15,13U10R6F4D5G3L6" :ГD@╥B╞"BM25,13U5E5F5L10R10D5":╞ "BM41,13U5E5F5L10R10D5" :ГA@ыL╞"BM35,13U8L5R8" :ГT@їV┴ 3,2@ `V│175AjЕ Z│3 з V│115A)o:ГAVERAGE-LINE PLOTADt╗ (35,VмM)м(244,VмM),╜A]~╗(205,10)м(210,10),╜AАИ╞"S2;BM216,13U6E5F5L9R9D6" :ГAAдТ╞"BM227,13H5U5D5F5E5U5BD10" :ГVA╬Ь╞"BM233,13U8R8D1U1L8D8R8U4L3R3D4" :ГGA№ж╗(241,13)м(242,13),╜:╗(241,12)м(242,12),╜B░╞"C1;BM110,23H5E5" :Г<B3║╞"BM119,23U10D10R6" :ГLBT─╞"BM133,23U10R9D5L9R3F6" :ГRBl╬╞"BM145,23E5H5" :Г>BВ╪╞"BM126,20L2" :Г-Bр▌:ГSELECTION-(L) TO RETURN TO MENU LIST; (R) TO REVIEW DATA ENTERED; & (N) TO END PROGRAM.BЎтR$│ Т:ЕR$│""з1250C	ьЕ R$│"L" з 190CЎЕ R$│"R" з 460C5Е R$│"N" з К :Д 1250C;
КCd:ГLINE PLOT FORMULA FOR RANGE# 1 & 3D+A│ Б(T(1)о20)н3:B│ Б(T(2)о20)н3:C│ Б(T(3)о20)н3:D│ Б(T(4)о20)н3:E│ Б(T(5)о20)н3:F│ Б(T(6)о20)н3:G│ Б(T(7)о20)н3:H│ Б(T(8)о20)н3:I│ Б(T(9)о20)н3:J│ Б(T(10)о20)н3:K│ Б(T(11)о20)н3:L│ Б(T(12)о20)н3D1РDW#:Г DATA INPUT LOOP FOR RANGE1 & 3Df(А X│1 е 12Ds2З "# ";XDЗ<Й "MONTH ";T(X)DЫAЕ Z│1 з Бе 1360E%FЕ Z│3 ░ T(X) ┤м450 ▒ T(X) ▓ 600 з З"AMOUNT IS OUT OF RANGE.":З"PLEASE ENTER NUMBER BETWEEN":З"    $-400.00 - $600.00":а 150,1:Бе 1330EВPЕ Z│1 ░ T(X)▓1000 з З"AMOUNT IS TOO HIGH.":З"PLEASE ENTER NUMBER < 1000":а 150,1:Бе 1330EКZЛ XEХdБе 460E║i:ГGRAPH PLOT CHANGE FOR RANGE #3Eчn╞"S3;BM15,170L3":╞"BM25,175U11G6R9" :Г-4Fx╞"BM15,155L3":╞"BM27,160U10L8R8D4L6R6D6L8" :Г-3FHВ╞"BM15,140L3":╞"BM26,145L8U4R8U6L8" :Г-2FpМ╞"BM15,125L3":╞"BM25,130U10G3" :Г-1FРЦ╞"BM20,115U10R10D10L10" :Г0Fйа╞"BM25,100U10G3" :Г1F╞к╞"BM26,85L8U4R8U6L8" :Г2Fъ┤╞"BM27,70U10L8R8D4L6R6D6L8" :Г3G╛╞"BM25,55U11G6R9" :Г4G!╚╞"BM20,40R8U6L8U4R8" :Г5G,╥Бе 970GF╫:ГPRINTER SUB-ROUTINEGu▄З @ 437,"PRINTER":З @ 469,"READY?":а 160,2GбцR$│ Т:Е R$│"" з 1510:Е R$│" " з Бе 1520G╘ЁЗ#м2, Л(27); Л(19) :ГSELECT STANDARD CHARACTERGЎ·З#м2, Л(15) :ГSTART UNDERLINEHЗ#м2,T$H"З#м2, Л(14) :ГEND UNDERLINEH1А X│1 е 12H^"З #м2,═"##.";X;:З#м2,═"$$##,###.##";T(X)Hf,Л XHГ6З#м2, Л(10) :Г LINE FEEDH╚@T│T(1)лT(2)лT(3)лT(4)лT(5)лT(6)лT(7)лT(8)лT(9)лT(10)лT(11)лT(12)HїJЗ#м2,"TOTAL:   ";:З #м2,═"$$##,###.##";TITT│Tо12I.^З#м2, "AVERAGE: ";:З #м2,═"$$##,###.##";TI9hБе 590IMr:ГVARIABLE MAP:IОs:ГT(X) - INPUT DATA FOR MONTHS OF YEAR OR 12 PERIODS OF TIMEIлt:ГQ$(X) - MENU SELECTIONI╩u:Г Z - RANGE OF INPUT DATAIшv:Г T$- HEADINGS FROM MENUJw:Г T - TOTAL OF T(X)'S AND AVERAGEJ9x:Г M - VARIABLE FOR AVERAGE LINE PLOTJty:Г A-L - VARIABLES FOR THE 12 MONTHS OR TWELVE PERIODSJТz:Г R$ - SELECTION STRING:Jб{:Г Y - YESJ╡|:Г N - NO (END)J╚}:Г P - PRINTERJч~:Г L - RETURN TO MENU LISTJ∙:Г R - REVIEWKЖ:ГMEMORY AVAILABLE - 2107OU !",3,0,1-`кЖ"SPI","A LARGE SPIDER","IT APPEARS DANGEROUS!",10,0,1-Е┤Ж"COB","COBWEBS . . .","Z",7,0,1-┬╛Ж"TRE","A COAT TREE","WRITING: I WAS ONCE AN OAK!",3,1,1-ч╚Ж"SOF","A SHABBY SOFA","Z",4,0,1."╥Ж"MED","A LEAD MEDA                                                                                                                                                                                                                                                                 e2Х 1500:Ю2K
:М  PL$(20),AB$(20),HT$(20),R$(30),K$(20),BB$(20),AV(20)2R::2l:ГLITTLE LEAGUE STATS2З:ГBY ED CARSON,3/15/832Н:2йЮ:Зд8) "BASEBALL STATS"2║#З  б(32,"*")2┘2З @ 102,"(1)INPUT PLAYERS"2ї<З @134,"(2)ADD TO LIST"3FЗ @166,"(3)INPUT STATS"33PЗ @198,"(4)PRINT ALL PLAYERS"3OZЗ @230,"(5)PRINT STATS"3kdЗ@262,"(6)SAVE TO TAPE"3ЙnЗ@294,"(7)LOAD FROM TAPE"3еxЗ@294,"(8)ADD TO STATS"3╝yЗ@326,"(9)PITCHERS3╧ВЗ @427,"WHICH"3сЗЗ@459,"(1-9)"3щМЙ M3■ЦЕ M┤0 ▒ M▓9 з 3047аИ M Бж 1000,1055, 3000,4000,5000,6000,7000,8000,90004AкБе 304G╛:4`уВ:     INPUT PLAYERS4jшЮ:Y│14КЄЮ:З @ 8,"INPUT/ADD PLAYERS"4░№З @34,"PRESS<ENTER>WHEN FINISHED"4┬З:З"PLAYER"Y;4╧Й PL$(Y)4ёЕ  З(PL$(Y))▓7 з 1046 :Д 10505-Y│Y:З:З" RE<ENTER> PLAYERS NAME USE (7)   LETTERS ONLY"5EАT│1е920:Л T:Бе10305aЕ PL$(Y)│""Бе 30:Д 10605qY│Y:Бе 10105{$Y│Yл15З.Бе 10305Н8:5УB:5и╖В:    INPUT HITS5└╕Ю:а200,5:А Y│1 е 155с┬З"PRESS<ENTER>WHEN FINISHED"6╠З"ENTER HITS FOR ";PL$(Y):6
╓Й HT$(Y)6$рЕ HT$(Y)│"" з 31006.ъY│Yл16:ЇБе 30206@:6XВ:    INPUT AT BATS6pЮ:а 200,5:АY│1 е 156С&З"PRESS<ENTER>WHEN FINISHED"6▓0:З"ENTER AT BATS FOR "PL$(Y)6┐:Й AB$(Y)6╒DЕ AB$(Y)│""з 32006▀NY│Yл16ыXБе 31206ёl:7В:    INPUT RUNS7!АЮ:а 200,5: А Y│ 1 е 157CКЗ "PRESS<ENTER>WHEN FINISHED"7bФЗ"ENTER RUNS FOR  " PL$(Y)7nЮЙ R$(Y)7ГиЕ R$(Y)│""з 33007Н▓Y│Yл17Щ╝Бе 32207Я╨:7╣уВ:  INPUT STRIKE OUTS7╙фЮ:а 200,5: А Y│1 е 157ўюЗ"ENTER STRIKE OUTS FOR "PL$(Y)8°Й K$(Y)8
Е K$(Y)│""з 34008"
Y│Yл18.
Бе 331084
 :8G
GВ: INPUT WALKS8a
HЮ:а 200,5: А Y│1 е 158В
RЗ"PRESS<ENTER>WHEN FINISHED"8а
\З"ENTER WALKS FOR "PL$(Y)8н
fЙ BB$(Y)8┴
pЕ BB$(Y)│""з 308╦
zY│Yл18╫
ДБе 34208▌
Є:8є<В   PRINT PLAYERS9
аА X│ 1 е Y м1 й 159кА Z│X е X л 149,┤З Z;PL$(Z)94╛Л Z9<╚Л X9^Й"PRESS<ENTER>TO CONTINUE";C$9dР9j":9}~В: PRINT STATS9ЦИЮ:А Y│1 е 15:Бе 50109ЮНY│Y9─ТV│40:I$│"AB  HT   R   K   BB  AV"9╧ЬЗ@8,I$9°жY│Y:║ HT│ Й(HT$(Y)):║ AB│  Й(AB$(Y)):
лЕ AB│0 з AB│1:░AV│HTоABн1000:)╡F│ Ш(AV):C╢LN│ З(AB$(Y)):MB│4мLN:p╖Е  З(AB$(Y))┤▓4зAB$(Y)│AB$(Y)л б(MB," "):К╕AN│ З(HT$(Y)):CB│5мAN:╖╣Е  З(HT$(Y))┤▓5зHT$(Y)│HT$(Y)л б(CB," "):╨║BN│ З(R$(Y)):DB│4мBN;
╗Е  З(R$(Y))┤4зR$(Y)│R$(Y)л б(DB,"  "):Д 5052;╝CN│ З(K$(Y)):EB│4мCN;C╜Е  З(K$(Y))┤4зK$(Y)│K$(Y)л б(EB," ");]╛EN│ З(BB$(Y)):DB│3мEN;Й┐Е  З(BB$(Y))┤3зBB$(Y)│BB$(Y)л б(DB," ");╖╔ЗPL$(Y):З@V,AB$(Y)HT$(Y)R$(Y)K$(Y)BB$(Y)F;╧┘Y│Yл1:Е Y│16 з 5100;Ў█V│Vл64:Е Y│6▒ Y│12 з 5085 :Д 5030 <▌Й"PRESS ENTER TO CONTINUE";C$<&▐Ю:Бе 5005<IьЙ"PRESS<ENTER>TO CONTINUE"; C$<SЎБе 30<tpЮ:З@135,"SAVE STATS ON TAPE"<МzЗ@235,"REWIND TAPE"<оДЗ@300,"PRESS PLAY AND RECORD"<╤ОЗ@388,"PRESS<ENTER>WHEN READY"<┌ШЙ C$<явЩ"O",#м1,"STATS"<■мА Y│1е15м1=2╢З #м1,PL$(Y),AB$(Y),HT$(Y),R$(Y),K$(Y),BB$(Y),F=:└Л Y=E╩Ъ#м1:Р=hXЮ:З@136,"LOAD STATS FROM TAPE"=АbЗ@235,"REWIND TAPE"=ЧlЗ@300,"PRESS PLAY"=║vЗ@388,"PRESS<ENTER>WHEN READY"=├АЙ C$=╪КЩ"I",#м1,"STATS"=рФY│1=ЇЮЕ  М(м1) з 7097>)иЙ #м1,PL$(Y), AB$(Y),HT$(Y),R$(Y),K$(Y),BB$(Y),F>3╖Y│Yл1>?╕Бе 7070>J╣Ъ#м1:Р>P :>b▄В:  ADD STATS>y@Ю:а1,5:А  Y│1 е 15>НJЮ:Е Y│16 з 8100>оTЗ PL$(Y)"S"" HITS THIS GAME">╕^Й H2:>╩hHT│ Й(HT$(Y))>▀rHT$(Y)│ И(HTлH2)>Є|Y│Yл1: Бе 8010>°Р:?Ъ:   В:  ADD AT BATS?$да1,5:А Y│1 е 15?9оЮ: Е Y│16 з 8200?]╕З PL$(Y)"S"" AT BATS THIS GAME"?g┬Й H3:?y╠AB│ Й(AB$(Y))?О╓AB$(Y)│ И(ABлH3)?брY│Yл1: Бе 8110?зЇ:?║■:  В: ADD RUNS?╬ а1,5:А Y│1 е 15?т Ю:Е Y│16 з 8300@ З PL$(Y)"S"" RUNS THIS GAME"@
 &Й R2:@ 0R│ Й(R$(Y))@0 :R$(Y)│ И(RлR2)@C DY│Yл1: Бе 8210@I X:@c b:  В: ADD STRIKE OUTS@w lа1,5:А Y│1 е 15@Л vЮ:Е Y│16 з 8400@│ АЗ PL$(Y)"S ""STRIKE OUTS THIS GAME"@╜ КЙ K2:@═ ФK│ Й(K$(Y))@р ЮK$(Y)│ И(KлK2)@є иY│Yл1: Бе 8310@· ╝: A
 ╞: В: ADD WALKSA! ╨а1,5:А Y│1 е 15A6 ┌Ю: Е Y│16 з 8500AX фЗ PL$(Y)"S"" WALKS THIS GAME"Ab юЙ B2:As °B│ Й(BB$(Y))AЗ!BB$(Y)│ И(B2лB)AЩ!Y│Yл1:Бе 8410AЯ! :A┤!*: В NEW AVERAGESA─!4А Y│ 1 е 15A╫!>Ю: Е Y│ 16 з30A√!R║ HT│ Й(HT$(Y)):║ AB│ Й(AB$(Y))B!WЕ AB│0з AB│1B!\AV│HTоABн1000B(!fБе 30B2"─Х 500B8#(ЮBQ#.Зд9)"PITCHING STATS"Bb#/З  б(32,"*")B#2Зд7) "WHICH DO YOU WANT"BР#7З  б(32,"-")Bн#<Зд8) "(1) LIST PITCHERS"B╚#FЗд8) "(2) ADD TO LIST"Bу#PЗд8) "(3) INPUT STATS"B■#ZЗд8) "(4) PRINT STATS"C#dЗд8)"(5) ADD TO STATS"C5#nЗд8) "(6) SAVE TO TAPE"CS#xЗд8) "(7) LOAD FROM TAPE"Cq#}Зд8)  "(8) RETURN TO MENUCЕ#ВЗд13) "(1-7) ?"CН#МЙ WC┴#ЦИ W Бж 9190,9200,9310,9820,10000,10500,10600,30C╙#аЕ W$│""з 9110C┘#к:CЁ#╚В:  INPUT PITCHERSCЎ#▄:D#цЮ:АY│1е 7 D#ЁY│Y:ЮD)#·Зд11)"INPUT PITCHERS"DJ$З"PRESS<ENTER>WHEN FINISHED"D\$З"PITCHER" Y;Di$Й PT$(Y)DА$"Е PT$(Y)│"" з 9000DК$,Y│Yл1DЦ$6Бе 9230DЬ$J:Dп$TВ: INPUT STATSD╝$^Ю:АY│1е7D▌$hЗ"PRESS<ENTER>WHEN FINISHED"D■$rЗ:З"HITS GIVEN UP BY "PT$(Y)E$|Й HG$(Y)E"$ЖЕ HG$(Y)│"" з 9410E,$РY│Yл1E8$ЪБе 9330E>$о:EW$╕: В: INNINGS PITCHEDEd$┬Ю:АY│1е7EЕ$╠З"PRESS<ENTER>WHEN FINISHED"Eи$╓З"INNINGS PITCHED FOR ";PT$(Y)E╡$рЙ IP$(Y)E╦$ъЕ IP$(Y)│""з 9520E╒$ЇY│Yл1Eс$■Бе 9430Eч%:E·%&В: STRIKE OUTSF%0Ю:АY│1е7F(%:З"PRESS<ENTER>WHEN FINISHED"FF%DЗ"STRIKE OUTS FOR "PT$(Y)FS%NЙ SO$(Y)Fi%XЕ SO$(Y)│""з 9620Fs%bY│Yл1F%lБе 9540FЕ%А:FУ%КВ:  WALKSFа%ФЮ:АY│1е7F┴%ЮЗ"PRESS<ENTER>WHEN FINISHED"Fс%иЗ"WALKS GIVEN UP BY "PT$(Y)Fэ%▓Й W$(Y)G%╝Е W$(Y)│""з 9720G%╞Y│Yл1G%╨Бе 9640G%ф:G2%юВ:  EARNED RUNSG?%°Ю:АY│1е7G`&З"PRESS<ENTER>WHEN FINISHED"GЕ&З"EARNED RUNS ALLOWED BY "PT$(Y)GТ&Й ER$(Y)Gй& Е ER$(Y)│"" з 9000G│&*Y│Yл1G┐&4Бе 9740G┼&H:G┌&R: В: PRINT STATSGы&\Ю: А Y│1 е 7H&fЗ@10,"HT":З@13,"IP"H&pЗ@17,"K":З@20,"BB"H2&zЗ@24,"R":З@27,"ERA"HF&Д║ ER│ Й(ER$(Y))HY&О║IP│ Й(IP$(Y))Hh&ШЕER│0зEV│0Hy&ЩЕ ER│0з 9897HИ&вEV│ERоIPн7H┤&гЕ  З(HG$(Y))┤3зHG$(Y)│HG$(Y)л" ":Бе9891Hр&дЕ З(IP$(Y))┤4зIP$(Y)│IP$(Y)л" ":Бе 9892I&еЕ З(SO$(Y))┤3зSO$(Y)│SO$(Y)л" ":Бе 9893I4&жЕ З(W$(Y))┤4зW$(Y)│W$(Y)л" ":Бе9894I`&зЕ З(ER$(Y))┤3зER$(Y)│ER$(Y)л" ":Бе 9895IН&иЕ  З(PT$(Y))┤8зPT$(Y)│PT$(Y)л" ":Бе 9896IЬ&йEV$│ И(EV)I╚&кЕ  З(EV$(Y))┤5зEV$(Y)│EV$(Y)л" ":Бе9898I¤&мЗ PT$(Y)д10)HG$(Y) IP$(Y) SO$(Y) W$(Y) ER$(Y) EVJ&╢Y│Yл1J &└Е Y│8 з 9930 :Д 9860JD&╩З"PRESS<ENTER>TO CONTINUE":Й C$JP&╘Бе 9000JV&ш:Jk&Є:  В:  ADD STATSJ|'Ю: А Y│1 е 7JС'Ю:Е Y│8 з 10070 J▒'$Зд7)"ADD TO PITCHING STATS"J├'.З:З PT$(Y)"S"Jц'3З:З"INNINGS PITCHED THIS GAME"J¤'8Й I2:IP│ Й(IP$(Y))K'BIP$(Y)│ И(IPлI2)K%'LY│Yл1:Бе 10010KG'VЙ"PRESS ENTER TO CONTINUE";G$KX'[И G Бе 10110Ke'`Бе 10110Kw'j: В: ADD HITSK}'t:KН'~Ю:А Y│1 е 7Kб'АЮ:Е Y│8 з 10160Kо'ГЗ PT$(Y)K╧'ИЗ:З"HITS GIVEN UP THIS GAME"Kц'ТЙ H2:HT│ Й(HG$(Y))K√'ЬHG$(Y)│ И(H2лHT)L'жY│Yл1:Е Y│8 з 10160 :Д 10112L>'░Й"PRESS<ENTER>TO CONTINUE";G$LK'╡Бе 10200LQ'╬:Li'╙: В ADD STRIKE OUTSLz'╪Ю: А Y│1 е 7LН'▌Ю:Е Y│8з 10260Lв'▀Ю: Е Y│8 з 10250Lп'тЗ PT$(Y)L╬'чЗ:З"STRIKE OUTS THIS GAME"Lц'ьЙ S2:║SO│ Й(SO$(Y))L√'ЎSO$(Y)│ И(S2лSO)M(Y│Yл1:ЕY│8 з 10250 :Д 10205M=(
Й"PRESS<ENTER>TO CONTINUE";G$MJ(Бе 10300M]((: В: ADD WALKSMm(<Ю:А Y│1 е 7MБ(AЮ:Е Y│8 з 10370MХ(CЮ:Е Y│8 з 10360Mв(FЗ PT$(Y)M┼(PЗ:З"WALKS GIVEN UP THIS GAME "M▄(ZЙ W2:║ W│ Й(W$(Y))Mя(dW$(Y)│ И(W2лW)N(nY│Yл1:ЕY│8 з 10360 :Д 10305N1(xЙ"PRESS<ENTER>TO CONTINUE";G$N>(ВБе 10400ND(М:N](Ц: В: ADD EARNED RUNSNm(аЮ:А Y│1 е 8NБ(еЮ:Е Y│8 з 10470NО(кЗ PT$(Y)Nн(┤З:З"EARNED RUNS THIS GAME"N─(╛Й E2:ER│ Й(ER$(Y))N┘(╚ER$(Y)│ И(E2лER)N∙(╥Y│Yл1:ЕY│8 з10460  :Д 10405O(▄З"PRESS<ENTER>TO CONTINUE"O$(цБе 9000O;( :  В: SAVE TO TAPEOA):Od)Ю: З @135,"SAVE ITEMS ON TAPE"O~)З@234,"POSITION TAPE"Oа)З@294,"PRESS PLAY AND RECORD"O├)"З@388,"PRESS<ENTER>WHEN READY"O╠),Й Q$Oу)6Щ "O",#м1, "STATS"Oє)@А Y│1 е 8м1P+)JЗ#м1,PT$(Y),HG$(Y),IP$(Y),SO$(Y),W$(Y),ER$(Y),EV(Y)P3)TЛ YPF)^Ъ #м1: Бе 9000PL)a:Pd)b: В: LOAD FROM TAPEP)hЮ: З@235,"REWIND TAPE"PЦ)rЗ@300,"PRESS PLAY"P╣)|З@388,"PRESS<ENTER>WHEN READY"P┬)ЖЙ Q$P╫)РЩ "I",м1,"STATS"P▀)ЪY│1PЇ)дЕ  М(м1) з 10695Q-)оЙ #м1,PT$(Y),HT$(Y),IP$(Y),SO$(Y),W$(Y),ER$(Y),EV(Y)Q:)╕З PT$(Y)QD)╜Y│Yл1QQ)┬Бе 10660Qd)╟Ъ #м1: Бе 9000FLAWLESS . . HUGE !",24,1,13╢╓Ж"SIG","A SIGN","ADVENTURES ARE FUN ! ?",14,0,13ррЙ" HIT ENTER TO START . . READY";M$:Р3√ъЗ@40,"M A N S I O N":З4E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
╟&"
В*STEVE BLYN,COMPUTER ISLAND&+Х500&uЮ:З@96,"DO YOU HAVE A PRINTER TURNED ON":Й PR$:Е  О(PR$,1)│"Y" з PR│1&╚(Т359,57:┐0,1: В*****LET'S USE A DIFFERENT COLORED  SCREEN FOR A WELCOME CHANGE&╬2Ю&ь<З@6,"*application form*";&■FЗ@32,"NAME:";'&PЗ@69,"-------------  ------------";'IZЗ@102,"LAST            FIRST";'cdЗ@37,"";:╗ ЙL$:а170,3'ЖnЗ@52," ":З@52,"";:╗ ЙF$:а200,3'╕xЗ@64," ":З@96," "::Г***REMOVES LAST AND FIRST'═ВЗ@96,"ADDRESS:";'єМЗ@136,"------------------------";(ЦЗ@169,"STREET AND NUMBER";(,аЗ@104,"";:╗ЙS$:а100,3(TкЕ  З(S$)▓24 з З@104, О(S$,24)л"   "(l┤З@132," ":З@160," "(|╛Бж200:Бе210(м╚З@160,"----------------------- -- -----";:Р(╨╥Зд10)"CITY"д22)"STATE"д28)"ZIP"(ъ▄З@128,"";:╗ЙC$:а125,3)цCC│ З(C$):Е CC▓22 з З@128," ":З@128, О(C$,22))/ЁЕCC▓22 з CC│22)A·З@128лCC,",";)k
З@152,"";:╗ЙST$:Е  З(ST$)┤▓2 з Бе 520)w
а 150,3)б
З@155,"";:╗Й Z$: Е  З(Z$)┤▓5 з Бе 530)н
"а 180,3)┼
,З@160," ":З@192," ")у
6З@192,"TELEPHONE #:(   )") 
@З@236,"----- --------";*#
JЗ@205,"";:╗ЙT$:Е З(T$)┤▓3 з 540*2
TЗ@208,")";*d
^З@210," ":З@210,"";:╗ Й TT$:Е З(TT$)┤▓8 з 550*А
hЕ  Р(TT$,4,1)┤▓"-"з 550*и
rЗ@224," ":З@256,"AGE:";:З@292,"--";*╞
|З@260," ":З@260,"";:╗ЙAG$*ь
ЖЕ  Й(AG$)┤1 ▒  Й(AG$)▓99 з Бе 560+
РЗ@264,"DATE OF BIRTH:";:З@310,"-- -- --";+1
ЪЗ@342,"MO.DA.YR.";+i
дNN│12:З@278," ":З@278,"";:╗ЙMO$:Е З(MO$)┤▓2з Бе 570+П
оЕ  Й(MO$)┤0 ▒  Й(MO$)▓12 з Бе 580+╚
╕NN│31:З@281," ":З@281,"";:╗ЙDA$:Е З(DA$)┤▓2 з Бе 590+э
┬Е Й(DA$)┤0 ▒  Й(DA$)▓31 з Бе 600,
╠З@284," ":З@284,"";:╗ЙYR$:Е З(YR$)┤▓2 зБе 610,-
╓З@288," ",T
рAP$│"your application is accepted",|
ъАT│1е29:З@447мT, О(AP$,T):а230,1:ЛT,У
ЇЕ PR│1з 640 :Д 710,Ы
■:Г*,ёАT│1е3:З@420,"ALL STATES USE 2 LETTERS";:а40,8:ЛT:З@152," ":З@416," ":Бж200:Бе260-SАT│1е3:З@416,"ALL ZIP CODES HAVE 5 DIGITS.":а70,8:З@155,"          ":ЛT:З@416," ":Бж200:Бе280-ЩАT│1е3:З@416,"AREA CODES HAVE 3 DIGITS.":а70,8:ЛT:З@416," ":Бе310.&АT│1е3:З@416," TELEPHONE #'S HAVE 7 DIGITS    WITH A DASH AFTER THE FIRST 3.":а70,8:ЛT:З@416," ":З@448," ":Бе 350.W0АT│1е3:З@417,"THAT'S NOT YOUR REAL AGE...":а70,8:ЛT:З@416,"":Бе 380.h:Бж620:Бе 420.xDБж630:Бе420.ИNБж620:Бе440.ШXБж630:Бе440.иbБж620:Бе460.фlАT│1е3:З@422,"USE 2 DIGITS,PLEASE":а70,8:ЛT:З@416," ":Р/+vАT│1е3:З@417,"ONLY USE NUMBERS FROM 1 TO";NN:а200,6:ЛT:З@416," ":Р/WАЗ#м2,д30)"APPLICATION FORM":Бж720:Бж720/~КЗ#м2,д5)"NAME:"д20)L$д40)F$:Бж 730/гФЗ#м2,д20)"LAST"д40)"FIRST":Бж720/╞ЮЗ#м2,д5)"ADDRESS:"д20)S$:Бж730/юиЗ#м2,д20)C$", "ST$" "Z$:Бж730:Бж7200%▓З#м2,д5)"TELEPHONE #:"д20)"("T$") "TT$:Бж730:Бж7200i╝З#м2,д5)"AGE:"д12)AG$д20)"DATE OF BIRTH: "MO$"/"DA$"/"YR$:Бж7300o╞К0К╨АT│1 е 2:З#м2," ":ЛT:Р0╞┌З#м2,д20)"------------------------------------------":Рм(28,66),B:┼(227,52)м(255,66),U,╜:╔"T3;L3;O3;V31;G;L3;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !К&[
└3:Т65495,0:Х190:МW(12),Z(12),U(9),D(9),L(9),R(9),N(9),AE(12),BE(14),CE(17),V(9),O(4)&┼Ю0:R$│ Л(128):АS│м16е80й16:АI│258е387й32:З@IмK, б(5,159лS);:Л:З@418мK, б(5,156лS);:З@450мK, б(5,128);'АY│0е6й6:З@264лYмK, Л(145лS)л Л(159лS)л Л(159лS)л Л(159лS)л Л(146лS);'hАI│296е392й32:З@IлYмK, б(5,159лS);:ЛI:З@424лYмK, б(5,156лS);:З@456лYмK, б(5,128);:ЛY(АY│0е96й96:З@276лYмK, б(9,159лS); Л(155лS);R$;:З@308лYмK, б(10,159лS); Л(152лS);R$;:З@340лYмK, б(9,156лS); Л(152лS);R$;:З@372лYмK, б(11,128);:ЛY:K│Kл32:ЛS(D╚1,1:╝:┴2,3:╗(0,160)м(256,192),╜,BF:╗(0,160)м(256,160),╛(q╞"S8BM120,176C3F3DLRDR5E3UH2L3G2DFR2EHL"(й╞"BM61,176C3G3DRLDL5H3UE2R3F2DGL2HER":├(20,170),1,3(╦	┴1,1:─(120,174)м(144,186),W,G)
─(39,174)м(63,186),Z,G:L$│ Л(129):Q$│"DPMPS"лL$л"DPNQVUFS"лL$л"HBNF"лL$л"CZ")?АI│0е160й40:┬(20лI,20),12,3,.9)R├(20лI,20),3,3)n
╗(8лI,10)м(32лI,30),╛,B)╜(20лI,16,2))ЖЛI)╢╗(32,10)м(22,20),╛:╗м(32,30),╛:├(24,20),1,1)■АS│1е22:F│ К( Р(Q$,S,1))л31:З@324лS, Л(F);:ЛS:Q$│"GSFE"лL$л"TDFSCP"*0АS│1е11:F│ К( Р(Q$,S,1))л31:З@394лS, Л(F);:ЛS*xL$│ Л(209):Q$│"TOBJM"лL$л"EFTJHOFE"лL$л"CZ"лL$л"EBMF"лL$л"IBHHFSUZ"*лАDH│1е31:ZL│ К( Р(Q$,DH,1)):Т1472лDH,ZLм65:ЛDH*ъQ$│"BRC1NU4RU4RD4RU4RD4RU4RNL4D2NL4D2L6C4":АI│0е9:НZ$(I):Л+МЖ BR2U4R3D4NL3,BR4NU4BR,BR2U2R3U2NL3BD4NL3,BR2R3U2NL2U2NL3BD4,BR2BU2NU2R3U2D4,BR2R3U2L3U2R3BD4,BR2U4NR3D2R3D2NL3,BR2BU4R3D4,BR2U4R3D2NL3D2NL3,BR2BU2NR3U2R3D4+├EX$│"O1L255BC":I│0:АII│11е227й27:I│Iл1:V(I)│II:ЛII+ЁI│0:АII│7е77й22:I│Iл1:O(I)│IIл96:ЛII:I│0, ╗(70,32)м(60,22),╛:╗м(50,32),╛:├(60,24),1,1,P╗(88,30)м(98,20),╛:╗м(88,10),╛:├(96,20),1,1,t╗(130,8)м(140,18),╛:╗м(150,8),╛,Ж├(140,16),1,1,о┴2,3:╗(26,16)м(22,20),╜:╗м(26,24),╜,╤╗(64,26)м(60,22),╜:╗м(56,26),╜,Ї╗(94,24)м(98,20),╜:╗м(94,16),╜- ╗(144,14)м(140,18),╜:╗м(136,14),╜-?!АI│0е80й40:┬(20лI,80),14лLL,2,.9-l"┴2,1:╗(6лIмLL,68мLL)м(34лIлLL,92лLL),╛,B-#├(20лI,80),2,2-е$┬(20лI,76мLL),2лLL,2,.9:LL│LLл2:Л-ф%АYP│0е40й40:АKP│1е40лYP:╜( Д(40)л20лYP, Д(20)л70,3):ЛKP,YP-¤&─(6,68)м(34,92),AE,G.'─(44,66)м(78,94),BE,G.2(─(82,64)м(122,96),CE,G.;)┴3,1.T*─(10,12)м(30,28),R,G.m+─(50,12)м(70,28),D,G.З,─(90,12)м(110,28),L,G.в-─(130,12)м(150,28),U,G.╜.─(170,12)м(190,28),N,G.▄/╚1,1:╝:SP│9:LV│4:Бж48:Бе50/\0I│40:J│40:ZZ│8:OO│6:K│40:M│40:A│4:B│3:╚0,3:╝:╚1,2:┴2,1:╗(2,100)м(252,186),╜,B:╗(0,98)м(256,188),╜,B:╗(30,120)м(256,122),╜,B/й1╗(0,142)м(226,144),╜,B:╗(30,164)м(256,166),╜,B:╗(228,98)м(250,100),╛,B:Р0D2╚1,1:╝:┐0,0:╞"S16BM0,32;C4E4L3E4R3G3R3G5NL3BR2E5R2F2E2R2G5L2H2G2L2BR10E5R3D5L2UBUL2ERDBDL3GL2BR10U5R3D5L3BR5U5R2D3RF2NL5BRBU5RDBD4BR3E2L3E3R3G2R3G3L3"0e3АIU│1е6:НPA:├(PA,26),4,4:ЛIU04Ж10,50,88,106,130,1701A5╞"BM28,66C3L2H3BUU2RD2LBDD3L2U7R4FD2GF3BRU7R4DL2D2RDLD2R2DNL4BR4H3U4R2D3FREU3R2D4G3NLBR4U7R4DL2D2RDLD2R2DNL4BR8L2H3D3L2U7R2F3U3R2D7BR7L4H2U3E2R3FD2L2UL2D3FRULURR3DLD2BR2U7R4DL2D2RDLD2R2DL4"1c6АFL│1е7:Н KL:├(KL,46),3,3:ЛFL17Ж6,38,58,90,110,142,1721Ъ8┼(212,16)м(236,28),Z,╜1└9╗(208,38)м(236,48),╜,B:Бж119:Бе601∙:P│Iм2:Q│J:S│Kл2:T│M:I│V(A):J│O(B):K│Iл20:M│Jл16:┴1,12T;╚1,2:┼(I,J)м(K,M),N,╜:╟3е2:╗(I,J)м(K,M),╛,BF:╗(V(SP),O(LV))м(V(SP)л24,O(LV)л12),╛,BF:Р2<╚1,1:┐1,0:QR│ Д( Я):RV│ Д(10):ЕRV▓3з622д=╗(212,42)м(232,44),╛,B:RG│0:Бе632─>╗(212,42)м(232,44),╜,B:RG│12√?╚1,2:QR│ Д(10):ИQR Бе64,67,70,73,67,67,67,73,73,733
@B│Bм1:ЕB┤1з663,AБж58:┼(I,J)м(K,M),U,╜:Бе763HBB│1:E│ Д(2):ЕE│1з67:Д733ZCA│Aл1:ЕA▓9з693yDБж58:┼(I,J)м(K,M),R,╜:Бе763ХEA│9:E│ Д(2):ЕE│1з64:Д703зFB│Bл1:ЕB▓4з723╞GБж58:┼(I,J)м(K,M),D,╜:Бе763тHB│4:E│ Д(2):ЕE│1з67:Д733ЇIA│Aм1:ЕA┤1з754JБж58:┼(I,J)м(K,M),L,╜:Бе764/KA│1:E│ Д(2):ЕE│1з64:Д704XL╔"L255O1CO4CD":Е SP│A ░ LV│B з77:Д784аM╚1,2:╗(V(SP),O(LV))м(V(SP)л24,O(LV)л12),╛,BF:┼(I,J)м(K,M),N,╜:Бе1084╖NJH│ Н(0):ЕJH▓32з904╬OSP│SPм1:ЕSP┤1зSP│14рPЕLV│4░SP│1з834ЄQЕLV│2░SP│1з834√RБе855SJV│ Н(1):ЕJV┤16зLV│LVм15 TБе8952UЕLV│3░SP│1з885DVЕLV│1░SP│1з885MWБе895iXJV│ Н(1):ЕJV▓46зLV│LVл15ЪY┼(V(SP),O(LV))м(V(SP)л24,O(LV)л12),W,╜:Бе1015▒ZSP│SPл1:ЕSP▓9зSP│95├[ЕLV│3░SP│9з955┘\ЕLV│1░SP│9з93:Д976V]╚1,2:┼(V(9),O(LV))м(V(9)л24,O(LV)л12),Z,╜:╟3е2:╗(V(9),O(LV))м(V(9)л24,O(LV)л12),╛,BF:╚1,1:АPC│1е5:M2│M2л1:Бж119:а200,1:Л6i^LV│4:SP│9:Бе976Е_JV│ Н(1):ЕJV┤16зLV│LVм16П`Бе1006бaЕLV│2░SP│9з996лbБе1006╟cJV│ Н(1):ЕJV▓46зLV│LVл16Єd┼(V(SP),O(LV))м(V(SP)л24,O(LV)л12),Z,╜70eЕ SP│A ░ LV│B з108:Д╟3е2:╚1,1:┐1,0:╚1,2:╗(I,J)м(K,M),╛,BF7EfЕ  Ж(339)│255з607SgЕ RG│0з607chЕ LV┤▓B з607Нi╚1,1:╗(V(SP)л12,O(LV)л6)м(Iл10,Jл6),╜7ЧjБе1157аkБе608l╗(V(SP),O(LV))м(V(SP)л24,O(LV)л12),╛,BF:АEM│1е5:┼(I,J)м(K,M),N,╜:╔EX$:╟3е2:┼(I,J)м(K,M),D,╜:╔EX$8tm╟3е2:ЛEM:╚1,1:┐1,1:╚1,2:╗(I,J)м(K,M),╛,BF:╗(V(SP),O(LV))м(V(SP)л24,O(LV)л12),╛,BF:╚1,1:┐1,1:┐1,0:SP│9:LV│48лnMS│MSл1:┼(MSн24м24,74)м(MSн24м4,90),R,╛:ЕMS│▓8з1128┤oБе608─pАI│1е1000:Л8┘qX$│ Т:ЕX$│""з1138▀rО9s╚1,2:┼(Iм4,Jм3)м(Kл4,Mл5),AE,▒:╟3е2:╔EX$лEX$9<t┼(Iм6,Jм5)м(Kл8,Mл7),BE,▒:╟3е2:╔EX$лEX$9ju┼(Iм10,Jм7)м(Kл10,Mл9),CE,▒:╟3е2:╔EX$лEX$9ЖvM2│M2л1:Бж119:Бж48:Бе609ЭwЕM2▓9зM3│M3л1:M2│09┤xЕM3▓9зM4│M4л1:M3│09╦yЕM4▓9зM5│M5л1:M4│09▄zЕM5│▓10зM5│0:+{╚1,1:╞"C4S8BM188,64"лQ$лZ$(M5)лQ$:╞Z$(M4)лQ$лZ$(M3)лQ$:╞Z$(M2)лQ$лZ$(M1):Р:Ж|:ГSNAIL'S REVENGE BY F.SCERBO&D.HAGGERTY,(C)1983,IMB, P.O.BOX289,WILLIAMSTOWM,MA,01267I│0е160й40&8┬(20лI,20),14,3,.9&K(├(20лI,20),3,3&f2╗(6лI,8)м(34лI,32),╛,B&m<ЛI&РF╗(32,10)м(22,20),╛:╗м(32,30),╛&бP├(24,20),1,1&─Z╗(70,32)м(60,22),╛:╗м(50,32),╛&╒d├(60,24),1,1&°n╗(88,30)м(98,20),╛:╗м(88,10),╛'	x├( WILL BECOME TOUGHER AND MORE CRAFTY AS YOU ADVANCE IN THE COMBAT."1N АB│1 е61Z*АC│1 е51h4Н MM(B,C)1o>ЛC1vHЛB1|RП1З\Бж18901НfЮ1ЩpАA│1 е41▓zИA Бе900,910,920,9302ДЗ"  THIS IS YOUR FIRST JOUST.     YOU ARE UP AGAINST SIR FREDERICKTHE FILTHY.":Бе9402XОЗ"  THIS IS YOUR SECOND JOUST.    YOUR FOE: LORD CLIVE THE CREEP.":Бе9402╡ШЗ"  YOU ARE DOING WELL! YOUR      THIRD BOUT IS AGAINST BARON    RUDOLPH THE RAT.":Бе94039вЗ"THIS IS YOUR FINAL TEST.  IF YOUWIN THIS TIME,THE PRINCESS IS   YOURS!  YOUR OPPONENT IS THE    DREADED, FIERCE, RED KNIGHT."3]мЗ"  YOU MAY HONOUR AIM AT THE:"3Б╢З"1) HELMENT":З"2) BREASTPLATE"3╛└З"3) UPPER LEFT OF SHIELD":▒ Б"4) UPPER RIGHT OF SHIELD"3∙╩З"5) LOWER LEFT OF SHIELD":З"6) LOWER RIGHT OF SHIELD"4╘З:Й"YOUR AIMING POINT (1-6)";B4-▐ЕB┤1▒B▓6з98043шЮ4XЄЗ"HOW WILL YOU DEFEND YOURSELF?"4П№З:З"1)LOWER HEAD AND CHARGE":З"1)SHIELD HELD HIGH"4┴З"3)SHIELD HELD LOW":З"4)LEAN TOWARD YOUR FOE4сЗ"5)LEAN AWAY FROM YOURFOE"5З:Й"WHAT 	S YOUR CHOICE";C:BN│BNл15$Е BN▓1з114050.R│ Д(м Я):R│ Д(5):Ю5T8И R Бе 1090,1100,1110,1120,11305ХBЗ:З" I WILL SEE TO YOUR HORSE AND ARMOUR;WAIT HERE.":Бе 11406LЗ:З" YE HAD BETTER REST HERE WHILE I SEE TO YOUR THING.THIS    KNIGHT MAY BE TOUGHER THAN YE   THINK!":Бе 11406zVЗ:З" YOU CAN'T FIGHT IN ARMOUR AS   BATTERED AS THAT!   'TIS A DIS-  GRACE!  WAIT WHILE I REPAIR IT.":Бе 11406°`З:З"  THE BIG BUFFOON HASN'T LEFT   HIS TENT YET. HE MUST BE SORE  AFRAID OF YE SIRE!  I'LL GO ANDFETCH THE LOUT.":Бе11407ДjЗ:З"  YE HAD BEST USE THIS MOMENT   TO STEEL YOURSELF FOR COMBAT,  MY LORD. YOUR FOE MAY BE AN    OAF,BUT I HEAR TELL HE CAN    FIGHT!"7ОtБж230OON HASN'T LEFT   HIS TENT YET. HE MUST BE SORE  AFRAID OF YE SIRE!  I'LL GO ANDFETCH THE LOUT.":Бе11407ДjЗ:м2,R$;QC$(PC,1);R$;QC$(PC,2);R$;QC$(PC,3);R$;QC$(PC,4);R$8L.Бж520:LC│LCл1:Р8c8Е  З(SR$)▓66 з10958m9Бж5108Э:З#м2,R$;"     ";R$;"     ";R$;" ";SR$;д81);8┴=З#м2,R$;S$;R$;S$;R$;S$;R$;S$;R$8╒BБж520:LC│LCл1:Р8чGА J│66е40 йм19Е  Р(SR$,J,1)│" " з10989
IЛJ9TJQL$│ О(SR$,J):QR$│ П(SR$,( З(SR$)мJ)):SR$│QL$:Бж1081:SR$│QR$:Бж1081:Р9djЕ LC│▓9з4989k~ЛY9~ИК::ГGOTO START9П╨:ГSTOP PRINT";SR$;д81);8┴=З#м2,R$;S$;R$;S$;R$;S$;R$;S$;R$8╒BБж520:LC│LCл1:Р8чGА J│66е40 йм19HЕ  Р(SR$,J,1)│" " зL, Л(128);:Л(9nА L│456е465:З@L, Л(128);:Л:З@466, Л(129);(ЕxЗ@424, Л(128)л Л(128);:АL│426е432:З@L, Л(136);:Л:З@433, Л(128)л Л(128);(┐ВЗ@392, Л(132)л Л(136);:З@400, Л(142)л Л(128)л Л(132);(╥МЗ@369, Л(142);(ЇЦЗ@424, Л(148);:З@457, Л(148);)аЗ@401, Л(145);:З@433, Л(145);)&кАT│1е1500:Л)@┤Ю:З@11,"**BEWARE**":З)№╛З"NONE MAY STEP UPON THE JOUSTING FIELD WHO HAVE NOT UTTERED THE  MAGIC INCANTATION. IF THOU HAST,THEN PRESS YE SPACEBAR ;IF THOU HAST NOT,ONLY THE RED    (BREAK) EY WILL SUFFICE.":З*w╚З"(IN OTHER WORDS,ENTER 'PCLEAR6'BEFORE RUNNING THIS GAME, OR THEGODS WILL CAUSE THE MACHINE TO SHUT DOWN ON THEE.)":З*И╥Е Т┤▓""з 210*Т▄Бе760*мцЕ BN▓1 з590:ДАP│1е5й2*╕Ё╚1,P:╝1*╥·U│136м8нP:Y$│STRS$(U)*ё
╞"S4;BM178,"лY$"3OR60D30"+
┬(208,U),30,0,2,.5+!
ИA Бе290,35╫0З:З" LOOK,  GO NORTH,  TAKE STATUE,":З" BREAK STATUE, HELP, INVENTORY,"5Ї:З" LOOK CABINET, ETC.":З63DЗ" IF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
Ї&
:ГLISTING #4&:Г&7:ГTHIS PROGRAM IS USED TO&T:ГMAKE A LOGICAL BACKUP &m:ГUSING ONLY DRIVE 0&t:Г&з
└ 1:Х 2000:М F$(72):DR│0  :ГDR IS DRIVE NUMBER&║N│1:А S│3 е 11&щ(▀ DR,17,S,A$,B$:A$│A$л О(B$,127):А J│0 е 7'(2F$(N)│ Р(A$,Jн32л1,16):Е  О(F$(N),1)│ Л(255) з N│Nм1:Бе 61'8<N│Nл1:Л J,S'V=:ГBUBBLE SORT CAN GO HERE'~FА M│1 е N:Е  О(F$(M),1)│ Л(0) з 100'нPW$│ О(F$(M),8)л"/"л Р(F$(M),9,3):З W$:▐ W$'ыZЕ M┤N з З:З"INSERT SOURCE DISKETTE AND":Й"PRESS ENTER";C$'єdЛ M28);:ЛY:K                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 4&dВ ** WIDGET **&n:Г&.xВ ** SCREEN **&@ВЮ: ╚ 4,1: ╝ 1&QМ┐ 1,0: ┴ 0,1&jЦ╗(0,180)м(250,180),╜&а╗(0,180)м(0,0),╜&Жк:Г&Ч┤В ** DRAW **&й╛А ARC │ 1 е 9&╟╚Н SAN,EAN,INC,R,XCEN,YCEN&▐╥PL │ INCо57.295779&Ё▄EAN │ EANмINC&№цБж 2000'Ё Л ARC'&·╞"BM10,148U32BU24BR30R160"'@
╞"BD32L50BL60BD48L50"'M
A$│"": П'm
A$│ Т: Е A$│"" з 270 :Д 130's
"К'z
#:Г'Л
+В ** DATA **'╕
,Ж 90,180,15,30,40,80,180,270,15,30,40,40'ч
6Ж 270,360,15,30,90,40,180,90,-15,30,150,40(
@Ж 270,450,15,20,200,90,0,360,15,10,40,80(>
JЖ 0,360,15,10,90,80,0,360,15,10,65,40(W
TЖ 0,360,15,10,200,90(v╞В ** CALCULATE AND PLOT **(О╨А N│SAN е EAN й INC(в┌ANG│Nо57.295779(╖фX│Rн Х(ANG)лXCEN(╒юY│180м(Rн Е(ANG)лYCEN)н.8(ю°XX│Rн Х(ANGлPL)лXCEN)YY│180м(Rн Е(ANGлPL)лYCEN)н.8)%╗(X,Y)м(XX,YY),╜)-Л N)3 Р),12,3,.9)R├(20лI,20),3,3)n
╗(8лI,10)м(32лI,30),╛,B)╜(20лI,16,2))ЖЛI)╢╗(32,10)м(22,20),╛:╗м(32,30),╛:├(24,20),1,1)■АS│1е22:F│ К( Р(Q$,S,1))л31:З@324лS, Л(F);:ЛS:Q$│"GSFE"лL$л"TDFSCP"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 E&Бе11000 &I│Iм1&?З@96, б(32, Л(163));:ЕI▓1зЗA$(Iм2)&U	ЗA$(Iм1):ЗA$(I):Р&Ь
З"LINE#"I" LINES"IH" ALLOWED"LM,MO$" mode   ^<ENTER>=COMMANDS",,:Р'7З@32,"tOP  bOTTOM  UP/DOWN ARROWS eDITiNSERT  dELETE  cOPY  mENU      ";:ЕFG│1зР:ДАJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("EIDCMTB"л Л(94)л Л(10),Z$):ЕZ│0з12:ДР'OI│1:Бж10:Бж12:Бж8:Р'jI│IHл1:Бж10:Бж12:Бж8:Р'yЕI▓1зI│Iм1'НБж10:Бж12:Бж8:Р'ЮЕI┤IH зI│Iл1'▓Бж10:Бж12:Бж8:Р( dMO$│" enter":Ю4:I│IHл1:Бж10:Бж8:╗ЙC$:Е О(C$,1)┤▓ Л(94)зЕA$(I)│""зA$(I)│A$(I)лC$::ДA$(I)│A$(I)л" "лC$:Д105(efIH│I:Е З(A$(I))▓CL Бж300:Е З(A$(Iл1))▓CL зI│Iл1:Бе102::Д100:Д100(oiI│Iм1(╧nЗ@480,"COMMAND ?";:Бж12:ИZ Бе200,250,400,500,1000:Z│Zм5:Ю3:FG│1:ИZ Бж14,16,18,20:FG│0:Бе110)╚MO$│"  edit":Ю5:Бж10:Бж8:╗Й"old phrase  ";A$:ЕA$│""▒A$│ Л(94)з220)Е╥F│ Ю(A$(I),A$):ЕF│0зЮ5:Бж10:Бж8:З"phrase not found":╗Й"old phrase  ";A$:ЕA$│""▒A$│ Л(94)з220:Д210          *╫╗Й"new phrase  ";B$:L1│ З(A$(I)):A│ З(A$):C$│ О(A$(I),Fм1):L2│ З(C$):L3│L1м(AлL2):Q$│ П(A$(I),L3):A$(I)│C$лB$лQ$:Бе200*]▄З@480,"command ?";:Бж230:ИZ Бе200,100,1000:Z│Zм3:Ю5:FG│1:ИZ Бж242,244,246,248:FG│0:Бе220*ўцЗ@32,"tOP  bOTTOM  UP/DOWN ARROWS     eDIT   cURRENT MESSAGE   mENU   ";:ЕFG│1зР:ДАJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("ECMTB"л Л(94)л Л(10),Z$):ЕZ│0з230:ДР+ЄI│1:Бж10:Бж230:Бж8:Р+,ЇI│IHл1:Бж10:Бж230:Бж8:Р+;ЎЕI▓1зI│Iм1+PўБж10:Бж230:Бж8:Р+a°ЕI┤IH зI│Iл1+v∙Бж10:Бж230:Бж8:Р+╗·MO$│"insert":Ю6:Бж10:Бж8:З"enter line":╗ЙC$:Е О(C$,1)│ Л(94)з260,( АJ│IH еI йм1:A│ Э(A$(J)):B│ Э(A$(Jл1)):АK│0е4:ТBлK, Ж(AлK):Л:Л:I│Iл1:IH│IHл1:A$(I)│C$:ЕCL┤ З(A$(I))Бж300,Е
З@480,"command ?";:Бж270:ИZ Бе250,100,1000:Z│Zм3:Ю5:FG│1:ИZ Бж282,284,286,288:FG│0:Бе260-
З@32,"tOP  bOTTOM  UP/DOWN ARROWS     iNSERT   cURRENT MESSAGE   mENU ";:ЕFG│1зР:ДАJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("ICMTB"л Л(94)л Л(10),Z$):ЕZ│0з270:ДР-8
I│1:Бж10:Бж270:Бж8:Р-U
I│IHл1:Бж10:Бж270:Бж8:Р -d
ЕI▓1зI│Iм1-y
Бж10:Бж270:Бж8:Р-Л
 ЕI┤IH зI│Iл1 -а
!Бж10:Бж270:Бж8:Р-┼
,АJ│I еIH:F1│0:Е З(A$(J))┤CL зЛ:Р.#
1F│ Ю(F1л1,A$(J)," "):ЕF┤CL ░F┤▓0зF1│F:Бе305:ДC$│ П(A$(J), З(A$(J))мF1):A$(J)│ О(A$(J),F1).h
6ЕJ┤IH ░A$(Jл1)┤▓""░ О(A$(Jл1),1)┤▓" "зA$(Jл1)│C$л" "лA$(Jл1):Л:Р.А
;ЕJ│IH зA$(Jл1)│C$:Р.▌
@АJ1│IH еI йм1:A│ Э(A$(J1)):B│ Э(A$(J1л1)):АK│0е4:ТBлK, Ж(AлK):Л:Л:IH│IHл1:A$(J1л1)│C$:Л /E
РMO$│"delete":Ю7:Бж10:Бж8:З"delete this line? Y/N  ":АJ│0е0:C$│ Т:J│(C$│""):Л:ЕC$│ Л(94)▒C$┤▓"Y"з410/Ф
ХАJ│I еIHм1:A│ Э(A$(Jл1)):B│ Э(A$(J)):АK│0е4:ТBлK, Ж(AлK):Л:Л:I│Iм1:IH│IHм1/ё
ЪЗ@480,"command ?";:Бж420:ИZ Бе400,100,1000:Z│Zм3:Ю5:FG│1:ИZ Бж442,444,446,448:FG│0:Бе4100Л
дЗ@32,"tOP  bOTTOM  UP/DOWN ARROWS     dELETE   cURRENT MESSAGE   mENU ";:ЕFG│1зР:ДАJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("DCMTB"л Л(94)л Л(10),Z$):ЕZ│0з420:ДР0д
║I│1:Бж10:Бж420:Бж8:Р0└
╝I│IHл1:Бж10:Бж420:Бж8:Р0╧
╛ЕI▓1зI│Iм10ф
┐Бж10:Бж420:Бж8:Р0ї
└ЕI┤IH зI│Iл11

┴Бж10:Бж420:Бж8:Р1w
ЇЮ8:Бж10:Бж540:Бж8:З"copy this line? Y?":АJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("YCMTB"л Л(94)л Л(10),Z$):ЕZ│0з5001▒
∙ИZ Бе510,100,1000:Z│Zм3:Ю8:ИZ Бж542,544,546,548:Бе5001╛
■C$│A$(I)22Ю8:Бж10:Бж540:Бж8:З"insert...  "C$:З"here? Y?":АJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("YCMTB"л Л(94)л Л(10),Z$):ЕZ│0з5152lИZ Бе525,100,1000:Z│Zм3:Ю8:ИZ Бж540,544,546,548:Бе5152╠
АJ│IH еI йм1:A│ Э(A$(J)):B│ Э(A$(Jл1)):АK│0е4:ТBлK, Ж(AлK):Л:Л:I│Iл1:IH│IHл1:A$(I)│C$:Бе5003З@32,"tOP  bOTTOM  UP/DOWN ARROWS              cURRENT MESSAGE   mENU ";:Р3%I│1:Р32 I│IHл1:Р3A"ЕI▓1зI│Iм13G#Р3X$ЕI┤IH зI│Iл13^%Р3╡XТ65494,0:BP│ Ж(150):BU│ Ю("61841  87      180", П( И(BP), З( И(BP))м1)):BU│4800оBU4*bЮ:З@73,"PRINT ROUTINES",,,"    CURRENT BAUD RATE ="BU,д6)"RESET BAUD RATE",,,"    PRINT TEXT",,,,"    MENU":CT│14ОgCT$│ П( И(CT),1):LP│ Ю("    1 2 3",CT$):LP│LPн32л2:З@LP,">";:АJ│0е0:Z$│ Т:J│(Z$│""):Л:З@LP," ";4їlЕZ$│ Л(10)░CT┤3зCT│CTл1:Бе615:ДЕZ$│ Л(94)░CT▓1зCT│CTм1:Бе615:ДЕZ$┤▓ Л(13)з615:ДИ CT Бе625,640,10005bqЗ" ";:Й"ENTER NEW BAUD RATE";BU$:BU$│ О(BU$,1):BL│ Ю("36124",BU$):ЕBL│0зЗ"baud rate error":а100,50:Бе6005еvBU(1)│180:BU(2)│87:BU(3)│41:BU(4)│18:BU(5)│6:Т150,BU(BL):Бе6006АЮ:З@194,"SET TOP OF SHEET AT PRINTER       HEAD AND PRESS ANY KEY":АJ│0е0:J│( Т│""):Л:LM│ Б(80оCL):АJ│1е5:З#м2," "6@КАI│1еIH:З#м2,дLM)A$(I):Л:Бе10006│ДЮ3:З@66,"  SAVE TO TAPE  ";:З@130,"  SAVE TO DISK  ";:З@194,"  LOAD FROM TAPE";:З@258,"  LOAD FROM DISK";:CT│17ЙCT$│ П( И(CT),1):LP│ Ю(" 1 2 3 4",CT$):LP│LPн32л2:З@LP,">";:АJ│0е0:Z$│ Т:J│(Z$│""):Л:З@LP," ";7АОЕZ$│ Л(10)░CT┤4зCT│CTл1:Бе905:ДЕZ$│ Л(94)░CT▓1зCT│CTм1:Бе905:ДЕZ$┤▓ Л(13)з905:ДИ CT Бе914,911,913,9127жПD│1:З@322,"FILE NAME";:ЙNA$:Бе9507╧РD│1:З@322,"FILE NAME";:ЙNA$:Бе920   7ЎСD│м1:З@322,"FILE NAME";:ЙNA$:Бе9208UТD│м1:З@322,"FILE NAME";:ЙNA$:З@386,"RUN PAST LEADER Y/N":ЙI$:ЕI$│"Y"зЯИ:АK│1е6000:Л::Бе9508_УБе9508rШЩ"I",D,NA$:I│08ОЭЕ  М(D) зЪD:IH│I:Бе10008йвI│Iл1:╗Й#D,A$(I):Бе9258·╢бИ:Щ"O",D,NA$:АI│1еIH:З#D,A$(I):Л:ЪD:ЕCT▓0░ D│м1зЯИ:АK│1е600:Л:Як:CT│0:Д10009ЕшЮ3:З@41,"COMMUNICATIONS";:З@73,"WORD PROCESSOR";:З@105," VERSION  1.0 ";:З@197,"nEW MESSAGE          ";:З@229,"cURRENT MESSAGE      ";:эЗ@261,"bULLETIN BOARD LIMITS";:З@293,"pRINT MESSAGE        ";:З@325,"sAVE/LOAD MESSAGE    ";:АJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("NCBPS",Z$):ЕZ│0з1000:9ЄИZ Бе1020,100,1050,600,900:Y№АI│1е50:A$(I)│"":Л:I│0:IH│0;Ю3:З@70,"BULLETIN BOARD LIMITS";:З@166,"cHARACTERS/LINE  "CL;:З@198,"lINES/MESSAGE    "LM;:З@230,"oK AS IS             ";:АJ│0е0:Z$│ Т:J│(Z$│""):Л:Z│ Ю("CLO",Z$):ИZ Бе1060,1070,1080;Бе1050;|$C$│"":З@184,"  ";:АK│0е1:АJ│0е0:Z$│ Т:J│(Z$│""):Л:З@184лK,Z$;:C$│C$лZ$:Л:CL│ Й(C$):Бе1050;┌.C$│"":З@216,"  ";:АK│0е1:АJ│0е0:Z$│ Т:J│(Z$│""):Л:З@216лK,Z$;:C$│C$лZ$:Л:LM│ Й(C$):Бе1050<Д8ЕIH│0з100:ДЕIH▓LM зЮ3:З@168,"CURRENT MESSAGE";:З@299," HAS MORE LINES ";:З@232,"THAN LIMIT SET.";:З@296," PRESS ANY KEY ";:З@328," TO  CONTINUE ";:АJ│0е0:J│( Т│""):Л<ШBI│1:Бж300:Бе100<к╨Х5000:МA$(50)<╞┌CL│64:LM│16:A│0:B│0:K│0<╤4Бе1000=	'бИ:Й"RUN PAST LEADER Y/N";I$:ЕI$│"Y"зЯИ:АX│1е6000:Л=6'АC│1е2:Ш"COMMWP":ЯИ:АX│1е600:Л:Л:Як:ГEND=D*°└1:Бе2000 IF YOUWIN THIS TIME,THE PRINCESS IS   YOURS!  YOUR OPPONENT IS THE    DREADED, FIERCE, RED KNIGHT."3]мЗ"  YOU MAY HONOUR AIM AT THE:"3Б╢З"1) HELMENT":З"2) BREASTPLATE"3╛└З"3) UP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0
<¤1Ч╛1Ч
EЖ-
i'Б,&┐1Ч0
 ЁЎ1ЪНPБ,'чБ'&

Б''
ЙН= єБ &┐1Ч
% ┐Б
&
Ж

*┐1Ч Б^&0┐1Ч
"Н бБ/'ї9╛1Ч40фЄ5Р╛1ЧчАс&┐1Ч94Ж?Ё5В░¤1Ь9OМЖ ╖1Ы4Нf'▒1Ы'ў╛1ЧБM'╛1ХБP'╛1ЬБW'
5ФНL'№ оД┐1Щ}1Ы'юНj╛1ЩБ+&Н&4№1Щ0Л┐1Щ5 щБ-'Б@'╒_ ╩Н4№1Щ@PВ ▀НЦ'6д1Щ1ЪН,Н&'╞=ЖXy1Ъy1ЩJ&Ў Б0%Б9/
БA%
БF"АД9Н4Б'├9 S&
Б/"Б№1Щ9WжА4╞=Н5ДЛРЙ@ НщНчЖ  4нЯа'·Н5Х4нЯа5Т0М№Ж
Н┌Ж
Н╓жАБ&°9фи╞№╟Н0НЯЭ ?0М√Н┘ RAINBUGА4Ж ╖1Ы0МьН┴Н╝ 2a■2aO_¤1ЩЖ#Нв ]0Н■ВБ/'ЙНГ0НЖсД'0J&ў ░0
ьДнЛ ╦н ▓BЄCЁDюETGщLчM¤ш@тOP▌R█S┘T╫V╒W■\X* 
 0
40гфэф0
бф& юф3_яД  (5ЦnЯ ■
Оoт_0НH 
Б[&Жзф■ЎБ
'mД' &бБ&Ўы ы0НMШД`кфзф─ЯmД' 
сБ&Ўцъфчф0ф■╗■╙5ДABDH
H
H
H,-	-
SpY0UPX++
PАCR] ДИЙЖЕЛАБВГВМГНЯ99999999999 1Ю:Т1183,DB)/▄CI$│ Т:Е CI$│"" з 220)Dца234,1:C│ Й(CI$))ЖЁЕ C│0 з З"          CAN'T BE ZERO":а7,7:А LO│1 е 100:Л:Бе 210)╩ЄЕ C▓5 з З"      YOU MUST BE KIDDING!!!":а7,7:А LO│1е100:Л:Бе210)╓·C│900оC)с
Бж 330)ш
Ю0*
З@32,"   PRESS SPA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ╦@╜й(0Н
u
+
2Б6$яБ0#ызНм╜й(0Н
Щ
жНЮ╖+
Б0'Ж1зНУ╜й(0Н
╕ЇжНЕ╖+Ї1Н
╚є╜й(╞@чНnжНfА0ОJ'0Й ў1Н
└oНS╞@ЖАчаJ&√1Н
п╞
чН=XчН9жАцН7┴0'
C╦lН)цН%┴`'-┴@"т'┴ "▄' ╪╞чН
XчН1Н
m ╟╞чН
∙╞рчН
Ї ь1Н
YoН
щЖАца┴@'lН
▌J&є1Н
<НT1Н
<жаБ@'jН
╞╜в┐mН
┐&эЖ╜в┐Ж
╜в┐jН
│& SЖ╜в┐Ж
╜в┐0Н
ЙННБY'■╬9жА'╜г
 ў9╜б┴'√9жа'╜в┐ ў9H$цдыН
mчдH$цдыН
cчд9oН
] т1!lН
TцН
P┴&я9


         *PMODE 4 PRINT*



START PAGE NUMBER (1 TO 5)?


START PAGE=


BACKGROUND (0 OR 1)?
0=BLACK
1=BUFF OR GREEN

BACKGROUND=


READY PRINTER...
A8
F885
08
    ╡╡╡╡╡╡╡╡╡╡╡╡╡╡╡11╡111╡111▒11▒511▒511╡511▒111╡511▒1!1╡1111▒111▒110▒╡11▒111▒ ннннннннннннннннннннннннннннннннннннннннннннннннн

REPEAT (Y OR N)?
 @+
PАCR] ДИЙЖЕЛАБВГВМГНЯ999                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &$
:Г****************************&F:ГCOLOR COMPUTER CHEAP TALKER&Z:ГJOHN R. KELTY&}(:Г1440 N 61ST LINCOLN,NE 68505&Ч2:Г(402)467-3298  HOME&▒<:Г(402)472-2793  WORK&─F:ГFEB 23, 1983&чP:Г****************************&юZ:Г'dМ Z(200):A│65344:Ю'#nIN│0::ГINITIAL INFLECTION'9x:ГSET UP 6821 PIA'|В:ГPORT A, PA0-PA5, PHONEME 6-BIT CODE TO SYNTHESIZER (OUTPUTS)'йМ:ГPORT A,PA6 AND PA7 ARE INFLECTION BITS'╨Ц:ГI1 AND I2 RESPECTIVELY (OUTPUTS)'ъаТAл1,0:ТA,255:ТAл1,52(
к:ГTHE 6821 CONTROL REGISTER(*┤:Г(FOR PORT A) BIT 7 IS SET(E╛:ГBY A HIGH TO LOW CA1(g╚:ГTRANSITION.  THIS GIVES THE(И╥:ГPROPER HANDSHAKE LOGIC FOR(Ю▄:ГTHE A/R SIGNAL.(ец:Г(╘Ё:ГENABLE CC SOUND MUX INPUT FROM CARTRIDGE(ў·Т65281,180:Т65283,61:Т65315,60)
:Г***************************)2
:ГSEND STOP PHONEME )A
P│63:Бж600)b
"З:З"PHONEME STRING TALKER":З)М
,:ГDATA FOR SIGN-ON MESSAGE AND ABC'S.)╠
6:ГMESSAGE IS "HELLO, I AM THE COLOR COMPUTER CHEAP TALKER."*
@Ж 27,47,24,52,53,55,62,62,21,0,9,47,0,12,12,56,60,60*
JЖ 25,25,21,24,58*A
TЖ 25,25,50,49,12,37,34,54,55,42,58*M
^:ГABC'S*y
hЖ 42,16,60,60,37,3,42,61,25,58,62,62,62*╗
rЖ 6,33,41,14,60,41,31,60,41,30,60,41,60,41,2,1,29,30,26,60,41*Ў
|Ж 6,33,41,42,16,21,0,9,41,30,26,0,6,33,41,25,0,6,33,41+
ЖЖ 2,0,35,24,2,1,12,2,1,13,52,53,55,3+V
РЖ 37,60,41,62,25,34,54,55,55,21,49,58,2,1,31,42,60+М
ЪЖ 33,41,34,54,55,55,15,60,33,41,30,50,14,35,24,34+╗
дЖ 54,54,2,1,25,31,31,45,21,0,9,41,18,60,41+т
оЖ 63,63,63,63,63,63,63,63,63,63,63,
╕:Г***************************,
┬:ГUSED ONLY FOR SIGNON,6
╠А N│1е150:НZ(N):ЛN,@
╓N│Nм1,X
рАI│1еN:P│Z(I):Бж600,_
ъЛI,Б
Ї:Г***************************,Я
■:ГMAIN LOOP AND ROUTINE  ,┌:ГSILENCE TALKER,GET NEW OR REPEAT OLD PHONEME STRING,-
:ГTHEN OUTPUT PHONEME CODES TO SYNTHESIZER.-P│63:Бж600-$&Бж 660-<0АI│1еN:P│Z(I):Бж600-I:ЛI:Бе540-kD:Г***************************-ЕN:ГTALK OUTPUT ROUTINE-┬XТA,P::ГPLACE 6-BIT PHONEME CODE AND INFLECTION ON PORT A-┘bТAл1,52::ГSTB HIGH-яlТAл1,60::ГSTB LOW.vV│ Ж(A)::ГDUMMY READ TO RESET CA1.KАЕ ( Ж(Aл1)░128)зР:Д640:ГRETURN WHEN A/R GOES HIGH.mК:Г***************************.ЗФ:ГLOAD PHONEME STRING.пЮЗ:З"PRESS @ KEY TO PLAY OLD STRING".╓иЗ"OR INPUT NEW STRING XX,XX, ETC.".с▓AN$│"".Ў╝A$│ Т:ЕA$│""з700. ╞ЗA$;/╨AN$│AN$лA$/┌ЕA$│"@"зР/4фЕA$│ Л(13)з750:Д700/Hю:ГDECODE STRING/a°ST│1:I│1:P$│"":A$│""/Щ:ГP$=NEXT PHONEME WHEN DONE AND IS MADE UP USING A$/█:ГAN$=ENTIRE STATEMENT INCLUDING DELIMITERS (SPACE OR COMMAS)/шP$│P$лA$/№ A$│ Р(AN$,ST,1)0)*:ГST IS COUNTER USED TO STEP THROUGH AN$054ST│STл10d>Е A$│ Л(44)▒A$│ Л(32)▒A$│ Л(13)зБж890:Д7900xHЕ A$│ Л(13)з8700ВRA$│""0Н\Бе 7900ЩfN│Iм1:Р0╗p:Г***************************0╧z:ГPHONEME CODES0сДЕP$│"EH3"зP│00єОЕP$│"EH2"зP│11ШЕP$│"EH1"зP│21вЕP$│"PA0"зP│31(мЕP$│"DT"зP│419╢ЕP$│"A2"зP│51J└ЕP$│"A1"зP│61[╩ЕP$│"ZH"зP│71m╘ЕP$│"AH2"зP│81~▐ЕP$│"I3"зP│91РшЕP$│"I2"зP│101вЄЕP$│"I1"зP│111│№ЕP$│"M"зP│121─ЕP$│"N"зP│131╒ЕP$│"B"зP│141цЕP$│"V"зP│151°$ЕP$│"CH"зP│162
.ЕP$│"SH"зP│1728ЕP$│"Z"зP│182.BЕP$│"AW1"зP│192@LЕP$│"NG"зP│202SVЕP$│"AH1"зP│212f`ЕP$│"OO1"зP│222xjЕP$│"OO"зP│232ЙtЕP$│"L"зP│242Ъ~ЕP$│"K"зP│252лИЕP$│"J"зP│262╝ТЕP$│"H"зP│272═ЬЕP$│"G"зP│282▐жЕP$│"F"зP│292я░ЕP$│"D"зP│303║ЕP$│"S"зP│313─ЕP$│"A"зP│323#╬ЕP$│"AY"зP│3335╪ЕP$│"Y1"зP│343HтЕP$│"UH3"зP│353ZьЕP$│"AH"зP│363kЎЕP$│"P"зP│373|ЕP$│"O"зP│383Н
ЕP$│"I"зP│393ЮЕP$│"U"зP│403пЕP$│"Y"зP│413└(ЕP$│"T"зP│423╤2ЕP$│"R"зP│433т<ЕP$│"E"зP│443єFЕP$│"W"зP│454PЕP$│"AE"зP│464ZЕP$│"AE1"зP│474+dЕP$│"AW2"зP│484>nЕP$│"UH2"зP│494QxЕP$│"UH1"зP│504cВЕP$│"UH"зP│514uМЕP$│"O2"зP│524ЗЦЕP$│"O1"зP│534ЩаЕP$│"IU"зP│544лкЕP$│"U1"зP│554╛┤ЕP$│"THV"зP│564╨╛ЕP$│"TH"зP│574т╚ЕP$│"ER"зP│584Ї╥ЕP$│"EH"зP│595▄ЕP$│"E1"зP│605цЕP$│"AW"зP│615+ЁЕP$│"PA1"зP│625?·ЕP$│"STOP"зP│635MZ(I)│PлIN5n:Г**************************5Я:ГINFLECTION BITS ARE ADDED TO PHONEME CODES5▓"ЕP$│"IN0"зIN│05╞,ЕP$│"IN1"зIN│645█6ЕP$│"IN2"зIN│1285Ё@ЕP$│"IN3"зIN│1925·JI│Iл16TP$│""6
^РЗ"     YOU ARE WILLING TO GO."67╡Бж 80906Z║З"     AND, YOU CAN HAVE SOME"6f┐Бж 81006Й─З"     FUN DOING IT WHILE YOU"6Х╔Бж 81106╡╬З"     CHART YOUR PROGRESS.6┴╙Бж 81206▄╪З"          <ANY KEY>"6ш▌Бж 81306Ї▐Бж 81407тБж 815