home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9208a.d64 / ser-senden (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.