10 KEY OFF
40 CLS
50 PRINT "INFORTECNICA 1999"
60 PRINT "Plaza Maragall 4"
70 PRINT "Barcelona  08041"
80 PRINT "Tel. (93)351 59 25 / Fax. 408 43 46"
81 PRINT "M¢dem 352 91 16 / www.sadeya.cesca.es"
82 PRINT
83 PRINT "INFORTECNICA SERVICIO DE CALCULO Y SOFTWARE:"
84 PRINT "ESTUDIOS ESTADISTICOS, ASTRONOMIA, ROBOTICA,"
85 PRINT "ESTUDIOS DE MERCADO, INGENIERIA, MECANICA, TEC. MILITAR,"
86 PRINT "ARQUITECTURA, CALEFACCION, ANTENAS PARABOLICAS, MATEMATICA,"
87 PRINT "PROGRAMACION LINEAL, AERONAUTICA, ASTRONAUTICA, GEODESIA, TECNOLOGIA,"
88 PRINT "RESISTENCIA DE MATERIALES, FISICA, METEOROLOGIA, CARTOGRAFIA,"
89 PRINT "Solicite informaci¢n sin compromiso.   (pulse una tecla)"
100 PRINT
110 PRINT
130 OPEN "EFC2000.DAT" FOR APPEND AS 1
140 A$ = INPUT$(1): FOR A = 1 TO 8000: NEXT A
150 CLS
160 DEFDBL A-Z
170 DEFSNG I
180 PRINT
190 nuco = 0
200 PRINT " ***EFEMERIDES ECUATORIALES DE GRUPOS DE COMETAS***"
210 PRINT
220 INPUT "HASTA QUE MAGNITUD LE INTERESA LAS EFEMERIDES "; MMM9
230 PRINT "NUMERO DE EFEMERIDES PARA CADA COMETA";
240 INPUT PPP9
250 PRINT "INTERVALO EN DIAS=";
260 INPUT PPP4
270 P4 = PPP4
280 INPUT "PARA EL TOTAL DEL CIELO PULSE (1). PARA UN SECTOR DETERMINADO (2)"; RIF
290 AMA = 90: AMI = -90: DMA = 100: DMI = -100
300 IF RIF = 1 THEN 360
310 PRINT "PODRA ESTUDIAR SI EXISTEN COMETAS EN UN SECTOR DEL CIELO."
320 INPUT "MARQUE LOS LIMITES DEL SECTOR. ASCENSION RECTA MAXIMA (HH.MM)"; AMA
330 INPUT "ASCENSION RECTA MINIMA (HH.MM)"; AMI
340 INPUT "DECLINACION MAXIMA (GG.MM)"; DMA
350 INPUT "DECLINACION MINIMA (GG.MM)"; DMI
360 PRINT "TIEMPO DE LA EFEMERIDE INICIAL ";
370 CLS
380 GOSUB 620
390 TT9 = J0
400 JJ1 = J0
410 REM
420 NUCOM = 53
430 PRINT "EFEMERIDES ECUATORIALES EQUIN. 2000,0"
440 PRINT #1, "EFEMERIDES ECUATORIALES EQUIN. 2000,0"
450 PRINT "Fecha     A.R.(2000)Dec.    Delta    r.    Elon.  F.A. Mag"
460 PRINT #1, "Fecha     A.R.(2000)Dec.    Delta    r.    Elon.  F.A. Mag"
470 nuco = nuco + 1: J0 = TT9: BAND = 0
480 PRINT #1,
490 P7 = 0
500 IF nuco > NUCOM THEN GOTO 3940
510 GOSUB 4730
520 PI = 3.141592654#
530 R9 = 180 / PI
540 P7 = 0
550 GOTO 2860
560 W7 = A9 / 360 - INT(A9 / 360)
570 B2 = 9 + W7
580 B3 = B2 - INT(B2)
590 A1 = B3 * 2 * PI
600 RETURN
610 Q7 = 18
620 PRINT "A¥O=";
630 INPUT a5
640 PRINT "MES=";
650 INPUT m5
660 PRINT "DIA=";
670 INPUT d5
680 IF m5 > 2 THEN 730
690 M6 = 12 + m5
700 A6 = a5 - 1
710 a5 = A6
720 m5 = M6
730 A0 = INT(a5 / 100)
740 B0 = 2 - A0 + INT(A0 / 4)
750 J0 = INT(365.25 * a5) + INT(30.6001 * (m5 + 1)) + d5 + 1720994.5#
760 IF J0 > 2299170.50001# THEN 780
770 RETURN
780 J0 = J0 + B0
790 GOTO 770
800 PRINT "JD="; J0
810 CLOSE 1: END
820 PRINT "FECHA JULIANA=";
830 INPUT J0
840 J6 = J0 + .5
850 J5 = INT(J6)
860 A0 = INT((J5 - 1867216.25#) / (36524.25#))
870 A1 = J5 + 1 + A0 - INT(A0 / 4)
880 IF J5 < 2299161.001# THEN 1010
890 B0 = A1 + 1524
900 C0 = INT((B0 - 122.1) / (365.25))
910 D0 = INT(365.25 * C0)
920 E0 = INT((B0 - D0) / (30.6001))
930 d5 = B0 - D0 - INT(30.6001 * E0) + (J6 - J5)
940 IF E0 > 13.5 THEN 970
950 m5 = E0 - 1
960 GOTO 980
970 m5 = E0 - 13
980 IF m5 > 2.5 THEN 1040
990 a5 = C0 - 4715
1000 GOTO 1050
1010 A1 = J5
1020 GOTO 890
1030 GOTO 1030
1040 a5 = C0 - 4716
1050 RETURN
1060 V7 = R
1070 K5 = B
1080 GOSUB 1140
1090 Z = Y
1100 V7 = X
1110 K5 = A
1120 GOSUB 1140
1130 RETURN
1140 R9 = 180 / PI
1150 A8 = (K5 / 360 - INT(K5 / 360)) * 360
1160 C1 = INT(A8 / 90) + 1
1170 A2 = (A8 / 90 - INT(A8 / 90)) * 90
1180 X1 = COS(A2 / R9) * V7
1190 Y1 = SIN(A2 / R9) * V7
1200 IF C1 > 3.99999 THEN 1610
1210 IF C1 > 2.99999 THEN 1640
1220 IF C1 > 1.99999 THEN 1670
1230 GOTO 1700
1240 X1 = ABS(X)
1250 Y1 = ABS(Y)
1260 V7 = SQR(X1 * X1 + Y1 * Y1)
1270 A = ATN(Y / X) * 180 / PI
1280 IF X > -1E-08 THEN 1320
1290 IF X < 0 THEN 1300
1300 K5 = 180 + A
1310 RETURN
1320 K5 = A
1330 RETURN
1340 PRINT "X=";
1350 INPUT X9
1360 PRINT "Y=";
1370 INPUT Y9
1380 PRINT "Z=";
1390 INPUT Z9
1400 GOSUB 1430
1410 PRINT "A"; A3; "B"; B7; "R"; V7
1420 CLOSE 1: END
1430 X = X9
1440 Y = Y9
1450 GOSUB 1240
1460 A3 = K5
1470 X = V7
1480 Y = Z9
1490 GOSUB 1240
1500 B7 = K5
1510 RETURN
1520 PRINT "DE POLARES A CARTESIANAS:A=";
1530 INPUT A
1540 PRINT "B=";
1550 INPUT B
1560 PRINT "R=";
1570 INPUT R
1580 GOSUB 1060
1590 PRINT "X="; X; "Y="; Y; "Z="; Z
1600 CLOSE 1: END
1610 X = Y1
1620 Y = X1 * -1
1630 RETURN
1640 X = X1 * -1
1650 Y = Y1 * -1
1660 RETURN
1670 X = Y1 * -1
1680 Y = X1
1690 RETURN
1700 X = X1
1710 Y = Y1
1720 RETURN
1730 PRINT "DE GRADOS A GMS: GRD=";
1740 INPUT G7
1750 IF G7 < 0 THEN 1850
1760 G = INT(G7)
1770 M6 = (G7 - G) * 60
1780 M = INT(M6)
1790 S = (M6 - M) * 60
1800 G9 = G + M / 100 + S / 10000
1810 RETURN
1820 GOSUB 1730
1830 PRINT "GRD="; G7; "G="; G; "M="; M; "S="; S; "GMS="; G9
1840 CLOSE 1: END
1850 G7 = G7 + 360
1860 GOSUB 1760
1870 G9 = -1 * G9
1880 RETURN
1890 PRINT "G=";
1900 INPUT G
1910 PRINT "M=";
1920 INPUT M
1930 PRINT "S=";
1940 INPUT S
1950 G7 = G + M / 60 + S / 3600
1960 G9 = G + M / 100 + S / 10000
1970 RETURN
1980 PRINT "DE GMS A GRADOS";
1990 GOSUB 1890
2000 PRINT "GMS="; G9; "GRD="; G7
2010 CLOSE 1: END
2020 PRINT "COORDENADAS DEL SOL";
2030 GOSUB 620
2040 GOSUB 2110
2050 R9 = 180 / PI
2060 L0 = L1 * R9
2070 PRINT "1.VER.="; L0; "R="; R6; "AR.APR.="; W8; "DEC.APR.="; D0
2080 CLOSE 1: END
2090 GOSUB 2110
2100 RETURN
2110 T = (J0 - 2415020#) / 36525!
2120 L7 = 270.4344# + 481267.8831# * T - .0001133 * T ^ 2
2130 L6 = 279.69668# + 36000.76892# * T + .0003025 * T ^ 2
2140 A9 = L6
2150 GOSUB 560
2160 L6 = A1
2170 M6 = 358.47583# + 35999.04975# * T - .00015 * T ^ 2
2180 A9 = M6
2190 GOSUB 560
2200 M6 = A1
2210 M7 = 296.1046# + 477198.8491# * T + .009192 * T ^ 2
2220 C5 = 1.91946 - .004789 * T - .000014 * T ^ 2
2230 C6 = PI / 180 * (C5 * SIN(M6) + (.020094 - .0001 * T) * SIN(2 * M6) + .000293 * SIN(3 * M6))
2240 N0 = 259.1833# - 1934.142# * T + .002078 * T ^ 2
2250 L1 = C6 + L6
2260 V6 = M6 + C6
2270 E7 = .01675104# - .0000418 * T
2280 R6 = ((1.0000002# * (1 - E7 ^ 2)) / (1 + E7 * COS(V6)))
2290 N6 = 259.13 - 1934.142# * T
2300 A9 = N6
2310 GOSUB 560
2320 N6 = A1
2330 W = L1 - PI / 180 * (.00569 - .00479 * SIN(N6))
2340 R9 = 180 / PI
2350 N1 = -(17.2327 + .01737 * T) * SIN(N0 / R9) - 1.273 * SIN(2 * L6 / R9)
2360 N2 = 9.21 * COS(N0 / R9) + .552 * COS(2 * L6 / R9)
2370 O1 = 23.452294# - .0130125 * T + .00256 * COS(N6)
2380 O5 = 23.452294# - .0130125 * 1
2390 L5 = L1 - PI / 180 * 1.396 * (T - 1)
2400 X1 = R6 * COS(W)
2410 X5 = R6 * COS(L5)
2420 Y7 = R6 * SIN(W) * COS(O1 / (180 / PI))
2430 Y5 = R6 * SIN(L5) * COS(O5 / (180 / PI))
2440 Z3 = R6 * SIN(W) * SIN(O1 / (180 / PI))
2450 Z5 = R6 * SIN(L5) * SIN(O5 / (180 / PI))
2460 R9 = 180 / PI
2470 V7 = R6
2480 K5 = L5 * R9
2490 GOSUB 1140
2500 X2 = X
2510 Y2 = Y
2520 V7 = R6
2530 K5 = W * R9
2540 GOSUB 1140
2550 X3 = X
2560 Y3 = Y
2570 X9 = X5
2580 Y9 = Y5
2590 Z9 = Z5
2600 GOSUB 1430
2610 W5 = A3
2620 d5 = B7
2630 X9 = X3
2640 Y9 = Y7
2650 Z9 = Z3
2660 GOSUB 1430
2670 W6 = A3
2680 D9 = B7
2690 P1 = 8.793999 / R6
2700 S0 = .267 / R6
2710 G7 = W5 / 15
2720 GOSUB 1750
2730 W0 = G9
2740 G7 = W6 / 15
2750 GOSUB 1750
2760 W8 = G9
2770 G7 = d5
2780 GOSUB 1750
2790 D6 = G9
2800 G7 = D9
2810 GOSUB 1750
2820 D0 = G9
2830 RETURN
2840 D7 = D7 * -1
2850 GOTO 3570
2860 GOSUB 5350
2870 GOSUB 5850
2880 GOSUB 6330
2890 GOSUB 6810
2900 GOSUB 7310
2910 IF e8 = 1 THEN 2930
2920 GOTO 2940
2930 e8 = .999999
2940 S8 = q8 / (1 - e8)
2950 GOSUB 7810
2960 P9 = PPP9
2970 P4 = PPP4
2980 GOTO 3790
2990 H7 = 0
3000 T = (T9 - T8) - H7
3010 Q = q8
3020 E0 = e8
3030 GOTO 3950
3040 V1 = V
3050 R1 = R
3060 K5 = V1 * R9 + p8
3070 V7 = R1
3080 GOSUB 1140
3090 G0 = X
3100 H0 = Y
3110 V7 = H0
3120 K5 = i8
3130 GOSUB 1140
3140 H0 = X
3150 I0 = Y
3160 X = G0
3170 Y = H0
3180 GOSUB 1240
3190 K5 = K5 + n8
3200 GOSUB 1140
3210 G0 = X
3220 H0 = Y
3230 G1 = G0 + X2
3240 H1 = H0 + Y2
3250 I1 = I0
3260 X = H1
3270 Y = I1
3280 GOSUB 1240
3290 K5 = K5 + O5
3300 GOSUB 1140
3310 H2 = X
3320 I2 = Y
3330 G2 = G1
3340 X9 = G2
3350 Y9 = H2
3360 Z9 = I2
3370 GOSUB 1430
3380 A4 = A3
3390 D4 = B7
3400 G7 = A4 / 15
3410 GOSUB 1750
3420 W0 = G9
3430 G7 = D4
3440 GOSUB 1750
3450 IF H7 > 0 THEN 3480
3460 H7 = .005775 * V7
3470 GOTO 3000
3480 D1 = G9 - .0001 * COS((A4 + 168.75) / (180 / PI)) * SIN(G9 / (180 / PI))
3490 D7 = INT(ABS(D4)) + .6 * (ABS(D4) - INT(ABS(D4)))
3500 U8 = V7
3510 A4 = A4 - .0001 * SIN((A4 + 168.75) / (180 / PI)) / COS(D1 / (180 / PI))
3520 W9 = A4 / 360 + 9
3530 W9 = 24 * (W9 - INT(W9))
3540 A6 = INT(W9) + .6 * (W9 - INT(W9))
3550 GOSUB 840
3560 IF D4 < 0 THEN 2840
3570 T5 = a5 + m5 / 100 + d5 / 10000
3580 E6 = (R6 * R6 + U8 * U8 - R1 * R1) / (2 * R6 * U8)
3590 E6 = R9 * ATN(SQR(1 - E6 * E6) / E6)
3600 IF E6 > 0 THEN 3620
3610 E6 = 180 + E6
3620 F6 = (R1 * R1 + U8 * U8 - R6 * R6) / (2 * R1 * U8)
3630 F6 = R9 * ATN(SQR(1 - F6 * F6) / F6)
3640 IF F6 > 0 THEN 3660
3650 F6 = 180 + F6
3660 M9 = 5 * LOG(U8) / LOG(10) + 10 * LOG(R1) / LOG(10) + k8
3670 P7 = 1 + P7
3680 IF P7 > P9 THEN 470
3690 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 AND BAND = 0 THEN PRINT nom$
3700 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 AND BAND = 0 THEN PRINT #1, nom$
3710 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 AND BAND = 0 THEN PRINT #1, MOM$
3720 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 THEN BAND = 1
3730 MM9 = INT(M9 * 10) / 10
3735 M = 1000
3736 D = 10000
3740 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 THEN PRINT USING "####.#### ##.#### +##.### ###.### ###.### ###.# ###.# ##.#"; T5; INT(A6 * D) / D; INT(D7 * M) / M; INT(U8 * M) / M; INT(R1 * M) / M; INT(E6 * 10) /  _
10; INT(F6 * 10) / 10; M9
3750 FF6 = INT(F6 * 10) / 10
3760 IF E6 > 15 AND M9 < MMM9 AND AMI < A6 AND AMA > A6 AND DMI < D7 AND DMA > D7 THEN PRINT #1, USING "####.#### ##.#### +##.### ###.### ###.### ###.# ###.# ##.#"; T5; INT(A6 * D) / D; INT(D7 * M) / M; INT(U8 * M) / M; INT(R1 * M) / M; INT(E6 * 10) _
 / 10; F6; M9
3770 J0 = P4 + J0
3780 GOTO 3900
3790 GOSUB 8200
3800 GOSUB 5225
3810 T8 = JJ0
3820 T8 = JJ0
3830 GOTO 3900
3840 PRINT "EFEMERIDES ECUATORIALES DEL COMETA "; nom$; " EQUIN. 2000,0"
3850 PRINT #1, "EFEMERIDES ECUATORIALES DEL COMETA "; nom$; " EQUIN. 2000,0"
3860 PRINT "T="; T8; " PERI="; p8; " NODO="; n8; " INCL="; i8; " EXC="; e8; " Q="; q8; " G="; k8
3870 PRINT #1, "T="; T8; " PERI="; p8; " NODO="; n8; " INCL="; i8; " EXC="; e8; " Q="; q8; " G="; k8
3880 PRINT "Fecha     A.R.(2000)Dec.    Delta    r.    Elon.  F.A. Mag"
3890 PRINT #1, "Fecha     A.R.(2000)Dec.    Delta    r.    Elon.  F.A. Mag"
3900 J1 = J0
3910 T9 = J0
3920 GOSUB 2110
3930 GOTO 2990
3940 CLOSE 1: END
3950 K = .01720209895#
3960 IF E0 > .95 THEN 4250
3970 IF E0 > .9999999899999999# THEN 4700
3980 A1 = Q / (1 - E0)
3990 M = K * T * A1 ^ (-1.5)
4000 F = SGN(M)
4010 M = ABS(M) / (2 * PI)
4020 M = (M - INT(M)) * 2 * PI * F
4030 IF M < 0 THEN 4050
4040 GOTO 4060
4050 M = M + 2 * PI
4060 F = 1
4070 IF M > PI THEN 4090
4080 GOTO 4100
4090 F = -1
4100 IF M > PI THEN 4120
4110 GOTO 4130
4120 M = 2 * PI - M
4130 E = PI / 2
4140 D = PI / 4
4150 FOR I1 = 1 TO 23
4160 M1 = E - E0 * SIN(E)
4170 E = E + SGN(M - M1) * D
4180 D = D / 2
4190 NEXT I1
4200 V = SQR((1 + E0) / (1 - E0))
4210 E = E * F
4220 V = 2 * ATN(V * SIN(E / 2) / COS(E / 2))
4230 R = A1 * (1 - E0 * COS(E))
4240 GOTO 4660
4250 A = SQR((1 + 9 * E0) / 10)
4260 B = 5 * (1 - E0) / (1 + 9 * E0)
4270 C = SQR(5 * (1 + E0) / (1 + 9 * E0))
4280 B1 = 3 * A * K * T / SQR(2 * Q * Q * Q)
4290 B2 = 1
4300 W1 = B2 * B1
4310 B3 = ATN(2 / W1)
4320 T1 = SIN(B3 / 2) / COS(B3 / 2)
4330 S1 = SGN(T1)
4340 T1 = ABS(T1)
4350 T2 = T1 ^ (1 / 3) * S1
4360 G = ATN(T2)
4370 S = 2 * COS(2 * G) / SIN(2 * G)
4380 A2 = B * S * S
4390 B0 = B2
4400 B2 = 0
4410 IF ABS(A2) > .3 THEN 3970
4420 B2 = B2 + 1 * A2 ^ 0
4430 B2 = B2 + 0 * A2 ^ 1
4440 B2 = B2 - .017142857# * A2 * A2
4450 B2 = B2 - 3.809524E-03 * A2 ^ 3
4460 B2 = B2 - 1.104267E-03 * A2 ^ 4
4470 B2 = B2 - 3.67358E-04 * A2 ^ 5
4480 B2 = B2 - 1.31675E-04 * A2 ^ 6
4490 B2 = B2 - 4.9577E-05 * A2 ^ 7
4500 IF ABS(B2 - B0) > 1E-08 THEN 4300
4510 C1 = 0
4520 C1 = C1 + 1 * A2 ^ 0
4530 C1 = C1 - .8 * A2 ^ 1
4540 C1 = C1 + .04571429# * A2 ^ 2
4550 C1 = C1 + .0152381 * A2 ^ 3
4560 C1 = C1 + .0056282 * A2 ^ 4
4570 C1 = C1 + 2.18783E-03 * A2 ^ 5
4580 C1 = C1 + 8.7905E-04 * A2 ^ 6
4590 C1 = C1 + 3.6155E-04 * A2 ^ 7
4600 C1 = SQR(1 / C1)
4610 V1 = C * C1 * S
4620 D1 = 1 / (1 + A2 * C1 * C1)
4630 V = 2 * ATN(V1)
4640 R = Q * D1 * (1 + V1 * V1)
4650 GOTO 4660
4660 IF V < 0 THEN 4680
4670 GOTO 4690
4680 V = V + 2 * PI
4690 GOTO 3040
4700 PRINT "FUERA DE LIMITE"
4710 CLOSE 1: END
4720 GOTO 3920
4730 IF nuco = 1 THEN nom$ = "SHOEMAKER 1 "
4740 IF nuco = 2 THEN nom$ = "MUELLER 3"
4750 IF nuco = 3 THEN nom$ = "SINGER BREWSTER "
4760 IF nuco = 4 THEN nom$ = "BOWELL-SKIFF "
4770 IF nuco = 5 THEN nom$ = "SHOEMAKER-LEVY 6 "
4780 IF nuco = 6 THEN nom$ = "37P FORBES "
4790 IF nuco = 7 THEN nom$ = "FAYE "
4800 IF nuco = 8 THEN nom$ = "GE-WANG "
4810 IF nuco = 9 THEN nom$ = "1998 U5 LINEAR"
4820 IF nuco = 10 THEN nom$ = "1999 A1 TILBROOK"
4830 IF nuco = 11 THEN nom$ = "1998 U3 JAGER"
4840 IF nuco = 12 THEN nom$ = "1998 T1 LINEAR"
4850 IF nuco = 13 THEN nom$ = "P/FORBES"
4860 IF nuco = 14 THEN nom$ = "TILBROOK (1991 A1)"
4870 IF nuco = 15 THEN nom$ = "LEE (1999 H1)"
4880 IF nuco = 16 THEN nom$ = "LINEAR (1998 T1)"
4890 IF nuco = 17 THEN nom$ = "LINEAR (1998 U5)"
4900 IF nuco = 18 THEN nom$ = "AREND"
4910 IF nuco = 19 THEN nom$ = "GICLAS"
4920 IF nuco = 20 THEN nom$ = "TEMPEL 2"
4930 IF nuco = 21 THEN nom$ = "KEARNS-KWEE"
4940 IF nuco = 22 THEN nom$ = "MACHHOLZ 2"
4950 IF nuco = 23 THEN nom$ = "SHOEMAKER-LEVY 8"
4960 IF nuco = 24 THEN nom$ = "SCHUSTER"
4970 IF nuco = 25 THEN nom$ = "WILD 1"
4980 IF nuco = 26 THEN nom$ = "MCNAUGHT-HUGHES"
4990 IF nuco = 27 THEN nom$ = "TEMPEL-TUTTLE"
5000 IF nuco = 28 THEN nom$ = "KOWAL 2"
5010 IF nuco = 29 THEN nom$ = "SHOEMAKER-LEVY 3"
5020 IF nuco = 30 THEN nom$ = "TEMPEL 1"
5030 IF nuco = 31 THEN nom$ = "WISEMAN-SKIFF"
5040 IF nuco = 32 THEN nom$ = "SHOEMAKER-LEVY 2"
5050 IF nuco = 33 THEN nom$ = "URATA-NIIJIMA"
5060 IF nuco = 34 THEN nom$ = "MEUNIER-DUPOUY(1997J2)"
5070 IF nuco = 35 THEN nom$ = "HALE BOPP(1995 O1)"
5080 IF nuco = 36 THEN nom$ = "29P/SCHWASSMANN-WACHMANN 1"
5090 IF nuco = 37 THEN nom$ = "LOVAS 2"
5100 IF nuco = 38 THEN nom$ = "CIFFR�O"
5110 IF nuco = 39 THEN nom$ = "SWIFT-GEHRELS"
5120 IF nuco = 40 THEN nom$ = "PETERS HARTLEY "
5130 IF nuco = 41 THEN nom$ = "SHOEMAKER LEVY 7 "
5140 IF nuco = 42 THEN nom$ = "RUSELL 1 "
5150 IF nuco = 43 THEN nom$ = "HOWELL "
5160 IF nuco = 44 THEN nom$ = "LOVAS 1 "
5170 IF nuco = 45 THEN nom$ = "TAKAMIZAWA "
5180 IF nuco = 46 THEN nom$ = "KOWAL-VAVROVA "
5190 IF nuco = 47 THEN nom$ = "GIACOBINI-ZINNER "
5200 IF nuco = 48 THEN nom$ = "HARRINGTON-ABELL "
5210 IF nuco = 49 THEN nom$ = "TSUCHINSHAN 2 "
5212 IF nuco = 50 THEN nom$ = "1998 J1 (SOHO)"
5214 IF nuco = 51 THEN nom$ = "1998 K2 (LINEAR)"
5215 IF nuco = 52 THEN nom$ = "1998 M5 (LINEAR)"
5216 IF nuco = 53 THEN nom$ = "1998 P1 (WILLIAMS)"
5224 RETURN
5225 GOSUB 8200
5230 IF m5 > 2 THEN 5280
5240 M6 = 12 + m5
5250 A6 = a5 - 1
5260 a5 = A6
5270 m5 = M6
5280 A0 = INT(a5 / 100)
5290 B0 = 2 - A0 + INT(A0 / 4)
5300 JJ0 = INT(365.25 * a5) + INT(30.6001 * (m5 + 1)) + d5 + 1720994.5#
5310 IF JJ0 > 2299170.50001# THEN 5330
5320 RETURN
5330 JJ0 = JJ0 + B0
5340 GOTO 5320
5350 IF nuco = 1 THEN p8 = 18.67805
5360 IF nuco = 2 THEN p8 = 225.46095#
5370 IF nuco = 3 THEN p8 = 46.80307
5380 IF nuco = 4 THEN p8 = 173.06572#
5390 IF nuco = 5 THEN p8 = 333.36095#
5410 IF nuco = 6 THEN p8 = 310.70525#
5420 IF nuco = 7 THEN p8 = 204.97481#
5430 IF nuco = 8 THEN p8 = 177.34103#
5440 IF nuco = 9 THEN p8 = 51.1833
5450 IF nuco = 10 THEN p8 = 232.5353
5460 IF nuco = 11 THEN p8 = 180.8903
5470 IF nuco = 12 THEN p8 = 226.3361#
5480 IF nuco = 13 THEN p8 = 310.70525#
5490 IF nuco = 14 THEN p8 = 232.6684
5500 IF nuco = 15 THEN p8 = 40.6354
5510 IF nuco = 16 THEN p8 = 226.3361
5520 IF nuco = 17 THEN p8 = 51.1408
5530 IF nuco = 18 THEN p8 = 48.99450
5540 IF nuco = 19 THEN p8 = 276.41670
5550 IF nuco = 20 THEN p8 = 195.02289
5560 IF nuco = 21 THEN p8 = 127.44638
5570 IF nuco = 22 THEN p8 = 149.30658
5580 IF nuco = 23 THEN p8 = 22.59273
5590 IF nuco = 24 THEN p8 = 355.85953
5600 IF nuco = 25 THEN p8 = 167.99432
5610 IF nuco = 26 THEN p8 = 224.3648#
5620 IF nuco = 27 THEN p8 = 172.4988#
5630 IF nuco = 28 THEN p8 = 191.9098#
5640 IF nuco = 29 THEN p8 = 181.14245#
5650 IF nuco = 30 THEN p8 = 178.91096
5660 IF nuco = 31 THEN p8 = 172.82614
5670 IF nuco = 32 THEN p8 = 142.02692
5680 IF nuco = 33 THEN p8 = 21.45672
5690 IF nuco = 34 THEN p8 = 122.684
5700 IF nuco = 35 THEN p8 = 130.5925
5710 IF nuco = 36 THEN p8 = 49.8699
5720 IF nuco = 37 THEN p8 = 71.53872
5730 IF nuco = 38 THEN p8 = 358.04389
5740 IF nuco = 39 THEN p8 = 92.40730
5750 IF nuco = 40 THEN p8 = 338.40886#
5760 IF nuco = 41 THEN p8 = 95.57041
5770 IF nuco = 42 THEN p8 = 333.88532#
5780 IF nuco = 43 THEN p8 = 234.91193#
5790 IF nuco = 44 THEN p8 = 74.49161
5800 IF nuco = 45 THEN p8 = 147.80628#
5810 IF nuco = 46 THEN p8 = 18.92638
5820 IF nuco = 47 THEN p8 = 172.5433
5830 IF nuco = 48 THEN p8 = 138.90073#
5840 IF nuco = 49 THEN p8 = 203.18483#
5841 IF nuco = 50 THEN p8 = 110.5431
5842 IF nuco = 51 THEN p8 = 222.421
5843 IF nuco = 52 THEN p8 = 101.1088
5844 IF nuco = 53 THEN p8 = 294.466
5845 RETURN
5850 IF nuco = 1 THEN n8 = 339.97427#
5860 IF nuco = 2 THEN n8 = 137.96265#
5870 IF nuco = 3 THEN n8 = 192.54568#
5880 IF nuco = 4 THEN n8 = 343.46482#
5890 IF nuco = 5 THEN n8 = 37.83622
5900 IF nuco = 6 THEN n8 = 334.36568#
5910 IF nuco = 7 THEN n8 = 199.33887#
5920 IF nuco = 8 THEN n8 = 177.14026#
5930 IF nuco = 9 THEN n8 = 66.642301#
5940 IF nuco = 10 THEN n8 = 259.0986
5950 IF nuco = 11 THEN n8 = 303.543#
5960 IF nuco = 12 THEN n8 = 153.354
5970 IF nuco = 13 THEN n8 = 334.36568#
5980 IF nuco = 14 THEN n8 = 259.1216
5990 IF nuco = 15 THEN n8 = 162.6176
6000 IF nuco = 16 THEN n8 = 153.3540
6010 IF nuco = 17 THEN n8 = 66.6495
6020 IF nuco = 18 THEN n8 = 355.38279
6030 IF nuco = 19 THEN n8 = 112.49047
6040 IF nuco = 20 THEN n8 = 118.21144
6050 IF nuco = 21 THEN n8 = 313.03593
6060 IF nuco = 22 THEN n8 = 246.13350
6070 IF nuco = 23 THEN n8 = 213.31735
6080 IF nuco = 24 THEN n8 = 50.58945
6090 IF nuco = 25 THEN n8 = 358.52543
6100 IF nuco = 26 THEN n8 = 89.97336
6110 IF nuco = 27 THEN n8 = 235.2583
6120 IF nuco = 28 THEN n8 = 246.1479#
6130 IF nuco = 29 THEN n8 = 303.71637#
6140 IF nuco = 30 THEN n8 = 68.96649
6150 IF nuco = 31 THEN n8 = 271.06937
6160 IF nuco = 32 THEN n8 = 234.75325
6170 IF nuco = 33 THEN n8 = 31.94393
6180 IF nuco = 34 THEN n8 = 148.8407
6190 IF nuco = 35 THEN n8 = 282.4707
6200 IF nuco = 36 THEN n8 = 312.8481
6210 IF nuco = 37 THEN n8 = 283.57623
6220 IF nuco = 38 THEN n8 = 53.72148
6230 IF nuco = 39 THEN n8 = 306.13871
6240 IF nuco = 40 THEN n8 = 260.00641#
6250 IF nuco = 41 THEN n8 = 309.50071#
6260 IF nuco = 42 THEN n8 = 226.43874#
6270 IF nuco = 43 THEN n8 = 57.66882
6280 IF nuco = 44 THEN n8 = 340.02032#
6290 IF nuco = 45 THEN n8 = 124.84582#
6300 IF nuco = 46 THEN n8 = 202.27794#
6310 IF nuco = 47 THEN n8 = 195.39847#
6320 IF nuco = 48 THEN n8 = 337.28843#
6322 IF nuco = 49 THEN n8 = 288.20089#
6323 IF nuco = 50 THEN n8 = 351.6653
6324 IF nuco = 51 THEN n8 = 68.757
6325 IF nuco = 52 THEN n8 = 333.4049
6326 IF nuco = 53 THEN n8 = 156.376
6329 RETURN
6330 IF nuco = 1 THEN i8 = 26.26095
6340 IF nuco = 2 THEN i8 = 9.41399
6350 IF nuco = 3 THEN i8 = 9.18786
6360 IF nuco = 4 THEN i8 = 3.83794
6370 IF nuco = 5 THEN i8 = 16.89203
6380 IF nuco = 6 THEN i8 = 7.16284
6390 IF nuco = 7 THEN i8 = 9.04881
6400 IF nuco = 8 THEN i8 = 12.17417
6410 IF nuco = 9 THEN i8 = 131.7592
6420 IF nuco = 10 THEN i8 = 89.5607
6430 IF nuco = 11 THEN i8 = 19.1411
6440 IF nuco = 12 THEN i8 = 170.1601
6450 IF nuco = 13 THEN i8 = 7.16284
6460 IF nuco = 14 THEN i8 = 89.4827
6470 IF nuco = 15 THEN i8 = 149.3607
6480 IF nuco = 16 THEN i8 = 170.1601
6490 IF nuco = 17 THEN i8 = 131.7632
6500 IF nuco = 18 THEN i8 = 19.17902
6510 IF nuco = 19 THEN i8 = 7.28156
6520 IF nuco = 20 THEN i8 = 11.97661
6530 IF nuco = 21 THEN i8 = 9.35199
6540 IF nuco = 22 THEN i8 = 12.81092
6550 IF nuco = 23 THEN i8 = 6.05044
6560 IF nuco = 24 THEN i8 = 20.13877
6570 IF nuco = 25 THEN i8 = 19.93409
6580 IF nuco = 26 THEN i8 = 7.30329
6590 IF nuco = 27 THEN i8 = 162.486#
6600 IF nuco = 28 THEN i8 = 15.4891
6610 IF nuco = 29 THEN i8 = 5.00995
6620 IF nuco = 30 THEN i8 = 10.54132
6630 IF nuco = 31 THEN i8 = 18.29103
6640 IF nuco = 32 THEN i8 = 4.65694
6650 IF nuco = 33 THEN i8 = 24.20483
6660 IF nuco = 34 THEN i8 = 91.2725
6670 IF nuco = 35 THEN i8 = 89.42978
6680 IF nuco = 36 THEN i8 = 9.3721
6690 IF nuco = 37 THEN i8 = 1.52910
6700 IF nuco = 38 THEN i8 = 13.09287
6710 IF nuco = 39 THEN i8 = 8.43706
6720 IF nuco = 40 THEN i8 = 29.85549
6730 IF nuco = 41 THEN i8 = 10.09052
6740 IF nuco = 42 THEN i8 = 17.74595
6750 IF nuco = 43 THEN i8 = 4.39834
6760 IF nuco = 44 THEN i8 = 12.23656
6770 IF nuco = 45 THEN i8 = 9.48973
6780 IF nuco = 46 THEN i8 = 4.34469
6790 IF nuco = 47 THEN i8 = 31.85873
6800 IF nuco = 48 THEN i8 = 10.21859
6802 IF nuco = 49 THEN i8 = 6.71646
6803 IF nuco = 50 THEN i8 = 62.9286
6804 IF nuco = 51 THEN i8 = 64.278
6805 IF nuco = 52 THEN i8 = 82.2683
6806 IF nuco = 53 THEN i8 = 145.729
6809 RETURN
6810 IF nuco = 1 THEN e8 = .4715196
6820 IF nuco = 2 THEN e8 = .288748
6830 IF nuco = 3 THEN e8 = .4127571
6840 IF nuco = 4 THEN e8 = .6910957
6850 IF nuco = 5 THEN e8 = .7052556
6860 IF nuco = 6 THEN e8 = .5681197
6870 IF nuco = 7 THEN e8 = .5682578
6880 IF nuco = 8 THEN e8 = .5008778
6890 IF nuco = 9 THEN e8 = .98549
6900 IF nuco = 10 THEN e8 = 1
6910 IF nuco = 11 THEN e8 = .648175
6920 IF nuco = 12 THEN e8 = .99915
6930 IF nuco = 13 THEN e8 = .5681197
6940 IF nuco = 14 THEN e8 = .995944
6950 IF nuco = 15 THEN e8 = 1.0
6960 IF nuco = 16 THEN e8 = .999150
6970 IF nuco = 17 THEN e8 = .987635
6980 IF nuco = 18 THEN e8 = .5303530
6990 IF nuco = 19 THEN e8 = .4936381
7000 IF nuco = 20 THEN e8 = .5228172
7010 IF nuco = 21 THEN e8 = .4765516
7020 IF nuco = 22 THEN e8 = .7510171
7030 IF nuco = 23 THEN e8 = .2894410
7040 IF nuco = 24 THEN e8 = .5879191
7050 IF nuco = 25 THEN e8 = .6497294
7060 IF nuco = 26 THEN e8 = .4041247
7070 IF nuco = 27 THEN e8 = .905531
7080 IF nuco = 28 THEN e8 = .585393
7090 IF nuco = 29 THEN e8 = .2480816
7100 IF nuco = 30 THEN e8 = .5189534
7110 IF nuco = 31 THEN e8 = .5564816
7120 IF nuco = 32 THEN e8 = .5798245
7130 IF nuco = 33 THEN e8 = .5877730
7140 IF nuco = 34 THEN e8 = 1.001097
7150 IF nuco = 35 THEN e8 = .9950744
7160 IF nuco = 36 THEN e8 = .04466
7170 IF nuco = 37 THEN e8 = .5928445
7180 IF nuco = 38 THEN e8 = .5426217
7190 IF nuco = 39 THEN e8 = .6945943
7200 IF nuco = 40 THEN e8 = .5980193
7210 IF nuco = 41 THEN e8 = .531148#
7220 IF nuco = 42 THEN e8 = .4375002#
7230 IF nuco = 43 THEN e8 = .5526884#
7240 IF nuco = 44 THEN e8 = .6131249#
7250 IF nuco = 45 THEN e8 = .5751732
7260 IF nuco = 46 THEN e8 = .5866581
7270 IF nuco = 47 THEN e8 = .7064829#
7280 IF nuco = 48 THEN e8 = .5429119#
7290 IF nuco = 49 THEN e8 = .5063609
7292 IF nuco = 50 THEN e8 = 1
7294 IF nuco = 51 THEN e8 = 1
7295 IF nuco = 52 THEN e8 = 1
7296 IF nuco = 53 THEN e8 = 1
7300 RETURN
7310 IF nuco = 1 THEN q8 = 1.9794053#
7320 IF nuco = 2 THEN q8 = 3.0108197#
7330 IF nuco = 3 THEN q8 = 2.0323714#
7340 IF nuco = 4 THEN q8 = 1.9723457#
7350 IF nuco = 5 THEN q8 = 1.1345121#
7360 IF nuco = 6 THEN q8 = 1.4460089#
7370 IF nuco = 7 THEN q8 = 1.6569984#
7380 IF nuco = 8 THEN q8 = 2.4955065#
7390 IF nuco = 9 THEN q8 = 1.23608#
7400 IF nuco = 10 THEN q8 = .73124#
7410 IF nuco = 11 THEN q8 = 2.133926#
7420 IF nuco = 12 THEN q8 = 1.468118
7430 IF nuco = 13 THEN q8 = 1.4460089#
7440 IF nuco = 14 THEN q8 = 0.730750
7450 IF nuco = 15 THEN q8 = 0.708563
7460 IF nuco = 16 THEN q8 = 1.468118
7470 IF nuco = 17 THEN q8 = 1.236403
7480 IF nuco = 18 THEN q8 = 1.9166936
7490 IF nuco = 19 THEN q8 = 1.8458415
7500 IF nuco = 20 THEN q8 = 1.4816796
7510 IF nuco = 21 THEN q8 = 2.3391527
7520 IF nuco = 22 THEN q8 = 0.7489580
7530 IF nuco = 23 THEN q8 = 2.7212449
7540 IF nuco = 24 THEN q8 = 1.5497269
7550 IF nuco = 25 THEN q8 = 1.9608686
7560 IF nuco = 26 THEN q8 = 2.1162278#
7570 IF nuco = 27 THEN q8 = .976577#
7580 IF nuco = 28 THEN q8 = 1.396506#
7590 IF nuco = 29 THEN q8 = 2.8167098#
7600 IF nuco = 30 THEN q8 = 1.5000475
7610 IF nuco = 31 THEN q8 = 1.5694944
7620 IF nuco = 32 THEN q8 = 1.8686605
7630 IF nuco = 33 THEN q8 = 1.4578625
7640 IF nuco = 34 THEN q8 = 3.050826
7650 IF nuco = 35 THEN q8 = .9140912
7660 IF nuco = 36 THEN q8 = 5.771773
7670 IF nuco = 37 THEN q8 = 1.4538405
7675 IF nuco = 38 THEN q8 = 1.7133568
7680 IF nuco = 39 THEN q8 = 1.3388872
7690 IF nuco = 40 THEN q8 = 1.6239641#
7700 IF nuco = 41 THEN q8 = 1.6974046#
7710 IF nuco = 42 THEN q8 = 2.1824517#
7720 IF nuco = 43 THEN q8 = 1.4061363#
7730 IF nuco = 44 THEN q8 = 1.6917801#
7740 IF nuco = 45 THEN q8 = 1.5852098#
7750 IF nuco = 46 THEN q8 = 2.5772605#
7760 IF nuco = 47 THEN q8 = 1.0337125#
7770 IF nuco = 48 THEN q8 = 1.7559865#
7780 IF nuco = 49 THEN q8 = 1.7703628#
7782 IF nuco = 50 THEN q8 = .153218
7784 IF nuco = 51 THEN q8 = 2.30537
7785 IF nuco = 52 THEN q8 = 1.745425
7786 IF nuco = 53 THEN q8 = 1.14678
7800 RETURN
7810 IF nuco = 1 THEN k8 = 10
7820 IF nuco = 2 THEN k8 = 8
7830 IF nuco = 3 THEN k8 = 10
7840 IF nuco = 4 THEN k8 = 10
7850 IF nuco = 5 THEN k8 = 11
7860 IF nuco = 6 THEN k8 = 10
7870 IF nuco = 7 THEN k8 = 10
7880 IF nuco = 8 THEN k8 = 9.5
7890 IF nuco = 9 THEN k8 = 6
7900 IF nuco = 10 THEN k8 = 10
7910 IF nuco = 11 THEN k8 = 8
7920 IF nuco = 12 THEN k8 = 10
7930 IF nuco = 13 THEN k8 = 8
7940 IF nuco = 14 THEN k8 = 12
7950 IF nuco = 15 THEN k8 = 7
7960 IF nuco = 16 THEN k8 = 7.8
7970 IF nuco = 17 THEN k8 = 7.8
7980 IF nuco = 18 THEN k8 = 10
7990 IF nuco = 19 THEN k8 = 9
8000 IF nuco = 20 THEN k8 = 9
8010 IF nuco = 21 THEN k8 = 6
8020 IF nuco = 22 THEN k8 = 12
8030 IF nuco = 23 THEN k8 = 8
8040 IF nuco = 24 THEN k8 = 10
8050 IF nuco = 25 THEN k8 = 9
8060 IF nuco = 26 THEN k8 = 11
8070 IF nuco = 27 THEN k8 = 11
8080 IF nuco = 28 THEN k8 = 11
8090 IF nuco = 29 THEN k8 = 8
8100 IF nuco = 30 THEN k8 = 9
8110 IF nuco = 31 THEN k8 = 10
8120 IF nuco = 32 THEN k8 = 9
8130 IF nuco = 33 THEN k8 = 10
8140 IF nuco = 34 THEN k8 = 3.5
8150 IF nuco = 35 THEN k8 = -2
8160 IF nuco = 36 THEN k8 = -1
8170 IF nuco = 37 THEN k8 = 10
8180 IF nuco = 38 THEN k8 = 9
8181 IF nuco = 39 THEN k8 = 10
8182 IF nuco = 49 THEN k8 = 8
8183 IF nuco = 52 THEN k8 = 6
8190 RETURN
8200 IF nuco = 1 THEN a5 = 1999
8210 IF nuco = 2 THEN a5 = 1999
8220 IF nuco = 3 THEN a5 = 1999
8230 IF nuco = 4 THEN a5 = 1999
8240 IF nuco = 5 THEN a5 = 1999
8250 IF nuco = 6 THEN a5 = 1999
8260 IF nuco = 7 THEN a5 = 1999
8270 IF nuco = 8 THEN a5 = 1999
8280 IF nuco = 9 THEN a5 = 1998
8290 IF nuco = 10 THEN a5 = 1999
8300 IF nuco = 11 THEN a5 = 1998
8310 IF nuco = 12 THEN a5 = 1999
8320 IF nuco = 13 THEN a5 = 1999
8330 IF nuco = 14 THEN a5 = 1999
8340 IF nuco = 15 THEN a5 = 1999
8350 IF nuco = 16 THEN a5 = 1999
8360 IF nuco = 17 THEN a5 = 1998
8370 IF nuco = 18 THEN a5 = 1999
8380 IF nuco = 19 THEN a5 = 1999
8390 IF nuco = 20 THEN a5 = 1999
8400 IF nuco = 21 THEN a5 = 1999
8410 IF nuco = 22 THEN a5 = 1999
8420 IF nuco = 23 THEN a5 = 1999
8430 IF nuco = 24 THEN a5 = 1999
8440 IF nuco = 25 THEN a5 = 1999
8450 IF nuco = 26 THEN a5 = 1998
8460 IF nuco = 27 THEN a5 = 1998
8470 IF nuco = 28 THEN a5 = 1998
8480 IF nuco = 29 THEN a5 = 1998
8490 IF nuco = 30 THEN a5 = 2000
8500 IF nuco = 31 THEN a5 = 2000
8510 IF nuco = 32 THEN a5 = 2000
8520 IF nuco = 33 THEN a5 = 2000
8530 IF nuco = 34 THEN a5 = 1998
8540 IF nuco = 35 THEN a5 = 1997
8550 IF nuco = 36 THEN a5 = 1989
8560 IF nuco = 37 THEN a5 = 2000
8570 IF nuco = 38 THEN a5 = 2000
8580 IF nuco = 39 THEN a5 = 2000
8590 IF nuco = 47 THEN a5 = 1999
8592 IF nuco = 49 THEN a5 = 1998
8594 IF nuco = 52 THEN a5 = 1999
8610 IF nuco = 1 THEN m5 = 3
8620 IF nuco = 2 THEN m5 = 3
8630 IF nuco = 3 THEN m5 = 4
8640 IF nuco = 4 THEN m5 = 4
8650 IF nuco = 5 THEN m5 = 5
8660 IF nuco = 6 THEN m5 = 5
8670 IF nuco = 7 THEN m5 = 5
8680 IF nuco = 8 THEN m5 = 6
8690 IF nuco = 9 THEN m5 = 12
8700 IF nuco = 10 THEN m5 = 1
8710 IF nuco = 11 THEN m5 = 3
8720 IF nuco = 12 THEN m5 = 6
8730 IF nuco = 13 THEN m5 = 5
8740 IF nuco = 14 THEN m5 = 1
8750 IF nuco = 15 THEN m5 = 7
8760 IF nuco = 16 THEN m5 = 6
8770 IF nuco = 17 THEN m5 = 12
8780 IF nuco = 18 THEN m5 = 8
8790 IF nuco = 19 THEN m5 = 8
8800 IF nuco = 20 THEN m5 = 9
8810 IF nuco = 21 THEN m5 = 9
8820 IF nuco = 22 THEN m5 = 12
8830 IF nuco = 23 THEN m5 = 12
8840 IF nuco = 24 THEN m5 = 12
8850 IF nuco = 25 THEN m5 = 12
8860 IF nuco = 26 THEN m5 = 2
8870 IF nuco = 27 THEN m5 = 2
8880 IF nuco = 28 THEN m5 = 3
8890 IF nuco = 29 THEN m5 = 3
8900 IF nuco = 30 THEN m5 = 1
8910 IF nuco = 31 THEN m5 = 1
8920 IF nuco = 32 THEN m5 = 2
8930 IF nuco = 33 THEN m5 = 3
8940 IF nuco = 34 THEN m5 = 3
8950 IF nuco = 35 THEN m5 = 4
8960 IF nuco = 36 THEN m5 = 10
8970 IF nuco = 37 THEN m5 = 4
8980 IF nuco = 38 THEN m5 = 5
8990 IF nuco = 39 THEN m5 = 5
9000 IF nuco = 40 THEN m5 = 8
9010 IF nuco = 41 THEN m5 = 8
9020 IF nuco = 42 THEN m5 = 8
9030 IF nuco = 43 THEN m5 = 9
9040 IF nuco = 44 THEN m5 = 10
9050 IF nuco = 45 THEN m5 = 11
9060 IF nuco = 46 THEN m5 = 11
9070 IF nuco = 47 THEN m5 = 11
9080 IF nuco = 48 THEN m5 = 1
9090 IF nuco = 49 THEN m5 = 3
9092 IF nuco = 50 THEN m5 = 5
9094 IF nuco = 51 THEN m5 = 9
9095 IF nuco = 52 THEN m5 = 1
9096 IF nuco = 53 THEN m5 = 10
9110 IF nuco = 1 THEN d5 = 16.99414
9120 IF nuco = 2 THEN d5 = 21.31735
9130 IF nuco = 3 THEN d5 = 6.44898
9140 IF nuco = 4 THEN d5 = 27.58311
9150 IF nuco = 5 THEN d5 = 2.37579
9160 IF nuco = 6 THEN d5 = 4.17597
9170 IF nuco = 7 THEN d5 = 6.11346
9180 IF nuco = 8 THEN d5 = 26.8588
9190 IF nuco = 9 THEN d5 = 21.8306
9200 IF nuco = 10 THEN d5 = 29.575
9210 IF nuco = 11 THEN d5 = 10.0607
9220 IF nuco = 12 THEN d5 = 25.2578
9230 IF nuco = 13 THEN d5 = 4.17597
9240 IF nuco = 14 THEN d5 = 29.6563
9250 IF nuco = 15 THEN d5 = 11.1735
9260 IF nuco = 16 THEN d5 = 25.2578
9270 IF nuco = 17 THEN d5 = 21.7695
9280 IF nuco = 18 THEN d5 = 3.77275
9290 IF nuco = 19 THEN d5 = 25.13204
9300 IF nuco = 20 THEN d5 = 8.42062
9310 IF nuco = 21 THEN d5 = 16.3279
9320 IF nuco = 22 THEN d5 = 8.44703
9330 IF nuco = 23 THEN d5 = 10.52183
9340 IF nuco = 24 THEN d5 = 16.21585
9350 IF nuco = 25 THEN d5 = 27.43044
9360 IF nuco = 26 THEN d5 = 23.74342
9370 IF nuco = 27 THEN d5 = 28.0982
9380 IF nuco = 28 THEN d5 = 2.168
9390 IF nuco = 29 THEN d5 = 3.92795
9400 IF nuco = 30 THEN d5 = 2.61646
9410 IF nuco = 31 THEN d5 = 11.76801
9420 IF nuco = 32 THEN d5 = 6.53198
9430 IF nuco = 33 THEN d5 = 4.38478
9440 IF nuco = 34 THEN d5 = 10.4494
9450 IF nuco = 35 THEN d5 = 1.1404
9460 IF nuco = 36 THEN d5 = 26.7223
9470 IF nuco = 37 THEN d5 = 11.67686
9480 IF nuco = 38 THEN d5 = 18.41372
9490 IF nuco = 39 THEN d5 = 21.86215
9500 IF nuco = 40 THEN d5 = 11.7356
9510 IF nuco = 41 THEN d5 = 25.26912
9520 IF nuco = 42 THEN d5 = 26.10561
9530 IF nuco = 43 THEN d5 = 27.25327
9540 IF nuco = 44 THEN d5 = 14.15874
9550 IF nuco = 45 THEN d5 = 7.97422
9560 IF nuco = 46 THEN d5 = 15.18071
9570 IF nuco = 47 THEN d5 = 21.31685
9580 IF nuco = 48 THEN d5 = 27.87246
9590 IF nuco = 49 THEN d5 = 8.17632
9592 IF nuco = 50 THEN d5 = 8.6168
9594 IF nuco = 51 THEN d5 = 3.169
9595 IF nuco = 52 THEN d5 = 24.2786
9596 IF nuco = 53 THEN d5 = 17.836
9600 RETURN