0 CLS
PRINT "SADEYA/INFORTECNICA"
5 PRINT "DETERMINACION VELOCIDAD ESCAPE"
PRINT
PRINT "LIMITE CHANDRASEKHAR (SOL=1) 1.35"
PRINT "LIMITE TOLMAN-OPPENHEIMER-VOLKOFF (SOL=1) 2.2"
PRINT "LIMITE AGUJERO NEGRO ESTELAR (SOL=1) 5"
PRINT

10 INPUT "MASA A Sol=1."; MAS
   MA = MAS * 2 * 10 ^ 30
   DPLE = 2
   DPLN = DPLA * 1000000000
   DPLQ = DPLN * 1000000000
   PRINT
30 INPUT "RADIO METROS"; R
   V = 4 / 3 * 3.141592 * R * R * R
   VD = V * 1000
   DEN = MA / VD
40 G = .00000000006672#
50 VE = SQR((2 * G * MA) / R)
   PRINT
70 PRINT "VELOCIDAD ESC. M/s="; VE
   PRINT "VELOCIDAD ESC. (LUZ=1)="; VE / 300000000
   IF VE > 300000000 THEN PRINT "POTENCIAL AGUJERO NEGRO"
75 PRINT "DENSIDAD (AGUA=1)="; DEN
PRINT "DENSIDAD (AIRE=0.00123)"; DEN / .00123
PRINT "DENSIDAD (SOL=1.41)"; DEN / 1.41
PRINT "DENSIDAD (NUCLEO ENANA BLANCA= 6*10^10 Kg/m3)"; DEN / (6 * (10 ^ 7))
PRINT "DENSIDAD (NUCLEO NEUTRONES= 3*10^17 Kg/m3)"; DEN / (3 * (10 ^ 14))
PRINT "DENSIDAD (NUCLEO QUARKS=10^18 Kg/m3)"; DEN / (10 ^ 15)
PRINT
80 INPUT "SI NUEVO CALCULO =1"; NC
IF NC = 1 THEN 10
90 END