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 / SUBMITM.MOD < prev    next >
Text File  |  1989-01-05  |  1KB  |  34 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. (*$A+ *)
  9. MODULE submita;
  10. FROM SYSTEM IMPORT ADDRESS;
  11. FROM GEMX   IMPORT BasePageAddress ;
  12. FROM XBIOS  IMPORT IOREC,IORec,IORECPTR,SerialDevice;
  13. FROM GEMDOS IMPORT OldTerm;
  14. VAR         char                        :      CHAR;
  15.             i,count                     :      CARDINAL;
  16.             kbdiorec                    :      IORECPTR;
  17.             ibuf                        :      POINTER TO ARRAY [0..127] OF
  18.                                                CHAR;
  19.         
  20. BEGIN;
  21.     kbdiorec:=IORec(MIDI);
  22.     ibuf:=kbdiorec^.ibuf;
  23.     char:=BasePageAddress^.CmdLine[1];
  24.     count:=ORD(BasePageAddress^.CmdLine[0])+1;
  25.     IF count>78 THEN count:=78 END;
  26.     FOR i:=2 TO count DO
  27.         ibuf^[i]:=CHAR(BasePageAddress^.CmdLine[i-1]);
  28.     END;
  29.     ibuf^[count+1]:=CHAR(0dH);
  30.     kbdiorec^.ibufhd:=0;
  31.     kbdiorec^.ibuftl:=count+1;
  32.     OldTerm;
  33. END submita.
  34.