home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 246
/
246.d81
/
quik
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
190b
|
8 lines
10 a$="qread"
20 print"[147]loada$,8":print"sys5217"
21 q$="sammy"+chr$(13)
30 poke198,2:poke631,13:poke632,13
35 forx=1to6:poke632+x,asc(mid$(q$,x)):next
40 poke198,8: end
10000 n$="quik":open1,8,15,"s0:"+n$:close1:saven$,8:end