) ** TELE-BATTLE V1.1 ** V1.3 MODSU ** BY JULIAN BURGER ** APRIL 5, 1988q ** OCTOBER 5,1987 **( -THE FIRST IN A SERIES2 ----OF MODEM GAMES< ** ALL WILL BE FREEWARE **F ** BUT DON'T CHANGE THE ** P ** PROGRAM AROUND OR MY **( Z ** NAME, PLEASE!! **T d53281,.:53280,.:820,16((56577)16)^ i5000r n5,2,.,""(0) xG%(9,9),S$(4),L%(4),H%(1),N$(1):I.4:S$(I),L%(I): PT BOAT,2,DESTROYER,3,SUBMARINE,3,BATTLESHIP,4,CARRIER,5u CR$(13):DL$(20):SP$" ":LC$SP$SP$" ":RM$LC$:PL$"":SD54272:I.24:SDI,.::CR%(820) I120:IN$IN$(148): ** MAIN MENU ** ""9)"** TELE-BATTLE V1.3 **":9)"** BY JULIAN BURGER ** "MODEM STATUS:";:2000:RT%CR%"NO ";D "CARRIER":"[1] SEND MODEM COMMAND[ "[2] START GAME"l "[3] QUIT" "SELECT -->";:2000 ((56577)16)RT%170 A$:A$"1"A$"3"230 A$ RT%CR%280 A$"2""YOU MUST BE ON-LINE TO PLAY":I11100::1700 A$"3"5:15:"";:@ "A$"1"320P ,A$"2"360j 6 ** MODEM COMMAND ** @"COMMAND -->";:LG%20:1490:I$""170 JI$"+++"5,I$;:170 T5,I$:170 ^ ** START NEW GAME ** hPL%.:"YOU MAY CHAT NOW, PRESS F1 WHEN) r"YOU ARE READY TO BEGIN...@ |1600:1800:198,.~ "ENTER YOUR NAME -->";:LG%10:1490:N$(.)I$:I$" "GETTING OPPONENTS NAME...":1800:1870:5,""N$(.) #5,A$:A$""410 #5,A$:A$CR$450A$""I$I$A$ 420N$(1)I$0 ** INPUT SHIPS **J"PLACE YOUR SHIPS:x" ABCDEFGHIJ":" ":Y.9""(48Y)".........."::""11)"""22)"USE CURSOR KEYS":22)"TO MOVE; RETURN25)"TO PLACE./22)"USE CURSOR KEYS":25)"TO SELECT":25)"DIRECTIONB27)"SHIP:mBS%1225:BL%BS%20:CL54272:X%.:Y%.x&S.40 ** PLACE SHIP **:""20)SP$D""30((S$(S))2).5)S$(S)NL%BS%Y%40X%:P%(L%):L%,P%128 X1460:A$CR$7104bA$""A$""A$""A$""600HlA$""Y%Y%1\vA$""Y%Y%1pA$""X%X%1A$""X%X%1L%,P%:Y%.Y%9Y%9Y%.X%.X%9X%9X%.590G%(X%,Y%)660PL$"DIRECTION?1460:A$CR$PL$SP$:660@A$""A$""A$""A$""730xDY%1(A$"")1(A$""):DX%1(A$"")1(A$"")XX%X%:YY%Y%:E%.:I2L%(S)XX%XX%DX%:YY%YY%DY% XX%.XX%9YY%.YY%9E%1:800G%(XX%,YY%)E%1 :E%720.*XX%X%:YY%Y%:I1L%(S):G%(XX%,YY%)S1b4Z%YY%40XX%:CLBS%Z%,15:BS%Z%,(S$(S))64>XX%XX%DX%:YY%YY%DY%::""SP$:HPL$"WAITING FOR OPPONENT TO SETUP...":1800R ** WHO GOES FIRST? **\A%((162)15)1f5,(A%);p#5,A$:A$""880)zB%(A$):A%B%860^PL$SP$SP$PL$;:B%A%"YOU GO FIRST":PL%.:920|N$(1)" GOES FIRST":PL%11870:TLTI120TITL930 ** SET UP SCREEN AND BEGIN **PL$SP$SP$:T%6((N$(1))2.5):T0%6((N$(.))2.5)8""SP$:""T%)N$(1):""20T0%)N$(.)"":I.12O22)SP$:""IN$:" ABCDEFGHIJ":" ":Y.9:""(48Y)"..........:""11)"PL%1270 ** LOCAL PLAYER ** PL$"YOUR TURN -- PRESS F1 WHEN READY":SP$SP$:16005,"";NPL$SP$SP$:PL$"USE CURSOR KEYS; RETURN TO FIREvL%BS%Y%40X%:P%(L%):L%,P%128$1460:A$CR$1170.A$""A$""A$""A$""10608A$""Y%Y%1BA$""Y%Y%1LA$""X%X%1VA$""X%X%1`L%,P%:Y%.Y%9,jY%9Y%.;tX%.X%9J~X%9X%.T1050p((L%CL)15)121120L%,P%:PL$"FIRE!"SP$SP$1800:5,(X%65)(Y%65);#5,A$:A$""1200Z%(A$)193:1900:Z%.L%CL,1:1260 L%CL,2:Z%11260E"YOU SANK "N$(1)"'S "S$(Z%2):H%(.)H%(.)1:TLTI120UTITL1240gH%(.)51420 ** REMOTE PLAYER **PL%1:PL$""N$(1)"'S TURN":SP$SP$:1600PL$"WAITING FOR MOVE":1800 #5,X$:X$"A"1290#5,Y$:Y$"A"1300AXX%(X$)65:YY%(Y$)65:LL%BL%YY%40XX%:Z%G%(XX%,YY%)W(ZZ%Z%:Z%.13502ZZ%1:L%(Z%1)L%(Z%1)1:L%(Z%1).ZZ%Z%1:H%(1)H%(1)1F5,(ZZ%193);:PL$""N$(1)" FIRES AT "(XX%65)"-"(YY%48)P1900:Z%.LL%CL,1:1400ZLL%CL,2:ZZ%11400Dd""N$(1)" SANK YOUR "S$(ZZ%2):TLTI120TnTITL1390mxH%(1)5PL%.:1020 ** GAME OVER **""SP$SP$" ":"GAME OVER -- "N$(PL%)" WINS!!!PL$"PRESS F1 FOR MENU...":SP$SP$:PL%.:1600 110 ** GET ONE KEY ***A$:A$""14600G ** INPUT TEXT **QI$""^" ";u1460:A$CR$1580A$DL$1560A$((A$)127):A$" "1510(I$)LG%1510I$I$A$:A$;:1500(I$)I$(I$,(I$)1):A$;"1500 ," ":6 ** CHAT MODE **b;" @" E" G1607JA$:A$""16906TA$((A$)127):A$" "A$"_"1640@^1680khA$DL$LC$" "(LC$,37):5,A$;:1690rA$CR$LC$(LC$,34)" ":5:1690|A$""PL%16905,"";:5,A$;:LC$(LC$,37)""A$#5,B$:B$""1770B$((B$)127):B$" "B$"_"1720#1760GB$DL$RM$" "(RM$,37):1770oB$CR$RM$(RM$,34)" ":1770}B$""1770RM$(RM$,37)""B$A$""B$""""LC$:""RM$2000:RT%CR%1610"CARRIER LOST"::  ** WAIT FOR OTHER PLAYER ***1870?TLTI60:5,"";`#5,A$:A$""5,"";:1870y&2000:RT%CR%17800TITL1820:1810D ** CLEAR INPUT BUFFER **N#5,A$:A$""A$"A"1870Xb ** SOUND EFFECT **"lI.23:SDI,.::SD24,15:SD5,80:SD6,255GvSD4,17:SD4,16:I255732.1pSD1,I:J15:J,I:PL$SP$SP$" "Z%.1960PL$"HIT!!":53280,2:SD1,10:SD5,112:SD6,252:SD4,129D1500::SD4,128:53280,.: PL$"MISS ":SD24,4:SD5,143:SD6,252Q SD1,90:SD,40:SD4,129:I.100::SD4,128:I.100:W u  ** CHECK FOR CARRIER ** RT%(56577)16: " CALL THESE FINE BOARDS:"(13)(13) " SHOESHINE'S BAZAAR)!" HOLE IN THE WALL"(13)""8!X1200:^!" OVER 40 MEGS ONLINE!!" HOME OF SUPRA 128"(13)""!X1200:!" 300/1200/2400 BAUD"" A BBS FOR THE 128"(13)"""X1200:@"" RUNNING COLOR 64z"" 300/1200 BAUD"(13)"""X1200:"" PC PURSUITABLE"" HOME OF TELE-GAMES"(13)"""X1200:#" (415)/769-6958K#" (415)/524-1329"(13)(13)s#" HIT ANY KEY TO PLAY"#A$:A$""5090#