1 puts "================="
3 puts "================="
8 NewDocument D MDTV-Standard
10 ######################################################
11 if { [catch { OCC381_SaveAs D ${imagedir}/OCC381.std}] } {
14 catch {exec chmod 777 ${imagedir}/OCC381.std}
15 file delete ${imagedir}/OCC381.std