declare sub main
sub main
dim win_map_id,win_layout_id,win_browser_id as integer
dim s_title as string
onerror goto error_trap
open table "E:\mapinfo\建筑物"
map from "建筑物"
win_map_id=frontwindow()
s_title="大学地图"
set window win_map_id
width 5
height 3
title s_title
graph "楼高" from "建筑物"
done:
exit sub
error_trap:
note error$()
resume done
end sub