╜s╠а¤":╜╖╜ф╜ьнЯа'ё╜=╜╘╜╜U╜╜д╜═╜л╜№&╓~жЖ√╖ ╢ Д@&╫9╖ ╟╖ ╔╖ ╦╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ├╖ ─╢ "ДКа╖ "ОoАМ&∙9О╠@эБМ &∙О╞ЖUзЕ\┴&∙0Й
М&ьОoД0И М&Ў9╢"_├¤"Ў"XOє"├ 
╞╢"=├!ЗЖ╖"ьбэД0И z"&Ї9нЯа
О
\╜∙ў"О
Z╜∙ў"9╞жДБ,╞ Б0/╞
 ж
Б,_ Б0/╞9╜тO╜+Ж
╜+9Д
╖"#HО"ьЖ¤"!О"╢"#цЖ┴'╘┴&╢""'╔№"!Z¤"&╜$▒"#&╕ ^┴&╢""Б'й№"!\¤"&╜$▒"#&Ш >┴
&╢"!Б
'Й№"!L¤"&╜$▒"#&x ┴&╢"!'k№"!J¤"&╜$▒"#&Z ╢"Б'╖"$╢"Б'╖"%Ж}"#'Л╖"№"!¤"╜оО"$}"#'0
жД}"#'Л╖"№"&¤"╜оО"╢"#'0№"&эД9№"!¤"&~├╖"*Ж=¤"(Ў"*Oє"(├">
жДJ9╜I╜|О">oАМ"а&∙Ж╖"╖" "╞
ў"╞Ж
О">зДч
0М"о&їЖ
╖"$╖"%"/"0О Ж
зДзИЖзИ зИ?ЖзИ@зИ_Ж@зИ`зИЖ╖"-╖"."+",╠¤"6¤"8Ж
О ╜@Ж
О?╜@╜╜▄9ОX0М&ї9""Ж╖"╜о|"╢"Б&є"Ж
╖"Ж	╖"╜о|"╢"Б&є9╢"/DDDDОB╜@╢"/ОCД╜@╢"0DDDDО\╜@╢"0ДО]╜@9╞=├!A╞жазД0И Z&Ў9╜\╜╗9Ж ╖ ╢ Д&R}"+&M╢"$Б&F№"Г&Ж
╖"+Ж
ОG╜@╜ +Г&%}"-' z"-╢"-╞ =├ 
oДЖ╖"+ЖОG╜@╜9Ж ╖ ╢ Д
&R}",&M╢"%Б
&F№"Г
&Ж
╖",Ж
ОX╜@╜ +Г
&%}".' z".╢".╞ =├?
oДЖ╖",ЖОX╜@╜9╜!╜╥9Ж ╖ ╢ Д&в}"+'Ы╢"Ў"$Г'НГ

'Е╢"Г'zГ'r№"¤"1╢"$Б&z"2 Б
&|"1 Б&|"2 z"1╢"+Б'№"1╜$Б &8Ж╖"№"1¤"╜о╢"2╞=¤"3Ў"1Oє"3├">
Ж
зД"+ЖОG╜@╜Ы╜О9Ж ╖ ╢ Д
&а}",'Щ╢"Ў"%Г'ЛГ

'Г╢" Г'xГ'p№"¤"1╢"%Б&z"2 Б
&|"1 Б&|"2 z"1╢",Б'
№"1╜$Б &8Ж	╖"№"1¤"╜о╢"2╞=¤"3Ў"1Oє"3├">
ЖзД",ЖОX╜@╜Ы╜Б9╢"0Л
╖"0╜9╢"/Л
╖"/╜9╜О╚╜"─?╩ў  ЖJ&¤0&э9╜Ж╚4╜"─?╩ў  5ЙZ&√J&ш99╜Ж4╜ф5J&Ў9Ж}4╜"─?╩ў  5ЙSZ&¤J&щ991?&№9╜О
Ї╜"─?╩ў  0&Є9╢ #К╖ #9╢"5╞
=╦ў"59Ж ╖ ╢ Д'╠¤"6 &№"6├
¤"6ГK&╜╡№"¤"Ж╖"╜о╠¤"9Ж ╖ ╢ Д
'╠¤"8 &№"8├
¤"8ГK&╜╡№"¤"Ж	╖"╜о╠
¤"9╜.╜i9Ж■╖ ╢ Д&6╜юО Ё0&·╜юО Ё0&·Ж■╖ ╢ Д&▄╜╡╜═Ж■╖ ╢ Д'ю9ОжДCзАМ&Ў9О">mА'	М"а&ўЖ
 
O9╜юО▄Ж╚J&¤0&ў╜╘╜sООMжаК@зАМm&Ї╢"/▒"0'%
О~ ОП ОmОзжАК@заМ╕&ЇнЯа'·БY'°░БN&Ё╜s~H╖ ╞╖ ╔╖ ╩╖ ╠╖ ╬╖ ╨╖ ╥╖ └╖ ┬╖ ─╢ "Д╖ "Ж`ОзАМ&∙9Ж¤╖ ╢ Д@&°З~Ож
зАМ&ў╛":0
┐":жДБ@'К@╖9Ж`╖Оа┐": ЄО:Ш0&№9|"=╢"=Д&D|"<От╜;О"╜;|"<О┬╜;ОB╜;|"<Ов╜;Оb╜;|"<ОВ╜;ОВ╜;╢"<А╖"<9╢"<HHHHКП╞зАZ&√99        PLAY AGAIN?  Y/N        RIGHT PLAYER WINS LEFT PLAYER WINS    IT'S A TIE      CHROMASETTE MAGAZINE PRESENTS .......         GRID     (C) 1983 BY CLOAD      BY A.PAKERSKI        THIS IS A 2 PLAYER GAME USING JOYSTICKS.       TO WIN YOU MUST GAIN POINTS BY CHANGING AS MUCH OF THE GRID TO YOUR COLOR AS POSSIBLE.    YOU MUST RETURN TO YOUR STARTING POSITION FACING THE EDGE AND PRESS YOUR JOYSTICK BUTTON TO PICK UP A SQUARE.    THEN TAKE IT TO WHERE YOU WANT TO PLACE IT AND PRESS YOUR BUTTON AGAIN.    IF YOU BECOME TRAPPED AND CAN NOT RETURN TO YOUR BASE HOLD YOUR BUTTON DOWN FOR ABOUT 10 SECONDS AND YOU WILL BE RETURNED TO YOUR BASE.    TO PAUSE GAME PRESS P KEY.    PRESS IT A SECOND TIME TO CONTINUE.     PRESS ANY KEY TO BEGIN..............@










