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