GET VERSION.bas
Quelle: www.C-Control-Support.net Weitere Infos im C-Control-Forum / C-Control I Info	Download

'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'III    CCBASIC++  DEMO ZUM BASIC-COMPUTER UNIT M 1.2/2.0       IIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'--------------------------------------------------------------------
' Beispiel zum BASIC-COMPUTER    mit dem Programmer/Application-Board
'--------------------------------------------------------------------
' ANWENDUNG: BETRIEBSSYSTEM VERSION AUSGEBEN 
'            
'--------------------------------------------------------------------
' Ein kleines Tool um die aktuelle Version des Betriebssystems abzufragen.
' Nach dem Start des BASIC-Computers schreibt dieser die Version in die
' User-Variable 64. Die Version ist als ganze Zahl angegeben z.B. 201
' und wird vom Programm formatiert z.B. 2.01

'--------------------------------------------------------------------
'         AUSGABE BETRIEBSYSTEMVERSION
'--------------------------------------------------------------------
define VERSION as byte[64]
define LIGHT as port[16]

LIGHT=off
LCD.INIT
LCD.POS 1,1
LCD.PRINT "OS-VERSION " & VERSION/100
if VERSION>200 then 
VERSION=VERSION-200
ELSE
VERSION=VERSION-100
END IF
LCD.PRINT "."
if VERSION <10 then LCD.PRINT "0"
LCD.PRINT VERSION