o&

:ГBYTES&#:ГBY KEIRAN KENNY&<:ГCOPYRIGHT (C) 1992&S:ГBY FALSOFT, INC.&j:ГRAINBOW MAGAZINE&p
Ю&ЕЗ@42,"**BYTES**"&░З@193,"BY KEIRAN KENNY, SYDNEY, 1989."&║(Бж340'F2Ю:З@96,"A BYTE IS LIKE A ROW OF EIGHT   SPOTLIGHTS. EACH LIGHT IS A BIT.WHEN ALL ARE ON THEY REPRESENT  255 AND THE BINARY NUMBER....";'b<X│294:C│256:Бж260:Бж340'hFЮ'╓PЗ@128,"WHEN ALL LIGHTS ARE OFF THEY    REPRESENT ZERO AND THE BINARY   NUMBER....";:X│294:C│0:Бж260:Бж340(дZЮ:З@32,"IN VARIOUS COMBINATIONS OF ON   AND OFF THEY REPRESENT THE CHAR-ACTERS ON YOUR KEYBOARD AND MANYOTHER CHARACTERS. FOR INSTANCE THE LETTER 'A' IS DECIMAL 65 ANDBINARY....";X│294:C│66:Бж260:Бж340(▀dЮ:З@32,"INPUT A DECIMAL NUMBER IN THE RANGE 0-255";:ЙT)nЕT▓255зЮ:З@32,"MAXIMUM 255. TRY AGAIN.":АD│1е1000:Л:Бе100)^xT$│ П( И(T), З( И(T))м1):D$│"CHR$("лT$л")/CHR$(&H"л Ь(T)л")")ЮВЕT┤33▒T│143з З@128,D$л" NOT VISIBLE":Д З@131,D$л" = "л Л(T))▐МЗ@196,"BINARY "лT$л" =";:X│294:ЕT│0зC│T:Бж260::ДC│Tл1:Бж260)шЦБж330) аЕK$│"Y"▒K$│"y"з100*кЕK$│"N"▒K$│"n"зЮ:Бе190*$┤Бе150*И╛З"PRESS ANY KEY ON YOUR KEYBOARD EXCEPT <BREAK>. USE THE <SHIFT> KEY AND LOWER CASE TOO.":Бж350*▀╚T$│ П( И( К(K$)), З( И( К(K$)))м1):Е К(K$)┤33▒ К(K$)▓122з З@131,"KEY";:Д З@131,K$;+
╥З" = CHR$("лT$л")/CHR$(&H"л Ь( К(K$))л")"+@▄З@195,"BINARY "лT$л" =":X│294:C│ К(K$)л1:Бж260+yцЗ@354,"NOW ANOTHER KEY OR <BREAK> TO   END PROGRAM."+ГЁБж350+Щ·ЕK$┤▓ Л(3)з200:ДК+з
АP│7е0йм1+═
ЕC▓│(2пP)з З@X, Л(159);:З@Xм33,1;+ў
ЕC┤(2пP)зЗ@X, Л(128);:З@Xм33,0;:Бе300,
"C│Cм(2пP),
,X│Xл2,
6ЛP,
@Р,;
JЗ@424,"ANOTHER? Y/N":Бе350,V
TЗ@424,"PRESS ANY KEY";,n
^K$│ Т:ЕK$│""з350:ДРROGRAM."+ГЁБж350+Щ·ЕK$┤▓ Л(3)з200:ДК+з
АP│7е0йм1+═
ЕC▓│(2пP)з З@X, Л(159);:З@Xм33,1;+ў
ЕC┤(2пP)зЗ@X, Л(128);:З@Xм33,0;:Бе300,
"C│C                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Й&
:ГBINGO CARDS&):ГBY STEVE OSTROM&B:ГCOPYRIGHT (C) 1992&Y:ГBY FALSOFT, INC.&p:ГRAINBOW MAGAZINE&w2:Г&Б<Х1000&йFМS$(8),N(4,4),L$(4,4),R$(4,4),M$(4)'ХPЮ:З@8,"BINGO CARD MAKER":З:З"MAKE SURE YOUR PRINTER PRINT    HEAD IS PROPERLY SET AT THE TOP OF THE PAGE.  THIS PROGRAM USES ALL 66 STANDARD LINES ON AN     8 1/2 BY 11 SHEET OF PAPER.  SO PROPER PAPER, AND PRINT HEAD IS CRITICAL."'┴ZЗ@480,"PRESS <ENTER> TO PRINT...";:Й A$'┌dЮ:З@235,"WORKING..."'шnX│ Д(м Я)(xS$(1)│"BBBB    IIIII   NN    GGG     OOO  "(IВS$(2)│"B   B     I     NNN   G       O   O "(}МS$(3)│" BBBB     I     N N  N   G GGG   O   O "(▒ЦS$(4)│" B   B    I     N  N N   G   G   O   O "(фаS$(5)│"(1-15) (16-30) (31-45) (46-60) (61-75)")кS$(6)│"...... ....... ....... ....... .......")J┤S$(7)│".    . .     . .      . .     . .    .")U╛Бж 240)i╚З#м2, б(79,"*"))Б╥З#м2, б(39," ");"*")М▄Бж 240)ЦцБе 80)бЁБж 630)├·L$(2,2)│"FREE":R$(2,2)│"FREE")▄
З#м2,S$(1);"*";S$(1))ї
З#м2,S$(2);"*";S$(2)*
З#м2,S$(3);"*";S$(3)*'
"З#м2,S$(4);"*";S$(4)*@
,З#м2,S$(1);"*";S$(1)*Y
6З#м2,S$(5);"*";S$(5)*d
@АY│0е4*}
JЗ#м2,S$(6);"*";S$(6)*Ц
TЗ#м2,S$(7);"*";S$(7)*п
^З#м2,S$(7);"*";S$(7)*║
hАX│0е4*╠
rM$(X)│L$(X,Y)*╘
|Л X*▐
ЖБж500*Є
РЗ#м2,S$(0);"*";*¤
ЪАX│0е4+
дM$(X)│R$(X,Y)+
оЛ X+!
╕Бж500+0
┬З#м2,S$(0)+I
╠З#м2,S$(7);"*";S$(7)+Q
╓Л Y+j
рЗ#м2,S$(6);"*";S$(6)+p
ъР+┐
ЇS$(0)│". "лM$(0)л". . "лM$(1)л". . "лM$(2)л". . "лM$(3)л". . "лM$(4)л".":Р+╦
■А Y│0е4+╫А X│0е4+щN(X,Y)│0:ЛX,Y+ЇАY│0е4+ &АX│0е4,0N(X,Y)│15нXл Д(15):FL│0,*:ЕY│0 з 610,7DАZ│0еYм1,QNЕN(X,Y)│N(X,Z) з FL│1,bXЛZ:ЕFL│1з560,lbЛ X,Y,rlР,|vБж510,ЗААY│0е4,ТКАX│0е4,ЁФЕN(X,Y)┤10зL$(X,Y)│ И(N(X,Y))л"  ":ДL$(X,Y)│ Р( И(N(X,Y)),2,1)л" "л Р( И(N(X,Y)),3,1)л" ",·ЮЛ X,Y-иБж510-▓АY│0е4-╝АX│0е4-x╞ЕN(X,Y)┤10зR$(X,Y)│ И(N(X,Y))л"  ":ДR$(X,Y)│ Р( И(N(X,Y)),2,1)л" "л Р( И(N(X,Y)),3,1)л" "-В╨Л X,Y-И┌РКАX│0е4,ЁФЕN(X,Y)┤10зL$(X,Y)│ И(N(X,Y))л"  ":ДL$(X,Y)│ Р( И(N(X,Y)),2,1)л" "л Р( И(N(X,Y)),3,1)л" ",·ЮЛ X,Y-и                                                                                                                                                                                                                                                                 R&
:ГTRIANGLE&%:ГBY TOM BESHARA&>:ГCOPYRIGHT (C) 1992&R:ГFALSOFT, INC.&i:ГRAINBOW MAGAZINE&t
ч 0,14&{ф2&┴F│20:P│176:R│300:T│176:L│160:I│12:ГTHE X,Y COORDINATES OF A, B, C&╓(є(F,P):Г=POINT A&ы2є(R,T):Г=POINT B'<є(L,I):Г=POINT C'FX│ Д(300)'PY│ Д(176)'?Zє(X,Y):Г=FIRST RANDOM POINTT R'VdQ│ Д(6):Г=THE DICE'ynЕ Q│1 ▒ Q│2 з Бе 160:Г=POINT A'ЬxЕ Q│3 ▒ Q│4 з Бе 170:Г=POINT B'┐ВЕ Q│5 ▒ Q│6 з Бе 180:Г=POINT C'╩МБе 100(Ц:Г***CONVERT THE X,Y COORDINATES OF A, B, C TO A COMMON VARIABLE(!аD│F:S│P:Бе190(3кD│R:S│T:Бе190(?┤D│L:S│I(W╛ЕX┤D з XX│DмX:Бе210(o╚ЕX▓D з XX│XмD:Бе230({╥XX│XXо2(Н▄X│XлXX:Бе 250(ЩцXX│XXо2(дЁX│DлXX(░·X│ Б(X)(╔
Е Y┤S з YY│SмY:Бе280(т
Е Y▓S з YY│YмS:Бе300(ю
YY│YYо2)
"Y│YлYY:Бе 320)
,YY│YYо2)
6Y│SлYY)#
@Y│ Б(Y))F
Jє(X,Y):Г=NEW MEASURING POINT R)Q
TБе 100210(o╚ЕX▓D з XX│XмD:Бе230({╥XX│XXо2(Н▄X│XлXX:Бе 250(ЩцXX│XXо2(дЁX│DлXX(░·X│ Б(X)(╔
Е Y┤S з YY│SмY:Бе280(т
Е Y▓S з YY│YмS:Бе300(ю
YY│YYо2)
"Y│YлYY:Бе 32                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ╟ ╚─┴┴┴┴╟&'╟                            RAINBOW     ON         !DISK       "DECEMBER 92#BINGOCRDBASМTRIANGLEBASUPHSR RNGBAS$yGRID WARBAS%9BYTES   BASr                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ўNNNNNNNNNNNNNNNNNNNNNNNNїїї■"
ўNNNNNNNNNNNNNNNNNNNNNNїїї√                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      v&
:ГPHASER RANGE&):ГBY STEVEN PULS&B:ГCOPYRIGHT (C) 1992&P
Т 65495,0&`L│3000:RN│1&vA$│"NU5ND5NL5NR5"&╗(Ю0:Й"LEVEL (1 EASY - 20 HARD)";LV:Е LV┤1 ▒ LV▓20 з 40 :Д R│21мLV&╩2╚4:┐1,1:╝0&▌<╝0:А RD│1 е 10&юPTM│ Д(500)лL'9Z╔"T255L255V31O3CDEFGABO4CDEFGB":H│0:V│0:X│160:Y│96:H1│0:V1│0:V3│0:H3│0'dH1│ Д(320):V1│ Д(190):H2│ Д(50):V2│ Д(100):T│ Д(50)л50:┬(H,V),3,1'иnЕ H1лH2▓329 ▒ V1лV2▓189 з A│2 :Д A│1'╢xH│H1:V│V1'┐В Я│0'ЇМZ1│ Д(15):Z2│ Д(15):╜(H,V,1):X│ Н(0)н4:Y│ Н(1)н3(ЦИ A Бе 250,270(.аЕ H┤0 ▒ H▓255 ▒ V┤0 ▒ V▓190 з Бе90(=к┬(H,V),3,1)┤Е Ж(65280)│254▒ Ж(65280)│126зS│Sл1:H3│160:V3│192:HS│Xм160:VS│192мY:S1│HSо20:S2│VSо20:АT│1е10:╜(H3,V3,1):╜(H3,V3,2):╜(H3,V3,3):╜(H3,V3,0):H3│H3лS1:V3│V3мS2:ЛT:╔"V31L255T255O5AC":┬(X,Y),R,1:╝:Бе220)8╛╞"BM=X;,=Y;C1"лA$:┬(H,V),3,0:╞"BM=X;,=Y;C0"лA$)N╚╜(X,Y,1):╜(X,Y,0))И╥Е  Я▓TM з╔ "O3T25BAGFEDCCO2BAGFEDCCC":Бе340 :Д Бе 140*
▄D1│HмX:D2│VмY:Е (D1нD1)л(D2нD2)┤(RнR) з ╔"T255O3DCDCDCDCDCDCDECED":HT│HTл1:Бе 240 :Д A│ Д(2):H│Hл Д(5)н Д(2)м1:V│Vл Д(5)н Д(2)м1*цБе 140*БЁА CD│1 е 20 й 5:Т&HFF22, Д(32)л223:┬(H,V),CD,1,.3:╔ "T25L8O3C":┬(H,V),CD,0,.3:Т&HFF22,255:Л CD:Бе290*╝·╜(H,V,0):H│HлZ1:V│VлZ2:Е H▓H1лH2 ▒ V▓V1лV2 з A│2:Бе160*╟
Бе 160+
╜(H,V,0):H│HмZ1:V│VмZ2:Е H┤H1мH2 ▒ V┤V1мV2 з A│1:Бе 160+
Бе 160+
"Л RD+$
,┐ 0,0:Ю0+Ц
6╔"V31T25L2O3CV21L5CV10L16CCV5L64CCCV2L255CCCCC":З "YOUR AVERAGE SHOTS PER HIT WAS  "л И(Sо10)л" FOR ROUND";RN+┼
@З @256,"PRESS fire BUTTON FOR NEXT ROUND";+ё
JЕ  Ж(65280)┤▓254 ░  Ж(65280)┤▓126 з 320,
TЮ3:З@32,"PRESS FIRE BUTTON TO RESTART",H
^Е  Ж(65280)┤▓254 ░  Ж(65280)┤▓126 з 350,k
hRN│RNл1:R│Rм(LVо4):Е R┤1 з R│1,u
rБе 50AS  "л И(Sо10)л" FOR ROUND";RN+┼
@З @256,"PRESS fire BUTTON FOR NEXT ROUND";+ё
JЕ  Ж(65280)┤▓254 ░  Ж(65280)┤▓126 з 320,
TЮ3:З@32,"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 6&И Ё Бе 840:Т65497,0& :Г&4	:ГSET VARIABLES&Q
ф 2:у 2,15:у 4,56:у 7,52&pМ GC(2,10,10),GS$(2,10,10)&Дэ 1,152:э 2,152&┴S$(1)│"BL5U4ER14FRFRFRFD2GLGLGLGL14HU4":NS$(1)│"CRUISER"'S$(2)│"BL5UEUERER23FRFRFRFD2GLGLGLGL23HLHUкHU":NS$(2)│"DESTROYER"'Q#S$(3)│"BL5UERERERER32FRFRFRFD2GLGLGLGL32HLHLHLHU":NS$(3)│"BATTLESHIP"'М(S$(4)│"BL5U2ER12E2R32D2R10FD6GL56HU4":NS$(4)│"CARRIER"'н-S$(5)│"U3R10FRFRFGLGLGL10U3"'╨2S$(6)│"UEER17FRFRFGLGLGL17HHU"'ў7S$(7)│"ERERER22FRFRFGLGLGL22HLHLH"(<S$(8)│"ER9EER22D2R5FD3L40U3"(b:Г(6c:ГDRAW LITTLE PAGE(HdDL│106:Бж1000(Нiы(160,60)м(172,72),2:ї"BM166,66NE1NF1NG1H1":ы(160,60)м(172,72),1(юnH│5:V│3:Бж1100:А TD│1 е 300:Л:H│1:V│4:Бж1200:H│0:Бж1100:А TD│1 е 500:Л:А H│2 е 4:Бж 1200:Л H)9sч 1,2:ї"S2BM47,18R22F8D8L8U4H4L14G4D32F4R14E4U4L8U8R16D16G8L22H8U40E8")wxї"BM45,52R30F8D16G8L14F24L8H24D24L8U56BF8R18F4D8G4L18U16")в}ї"BM49,86R24D8L8D40R8D8L24U8R8U40L8U8")╒Вї"BM45,120R30F8D40G8L30U56BF8R18F4D32G4L18U40"*Зї"BM256,32R8D36E12F12U36R8D56L8U12H12G12D12L8U56"*IМї"BM264,70R8F16D40L8U24L24D24L8U40E16BD8BR4F12D4L24U4E12"*ПСї"BM256,108R32F8D16G8L16F24L8H24D24L8U56BF8R20F4D8G4L20U16":ї"S4"*╬Цю(8,22),"WRITTEN BY MIKE SWITZER":А T│1 е 5000:Л T:Бж 1400*╒╞:Г*я╟:ГENTER PLAYERS NAMES+@╚ч8,2:А P │ 1 е 2:ю(2,22),"PLAYER #":ю(10,22), И(P):ю(12,22),"<NAME>":а 100,5+q═HT│20:VT│22:Бж 1300:P$(P)│T$:Бж 1400:Л P:P│1+x
*:Г+Р
+:ГENTER COORDINATES+▄
,Бж1000:H│28:V│51:Y│4:Бж 320:ю(6,6),"A":ю(3,8),NS$(4):ю(2,9),"(5 GRIDS)",
1H│248:Y│3:Бж 320ю(33,6),"B":ю(29,8),NS$(3):ю(29,9),"(4 GRIDS)",h
6H│46:V│107:Y│1:Бж 320:ю(6,13),"C":ю(3,15),NS$(1):ю(2,16),"(2 GRIDS)",╢
;H│256:Y│2:Бж 320:ю(33,13),"D":ю(29,15),NS$(2):ю(29,16),"(3 GRIDS)":Бе 325,∙
@:ГHDRAW"BM"+STR$(H)+","+STR$(V)+S$(Y):HPAINT(H+2,V),4,8:RETURN-!
EL│ З(P$(P)):ю(20м(Lо2),1),P$(P):Y│1-V
Jю(2,22),"COORDINATES FOR":ю(18,22),NS$(Y):а100,5-k
OЕ P│1зJ│0 :Д J│2-}
TБж1500:Бж1400-ж
Yю(2,22),"DIRECTION <H OR V)?":а100,5-р
^HT│22:VT│22:Бж1600:ЕL$│"H"зD$(P,Y)│"0" :Д D$(P,Y)│"1".
cHS(P,Y)│H:VS(P,Y)│V:DS$(P,Y)│D$(P,Y):SV│Y.
О:Г..
П:ГCHECH IF SHIP FITS.F
РЕ D$(P,Y)│"1" з 425.X
ХЕ HлY▓9 з 445.
ЪА CF│H е HлY:Е GC(P,CF,V)┤▓0 з 445.И
ЯЛ CF.У
дБе 455.е
йЕ VлY▓9 з 445.╠
оА CF│V е VлY:Е GC(P,H,CF)┤▓0 з 445.╒
│Л CF.р
╕Бе 455.ь
╜Бж 1900.ў
┬Бе 330/>
╟:ГHDRAW"A"+D$(P,Y)+"BM"+STR$((H*12)+106)+","+STR$((V*12)+30)+S$(Y)/J
╠Бж 1700/w
╤Бж1400:Е E│1 з 470 :Д Y│Yл1:Е Y┤▓5 з 330/л
╓E│0:ю(2,22),"IS THIS PATTERN OK <Y/N>?":а 100,5/╩
█HT│28:Бж1600:ЕL$│"N" з 500/ч
рЕ P┤▓2 з P│2:ї"A0":Бе300/№
хБж1800:P│1:Бе6000
Є:Г0
є:ГREPLACE SHIP0R
ЇБж1400:ю(0,22),"CHANGE WHICH SHIP <A>,<B>,<C>, OR <D>?"0d
∙HT│39:Бж 16000в
■Е L$│"C" з Y│1 :Д Е L$│"D" з Y│2 :Д Е L$│"B" з Y│3 :Д Y│40╒ч2,2:D$(P,Y)│DS$(P,Y):H│HS(P,Y):V│VS(P,Y):SV│01ї"A"лD$(P,Y)л"BM"л И((Hн12)л106)л","л И((Vн12)л30)лS$(Y)15
ч8,2:Бж 1700:Бж 1400:E│1:Бе3301<V:Г1TW:ГFIRE SHOT AT GRID1ЭXБж1400:а 100,5:ю(2,22),P$(P):L│ З(P$(P))л1:ю((Lл2),22),"SELECT GRID"1╔]Е P│1 з G│2:DL│176:J│0 :Д G│1:DL│36:J│21╒bБж 15002gЕ GS$(P,H,V)│"M" ▒ GS$(P,H,V)│"H" з Бж 1900:Бе 6002=lЕ GC(G,H,V)│0 з Бж 1100:GS$(P,H,V)│"M":Бе7052xqБж 1200:GS$(P,H,V)│"H":K(P,GC(G,H,V))│K(P,GC(G,H,V))л12ЫvЕ GC(G,H,V)│1 ░ K(P,1)│2 з 7002╛{Е GC(G,H,V)│2 ░ K(P,2)│3 з 7002сАЕ GC(G,H,V)│3 ░ K(P,3)│4 з 7003ЕЕ GC(G,H,V)│4 ░ K(P,4)│5 з 7003КБе 7053║:Г3/╗:ГDID SHOT SINK SHIP3F╝H(P)│H(P)л1:Бж20003В┴А TD│1 е 1000: Л TD:ЕH(P)│4 з 715 :Д Е P│1 з P│2 :Д P│13Н╞Бе 6004╦Бж 1400:ч 8,2:ю(2,21),"YOU HAVE SUNK ALL OF":ю(23,21),P$(G):L│ З(P$(G)):ю(23лL,21),"S SHIPS":А TD│1 е 1000:Л TD:Бе 8004:Г4!:ГEND OF GAME4/ А P│1 е 24K%Е P│1 з DL│36 :Д DL│1764Y*А Y│1 е 44c/ч 1,24╢4:ГHDRAW"A"+DS$(P,Y)+"BM"+STR$((HS(P,Y)*12)+DL)+","+STR$((VS(P,Y)*12)+30)+S$(Y)4└9Л Y,P4Є>ю(2,23),"THIS GAME IS OVER. PRESS ANY KEY..."5
CY$│ Т:Е Y$│"" з 8355HЮ:Т 65496,0:К5#ц:Г53ч:ГDRAW GRID5@шц2:ч 8,25oэА V│DLм6 е DLл114 й 12:ъ(V,24)м(V,144),╜:Л5аЄА H│24 е 144 й 12:ъ(DLм6,H)м(DLл114,H),╜:Л:Р5зJ:Г5║K:ГMISS ROUTINE5ЇLА R│3 е 6 й 3:щ(Hн12лDL,Vн12л30),R,8:Л R:PM│31:Бж12155·QР6
о:Г6п:ГHIT ROUTINE6S░HH│Hн12лDL:VH│Vн12л30:щ(HH,VH),2,4:ш(HH,VH),4,4:PM│1:Бж12156З╡щ(HH,VH),2,1:щ(HH,VH),4,1:ш(HH,VHм2),1,1:Бж12156║║щ(HH,VH),4,7:щ(HH,VH),5,7:ш(HH,VHм4),7,7:PM│316я┐╔"O1L255V31":А M│1 е PM:╔"N10N3N5N4N2N6V-":Л M:Р6Ў:Г7:ГENTER TEXT ROUTINE7T$│""72L$│ Т:Е L$│"" з 13057ИЕ L$│ Л(8) з L$│ П(T$,1):T$│ О(T$, З(T$)м1):ч2,2:ю(HT,VT),L$:ч8,2:HT│HTм1:Бе 13057Ь#Е L$│ Л(13) з Р7─(T$│T$лL$:HT│HTл1:ю(HT,VT),L$:Бе13057╦v:Г7▄w:ГERASE TEXT7·xъ(0,176)м(319,191),╛,BF:Р8
┌:Г8$█:ГLOCATES CURSOR WITH JOYSTICK82▄H│DL:V│308[сJS│ Н(0):HH│ Н(J)н1.8:VV│ Н(Jл1)н1.88ЗцH│DLл( Б(HHо12)н12):V│30л( Б(VVо12)н12)8выы(Hм6,Vм6)м(Hл6,Vл6),28┐Ёь(Hм6,Vм6)м(Hл6,Vл6),1,░8▄їь(Hм6,Vм6)м(Hл6,Vл6),2,╜8Є·Е  к(J)┤▓1 з 15059 H│(HмDL)о12:V│(Vм30)о12:Р9:L$│ Т:Е L$│"" з 1540 :Д ю(HT,VT),L$:Р9A>:Г9]?:ГINPUT COORDINATE TEXT9З@L$│ Т:Е L$│"" з 1600 :Д ю(HT,VT),L$:Р9Ов:Г9кг:ГASSIGN SHIP TO GRID #9├дЕ D$(P,Y)│"1" з 1715:	йGC(P,H,V)│SV:GC(P,Hл1,V)│SV:Е Y│1 з Р :Д GC(P,Hл2,V)│SV:Е Y│2 з Р::оGC(P,Hл3,V)│SV:Е Y│3 з Р :Д GC(P,Hл4,V)│SV:Р:А│GC(P,H,V)│SV:GC(P,H,Vл1)│SV:Е Y│1 з Р :Д GC(P,H,Vл2)│SV:Е Y│2 з Р:▒╕GC(P,H,Vл3)│SV:Е Y│3 з Р :Д GC(P,H,Vл4)│SV:Р:╕:Г:╬:ГDRAW BOTH GRIDS;1DL│36:C│4:Бж1000:L│ З(P$(1)):ю(11м(Lо2),1),P$(1):А X│1е4:И X Бж1805,1810,1815,1820:Л X:Бе 1825;M
H│30:V│152:Y│5:Бж2100:Р;iH│48:V│152:Y│6:Бж2100:Р;ЕH│75:V│152:Y│7:Бж2100:Р;вH│110:V│152:Y│8:Бж2100:Р;√!DL│176:Бж1005:L│ З(P$(2)):ю(28м(Lо2),1),P$(2):АX│1е4:И X Бж1830,1835,1840,1845:Л X:Р<&H│170:V│152:Y│5:Бж2100:Р<5+H│188:V│152:Y│6:Бж2100:Р<R0H│215:V│152:Y│7:Бж2100:Р<o5H│250:V│152:Y│8:Бж2100:Р<vj:Г<Оk:ГTRY AGAIN ROUTINE<┌lБж 1400:ю(2,22),"TRY AGAIN":а 200,5:а 100,5:А TD│1 е 1000:Л TD:Бж1400:Р<с╬:Г<∙╧:ГSUNK SHIP ROUTINE=!╨А X│1 е GC(B,H,V):PM│31:Бж 1215:Л X=М╒:ГGOSUB 1400:HPRINT(10,22),"YOU SUNK THE":HPRINT(23,22),NS$(GC(G,H,V)):C-2:ON G GOSUB 2010,2015:RETURN=╡┌И GC(G,H,V) Бж 1805,1810,1815,1820:Р=▐▀И GC(G,H,V) Бж 1830,1835,1840,1845:Р=х2:Г>3:ГDRAW SHIP AT COORDINATES>54ї"A0BM"л И(H)л","л И(V)лS$(Y):ш(Hл2,V),C,8:РT(10,22),"YOU SUNK THE":HPRINT(23,22),NS$(GC(G,H,V)):C-2:ON G GOSUB 2010,2015:RETURN=╡┌И GC(G,H,V) Бж 1805,1810,1815,1820:Р=▐▀И GC(G,H,V) Бж 1830,1835,1840,1845:Р=х2:Г>3:ГDRAW SHIP AT COORDI