CLS
Begin:
ON KEY(3) GOSUB Einde
KEY(3) ON
PRINT "F3 = programma stoppen <ENTER>"
PRINT
PRINT "BEREKENING TRIPTIJD MOTORBEVEILIGINGSSCHAKELAAR"
PRINT
INPUT "Inominaal = ", Inominaal
INPUT "Werkelijke stroom = ", I
I = I / Inominaal
Inominaal = 1
IF I > (Inominaal * 12.4) THEN M = 1
IF I < (Inominaal * 12.5) THEN C = (12 * 12 * 1.8)
IF I < (Inominaal * 9.1) THEN C = (9 * 9 * 2.9)
IF I < (Inominaal * 8.1) THEN C = (8 * 8 * 3.3)
IF I < (Inominaal * 7.3) THEN C = (7.2 * 7.2 * 4)
IF I < (Inominaal * 6.1) THEN C = (6 * 6 * 6)
IF I < (Inominaal * 5.1) THEN C = (5 * 5 * 8)
IF I < (Inominaal * 4.1) THEN C = (4 * 4 * 11)
IF I < (Inominaal * 3.1) THEN C = (3 * 3 * 18)
IF I < (Inominaal * 2.6) THEN C = (2.5 * 2.5 * 30)
IF I < (Inominaal * 2.1) THEN C = (2 * 2 * 50)
IF I < (Inominaal * 1.7) THEN C = (1.6 * 1.6 * 1.5 * 60)
IF I < (Inominaal * 1.6) THEN C = (1.5 * 1.5 * 2 * 60)
IF I < (Inominaal * 1.5) THEN C = (1.4 * 1.4 * 3 * 60)
IF I < (Inominaal * 1.4) THEN C = (1.3 * 1.3 * 4 * 60)
IF I < (Inominaal * 1.3) THEN C = (1.2 * 1.2 * 10 * 60)
IF I < (Inominaal * 1.2) THEN C = (1.1 * 1.1 * 1 * 60 * 60)
IF I < (Inominaal * 1.1) THEN C = (2 * 60 * 60)
T = C / (I * I)
IF M = 1 THEN PRINT "Directe magnetische uitschakeling": GOTO Label1
IF I = Inominaal OR I < Inominaal THEN PRINT "Tript niet": GOTO Label1
IF T > 60 THEN PRINT "Triptijd ="; T / 60; "minuten"
IF T < 60 THEN PRINT "Triptijd ="; T; "seconden"
Label1:
M = 0
PRINT
GOTO Begin
Einde:
END