' tb-screen: 80x25
' Zahlenkonvertierungs-Matrix (docs/tbvm-design.md, Abschnitt
' "Zahlenkonvertierungs-Matrix"): Banker's Rounding (Original-Hilfe:
' CINT), Ganzzahldivision rundet Operanden vor, Logik bitweise auf
' gerundeten Ganzzahlen, Ueberlauf -> Fehler 6.
PRINT CINT(0.5); CINT(1.5); CINT(2.5); CINT(-0.5); CINT(-1.5)
PRINT 7.5 \ 2; 7 \ 2; -7 \ 2
PRINT 7 MOD 3; -7 MOD 3; 7.5 MOD 2
PRINT 1 / 4; 1 / 3
PRINT 2 ^ 10; 2 ^ 0.5
PRINT 6 AND 3; 6 OR 3; 6 XOR 3; NOT 0; 1.5 AND 1
PRINT CLNG(2.5); CLNG(3.5)
' --- Die vier Projektentscheidungen vom 2026-09-04 (docs/tbvm-design.md) ---
' 1. CURRENCY gemischt mit Gleitkomma ergibt DOUBLE, nicht SINGLE.
c@ = 2.5
PRINT c@ + 1.5!; c@ + 1.5#; c@ * 2
' 2. Ergebnistyp von ^: DOUBLE bei DOUBLE/CURRENCY, sonst SINGLE.
PRINT 2 ^ 3; 2.5! ^ 2; 2.5# ^ 2; c@ ^ 2
' 3. Exponentialform-Schwelle von SINGLE: Exponent < -7 oder >= 7.
PRINT 1E-7!; 1E-8!; 9999999!; 10000000!
PRINT .01!; .001!
' 4. CURRENCY-Ausgabe: nachgestellte Nullen entfallen.
PRINT 1.5@; 2@; 2.5000@; .1234@; 1.10@
ON ERROR GOTO Uebergelaufen
i% = 32767
i% = i% + 1
PRINT "nie"
END
Uebergelaufen:
PRINT "Fehler"; ERR
END