!
! SHELLCMD.IMP
!
! >> IMP_SHELL_COMMAND <<
!
!
%from IMP %include SYSSPECS, MCODE

%external %integer %function Shell Command %alias "3L_IMP_SHELL_COMMAND" -
                 ( %string(255) S )
   %integer Sa
   S = S . Tostring(13)
   Sa = Addr(S)+1
   *LDR _ R0, Sa
   *SWI _ Brasil CLI
   %result = 0
%end