home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 1
/
001.d81
/
olsfix.rtn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
208b
|
9 lines
30001 goto31000
31000 ix$="ls001"+str$(ix(k,.))
31002 dv=peek(186):ifdv<8thendv=8
31004 open15,dv,15,"i0":close15
31006 open15,dv,15,"r0:"+ix$+"="+ix$
31008 input#15,n1:close15
31010 ifn1=62then23000
60000 d=peek(186):n$="hello":open15,d,15,"s0:"+n$:close15:saven$,d:end