7.6

Example 2
This example prints part of a string, starting after a specific delimiter.
define(&data,string,'This is a~sample string')
define(&x,integer, pos('~', &data))
%Find tilde
if(&x>1)
show(right(&data,length(&data)-&x))
%Show remainder of string
endif()
Mod (function & procedure)
Returns the remainder resulting from the division of two numbers.
Syntax
mod( number1, number2 ) integer value
number1 mod number2 integer value
Arguments
number1
Integer value to be divided.
number2
Integer value with which to divide number1.
Code Sample Example
This example uses MOD to distinguish between odd and even numbers.
Example
define(&i,integer, 1)
%Define loop variable
for(&i,1,1,10) %Set loop
show(inttostr(&i)+' is an') %Display number
if(mod(&i,2)=1)
%Determine if number is odd or even
show(' odd ')
©2010 Objectif Lune Inc - 521 -