1 REM ----------------------------------------------HUERT2.B30  LA 2
2 REM ***** ERSTELLUNGSDATUM: 21-NOV-75   SPL0000010
3 REM ***** VERSION VOM 15-NOV_76
10 GO TO 650
19 FOR I=0 TO 16 \ V(I)=0 \ W(I)=0 \ NEXT I
20 N=1 \ M=1 \ PRINT  \ PRINT "WER BEGINNT ? 0:ICH - 1:SIE", \ INPUT K
30 PRINT  \ IF K=0 THEN 40 \ IF K=1 THEN 40 \ GOSUB 2000 \ GO TO 20
40 Q=0 \ FOR I=1 TO 16 \ Q=Q+V(I) \ NEXT I \ IF FNA(K)=1 THEN 150
50 PRINT "IHRE FELDWAHL",, \ GOSUB 590 \ R$=B$ \ N=R
60 FOR I=1 TO 16 \ IF D(I)=N THEN 70 \ NEXT I \ PRINT "NICHT GEF." \ GOSUB 2000 \ GO TO 50
70 IF V(I)=0 THEN 80 \ IF V(I)=2 THEN 80 \ GOSUB 2000 \ GO TO 50
80 V(I)=2 \ IF Q=0 THEN 120
90 PRINT "IHR ZUSATZFELD",, \ GOSUB 590 \ GOSUB 500
100 IF R=E THEN 110 \ GOSUB 2100 \ GO TO 90
110 FOR I=1 TO 16 \ IF D(I)=E THEN 120 \ NEXT I
120 V(I)=FNA(K) \ P=1 \ FOR I=1 TO 16 \ P=P*V(I) \ NEXT I
130 IF P>0 THEN 270 \ K=K+1 \ M=N \ IF FNA(K)=1 THEN 140 \ GOSUB 370 \ GO TO 40
140 GOSUB 470 \ GO TO 40
150 FOR I=1 TO 16 \ IF V(I)=0 THEN 160 \ NEXT I
160 N=D(I) \ V(I)=1 \ PRINT "ICH WAEHLE DAS FELD:",
170 FOR I=1 TO 16 \ IF N=A(I) THEN 180 \ NEXT I
180 IF K$<>"MENGE" THEN 190 \ R$=T$(I) \ PRINT R$ \ GO TO 210
190 IF K$<>"TEILER" THEN 200 \ R$=STR$(Y(I)) \ PRINT R$ \ GO TO 210
200 R=TR$(N) \ PRINT R$
210 IF Q=0 THEN P=0 \ GO TO 130
220 GOSUB 500 \ PRINT "MEIN ZUSATZFELD IST",
230 FOR I=1 TO 16 \ IF E=A(I) THEN 240 \ NEXT I
240 IF K$<>"MEG@E"THN 250 \ PRINT T$(I) \ GO TO 110
250 IF K$<>"TEILER" THEN 260 \ PRINT Y(I) \ GO TO 110
260 PRINT E \ GO TO 110
270 S=0 \ PRINT  \ PRINT  \ PRINT  \ PRINT "ENDGLG@R"; \ GOSUB 370
280 FOR I=1 TO 16 \ S=S+V(I) \ NEXT I \ S=SGN(S-24)+2
290 ON S GO TO 300,310,320
300 PRINT "SIE HABEN LEIDER VERLOREN !" \ GO TO 330
310 PRINT "DS
PIEL IST UNENTSCHIEDEN" \ GO TO 330
320 PRINT "GRATULIERE, SIE HABEN GEWONNEN !!"
330 PRINT "NOCH EIN SPIEL ?", \ INPUT A$
340 IF A$="JA" THEN 350 \ GO TO 2230
50O TO 650
360 GO TO 150
370 A$="-#### I" \ B$=">#### I" \ PRINT  \ G1=1
380 PRINT "SPIELSTAND" \ I=0
390 I=I+1 \ FOR H=1 TO 16 \ IF A(H)=D(I) THEN 400 \ NEXT H
40 WH)=V(I) \ IF I<16 THEN 390 \ GOSUB 490 \ PRINT "FELDER  I";
410 G2=G1+7 \ IF K$="MENGE" THEN 440 \ IF K$="TEILER" THEN 430
420 FOR H=G1 TO G2 \ PRINT USING A$,A; NEXT H \ PRINT  \ GO TO 450
430 FOR H=G1 TO G2 \ PRINT USING A$,Y(H); \ NEXT H \ PRINT  \ GO TO 450
440 FOR H=G1 TO G2 \ PRINT USING B$,T$(H); \ NEXT H \ PRINT  GO 450
450 PRINT "BELEGT: I"; \ FOR H=G1 TO G2 \ PRINT USING A$,W(H); \ NEXT H \ PRINT 
460 GOSUB 490 \ IF G2=16 THEN 470 \ G1=9 \ GO TO 400
470 IF P>0 THEN 640 PRINT  \PRINT "NEUER OPERATOR:",R$ \ GO TO 640
490 PRINT "--------I"; \ FOR H=1 TO 8 \ PRINT "------I"; \ NEXT H \ PRINT  \ GO TO 640
500 ON G GO TO 510,520,530,54 

0,570,580
510 E=FNB(M*N) \ GO TO 640
520 E=FNB(M+N+(210-M)*N) \ GO TO 640
530 E=FNB(N*(211-M)) \ GO TO 640
540 E=FNB(N+211-M+(210-N)*(211-M)) \ GO TO 640
550 E
(M*(211-N)) \ GO TO 640
560 E=FNB(M+211-N+(210-M)*(211-N)) \ GO TO 640
570 E=FNB((211-M+N)*(211+M-N)) \ GO TO 640
580 E=FNB((M-N)^2) \ GO TO 640
590 IF K$="MENGE THEN 620 \ INPUT R \ B$=STR$(R)
610 IF K$<>"TEILER" THEN 640 \ FOR I=1 TO 16 \ IF R=Y(I) THEN 630 \ NEXT I
620 INPUT B$ \ FOR I=1 TO 16 \ IF B$=T$(I) THEN 630 \ I
30 R=A(I)
640 RETURN
650 CHAIN "HUERT1"
1999 REM ***** UNTERPROGRAMM ZUR FEHLERBEHANDLUNG *****
2000 PRINT  \ Z1=Z1+1 \ PRINT "SIE HABEN "; \ IF Z1=1 THEN 20
2010 PRINT "ZUM"Z1"- TEN MALE ";
2020 PRINT "FALSCH GEWAEHLT !" \ IF Z1>3 THEN 2230
2030 IF Z1<3 THEN 2050
2040 PRINT "NAECHSTES MAL BRECHE ICH AB !!!"
2050 PRINT "GEBEN SIE BITTE NEU EIN" \ GO TO 640
2100 PRINT  \ Z2=Z2+1 \ PRINT "SIE HABEN "; \ IF Z2=1 THEN 2120
2110 PRINT "ZUM"Z2"- TEN MALE ";
2120 PRINT "FALSCH GERECHNET!" \ IF Z2>3 THEN 2230
2130 IF Z2<3 THEN 2050 \ GO TO 2040
2230 PRINT  \ PRINT "DAS SPIEL IST ZU ENDE !!!" \ PRINT 
2240 A=SYS(5) \ STOP