2706 ╓З"THAT'S NOT IT!":Бе 17106-C│ Д(10)6╢Е C┤4 з З"YOU FELL INTO THE CHEST.  THE   TOP SLAMMED SHUT AND LOCKED!    YOU HAVE 30 SECONDS TO SAY THE  MAGIC WORDS!": Я│0:Бе 18507Е C┤10 з З"THE CHEST IS EMPTY, BUT SOME-   THING MIGHT BE THERE NEXT TIME.":Бе 10157Г&Е N┤▓3 з З"THERE IS A $1,000,000 BILL      INSIDE!! YOU ARE RICH - IF YOU  CAN GET OUT TO SPEND IT!":N│3:Бе 10157П0Бе 18207Ш:Й D$7чDЕ  Я▓2000 з З:З"TOO BAD, YOU RAN OUT OF AIR.    TRY AGAIN ANOTHER TIME.":К8NЕ D$│J$(L) з З "YOU GOT OUT!":Бе 100187XЗ"THAT'S NOT IT - HURRY!":Бе 18508SlЙ "WHAT WILL YOU DO";E$8ЪvЕ  О(E$,6)│"GET KE" ▒  О(E$,6)│"GETKEY"  з З "GOT IT!":A│1:Бе 11658жАБе 1165                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                з 1150-;kЕ C$│"N" ▒ C$│"E" з З"YOU CAN'T DO THAT.":Бе 1115-ЧoЕ  О(C$,6)│"GET SW" ▒  О(C$,6)│"GETSWO" з З"THE SWORD STABS YOU! THIS GAME  IS OVER.":К-▒sЗ"I DON'T UNDERSTAND.-╜tБе 1115-├~Ю-цЗ"YOU ARE IN THE LINEN CLOSET..)ГЗ"THERE ARE LOTS OF SHEETS AND    PILLOWS HERE, AND A CABINET..?ИЗ"YOU CAN GO: S,E.YНЗ:З"WHAT WILL YOU DO?.bТЙ C$.vЧЕ C$│"S" з 1200.КЬЕ C$│"E" з 1100.└ЭЕ C$│"N" ▒ C$│"W" з З"YOU CAN'T DO THAT.":Бе 1165/бЕ M┤▓3 ░  О(C$,7)│"OPEN CA" ▒  О(C$,7)│"OPENCAB" з З "THERE IS A KEY INSIDE":M│3:Бе 1900/lвЕ M│3 ░  О(C$,7)│"OPEN CA" ▒  О(C$,7)│"OPENCAB" з З "IT IS EMPTY.":Бе 1165/ЛеЗ"I DON'T UNDERSTAND THAT./ЧжБе 1165/Э░Ю/┐▒З"YOU ARE IN THE SEWING ROOM./┌╡З"EVERYTHING IS DUSTY./Є║З"YOU CAN GO: N,S,E0┐З:З"WHAT WILL YOU DO?0─Й C$0)╔Е C$│"N" з 11500=╬Е C$│"S" з 12500Q╙Е C$│"E" з 10500~╘Е C$│"W" з З"YOU CAN'T DO THAT.":Бе 12150Э╫З"I DON'T UNDERSTAND THAT.0й╪Бе 12150птЮ0╘уЗ"YOU ARE IN THE MASTER BEDROOM.1чЗ"THERE IS A LARGE CLOTH BAG      HANGING FROM THE CEILING.":D│ Д(10)17ьЗ"YOU CAN GO:  N,S,E1JёА Z│1 е 1500:Л1[єЕ D┤4 з 17001uЎЗ:З"WHAT WILL YOU DO?1~√Й C$1ТЕ C$│"N" з 12001жЕ C$│"S" з 13001║
Е C$│"E" з 10001чЕ C$│"W" з З"YOU CAN'T DO THAT.":Бе 12702^Е  О(C$,6)│"GET BA" ▒  О(C$,6)│"GETBAG" ▒  О(C$,6)│"OPEN B" ▒  О(C$,6)│"OPENBA" з З"IT'S EMPTY - FOR NOW!":Бе 12702}З"I DON'T UNDERSTAND THAT.2ЙБе 12702ПЮ2│З"YOU ARE IN THE GUEST BEDROOM.2┘З"THERE IS A VERY NICE BED THERE.2 З"SINCE YOU ARE A GUEST, YOU TAKE3$#З"A LONG NAP. (SHHH - WAIT UNTIL3a(З"YOU WAKE UP.)  ":А O│ 1 е 3500:Л:А X│ 1 е 2990:З"Z";:Л3А-З"MMM, THAT WAS JUST FINE.3Ч2З"YOU CAN GO:  N,E3▒7З:З"WHAT WILL YOU DO?3║<Й C$3╬>Е C$│"N" з 12503с@Е C$│"E" з 9504AЗ"I DON'T UNDERSTAND THAT.4BБе 13354█К4#▄Е A│0 з 15104/▌Бе 15204RцЗ"YOU DON'T HAVE A KEY":Бе 5104uЁЗ"YOUR KEY DOESN'T FIT":Бе 5104Ж@Е A│0 з 16104ТEБе 16204╡JЗ"YOU DON'T HAVE A KEY":Бе 7654цTЮ:З:З:З:З:З:З:З"GREAT!!! YOU GOT OUT!":З:З:З4ьгК5eдЗ"A GHOST CAME OUT. IT GRABBED    YOU AND PUT YOU IN THE SACK!    YOU HAVE 30 SECONDS TO SAY THE  MAGIC WORDS!": Я│05}оЗ"WHAT WILL YOU DO?5Ж╕Й D$5┘┬Е  Я▓2000 з З"TOO LATE - THE BAG WENT OUT TO  THE LAUNDRY! YOU'RE DONE FOR!":К6╠Е D$│J$(L) з З "YOU'RE OUT!":Бе 1READ BO" ▒  О(C$,7)│"READBOO" з З "IT SAYS: THE MAGIC WORDS ARE":З J$(L):Бе 860$аuЕ  О(C$,6)│"GET BO" ▒  О(C$,6)│"GETBOO" з З"WHAT WILL YOU DO WITH IT?":Бе 865$яzЕ  О(C$,7)│"OPEN BO" ▒  О(C$,7)│"OPENBOO" з З"O.K., NOW IT'S OPEN.":Бе 860%>|Е C$│J$(L) з З"THE MAGIC WORDS ONLY WORK IF    YOU ARE IN TROUBLE.":Бе 860%]~З"I DON'T UNDERSTAND THAT.%hБе 860%nДЮ%ИЙЗ"YOU ARE IN THE DEN.%мОЗ"THERE IS A DOOR TO THE SOUTH,%╞УЗ"AND YOU CAN GO: N,W%рШЗ:З"WHAT WILL YOU DO?%щЭЙ C$%№вЕ C$│"N" з 850&зЕ C$│"W" з 550&DиЕ C$│"S" ▒ C$│"E" з З"YOU CAN'T DO THAT.":Бе 920&СмЕ  О(C$,7)│"OPEN DO" ▒  О(C$,7)│"OPENDOO" з З"IT IS NAILED SHUT.":Бе 920&░░З"I DON'T UNDERSTAND THAT.&╗▒Бе 920&┴╢Ю&с╗З"YOU ARE IN THE GAME ROOM.'╛Е J│3 з З"THERE IS A WRECKED COMPUTER":Бе962'3└З"THERE IS AN APPLE COMPUTER'H┬З"IN THE CORNER.'a─З"YOU CAN GO:  N,E,W'{╞З:З"WHAT WILL YOU DO?'Д╩Й C$'Ш╧Е C$│"N" з 1000'л╘Е C$│"E" з 500'┐┘Е C$│"W" з 1300'ы┌Е C$│"S" з З"YOU CAN'T DO THAT.":Бе 966(Ы▐Е J┤▓3 ░  О(C$,6)│"GET CO" ▒  О(C$,6)│"GETCOM" з Ю:З"THE COMPUTER BLEW UP! YOU HAVE":З"BEEN BLASTED OUT OF THE ROOM!":З"(NEVER TRUST AN APPLE COMPUTER)":J│3:З:З:З:З:Бе 501(у▀Е J│3 ░  О(C$,6)│"GET CO" з З"IT FALLS APART IN YOUR HANDS.":Бе 966)тЗ"I DON'T UNDERSTAND THAT.)
уБе 966)шЮ)7щЗ"YOU ARE IN THE FIRST BEDROOM.)\эЗ"THERE IS A CHEST ON THE FLOOR.)uЄЗ"YOU CAN GO:  N,S,W)ПўЗ:З"WHAT WILL YOU DO?)Ш№Й C$)м
Е C$│"N" з 1050)┐Е C$│"S" з 950)╙Е C$│"W" з 1250*Е C$│"E" з З"YOU CAN'T DO THAT.":Бе 1015*jЕ  О(C$,6)│"GET CH" ▒  О(C$,6)│"GETCHE" з З"DON'T BE SILLY; YOU HAVE NO     PLACE TO PUT IT.":Бе 1015*ЯЕ  О(C$,7)│"OPEN CH" ▒  О(C$,7)│"OPENCHE" з 1800*╛З"I DON'T UNDERSTAND THAT.*╩Бе 1015*╨Ю*ЇЗ"YOU ARE IN THE SECOND BEDROOM+З"AN OLD PAINTING IS ON THE WALL+2$З"YOU CAN GO:  N,S,W+L)З:З"WHAT WILL YOU DO?+U.Й C$+i3Е C$│"N" з 1100+}8Е C$│"S" з 1000+С=Е C$│"W" з 1200+╛>Е C$│"E" з З"YOU CAN'T DO THAT.":Бе 1065,BЕ  О(C$,6)│"GET PA" ▒  О(C$,6)│"GETPAI" з З "YOU CAN'T REACH IT.":Бе 1065,,FЗ"I DON'T UNDERSTAND THAT.",8GБе 1065,>LЮ,bMЗ"YOU ARE IN THE THIRD BEDROOM.,гQЗ"THERE IS A SWORD POINTED AT YOU IN THE MIDDLE OF THE ROOM!,║VЗ"YOU CAN GO:  S,W,╘[З:З"WHAT WILL YOU DO?,▌`Й C$,ёeЕ C$│"S" з 1050-jЕ C$│"W" ,6)│"GET BO" ▒  О(C$,6)│"GETBOW" з З"SHAME ON YOU, YOU THIEF!":F│3:Бе 620gЗ"I DON'T UNDERSTAND THAT.rАБе 620xКЮЭПЗ"YOU ARE IN THE BREAKFAST ROOM.╤УЕ G│3 з З"THERE IS AN EMPTY PLATE HERE.":Бе 665ёФЗ"THERE IS A PLATE FULL OF ХЗ"WAFFLES HERE.ЩЗ"YOU CAN GO:  N,S,E8ЮЗ:З"WHAT WILL YOU DO?AгЙ C$UиЕ C$│"N" Бе 700iкЕ C$│"S" Бе 600}мЕ C$│"E" Бе 800йнЕ C$│"W" з З"YOU CAN'T DO THAT.":Бе 670№оЕ  О(C$,6)│"GET WA" ▒  О(C$,6)│"GETWAF" з З"YUMM - THEY WERE GOOD!":G│3:Бе 670▒З"I DON'T UNDERSTAND THAT.&▓Бе 670,╝ЮJ┴З"YOU ARE IN THE KITCHEN.{┬Е H│1 з З"THERE IS A PIECE OF CAKE ON":Бе712▓├Е H│2 з З"THERE IS A TINY PIECE OF CAKE ON":Бе 712ф─Е H│3 з З"THERE ARE CRUMBS OF CAKE ON":Бе 712
┼Е H▓3 з З"THERE IS AN EMPTY PLATE ON0╞З"THERE IS A CHOCOLATE CAKE OND╚З"THE COUNTER. Z╩З"YOU CAN GO: S,Et╠З:З"WHAT WILL YOU DO?}╬Й C$Р╨Е C$│"S" з 650г╒Е C$│"E" з 750╪╓Е C$│"N" ▒ C$│"W" з З"YOU CAN'T DO THAT.":Бе 716:┌Е H┤3 ░   О(C$,6)│"GET CA"▒  О(C$,6)│"GETCAK" з З"IT IS GOOD! DON'T EAT IT ALL!":H│Hл1:Бе 716y█Е  О(C$,6)│"GET PL" з З"DON'T EAT THE PLATE, TOO!!":Бе 716ШуЗ"I DON'T UNDERSTAND THAT.гфБе 716йюЮ╔єЗ"YOU ARE IN THE BACK HALL.ьїЗ"THERE IS A DOOR TO THE EAST. °З"AND YOU CAN GO:  S,W !¤З:З"WHAT WILL YOU DO? *Й C$ =Е C$│"S" з 800 PЕ C$│"W" з 700 Е
Е C$│"N" ▒ C$│"E" з З"YOU CAN'T DO THAT.":Бе 765 ║Е  О(C$,7)│"OPEN DO" ▒  О(C$,7)│"OPENDOO" з 1600 ┘З"I DON'T UNDERSTAND THAT. фБе 765 ъ Ю!%З"YOU ARE IN THE STORE ROOM.!.*З"THERE IS A BOX ON THE FLOOR.!G,З"YOU CAN GO:  N,S,W!a/З:З"WHAT WILL YOU DO?!j4Й C$!}9Е C$│"N" з 750!Р>Е C$│"S" з 850!гCЕ C$│"W" з 650!╨DЕ C$│"E" з З "YOU CAN'T DO THAT.":Бе 815"NHЕ I┤▓3 ░  О(C$,7)│"OPEN BO" ▒  О(C$,7)│"OPENBOX" з З"A MOUSE JUMPS OUT, BITES YOU ON THE NOSE, AND RUNS AWAY!":I│3:Бе 815"УIЕ  О(C$,7)│"OPEN BO" ▒  О(C$,7)│"OPENBOX" з З"IT'S EMPTY":Бе 815"█JЕ  О(C$,6)│"GET BO" ▒  О(C$,6)│"GETBOX" з З"IT'S TOO HEAVY.":Бе 815"·KЗ"I DON'T UNDERSTAND THAT.#LБе 815#RЮ#)WЗ"YOU ARE IN THE LIBRARY.#MYЗ"THERE IS A BOOK ON THE TABLE.#fZЗ"YOU CAN GO:  N,W,S#А\З:З"WHAT WILL YOU DO?#ЙaЙ C$#ЬfЕ C$│"N" з 800#пgЕ C$│"S" з 900#┬kЕ C$│"W" з 600#юlЕ C$│"E" з З"YOU CAN'T DO THAT.":Бе 860$NpЕ  О(C$,7)│" &й
Х 1000с
:Гold house by j.c.welch IS A NOVICE ADVENTURE FOR PRIMARY    STUDENTS. IT IS DESIGNED TO BE  USED WITH A CHART LISTING THE 7 COMMANDS WHICH WILL WORK WITH   THIS ADVENTURE. (RTE 1, BOX 191 OUTLOOK, WA 98938):ГCOPYRIGHT (C) CLOAD 1982oЖUGGA BUGGA,ZIP ZAP,ICHI OOCHI,KOOL KAT,ALA KAZAM,IMA FROG,ABRA KADABRA,SNAKE BREATH,DIRTY FEET,LOTSA JUNKУМ J$(10):А Y│1 е 10:Н J$(Y):Л YаL│ Д(10)╖Ю:З@234,"OLD HOUSE▄З:З:Й"DO YOU KNOW HOW? (Y/N)";B$яЕ B$│"Y" з 230Е B$│"YES" з 230
Ю3З:З:З"     YOU ARE IN THE FRONT HALLX(З"OF AN OLD, EMPTY HOUSE.  YOUR y2З"JOB IS TO GET OUT...ALIVE!│<З:З:З:З:З:З:З:З"<PRESS THE 'ENTER' BUTTON NOW.>":Й A$рFЮ:З:З:З"YOU CAN GO FOUR WAYS LIKE THIS:"√PЗ:З"     N     (NORTH)ZЗ"     S     (SOUTH),dЗ"     E     (EAST)DnЗ"     W     (WEST)hxЗ"SO, IF YOU WANT TO GO NORTH, СВЗ"JUST PRESS ":З:З"               N"┴ЗЗ:З:З"<PRESS THE 'ENTER' BUTTON NOW.>":Й A$╟ЛЮэМЗ:З"THE ONLY OTHER WORDS THAT THEЦЗ"COMPUTER KNOWS ARE ALWAYS TWO'аЗ"WORDS TOGETHER.8кЗ:З"YOU CAN:X┤З"     GET (SOMETHING)   ORx╛З"     OPEN (SOMETHING)  ORШ╚З"     READ (SOMETHING)  OR╡╥З" (SAY TWO MAGIC WORDS)╒╫З:З"NO OTHER BEGINNING WORD∙╪З"WILL WORK, EXCEPT 'GET''OPEN'
┘З"AND 'READ'/▄З:З" PRESS<ENTER> TO START":Й A$5цЮ@ЁБе 500F
ЇЮg
їЗ"YOU ARE IN THE FRONT HALL.Л
∙З"THERE IS A DOOR TO THE NORTH,ж
√З"AND YOU CAN GO:  E,Wм
■З─
 З"WHAT WILL YOU DO?═Й C$рЕ C$│"E" з 550є
