LL,204,205,206,207,HALL,HALL,LARGE ROOMB[NWЖ 211,212,LOBBY,HALL,215,HALL,HALL,HALL,HALL,220BN\Ж SMALL CUBICLE,222,223,224,225BМNeВ A1$( )B┴NfЖ HALL,HALL,HALL,HALL,HALL,HALL,107,108,109,HALLCNkЖ HALL,HALL,LANDING,THRONE ROOM,HALL,HALL,117,118,119,HALLCNpЖ HALL,HALL,HALL,HALL,HALLC,NyВ A3$( )CfNzЖ 301,302,303,304,305,FISSURE,307,308,309,ROCK TUNNELCкNЖ LEDGE,312,313,314,TUNNEL,VAST CAVERN,TUNNEL,318,TUNNEL,TUNNELC═NДЖ ???,CAVERN,CAVERN,TUNNEL,325D0NШЖ 1514,11,1515,1,1516,18,1517,18,1518,1,1519,11,1520,45,1521,16,1522,1,1523,18,1524,20,1525,49DИaиЮ:Й"PUT BLANK TAPE IN RECORDER-PRESSPLAY AND RECORD-PRESS WHEN READY";RE$D╝a▓АY│1е3:Щ"O",#м1,"VARIABLE":АX│1е20:З#м1,C(X):ЛXD╠a╖З#м1,G,H,AGD╪a╝Ъ#м1:ЛYEHa╞Ю:З"THE VARIABLE TAPE HAS BEEN SAVEDTHREE TIMES":З"TO CONTINUE-CLOAD NEXT GAME AND FOLLOW THE DIRECTIONS":КE┤eРЮ:Й"PUT TAPE WITH VARIABLES IN RE- CORDER-PRESS PLAY/PRESS WHEN READY";RE$:Щ"I",#м1,"VARIABLE"E╠eЪАX│1е20:Й#м1,C(X):ЛE▄eЯЙ#м1,G,H,AGEэeдЪ#м1:АX│1е20F eйЕC(X)┤▓1░C(X)┤▓2зC(X)│0FeоЛX:Бе110F7u0ЕAB│1░AC│1зAE│0:AF│0:Бе15000FEu:X│ Д(м Я)F_u?X│ Д(100):ЕX▓40з15000FzuDX│ Д(200):ЕX▓100з30500FФuФЕAC│1░C(10)│114з15000FдuЧЕAB│1з15000FнuЩAJ│OF°uЮO│16:T│0:З@384,"AN EMERALD-GREEN DRAGON IS NOW ATTACKING":AE│1:D(9)│3GRuгAG│ Б(AG):З@288,"OPPONENT'S STRENGTH=":З@320," KARRACK'S STRENGTH=":З@308,AI:З@340,AGG╝uиЕB│2░H$│C$(1)зX│ Д(100):ЕX▓40зЗ@448,"A SOLID HIT!":AH│AHм5::ДЗ@448,"MISSED-THE DRAGON DIDN'T":AG│AGм4H)u╝ЕB│11░H$│C$(4)зX│ Д(100):ЕX▓40зЗ@448,"JUST CAUGHT IT!":AH│AHм2::ДЗ@448,"DRAGON SWIPED MY CHEST!":AG│AGм2Hcu╨ЕB┤▓2░B┤▓11зЗ@256,"THE DRAGON'S TAIL HIT ME!":AG│AGм2Hyu°З@308,AH:З@340,AGH╔v\ЕAH┤1зЗ@256,"THE DRAGON IS DEAD":З@384," ":З@416," ":O│AJ:AB│1:AE│0:Бе15000Hьv└ЕAG┤1зЗ@256,N$:АX│1е2000:Л:Ю:КH°w#Бе15000Iw$ЕAB│1░C(10)│114з15000I"w)ЕAC│1з15000I+w+AJ│OIjw.O│16:T│0:З@384,"A WILD BOAR IS NOW ATTACKING":D(10)│3:AF│1I├w3AG│ Б(AG):З@288,"OPPONENT'S STRENGTH=":З@320," KARRAK'S STRENGTH=":З@308,AH:З@340,AGJ)w8ЕC(1)│1зЕB│2зX│ Д(100):ЕX▓40зЗ@448,"A SOLID BLOW!":AI│AIм5::ДЗ@448,"A TUSK CAUGHT MY LEG":AG│AGм3JбwBЕC(4)│1зЕB│11зX│ Д(100):ЕX▓30зЗ@448,"A SLIGHT WOUND IN IT'S NECK":AI│AIм2::ДЗ@448,"IT'S HOOF RIPPED MY LEG":AG│AGм2J╖wGЗ@308,AI:З@340,AGJяwLЕB┤▓2░B┤▓11зЗ@448,"IT'S TEETH CUT MY ANKLE":AG│AGм2K3wVЕAI┤1зЗ@256,"THE BOAR IS DEAD":З@384," ":AC│1:O│AJ:AF│0:Бе15000KVw`ЕAG┤1зЗ@288,H$:АX│1е2000:Л:Ю:КKbyБе15000IT'S NECK":AI│AIм2::ДЗ@448,"IT'S HOOF RIPPED MY LEG":AG│AGм2J╖wGЗ@308,AI:З@340,AGJяwLЕB┤▓2░B┤▓11зЗ@448,"IT'S TEETH CUT MY ANKLE":AG│AGм2K3wVЕAI┤1зЗ@256                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                IN THE CORNER":ЕC(8)│221 ▒C(8)│3зЗ@320,"ON IT IS A KEY"0BЯБе150000Iа:Г0КбЕP│203▒P│208зЕB│1░C│7зЕC(7)│1зЗ@288,"SMALL,SOLID GOLD":Бе1500аеЕP│208з4007:Д40500┤зЕB│1з4010:Д40200╒кЕJ│1зЗ@288,"DEEP,DARK":Бе1501пЕJ│2зЗ@288,"1 INCH WIDE,1/4 INCH HIGH":Бе1501Ы┤ЕB│3░F$│D$(2)░C│7░C(7)│1зЗ@256,"'CLINK'":З@288," ":АX│1е2000:Л:З@288,"A BRIDGE SLID FROM THE FAR PIT WALL":C(7)│4:O│10:I│1:H│Hм1:D(3)│3:Бе150001▒╥ЕP│218з4055:Д41001┼╫ЕB│1з4060:Д40751Ї▄ЕJ│5░R│0зЗ@288,"SHARP POINT IN EACH":Бе1502сЕJ│5░R│1зЗ@288,"ALL ARE EMPTY":Бе1502└ыЕB│9░C│9зЗ@320,"WHICH DIRECTION(N S E W U D)":ЙO$:ЕO$│"N"зЗ@352,"BOLTS FLEW OUT OF THE HOLES AND HARMLESSLY HIT THE WALLS":R│1:C(9)│217:Бе150::ДC(9)│3:Бе150002╓ЕP│209з4110:Д43003ЕB│1░J│6зЗ@288,"HEAVY WOOD,BLACK METAL LOCK":D(7)│3:Бе150003AЕB│8░J│6░AA│0зЗ@288,"WON'T OPEN":Бе1503v"ЕB│8░J│6зЗ@288,"IT SWUNG INWARD":M│1:O│8:Бе150003═,ЕB│10░J│7зЗ@288,"WITH WHAT":ЙP$:ЕP$│"KEY"░C(8)│1зЗ@288,"IT IS UNLOCKED":AA│1:Бе1503¤6ЕB│1░J│7зЗ@288,"CROSS SHAPED OPENING":Бе1504╠ЕP│221з4310:Д49994a╓ЕB│1░J│8зЗ@288,"A SMALL,THREE LEGGED TABLE WITH A DRAWER":D(18)│3:Бе150004ИрЕB│1░J│18░D(18)┤▓0░AN│1з4325:Д43404─хЕC(11)│0▒C(11)│3зЗ@288,"A JADE PENDANT":C(11)│3:Бе150004▄ъЗ@288,"EMPTY":Бе1505ЇЕB│8░J│18зЗ@288,"IT IS OPEN":AN│1:Бе15053∙ЕB│1░C│11░C(11)│1зЗ@288,"TURTLE":Бе1505?ЗБе129905NИЕMV│0з60005ЗТЕC(10)│1▒C(10)│3зЕAK│1зQ│PмLV:З@9,A3$(Q):AL│0:Бе50205жЧЗ@9,"too dark to see":AL│15╟ЬЕP│310░AL│1зO│16:T│1:Бе150005сжЕP│310зO│3:T│1:D(4)│36Л░ЕAL│1зЗ@288,"SOMETHING HEAVY SPRANG OUT AT MEAND KNOCKED ME TO THE FLOOR":АX│1е1500:Л:З@352,"I CANNOT FIGHT IT OFF-IT IS RIP-PING ME APART!":АX│1е3500:Л:Ю:З@263,N$:К6з║ЕP│315зO│10:T│0:D(14)│06╢─ЕP│320зO│76┼╬ЕP│324зO│76╘╪ЕP│319зO│87?тЕP│323зO│2:З@288,"A BUBBLING POOL OF MOLTEN SULFURBLOCKS MY WAY-THERE IS A PASSAGETO THE NORTH BEYOND"7ЖьЕAM│0░P│322зO│4:D(14)│4:З@288,"THE LIZARD SUNK FROM SIGHT":D(12)│37ЭЎЕP│322зO│4:D(12)│37м√ЕP│317зO│68ЕP│316зO│8:З@288,"THERE IS A PATH TO THE EAST AND A LEDGE HIGH UP ON THE WEST WALL"8╨ЕP│321зЗ@288,"I HEAR A SCREECHING SOUND FROM OVERHEAD!!??":АX│1е2500:Л:З@352,"A HUGE HARPY HAS ME IN IT'S GRIP":АX│1е2500:Л:З@384,"IT'S LIFTING ME UP!":АX│1е2000:Л:З@416,"IT DROPPED ME!":АX│1е2000:Л9Д ЕP│321зЗ@448,"THUD!!":АX│1е1000:Л:З@9,"LEDGE":З@38,"none":З@69,"":З@96," ":З@128," ":З@288,"THIS IS THE END OF PART 1 WAIT A MOMENT PLEASE":З@352," ":З@384," ":З@416," "9нЕP│321зЗ@448," ":АX│1е5000:Л:Бе250009╣oБе15000:TpЕB│1░J│13░P│323зЕD(13)│3▒D(13)│323зЗ@288,"THEY ARE FINNED":ЕD(14)│0зАX│1е2000:Л:З@320,"A LARGE LIZARD IS COMING OUT OF THE POOL!":D(14)│3:Бе15000:Д150:├zЕB│1░J│12░P│323зЗ@288,"ABOUT 15 FEET ACROSS,THERE ARE TRACKS COMING FROM AND GOING TO IT":D(13)│3:Бе15000; ДЕB│1░J│14░P│323░D(14)┤▓0зЗ@288,"YELLOW,ABOUT 20 FEET IN LENGTH":Бе150;dОЕP│323зЕB│2▒B│11зЕD(14)┤▓0зЗ@288,"THE LIZARD RETURNED TO THE POOL":D(14)│4:Бе15000< ШЕP│323░B│13░J│14зЗ@288,"WHAT":ЙFO$:ЕFO$│C$(5)░C(5)│1зЗ@320,"THE LIZARD ATE AND WENT TO THE POOL-IT IS SPANNING THE POOL WITH IT'S BODY":O│5:H│Hм1:C(5)│0:Бе15000<WБе12990:вAG│AGл.45:ЕAG▓20зAG│20>P:╩F│0:АX│1е20:ЕC(X)│3 ▒ C(X)│P зЗ@72л(Fн8),C$(X):F│Fл1:C(X)│3>W:▐ЛX>М:шАX│1е20:ЕD(X)│3 ▒ D(X)│P зЗ@72л(Fн8),D$(X):F│Fл1>У:эЛX>п:№N│0:S│0:V│0:W│0:D│0:U│0>╥;ЕO│0░T│0зЗ@38,"--NONE--":Бе150>▀;ЕT│1зU│1>ь;ЕT│2зD│1>¤;ЕT│3зU│1:D│1? ;ЕO│1зN│1?;$ЕO│2зS│1?$;)ЕO│3зV│1?1;.ЕO│4зW│1?B;3ЕO│5зN│1:S│1?S;8ЕO│6зN│1:V│1?d;=ЕO│7зN│1:W│1?u;BЕO│8зS│1:V│1?Ж;GЕO│9зS│1:W│1?Ш;LЕO│10зV│1:W│1?о;QЕO│11зN│1:S│1:V│1?─;VЕO│12зN│1:S│1:W│1?┌;[ЕO│13зN│1:V│1:W│1?Ё;`ЕO│14зS│1:V│1:W│1@ ;eЕO│15зN│1:S│1:W│1:V│1@;gЗ@38,""@6;hЕO│16░T│0зЗ@38,"none":Бе150@H;jЕN│1зЗ@38,"N"@Z;oЕS│1зЗ@40,"S"@l;tЕV│1зЗ@42,"E"@~;yЕW│1зЗ@44,"W"@Р;~ЕU│1зЗ@46,"U"@в;ГЕD│1зЗ@48,"D"@м;ИБе150A N Ж LOOK,HIT,PUT,GET,LIST,DROP,VIEW,OPEN,THROW,UNLOCK,STAB,LIGHT,FEED,ZZ,ZZ,ZZ,ZZ,ZZ,ZZ,ZZAjN4Ж SWORD,FLINT,ROPE,DAGGER,JERKY,POUCH,COIN,KEY,SACK,TORCH,PENDANT,12,13,14,15,16,17,18,19,20AсNHЖ PIT,SLOT,BRIDGE,STAIRS,HOLES,DOOR,LOCK,TABLE,DRAGON,BOAR,THRONE,POOL,TRACKS,LIZARD,LEDGE,HARPY,PATH,DRAWER,ZZ,ZZAюNQВ A2$( )B&NRЖ 201,202,HA -c^В karrak-WRITTEN BY GREGORY CLARK,122 MALE AVE,SYRACUSE,NY 13219/315-487-8406/16K BASICпdЮ(0):МB$(20),C$(20),C(20),D$(20),D(20),A1$(25),A2$(25),A3$(25),KA(12),AK(12)╜fX│ Д(м Я)AiАX│1е20:НB$(X):Л:АX│1е20:НC$(X):Л:АX│1е20:НD$(X):Л:АX│1е25:НA2$(X):Л:АX│1е25:НA1$(X):Л:АX│1е25:НA3$(X):Л:АX│1е12:НKA(X),AK(X):ЛYjN$│"KARRAK IS DEAD"okЕAK(12)┤▓49з26000 nЮ(0):D(17)│316:D(15)│316:D(12)│323:D(11)│114:C(10)│114:AG│20:AH│10:AI│10:D(8)│221:C(8)│221:C(5)│2:C(6)│2:C(9)│1:H│1:C(1)│1:C(2)│2:C(3)│2:C(4)│2:P│203:HV│0:VV│3:LV│200 ╖МАX│1030е1510й32:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1043е1260й31:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1292е1523й33:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1е4000:Л ╘ПЮ:АX│1е12:ТKA(X),AK(X):Л!СЗ@0,"location":З@32,"moves":З@64,"i see"!УMV│1:Бе975!GЦа100,1:З@224,"":З@192,"WHAT DO YOU WANT TO DO":ЙA$!КШЗ@256,"":З@288,"":З@320,"":З@352,"":З@384,"":З@416,"":З@448,""!лЫB│0:C│0:J│0:MV│0:H$│"":F$│""!▐ЯЕA$│"]"зЗ@160,"KARRAK'S STRENGTH=" Б(AG):Бе150!їаЕA$│"&"зMV│1:Бе143" бЕA$│"["зB│7:Бе900"!вЕA$│"^"зB│5:Бе600";гЕA$│"_"зB│1:C│9:Бе300"[дЕAK(12)│52░P│115░A$│"N"зN│1"ЭеЕA$│"!"▒A$│"="зЕAE│0░AF│0зЗ@288,"NOTHING TO FIGHT HERE":Бе150"├жЕA$│"!"░C(1)│1зB│2:H$│C$(1):Бе245"ъзЕA$│"="░C(4)│1зB│11:H$│C$(4):Бе245#иЕA$│"!"░C(12)│1зB│2:H$│C$(12):Бе245#;йЕA$│"="░C(13)│1зB│11:H$│C$(13):Бе245#sкЕ З(A$)┤1з150:ДЕ З(A$)┤2зЕAE│0░AF│0зMV│1:Бе950:Д245#├╚АB│1е20:АX│1е З(A$):D$│B$(B):L│ З(D$):Е Р(A$,X,L)│D$з Р(A$,X,L)│" ":Бе220#╨╥ЛX,B:B│0#Є╫З@256,"I CAN'T DO THAT":Бе150$/▄АC│1е20:АY│1е З(A$):D$│C$(C):L│ З(D$):Е Р(A$,Y,L)│D$з245$<цЛY,C:C│0$yыАJ│1е20:АY│1е З(A$):D$│D$(J):L│ З(D$):Е Р(A$,Y,L)│D$з245$ЖЁЛY,J:J│0$▒їЕAE│1з30110:ДЕAF│1з30510:ДЕB│1░C│9з300$▀ЎЕB│3зЗ@256,"WHERE":ЙF$:ЕF$│C$(9)з400:Д975$ьўЕB│4з500$∙°ЕB│5з600%∙ЕB│6з700%·ЕB│7з900%9√ЕB│11зЗ@256,"WITH WHAT":ЙH$:Бе975%^№ЕB│2зЗ@256,"WITH WHAT":ЙH$:Бе975%а¤ЕB│8░C│6░C(6)│1░C(7)│0зC(7)│3:З@288,"A COIN FELL OUT":Бе15000&■ЕB│12░C│10зЗ@288,"WITH WHAT":ЙLI$:ЕLI$│C$(2)зЕC(10)│1▒C(10)│3зЕC(2)│1зЗ@448,"IT IS LIT":AK│1:AL│0:MV│1:Бе975&Бе975&T,F│0:ЕC(9)│1з310:ДЗ@288,"I DON'T HAVE THE SACK":Бе150&Ы6З@288,"I SEE IN THE SACK:":АX│1е20:ЕC(X)│2зЗ@320л(Fн8),C$(X):F│Fл1&─@ЛX:ЕF│0зЗ@320,"NOTHING":Бе150:ДБе150&█РЕF$│C$(9)з410:Д975'ЪЕG▓7зЗ@352,"THE SACK IS FULL":Бе150'EдЕC(C)│1зC(C)│2:G│Gл1:H│Hм1:З@288,"I PUT IT IN THE SACK":Бе150'nоЗ@288,"I DON'T HAVE THE "C$(C):Бе150'ЧЇЕH▓1зЗ@288,"MY HANDS ARE FULL":Бе150'╒■ЕC(C)│2зC(C)│1:H│Hл1:G│Gм1:З@288,"I HAVE THE "C$(C):Бе150(#ЕC(C)│3зC(C)│1:H│Hл1:З@288,"I HAVE THE "C$(C):ЕC│9зH│Hм1:Бе15000:ДБе15000(OЕC(C)│1зЗ@288,"I ALREADY HAVE IT":Бе150(pЗ@288,"I CAN'T GET IT":Бе150(░XF│0:З@256,"I HAVE:":АX│1е20:ЕC(X)│1зЗ@288л(Fн8),C$(X):F│Fл1(┌bЛX:ЕF│0зЗ@288,"NOTHING":Бе150::ДБе150)╝ЕC(C)┤▓1зЗ@288,"I DON'T HAVE IT":Бе150)╞ЕC│9зH│Hл1)I╨H│Hм1:C(C)│3:З@288,"I DROPPED THE "C$(C):Бе15000)XДMV│1:Бе975)s╢АX│1е20:ЕC(X)│3зC(X)│P)z╖ЛX)Х╕АX│1е20:ЕD(X)│3зD(X)│P)Ь╣ЛX)║║ЕA$│"N"░N│1зVV│VVм1:Бе975)╪╗ЕA$│"S"░S│1зVV│VVл1:Бе975)Ў└ЕA$│"W"░W│1зHV│HVм5:Бе975*┬ЕA$│"E"░V│1зHV│HVл5:Бе975*4┼ЕA$│"U"░U│1зLV│LVм100:Бе975*T╚ЕA$│"D"░D│1зLV│LVл100:Бе975*З╩З@288,"I CAN'T MOVE THAT WAY":АX│1е300:Л:Бе150*в╧P│VVлHVлLV:ЕP┤200з1000*▓╨ЕP┤300з3000*┬╤ЕP┤400з5000*╤шЕMV│0з2000*чЄQ│PмLV:З@9,A1$(Q)+ ўЕP│113зO│1:T│2:D(4)│3:Бе15000+$№ЕP│112зT│0:O│5:Бе15000+3ЕP│101зO│8+BЕP│102зO│5+Q ЕP│103зO│5+`ЕP│104зO│5+oЕP│105зO│6+ЕP│106зO│10+ПЕP│110зO│10+з$ЕP│111зO│14:Бе15000+╛)ЕP│114зO│2:Бе15000+╓.ЕP│115зO│13:Бе15000+ц3ЕP│116зO│10+Ў8ЕP│120зO│10,=ЕP│121зO│9,BЕP│122зO│5,#GЕP│123зO│5,2LЕP│124зO│5,AQЕP│125зO│7,M╧Бе30000,a╨ЕB│1з2010:Д2999,Н┌ЕJ│9зЕD(9)│3▒D(9)│P зЗ@288,"DEAD":Бе150,╝фЕJ│10зЕD(10)│3▒D(10)│P зЗ@288,"DEAD":Бе150,эюЕJ│11░P│114зЗ@288,"LARGE,ORNATE,BRASS":Бе150-+°ЕC│10зЕC(10)│1▒C(10)│3зЗ@288,"UNLIT,18 INCHES LONG":Бе150-7 ╖Бе12990-F ╕ЕMV│0з4000-\ ┬Q│PмLV:З@9,A2$(Q)-o ├ЕP│203зO│3:T│0-╟ ─ЕP│203░K│0зЗ@288,"A SOLID,METAL DOOR SLAMMED DOWN AS I CAME IN-I CAN'T GO BACK":K│1. ╟ЕP│208░I│0зЗ@256,"TO THE EAST IS A PIT,IN THE WALLIS A SLOT":D(1)│3:D(2)│3:O│4:T│0.= ╠ЕP│208░I│1зO│10:T│0:D(2)│3.x ╤ЕP│209░M│0зO│3:З@288,"CLOSED DOOR TO SOUTH":T│0:D(6)│3.П ╓ЕP│209░M│1зO│8:T│0.й █ЕP│210зO│1:T│2:D(4)│3.├ рЕP│213зO│9:T│1:D(4)│3.╫ хЕP│214зO│13:T│0.ъ ъЕP│216зO│8:T│0/8 яЕP│217░R│0зЗ@288,"BOLTS FROM EVERYWHERE HIT ME!":АX│1е3000:Л:Ю:З@264,N$:К/R ЇЕP│217зO│5:T│0:D(5)│3/й ∙ЕP│218░R│0зD(5)│3:З@288,"IN THE WALLS TO THE NORTH ARE MANY SMALL HOLES":O│5:T│0/└ √ЕP│218░R│1зO│5:T│0/╙ ■ЕP│219зO│7:T│006 ЕP│221зO│4:T│0:З@288,"THERE IS A TABLE 43:Бе7E,0B,0E,0F,0F,0F,0F,00,00,00,00,02,08,04,04,05,05,05,0D,07,07,0F,0F,0F,00@Є&мЮ3:З@170," ";:З@202," I M A G E ";:З@224, б(32,143);:З" P R O C E S S I N G ":З б(32,143);:З@326," BY DR. BOB TYSON ";:З@364," 1983 ";:РA'Х200,189                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 шВ**CHARACTER RECORDS6ЄЩ "O", м1, "CHARACTERS"<№ЮWЗ "CHARACTERS TO TAPE"^K:ГxLВ**GET CHARACTER INFOПVЗ: Й "NAME"; NAYM$Х`ЗжjЙ "STR"; STR╖tЙ "CON"; CON╚~Й "SIZ"; SIZ┘ИЙ "INT"; INQъТЙ "POW"; POW√ЬЙ "DEX"; DEX жЙ "CHA"; CHAп:Г-░В**OK TO PUT ON TAPE?3║ЗW─З "OK TO PUT ON TAPE (Y OR N)?"o╬K$│ Т:Е K$│""з 1230Г╪Е K$│"Y" з 1310ЯтЕ K$│"N" з 1020 :Д 1230ж:Г└В**PUT RECORD ON TAPEэЗ #м1, NAYM$,STR,CON,SIZ,INQ,POW,DEX,CHA(З @416, "RECORD IS IN TAPE BUFFER"w:Г2xВ**WHAT TO DO NEXTYВЗ "TO ENTER A RECORD, PRESS SPACE"МЗ "TO CLOSE THE FILE, PRESS 'C'";ЧЦK$│ Т:Е K$│""з 1430лаЕ K$│" " з 1020╟кЕ K$│"C" з 1510 :Д 1430╬█:Гф▄В**CLOSE THE FILEэцЪ м1єЁЮ·З "THE FILE IS CLOSED"Кw:Г2xВ**WHAT TO DO NEXTYВЗ "TO ENTER A RECORD, PRESS SPACE"МЗ "TO CLOSE THE FILE, PRESS 'C'";ЧЦK$│ Т:Е K$│""з 1430лаЕ K$│" " з 1020╟кЕ K$│"C" з 1510 :Д 1430╬█:Гф▄В**CLOSE THE FILEэцЪ м1єЁЮ·З "THE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 з7007:ДЕK$│"A"з7100:ДЕK$│"C"з7300:Д7005/l_З"ENTER THRESHOLD MINIMUM 0 TO 15":ЙTM:TM│ Б(TM):ЕTM┤0▒TM▓15з7007/┴bЗ"ENTER THRESHOLD MAXIMUM ";TMл1;" TO 16":ЙTX:TX│ Б(TX):ЕTX┤TM▒TX▓16з7010/╤lIC│1:Бе7400/є╝З"ADD CONSTANT TO ALL VALUES"0'╞З"ENTER CONSTANT -15 TO 15":ЙK:ЕK┤м15▒K▓15з711007╨IC│2:Бе74000cДЮ:З"CUSTOM HISTOGRAM MODIFICATION":IC│30ГшАI│0е16:ИICБж7450,7460,74700ЪЄЛI:Бж7500:ЕJ│0з5000н№X│ Г2(0):Бе5000┘ЕI┤TMзТVVлI,TM:ДЕI▓TXзТVVлI,TX:ДТVVлI,I0▀Р1$V│Iл Б(K):ЕV┤0зТVVлI,0:ДЕV▓16зТVVлI,16:ДТVVлI,V1%Р1W.З"CONVERT FROM ";I;" TO ";:ЙJ:ЕJ┤0▒J▓16з7470:ДТVVлI, Б(J)1]/Р1}LЮ:З"HISTOGRAM MODIFICATION"1ЛVАI│0е15й21║`ЗI;"->"; Ж(VVлI);" ";Iл1;"->"; Ж(VVлIл1)1┴jЛI1█tI│16:ЗI;"->"; Ж(VVлI)1Ї~З:З:З"SURE ? (Y/N)"2)ИJ│0:K$│ Т:ЕK$│""з7560:ДЕK$│"Y"зJ│1:ДЕK$┤▓"Y"зJ│02/ТР2`@Ю:З"SAVE TO DISK":З"ENTER DISK FILENAME/EXT"2hJЙK$2ГT╪MK$,23072,26144,230722Н^Бе5002╘#(Ж 00000000000000000000000112221100000000000122100000000000000000003#)Ж 00000000000000000001232358600000000000000056211221000000000000003b#*Ж 000000000000000123358DGGGD500000000000000008FGEC71011000000000003й#+Ж 00000000000002334BGGGGGGC63000000000000001004DEEEEE90022000000003Ё#,Ж 000000000003437EGGGGGDCAA7431000000000002231006BDDEEDC402200000047#-Ж 0000000002426EGGGGD7104AB9975332111112234564000006BCDEEC202100004~#.Ж 00000001443DGGGGB400009BBBBAA99877556566676540000005BCDDD80120004┼#/Ж 0000001546GGGGD6000005CCBCBCBBAAAA99989997678200000008CDDDB003005 #0Ж 000002746GGGGC30000009CCCCCCCCCDDCCCCAA9999985000000006BDAC902305S#1Ж 00002665GGGFC30000002ADDDDEDCCDDBBCBBAABBAA9840000000007CDDC50405Ъ#2Ж 0000592DGGGE700000005BCCCDDEEEEEEDDDCCCCBA97740000000002ADDDCC235с#3Ж 0002976GGGGC100000007BCCCDEEEEEEFEEDDCCBAA976510000000009DDDD1046(#4Ж 0005B5AGGGGA100000007BCCBCDDEDDDDDCDCBAAA9885410000000008DDDD2046o#5Ж 0016D4CGGGFA100000005ACCCCCCDDDDDDCCCCB998764200000000009DDDC1236╢#6Ж 0018D6AGGGGC100000007BABCCCCDDDDDCCCA9999866531000000003BDDDA0416¤#7Ж 0006CA5GGGGE600000006DDCBCCCDCDDDDCCBAAA9867883000000009DCDC30307D#8Ж 0003BE6DGGGGD20000003DGFEDDDDCCCDCCBBA99BABCB8000000008CDCC805107Л#9Ж 00007DD6GGGGGD2000001BFGFGGGFEEEEECCCCCCCEDC9400000009DDCD9042007╥#:Ж 000029EC8GGGGGE5000005CEFGGGGGGGGGEFFEFFEDC950000003BDDDD80420008#;Ж 0000019FE8FGGGGGC300005ACDEGFFGFFFGFEEEDCA75100002ADDDDC504100008`#<Ж 00000017EFBCGGGGGGE7003868ABCDDDEEDDCB9864453006CDDDDC93330000008з#=Ж 000000003BFEBDGGGGGGGEEEDCCBAAAA99998889ABDDDCDDEDDD9554000000008ю#>Ж 00000000003BEEDDGGGGGGGGGGGGGFEEEEDDEEEEEEEEEEECDB9676100000000095#?Ж 00000000000017CEEDDFGGGGGGGGGGGGGFFFEEEFEEEDEDCA99840000000000009|#@Ж 00000000000000026BDEEDEEEFGGGGGGGGGEFEEEEDCBAB9840000000000000009├#AЖ 0000000000000000000158BCEEDDEFGGFFFFEDCCBA9641000000000000000000: #BЖ 0000000000000000000000000013467777764310000000000000000000000000: #МЖ8E,5A,20,4F,A7,84,30,01,8C,66,21,25,F7,39,8E,4E,20,A6,84,A7,89,0C,00,30,01,8C,5A,21,25,F3,39,8E,4E,20,A6,89,0C,00,A7,84,30,01,8C,5A,21,25,F3,39,8D,ED,86,01,B7,4B,BE,B7,4B,BD,B6,4B,BE,C6,40,3D,FD,4B,C1,4F,F6,4B,BD,F3,4B,C1,C3,5A,20,1F,01,A6;Ї#НЖ84,AB,1F,AB,01,AB,88,C1,AB,88,C0,AB,88,BF,AB,88,3F,AB,88,40,AB,88,41,5F,80,09,2D,03,5C,20,F9,C1,10,23,02,C6,10,E7,89,F4,00,B6,4B,BD,4C,B7,4B,BD,81,3F,25,B6,86,01,B7,4B,BD,B6,4B,BE,4C,B7,4B,BE,81,2F,25,A6,17,FF,77,39,17,FF,84,7F,4B,BD,7F,4B<щ#ОЖBE,B6,4B,BE,C6,40,3D,FD,4B,C1,4F,F6,4B,BD,F3,4B,C1,C3,5A,20,1F,01,A6,84,A0,01,2C,02,43,4C,B7,4B,BF,A6,84,A0,88,40,2C,02,43,4C,BB,4B,BF,84,0F,A7,89,F4,00,B6,4B,BD,4C,B7,4B,BD,81,3F,25,C3,86,01,B7,4B,BD,B6,4B,BE,4C,B7,4B,BE,81,2F,25,B3,17,FF=▐#ПЖ1D,39,DC,BA,FD,4B,C5,7F,4B,BE,7F,4B,BD,B6,4B,BE,C6,40,3D,FD,4B,C1,4F,F6,4B,BD,F3,4B,C1,C3,5A,20,1F,01,B6,4B,BE,C6,80,3D,FD,4B,C1,F6,4B,BD,4F,54,F3,4B,C1,F3,4B,C5,1F,02,86,00,B7,4B,C0,B7,4B,C1,8D,3F,86,11,B7,4B,C0,86,20,B7,4B,C1,8D,33,86,22>╙#РЖB7,4B,C0,86,40,B7,4B,C1,8D,27,86,33,B7,4B,C0,86,60,B7,4B,C1,8D,1B,B6,4B,BD,4C,4C,B7,4B,BD,81,3F,25,9B,7F,4B,BD,B6,4B,BE,4C,B7,4B,BE,81,30,25,8D,39,34,20,A6,84,BB,4B,C0,31,8D,00,4B,E6,A6,58,58,58,58,F7,4B,BF,A6,01,BB,4B,C0,E6,A6,FB,4B,BF,B6?╚#СЖ4B,C1,35,20,E7,A6,39,8E,5A,20,31,8D,00,0E,A6,84,E6,A6,E7,84,30,01,8C,66,20,25,F3,39,08,F7,00,FF,00,F7,28,B7,00,FF,00,F7,00,F7,00,F7,00,F7,00,FF,00,D7,00,FF,00,D7,00,00,00,02,04,04,02,02,0A,0A,0B,0B,0E,0E,0E,0E,0F,0F,00,02,00,01,01,05,05,05@Q#ТЖ05,05,05,05,07,07,07,07,0F,00,00,04,04,08,02,0A,0A,0A,0A,0E,0B,0E,0F,0F,0F,0F,00,00,00,00,02,08,04,04,05,05,05,0D,07,07,0F,0F,0F,00@Є&мЮ3:З@170," ";:З@202," I M A G E ";:З@224, б(32,143);:З" P R O C E S S I N G ":З б(32,143);:З@326," BY DR. BOB TYSON ";:З@364," 1983 ";:РA'Х200,189п~ANDGOTO CONT DIREDIT FOR GOSUB LOADM"HIRES"INPUT ELSE KILL "LOAD "PRINT MEM NEXT ORPOKE STRING$(RUN SAVE "PEEK( USINGOPEN "CLOSELEFT$(MID$(RIGHT$(Цo'4p╜бЩН '∙╞`чЯИ52b94mМ█&0нЯа4╢VД&554Б '1АA%)Б$%2b0Н  mА&№J*∙пМнlМйоМзжАпМвmД&oМЪM5Р55Р╜й(О ЯИ0Н■█ЖA4Н<Ж:Н8Ж Н4жА' Б $КАН( Є▄И─Ё├▌И5LБZ#╓0НжА'Н °нЯа'·nЯ ■4oнЯа5Ц PRESS ANY KEY TO CONTINUE4╢j╛kзН пН Ж~0Н  ╖j┐koН 5Т Н4p╜бЩН '∙╞`чЯИ52b94mМ█&0нЯа4╢VД&554Б '1АA%)Б$%2b0Н  mА&№                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & Бе10000&-FLAG│0:Бж9900:АI│0е26:НK$:Л&WАI│&H4A00е&H4C0B:НK$:ТI, Й("&H"лK$):Л&nVD│23072:VV│&H4BAC&К╣ Г1│&H4A00::ГCLEAR VID&и╣ Г2│&H4B97::ГHISTOG. MOD&┴╣ Г4│&H4A30::ГSMOOTH&╪╣ Г5│&H4A98::ГEDGE&Є╣ Г6│&H4AF2::ГDISPLAY'╣ Г7│&H7D92::ГHARD COPY'═ЇЮ:З@140,"M E N U":З:З" c CREATE IMAGE":З" d DISPLAY IMAGE":З" n ADD NOISE":З" s SMOOTH IMAGE":З" h HISTOGRAM MOD":З" v SAVE TO DISK":З" e EDGE ENHANCEMENT":З" p PSEUDO-COLOR ENHANCEMENT"(∙З@480,"DURING DISPLAY, PRESS FOR HARD COPY"(И■K$│ Т:ЕK$│""з510:ДЕK$│"C"з1000:ДЕK$│"D"з2000:ДЕK$│"E"з3000:ДЕK$│"N"з4000:ДЕK$│"P"з5000:ДЕK$│"S"з6000:ДЕK$│"H"з7000:ДЕK$│"V"з8000)шЮ:З"CREATE IMAGE":З@128,"0=ERASE IMAGE 1=TEST PATTERN 2=SATURN 3=FROM DISK")8ЄЙK:ИKл1Бе1011,1020,1200,1300,1010)KєX│ Г1(0):Бе500)`ўЗ"WORKING ...":Р)Г№Бж1015:X│ Г1(0)::ГTEST PATTERN)═АIR│8е40:АIC│20е26:ТVDлIRн64лIC,8:ЛIC:АIC│38е44:ТVDлIRн64лIC,8:ЛIC,IR)√АIR│20е28:АIC│27е37:ТVDлIRн64лIC,8:ЛIC,IR*4$АI│0е16:ТVDлI,I:ТVDлIл64,I:ТVDлIл128,I:ТVDлIл192,I:Л*>.Бе500*[░Бж1015:X│ Г1(0)::ГSATURN*б╡П:АJ│0е26:НK$:АI│1е64:Е Р(K$,I,1)│"G"з1248:ДV│ Й("&H"л Р(K$,I,1))*м╨Бе1250*╡рV│16*╩тТVDл639л64нJлI,V*╙ьЛI,J*▌Бе500+Ю:З"LOAD FROM DISK":З"ENTER DISK FILENAME/EXT"+ЙK$+!(╙MK$++2Бе500+;╨╚4,1:┐1,1:╝+H┌X│ Г6(0)+r╩K$│ Т:ЕK$│""з2250:ДЕK$│"H"з2262:Д2260+Б╘┐0,0:Бе500+Э╓┐0,0:ЕFLAG│0з2264:Д2263+░╫X│ Г7(0):Бе500+╫╪FLAG│1:Т150,1:╙M"GSPRP.BIN":Бе2263, ╕Ю:З"EDGE ENHANCEMENT":X│ Г5(0):Бе500,KаЮ:З"ADD NOISE":З"ENTER NUMBER OF PIXELS AFFECTED 1 - 3072",cкЙK:ЕK┤0▒K▓3072з4000,ЩмЗ"ENTER STRENGTH OF NOISE 0 - 16",поЙI:ЕI┤0▒I▓16з4012,■┤З@294,K;:АJ│0е Б(K):З@300,J:R│ Д(3072):A│VDлR:V│ Ж(A):V│Vл Д(I):ЕV▓16зV│16- ├ТA,V:ЛJ-╚Бе500-[И╚1,1:┐1,0:╝:АIR│0е47:АIC│0е63:V│ Б(( Ж(VDлIRн64лIC)л3)о4):ЕV│0зV│1-qТАIR│0е47:АIC│0е63-ЪЧV│ Б(( Ж(VDлIRн64лIC)л3)о4):ЕV│0зV│1-щЬ╜(ICн4,IRн4,V):╜(ICн4л2,IRн4,V):╜(ICн4,IRн4л2,V):╜(ICн4л2,IRн4л2,V):ЛIC,IR.|K$│ Т:ЕK$│""з5500:Д5600.р╚4,1:Бе500.1pЮ:З"9 - POINT SMOOTHING".DzX│ Г4(0):Бе500.рXЮ:З"HISTOGRAM MODIFICATION SELECT MODE: t=THRESHOLD a=ADD CONSTANT c=CUSTOM HISTOGRAM"/&]K$│ Т:ЕK$│""з7005:ДЕK$│"T"№S(T)│S(T)лY:ЕT│0з4096A0■BW│BWлW:BX│BXлX:Бе4098ADAW│AWлW:AX│AXлXARЕJ│1з4105AXРAm J│0:BG│0:F│ Д(5)A{ЕF│3з4140AРЗ"REBOUND TO "D$AмЕD$│A$зAR│ARл1:ДBR│BRл1A╖Бе4160A╤,З"REBOUND TO "O$:RB│1Aэ6ЕA$│O$зAR│ARл1:ДBR│BRл1Aў@Бж9:РBИ:ГCHANGE POSSESSIONBЙS$│ Т:XX│0B,НЕT│0з5020BLТO$│A$:T│0:TT│1:D$│B$:Бе5035BeЬO$│B$:T│1:TT│0:D$│A$BГлCQ│MM:FC│0:S│0:RA│30:DV│0Bг░Бж9:ЕAV┤9▒BV┤9зPC│.5:Бе5060B└║ЕT│0зPC│AVоAU :ДPC│BVоBUB╔─Ю8:РBцpL│( Д(0)н.4)м.2:ЕT з6020B¤uЕIA┤OAлL зG│1:ДG│2C&zЕQB┤DBм.1░S(1)▓S(0) ░S(1)┤S(0)л8зG│2C1Бе6050CHДЕIB┤OBлL зG│1:ДG│2CpЙЕQA┤DAм.1░S(0)▓S(1)░S(0)┤S(1)л8зG│2CБвЕCQмMM▓2зG│1C┤мЕH$┤▓"2ND HALF"░H$┤▓"4TH QTR"░H$┤▓"OVERTIME"зРC▀оЕMM┤5░S(T)▓S(TT)лMM ░S(T)мS(TT)┤20зG│1D ▒Е2нMM┤S(T)мS(TT)м1░8л3нMM▓S(T)мS(TT)зG│3D8╢ЕMM│0░SS┤41░S(T)▓S(TT)░S(T)мS(TT)┤6зG│3D>└РDS╘ЕF┤.6зPN│1:ДPN│2Dh┘Бж6000:ЕG│3зPN│3Dn▐РDШdБж9:L│FF:S$│"":S│0:ЕS(TT)▓S(T)л2з6520D╬eЕH$┤▓"2ND HALF"░H$┤▓"4TH QTR"░H$┤▓"OVERTIME"з6510D■iЕMM┤5зЕS(T)▓S(TT)░S(T)мS(TT)┤MMл3зL│.6:FG│1E0nЕMM│0░S(T)│▓S(TT)░S(T)мS(TT)┤4зL│.75:FG│1:S│3EDxЕOFл.06▓L з6600E[yЕL┤.7зN│L :ДN│Lм.2Ey{ЕOF▓│Nл( Д(0)н(LмN))з6600EЗ}ЕFG з6537EЯВЕRA┤9░ Д(RA)│1з6600E╤ЙЕL│.2з6560:ДЕMM│0░SS┤9зL│.2:Бе6520:ДЕFG з6560FМЕH$┤▓"2ND HALF"░H$┤▓"4TH QTR"░H$┤▓"OVERTIME"з6560F1ЦЕS(TT)мS(T)▓MMн2л2зFG│1:L│Lм.1:Бе6520FBЫЕL▓.599з6580FcаFG│0:ЕRA┤33░GU┤1оG(TT)зS│1:РFЕкЕG(TT)│1░RA┤18зЕ Д(3)│2зS│1:РFЛ┤РFЬ╚S$│" ":S│0:РFмX:ГFOUL TOTEF╝gЕF$│A$з7050F═lFB│FBл1:F│FBF┘qVB│VBл1FёsЗB$" WITH"VB"FOULS"F№vБж7200G xЕF┤▓1з7080G~F│ Д(5)G3АЗ"PLAYER "F" FOULS OUT"GQЕЕF┤3зOB│OBм.05:ДIB│IBм.05GfЗDB│DBм.05:Бе7080GwКFA│FAл1:F│FAGГПVA│VAл1GЬСЗ A$" WITH"VA"FOULS"GзФБж7200G╢ЦЕF┤▓1з7080G┬ЬF│ Д(5)G▐ЮЗ"PLAYER "F" FOULS OUT"G№гЕF┤3зOA│OAм.05:ДIA│IAм.05H еDA│DAм.05HиЕCP▓2з7200H%нБж9:Бж9HL ЕF│20▒F│25▒F│30▒F│35▒F│40зF│1:ДF│0HR"РHМ@Ю3:ЕRA▓29░ Д(5мG(TT))│3зRA│RAл Д(6)м3:GU│ Д(3):Бе8400HзDИG(TT)Бе8200,8010,8300H┴JЕT│0зQ│QA:D│DB:Бе8012H╧KQ│QB:D│DAH▐LЕRA┤9з8020HўNRA│ Д(Dн48)л(Dн16)л1IPЕRA┤17зRA│9л Д(Dн20)IDTЕRA┤14зRA│ Д(Dн18)л Д(Dн18):ЕRA▓16зRA│14:Бе8020I[hЕRA▓19зN│.7:Бе8075IvmЕRA▓16░RA┤20зN│.3:ДN│0IЖЛSS│SSм Д(2)IбдGU│ Д(0)лDл.1мNл(Dм.5)IмоБе8400I═ ЕT│0зQ│QA:D│(DBлQB)о2:Бе8205Iт Q│QB:D│(DAлQA)о2J ЕRA┤10зRA│ Д(14)л(Dн9):Бе8240J! RA│ Д(Dн44)л(Dн13)м(Qн8)JA 0GU│Dл Д(0)м.1л(Dм.5):Бе8400JT lRA│ Д(30):ST│0Jr qЕT зQ│QB:D│DA :ДQ│QA:D│DBJТ vЕRA▓27зRA│ Д(4):GU│0:Бе8400JЯ АGU│ Д(2)J╟ ╨ЕSS┤9░MM│0зSS│SSм1:ДSS│SSм( Д(5)л1)Jє ╒ЕST│1зRA│ Д(19)л20:ST│0:ДЕRA▓35зRA│RAм9K ┌Бж2500:ЕCL зРK ▐S$│ Т:Бж9000K% ▀ЕCC│1з8420KE рWB│RAл Д(20):ЕRA┤16зWB│WBм7K~ фCC│0:ЕWB▓20зЗ"GUARD WITH BALL":ДЗ"BIG MAN WITH BALL"KШ щЕWB▓20░RA┤11зGU│GUл.3Kй ьБж3000:OF│FFKх юЕGU▓1зGU$│"GUARDED":ДЕGU▓.5зGU$│"OPEN":ДGU$│"WIDE OPEN"L °З Б(RAл.5)"FEET AWAY, "GU$L!ЕWB▓20зM│20:ДM│10L?! ЕRA┤M зOF│OFл(MмRAм5)о100:Бе8470LX!OF│OFл(MмRAм5)н2о100Lm!ЕRA┤4зOF│OFлOFо2L!ЕGU▓1зOF│OFо2LР! ЕOF┤.1зOF│.1Lб!%ЕOF▓.9зOF│.9L▒!'ЕWB┤21з8490L╔!(ЕGU▓1░RA┤9зOF│OFм.1Lш!*З:З"PRESS TO SHOOT"M)!+З" (1-7) TO DRIVE":З" (2-8) TO STALL":З" (3-9) TO PASS":ЗM8!,ЕCP│1з8500MK!.ЕCP│2░T│0з8500M]!/Бж6500:Бе8513Mo!4АL│1е(DLн1.5)MВ!>S$│ Т:S│ Й(S$)MФ!@ЕS│3▒S│9з8530Mв!AЕS▓0з8600M│!CЕS$│" "з8540M┬!EЕCP▓2з8525M╒!FЕCP│2░T│1з8525M▄!HЛLMч!IБе8530Mя!MБж9N!RDV│0:ЕGF│1з245N!WЕST│1з510N!\РN%!ШЕS▓5зS│Sм6NG!ЭCC│1:ЕS│1зЗ"DRIVE":Бж9:Бе8620Nd!вЗ"STALL":Бж9:ST│1:Бе8535Ns!мЕGU▓1з8650NТ!└X│(Qн8)м(Dн8)л Д(5)л(RAо8)Nе!╟RA│RAмX:Бе8651N╗!╩RA│RAм Д(2)л Д(2)N╪!╦ЕRA┤8зDV│DVл1:ЕDV▓4з8540N°!╠ЕRA┤3зRA│1л Д(Dн8):GU│GUл.3O/!═GU│GUл(Dо1.7)м( Д(0)н(Qо2)):ЕG(TT)│2░RA┤25зGU│GUлDOV!╬F│ Д(0)н8:ЕF┤(1мD)░G(TT)│1зGU│Dл.2OЖ!╧F│ Д(0):ЕF┤(1мQ)о40зЗ"DOUBLE DRIBBLE":Бе706OЪ!╥ЕF▓1м(Qо40)з675Oк!╘SS│SSм Д(3)O╕!┘Ю3:Бе8410O╨#(ЗO$" WITH THE BALL"Oч#)З"DEFENSE: "Z$(TT)P<#-ЕMM┤E ░CP│4зCP│Z:З"TIME TO SWITCH MODES","PRESS enter TO CONTINUE":ЙJ$:Ю3:Бе9000PG#2Бж2550Pe#PЗA$"--"S(0):ЗB$"--"S(1):ЗPk#dРPЯ%Й"PRINT STATS(Y,N)";Q$:ЕQ$│"N"зК:ДЕQ$┤▓"Y"з9500P╢%&Ю:PR│1:Бж60:M│1087P╩%0АI│3е14:АL│0е31Pщ%:M│Mл1:X│ Ж(M):ЕX▓95зX│Xм64P·%DЕX┤32зX│Xл64Q%NЗ#м2, Л(X);:ЛL:З#м2, Л(13);:ЛIQ=%XАL│0е9:З#м2, Л(13):Л:Бе95002Бж2550Pe#PЗA$"--"S(0):ЗB$"--"S(1):ЗPk#dРPЯ%Й"PRINT STATS(Y,N)";Q$:ЕQ$│"N"зК:ДЕQ$┤▓"Y"з9500P╢%&Ю:PR│1:Бж60:M│1087P╩%0АI│3е14:АL│0е31Pщ%:M│Mл1:X│ Ж(M):ЕX▓95зX│Xм64P·%DЕX┤32зX│Xл64Q%N                                                                                                                                                                                                                                                                ╚J$│ Т:G│ Й(J$)/╦ЕT з207/1═G│Gм6:ЕJ$│"0"зG│4/B╧ЕG▓0░G┤5з225/I╥ЛL/S╫Бе230/lсG(TT)│G:Z$(TT)│Y$(G)/ИцИG(TT)Бе500,500,245,400/еїF│ Д(7):GF│1:SS│SSм Д(2)/─·ИF Бе640,640,640,700:Бе500/▀РЗD$" INTENTIONAL FOUL"/єТK│2:SS│SSм Д(2)/¤ФБе6190Ї:ГOFFENSE RESULTS0R∙З"PASS":Бж9:D│G(TT):ЕDV▓4зЗ"3-SECOND CALL":BG│1:DV│0:Бе7060`■ЕXX│0з5200ЧF│ Д(0):ЕT зQ│(QAмQBл.5)о(4нD):ДQ│(QBмQAл.5)о(4нD)0еЕF┤Q з7000║ЕF┤Qл(.01оD)з6750╧ЕF┤Qл(.03оD)з6400шK│0:Бж2500:ЕCL│1з9300ё RB│01XX│XXл1:ЕXX▓4░(RA▓25▒MM│0)з1801#ЕST│1з800010ЕS│1з5381DБж8000:ЕCL з9301UЕS$┤▓" "з5051{S│0:H│ Д(10):F│ Д(0):З"SHOOT":Бж91ЭЕPC▓.6зF│Fл.2:ДЕPC┤.35зF│Fм.21мЕF▓OF з5421╛ЕH│1з590:Д5751╦ЕH│1з6151тF│ Д(0):ЕF┤.06з7901Ў"ЕT зR│BB :ДR│BA2&G│.4л(Rн.1):F│ Д(0)2*ЕF┤G з7202&,Бе8002/?:ГBG27@S│02PAS(T)│S(T)л2:ЕT│0з5812jCBU│BUл1:BV│BVл1:Бе5832~EAU│AUл1:AV│AVл12ЮGBG│1:З "BASKET GOOD":а150,22иKБе8702╖N:ГBG, FOUL2╨PS(T)│S(T)л2:ЕT│0з5962ЄRBU│BUл1:BV│BVл1:AF│AFл1:Бе5983TAU│AUл1:AV│AVл1:BF│BFл136VЗ"BASKET GOOD, FOUL ON SHOT":а150,43GXF$│D$:Бж70003V\K│1:Бж40003d^ЕRB│1з5203nbБе8723}g:ГNG, FOUL3ЮjЗ"SHOT MISSED, FOUL ON SHOT"3║kЕO$│A$зBF│BFл1:ДAF│AFл13╦oF$│D$:Бж70003┌sK│2:Бж40003шuЕRB│1з5203ЄyБе8724А:ГDEF FOUL4БGF│0:S│0:SS│SSм142ГБж2500:ЕCL з930:ДБж25504RДЗ"DEFENSE FOUL BEFORE SHOT"4gЖF$│D$:Бж7000:Бж94tИЕT│0з6544АКAF│AFл14ЧМЕVA▓4лN1 з663:Д6604гОBF│BFл14╡РЕVB▓4лN1 з6634сФЗO$" BALL OUT OF BOUNDS":TN│0:ЕCP▓2з6624эХБж9:Бж94ўЦБе1805ЧK│3:Бж40005ШЕRB┤▓1з8725$ЪRB│0:Бе73753г:ГOFF FOUL5IеЗ"OFFENSIVE FOUL"5RжBG│15cйF$│O$:Бж70005rлЕO$│A$з6875ДнBF│BFл1:Бе8705ЦпAF│AFл1:Бе8705Я╝:ГTO5╫└Е Д(2)│1зЗ"BAD PASS":BG│ Д(2)м1::ДЗ"TRAVELING":BG│15ё┬ЕT│0зAT│ATл1:ДBT│BTл15√╞Бе8706 ╨:ГNG,OFF RB6$╤ЕT зBU│BUл1:ДAU│AUл16:╥F│ Д(0):ЕF┤.1з8256W╒З"SHOT MISSED, RB TO "O$6_▀Бж96pсF│ Д(0):RB│06фЕF▓.25з7706гцF│ Д(0):SS│SSм1:Бж2500:ЕCL з9306╕шЗ "RB TIPPED UP"6╞ъЕF┤.6з7606╥ьF│ Д(0)6рэЕF▓.6з7256ъЁБе8046Ї°Бе5777ЕT│0зAR│ARл1:ДBR│BRл17$F│ Д(0):ЕF▓.9з7807@SS│SSм1:Бж2500:ЕCL з9307ZRA│ Д(4):GU│ Д(2):Бж97h Ю3:Бж84007x ЕS$│" "з5387И SS│SSм Д(3)7РБж97ЪБе5207╩З"SHOT MISSED":З"RB OUT OF BOUNDS TO ";:Бж97фЕT│0зAU│AUл1:ДBU│BUл17∙F│ Д(2):ЕF│2з7968ЗD$:BG│1:Бж9:Бе8708"ЗO$:Бж9:Бе18082 :ГNG,DEF RB8K!ЕT зBU│BUл1:ДAU│AUл18a"F│ Д(0):ЕF┤.1з8258Г$З"SHOT MISSED, REBOUND TO "D$8к&F│ Д(0):ЕT зAR│ARл1:Бе814:ДBR│BRл18─,ЕF┤1л(.4мQB)з870:Д8188┘.ЕF┤1л(.4мQA)з8708ъ2Бж5000:Бе85099З"SHOT MISSED, FOUL ON REBOUND"9>>F│ Д(2):ЕF│1з646:ДБж9:Бж9:Бж5000:BG│1:Бе6469LR:ГFAST BK9`SS│1:SS│SSм Д(4)9yTЗO$" FAST BREAK":Бж99ОVБж2500:ЕCL│1з9309пXF│ Д(0):OF│.7:ЕF┤.3з575:Д5009╜f:ГWRAP-UP9╚hБж50009шpSS│SSм Д(2):Бж2500:ЕCL з9309єuБж9000:xАN│1е3:Бж9:Л:zЕRB з180:ШЕTN│1з660:4ЭЕBG│1з1000:Д1170:^вЗ"TIME RUNS OUT":CL│0:АL│1е6:а140,8:Л:oгЕLV$│"H"з950:ЗдЕH$┤▓"1ST HALF"з936:ЮжH$│"HALFTIME":Бе44:▓иЕS(0)┤▓S(1)з940:╬кH$│"OVERTIME":MM│5:Бе44:тмH$│"FINAL":Бе44;O╢ЕH$│"1ST QTR"зH$│"2ND QTR":Бе975:ДЕH$│"2ND QTR"зH$│"HALF":VA│0:VB│0:Бе975:ДЕH$│"HALF"зH$│"4TH QTR":Бе975;c└ЕS(0)┤▓S(1)з970;┼H$│"OVERTIME":MM│3:Бе44;У╩H$│"FINAL":Бе44;б╧MM│8:Бе44;нч:ГPRESS;╛шBG│0:F│ Д(0)<щЗD$д11)"FALL BACK(1-7)":Зд11)"PRESS(2-8)":Зд11)"GO FOR BALL(3-9)":Зд11)"OR FOUL(4-0)"<+ъЕCP│2░T│1з1004ЬЗO$" ACROSS CENTER LINE">!жБе180>, ─:ГTIME>B ╬ЕMM┤│0░SS┤│0з2530>Q ╙ЕSS┤0з2525>\ ╪Бе2535>x ▌MM│MMм1:SS│SSл60:Бе2535>Л тMM│0:SS│0:CL│1>С чР>┼ ЎЗ" ";:ЕSS▓9зЗ═"##:##";MM,SS :ДЗ═"##:0#";MM,SS>╦ Р>┘ ╕ЕT│1з3020>Є ┬ЕWB▓20зFF│OA :ДFF│IA>¤ ╟Бе3030? ╠ЕWB▓20зFF│OB :ДFF│IB?4 ╓BA│(IAм((IBлIBлDB)о3))н10?R рBB│(IBм((IAлIAлDA)о3))н10?X ъР?jа:ГFREE THROWS?╥бJ$│ Т:З"SEE sTATS OR SHOOT fREE THROWS":АL│1е150:F│ Д(0):J$│ Т:ЕJ$│"S"з4003:ДЕJ$│"F"з4004:ДЛ:Бе4004?▌гЗ:Бж69?эдБж9:F│ Д(0)?¤еW│1:X│0:Y│0@ ╖ЕF▓.75з4029@-╣З:З"FREE THROW GOOD":а200,1@P╗X│1:Y│1:BG│1:Е K┤▓1з4040:Д4092@i╜З"FREE THROW MISSED"@x┐ЕK┤▓2з4090@И╚F│ Д(0):W│2@Ш╨ЕF▓.75з4054@║╥З"2ND FREE THROW GOOD":а200,1@╓╘X│Xл1:Y│Yл1:BG│1:Бе4092@є╓З"2ND FREE THROW MISSED"@√·J│1A %":Бе10008.РjЗ:З"FILE NAME IS 'INITSTAT'";7dЄБж1:ИI Бе100,1020,200,900,950,300,800:Бе10007m№PL│17СЕNA$(PL)│""з110:ДPL│PLл1:Бе10308┌Х2000:МNA$(18),CR(18,18),CM(18,18),GM(18,18),OG(18),OP(18),GR(4),RB(5),OD(18),TM(18,18),TR(18,18):FT$│"%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  +>&Ю:Г2-27-83&cЗд10)"BASKETBALL":Зд7)"BY GARY L.CARTER":В 1710 WILDWOOD, BLOOMINGTON IL 61701&ЪЙ"hIGH SCHOOL OR cOLLEGE";LV$:ЕLV$┤▓"H"░LV$┤▓"C"з3&мЕLV$│"C"зN1│2' МG(1),S(1),Z$(1),Y$(4):G(0)│2:G(1)│2:DL│100:Y$(1)│"MAN":Y$(2)│"ZONE":Y$(3)│"GO FOR BALL"'/Ю:ЕLV$│"H"зMM│8:H$│"1ST QTR":Бе26'LMM│20:H$│"1ST HALF":Бе26'X АL│1еDL'Ь Q$│ Т:ЕQ$│""з11:ДЕQ$│ Л(10)зDL│DLл9:ДЕQ$│"^"зDL│DLм9:ЕDL┤1зDL│1'д Л:Р'с З"WILL YOU:":З"COACH BOTH TEAMS(1)":З"COACH VS. COCO(2)"(.З"LET COCO PLAY(3)":Й"OR LET COCO PLAY UNTIL FINAL FEW MINUTES(4)";CP(ИЕCP│1зЗA$" USES THE 1-4 KEYS;",B$" USES THE 7-0 KEYS.","PUSH WHEN READY":╗ЙQ$(┬ЕCP│4зЙ"HOW MANY MINUTES";E:Й"SWITCH TO WHICH MODE";Z(щЕCP│2зЗ"YOU ARE "A$,"USE KEYS 1-4")>З:З"USE THE ARROW KEYS TO SPEED up OR SLOW down THE PROGRAM":АX│1е4:Бж9:Л:Бе155)]Й"FIRST TEAM'S NAME IS";A$)АЙ"OUTSIDE SHOOTING (.3-.7)";OA)вЙ"INSIDE STRENGTH (.3-.7)";IA)╝Й"DEFENSE (.3-.7)";DA)╪ Й"QUICKNESS (.3-.7)";QA)ї!Й"cHANGES";Q$:ЕQ$│"C"з26*#Й"NEXT TEAM'S NAME IS";B$*6$Й"OUTSIDE SHOOTING (.3-.7)";OB*X%Й"INSIDE STRENGTH (.3-.7)";IB*r&Й"DEFENSE (.3-.7)";DB*О'Й"QUICKNESS (.3-.7)";QB*л(Й"cHANGES";Q$:ЕQ$│"C"з35*┴*Е З(A$)┤ З(B$)з45*╫+Е З(B$)┤ З(A$)з46*у,Ю5:Бе50*Ў-A$│" "лA$:Бе42+ .B$│" "лB$:Бе43+!2Е О(H$,3)┤▓"1ST"з55+04AA$│A$л"-"+?5BB$│B$л"-"+H6Бе58+a7AA$│AA$л"-"л И(S(0))+z8BB$│BB$л"-"л И(S(1))+Й:Бж60:Бе120+Ь<Бж2550:З@22,H$+й@З@64,AA$+▓BЗBB$+╥EЗд16м З(A$))A$д27м З(B$))B$+ъFЗ"FGA"д14)AU д23)BU,HЗ"FG"д14)AV д23)BV,JЗ"FTA"д14)AW д23)BW,0LЗ"FT"д14)AX д23)BX,GNЗ"RB"д14)AR д23)BR,aPЗ"FOULS"д14)AF д23)BF,sRЕAU│0▒BU│0з92,КUЗ"TO"д14)AT д23)BT,╖ZЗ"FG PCT"д13);:З═".### ";AVоAU,BVоBU,╩\ЕAW│0░BW│0з101,╫^ЕAW│0з98,ц_Е BW│0з100-`З"FT PCT"д13);:З═".### ";AXоAW,BXоBW:Бе101-AbЗ"FT PCT"д22);:З═".###";BXоBW:Бе101-cdЗ"FT PCT"д13);:З═".###";AXоAW-АeЕPR зР:ДЕH$│"FINAL"з9500-бfЗ"PRESS ANY KEY TO CONTINUE"-╛hF│ Д(0):J$│ Т:ЕJ$│""з104-─iР-▄xЕH$┤▓"HALFTIME"з145-ЇyH$│"2ND HALF":MM│20.zVA│0:VB│0. СЮ:Бе12.ЫF│ Д(0).'аЕF┤.5зT│1.9бБж5000:Бж9000.J┤Бж9:ГDEF OPT._╖ЕG(TT)▓2зG(TT)│2.v╣K│0:GF│0:XX│0:RB│0.╗╛З:ЗD$" MAN(1-7), ZONE(2-8),":З" GO FOR BALL(3-9), OR FOUL(4-0)".╔┐ЕCP│1з195.█└ЕCP│2░T│1з195.ь┴Бж6000:Бе225.№├АL│1е(DLн2)/ /&gБе2010:Г BSKBINIT - A FILE INITIALIZATION UTILITY (C) COPYRIGHT 1983 RICHARD A. WHITE&ЖI$│ Т:ЕI$│""з1:ДI│ Й(I$):Р&в З@64,"";:З═FT$;"1 G";:Р&┐ З@80,"";:З═FT$;"2 GS";:Р&╘ З═FT$;"3 MIN";:Р&шЗ═FT$;"4 FG";:Р'З@144,"";:З═FT$;"5 FGA";:Р'З═FT$;"6 3PT FG";:Р'AЗ@176,"";:З═FT$;"7 3PTFGA";:Р'UЗ═FT$;"8 FT";:Р'tЗ@208,"";:З═FT$;"9 FTA";:Р'КЗ═FT$;"10 REB";:Р'бЗ═FT$;"11 ASST";:Р'╢З═FT$;"12 PF";:Р'╫З@304,"";:З═FT$;"13 DISQ";:Р'ЁЗ═FT$;"14 STEALS";:Р(З@336,"";:З═FT$;"15 BLOCKS";:Р(-З═FT$;"16 TRNOVRS";:Р(OЗ@368,"";:З═FT$;"17 DUNKS";:Р(╜Бж11:ЗCR(PL,1):Бж12:ЗCR(PL,2):Бж13:ЗCR(PL,3):Бж14:ЗCR(PL,4): Бж15:ЗCR(PL,5):Бж16:ЗCR(PL,6):Бж17:ЗCR(PL,7))Бж18:ЗCR(PL,8):Бж19:ЗCR(PL,9):Бж20:ЗCR(PL,10):Бж21:ЗCR(PL,11):Бж22:ЗCR(PL,12):Бж23:ЗCR(PL,13))e Бж24:ЗCR(PL,14):Бж25:ЗCR(PL,15):Бж26:ЗCR(PL,16):Бж27:ЗCR(PL,17):Р)ч#З:З"PREPARE RECORDER AND TAPE","PRESS ANY KEY WHEN READY":Бж1:З:З"WANT TO RUN PAST LEADER? Y/N":Бж1:ЕI$│"Y"зЯИ:АK│1е6000:Л:Як)э$Р*:dPL│1:Ю:З:Й"TEAM NAME- 8 CHARACTERS MAX. ";SC$:Е З(SC$)▓8зSC$│ О(SC$,8)*┴nЮ:З@6,"INITIALIZE PLAYERS":З"PLAYER NAME .............":З@45,"";:╗ЙNA$(PL):Е З(NA$(PL))▓13зNA$(PL)│LEFY$(NA$(PL),13):З@45,NA$(PL)+xБж11:ЙCR(PL,1):Бж12:ЙCR(PL,2):Бж13:ЙCR(PL,3):Бж14:ЙCR(PL,4)+2ВБж15:ЙCR(PL,5):Бж16:ЙCR(PL,6):Бж17:ЙCR(PL,7)+dМБж18:ЙCR(PL,8):Бж19:ЙCR(PL,9):Бж20:ЙCR(PL,10)+ШЦБж21:ЙCR(PL,11):Бж22:ЙCR(PL,12):Бж23:ЙCR(PL,13)+▄аБж24:ЙCR(PL,14):Бж25:ЙCR(PL,15):Бж26:ЙCR(PL,16):Бж27:ЙCR(PL,17),-┤З Л(94)" FOR MENU enter NEXT PLAYER";:Бж1:ЕI$│ Л(94)з1000:ДPL│PLл1:Бе110,╤╚Ю:Зд8)"PLAYERS IN FILE":PA│32:АX│1е18:З@PA,═"##";X;:З" "NA$(X);:PA│PAл16:Л:PA│PAл32:З@PA,"ENTER # OF PLAYER TO REVIEW/EDIT" Л(94)" FOR MAIN MENU";:ЙI$:I│ Й(I$),Ї╥ЕI$│ Л(94)з1000:ДЕI┤1▒I▓18з200-'▄PL│I:Ю:З@6,"REVIEW CAREER STATS"::З@32,NA$(PL)-ецБж30:З:З"ENTRY # TO CHANGE " Л(94)" WHEN DONEENTER 'N' FOR NAME";:ЙI$:ЕI$│ Л(94)з200:ДI│ Й(I$):Е(I┤0▒I▓17)░I$┤▓"N"з220.DЁЗ@416,"":З:ЕI$│"N"зЗ@416,"PLAYER NAME .............":З@429,"";:╗ЙNA$(PL):Е З(NA$(PL))▓13зNA$(PL)│LEFY$(NA$(PL),13):З@48,NA$(PL):Бе230:ДЗ@48,NA$(PL):Бе230.{·З@416,"ENTER NEW VALUE FOR ENTRY"I:ЙCR(PL,I):Бе230/a,Ю:З@8,"caution caution","THIS ROUTINE WILL ZERO OUT THE CURRSTAT FILE EXCEPT FOR CAREER DATA. TO PRESERVE LAST YEAR'S RECORDS, MAKE A BACKUP DISK, PLACE LAST YEARS DISK ON FILE AND BEGIN THIS YEAR ON THE NEW DISK.":З/з.З:З"DO YOU WANT TO QUIT THIS ROUTINENOW TO MAKE BACKUP DISK? Y/N"/╟0Бж1:ЕI$│"Y"зК:ДЕI$┤▓"N"з3040z1Ю:Зд8)"PLAYERS IN FILE":PA│32:АX│1е18:З@PA,"";:З═"##";X;:З" "NA$(X);:PA│PAл16:Л:PA│PAл32:З@PA,"ENTER # OF PLAYER TO DELETE", Л(94)" CLEAR FILES &GOTO MAIN MENU";:ЙI$:I│ Й(I$)0а6K│I:ЕI$│ Л(94)з350:ДЕI┤1▒I▓18з3000╟;З@416,"":З:З@416,"DELETING "NA$(I)0х@ЕNA$(Kл1)┤▓""зK│Kл1:Бе3201EJАX│I еKм1:NA$(X)│NA$(Xл1):АY│1е18:CR(X,Y)│CR(Xл1,Y):Л:Л:NA$(K)│"":АY│1е18:CR(K,Y)│0:Л:Бе3001З^АK│1е18:АL│1е18:CM(K,L)│0:Л:OP(K)│0:Л:АK│1е5:RB(K)│0:Л:Бе10001╥ Ю:З@162,"sorting":PL│1:АX│0е18:АY│0е18:TM(X,Y)│0:TR(X,Y)│0:Л:OD(X)│X:Л2*L1│ З(NA$(PL)):L2│ З(NA$(PLл1)):ЕL2│0зЕFL│1зPL│1:FL│0:Бе810:Д8402ж4Е П(NA$(PL),L1м3)▓ П(NA$(PLл1),L2м3)з830:ДЕ П(NA$(PL),L1м3)┤ П(NA$(PLл1),L2м3)зPL│PLл1:Бе810:ДЕ О(NA$(PL),1)┤ О(NA$(PLл1),1)зPL│PLл1:Бе8103>FL│1:TP$│NA$(PL):NA$(PL)│NA$(PLл1):NA$(PLл1)│TP$:TP│OD(PL):OD(PL)│OD(PLл1):OD(PLл1)│TP:PL│PLл1:Бе8103КHАX│0е18:АY│0е18:TM(X,Y)│CM(OD(X),Y):TR(X,Y)│CR(OD(X),Y):Л:Л:АX│0е18:АY│0е18:CM(X,Y)│TM(X,Y):CR(X,Y)│TR(X,Y):Л:Л:Бе10003┐ДЮ:З:З"SAVE TO 1 TAPE OR 2 DISK":Бж1:ЕI┤1▒I▓2з9003╓ОD│1:ЕI│1зD│м1:Бж354SШЩ"O",#D,"CURRSTAT":З#D,DC$:З#D,SC$:АK│0е18:З#D,NA$(K):АL│0е18:З#D,CR(K,L):З#D,CM(K,L):Л:З#D,OP(K):Л:АK│1е5:З#D,RB(K):Л:Ъ4╗вЕDT$┤▓""зЩ"O",#D,DT$:З#D,OP$:З#D,DT$:АK│1е18:АL│1е18:З#D,GM(K,L):Л:З#D,OG(K):Л:АK│1е4:З#D,GR(K):Л:Ъ4тмЕI│1зI│0:ЯИ:АK│1е600:Л:Бе920:Д10005╢Ю:З:З"LOAD FROM 1 TAPE OR 2 DISK":Бж1:ЕI┤1▒I▓2з9505+└D│1:ЕI│1зD│м15h┼З:З"PREPARE DISK OR TAPE","PRESS ANY KEY WHEN READY":Бж15х╩Щ"I",#D,"CURRSTAT":Й#D,DC$:Й#1,SC$:АK│0е18:Й#D,NA$(K):АL│0е18:Й#D,CR(K,L):Й#D,CM(K,L):Л:Й#D,OP(K):Л:АK│1е5:Й#D,RB(K):Л:Ъ6L╘ЕDT$┤▓""зЩ"I",#D,DT$:Й#D,OP$:Й#D,DT$:АK│1е18:АL│1е18:Й#D,GM(K,L):Л:Й#D,G(K):Л:АK│1е4:Й#D,GR(K):Л:Ъ6єшЮ:З@10,"MAIN MENU":З:З" 1 START NEW CAREER STATS FILE":З:З" 2 ADD PLAYERS TO EXISTING FILE":З:З" 3 EDIT/CORRECT EXISTING FILE":З:З" 4 SAVE FILE":З:З" 5 LOAD FILE"73ъЗ:З" 6 UPDATE TO START NEW YEAR":З:З" 7 ALPHABETICAL SORT";7dЄБж1:ИI Бе100,1020,200,900,950,300,800:Бе10007m№PL│17СЕNA$(PL)│""з110:ДPL│PLл1:Бе10308┌Х2000:МNA$(18),CR(18,18),CM(18,18),GM(18,18),OG(18),OP(18),GR(4),RB(5),OD(18),TM(18,18),TR(18,18):FT$│"%  1&%:Гfamily tree - D. SEABERG 1983&1 └1:Х500&7Ю&T:Гtwo who started it all&x(Ж 1,CHARLIE HATFIELD 1883-1955&Ш2Ж 2,ELLIE MC COY 1887-1962&▒<:Гtheir wedding year&╛FЖ 3,1906&╘P:Гtheir offspring&ЁZЖ 4,ELLIE MAE,1909-1975'dЖ 4,JIMMY,1911-1918'nЖ 4,DORA,1913'1xЖ 4,BILLY BOB,1915'FВЖ 4,SUE ANN,1917'bМЖ 4,ORVILLE(JIMMY),1919'vЦЖ 4,WILBUR,1921'ОаЖ 4,LEROY,1923-1977'дкЖ 4,JERIMIAH,1926'╗┤Ж 4,BILLY JOE,1928'╒╛:Г***eleven child max'Ў╚:Г****add data as follows to(╥:Г****reach max else repeat(8▄:Г****codes 1&2 to exceed max(BцЖ 4,,(XЁ:Гsecd generation(s·Ж 5,ELLIE MAE HATFIELD(ЙЖ 6,DRUFUS PARTON(ЦЖ 3,1930(иЖ 4,CLEM,1932(└"Ж 4,LORRIE MAE,1935(╒,Ж 4,BELINDA,1939(щ6Ж 4,DOLLIE,1946( @:Гthrd generation)JЖ 5,CLEM PARTON)-TЖ 6,PRICILLA VAN DYKE)Y^Ж 8,**ELLIE MAE & DRUFUS PARTON***,1965)phЖ 4,BECKY MAE,1966)Иr:Гfourth generation)б|Ж 5,BECKY MAE PARTON)╝ЖЖ 6,CHIG-NUK STRONGBOW)шРЖ 8,****PRICILLA & CLEM PARTON****,1983*ЪЖ 4,TONTO BILLY,1983*дЖ 5,LORRIE MAE PARTON *5оЖ 6,HYMAN ABROMOWITZ*a╕Ж 8,**ELLIE MAE & DRUFUS PARTON***,1953*u┬Ж 4,IRVING,1953*М╠Ж 4,ZELDA MAE,1956*д╓Ж 4,MORRIS BOB,1958*╝рЖ 4,SAMUAL LEE,1959*╥ъЖ 5,DOLLIE PARTON*ъЇЖ 6,PATRICK O'BRIEN+■Ж 8,**ELLIE MAE & DRUFUS PARTON***,1968+-Ж 4,SHAWN BOB,1968+CЖ 5,DORA HATFIELD+[Ж 6,PASQUALE CAPONE+l&Ж 8,BLK,1941+З0Ж 4,CARMILINA MAE,1942+Я:Ж 4,ROCCO EARL,1951+╝DЖ 5,CARMILINA MAE CAPONE+╥NЖ 6,JESUS CAVARRO+¤XЖ 8,****DORA & PASQUALE CAPONE***,1960,bЖ 4,BILLY JESUS,1962,.lЖ 4,BOBBY JUAN,1963,IvЖ 4,BELINDA ANGEL,1966,cАЖ 5,ROCCO EARL CAPONE,wКЖ 6,TRIXIE GLIK,ДФЖ 3,1980,ЯЮЖ 5,BILLY BOB HATFIELD,┤иЖ 6,PAM ZYZCKSKI,┼▓Ж 8,BLK,1947,▄╝Ж 4,LAURA ANN,1948,є╞Ж 4,LAURA LEE,1950- ╨Ж 4,LAURA BOB,1950-!┌Ж 4,LAURA MAE,1952-9фЖ 4,LAURA STAN,1953-SюЖ 4,LAURA BILLIE,1954-l°Ж 5,SUE ANN HATFIELD-ГЖ 6,SVEN OLSEN SR-Ф Ж 8,BLK,1940-нЖ 5,SUE ANN HATFIELD-─ Ж 6,SVEN OLSEN JR-╒*Ж 8,BLK,1940-ь4Ж 4,ELMER JOE,1941.>Ж 4,GRETA MAE,1942.HЖ 4,AXEL BERT,1946-1976.7RЖ 5,ELMER JOE OLSEN.M\Ж 6,CARRIE MC COY.yfЖ 8,*****SUE ANN & SVEN OLSEN*****,1963.ЛpЖ 4,CORA,1965.ЭzЖ 4,NORA,1966.╡ДЖ 5,GRETA MAE OLSEN.═ОЖ 6,ABDUL JEFFERSON.┌ШЖ 3,1964.ЄвЖ 4,THELMA RAE,1965/ мЖ 4,WESLEY LEE,1967/+╢Ж 5,ORVILLE (JAMES) HATFIELD/I└Ж 6,GERLINDA VON EICHMANN/Z╩Ж 8,BLK,1941/t╘Ж 4,GERTRUDE ANN,1941/Л▐Ж 4,FRITZ BOB,1944/йшЖ 5,GERTRUDE ANN HATFIELD/┴ЄЖ 6,FRANCOIS DUPUIS/ь№Ж 8,*ORVILLE & GERLINDA HATFIELD*,19620Ж 4,CYNTHIA EMMA,19630 Ж 4,CHERYL ELLIE,196509Ж 4,RICHARD JIM,19690T$Ж 5,FRITZ BOB HATFIELD0k.Ж 6,SING LING KWAN0x8Ж 3,19680ТBЖ 4,SHENG HO BOB,19750кLЖ 5,WILBUR HATFIELD0┬VЖ 6,BRUCE BOYINGTON0╙`Ж 8,BLK,19420эjЖ 5,JERIMIAH HATFIELD1tЖ 6,CARLOTTA RODRIGUIS1~Ж 3,19511*ИЖ 4,JOSE JO,19571CТЖ 4,CARMINE RAE,19581]ЬЖ 4,CHIQUITA MAE,19601xжЖ 5,BILLY JOE HATFIELD1У░Ж 6,BILLIE JO HATFIELD1а║Ж 3,19541╖─Ж 4,JOEY BILL,19671╓╬:Гnext data must be at end1т╪Ж 9,END1°т:Гgraphic strings2+ьX$│ б(32,191):S$│ б(8,191):X1$│S$л б(16,32)лS$2aЎZ$│ О(X$,11)л Л(128)л"children"л Л(128)л О(X$,11)2uU$│ б(9,143л32)2Ж T$│ б(8,207)2ШW$│ б(14,140)2╕R$│ О(V$,30):X4$│ б(16,128)2╔(V$│ б(31,32)2ц2:Гgo print flag or crest2ё<Бж17203F:Гmain program3PНA:НA$3FZИ A Бе1380,1510,1510,1550,1390,1390,1650,1680,16003ZdЮ:Бж1610:Бе14003lnБж1800:Бж16103wxНA:НB$3ДВЗ@160,X$3дМЗ@256,X$;:X│ З(A$):Y│ З(B$)3░ЦАV│1е X3└аC$│ П(A$,V)3╨кЗ@193,C$:ЛV3▄┤АV│1е Y3ь╛C$│ О(B$,V)3■╚З@255мV,C$:ЛV4╥АT│1е300:ЛT:B│A4▄Бе13604~цЗ@256,X1$:З@264,X4$;:З@265,"married";:Т1297,45:АX│1е4:X3$│ Р(A$,X,1):Т(1298лX), Й(X3$)л48:ЛX4СЁЗ@287, Л(191);4Ь·Бж18004зБе13604╙ЕB┤▓4 з З@256,Z$;:Зд1)W$; Л(136):Бе15704сЗд31)" ";5"НD$:ЕD$│""з 1580:ДЗд1) Л(132); Л(140);" ";A$;:Зд21)D$;5$,B│A5/6Бе13605H@Бж1800:П:BB│0:Бе13405jJBB│BBл1:ЕBB│2 з 1620:Д Бе16305БTЗ@96,X$;:З@128,V$;5Щ^З@192,V$;:З@224,V$;5║hЗ@288,V$;:АT│1е6:З:ЛT:ЗV$;:Р5█r:Гspare for special uses (7)5с|Р5 Ж:Гif 'blk' then prt blank6РЕA$│"BLK" з A$│R$6"ЪЗ@129,A$61дНA$:Бе15106Rо:Гoptional flag or fmly name6f╕Ю0:АT│68е356й326А┬З@35, Л(229); Л(239);6Ъ╠З@T, Л(234);S$;U$;T$;6б╓ЛT6╛рЗ@202,"H A T F I E L D";6ўъЗ@111,"T H E";:З@300,"F A M I L Y";:З@334,"T R E E";7 ЇАT│388е484й327■З@T, Л(234);:ЛT70АT│1е3000:ЛT:РRо:Гoptional flag or fmly name6f╕Ю0:АT│68е356й326А┬З@35, Л(229); Л(239);6Ъ╠З@T, Л(234);S$;U$;T$;6б╓ЛT6╛рЗ@202,"H A T F I E L D";6ўъЗ@111,"T H E";:З@300,"F A M I L Y";:З@334,"T R E E";7 ЇАT│GET A CHUNK OF GOLD, YOUR SCORE WILL INCREASE BY THE NUMBER CAVERN YOU ARE IN. FOR EXAMPLE, IF YOU GET A CHUNK IN CAVERN 8, YOU ARE AWARDED 8 POINTS. "0Ж "WHEN YOU GET TO THE EGG-SHAPED CAVERN WHERE THE ARTIFACT LIES, THERE WILL BE HORDES OF CREATURES. "0┬Ж "TO GET THE ARTIFACT, USE THE SAME METHOD AS YOU USE TO GET THE GOLD. IF YOU DO GET THE ARTIFACT, YOU WILL BE AWARDED 500 POINTS AND YOU WILL BE INSTANTLY TELEPORTED BACK TO YOUR LAND. "1-"Ж "IF YOU DO NOT GET IT, YOU WILL DIE BECAUSE YOUR COPTER WILL CONTINUE INTO THE WALL OF THE CAVERN. "1@,Ж "good luck "1N6Ж "ZZZZZ"1БЛА Z│290 е 356 й 32:З@Z, б(28,143л16н(CLм1));:Л1НРCN│CNл11ЦЪ┐0,01╖дЗ@266,;:З ═"CAVERN ####";CN;1╪оЗ@330,;:З ═"SCORE #####";SC;1ю│S│Sм2:Е S┤8 з 9001∙╕╝:┴4,12┬╗(0,0)м(0, Д(10)л5),╜2'╠А Z│S е 255 й S27╓A│ Д(AS)л102Nр╗м(ZмS, Д(10)л5),╜2`ъ╗м(ZмSо2,A),╜2fЇЛ2К■╗м(255, Д(10)л5),╜:├(128,0),4,42и╗(0,191)м(0, Д(10)л175),╜2╝А Z│S е 255 й S2═A│ Д(AS)л1002ц&╗м(ZмS, Д(10)л175),╜2°0╗м(ZмSо2,A),╜2■:Л3D╗м(255, Д(10)л175),╜3*N├(128,191),4,43;XА Z│1 е CNн23jbЕ  Д(2)│1 з Y│ Д(GL)л15 :Д Y│ Д(GL)л175мGL3Бl┬( Д(256)м1,Y),3,23ЗvЛ3РА┐1,03бКY│90:X│мXSл23╣ФX│Xл6:Е X▓236 з 4003╔ЭDUMMY│ Н(0)3чЮY│Yл(( Б( Н(1)о10))м3)нJS4и┼(X,Y)м(Xл16,Yл7),C,╜4]▓Е  Д(DR)│1 ░ X┤170 з XL│ Д(36)лXл40:YL│Yл2:┼(XL,YL)м(XLл8,YLл6),DD,╜:╔"O4T255V31BDAEGF"4┘╝Е  а(Xл18,Y)│4 ▒  а(Xл18,Yл8)│4 ▒  а(Xл4,Yм1)│4 ▒  а(Xл8,Yм1)│4 ▒  а(Xл12,Yм1)│4 ▒  а(Xл6,Yл8)│4 ▒  а(Xл12,Yл8)│4 з 7705╞А V│0 е 8:Е  а(Xл20,YлV)┤▓2 з Л V:Бе7525-╨А Z│1 е 8 й2:┬(Xл20,YлV),Z,2:Л:┐1,15Е┌╔ "T200O3V5;1;V7;2;V9;3;V11;4;V13;5;V15;6;V17;7;V19;8;V21;9;V24;10;V29;11;V31O4CCC"5нф┐1,0:А Z│1 е 8 й2:┬(Xл20,YлV),Z,1:Л5╤юSC│SCлCN:Е CN│500 з Бж960:Бе8506*ЁLA│ Ж(65280):Е F│3 ▒ (LA┤▓254 ░ LA┤▓126) з 760 :Д F│Fл1:А Z│1 е 3:╔"T100O1V21CO5D":Л6AёА Z│15 е 270мX й 26iЄЕ Z┤255 з ┬(Xл8,Yл4),Z,2,.3,.96,.056ТєЕ Z▓22 з ┬(Xл8,Yл4),Zм8,1,.3,.96,.056ЪЇЛ Z6╖ї╗(255,Yм25)м(255,Yл25),╛6╪°┼(X,Y)м(Xл16,Yл7),CB,╜:Бе6607╞"BM"л И(Xл8)л","л И(Yл4)л"C2NU8NE6NR8NF6ND8NG6NL8NH6"7F ╔"T200O1V31BBBV25AAAV20GGGV15FFFV10EEEV5DDDCCC7`B│0:GA│( Д(15)л5)о1007vА Z│1 е  Д(20)л207БB│BлGA7У%Е B▓1 з B│Bм17╡/┬(Xл8,Yл4),Z, Д(3)л1,1,B,BлGA7╗9Л7─MDI│17▀RЗ@336,;:З ═"#####";SC;8\Е DI│1 з З@394,"YOU DIED !!";:З@448,"";:╔"V31O1T1EC":Бе9808GfЗ@384," YOU RECOVERED THE ARTIFACT!8bp╔"O2V31T6CP4CCCP15T1G"8ИuЗ" THE EMPEROR CONGRATULATES YOU!8╖z╔"P15T7GGT4AFAO3T3CP200O2T5CP250CP250CT1C"8╨А Z│1 е 1000:Л:Бе9808фДDR│1:CN│500:F│38яЙ╝:┴4,19О┬(128,96),120,4,.659У├(0,0),4,490Ш╗(0,76)м(40,116),╛,BF99Э┴2,19Wп╗(188,158)м(196,162),╜,BF9t│╞"C1BM190,160R2NU1ND1R2"9~╢Бе6409Ш└ZZ│1:А Z│10 е 190 й 89е┼ZZ│ZZл.59├╩┬(Xл8,Yл4),Z,2,1,.55,.5779▀╧╔"T40O5V31;"л И( Б(ZZ))9ч╤Л:Р:╘З@455,"PLAY AGAIN? (Y/N)";:6┘I$│ Т:Е I$│"N" з Ю:К::Д Е I$│"Y" з О :Д 9859Wп╗(188,158)м(196,162),╜,BF9t│╞"C1BM190,160R2NU1ND1R2"9~╢Бе6409Ш└ZZ│1:А Z│10 е 190 й 89е┼ZZ│ZZл.59├╩┬(Xл8,Yл4),Z,2,1,.55,.5779▀╧╔"T40O5V31;"л И( Б(ZZ))9ч╤Л:Р:╘З@455,"PLAY AGAIN?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  √& В"DRAWING"&9В"STEVE BLYN,COMPUTER ISLAND,NY,1983&UЮ8:З@9,"PICTURE SAVER";&|(З@98,"USE THE ARROW KEYS TO DRAW";&е2З@162,"USE 'S' TO SAVE THE PICTURE";&╠<З@194,"USE 'L' TO LOAD A PICTURE";&ЄFЗ@226,"USE 'C' TO CHANGE COLORS";'PЗ@258,"USE 'E' AS AN ERASER";'2ZЗ@290,"USE 'M' FOR MENU";'edЗ@416,"WHAT IS THE NAME OF THIS PICTURE";:Й N$'lnЮ0'zxЗ@480,N$;'ИВX│32:Y│16'ТМA$│ Т'йЦЕ A$│ Л(9) з X│Xл1'└аЕ A$│ Л(8) з X│Xм1'╪кЕ A$│ Л(10) з Y│Yл1'Ё┤Е A$│ Л(94) з Y│Yм1(╛Е A$│"C" з C│Cл1(╚Е A$│"E" з Бе 330(1╥Е A$│"S" з Бж 350(G▄Е A$│"L" з Бж 420(XцЕ A$│"M" з О(jЁЕ A$│"" з 140({·Е X▓63 з X│1(МЕ X┤1 з X│63(ЭЕ Y▓31 з Y│1(оЕ Y┤1 з Y│31(╛"Е C▓8 з C│1(╦,Ь(X,Y,C)(╓6Бе 140(Ё@В"THE ERASER IS HERE")JЭ(X,Y):Бе 140))TВ"SAVE THE PICTURE IN A FILE HERE")8^Щ"O",#1,N$)MhА Z│ 1024 е 1535)[rЗ#1, Ж(Z))c|Л Z)lЖЪ #1)rРР)ЬЪВ"LOAD THE FILE FOR THE PICTURE HERE")ндЮ0:З@480,N$;)╝оЩ"I",#1,N$)╨╕А Z│1024 е 1535)┌┬Й#1,A)ф╠Т Z,A)ь╓Л Z)ЇрЪ#1)·ъРе                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  7&:Г&#:Г CAVERN COPTER&?:Г BY JASON NANNEN&F:Г&O Х500&к :ГPLAYER CAN MODIFY GAME BY CHANGING THE FOLLOWING VARIABLES:'F :ГS =BEGINNING CAVERN (0=LAST) AS=MAX LENGTH OF STALACTITES JS=MANEUVERABILITY OF COPTER GL=GOLD RANGE TO MIDSCREEN DR=CREATURE FREQUENCY'OS│15'YAS│72'bJS│2'lGL│60'vDR│15'ДZ│ Д(м Я)'╔CL│ Д(8):Е CL│4 з 20 :Д ЮCL:А Z│103 е 167 й 32:З@Z, б(17,191);:Л'°З@137,"cavern"; Л(128);"copter";:Т 1167,32( А Z│1 е 40(!╔"T120O1V30"(1#╔"CDP"л И( Д(10)л30)(G%I$│ Т:Е I$│"" з Л(f(М C(15,7),CB(15,7),DD(7,5)(r2╚ 3,1:╝(Ж<┬(29,26),4,3,.9(╕P╞"C3BM32,22L8BM-3,+2NU1NR1NL2D2R4BM+0,+3R7C4"(╓\╗(150,150)м(158,156),╜,BF(Ё^╛(152,152):╛(156,152)) `╞"C1BM152,155U1R4D1")"d─(16,22)м(32,29),C,G)@f─(100,100)м(116,108),CB,G)^h─(150,150)м(158,156),DD,G)jiS│Sн2л8){jЕ CN▓0 з 400)вnЗ@323,"WANT INSTRUCTIONS? (Y/N)";)╣xI$│ Т:Е I$│"" з120)┘}З@323, б(25,143л16н(CLм1));)эВЕ I$┤▓"Y" з 400*МА Z│290 е 356 й 32:З@Z, б(28,191);:Л*ЦН D$*6аЕ D$│"ZZZZZ" з 395*JеD$│ б(26,32)лD$*pкА Z│1 е  З(D$):З@324, Р(D$,Z,24);*ЕнА ZZ│0 е  Н(0):Л*Т▒Л:Бе 150*я│Ж "USE THE JOYSTICK TO CONTROL THE SPEED OF THESE INSTRUCTIONS... "+М┤Ж "YOUR MISSION IS TO RECOVER A HIGHLY PRIZED ARTIFACT WHICH WAS STOLEN FROM YOUR LAND LONG AGO BY THE CREATURES THAT INHABIT THE CAVERNS OF KHADESHE. ",-╚Ж "THE IMPERIAL WIZARD HAS DETERMINED THAT THE ARTIFACT IS HIDDEN IN THE MOST REMOTE CAVERN WHICH IS EGG-SHAPED AND IS VERY WELL GUARDED BY THE CREATURES. ",А╥Ж "YOU ARE EQUIPPED WITH A HELICOPTER AND CAN CONTROL ITS VERTICAL MOVEMENT. ",█▄Ж "IF YOUR COPTER CRASHES INTO ANYTHING RED, BE IT CAVERN OR CREATURE, YOU WILL DIE. "-}цЖ "HOWEVER, YOU MAY BE ABLE TO SAVE YOURSELF FROM DESTRUCTION BY USE OF YOUR LASER. PRESS THE FIRE BUTTON AND THE BEAM WILL DESTROY EVERYTHING IN ITS PATH. "-▐ыЖ "YOU HAVE THREE LASERS FOR THE ENTIRE MISSION, BUT YOU CAN'T USE ANY IN THE LAST CAVERN. ".CЁЖ "BUT WAIT-- THERE'S SOMETHING GOOD ABOUT THE CAVERNS-- THEY'RE LINED WITH G-O-L-D !".ю·Ж "TO GET A CHUNK OF GOLD, WHICH LOOKS LIKE A PLUS SYMBOL (+), RUN INTO IT WITH THE front OF YOUR COPTER. THERE IS MORE GOLD IN THE FARTHER, MORE DIFFICULT CAVERNS. "/ЦЖ "WHEN YOU   Ф&dВ ** MAIN MENU **&nЮ&8xЗ@73,"PIE GRAPH MENU";&ZВЗ@166,"1. INPUT INFORMATION";&~МЗ@230,"2. PRELIMINARY DRAWING";&ЭЦЗ@294,"3. OUTPUT RESULTS";&╛аЗ@416,"ENTER THE number OF";&скЗ@448,"THE SELECTION DESIRED";&ш┤:Г&Є╚A$│ Т'╥Е A$│"" з 200'#▄И  Й(A$) Бж 1000,2000,3000'.цБе 110'5Ё:Г'LшВ ** INPUT INFO **'RЄЮ'o№Й "NUMBER OF SECTIONS";N'ШЙ "CENTER OF CIRCLE (X,Y)";X(0),Y(0)'│Й "RADIUS OF CIRCLE";R'└P(0) │ 0'╨$А Z │ 1 е N'ш.З"% FOR SECTION";Z;'Ё8Й P(BP(Z) │ P(Zм1) л P( LA(Z) │ P(Z)н3.1416о50(;VX(Z) │ X(0)лRн Х(A(Z))(V`Y(Z) │ Y(0)мRн Е(A(Z))(^jЛ Z(dtР(k~:Г(Л╨В ** PRELIMINARY DRAWING **(С┌Ю(бфЙ "PMODE";M(┐юЙ "COLOR (FORE,BACK)";F,B(╟°╚ M(═╝(╫ ┴ F,B(с┐ 1,0(Ї ┬(X(0),Y(0)),R)*А Z │ 1 е N)#4╗(X(0),Y(0))м(X(Z),Y(Z)),╜)+>Л Z)7HA$ │  Т)LRЕ A$ │ "" з 2120)R\Р)Yf:Г)t ╕В ** OUTPUT RESULTS **)z ┬Ю)Ф ╠З@73,"OUTPUT OPTIONS")│ ╓З@166,"1. GRAPH TO SCREEN")╙ рЗ@230,"2. GRAPH TO PRINTER")ю ъЗ@294,"3. OUTPUT DATA"* ЇЗ@416,"ENTER THE NUMBER OF"*0 ■З@448,"THE SELECTION DESIRED"*7 :Г*R В ** ITEM SELECTION ***^ &A$ │  Т*s 0Е A$ │ "" з 3110*Т :И  Й(A$) Бж 2000,4000,5000*Ш DР*Я N:Г*├аВ ** OUTPUT GRAPH TO PRINTER ***ЄкВ THIS SECTION IS LEFT FOR YOU TO COMPLETE+ ┤З@0,"NOT IMPLEMENTED"+"╛А W│1 е 2000: Л W+(╚Р+/╥:Г+GИВ ** OUTPUT DATA **+MТЮ+dЬЗ@73,"OUTPUT DATA"+~жЗ@102,"1. TO PRINTER"+Ч░З@166,"2. TO SCREEN"+о║З@230,"3. TO DISK"+╔─З@294,"4. TO CASSETTE"+щ╬З@416,"ENTER THE NUMBER OF", ╪З@448,"THE SELECTION DESIRED",т:Г,-ьВ ** ITEM SELECTION **,9ЎA$ │  Т,NЕ A$ │ "" з 5110,r И  Й(A$) Бж 6000,7000,8000,9000,xР,:Г,вpВ ** OUTPUT DATA TO PRINTER **,┬zЗ#м2,"NUMBER OF SECTIONS";N,шДЗ#м2,"CENTER OF CIRCLE";X(0);Y(0)-ОЗ#м2,"RADIUS OF CIRCLE";R--ШЗ#м2,"DATA POINTS Z;A(Z);X(Z);Y(Z)-;вА Z│1 е N-UмЗ#м2,Z;A(Z);X(Z);Y(Z)-]╢Л Z-c└Р-j╩:Г-МXВ ** OUTPUT DATA TO SCREEN **-Т]Ю-│bЗ@0,"NUMBER OF SELECTIONS";N-┘lЗ@32,"CENTER OF CIRCLE";X(0);Y(0)-ўvЗ@64,"RADIUS OF CIRCLE";R.АЗ@100,"Z A(Z) X(Z) Y(Z)".,КА Z │ 1 е N.NФЗ ═"####.##";Z;A(Z);X(Z);Y(Z).VЮЛ Z.bиA$ │  Т.w▓Е A$ │ "" з 7080.}╝Р.Д╞:Г.д@В ** OUTPUT DATA TO DISK **.╨JВ THIS SECTION IS LEFT FOR YOU TO WRITE.ъTЗ@0,"NOT IMPLEMENTED"/^А W│1 е 2000: Л W/hР/ r:Г/1#(В ** OUTPUT DATA TO CASSETTE **/]#2В THIS SECTION IS LEFT FOR YOU TO WRITE/w#<З@0,"NOT IMPLEMENTED"/Н#FА W│1 е 2000: Л W/У#PРATA TO DISK **.╨JВ THIS SECTION IS LEFT FOR YOU TO WRITE.ъTЗ@0,"NOT IMPLEMENTED"/^А W│1 е 2000: Л                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ■&:ГLISTING #1&=В MINIVENTURE BY ERIC W. TILENIUS&t:Г TO DEMONSTRATE ADVENTURE PROGRAMMING TECHNIQUES':Г REQUIRES 16K COLOR BASIC. CAN BE FIT INTO 4K BASIC IF ALL REMARKS AND SPACES ARE DELETED AND IF THE TITLE DESPLAY IS LEFT OUT.( :Г DIMENSION ARRAYS USED: L$=ROOM NAMES LO$=LONG OBJECT DESCRIPTION O$= SHORT OBJECT NAME C$= COMMAND ARRAY C()=COMMAND NUMBERS T=2-D ARRAY FOR TRAVEL TABLE T$=DIRECTIONS(':Г O=OBJECT ROOM NUMBER(c:ГDESIGNED TO BE USED WITH ACCOMPANYING TUTORIAL(ИX│9 ::ГCHANGE TO NUMBER OF ROOMS(йY│9::ГCHANGE TO # OF OBJECTS(у М L$(Xл1),LO$(Yл1),O$(Yл1),C$(20),T(4,X),C(20),O(Yл1)(■:ГTITLE & INSTRUCTIONS)Ю3:З" MINIVENTURE")ЁЗ@128,"DESIGNED TO BE USED WITH ACCOMPANYING TUTORIAL. THIS MINIVENTURE HAS 9 ROOMS AND10 OBJECTS ONLY.THE OBJECT IS TOBRING THE OIL BACK TO YOUR SPACESHIP WHICH HAS CRASHED ON AN ALIEN PLANET"*AА C│1 е 7000:Л*ЭdЖ LANDING SITE,ENTRANCE TO ALIEN CITY,LIGHT BRIDGE,DESERTED PLAIN,ANCIENT TEMPLE,COMPUTER BUILDING,CITY OF THE ANCIENTS,STORAGE BUILDING,OIL REFINERY+9╚Ж WRECKED SPACESHIP,*,1,GOLDEN DISK,DISK,2,ALTAR,*,5,BOOK,BOOK,5,LASER GUN,GUN,4,ADVANCED COMPUTERS,*,6,OIL,*,9,BUCKET,BUCKET,8,WRITING ON THE WALL,*,7+H,Ж 0,4,0,0 +V6Ж 0,5,3,0+d@Ж 0,6,0,2+sJЖ 1,-1,5,0+БTЖ 2,0,0,4+П^Ж 3,0,0,0+ЭhЖ-1,0,8,0+лrЖ 0,0,9,7+╣|Ж 0,0,0,8,/РЖ "TAKE",1,"GET",1,"DROP",2,"GO",3,"LOOK",4,"READ",4,"MOVE",5,"PUSH",5,"PULL",5,"UNLOCK",6,"OPEN",7,"INVENTORY",8,HXА C│1 е X:Н L$(C):ЛC,n╝А C│1 е Y:Н LO$(C),O$(C),O(C):Л C,Ы А C│1еX:Н T(1,C),T(2,C),T(3,C),T(4,C):ЛC,╒RT$(1)│"NORTH":T$(2)│"SOUTH":T$(3)│"EAST":T$(4)│"WEST"-ГN│12::ГCHANGE TO # OF VERBS IN COMMAND LIST-$ДА C│1 е N:Н C$(C),C(C):Л C-@╢L│1 ::ГROOM TO START AT-FчЮ-eшЗ:З"YOU ARE AT THE ";L$(L)-vЄЗ"YOU SEE:";-Ю№А C│1 е Y:Е O(C)│L з З LO$(C);" ";-жЛ C-м З-╔З "OBVIOUS EXITS LEAD:";-ЄА C│1 е 4:Е T(C,L)▓0 з З T$(C);" ";-·$Л C.)З.F.Е L│1 ░ O(7)│1000 з Ю3:З"Y O U W O N!":З:а 1,10:а 20,9:а 50,14:К.rLЗ:З"WHAT WOULD YOU LIKE TO DO NOW":Й A$.╖п:ГFIND THE FIRST WORD TYPED IN (UP TO THE SPACE) AND CALL IT A1$/░А C│1 е  З(A$): Е  Р(A$,C,1)│" "з A1$│ О(A$,Cм1):B$│ Р(A$,Cл1, З(A$)мC):Бе 1230 :Д Л C/6║A1$│A$::ГONLY ONE WORD TYPED IN/D╬А C│1 е N/С╪Е C$(C)│A1$ з A│C(C):Бе1400 ::ГIF VERB IS IN COMMAND LIST THEN GOTO 1400/ЩтЛ C/рьЗ"I DO NOT UNDERSTAND THE VERB":Бе 1100 ::ГBACK TO INPUT STATEMENT0xИ A Бе 2000,3000,4000,5000,6000,7000,8000,90000&╧:ГTAKE ROUTINE04╨А C│1 е Y0З┌Е B$│O$(C) ░ O(C)│L ░ O$(C)┤▓"*" з O(C)│1000:З LO$(C)" HAS BEEN TAKEN":Бе 11000ПфЛ C0июЕ B$│"OIL" з Бе 20600╥З"SORRY, YOU CAN'T TAKE THAT":Бе 11001( Е O(7)│L з Й"WITH WHAT";I$:Е I$│"BUCKET" ░ O(8)│1000 з O(7)│1000:З"TAKEN":Бе 11001`З"SORRY, YOU ARE UNABLE TO TAKE THE OIL.":Бе 11001s ╖:ГDROP ROUTINE1А ╕А C│1е Y1╔ ┬Е B$│O$(C) ░ O(C)│1000 з O(C)│L:З LO$(C)" HAS BEEN DROPPED.":Бе 11001╤ ╠Л C1  ╓З"SORRY, YOU ARE NOT CARRYING "B$:Бе 11002Я:ГGO ROUTINE2HаА C│1е4:Е B$│T$(C) з DR│C:Бе 4020 ::ГDR=DIRECTION #2nкЛ C:Бе 4050 ::ГNO DIRECTION GIVEN2е┤Е T(DR,L)▓0 з L│T(DR,L):Бе 4030 :ГMOVE TO NEW ROOM2╓╣Е T(DR,L)┤│0 з З"CAN'T GO THAT WAY.":Бе 11003╛Е L│1000 зЗ"YOU HAVE JUST DIED":К::ГIF PLAYER DIES, END GAME3#╚Бе 10003B╥З"TRY A DIRECTION":Бе 11003UИ:ГLOOK ROUTINE3{ТЕ A$│A1$ з 1000::ГONLY LOOK TYPED3╓ЬЕ B$│"WRITING" з З"THE WRITING SAYS 'WITH A BUCKET AROUND, THERE IS OIL TO BE FOUND.'"4 жЕ B$│"GUN" з З"THE GUN IS MARKED 'PRESS TO FIRE'"4Б░Е B$│"DISK" з З"THE DISK SHOWS A PICTURE OF A WALL. UNDERNEATH THE PICTURE ARE THE WORDS 'USE ME TO OPEN DOORS'"4ПтЗ:Бе 11004вp:ГMOVE ROUTINE5#zЕ B$│"ALTAR" ░ L│5 з З"THE ALTAR MOVES, REVEALING A HIDDEN DOOR.":LO$(10)│"DOOR":O$(10)│"*":O(10)│5:ALTAR│1:Y│Yл1:Бе 110058X:ГUNLOCK ROUTINE5зbЕ B$│"DOOR" ░ ALTAR│1 ░ L│5 з Й"WITH WHAT";I$:Е I$│"DISK" ░ O(2)│1000 з З"THE DOOR UNLOCKS":DOOR│1:Бе 11005╫vЕ B$│"DOOR" з З"YOU CAN'T UNLOCK THE DOOR."5ъ@:ГOPEN ROUTINE6+JЕ B$│"DOOR" ░ L│5 ░ DOOR│1 з DOOR│2:З"THE DOOR SWINGS OPEN."6LTЕ DOOR│2 з T(2,5)│7:T(1,7)│56|YЕ DOOR│0 ░ B$│"DOOR"з З"THE DOOR IS LOCKED"6И^Бе 11006Ш#':ГINVENTORY6┴#(Ю:З"YOU ARE CARRYING THE FOLLOWING:"6╬#2А C│1е Y6ш#<Е O(C)│1000 з ЗLO$(C)6ў#FЛ C:Бе11006¤'К ░ DOOR│1 з DOOR│2:З"THE DOOR SWINGS OPEN."6LTЕ DOOR│2 з T(2,5)│7:T(1,7)│56|YЕ DOOR│0 ░ B$│"DOOR"з З"THE DOOR IS LOCKED"6И^Бе 11006Ш#':ГINVENTORY6┴#(Ю:З"YOU ARE CARRYING THE FOLLOWING:"6╬#2А C│1е Y6ш#<Е O(C)│1000 з ЗLO$(C)6ў#FЛ C:Бе11006¤'К в&$ :ГRAINBOW ON TAPE MONTHLY MENU&7╚3,1:╝:┐0,1:Ю0&кRB$│"U8R4FD2GNL4FD3BR5U6E2R2F2D2NL6D4BR5NU8BR5U8F7NDU7BR5D8R4EU2HNL4EU2HNL4BR6NR4GD6FR4EU6HBR5D6F2E2NU4F2E2U6"&ч(┬(256,130),168,3,.7,.50,.25:┬(256,126),142,3,.75,.50,.25& 2╞"S4BM116,126C3L50"'<├(100,124),3,3'NFАI│0е30й30:АY│0е1:┬(256мI,130лY),168,2,.7,.50,.25:ЛY:ЛI'dP╞"BM20,132C2R161"'vZ├(75,130),2,2'Цd┬(256,130),257,4,.45,.5,.25'╢n┬(256,138),226,4,.56,.5,.25'╩x╞"BM0,128C4R45"'▄В├(15,126),4,4'°М╗(0,126)м(256,147),╛,BF(Ц╗(0,0)м(256,192),╛,B(*а╗(0,0)м(256,22),╛,BF(iк╞"S20BM150,124C3R20EU10HL20GD10FR3UE2L5U7ER18FD7L5NL12F2D"(Е┤┬(176,90),8:┬(220,90),8(│╛╗(176,82)м(220,82),╜:╗(176,98)м(220,98),╜(┼╚├(176,70),3,3)╥┐1,1:АI│1е8:R$│ И(Iл10)л","л И(Iл168):╞"S12BM"лR$л"C4"лRB$:Л)▄╞"S12BM19,177C3"лRB$)\ц╚3,1:┐1,1:АI│1е300:Л:┐1,0:АI│1е300:Л:┐1,1:А I│1 е 500:ЛI)bЁЮ)r·Х 200,16352)ЦА R│16352 е 16380:Н P:Т R,P:Л R)е╣ Г0│16352)╓Ж 189, 179, 237, 31, 152, 142, 4, 0, 16, 142*"Ж 4, 31, 237, 137, 1, 224, 237, 164, 49, 168*3,Ж 32, 237, 129, 140, 4, 32, 38, 240, 57*G6Ю 4 :X│ Г0(500)*d@З@72, "RAINBOW ON TAPE";*uJЗ@142,"FOR";*РTЗ@201,"FEBRUARY 1984";*й^З@426, "HIT A KEY.";*╕hX│ Г0(500)*╩rА R │ 1 е I:Л*┘|X│ Г0(597)*ъЖА T│ 1 е I:Л+РЕ I▓1 з I│Iм1 :Д I│50+ЪЕ  Т│"" з 360+дЮ+;оЗ" RAINBOW ON TAPE"+]╕З:З" (C) FALSOFT, 1984"+врЗ " (XX)=PAGE NUMBER OF LISTING IN FEBRUARY'S RAINBOW"+иъЗ+╬ЇЗ " (24) RBCPLUS", " (28) MERRO"+Ї■З" (40) MINIVENT", " (55) GRAPH",З" (61) DRAWING", " (64) COPTER",AЗ" (69) COCOGOLF", " (79) FAMTREE",fЗ" (91) GAME 1", " (91) GAME 2",Л&З" (91) GAME 3", " (91) GAME 4",СNЗ,╡XЗ" PRESS ANY KEY TO CONTINUE",┼bЕ  Т│""з610,╦lЮ,ЇvЗ:З " (XX)= PAGE NUMBER OF LISTING",√АЗ -!ЮЗ"(120) WINTER", "(141) BSKBINIT"-GиЗ"(145) ENTRDATA", "(160) BASKET"-p▓З"(178) DRAGBYTE", "(191) SHORTHND*"-Ц╝З"(198) IMAGES", "(292) COMPTEST"-╜╞З"(297) CHARACTR", "(JAN) TPTDSK*"-с┌З" *=MACHINE LANGUAGE PROGRAM"-чфЗ.*юЗ " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU".R°З "PRESS ^ (UP ARROW) TO EXIT MENU".СЕ  Т│ Л(94) з Т 113,0:в 40999 :Д Е  Т│"" з 770 :Д Ю:Бе 430.б З б(32,45);HARACTR", "(JAN) TPTDSK*"-с┌З" *=MACHINE LANGUAGE PROGRAM"-чфЗ.*юЗ " PRESS ANY KE ш& Ю:X│256н Ж(35)л178&$Х25,Xм1&9X│256н Ж(35)л178&I(А Z│X еXл77&_2Н Y:W│WлY:З Z,Y;W&k<Т Z,Y:Л&ЛFЕW│7985з80:ДЗ"DATA ERROR":С&ХPв X:К&┤ZЖ 182,1,106,167,140,60,134&╥dЖ 126,183,1,106,190,1,107&ЁnЖ 175,140,50,48,140,4,191' xЖ 1,107,57,129,10,38,38'*ВЖ 52,22,79,158,25,230,129'FМЖ 39,12,171,128,171,128'cЦЖ 230,132,38,250,48,1,32'БаЖ 240,183,2,222,48,140,14'ЮкЖ 159,166,166,132,28,254'╝┤Ж 189,173,198,53,22,126,0'╓╛Ж 0,135,255,134,40,55'ч╚Ж 51,52,41,0,4,191' xЖ 1,107,57                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ┴┴─ ┬ ╚┴╔├─┴╔╔┬#$%&'├)*+,├╔/012┴4567├9:├┼=>?@A├  MENU BAS еRBCPLUS BAS!ыMERRO BAS"∙MINIVENTBASGRAPH BASЧDRAWING BAS■COPTER BAS:COCOGOLFBAS(lFAMTREE BAS4WINTER BAS-═BSKBINITBAS2ENTRDATABAS.┘BASKET BASADRAGBYTEBAS3╞SHORTHNDBIN ╣IMAGES BAS COMPTESTBAS8CHARACTRBAS TPTDSK BIN;kKARRAK 1BASfKARRAK 2BAS<0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 /Ў&:Г THE CROWN OF MERRO&4:Г BY &M:Г JEFF CRAIG&g:Г (C) DEC.1983&n:Г&Ф Ю4:З@7,"THE CROWN OF MERRO";:┐0,1&┬Х100:МD(32,4),B(42),B$(42),R$(17):R│1:P│3&тАY│1е4:АX│1е32:НD(X,Y):ЛX,Y'┐(Ж,1,,,24,,,,,,32,11,12,,,15,16,,2,19,,23,22,4,,5,,,,,,10,,3,,21,25,,,,30,,,,,,13,,,2,,,20,4,22,,,,29,27,,10,,,2,19,,24,26,,,,,,,13,14,,,,,,20,,,23,22,5,,,,,,,10,11,,18,2,22,,,,,29,30,,,15,,,,,,,,4,23,22,,5,,28,,27,,,'╘2АX│1е38:НB(X):ЛX(9<Ж100,100,100,2,,,25,8,30,10,12,,28,1,29,3,20,4,5,25,26,26,6,27,29,10,14,15,,17,,30,,11,,11,16,16(OFАX│1е38:НB$(X):ЛX),PЖ SOME 'SUPER FLARE' MATCHES,SURVIVAL RATIONS,AN EMPTY CANTEEN,A PRIMITIVE WEAPON,A DELICIOUS BANANA,AN * IVORY TUSK *,AN OLD MAP,A THUUNOON EGG,A HUMAN LIMB,A SHRUNKEN HEAD,A BRONZE TORCH,* MERRO'S CROWN *,A HACKSAW*ZЖTHE AMAZON RIVER,A RIVER OF PIRANHA,MANY TREES,A HAIRY APE,AN ANCIENT FOUNTAIN,ELEPHANT SKELETONS,A * LARGE RUBY *,MANY ARMY ANTS,A BRANCHY TREE,A STURDY VINE,AN OLD TREE,A TALL TREE,A GROUP OF CANNIBALS,A RUSTY GATE,A SACRIFICIAL ALTAR*┬dЖA ROTTING SKULL,A DUSTY COFFIN,KING MERRO,A LOG OVER A RIVER,A LOG,AN ANCIENT STRUCTURE,A DARK CAVE,AN EVIL EXPLORER,THICK WHITE WEBS,MANY BLACK WIDOW SPIDERS*╪nАX│1е17:НR$(X):ЛX+╝xЖSTANDING ON A SHORE,ON A PATH,EAST OF THE PATH,IN A SMALL CLEARING,IN A ELEPHANT GRAVEYARD,IN A BRANCHY TREE,,IN AN OLD TREE,ON A LONG LOG,IN A SMALL VILLAGE,IN A CLEARING,IN A DISMAL CAVE,IN A DAMP CAVE,IN A DREARY ALCOVE+ЇВЖIN A ERIE TEMPLE,IN A SPOOKY CRYPT,IN MERRO'S TOMB,gМFW$│"N E S W I GO GET DROPSWINLOOKGIVEPUSHDRINFILLKILLCLIMCHOPSWIMEAT LIGHSAW BURNTURNOPENSAY QUIT"-ЦSW$│"MATCRATICANTAXE BANATUSKMAP EGG LIMBHEADTORCCROWHACKTREEAPE FOUNFACENOSEWATEVINELOG CANNSTRUGATETEMPALTASKULPASSWEBSSPIDCOFFMERRORRECAVESKELRIVEANTSRUBYEXPLWEAPEYESMOUT"-GаЮ2:З@1," ";.&кЗ@64," THIS IS A BASIC TWO WORD ADVENTURE. USE COMMANDS SUCH AS 'KILL APE' & 'DRINK WATER'. IF ONE COMMAND DOESN'T WORK TRY ANOTHER! USE COMMANDS SUCH AS 'N' TO MOVE A DIRECTION AND 'I' TO TAKE INVENTORY.";.ь┤З:З" I AM AN ENGLISH EXPLORER OUT TO FIND THE LOST CROWN OF MERRO.WHEN MY BOAT STOPPED, MY PARTNERKNOCKED ME OUT AND TOOK OFF, TAKING MOST OF MY EQUIPMENT. YOUMUST HELP ME FIND THE CROWN."/R╛ЕH┤1зK$│"-=* THE CROWN OF MERRO *=- ":H│1:L$│"":ДK$│".....BY JEFF CRAIG..... ":H│0:L$│""/Е╚АI│1е30:L$│ О(K$,I):З@31мI,L$;:Е Т│""з210:Д240/╔╥АTD│1е50:ЛTD,I:АI│29е0йм1:L$│ П(L$,I):З@1,L$;:Е Т│""з220:ДБе240/т▄АTD│1е50:ЛTD,I:Бе190/ёцЕ Т│""з2300ЁЮ3:З"I AM ";04·ЕR▓17зЗ"IN A VERY DENSE JUNGLE." :ДЗR$(R);"."0RЗ"OBVIOUS EXITS:";:Бж11800iЗ"I SEE...":Бж12300БЗ"*"; б(30,"-");"*"0Ф"Бж1260:V│0:W│00й,ЕM$│""зV│0:Бе3400╧6V│ Ю(1,FW$,M$):V│(Vл3)о4:ЕV┤1зV│00ф@ЕN$│""зW│0:Бе3401 JW│ Ю(1,SW$,N$):W│(Wл3)о4:ЕW┤1зW│01.TЕV│0з1310:ДЕV│26зЮ:З:З:З:Бе15801Q^ЕQ8▓0 ░Z1┤1зQ9│Q9л1:ЕQ9▓3з15201ФhЕV┤6 ░ W│0з1320:ДЕV│25 ░R┤▓17зЗ:З"OK...NOTHING HAPPENS.":Бе2901єrЕV│7 ░W│12 ░B(12)│R зБе1130:ДЕV│7 ░W│12з1470:ДЕV│10 ░W┤▓0 ░W┤14 ░B(W)┤▓100 ░ B(W)┤▓R з14702Ч|ЕV│10 ░W│0зБе240:ДЕV│10 ░W│11 ░(B(11)│R ▒ B(11)│100)░Q7┤1зЗ:З"THE TORCH JUST LIT UP!":B$(11)│"A LIT TORCH":Q7│1:Бе290:ДЕV│10 ░W│11 ░Q7▓0з1410:ДЕV│10 ░W│11з14202 ЖЕV│10 ░W│13 ░B(13)│100зЗ:З"IT LOOKS LIKE THE ONE THAT WAS STOLEN FROM ME.":Бе180:ДЕV│10 ░W│13з14203<РЕV│16 ░B(23)│100зЗ:З"I CAN'T...I'VE GOT THE VINE!":Бе2903эЪЕV│10 ░W│38 ░B(20)│100зЗ:З"IT'S MADE OF GLASS":B$(20)│"A GLASS RUBY":Бе290:ДЕV│10 ░W│38з1420:ДЕV│10 ░W│8 ░B(8)│100зЗ:З"IT'S YELLOW WITH BROWN SPOTS.":Бе290:ДЕV│10 ░W│8з14204mдЕV│10 ░W│7 ░B(7)│100зЗ:З"IT SAYS: GO DIRECTLY TO JAIL, DO NOT PASS GO, AND DO NOT","COLLECT $200.":Бе290:ДЕV│10 ░W│7з14204фоЕV│10 ░W│40 ░(B(4)│100 ▒B(4)│R)зЗ:З"IT'S VERY SIMILAR TO AN AXE.":B$(4)│"A VERY SHARP AXE":Бе290:ДЕV│10 ░W│40з14705K╕ЕV│7 ░W│38 ░B(20)│R зP│Pл1:ЕP▓3з1390:ДЕV│7 ░W│38 ░B(20)│R зB(20)│100:З"OK.":ЕB(12)│100з1130:ДБе2905Y┬ЕW│40зW│45m╠ЕV│7 ░W│38з14705№╓ЕV│7 ░N$│"WATE"зЗ:З"TRY PUTTING IT IN SOMETHING.":Бе290:ДЕV│7 ░W│20 ░B(23)│R зP│Pл1:ЕP▓3з1390:ДЕV│7 ░W│20 ░B(23)│R зB(23)│100:З"OK.":Бе2906рЕV│7 ░W▓13з14806]ъЕV│7 ░ B(W)│R зP│Pл1:ЕW│5 зQ3│1:Бе1390:ДЕP▓3з1390:ДB(W)│100:З"OK.":Бе2906оЇЕV│7 ░(W▓13 ░ W┤▓20)з1450:ДЕV│8 ░W│20 ░ B(23)│100зЗ"OK.":B(23)│R:P│Pм1:Бе2906э■ЕV│8 ░W│38 ░B(20)│100зP│Pм1:B(20)│R:Бе290:ДЕV│8 ░W│38з14207'ЕV│8 ░ B(W)│100 зP│Pм1:B(W)│R:З"OK.":Бе290:ДЕV│8з14207ЫЕV│20 ░ W│1 ░ B(1)│100 ░R┤▓10зЗ:З"0K...THE MATCH LIGHTS AND FLARESBRIEFLY.":Бе290 :ДЕV│20 ░ W│1 ░B(1)┤▓100з14208(ЕV│18з1430:ДЕV│19 ░W│5 ░B(5)│100зB(5)│0:P│Pм1:Бе1440:ДЕV│19 ░W│9 ░B(9)│100зB(9)│0:P│Pм1:Бе1440:ДЕV│19 ░W│8 ░B(8)│100зB(8)│0:P│Pм1:Бе14408Т&ЕV│19 ░(W▓0 ░ W┤14) ░B(W)│100з1450:ДЕV│19 ░(W▓0 ░ W┤14) ░ B(W)┤▓100з1420:ДЕV│19зЗ:З"EAT WHAT??":Бе2908╩0ЕV│17 ░ B(4)┤▓100 зЗ:З"I DON'T HAVE THE AXE.":Бе2909Y:И R Бе840,840,600,670,740,800,290,820,840,890,940,980,1000,1020,1040,1060,1080,840,840,630,840,840,840,840,840,760,850,840,870,930,840,8409hDЕV│10з14109sNБе13109рXЕV│10 ░ W│14 ░ B(16)│3 ░Q3┤1зЗ:З"ONE OF THE TREES HAS A BANANA.":B(5)│3:Бе290:ДЕV│10 ░W│14 ░B(16)│3з1410: bЕV│17 ░ W│14 ░ B(16)│3зB(16)│0:Бе1490:,lЕV│10з1410:ДЕV▓0з1480:ДБе1310:;vЕV│10з1410:╝АЕV│11 ░ W│5 ░ B(5)│100зЗ:З"THE APE GRABBED THE BANANA AND RAN OFF.":B(17)│0:B(5)│0:D(20,4)│21:P│Pм1:Бе290:ДЕV│11 ░ W│5з1420:∙КЕV│15 ▒ V│17зЗ:З"THE APE JUST MANGLED YOUR BODY.":Бе1570;ФЕV▓0з1480:ДБе1310;МЮЕV│10 ░W│16 ░WW│1зЗ:З"IT'S BASIN IS FULL.":Бе290:ДЕV│10 ░ W│16 зЗ:З"THE FOUNTAIN IS A STATUE WITH A STRANGE FACE.":Бе290<иЕV│10 ░W│17зЗ:З"THE FACE HAS TWO BEADY EYES, A BIG NOSE AND AN OPEN MOUTH.":Бе290:ДЕV│10 ░ W│18зЗ:З"IT LOOKS LIKE IT CAN BE MOVED.":Бе290<Э▓ЕV│10з1410:ДЕV│12 ░W│18 ░WW┤▓1 ░CC┤▓1зЗ:З"CRYSTAL CLEAR WATER CAME OUT OF THE MOUTH AND INTO A BASIN.":WW│1:Бе290:ДЕV│12з1460=:╝ЕV│14 ░W│3 ░WW│1 ░B(3)│100зЗ:З"OK...THE CANTEEN IS FULL.":CC│1:WW│0:B$(3)│"A FULL CANTEEN":Бе290:ДЕV│14 ░ W│3 ░ WW┤▓1зЗ:З"THERE IS NO MORE WATER.":Бе290={╞ЕV│14 ░ W│3 ░ WW│1зЗ:З"I DON'T HAVE ANYTHING TO FILL.":Бе290=ч╨ЕV│13 ░ W│19 ░ (CC│1 ▒ WW│1)зЗ:З"GLUB, GLUB, GLUB. YUMM!":CC│0:WW│0:B$(3)│"AN EMPTY CANTEEN":Бе290 =¤┌ЕV▓0з1480:ДБе1310>_фЕV│10 ░W│35 ░B(6)│0зЗ:З"ONE OF THE SKELETONS HAS AN IVORY TUSK!":B(6)│5:Бе290:ДЕV│10з1410>uюЕV▓0з1480:ДБе1310>═°ЕV│10 ░W│37зЗ:З"THERE ARE 1,957,321 OF THE LITTLE SUCKERS!!":Бе290:ДЕV│10з1410>тЕV│15 ▒V│19з1480?+ ЕV│16 ░W│14 ░B(22)│R зR│6:З"OK.":АT│1е500:ЛT:Бе240:ДЕV│16 ░W│14з1480?AЕV▓0з1480:ДБе1310?▀ ЕV│10з1410:ДЕV│9 ░W│20 ░B(23)│100зЗ:З"ALL RIGHT!.....WOOOOSH...CLUNK.":B(23)│8:P│Pм1:R│8:АT│1е1500:ЛT:Бе240:ДЕV│9 ░W│20з1420:ДЕV│17 ░ W│14зB(22)│0:Бе1490@**ЕV│16 ░W│14 ░B(22)│26зЗ"OK.":R│26:АT│1е500:ЛT:Бе240:ДЕV▓0з1480:ДБе1310@к4ЕV│10з1410:ДЕV│9 ░W│20 ░B(23)│100зЗ:З"HERE I GO AGAIN......WOOOSH...":R│6:B(23)│6:P│Pм1:АT│1е1500:ЛT:Бе240:ДЕV│9 ░W│20з1420@ь>ЕV│16 ░ W│14зЗ"OK.":R│27:АT│1е500:ЛT:Бе240:ДЕV▓0з1480:ДБе1310AHЕV│10з1410:ДЕV▓0з1480:ДБе1310AQRЕV│10з1410:ДЕV│16 ░W│14 ░B(24)│27зЗ"OK.":R│8:АT│1е500:ЛT:Бе240AД\ЕV│17 ░ W│14зB(24)│0:Бе1490:ДЕV▓0з1480:ДБе1310B#fЕV│10з1410:ДЕV│6 ░W│36зЮ:З"THE PIRANHA ATE ME ALIVE... I'M DEAD.":Бе1570:ДЕV│17 ░W│14 ░Q4┤1зB$(25)│"A LOG OVER A RIVER.":Q4│1:Бе1490:ДЕV│17 ░W│14 з1480BhpЕV│6 ░W│21 ░Q4▓0зЗ"OK.":АT│1е500:ЛT:R│9:Бе240:ДЕV▓0з1480:ДБе1310B·zЕV│10 ░W│22 ░Q5┤1зЗ:З"THEY SEEM TO BE VERY ANGRY!":Бе290:ДЕV│10 ░W│22зЗ:З"THEY'RE HUDDLED TOGETHER","STUDYING THE MATCHES.":Бе290:ДЕV│10з1410CaДЕV│20 ░W│1 ░B(1)│100зЗ:З"THE CANNIBALS ARE AWED BY THE MATCH FLAME.":Q5│1:Бе290:ДЕV│20 ░W│1з1420D5ОЕV│11 ░W│1 ░B(1)│100 ░Q5│1зB(1)│0:P│Pм1:Q4│1:З:З"THE CANNIBALS GRAB THE MATCHES.":B$(26)│"CANNIBALS WITH MATCHES":D(10,1)│31:D(10,3)│32:Бе290:ДЕV│11 ░W│1 ░B(1)│100зЗ:З"THE CANNIBALS AREN'T INTERESTED.":Бе290D\ШЕV│11 ░W│1з1420:ДЕV▓0з1480:ДБе1310DзвЕV│10з1410:ДЕV│6 ░W│21зЗ"OK.":R│9:АT│1е500:ЛT:Бе240:ДЕV▓0з1480:ДБе1310E-мЕV│10 ░W│39 ░Q6┤1зЗ:З"HE LOOKS VERY GREEDY.":Бе290:ДЕV│10 ░W│23 зЗ:З"IT HAS A CAVE ENTRENCE.":Бе290:ДЕV│10 ░W│39з1470:ДЕV│10з1410E┬╢ЕV│11 ░W│38 ░Q6┤1 ░B(20)│100зB(20)│0:P│Pм1:Бе1500:ДЕV│11 ░W│38 ░Q6┤1з1420:ДЕV│11 ░W│6 ░Q6┤1 ░B(6)│100зB(6)│0:P│Pм1:Бе1510:ДЕV│11 ░W│6 ░Q6┤1з1420F]└ЕV│11 ░Q6┤1зЗ:З"HE SAYS: HA! HA! YOU MUST THINK I'M STUPID!":Бе290:ДЕV│11зЗ:З"TO WHOM??":Бе290:ДЕV│6 ░(W│34 ▒ W│23)░Q6▓0зR│12:З"OK.":АT│1е500:ЛT:Бе240Fе╩ЕV│6 ░W│34зЗ:З"THE EXPLORER WON'T LET ME.":Бе290:ДЕV▓0з1480:ДБе1310Fы╘ЕQ7┤1зЗ:З"THE TORCH JUST LIT UP!":B$(11)│"A LIT TORCH":Q7│1:Бе290G ▐ЕV│10з1410:ДЕV▓0з1480:ДБе1310GЧшЕQ8┤1зЮ4:З"AAAARGH!! A SPEAR TRAP!","THE SPEAR WAS COATED WITH DEADLYKATOOMO POISON! I'LL BE DEAD IN A MATTER OF SECONDS!":Q8│1:Бе290H+ЄЕV│13 ░W│19 ░CC│1 ░B(3)│100зZ1│1:CC│0:B$(3)│"AN EMPTY CANTEEN":З:З"AAAAAH! THE ANTIDOTE!":Бе290:ДЕV│13 ░W│19з1420:ДЕV│10з1410:ДЕV▓0з240:ДБе1310HЬ№ЕV│3з240:ДЕZ2┤1зЮ4:З"A LARGE GATE JUST FELL AND BLOCKED THE ONLY EXIT!":Z2│1:B(27)│14:Бе290:ДЕV│10з1410I=ЕV│21 ░W│24 ░B(13)│100 ░Z3┤1зЗ"OK...I SAWED THROUGH.":B(27)│0:D(14,1)│13:Z3│1:Бе290:ДЕV│21 ░W│13 ░B(13)┤▓100з1530:ДЕV│21 ░W│13 ░Z3▓0з1470:ДЕV▓0з1480:ДБе1310I╘ЕV│10 ░W│26зЗ:З"IT HAS A SKULL ON IT.":B(29)│15:Бе290:ДЕV│10 ░W│27зЗ:З"THE SKULL HAS THE WORD -","(ORREMKNIG) ON IT'S FOREHEAD.":Бе290:ДЕV│10з1410J;ЕV│23 ░W│27зЗ:З"OK...THE WALL OPENS UP","REVEALING A PASSAGE.":D(15,3)│16:Бе290:ДЕV▓0з1480:ДБе1310K$ЕV│10з1410:ДЕ(V│6 ▒V│15 ▒V│17)░(W│29 ▒W│30)з1450:ДЕV│22 ░W│29 ░B(11)│100 ░Z4┤1зЗ:З"THE WEBS BURN AWAY AND THE","SPIDERS DISAPPEAR!":B(37)│0:B(38)│0:D(16,3)│17:Z4│1:Бе290:ДЕV│22 ░W│29 ░B(11)┤▓│100з1540K6.ЕV│22 ░W│29 ░Z4▓0з1470:ДЕV▓0з1480:ДБе1310Kщ8ЕV│10 ░W│31 ░Z5┤1 зЗ:З"IT'S CLOSED.":Бе290:ДЕV│10 ░W│31зЗ:З"IT'S OPEN.":Бе290:ДЕV│10 ░W│32 ░Z5▓0зЗ:З"HE LOOKS VERY MEAN AND HE'S WEARING A CROWN.":Бе290:ДЕV│10 ░W│32з1470K°BЕV│10з1410LВLЕV│24 ░W│31 ░Z5┤1зЗ"OK.":З"OH, OOH...THE GHOST OF KING MERRO JUST JUMPED OUT!":B(31)│R:Z5│1:Бе290:ДЕ(V│15 ▒V│22 ▒V│17) ░W│32з1560L┌VЕV│25 ░W│33 ░Z5▓0зАT│1е19:Ю0:АCV│1е10:ЛCV:Ю5:АCV│1е10:ЛCV:ЛT:B(31)│0:B(12)│17:Бе240M`ЕV│25 ░W│33з1460:ДЕV▓0з1480:ДБе1310MijЮ:З:З"YOU HAVE WON THIS ADVENTURE... GOOD GOING! I HOPE YOU ENJOYED IT.":ЕB(6)│100 ▒ B(6)│R зK│2MvtЕK┤1зK│1M╞~З:З"YOU FINISHED WITH ";K;" OUT OF TWOTREASURES.":З@426,"TAP ANY KEY.":┐0,1M█ИЕ Т│""з1160:ДЮ:КMхТБе290M ЬЕD(R,1)┤▓0зЗ" NORTH";NжЕD(R,2)┤▓0зЗ" EAST";N2░ЕD(R,3)┤▓0зЗ" SOUTH";NK║ЕD(R,4)┤▓0зЗ" WEST";NS─З:РNt╬АX│1е39:ЕB(X)│R зЗB$(X):Q1│1NЩ╪ЛX:ЕQ1┤1зЗ"NOTHING OF INTEREST."NдтQ1│0:РNЄьM$│"":N$│"":Й"WHAT SHOULD I DO";M$:Е З(M$)┤4зАX│1е(4м З(M$)):M$│M$л" ":ЛXORЎАX│1е З(M$):Е Р(M$,X,1)│" "░ З(M$)▓(Xл2)зN$│ Р(M$,Xл1,4):Е З(N$)┤4зN$│N$л" ":Бе1290:ДБе1290OYЛXOy Е О(M$,3)│"GO "зM$│"GO ":РOЛM$│ О(M$,4):РO╣З:З"I'M SORRY. I DON'T UNDERSTAND.":Бе290Pa(ЕV│1░D(R,1)┤▓0зR│D(R,1):ДЕV│2░D(R,2)┤▓0зR│D(R,2):ДЕV│3░D(R,3)┤▓0зR│D(R,3):ДЕV│4░D(R,4)┤▓0зR│D(R,4):ДЕV│5з1340:ДЗ:З"USE YOUR HEAD...","YOU CAN'T GO THAT WAY!":Бе290PГ2ЕR│13з1000:ДЕR│14з1020:ДБе240P╟<Ю4:З"YOU HAVE IN YOUR POSSESSION:":ЕB(23)│100зЗ:ЗB$(23):Q2│1:ДЗPщFАX│1е20:ЕB(X)│100зЗB$(X):Q2│1Q PЛX:ЕQ2┤1зЗ:З"NOTHING AT ALL."Q/ZЗ@426,"TAP ANY KEY.";:Q2│0:┐0,1QDdЕ Т│""з1380:Д240QоnЕP▓3зЗ:З"YOU'RE CARRYING TOO MUCH. TAKE (I)NVENTORY.":P│Pм1:Бе290:ДЕW│12з1400:ДB(W)│100:З"OK.":Бе290Q┼x:Г INPUT RESPONSESQыВЗ:З"I SEE NOTHING SPECIAL.":Бе290R МЗ:З"I DON'T HAVE IT.":Бе290R4ЦЗ:З"I DON'T KNOW HOW TO SWIM.":Бе290R^аЗ:З"MMMMMM...THAT TASTED GOOD!":Бе290RФкЗ:З"I CAN'T DO THAT...I'LL BREAK A TOOTH!":Бе290R╣┤З:З"OK...NOTHING HAPPENS.":Бе290R▌╛З:З"I DON'T SEE IT HERE.":Бе290S ╚З:З"I'M SORRY, BUT I CAN'T DO THAT.":Бе290SK╥З:З"OK!..CHOP...CHOP...CHOP...CHOP..KKKRT...TIMBER!":Бе290S─▄З:З"THE EVIL EXPLORER TOOK THE RUBY AND RAN INTO THE JUNGLE. AS HE RAN HE SAID: SO LONG SUCKER!":Q6│1:B(36)│0:Бе290TOцЗ:З"THE EVIL EXPLORER TOOK THE TUSK AND SAID: THIS TUSK WILL EARN MEA FORTUNE, UNLIKE THAT GLASS RUBY YOU HAVE!":Q6│1:B(36)│0:Бе290TмЁЮ:З:З"THE POISON SWIFTLY TRAVELED MY BLOOD STREAM TO YOUR HEART... I AM DEAD.":Бе1570T╒·З:З"I DON'T HAVE THE HACKSAW.":Бе290T№З:З"I DON'T HAVE ANY FIRE!!":Бе290U9Ю:З:З"THE SPIDERS SWARMED OVER ME... I AM DEAD.":Бе1570UФЮ:З:З"THE GHOST OF KING MERRO NOW HAS MY HEAD AS A COFFIN ORNAMENT..I AM DEAD.":Бе1570U░"З:З"SORRY SUCKER... "U╧,З"PLAY AGAIN (Y/N)?";:┐0,1Uї6A$│ Т:ЕA$│""з1590:ДЕA$│"Y"зО:ДЮ:Ке290U9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &i&Х500:X│ Д(м Я)&5 МS(4,18),PAR(18):A│1:МN$(10)&фPAR(1)│4:PAR(2)│3:PAR(3)│4:PAR(4)│4:PAR(5)│5:PAR(6)│3:PAR(7)│4:PAR(8)│5:PAR(9)│4:PAR(10)│4:PAR(11)│3:PAR(12)│4:PAR(13)│4:PAR(14)│5:PAR(15)│3:PAR(16)│4:PAR(17)│5:PAR(18)│4'Ю3:З@135," COLOR COMPUTER ";'!#З@200," CHAMPIONSHIP ";'5(З@268," GOLF ";'F-АK│1е1200:ЛK'LdЮ'ЦxЗ:З"HOW MANY PLAYERS IN YOUR GROUP (NAMES MUST BE <=5 LETTERS)";:Й N'└}Е N▓4зЗ"LIMIT OF FOUR, PLEASE.":Бе120'╦ААK│1еN'щВЗ:Й"GOLFER'S NAME";NM$(K)(ЗЕ  З(NM$(K))▓5зЗ"NAME TOO LONG.":Бе130(МЛK(LСЗ"HERE IS THE SCORECARD.":АK│1е600:ЛK:Бж2000(мЫLA$│"BD4ND10E4R2F4D10U6NL10BR4BU8":LR$│"ND14R8F2D4G2L8R4F6BU14BR4":LY$│"BR16D2F5ND7E5U2BR4"(цаLD$│"D14R6E4U6H4L6BR14":LS$│"BD14R8E2U3H2L6H2U3E2R8":)еYY$│LY$лLA$лLR$лLD$лLS$)FкN$(0)│"BD4D6F4R2E4U6H4L2G4BU4BR14":N$(1)│"BR6NG4D14L4R8BR4BU14")ЩпN$(2)│"BD4E4R2F4D4G3L4G3R10BR4BU14":N$(3)│"BD2E2R6F2D3G2NL5F2D3G2L6H2BU12BR14")┘┤N$(4)│"BR8ND14G8R10BR4BU8":N$(5)│"NR10D6R7F3D2G3L7BR14BU14"* ╣N$(7)│"R10D2G10D2BR14BU14":N$(9)│"BD12F2R6E2U10H2L6G2D4F2R8BR4BU8"*{╛H│Hл1:И H Бе 200,300,400,500,600,700,800,900,1000,200,300,400,500,600,700,800,900,1000*О╚АPL│1еN:Бж1500*╞╩BX│10:BY│180:X1│182:Y1│31:X2│218:Y2│81:HX│194:HY│50*ь╥╞"BM0,180E8F12G8H12":├(7,182),6,6+╫╞"BM11,182E40NR37U35E80R80F20D20G20L65G55"+-▄├(128,96),6,6+]с┬(200,56),16,5,1.5:├(200,56),5,5:╜(HX,HY,8)+Бц┬(175,52),9,8,2.5:├(175,52),8,8+▓ы┬(142,95),30,7,.4:├(142,95),7,7:WX│190:WY│40+█Ё╞"BM118,176C7"лN$(4)лN$(1)лN$(4)лYY$+ёї┬(BX,BY),3,7:┐1,1,·Бж2150:Бе2200,,АPL│1еN,1Ю:Бж1500,F6╗(190,80)м(202,100),╜,BF:BX│196:BY│90,h;┬(65,90),60,6,.6:├(70,90),6,6,Б@╗(190,90)м(120,90),╜,дE┬(50,90),21,5,1.1:├(50,90),5,5,сJ╞"BM75,92C8D6G14L6G4F4R10E20U8L8BU4U8H10L6U6R10F14D10L8", O├(78,95),8,8:├(80,84),8,8-T╜(58,84,8):HX│58:HY│84-BY╞"BM80,150C7"лN$(2)лN$(3)лN$(1)лYY$-_^X2│72:Y2│113:X1│29:Y1│67-vc┐1,1:Бж2150:Бе2200-ЙРАPL│1еN:Бж1500-пЪ╗(60,10)м(80,22),╜,BF:BX│70:BY│16-╥Я┬(70,120),35,6,2:├(70,120),6,6-яд╗(65,120)м(200,180),╜,BF.й┬(185,150),35,6:├(216,150),6,6.)о╗(70,22)м(70,80),╜.P╕┬(185,150),16,5,1.5:├(185,150),5,5.u╜┬(86,124),10,8,1.5:├(86,124),8,8.┼┬╞"BM154,100C7D30L8D30L8D30R12U22R8U30R8U38L12":├(160,106),7,7:WX│250:WY│145.ф╟╜(182,156,8):HX│182:HY│156/╠X1│168:Y1│124:X2│202:Y2│176/,╓╞"BM125,20C7"лN$(4)лN$(3)лN$(5)лYY$/C█┐1,1:Бж2150:Бе2200/VЇАPL│1еN:Бж1500/}■╗(0,100)м(12,120),╜,BF:BX│6:BY│110/Ч╗(12,110)м(100,110),╜/╛┬(175,110),84,6,.55:├(175,110),6,6/с┬(228,110),16,5:├(228,110),5,50╜(228,110,8):HX│228:HY│1100X2│248:Y2│130:X1│208:Y1│900F┬(150,110),16,8,1.8:├(150,110),8,80m!╞"BM40,20C7"лN$(3)лN$(7)лN$(2)лYY$0Д&┐1,1:Бж2150:Бе22000ЧXАPL│1еN:Бж15000├]╗(210,178)м(230,190),╜,BF:BX│220:BY│1840▐b╗(220,178)м(220,100),╜0 l┬(220,85),30,6:├(220,85),6,61%q┬(100,35),100,6,.35:├(100,35),6,61Lv╞"BM190,85H40E30F42":├(190,75),6,61~{┬(110,76),50,7,.66:├(100,76),7,7:WX│20 :WY│181аА┬(32,35),18,5,.9:├(32,35),5,51┘К╞"BM52,35C8U8H10U6E4F16D24G16H4U6E10U8":├(58,35),8,82Ф╞"BM10,170C7"лN$(5)лN$(1)лN$(9)лYY$2Щ╜(36,31,8):HX│34:HY│2828ЮX1│14:Y1│17:X2│50:Y2│532Oг┐1,1:Бж2150:Бе22002b╝АPL│1еN:Бж15002И┴╗(50,50)м(70,62),╜,BF:BX│60:BY│562а╞╗(60,62)м(60,125),╜2┼╨┬(60,160),60,6,.55:├(60,160),6,62ъ╒┬(64,166),22,5,.45:├(64,166),5,53S┌╞"BM60,152C7R26E4R2E6U4H4U4H4L6H4L20H2L8G4L6G6L8G4L6G8F6R2F4R8E6R8F8R8E2":├(60,150),7,7:WY│190:WX│603w▀┬(36,166),6,8,2.4:├(36,166),8,83ХфX1│40:Y2│154:X2│88:Y2│1783▓щ╜(64,160,8):HX│64:HY│1603┌ю╞"BM120,60C7"лN$(1)лN$(9)лN$(4)лYY$3ё°┐1,1:Бж2150:Бе22004 АPL│1еN:Бж15004-%╗(242,50)м(254,70),╜,BF:BX│248:BY│604n*╞"BM244,60L60H20L80G80G12D20F12R30E82R36E20U2":├(150,60),6,64П4┬(26,140),16,5:├(26,140),5,54│9┬(26,116),12,8,.5:├(26,116),8,84╒>┬(50,140),6,8,2:├(50,140),8,85 C╜(22,144,8):HX│22:HY│144:X1│9:Y1│123:X2│43:Y2│15754H╞"BM100,160C7"лN$(4)лN$(3)лN$(2)лYY$5KM┐1,1:Бж2150:Бе22005T\┐1,15gДАPL│1еN:Бж15005ХЙ╞"BM0,10E10F6G10H6":├(2,10),6,6:BX│8:BY│85▄О╞"BM10,10F70E24R150D120G10L40H10U70L90G20L30U20E24":├(120,100),6,66У┬(150,150),40,7::├(154,150),7,7:WX│250:WY│1906PШ┬(224,166),20,5,.6:├(224,166),5,5:X1│202:X2│255:Y1│142:Y2│1806tЭ┬(128,96),16,8,.6:├(128,96),8,86Шв┬(246,144),8,8,2:├(248,154),8,86╖з╜(222,166,8):HX│222:HY│1666▀м╞"BM100,20C7"лN$(5)лN$(4)лN$(3)лYY$6Ў╢┐1,1:Бж2150:Бе22007 шАPL│1еN:Бж15007>э╞"BM222,18G8F12E8H12":├(224,28),6,6:BX│224:BY│287|Є╞"BM224,28G46L30G30L100G10D30F10R110E50U30":├(50,120),6,67бў┬(30,128),14,5,1.5:├(30,128),5,57╛№╜(32,132,8):HX│32:HY│1328╞"BM50,170C7U70E40R130D10L120G40D60L10":├(54,160),7,7:WX│20:WY│1908#X1│15:X2│45:Y1│106:Y2│1508G ┬(140,110),8,8,2:├(140,110),8,88l╞"BM16,12"лN$(3)лN$(9)лN$(9)лYY$8Г┐1,1:Бж2150:Бе22008┐▄S│0:Ю:З@172,"HOLE"H;:З@234,NM$(PL)" IS UP.":АK│1е600:ЛK8╘с╚1,1:╝:┐0,1:┴6,58┌цР8у╧H│189╨Ю:З@33, б(30,"-"):З@353, б(30,"-"):З@449, б(30,"=")9\╒З@0,"HOLE PAR ";:Зд9)NM$(1);д15)NM$(2);д21)NM$(3);д27)NM$(4)9r┌ЕH▓9зZZ│8:Д ZZ│м19~фАK│2е109бюЗ@Kн32,KлZZ:З@Kн32л4,PAR(KлZZ)9═°З@Kн32л10,S(1,KлZZ):З@Kн32л16,S(2,KлZZ)9№З@Kн32л22,S(3,KлZZ):З@Kн32л28,S(4,KлZZ):ЛK:AЗ@384,"OUT--36";:З@416,"IN---36":З@481,"TOTAL";:З@384,"OUT--36";:TЕH│10лZZ з2080:gАK│1е1200:ЛK:Р:v ЕH│18з2120:к*З@392,T(1);:З@399,T(2);:З@406,T(3);:З@413,T(4);:╔4АX│1е4:F(X)│T(X):T(X)│0:ЛX:▄>АK│1е2000:ЛK:Р:чHАX│1е4: MЗ@393л(Xм1)н6,F(X);;RЗ@425л(Xм1)н6,T(X);;4WЗ@489л(Xм1)н6,T(X)лF(X);;<YЛ X;GZБе2138;КfA$│ Т:┬(BX,BY),4,7:АK│1е100:ЛK:а225,1:┬(BX,BY),4,5:АK│1е100:ЛK;ЯpЕ A$│"X"з ┐0,1:Р;кzБе2150;░ШП;■ЩЖ DRIVER,7 IRON,2 WOOD,8 IRON,3 WOOD,9 IRON,4 WOOD,WEDGE 1,5 WOOD,WEDGE 2▐Е  а(BX,BY)│8░ CL┤8зЗ"YOU CAN'T USE THAT CLUB FROM THESAND."АK│1е800:ЛK:Бе2200>,шOX│BX:OY│BY:C│(25мCL)н10:DC│25мCL>6№Ю:З:З>F Зд5)"8 1 2">V Зд5)" \!/ ">f Зд5)"7-X-3">v $Зд5)" /!\ ">Ж .Зд5)"6 5 4">╒ 8З:З"CHOOSE THE DIRECTION YOU WANT TOHIT THE BALL (0 FOR HOLE)";:Й Q:а160,1>Є LЕ Q│0з┐1,1:Бж2150:Бе2300? ─S│Sл1:Бж4000:Бж4200:Ю:A│1?) ╬ЕQ│1зBY│BYмDS(A)н.54?P ╪ЕQ│2зBX│BXл.4нDS(A):BY│BYм.4нDS(A)?h тЕQ│3зBX│BXлDS(A)н.6?П ьЕQ│4зBX│BXл.4нDS(A):BY│BYл.4нDS(A)?и ЎЕQ│5зBY│BYлDS(A)н.54?╧ ЕQ│6зBX│BXм.4нDS(A):BY│BYл.4нDS(A)?ч ЕQ│7зBX│BXмDS(A)н.6@ ЕQ│8зBX│BXм.4нDS(A):BY│BYм.4нDS(A)@ Е A│2з2700@% #A│2@; (R│ Д(2):ЕR│2з2630@P 2Q│Qл2:ЕQ▓8зQ│Qм8@[ <Бе2640@p FQ│Qм2:ЕQ┤1зQ│Qл8@ PA│2:Бе2510@Ы МЕR│1зD$│"SLICED":Бе2720@л ЦD$│"HOOKED"@╙ аЗ:З"YOUR SHOT WENT"DS(1)"YARDS OUT"@ё кЗ"AND IT "D$;DS(2)"YARDS"A~ ┤ЕBX┤1▒ BX▓254▒ BY┤1 ▒ BY▓190зЗ"YOUR SHOT IS OUT OF BOUNDS-- LOSS OF STROKE AND DISTANCE.":а20,5:BX│OX:BY│OY:S│Sл1:АK│1е1500:ЛK:Бе2200A░ ╛Е а(BX,BY)│8░  В(BXмHX)┤5 ░  В(BYмHY)┤5 з3600A╟ ╚Е  а(BX,BY)│8з3000A▐ ╥Е  а(BX,BY)│7з3200B ▄Е  а(BX,BY)│5 ░ BX▓X1 ░ BX┤X2 ░ BY▓Y1 ░ BY┤Y2 з3300Bs сЕ  а(BX,BY)│5зЗ"YOU ARE IN THE ROUGH. A 4 IRON IS THE LONGEST CLUB YOU CAN HIT.":Бе2800BТ цЗ"YOU ARE IN THE FAIRWAY."Bе ЁА K│1е1500:Л KB╝ ·┐1,1:Бж2150:Бе2200C& ╕З:З"YOU ARE IN A SAND TRAP. PRESS enter TO SEE IF YOU ARE NEXT TO THE GREEN.":а80,5:ЙR$:┐1,1:Бж2150CF ┬Й"IS TRAP NEXT TO GREEN";R$CY ╠ЕR$│"YES"з3100Cl ╓ЕR$┤▓"NO"з3010CА рSC│ Д((5)м1)н10Cу ъЗ:З"YOU CAN'T USE ANY CLUB LONGER THAN A FOUR IRON. AVG. DISTANCESWILL BE A LITTLE SHORTER."D ЇАK│1е1500:ЛK:┐1,1:Бж2150:Бе2200D0 З:З"RESULT OF SAND TRAP SHOT:":S│Sл1D= &B│ Д(20)Da 0ЕB│1зЗ"BALL GOES IN CUP":Бе3600DЪ :ЕB▓1░ B┤4зЗ"BALL IS ON 1ST CONTOUR.":R│ Д(15):Бе3460D╘ DЕB▓│4░ B┤8зЗ"BALL IS ON 2ND CONTOUR.":R│ Д(15):Бе3430E NЕB▓│8░ B┤15зЗ"BALL IS ON 3RD CONTOUR.":R│ Д(15):Бе3400ED XЕB▓15зЗ"BALL IS ON 4TH CONTOUR.":R│ Д(15):Бе3370E| bЕB│15зЗ"BALL IS STILL IN SAND!!":АK│1е600:ЛK:Бе3100Eы АЗ"YOU ARE IN A WATER HAZARD!! YOURBALL WILL BE DROPPED BACK AND YOU WILL BE CHARGED ONE PENALTY STROKE."E√ Ка50,5:S│Sл1F ФЕ BX┤WX з BX│BXм15:Д BX│BXл15F> ЮЕBY┤WY з BY│BYм10:Д BY│BYл10FU иЕ  а(BX,BY)│7з3220Fz ▓А K│1е1500:ЛK:┐1,1:Бж2150:Бе2200F║ фЗ:З"YOU ARE ON THE PUTTING GREEN!!":АK│1е800:ЛK:┐1,1:Бж2150Fс юP1│ В(HXмBX):P2│ В(HYмBY):R│ Д(15)F√ °Е P1▓P2 з P│P1:Бе3330G ¤P│P2G" ЕP┤│5зЗ"CONTOUR 1":Бе3460GA ЕP┤│10зЗ"CONTOUR 2":Бе3430G` ЕP┤│18зЗ"CONTOUR 3":Бе3400Gq З"CONTOUR 4"GЯ *ЕR│1зЗ"YOU HOLED THE PUTT!!":S│Sл1:Бе3500G╟ 4ЕR▓12зЗ"YOU 3 PUTTED!":S│Sл3:Бе3500Gш >З"YOU 2 PUTTED":S│Sл2:Бе3500H HЕR┤3зЗ"YOU HOLED THE PUTT!!":S│Sл1:Бе3500H> RЕR▓13зЗ"YOU 3 PUTTED!":S│Sл3:Бе3500HI \Бе3390Hw fЕR┤5зЗ"YOU HOLED THE PUTT!!":S│Sл1:Бе3500HЯ pЕR│15зЗ"YOU 3 PUTTED!":S│Sл3:Бе3500Hк zБе3390H╓ ДЕR┤8зЗ"YOU MADE THE PUTT!":S│Sл1:Бе3500Hс ОБе3390HЄ мАK│1е1200:ЛKI ╢S(PL,H)│S:T(PL)│T(PL)лS:Бж3700I └ЛPLI. ╩Бж2000:Бе190IYЗ:З"YOU HAVE HOLED THE SHOT!!!":Бе3500IutЗ:З"YOUR SCORE:"S(PL,H)IС~Е S(PL,H)│PAR(H)зЗ"PAR"I▓ИЕS(PL,H)│PAR(H)м1зЗ"BIRDIE!"I╙ТЕS(PL,H)│PAR(H)м2зЗ"EAGLE!!"IЄЬЕS(PL,H)│PAR(H)л1зЗ"BOGEY"JжЕS(PL,H)│PAR(H)л2зЗ"DOUBLE BOGEY"J9░ЕS(PL,H)▓PAR(H)л2зЗ"YECH!!!"JK║АK│1е800:ЛK:РJjаD1│ Д(6):D2│ Д(6):TD│D1лD2JАкЕTD│2зDS(1)│Cн.75JЦ┤ЕTD│3з DS(1)│Cн.8Jн╛ЕTD│4з DS(1)│Cн.95J─╚ЕTD│5з DS(1)│Cн.85J┌╥ЕTD│6з DS(1)│Cн.9Jэ▄ЕTD│7з DS(1)│CKцЕTD│8з DS(1)│Cн1.1KЁЕTD│9з DS(1)│Cн1.15K5·ЕTD│10з DS(1)│Cн1.05KMЕTD│11з DS(1)│Cн1.2KfЕTD│12з DS(1)│Cн1.25KЙDS(1)│DS(1)мSC:DS(1)│ Б(DS(1))KФ"SC│0:РK│hD1│ Д(4):D2│ Д(4):TD│D1лD2K╔rЕTD│2з DS(2)│DCн2Kс|ЕTD│3з DS(2)│DCн1.3K∙ЖЕTD│4з DS(2)│DCн.75LРЕTD│5з DS(2)│DCн0L#ЪЕTD│6з DS(2)│DCL:дЕTD│7з DS(2)│DCн.5LRоЕTD│8з DS(2)│DCн1.6Lh╕DS(2)│ Б(DS(2)):РDS(1)│DS(1)мSC:DS(1)│ Б(DS(1))KФ"SC│0:РK│hD1│ Д(4):D2│ Д(4):TD│D1лD2K╔rЕTD│2з DS(2)│DCн2Kс|ЕTD│3з DS(2)│DCн1.3K∙ЖЕTD│4з DS(2)│DCн.75LРЕ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╩&:Г*********************&9:Г**** W I N T E R ****&U:Г**** BY ****&q:Г** ANDREW L. SHEMO **&Н:Г**** OCT. 1983 ****&й:Г*********************&█ Ю0:З@233,"press"л Л(128)л"any"л Л(128)л"key";&ыЕ  Т│""з 20&∙Т 65494,0' (╚ 2,1:╝:┐ 1,1:Ю'2Бж 1000'.<:Г*** GROUND ***'KF┬(128,185),135,1,.1,.5,1'^P├(128,191),1,1'tZ┬(0,191),105,1,.4'Жd├ (5,155),1,1'Ыn:Г*** BOTTOM ***'пx┬(125,160),35,1'┬В├(115,172),1,1'╫М:Г*** MIDDLE ***'ыЦ┬(125,120),23,1'■а├(110,130),1,1(к:Г*** HEAD ***(&┤┬(125,92),15,1(8╛├(114,96),1,1(J╚АTI│1 е 500:Л(]╥:Г*** EYES ***(u▄╛(121,88):╛(121,89)(Нц╛(128,88):╛(128,89)(аЁ:Г*** NOSE ***(╒·╗(125,90)м(127,93),╛:╗ м(123,93),╛:╗ м(125,90),╛(щ:Г*** MOUTH ***)┬(125,95),9,0,.4,0,.5):Г*** BUTTONS ***)/"А Y│105 е 130 й 6)G,╛(125,Y):╛(125,Yл1))N6ЛY)g@:Г*** RIGHT TREE ***)ВJ╗(245,191)м(245,150),╜)ЭT╗(256,150)м(190,150),╜)п^╗ м(256,20),╜)┬h├(195,149),1,1)┌r:Г*** LEFT TREE ***)є|╗(20,150)м(20,140),╜* Ж╗(29,155)м(29,140),╜*$Р╗(0,140)м(50,140),╜*5Ъ╗ м(25,50),╜*Fд╗ м(0,140),╜*Xо├ (25,55),1,1*m╕:Г*** BORDER ****К┬А Y│0 е 191:╛(256,Y):Л Y*Ш╠Т 65495,0*┬╓А X│256 е 0 йм1:╛(X,191):╛(X,190):Л X*╨рТ 65494,0*эъА Y│191 е 0 йм1:╛(0,Y):Л+Ї:Г*** SNOW ROUTINE ***+■Т 65495,0++T│1:S│4:М X(255)+=А Y│1 е T й S+PЕ X(Y)│0 з 570+o&Е  а(X(Y),Yл1)│5 з Бе 570+Л0╛(X(Y),Y):╜(X(Y),YлS,1)+У:Л Y+нDT│TлS:Е T▓180 з T│180+╥NА C│YмS е 1 йм S:X(CлS)│X(C):Л C+№XX(1)│ Д(250)л2:ЕX(1)│125 з 600 :Д 530,ш:Г*** GRAPHICS STRINGS ***,ВЄA$(1)│"M+10,+30;R5;M+6,-8;M+6,+8;R5;M+10,-30;L6;M-7,+22;M-6,-8;L3;M-6,+8;M-7,-22;L6;BM+45,+30" :Гw,Ц№H(1)│32:V(1)│12,╚A$(2)│"U6R6U18L6U6R18D6L6D18R6D6NL18;BR6" :Гi,▄H(2)│80:V(2)│12-A$(3)│"U30R10;M+10,+25;U25R6D30L10;M-10,-25;D25L6;BR30" :Гn-1$H(3)│105:V(3)│38-`.A$(4)│"BR12U24L12U6R30D6L12D24L6;BR25" :Гt-u8H(4)│140:V(4)│12-кBA$(5)│"U30R20D6L15D6R10D6L10D6R15D6NL20;BR6" :Гe-┐LH(5)│175:V(5)│38.VA$(6)│"U30R15F5D5G5L2M+8,+14;D1L5U1;M-8,-12;L3D13L5;BM+5,-25;R6F2D3G2L6U6" :Гr.'`H(6)│200:V(6)│12.C╨:Г*** DRAW "WINTER" ***.T┌╞"BM 30,10;".bфА R│1 е 6.nю╞ A$(R).v°Л R.ЙАTI│1 е 50:ЛTI.Ч А R│1 е 6.м├(H(R),V(R)),1,1.├ ЛR:АTI│1 е 800:ЛTI.╔*Р30R15F5D5G5L2M+8,+14;D1L5U1;M-8,-12;L3D13L5;BM+5,-2 $╓&hБе2010:Г ENTRDATA - GAME DATAENTRY AND PRINTING UTILITY (C) COPYRIGHT 1983 RICHARD A.WHITE&ЗI$│ Т:ЕI$│""з1:ДI│ Й(I$):Р&г З@64,"";:З═FT$;"1 G";:Р&└ З@80,"";:З═FT$;"2 GS";:Р&▐ З@96,"";:З═FT$;"3 MIN";:Р&№З@128,"";:З═FT$;"4 FG";:Р'З@144,"";:З═FT$;"5 FGA";:Р'3З═FT$;"6 3PT FG";:Р'UЗ@176,"";:З═FT$;"7 3PTFGA";:Р'iЗ═FT$;"8 FT";:Р'ИЗ@208,"";:З═FT$;"9 FTA";:Р'ЮЗ═FT$;"10 REB";:Р'╡З═FT$;"11 ASST";:Р'╩З═FT$;"12 PF";:Р'ыЗ@304,"";:З═FT$;"13 DISQ";:Р(З═FT$;"14 STEALS";:Р('З@336,"";:З═FT$;"15 BLOCKS";:Р(AЗ═FT$;"16 TRNOVRS";:Р(cЗ@368,"";:З═FT$;"17 DUNKS";:Р(╤Бж11:ЗGM(PL,1):Бж12:ЗGM(PL,2):Бж13:ЗGM(PL,3):Бж14:ЗGM(PL,4): Бж15:ЗGM(PL,5):Бж16:ЗGM(PL,6):Бж17:ЗGM(PL,7))3Бж18:ЗGM(PL,8):Бж19:ЗGM(PL,9):Бж20:ЗGM(PL,10):Бж21:ЗGM(PL,11):Бж22:ЗGM(PL,12):Бж23:ЗGM(PL,13))y Бж24:ЗGM(PL,14):Бж25:ЗGM(PL,15):Бж26:ЗGM(PL,16):Бж27:ЗGM(PL,17):Р)√#З:З"PREPARE RECORDER AND TAPE","PRESS ANY KEY WHEN READY":Бж1:З:З"WANT TO RUN PAST LEADER? Y/N":Бж1:ЕI$│"Y"зЯИ:АK│1е6000:Л:Як*$Р*│dPL│1:DT$│"":Бж950:Ю:З:Й"OPPONENT";OP$:Й"DATE AS MM-DD-YY. caution- do not use '/' or '.' which will cause an FN ERROR AND MAY CAUSE YOU TO LOOSE DATA.";DT$*╤nЮ:З@3,DT$" "OP$,NA$(PL)+ xБж13:ЙGM(PL,3):ЕGM(PL,3)│0зАY│1е18:GM(PL,Y)│0:Л:Бе163+[}Бж11:З" "1:GM(PL,1)│1:З@80,"";:З═FT$;"2 START=1";:ЙGM(PL,2):Бж14:ЙGM(PL,4)+МВБж15:ЙGM(PL,5):Бж16:ЙGM(PL,6):Бж17:ЙGM(PL,7)+╛МБж18:ЙGM(PL,8):Бж19:ЙGM(PL,9):Бж20:ЙGM(PL,10)+ЄЦБж21:ЙGM(PL,11):Бж22:ЙGM(PL,12):Бж23:ЙGM(PL,13),6аБж24:ЙGM(PL,14):Бж25:ЙGM(PL,15):Бж26:ЙGM(PL,16):Бж27:ЙGM(PL,17),[гЕNA$(PLл1)│""з165:ДPL│PLл1:Бе110,╘еЮ:З"ENTER OPPONENTS GAME STATS":Бж14:ЙOG(4):Бж15:ЙOG(5):Бж16:ЙOG(6):Бж17:ЙOG(7):Бж18:ЙOG(8):Бж19:ЙOG(9):Бж20:ЙOG(10)-vкБж21:ЙOG(11):Бж22:ЙOG(12):Бж23:ЙOG(13):Бж24:ЙOG(14):Бж25:ЙOG(15):Бж26:ЙOG(16):Бж27:ЙOG(17):З"UPDATING SEASON AND CAREER STATISTICS FILES. PLEASE WAIT.";-алАY│1е17:OP(Y)│OP(Y)лOG(Y):Л .>мАX│0е18:АY│0е18:CM(X,Y)│CM(X,Y)лGM(X,Y):CR(X,Y)│CR(X,Y)лGM(X,Y):Л:Л:Ю:З@11,"TEAM STATS":З:Й"U OF L TEAM REBOUNDS";GR(1):Й"U OF L DEADBALL REBOUNDS";GR(2).tпАY│1е17:T0│0:АX│1е18:T0│T0лCM(X,Y):Л:CM(0,Y)│T0:Л.э╛Й"OPPONENT TEAM REBOUNDS";GR(3):Й"OPPONENT DEADBALL REBOUNDS";GR(4):АX│1е4:RB(X)│RB(X)лGR(X):Л:RB(5)│RB(5)л1:DC$│DT$/:├АPL│1е18:CM(PL,18)│(CM(PL,4)н2лCM(PL,6)н3лCM(PL,8))оRB(5):Л:Бж900:Бе1000/╣╚Ю:DT$│"":З:З:Й"GAME DATE AS MM-DD-YY. caution- do not use '/' or '.' which will cause an FN ERROR. ";DT$:Бж9500]╥Ю:Зд8)"PLAYERS IN FILE":PA│32:АX│1е18:З@PA,═"##";X;:З" "NA$(X);:PA│PAл16:Л:PA│PAл32:З@PA,"ENTER # OF PLAYER TO REVIEW/EDIT" Л(94)" FOR MAIN MENU";:ЙI$:I│ Й(I$)0И╫ЕI$│ Л(94)зБж900:Бе1000:ДЕI┤1▒I▓18з2100╢▄PL│I:Ю:З@8,"REVIEW PLAYERS"::З@48,NA$(PL)1цБж30:З:З"ENTRY # TO CHANGE " Л(94)" WHEN DONE";:ЙI$:ЕI$│ Л(94)з210:ДI│ Й(I$):Е(I┤0▒I▓17)з2201ЖЁCM(PL,I)│CM(PL,I)мGM(PL,I):CR(PL,I)│CR(PL,I)мGM(PL,I):CM(0,I)│CM(0,I)мGM(PL,I):CR(0,I)│CR(0,I)мGM(PL,I)20їЗ@416,"":З:З@416,"ENTER NEW VALUE FOR ENTRY"I:ЙGM(PL,I):CM(PL,I)│CM(PL,I)лGM(PL,I):CR(PL,I)│CR(PL,I)лGM(PL,I):CM(0,I)│CM(0,I)лGM(PL,I):CR(0,I)│CR(0,I)лGM(PL,I):Бе2302g·З@416,"ENTER NEW VALUE FOR ENTRY"I:ЙCR(PL,I):Бе2302yX:ГTARGET LINE2╔]BP│ Ж(150):BU│ Ю(1,"61841 87 180", П( И(BP), З( И(BP))м1)):BU│4800оBU3┤bЮ:З@73,"PRINT ROUTINES",,," CURRENT BAUD RATE ="BU,д6)"RESET BAUD RATE",,," PRINT STATS TO PRINTER",,," PRINT STATS TO DISK",,," MAIN MENU",,,,"USE UP/DOWN ARROWS TO MOVE POINTER TO SELECTION AND PRESS enter.";3╜cCT│14wgCT$│ П( И(CT),1):LP│ Ю(1," 1 2 3 4",CT$):LP│LPн32л2:З@LP,">";:Бж1:З@LP," ";:ЕI$│ Л(10)░CT┤4зCT│CTTл1:Бе615:ДЕI$│ Л(94)░CT▓1зCT│CTм1:Бе615:ДЕI$┤▓ Л(13)з615:ДИCT Бе620,630,632,10004цlЗ" ";:Й"ENTER NEW BAUD RATE";BU$:BU$│ О(BU$,1):BL│ Ю(1,"36124",BU$):ЕBL│0зЗ"baud rate error":а100,50:Бе6055/qBU(1)│180:BU(2)│87:BU(3)│41:BU(4)│18:BU(5)│6:BU│BU(BL):Т150,BU:Бе6055>vD│м2:Бе6355XxD│1:Щ"O",#1,"TYPESET"5▌{Ю:ЕD│м2зЗ#м2,"":З#м2, Л(27) Л(20)"Current "DC$д50)SC$" Basketball Statistics":ДЗ#1,"Current "DC$:З#1,SC$" Basketball Statistics"5є|ЕD│м2зЗ#м2, Л(15)6.~N4$│"####":N3$│"###":NP$│"#.###":NA$│"% %"6╚АPL│1:З#D, б(15,32)" G-GS MIN-AVG FG-FGA PCT FT-FTA PCT REB-AVG ASST-AVG PF-D STL BLK TOVR DUNK TP - AVG":ЕD│м2зЗ#м2, Л(14)6▄ВЕNA$(PL)│""з6827PДЗ#D,"":З#D,═NA$;NA$(PL);:З#D,═"###";CM(PL,1);:З#D,"-";:З#D,═N3$;CM(PL,2);:З#D," ";:З#D,═N4$;CM(PL,3);:З#D,"-";7ПЖЕCM(PL,1)▓0зЗ#D,═"##.#";CM(PL,3)оCM(PL,1);:ДЗ#D,═"##.#";0;8 ИЗ#D," ";:З#D,═N3$;CM(PL,4);:З#D,"-";:З#D,═N3$;CM(PL,5);:З#D," ";:ЕCM(PL,5)▓0зЗ#D,═NP$;CM(PL,4)оCM(PL,5);:ДЗ#D,═NP$;0;8ЗКЗ#D," ";:З#D,═N3$;CM(PL,8);:З#D,"-";:З#D,═N3$;CM(PL,9);:З#D," ";:ЕCM(PL,9)▓0зЗ#D,═NP$;CM(PL,8)оCM(PL,9);:ДЗ#D,═NP$;0;8ьМЗ#D," ";:З#D,═N4$;CM(PL,10);:З#D,"-";:ЕCM(PL,1)▓0зЗ#D,═"#.#";CM(PL,10)оCM(PL,1);:ДЗ#D,═"#.#";0;9QОЗ#D," ";:З#D,═N4$;CM(PL,11);:З#D,"-";:ЕCM(PL,1)▓0зЗ#D,═"#.#";CM(PL,11)оCM(PL,1);:ДЗ#D,═"#.#";0;9оРЗ#D," ";:З#D,═N4$;CM(PL,12);:З#D,"-";:З#D,═"#";CM(PL,13);:З#D," ";:З#D,═N3$;CM(PL,14);: ТЗ#D," ";:З#D,═N3$;CM(PL,15);:З#D," ";:З#D,═N3$;CM(PL,16);:З#D," ";:З#D,═N3$;CM(PL,17);:ИУЗ#D," ";:TP│2нCM(PL,4)л3нCM(PL,6)лCM(PL,8):З#D,═N4$;TP;:З#D," - ";:ЕCM(PL,1)▓0зЗ#D,═"##.#";TPоCM(PL,1):ДЗ#D,═"##.#";0:нФЕCM(PL,1)│CR(PL,1)зPL│PLл1:Бе642;=ЦЗ#D,═NA$;" Career";:З#D,═"###";CR(PL,1);:З#D,"-";:З#D,═N3$;CR(PL,2);:З#D," ";:З#D,═N4$;CR(PL,3);:З#D,"-";:З#D,═"##.#";CR(PL,3)оCR(PL,1);;аШЗ#D," ";:З#D,═N3$;CR(PL,4);:З#D,"-";:З#D,═N3$;CR(PL,5);:З#D," ";:З#D,═NP$;CR(PL,4)оCR(PL,5);<ЪЗ#D," ";:З#D,═N3$;CR(PL,8);:З#D,"-";:З#D,═N3$;CR(PL,9);:З#D," ";:З#D,═NP$;CR(PL,8)оCR(PL,9);<УЬЗ#D," ";:З#D,═N4$;CR(PL,10);:З#D,"-";:З#D,═"#.#";CR(PL,10)оCR(PL,1);:З#D," ";:З#D,═N4$;CR(PL,11);:З#D,"-";:З#D,═"#.#";CR(PL,11)оCR(PL,1);<╙ЭЗ#D," ";:З#D,═N4$;CR(PL,12);:З#D,"-";:З#D,═"#";CR(PL,13);:=OЯЗ#D," ";:З#D,═N3$;CR(PL,14);:З#D," ";:З#D,═N3$;CR(PL,15);:З#D," ";:З#D,═N3$;CR(PL,16);:З#D," ";:З#D,═N3$;CR(PL,17);=░бЗ#D," ";:TP│2нCR(PL,4)л3нCR(PL,6)лCR(PL,8):З#D,═N4$;TP;:З#D," - ";:З#D,═"##.#";TPоCR(PL,1)=┬вPL│PLл1:Бе642>кЗ#D,═NA$;"";:З#D, Л(15) б(111,32) Л(14):SD$│SC$л" TOTALS":З#D,═NA$;SD$;:З#D, б(18,32);>ЙмЗ#D," ";:З#D,═N3$;CM(0,4);:З#D,"-";:З#D,═N3$;CM(0,5);:З#D," ";:З#D,═NP$;CM(0,4)оCM(0,5);:ДЗ#D,═NP$;0;?8оЗ#D," ";:З#D,═N3$;CM(0,8);:З#D,"-";:З#D,═N3$;CM(0,9);:З#D," ";:З#D,═NP$;CM(0,8)оCM(0,9);:З#D," ";:З#D,═N4$;CM(0,10)лRB(1);:З#D,"-";:З#D,═"##.#";(CM(0,10)лRB(1))оRB(5);?╥░З#D," ";:З#D,═N4$;CM(0,11);:З#D,"-";:З#D,═"##.#";CM(0,11)оRB(5);:З#D," ";:З#D,═N4$;CM(0,12);:З#D,"-";:З#D,═"#";CM(0,13);:З#D," ";:З#D,═N3$;CM(0,14);@Д▓З#D," ";:З#D,═N3$;CM(0,15);:З#D," ";:З#D,═N3$;CM(0,16);:З#D," ";:З#D,═N3$;CM(0,17);:З#D," ";:TP│2нCM(0,4)л3нCM(0,6)лCM(0,8):З#D,═N4$;TP;:З#D," - ";:З#D,═"##.#";TPоRB(5)@▒┤З#D,"":З#D,"Opponent's Totals" б(16,32);A╢З#D," ";:З#D,═N3$;OP(4);:З#D,"-";:З#D,═N3$;OP(5);:З#D," ";:З#D,═NP$;OP(4)оOP(5);:ДЗ#D,═NP$;0;Aк╕З#D," ";:З#D,═N3$;OP(8);:З#D,"-";:З#D,═N3$;OP(9);:З#D," ";:З#D,═NP$;OP(8)оOP(9);:З#D," ";:З#D,═N4$;OP(10);:З#D,"-";:З#D,═"##.#";OP(10)оRB(5);B:║З#D," ";:З#D,═N4$;OP(11);:З#D,"-";:З#D,═"##.#";OP(11)оRB(1);:З#D," ";:З#D,═N4$;OP(12);:З#D,"-";:З#D,═"#";OP(13);:З#D," ";:З#D,═N3$;OP(14);Bр╝З#D," ";:З#D,═N3$;OP(15);:З#D," ";:З#D,═N3$;OP(16);:З#D," ";:З#D,═N3$;OP(17);:З#D," ";:TP│2нOP(4)л3нOP(6)лOP(8):З#D,═N4$;TP;:З#D," - ";:З#D,═"##.#";TPоRB(5)Cn╛З#D,"":З#D,SC$" TEAM REBOUNDS"д30)RB(1)"-";:З#D,═"#.#";RB(1)оRB(5);:З#D,д50)"Opponent Team Rebounds:"д80)RB(2)"-";:З#D,═"#.#";RB(2)оRB(5)C¤┐З#D,SC$" DEADBALL REBOUNDS"д30)RB(3)"-";:З#D,═"#.#";RB(3)оRB(5);:З#D,д50)"Opponent Deadball Rebounds:"д80)RB(4)"-";:З#D,═"#.#";RB(4)оRB(5)D%└PL│1:З#D,"":З#D,"3 Point FG-FGA: ";D9┬ЕNA$(PL)│""з720Dв─ЕCM(PL,7)▓0зЗ#D,NA$(PL)" (";:З#D,═"#";CM(PL,6);:З#D,"-";:З#D,═N"#";CM(PL,7);:З#D,", ";:PL│PLл1:Бе706D╢╨З#D,"":Ъ:Бе1000E Ю:З@162,"sorting":PL│1:АX│0е18:АY│0е18:TM(X,Y)│0:TR(X,Y)│0:Л:OD(X)│X:Л:CT│0EK*ЕNA$(PLл1)│""зЕFL│1зPL│1:FL│0:CT│CTл1:З@183,"PASS "CT:Бе810:Д840Eu4ЕCM(PL,18)│▓CM(PLл1,18)зPL│PLл1:Бе810EО9АX│1е18:ЗCM(X,18);:ЛF)>FL│1:TP$│NA$(PL):NA$(PL)│NA$(PLл1):NA$(PLл1)│TP$:TP│OD(PL):OD(PL)│OD(PLл1):OD(PLл1)│TP:TP│CM(PL,18):CM(PL,18)│CM(PLл1,18):CM(PLл1,18)│TP:PL│PLл1:Бе810FдHАX│0е18:АY│0е17:TM(X,Y)│CM(OD(X),Y):TR(X,Y)│CR(OD(X),Y):Л:Л:АX│0е18:АY│0е17:CM(X,Y)│TM(X,Y):CR(X,Y)│TR(X,Y):Л:Л:Бе1000F┘ДЮ:З:З"SAVE TO 1 TAPE OR 2 DISK":Бж1:ЕI┤1▒I▓2з900FЁОD│1:ЕI│1зD│м1:Бж35GmШЩ"O",#D,"CURRSTAT":З#D,DC$:З#D,SC$:АK│0е18:З#D,NA$(K):АL│0е18:З#D,CR(K,L):З#D,CM(K,L):Л:З#D,OP(K):Л:АK│1е5:З#D,RB(K):Л:ЪG╒вЕDT$┤▓""зЩ"O",#D,DT$:З#D,OP$:З#D,DT$:АK│1е18:АL│1е18:З#D,GM(K,L):Л:З#D,OG(K):Л:АK│1е4:З#D,GR(K):Л:ЪG∙мЕI│1зI│0:ЯИ:АK│1е600:Л:Бе920:ДРH0╢Ю:З:З"LOAD FROM 1 TAPE OR 2 DISK":Бж1:ЕI┤1▒I▓2з950HB└D│1:ЕI│1зD│м1H┐╩Щ"I",#D,"CURRSTAT":Й#D,DC$:Й#D,SC$:АK│0е18:Й#D,NA$(K):АL│0е18:Й#D,CR(K,L):Й#D,CM(K,L):Л:Й#D,OP(K):Л:АK│1е5:Й#D,RB(K):Л:ЪI'╘ЕDT$┤▓""зЩ"I",#D,DT$:Й#D,OP$:Й#D,DT$:АK│1е18:АL│1е18:Й#D,GM(K,L):Л:Й#D,OG(K):Л:АK│1е4:Й#D,GR(K):Л:ЪI-▐РI└шЮ:З@42,"MAIN MENU":З:З" 1 ENTER NEW GAME STATISTICS":З:З" 2 EDIT/CORRECT CURRENT GAME FILE":З:З" 3 EDIT/CORRECT PREVIOUS GAME FILE"IїъЗ:З" 4 PRINT STATISTICS":З:З" 5 SORT ON AVERAGE"JЄБж1:ИI Бе100,210,200,600,800:Бе1000J&№PL│1JJЕNA$(PL)│""з110:ДPL│PLл1:Бе1030J╟╨Х1000:МNA$(18),CR(18,18),CM(18,18),GM(18,18),OG(18),OP(18),GR(4),RB(5),OD(18),TM(18,18),TR(18,18):FT$│"% %":Бе1000J╒┌└1:Бе2000TICS":З:З" 5 SORT ON AVERAGE"JЄБж1:И                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &├&%:Г*****CHARACTER GENERATOR*****&I:Г********COPYRIGHT 1982*******&m:Г****PRICKLY-PEAR SOFTWARE****&бХ:МC(6),C$(11,2),R$(7,2),MC(3,1),DA(17,7),D(10)&▀Бж199:Ю:З@34,"STRENGTH -------":З@52,ST:ЕES│1зЗ@56,"/";ER'М З@98,"INTELLIGENCE ---":З@116,IN:З@162,"WISDOM ---------":З@180,WI:З@226,"DEXTERITY ------":З@244,DX:З@290,"CONSTITUTION ---":З@308,CN:З@354,"CHARISMA -------":З@372,CH'┌ З@419,"RECORD THESE IF OK AND HIT":З@450,"'C' TO GO ON - 'R' TO RE-ROLL";'Ў K$│ Т:ЕK$│""з11:Да150,1( ЕK$┤▓"C"░K$┤▓"R"з11:ДЕK$│"R"з8() Ю:Бж34:Бж62(mЮ:C$(1,2)│"CLERIC":Е(R┤▓6)░IN▓5░ST▓5░CN▓5░CH▓5░WI▓8зC$(1,1)│"Y"(╩C$(2,2)│"DRUID":Е(R┤▓2)░(R┤▓3)░(R┤▓4)░(R┤▓7)░IN▓5░ST▓5░DX▓5░CN▓5░WI▓11░CH▓14зC$(2,1)│"Y")C$(3,2)│"FIGHTER":ЕST▓8░CN▓6░WI▓5░DX▓5░CH▓5зC$(3,1)│"Y")PC$(4,2)│"PALADIN":Е(R│1)░DX▓5░ST▓11░IN▓8░WI▓12░CN▓8░CH▓16зC$(4,1)│"Y")ЮC$(5,2)│"RANGER":Е(R│1▒R│5)░DX▓5░CH▓5░ST▓12░IN▓12░WI▓13░CN▓13зC$(5,1)│"Y")ыC$(6,2)│"MAGIC-USER":Е(R│1▒R│3▒R│5)░WI▓5░CN▓5░CH▓5░IN▓8░DX▓6зC$(6,1)│"Y"*7C$(7,2)│"ILLUSIONIST":Е(R│1▒R│4)░ST▓5░WI▓5░CH▓5░IN▓14░DX▓15зC$(7,1)│"Y"*qC$(8,2)│"THIEF":ЕST▓5░IN▓5░CN▓5░CH▓5░DX▓8зC$(8,1)│"Y"*╕C$(9,2)│"ASSASSIN":Е(R┤▓6)░WI▓5░CN▓5░ST▓11░IN▓10░DX▓11зC$(9,1)│"Y"+C$(10,2)│"MONK":Е(R│1)░IN▓5░CH▓5░ST▓14░WI▓14░DX▓14░CN▓10зC$(10,1)│"Y"+#АX│1е10:ЕC$(X,1)│"Y"зCX│CXл1+eЛX:ЕCX│0зЗ"THESE SCORES QUALIFY FOR NOTHING":АX│1е1000:ЛX:Бе8+ЪC$(11,2)│"MULTI-CLASSED":ЕCX▓1░R┤▓1зC$(11,1)│"Y"+¤З"THIS CHARACTER QUALIFIES TO BE:":З:АX│1е11:ЕC$(X,1)│"Y"зЗ" ";:З═"##.";X;:З" ";C$(X,2),ИЛX:З:Й" enter YOUR CHOICE";CL$:а150,1:MC(1,0)│ Й(CL$):C│MC(1,0):ЕC$(MC(1,0),1)┤▓"Y"зЗ" enter a number shown":АX│1е1000:ЛX:Ю:Бе27,ЮЕMC(1,0)│11зБе185,╣CL$│C$(MC(1,0),2):NC│1,юY│0:АX│1еNC:ЕMC(X,0)│3▒MC(X,0)│4▒MC(X,0)│5зY│Yл1- ЛX:ЕY│0░ES│1зES│0:ER│0-!Бе66-З"З" THESE SCORES QUALIFY TO BE A:":R$(1,2)│"HUMAN":R$(1,1)│"Y":R$(2,2)│"DWARF":Е(ST▓7)░(CN▓10)░(CH▓4)зR$(2,1)│"Y"-┬#R$(3,2)│"ELF":Е(IN▓7)░(DX▓5)░(CN▓6)░(CH▓7)зR$(3,1)│"Y"-°$R$(4,2)│"GNOME":Е(ST▓5)░(IN▓6)░(CN▓7)зR$(4,1)│"Y".1%R$(5,2)│"HALF-ELF":Е(IN▓3)░(DX▓5)░(CN▓5)зR$(5,1)│"Y".q&R$(6,2)│"HALFLING":Е(ST▓6)░(IN▓5)░(DX▓6)░(CN▓9)зR$(6,1)│"Y".д'R$(7,2)│"HALF-ORC":Е(ST▓4)░(CN▓11)зR$(7,1)│"Y".у(З:АX│1е7:ЕR$(X,1)│"Y"зЗ" ";:З═"##.";X;:З" ";R$(X,2).ъ)ЛX.■*K$│ Т:ЕK$│""з42/#+а150,1:R│ Й(K$):ЕR$(R,1)┤▓"Y"з42/A,ИR Бе45,46,49,50,51,52,55/R-R$│"HUMAN":Р/~.R$│"DWARF":CN│CNл1:CH│CHм1:ЕDX▓17зDX│17/П/ЕCH▓16зCH│16/Х0Р/┤1R$│"ELF":DX│DXл1:CN│CNм1:Р/┼2R$│"GNOME":Р/┘3R$│"HALF-ELF":Р04R$│"HALFLING":ST│STм1:ES│0:ER│0:DX│DXл1:ЕWI▓17зWI│170#5ЕDX▓18зDX│180)6Р0`7R$│"HALF-ORC":ST│STл1:CN│CNл1:CH│CHм2:ЕIN▓17зIN│170p8ЕWI▓14зW│140Б9ЕDX▓14зDX│140Т:ЕCH▓12зCH│120и;ЕST▓18зST│18:Бе610├<ЕST│18зER│ Д(100):ES│10╔=Р1>Ю:З@34,"STRENGTH -------":З@52,ST:ЕES│1зЗ@56,"/";ER1о?З@98,"INTELLIGENCE ---":З@116,IN:З@162,"WISDOM ---------":З@180,WI:З@226,"DEXTERITY ------":З@244,DX:З@290,"CONSTITUTION ---":З@308,CN:З@354,"CHARISMA -------":З@372,CH1ў@З:З" RECORD THESE NEW RACE-ADJUSTED":З" VALUES, THEN HIT ANY KEY"2AK$│ Т:ЕK$│""з65:Да150,1:Р2sBЮ:З:З" enter THE LEVEL AS -":АX│1еNC:З:З" ";C$(MC(X,0),2);:ЙL$:MC(X,1)│ Й(L$):а150,1:ЛX2ЬCЗ:З" enter THIS ";R$(R,2);"'S SEX."2╝DЗ" HIT 'F' OR 'M' PLEASE."2╪ES$│ Т:ЕS$│""з69:Да150,13FЕS$┤▓"F"░S$┤▓"M"з69:ДЕS$│"F"зS$│"FEMALE":ДS$│"MALE"35GЗ:З" enter THE NAME":З" ";:ЙN$3zHЮ:ИCN Бе73,73,73,74,74,74,75,75,75,75,75,75,75,75,76,77,78,78,783ЙICB│м2:Бе813ШJCB│м1:Бе813бKБе813пLCB│1:Бе813╜MCB│2:Бе813эNАX│1еNC:ЕMC(X,0)│3▒MC(X,0)│4▒MC(X,0)│5зБе803■OЛX:CB│2:Бе814(PЕCN│17зCB│3:ДЕCN│18зCB│4:ДЕCN│19зCB│54uQD(1)│8:D(2)│8:D(3)│10:D(4)│10:D(5)│8:D(6)│4:D(7)│4:D(8)│6:D(9)│6:D(10)│44├RАZ│1еNC:З" ";C$(MC(Z,0),2);:ЕMC(Z,0)│5▒MC(Z,0)│10зL│MC(Z,1)л1:ДL│MC(Z,1)5SАY│1еL:RP│ Д(D(MC(Z,0))):ЗRP;:ЕMC(Z,0)│3▒MC(Z,0)│4▒MC(Z,0)│5з865#TЕCB▓2зRP│RPл2:ДRP│RPлCB5,UБе8759VRP│RPлCB5WWHP│HPлRP:ЛY:З:ЛZ:HP│HPоNC5xXЗ" CONSTITUTION BONUS =";CB5СYЗ" HIT POINTS =";HP5┬ZЕ Б(HP)│HP з93:ДЗ" ROUND UP OR DOWN? (U/D)"6[K$│ Т:ЕK$│""з91:Да150,1:ЕK$┤▓"U"░K$┤▓"D"з91:ДЕK$│"D"зHP│ Б(HP):ДHP│ Б(HP)л16\Бе896C]З:З" RECORD THIS, THEN HIT ANY KEY"6_^K$│ Т:ЕK$│""з94:Да150,16Ш_Ю:C7│MC(1,0):C8│MC(2,0):C9│MC(3,0):ЕC│11зБж163:Бе1256╟`AC│MC(1,0):ИR Бе97,104,107,111,115,119,1226эaЕAC│1▒AC│2▒AC│8зAG│18л Д(4):Бе1257 bЕAC│3зAG│15л Д(4):Бе1257%cЕAC│4зAG│17л Д(4):Бе1257FdЕAC│5▒AC│9зAG│20л Д(4):Бе1257heЕAC│6зAG│24л Д(8)л Д(8):Бе1257ДfЕAC│7зAG│30л Д(6):Бе1257ЪgAG│21л Д(4):Бе1257┐hЕAC│1зAG│250л Д(20)л Д(20):Бе1257єiЕAC│3зAG│40л Д(4)л Д(4)л Д(4)л Д(4)л Д(4):Бе1258jAG│75л Д(6)л Д(6)л Д(6):Бе1258KkЕAC│1зАX│1е10:A│ Д(10):AG│AGлA:ЛX:AG│AGл500:Бе1258АlЕAC│3зAG│130л Д(6)л Д(6)л Д(6)л Д(6)л Д(6):Бе1258╡mЕAC│6зAG│150л Д(6)л Д(6)л Д(6)л Д(6)л Д(6):Бе1258уnAG│50л Д(6)л Д(6)л Д(6)л Д(6)л Д(6):Бе1259oЕAC│1зAG│300л Д(12)л Д(12)л Д(12):Бе1259CpЕAC│3зAG│60л Д(4)л Д(4)л Д(4)л Д(4)л Д(4):Бе1259hqЕAC│7зAG│100л Д(12)л Д(12):Бе1259ЦrAG│80л Д(4)л Д(4)л Д(4)л Д(4)л Д(4):Бе1259╜sЕAC│1▒AC│2зAG│40л Д(4)л Д(4):Бе1259ъtЕAC│3▒AC│5зAG│22л Д(4)л Д(4)л Д(4):Бе125: uЕAC│6зAG│30л Д(8)л Д(8):Бе125:.vAG│22л Д(8)л Д(8)л Д(8):Бе125:KwЕAC│1зAG│80л Д(12):Бе125:sxЕAC│3зAG│20л Д(4)л Д(4)л Д(4):Бе125:ПyAG│40л Д(4)л Д(4):Бе125:лzЕAC│1зAG│20л Д(4):Бе125:╟{ЕAC│3зAG│13л Д(4):Бе125:▌|AG│20л Д(4)л Д(4):ў}З:З" THE AGE IS: ";AG;~ИR Бе127,128,129,130,131,132,133;@HT│68л Д(8):WT│167л Д(16):Бе134;dАHT│45л Д(6):WT│142л Д(16):Бе134;ЖБHT│56л Д(8):WT│96л Д(8):Бе134;иВHT│39л Д(6):WT│76л Д(8):Бе134;╠ГHT│62л Д(8):WT│122л Д(16):Бе134;юДHT│33л Д(6):WT│56л Д(8):Бе134< ЕHT│62л Д(8):WT│142л Д(16)<^ЖЗ:З" THE HEIGHT IS";HT:З:З" THE WEIGHT IS";WT:З:З" RECORD THESE VALUES, THEN"<~ЗЗ" HIT ANY KEY TO CONTINUE"<ЫИK$│ Т:ЕK$│""з136:Да150,1<│ЙЕC7│8▒C8│8▒C9│8з141<яКЕ(C7│9░MC(1,1)▓2)▒(C8│9░MC(2,1)▓2)▒(C9│9░MC(3,1)▓2)з141= ЛЕC7│10▒C8│10▒C9│10з141=МБе142=НБж206=AОЮ:Y│0:АX│1еNC:ЕMC(X,0)│1зY│Yл1=QПЛX:ЕY│0з155=`РЕWI┤13з155=лСЗ" **CLERIC SPELL BONUS**":З:W9│WIм12:ИW9 Бе151,150,149,148,147,146=┬ТЗ" 1 FOURTH LEVEL"=╪УЗ" 1 THIRD LEVEL"=яФЗ" 1 SECOND LEVEL">ХЗ" 1 SECOND LEVEL">ЦЗ" 1 FIRST LEVEL">1ЧЗ" 1 FIRST LEVEL>OШЗ:З" ALL ARE CUMULATIVE">КЩЗ:З" RECORD THIS INFORMATION,":З" THEN HIT ANY KEY.">зЪK$│ Т:ЕK$│""з154:Да150,1>нЫЮ>щЬЗ" THIS CONCLUDES THE GENERATION":З" OF THIS CHARACTER"?9ЭЗ:З" ";N$:З" ";R$:З" ";CL$:З" LEVEL(S) ";:АX│1еNC:З" -";:ЗMC(X,1);" ";:ЛX:З?ЫЮЗ" HIT POINTS =";HP:З" AGE =";AG;" HEIGHT =";HT:З" WT. =";WT;" STR. =";ST;:ЕES│1зЗ"/";ER :ДЗ?¤ЯЗ" INTEL. =";IN;" WISDOM =";WI:З" DEX. =";DX;" CONST. =";CN:З" CHARISMA =";CH;" SEX = ";S$@аЗ@480,"HIT ANY KEY";:K$│ Т@>бK$│ Т:ЕK$│""з161:Да150,1:Бе 4@cгИR Бе164,164,167,171,175,179,182@АдЕC7│1▒C8│1▒C9│1зAG│290:Р@леЕC7│8▒C7│9▒C8│8▒C8│9▒C9│8▒C9│9зAG│93:Р@╖жAG│60:Р@╘зЕC7│1▒C8│1▒C9│1зAG│600:Р@ёиЕC7│6▒C8│6▒C9│6зAG│180:РAйЕC7│3▒C8│3▒C9│3зAG│160:РAкAG│80:РA7лЕC7│1▒C8│1▒C9│1зAG│336:РATмЕC7│7▒C8│7▒C9│7зAG│124:РAАнЕC7│8▒C7│9▒C8│8▒C8│9▒C9│8▒C9│9зAG│100:РAМоAG│80:РA╖пЕC7│1▒C7│2▒C8│1▒C8│2▒C9│1▒C9│2зAG│48:РA╙░ЕC7│6▒C8│6▒C9│6зAG│46:РA■▒ЕC7│8▒C7│9▒C8│8▒C8│9▒C9│8▒C9│9зAG│46:РB ▓AG│34:РB&│ЕC7│2▒C8│2▒C9│2зAG│92:РBB┤ЕC7│8▒C8│8▒C9│8зAG│48:РBN╡AG│32:РBy╢ЕC7│8▒C7│9▒C8│8▒C8│9▒C9│8▒C9│9зAG│28:РBХ╖ЕC7│1▒C8│1▒C9│1зAG│24:РBб╕AG│17:РB└╣З" HOW MANY CLASSES?"B▌║K$│ Т:ЕK$│""з186:Да150,1C╗NC│ Й(K$):ЕNC┤2▒NC▓CX ▒NC▓3з186C ╝АX│1еNCC-╜З@449," ENTER CLASS #";XCJ╛K$│ Т:ЕK$│""з190:Да150,1Cu┐MC(X,0)│ Й(K$):ЕC$(MC(X,0),1)┤▓"Y"з190CВ└ЕX│1з197CЧ┴ИX Бе197,194,195C╡┬ЕMC(X,0)│MC(1,0)з189:Д196Cу├ЕMC(X,0)│MC(1,0)▒MC(X,0)│MC(2,0)з189:Д196D─CL$│CL$л"/"лC$(MC(X,0),2):Бе198D┼CL$│C$(MC(X,0),2)DT╞З@470,"*";MC(X,0);"*":АXX│1е500:ЛXX:а150,1:ЛX:Бе66DЫ╟АC│1е6:C(C)│0:ES│0:ER│0:АC│1е6:D1│ Д(6):D2│ Д(6):D3│ Д(6):D4│ Д(6)D╧╚Е(D1│┤D2)░(D1│┤D3)░(D1│┤D4)зC(C)│D2лD3лD4:Бе204E╔Е(D2│┤D1)░(D2│┤D3)░(D2│┤D4)зC(C)│D1лD3лD4:Бе204E7╩Е(D3│┤D1)░(D3│┤D2)░(D3│┤D4)зC(C)│D1лD2лD4:Бе204EI╦C(C)│D1лD2лD3EЧ╠ЛC:ST│C(1):IN│C(2):WI│C(3):DX│C(4):CN│C(5):CH│C(6):ЕST│18зES│1:ER│ Д(100)EЭ═РE╜╬ЕMC(1,0)│10зL│MC(1,1):Бе211Eх╧АX│1еNC:ЕMC(X,0)│8зL1│MC(X,1):Бе210F╨ЛX:АX│1еNC:ЕMC(X,0)│9зL2│(MC(X,1)м2):Бе210F╤ЛXF3╥ЕL1▓L2 зL│L1 :ДL│L2Ft╙Ю:З" ***JUST A MOMENT***":АX│1е17:АY│0е7:НDA(X,Y):ЛY:ЛXF╨╘PP│DA(L,0):OL│DA(L,1):FT│DA(L,2):MS│DA(L,3):HS│DA(L,4):HN│DA(L,5):CW│DA(L,6):RL│DA(L,7)Fф╒D│DX:ЕD▓18зD│18G╓D│Dм8:ИD Бж222,223,224,225,226,226,226,227,228,229GF╫ИR Бж226,216,217,218,219,220,221:Бе230Go╪OL│OLл10:FT│FTл15:CW│CWм10:RL│RLм5:РGЮ┘PP│PPл5:OL│OLм5:MS│MSл5:HS│HSл10:HN│HNл5:РG╫┌OL│OLл5:FT│FTл10:MS│MSл5:HS│HSл5:HN│HNл10:CW│CWм15:РGю█PP│PPл10:HS│HSл5:РH7▄PP│PPл5:OL│OLл5:FT│FTл5:MS│MSл10:HS│HSл15:HN│HNл5:CW│CWм15:RL│RLм5:РHn▌PP│PPм5:OL│OLл5:FT│FTл5:HN│HNл5:CW│CWл5:RL│RLм10:РHб▐PP│PPм15:OL│OLм10:FT│FTм10:MS│MSм20:HS│HSм10:РH╥▀PP│PPм10:OL│OLм5:FT│FTм10:MS│MSм15:HS│HSм5:РHёрPP│PPм5:FT│FTм5:MS│MSм10:РH сMS│MSм5:РIтРIуOL│OLл5:РI:фPP│PPл5:OL│OLл10:MS│MSл5:HS│HSл5:РIlхPP│PPл10:OL│OLл15:FT│FTл5:MS│MSл10:HS│HSл10:РI╗цЮ:З@5,"**THIEVING ABILITIES**";:ЕMC(1,0)┤▓10зЗ@67,"PICK POCKETS ---- ";PPI▌чЗ@99,"OPEN LOCKS ------ ";OLJшЗ@131,"FIND TRAPS ------ ";FTJ#щЗ@163,"MOVE SILENTLY --- ";MSJFъЗ@195,"HIDE IN SHADOWS - ";HSJiыЗ@227,"HEAR NOISE ------ ";HNJМьЗ@259,"CLIMB WALLS ----- ";CWJ╝эЕMC(1,0)┤▓10зЗ@291,"READ LANGUAGES -- ";RLJшюЗ@353,"RECORD THESE, THEN HIT ANY KEY";KяK$│ Т:ЕK$│""з239:Да150,1:РK▓ЁЖ 30,25,20,15,10,10,85,0,35,29,25,21,15,10,86,0,40,33,30,27,20,15,87,0,45,37,35,33,25,15,88,20,50,42,40,40,31,20,90,25,55,47,45,47,37,20,92,30,60,52,50,55,43,25,94,35LЖёЖ 65,57,55,62,49,25,96,40,70,62,60,70,56,30,98,45,80,67,65,78,63,30,99,50,90,72,70,86,70,35,99.1,55,100,77,75,94,77,35,99.2,60,105,82,80,99,85,40,99.3,65,110,87,85,99,93,40,99.4,70,115,92,90,99,99,50,99.5,75L┬ЄЖ 125,97,95,99,99,50,99.6,80,125,99,99,99,99,55,99.7,8049,25,96,40,70,62,60,70,56,30,98,45,80,67,65,78,63,30,99,5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 & :ГCOMPATIBILITY TEST&/ :ГBY SIMON CLIFT&H :Г1095 WITHERS CRES.&b:ГKINCARDINE, ONTARIO&x:ГCANADA N0G 2G0&Ж└1:Х 2000&ХМAN$(1,25)&╖(Ю:З"ARE YOU TWO MEANT TO BE?"&¤2З:З" THIS IS A TEST TO SEE IF YOU AND YOUR VIP ARE COMPATIBLE."'U<З" THIS TEST WILL ASK YOU TWENTY- FIVE QUESTIONS WHICH YOU MUST ANSWER HONESTLY."'║FЗ" YOU ARE TO TAKE THE TEST FIRST,THEN YOUR VIP. AND NO PEEKING AT THE OTHER ONE'S ANSWERS!!!"'▌PЗ:З"PRESS ANY KEY TO BEGIN..."'юZЕ  Т│"" з 90'∙dАI│0е1(+nЮ:З"WHAT'S YOUR FAVOURITE PIZZA TOPPING:"(╢xЗ"1. MUSHROOMS":З"2. PEPPERONI":З"3. ANCHOVIES":З"4. GREEN PEPPERS":З"5. SAUSAGE":З"6. A COMBONATION OF THE ABOVE 7. SOMETHING ELSE"(╦ВQN│1:NA│7:Бж 420)9МЗ"1. I LIKE THE BED COVERS TUCKED IN WHEN I SLEEP.":З"2. NO, I LIKE THEM PULLED OUT.":QN│2:NA│3:Бж 420)╛ЦЗ"IF SOMEONE ASKS MY AGE I MOST OFTEN:":З"1. TELL THE TRUTH":З"2. DON'T TELL THE TRUTH":З"3. AVOID ANSWERING":QN│3:NA│3:Бж 420*hаЗ"IF I HAD A CHOICE OF THREE POSSIBLE DESTINATIONS ON A FREE HOLIDAY,I WOULD CHOOSE:":З"1. LONDON, ENGLAND":З"2. HAWII":З"3. SYDNEY, AUSTRALIA":QN│4:NA│3:Бж 420+кЗ"1. I THINK THAT TEACHERS HAVE NO RIGHT TO HIT KIDS":З"2. I THINK THEY SHOULD STRIKE CHILDREN IF THE OCCASION REQUIRES":QN│5:NA│2:Бж420+е┤З"1. TOILET PAPER SHOULD BE HUNG SO THAT IT COMES OF THE TOP OF THE ROLL.":З"2. NO, IT SHOULD COME OFF THE BOTTOM OF THE ROLL.":QN│6:NA│2:Бж 420,;╛З"WHEN DRIVING ON AN OPEN HIGHWAY I USUALLY GO:":З"1. BELOW THE SPEED LIMIT":З"2. AT THE SPEED LIMIT":З"3. ABOVE THE SPEED LIMIT":QN│7:NA│3:Бж420-'╚З"1. PARTIES ARE FUN TO GO TO, BUT I HATE THROWING THEM.":З"2. I LIKE TO THROW PARTIES, BUT I HATE TO GO TO THEM.":З"3. I THINK IT'S FUN TO BOTH GO TO AND THROW PARTIES.":З"4. I DON'T LIKE PARTIES AT ALL.":QN│8:NA│4:Бж 420-╛╥З"I THINK THAT AFTER WATERGATE, RICHARD NIXON:":З"1. GOT WHAT HE DESERVED":З"2. SHOULD HAVE GOTTEN LOTS WORSE3. WAS RAILROADED":QN│9:NA│3:Бж 420.▄З"1. I ENJOY EATING SPICY FOOD.":З"2. I HATE SPICY FOOD.":QN│10:AN│2:Бж 420.ацЗ"1. I USUALLY TEND TO LEAVE CLOSET DOORS, AND DRAWERS OPEN A BIT":З"2. SLOB, I CLOSE THEM ALL THE WAY.":QN│11:NA│2:Бж 420/^ЁЗ"1. I LIKE TAKING PHOTOS OF PLACES I'VE BEEN, FAMILY, AND FRIENDS.":З"2. PHOTOGRAPHS BORE ME, I'M MORE INTERESTED IN THE PEOPLE AND PLACES THEMSELVES.":QN│12:NA│2:Бж 4200·З"IF I WANT A LOAF OF BREAD OR A MAGAZINE, AND I'M LESS THAN ONE MILE FROM THE STORE, I USUALY":З"1. DRIVE":З"2. BICYCLE":З"3. WALK":З"4. FIND SOMEONE ELSE TO GO":QN│13:NA│4:Бж 4200ЩЗ"1. THERE'S NOTHING WRONG WITH AN AFTER-DINNER SNACK.":З"2. I NEVER EAT AFTER DINNER TILL BREAKFAST.":QN│14:NA│2:Бж 4201CЗ"1. I'D GO BOWLING RATHER THAN TO A DANCE.":З"2. NO, DANCING IS MUCH MORE FUN 3. ARE YOU KIDDING? I WOULDN'T BE CAUGHT DEAD DOING EITHER":QN│15:NA│3:Бж 4201рЗ"1. I EAT BREAKFAST AS SOON AS I GET UP.":З"2. I HAVE TO BE UP AWHILE BEFORE I START EATING.":З"3. I RARELY EVER EAT BREAKFAST.":QN│16:NA│3:Бж 4202B"З"AT A FOREIGN MOVIE I PREFER:":З"1. WRITTEN SUBTITLES":З"2. DUBBED VOICES":QN│17:NA│2:Бж 4202╩,З"1. I OFTEN GO TO BED AFTER MID- NIGHT":З"2. ME? ONLY SOMETIMES.":З"3. NO, I RARELY STAY UP THAT LATE.":QN│18:NA│3:Бж 4203к6З"1. THINK THINGS LIKE REMOTE CONTROL TV AND AUTO GARAGE DOOR OPENERS ARE PART OF TODAY'S KIND OF LIVING.":З"2. NONSENSE, HEALTHY PEOPLE WHO USE THAT KIND OF THING ARE LAZY!":QN│19:NA│2:Бж 4204@З"1. I ENJOY HAGGLING MY WAY TO A BETTER PRICE.":З"2. I NEVER DO, IT EMBARRASES ME.":QN│20:NA│2:Бж 4204│JЗ"1. I'M FOR CAPITAL PUNISHMENT.":З"2. EXECUTIONS ARE ONLY JUSTIFIED IN SOME CASES.":З"3. CAPITAL PUNISHMENT SHOULD BE BANNED!":QN│21:NA│3:Бж 4205TЗ"1. BALLET PUTS ME TO SLEEP!":З"2. BALLET? I LOVE BALLET!":QN│22:NA│2:Бж 4205С^З"1. I DON'T LIKE PEOPLE TO BE OVERWEIGHT.":З"2. OH, THERE'S NOTHING WRONG WITH BEING 10-20 POUNDS OVER.":QN│23:NA│2:Бж 4205єhЗ"1. I THINK DRESSING UP IS A PAIN2. I LOVE FANCY DRESSING NOW AND THEN.":QN│24:NA│2:Бж 4206MrЗ"1. IT IS CORRECT TO SAY TOmayTO":З"2. NO, ONE SHOULD SAY TOmahTO":QN│25:NA│2:Бж 4206]|Е I│1 з 4507 ЖЗ" NOW BRING IN YOUR VIP AND LET HIM/HER TAKE THE TEST. DON'T TELL THEM ANY OF YOUR ANSWERS SOTHAT THE RESULTS WILL BE ACCURATE":З:З"PRESS ANY KEY TO BEGIN..."7РЕ  Т│"" з 4007&ЪЛ I7@дЙ">>ANSWER";AN$(I,QN)7^оAN$(I,QN)│ П(AN$(I,QN),1)7Ф╕Е  Й(AN$(I,QN))┤1 ▒  Й(AN$(I,QN))▓NA з 420 :Д Ю:Р7╫┬З" THAT COMPLETES THE TEST. I AM NOW TESTING THE RESULTS...."7ц╠А I│1 е 258╓Е AN$(0,I)│AN$(1,I) з PT│PTл48рЛ I8хъЕ PT┤50 з З:З" SORRY, YOU TWO JUST DON'T SEEM TO BE COMPATIBLE.":З" ON THE OTHER HAND, PEOPLE WHO SEEM INCOMPATIBLE HAVE BEEN KNOWN TO LAST A LIFETIME TOGETHER. DON'T YOU KNOW SOME OFTHEM?":Бе 5309QЇЕ PT▓│50 ░ PT┤│70 з З:З"IF YOU'RE YOUNG OR ESPECIALLY FLEXIBLE, YOU MIGHT MAKE IT TO- GETHER.":Бе 5309┤■Е PT▓│70 ░ PT┤90 зЗ:З"WITH A FEW COMPROMISES, YOU SHOULD HAVE A VIABLE PARNERSHIP.":Бе 5309▐Е PT▓│90 з З:З"A MATCHMAKER'S DREAM.":З" OUT OF A POSSIBLE 100, YOU TWO SCORED";PT:&КECIALLY FLEXIBLE, YOU MIGHT MAKE IT TO- GETHER.":Бе 5309┤■Е PT▓│70 ░ PT┤90 зЗ:З"WITH A FEW COMPROMISES, YOU SHOULD HAVE A VIABLE PARNERSHIP.":Бе 5309▐Е PT▓│90 з З:З"A MATCHMAKER'S DREAM.":З" OUT OF A POSSIBLE 100, YO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                a╬Ж~О▓╖О┐ПО`жДCcДбД&cА є0Й ┐<╬Ж`ОЯИзАМ%∙_╜йЭОП╜ё╜∙ Е Ж @нЯаОPЯ~нЯа |&я Б&ы╜▐ОаЯИОс╜ёОP╞жА╜чZ&°ОЇ╜ёОЗ╢XБ#ЖHоЖ╜ёО=╜$&ИО` }Z' 4╜▐нЯа5Я~нЯа╞ Б&ёЦ|Б 'J&ц╝<%╥╞ ~▓┐>╜▐╢XБ&/}Z&*0 ┐>№[эГoВoВЖ зВжзВМe"ў№]эГ№>ГjэГoВ}X&╛>0┐>жзВМc"ў№>ГcэГЖ зВО ЯИОS╜ёОh╜ё╜∙╛X┐ W╢ ZЧыО LЖ зАМ W%∙О@╞ \mЕ&√╬v4@oт╬{~mЖO╞╬╜mО`ЖЧoжА4нЯа5╝>%ё╬Г╜mОy╜ёО─╜$'■zqnЯ ■4╬Г╜mН"цф╬┘о┴с─'m└&Ў╜ё5ОЩ┴'╚┴ '─~?╢ !Дў╖ !94oнЯа5ЦжА'ёНЁ °О@НBБ &oД сБ& М@'эoВН╘ чБ %уМO'▐зАН┼ ╪╜ёНБN&О8Н┐К 9БY&юО3Н│O94жЯИЛКПзЯИОА0'энЯаM'їО╗Б' :╞`чЯИ5Ф4╢└ДH3╞5n╘╚д╔R─h─Н╩;╩щ№ ( TAPE TO DISK FILE TRANSFER ========================== READY TAPE & HIT ENTER? THE FILE IS NAMED IT IS A BASIC PROGRAMA DATA FILEAN M.L. PROGRAMIN NON STANDARD FORM TRANSFER THIS FILE? THE LOAD IS COMPLETE DISK FILENAME? THE FILE TRANSFER IS COMPLETE THE PROCEDURE HAS BEEN CANCELLED START PROGRAM ANEW? ш8°<> )DISK SPACE FULLDISK IS WRITE PROTECTEDBAD FILENAMEBUFFER FULLI/O ERRORYES NO                   E DISK FILENAME? THE FILE TRANSFER IS COMPLETE THE PROCEDURE HAS BEEN CANCELLED START PROGRAM ANEW? ш8°<> )DISK SPACE FULLDIS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 /-^В karrak-WRITTEN BY GREGORY CLARK,122 MALE AVE,SYRACUSE,NY 13219/315-487-8406/16K BASICпdЮ(0):МB$(20),C$(20),C(20),D$(20),D(20),A1$(25),A2$(25),A3$(25),KA(12),AK(12)╜fX│ Д(м Я)AiАX│1е20:НB$(X):Л:АX│1е20:НC$(X):Л:АX│1е20:НD$(X):Л:АX│1е25:НA2$(X):Л:АX│1е25:НA1$(X):Л:АX│1е25:НA3$(X):Л:АX│1е12:НKA(X),AK(X):ЛYjN$│"KARRAK IS DEAD"okЕAK(12)┤▓49з26000└nЮ(0):C(7)│301:AH│15:AI│10:C(7)│301:C(5)│124:D(1)│123:P│123:HV│20:VV│3:LV│100 ]МАX│1030е1510й32:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1043е1260й31:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1292е1523й33:АY│0е5:BK│Yл1:ТXлY,AK(BK):ЛY,X:АX│1е4000:Л zПЮ:АX│1е12:ТKA(X),AK(X):Л зСЗ@0,"location":З@32,"moves":З@64,"i see" ╢УMV│1:Бе975 эЦа100,1:З@224,"":З@192,"WHAT DO YOU WANT TO DO":ЙA$!0ШЗ@256,"":З@288,"":З@320,"":З@352,"":З@384,"":З@416,"":З@448,""!QЫB│0:C│0:J│0:MV│0:H$│"":F$│""!ДЯЕA$│"]"зЗ@160,"KARRAK'S STRENGTH=" Б(AG):Бе150!ЫаЕA$│"&"зMV│1:Бе143!▒бЕA$│"["зB│7:Бе900!╟вЕA$│"^"зB│5:Бе600!сгЕA$│"_"зB│1:C│9:Бе300"дЕAK(12)│52░P│115░A$│"N"зN│1"CеЕA$│"!"▒A$│"="зЕAE│0░AF│0зЗ@288,"NOTHING TO FIGHT HERE":Бе150"iжЕA$│"!"░C(1)│1зB│2:H$│C$(1):Бе245"РзЕA$│"="░C(4)│1зB│11:H$│C$(4):Бе245"╕иЕA$│"!"░C(12)│1зB│2:H$│C$(12):Бе245"сйЕA$│"="░C(13)│1зB│11:H$│C$(13):Бе245#кЕ З(A$)┤1з150:ДЕ З(A$)┤2зЕAE│0░AF│0зMV│1:Бе950:Д245#i╚АB│1е20:АX│1е З(A$):D$│B$(B):L│ З(D$):Е Р(A$,X,L)│D$з Р(A$,X,L)│" ":Бе220#v╥ЛX,B:B│0#Ш╫З@256,"I CAN'T DO THAT":Бе150#╒▄АC│1е20:АY│1е З(A$):D$│C$(C):L│ З(D$):Е Р(A$,Y,L)│D$з245#тцЛY,C:C│0$ыАJ│1е20:АY│1е З(A$):D$│D$(J):L│ З(D$):Е Р(A$,Y,L)│D$з245$,ЁЛY,J:J│0$WїЕAE│1з30110:ДЕAF│1з30510:ДЕB│1░C│9з300$ЕЎЕB│3зЗ@256,"WHERE":ЙF$:ЕF$│C$(9)з400:Д975$ТўЕB│4з500$Я°ЕB│5з600$м∙ЕB│6з700$╣·ЕB│7з900$▀√ЕB│11зЗ@256,"WITH WHAT":ЙH$:Бе975%№ЕB│2зЗ@256,"WITH WHAT":ЙH$:Бе975%F¤ЕB│8░C│6░C(6)│1░C(7)│0зC(7)│3:З@288,"A COIN FELL OUT":Бе15000%╖■ЕB│12░C│10зЗ@288,"WITH WHAT":ЙLI$:ЕLI$│C$(2)зЕC(10)│1▒C(10)│3зЕC(2)│1зЗ@448,"IT IS LIT":AK│1:AL│0:MV│1:Бе975%┴Бе975%·,F│0:ЕC(9)│1з310:ДЗ@288,"I DON'T HAVE THE SACK":Бе150&A6З@288,"I SEE IN THE SACK:":АX│1е20:ЕC(X)│2зЗ@320л(Fн8),C$(X):F│Fл1&j@ЛX:ЕF│0зЗ@320,"NOTHING":Бе150:ДБе150&БРЕF$│C$(9)з410:Д975&йЪЕG▓7зЗ@352,"THE SACK IS FULL":Бе150&ыдЕC(C)│1зC(C)│2:G│Gл1:H│Hм1:З@288,"I PUT IT IN THE SACK":Бе150'оЗ@288,"I DON'T HAVE THE "C$(C):Бе150'=ЇЕH▓1зЗ@288,"MY HANDS ARE FULL":Бе150'{■ЕC(C)│2зC(C)│1:H│Hл1:G│Gм1:З@288,"I HAVE THE "C$(C):Бе150'╔ЕC(C)│3зC(C)│1:H│Hл1:З@288,"I HAVE THE "C$(C):ЕC│9зH│Hм1:Бе15000:ДБе15000'їЕC(C)│1зЗ@288,"I ALREADY HAVE IT":Бе150(З@288,"I CAN'T GET IT":Бе150(VXF│0:З@256,"I HAVE:":АX│1е20:ЕC(X)│1зЗ@288л(Fн8),C$(X):F│Fл1(АbЛX:ЕF│0зЗ@288,"NOTHING":Бе150::ДБе150(л╝ЕC(C)┤▓1зЗ@288,"I DON'T HAVE IT":Бе150(║╞ЕC│9зH│Hл1(я╨H│Hм1:C(C)│3:З@288,"I DROPPED THE "C$(C):Бе15000(■ДMV│1:Бе975)╢АX│1е20:ЕC(X)│3зC(X)│P) ╖ЛX);╕АX│1е20:ЕD(X)│3зD(X)│P)B╣ЛX)`║ЕA$│"N"░N│1зVV│VVм1:Бе975)~╗ЕA$│"S"░S│1зVV│VVл1:Бе975)Ь└ЕA$│"W"░W│1зHV│HVм5:Бе975)║┬ЕA$│"E"░V│1зHV│HVл5:Бе975)┌┼ЕA$│"U"░U│1зLV│LVм100:Бе975)·╚ЕA$│"D"░D│1зLV│LVл100:Бе975*-╩З@288,"I CAN'T MOVE THAT WAY":АX│1е300:Л:Бе150*H╧P│VVлHVлLV:ЕP┤200з1000*X╨ЕP┤300з3000*h╤ЕP┤400з5000*wшЕMV│0з2000*НщQ│PмLV:З@9,A1$(Q)+HЄЕP│123зЕC(10)│3▒C(10)│P зO│4:D(1)│3:З@288,"THERE IS A FISSURE IN THE ROCK TO THE WEST-JUST WIDE ENOUGH TO ENTER. THE TORCH WENT OUT-BUT ITIS LIGHT ENOUGH TO SEE WITHOUT IT":Бе15000+^їЕP│123зO│4:D(1)│3+ЖўЕP│118зO│6:З@288,"VERY NARROW HERE"+Х№ЕP│117зO│8+╟ЕP│122зO│7:З@288,"BARELY ENOUGH ROOM TO MOVE"+¤ЕP│121зO│9:ЕBA│0зЗ@288,"A LITTLE WIDER HERE":BA│1,╟ ЕP│116зO│10:T│0:D(2)│3:D(1)│3:D(3)│3:ЕBC│0зЗ@288,"I'M AT THE BEGINNING OF A PATH- IT WINDS HIGH ALONG THE WALL OF ANOTHER VAST CAVERN- ALONG THE FLOOR TO THE SOUTH RUNS A RED- COLORED RIVER":BC│1-ЕP│111зO│10:T│2:D(3)│3:D(4)│3:З@288,"STEPS LEAD DOWN"-ЕP│106зO│10:T│0:D(3)│3-2ЕP│101зO│8:D(3)│3-LЕP│102зO│5:T│0:D(3)│3-│$ЕP│103зO│5:T│2:D(3)│3:D(4)│3:З@288,"STEPS LEAD DOWN. TO THE EAST IS THE RIVER IN THE CAVERN FLOOR".4)ЕP│104зO│5:D(3)│3:T│0:D(7)│3:З@288,"TO THE EAST I SEE WHAT LOOKS TO BE A TEMPLE.IT IS IN A CLEFT OF ROCK IN THE CAVERN WALL".ж.ЕP│105зO│6:D(3)│3:З@288,"TO THE EAST IS A SHAFT- TO THE NORTHEAST IS THE RIVER IN THE CAVERN FLOOR":D(5)│3.█3ЕP│110зO│10:З@288,"TO THE WEST IS A PATH":D(2)│3.ы8ЕP│115зO│10.■=ЕP│120зO│7:T│0/hBЕP│119░BD│0зD(5)│3:O│2:T│2:З@288,"THE SHAFT SLANTS DOWNWARD.IN THEEAST WALL IS A DOOR":D(6)│3:Бе15000/╞GЕP│119зO│8:D(5)│3:T│2:З@288,"THE SHAFT SLANTS DOWNWARD.TO THEEAST IS AN OPEN DOOR":D(6)│30VLЕP│124зO│4:T│0:ЕC(5)│3▒C(5)│P зЗ@288,"AN IDOL RESTS IN A NICHE IN THE SOUTH WALL":C(5)│3:D(8)│3::ДЗ@288,"THE NICHE IS EMPTY":D(8)│3:Бе150000b╧Бе150000h╨В0|┌ЕB│1з2020:Д22000ЫфЕD(J)│3▒D(J)│P з2030:Д22000╛юЕJ│1зЗ@288,"TALL,NARROW":Бе1500ьєЕJ│8зЗ@288,"CARVED OUT OF THE WALL":Бе1501°ЕJ│2зЗ@288,"ROUGH ROCK,NARROW":Бе1501YЕJ│3зЗ@288,"DEEP-RED COLOR,FUMES RISING FROMIT'S SURFACE":Бе1501Ц ЕJ│4зЗ@288,"CHISELLED FROM THE CAVERN WALL, STEEP":Бе1501эЕJ│5зЗ@288,"MAN OR CREATURE-MADE.A STRANGE GLOW EMANATES FROM IT'S SURFACE":Бе15029 ЕJ│6зЗ@288,"BRONZE,MASSIVE,A TURTLE CAST IN RELIEF AT THE CENTER":Бе1502u*ЕJ│7зЗ@288,"MUCH TOO FAR AWAY TO SEE ANY DE-TAIL":Бе1502Б4Бе129902фШЕP│119░BD│0░B│8░J│6зЗ@288,"'CREAK'":АX│1е1000:Л:З@320,"THE DOOR IS OPEN-":BD│1:O│8:T│2:Бе150003вЕB│1░C│5░C(5)│1зЗ@288,"A JADE TURTLE":Бе1503 ╖Бе129903/ ╕ЕMV│0з40003E ╣Q│PмLV:З@9,A2$(Q)3P ╜Бе30253p └X│ Д(100):ЕX┤70з3010:Д150003║ ┬З@384,"AN ARROW CAME FROM":X│ Д(2):ЕX│1зЗ@403,"ABOVE"::ДЗ@403,"BELOW"4% ├X│ Д(3):ЕX│1зЗ@416,"IT MISSED ME"::ДЕX│2зЗ@416,"IT HIT MY ARM":AG│AGм5::ДЗ@416,"IT HIT MY LEG":AG│AGм74V ╞ЕAG┤1зЗ@448,"KARRAK IS DEAD":АX│1е3000:Л:Ю:К4b ╟Бе150004▒ ╤ЕP│211▒P│203зЗ@288,"I'M IN THE MIDDLE OF THE STEPS":T│3:O│16:D(3)│3:Бе30085 рЕP│219░BE│1зЗ@288,"THE STONE IS BLOCKING THE WAY UP":O│16:T│2:D(9)│3:Бе150005" ъЕP│219зX│ Д(100):ЕX▓20з30905Т ЇT│2:O│16:З@288,"'THUD'":АX│1е2000:Л:З@320,"A LARGE STONE FELL-BLOCKING THE WAY BACK UP":BE│1:D(9)│3:Бе150005┬ T│3:O│16:З@288,"THE SHAFT RUNS UP AND DOWN"5╬ЯБе150005╘аВ5рЗБе129905яИЕMV│0з60006ЙQ│PмLV:З@9,A3$(Q)6,ТЕP│302зЕBG│0зAF│1:O│11:T│0:Бе305006RЧЕP│306зЕBG│0зAF│1:O│9:T│0:Бе305006ХбЕP│323зЕBF│0зAE│1:D(11)│3:B│11:C│0:J│0:H$│C$(4):O│5:AJ│O:Бе1606джЕP│301зO│86╕░ЕP│302зO│11:T│06╥║ЕP│303зO│1:T│1:D(4)│36с─ЕP│306зO│96ё╬ЕP│307зO│127╪ЕP│308зO│6:D(3)│37!тЕP│311зO│2:T│1:D(4)│37CьЕP│312зO│11:T│0:D(3)│3:D(7)│37YЎЕP│313зO│7:D(3)│37УЕP│319зO│2:T│1:D(5)│3:З@288,"THE SHAFT SLOPES UPWARD"7ж ЕP│320зO│6:T│08ЕP│316зO│8:D(7)│3:D(3)│3:З@288,"THE RIVER IS TO THE EAST-ON THE OTHER SIDE IS THE TEMPLE"8!ЕP│317зO│7:D(7)│3:D(3)│38Л(ЕP│321зO│4:D(7)│3:D(3)│3:З@288,"THE RIVER IS TO THE SOUTH,THE CAVERN WALLS TO THE NORTH AND EAST"92ЕP│322зЗ@9,"TEMPLE":З@38,"NONE":З@288,"THIS IS THE END OF PART 2 WAIT A MOMENT PLEASE":З@69," ":З@96," ":З@128," ":АX│1е5000:Л:Бе2500092<ЕP│323зO│5:D(4)│39жFЕP│324░BF│0зO│5:D(4)│3:D(11)│3:З@288,"THERE IS A GOBLIN STANDING GUARDON THE TEMPLE STEPS TO THE NORTH":Бе150009╒KЕP│324зO│5:D(4)│3:D(11)│3:ЕC(12)│0зC(12)│39°LЕP│324зD(7)│3:ЕC(13)│0зC(13)│3:PЕP│325зO│7:oБе15000:pВ:=uЕB│1зЕD(J)│3▒D(J)│P з6010:Д6050:azЕJ│3зЗ@288,"BOILING LAVA":Бе150:ИЕJ│4зЗ@288,"ROUGH,HAND-HEWN":Бе150:╤ДЕJ│7зЗ@288,"STONE BLOCKS,A TURTLE CARVED OVER THE ENTRANCE":Бе150;BЙЕJ│11зЕBF│1зЗ@288,"DEAD":Бе150::ДЗ@288,"FIERCE LOOKING,LEATHER ARMOR, ARMED WITH A MACE AND HAND AX":Бе150;_ОЕJ│12зЗ@288,"DEAD":Бе150;пвЕB│1░C│7░C(7)│1зЗ@288,"SOLID GOLD,EMBOSSED WITH MANY SMALL TURTLES":Бе150<мЕB│1░C│12░C(12)│1зЗ@288,"TWO FEET LONG,LARGE BRASS HEAD WITH SHARP SPIKES":Бе150*:ШP│LVлHVлVV:З@72,"":З@96,"":З@128,"":З@160,"">E:вAG│AGл.45:ЕAG▓20зAG│20>Е:╩F│0:АX│1е20:ЕC(X)│3 ▒ C(X)│P зЗ@72л(Fн8),C$(X):F│Fл1:C(X)│3>М:▐ЛX>┴:шАX│1е20:ЕD(X)│3 ▒ D(X)│P зЗ@72л(Fн8),D$(X):F│Fл1>╚:эЛX>ф:№N│0:S│0:V│0:W│0:D│0:U│0?;ЕO│0░T│0зЗ@38,"--NONE--":Бе150?;ЕT│1зU│1?!;ЕT│2зD│1?2;ЕT│3зU│1:D│1??;ЕO│1зN│1?L;$ЕO│2зS│1?Y;)ЕO│3зV│1?f;.ЕO│4зW│1?w;3ЕO│5зN│1:S│1?И;8ЕO│6зN│1:V│1?Щ;=ЕO│7зN│1:W│1?к;BЕO│8зS│1:V│1?╗;GЕO│9зS│1:W│1?═;LЕO│10зV│1:W│1?у;QЕO│11зN│1:S│1:V│1?∙;VЕO│12зN│1:S│1:W│1@;[ЕO│13зN│1:V│1:W│1@%;`ЕO│14зS│1:V│1:W│1@?;eЕO│15зN│1:S│1:W│1:V│1@K;gЗ@38,""@k;hЕO│16░T│0зЗ@38,"none":Бе150@};jЕN│1зЗ@38,"N"@П;oЕS│1зЗ@40,"S"@б;tЕV│1зЗ@42,"E"@│;yЕW│1зЗ@44,"W"@┼;~ЕU│1зЗ@46,"U"@╫;ГЕD│1зЗ@48,"D"@с;ИБе150A>N Ж LOOK,HIT,PUT,GET,LIST,DROP,VIEW,OPEN,THROW,UNLOCK,STAB,LIGHT,FEED,ZZ,ZZ,ZZ,ZZ,ZZ,ZZ,ZZAиN4Ж SWORD,FLINT,ROPE,DAGGER,IDOL,POUCH,CHALICE,KEY,SACK,TORCH,PENDANT,MACE,HAND AX,14,15,16,17,18,19,20B NHЖ FISSURE,PATH,RIVER,STEPS,SHAFT,DOOR,TEMPLE,NICHE,STONE,ZZ,GOBLIN,WOLF,ZZ,ZZ,ZZ,ZZ,ZZ,ZZ,ZZ,ZZBNQВ A2$( )BINRЖ 201,202,STEPS,204,205,206,207,208,209,210B{NWЖ STEPS,212,213,214,215,216,217,218,SHAFT,220BХN\Ж 221,222,223,224,225BвNeВ A1$( )B╪NfЖ PATH,PATH,PATH,PATH,PATH,PATH,107,108,109,SHAFTCNkЖ PATH,112,113,114,SHAFT,PATH,FISSURE,FISSURE,SHAFT,SHAFTC WHEN READY";RE$EJa▓АY│1е3:Щ"O",#м1,"VARIABLE":АX│1е20:З#м1,C(X):ЛXEZa╖З#м1,G,H,AGEfa╝Ъ#м1:ЛYE╓a╞Ю:З"THE VARIABLE TAPE HAS BEEN SAVEDTHREE TIMES":З"TO CONTINUE-CLOAD NEXT GAME AND FOLLOW THE DIRECTIONS":КFBeРЮ:Й"PUT TAPE WITH VARIABLES IN RE- CORDER-PRESS PLAY/PRESS WHEN READY";RE$:Щ"I",#м1,"VARIABLE"FZeЪАX│1е20:Й#м1,C(X):ЛFjeЯЙ#м1,G,H,AGF{eдЪ#м1:АX│1е20FЧeйЕC(X)┤▓1░C(X)┤▓2зC(X)│0FдeоЛX:Бе110Fкu0ВF│uЩAJ│OFэuЮO│16:T│0:З@384,"THE GOBLIN IS ATTACKING":AE│1:D(11)│3GGuгAG│ Б(AG):З@288,"OPPONENT'S STRENGTH=":З@320," KARRACK'S STRENGTH=":З@308,AI:З@340,AGGюuиЕB│2░H$│C$(1)зX│ Д(4):ЕX│1зЗ@256,"WE BOTH HIT":AH│AHм3:AG│AGм3::ДЕX│2зЗ@256,"I HIT HIM":AH│AHм3::ДЕX│3зЗ@256,"I MISSED-HE DIDN'T":AG│AGм3::ДЗ@256,"WE BOTH MISSED"HФuнЕB│11░H$│C$(4)зX│ Д(4):ЕX│1зЗ@256,"WE BOTH STRUCK":AH│AHм2:AG│AGм2::ДЕX│2зЗ@256,"I GOT HIM":AH│AHм2::ДЕX│3зЗ@256,"HE CLUBBED ME":AG│AGм2::ДЗ@256,"WE BOTH MISSED"H║uоЕB│11░H$│C$(4)▒B│2░H$│C$(1)з30130HїuпЗ@256,"HE HIT MY ARM WITH HIS HAND AX":AG│AGм2:Бе30200IZu▓X│ Д(100):ЕX▓97зЗ@416,"I TRIPPED,HE SMASHED MY SKULL KARRAK IS DEAD":З@340,"0":АX│1е5000:Л:Ю:КI▓u╖X│ Д(100):ЕX▓96зЗ@416,"HIS MACE SLIPPED OUT OF HIS HANDI SKEWERED HIM CLEANLY":AH│0I╚u°З@308,AH:З@340,AGJv*ЕAG┤1░AH┤1зЗ@416,"BOTH THE GOBLIN AND KARRAK ARE DEAD":АX│1е2500:Л:Ю:КJjv\ЕAH┤1зЗ@256,"THE GOBLIN IS DEAD":З@384," ":C(12)│3:C(13)│3:O│AJ:BF│1:AE│0:Бе15000JНv└ЕAG┤1зЗ@256,N$:АX│1е2000:Л:Ю:КJЩw#Бе15000JЯw$ВJпw)ЕAC│1з15000J╕w+AJ│OJюw.O│16:T│0:З@384,"A WOLF IS ATTACKING":D(12)│3:AF│1Kw1ЕH$│C$(13)зH$│C$(4)Kw2ЕH$│C$(12)зH$│C$(1)Kww3AG│ Б(AG):З@288,"OPPONENT'S STRENGTH=":З@320," KARRAK'S STRENGTH=":З@308,AH:З@340,AGKъw8ЕC(1)│1▒C(12)│1зЕB│2зX│ Д(100):ЕX▓40зЗ@448,"A SOLID BLOW!":AI│AIм5::ДЗ@448,"IT'S TEETH SLASHED MY LEG":AG│AGм3LkwBЕC(4)│1▒C(13)│1зЕB│11зX│ Д(100):ЕX▓30зЗ@448,"A SLIGHT WOUND IN IT'S NECK":AI│AIм2::ДЗ@448,"IT'S TEETH RIPPED MY ARM":AG│AGм2LБwGЗ@308,AI:З@340,AGL╣wLЕB┤▓2░B┤▓11зЗ@448,"IT'S TEETH CUT MY ANKLE":AG│AGм2L¤wVЕAI┤1зЗ@256,"THE WOLF IS DEAD":З@384," ":BG│1:O│AJ:AF│0:Бе15000M w`ЕAG┤1зЗ@288,H$:АX│1е2000:Л:Ю:КM,yБе15000T'S NECK":AI│AIм2::ДЗ@448,"IT'S TEETH RIPPED MY ARM":AG│AGм2LБwGЗ@308,AI:З@340,AGL╣wLЕB┤▓2░B┤▓11зЗ@448,"IT'S TEETH CUT MY ANKLE":AG│AGм2L¤wVЕAI┤1зЗ@256,"THE WOLF IS DEAD":З@384," ":BG│1:O│AJ:AF│0:Бе15000M