100 REM SINUSKURVE IN MULTICOLOR
110 REM
120 REM GRAFIK EIN
130 VIC=53248
140 POKE VIC+17, PEEK(VIC+17) OR 11*16:REM GRAFIK EIN
150 POKE VIC+22, PEEK(VIC+22) OR 16:REM MUTICOLOR EIN
155 POKE VIC+24, PEEK(VIC+24) OR 8
160 REM GRAFIKBILD LOESCHEN
170 GB=8192:REM STARADRESSE GRAFIK
180 FOR X=GB TO GB+8000:POKEX,0:NEXT X
190 REM FARBWERTE SETZEN
200 VR=1024:REM STARTADRESSE VIDEORAM
210 FR=54272:REM STARADRESSE FARBRAM
220 F1=2*16+6:REM FARBE 1 ROT UND 2 BLAU
230 F2=13:REM FARBE 3
240 FOR X=VR TO VR+1000:POKE X,F1:NEXT X
250 FOR X=FR TO FR+1000:POKE X,F2:NEXT X
251 POKE53280,0
260 REM SINUSKURVE ZEICHNEN
270 FOR X=0 TO 159
280 Y=70* SIN(X/25.6) +99:FA=INT(RND(1)*4)+1
290 GOSUB51000
300 NEXT X
9999 END
51000 REM GRAFIKPUNKT SETZEN (MULTI-COLOR)
51010 GA=8192:REM STARTADRESSE GRAFIKSPEICHER
51020 AD=320 * INT(Y/8) + (Y AND 7) + (8 * INT(X/4)):REM ADRESSE BERECHNEN
51030 B1=(3-(X-(4*INT(X/4))))*2:REM BITNUMMER 1
51040 B2=B1+1:REM BITNUMMER 2
51050 IF FA =0 THEN F1=0:F2=0
51060 IF FA =1 THEN F1=0:F2=1
51070 IF FA =2 THEN F1=1:F2=0
51080 IF FA =3 THEN F1=1:F2=1
51090 IF F1=0 THEN GOTO51110
51100 POKEGA+AD, PEEK(GA+AD) OR 2^B1
51110 IF F2=0 THEN GOTO51130
51120 POKE GA+AD, PEEK(GA+AD) OR 2^B2
51130 RETURN
51140 REM FA= FARBWERT DES PUNKTES (0-3)