COMMAND_SLIDING_GRATE
L     #Y2_mA
      L     #Y1_mA
      -R    
      T     #TEMP
      L     #X2_speed
      L     #X1_speed
      -R    
      L     #TEMP
      TAK  
      /R    
      T     #TEMP
      L     #speed
      L     #X1_speed
      -R    
      L     #TEMP
      *R    
      L     #Y1_mA
      +R    
      T     #mA


L     #mA
      L     4.000000e+000
      -R    
      L     1.600000e+001
      /R    
      L     2.764800e+004
      *R    
      RND  
      AN    #OFF
      JC    PQW
      L     0
PQW:  T     #output_PQW



      CALL  "COMMAND_SLIDING_GRATE"
       speed     :=1.000000e+001
       X1_speed  :=2.000000e+000        // 2 mm/S
       X2_speed  :=2.000000e+001        // 20 mm/s
       Y1_mA     :=8.000000e+000        // 10 mA
       Y2_mA     :=1.400000e+001        // 14 mA
       OFF       :=FALSE
       output_PQW:=#OUTPUT

      L     #OUTPUT
      T     "HHC10 AA002M -N01"