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