U@EAUUUUUjкj*h
b"j*j*jкjкj*jК`jКj*jкjкj*j*b"h
j*jкjкj*hк`hкj*jкjкjкjкjкjкjкjк ?|s3??  ?╧p╧?  ??s3|?  ?| p| ?            PRESS ANY KEY TO BEGIN..............@










U@EAUUUUUjкj*h
b"j*j*jкjкj*jК`jКj*jкjкj*j*b"h
j*jкjкj*hк`hкj*jкjкjкjкjкjкjкjк ?|s3??  ?╧p╧?  ??s3|?  ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╤&#
:ГCOPYRIGHT(C) 183 CLOAD INC.&0
:Гtrkloc&U:ГRS COLOR COMPUTER DISK UTILITY&l:Г02/26/83 REV 1.0&М(:ГWRITTEN BY THOMAS SZLUCHA&п2:ГPERSONAL COMPUTER CONSULTING&╦<:Г14 GREAT GARLAND RISE&щF:ГFAIRPORT NEW YORK 14450&ЇPХ 1000'ZNL│0:N│0:NE│0:BL$│ Л(128)'dЮ'BnЗ@6,"trkloc";BL$л"disk"лBL$л"utility"'kxЗ@224,"INSTRUCTIONS? <Y>/<N> ";:Й R$'АВЕ R$│"Y" з Бж720'╧МЮ:З@224,"FIX DISK IN WHICH DRIVE  0 - 3  (0 = SINGLE DRIVE SYSTEM) ";:Й DN'щЦЕ DN ▓3 ▒ DN ┤0 з 140(	а:Г SET UP MACHINE CODE CALL(sк:ГTHIS ALLOWS EXAMINATION OF GRANULES BYPASSING I/O ERROR TRAPING ROUTINE SEE DISK MANUAL FOR DETAILS(Д┤Т&H1000,&HBD(Х╛Т&H1001,&HD6(ж╚Т&H1002,&H6C(╖╥Т&H1003,&H39(╟▄╣ Г0│&H1000(Ўц:ГSELECT DRIVE NUMBER AND  READ PARAMETERS)ЁТ &HEA,2)·Т &HEB,DN)C
:ГFIRST CHECK TO SEE IF DIRECTORY TRACK IS OK)I
Ю)n
З@164,"CHECKING DIRECTORY TRACK")w
"T│17)Ж
,А S│1 е 18)У
6Т &HEC,T)а
@Т &HED,S)н
JX│ Г0(0))═
TЕ  Ж(&HF0)┤▓0 з FE│1:Бе 640)╒
^Л S)°
hЗ@163,"    DIRECTORY TRACK OK"*
rА T│ 1 е 1000:Л T*5
|З@ 163," CHECKING UNUSED GRANULES"*I
ЖА T│1 е 100:Л T*]
Р▀ DN,17,2,A$,B$*
Ъ:ГEXAMINE GRANULES FOR ERRORS*О
дА G│0 е 67*│
оЕ  К( П(A$,128мG))│208 з NL│NLл1*╫
╕Е  К( П(A$,128мG)) ┤▓ 255 з 500*ї
┬Е G┤34 з T│ Б(Gо2):Бе 470+
╠T│ Б(Gо2)л1+)
╓Е Gо2 ┤▓  Б(Gо2) з SS│0 :Д SS│9+N
рЗ@161,"    CHECKING GRANULE# ";G+Y
ъБж 520+a
ЇЛ G+k
■Бе640+yА C│1 е 9+ДS│CлSS+СТ &HEC,T+Ю&Т &HED,S+л0X│ Г0(0)+─:Е  Ж(&HF0) │ 0 з 620+╬DN│Nл1,N:Г208 IS THE CODE PLACED IN THE ALLOCATION TABLE TO LOCK OUT BAD TRACK,>XC$│ О(A$,G)л Л(208)л П(A$,127мG),Rbр DN,17,2,C$,B$,ZlЛ C,`vР,pАТ &HFF40,00,ТКЮ:З@67,"   ***DISK STATUS***",ШФЗ,сЮЕ FE│1 з З"   FATAL DIRECTORY TRACK ERROR       CANNOT LOCK OUT!!":К-
иЗ"NUMBER OF FREE GRANULES:";:З г(DN)-нЗ-W▓З"NUMBER OF LOCKED                OUT (BAD) GRANULES:     ";:ЗNLлN-]╖З-о╝З"NUMBER OF GRANULES              USED FOR PROGRAMS:      ";:З68мNмNLм г(DN)-╢┴З:З-╝╞К-┬╨Ю.(┌З"   trkloc LOCKS OUT GRANULES     WHICH CANNOT BE READ PROPERLY   BY THE DISK OPERATING SYSTEM.".╕фЗ" ERRORS CAN OCCUR FROM DIRT      CONTAMINATION, EXCESSIVE        HEATING, EXPOSURE TO MAGNETIC   FIELDS OR POOR QUALITY DISK     MEDIA.";/MщЗ"  trkloc CAN BE USED TO   SALVAGE A DISK THAT SUFFERS     FROM I/O ERRORS DURING A        PROGRAM SAVE OR DURING THE      VERIFICATION CYCLE";/ьюЗ            " OF DISK      INITIALIZATION.  trkloc ONLY    EXAMINES THE DIRECTORY AND      UNASSIGNED GRANULES FOR FORMAT  AND READ INTEGRITY.  <ENTER>";/ЎЙ RR$/№Ю0лЗ"   IF A GRANULE IS DEFECTIVE     (UNABLE TO BE READ OR GLITCHED  I.D. CODE) THEN IT IS LOCKED SO THAT THE DOS DOES NOT TRY TO    WRITE TO IT CAUSING AN I/O      ERROR."19*З"   USE THIS PROGRAM CAREFULLY.   MORE THAN A COUPLE OF LOCKED    OUT GRANULES INDICATES A POOR   RISK; THE DISK SHOULD NOT BE    USED."1Ъ>З"   THIS UTILITY WILL NOT CURE    ALL DISK PROBLEMS - REMEMBER,   ALWAYS BACKUP ALL DISKS!"1аHЗ1╩RЗ"  PRESS <ENTER> TO CONTINUE";:Й RR$1╨\РMORE THAN A COUPLE OF LOCKED    OUT GRANULES                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                T,110,A STONE SLAB* HAS SYMBOLS ON IT,1313,A PIECE OF PAPER* HAS SYMBOLS ON IT,602,A SUIT OF MAGIC ARMOR-WHICH YOU ARE WEARING*'S A GIFT FROM NEMORE,9999,A DRY WELL* HAS A ROPE IN IT,136KзdЖ A SARCOPHAGUS*'S MADE OF STONE,103,A VERY LARGE CANNON*'S POINTING EASTWARD,478,A LARGE ROCK*'S A ROCK!,651,A TABLE*'S LARGE & ORNATE,266,A COT* DOESN'T LOOK COMFORTABLE,33,AN INSCRIPTION OVER THE SOUTH
PASSAGE* LOOKS LIKE LATIN,39LТeЖ A FOUR-POSTER BED*'S 'KING' SIZED!,175,A WRITING DESK* HAS NO DRAWERS,110,A BATHTUB*'S EMPTY,240,A WOODEN CRATE*'S EMPTY,407,A PILE OF ASHES*'S NOT A LARGE PILE,570,A HOLE* HAS A LADDER IN IT,651.1,A HOLE* HAS A LADDER IN IT,622MВfЖ A HOLE* HAS A LADDER IN IT,62,A HOLE* HAS A LADDER IN IT,405,A HOLE* HAS A LADDER IN IT,407.1,A LADDER* LEADS UPWARD,1163,A LADDER* LEADS UPWARD,1134,A LADDER* LEADS UPWARD,1086,A LADDER* LEADS UPWARD,1429,A LADDER* LEADS UPWARD,1431N
gЖ A TOLL TROLL* LOOKS GREEDY,1245,A LARGE RAVENOUS BEAST*'S KING BLACARD!,267,A LARGE SNAKE*'S BLACK AND VENOMOUS,461,61,125,189,99N╡h:Г
 
        BLACARD'S CASTLE

           WRITTEN BY:
           DREW HAINES
         11076 CINDY DR.
      BROOKSVILLE, FL 33512
          (904) 799-3050


  N╞i╚0,1:└1:Бе82
































#$
9559
///6666
78







&





6666
7





%
:
 

'+

6666
78


.
-

'







7








'
)

78


"'


7











