Main sections
GETTIMERALL()
zeit# = GETTIMERALL
Gibt die Zeit seit dem Programmstart in 1/1000 sek zurück.
// --------------------------------- //
// Project: GETTIMERALL - Demo
// Start: Friday, March 12, 2004
// IDE Version: 1.40304
LIMITFPS -1
WHILE TRUE
TextScroller("Hello World")
SHOWSCREEN
WEND
// ------------------------------------------------------------- //
// -=# TEXTSCROLLER #=-
// ------------------------------------------------------------- //
FUNCTION TextScroller: text$
// Diese Variablen sind als LOCAL definiert:
// These variables are defines as LOCAL:
// text$
LOCAL fx, fy, xoffset, screenx
screenx = 640 // Screen width / Bildschirmbreite
GETFONTSIZE fx, fy
xoffset = -GETTIMERALL()/10 // X-position of text / X-Stelle des Textes
// Modulo the offset, so that text comes from the right after it completely
// dissapeared left.
// Modulo operation auf Offset anwenden, so dass der text von rechts
// kommt, nachdem er komplett links verschwunden ist.
xoffset= MOD(xoffset, screenx + LEN(text$)*fx) + screenx
PRINT text$, xoffset, 100 - ABS(COS(GETTIMERALL()/5)) * 100
ENDFUNCTION