home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / senden (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  295b  |  16 lines
  1. 100 rem *** senden ***
  2. 110 cia=56576
  3. 120 poke cia+4,2
  4. 130 poke cia+5,0
  5. 140 poke cia+14,peek(cia+14) and 247
  6. 150 poke cia+14,peek(cia+14) or 1
  7. 160 poke cia+14,peek(cia+14) or 64
  8. 170 poke cia+3,0
  9. 180 input "startadresse";sa
  10. 190 input "anzahl";az
  11. 200 for i = sa to sa+az
  12. 210 : if (peek(cia+1) and 1) = 0 then 210
  13. 220 : poke cia+12,peek(i)
  14. 230 next i
  15. 240 end
  16.