home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 213
/
213.d81
/
hello
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
199b
|
6 lines
10 print"[147]":poke53280,0:poke53281,0:poke646,0
15 d=peek(186)
20 a$="hello connect":b$="l[207]a$,d"+chr$(13)+"r[213]"+chr$(13)
30 forx=1to10:poke630+x,asc(mid$(b$,x)):next:poke198,10:end
10000 d=peek(186):n$="hello":open15,d,15,"s0:"+n$:close15:saven$,d:end