Version

; > Versions.Vicky

        GET     VersionASM

        GBLA    Version
        GBLS    VString
        GBLS    Date
        GBLA    OSVersionID

OSVersionID SETA &AA

        [ Embedded_UI
Version SETA    Module_Version
VString SETS    Module_MajorVersion
Date    SETS    Module_Date      ; version for STB/NC OS
        |
Version SETA    517
VString SETS    "5.17"
   [ (Version :AND: 1) = 1
Date    SETS    Module_Date      ; Odd-numbered (i.e. development) build, use
                                 ; date of last source checkin
   |
Date    SETS    "19 Jan 2010"    ; version for RISC OS on desktop computers

                                 ; you may also wish to update the welcome
                                 ; and OS information dialogue box templates
                                 ; in the sources for Desktop and Switcher
				 ; (especially for year change)
   ]
        ]

        END