' Umwandlung E -> D bei doppeltgenauen Zahlen

DECLARE FUNCTION AusgabeMitE$ (w#)

PRINT AusgabeMitE$(4321321.62173#)
PRINT AusgabeMitE$(-822.3127321836218#)
PRINT AusgabeMitE$(1.32942836428376D-200)
PRINT AusgabeMitE$(4.217928173921D-130)
PRINT AusgabeMitE$(1.732462386423D+170)
PRINT AusgabeMitE$(-2.183216621423433D+190)

FUNCTION AusgabeMitE$ (w#)
  h$ = STR$(w#)
  p% = INSTR(h$, "D")
  IF p% > 0 THEN
    MID$(h$, p%) = "E"
  END IF
  AusgabeMitE$ = h$
END FUNCTION