' ***************************************************************************  
' * Nach der Umformung mit ABC wurden die Variablen in #-Variable (Fließ-   *
' * komma) geändert und Screen Open 1 eingefügt.                            *  
' ***************************************************************************  
Set Input 10,-1 : Rem ist für Input # und Line Input # erforderlich
Curs Off : Flash Off 
Rem *********************************
Rem *          SNB 1.00             *
Rem *  Standard-Netzteil-Berechnung *
Rem *   © 2.2.1993 by Henry König   *
Rem * Bornheide 71, 2000 Hamburg 53 *
Rem *********************************
Screen Open 1,640,200,8,Hires
Print "Standard-Netzteil-Berechnung"
Print 
Input "Geplante Ausgangsspannung in Volt ";U#
Print "Geplante Ausgangsspannung ";U#;" Volt."
Input "Maximaler Ausgangsstrom in Ampere ";I#
Print "Maximaler Ausgangsstrom ";I#;" Ampere."
Print 
Print "        TRAFO min.: ";Int((U#+5)/1.3);" Volt, ";Int(I#*12+1)/10;" Ampere."
Print "Gleichrichter min.: ";Int(U#*1.6);" Volt, ";I#*1.2;" Ampere."
Print "              ELKO: ";(I#*4000);"uF, ";Int(U#+6);" Volt."
Print "   Primärsicherung: ";Int(I#*U#/10)/10+0.1;" Ampere."
Print "   Verlustleistung: ";Int((0.3*U#+3)*I#+1);" Watt."
Input "Druckerausgabe j/n ";X$
If X$="j"
   Open Out 4,"PRT:"
   Print #4,"        TRAFO min.: ";Int((U#+5)/1.3);" Volt, ";Int(I#*12+1)/10;" Ampere."
   Print #4,"Gleichrichter min.: ";Int(U#*1.6);" Volt, ";I#*1.2;" Ampere."
   Print #4,"              ELKO: ";(I#*4000);"uF, ";Int(U#+6);" Volt."
   Print #4,"   Primärsicherung: ";Int(I#*U#/10)/10+0.1;" Ampere."
   Print #4,"   Verlustleistung: ";Int((0.3*U#+3)*I#+1);" Watt."
End If 
End