1 REM ---------------------------------------RING1. B33 BU1
2 REM ***** ERSTELLUNGSDATUM: 16-FEB-76   SPL0000012
3 REM ***** VERSION VOM 19-MAR-76 *****
5 RANOMIZE
10 REM *** DAS RING-SPIEL ***
50 PRINT "***** DAS RING-SPIEL *****" \ PRINT 
60 GOSUB 1000 \ REM *ANFANGSWERTE*
70 ON B GOSUB 2000,2500 \ REM *B=1 MENSCH, B=2 COMPUTER*
80 Z1=Z \ IF I1=I THEN 800 \ REM *ENDE DES SPIELS*
90 IF B=2 THEN  GOSUB 5000 \ REM *AUSDRUCK SPIELSTAND*
100 B=(B+1)-(B-1)*B \ GO TO 70
800 GOSUB 5000 \ GSUB 5500 \ REM *AUSDRUCK SPIELSTAND U.GEWINN/VERLUST*
810 PRINT "NEUES SPIEL? JA/NEIN", \ INPUT A$
820 IF A$="JA" THEN 60
999 GO TO 9999
1000 REM *** ANFANGSWERTE SETZEN ***
1010 PRINT  \ PRINT "MIT WIEVIEL FELDERN SOLL GESPIELT WERDEN", \ INPUT I
1020 PRINT  \ PRINT "WELCHE VERKNUEPFUNG WIRD GEWUENSCHT:+,-,*", \ INPUT A$
1030 M$="+-*" \ V=POS(M$,A$,1) \ IF V=0 THEN 1020
1100 PRINT  \ PRINT "WER SOLL ANFANGEN?"
1110 PRINT "SPIELER 1 ODER SPIELER 2(COMPUTER)? SPIELER:", \ INPUT B
1120 PRINT  \IF B>0 THEN IF B<3 THEN 1500
1130 GO TO 1110
1500 REM *** PROGRAMMABHAENGIGE ANFANGSWERTE SETZEN ***
1510 I1=0 \ A=1
1520 DIM G(1)
1530 DEF FNA(X)=SEG$(M$,X+1,X+1)
1540 DEF FNB(X)=SEG$(M$,1,X)+STR$(B)+SEG$(M$,X+2,I)
1550 M$="0" \ FOR J=1 TO I-1 \ M$=SEG$(M$,1,J)+SEG$(M$,1,1) \ NEXT J
1999 RETURN
2000 REM *** MENSCH ***
2010 IF A=1 THEN 2030
2020 PRINT "AKTUELLE FELDNUMMER ZUR VERKNUEPFUNG:";Z \ PRINT 
2030 PRINT "SPIELER 1 - FELDNUMMER", \ INPUT Z
2035 IF FNA(Z)<>"0" THEN 2050
2040 IF Z>=0 THEN IF Z<I THEN 2060
2050 PRINT "DIESE FELDNUMMER IST UNGUELTIG" \ GO TO 2030
2060 J=Z \ GOSUB 4000 \ REM *FELDNUMMER VERSCHLUESSELN*
2070 IF A=1 THEN A=0 \ GO TO 2499
2080 GOSUB 3000 \ REM *ZUSATZZAHL BERECHNEN*
2090 J=Z5 \ GOSUB 4000 \ REM *ZUSATZZAHL VERSCHLUESSELN*
2100 PRINT "SPIELER 1 - ZUSATZFELD",Z5 \ PRINT 
2499 RETURN
2500 REM *** COMPUTER ***
2510 GOSUB 6000 \ REM *COMPUTER WAEHLT GEMAESS STRATEGIE*
2520 J=Z \ GOSUB 4000 \ REM *FELDNR. VERSCHLUESSELN*
2530 PRINT "SPIELER 2 - FELDNUMMER",Z
2540 IF A=1 THEN A=0 \ GO TO 2999
2555 J=Z5 \ GOSUB 4000 \ REM *ZUSATZZAHL VERSCHLUESSE*
2560 PRINT "SPIELER 2 - ZUSATZFELD",Z5 \ PRINT 
2999 RETURN
3000 REM *** ZUSATZFELD BERECHNEN ***
3010 IF A=1 THEN 3999
3020 ON V GO TO 3030,3040,3050
3030 Z5=Z1+Z \ GO TO 3100
3040 Z5=Z-Z1 \ GO TO 3100
3050 Z5=Z1*Z
3100 IF Z5<0 THEN 3200
3110 IF Z5<=I-1 THEN 3999
3120 Z5=Z5-I \ GO TO 3110
3200 Z5=Z5+I \ GO TO 3100
3999RETURN
4000 REM *** FELDNUMMERN VERSCHLUESSELN ***
4010 IF FNA(J)="0" THEN I1=I1+1
4020 M$=FNB(J)
4999 RETURN
5000 REM *** AUSDRUCK SPIELSTAND ***
5010 PRINT  \ PRINT "***SPIELSTAND***" \ PRINT 
5020 2=I \ J2=0 \ G(0)=0 \ G(1)=0
5030 IF I2<10 THEN J1=I2-1 \ GO TO 5050
5040 J1=9
5050 FOR J=0 TO J1 \ PRINT USING "-###",J+J2*10;\ NEXT J \ PRINT 
5070 FOR J=1 TO 4*(J1+1) \ PRINT "_"; \ NEXT J \ PRINT 
5080 FOR J=0 TO J1
5090 J4=J+J2*10 \ IF FNA(J4)="0" THEN J5=0 \ GO TO 5110
5100 J5=VAL(FNA(J4)) \ G(J5-1)=G(J5-1)+1
5110 PRINT USING "-###",J5;
5120 NEXT J \ PRINT  \ PRINT  \ J2=J2+1 \ I2=I2-10 \ IF I2>0 THEN 5030
5499 RETURN
5500 REM *** AUSDRUCK GEWINN - VERLUST ***
5510 PRINT "SPIELER 1 : SPIELER 2 ----"G(0)" : "G(1) \ PRINT 
5520 IF G(0)=G(1) THEN PRINT "**UNENTSCHIEDEN**" \ PRINT  \ PRINT  \ GO TO 5999
5530 J=1  IF G(0)<G(1) THEN J=2
5540 PRINT "**SPIELER"J"HAT GEWONNEN**" \ PRINT  \ PRINT 
5999 RETURN
6000 REM *** STRATEGIE COMPUTER ***
6004 IF A=1 THEN IF V=3 THEZ- \ GO TO 6999
6006 IF A=1 THEN Z=0 \ GO TO 6999
6010 FOR Z=0 TO I-1
6020 IF FNA(Z)<>"0" THEN 6050
6030 GOSUB 3000 \ REM *ZUSATZZAHL BESTIMMEN*   \ IF Z5=Z THEN 6050
6040 IF FNA(Z5)="1" THEN 6999
6050 NEXT Z
6060 FOR Z=0 TO I-1
6070 IF FNA(Z)<>"0" THEN 6100
6080 GOSUB 3000 \ REM *ZUSATZZAHL BESTIMMEN*   \ IF Z5=Z THEN 6100
6090 IF FNA(Z5)="0" THEN 6999
6100 NEXT Z
6110 Z=INT(I*RND(0))
6120 IF FNA(Z)<>"0" THEN 6110
6130 GOSUB 3000 \ REM *ZUSATZZAHL BESTIMMEN*
6999 RETURN
9999 END