10 PRINT "VELOCIDAD DE ROTACION PULSAR"
20 PRINT

30
40 INPUT "RADIO KILOMETROS"; RAD
50 INPUT "PERIODO PULSACION SEGUNDOS"; PER
55 LONGI = RAD * 2 * 3.1416

VEL = LONGI / PER
60 per2 = LONGI / 300000

80 VUELTAS = 1 / per2
82 VUELT = 1 / PER

90 PRINT "VELOCIDAD SUPERF. Km/s."; VEL
92 PRINT "PERIODO LIMTE VEL SUP=LUZ"; per2
93 PRINT "ROTACIONES LUZ/s."; VUELTAS
PRINT "ROTACIONES PULSO/S."; VUELT




94 INPUT "SI NUEVO CALCULO PULSAR 1"; NC
96 IF NC = 1 THEN 20

100 END