XE-Handbuch

Seite 53

370 POSITlON 2, 9 : ? #6 ; " START= Neues Spiel "
380 POSITlON 2, 11 : ? #6 ; " SELECT=Ende "
390 IF PeEK ( 53279 ) =6 THEN CLR : GOTO 20
400 IF PEEK ( 53279 ) =5 THEN GRAPHICS 0 : END
410 GOTO 390

Beispiel 10

20 GRAPHICS 31 : COLOR 1
30 POKE 708, 91 : POKE 709, 181 : POKE 710, 131
40 A=20 : B=33
50 FOR K=l TO 5
60 FOR I=O TO 1 STEP 0. 03
70 Zel=6. 283 * I
80 PLOT A, B : DRAWTO A+l5 * SIN ( ZEl+O. 01 * 6 .283 ), B+30 * COS ( ZEl+O. 01 * 6. 283 )
90 NeXT I
100 IF K=l THEN A=50 : B=33 : COLOR 2
110 IF K=2 THEN A=80 : B=33 : COLOR 3
120 IF K=3 THEN A=llO : B=33 : COLOR 1
130 IF K=4 THEN A=l40 : B=33 : COLOR 2
140 NEXT K
150 A=20 : B=l29 : COLOR 3
160 FOR K=l TO 5
170 FOR I=O TO 1 STEP 0. 03
180 Zel=6. 283 * I
190 PLOT A, B : DRAWTO A+l5 * SIN ( ZEl+O. 01 * 6. 283 ), B+30* OS ( ZEl+O. 01 * 6. 283 )
200 NeXT I
210 IF K=l THEN A=50 : B=l29 : COLOR 1
220 IF K=2 THEN A=80 : B=l29 : COLOR 2
230 IF K=3 THEN A=llO : B=l29 : COLOR 3
240 IF K=4 THEN A=l40 : B=l29 : COLOR 1
250 NEXT K
260 A=35 : B=81 : COLOR 2
270 FOR K=l TO 4
280 FOR I=O TO 1 STEP 0. 03
290 ZeI=6. 283 * I
300 PL0T A, B : DRAWT0 A+15 * SIN ( ZEI+0. 01 * 6. 283 ), B+30 * C0S ( ZEI+0. 01 * 6. 283 )
310 NeXT I
320 IF K=1 THEN A=65 : B=81 : C0L0R 3
330 IF K=2 THEN A=95 : B=81 : CCOLOR 1
340 IF K=3 THEN A=125 : B=81 : COLOR 2
360 IF A=1 THEN POKE 708, INT ( RND ( 0 ) *255 )
370 IF A=2 THEN POKE 709, INT ( RND ( 0 ) * 255 )

380 IF A=3 THEN POKE 710, INT ( RND ( 0 ) * 255 ) 390 FORU=1 TO 20 : NEXT U
400 A=INT ( RND ( 0 ) * 3+1 )
410 GOTO 360

Hier wird der Farbwechsel durch POKE-Befehle erreicht.

Mit Werten von 1 bis 1 000 wird die Schnelligkeit des Farbwechsels beeinfIusst.

Erstellt am 1.Juli 1998 um 19:10