18 lines
327 B
Plaintext
18 lines
327 B
Plaintext
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
|
|
|