10  COM I,Z1,B[10],C$[10],I2,A[37,61],A$[10]
20  REM PROGRAM NAME = ACF-4, OF CIRMO, PLOTS ORBITS
30  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
40  REM 9 AUGUST 1973
50  GOTO 100
60  CHAIN "$ACF-5"
70  CHAIN "$EARORB"
80  CHAIN "$ACF-6"
90  CHAIN "$EARCK"
100  GOTO I2+I OF 140,110
110  IF Z1=3 THEN 80
120  A$="1"
130  GOTO 90
140  DIM V[72]
150  FOR Z=I TO 37
160  N=I-I
170  FOR W=I TO 61
180  IF A[Z,W]#0 THEN 220
190  NEXT W
200  IF  NOT N THEN 370
210  GOTO 250
220  N=N+I
230  V[N]=W
240  GOTO 190
250  FOR P=I TO N
260  W=V[P]
270  IF A[Z,W]=I THEN 300
280  IF A[Z,W]=2 THEN 320
290  GOTO 340
300  E$="*"
310  GOTO 350
320  E$="."
330  GOTO 350
340  E$="@"
350  PRINT TAB(V[P]-I);E$;
360  NEXT P
370  PRINT 
380  NEXT Z
390  GOTO Z1 OF 60,400,80
400  A$="2"
410  GOTO 70
420  END 
