Digress 1
Testing FCONTROL item=25, seems to work (MPE 6.0 pp2).

#pragma list off                            
#include <stdio.h>
#include <mpe.h>

#pragma intrinsic FCONTROL

main()
{
   short param1;
   int c, fn;

   fn = _mpe_fileno ( fileno ( stdin ));

   param1 = 'x';
   FCONTROL ( fn, 25, &param1 );

   while ((c=getchar()) != EOF && c!='q')
   {
      printf("%d\n", c);
   }

   param1 = 0;
   FCONTROL ( fn, 25, &param1 );
}

ccxllk kc,k
THU AUG  8 2002  1:12 PM  Copyright Hewlett-Packard Co.  1984.       PAGE     1
HP C/iX HP31506 A.05.19                                                   "KC"

    1  0   # 1 "KC.KEVEN"
    1  0   #pragma list off
END OF COMPILE
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986

LinkEd> link from=$oldpass;rl=libcshr.lib.sys,libcansi.lib.sys,libmansi.lib.sys
,libcrand.lib.sys,socketrl.net.sys;to=k;share
 
END OF LINK
run k

dfx100{CR}
102
120
l{CR}
108
10
x120
q
End Run


___________________________________________________________________
Keven Miller   mailto:[log in to unmask]   http://www.exegesys.com

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *