home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / multi-set (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  454 b   |  16 lines
  1. 51000 rem grafikpunkt setzen (multi-color)
  2. 51010 ga=8192:rem startadresse grafikspeicher
  3. 51020 ad=320 * int(y/8) + (y and 7) + (8 * int(x/4)):rem adresse berechnen
  4. 51030 b1=(3-(x-(4*int(x/4))))*2:rem bitnummer 1
  5. 51040 b2=b1+1:rem bitnummer 2
  6. 51050 if fa =0 then f1=0:f2=0
  7. 51060 if fa =1 then f1=0:f2=1
  8. 51070 if fa =2 then f1=1:f2=0
  9. 51080 if fa =3 then f1=1:f2=1
  10. 51090 if f1=0 then goto51110
  11. 51100 pokega+ad, peek(ga+ad) or 2^b1
  12. 51110 if f2=0 then goto51130
  13. 51120 poke ga+ad, peek(ga+ad) or 2^b2
  14. 51130 return
  15. 51140 rem fa= farbwert des punktes (0-3)
  16.