12 lines
255 B
Rexx
12 lines
255 B
Rexx
External:
|
|
parse arg xx
|
|
say 'External' xx 'returns...'
|
|
parse version rexx
|
|
parse source system command program
|
|
say 'Interpreter ' rexx
|
|
say 'Platform ' system
|
|
say 'Invoked as ' command
|
|
say 'Program name' program
|
|
say 'Interface ' address()
|
|
say
|
|
return 0
|