:юЖЧ╢ЖЧ┴╜Х╧╛
h┐;О;┐
h╛
k┐<-О<(┐
kО<]~╣Ь
o'~  2b4VЮИБ&М'е0ЯИЖ ЮЩБ
&─Ж О0
ЯИ\┴ &Ї QБ&ОuБ&4─Ж Нk0
ЯИ\┴ &ї5 ZБ&4LНUМ '0
ЯИ є5 BM&s<\ <Б %8Б"4Н40
М&)Ю║3Й4@3Й
Аж└зАгф&ўЮ║0ЙА╢<\зАмф&·2bОрЯИ5╓4V▄ИГDVTTTT4XЖ└=Ю║0Л5Ж =4▄ИгсГ0Лжф╬<аА ╞	=3╦╢<\зД╞	0И ж└╕<\зДZ&є╢<\зИ зИ@5╓
o'~  2bp4
Ф&╞╫Ф╢<]И╖<]НП╜бл╜б╦'цБ'т4Ж  |5Ц  Uppercase/Lowercase Driver V1.0
Copyright 1983 Mark D. Goodwin
(((((|(|((<@8xdd LL P $TH40      (|(|0 |00 @@8DDDDD8088D ||D8(||@xD88@@xDD8| @@8DD8DD88DD<80000000  @ ||  8D8D4TT8(DD|DDxDDxDDx8D@@@D8x$$$$$x|@@x@@||@@x@@@8D@LDD8DDD|DDD88D8DHP`PHD@@@@@@|DlTDDDDDDdTLDD8DDDDD8xDDx@@@8DDDTH4xDDxPHD8D@8D8|DDDDDD8DDDD((DDDTTlDDD((DDDD(| @|8     8@@ 888T|8<D4@@xDDDx8@@@8<DDD<8Dx@88<DDD<8@@XdDDD08H0@@HP`PH08(TTDDxDDDD8DDD8xDDDx@@<DDD<Xd@@@8@888DDDD<DD((DDTlDD((DDD(( @| | 00 T :ю, 0, 9, 129, 89, 16#T
6Ж  39, 0, 19, 22, 255, 224, 23, 0#}
@Ж  136, 142, 128, 0, 48, 31, 38, 252#д
JЖ  23, 0, 126, 22, 255, 223, 28, 0#╚
TЖ  57, 48, 141, 0, 3, 22, 0, 31#№
Y:Г line 350 is printer reset, if you're printer$5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                zюЖЧ╢ЖЧ┴╜Х╧╛
h┐{О{┐
h╛
k┐|-О|(┐
kО|]~╣Ь
o'~  2b4VЮИБ&М'е0ЯИЖ ЮЩБ
&─Ж О0
ЯИ\┴ &Ї QБ&ОuБ&4─Ж Нk0
ЯИ\┴ &ї5 ZБ&4LНUМ '0
ЯИ є5 BM&s|\ <Б %8Б"4Н40
М&)Ю║3Й4@3Й
Аж└зАгф&ўЮ║0ЙА╢|\зАмф&·2bОрЯИ5╓4V▄ИГDVTTTT4XЖ└=Ю║0Л5Ж =4▄ИгсГ0Лжф╬|аА ╞	=3╦╢|\зД╞	0И ж└╕|\зДZ&є╢|\зИ зИ@5╓
o'~  2bp4
Ф&╞╫Ф╢|]И╖|]НП╜бл╜б╦'цБ'т4Ж  |5Ц  Uppercase/Lowercase Driver V1.0
Copyright 1983 Mark D. Goodwin
(((((|(|((<@8xdd LL P $TH40      (|(|0 |00 @@8DDDDD8088D ||D8(||@xD88@@xDD8| @@8DD8DD88DD<80000000  @ ||  8D8D4TT8(DD|DDxDDxDDx8D@@@D8x$$$$$x|@@x@@||@@x@@@8D@LDD8DDD|DDD88D8DHP`PHD@@@@@@|DlTDDDDDDdTLDD8DDDDD8xDDx@@@8DDDTH4xDDxPHD8D@8D8|DDDDDD8DDDD((DDDTTlDDD((DDDD(| @|8     8@@ 888T|8<D4@@xDDDx8@@@8<DDD<8Dx@88<DDD<8@@XdDDD08H0@@HP`PH08(TTDDxDDDD8DDD8xDDDx@@<DDD<Xd@@@8@888DDDD<DD((DDTlDD((DDD(( @| | 00 T zю, 0, 9, 129, 89, 16#T
6Ж  39, 0, 19, 22, 255, 224, 23, 0#}
@Ж  136, 142, 128, 0, 48, 31, 38, 252#д
JЖ  23, 0, 126, 22, 255, 223, 28, 0#╚
TЖ  57, 48, 141, 0, 3, 22, 0, 31#№
Y:Г line 350 is printer reset, if you're printer$5                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 а
CHKSUM│0&А A│&H7E00 е &H7E5D<НA$:N│ Й("&H"лA$)F(Т A,NZ2CHKSUM│CHKSUMлNb<Л AеFЕ CHKSUM ┤▓ 10740 з Ю:З@32,"BAD DATA VALUE. CHECK & REENTER":К┴PЮ:З@32,"GOOD DATA LOAD"уZЗ"DO YOU WANT AN OBJECT TAPE"dQ$│ Т:Е Q$│"N"з К :Д Е Q$┤▓"Y"з 100inЗ"PUT TAPE IN RECORD MODE PRESS   ENTER WHEN READY":Й Q$:ШM"PAUSE",&H7E00,&H7E5C,&H7E00:КгxЖ BE,01,0D,AF,8D,0,0F,8E,7E,18,BF,01,0D,39,AE,8D,0,04▐ВЖ BF,01,0D,39,89,4C,86,7F,B7,FF,02,B6,FF,0,84,40,26,0C МЖ 86,FD,B7,FF,02,B6,FF,0,84,40,27,06,AE,8D,FF,E2,6E,84 PЦЖ 8E,A0,0,30,1F,26,FC,86,7F,B7,FF,02,B6,FF,0,84,40 ЗаЖ 26,F4,86,FD,B7,FF,02,B6,FF,0,84,40,26,E8,8E,A0,0 ЯкЖ 30,1F,26,FC,20,D2,114,172,122,188,130,204,138,156,102,172,104,188,108,204,112,156,94,172,92,188,88,204,84,156,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                :I│ Й(C$(A,23)):J│IлLO:C$(A,23)│ И(J)K;	~А DE│1 е 1000:Л DEKA	ИРKб	ТЮ: З "YOU BOTH WERE UNABLE TO RACE, SO I SUGGEST YOU KEEP TRYING UNTIL YOU RECEIVE A LOAN."K╟	ЬЗ@322,"PRESS ANY KEY TO CONTINUE"Kь	жA$│ Т:Е A$│"" з PP│ Д(6):Бе 2470KЄ	░Р┐  e   D?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "" з A│ Д(20):Бе 1980B№╞Ю:З"IF YOU SELECT 4, THEN THE RACE WILL START.  IF YOUR CAR HAS TOO MUCH DAMAGE TO RACE, THE COMPUTER WILL TELL YOU SO. AFTER EACH RACE THE COMPUTER WILL AUTOMATICALLY GENERATE A NEW COMPUTER CAR. YOUR CAR MAY ALSO BE DAMAGED."C─╨З"YOU MAY STILL RACE WITH DAMAGED PARTS, BUT THIS WILL DECREASE YOUR CARS PERFORMANCE. IF YOU SELECT 6, THE GAME WILL START OVER. THE CHAMPIONSHIP WILL END AFTER 20 RACES OR THE FIRST TO $50000."Cц┌З "PRESS ANY KEY TO CONTINUE"DфA$│ Т:Е A$│"" з A│ Д(18):Бе 2020DюЮDў°З"THE WINNER WILL BE THE PERSON WITH THE MOST RACES WON. IF A CAR IS BADLY DAMAGED, THERE IS A CHANCE THE PLAYER(S) WILL RECEIVE A LOAN. IF BOTH PLAYERS CARS ARE UNABLE TO RACE THEN, THE COMPUTER WILL RETURN YOU TO THE menu."EUЗ"KEEP TRYING TO RECEIVE A LOAN BY SELECTING 4 ON THE MENU.               GOOD LUCK!!!":ЗEvЗ"PRESS ANY KEY TO CONTINUE"EЪA$│ Т:Е A$│"" з A│ Д(6):Бе 2070Eа ЗEл*Бе 290E╙4Ю:З@230, "END OF CHAMPIONSHIP":EG│1Eъ>А DE│1 е 1000:Л DEEЎHБе 1610E№RЮF\А A│1 е NPF4fJ│ Й(C$(A,21)):K│ Й(C$(A,23)):I│Jо20FОpЗ"PLAYER"A"PERCENT OF RACES WON IS ";:З ═"###.#";Iн100:З "WITH TOTAL AMOUNT OF CASH"KFЦzЛ AF╣ДЗ:З"PRESS ANY KEY TO CONTINUE"F▐ОA$│ Т:Е A$│"" з A│ Д(20):Бе 2190FфШЮFЎвЕ NP│1 з 2320GмJ│ Й(C$(1,21)):K│ Й(C$(2,21)):ЮG+╢Е J▓K з 2290GХ└Е J│K з З"YOU'VE BOTH TIED; I'M AFRAID WE CAN'T GIVE AWAY TWO CUPS, SO I SUGGEST A REMATCH":З:Бе 2300Gю╩З "PLAYER 2 IS THEN NATIONAL CHAMPION DRAG RACER. BETTER LUCK NEXT TIME PLAYER 1.":ЗHТ╘З "PLAYER 2'S BEST TIME ";:RT│ Й(C$(2,24)):З ═"##.##";RT:RT│ Й(C$(2,25)):З ═"BEST TOP SPEED=###.##";RT: З"PLAYER 1'S BEST TIME ";:RY│ Й(C$(1,24)):З ═"##.##";RYH├▐RT│ Й(C$(1,25):З ═"BEST TOP SPEED=###.##";RTH╧шБе 2340I'ЄЗ "PLAYER 1 IS THE NATIONAL CHAMPION DRAG RACER. BETTER LUCK NEXT TIME PLAYER 2.":ЗIe№З "PLAYER 2'S BEST TIME ";:RY│ Й(C$(2,24)):З ═ "##.##";RYIв	RT│ Й(C$(2,25)):З ═"PLAYER 2'S BEST TOP SPEED=###.##";RTIр	З "PLAYER 1'S BEST TIME ";:RT│ Й(C$(1,24)):З ═ "##.##";RTJ	RT│ Й(C$(1,25)):З ═"PLAYER 1'S BEST TOP SPEED=###.##";RTJF	$Й "WOULD YOU LIKE TO PLAY AGAIN";PL$J_	.Е  О(PL$,1)│"Y" з 70Je	8КJ	BI│ Д(6):J│ Д(6):H│IлJJЛ	LTV(A)│8JЯ	VЕ H▓7 з Бж 2410Jе	`РJс	jЮ:З@192,"FORTUNATELY, PLAYER"A"HAS RECEIVED A LOAN OF";K$	tLO│( Д(6)н1000)л1000:З LO":I│ Й(C$(B,23)):J│Iл500:C$(B,23)│ И(J)9ТцЗ:З"PLAYER 1'S TIME IS ";:З ═"##.##";TM:З ═"TOP SPEED=###.##";TS:З "PLAYER 2'S TIME IS ";:З ═"##.##";TL9░ЁЗ ═"TOP SPEED=###.##";SER9├·В DAMAGE CHECK9╧Бж 17609щЗ@457,"PRESS ANY KEY":
A$│ Т:Е A$│"" з A│ Д(6):Бе 1560:"Р:I,З@224, "YOU HAVE TIED! STAND BY FOR A   REMATCH.":^6А A│1 е 1000:Л A:i@Бе 970:oJЮ:|TА A│1е 2:Д^Ю:З:УhА B│0 е 18:┐rЕ B│4 ▒ B│7 ▒ B│10 ▒ B│13 ▒ B│16 з 1690:╤|З C$(A,B)" ";:хЖЕ B│0 ▒ B│1 з З:√РЕ Bо3│ Б(Bо3) з З;ЪЛ B;cдЗ"EXPERIENCE="C$(A,20):З"RACES WON="C$(A,21):З"TOTAL RACES="C$(A,22):З"TOTAL CASH="C$(A,23);}оЗ "PRESS TO CONTINUE";г╕A$│ Т:Е A$│"" з RJ│ Д(20):Бе 1720;л┬Л A;└╠Е EG│1 з Бе 2130;╠╓Бе 1420;╪рА A│1е2;хъH│ Д(18);ўЇЕ H┤14 з 1850<■H│( Д(6)н3)м1:HZ│H<;Е C$(A,H)│"BURNT UP" ▒ C$(A,H)│"" з 1850<дЗ "UNFORTUNATELY PLAYER "A" RUINED HIS/HER "C$(A,H):C$(A,H)│"BURNT UP":C$(A,Hл1)│" ":C$(A,Hл2)│ И(0)<╢Е H┤18 з 1850<╓&H│( Д(6)н3)м1:Е HZ│H з 1830=10З"PLAYER"A"ALSO LOST HIS/HER "C$(A,H):C$(A,H)│"BURNT UP":C$(A,Hл1)│" ":C$(A,Hл2)│ И(0)=9:Л A=?DР>NЮ:З"THIS GAME MAY BE PLAYED BY 1 OR 2 PLAYERS. IF ONE PLAYER IS SELECTED, THEN THE COMPUTER WILL AUTOMATICALLY CREAT A RANDOM CAR. IF 2 PLAYERS ARE SELECTED, THEN EACH PLAYER IS GIVEN A RANDOM AMOUNT OF CASH.">пXЗ"THE PLAYERS MUST DECIDE, BEFORE HAND, WHO WILL BE PLAYER 1 AND WHO WILL BE PLAYER 2. IF THERE IS JUST 1 PLAYER THEN THE COMPUTER BECOMES PLAYER 2.">╥bЗ:З"PRESS ANY KEY TO CONTINUE">ЎlA$│ Т:Е A$│"" з A│ Д(6):Бе 1900?▐vЮ:З"EACH PLAYER WILL BUY THE PARTS HE/SHE WISHES, ASSUMING HE/SHE HAS ENOUGH MONEY. IF THE PLAYER DOESN'T HAVE ENOUGH MONEY OR WANTS TO SKIP THE SECTION THEN PRESS enter. THERE ARE 7 CATAGORIES TO PICK FROM; BODY TYPE IS FREE."@KАЗ"IF A PLAYER DOESN'T PICK A PART OR HAS A PART BURNT UP, THEN HIS/HER CAR'S PERFORMANCE WILL DECREASE."@nКЗ:З"PRESS ANY KEY TO CONTINUE"@УФA$│ Т:Е A$│"" з A│ Д(12):Бе 1940ALЮЮ:З"IF ANY PLAYER WISHES TO PURCHASE A NEW PART, PRESS 1 OR 2 ON THE MENU. THIS WILL ASK THE SAME QUESTIONS AT THE BEGINING OF THE GAME. IF YOU WISH TO SKIP A SECTION PRESS enter."A╠иЗ"IF 3 IS SELECTED FROM THE MENU, THEN A COMPUTER CAR WILL BE GENERATED. MAKE SURE YOU ARE IN PLAYER 1 MODE WHEN DOING SO."Aя▓З:З"PRESS ANY KEY TO CONTINUE"B╝A$│ Т:Е A$│8├(128,160),3,40=BKI$│"C1G3E3D10L4R8":KL$│"L4R8D4L8D4R8C4"0фL╗(20,12)м(48,60),╜,B:├(128,28),3,4:╞"BM7,60;"лKI$:╞ "BM7,142;"лKL$:┬(34,22),7:├(34,22),4,4:а 100,5:┬(34,36),7:├(34,36),2,4:а 100,5:┬(34,48),7:├(34,48),3,4:а 150,50■VW│XX:Z│YY:TIME│TIMEл112`X│ Д(4)л8:Y│ Д(4)л8:XX│XXлTV(1)мX:YY│YYлTV(2)мY1DjЕ XX┤0 з XX│01VtЕ YY┤0 з YY│01К~┼(W,76)м(Wл13,91),PS,╜:┼(Z,116)м(Zл13,131),PS,╜1┬И┼(XX,76)м(XXл13,91),P1,╜:┼(YY,116)м(YYл13,131),P2,╜1ъТЕ XXл13▓│228 ▒ YYл13▓│228 з Бе 12601ЎЬБе 11102жВ COMPUTER GENERATED CAR2.░C$(2,0)│"COMPUTER CAR"2∙║A│ Д(13):C$(2,1)│B$(A):A│ Д(12):C$(2,2)│E$(A,1):C$(2,3)│E$(A,2):C$(2,4)│E$(A,3):A│ Д(5):C$(2,5)│DR$(A,1):C$(2,6)│DR$(A,2):C$(2,7)│DR$(A,3):A│ Д(5):C$(2,8)│DF$(A,1):C$(2,9)│DF$(A,2):C$(2,10)│DF$(A,3)3┤─A│ Д(5):C$(2,11)│T$(A,1):C$(2,12)│T$(A,2):C$(2,13)│T$(A,3):A│ Д(6):C$(2,14)│CB$(A,1):C$(2,15)│CB$(A,2):C$(2,16)│CB$(A,3):A│ Д(4):C$(2,17)│TB$(A,1):C$(2,18)│TB$(A,2):C$(2,19)│TB$(A,3)4╬A│ Д(9):C$(2,21)│ И(A):B│ Д(10):C│AлB:C$(2,22)│ И(C):C$(2,20)│ И(C):C$(2,23)│ И(0)4 ╪Е CH▓0 з Бе 14204&тР4;ьА A│1 е 1000:Л A4YЎЕ TS▓TT з C$(1,25)│ И(TS)4yЕ TSP▓TU з C$(2,25)│ И(TSP)4═
I│((XXоTIME)м32)нм1:J│((YYоTIME)м32)нм1:K│ Й(C$(1,24)):L│ Й(C$(2,24)):TM│I:TL│J5TS│(XXоI)н3.9л35:SER│(YYоJ)н3.9л35:TT│ Й(C$(1,25)):TU│ Й(C$(2,25))5/Е I┤K з C$(1,24)│ И(I)5J(Е J┤L з C$(2,24)│ И(J)5V2┐ 0,0:Ю5_<CH│05~FЕ XX▓YY з A│1:B│2:Бж 1450 5ЬPЕ XX┤YY з A│2:B│1:Бж 14505╖ZЕ XX│YY з CH│4:Бе 15805╠dЕ NP│1 з Бж 11905∙nА A│1 е 2 :I│ Й(C$(A,22)):J│ Й(C$(A,23))6xЕ I│20 ▒ J▓│50000 з Бе 21006!ВЛ A6╚МЮ:З@109,"menu":З"1. PLAYER 1 PURCHASE NEW PARTS":З"2. PLAYER 2 PURCHASE NEW PARTS":З"3. NEW COMPUTER CAR":З"4. START A RACE":З"5. PRINT OUT CARS":З"6. START OVER"6юЦЙ "ENTER CHOICE";CH:Е CH│0 з 14207аИ CH Бе 400,400,1190,970,1610,707│кЕ A│2 ░ NP│1 з З @ 105,"COMPUTER WON":I│ Й(C$(1,20)):J│Iл1:C$(1,20)│ И(J):I│ Й(C$(1,22)):J│Iл1:C$(1,22)│ И(J):I│ Й(C$(1,23)):J│Iл500:C$(1,23)│ И(J):Бе 15108Б┤З@9, "PLAYER "A" WON":I│ Й(C$(A,20)):J│Iл1:C$(A,20)│ И(J):I│ Й(C$(A,21)):J│Iл1:C$(A,21)│ И(J):I│ Й(C$(A,22)):J│Iл1:C$(A,22)│ И(J):I│ Й(C$(B,20)):J│Iл1:C$(B,20)│ И(J):I│ Й(C$(B,22)):J│Iл1:C$(B,22)│ И(J)8У╛CA│ Д(5)н10008Щ╚З8▐╥З "PLAYER "A" RECEIVES $"CA:I│ Й(C$(A,23)):J│IлCA:C$(A,23)│ И(J)9&▄З "PLAYER "B" RECEIVES $ 500D,23)│ И(H)'@C$(D,2)│E$(E,1):C$(D,3)│E$(E,2):C$(D,4)│E$(E,3):Ю'TЗ "drive train"'jЗ "CASH="C$(D,23)'Ю&А A│1 е 5:З:З A;:А B│1 е 2:З DR$(A,B)" ";:Л B,A'│0З:Й "ENTER #";DR'╔:Е DR│0 з Ю:Бе 610'ЁDЕ  Й(DR$(DR,2))▓ Й(C$(D,23)) з 560((NI│ Й(C$(D,23)):J│ Й(DR$(DR,2)):H│IмJ:C$(D,23)│ И(H)(dXC$(D,5)│DR$(DR,1):C$(D,6)│DR$(DR,2):C$(D,7)│DR$(DR,3):Ю(zbЗ:З"differential"(РlЗ "CASH="C$(D,23)(─vА A│1 е 5:З:З A;:А B│1 е 2:З DF$(A,B)" ";:Л B,A(╪АЗ:Й"ENTER #";DF(ъКЕ DF│0 Бе 690)ФЕ  Й(DF$(DF,2))▓ Й(C$(D,23)) з 640)IЮI│ Й(C$(D,23)):J│ Й(DF$(DF,2)):H│IмJ:C$(D,23)│ И(H))ДиC$(D,8)│DF$(DF,1):C$(D,9)│DF$(DF,2):C$(D,10)│DF$(DF,3))К▓Ю)а╝З:З"transmission")╢╞З "CASH="C$(D,23))щ╨А A│1 е 5:З:З A;:А B│1 е 2:З T$(A,B)" ";:Л B,A)¤┌З:Й "ENTER #";T*фЕ T│0 з Ю:Бе 780*7юЕ  Й(T$(T,2))▓ Й(C$(D,23)) з 730*m°I│ Й(C$(D,23)):J│ Й(T$(T,2)):H│IмJ:C$(D,23)│ И(H)*жC$(D,11)│T$(T,1):C$(D,12)│T$(T,2):C$(D,13)│T$(T,3):Ю*╗З:З"fuel system"*╤З "CASH="C$(D,23)+ А A│1 е 6:З:З A;:А B│1 е 2:З CB$(A,B)" ";:Л B,A+*З:Й "ENTER #";CB+04Е CB│0 з Ю:Бе 860+W>Е  Й(CB$(CB,2))▓ Й(C$(D,23)) з 810+ПHI│ Й(C$(D,23)):J│ Й(CB$(CB,2)):H│IмJ:C$(D,23)│ И(H)+╬RC$(D,14)│CB$(CB,1):C$(D,15)│CB$(CB,2):C$(D,16)│CB$(CB,3):Ю+ф\З:З"turbo system"+·fЗ "CASH="C$(D,23),-pА A│1 е 4:З:З A;:А B│1е 2:З TB$(A,B)" ";:Л B,A,BzЗ:Й "ENTER #";TB,XДЕ TB│0 з Ю:Бе 940,ОЕ  Й(TB$(TB,2))▓ Й(C$(D,23)) з 890,╖ШI│ Й(C$(D,23)):J│ Й(TB$(TB,2)):H│IмJ:C$(D,23)│ И(H),ЎвC$(D,17)│TB$(TB,1):C$(D,18)│TB$(TB,2):C$(D,19)│TB$(TB,3):Ю-мЕ CH▓0 з Бе 1420-╢Л D-└Бе 1420-\╩Ю:З@228," ";:Й"ARE YOU READY (Y/N)";AN$:Е AN$┤▓"Y" з 970-y╘XX│0:YY│0:W│0:Z│0:TIME│0-¤▐А A│1 е 2:V1│ Й(C$(A,4)):V2│ Й(C$(A,7)):V3│ Й(C$(A,10)):V4│ Й(C$(A,13)):V5│ Й(C$(A,16)):V6│ Й(C$(A,19)):TV(A)│V1лV2лV3лV4лV5лV6.SшЕ TV(A)┤13 з Ю: З@224,"PLAYER"A"CAN'T RACE; TOO SLOW.":А DE│1 е 1500:Л DE:Бж 2370.[ЄЛ A.З№Е TV(1)┤13 ░ TV(2)┤13 з Бж 2450:Бе 1420.ЫЮ:╚ 3,1:╝:┐ 1,0.▐╗(0,72)м(255,72),╜:╗(0,136)м(255,136),╜:╗ (228,72)м(228,136),╜/А A│0 е 255 й 8:╗(A,104)м(Aл4,104),╜:Л A/Э$╗(2,76)м(5,79),╜,B:╗(0,80)м(13,87),╜,B:╗ (2,88)м(5,91),╜,B:╗(10,78)м(11,79),╜,B:╗(10,88)м(11,89),╜,B:─(0,0)м(14,16),PS,G:─(0,76)м(13,91),IP,G/¤.┼(0,116)м(13,131),IP,╜:├(8,84),2,4:├(8,124),3,4:─(0,76)м(13,91),P1,G:─(0,116)м(13,131),P2,G0p┼ #1,J0zЛ0Д█0IОLA│ Й( П(IX$(LOм1),3)):FR│ Й( П(IX$(0),3)):Бе6400PШ:Г0eв:Гprinter report0wмБж 720:Бж 8500Г╢Бж 24500М└PG│10Ш╩Бж 23600з╘А J│1 е LO0╨▐Е J│1 з ─ #1,FR :Д ─ #1, Й( П(S$,3))0▐шА I│1 е N1ЄЗ#DV,═"%"л б(TB(I),32)л"%"; Р(S$,S(I),L(I));1№Л I1 	З#DV1,	LX│LXл11X	Е LX│LP з Бж 2430:PG│PGл1:Бж 2360:LX│0:1`	$Л J1j	.Бе 401w	8:ГHEADER1Э	BЗ#DV,"REPORT OF FILE "F$" page"PG1ж	LЗ#DV1┌	VА II│1 е N:З#DV,═ "%"л б(TB(II),32)л"%";F$(II);1у	`Л II1ь	jЗ#DV1Є	tР1 	~:ГFOOTER2	ИА I│1 е 3:З#DV:Л:Р2 	Т:ГTAB2.	ЬА I│1 е N2b	жЕ  З(F$(I))▓L(I) з TB(I)│ З(F$(I)):Д TB(I)│L(I)2x	░TB(0)│TB(0)лTB(I)2А	║Л I2Ю	─LP│60о( Б(TB(0)о80л.999))2д	╬Р2л	╪:Г2▒	тЮ2╨	ь:Гdirectory and kill files2ы	ЎЗ  г(0)"GRANULES FREE"2ў
АI│3е113	

▀0,17,I,A$,B$3
А J│0 е 33C
C$│ Р(A$,Jн32л1,12):D$│ Р(B$,Jн32л1,12)3a
(Е  О(C$,1)│ Л(255) з 27403}
2Е  О(C$,1)│ Л(0) з 26703г
<X│ Ю(C$," "):Е X│0 з X│8 :Д X│Xм13└
FЕ  Р(C$,8,1)┤▓"0" з 26703ц
PNN$│ О(C$,X)л"/"л Р(C$,9,3):K│Kл14"
ZЕ KF│1 з Е  О(NN$,8)│F1$ з ╥ NN$:З NN$" KILLED":Бе 26704,
dЗ NN$4J
nЕ  О(D$,1)│ Л(255) з 27404f
xЕ  О(D$,1)│ Л(0) з 27404М
ВX│ Ю(D$," "):Е X│0 з X│8 :Д X│Xм14й
МЕ  Р(D$,8,1)┤▓"0" з 27404╧
ЦNN$│ О(D$,X)л"/"л Р(D$,9,3):K│Kл15
аЕ KF│1 з Е  О(NN$,8)│F1$ з ╥ NN$:З NN$" KILLED":Бе 27405
кЗ NN$5
┤Л J5%
╛Л I5D
╚З"HIT ANY KEY TO CONTINUE"5P
╥в 445395Z
▄Бе 405a
ц:Г5И
Ё:Гsort routine w.barden trs80 news5Х
·A│0:NN│05е╣ Г0│&H0E025╖NN│ Э(IX$(0))5╧Т &H0E00, Б(NNо256)5ю"Т &H0E01,NNм Б(NNо256)н2565√,A│ Г0(0)6
6Р66@А ADDR│&H0E02 е &H0E68:Н A$:Т ADDR, Й("&H"лA$):Л7+JЖBE,0E,00,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,457uTЖEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,397{^Р7Вh:Г7Фr:Г initialize7е|╚0:└1:Х100007─ЖЕ  Ж(&HE02)┤▓190 з Бж 28807єРМ F$(20),L(20),S(20),P(20),IX$(400),TB(20)7¤ЪБе 50┼   Tп  ═     E   D?  ╠   @я  ▌┐  ─  ┼   п  х   ДЯ  D/  Tп  e   t┐  }   d┐  ш  A9  я   ─  ?  U   ї   х   Ї╜ЭЭР9  ў┐  t▀  ▄   ╘┐  ▄   ╘  ї   ┘┐  ╫   ╘┐  ╒┐  ┼Я  ╒   ╘Я  ═   ╨Я  ╒┐  ╒   ¤┐  ─Ч  ┼   ФЯ  ї   └┐  ╒   ─N▀▐LN╬N@O╧DONDN▀╬LN╬▐DЕЁГїї'.ИЗ@PS,F$(I);":"; б(L(I),"."):З@SS,"";:╗Й V$'`ТЕ V$│"" з V$│ Р(S$,S(I),L(I)):З@SS,V$:Бе 1240'tЬЕ V$│"QUIT" з Р'ЗжZZ│L(I)м З(V$)'Щ░Е ZZ┤0 з 1230'л║Е ZZ│0 з 1240'┐─V$│V$л б(ZZ,32)'╥╬V$│ О(V$,L(I))'▀╪T$│T$лV$'хтЛ'ёь╘ S$│T$'№Ў┼ #1,J(T$│""(
Р(:Г(&:Гwhich record(1(Бж 720(<2Бж 850(M<Й"record#";J(^FЕ J▓LO з1340(nPЕ J┤│0 з 40(uZ:Г(БdБж 1510(ЭnЗ"enter <-Q#URADPNLS->"(╢xA$│ Т:Е A$│"" з 1400(╩ВЕ A$│"S" з 1710(·МЕ A$│ Л(8)з J│ Й( Р(S$, З(S$)м5,3)):Бе 1350)EЦЕ A$│"P" з З #DV,"RECORD"J:А I│1 е N:З#DV,F$(I)":" Р(S$,S(I),L(I)):Л I)lаЕ A$│ Л(9)з J│ Й( П(S$,3)):Бе 1350)єкЕA$│"L"зJ│Jм1:Бе1350:ДЕA$│"N"зJ│Jл1:Бе1350:ДЕA$│"#"з1340:ДЕA$│"U"з990:ДЕA$│"R"з1460:ДЕA$│"A"з920:ДЕA$│"Q"з40:ДЕA$│"D"з1480 :Д 1400) ┤Бж 1110*╛Бе 1380*)╚╘ S$│ Л(0):Бж1270:Бе 1380*0╥:Г*E▄:Гdisplay record*Pц─ #1,J*VЁЮ*g·З"record#";J*oK│0*}А I│1 е N*╚PS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I):K│Kл Б((ESмPS)о32)*э"Е ES▓480 з в44539:Ю:K│мI:Бе 1560+,З@PS,═"## ";I;:З F$(I)":"; Р(S$,S(I),L(I))+"6Л+(@Р+0J█:С+7T:Г+L^:Гkill data base+khЙ"ARE YOU SURE(YES/NO)";A$+АrЕ A$┤▓"YES" з 50+Й|KF│1+ХЖБе 2560+ЬР:Г+йЪ:Гsearch+╣дБж720:Бж850+╔оЮ:А I│1 е N+р╕З═"## ";I;:З F$(I)+ц┬Л,
╠Й"WHICH FIELD SEARCH OR ALL";A$,╓F│ Й(A$),6рЙ"ENTER SEARCH STRING";SS$,OъЕ SS$│"" з SS$│ Л(0),^ЇLO│ е(1):Ю,Б■Й"cURRENT OR fIRST RECORD";A$:,гЕ A$│"C" ░ J▓0 з JJ│J :Д JJ│1,┤А II│JJ е LO,╥─#1,II:З@0,"RECORD"II"  ",у&Е F│0 з 1860-0Е  Р(S$,S(F), З(SS$))│SS$ з J│II:Бж 1510 :Д 1900-$:Бе 1870-NDЕ  Ю(S$,SS$)┤▓0 з J│II:Бж1510 :Д 1900-pNЗ"Q TO END SEARCH ELSE ENTER"-ЙXA$│ Т:Е A$│"" з 1880-ЮbЕ A$│"Q" з II│LO-дlЛ-├vЗ@480, "mENU/vIEW/sEARCH";-▄АA$│ Т:Е A$│"" з 1920-ёКO│ Ю(1,"MVS",A$).ФИ Oл1 Бе 1920,40,1350,1710.Ю:Г.#и:Гindex.3▓Бж720:Бж850.N╝Ю:А I│1 е N:З═"## ";I;.Z╞З F$(I).`╨Л.Н┌Й"WHICH FIELD TO INDEX BY";F:Е F│0 з F│1.╟фЙ"ENTER LENGTH FOR INDEX OR ENTER";LI:ЕLI│0 з LI│L(F).╘юLO│ е(1).у°А I│1 е LO.э─#1,I/IX$(Iм1)│ Р(S$,S(F),LI)л П("    "л И(I),3)/"Л/- Бж2810/@*IX$(LO)│IX$(0)/O4А I│1 е LO/h>J│ Й( П(IX$(Iм1),3))/yH─ #1,J:T$│S$/ЬR Р(T$, З(T$)м2,3)│ П(IX$(I),3)/ё\Е Iм2▓│0 з  Р(T$, З(T$)м5,3)│ П(IX$(Iм2),3) :Д  Р(T$, З(T$)м5,3)│ П(IX$(LOм1),3)/¤f╘ S$│T$0 ■

Бе 2940h:ГDATABASE MANAGER, W.BONNELL 239 MASON AVE, ROCHESTER, NY,   14626 - COPYRIGHT 7/7/83o:Гw(█:ОЛ2DV│м2:Ю:З"menu"и<З"1. dEFINE FILE FIELDS"╛FЗ"2. aDD RECORDS"▌PЗ"3. vIEW, MODIFY RECORDS"ўZЗ"4. kILL A DATABASE"dЗ"5. sEARCH FOR FIELD",nЗ"6. cREATE AN INDEX"=xЗ"7. rEPORTSLВЗ"8. qUIT"\МЗ"9. fILES"vЦЙ"CHOOSE";O$:O│ Й(O$)ЩаЕ O│0 з O│ Ю(1,"DAVKSCRQF",O$)зкЕ O┤0з 50╖┤Е O▓20 з 50ы╛Е O┤8 з Й "FILE NAME (7 OR LESS CHARACTERS";F1$ ╚F1$│ О(F1$л"00000000",8) C╥И Oл1 Бе 50,240,910,1300,1630,1690,1960,2210,1610,2530 M▄Бе 50 Tц:Г qЁ:Гcreate file definition x·:Г К
F$│F1$л"/DEF" Ч
K│0:SW│0 в
Бе 380 ║
"Е IмK│▓15 з Ю:K│Iм1 ╒
,З@0,"FIELD"д16)"LENGTH ч
6З@32н(IмK),I; є
@Й F$(I)!
JЕ F$(I)│"" з N│Iм1:Р!"
TЗ@32н(IмK)л16,"";!<
^Й L(I):Е L(I)│0 з 310!E
hSW│1!K
rР!f
|Й"rEVIEW OR cREATE";A$!y
ЖЕ A$│"R" з 420!
РЮ!и
ЪI│Iл1:Бж 290:Е F$(I)│"" з 430 :Д 410!╡
дЮ:Бж 750!╗
оЮ!─
╕RL│0!╠
┬K│0!┌
╠А I│1 е N!ў
╓Е IмK│15 з в 44539:K│I:Ю"
рP(I)│RLл1"&
ъЗ@0,"FILE "F$;" FIELD REVIEW"P
ЇЗ@32н(IмK),═"## ";I;:З F$(I);д16)L(I)"_
■RL│RLлL(I)"eЛ"ВЗ "record length="д16)RL"КK│0"▓&Й"FIELD # TO CORRECT OR <ENTER>";A$"═0I│ Й(A$):Е A$│"" з 620"▌:Е I│0 з 550"юDЮ:K│I:Бж 310"■NЕ I▓N з N│I#XЮ:Бе 440#b:Г#%l:Гsave on disk#6vЕ SW┤▓1 з 40#HА█:Щ "O",#1,F$#YК┘ #1,FR,LA,N#gФА I│1 е N#АЮ┘ #1,F$(I),L(I),P(I)#ЖиЛ#Р▓Бе 40#Ч╝:Г#▓╞:Гopen file and define#╕╨Ю#╩┌F$│F1$л"/DEF"#тфЗ@0,"FILE NAME ";F$#ёюЩ"I",#1,F$$°Й #1,FR,LA,N$З "FIRST INDEX REC="FR$7З "LAST INDEX REC="LA$IL│0:А I│1 е N$j Й#1,F$(I),L(I),P(I):L│LлL(I)$Е*S(I)│Eл1:E│S(I)лL(I)м1$Л4Л$С>█$ЧHР$▒RЩ "D",#1,F1$л"/DAT",L$┴\╨ 1,L  з S$$╬fLO│ е(1)$╘pР$█z:Г$эД:Гadd records$ ОБж 720:Бж 850%ШJ│LO%вJ│Jл1%мБж1110%@╢Е V$│"QUIT"з J│Jм1:LO│J:Бе1380%K└Бе 930%R╩:Г%g╘:Гupdate records%s▐Бж 1510%ХшЙ"enter field# to update";UD$%дЄI│ Й(UD$):%╡№Е I│0 з 1380%╞Е I▓N з 1000%цЗ  б(L(I),"."):TT$│S$:╗Й V$%∙ZZ│L(I)м З(V$)&$Е ZZ▓0 з V$│V$л б(ZZ," ")&?. Р(TT$,S(I),L(I))│V$:T$│TT$:Бж 1260&K8Бе 1380&RB:Г&oL:Гadd or replace records&АVЮ:З"record"J&И`K│0&ЦjА I│1 е N&сtPS│32н(IлK):ES│32н(IлK)л З(F$(I))л1лL(I):SS│ESмL(I):K│Kл Б((ESмPS)о32)& ~Е ES▓480 з Ю:K│мI:Бе 1140 -є$
:Г****************************G:Г*        DRAG RACE         *j:Г* BY ROB AINSCOUGH         *Н(:Г* WALNUT CREEK CA 94598    *░2:Г* APRIL 3 1983             *╙<:Г****************************фFЮ:Х 0:Х 1000WPМ C$(2,25),E$(12,3),B$(13),DR$(5,3),DF$(5,3),T$(5,3),CB$(6,3),TB$(5,3),IP(14,16),P1(14,16),P2(14,16),PS(14,16)щZЖ 590,14000,10,500,12000,9,490,11500,9,465,11000,8,455,11000,9,454,10900,8,427,10000,7,400,9200,7,351,9000,6,350,9000,6,302,7500,5,289,3000,2 MdЖ CHEVELLE,PINTO,CAPRI,LAMBOURGHINI,PORSCHE,TOYOTA,CORVETTE,JEEP,TRANS AM,Z-28,280Z,BMW,FERARRI ╠nЖ ALUMINUM ALLOY,4000,5,METAL ALLOY,3000,4,WIDE PERFORMANCE SHAFT,2500,3,THIN PERFORMANCE SHAFT,2000,2,RACING SHAFT,1000,1!GxЖ CUSTOM POSY HIGH-LOW,6000,3,POSY MID TORQUE,4000,2,POSY HIGH TORQUE,3500,2,POSY LOW TORQUE,2000,1,RACE TORQUE,1000,0!╠ВЖ 5-SPEED SHIFT LINKAGE,7000,7,4-SPEED SHIFT LINKAGE,6500,6,3-SPEED SHIFT LINKAGE,6000,5,5-SPEED (HP),5000,3,4-SPEED (HP),5000,4"QМЖ DUEL INJECTION+NITRO,8000,8,DUEL FUEL INJECTION,4000,5,8 SINGLE BBL,3500,4,2 4BBL HOLLEY,3000,3,4BBL HOLLEY,2000,2,4BBL,1000,1"йЦЖ 4 DUEL LINKED TURBOS,2000,5,2 TURBO (HP),1500,4,1 TURBO (HP),1000,3,1 TURBO,500,1"╥аА A│1 е 12:А B│1 е 3:Н E$(A,B):Л B,A"экА A│1 е 13:Н B$(A):Л A#┤А A│1 е 5:А B│1 е 3:Н DR$(A,B):Л B,A#>╛А A│1 е5:А B│1 е 3:Н DF$(A,B):Л B,A#f╚А A│1 е 5:А B│1 е 3:Н T$(A,B):Л B,A#П╥А A│1 е 6:А B│1 е 3:Н CB$(A,B):Л B,A#╕▄А A│1 е 4:А B│1 е 3:Н TB$(A,B):Л B,A#▐цC$(1,24)│ И(100):C$(2,24)│ И(100)$ЁЗ@164, "WELCOME TO DRAG RACE"$"·З@228, "HIT ANY KEY TO START"$N
A$│ Т:Е A$│"" з A│ Д(12):B│ Д(6):Бе 260$
Ю:З@225,"WOULD YOU LIKE INSTRUCTIONS";:Й IN$$Э
Е  О(IN$,1)│"Y" з Бе 1870$г
"Ю$═
,З:Й "ENTER NUMBER OF PLAYERS(1-2)";NP$р
6Е NP│1 Бж 1190$°
@Е NP▓2 ▒ NP┤1 з 290$■
JЮ%W
TА D│1 е NP:C$(D,23)│ И(( Д(10)н1000)л19000):З"PLAYER "D" HAS "C$(D,23)" DOLLARS":Л D%k
^А A│1 е1500:Л A%q
hЮ%
rА D│1е NP%Р
|З "PLAYER "D%м
ЖЙ"ENTER NAME";C$(D,0):Ю%└
РЕ CH▓0 з D│CH:Ю%╥
ЪЗ "body type"%я
дА A│1 е 13:З A;B$(A):Л A&
оЙ "ENTER #";B:Е B│0 з Ю:Бе 450&&
╕C$(D,1)│B$(B):Ю&:
┬З "engine size"&P
╠З "CASH="C$(D,23)&Г
╓А A│1 е 12:З:З A;:А B│1е 2:З E$(A,B)" ";:Л B,A&Ч
рЗ:Й "ENTER #";E&м
ъЕ E│0 з Ю:Бе 530&╘
ЇЕ  Й(E$(E,2))▓ Й(C$(D,23)) з Бе 480'

■I│ Й(C$(D,23)):J│ Й(E$(E,2)):H│IмJ:C$(                                                                                                                                                                                                                                                                                      ╞╞├┴╔┼$┴&'─)*╟,┼.╞                     TITLE   BAS"1TIMER   BIN##FILES   BAS 
DRAGRACEBAS!ЎEDITOR  BAS%(SHIP    BAS(ЯTIMPIST BAS+PAUSE   BASгSDUMPX2 BAS-LOWCA16KBINLOWCA32KBIN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 .
Х200,15000:Ю'B$│"<HIT ENTER>":АX│15000е15103R(НOP$:N│ Й("&H"лOP$)c2ТX,N:S│SлN:ЛБ<З@72,"HOT COCO MAGAZINE "ЦFЗ@139,"PRESENTS"ЮPЗ:З╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"5iЗ@329,"DECEMBER 1984"BnЗ@426,B$wxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120ВВБе 120╬МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO " ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *" ]ЫЗ@290,"*ALL PROGRAMS COPYRIGHT 1984*       * HOT COCO MAGAZINE *" БЬЗ@389,"** CW COMMUNICATIONS **" ОаЗ@458,B$ ─кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 ╧┤Бе 170!5╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0!=╚Ю:С!ж╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00"▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39"$цЖ 9F,AF,CF,BF"-ЁЖ 00EA^ ANWRI;ёд 7░ 7їj╖║Й"gISW0@qYEP7{F$ Ё*o5Б{╖(L$/0	);ЕL?▓б1ССБo$ 0i│dО▐$(5)5й :Х D;Ё)│O┤ 0yл№б∙ё1И═╡$%в +ИxЩвQgя!╨AYEP;N$?y(5│ФЗ+n$(5) *╖а5││7з N%()╖ М(_$;?!m k▐$(1йАN%°!)л б(7                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                	)аCopyright (c) 1984 By Mark D. Goodwin{Menu╦0 - To time drive 0щ2 - To time drive 2■1 - To time drive 13 - To time drive 3dPress the indicated key to time the desired driveЬPress any other key to exit the programtDrive   isn't readysNo diskette in drive  ЯPress any key to return to the menu{Drive)*,hЁ? Ё    чЯ ∙    ╧■∙■ф?╧№єє№єсЯЯ∙єє∙єч Юyчч∙ч╧ └№Б№Я └?ч  ЯєЯ   ?чЯЁ9ч?╧ч■g╧?ЯЁ■╬?■|╧№А№є■
■     ╧       ╧Ё∙Щ°! Я№■fs╧ Я∙■f`? ?є№╠ч■ ?└∙ЩЁ< д°н·┤°■-
Ё1 .№5р %
 +
°?1┴ .■5Ё%№2№9№0┴ 1№2┴ 3№4┴ 5№6	┴ 7№8┴ 9№0№0№3┴ 1№2┴ 3№4┴ 5№6┴ 7№8┴ 9№0№1№3 └ №?└?№??№<<?№0№?№№? └  №?  └?  №?  №?  №?  №?  └  └ №?№?  №?  ├  №?  ├  №? └ №?№?  №? └   №?№?№? └ 0+0!00
0/∙/я/ц/▄/╥/╚/╛/┤/к/а/Ц/М/В/x/n/d/Z/P/F/</3/)////
.ў.э.у.┘.╧.┼.╗.▒.з.Э.У.Й.А.v.l.b.X.N.D.:.0.&...-■-Ї-ъ-р-╓-═-├-╣-п-е-Ы-С-З-}-s-i-_-U-K-A-7---#--
 °? ┴
■ЁГ №р DD@каfЁЎ`'Ж Щ$ЙРJD┌Pb@DBД"$АЦЎРNDb@`$ИАiЩЩ`LDDрiHЁi`ЩЯ°с`$ОЩ`ё$ИАiЦЩ`iЧ@`f`b@HBЁЁД!$Аi@@i╣`iЯЩРщЮЩрiИЙ`щЩЩр°ОИЁ°ОИАiЛЩ`ЩЯЩРфDDр`ЩмйРИИИЁЯ┘ЩРЭ▌╗Р∙ЩЩЁщЮИАiЩ┌PщЮ╩РiЖ`фDD@ЩЩЩ`ЩЩЦ`ЩЩ┐РЩfЩРЩdD@ё$ИЁtDDpИBт""рiЁd aypИщЩрxИpyЩpi°piОИАyqpИщЩР@─Dр`ИЪ╩РDDD@Я┘РщЩРiЩ`щшАyqнИАxaрDфD ЩЩ`ЩЦ`Щ┐РЩiРХ$АЄHЁ$"D@D@ДBDАZP╬)Ж~╖
О2┐

╠  ОэБМ(%∙╖ ╞╖ ╚╖ ╩╖ ═╖ ╬╖ ╨╖ ╥╖ └╖ ├╖ ┼╢ "ДК°╖ "╬*FО*роб''╞╫╞╫
цд╫7эБ
&°ь!:

'3╞ щ
&с1# ╒О)Z╠т ▌╠╠!
№╠
■╠т
°╬*ёь┴'Ч╫О/4ь┴╫
о┴4Vi╠√N╫Л╞H
╤Бў&їЖ
Л╞K
─Бё&їЖЛ╞M
╖БЇ&ї╠TI▌╠J+
аЖI
г╠╡+
ЭЖНЧ╠q+
Л╠┤.▌╠к+
А╠(
В╠GG
КЖK
ЕЖ│
АЖ╖
{╠HH
uЖJ
pЖ┤
kЖ╢
f>-О)(
С
О
Л
И
Е
В
нЯа'·А0%Б#qnЯ ■Ч
№ЦО*BжЖЎ H╖ @Y$╞О┌Б0&№Z&Ў щОЖ╨╖ HИИ0'+╢ HД&ї0'╢ HД'ї0'╢ HД&ї +ЦЛ0╖)эО)х 
ЦЛ0╖*О)√■О*°
ЩнЯа'· OО*:цОо╬+╤Ц╞=3╦╞4╞4ь─эДьBэ0И jф&ё2a3Djф&х2a╬ЮО*▒нЯа& 
ОP╢ HД&∙╢ HД'∙0
╢ HД&ў0
╢ HД'ўп╬,AOJLм┴$Г,у&ї4HлрЛ4Ц╞PН$\┴X&∙5Ч╞PН\┴X&∙ ЮНLС#∙9Н\╤#∙94Ж
 4O4ОЖ =0ЛжaЙDDD0ЖЖА─'DZ ·цр&C4жДдрзД5Ц4жДкр ЇюБ▀жА'Н3A Ї94V▄О0Й
Г3$ў╦34TTT4XXШыр0ЕHар@HH╬,у3╞ь┴0Ж╫
ь─Ч╫цф└ OXIXI╬-3╦╞O4╓
4ca'ж─ДЁ ж└HHHH_jф'DV °2a4ьДCSФ╘крърCSэД0И ja&╚2b5╓О╠  эБМ(%∙94пЖxЧ5В╢ *╢ Ц'
& @; .З@104,"SPIT-N-IMAGE";&╫ВЗ@163,"(2)";&ьМЗ@168,"TRIPLE ";'ЦЗ@175,"TRANSFER ";'аЗ@184,"UTILITY";')кЗ@227,"(3)";'C┤З@232,"TAPE-N-IMAGE";'T╕З@291,"(4)";'l╗З@296,"SPEED-COMP";'}╛З@355,"(5)";'П╚З@360,"EXIT"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 %C
:ГW.S. BONNELL  GLOBAL EDITOR  COPYRIGHT 12/29/83 VERSION 1.4IЮP╚0\#Бж 1080h(Бе 2380r2MS│10Ж<МA$(400),B$(MS)ФFCL│1:P3│1ЯPБе2050жZ:Г┬d:Гglobal search L /abc/╒nP│ Ю(C$," ")л1шxDL$│ Р(C$,P,1)■ВP1│ Ю(Pл1,C$,DL$)МЕP1│0зP1│ З(C$)л1.ЦOS$│ Р(C$,Pл1,P1мPм1);аАI│CL еNUкP3│ Ю(P3л1,A$(I),OS$)n┤ЕP3┤▓0зЗA$(I):CL│I:Рu╛ЛIЕ╚З"NOT FOUNDЛ╥РТ▄:Глц:Гlist or print file╛ЁE│ Й( Р(C$,2))█·ЕN┤1зN│1:A$(1)│"":DV│0:Р 
Е Ю(C$,"*")┤▓0▒CLлE▓N зE│NмCLл1 
NM$│ П(C$,1) (
B$│"":АI│CL еCLлEм1 ?
"A$│ Т:ЕA$┤▓""з╗ЙB$ U
,ЕB$┤▓""зI│N:Бе340 r
6ЕNM$│"N"зЗ#DV,═"### ";I; Б
@З#DV,A$(I) З
JЛ Ю
TCL│Iм1:ЕCL▓N зCL│N з
^DV│0 н
hР ┤
r:Г ╘
|:Гmove line pointer up/down ■
ЖЕ Р(C$,2,1)│":"зCL│ Й( Р(C$,3)):Бе430!
РNL│ Й( Р(C$,2))!!
ЪЕNL│0зNL│1!3
дCL│CLлNL:P3│1!C
оЕCL▓N зCL│N!R
╕ЕCL┤1зCL│1!e
┬ЗA$(CL):P3│1:Р!l
╠:Г!З
╓:Гsave file to device#!а
рЙ"ENTER FILENAME";F$!▓
ъЙ"DEVICE#";DV!║
ЇZ│0!═
■бИ:Щ"O",#DV,F$!╪АI│1еN!чЗ#DV,A$(I)!∙Z│Zл З(A$(I))! &Л"0Ъ":ЗZ"BYTES"DЗN"LINES"7NЗ Б(ZоN)"BYTES/LINE"@XDV│0"FbР"Ml:Г"lv:Гread file from a device#"ЛАЙ"LOAD(L) OR APPEND(A)";A$"гКЙ"INPUT DEVICE#";DV"┴ФЕA$│"A"зI│N:Z│N :ДI│0:Z│0"╓Ю╗Й"FILENAME ";F$"▌ибИ"э▓Щ"I",#DV,F$"¤╝Е М(DV)з770#╞I│Iл1#╨╗Й#DV,A$(I)#)┌Z│Zл З(A$(I))#RфЕDV│0░A$(I)│ Л(92)зI│Iм1:Z│Zм1:Бе770#rюЕI│400зЗ"BUFFER FULL":Бе770#|°Бе700#ЦCL│1:З"AT TOP OF FILE#ЮN│I#лЗZ"BYTES#╕ ЗN"LINES#╘*З Б(ZоN)"BYTES PER LINE#┌4Ъ#р>Р#чH:Г$R:Гchange C /abc/def/**$\P│ Ю(C$," ")л1$(fDL$│ Р(C$,P,1)$>pP1│ Ю(Pл1,C$,DL$)$_zЕP1│0зЗ"SYNTAX ERROR":Бе1040$vДP2│ Ю(P1л1,C$,DL$)$МОЕP2│0зP2│ З(C$)л1$жШOS$│ Р(C$,Pл1,P1мPм1)$┬вNS$│ Р(C$,P1л1,P2мP1м1)$╤мЕP3│0зP3│1$┌╢I│CL$ї└Е П(C$,1)│"*"зАI│CL еN%
╩P3│ Ю(P3,A$(I),OS$)%#╘ЕP3│0зP3│1:Бе1040%U▐A$(I)│ О(A$(I),P3м1)лNS$л Р(A$(I),P3л З(OS$))%gшЗ ═"[###]";I;%sэЗ A$(I)%ЕЄP3│P3л З(NS$)%й№Е П(C$,2)┤▓"**"зCL│I:I│N:Бе1040%▌ЕP3▓ З(A$(I))зP3│1:Бе1040 :Д Е П(C$,1)│"*"Бе970%ёЕ П(C$,1)│"*"зЛ%ўЗ%¤Р&$Ю&
.:Г&8:Гhelp&:BЗ"editing commands: [] OPTIONAL"&]LЗ"TOP - TOP";д16);"B - BOTTOM"&ЛVЗ"CF CURSOR COL.1";д16);"[N:+-n] DOWN/UP"&з`З"S SAVE";д16);"E EDIT"&╒jЗ"T[nN] TYPE(NUM)";д16);"L /abc[/]LOCATE"'tЗ"C /A/B[/*[*]] ";д16);"DEL[a,b OR n]"'%~З"MOVE A,B,C ";д16);"COPY A,B,C"'EИЗ"H HELP";д16);"Xabc EXTEND'lТЗ"I[n] INSERT";д16);"A ADD</* END>'ЩЬЗ"P[nN] PRINT(NUM)";д16);"<ENTER> AGAIN"'╣жЗ"U[n] UP";д16);"D[n] DOWN"'┘░З"Rabc REPLACE";д16);"QUIT"(║З"Z ZAP @ CURSOR";д16);"F SAME AS L"(.─З":n POINT TO n";д16)"DIR[P]-DIRECTORY"(4╪Р(;т:Г(Nь:Гdelete lines(jЎP│ Ю(1,C$," "):ЕP│0зP│4(ЪP1│ Ю(P,C$,","):ЕP1│0зE│ Й( Р(C$,4)):Бе1360(и
P2│ З(C$)(┐F1│ Й( Р(C$,P,P1))(┘F2│ Й( Р(C$,P1л1,P2))(щ(ЕF2▓N зF2│N)2ЕF1▓F2 зЗ"SYNTAX ERROR":P3│1:Р)<CL│F1)$FE│F2мF1л1)LPЕ П(C$,1)│"*"зN│CLм1:CL│CLм1:Бе1430)YZЕE│0зE│1)`d:Г)qnАI│CL еNмEл1)ГxA$(I)│A$(IлE))КВЛI)ФМN│NмE)пЦЕN┤1зN│1:CL│1:A$(1)│"")┐аЕCL▓N зCL│N)╩кP3│1:Р)╤┤:Г)с╛:Гadd lines)ў╚ЕN│1░A$(N)│""зN│0*═Й"LINE WIDTH";LW*╥N│Nл1*}▄З Л(128);дLWл1); Л(128);:PP│ Ж(137)м(LWл1):Е PP┤0 з PP│PPл256:Т 136, Ж(136)м1:Т 137,PP :Д Т 137,PP*Йц╗ЙA$(N)*бЁЕA$(N)│"/*"зN│Nм1:Р*м·Бе1490*│:Г*╧:Гcopy lines COPY A,B,C*тP│ Ю(1,C$," ")*Ё"ЕP│0з1620+,P1│ Ю(P,C$,",")+6ЕP1│0з1620+*@P2│ Ю(P1л1,C$,",")+:JЕP2┤▓0з1630+[TЗ"ERROR-NO MOVE/COPY":ER│1:Р+r^F1│ Й( Р(C$,P,P1))+МhF2│ Й( Р(C$,P1л1,P2))+ЭrЕF1▓F2 з1620+╞|ЕF2мF1▓MS зЗ"TOO MANY LINES":Бе 1620+уЖCL│ Й( Р(C$,P2л1)):OC│CL+ ЛЕ CL▓│F1 ░ CL┤F2 з 1620, РЕCL┤F2ANDCL▓│F1 зCL│1:Бе1620,0ЪЕCL▓N зCL│N,>дАI│F1 еF2,QоB$(IмF1)│A$(I),W╕Л,e┬E│F2мF1л1,x╠АI│Nл1еCLл1йм1,К╓A$(IлE)│A$(I),РрЛ,бъАI│CLл1еCLлE,╢ЇA$(I)│B$(IмCLм1),╝■Л,╞N│NлE,╤P3│1:Р,╪:Г,ы&:Гinsert lines,°0ЕN│0зN│1-:E│ Й( Р(C$,2)):ЕE│0зE│1-'DАI│Nл1еCLл1йм1-9NA$(IлE)│A$(I)-?XЛ-PbАI│CLл1еCLлE-^lЗ Л(128);-jv╗ЙA$(I)-pАЛ-zКN│NлE-ЕФP3│1:Р-МЮ:Г-Эи:Гmove lines-и▓Бж1560-╖╝Е ER│1 з Р-╙╞ЕCL┤F1 зCL│F1лE :ДCL│F1-▐╨Бж1380-■┌ЕOC┤F1 зCL│OCл1 :ДCL│OCмEл1.фР.ю:Г. °:Гenter commands.0ЕCL▓N зCL│N.BЕ CL┤1 з CL│1.KER│0.mЗ"cursor(";CL",";P3;")";:╗ЙC$.мЕC$┤▓""зAC│ К( О(C$,1)):ЕAC▓96з AC│ACм32: Р(C$,1,1)│ Л(AC).┼ Е Й(C$)┤▓0зC$│"N"лC$.ц*Е О(C$,1)│"F"з Р(C$,1,1)│"L".°4ЕC$│""зC$│OC$/>OC$│C$/@HЕ О(C$,1)│"Z"зA$(CL)│ О(A$(CL),P3м1):P3│1:ЗA$(CL):Бе2050/vRЕ О(C$,1)│"R"зA$(CL)│ Р(C$,2):P3│1:ЗA$(CL):Бе2050/Х\Е О(C$,1)│"A"Бж1480:Бе2050/╤fЕ О(C$,1)│"U"зC$│"N-"л Р(C$,2):Е Й( Р(C$,2))│0зC$│"N-1"/ЁpЕ О(C$,2)│"CF"зP3│1:Бе20500zЕ О(C$,2)│"TO"зCL│1:ЗA$(CL):P3│1:Бе20500GДЕ О(C$,1)│"B"зCL│N:ЗA$(CL):P3│1:Бе20500cОЕ О(C$,1)│":"зC$│"N"лC$0БШЕ О(C$,1)│"N"Бж390:Бе20500авЕ О(C$,1)│"S"зБж480:Бе20500┐мЕ О(C$,1)│"E"зБж640:Бе20500у╢Е О(C$,1)│"T"зDV│0:Бж240:Бе20501└Е О(C$,1)│"/"▒ О(C$,1)│"L" ▒  О(C$,1)│"F" зБж110:Бе20501>╩Е О(C$,1)│"I"Бж1840:Бе20501о╘Е О(C$,2)│"DI"зЗ г(0)"GRANS FREE":Е П(C$,1)│"P"зЗ#м2, г(0)"GRANS FREE":Т111,254:╬:Т111,0:Бе2050 :Д ╬:Бе20501╧▐Е О(C$,3)│"DEL"Бж1270:Бе20501эшЕ О(C$,1)│"D"Бж390:Бе20502ЄЕ О(C$,4)│"MOVE"Бж1970:Бе205028№Е О(C$,4)│"COPY"Бж1560:Бж2010:Бе20502V	Е О(C$,1)│"C"Бж860:Бе20502u	Е О(C$,1)│"H"Бж1090:Бе20502Ъ	Е О(C$,1)│"P"зDV│м2:Бж240:Бе20502╫	$Е О(C$,1)│"X"зA$(CL)│A$(CL)л Р(C$,2):P3│1:ЗA$(CL):Бе20502ш	.ЕC$│"QUIT"зС2■	8З"INVALID COMMAND3		BБе20503$	L└ 1:Х19000,32767:Бе 50:C$(2,13)│T$(A,3):A│ Д(6):C$(2,14)│CB$(A,1):C$(2,15)│CB$(A,2):C$(2,16)│CB$(A,3):A│ Д(4):C$(2,17)│TB$(A,1):C$(2,18)│TB$(A,2):C$(2,19)│TB$(A,3)4╬A│ Д(9):C$(2,21)│ И(A):B│ Д(10):C│AлB:C$(2,22)│ И(C):C$(2,20)│ И(C):C$                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ь 
:Г battleship by j.a.ottum>:Г 5629 prince edward aveY:Г el paso texas 79924`(:Гk2Х 1000w<Бе 1850~F:ГЙP:Г subЦZI│I4лXм4гdJ│J4лXм4─nИ C(T,10) Бе 120,140,160,170═xI│I4╪ВБе 170сМJ│J4ьЦБе 170∙аI│I4л4мX кР┤:Г╛:Г sub#╚А X│338 е 345/╥I│ Ж(X)A▄Е I│255 з 250fцЕ I│254 ░ X▓338 з I│Xм339:Бе 270ЛЁЕ I│253 ░ X┤341 з I│Xм331:Бе 270У·Л XЮ
Бе 200░
А X│338 е 345╝
J│ Ж(X)╬
"Е J│255 з 320ы
,Е J│239 з J│Xм338:Бе 340 
6Е J│223 ░ X┤340 з J│Xм330:Бе 340 
@Л X #
JБе 270 )
TР 0
^:Г U
h:Г determine search/attack phase c
rА T│0 е 3 }
|Е C(T,9)│2 з 620 :Д Л Л
ЖА T│0 е 4 е
РЕ C(T,9)│1 з 560 :Д Л м
Ъ:Г └
д:Г search phase ╧
оI│ Д(10)м1 ▐
╕J│ Д(10)м1!

┬Е D$(147лJн32лI)│ Л(207) з 430!
╠:Г!"
╓:Г look at boundaries!5
рА I4│Iм1 е Iл1!H
ъА J4│Jм1 е Jл1!|
ЇЕ I4│I ▒ J4│J ▒ I4┤0 ▒ J4┤0 ▒ I4▓9 ▒ J4▓9 з 520!а
■Е D$(147лJн32лI)┤▓ Л(207) з 770!мЛ J4,I4!╖Бе 430!╛:Г!╘&:Г attack phase 1!Ё0I│ Б(C(T,4)о10)л Д(3)м2":J│C(T,4)м Б(C(T,4)о10)н10л Д(3)м2"8DЕ I┤0 ▒ J┤0 ▒ I▓9 ▒ J▓9 з 560"bNЕ D$(147лJн32лI)│ Л(207) з 560 :Д 770"iX:Г"b:Г attack phase 2"ФlI4│ Б(C(T,4)о10)"иvJ4│C(T,4)мI4н10"╕АS│ Д(2)н2м3"┴КS│мS"╔ФX│4"╙ЮX│XлS"їиЕ C(T,X)│м1 ▒ X┤0 ▒ X▓8 з 650#
▓Е C(T,X)▓0 з 670#╝Бж 90#6╞Е I┤0 ▒ J┤0 ▒ I▓9 ▒ J▓9 з 650#Z╨Е D$(147лJн32лI)┤▓ Л(207) з 770#h┌C(I,J)│м1#sфБе 670#zю:Г#Ц°:Г determine type again#║Е D$(147лJн32лI)│ Л(175) з 1120#╚А T│0 е 4#ЇЕ C(T,11)│ К(D$(147лJн32лI)) з 800 :Д Л$
 Е C(T,9)│2 з 1030$*Е C(T,9)│1 з 900$&4:Г$F>:Г change search to attack1$SHC(T,9)│1$eRC(T,4)│Iн10лJ${\C(T,12)│C(T,12)м1$ЗfБе 1100$Оp:Г$пz:Г change attack1 to attack2$╝ДC(T,9)│2$╤ОI4│ Б(C(T,4)о10)$хШJ4│C(T,4)мI4н10$■вЕ I│I4 з CA│1:Бе 960%мЕ J│J4 з CA│2:Бе 960%>╢Е  А(IмI4)│ А(JмJ4) з CA│4 :Д CA│3%M└C(T,10)│CA%c╩C(T,12)│C(T,12)м1%а╘Е CA│1 ▒ CA│3 з C(T,4лJмJ4)│10нIлJ :Д C(T,4лIмI4)│10нIлJ%╗▐Е C(4,12)│0 з C(4,9)│3%╟шБе 1100%╬Є:Г%ф№:Г update attack2%·C(T,12)│C(T,12)м1&I4│ Б(C(T,4)о10)&#J4│C(T,4)мI4н10&j$Е C(T,10)│1 ▒ C(T,10)│3 з C(T,4лJмJ4)│10нIлJ :Д C(T,4лIмI4)│10нIлJ&Е.Е C(T,12)│0 з C(T,9)│3&М8:Г&зB:Г update display/grid&╢LТ 65314,13&╤V╔"V10;CECEC;V31;CECEC"&ь`D$(147лJн32лI)│ Л(207)'jЗ@147лJн32лI, Л(207);'
t:Г''~:Г clean up work grid':И:Г  first pass'HТА T│0 е 3'dЬЕ C(T,9)┤▓2 з Л:Бе 1300'sжCA│C(T,10)'И░I4│ Б(C(T,4)о10)'Ь║J4│C(T,4)мI4н10'к─А X│0 е 8'┴╬Е C(T,X)│м1 з 1270'╦╪Бж 90'√тЕ I┤0 ▒ J┤0 ▒ I▓9 ▒ J▓9 з C(T,X)│м1:Бе 1270(/ьЕ D$(147лJн32лI)│ Л(207) ░ C(T,X)│0 з C(T,X)│м1(7ЎЛ X(>:Г(R
:Г  second pass(iЕ C(0,9)┤▓2 з 1390(ЧЕ C(0,0)▓1 з А T│5 е8:C(0,T)│м1:Л:Бе 1390(┼(Е C(0,8)▓1 з А T│0 е3:C(0,T)│м1:Л:Бе 1390(Ї2Е C(0,1)▓1 з C(0,6)│м1:C(0,7)│м1:C(0,8)│м1)#<Е C(0,7)▓1 з C(0,0)│м1:C(0,1)│м1:C(0,2)│м1)HFЕ C(0,2)▓1 з C(0,7)│м1:C(0,8)│м1)mPЕ C(0,6)▓1 з C(0,0)│м1:C(0,1)│м1)ИZЕ C(0,3)▓1 з C(0,8)│м1)гdЕ C(0,5)▓1 з C(0,0)│м1)║nЕ C(1,9)┤▓2 з 1460)ёxЕ C(1,1)▓1 з C(1,5)│м1:C(1,6)│м1:C(1,7)│м1:Бе 1460*(ВЕ C(1,7)▓1 з C(1,1)│м1:C(1,2)│м1:C(1,3)│м1:Бе 1460*MМЕ C(1,2)▓1 з C(1,6)│м1:C(1,7)│м1*rЦЕ C(1,6)▓1 з C(1,1)│м1:C(1,2)│м1*НаЕ C(1,3)▓1 з C(1,7)│м1*икЕ C(1,5)▓1 з C(1,1)│м1*╢┤А T│2 е 3*═╛Е C(T,9)┤▓2 з 1520*·╚Е C(T,2)▓1 з C(T,5)│м1:C(T,6)│м1:Бе 1520+'╥Е C(T,6)▓1 з C(T,2)│м1:C(T,3)│м1:Бе 1520+B▄Е C(T,3)▓1 з C(T,6)│м1+]цЕ C(T,5)▓1 з C(T,2)│м1+cЁЛ+j·:Г+~:Г test for win+МА X│0 е 4+иЕ C(X,9)┤▓3 з 1620 :Д Л+п":Г+╩,:Г goto winners circle+╓6Бе 3120+▌@:Г+ёJ:Г player input+¤Tа 200,5,^Бж 200,+hЕ I┤0 ▒ I▓9 ▒ J┤0 ▒ J▓9 з 1620,ArЕ O(I,J)│9 з 1620,W|Е O(I,J)│0 з 1710,fЖТ 65314,13,БР╔"V10;CECEC;V31;CECEC",ЮЪЗ@132л32нJлI, Л(O(I,J));,кдБе 1720,─оЗ@132л32нJлI, Л(207);,╤╕O(I,J)│9,╪┬:Г,ь╠:Г test for win,·╓А I│0 е 9-рА J│0 е 9-ъЕ O(I,J)│0 з 1790-4ЇЕ O(I,J)┤▓9 з 370->■Л J,I-E:Г-`:Г goto winners circle-lБе 3120-s&:Г-Е0:Г title page-Л:Ю-вDЗ@42,"BATTLE SHIP"-┼NЗ@101,"SHIPS   SYMBOL   GRIDS"-╙XА X│0 е 4-▄bН Q$-ыlW│359м32нX-ўvЗ@W,Q$;.АЗ@Wл8, О(Q$,1);.'КЗ@Wл16,Xл2м А( Б(Xо2));.-ФЛ.KЮЗ@487,"ONE MOMENT PLEASE"._иЖPG,SS,DD,BB,CV.f▓:Г.{╝:Г intialization.И╞I│ Д( Я).У╨╔"T20".░┌М O(9,9),C(4,12),D$(511).╚ф:Г O(,) ocean array.▀ю:Г C(,) work sheet.є°:Г D$() display.·:Г/:Г build display/А X│0 е 511/1 D$(X)│ Л(128)/7*Л/G4А X│42 е 52/S>Н D$(X)/[HЛ X/vRЖb,a,t,t,l,e,|,s,h,i,p/И\А X│100 е 109/ЪfD$(X)│ Л(Xм3)/аpЛ/оzА X│0 е 9/┴ДV$│ П( И(X),1)/╒ОD$(131л32нX)│V$/█ШЛ/щвА X│0 е 4/¤мD$(97лXн32)│"c"0╢Л X0└А X│0 е 30(╩D$(289лXн32)│"b"00╘Л X0>▐А X│0 е 20SшD$(126лXн32)│"d"0hЄD$(254лXн32)│"s"0p№Л X0А	D$(382)│"p"0Р	D$(414)│"p"0Ч	:Г0║	$:Г build random ship positions0┬	.T│10╬	8Бж 24400▄	BА I│0 е 90ъ	LА J│0 е 91	VЕ O(I,J)│0 з V$│ Л(175) :Д V$│ Л(O(I,J))1-	`D$(147лJн32лI)│V$1H	jD$(132лJн32лI)│ Л(175)1R	tЛ J,I1Z	~T│01h	ИА I│0 е 91v	ТА J│0 е 91Г	ЬO(I,J)│01Н	жЛ J,I1Ь	░:Г carrier1▒	║V│67:W│5:Бж 25901├	─:Г battleship1╪	╬V│66:W│4:Бж 25901щ	╪:Г destroyer1■	тV│68:W│3:Бж 25902	ь:Г submarine2 	ЎV│83:Бж 259027
:Г patrol gun boat2L

V│80:W│2:Бж 25902b
Е T│1 з Р :Д 28302r
S│ Д(2)н2м32Ж
(C(1,1)│ Д(10)м12Ъ
2C(2,1)│ Д(10)м12з
<CA│ Д(4)2╡
FА X│2 е W2╔
PC(1,X)│C(1,1)лS2▌
ZC(2,X)│C(2,1)лS2¤
dИ CA Бе 2670,2690,2710,27203
nC(2,X)│C(2,1)3
xБе 27203-
ВC(1,X)│C(1,1)39
МБе 27203M
ЦC(2,X)│C(2,1)мS3h
аЕ S┤0 з S│Sм1 :Д S│Sл13n
кЛ3е
┤Е C(1,W)┤0 ▒ C(1,W)▓9 ▒ C(2,W)┤0 ▒ C(2,W)▓9 з 25903│
╛А X│1 е W3┘
╚Е O(C(1,X),C(2,X))┤▓0 з 2590 :Д Л3ч
╥А X│1 е W3■
▄O(C(1,X),C(2,X))│V4
цЛ4

ЁР4
·:Г4':Г finish display49А X│490 е 5014AН Y4Q"D$(X)│ Л(Y)4Y,Л X4Е6Ж66,89,128,74,128,65,128,79,84,84,85,774М@:Г4бJ:Г print display4иTЮ04╕^А X│0 е 5104╟hЗ@X,D$(X);4═rЛ4╘|:Г4юЖ:Г prepare work sheet4№РА I│0 е 45ЪА J│0 е 105дC(I,J)│05 оЛ J56╕Н C(I,11),C(I,12)5V┬Е I▓0 з C(I,0)│м1:C(I,8)│м15v╠Е I▓1 з C(I,1)│м1:C(I,7)│м15~╓Л I5МрC(4,2)│м15ЪъC(4,6)│м15╕ЇЖ67,5,66,4,68,3,83,3,80,25┐■:Г5╪:Г choose 1st player5ЇЕ  Д(2)│2 з 370 :Д 16205√:Г6&:Г winners circle6%0╔"CEGBECEGBGEC"67:А X│0 е 100:Л6ADQ$│ Т6eNЗ@490,"another"; Л(128);"game";6~XQ$│ Т:Е Q$│"" з 31606ПbЕ Q$│"Y" з О6ХlЮ6ЫvКACE":З"5. PRINT OUT CARS":З"6. START OVER"6юЦЙ "ENTER CHOICE";CH:Е CH│0 з 14207аИ CH Бе 400,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
7
В JAMES W. WOOD,424 N. MISSOURI, ATWOOD, IL,61913▌Ю:З:З" USE RIGHT JOYSTICK TO DESTROY":З" THE ADVANCING WEAPONS.":З" THE STICK MUST BE POSITIONED":З" AGAINST THE OUTER EDGE OF":З"IT'S CASE. FIRE WITH BUTTON !!"З:З" THE GAME SPEEDS UP AT ":З"  500 AND AT 1000 POINTS.">(З:З"PRESS ANY KEY TO CONTINUE"T2IN$│ Т:ЕIN$│""з50u<Х2000:МP$(16,4):Ю0:╔"L255O3"ИFАA│1е16:АB│1е4пPНX$,Y$:P$(A,B)│"BM"лX$л","лY$:ЛB,A ЩZЖ96,82,80,74,62,66,46,58,96,94,80,92,62,88,46,84,96,102,80,104,62,108,46,112,96,114,80,122,62,130,46,138,104,120,92,132,78,144,64,156,120,120,116,132,112,144,108,156,132,120,136,132,140,144,144,156,148,120,160,132,174,144,188,156!ГdЖ156,114,172,122,188,130,204,138,156,102,172,104,188,108,204,112,156,94,172,92,188,88,204,84,156,82,172,74,188,66,204,58,148,76,160,64,174,52,188,40,132,76,136,64,140,52,144,40,120,76,116,64,112,52,108,40,104,76,92,64,78,52,64,40!жnT$(1)│"U4R2D2R2D2L8D2R2D2R2U4"!╚xT$(2)│"BU4R2F3D4G3L4H3U4E3R2"!сВT$(3)│"U4F4G4H4E4D8"!°МT$(4)│"E4G8E4H4F8""ЦT$(5)│"U4D8U4R4L8""&аA$(0)│"R5D10L5U10""9кA$(1)│"BR5D10""P┤A$(2)│"R5D5L5D5R5""i╛A$(3)│"R5D5L5R5D5L5""╚A$(4)│"D5R5U5D10""Ш╥A$(5)│"R5L5D5R5D5L5""о▄A$(6)│"D10R5U5L5""└цA$(7)│"R5D10""▄ЁA$(8)│"R5D10L5U5R5L5U5""Ї·A$(9)│"R5D10U5L5U5"#
NZ│5:S1│4:SS│3:SC│0#
╚2,1:╝:┐1,1#-
АA│20е100й20#А
"AC$│ И(A):╞"BM100,"лAC$лT$(Aо20):╞"BM150,"лAC$лA$(Aо20):╞"BM160,"лAC$лA$(0):ЛA#Ш
,АT│1е1500:ЛT:╚2,1:╝$T
6L$(1)│"R8D2L3D8L2U8L3U2":L$(2)│"R2D10L2U10":L$(3)│"R8D10L2U8L1D1L2U1L1D8L2U10":L$(4)│"R8D6L6D4L2U10BF2R4D2L4U2BH2":L$(5)│L$(2):L$(6)│"R8D1L7D4R7D5L8U1R7U3L7U6":L$(7)│L$(1):A$│"S5BR30"$м
@АA│2е4:┐1,1:SL│4нA:SL$│"S"л И(SL):TI$│"":XL│20мAн4:XL$│ И(XL):YL│100мAн8:YL$│ И(YL)$╖
JАB│1е7$╙
TTI$│TI$лSL$лL$(B)лA$:ЛB%
^╞"BM"лXL$л","лYL$лTI$:А T│1 е 190:ЛT:┐0,0:Ю0%
h╚2,1:╝:ЛA%%
r┐0,0:Ю0:╚2,1:╝%F
|╞"BM30,30S4R195D135L195U135"%b
Ж╞"BM112,88R28D20L28U20"%{
Р╗(30,30)м(225,165),╜%Ф
Ъ╗(30,165)м(225,30),╜%н
д╗(30,68)м(225,128),╜%╞
о╗(30,128)м(225,68),╜%▀
╕╗(84,30)м(168,165),╜%°
┬╗(168,30)м(84,165),╜&
╠╞"BM30,98R195"&
╓╞"BM127,30D135"&<
р╗(114,89)м(139,107),╛,BF&h
ъАA│1е5:╗(10лAн10,5)м(15лAн10,10),╜,B:ЛA&q
Ї┐1,1&
■╟1е3:╟2е4&ФR│ Д(16):Q│ Д(5)&кJ0│ Н(0):J1│ Н(1)&∙ЕJ0▓61зJW│1:X│230:Y│J1н2.4л20:ЕY┤68зJJ│12:ДЕY┤98зJJ│11:ДЕY┤128зJJ│10:ДJJ│9'&ЕJW│1з610'Q0ЕJ0┤2зJW│1:X│20:Y│J1н2.4л20:ЕY┤68зJJ│1:ДЕY┤98зJJ│2:ДЕY┤128зJJ│3:ДJJ│4'_:ЕJW│1з610'йDЕJ1┤2зJW│1:X│J0н4:Y│20:ЕX┤84зJJ│16:ДЕX┤127зJJ│15:ДЕX┤168зJJ│14:ДJJ│13'╖NЕJW│1з610'·XЕJ1▓61зX│J0н4:Y│170:ЕX┤84зJJ│5:ДЕX┤127зJJ│6:ДЕX┤168зJJ│7:ДJJ│8(tbSS│SSл1:S│ Б(SSоS1):ЕS│5зNZ│NZм1:╚2,3:┐1,1:╗((5мNZ)н10л10,5)м((5мNZ)н10л15,10),╛,B:┐0,0:АA│0е8:ЮA:╔"O1DFAO3":ЛA:Бе780(Нl╞ P$(R,S)лT$(Q):╔"G"(ЯvЕNZ┤1 з Бе810(╕А╗(X,Y)м(Xл5,Yл5),╜,B)КPE│ Ж(65280):ЕPE│126▒PE│254з╗(Xл2,Yл2)м(127,97),╜:╔"CEA":ЕJJ│R за100,1:SC│SCл10н Д(Q):Бе690)&Ф╟3е1:╟4е2)/ЮJW│0)9иБе530)U▓SC$│ И(SC):LL│ З(SC$)м1)h╝SC$│ П(SC$,LL))v╞╚2,3:┐1,1)С╨╗(110,3)м(200,13),╛,BF)Я┌╟3е1:╟4е2)мфА A│1еLL)╟юXN│100лAн10:XN$│ И(XN))ю°╞"BM"лXN$л",3"лA$( Й( Р(SC$,A,1))))їЛA*╚2,1:┐1,1*BЕ SC┤500 з S1│4:SS│3 :Д Е SC┤1000 з S1│2:SS│1 :Д S1│1:SS│0*L Бе520*c*З@200,"SCORE=";SC;*w4Е SC▓HS з HS│SC*У>З@262,"HIGH SCORE=";HS;*░HЗ:З:З"PLAY AGAIN (Y/N)";*╗RIN$│ Т*╥\NI$│ Т:ЕNI$│""з860+
fЕNI$│"Y"з Бе 260 :Д Е NI$│"N"з К :Д Бе 860,6)▓1 з C(T,2)│м1:C(T,3)│м1:Бе 1520+B▄Е C(T,3)▓1 з C(T,6)│м1+]цЕ C(T,5)▓1 з C(T,2)│м1+cЁЛ+j·:Г+~:Г test for win+МА X│0 е 4+иЕ C(X,9)┤▓3 з 1620 :Д Л+п":Г+╩,:Г goto winners circle+╓6Бе 3120+▌@:Г+ёJ:Г player input+¤Tа 200,5,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (:ГSDUMPX2 GEMINI/EPSON SCREEN DUMP=
:ГCOPYRIGHT 1984T:ГJESSE W. JACKSONo:ГDOCTOR ASCII COLUMN Ж:ГHOT COCO - 11/84к:ГPUT PICTURE IN PMODE 4 SCREEN╞:ГTHEN RUN THIS PROGRAMр
А I│ 31232  е  31786 шН XЄТ I,X·(Л I$<Ж  26, 80, 52, 119, 15, 111, 127, 255IFЖ  64, 23, 1, 23, 23, 0, 159, 16lPЖ  38, 0, 92, 23, 1, 13, 23, 1ХZЖ  24, 23, 0, 231, 158, 186, 49, 137╜dЖ  23, 224, 95, 127, 124, 44, 23, 0тnЖ  200, 23, 1, 45, 31, 35, 52, 4 s:Г to print negative picture (white on black), <t:Г change the 67 in line 120 to 18 fxЖ  166, 165, 67, 125, 124, 44, 38, 12 РВЖ  23, 0, 55, 189, 162, 191, 189, 162 ╡МЖ  191, 22, 0, 9, 23, 0, 73, 189 тЦЖ  162, 191, 189, 162, 191, 49, 168, 224!аЖ  16, 156, 186, 42, 219, 31, 50, 23!2кЖ  0, 169, 53, 4, 125, 124, 44, 38![┤Ж  6, 124, 124, 44, 22, 255, 191, 92!Г╛Ж  193, 32, 38, 183, 23, 0, 114, 53!л╚Ж  119, 57, 52, 4, 198, 4, 247, 124!╤╥Ж  43, 95, 72, 36, 2, 202, 3, 122!Ў▄Ж  124, 43, 16, 39, 0, 5, 88, 88"цЖ  22, 255, 239, 31, 152, 53, 4, 57"EЁЖ  52, 4, 198, 4, 247, 124, 43, 95"n·Ж  71, 36, 2, 202, 192, 122, 124, 43"У
Ж  16, 39, 0, 5, 84, 84, 22, 255"╝
Ж  239, 31, 152, 53, 4, 57, 182, 255"с
Ж  34, 132, 1, 16, 39, 0, 41, 23#

"Ж  0, 105, 23, 0, 136, 173, 159, 160#.
,Ж  0, 16, 39, 0, 9, 129, 89, 16#T
6Ж  39, 0, 19, 22, 255, 224, 23, 0#}
@Ж  136, 142, 128, 0, 48, 31, 38, 252#д
JЖ  23, 0, 126, 22, 255, 223, 28, 0#╚
TЖ  57, 48, 141, 0, 3, 22, 0, 31#№
Y:Г line 350 is printer reset, if you're printer$5
Z:Г  doesn't have that function, change the 27 to 255$W
^Ж  27, 64, 255, 0, 0, 0, 0, 0$z
hЖ  0, 48, 141, 0, 3, 22, 0, 15$м
m:Г line 370 puts the printer in graphics mode$ы
n:Г  change the data statements to those your printer needs%.
o:Г  be sure to terminate the data with a 255 for the last byte%`
p:Г  you can use up to the third 0 in line 380%Д
rЖ  27, 75, 128, 1, 255, 0, 0, 0%и
|Ж  0, 0, 0, 48, 141, 0, 15, 166%╨
ЖЖ  128, 129, 255, 16, 39, 0, 6, 189%Є
РЖ  162, 191, 22, 255, 242, 57&7
Х:Г line 410 returns printer to text mode and sets 1/8" line feed&c
Ц:Г if your printer has no similar code,&Й
Ч:Г  replace the first 27 with 255&║
Ш:Г you may use up to the third 0 in line 420&ф
ЪЖ  27, 90 ,0, 27, 65, 8, 255, 0, 0, 0'
дЖ  0, 0, 0, 142, 4, 0, 204, 96'/
оЖ  96, 237, 129, 140, 6, 0, 38, 249'X
╕Ж  57, 48, 141, 0, 51, 166, 128, 129'А
┬Ж  255, 16, 39, 0, 7, 173, 159, 160'з
╠Ж  2, 22, 255, 241, 57, 48, 141, 0'╤
╓Ж  141, 166, 128, 129, 255, 16, 39, 0'·
рЖ  7, 173, 159, 160, 2, 22, 255, 241("
ъЖ  57, 142, 4, 0, 166, 132, 136, 64(J
ЇЖ  167, 128, 140, 6, 0, 38, 245, 57(p
■Ж  32, 32, 32, 32, 32, 32, 32, 32(ЦЖ  32, 32, 32, 32, 32, 32, 71, 69(╝Ж  77, 73, 78, 73, 32, 32, 32, 13(тЖ  10, 13, 10, 32, 32, 32, 32, 32)&Ж  32, 32, 32, 32, 32, 71, 82, 65).0Ж  80, 72, 73, 67, 83, 32, 68, 85)T:Ж  77, 80, 13, 10, 13, 10, 32, 32)zDЖ  32, 32, 32, 32, 32, 32, 32, 67)аNЖ  79, 80, 89, 82, 73, 71, 72, 84)╞XЖ  32, 49, 57, 56, 52, 13, 10, 13)ьbЖ  10, 32, 32, 32, 32, 32, 32, 32*lЖ  32, 74, 69, 83, 83, 69, 32, 87*8vЖ  46, 32, 74, 65, 67, 75, 83, 79*_АЖ  78, 13, 10, 13, 10, 255, 32, 32*ЕКЖ  32, 32, 32, 32, 32, 32, 32, 32*лФЖ  32, 80, 82, 73, 78, 84, 69, 82*╤ЮЖ  32, 79, 70, 70, 32, 13, 10, 13*ўиЖ  10, 32, 32, 32, 32, 32, 32, 32+▓Ж  32, 32, 82, 69, 84, 85, 82, 78+C╝Ж  32, 84, 79, 32, 66, 65, 83, 73+i╞Ж  67, 63, 13, 10, 13, 10, 32, 32+П╨Ж  32, 32, 32, 32, 32, 32, 32, 89+╡┌Ж  69, 83, 32, 79, 82, 32, 78, 79+█фЖ  32, 60, 89, 47, 78, 62, 13, 10,юЖ  13, 10, 255, 0, 0, 96, 77, 83,°:Г end SDUMPX2▓9 ▒ J┤0 ▒ J▓9 з 1620,ArЕ O(I,J)│9 з 1620,W|Е O(I,J)│0 з 1710,fЖТ 65314,13,БР╔"V10;CECEC;V31;CECEC",ЮЪЗ@132л32нJлI, Л(O(I,J));,кдБе 1720,─оЗ@132л32нJлI, Л(207);,╤╕O(I,J)│9,╪┬:Г,ь╠:Г test for win,·╓А I│0 е 9-р