XE-Handbuch

Seite 56

Beispiel 13

10 REM * * * ATARl MISCHFARBEN * * *
20 GRAPHICS 11
30 FOR X=O TO 79 STEP 5
40 FOR Y=O TO 191 STEP 12
50 FOR I=O TO 9 STEP 2
60 COLOR X/ 5
70 PLOT X, Y+l : DRAWTO X+3, Y+l
80 COLOR Y/ 12
90 PLOT X, Y+l+l : DRAWTO X+3, Y+l+l
100 NEXT I
110 NEXT Y
120 GOTO 120

Beispiel 14

10 REM * * ATARl BRINGT 256 FARBEN * *
20 GRAPHICS 9
30 FOR A=O TO 79 : COLOR INT ( A/ 5 )
40 PLOT A, 4 : DRAWTO A, 191 : NEXT A
50 FOR A=l536 TO 1562 : READ B : POKE A, B : NEXT A : D=PEEK ( 560 ) +256 *PEEK ( 561 )
60 FOR A=O TO 14 : READ B : POKE D+B, 143 : NEXT A
70 POKE 1616, 0 : POKE 512, 0 : POKE 513, 6 : POKE 54286, 192
80 GOTO 80
100 DATA 17, 29, 41, 53, 65, 77, 89, 104, 116 , 128, 140, 152, 164, 176, 188
110 GOTO 110

Beispiel 15

10 REM * * ATARl REGENBOGEN FARBEN * *
20 DIM C$ ( 24 )
30 SETCOLOR 2, 0, 0 : poke 752, 1 : ? " "
40 FOR I=l TO 2
4 50 READ D
60 C$ ( I, I ) =CHR$ ( D )
70 NEXT I
80 D=USR ( ADR ( C$ ) )
90 END
100 DATA 162, 0, 173, 11, 212, 201, 32, 208 , 249, 141
110 DATA 10, 212, 142, 24, 208, 232, 232, 208 , 246, 142
120 DATA 24, 208, 240, 232

Erstellt am 1.Juli 1998 um 19:10