10  COM I,Z1,B[10],C$[10],I2,A[37,61],A$[10]
20  REM PROGRAM NAME = CIRMO, RELATES SPEED, RADIUS, ACCELERATION
30  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
40  REM 9 AUGUST 1973
50  GOTO 90
60  CHAIN "$ACF-2"
70  CHAIN "$ACF-3"
80  CHAIN "$EARCK"
90  Z1=I=Z=1
100  I2=I-I
110  A=240
120  DIM B$[10]
130  MAT B=ZER
140  PRINT "DO YOU WANT TO CHECK AN ASSIGNED PROBLEM?  ";
150  ENTER A,D,B$
160  PRINT '13
170  IF B$="YES" THEN 260
180  IF B$#"NO" THEN 140
190  PRINT "THIS PROGRAM INVESTIGATES CIRCULAR MOTION - AS A MASS ORBITTING"
200  PRINT "A CENTRAL MASS.  IT INVOLVES THE RELATIONSHIPS AMONG ORBITAL"
210  PRINT "SPEED, RADIUS OF THE ORBIT, AND ACCELERATION OF THE ORBITTING MASS."
220  PRINT 
230  PRINT "----- PLOT OF AN ORBIT: (UNEQUAL TIME BETWEEN POINTS)"
240  PRINT 
250  GOTO 60
260  DIM D$[10]
270  D$="1234567890"
280  Z=I
290  PRINT "INPUT YOUR PROBLEM NUMBER:  ";
300  ENTER A,D,C$
310  PRINT '13
320  FOR P=I TO 5 STEP 2
330  FOR Z3=I TO 10
340  IF C$[P,P]=D$[Z3,Z3] THEN 360
350  NEXT Z3
360  FOR Z2=I TO 10
370  IF C$[P+I,P+I]=D$[Z2,Z2] THEN 390
380  NEXT Z2
390  IF Z2#10 THEN 410
400  Z2=I-I
410  IF Z3=9 THEN 440
420  B[Z]=Z2
430  GOTO 450
440  B[Z]=10+Z2
450  Z=Z+I
460  NEXT P
470  IF I2=2 THEN 520
480  Z1=3
490  B[10]=I
500  I2=I
510  GOTO 70
520  A$="1"
530  GOTO 80
540  END 
