{ EXTERNAL procedure definitions }
 procedure reset; EXTERNAL;   {FAWN}
 procedure resetparms; EXTERNAL;
 procedure default(p1, p2: integer); EXTERNAL;
 procedure logparm; EXTERNAL;
 procedure nexttab; EXTERNAL;
 function max(a, b : integer) : integer; EXTERNAL;
 function min(a, b : integer) : integer; EXTERNAL;
 procedure answerback; EXTERNAL;
 procedure selectg(n : integer); EXTERNAL;
 procedure setmode; EXTERNAL;
 procedure resetmode; EXTERNAL;
 procedure TX(c : character); EXTERNAL;
 procedure TXC(c : character); EXTERNAL;
 procedure ISOfsm(c : character); EXTERNAL; 
 procedure ISO6429; EXTERNAL;     { NB uses global termtype and ISOstate }
   { EXTERNAL procedures }
 { procedure ZSLIGHTS; EXTERNAL;                EXTERNAL; }         {FAWN}
 function bump(k : byte) : byte; EXTERNAL;
 { *********** PROCEDURES SHARED WITH OTHER MODULES ************* }
 procedure psetmode(element, value : smallint); EXTERNAL;
 function enqmode(element : smallint) : smallint; EXTERNAL;
 function keychar(var c : character) : boolean; EXTERNAL;
 { PUBLIC procedure SSMP declared below                            } 
 { *************** END OF SHARED PROCEDURES ********************** }
 procedure setalarm(timeset : word); EXTERNAL;
 procedure cancelalarm; EXTERNAL;
 procedure tick; EXTERNAL;
 procedure txsession(start : boolean); EXTERNAL;
 procedure txframe(start : boolean); EXTERNAL;
 procedure flush; EXTERNAL;
 procedure transmit(c : character); EXTERNAL;
 procedure sendnumber(n : smallint); EXTERNAL;
 procedure break; EXTERNAL;
 function parsenum(n : word; EXTERNAL; c : character; var SSMPst : SSMPtype):boolean; 
 procedure note(element, value : smallint; EXTERNAL; ok : boolean);
 procedure pTSETMODE(element, value : smallint); EXTERNAL;
 procedure report; EXTERNAL;
 procedure sendchar(kcode : character); EXTERNAL;
 { **   Procedures for H-command processing.                           ** }
 procedure fwdcmd(keymode : modetype); EXTERNAL;
 procedure sendtoken; EXTERNAL;
 procedure pTTOKEN(n : character); EXTERNAL;
 procedure phsetmode(index : modeindex; EXTERNAL;
 procedure phtoken(reqcode : smallint); EXTERNAL;
 procedure phsetcursor(newrow : rowtype; EXTERNAL; newcol : coltype);
 procedure pheratoright; EXTERNAL;
 procedure phinsspace(nsp : smallint); EXTERNAL;
 procedure phdelchar(nch : smallint); EXTERNAL;
 procedure phupscroll(rowa, rowb : smallint; EXTERNAL;
 procedure phdownscroll(rowa, rowb : smallint; EXTERNAL;
 procedure pheradisplay; EXTERNAL;
 procedure pherafields; EXTERNAL;
 procedure phsetfield(fidx : fieldindex); EXTERNAL;
 procedure phsetupdate(rowa, rowb : rowtype; EXTERNAL;
 procedure pheratabs; EXTERNAL;
 procedure phsettab(tcol : coltype); EXTERNAL;
 procedure pcontrol(c : word); EXTERNAL;    { V2.1 8/6/87 }
 procedure ssmpmessage(s0, s1 : string30; EXTERNAL; v1 : word; 
 procedure SSMPexit(route : exittype; EXTERNAL; c : character);
 procedure phsession(reqcode : smallint); EXTERNAL; { NB sets global SSMPst }
 procedure SSMPfsm(c : character); EXTERNAL;
 { **   Procedures for local action                                    ** }
 procedure ptappendline; EXTERNAL;
 procedure splitline; EXTERNAL;        
 procedure ptsetfield(fidx : fieldindex); EXTERNAL;
 procedure ptsetcursor(row : rowtype; EXTERNAL; col : coltype);
 function checkfield(warnuser : boolean) : boolean; EXTERNAL;  
 procedure cursorup; EXTERNAL;
 procedure cursordown; EXTERNAL;
 procedure cursorleft; EXTERNAL;
 procedure cursorright; EXTERNAL;
 procedure enterkey; EXTERNAL;
 procedure nextstop; EXTERNAL;
 procedure prevstop; EXTERNAL;
 procedure leftupdate; EXTERNAL;
 procedure firstnonspace; EXTERNAL;
 procedure afterlastnonspace; EXTERNAL;
 procedure nextfield; EXTERNAL;
 procedure prevfield; EXTERNAL;
 procedure homefield; EXTERNAL;
 procedure newline; EXTERNAL;
 procedure ptcharacter(kcode : character); EXTERNAL;
 procedure pteraprev; EXTERNAL;
 procedure eraseprevious; EXTERNAL;
    procedure tryprevious; EXTERNAL;
 procedure ptinsspace(truespace : boolean); EXTERNAL;
 procedure pteratoright; EXTERNAL;
 procedure ptinsline; EXTERNAL;
 procedure ptdelchar; EXTERNAL;
 procedure ptdelline; EXTERNAL;
 procedure datachar(chkey : character); EXTERNAL;
 procedure execute(x : character); EXTERNAL;
 procedure buffkey(c : character); EXTERNAL;
 procedure pRESTART; EXTERNAL;
 procedure maketables; EXTERNAL;
 procedure qcmd(kcode : character); EXTERNAL;
 procedure ssmptimeout; EXTERNAL;
 procedure lineprocess; EXTERNAL;
 procedure keyprocess; EXTERNAL;
 procedure initkeybuffer; EXTERNAL;   {2.0C}
 procedure initshared; EXTERNAL;
 procedure SSMP; EXTERNAL;