home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / oh_fm / townsfos / rename.bas < prev    next >
BASIC Source File  |  1980-01-02  |  757b  |  34 lines
  1. 10000 '
  2. 10010 ' Rename for TownsFOS
  3. 10020 '
  4. 10030 ' Filename "RENAME.BAS"
  5. 10040 '
  6. 10050 ' Last Update 1989. 5.19  Version 1.01
  7. 10060 '
  8. 10070 '
  9. 10080 DEFINT A-Z
  10. 10090 IF ARGC>1 THEN *PARA
  11. 10100 PRINT : PRINT "***** Rename : Change Filename : Ver.1.01 *****"
  12. 10110 PRINT
  13. 10120 LINE INPUT "         Filename ? ",SFL$
  14. 10130   IF SFL$="" THEN RETURN
  15. 10140 LINE INPUT "     New Filename ? ",DFL$
  16. 10150   IF DFL$="" THEN RETURN
  17. 10160 GOTO *MAIN
  18. 10170 '
  19. 10180 *PARA
  20. 10190 IF ARGC<3 THEN *PARA_ERR
  21. 10200 SFL$=ARGV$(1)
  22. 10210 DFL$=ARGV$(2)
  23. 10220 GOTO *MAIN
  24. 10230 '
  25. 10240 *PARA_ERR
  26. 10250 S_A$="@ Parameter Error !\n":GOSUB *S_PUTS_E
  27. 10260 RETURN *S_T_RETURN
  28. 10270 '
  29. 10280 ' MAIN
  30. 10290 '
  31. 10300 *MAIN
  32. 10310 NAME SFL$ AS DFL$
  33. 10320 RETURN
  34.