10 INPUT   "SEMIASSE   MAGGIORE   IN U.A,";A 
20 INPUT   ECCENIRICITA'    ";E 
30 INPUT   "PERIODO SIDERALE   IN ANNI   ";P 
40 B=A*(1EI2) : PRINT "SEMIASSE MINORE   "B 
49 REM L=LUNGHEZZA   DELL'ORBITA   IN U.A.
50 L=3,14*(3*(A*B)-SQR((A+3*B)*(3*A+B)))
60 v=(L*149.6E+6) / (P*60*60*24*365)
70 PRINT VELOCITA' IN KM/S   "V

Programma Per la determinazione della velocità di una cometa.