1DEFFNZ(X,Y)=X-Y*INT(X/Y)
2FILEV#4:"LPT:"
3GOSUB69
4GOSUB53
5PRINT"DU DARFST ANFANGEN"
6S$="DU"
7IFS$="DU"GOTO9
8GOTO11
9GOSUB26
10GOTO12
11GOSUB44
12K=K-A
13PRINT"   NEUE ANZAHL:",,K;"HOELZCHEN"
14IFK=0GOTO16
15GOTO7
16IFS$="ICH"GOTO18
17GOTO20
18PRINT"GRATULIERE! DU HAST GEWONNEN!"
19GOTO21
20PRINT"AETSCH! ICH WAR SCHLAUER"
21PRINT"WILLST DU WEITERSPIELEN",
22INPUTJ$
23IFJ$<>"JA"GOTO25
24GOTO4
25CLOSE#4\STOP
26PRINT"DU BIST DRAN"
27PRINT"   WIEVIEL HOELZCHEN NIMMST DU",
28INPUTA
29IFA>LGOTO32
30IFA<=0GOTO32
31GOTO33
32GOSUB41
33IFA<>INT(A)GOTO35
34GOTO36
35GOSUB41
36IFK-A<0GOTO38
37GOTO39
38GOSUB41
39S$="ICH"
40RETURN
41PRINT"   DU SCHUMMELST!"
42GOTO28
43RETURN
44PRINT"ICH BIN DRAN"
45IFK/(L+1)=INT(K/(L+1))GOTO47
46GOTO49
47A=INT(1+RND(1)*(L-1))
48GOTO50
49A=K-INT(K/(L+1))*(L+1)
50PRINT"   ICH NEHME";A;"HOELZCHEN"
51S$="DU"
52RETURN
53PRINT"MIT WIEVIEL HOELZCHEN WILLST DU BEGINNEN",
54INPUTK
55IFK<>INT(K)GOTO58
56IFK<=0GOTO58
57GOTO60
58PRINT"EINE NATUERLICHE ZAHL EINGEBEN"
59GOTO53
60PRINT"WIEVIEL HOELZCHEN SOLLEN JEWEILS WEGGENOMMEN"
61PRINT"WERDEN KOENNEN",
62INPUTL
63IFL<=0GOTO66
64IFL<>INT(L)GOTO66
65GOTO68
66PRINT"EINE NATUERLICHE ZAHL EINGEBEN!"
67GOTO60
68RETURN
69PRINT
70PRINT
71PRINT"DAS NIM-SPIEL GEHT SO:"
72PRINT
73PRINT"VON EINEM HAUFEN MIT HOELZCHEN WERDEN ABWECHSELND"
74PRINT"MINDESTENS 1   HOECHSTENS  K  HOELZCHEN WEGGENOMMEN"
75PRINT"(K  IST EINE VORHER ZU VEREINBARENDE ZAHL)"
76PRINT"GEWONNEN HAT, WER DAS LETZTE HOELZCHEN NEHMEN KANN."
77PRINT
78PRINT
79RETURN
80END