{ Contents: jobnum - get job number kbnum - get kb number (-1 means detached) usernum - get user number } {$nodebug} procedure usernum(var proj,prog:integer); { Returns user number - EFM } var xrblk origin 452B : char; xrblk1 origin 453B : char; begin emt(255); emt(32); prog := ord(xrblk); proj := ord(xrblk1) end; {$debug} function jobnum: integer; { Return our job number - EFM } var fqjob origin 404B : integer; fqfun origin 405B : char; begin fqfun := chr(9); emt(255); emt(54); jobnum := (fqjob mod 256) div 2 end; {$nodebug} function kbnum: integer; { Return the current keyboard number (or -1 for detached) - OMSI } var fqfun origin 405B : char; begin fqfun := chr(9); emt(255); emt(54); if odd(ord(fqfun)) then kbnum := -1 else kbnum := (ord(fqfun) div 2) and 127; end; {$debug}