added LSL2 stored procedures
This commit is contained in:
17
LSL2/STPROC/TEST_SOMETHING.txt
Normal file
17
LSL2/STPROC/TEST_SOMETHING.txt
Normal file
@ -0,0 +1,17 @@
|
||||
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
|
||||
|
Reference in New Issue
Block a user