10  COM I,A[37,61],B,E[3],P,P4,A$[10]
20  REM PROGRAM NAME = ORBECC, PLOTTING ORBITS
30  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
40  REM 9 AUGUST 1973
50  GOTO 70
60  CHAIN "$KEP1"
70  I=1
80  E[I]=INT(10*RND(0))/10
90  IF E[I]<.4 OR E[I]>.8 THEN 80
100  B=INT(20*RND(0))
110  IF B<8 OR B>10 THEN 100
120  P=P4=I
130  PRINT "THIS PROGRAM PLOTS ORBITS FOR WHICH YOU CAN CALCULATE THE ECCENTRICITY."
140  MAT A=ZER
150  A$="4"
160  GOTO 60
170  END 
