10  COM Z7,D$[7],V6,J8,U$[72],V$[72],I[4],C1,Z[7],C9,W[7]
20  COM I,R7,N9
30  REM PROGRAM NAME = MASGO, RELATIONSHIP BETWEEN SPEED AND RADIUS
40  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
50  REM 8 AUGUST 1973
60  GOTO 80
70  CHAIN "ANAL-1"
80  FILES SLITS1
90  DIM A[4,30]
100  PRINT "THIS PROGRAM ASSISTS IN FINDING A MATHEMATICAL RELATIONSHIP"
110  PRINT "BETWEEN THE ORBITAL SPEED (M/S) AND THE RADIUS (M) OF A CIRCULAR ORBIT"
120  PRINT "FOR A UNIT MASS (KG) ORBITING A CENTRAL MASS."
130  PRINT 
140  PRINT "USE V AS THE SYMBOL FOR THE ORBITAL SPEED, AND"
150  PRINT "R AS THE SYMBOL FOR THE RADIUS OF THE ORBIT."
160  PRINT 
170  PRINT "THE UNIVERSAL GRAVITATIONAL CONSTANT = G = 6.67*10^-11 (M^3/KG*SEC^2)"
180  PRINT "AND THE MASS (KG) OF THE CENTRAL MASS ARE PART OF THE"
190  PRINT "PROPORTIONALITY CONSTANT IN THE RELATIONSHIP."
200  PRINT 
210  PRINT "WITH THE RELATIONSHIP YOU CAN CALCULATE THE MASS OF THE "
220  PRINT "CENTRAL MASS."
230  D$="V R"
240  MAT A=ZER
250  MAT Z=ZER
260  Z[3]=I[1]=I=1
270  Z[4]=V6=I+I
280  J8=C1=Z7=R7=C9=I-I
290  G=6.67E-11
300  M=10000*RND(0)*5.98E+24
310  IF  NOT M THEN 300
320  Y=20*RND(0)
330  IF Y<8 THEN 320
340  D2=I-I
350  FOR J=I TO 6
360  D=(INT(10000*RND(0))/1000)*10^Y
370  IF D<1.E+06 THEN 360
380  IF J>I THEN 410
390  D1=D
400  GOTO 450
410  IF D1/10<D AND D<D1 THEN 450
420  D2=D2+I
430  IF D2<100000. THEN 360
440  GOTO 340
450  C=INT(1000*SQR(G*M/D))/1000
460  A[I,J*(V6+I)]=D/10^3
470  A[I,J*(V6+I)-I]=C
480  NEXT J
490  MAT  PRINT #I;A
500  READ #I,I
510  GOTO 70
520  END 
