' tb-screen: 80x25
' Mathematik (Spec konsolen-basisbibliothek): Banker's Rounding, Vorzeichen
' von INT/FIX, Konvertierungen und der reproduzierbare PRNG.
PRINT CINT(0.5); CINT(1.5); CINT(2.5); CINT(-0.5); CINT(-1.5)
PRINT INT(-1.7); FIX(-1.7); INT(1.7); FIX(1.7)
PRINT ABS(-3); SGN(-3); SGN(0); SGN(3)
PRINT CLNG(2.5); CLNG(3.5)
' Fehlerfaelle ueber die Fehlerbehandlung sichtbar machen.
ON ERROR GOTO Fehler
x = SQR(-1)
PRINT "unerreichbar"
Weiter1:
x = LOG(0)
PRINT "unerreichbar"
Weiter2:
x% = CINT(40000)
PRINT "unerreichbar"
Weiter3:
x = 1 / 0
PRINT "unerreichbar"
Weiter4:
ON ERROR GOTO 0
' Reproduzierbarkeit: gleicher Startwert, gleiche Folge.
RANDOMIZE 42
a1 = RND: a2 = RND
RANDOMIZE 42
b1 = RND: b2 = RND
PRINT "gleich: "; (a1 = b1) AND (a2 = b2)
c = RND
PRINT "RND(0) wiederholt: "; (RND(0) = c)
END
Fehler:
PRINT "Fehler"; ERR
zaehler% = zaehler% + 1
SELECT CASE zaehler%
    CASE 1: RESUME Weiter1
    CASE 2: RESUME Weiter2
    CASE 3: RESUME Weiter3
    CASE ELSE: RESUME Weiter4
END SELECT
