E.0с
@ЖIT'S LOCKED.,YOU HAVE MANAGED TO UNLOCK THE  VAULT.,THE VAULT IS LOCKED.,THAT COMBINATION IS INCORRECT.,YOUR BOTTLE DOES NOT CONTAIN    ANYTHING.,YOU HAVE TO OPEN THE VAULT TO   GET INSIDE IT.,YOUR LAMP IS ALREADY OFF.1
EЖTHE WIZARD WON'T LET YOU.1┌
JЖHAY IS SOFT.,THE FIGURINE IS EXTREMELY       DELICATE.,SNAKES LOVE RODENTS.,ONLY A POWER STRONGER THAN THE  WIZARD'S OWN CAN DEFEAT HIM.,COMPLETE YOUR TASK AND RETURN   HERE AND...,THE HUNGRY ARE ALWAYS RESTLESS.2Q
TЖGODS ARE UNHAPPY CREATURES WITH MANY NEEDS.,THE RIVER FLOWS TOWARDS THE RED SEA.,THERE IS NO HELP TO BE OBTAINED.CKED CARROTS ARELYING ON THE GROUND. AN ORCHARD IS EAST. A PATH LEADS WEST.3+vЖYOU ARE IN AN ORCHARD. SURROUND-ED BY A FLOOD OF ORANGES IS A   SOLITARY APPLE TREE. A PAT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                COMFORTABLY HOT. AS YOU LOOK  UP INTO THE SKY YOU SEE A LARGE STONE IDOL. YOU ARE BEING OFFER-ED AS A SACRIFICE.(0╚ЖEVERYTHING SPINS AROUND YOU AS AWALL OF FIRE ENCIRCLES YOU. WHENYOU WAKE UP YOU FIND THAT...,A SMALL WALL OF FIRE BARELY     SURROUNDS YOU. YOU REGAIN       CONSCIOUSNESS AND FIND THAT...(╙╥ЖTHAT JUMP WOULD HAVE WON A GOLD MEDAL. UNFORTUNATELY YOU LANDED HEAD FIRST INTO A PILE OF ROCKS.,YOU HAVE DIED THREE TIMES. THE  GAME IS THEREFORE SUSPENDED.)и▄ЖYOU OBVIOUSLY HAVE NO IDEA WHAT IS HAPPENING IN THIS GAME.,YOU ARE OBVIOUSLY A RANK NOVICE IN THIS GAME.,YOU MAY NOW CONSIDER YOURSELF ANINTERMEDIATE IN THIS GAME.,YOU ARE NOW AN ADVANCED         ADVENTURER.*цЖALL HONOR THEE - GRANDMASTER    ADVENTURER!,A LOUD VOICE EMANATES FROM      BEYOND SAYING 'TIME GROWS SHORT - MORTAL - BEFORE WE FEAST      AGAIN.',EECH! WHAT LOUSY TASTING WATER.,THER'S NO WATER WITHIN REACH.+PЁЖYOU CAN'T ENTER ANYTHING FROM   HERE.,YOU CANNOT LEAVE FROM HERE.,YOU HAVE NO CONTAINER TO PUT IT IN.,THE SNAKE BLOCKS YOUR WAY.,YOUR CONTAINER IS FULL.,YOU DON'T HAVE A LAMP.,THE WIZARD BLOCKS YOUR WAY.,·ЖYOU INCOMPETENT FOOL! YOU FORGOTTO CLOSE THE RIVER AND AS A     RESULT A FLOOD HAS OVERRUN THE  COUNTRY- SIDE.,THE MOUSE RUNS AWAY.,DISGRESSION WILL PREVENT TRANS- GRESSION.,└
ЖIT'S ALREADY OPEN.,IT'S ALREADY CLOSED.,A GIANT OGRE GRABS YOU AND      THROWS YOU INTO A PIT.,THER IS NO SIGN OF ANY OIL HERE.,A PANEL SLIDES OPEN REVEALING   A PASSAGE TO THE NORTH.- 
ЖA SUDDEN WIND BLOWS FROM BEHIND AND SCATTERS THE SPICES TO THE  FOUR CORNERS OF THE EARTH..
ЖTHE HEAVENS PART AT THEIR SEAMS AS THE GODS PREPARE THEIR NEXT  MEAL.ALMAZAR CAN NO LONGER PRO- TECT YOU. FOR EVEN THE MIGHTIESTOF BEINGS CANNOT ALTER THAT     WHICH IS PREORDAINED. YOUR LIFE IS NOW OVER. MAY YOU REST IN    PEACE..╡
"ЖTHE DELICATE FIGURINE BREAKS ON HITTING THE GROUND.,A STRING OF PEARLS IS LYING IN  THE DRAWER.,YOU'RE NOT CARRYING A BOTTLE.,THERE IS NOTHING TO FILL IT     WITH./`
,ЖA TRAP DOOR OPENS BENEATH YOU.  THE FALL KNOCKS YOU UNCONSCIOUS.WHEN YOU AWAKEN YOU FIND THAT...,THE CHEESE WAS STALE BUT YOU    MANAGED TO CONSUME THE ENTIRE   BOX.0

6ЖTHE GNOME IS TOO FAST FOR YOU.,THE LAMP IS ALREADY LIT.,YOU'VE GOT TOO MUCH TO CARRY.,THE BOTTLE BREAKS ON IMPACT.,THE PANEL CLOSES AND SEALS THE  PASSAG RЩ"D",#1,"SFARESP/DAT"+
╨#1,255 зR$OАX│1е102:НRE$:╘R$│RE$:┼#1:Л:Ъ#1.dЖTHERE IS NO WAY TO GO IN THAT   DIRECTION.,I DON'T UNDERSTAND.,OK.,I DON'T SEE IT HERE.,YOU'RE NOT CARRYING IT.,NOTHING HAPPENS.,YOU'RE ALREADY CARRYING IT!,IN A BLAZE OF GLORY YOU FIND    YOURSELF IN A LAND FAR AWAY.SiЖIT'S TOO HEAVY FOR YOU TO TAKE. 
nЖOUCH! EVERY BONE IN YOUR FOOT   JUST BROKE.,EECH! YOUR HANDS JUST TURNED IN TO A BLOODY MESS.,YOU DON'T HAVE ANY MATCHES.,YOU CANNOT LIGHT AN EMPTY OIL   LAMP.,YOU HAVE NO KEYS. ╚xЖTHERE IS NOT ENOUGH LIGHT TO SEEAROUND YOU.,YOU HAD BETTER HURRY. TIME IS    RUNNING OUT.,YOUR LAMP IS GETTING DIM.,THE MOUSE IS FRIGHTENED BY YOU.,THE ONLY THING EDIBLE HERE IS   YOU!!}ЖTHE MOUSE WAS USED FOR CARCINO- ENIC TESTING. THE SNAKE IS DEAD.!ьВЖTHE SNAKE SEVERS YOUR HAND. YOU HAVE BEEN POISONED.,THE RING GLOWS BRIGHTLY. A      LIGHTNING BOLT STRIKES THE      WIZARD.,THE GOD IS INCENSED BY YOUR     AUDACITY. WITH A BLINK OF AN EYEYOU FALL TO THE GROUND DEAD."ЗЖAN EMERALD EYE FALLS TO THE     GROUND.#МЖA PLATINUM CHAIN LIES BEFORE    YOU.,A GOLDEN APPLE HANGS FROM AN    APPLE TREE.,YOU CAN'T CROSS THE RIVER.,HOLY MOSES! THE RIVER JUST SPLITIN TWO! A DRY PATH LEADS TO THE OTHER SIDE.,A LOUD NOISE SURROUNDS YOU AS   THE RIVER CLOSES.#яЦЖYOU DID NOT JUMP FAR ENOUGH. YOUFELL INTO THE RIVER.,A SCHOOL OF PIRRHANAS DEVOURS   YOU.,FISH FROM THE AMAZON.,FRODO LIVES.,MERLIN WAS HERE.,A CRYSTAL BRIDGE NOW SPANS THE  CHASM!,THE BRIDGE HAS JUST AS SUDDENLY DISAPPEARED.$█аЖTHE GREAT ALMAZAR BIDS YOU WELL.THOUGH YOU WILL ENCOUNTER MANY  TRIALS HE SHALL PROVIDE FOR YOU.HE THAT IS BOTH WATER AND FLAME SHALL SEND YOU A GIFT TO AID YOUIN YOUR QUEST. THUS SAYETH      ALMAZAR 'LIVE AND YOU SHALL     LIVE.'%┴кЖ'AND SO IT CAME TO PASS THAT IN THE THIRD DAY OF THE SEVENTH    MONTH OF THE TWENTY-FIRST YEAR AGREAT EVENT HAPPENED. THE EARTH OPENED AND TOOK WITHIN IT THE   FRUITS OF THE PEOPLE'S LABOR ANDGAVE UPON THEM A GREATER GLORY.'&╖┤ЖTHE CHEST IS EMPTY.,WHEW! THAT'S STRONG STUFF!,YUCK! THE MOUSE WAS USED FOR    CARCINOGENIC TESTING. YOU'RE    DEAD.,THE ABYSS IS TOO WIDE TO CROSS.,YOU FELL INTO THE CHASM. YOU AREDEAD.,A SMALL AXE FLIES THROUGH THE   WINDOW AND KILLS YOU.'o╛ЖTHE WIZARD RAISES HIS HAND AND  IN AN INSTANT YOU FIND YOURSELF UN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
Щ"O",#1,"SFAVOC/DAT"=АX│0е96:НV$,V:┘#1,V$,V:Л:Ъ#1:К dЖNORT,1,N,1,EAST,2,E,2,SOUT,3,S,3,WEST,4,W,4,UP,5,U,5,DOWN,6,D,6,LOOK,7,HINT,8,HELP,8,INVE,9,JUMP,10,SCOR,11,QUIT,12,SAVE,13,REST,14,ENTE,15,LEAV,16,TAKE,17,GET,17,T,17,OBTA,17,DROP,18,DR,18,WAVE,19,SHOW,20,READ,21,FILL,22╦nЖLIGH,23,BURN,23,KILL,24,ATTA,24,KICK,25,SMAS,26,BREA,26,THRO,27,TOSS,27,EAT,28,DRIN,29,FEED,30,TURN,31,UNLO,32,CROS,33,SWIM,34,OPEN,35,CLOS,36,OFF,37,PULL,38,EMPT,39 ╕xЖDIAM,0,EMER,1,CHAI,2,PLAT,2,APPL,3,GOLD,3,PEAR,4,SPIC,5,DAGG,6,KNIF,6,FIGU,7,LAMP,8,KEY,9,RING,10,ROD,11,STAF,12,INCE,13,HAY,14,STRA,14,CHEE,15,MOUS,16,MATC,17,BOTT,18,IDOL,19,SNAK,20,ABYS,21,CHAS,21,WIZA,22,RIVE,23,HEAD,24,BOOK,25!ВЖMESS,26,BALL,27,CRYS,27,OIL,28,WATE,29,VAUL,30,CHES,31,DRAW,32,WIND,33,ROPE,34,SIGN,35,GNOM,36ZE OF TWISTY     LITTLE PASSAGES."/<ЖYOU ARE IN A LITTLE MAZE OF     TWISTY PASSAGES.,YOU'RE IN THE TALL WALL CANYON.,YOU'RE IN A LONG HALL.,YOU ARE IN A PLACE WHERE THREE  PATHS MEET.,YOU'RE AT THE CHASM.,YOU ARE ON A NAR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                RGE WALK-IN CLOSET IS SOUTH. THERE  IS A LARGE DRESSER WITH A       CENTRAL DRAWER NEAR THE BED. A  DOOR IS TO THE EAST.9╜°ЖYOU ARE IN A LARGE WALK-IN      CLOSET WITH A DOOR TO THE NORTH.:ЖYOU ARE ON THE UPPER FLOOR. A   DOOR IS WEST. STAIRS LEAD DOWN.:dЖYOU ARE IN A MUSTY ATTIC. AN OLDCHEST IS SITTING IN ONE CORNER  OF THE ROOM. A DOOR IS EAST.:├ЖYOU ARE INSIDE THE OUTHOUSE. A  STRANGE MESSAGE IS PASTED ON THEWALL. A DOORWAY IS SOUTH.;Z ЖYOU ARE INSIDE A SMALL CUBICLE. INSCRIBED ON TOP OF THE DOOR ARETHE LETTERS i f AND t. ONE OTHERLETTER APPEARS TO BE MISSING.   THE DOOR IS WEST.;w*ЖYOU ARE INSIDE A VAULT.▓23 з159;┴╢RE│4:ЕIO│21 зЕ(RN┤▓27 ░RN┤▓28)з159::ДЕSP(9)│0 зRE│42:Бе159;√╖ЕIO│23 зЕ(RN┤▓43 ░RN┤▓44)з159::ДЕSP(8)│0 зRE│27:Бе159<                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   GOES TO THE EAST.0КDЖYOU ARE AT THE RIVERFRONT. UPON THE SHORE YOU SEE THE BONES OF  UNSUCCESSFUL RIVER CROSSERS. A  PATH LEADS NORTH.1GNЖYOU ARE STANDING BY A LARGE     GARGOYLE STATUE. IT SEEMS TO BE STARING AT YOU. INSCRIBED IN ITSBASE IS THE NUMBER 13. A ROAD   GOES SOUTH. EXITS LEAD EAST AND WEST. A HOUSE IS NORTH.1аXЖYOU ARE OUTSIDE AN OUTHOUSE. A  PATH LEADS SOUTH. OTHER PATHS   LEAD EAST AND WEST.2bЖA LARGE STONE IDOL STANDS IN    FRONT OF YOU. THERE IS A SMALL  CHARRED PIT IN FRONT OF THE     IDOL. A PATH LEADS EAST.2ЯlЖYOU ARE IN A GARDEN. HALF A     DOZEN FRESHLY PICKED CARROTS ARELYING ON THE GROUND. AN ORCHARD IS EAST. A PATH LEADS WEST.3+vЖYOU ARE IN AN ORCHARD. SURROUND-ED BY A FLOOD OF ORANGES IS A   SOLITARY APPLE TREE. A PATH     LEADS WEST. ANOTHER PATH GOES   SOUTH.3йАЖYOU ARE AT AN ENTRANCE TO AN ODDLOOKING HOUSE. IN THE MAILBOX ISA LETTER MARKED 'C/O WIZARD OF  OZ.' A WALK LEADS SOUTH.4MКЖYOU ARE INSIDE THE HOUSE. A     LARGE DOOR IS TO THE SOUTH. A   LARGE HALLWAY CONTINUES NORTH.  THERE IS AN ARCHED DOOR TO THE  EAST. A SMALL DOORWAY IS WEST.4уФЖTHIS IS THE DINING ROOM. IT     LOOKS LIKE SOMEBODY IS EXPECTINGGUESTS. THERE ARE SEVEN PLATES  ON THE TABLE. A DOOR IS NORTH. ADOORWAY IS EAST.5@ЮЖTHIS IS THE KITCHEN. A BIG POT  OF BOILING WATER IS OVER A WOOD STOVE. A DOOR IS SOUTH.5╢иЖYOU ARE IN THE LIVING ROOM. A   SMALL STATUE WITH A ROUND HEAD  IS SITTING ON A TABLE. A LARGE  DOORWAY IS WEST.6"▓ЖYOU ARE IN A SMALL HIDDEN ROOM. A ROPE HANGS FROM THE CEILING.  THERE IS AN OPEN PANEL TO THE   SOUTH.6]╝ЖYOU ARE IN THE BASEMENT. A      CORRIDOR LEADS NORTH.7(╞ЖA LARGE COMBINATION VAULT IS    STANDING IN FRONT OF YOU. A SIGNON TOP OF THE VAULT SAYS        'DEPOSIT TREASURES INSIDE THE   VAULT FOR FULL CREDIT.' A       CORRIDOR LEADS SOUTH. A DOOR IS EAST.8╨ЖYOU ARE IN THE RECEPTION HALL. ALARGE TABLE IS ON ONE SIDE OF   THE ROOM. AS YOU GAZE UPON THE  TABLE YOU SEE SOMEONE STARE BACKAT YOU. A CAN OF PLEDGE SITS IN THE FAR SIDE OF THE ROOM. STAIRSLEAD UP. THE HALL EXTENDS SOUTH.8r┌ЖYOU ARE IN THE MIDDLE FLOOR.    STAIRS LEAD UP AND DOWN. DOOR-  WAYS ARE TO THE EAST AND WEST.8▌фЖYOU ARE IN THE LIBRARY. A LARGE HEAVY BOOK LIES OPEN ON TOP OF ADESK BY A WINDOW. A DOOR IS     WEST.9wюЖYOU ARE IN THE BEDROOM. A LAROCKS IS A MESSAGE.EXITS LEAD EAST AND WEST.'Ъ
^ЖYOU HAVE COME TO A PLACE WHERE  PATHS MEET. A SMALL PATH LEADS  NORTH. LARGER PATHS LEAD EAST   AND WEST.'ё
hЖA BROAD CHASM SEPARATES YOU FROMA LEDGE IN THE NORTH. A SMALL   PATH LEADS SOUTH.(\
rЖYOU ARE ON A SMALL NARROW LEDGE.THERE IS A CAVERN ACROSS THE    CHASM IN THE SOUTH. A WALK LEADSDOWN.(░
|ЖYOU ARE IN AN EXTREMELY NARROW  PART OF THE CAVE. EXITS LEAD    EAST AND WEST.)
ЖЖYOU ARE IN A 'T'. A LARGE PATH  LEADS EAST. A ROAD CONTINUES TO THE NORTH AND THE SOUTH.)y
РЖYOU ARE AT AN ENTRANCE TO AN OLDABANDONED MINE. A SMALL PATH    LEADS SOUTH. A LARGE PATH LEADS WEST.)х
ЪЖYOU ARE STANDING BY A LARGE OAK TREE. INSCRIBED ON THE BARK IS AMESSAGE. PATHS LEAD NORTH AND   SOUTH.*'
дЖYOU ARE INSIDE A MINE. THERE AREPASSAGES IN EVERY DIRECTION.*d
оЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.*б
╕ЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.*▐
┬ЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.+
╠ЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.+X
╓ЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.+ь
рЖYOU'RE ON A ROAD. A COLD WIND   BLOWS IN YOUR FACE. IT SEEMS TO SAY 'LUCK DOESN'T RUN FOREVER.' THE ROAD CONTINUES TO THE NORTH AND THE SOUTH.,\
ъЖTHE ROAD GROWS SMALLER. TO THE  EAST IS A SELDOM USED GRAVEL    PATH. THE ROAD CONTINUES NORTH  AND SOUTH.-K
ЇЖYOU HAVE CLIMBED UP A HILL. THE VIEW IS SPECTACULAR (AS ONE     WOULD EXPECT.) SHARP ROCKS      PROTRUDE FROM THE BASE OF THE   HILL. BEYOND A RIVER A STRANGE  HOUSE CAN BE SEEN. THE SILENCE  HERE IS UNCANNY. PATHS LEAD EASTAND WEST.-Ж
■ЖTHE GRAVEL PATH ENDS. A LARGE   ROCK MARKS THIS SPOT.-щЖYOU ARE AT THE RIVER'S SOUTHERN EDGE. THERE IS A SMALL SIGN ON  THE SHORE. A ROAD GOES SOUTH..БЖYOU ARE AT THE RIVER'S NORTHERN EDGE. A LARGE SIGN SAYS 'WELCOMETO YOUR DEATH.' BELOW THE SIGN  (SCRIBBLED IN RED) IS A MESSAGE.A ROAD GOES NORTH..╒ЖYOU ARE AT A CROSSROADS. A ROAD GOES NORTH AND SOUTH. EXITS LEADEAST AND WEST./1&ЖTHE GROUND HERE IS LITTERED WITHLARGE HOLES. THERE ARE PATHS    LEADING EAST AND WEST./╝0ЖYOU ARE STANDING NEAR AN OLD    STABLE. A SIGN READS 'OLD ODORS NEVER DIE...THEY JUST ACC-      UMULATE.' PATHS LEAD NORTH AND  WEST.0:ЖTHE ROAD ENDS HERE. SMALL PATHS LEAD NORTH AND SOUTH. A ROAD  Н
Щ"O",#1,"SFAMOVE/DAT":АX│1е72:НN1,N2,N3,N4,N5,N6]┘#1,X,N1,N2,N3,N4,N5,N6:ЛX:Ъ#1√(Ж7,2,0,3,0,0,0,0,0,1,0,0,6,1,0,4,0,0,5,3,0,0,0,0,0,6,4,0,0,0,0,0,3,5,0,0,9,8,1,0,0,0,32,0,0,7,0,0,30,0,7,10,0,0,0,9,0,11,0,0,0,10,12,29,0,0,11,0,13,0,0,0╝2Ж12,0,0,14,0,0,0,13,0,15,0,0,0,14,16,17,0,0,15,0,0,0,28,0,0,15,0,18,0,0,18,18,19,23,18,18,18,19,19,20,19,17,21,19,20,22,20,20,0,0,20,0,0,0,23,20,22,22,22,22,23,18,22,23,24,23,0,25,23,0,0,0 z<Ж0,26,0,24,0,0,27,29,0,25,0,0,28,0,26,0,0,0,0,0,27,0,0,16,0,11,0,26,0,0,39,31,9,0,0,0,0,33,32,30,0,0,31,0,8,0,0,0,38,36,34,31,33,33,33,35,34,34,34,34,36,35,35,34,35,35,37,36,35,33,36,36!2FЖ37,37,36,38,37,37,38,37,33,38,38,38,40,0,30,0,0,0,43,41,39,0,0,0,0,42,0,40,0,0,0,0,0,41,0,0,44,0,40,0,0,0,45,0,43,0,0,0,50,46,44,48,0,0,0,47,0,45,0,0,54,0,0,46,0,0,51,45,49,0,0,0!сPЖ48,0,0,0,0,0,55,53,45,51,0,0,70,50,48,52,0,0,0,51,0,0,0,0,0,54,0,50,0,0,0,0,47,53,0,0,56,0,50,0,0,0,63,59,55,57,0,0,58,56,0,0,0,0,0,0,57,0,0,0,60,0,0,56,0,0,0,0,59,0,0,0"МZЖ62,0,0,0,0,0,72,71,61,0,0,0,0,0,56,0,64,0,0,65,0,66,68,63,0,0,0,64,0,0,0,64,67,0,0,0,66,0,0,0,0,71,0,0,0,69,0,64,0,68,0,0,0,0,0,0,51,0,0,0,0,0,0,62,67,0,0,0,62,0,0,014)▓7зRE│65:З:Бж241:SP(14)│0:SP(8)│0:Бж243:Бе14#C1│0:OW│0:З:ЙCO$:З:LC│ З(CO$):АX│1еLC:Е Р(CO$,X,1)│" "зC1│X:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 x
Щ"D",#1,"SFALDES/DAT"GАX│1е72:НDE$:╨#1,255 зD$:╘D$│DE$:┼#1:ЛXOЪ#1└dЖYOU ARE STANDING AT AN ENTRANCE TO AN OLD ABANDONED SHACK. TO   THE WEST IS A ROCKY PATH. A ROADGOES NORTH.nЖYOU ARE INSIDE AN OLD SHACK.    THERE IS A DOOR TO THE WEST.~xЖYOU ARE STANDING AT THE EDGE OF A ROCK STREWN PATH. THE PATH    CONTINUES EAST. SMALL WALKS LEADTO THE NORTH AND WEST.ШВЖYOU ARE IN A FOREST.▓МЖYOU ARE IN A FOREST.╠ЦЖYOU ARE IN A FOREST. ;аЖYOU ARE IN THE MIDDLE OF A ROAD.THE ROAD CONTINUES TO THE NORTH AND SOUTH. A SMALL PATH LEADS   EASTWARD. ╫кЖYOU ARE ON THE EDGE OF A MURKY  POOL. A DARK LIQUID IS FLOATING ON TOP OF THE POOL. THERE IS A  SMALL PATH FROM THE NORTH. A    SMALL WALK LEADS WEST.!=┤ЖYOU ARE IN A THREE WAY JUNCTION.A ROAD GOES NORTH AND SOUTH.    THERE IS A PASSAGE LEADING WEST."╛ЖYOU ARE AT AN ENTRANCE TO A     SMALL CAVE. A SMALL NARROW HOLE IS WEST.A PASSAGE LEADS EAST. ONTOP OF THE HOLE A SIGN READS    'BEWARE BRAVE ADVENTURER. FOR ITIS THE SMALL THINGS IN LIFE THATSO OFTEN DESTROY IT.'"П╚ЖYOU ARE INSIDE A CAVE. LIGHT    FILTERS THROUGH FROM THE EAST. ASMALL PATH LEADS WEST. A SMALLERPATH LEADS SOUTH."х╥ЖTHE PATH IS FULL OF BROKEN      ROCKS. THE PATH CONTINUES TO THENORTH AND SOUTH.#З▄ЖYOU ARE INSIDE A SMALL CAVERN.  SCATTERED THROUGHOUT THE ROOM   ARE THE REMAINS OF LESS FORTUN- ATE ADVENTURERS. A PATH LEADS   NORTH. A PASSAGE LEADS WEST.#┐цЖYOU ARE IN A LONG HALL EXTEND-  ING EAST AND WEST.$\ЁЖYOU ARE IN A ROOM LIT BY A SIGN THAT SAYS 'GNOMES NEED FEW TOOLSTO DO THEIR DIRTY DEEDS.'       PASSAGES LEAD EAST AND WEST. A  SMALL PATH LEADS SOUTH.$Ё·ЖTHIS IS THE TOOL ROOM. STREWN   ALL OVER THE FLOOR ARE SMALL    KNIVES WHICH DISAPPEAR TO THE   TOUCH. A PASSAGE IS NORTH. A    WALK LEADS UP.%,
ЖYOU ARE IN A LONG CORRIDOR      LEADING EAST AND WEST.%^
ЖYOU ARE IN A TWISTY LITTLE MAZE OF PASSAGES.%Ф
ЖYOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES.%╩
"ЖYOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES.%ц
,ЖYOU ARE AT A DEAD END.&
6ЖYOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES.&R
@ЖYOU ARE IN A LITTLE MAZE OF     TWISTY PASSAGES.&╥
JЖA TALL WALL RISES ABOVE YOU. YOUARE NEARLY ENCIRCLED BY LARGE   UNCLIMBABLE CANYONS. THE ONLY   EXITS LEAD SOUTH AND EAST.'+
TЖYOU ARE IN A LONG HALL. ENGRAVEDON THE  
:ГALMAZARUЮ:З:З" THE SEARCH FOR ALMAZAR: PART 1":Зд7)"THE PROVING GROUND":ЗъЗ" THIS PROGRAM IS THE FIRST OF A PROJECTED SERIES OF PROGRAMS    WHOSE CENTRAL THEME IS THE      CONTINUING SEARCH FOR THE SUPER BEING ALMAZAR.^З:З" THIS GAME, HOWEVER, WILL PLAY  TO A SATISFACTORY ENDING IF THE PLAYER DOES NOT WISH TO CONTINUETHE SERIES.ЗЗ:Зд2)"<PRESS ANY KEY TO CONTINUE>";ШЕ Т┤▓""з7:Д6 МЮ:З:З:З" THE GAME BEGINS AT ONE END OF AROAD, BY AN OLD ABANDONED       SHACK. (JUST LIKE THE ORIGINAL  adventure PROGRAM.) THE PLAYER  WILL THEN EXPLORE THE MANY      DIFFERENT SCENARIOS IN THE      GAME. BUT BE CAREFUL. THERE ARE MANY "; ╚З"TRAPS TO CATCH THE CARELESSAND UNTHINKING ADVENTURER. Ў	З:З:З:З:З"  <PRESS ANY KEY TO CONTINUE>";!	
Е Т┤▓""з11:Д10!╛Ю:З" THE PROGRAM ACCEPTS ONE OR TWO WORD COMMANDS. SOME EXAMPLES:   TO TAKE AN OBJECT TYPE take     object OR t object FOR SHORT.   TO SEE WHAT YOU'RE CARRYING TYPEinve(ntory)."╣З" TYPE score AND THE PROGRAM WILLGIVE YOU YOUR CURRENT SCORE.     TYPE save AND THE PROGRAM WILL SAVE THE GAME FOR LATER PLAY.    TYPE quit AND THE GAME WILL    END.                             TO LIGHT OR TURN OFF A LAMP    TYPE light lamp OR";"╩
З" off lamp."ЄЗ:З"  <PRESS ANY KEY TO CONTINUE>";#Е Т┤▓""з16:Д15#ьЮ:З:З" TO GET A DESCRIPTION OF A ROOM TYPE look.":З:З" OTHER COMMANDS INCLUDE smash,  show, cross ETC.":З" IN ADDITION, ONE MAY TYPE enterTO ENTER A SHACK OR leave TO    LEAVE A SHACK. OF COURSE, IF    THERE IS NO WAY OUT YOU"$0З"CANNOT  LEAVE. A HINT - CAVES   ARE DARK AND OFTEN DANGEROUS.$ZЗ:З:З:З"  <HIT ANY KEY TO CONTINUE>";$mЕ Т┤▓""з20:Д19$ъЮ:З" YOU HAVE A LIMITED NUMBER OF   TURNS IN WHICH TO ACCOMPLISH    YOUR TASK. IF YOU DON'T FINISH  ON TIME YOU WILL... %░З:З" FROM TIME TO TIME YOU MAY NEED A HINT, SO JUST TYPE hint OR    help. BUT REMEMBER, NOTHING IS  FREE IN THE WORLD TODAY.":З:З:З"  GOOD LUCK AND MAY ALMAZAR      GUIDE YOU ON A SAFE JOURNEY.%┌З:З:З"  <PRESS ANY KEY TO CONTINUE>";&
I$│ Т:ЕI$│""з23 :ДЮ:О"SFAMAIN/BAS"MH│2 з MD│MDл1&╘J│1&+8А L1 │ 1 е 6&=ЬЗ#м2,дPT);LD$&OЗ#м2,дPT);DD$&[dD2$│DD$&h╚Бж 20000&z,З#м2,дPT);D2$&ЙРL2│ Б(Lо2)&кЇА I │ 1 е L2:З#м2,дPT);DD$:Л&░XЛ&┬╝З#м2,дPT);LD$&┘ З#м2, Л(13), Л(13)&ц*H2│H2лMD'4DH│H2м( Б(H2о7)н7):Е" mEAN=";M:З" sD=";SD:З" vR=";CV:З" sE=";SE,"s=";CD9I^Z$│ Т:ЕZ$│""з94:ДР9▒_З@96,BL$:З@97,"VALUES NEED NOT HAVE OCCURRED   TO COMPUTE STANDARD SCORES.":Й" VALUE";Z$:ЕZ$│"^"з909№`DZ│ Й(Z$)мM:Z│DZоCD:ZD│ Й(Z$)нCDлM:З" mN";M,"s=";CD:З" Z=";Z:З" V=";ZD: aZ$│ Т:ЕZ$│""з97 :ДЕZ$│"^"зР:Д95:.bБж104:F│1:TcАF2│F еX:ЕST(F2)│ST(F) зFR│FRл1:Л:ЪdЗST(F);д16);FR;д21);:З ═"##.#";FRоXн100;:З ═"####.#";(F2м1)оXн100:╛eG│Gл1:F│FлFR:FR│0:ЕF▓X зБж103:Р:шfЕGо6│ Б(Gо6) зБж103:Бж104:Бе99::ДБе99;gZ$│ Т:ЕZ$│""з103 :Д Р;EhG│1:З@64,BL$:З@96,BL$:З@96," iTEM ---------- fRQ %tTL  %cUM":Р;yiАL│N еX:T(L)│T(Lм1)лC(L):ST(L)│ST(Lм1)лC(L):Л:Р<jЗ@96,BL$:╔"BGBG":З@64," ":╗ Й" [eNTER] FOR RECORDER CONTROL ";Z$:ЯИ:бИ:╗ Й" [eNTER] fILE nAME --";N$:N$│ О(N$,8):Як:бк:╗ Й" PRESS p&r, THEN [eNTER] ";Z$<]kТ65494,0:Щ"O",#м1,N$:АZ│1еX:З#м1,C(Z),D$(Z),T(Z),ST(Z):Л:Ъ#м1:Бе51O(TQ),CL(TQ),V(TQ):Бе6120<РЪ#1:Т65495,0:Бе500<вX:Г inkey$ sub<╩bЗ@480,"PRESS ANY KEY TO CONTINUE.";<▀lАAA│1е10:A$│ Т:Л<ўvAA$│ Т:ЕAA$│""з7030=АAA│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                111,═"#,###.#####";T(X):З@143,═"#,###.#####";ST(X):З@234,═"###.######";MV;:З" (";MA;")":Р0╢=З@111,═"###.######";T(X):З@143,═"###.######";ST(X):З@234,═"##.#######";MV;:З" (";MA;")":Р1>З@111,═"##.#######";T(X):З@143,═"##.#######";ST(X):З@234,═"#.########";MV;:З" (";MA;")":Р13?V│0:АQ│1еMA:V│VлC(Xл1мQ):Л1A@MV│VоMA:Р1╠AЗ@96,BL$:╔"BGBG":З@129,"key 'Y' [eNTER] to"; Л(128);"clear"; Л(128);"all":╗ Й" IF YOU'VE CHANGED YOUR MIND,    JUST PRESS [eNTER] ";Z$1№BЕZ$│"Y"зАQ│1еX:C(Q)│0:T(Q)│0:ST(Q)│0:Л:Бе152CX│Xл1:╔"CG":Бе232гDЗ@96,BL$:╔"BGBG":З@129,"rEVIEW- (1) ITEM BY ITEM,               (2) BY ITEM NUMBER,             (3) BY ITEM VALUE,              (4) BY TOTAL"2рEZ$│ Т:ЕZ$│""з69 :ДЕZ$│"^"з51:Д╔"F":Z│ Й(Z$):ЕZ│0▒Z▓4зZ│13BFR$(1)│" BEGINNING WITH iTEM # ":R$(2)│" iTEM # ":R$(3)│" iTEM VALUE ":R$(4)│" iTEM TOTAL => "3ИGЗ@96,BL$:З@96,R$(Z);:╗ ЙS$:ЕS$│"^"з68 :ДS│ Й(S$):ИZ Бж73,75,76,783┐HЗ@256, б(22," "):Z$│ Т:ЕZ$│""з72 :ДЕZ$│"^"з68 :Д713┘IЕS│0зS│1:ДЕS▓XTHENS│X3■JАN│S еX:Бж80:Бж81:ЕZ$│"^"зР:ДЛ:Р4KN│S:Бж80:Бж81:Р4:LАN│1еX:ЕC(N)│S зБж80:Бж81:ЕZ$│"^"зР4BMЛ:Р4kNАN│1еX:ЕT(N)│▓S зБж80:Бж81:ЕZ$│"^"зР4sOЛ:Р4ўPЗ@128," iTEM NBR ";N;" vAL=";C(N):З@160," iTEM TOTAL=";T(N);"      ":З@192," kEYED:";D$(N);"      ":З@224," PREV vAL=";C(Nм1):Р5wQЗ@256," -hIT R-REKEY D-DELETE I-INSERT":Z$│ Т:ЕZ$│"" з81 :ДЕZ$│"D" з╔"DA":АQ│N еX:C(Q)│C(Qл1):D$(Q)│D$(Qл1):Л:X│Xм1:Бж105:Р6RЕZ$│"R" з╔"AA":XS│X:X│N:CG│1:Бж27:X│XS:Бж105:CG│0:АI│1е1000:Л:╗ Й"   <eNTER> TO CONT. REVIEW ";Z2$:а40,1:З@96,BL$:З@96,R$(V);S:N│Nм1:Р6╡SЕZ$│"I" з╔"AD":АQ│X еN йм1:C(Qл1)│C(Q):D$(Qл1)│D$(Q):Л:XS│X:X│N:CG│1:Бж27:X│XSл1:Бж105:CG│0:АI│1е1000:Л:╗ Й"   <eNTER> TO CONT. REVIEW ";Z2$:а40,1:З@96,BL$:З@96,R$(V);S:Р::ДР6яT╔"BG":З"        ONE MOMENT ...":АS│1еX:ST(S)│м9Eл37:Л6■UАS│1еX:P│07VАS1│1 еX:ЕC(S1)┤│C(S) зP│Pл17AWЕST(P)│C(S) ░P┤▓1 зP│Pм1:Бе877TXЛ:ST(P)│C(S):Л7ёYSUM│0:SSQ│0:АS│1еX:SUM│SUMлST(S):SSQ│SSQл(ST(S)п2):Л:M│SUMоX:VR│(SSQм(Xн(Mп2)))оX:SD│VRп.5:CV│(SSQм(Xн(Mп2)))о(Xм1):CD│CVп.5:SE│CDо(Xп.5):RG│ST(X)мST(1)8dZЗ@96,BL$:╔"BGBG":З@129,"tASK   1) SUMMARY STATS                2) STANDARD SCORES              3) FREQUENCIES"8б[Z$│ Т:ЕZ$│""з91 :ДЕZ$│"^"з51:Д╔"F":Z│ Й(Z$):ЕZ│0▒Z▓3зZ│18╕\ИZ Бж93,95,98:Бе9092]З@96,BL$:З@97,"n=";X:З@105,"rANGE=";RG:З" mIN";ST(1),"mAX";ST(X):ЗР'Л:Р'АDS│1е31')A$│ Т:ЕA$│""з28'1Бж9'╜ЕC$│""з39::ДЕA$│ Л(13)зC(X)│ Й(C$):C$│"":╔"FG":Бе41::ДЕA$│ Л(64)зC(X)│0м Й(C$):C$│"":╔"DE":Бе41::ДЕA$│"F"░M$┤▓"Y"зБж24:C$│"":╔"CC":Бе41'шЕA$┤▓"A"з33:Д╔"T8L8D":D$(X)│D$(X)л"+C"(I A$│ Т:ЕA$│"1"зC(X)│ Й(C$)лC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)лC2:C$│"":╔"GC":Бе41::Д32(t!ЕA$┤▓"S"з35:Д╔"T8L8E":D$(X)│D$(X)л"-C"(╒"A$│ Т:ЕA$│"1"зC(X)│ Й(C$)мC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)мC2:C$│"":╔"GC":Бе41::Д34)#ЕA$┤▓"X"з37:Д╔"T8L8F":D$(X)│D$(X)л"XC")a$A$│ Т:ЕA$│"1"зC(X)│ Й(C$)нC1:C$│"":╔"CG":Бе41::ДЕA$│"2"зC(X)│ Й(C$)нC2:C$│"":╔"CG":Бе41::Д36)М%ЕA$┤▓"Z"з39:Д╔"T8L8G":D$(X)│D$(X)л"/C"*&A$│ Т:ЕA$│"1"░C1┤▓0 зC(X)│ Й(C$)оC1:C$│"":╔"CG":Бе41::ДЕA$│"2"░C2┤▓0 зC(X)│ Й(C$)оC2:C$│"":╔"GC":Бе41::ДЕA$┤▓""з28 :Д38*"'ЕA$│"^"зC$│"":X│Xм1:Р**(ЛDS*Н)T(X)│T(Xм1)лC(X):ST(X)│ST(Xм1)лC(X):ЕA$│"1" ▒A$│"2" зD$(X)│D$(X)лA$::ДЕA$│"@" зD$(X)│D$(X)л"-"*д*З@0, б(27," ")л"#"+I+З@28,═"###";X:З@97,"total=                          sUBTL (#";ST;"=             ":З@161,"eNTRY:";D$(X);" VAL=";C(X):З@192," lAST VALUE:";C(Xм1):З@225,"mVG AVG="+o,З@256," constants#1:";C1;"#2:";C2+З-ЕX│▓MA ░M$│"Y"зБж63+й.J$│ И( Б(T(X))):LJ│ З(J$):E│D+╦/ЕLJ▓(10мD)зE│(10мLJ):ЕE┤1зE│1+ь0ИE Бж55,56,57,58,59,60,61,62,1ЕCG┤▓1 ░X┤150 зX│Xл1:Бе27::ДЕCG│1зР,щ2З@96,BL$:а10,5:З@128," full-- 150 VALUES ENTERED ...   YOU CAN REVIEW, EVALUATE OR     SAVE, BUT REGISTERS MUST BE     CLEARED TO CONTINUE ENTRY --    cURRENT tOTAL WILL BE SAVED.":X│150:TF│T(150):АI│1е2500:Л-Ы3З@96,BL$:╔"T8L16AFAF":З@129,"choose (1) CONTINUE KEY-ENTRY          (2) CLEAR REGISTERS             (3) REVIEW                      (4) EVALUATE                    (5) SAVE"-╞4Z$│ Т:ЕZ$│""з52 :ДZ│ Й(Z$):ЕZ│0▒Z▓5з51-▀5ИZ Бе54,65,68,84,106.	6ЕX┤150 зST(X)│0:X│Xл1:╔"CG":Бе23::Д51.o7З@111,═"#,###,###,###";T(X):З@143,═"#,###,###,###";ST(X):З@234,═"##,###,###.#";MV;:З" (";MA;")":Р.╙8З@111,═"##,###,###.#";T(X):З@143,═"##,###,###.#";ST(X):З@234,═"#,###,###.##";MV;:З" (";MA;")":Р/69З@111,═"#,###,###.##";T(X):З@143,═"#,###,###.##";ST(X):З@234,═"###,###.###";MV;:З" (";MA;")":Р/Ч:З@111,═"###,###.###";T(X):З@143,═"###,###.###";ST(X):З@234,═"##,###.####";MV;:З" (";MA;")":Р/°;З@111,═"##,###.####";T(X):З@143,═"##,###.####";ST(X):З@234,═"#,###.#####";MV;:З" (";MA;")":Р0X<З@ 
:Г *VICTORIAN "T"'
З#м2, Л(18)3А R│1е3WН N:Е N│999з80 :Д Е N│888 з 200x(Е N▓│0з З#м2, Л(128лN);:Бе30А2Н Mа<А L│1емN:З#м2, Л(128лM);:ЛLйFБе30╢PЗ#м2:Л R2nЖ -5,0,2,69,4,114,9,5,66,68,106,49,33,34,36,40,50,53,49,42,36,34,33,33,33,34,38,105,17,38,64,70,41,33,18,12,2,5,9,6,999УxЖ -5,0,1,2,2,49,74,4,5,4,95,48,23,19,9,69,61,1,127,127,1,61,69,9,19,23,16,127,16,8,104,7,999шВЖ -7,0,48,72,70,49,1,1,24,36,50,98,81,74,68,81,95,95,81,68,74,81,96,-3,0,1,1,888 ╚З#м2, Л(30);"was the night before Christmas,64,-13,0,64,32,16,8,4,2,1,999 hВЖ -24,0,1,2,4,8,16,32,64,32,16,8,4,2,1,999L▓15 з L│0 А
6Бе 160 Ц
@L│Lм1:ЕL┤0 з L│15 б
JБе 160 ░
TВ * OUTPUT ┼
^Е К(A$)│12 з 180 ┌
hЕ К(A$)│64 з 760 ї
rВ ********************!
|В *                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ^Х
└1:Т65494,0:Х1700:BL$│ б(192,143):H$│ б(17,128)л"adding"л Л(128)л"machine"л Л(128):МC(150),T(150),ST(150),D$(150)::Г    ADDING     B.ELLIS 2/84ЖЮ:З@32,H$:З" THIS PROGRAM CREATES A NUMBER   PAD USING A MATRIX OF LETTERS   ON THE KEYBOARD.  DURING DATA   ENTRY, TWO CONSTANTS ARE AVAIL  -ABLE, ALONG WITH A 'FUNCTION'  KEY.  SUBTOTALS ARE DISPLAYED   STARTING WITH ITEMS BEGUN WITH" )З" A SPACE. MOVING AVERAGES ALSO   AVAILABLE.  EDIT & REVIEW DATA  FROM THE MAIN MENU.  RETURN TO  MAIN OR OTHER MENUES WITH '^'.     PRESS ANY KEY TO START." ╤Z$│ Т:ЕZ$│""з4 :ДЮ:З@32,H$:Й" pREVIOUS fILE ('Y'IF YES)";Z$:ЕZ$┤▓"Y"з15 :Д╗ Й" [eNTER] FOR RECORDER CONTROL ";Z$:ЯИ:бИ:╗ Й" [eNTER] WHEN TAPE POSITIONED ";Z$:Як:бк!#╗ Й" [eNTER] fILE nAME --";N$:╗ Й" PRESS pLAY, THEN [eNTER] ";Z$:Щ "I",#м1,N$!1Е М(м1)з8!ZX│Xл1:Й#м1,C(X),D$(X),T(X),ST(X):Бе6!ФЪ#м1:CF│1:З" fINISHED. "X"ITEMS READ":АI│1е900:Л:Бе15!╕	ЕC$│""░A$│" "зST(Xм1)│0:а40,1:Р">
ЕA$│"J"зB$│"1":Бе14::ДЕA$│"K"зB$│"2":Бе14::ДЕA$│"L"зB$│"3":Бе14::ДЕA$│"U"зB$│"4":Бе14::ДЕA$│"I"зB$│"5":Бе14::ДЕA$│"O"зB$│"6":Бе14"─ЕA$│"7"зB$│"7":Бе14::ДЕA$│"8"зB$│"8":Бе14::ДЕA$│"9"зB$│"9":Бе14::ДЕA$│"0"зB$│"0":Бе14::ДЕA$│"M"зB$│"0":Бе14::ДЕA$│"."зB$│".":Бе14" ЕA$│ Л(8)░DS▓1зC$│ О(C$,DSм2):З@DSм1," ":DS│DSм1:а10,1#

