1060 "S" GOTO 1071 1061 RANDOM :X= RND 118+&F840: IF PEEK X THEN 1061 1062 RETURN 1063 U=0: FOR P=0 TO 2: POKE A(P),0:A(P)=0: NEXT P: RETURN 1064 A(I)=X: POKE X,(K+1): RETURN 1065 PAUSE "Treffer": RETURN 1066 PAUSE "Versenkt":R=R+1: RETURN 1067 CLS : PAUSE "Wait 60s": IF MEM <400 PRINT STR$ (320- MEM )+" Bytes zuwenig!": END 1068 IF MEM $<>"1" PRINT "MEM$ auf 1 setzen!": END 1069 RETURN 1070 BEEP 1,10,15: RETURN 1071 CLEAR : DIM A(2): GOSUB 1067: FOR I=&F840 TO &F930 STEP 12: POKE I,9,0,0,0,0,0,0,0,0,0,0,9: NEXT I 1072 FOR I=&F834 TO &F93C STEP 132: POKE I,9,9,9,9,9,9,9,9,9,9,9,9: NEXT I: RANDOM 1073 GOSUB 1061: FOR I=1 TO 4: GOSUB 1088: POKE X,1: NEXT I: FOR K=1 TO 2:U=0:I=0 1074 B=0: GOSUB 1061: GOSUB 1094: IF B THEN 1074 1075 GOSUB 1064: FOR I=1 TO 2:U=0 1076 X=A(I-1): GOSUB 1088: GOSUB 1094: IF B=0 GOSUB 1064: NEXT I: NEXT K: GOTO 1079 1077 B=0:U=U+1: IF U>3 LET I=2: NEXT I: GOSUB 1063: GOTO 1074 1078 GOTO 1076 1079 FOR K=3 TO 5:U=0:I=0 1080 B=0: GOSUB 1061: GOSUB 1094: IF B THEN 1080 1081 GOSUB 1064:I=1 1082 X=A(0): GOSUB 1088: GOSUB 1094: IF B=0 GOSUB 1064: NEXT K: GOTO 1085 1083 B=0:U=U+1: IF U>3 GOSUB 1063: GOTO 1080 1084 GOTO 1082 1085 K=7: FOR H=1 TO 4 1086 B=0: GOSUB 1061: GOSUB 1094: IF B THEN 1086 1087 POKE X,7: NEXT H: BEEP 1: CLEAR : DIM V(3): RANDOM : ON RND 2 GOTO 1122,1101 1088 RANDOM : ON RND 4 GOTO 1090,1091,1092 1089 IF PEEK (X+1)=0 LET X=X+1: RETURN 1090 IF PEEK (X-1)=0 LET X=X-1: RETURN 1091 IF PEEK (X+12)=0 LET X=X+12: RETURN 1092 IF PEEK (X-12)=0 LET X=X-12: RETURN 1093 GOTO 1089 1094 FOR M=1 TO K: IF PEEK X<>0 THEN 1100 1095 IF PEEK (X+12)=M OR PEEK (X-12)=M THEN 1100 1096 IF PEEK (X+1)=M OR PEEK (X-1)=M THEN 1100 1097 IF PEEK (X+13)=M OR PEEK (X-13)=M THEN 1100 1098 IF PEEK (X+11)=M OR PEEK (X-11)=M THEN 1100 1099 NEXT M: RETURN 1100 B=1:M=K: GOTO 1099 1101 "D"B=1:G$= STR$ 0: INPUT "Du:";G$: IF V LET B=0 1102 IF LEN G$>3 OR VAL G$ OR ASC G$<65 OR ASC G$>74 OR VAL MID$ (G$,2,1)=0 OR ASC MID$ (G$,3,1)>48 THEN 1101 1103 H= ASC G$+&F86C-( VAL MID$ (G$,2,2)-1)*12 1104 ON PEEK H GOTO 1107,1108,1109,1110,1111,1112,1113,1114 1105 PAUSE "Wasser!": POKE H,8: IF B THEN 1122 1106 GOTO 1153 1107 L=L+1: ON L GOSUB 1065,1065,1065,1066: GOTO 1115 1108 M=M+1: ON M GOSUB 1065,1065,1066: GOTO 1115 1109 N=N+1: ON N GOSUB 1065,1065,1066: GOTO 1115 1110 O=O+1: ON O GOSUB 1065,1066: GOTO 1115 1111 P=P+1: ON P GOSUB 1065,1066: GOTO 1115 1112 Q=Q+1: ON Q GOSUB 1065,1066: GOTO 1115 1113 GOSUB 1066: GOTO 1115 1114 PAUSE "Da warst"+ CHR$ 39+" schon!!": GOTO 1101 1115 POKE H,8: IF R=10 THEN 1117 1116 GOTO 1101 1117 WAIT 0: PRINT "Dein Sieg!" 1118 WAIT 0: PRINT "nochmal?": WAIT 1119 A$= INKEY$ : IF A$="" THEN 1119 1120 GOSUB 1070: IF A$="J" THEN 1071 1121 END 1122 U=0:B=1: IF T<>10 THEN 1127 1123 WAIT 0: PRINT "Mein Sieg": PRINT "Positionen?": WAIT 1124 A$= INKEY$ : IF A$="" THEN 1124 1125 GOSUB 1070: IF A$="J" GOSUB 1173: GOTO 1118 1126 GOTO 1118 1127 U=U+1: IF U=4 GOSUB 1131: GOTO 1129 1128 X= RND 118+&F8C4: IF PEEK X THEN 1127 1129 G$= CHR$ (64+(X-(( INT ((X-&F8C4)/12))*12+&F8C4))) 1130 S$= STR$ (10- INT ((X-&F8C4)/12)): GOTO 1146 1131 U=0: ON RND 8 GOTO 1134,1136,1138,1140,1142,1144,1140 1132 FOR K=&F8C5 TO &F93A: IF PEEK K NEXT K 1133 X=K:K=&F93A: NEXT K: RETURN 1134 FOR K=&F93A TO &F8C5 STEP -1: IF PEEK K NEXT K 1135 X=K:K=&F8C5: NEXT K: RETURN 1136 FOR C=0 TO 9: FOR K=&F931 TO &F8C5 STEP -12: IF PEEK (K+C) NEXT K: NEXT C 1137 X=K+C:K=&F8C5,C=9: NEXT K: NEXT C: RETURN 1138 FOR C=0 TO 9: FOR K=&F8CE TO &F93A STEP 12: IF PEEK (K-C) NEXT K: NEXT C 1139 X=K-C:K=&F93A:C=9: NEXT K: NEXT C: RETURN 1140 FOR C=1 TO 64: READ K:K=K+&F8C4: IF PEEK K THEN 1145 1141 X=K:C=64: NEXT C: RESTORE : RETURN 1142 FOR K=&F931 TO &F8CE STEP -11: IF PEEK K NEXT K: GOTO 1144 1143 X=K:K=&F8CE: NEXT K: RETURN 1144 FOR C=&F93A TO &F8C5 STEP -13: IF PEEK C=0 LET X=C,C=&F8C5: NEXT C: RETURN 1145 NEXT C: RESTORE : ON RND 4 GOTO 1132,1134,1136,1138 1146 "M" WAIT 0: PRINT "Ich:";G$+S$;" (W/T/V)": WAIT 1147 A$= INKEY$ : IF A$="" THEN 1147 1148 GOSUB 1070: IF A$="W" POKE X,8: GOTO 1101 1149 IF A$="T" OR A$="V" THEN 1151 1150 GOTO 1147 1151 V=V+1:V(V-1)=X: POKE X,8 1152 IF A$="V" LET T=T+1: FOR I=0 TO V-1:X=V(I): GOSUB 1164:V(I)=0: NEXT I:V=0: GOTO 1122 1153 W=V-1:B=0: ON RND 2 GOSUB 1154,1159: GOTO 1129 1154 FOR I=0 TO W:X=V(I): IF PEEK (X+12)=0 LET X=X+12,I=W: NEXT I: RETURN 1155 IF PEEK (X-12)=0 LET X=X-12,I=W: NEXT I: RETURN 1156 IF PEEK (X+1)=0 LET X=X+1,I=W: NEXT I: RETURN 1157 IF PEEK (X-1)=0 LET X=X-1,I=W: NEXT I: RETURN 1158 NEXT I 1159 FOR I=W TO 0:X=V(I): IF PEEK (X-1)=0 LET X=X-1,I=0: NEXT I: RETURN 1160 IF PEEK (X+1)=0 LET X=X+1,I=0: NEXT I: RETURN 1161 IF PEEK (X-12)=0 LET X=X-12,I=0: NEXT I: RETURN 1162 IF PEEK (X+12)=0 LET X=X+12,I=0: NEXT I: RETURN 1163 NEXT I: GOTO 1154 1164 IF PEEK (X-12)<9 POKE X-12,8 1165 IF PEEK (X+12)<9 POKE X+12,8 1166 IF PEEK (X-1)<9 POKE X-1,8 1167 IF PEEK (X+1)<9 POKE X+1,8 1168 IF PEEK (X-11)<9 POKE X-11,8 1169 IF PEEK (X+11)<9 POKE X+11,8 1170 IF PEEK (X-13)<9 POKE X-13,8 1171 IF PEEK (X+13)<9 POKE X+13,8 1172 RETURN 1173 "K" FOR X=&F841 TO &F8B6: IF PEEK X=0 OR PEEK X>7 NEXT X: RETURN 1174 G$= CHR$ (65+(X-(( INT ((X-&F841)/12))*12+&F841))):S$= STR$ (10- INT ((X-&F841)/12)) 1175 PRINT ">";G$+S$;"<": NEXT X: RETURN 1176 DATA 54,53,65,66,79,67,55,43,42,41,40,52,64,76,77,78,87,88,89,90,91,92 1177 DATA 80,68,56,44,32,31,30,29,28,27,39,51,63,75,14,15,16,17,18,19,20,21 1178 DATA 33,45,57,69,81,93,105,104,103,102,101,100,99,98,86,74,62,50,38,26