home *** CD-ROM | disk | FTP | other *** search
/ Dr. CD ROM (Annual Premium Edition) / premium.zip / premium / IBMOS2_2 / PMCARDSR.ZIP / mv.bas < prev    next >
BASIC Source File  |  1989-09-22  |  677b  |  14 lines
  1. 1    'MV.BAS W.E.Davis 19890809
  2. 10   ON ERROR GOTO 60000
  3. 20   PRINT : INPUT "Old filename"; F1$: IF F1$ = "" THEN END
  4. 30     INPUT "New filename"; F2$: IF F2$ = "" THEN END
  5. 40     IF INSTR(F1$+F2$,"*") THEN BEEP: PRINT "Cannot contain *": GOTO 20
  6. 50     IF INSTR(F1$+F2$,"?") THEN BEEP: PRINT "Cannot contain ?": GOTO 20
  7. 60     IF INSTR(F1$+F2$,":") THEN BEEP: PRINT "Cannot contain :": GOTO 20
  8. 65     IF RIGHT$(F2$,1)="\" THEN F2$=F2$+F1$
  9. 70   NAME F1$ AS F2$: PRINT F1$; " moved to "; F2$
  10. 80   GOTO 20
  11. 60000 IF ERR = 53 THEN BEEP: PRINT F1$; " does not exist": RESUME 20
  12. 60010 IF ERR = 58 THEN BEEP: PRINT "Cannot create "; F2$: RESUME 20
  13. 60020 ON ERROR GOTO 0
  14.