Е C$│"W" з 950)Е C$│"N" ▒  C$│"S" з З"YOU CAN'T DO THAT.":Бе 510^Е  О(C$,7)│"OPEN DO" ▒  О(C$,7)│"OPENDOO" з 1500}
З"I DON'T UNDERSTAND THAT.ИБе 510О&Ю░'З"YOU ARE IN THE LIVING ROOM.╤0З"THERE IS A NICE SOFT CHAIRъ2З"YOU CAN GO:  N,E,W4З:З"WHAT WILL YOU DO?"6Й C$":Е C$│"N" Бе 6006<Е C$│"E" Бе 900J>Е C$│"W" Бе 500u?Е C$│"S" з З"YOU CAN'T DO THAT":Бе 564╜@Е  О(C$,6)│"GET CH" ▒  О(C$,6)│"GETCHA" з З"DON'T BE SILLY!":Бе 564╓CЗ"I DON'T UNDERSTANDсDБе 564чXЮ	]З"YOU ARE IN THE DINING ROOM.aЕ F│3 з 615=bЗ"THERE IS A SILVER BOWL ON THEJcЗ"TABLE.bgЗ"YOU CAN GO: N,S,E}lЗ:З"WHAT WILL YOU DO?"ЖqЙ C$ЩvЕ C$│"N" з 650мxЕ C$│"S" з 550┐zЕ C$│"E" з 850ы{Е C$│"W" з З"YOU CAN'T DO THAT.":Бе 620H|Е F┤▓3 ░   О(C$С(XлNI,Y)│0з4453:DI│DF:ЕDI│(2н Б(DIо2))зX│XлNI :Д Y│YлNI3M!Е С(X,Y)│3з7053d+IP│IPл2:ЕIP▓3зIP│13ч5Z2│ Ы((XмX5)п2л(YмY5)п2):Z4│Z4м(Z2▓Z3)л(Z2┤Z3):Z3│Z2:Z1│ Б(Z4о12)л1:Z│1лZ4м(Z1м1)н12:Z1│Z1м(Z1┤1)л(Z1▓5):╔"O"л И(Z1)л";"л И(Z)49?╟5еIP:╟6еIPл1:╚1,IP:ЕZL│0зЬ(X,Y,4):ДЕ С(X,Y)│4зЬ(X,Y,1):Д Е  С(X,Y)┤▓1 з ZL│04[INI│2м В(2н(DIм2.5)):K│0:Бж6054jS┐1,0:Бе4454Б]ЕDI│2н Б(DIо2)з6554вgЕ С(Xл1,YлK)┤▓0з M│мNI:Бж3554┬qЕ С(Xм1,YлK)┤▓0з M│NI:Бж3554▐{Е  С(X,YлK)│0 з Бж415:Р4 ЕK│KлNI:Е В(K)┤10з Бе615 :Д Р5ПЕ С(XлK,Yл1)┤▓0з M│NI:Бж3555@ЩЕ С(XлK,Yм1)┤▓0з M│мNI:Бж3555YгЕ С(XлK,Y)│0зБж415:Р5yнK│KлNI:Е В(K)┤10 з Бе655:ДР5п╖S1│ Б(19000о Ы(S)):SC│SCл5:┐0,0:АI│1еS1:ЛI:┐1,0:Р60┴╔"T10L4V5CDEL2GL4EL1V10G":З@432,"YOU WIN!";:З@464,"YOUR SCORE="; Б( Ы(S)н(100мSC));:З@496,"";:Й"PLAY AGAIN ";D$:ЕD$│"Y"зО:ДК6;╦ЕK│0зР6w╒ЕDI│2н Б(DIо2) з 735 :Д Е  С(X,YлKмNI)│3 з ┴3,1 :Р :Д Р6Ш▀Е  С(XлKмNI,Y)│3 з ┴3,1 :Д Р6ЮщР6─єA$│A$(DI):╞"BM125,154;C1; XA$;":Р╞"NR5D3NR4D4R5BU7BR4+╨╞"BD1D1F1R3F1D2G1L3H1BU5E1R3F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟*a:Г AMAZING BY RAD HEWKO 1524-      113 AVE. DAWSON CREEK, BC       COPYRIGHT (C) CLOAD 1982*jБе35*sБе45*В#└6:╚1:Бе25*Л-Ю(1)*а7C│4л Д(4):C1│2о3*╝AЗ"WELCOME TO AMAZING":З+KМ A$(4),G(10),H(10),X(2),Y(2):X(1)│29:X(2)│1:Y(1)│29:Y(2)│1:Z4│10+CUD7│15:АI│0е10:G(I)│ Б(127н(C1)пIл.5):H(I)│ Б(.75нG(I)л.5):ЛI+╖_A$(1)│"U10F10U10":A$(2)│"NR5D5NR5D5R5":A$(3)│"NR5D5R5D5L5":A$(4)│"BM108,154;M113,164;M118,154;M123,164;M128,154+┴iБж425,"sБж325:╟5е1:╟6е2:DI│ Д(4):X│X( Д(2)):Y│Y( Д(2)):X7│30мX:Y7│30мY:Ь(X,Y,4):Ь(X7,Y7,3):X5│X:Y5│Y,7}IP│1:╚1,IP:Бе585,mЗA│ Д(D7):B│ Д(D7):X│Aн2м1:Y│Bн2м1:Ь(X,Y,C):SC│224,ССАI│1е12:З@20лIн32, б(12,32);:ЛI,√ЫЗ@24,"MAP";:З@84,"YOU WALK ON";:З@116,"COLOR LINES";:Ь(38,9,4):З@148,"START";:Ь(38,11,3):З@180,"END";-ЧеЗ@209,"TYPE    PENALTY";:З@241,"M: MAP     -5 ";:З@273,"C: COMPASS -2 ";:З@305,"L: LEFT";:З@337,"R: RIGHT";:З@369,"F: FORWARD";:З@401,"B: BACK    -5 ";-зп:ГDRAW MAZE-╛╣Е  Д(100)┤Sн3 з295-т├L│0:ЕA┤2 з205:ДЕ С(Xм2,Y)│0зL│1.═R│0:Е A▓14 з215:ДЕ С(Xл2,Y)│0зR│1..╫U│0:ЕB┤2 з 225:ДЕ С(X,Yм2)│0з U│1.RсD│0:ЕB▓14з235:ДЕ С(X,Yл2)│0зD│1.fыЕ LлRлUлD│0з295.Рїа Д(255),1:И  Д(4) Бе 255,265,275,285.╠ ЕL│0з245:ДA│Aм1:X│Xм2:SC│SCм1:Ь(X,Y,C):Ь(Xл1,Y,C):Бе185/
	ЕR│0з245:ДA│Aл1:X│Xл2:SC│SCм1:Ь(X,Y,C):Ь(Xм1,Y,C):Бе185/D
ЕU│0з245:ДB│Bм1:Y│Yм2:SC│SCм1:Ь(X,Y,C):Ь(X,Yл1,C):Бе185/А
ЕD│0з245:ДB│Bл1:Y│Yл2:SC│SCм1:Ь(X,Y,C):Ь(X,Yм1,C):Бе185/Ц
'ЕSC┤│0зSC│0:Бе435/╘
1A│ Д(D7):B│ Д(D7):X│Aн2м1:Y│Bн2м1:Е С(X,Y)│0з305:Р:ДБе195/ь
;:ГPAINT SKY & FLOOR0%
E╚1,5:╝:┴3,1:╗(0,0)м(128,96),╜:╗м(255,0),╜:├(5,0),3,30a
O┴2,1:╗(0,191)м(128,96),╜:╗м(255,191),╜:├(128,128),2,2:Р0А
Y:ГPAINT RIGHT OR LEFT TURN0▒
cM│Mм(M│0):L│ В(K)л1:X1│128лG(L)нM:Y1│96мH(L)0╥
mX2│128лG(Lм1)нM:Y2│96мH(Lм1)0ё
w┴3,1:╗(X1,Y1)м(X2,Y2),╜,BF1

