perm filename EMAIN5.2[EAL,HE]3 blob sn#706581 filedate 1983-04-18 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: }

	(* From EAUX2D *)
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;