10  COM I,Z1,B[10],C$[10],I2,A[37,61]
20  REM PROGRAM NAME = ACF-3, OF CIRMO, CHECKING PROBLEMS
30  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
40  REM 9 AUGUST 1973
50  GOTO 80
60  CHAIN "$ACF-4"
70  CHAIN "$ACF-2"
80  MAT A=ZER
90  E=I-I
100  FOR Z=I TO Z1
110  IF B[Z]=0 THEN 320
120  B=B[Z]
130  A=B/SQR(I-E^2)
140  L=I-I
150  FOR N=I TO 12
160  X=5/3*A*COS(L)
170  IF X<0 THEN 200
180  X=INT(X+.5)
190  GOTO 210
200  X=INT(X-.5)
210  Y=B*SIN(L)
220  IF Y<I-I THEN 250
230  Y=INT(Y+.5)
240  GOTO 260
250  Y=INT(Y-.5)
260  IF 29<ABS(X) THEN 340
270  X2=X+31
280  Y2=19-Y
290  A[Y2,X2]=Z
300  L=L+30
310  NEXT N
320  NEXT Z
330  GOTO 60
340  IF Z1=I THEN 70
350  PRINT "THERE IS AN ERROR.  TRY ANOTHER PROBLEM."
360  GOTO 70
370  END 
