home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9208a.d64
/
ser-senden
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
295b
|
16 lines
100 REM *** SENDEN ***
110 CIA=56576
120 POKE CIA+4,2
130 POKE CIA+5,0
140 POKE CIA+14,PEEK(CIA+14) AND 247
150 POKE CIA+14,PEEK(CIA+14) OR 1
160 POKE CIA+14,PEEK(CIA+14) OR 64
170 POKE CIA+3,0
180 INPUT "STARTADRESSE";SA
190 INPUT "ANZAHL";AZ
200 FOR I = SA TO SA+AZ
210 : IF (PEEK(CIA+1) AND 1) = 0 THEN 210
220 : POKE CIA+12,PEEK(I)
230 NEXT I
240 END