+$ found_it := NO
+$ define/user sys$output trsa-standard-commands.
+$ mcr 'exe_dir'openssl list-standard-commands
+$ open/read f trsa-standard-commands.
+$ loop_standard_commands:
+$ read/end=loop_standard_commands_end f i
+$ if f$edit(i,"lowercase") .eqs. "rsa"
+$ then
+$ found_it := YES
+$ goto loop_standard_commands_end
+$ endif
+$ goto loop_standard_commands
+$ loop_standard_commands_end:
+$ close f
+$ delete trsa-standard-commands.;*
+$