home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-11_1986_Verlag_Heinz_Weise_de.d64 / plot (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  29 lines
  1. 10 an=40700:rem startadresse des programms
  2. 20 rem an kann in einem beliebigen bereich liegen
  3. 30 rem aufruf: sys an,p,x-koordinate,y-koordinate
  4. 40 rem p=0: punkt testen
  5. 50 rem p=1: punkt setzen
  6. 60 rem p=2: punkt loeschen
  7. 70 rem bei p=0 ist das ergebnis durch peek(2) auszulesen
  8. 80 rem ist dies <> 0, ist der punkt gesetzt
  9. 90 rem
  10. 100 rem der angegebene wert fuer an ist input-basic kompatibel
  11. 110 rem es wird der graphic-schirm ab $e000 ausgelesen
  12. 120 rem dieser wert ist durch das fuenftletzte data-statement
  13. 130 rem in zeile 32006 festgelegt (224)
  14. 140 rem und ist das high-byte des hires-screens
  15. 150 rem moegliche veraenderungen in: 160=$a000, 32=$2000
  16. 31900 forp=antoan+187:read d:poke p,d:a=a+d:next:printa
  17. 31950 ifa<>25095thenprint"fehler in datas":end
  18. 31960 print"eingabe ok!":end
  19. 32000 data8,32,253,174,32,158,183,142,2,0,32,253,174,32,235,183,173,20,0,133
  20. 32001 data250,173,21,0,133,251,224,200,144,3,76,72,178,165,251,201,1,144,8,208
  21. 32002 data245,165,250,201,64,176,239,138,41,248,133,254,133,252,169,0,133,253
  22. 32003 data6,252,38,253,6,252,38,253,24,165,252,101,254,133,252,165,253,105,0
  23. 32004 data133,253,6,252,38,253,6,252,38,253,6,252,38,253,138,41,7,24,101,252
  24. 32005 data133,252,165,253,105,0,133,253,24,165,250,41,248,101,252,133,252,165
  25. 32006 data251,101,253,133,253,24,169,0,101,252,133,252,169,224,101,253,133,253
  26. 32007 data165,250,41,7,73,7,170,169,1,202,48,3,10,208,250,160,0,162,52,40,120
  27. 32008 data134,1,56,174,2,0,224,1,144,6,208,10,17,252,176,10,49,252,133,2,144
  28. 32009 data6,73,255,49,252,145,252,162,55,134,1,88,96
  29.