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