('SPACE BAR' TO CONTINUE)";/$fA$│ Т/8pЕ A$┤▓" " з 870/>zЮ/WДЗ "              5."/}ОЗ " WHEN RUN, ***APPEND*** POKES"/бШЗ " SOME MACHINE LANGUAGE CODE"/╚вЗ " INTO MEMORY AT LOCATIONS"; TX;/ЄмЗ " TO";" "  TXл62".  THIS CODE WILL"0╢З " STICK AROUND TO WORK FOR YOU,"0:└З " EVEN AFTER THIS PART OF"0a╩З " ***APPEND*** HAS BEEN 'WIPED-"0И╘З " OUT' BY CLOADING YOUR 'FIRST'"0Ъ▐З " PROGRAM."0ашЗ0╞ЄЗ " FIRST, TRY ***APPEND*** WITH"0ь№З " SOME SHORT, EASY PROGRAMS TO"1З " GET THE IDEA -- THEN YOU'RE"1+З " OFF AND RUNNING."1QЗ "   ('SPACE BAR' TO CONTINUE)";1[$A$│ Т1p.Е A$┤▓" " з 10601v8Ю1ПBЗ "              6."1▒LЗ " DO YOU HAVE A RENUMBERED"1╫VЗ " PROGRAM YOU WANT TO 'APPEND'"1∙`З " TO ANOTHER PROGRAM (Y/N)"2jA$│ Т2tЕ A$│"Y" з 11902,~Е A$┤▓"N" з 113022ИЗ2XТЗ " WELL, WHENEVER YOU'RE READY."2^ЬК2Кж:Г MOVE START OF CLOAD TO          RAM.2г░А FR│&HA49E е &HA4D72╛║Т TU,  Ж(FR):TU│TUл1:Л2╓─Т TX,15:Т TXл1,&H782√╬Т TXл20,18:Т TXл21,18:Т TXл22,183╪TU│TXл523Hт:Г GETS RID OF JSR TO NEW    AND STARTS STORING TO CURRENT.3WьА I│0 е 103jЎН X:Т TUлI,X:Л3{I│ Б(TXо256)3К
J│TX ░ 2553┤:Г GETS AND STORES EXECUTE   ADDRESS.3╚Т 157,I:Т 158,J3╬(З3Ї2З " GOOD, ***APPEND*** IS READY."4<З " NOW, CLOAD YOUR FIRST PROGRAM."4AFЗ " THEN, WHEN YOU ARE READY TO"4gPЗ " 'APPEND' THE SECOND PROGRAM,"4МZЗ " POSITION THE TAPE AND TYPE:"4ЬdЗ "   EXEC"4┬nЗ " OR TO CALL THE PROGRAM (BY" "4╪xЗ " NAME), TYPE:"5ВЗ "   EXEC";TX;" "; Л(34);"THE NAME"; Л(34)5*МЖ 18,&HBD,&HA7,&H7C,&H9E,&H1B5IЦЖ &H30,&H1E,&H7E,&HA4,&HD85OаК THE SECOND PROGRAM,"4МZЗ " POSITION THE TAPE AND TYPE:"4ЬdЗ "   EXEC"4┬nЗ " OR TO CALL THE PROGRAM (BY" "4╪xЗ " NAME), TYPE:"5ВЗ "   EXEC";TX;" "; Л(34);"THE NAM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ``````COLOR`COMPUTER`NOTEBOOK`PAGE`qy````````````````````````````````````````````````````````````````AND`NOW`A`WORD`FROM`OUR`SPONSORn`````````````````````````````````IF`YOU`HAVE`ANY`QUESTIONS`ABOUTTHIS`PROGRAMl`PLEASE`FEEL`FREE``TO`WRITEz````````````````````````````````````````````````````````````AnMn`HEARN`SOFTWARE`````````````vpr``SOUTH`txTH`STn`````````````PHILAn``PAn``qyqts`````````````````````````````````````````WRITE`FOR`FREE`CATALOGn``````````````````````````````````````````````````````````````````````````````````````````````````PAGE`rp`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````THIS`PROGRAM``````````````COPYRIGHT`hCi`CLOAD`qyxr````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````SEE`NEXT`PAGE`FOR````````````````COMMAND`SUMMARY``````````````````````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`rq`````````````````````````````````````SUMMARY`OF`COMMANDS````````|C~{`GO`FORWARD`ONE`PAGE````````|C~m`GO`BACKWARDS`ONE`PAGE``````|C~S`SAVE`NOTEBOOK``````````````|C~L`LOAD`NOTEBOOK``````````````|C~E`ERASE`PAGE`````````````````|C~K`KILL`REST`OF`LINE``````````|C~D`DELETE`CHARACTER```````````|C~I`INSERT`CHARACTER```````````|C~q`GO`TO`PAGE`q```````````````|C~P`PRINT`PAGE`ON`PRINTER``````|C~Z`INSERT`LINE````````````````|C~X`DELETE`LINE````````````````|C~Q`END`PROGRAM```````````````` 
|KILL`REST`OF`LINE``````````|C~D`DELETE`CHARACTER```````````|C~I`INSERT`CHARACTER```````````|C~q`GO`TO`PAGE`q```````````````|C~P`PRINT`PAGE`ON`PRINTER``````|C~Z`INSERT`LINE````````````````|C~X`DELETE`LINE````````````````|C~Q`END`PROGRAM```````````                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 P& :ГCOPYRIGHT (C) CLOAD 1982&:
:Г       ***APPEND***&\:Г BY JOHN AND CATHY MATTHEWS&{:Г    4718 E. MULBERRY DR.&Ъ(:Г    PHOENIX, ARIZ. 85018&а2Ю&╛<TU│ Ж(39)н256м254:TX│TUм2&▄FЗ "         ***APPEND***"&тPЗ'
ZЗ " DO YOU WANT INSTRUCTIONS (Y/N)"'dA$│ Т'(nЕ A$│"N" з 1190'<xЕ A$┤▓"Y" з 100'BВЮ'`МЗ "         ***APPEND***"'jЦЗ " "'РаЗ" THE FOLLOWING IS A VERY SHORT"'▓кЗ" (BUT VERY USEFUL) PROGRAM.'╕┤З'▄╛З" WITH IT -- YOU CAN START TO"'■╚З" COLLECT THOSE LIBRARYS OF"(#╥З" SCIENTIFIC, BUSINESS, VIDEO,"(I▄З" AND AUDIO ROUTINES -- BECAUSE"(lцЗ" THIS PROGRAM ALLOWS YOU TO"(ТЁЗ" ADD A SECOND PROGRAM (OR SUB-"(╕·З" ROUTINE) WITHOUT 'WIPING-OUT'"(╤
З" THE FIRST ONE!!!"(╫
З(▌
З)
"З"   ('SPACE BAR' TO CONTINUE)";)
,A$│ Т) 
6Е A$┤▓" " з 300)&
@Ю)>
JЗ"              2.")d
TЗ" TO USE IT, IT IS NECESSARY TO")Й
^З" BE SURE THAT THE PROGRAM YOU")м
hЗ" WANT TO 'ADD' HAS BEEN RE-")╧
rЗ" NUMBERED WITH LINE NUMBERS")Ў
|З" HIGHER THAN THOSE USED IN YOUR"*
ЖЗ" 'FIRST' PROGRAM, (USE BASIC'S "*E
РЗ " 'RENUM' COMMAND THEN 'CSAVE')."*K
ЪЗ*o
дЗ" YOU ALSO HAVE TO WRITE YOUR"*Ф
оЗ" OWN 'INTERCONNECTS', BUT YOU"*╣
╕З" WILL NEVER HAVE TO RE-TYPE A"*р
┬З" LARGE SUB-ROUTINE, JUST TO USE"* 
╠З" IT IN ANOTHER PROGRAM."+
╓З++
рЗ "   ('SPACE BAR' TO CONTINUE)";+5
ъA$│ Т+I
ЇЕ A$┤▓" " з 490+O
■Ю+hЗ "              3."+РЗ " AFTER YOU HAVE RE-NUMBERED AND"+╢З " CSAVED YOUR 'SECOND' PROGRAM"+┌&З " (THE ONE YOU WANT TO ADD):"+с0З ,:З "  1. RUN THIS PROGRAM, (AT THE",+DЗ "     END OF INSTRUCTIONS).",1NЗ,[XЗ "  2. CLOAD (YOUR FIRST PROGRAM).";,abЗ,ЛlЗ "  3. EXEC (YOUR SECOND PROGRAM).";,▓vЗ "     THIS WILL LOAD THE SECOND",┌АЗ "     PROGRAM AND ADD IT TO THE ",∙КЗ "     END OF THE FIRST.", ФЗ-%ЮЗ "   ('SPACE BAR' TO CONTINUE)";-/иA$│ Т-C▓Е A$┤▓" " з 680-I╝Ю-b╞З "              4."-h╨З-И┌З "  4. CSAVE, THE RESULT."-ОфЗ-┤юЗ " THIS CAN BE REPEATED AS MANY"-╪°З " TIMES AS NEEDED. JUST TYPE"- З " EXEC INSTEAD OF CLOAD TO LOAD".'З " THE PROGRAMS TO BE 'APPENDED'.".-З.T З " REMEMBER, YOU WILL STILL NEED".{*З " TO WRITE THE 'CONNECTORS' -- ".Я4З " ***APPEND*** CAN'T REPLACE".╟>З " YOUR PROGRAMMING SKILL BUT, IT".юHЗ " CAN SAVE YOU A LOT OF TYPING!".ЇRЗ/\З "   R`Ui``COLOR`COMPUTER`NOTEBOOK`PAGE`qp```````````````````````````````````````````````````````````````````THE`|C~F`COMMAND`FINDS`THE``THE`CHARACTER`SPECIFIED`BY`THE`ON``THE``SCREEN``AND`PLACES`THE`CURSOR`ON`ITn`IF`NOT`FOUNDl`THE`CURSOR``WILL``BE``PLACED`AT`THE`BOTTOM`OF`THE`SCREENn``````````````````````````````````````````````THE``|C~Q``COMMAND`SAYS`QUIT`AND`RETURN`TO`BASICn`YOU`MAY`DO`THIS``AT`ANY`TIMEl`THE`NOTEBOOK`CURRENTLY``BEING``WORKED``ON`IS`UNHARMEDn````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qq```````````````````````````````````````````````````````````````````THIS`ENDS`THE`DESCRIPTION`OF`CONTROL```INPUTn``THERE``IS``A``SUMMARY`OF`THE`CONTROL`FUNCTIONSON`PAGE`rq`OF`THIS`NOTEBOOKn```````````````````````````````````````NOW`SOME`HINTS`ON`HOW`TO`USE`CONTROL`FUNCTONSn``````````````````````````````````````````````````HINT`q````````````````````````````FROM`PAGE`ql`|C~m`GETS`YOU``````TO`PAGE`rqn`````````````````````FROM`PAGE`rql`|C~{`GETS`YOU`````TO`PAGE`qn``````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qr```````````````````````````````````````````````````````````````````HINT`r````````````````````````````THE`|C~S`FUNCTION`hSAVEi````````WILL`AUTOMATICALLY`BYPASS```````A`LEADER`ON`A`TAPEl`YOU`````````DO`NOT`HAVE`TO`POSITION`````````THE`TAPE`PAST`THE`LEADERn`````````````````````````````````````HINT`s````````````````````````````THE`|C~K`FUNCTION`DELETES```````FROM`THE`CURSOR`POSITION`TO`````THE`END`OF`THE`LINEl`TO`````````DELETE`A`LINE`USE`|C~X``````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qs```````````````````````````````````````````````````````````````````HINT`t````````````````````````````|C~I`AND`|C~D`CAN`BE`USED```````TO`JUSTIFY`A`LINEn````````````````````````````````````````````HINT`u````````````````````````````|C~Q`CAN`BE`ISSUED`AT`ANY```````TIME`WITHOUT`HARMING`YOUR```````NOTEBOOKn`TO`GET`BACK`TO````````WORKING`ON`ITl`RUN`THIS`````````PROGRAM`AND`ANSWER`U`TO`THE`````LOADoFORMAToUSE`QUESTIONn```````hIT`WILL`START`YOU`ON`PAGE```````q`NOT`WHERE`YOU`LEFT`OFFi``COLOR`COMPUTER`NOTEBOOK`PAGE`qt```````````````````````````````````````````````````````````````````HINT`v````````````````````````````|C~F`CAN`BE`USED`TO`MOVE```````THE`CURSOR`TO`ANY`POINT`ON``````THE`SCREEN`USUALLY`FASTER```````THEN`USING`THE`CURSOR`KEYSn`````hSEE`NEXT`SECTION`ON`USE`OF`````CURSOR`KEYSi```````````````````````````````````````````````````````````````````````````````THATgS`IT`FOR`CONTROL`FUNCTIONS`````````````````````````````````STARTING`ON`THE`NEXT`PAGE`IS`A``DESCRIPTION`OF`REGULAR`INPUTn````COLOR`COMPUTER`NOTEBOOK`PAGE`qu```````````````````````````````````````````````````````````````````REGULAR`INPUT`IS`HOW`YOU`PUT`NOTES`INTO`YOUR`NOTEBOOKn`TO`PUTSOMETHING`ON`THE`SCREENl`JUST```TYPE`WHATEVER`YOU`WANT`WHERE`YOUWANT`IT`TO`BEn`ITgS`THAT`EASYn`````````````````````````````````````TO`AID`YOU`IN`THE`PLACEMENT``OF`THE`TEXT`ON`THE`SCREENl`THE``ARROW`KEYS`ON`THE`KEYBOARD`MOVE`THE`CURSOR`THE`DIRECTION`THE````ARROW`IS`POINTINGn`FOR`THE`PURm`POSE`OF`THIS`DOCUMENT`THE`ARROW`KEYS`WILL`BE`CALLED`CURSOR`KEYSn`COLOR`COMPUTER`NOTEBOOK`PAGE`qv```````````````````````````````````````````````````````````````````THERE``ARE``SIX`CURSOR`KEYS``WHICH``YOU``WILL``WANT``TO`USEn`THEY`AREz````````````````````````````````````````````````````````ABR```NAME``````````````````````|UA~``UP`ARROW`KEY``````````````|DA~``DOWN`ARROW`KEY````````````|RA~``RIGHT`ARROW`KEY```````````|LA~``LEFT`ARROW`KEY````````````|SU~``SHIFT`UP`ARROW`KEY````````|SL~``SHIFT`LEFT`ARROW`KEY`````````````````````````````````````DESCRIPTIONS`FOLLOW``````````````COLOR`COMPUTER`NOTEBOOK`PAGE`qw```````````````````````````````````````````````````````````````````ALL`CURSOR`KEYS`ALL`MOVE`THE`CURSOR`WITHOUT`HARMING`WHATEVER`THE`CURSOR`IS`ONn``````````````````THE`|UA~`KEY`MOVES`THE`CURSORUP`ONE`LINEn```````````````````````THE`|DA~`KEY`MOVES`THE`CURSORDOWN`ONE`LINEn`````````````````````THE`|RA~`KEY`MOVES`THE`CURSORONE`POSITION`TO`THE`RIGHTn`````````THE`|LA~`KEY`MOVES`THE`CURSORONE`POSITION`TO`THE`LEFTn``````````THE`|SL~`KEY`MOVES`THE`CURSORTO`THE`BEGINNING`OF`THE`LINEn````COLOR`COMPUTER`NOTEBOOK`PAGE`qx```````````````````````````````````````````````````````````````````THE`|SU~`KEY`MOVES`THE`CURSORTO`THE`UPPER`LEFT`HAND`CORNER`OFTHE`SCREENn```````````````````````THE`ENTER`KEY`POSITIONS`YOU`TOTHE`BEGINNING``OF`THE`NEXT`LINE`WITHOUT``HARMING`THE`CHARACTERS`THAT`THE`CURSOR`IS`CURRENTLY`ONn```````````````````````````````````ANY`OTHER`KEYS`YOU`PRESS`ARE`ENTERED`ON`THE`PAGE`AT`THE`PLACEWHERE``THE`CURSOR`IS`POSITIONED`AND`THE`CURSOR`MOVES`q`POSITION`TO`THE`RIGHTn``````````````*`COLOR`COMPUTER`NOTEBOOK`PAGE`q`````````````````````````````````````````````````````````````````THE`FUNCTION`OF`THIS`PROGRAM`IS`TO``ALLOW``THE`OWNER`OF`A`RADIO`SHACK`COLOR`COMPUTER`TO`USE`THE`COMPUTER`AS`AN``ELECTRONIC`NOTE`BOOKn``THE`PROGRAM`ALLOWS`NOTES`TO`BE`PLACED`IN`COMPUTER`MEMORYlSAVED``TO`TAPEl`AND`LOADED`FROM`TAPEn``````````````````````````````THERE`ARE`TWO`TYPES`OF`INPUTlREGULAR`INPUT`AND`CONTROL`INPUTnLETS`START`THE`DESCRIPTION`WITH`CONTROL`INPUTn``PRESS`THE`CLEAR`KEYn`NOW`PRESS`THE`{`KEYn````````COLOR`COMPUTER`NOTEBOOK`PAGE`r````````````````````````````````````````````````````````````````````YOU`ARE`NOW`ON`PAGE`r`OF`THE`OPERATING`INSTRUCTIONSn`WHEN`YOUPRESSED``THE`CLEAR`KEYl`THE`CnCnENTERED``THE``CONTROL`MODEn`THE`CONTROL`MODE`IS`INDICATED`BY`THEWHITE`BLINKING`CURSORn`THERE`AREVARIOUS``CONTROL`FUNCTIONSn`THE``{`OR`THE`k`SAYS`TO`THE`CnCn`TO`GO`FORWARD`ONE`PAGE`IN`THE`NOTEmBOOKn`THE`CONTROL`FUNCTIONS`WILLBE``DENOTED``BY``THE`SYMBOL`|C~`FOLLOWED`BY`THE`FUNCTIONn`PLEASEPRESS`CLEAR`FOLLOWED`BY`{`|C~{```COLOR`COMPUTER`NOTEBOOK`PAGE`s````````````````````````````````````````````````````````````````````SOl`IF`I`WERE`TO`TELL`YOU`TO`GO`TO`THE`NEXT`PAGE`I`WOULD`SAY`|C~{``THIS``INDICATES``THAT`YOU`SHOULD``PRESS`THE`CLEAR`KEY`AND`FOLLOW`IT`WITH`THE`{`KEYn``````````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE``|C~m``FUNCTIONn`THIS`TELLS`THE`CnCn`TO`GO`BACK`ONE`PAGE`IN`THE``NOTEBOOKn``PLEASE``TRY`THE`FOLLOWINGn``````````````````````|C~m`|C~{`|C~{``````````````````IT`SHOULD`SHOW`PAGES`rlsl`AND`tn`COLOR`COMPUTER`NOTEBOOK`PAGE`t````````````````````````````````````````````````````````````````````IF`YOU`DID`THE`CONTROL`FUNCm`TIONS`CORRECTLYl`YOU`ARE`HEREn`````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE`|C~q``FUNCTONn`THIS`RETURNS`YOU``TO``THE``FIRST`PAGE`OF`THE`NOTEBOOKn``TO`TRY`THIS`AND`THEN`CONTINUE``WITH``THIS``TUTORIALl`ENTER`THE`FOLLOWINGn````````````|C~q`|C~{`|C~{`|C~{`|C~{````````THIS``WILL``SET``YOU`TO`PAGE`ql`AND``THEN`GO`ONE`PAGE`AT`A`TIME`TO`PAGE`un`TRY`ITn```````````````COLOR`COMPUTER`NOTEBOOK`PAGE`u````````````````````````````````````````````````````````````````````I`THINK`YOU`ARE`STARTING`TO``GET`THE`HANG`OF`ITn````````````````````````````````````````````````THE`NEXT`CONTROL`FUNCTION`IS`THE``|C~E``FUNCTONn`THIS`ERASES`THE`CURRENT`PAGEn`PLEASE`FINISH`READING`THIS`BEFORE`YOU`TRY`ITn`THE``ERASE``FUNCTION`CLEARS`THE`CURRENT`PAGE`AND`PLACES`THE`PAGENUMBER`AT`THE`UPPER`LEFT`SIDE`OFTHE`SCREENn``TO`ERASE`THIS`PAGE`USE`|C~E`THEN`|C~{`TO`GO`TO`PAGEv`AND`CONTINUEn`TRY`IT`NOWn``````COLOR`COMPUTER`NOTEBOOK`PAGE`v```````````````````````````````````````````````````````````````````THE`|C~S`FUNCTION`SAVES`THE```NOTEBOOK`CURRENTLY`IN`MEMORY`TO`TAPE``FOR`FUTURE`USEn`ALL`PAGES`OF``THE``NOTEBOOK`ARE`SAVEDn`TO`SAVE``A``COPY`OF`THIS`TUTORIALl`TYPE`|C~S`AND`ANSWER`THE`PROMPTS```````````````````````````````````IF`YOU`DO`NOT`WISH`TO`SEE`HOWTHIS`FUNCTON`WORKS`AT`THIS`TIMElGO`TO`THE`NEXT`PAGE`|C~{````````````````````````````````````````NOTEn`AFTER`A`|C~S`YOU`WILL`BE``RETURNED`TO`THE`SAME`PAGEn```````COLOR`COMPUTER`NOTEBOOK`PAGE`w``````````````````````````````````````````````````````````````````THE`|C~L`FUNCTION`LOADS`A`NOTEmBOOK`FROM`TAPEn`THE`PROGRAM`WILLASK`YOU`FOR`THE`NOTEBOOK`NAME`TOLOADn`PRESSING`ENTER`WILL`CAUSE`THE`NEXT`NOTEBOOK`ON`THE`TAPE`TOBE``LOADEDn``GIVING`A`NAME`WILL`CAUSE`A``SEARCH`OF`THE`TAPE`FOR`THAT`SET`OF`NOTES`AND`WILL`LOAD`ONLY`THE`NOTEBOOK`WITH`THAT`NAME`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````COLOR`COMPUTER`NOTEBOOK`PAGE`x````````````````````````````````````````````````````````````````````THE`|C~K`FUNCTON`DELETES`ALL`CHARACTERS``ON``A`LINE`FROM`THE`CURSOR``POSITION`UNTILL`THE`END`OF`THE`LINEn```````````````````````````````````````````````````````THE`|C~D`FUNCTION`DELETES`THECHARACTER``THE`CURSOR`IS`SITTINGON`AND`MOVES`THE`LINE`LEFT`hLIKED`IN`BASICS`EDITi``````````````````````````````````````````````````THE``|C~I`FUNCTION`INSERTS`A`BLANK``WHERE`THE`CURSOR`IS`SITm`ING`AND`MOVES`THE`LINE`RIGHTn````COLOR`COMPUTER`NOTEBOOK`PAGE`y``````````````````````````````````````````````````````````````````THE`|C~Z`COMMAND`INSERTS`A`LINEWHERE``THE``CURSOR`IS`CURRENTLY`POSITIONED``AND`PUSHES`THE`PAGE`DOWNn``````````````````````````````````````````````````````````````THE`|C~X`COMMAND`DELETES`A```LINE`AND`PULLS`THE`REMAINDER`OF`THE`PAGE`UPn```````````````````````````````````````````````````````THE`|C~P`COMMAND`PRINTS`THE``CURRENT`PAGE`TO`THE`LINE`PRINTERhIF`ITgS`NOT`ONlTHE`PROGRAM`WILLHANGn`PRESS`RESET`AND`ANSWE "&
Ю&╔ "L20V30"&)З @ 40,"HELLO"&7(E$│"OLLE"&E2А J│1 е 4&Z<B$│ Р(E$,J,1)лB$&hFА K│1 е 3&vPB$│"-"лB$&ЕZЗ @45мJ,B$&Яd╔ "O"л И(K)л"N"л И(J)&йnЛ K,J&│xB$│""&╧ВЗ @ 101, "INSTRUCTIONS"&фМE$│"SNOITCURTSN"&єЦА J│1 е 11'аB$│ Р(E$,J,1)лB$'кА K│1 е 1'$┤B$│"-"лB$'5╛З @ 113мJ,B$'O╚╔ "O"л И(K)л"N"л И(J)'Y╥Л K,J'▄З:З:З "               BY":а 100,2'йцЗ:З "          SCOTT SHAFFER":а 120,2'╛ЁА T│1 е 1000:Л T'─·Ю'э
З "H E L L O  I N S T U C T I O N S"'є
З(Ц
З "THE FOLLOWING PROGRAM IS USED ONTHE TRS-80 DISK EXTENDED COLOR  BASIC COMPUTER.  IT ENABLES THE USER TO TYPE IN A NUMBER INSTEADOF THE ENTIRE PROGRAM NAME"(╬
"З "FOR EXAMPLE YOU MIGHT SEE THIS  ON YOUR SCREEN:")?
,З "1.  BLOCKADE         BASIC      2.  JERUSADV         BASIC      3.  MOTORJMP         BASIC          ETC.")k
6З:Й "   PRESS <ENTER> TO CONTINUE";KEY$)ю
@Ю:З "NOW ALL YOU WOULD HAVE TO DO IS TYPE IN THE CORRESPONDING NUMBERFOR THE PROGRAM INSTEAD OF IT'S SOMEWHAT CUMBERSOME NAME"*J
JЗ "IF YOU WANTED TO PLAY BLOCKADE  ALL YOU WOULD HAVE TO DO IS     INPUT THE NUMBER ONE*P
OЗ*╠
TЗ"WHEN YOU HIT ENTER, THESE       INSRTUCTIONS WILL BE DELETED.   YOU SHOULD THEN SAVE THE REST OFTHE PROGRAM TO DISK."*╘
YЗ:З*¤
^Й"<ENTER> TO DELETE INSTRUCTIONS";A$+
h╡0м360+'Д:ГCOPYRIGHT (C) CLOAD 1982,ш:Г THIS IS A DISK PROGRAM FOR   THE 16 K DISK EXTENDED BASIC    COLOR COMPUTER                  BY SCOTT SHAFFER AND            BOB GOETZ                       4521 142ND PL SE BELLEVUE       WASHINGTON  98006               JANUARY 13, 1982-Є:Г THIS PROGRAM WILL ENABLE     YOU TO ENTER A PROGRAM FROM     DISK BY JUST TYPING A NUMBER.   IT WILL DISPLAY THE EXISTING    PROGRAMS ON DISK THEN ASK       FOR THE CORRISPONDING NUMBER.   IT WILL  ONLY WORK WITH         PROGRAMS WITH-р№:Г THE EXTENTIONS 'BAS' 'BIN'   OR 'DAT'  THIS PROGRAM MAY BE   REPRODUCED FOR PERSONAL USE     UNDER THE CONDITION THAT THE    FIRST REMARK IS LEFT IN.  IT    MAY NOT BE COPIED FOR SALE TO   THIRD PARTIES.┘:Г MACHINE LANGUAGE PROGRAMS    WILL AUTOMATICALLY START.  TO   DISABLE THIS FUNCTION JUST      REMOVE THE 'EXEC' COMMAND IN    LINE 320.  SOME MACHINE         LANGUAGE PROGRAMS WILL NOT      WORK WITH THIS PROGRAM SINCE    THEY MAY OCCUPY THE /:Г SAME SPACE IN THE USER'S     RAM AS THIS PROGRAM DOES./=╚0:└1:Х2000:МZ$(72),D$(72),F$(72)/\$Ю:A│0:N│0:Z│0:P│0:B│0:QQ│0/Е.З "  COLOR COMPUTER DISK DIRECTORY" /Х8З  б(32,45)/сBВ READ THE SECTORS AND GET    PROGRAM NAME AND IT'S           EXTENTION/ЁLА X│3 е 110V▀0,17,X,A$,B$0`C$│A$л О(B$,127)0,jNAM$(0)│ О(C$,8)0CtEXT$(0)│ Р(C$,9,3)0Q~А N│1 е 70mИNAM$(N)│ Р(C$,Nн32л1,8)0ЙТEXT$(N)│ Р(C$,9лNн32,3)0СЬЛ N0джPO│0:А N│0 е 70ы░В CONVERT ABBREVIATED         EXETENTION TO A COMPLETE        WORD1]║D$│EXT$(N):Е D$│"BAS" з F$(Z)│"BASIC"::Д Е D$│"BIN" з F$(Z)│"BINARY"::Д Е D$│"DAT" з F$(Z)│"DATA"::Д F$(Z)│D$2─Е PO│0 ░ Zо8│ Б(Zо8) ░ Z┤▓0 з З @ 451,"ENTER CHOICE BY NUMBER OR":Й"   PRESS <ENTER> TO CONTINUE";A:Е A▓0 з 1320 :Д Ю:З "  COLOR COMPUTER DISK DIRECTORY":З  б(32,45):PO│12╬B│ К(NAM$(N))2A╪Е B│0  з QQ│QQл1:Е QQ│2 з X│112qтВ PRINT PROG. NAME ,NUMBER    AND EXTENTION2╨ьЕ B┤▓0 ░ B┤▓255 з  З ═ "  ##. %      %      %     %";Zл1;NAM$(N);F$(Z):Z│Zл1:Z$(Z)│NAM$(N)2╪ЎЛ N2рЛ X2■
В LOAD IN CORRECT PROGRAM3JЗ:З "PRESS <ENTER> TO VIEW LIST AGAIN  OR":Й "ENTER CHOICE BY NUMBER";A3[Е A│0 з 10603И(D$(A)│ О(F$(Aм1),3):Е D$(A)│"BAS" з 13503б2Е D$(A)│"BIN" з 13703н<Бе 13903╗F╙ Z$(A),R3┴PК3╨Z╙M Z$(A):в3╓dК4!nЗ "CANNOT LOAD PROGRAM WITH CURRENTEXTENTION":А X│1 е 2000:Л X:Бе 1060GAIN  OR":Й "ENTER CHOICE BY NUMBER";A3[Е A│0 з 10603И(D$(A)│ О(F$(Aм1),3):Е D$(A)│"BAS" з 13503б2Е D$(A)│"BIN" з 13703н<Бе 13903╗F╙ Z$(A),R3┴PК3╨Z╙M Z$(A):в3╓dК4!nЗ "CANNOT LOAD PROGRAM WITH CURRENTE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 5&]:ГBY ALEXANDER BENENSON              585 WEST END AVENUE             NEW YORK, NY 10024&╣:Г 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 100-175)   MUST ALWAYS BE INCLUDED IN ANY  COVER PROGRAM.'▌	╚3:╝3:┐1,0'ї
└4:М LO$(7),IA(100)(]I│0:J│0:K│0:Q│0:I$│"":S$│"":CT│0:I0│0:ZI1│0:I2│0:I3│0:C│0:S│0:X1│0:X2│0:Y1│0:Y2│0:X│0:D│0:XD│0:YD│0(hБе2000(x(╚ 3,1:┐ 1,0(Щ-┴ 2,3:╗ (0,44)м(255,48),╜,BF)g2LO$(0)│"кккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккеjккккккккккккккккккккккккккккккХZккккккккккккккккккккккккккккккUVккккккккккккккккккеeЦкккккккккUVккккккккккккккккккйжжкккк"*54LO$(1)│"ккккйVХккккккккккккккккккйжfккккккккйZеккккккккккккккккккйжfккккккккеjеекккккккккккккккккйжfккккккккеjееккккккккккккккккккккккккккккХкееккккккккккккккккккккккккккккХкХекккккккккккккккккккккккк"+6LO$(2)│"ккккХкUеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUVеккккккккккккккккккккккккккйUUUZеккккккккккккккккккккккккккйUUUкХкккккккккккккккккккккккккккйVккЦкккккккккккккккккккккккк"+╤8LO$(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ккк"-m<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)).╚KAD│ Ж(VPл2)н256л Ж(VPл3).┌PVP│ Э(LO$(7)).№UQ│ Ж(VPл2)н256л Ж(VPл3):╣ Г│Q/XТQл7, Ж(25)м25/9Z╞"C3BM0,191R255U149L255D148R255BM0,0"/F_Q│ Г(AD)/Vc╚ 3,1:┴ 2,3/ЖdВ OUR DISCLAIMER - HAS TO BE IN ALL COVERS./СfБе2050/ЧiЮ/╖nЗ@38,"CHROMASETTE MAGAZINE"/рsЗ"ISSUE #11               MAY 1982";/цuЗ0xЗ:З" ALL PROGRAMS CONTAINED HEREIN"0/}З"      COPYRIGHT (C) CLOAD"0RВЗ"    MAGAZINE  P.O. BOX 1448"0vЗЗ"    SANTA BARBARA, CA 93102."0ЪМЗ"   REPRODUCTION BY ANY MEANS"0┐СЗ"   PROHIBITED. CLOAD MAGAZINE"0хЦЗ" ASSUMES NO RESPONSIBILITY FOR"1ЫЗ"  ERRORS, OMISSIONS OR DAMAGES"10аЗ"   CAUSED BY THE USE OF THESE"1FеЗд11)"PROGRAMS.";1YкАI│1е 3500:Л:О1_╨В1{°╝3:Бе40:ГTO FIRST TITLE1Л
:ГMOVE DOWN1СВ1║╕:ГCOLOR3:LINE(0,52)-(255,191),PSET,B1╟┬N│ Д( Я)1╧╠C│11э╓X1│ Д(248)л3:X2│ Д(248)л32
рY1│ Д(136)л55:Y2│ Д(136)л552"ъX│Xл1:ЕX│25з40002^ЇI0│ Д(0)н10м5:I1│ Д(0)н10м5:I2│ Д(0)н10м5:I3│ Д(0)н10м52А■┐1,S:C│Cл1:ЕC│3зC│4:ДЕC▓4зC│12З┴C2пX1│X1лI0:X2│X2лI1:Y1│Y1лI2:Y2│Y2лI32∙&ЕX1▓255 ▒ X1┤0 ▒ X2▓255 ▒ X2┤0 ▒ Y1▓191 ▒ Y1┤55▒ Y2▓191 ▒ Y2┤55з 303030╗(X1,Y1)м(X2,Y2),╜3:Бе31003dаАN│1е2000:Л:┴3:╗(0,52)м(255,191),╜,BF:╚4:┐1,1:╗(0,49)м(255,191),╛,BF3qеАD│1е2003вкX1│ Д(255):Y1│ Д(141)л50:XD│ Д(50):YD│ Д(50)3┬пX2│X1лXD:ЕX2▓255зX2│X2м2нXD3т▒Y2│Y1лYD:ЕY2▓191зY2│Y2м2нYD3·▓ЕY2┤50зY2│ Д(50)л104┤┼(X1,Y1)м(X2,Y2),IA,и4╛Л4*├АN│1е3000:Л44╚Бе105(255,191),╜,BF:╚4:┐1,1:╗(0,49)м(255,191),╛,BF3qеАD│1е2003вкX1│ Д(255):Y1│ Д(141)л50:XD│ Д(50):YD│ Д(50)3┬пX2│X1лXD:ЕX2▓255зX2│X2м2нXD3т▒Y2│Y1лYD:ЕY2▓191зY2│Y2м2нYD3·▓ЕY2┤50зY2│ Д(50)л104┤                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ╟ ╟╞!╞#$╚╔'()*┼                         BLOTCH  BAS 8RADAR   BAS"√HELLO   BAS%NOTEBOOKBAS%
NOTEDESCBIN
ULTIMATEBAS&fAPPEND  BASS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 °&y
:Г THIS PROGRAM BY                 CHARLES SANTEE                  7516 COUNTRY LN.                DARIEN, IL 60559&Щ:Г COPYRIGHT (C) CLOAD 1982&лdМ U(40),V(40)&╛╚╚ 3,1:╝1:┐ 1,0&╧
,Y1│20:Y2│120&▌
РА A│2 е 4&ы
ЇА B│A е 4'
&SV│SVл1:SV$│"O5T20;"л И(SVн2)' XА W│0 е 42 й 4'*К╔ SV$'<╝X│Xл4:Y2│Y2м1'F ┴ A,1'[Д╗(X,Y1)м(X,Y2),╜'zш┴ B,1:╗(Xл2,Y1)м(Xл2,Y2),╜'ЖLЛ W,B,A'О░:ГR'щ╞"C1BM32,44D18M+8,-2E4U8H4L8BM16,32D72M+16,-4U24M+16,-4M+8,+22M+16,-4M-12,-26U20H12L32'·x├(36,40),1,1(J▄╞"BM96,48E4R4F4D6M-12,+4U10BM-12,-8E8R20F8D38M-12,+3U17M-12,+5D15M-12,+4U48(\@├(104,40),1,1(Фд╞"BM144,44D18M+8,-2E4U8H4L8BH12D44M+28,-8E4U24H8L24(ж├(148,40),1,1(Ёl╞"BM184,48U6E2R4F2D4M-8,+2BM-8,-10E6R12F6D20M-8,+2U8M-8,+2D8M-8,+2U26)╨├(188,36),1,1)S4╞"C1BM214,36D8M+6,-2U4H2L4BM-6,-4D24M+6,-2U6M+6,-2M+4,+6M+4,-2M-4,-8U6H4L12")eШ├(216,34),1,1*
№╞"BM124,104C4D4R4D12L4D4R12U4L4U12R4U4L12BR20D20R4U16M+8,+16R8U20L4D16M-8,-16L8BR36D4R8D16R4U16R8U4L20BR28D20R4U8R8D8R4U20L4D8L8U8L4BR24D20R12U4L8U4R4U4L4U4R8U4L12*Г	`╞"BM28,140C3D28R16U4L12U24L4BR28G4D20F4R8E4U20H4L8BD8D12F4E4U12H4G4BM+20,-4D8F4R4F4G4L8D4R12E4U8H4L4H4E4R8U4L12G4+N	─╞"BR24U4R20D4L8D24L4U24L8BR48NU4D24R4U12R8E4U8H4L12BF4R4F4G4L4U8BR28F4D4L8U4E4BU4G8D20R4U12R8D12R4U20H8BR16D28R4U8R8D8R4U8H4E4U8H4L12BF4R4F4G4L4U8BR20NU4D24R4U12M+8,+12E4M-8,-12M+8,-12L4M-8,+12U12L4+б
(А X│200 е 250 й 10:А A│1 е (Xм190)о10:а X, Б((252мX)о10)л1:╔"T4P4":Л A,X:┐ 0,0+Ї
2Ю:З:Зд4) б(24,191):Зд4) Л(191);"RADAR IN THE LOST PARK"; Л(191):Зд4) б(24,191),2
4З:Зд14) б(4,159):Зд14) Л(159);"by"; Л(159):Зд14) б(4,159),В
6З:Зд4) б(23,175):Зд4) Л(175);"DR. CHARLES H. SANTEE"; Л(175):Зд4) б(23,175),╧
<З:Зд2)" ";:З"do you want instructions";:Й IN$:Е  О(IN$,1)│"Y" з Бж 20000,╓
МЮ0,ф
ЁА A│1 е 6-TX(A)│ Д(43)л10:Y(A)│ Д(31)-╕А B│0 е Aм1-DЕ ( В(X(A)мX(B))▓5)▒( В(Y(A)мY(B))▓5) з 3300-LАZ│1-TфЛ B-l
HЕ Z│1 з Z│0:Бе 2900-x
мZ│0:Л A-Б Я│0-зtM│ Н(0):N│ Б( Н(1)о2):E1│94:E2│94-╛╪Е OL┤▓0 з З@OL,ZZ;-х<А A│1 е 3:D1│ В(X(A)мM)л В(Y(A)мN)-■аЕ D1┤E1 з E1│D1:CA│A.Л A.hЕ E1┤1 з 5700.?╠А A│4 е 6:D2│ В(X(A)мM)л В(Y(A)мN).X0Е D2┤E2 з E2│D2:DA│A.`ФЛ A.s°Е E2┤6 з 10000.А\Ь(M,N,2).г└Е SW│0 з а 250мE1н2, Б(E1о3)л1.╞$Е SW│1 з а 250мE2н2, Б(E2о3)л1.▄ИЕ SW│0 з Ь(M,N,3).ЄьЕ SW│1 з Ь(M,N,4)/PЕ  Ж(65280)┤▓126 ░  Ж(65280)┤▓254 з 5600//┤SW│ В(SWм1)/PА V│1 е 10:а 200,1:а 100,1:Л/{|Е  Ж(65280)│126 ▒  Ж(65280)│254 з 5500/ЗрБе 3700/НDВ/ЯиЕ ZZ┤2 з 8300/▒╚ 3,1:╝:┐ 1,00Bp╞"BM88,130C3R80D40L80U40BF4R72D32L72U32BH4H16D40F16M-4,-8U32H8D32F8BM-12,-48R80NF16U32L80D32M-4,-2NU28M-4,-2H8U8E8M+8,-4BR38C4U4H4E8F8G4D4L80b╘├(114,73),2,4:┬(114,73),2,30Р8├(132,132),4,3:├(78,132),4,3:├(64,90),4,30ЪЬ┴ 2,10л┬(132,8),4,20╝d├(132,8),2,20╓╚─(126,2)м(138,14),U,G0р,┴ 1,10√Р╗(126,2)м(138,14),╜,BF1Ї╔"T4O5CCCO4BO5DDO4L2BO5T250"18XА MF│1 е 5:SX│ Д(66)л901I╝А YY│ 1 е 111U Y1│YYп21БДЕ  а(SXл6,Y1л6)│2 з Y1│Y1м Д(6):Бе 73001аш─(SX,Y1)м(SXл12,Y1л12),V,G1┐L┼(SX,Y1)м(SXл12,Y1л12),U,▒1╧░╔  И(12мYY)1тЕ YY│11 з 80001ьx┴ 1,12▄┼(SX,Y1)м(SXл12,Y1л12),V,╜2@Л YY2дЛ MF2. ZZ│3:Бе 91002a lZZ│ZZл1:OL│ Б(Mо2)л Б(Nо2)н32м1:╚ 4,1:╝0:╚ 3,12s ╨XQ│Mн4:YQ│Nн62Т!4┬(XQ,YQ),24,0:├(XQ,YQ),2,02▄!Ш╚ 4,1:┐ 1,1:┬(XQ,YQ),20,0:┴ 1,0:╗(XQм18,YQ)м(XQл18,YQ),╜:├(XQ,YQ),0,036!№VQ$│"BM"л И(XQ)л","л И(YQ)л"S3BL18R4D4L8U8R8BR6NR8D8R8U8BR4D8R8BR4U8R4F4G4L4S4":╞ VQ$3T"`╔"O3T4L2.CL4FL4.AL8GL4FC"3d"─╚ 4,1:┐ 1,13|#(X(CA)│500:Y(CA)│5003о#МЗ@0,"YOU FOUND";ZZ;"TREASURE";:Е ZZ▓1 з З"S";3┴#ЁЕ ZZ┤▓3 з 37003╩$TZZ│03Ї$╕T│ Я:M│ Б(Tо3600):S│ Б((TмMн3600)о60)4;%З:З:З"TIME TO FIND THE TREASURES WAS  ";M;"minute";:Е M┤▓1 з З"s";4g%АЗ" AND ";S;"second";:Е S┤▓1 з З"s" :Д З4~%фЗ:З"NEW GAME  Y/N"4З&HOL│04Ф&мБе 125004╝'ZZ│0:DS│ Д(2)н1:И DS Бе 10100,129004╞'t╔"O1"4╘'╪А M│1 е 34▌(<OL│04ё(аА N│10 е 1 й м15)T$│"T"л И(Nн10):S$│ И(N)5)h╔ T$:╔ S$5&)╠Л N,M5:*0╚ 4,1:┐ 1,1:╝ 05p*Ф╞"C1BM80,16R100F24D40G32D32G20L44H20U32H32U40E24"5╟*°┬(96,56),20,1,.5:┬(164,56),20,1,.5:┬(130,92),12,1:┬(130,140),30,1,.4:├(130,24),1,15╤+\┴ 0,05ц+└А X│57 е 204 й 25№,$╗(X,16)м(X,164),╜6,ИЛ6,ь┴ 1,06!-PА X│83 е 108 й 266-┤╗(X,52)м(X,60),╜6Q.╗(Xл68,52)м(Xл68,60),╜6W.|Л6К.рА X│10 е 20:┬(164,56),X,0,.5:┬(96,56),X,0,.5:Л6┘/D╞"BM122,134C1F2ND2E2BR2D4R4U4L4BR6D4R4U4BD8L4D2NR2D2NR4BL4U4BL8D4R2E2H2L2"6ч/и╔"O1T140"70А Z│ 1 е 50:╔  И( Д(12)):SW│ В(SWм1):┐ 1,SW:Л7/0pЮ:З"NEW GAME Y/N"790╘X$│ Т7J18Е X$│"N" з К7^1ЬЕ X$│"Y" з 27007k2Бе 125007}2d╚ 3,1:╝:┐ 1,07┌2╚╞"C3BM22,144M+4,-8U4G4H4E4R4NR4C2U4NR4H4U4E4R4F4D4G4D4C3R4F4G4H4D4M+4,+8L4M-2,-4M-2,+4L483,├(28,120),2,2:А X│1 е 15:а( Д(5)л250),1:Л8j3Р╞"BM76,56C4M+20,12D4G4M-20,-12U4E4BM+8,+4M+8,-4M+8,-16M+4,+8M+12,-8D8M+12,-2M-8,+10L16M-12,+88п3Ї╞"C2BM-20,+2M-4,+8M+8,+4M-2,-4M+4,-4BM+12,+4M-4,+8F8M-4,-8M+4,-88№4X╞"C3M+32,-8E12R12F4D4G8L16H4NM-16,+4M-16,+20L4M+4,-16M-8,+16F4R8M+16,-2094╝├(116,76),3,39=5 ╞"BM148,68M-16,+80M+40,-12M-8,-48M-8,-16L89O5ДZ1│150:Z2│1549d5шА Y│76 е 138 й 49z6LC│Cл1:Е C▓3 з C│19Ж6░┴ Cл1,19░7Z1│Z1м.4:X1│ Б(Z1):Z2│Z2л.4:X2│ Б(Z2)9╔7x╗(X1,Yл2)м(X2,Yм2),╜9╤7▄Л Y:a8@╞"C3BM172,136M+36,-16M-12,-36M-24,-32M-24,-12M-32,+4M+12,-24M+8,+12M+8,-16M+8,+12E16M+4,+16M+12,-4M-4,+20R16M-4,+8BR8M-4,+12R12M-4,+16R4D36:А8дА X│1 е 4 :┬(120,60),X,X:Л:Ф9┴ 4,1:╔"T100O1":к9lА W│1 е  Д(20)л10:╤9╨M│ Д(10):┴ C,1:╔"O1":╔  И(M):╔"O2":ї:4╗(84лM,80лM)м(28л3нM,112л3нM),╜;:Ш╔  И(Mл2);R:№A│ Д(40)л20:B│148м Д(40):C│ Д(2)н2:S│.05н Д(10):E│.05н Д(10)лS:R│ Д(10)л10;[;`OL│0;p;─┬(A,B),R,C,1,S,E;Е<(DX│Wм3н( Б(Wо3));Ъ<МDX│Wм4н( Б(Wо4));╢<ЁЕ DX┤3 з ┐ 1,0 :Д ┐ 1,1;╛=TЛ W;╦=╕Бе 12400<N Ю:З"booooo!!!! - YOU ARE LOST IN THE  PARK AT NIGHT"<DN*З:З"yea!!! - YOU HAVE NOT ONE       BUT TWO TYPES OF RADAR"<uN4З:З"booo!! - YOU MAY ONLY USE ONE AT A TIME"<┘N>З:З"yyeeaa!!!!!! ONE RADAR WILL FIND  ";:Зд5) б(6,159):Зд5) Л(159);"gold"; Л(159):Зд5) б(6,159)< NCЗ:Й"press <ENTER> to continue";WW=INHЮ:З:З"booo!! - GO THE WRONG WAY AND   THE RADAR ACTIVATES A DISASTER"=ИNRЗ:З"yea!! - USE THE OTHER RADAR     TO AVOID THE DISASTER">1N\З:З"THE HIGHER AND FASTER THE SOUND THE CLOSER YOU ARE TO SOMETHING":З:З"POINTS OF LIGHT SHOW YOU WHERE  YOU HAVE BEEN or IF YOU STAY    IN ONE PLACE WHERE YOU ARE">WNfЗ:Й"press <ENTER> to continue";WW>йNpЮ:З"THE RED("; Л(191);")  LIGHT WILL LET   YOU KNOW THE DISASTER RADAR IS ON"?NzЗ:З"THE BLUE("; Л(175);")  LIGHT  INDICATES    THE "; Л(159);"gold"; Л(159);" RADAR IS ON"?MNДЗ:З"PRESS THE RED BUTTON TO CHANGE  FROM ONE RADAR TO THE OTHER"?╢NОЗ:З"MOVE THE JOYSTICK TO THE FAR    RIGHT OR LEFT BEFORE STARTING   THE GAME - THESE AREAS ARE SAFE"?ёNШЗ:Й"press <ENTER> when ready to     start the game";WW?ўRР" RAD                                                                                                                                                                                                                                                                 ■&%
Бе70:В COPYRIGHT (C) CLOAD 1982&7В A. M. HEARN&LВ 602 S. 48TH ST&cВ PHILA. PA. 19143&Х100,&H1600:Ю:P1│&H1600&ЫPG│0:PM│20:PC│1024:CP│0&╫K1│1:K2│2:K0│0:KT│32:KO│31:KF│512:KL│511:NB$│"NOTEBOOK"&∙KC│64:KE│96:KB│128:CL$│ Л(12)'+	АI│1е7:НA:CF$│CF$л Л(A):Л:Ж8,9,10,94,13,21,95'r
З"LOAD OLD "NB$:З"USE CURRENT "NB$:З"FORMAT NEW "NB$:Й"(L/U/F)";A$'гЕA$│"U"з13:ДЕA$│"F"з12:ДЕA$│"L"Бж52:Бе14:Д10'╛АPG│0еPM:Бж43:Бж37:ЛPG'╠
PG│0:Бж43'▀АL0│0е2й0:Бж35'ЁЕI$┤▓CL$ з21(KB│159:Бж35:KB│128(4I│ Ю("SLE;+-KD1PIZXQF",I$):ЕI│0за1,1:ЛL0(nИI Бж46,52,37,39,39,41,59,60,19,61,67,64,66,20,68:ЛL0(~PG│0:Бж43:Р(ДК(ЮI│ Ю(CF$,I$):ЕI з:Д30(┴ИI Бж23,24,25,26,27,28,29:Бе32(╨CP│CPмK1:Р(▀CP│CPлK1:Р(юCP│CPлKT:Р(¤CP│CPмKT:Р)CP│ Б(CPоKTлK1)нKT:Р),CP│ Б(CPоKT)нKT:Р)7CP│0:Р)RI│ К(I$):ЕI┤KC зI│IлKC)hТCPлPC,I:CP│CPлK1)Б ЕCP▓KL зCP│CPмKF:ЛL0)Ц!ЕCP┤K0 зCP│CPлKF)Ю"ЛL0)о#I│ Ж(PCлCP))╪$ТPCлCP,KB:I$│ Т:ТPCлCP,I:ЕI$│""з36:ДР)ў%CP│0:АI│PC е PCлKL:ТI,KE:Л*7&X$│"PAGE "л И(PGл1):АI│1е З(X$):ТPCл23лI, К( Р(X$,I,1)):Л:Р*Z'ЕPG│PM за100,1:PG│0 :ДPG│PGлK1*e(Бж43:Р*Й)ЕPG│K0 за100,1:PG│PM :ДPG│PGмK1*Ф*Бж43:Р*и+W│(PGнKFлP1)оKF*у,АI│0е6:Е Б(WоK2)нK2мW зТ65479лIнK2,K0 :ДТ65478лIнK2,K0+-W│ Б(WоK2):Л:PC│P1лPGнKF:Р+.Бж56+./Й"PRESS PLAY/RECORD<ENTER>";A$+E1ШMN$,P1,&H3FFF,380+[2ЗNB$":"N$" SAVED"+f3Бж43:Р+o4Бж57+Р5Й"PRESS PLAY AND <ENTER>";A$+Ъ6ЧM N$+е7Бж43:Р+╞8ЯИ:Й"REWIND TAPE:<ENTER>";A$+╫9ЗNB$":";:ЙN$+▌:Р,;АI│CP е Б(CPоKT)нKTл31:ТPCлI,KE:Л:Р,C<АI│CPл1 е Б(CPоKT)нKTл31:ТPCлIмK1, Ж(PCлI):Л:ТPCлIм1,KE:Р,X=АI│0е15:АI1│0е31,>I2│ Ж(PCлIн32лI1):ЕI2▓95 зI2│I2м64,Ю?З#м2, Л(I2);:ЛI1:З#м2:ЛI:Р,с@АI│14е Б(CPоKT)ймK1:АI1│0е31:I2│PCлIнKTлI1:ТI2лKT, Ж(I2):ЛI1,I,№ACP│ Б(CPоKT)нKT:Бж59:Р-WBI3│CP:АI│ Б(CPоKT)е14:АI1│0е31:I2│PCлIнKTлI1:ТI2, Ж(I2лKT):ЛI1,I:CP│15нKT:Бж59:CP│I3:Р-ЬCАI│ Б(CPоKTлK1)нKTмK1 еCPлK1 ймK1:ТPCлI, Ж(PCлIмK1):Л:ТPCлI,KE:Р-╩DKB│159:Бж35:KB│128:I│ К(I$):ЕI┤KA зI│IлKC-яEАCP│CP е510:Е Ж(PCлCP)│I зР:ДЛ:Р-¤F╚0:└1:Бе5BI3│CP:АI│ Б(CPоKT)е14:АI1│0е31:I2│PCлIнKTлI1:ТI2, Ж(I2лKT):ЛI1,I:CP│15нKT:Бж59:CP│I3:Р-ЬCАI│ Б(CPоKTлK1)нKTмK1 еCPлK1 ймK1:ТPCлI, Ж(PCлIмK1):Л:ТPCлI,KE:Р-╩DKB│159:Бж35:KB│128:I│ К(I$):ЕI┤KA зI│IлKC-яEАCP│CP е510:Е Ж(PCлCP)│I зР:ДЛ:Р-¤F╚0:└1:Бе5 (c& 
:ГCOPYRIGHT (C) CLOAD 1982&IX│ Д(м Я):Х60:Ю:L│1:D│250:S│250:CL│1&И:Г THIS IS BY PHIL EDWARDSON    BOX 305  AMERICUS,KS 66835&ЎМ I$(11),O$(11),O(11),V(11),L$(29),M$(18),M(18),T$(7),D$(4,29),D(4,29),U(11),U1(11),K$(8),T(7),Q$(3),Q(3)'FЗ@165,"ULTIMATE ADVENTURE":ГBY PHIL EDWARDSON - BOX 305, AMERICUS, KS 66835'{АX│1е11:НI$(X),O$(X),O(X),V(X),U(X):U1(X)│U(X):Л'Р
АX│1е15:НL$(X):Л'╡АX│16е29:L$(X)│"IN A PORTHOLE":Л(ЕA$│"F2U2UU32ZA2<2P2<222F2222222P772227222P7<772A7<<A2A2<K7<27P227<7FP<7A7F<2527477477722272U22<2<Z772<7<7<272A77A2727727FK2Z2<27227K4<22222<<7777722K2<2A<U2F427PPP222<7<7<72F<FF<AA<7P7<U727742A22272<22P"(ОБе26(ЩАX│1е5(┤T(X)│ Д(11):ЕT(X)│1з20(╗ЛX(╨T(6)│7:T(7)│12:Р(фАX│1е7:НT$(X):Л)
АY│1е29:АX│1е4:НD$(X,Y),D(X,Y):ЛX:ЛY)'АX│1е18:НM$(X),M(X):Л)K З@229,"CONTINUE OLD GAME";:Й C$)И"Е О(C$,1)│"Y"з378:ДЗ@480,"ENTER LEVEL 1-5 (1=EASIEST) ";)к#C$│ Т:HD│ Й(C$):ЕHD│0▒HD▓5з35)╛$ЗC$;:Бж574:Бж18)╚&Бж618)╓(MV│MVл1:Ю)у*ЕS┤1з612*
,З"strength";S,"money $";D*.ЕS┤30зБж534*?0З:З"location";"        ";"items";I:ЗL$(L)*S2З:З"directions"*^4АX│1е4*r6ЕD$(X,L)│"-"з58*Е8ЗD$(X,L);"  ";*О:ЛX:З*╕<З:З"you"; Л(128);"can"; Л(128);"see "*┘>ЕL│1зЗ"MARKET CONTENTS":Бе74+@ЕS▓240з66:ДЕL│13зЗ"STRENGTH RECOVERED":S│250:Бж560:Бе38+B:Г+8DАX│1е11:ЕO(X)│L зЗO$(X)+@FЛ X+JHБе108+]JЕL│1░D▓999з596+gLБе578+КNЗ:а160,4:а185,1:Й"NOW WHAT";C$+ЦPа 180,1+жRB$│ О(C$,3)+├TЕ C$│"LIST CONTENTS"з166+╒VЕB$│"BUY"з182+ЇXЕC$│"LIST LOAD"зБж202:Бе74,ZЕB$│"GO "з206,\ЕB$│"SEA"з268,3^ЕC$│"GET TREASURE"з292,W`ЕC$│"CLEAR SCREEN"зMV│MVм1:Бе38,ibЕB$│"DRO"з334,{dЕB$│"GET"з360,ЫfЕB$│"SWI"зB$│ Р(C$,6):Бе212,│hЕC$│"SAVE GAME"з404,╨jЗ"DON'T UNDERSTAND":Бе74,╫l:Г,ыnЕ Д(20мHD)▓5з74-pA│0:B│0:N│0:B$│"":Z│0:Q1│0:W│0-rАX│1е18-@tЕM(X)│L зB│Bл1:Q$(B)│M$(X):Q(B)│X-GvЛX-SxЕB│0з74-yzAT│1:P│ Д(B):Q$│Q$(P):Q1│Q(P):ЗQ$-Г|Бж562-Ц~Й"USE WHAT";C$-╕АЕC$│"LIST LOAD"зБж202:З:Бе126-·ВЕ О(C$,3)│"GO "зЗ"CAN'T MOVE WHILE UNDER ATTACK!":Бж566:Бе126.ДАX│1е11.4ЖЕC$│I$(X)░O(X)┤▓0зЗ"DON'T HAVE ";C$:Бе148.aИЕC$│I$(X)░O(X)│0зW│X:U1(X)│U1(X)м1:Бе140.hКЛX.|МZ│((Wм1)н18)лQ1.ЧОЕZ┤1▒ Z▓198з A│0:Бе148.йРB$│ Р(A$,Z,1).╣ТA│ К(B$)м50.═ФЕC$│"HANDS"зA│5.чЦP│ Б( Д((HDн35)о2))мA.∙ШЕQ1│9░P▓0з536/6ЪЕP┤1зP│0:З"YOU ESCAPED WITHOUT INJURY!":Бж576:Бж574:Бе38/@ЬS│SмP/JЮБж564/ИаЗ"YOU LOST";P;"UNITS OF STRENGTH":З"DURING THE ENCOUNTER"/Пв:Г/гдAT│0:Бж574:Бе38/╩жЕL┤▓1зЗ"HAVE TO BE IN MARKET":Бе74/√иЮ:З"market"; Л(128);"contents  YOU HAVE $";D0кЗ@64,"ITEM","  PRICE  USES"0'мАX│1е110]оЕO(X)│1зЗO$(X),"  ";:З═"$###";V(X);:З"    ";U1(X)0e░Л X0в▓ЕCL│1зЗ"CLUE","  ";:З═"$###";D;:З"    ";1:ЕI│0зЗ@478,"";0л┤Бе740▄╢ЕL┤▓1зЗ"CAN ONLY BUY FROM MARKET":Бж566:Бе740ь╕B$│ Р(C$,5)1║ЕB$│"CLUE"зБж650:Бе7417╝ЕI▓7зЗ"ALREADY HAVE MAXIMUM LOAD":Бж566:Бе741C╛АX│1е111\└ЕB$│I$(X)░O(X)│0з3701Ч┬ЕB$│I$(X)░O(X)│1░D┤V(X)зЗ"NEED MORE MONEY!":Бж566:Бе741╒─ЕB$│I$(X)░O(X)│1░D│▓V(X)зO(X)│0:D│DмV(X):I│Iл1:S│Sм2:Бе381▄╞ЛX1ц╚Бе1062╩АX│1е11:ЕO(X)│0зЗ"U";U1(X);" ";O$(X)2╠Л X:Р2)╬B$│ Р(C$,4)29╨ЕO(5)│0з2122╥Е(L│28░B$│"W")▒(L│26░B$│"E")▒(L│22░B$│"S")зЗ"IT'S TOO DARK":Бе2522▓╘ЕL│11░B$│"D"░O(8)┤▓0зЗ"NEED DIVING GEAR":Бе2522ш╓ЕL│11░B$│"D"░O(3)│0зЗ"CAN'T DIVE WITH RAFT":Бе2522°╪ЕO(4)│0з2203@┌Е(L│19░B$│"E")▒(L│22░B$│"N")▒(L│23░B$│"NW")зЗ"CAN'T - NO AIR":Бе2523_▄ЕO(3)│0▒ О(C$,3)│"SWI"з2263д▐Е(B$│"S"░L│10)▒(B$│"W"░L│29)зЗ"NEED SOMETHING TO FLOAT ON":Бе2523╔рЕL│11▒L│12зЗ"HAVE TO SWIM":Бе2523┌тЕO(5)┤▓0з2304фЕ(L│28░B$│"W")▒(L│26░B$│"E")▒(L│22░B$│"S")зU1(5)│U1(5)м14=цЕL│11░O(8)│0░B$│"D"зU1(8)│U1(8)м14NшЕO(4)┤▓0з2364МъЕ(L│19░B$│"E")▒(L│22░B$│"N")▒(L│23░B$│"NW")зU1(4)│U1(4)м14ЭьЕO(3)┤▓0з2404╠юЕ(L│10░B$│"S")▒(L│29░B$│"W")зU1(3)│U1(3)м14╫ЁАX│1е44яЄЕ О(C$,3)│"SWI"з2465ЇЕB$│D$(X,L)зL│D(X,L):S│Sм2:Бе3857ЎЕB$│D$(X,L)зL│D(X,L):S│Sм7:Бе385>°ЛX5H·Бе2665W№Бж566:Бе745■З"RAFT DRIFTS AWAY!!":Бж562:O(3)│105Л
АX│1е115Ш
ЕX│3з2625н
ЕO(X)│11зO(X)│105┤
ЛX5╜
Бе745с

З"CAN'T GO THAT WAY":Бж566:Бе745щ
F│06
ЕO(3)┤▓0░(L│11▒L│12)зS│Sм76!
ЕO(3)│11░ Д(3)│1з2546,
АE│1е76;
P│ Д(HDл6)6_
ЕT(E)│L ░P┤5зT$│T$(E):F│1:Бе2826f
ЛE6p
Бе4346Э
ЕF│1зЗ@167,"TREASURE FOUND!":Бж568:Бе2906д
ЛE6┬
 З@167,"YOU FOUND NOTHING"6╫
"S│Sм3:Бж574:Бе387
$B$│ О(T$,3):ЕF│1░L│12░B$│"SUN"зN│300:A│100:Бе30074
&ЕF│1░L│7░B$│"BUR"зN│250:A│100:Бе3007i
(ЕF│0зS│Sм3:З"YOU FORGOT WHERE IT WAS":Бж566:Бе747x
*N│100:A│507╢
,ЕL│7░B$│"BUR"░O(10)┤▓0зЗ"BURIED - NEED SHOVEL":Бж566:Бе747├
.ЕI▓7з3627є
0ЕL│7░ О(T$,3)│"BUR"░O(10)│0зU1(10)│U1(10)м18

2P│ Д(N)лA8B
4З"YOU HAVE FOUND A":ЗT$;" WORTH $";P:T(E)│0:CL│1:I│Iл1:Бж5608V
6D│DлP:F│0:S│Sм38]
8:Г8h
:АX│1е78А
<ЕT(X)┤▓0зБж574:Бе388З
>ЛX8▓
@З"ALL TREASURES HAVE BEEN FOUND":Бж5688─
BP│ Д(500)л2008щ
DЗ"YOU HAVE EARNED A $";P;"BONUS"8є
FI│Iм79 
HD│DлP:З:З"NEW TREASURES NOW EXIST":Бж5609)
JБж1898
LБж560:Бе389j
NЕL│1▒L▓12зЗ"CAN'T DROP ITEMS HERE":Бж566:Бе749z
PB$│ Р(C$,6)9Ж
RАX│1е119Я
TЕB$│I$(X)░O(X)│0з3469ж
VЛX9╟
XЗ"DON'T HAVE ";B$:Бж566:Бе749╬
Z:Г9у
\ЕO(3)│0░L│11з356:E
^ЕX┤▓3░O(3)┤▓11░O(3)┤▓0░L│11зЗ"YOUR ";B$:З"SANK TO THE BOTTOM":I│Iм1:S│Sм1:Бж570:O(X)│12:Бе358:У
`Е(X│5░L│8)▒(X│8░L│12)▒(X│4░L│6)зЗ"TOO DANGEROUS TO ";C$:Бж566:S│Sм1:Бе358:е
bЕL│12░X│3з254:╝
dO(X)│L:S│Sм1:I│Iм1:╦
fБж574:Бе40:√
hЕL│1зЗ"CAN ONLY BUY FROM MARKET":Бж566:Бе74;
jЕI▓7з188;H
lЕL│6░ Д(10)┤7зЗ"CAN'T QUITE GRAB IT":Бж566:S│Sм2:Бж574:Бе38;X
nB$│ Р(C$,5);d
pАX│1е11;Я
rЕB$│I$(X)░O(X)│0зЗ"ALREADY HAVE THE ";I$(X):Бж566:Бе74;═
tЕB$│I$(X)░O(X)│L зO(X)│0:I│Iл1:S│Sм1:Бе38;╘
vЛX;▀
xБе 106;я
z:ГLOAD GAME<
|Ю:З"LOAD OLD GAME":З< 
~З"POSITION TAPE":ЯИ<4
АЗ"PRESS 'PLAY'"<R
ВЗ"HIT 'ENTER' WHEN READY"<a
ДЕ Т│""з388<h
ЖЯк<|
ИЩ"I",#м1,"GAME"<Ш
КЙ#м1,L,S,D,I,MV,F,CL,HD<╖
МАX│1е11:Й#м1,U1(X),O(X):ЛX<╧
ОАX│1е7:Й#м1,T(X):ЛX<╪
РЪ#м1<с
ТБе38<■
ФЮ:З"SAVE GAME TO TAPE":З=
ЦЗ"POSITION TAPE":ЯИ=5
ШЗ"PRESS 'PLAY' & 'RECORD'"=S
ЪЗ"HIT 'ENTER' WHEN READY"=b
ЬЕ Т│""з412=i
ЮЯк=Д
аАY│1е2:Щ"O",#м1,"GAME"=д
вЗ:З"COPY";Y;"NOW RECORDING"=└
дЗ#м1,L,S,D,I,MV,F,CL,HD=╠
жАX│1е11=у
иЗ#м1,U1(X),O(X):ЛX=ю
кАX│1е7= 
мЗ#м1,T(X):ЛX>
оЪ#м1:ЛY>
░З"COMPLETED";:К>%
▓Ю>.
┤╚0,1>4
╢╝>>
╕┐ 1,0>V
║H│ Д(252):V│ Д(188)>a
╝АJ│1е8>x
╛G│ Д(8):Z│ Д(20)л5>Ы
└ЕG│1зH│Hм Д(20)мZ:V│Vм Д(20)мZ>▒
┬ЕG│2зV│Vм Д(20)мZ>╘
─ЕG│3зH│Hл Д(20)лZ:V│Vм Д(20)мZ>ъ
╞ЕG│4зH│Hл Д(20)лZ?

╚ЕG│5зH│Hл Д(20)лZ:V│Vл Д(20)лZ?#
╩ЕG│6зV│Vл Д(20)лZ?F
╠ЕG│7зH│Hм Д(20)мZ:V│Vл Д(20)лZ?\
╬ЕG│8зH│Hм Д(20)мZ?i
╨ЕH┤1зH│1?v
╥ЕV┤1зV│1?З
╘ЕH▓252зH│252?Ш
╓ЕV▓188зV│188?░
╪╗ м(H,V),╜:┬(H,V),2?┌
┌И J Бж488,490,492,494,496,498,500,502?с
▄ЛJ?я
▐ЕF┤▓1з288@
р┬(H,V),5:Бж568@
т┬(H,V),7@-
ф┬(H,V),10:┬(H,V),13:Бж568@7
цБе284@R
ш╔"V31;T6;O1;L8;F;P8":Р@`
ъ╔"C;P8":Р@n
ь╔"D;P8":Р@|
ю╔"E;P8":Р@Ж
ЁБе488@Р
ЄБе490@Ъ
ЇБе492@д
ЎБе494@к
°РAc
·Ж GUN,LARGE GUN,1,80,4,BOOTS,HIP BOOTS,1,40,3,RAFT,INFLATABLE RAFT,1,150,5,SUIT,SPACE SUIT,1,200,5,FLASHLIGHT,FLASHLIGHT,1,10,6,COAT,FUR COAT,1,80,3,MINESWEEPER,MINESWEEPER,1,100,3A├
№Ж GEAR,DIVING GEAR,1,150,4,KNIFE,HUNTING KNIFE,1,40,5,SHOVEL,SHOVEL,1,15,4,ROPE,ROPE,1,10,3B▓
■Ж IN THE MARKET,WADING THROUGH A SWAMP,IN THE ARCTIC,IN A DENSE JUNGLE,IN AN EMPTY ROOM,FLOATING THROUGH OUTER SPACE,CRAWLING THROUGH THE DESERT,IN A DARK CAVE,WALKING THROUGH A MINE FIELD,AT THE BEACH,ON THE OCEAN,SWIMMING UNDERWATERCЖ IN THE INFIRMARY,AT THE SOUTH DOOR OF MARKET,AT THE EAST DOOR OF MARKETCzЖ VALUABLE RING,BAG OF GOLD,BOX OF JEWELS,BOX OF COLLECTABLES,RAFFLE TICKET,BURIED CHEST OF TREASURES,SUNKEN TREASURECўЖ S,14,E,15,-,1,-,1,S,16,W,15,E,17,-,2,NW,17,S,20,-,3,-,3,N,14,NE,18,SE,21,S,25,N,16,W,18,S,24,E,19,W,19,SW,22,SE,23,-,6DНЖ N,24,W,21,SE,26,-,7,N,22,SW,26,SE,28,-,8,N,20,NW,23,S,27,-,9,N,25,S,11,-,10,-,10,N,10,SE,29,D,12,-,11,U,11,-,12,-,12,-,12,NW,28,SW,29,N,27,-,13ElЖ N,1,S,4,-,14,-,14,E,2,W,1,-,2,-,2,N,2,S,5,-,16,-,16,W,2,E,3,-,17,-,17,W,4,E,5,-,18,-,18,W,5,E,6,-,19,-,19,N,3,S,9,-,20,-,20,W,4,E,7,-,21,-,21,N,6,S,8,-,22,-,22,NW,6,SE,9,-,23,-,23,N,5,S,7,-,24,-,24,N,4,S,10,-,25,-,25E╛
Ж W,7,E,8,-,26,-,26,N,9,S,13,-,27,-,27,W,8,E,13,-,28,-,28,W,11,E,13,-,29,-,29FШЖ ALLIGATOR ATTACKING,2,STUCK IN QUICK SAND,2,POLAR BEAR CHARGING,3,YOU'RE GETTING COLD,3,TIGER JUMPING YOU,4,RHINO CHARGING,4,A PYTHON SLITHERING AROUND YOU,4,METEORS ARE BOMBARDING YOU,6,BANDIT APPROACHING YOU,7GrЖ GIANT TIRANTULA LEAPS AT YOU,7,YOU'RE GETTING HOT,7,LAND MINES NEARBY,9,A BARACUDA IS NEARBY,12,SHARKS ATTACKING,11,A GIANT OCTOPUS GRABS YOU,12,BATS DIVING AT YOU,8,ROOF OF CAVE FALLING IN,8,YOU FELL IN A PIT,8Gy:ГGЖЕS┤1з612GТЕS▓20зРGяЗ"STRENGTH LEVEL DANGEROUSLY LOW!":АX│1е3:┐0,1:АY│1е150й15:аY,1:ЛY:┐0,0:АY│1е60:ЛY:Л X:РHЗ"YOUR ATTEMPT FAILED!"HZ│0HАX│1е11H=ЕO(X)│0зZ│Zл1:K$(Z)│O$(X)HD ЛXHT"P│ Б( Д(D))HГ$З"BANDIT STOLE $";P;"FROM YOU":Бж564:D│DмPHП&P│ Д(Z)Hл(ЕZ▓0зЗ"AND YOUR ";K$(P)H▌*АX│1е11:ЕO$(X)│K$(P)з O(X)│1:U1(X)│U(X):I│Iм1Hф,ЛXHю.Бе162I0АX│1е250й10:аX,1:ЛX:РIA2АX│1е3:┐0,1:АY│150е230й10:аY,1:Л:┐0,0:АZ1│1е30:Л:Л:РIa4АX│1е3:а1,6:АY│1е10:ЛY:ЛX:РIГ6АX│1е3:а220,4:АY│1е30:ЛY:ЛX:РIг8АX│1е7:а( Д(40)л200),1:ЛX:РI╛:АY│201е1йм10:аY,1:ЛY:РIя<АX│1е2:╔"V31;O2;L8;F;P8;C;P8;D;P8;E;P8":ЛX:РJ>АN│1е1000:ЛN:РJ5@АX│100е210й15:аX,1:ЛX:АX│200е100йм15:аX,1:ЛX:РJKBЕL┤16▒ Д(25)▓3з78JiDЗ"PORTHOLE MALFUNCTION!!"JГFАX│1е30:а Д(250),1:ЛXJРHL│ Д(13)JзJЕL│12░O(8)┤▓0зL│11J╝LЕL│6░O(4)┤▓0з584J╤NЕL│8░O(5)┤▓0з584J■PЗ"YOU HAVE BEEN TELEPORTED":З"TO ";L$(L)K
RБж574:Бе38K)TБж574:Ю:АX│1е5:Ю( Д(8))KАVЗ@165,"YOU HAVE SUCCESSFULLY";:З@201,"COMPLETED THE";:З@230,"ULTIMATE ADVENTURE!";KСXАY│150е200й5KаZаY,1:ЛY:ЛXK╛\З@294,"TOTAL MOVES =";MV;Kь^З@480,"   >>> CONGRATULATIONS <<<      ";K√`Е Т│""з608L
bКL)dЮ:З@164,"TOO BAD, YOU GOT KILLED!";L:fа60,12:а1,24LDhБе608LPjАZ│1е11LglЕ(Z▓1░Z┤5)▒Z▓7з634LЖnЕO(Z)│12▒(L│12░O(Z)│0)з640LЯpЕO(3)│11░O(Z)│11з634L╝rЕL│11░O(3)│0░O(Z)│11з634L┘tЕL│11░O(3)┤▓0░O(Z)│0з640L°vЕO(Z)│11░O(3)┤▓11з632:Д634M5xЗ"YOUR ";O$(Z):З"SANK TO THE BOTTOM":Бж570:O(Z)│12:Бе620MazЕU1(Z)┤1░O(Z)│0зO(Z)│1:U1(Z)│U(Z):I│Iм1Mh|ЛZMn~РMйАЗ"YOUR ";O$(Z):З"GOT RUINED BY THE WATER!":Бж562:Бж574M═ВЕO(Z)│0зO(Z)│1:U1(Z)│U(Z):I│Iм1MьДЕO(Z)│12зO(Z)│1:U1(Z)│U(Z)MЎЖБе634NbКЕCL│1зY│ Д(7):ЕT(Y)│0з650:ДЗ:З"clue":З"YOU WILL FIND TREASURE WHILE":ЗL$(T(Y)):З:CL│0:D│0:Р:ДЗ"CAN'T":Р|ЛZMn~РMйАЗ"YOUR ";O$(Z):З"GOT RUINED BY THE WATER!":Бж562:Бж574M═ВЕO(Z)│0зO(Z)│1:U1(Z)│U(Z):I│Iм1MьДЕO(Z)│12зO(Z)│1:U1(Z)│U(Z)MЎЖБе634NbКЕCL│