XE-Handbuch

Seite 49

Beispiel 6

10 ReM * * * GRAPHIK-FAECHER * * *
20 GRAPHICS 11 : WW=0 Grafikstufe 10 oder 11
30 FOR Z=1 TO 2 : FOR ZE=0 TO 15
40 COLOR ZE : WW=WW+5
50 PLOT 0, 0 : DRAWTO 79, WW
60 NEXT ZE
70 NEXT Z : WW=0
Paarweise Veraenderung von +1 bis -5
80 FOR Z=1 TO 2 : FOR ZE=0 TO 15
90 COLOR ZE : WW=WW+5
100 PLOT 79, 0 : DRAWTO 0, WW
110 NEXT ZE
130 GOTO 170
140 FOR H=0 TO 14 : SETCOLOR 4, 0, H
150 FOR W=1 TO 100 : NEXT W : NEXT H
160 GOTO 140

170 WW=191 : FOR Z=l TO 2 : FOR ZE=0 TO 15
180 COLOR ZE : WW=WW-5
190 PLOT 79, 191 : DRAWTO 0, WW
200 NEXT ZE
210 NEXT Z
Paarweise Veraenderung von +1 bis -5
220 WW=191 : FOR Z=1 TO 2 : FOR ZE=0 TO 15
230 COLOR ZE : WW=WW-5
240 PLOT 0, 191 : DRAWTO 79, WW
250 NEXT ZE
260 NEXT Z
270 FOR H=0 TO 14 STEP 2 : SETCOLOR 4, 0 , H : FOR SS=1 TO 10 : NEXT SS : NEXT H
280 FOR H=14 TO 0 STEP -2 : SETCOLOR 4, 0 , H : FOR SS=1 TO 10 : NEXT SS : NEXT H
290 GOTO 270

Erstellt am 1.Juli 1998 um 19:10