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