Z1013 Software-Datenbank Eintrag

Jeder Spieler muss 2 Schiffe aus 5 zusammenhaengenden Segmenten (die aber hier nicht kontrolliert werden) einprogrammieren. Durch Eingeben von Koordinaten sind die Schiffe des Gegners zu finden.
Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)

    1 O.12
    2 P.;P.;P.
    3 P."                "
    4 P."                "
    5 P."                "
    6 P."               "
    7 P."               "
    8 P."           "
    9 P."            "
   10 P.""
   12 P.;P.;P.
   18 P."S C H I F F E  V E R S E N K E N"
   19 P.;P.
   20 P."Jeder Spieler muss 2 Schiffe aus"
   21 P."5 zusammenhaengenden Sekmenten  "
   22 P."einprogrammieren. Durch Eingeben"
   23 P."von Koordinaten sind die Schiffe"
   24 P."des Gegners zu finden.          "
   25 P.;P.
   26 P."Alles klar ? >>>Ent.<<<"
   30 W=INCHAR;IFW#13GOTO30
   50 REM AUFBAU FENSTER
   51 O.12;Z=0;B=47;C=47
   52 POKEHEX(1B),HEX(C0);POKEHEX(1C),HEX(EE)
   53 POKEHEX(1D),0;POKEHEX(1E),HEX(F0)
   54 CALLHEX(F6D1)
   55 POKEHEX(EC04),83;POKEHEX(EC05),67;POKEHEX(EC06),72
   56 POKEHEX(EC07),73;POKEHEX(EC08),70;POKEHEX(EC09),70
   57 POKEHEX(EC0A),69;POKEHEX(EC0C),86;POKEHEX(EC0D),69
   58 POKEHEX(EC0E),82;POKEHEX(EC0F),83;POKEHEX(EC10),69
   59 POKEHEX(EC11),78;POKEHEX(EC12),75;POKEHEX(EC13),69
   60 POKEHEX(EC14),78
   61 R=HEX(EC24);F=HEX(EC34)
   62 FORA=RTOF;POKEA,238;NEXTA
   69 GOTO100
   70 REM VOLLES6FENSTER
   75 POKE HEX(1B),0;POKE HEX(1C),HEX(EC)
   80 POKE HEX(1D),0;POKE HEX(1E),HEX(F0)
   85 CALL HEX(F6D1)
   86 O.12
   90 STOP
  100 REM AUFBAU SPIELFELDER
  101 Z=0
  110 P=HEX(ECC3);Q=HEX(ECCC)
  120 FOR A=P TO Q
  130 POKE A,195;NEXT A
  140 P=P+32;Q=Q+32;Z=Z+1
  150 IF Z=10 GOTO 170
  160 GOTO 120
  170 Z=HEX(ECA2)
  180 Z=Z+1;B=B+1
  190 POKE Z,B
  200 IF B=57 GOTO 220
  210 GOTO 180
  220 Z=HEX(ECA2)
  230 Z=Z+32;C=C+1
  240 POKE Z,C
  250 IF C=57 GOTO 300
  260 GOTO 230
  300 P=HEX(ECD3);Q=HEX(ECDC)
  310 Z=0
  320 FOR A=P TO Q;POKE A,195;NEXT A
  330 P=P+32;Q=Q+32;Z=Z+1
  340 IF Z=10 GOTO 355
  350 GOTO 320
  355 Z=HEX(ECB2);B=47
  360 Z=Z+1;B=B+1;POKE Z,B
  370 IF B=57 GOTO 390
  380 GOTO 360
  390 Z=HEX(ECB2);C=47
  400 Z=Z+32;C=C+1;POKE Z,C
  410 IF C=57 GOTO 450
  420 GOTO 400
  450 POKE HEX(EC61),83
  451 POKE HEX(EC62),80
  452 POKE HEX(EC63),73
  453 POKE HEX(EC64),69
  454 POKE HEX(EC65),76
  455 POKE HEX(EC66),69
  456 POKE HEX(EC67),82
  457 POKE HEX(EC69),49
  458 POKE HEX(EC77),83
  459 POKE HEX(EC78),80
  460 POKE HEX(EC79),73
  461 POKE HEX(EC7A),69
  462 POKE HEX(EC7B),76
  463 POKE HEX(EC7C),69
  465 POKE HEX(EC7D),82
  466 POKE HEX(EC7F),50
  467 A=0;B=0;C=0;D=0;E=0;F=0;Z=0;G=0;H=0;I=0;J=0;K=0;L=0;M=0;N=0
  468 P=0;Q=0;R=0;T=0;U=0;V=0;X=0;Y=0
  469 O=0
  470 GOTO 4000
  500 REM UP 1 ZIELE WAAGERECHT
  501 REM_______________________
  510 IF W=0 W=HEX(ECC0)
  515 IF W=1 W=HEX(ECE0)
  520 IF W=2 W=HEX(ED00)
  525 IF W=3 W=HEX(ED20)
  530 IF W=4 W=HEX(ED40)
  535 IF W=5 W=HEX(ED60)
  540 IF W=6 W=HEX(ED80)
  545 IF W=7 W=HEX(EDA0)
  550 IF W=8 W=HEX(EDC0)
  555 IF W=9 W=HEX(EDE0)
  560 RETURN
  600 REM UP 2 ZIELE SENKRECHT
  610 IF S=0 S=3;GOTO 660
  615 IF S=1 S=4;GOTO 660
  620 IF S=2 S=5;GOTO 660
  625 IF S=3 S=6;GOTO 660
  630 IF S=4 S=7;GOTO 660
  635 IF S=5 S=8;GOTO 660
  640 IF S=6 S=9;GOTO 660
  645 IF S=7 S=HEX(A)
  650 IF S=8 S=HEX(B)
  655 IF S=9 S=HEX(C)
  660 RETURN
  800 REM UP ZIELBERECHNUNG
  810 A=S+W;GOSUB 900;GOTO 4010
  811 B=S+W;GOSUB 900;GOTO 4010
  812 C=S+W;GOSUB 900;GOTO 4010
  813 D=S+W;GOSUB 900;GOTO 4010
  814 E=S+W;GOSUB 900;GOTO 4020
  815 REM______S 1 Z 2___________
  820 G=S+W;GOSUB 900;GOTO 4020
  821 H=S+W;GOSUB 900;GOTO 4020
  822 I=S+W;GOSUB 900;GOTO 4020
  823 J=S+W;GOSUB 900;GOTO 4020
  824 K=S+W;GOSUB 900;GOTO 4030
  825 REM________S2 Z1___________
  830 M=S+W+16;GOSUB950;GOTO 4050
  831 N=S+W+16;GOSUB950;GOTO 4050
  832 O=S+W+16;GOSUB950;GOTO 4050
  833 P=S+W+16;GOSUB950;GOTO 4050
  834 Q=S+W+16;GOSUB950;GOTO 4060
  835 REM________S2 Z2___________
  836 T=S+W+16;GOSUB950;GOTO 4060
  837 U=S+W+16;GOSUB950;GOTO 4060
  838 V=S+W+16;GOSUB950;GOTO 4060
  839 X=S+W+16;GOSUB950;GOTO 4060
  840 Y=S+W+16;GOSUB950;GOTO 4080
  900 REM UP ANZEIGE
  910 POKE A,32;POKE B,32;POKE C,32;POKE D,32;POKE E,32
  915 POKE G,32;POKE H,32;POKE I,32;POKE J,32;POKE K,32
  916 RETURN
  920 POKEA,195;POKEB,195;POKEC,195;POKED,195;POKEE,195
  921 POKEG,195;POKEH,195;POKEI,195;POKEJ,195;POKEK,195
  925 RETURN
  950 POKE M,32;POKE N,32;POKE O,32;POKE P,32;POKE Q,32
  955 POKE T,32;POKE U,32;POKE V,32;POKE X,32;POKE Y,32
  956 RETURN
  960 POKEM,195;POKEN,195;POKEO,195;POKEP,195;POKEQ,195
  961 POKET,195;POKEU,195;POKEV,195;POKEX,195;POKEY,195
  965 RETURN
 1000 REM UP TREFFERZAEHLUNG
 1010 O.12;PRINT"ZIEL 1 GETROFFEN!"
 1011 GOSUB1500
 1012 M=0;GOTO1100
 1015 O.12;PRINT"ZIEL 1 GETROFFEN
 1016 GOSUB1500
 1017 N=0;GOTO1100
 1020 O.12;PRINT"ZIEL 1 GETROFFEN!"
 1021 GOSUB1500
 1022 O=0;GOTO1100
 1025 O.12;PRINT"ZIEL 1 GETROFFEN!"
 1026 GOSUB1500
 1027 P=0;GOTO1100
 1030 O.12;PRINT"ZIEL 1 GETROFFEN!"
 1031 GOSUB1500
 1032 Q=0;GOTO1100
 1035 O.12;PRINT"ZIEL 2 GETROFFEN!"
 1036 GOSUB1500
 1037 T=0;GOTO1120
 1040 O.12;PRINT"ZIEL 2 GETROFFEN!"
 1041 GOSUB1500
 1042 U=0;GOTO1120
 1045 O.12;PRINT"ZIEL 2 GETROFFEN!
 1046 GOSUB1500
 1047 V=0;GOTO1120
 1050 O.12;PRINT"ZIEL 2 GETROFFEN!"
 1051 GOSUB1500
 1052 X=0;GOTO1120
 1055 O.12;PRINT"ZIEL 2 GETROFFEN!"
 1056 GOSUB1500
 1057 Y=0;GOTO1120
 1060 O.12;PRINT"ZIEL 1 GETROFFEN!";GOSUB1500;A=0;GOTO1200
 1064 O.12;PRINT"ZIEL 1 GETROFFEN!";GOSUB1500;B=0;GOTO1200
 1067 O.12;PRINT"ZIEL 1 GETROFFEN!";GOSUB1500;C=0;GOTO1200
 1070 O.12;PRINT"ZIEL 1 GETROFFEN!";GOSUB1500;D=0;GOTO1200
 1073 O.12;PRINT"ZIEL 1 GETROFFEN!";GOSUB1500;E=0;GOTO1200
 1076 O.12;PRINT"ZIEL 2 GETROFFEN!";GOSUB1500;G=0;GOTO1220
 1080 O.12;PRINT"ZIEL 2 GETROFFEN!";GOSUB1500;H=0;GOTO1220
 1085 O.12;PRINT"ZIEL 2 GETROFFEN!";GOSUB1500;I=0;GOTO1220
 1090 O.12;PRINT"ZIEL 2 GETROFFEN!";GOSUB1500;J=0;GOTO1220
 1095 O.12;PRINT"ZIEL 2 GETROFFEN!";GOSUB1500;K=0;GOTO1220
 1100 IFM+N+O+P+Q=0GOTO1110
 1105 GOTO2510
 1110 O.12;PRINT"Ziel 1 vernichtet!"
 1111 PRINT"       "
 1112 GOTO1130
 1120 IFT+U+V+X+Y=0GOTO1122
 1121 GOTO2510
 1122 O.12;PRINT"Ziel 2 vernichtet!"
 1123 PRINT"       ";GOTO1130
 1130 IFM+N+O+P+Q+T+U+V+X+Y=0GOTO1135
 1131 FORF=0TO2000;NEXTF;GOTO2510
 1135 O.12;PRINT"Spieler 1 ist Sieger!!!!"
 1136 PRINT;PRINT"HERZLICHEN GLUECKWUNSCH"
 1137 GOTO1300
 1200 IFA+B+C+D+E=0GOTO1210
 1205 GOTO1225
 1210 O.12;PRINT"Ziel 1 vernichtet!"
 1211 PRINT"       ";GOTO1250
 1220 IFG+H+I+J+K=0 GOTO1230
 1225 GOTO 2110
 1230 O.12;PRINT"Ziel 2 vernichtet!"
 1231 PRINT"       ";GOTO1250
 1250 FORF=0TO2000;NEXTF
 1251 IF A+B+C+D+E+G+H+I+J+K=0GOTO 1260
 1255 GOTO 2110
 1260 O.12;PRINT"Sieler 2 ist Sieger!!!"
 1265 PRINT;PRINT"HERZLICHE GRATULATION!"
 1270 GOTO 1350
 1300 REM UP RESTTREFFERANZEIGE<<
 1310 FORF=0TO3000;NEXTF
 1315 O.12;PRINT"Ich zeige jetzt die"
 1316 PRINT;PRINT"restlichen Ziele von Spieler 1"
 1317 FORF=0TO2000;NEXTF
 1320 GOSUB 910
 1325 GOTO 1400
 1350 FORF=0TO3000;NEXTF
 1355 O.12;PRINT"Ich zeige jetzt die"
 1356 PRINT;PRINT"restlichen Ziele von Spieler 2"
 1360 FORF=0TO2000;NEXTF
 1370 GOSUB 950
 1375 GOTO 1400
 1400 O.12;PRINT"Noch ein Spiel?"
 1410 PRINT;INPUT"(0=NEIN/1=JA)"F
 1411 IFF>1GOTO1400
 1415 IFF=0GOTO70
 1420 IFF=1GOTO50
 1500 REM UP TREFFER
 1510 R=0
 1515 POKEL,32
 1520 FORF=0TO150;NEXTF
 1525 POKE L,42
 1530 FORF=0TO1;NEXTF
 1535 R=R+1
 1540 IFR=7 RETURN
 1545 GOTO1515
 1569 IFL=KGOTO1095
 2000 REM SPIELHAUPTPROGRAMM<<<<
 2001 REM________________________
 2010 PRINT"Ich ermittle jetzt wer beginnt."
 2011 PRINT;PRINT"Einen Moment bitte.
 2015 FORF=0TO2000;NEXTF
 2020 F=RND(10);IFF>5GOTO2100
 2025 IFF<5GOTO2500
 2100 O.12;PRINT"Es beginnt Spieler 1"
 2105 FORF=0TO2000;NEXTF
 2110 O.12;PRINT"SPIELER 1 SCHIESST";PRINT
 2115 INPUT"WAAGERECHT"W
 2125 IF W>9GOTO 2115
 2130 GOSUB500
 2135 INPUT"SENKRECHT "S
 2145 IFS>9GOTO2135
 2150 GOSUB600
 2155 L=S+W+16
 2160 IFL=MGOTO1010
 2161 IFL=NGOTO1015
 2162 IFL=OGOTO1020
 2163 IFL=PGOTO1025
 2164 IFL=QGOTO1030
 2165 IFL=TGOTO1035
 2166 IFL=UGOTO1040
 2167 IFL=VGOTO1045
 2168 IFL=XGOTO1050
 2169 IFL=YGOTO1055
 2180 POKE L,HEX(1)
 2185 GOTO 2510
 2500 O.12;PRINT"Es beginnt Spieler 2"
 2505 FORF=0TO2000;NEXTF
 2510 O.12;PRINT"SPIELER 2 SCHIESST";PRINT
 2515 INPUT"WAAGERECHT"W
 2525 IFW>9GOTO2515
 2530 GOSUB500
 2535 INPUT"SENKRECHT "S
 2545 IFS>9GOTO2535
 2550 GOSUB600
 2555 L=S+W
 2560 IFL=AGOTO1060
 2561 IFL=BGOTO1064
 2562 IFL=CGOTO1067
 2563 IFL=DGOTO1070
 2564 IFL=EGOTO1073
 2565 IFL=GGOTO1076
 2566 IFL=HGOTO1080
 2567 IFL=IGOTO1085
 2568 IFL=JGOTO1090
 2569 IFL=KGOTO1095
 2570 POKE L,HEX(1)
 2575 GOTO2110
 4000 REM ZIELAUFBAU SPIELER 1
 4001 PRINT"Es folgt der Aufbau der Ziele";FORF=0TO2000;NEXTF
 4002 PRINT;PRINT"Es beginnt Spieler 1!";FORF=0TO2000;NEXTF;O.12
 4005 PRINT"SPIELER 2 WEGSEHEN !"
 4006 FOR F=0 TO 500;NEXT F;R=R+1;IF R=5 GOTO 4010
 4007 O.12;GOTO 4005
 4010 O.12;PRINT"SPIELER.....1     ZIEL.....1";PRINT;GOTO 4100
 4020 O.12;PRINT"SPIELER.....1     ZIEL.....2";PRINT;GOTO 4100
 4030 O.12;PRINT"ZIELE LOESCHEN?
 4031 PRINT;PRINT"DANN >Ent< DRUECKEN"
 4032 W=INCHAR;IF W#13 GOTO 4030
 4033 IF W=13 GOSUB 920
 4034 GOTO 4040
 4040 O.12;R=0;PRINT"JETZT SPIELER 2";FORF=0TO1000;NEXTF;O.12
 4041 PRINT"SPIELER 1 WEGSEHEN !"
 4042 FORF=0TO500;NEXTF;R=R+1;IFR=5GOTO 4050
 4043 O.12;GOTO 4041
 4050 O.12;PRINT"SPIELER.....2     ZIEL.....1";PRINT;GOTO 4100
 4060 O.12;PRINT"SPIELER.....2     ZIEL.....2";PRINT;GOTO 4100
 4080 O.12;PRINT"ZIELE LOESCHEN?"
 4085 PRINT;PRINT"DANN >Ent< DRUECKEN"
 4090 W=INCHAR;IFW#13GOTO4080
 4092 IFW=13GOSUB960
 4095 O.12;GOTO2000
 4100 INPUT"WAAGERECHT"W
 4110 GOSUB 510
 4120 INPUT"SENKRECHT "S
 4130 GOSUB 610
 4140 Z=Z+1
 4145 IF Z=1 GOTO 810
 4150 IF Z=2 GOTO 811
 4155 IF Z=3 GOTO 812
 4160 IF Z=4 GOTO 813
 4165 IF Z=5 GOTO 814
 4170 IF Z=6 GOTO 820
 4175 IF Z=7 GOTO 821
 4180 IF Z=8 GOTO 822
 4185 IF Z=9 GOTO 823
 4190 IF Z=10 GOTO 824
 4195 IF Z=11 GOTO 830
 4200 IF Z=12 GOTO 831
 4205 IF Z=13 GOTO 832
 4210 IF Z=14 GOTO 833
 4215 IF Z=15 GOTO 834
 4220 IF Z=16 GOTO 836
 4225 IF Z=17 GOTO 837
 4230 IF Z=18 GOTO 838
 4235 IF Z=19 GOTO 839
 4240 IF Z=20 GOTO 840