puts "========"
puts "BUC60842"
puts "========"

pload QAcommands
vinit

if [catch {BUC60842} catch_result] {
    puts "Faulty BUC60842"
} else {
    puts "BUC60842 OK"
}

set 3dviewer 1