{..............calling a procedure example............}

lib {....required if there are more procedures and functions declared}
public {....required if there are more procedures and functions declared}

globals {....or locals!}

a = 10
a = Input("Input Form","a value",a)

call myproc(a)
return

{======================== myproc =======================}

proc myproc ( val )

     call message("val=",val)
     call message("a=",a)      {...if 'globals' is known if 'locals' unknown}

     if (val > 1000) then
        val = 1000
     endif

     for i = 1 to val
         call message("i=",i)
     next

end

{...end of procedure}