БY3│96лH(L):Y4│96лH(Lм1)1I
Л┴2,1:╗(X1,Y3)м(X2,Y4),╜,BF:┴4,1:╗(X2,Y1)м(X1,Y3),╜,BF:Р1_
Х:ГPAINT END BLOCK1д
Я┴4,1:Бж715:L│ В(K):╗(128лG(L),96лH(L))м(128мG(L),96мH(L)),╜,BF:Р1╘
йЙ"DEGREE OF DIFFICULTY (1-9) ";S:Ю(0):Бж1351┌
│Р1ї
╜E$│"":E$│ Т:ЕE$│""з4452
╟ЕE$│"M"з Бж695:Бе4452.
╤ЕE$│"C"зБж755:SC│SCл2:Бе4452M
█DF│ Ю("LFRB",E$):ЕDF│0з4452y
хЕ(DF│4)л(X┤▓X5)л(Y┤▓Y5)│м3зSC│SCл5:ZL│12е
яDF│DIлDFм2:ЕDF▓4зDF│DFм4:ДЕDF┤1зDF│DFл42▌
∙NI│2м В(2н(DFм2.5)):ЕDF│2н Б(DFо2)зNZ│1:Бе525:ДNZ│02°Е С(X,YлNI)│0з445:Д5353
Е xD│ Д(120)л30'ВБж500')МD│Dо57.29578'DЦ╗(128,118)м(128,118),╜'XаА R│0 е 100 й D'gкX│Rн Х(R) 's┤X│Xл128'Б╛Y│Rн Е(R)'Р╚Y│Yн.7л118'Ю╥╗м(X,Y),╜'ж▄Л R'╖цА T│1е1500:Л'╓ЁSP$│"Ю╝0Й`O_эБ3BГа%Ў9'ш·S│0:VS│0:SA│0'ў
VS│ Э(SP$)(
SA│ Ж(VSл2)н256л Ж(VSл3)(
╣ Г│SA(+
"S│ Г(0)(4
,Л SP(?
6Бж1000(I
@Бе 40(q
Ї╞"BM6,44;BD1D6U4NR5U2E1R3F1D6BU7BR4(Р
■╞"ND7R4F1D1G1NL4F1D3BU7BR4(╡╞"BD1D5F1R3E1U1BU3U1H1L3G1BU1BR9(═
╞"D7U4R5NU3D4BU7BR4(ф╞"R4L2D7L2R4BR5BU7(¤╞"ND7R3ND7R3D7BR5BU7)&╞"NR5D3NR4D4R5BU7BR4),0╞"D7R4E1U5H1L4BR9)E:╞"NR5D3NR4D4R5BU7BR4)nD╞"BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1BR4)АN╞"BR4NG3BR100)йX╞"BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1BR4)├b╞"ND7R4F1D2G1L4BU4BR9)┌l╞"R4L2D7L2R4BR5BU7)∙v╞"ND7R4F1D1G1NL4F1D3BU7BR4*А╞"BD1D6U4NR5U2E1R3F1D6BU7BR4*+К╞"D7R5BU7BR4*KФ╞"BM188,180;D7R4E1U5H1L4BR9*dЮ╞"NR5D3NR4D4R5BU7BR4*Ми╞"BD1D5F1R3E1U2NL2BU2U1H1L3G1BU1BR9*л▓╞"ND7R4F1D1G1NL4F1D3BU7BR4*─╝╞"NR5D3NR4D4R5BU7BR4*▌╞╞"NR5D3NR4D4R5BU7BR4+╨╞"BD1D1F1R3F1D2G1L3H1BU5E1R3F1BU1BR4+фD$│ И(D)+"юL│ З(D$)м1+4°D$│ Р(D$,2,L)+BА X│1 е L+ZD(X)│ Й( Р(D$,X,1))+bЛ X+p ╞"BM6,180+~*А X│1 е L+Й4N│D(X)+Ч>А Y│0 е N+аHН C$+иRЛ Y+▒\╞ C$+╖fП+┐pЛ X+┼zР+тДЖ BR4L2G2D3F2R2E2U3H2BR6+√ОЖ BR3BD7NR3BRU7NGBR8,ШЖ BDER2FDG4DR4BU7BR5,3вЖ BDER2FDGNLFD2GL2HBU6BR10,JмЖ BR4ND7G4R6BU4BR4,e╢Ж BD6FR2EU3HL2GU3R4BR4,Й└Ж BR7BDHL2G2D3F2R2EU2HL2GBR8BU4,Ь╩Ж R6G6DBR10BU7,╣╘Ж BR4LGDFGD2FREU2HEUHBR6,┌▐Ж BD6FR2E2U3H2L2GDFR2EBU2BR4-
шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS.-ЄЮ-0№З@38,"CHROMASETTE MAGAZINE"-WЗ"   ISSUE #9         MARCH 1982";-]З-ЕЗ:З" ALL PROGRAMS CONTAINED HEREIN"-жЗ"      COPYRIGHT (C) CLOAD"-╔$З"    MAGAZINE  P.O. BOX 1448"-э.З"    SANTA BARBARA, CA 93102.".8З"   REPRODUCTION BY ANY MEANS".6BЗ"   PROHIBITED. CLOAD MAGAZINE".\LЗ" ASSUMES NO RESPONSIBILITY FOR".ВVЗ"  ERRORS, OMISSIONS OR DAMAGES".з`З"   CAUSED BY THE USE OF THESE".╝jЗд11)"PROGRAMS.".═~АI│1е5000:ЛI.╙ИР00.ьнX│Xл1:NX│NXл1/пЕ X▓S з З"NO E                                                                                                                                                                                                                                                                 ╓:
:ГMARK GRANGER 8854 ROBIN HOOD    LA JOLLA, CA 92037^:ГMODIFIED BY CHROMASETTE STAFF║:Г ALL COVERS MUST HAVE THE    LOGO AT THE TOP OF THE SCREEN   DURING GRAPHICS DISPLAY.:ГDECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.}:ГLINES 50-95 PUT THE LOGO ON  SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.╧:ГDISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.р
└4:╚4,1:┴1,4 	М LO$(7),N1(75),N2(75),N3(75),N4(75) Q│0 (╝:┐ 1,1 ы2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"!╣4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк""З6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"#U8LO$(3)│"кккйZккЦккккккккккккккккZЦкккккккккйZккЦкЦккккккккккккккZЦкккккккккеZккЦкЦккккккккккZкккZЦкккккккккеZккЦZХккккккккккZкккZЦкккккккккеjккХVХUiZйeiZкVZZкккZЦкккккккккеjккХVХUeVйeYZйUZZкVкZЦкVкккк"$#:LO$(4)│"кккеjккUЦХUeVйUUVеUYZйUеUUiUкккккккеjккVЦЦХЦейUUVеiYVйUеUUiUкккккккеjккVЦVЦЦейZVЦХйYVеeeUUeejккккккеjккZЦZVЦейjZЦЦйYVейijZейjккккккеjккZЦZZVеeiZVЦйiUХйijZейjккккккеjккZЦYZZйeйjZVйeeЦйijZЦйjккк"$ё<LO$(5)│"кккеjккZЦYjZйeйjZZйeеЦйijZЦйjккккккеjккZVYjZйeйjZZйeеХUijZХUjккккккеZкйZZYjZйeйjZZйeеХUйjZХUкккккккеZкйjZYjZйeйjZZеeйUVеiZХVкккккккйVкйjYYjЦеХеiZZекйVкейjЦккккккккйVкйjYijЦеЦейjZекеVкейjЦккккк"%┐>LO$(6)│"кккйUкйjYijЦеЦейjZекеVкейjЦкккккккккUUUjYiZЦеЦейjЦХкХХкейjХкккккккккUUUjUjUUUЦейUUUUUеUUYUeUjкккккккХUUjUjUUVЦейUUUUVеUUYUiUjкккккккеUUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк"&ALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є
5J&█5жА5 5J&╞9"&/FVP│0:AD│0:VP│ Э(LO$(0))&LKAD│ Ж(VPл2)н256л Ж(VPл3)&^PVP│ Э(LO$(7))&АUQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q&УXТQл7, Ж(25)м25&┴Z╞"S4A0C3BM0,191R255U149L255D148R255BM0,0"&╬_Q│ Г(AD)&юd:Г*** ARCHIMEDES SPIRAL ***&¤nА SP│1 е 8' Б 
:ГCOPYRIGHT (C) CLOAD 1982<:ГBY ALEXANDER BENENSONV:Г585 WEST END AVENUEo(:ГNEW YORK, NY 10024│2Ю:З"       M I N I M U S I C             BY ALEXANDER BENENSON"┌<З@195,"DO YOU NEED INSTRUCTIONS?";юFA$│ Т:ЕA$│""з70PЕA$│"Y"зЮ:Бе270:ДЕA$┤▓"N"з702ZЮ:PO│1024:OL│96:З@352,;:AR│247NdA$│ Т:ТPO,OL:ТPO,OL ░63╧nЕ Ж(341)│AR зNE│POм32:Бе150:ДЕ Ж(342)│AR зNE│POл32:Бе150:ДЕ Ж(344)│AR зNE│POл1:Бе150:ДЕ Ж(343)│AR зNE│POм1:Бе150:ДЕA$│""з100 dx╔"V31T255O1AT2O2V5":A│ К(A$):ЕA│92зО:ДЕA│62з170:ДЕA│60з180:ДЕA│32зA│143:ДЕA│13з200:ДЕA│35з240:ДЕA│36з260:ДЕA│12зТPO,OL:OL│ Ж(1024):PO│1024:Бе100 ЧВЕPO┤1024з100:ДЕPO▓1535зPO│1535:OL│ Ж(PO):Бе100 ╓МЗ@POм1024,A$;:OL│ Ж(POл1):PO│POл1:ЕPO▓BG зBG│PO:Бе100:Д100 ЎЦТPO,OL:ЕNE┤1024▒NE▓1535з100!#аPN│ Ж(NE):ЕPN│239з100:ДOL│PN:PO│NE:Бе100!cкТPO,OL:АN│BG еPO йм1:ТNл1, Ж(N):ТN,96:Л:OL│96:BG│BGл1:Бе100!з┤OL│ Ж(POл1):АN│POл1 еBG:ТNм1, Ж(N):ТN,96:Л:ТPO,OL:BG│BGм1:Бе100!╢╛ТNм1, Ж(N)!ы╚P$│"":ТPO,OL:АN│PO еBGм1:P│ Ж(N):ЕP│143▒P│96з230!№╥ЕP▓90зP│Pм64"▄P$│P$л Л(P)"цЛ:╔P$:Бе100"fЁЮ:ЧM"SCORE":OL│ Ж(1024):PO│1024:АN│1535е1024йм1:P│ Ж(N):ЕP│143▒P│96зЛ"u·BG│N:Бе100"Я
ТPO,OL:ШM"SCORE",1024,1535,1024:Бе100#Й
З"MINIMUSIC IS A SCREEN BASED     MUSIC SCORE PLAYING/EDITING     PROGRAM. THE SYNTAX IS THE SAME AS EXTENDED BASICS PLAY COMMAND.":З"ONCE YOU HAVE TYPED IN A SCORE, PRESSING ENTER WILL PLAY THE    SCORE FROM THE CURSOR POSITION,$

З"PRESSING CLEAR WILL MOVE THE    CURSOR TO THE START POSITION,   PRESSING SHIFT & CLEAR WILL     ERASE THE SCORE."$*
"З@480,;:Й"PRESS ENTER TO CONTINUE";A$╗
,Ю:З"USE ARROWS TO MOVE THE CURSOR.  PRESS > TO INSERT A SPACE, <    TO DELETE. PRESS $ TO SAVE THE  SCREEN ON TAPE, # TO LOAD A     SCREEN."%S
6З:З"IF YOU GET A ?FC ERROR WHILE    PLAYING OR PRESS BREAK ACCI-    DENTALLY, ENTER GOTO 60, AND    CORRECT THE MISTAKE BEFORE      PLAYING AGAIN."%~
@З@480,;:Й"PRESS ENTER TO BEGIN";A:Бе90UUjХjХUZЦекUеYUjкUUYUjUjккккккккккккккккккккккккккккккккккк"&ALO$(7)│"╜│э
О Ж 4жа4 4Ж4╞жДзд
Г р
Г рZ&ыГ Є                                                                                                                                                                                                                                                                3D3NL30$ЖC,NR4U5R4BD50-$"ЖD,R1U5BL1R4D5NL30D$,ЖE,NR4U3NR2U2R4BD50X$6ЖF,U3NR2U2R4BD50o$@ЖG,NR4U5R4BD2NL2D30Г$JЖH,U5BR4D2NL4D30О$TЖI,NU50Ю$^ЖJ,NU2R3NU50│$hЖK,U2NU3NE3BE1F30└$rЖL,NU5R30╨$|ЖM,U5F3E3D50▀$ЖЖN,U5F5NU50Ё$РЖO,U5R4D5NL41$ЪЖP,U5R4D2NL4BD31$дЖQ,U5R4D5NL4NH2NF11-$оЖR,U5R4D2L3F31B$╕ЖS,R4U3L4U2R4BD51W$┬ЖT,BU5R2ND5R2BD51g$╠ЖU,NU5R4NU51}$╓ЖV,BU5D2F3E3U2BD51П$рЖW,NU5E3F3NU51а$ъЖX,NE5BR5NH51╡$ЇЖY,BR3U3NH2E2BD51╞$■ЖZ,BU5R5G5R51╙%Ж" ",BR21▐%Ж.,NU11Ё%Ж!,BU5D3BD2R02%&Ж$,BU1R4U2L4U2R4BL2BU1D6BR32%0Ж//,//2+'┐1,1:Бе99992@N :Г''INSTRUCTIONS2nN*Ю:З@96," ANTI-BALLISTIC MISSILE COMMAND*"3IN4З" LONG RANGE RADAR INDICATES AN  ATTACK BY UNKNOWN FORCES OF     INTER-CONTINENTAL BALLISTIC     MISSILES.                        IT IS YOUR JOB TO DESTROY THE  INCOMING WAVES OF BOMBS WITH    THE FLEET OF ABM'S."4N>З"  YOU MUST USE THE JOYSTICK TO  POSITION THE CURSOR OVER A BOMB AND FIRE THE ABM BEFORE ANY     INCOMING ICBM'S MAKE IT TO THE  BOTTOM OF THE CITIES/COUNTRY ANDDETONATE THE UNDERGROUND POWER  SYSTEMS.";4JRD│20:З@32,"*EMERGENCY*EMERGENCY*EMERGENCY*"4hRK$│ Т:ЕK$┤▓""зР:ДАI│1еD:Л4УRЗ@32,"*emergency*emergency*emergency*"4╣R&K$│ Т:ЕK$┤▓""зР:ДАI│1еD:Л:Бе210004╦ъ`:Г''FUNCTIONS4тъjJ1│0:J2│1:JB│652805ъИ╣ ╠M(M)│256н Ж(M)л Ж(Mл1)5&ъТ╣ ╠JB(B)│и( Ж(JB)│255▒ Ж(JB)│127)5CъЬN0│0:N1│1:N2│2:N3│3:N4│45`ъжN5│5:N6│6:N7│7:N8│8:N9│95nъ░HS│0: Я│05tъ║Р                                                                                                                         Y{   я                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       85:ДXB│XBлB(I,N2):YB│B(I,N1)лB(I,N3)'f║PP│ а(XB,YB):ЕPP│ECлCS зBH│BHлN1:RN│ Д(N2):Бе5065:Д╜(XB,YB,H3)'з─Бж6000:ЕYB▓BO з4000:ДЕPP┤▓FCлCS з5080:ДRN│ Д(14)лN2:BL│BLлN1'╖╔D│N2:Бж2000(╬АJ│мN1 еN1:╗(XBлJ,YB)м(BO(I,N0)лJ,BO(I,N1)),╛:Л:XB│N0:BD│BDлN1:BR│BRлN1(8╪B(I,N0)│XB:B(I,N1)│YB:Бж6000:ЕI│ Б(BNоN2)зБж7000(@▌Л:Р(Qь:Г''GEN BOMB(fЎЕBN┤BM зBN│BNлN1(tАI│N1 еBN(К
B(I,N0)│ Д(99)л75(аB(I,N1)│ Д(10)л18(╢(B(I,N2)│ Д(N5)мN3(╬2B(I,N3)│ Д(N5)лN5:Л(∙FАI│N1 еBN:АJ│N0 еN1:BO(I,J)│B(I,J):Л:Л( oР)
p:Г'JOY)IzCX│N4н Н(N0):CY│ Б(N3н Н(N1)):ЕCY▓BO зCY│BO :ДЕCY┤30зCY│30)[ЕCX┤N4 зCX│N4)nВЕCX▓251зCX│251)ЦДW1│CXмN4:W2│CYмN4:W3│CXлN4:W4│CYлN4)см─(W1,W2)м(W3,W4),C,G:┼(W1,W2)м(W3,W4),CU,╜:┼(W1,W2)м(W3,W4),C,╜:Бе7100)ЇX:Г''EXPLOSIONS*'lЕE│N0 зР:Д┬(EX,EY),E,EC,N1мEо40:├(EX,EY),EC,EC*aАE│EлN5:ЕE┤20зР:ДE│EмN6:E1│H3:┬(EX,EY),EлN2,E1,N1мEо50*УКАCF│N1 еN4:ЕCF┤▓E1 ░CF┤▓FC з├(EX,EY),CF,E1лCS*ЩПЛ*╧Ф├(EX,EY),BC,E1лCS:┬(EX,EY),EлN2,BC,N1мEо50:E│N0:Р+R╝ЕE│N0 зЕи( Ж(JB)│255▒ Ж(JB)│127)зXQ│(CX▓128)нм255:╗(XQ,96)м(CX,CY),╜:E│N8:EX│CX:EY│CY:╔"O1BAGFEDC":BU│BUлN1:╗м(XQ,96),╛:Бж7000+XР+l@:Г''DRAW CITIES+ЫJZ│FC:FC│H2:Y│160:┴FC,BC:И Д(N2)Бе8020,8045+лTАX│0е255й15+╘^Y│ Е(Xн.08)н10л Е(Xн.05)н5л160л Д(4)+∙cЕX│N0 з╗(X,Y)м(X,Y),╜:Д╗м(X,Y),╜,hЛ:Бе8050,mБж1000,ir╗м(255,Y),╜:├(128,190),H2,H2:TX│05:TY│17:FC│H4:TS│8:TG│3:PT$│ И(HS)л"  "лHS$:Бж9000,зwАL│0е99:X│ Д(255):Y│ Д(80)л110:Е а(X,Y)┤▓BCлCS з╜(X,Y,H4),╗РЛ:FC│Z:┴FC,BC:Р,ыдDT$│"TXT":TG$│"BR3":SC$│"":PC$│" ICBMS HIT"-йАI│1е З(PC$):П:Z3$│ Р(PC$,I,N1)-'оНZ$:ЕZ$┤▓"TXT"з8110-C╕НZ1$,Z2$:ЕZ1$┤▓Z3$з8120-[┬SC$│SC$лZ2$лTG$:Л:Р-y╓HC$│"":PC$│ И(HS)л" "лHS$-ЯрАI│N1 е З(PC$):П:Z3$│ Р(PC$,I,N1)-╖ъНZ$:ЕZ$┤▓"TXT"з8170-╙ЇНZ1$,Z2$:ЕZ1$┤▓Z3$з8180-ы∙HC$│HC$лZ2$лTG$:Л:Р.8#(╞"A"л И(TA)л"S"л И(TS)л"C"л И(FC)л"BM"л И(TX)л","л И(TY):TG$│"BR"л И(TG).s#PАI│N1 е З(PT$):П:Z3$│ Р(PT$,I,N1):ЕZ3$│" "з╞TG$:Бе9100.Л#UНZ$:ЕZ$┤▓"TXT"з9045.┴#nНZ1$,Z2$:ЕZ1$│"//"з9100:ДЕZ1$┤▓Z3$з9070:Д╞Z2$лTG$.╔#МЛ:Р.ц#Ц:Г CHARACTER DEFINITIONS.ё#ЫЖ"TXT"/#аЖ0,U5R4D5L4NE4BR4/#кЖ1,BU4E1D5BL2R4/2#┤Ж2,BU5R4D2L3G1D2R4/I#╛Ж3,BU5R4D2NL3D3NL4/]#╚Ж4,BU5D2R4BU2D5/v#╥Ж5,BU5NR4D2R3F1D2NL4/Р#▄Ж6,BU5NR4D2NR4D3R4NU3/ж#цЖ7,BU5R4D1G2D2BR2/╛#ЁЖ8,U5R4D2L4BD3R4NU3/╫#·Ж9,BU3U2R4D2NL4D3NL4/ъ$ЖA,U5R4D2NL4D30$ЖB,R1U5BL1R4D2NL,DA$00З" FOUND "лDA$0!:Бе18600EDЗ" ENTER OTHER INPUT FILE TYPE"0aNЗ" DISK(D) OR TAPE(T)."0jXЙBB$0|bЕBB$│"T"з19500ПlЕBB$┤▓"D"з18600▓vЗ" ENTER OTHER DISK FILE NAME"0╗АЙDB$0╩КЩ"I",2,DB$0╒ФБе20201ЮЕAB$│BB$зЗ" invalid file type.":Бе16701иЗ" ENTER TAPE FILE NAME."1'▓ЙDB$1B╝З" SEARCHING FOR "лDB$1S╞Щ"I",#м1,DB$1f╨З" FOUND "лDB$1q┌Бе20201wфВ1КюЕAB$┤▓"D"з20601Ч°╗Й#1,IA$1вБе20901нВ TAPE1╗╗Й#м1,IA$1╞ Бе20901┘*ЕBB$┤▓"D"з21201ц4╗Й#2,IB$1ё>Бе21401 H╗Й#м1,IB$2
RБе21402'\CNT│CNTл1:ЕIA$┤▓IB$з22302:fЗDA$л" = "лIA$2MpЗDB$л" = "лIB$2]zАT│1е200:ЛT2oДЕAB$│"T"з22102ОЕ М(1)з23102КШБе20202ЫвЕ М(м1)з23102жмБе20202╥╢З:З" COMPARE ERROR IN RECORD #"л И(CNT)2▄└I$│""3╩З"(PRESS 'R' TO READ NEXT RECORD)"3$╘З" (PRESS ANY KEY TO ABORT)"3*▐З3@шI$│ Т:ЕI$│""з22803QЄЕI$│"R"з21503]№Ъ:Бе1503t	Ъ:З" done":а100,103Щ	З" "л И(CNT)л" RECORDS COMPARED"3к	АT│1е1000:ЛT3┤	$Бе150                                                         Y{   я                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       A$'╩Бе690'╘ЕSO│0з1000'"▐ЗA$'1шЕPO│0з1020'=ЄЗ#м2,A$'M№ЕTPO│0з1040'YЗ#м1,A$'hЕDO│0з1060'sЗ#2,A$'y$Ъ'К.З:З"   done"'о8З:З" TOTAL RECORDS = "л И(CNT);'║Bа110,10'═LЗ:З:З" AGAIN?"'╓VЙAG$'э`Е О(AG$,1)┤▓"N"з40(jЮ0:З:З:З" T.T.F.N. "(tК(3~Ю:З"1 - ALL FILES MUST BE 'ASCII'.(WИЗ"2 - FILES CAN BE COPIED FROM"(zТЗ"    ANY ONE(1) INPUT DEVICE"(ЬЬЗ"    TO ANY OR ALL OF YOUR "(╖жЗ"    OUTPUT DEVICES."(▐░З"3 - A RECORD COUNT WILL BE KEPT")║З"    ON THE SCREEN UNLESS THE")&─З"    THE SCREEN IS ONE OF THE")L╬З"    OUTPUT DEVICES. THE RECORD")r╪З"    COUNT WILL BE DISPLAYED IN")ХтЗ"    ANY CASE WHEN COMPLETE.")║ьЗ:З" PRESS 'ENTER' TO CONTINUE";)├ЎЙAX$)щЮ:З" KEYBOARD INPUT - ALLOWS THE"*
З"  USE OF THE KEYBOARD AS AN"*1З"  INPUT DEVICE TO BUILD ASCII"*UЗ"  FILES. TO END THE INPUT --"*l(З"  ENTER-   /END"*t2З:З*Щ<З" CASSETTE INPUT - ALLOWS THE "*┐FЗ"  USE OF ASCII FORMATTED TAPES"*тPЗ"  TO BE COPIED TO ANY OTHER"+ZЗ"  DEVICE. I.E. DISK OR PRINTER"+-dЗ:З" PRESS 'ENTER' TO CONTINUE";+6nЙAX$+_xЮ:З" PRINTER OUTPUT - ALLOWS YOU TO"+ДВЗ"  PRINT OUT ANY ASCII FILE TO"+кМЗ"  GET HARDCOPY OF THE CONTENTS"+╥ЦЗ:З" CASSETTE OUTPUT - CAN BE USED"+ЎаЗ"  TO COPY AN ASCII FILE FOR ",кЗ"  FUTURE USE.",5┤З:З:З"** IF DISK IS AVAILABLE TO THE",\╛З"** SYSTEM, IT WILL BE AVAILABLE",А╚З"** TO 'DUMPALL' AS INPUT AND",Т╥З"** OUTPUT.",╖▄З:З" PRESS 'ENTER' TO CONTINUE";,└цЙAX$,рЁЮ:З" THE INPUT FORMAT IS -", ·З" I=INPUT DEVICE NUMBER."-З" O=OUTPUT DEVICE NUMBER."-EЗ:З" MULTIPLE OUTPUT DEVICES ARE"-VЗ" ALLOWED."-|"З" I.E. - TAPE IN,SCREEN OUT AND"-Ь,З" PRINT OUT. WOULD BE 234"-─6З:З" #8 COMPARE - WILL COMPARE TWO"-ъ@З"  ASCII FILES BETWEEN DISK AND".
JЗ"  TAPE OR DISK AND DISK FOR".4TЗ"  ACCURACY. NOTE: ONLY VALID ON".K^З"  DISK SYSTEMS.".phЗ:З" PRESS 'ENTER' TO CONTINUE";.yrЙAX$.|Р.ТЖВ FILE COMPARE.бРЕDK│1з1710.╟ЪЗ"  invalid command  -  no disk!".█дЗ:З:а1,10:Бе150/ оCNT│0:Ю:З" ENTER THE INPUT FILE TYPE":Й" TAPE(T) OR DISK(D)";AB$/<╕ЕAB$┤▓"T"░AB$┤▓"D"з1710/N┬ЕAB$│"T"з1790/_╠В DISK INPUT/В╓З" ENTER INPUT DISK FILE NAME"/ЛрЙDA$/ЪъЩ"I",1,DA$/еЇБе1860/╢■В TAPE INPUT/╬З" ENTER TAPE NAME"/╫ЙDA$/ЄЗ" SEARCHING FOR "лDA$0&Щ"I",#м1 ╖ :ГCOPYRIGHT (C) CLOAD 1982Ъ:ГTHIS PROGRAM BY:                      PHILIP BEISTEL                  1439 ARNOLD ST.                 PGH,PA  15220╣
Ю0:Х2000:З@266,"DUMP-ALL";├CNT│0╙АT│1е500:ЛTЁ(KI│0:TI│0:DI│0:SO│0:PO│0 2TPO│0:DO│0><Ю0:З"            DUMPALL ":З:З" ASCII DUMPALL -- UTILITY."iFЗ@192," COPIES 'ASCII' FILES FROM ONE"ОPЗ" MEDIUM TO ANY OR ALL OTHERS."оZЗ" ACCEPTS 1 INPUT (I) AND"╥dЗ" UP TO 4 OUTPUT (O) DEVICES."ўnЗ:З" DO YOU REQUIRE DIRECTIONS." xЙ" (Y OR N)";YN$ #ВЕ О(YN$,1)│"N"з150 .МБж1150 :ЦЮ:CNT│0 EаВ MENU eкЗ" DUMP-ALL FUNCTION MENU." А┤З"  1. KEYBOARD INPUT. б╛З"  2. CASSETTE TAPE INPUT." ╝╚З"  3. SCREEN OUTPUT." ╪╥З"  4. PRINTER OUTPUT." ї▄З"  5. CASSETTE OUTPUT."!'цЕ Ж(&HC000)│68 ░  Ж(&HC001)│75 з DK│1 :Д DK│0!5ЁЕDK│0з280!M·З"  6. DISK INPUT."!f
З"  7. DISK OUTPUT."!Б
З"  8. COMPARE FILES."!н
З:З" ENTER FUNCTIONS(IOOOO)":З" ";:╗ЙI$!╛
"ЕI$│"8"з1670!╨
,Е З(I$)┤2з170!т
6Е З(I$)▓5з170!є
@IN$│ О(I$,1)":
JЕIN$│"4"▒IN$│"5"▒IN$│"3"▒IN$│"7"зЮ:З" invalid entry !":а1,10:Бе170"[
TЕDK│0░(IN$│"6"▒IN$│"7")з1690"s
^ЕIN$│"1"зKI│1:Бе380"Л
hЕIN$│"2"зTI│1:Бе380"Э
rЕIN$│"6"зDI│1"о
|АXI│2е З(I$)"┬
ЖOX$│ Р(I$,XI,1)"╠
РБж430"╘
ЪЛXI"▐
дБе480"Є
оЕOX$│"7"зDO│1:Р#

╕ЕOX$│"5"░TI┤▓1зTPO│1:Р#!
┬ЕOX$│"4"зPO│1:Р#5
╠ЕOX$│"3"зSO│1:Р#;
╓Р#O
рВ OPEN ROUTINE.#]
ъЕKI│0з510#p
ЇЩ"I",#0,"KEYS"#~
■ЕTI│0з560#ЭЗ" NAME OF TAPE FILE":ЙTN$#└Ю0:З@192," SEARCHING FOR "лTN$#╤Щ"I",#м1,TN$#щ&З@192," FOUND "лTN$#ў0ЕDI│0з590$:З" NAME OF INPUT DISK FILE":ЙDN$$+DЩ"I",1,DN$$CNВ OPEN OUTPUT FILES$QXЕPO│0з620$gbЩ"O",#м2,"OUTPUT"$vlЕTPO│0з650$ЬvЗ" NAME OF TAPE OUTPUT FILE":ЙTP$$нАЩ"O",#м1,TP$$╗КЕDO│0з680$сФЗ" NAME OF OUTPUT DISK FILE":ЙDF$$ЁЮЩ"O",2,DF$$ўиЮ0%▓В ALL FILES ARE NOW OPEN%"╝ЕKI│0з750%)╞Ю0%2╨╗ЙA$%E┌ЕA$│"/END"з980%XфБе820:В OUTPUT%fюЕTI│0з790%s°╗Й#м1,A$%ЛЕ М(м1)з980:В CLOSE%ХБе820%б╗Й#1,A$%╕ Е М(1)з980:В CLOSE%╦*Бе820:В OUTPUT%┘4ЕSO│1з840%ш>З@270,CNT;%ЎHCNT│CNTл1&RЕSO│0з870&\ЗA$&fЕPO│0з930&+pPK│ Ж(65314)&ОzЕPK│7▒PK│5▒PK│3зЮ0:З@450," printer not ready !!";:З@480,"MAKE PRINTER READY! OR 'BREAK'"::Д920&║ДPK│ Ж(65314):Е PK│7 ▒ PK│5 ▒ PK│3 з 900&┴ОЮ0&═ШЗ#м2,A$&▄вЕTPO│0з950&шмЗ#м1,A$&Ў╢ЕDO│0з690'
└З#2, wе
:Г         ABM!                       GEORGE ZINIEWICZ              7701 E. OSBORN #176          SCOTTSDALE, ARIZONA 85251     ********************************╜:ГTXT@9K:VARLST@30K▄:ГCOPYRIGHT (C) CLOAD 1982єХ500,16383:╚0,1:└4 Бж60000^	:Г IF WHEN IN NEW COLOR SET RED    AND GREEN ARE SWAPPED, THEN     SWAP H2 & H3 IN LINE 10Т
PM│3:CS│12:H1│1:H2│2:H3│3:H4│4:FC│H2:BC│H1:EH│0г╚PM,1:┴FC,BC╜
Бж20000:ГINSTRUCTIONS╧╝:┐1,ми(CS│0)°ЕCS▓│8зCS│CSм8:EH│м1:Т65314,240л2нCS BM│32:МB(BM,3),BO(BM,1),C(5),CU(5) +(:Г''ABM T*Ю0:З"HI SCORE       #HIT     #ICBMS" Щ-З@6н32," ANTI-BALLISTIC MISSILE COMMAND ";:HS│0:HS$│"ABM":Бж8100 ╫2CC│H3:╝:╞"C"л И(CC)л"BM4,4NU4NR4ND4NL4":─(0,0)м(8,8),CU,G!FBU│0:BR│0:BD│0:E│0:D│0:JF│3:BO│186:EC│H4:BN│0:BH│0:AC│H3!cKЗ@352,"HOW MANY ICBM'S TO START? (1-30)":ЙK$:K│ Б( Й(K$)):ЕK▓0░K┤31зBN│Kм1!nPБж5100!}U╔"V31T255"!└ZQ$│",":B$│"BM":C$│"C":E$│"S2NU4NR4ND4NL4":CU$│"S2NU4NR4ND4NL4"!╞_╝!·`TX│140:TY│18:TS│10:TG│3:PT$│"0  "л И(BN):Бж9000"
b┐1,1:Бж8000"/c┐1,ми(CS│0):ЕEH зТ65314,240л2нCS"╦e:ГVARIABLE LIST:BU=TOTAL BOMBS:BD=BOMBS DESTROYED:BN=# INC BMBS:D=ICBM HIT FLAG:AR=ICBM EXPL RADIUS:BH=TOTAL BMBS NEUTRALIZED:BR=BMBS DESTRY THIS ROUND"р╚Бж2000:ГICBM EXP"Є
,Бж3000:ГSCORE#
РБж6000:ГCURSOR#
ЇБж5000:ГTRAK INC ICBM#3XБж6000::ГCURSOR#J╝Бж7000:ГGROUND EXP#U Бж6000#_ДБе200#lш:ГCITIES#эX│0:Y│150:Y1│Y#ПЄАI│0е255й10#з№ЕI│0з╗(0,Y)м(0,Y),╜#╢X│Iл Д(10)#─╗м(X,Y),╜#╫Y│ Д(40)м20лY1#х$╗м(X,Y),╜#ы.Л#ёBР$╨:Г''ICBM EXP$K┌ЕD│N0 зР:ДЕD│N2 з╔"O1GAV<EFV<CDV31":D│N1:AR│N2:AL│1.5нRN:AX│XB:AY│YB$gфAR│ARлN2:ЕAR▓AL зD│N0:Р$Лю┬(AX,AY),AR,H4:┬(AX,AY),AR,BC:Р$Ы╕:Г''SCORING%!╠ЕFE┤▓N0 зР:ДЕBR│BN зBR│N0:TX│140:TY│18:TS│10:PT$│ И(BH)л"  "л И(BNлN1):Бж6000:╗(130,N0)м(255,20),╛,BF:Бж6000:Бж9000:Бж6000:Бж5100%'Р%3а:Г''END%:дЮ0%BеC│1%QкАR│1е250й9%b┤┬(XB,YB),R,C%y╣C│CлN1:ЕC│N5 зC│N1%Т║╔"O1"л";"л И( Д(12))%в╗ЕC│BC з4025%и╛Л%┴╚╗(0,0)м(255,20),╛,BF%э╥TX│10:TY│14:TS│6:PT$│ И(BH):Бж9000:╞SC$%¤▄АD│1е2000:Л&P З"ATTACK LEVEL",BN:З"ICBM'S DOWNED",BH:З"BOMBS LANDED",BLл1:З"WEAPONS USED",BU&`АD│1е1000:Л&─ЕBD▓HS зHS│BD:╔"O3V31T32CCFGGAB":З"YOURS IS A HIGH SCORE":З"ENTER YOUR NAME":ЙHS$:HS$│ О(HS$,3)&═Бе70&█И:Г''BOMBS'#░АI│N1 еBN:XB│B(I,N0):ЕXB│N0 з50                                                                                                                                                                                                                                                                                            ╞─┴$╚&'╞┴*+,┴                       MOIRECOVBAS"BLEEP   BAS#DDUMPALL BAS ║ABM     BAS!zDISASSEMBAS%ЭSHRINK  BIN(╞CHECKREGBAS)╔PIRAL  BAS┘INMUSICBASДMAZING BAS╩DDRESS BAS-'LDHOUSEBASмKMON   BIN0▄                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 V                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  A!
В   ***********************AВ   ***      BLEEP!     ***aВ   ***        BY       ***БВ   ***MICHAEL R. HUGHEY***бВ   *** ROUTE 2, BOX 90 ***┴В   *** KING GEORGE,VA. ***сВ   ***********************:ГCOPYRIGHT (C) CLOAD 1982
Бж540:Ю3:Бе80)Е Ж(341)│247зN│Nм1@Е Ж(342)│247зN│Nл1W(Е Ж(343)│247зM│Mм1n2Е Ж(344)│247зM│Mл1╢<K│Kл1:ЕK│9зK│1:T│Tл1:З@372,"TIME: "; И(XмT);:ЕT▓Xм10зЗ@380, Л(128);╝FР PЗ@230,"SPEED (fAST OR sLOW)?";:A$│ Т:ЕA$│"F"зТ65495,0::ДЕA$│"S"зТ65494,0::Д80 XZЗ@230," JOYSTICKS (Y OR N)? ";:A$│ Т:ЕA$│"Y"зJY│1::ДЕA$│"N"зJY│0::Д90 ЛdЮ0:NL│0:P│2:T│0:K│0:SC(1)│0:SC(2)│0:X│50:Бж240 ╣nАI│1е2:З@121л96нPм З( И(SC(I))),SC(I);:ЛI шxR│ Д(8):B$│ Л(127лRн16):B│ Д(14)л Д(14)н32 ЇВЗ@B,B$;!	МЕJY│0зБж20:Бе180!aЦG│ Н(0):H│ Н(1):K│Kл1:ЕK│9зK│1:T│Tл1:З@372,"TIME: "; И(XмT);:ЕT▓Xм10зЗ@380, Л(128);!аЕG▓48зM│Mл1::ДЕG┤16зM│Mм1!ЭкЕH▓48зN│Nл1::ДЕH┤16зN│Nм1!╖┤ЕM┤1зM│1::ДЕM▓14зM│14!╤╛ЕN┤1зN│1::ДЕN▓14зN│14!ь╚З@MлNн32, Л(127лKн16);"X╥ЕMл32нN│B з╔"T255;L255;CEGB":SC(P)│SC(P)л1:З@ Ш(121л96нPм( З( И(SC(P)))л1)о2),SC(P);:З@B, Л(128);:Бе120"▄ЕT│X з230:ДЗ@MлNн32, Л(128);:Бе140"ПцБж290:Бе120"тЁЗ@0, б(16,175);:З@480, б(16,175);:АI│32е448й32:З@I, Л(175);:З@Iл15, Л(175);:ЛI#D·З@17, б(15,191);:З@497, б(14,191);:АI│49е465й32:З@I, Л(191);:З@Iл14, Л(191);:ЛI:Т1024л511,191$	
З@51,"HIGH  SCORE";:З@ Ш(89м З(HS$)о2),HS$;:З@ Ш(121м( З( И(HS))л1)о2),HS;:З@180,"PLAYER  1";:З@ Ш(217м( З( И(SC(1)))л1)о2),SC(1);:ЕNP│2зЗ@276,"PLAYER  2";:З@ Ш(313м( З( И(SC(2)))л1)о2),SC(2);$
Бж290$
Р$Н
"З@B, Л(128);:З@Mл32нN, Л(128);:ЕP│1зЕNP│2зP│2:T│0::ДP│1:T│0:NL│NLл1:ЕNL│4з320::Д300::ДP│1:T│0:NL│NLл1:ЕNL│4з320%
,Т1024,175:АJ│1е3:З@372,"PLAYER "; И(P);:З@404,"GET READY";:Т65314,8:АI│1е500:Л:АI│1е10:а100,1:ЛI:З@372, б(9,128);:З@404, б(9,128);:ЛJ%
6Р%9
@ЕSC(1)▓HS зHS│SC(1):Z│1%U
JЕSC(2)▓HS зHS│SC(2):Z│2%б
TЗ@370, б(13,128);:З@402, б(13,128);:З@434, б(13,128);:З@466, б(13,128);&	
^ЕZ│0зЗ@372,"GAME OVER";:З@403,"HIT =ENTER=";:З@437,"TO PLAY";:З@470,"AGAIN";:Е Ж(338)│191з100::Д350&[
hЗ@372,"GAME OVER";:З@406,"ENTER";:З@435,"YOUR  NAME,";:З@468,"PLAYER "; И(Z);'"
rXH│10:YH│12:BL$│ Л(128):З@66,"A";BL$;"B";BL$;"C";BL$;"D";BL$;"E";:З@130,"F";BL$;"G";BL$;"H";BL$;"I";BL$;"J";:З@194,"K";BL$;"L";BL$;"M";BL$;"N";BL$;"O";:З@258,"P";BL$;"Q";BL$;"R";BL$;"S";BL$;"T";'П
|З@322,"U";BL$;"V";BL$;"W";BL$;"X";BL$;"Y";:З@386,"Z";BL$;BL$;BL$;BL$;BL$;BL$;BL$;" ";:З@450,"   RUB   ";'╗
ЖЗ@463,"D";:З@431,"N";:З@399,"E";:HS$│""'я
РЗ@82, б(13,128);:З@ Ш(121м( З( И(HS))л1)о2),HS;'∙
ЪБе530($
дЗ@ Ш(89м З(HS$)о2),HS$;:K│Kл1:ЕK│9зK│1(A
оЗ@XHл32нYH, Л(Kн16л127);(P
╕АI│1е100:Л(c
┬З@XHл32нYH,Y$;(▀
╠ЕJY│1зG│ Н(0):H│ Н(1):Бе480::ДЕ Ж(341)│247зYH│YHм1::ДЕ Ж(342)│247зYH│YHл1::ДЕ Ж(343)│247зXH│XHм1::ДЕ Ж(344)│247зXH│XHл1(щ
╓Бе490)+
рЕG▓48зXH│XHл1::ДЕG┤16зXH│XHм1::ДЕH▓48зYH│YHл1::ДЕH┤16зYH│YHм1)\
ъЕXH▓14зЕYH▓12зZ│0:Бе320::ДXH│14::ДЕXH┤1зXH│1)z
ЇЕYH▓14зYH│14::ДЕYH┤1зYH│1)ц
■Е З(HS$)▓0зЕYH│14зЕ Ж(345)│247▒ Ж(65280)│126▒ Ж(65280)│254зHS$│ О(HS$, З(HS$)м1):З@82, б(13,128);:Бе420)¤З@450,"   RUB   ";*ЦY$│ Л( Ж(1024лXHлYHн32)):Е Ж(1024лXHлYHн32)│128з420::ДЕ Ж(345)│247▒ Ж(65280)│126▒ Ж(65280)│254зЕ З(HS$)┤13зЕYH┤14зHS$│HS$лY$:Бе420::Д420::Д420::Д420*╗АJ│1е4:АI│0е8:ЮI:аIн30л1,1:ЛI:ЛJ*╤&Ю3:З@13,"BLEEP!";*№0Т65314,8:╔"T255;L255;CEGB":АI│1е1000:Л+':З@65,"BLEEP! IS A ONE- OR TWO-PLAYER";+QDТ65314,8:╔"T255;L255;CEGB":АI│1е100:Л+|NЗ@97,"GAME WHICH TESTS YOUR REACTION";+ЬXТ65314,8:╔"CEGB":АI│1е100:Л+╚bЗ@129,"TIME. TO PLAY, SIMPLY MOVE THE";+шlТ65314,8:╔"CEGB":АI│1е100:Л,vЗ@161,"FLASHING BLOCK USING THE ARROW";,4АТ65314,8:╔"CEGB":АI│1е100:Л,`КЗ@193,"KEYS OR THE RIGHT JOYSTICK AND";,АФТ65314,8:╔"CEGB":АI│1е100:Л,мЮЗ@225,"TRY TO HIT THE COLORED BLOCKS.";,╠иТ65314,8:╔"CEGB":АI│1е100:Л,°▓З@257,"EACH BLOCK IS WORTH 1 POINT.  ";-╝Т65314,8:╔"CEGB":АI│1е100:Л-D╞З@289,"YOU ONLY HAVE FIFTY SECONDS,SO";-d╨Т65314,8:╔"CEGB":АI│1е100:Л-Р┌З@321,"WATCH YOUR TIME!              ";-░фТ65314,8:╔"CEGB":АI│1е100:Л-тюЗ@453,"PRESS =ENTER= TO BEGIN";:Т65314,8:╗ЙA$.°Ю3:З@260,"HOW MANY PLAYERS (1 OR 2)";.8A$│ Т:ЕA$│"1"зNP│1::ДЕA$│"2"зNP│2::Д770.>Р                                               ?
                                                                                                                                                                                                                                                                 Ъ$
:Г**** 6809 DIS-ASSEMBLER ****_:ГBY C J ROSLUND 150 HOCHBERG     PITTSBURGH, PA 15235~:ГCOPYRIGHT (C) CLOAD 1982ЗХ300м(МM$(2,15),S$(3,15),R$(3),RE$(11)╫2Ю:З" ***** 6809 DIS-ASSEMBLER *****":З■7З"(TURN PRINTER ON IF ANSWER IS Y)1<Й"OUTPUT TO PRINTER (Y OR N)";PR$:Е PR$│"N"з90>FЗ#м2," "OPТ155,80:LL│0bZАI│0е2:АJ│0е15tdНM$(I,J):ЛJ,I▓nЖ NEG,-,-,COM,LSR,-,ROR,ASR,ASL,ROL,DEC,-,INC,TST,JMP,CLR xЖ SUBA,CMPA,SBCA,SUBD,ANDA,BITA,LDA,STA,EORA,ADCA,ORA,ADDA,CMPX,JSR,LDX,STX QВЖ SUBB,CMPB,SBCB,ADDD,ANDB,BITB,LDB,STB,EORB,ADCB,ORB,ADDB,LDD,STD,LDU,STU dМАI│0е3:АJ│0е15 vЦНS$(I,J):ЛJ,I ┤аЖ NEG,-,-,COM,LSR,-,ROR,ASR,LSL,ROL,DEC,-,INC,TST,JMP,CLR ЇкЖ -,-,NOP,SYNC,-,-,LBRA,LBSR,-,DAA,ORCC,-,ANDCC,SEX,EXG,TFR!:┤Ж BRA,BRN,BHI,BLS,BHS,BLO,BNE,BEQ,BVC,BVS,BPL,BMI,BGE,BLT,BGT,BLE!Е╛Ж LEAX,LEAY,LEAS,LEAU,PSHS,PULS,PSHU,PULU,-,RTS,ABX,RTI,CWAI,MUL,-,SWI!▒╚R$(0)│"X":R$(1)│"Y":R$(2)│"U":R$(3)│"S"!╟╥АI│0е11:НRE$(I):Л!ш▄Ж D,X,Y,U,S,PC,-,-,A,B,CC,DP"цЙ"HEX DUMP OR DIS-ASSEMBLY H/D";H$"!ЁЕ H$│"H"з1720"8·Е H$│"D"з260 :Д230"g
Й"START,END ADDRESSES IN HEX     ";AD$,LA$"Л
	AD│ Й("&H"лAD$):LA│ Й("&H"лLA$)"в
Е LL│0з BG$│ Ь(AD)"═
:Г     ********** MAIN LOOP **********"ы
"NS│0:M│ Ж(AD):AM$│"":PA│0#
,MS│ Б(Mо16):LS│Mм16нMS#+
6ЕM│16з690::Г [GO TO SECOND PAGE]#O
@ЕM│17з820::Г [GO TO THIRD PAGE]#q
JЕMS▓3з890::Г [GO TO M$ TABLE]#Ы
T:Г     ********** S$ TABLE **********#д
^NS│1#┼
hЕMS│1░(LS┤4▒LS│9▒LS│13)зNS│0#р
rЕMS│1░(LS│6▒LS│7)зNS│2#√
|ЕMS│3░LS▓8░LS┤▓12зNS│0$

ЖIN$│S$(MS,LS)$$
РИ MS Бе430,510,540$U
ЪA│ADл1:Бж1660::Г [MS NIBBLE=0 : DIRECT PAGE]$l
дAM$│"<"лHX$:Бе1090$М
оЕNS│0з1090::Г [MS NIBBLE=1]$╜
╕ЕNS│1░LS┤13зA│ADл1:Бж1660:AM$│"#"лHX$:Бе1090$╦
┬ЕNS│1з490$▌
╠A│ADл1:Бж1620$ё
╓AM$│ Ь(ADл3лOS)%
рAM$│"$"л б(4м З(AM$),"0")лAM$:Бе1090%C
ъRS│ Б( Ж(ADл1)о16):RD│ Ж(ADл1)м16нRS%f
ЇAM$│RE$(RS)л","лRE$(RD):Бе1090%Й
■A│ADл1:Бж1580::Г [MS NIBBLE=2]%ЭAM$│ Ь(ADл2лOS)%╞AM$│"$"л б(4м З(AM$),"0")лAM$:Бе1090%цЕNS│0з1090::Г [MS NIBBLE=3]&&ЕLS│12зA│ADл1:Бж1660:AM$│"#"лHX$:Бе1090&!0ЕLS┤4з1300&M:PB│ Ж(ADл1):Е LS┤6з SP$│"U,":Д SP$│"S,"&hDЕ(PB ░1)зAM$│AM$л"CC,"&ВNЕ(PB ░2)зAM$│AM$л"A,"&ЬXЕ(PB ░4)зAM$│AM$л"B,"&╖bЕ(PB ░8)зAM$│AM$л"DP,"&╥lЕ(PB ░16)зAM$│AM$л"X,"&эvЕ(PB ░32)зAM$│AM$л"Y,"'АЕ(PB ░64)зAM$│AM$лSP$'$КЕ(PB ░128)зAM$│AM$л"PC,"'>ФAM$│ О(AM$, З(AM$)м1)'IЮБе1090'vи:Г     ********** SECOND PAGE **********'Р▓PA│1:AD│ADл1:M│ Ж(AD)'л╝MS│ Б(Mо16):LS│Mм16нMS'║╞Е MS▓2з730'█╨NS│2:IN$│"L"лS$(MS,LS):Бе460'¤┌ЕMS│3░LS│15зIN$│"SWI2":Бе1090(фЕMS▓7░LS│3зIN$│"CMPD":Бе970(>юЕMS▓7░LS│12зIN$│"CMPY":Бе970(d°ЕMS▓7░MS┤12░LS│14зIN$│"LDY":Бе970(КЕMS▓7░MS┤12░LS│15зIN$│"STY":Бе970(лЕMS▓11░LS│14зIN$│"LDS":Бе970(╠ЕMS▓11░LS│15зIN$│"STS":Бе970(▌ З"ERROR 1":К)	*:Г     ********** THIRD PAGE **********)#4PA│1:AD│ADл1:M│ Ж(AD))>>MS│ Б(Mо16):LS│Mм16нMS)YHЕLS│3зIN$│"CMPU":Бе970)uRЕLS│12зIN$│"CMPS":Бе970)Т\ЕLS│15зIN$│"SWI3":Бе1090)гfЗ"ERROR 2":К)═p:Г     ********** M$ TABLE **********)тzЕMS┤8зMT│0:Бе920)°ДЕMS┤12зMT│1:Бе920*
ОMT│2*ШIN$│M$(MT,LS)*8вЕMS│8░LS│13зIN$│"BSR":NS│1:Бе510*FмЕMS▓5з970*_╢ЕMS│4зAM$│"A":Бе1090*r└AM$│"B":Бе1090*А╩AA│MS ░ 3*Ь╘ЕAA│2з1300::Г [INDEXED]*┬▐ЕAA│1зNS│1:Бе410::Г [DIRECT PAGE]*ршЕAA│0з1030::Г [IMMEDIATE]+ЄNS│2:A│ADл1:Бж1700::Г [EXTENDED]+№AM$│">"лHX$:Бе1090+>ЕLS│3▒LS│12▒LS│14зNS│2:Бе1060+UNS│1:A│ADл1:Бж1660+lAM$│"#"лHX$:Бе1090+~$A│ADл1:Бж1700+Х.AM$│"#"лHX$:Бе1090+╟8:Г     ********** OUTPUT TO SCREEN **********+╫BЗ Ь(ADмPA);+єLЕPA│1зЗд5) Ь( Ж(ADм1));,
VАI│0еNS:A│ADлI:Бж1660,&`Зд8л3нI) П(HX$,2);:Л,4jЗд20)IN$;,AtЗд26)AM$,S~ЕPR$│"N"з1270,ЖИ:Г     ********** OUTPUT TO PRINTER **********,▓ТHX$│ Ь(ADмPA):HX$│ б(4м З(HX$),"0")лHX$,╞ЬЗ#м2, Л(0);HX$;,чжЕ PA│1зЗ#м2,д8) Ь( Ж(ADм1));-░А I│0е NS:A│ADлI:Бж1660-'║З#м2,д Б(10.1л4нI)) П(HX$,2);:Л-9─З#м2,д32)IN$;-J╬З#м2,д40)AM$-m╪Е LL▓56 з1250:Д LL│LLл1:Бе1270-ТтЗ#м2," ":З#м2,д55)BG$;"-"; Ь(AD)-ичАI│1е6:З#м2," ":Л-┴ьLL│0:BG$│ Ь(ADлNSл1)-╨ЎAD│ADлNSл1.ЕAD▓LA з230:Д290::Г [GO TO BEGINNING OF LOOP].3
:Г     ********** INDEXING DECODE **********.<NS│1.LIB│ Ж(ADл1).n(IR│ Б((IB ░ 96)о32):R$│R$(IR).Г2Е(IB ░ 128)з1380.д<OS│IB ░ 31::Г [5 BIT OFFSET].╝FЕ(OS ░ 16)зOS│OSм32.╦PHX$│ И(OS).хZAM$│HX$л","лR$:Бе1090/?dИ(IB ░15)Бе1400,1410,1420,1430,1440,1450,1460,1470,1480,1460,1490,1500,1520,1460,1540/YnAM$│","лR$л"+":Бе1550/txAM$│","лR$л"++":Бе1550/ЛВAM$│",-"лR$:Бе1550/гМAM$│",--"лR$:Бе1550/╣ЦAM$│","лR$:Бе1550/╨аAM$│"B,"лR$:Бе1550/чкAM$│"A,"лR$:Бе15500┤AM$│"ILLEGAL":Бе155000╛NS│2:A│ADл2:Бж1580:AM$│ И(OS)л","лR$:Бе15500`╚NS│3:A│ADл2:Бж1620:AM$│ И(OS)л","лR$:Бе15500w╥AM$│"D,"лR$:Бе15500О▄NS│2:A│ADл2:Бж15800╝цAM$│ И(OS)л",PC($"л Ь(ADл3лOS)л")":Бе15500╙ЁNS│3:A│ADл2:Бж16201
·AM$│ И(OS)л",PC($"л Ь(ADл4лOS)л")":Бе15501'NS│3:A│ADл2:Бж1700:AM$│HX$:Бе15501EЕ(IB ░16)зAM$│"["лAM$л"]"1PБе10901С":Г     ********** COMPUTE 8 BIT OFFSET SUBROUTINE **********1Ю,OS│ Ж(A)1╖6Е(OS ░128)зOS│OSм2561╜@Р1 J:Г     ********** COMPUTE 16 BIT OFFSET SUBROUTINE **********2TOS│ Ж(A)н256л Ж(Aл1)25^Е( Ж(A)░128)зOS│OSм655362;hР2Гr:Г     ***** GENERATE 8 BIT HEX CODE OF LOCATION A SUBROUTINE *****2Х|HX$│ Ь( Ж(A))2▒ЖЕ  З(HX$)│1зHX$│"0"лHX$2├РHX$│"$"лHX$:Р3Ъ:Г     ***** GENERATE 16 BIT HEX CODE OF LOCATION A SUBROUTINE *****3*дHX$│ Ь( Ж(A)н256л Ж(Aл1))3NоHX$│"$"л б(4м З(HX$),"0")лHX$:Р3n╕:Г     ***** HEX DUMP *****3Э┬Й"START,END ADDRESSES IN HEX     ";AD$,LA$3┴╟AD│ Й("&H"лAD$):LA│ Й("&H"лLA$)3ч╠Й"DUMP WIDTH IN DEC.(1 TO 16)";DW3■╓Е LL│0з BG$│ Ь(AD)4рА A│AD е LA й DW4'ъL$│"":C$│"":D│A4SЇL$│ Ь(A):L$│ б(4м З(L$),"0")лL$л"     "4c■А B│0е DWм14qD│ Ж(AлB)4ЬЕD▓31 ░ D┤128 зC$│C$л Л(D):Д C$│C$л"."4└H$│ Ь(D):Е  З(H$)│1 з H$│"0"лH$4╤&L$│L$л" "лH$4╪0ЛB4ъ:L$│L$л"  "лC$5?ЗL$:ЕPR$│"N"з19005DЗ#м2, Л(0);L$56NЕ LL▓56з 1880 :Д LL│LLл1:Бе19005ZXЗ#м2," ":З#м2,д55)BG$;"-"; Ь(A)5p]АI│1е6:З#м2," ":Л5ЖbLL│0:BG$│ Ь(AлDW)5НlЛA5ЧvБе230                                                                                      Y{   я                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ╝?Ю0oМЎoМЇoМЄжА&ьД'0 ыЮьД'3ж└&№яДоД Ё~н&Б"&cМ╚ ╓цМ├' ╧БВ'БЖ'БГ&╞
чМ░цМн' ╖БA-БZ.╞
чМЫ зБ0-Б9. ЬБ 'oМЖ ТцМА'$oН zьДБе'+Бз''Б░'#Б▒'Бй'Г:Д'ББ'3Дж└з^У-ў3_▀0 U  ?ASSEMBLER *****":З■7З"(TURN PRINTER ON IF ANSWER IS Y)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╞ 
:ГCOPYRIGHT (C) CLOAD 19828:ГBY WAYNE COURTNEYO:Г11362 JUDY DRIVEp:ГSTERLING HEIGHTS, MI 48078|Бе10000┤:ГSET S FOR THE FILE SIZE YOUR    MEMORY CAN HANDLE┐
Х 2000╔S│150▐М C(2,S),C$(1,S)шX│1:ЮюЮ■(З@77,"MENU"(-З@109, Л(131); Л(131); Л(131); Л(131)C2З@138,"1.DUMP TO TAPE"`4З@170,"2.LOAD FROM TAPE"x6З@202,"3.PAGE DATA"С8З@234,"4.ENTER DATA"л:З@266,"5.FAST SCROLL"┬<З@298,"6.HARDCOPY"▌>З@330,"7.DELETE FILES"Є?З@362,"8.CHANGE" AЗ@394,"9.BALANCE" FЙ P HKИ P Бе 1000,2000,3000,4000,5000,6000,7000,8000,9000 _dЗ"BAD#-REDO":Бе 70 ш:Г*****DUMP TO TAPE******** ФэЮ:З@480,"X=EXIT" ░ЄЙ"READY TO RECORD?";II$ ─ўЕ II$│"X" Бе 30 р№Й"FILE # TO START AT";X ЎЩ"O",#м1,"CHECKS"!З#м1,X;!0З#м1,C(2,X),C$(1,X),C$(0,X),C(1,X),C(0,X)!DЕ X│S з Бе 1099!`$Е C$(0,X)│"END" Бе 1075!r)Ю:З"FILE #";X!Д.X│Xл1:Бе 1050!Н3Ъ#м1!╛8Ю:Й"FILE IS LOADED. HIT <ENTER> FOR MENU";II!╚BБе 30!ЇKЙ"NO END FOUND. <ENTER>";II:Ъ #м1:Бе 30"╨:Г*******LOAD TAPE*********"1╒Ю:З@480,"X=EXIT":З@0,"";"V┌Й"IS RECORDER READY <ENTER>";II$"j▀Е II$│"X" Бе 30"БфЩ "I",#м1,"CHECKS""МюЙ#м1,X"г°Е  М(м1) з Бе 2090"╤Й#м1,C(2,X),C$(1,X),C$(0,X),C(1,X),C(0,X)"яЕ C$(0,X)│"END" з Бе 2090#Ю:З"LOADING FILE#";X# X│Xл1:Бе 2040##*Ъ#м1#R4Й"FILE DATA IS LOADED. <ENTER> FORMENU";II#\>Бе 30#y╕:Г*******PAGE***********#║Ю#╫╜З"TO SELECT STARTING POINT PRECEDE THE NUMBER WITH A C FOR CHECK#  OR A F FOR FILE##с┐Й CN$#Є└C$│ О(CN$,1)$┴B│ З(CN$)$┬CC$│ П(CN$,Bм1)$#├CN│ Й(CC$)$G─Е C$│"F" з X│CN:Бж 3050:Бе 3100$m┼Е C$┤▓"C" з З"ERROR REDO":Бе 3007$u╠X│0$Ч╓Е C(2,X)│CN з Бж 3050:Бе 3100$брX│Xл1$▌тЕ X│S з Ю:З"THERE IS NO CHECK #"CN"TRY AGAIN":З:Бе 3007$щхБе 3030$яъЮ%ыЕC$(0,X)│"END"зX│Xм1%!ьЕ C$(0,X)│"*"Бе 3060%4эЗ"CHECK #   ";%JюЗ ═ "####";C(2,X)%PяЗ%jЇЗ"DATE      ";C$(1,X)%pЎЗ%К■З"NAME      ";C$(0,X)%РЗ%дЗ"AMOUNT   ";  %╛	З═"#######.##";C(1,X)%─
З%╒З"BALANCE ";%яЗ═"#######.##";C(0,X)%їР% З:З:З&АЗ"U=UP"&КЗ"D=DOWN"&'ФЗ"X=EXIT"&7ЩЗ"FILE#="X;&aиЕ Ж(343)│251░X┤S зX│Xл1:Бж3050:Бе3100&К▓Е Ж(342)│254░X▓1зX│Xм1:Бж3050:Бе3100&е╝Е   Ж(338)│247 з Бе 30&▒╨Бе 3240&┼фЙ"NEW NUMBER";X&┘юБж 3050:Бе 3100&№аЮ::Г******INPUT ROUTINE*******'=бЗ"TO ENTER A DEPOSIT, PUT IN AN   ASTERISK FOR THE CHECK #."'АвЗ:З"TO EXIT THE ENTRY MODE, PUT     'END' IN FOR THE CHECK #."'ЖдЗ'иеЙ"HIT ENTER TO CONTINUE";RS:Ю'░жX│0'╠зЕ C$(0,X)│"END" Бе 4010'фиЕ X│S з X│1:Бе 4010'ЎйX│Xл1:Бе 4007'■кJ│2(]╝C(2,X)│0:Й"CHECK #";X$:ЕX$│"*"зC$(0,X)│X$:Бе4095:ДЕX$│"END"зC$(0,X)│X$:Бе30:ДC(2,X)│ Й(X$)(c╜З(Б╛Й"DATE OF CHECK ";C$(1,X)(З├З(▒─З"FILE#";X:З:Й"NAME OF PAYEE";C$(0,X)(╖╟З(╓╚Й"AMOUNT OF CHECK ";C(1,X))цC(0,X)│C(0,(Xм1))мC(1,X):C(0,X)│ Б(C(0,X)н100л.5)о100)$чЕ J│3 з Бе 8565)EшЙ"1. ENTER DATA  2. REDO";TT)KъЗ)_ыЕ TT│2  Бе 4092)ЁЗ"REMAINING BALANCE";C(0,X))ЛїX│Xл1:З)о·Й"HIT ENTER FOR NEXT ENTRY";VV)╘№Ю:З"BALANCE";C(0,(Xм1)):З:Бе 4010)ї З:Й"DATE OF DEPOSIT";C$(1,X))√З*
Й"AMOUNT OF DEPOSIT";C(1,X)*!З*>C(0,X)│C(0,(Xм1))лC(1,X)*_C(0,X)│ Б(C(0,X)н100л.5)о100*kБе 4080*МИ:Г*****FAST SCROLL***********┤НG$│"#### #### $$#####.## $$#####.##*╔ОЮ:З"U=UP D=DOWN"*╫ПЗ"X=EXIT"*▀РЗ:З*·ТЙ"FILE# TO START AT";X+ЧЮ+ ЩЕC$(0,X)│"END"зX│Xм1:Бе5040+AЬЗ═ G$;C(2,X),X,C(1,X),C(0,X)+dжЕ Ж(343)│251░X┤S зX│Xл1:Бе5017+Ж░Е Ж(342)│254░X▓1зX│Xм1:Бе5017+а║Е  Ж(338)│247 з Бе 30+м─Бе 5030+╠p:Г********HARDCOPY*********+щuЙ "FILE # TO START AT";X,@zF$│"      ####    %   %    %                  %  $######.##    ###     $######.##",бвЗ#м2,д5)"CHECK #";д14)"DATE";д23)"DESCRIPTION";д44)"CHECK AMOUNT";д59)"FILE #";д68)"BALANCE",ЇгC$│"-------------------------------------------------------------------------"-дЗ#м2,д5)C$-9зЗ#м2, ═ F$;C(2,X),C$(1,X),C$(0,X),C(1,X),X,C(0,X)-\мX│Xл1: Е C$(0,X)│"END" Бе 6080-h╢Бе 6055-t└З#м2,""-А┴З#м2,""-Ч├З#м2,"END OF FILE"-╚┼Ю:Й"HARD COPY COMPLETED. <ENTER> FORMENU";II-╥╩Бе 30-юX:Г******DELETE*********.bЮ:Й"FIRST FILE # TO DELETE";NX.1lЙ"LAST FILE # TO DELETE";CD.YvЕNX▓CD ▒CD▓│S з7010:ДX│CDл1:CD│XмNX.nКC$(0,NX)│C$(0,X).ГПC$(1,NX)│C$(1,X).ЦЩC(0,NX)│C(0,X).йЫC(1,NX)│C(1,X).╝ЮC(2,NX)│C(2,X).┌иЕ C$(0,X)│"END" з Бе 7100.ьнX│Xл1:NX│NXл1/пЕ X▓S з З"NO END FOUND":Бе 7160/▓Бе 7050/"╝Ю//▄C(2,T)│0/VюЗ"DELETION OF";CD;"FILES COMPLETE"/s°З:Й"<ENTER> FOR MENU";SS/}Бе 30/Щ@:Г*****CHANGE**********/ЯOЮ/╢TЗ@73,"CHANGE MENU"/─YЗ@105,"";/╘^А C│ 1 е 11/тcЗ Л(131);/ъhЛ C0iЗ@138,"1.CHANGE ITEM"0jЗ@170,"2.DELETE FILE"08kЗ@202,"3.INSERT FILE"0PlЗ@234,"4.MAIN MENU"0XmЙ J0unИ J Бе 8048,8400,8500,300БoБе 80450ЯpЙ "FILE# TO BE CHANGED";X0╜rЗ@136,"1.NAME   ";C$(0,X)0█wЗ@168,"2.DATE   ";C$(1,X)0ў|З@200,"3.CHECK#";C(2,X)1БЗ@232,"4.AMOUNT";C(1,X)1ВЗ:З19ЖЙ "ITEM TO BE CHANGED";IN1YЪИ IN Бе 8100,8120,8130,81401tЯЗ"BAD # REDO":Бе  80701▒дЮ:З"OLD NAME (";C$(0,X);")":Й "NEW NAME";C$(0,X):Бе 81501ю╕Ю:З"OLD DATE (";C$(1,X);")":Й "NEW DATE";C$(1,X):Бе 81502.┬Ю:З"OLD CHECK # (";C(2,X)")":Й "NEW CHECK #";C(2,X):Бе 81502l╠Ю:З"OLD AMOUNT (";C(1,X)")":Й "NEW AMOUNT";C(1,X):Бе 82002Ш╓Й "CHANGE COMPLETE! 1.CHANGE 2.MENU";GC2нрЕGC│2з8015:Д80482═ Ю:З"COMPUTING NEW BALANCES"2ч Е C$(0,X)│"*" Бе 82603 Е C$(0,X)│"END" Бе 83003  &C(0,X)│C(0,(Xм1))мC(1,X)3A +C(0,X)│ Б(C(0,X)н100л.5)о1003S 0X│Xл1:Бе 82903p DC(0,X)│C(0,(Xм1))лC(1,X)3С IC(0,X)│ Б(C(0,X)н100л.5)о1003Ы JX│Xл13о NЕ J│2 ▒ J│3з Р3╙ bЗ@480,"FILE#";X;:Е X▓Sм1 Бе 82933▀ dБе 82104 eЗ"NO END FOUND":А C│ 1 е 300:Л C:Бе 80154 lБе81504 ╨Ю4: ┌Й "FILE TO BE DELETED";X4Ш ▀З"OK TO DELETE:":З:ЗC$(0,X):ЗC$(1,X):ЗC(2,X):ЗC(1,X):З:Й"Y/N (DEFAULT Y)";X$:ЕX$│"N"з80154б фPP│X4╖ юC$(0,X)│C$(0,Xл1)4═ ЁC$(1,X)│C$(1,Xл1)4с ЄC(1,X)│C(1,Xл1)4ї єC(2,X)│C(2,Xл1)5 їЕ C$(0,X)│"END" Бе 84505 °X│Xл15' ¤Бе 843058!X│PP:Бж 82005a!Ю:Й"DELETION IS COMPLETE <ENTER>";XX5n!Бе  80155З!3:Г       INSERT FILE5Н!4Ю5м!>Й "FILE TO BE DISPLACED";X5╡!HPP│X5╦!R:Г       FIND END5я!WЕ C$(0,X)│"END"з X│Xл1: Бе 85416
!\X│Xл1:Бе 85356!]C$(0,X)│C$(0,Xм1)6-!^C$(1,X)│C$(1,Xм1)6A!_C(1,X)│C(1,Xм1)6U!`C(2,X)│C(2,Xм1)6_!fX│Xм16v!pЕ X┤▓PP з Бе  85416Ф!rЮ:З"INSERT NEW FILE #";PP6а!sБе 40286м!uБж 82006╘!zЮ:Й"INSERTION COMPLETE. <ENTER>";XX6р!Бе 80156°#(:Г*** BALANCE******7
#-X│0:B│0:BB│0:7O#2Ю:Й"ENTER NUMBER OF LAST FILE TO BE INCLUDED IN THIS BALANCE";LF7й#7З"ENTER FILE NUMBERS OF ITEMS NOT TO BE INCLUDED IN THIS BALANCE. ENTER 999 TO FINISH7▒#<Й X7р#PЕ X│999 з Бе 9100:Е C$(0,X)│"*" з Бе 9070 7ў#dB│BлC(1,X):Бе 90208#nB│BмC(1,X):Бе 90208#МBB│C(0,LF)лB8%#СЮ8>#УBB│ Б(BBн100л.5)о1008d#ЦЙ"ENTER BALANCE FROM STATMENT";SB8j#ЫЮ8Ц#аЕ BB│SB з З"BALANCE CORRECT";BB:Бе 91908▓#кЗ@138,"BANK BALANCE";SB8╬#┤З@202,"YOUR BALANCE";BB8▐#╛B│ В(BBмSB)8ї#├B│ Б(Bн100л.5)о1009#╚З@266,"DIFFERENCE   ";B9Q#╥З@ 320, "LOOK FOR CHECKS MISSING OR NOT  ENTERED CORRECTLY"9П#▄З"ALSO LOOK FOR SERVICE CHARGES OR CASH CARD WITHDRAWALS"9л#цЙ" <ENTER> FOR MENU";CC9╡#ЁБе 309├'╚0:└1:Бе6                                          Y{   я                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        $$
:Г ***************************H:Г*  COPYRIGHT (C) CLOAD 1982 *l:Г*  ROGER KILPATRICK ,  107  *Р:Г*  FOREST PL  STOCKBRIDGE,  *┤:Г*  GA. 30281 (404)474-4580  *╓
:Г***************************сdБе4000
KnХ4500:МNA$(7,33):N│0:B│128:G│136:H│137:Q│22:U│32:V│100:W│200:Y│250:АX│1е33:АZ│1е7:NA$(Z,X)│"ZZ":ЛZ:ЛX
█xЮ:З@74, б(12,45):З@106,"!   NAME   !":З@138,"!":З@149,"!":З@170,"!    &     !":З@202,"!":З@213,"!":З@234,"! ADDRESS  !":З@266,"!":З@277,"!"ВЗ@298,"!":З@309,"!":З@330,"!   FILE   !":З@362, б(12,45)/МK│0:АT│1е1200:ЛT:ЮЦЗ@39,"M A I N   M E N U:":З@96, б(U,175);:З@160,"  1) ENTER NEW FILE               2) LOAD OLD FILE FROM TAPE      3) CHANGE OR ADD TO FILE        4) SORT FILE                    5) LIST FILE                    6) EXIT PROGRAM"ZаЗ@388,"(# RECORDS=";N;"MAX=32)":Бж510:ЙM$:аV,1:ЕM$│"%"зЮ:Бе150ЕкM│ Й(M$):ЕM┤1▒M▓6зЗ@474,"     ";:Бе160м┤И M Бе190,1500,2000,2510,3000,1050
╛ЕN▓0зЮ:З@196,"YOU ALREADY HAVE A FILE!":З@259,"USE OPTION #3 TO ADD TO IT":Бе140д╚Ю0:АF│1е5:З@169,"zz"; б(2,B);"last"; Л(B);"name";:З@262,"will"; Л(B);"end"; Л(B);"entry"; Л(B);"mode";:аW,1:АT│1е250:ЛT:З@169, б(2,B);:АT│1е200:ЛT:ЛF:Ю0:Бж520N╥Ю0:З@4,"last"; Л(B);"name";:З@67,"first"; Л(B);"name";:З@134,"address";:З@229,"birthday";:З@290,"anniversary";:З@356,"xmas"; Л(B);"card";:З@424,"phone";:ЕCF│3зБе2240~▄АX│1е32:З@480,"# RECORDS";N;:ЕCF│3зCF│0:X│NМцЕCF│1зX│NгЁЕN▓32░CF│1зЮ:Бе150■·ТG,4:ТH,14:╗ЙNA$(1,X):аY,1:L│ З(NA$(1,X)):З@14лL, б(50мL,B);:ЕNA$(1,X)│"ZZ"зX│32:Бе350}
ТH,78:╗ЙNA$(2,X):аY,1:L│ З(NA$(2,X)):З@78лL, б(50мL,B);:ТH,142:╗ЙNA$(3,X):аY,1:L│ З(NA$(3,X)):Е З(NA$(3,X))▓18зBS│18:Бж390в
L│ З(NA$(3,X)):ЕL▓50зBS│50:Бж390H
"L│ З(NA$(3,X)):З@142лL, б(223м(141лL),B);:ТH,238:╗ЙNA$(4,X):аY,1:L│ З(NA$(4,X)):З@238лL, б(50мL,B);:ТG,5:ТH,46:╗ЙNA$(5,X):аY,1:L│ З(NA$(5,X)):З@302лL, б(50мL,B);┐
,ТH,110:╗ЙNA$(6,X):аY,1:L│ З(NA$(6,X)):З@366лL, б(50мL,B);:ТH,174:╗ЙNA$(7,X):аY,1:L│ З(NA$(7,X)):З@430лL, б(UмL,B);,
6З@457, б(23,B);:З@458,"is"; Л(B);"screen"; Л(B);"ok"; Л(B);:╗ЙE$:а1,1:Е О(E$,1)│"Y"зЗ@458, б(Q,B);:Бе350╥
@З@458, б(Q,B);:аW,1:З@0,"1";:З@64,"2";:З@B,"3";:З@224,"4";:З@288,"5";:З@352,"6";:З@416,"7";:З@457,"which"; Л(B);"field"; Л(B);"is"; Л(B);"wrong"; Л(B);:╗ЙE$:а1,1$
TL│ З(E$):З@478лL, Л(B);:E│ Й(E$):И E Бж400,410,420,430,440,450,460:аW,1:Бе310Р
^З@13, б(U,B);:З@77, б(U,B);:З@141, б(80,B);:З@237, б(U,B);:З@301, б(U,B);:З@365, б(U,B);:З@429, б(U,B);
hЗ@0, Л(B);:З@64, Л(B);:З@B, Л(B);:З@224, Л(B);:З@288, Л(B);:З@352, Л(B);:З@416, Л(B);:АT│1е5:аW,1:ЛT:ЕM│3░CF│3зР.
mЕCF│1░N│32зX│U:NA$(1,Nл1)│"ZZ":Бе380л
rЕCF│1зЗ@457,"anymore"; Л(B);"to"; Л(B);"add"; Л(B);:╗ЙAN$:З@472л З(AN$), б(Q,B);:Е О(AN$,1)│"Y"з380:ДX│U:NA$(1,Nл1)│"ZZ"└
|N│Nл1:ЛX:Ю:Бе150'
ЖT$│ О(NA$(3,X),BS):T1$│ П(NA$(3,X),LмBS):NA$(3,X)│T$л б(3,B)лT1$:З@141, б(80,B);:З@142,NA$(3,X);:Рt
РЗ@13, б(50,B);:ТG,4:ТH,14:╗ЙNA$(1,X):L│ З(NA$(1,X)):З@14лL, б(50мL,B);:Р┴
ЪЗ@77, б(50,B);:ТG,4:ТH,78:╗ЙNA$(2,X):L│ З(NA$(2,X)):З@78лL, б(50мL,B);:Р
дЗ@141, б(83,B);:ТG,4:ТH,142:╗ЙNA$(3,X):L│ З(NA$(3,X)):З@142лL, б(223м(141лL),B);:Рh
оЗ@237, б(50,B);:ТG,4:ТH,238:╗ЙNA$(4,X):L│ З(NA$(4,X)):З@238лL, б(50мL,B);:Р╖
╕З@301, б(50,B);:ТG,5:ТH,46:╗ЙNA$(5,X):L│ З(NA$(5,X)):З@302лL, б(50мL,B);:Р
┬З@365, б(50,B);:ТG,5:ТH,110:╗ЙNA$(6,X):L│ З(NA$(6,X)):З@366лL, б(50мL,B);:РS
╠З@429, б(Q,B);:ТG,5:ТH,174:╗ЙNA$(7,X):L│ З(NA$(7,X)):З@430лL, б(Q,B);:РЭ
■З@356,"( % RETURNS TO MAIN MENU)":IK$│ Т:З@455,"ENTER YOUR CHOICE";:Р╚IK$│ Т:З@485,"PRESS ANY KEY TO START";уA$│ Т:ЕA$│"%"з Ю:Бе150ЄЕA$│""з530 &аW,1:Ю:РгЄЮ:З@101,"INSERT EMPTY CASSETTE":З@169,"INTO RECORDER":З@230,"AND REWIND CASSETTE":З@292,"PRESS <RECORD> & <PLAY>":Бж520:З@202,"PLEASE WAIT":Щ"O",#м1,"NAME&ADD"▄№АO│1е32:З#м1,NA$(1,O):ЕNA$(1,O)│"ZZ"зЪ#м1:O│U:Бе1040АO1│2е7:З#м1,NA$(O1,O):ЛO1:ЕO│32зЪ#м1AЛO:Ю:З@229,"CASSETTE FILE CREATED":аV,1:ЕSF│2зК:ДБе140╬Ю:З@42,"PROGRAM EXIT":З@96, б(U,255);:З@195,"1) EXIT WITHOUT SAVING FILE     2) EXIT AFTER SAVING FILE":Бж510:ЙSF$:аV,1:ЕSF$│"%"зЮ:Бе150ї$SF│ Й(SF$):ЕSF│1зЮ:З@237,"E N D":К.ЕSF│2зБж1010:Д1050й▄Ю:З@102,"INSERT CASSETTE FILE":З@169,"INTO RECORDER":З@230,"AND REWIND CASSETTE":З@295,"THEN PRESS <PLAY>":Бж520:З@202,"PLEASE WAIT":Щ"I",#м1,"NAME&ADD"▄цАI│1е32:╗Й#м1,NA$(1,I):Е М(м1)зЪ#м1:I│U:Бе1530	ЁАI1│2е7:╗Й#м1,NA$(I1,I):ЛI1:Е М(м1)зЪ#м1=·N│Nл1:ЛI:Ю:З@231,"LOADING COMPLETED":аV,1:Бе140ш╨CF│0:Ю:З@42,"CHANGE FILE:":З@96, б(U,207);:З@196,"1) ADD NEW RECORDS              2) DELETE A RECORD              3) CHANGE A RECORD":Бж510:ЙCF$:аV,1:ЕCF$│"%"зЮ:Бе150┌CF│ Й(CF$):ЕCF┤1▒CF▓3з2000"фИ CF Бе 2030,2100,2200OюЮ:ЕN▓│32зЗ@231,"YOUR FILE IS FULL":Бе140YєБе210°Ю:З@U,"  ENTER THE LAST NAME AND THE     FIRST NAME OF THE RECORD        YOU WISH TO ";C$:З@227,"LAST NAME:":З@290,"FIRST NAME:":ТG,4:ТH,237:ЙLT$:ТG,5:ТH,45:ЙFT$:Ю:З@202,"PLEASE WAIT":Р?Ю:З@233,"FILE NOT FOUND":аV,3:Бе1404C$│"DELETE":Бж2040:АD│1 е N:ЕLT$│NA$(1,D)░FT$│NA$(2,D)з2120Н>ЛD:Бе2050 HАDL│D е Nм1:АD1│1е7:NA$(D1,DL)│NA$(D1,DLл1):ЛD1:ЛDL:АR│1е7:NA$(R,N)│"":ЛR:N│Nм1:Ю:З@233,"RECORD DELETED":аW,1:Бе140 DШC$│"CHANGE":Бж2040:АC│1е32:ЕLT$│NA$(1,C)░FT$│NA$(2,C)з2220 RвЛC:Бе2050 \мБе210 ф└З@14,NA$(1,C);:З@78,NA$(2,C);:З@142,NA$(3,C);:З@238,NA$(4,C);:З@302,NA$(5,C);:З@366,NA$(6,C);:З@430,NA$(7,C);:X│C:Бж320:X│0:Ю:Бе140!з	╬Ю:З@44,"S O R T":З@96, б(U,159);:З@164,"1) LAST NAME SEQUENCE           2) BIRTHDAY SEQUENCE            3) ANNIVERSARY SEQUENCE         4) CHRISTMAS CARD LIST":Бж510:ЙS$:аV,1:ЕS$│"%"зЮ:Бе150!┬	тS│ Й(S$):ЕS┤1▒S▓4з2510!Ё	чЕN│0зЮ:З@230,"NO RECORDS TO SORT!!":Бе140"	щN1│N:ЕN┤5зN1│5"+	ьL1│(2п Б( Щ(N)о Щ(2)))м1:ЕS▓1зS│Sл2"F
L1│ Б(L1о2):ЕL1┤1з2610"И

АJ│1 е L1:АL│JлL1 е N1 йL1:I1│L:АQS│1е7:T$(QS)│NA$(QS,I1):ЛQS"з
ЕNA$(S,I1мL1)┤│T$(S) з2600"ц
АQS│1е7:NA$(QS,I1)│NA$(QS,I1мL1):ЛQS:I1│I1мL1:ЕI1▓L1 з2580#
(АQS│1е7:NA$(QS,I1)│T$(QS):ЛQS:ЛL:ЛJ:Бе2560#=
2Ю:З@233,"SORT COMPLETED":аW,1:Бе140#Ъ╕Ю:З@138,"DO YOU WANT":З@233,"A PRINTED LIST":З@333,"(Y/N)":З@397,"";:ЙE$:ЕE$│"%"зЮ:Бе150#▒┬Е О(E$,1)│"Y"з3050$&╠Ю:АPS│1 е Nм1:ЗNA$(1,PS)","NA$(2,PS):З б(12,B);NA$(3,PS):А I│4 е7:З Л(B);NA$(I,PS);:Л:З:Е PSо3│ Б(PSо3)з Бж 3040$2╓ЛPS:K│1$kрЗ@484,"PRESS ANY KEY TO CONTINUE";:Бж530:ЕK│1з140:ДР%ъЮ:З@233,"IS PRINTER ON ?":АZ│1е5:аV,1:ЛZ:Бж520:З#м2,д30)"NAME & ADDRESS FILE":З#м2, Л(30):З#м2, б(80,45):З#м2,"LAST NAME";д13)"FIRST NAME";д39)"ADDRESS"%░ЇЗ#м2,д5)"BIRTHDAY";д28)"ANNIVERSARY";д42)"PHONE";д57)"CHRISTMAS CARD":З#м2, б(80,45):З#м2:АP│1е32:З#м2,NA$(1,P);д13)NA$(2,P);д28)NA$(3,P):ЕNA$(1,P)│"ZZ"зP│U:Бе3090%ьЗ#м2,д3)NA$(4,P);д28)NA$(5,P);д41)NA$(7,P);д59)NA$(6,P)&
ЛP:АZ│1е4:аV,1:аY,1:ЛZ:Бе140&!а╚0,1:╝:└1:Бе1108>#УBB│ Б(BBн100л.5)о1008d#ЦЙ"ENTER BALANCE FROM STATMENT";SB8j#ЫЮ8Ц#аЕ BB│SB з З"BALANCE CORRECT";BB:Бе 91908▓#кЗ@138,"BANK BALANCE";SB8╬#┤З@202,"YOUR BALANCE";BB8▐#╛B│ В(BBмSB)8ї#├B│ Б(Bн100л.5)о1009#╚З@266╥xА@А@йеА Z
О0
рз╙вZ 
 
}┼zСzгZx╪0Z x+
CKMON V-1.0 TYPE H FOR HELP
К2МжA1М╓4 мф,oА °2bЖ зМ└0НЗЖ~╖
┐
2МБяМо0Мп0Н 
мН&Є
╪жМСБZ'
1Н 0ьДнл ▐нФ
CMD┐1Н wзд0Н╠цА
,:'0mД*Ї9
1)Ж-
К
%)4 мс$
9├─Ё4 ─Ё
мф'─'2b94
Ыьф

\╞жА
^Z&°
З╞
UZ&·ос╞жАБ %Б~#Ж.
/Ж
:J&·Z&ц │oтoт╣)rЖ-
н40)bмb%^
 уd4лрзамф%ёоb уd4ырша'#4
0?▀0НO
5Ш0НO)!&мф%╠Ж+╣&оble&йld&е2d2b9нЯа94╞жАhф%Ж-РЭZ&я59ERROR BITS║7654321░44жАба&Z&ў5┤Ж?bН)8
Н	)24зa59Н)'HHHHЙН)4лр9НБ0%Б9"А09БA%БF"А799mН¤э'НД нЯа'·Б
&нЯа'·БA-А@9нЯа9НЙНЙ9Н4Ж Нъ5В4DDDDНжфН5ВДЛ0Б9#╥Л ╬жДДН╚mА*Ў94Ж
Н╜Ж
 ═ T │Н°(оН¤sпН¤o с джА и D)
з?б?' #O!Б
'Б^&╘0Г ╨9юН¤D )пjжфКАзф;оj0пj╞ ▐яН¤& СНB¤v ) Ж_0Н(бЕ'\┴#ў )4Н>51е┴"	■┘)зд ■┐)пд9CABDXXYYUUPP0Мё_жЕН\┴#ўЖSН%1Н№╩14 БY& -НоН№╕┴#же■°\же■шНЖ=■╙■n)Н+ьд'Н<&° пд'
жДз"Ж?зД5■юНьд'■нН&ї591Н№G5@пН№h0Н№[4оН№^4@91#мb9■(
9Н█]'мд' ННх&ё59од'ж"зДoдo!9Нё59
BRACKETS ([]) MEANS OPTIONAL
B [AAAA]
SET OR DISPLAY BREAK POINTS
E AAAA-AAAA
EXAMINE MEMORY FROM ADD TO ADD
G [AAAA]
GO TO PC OR ADDRESS
H
PRINT THIS MESSAGE
M [AAAA]
MEMORY EXAMINE/CHANGE
Q AAAA-AAAA
MEMORY TEST FROM ADD TO ADD
HIT ANY KEY TO CONTINUE:
К
R [REG]
EXAMINE/CHANGE REGISTERS
U AAAA
CLEAR BREAK POINT AT ADD
Z
GO BACK TO BASICА0Н■Т¤№┴Б
'0МФ¤9
M┌GR>B║U	Zа'Q
kEўHЯ   xз 550є
Е C$│"W" з 950)Е C$│"N