home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 August / 64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64 / ser-empfangen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  240b  |  15 lines
  1. 100 rem *** empfangen ***
  2. 110 cia=56576
  3. 120 pokecia+14,peek(cia+14)and191
  4. 130 poke cia+3,255
  5. 140 input"startadresse";sa
  6. 150 input"anzahl";az
  7. 160 fori=satosa+az
  8. 170 :pokecia+1,1
  9. 180 :fort=0to1:nextt
  10. 190 :pokecia+1,0
  11. 200 :if(peek(cia+13)and8)=0then200
  12. 210 :pokei,peek(cia+12)
  13. 220 nexti
  14. 230 end
  15.