24 lines
496 B
Rexx
24 lines
496 B
Rexx
|
#!/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
|