home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0500 / CCE_0544.ZIP / CCE_0544 / MX2 / MX2SRC.ARC / SUBMIT.MOD < prev    next >
Text File  |  1989-01-05  |  1KB  |  32 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. MODULE submit;
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11. FROM GEMX   IMPORT BasePageAddress ;
  12. FROM XBIOS  IMPORT IOREC,IORECPTR,SerialDevice,IORec;
  13. FROM    GEMDOS  IMPORT  OldTerm;
  14. VAR         char                        :       CHAR;
  15.             i                           :       CARDINAL;
  16.             kbdiorec                    :       IORECPTR;
  17.             ibuf                        :       POINTER TO ARRAY [0..63] OF
  18.                                                 LONGCARD;
  19.  
  20. BEGIN;
  21.     kbdiorec:=IORec(Keyboard);
  22.     ibuf:=kbdiorec^.ibuf;
  23.     char:=BasePageAddress^.CmdLine[1];
  24.     FOR i:=1 TO ORD(BasePageAddress^.CmdLine[0])+1 DO
  25.         ibuf^[i]:=LONGCARD(BasePageAddress^.CmdLine[i]);
  26.     END;
  27.     ibuf^[ORD(BasePageAddress^.CmdLine[0])+1]:=LONGCARD(0dH);
  28.     kbdiorec^.ibufhd:=0;
  29.     kbdiorec^.ibuftl:=(ORD(BasePageAddress^.CmdLine[0])+1)*4;
  30.     OldTerm;
  31. END submit.
  32.