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 >
Wrap
Commodore BASIC
|
2022-10-26
|
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