24 lines
496 B
Rexx
Executable File
24 lines
496 B
Rexx
Executable File
#!/usr/bin/env rexx
|
|
|
|
/* Rexx */
|
|
Address system
|
|
parse arg parms
|
|
|
|
call parse_argv
|
|
|
|
say "Instruction: " || instr
|
|
say "Parameter : " || parm
|
|
|
|
exit
|
|
|
|
parse_argv: procedure expose parms instr parm
|
|
parse var parms instr "(" parm ")"
|
|
if instr="" & parm="" then call HELP
|
|
return
|
|
|
|
HELP:
|
|
"clear"
|
|
say "********************************************************"
|
|
say "* YOUR STRINGS WERE EMPTY. HOW DARE YOU. *"
|
|
say "********************************************************"
|
|
exit 1 |