Move a file

'''DOS pseudo functions: Move a file'''

'''Syntax:'''
  DOSMS(AX-value, BX-value, Source file name, Target file name) EXCP=statement-label  

'''Entry:'''
  All arguments are strings. 
  AX = "@FFF9@"
  BX = not used
 
'''Discussion:'''<br>
This pseudo function moves a file from one directory to another. <br>
If the target directory is on the same logical drive as the source directory, the file is renamed. <br>
Otherwise, the file is copied to the target drive, after which the source file is erased. <br>
It is essential to append Hex 00, "@00@" to the end of each file name. 

Here is a sample code fragment: 

 Length 2 & Local AX$  BX$
 Length 3 & Local DosCode$
 Length 128 & Local SourceFileName$  TargetFileName$
 !
 Print (0) (ET)
 !
 Print (0) "Enter From File"
 Input (0) SourceFileName$
 !
 SourceFileName$ = SourceFileName$ + "@00@"
 !
 Print (0) "Enter To File"
 Input (0) TargetFileName$
 !
 TargetFileName$ = TargetFileName$ + "@00@"
 !
 AX$ = "@FFF9@"  & BX$ = "@0000@"
 !
 DOSMS(AX$,BX$,SourceFileName$,TargetFileName$) EXCP=OOPS
 !
 !
 OOPS:
        Close(49) & Open (49) "QERCOMET"
        Doscode$ = "D" + HEXASC(SUB(AX$,2,1)
        Read (49) Mess$
        Print (0) @(0,23) Doscode$ + "  " + Mess$
        Input(0) ""

 




--------------------------------------------------------------------------------

DOS pseudo functions