nochmal:
COLOR 15, 11
CLS
COLOR 14, 11
PRINT : PRINT "  Berechnung eines invertierenden Verstrkers mit OP-AMP"
PRINT "  ------------------------------------------------------"
COLOR 15, 11
PRINT
INPUT "  Wie hoch soll der Eingangswiderstand in kę sein"; re
INPUT "  Wie hoch soll die Spannungsverstrkung sein"; v
r2 = (re * v) - re
PRINT
COLOR 15, 11
PRINT "  Der Widerstand am Eingang hat"; re; "kę"
PRINT "  Der Gegenkopplungswiderstand hat"; r2; "kę"
PRINT : COLOR 14, 11
INPUT "  Wie hoch ist die Versorgungspannung in Volt von Masse aus"; uv
umaxein = uv / v     'maximale Eingangsspannung in Vs
COLOR 15, 11: PRINT
PRINT "  Die maximale Eingangsspannung betrgt"; umaxein; "Vs ( Volt Spitze)"
PRINT "  Die maximale Ausgangsspannung betrgt"; uv; "Vs (Volt Spitze)"
'-------------------------- Verabsschiedung ---------------------------------
COLOR 15, 11
PRINT : INPUT "  Mchten Sie nochmal (j/n)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
GOTO nochmal
beenden:
COLOR 7, 0
CLS
SYSTEM
'--------------------------------- Programmende -----------------------------

