[param1] on numero tai teksti
[param2] on numero tai teksti. Useissa toiminnoissa NIL tai tyhjä pitää antaa
[param3] on numero tai teksti. Useissa toiminnoissa NIL tai tyhjä pitää antaa
Funktio palauttaa arvon riippuen käytöstä, kt. esimerkki.
Funktiolla voidaan palauttaa ja asettaa erilaisia arvoja, kt. esimerkki.
? VERSIO() /* kuvaruutuun tulee ohjelman sarjanumero */
fon=choosefont("Courier New,10,400,0,0,0",,1,1) /* luodaan uusi fontti */
versio(1,fon) /* asetaan uusi ns. perusfontti */
deleteobject(fon)
fon=choosefont("Courier New,-20,400,0,0,0",,1,1) /* luodaan uusi fontti joka vastaa alkuperäistä asetusta */
versio(1,fon) /* asetaan perusfontti */
fon=choosefont("Arial,10,400,0,0,0",,1,1) /* luodaan uusi fontti */
versio(2,fon) /* asetaan uusi ns. pieni perusfontti */
deleteobject(fon)
fon=choosefont("Arial,-14,400,0,0,0",,1,1) /* luodaan uusi fontti joka vastaa alkuperäistä asetusta */
versio(2,fon) /* asetaan pieni perusfontti */
apu=versio(3,) /* apu saa pienen perusfontin (fonttinumero) */
apu=versio(4,) /* apu saa insert tilan (päällä=1, pois päältä=0) */
versio(5,1) /* insert tila päälle (päällä=1, pois päältä=0) */
apu=versio(7,32) /* käynnistää ns. GetSystemMetrics -windows funktion ja antaa sille [param2] arvon.
apu saa em. funktion palauttaman arvon, tässä esim. 4 (32=SM_CXSIZEFRAME) */
apu=versio(8,2) /* käynnistää ns. GetSysColor -windows funktion ja antaa sille [param2] arvon.
apu saa em. funktion palauttaman arvon, tässä esim. 14898176 (2=COLOR_ACTIVECAPTION) */
apu=versio(9,fon,1) /* apu saan kuvaruutu fontin fon koot {korkeus,yläosa,alaosa} */
apu=versio(9,fon,0) /* apu saan tulostin fontin fon koot {korkeus,yläosa,alaosa} */
apu=versio(10,1) /* palauttaa (numero) monesko get on aktiivinen aktiivisessa ikkunassa */
apu=versio(10,1,ikku) /* palauttaa (numero) monesko get on aktiivinen ikkunassa ikku */
apu=versio(10,2) /* palauttaa (ikkunapidike) monesko get on aktiivinen aktiisessa ikkunassa */
apu=versio(11,) /* apu saa tietokoneen nimen */
kello=time()
k1=3600*val(substr(kello,1,2))
k1=k1+60*val(substr(kello,4,2))
k1=k1+val(substr(kello,7,2))
apu={date(),k1+5,"Hello"}
versio(12,apu,3000,1) /* asettaa ohjelman ajastimeen muistutustoiminnon */
apu={date(),k1+10,"aa2.DMF"}
versio(12,apu,3000,1) /* asettaa ohjelman ajastimeen muistutustoiminnon suorittaa ohjelma aa2.dmf */
apu=versio(12,0,0,0) /* muistutustoiminto tyhjennetään asiosta */
apu=versio(13,) /* apu saa extra pienen perusfontin (fonttinumero) */
apu=versio(14,"v111.bmp") /* ohjelman ikkunoille tulee taustakuva taustavärin sijaan */
apu=versio(14,"") /* ohjelman ikkunoille tulee normaali harmaa taustaväri */