MODULE  makesend;
FROM    GEMX    IMPORT  BasePageAddress;
FROM    InOut   IMPORT  OpenOutputFile,CloseOutput,WriteLn,WriteString;
FROM    Strings IMPORT  Concat;
VAR     name,temp       :       ARRAY [0..80] OF CHAR;
        i               :       INTEGER;
CONST   command         =       "send ";
        exit            =       "exit";
BEGIN
        FOR i:=1 TO 79 DO
            name[i-1]:=BasePageAddress^.CmdLine[i]
        END;
        name[ORD(BasePageAddress^.CmdLine[0])]:=0c;
        temp:=command;
        Concat(temp,name,temp);
        OpenOutputFile("bmodem.snd");
        WriteString(temp); WriteLn;
        WriteString(exit); WriteLn;
        CloseOutput;
END     makesend.