'''*


43!!!
(





























0

4
.

















///,1
2
.9




























































		












:
:





::













		















	















	
















































































































































































































































































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                л1024:Бе18=P│Pм512:Бе18)>P│Pм1024:Бе18t?ЕPмS┤▓136з55:ДЗ"AUUUGHHHHH...";:Бж15:З"THE ROPE BROKE--BUT YOU'RE OK!"8╨@Й"WHAT TO DO";A$:Е О(A$,3)│"QUI"з79:ДЗ"YOU'RE UP TO YOUR EARS IN DUST--YOU CAN'T!":Бе649AP1│PмS:ЕP1│857▒P1│859▒P1│826▒P1│890зP│Sл858:Бе1:Д559ИBA$│"FIRE":Бж14:ЕB$┤▓" CAN "з75:ДЕPмS┤▓478з75:ДЕO(9)┤▓9999зЗ"YOU CAN'T--YET!!":Бе4:ДЗ:З"////////// B-O-O-M \\\\\\\\\":З:┐0,1:%C╔"V30;O1;T190":АJ│1е10:╔"4;9;1;12;3;8;V-;V-;V-":Л:R$(12)│"STANDING ON A TREE LIMB AMID SPLINTERS OF WOOD*AN ASH TREE":З:T│1:АX│0е16:ЕO(X)│858зO(X)│858.1:/DЛ:Бе4:aEA$│"MOVE":Бж14:ЕB$│" ROC "зЕPмS│651зO(29)│651:ДFЕB$│" CRA "зЕPмS│407зO(33)│407:нGЕB$│" WAL "зЕPмS│43▒PмS│107зТSл75,27:═HЗ"OK, IT'S WORTH A TRY":Бе4;_IA$│"SIFT":Бж14:ЕB$┤▓" ASH "з75:ДЕPмS│570зАQ│1е3:З"SIFTING...";:Бж15:Л:З:ЕO(7)┤▓ Б(O(7))зЗ"HEY!  THERE'S SOMETHING HERE!":O(7)│ Б(O(7)):Бе4:Д4;hJБе75;}KЗ"YOU CAN'T":Бе4;юLA$│"PAY":Бж14:ЕB$┤▓" TRO "з75:ДЕPмS┤▓O(39)▒O(6)┤▓9999з75:ДЕCU│1зЗ"REMEMBER THE CURSE!":Бе4:ДG│Gм1:O(39)│9998<|MЗ"HE TOOK YOUR COIN, AND RAN OFF
TO DEPOSIT IT--YOU'D BETTER GET AWAY BEFORE HE COMES BACK!":ЕG┤1зO(6)│9998:I│Iм1:З"YOU ARE OUT OF GOLD!"<ДNБе4<╞OЗ:З"THIS ADVENTURE IS OVER--BUT YOU HAVEN'T SOLVED IT YET!":К=иPАX│1е20:Ю Д(8):а Д(200),1:Л:Ю:З@136,"CONGRATULATIONS!!!":З@193,"YOU HAVE SAVED THE KINGDOM OF
NEMORE AND FOILED THE EVIL KING   BLACARD'S DASTARDLY SCHEME
":З" NEMORE WILL SURELY KNIGHT YOU   FOR YOUR SKILL AND BRAVERY!!!=▓QЗ:З:К>RЮ:З@225,"TRY TO SIFT THROUGH THE CLUES
 TO SAVE THE KINGDOM OF NEMORE!":Бж15:Х100:МO(41),R$(58),O$(41)?SАX│0е58:НR$(X):ЛX:S│ Ж(27)н256л Ж(28)м1539:P│Sл708:S1│Sл512:O$│" BEE POT ELI SWO STA SCR SAC KEY SKE PUN CRO SCE CLO PAR SLA PAP ARM WEL SAR CAN ROC TAB COT INS BED DES BAT CRA ASH HOL HOL HOL HOL HOL LAD LAD LAD LAD LAD TRO BEA SNA "?ЩTI│1:АX│0е41:НO$(X),O(X):ЛX:G│3:C$│" INV TAK GET DRI EAT KIL ATT UNL OPE FEE DRO LOO REA CLI FIR SHO MOV SIF PAY QUI ":АX│1е4:НQ:ТQлS,3:Л?бUБе1@VЖ *NOTHING,*A STONE WALL,*THE MOAT,*A CLOSED DOOR,*THE MAIN GATE,*A SMALL WOODEN GATE,*A WALL@╤WЖ IN AN OPEN FIELD*A FIELD,IN A DENSE FOREST*TREES,STANDING IN THE OPEN*THE OPEN,IN A CLEARING UNDER A
LARGE TREE*A CLEARING,KNEE DEEP IN A DANK
SWAMP*SWAMP,IN A LARGE SINGLE-ROOM
TREEHOUSE*AN ASH TREEAЩXЖ ON A CINDER PATH*A PATH,BY THE WEST WALL OF THE CASTLE*THE OPEN,STANDING NEAR THE EAST
WALL*THE OPEN,NEAR THE NORTH WALL OF
THE CASTLE*THE OPEN,STANDING NEXT TO THE
CASTLE'S SOUTH WALL*THE OPENBГYЖ IN FRONT OF THE POSTERN GATE ON THE WEST WALL*THE OPEN,IN FRONT OF A SET OF
HUGE IRON GATES*THE OPEN,IN THE FIELD BY AN OLD
HUT*A FIELD,IN AN OLD THATCH-ROOFED HUT*A HUT,IN A GUARD HOUSE INSIDE THE POSTERN GATE*A SMALL BUILDINGCbZЖ IN A GUARD HOUSE INSIDE A SET OF HUGE GATES*A SMALL BUILDING,IN THE CASTLE'S OUTER
WARD*THE OPEN,IN THE CASTLE'S INNER
WARD*THE OPEN,IN THE WARD GATE GUARD
HOUSE*A SMALL BUILDING,IN A HIGH CEILINGED
PASSAGE*A PASSAGEDL[Ж IN A DAMP & DARK TUNNEL*A TUNNEL,STANDING IN AN OPEN DOORWAY*A DOORWAY,IN A CHAPEL WITH TWO
ROWS OF PEWS*THE CHAPEL,IN THE PRIEST'S LIVING  QUARTERS*A SMALL ROOM,IN THE SERVANT'S
QUARTERS*A ROOM,IN THE BANQUET HALL*A LARGE ROOME*\Ж OUTSIDE THE ROYAL APART-MENTS IN AN ANTECHAMBER*A ROOM,AT THE WEST END OF A
LONG PASSAGE*A PASSAGE,AT THE EAST END OF A
LONG PASSAGE*A PASSAGE,IN THE LIBRARY*A ROOM,AT THE NORTH END OF THE ROYAL APARTMENTS*A CHAMBERF
]Ж IN THE ROYAL APARTMENTS*A CHAMBER,IN THE SOUTHERN CHAMBER*A ROOM,IN THE ROYAL BED CHAMBER*A ROOM,IN THE BATH CHAMBER*A ROOM,IN A WRITING ALCOVE*AN ALCOVE,IN THE GUARD'S QUARTERS*A ROOM,IN THE WELL ROOM*A ROOMF╒^Ж IN A SMALL STORAGE ROOM*A ROOM,IN A LIVERY STABLE*A STABLE,IN THE CASTLE ARMORY*A ROOM,IN THE TREASURE HOUSE*A LARGE ROOM,IN THE COOKHOUSE*A BUILDING,IN THE SERVING KITCHEN*THE KITCHEN,IN THE LARDER*A ROOMG╨_Ж IN A GATE TOWER NEXT TO THE DRAWBRIDGE*A TOWER,STANDING IN A LARGE
EXERCISE YARD*THE OPEN,IN THE STOCKADE
(NOT A NICE PLACE!)*A PASSAGE,IN A SMALL CELL IN THE
STOCKADE*A DINGY ROOM,UP IN A BATTLEMENT ON
THE CASTLE WALL*A STAIRWAY LEADING UPWARDGш`Ж IN A CRYPT*A ROOMH╪aЖ A CHUNK OF BEEF*'S QUITE A LARGE PIECE,405,THE POTION OF MORPHEOUS*'S FULL,1297,THE ELIXER OF INVISIBILITY*'S FULL,101,A BROADSWORD*'S VERY HEAVY,190,A SHINING METAL STAFF* HAS WRITING ON IT,1232,A WIZARD'S SCROLL* CONTAINS MAGIC,110I╙bЖ A SMALL SACK* CONTAINS GOLD COINS,858,AN IRON KEY*'S VERY RUSTY,570.1,A SKELETON KEY*'S MADE OF BONE,103.1,A STICK OF PUNK*'S SMOLDERING,391,A GOLDEN CROWN*'S NEMORE'S!,267.1,A JEWELED SCEPTER*'S NEMORE'S!,461.1,A PURPLE CLOAK*'S NEMORE'S!,1295J╣cЖ A CREASED PARCHMENT* HAS SYMBOLS ON I .╩&6Бе105::ГCOPYRIGHT(C) CLOAD     PUBLICATIONS 1983&╖
Ю:З"YOU ARE "; О(R$( Ж(P)), Ю(1,R$( Ж(P)),"*")м1):З:З"YOU SEE :":А X│0 е 41:Е O(X)лS│P з З О(O$(X), Ю(1,O$(X),"*")м1):Л :Д Л'TЗ:З"NORTH "; П(R$( Ж(Pм32)), З(R$( Ж(Pм32)))м Ю(1,R$( Ж(Pм32)),"*")):З"SOUTH "; П(R$( Ж(Pл32)), З(R$( Ж(Pл32)))м Ю(1,R$( Ж(Pл32)),"*")):Е PмS│103 з CU│1'╪З"EAST "; П(R$( Ж(Pл1)), З(R$( Ж(Pл1)))м Ю(1,R$( Ж(Pл1)),"*")):З"WEST "; П(R$( Ж(Pм1)), З(R$( Ж(Pм1)))м Ю(1,R$( Ж(Pм1)),"*")):З(PЙ"WHAT TO DO";B$:Е З(B$)┤1з4:ДЕ З(B$)│1зЕPмS│O(39)зЗ"THE TROLL WON'T LET YOU PASS":Бе4:ДИ Ю(1,"NSEW",B$)Бе8,9,10,11(ЮB$│B$л" ":A$│" "л О(B$,3)л" ":B$│ О(" "л П(B$, З(B$)м Ю(1,B$," ")),4)л" "(ЄИ( Ю(1,C$,A$)л3)о4Бе16,18,18,21,21,26,26,30,30,34,38,41,46,54,66,66,69,73,76,79)З"I DON'T UNDERSTAND":Бе4)CP1│ Ж(Pм32):Е P1▓6 ░ P1┤▓12 з P│Pм32:Бе1 :Д 13)v	P1│ Ж(Pл32):Е P1▓6 ░ P1┤▓12 з P│Pл32:Бе1 :Д 13)╤
Е Ж(P)│11 ░ O(4)┤▓9999 з 12 :Д P1│ Ж(Pл1):Е P1▓6 ░ P1┤▓12 з P│Pл1:O(39)│1245:Бе1 :Д 13*
P1│ Ж(Pм1):Е P1▓6 ░ P1┤▓12 з P│Pм1:ТSл75,6:Бе1 :Д 13*╡З"OH NO! THE SLIME AND WATER FROM THE SWAMP HAVE RUSTED THE JOINTSOF YOUR ARMOR SOLID--YOU CANNOT MOVE!!":АX│0е1й0:Й"WHAT TO DO";A$:Е О(A$,3)│"QUI"з79:ДЗ"YOU CAN'T":Л*╫
З"YOU CAN'T GO THAT WAY!":Бе4+Е З(B$)┤5зЗA$;:Й" WHAT";B$:B$│" "л О(B$,3)л" ":Бе14:ДР+$АX│1е750:ЛX:Р+oЗ"YOU ARE CARRYING :
":АX│0е16:ЕO(X)│9999зЗ О(O$(X), Ю(1,O$(X),"*")м1)+{Л:З:Бе4+║ЕI▓3зЗ"YOU'LL HAVE TO DROP SOMETHING!":Бе4:ДA$│"TAKE":Бж14,
C│( Ю(1,O$,B$)л3)о4м1:ЕC┤0з20:ДЕC┤16░O(C)лS│P зO(C)│9999:I│Iл1:З"TAKEN":Бе4,)З"YOU CAN'T TAKE THAT":Бе4,nA$│"CONSUME":Бж14:И( Ю(1," BEE POT ELI ",B$)л3)о4Бе22,23,24:Бе75,╚ЕO(0)│9999зO(0)│9998:I│Iм1:З"GOBBLE GOBBLE...IT WOULD'VE BEENBETTER COOKED!!":Бе4:Д75-NЕO(1)│9999зЗ"GLUG GLUG GLUG...";:Бж15:З"HMMM NOT BAD...YOU FEEL VERY SLEEPY AND DECIDE TO TAKE A NAP--YOU HAVE NICE
DREAMS":К:Д75-╫ЕO(2)│9999зЗ"CHUGA-LUGLUGLUG...";:Бж15:З"HEY!! IT'S
WORKING!!";:Бж15:З"  EVERYTHING ELSE IS
INVISIBLE--";:Бж15:З"YOU'RE BLIND!!":Д75.Й"WHAT TO DO";A$:Е О(A$,3)│"QUI"з79:ДЗ"YOU CAN'T":Бе25.VA$│"KILL":Бж14:ЕB$┤▓" SNA "з75:ДЕO(3)┤▓9999з75:ДЕO(41)┤▓PмS з75/З"YOU TAKE A MIGHTY SWING WITH
YOUR SWORD...";:Бж15:З"AND STRIKE THE
STONE FLOOR NEXT TO THE SNAKE'S TAIL--";:Бж15:Бж15:З"BREAKING YOU SWORD, AND
SCARING THE SNAKE AWAY IN THE
PROCESS."/_O(3)│9998:I│Iм1:O(41)│110:O(11)│ Б(O(11)):АX│0е16:ЕO(X)│110зO(X)│110.1/iЛ:Бе4/╖A$│"OPEN":Бж14:ЕB$│" DOO "з31:ДЕB$│" SAR "░PмS│103зO(8)│ Б(O(8)):Бе33:Д75/∙ЕO(7)│9999зK│Kл1:Бе32:ДЕO(8)│9999з32:ДЗ"YOU CAN'T--YET!!":Бе40d P1│PмS:ЕP1│62зТSл61,29:Бе33:ДЕP1│124зТSл125,29:Бе33:ДЕP1│188зТSл189,29:Бе33:ДЕP1│131зТSл99,29:Бе33:Д750┬!З"OK--ITS OPEN":ЕK│2зЗ"OH NO! THE KEY BROKE OFF IN THE LOCK!!":K│0:O(7)│9998:I│Iм1:Бе4:Д41"A$│"FEED":Бж14:ЕB$┤▓" BEA "з75:ДA$│"FEED IT":B$│"":Бж14:ЕCU│1зЗ"REMEBER THE CURSE!!":Бе41Ш#C│( Ю(1,O$,B$)л3)о4м1:ЕC┤0▒C▓16з75:ДЕO(C)│9999░PмS│267░C┤▓16зO(C)│9998:I│Iм1:З"WOW!! IT REALLY GOBBLED THAT UP!":Д7524$ЕC│1░PмS│267зБж15:З"HEY! THE BEAST JUST CURLED UP
INTO A BALL, AND APPEARS TO BE
DREAMING!":O(10)│ Б(O(10)):O$(40)│"A SLEEPING BEAST*'S HAVING A DREAM"2<%Бе42є&ЕI│1зЗ"YOU HAVE NOTHING WHICH YOU CAN
DROP":Бе4:ДЕCU│1зЗ"REMEBER THE CURSE!!!":Бе4:ДЕPмS│858░T│1зЗ"YOU CAN'T DROP ANYTHING HERE--ITWILL FALL OUT OF THE TREE!":Бе4:ДA$│"DROP":Бж143i'C│( Ю(1,O$,B$)л3)о4м1:ЕC┤0з40:ДЕC┤16░O(C)│9999зO(C)│PмS:I│Iм1:З"DROPPED":Q│0:ЕO(10)│858░O(11)│858░O(12)│858з80:Д43И(З"YOU CAN'T DROP THAT":Бе43╖)Е З(B$)┤5з1:ДC│( Ю(1,O$,B$)л3)о4м1:ЕC┤0з453у*ЕC│29зАX│29е33:ЕO(X)лS│P зC│X:X│34:Л:ДЛ4+ЕC│34зАX│34е38:ЕO(X)лS│P зC│X:X│39:Л:ДЛ4V,ЕO(C)лS│P ▒O(C)│9999зЗ"IT"; П(O$(C), З(O$(C))м Ю(1,O$(C),"*")):Бе44y-З"YOU SEE NOTHING UNUSUAL":Бе44╨.A$│"READ":Бж14:И( Ю(1," INS STA SCR PAR SLA PAP ",B$)л3)о4Бе47,48,49,50,52,53:Бе755!/ЕPмS│39зЗ"IT SAYS:
ALLAY HOWAY ENTERAY EREHAY
HALLSAY EBAY URSEDCAY":Бе4:Д755С0ЕO(4)│9999зЗ"IT SAYS:
GUARANTEED NOT TO RUST, CORRODE,OR TARNISH.  A PRODUCT OF THE
ACME STAFF CO.":Бе4:Д756M1ЕO(5)│9999зЗ"IT SAYS:
BY THE POWER VESTED IN ME BY THESTATE OF CHAOS, REMOVE ALL
CURSES FROM THIS PERSON.

SIGNED, DER WIZARD
HEY THE SCROLL VANISHED!!":CU│0:O(5)│9998:I│Iм1:Бе4:ДБе756j2ЕO(13)│9999зQ│S:Бе51:Д756▄3З"IT LOOKS LIKE A DRAWING OF SOME SORT":Бж15:АX│1024е1535:ТX, Ж(Q)л68:Q│Qл1:Л:А X│1 е 10 й0:Е  Т┤▓"" з 1 :Д Л6¤4ЕO(14)│9999зQ│Sл512:Бе51:Д7575ЕO(15)│9999зQ│Sл1024:Бе51:Д757b6A$│"CLIMB":Бж14:C│( Ю(1," LAD ROP TRE ",B$)л3)о4:ИC Бе56,63,657Г7З"YOU CAN'T CLIMB THAT!":Бе47н8Q│0:АX│29е38:ЕO(X)│PмS зQ│X:X│39:Л:ДЛ7▀9ЕQ│0з55:ДИQм28Бе59,59,60,60,60,61,61,62,62,627ч:Бе17ў;P│Pл512:Бе18<P│P В&
:ГCONNECT THE DOT COVER&1:ГBY ERIC FADEN&E:Г5318 DIAZ PL.&b:ГJACKSONVILLE, FL 32210&{:ГPUT COPYRIGHT HERE&│└ 4:MAX│100:T2│2:М LO$(7),C(67),B(67),E(MAX),D(MAX)&═T2│T2л1:Е T2▓4 з T2│3&ч	Е T2│3 з G2│0 :Д G2│1&№
╚T2,1:┴4,1:┐1,G2'Q│0'
(╝'╪2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"(ж4LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк")t6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"*B8LO$(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О
 0
жДИ зАМ% &їжДИ зА9HAC"-6FVP│0:AD│0:VP│ Э(LO$(0))-SKAD│ Ж(VPл2)н256л Ж(VPл3)-ePVP│ Э(LO$(7))-СUQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q:╣ Г1│Qл70-┼XТQл7, Ж(188)м1:ТQл71, Ж(188)м1:ТQл82, Ж(188)л23-╥_T│ Г(AD)-ю`╞"BM0,0;R254D42L255U42"- aА G1 │ 1 е 3.dTR│ Д(MAX).eА T│1еTR.>nE(T)│ Д(253)л1:D(T)│ Д(149)л42.rxЕ T2│3 з ╜(E(T),D(T), Д(3)л1) :Д ╜(E(T),D(T),4).ЙВА R │ 1 е 10:Л R,T.ЬМА T │ 1 е TRм1.╛ЦЕ T2│3 з ┴  Д(3)л1,1 :Д ┴ 4,4.са╗(E(T),D(T))м(E(Tл1),D(Tл1)),╜.°кА R │ 1 е 50:Л R,T/пА R │ 1 е 460:Л R/#┤А T │ TR е 2 йм1/?╛Е T2│3 з ┴ 1,1 :Д ┴ 1,1/b╚╗(E(T),D(T))м(E(Tм1),D(Tм1)),╛/m╥Л T,G1/y▄Бж 1000/ВцБе 8/▓шВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS./╕ЄЮ/╪№З@38,"CHROMASETTE MAGAZINE"/ З" ISSUE #26         AUGUST 1983";0З0,З:З" ALL PROGRAMS CONTAINED HEREIN0LЗ"      COPYRIGHT (C) CLOAD0p$З"  PUBLICATIONS  P.O. BOX 14480У.З"    SANTA BARBARA, CA 93102.0╢8З"   REPRODUCTION BY ANY MEANS0▌BЗ" PROHIBITED. CLOAD PUBLICATIONS"1LЗ" ASSUMES NO RESPONSIBILITY FOR1(VЗ"  ERRORS, OMISSIONS OR DAMAGES"1M`З"   CAUSED BY THE USE OF THESE"1bjЗд11)"PROGRAMS."1s~АI│1е5000:ЛI1{ГX│01БИРBARA, CA 93102.0╢8З"   REPRODUCTION BY ANY MEANS0▌BЗ" PROHIBITED. CLOAD PUBLICATIONS"1LЗ" ASSUMES NO RESPONSIBILITY                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ─├┬!├#╔%╞'(┼*+╚┴                       DOTCOVERBAS ЕMOONFLT BAS"FCASTLADVBAS═COLORINSBAS$бCOLORDOTBAS&√KEEPCHEKBAS)│TRKLOC  BAS╘GRID    BINMLSCORE BIN,╜                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 C&
Бе 3&b
:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.               BY PAUL GRIFFITHS&jБе5&u└5:Бе2&┼Ю:Й"CAN YOUR COMPUTER HANDLE HIGH   SPEED (Y/N)";H$:Е О(H$,1)│"Y"з Т65495,0&╪
╚ 4,1:╝:╚0,5:╝'6ZA│0:Z│0:X│0:Y│0:╣╠A(X)│ Б( Н(0)о22)м1:╣╠B(X)│ Б( Н(1)о22)м1:МB(6):МP(11):╣╠C(X)│ В(XM)л1'╕Ю(3):АX│1е11:НA$:З@Xл169,A$;:╔"L255;DADA":ЛX:АX│1е2:НA$:З@238лX,A$;:╔"DADA":ЛX:АX│1е14:НA$:З@296лX,A$;:╔"DADA":Л:╔"L10DCAFGD"'┬(Бж120'╠2Бж150'╓<Бж220(FЗ@361,"CHOOSE";:З@393,"1)SAME GAME";:З@425,"2)NEW GAME ";(RPA$│ Т:АZ│436е437:З@Z, Л(175);:ЛZ:З@436, Л(176);:ЕA$│""з80(}ZC│ Й(A$):З@435,C;:┐0,1:ЕC│1зБж180:Бе60(ЙdЕC│2з50(УnБе 80(єx╚4,1:╝:АZ│1е70:X│ Д(20):Y│ Д(20):╜(Xл50,Yл50,5):Л:─(50,50)м(62,62),B,G:─(50,50)м(70,70),P,G)AВАZ│1е5:НS$(Z),R$(Z):Л:НR$(6):АZ│1е3:АX│1е5:НF$(Z,X):ЛX:ЛZ:АZ│1е4:НN$(Z):Л)GМР)¤ЦЗ@361,"CHOOSE";:З@393,"TERRAIN(1-9)";:АX│406е447:З@X, Л(175);:ЛX:Бж160:T│G:З@405,T;:┐0,1::ЕT│0з150:ДT│Tн18:TA│180мT:Бж180:З@393,"GRAVITY(0-9)";:Бж160:З@405,G;:╔"DCAFGD":G│Gо10:Р*;аA$│ Т:АX│406е407:З@X, Л(175);:Л:З@406, Л(176);:ЕA$│""з160*XкG│ Й(A$):ЕG▓9▒G┤0з160:ДР*т┤╚3,1:╝:┐1,1:╗м(0,50),╛:АX│0е30й10:Бж190:Л:Z│1:Бж200:АX│92е122й10:Бж190:Л:Z│2:Бж200:АX│174е198й8:Бж190:Л:Z│3:Бж200:╗м(256,180),╜:Бе210+╛╔"L255DA":Y│ Д(T)лTA:╗м(X,Y),╜:Р+a╚ZA│ Д(5):╔"AD":X│Xм10:╞"S4FM"л И(X)л","л И(Y)лF$(Z,ZA):Z(Z)│Yл2:Z(Zл3)│Xл10:T(Z)│ZA:Р+╔╥╚4,1:┐1,1:├(1,195),5,5:АZ│1е3:╞"S2C2BM"л И(Z(Zл3)л10)л","л И(Z(Z)л3)лN$(Z):Л:╞"S2C2BM3,188"лN$(4):Р,_▄F│75л(50нG):X│15:Y│20:XV│4:YV│0:S│3:╚4,1:┐1,0:Q│10:C│1:╔"L255O2D":╞"S4;C2;BM0,191R"л И(F):F(1)│50:F(2)│145:F(3)│220:OB│4:OA│71:O│3:XA│X:YA│Y:OC│8,╨цЕF┤1зF│0:YV│YVл1:R│6:YC│0:XC│0:OA│OAм1:O$│"O"л И(OB)л";L155;V31;"л Л(OA):╔O$:ЕOA│65зOA│71:OB│OBм1:ЕOB┤1зOB│3,ыЁЕF│0зR│6:S│ Д(5):Бе320-·Z│ Ж(65280):ЕZ│127▒Z│255зXC│0:YC│0:R│6:Бе320-L
XC│╠A(XC):YC│╠B(YC):YV│YVлYC:XV│XVлXC:F│Fм1-`
ЕXC│0зS│5:Бе300-|
ЕYC▓│0зS│XCл2:R│S:Бе310-З
"S│XCл3-Ъ
,ЕYC▓0зR│6:ДR│S-г
6╔"D"-┼
@YV│YVлG:X│XлXV:Y│YлYV:Y│ Б(Y)-┘
JЕF▓0з╜(F,191,5)-№
TЕX▓255мQ зX│245:XV│0:ЕQ│35з690.
^ЕX┤Q зX│10:XV│0:ЕQ│35з690.7
hЕY┤Q зY│Q:YV│0:ЕQ│35з690.d
r╞"C2;BM"л И(XA)л","л И(YA)лS$(SA)лR$(RA).б
|╞"C1;BM"л И(X)л","л И(Y)лS$(S)лR$(R):XA│X:YA│Y:SA│S:RA│R.п
ЖЕQ│35з450.╚
РЕX▓34░X┤78зZ│1:Бе440.у
ЪЕX▓126░X┤170зZ│2:Бе440.°
дЕX▓200зZ│3:Бе440/
оБе450/
╕ЕZ(Z)мY┤28░XV┤2░YV┤3з630/6
┬Е а(XмO,Yл2)│1з500/M
╠Е а(XлO,Yл2)│1з500/n
╓Е а(XмO,YмOC)│1зY│YмOC:Бе500/П
рЕ а(XлO,YмOC)│1зY│YмOC:Бе500/Щ
ъБе230/╙
ЇЕ а(XлOм2,Yл2)│1░ а(XмOл2,Yл2)│1░XV│0░YV┤2.5зC│0:ДC│1/р
■ЕC│0з5500┼(Xм6,Yм6)м(Xл6,Yл6),B,╜:M$│"CRASH LANDING":S│00;ЕQ│35з┼(Xм10,Yм10)м(Xл10,Yл10),P,╜0lАZ│1е30:┐1,0:╔"L255DCA":┐1,1:╔"DCA":ЛZ:Бе5700а&ЕS│5з╔"L10DCAFGD":M$│"SAFE LANDING"::ДC│1:Бе5100╛0S│( В(3мYV)лFлGн10лT)н5нD1z:Ю(3):З@10,"MOON FLIGHT";:З@65,"VERTICAL VELOCITY:";:З@97,"HORIZONTAL VELOCITY:";:З@161,"SCORE";:З@175,"HIGH SCORE";:З@229,"FUEL";:АZ│1е20:З@293,"             ";:З@293,M$;:╔"L255DCA":Л1ЧD╔"DCA":M$│"SAME PLAYER "1 NSS│SSл Б(S):З@86, Б(0мYVн10);:З@118,(XVн10);:З@167,SS;:╔"L255DCAFGD":ЕSS▓HS з╔"L10DCAFGDCL5D":HS│SS23XЗ@186,HS;:З@234,F;:ЕS│0зSS│0:M$│"NEW PLAYER UP"2AbЗ@293,M$;2GlР3
v╞"C2BM"л И(X)л","л И(Y)лS$(S)лR$(R):Y│196м(Z(Z)мYл2)н4:╚0,5:╝:╞"S16BM0,160"лF$(Z,T(Z)):╗м(255,196),╜:┐1,0:├(1,195),5,5:Q│35:X│(XмZ(Zл3)л10)н4:╞"C5S4BM0,191R250L250C2R"л И(Fм1):D│Z:O│10:OC│203)А╞"S3C2BM3,184"лN$(4)л"S16"3:КЕX▓235зX│2353NФXV│XVн2:YV│YVн23]ЮЕY┤35зY│353qиYA│Y:XA│X:Бе2504▓╞"C2BM"л И(XA)л","л И(YA)лS$(SA)лR$(RA):Q│10:O│3:╚4,1:┐1,0:╞"C5S4BM0,191R200L200C2R"л И(F):X│ Б(Xо4)лZ(Dл3)м10:Y│ Б((Yм196)о4лZ(D)л2):OC│84╝ЕX▓245зX│245:Y│Yм104,╞XA│X:YA│Y:Бе3704╝╨ЖM,O,O,N,.,F,L,I,G,H,T,B,Y,P,A,U,L,.,G,R,I,F,F,I,T,H,S,R3U4L4G2F2,R4U2R2,H3U3R3F3G3,E2F2,L3U4R4F2G2,L4U2L2,H3E3R3D3G3,H2G2,L2U4E2F2D4L2,D3,5V┌ЖE14U8F4D8F8R8D6L8U4R8U3E12D2F14,E10R16D6L14U3R16U2F4R14D6L12U3R14U3F6,U36F28R8D6L8U3R8U3F8E8F8,E12U6F6D6R14D6L12U3R14U20F22,E12F8E8R8D6L6U3R6U3E10D86фЖU16E10D16F6R10D6L10U3R10U3U14H2U6F6D4F12,E14U12E8D20G8R20D6L20U3R20U3U14E14D12,E21D8R12D6L12U3R12U3E8H14E8F10,U26E16F16G12F8R20D6L20U3R20U3F8,U3E16F16R8D6L8U3R8U3U24F12D206═юЖE4H4U8E8D8F4D6R12D6L12U3R12U3E4U6E4H8E6F8D10F14,U24E16D8G8D16R12D6L12U3R12U3F12E8,U20E28D24L12D16R16D6L16U3R16U3E12F8,U8E16F16R8D6L8U3R8U12H8E8F8,E8U16E16D16F8D8R16D6L16U3R16U3U24H8E16F10G6D307B°ЖBR25L8D4R8D6L8,E2D10L2R4BR10U10R8D10L8,E2D10L2R4BR10R8U6L8U4R8,U6R8L8U4R8BR8D10R8U10BR8R8L8D4R8L8D6R8BR8R8L8U10G8D16R12D6L12U3R12U3F12E8,U20E28D24L12D16R16D6L16U3R16U3E12F8,U8E16F16R8D6L8U3R8U12H8E8F8,E8U16E16D16F8D8R16D6L16U3R16U3U24H8E16F10G6D307B°ЖBR25L8D4R8D6L8,E2D10L2R4BR10U10R8D10L8,E2D10 Ю&%
:ГCOPYRIGHT (C) CLOAD INC. 1983&/Бе700&L
:Г COLORDOT INSTRUCTIONS&o:Г BY BUD RUSSELL & ED DELOUIS&y(Бе680&г2НI$:ЕI$│"*FLAG*"зP│(Pл1)нм(P┤O2):Бе50&▒<ЕP│DD з50'FЕI$┤▓"*PROMPT*"зЕI$│"*END*"з100:ДЕI$│""зЗ:Й"ENTER TO CONTINUE";I$:Ю:Бе50:ДЗд(32м З(I$))о2)I$:Бе50'@PI$│ Т:ЕI$│"J"зDD│1:ДЕI$│"K"зDD│2:Д80'IZБе50'^dI$│ Т:╔"T16XP$;"'НnI$│ Т:ЕI$│"R"з╚3,1:╝:П:Бе610:ДЕI$┤▓"L"з110'╡x╝:Ю:З"TYPE 'RUN' THEN <<ENTER>>":┐1'└}Бе 150()ВБж180:┴2,1:┬(230,30),20,2:├(230,43),2:╗(200,24)м(160,20),╜:╗(205,43)м(165,67),╜:╗(225,55)м(215,90),╜(яМ╞"C3BM50,50E2R4F4E6R3FC2BM81,20ER2F3E3RFS8BM44,100GD10FR5EUBU8UHL4BR11BU4GD10FR5EU10HL4BR9BU3D12R6BR4BU2HU10ER5FD10GL4BR9U12R7FD4GL4NL2F6BR3BD2R1NU12R6EU10HL7BR14BD3GD10FR5EU10HL4BR9BD4R4ND12R4) ЦЮ:З:З"  NOW CLOAD AND RUN 'COLORDOT'.":З:З:К)xаB│ З(I$):ЕB зC│HSмBнO6::ДF│FлO1л(F│O4)нO3:┴F:A│ Г(A):Р:В*** GRAPHIC PRINTSUBROUTINE)├кАA│O1 еB:D$│"BM"л И(C)лY$лL$( К( Р(I$,A,O1))мD):╞D$:C│CлT2:Л:A│ Г(A):Р*┤┬(HS,Y),95,4,H,I,E:┬(HS,Y),80,4,H,I,E:├(36,Y),4,4:В*** RAINBOW SUBROUTINE*G╛┬(HS,Y),80,2,H,I,E:┬(HS,Y),66,2,H,I,E:├(50,Y),2,2*}╚┬(HS,Y),50,3,H,I,E:┬(HS,Y),36,3,H,I,E:├(80,Y),3,3*Г╥Р*и
"Ж ,BDD4RFR5EBU4HL4,R2ND5R5FD4GL6*╗
,Ж NR8D3NR4D3R8*╘
6Ж D6R8,ND6RFRFRERED6*°
@Ж BFD4FR5EU4HL5,ND6R7FDGL4FRFRF+
JЖ R4NR4D6,D6RERERFRFU6+=
^Ж I@C@D@A@F@E@C,,H@F,,A@F@D@F@G@B@F@H+a
hЖ HI!," ",MY NAME IS RUDEY!," "+█
rЖ IF YOU ARE GOING TO,PLAY COLORDOT WITH,"JOYSTICKS PRESS 'J',",OTHERWISE PRESS 'K',TO USE THE KEYBOARD.,*PROMPT*," ",8
|Ж "OKAY, I'LL TELL YOU",HOW TO PLAY USING,*FLAG*,THE KEYBOARD.,*FLAG*,JOYSTICKS.,*FLAG*,,╖
ЖЖ DO YOU KNOW HOW TO,PLAY CONNECT THE,DOTS? WELL-,YOU GRAB A PIECE,OF PAPER AND PUT A,BUNCH OF DOTS ON IT.,LIKE SO ...," "-@
РЖ ............,............,............,............,............,............,,THEN YOU TRY TO MAKE,THE MOST BOXES BY,TAKING TURNS-~
ЪЖ CONNECTING TWO DOTS,WITH A HORIZONTAL,OR VERTICAL LINE..7
дЖ " ","WHEN IT'S YOUR TURN,",YOUR LINE WILL BE,FLASHING YOUR COLOR.,MOVE IT WHERE YOU,WANT TO PUT IT,*FLAG*,USING THE ARROW KEYS,ON THE KEYBOARD.,*FLAG*,USING YOUR JOYSTICK.,*FLAG*.╜
оЖ,WHEN IT'S THERE TELL,ME TO PUT IT ON,THE GAMEBOARD BY,*FLAG*,PUSHING THE SPACEBAR.,*FLAG*,PRESSING YOUR,JOYSTICK BUTTON.,*FLAG*/\
╕Ж " ",TO MAKE THINGS,"INTERESTING, FIVE",LINES ARE PLACED,RANDOMLY AROUND THE,GAMEBOARD THAT AWARD,YOU WITH A FREE TURN.,THESE ARE CALLED,'FREEBIE' LINES./■
┬Ж ,"ALSO, THERE ARE TEN",LINES THAT ARE,RESERVED FOR EACH,PLAYER. IF YOU,ATTEMPT TO TAKE THE,"OTHER PLAYER'S LINE,",A MESSAGE TELLS YOU,THAT IT'S THEIR LINE.0У
╠Ж ,THE OBJECT OF,COLORDOT IS TO MAKE,MORE BOXES THAN YOUR,"OPPONENT, BUT YOU",WILL SOON LEARN,THERE IS MORE TO THIS,GAME THAN JUST,MAKING BOXES.0щ
╓Ж ,'RUDEY' MAY BE TYPED,"AS A PLAYER'S NAME,","TO PLAY AGAINST ME,",THE COMPUTER.1Н
рЖ " ",THE GAMEBOARD HAS 96,"BOXES, AND YOU GET",ONE POINT FOR EACH,BOX YOU MAKE SO YOU,WIN WITH 49 POINTS.," ",YOU MAY ABORT A,GAME AT ANY TIME,BY PRESSING 'X'2
ъЖ ,AT THE END OF A,GAME PRESSING ANY KEY,WILL BEGIN A NEW,"GAME, BUT AFTER A",WHILE IF YOU DON'T,PRESS A KEY I WILL,PLAY WITH MYSELF.2t
ЇЖ ," "," "," "," ",TO REVIEW THE,INSTRUCTIONS,PRESS 'R'," ",TO LOAD 'COLORDOT',PRESS 'L'2А
■Ж *END*2в╚3,1:╝1:┐1:В***INITIALIZATION2нМL$(9)2┬A│0:B│0:C│0:D│642ъ&T2│12:O1│1:O6│6:O5│5:O4│4:O3│3:O2│22√0P│0:DD│1:F│43":FS│255:HS│128:Y│191:H│.66:I│.5:E│03,DБж1803xNO│640л Ж(186)н256л Ж(187):ТMLл3,Oо256:ТMLл4,(Oо256м Ж(MLл3))н256:╣ Г│ML3╕XO│Oл1791:Y$│",70":ТMLл11,Oо256:ТMLл12,(Oо256м Ж(MLл11))н2563╧b┐1:АX│0е9:НL$(X):Л3▌lF│O4:┴F,13ЇvАG│1е5:НI$:Бж160:Л4АP$│"L4CDFAEL8GGL4FEFDEL2C"4%К╔"V15T3XP$;P140ЮЮ:Бе504xи└4:ML$│"╞
ОАжИ зАМ#ЎZ&Ё9":O│ Э(ML$)л2:ML│ Ж(O)н256л Ж(Oл1):Бе5204З╝└4:╚4:Бе40╞
ОАжИ зАМ#ЎZ&Ё912,(Oо256м Ж(MLл11))н2563╧b┐1:АX│0е9:НL$(X):Л3▌lF│O4:┴F,13ЇvАG│1е5:НI$:Бж160:Л4АP$│"L4                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 °&
Бе 2&
Бе4& └4:╚4:Бе1&X:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.&bБе101&СI$│ Т:ЕI$┤▓"J"░I$┤▓"K"з5:ДK│I$│"K":ЕK зНI$&ЮНI$:Бж38'АP│0е1:┴4,1:A│ Г(A):K$│ Т:I$│"WHO IS PLAYER "лC$(P):Бж38:A│ Г(A):Бж85:ЕK$│""зPN$(P)│PS$(P):ДPN$(P)│K$:PS$(P)│K$'aI$│PN$(P)л"/S LETTER IS":Бж38:I$│"/"л О(PN$(P),1)л"/ WITH THIS COLOR":Бж38'╜	ЕPN$(P)│R$зI$│"":ДI$│"AND WILL USE THE":Бж38:ЕK з I$│"KEYBOARD"::ДI$│J$(P)л" JOYSTICK."'╨
Бж38:A│ Г(A):Л(YАX│0е24:АY│0еYW:L(X,Y)│O0:ЛY,X:АX│0е24й2:L(X,YW)│м9:Л:АZ│0е4:Бж42:L(X,Y)│9:Л:АZ│0е9:Бж42:L(X,Y)│O1:Бж42:L(X,Y)│2:Л:АZ│0еTB:B(Z)│O0:Л(╜KX│6:KY│4:NB(0)│0:NB(1)│0:EX│0:FB│0:OB│0:NT│N1:NO│0:RS(0)│10:RS(1)│10:NL│212:FG│4:BG│1:┴FG,BG:╝)S
╞"C4BM128,177L128D14R255U14L128U42R127ND41U135L255D135ND41R128C2BM4,1R244D133L244U132C3BR6R232D131L232U131":АX│30е222йT6:АY│11е124йT4:╜(X,Y):ЛY,X)╛АP│0е1:├(64лPн128,136),Pл2,4:┴ В(Pм1)л2,Pл2:I$│PN$(P):YD│142:Y$│",142":Бж49:Бж48:Л:P│ Д(2)м1:╔"T16XP$;)╘PO│Pл1:P│ В(P│O0)*┴POл1,Pл2:╗(O2,178)м(252,190),╛,BF:X│KX:Y│KY:I$│ Т:Е(иK)░╠B(P)з16*ЗЕPN$(P)│R$з50:ДЕK з84:ДZ│ Н(0):X│ Ш( Ж(JXл В(Pм1)н2)нXC):Y│ Ш( Ж(JYл В(Pм1)н2)нYC):X│ В(Xл(Y│8))▒ В(Y│8)*бЕY│8зX│(1▒X)л2н(X│24)*├Е(1░X)зYI│0:XI│6:ДYI│6.5:XI│0+X1│Xн8лXO:Y1│Yн14лYIлYOл.5:YI│ Ш(YI):FG│ а(X1,Y1):Z│7:ЕFG│Pл2зBG│1:ДBG│Pл2+б┴FG,BG:╗(X1мXI,Y1мYI)м(X1лXI,Y1лYI),╛:I$│ Т:ЕI$│"X"з╝1:Y$│",170":Бе7:ДЕPN$(P)│R$зЕZ┤0▒PN$(POм1)│R$з23:ДZ│Zм1:АB│0е10:Л:Бж43:АB│0е10:Л:Бе21+╔ЕL(X,Y)│м9▒I$┤▓" "░и╠B(P)зБж43:Бе17,┴POл1,Pл2:KX│X:KY│Y:I│ В(L(X,Y)):ЕPO│I з34:ДЕI│Pл1зRS(P)│RS(P)м1,SFB│L(X,Y)│9:L(X,Y)│м9:NL│NLм1:B│ Ш(Xо2)лYнXW:ЕX│XWн2з29:ДЕY│8з27,dБж44:ЕYI з28,pЕY│0з30,ЕB│BмXW:Бж44:Бе30,СЕX│0з30,аB│Bм1:Бж44,╛ЕNL│0з32:ДЕNL│RS(POм1)з15,сЕFB з36:ДЕEX зEX│EXм1:Бе16:Д15- Y$│",181":I$│"PRESS ANY KEY":Бж39:CT│400-\!Е Т┤▓""▒╠B(P)з╝1:Y$│",170":Бе7:ДCT│CTм1:ЕCT з33:ДPN$(0)│R$:PN$(1)│R$:Бе11-Я"L(X,Y)│мPO:I$│" "лPN$(POм1)л"/S LINE ":Y$│",181":┴1:Бж43:┴POл1-╔#Бж39:╔"L64O3XPL$;O2XPL$;O1XPL$;":Бе16.$FB│0:EX│EXл1:I$│PN$(P)л"/S FREEBIE":Y$│",181":Бж39.$%╔"L32O1CFO2CFO3CFO4CFO5CF":Бе31.0&A│ Г(A).f'CT│ З(I$):ЕCT зC│HSмCTнO6 :ДF│FлO1л(F│O4)нO3:┴F:Р.н(АA│1еCT:A$│ Р(I$,A,O1):ЕA$┤▓" "зD$│"BM"л И(C)лY$лL$( К(A$)м45):╞D$.╝)C│CлT2:Л:Р.ш*X│ Д(25)м1:Y│ Д(YWл1)м1:ЕL(X,Y)│0зР:Д42/
+╗(X1мXI,Y1мYI)м(X1лXI,Y1лYI),╜:Р/*,B(B)│B(B)л1:ЕB(B)│3зNT│B/8-ЕB(B)┤4зР/о.EX│EXл1:╔"L32O3CEGL16O4C":B1│BоXW:X1│ Ш((B1м Б(B1)л.03)нXW)нT6лXOл2:Y1│ Ш(B1)нT4лYOл1:╗(X1,Y1)м(X1л12,Y1л12),╛,BF0-/D$│"BM"л И(X1л2)л","л И(Y1л3)лL$( К(PN$(P))м45):╞D$:NB(P)│NB(P)л1:ЕNB(P)│49зI$│"WINNER":Y$│",152":C│Pн128л24:CT│6:Бж40:╔P$0R0I$│ И(NB(P))л" ":YD│162:Y$│",1620Ы1CT│ З(I$):C│Pн128л(10мCT)н6:XI│CлCTнT2:╗(C,YD)м(XI,YDл7),╛,BF:Бж40:Р0п2ЕNT┤0з54:ДZE│NT0╚3ЕO3│B(NT)зZS│NT:Бе700у4ЕNT│TB зNT│0:ДNT│NTлO10·5ЕNT┤▓ZE з51:ДNT│м116ЕEX ▒NO зOK│OB:Бе601-7ZS│ Д(96)м1:ZE│ZS:NO│11N8ЕO0│B(ZS)▒O1│B(ZS)зNO│0:Бе701i9ЕZS│TB зZS│0:ДZS│ZSлO11y:ЕZS┤▓ZE з561Е;ЕEX з651Ы<ZS│ Д(96)м1:ZS│ZE1м=ЕO2│B(ZS)з701╟>ЕZS│TB зZS│0:ДZS│ZSлO11╫?ЕZS┤▓ZE з611№@ЕEX зЕOB│0зOB│1:Бе60:ДOB│OK:Бе552AЕOB│0зOB│1:Бе542BZS│024CЕB(ZS)┤▓3зZS│ZSл1:Бе672^DB│ZSо12:Y│ Б(B):X│ Б(.5л(BмY)н24):B│02ЮEЕL(XлIX(B),YлIY(B))│м9зB│Bл1:Бе69:ДX│XлIX(B):Y│YлIY(B):Бе192╘FB│ZSоXW:Y│ Б(B):X│ Б(.5л(BмY)нXWн2):B│ Д(4)м1:Z│B2юGIX│XлIX(B):IY│YлIY(B)3HЕL(IX,IY)│м9▒мPO│L(IX,IY)з823IЕOB з773RJЕB│0зFL│IX│0:ДЕB│1зFL│IY│0:ДЕB│2зFL│IX│24:ДFL│IY│83iKИB(ZS)л1Бе78,78,793АLЕ(иFL)зNT│ZSлOB(B)3УMX│IX:Y│IY:Бе193гNЕFL з77:Д813╕OЕFL зЕEX з82:Д773╫PЕEX зЕB(ZSлOB(B))│2з77:Д823юQЕB(ZSлOB(B))┤▓2з774
RB│Bл1:ЕB▓3зB│04&SЕB┤▓Z з71:ДИB(ZS)л1Бе57,57,62,524ЪTX│Xм( Ж(344)│247)м( Ж(343)│247)н((Y│8)м1):Y│Yм( Ж(342)│247)л( Ж(341)│247):X│Xм(X┤0)л(X▓24):Y│Yм(Y┤0)л(Y▓8):Бе184├UI│0:K$│"":┴Pл2:YD│170:Y$│",170":C│805VCT│CTл1:ЕCT▓9зCT│0:ЕF зБж90:F│0:Д╗(C,YD)м(Cл10,YDл7),╜,BF:F│15SWI$│ Т:ЕI$│""з86:ДA│ К(I$):Бж90:ЕA│13зР:ДЕA│8░I▓0зC│Cм12:I│Iм1:K$│ О(K$,I)5iXЕA┤65▒A▓90▒I▓8з865ЛYCT│1:Бж40:K$│K$лI$:I│Iл1:Бе865кZ╗(C,YD)м(Cл10,YDл7),╛,BF:Р6Х[╚3,1:╝1:┐1,0:A│0:B│0:C│0:T6│16:T4│14:T2│12:O6│6:O5│5:O4│4:O3│3:O2│2:O1│1:O0│0:N1│м1:F2│.5:JX│346:JY│347:XW│12:YW│8:XO│30:YO│11:TB│95:XC│XWн2о63:YC│YWо63:МL(24,8),B(95),L$(45),PN$(1),NB(1),J$(1),C$(1),OB(3),IX(3),IY(3),PS$(1),RS(1)7a\FS│255:HS│128:Y│191:B│.66:┬(HS,Y),95,O4,B,F2,O0:┬(HS,Y),80,O4,B,F2,O0:├(36,Y),O4,O4:┬(HS,Y),80,O2,B,F2,O0:┬(HS,Y),66,O2,B,F2,O0:├(50,Y),O2,O2:┬(HS,Y),50,03,B,F2,O0:┬(HS,Y),36,O3,B,F2,O0:├(80,Y),03,038$]O│640л Ж(186)н256л Ж(187):ТMLл3,Oо256:ТMLл4,(Oо256м Ж(MLл3))н256:O│Oл1791:╣ Г│ML:Y$│",70":ТMLл11,Oо256:ТMLл12,(Oо256м Ж(MLл11))н256:╣╠B(P)│( Ж(65280)░ В(PмO2))│O0:АA│0е3:НOB(A),IX(A),IY(A):Л8ы^АA│0е45:НL$(A):Л:F│O4:┴F,1:АOK│0е5:НI$:Бж38:Л:O│Oл3296:P$│"L4CDFAEL8GGL4FEFDEL2C":PL$│"BA#AG#GF#FED#DC#C":R$│"RUDEY":АA│0е1:НJ$(A),C$(A):PS$(A)│R$:Л:╔"V15T3XP$;":╗(O0,179)м(255,Y),╛,BF:Y$│",171"96_ТMLл11,Oо256:ТMLл12,(Oо256м Ж(MLл11))н256:АOK│0е6:НI$:Бж38:Л:I$│ Т:Бе59ў`Ж-1,0,0,-12,1,0,1,2,0,12,1,1,BR2D4BD2R,BD6ERF,BR5D2,BFD4FR5EU4HL5,BR4NGD6NLR2,BFER5FDGL5G2DR8,BFER5FDGNL2FDGL5H,BF6U6GLGLGR7,NR8D3R7FDGL5H,BR6L4GD4FR5EUHL4,R8DGLGLGLG2,BFER5FDGNL4FDGL5HUEH:2aЖBFNDER5FD2NL6D2GL4,,,,,,BR2BDRERFDGDBD2L,BD4BR3NDR2D3;bЖBD2ND4RERERFRFD2NL6D2,R2ND5R5FDGNL2FDGL6,BDD4RFR5EBU4HL4,R2ND5R5FD4GL6,NR8D3NR4D3R8,NR8D3NR4D3,BR2NR6GD4FR6U3L,D3NR6D3BR8U6,BR2R2ND5R2BD6L4,BR8D5GL5HU,"D3ND3R2NM+7,-3M+7,3",D6R8,ND6RFRFRERED6,"ND6M+8,6U6;╢cЖBFD4FR5EU4HL5,ND6R7FDGL4,BFD4FR3BU2FRFBU2U3HL4,ND6R7FDGL4FRFRF,BD5RFR5EUHL5HUER5F,R4NR4D6,D5RFR5EU5,D2RF3NDRE3U2,D6RERERFRFU6,DRFRFGLG2BR9H2BU2EU,DRFRFND3REREU,R8DGLGLGLGDR8<ХdЖ W E L C O M E,,T O,,C O L O R D O T,,LEFT,ONE?,RIGHT,TWO?,,HI- RUDEY HERE AGAIN-,IF YOU ARE GOING TO,PLAY COLORDOT WITH,JOYSTICKS PRESS /J/@,OTHERWISE PRESS /K/,TO USE THE KEYBOARD.,JOYSTICKS IT IS--,KEYBOARD IT IS--<сe└4:Х140:ML$│"╞
ОАжИ зАМ$_#ЎZ&Ё9":O│ Э(ML$)л2:ML│ Ж(O)н256л Ж(Oл1):Бе91╞
ОАжИ зАМ$_#ЎZ&Ё9- RUD                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ░&9:ГCOPYRIGHT(C) 1983 CLOAD         PUBLICATIONS INC.&t
:ГE P MEINERS, 9350 COUNTRY CREEK 30, HOUSTON TX 77036&~Бе960&зSN│K:T$│T$(K):T$(K)│T$(J):T$(J)│T$:Р&█(Бж80:ЕTY▓5▒CC$▓"R"зР:ДЕTY┤3зBL│BLлAM :ДBL│BLмAM'	2ЕCC$┤▓"C"зР:ДЕTY┤3зBK│BKлAM:Р:ДBK│BKмAM:Р'=<Бж80:ЕTY▓5▒CC$▓"R"зР:ДЕTY┤3зBL│BLмAM :ДBL│BLлAM'kFЕCC$▓┤"C"зР:ДЕTY┤3зBK│BKмAM:Р:ДBK│BKлAM:Р'▒PCC$│ Р(T$(I),18,1):AM│ Й( Р(T$(I),10,8)):TY│ Й( Р(T$(I),5,1))л1:Р(7ZMX│ Б( Уо43):M│MXн38:Т1024, Б(MXо256):Т1025,MXм Ж(1024)н256:ХM:MX│ Ж(1024)н256л Ж(1025):MX│MXм8:МT$(MX):LC$│"    ":LG$│ б(32,191)(гdЮ:Зд10)"KEEP CHECK":ЗLG$;д7)"1  LOAD FILE":Зд7)"2  SAVE FILE":Зд7)"3  ISSUE ITEMS":Зд7)"4  CLEAR ITEMS")nЗд7)"5  CHECK REGISTER":Зд7)"6  CHANGE ITEMS":Зд7)"7  SORT ITEMS":Зд7)"8  EXIT PROGRAM":ЗLG$;)xxЗ@421,═"CHECKBOOK    $#####.##-";BL:З@453,═"CLEARED BANK $#####.##-";BK:З@485,═"ITEM COUNT     ###/###";TM;MX;)╤ВЗ@357,"SELECTION?";:A$│ Т:ЕA$│""з130:ДA│ Й(A$):И A Бе230,280,310,740,510,790,920,150)∙МЗ@368,"TRY AGAIN!   ";:а128,1:Бе130*ЦЮ:К:Бе100*=аCM$│ Т:ЕCM$▓┤""зР:ДЕ Ж(343)▓┤247░ Ж(344)▓┤247з160*yкЕ Ж(343)│247зCM$│ Л(8):Р:ДЕ Ж(344)│247зCM$│ Л(9):Р:Д160*│┤З:Й"FILE NAME";F$:F$│ О(F$,8):Е Ж(188)│6зDV│м1:ДБж200*с╛ЕDV│1зЮ0:Р:ДЗ:З"POSITION CASSETTE.":Бе220+"╚З:Й"USE DISK";A$:Е О(A$,1)┤▓"Y"зDV│м1:Р:ДDV│1:F$│F$л".DAT":Р+C╥З" ";:ЕF$│""зР:ДЗ">"F$" ";:Р+m▄╗Й"PRESS <ENTER> WHEN READY ";A$:Ю0:Р+ецЕTM▓0зЗ@368,"";:Й"ARE YOU SURE";A$:ЕA$┤▓"Y"зЮ:Бе100,,ЁЮ:TM│0:Зд8)"LOAD FILE SETUP":ЗLG$;:Бж180:З@384," SEARCH FOR FILE";:Бж210:Щ"I",DV,F$:Ю0:З@384," LOADING FILE";:Бж210:Й#DV,LC$,BL,BK,|·Е М(DV)▒TM│MX зЪ#DV:Бе100:ДTM│TMл1:╗Й#DV,T$(TM):З@448," AT RECORD"TM;:Бе250,г
а128,1:З@368,"MEMORY EMPTY!":Бе130,╔
а128,1:З@368,"MEMORY FULL!":Бе130-=
ЕTM│0з260:ДЮ:Зд8)"SAVE FILE SETUP":ЗLG$;:Бж180:З@384," WRITING FILE";:Бж210:Щ"O",DV,F$:З#DV,LC$;", ";BL;", ";BK-z
"АI│0еTM:ЕT$(I)┤▓""зЗ#DV,T$(I):З@448," AT RECORD"I"OF"TM;-Л
,Л:Ъ#DV:Бе100-х
6ЕTM│MX з270:ДЮ:NI$│ О( И( Й(LC$)л1)л"    ",5):З"ISSUE ITEMS      NEXT ITEM#"NI$;:ЗLG$.M
@TM│TMл1:T$(TM)│ б(38,32):З@448,═"CHECK $#####.##-";BL:З═"BANK  $#####.##-";BK;:З@498,"'Q' TO QUIT";.г
JЗ@96,"    ";:╗Й"ITEM NO? ";CK$:ЕCK$│"Q"з400:ДБж440: Р(T$(TM),6,4)│ П("   "лCK$,4)/X
TЗ@498,"'_' TO CHANGE";:З@128,"";:╗Й"  DATE? mmdd ";DT$:ЕDT$│"_"з430:ДЕ З(DT$)┤▓4з420:ДЕ О(DT$,2)┤"01"▒ О(DT$,2)▓"12"з420:ДЕ П(DT$,2)┤"01"▒ П(DT$,2)▓"31"з420:Д Р(T$(TM),1,4)│DT$/Х
^╗Й"DESCRIPTION? ";CD$:ЕCD$│"_"з460:Д Р(T$(TM),19,18)│CD$/ш
h╗Й"     AMOUNT? ";AM$:ЕAM$│"_"з470:Д Р(T$(TM),10,8)│ П("      "л И( Й(AM$)),8)0K
r╗Й"BUDGET CODE? ";BD$:ЕBD$│"_"з480:Д Р(T$(TM),37,2)│BD$:Е Р(T$(TM),6,4)▓LC$зLC$│ Р(T$(TM),6,4)0Щ
|Бж410:З@256:З@256,"       ";:╗Й"TYPE? ";TY$:ЕTY$│"_"з490:ДЕTY$│""зTY$│"3"1
ЖI│TM:ЕTY$┤"0"▒TY$▓"5"з500:Д Р(T$(TM),5,1)│TY$:ЕTY$│"1"▒TY$│"2"з Р(T$(TM),18,1)│"C":Бж40:Бе310:ДБж40:Бе3101#
РT$(TM)│"":TM│TMм1:Бе1001П
ЪЗ@320,"  0 = DEPOSIT"д16)"3 = CHECK":З"  1 = INTEREST"д16)"4 = WITHDRAWAL":З"  2 = FEE"д16)"5 = MEMO":Р1╞
дЗ@160,"INVALID DATE";:а128,1:З@128:З@128,"";:Бе3401ф
оЗ@128:З@96:З@96,"";:Бе3301√
╕ЕCK$│""зCK$│NI$:ДР2
┬З@108,CK$:Р2+
╠З@160:З@128:З@128,"";:Бе3402K
╓З@192:З@160:З@160,"";:Бе3502k
рЗ@224:З@192:З@192,"";:Бе3602С
ъЗ@288:З@256:З@224:З@224,"";:Бе3702╛
ЇЗ@288,"INVALID TYPE";:а128,1:З@256:Бе3803v
■ЕTM│0з260:ДЮ:Зд9)"PRINTER SETUP":ЗLG$:З"PREPARE PRINTER FOR USE.":З:Зд12)"FROM,THRU,YR":З"ENTER DATES mmdd,mmdd,yy":Й"          ";M1$,M2$,YR$:Бж670:Бж690:LC│LCм1:TK│0:BL│0:BK│0:Ю03╟АI│1еTM:ЕT$(I)│""зЛ:Бе540:ДCN│ Й( Р(T$(I),1,4)):ЕCN▓│CF зTK│1:ДЕCN┤│CT зTK│03рБж40:ЕTK│1Бж570:Л:ДЛ3∙ЕLC▓57зLC│LCл1:Бж6804u&LC│LCл4:З#м2:З#м2,д10)"CURRENT BALANCE  ";:З#м2,═"#####.##-";BL:З#м2:З#м2,д10)"BANK TOTAL       ";:З#м2,═"#####.##-";BK4Ш0ЕLC┤66зLC│LCл1:З#м2:Бе560:Д1004░:LC│LCл1:ЕLC▓62Бж6805DЗ#м2,"  " Р(T$(I),1,2)"/" Р(T$(I),3,2)"  ";:И TY Бж600,610,620,630,650,660:CK$│ Р(T$(I),6,4)5|NЗ#м2,TY$"  "CK$"    ";:З#м2,═"#####.##-";AM;:З#м2,"    "CC$"     " Р(T$(I),19,18)"   " Р(T$(I),37,2):Р5СXTY$│"DEPOSIT ":Р5жbTY$│"INTEREST":Р5╗lTY$│"FEE     ":Р5╨vTY$│"        ":Р5хАTY$│"CHECK   ":Р5·КTY$│"WITHDRAW":Р6ФTY$│"MEMO    ":Р6cЮCF│ Й(M1$):CT│ Й(M2$):D1$│ П(M1$,2):D2$│ П(M2$,2):M1$│ О(M1$,2):M2$│ О(M2$,2):Р6БиЗ#м2:ЕLC┤66зLC│LCл1:Бе6807-▓З#м2:З#м2:З#м2,д25)"CHECK REGISTER"д55)M1$"/"D1$" - "M2$"/"D2$"  19"YR$:З#м2:З#м2,"  DATE     TYPE   ITEM #     AMOUNT   CLEAR   DESCRIPTION        BUDGET":З#м2:LC│7:Р7z╝Зд7)"DATE:  " Р(T$(I),1,2)"/" Р(T$(I),3,2):Зд4)"ITEM NO:  " Р(T$(I),6,4)7б╞Зд5)"AMOUNT:  $" Й( Р(T$(I),10,8))8,╨З"DESCRIPTION:  " Р(T$(I),19,18);:Зд5)"BUDGET:  " Р(T$(I),37,2):TY│ Й( Р(T$(I),5,1))л1:И TY Бж600,610,620,640,650,660:Зд7)"TYPE:  "TY$8n┌З:З═"     CHECK $#####.##-";BL:З═"     BANK  $#####.##-";BK:Р8эфЕTM│0 з260:ДЮ:АI│1еTM:З@0,"SEARCH FOR OUTSTANDING AT"I;:ЕT$(I)│""▒ Р(T$(I),5,1)│"5"з750:ДЕ Р(T$(I),18,1)┤▓" "з750:ДБж760:Ю8∙юЛ:Бе1009С°Ю:Зд10)"CLEAR ITEMS":ЗLG$;:Бж700:З:З"  ENTER CODE:  ' ' = OUTSTANDING";:Зд15)"'C' = CLEARED":Зд15)"'S' = STOPPED":З"'Q' TO QUIT"д15)"'V' = VOIDED";:A$│ Т:ЕA$│""з770:ДЕA$│"Q"зI│TM:Р:ДЕA$│" "▒A$│"C"з780:ДЕA$│"S"▒A$│"V"Бж60:ДЗ@354,"INVALID CLEAR CODE";:а128,1:Бе770:* Р(T$(I),18,1)│A$:Бж80:Бж50:Р:╕CM$│" ":ЕTM│0 з260:ДЮ:Зд9)"CORRECT ITEMS":ЗLG$:З@480,"'Q' TO QUIT";:З@96,"";:╗Й"WHICH DATE? mmdd ";DT$:ЕDT$│"Q"з100:ДЗ@480,"SEARCHING  ";;< АI│1еTM:З@0,═"###";I;:ЕT$(I)│""░CM$│ Л(8)Бж910:ДЕT$(I)│""з810:ДЕDT$│""▒DT$│ Р(T$(I),1,4)зЗ@96,"";:Бж700:Бж820:ДЕCM$│ Л(8)зБж910;h*Л:ЕCM$│ Л(94)▒CM$│"D"з790:ДDT$│"":Бе800;п4З@416,LG$;:З"  Change     Delete":З"  <LEFT>     <RIGHT>    <UP>";<)>Бж160:ЕCM$│"D"зБж60:T$(I)│"":ДЕCM$│"C"Бж850:ДЕCM$│ Л(8)Бж910:ДЕCM$│" "▒CM$│ Л(9)з840:ДЕCM$│ Л(94)зI│TM :Да128,1:Бе830</HР<█RЗ@107,"? ";:╗ЙDA$:ЕDA$│""з860:ДЕ З(DA$)┤▓5з900:ДЕ О(DA$,2)┤"01"▒ О(DA$,2)▓"12"з900:ДЕ П(DA$,2)┤"01"▒ П(DA$,2)▓"31"з900:Д Р(T$(I),1,2)│ О(DA$,2): Р(T$(I),3,2)│ П(DA$,2)=X\З@107,":  " Р(T$(I),1,2)"/" Р(T$(I),3,2):З@384:З@171,"? ";:Бж60:╗ЙAM$:ЕAM$┤▓""з Р(T$(I),10,8)│ П("      "л И( Й(AM$)),8)=┴fБж40:З@171,":  $" Й( Р(T$(I),10,8)):З@203,"? ";:╗ЙCD$:ЕCD$┤▓""з Р(T$(I),19,18)│CD$л б(18м З(CD$),32)>pЗ@203,":  " Р(T$(I),19,18);:З@235,"? ";:╗ЙBD$:ЕBD$┤▓""з Р(T$(I),37,2)│BD$л"  ">:zЗ@235,":  " Р(T$(I),37,2):I│Iм1:Р>ZДЗ@384,"INVALID DATE";:Бе850>uОI│Iм2:ЕI┤0зI│TMм1:Р:ДР>пШЕTM┤2з100:ДЮ0:З@169," SORTING ";:B│1:S│TMм1:SN│0:PS│0?вPS│PSл1:З@265," PASS ="PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,9)┤ Р(T$(J),1,9)Бж30:Л:ДЛ?tмЕSN│0з100:ДS│SN:B│Bл1:SN│0:PS│PSл1:З@265," PASS ="PS;:АK│S еB йм1:J│Kм1:Е Р(T$(K),1,9)┤ Р(T$(J),1,9)Бж30:Л:ДЛ?Ы╢ЕSN│0з100:ДB│SNм1:S│Sм1:SN│0:Бе930?п└Х400:╚0:└1:Бе90вPS│PSл1:З@265," PASS ="PS;:АJ│B еS:K│Jл1:Е Р(T$(K),1,9)┤ Р(T$(J),1,9)Бж30:Л                                                                                                                                                                                                                                                                │MкккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккUUUUккккKMLSCORE Mhкj*jкjкjкjкjкjкjкjк ?|s3??  ?╧p╧?  ??s3|?  ?