-╛&' :ГCOPYRIGHT (C) T&D SOFTWARE 1984&2Бе 970&CТ359,57:┐0,1&╦(Ю:З@73,"*** menu ***":З@132,"1. DISCLAIMER":З@164,"2. LOADING INSTRUCTIONS":З@196,"3. PMODES AND PCLEARS":З@228,"4. *** ERRORS ***"'E2З@260,"5. SUBMISSION INFORMATION":З@292,"6. PRICE INFORMATION":З@324,"7. CHATTER!":З@356,"8. END":З@422,"ENTER (1-8)"'zМЮ:З@5,"submission information":З@64," T & D SOFTWARE PRODUCES 70% OF ITS PROGRAMS 'IN HOUSE' OR FROM AUTHORS LOCATED IN HOL- LAND MICHIGAN. THEREFORE, ONLY ONE TO FIVE PROGRAMS ARE PURCHASED EACH MONTH FROM OUT-"*╖ЦЗ" SIDERS.":З" WE PREFER TO OFFER SUBSCRIP- TIONS INSTEAD OF MONEY BUT WE SOMETIMES OFFER MONEY AS WELL.":Бж660+mаЮ:З@33,"procedure:":З" SIMPLY SEND YOUR PROGRAMS IN (ON DISKETTE OR CASSETTE) ALONG WITH INSTRUCTIONS. WE WILL TRY TO DECIDE IF WE CAN USE THEM WITHIN FIVE WORKING DAYS.",DкЗ@224," IF WE CAN USE THE PROGRAM(S) WE WILL MAKE YOU AN OFFER. IF WE CANNOT USE THE PROGRAM WE WILL SEND YOU THE TAPE OR DISKETTE BACK ALONG WITH A SHORT EXPLA- NATION OF WHY WE COULD NOT USE IT.":Бж660,┘┤Ю:З@32," program suggestions:":З@96," WE USUALLY NEED HELP WITH ADVENTURES, HOME FINANCE, AND UTILITIES. GAMES ARE ALSO WELCOMED."-\╛З@256," WE PREFER PROGRAMS WHICH ARE COMPLETE, BUG FREE, HUMEROUS, AND WORK WITH A 16K EXTENDED COLOR COMPUTER.":Бж660-Ё╚Ю:З@32," we need your programs":З@128," YOU PROBALBLY HAVE A BUNCH OF PROGRAMS COLLECTING DUST SOME- WHERE. WE WOULD LOVE TO SEE THEM%!".[╥З" WHO KNOWS? IT MIGHT BE WORTH A LOT MORE THAN THE $.37 IT WILL COST TO SEND THEM.":Бж680:Бе40.v▄:ГLOADING INSTRUCTIONS/SцЮ:З@6,"loading instructions":З@96," AFTER REWINDING THE CASSETTE TAPE, YOU SHOULD ZERO YOUR TAPE COUNTER. TAPE COUNTER LOCA- TIONS FOR THE PROGRAMS ARE GIVEN FOR TWO POPULAR RADIO SHACK TAPE PLAYERS:"/╣ЁЗ" THE OLDER (BLACK) TAPE RECORDER - CTR-80A AND THE NEWER (GREY) TAPE RECORDER - CCR-81.":Бж6600Ю·Ю:З@6,"loading instructions";:З@32," WE USE A 60 MINUTE TAPE WHICH ALLOWS US TO PUT EACH PROGRAM ON THREE TIMES AND SOMETIMES EVAN FOUR. IF THE FIRST COPY WILL NOT LOAD BECAUSE OF AN ?IO ERROR, TRY THE OTHERS."1АЗ" PLEASE ASSUME THAT EACH PROGRAM IS WRITTEN IN BASIC UNLESS WE TELL YOU OTHERWISE. SIMPLY FASTFORWARD TO THE DESIRED PROGRAM AND ENTER CLOAD, OR CLOADM IF IT IS A MACHINE LAN- GUAGE PROGRAM.":Бж660:Бе401С:Г IO ERRORS1кЮ:З@12,"?io errors":1╖":ГERRORS1╥,Ю:З@8,"*** errors ***"2E6З@64," WE WOULD LIKE TO COVER SOME OF THE ERRORS WHICH MIGHT OCCUR WHEN LOADING/RUNNING OUR PRO- GRAMS."2ї@З@200,"1. ?FC ERROR":З@232,"2. ?FM ERROR":З@264,"3. ?IO ERROR":З@296,"4. ?OM ERROR":З@328,"5. ?OS ERROR":З@360,"6. ?SN ERROR":З@392,"7. RETURN TO MENU":З@456,"ENTER (1-7)"3JI$│ Т:Е I$│""з330 :Д3403NTI│ Й(I$):ЕI┤1▒I▓7з330:Д И I Бе350,370,390,430,450,470,404<^Ю:З@7," *** fc error ***":З@96," THE ILLEGAL FUNCTION CALL WILL HAPPEN WHEN YOU USE AN OUT OF RANGE number WITH A basic WORD. FOR EXAMPLE - PMODE 5. THIS MIGHT ALSO HAPPEN WHEN YOU TRY TO PMODE MORE THAN YOU PCLEAR."4КhЗ" PLEASE REFER TO THE PMODES AND PCLEARS IN THE MAIN MENU.":Бж680:Бе2905/rЮ:З@7,"*** fm errors ***":З@96," BAD fILE mODE ERRORS WILL OCCUR WHEN YOU TRY TO cload A MACHINE LANGUAGE PROGRAM OR WHEN YOU TRY TO cloadm A BASIC PROGRAM."5╧|З:З" THIS ERROR WILL ALSO OCCUR WHEN YOU TRY TO INPUT DATA FROM A FILE OPEN FOR OUTPUT(O), OR PRINT DATA INTO A FILE OPEN FOR INPUT(I).":Бж680:Бе2906нЖЮ:З@7,"*** io errors ***":З@64," iNPUT/oUTPUT ERRORS ARE OFTEN CAUSED BY TRYING TO LOAD A PROGRAM FROM A BAD RECORDING OR TAPE. THEY WILL ALSO OCCUR IF YOU TRY TO LOAD A PROGRAM MID- WAY THRU THE RECORDING."7sРЗ" WE RECOMMEND THAT YOU USE THE audio on COMMAND BEFORE YOU ATEMPT TO LOAD A QUESTIONABLE PROGRAM. LISTENING TO THE PROGRAM LOAD MIGHT HELP IN DIAGNOSING THE PROBLEM.":Бж6608OЪЮ:З@6,"*** io errors ***":З@64," SOMETIMES IT HELPS TO CHANGE THE VOLUME OF YOUR TAPE PLAYER WHEN TRYING TO LOAD A PROGRAM. PLEASE REMEMBER THAT THERE ARE AT LEAST THREE COPIES OF EACH PROGRAM ON EACH TAPE."9)дЗ" IF YOU CANNOT GET ANY COPIES OF ANY PROGRAM(S) TO LOAD, YOU CAN SEND THE FAULTY TAPE BACK TO US FOR A PROMPT REPLACEMENT. PLEASE INCLUDE AN EXPLANATION OF WHY YOU ARE RETURNING THE TAPE.":Бж680:Бе290:оЮ:З@7,"*** om errors ***":З@32," oUT OF mEMORY ERRORS OCCUR WHEN ALL AVAILABLE MEMORY HAS BEEN USED OR RESERVED. IT MIGHT MEAN THAT YOU HAVE RESERVED TOO MUCH MEMORY FOR GRAPHICS SUCH AS PCLEAR4 OR STRING SPACE SUCH AS CLEAR 4000.:■╕З" TO AVOID FRUSTRATING ?OM ERRORS, WE RECOMMEND THAT 16K USERS TURN THE COMPUTER OFF AND ON, THEN ENTER THE PCLEAR STATEMENT BEFORE LOADING IN A PROGRAM WHICH PCLEAR VALUE IS LESS THAN 4.":Бж680:Бе290;Ф┬Ю:З@6,"*** os errors ***":З@96," oUT OF sTRING SPACE ERRORS CAN OCCUR WHEN YOUR STRING OPERA- TIONS REQUIRE MORE MEMORY THAN YOU ALLOW THEM."<╠З:З" MAKING THE CLEAR STATEMENT LARGER WILL HELP YOU CREATE MORE MEMORY FOR YOUR STRING SPACE.":Бж680:Бе290<Ў╓Ю:З@6,"*** sn errors ***":З@96," sYnTAX ERRORS RESULT FROM A LOT OF THINGS INCLUDING MISPELLED COMMANDS OR ILLEGAL CHARACTERS. SOMETIMES THE COMPUTER WILL TELL YOU THERE IS A ?SN ERROR IN A LINE YOU KNOW IS CORRECT."=АрЗ" USUALLY YOU CAN RUN THE PRO- GRAM AGAIN AND IT WORKS FINE. SOMETIMES IT HELPS IF YOU RE- TYPE THE ENTIRE LINE.":Бж680:Бе290=Шъ:ГPRICE INFORMATION>RЇЮ:З@7,"price information":З@64," OUR PRICES HAVE NEVER GONE UP!":З@299,"SEND TO:":З@328,"T & D SOFTWARE":З@360,"P.O. BOX 256-C":З@391,"HOLLAND MI 49423" :З@422,"TEL. (616) 396-7577">╓■З@134,"1 YEAR ****** $55.00":З@166,"6 MO'S ****** $30.00":З@198,"SINGLE IS. ** $ 6.00":A│159:З@483,"press any key to continue";?АV│101е122:З@V, Л(Aм12);:ЛV:З@154, Л(A):З@186, Л(A):З@218, Л(A):АV│250е229 йм1:З@V, Л(Aм3);:ЛV:З@197, Л(A);:З@165, Л(A);:З@133, Л(A);:A│Aл16:I$│ Т:ЕI$│""з530 :Д 550?ЮЕA▓255 зA│159:Бе520 :Д 520?иБж660@e&S$│ Л(128):Ю(3):З@7,"computer cassettes";:З@69,"*** 5 screw shell ***";:З@101,"*** free labels ***";:З@133,"** error free tape **";:З@165,"* immediate shipping*";:З@235,"item price";@р0З@267,"c-10 .59";:З@299,"c-20 .69";:З@331,"c-60 .85";:З@363,"c-90 .99";:З@395,"case .18";:З@425,"shipping $3.00";@я:Бж680:Бе40AD:ГPMODE + PCLEARSAщNЮ:З@8,"pmodes + pclears":З@64," THE NORMAL MEMORY AREA IS LARGE ENOUGH FOR TEXT (LETTERS AND NUMBERS) BUT NOT FOR GRA- PHICS (CIRCLES, LINES, ETC.). THE COLOR COMPUTER MAKES IT POSSIBLE TO SET ASIDE ROOM FOR"BЯXЗ" GRAPHICS WITH THE pmode AND pclear COMMANDS. GENERALLY, THE HIGHER THE pmode VALUE, THE MORE DISTINCT THE GRAPHICS AND THE MORE MEMORY IS RE- QUIRED.":Бж660CВbЮ:З@8,"pmodes and pclears":З@64," WHEN YOU FIRST FIRE UP THE COLOR COMPUTER, THE PCLEAR VALUE IS 4. THEREFORE, ANY PROGRAM OF OURS THAT HAS A PCLEAR VALUE OF 4 SHOULD LOAD AND RUN WITH NO DIFFICULTY "DlЗ" WITH RESPECT TO pmodes AND pclears.":З" THE PROGRAMS THAT MIGHT CAUSE YOU PROBLEMS ARE THOSE WITH pclear VALUES OF LESS THAN 4.":Бж660D╩vЮ:З@8,"pmodes and pclears":З@64," IF YOU HAVE ANY DOUBTS ABOUT WHETHER OR NOT A PROGRAM WILL LOAD OR RUN SUCCESSFULLY WE RECOMMEND THE FOLLOWING PRO- CEDURE:"EБАЗ" (1) TURN YOUR COMPUTER OFF AND ON.":З" (2) ENTER DIRECTLY FROM THE KEYBOARD THE pclear VALUE FOL- LOWED BY THE pmode VALUE.":З" (3) LOAD AND RUN THE PROGRAM.":Бж680:Бе40EТКТ359,126:Ю:КE╣ФЗ@483,"press any key to continue";E╒ЮI$│ Т:Е I$│""з 670 :Д РFиЗ@484,"press";:З@490,"any";:З@494,"key";:З@498,"to";:З@501,"return";F:▓I$│ Т:Е I$│""з 690 :Д РFH╝:ГCHATTERFN╞ЮG ╨З@8,"*** chatter ***":З@64," IF YOU HAVE ANYTHING TO SELL, (NON COMERCIAL), TRADE OR ANNOUNCE OR IF YOU JUST WISH TO SAY 'HI' TO SOMEONE THAN WE WOULD LIKE TO HEAR ABOUT IT."GЇ┌З" IT WON'T COST YOU ANYTHING BUT ALL THAT WE ASK IS THAT YOU SUBMIT YOUR 'CHATTER' BY THE 30TH OF THE MONTH PRIOR TO THE NEXT ISSUE. FOR EXAMPLE: IF YOUR CHATTER ARRIVES BY THE 30TH OF JANUARY, WE CAN GET IT"HфЗ" INTO OUR FEBUARY EDITION.";:Бж660H$:ГIБж960:З@96," 1. for sale - RADIO SHACK DIRECT CONNECT MODEM 1. MODI- FIED FOR AUTO ANSWER/AUTO DIAL WHEN USED WITH A COLOR COMP- UTER. CAN ALSO BE USED AS A STANDARD MODEM. INCLUDES MAN- UAL. $60 OR MAKE OFFER."IwЗ:З" ROLAND DE GRAAF 147 W 14TH STREET HOLLAND, MI 49423":Бж660J8Бж960:З@96," 2. for sale - HEATHKIT OSCILL- OSCOPE. BANDWIDTH: DC-5 MHZ. INPUT SENSITIVITY: 100 MV. AUTO-TRIGGERING SWEEP SYSTEM. INCLUDES MANUALS. AS-IS. $50 OR MAKE OFFER."JбЗ:З" ROLAND DE GRAAF 147 W 14TH STREET HOLLAND, MI 49423":Бж660KL Бж960:З@96," 3. harness helper HANDICAPPING SYSTEM. NOVICE OR EXPERT, YOU'LL APPRECIATE THE RESULTS. REQUIRES 32K EXT. BASIC. TO ORDER, SEND $24.95 TO:":ЗK┤З" S&P ENTERPRISES P O BOX 1295 LOCKPORT, NY 14094":Бж660L[Бж960:З@96," 4. wanted to buy - USED WORD PROCESSING QUALITY PRINTER OR GOOD QUALITY DOT MATRIX PRINT- ER. MUST HAVE AT LEAST 80 COLUMNS PER LINE. ":ЗL╗З" ROLAND DE GRAAF 147 W 14TH STREET HOLLAND, MI 49423"L┼Бж660M& Бж960:З@96," 5. wanted : ISSUES OF COLOR COMPUTER NEWS BEFORE MAY 1983. STATE PRICE.":ЗMЗ"З" W L JORDAN 10 N. MORLEY STREET BALTIMORE, MD 21229"MС$Бж660M▌fЮ:З@0," $$$ BULK DISKETTES $$$":З:З" quant price shipping"NвpЗ" 1-15 $1.60 $1.75 16-35 1.50 2.00 36-75 1.45 2.25 76-199 1.40 3.00 200-499 1.35 3.75 500-? 1.25 5.00"N╚zЗ" ADD $.10 EA FOR BLANK SLEEVES"O4ДЗ:Зд4)"T & D COMPUTER PRODUCTS":Зд8)"P.O. BOX 256-C":Зд7)"HOLLAND MI 49423":Зд8)"(616) 396-7577";:Бж660O|ОЮ:З" $$$ quality cassettes $$$":З:З" QUANTITY 1-29 30-59 60-?"PAШЗ:З" C-10 $.55 $.50 $.45 C-20 .65 .60 .55 C-60 .80 .75 .70 C-90 .90 .85 .80 CASES .18 .16 .15 SHIPPING 2.00 3.00 4.00"PлвЗд4)"T & D COMPUTER PRODUCTS":Зд8)"P.O. BOX 256-C":Зд7)"HOLLAND MI 49423":Зд8)"(616) 396-7577";:Бж680P▒мЮP╗╢Бе 40P┘└Ю:З@8,"*** chatter ***":РPш╩╚0:└1:Бе30IК/@ ~1~А~oНОoНЛoНЕжНБ╞ =уН{├жДБ@%А@╞=0НЭ0Л1Нc╞жАзаZ&∙жНS╞└=эНVжНH╞└=уНK├`╙║OцН70Л╞1Н0жакДзД0И Z&ЇжНLзНБ &ПoНжН LзНБ& |9 @Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " ╨Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є Є                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                A&'В COPYRIGHT (C) T&D SOFTWARE 1985&6 ╚0:Бе60000&nХ4000:NK│38:NC│7:М KW$(NK),CN$(NC,1):╔"V31L100T150"&зАI│1 е NK:Н KW$(I):Л:АI│1 е NC:Н CN$(I,0),CN$(I,1):Л&▐(Ю:З:Зд12)"sigmund":Зд4)"artificial intelligence":З'3)З" WELCOME TO SIGMUND, A PROGRAM WHICH YOU CAN HAVE A CONVERSA- TION WITH.":З'z*З" TO TALK TO SIGMUND, TYPE YOUR RESPONSES AT THE '>' PROMPT.":З'╛dP$│" GOOD DAY. I AM SIGMUND, YOUR COCO PSYCHIATRIST.":Бж8000'уn╗Й">";I$:ЕI$│"" з170 :ДI$│" "лI$(oC$│"":АI│1 е  З(I$):Z$│ Р(I$,I,1):ЕZ$┤▓"'" зC$│C$лZ$("pЛ(VxF│0:АI│1 е NK:PT│ Ю(C$,KW$(I)):Е PT зF│I:I│1000(gВЛ:Е F│0 з170) МИ F Бе200,210,220,220,230,240,250,260,270,280,290,290,300,310,320,320,320,320,320,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460,470,470,470,470)+кИ  Д(5) Бе171,172,173,174,175)[лP$│"PLEASE BE MORE ELABORATE.":Бж8000:Бе110)wмP$│"WHAT?":Бж8000:Бе110)┤нP$│"SORRY, BUT I JUST DON'T UNDER- STAND.":Бж8000:Бе110)фоP$│"COULD YOU RE-PHRASE THAT?":Бж8000:Бе110*$пP$│"DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?":Бж8000:Бе110*у╚Е  Д(2)│1 зA$│"DON'T YOU THINK I CAN ":Бж7000:P$│P$л"?":Бж8000:Бе110 :ДЕ Д(2)│1 зA$│"DOES IT MATTER IF I CAN ":Бж7000:P$│P$л"?":Бж8000:Бе110 :ДA$│"CAN you ":Бж7000:P$│P$л"?":Бж8000:Бе110*¤╥И  Д(3) Бе211,212,213+;╙A$│"DO YOU REALLY WANT TO ":Бж7000:P$│P$л"?":Бж8000:Бе110+В╘P$│"IF YOU PUT YOUR MIND TO IT, YOU CAN DO ANYTHING.":Бж8000:Бе110+╜╒A$│"WHY DO YOU WANT TO ":Бж7000:P$│P$л"?":Бж8000:Бе110+╫▄И  Д(3) Бе221,222,223,▌A$│"WHAT MAKES YOU THINK I AM ":Бж7000:P$│P$л"?":Бж8000:Бе110,a▐A$│"DO YOU REALLY BELIEVE THAT I AM ":Бж7000:P$│P$л"?":Бж8000:Бе110,д▀A$│"MAYBE YOU WOULD LIKE TO BE ":Бж7000:P$│P$л"?":Бж8000:Бе110,╛цИ  Д(3) Бе231,232,233,ЇчA$│"WHY DON'T YOU ":Бж7000:P$│P$л"?":Бж8000:Бе110--шA$│"DON'T YOU REALLY ":Бж7000:P$│P$л"?":Бж8000:Бе110-YщP$│"DOES THAT BOTHER YOU?":Бж8000:Бе110-wЁИ  Д(4) Бе241,242,243,244-│ёP$│"PLEASE ELABORATE ON YOUR FEEL- INGS.":Бж8000:Бе110-ЁЄA$│"DO YOU ENJOY FEELING ":Бж7000:P$│P$л"?":Бж8000:Бе110..єA$│"HOW OFTEN DO YOU FEEL ":Бж7000:P$│P$л"?":Бж8000:Бе110.aЇP$│"DO YOU REALLY FEEL THAT WAY?":Бж8000:Бе110.{·И  Д(3) Бе251,252,253.о√A$│"MAYBE SOMEDAY I WILL ":Бж7000:Бж8000:Бе110.ш№A$│"DO YOU WANT ME TO ":Бж7000:P$│P$л"?":Бж8000:Бе110/¤A$│"WHY SHOULD I ":Бж7000:P$│P$л"?":Бж8000:Бе110/3И  Д(2) Бе261,262/uA$│"DO YOU WANT TO BE ABLE TO ":Бж7000:P$│P$л"?":Бж8000:Бе110/лA$│"WHY CAN'T YOU ":Бж7000:P$│P$л"?":Бж8000:Бе110/┴И  Д(2) Бе271,2720A$│"WOULD YOU LIKE ME TO BE ":Бж7000:P$│P$л"?":Бж8000:Бе1100EA$│"PERHAPS IN YOUR DREAMS I AM ":Бж7000:P$│P$л"?":Бж8000:Бе1100_И  Д(3) Бе281,282,2830ЮA$│"ARE YOU SURE YOU CAN'T ":Бж7000:P$│P$л"?":Бж8000:Бе1100щA$│"HOW MANY TIMES HAVE YOU TRIED TO ":Бж7000:P$│P$л"?":Бж8000:Бе11019A$│"PERHAPS SOMEDAY YOU WILL BE ABLE TO ":Бж7000:P$│P$л"?":Бж8000:Бе1101W"И  Д(4) Бе291,292,293,2941Ц#A$│"HOW LONG HAVE YOU BEEN ":Бж7000:P$│P$л"?":Бж8000:Бе1101т$A$│"DID YOU COME TO ME BECAUSE YOU ARE ":Бж7000:P$│P$л"?":Бж8000:Бе1102%A$│"DO YOU ENJOY BEING ":Бж7000:P$│P$л"?":Бж8000:Бе1102e&A$│"DO YOU THINK IT'S NORMAL TO BE ":Бж7000:P$│P$л"?":Бж8000:Бе1102{,И  Д(2) Бе301,3022╡-P$│"WE'RE TALKING ABOUT YOU - NOT ME.":Бж8000:Бе1102°.P$│"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?":Бж8000:Бе11036И  Д(3) Бе311,312,3133J7A$│"WHY DO YOU WANT ":Бж7000:P$│P$л"?":Бж8000:Бе1103З8A$│"WHAT IF YOU SOON GOT ":Бж7000:P$│P$л"?":Бж8000:Бе1103┼9A$│"WHAT IF YOU NEVER GOT ":Бж7000:P$│P$л"?":Бж8000:Бе1103у@И  Д(4) Бе321,322,323,3244AP$│"DOES THAT QUESTION INTEREST YOU?":Бж8000:Бе1104QBP$│"DO YOU OFTEN ASK SUCH QUESTIONS?":Бж8000:Бе1104zCP$│"WHAT DO YOU THINK?":Бж8000:Бе1104║DP$│"WHAT ANSWER WOULD PLEASE YOU THE MOST?":Бж8000:Бе1104╨JИ  Д(2) Бе331,3324·KP$│"IS THAT THE REASON?":Бж8000:Бе1105-LP$│"ARE THERE ANY OTHER REASONS?":Бж8000:Бе1105CTИ  Д(2) Бе341,3425qUP$│"WHAT ARE YOU SORRY FOR?":Бж8000:Бе1105ЭVP$│"NO NEED TO APOLOGIZE.":Бж8000:Бе1105╖^И  Д(3) Бе351,352,3535ю_P$│"ARE YOU BOTHERED BY YOUR DREAMS?":Бж8000:Бе1106`P$│"DO YOU DREAM OFTEN?":Бж8000:Бе1106KaP$│"WHAT HAPPENS IN YOUR DREAMS?":Бж8000:Бе1106ehИ  Д(3) Бе361,362,3636ЩiP$│"MAKE UP YOUR MIND. YES OR NO.":Бж8000:Бе1106═jP$│"YOU DON'T SOUND VERY CERTAIN.":Бж8000:Бе1106ЇkP$│"DON'T YOU KNOW?":Бж80000:Бе1107rИ  Д(3) Бе371,372,3737-sP$│"WHY NOT?":Бж8000:Бе1107`tP$│"PLEASE DON'T BE SO NEGATIVE.":Бж8000:Бе1107ДuP$│"ARE YOU SURE?":Бж8000:Бе1107Ъ|И  Д(2) Бе381,3827т}A$│"WHY ARE YOU CONCERNED ABOUT MY ":Бж7000:P$│P$л"?":Бж8000:Бе1108~A$│"WHAT ABOUT YOUR OWN ":Бж7000:P$│P$л"?":Бж8000:Бе11084ЖИ  Д(2) Бе391,3928eЗP$│"PLEASE GIVE ME AN EXAMPLE.":Бж8000:Бе1108ГИP$│"ALWAYS?":Бж8000:Бе1108ЭРИ  Д(3) Бе401,402,4038╪СP$│"WHAT OTHER CONNECTIONS DO YOU SEE?":Бж8000:Бе1109ТP$│"ANY OTHER SIMILARITIES?":Бж8000:Бе11095УP$│"YOU SEEM QUITE POSITIVE.":Бж8000:Бе1109KЪИ  Д(2) Бе411,4129ПЫP$│"WHAT IS IT ABOUT SEX THAT TROUBLES YOU?":Бж8000:Бе1109╩ЬP$│"HOW OFTEN DO YOU THINK ABOUT SEX?":Бж8000:Бе1109фдИ  Д(3) Бе421,422,423:еP$│"ARE YOU SCARED OF MACHINES?":Бж8000:Бе110:JжP$│"WHY DO YOU MENTION COMPUTERS?":Бж8000:Бе110:zзP$│"ARE YOU TALKING ABOUT ME?":Бж8000:Бе110:ЩоP$│"* GOOD BYE *":Бж8000:К:о╕И  Д(2)Бе441,442:█╣P$│"DOES LOVE TROUBLE YOU?":Бж8000:Бе110;║P$│"HOW DOES THAT MAKE YOU FEEL?":Бж8000:Бе110;#┬И  Д(2)Бе451,452;p├P$│"YOU KNOW, IT IS FUNNY THAT YOU SHOULD MENTION 'LIFE'.":Бж8000:Бе110;г─P$│"I KNOW THE ANSWER TO LIFE...":Бж8000:Бе110;╣╠И  Д(2) Бе461,462<═P$│"FUNNY YOU SHOULD MENTION TIME, ARE YOU IN A HURRY???":Бж8000:Бе110<6╬P$│"I'VE GOT PLENTY OF TIME!!!":Бж8000:Бе1104─|Ж "YOU","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY">Z─рЖ "CAUSE","SORRY","DREAM","MAYBE">z┼DЖ"NO","YOUR","ALWAYS","YES">Ъ┼иЖ"SEX","COMPUTER","GOODBYE">╪╞ Ж"LOVE","LIFE","TIME","CRAZY","INSANE","INSANITY","LOONY"?4цxЖ "ARE","AM","WERE","WAS","YOU","I","YOUR","MY","IVE","YOU'VE","IM","YOU'RE","ME","YOU"?@ъ`└1:Бе20                                                                                                                                                                                                                                                                                                                                                                                                                                                             Ю&'В COPYRIGHT (C) T&D SOFTWARE 1985&EХ1000:Ю:Зд12)"iceworld":З&╔З" YOU HAVE JUST CRASH LANDED ON A STRANGE PLANET. YOU HAVE BEEN UNCONSCIOUS FOR A WHILE. YOU WAKE UP DAZED AND CONFUSED."'MЗ" YOU DON'T KNOW WHAT PLANET YOU'RE ON. BUT YOU MUST GET AWAY AS SOON AS POSSIBLE. WHO KNOWS WHAT EVIL LURKS HERE."'ФЗ" TO MOVE IN A CERTAIN DIRECTION JUST TYPE IN THE ABBREVIATION."'╨З" EXAMPLE:TO GO NORTH TYPE N AND 'ENTER'"'ўЗ:З" * TO BEGIN, HIT ANY KEY *";( MS$│ Т:ЕMS$│""з7(2Ю(3):З@96," ICE PLANET"(W З@160," BY HAROLD SNYDER"(k АC│1е600:ЛC:C│0(в М ROOM$(18),VERB$(12),OB$(13),OB(13),D(18,6),D$(6)) ROOM$(1)│"IN MY SPACE SHIP.THERE IS ANAV. COMPUTER HERE.THERE IS A BUTTON ON THE COMPUTER CONSOLE.")= ROOM$( 2)│"AT THE EDGE OF A DEEP ICE CHASM")ТROOM$( 3)│"IN AN OPEN ICE FIELD.THERE IS A CLUSTER OF HUTS IN THE DISTANCE.")├ROOM$( 4)│"AT THE EDGE OF A DEEP ICE CHASM"*ROOM$( 5)│"IN AN ICE HUT. THERE IS A SHELF ON THE WALL"*<ROOM$( 6)│"IN THE CENTER OF A CLUSTER OF ICE BUILDINGS"*yROOM$( 7)│"IN AN ICE HUT. THERE IS A SHELF ON THE WALL"*─ROOM$(8)│"IN A COMPUTER CONTROL ROOM.THERE IS A BUTTON ON THE CONSOLE"+ROOM$(9)│"IN A HUT THAT SEEMS TO BE ASMALL OFFICE WITH A DESK"+ИROOM$( 10)│"IN THE STORE ROOM. THERE ISA ROUND HOLE IN THE FLOOR AND A BRASS ANCHOR RING IMBEDDED IN THE FLOOR NEXT TO IT"+фROOM$( 11)│"IN THE LIVING QUARTERS. THERE ARE DOORS IN ALL DIRECTIONS HERE",QROOM$( 12)│"IN THE LIVING QUARTERS. THEINTRUDER ALERT IS BEEPING. ALL THE DOORS HAVE CLOSED AND LOCKED",ЖROOM$( 13)│"IN A VERY SMALL BUT WELL LIT ROOM",╔ROOM$( 14)│"IN THE COMPUTERIZED ENTRANCE CONTROL BOOTH"-ROOM$( 15)│"IN THE COMPUTER SUPPLY ROOMTHE WALLS ARE LINED WITH SHELVES"-jROOM$( 16)│"DEAD...A BOOBY TRAP WAS ACTIVATED WHEN THE DOOR WAS ENTERED"-┼ROOM$(17)│"DEAD...I HAVE FALLEN DOWN ADEEP ICE CHASM AND BROKEN EVERY BONE IN MY BODY".ROOM$(18)│"DEAD...I HAVE FALLEN DOWN ADARK SHAFT AND BROKEN EVERY BONEIN MY BODY"..OB$( 1)│"BOX".@OB$( 2)│"CPU".R OB$( 3)│"KEY".h!OB$( 4)│"BLASTER".{"OB$( 5)│"BOOK".О#OB$( 6)│"ROPE".б$OB$( 7)│"GOLD".╕%OB$( 8)│"CREATURE".╠&OB$(9)│"BUTTON".р'OB$(10)│"SHELF".ў(OB$(11)│"COMPUTER"/ )OB$(12)│"DESK"/*OB$(13)│"DOOR"/1+VERB$( 1)│"GET"/F,VERB$( 2)│"DROP"/\-VERB$( 3)│"SHOOT"/p.VERB$( 4)│"TIE"/Е/VERB$( 5)│"PUSH"/Ъ0VERB$( 6)│"OPEN"/п1VERB$( 7)│"LOOK"/─2VERB$( 8)│"READ"/█3VERB$(9)│"INSTALL"/я4VERB$(10)│"QZP"05VERB$(11)│"PZQ"06VERB$(12)│"UNLOCK"0(7OB( 1)│ 7068OB( 3)│ 50E9OB( 7)│ 130U:D( 1, 3)│ 30c;D(2,1)│170sD( 2, 4)│ 30г?D( 3, 1)│ 20│@D( 3, 2)│ 40├AD( 3, 3)│ 60╙BD( 3, 4)│ 10уCD( 4, 1)│ 30ёDD(4,2)│171ED( 4, 3)│ 31FD( 4, 4)│ 31!GD( 5, 2)│ 611HD( 6, 1)│ 51AID( 6, 2)│ 71QJD( 6, 3)│ 91aKD( 6, 4)│ 31qLD( 7, 1)│ 61БMD( 8, 2)│ 91СND( 9, 1)│ 81вOD( 9, 2)│ 101│PD( 9, 3)│ 121├QD( 9, 4)│ 61╘RD( 10, 1)│ 91хSD( 10, 6)│181ўTD( 11, 1)│ 162 UD( 11, 2)│ 162VD( 11, 3)│ 162,WD( 11, 4)│ 92>XD( 12, 1)│ 162PYD( 12, 2)│ 162bZD( 12, 3)│ 162t[D( 12, 4)│ 162Ж\D( 13, 2)│ 142Ш]D( 13, 5)│ 102к^D( 15, 3)│ 142┬_NV│12:NO│13:Ю:YOU│12э`O│0:Y│0:Y1│0:V│0:C│0:V$│"":O$│"":I$│""3 aЕ(YOU│5 ▒ YOU│7)зOB(8)│63(bЕ(YOU│8 ▒ YOU│10)зOB(8)│93?cЕ(YOU│15)зOB(8)│133fdЗ"==============================="3teЗ"I AM ";3ДfЗROOM$(YOU)3▓gЕ(YOU│16 ▒ YOU│17 ▒ YOU│18)зЗ:З:З:З:Бе2153╞hЗ"I CAN SEE: ";3°iАI│1еNO:Е Б(OB(I))│ Б(YOU)зЗOB$(I);",";:C│Cл13■jЛ4kЕC│0зЗ"NOTHING OF INTEREST"4(lЗ:C│04<mЗ"------------"4jnЕ(YOU│14)зЙ"ENTER CODE SEQUENCE";I$:Бе1124ГoЙ"WHAT NOW";I$:Бе1134дpЕ I$┤▓"QZP" ░ I$┤▓"PZQ" з2145qЕ(OB(8)│YOU)░ О(I$,3)┤▓"SHO"зЗ:З"YOU HAVE BEEN PUMMELED TO DEATH BY AN ALIEN CREATURE. A VERY UNTIDY DEATH...":З:К58rЕ О(I$,3)┤▓"INV"з 1215NsЗ"I AM HOLDING:";5[tАQQ│1еNO5~uЕOB(QQ)│м1зЗOB$(QQ);",";:C│Cл15ДvЛ5ШwЕC│0зЗ"NOTHING"5гxЗ:Бе965пyАI│1еNV5┬zN│ З(VERB$(I))5ё{Е О( О(I$,N),3)│ О(VERB$(I),3)зV$│VERB$(I)5∙|Л:З6}Y1│0:АI│1е З(I$)6*~Е Р(I$,I,1)│ Л(32)зY1│I60Л6HАO$│ П(I$, З(I$)мY1)6XБY│0:АI│1еNV6yВЕ О(VERB$(I),3)│ О(V$,3)зY│I6ГЛ6РДY1│0:АI│1еNO6░ЕЕ О(O$,3)│ О(OB$(I),3)зY1│I6╢ЖЛ6╔ЗO│Y1:V│Y:V│Vл16█ИЕI$│"QZP"зO│06эЙЕI$│"PZQ"зO│06 КЕ З(I$)│0з 967ЛЕ З(I$)┤▓1з 1497МC│07HНЕI$│"N"░D(YOU,1)┤▓0зYOU│D(YOU,1):Ю:Бе 967uОЕI$│"S"░D(YOU,2)┤▓0зYOU│D(YOU,2):Ю:Бе 967вПЕI$│"E"░D(YOU,3)┤▓0зYOU│D(YOU,3):Ю:Бе 967╧РЕI$│"W"░D(YOU,4)┤▓0зYOU│D(YOU,4):Ю:Бе 967·СЕI$│"U"░D(YOU,5)┤▓0зYOU│D(YOU,5):Бе 968%ТЕI$│"D"░D(YOU,6)┤▓0зYOU│D(YOU,6):Бе 968@УЗ"I CAN'T GO THAT WAY"8JФБе 968ХХИ V Бе 150, 152, 162, 171, 181, 184, 190, 196, 202, 205, 208, 211, 2168│ЦЗ"I DON'T KNOW THAT WORD"8╝ЧБе968щШЕO│1░(OB(1)│YOU)зЗ"IT'S TOO HEAVY":C│Cл19ЩЕO│ 2 ░(OB( 2)│YOU) зOB( 2)│м1:C│Cл19;ЪЕO│ 3 ░(OB( 3)│YOU) зOB( 3)│м1:C│Cл19dЫЕO│ 4 ░(OB( 4)│YOU) зOB( 4)│м1:C│Cл19НЬЕO│ 5 ░(OB( 5)│YOU) зOB( 5)│м1:C│Cл19┴ЭЕO│ 6 ░(OB( 6)│YOU) зOB( 6)│м1:D(10,6)│18:C│Cл19ъЮЕO│ 7 ░(OB( 7)│YOU) зOB( 7)│м1:C│Cл19·ЯЕC┤▓0зЗ"OK":аЕC│0зЗ"I DON'T SEE IT":бБе 96:HвЕO│ 2 ░(OB( 2)│м1) зOB( 2)│YOU:C│Cл1:qгЕO│ 3 ░(OB( 3)│м1) зOB( 3)│YOU:C│Cл1:ЪдЕO│ 4 ░(OB( 4)│м1) зOB( 4)│YOU:C│Cл1:├еЕO│ 5 ░(OB( 5)│м1) зOB( 5)│YOU:C│Cл1:∙жЕO│ 6 ░(OB( 6)│YOU ▒ OB( 6)│м1) зOB( 6)│YOU:C│Cл1;"зЕO│ 7 ░(OB( 7)│м1) зOB( 7)│YOU:C│Cл1;2иЕC┤▓0зЗ"OK";NйЕC│0зЗ"I DON'T HAVE IT";XкБе 96;╧лЕSW│4зOB(4)│17:SW│7:З"THE BLASTER CHARGE IS DEAD. WHENYOU PULL THE TRIGGER THE BLASTERDISINTEGRATES IN YOUR HAND!"<"мЕO│0░(OB(4)│м1)зSW│SWл1:З"THAT WAS A WILD SHOT. YOU DIDN'THIT ANYTHING.":C│Cл1<┴нЕO│0░(OB(8)│YOU)░(OB(4)│м1)зЗ:З:З:З"YOU FIRED A WILD SHOT AT THE CREATURE AND ENRAGED HIM. HE HASTORN YOUR HEAD OFF. YOU ARE EXTREMELY DEAD...":З:К=оЕO│ 1 ░(OB( 1)│YOU)░(OB(4)│м1) зOB( 1)│0:SW│SWл1:З"YOU JUST BLEW THE BOX INTO DUST":C│Cл1=╗пЕO│8░(OB(8)│YOU)░(OB(4)┤▓м1)зЗ:З:З:З"YOU TRIED TO SHOOT THE CREATURE AND YOU HAVE NO WEAPON. YOU HAVEBEEN BEATEN TO A PULP AND ARE QUITE DEAD...":З:К>(░ЕO│ 8 ░(OB( 8)│YOU)░(OB(4)│м1) зOB( 8)│0:SW│SWл1:З"YOU JUST BLEW THE CREATURE INTO COSMIC DUST...":C│Cл1>М▒ЕO│13░(YOU│12)░(OB(4)│м1)з YOU│11:SW│SWл1:З"YOU JUST BLEW UP THE INTRUDER ALARM SYSTEM":C│Cл1>┬▓Е(OB(4)┤▓м1)зЗ"I HAVE NOTHING TO SHOOT WITH":Бе96?│ЕC│0зSW│SWл1:З"YOUR SHOT WENT WILD AND DIDN'T HIT ANYTHING."?┤Бе 96?}╡ЕO│ 6 ░(OB( 6)│YOU ▒ OB( 6)│м1) зOB( 6)│YOU:D(10,6)│13:З"THE ROPE IS TIED SECURELY TO THEBRASS RING":C│Cл1?Ь╢ЕC│0зЗ"I DON'T UNDERSTAND"?ж╖Бе 96?ў╕ЕO│ 9 ░(OB( 9)│0)░(YOU│1) зЗ"THE SHIPS COMPUTER DOES NOT FUNCTION":C│Cл1@D╣ЕO│ 9 ░(OB( 9)│0) ░(YOU│ 8) зЗ"THE CRT READS":З"INTRUDER ALERT ON":C│Cл1@ж║ЕO│9░(YOU│1)░(OB(2)│17)░(OB(7)│м1▒OB(7)│YOU)зЗ"THE CRT READS:":З"TOO HEAVY FOR LIFT-OFF":Бе96Ac╗ЕO│9░(YOU│1)░(OB(2)│17)зЮ:З:З:З"YOU HAVE ACHIEVED LIFT-OFF AND ARE ON YOUR WAY HOME...":З:З"YOU ARE WELL ON YOUR WAY TO BECOMING A PROMINENT ADVENTURER.KEEP UP THE GOOD WORK...":КAВ╝ЕC│0зЗ"I DON'T UNDERSTAND"AМ╜Бе 96A╬╛ЕO│ 1 ░(OB( 1)│YOU) ░(OB( 3)│м1) зOB( 1)│YOU:OB( 6)│YOU:C│Cл1B ┐ЕO│1░(OB(1)│YOU)░(OB(3)┤▓м1)зЗ"I DON'T HAVE THE KEY":C│Cл1B.└ЕO│13░(YOU│12)з YOU│16:C│Cл1B>┴ЕC┤▓0зЗ"OK"B]┬ЕC│0зЗ"I DON'T UNDERSTAND"Bg├Бе 96B▓─ЕO│10 ░(YOU│5) ░(OB(4)│0) зOB( 4)│YOU:З"THERE IS A BLASTER HERE":C│Cл1B√┼ЕO│10 ░(YOU│ 15) ░(OB(2)│0) зOB( 2)│YOU:З"THERE IS A CPU HERE":C│Cл1C?╞ЕO│12 ░(YOU│9)░(OB(5)│0) з OB(5)│9:З"THERE'S A BOOK HERE":C│Cл1C│╟ЕO│11 ░(OB(11)│0) ░(YOU│ 1)░(OB(2)┤▓17) зЗ"THE SHIPS COMPUTER NEEDS A NEW CPU (CENTRAL PROCESSING UNIT)":C│Cл1C╒╚ЕC│0зЗ"I SEE NOTHING SPECIAL"C▀╔Бе 96D(╩ЕO│ 5 ░(OB( 5)│м1) зЗ"CODE SEQUENCE***":З"FORWARD-REVERSE QZP":C│Cл1DG╦ЕC│0зЗ"I DON'T UNDERSTAND"DQ╠Бе 96D}═ЕO│2 ░(YOU│1)░(OB(2)│м1)зOB(2)│17:C│Cл1DЬ╬ЕC│0зЗ"I DON'T UNDERSTAND"Dе╧Бе96D╪╨ЕO│0 ░(YOU│14) з YOU│15:З"YOU MAY ENTER":C│Cл1Dщ╤ЕC│0зЗ"HUH?"DЄ╥Бе96E#╙ЕO│0 ░(YOU│14)з YOU│13:З"YOU MAY EXIT":C│Cл1E4╘ЕC│0зЗ"HUH?"E=╒Бе96EЛ╓З:З:З:З"YOU HAVE BEEN TERMINATED BECAUSEYOU USED THE WRONG CODE SEQUENCE"EУ╫З:КEЭ╪Бе190                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (&'В COPYRIGHT (C) T&D SOFTWARE 1984&4╚0:Бе102&]Х3000:М L$(500),Z9(9),TL(4,9),LL(40)&|Ю:Зд8)"lottery analyzer":З&╣З" MANY STATES IN THE U.S. HAVE STATE LOTTERY GAMES."'8З" THE COMMON TYPES OF GAMES ARE THE THREE-DIGIT DAILY, THE FOUR-DIGIT DAILY, AND THE 6 NUMBER WEEKLY 'LOTTO'."'╪З" IN THESE TYPES OF GAMES, YOU PICK THE NUMBERS THAT YOU WANT TO PLAY AND HOPE THAT THEY MATCH THE NUMBERS WHICH THE STATE RANDOMLY CHOOSES."( З" THIS PROGRAM WILL HELP YOU AN- ALYZE THESE NUMBERS.":Бж90:Ю(У З" ANALYZING THE THREE- AND FOUR- DIGIT NUMBERS WILL REVEAL THE MOST COMMONLY DRAWN DIGIT FOR EACH POSITION.") З" ANALYZING THE 'LOTTO' NUMBERS WILL REVEAL THE 6 MOST COMMONLY DRAWN LOTTO NUMBERS. LOTTO NUM- BERS MUST BE BETWEEN 1 AND 40.")╒ З" TO USE THIS PROGRAM, KEEP TRACK OF THE WINNING NUMBERS (THEY USUALLY APPEAR IN THE NEWS- PAPER OR TV NEWS) AND ENTER THEM INTO THE COMPUTER USING THIS PROGRAM.":Бж90)▀ Ю:З:З*7З" WHEN YOU THINK YOU HAVE ENTER- ED ENOUGH DATA, SELECT THE ANALYZE OPTION."*░З" THE DATA MAY BE SAVED OR LOADED FROM DISK OR TAPE. THUS, LARGE FILES OF NUMBERS MAY BE RETAIN- ED AND ANALYZED."+МЗ" YOU MAY ADD DATA TO EXISTING FILES BY LOADING THEM IN AND THEN SELECTING THE ENTER DATA OPTION. BE SURE TO RESAVE THE FILES.":Бж90:Ю:З@96," THE LAST TWO OPTIONS, RETURN TO PREVIOUS MENU, AND END THE","З" PROGRAM WILL CAUSE THE CURRENT DATA IN THE COMPUTER TO BE LOST SO BE SURE TO SAVE THE DATA BEFORE USING EITHER OF THESE OPTIONS.":Бж90,-Ю:LN│0,VЗ:З:З:З" SELECT LOTTERY TYPE":З,╕З" 1. 3 DIGIT 2. 4 DIGIT 3. 6 NUMBER 'LOTTO'",╓З:З" SELECT 1-3",ыK$│ Т:ЕK$│"" з22- LT│ Й(K$):ЕLT┤1 ▒ LT▓3 з22-"Ю:З:З:Зд14)"menu":З-xЗ" MODE: ";:Е LT│1 з З"3 DIGIT" :ДЕLT│2 зЗ"4 DIGIT" :ДЗ"6 NUMBER 'LOTTO'".8З:З" 1. LOAD DATA FILE 2. SAVE DATA FILE 3. ENTER DATA 4. ANALYZE DATA 5. GO TO PREVIOUS MENU 6. END PROGRAM".VЗ:З" SELECT 1-6".kK$│ Т:ЕK$│"" з28.ЗK│ Й(K$):ЕK┤1 ▒ K▓6 з28.гИ K Бе31,36,41,59,18,86.╕Бж93:Щ"I",#DN,F$.┴ LN│0.╥!Е  М(DN) з35.Ё"LN│LNл1:╗Й#DN,L$(LN):Бе33.■#Ъ#DN:Бе24/ $Е LN│0 з28/"%Бж93:Щ"O",#DN,F$/;&АI│1 е LN:З#DN,L$(I)/A'Л/O(Ъ#DN:Бе24/r)Е LN│500 з28 :ДИ LT Бе42,47,52/г*Ю:З" PLEASE ENTER A 3 DIGIT NUMBER ---> ";/╝+╗Й L$:Е З(L$)┤▓3 з42/ё,F│0:АI│1 е 3:T$│ Р(L$,I,1):ЕT$┤"0" ▒ T$▓"9" зF│10-Л: Е F з420.LN│LNл1:L$(LN)│L$:Бе240L/Ю:З" PLEASE ENTER A 4 DIGIT NUMBER ---> ";0e0╗Й L$:Е З(L$)┤▓4 з470Щ1F│0:АI│1е4:T$│ Р(L$,I,1):ЕT$┤"0" ▒ T$▓"9" з F│10и2Л:Е F з 470├3LN│LNл1:L$(LN)│L$:Бе240э4Ю:З" PLEASE ENTER 6 LOTTO NUMBERS.":З0№5АQ1 │1 е 61 6З"---> ";1@7╗Й L$:L│ Й(L$):Е L▓40 ▒ L┤1 ▒ L┤▓ Б(L) за1,5:Бе541O8Z9(Q1)│L:Л1Й9T$│"":АI│1 е 6:T$│T$л Л(Z9(I)л64):Л:LN│LNл1:L$(LN)│T$1Т:Бе241║;Е LN│0 з28 :ДЮ:З@234,"ANALYZING..."1╥<АI│1 е 40:LL(I)│0:Л1Є=АI│1е4:АJ│0е9:TL(I,J)│0:Л:Л2>Е LT│3 з742?Е LT│1 з ND│3 :Д ND│42)@АI│1 е LN2HAАJ│1 е ND:T$│ Р(L$(I),J,1)2jBTL(J, Й(T$))│TL(J, Й(T$))л1:Л2pCЛ2ЕDАI│0е9:Z9(I)│0:Л2┬EАI│1еND:SV│0:V│TL(I,0):АJ│1е9:ЕTL(I,J)▓V зSV│J:V│TL(I,J)2╙FЛ:Z9(I)│SV:Л3[GЮ:З:З:З:З:Е ND│3 зЗ" THE THREE MOST POPULAR DIGITS BY POSITION ARE : "; :ДЗ" THE FOUR MOST POPULAR DIGITS BY POSITION ARE : ";3zHАI│1 е ND:З Л(Z9(I)л48);:Л3ИIБж90:Бе243ЦJАI│1 е LN3гKАJ│1 е 63─LT$│ Р(L$(I),J,1):T│ К(T$)м643┌MLL(T)│LL(T)л1:Л:Л3чNАI│1 е 63єOZ9(I)│04PV│1:SV│LL(1):АJ│2 е 404+QЕ LL(J)▓SV зV│J:SV│LL(J)4CRЛ:Z9(I)│V:LL(V)│0:Л4xSЮ:З" THE SIX MOST POPULAR LOTTO NUM- BERS ARE :"4РTАI│1е6:Зд12)Z9(I):Л4ЮUБж90:Бе244└VЮ:З@262,"ARE YOU SURE ? Y/N";4╓WK$│ Т:ЕK$│"N" з244чXЕK$┤▓"Y" з874эYК5ZЗ@484,"press [enter] to continue";5([Е Т┤▓ Л(13) з915.\Р5L]Ю:З@232,"tape/disk t/d?";5j^K$│ Т:ЕK$│"T" зDN│м1:Бе975{_ЕK$┤▓"D" з945Д`DN│15ЮaЮ:З@232,"filename: ";5┐b╗Й F$:ЕF$│"" ▒  З(F$)▓12 з975ЎcЮ:З@203,"";:ЕDN│1 зЗ"ready disk"; :ДЗ"ready tape";6dЗ@266,"press [enter]";6eБж91:Р6'f└1:Бе3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ┴&' В COPYRIGHT (C) T&D SOFTWARE 1984&6╚0:Бе60000&`Х500,15999:АI│16000 е 16040:НD:ТI,D:Л&rЮ:З:З:З:З:З:З&ц З" WOULD YOU LIKE THE OUTPUT OF THIS INSTRUCTION PROGRAM SENT TO THE PRINTER AS WELL AS THE SCREEN? Y/N"'!K$│ Т:ЕK$│"N" з PF│0:Бе40'"ЕK$┤▓"Y" з33'B#PF│1:Ю:З" READY PRINTER - PRESS [ENTER]"'L$Бж670'X%в 16000'^(Ю'З2З:З" basic compiler instructions":З(d<З:З" THE BASIC COMPILER WILL TAKE YOUR BASIC PROGRAMS AND CONVERT THEM TO MACHINE LANGUAGE. THE MACHINE LANGUAGE EQUIVALENT OF YOUR BASIC PROGRAMS WILL RUN 50 TO 200 TIMES FASTER THEN THE BASIC INTERPRETER."(ЭFЗ" THIS COMPILER ONLY SUPPORTS A SUBSET OF BASIC."(йPБж660:Ю(▄ZЗ" THE COMMANDS WHICH ARE SUPP- ORTED ARE:")IdЗ" FOR-TO-STEP NEXT GOSUB GOTO IF-THEN-ELSE CLS PRINT POKE PEEK STOP END RETURN REM EXEC")ПnЗ" VALID ARITHMETIC OPERATORS ARE: + - * / AND OR = < > <> => <="*KxЗ" ARITHMETIC EXPRESSIONS ARE EV- ALUATED DIFFERENTLY BY THE COM- PILER THAN BY BASIC. THE BASIC INTERPRETER DOES COMPUTATIONS WHILE OBEYING PARENTHESES AND OPERATOR HIERARCHY."*WВБж660:Ю+>МЗ:З:З" IN THE BASIC WHICH IS SUPPORTED BY THIS COMPILER, PARENTHESES ARE NOT ALLOWED (EXCEPT FOR USE WITH PEEK), AND OPERATOR HIER- ARCHY IS NOT OBSERVED. THE COM- PILER WILL EVALUATE ALL EXPRE- SSIONS FROM LEFT TO RIGHT."+мЦЗ" IN THE FOLLOWING INSTRUCTIONS, THE SYMBOL [EXPR] WILL STAND FOR A LEGAL COMPILER EXPRES- SION."+╕аБж660:Ю,IкЗ" VARIABLES MAY BE UP TO 2 CHAR- ACTERS LONG. THE FIRST CHARACT- ER MUST BE A LETTER AND THE SE- COND MAY BE EITHER A LETTER OR A DIGIT.",Е┤З" AN EXAMPLE OF AN ASSIGNMENT STATEMENT WOULD BE:",Ц╛З" TD=I*5+2",╤╚З" THE 'I*5+2' PART IS THE EXPRES- SION IN THIS CASE."-j╥З" THE STATEMENT WOULD CAUSE THE VALUE OF I TO BE MULTIPLIED BY 5, THEN 2 WOULD BE ADDED, AND THE RESULT WOULD BE PUT INTO THE VARIABLE TD."-v▄Бж660:Ю-│цЗ" NUMERIC VARIABLES MAY BE IN THE RANGE OF 0 TO 65535."-ъЁЗ" THE FOR STATEMENT HAS THE FOL- LOWING SYNTAX:".)·З" FOR [VARIABLE] = [START] TO [END] STEP [INCREMENT]".▓З" IN THE ABOVE STATEMENT, START, END, AND INCREMENT MUST EITHER BE NUMBERS OR VARIABLES. NOTE THAT THE STEP PART IS OPTIONAL.";.єЗ" THE NEXT STATEMENT IS USED TO CLOSE THE FOR-NEXT LOOP."/9З" GOSUB AND GOTO MAY BE USED JUST AS THEY ARE IN REGULAR BASIC."/E"Бж660:Ю/Г,З" THE IF-THEN-ELSE STRUCTURE HAS THE FOLLOWING SYNTAX:"/┐6З" IF [EXPR] THEN [LINE-NUMBER1] ELSE [LINE-NUMBER2]"0_@З" THE EXPRESSION MAY BE ANY VALID COMPILER BASIC EXPRESSION. LINE-NUMBER1 IS THE LINE NUMBER THAT THE PROGRAM SHOULD GOTO IF THE EXPRESSION IS TRUE."0└JЗ" LINE-NUMBER2 IS THE LINE NUMBER THAT THE PROGRAM SHOULD GOTO IF THE EXPRESSION IS FALSE."0ЁTЗ" NOTE THAT THE ELSE PART IS OP- TIONAL."0№^Бж660:Ю16hЗ" THE CLS COMMAND WORKS THE SAME AS REGULAR BASIC."1rrЗ" THE PRINT STATEMENT HAS THREE DIFFERENT SYNTAXES:"1Х|З" PRINT"; Л(34)"[TEXT]" Л(34)1╗ЖЗ" PRINT"; Л(34)"[TEXT]" Л(34)";"1╨РЗ" PRINT [EXPR]"2$ЪЗ" NOTE IN THE EXAMPLE ABOVE THAT [EXPR] STANDS FOR AN ARITHMETIC EXPRESSION."2kдЗ" THE STOP AND RETURN STATEMENTS FUNCTION THE SAME AS IN BASIC."2┬оЗ" THE END STATEMENT SHOULD ONLY BE USED AT THE END OF YOUR BASIC PROGRAM."2╬╕Бж660:Ю3(┬З" THE EXEC STATEMENT FUNCTIONS JUST AS IN BASIC AND HAS THE FOLLOWING SYNTAX:"3<╠З" EXEC [EXPR]"3{╓З" NOTE THAT [EXPR] STANDS FOR ARITHMETIC EXPRESSION."3╡рЗ" THE POKE STATEMENT HAS THE FOLLOWING SYNTAX:"3╨ъЗ" POKE [EXPR],[EXPR]"4 ЇЗ" THE POKE STATEMENT WORKS JUST AS IN REGULAR BASIC."4P■З" THE PEEK FUNCTION MAY BE USED IN ARITHMETIC EXPRESSIONS."4\Бж660:Ю4╖З" THE ARGUEMENT OF THE PEEK STATEMENT MAY BE EITHER A NUM- BER OR A VARIABLE."4═З" EXAMPLES ARE:"4у&З" A=PEEK(40960)"4∙0З" PRINT PEEK(A)"5:Бж660:Ю5XDЗ" THE COMPILER IS WRITTEN IN BASIC AND OCCUPIES LINE NUMBERS 8999-9200."5жNЗ" YOU SHOULD PUT YOUR BASIC PRO- GRAM IN LINE NUMBERS BELOW 8999."6XЗ" THE COMPILER AND YOUR BASIC PROGRAM WILL RESIDE IN MEMORY AT THE SAME TIME."6AbЗ" TO RUN THE COMPILER, TYPE RUN 9000 [ENTER]":Бж660:Ю7'cЗ" THE COMPILER WILL DISPLAY THE CURRENT 'TOP OF MEMORY' AD- DRESS. YOU MAY COMPILE YOUR CODE TO ANY MEMORY ADDRESS AF- TER THE TOP OF MEMORY. THUS, IF THE TOP OF MEMORY IS 15899, THEN YOU MAY COMPILE ANYWHERE"7╟dЗ" FROM 15899 TO THE END OF YOUR MEMORY. THE TOP OF MEMORY AD- DRESS WILL VARY DEPENDING ON THE SIZE OF THE BASIC PROGRAM THAT YOU ARE COMPILING."8lЗ" YOU WILL BE ASKED FOR THE START ADDRESS AND THE VARIABLE TABLE ADDRESS."8*vБж660:Ю9wЗ" THE VARIABLE TABLE ADDRESS IS THE FIRST ADDRESS WHICH SHOULD BE USED FOR THE STORAGE OF VAR- IABLES IN THE COMPILED BASIC PROGRAM. BE SURE TO PUT THE VARIABLE TABLE IN A PLACE WHERE IT WILL NOT BE DISTURBED NOR"9лxЗ" SHOULD IT DISTURB ANYTHING ELSE. FOR EVERY VARIABLE USED IN THE COMPILED PROGRAM, TWO BYTES OF SPACE ARE NEEDED IN THE VARIABLE TABLE."9╚АЗ" END OF INSTRUCTIONS."9╬КК:ФЕ PF з Р :ДЗ@484,"press [enter] to continue";:ЮЕ Т┤▓ Л(13) з670:иР:`├PЖ 190,1,104,175,141,0,13,48,141,0,4,191,1,104,57,13,111,39,3,126:л├ZЖ 0,0,50,98,52,52,189,162,133,198,254,215,111,189,162,133,15,111,53,52:┤├dЖ 57:└ъ`└1:Бе30                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Ж&0#'К::Г COPYRIGHT (C) T&D SOFTWARE 1984&;#(Бе9017&R#)SC│SCл1:B│ Ж(SC):Р&r#*SC│SCл1:B│ Ж(SC):ЕB│32з9002&x#+Р&╡#,F│0:ЕNV│K0 зNV│NVлK1:VN$(NV)│V$:VA(NV)│VC:VC│VCлK2:F│1:Р&╥#-АI│1е NV:ЕVN$(I)│V$ зF│I'6#.Л:ЕF зР :ДЕNV│MV зЗ"*TOO MANY VARIABLES":Бе9116 :ДNV│NVлK1:VN$(NV)│V$:VA(NV)│VC:VC│VCлK2:F│NV:Р'@#/V$│""'Т#0Бж9002:Е(B▓128 ░ B┤▓255)▒ B│44 ▒ B│40 ▒ B│41 ▒ B│58 ▒ B│0 зЕV$│"" зБе9016 :ДР'й#1V$│V$л Л(B):Бе9008'╪#2Бж9007:VT│K0:Е К(V$)▓64 ░  К(V$)┤91 зVT│K1'■#3Е VT з Бж9004:V│VA(F) :Д V│ Й(V$)(#4Р(A#5BT│ Б(ADо256):ТPC,BT:Бж9015:BT│ADмBTн256:ТPC,BT:Бж9015:Р(М#6АZ8│K1 е  З(CD$)оK2:ТPC, Й("&H"л Р(CD$,(Z8мK1)нK2лK1,K2)):PC│PCлK1:Л:Р(Ы#7PC│PCлK1:Р(╖#8З"*SYNTAX ERROR":Бе9116(┼#9╚0:Бе9191).#:Х2000:K0│0:K1│1:K2│2:K3│3:K4│4:K5│5:K6│6:K7│7:K8│8:K9│9:MV│100:NV│0:ML│200:NL│0:MJ│80:NJ│0:NF│0:MF│9)^#;М LN(ML,1),JV(MJ,1),VN$(MV),VA(MV),SA(MF,3))З#<Ю:З" BASIC COMPILER VERSION 1.0":З)┐#=TP│ Ж(31)н256л Ж(32):З" CURRENT TOP OF MEMORY IS"TP*#>З:З" START ADDRESS ? ":З" (DEFAULT=";:З═"#####";TP;:З") --> ";* #?╗Й T$*'#@Е T$│"" з PC│TP:Бе9027*G#AT│ Й(T$):ЕT┤TP за1,1:Бе9020*P#BPC│T*З#CFA│PC:З:З" START OF VARIABLE TABLE ? ---> ";*Ю#D╗Й T$:ЕT$│"" з9027*╟#ET│ Й(T$):ЕT┤0 ▒ T▓65535 за1,1:Бе9027*╨#FVC│T*Є#GЗ:З" RELOCATE CODE ? Y/N"+ #HK$│ Т:ЕK$│"Y" з9035+#IЕK$┤▓"N" з9032+-#JOS│0:Бе9039+^#KЗ:З" RELOCATION ADDRESS ? ---> ";+|#L╗Й T$:ЕT$│"" за1,1:Бе9035+е#MT│ Й(T$):ЕT┤0 ▒ T▓65535 за1,1:Бе9035+╖#NRA│T:OS│RAмFA+▀#OЗ:З" USE THE HIGH SPEED POKE ? Y/N"+ў#PK$│ Т:ЕK$│"N" з9043, #QЕK$┤▓"Y" з9040,#RТ65495,0,0#SSC│ Ж(25)н256л Ж(26),A#TSC│SCм1:NL│0,n#UЕNL│ML зЗ"*SOURCE FILE TOO LARGE":Бе9116,├#VNL│NLл1:Бж9001:Бж9001:Бж9001:B1│B:Бж9001:LN│B1н256лB:LN(NL,0)│LN:LN(NL,1)│PC:ЗLN,╬#WБж9001,▐#XЕB│58 з9047,э#YЕB│0 з9045, #ZЕB┤▓128 з9060-,#[Бж9010:ЕVT│0 зЗ"*VARIABLE NEEDED":Бе9116-C#\DE│V:ЕB┤▓179 з9016-g#]Бж9010:S1│VT:V1│V:ЕB┤▓165 з9016-Ы#^Бж9010:S2│VT:V2│V:ЕB│0 ▒ B│58 зS3│0:V3│1:Бе9057-н#_ЕB┤▓169 з9016-├#`Бж9010:S3│VT:V3│V-ю#aЕS1 зТPC,&HFC:Бж9015 :ДТPC,&HCC:Бж9015.#bAD│V1:Бж9013:ТPC,&HFD:Бж9015:AD│DE:Бж9013.q#cNF│NFлK1:SA(NF,0)│DE:SA(NF,K1)│V2лS2н1E5:SA(NF,K2)│V3лS3н1E5:SA(NF,K3)│PC:Бе9048.Д#dЕ B┤▓139 з9070.л#eЕNF│0 зЗ"*NEXT WITHOUT FOR":Бе9116.Ї#fDE│SA(NF,0):Е SA(NF,1)▓│1E5 зS2│1:V2│SA(NF,1)м1E5 :ДS2│0:V2│SA(NF,1)/1#gЕ SA(NF,2)▓│1E5 зS3│1:V3│SA(NF,2)м1E5 :ДS3│0:V3│SA(NF,2)/J#hPT│SA(NF,3):NF│NFмK1/Д#iТPC,&HFC:Бж9015:AD│DE:Бж9013:ЕS3 зТPC,&HF3 :ДТPC,&HC3/р#jБж9015:AD│V3:Бж9013:ТPC,&HFD:Бж9015:AD│DE:Бж9013:ТPC,16:Бж9015:ЕS2 зТPC,&HB3 :ДТPC,&H830 #kБж9015:AD│V2:Бж9013:CD$│"22037E":Бж90140 #lAD│PTлOS:Бж90130C#mБж9001:ЕB│0 ▒ B│58з9048 :Д90690V#nЕ B┤▓129 з90820n#oБж9001:ЕB│166 з90740А#pЕB┤▓165 з90160У#qТPC,126:Бе90750а#rТPC,&HBD0▓#sБж9076:Бе90480╤#tБж9015:Бж9010:ЕVT┤▓0 з90160є#uF│0:АI│1 е NL:ЕV│LN(I,0) зF│I1#vЛ:Е F з908119#wЕNJ│MJ зЗ"*TOO MANY GOTO'S/GOSUB'S/THEN'S":Бе91161h#xNJ│NJлK1:JV(NJ,0)│V:JV(NJ,1)│PC:PC│PCлK2:Р1Г#yAD│LN(F,1)лOS:Бж9013:Р1Ц#zЕ B┤▓133 з90901п#{Бж9126:ЕB┤▓167 з90161╧#|CD$│"1083000027037E":Бж90141№#}Бж9010:ЕVT┤▓0 з9016 :ДБж9077:ЕB│K0 з90482#~Бж9001:ЕB│132 з90882,#ЕB┤▓K0 з9016 :Д90482\#АТPC,126:Бж9015:Бж9010:ЕVT┤▓0 з9016 :ДБж90772g#ББе90482y#ВЕB┤▓158 з90922Ш#ГCD$│"BDA928":Бж9014:Бе90472╝#ДЕB┤▓145 ░ B┤▓138 ░ B┤▓144 з90952▄#ЕТPC,57:Бж9015:ЕB┤▓138 з90472ч#ЖБе91172∙#ЗЕB┤▓130 з90973#ИБж9001:ЕB┤▓0 з9096 :Д90483)#ЙЕB┤▓162 з90993Q#КБж9126:CD$│"1F01AD84":Бж9014:Бе90483c#ЛЕB┤▓135 з91083Ъ#МTD│SC:Бж9002:ЕB│34 з9102 :ДЕB│0 з T$│ Л(13):Бе91843л#НSC│TD:Бе91893╡#ОT$│""3╠#ПБж9001:ЕB│34 з91063ы#РЕB│0 з T$│T$л Л(13):Бе91074#СT$│T$л Л(B):Бе91034"#ТБж9002:ЕB┤▓59 зT$│T$л Л(13)4-#УБе91844?#ФЕB┤▓146 з91114s#ХБж9126:ТPC,52:Бж9015:ТPC,K6:Бж9015:ЕB┤▓44 з90164Ы#ЦБж9126:CD$│"3510E784":Бж9014:Бе90484│#ЧЕ B┤65 ▒ B▓90 з90164╞#ШSC│SCм1:Бж90104╪#ЩЕVT┤▓K1 з90164я#ЪDE│V:ЕB┤▓179 з90165#ЫБж9126:ТPC,&HFD:Бж9015:AD│DE:Бж9013:Бе90485`#ЬЗ" COMPILATION TERMINATED BY ERROR IN LINE ";LN(NL,0):К5r#ЭЕ NJ│K0 з91245А#ЮАI│1 е NJ5Т#ЯF│0:АJ│1 е NL5н#аЕ LN(J,0)│JV(I,0) зF│J5│#бЛ5ч#вЕF│0 зЗ"*UNDEFINED GOTO/GOSUB STATEMENT":Бе911660#гPT│JV(I,K1):AD│LN(F,K1)лOS:ТPT, Б(ADо256):ТPTлK1,ADм Б(ADо256)н256:Л6С#дЗ:З" ** SUCCESSFUL COMPILATION **":З" START = ";FA;" END = ";PC:З" EXEC = ";FA6а#еТ65494,0:К6▓#жБж9010:Бж91716╤#зТPC,52:Бж9015:ТPC,6:Бж90156▄#иБе91306х#йB│ZB7 #кЕ B│44 ▒ B│167 ▒ B│58 ▒ B│0 з91617h#лБж9133:Бж9010:Бж9171:И OC Бж 9162,9163,9164,9165,9166,9167,9168,9169,9170,9181,9182,91837z#мБж9014:Бе91307М#нЕ B│179 з91437Ю#оЕ B│178 з91467░#пЕ B│180 з91497┴#░ЕB│176 з91557╥#▒ЕB│177 з91567у#▓ЕB│171 з91577Ї#│ЕB│172 з91588#┤ЕB│173 з91598#╡ЕB│174 з916086#╢З"*UNKNOWN OPERATOR":Бе91168N#╖Бж9001:ЕB│180 з91528_#╕ЕB│178 з91538r#╣OC│7:SC│SCм1:Р8К#║Бж9001:ЕB│179 з91538Ы#╗ЕB│180 з91548о#╝OC│9:SC│SCм1:Р8╞#╜Бж9001:ЕB│179 з91528╫#╛ЕB│178 з91548ъ#┐OC│8:SC│SCм1:Р8Ў#└OC│10:Р9#┴OC│11:Р9#┬OC│12:Р9#├OC│5:Р9$#─OC│6:Р9/#┼OC│1:Р9:#╞OC│2:Р9E#╟OC│3:Р9P#╚OC│4:Р9q#╔ТPC,53:Бж9015:ТPC,6:Бж9015:Р9Й#╩CD$│"E3E4EDE4":Р:Г+9н#╦CD$│"1F01ECE4AFE4A3E4EDE4":Р:Г-9с#╠CD$│"1F01CC00008C00002706E3E4301F20F5EDE4":Р:Г*:#═CD$│"1F01ECE4AFE48E0000A3E42B04300120F8AFE4":Р:Г/:5#╬CD$│"A4E4E461EDE4":Р:ГAND:R#╧CD$│"AAE4EA61EDE4":Р:ГOR:А#╨CD$│"10A3E42705CC00002003CC0001EDE4":Р:Г=:║#╤CD$│"1F01ECE4AFE410A3E42505CC00002003CC0001EDE4":Р:Г<:Ї#╥CD$│"1F01ECE4AFE410A3E42205CC00002003CC0001EDE4":Р:Г>; #╙Е К(V$)│255 з9177;#╘Е VT з9176;-#╒ТPC,&HCC:Бж9015;=#╓AD│V:Бж9013;C#╫Р;^#╪ТPC,&HFC:Бж9015:Бе9174;К#┘Бж9002:ЕB│0 ▒ B│58 з9016 :ДЕB┤▓40 з9177;Ь#┌Бж9010:Бж9171;┐#█CD$│"1F014FE684":Бж9014:Бж9002;┼#▄Р<#▌CD$│"1F01ECE4AFE410A3E42305CC00002003CC0001EDE4":Р:Г<=<;#▐CD$│"1F01ECE4AFE410A3E42405CC00002003CC0001EDE4":Р:Г>=<К#рL│ З(T$):ЕL│K0 зT$│" ":L│K1<а#сSS│PCл21:JV│PCл18=F#тТPC,&H8E:Бж9015:AD│SSлOS:Бж9013:ТPC,&HC6:Бж9015:ТPC,L:Бж9015:CD$│"A6803456AD9FA00235565A26F37E":Бж9014:AD│PCлK2лLлOS:Бж9013:АZ4│K1 е L:ТPC, К( Р(T$,Z4)):Бж9015:Л=Q#уБе9048=c#фВ PRINT VALUE=М#хCD$│"4FC60534025A26FB":Бж9014:Бж9126>w#цCD$│"1083271025078327106CE420F3108303E825078303E86C6120F31083006425078300646C6220F31083000A250783000A6C6320F3E764C60435024D261D86203456AD9FA00235565A26EE35028B303456AD9FA0023556201135028B303456AD9FA00235565A26F120E1":Бж9014:Бе9048>Е#ч└1:Бе9018                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ·&':ГCOPYRIGHT (C) T&D SOFTWARE 1984&K:Г*****************************&e:Г WORDS AND MUSIC&Е:Г INSTRUCTIONS AND DEMO&М:Г&к:Г BY BOB VAN DER POEL&─:Г 17435-57 AVENUE&р:Г EDMONTON, ALBERTA&·:Г CANADA, T6M 1E1' :Г' :Г'+ :Г****************************'Ъ Ю2:З@36, б(24,128);:АT│68е132й32:З@T, Л(128) б(22,32) Л(128);:Л:З@164, б(24,128);:З@105,"WORDS AND MUSIC";(= З@228, б(24,128);:АT│260е388й32:З@T, Л(128) б(22,32) Л(128);:Л:З@420, б(24,128);:З@296,"<1> DEMONSTRATION";:З@328,"<2> INSTRUCTIONS";:З@360,"<3> PRINT INST.";(|I$│ Т:ЕI$│"1"зБж 16 :Д ЕI$│"2"з 52 :Д ЕI$│"3"з52Бж :Д Бе14(ВО(О:Г demo(ФП(вБж37:Бж21(╔АT│1е100:И Д(5)Бж32,33,34,35,36:ЛT(╧Р(▀:Гplay song)%M$(1)│ Л(220)л Л(211):M$(1)│M$(1)лM$(1):M$(1)│M$(1)лM$(1)л Л(220))CM$(2)│ Л(211)л О(M$(1),8))OАT│1е50)ZНN$,L$)jЕN$│"end"зР)|ЕM│1зM│2:ДM│1)аЗ@395,M$(M);:З@400м З(L$)о2,L$;)и╔N$)├И Д(5)Бж32,33,34,35,36)═Бе 25)  З@267, Л(187) Л(191);:З@274, Л(187) Л(191);:Р*1!З@267, Л(191) Л(189);:З@274, Л(191) Л(189);:Р*c"З@267, Л(191) Л(189);:З@274, Л(191) Л(189);:Р*Х#З@267, Л(183) Л(191);:З@274, Л(183) Л(191);:Р*╟$З@267, Л(191) Л(187);:З@274, Л(191) Л(187);:Р*█%:Г display face*т&Ю0+%'НP$,Q$:ЕP$│"x"з Р :ДP│989 л Й("&H"лP$):Q│ Й("&H"лQ$):ТP,Q:Бе39+F(:Гdata for robot face in hex,:)Ж4B,C9,59,C6,6C,C9,78,C6,8D,C9,97,C6,AA,E3,AB,E3,AC,E3,AD,E3,AE,CB,AF,E3,B0,E3,B1,E3,B2,E3,B3,E3,B4,E3,B5,E3,B6,C7,B7,E3,B8,E3,B9,E3,CA,EA,D9,E5,EA,EA,ED,AC,EE,AC,EF,AC,F0,AC,F4,AC,F5,AC,F6,AC,F7,AC,F9,E5,109,C7,10A,EA,10E,BF,10F,BF,115,BF--*Ж116,BF,119,E5,11A,CB,129,CD,12A,EA,12E,BF,12F,BF,135,BF,136,BF,139,E5,13A,CE,14A,EA,152,AF,159,E5,16A,EA,179,E5,18A,EA,199,E5,1AA,EA,1AE,DC,1AF,D3,1B0,DC,1B1,D3,1B2,DC,1B3,D3,1B4,DC,1B5,D3,1B6,DC,1B9,E5,1CA,EA,1D9,E5,1EA,EB,1EB,E3,1EC,E3-С+Ж1ED,E3,1EE,E3,1EF,E3,1F0,E3,1F1,E3,1F2,E3,1F3,E3,1F4,E3,1F5,E3,1F6,E3,1F7,E3,1F8,E3,1F9,E7,x,x-Ч,Ю-г-Н P$,W$-╡.ЕW$│"end" з Р-ч/З@200, б(10,128);:З@205м З(W$)о2,W$;:╔P$:Бе45-°0:Г song data.╩1Ж T3L8O3AB-O4C,HICKORY,O3B-AG,DICKORY,L4AP8P4,DOCK,L8A,THE,L4A,MOUSE,O4L8C,RAN,O3L4B-,UP,L8G,THE,L4AP8P4,CLOCK,L8A,THE,L4A,CLOCK,L8A,STRUCK,O4L4C,ONE,L8C,THE,O3L4B-,MOUSE,L8B-,RAN,O4L4.D,DOWN,L8CDC,HICKORY.ї2Ж O3B-AG,DICKORY,L4.F,DOCK,P1,,end,end/ 3В instructions/4Ю/)5НA$:ЕA$┤▓"begin"з53/96ЕI$│"3"з 65/Р7A$│" WORDS AND MUSIC EDITOR ":АT│1е32:Т1023лT, К( Р(A$,T,1))░63:Л:З@32,"";/Ш8НA$/╔9I│ Ю(A$, Л(96)):ЕI▓0з Р(A$,I,1)│ Л(34):Бе 57/у:ЕA$│"xxx"з 63:ДЗ" "A$0 ;Е Ж(136)н256л Ж(137)▓1472зБж 61:Бе 550<Бе 560k=A$│" PRESS ANY KEY TO CONTINUE ":АT│1е32:Т1503лT, К( Р(A$,T,1))░63:Л:I$│ Т0Е>I$│ Т:ЕI$│""з 62:ДЮ:Р0С?Бж 61:О0г@:Гprint inst.0╪AЙ"PRESS ENTER WHEN PRINTER IS READY";I$:З#м20ёBНA$:ЕA$│"xxx"зЗ#м2:О1!CI│ Ю(A$, Л(96)):ЕI▓0з Р(A$,I,1)│ Л(34):Бе6717DЗ#м2,д20);A$:Бе661EEЖ "begin"2FЖWORDS AND MUSIC WILL LET YOU,CREATE STRINGS THAT CAN BE,`PLAYED` BY EXTENDED COLOR,BASIC. WHEN THE PROGRAM IS RUN,A TITLE SCREEN WILL APPEAR.,AFTER A BRIEF DELAY YOU WILL,SEE THE I/O MENU WHICH WILL BE2▀GЖ"EITHER DISK OR CASSETTE,",DEPENDING ON YOUR SYSTEM. IF,YOU HAVE A DISK YOU CAN ALSO,SELECT OPTION <7> WHICH WILL,CHANGE THE I/O TO CASSETTE.,THE FIRST THING THAT YOU,SHOULD NOW DO IS SELECT <0> TO3│HЖGOTO THE EDITOR. THE BLACK,LINE ACROSS THE MIDDLE OF THE,SCREEN IS THE `CURRENT LINE`,AND INDICATES THAT YOU ARE IN,THE VIEWING MODE. SINCE THERE,IS NO TEXT IN THE BUFFER THIS,IS A BLACK LINE. WHEN THERE IS4АIЖTEXT THE CURRENT LINE IS,HIGHLIGHTED IN REVERSE VIDEO.,TO ENTER NOTES PRESS . A,RED CURSOR WILL APPEAR AT THE,LEFT SIDE OF THE CURRENT LINE,AND YOU CAN NOW ENTER YOUR,NOTES. WHEN YOU HAVE FINISHED5NJЖTHIS LINE PRESS ENTER. TWO,THINGS WILL NOW HAPPEN. THE,NOTES JUST ENTERED WILL BE,PLAYED AND THE CURSOR WILL,REAPPEAR AT THE NEXT LINE. TO,STOP ENTERING NOTES AND RETURN,TO THE VIEW MODE PRESS 6KЖBEFORE ENTERING ANY DATA. ONCE,ALL THE NOTES HAVE BEEN,ENTERED YOU CAN ADD WORDS TO,EACH NOTE LINE. TO DO THIS,RETURN TO THE VIEW MODE AND,PRESS THE . THIS,WILL SET THE CURRENT LINE TO6хLЖLINE 1. NOW PRESS . THIS,TIME THE EDITOR WILL ACCEPT,INPUT ON THE RIGHT SIDE OF THE,SCREEN. AGAIN END EACH LINE,WITH . A NULL ENTRY,WILL RETURN TO THE VIEW MODE.,,MANY OPTIONS ARE AVAILABLE7┤MЖFROM THE VIEW MODE. ,," up arrow INCREMENTS THE",CURRENT LINE BY ONE," down arrow DECREMENTS THE",CURRENT LINE BY ONE," shifted up arrow SCROLLS THE",TEXT UP," shifted down arrow SCROLLS",THE TEXT DOWN8ОNЖ" left arrow SETS THE CURRENT",LINE TO LINE ONE," right arrow SETS THE CURRENT",LINE TO THE LAST LINE IN THE,BUFFER," c LETS YOU INPUT THE CURRENT",LINE NUMBER YOU WANT FROM THE,KEYBOARD," n EDIT THE NOTE ON THE"9kOЖCURRENT LINE," w EDIT THE WORD ON THE",CURRENT LINE," b INSERTS A BLANK LINE AT THE",CURRENT LINE," d DELETES THE CURRENT LINE"," p PLAYS THE CURRENT BUFFER"," i DISPLAYS THE I/O MENU"," h DISPLAYS A SUMMERY OF THE"::PЖABOVE ON A HELP SCREEN,,THE PLAY OPTION LETS YOU PLAY,THE ENTIRE TEXT BUFFER AND SEE,THE WORDS AS THEY WILL APPEAR,IN YOUR PROGRAM. THE DEFAULT,FOR THE FIRST LINE TO PLAY IS,THE FIRST LINE. THE DEFAULT;QЖFOR THE LAST LINE IS THE,CURRENT LINE.,,ONCE ALL THE EDITING HAS BEEN,DONE GOTO THE I/O MENU AND,SELECT OPTION <4> OR <5>. THE,DATA LINES WILL HAVE THE,"FOLLOWING FORMAT:",," 10 DATA T3L8O3AB-O4C,";уRЖ" HICKORY, O3B-AG, DICKORY,"," L4AP8P4, DOCK, L8A, THE,"," L4A, MOUSE...",,DEPENDING UPON THE OPTION,SELECTED WHEN THE DATA,STATEMENTS ARE CREATED THEY,"WILL CONTAIN WORDS AND NOTES,",WORDS ONLY OR NOTES ONLY. YOU<пSЖCAN ALSO SELECT THE FIRST LINE,NUMBER OF THE NEW PROGRAM.,,ONCE THE DATA STATEMENT LINES,ARE INCORPORATED INTO A BASIC,PROGRAM THEY CAN PLAYED AND,DISPLAYED BY A SIMPLE LOOP,"SUCH AS THE FOLLOWING:"=ЗTЖ," 100 READ P$,W$"," 110 IF A$=`END` THEN END"," 120 ?@194,W$"," 130 PLAY P$"," 140 GOTO 100",,THE SAME OPTIONS ARE AVAILBLE,WITH THE STRING OPTION. THE,"FORMAT IS AS FOLLOWS:",," 10 PL$(0)=`T3L8O3AB-O4CO3B-AG">hUЖ" L4AP8P4L8AL4A . . ."," 20 WR$(0)=`HICKORY DICKORY"," DOCK THE MOUSE . . .",,NOTE THAT THE WORDS ARE,CONTAINED IN THE ARRAY WR$(),AND THE NOTES IN THE ARRAY,PL$(). WHEN THE STRING OPTION,IS SELECTED IT SHOULD ALSO BE?1VЖNOTED THAT YOU WILL LOSE THE,"NOTE, WORD FORMAT OF THE",EDITOR SINCE THE NOTES AND,WORDS WILL BE PLACED INTO LONG,STRINGS. IF YOU NEED STRING,ARRAYS WITH THE WORDS IN THE,RIGHT ORDER USE THE DATA?√WЖFORMAT AND THEN CONVERT TO,STRINGS IN YOUR OWN PROGRAM. ,,WHEN IN THE EDITOR THE MAXIMUN,LENGTH OF A NOTE OR WORD LINE,IS 13 CHARACTERS. ,,IN A 32K DISK SYSTEM THERE ARE,500 LINES AVAILABLE IN THE@┴XЖBUFFER. IN A 16K DISK SYSTEM,THERE ARE 91 LINES. ,,WHEN USING A DISK SYSTEM,EXTENSIONS MUST NOT BE USED,SINCE THEY WILL ,AUTOMATICALLY BE SET TO THE,"FOLLOWING:",," /w&m TEXT BUFFERS"AНYЖ" /DTA DATA STATEMENT"," PROGRAMS"," /STR STRING PROGRAMS",,," >>>>>>>> caution <<<<<<<<<",,THIS PROGRAM DOES NOT CHECK,FOR THE CORRECT SYNTAX OF PLAY,STRINGS. IF AN ERROR OCCURSBlZЖ(USUALLY AN ?FC ERROR) DON'T,"PANIC. INSTEAD TYPE:",," GOTO ",,YOU WILL BE RETURNED TO THE,DISPLAY MODE WITH NO LOSS OF,DATA. THIS WILL ALSO WORK OF,"I/O ERRORS ON A DISK, ETC.",NOTE THAT NO LINE NUMBER ISB∙[ЖREQUIRED WITH THE ABOVE.,,THE DEMONSTRATION OPTION IN,THIS PROGRAM USES WORDS AND,MUSIC CREATED BY WORDS AND, MUSIC,,HAVE FUN . . .,xxx                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    d&':ГCOPYRIGHT (C) T&D SOFTWARE 1984&.:Г&I:Г WORDS AND MUSIC&P:Г&q:Г WRITTEN JUNE 1983 BY:&Н:Г BOB VAN DER POEL&к:Г 17435 - 57 AVENUE&═:Г EDMONTON ALBERTA CANADA&╘:Г&█ :Г&■ :Г****************************'ЕCR▓0зЮ:Бж95:Бе245'ДЮ2:З@36, б(24,128);:АT│68е132й32:З@T, Л(128) б(22,32) Л(128);:Л:З@164, б(24,128);:З@105,"WORDS AND MUSIC";(З@228, б(24,128);:АT│260е356й32:З@T, Л(128) б(22,32) Л(128);:Л:З@388, б(24,128);:З@299,"WRITTEN BY";:З@328,"BOB VAN DER POEL";(Бе 920(i#Х0, Ж(116)н256л Ж(117):MX│ Уо40:Т500,MXо4:Х( Ум500м(MXн10)):MX│ Ж(500)н4:МA$(MX,1)(Т(U$│"###:% % % %"(а-Бж50:Бе60(▌2Е  Ж(266)│215░DV┤1зDV│1:DV$│"DISK":ДDV│м1:DV$│"CASSETTE"(у7Р)<:Г line 11 highlight ml sub)ДAER│ Ж(188)н256л Ж(189)л1:АT│ER еERл14:НP:ТT,P:Л:Ж &H8E,&H05,&H24,&HA6,&H84,&H88,&H40,&HA7,&H80,&H8C,&H05,&H3F,&H26,&HF5,&H39)ЮF:Г scroll down ml sub* KSD│ERл16:АT│SD еSDл13:НP:ТT,P:Л:Ж&H8E,&H05,&HE1,&HA6,&H82,&HA7,&H88,&H20,&H8C,&H04,&H00,&H26,&HF6,&H39*PАT│1е500:Л*-UCR│1:HL│CR:Бе515*IZ:Г print current screen*i_P│м32:АT│CRм9 е CRл6:P│Pл32*еdЕT▓0 ░T┤│MX зЗ@P,═U$;T,A$(T,0),A$(T,1);:ДЗ@P, б(31,32);*▒iЛ:вER:Р*╦n:Г increment one line*╙sвER*шxЕCR▓HL зCR│HL: Р+}З@511:ЕCRл6┤│MX зЗ═U$;CRл6,A$(CRл6,0),A$(CRл6,1);+(ВвER:Р+BЗ:Г decrement one line+NМвER:вSD+ДСЕCRм9┤1 зЗ@0:ДЗ@0,═U$;CRм9,A$(CRм9,0),A$(CRм9,1);+ОЦвER:Р+аЫ:Г repeat inc+╣аI$│ Т:ЕI$┤▓"_"звER:Р+┘еCR│CRл1:ЕCR▓HL звER:CR│HL:Р,кЗ@511:ЕCRл6┤│MX зЗ═U$;CRл6,A$(CRл6,0),A$(CRл6,1);,"пТ341,255:Бе160,4┤:Г repeat dec,M╣I$│ Т:ЕI$┤▓"["звER:Р,j╛CR│CRм1:ЕCR┤1звER:CR│1:Р,г├вSD:ЕCRм9┤1зЗ@0:ДЗ@0,═U$;CRм9,A$(CRм9,0),A$(CRм9,1);,╢╚Т342,255:Бе185,╚═:Гinsert line,т╥HL│HLл1:ЕHL▓MX зHL│MX,ў╫АT│HL е CRл1 йм1-@▄A$(T,0)│A$(Tм1,0):A$(T,1)│A$(Tм1,1):Л:A$(CR,0)│"":A$(CR,1)│"":Бж95:Р-Rс:Гdelete line-оцАT│CR е HL:АTT│0е1:A$(T,TT)│A$(Tл1,TT):ЛTT,T:АT│0е1:A$(HL,T)│"":Л:HL│HLм1:ЕHL┤CR зHL│CR-╣ыБж95:Р-╩Ё:Г idle loop-▀їI$│ Т:ЕI$│""з245. ·ЕI$│"^"зCR│CRл1:ЕCR▓HL зCR│HL :ДБж115.2 ЕI$│ Л(10)зCR│CRм1:ЕCR┤1зCR│1:ДБж140.QЕI$│"_"звER:Т341,255:Бж160.p ЕI$│"["звER:Т342,255:Бж185.ИЕI$│ Л(8)зCR│1:Бж95.бЕI$│ Л(9)зCR│HL:Бж95.│ЕI$│"N"зБж380.┼ЕI$│"W"зБж435.╫"ЕI$│"P"зБж485.щ'ЕI$│"I"зБе515.√,ЕI$│"B"зБж210/ 1ЕI$│"D"зБж230/U6ЕI$│"C"зЗ@0:З@0,"NEW CURRENT LINE";:ЙI:ЕI┤│HL з CR│I:Бж 95 :Д Бж 95/o;ЕI$│"H" з Бж 850:Бж95/y@Бе245/ЖE:Г input/ЭJP│PP:BL$│ б(13,32)/╗OЗ@PP,BL$"<";:З@P, Л(191);/╥TIK$│ Т:ЕIK$│""з3400YЕIK$│ Л(8)░P▓PP зP│Pм1: Р(BL$,PмPPл1,1)│" ":Бе33503^ЕIK$│ Л(13)з365:ДЕIK$┤" "зIK$│"":Бе3400EcЕPмPP│▓13з3400jh Р(BL$,PмPPл1,1)│IK$:P│Pл1:Бе3350ЛmЕBL$│ б(13,32)зI$│"":Р:ДP│130╛rЕ Р(BL$,P,1)│" "зP│Pм1:Бе370:ДI$│ Р(BL$,1,P):Р0▄w:Г edit current play line1|З@0,"current "A$(CR,0):PP│292:Бж3301БЕI$┤▓""зA$(CR,0)│I$1@ЖЗ@288,═U$;CR,A$(CR,0),A$(CR,1);1ГЛЕI$│""звER:ЕCRм9┤1зЗ@0:Р:ДЗ@0,═U$;CRм9,A$(CRм9,0),A$(CRм9,1):Р1СР╔A$(CR,0)1ЭХCR│CRл11пЪЕCR▓HL зHL│CR1═ЯЕCR▓MX зCR│MX:HL│CR:Бе3802дЗ@511:ЕCRл6┤│MX зЗ═U$;CRл6,A$(CRл6,0),A$(CRл6,1);2 йБе3802+о:Г edit current word line2S│З@0,"current "A$(CR,1):PP│306:Бж3302k╕ЕI$┤▓""зA$(CR,1)│I$2О╜З@288,═U$;CR,A$(CR,0),A$(CR,1)2╤┬ЕI$│""звER:ЕCRм9┤1зЗ@0:Р:ДЗ@0,═U$;CRм9,A$(CRм9,0),A$(CRм9,1):Р2▌╟CR│CRл12я╠ЕCR▓HL зHL│CR3 ╤ЕCR▓MX зCR│MX:HL│MX:Бе4353C╓З@511:ЕCRл6┤│MX зЗ═U$;CRл6,A$(CRл6,0),A$(CRл6,1);3M█Бе4353_р:Г play notes3eхЮ3ЖъЙ"START LINE";SL:ЕSL┤1зSL│CR3░яЙ" END LINE";EL:ЕEL┤SL ▒EL▓MX зEL│HL3сЇАT│SL е EL:З═U$;T,A$(T,0),A$(T,1):╔A$(T,0):Л3Є∙Бж835:Бж95:Р4■:Г i/o menu4╔Ю:Зд9)DV$" I/O MENU":З:З" 0. EDITOR":З" 1. BUFFER TO "DV$:З" 2. LOAD FROM "DV$:З" 3. HARDCOPY":З" 4. DATA STATEMENTS TO "DV$:З" 5. STRINGS TO "DV$:Е Ж(266)│215зЗ" 6. DIRECTORY":З" 7. CHANGE I/O"5З@390,"HIGH LINE"HL:З@419,"CURRENT LINE"CR:З@450,"MAXIMUM LINES"MX5n Е Ж(266)│215зI$│ Т:ЕI$│""з525:ДИ Ю("10234567",I$) Бе560,540,595,615,695,755,550,535:Бе5255┤I$│ Т:ЕI$│""з530:ДИ Ю("102345",I$)Бе560,540,595,615,695,755:Бе5305├Бж50:Бе5155╙Бж 95:Бе2455у!:Гdirectory5№&Ю:╬:Бж835:Бе515:Д5156+:Г save buffer630Ю:З"SAVE CURRENT BUFFER TO "DV$6^5EX$│"w&m":Бж 880:ЕF$│""з515:ДЕAR│0з5806е:З"THIS FILENAME ALREADY EXISTS. PRESS c IF OK TO WRITE OVER IT."6╚?I$│ Т:ЕI$│""з575:ДЕI$┤▓"C"з5657 DЕDV│1зЩ"O",#1,F$:┘#1,HL:АT│1еHL:┘#1,A$(T,0),A$(T,1):Л:Ъ:Бе5157IIЩ"O",#м1,F$:З#м1,HL:АT│1еHL:З#м1,A$(T,0),A$(T,1):Л:Ъ:Бе5157\N:Г load buffer7zSЮ:З"LOAD BUFFER FROM "DV$7╚XEX$│"w&m":Бж880:ЕDV│1зЕF$│""з515:ДЕAR│0зЗ"THIS FILE DOES NOT EXIST":Бе6008 ]Щ"I",DV,F$:Й#DV,HL:АT│1еHL:Й#DV,A$(T,0),A$(T,1):Л:CR│1:Ъ:Бе5158b:Г hardcopy8tgЮ:З"HARDCOPY":Й"READY PRINTER (INPUT M FOR MENU)";I$:ЕI$│"M"зБе5158ХlЙ"START LINE";SL:ЕSL┤1зSL│CR8┐qЙ" END LINE";EL:ЕEL┤SL ▒EL▓MX зEL│HL9vЗ#м2:АT│SL е EL:З#м2,д10);:З#м2,═U$;T,A$(T,0),A$(T,1):Л:Бе5159{:Гopen create file97АБж880:ЕF$│""зР:ДЕAR┤▓1з6559{ЕЗ"THIS FILENAME ALREADY EXISTS PRESS c IF OK TO WRITE OVER."9ЮКI$│ Т:ЕI$│""з650:ДЕI$┤▓"C"з6409оПЩ"O",#DV,F$:ФЙ"PROGRAM START LINE";PL:PG$│ Р( И(PL),2)л"REM "лF$::ЗPG$:З#DV,PG$:PL│PLл10:Р:Щ:Г start new data line:CЮPG$│ Р( И(PL),2)л"DATA ":PL│PLл10:Р:^г:Гprogram line to disk:ЗиЕ П(PG$,1)│","зPG$│ О(PG$, З(PG$)м1):ЫнЗPG$:З#DV,PG$:Р:╕▓:Гcreate data statements;T╖Ю:З"CREATE DATA STATEMENTS":З:З"FORMATS: 0. RETURN TO MENU 1. NOTE,WORD 2. NOTES ONLY 3. WORDS ONLY";Г╝I$│ Т:ЕI$│""з700:ДI│ Й(I$):ЕI┤1 ▒ I▓3 з515;й┴EX$│"DTA":Бж640:ЕF$│""з515:ДБж670;║╞А T │ 1 е HL;┘╦ЕA$(T,0)│""░A$(T,1)│""з730<╨ЕI│1 з PG$│PG$лA$(T,0)л","лA$(T,1)л"," :Д PG$│PG$лA$(T,Iм2)л","<;╒Е З(PG$)▓200з Бж675:Бж670<^┌Л:Е П(PG$,4)│"DATA"зЪ:ДБж675:Ъ N│0:C│0:T$│"PL$(":Бж745:АT│1 е HL:ЕA$(T,0)│""з795>@ Е О(A$(T,0),1)┤│"9"░ О(A$(T,0),1)│▓"0"зPG$│PG$л";">ZPG$│PG$лA$(T,0):C│Cл1>|ЕC│14 з Бж685:C│0:N│Nл1:Бж745>аЛ:Е П(PG$,2)┤▓"="л Л(34) зБж685>н ЕI│2з825>у%N│0:C│0:T$│"WR$(":Бж745:АT│1 е HL:ЕA$(T,1)│""з820?*PG$│PG$лA$(T,1)л" ":C│Cл1?#/ЕC│14 з Бж685:C│0:N│Nл1:Бж745?G4Л:Е П(PG$,2)┤▓"="л Л(34) зБж685?Y9Ъ:Бж835:Бе515?d>:Гhalt?МCЗ"<< PRESS ANY KEY TO CONTINUE >>";?дHI$│ Т:ЕI$│""з840:ДР?╖M:Г help screen@URЮ:Зд9)"command table":З" u.a. SCROLL 1 LINE UP":З" d.a. SCROLL 1 LINE DOWN":З"shift u.a. SCROLL UP/REPEAT":З"shift d.a. SCROLL DOWN/REPEAT"@ЮWЗ" l.a. CURRENT LINE TO #1":З" r.a. CURRENT LINE TO END"A\З" c SET CURRENT LINE #":З" n EDIT CURRENT NOTE":З" w EDIT CURRENT WORD"AЙaЗ" b INSERT BLANK LINE":З" d DELETE CURRENT LINE":З" p GOTO PLAY LOOP":З" i GOTO I/O MENU"A░fЗ" h THIS SCREEN":Бж835:РA└k:Г filenameBJpЕDV│1зЗ:Й"FILENAME";F$:ЕF$│""зР :ДЕ  Ю(F$,"/") ▒  Ю(F$,".") з З"EXTENSION "EX$" WILL BE ADDED":Бе880:ДЕ З(F$)▓8зЗ"NAME TO LONG":Бе880BОuЕDV│м1зЗ:Й"FILENAME";F$:Е З(F$)▓8зЗ"NAME TO LONG":Бе885:ДAR│0:РB╖zЕ З(F$)┤8зF$│F$л" ":Бе890:ДF$│F$лEX$BрAR│0:АT│3 е 11:▀0,17,T,SC$(1),SC$(2)CДЕ Р(SC$(1),1,1)│ Л(255)зT│11:Бе915C(ЙАTT│1е2:Е Ю(SC$(TT),F$)зAR│1C0ОЛTTCTУЛT:F$│ Р(F$,1,8)л"."л Р(F$,9):РCcШ╚0:└1:Бе35                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           L&'В COPYRIGHT (C) T&D SOFTWARE 1985&/Бе5&M┼(X,Y)м(XлDX,YлDY),MN,╜:Р&k┼(X,Y)м(XлDX,YлDY),BL,╜:Р&tБе78&д╚4:╝:Х500:SA│ Ж(186)н256л Ж(187):DX│15:DY│7&шМ VM(5,1),HM(5,1),MN(10),BL(10),GX(5),GY(5),F(5):╔"V31L100T100"'╚4:╚3:╝:─(0,0)м(DX,DY),BL,G'м ТSA,5:ТSAл1,80:ТSAл32,16:ТSAл33,4:ТSAл64,72:ТSAл65,33:ТSAл96,64:ТSAл97,1:ТSAл128,66:ТSAл129,129:ТSAл160,72:ТSAл161,33:ТSAл192,16:ТSAл193,4:ТSAл224,5:ТSAл225,80'├ ─(0,0)м(15,7),MN,G'▀ Ю:Зд9)"meanie patrol":З(- З" THE MEANIES ARE OUT AND THEY ARE AFTER YOU AND YOUR TREA- SURE."(з З" YOU MUST COLLECT ALL FIVE RED DOTS TO COMPLETE A LEVEL. YOU WILL USE THE RIGHT JOYSTICK TO CONTROL YOUR MAN.")'З" YOU WILL HAVE UP TO 1 1/2 MIN- UTES TO COMPLETE EACH LEVEL SO YOU MUST RACE AGAINST THE CLOCK AS WELL AS THE meanies.")2Бж75:Ю)ПЗ:З:З:З:З:З" BONUS MAN EVERY 10000 POINTS. WOULD YOU LIKE THE HIGH SPEED POKE ? Y/N")░K$│ Т:ЕK$│"Y" зТ65495,0:Бе19)┴ЕK$┤▓"N" з17)▌SC│0:NM│3:GL│5:EP│10000)цБж72*╚4:╝:┐1,1:╚3:┴0,1:╗(28,16)м(227,175),╜,B:├(0,0),3,0*MАY│16 е 175 й 28:АX│28 е 227 й 36:Бж71:Л:Л*ФАI│1 е 5:HM(I,0)│ Д(2):HM(I,1)│ Д(100)л50:X│HM(I,1):Y│Iн28л8:Бж3:Л*▄АI│1 е 5:VM(I,0)│ Д(2):VM(I,1)│ Д(100)л50:Y│VM(I,1):X│Iн36л12:Бж3:Л*ўPX│34:PY│40:╜(PX,PY,0)+NG│5:АI│1е5:F(I)│1+ГX│ Б(( Д(150)л50)о2)н2:Y│ Д(150)л20:Е  а(X,Y)┤▓5 ▒  а(Xм2,Y)┤▓5 ▒  а(Xл2,Y)┤▓5 ▒  а(X,Yл1)┤▓5 ▒  а(X,Yм1)┤▓5 з27+в╜(X,Y,3):GX(I)│X:GY(I)│Y:Л+л Я│0+├АI│1 е 5:АGC│1 е GL+єTX│PX:TY│PY:АJ│1е5:Е F(J) з╜(GX(J),GY(J),3)+∙ Л,-!H│ Н(0):V│ Н(1):ЕH┤10 зPX│PXм2 :ДЕH▓53 зPX│PXл2,Q"ЕV┤10 зPY│PYм1 :ДЕV▓53 зPY│PYл1,h#ЕPX│TX ░ PY│TY з43,Ъ$A│ а(PX,PY):ЕA│8 з╔"O1EDEFE":PX│TX:PY│TY:Бе43,и%Е A│6 з64,╖&Е A┤▓7 з42-'АJ│1 е5:ЕGX(J)│PX ░ GY(J)│PY з F(J)│0:╔"O5EDEDO4EDEO5EDE":SC│SCл100:NG│NGм1-)(Е SC▓│EP зEP│EPл10000:NM│NMл1-:)Л:ЕNG┤│0 з59-T*╜(TX,TY,1):╜(PX,PY,0)-]+Л GC-М,D│HM(I,0):X│HM(I,1):Y│Iн28л8:Бж4:Е D│1 з47-б-ЕX▓200 зD│1:Бе47-▒.X│Xл12:Бе49-┼/ЕX┤46 зD│2:Бе45-╒0X│Xм12:Бе49.1Бж3:HM(I,1)│X:HM(I,0)│D:Е PX▓│X ░PX┤│XлDX ░ PY▓│Y ░ PY┤│YлDY з64.J2D│VM(I,0):Y│VM(I,1):X│Iн36л12:Бж4:Е D│1 з53._3ЕY▓160 зD│1:Бе53.n4Y│Yл6:Бе55.В5ЕY┤30 зD│2:Бе51.С6Y│Yм6:Бе55.╫7Бж3:VM(I,1)│Y:VM(I,0)│D:Е PX▓│X ░ PX┤│XлDX ░ PY▓│Y ░ PY┤│YлDY з64.▌8Л.ю9Е Я┤5400 з30/]:╔"O1ADEFO2ADEFO3AEDEO4ADEFO5DEFAO4DEFEDDO3EDEEO2EDDDDEEAO1AAAA":Ю:З" YOU RAN OUT OF TIME!!":Бж75:Бе64/М;B│ Д(5)н1000:Ю:З:Зд11)"BONUS ";:З═"####";B/║<Бж75:SC│SCлB:ЕSC▓│EP зNM│NMл1:EP│EPл10000/╚=ЕGL│1 з63/╘>GL│GLм1/т?Бж72:Бе210@┐0,0:NM│NMм1:Бж72:ЕNM│0 з660 AБе210&BЮ:З:З:Зд11)"game over"0CCЗ:Зд7)"play again ? y/n"0XDK$│ Т:ЕK$│"Y" з20iEЕK$┤▓"N" з680xFТ65494,0:К0ЫG┴0,1:╗(X,Y)м(Xл18,Yл19),╜,BF:Р0чHЮ:З:З" SCORE ";:З═"#####";SC:З" MEN ";:З═"#####";NM0ЁIБж750ЎJР1KЗ@484,"press [enter] to continue";1:LR│ Д( Я):Е Т┤▓ Л(13) з761@MР1KN└4:Бе6                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &'В COPYRIGHT (C) T&D SOFTWARE 1985&1Бе150&j╚3:Х1000:╔"V31T100L100":М DK(12,2),CH(10,1),PH(10,1)&wЮ:╝:┐1,0&УЗд8)"tri-color cards":З'З" THIS CARD GAME USES A DECK OF CARDS WHICH HAVE THREE SUITS. THE SUITS ARE YELLOW, RED, AND BLUE."'OЗ" IN EACH SUIT THERE ARE THE CARDS 0-9, AND DRAW, SKIP, AND WILD."'эЗ" THE OBJECT OF THE GAME IS TO WIN ROUNDS BY DISCARDING ALL OF YOUR CARDS FIRST, OR BY FORCING THE COMPUTER TO HOLD A HAND LARGER THAN 10 CARDS."(y Бж145:Ю:З:З" WHEN YOU WIN A ROUND, THE COM- PUTER WILL GET POINTS ADDED TO HIS SCORE DEPENDING ON HIS CARDS THAT HE IS HOLDING."(° З" WHEN THE COMPUTER WINS A ROUND, YOU WILL GET POINTS ADDED TO YOUR SCORE DEPENDING ON THE CRADS YOU ARE HOLDING.")[ З" WILD CARDS ARE 30, SKIPS ARE 20, DRAW CARDS ARE 10, AND THE REST ARE THEIR FACE VALUE.")в З" THE FIRST TO REACH 300 POINTS ON THEIR SCORE LOSES THE GAME.")о Бж145:Ю*jЗ:З" IN THE MIDDLE OF THE SCREEN ARE TWO PILES OF CARDS. ONE PILE IS FACE UP. ONE PILE IS FACE DOWN. THE FACE DOWN PILE IS THE DRAW PILE. THE FACE UP PILE IS THE DISCARD PILE."+FЗ" IF YOU HAVE A WILD CARD, YOU MAY DISCARD IT ANYTIME AND SE- LECT A SUIT COLOR. A DRAW CARD CAUSES THE OPPONENT TO AUTO- MATICALLY DRAW A CARD. A SKIP CARD CAUSES THE OPPONENT TO SKIP HIS NEXT TURN."+RБж145:Ю,0З:З:З" WITH THE EXCEPTION OF WILD CARDS, YOU MAY ONLY PLAY A CARD IF IT IS THE SAME SUIT AS THE TOP CARD ON THE DISCARD PILE, OR IF IT MATCHES THE NUM- BER OR WORD ON THE TOP CARD OF THE DISCARD PILE.",╨З" IF YOU CANNOT PLAY A CARD IN YOUR HAND, THEN YOU MUST DRAW UNTIL YOU CAN. IF YOU HAVE MORE THAN 10 CARDS IN YOUR HAND AT ANY ONE TIME, YOU LOSE."-AБж145:Ю:З:З:З" IF THE YOU CAN'T BEAT THE COMP- UTER BY THE TIME THE DECK RUNS OUT, THEN THE COMPUTER WINS."-ЧЗ" THE JOYSTICK IS USED TO CONTROL THE ARROW WHICH IS USED AS A CARD POINTER."-щЗ" TO DRAW A CARD FROM THE FACE DOWN PILE, POINT THE ARROW AT THE PILE.".(З" WHEN THE POINTER IS SET, PRESS THE FIRE BUTTON.":Бж145.;CS│0:HS│0:RN│0.IЮ:RN│RNл1.ФЗ:З:З:З:З" ROUND ";RN:З:З:З" HUMAN COMPUTER".┴З═" #### ####";HS;CS.╤ЕHS┤300 з29.єЗ@233,"computer wins!";:Бе105/ЕCS┤300 з31/З@236,"you win!";:Бе105/)Бж145/E Ю:З@234,"shuffling...";/o!АI│0е12:АJ│0е2:DK(I,J)│1:Л:╔"O3DEF":Л/А"NC│39:╝:┐1,0/Ъ#X│80:Y│70:Бж109:Бж141/╘$АI│0е10:PH(I,0)│м1:PH(I,1)│м1:CH(I,0)│м1:CH(I,1)│м1:Л0_%АI│1е7:Бж128:PH(I,0)│CT:PH(I,1)│CL:X│(Iм1)н25:Y│130:Бж110:╔"O4EDEFO5EDEF":Бж128:CH(I,0)│CT:CH(I,1)│CL:Y│10:Бж109:Бж141:╔"O5DEEO4DEE":Л0m&CC│7:HC│70Ф'Бж149:X│140:Y│70:Бж110:TT│CT:TC│CL0о(:ГIF RND(2)=2 THEN4000╖)PT│11T*ЕPT│1 з╞"BM92,114 C4U4NF2NG2":╔"O5EDO2EDFO3E":╞" C1BM92,114U4NF2NG2" :ДX1│(PTм2)н24л16:╞"BM=X1;,122 C4D4NH2NE2":╔"O5EDO2EDFO3E":╞"BM=X1;,122 C1D4NH2NE2"1Й+╔"O5T200L200AA":АTD│0е10:Л:H│ Н(0):P│ Ж(65280)░11Ч,ЕH┤10 з571е-ЕH▓53 з591▒.Е P з421└/Е PT▓1 з491┘0Бж131:Е LF з101 :Д4121CT│PH(PTм1,0):CL│PH(PTм1,1):ЕCT│10 з612M2Е(CT┤▓TT ░ CL┤▓TC)▒(TT│10 ░ CL┤▓TC) з╔"O1EDFEO2FEFDO3FEDFO1FE":Бе412Б3Е CT│12 з M1│CT:M2│CL:Бж136:CT│M1:CL│M2:ЕLF з972╚4X1│PTм1:X│(X1м1)н25:Y│130:┴4,1:╗(X,Y)м(Xл24,Yл36),╛,BF:╔"O3EDFO4E"35┴4,1:╗(140,70)м(168,110),╛,BF:X│140:Y│70:Бж110:TT│CT:TC│CL366HC│HCм1:PH(X1,0)│м1:PH(X1,1)│м1:Е HC│0 з973F7Е TT│11 з413O8Бе743^9Е PT│1 з423o:PT│PTм1:Бе423;Е PT│11 з423Р┬(200,90),6,3:├(200,90),3,33Є?┬(200,110),6,4:├(200,110),4,43√@PR│14DAY1│PRн20л50:╞"BM180,=Y1; C3R4NH2NF2":╔"O3E":╞"BM180,=Y1; C1R4NH2NF2"4{B╔"O3EEEA":АTD│0е10:Л:H│ Н(0):V│ Н(1):P│ Ж(65280)░14ЙCЕV┤10 з714ЧDЕV▓53 з724гEЕ P з654мFБе734╔GЕPR│1 з65 :ДPR│PRм1:Бе654цHЕPR│3 з65 :ДPR│PRл1:Бе655ICL│PRл1:┴4,1:╗(178,60)м(255,120),╛,BF:Бе525CJАTD│0е500:Л:F│0:АI│1 е 10:ЕCH(I,0)│м1 з795uKCT│CH(I,0):CL│CH(I,1):Е CT│10 зF│I:I│100:Бе795бLЕCT│11 ░ (CT│TT ▒ CL│TC)зF│I:I│100:Бе795═MЕCT│12 ░ (CT│TT ▒ CL│TC)зF│I:I│100:Бе795фNЕ CT│TT зF│I:I│1005ЄOЛ:Е F з836(PF│0:АI│1 е 10:ЕCH(I,0)┤▓м1 ░CH(I,1)│TC зF│I:I│10066QЛ:Е F з836NRБж136:Е LF з97 :Д746йSPT│F:X│(PTм1)н25:Y│10:┴4,1:╗(X,Y)м(Xл24,Yл36),╛,BF:╔"O3EDFO4E":CT│CH(PT,0):CL│CH(PT,1)6шT┴4,1:╗(140,70)м(170,110),╛,BF:X│140:Y│70:Бж110:TT│CT:TC│CL7UCC│CCм1:CH(PT,0)│м1:CH(PT,1)│м1:ЕCC│0 з1017'VЕCT┤▓10 з927pWHT(2)│0:HT(3)│0:HT(4)│0:АQ1│1е10:KJ│CH(Q1,1):ЕKJ▓│0 зHT(KJ)│HT(KJ)л17ЭXЛ:MA│HT(2):IA│2:ЕMA┤HT(3) зMA│HT(3):IA│37║YЕMA┤HT(4) зMA│HT(4):IA│48Z┬(200,90),6,IA:├(200,90),IA,IA:╔"O3EDO4EDO1EDO2EDO5EDF":TC│IA:┴4                                                                                                                                                                                                                                                                └┴ ╚ ┼╚├╟┬├├!"╔$╞&┴╚)*╚                                                                                                                                                                                                                     DISK 32 NUM INTRO32 BAS┴SIGMUND BASDICEWORLDBAS бLOTTERYABAS+BASCPINSBAS─BAS-COMPBASЙMUSICINSBAS¤MUSIC BASgMEANIEPLBASOTRI-COLRBAS SHAPERECBAS#DBUINST BAS%▀BACKUP BIN'XSPACPROTBIN(б                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ,1:╗(180,70)м(255,120),╛,BF8#[Бе9683\ЕCT┤▓11 з948<]Бе748L^ЕCT┤▓12 з968__Бж131:ЕLF з1018i`Бе 418waАI│1 е 108МbЕCH(I,0)│м1 з1008╞cЕCH(I,0)▓9 з CS│CSл(4м(CH(I,0)м9))н10 :ДCS│CSлCH(I,0)8╤dЛ:Бе248▀eАI│1 е 108ЇfЕPH(I,0)│м1 з1049.gЕPH(I,0)▓9 з HS│HSл(4м(PH(I,0)м9))н10 :ДHS│HSлPH(I,0)99hЛ:Бе249ViЗ@328,"play again ? y/n"9kjK$│ Т:ЕK$│"Y" з29~kЕ K$┤▓"N" з1069ДlК9цm┴4,1:╗(X,Y)м(Xл24,Yл36),╜,B:┴2,1:╗(Xл2,Yл1)м(Xл22,Yл35),╜,B:┴3,1:╗(Xл4,Yл2)м(Xл20,Yл34),╜,B:Р:?nБж109:╞"C=CL;BM=X;,=Y;":И CTл1 Бе111,112,113,114,115,116,117,118,119,120,121,124,126:[o╞"BM+10,+14 R6D8L6U8":Р:xp╞"BM+14,+14 NG2D8R2L4":Р:Цq╞"BM+10,+14 R4D4L4D4R4":Р:╡r╞"BM+10,+14 R4D4NL2D4L4":Р:╥s╞"BM+10,+14 D4R4NU2D4":Р:ёt╞"BM+10,+14 NR4D4R4D4L4":Р;u╞"BM+10,+14 NR4D8R4U4L4":Р;,v╞"BM+10,+14 R4D2G2D4":Р;Pw╞"BM+10,+18 R4 BM=X;,=Y;":Бе111;rx╞"BM+10,+14 ND4R4D4NL4D4L4":Р;═y╞"C4BM+6,+4 D5E2F2U5":╞"C3BM=X;,=Y; BM+8,+12 R4L2D5L2R4":╞"C2BM=X;,=Y; BM+12,+20 D5R4";Ўz╞"C4BM=X;,=Y;BM+14,+28 D5R2E2U1H2L1";№{Р ЗБж128:PH(F,0)│CT:PH(F,1)│CL:HC│HCл1:X│(Fм1)н25:Y│130:Бж110:Р>!ИЕ CC│10 зLF│1:Р>2ЙF│0:АJ1│1е10>QКЕ CH(J1,0)│м1 зF│J1:J1│100>dЛЛ:ЕF│0 зLF│1:Р>кМБж128:CH(F,0)│CT:CH(F,1)│CL:CC│CCл1:X│(Fм1)н25:Y│10:Бж109:Бж141:Р>фН╞"C3BM=X;,=Y; BM+8,+3 G2F2G2F2G2F2G2F2G2F2G2F2G2F2G2"?О╞"C2BM=X;,=Y; BM+14,+3 G2F2G2F2G2F2G2F2G2F2G2F2G2F2G2"?ZП╞"C4BM=X;,=Y; BM+20,+3 G2F2G2F2G2F2G2F2G2F2G2F2G2F2G2"?`РР?ЗСЗ@484,"press [enter] to continue";?еТR│ Д( Я):Е Т┤▓ Л(13) з146?лУР?╢Ф└4:Бе3?їХR1│ Д(10)м1:R2│ Д(3)м1:DK(R1,R2)│0:CT│R1:CL│R2л2:NC│NCм1:Р@Ц└4:Бе3                                                                                                                                                                                                                                                             &'В COPYRIGHT (C) T&D SOFTWARE 1984&0Бе82&=╚4:Х3000&GNP│30&^М PC$(30,1),PC(30)&tАI│1 е NP:PC(I)│0&МН PC$(I,0),PC$(I,1)&ФЛ I&╢ Ю:Зд6)"shape recognization":З'8 З" STUDIES SHOW THAT YOUNG CHILD- REN BENEFIT WHEN THEY LEARN TO EXAMINE THINGS AND SHAPES IN DETAIL AT AN EARLY AGE.":З'╚ З" BEING ABLE TO SEE DETAIL IN SHAPES PROMOTES BETTER SPATIAL RELATIONSHIP JUDGMENT, MEMORY RETENTION, AND BETTER READING SKILLS."'╙ Бж49:Ю(А З" WITH THIS PROGRAM, A YOUNG CHILD WILL BE PRESENTED TWO SHAPES OR FIGURES. SOMETIMES THE SHAPES WILL BE THE SAME, SOMETIMES THEY WILL BE DIFFER- ENT."(щЗ" NOTE : FOR THE SHAPES TO BE THE SAME, THEY MUST BE EXACTLY THE SAME IN SHAPE, SIZE, AND COLOR.";)JЗ" THE CHILD WILL HAVE TO PRESS s IF THEY ARE THE SAME, AND d IF THEY ARE DIFFERENT.")░З" THIS PROGRAM MAY ALSO SERVE TO INTRODUCE A YOUNG CHILD TO LEARNING WITH COMPUTERS.":Бж49*YЮ:З:З:З:З:З:З" A TEST OF 30 EXERCISES WILL BE PRESENTED NOW. HOW MANY SECONDS SHOULD BE ALLOWED FOR EACH RE- SPONSE? (1-99) ";:Й RT:ЕRT┤1 ▒ RT▓99 ▒ RT┤▓ Б(RT) з17*nNC│0:А GC│1 е NP*ЙSN│ Д(NP):Е PC(SN) з19*ЦPC(SN)│1*╟Ю:З@232,"EXERCISE # ";:З═"##";GC:┐0,1:а255,2*эа200,3:а150,2:а100,1:АTD│0е1000:Л*■╝:╚4:┐1,1:╚3+.┴3,1:╗(126,191)м(130,191мRT),╜,BF:YT│191мRT+{RN│ Д(3):Е RN│1 з A$│PC$(SN,0):B$│PC$(SN,0) :Д A$│PC$(SN,0):B$│PC$(SN,1)+б╞"BM 30,60 X A$; BM 158,60 X B$;"+╕а 200,2: Я│0:TL│RT+ЇЕ Я▓│60 зTL│TLм1:┴3,1:╗(126,YT)м(130,YT),╛:YT│YTл1: Я│0,Е TL▓0 з31,6Ю:З:З:З:З:З:З" you took too long!":З:Бе40,LK$│ Т:ЕK$│"S" з35,] ЕK$┤▓"D" з28,l!Е RN│1 з39,u"Бе36,Е#Е RN┤▓1 з39,╥$а200,4:а150,4:а200,4:Ю:З:З:З:З:З:З:З" that is correct!":NC│NCл1:З,Ё%З" correct ";NC,∙&Бе42-&'а1,5:Ю:З" SORRY, THAT'S NOT RIGHT.":З-w(Е RN│1 зЗ" THE SHAPES WERE THE SAME." :ДЗ" THE SHAPES WERE NOT THE SAME."-Х)З:З" CORRECT ";NC-Ю*Бж49-з+Л GC-╚,Ю:З" FINAL RESULTS:":З-х-З" CORRECT ";NC..З" EXERCISES 30":З.7/З" PERCENTAGE :";:З═"###.#%";NCо30н100.?0З:К.f1З@484,"press [enter] to continue";.z2Е Т┤▓ Л(13) з50.А3Р.░4Ж C2R8F8D8R8D8C3L16U16,C2R8F8D8C3R8D8L16U16.╨5Ж C3D8F6U8R8D8,C3D8F4U8R8D8.ў6Ж C3F20D8L12D20,C3F20D8L8C2L4C3D20/=7Ж C2R8D8L8U8E8R8NG8D8NG8L8NG8U8,C2R8D8L8U8E10R8NG10D8NG10L8NG10U8/l8Ж C2R4D4L4D4R4D4L4D4,C2R4D4L4D4R4D4ND2L4D4/Ш9Ж C3L12D12R12D12H12,C3L12D12R12D12C2H12/╕:Ж C0R8C2D8C3L8,C3R8C2D8C0L8/╪;Ж C2D46R40H30L6,C2D46R40H300 <Ж C3U10R10D40L20E30,C3U10C2R10C3D40C2L20C3E300l=Ж C3D30R30U30L30 U2R2U2R2U2R2U2R2U2R2D30R30U30L30,C3D30R30U30L30 U2R2U2R2U2R2U2R2D30R30U30L300о>Ж C2D30R30U30L30E10R30U30L30D30,C2D30R30U30L30E14R30U30L30D300╪?Ж C3F40D30L30U30R30,C3F36D30L30U30R301 @Ж C0F20C2E20F20G20H20,C0F20C2E20F20G20H20R201KAЖ C3D20R20D20R20D20L20D20L20D20,C3D20R20D20R20D22L20D20L20D201eBЖ C0D40R40,C0D40R40U41ЗCЖ C3NR8D16R8U8L4,C3NR8D16R8U81╜DЖ C2BF20NE20NF20NG20NH20,C2BF20NE20NF20NG20C3NH202 EЖ C2BF20NU20NE20NR20NG20ND20NG20NL20NH20,C2BF20NE20NR20NG20ND20NG20NL20NH2025FЖ C3E10F40D30L20,C3E10C2F40C3D30L202YGЖ C2D70R50H40E40,C2D70R46H40E402БHЖ C2D70R50H40C3E40,C2D70R46H40C3E402ЯIЖ C3H10D20E10,C3H10D22E122╔JЖ C3G10D10R10U10H10,C3G10D10R10U10H142эKЖ C2R40F40G40L40,C2R40F36G44L403LЖ C3D40R40D40L50U70,C3D40R40D40L54U703QMЖ C3D20R20D20R20U20L20U20,C3D20R20D20R20C2U20C3L20U203}NЖ C0D80R80C3U80C2L80,C0D80R80C2U80C3L803╣OЖ C3D4R4D4L4D4L4D4L4U4R4U4R4,C3D4R4D4L8D4L4D4L4U4R4U4R43┌PЖ C3G4D4R4C0H20,C3G4DR4C0H304 QЖ C3D4R4D4L4D4L4D4R4D4R4,C3D4R4D4L4D6R4D4R44R└4:Бе3                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ▄&'В COPYRIGHT (C) T&D SOFTWARE 1985&E :Г'''''''''''''''''''''&c :Г BASIC LOADER AND '&Б :Г INSTRUCTIONS FOR '&Я( :Г "BACKUP" UTILITY '&╜2 :Г'''''''''''''''''''''&Ў<Ю0:З @ 233," DISK BACKUP ";:З@297," INSTRUCTIONS ";' FА T│1 е 1000:Л T'ЎPЮ:З @ 32," NORMAL BACKUP TIME, USING THE RSDOS BACKUP COMMAND, WILL TAKE ABOUT THREE AND A HALF MUNUTES IF YOU HAVE ONE DRIVE, AND ABOUT FOUR MINUTES IF YOU HAVE TWO DRIVES. USING THIS UTILITY, YOU CAN FORMAT A DISK IN 15(ОZЗ" SECONDS, BACKUP WITH ONE DRIVE IN TWO MINUTES 20 SECONDS AND BACKUP A DISK WITH TWO DRIVES IN ONLY ONE AND A QUARTER MINUTES.":Бж 200){dЮ:З @ 32," IF YOU HIT A BAD SECTOR, THE PROGRAM WILL STOP AND YOU WILL BE GIVEN THREE CHOICES ON HOW TO PROCEED: TRY AGAIN, TRY AGAIN UNTIL THE COMPUTER CAN COPY THE BAD SECTOR, OR SKIP THE BAD SECTOR. IF YOU CHOOSE*PnЗ" OPTION ONE, ONE ATTEMPT WILL BE MADE TO COPY THE BAD SECTOR. OPTION TWO WILL TRY UNTIL THE BAD SECTOR IS COPIED OR YOU ABORT. OPTION THREE WILL GO ON AND COPY THE REMAINDER OF THE DISK.":Бж 200*ЇxЮ:З @ 32," AT THE CONCLUSION OF THE BACK- UP, THE PROGRAM WILL REMAIN IN AN ACTIVE MODE AND ASK IF YOU WANT TO CONTINUE AND BACKUP ANOTHER DISK.":Бж200+▐ВЮ:З@32," THE PROGRAM IS WRITTEN IN MACHINE LANGUAGE AND IS VERY FAST. THESE INSTRUCTIONS HAVE NO AFFECT ON THE PROGRAM, AND MAY BE IGNORED, ERASED, OR USED AS A LOADER. IF IGNORED OR ERASED, YOU MAY ENTER THE,hМЗ" BACKUP UTILITY INTO THE COMP- UTER WITH A 'LOADM BACKUP' COMMAND. THE ADDRESSES ARE: &H1000, &H174D AND &H1192.":Бж 200,╧ЦЮ:З @ 32," NO INSTRUCTIONS WILL BE NEEDED IN THE FUTURE BECAUSE THEY ARE IN THE PROGRAM ITSELF."-УаЗ" YOU MAY USE ONE DISK DRIVE OR TWO, AND YOU MAY BACKUP FROM DRIVE 1 TO DRIVE 0 OR DRIVE 0 TO DRIVE 1. IF YOU HAVE JUST ONE DRIVE, THE COMMAND WILL BE 'DRIVE 0 TO DRIVE 0'.":Бж200.`кЮ:З@32," BE SURE WHEN YOU USE ONE DRIVE THAT YOU HAVE THE DESTINATION DISK IN THE DRIVE AS THE PROGRAM WILL FORMAT THE DISK IMMEDIATELY UPON PRESSING THE DESTINATION NUMBER KEY.":Бж 200.ь┤Ю:З@32," THE NEXT TIME YOU PRESS THE enter KEY THIS PROGRAM WILL END AND THE BACKUP UTILITY AUTO LOAD AND EXECUTE.":Бж 200. ╛ЧM"BACKUP":Ю:в/н╚З@483,"PRESS eNTER TO CONTINUE..";:А T│1 е 25:Л T:З@489,"EnTER";:А T│1 е 25:Л T:З@489,"ENtER";:А T│1 е 25:Л T:З@489,"ENTeR";:А T│1 е 25:Л T:З@489,"ENTEr";:А T│1 е 25:Л T/█╥I$│ Т:ЕI$┤▓ Л(13) з 200 :Д Е I$│ Л(13)з Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 N         ╬О╜ЕО╜СО+╜▌╖jОA╜▌╖k░j╖l╛└┐Z0┐\0┐^0┐`0┐b0┐d╜я╜МoЯ^жЯ^Б#%О ╜ЕОT╜С~А╜чОр╜ЕОt╜СО┐fО пЯbЖзЯ`ЖзЯZ╜&'oЯf╛f0┐flЯblЯ`МZ'~жЯ`Б%╘lЯ^ ╚О╜ЕОЪ╜СжЯ`ОmжЖ╜AО╖╜С╠13╜жБ1'!Б3'5О╜С╜'нЯаОRlА&╛МZ%ў щ╜&▓О╜ЕОK╜СoЯf~+Ж зЯfО╜Е~+╜яжЯ^АзЯ^Ор╜ЕОЗ╜СО┐fО пЯbЖзЯ`mЯf& ЖзЯZ╜&j╛f0┐flЯblЯ`жЯ`Б%╒0Ию┐fоЯb0Йю┐hОпЯbЖзЯ`mЯf& ЖзЯZ╜&&О■hжАб└&М%є╛f0┐f|hlЯ`жЯ`Б%├lЯ^■hяЯbМZ% b~уЯИЖ`зАМ%∙9жА'QН °4VoнЯа5╓╠ 4жЯИЛКПзЯИО└0'энЯабф%Їбa"Ё╞`чЯИ2bБ '4Н┬Ж Н╛5ВН▓╠03Н┬А09╬ў╢j ╬ ╢kзЯ\ОНЗ}l& @ Е Ж1НБНСОр~ЕОЄЯИжЯ^НжЯ`4ОmжЖзЯ`нЯ└5зЯ`жЯd9╞/\А *√Л:ЙБ0&Й╞ ╜ЩШ~Щ╬fM+ ╬w ╬С ╬мО╜Е1╜СО┐╜СО█╜С╜г~ТОжЙ АзАМ%їОа╜ЕО\╜СoЯZoЯ^нЯ└жЯd& вP 'lЯ^жЯ^Б#%п9Б%╢ ЖК╖ @╞Sў HЩЩ╜╓▐О╖ЯИжЯ^╜AО ╜╒зО┐ ГО О K~╒G╢ HДD' оп~\DISK BACKUP UTILITY SOURCE DRIVE NUMBER? DESTINATION DRIVE NUMBER? INITIALIZING TRACK --> READING TRACK --> WRITING TRACK --> ERROR ENCOUNTERED IN SECTOR 1 - TRY AGAIN 2 - "INFINITE" RETRY 3 - SKIP THE SECTOR HOW DO YOU WISH TO PROCEED? NOW DOING AN "INFINITE" RETRY HOLD DOWN ANY KEY TO STOP GOT IT!FUNCTION COMPLETEDRIVE NOT READX!DISKETTE WRITE PROTECTED!DEST. DISKETTE WRITE ERRORVERIFICATION ERROR BACKUP TERMINATED IN ERROR PRESS ENTER TO  ■   №               3┐є є є 3ў√ 3 є є є √ є   √ є √ 3?ў │ є │ є │  Т                                                                                                                                                                                                                                                                                                                                                                                                                                        Ч&H~.r¤?Ї№?Ї4╠гф&╠ ╠эф5Г&~'q╠454╠OцД4╠OцДуфэф55чД╠454╠OцД4╠OцДуфэф55чД╠OцД4╠╠М'уф0 їэф╠OцДуфэф5¤?Є№?ЄOцД45¤?Є№?Є4╠гф'╠ ╠эф5Г&~'%╠45¤?Є№?Є4№?Їьфпфгф"╠ ╠эф5Г&~'g№?Є4№?Їьфпфгфэф5¤?Є~'%№?Є45¤?Ё№?Ё9╜й(О'Н╞жА4VнЯа5VZ&є~'ФSCORE :O╞4Z&√№?▓45Г'%Г'lф єГш%Гшla єГd%Гdlb єГ %Г lc єчd╞5M&Ж 4VнЯа5VZ&ю5Л04VнЯа5V 5Л04VнЯа5VZ&ё сО(!╞ жА4VнЯа5VZ&є~(* SHIPS :O╞4Z&√№?м45Г'%Г'lф єГш%Гшla єГd%Гdlb єГ %Г lc єчd╞5M&Ж 4VнЯа5VZ&ю5Л04VнЯа5V 5Л04VнЯа5VZ&ё с╠45Ж =├4ИЦЙДЧЙ5╙И▌И╠454ЦЙДрлaЧЙ5О(ч╞жА4VнЯа5VZ&є~)PRESS [ENTER] TO CONTINUE╠Г' Ж ╞ОRзАZ&√4tнЯа5tЙO4╠ гф&╠ ╠эф5Г&~)B~)9№?╬4╠└╠М'уф0 їэф№?╠уфэф№?╚уфэф5¤?╪№?╨4╠гф'╠ ╠эф5Г&~)·№?╪454╠Ё455чД№?╪4╠уфэф54╠455чД№?╪4╠ уфэф54╠ї455чД№?╪4╠!уфэф54╠455чД~*_№?╪454╠455чД№?╪4╠уфэф54╠455чД№?╪4╠ уфэф54╠455чД№?╪4╠!уфэф54╠_455чД№?╪4╠@уфэф54╠ 455чД№?╪4╠Aуфэф54╠ 455чД9№?─4╠└╠М'уф0 їэф№?└уфэф№?╚уфэф5¤?╪№?╪454╠(455чД№?╘4╠гф'╠ ╠эф5Г&~+2№?╪4╠ уфэф54╠к455чД№?╪4╠@уфэф54╠к455чД~+h№?╪4╠ уфэф54╠U455чД№?╪4╠@уфэф54╠U455чД№?╪4╠`уфэф54╠i455чД№?╪4╠Ауфэф54╠A455чД9№?╬4╠└╠М'уф0 їэф№?╠уфэф№?╚уфэф5¤?╪№?╪454╠455чД№?╪4╠уфэф54╠455чД№?╪4╠ уфэф54╠455чД№?╪4╠!уфэф54╠455чД№?╪4╠@уфэф54╠455чД№?╪4╠Aуфэф54╠455чД9№?─4╠└╠М'уф0 їэф№?└уфэф№?╚уфэф5¤?╪№?╪454╠455чД№?╪4╠ уфэф54╠455чД№?╪4╠@уфэф54╠455чД№?╪4╠`уфэф54╠455чД№?╪4╠Ауфэф54╠455чД9№?╞4╠└╠М'уф0 їэф№?┬уфэф№?╚уфэф5¤?╪№?╪454╠ 455чД№?╪4╠ уфэф54╠*455чД№?╪4╠@уфэф54╠455чД№?╪4╠`уфэф54╠"455чД№?╪4╠Ауфэф54╠"455чД9№?╞4╠└╠М'уф0 їэф№?┬уфэф№?╚уфэф5¤?╪№?╪454╠455чД№?╪4╠ уфэф54╠455чД№?╪4╠@уфэф54╠455чД№?╪4╠`уфэф54╠455чД№?╪4╠Ауфэф54╠455чД9╠║OцД4╠╠М'уф0 їэф╠╗OцДуфэф5¤?╚№?╚4╠уфэф5¤?╩╠45¤?▓╠45¤?ь╠45¤?м№?м45Г&~?2╜'u╠ ╟454╠455чД№?╚4╠гф'╠ ╠эф5Г&~/.╠ ╦454╠455чД╠ ┼454╠455чД╠ ├454╠455чД╠ └454╠455чД╠ "454╠ "OцД4╠°кфъaэф55чД№?╚¤?╢№?╢454╠455чД№?╢├¤?╢│?╩"~/Т№?╚4╠@уфэф5¤?╕№?╚4╠_уфэф5¤?║№?╕¤?╢№?╢454╠U455чД№?╢├¤?╢│?║"~/р╠45¤?╨╠45¤?╬╠45¤?╠╠45¤?т╠45¤?╥╜)C╠ 45¤?░╠¤?╢╠?Ц4№?╢уфэф54╠455чД№?╢├¤?╢Г "~0K╠¤?╢╠ ╜&K4╠ьфпфгфэф5¤?┬№?╢4╠?ауфэф54№?┬455чД╠45¤?╞╜-№?╢├¤?╢Г "~0~╠45¤?к№?к4╠ьфпфгф"╠ ╠эф№?тдффaэф5Г&~>╖╠45¤?о╠¤?╢╠?Д4№?╢уфэф54╠455чД╠?К4№?╢уфэф54╠ ╜&K4╠ьфпфгфэф55чД╠?Р4№?╢уфэф54╠ ╜&K4╠ьфпфгфэф55чД№?╢├¤?╢Г"~1╠¤?╢╠?К4№?╢уфэф5¤?└№?└OцД45¤?└╠?Р4№?╢уфэф5¤?─№?─OцД45¤?─№?╢4╠?Дуфэф5¤?║№?║OцД45¤?╘╜*Ц№?╢├¤?╢Г"~1ж№?о4╠ьфпфгф"╠ ╠эф№?тдффaэф5Г&~>Э╠¤?╓╠¤?ю╠Г' Ж ╞ОRзАZ&√4tнЯа5tЙO45¤?р№?р4╠гф'╠ ╠эф5Г&~2▓№?╥4╠уфэф5¤?╥№?╥45Г&~5Ї╠¤?╢№?╢4╠?Дуфэф5¤?╘№?╘OцД45¤?╘№?╘45Г&~4д№?╢4╠?Руфэф5¤?─№?╢4╠?Куфэф5¤?└№?─OцД45¤?─№?└OцД45¤?└╜,h№?╨4╠гф'╠ ╠эф5Г&~3w№?└4╠ьфпфгфэф5¤?└~3И№?└4╠уфэф5¤?└№?└4╠  гф'╠ ╠эф5Г&~3┤╠45¤?└№?└4╠ гф'╠ ╠эф5Г&~3р╠45¤?└╜*Ц№?╢4╠?Куфэф54№?└455чД№?└4№?╠гф'╠ ╠эф5Г&~4O№?─4№?╬гф'╠ ╠эф5Г&~4L╠45¤?т~4д№?╠4╠уфэф№?└гф'╠ ╠эф5Г&~4д№?─4№?╬гф'╠ ╠эф5Г&~4д╠45¤?т№?╢├¤?╢Г"~2╚╠¤?╢╠?Ц4№?╢уфэф5¤?╕№?╕OцД45Г&~5╦╠45¤?╞╠?а4№?╢уфэф5¤?║№?║OцД45¤?┬╜-─№?╨4╠гф'╠ ╠эф5Г&~5K№?┬4╠ьфпфгфэф5¤?┬~5\№?┬4╠уфэф5¤?┬№?┬4╠  гф'╠ ╠эф5Г&~5И╠45¤?┬№?┬4╠ гф'╠ ╠эф5Г&~5┤╠45¤?┬╜-№?║454№?┬455чД№?╢├¤?╢Г "~4╝№?╥4╠ьфпфгфэф5¤?╥№?р4╠^гф'╠ ╠эф5Г&~6[№?╬4╠ьфпфгф"╠ ╠эф5Г&~6[╜+Я№?╬4╠ьфпфгфэф5¤?╬╜)C№?р4╠ гф'╠ ╠эф5Г&~6╝№?╬4╠ьфпфгф%╠ ╠эф5Г&~6╝╜+Я№?╬4╠уфэф5¤?╬╜)C№?р4╠Aгф'╠ ╠эф5Г&~7╜+Я№?╨4╠гф'╠ ╠эф5Г&~7╠45¤?╨~7╠45¤?╨╜)C№?р4╠ гф'╠ ╠эф5Г&~9╧№?╨4╠гф'╠ ╠эф5Г&~7u№?╠4╠уфэф5¤?┬~7М№?╠4╠ьфпфгфэф5¤?┬№?╬45¤?╞╠45¤?ъ№?ъ45Г&~9╧№?╞4╠└╠М'уф0 їэф№?┬уфэф№?╚уфэф╠ уфэф5¤?╪№?╪454╠к455чД№?╪454╠U455чД№?╪454╠455чД╠¤?┌╠?Д4№?┌уфэф5¤?╘№?╘OцД45Г&~9╠?К4№?┌уфэф5¤?└╠?Р4№?┌уфэф5¤?─№?└OцД45¤?└№?─OцД45¤?─№?└4№?┬гф'╠ ╠эф5Г&~9№?─4№?╞гф'╠ ╠эф5Г&~9╜,h№?╘454╠455чД№?о4╠ьфпфгфэф5¤?о№?▓4╠·уфэф5¤?▓№?┌├¤?┌Г"~8&№?╨4╠гф'╠ ╠эф5Г&~9W№?┬4╠уфэф5¤?┬~9n№?┬4╠ьфпфгфэф5¤?┬№?┬4╠ьфпфгф"╠ ╠эф5Г&~9а╠45¤?ъ№?┬4╠  гф'╠ ╠эф5Г&~9╠╠45¤?ъ~7а№?ю├¤?ю│?ь"~2X№?╓4╠?Дуфэф5¤?ш№?шOцД45¤?╘╠?К4№?╓уфэф5¤?└№?└OцД45¤?└╠?Р4№?╓уфэф5¤?─№?─OцД45¤?─№?╘4╠гф'╠ ╠эф5Г&~?№?─4№?╬гф'╠ ╠эф5Г&~>?╠45¤?т№?╘45Г&~>И╜*Ц№?╓4╠?Куфэф54№?└455чД№?╓4╠?Руфэф54№?─455чД№?╓├¤?╓Г"~2R~2№?к4╠ьфпфгфэф5¤?к~0▄№?т4╠гф'╠ ╠эф5Г&~>Ё№?м4╠ьфпфгфэф5¤?м№?ь4╠ьфпфгф"╠ ╠эф5Г&~?/№?ь4╠ьфпфгфэф5¤?ь~.╤╜'u╜й(9Gўў         ўў%@?И     &    &H