require "tk4012.rel" load!module;
external procedure tk4012( string title,subtitle;
real x0,y0;
integer array pict;
integer nrows,ncolumns,dnsmin,dnsmax;
real scaling;
string film;
integer npict );
external integer character!count,halfx,halfy;