10 REM ********************************
20 REM
30 REM       SCHIFFEVERSENKEN MIT
40 REM         AKKUSTIKKOPPLER
60 REM      VON LARS V. OLLESCHIK
70 REM          MUEHLENKAMP 31
80 REM          4715 ASCHEBERG
90 REM          TEL. 02593/877
95 REM
96 REM ********************************
97 POKE53281,0:POKE53280,0
100 OPEN2,2,0,CHR$(38)+CHR$(33)
110 PRINT"[147]SCHIFFEVERSENKEN"
140 PRINT"GESCHRIEBEN VON LARS V. OLLESCHIK
160 [134]T%(127),P%(255),B$(15),Z$(15),Z(15),B(15)
170 [143] CODE UMWANDLUNG
180 [129]X[178]0[164]64:P%(X)[178]X:[130]:[129]X[178]65[164]90:P%(X)[178]X[170]32:[130]:P%(88)[178]88
190 [129]X[178]91[164]96:P%(X)[178]X:[130]:[129]X[178]97[164]122:P%(X)[178]X[171]32:[130]
200 [129]X[178]193[164]218:P%(X)[178]X[171]128:[130]:[129]X[178]0[164]126:T%(X)[178]P%(X):[130]
210 P%(148)[178]127:P%(127)[178]148
230 [141]6290
240 [137]2280
250 [143] VERBINDUNGSAUFBAU
270 [153]"LOAD";
280 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$";
290 [153]"CHR$ SCHIFFEVERSENKEN  *  KONTAKTAUFNAHME LEFT$";
300 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)";
310 [153]"        (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
320 [139]SP[178]3[167][153]" ---->  CHR$ TEST-SENDER         LEFT$  <----":[137]330
325 [153]" ---->  CHR$ TEST-EMPFAENGER     LEFT$  <----"
330 [153]"        MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
400 [139]SP[178]1[167]450
405 [129]I[178]1[164]3000:[130]
410 TE$[178]"THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG":A$[178]"":[153]"
420 FORI=1TOLEN(TE$)
430 PRINT#2,CHR$(P%(ASC(MID$(TE$,I,1))));
440 PRINTMID$(TE$,I,1);:NEXT
450 A$="":REM"DIREKTER KONTAKT
460 [161]#2,A$:[139]A$[178]""[167]500
470 [139]T%([198](A$))[178]34[167][151]212,0
480 [153][199](T%([198](A$)));
490 [139]T%([198](A$))[178]95[167]550
500 [161]B$:[139]B$[178]""[167]460
510 [153]B$;:
520 [152]2,[199](P%([198](B$)));
530 [139]B$[178]"_"[167]550
540 [137]460
550 [143] ABBRUCH DES DIREKTEN KONTAKTES          ****** SPIELBEGINN ******
560 [151]53281,6:[151]53280,6
570 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$";
580 [153]"CHR$  SCHIFFEVERSENKEN * SPIELFELDAUFBAU  LEFT$";
590 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)";
600 [153]"(null)LENLENLENLENLENLENLENLENLENLENRIGHT$         (null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$
610 PRINT"[199] *GEGNER* [200]         [199] *SPIELER* [200]
620 [153]"MID$LENLENLENLENLENLENLENLENLENLEN(null)         MID$LENLENLENLENLENLENLENLENLENLENLEN(null)
630 PRINT"[213][195][195][195][195][195][195][195][195][195][195][201]         [213][195][195][195][195][195][195][195][195][195][195][201]
640 [153]"CHR$ 123456789LEFT$ FLOTTE  CHR$ 123456789LEFT$"
650 [153]"CHR$A(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$(null)LENLENLENLENLENRIGHT$  CHR$A(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
660 [153]"CHR$B(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)(null)(null)FLEFT$  CHR$B(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
670 [153]"CHR$C(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)(null) ZLEFT$  CHR$C(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
680 [153]"CHR$D(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$D(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
690 [153]"CHR$E(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$E(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
700 [153]"CHR$F(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)(null)  SLEFT$  CHR$F(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
710 [153]"CHR$G(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)   ULEFT$  CHR$G(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
720 [153]"CHR$H(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$CHR$(null)   ULEFT$  CHR$H(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
730 [153]"CHR$I(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$MID$LENLENLENLENLEN(null)  CHR$I(null)(null)(null)(null)(null)(null)(null)(null)(null)LEFT$"
740 [153]"MID$LENLENLENLENLENLENLENLENLENLEN(null)         MID$LENLENLENLENLENLENLENLENLENLEN(null)"
750 [153]"OPEN  STEPBITTE GEBEN SIE NUN DIE POSITIONEN(null)WAIT"
760 [153]"   DER SCHIFFE IHRER FLOTTE NACHEIN-  WAIT"
770 [153]"   ANDER EIN. BUCHSTABE - ZAHL        WAIT"
780 [153]"  (null)NACH 15 EINGABEN WIRD VERIFIZIERT.WAITSTEPSYS"
790 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$  (null)LENLENLENLENLENLENRIGHT$
800 PRINT" [199]IHRE EINBABE BITTE : *-*[200]  [199]NR.   [200]
810 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)  MID$LENLENLENLENLENLEN(null)";
820 [143]"FLOTTENEINGABE
830 FORI=1TO15:PRINT"";TAB(33)I;:
840 POKE1967,42:POKE56239,1
850 POKE1969,42:POKE56241,1
860 GETB$(I):IFB$(I)=""THEN860
870 IFASC(B$(I))<65ORASC(B$(I))>73THEN860
880 POKE1967,ASC(B$(I))-64:POKE56239,1
890 GETZ$(I):IFZ$(I)=""THEN890
900 IFASC(Z$(I))<49ORASC(Z$(I))>57THEN890
910 POKE1969,ASC(Z$(I)):POKE56241,1
920 POKE(1024+40*(ASC(B$(I))-64+7)+ASC(Z$(I))-26),209
930 POKE(55296+40*(ASC(B$(I))-64+7)+ASC(Z$(I))-26),13
940 NEXT
950 REM"KONTROLLE DER POSITIONEN
960 [153]"";
970 [129]I[178]1[164]6:[153]"                                        ";:[130]
980 [153]"                                       ";
990 [153]""
1000 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$               ";
1010 [153]" CHR$KONTROLLE DER EINGABENLEFT$               ";
1020 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)               ";
1030 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ ";
1040 [153]" CHR$IDENTIFIZIERUNG:                    LEFT$ ";
1050 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null) SYS";
1060 F[178]8:[143]"ABFRAGE OB 15 FELDER BELEGT
1070 PRINT"FELDER             "
1080 P=0:FORI=1TO15:B(I)=ASC(B$(I))-64:Z(I)=ASC(Z$(I))-26:NEXT
1090 FORI=1TO9:FORJ=1TO9:IFPEEK(1024+40*(I+7)+J+22)=209THENP=P+1:F=0
1100 POKE(55296+40*(I+7)+J+22),F:F=8
1110 NEXT:NEXT
1120 IFP=15THEN1140
1130 GOTO2150
1140 REM"WEITERE PRUEFUNG
1150 U[178]0:[143]"U-BOOTE (2 STUECK)
1160 PRINT"U-BOOTE            "
1170 FORI=1TO9:FORJ=1TO9:B=I:Z=J:GOSUB2110:IFSV=209THEN1200
1180 GOTO1260
1190 REM
1200 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1260
1210 B=I+1:Z=J:GOSUB2110:IFSV=209THEN1260
1220 Z=J+1:B=I:GOSUB2110:IFSV=209THEN1260
1230 Z=J-1:B=I:GOSUB2110:IFSV=209THEN1260
1240 U=U+1:IFU>2THEN2150:REM"FEHLER
1250 [151](55296[170]40[172](I[170]7)[170]J[170]22),1
1260 [130]:[130]:[139]U[179]2[167]2150
1270 SB[178]0:[143]"SCHNELLBOOTE
1280 PRINT"SCHNELLBOOTE       "
1290 FORI=1TO9:FORJ=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN1560
1300 IFSV=209THEN1320
1310 GOTO1560
1320 B=I:Z=J-1:GOSUB2110:IFSV=209THEN1560
1330 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1560
1340 B=I+1:GOSUB2110:IFSV=209THEN1560
1350 B=I+1:Z=J+1:GOSUB2110:IFSV=209THEN2150
1360 B=I-1:Z=J+1:GOSUB2110:IFSV=209THEN2150
1370 B=I:Z=J+1:GOSUB2110:IFSV<>209THEN1560
1380 B=I:Z=J+2:GOSUB2110:IFSV=209THEN1560
1390 FORT=0TO1:POKE(55296+40*(I+7)+J+T+22),1:NEXT
1400 SB=SB+1:IFSB>3THEN2150
1410 GOTO1560
1420 FORJ=1TO9:FORI=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN1570
1430 IFSV<>209THEN1570
1440 B=I-1:Z=J:GOSUB2110:IFSV=209THEN1570
1450 Z=J-1:B=I:GOSUB2110:IFSV=209THEN1570
1460 Z=J+1:GOSUB2110:IFSV=209THEN1570
1470 Z=J-1:GOSUB2110:IFSV=209THEN1570
1480 Z=J+1:B=I+1:GOSUB2110:IFSV=209THEN2150
1490 Z=J-1:GOSUB2110:IFSV=209THEN2150
1500 Z=J:B=I+1:GOSUB2110:IFSV<>209THEN1570
1510 Z=J:B=I+2:GOSUB2110:IFSV=209THEN1570
1520 FORT=0TO1:POKE(55296+40*(I+7+T)+J+22),1:NEXT
1530 SB=SB+1:IFSB>3THEN2150
1540 GOTO1570
1550 REM
1560 NEXT:NEXT:GOTO1420
1570 NEXT:NEXT:IFSB<3THEN2150
1580 ZR=0:REM"ZERSTOERER
1590 [153]"ZERSTOERER         "
1600 [129]I[178]1[164]9:[129]J[178]1[164]9:B[178]I:Z[178]J:[141]2110:[141]2120:[139]SF[178]1[167]1820
1610 [139]SV[179][177]209[167]1820
1620 B[178]I:Z[178]J[171]1:[141]2110:[139]SV[178]209[167]1820
1630 B[178]I[170]1:Z[178]J:[141]2110:[139]SV[178]209[167]1820
1640 B[178]I[171]1:Z[178]J:[141]2110:[139]SV[178]209[167]1820
1650 B[178]I:Z[178]J[170]1:[141]2110:[139]SV[179][177]209[167]1820
1660 B[178]I:Z[178]J[170]2:[141]2110:[139]SV[179][177]209[167]1820
1670 B[178]I:Z[178]J[170]3:[141]2110:[139]SV[178]209[167]1820
1680 [129]T[178]0[164]2:[151](55296[170]40[172](I[170]7)[170]J[170]22[170]T),1:[130]
1690 ZR[178]ZR[170]1:[139]ZR[177]1[167]2150
1700 [137]1820
1710 [129]J[178]1[164]9:[129]I[178]1[164]9:B[178]I:Z[178]J:[141]2110:[141]2120:[139]SF[178]1[167]1830
1720 [139]SV[179][177]209[167]1830
1730 Z[178]J:B[178]I[171]1:[141]2110:[139]SV[178]209[167]1830
1740 Z[178]J[170]1:B[178]I:[141]2110:[139]SV[178]209[167]1830
1750 Z[178]J[171]1:B[178]I:[141]2110:[139]SV[178]209[167]1830
1760 Z[178]J:B[178]I[170]1:[141]2110:[139]SV[179][177]209[167]1830
1770 Z[178]J:B[178]I[170]2:[141]2110:[139]SV[179][177]209[167]1830
1780 Z[178]J:B[178]I[170]3:[141]2110:[139]SV[178]209[167]1830
1790 [129]T[178]0[164]2:[151](55296[170]40[172](T[170]I[170]7)[170]J[170]22),1:[130]
1800 ZR[178]ZR[170]1:[139]ZR[177]1[167]2150
1810 [137]1830
1820 [130]:[130]:[137]1710
1830 [130]:[130]:[139]ZR[179]1[167]2150
1840 FLU[178]0:[143]"FLUGZEUGTRAEGER
1850 PRINT"FLUGZEUGTRAEGER    "
1860 FORI=1TO9:FORJ=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN2080
1870 IFSV<>209THEN2080
1880 B=I:Z=J-1:GOSUB2110:IFSV=209THEN2080
1890 B=I+1:Z=J:GOSUB2110:IFSV=209THEN2080
1900 B=I-1:Z=J:GOSUB2110:IFSV=209THEN2080
1910 B=I:Z=J+2:GOSUB2110:IFSV<>209THEN2080
1920 B=I:Z=J+3:GOSUB2110:IFSV<>209THEN2080
1930 B=I:Z=J+4:GOSUB2110:IFSV=209THEN2080
1940 FORT=0TO3:POKE(55296+40*(I+7)+J+22+T),1:NEXT
1950 FLU=FLU+1:IFFLU>1THEN2150
1960 GOTO2080
1970 FORJ=1TO9:FORI=1TO9:B=I:Z=J:GOSUB2110:GOSUB2120:IFSF=1THEN2090
1980 IFSV<>209THEN2090
1990 Z=J:B=I-1:GOSUB2110:IFSV=209THEN2090
2000 Z=J+1:B=I:GOSUB2110:IFSV=209THEN2090
2010 Z=J-1:B=I:GOSUB2110:IFSV=209THEN2090
2020 Z=J:B=I+2:GOSUB2110:IFSV<>209THEN2090
2030 Z=J:B=I+3:GOSUB2110:IFSV<>209THEN2090
2040 Z=J:B=I+4:GOSUB2110:IFSV=209THEN2090
2050 FORT=0TO3:POKE(55296+40*(T+I+7)+J+22),1:NEXT
2060 FLU=FLU+1:IFFLU>1THEN2150
2070 GOTO2090
2080 NEXT:NEXT:GOTO1970
2090 NEXT:NEXT:IFFLU<1THEN2150
2100 GOTO2130:REM"SCHIFFSVARIABLE
2110 SV[178][194](1024[170]40[172](B[170]7)[170]Z[170]22):[142]
2120 SF[178][194](55296[170]40[172](B[170]7)[170]Z[170]22):[142]
2130 [143]
2140 [137]2170
2150 [153]"CLRFEHLER IN DER EINGABE...............SYS"
2160 [129]I[178]1[164]1000:[130]:[137]550
2170 [143]"KORREKTE EINGABE
2180 PRINT"ALLE EINGABEN REGELGERECHT..........[158]"
2190 REM"AB HIER WIEDER DIREKTER KONTAKT
2200 [129]I[178]1[164]1000:[130]
2210 [153]"SPIELBEGINN    "
2220 [129]I[178]1744[164]2024:[151]I,32:[130]
2230 [153]"":
2240 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$         ";
2250 [153]"CHR$PARTNER IST NOCH NICHT FERTIGLEFT$         ";
2260 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)SYS"
2270 [137]2530
2280 [143]"MENUE
2290 PRINT"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
2300 [153]" CHR$   SCHIFFEVERSENKEN * HAUPTMENUE    LEFT$
2310 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
2320 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
2330 PRINT" [199] [213][195][201]                                [200]
2340 [153]" CHR$ CHR$ALEFT$  KOPPLER IM ORIGINATE-MODUS    LEFT$
2350 PRINT" [199] [202][195][203]                                [200]
2360 [153]" CHR$                                    LEFT$
2370 PRINT" [199] [213][195][201]                                [200]
2380 [153]" CHR$ CHR$BLEFT$  KOPPLER IM ANSWER-MODUS       LEFT$
2390 PRINT" [199] [202][195][203]                                [200]
2400 [153]" CHR$                                    LEFT$
2410 PRINT" [199]                                    [200]
2420 [153]" CHR$                                    LEFT$
2430 PRINT" [199]                                    [200]
2440 [153]" CHR$  (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ LEFT$
2450 PRINT" [199]  [199] ---> BITTE WAEHLEN SIE <---   [200] [200]
2460 [153]" CHR$  MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null) LEFT$
2470 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
2480 [161]B$:[139]B$[179][177]"A"[175]B$[179][177]"B"[167]2480
2490 [139]B$[178]"B"[167]SP[178]3:[137]250
2500 [139]B$[178]"A"[167]SP[178]1:[137]250
2520 [143]
2530 [143]"SPIELBEGINN
2540 IFSP=3THENB$="\"
2550 IFSP=1THENB$="*":GOTO2620
2570 PRINT#2,CHR$(P%(ASC(B$)))
2580 GET#2,A$:IFA$=""THEN2580
2590 IFCHR$(T%(ASC(A$)))<>"*"THEN2580
2600 GOTO2650
2610 REM
2620 GET#2,A$:IFA$=""THEN2620
2630 IFCHR$(T%(ASC(A$)))<>"\"THEN2620
2640 PRINT#2,CHR$(P%(ASC(B$)))
2650 REM"BEGINN DER SCHLACHT
2660 [153]"PARTNER IST FERTIG..........."
2680 [139]SP[178]1[167]3110
2690 [129]I[178]1744[164]2023:[151]I,32:[130]
2700 [143]"EIGENER SCHUSS
2720 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
2730 PRINT"[199]IHR SCHUSS  *-*[200]"
2740 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
2750 REM"BUCHSTABE
2760 [161]B$:[139]B$[178]""[167]2760
2770 [139][198](B$)[177]74[176][198](B$)[179]65[167]2760
2780 [152]2,[199](P%([198](B$)))
2790 [151]1824[170]13,[198](B$)[171]64
2800 [151]56096[170]13,8
2810 [143]"ZIFFER
2820 GETZ$:IFZ$=""THEN2820
2830 IFASC(Z$)>57ORASC(Z$)<49THEN2820
2840 PRINT#2,CHR$(P%(ASC(Z$)))
2850 REM"EINTRAGEN
2860 [151]1824[170]15,[198](Z$)
2870 [151]56096[170]15,8
2880 [143]"EINTRAGEN AUF SPIELPLAN
2890 POKE(1024+40*(ASC(B$)-64+7)+ASC(Z$)-48+1),32
2910 REM"ABFRAGE TREFFER
2920 [143]
2930 [161]#2,A$:[139]A$[178]""[167]2930
2940 T[178]T%([198](A$))[171]64
2950 [139]T[179][177]14[175]T[179][177]10[175]T[179][177]5[175]T[179][177]22[167]2930
2980 [139][194](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]1)[178]86[167]TR[178]TR[171]1
2990 [139]T[178]10[176]T[178]22[167][151](55296[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]1),10:TR[178]TR[170]1
3000 [139]T[178]14[167]3020
3010 [141]6290
3020 [139]T[178]10[167][151](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]1),86
3025 [139]T[178]22[176]T[178]5[167][151](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]1),22
3030 [129]I[178]1[164]1000:[130]
3040 [139]T[178]5[167]3630:[143]"SIEG
3050 IFTR=15THEN3630
3060 IFT=10ORT=22THEN2720
3070 REM
3080 REM
3090 REM"AUSWERTUNG UND TREFFERAUFNAHME
3110 [129]I[178]1744[164]2023:[151]I,32:[130]
3120 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ (null)LENLENLENLENLENLENLENLENLENLENRIGHT$(null)LENLENLENLENLENLENLENLENRIGHT$";
3130 [153]"CHR$GEGNER-ZUG  *-*LEFT$ CHR$TREFFER * LEFT$CHR$RUNDE   LEFT$";
3140 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)CLOSEMID$LENLENLENLENLENLENLENLENLENLEN(null)MID$LENLENLENLENLENLENLENLEN(null)";
3150 [143]"BUCHSTABE
3160 GET#2,B$:IFB$=""THEN3160
3170 B$=CHR$(T%(ASC(B$)))
3180 IFASC(B$)<65ORASC(B$)>73THEN3160
3190 POKE1824+13,ASC(B$)-64
3200 POKE56096+13,8
3210 REM"ZIFFER
3220 [161]#2,Z$:[139]Z$[178]""[167]3220
3230 Z$[178][199](T%([198](Z$)))
3240 [139][198](Z$)[177]57[176][198](Z$)[179]49[167]3220
3250 [143]"EINTRAGEN
3260 POKE1824+15,ASC(Z$)
3270 POKE56096+15,8
3280 G$="N":ZE=81:REM"EINTRAGEN AUF SPIELPLAN
3290 [139][194](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]22)[178]209[167]GT[178]GT[170]1:ZE[178]86:G$[178]"J"
3300 [139][194](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]22)[178]86[167]:ZE[178]86:G$[178]"N":[137]3510
3310 [139][194](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]22)[178]87[167]:ZE[178]32:G$[178]"N":[137]3510
3320 [139][194](1024[170]40[172]([198](B$)[171]64[170]7)[170][198](Z$)[171]48[170]22)[178]32[167]:ZE[178]32:G$[178]"N":[137]3510
3330 BB[178]1:[143]"ABFRAGE VERSENKT
3340 IFPEEK(1024+40*(ASC(B$)-64+7)+ASC(Z$)-48+22+BB)=209THEN3510
3350 IFPEEK(1024+40*(ASC(B$)-64+7)+ASC(Z$)-48+22-BB)=209THEN3510
3360 IFPEEK(1024+40*(ASC(B$)-64+7+BB)+ASC(Z$)-48+22)=209THEN3510
3370 IFPEEK(1024+40*(ASC(B$)-64+7-BB)+ASC(Z$)-48+22)=209THEN3510
3380 REM
3390 ZB=(1024+40*(ASC(B$)-64+7)+ASC(Z$)-48+22)
3400 REM"ZERSTOERER VERSENKT ?
3410 [139][194](ZB[170]1)[178]86[175][194](ZB[170]2)[178]209[167]3510
3420 [139][194](ZB[171]1)[178]86[175][194](ZB[171]2)[178]209[167]3510
3430 [139][194](ZB[171]40)[178]86[175][194](ZB[171]80)[178]209[167]3510
3440 [139][194](ZB[170]40)[178]86[175][194](ZB[170]80)[178]209[167]3510
3450 [143]"FLUGZEUGTRAEGER VERSENKT ?
3460 IFPEEK(ZB+1)=86ANDPEEK(ZB+2)=86ANDPEEK(ZB+3)=209THEN3510
3470 IFPEEK(ZB-1)=86ANDPEEK(ZB-2)=86ANDPEEK(ZB-3)=209THEN3510
3480 IFPEEK(ZB+40)=86ANDPEEK(ZB+80)=86ANDPEEK(ZB+120)=209THEN3510
3490 IFPEEK(ZB-40)=86ANDPEEK(ZB-80)=86ANDPEEK(ZB-120)=209THEN3510
3500 ZE=22:G$="V":IFGT=15THENG$="E"
3510 POKE(1024+40*(ASC(B$)-64+7)+ASC(Z$)-48+22),ZE
3530 REM"ANSAGE DER TREFFER
3540 [152]2,[199](P%(([198](G$))))
3550 G[178]([198](G$))[171]64
3580 [139]G$[179][177]"N"[167][141]6290
3590 [129]I[178]1[164]1000:[130]
3600 [139]GT[178]15[167]3690
3610 [139]G$[178]"J"[176]G$[178]"V"[167]3110
3620 [137]2690
3630 [143]"SIEG
3640 FORI=1744TO2023:POKEI,32:NEXT
3650 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
3660 PRINT" [199] SIE HABEN DIE SCHLACHT GEWONNEN ... [200]";
3670 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
3680 GOTO3740
3690 REM"NIEDERLAGE
3700 [129]I[178]1744[164]2023:[151]I,32:[130]
3710 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$";
3720 [153]" CHR$ SIE HABEN DIE SCHLACHT VERLOREN ... LEFT$";
3730 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
3740 [137]4490
4490 [143]"SPIELENDE ERNEUT TERMINAL MODUS
4500 PRINT"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
4510 PRINT" [199] S P I E L E N D E * T E R M I N A L [200]";
4520 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
4530 PRINT"           ABBRUCH MIT '^' "
4540 PRINT">";
4550 GET#2,A$
4560 IFA$=""THEN4620
4570 IFT%(ASC(A$))=34THENPOKE212,0
4580 PRINTCHR$(T%(ASC(A$)));
4590 IFCHR$(T%(ASC(A$)))="^"THEN4680:REM"ABBBRUCH
4600 [139]T%([198](A$))[178]13[167][153]">";
4610 [137]4550
4620 [161]B$
4630 [139]B$[178]""[167]4550
4640 [152]2,[199](P%([198](B$)));
4650 [139]B$[178]"^"[167]4680:[143]"ABBRUCH SELBST
4660 PRINTB$;
4670 GOTO4550
4680 PRINT:PRINT" KOMMUNIKATION ABGEBROCHEN [146]"
4690 PRINT" PROGRAMM IST BEENDET."
4700 CLOSE2:END
6290 REM"VERTIKALES SCROLLING
6300 X[178]0:[129]I[178]1[164]140:X[178]X[170]1:[139]X[178]7[167]X[178][171]X
6310 [151]53270,[194](53270)[175]248[176][182](X)
6320 [130]:[142]