Р/╛ З@Y,"FEBRUARY, ":Р/.┐ З@Y," MARCH, ":Р/D└ З@Y," APRIL, ":Р/Y┴ З@Y," MAY, ":Р/o┬ З@Y," JUNE, ":Р/Е├ З@Y," JULY, ":Р/Ь─ З@Y," AUGUST, ":Р/╡┼ З@Y,"SEPTEMBER, ":Р/═╞ З@Y," OCTOBER, ":Р/х╟ З@Y,"NOVEMBER, ":Р/¤╚ З@Y,"DECEMBER, ":Р0-@ В A=YEAR;B=MONTH;C=DAY;D=DF1900;E=WEEK DAY0JEВ I,X,Y,Z WORK VARIABLES0ГJD│365нAл  Б((Aл3)о4)лC:A(2)│28:Е  Б(Aо4)н4│AзA(2)│290вTЕB▓1з АI│1еBм1:D│DлA(I):ЛI0и^Р0╛#(X│  Б((Dм1)о1461)0╧#2Y│Dм1мXн14610█#В S,T,U IS DIFFERENCE TRIAD2╫NHВ V IS VALUE2∙NRВ W IS DAYS BETWEEN TWO DATES3N\В OTHERS ARE TEMPORARY OR FLAGS3INДВ STMT 4180 CALCULATES VALUE OF PERIOD. E IS DAY OF WEEK FOR A,B,C DATE2КN*В M,N,O IS STARTING TRIAD2жN4В P,Q,R IS ENDING TRIAD2╞N>В S,T,U IS DIFFERENCE TRIAD2╫NHВ V IS VALUE2∙NRВ W IS DAYS BETWEEN TWO DATES3N\В                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                IN THE GOLDEN GATE AREA",0,0,9,0,0,0AQЬРЖ"IN THE WESTERN WALL AREA",0,12,10,8,0,0A{ЬЪЖ"IN THE ZION GATE AREA",0,0,11,9,0,0AвЬдЖ"IN THE ARAB QUARTER",0,0,0,0,0,0A▌ЬоЖ"ON A STREET NEAR THE WESTERN WALL",9,0,13,0,0,0B Ь╕Ж"IN THE JEWISH QUARTER",13,13,14,12,0,0B7Ь┬Ж"IN THE JEWISH QUARTER",13,15,13,13,0,0BZЬ╠Ж"IN A SYNAGOGUE",14,0,0,0,0,0BТЬ╓Ж"IN A HIDDEN ROOM IN THE SYNAGOGUE",0,0,0,15,0,0B╩ЬрЖ"ON A MOUNTAIN OVERLOOKING JERUSALEM",0,21,0,0,0,0BщЬъЖ"IN A CAVE",0,22,0,21,0,0CЬЇЖ"IN AN UNDERGROUND CAVERN",0,23,20,0,0,0CCЬ■Ж"IN AN UNDERGROUND CAVERN",0,0,0,0,0,0CxЭЖ"ON THE SHORE OF THE DEAD SEA",17,25,22,21,0,0CнЭЖ"ON THE SHORE OF THE DEAD SEA",18,25,23,21,0,0CтЭЖ"ON THE SHORE OF THE DEAD SEA",19,25,24,22,0,0DЭ&Ж"ON THE SHORE OF THE DEAD SEA",0,25,24,23,0,0DZЭ0Ж"IN THE DEAD SEA. Y0U HAVE BURNED YOUR EYES OUT!!",0,0,0,0,0,0DЭ:Ж"IN NORTH PARADISE",0,7,0,0,0,0DгЭDЖ"IN WEST PARADISE",0,0,7,0,0,0D╚ЭNЖ"IN SOUTH PARADISE",7,0,0,0,0,0DьЭXЖ"IN EAST PARADISE",0,0,0,7,0,0Ezа(ЖN,S,E,W,U,D,GET,TAK,PUT,DRO,WEA,UNW,REM,HEL,RUN,WAL,GO,LOO,REA,EXA,PUS,TOU,MOV,INV,I,SAY,YEL,SCR,SHO,OPE,CLO,SAV,LOA,SCO,QUI,PRA,UNL,PREE▐аМЖGLA,TAB,CAL,BAG,COI,RIN,SCR,NOR,SOU,EAS,WES,UP,DOW,HAL,DOO,KEY,SHE,AME,STA,BUT,BOO,LOC,GAT,WALF{аЁЖA PAIR OF GLASSES,AN OLD WOODEN TABLE,*GOLDEN CALF*,*BRONZED BAGEL*,*GOLD COINS*,*RUBY RING*,*DEAD SEA SCROLL*,,,,,,,*SILVA HALVA*,A DOOR,A SET OF KEYSFхб"Ж*ANCIENT SHEKELS*,,*SHEPHERD'S STAFF*,RUBY COLORED BUTTON ON THE GOLDEN GATE,*ARCHAIC BOOK*,,,GбTЖ1,4,1,1,1,3,1,0,0,0,0,0,0,1,0,1,1,0,1,0,3,0,0,0GQб╕Ж6,16,28,14,27,17,18,,,,,,,26,20,1,29,0,10,8,21,,,GВп╚AD│ Ж(188)н256л1264:А X│AD е ADл52:НQ:ТX,Q:ЛGгп╥ТADл4, Ж(188):ТADл31, Ж(188)G╗п·╣ Г│AD:╣ Г1│ADл26:РH░,Ж189,179,237,142,6,0,16,142,4,0,253,8,0,166,128,167,160,252,8,0,131,0,1,38,241,57Hn░РЖ142,4,0,16,142,6,0,166,132,230,128,192,125,39,4,167,160,32,244,30,1,131,4,1,126,180,244Hп╦ З"I DON'T KNOW HOW TO":З" " Л(34)A$ Л(34)" SOMETHING.":Бе150H┼╦!╚0,1:└1:Х300:Бе20,237,142,6,0,16,142,4,0,253,8,0,166,128,167,160,252,8,0                                                                                                                                                                                                                                                                  J& В J.R.LEWIS&,В 4051 MOUNTAIN DRIVE&KВ SAN BERNARDINO CA. 92407&l:ГCONVERSION BY CHROMASETTE &М :ГCOPYRIGHT (C) CLOAD 1981&Ч МA(12)&╢Ю:З д8);"TWO CALENDARS..."&¤З"FIRST YOU ENTER A STARTING DATE.THEN YOU ENTER A WAY OF GETTING"'?(З"TO A SECOND DATE: EITHER BY DAYS, WEEKS OR A NEW DATE."'Ж2З:З"DAILY OR WEEKLY VALUES ASSOCI- ATED WITH THE PERIOD MAY ALSO"'Щ<З"BE ENTERED."'еbV│0:W│0'║cАI│1е12:НA(I):ЛI'тdЗ:З"STARTING DATE: (M,D,Y)";:ЙB,C,A'∙gБж5000:ЕH│1з Бе100(iЮ:K│0:P│A:Q│B:R│C(;nF│C:C│1:Бж8000:Бж9000:Бж7000:C│F:Бж8000(MsБж6000:Бж7070(jxD│DлW:Бж9000:M│A:N│B:O│C(ШВK│192:F│C:C│1:Бж8000:Бж9000:Бж7000:Бж4000(вчБе100(┐аA(2)│28:H│0:ЕW┤0з Бе4020(чкS│M:T│N:U│O:M│P:N│Q:O│R:P│S:Q│T:R│U) ┤Е(N│2)░(O│29)░( Б(Mо4)н4│M)зH│1)/╛Е(Q│2)░(R│29)░( Б(Pо4)н4│P)зH│1)C╚X│Qм1:ЕX│0зX│12)e╥ЕO▓RзR│RлA(X):Q│X:ЕX│12зP│Pм1)o▄U│RмO)ЕцЕN▓QзQ│Qл12:P│Pм1)ХЁT│QмN:S│PмM)╢З@416,;:Е(S│0)░(T│0)з Бе4150)╦ ЕS з ЗS;"YEARS";)сЕT з ЗT;"MONTHS";)їЕU з ЗU;"DAYS";*"ЕH з З"*";:В INDICATES LEAP YEAR DAY*',З"."*W6J│ Б( В(W)о7):I│  В(W)мJн7:ЕJ з ЗJ;"WEEKS";*k@ЕI з ЗI;"DAYS";*АJЗ".":ЗW;"DAYS.";*лTЕV┤▓0з З" VALUE"; В( Б(WнVн100)о100);*╔^З@406,"";:Й"";EN:Ю*╧ЗР*цИH│0:ЕA▓99зA│Aм1900+ ТЕA┤ м147з Бе5999:В 1752 IS LIMIT+%ЬЕ  Б(Aо4)н4│AзA(2)│29+?жЕ(B┤1)▒(B▓12)з Бе5999+[░Е(C┤1)▒(C▓A(B))з Бе5999+aьР+koH│1:Р+ЛpБж7070:З"OPTION TYPES ARE:"+пzЗ" 1 # OF DAYS FROM START DATE"+╘ДЗ" 2 # OF WEEKS FROM START DATE"+ъОЗ" 3 TO NEW DATE",СЗ" 4 DAILY VALUE -"V, УЗ" 5 WEEKLY VALUE -"Vн7,1ШЙ"OPTION ";X,JвЕ(X┤1)л(X▓5)з Бе6000,UзБж7070,wмИX Бе6100,6200,6300,6400,6500,}╢С,Ш╘ Й"HOW MANY DAYS ";W:Р,║8 Й"HOW MANY WEEKS ";W:W│Wн7:Р,шЬ Й"ENTER NEW MONTH, DAY, AND YEAR ";B,C,A-бБж5000:ЕH│1з Бе6000-жG│D:Бж8000:W│DмG:D│G:Р-A Й"ENTER VALUE PER DAY ";V:Бе6000-mdЙ"ENTER VALUE PER WEEK ";V:V│Vо7:Бе6000-xXY│Kл33-╜[ИB Бж7101,7102,7103,7104,7105,7106,7107,7108,7109,7110,7111,7112-┌\З" "1900лA:З" (";F;")".]Y│Kл11:ЕK│0зЗ@Y,"SN MN TU WD TH FR ST";.`L│Kл42.bАI│1еA(B)./lY│Lл(Eм1)н3.?vЕI┤10зY│Yл1.JАЗ@Y,I;.ZВЕF┤▓I з7050.oДЕI┤10зXS│2:ДXS│3.xЕYS│Y.ТКE│Eл1:ЕE▓7зE│1:L│Lл32.ЩФЛI.╝ЧЗ@YS, Л(181);:З@YSлXS, Л(186);.┬ЩР.тЮЗ@224,;:АI│1е8:З:ЛI:З@224,;.шиР/╜ З@Y," JANUARY, ":ЛX/&;Щ"O",м1,"ADVDAT":З#м1,A$:Ъ:Бе150/R@З"READY CASSETTE AND ";:Бж700:Р/ФJ ЕPR│9з590:Д ЕPR│20▒PR│7з910:Д З"TRY EXAMINING THINGS.":Бе1500TЕ(N(N)░2)┤▓0зSP│0:A$│"":Бе280:Д З"O.K.":ЕN┤▓2зБе150:ДPA│1:R(16,5)│20:З"THERE IS A HOLE IN THE FLOOR":З" WHERE THE TABLE WAS!":Бе400┴^ЕO(N)│м1зЗ"YOU ALREADY HAVE IT!":Бе150:Д ЕO(N)┤ ▓PR зЗ"I DON'T SEE IT HERE!!":Бе150:Д ЕPI┤MI з360:Д З"YOU ARE CARRYING TOO MUCH. TRY DROPPING SOMETHING.":Бе1500·hЕN│2▒N│20з365:ДPI│PIл1:I(PI)│N:O(N)│ м1:З"O.K.":Бе401$mЗ"IT IS BEYOND MY POWER TO DO!":Бе1501аrЕN│0з550:Д АX│1еPI:ЕI(X)│N з ЕO(N)│ м1з Бж380:Бе40:Д З"TRY TAKING IT OFF!":Бе150:Д ЛX:З"YOU'RE NOT CARRYING IT!!":Бе1501ь|ЕX│MI зPI│PIм1:O(N)│PR:Р :Д АX│X е MIм1:I(X)│I(Xл1):Л:PI│PIм1:O(N)│PR:Р2LЖ АX│1еPI:ЕI(X)┤▓N з Л:З"HOW??":Бе150:Д ЕN│1з400:Д ЕN│6з410:Д З"YOU TRY TO WEAR ONE!!":Бе1502nРO(N)│ м2:GL│1:R(15,2)│16:Бе402ЕЪO(N)│ м2:RN│1:Бе402юдЕO(N)┤▓ м2зЗ"YOU'RE NOT WEARING IT!!":Бе150:ДO(N)│ м1:ЕN│1зGL│0:R(15,2)│0:Бе150:ДRN│0:З"O.K.";:Бе1503╡оSC│0:X│3:Бж440:Бж440:Бж440:Бж440:Бж440:X│14:Бж440:X│17:Бж440:X│19:Бж440:X│21:Бж440:SC│(SCл  А(GG))н10:З"YOUR PRESENT SCORE IS:"SC:ЕSC┤100з150:Д З"YEA! YOU HAVE COLLECTED ALL OF THE TREASURES!"3┐│Бе1303╙╕ЕO(X)│9зSC│SCл13▀┬X│Xл1:Р4░╠Бж320:Щ"I",м1,"ADVDAT":Й#м1,A$:PR│  К( О(A$,1))мOS:GG│  К( Р(A$,2,1))мOS:PA│  К( Р(A$,3,1))мOS:DO│  К( Р(A$,4,1))мOS:MI│  К( Р(A$,5,1))мOS:PI│  К( Р(A$,6,1))мOS:GL│  К( Р(A$,7,1))мOS:RN│  К( Р(A$,8,1))мOS5╓АX│1е23:O(X)│  К( Р(A$,Xл8,1))мOS:Л:ЕPI│0з40:Д АX│1еPI:I(X)│  К( Р(A$,Xл31,1))мOS:Л:Ъ:Бе405ХрЕN│21 ░ O(N)│м1з495:Д ЕN│6з490:Д ЕN│24з500:Д ЕO(N)│м1 ▒ O(N)│PR з З"I SEE NOTHING SPECIAL.":Бе150:Д З"I DON'T SEE IT HERE.":Бе1505°ъЕO(N)┤▓м1 ░O(N)┤▓м2з150:Д З"IT SAYS:":З"I AM -TOUCHED- BY YOUR INTEREST IN THE -GATE-.":Бе1506бяЗ"IT SAYS:":З"FOR MORE INFORMATION ON THESE ADVENTURES, WRITE TO ME AT:":З"WARREN MELNICK":З"11 WILDWOOD DR.":З"DIX HILLS, N.Y. 11746":З"(516) 643-2032.";:Бе1507ЇЕPR┤▓9зN│8:Бе480:Д З"I SEE SOME WRITING THERE!!":З"IT SAYS: LEAVE *TREASURES* HERE!";:Бе1507п■ЕPR│20 ░ DO│1зЗ"THE DOOR IS OPEN REVEALING A":З" PASSAGE TO THE WEST!":Бж800:Р :Д ЕPR│8 ░ GG│2зЗ"THE GATE IS OPEN REVEALING A":З" PASSAGE TO THE WEST THAT GOES?":Бж800:Р8 ЕPR│15 ░ GL│1з З"THE GLASSES REVEAL A SECRET":З" PASSAGE LEADING EASTWARD!":Бж800:Р :Д Р8]ЕPR│20 ░ N│15з530:Д ЕPR│8 ░ N│23з540:Д З"IT IS BEYOND MY POWER TO DO.":Бе1508ТАX│1еPI:ЕI(X)┤▓16з Л:Бе550:ДDO│1:R(20,3)│19:Бе408╘ЕGG┤ ▓1з555:Д АX│1еPI:ЕI(X)┤ ▓16з Л:Бе555:ДGG│2:R(8,3)│7:Бе408ч&З"HOW??":Бе1509 +З"I CAN'T DO THAT...YET!!":Бе1509u0Е(PR│8 ░ N│23) ▒ (PR│20 ░ N│15)з З"I OPENED IT, BUT I FIND IT QUITE IMPOSSIBLE TO CLOSE.":Бе150:Д5509щ:ЕPR│8 ░ N│20 ░ RN│1 ░ GG│0з З"THE RUBY BUTTON DISAPPEARS AND REVEALS A VERY BIG LOCK!":GG│1:O(20)│0:Бе40:Д550:KDЕPR│9з З"A VOICE BOOMS OUT:":З" " Л(34)"AMEN TO JERUSALEM!" Л(34)".":Бе150:ДA$│" ":SP│0:Бе280:mNЗ"PRAY FOR YOUR LIFE!!":Бе150:{XEQ│ Г1(0):ПvЗ@480,"";:Бе120:Щ╝A$│"":я╞CC│0:CN│140:Бж900:B│ К(B$):ЕB│21з760:ДЕB│8з730:ДЕB│13зЗ Л(8):Р:Д ЕB┤32▒B$▓"Z"з710;-╨A$│A$лB$:З Л(8)B$" ";:Е  З(A$)▓20з З  Л(8);:Бж800:Р :Д710;`┌ЕA$│""з710:ДA$│  О(A$, З(A$)м1):З  Л(8);:Бе710;ИфЕN│15▒N│23з З"TRY OPEN.":Бе150:Д550;│°Е  З(A$)│0з710:Д З  б( З(A$),8);:Бе700;╦Е  Ъ(0)▓0з З:Р :Д Р;Ї X│ Г(EQ):З@EQ, б(32,61);:З@480,"";:Р<@ДB$│ Т:ЕB$│""зCC│CCл1:ЕCC▓10зCN│271мCN:CC│0:З Л(8) Л(CN);:Бе900:Д900:Д РuDЗ"THEIR QUARTER OF THE CITY.":Бж31000>duNЗ@32,,," YOU MUST ALSO AVOID BURNING YOUR EYES OUT IN THE DEAD SEA."?)uXЗ" BUT AS A REWARD, YOU WILL FINDNINE TREASURES HIDDEN WITHIN JERUSALEM AND THE OTHER PLACES THAT YOU WILL VISIT. YOU SCORE 10 POINTS FOR EACH TREASURE THATYOU STORE, PLUS 10 POINTS FOR"?gubЗ"GETTING THROUGH THE GOLDEN GATE OF THE ORIGINAL TEMPLE.?еulЗ" YOU CAN ALSO SAVE OR LOAD THE GAME STATUS TO TAPE.":З?╧yЗ@484," TO CONTINUE ";:Бж700:Р?√Ь@Ж"ON A STREET IN JERUSALEM",2,3,2,2,0,0@'ЬJЖ"ON A STREET IN JERUSALEM",2,2,2,1,0,0@SЬTЖ"ON A STREET IN JERUSALEM",1,4,2,1,0,0@Ь^Ж"ON A STREET IN JERUSALEM",3,5,3,3,0,0@вЬhЖ"IN AN UNDERPASS",4,9,0,0,6,0@╘ЬrЖ"ON TOP OF THE WESTERN WALL",0,0,0,0,0,9@°Ь|Ж"IN PARADISE!",26,28,29,27,0,0A#ЬЖЖ"PM"GRAPHIC MODE",SP"START PAGE",WR"DRAW (1 YES)",MV"MOVE (1 YES)",LC"LINE COLOR",BC"BACKROUND",SC"COLOR SET"," "A$" LAST COMMAND",X"X",Y"Y"8│цЗ:Й" ";Q$:┐1,SC:Р:(C) Ч 1981E BLOCK TO NEW SPOT"8КфЗ"tAPE: THEN -":З" sAVE OR":З" lOAD":З"hELP":З:З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "╞&\ :ГCOPYRIGHT (C) CLOAD 1981 COLOR COMPUTER CONVERSION BY CHROMASETTE STAFF&t:ГBY WARREN MELNICK&ББе 52001'Ю:З" ADVENTURE IN ANCIENT JERUSALEM":EQ│0:MI│5:МR$(29),R(29,5),V$(38),N$(24),N(24),O$(24),O(24),I(MI),X(7):АX│1е29:НR$(X):АY│0е5:НR(X,Y):ЛY,X:АX│1е38'?НV$(X):Л:АX│1е24:НN$(X):Л:OS│64'уАX│1е24:НO$(X):Л:АX│1е24:НN(X):Л:АX│1е24:НO(X):ЛX:PI│0:PR│4:GG│0:PA│0:DO│0:GL│0:RN│0:Бж45000:Бж30000:Ю:З@352,"WELCOME TO ADVENTURE IN ANCIENT":Зд11)"JERUSALEM"(В(АI│0еEQ й32:З@I:Л:З@0,"YOU'RE "R$(PR):З"VISIBLE OBJECTS:";:АX│1е23:Бж140:ЛX:Бж790:З"OBVIOUS DIRECTIONS-";:АX│1е6:ЕR(PR,Xм1)│0з110:ДИX Бе50,60,70,80,90,100(У2З" N";:Бе110(д<З" S";:Бе110(╡FЗ" E";:Бе110(╞PЗ" W";:Бе110(╫ZЗ" U";:Бе110(тdЗ" D";)nЛX:З:З"================================";:Бе600)nxБж510:ЕPR│25з130:Д ЕPR┤ ▓11з150:Д З"YOU ARE ATTACKED BY AN ARAB. YOU ARE DEAD.")чВЗ"THIS ADVENTURE IS OVER.":З"TRY THIS ADVENTURE AGAIN? ";:Бж700:Е  О(A$,1)│"Y" з Х:Бе 20::Д Е  О(A$,1)┤▓"N" з130:Д К*МЕO(X)│PR з Бж20000:Р :Д Р*sЦБж800:З@480,"DO WHAT? ----> ";:Бж700:ЕA$│"" з150:ДS│0:SP│ З(A$):АX│1е  З(A$):Е  Р(A$,X,1)│" " зS│Sл1:SP│X*каЛX:ЕS▓1з З"ONLY USE TWO WORDS PLEASE.":Бж800:Бе150*╠кЕS│0зV$│  О(A$,3):N$│"":Бе200*Ї┤ЕSP┤4зV$│  О(A$,SPм1):ДV$│  О(A$,3)+ ╛N$│  Р(A$,SPл1,3)+y╚АV│1е38:ЕV$┤ ▓V$(V)з Л:ЕSP┤1з52000:Д З"I DON'T KNOW HOW TO":З" " Л(34) О(A$,SPм1) Л(34)" SOMETHING.":Бе150+М═ЕV│32▒V│33з220+┘╥ЕN$│""зN│0:Д АN│1е24:ЕN$┤ ▓N$(N)з Л:З"I DON'T KNOW WHAT YOU MEAN.":Бе150,z▄ИV Бе230,230,230,230,230,230,350,350,370,370,390,420,420,330,250,250,250,480,480,480,570,570,340,300,300,270,270,270,270,520,560,310,460,430,130,580,740,570,ДцD│Vм1,╬ЁЕR(PR,D)┤▓0зPR│R(PR,D):Бе40:ДЗ"YOU CAN'T GO IN THAT DIRECTION.":Бе150,ъ·D│Nм8:ЕD┤0▒D▓5з260:Д240-З"I SIMPLY CAN'T DO THAT!":Бе150-hЕPR│7▒PR│20з З"A PUFF OF SMOKE APPEARS AND":З" SUDDENLY YOU'RE ELSEWHERE.":PR│2:Бе40-кЗ"O.K. ";:З  П(A$, З(A$)мSP):З"NOTHING HAPPENED.":Бж800:Бе150-╕"PR│2:Бе40.K,З"YOU ARE CARRYING THE FOLLOWING:":ЕPI│0з З" NOTHING AT ALL!":Бж800:Бе150:Д АX│1е23:ЕO(X)┤0з З" "O$(X):ЕO(X)┤▓м1зЗ" - WHICH YOU ARE WEARING.".W1Л:Бе150/6Бж320:A$│"":A$│A$л  Л(PRлOS)л  Л(GGлOS)л  Л(PAлOS)л  Л(DOлOS)л  Л(MIлOS)л  Л(PIлOS)л  Л(GLлOS)л  Л(RNлOS):АX│1е23:A$│A$л  Л(O(X)лOS):ЛX:АX│1еPI:A$│A$л  Л(I(X)лOS): ┤& Бе10& Бе12&а Х10:X│5л Ж(39)о32:Т4,X:└X:MP│ Ж(4):KP│247:CK│0:N1│1:X1│0:Y1│0:XJ│2:YJ│1:Z│0:N5│52:N8│11:P1│341:P2│342:P3│343:P4│344:P5│345:N2│2:N4│4:Бе9&№ X│0:Y│0:XM│255:YM│191:LC│4:BC│1:WR│1:MV│1:CC│1:JS│0:SC│0:PM│3:SP│1:NC│4:XB│8:YB│1:BA│32'╚PM,SP:┴LC,BC:╝:┐1,SC'CАI│5еMP:╟Iм1еI:Л:MB│(MPн6л Ж(188))н256м1'LБж30'gA$│ Т:ЕA$│""▒A$┤"A"з18'╞И К(A$)м64Бж26,100,100,66,68,76,118,218,180,72,116,26,70,26,26,118,26,150,96,156,26,26,140'╧Бе18'╒Р'°Е а(X,Y)│LC з╛(X,Y):Д╜(X,Y,LC)("CK│Z:X1│Z:Y1│Z:ЕJS з42(J$Е Ж(P1)│KP зY1│мYJ:CK│N1 :ДЕ Ж(P2)│KP зY1│YJ:CK│N1(Б&Е Ж(P3)│KP зX1│мXJ:CK│N1 :ДЕ Ж(P4)│KP зX1│XJ:CK│N1(К(Бе46(┐*Е Н(Z)┤N8 зX1│мXJ:CK│N1 :ДЕ Н(Z)▓N5 зX1│XJ:CK│N1(Ў,Е Н(N1)┤N8 зY1│мYJ:CK│N1 :ДЕ Н(N1)▓N5 зY1│YJ:CK│N1)".CN│CNлN1:ЕCN▓N1 ░CN┤N8 зЕCK з34:ДCN│0:Р)]2ЕCK│0зCN│0:Р:ДXN│XлX1:ЕXN┤Z ▒XN▓XM зXN│ В( В(XN)мXMм1))К4YN│YлY1:ЕYN┤Z ▒YN▓YM зYN│ В( В(YN)мYMм1))▀8╜(X,Y,CC):X│XN:Y│YN:Е Ж(P5)│KP ▒MV зCC│ а(X,Y):Бе30:ДЕWR зCC│LC:Бе30:ДCC│BC:Бе30)їBWR│1:MV│0:CC│LC:Р* DWR│0:MV│0:CC│BC:Р*FMV│1:Р*/HЕJS│0зJS│1:Р:ДJS│0:Р*HLMV│1:XT│X:YT│Y:CT│CC*vNБж30:Е а(XT,YT)│LC з╛(XT,YT):Д╜(XT,YT,LC)*▒PQ$│ Т:ЕQ$│""з78:ДЕQ$│"X"з╜(XT,YT,CT):Р::ДЕQ$│"H"зБж218*■RЕQ$│"L"зЕWR з╗(XT,YT)м(X,Y),╜:CC│LC:CT│LC :Д╗(XT,YT)м(X,Y),╛:CC│BC:CT│BC+OTЕQ$│"B"зЕWR з╗(XT,YT)м(X,Y),╜,B:CC│LC:CT│LC :Д╗(XT,YT)м(X,Y),╛,B:CC│BC:CT│BC+eVЕQ$┤"0"▒Q$▓"9"з78+┐XXS│ А(XмXT)м1:YS│ А(YмYT)м1:XA│ В(XмXT):YA│ В(YмYT):ЕXA зAN│ Ф(YAоXA)о6.28318:ДAN│.25+¤ZЕXS ░YS│0зAN│.5мAN :ДЕXS ░YS зAN│ANл.5:ДЕиXS ░YS зAN│1мAN,\╜(X,Y,CC):ЕWR зQ│LC :ДQ│BC,[^┬(XT,YT), Ы(XAп2лYAп2),Q,1,AN,ANл Й(Q$)о10:CC│ а(X,Y):Бе78,Ю`ЕSC│0зSC│1:LC│LCл4:BC│BCл4н А(BC):ДSC│0:LC│LCм4:BC│BCм4н А(BC),кb┐1,SC:Р,шdЕNC зБж216:ЕQ┤1▒Q▓8з100:ДЕSC│1░Q┤5зQ│Qл4:ДЕSC│0░Q▓4зQ│Qм4-fЕA$│"B"з108:ДЕNC│0зЕLC▓0зQ│0:ДQ│SCн4л1-*hЕCC│LC ░MV┤▓1зCC│Q-9jLC│Q:Бе114-WlЕNC│0зЕBC▓0зQ│0:ДQ│SCн4л1-nnЕCC│BC ░MV┤▓1зCC│Q-wpBC│Q-Дr┴LC,BC:Р-Яt╝:X│0:Y│0:MV│1:CC│BC:Р-рv╜(X,Y,CC):MV│1:Бж216:ЕA$┤▓"P"зЕQ$┤"0"▒Q$▓"4"з118:ДPM│Q:Бе122.xЕQ┤1▒Q▓MP з118:ДSP│Q:╜(X,Y,CC).3zЕSP▓MPм3░PM▓2зSP│MPм3:ДЕSP▓MPм1░PM зSP│MPм1.]|XJ│2:YJ│2:ЕPM│4зXJ│1:YJ│1:ДЕPM▓1зYJ│1.{~ЕPMо2│ Б(PMо2)зNC│0:ДNC│1.ЫАЕNC│0░LCнBC зLC│1лSCн4:BC│0.└ВЕNC ░LCнBC│0зLC│4лSCн4:BC│1лSCн4.╒ДЕPM▓1зYB│1:ДYB│2.ЁЖЕPM│2▒PM│0зXB│16:ДXB│8/ ИЕPM▓2▒PM│1зBA│32:ДBA│16/1К╚PM,SP:┴LC,BC:┐1,SC:CC│ а(X,Y):Р/GМMV│1:Q$│"":АI│1е2/ДОЕQ$│"X"зЛ:Р:ДБж216:Е((Q┤1▒Q▓8)░NC▓0)▒(Q▓1░Q┤▓5░NC│0)з142/нРЕSC ░Q┤5░Q┤▓0зQ│Qл4:ДЕSC│0░Q▓4зQ│Qм4/ЄТQ(I)│Q:Л:ЕQ(1)┤▓Q(2)з╜(X,Y,Q(1)):ДЕQ(1)│BC з╜(X,Y,LC):Д╜(X,Y,BC)0ФCC│Q(1):├(X,Y),Q(1),Q(2):Р0ЦАI│1е20?ШБж216:ЕQ┤1▒Q▓MP з152:ДQ(I)│Q:Л0eЪ╜(X,Y,CC):╟Q(1)еQ(2):CC│ а(X,Y):Р0ВЬЮ:З"SAVE OR LOAD (S/L)?"0жЮБж216:ЕQ$│"L"з170:ДЕQ$┤▓"S"з1580ЄаЗ" TO SAVE:":Бж190:ЕQ$│"X"зР:ДЗ" READY CASS. FOR RECORD.":Й"ENTER";Q$1*вЩ"O",м1,"GDAT":З#м1,XU,XD,YU,YD:АI│YU еYD:АJ│XU еXD1<дЗ#м1, Ж(GLлJ)1WжЛJ:GL│GLлBA:З@27,I;:ЛI1eи┐1,SC:Ъ:Р1пкЗ" TO LOAD:":Бж208:ЕQ$│"X"зР:ДЗ" READY CASS. FOR PLAY.":Й"ENTER";Q$1їм┐1,SC:Щ"I",м1,"GDAT":Й#м1,XU,XD,YU,YD:АI│YU е YD:АJ│XN е XNлXDмXU2оЙ#м1,Q:Е(PLлJ)┤│MB зТ(PLлJ),Q2*░ЛJ:PL│PLлBA:ЛI2=▓Ъ:CC│ а(X,Y):Р2p┤Ю:З"TO COPY:":Бж190:ЕQ$│"X"зР:ДБж208:ЕQ$│"X"зР2Н╢Q│XDмXU:АI│YU еYD:АJ│0еQ2╕╕Е(XNлJлPL)┤│MB зТ(XNлJлPL), Ж(GLлJлXU)2╘║ЛJ:PL│PLлBA:GL│GLлBA:ЛI2х╝CC│ а(X,Y):Р39╛З:З" UPPER-LEFT SET WITH 'u', LOWER-RIGHT SET WITH 'l'. 'x' EXITS.":Й"ENTER";Q$3d└MV│1:XU│м1:XD│м1:CT│CC:XT│X:YT│Y:┐1,SC3Ь┬Бж30:ЕXUнXD┤│0зЕ а(XT,YT)│LC з╛(XT,YT):Д╜(XT,YT,LC)3с─Q$│ Т:ЕQ$│""з194:ДЕQ$│"X"з╜(X,Y,CC):╜(XT,YT,CT):Р:ДЕQ$│"H"зБж2184╞ЕQ$┤▓"U" ░ Q$┤▓"L" з194:Д╜(XT,YT,CT):XT│X:YT│Y:CT│CC4<╚ЕQ$│"U"зXU│X:YU│Y :ДXD│X:YD│Y4c╩ЕXD┤0▒XU┤0з194:ДЕXU▓XD ▒YU▓YD з1904╚╠XU│ Б(XUоXB):XD│ Б(XDоXB):YU│ Б(YUоYB):YD│ Б(YDоYB):GL│YUнBAл Ж(186)н256:╜(X,Y,CC):╜(XT,YT,CT):Р54╨З:З" SET THE UPPER-LEFT CORNER OF THE PLACE TO PUT BLOCK WITH 'p'. 'x' EXITS.":Й"ENTER";Q$:MV│1:┐1,SC5n╥Бж30:Q$│ Т:ЕQ$│""з210:ДЕQ$│"X"зР:ДЕQ$│"H"зБж218:Бе2105▓╘ЕQ$│"P"зXN│ Б(XоXB):╜(X,Y,CC):PL│ Б(YоYB)нBAл Ж(186)н256:Р:Д2105ш╪Q$│ Т:ЕQ$│""з216:ДЕQ$│"H"зБж218:Бе216:ДQ│ Й(Q$):Р6┌Ю:З"dRAW & eRASE":З"mOVE (OR HOLD )"6z▄З"fIGURE: MOVE THEN -":З" lINE OR":З" b0X OR":З" 1-0: CLOCKWISE ARC (.1-1.0) OR":З" ExIT"6ч▐З"cOLOR OF LINE & bACKROUND COLOR: TOGGLE IF 2 COLOR OR HIT 1-8":З"wASH (PAINT): PAINT 1ST & BORDER 2ND"7IрЗ"sET OF COLOR TOGGLE":З"kLEAR TO BACKROUND COLOR":З"jOYSTICK ON/OFF":З"pAGE TO START: 1";мMP7╩тЙ" ";Q$:Ю:З"gRAPHIC MODE: 0-4":З"rEPLACE (PCOPY): SOURCE PAGE 1";мMP"TO DEST. PAGE 1";мMP:З"iMAGE BLOCK TO NEW SPOT"8КфЗ"tAPE: THEN -":З" sAVE OR":З" lOAD":З"hELP":З:З ╓&?В AUTHOR NAME AND ADDRESS GO UP HERE IN ALL PROGRAMS&W:ГCHROMASETTE STAFF&i:ГPO BOX 1087&З:ГSANTA BARBARA, CA 93102&у:Г ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.'<:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'ж:ГLINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.'°:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.( └4:╚3,1:┴4,1:М LO$(7)(Q│0(!:Г(/(╝: ┐ 1,CR(¤2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк")╦4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"*Щ6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+g8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк",5:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"-LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк".%ALO$(7)│"╜│эО  Ж 4жа4 4Ж4╞жДздГ рГ рZ&ыГ Є5J&█5жА5 5J&╞9".AFVP│0:AD│0:VP│ Э(LO$(0)).^KAD│ Ж(VPл2)н256л Ж(VPл3).pPVP│ Э(LO$(7)).ТUQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q.еXТQл7, Ж(188)м1.╙Z╞"S4A0C3BM0,191R255U149L255D148R255BM0,0".р_Q│ Г(AD).¤dВ USER ROUTINE (100-999)/FiXM│ Д(14)м10:XS│ Б(258м(XMл9)н(258о13)):В X MOVE FACTOR AND X SHIFT/nYM│ Д(6)м3:YS│ Б(138м(YMл2)н(138о5)л50):В SAME FOR Y/╢sЕ Д(4)│4 зD│30:ДD│0:В DRAW BIG 1ST (D=30) OR SMALL/ЇxM$(1)│"U":M$(2)│"E":В RELATIVE LINE ANGLE (90 OR 45)0$}АQ│1е Д(3)л1:В NUMBER OF HORNS PER DRAWING0UВЕ Д(5)┤3 зN$│"N" :ДN$│"":В STARS OR POLYGONS0УЗF│ Д(2):S│ Д(2):ЕF▓S з135:В # OF LINES AND ANGLES OF THEM0тМЕN$│"N" зU$│"3":R$│"9":Бе200:ДU$│"0":R$│"0":В SET OFFSETS TO CENTER STARS1)ЦЕFнS│1 зR$│"6":ДЕFнS│4 зU$│"3":R$│"3":В POLYGON OFFSETS TO CENTER1?╚В NOW TO DRAW IT!1c▄АJ│2е28й Д(3):В # OF SEGMENTS1БцK│ Д(3)л1:В SEGMENT COLOR1ЇЁ╞"BM"л И(XSлXMн В(DмJ))л","л И(YSлYMн В(DмJ))л"S"л И( В(DмJ))л"A0BU"лU$л"BR"лR$:В START POINT AND SIZE OF SEG.2>·АI│0е3:АL│F еS:A$│"A"л И(I)л"C"л И(K)лN$лM$(L)л"6":В DEVELOPE SEGMENT2U╞A$:В DRAW SEGMENT2vЛ:Л:Л:В LOOP FOR A WHILE...2ПЛ:В DO ANOTHER HORN?2├,АI│1е3000:Л:Бж1000:В WAIT, THEN DISCLAIMER TIME2▐▐Бе40:В START A NEW ONE3шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.3ЄЮ34№З@38,"CHROMASETTE MAGAZINE"3]З"ISSUE #2 AUGUST 1981";3ЗЗ:З:З" ALL PROGRAMS CONTAINED HEREIN"3иЗ" COPYRIGHT (C) CLOAD"3╦$З" MAGAZINE P.O. BOX 1448"3я.З" SANTA BARBARA, CA 93102."48З" REPRODUCTION BY ANY MEANS"48BЗ" PROHIBITED. CLOAD MAGAZINE"4^LЗ" ASSUMES NO RESPONSIBILITY FOR"4ДVЗ" ERRORS, OMISSIONS OR DAMAGES"4й`З" CAUSED BY THE USE OF THESE"4╛jЗд11)"PROGRAMS."4╧~АI│1е5000:ЛI4╒ИРNTA BARBARA, CA 93102."48З" REPROD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ┼ ╚┴!╞#$├&'╟)*─                         HORNCOV BAS ┘DRAWINSTBAS"DRAWER BAS╖WORDS BAS%&JERUSADVBAS╔LANDER BAS(СTWODATESBASM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & Бе7&Бе10&1:ГCOPYRIGHT (C) CLOAD 1981&N:ГCHROMASETTE STAFF (ME)&`:ГPO BOX 1087&~:ГSANTA BARBARA, CA 93102&Й└4:Бе1&Э Ю:З@12,"DRAWER"'ГЗ:З" WHAT A DULL NAME FOR A PROGRAM.ANYWAY, WITH THIS PROGRAM YOU CAN EASILY DRAW PICTURES ON THE SCREEN WITH THE KEYBOARD OR WITHA JOYSTICK. YOU CAN CHOOSE THE COLORS, THE PMODE, AND THE STARTING PAGE. AND YOU CAN PAINT,"(GЗ"DRAW FIGURES (LINES, BOXES, AND ARCS), COPY A SCREEN BLOCK FROM ONE SPOT TO ANOTHER, LOAD FROM TAPE, SAVE TO TAPE, ETC. ETC. ALL THIS CAN BE DONE AT ANY TIMEWHILE YOU ARE DRAWING.":Бж500(a(З@9,"THE COMMANDS:":З)82З" WHEN YOU RUN THE PROGRAM, YOU WILL SEE A BLANK SCREEN WITH A BLINKING CURSOR IN THE UPPER- LEFT HAND CORNER. THIS IS YOUR DRAWING IMPLEMENT. CONTROL THE CURSOR AND YOUR DRAWING WITH THEFOLLOWING KEYS:")▌<З" USE THE ARROW KEYS TO MOVE THE CURSOR.":З" d: THE CURSOR DRAWS WITH THE LINE (FOREGROUND) COLOR.":З" e: THE CURSOR ERASES WITH THE BACKROUND COLOR.":Бж500*╔FЗ" m: MOVE THE CURSOR WITHOUT DIS-TURBING THE DRAWING. YOU ARE LEFT IN THIS MODE AFTER MANY OF THE OPERATIONS.":З" : HOLDING IT DOWN WHILE YOU ARE IN THE ERASE OR DRAW MODES MOVES THE CURSOR AS IN THE MOVE MODE."+ЙPЗ" j: SWITCHES CURSOR CONTROL FROMTHE ARROW KEYS TO THE RIGHT JOY-STICK AND VICE-VERSA. DO NOT USETHE RED BUTTON ON THE JOYSTICK.":З" k: KLEARS THE SCREEN WITH THE BACKROUND COLOR":Бж500,@ZЗ" f: DRAW A FIGURE. A FLASHING MARKER IS LEFT AT THE CURRENT CURSOR LOCATION. NOW YOU MOVE ANOTHER CURSOR TO ANOTHER SPOT ON THE SCREEN AND HIT ONE OF THEFOLLOWING KEYS:"-!dЗ" l: DRAWS A LINE BETWEEN THE MARK AND THE CURSOR.":З" b: DRAWS A BOX USING THE MARK AND THE CURSOR AS CORNERS.":З" 1-0: DRAWS AN ARC CLOCKWISE FROM THE CURSOR USING THE MARK AS THE CENTER. THE ARC LENGTH"-fnЗ" GOES FROM .1 CIRCUMFERENCE (1) TO A FULL CIRCLE (0).":Бж500.RxЗ" fIGURE CONTINUED:":З" x: YOU STAY IN THE FIGURE MODE UNTIL YOU EXIT.":З" (THE DRAWING COLOR DEPENDS ON WHETHER YOU ARE IN THE DRAWING OR ERASING MODE)":З" c: SET THE COLOR OF THE LINE. IF YOU ARE IN A 2 COLOR PMODE,"/ВЗ"THE OTHER COLOR IS USED. IN THE 4 COLOR MODES, YOU MUST HIT 1-8 TO CHOOSE THE COLOR.":З" b: THE SAME AS c BUT FOR THE BACKROUND COLOR.":З" s: TOGGLES THE SCREEN COLOR SETS.":Бж500/кЗЗ" w: WASH (PAINT) IN A CERTAIN AREA. HIT 1-8 (0 TOO IN 2 COLOR MODES) TO SET THE PAINT COLOR, THEN HIT 1-8 (OR 0) AGAIN FOR THE BORDER COLOR."0gМЗ" g: SET THE GRAPHIC MODE (PMODE)BY FOLLOWING WITH A NUMBER FROM 0 TO 4. INTERESTING THINGS CAN HAPPEN WHEN YOU SWITCH PMODES!":З" p: SET THE START PAGE BY FOL- LOWING WITH 1 TO 6."0ёЦЗ" r: REPLACE ONE PAGE TO ANOTHER ONE (PCOPY). HIT 1-6 TO SET THE SOURCE PAGE, THEN HIT 1-6 AGAIN TO SET THE DESTINATION PAGE.":Бж5001┌аЗ" t: TAPE STUFF! IF YOU WANT TO sAVE A BLOCK OF THE SCREEN, YOU FIRST MARK THE UPPER-LEFT AND LOWER-RIGHT CORNERS OF THE BLOCKTO SAVE, THEN THAT BLOCK IS SAVED OFF. TO lOAD THAT BLOCK BACK IN, YOU MARK THE UPPER-LEFT";2╛кЗ"CORNER OF WHERE YOU WANT THE BLOCK TO BE LOCATED, AND IT IS LOADED INTO THAT LOCATION. SINCETHE BLOCKS ARE SAVED AND LOADED BY BYTES RATHER THAN BY PIXELS, THE BLOCK SAVED AND LOADED MAY BE LARGER THAN MARKED.":Бж5003v┤З" i: TO COPY (IMAGE) A BLOCK ON THE SCREEN TO ANOTHER PLACE ON THE SCREEN. LIKE THE SAVE AND LOAD OF TAPE, THE BLOCK MUST FIRST BE MARKED, THEN THE NEW LOCATION MARKED."4╛З:З" NOTE: NO ERROR MESSAGES ARE FLASHED FOR BAD INPUTS. THE IN- PUT IS EITHER IGNORED OR THE NEAREST GOOD VALUE IS USED.":Бж5004╚З@13,"HELP!":З5 ╥З" ALMOST FORGOT THE MOST USEFUL AND IMPORTANT COMMAND - h. THIS COMMAND CAN BE ENTERED AT ANY TIME WITHOUT DISRUPTING THE CUR-RENT GRAPHIC OR THE CURRENT IN- STRUCTION.":З" YOU GET A 2 PAGE REVIEW OF THE VARIOUS COMMANDS AND THE VALUES"5╕▄З"OF THE IMPORTANT VARIABLES. THISFEATURE REALLY HELPS WHEN YOU GET LOST IN THE PROGRAM OR WHEN YOU ENTERED A COMMAND AND ARE NOT SURE WHAT VALUES TO GIVE IT.";:Бж5005╘цЗ@7,"COMMAND REVIEW:":З6ZЁЗ" MOVE CURSOR"," dRAW",," eRASE",," mOVE (OR HOLD )"," jOYSTICK ON/OFF TOGGLE"," kLEAR TO BACKROUND COLOR"7·З" fIGURE: MOVE FIRST, THEN HIT:"," lINE TO DRAW LINE OR"," bOX TO DRAW A BOX OR"," 1-0 TO DRAW A 10% TO 100% ARC CLOCKWISE FROM CURSOR OR"," x TO EXIT FIGURE MODE":Бж5007,З@7,"COMMAND REVIEW:":З8 З" cOLOR OF LINE (FOREGROUND): HIT 1-8 IF 4 COLOR PMODE"," bACKROUND COLOR: LIKE cOLOR"," sET OF COLOR TOGGLE"," wASH (PAINT): HIT 1-8 (AND 0 IF 2 COLOR PMODES) FOR THE PAINT COLOR AND HIT 1-8 (0 IF 2 COLOR) FOR THE BORDER COLOR"8┴З" gRAPHICS MODE (PMODE): HIT 0-4"," pAGE TO START: THEN HIT 1-6"," rEPLACE (PCOPY): HIT 1-6 FOR SOURCE PAGE, THEN 1-6 FOR DESTINATION PAGE":Бж5009]"З@7,"COMMAND REVIEW:":З:З" tAPE THEN",," sAVE OR",," lOAD",," iMAGE: COPY BLOCK OF SCREEN FROM ONE PLACE TO ANOTHER"," hELP: REMEMBER THIS ONE!"9щ,З:З" NOW, CLOAD 'DRAWER', PLAY WITH IT A WHILE TO GET THE HANG OF IT, AND HAVE A GOOOOD TIME WITH THE COLOR COMPUTER'S GRAPHICS.":З:К:ЇЗ@484,"";:Й" TO CONTINUE";Q$:Ю:РOF SCREEN FROM ONE PLACE TO ANOTHER"," hELP: REMEMBER THIS ONE!"9щ,З:З" NOW, CLOAD 'DRAWER', PLAY WITH IT A WHILE TO GET THE HANG OF IT, AND HAVE A GOOOOD TIME WITH THE COLOR COMPUTER'S GRAPHICS.":З:К:ЇЗ@484,"";:Й"Л X,?HЗ:З,ZRЗ" ROUND OVER . . . .",`\З,|fЗ" TOTAL TIME USED:";TT,ЖpЗ:З:З,ЬzА X│1е10:I$│ Т:ЛX,╖ДЗ" HIT ENTER FOR",╥ОЗ" ANOTHER ROUND",цШЕ LS▓TT з LS│TT,ЁвЗ:З:З-мА X│1е10:I$│ Т:ЛX-#╢З" BEST ROUND TIME:";LS;-;└I$│ Т:Е I$│"" з 960-F╩Бе 370-h╘В GENERATE WORD / SCRAMBLE IT-v▐R│ Д(100)-ВшА X│1еR-ЛЄН W$-Ю№Е W$│"END" з П-еЛX-▓L│ З(W$)-├W(1) │  Д(L)-╥$А X│ 2 е L-у.W(X) │  Д(L)-Ў8А XX │ 1 е Xм1.BЕ W(XX) │ W(X) з 1070.LЛ XX.!VЛ X.1`А X │ 1 е L.KjW$(W(X)) │  Р(W$,X,1).StЛ X.]~J$│"".mИА X │ 1 е L.}ТJ$│J$лW$(X).ЕЬЛ X.ШжЕ J$│W$ з 1050.Ю░Р.╡║В INPUT SUBROUTINE.╦─I$│ Т:Е I$│"" з Р.▀╬Е I$▓ Л(90) з Р.¤╪Е I$│ Л(8) ░  З(J$)┤1 з Р/тЕ I$│ Л(13) з 1320/*ьЕ I$│ Л(8) з 1280/>ЎЕ I$┤ Л(65) з Р/KJ$│J$лI$/o Е I$│ Л(8) з J$│ О(J$, З(J$)м2)/БЗ@353,"? ";J$/ЗР/г(В CHECK TO SEE IF RIGHT/╢2Е J$│W$ з 1440/┬<А X│1е4/тFЗ@454,"SORRY, THAT'S WRONG"/юPа 120,60ZЗ@454," "0dа 100,40$nT│Tм50,xЛ X06ВJ$│""0NМЕ T┤│0 з T│0:Бе15900YЦБе 6600kаВ WIN ROUTINE0~кА X│1е255 й 120К┤Ю  Д(8)0Ф╛а X,20Ь╚Л X0в╥Ю0к▄З:З0╚цЗ" FANTASTIC . . . . . ."0╬ЁЗ0ь·З" YOU GOT IT RIGHT !!!!"0ЄЗ1З" THE WORD WAS: '";W$;"'"1З15"З" TIME USED . . . .";SмT1A,Бе 17101V6В IF OUT OF TIME1b@А X│1е51|JЗ@454,"TIME:";T;" ";1ИTа 100,51в^З@454," ";1оhа 140,51╡rЛX1╗|Ю1├ЖЗ:З1рРЗ" SORRY, BUT . . . . ."1 ЪЗ:З" YOU RAN OUT OF TIME."2 дЗ:З" THE WORD WAS: '";W$;"'"2*оЗ:З:З2@╕А X│1е10:I$│ Т:ЛX2\┬З" HIT ENTER TO"2r╠А X│1е10:I$│ Т:ЛX2О╓З" CONTINUE . ."2дрА X│1е10:I$│ Т:ЛX2╜ъI$│ Т:Е I$│"" з 17702╚ЇБе 7702ъ■В WORD OF UNREASONABLE LENGTH2ЄT│02■А X│1е83З@454,"GET SERIOUS !"3$&а 120,53>0З@454," "3J:а 140,33RDЛ X3XNЮ3`XЗ:З3}bЗ" SORRY, BUT . . . . ."3ГlЗ3аvЗ" YOU LOSE . . . . . ."3жАЗ3├КЗ" FOR GOOFING OFF !!!!"3╧ФБе 17103хЮВ DIRECTIONS HERE3эиЮ:З4▓З"'WORD.S' IS A WORD GAME. IN IT,"4;╝З"YOU WILL BE SHOWN A SET OF MIX-"4b╞З"ED UP LETTERS . . . THAT FORM A"4Й╨З"COMMON WORD. YOUR TASK IS TO"4░┌З"UNSCRAMBLE THE LETTERS, TO FORM"4╚фЗ"THE COMMON WORD."4ёюЗ:З"TO MAKE THINGS A BIT INTEREST-"5°З"ING, A TIME FACTOR IS INCLUDED."5?З"YOU WILL HAVE TO UNSCRAMBLE THE"5f З"WORD IN A TIME PERIOD THAT YOU"5ЗЗ"SET AT THE START OF PLAY."5ЭА X│1е6:а180,1:ЛX5╟ З:Й"HIT ENTER TO CONTINUE - READY";I$5╙*Ю:З:З:З5·4З"YOU WILL ALSO BE ALLOWED TO SET"6!>З"THE NUMBER OF WORDS PER ROUND"6HHЗ"OF PLAY THAT YOU DESIRE. IN"6oRЗ"THIS WAY, TWO OR MORE PLAYERS"6Ц\З"CAN ALTERNATE ROUNDS OF PLAY IN"6зfЗ"THE GAME."6╨pЗ:З" G O O D L U C K !! "6цuА X│1е6:а180,1:ЛX7zЗ:Й"HIT ENTER TO CONTINUE - READY";I$7ДР7ОВ7"ШВ7(вВ7.мР7Л╢Ж ONE,TWO,THREE,FOUR,FIVE,ACTIVE,ALMOST,AMAZE,ANGER,ANGLE,APRON,ARMY,ARROW,ATTACK,AUTHOR7ц└Ж SIX,SEVEN,EIGHT,NINE,TEN,BACK,BADGE,BAND,BEACH,BEFORE,BIRTH,BLIND,BOAST,BOUGHT,BUNCH8>╩Ж HIGH,LOW,NEVER,TRUST,CAPITAL,CAPTAIN,CHARGE,CHILD,CLEAR,COLOR,COMPLETE,COST,CUBE,8Ц╘Ж RED,WHITE,GREEN,BLUE,DAMP,DEFINE,DELIVER,DESIGN,DIRECT,DOUBLE,DRUM,DRUG,DUET,DISK8ы▐Ж LOST,HORSE,ANIMAL,DOG,EDGE,EFFORT,EMPLOY,ENTER,EQUAL,EXIT,EXTRA,EXPLODE,EXPOSE9CшЖ CAT,COW,LIST,BOTH,DONE,FABRIC,FAIL,FARM,FEAST,FENCE,FLOUR,FORK,FOUND,FRIEND,FRONT9ЧЄЖ EACH,ANSWER,GOING,GOOD,GAME,GLASS,GOAL,GRAPE,GRASS,GROUND,GUESS,GARAGE,GARDEN9у№Ж HAND,HEAD,LEG,BODY,ARM,HABIT,HAUL,HASTE,HEART,HITCH,HONEY,HUMID,HUMOR:: Ж HELLO,HELP,HERE,HURRY,IDEA,IMPACT,IMPROVE,INFANT,INSECT,INTEND,INVENT,ISSUE,IRON:s Ж CLEAR,COME,DRAW,HOME,JUDGE,JUICE,JOKE,JUNK,JUSTICE:з Ж INCH,FOOT,JUST,KNOW,KERNEL,KNIFE,KNIGHT,KNOCK; $Ж LARGE,LEARN,LEFT,LONG,LEASE,LEVER,MAGNET,MANAGE,MEASURE,MONKEY,NATURAL,NATURE,NIGHT;\ .Ж LOOK,MEAN,MUST,NAME,NORTH,NURSE,OBJECT,OCCASION,OVER,OXYGEN,PACE,PAINT,PAPER,PARTNER;▓ 8Ж NEAR,NEXT,NICE,ORDER,PASTE,PAUSE,PHRASE,PICKLE,PLACE,PLEASE,POCKET,POUND,PRETTY< BЖ PART,PLAY,PERIOD,PRINT,PROCESS,PUBLIC,PURPOSE,QUART,QUOTE,REALIZE,RELAX,RESERVE" ║В last data word must be the word end (END)T,WHICH,WORD,DAY,YEAR,MONTH,WEEK,WRITE,YOUR,ZERO,DOOR,WINDOW,LIGHT,FLOOR=И tЖ ACTION,ACTUAL,ACTIVE=О ~В=к ИВ ADDITIONAL WORDS HERE=░ ТВ=╖ ЬВ =╙ жВ LAST WORD MUST BE END=щ ░Ж END,END,END,END>" ║В last data word                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  О& В COPYRIGHT (C) CLOAD 1981&&В&3В LANDER&O(В VERSION BY JOHN OLSON&`2В JUNE, 1981&<В BOX 483 HOXIE, KS 67740&ЕPВ&ЛZВ&ЦdХ 1000&ЬnЮ&░xЗ д13) "LANDER"&┘М╔"V22O2T3L4GGO+DDEEL2DL4CCO-BBAAL1G"&▀ЦЗ'аЗ" DO YOU NEED DIRECTIONS ... YES"'кЗ" OR NO?"'=┤I$│ Т:ЕI$│"" з180 :ДЕI$┤▓"N" Бж1310'V╛В INITIALIZE ROUTINE'\╚Ю'u╥T│0:H│500:V│50:F│120'Ж▄З  б(32,42);'░цЗ "**SEC**DIST**SPEED**FUEL**BURN**";'└ЁЗ  б(32,42)'┘·В MAIN LOOP LOCATION'ЎЕ V┤0 з AR$│ Л(94):PV│мV(Е V▓│0 з AR$│"D":PV│V(!В MAIN PRINT(X"З д1) T;д6)  Б(Hл.5);д13) AR$;PV;д19) F;д26) "? ";(П,Е F│┤0 з B│0:V$│"0":З"0-";::а 120,4:а 160,2:Бе 410(╝6В MAIN INPUT ROUTINE USING INKEY$(▐@V$│"":АX│1е6:I$│ Т:а 160,1:ЛX(ЎJI$│ Т:Е I$│"" з 330)TЕ I$│ Л(13) ░  З(V$)▓0 з 410 )9^Е I$│ Л(8) ░  З(V$)▓0 з 370 )ZhI│ К(I$):Е I┤48 ▒ I▓57 з 330)lrЗI$;:V$│V$лI$)Р|Е I$│ Л(8) з V$│ О(V$, З(V$)м2))╝ЖЕ  З(V$)│3 з З Л(8); Л(8); Л(8);:Бе 310)╟РБе 330)╘ЪB│ Й(V$))№дЕ B▓30 ▒ B▓F з З б( З(V$),8);:Бе310*оЗ*╕VN │ VмBл5*┬F │ FмB*7╠H │ H м .5 н (VN л V)*I╓Е H┤│.1 з 510*WрT │ T л 1*bъV │ VN*mЇБе 250*Д■В END GAME ROUTINE*МЗ:З*жЗ д10) "* CONTACT! *"*╖А X│1е250:ЛX*с&А X│ 1 е 4: а 160м20нX,8: ЛX: а 60,14*Є0А X│1е250:ЛX+ :H │ H л .5н(V л VN)+BDЕ B│5 з TT│HоV :Д TT│ (мVл Ы(VнVлHн(10м2нB)))о(5мB)+XNVN │ V л (5мB)нTT+lXTT│ Б(TTн10)о10+АbVN│ Б(VNн10)о10+пlU$│ Л(128)л Л(128)л Л(247)л Л(242)л Л(128)+▐vV$│ Л(128)л Л(241)л Л(255)л Л(251)л Л(128)+№АW$│ Л(128)л"moon"л Л(128),КЮ 0,ФА X│384 е 480 й 32,/ЮЗ@X, б(31,159);,6иЛX,>▓V│1,L╝З@453,W$;,b╞А H │ 25 е 16 йм1,│╨З@ Hл32н(Vм1), б(5,128);:З@Hл32нV,U$;:З@Hл32н(Vл1),V$;:V│Vл1:а60,(1 л  Д(3)),╗┌Л H,╤фЕ  В(VN)▓2 з 1050,№юЗ@0,"C O N G R A T U L A T I O N S !";-°З@69," A PERFECT LANDING ! ";-/А X│1е300:ЛX-Ы ╔"V25O2T6L4GABO+DCCEDDGF#GDO-BGABO+CDEDCO-BABGF#GADF#AO+CO-BABGABO+DCCEDDGF#GDO-BGABEO+DCO-BAGDGF#L2.G"-╖З@160," AT TOUCHDOWN ";-╙ З@192," ";-ш*З@224," TIME: ";-·4U$ │ "####.#".>T │ Tл TT.HЗ ═ U$;T;:З" ";.1RЗ@256," SPEED:";.F\З ═ U$;VN;:З" ";.[fЗ@288," FUEL: ";.npЗ═ U$;F;:З" ";.ГzА X│1е6:I$│ Т:ЛX.кДАX│320е480 й 32:З@X, б(31,128);:ЛX.┼ОЗ@150, Л(241); Л(251);.ЁШЗ@181, Л(241); Л(255); Л(255); Л(251);/вА X│213е341й32:З@X, б(4,255); Л(250);:ЛX/BмЗ@372, Л(247); б(5,255); Л(242);/_╢З@403, Л(245); б(7,255);/{└З@384," HIT ENTER ";/Ч╩З@416," TO CONTINUE ";/╔╘З@437, Л(159); б(2,128); Л(149); Л(154);:а2,2/ы▐А X│1е80:I$│ Т:Е I$┤▓"" з 190/єшЛ X0ЄЗ@437, б(5,128);0*№А X│1е80:I$│ Т:Е I$┤▓"" з 19001ЛX0<Бе 9800GАX│1е30\$З@400, б(5,128);0s.╔ "O1V25T25L2CCCC"0И8З@400, б(5,159);0гB╔ "O1V24T24L2C+C+C+C+"0кLЛX0┬VЕ  В(VN)▓7.5 з 11600э`З@0," R O U G H L A N D I N G ! ! ";1jЗ@67," BUT ...... YOU ARE SAFE ";1^t╔ "T2O3V22P2L4DL3FL8DL4CL3FL8CO2L4B-O3CDL2CP12L4CL3EL8DL4CO2B-DEL1FP2"1i~Бе 7901~ИЗ@336, б(5,128);1ЦТЗ@368,U$;:З@400,V$;1нЬ╔ "O1V25T25L2CCCC"1┬жЗ@368, б(5,128);1╬░А X│1е31у║З@400, б(5,255);1·─╔ "O1V26T25L2CCCC"2╬З@400, б(5,159);2*╪╔ "O1V29T25L2C+C+C+C+"21тЛX2\ьЗ@0," D E S T R U C T I O N ! ! ! ! ";2ДЎЗ@66," CONDOLENCES WILL BE SENT! ";2╝╔ "V25T3O3P4L2CL3CL8CL2CE-L8DL3DL8CL3CO2L8BO3L2CP2"2╟ Бе 7902╙Бе 13002щВ DIRECTIONS HERE2я(Ю32З"'LANDER,' ALSO KNOWN AS LUNAR,"3=<З"LEM, ROCKET, APOLLO AND VARIOUS"3dFЗ"OTHER NAMES, IS A SIMULATION OF"3ЛPЗ"A LUNAR LANDING MISSION. IT IS"3▓ZЗ"REGARDED BY MOST AS A PROGRAM-"3┘dЗ"MIMG CLASSIC OF THE 60'S & 70'S"4nЗ".... AND NO SOFTWARE LIBRARY IS"4xЗ"COMPLETE WITHOUT IT."4"ВЗ4IМЗ"THIS TRS-80 COLOR COMPUTER VER-"4pЦЗ"SION, IS AN ADAPTATION THAT HAS"4ЧаЗ"BEEN CREATED TO TAKE ADVANTAGE"4╛кЗ"OF THE SOUND (MUSIC) & GRAPHICS"4р┤З"FEATURES OF YOUR COMPUTER."4°╛А X│1е6:а160,1:ЛX:З5 ╚Й"HIT ENTER TO CONTINUE - READY";I$5&╥Ю5M▄З"YOU ARE THE *PILOT* OF A LUNAR"5tцЗ"LANDING CAPSULE ...... 500 FEET"5ЫЁЗ"ABOVE THE MOON. THE *ON-BOARD*"5┬·З"COMPUTER HAS JUST FAILED ... IT"5щЗ"WASN'T MADE BY RADIO SHACK ..."6З"SO YOU MUST TAKE MANUAL CONTROL"67З"OF THE LEM. YOU HAVE A DOWNWARD"6^"З"(D) SPEED OF 50 FEET/SEC, & 120"6t,З"UNITS OF FUEL."6z6З6б@З"THE OBJECT OF LANDER, THEN, IS"6╚JЗ"TO SAFELY BRING THE LEM DOWN TO"6яTЗ"THE SURFACE OF THE MOON: SPEED"7^З"OF ZERO(0) WHEN THE DISTANCE IS"7=hЗ"ZERO(0) ... AND BEFORE YOU'RE"7SrА X│1е6:а160,1:ЛX7А|З"OUT OF FUEL.";:Й" HIT ENTER";I$7ЖЖЮ7нРЗ"HERE IS THE DATA YOU NEED FOR A"7┬ЪЗ"SAFE LANDING:"7╚дЗ7яоЗ"A. AFTER EACH SECOND, THE DIS-"8╕З"TANCE, SPEED, AND THE FUEL LEFT"8<┬З"WILL BE REPORTED (KEEP WATCH)."8e╠З:З"B. AFTER THE REPORT A '?' WILL"8М╓З"APPEAR. TYPE & ENTER THE NUMBER"8│рЗ"OF UNITS OF FUEL YOU DESIRE TO"8┌ъЗ"BURN DURING THE NEXT SECOND. A"9ЇЗ"UNIT OF FUEL SLOWS YOU 1 FOOT /"9(■З"SECOND . . . . IT REQUIRES 5 TO"9NЗ"COUNTERACT THE MOON'S GRAVITY."9fЗ:А X│1е6:а160,1:ЛX9ОЙ"HIT ENTER TO CONTINUE - READY";I$9Ф&Ю9╗0З"C. THE MAXIMUM THRUST OF YOUR"9т:З"ENGINE IS 30 FT/SEC/SEC .... OR":DЗ"30 UNITS OF FUEL PER SECOND.": NЗ:3XЗ"D. IF YOU RUN OUT OF FUEL, THE":ZbЗ"'?' WILL NO LONGER APPEAR, BUT":БlЗ"YOUR SEC-BY-SEC REPORT WILL GO":иvЗ"ON (UNITL YOU CONTACT THE LUNAR":╣АЗ"SURFACE).":тКЗ:З"E. UPON TOUCHDOWN, A GRAPHICS"; ФЗ"DISPLAY WILL *SHOW* YOU HOW YOU";!ЮЗ"DID (OR DIDN'T).";7иА X│1е6:а160,1:ЛX;=▓З;a╝З" GOOD LUCK!! HIT ENTER TO";З╞Й" BEGIN LANDING .... READY";I$;Н╨РL YOU CONTACT THE LUNAR":╣АЗ"SURFACE).":тКЗ:З"E. UPON TOUCHDOWN, A GRAPHICS"; ФЗ"DISPLAY WILL *SHOW* YO