24 lines
367 B
Plaintext
24 lines
367 B
Plaintext
COMPILE ROUTINE TEST_SYSLISTS(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, RList, Btree.Extract, msg, ErrMsg, ClearFile
|
|
DECLARE FUNCTION obj_Popup, Dialog_Box, obj_Install, FindWindow
|
|
|
|
|
|
OPEN 'SYSLISTS' TO FileIn THEN
|
|
|
|
ClearFile FileIn Else
|
|
Null
|
|
End
|
|
|
|
END
|
|
|
|
goto Bail
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|