25 lines
672 B
Plaintext
25 lines
672 B
Plaintext
|
DEFINITION MODULE LoadPath;
|
|||
|
|
|
|||
|
|
(*
|
|||
|
|
NOTE: The following procedure can only work under
|
|||
|
|
DOS version 3.1 and upper.
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE GetLoad(VAR str: ARRAY OF CHAR);
|
|||
|
|
(* Get the complete filename of the file loaded by MSDOS
|
|||
|
|
In the environnement:
|
|||
|
|
- Look for the sequence 0,0
|
|||
|
|
- Skip two bytes ( meaning unknown, often 1,0 )
|
|||
|
|
- Take next characters until a 0
|
|||
|
|
Return empty string if:
|
|||
|
|
- Doesn't find 0,0
|
|||
|
|
- filename > HIGH(str)
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
PROCEDURE GetLoadDir(VAR str: ARRAY OF CHAR);
|
|||
|
|
(* Return the directory of the loaded file or empty string
|
|||
|
|
if problems
|
|||
|
|
*)
|
|||
|
|
|
|||
|
|
END LoadPath.
|
|||
|
|
|