Directory of image this file is from
This file as a plain text file
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 "DSPIEL 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