home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 65
/
64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_A.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