&end;
$if CMD=UP then
&begin
(I:=I-2;
(if I<FIRST then I:=8;
&end else
$if CMD=DOWN then
&begin
(I:=I+2;
(if I>LAST then I:=0;
&end;
"UNTIL CMD=CR;
"DONE:=TRUE;
"Sc_clr_screen; 
"CASE I OF
$0:S:='WORD7';
$2:S:='SS';
$4:S:='HDEMO';
$6:S:='TELE.HAYES';
$8:PSYSTEM;
$end;
"UNTIL DONE;
 end;
 
 
 PROCEDURE GET_TERMINAL(var TERM:char);
 var TXIN:TEXT;
$TERMINAL:string;
 begin
 RESET(TXIN,'WHAT.SYS.TEXT');
 TERM:='O';                  {OTHER}
 readln(TXIN,TERMINAL);
 readln(TXIN,SY