Leica tps1100, Руководство пользователя, Страница: 52 / 1154

GeoBASIC User Manual 9 — Refined GeoBASIC Concepts
TPS1100-Version 2.10 9-7
PROGRAM AppInfoExample
'-------------------------------------------------------
GLOBAL SUB GlobalSub1
Dim dummy As Integer
MMI_WriteMsgStr("AppInfoExample.", "GlobalSub1 in
AppInfoExample called", MMI_MB_OK,
dummy)
END GlobalSub1
'-------------------------------------------------------
GLOBAL SUB GlobalSub2
Dim dummy As Integer
MMI_WriteMsgStr("AppInfoExample.", "GlobalSub2 in
AppInfoExample called", MMI_MB_OK,
dummy)
END GlobalSub2
END AppInfoExample
'Application Information for Config Tool
'---------------------------------------
APPINFO
GENERAL
SET Author "Leica AG, CH - Heerbrugg"
SET Desc "AppInfo Example Application"
SET TheoModel "TCA1100"
END GENERAL
ENTRYPOINT GlobalSub1
SET CapLg "Global Sub 1"
SET CapSh "GSUB1"
SET Desc
"test of appinfo subroutine 1"
END GlobalSub1
ENTRYPOINT GlobalSub2
SET CapLg "Global Sub 2"
SET CapSh "GSUB2"
SET Help
"displays a message and exits"
END GlobalSub2
END APPINFO
The global subroutines
GlobalSub1
and
GlobalSub2
are indicated as entry
points for the import in a user configuration. Refer to Chapter 2.11 in the
Reference Manual for a description of the syntax in BNF-form.