home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_A.d64 / senden (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  295 b   |  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.