Farben Demo 1

 

0 FOR I=0 TO 57:READ X:POKE 1536+I,X:NEXT I

1 DATA 104,104,104,170,104,104,133,204,169,0,133,203,133,19,133,20,169,3,133,205,230

2 DATA 203,230,203,198,205,240,244,173,11,212

3 DATA 10,24,101,203,141,10,212,141,10,212

4 DATA 157,22,208,173,11,212,201,130,240,229,165,19,197,204,208,227,96

5 GRAPHICS 7:COLOR 1:PLOT 0,0:DRAWTO 20,20:COLOR 2:DRAWTO 40,40:COLOR 3:DRAWTO 50,50

6 FOR Y=1 TO 4:A=USR(1536,Y-Y*(Y=3),0.5):NEXT Y