You Need MASM 7.0 try from here : http://forums.xisto.com/no_longer_exists/ And Books, Information, Examples from here : http://forums.xisto.com/no_longer_exists/ And Work
Can try this version : function RandomFunction: Integer;var x: Integer;begin Randomize; x := Random(12) + 1; Result := x;end;procedure Main;var i: Integer;begin for i := 1 to 3 do showmessage(IntToStr(CallMyFunction()));end;