perm filename EMAIN5.2[EAL,HE]2 blob sn#704722 filedate 1983-03-27 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{$NOMAIN	Editor:  Immediate-mode command getter }
C00005 00003	procedure eGetCommand (ch: ascii) external
C00007 ENDMK
CāŠ—;
{$NOMAIN	Editor:  Immediate-mode command getter }

%include emain.hdr;

{ Externally defined routines from elsewhere: }

	(* XX From EEXTRA XX *)
procedure readPPLine(off: integer); external;

	(* From EAUX3A *)
procedure getEcmd;						external;

	(* From PP *)
procedure ppLine; 						external;
procedure ppDelChar; 						external;

procedure eGetCommand (ch: ascii); external;
procedure eGetCommand ;
 var i: integer; actch: char;
 begin
 ppDelChar;
 ppLine;
 listing[1] := ch;
 readPPline(1);
 getEcmd;				(* see what we're being asked to do *)
 end;