23 lines
1 KiB
Rexx
23 lines
1 KiB
Rexx
/*REXX program to display scope modifiers (for subroutines/functions). */
|
|
a=1/4
|
|
b=20
|
|
c=3
|
|
d=5
|
|
call SSN_571 d**4
|
|
|
|
/* at this point, A is defined and equal to .25 */
|
|
/* at this point, B is defined and equal to 40 */
|
|
/* at this point, C is defined and equal to 27 */
|
|
/* at this point, D is defined and equal to 5 */
|
|
/* at this point, FF isn't defined. */
|
|
/* at this point, EWE is defined and equal to 'female sheep' */
|
|
/* at this point, G is defined and equal to 625 */
|
|
exit /*stick a fork in it, we're done.*/
|
|
/*─────────────────────────────────────SSN_571 submarine, er, subroutine*/
|
|
SSN_571: procedure expose b c ewe g; parse arg g
|
|
b = b*2
|
|
c = c**3
|
|
ff = b+c
|
|
ewe = 'female sheep'
|
|
d = 55555555
|
|
return /*compliments to Jules Verne's Captain Nemo? */
|