DS│DSм1:Р#J╔"T255L255O4C":C$│C$лB$:З@DS,B$:З@28,═"###";X:D$(X)│C$:Р#mТ65495,0:╔"T8L8O3AD":Ю:З@32,H$#│З" USE 'NUMBER PAD' FOR DATA...    KEYBOARD NBRS FOR OTHER INPUT"$Й" dIGITS RIGHT OF DECIMAL POINT   FOR TOTALS DISPLAY (0-7)";D$:D│ Й(D$)л1:╔"CF":ЕD▓8зD│8$[Й" cONSTANT #1";Z$:╔"CG":C1│ Й(Z$):Й" cONSTANT #2";Z$:╔"GC":C2│ Й(Z$)$ЗЙ" mOVING aVERAGE ('Y'IF YES)";M$:╔"AF"%
ЕM$│"Y"зЗ@321,"note-MULT ENTRY ('X') CAN'T BE  USED WHEN MOVING AVG CHOSEN":Й" nBR ITEMS TO BE AVERAGED";Z$:MA│ Й(Z$):ЕMA│0з MA│5%╪З@289,"key <ENTER> TO ADD <@>SUBTRACT  'F' FACTORS(*/^) BY A 2D ENTRY  cONSTANTS- (A)ADD, (S)SUBTRACT  (X)MULTIPLY BY OR (Z)DIVIDE BY  CONSTANT #1 OR #2 -ENTER DATA,  THEN A-S-X-Z, THEN '1' OR '2'."&ЕCF┤▓1 зX│1:T(0)│0лTF:ST(0)│0::ДX│Xл1&Бж27:Бе51&>ZZ│ Й(C$):C$│"":З@DSл2,"f":╔"D":АDS│12е22'A$│ Т:ЕA$│""з25:ДБж9:ЕA$│":"░C$┤▓""зC(X)│ Й(C$)нZZ:D$(X)│ И(ZZ)л"X"лD$(X):Р:ДЕA$│"/"░C$┤▓""зC(X)│ZZо Й(C$):D$(X)│ И(ZZ)л"/"лD$(X):Р:ДЕA$│"^"░C$┤▓""зC(X)│ZZп( Й(C$)):D$(X)│ И(ZZ)л"^"лD$(X): 
К:Г PROGRAM LISTING 1;
:Г *FARM EQUIP X-ING SYMBOL*K
З#м2, Л(18)WА R│1е3{Н N:Е N│999з80 :Д Е N│888 з 200Ь(Е N▓│0з З#м2, Л(128лN);:Бе30д2Н M─<А L│1емN:З#м2, Л(128лM);:ЛL═FБе30┌PЗ#м2:Л RnЖ -10,0,64,32,16,8,4,2,1,66,4,8,16,32,64,999ZxЖ -6,0,8,20,34,65,0,30,126,126,30,30,30,62,125,124,127,56,0,65,34,20,8,999ЙВЖ -10,0,1,2,4,8,16,32,64,32,16,8,4,2,1,9991,B$(L,CP);м·Е  К(A$)│8 з 260┴№Е  К(A$)│9 з 280╫■Е  К(A$)│10 з 300э
Е  К(A$)│94 з 320 
CP│CPм1:Е CP┤                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (N)│LO(Nл1):CL(N)│CL(Nл1):V(N)│V(Nл1)04Л:TI│TIм1:Р0qЗ@96,"TYPE NEW SYMBOL AND PRESS":З"<ENTER>: ";:╗ЙSYM$(N)0Й$ЕSYM$(N)│""з6170:ДР0иX:Г finished - update files0╗╝:Г save STKSYM0╥╞Ю:Щ"O",#1,"STKSYM"0т╨┘#1,MM$,DD$0№┌АN│1еTI:┘#1,SYM$(N):Л1фЪ#11! :Гread,update&save files16Д:Г file on disk?1BОАN│1еTI1RШSH$│SYM$(N)1wвЕ  З(SH$)┤8 з SH$│SH$л" ":Бе73301ЙмSH$│SH$л"DAT"1г╢АX│3е11:▀0,17,X,J$,K$1┴└J│ Ю(J$,SH$):K│ Ю(K$,SH$)1у╩Е J┤▓0 ▒ K┤▓0 з Бж7400:Бе79001ъ╘ЛX2
▐З SYM$(N);" NOT FOUND.":Бе79002%ш:Г read in old file2>ЄTQ│0:Щ"I",#1,SYM$(N)2R№Е  М(1)│м1з74402ПTQ│TQл1:Й#1,A$(TQ),B$(TQ),A(TQ),B(TQ),C(TQ),D(TQ):Бе74202ЯЪ#1:TQ│TQл12╨Е TQ│261 з З SYM$(N);" FILE IS FULL.":Бе79002▐L:Г update3'VA$(TQ)│MM$:B$(TQ)│DD$:A(TQ)│HI(N):B(TQ)│LO(N):C(TQ)│CL(N):D(TQ)│V(N)33░:Г save3G║Щ"O",#1,SYM$(N)3─АX│1еTQ:┘#1,A$(X),B$(X),A(X),B(X),C(X),D(X):Л:Ъ#1:Р3Р▄ЛN:Бж10000:Р3Ю':Г inkey$3╞'З@480,"PRESS ANY KEY TO CONTINUE.";3▄'$АAA│1е10:AA$│ Т:Л4'.AA$│ Т:AA│ Й(AA$):ЕAA$│""з10030:ДРV74"Е  Й(DD$(DT))│0 з36304`АC│1 е  З(MM$(DT)):C$│ Р(MM$(DT),C,1):CH│ Й(C$):╞N$(CH):Л4i$╞SL$4з)АC│1 е  З(DD$(DT)):C$│ Р(DD$(DT),C,1):CH│ Й(C$):╞N$(CH):Л4╫.DT│DTлV8:LC$│"BM"л И(18л(NнV5))л","л И(190)4х3╞LC$:ЛN:Р5а:Г modify previous en                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                'cЕ HI(N)│0 з HI(N)│AK(N)'7hЕ LO(N)│0 з LO(N)│BD(N)'SmЕ CL(N)│0 з CL(N)│AK(N)'^rБе1220'д:Г sub-convert str's  to #'s'гйT│ Ю(A$," "):A$│ П(A$, З(A$)мT)'╨оЕ  О(A$,1)│" "зA$│ П(A$, З(A$)м1):Бе1710'х│:Г is it volume?(╕T│ Ю(A$,")"):Е T┤▓0 з A$│ П(A$, З(A$)мT):A│ Й(A$):Р(1╜:Г no fraction?(T┬T│ Ю(A$,"/"):Е T│0 зA│ Й(A$):Р(u╟:Г convert frac. to decimals(Ч╠T1│ Ю(A$," "):IT$│ О(A$,T1м1)(п╤DE$│ П(A$, З(A$)мT)(╩╓NU$│ Р(A$,T1л1,TмT1л1)(я█IT│ Й(IT$):DE│ Й(DE$):NU│ Й(NU$))рA│ITл(NUоDE):Р)#lЪ#1:Ю:З"FINISHED.":Бж10000:Р)6╨:Г scan quotes)D┌Ю:АN│1еTI)lфЗ SYM$(N);HI(N);LO(N);CL(N):ЗV(N):З)ИюЕ Nо5│ Б(Nо5)зБж10000:Ю)Ш°Л:Бж10000:Р)н╕:Г modify quotes)∙┬Ю:З"TYPE SYMBOL OF ISSUE TO BE      CHANGED AND PRESS <ENTER>: ";:╗ЙSH$*╠АN│1еTI:Е SH$│SYM$(N)з3040* ╓Л:Р*;рЮ:ЗSYM$(N):ЗMM$;"/"DD$*ГъЗ@96,"HIGH";HI(N):З"LOW";LO(N):З"CLOSE";CL(N):З"VOLUME";V(N):SL│114*╡ЇЗ@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з3070 :Д HI(N)│I*┬■SL│SLл32+З@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з3090 :Д X│X:Е I▓HI(N) з 3080 :Д LO(N)│I+SL│SLл32+lЗ@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з3110 :Д X│X:Е I┤LO(N) ▒ I▓HI(N) з3100 :Д CL(N)│I+з&SL│SLл32:З@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з 3120 :Д V(N)│I+н0Р+┐а:Г new issues,QкЮ:З"TYPE THE SYMBOLS OF THE ISSUES  TO BE FOLLOWED.":З"PRESS <ENTER> AFTER EACH ONE.":З@448,"WHEN FINISHED, TYPE 'XX' AND    PRESS <ENTER>.";,]┤TI│TIл1,И╛З@260,;:╗Й SYM$(TI):Е SYM$(TI)│""з4030,╕╚Е SYM$(TI)│"XX"з SYM$(TI)│"":TI│TIм1:Бе4100,╙╥З@260, б(10,32):Бе4020,у:Г abc sort,ьSW│0,√АN│1е TIм1-"Е SYM$(N)┤│SYM$(Nл1)з4180-K,S$│SYM$(N):S1│HI(N):S2│LO(N):S3│CL(N):S4│V(N)-Ч6SYM$(N)│SYM$(Nл1):HI(N)│HI(Nл1):LO(N)│LO(Nл1):CL(N)│CL(Nл1):V(N)│V(Nл1)-╙@SYM$(Nл1)│S$:HI(Nл1)│S1:LO(Nл1)│S2:CL(Nл1)│S3:V(Nл1)│S4-▄JSW│1-уTЛN-ї^ЕSW│1з4110:ДР.И:Г scan issues.ТЮ:АN│1еTI.%ЬЗN;SYM$(N).CжЕ Nо10│ Б(Nо10)зБж10000:Ю.S░Л:Бж10000:Р.mp:Г modify issues list.╣zЮ:З"TYPE SYMBOL OF ISSUE TO BE      CHANGED AND PRESS <ENTER>: ";:╗ЙSH$.╪ДАN│1еTI:Е SH$│SYM$(N)з6040.рОЛ:Р/ШЮ:З"STOCK";N;"IS ";SYM$(N);"."/0вЗ@96,"CORRECT? (Y/N)":Бж10020:ЕAA$│"Y"зР/CмЕAA$┤▓"N"з6050/n╢З@96,"DELETE FROM LIST? (Y/N)":Бж10020/А└ЕAA$│"N"з6170/У╩ЕAA$┤▓"Y"з6070/в╘SYM$(N)│""/о▐АN│1еTI/─шЕ SYM$(N)│""з T│N/╩ЄЛ/╪№АN│T е TI0$SYM$(N)│SYM$(Nл1):HI(N)│HI(Nл1):LOFILENAME ";FL$9Q░Е AA$│"D" з Ю:З"** INSERT DATA DISK":З"** PRESS <ENTER>":Бе50909Ы║Ю:З"** POSITION TAPE":З"** PRESS PLAY AND RECORD":З"** PRESS <ENTER>"9п─ЙX:Щ"O",#м1,FL$9ч╬АN│1еTQ:З#м1,MM$(N),DD$(N),HI(N),LO(N),CL(N),V(N):Л9 ╪Ъ#м1:Т65495,0:Бе500:тЙX:Щ"O",#1,FL$:IьАN│1еTQ:┘#1,MM$(N),DD$(N),HI(N),LO(N),CL(N),V(N):Л:`ЎЪ#1:Т65495,0:Бе500:sp:Г load quotes:╣zЮ:З"<T>APE  OR  <D>ISK ?":Бж7020:ЕAA$│"T" ▒ AA$│"D" з 6020 :Д6010:╦ДЕ AA$│"M"з500:ьОТ65494,0:Ю:╗Й"FILENAME ";FL$;0ШЕ AA$│"D" з Ю:З"** INSERT DATA DISK":З"** PRESS <ENTER>":Бе6110;oвЮ:З"** POSITION TAPE":З"** PRESS PLAY":З"** PRESS <ENTER>";ИмЙX:TQ│0:Щ"I",#м1,FL$;Ю╢Е  М(м1)│м1 з6100;к└TQ│TQл1;х╩Й#м1,MM$(TQ),DD$(TQ),HI(TQ),LO(TQ),CL(TQ),V(TQ):Бе6070;¤╘Ъ#м1:Т65495,0:Бе500<▐ЙX:Ю:TQ│0:Щ"I",#1,FL$<,шЕ  М(1)│м1 з6150<?ЄTQ│TQл1:З@0,TQ<y№Й#1,MM$(TQ),DD$(TQ),HI(TQ),LO(TQ),CL(TQ),V(TQ):Бе6120<РЪ#1:Т65495,0:Бе500<вX:Г inkey$ sub<╩bЗ@480,"PRESS ANY KEY TO CONTINUE.";<▀lАAA│1е10:A$│ Т:Л<ўvAA$│ Т:ЕAA$│""з7030=АAA│ Й(AA$):Р="╝:Г graphing scale sub=a╞RANGE│MAXмMIN:Е RANGE▓480 зЗ"RANGE TOO GREAT":Бж7000:Бе500=k╨S│.25=В┌Е RANGE┤240 з S│.5=ШфЕ RANGE┤120 з S│1=нюЕ RANGE┤60 з S│2=┬°Е RANGE┤30 з S│4=╫Е RANGE┤15 з S│8=ьЕ RANGE┤7 з S│16>
Е RANGE┤3 з S│32> VS│HVо57:РR│1:Е RS┤│8 з 5200>1ьUL│ULл8>MёЕ RS┤│UL з 5115 :Д 5110>YЎFR│FRл1>mўЕ FR│100 з 5120>y°Бе 5100>Е√FR│FRл1>ЭPЕ FC│1 з A$(FR)│RE$>╡ZЕ FC│2 з B$(FR)│RE$>═dЕ FC│3 з C$(FR)│RE$>хnЕ FC│4 з D$(FR)│RE$>¤xЕ FC│5 з E$(FR)│RE$?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                °WEEK│WEEKл10$¤WHI│0:WLO│10000:WV│00/
АD│0е40E
Е HI(DлN)│0 з33550e
Е HI(DлN)▓WHI з WHI│HI(DлN)0С
Е LO(DлN)▓0 ░ LO(DлN)┤WLO з WLO│LO(DлN)0о
WV│WVлV(DлN):WCL│CL(DлN)0┤
Л0╞
 Е WHI│0 з33800ї
