home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
85xx
/
8512.d64
/
seeschlacht
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
12KB
|
384 lines
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=