MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 73
• centering output:
PARM count=5 “Center” script
setvar cnt 0
while setvar(cnt,cnt+1) <= !count do
setvar string!cnt,input("Enter string !cnt: ")
endwhile
setvar cnt 0
while setvar(cnt,cnt+1) <= !count do
echo ![rpt(" ",39-len(string!cnt))]!"string!cnt”
endwhile
:center
Enter string 1: The great thing about Open Source
Enter string 2: software is that you can
Enter string 3: have any color
Enter string 4: "screen of death”
Enter string 5: that you want.
The great thing about Open Source
software is that you can
have any color
"screen of death”
that you want.
Variable array example