%╗(X,120м(WHIмMIN)нS)м(X,120м(WLOмMIN)нS),╜1&
*╗(X,120м(WCLмMIN)нS)м(Xл1,120м(WCLмMIN)нS),╜1G
/╗(X,180)м(X,(180м(WVоVS))),╜1p
4Е WEEKо13│ Б(WEEKо13) з X│Xл8:Бе33901z
9X│Xл41М
>Е N▓251 з34001Ч
CБе33151и
HБж7030:Бе5001└
м:Г draw blank graph1╨
▒╚4,1:╝:┐1,11х
╢╗(21,0)м(V1,0),╜1■
╗╗(21,180)м(V1,180),╜2
└╗(21,120)м(V1,120),╜2.
┼╗(21,0)м(21,180),╜2E
╩╗(V1,0)м(V1,180),╜2n
╧АX│21е V1 й V2:АP│0е180й4:╜(X,P):Л:Л2Ц
╘АY│8е120й16:АP│21е V1 й6:╜(P,Y):Л:Л2╕
┘АY│0е120й8:╗(19,Y)м(20,Y),╜:Л2╟
▐╞"BM0,123"2Ё
уPR│ Б(MIN):FR│MINм Б(MIN):MIN│MINмFR2√
шАN│1е83(
эN$│ И(PR):N$│ П(N$, З(N$)м1):N$│ П(N$,3)3?
ЄЕ  Б(PR)┤▓PR з35803t
ўАC│1 е  З(N$):C$│ Р(N$,C,1):CH│ Й(C$):╞N$(CH):ЛC3Й
№PR│PRл(1н(16оS))3п
LC$│"BM"л И(0)л","л И(123м(Nн16))3╗╞LC$:ЛN3хАX│ V3 е V4 й V5:╗(X,180)м(X,183),╜:Л3√╞"BM18,190":DT│V64АN│1е V74"Е  Й(DD$(DT))│0 з36304`АC│1 е  З(MM$(DT)):C$│ Р(MM$(DT),C,1):CH│ Й(C$):╞N$(CH):Л4i$╞SL$4з)АC│1 е  З(DD$(DT)):C$│ Р(DD$(DT),C,1):CH│ Й(C$):╞N$(CH):Л4╫.DT│DTлV8:LC$│"BM"л И(18л(NнV5))л","л И(190)4х3╞LC$:ЛN:Р5а:Г modify previous entries5SкЮ:З"YOU NEED TO KNOW THE NUMBER OF  THE QUOTE THAT YOU WISH TO MOD- IFY":З5В┤З"SCAN THE OLD QUOTES TO FIND THE NUMBER."5з╛З@448,"<S>CAN   <M>ODIFY":Бж70205║╚Е AA$│"S"з20005╬╥Е AA$┤▓"M"з40305°▄Ю:Й"NUMBER OF QUOTE";SH:Е SH▓TQ з40606цЕSH│0з5006eЁЮ:З"MONTH "MM$(SH):З"DAY "DD$(SH):З"HIGH"HI(SH):З"LOW"LO(SH):З"CLOSE"CL(SH):З"VOLUME"V(SH)6М·З@448,"PRESS <ENTER> IF CORRECT.";6█SL│15:З@SL,;:╗ЙI$:I│ Й(I$):Е I▓12 з4100 :Д X│X:Е I$│"" з4110 :Д MM$(SH)│I$6шSL│SLл3271З@SL,;:╗ЙI$:I│ Й(I$):Е I▓31 з4120 :Д X│X:Е I$│"" з4130 :Д DD$(SH)│I$7>"SL│SLл327q,З@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з4150 :Д HI(SH)│I7~6SL│SLл327╩@З@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з4170 :Д X│X:Е I▓HI(SH) з 4160 :Д LO(SH)│I7╫JSL│SLл328,TЗ@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з4190 :ДX│X:Е I┤LO(SH) ▒ I▓HI(SH) з4180 :Д CL(SH)│I8h^SL│SLл32:З@SL,;:╗ЙI$:I│ Й(I$):Е I$│"" з 4200 :Д V(SH)│I8rhБе5008ЕИ:Г save quotes8┌ТЮ:З"<T>APE   <D>ISK   <M>ENU ?":Бж7020:ЕAA$│"M" ▒ AA$│"T" ▒ AA$│"D" з5020 :Д50108ьЬЕ AA$│"M"з5009
жТ65494,0:Ю:╗Й":З"FULL. START A NEW FILE.":Бж7000:Бе500'LЗ"ENTER NEW QUOTES FOR ";FL$;"."'ХЗ"MOST RECENT QUOTE IS:":З"#";TQ;"- ";MM$(TQ);"/";DD$(TQ);"  ";V(TQ)'▒ЗHI(TQ);LO(TQ);CL(TQ):З(i$З"MONTH (1-12)":З@180,"M=MENU":З"DAY (1-31)":З"HIGH":З"LOW":З"CLOSE":З"VOLUME":З@416,"MAKE AN ENTRY FOR EVERY WEEKDAY.FOR HOLIDAYS ENTER THE DATE AND ZEROS FOR THE QUOTE.";:SL│173(u.TQ│TQл1(╡8З@SL,;:╗ЙMM$(TQ):MM│ Й(MM$(TQ)):Е MM$(TQ)│"M"зTQ│TQм1:Бе500(┌BЕ MM┤1 ▒ MM▓12 з1080 :Д SL│SLл32) LЗ@SL,;:╗ЙDD$(TQ):DD│ Й(DD$(TQ)):Е DD┤1 ▒ DD▓31 з 1100 :Д SL│SLл32)IVЗ@SL,;:╗ЙHI$:HI(TQ)│ Й(HI$):SL│SLл32)Л`З@SL,;:╗ЙLO$:LO(TQ)│ Й(LO$):Е LO(TQ)▓HI(TQ) з1120 :Д SL│SLл32)▐jЗ@SL,;:╗ЙCL$:CL(TQ)│ Й(CL$):Е CL(TQ)▓HI(TQ) ▒ CL(TQ)┤LO(TQ) з 1130 :Д SL│SLл32)√tЗ@SL,;:╗ЙV$:V(TQ)│ Й(V$)*~З@360,"CORRECT? (Y/N)";*2ИБж7020:Е AA$│"Y" з 500*RТЕ AA$│"N"з TQ│TQм1:Ю:Бе1000*]ЬБе1160*p╨:Г scan quotes*в┌Ю:Й"BEGIN WITH MONTH";BM:Е BM┤1 ▒ BM▓12 з2010*▓фN│(BMм1)н21*╝юN│Nл1*╠°Е N┤1 з N│1*▐Е N▓TQ з N│TQ+ЗN;FL$;" * ";MM$(N);"/";DD$(N);"  ";V(N)+$ЗHI(N);LO(N);CL(N):З+m Е N│TQ ▒ Nо5│ Б(Nо5)зЗ@480,"<F>ORWARD    <B>ACK      <M>ENU";:Бж2100+x*Бе2030+Р4Бж7020:ЕAA$│"F"зЮ:Р+о>ЕAA$│"B" з N│Nм9:Ю:Бе2040+╞HЕAA$│"M"з N│0:Бе500+╤RБе2100+х╕:Г graph quotes,7┬Ю:З"1. VIEW PREVIOUS GRAPH":З"2. DRAW A NEW GRAPH":Бж7020:Е AA┤1 ▒ AA▓2 з3010,V╠Е AA│1 з ┐1,1:Бж7020:Бе500,▀╓Ю:З"1. GRAPH THREE MONTHS":Зд5)"(DAILY QUOTES)":З:З"2. GRAPH ENTIRE YEAR":Зд5)"(WEEKLY TRADING RANGE)":Бж7020:Е AA┤1 ▒ AA▓2 з3030:ДЮ,ЁрЕ AA│2 з3300-#ъЮ:Й"ENTER FIRST MONTH";FM:Е FM┤1 ▒ FM▓12 з3050-7ЇЕ FM▓11 з FM│11-R■FM│FMм1:BQ│ Б(FMн20)л1-e:Г one quarter-~!MAX│0:MIN│10000:HV│0-С&АN│ BQ е BQл64-г+Е N│261 з3145-╣0Е MM$(BQ)│"" з500-╒5Е HI(N)▓MAX з MAX│HI(N)-√:Е LO(N)▓0 ░ LO(N)┤MIN з MIN│LO(N).?Е V(N)▓HV з HV│V(N).DЛ.\IБж7100:V1│255:V2│18:V3│24:V4│168:V5│72:V6│BQ:V7│3:V8│20:Бж3500.kNX│24:DAY│0.~SАN│ BQ е BQл64.РXЕ N│261 з3205.Ю]DAY│DAYл1.▓bЕ HI(N)│0 з3190.хg╗(X,120м(HI(N)мMIN)нS)м(X,120м(LO(N)мMIN)нS),╜/l╗(X,120м(CL(N)мMIN)нS)м(Xл1,120м(CL(N)мMIN)нS),╜/=q╗(X,180)м(X,(180м(V(N)оVS))),╜/bvЕ DAYо5│ Б(DAYо5) з X│Xл6:Бе3200/l{X│Xл3/rАЛ/ГЕБж7030:Бе500/Хф:Г whole year/▄щБж20:Бж7100:V1│245:V2│56:V3│25:V4│225:V5│56:V6│1:V7│4:V8│65:Бж3500/ёюX│25:WEEK│0:N│м4/√єN│Nл50  
Бе 105,:Г subroutine used in graphJMAX│0:MIN│10000:HV│0:WV│0]АN│1е260:З@0,NrЕ MM$(1)│"" з500Д#Е HI(N)│0 з50а(Е HI(N)▓MAX з MAX│HI(N)╞-Е LO(N)▓0 ░ LO(N)┤MIN з MIN│LO(N)°2WV│WVлV(N):Е Nо5│ Б(Nо5) зX│X:Е WV▓HV з HV│WV7Е Nо5│ Б(Nо5) зWV│0$<Е MM$(N)│"" з70,AЛ:РBFЕ WV▓HV з HV│WV:РHKРUd:Г titleБiЮ:З@65,"* S T O C K    G R A P H E R *"╜nЗ@260,"EXTENDED COLOR BASIC 32K":З@297,"(TAPE OR DISK)"ўsЗ@396,"(C) 1984":З@422,"CARL J. CHRISTENSEN":Бж7000:Ю CxТ65495,0:Х4000,&H7BFF:МMM$(260),DD$(260),HI(260),LO(260),CL(260),V(260) l}N$(0)│"BM+1,0H1U4E1R2F1D4G1L2BM+6,0" ПВN$(1)│"BM+1,0R1NR1U6G1BM+6,+5" ╢ЗN$(2)│"NR4U1E1R1E2U1H1L2G1BM+7,+5" ▐МN$(3)│"BM+0,-1F1R2E1H2E2H1L3BM+7,6"!СN$(4)│"BM+3,0U2NR1L3U1E3D3BM+4,3"!/ЦN$(5)│"BM+0,-1F1R2E1U2H1L3U2R4BM+3,+6"!^ЫN$(6)│"BM+4,-5H1L2G1D4F1R2E1U1H1L3BM+7,+3"!zаN$(7)│"U1E4U1L4BM+7,+6"!│еN$(8)│"BM+1,-0H1U1E1H1U1E1R2F1D1G1NL2F1D1G1L2BM+6,0"!ткN$(9)│"BM+0,-1F1R2E1U4H1L2G1D1F1R2BM+4,+3"!·пSL$│"U1E4U1BM+3,+6""╚:Г new/old file??"[╥Ю:З"1. CREATE A NEW FILE":З"2. LOAD AN OLD FILE":З@480,"TYPE 1 OR 2.";"z▄Бж7020:Е AA┤1 ▒ AA▓2 з 220"МцЕ AA│2 з 6000"╡ЁЮ:З"START THE NEW FILE ON A MONDAY."#·З@64,"ENTER THE NUMBER OF THIS WEEK INTHE CURRENT YEAR (1-52). ";:╗ЙCW$:CW│ Й(CW$):ЕCW┤1 ▒ CW▓52 з250#E
TQ│(CWм1)н5:АN│1е TQ:MM$(N)│"1":Л#Ю
З@160,"NAME THE FILE USING THE STOCK   SYMBOL (TAN).":╗Й"FILENAME ";FL$:Е FL$│""з270#║
,:Г generate random file#─
1Бе500#▌
6MM│1:DD│1:АN│1 е 260$
;MM$│ И(MM):MM$(N)│ П(MM$, З(MM$)м1)$-
@DD$│ И(DD):DD$(N)│ П(DD$, З(DD$)м1)$E
EHI(N)│ Д(5)л30л.125$[
JLO(N)│HI(N)м Д(5)${
OCL(N)│LO(N)л(HI(N)мLO(N))о2$Р
TV(N)│ Д(100)н100$л
YЕ DD│21 з DD│0:MM│MMл1$╖
^DD│DDл1$─
cЛ:TQ│Nм1$╨
Ї:Г menu$√
■Ю:З"********** SELECTIONS **********";%6З"FILE: ";FL$;:З@46,"LAST QUOTE: ";MM$(TQ);"/";DD$(TQ)%SЗ:З"1. ENTER NEW QUOTES"%kЗ:З"2. SCAN QUOTES"%Д&З:З"3. GRAPH QUOTES"%и0З:З"4. MODIFY PREVIOUS ENTRIES"%└:З:З"5. SAVE QUOTES"%▐DЗ:З"6. LOAD ANOTHER FILE"%ЁNЗ:З"7. QUIT";&XЗ@499,"type 1 - 7";:Бж7020&'bЕ AA┤1 ▒ AA▓7 з 600&VlЮ:И AA Бе 1000,2000,3000,4000,5000,700,800&Ц╝Ю:З"<L>OAD A NEW FILE    <M>ENU":Бж7020:Е AA$│"L"з120 :Д500&м Ю:Т65494,0:Х200:К&─ш:Г enter new quotes&╓ЄЕ TQ┤0 з TQ│0''№Е TQ│260 з З"THIS FILE (";FL$;") IS" 2:Г clears & dims<Х3000:МSYM$(40),BD(40),AK(40),HI(40),LO(40),CL(40),V(40),A$(260),B$(260),A(260),B(260),C(260),D(260)Мd:Г title║nЮ:З@64,"**   Q U O T E     E N T R Y  **"тxЗ@130,"(FOR STOCK GRAPHER PROGRAM)"ВЗ@257,"DISK EXTENDED COLOR BASIC 32K"=МЗ@396,"(C) 1984":З@422,"CARL J. CHRISTENSEN"IЦБж10000Z╚:Г new user?Т╥Ю:З"ARE YOU A NEW USER? (Y/N)":Бж10020:ЕAA$│"N"з300д▄ЕAA$┤▓"Y"з210╡цБж4000:Бе400═
,:Г read STKSYM fileт
6Щ"I",#1,"STKSYM"Є
@Й#1,PM$,PD$ 
JЕ  М(1)│м1 з360 
TTI│TIл1 *
^Й#1, SYM$(TI):Бе330 2
hЪ#1 D
Р:Г enter date Ж
ЪЮ:З"MOST RECENT QUOTES ON FILE WERE ENTERED ON: ";PM$;"/";PD$ ╧
дЗ@96,"ENTER TODAY'S DATE.":З@160,"MONTH (1-12)":З"DAY (1-31)":SL│174!
оЗ@SL,;:╗ЙMM$:MM│ Й(MM$):Е MM┤1 ▒ MM▓12 з430 :Д SL│SLл32!;
╕З@SL,;:╗ЙDD$:DD│ Й(DD$):Е DD┤1 ▒ DD▓31 з440!G
Ї:Г menu!U
∙Ю:З"MENU"!r
■З:З"1. ENTER NEW QUOTES"!КЗ:З"2. SCAN QUOTES"!дЗ:З"3. MODIFY QUOTES"!╦
З:З"4. ENTER NEW ISSUES TO FOLLOW"!шЗ:З"5. SCAN ISSUES LIST""З:З"6. MODIFY ISSUES LIST""+З:З"7. FINISHED - UPDATE FILES""I!Бж10020:ЕAA┤1 ▒ AA▓7 з545"x&И AA Бж 1000,2000,3000,4000,5000,6000,7000"В+Бе500"Фш:Г new quotes"ЄЄЮ:З"1. MANUAL ENTRY.":З:З"2. AUTOMATIC ENTRY FROM DISK       FILE.":З:З"3. MENU.":Бж10020#№И AA Бе1100,1200,500#Бе1010#/L:Г manual data entry#;QАN│1еTI#uVЮ:З"DATE: ";MM$;"/";DD$:З@64,"QUOTE FOR: "SYM$(N);"."#з[З@128,"HIGH":З"LOW":З"CLOSE":З"VOLUME":SL│135#╧`З@SL,;:╗ЙHI$:HI(N)│ Й(HI$):SL│SLл32$eЗ@SL,;:╗ЙLO$:LO(N)│ Й(LO$):Е LO(N)▓HI(N) з1125 :Д SL│SLл32$[jЗ@SL,;:╗ЙCL$:CL(N)│ Й(CL$):Е CL(N)▓HI(N) ▒ CL(N)┤LO(N) з1130 :Д SL│SLл32$woЗ@SL,;:╗ЙV$:V(N)│ Й(V$)$ЫtЗ@448,"CORRECT? (Y/N)";:Бж10020$пyЕ AA$│"N" з1110$├~Е AA$┤▓"Y"з1140$╦ГЛ:Р$т░:Г auto data entry$√║Щ"I",#1,"QUOTES/   "%─Е  М(1)│м1 з1900%╬Й#1,A$%::Г find "stock   xyz" line%OT│ Ю(A$,"STOCK")%_(Е T│0 з1220%p2T│ Ю(A$," ")%Н<Е  Р(A$,T,3)┤▓"   "з1220%┤x:Г strip spaces in front of symbol%╪ВT│ Ю(A$," "):A$│ П(A$, З(A$)мT)&МЕ  О(A$,1)│" "зA$│ П(A$, З(A$)м1):Бе1420&$▄:Г find # of stock in list&0цАN│1еTI&FЁЕ A$│SYM$(N)з1605&L·Л&d@:Г read quote lines&~EЙ#1,A$:Бж1705:BD(N)│A&ШJЙ#1,A$:Бж1705:AK(N)│A&▓OЙ#1,A$:Бж1705:HI(N)│A&╠TЙ#1,A$:Бж1705:LO(N)│A&цYЙ#1,A$:Бж1705:CL(N)│A& ^Й#1,A$:Бж1705:V(N)│A                                                                                                                                                                                                                                                                          ├
 ─├┼╔─├┬┼╞┼$%&'┼┬╔├┴-.├├1234╞6┴╟            TITLE   BAS"0HOMESPRDBAS#`STKGRAPHBAS QUTENTRYBAS!MAKELGONBAS(gSCRNFORMBAS)■LISTING1BASНLISTING2BAS*lLISTING3BAS+╟LISTING4BASADDING  BASaCALENDARBAS,:TAPEDISKBIN/NALMAZAR BASSFAMAIN BAS0yORGSMOVEBASРORGSLDESBAS{ORGSSDESBAS5▒ORGSVOC BAS ORGOBDESBAS7АORGSRESPBASU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -
Х200,15000:Ю'B$│"<HIT ENTER>":АX│15000е15103R(НOP$:N│ Й("&H"лOP$)c2ТX,N:S│SлN:ЛБ<З@72,"HOT COCO MAGAZINE "ЦFЗ@139,"PRESENTS"ЮPЗ:З╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"4iЗ@330,"JANUARY 1985"AnЗ@426,B$vxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120БВБе 120═МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO " ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *" \ЫЗ@290,"*ALL PROGRAMS COPYRIGHT 1985*       * HOT COCO MAGAZINE *" АЬЗ@389,"** CW COMMUNICATIONS **" НаЗ@458,B$ ├кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 ╬┤Бе 170!4╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0!<╚Ю:С!е╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00"▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39"#цЖ 9F,AF,CF,BF",ЁЖ 00                  ∙ √   √ ¤   √  С                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (]
Х5000:Бе12000Ж
МA$(100),B$(100),C$(100),D$(100),E$(100),F$(100),G$(100),H$(100)::ГSTRINGS WILL BE CONVERTED TO NUMBERS AS REQЧМCT(8),CE(8)║МR(100):МFT$(100):МFI$(17):F│0╔Y│1:Ю:Бе80▀А X│31 е 383 й 32ъ(R(Y)│Yў2З@X,R(Y)
<Y│Yл1FЛ:Y│Yм12jGЗ@448,"HOME SPREAD-BY ADRIAN ROSE":З@480,"A SPREAD SHEET PROGRAM-HIT<ENTER>TO CONTINUE"HX$│ Т:ЕX$│"" з72ЕIРШP:ГSETS UP ROWSбQБж30їZA$(0)│"A":B$(0)│"B":C$(0)│"C":D$(0)│"D":E$(0)│"E":F$(0)│"F":G$(0)│"G":H$(0)│"H" nL│34:ГL=LOCATION.34 IS START LOCATION OoHP│1:ГLEFT ARROW SUBTRACTS-RIGHT ARROW ADDS |pVP│1:ГUP ARROW SUBTRACTS-DOWN ARROW ADDS ЕsRL│1 вxБж500:Т1023лL,128:Бж1800 ╝ВO1$│ Т:Е O1$│"" з 130 ╩ЗЗ@448,O1$ щМЕ O1$│"/"з Бе 600:ГCOMMAND!ЦЕO1$│"+"з Бе2400:ГCALCULATION!IаЕ  К(O1$)▓47░  К(O1$)┤58▒  К(O1$)│45 ▒  К(O1$) │46з Бе800!nкЕ  К(O1$)│9 з Бе 900:ГMOVE RIGHT!У┤Е  К(O1$)│8 з Бе 1100:ГMOVE LEFT!╢╛Е  К(O1$)│94 з Бе1300:ГMOVE UP!█╚Е  К(O1$)│10 з Бе1500:ГMOVE DOWN"╥Е  К(O1$)▓64 ░  К(O1$)┤94 ▒  К(O1$)│34 з Бе 800"2▄Е O1$│"@" з Бж7000:ГSUM COLUMS"<
єБе130"S
Ї:ГPRINT ALL VALUES"t
∙Е T$│"" ▒ T$│"N" з H$(0)│"H""Ф
■И HP Бе 520,530,540,550,555"уЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)A$(X);д9)B$(X);д16)C$(X);д23)D$(X):Л X"ю
Бе 560#CЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)B$(X);д9)C$(X);д16)D$(X);д23)E$(X):Л X:Бе560#ШЮ:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)C$(X);д9)D$(X);д16)E$(X);д23)F$(X):Л X:Бе560#ю&Ю:А X│Yм1 е Yл11:R(X)│X:Зд0)R(X);д2)D$(X);д9)E$(X);д16)F$(X);д23)G$(X):Л X:Бе 560$;+Ю:АX│Yм1еYл11:R(X)│X:Зд0)R(X);д2)E$(X);д9)F$(X);д16);G$(X);д23)H$(X):Л X$A0Р$bXЗ@448,"COMMAND:B,C,I,P,S,T?"$|bSC$│ Т:Е SC$│"" з 610$РlЕ SC$│"B" з 660$гqЕ SC$│"C"з 670$╕vЕ SC$│"I" з 3000$═{Е SC$│"P" з 3200$тЕЕ SC$│"S" з 3800$ўКЕ SC$│"T" з 4000%ПБе 130%#ФЗ@448,"BLANK":А X│1 е 500:ЛX%.ХOT$│""%<ЦА X│1 е F%bЧЕ  Й( П(FT$(X),2))│RL з FT$(X)│""%iШЛX%НЩА X│1 е 8:Е X│CN з CE(X)│100:ЛX%еЪБж 2000:Бж500:Бе130%╨ЮЗ@448,"CLEAR-ARE YOU SURE(Y/N)?":X$│""%шЯX$│ Т:Е X$│"" з 671&аЕ X$│"Y" з 675 :Д 130&eгА X│ 1е99:A$(X)│"":B$(X)│"":C$(X)│"":D$(X)│"":E$(X)│"":F$(X)│"":G$(X)│"":H$(X)│"":FT$(X)│"":ЛX&~дА X│1 е 8:CT(X)│2:ЛX&ЖеF│0&РиБе120&ж :ГNUMBER OR LABEL&╢!А X│1 е Fл1&╬"TA│ Й( П(FT$(X),2))&ц#Е TA│RL з FT$(X)│""&ю$Л X'*Бж2200:ГENTRY' >OT$│O1$лO2$лO3$лO4$лO5$лO6$'SCЕ  К(O2$)│13 з OT$│ О(OT$,1):Е  К(O2$)│13 з840'ЖDЕ  К(O3$)│13 з OT$│ О(OT$,2):Е  К(O3$)│13 з840'╣EЕ  К(O4$)│13 з OT$│ О(OT$,3):Е  К(O4$)│13 з840'┌FЕ  К(O5$)│13 з OT$│ О(OT$,4)'цHБж 2000'√IЕ F┤▓0 з Бе 2400(JБе7040(RБе120('Д:ГRIGHT ARROW MOVE(\ЙЕ CN▓4 ░ HP┤▓5 ▒ CN│8з Бе907:ГRIGHT SCREEN LIMIT(ДКТ1023лL,143:L│Lл7:Т1023лL,128:Бе910(пЛHP│HPл1:Е HP│6 з RL│RLм1:Е HP│6 з HP│5(╦МБж500:Т1023лL,128:Бе910(╫ОRL│RLл1(ЇШБж 1800:ГLOCATE POSITION( ЭБж 955)
вБе 130)D╗З@448," ":А X│1е F: Е  Й( П(FT$(X),2))│RL з956 :Д 957)[╝З@448,FT$(X);" ";X)c╜Л X)i╛Р)АL:ГMOVE WINDOW LEFT)ХQЕ CN│HP з Бе1107)╛RТ1023лL,143:L│Lм7:Т1023лL,128:Бе1110)щSHP│HPм1:Е HP│0 з RL│RLл1:Е HP│0 з HP│1*TБж 500:Т1023лL,128:Бе1110*VRL│RLм1*0`Бж 1800:ГLOCATE POSITION*:eБж955*EjБе 130*Z:ГMOVE WINDOW UP*lЕ L┤34 з 1307*ЧТ 1023лL,143:L│Lм32:Т1023лL,128:Бе1310*╓Y│Yм1:VP│VPм1:Е VP│0 з RL│RLл8:Е VP│0 з Y│Yл1:Е VP│0 зVP│1*рБж500*ьRL│RLм8*ў(Бж1800+-Бж 955+2Бе130+#▄:ГMOVE WINDOW DOWN+9сЕ L▓383 з Бе 1507+cтТ1023лL,143:L│Lл32:Т1023лL,128:Бе1510+дуY│Yл1:VP│VPл1:Е VP│89 з RL│RLм8:ЕVP│89 зY│Yм1:ЕVP│89 з VP│88+├фБж 500:Т1023лL,128:Бе 1510+╧цRL│RLл8+█ЁБж 1800+хїБж955+я·Бе130,
:ГLOCATE REAL POSITION,X│1,T1│RLмX,*&T1│T1о8,80T2│ Б(T1),I:ЕT2│T1 з1870,ZDX│Xл1:Бе1820,|NCN│X:ГCN IS COLUMN NUMBER-1-8,КXRN│1:UL│8,м]Е RL┤│8 з RN│1:Е RL┤│8 з 1920,╕lUL│ULл8,╙qЕ RL┤│UL з 1915 :Д1910,▀vRN│RNл1,ЄwЕ RN│100 з1920,■xБе 1900-
{RN│RNл1-АР-+╨:ГFILL STRING LOCATION-C┌Е CN│1 з A$(RN)│OT$-ZфЕ CN│2 зB$(RN)│OT$-rюЕ CN│3 з C$(RN)│OT$-Й°Е CN│4 зD$(RN)│OT$-аЕ CN│5 зE$(RN)│OT$-╖Е CN│6 зF$(RN)│OT$-╧Е CN│7 з G$(RN)│OT$-ч Е CN│8 з H$(RN)│OT$-э*Р- ШБе2209:ГENTRY.ЭO1$│ Т:Е O1$│"" з2205.'ЮЗ@448,O1$.CбO2$│  Т:Е O2$│"" з 2209.ZвЕ  К(O2$)│34з 2205.rзЕ  К(O2$)│13 з 2300.АмЗ@449,O2$.Ъ▒O3$│ Т:ЕO3$│"" з 2225.▓╢Е  К(O3$)│34 з 2209.╔╗Е  К(O3$)│13 з2300.╫└З@450,O3$.Ё┼O4$│ Т:ЕO4$│"" з2245/╩Е К(O4$)│13 з 2300/╧З@451,O4$/0╘O5$│ Т:Е O5$│"" з 2260/>┘З@452,O5$/D№Р/J	Р/	`Е O1$│"+" з 2405 :Д 2600:Г2410 IS SET UP FORMULA/б	eА X│1 е 15:FI$(X)│"":ЛX:F│Fл1/░	jZ│1:PL│448/╤	tFI$(Z)│ Т:Е FI$(Z)│"" з 2420/ы	~Е  К(FI$(Z))│13 з2540/√	З@PL,FI$(Z)0	ИPL│PLл10&	ТZ│Zл1:Е Z│13 з 2540 :Д24200l	ьА X│1 е Zм1:FT$(F)│FT$(F)лFI$(X):Л X:FT$(F)│FT$(F)л И(RL):Бе 26000~
(:ГCALCULATION0Л
-Т65495,00Щ
2А W│1 е F0▒
7Е FT$(W)│"X" з 29400╧
<:ГSUBSCR MUST BE 2 DIGITS0▄
FN│1:PO│10°
PБж2650:OP$(1)│P$:Бе27801
ZSU(N)│ Й( Р(FT$(W),POл1,2))1A
_Е  Р(FT$(W),PO,1)│"A" з P$│A$(SU(N))1j
dЕ  Р(FT$(W),PO,1)│"B" з P$│B$(SU(N))1У
nЕ  Р(FT$(W),PO,1)│"C" з P$│C$(SU(N))1╝
xЕ  Р(FT$(W),PO,1)│"D" з P$│D$(SU(N))1х
ВЕ  Р(FT$(W),PO,1)│"E" з P$│E$(SU(N))2
МЕ  Р(FT$(W),PO,1)│"F" з P$│F$(SU(N))27
ЦЕ  Р(FT$(W),PO,1)│"G" з P$│G$(SU(N))2`
аЕ  Р(FT$(W),PO,1)│"H" з P$│G$(SU(N))2f
кР2Е
▄PO│5:N│2:Бж 2650:OP$(2)│P$2з
цЕ  З(FT$(W))▓10 з2800 :Д 28102╞
ЁPO│9:N│3:Бж 2650:OP$(3)│P$2·
·Е  Р(FT$(W),4,1)│"+" з RE│ Й(OP$(1))л Й(OP$(2))3.Е  Р(FT$(W),4,1)│"-" з RE│ Й(OP$(1))м Й(OP$(2))3bЕ  Р(FT$(W),4,1)│"*" з RE│ Й(OP$(1))н Й(OP$(2))3ЦЕ  Р(FT$(W),4,1)│"/" з RE│ Й(OP$(1))о Й(OP$(2))3╕"Е  З(FT$(W))▓10 з2860 :Д 29003ф,Е  Р(FT$(W),8,1)│"+" з RE│REл Й(OP$(3))46Е  Р(FT$(W),8,1)│"-" з RE│REм Й(OP$(3))4<@Е  Р(FT$(W),8,1)│"*" з RE│REн Й(OP$(3))4hJЕ  Р(FT$(W),8,1)│"/" з RE│REо Й(OP$(3))4wTRE$│ И(RE)4ПhRS│ Й( П(FT$(W),2))4ЫrБж 50004г|Л W4░БТ65494,04╗ЖБе 1204╥╕З@448,"INSERT ROW"4┌╟X│15Q╠Е A$(X)│"" ░ B$(X)│"" ░ C$(X)│"" ░ D$(X)│"" ░ E$(X)│"" ░ F$(X)│"" ░ G$(X)│"" ░ H$(X)│"" з 3030 :Д 3025:ГROW INSERT5b╤X│Xл1:Бе30205s╓MR│X:Бж 18005З█А X│MR е RN йм15√рA$(Xл1)│A$(X):B$(Xл1)│B$(X):C$(Xл1)│C$(X):D$(Xл1)│D$(X):E$(Xл1)│E$(X):F$(Xл1)│F$(X):G$(Xл1)│G$(X):H$(Xл1)│H$(X)6хЛ X6WцA$(RN)│"":B$(RN)│"":C$(RN)│"":D$(RN)│"":E$(RN)│"":F$(RN)│"":G$(RN)│"":H$(RN)│""6hчБж 500:Бе1306{А:ГPRINT OPTION6СЕЗ@448,"START ROW"6ЭКБж 60006зПSR│RI6╗ФЗ@448,"END ROW"6╞ЩБж60006╨ЮER│RI6хЯЗ@448,"PRINTING"6їгА X│SR е ER7MдЗ#м2,д5)A$(X);д14)B$(X);д23)C$(X);д32)D$(X);д41)E$(X);д50)F$(X);д59)G$(X);д68)H$(X)7UиЛ X7bйЗ@448,""7mнБе 1307Ч╪З@448,"SAVE(S),LOAD(L) OR VERIFY(V)?"7│▌SA$│ Т: Е SA$│"" з 38057╔тЕ SA$│"S" з 3815 7цуЕ SA$│"V" з 3860 :Д 38758чЮ:Й"FILE NAME TO SAVE";NF$8ьЩ"O",#м1,NF$84ёЗ#м1,L,RN,CN,RL,Y,F,HP,VP8ШЎA$(100)│".":B$(100)│".":C$(100)│".":D$(100)│".":E$(100)│".":F$(100)│".":G$(100)│".":H$(100)│"."8┤ўАX│1 е F:З#м1,FT$(X):ЛX8╫°А X│1 е 8:З#м1,CT(X),CE(X):Л X8Ї√АX│1 е 100:З#м1,A$(X):ЛX9№АX│1е100:З#м1,B$(X):ЛX9+¤АX│1 е100:З#м1,C$(X):ЛX9H■А X│1 е100:З#м1,D$(X):ЛX9e А X│1 е100:З#м1,E$(X):ЛX9БА X│1е100:З#м1,F$(X):ЛX9Ь
АX│1е100:З#м1,G$(X):ЛX9╖АX│1е100:З#м1,H$(X):ЛX9╟Ъ #м1:Бе1209уЮ:Й"FILE TO VERIFY";NF$9эг NF$:З"FILE VERIFIED":А X│1 е500:ЛX:Бе 120::#Ю:Й "FILE TO LOAD";NF$:K(Щ"I",#м1,NF$:i-Й#м1,L,RN,CN,RL,Y,F,HP,VP:┼<A$(100)│"":B$(100)│"":C$(100)│"":D$(100)│"":E$(100)│"":F$(100)│"":G$(100)│"":H$(100)│"":фFА X│1 е F:Й #м1,FT$(X):Л X;KА X│1 е8:Й#м1,CT(X),CE(X):Л X;!PАX│1е100:Й#м1,A$(X):ЛX;>RА X│1е100:Й#м1,B$(X):Л X;ZTА X│1е100:Й#м1,C$(X):ЛX;uVАX│1е100:Й#м1,D$(X):ЛX;РXАX│1е100:Й#м1,E$(X):ЛX;мZА X│1е100:Й#м1,F$(X):ЛX;╟\АX│1е100:Й#м1,G$(X):ЛX;т^АX│1е100:Й#м1,H$(X):ЛX;ыВЪ#м1;їЗБе120<
а:ГTITLE<%еИ HP Бе4010,4020,4030,4040,4050<[кЗ@3,A$(1):З@10,B$(1):З@17,C$(1):З@24,D$(1):Бе4060<С┤З@3,B$(1):З@10,C$(1):З@17,D$(1):З@24,E$(1):Бе4060<╟╛З@3,C$(1):З@10,D$(1):З@17,E$(1):З@24,F$(1):Бе4060<■╚З@3,D$(1):З@10,E$(1):З@17,(F$(1):З@24,G$(1):Бе4060=-╥З@3,E$(1):З@10,F$(1):З@17,G$(1):З@24,H$(1)=Q▄З@448,"PRESS<ENTER>TO CONTINUE"=jсX$│ Т:Е X$│"" з 4065=tцБе120=ЩИ:ГLOCATE RESULTS OF FORMULA CALC=бТU│1=нЬT1│RSмU=╣жT1│T1о8=╟░T2│ Б(T1)=┌║Е T2│T1 з 5070=ь─U│Uл1:Бе 5020=ї╬FC│U>╪FR│1:UL│8>%▌Е RS┤│8 з FR│1:Е RS┤│8 з 5200>1ьUL│ULл8>MёЕ RS┤│UL з 5115 :Д 5110>YЎFR│FRл1>mўЕ FR│100 з 5120>y°Бе 5100>Е√FR│FRл1>ЭPЕ FC│1 з A$(FR)│RE$>╡ZЕ FC│2 з B$(FR)│RE$>═dЕ FC│3 з C$(FR)│RE$>хnЕ FC│4 з D$(FR)│RE$>¤xЕ FC│5 з E$(FR)│RE$?ВЕ FC│6 з F$(FR)│RE$?-МЕ FC│7 з G$(FR)│RE$?EЦЕ FC│8 з H$(FR)│RE$?KаР?[p:ГROW IMPUT?vzR1$│ Т:Е R1$│"" з 6010?ДДЗ@448,R1$?ЯОR2$│ Т:Е R2$│"" з 6030?нШЗ@449,R2$?╧бRI$│R1$лR2$:RI│ Й(RI$):Бе6060?цвRI│ Й(R1$)л Й(R2$)?ьмР?■X:ГSUM COLUMNS@bЗ@448,"ROW(R) OR COL(C)"@2cX$│ Т:ЕX$│"" з7011@MdЕX$│"C" з 7020 :Д 7300@llА X│1 е 8:Е X│CN з CT(X)│1@ЕvЕ CT(X)│1 з CE(X)│RN@Н{Л X@кАЕ CT(1)│1 з 7045 :Д 7065@┼ЕCS│0:А X│1 е (CE(1))м1@┘КCS│ Й(A$(X))лCS@сПЛ X@ЎФA$(CE(1))│ И(CS)AЩЕ CT(2)│1 з 7070 :Д 7090A.ЮCS│0:А X│1 е (CE(2))м1ABгCS│ Й(B$(X))лCSAJиЛ XA_нB$(CE(2))│ И(CS)A|▓Е CT(3)│1 з 7095 :Д 7115AЧ╖CS│0:А X│1 е (CE(3))м1Aл╝CS│ Й(C$(X))лCSA▓┴ЛXA╟├C$(CE(3))│ И(CS)Aт╞CS│0:А X│1 е (CE(6))м1A ╦Е CT(4)│1 з 7120 :Д 7140B╨CS│0:А X│1 е (CE(4))м1B.╒CS│ Й(D$(X))лCSB5┌ЛXBJ▀D$(CE(4))│ И(CS)BgфЕ CT(5)│1 з 7145 :Д 7165BБщCS│0:АX│1 е (CE(5))м1BХюCS│ Й(E$(X))лCSBЬєЛXB▒°E$(CE(5))│ И(CS)B═¤Е CT(6)│1з 7170 :Д 7190BшCS│0:А X│1 е (CE(6))м1B№CS│ Й(F$(X))лCSCЛ XCF$(CE(6))│ И(CS)C6Е CT(7)│1 з 7195 :Д 7215CQCS│0:А X│1 е (CE(7))м1Ce CS│ Й(G$(X))лCSCm%Л XCВ*G$(CE(7))│ И(CS)CЯ+Е CT(8)│1 з 7215 :Д 7235C║/CS│0:А X│1 е (CE(8))м1C╬4CS│ Й(H$(X))лCSC╓9Л XCы>H$(CE(8))│ И(CS)CїCБе120DД:ГROW SUMDОБж1800DШSA│RN:SD│CNDRвИ SD Бе 7331,7332,7340,7350,7360,7370,7380,7390D\гБе120DfдБе120DбмА X│1е SAм1:Z│ Й(A$(X))л Й(B$(X)):C$(X)│ И(Z):ЛX:Бе120Dх╢АX│1е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X)):D$(X)│ И(Z):ЛX:Бе120E3└АX│1е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X)):E$(X)│ И(Z):ЛX:Бе120EА╩АX│1еSAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(E$(X)):F$(X)│ И(Z):ЛX:Бе120Eс╘АX│1еSAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X))л Й(E$(X))л Й(F$(X)):G$(X)│ И(Z):ЛX:Бе120FO▐А X│1 е SAм1:Z│ Й(A$(X))л Й(B$(X))л Й(C$(X))л Й(D$(X))л Й(E$(X))л Й(F$(X))л Й(G$(X)):H$(X)│ И(Z):ЛX:Бе120F\.р└1:Бе 10         С                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
d'
:Г CREATE AN QUOTE RETRIEVAL FILE:Х3000:МA$(100)TA$(1)│"DOW2;;   DJNS"ydЮ:╗Й"ENTER YOUR PASSWORD ";A$(2)КnA$(3)│"//CQ"ТxX│3┴ВX│Xл1:Ю:З@448,"ENTER 'XX' WHEN FINISHED.";ъМЗ@64,;:╗Й"ENTER STOCK SYMBOL ";A$(X)ЦЕ A$(X)│"XX"зA$(X)│"DISC":Бе200аБе1302╚Ю:Щ"O",#1,"LOGON/   "=╥АN│1еXR▄З#1,A$(N):ЗA$(N)YцЛNcЁЪ#1:К YOU A NEW USER? (Y/N)":Бж10020:ЕAA$│"N"з300д▄ЕAA$┤▓"Y"з210╡цБж4000:Бе400═
,:Г read STKSYM fileт
6Щ"I",#1,"STKSYM"Є
@Й#1,PM$,PD$ 
JЕ  М(1)│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 √dХ2000nQ$│ Л(34)+xМB$(16,32):Ю5TВАX│0е16:АY│1е32:B$(X,Y)│ Л(32):ЛY:ЛXZМЮgЦL│0:CP│1ВаЕ L│15 ░ CP│32 з CP│31ЧкA│1024лLн32лCPм1п┤A$│ Т:ТA,206:ТA,207└╛ЕA$│"" з 180ў╚Е К(A$)│8 ▒  К(A$)│9 ▒  К(A$)│10 ▒  К(A$)│94 з 240$╥Е К(A$)│12 ▒  К(A$)│13 ▒  К(A$)│64 з 350s▄B$(L,CP)│A$:З@32нLлCPм1,B$(L,CP);:CP│CPл1:ЕCP▓32 з CP│1:L│Lл1:ЕL▓15 з L│15}цБе160ЧЁЗ@32нLлCPм1,B$(L,CP);м·Е  К(A$)│8 з 260┴№Е  К(A$)│9 з 280╫■Е  К(A$)│10 з 300э
Е  К(A$)│94 з 320 
CP│CPм1:Е CP┤1 з CP│32:L│Lм1:Е L┤0 з L│15 %
Бе160 T
CP│CPл1:Е CP▓32 з CP│1:L│Lл1:Е L▓15 з L│15 _
"Бе 160 u
,L│Lл1:ЕL▓15 з L│0 А
6Бе 160 Ц
@L│Lм1:ЕL┤0 з L│15 б
JБе 160 ░
TВ * OUTPUT ┼
^Е К(A$)│12 з 180 ┌
hЕ К(A$)│64 з 760 ї
rВ ********************!
|В *  OUTPUT TO PRINTER!+
ЖВ ********************!A
РАX│1е2:З#м2,"":ЛX!_
ЪX$│"                    "!П
дЗ#м2,X$"----------------------------------"!Ы
оАX│0е15!л
╕З#м2,X$"!";!╖
┬АY│1е32!╔
╠З#м2,B$(X,Y);!╨
╓ЛY!▌
рЗ#м2,"!"!ф
ъЛX"
ЇЗ#м2,X$"----------------------------------""*
■АX│1е2:З#м2,"":ЛX"4LC│22"@АX│0е15"IXX│0"U&АY│1е32"o0ЕB$(X,Y)│" " з Бе 610"x:XX│1"ИDPA│Xн32лYм1"СNY1│Y"ЪXY│32"бbЛY"▓lЕ XX│0 з 680"═vЗ#м2,"PRINT @"PA","Q$;"▌АА Z│Y1 е 32"яКЗ#м2,B$(X,Z);" ФЛ Z:З#м2,""#ЮLC│LCл1#иЛ X#%▓АX│ LCл1 е 66#1╝З#м2,""#8╞ЛX#B╨Бе170#^┌В *********************#xфВ *  OUTPUT TO SCREEN#ФюВ *********************#Ъ°Ю#гLC│0#▓А X│0 е 15#╗XX│0#═ Е LC▓10 з 810#╪%Бе 840#■*Й "PRESS <ENTER> TO CONTINUE";AA$$4Ю$
>LC│0$HА Y│1 е 32$6RЕB$(X,Y)│" " з Бе 890$?\XX│1$OfPA│Xн32лYм1$]pY1│Y:Y│32$dzЛY$uДЕ XX│0 з 970$МОЗ"PRINT @"PA","Q$;$ШШLC│LCл2$ивА Z│Y1 е 32$╢мЗB$(X,Z);$╜╢ЛZ$┼└З""$╠╩ЛX$ї╘З "--------------------------------"%▐З "PRESS <!> TO RETURN TO SCREEN"%)шЗ"     OR%JЄЗ "PRESS <@> FOR NEW SCREEN"%g№I$│ Т:Е I$│"@" з Бе 1040%~
Е I$│"!" з Бе 1050%КБе 1020%ЧЮ:Бе 130%ЭЮ%▒$АX│0е15:АY│1е32%╨.Е  К(B$(X,Y))│32 з Бе 1160&8Е  К(B$(X,Y))▓32 ░  К(B$(X,Y))┤65  з Бе 1090 &<Бе 1120&$BBB│ К(B$(X,Y))л64&=LТ (1024лXн32лYм1),BB&IVБе 1160&U[Бе 1150&А`Е  К(B$(X,Y))▓96 з BB │  К(B$(X,Y))м96&МeБе 1150&еjТ (1024лXн32лYм1),BB&▒tБе 1160&╥~Т(1024лXн32лYм1), К(B$(X,Y))&▄ИЛY:ЛX&ЁТA│1024:L│0:CP│1&·ЬБе180│A i:Г PROGRAM LISTING 2;
:Г *FARM EQUIP X-ING SYMBOL*K
З#м2, Л(18)WА R│1е6{Н N:Е N│999з80 :Д Е N│888 з 200Ь(Е N▓│0з З#м2, Л(128лN);:Бе30д2Н M─<А L│1емN:З#м2, Л(128лM);:ЛL═FБе30┌PЗ#м2:Л RnЖ -25,0,64,32,16,8,4,2,4,8,16,32,64,999>sЖ -18,0,64,32,16,8,4,2,1,-11,0,1,2,4,8,16,32,64,999ЫuЖ -11,0,64,32,16,8,4,2,1,-3,0,-13,120,106,100,104,112,120,12,4,-2,0,1,2,4,8,16,32,64,999 
xЖ -10,0,1,2,4,8,16,32,64,-4,0,15,47,127,127,47,-8,15,31,63,-3,127,62,28,-3,0,64,32,16,8,4,2,1,999 9}Ж -17,0,1,2,4,8,16,32,64,-13,0,64,32,16,8,4,2,1,999 hВЖ -24,0,1,2,4,8,16,32,64,32,16,8,4,2,1,999L▓15 з L│0 А
6Бе 160 Ц
@L│Lм1:ЕL┤0 з L│15 б
JБе 160 ░
TВ * OUTPUT ┼
^Е К(A$)│12 з 180 ┌
hЕ К(A$)│64 з 760 ї
rВ ********************!
|В *                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ─ :ГPROGRAM LISTING 3  BIG TKdЗ#м2, Л(27) Л(28) Л(235) Л(239) Л(236)`nЗ#м2," "; Л(239)ШxЗ#м2," "; Л(239);" was the night before Christmas,"оВЗ#м2, Л(27) Л(54)├МА S│1е7:З#м2:Л S═FБе30┌PЗ#м2:Л RnЖ -25,0,64,32,16,8,4,2,4,8,16,32                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 7Х 10007
М YB(25),DM(12),NS$(9),SS$(12),MT$(12)RА I │ 0 е 25:Н YB(I):ЛmА I │ 1 е 12:Н DM(I):ЛИ(А I │ 0 е 9:Н NS$(I):Лд2А I │ 1 е 12:Н SS$(I):Л└<А I │ 1 е 12:Н MT$(I):Л╩d╚ 4,1╘╚┴ 0,5
РЮ:З"    COCO CALENDAR GENERATOR.":З:З"         1984 TO 2009."+
┬А I │ 1 е 2000:Лк
ЇЮ:З"CHOOSE ONE OF THE FOLLOWING:":З:З"(1).....SCREEN GENERATION":З"(2).....PRINTER GENERATION":З"(3).....EXIT THE PROGRAM"═XЗ@153,"    ";:З@153,"";:╗Й AN$·╝AN│ Й(AN$):Е AN┤1 ▒ AN▓3 з а 100,2:Бе600  Ю:И AN Бж 1000,5000,950 !ДБе 500 '╢К 4шБж 10000 :╝ DL┐ 1,1 ^░╗(0,30)м(252,191),╜,B ЙА I │ 0 е 255 й 36:╗(I,30)м(I,191),╜:Л ┤▄А I │ 30 е 160 й 32:╗(0,I)м(252,I),╜:Л ═@╗(0,0)м(252,30),╜,BF ┌дБж 15000!D│DD:L│1:DH│DM(MH):Е (YRо4│ Б(YRо4)) ░ MH│2 з DH│DHл1!%lА J │ 1 е DH!eЮЕ L│6 з VL│189:╞"BM"л И((DDм1)н36)л",174R35" :Д VL│(Lн32)л6!Р╨XL│(DDм1)н36:DS$│ П( И(J), З( И(J))м1)!┐4╞"BM"л И(XL)л","л И(VL)лNS$( Й( О(DS$,1)))!цШЕ  З(DS$)│2 з ╞ NS$( Й( П(DS$,1)))!Є№DD│DDл1"
	`Е DD│8 з DD│1:L│Lл1"	─Л J"&
(Е  Т│"" Бе 2600",
МР"ДИЮ:З"(1).....40 COL. PRINTER":З"(2).....80 COL. PRINTER":З"(3).....132 COL. PRINTER""Э║DL$│"":DD$│"":LD$│"""ЎьЗ@128,"CHOOSE ONE OF THE ABOVE  ";:╗Й CH$:CH│ Й(CH$):Е CH┤1 ▒ CH▓3 з а 100,2:Бе 5100#0Е CH│1 з L│5:LT│4:TB│10:QT│5 :Д L│10:LT│L:TB│30:QT│11#K(Е CH│3 з PT│26 :Д PT│0#X2TB│TBлPT#ePБж 10000#yRDH│YB(YS):H2│DH#ЩUYR$│ П( И(YR), З( И(YR))м1)#╛ZА I │ 1 е L:DL$│DL$лYR$л"....":Л#ч_А I │ 1 е 7:LD$│LD$л"+"л б(LT,"-"):Л#ўdLD$│LD$л"+"$ iА I │ 1 е 7:DD$│DD$л"!"л б(LT," "):Л$0nDD$│DD$л"!"$└xЕ CH│1 з QD$│"!SUN !MON !TUE !WED !THU !FRI !SAT !" :Д QD$│"!    SUN   !    MON   !    TUE   !    WED   !    THU   !    FRI   !    SAT   !"$юВЕ CH│1 з DL$│ О(DL$,36) :Д DL$│ О(DL$,78)%┤З"PREPARE PRINTER AND HIT ENTER."%'Е  Т│"" Бе5400%9JА MH │ 1 е 12%P|З#м2, Л(13), Л(13)%bрЗ#м2,дPT);DL$%rЗ#м2, Л(13)%ЬиЗ #м2,д((Lн8)м З(MT$(MH)))о2);MT$(MH)%║З#м2, Л(13):З#м2,дPT);DL$%╠З#м2,дPT);LD$%▐ З#м2,дPT);QD$%ьpMD│DM(MH)&вЕ(YRо4│ Б(YRо4)) ░ MH│2 з MD│MDл1&╘J│1&+8А L1 │ 1 е 6&=ЬЗ#м2,дPT);LD$&OЗ#м2,дPT);DD$&[dD2$│DD$&h╚Бж 20000&z,З#м2,дPT);D2$&ЙРL2│ Б(Lо2)&кЇА I │ 1 е L2:З#м2,дPT);DD$:Л&░XЛ&┬╝З#м2,дPT);LD$&┘ З#м2, Л(13), Л(13)&ц*H2│H2лMD'4DH│H2м( Б(H2о7)н7):Е DH│0 з DH│7'ДЛ MH'шР' LК'F'Ю:Й"WHICH YEAR WOULD YOU LIKE";YR'w'tYS│YRм1984:Е YS┤0 ▒ YS▓25 з а 100,2:Бе 10000'О'╪Ю:З"YEAR IS:  ";YR'Э(
Е AN│2 з Р((<З:З"(1)...JANUARY   (7)...JULY":З"(2)...FEBRUARY  (8)...AUGUST":З"(3)...MARCH     (9)...SEPTEMBER"(p(аЗ"(4)...APRIL     (10)...OCTOBER":З"(5)...MAY       (11)...NOVEMBER":З"(6)...JUNE      (12)...DECEMBER"(Я)З@288,"WHICH MONTH? (BY NUMBER)  ";:╗Й AN$(ф)hMO│ Й(AN$):MH│MO:Е MO┤1 ▒ MO▓12 з а 100,2:З@313,"    ";:Бе 10500(э)╠DT│0)	)■MO│MOм1:Е MO│0 Бе 10900)(*0А I │ 1 е MO:DT│DTлDM(I):Л)Q*bЕ (YRо4 │  Б(YRо4)) ░ MO▓1 з DT│DTл1)Ж*ФDD│DTм( Б(DTо7)н7):DD│DDлYB(YS):Е DD▓7 з DD│DDм7)М*°Р)Ц:Ш┴ 5,0)н:в╗(0,20)м(252,20),╜)╪:мА I │ 36 е 220 й 36:╗(I,20)м(I,30),╜:Л*:ў╞"BM9,27F1R2E1U1H1L2H1U1E1R2F1BM+2,-1D5F1R2E1U5BM+2,+6U6F4D2U6"*[:№╞"BM45,28U6F2D1U1E2D6BM+3,+0R2E1U4H1L2G1D4BM+6,+1U6F4D2U6"*Ф;`╞"BM83,28U6L2R4BM+2,+0D5F1R2E1U5BM+6,+0L4D3R4L4D3R4"*╥;─╞"BM118,22D6E2F2U6BM+6,+0L4D3R4L4D3R4BM+2,+0R2E2U2H2L2D5"+
<(╞"BM156,28U6L2R4BM+2,+0D6U3R4U3D6BM+2,-6D5F1R2E1U5"+J<М╞"BM190,28U3R3L3U3R4BM+2,+6U6R3F1D1G1L2F3BM+2,+0R4L2U6L2R4"+Ф<Ё╞"BM226,27F1R2E1U1H1L2H1U1E1R2F1BM+2,+5U5E1R2F1D2L3R3D3BM+4,+0U6L2R4"+ж=T╞ "BM55,15S8"+┤=Ж╞ SS$(MH)+═=Р╞ "BM107,15U1L1D1R1"+▐=Ъ╞ "BM122,15"+¤=дY$│ П( И(YR), З( И(YR))м1),%=оА I │ 1 е 4:╞ NS$( Й( Р(Y$,I,1))):Л,0>l╞ "S4",:>v┴ 0,5,@>АР,RN А IJ │ DH е 7,fNДЕ J▓MD Бе 20400,РNш Р(D2$,((IJм1)нQT)л3, З( И(J)))│ И(J),ЪOLJ│Jл1,аO░Л,йOтDH│1,пPР-
RlЖ 1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2,3,4,5,7,1,2,3,5,31,28,31,30,31,30,31,31,30,31,30,31-4u╞Ж "BM+8,+0R2E1U4H1L2G1D4F1BM-1,+0"-Su°Ж "BM+7,+0R4L2U6G2BM+0,+4"-wv\Ж "BM+11,+0L4U1E4H1L2G1BM+0,+5"-жv└Ж "BM+7,-1F1R2E1U1H1L2R2E1U1H1L2G1BM+0,+5"-╚w$Ж "BM+10,+0U6L1G2D1R4BM-4,+3"-яwИЖ "BM+7,-1F1R2E1U1H1L3U3R4BM-4,+6".wьЖ "BM+8,-2E1R1F1D1G1L2H1U4E1R2F1BM-4,+5".=xPЖ "BM+9,+0U3E2U1L4D1BM+0,+5".tx┤Ж "BM+8,+0R2E1U1H1L2H1U1E1R2F1D1G1L2G1D1F1BM-1,+0".ЯyЖ "BM+7,-1F1R2E1U4H1L2G1D1F1R2BM-3,+3".▀y|Ж "BM+7,-2D1F1R2E1U5BM+2,+6U5E1R2F1D2L4R4D3BM+2,+0U6F4D2U6"/)yрЖ "BM+7,+0U3R3L3U3R4BM+6,+0L4D3R4L4D3R4BM+2,+0U6R3F1D1G1L2R2F1D1G1L3"/qzDЖ "BM+7,+0U6F2D1U1E2D6BM+2,+0U5E1R2F1D2L4R4D3BM+2,+0U6R3F1D1G1L2F3"/╣zиЖ "BM+7,+0U5E1R2F1D2L4R4D3BM+2,+0U6R3F1D1G1L3BM+6,+3U6R3F1D1G1L2F3"0{Ж "BM+7,+0U6F2D1U1E2D6BM+2,+0U5E1R2F1D2L4R4D3BM+4,+0U3H2U1BM+4,+0D1G2"0>{pЖ "BM+7,-2D1F1R2E1U5BM+2,+0D5F1R2E1U5BM+2,+6U6F4D2U6"0t{╘Ж "BM+7,-2D1F1R2E1U5BM+2,+0D5F1R2E1U5BM+2,+0D6R4"0╛|8Ж "BM+7,+0U5E1R2F1D2L4R4D3BM+2,-6D5F1R2E1U5BM+6,+1H1L2G1D4F1R2E1U2L2"1
|ЬЖ "BM+7,-1F1R2E1U1H1L2H1U1E1R2F1BM+6,-1L4D3R4L4D3R4BM+2,+0U6R3F1D1G1L3"1M}Ж "BM+7,-1U4E1R2F1D4G1L2H1BM+11,+0G1L2H1U4E1R2F1BM+2,-1R4L2D6"1Х}dЖ "BM+7,+0U6F4D2U6BM+3,+0R2F1D4G1L2H1U4BM+7,-1D1F1D2F1D1U1E1U2E1U1"1┌}╚Ж "BM+7,+0U6R2F2D2G2L2BM+10,+0L4U3R4L4U3R4BM+6,+1H1L2G1D4F1R2E1"26~,Ж JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER ITEM BY ITEM,               (2) BY ITEM NUMBER,             (3) BY ITEM VALUE,              (4) BY TOTAL"2рEZ$│ Т:ЕZ$│""з69 :ДЕZ$│"^"з51:Д╔"F":Z│ Й(Z$):ЕZ│0▒Z▓4зZ│13BFR$(1)│" BEGINNING WITH iTE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D " @Ж~╖
ООЙ┐
ПО
╤oАЖ зАМ
┌&∙╜й(О╙
Я╜гР%╥0
жДБ '°_4mА'\ ∙┴#╞5╜еРx╜жH╢
тБ&Фt№
х¤$}
ф&Фg№
ч¤&ОBЯ~╜з|╜з&ФАЯ~
|'Фx*я┐(╜зщ╛&МB$/┐4╛$┐@╛(┐;┐.╬0ж└зАГB&ЎГB¤,ОB┐* ┐*№(ГB¤,╛$┐.Ж О	LзАМ	W&∙ЖзАoАМ	l&∙╜й(О╘╜гР% 0
╬	LжА'Б.''Б/'#з└Г	T&ьжА'
Б.'Б/' Є╠BI¤	TЖN╖	V ╬	TжА'з└Г	W&Ї╜╔VO╜╦R№,╜╦RШ╜╦R№*╜╦RШ╜╦RОB╛,жА╜╦R1?&ўЖ ╜╦RO╜╦RO╜╦R№.╜╦RШ╜╦R╜д-■w4 @oы╜╤H╜зщЖ
нЯа5О┬B┴6$
ОИ┘┴2$Олп:ьДОэДН
нЯа'·■"■8жА'нЯа Ў9TAPEDISK V1.0
BY MARK D. GOODWIN
CASSETTE FILENAME: DISK FILENAME:    ERROR
ОB╬&жАз└М(&ў~$▌ 30)м(252,191),╜,B ЙА I │ 0 е 255 й 36:╗(I,30)м(I,191),╜:Л ┤▄А I │ 30 е 160 й 32:╗(0,I)м(252,I),╜:Л ═@╗(0,0)м(252,30),╜,BF ┌дБж 15000!D│DD:L│1:DH│DM(MH):Е (YRо4│ Б(YR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )vb
Ю0:З@32,"the" Л(128)"search" Л(128)"for" Л(128)"almazar";:З Л(128)"part" Л(128)"one" Л(128);sЗ б(96,128);╙З Л(128) Л(128)"written" Л(128)"by" Л(128)"winston" Л(128)"b" Л(128)"llamas" Л(128) Л(128);фЗ б(65,128);З б(12,128)"c" Л(128)"1981";:З б(85,128);PЗ"co" Л(128)"co" Л(128)"version" Л(128)"by";:З б(79,128);tЗ"geoffrey" Л(128)"williamson";~Бе259╒	Х3000:МFT(72),MO(72,5),VC$(53),VC(53),TC$(42),TC(42),OP(29),LO$(29),SO$(29),SP(14) 4
Щ"I",#1,"SFAMOVE/DAT":АX│1е72:Й#1,RI,MO(X,0),MO(X,1),MO(X,2),MO(X,3),MO(X,4),MO(X,5):Л:Ъ#1 ЙЩ"I",#1,"SFAVOC/DAT":АX│0е53:Й#1,VC$(X),VC(X):ЛX:АY│0е42:Й#1,TC$(Y),TC(Y):ЛY:Ъ#1 яЩ"I",#1,"SFAOBDES/DAT":АX│0е29:Й#1,DU,LO$(X):ЛX:АY│0е19:Й#1,DU,SO$(Y):ЛY:АZ│0е29:Й#1,OP(Z):ЛZ:Ъ#1  
Ю:N│1:Бж226!ЕRN▓10░RN┤30Бж252!CTU│TUл1:ЕTU▓400 зRE│74:З:Бж241:DI│3:Бе247!tЕSP(8)│1зSP(14)│SP(14)л1::ДЕSP(8)│0зSP(14)│0!аЕSP(2)│1зSP(1)│SP(1)м1:ЕSP(1)┤1зSP(2)│0!╪ЕSP(1)┤20░SP(2)│1░OP(8)│м1░W1┤▓1зRE│17:З:Бж241:W1│1"ЕSP(13)▓0зSP(13)│SP(13)л1:ЕSP(13)▓5зRE│70:З:Бж241:Бж243:Бе14">ЕTU▓360░W2┤▓1зRE│16:З:Бж241:W2│1"ЖЕRN│15 з SC│1::Д ЕOP(23)│RN зSP(6)│SP(6)л1:Е SP(6)▓5 зIO│22:З:Бж134"╛ЕSP(14)▓7зRE│65:З:Бж241:SP(14)│0:SP(8)│0:Бж243:Бе14#C1│0:OW│0:З:ЙCO$:З:LC│ З(CO$):АX│1еLC:Е Р(CO$,X,1)│" "зC1│X:Бе25::ДЛ##ЕCO$│""зRE│2:Бж241:Бе14#FV1│C1м1:ЕC1│0▒V1▓4зV1│4::ДOW│1#ПC1$│ О(CO$,V1):АX│0е53:ЕC1$│VC$(X)зIV│VC(X):Бе27::ДЛ:RE│2:Бж241:Бе14#иЕIV▓16з62::ДЕIV▓6з31#╥ЕIV│1░SP(7)┤▓2░RN│62зRE│91:Бж241:Бе14#¤ЕIV│1░RN│59░OP(29)┤▓59зRE│1:Бж241:Бе14$3N│MO(RN,(IVм1)):ЕN│0зRE│1:Бж241:Бе14::ДБж226:Бе14$dИIVм6 Бж32,33,45,48,53,57,58,60,214,220:Бе14$} N│RN:FT(N)│0:Бж226:Р$├!ЕRN│47▒RN│43▒RN│52▒RN│63▒RN│54▒RN│61▒RN│70▒RN│69з34::ДRE│102:Бе44%"Й"THE HINT WILL COST YOU 3 POINTS. DO YOU STILL WANT IT";HQ$:Е О(HQ$,1)│"N"зР:ДЗ%)#ЕRN│47зRE│94%:$ЕRN│63зRE│95%K%ЕRN│54зRE│96%\&ЕRN│61зRE│97%m'ЕRN│70зRE│98%~(ЕRN│69зRE│99%Р)ЕRN│52зRE│100%в*ЕRN│43зRE│101%о+PR│PRл3%║,Бж241:Р%ў-CA│0:З"YOU ARE CARRYING:":АX│0е29:ЕOP(X)│м1зЗSO$(X):CA│1&.ЛX:ЕCA│0зЗ"NOTHING"&/Р&10RE│6:ЕRN│27▒RN│28зRE│43&B1ЕRN│41зRE│48&_2ЕRN│43▒RN│44▒RN│49зRE│30&|3Бж241:ЕRE│30зRE│31:Бж241&О4ЕRE┤▓6з243:ДР&░5PT│0:АX│0е7:ЕOP(X)│м1зPT│PTл7&╟6ЕOP(X)│72зPT│PTл10&ю7ЛX:PT│PTм(DIн10)мPR:ЕRE│8зPT│PTл10'8З"YOU HAVE SCORED ";PT;"POINTS.":Р'U9Й"ARE YOU SURE YOU WANT TO QUIT";QU$:Е О(QU$,1)┤▓"N"з247:ДР'┴:Щ"O",#1,"SFA/SAV":АX│0е29:┘#1,OP(X):ЛX:АY│1е72:┘#1,FT(Y):ЛY:АZ│0е14:┘#1,SP(Z):ЛZ:┘#1,RN,TU,SC,IN,PR:Ъ#1(o;З"THE GAME IS NOW SAVED FOR LATER USE. TO CONTINUE THE SAME GAME,                                 TYPE <RESTORE> ON YOUR FIRST    TURN AFTER YOU RESUME PLAY.":З:Бж53:З:К(д<ЕTU▓1зЗ"IT'S TOO LATE TO RESTORE AN OLD GAME.":Р)=Щ"I",#1,"SFA/SAV":АX│0е29:Й#1,OP(X):ЛX:АY│1е72:Й#1,FT(Y):ЛY:АZ│0е14:Й#1,SP(Z):ЛZ:Й#1,RN,TU,SC,IN,PR:Ъ#1:N│RN:Бж226:Р):>S2│C1л1:C2$│ Р(CO$,S2,4))u?АX│0е42:ЕC2$│TC$(X)зIO│TC(X):Бе64::ДЛX:RE│2:Бж241:Бе14)р@И IVм16 Бж65,86,94,94,101,113,116,123,134,140,148,154,160,165,169,173,181,187,190,196,202,205,209:Бе14)ЎAЕIO▓18 зRE│2:Бе73*BЕINл1▓7 зRE│83:Бе85*ZCЕIO│18 зЕOP(5)│RN зRE│3:OP(5)│м1:Бе84::ДЕOP(19)│RN зRE│3:OP(19)│м1:Бе84*иDЕIO┤▓5 ░IO┤▓16 з71::ДЕIO│5 зЕOP(5)│м1 зRE│7:Бе85::ДЕOP(19)│м1 зRE│62:Бе85*¤EЕIO│5 зЕOP(22)│RN зЕOP(18)│м1 зRE│3:OP(22)│0:OP(18)│0:OP(5)│м1:Бе85::ДRE│60:Бе85+@FЕIO│16 зЕOP(16)│RN зЕSP(3)│1 зRE│3:OP(16)│м1:Бе84::ДRE│18:Бе85+jGЕIO│1 ░ OP(20)│RN з RE│23:Бж241:Бе243+жHЕOP(IO)│RN з RE│3:OP(IO)│м1::Д ЕOP(IO)│м1 зRE│7 :Д RE│4+хIЕIO│28 зЕOP(8)┤▓м1 зRE│63::ДЕRN┤▓8 зRE│71::ДRE│3:SP(1)│100,\JЕIO│29 зЕOP(5)│м1 ▒OP(19)│м1 зRE│62::ДЕOP(18)┤▓м1 зRE│60::ДЕRN┤▓43 ░RN┤▓44 ░RN┤▓49 зRE│4::ДRE│3:OP(18)│0:OP(19)│м1,ЗKЕIV│22 з ЕRE│60 зRE│77::Д ЕRE│4 зRE│78,аLЕIV│22 ░RE│71 зRE│78,═MЕIO│7 ░OP(26)│RN зOP(7)│м1:OP(26)│0:RE│3,юNЕIO│27 з ЕRN│32 зRE│9 :ДRE│4-OЕIO│25 з ЕRN│65 зRE│9 :ДRE│4-+PЕIO│2 ░OP(23)│RN зRE│93-LQЕIO│31 з ЕRN│69 зRE│9 :ДRE│4-mRЕIO│19 з ЕRN│52 зRE│9 :ДRE│4-ЙSЕIO│3 ░OP(24)│RN зRE│61-гTЕRE│3 ░IO┤19 зIN│INл1-пUБж241:Р-╤VЕIO┤19 ▒IO│29 з87::ДRE│2:Бе93-■WЕOP(IO)│м1 ░IO┤▓7 зOP(IO)│RN:RE│3::ДRE│5.XЕIO│16 ░RE│3 зRE│66:SP(3)│0.GYЕIO│18 ░OP(5)│м1 зOP(5)│RN:RE│3:Бе92.uZЕ(IO│18 ▒IO│29)░OP(19)│м1 зOP(19)│RN:RE│3.╛[ЕIO│7 ░OP(IO)│м1 з ЕOP(14)│RN зRE│3:OP(7)│RN::ДRE│75:OP(7)│0:IN│INм1.╤\ЕRE│3 зIN│INм1.▌]Бж241:Р.є^ЕIO▓18 зRE│2:Бе99/_Е OP(IO)│м1 зRE│6::ДRE│5:Бе99/a`ЕIV│19 ░(RN│43 ▒RN│44)░IO│12 зSP(8)│ В(SP(8)м1):ЕSP(8)│1 зRE│28 :ДRE│29/нaЕIV│19 ░(RN│27 ▒RN│28)░IO│11 зSP(9)│ В(SP(9)м1):ЕSP(9)│1 зRE│35 :ДRE│36/╞bЕIV│20 ░IO│10 зБж100/╥cБж241:Р0dЕRN│61 ░SP(5)│0 зSP(5)│1:RE│22:Бж241:RE│25:З:OP(2)│RN:OP(23)│0:Р05eRE│4:ЕRN│25 ░IO│26 зRE│340NfЕRN│32 ░IO│26 зRE│370ggЕRN│43 ░IO│35 зRE│320АhЕRN│44 ░IO│26 зRE│670мiЕRN│65 ░IO│25 зЕSP(10)│1 зRE│38 :ДRE│440┼jЕRN│70 ░IO│26 зRE│330чkЕIO┤▓26 ░IO┤▓25 ░IO┤▓35 зRE│21lЕ RN┤▓70 ▒ IO┤▓26 з1111mАX│0е7:ЕOP(X)┤▓72 з1111AnЛX:ЕOP(10)│м1 зRE│8:Бж241:Бе2471WoБж241:ЕRE│44 з2431]pР1sqЕIO│8 зIO│28:Бе651КrЕIO│18 зIO│29:Бе651ЫsRE│2:Бж241:Р1╕tRE│2:ЕIO┤▓8 ░IO┤▓13 з1221╪uЕSP(2)│1 ░IO│8 зRE│82:Бе1221ЇvЕOP(IO)┤▓м1 зRE│5:Бе1222wЕIO│8 ░SP(1)┤1 зRE│13:Бе12221xЕOP(17)┤▓м1 зRE│12:Бе1222МyЕIO│8 зRE│3:SP(2)│1:SP(13)│0::ДOP(13)│0:IN│INм1:ЕRN│52 зOP(20)│0:OP(1)│RN:RE│24::ДRE│32ШzБж241:Р2╧{RE│6:ЕIO│20 ▒IO│22 ▒IO│36 ▒IO│27 з124::ДRE│2:Бе1222ю|ЕIO│36 з ЕOP(21)┤▓RN зRE│43}ЕIO│20 ░OP(24)┤▓RN зRE│43(~ЕIO│22 ░OP(23)┤▓RN зRE│437ЕRE│4 з1223pАЙ"WITH WHAT, YOUR BARE HANDS";QU$:Е О(QU$,1)│"N"з1333ВБЕIO│20 зRE│213ФВЕIO│22 зRE│453жГЕIO│36 зRE│813╕ДЕIO│27 зRE│113▄ЕЗ:Бж241:ЕRE┤▓21 ░RE┤▓45 зР:Д2434ЖRE│2:ЕIO│27 зЕOP(25)│RN зRE│10 :ДRE│447ЗЕIO│22 ░OP(23)│RN зSP(6)│0:RE│45:Бж241:Бе2434GИЕIO▓19 з1394qЙЕOP(IO)┤▓м1 зRE│5::ДЕOP(IO)┤▓RN зRE│44ШКЕOP(IO)│м1 зOP(IO)│RN:RE│3:IN│INм14дЛБж241:Р4╚МRE│6:ЕIO▓18 ░IO┤▓27 зRE│2:Бе1474ёНЕIO│27 зЕOP(25)│RN з128 :ДRE│4:Бе1475ОЕIO│7 ░OP(7)│м1 зRE│75:OP(7)│05[ПЕ(IO│18 ▒IO│5)░OP(5)│м1 зRE│84:Бж241:З:RE│73:OP(5)│0:IN│INм1:Бе1475ЙРЕIO│18 ░OP(19)│м1 зOP(19)│0:IN│INм1:RE│845ЯСЕOP(IO)┤▓м1 зRE│55═ТЕIO│18 ░OP(18)│м1 зIN│INм1:OP(18)│0:RE│845┘УБж241:Р5юФRE│2:ЕIO▓18 з1536ХЕIO│18 ▒IO│5 з1406VЦЕOP(IO)┤▓м1 зRE│5:Бе153::ДRE│3:IN│INм1:OP(IO)│RN:Е(IO│6 ░OP(21)│RN)з151::Д1536тЧKG│ Д(0)м(INн.01):ЕKG▓.4 зЗ"YOU KILLED A NASTY, KNIFE THROW-ING GNOME!":OP(21)│0::ДЗ"YOU MISSED! YOU OUGHT TO TO GET YOUR EYES TESTED!"6шШР6ЇЩБж241:Р7?ЪRE│19:ЕIO┤▓5 з157::ДЕOP(5)│м1 ▒OP(5)│RN зRE│40:OP(5)│0:OP(18)│м1:Бе1597fЫЕOP(5)мRN зRE│40:OP(5)│0:OP(18)│RN7ЛЬЕOP(22)│RN зOP(22)│0:RE│40:Бе1597╫ЭЕIO│15зЕOP(15)│м1зOP(15)│0:IN│INм1:RE│80::ДЕOP(15)│RNTHENOP(15)│0:RE│808&ЮЕIO│16зЕOP(16)│м1зRE│41:IN│INм1:OP(16)│0:Бж241:Бе243::ДЕOP(16)│RNTHENRE│6682ЯБж241:Р8OаRE│57:ЕIO┤▓29зRE│2:Бе1598wбЕOP(19)│м1зRE│56:OP(19)│0:OP(18)│м18ввЕOP(19)│RNTHENRE│56:OP(19)│0:OP(18)│RN8┐гЕRN│43▒RN│44▒RN│49зRE│568╔дБе1598чеЕIO┤▓16░IO┤▓20зRE│2:Бе1599:жЕIO│16 зЕOP(16)┤▓RN зRE│4:Бе159::ДЕOP(15)│м1 зSP(3)│1:RE│3:Бе159::ДRE│19:Бе1599qзЕOP(24)┤▓RN зRE│4:Бе159::ДЕOP(16)┤▓м1 зRE│19:Бе1599▓иIN│INм1:OP(24)│0:RE│20:Бж241:OP(16)│0:RE│26:З:OP(3)│RN:Бе1599╓йRE│6:ЕIO▓18 ░IO┤▓24 зRE│2:Бе1599¤кЕIO┤▓24 з159::ДЕRN┤▓59 зRE│4:Бе159:"лЕOP(29)│59 зRE│85:OP(29)│0:Бе159:<мRE│72:OP(29)│59:Бе159:dнЕIO┤▓30 ░IO┤▓31 ░IO┤▓32 зRE│2:Бе159:{оЕIO│30 ░RN│62 з178:┤пRE│4:ЕIO│32 ░RN│66 зЕOP(9)│м1 зSP(11)│1:RE│3::ДRE│14:ш░ЕIO│31 ░RN│69 зЕOP(9)│м1 зRE│3:SP(12)│1::ДRE│14:Є▒Бе159;▓Й"LEFT";N1$:Й"RIGHT";N2$:Й"LEFT";N3$:З;Z│Е Й(N1$)│3 ░ Й(N2$)│7 ░ Й(N3$)│21 зRE│87:SP(7)│1::ДRE│89;d┤Бе159;В╡RE│2:ЕIO┤▓21 ░IO┤▓23 з159;┴╢RE│4:ЕIO│21 зЕ(RN┤▓27 ░RN┤▓28)з159::ДЕSP(9)│0 зRE│42:Бе159;√╖ЕIO│23 зЕ(RN┤▓43 ░RN┤▓44)з159::ДЕSP(8)│0 зRE│27:Бе159<╕ЕRN│43 зN│44::ДЕRN│44 зN│43<;╣ЕRN│27 зN│28::ДЕRN│28 зN│27<E║Бе226<c╗RE│2:ЕIO┤▓23 ░IO┤▓29 з189<Л╝ЕRN│43 ▒RN│44 ▒RN│49 зRE│31::ДRE│57<е╜Бж241:ЕRE│31 з243 :ДР<╒╛ЕIO┤▓30 ░IO┤▓31 ░IO┤▓32 ░IO┤▓33 зRE│2:Бе195=?┐RE│4:ЕIO┤▓30 з192::ДЕRN┤▓62 з195::ДЕSP(7)┤1 зRE│88:Бе195::ДЕSP(7)│2 зRE│68:Бе195::ДRE│3:SP(7)│2:Бе195=З└ЕIO│31 ░RN│69 зЕSP(12)┤1 зRE│86::ДЕSP(12)│2 зRE│68::ДRE│39:SP(12)│2=щ┴ЕIO│32 ░RN│66 зЕSP(11)┤1 зRE│86::ДЕSP(11)│2 зRE│68::ДSP(11)│2:ЕOP(4)│0 зOP(4)│RN:RE│76::ДRE│3>8┬ЕIO│33 зЕRN┤▓65 з195::ДЕSP(10)│1 зRE│3:SP(10)│0:OP(27)│RN:OP(28)│0::ДRE│68>D├Бж241:Р>t─ЕIO┤▓30 ░IO┤▓31 ░IO┤▓32 ░IO┤▓33 зRE│2:Бе195>л┼RE│4:ЕIO│30 ░RN│62 зЕSP(7)│0 зRE│69::ДRE│3:SP(7)│0>▀╞ЕIO│31 ░RN│69 зЕSP(12)│0 зRE│69::ДRE│3:SP(12)│0?╟ЕIO│32 ░RN│66 зЕSP(11)│0 зRE│69::ДRE│3:SP(11)│0?Z╚ЕIO│33 ░RN│65 зЕSP(10)│1 зRE│69::ДRE│3:SP(10)│1:OP(27)│0:OP(28)│RN?d╔Бе195?{╩ЕIO┤▓8 зRE│2:Бе195?│╦ЕOP(IO)┤▓м1 зRE│5 :ДЕSP(2)┤▓0 зSP(2)│0:RE│3::ДRE│92?╜╠Бе195?с═RE│6:ЕIO▓18 ░IO┤▓34 зRE│2:Бе208?Є╬ЕIO┤▓34 з208@╧ЕRN┤▓60 зRE│4:Бе208::ДRE│79:N│61@6╨Бж241:ЕRE┤▓79 зР::ДЗ:Бе226@N╤ЕIO┤▓18 зRE│2:Бе195@i╥RE│5:ЕOP(18)│м1 зRE│90@Р╙ЕOP(5)│м1 зOP(5)│0:OP(18)│м1:RE│73@╕╘ЕOP(19)│м1 зRE│3:OP(19)│0:OP(18)│м1@┬╒Бе195@ь╓EN│0:ЕRN│1 ▒RN│10 ▒RN│55 зN│RNл1:EN│1A╫ЕRN│62 зЕSP(7)│2 зN│72:EN│1::ДRE│91:Бе159A0╪ЕRN│31 зN│33:EN│1AF┘ЕRN│51 зN│70:EN│1Ae┌ЕEN│0 зRE│58:Бж241::ДБж226Ak█РAХ▄LE│0:ЕRN│2 ▒RN│11 ▒RN│56 зN│RNм1:LE│1Aл▌ЕRN│33 зN│31:LE│1A┴▐ЕRN│70 зN│51:LE│1A╫▀ЕRN│72 зN│62:LE│1AЎрЕLE│0 зRE│59:Бж241::ДБж226A№сРB>тЕ((RN│43 ░ N│44)▒(RN│44 ░ N│43))░SP(8)│0 з RE│27:Бж241:N│RN:РBАуЕ((RN│27 ░ N│28)▒(RN│28 ░ N│27))░ SP(9)│0 зRE│42:Бж241:N│RN:РB╢фЕRN│61 ░ N┤▓61 ░IV│1 ░SP(5)│0 зRE│64:Бж241:N│RN:РBфхЕRN│67 ░ N│71 ░SP(5)│0 зRE│1:Бж241:N│RN:РCцSR│0:Е((N▓11 ░ N┤▓15 ░ N┤30)▒(N▓32 ░ N┤39))зSR│1C'чЕSR│0з234CpшЕSP(2)│1 ░(OP(8)│м1 ▒ OP(8)│N)з234::ДRE│15:Бж241:ЕSP(13)│0 зSP(13)│1CщRN│N:N│0:РCлъЕFT(N)│0 з NF$│"SFALDES":ДNF$│"SFASDES"CуыЩ"D",#1,NF$:╨#1,255 зDE$:─#1,N:Й#1,DE$:Ъ#1:SP(13)│0DьАX│1е255:Е Р(DE$,X,10)│"          "з238D$эЗ Р(DE$,X,1);:ЛXD^юЗ:RN│N:FT(N)│1:N│0:ЕRN│41 ░ VO│0 з RE│55:З:Бж241:VO│1DЗяАX│0е29:Е OP(X)│RN ░X┤▓21 зЗ:ЗLO$(X)DРЁЛX:РEёЩ"D",#1,"SFARESP":╨#1,255 зRE$:─#1,RE:Й#1,RE$:Ъ#1:АX│1е255:Е Р(RE$,X,12)│"            "з242::ДЗ Р(RE$,X,1);:ЛXEЄЗ:РE1єDI│DIл1:ЕDI│3зRE│49:З:Бж241:Бе247EmЇЗ:Й"DO YOU WANT ANOTHER CHANCE";QU$:Е О(QU$,1)┤▓"Y"з247EкїIN│0:З:RE│DIл45:Бж241:АX│0е18:ЕOP(X)│м1зOP(X)│ Б( Д(15))E°ЎЛX:OP(8)│2:OP(17)│6:OP(12)│42:N│1:SP(2)│0:SP(8)│0:SP(14)│0:SC│0:З:Бж226:РFўЗ:Бж53:RE│50:ЕPT▓7 зRE│51F(°ЕPT▓35 зRE│52F:∙ЕPT▓79 зRE│53FL·ЕPT│90 зRE│54F\√З:Бж241:З:КFi№ЕSC│0 зРFК¤ЕOP(21)│0 зOP(21)│ Б( Д(35))Fк■ЕOP(21)▓RN зOP(21)│OP(21)м1F╩ ЕOP(21)┤RN зOP(21)│OP(21)л1F▌
ЕOP(21)┤▓RN зРG_

З:ЗLO$(21):RA│ Д(0)л(INн.01):ЕRA▓.7 зЗ:З"HE THROWS A SMALL KNIFE AT YOU!":З:ЕRA▓.9 зЗ"IT GETS YOU!":Бе243::ДЗ"IT MISSES YOU!"Ge
РGu
╤ 1,256:Бе9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    	о(
Щ"D",#1,"SFASDES/DAT":╨#1,255 зDE$JАX│1е72:НD$:╘DE$│D$:┼#1:Л:Ъ#1лЖYOU ARE OUTSIDE AN OLD SHACK.,YOU ARE INSIDE A SHACK.,YOU ARE ON THE EDGE OF A LARGE  PATH.nЖYOU ARE IN A FOREST.,YOU ARE IN A FOREST.,YOU ARE IN A FOREST.,YOU'RE IN THE MIDDLE OF A ROAD.,YOU ARE BY A MURKY POOL.,YOU'RE IN A THREE WAY JUNCTION.,YOU'RE AT THE ENTRANCE TO A     CAVE. `(ЖYOU'RE INSIDE A PLACE WHERE     LIGHT FILTERS FROM THE EAST.,YOU ARE IN A PASSAGE OF BROKEN  ROCKS.,YOU'RE INSIDE A SMALL CAVERN.,YOU ARE IN A LONG HALL.,THIS IS A ROOM LIT BY A SIGN.,YOU'RE IN THE TOOL ROOM.,YOU ARE IN A LONG CORRIDOR.!@2ЖYOU ARE IN A TWISTY MAZE OF     LITTLE PASSAGES.,YOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES.,YOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES.,YOU ARE AT A DEAD END.,YOU ARE IN A MAZE OF TWISTY     LITTLE PASSAGES."/<ЖYOU ARE IN A LITTLE MAZE OF     TWISTY PASSAGES.,YOU'RE IN THE TALL WALL CANYON.,YOU'RE IN A LONG HALL.,YOU ARE IN A PLACE WHERE THREE  PATHS MEET.,YOU'RE AT THE CHASM.,YOU ARE ON A NARROW LEDGE.,YOU'RE IN A NARROW PART OF THE  CAVE."∙FЖYOU ARE IN THE 'T.',YOU ARE AT THE MINE ENTRANCE.,YOU ARE NEAR AN OAK TREE.,YOU ARE INSIDE THE MINE.        PASSAGES LEAD IN ALL DIRECTIONS.,YOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.#тPЖYOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.,YOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.,YOU ARE INSIDE A MINE. PATHS    LEAD IN ALL DIRECTIONS.,YOU ARE INSIDE A MINE. THERE AREPASSAGES IN ALL DIRECTIONS.$╛ZЖYOU ARE IN A PLACE WHERE COLD WINDS BLOW.,THE ROAD NARROWS HERE.,YOU'RE ON TOP OF A HILL.,YOU ARE BY A LARGE ROCK.,YOU ARE AT THE RIVER'S SOUTHERM EDGE.,YOU ARE AT THE RIVER'S NORTHERN EDGE.,YOU'RE AT A CROSSROADS.%ЮdЖYOU ARE IN 'HOLEY' GROUND.,YOU'RE NEAR THE STABLE.,THE ROAD ENDS HERE.,YOU ARE AT THE RIVERFRONT.,YOU ARE BY A GARGOYLE STATUE.,YOU'RE OUTSIDE AN OUTHOUSE.,A LARGE STONE IDOL STANDS IN FRONT OF YOU.,YOU'RE IN A GARDEN.&БnЖYOU'RE IN AN ORCHARD.,YOU ARE STANDING AT AN ENTRANCE TO A HOUSE.,YOU'RE NEAR THREE DOORWAYS.,THIS IS THE DINING ROOM.,YOU'RE IN THE KITCHEN.,YOU ARE IN A LIVING ROOM.,YOU ARE INSIDE A SMALL ROOM.,YOU ARE IN THE BASEMENT.'?xЖYOU'RE OUTSIDE A VAULT.,THIS IS THE RECEPTION HALL.,YOU ARE ON THE MIDDLE FLOOR.,YOU ARE IN THE LIBRARY.,YOU ARE IN THE BEDROOM.,YOU ARE INSIDE A WALK-IN CLOSET.,THIS IS THE TOP FLOOR.'нВЖYOU ARE IN THE ATTIC.,YOU'RE INSIDE AN OUTHOUSE.,YOU ARE INSIDE A SMALL CUBICLE.,YOU ARE INSIDE A VAULT.PARATES YOU FROMA LEDGE IN THE NORTH. A SMALL   PATH LEADS SOUTH.(\
rЖYOU ARE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  }Щ"O",#1,"SFAOBDES/DAT";
АX│0е29:НOB$:З#1,X","OB$:ЛZАX│0е19:НOB$:З#1,X","OB$:ЛД(АX│0е28:НOP:З#1,OP",";:ЛX:З#1,0:Ъ#1:КUdЖA LARGE DIAMOND IS LYING HERE.,THERE'S AN EMERALD EYE HERE.,A PLATINUM CHAIN IS LYING HERE.,THERE IS A GOLDEN APPLE HERE.,A STRING OF PEARLS IS LYING     HERE.,THERE IS A BOTTLE OF RARE SPICESLYING HERE. AnЖTHERE IS A JEWEL ENCRUSTED      DAGGER IN HERE.,A PRICELESS FIGURINE IS SITTING ON SOME HAY.,THERE IS AN OLD OIL LAMP HERE.,AN OLD BRASS KEY IS LYING HERE.,THERE IS A WORTHLESS LOOKING    RING HERE.,AN OLD BLACK ROD IS LYING HERE.!,xЖTHERE'S AN ANCIENT LOOKING STAFFLYING HERE.,THERE'S A PACKAGE OF INCENSE    LYING HERE.,THERE'S A BALE OF HAY HERE.,A PACK OF KRAFT CHEESE IS LYING HERE.,THERE IS A NOISY LITTLE MOUSE   HERE.,THERE'S A BOX OF MATCHES LYING  HERE."ВЖTHERE'S AN EMPTY BOTTLE HERE.,THERE'S A BOTTLE OF BROWNISH    WATER HERE.,AN EMERALD EYE SITS ON TOP OF   THE IDOL.,THERE IS A KNIFE-WIELDING GNOME IN THE ROOM WITH YOU.,THERE ARE RARE SPICES LYING ON  THE GROUND."тМЖAN ANGRY WIZARD WITH A PLATINUM CHAIN IS IN THE ROOM WITH YOU.,A GIANT SNAKE IS JEALOUSLY      GUARDING A GOLDEN APPLE.,THERE IS A LARGE CRYSTAL BALL ONTHE GROUND.,A PRICELESS FIGURINE STANDS ON  TOP OF THE TABLE.#/СЖTHE WINDOW IS OPEN.,THE WINDOW IS CLOSED.,THERE IS AN OPEN PANEL NORTH.$ЦЖLARGE DIAMOND,EMERALD EYE,PLATINUM CHAIN,GOLDEN APPLE,STRING OF PEARLS,BOTTLE OF SPICES,JEWELED DAGGER,PRICELESS FIGURINE,OIL LAMP,BRASS KEY,RING,BLACK ROD,WOODEN STAFF,INCENSE,HAY,KRAFT CHEESE,NOISY MOUSE$,аЖMATCHES,EMPTY BOTTLE,BOTTLE OF WATER$|кЖ38,0,0,0,0,0,15,0,2,2,49,21,42,58,47,57,69,6,24,0,52,0,28,61,54,32,63,65,0.,YOU ARE AT THE RIVER'S NORTHERN EDGE.,YOU'RE AT A CROSSROADS.%ЮdЖYOU ARE IN 'HOLEY' GROUND.,YOU'RE NEAR THE STABLE.,THE ROAD