Version

; > Versions.Vicky

        GET     VersionASM

        GBLA    Version
        GBLS    VString
        GBLS    Date
        GBLA    OSVersionID

OSVersionID SETA &A9

        [ STB
Version SETA    Module_Version
VString SETS    Module_MajorVersion
Date    SETS    Module_Date      ; version for STB/NC OS
        |
Version SETA    500
VString SETS    "5.00 alpha"
Date    SETS    "03 Oct 2002"    ; version for RISC OS on desktop computers
        ]

        END