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)