home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 68 / 068.d81 / renamer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  354b  |  15 lines
  1. 1 rem    caution!!  this program will
  2. 2 rem  rename all files that are three
  3. 3 rem           blocks long!!
  4. 5 poke52,141:poke56,141
  5. 10 ifa=0thena=1:load"dirtovar.o",8,1
  6. 20 dimty$(144),na$(144),le$(144)
  7. 30 sys36096
  8. 40 i=1:open15,8,15
  9. 50 ifna$(i)=""then90
  10. 60 ifright$(na$(i),2)="-3"then80
  11. 70 d$=na$(i)+"-3":ifle$(i)="3  "thenprint#15,"r0:"+d$+"="+na$(i):printd$
  12. 80 i=i+1:goto50
  13. 90 close15
  14. 100 end
  15.