1 REM MUEHLESPIEL 5 DIMF(8,8):DIMHH(24):DIMVV(24) 10 B=0:Z7=0:Z8=0:Z9=0:Z2=0:Z1=0:Z6=0:RESTORE 16 FORI=1TO24:READHH(I):READVV(I):NEXT 20 DATA2,5,7,4,4,2,5,7,3,5,6,4,4,3,5,6 21 DATA1,5,4,1,5,8,8,4,3,3,6,6,8,1,1,8 22 DATA3,6,6,3,2,2,2,7,7,2,7,7,1,1,8,8 30 FORH=0TO8:FORV=0TO8:READF(H,V):NEXT:NEXT 40 DATA80,80,80,80,80,80,80,80,80 50 DATA80,00,80,80,80,00,80,80,00 60 DATA80,80,00,80,80,00,80,00,80 70 DATA80,80,80,00,80,00,00,80,80 80 DATA80,00,00,00,80,80,80,80,80 90 DATA80,80,80,80,80,80,00,00,00 100 DATA80,80,80,00,00,80,00,80,80 110 DATA80,80,00,80,00,80,80,00,80 120 DATA80,00,80,80,00,80,80,80,00 1000 REM HAT GEGNER MUEHLE? 1010 E=0 1020 FORD=1TO8 1030 E=F(H,D)+E 1040 NEXTD 1050 IF(E-400)=3THEN1130 1060 G=0 1070 FORI=1TO8 1080 G=F(I,V)+G 1090 NEXTI 1100 IF(G-400)=3THEN1130 1110 RETURN 1120 REM GEGNER HAT MUEHLE 1130 PRINT"WELCHEN STEIN NEHMEN SIE MIR WEG?" 1140 INPUTK:IFK=0THEN RETURN 1150 H=INT(K) 1160 V=INT((K-H)*10+.1) 1170 IFF(H,V)<>9THEN1200 1171 S9=0 1172 FORI=1TO8 1173 S9=F(H,I)+S9 1174 NEXTI 1175 IFS9=427THEN1200 1176 S8=0 1177 FORJ=1TO8 1178 S8=F(J,V)+S8 1179 NEXTJ 1180 IFS8=427THEN1200 1181 F(H,V)=0 1185 Z8=Z8+1 1190 RETURN 1200 PRINT"SIE VERSUCHEN DOCH NICHT ETWA,MICH HEREINZULEGEN?!" 1210 GOTO1130 1290 REM SIND A1 STEINE AUF EINER LINIE? 1300 L=1 1310 A2=0 1320 FORM1=1TO8 1330 A2=F(L,M1)+A2 1340 NEXTM1 1350 IF(A2-400)=A1THEN1500 1360 L=L+1 1370 IFL<9THEN1310 1380 N=1 1390 A2=0 1400 FORP=1TO8 1410 A2=F(P,N)+A2 1420 NEXTP 1430 IF(A2-400)=A1THEN1545 1440 N=N+1 1450 IFN<9THEN1390 1460 RETURN 1470 REM ES SIND A1 STEINE AUF EINER LINIE 1500 Q=0 1501 IFA1=19THEN1509 1502 Q3=0 1505 Q=Q+1 1510 IFF(L,Q)<>Q3THEN1505 1515 H=L 1520 V=Q 1523 IFA1=19THEN1535 1525 GOSUB2000 1530 IFA1=18THEN1586 1535 X=1 1540 RETURN 1545 Q2=0 1546 IFA1=19THEN1595 1547 Q3=0 1550 Q2=Q2+1 1555 IFF(Q2,N)<>Q3THEN1550 1560 H=Q2 1565 V=N 1567 IFA1=19THEN1580 1570 GOSUB2000 1575 IFA1=18THEN1586 1580 X=1 1585 RETURN 1586 GOSUB3000 1587 X=1 1588 RETURN 1589 Q3=1 1590 GOTO1505 1595 Q3=1 1596 GOTO1550 2000 REM AUSGABE DES COMP. PROGRAMMNAME:SUBOUT 2005 IFZ3>=18THENZ7=1:RETURN 2010 Z1=Z1+1 2020 A=(H+V/10) 2030 PRINT"MEIN";Z1;".ZUG: ";A 2040 F(H,V)=9 2050 RETURN 2200 REM EINGABE +KONTROLLE DES SIELERZUGES PROGRAMMNAME:SUBIN 2201 IFZ6=1THEN2361 2203 Z3=Z1+Z2 2204 IFZ3>=18THEN2361 2205 Z2=Z2+1 2210 PRINT"IHR ";Z2;".ZUG: "; 2220 INPUTB 2225 IFB>=9THEN2300 2230 H=INT(B) 2240 V=INT((B-H)*10+.1) 2245 IFV>=9THEN2300 2250 C=F(H,V) 2260 IFC<>0THEN2300 2270 F(H,V)=1 2275 GOSUB2330 2277 IF(Z1+Z2)>=18THEN2361 2280 RETURN 2300 PRINT"HA,JETZT HABE ICH SIE ERWISCHT!!" 2301 PRINT"HIER WIRD NICHT GEMOGELT!!" 2310 GOTO2210 2320 STOP 2330 Z3=Z1+Z2 2331 IFZ3>=18THEN2341 2340 RETURN 2341 Z6=1 2342 RETURN OK