Procedure Shel_read(Rpcmd%,Rtail%,rreturn%)
  Lpoke Addrin,Rcmd%
  Lpoke Addrin+4,Rtail%
  Gemsys 120
  *rreturn%=dpeek(gintout)
Return