! HASP for EMAS
%external %routine %spec DETACH (%string (255) STR)
%external %routine %spec DOCUMENTS (%string (255) PARAM)
%include "ECSC17.IMP77SPECS"

%external %routine HASP (%string (255) PARM)
   %integer NC
   %routine READ COMMANDS
      %on 9 %start
          %return
      %finish
      %cycle
         READ SYMBOL (NC)
         PRINT SYMBOL (NC)
      %repeat
   %end
   PARM = ",29" %if PARM=""
   PROMPT ("Hasp: ")
   OPEN OUTPUT (13, "T#HASP")
   SELECT INPUT (0)
   SELECT OUTPUT (13)
   READ COMMANDS
   CLOSE OUTPUT
   DETACH ("T#HASP".PARM)
   SELECT OUTPUT (0)
   DOCUMENTS (".BATCH")
%end

%end %of %file