10  COM I,Z1,B[10],C$[10],I2
20  REM PROGRAM NAME = ACF-2, OF CIRMO, ASSIGNS PROBLEM
30  REM JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO
40  REM 9 AUGUST 1973
50  GOTO 70
60  CHAIN "$ACF-3"
70  R=I
80  N=4
90  IF Z1#I THEN 110
100  N=10
110  FOR Z=I TO Z1
120  B=INT(100*RND(0))
130  IF N <= B AND B <= 18 THEN 150
140  GOTO 120
150  IF Z=I THEN 200
160  FOR Q=I TO Z-I
170  IF ABS(B-B[Q]) >= 4 THEN 190
180  GOTO 120
190  NEXT Q
200  B[Z]=B
210  IF B<10 THEN 270
220  D=B-10
230  C$[R,R]="9"
240  R=R+I
250  GOSUB 400
260  GOTO 330
270  D=INT(10*RND(0))
280  IF I <= D AND D <= 8 THEN 300
290  GOTO 270
300  GOSUB 400
310  D=B
320  GOSUB 400
330  NEXT Z
340  IF Z1=I THEN 60
350  PRINT "PROBLEM NUMBER = ";
360  FOR R=I TO 6
370  PRINT C$[R,R];
380  NEXT R
390  GOTO 60
400  FOR P=I TO 9
410  IF P#D THEN 600
420  GOTO P OF 430,450,470,490,510,530,550,570,590
430  C$[R,R]="1"
440  GOTO 620
450  C$[R,R]="2"
460  GOTO 620
470  C$[R,R]="3"
480  GOTO 620
490  C$[R,R]="4"
500  GOTO 620
510  C$[R,R]="5"
520  GOTO 620
530  C$[R,R]="6"
540  GOTO 620
550  C$[R,R]="7"
560  GOTO 620
570  C$[R,R]="8"
580  GOTO 620
590  C$[R,R]="9"
600  NEXT P
610  C$[R,R]="0"
620  R=R+I
630  RETURN 
640  END 
