XE-Handbuch

Seite 55

Beispiel 12

10 REM * * STREICHHOLZ-SPIEL * *
20 DIM A$ ( 38 ) : GRAPHICS 7
30 SETOLOR 0, 1, 5 : SETCOLOR 1, 3, 1 : SeTOLOR 2, 0, 6 : SETCOLOR 4, 0, 6
40 A=157 : B=10 : C=30 : D=33 : RESTORE
50 X=1 : E=A : F=B : G=C : ANDE=21 : ANFANG= 1 : GOSUB 360
60 X=2 : E=A : F=C : G=D : ANDE=21 : ANFANG= 1 : GOSUB 360
70 FOR I=1 TO 6
80 A$=" " : READ A$ : LANG=LEN ( A$ )
90 FOR J=1 TO LANG : FOR K=1 TO 50 : NEXT K
100 ? A$ ( J, J ) ; : NEXT J : ? : ?
110 NEXT I : N=21
120 ? : ? "WIEVIELE STREICHHOLZER" ;
130 INPUT STREICH
140 IF STREICH > 150 IF STREICH>1 OR STREICH <4 THEN ? : ? "OHNE MI H, SO GEHT ES JA NI CHT " : ? : GOTO 120
160 N=N-STREICH
170 X=3 : E=A : F=B : G=D : ANDE=21-N : ANFANG=1 : GOSUB 360
180 STREI H=5-STREICH
190 FOR I=1 TO 300 : NEXT I
200 ? : ? " ICH NEHME" ; STREICH
210 N=N-STREI CH
220 X=3 : E=A : F=B : G=D : ANDE=21-N : ANFANG=1 : GOSUB 360
230 IF N<1 THEN 120
240 ? " * ** * ICH HABE GEWONNEN * * * "
250 ? : ? "NOCH EIN SPIEL ? ( J, N ) " ;
260 A$=" " : INPUT A$
270 IF A$=" J" THEN? " CHR$ ( 125 ) " : GOTO 30 280 GRAPHI CS 0 : END
290 ? : ? "HERZLICHEN GLUCKWUNSCH"
300 DATA DAS SPIEL BEGINNT ! ! ! ! ! !
310 DATA WIR HABEN 21 STREICHHOLZER
320 DATA WER DAS LETZTE HOLZ NIMMT
330 DATA HAT VERLOREN
340 DATA WAeHLEN SIE ZWISHEN 1 UND 4 HOELZERN
350 DATA SIE DUeRFEN BEGINNEN
360 COLOR X
370 FOR I=ANFANG TO ANDE
380 PLOT E-7 * I, F : DRAWTO E-7 * I, G
390 NeXT I
400 RETURN

Diese Werte bestimmen die die Laenge des Streichholzes.

Erstellt am 1.Juli 1998 um 19:10