!
В *************************AВ *   VARIABLE SEARCHER   *aВ *    BY CHRIS JENNES    *Б(В *   4K COLOR COMPUTER   *б2В *************************║<Ю:Х 10000:М A$(1000)╨FЙ"PROGRAMNAME";A$рPЩ"I",#м1,A$єZЕ  М(м1) з 210dЙ #м1,A$
nBEGINP│1%xA│ Ю(BEGINP,A$,"=")4ВЕ A│0 з 90GМА X│A е 1 й м1qЦI$│ Р(A$,X,1):Е I$│" " ▒ I$│":" з 170yаЛ XСкP$│ Р(A$,Xл1,AмXм1)╩┤А X│1 е AP:Е A$(X)│P$ з 200 :Д Л X:AP│APл1:A$(AP)│P$ї╛З #м2,"LINE :"; Й(A$),"VARIABLE : ";P$ 
╚BEGINP│Aл1:Бе120 ╥Ъм1*    WITH ITS ORIGINAL NAME* TZ:Г**************************** wdХ10000:М L$(200),O(200):Бж 440 КnЙ"NEWLINE:";NL аxЙ"STARTLINE:";STL ╢ВЙ"INCREMENT:";INC їМЕ NLл((Lм1)нINC)▓63999 з З"PARAMETERS OUT OF RANGE":Бе 110!ЦCNTR│                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                м1,L$(X):ЛX:Ъм1:Р0 :Д 18000'CHЕ  К(A$)▓64 ░  К(A$)┤91 з Бж 2160'VRL$(L)│L$(L)лA$'n\З  Л(8);A$; Л(207);'yfБе2060'╔pX│ Ж(341):Е X│215 ▒ X│231 ▒ X│243 ▒ X│245 ▒ X│246 ▒ X│247 з CNTRL│0:Бе 2200(zX│ Ж(344):Е X│215 ▒ X│231 ▒ X│243 ▒ X│245 ▒ X│246                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ю!
В *************************AВ *    KEYBORD OVERLAY    *aВ * FOR USE WITH EASYTYPE *Б(В *     CHRIS JENNES      *┴2В *       JULY '83        *36 REM *************************╙<З #м2,  Л(18)тFЗ #м2,"Q1"ўPЗ #м2,"M450,-95"ZC│13:Бж 290dЗ #м2,"M355,-45",nC│14:Бж 290@xЗ#м2,"M260,-70"PВC│11:Бж 290tМЗ#м2,"J0,-165,-70,0,0,165,70,0"ЗЦЗ#м2,"R0,-190"ЦаC│1:Бж 290ккЗ#м2,"M165,-70"╡┤Бж 340┼╛C│10:Бж 290╨╚Бж 340х╥З #м2,"M70,-440" 
▄З #м2,"J0,-510,-70,0,0,510,70,0" цА X│1 е 9 &ЁН C,A,H,V 1·Бж 460 9
Л X J
З #м2, Л(17) P
К ^
"А X│1 е C Б
,З #м2,"J0,-70,-70,0,0,70,70,0" Ф
6З #м2,"R0,-95" Ь
@Л X в
JР ╞
TЗ#м2,"J0,-115,-70,0,0,115,70,0" ┘
^З#м2,"R0,-140" ▀
hР!#
rЖ 0,10,364,-140,FOR,TO,NEXT,IF,THEN,ELSE,GOTO,GOSUB,INPUT,PRINT!l
|Ж 1,10,356,-158,AUDIO,CIRCLE,CLS,DRAW,GET,LINE,MOTOR,ON,PAINT,PCLEAR!╖
ЖЖ 3,10,277,-140,CHR$,CLEAR,DATA ,DIM,HEX$,INKEY$,INSTR,LEFT$,MID$,READ!¤
РЖ 0,9,269,-165,LINE INPUT,TAB,USING,OPEN,CLOSE,EOF,REM,RETURN,ABS"C
ЪЖ 1,9,261,-183,PCLS,PCOPY,PLAY,PMODE,POINT,PPOINT,PRESET,PSET,PUT"Ж
дЖ 3,9,182,-165,RESTORE,RIGHT$,STR$,STRING$,VAL,LEN,FIX,INT,SGN"┴
оЖ 0,7,174,-210,ASC,SQR,TIMER,VARPTR,USR,DEF USR,DEF FN"№
╕Ж 1,7,166,-228,RESET,SCREEN,SET,SOUND,JOYSTK,POKE,PEEK#*
┬Ж 3,7,87,-210,ATN,COS,EXP,LOG,SIN,TAN,END#8
╠З#м2,"C"C#K
╓З #м2,"M"H","V#Y
рА Y│1 е A#b
ъН A$#s
ЇЗ #м2,"P";A$#П
■З #м2,"R0,-"95м6н З(A$)#ЧЛ Y#ЭР23F78E04DFC66EE78439#╨╨L│Lл1:Е L▓AVLNS з 16000$:┌╗Й"AUTOMATIC LINE NUMBERING (Y/N)";A$:Е A$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	$
:Г****************************G:Г*  RENUM FOR NON-EXTENDED  *j:Г*  BASIC COLOR COMPUTERS   *Н:Г*                          *░:Г*     BY CHRIS JENNES      *╙#:Г*       JULY '83           *Ў(:Г****************************-:Г* ==>CLOAD PROGRAM TO RENUM*<2:Г* ==>CSAVE IT IN ASCII     *_7:Г* ==>CLOAD THIS PROGRAM    *В<:Г* ==>POSITION TAPE         *еA:Г* ==>RUN THIS PROGRAM      *╚F:Г* ==>THE PROGRAM WILL ASK  *ыK:Г*    YOU TO REWIND THE TAPE* P:Г* ==>YOUR PROGRAM IS SAVED * 1U:Г*    WITH ITS ORIGINAL NAME* TZ:Г**************************** wdХ10000:М L$(200),O(200):Бж 440 КnЙ"NEWLINE:";NL аxЙ"STARTLINE:";STL ╢ВЙ"INCREMENT:";INC їМЕ NLл((Lм1)нINC)▓63999 з З"PARAMETERS OUT OF RANGE":Бе 110!ЦCNTR│1:BLN│NL!CаЕ  Й(L$(CNTR))┤STL з CNTR│CNTRл1:Е CNTR┤│L з 160 :Д 360!iкА X│1 е CNTRм1:O(X)│ Й(L$(X)):Л X!у┤АX│CNTR е L:O(X)│ Й(L$(X)):SN$│ И(NL):NN│ З(SN$):L$(X)│ Р(SN$,2,NNм1)л П(L$(X), З(L$(X))м З( И(O(X)))л1):NL│NLлINC:ЛX!ё╛А X│1 е L!■╚BEGINP│1"&╥BGNR│99999:LE│0:Бж 380:Е LE│1 з 340"U▄Е  Р(L$(X),BGNR,1)│" " з BGNR│BGNRл1:Бе220"─цI$│ Р(L$(X),BGNR,1):Е I$│"" з L$(X)│L$(X)л"####":З"NO LINE REFERENCE IN LINE";  Й(L$(X));"--MARKED":Бе 340##ЁI│ К(I$):Е I│35 з BEGINP│BGNTл4:З"BAD LINE REFERENCE IN LINE"; Й(L$(X)),"--IGNORED":Бе 310#I·Е I┤48 ▒ I▓57 з BEGINP│BGNR:Бе210#и
NRVLGND$│ П(L$(X), З(L$(X))мBGNRл1):OLDNR│ Й(NRVLGND$):T│0:NL│ З(NRVLGND$)м З( И(OLDNR))л1$H
T│Tл1:Е OLDNR┤▓O(T) з Е T┤L з 270 :Д З "UNDEFINED LINE";OLDNR;"IN LINE"; Й(L$(X));"--MARKED":L$(X)│ О(L$(X),BGNRм1)л"####"л П(L$(X),NL):BEGINP│BGNRл4:Бе310$n
S$│ И(BLNл(TмCNTR)нINC):SL│ З(S$)$░
"Е T▓│CNTR з L$(X)│ О(L$(X),BGNRм1)л Р(S$,2,SLм1)л П(L$(X),NL)$Ё
,Е T▓│CNTR з BEGINP│BGNRлSLм1 :Д BEGINP│BGNRл З( И(OLDNR))м1%%
6Е  Р(L$(X),BEGINP,1)│" "з BEGINP│BEGINPл1:Бе 310%Y
@Е  Р(L$(X),BEGINP,1)│"," з BGNR│BEGINPл1:Бе 220%d
JБе 210%l
TЛ X%w
^Бж 490%О
hЗ"RENUM COMPLETED"%Ф
rК%п
|А P│BEGINP е  З(L$(X))%┼
ЖHH$│ Р(L$(X),P,4)%ю
РЕ  Р(L$(X),P,5)│"GOSUB" з BGNR│5лP:Р&&
ЪЕ HH$│"GOTO" ▒ HH$│"THEN" ▒ HH$│"ELSE" з BGNR│4лP:Р&.
дЛ P&9
оLE│1:Р&?
╕Ю&X
┬Й"PROGRAMNAME";NAME$&k
╠Щ"I",#м1,NAME$&Ц
╓Е и( М(м1)) з Й #м1,L$(L):L│Lл1:Бе 470&ж
рL│Lм1:Ъм1:Р&т
ъЗ"REWIND TAPE,PRESS <PLAY><RECORD>AND PRESS <ENTER>":ЙA'
ЇЩ"O",#м1,NAME$:АX│1еL:З#ST$;K!╠Е K│1 з А T│1 е 1200: Л TK*╓LL│0KBрЕ K│1 з K│0: G│0: РKhъЗ "<N>ORTH <S>OUTH <E>AST <W>EST?KrЇZ$│ ТKе■Е Z$┤▓"N" ░ Z$┤▓"S" ░ Z$┤▓"W" ░ Z$┤▓"E" з 1780K│А X│1 е 4K╬Е  Р(ZZ$,X,1)│Z$ з Z│XK▐Л X: З ST$;Kь&Ю: G│0: РKЄ0К148,6,152,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                SOLEMN BLOOD OATH TO TELL NO ONE.": C│8B2FБж 1610BPPИ Z Бе 340,1530,1370,1370BдZA$(1)│"YOU'RE HEADED FOR ST. LOUIS, SO YOU TURN AROUND.": K│1: Бж 1610: Бе 1320B╛dЗ "JACKSON'S ISLAND:"C
nA$(1)│"LOCATED IN MID-RIVER, THIS IS AN OBVIOUS PARADISE FOR CHILDREN."CLxЕ C│10 з A$(1)│"HUCK AND JOE ARE ON THE ISLAND. TOM IS GONE."C°ВЕ C│9 з A$(1)│"*** TOM, HUCK AND JOE HARPER RUN AWAY TO PLAY PIRATE ON JACKSON ISLAND. THEY REMAIN THERE TWO DAYS WITH NO THOUGHT OF ANYONE WORRYING ABOUT THEM.": C│10DyМЕ C│11 з A$(1)│"*** THE BOYS REMAIN ON JACKSON ISLAND. A STORM DAMPENS THEIR SPIRIT OF ADVENTURE. THEY THINK OF HOME.": C│12DЕЦБж 1610D▌аЕ Z┤▓2 ░ Z┤▓3 з A$(1)│"YOU TAKE A SWIM AND RETURN TO SHORE.": K│1: Бж 1610: Бе 1380E/кЕ Z│2 з A$(1)│"YOU TAKE A BOAT BACK TO ST. PETERSBURG.": K│1: Бж 1610: Бе 340EH┤З "MCDOUGAL'S CAVE:"E╝╛Е C┤21 з A$(1)│"IT'S SAID THE MYSTERIOUS CAVE IS IN THIS AREA, BUT YOU CAN'T FIND IT. YOU SEEM TO BE CIRCLING."Fo╚Е C│21 з A$(1)│"*** YOU ENTER THE CAVE. TOM AND BECKY ARE SOMEWHERE WITHIN. SO IS INJUN JOE. TOM AND BECKY ESCAPE. TWO WEEKS PASS. TOM DISCOVERS THE CAVE HAS BEEN SEALED."лS$F╬╥Е C│21 з A$(2)│"*** TOM LEADS TOWNSMEN TO THE CAVE. INJUN JOE HAS DIED WITHIN.": G│2: C│22G▄Е C│23 з A$(1)│"TOM AND HUCK FIND THE TREASURE OF GOLD: $12,000!": C│24G&цБж 1610GEЁИ Z Бе 1380,1380,1380,1380G\·З "THE GRAVEYARD:"GФA$(1)│"IT'S LOVELY BY DAY BUT UNSETTLING BY NIGHT."HКЕ C│6 з A$(1)│"*** TOM AND HUCK GO TO THE GRAVEYARD TO CAST A WART-CURING SPELL. HIDDEN, THEY SEE DR. ROBINSON, INJUN JOE AND MUFF POTTER DIGGING UP A CORPSE FOR MEDICAL EXPERIMENTATION. ROBINSON AND JOE ARGUE AND ROBINSON IS KILLED BY JOE."H└Е C│6 з A$(2)│"THE BOY FLEE IN HORROR.": G│2: C│7Iy"Е C│8 з A$(1)│"*** THE TOWNSPEOPLE COME TO THE MURDER SCENE. MUFF POTTER IS ARRESTED FOR THE KILLING. TOM FEELS GUILTY BUT KEEPS TO HIS BLOOD OATH WITH HUCK AND SAYS NOTHING.": C│9IЕ,Бж 1610Iв6И Z Бе 480,560,1600,1320Iт@A$(1)│"WOODED BLUFFS ARE IMPASSABLE": K│1: Бж 1610: Бе 1530IЄJЕ G│0 з G│1JTА H│1 е GJ^А X│1 е  З(A$(H))J+hW$│ Р(A$(H),X,1)J5rЗ W$;Jj|P$│ Т: Е P$│"Q" з Ю: З "YOU STOP AT CHAPTER"C: КJБЖЕ P$┤▓"" з CT│CTл1JЫРЕ CT│1 з 1660 :Д CT│0JзЪLL│LLл1JшдЕ LL▓15 ░ W$│S$ ░  Ю( Р(A$(H),Xл1,31мLL), Л(32))│0 з LL│0: ЗJЄоЛ X,HJ°╕ЗK┬З EN FOR A WHILE AND LEAVE."9√VЕ C│3 з A$(1)│"*** TOM TRADES SOME FENCE-PAINTING LOOT FOR SUNDAY SCHOOL TICKETS MEANT TO BE EARNED BY MEMORIZING BIBLE VERSES. HE THUS 'QUALIFIES' TO RECEIVE A BIBLE. THIS IS A SWEET VICTORY BECAUSE BECKY IS PRESENT."лS$:К`Е C│3 з A$(2)│"HOWEVER, IN SHOWING OFF, TOM IDENTIFIES THE FIRST TWO DISCIPLES AS DAVID AND GOLIATH. HOW EMBARRASSING!": G│2: C│4: Бе 1150:╝jЕ C▓1 з A$(1)│"THE CHURCH IS OPEN BUT EMPTY.";еtЕ C│12 з A$(1)│"*** THE TOWN GATHERS FOR THE FUNERAL OF THE LOST BOYS. AND UP THE AISLE MARCH THE MISSING LADS: TOM, HUCK AND JOE. THE CONGREGATION BURSTS INTO A HYMN OF THANKSGIVING. AUNT POLLY HUGS TOM. SHE ISN'T ANGRY.": C│13;▒~Бж 1610;═ИИ Z Бе 900,560,410,1170;сТЗ "THE SCHOOL:"<@ЬЕ C│1 з A$(1)│"THROUGH A WINDOW YOU SEE MR. DOBBINS, THE TEACHER. HE SNOOZES AT HIS DESK."<|жЕ C▓1 з A$(1)│"NO ONE HERE. IS IT SUMMER VACATION YET?"=░Е C│4 з A$(1)│"*** AS PUNISHMENT, TOM IS MADE TO SIT BY THE NEW GIRL, BECKY THATCHER. HE LOVES THIS. BY DAY'S END THEY ARE 'ENGAGED.'": C│5=р║Е C│13 з A$(1)│"*** TOM IS HAPPY TO BE BACK IN HIS REGULAR LIFE. HE AND BECKY HAVE AN ARGUMENT ... LATER, BECKY TEARS THE TEACHER'S ANATOMY BOOK. WHEN TOM TAKES THE BLAME FOR HER, SHE LOVES HIM AGAIN.": C│14=ь─Бж 1610>	╬И Z Бе 1030,1090,340,960>╪З "THE TAVERN:">┼тЕ C│1 з A$(1)│"IT'S ST. PETERSBURG'S MOST DISREPUTABLE PLACE. A SHAKY MUFF POTTER, THE TOWN DRUNK, ASKS FOR A FIVE-CENT PIECE. YOU REFUSE BUT BUY HIM A SASPARILLA"?	ьЕ C▓1 з A$(1)│"JUST THE USUAL GOING ON HERE, AND AT ALL HOURS."?▓ЎЕ C│17 з A$(1)│"*** IN SEARCH OF INJUN JOE'S SILVER TREASURE, TOM AND HUCK INVESTIGATE LOCAL TAVERNS. ONE HAS A LOCKED ROOM TWO. COULD THIS BE THE 'NUMBER TWO'?"лS$@WЕ C│17 з A$(2)│"... LATER, HUCK MAKES A KEY WORK. ENTERING, HE ALMOST STEPS ON A SLEEPING INJUN JOE'S HEAD. NO TREASURE SEEN. HUCK AND TOM RUN AWAY.": G│2: C│18A

Е C│19 з A$(1)│"*** HUCK, WHO HAS NOT GONE TO THE PICNIC, SEES THREE MEN EXIT 'NUMBER TWO' CARRYING A BOX. HE FOLLOWS THEM AND HEARS INJUN JOE THREATEN THE WIDOW DOUGLAS.": C│20AБж 1610A6И Z Бе 410,1530,1320,340AO(З "THE OLD TANNERY:"AВ2Е C┤▓7 з A$(1)│"NO ONE IS HERE AT THE MOMENT."B&<Е C│7 з A$(1)│"*** TOM AND HUCK RUN HERE FROM THE GRAVEYARD. THEY ARE SO FRIGHTENED BY THE MURDER THEY SAW, THEY TAKE A M THE EXPERIENCE, TOM GOES TO PLAY."0:C│Cл1: G│4: Бе 8800Ъ Е C│2 з A$(1)│"AUNT POLLY MARVELS OVER THE NEWLY-PAINTED FENCE AND WONDERS HOW TOM DID IT."0╝*Е C▓2 з A$(1)│"ALL IS QUIET."14Е C│3 ▒ C│12 з A$(1)│"IT'S SUNDAY MORNING. EVERYONE IS GONE SOMEWHERE."1j>Е C│4 ▒ C│13 з A$(1)│"AUNT POLLY DOES HOUSEWORK. WITH SID AND TOM AT SCHOOL, ALL IS PEACEFUL"21HЕ C│22 з A$(1)│"*** TOM AND HUCK ARE REUNITED. HUCK TELLS WHAT HE SAW AT THE TAVERN, BUT TOM SAYS THE TREASURE NEVER WAS IN 'NUMBER TWO' AND PROMISES TO TAKE HUCK TO THE BOOTY. THEY LEAVE": C│232}RЕ C│9 з A$(1)│"IT'S GROWING LATE, AND AUNT POLLY WONDERS WHERE TOM IS."3\Е C│10 з A$(1)│"*** TOM SNEAKS HOME AND HEARS AUNT POLLY, SID AND MARY SPEAK OF HIM AS IF HE WERE DEAD. HE SLIPS AWAY.": C│11: Бе 88038fЕ C│11 з A$(1)│"AUNT POLLY'S GRIEF DEEPENS."3DpБж 16103_zИ Z Бе 680,560,480,9003yДЗ "THE NEIGHBORHOOD:"3эОЕ C│1 з A$(1)│"YOU WALK ALONG A LANE THROUGH A NEIGHBORHOOD. A COMMOTION OF CHILDREN'S VOICES IS HEARD NEARBY."4ШЕ C▓1 з A$(1)│"THE AREA IS EMPTY."4ЄвЕ C│15 з A$(1)│"*** TOM AND HUCK ARE TOWN HEROES FOR BEARING WITNESS AGAINST INJUN JOE. BUT THE BOYS ARE WORRIED JOE WILL COME AFTER THEM. QUICKLY, THEY FORGET THEIR WORRY AND DECIDE TO DIG FOR TREASURE. WHERE?": C│164■мБж 16105╢И Z Бе 680,740,1090,103051└З "AN OLD HOUSE:"5О╩Е C┤▓16 з A$(1)│"HERE IS AN OLD ROTTING HOUSE. SOME SAY IT'S HAUNTED. STRANGE NOISES..."6o╘Е C│16 з A$(1)│"*** TOM AND HUCK ENTER THE HOUSE SEEKING TREASURE BUT HIDE WHEN THEY HEAR NOISES. INJUN JOE AND HIS GANG ARE THERE. THE MEN LEAVE WITH A BOX OF STOLEN SILVER. JOE SAYS THEY'LL HIDE IT IN 'NUMBER TWO'."лS$6╦▐Е C│16 з A$(2)│"THE BOYS PUZZLE OVER THAT AND VOW TO SEARCH FOR THE SILVER.": G│2: C│176╫шБж 16106їЄИ Z Бе 1020,680,1380,102070№A$(1)│"NOTHING INTERESTING THAT WAY": Бж 1610: Бе 10107PЗ "LAWYER THATCHER'S HOME:"7╬Е C│1 з A$(1)│"YOU PASS BY THE THATCHER'S HOUSE, SEEING A PRETTY GIRL ABOUT 10 YEARS OLD. THAT MUST BE HIS NIECE, BECKY."7ЎЕ C▓2 з A$(1)│"NO ONE IN THE AREA."8О$Е C│2 з A$(1)│"*** TOM PLAYS GENERAL FOR A WHILE. THEN HE SEES THE LOVELY BECKY THATCHER IN THE GARDEN OF HER UNCLE'S HOME. HE FALLS IN LOVE.": C│38Ъ.Бж 16108╢8И Z Бе 680,900,1170,9608╩BЗ "THE CHURCH:"9LЕ C│1 з A$(1)│"THE CHOIR IS PRACTICING. YOU LIST"YOU SAUNTER UP THE WOODEN STAIRS OF THE COURTHOUSE. IT'S SATURDAY AND THE BUILDING IS CLOSED."'Х
ЇЕ C▓1 з A$(1)│"NOTHING INTERESTING GOING ON HERE."'з
■Е C┤▓14 з 540(РA$(1)│"*** THE TRIAL OF MUFF POTTER IS HELD. HIS GUILT SEEMS CERTAIN TO THE TOWNSPEOPLE. THEN POTTER'S LAWYER CALLS A SURPRISE WITNESS -- TOM. THE BOY TELLS WHAT HAPPENED IN THE GRAVEYARD. AS INJUN JOE HEARS HIMSELF ACCUSED,"лS$(╨A$(2)│"HE CRASHES THROUGH A WINDOW AND ESCAPES.": G│2: C│15(▄Бж 1610(°&И Z Бе 740,560,1530,410)0З "THE WIDOW DOUGLAS' HOME:")i:Е C│1 з A$(1)│"SHE ISN'T SEEN. IN THE DISTANCE IS HEARD A DOG'S LAZY BARK.")пDЕ C▓1 з A$(1)│"THE WIDOW DOUGLAS SMILES AND WAVES AS YOU PASS BY")╨NЕ C▓5 з A$(1)│"NO ONE HOME."*╡XЕ C│20 з A$(1)│"*** HUCK FOLLOWS INJUN JOE AND HIS GANG TO THE WIDOW'S HOME. THE MEN PLAN TO ROB HER. HUCK RUNS FOR HELP AND ARMED TOWNSMEN HURRY TO THE HOME. JOE AND THE MEN ESCAPE, BUT THE WIDOW IS UNHARMED.": C│21: Бе 610+!bЕ C│22 з A$(1)│"WIDOW DOUGLAS WORRIEDLY ASKS FOR NEWS OF TOM AND BECKY. YOU SADLY REPLY THERE IS NONE."+ZlЕ C│23 з A$(1)│"WIDOW DOUGLAS PREPARES FOR A PARTY.",
vЕ C│24 з A$(1)│"*** A GALA PARTY IS HELD TO CELEBRATE ALL THE GOOD THINGS THAT HAVE HAPPENED. TOM AND HUCK REVEAL THE TREASURE THEY HAVE FOUND. A HAPPY CONCLUSION. -THE END.",АЕ C│24 з K│1,*КБж 1610,9ФЕ C│24 з К,VЮИ Z Бе 740,680,1530,1090,hиЗ "A FOREST:",╙▓Е C┤▓5 з A$(1)│"YOU WANDER INTO A STAND OF TREES. THESE WOODS ARE A LIKELY SITE FOR CHILDREN'S GAMES."-Г╝Е C│5 з A$(1)│"*** TOM AND JOE HARPER PLAY ROBIN HOOD. THEY AGREE THEY WOULD RATHER BE OUTLAWS A YEAR IN SHERWOOD FOREST THAN PRESIDENT OF THE UNITED STATES FOREVER.": C│6-П╞Бж 1610-к╨И Z Бе 730,560,740,960.	┌A$(1)│"THE WOODS LEAD NOWHERE INTERESTING NORTHWARD, SO YOU RETURN.": K│1: Бж 1610: Бе 680.$фЗ "AUNT POLLY'S HOME:".4юЕ C▓1 з 800.╓°A$(1)│"*** YOU HAVE FOUND TOM SAWYER. HE STANDS GLUMLY BEFORE A PEELING FENCE. A BUCKET OF WHITEWASH AND A BRUSH ARE NEARBY. AS YOU WATCH HE TRIES TO PAY"лS$/ОA$(2)│"OTHER CHILDREN TO WORK. THEY REFUSE. THEN HE GETS AN IDEA. HE PRETENDS TO TAKE GREAT PLEASURE FROM THE PAINTING. THIS CAUSES OTHERS TO PAY FOR THE PRIVILEGE OF HELPING."лS$0#A$(3)│"TOM DISCOVERS HE CAN'T BUY HELP BUT HE CAN SELL WORK! THE FENCE IS QUICKLY DAUBED. HAPPY AND RICH FRO,188;M168,192;BM188,188;M188,192;BM208,188;M208,192;BM228,188;M228,192;BM247,188;M247,192"9┤^╞"BM8,186;XT$;XI$;XM$;XE$;XC$;BM84,186;XD$;BM124,186;XH$;BM164,186;XM$;BM203,186;XS$;"9║hР9┘дD$│"BM+1,0U6R2F2D2G2L2BR7"9¤оE$│"BM+5,0L4U6R4BD3BL2L2BD3BR7":"╕H$│"BM+1,0U6BR4D6BL4BU3R4BR3BD3":@┬I$│"BM+5,-6L4R2D6L2R4BR3":c╠M$│"BM+1,0U6R1F2D1U1E2R1D6BR3":И╓S$│"BM+1,-1F1R2E1H4E1R2F1BD5BR3":дрT$│"BM+3,0U6L3R6BR2BD6":╕ъBK$│"BM+1,0BR7":╤ЇN$(1)│"BM+3,-6D6BR5":Ї■N$(2)│"BM+1,-5E1R2F1D1G4R4BR3";&N$(3)│"BM+1,-1F1R2E1U1H1L1R1E1U1H1L2G1BD5BR7";GN$(4)│"BM+1,-6D3R4L1U3D6BR4";qN$(5)│"BM+1,-1F1R2E1U2H1L3U2R4BR3BD6";Я&N$(6)│"BM+1,-3R3F1D1G1L2H1U4E1R2F1BD5BR3";└0N$(7)│"BM+1,-5U1R4D2G3D1BR6";Ў:N$(8)│"BM+2,0H1U1E1R2E1U1H1L2G1D1F1R2F1D1G1L2BR6"<$DN$(9)│"BM+1,-1F1R2E1U4H1L2G1D1F1R3BD3BR3"<JNN$(0)│"BM+2,0H1U4E1R2F1D4G1L2BR6"<tXC$│"BM+3,-4U1R1D1L1BD2D1R1U1L1BD2BR5"<дbB$│"C5;U6R24D1L24D1R24D1L24D1R24D1L24D1R26"<кlР                               ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                BM28,92;M28,94;BM30,91;M30,93"0╝Ц╞"BM30,98;M32,98;M32,100;M30,101;M30,103;M28,102;M28,100;M30,98":├(30,99),6,6:╞"BM32,103;M34,104;M30,106;BM30,108;M34,106;M34,110;M32,110;M32,108;M30,108"1>а╞"BM24,109;M26,110;M24,113;M26,114;M24,119;M20,118;M20,114;M24,109":├(22,115),6,6:╞"BM30,116;M28,116;M26,119;M28,119;M28,116"1Йк╞"BM8,112;M12,115;M16,119;M22,121;M14,120;M8,113;M8,112":├(12,116),6,61ч┤╞"BM34,116;M38,117;M44,121;M46,125;M42,123;M38,123;M36,119;M34,118;M34,116":├(40,120),6,62e╛╞"BM42,126;M44,135;M52,146;M46,158;M40,158;M34,150;M22,153;M18,139;M32,128;M36,128;M36,131;M40,134;M42,126":├(34,129),6,62л╚╞"BM62,153;M66,157;M60,165;M56,163;M62,157;M62,153":├(60,163),6,63S╥╞"BM246,11;M240,15;M234,15;M230,24;M226,23;M216,30;M206,24;M192,39;M192,45;M194,46;M196,46;M196,51;M198,51;M200,44;M200,40;M204,32;M206,33;M204,38;M206,43;M202,53"3·▄╞"M194,53;M192,48;M192,53;M184,61;M186,63;M186,67;M180,67;M180,75;M184,77;M186,75;M190,69;M194,68;M198,73;M196,74;M198,74;M200,73;M198,68;M200,68;M204,74;M210,63"4aц╞"M212,64;M216,63;M216,66;M220,69;M220,71;M216,71;M214,70;M212,70;M208,71;M208,76;M216,76;M214,83"4ьЁ╞"M208,83;M202,81;M200,82;M194,79;M194,78;M190,78;M186,79;M184,79;M184,78;M182,79;M180,80;M174,95;M174,103;M182,112;M190,111;M194,112"5q·╞"M194,117;M196,120;M198,126;M196,131;M196,135;M198,139;M200,152;M206,151;M212,141;M212,136;M216,130;M216,120;M222,106;M216,107"6╞"M210,86;M214,86;M220,103;M226,101;M228,96;M226,94;M224,94;M222,89;M224,89;M230,93;M232,93;M236,95;M240,106;M242,104;M242,100;M246,94;M246,11"6e╞"BM224,75;M224,71;M222,66;M222,64;M226,63;M228,65;M226,66;M226,68;M228,70;M228,75;M224,75"6w├(244,14),6,66─"╞"BM218,141;M218,133;M222,128;M224,131;M222,141;M218,141":├(220,134),6,67V,╞"BM184,45;M186,50;M186,56;M182,56;M182,53;M184,52;M184,50;M182,47;M184,45;M184,48":├(184,55),6,6:╞"BM178,54;M178,50;M180,50;M180,53;M178,54"7╘6╞"BM0,116;M254,116;BM250,23;M254,23;BM250,43;M254,43;BM250,59;M254,59;BM250,71;M254,71;BM250,83;M254,83;BM250,95;M254,95"8`@╞"BM250,105;M254,105;BM250,125;M254,125;BM250,135;M254,135;BM250,147;M254,147;BM250,159;M254,159;BM250,171;M254,171;BM250,187;M254,187"8рJ╞"BM8,188;M8,192;BM28,188;M28,192;BM48,188;M48,192;BM68,188;M68,192;BM88,188;M88,192;BM108,188;M108,192;BM128,188;M128,192"9YT╞"BM148,188;M148,192;BM168'
▐ЕK▓60з1010')шYP│60м(Kм50)н8о5:Бе1050'9ЄЕK▓л70з1030'S№YP│44м(Kм60)н2:Бе1050'bЕK▓л80з410'xYP│24м(Kм70)н12о5'ЙYP│ Б(YPл.5)'▓$ЕL▓90зXP│8л(Lм90)н2о3 :ДXP│188лLн2о3'├.XP│ Б(XPл.5)'═8Бе400'┌LN$│ И(N)'ъVАI│1е З(N$)'№`K$│ Р(N$,I,1)(tЕK$│" "з╞"XBK$;":Бе1160(0~N│ Й(K$):╞"XN$(N);"(8ИЛ:Р(C░┴0,5:╝(н║╞"BM82,20;M78,25;M80,31;M76,31;M76,34;M80,34;M80,36;M78,40;M80,45;M82,46;M80,49;M76,52;M80,51;M84,47")─╞"M88,41;M100,45;M108,60;M108,75;M112,90;M112,80;M118,93;M118,96;M126,99;M132,105;M136,106;M132,103;M130,99")Н╬╞"M130,96;M126,96;M122,92;M122,87;M124,84;M132,84;M134,89;M134,83;M136,77;M136,73;M144,65;M146,65;M146,67")№╪╞"M148,64;M144,64;M140,59;M148,59;M150,56;M142,44;M142,46;M138,46;M138,41;M134,40;M132,59;M130,55;M124,48"*Yт╞"M124,40;M132,31;M132,26;M130,28;M124,20;M124,28;M114,25;M108,27;M102,27;M98,24;M82,20"*jь├(84,22),6,6+Ў╞"BM136,106;M136,112;M134,115;M132,120;M136,131;M140,134;M140,139;M136,155;M136,170;M138,175;M144,177;M144,176;M142,173;M142,168;M144,159;M148,158"+г╞"M156,144;M156,141;M158,138;M160,138;M162,134;M164,125;M166,123;M166,121;M158,116;M158,112;M154,111;M150,107;M146,107;M142,105;M136,106;BM148,173;M150,174"+╢
├(142,106),6,6+ц╞"BM132,93;M134,93;M140,95;M136,95;M132,93",D╞"BM104,21;M106,16;M112,17;M114,16;M114,20;M118,21;M116,23;M110,23;M104,21":├(108,18),6,6,╥(╞"BM128,12;M134,12;M142,22;M142,27;M144,31;M142,41;M136,37;M134,37;M134,35;M138,35;M138,26;M134,23;M130,23;M128,17;M128,12":├(130,13),6,6-2╞"BM150,62;M152,56;M152,58;M154,58;M154,62;M150,62":├(152,61),6,6-Й<╞"BM144,0;M144,2;M140,4;M142,12;M148,12;M152,23;M152,32;M156,42;M158,43;M162,34;M172,26;M174,0":├(146,0),6,6-╫F╞"BM172,34;M178,32;M180,34;M176,37;M174,37;M172,36;M172,34":├(176,35),6,6.P╞"BM78,94;M82,96;M82,97;M78,95;M78,94".ЕZ╞"BM8,11;M14,10;M18,7;M22,9;M22,14;M34,15;M36,23;M40,22;M42,18;M54,20;M54,23;M64,23;M72,31;M70,34;M66,31;M64,34;M66,37;M60,43"/d╞"M58,43;M54,45;M54,51;M52,55;M50,51;M50,49;M52,44;M52,42;M50,42;M48,45;M40,44;M36,52;M40,53;M40,59;M36,66;M34,66;M32,72;M34,77;M32,78;M30,72;M26,73"/Хn╞"M28,82;M28,88;M22,95;M18,95;M18,97;M20,102;M20,105;M18,106;M14,104;M14,108;M16,115;M14,113;M10,99;M8,101;M8,11"/▓x├(18,8),6,6:├(52,50),6,6/°В╞"BM36,80;M36,78;M40,72;M42,65;M44,66;M42,73;M36,80":├(40,74),6,60М╞" л
В * SAT-TRK *%В RD POE 6/837╚4,1:└4:Х25:Юf(З@103,"SATELLITE TRACKER":З@135, б(17,"*")Е2Бж1700:Бж1200:PI│3.1415926Ы<З@199,"COMMANDS:"╡AЗ@264,"T - NEW TRACK"╨FЗ@296,"F - TRACK FAST"эKЗ@328,"N - TRACK NORMAL"PЗ@360,"C - CLEAR MAP"$UЗ@392,"R - RE-RUN PROG."4ZЕ Т┤▓"T"з90JdЮ:З" TRACK FROM:"{nЙ" 1. LAUNCH  2. IN ORBIT ";C:З:ИC Бе140,170ЕВБе100┴МЗ" LAUNCH FROM CAPE CANAVERAL":KI│28.5:LI│м80.7:NS$│"S"╦аБе230цкЗ" ENTER INITIAL DATA" ┤З" INIT. LAT. (DEG,MIN,N/S)":Й" ";KD,KM,NS$ F╛З" INIT. LNG. (DEG,MIN,E/W)":Й" ";LD,LM,EW$ h╚KI│KDлKMо60:Е NS$│"S"з KI│мKI К╥LI│LDлLMо60:Е EW$│"W"з LI│мLI м▄Й" INIT. MOVEMENT (N/S):";NS$ ╠цЙ" ORBIT ALTITUDE (KM):";AL ьЁЙ" ORBIT INCLIN. (DEG):";IN °·T│KIоIN!

ЕT│1зAS│90:Бе290!$
ЕT│м1зAS│м90:Бе290!C
AS│ Ф(Tо Ы(мTнTл1))н180оPI!Y
"ЕNS$│"N"зLO│LIмAS!s
,ЕNS$│"S"зLO│LIлASм180!Й
6LL│LO:Бж800:LO│LL!Ш
@A│AL:Бж830!╛
JЕC│1зVE│2.105н Х(INнPIо180):VS│VE!┌
TЗ" INIT. CLOCK (D,H,M)"!ы
^Й" ";D,H,M:З"
hCL│1440нDл60нHлM"
rK│KI:L│LI:LS│LI:T│0"H
|Й" HIT <ENTER> TO START TRACK";W:┐1,1:Бе900"p
РЕ а(XP,YP)│0з╜(XP,YP,5):Д╜(XP,YP,0)"}
ЪM│ В(CL)"Н
дЕCL┤0зM│Mм1"й
оD│ Б(Mо1440):M│MмDн1440"┴
╕H│ Б(Mо60):M│MмHн60"╫
┬╞"BM136,186;XB$;""ў
╠╞"C0;BM136,186;":N│M:Бж1100#
╓ЕM│0▒M│59з╞"BM96,186;XB$;"#5
р╞"C0;BM96,186;":N│H:Бж1100#a
ъЕ(H│0░M│0)▒(H│23░M│59)з╞"BM56,186;XB$;"#А
Ї╞"C0;BM56,186;":N│D:Бж1100#У
■ЕC│2▒T▓120з550#йЕT│9з A│150:Бж830#╞ЕT│53зA│(ALл185)о2:Бж830#фЕT│ Б(53лPSо2)зA│AL:Бж830#№&ЕF│1зЕCL┤0з630:Д580$0ЕCL┤0зАS│59е1йм1:Бж700:Л:Бе620$3:АS│1е59:Бж700:Л$=DT│Tл1$XNL│LлVE:LL│L:Бж800:L│LL$wXLS│LSлVS:LL│LS:Бж800:LS│LL$УbK│INн Е((LSмLO)нPIо180)$йl╞"BM176,186;XB$;"%vK$│ Т:ЕK$│"N"зF│0:ДЕK$│"C"зБж1200:ДЕK$│"T"з╞"BM56,186;XB$;BM96,186;XB$;":Бе100:ДЕK$│"R"з30%АCL│CLл1:Бе900%&╝В TIMER%<╞╞"BM176,186;XB$;"%Q╨╞"C0;BM176,186;"%`┌N│S:Бж1100%vфЕS┤10з АI│1е456:Л%МюЕS▓9 з АI│1е418:Л%л°Е Т│"F"зF│1:ЕCL┤0з620:Д580%▒Р%╬ ЕLL┤м180зLL│LLл360:Бе800%ъ*ЕLL▓180зLL│LLм360:Бе810%Ё4Р&(>PS│1436н((Aл6371)о42156)п(3о2):PE│1436нPSо(1436мPS)&@HVS│360оPS:VE│360оPE&FRР&UДЕK┤м54з410&dОЕK▓м50з930&БШYP│188м(Kл60)н8о5:Бе1050&РвЕK▓м20з950&нмYP│172м(Kл50)н6о5:Бе1050&╗╢ЕK▓20з970&╘└YP│136м(Kл20):Бе1050&т╩ЕK▓50з990&■╘YP│96м(Kм20)н6о5:Бе1050 -єFdВ * WHERE'S TOM? * TRS-80 EXTENDED COLOR BASIC * RICHARD RAMELLAunВ * EXPLORING "TOM SAWYER" BY MARK TWAIN *ПxЮ: ╚ 0: └ 1: Х 512: Ю╠ВN$(1)│"HANNIBAL": N$(2)│"ST. PETERSBURG": N$(3)│"QUINCY"тМЗ "TOM SAWYER": ЗЦЙ "START CHAPTER: 1 TO 24";C.аC│ Б(C): Е C┤1 ▒ C▓24 з Ю: Бе 140 :Д ЮWкST$│ б(32,42): ZZ$│"NWSE": S$│ Л(32)┘┤A$(1)│"YOU'RE A LITERARY TIME TRAVELER RIDING A STERNWHEELER DOWN THE MISSISSIPPI RIVER IN SEARCH OF A BOY NAMED TOM SAWYER." T╛A$(2)│S$л"THREE TOWNS ARE COMING UP. YOU WILL MAKE SHORE AT ONE. TO DO SO, PRESS ANY KEY WHEN YOU SEE THE RIGHT TOWN." m╚G│2: K│1: Бж 1610: Ю {╥А X│1 е 3 О▄З @ 236,N$(X); ЮцА T│1 е 500 ╖ЁЕ  Т┤▓"" з Ю: Бе 290 ┐·Л T ┼
Ю ═
Л X!R
A$(1)│"YOU KEEP RIDING ON DOWN TO NEW ORLEANS. IT'S AN INTERESTNG TOWN, BUT TOM SAWYER'S NOT THERE. --THE END.": K│1: Бж 1610: К!■
"Е X│1 з A$(1)│"A FAMOUS TOWN. MARK TWAIN, WHOSE REAL NAME WAS SAMUEL LANGHORNE CLEMENS, LIVED THERE WHEN HE WAS A BOY. BUT TOM SAWYER NEVER DID. -THE END.": Бж 1610: К"[
,Е X│3 з A$(1)│"YOU GOT OFF IN ILLINOIS. YOU WANTED MISSOURI. -THE END.": K│1: Бж 1610: К"С
6A$(1)│"ST. PETERSBURG! TOM SAWYER LIVES HERE."лS$#g
@A$(2)│"YOU STAND AT THE FOOT OF MAIN STREET IN A MISSOURI HAMLET. THE YEAR IS 1845. NEARBY IS THE TOWN SQUARE. TO THE EAST IS THE MISSISSIPPI RIVER AND THE GREEN BLUFFS OF ILLINOIS SHIMMERING IN MID-DAY HEAT."#╚
JA$(3)│S$л"IN THE DISTANCE ARE PRIM CLAPBOARD HOMES AND BEYOND IS COUNTRYSIDE.": G│3: Бж 1610#у
TЗ "THE RIVER LANDING:"$%
^Е C│1 з A$(1)│"YOU ARE AT THE MAIN LANDING FOR RIVER TRAFFIC"$q
hЕ C▓1 з A$(1)│"YOU STAND AT THE RIVER LANDING. NOTHING MUCH HAPPENING."$╨
rЕ C│18 з A$(1)│"*** EVERYONE BOARDS SMALL BOATS FOR THE PICNIC ON JACKSON'S ISLAND.": C│19$▄
|Бж 1610$∙
ЖИ Z Бе 1170,410,1320,400%o
РA$(1)│"YOU LEAP FULLY CLOTHED INTO THE MISSISSIPPI RIVER. STRANGE BEHAVIOR! YOU CRAWL OUT.": K│1: Бж 1610: Бе 340%И
ЪЗ "THE TOWN SQUARE:"%ш
дЕ C│1 з A$(1)│"THE CENTER OF COMMERCE OF THIS THRIVING METROPOLIS. NO ONE ELSE IS PRESENT."& 
оЕ C▓1 з A$(1)│"AN UNEVENTFUL MOMENT IN CIVIC LIFE."&v
╕Е C▓17 з A$(1)│"THREE MYSTERIOUS CHARACTERS HEAD FOR 'NUMBER TWO' AT THE TAVERN."&л
┬Е C▓20 з A$(1)│"EVERYONE SEEMS TO BE ELSEWHERE."&╖
╠Бж 1610&╘
╓И Z Бе 1090,480,1240,340&ь
рЗ "THE COURTHOUSE:"'^
ъЕ C│1 з A$(1)│                                                                                                                                                                                                                                                                                    ├┴╞┴─┼$%╟'┬╞╔+┴-./╞                    TITLE   BAS"<WORLDMAPBAS#ЯSAT-TRK BAS оTOM     BAS!ЎPEGS    BAS&iDMP-200 BAS(БBARREL  BAS)│MAZE    BAS*EASYTYPEBAS,UOVERLAY BASбRENUM   BASSEARCH  BAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 9
Х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З@329,"  APRIL 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!H╚Ю:Т113,0:в40999!▒╥Ж 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"8ЁЖ 00Ї їБ ї ¤  Ў
 Ї ў  °
┐Є ї ·D є ■ ї
┐°!С
 ·@ Ї №ўт
ўї Є √ ▒ ∙
 Є № Є
 ї
 ╥ їўї № Ў  
 ї ·
ўё
 ё
 ЄўЎ ўє Ї ї
 Є ў є єўЄ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Ь
В * WORLD MAP/PLOT *3В R.D.POE    6/23/83C╚3,1:└4:╝:ЮX(З@137, б(13,"*")n2З@203,"WORLD MAP"Г<З@265, б(13,"*")бFБж 600  :ГDRAW MAP UNSEEN┬PЗ@357,"PRESS <M> TO SEE MAP"цZЗ@389,"PRESS <P> TO PLOT POINT"	_З@421,"PRESS <C> TO CLEAN MAP" dK$│ Т:Е K$│"" з1004iЕ K$│"M" з ┐1,1GnЕ K$│"P" з 125\sЕ K$│"C" з Бж600gxБе 100o}Ю:ЗТВЗ" TO PLOT POSITION, ENTER:":З╡МЗ" LATITUDE, IN DEG, MIN, N/S"╩ЦЙ" ";KD,KM,NS$:ЗюаЗ" LONGITUDE, IN DEG, MIN, E/W" 
кЙ" ";LD,LM,EW$ ┤В CONVERT LAT/LONG +╛K │ KD л KMо60 @╚Е NS$│"S" з K│мK S╥L │ LD л LMо60 h▄Е EW$│"W" з L│мL АцБж 300: :ГFOR XP,YP ЭЁВ PLOT POINT WITH CIRCLE з·┐ 1,1 ╣
А I│1 е 200:Л ╩
┬(XP,YP),8,8 ╘
Бе100 █
":Г ў
,В DETERMINE COORDINATES!	
6Е K┤м54 з 500!
@Е K▓м50 з 340!7
JYP│188м(Kл60)н8о5:Бе460!I
TЕ K▓м20 з 360!e
^YP│172м(Kл50)н6о5:Бе460!w
hЕ K▓л20 з 380!П
rYP│136м(Kл20):Бе460!б
|Е K▓л50 з 400!╝
ЖYP│96м(Kм20)н6о5:Бе460!╬
РЕ K▓л60 з 420!щ
ЪYP│60м(Kм50)н8о5:Бе460!√
дЕ K▓л70 з 440"
оYP│44м(Kм60)н2:Бе460"&
╕Е K▓л80 з 500"<
┬YP│24м(Kм70)н12о5"M
╠YP│ Б(YPл.5)"}
╓Е L▓90 з XP│8 л(Lм90)н2о3 :Д XP│188 л Lн2о3"О
рXP│ Б(XPл.5)"Ф
ъР"й
ЇВ  OUT OF BOUNDS"п
■З"╘Е K▓0 з З" LATITUDE IS TOO HIGH""°Е K┤0 з З" LATITUDE IS TOO LOW"#З" TO PLOT ON THIS MAP."#&З#=0З" ENTER NEW COMMAND (M,P,C)"#G:Бе100#ND:Г#gXВ  *** WORLD MAP ***#АbВ  RD POE, RVSD 6/83#Лl┴6,7:╝#Яv:ГNORTH AMERICA$	А╞"BM82,20;M78,25;M80,31;M76,31;M76,34;M80,34;M80,36;M78,40;M80,45;M82,46;M80,49;M76,52;M80,51;M84,47"$zК╞"M88,41;M100,45;M108,60;M108,75;M112,90;M112,80;M118,93;M118,96;M126,99;M132,105;M136,106;M132,103;M130,99"$щФ╞"M130,96;M126,96;M122,92;M122,87;M124,84;M132,84;M134,89;M134,83;M136,77;M136,73;M144,65;M146,65;M146,67"%XЮ╞"M148,64;M144,64;M140,59;M148,59;M150,56;M142,44;M142,46;M138,46;M138,41;M134,40;M132,59;M130,55;M124,48"%╡и╞"M124,40;M132,31;M132,26;M130,28;M124,20;M124,28;M114,25;M108,27;M102,27;M98,24;M82,20"%╞▓├(84,22),6,6%┌╝:ГSOUTH AMERICA&r╞╞"BM136,106;M136,112;M134,115;M132,120;M136,131;M140,134;M140,139;M136,155;M136,170;M138,175;M144,177;M144,176;M142,173;M142,168;M144,159;M148,158"'╨╞"M156,144;M156,141;M158,138;M160,138;M162,134;M164,125;M166,123;M166,121;M158,116;M158,112;M154,111;M150,107;M146,107;M142,105;M136,106;BM148,173;M150,174"'&┌├(142,106),6,6']ф╞"BM132,93;M134,93;M140,95;M136,95;M132,93" :ГCUBA'╬ю╞"BM104,21;M106,16;M112,17;M114,16;M114,20;M118,21;M116,23;M110,23;M104,21":├(108,18),6,6  :ГVICTORIA ISLAND(i°╞"BM128,12;M134,12;M142,22;M142,27;M144,31;M142,41;M136,37;M134,37;M134,35;M138,35;M138,26;M134,23;M130,23;M128,17;M128,12":├(130,13),6,6 :ГBAFFIN IS.(╛╞"BM150,62;M152,56;M152,58;M154,58;M154,62;M150,62":├(152,61),6,6 :ГNEWFOUNDLAND);╞"BM144,0;M144,2;M140,4;M142,12;M148,12;M152,23;M152,32;M156,42;M158,43;M162,34;M172,26;M174,0":├(146,0),6,6 :ГGREENLAND)У╞"BM172,34;M178,32;M180,34;M176,37;M174,37;M172,36;M172,34":├(176,35),6,6 :ГICELAND)╟ ╞"BM78,94;M82,96;M82,97;M78,95;M78,94" :ГHAWAII)╫*:ГEAST ASIA*Z4╞"BM8,11;M14,10;M18,7;M22,9;M22,14;M34,15;M36,23;M40,22;M42,18;M54,20;M54,23;M64,23;M72,31;M70,34;M66,31;M64,34;M66,37;M60,43"*Ї>╞"M58,43;M54,45;M54,51;M52,55;M50,51;M50,49;M52,44;M52,42;M50,42;M48,45;M40,44;M36,52;M40,53;M40,59;M36,66;M34,66;M32,72;M34,77;M32,78;M30,72;M26,73"+jH╞"M28,82;M28,88;M22,95;M18,95;M18,97;M20,102;M20,105;M18,106;M14,104;M14,108;M16,115;M14,113;M10,99;M8,101;M8,11"+ЗR├(18,8),6,6:├(52,50),6,6+╒\╞"BM36,80;M36,78;M40,72;M42,65;M44,66;M42,73;M36,80":├(40,74),6,6 :ГJAPAN,f╞"BM28,92;M28,94;BM30,91;M30,93":ГTAIWAN,╡p╞"BM30,98;M32,98;M32,100;M30,101;M30,103;M28,102;M28,100;M30,98":├(30,99),6,6:╞"BM32,103;M34,104;M30,106;BM30,108;M34,106;M34,110;M32,110;M32,108;M30,108":ГPHILLIPINE ISLANDS-Gz╞"BM24,109;M26,110;M24,113;M26,114;M24,119;M20,118;M20,114;M24,109":├(22,115),6,6:╞"BM30,116;M28,116;M26,119;M28,119;M28,116":ГBORNEO-CELEBES-бД╞"BM8,112;M12,115;M16,119;M22,121;M14,120;M8,113;M8,112":├(12,116),6,6 :ГSUMATRA-JAVA.О╞"BM34,116;M38,117;M44,121;M46,125;M42,123;M38,123;M36,119;M34,118;M34,116":├(40,120),6,6 :ГNEW GUINEA.ЦШ╞"BM42,126;M44,135;M52,146;M46,158;M40,158;M34,150;M22,153;M18,139;M32,128;M36,128;M36,131;M40,134;M42,126":├(34,129),6,6 :ГAUSTRALIA.ъв╞"BM62,153;M66,157;M60,165;M56,163;M62,157;M62,153":├(60,163),6,6 :ГNEW ZEALAND/м:ГWESTERN ASIA-EUROPE/┴╢╞"BM246,11;M240,15;M234,15;M230,24;M226,23;M216,30;M206,24;M192,39;M192,45;M194,46;M196,46;M196,51;M198,51;M200,44;M200,40;M204,32;M206,33;M204,38;M206,43;M202,53" :ГRUSSIA-SCANDINAVIA0q└╞"M194,53;M192,48;M192,53;M184,61;M186,63;M186,67;M180,67;M180,75;M184,77;M186,75;M190,69;M194,68;M198,73;M196,74;M198,74;M200,73;M198,68;M200,68;M204,74;M210,63" :ГEUROPE0ю╩╞"M212,64;M216,63;M216,66;M220,69;M220,71;M216,71;M214,70;M212,70;M208,71;M208,76;M216,76;M214,83" :ГBLACK SEA-PALESTINE1И╘╞"M208,83;M202,81;M200,82;M194,79;M194,78;M190,78;M186,79;M184,79;M184,78;M182,79;M180,80;M174,95;M174,103;M182,112;M190,111;M194,112" :ГNORTH AFRICA2▐╞"M194,117;M196,120;M198,126;M196,131;M196,135;M198,139;M200,152;M206,151;M212,141;M212,136;M216,130;M216,120;M222,106;M216,107" :ГSOUTH AFRICA2┴ш╞"M210,86;M214,86;M220,103;M226,101;M228,96;M226,94;M224,94;M222,89;M224,89;M230,93;M232,93;M236,95;M240,106;M242,104;M242,100;M246,94;M246,11" :ГRED SEA--INDIA3/Є╞"BM224,75;M224,71;M222,66;M222,64;M226,63;M228,65;M226,66;M226,68;M228,70;M228,75;M224,75" :ГCASPIAN SEA3L№├(244,14),6,6 :ГASIA,ETC3ж╞"BM218,141;M218,133;M222,128;M224,131;M222,141;M218,141":├(220,134),6,6 :ГMADAGASCAR4E╞"BM184,45;M186,50;M186,56;M182,56;M182,53;M184,52;M184,50;M182,47;M184,45;M184,48":├(184,55),6,6:╞"BM178,54;M178,50;M180,50;M180,53;M178,54":ГBRITISH IS.4b:ГEQUATOR AND LAT. MARKS4р$╞"BM0,116;M254,116;BM250,23;M254,23;BM250,43;M254,43;BM250,59;M254,59;BM250,71;M254,71;BM250,83;M254,83;BM250,95;M254,95"5l.╞"BM250,105;M254,105;BM250,125;M254,125;BM250,135;M254,135;BM250,147;M254,147;BM250,159;M254,159;BM250,171;M254,171;BM250,187;M254,187"5М8:ГGREENWICH AND LONG. MARKS6B╞"BM188,0;M188,187;BM8,184;M8,187;BM28,184;M28,187;BM48,184;M48,187;BM68,184;M68,187;BM88,184;M88,187;BM108,184;M108,187;BM128,184;M128,187"6ГL╞"BM148,184;M148,187;BM168,184;M168,187;BM208,184;M208,187;BM228,184;M228,187;BM247,184;M247,187"6ХVА I│1 е 500:Л6Ы`Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
f<dВ * VICTORIAN PEGS * TRS-80 EXTENDED COLOR BASIC 16K *░nЖ 70,30,45,55,95,55,20,80,70,80,45,105,95,105,70,130,170,30,145,55,195,55,170,80,220,80,145,105,195,105,170,130юxТ 65495,0: Ю: ╚ 3,1: ╝1: ┐ 2,1: Х 250: М Z(32): Q$│ Л(32)ВА X│1 е 32: Н Z(X): Q│QлZ(X): Л XJМЕ Q┤▓3200 з З "DATA ENTRY MISTAKE IN LINE 110": К|ЦK$(1)│ б(7,"E"): K$(7)│K$(1): K$(2)│"EXXXEEE"╗аK$(3)│K$(2): K$(4)│"EXX"лQ$л"OOE": :Г O IS LETTER O IN OOEЇкK$(5)│"EEEOOOE": K$(6)│K$(5): X│0: А Y│90 е 165 й 25 ┤╗(X,Y)м(Xл75,Yм75),╜: X│Xл25: Л Y ]╛X│0: А Y│90 е 165 й 25: ╗(Xл100,Y)м(Xл175,Yм75),╜: X│Xл25: Л Y Ы╚X│0: А Y│90 е 15 й м25: ╗(X,Y)м(Xл75,Yл75),╜: X│Xл25: Л Y г╥X│0 ц▄X│0: А Y│90 е 15 й м25: ╗(Xл100,Y)м(Xл175,Yл75),╜: X│Xл25: Л Y!цА D│1 е 28 й 3: ┴ 3,1: ╗(0,90лD)м(74,165лD),╜!LЁ┴ 2,1: ╗ м(125,117лD),╜: ┴ 3,1: ╗м(175,165лD),╜!l·┴ 2,1: ╗ м(250,90лD),╜: Л D!Е
Y│30: А X│1 е 15 й 2!а
А A│Z(Xл1) е Z(Xл1)л25!╦
╗(Z(X),A)м(Z(X)л7,Aм7),╜: Л A,X: ┴ 4,1!▀
"А X│17 е 31 й 2!·
,А A│Z(Xл1) е Z(Xл1)л25"
6╗(Z(X),A)м(Z(X)л7,Aм7),╜: Л A,X"8
@M│4: N│4: X│120: Y│80"\
JL$│ Т: Е L$│"J" з Бж 410: L$│"""О
TЕ L$┤▓"A" ░ L$┤▓"Z" ░ L$┤▓"S" ░ L$┤▓"X" з 330#
^Е L$│"X" ░  Р(K$(Mм1),N,1)┤▓"E" з X1│Xм25: Y1│Yм25:  Р(K$(M),N,1)│ Р(K$(Mм1),N,1): M│Mм1:  Р(K$(M),N,1)│Q$: Бж 480#|
hЕ L$│"Z" ░  Р(K$(M),Nл1,1)┤▓"E" з X1│Xл25: Y1│Yм25:  Р(K$(M),N,1)│ Р(K$(M),Nл1,1): N│Nл1:  Р(K$(M),N,1)│Q$: Бж 480#є
rЕ L$│"A" ░  Р(K$(Mл1),N,1)┤▓"E" з X1│Xл25: Y1│Yл25:  Р(K$(M),N,1)│ Р(K$(Mл1),N,1): M│Mл1:  Р(K$(M),N,1)│Q$: Бж 480$j
|Е L$│"S" ░  Р(K$(M),Nм1,1)┤▓"E" з X1│Xм25: Y1│Yл25:  Р(K$(M),N,1)│ Р(K$(M),Nм1,1): N│Nм1:  Р(K$(M),N,1)│Q$: Бж 480$u
ЖБж 530$А
РБе 330$Ш
ЪL$│ Т: Е L$│"J" з Р$╩
дЕ L$┤▓"A" ░ L$┤▓"Z" ░ L$┤▓"S" ░ L$┤▓"X" з 410%S
оЕ M┤4 з 440 :Д Е L$│"X" ░  Р(K$(Mм2),N,1)┤▓"E" з X1│Xм50: Y1│Yм50:  Р(K$(M),N,1)│ Р(K$(Mм2),N,1): M│Mм2:  Р(K$(M),N,1)│Q$: Бж 480: Р%▄
╕Е N▓5 з 450 :Д Е L$│"Z" ░  Р(K$(M),Nл2,1)┤▓"E" з X1│Xл50: Y1│Yм50:  Р(K$(M),N,1)│ Р(K$(M),Nл2,1): N│Nл2:  Р(K$(M),N,1)│Q$: Бж 480: Р&f
┬Е M▓4 Бе 460 :Д Е L$│"A" ░  Р(K$(Mл2),N,1)┤▓"E" з X1│Xл50: Y1│Yл50:  Р(K$(M),N,1)│ Р(K$(Mл2),N,1): M│Mл2:  Р(K$(M),N,1)│Q$: Бж 480: Р&я
╠Е N┤3 з 470 :Д Е L$│"S" ░  Р(K$(M),Nм2,1)┤▓"E" з X1│Xм50: Y1│Yл50:  Р(K$(M),N,1)│ Р(K$(M),Nм2,1): N│Nм2:  Р(K$(M),N,1)│Q$: Бж 480: Р&·
╓Бе 410'
рH│ а(X1,Y1): А V│0 е 25: ┴ H,1'?
ъ╗(X,YлV)м(Xл7,YлVм7),╜: ┴ 1,H'Г
Ї╗(X1,Y1лV)м(X1л7,Y1лVм7),╜: Л V: X│X1: Y│Y1: ZZ│ZZл1: ╜(ZZ,0,3)'к
■Е ZZо5│ Б(ZZо5) з ╗(ZZ,0)м(ZZ,5),╛'░Р'▌А Q│1 е 15 й 2: Е  а(Z(Q),Z(Qл1))┤▓8 з Р'хЛ Q'ў&а  Д(13)н13,1( 0Е  Т│"" з 550 :Д З "WINNER"ZZ"MOVES"(T:Е ZZ▓46 з З: З "IT CAN BE DONE IN FEWER MOVES."(eDТ 65494,0: К AS INJUN JOE HEARS HIMSELF ACCUSED,"лS$(╨A$(2)│"HE CRASHES THROUGH A WINDOW AND ESCAPES.": G│2: C│15(▄Бж 1610(°&И Z Бе 740,560,1530,410)0З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ~)FЮ:З"     DMP-200 PRINTER DRIVER": ЗЛPTEST$│"AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz123456789!#$%&'()=-@_[];:+*,./<>?"╧ZЗ"DO YOU WANT dATA PROCESSING MODE OR THE wORD PROCESSING MODE?цdA$│ Т: Е A$│""з100ўnЕ A$│"D"з350xЕ A$│"W"з360ВБе100YМЗ: З"  sTANDARD, cORRESPONDENCE, OR      pROPORTIONAL FONT STYLE?"qЦB$│ Т: Е B$│"" з150ВаЕ B$│"S"з370УкЕ B$│"C"з380д┤Е B$│"P"з390о╛Бе150  ╚З: З"SELECT PITCH WIDTH:": З"  1: NORMAL (10 CPI)": З"  2: COMPRESSED (12 CPI)": З"  3: CONDENSED (16.7 CPI)" 7╥C$│ Т: Е C$│""з210 H▄Е C$│"1"з400 YцЕ C$│"2"з410 jЁЕ C$│"3"з420 t·Бе210 Ш
З:З@486,"HIT ANY KEY TO GO ON"; о
X$│ Т:Е X$│""з270 ┼
Ю:З"READY PRINTER" у
"З"REQUEST TEST FUNCTION?" ∙
,D$│ Т:Е D$│""з300!

6Е D$│"Y"з Бе430!
@Е D$│"N"з340!(
JБе300!.
TК!g
^З#м2, Л(19):З" >DATA PROCESSING MODE SELECTED":Бе140!а
hЗ#м2, Л(20):З" >WORD PROCESSING MODE SELECTED":Бе140!╫
rЗ#м2, Л(27); Л(19):З" >NORMAL FONT SELECTED":Бе200"
|З#м2, Л(27); Л(18):З" >CORRESSESPONDENCE FONT SELECTED":Бе260"V
ЖЗ#м2, Л(27); Л(17):З" >PROPORTIONAL FONT SELECTED":Бе260"И
РЗ#м2, Л(27); Л(19):З" >NORMAL 10 PITCH":Бе260"╛
ЪЗ#м2, Л(27); Л(23):З" >COMPRESSED 12 PITCH":Бе260"ї
дЗ#м2, Л(27); Л(20):З" >CONDENSED 16.7 PITCH":Бе260#/
оЗ#м2, TEST$:З#м2,"SELECTED OPTIONS ARE: "A$","B$","C$#F
╕З"CHANGE OPTIONS?"#\
┬E$│ Т:Е E$│""з450#l
╠Е E$│"Y"з70#}
╓Е E$│"N"з340rЕ L$│"A" ░  Р(K$(Mл1),N,1)┤▓"E" з X1│Xл25: Y1│Yл25:  Р(K$(M),N,1)│ Р(K$(Mл1),N,1): M│Mл1:  Р(K$(M),N,1)│Q$: Бж 480$j
|Е L$│"S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░
:Г  BARREL RUN4:Г  (C) 1984 BY ALAN BLOUNT;:ГHТ65495,0ДX│ Д(м Я):Ю0:A$│ Л(207):З@234,"alro presents";:Т1262,32АT│1е14:A$│A$л Л(128):Л:A$│A$л Л(207):АX│1е16:B$│B$л Л(207):Л:АX│1е16:C$│C$л Л(204):Л:АT│1е6:D$│D$л Л(128):Л:E$│ Л(128)л"PRESS ANY KEY":АT│1е1400:ЛlЮ0:АT│0е480й32:З@T,A$;:Л:З@16,B$;:З@48,C$;:З@19,"barrel run";:Т1049,32:Бе19│З@113,"SCORE-----";S:З@145,"HI SCORE--";HS:X│15:Y│31:A│X:B│Y:SL│18р	Е Ж(343)│247░ С(Xм1,Yм1)┤▓4зX│Xм1:Т343,0 

Е Ж(344)│247░ С(Xл1,Yм1)┤▓4зX│Xл1:Т344,0 8Э(A,B):Y│Yм1:ЕY│0зY│31:ЕSL▓.1зSL│SLм.1 [Ь(X,Y,4):A│X:B│Y:Е С(X,Yм1)з18 Л
Е С(Xл1,Y)│4зЭ(Xл1,Y):а200,1:S│Sл1:З@123,S; ╗Е С(Xм1,Y)│4зЭ(Xм1,Y):а200,1:S│Sл1:З@123,S; ЇA1│ Д(SL)м1:ЕA1│0зA2│ Д(28)л1:A3│ Д(30)л1:Ь(A2,A3,4)!
ЕS▓HS зHS│S:З@155,HS!Бе9!@З@245,"crunch";:АT│1е10:а Д(2)л240,1:Л!TЗ@497,E$;:I$│ Т!hI$│ Т:ЕI$│""з20!мАZ│0е480й32:З@Z,A$;:Л:S│0:З@245,D$;:З@497,"BY ALAN BLOUNT";:Бе8S│Sл1:З@123,S;(єA1│ Д(SL):ЕA1│1зA2│ Д(28)л1:A3│ Д(30)л1:Ь(A2,A3,4))ЕS▓HS з                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               $(M),N,1)│ Р(K$(M),Nм2,1): N│Nм2:  Р(K$(M),N,1)│Q$: Бж 480: Р&·
╓Бе 410'
р 	
╚4,1:┴ 0,5:╝М B(301)4Ю:З:З:Зд5)"MAZE"I(З:З"MAKE CHOICE"b2З:З"PLAY .........1"v<З:З"CREATE NEW"НFЗ"   MAZE ......2"ХPЙ AоZИ A Бе 100,450:Бе 30█dЪ#м1:Ю:З"INSERT TAPE AND PUT IT ON PLAY"ёnA$│ Т:Е A$│""з110xЮ:З"LOADING":Щ"I",#м1,"MAZE-1"$ВА A│0 е 2993МЙ #м1,B(A)9ЦЛMаЙ #м1,S1:Й#м1,EVкЪ#м1t┤DR$│"NE3NF3NG3NH3":╝:S│S1Й╛Ю:З:З:Зд5)"MAZE"╝╚З:З д5)"PUSH ARROWS TO SELECT":Зд5)"DIRECTION"╥╥A$│ Т:Е A$│""з210█▄┐1,1ъцC1│E:Бж880√Ё┬(Xл6,Yл6),4 · C1│S:Бж880 
╞ DR$ $
Е S│E з360 :
A$│ Т:Е A$│""з280 s
"Е A$│ Л(94)з C3│м20:Бж840:Е D(1)│0з ╞"BU6L6R12":Д340 л
,Е A$│ Л(10)з C3│20:Бж840:Е D(2)│0з ╞"BD6L6R12":Д340 у
6Е A$│ Л(08)з C3│м1:Бж840:Е D(3)│0з ╞"BL6D6U12":Д340!
@Е A$│ Л(09)з C3│1:Бж840:Е D(4)│0з ╞"BR6D6U12":Д340!$
JБе250!D
T╗(Xл2,Yл2)м(Xл11,Yл11),╛,BF!U
^S│SлC3:Бе250!\
h┐0!d
rA│1!k
|Ю0!u
Жа A,1!|
РЮ5!Ъ
ЪЕ A▓250 з420:ДA│Aл5:Бе380!г
д┐1,1!н
оJ$│ Т!╦
╕A$│ Т:Е A$│""з440:Д Бе180!╘
┬┐1,1!х
╠А C1│0 е 299!я
╓Бж880"
р╞"BU6L6R12D12L12U12""
ъЛ"
ЇC1│0"$
■Бж880:┴0"B╗(Xл5,Yл5)м(Xл8,Yл8),╜,BF"iXY$│"BM"л И(Xл6)л","л И(Yл6):╞ XY$"A$│ Т:Е A$│""з540"Ф&Е A$┤▓ Л(95)з580"┤0Е  а(Xл6,Y)│0з CO│5 :Д CO│0"╧:┴ CO:╞"BU6L5R10":Бе510"фDЕ A$┤▓ Л(91)з610#NЕ  а(Xл6,Yл12)│0з CO│5 :Д CO│0#"X┴ CO:╞"BD6L5R10":Бе510#7bЕ A$┤▓ Л(21)з640#WlЕ  а(X,Yл6)│0з CO│5 :Д CO│0#rv┴ CO:╞"BL6D5U10":Бе510#ЗАЕ A$┤▓ Л(93)з670#кКЕ  а(Xл12,Yл6)│0з CO│5 :Д CO│0#┼Ф┴ CO:╞"BR6D5U10":Бе510#чЮЕ A$│ Л(94)░ C1▓19 з C1│C1м20$
иЕ A$│ Л(10)░ C1┤280 з C1│C1л20$3▓Е A$│ Л(8)░ C1о20┤▓ Б(C1о20)зC1│C1м1$e╝Е A$│ Л(9)░ (C1л1)о20┤▓ Б((C1л1)о20)з C1│C1л1$y╞Е A$│"S"з S1│C1$М╨Е A$│"E"з E│C1$└┌╗(Xл4,Yл4)м(Xл9,Yл9),╛,BF:Е A$│ Л(13)з740 :Д510$ фЕ S1│E з Ю:З"ENTER START & END":А C2│1 е 1000:Л:┐1,1:Бе510%юА C1│0 е 299%°Бж880%1D(1)│ А( а(Xл6,Y))%KD(2)│ А( а(Xл6,Yл12))%bD(3)│ А( а(X,Yл6))%| D(4)│ А( а(Xл12,Yл6))%ж*B(C1)│D(1)н1000лD(2)н100лD(3)н10лD(4)%м4Л%╢>Бе920%┬HC5│B(S)%╒RА C4│4 е 1 йм1&
\C5│C5о10:D(C4)│(C5м Б(C5))н10:C5│ Б(C5)&	fЛ:Р&2pX│(C1о20м Б(C1о20))н20н12:X│ Б(Xл.1)&PzY│ Б(C1о20)н12:Y│ Б(Yл.1)&wДXY$│"BM"л И(Xл6)л","л И(Yл6):╞ XY$&}ОР&ФШЮ:З"READY CASETTE"&квA$│ Т:Е A$│""з930&╜мЮ:З"RECORDING"&╙╢Щ"O",#м1,"MAZE-1"&у└А A│0 е 299&ё╩З#м1,B(A)&ў╘Л'▐З#м1,S1,E'шЪ#м1'ЄБе180,1'?
ъ╗(X,YлV)м(Xл7,YлVм7),╜: ┴ 1,H'Г
Ї╗(X1,Y1лV)м(X1л7,Y1лVм7),╜: Л V: X│X1: Y│Y1: ZZ│ZZл1: ╜(ZZ,0,3)'к
■Е ZZо5│ Б(ZZо5) з ╗(ZZ,0)м(ZZ,5),╛'░Р'▌А Q│1 е 15 й 2: Е  а(Z(Q),Z(Qл1))┤▓8 з Р'хЛ Q'ў&а  Д(13)н13,1( 0Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    R%
:Г*****************************I:Г*      EASYTYPE VS 1.0      *m:Г*                           *С:Г*      BY CHRIS JENNES      *╡:Г*         JULY '83          *┘:Г*****************************2
Т65495,0:Ю:З"EASYTYPE VS 1.0",,"JULY '83 C.JENNES":└ 1:Х15000,32714:AVLNS│250:Бж1000@З "READY"a╗Й">";A$:ЕA$│""з30:ДPROC$│A$ 	(Е Ю(1,A$,"INSERT")▓0з2000:ДЕ Ю(1,A$,"DELETE")▓0з3000:ДЕ Ю(1,A$,"LLIST")▓0з4000:ДЕ Ю(1,A$,"LIST")▓0з5000:ДЕ Ю(1,A$,"MEMORY STATUS")▓0з6000:ДЕ Ю(1,A$,"RENUM")▓0з7000 б2Е Ю(1,A$,"EDIT")▓0з8000:ДЕ Ю(1,A$,"LOAD")▓0з9000:ДЕ Ю(1,A$,"MERGE")▓0з9000:ДЕ Ю(1,A$,"SAVE")▓0з10000:ДЕ Ю(1,A$,"NEW")▓0з11000:ДЗ"SYNTAX ERROR":Бе20!VшDS│ Щ(AVLNS)о Щ(2):М A$(2,25),L$(AVLNS),O(AVLNS),L(DS),R(DS):АX│0е2:АY│0е25:НA$(X,Y):ЛY,X:AD│32715:НA$:АX│1е З(A$)й2:ТAD, Й("&H"л Р(A$,X,2)):AD│ADл1:ЛX:╣  Г0│32715:╣ Г1│32742:Р!·ЄЖ LINE INPUT ,USR,TIMER,USING,NEXT ,OPEN",CLOSE,EOF(,GOSUB ,REM ,RETURN,ABS(,DEF FN,DEF USR,INPUT ,PRINT ,FOR ,IF ,TAB(,THEN ,GOTO ,VARPTR(,TO ,SQR(,ELSE ,ASC("д№Ж PCLS,JOYSTK(,SET(,PLAY,CLS,PMODE ,POINT(,PPOINT(,ON,PRESET(,PSET(,PUT(,PEEK(,POKE ,PAINT(,PCLEAR ,AUDIO ,DRAW,PCOPY,GET(,MOTOR ,SOUND ,CIRCLE(,SCREEN ,LINE(,RESET(#CЖ RESTORE,SIN(,EXP(,STR$(,DATA ,STRING$(,VAL(,LEN(,LEFT$(,FIX(,INT(,SGN(,END,TAN(,MID$(,READ ,CHR$(,DIM ,RIGHT$(,HEX$(,INSTR(,LOG(,CLEAR ,COS(,INKEY$,ATN(#┤Ж F601188E04003ABF0118C1DF270C8E04DFA682A701BC011822F739F601188E04013A2004A680A71E8C04DF23F78E04DFC66EE78439#╨╨L│Lл1:Е L▓AVLNS з 16000$:┌╗Й"AUTOMATIC LINE NUMBERING (Y/N)";A$:Е A$│"Y" з LN│1 :Д Е A$│"N" з LN│0 :Д З"ANSWER WITH Y/N":Бе2010$YфЕ LN│0 з З Л(207);:Бе 2060$╡ю╗ Й"START LINE:";A$:SL│ Й(A$):Е SL┤▓ Б(SL) ▒ SL┤0 з З"INVALID STARTLINE ENTERED":Бе2030%°╗ Й"INCREMENT:";A$:INC│ Й(A$):Е INC┤1 ▒ INC┤▓ Б(INC) з З"INVALID INCREMENT ENTERED":Бе2040%kЕ LN│1 з L$(L)│ б(6м З( И(SL)),"0")л Р( И(SL),2, З( И(SL))м1)л" ":З L$(L); Л(207);%зA$│ Т:Е A$│"" ▒ A$│ Л(94) ▒ A$│ Л(10) ▒ A$│ Л(9) з 2060%цЕ A$│ Л(12) з З Л(8); Л(13);:L$(L)│"":L│Lм1:Бж 12000:Бе 20&S Е A$│ Л(8) ░  З(L$(L))│0 з 2060 :Д Е A$│ Л(8) з L$(L)│ О(L$(L), З(L$(L))м1):З Л(8); Л(8); Л(207);:Бе2060&k*Е A$┤▓ Л(13) з 2120&│4SO│1:З  Л(8);A$;:L│Lл1:SL│SLлINC:Е L▓AVLNS з 16000 :Д Е LN│1 з 2050'>Е Й(L$(Lм1))▓63999з18000:Д АX│1е5:M│ К( Р(L$(Lм1),X,1)):Е M▓47 ░ M┤58 з ЛX:З  Л(207);:Бе2060 :Д 18000'CHЕ  К(A$)▓64 ░  К(A$)┤91 з Бж 2160'VRL$(L)│L$(L)лA$'n\З  Л(8);A$; Л(207);'yfБе2060'╔pX│ Ж(341):Е X│215 ▒ X│231 ▒ X│243 ▒ X│245 ▒ X│246 ▒ X│247 з CNTRL│0:Бе 2200(zX│ Ж(344):Е X│215 ▒ X│231 ▒ X│243 ▒ X│245 ▒ X│246 ▒ X│247 з CNTRL│1:Бе 2200(iДX│ Ж(342):Е X│215 ▒ X│231 ▒ X│243 ▒ X│245 ▒ X│246 ▒ X│247 з CNTRL│2:Бе 2200(oОР(КШA$│A$(CNTRL, К(A$)м65)(РвР(∙╕Е L┤1 з З"NO LINES TO BE DELETED":Бе20 :Д Бж 15000:АX│1еL:CRL│ Й(L$(X)):Е CRL│▓S ░ CRL┤│E з L$(X)│"")┬Л X:Бж14000:Бе20)iаЕ L┤1 з 17000 :Д Бж15000:Т65494,0:АX│1еL:CRL│ Й(L$(X)):Е CRL▓│B ░ CRL┤│E з З #м2,L$(X))ЫкЛX:Т65495,0:З"LIST TO PRINTER COMPLETED":Бе20)ъИЕ L┤1 з 17000 :Д Бж 15000:АX│1еL:CRL│ Й(L$(X)):Е CRL▓│S ░ CRL┤│E з З L$(X))ўТЛ X:Бе20*АpЗ"NUMBER OF LINES USED";L,"LOWEST LINENUMBER:"; Й(L$(1)),"HIGHEST LINENUMBER:"; Й(L$(L)),"NR. OF LINES STILL AVAILABLE";AVLNSмL:Бе20*йXЕ L┤1 з З"NO PROGRAM TO RENUM":Бе 20* b╗Й"NEWLINE:";A$:NL│ Й(A$):Е NL┤▓ Б(NL) ▒ NL┤0 з З"INVALID NEWLINE ENTERED":Бе7010+]l╗Й"STARTLINE:";A$:STL│ Й(A$):Е STL┤▓ Б(STL) ▒ STL┤0 з З"INVALID STARTLINE ENTERED":Бе7020+╝v╗Й"INCREMENT:";A$:INC│ Й(A$):Е INC┤▓  Б(INC) ▒ INC┤1 з З"INVALID INCREMENT ENTERED":Бе7030+№{Е NLл((Lм1)нINC)▓63999 з З"PARAMETERS OUT OF RANGE":Бе 7010,АCNTR│1:BLN│NL,PКЕ  Й(L$(CNTR))┤STL з CNTR│CNTRл1:Е CNTR┤│AVLNS з 7050 :Д 7310,vФА X│1 е CNTRм1:O(X)│ Й(L$(X)):Л X,т▓АX│CNTR е L:O(X)│ Й(L$(X)):SN$│ И(NL):NN│ З(SN$): Р(L$(X),1,5)│ б(6мNN,"0")л Р(SN$,2,NNм1):NL│NLлINC:ЛX,Ё╨А X│1 е L,¤┌BEGINP│1-БфS1│ Ю(BEGINP,L$(X),"GOTO")л4:S2│ Ю(BEGINP,L$(X),"GOSUB")л5:S3│ Ю(BEGINP,L$(X),"THEN")л4:S4│ Ю(BEGINP,L$(X),"ELSE")л4:BGNR│99999-июЕ S1│4 ░ S2│5 ░ S3│4 ░ S4│4 з 7300-╛°Е S1┤▓4 з BGNR│S1-▐Е S2┤▓5 ░ S2┤BGNR з BGNR│S2-■Е S3┤▓4 ░ S3┤BGNR з BGNR│S3.Е S4┤▓4 ░ S4┤BGNR з BGNR│S4.N Е  Р(L$(X),BGNR,1)│" " з BGNR│BGNRл1:Бе7200.╛%I$│ Р(L$(X),BGNR,1):Е I$│"" з L$(X)│L$(X)л"####":З"NO LINE REFERENCE IN LINE";  Й(L$(X));"--MARKED":Бе 7300/*I│ К(I$):Е I│35 з BEGINP│BGNTл4:З"BAD LINE REFERENCE IN LINE"; Й(L$(X)),"--IGNORED":Бе 7270/E4Е I┤48 ▒ I▓57 з BEGINP│BGNR:Бе7140/д>NRVLGND$│ П(L$(X), З(L$(X))мBGNRл1):OLDNR│ Й(NRVLGND$):T│0:NL│ З(NRVLGND$)м З( И(OLDNR))л10FHT│Tл1:Е OLDNR┤▓O(T) з Е T┤L з 7240 :Д З "UNDEFINED LINE";OLDNR;"IN LINE"; Й(L$(X));"--MARKED":L$(X)│ О(L$(X),BGNRм1)л"####"л П(L$(X),NL):BEGINP│BGNRл4:Бе72700lMS$│ И(BLNл(TмCNTR)нINC):SL│ З(S$)0оRЕ T▓│CNTR з L$(X)│ О(L$(X),BGNRм1)л Р(S$,2,SLм1)л П(L$(X),NL)0ю\Е T▓│CNTR з BEGINP│BGNRлSLм1 :Д BEGINP│BGNRл З( И(OLDNR))м11$fЕ  Р(L$(X),BEGINP,1)│" "з BEGINP│BEGINPл1:Бе 72701YpЕ  Р(L$(X),BEGINP,1)│"," з BGNR│BEGINPл1:Бе 72001ezБе 71401mДЛ X1ДОЗ"RENUM COMPLETED"1ЫШSO│1:Бж12000:Бе 201═@Е L┤1 з З"NO LINES TO BE EDITED":Бе20 :Д IN│02J╗Й"ENTER LINE NUMBER:";A$:SRCHLN│ Й(A$):CNTR│12!TЕ  Й(L$(CNTR))│SRCHLN з 80402e^CNTR│CNTRл1:Е CNTR┤│L з8020 :Д З"LINE COULD NOT BE FOUND":Бе 202lhЮ 2йrЗ@0, б(224,"."):З@0,L$(CNTR);:З@492,"<INSERT>";:CUR│10242╣|OLD│ Ж(CUR)2хЖЕ OLD▓63 з Т CUR,OLDм64 :Д Т CUR,OLDл642■РA$│ Т:Е A$│"" з 808037ЪЕ A$│ Л(91) з ТCUR,OLD:Т280,CURм1024:A│ Г1(0):Бе80603OдЕ A$┤▓ Л(95) з 81303ЛоЕ IN│0 з IN│1:Т 1516,60:З@493,"insert";:Т1523,62:Бе80803н╕IN│0:З@492,"<INSERT>";:Бе80803╨┬Е A$│ Л(13) з Т CUR,OLD:Бе82703▀╠VORIGE│CUR4╓Е A$│ Л(94) з CUR│CURм32:Бе82504'рЕ A$│ Л(10) з CUR│CURл32:Бе82504IъЕ A$│ Л(8) з CUR│CURм1:Бе82504kЇЕ A$│ Л(9) з CUR│CURл1:Бе82504Щ■Е IN│1 з Т CUR,OLD:Т280,CURм1024:A│ Г0(0)4ж A│ К(A$)4╚ Е A▓31 ░ A┤64 з A│Aл64:Бе82304ф Е A▓95 ░ A┤128 з A│Aм965 &Т CUR,A:Е CUR┤1247 з CUR│CURл15 0Бе 80605A :Е CUR┤1024 ▒ CUR▓1247 з CUR│VORIGE:Бе80805Y DТ VORIGE,OLD:Бе80605p NX│1247:L$(CNTR)│""5П XЕ  Ж(X)│110 з X│Xм1:Бе82805╙ bА Y│1024 е X:A│ Ж(Y):Е A▓95 ░ A┤127 з A│Aм64 :Д Е A┤32 з A│Aл966B lL$(CNTR)│L$(CNTR)л Л(A):Л Y:АY│1е5:M│ К( Р(L$(CNTR),Y,1)):Е M▓47 ░ M┤58 з Л Y:Е  Й(L$(CNTR))┤│63999 з 83206s vЗ@356,"INVALID LINENUMBER USED";:IN│0:Бе80506к АЮ:З L$(CNTR):Е  Й(L$(CNTR))┤▓SRCHLN з SO│1:Бж120006┤ КБе 207#(З"* PUT THE RIGHT TAPE IN YOUR      RECORDER",,"* REWIND IT & PRESS PLAY","* PRESS <ENTER> WHEN READY"77#2Е  Т┤▓ Л(13) з 90107╣#<╗Й"PROGRAM NAME:";A$:Е  З(A$)▓8 з З"MAXIMUM 8 CHARACTERS":Бе 9020 :Д Т65494,0:Щ"I",#м1,A$:Е Ю(1,PROC$,"LOAD")▓0 з L│0 :Д SO│17¤#FЕ  М(м1) з Ъм1:З"PROGRAM HAS BEEN LOADED":Т65495,0:Бж12000:Бе208*#PL│Lл1:Й #м1,L$(L):ЕL$(L)│""зL│Lм1:Бе90408h#ZЕ  Р(L$(L),1,1)│"0" з L$(L)│ П(L$(L), З(L$(L))м1):Бе 90508п#dL$(L)│ б(6м З( И( Й(L$(L)))),"0")лL$(L):Е L┤ AVLNS з 9030 :Д 160009S'ЕL┤1зЗ"NO PROGRAM TO BE SAVED":Бе20 :Д З"* PUT THE RIGHT TAPE IN YOUR      RECORDER",,"* POSITION TAPE",,"* PRESS <PLAY>&<RECORD>","* PRESS <ENTER> WHEN READY"9l'Е  Т┤▓ Л(13) з 10010:'$╗Й"PROGRAM NAME:";A$:Е  З(A$)▓8 з З"MAXIMUM 8 CHARACTERS":Бе 10020 :Д Т65494,0:Щ"O",#м1,A$:АX│1еL:З#м1,L$(X):ЛX:Ъм1:Т65495,0:З"PROGRAM HAS BEEN SAVED":Бе20:*°О:Y.рЕ SO│0 з Р :Д SO│0:SS│1:L(1)│1:R(1)│L:З"SORT PROCEDURE EXECUTING";:w.ъLL│L(SS):RR│R(SS):SS│SSм1:а.ЇI│LL:J│RR:X$│ О(L$( Б((LLлRR)о2)),5):┼.■Е  О(L$(I),5)┤X$ з I│Iл1:Бе12030:ъ/Е X$┤ О(L$(J),5) з J│Jм1:Бе12040;!/Е I┤│J з W$│L$(I):L$(I)│L$(J):L$(J)│W$:I│Iл1:J│Jм1;4/Е I┤│J з 12030;L/&Е JмLL┤RRмI з 12100;r/0Е LL┤J з SS│SSл1:L(SS)│LL:R(SS)│J;Д/:LL│I:Бе 12120;к/DЕ I┤RR з SS│SSл1:L(SS)│I:R(SS)│RR;│/NRR│J;╟/XЕ LL┤RR з 12020;█/bЕ SS┤▓0 з 12010;Є2╚А X│1 е Lм1:PNTR│1<A2╥Е  Й(L$(X))│ Й(L$(XлPNTR)) з L$(XлPNTR)│"":PNTR│PNTRл1:Е PNTRлX┤│L з 13010<I2▄Л X<X2цЗ б(24,8);<`6░X│1<p6║FV│0:PNTR│0<л6─Е L$(XлPNTR)│"" з FV│1:PNTR│PNTRл1:Е XлPNTR┤│L з 14020<ф6╬Е FV│1 з А Y│X е LмPNTR:L$(Y)│L$(YлPNTR):ЛY:L│LмPNTR<¤6╪X│Xл1:Е X┤│L з 14010=6тР=Л:Ш╗Й"STARTLINE:";A$:S│ Й(A$):╗Й"ENDLINE:";A$:E│ Й(A$):Е E▓│S з Р :ДЗ"INVALID PARAMETERS ENTERED      DURING PROCEDURE ";PROC$:Бе15000=╪>АЗ"ALL CLEARED MEMORY HAS BEEN USED--";PROC$;" PROCEDURE TERMINATED":Бе20=№BhЗ"NO PROGRAM TO BE LISTED":Бе20>QFPЗ"INVALID LINENUMBER USED","--LINE NOT ACCEPTED":L│Lм1:L$(L)│"":З Л(207);:Бе2060ABLE PLACE. A SHAKY MUFF POTTER, THE TOWN DRUNK, ASKS FOR A FIVE-CENT PIECE. YOU REFUSE BUT BUY HIM A SASPARILLA"?	ьЕ C▓1 з A$(1)│"JUST THE USUAL GOING ON HERE, AND AT A