compile function test_something()
begin condition
pre:
post:
end condition

declare function start_window

$insert logical

*Void = start_window ( 'EXPORTS', 'LSL_MAIN2', 'SYSTEM_GENERATED*TMYRDS*Wacker', '', '' )
*tdate = mod( iconv( '1/5/00', 'D' ), 7 )
for i = 1 to 1
   CALL MSG( '', I )
next i 
RETURN 0