Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[COLOR=#008080]<[/color][COLOR=#008080]job[/color][COLOR=#008080] [/color][COLOR=#2e8b57][b]id[/b][/color]=[COLOR=#ff00ff]"REXX_VBscript"[/color][COLOR=#008080]>[/color]
[COLOR=#008080]<script language="VBScript">[/color]
[COLOR=#804040][b]function[/b][/color] add_two[COLOR=#804040][b]([/b][/color]x[COLOR=#804040][b],[/b][/color] y[COLOR=#804040][b])[/b][/color]
add_two [COLOR=#804040][b]=[/b][/color] x [COLOR=#804040][b]+[/b][/color] y
[COLOR=#804040][b]end[/b][/color] [COLOR=#804040][b]function[/b][/color]
[COLOR=#008080]</script>[/color]
[COLOR=#008080]<[/color][COLOR=#008080]script[/color][COLOR=#008080] [/color][COLOR=#2e8b57][b]language[/b][/color]=[COLOR=#ff00ff]"Object Rexx"[/color][COLOR=#008080]>[/color]
/*---------- Calling VBscript from REXX --------------------*/
/*** Main program ***/
say "Enter variables to add:"
x = raw_input("x = ")
y = raw_input("y = ")
z = add_two(x, y)
say x "+" y "=" z
exit
/**************** Functions ****************/
raw_input: procedure
/* function raw_input() */
use arg prompt
call charout , prompt
parse pull inp
return inp
[COLOR=#008080]</script>[/color]
[COLOR=#008080]</job>[/color]
c:\Users\Roman\Work>cscript /NoLogo Rexx_VBscript.wsf
Enter variables to add:
x = 5
y = 15
5 + 15 = 20