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.
parse var text w1 w2 w3 w4 ....
outstr = w1
outstr = Overlay( w2,outstr,15 )
outstr = Overlay( w3,outstr,31 )
(etc)
var01 [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]"WS-TextVar pic x(10)."[/color]
var02 [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]"ws-Numvar-zoned PIC 9(8)."[/color]
var03 [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]"ws-numvar-packed pic S9(15)V9(2) comp-3."[/color]
[COLOR=#804040][b]say[/b][/color] var01
[COLOR=#804040][b]say[/b][/color] var02
[COLOR=#804040][b]say[/b][/color] var03
[COLOR=#804040][b]say[/b][/color]
[COLOR=#804040][b]say[/b][/color] [COLOR=#008080]format_line([/color]var01[COLOR=#008080])[/color]
[COLOR=#804040][b]say[/b][/color] [COLOR=#008080]format_line([/color]var02[COLOR=#008080])[/color]
[COLOR=#804040][b]say[/b][/color] [COLOR=#008080]format_line([/color]var03[COLOR=#008080])[/color]
[COLOR=#804040][b]exit[/b][/color]
[COLOR=#0000ff]/**************************************************/[/color]
[COLOR=#008080]format_line[/color]: [COLOR=#804040][b]procedure[/b][/color]
[COLOR=#804040][b]parse arg[/b][/color] line_in
[COLOR=#804040][b]parse upper var[/b][/color] line_in varname pic picture comp [COLOR=#ff00ff].[/color]
line_out [COLOR=#804040][b]=[/b][/color] varname
line_out [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]overlay([/color] pic[COLOR=#804040][b],[/b][/color] line_out[COLOR=#804040][b],[/b][/color]33 [COLOR=#008080])[/color]
line_out [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]overlay([/color] picture[COLOR=#804040][b],[/b][/color] line_out[COLOR=#804040][b],[/b][/color]37[COLOR=#008080])[/color]
line_out [COLOR=#804040][b]=[/b][/color] line_out comp
[COLOR=#804040][b]return[/b][/color] line_out
WS-TextVar pic x(10).
ws-Numvar-zoned PIC 9(8).
ws-numvar-packed pic S9(15)V9(2) comp-3.
WS-TEXTVAR PIC X(10).
WS-NUMVAR-ZONED PIC 9(8).
WS-NUMVAR-PACKED PIC S9(15)V9(2) COMP-3.