10 CLEAR
20 CLS
30 PRINT TAB(21); "************ EFEMERIDES ***********"
40 PRINT
50 PRINT "                    ___________________________________"
60 PRINT
70 PRINT "                           2007 SADEYA/INFORTECNICA      "
80 PRINT "                            LEPANT 422    "
90 PRINT "                            BARCELONA  08025    "
95  PRINT "                           Tel.93 433 42 43"
100 PRINT "                    www.sadeya.org www.infortecnica.com"
110 PRINT "                    ___________________________________  "
115 PRINT
116 PRINT "                       SOFTWARE SERIE ECOLOGIA    "
117 PRINT "   USO PUBLICO PARA UN MEJOR CONOCIMIENTO DEL CAMBIO CLIMATICO "
120 PRINT
130 PRINT "ESTE PROGRAMA MODELIZA UNA ERUPCION VOLCANICA Y DETERMINA "
132 PRINT "LAS CONSECUENCIAS SOBRE EL CLIMA"
140 PRINT
150 PRINT
160 INPUT "VOLUMEN DE MATERIALES EYECTADOS EN KILOMETROS CUBICOS"; KM
170 PRINT
    ESCV = LOG (KM) + 5
    KJ = KM
    KL = (KJ/500) ^ 4
    IF KJ> 500 THEN KJ = KJ * KL
    PERID = KJ * 4
    PLUMA = KM / 10 * 15
    IF PLUMA > 25 THEN PLUMA = 25
175 TEM = (KM ^ (1 / 3)) / 3
177 RADIA = 20 * TEM
178 ALBED = RADIA / 1360 * 100
    PRINT "ESCALA VEI=";ESCV
    PRINT "PERIODICIDEAD AÑOS = ";PERID
    RPINT "PLUMA =";PLUMA
180 PRINT "DESCENSO TEMPERATURA MEDIA DE LA TIERRA GRD. DURANTE PRIMER A¥O="; TEM
181 PRINT "DESCENSO RADIANCIA MEDIA DE LA TIERRA EN W/m2 PRIMER A¥O="; RADIA
182 PRINT "INCREMENTO ALBEDO MEDIO DE LA TIERRA DURANTE EL PRIMER A¥O %="; ALBED
190 CIC = KM * 1.35
200 DES = KM / 5
210 ENE = KM * 15
205 MIN = KM * .48
220 PRINT "PERIODO DE DESCENSO DE LA TEMPERATURA EN LA SUPERFICIE CONTINENTAL EN A¥OS"; DES
225 PRINT "PERIODO EN A¥OS PARA ALCANZAR LA MINIMA TEMPERATURA"; MIN
230 PRINT "DURACION DEL CICLO MAR-ATMOSFERA HASTA LA RECUPERACION INICIAL EN A¥OS "; CIC
240 INPUT "NUEVO CALCULO SI = 1"; NC
250 IF NC = 1 THEN 140
260 END