DECLARE FUNCTION Punkt2Komma$ (t$)
DECLARE FUNCTION Komma2Punkt$ (t$)

' Hauptprogramm
LINE INPUT "Preis ohne USt: "; p$
pexkl! = VAL(Komma2Punkt$(p$))
pinkl! = pexkl! * 1.16
PRINT "Endverbraucherpreis ist "; Punkt2Komma$(STR$(pinkl!))

FUNCTION Komma2Punkt$ (t$)
  t1$ = t$
  DO
    p% = INSTR(t1$, ",")
    IF p% > 0 THEN
      MID$(t1$, p%) = "."
    END IF
  LOOP UNTIL p% = 0
  Komma2Punkt$ = t1$
END FUNCTION

FUNCTION Punkt2Komma$ (t$)
  t1$ = t$
  DO
    p% = INSTR(t1$, ".")
    IF p% > 0 THEN
      MID$(t1$, p%) = ","
    END IF
  LOOP UNTIL p% = 0
  Punkt2Komma$ = t1$
END FUNCTION