11 lines
604 B
Rexx
11 lines
604 B
Rexx
/*REXX program demonstrates a use of a special case of inverted syntax (via SIGNAL ON).*/
|
|
signal on syntax
|
|
a=7
|
|
zz=444 / (7-a)
|
|
return zz
|
|
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
|
syntax: say '***error*** program is attempting to do division by zero,'
|
|
say 'the REXX statement number is: ' sigL " and the REXX source is:"
|
|
say sourceLine(sigL)
|
|
exit 13
|