home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 241 / 241.d81 / b.fdr (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  210b  |  11 lines
  1. 5 dv=peek(186)
  2. 10 a$="fdr
  3. 20 b$[178]"ascstr$(NULL)'s ascavorite (NULL)pider
  4. 30 open1,dv,15,"s0:fdat":close1
  5. 40 open4,dv,4,"fdat,p,w"
  6. 50 print#4,a$
  7. 60 print#4,b$
  8. 70 close4
  9. 80 load"flash.pkd",dv
  10. 10000 d=peek(186):n$="b.fdr":open15,d,15,"s0:"+n$:close15:saven$,d:end
  11.