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