1 REM ---------------------------------------------------HUEPF. B33 BU2
2 REM ****************** ERSTELLUNGSDATUN 16-FEB-76 SPL0000012
3 REM ***** VERSION VOM 15-MAR-76 *****
10 REM ***** DAS HUEPF-SPIEL *****
15 RANDOMIZE
20 PRINT "*** DAS HUEPF-SPIEL ***" \ PRINT 
40 GOSUB 1000 \ REM *ANFANGSWERTE*
50 PRINT "BEGINNT SPIELER 1 ODER SPIELER 2(COMPUTER)? SPIELER:", \ INPUT B
55 PRINT  \ IF B>0 THEN IF B<3 THEN 60
56 GO TO 50
60 GOSUB 2000 \ REM *3 SPIELFELDER DURCH ZUFALLSZAHLEN BELEGEN*
70 PRINT "*** AUSGANGSSITUATION ***" \ PRINT 
80 GOSUB 3000 \ REM *SPIELSTAND AUSDRUCKEN*
90 ON B GOSUB 4000,5000 \ REM *MENSCH=1,COMPUTER=2*
100 GOSUB 3000 \ REM *SPIELSTAND AUSDRUCKEN*
110 IF M(0)=3 THEN 800
120 B=(B+1)-(B-1)*B \ GO TO 90
800 PRINT "***SPIELER "B"HAT GEWONNEN!***" \ PRINT  \ PRINT 
900 PRINT "NEUES SPIEL? JA/NEIN", \ INPUT A$
910 IF A$="JA" THEN PRINT  \ PRINT  \ GO TO 40
999 GO TO 9999
1000 REM *** ANFANGSWERTE ***
1010 DIM M(7),B(2),A(4,2)
1030 FOR I=0 TO 7 \ M(I)=0 \ NEXT I
1040 G1=1
1999 RETURN
2000 REM *** FELDER DURCH ZUFALLSZAHLEN BELEGEN ***
2010 J=1
2020	=INT(7*RND(0))+1 \ IF M(I)<>0 THEN 2020
2030 M(I)=1 \ IF J<>3 THEN J=J+1 \ GO TO 2020
2999 RETURN
3000 REM *** SPIELSTAND AUSDRUCK ***
3010 FOR J=7 TO 0 STEP -1 \ PRINT J; \ NEXT J \ PRINT 
3020 FOR J=0 TO 23 \ PRINT "_"; \ NEXT J \ PRINT 
3030 FOR J=7 TO 0 STEP -1 \ PRINT M(J); \ NEXT J \ PRINT  \ PRINT  \ PRINT 
3999 RETURN
4000 REM *** MENSCH ***
4010 PRINT "WELCHER STEIN SOLL BEWEGT WERDEN", \ INPUT I
4013 IF I=0 THEN 4010
4015 IF M(I)=0 THEN 4010
4020 PRINT "WELCHES FELD SOLL STEIN "I"BE