gettin.sml

# gettin.sml

TIN TINin;
string str$;
numeric objNum;

GetInputTIN(TINin);
str$ = GetObjectFileName( TINin ); # get the RVC file name
objNum = GetObjectNumber( TINin ); # and object number
clear();
print( "TIN Object Number: ", objNum, "RVC file Name: ", str$ );