(*# check(stack=>off, index=>off, range=>off, overflow=>off, nil_ptr=>off) *) (*# module(implementation=>off, init_code=>off) *) (* Note that initialization code cannot be used in a windows DLL *) DEFINITION MODULE WDLLMod; IMPORT Windows; (*# call(near_call=>off,reg_param=>(),ds_eq_ss=>off, reg_saved=>(di,si,ds,st1,st2), seg_name=>WDLLMod), name(prefix=>windows), data(near_ptr=>off) *) PROCEDURE MessagePaint(hdc: Windows.HDC; szMessage: ARRAY OF CHAR; MessageLength: CARDINAL); END WDLLMod.