%from IMP %include Connect

%external %routine Make File    %alias "3L_IMP_MAKE_FILE" -
                              ( %string(255) File,
                                %integer Pages,
                                %integer %name Start Addr )
   %integer I
   Open Binary Output(Output Stream, File)
   Print Symbol(0) %for I = 1, 1, Pages*512
   Close Output
   Connect File ( File, Read Write, Start Addr, I )
%end