1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-06 22:10:24 +00:00
QB64-PE/source/global/version.bas

16 lines
501 B
QBasic
Raw Normal View History

DIM SHARED Version AS STRING
DIM SHARED DevChannel AS STRING
2017-01-21 00:56:50 +00:00
DIM SHARED AutoBuildMsg AS STRING
2018-11-02 09:17:33 +00:00
2021-08-15 18:55:07 +00:00
Version$ = "1.6"
DevChannel$ = "Development Build"
2018-11-02 09:17:33 +00:00
IF _FILEEXISTS("internal/version.txt") THEN
versionfile = FREEFILE
OPEN "internal/version.txt" FOR INPUT AS #versionfile
LINE INPUT #versionfile, AutoBuildMsg
AutoBuildMsg = LEFT$(_TRIM$(AutoBuildMsg), 16) 'From git 1234567
IF LEFT$(AutoBuildMsg, 9) <> "From git " THEN AutoBuildMsg = ""
2018-11-02 09:17:33 +00:00
CLOSE #versionfile
END IF