home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / setpixel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  48 lines
  1. 4 rem ----------------------------
  2. 5 rem originalwerte fuer textmodus
  3. 6 rem in adressen 251/252 retten
  4. 7 rem ----------------------------
  5. 10 poke251,peek(53272)
  6. 20 poke252,peek(53265)
  7. 30 ba=8192:sys58692
  8. 40 gosub 1000
  9. 119 rem -------------------------
  10. 120 rem hires-bildschirm loeschen
  11. 121 rem -------------------------
  12. 130 for i=ba to ba+7999
  13. 140 poke i,0
  14. 150 next
  15. 160 sys58692
  16. 165 gosub 2000: rem textmodus ein
  17. 170 input"x-koordinate (0-319)";x
  18. 180 input"y-koordinate (0-199)";y
  19. 190 gosub 1000: rem hires-grafik ein
  20. 200 gosub 3000: rem farbram weiss
  21. 210 ro=int(y/8)
  22. 220 ch=int(x/8)
  23. 230 li=yand7
  24. 240 bi=7-(xand7)
  25. 250 by=ba+ro*320+ch*8+li
  26. 260 poke by,peek(by)or2^bi
  27. 280 poke198,0:wait198,1
  28. 281 ifpeek(631)=asc("_")thengosub2000:sys58692:poke198,0:end
  29. 290 goto160
  30. 994 rem ------------------------
  31. 995 rem unterprogramm
  32. 996 rem hires-grafik einschalten
  33. 997 rem ------------------------
  34. 1000 poke53272,peek(53272)or8
  35. 1010 poke53265,peek(53265)or32
  36. 1020 return
  37. 1994 rem ------------------------
  38. 1995 rem unterprogramm
  39. 1996 rem hires-grafik abschalten
  40. 1997 rem textmodus wieder aktivieren
  41. 1998 rem ------------------------
  42. 2000 poke53272,peek(251)
  43. 2010 poke53265,peek(252)
  44. 2020 return
  45. 3000 for i=1024 to 2023
  46. 3010 poke i,1
  47. 3020 next: return
  48.