10  REM     GREATEST COMMON DENOMINATOR BY WILLIAM K. CHAR, 11/20/73
20  REM
30  DIM X$[72],X[100]
40  IF  ERROR  THEN 340
41  IF TIM(1)>11 THEN 44
42  PRINT "GOOD MORNING, ";
43  GOTO 50
44  IF TIM(1)>3 THEN 47
45  PRINT "GOOD AFTERNOON, ";
46  GOTO 50
47  PRINT "GOOD EVENING, ";
50  PRINT "THIS PROGRAM FINDS THE GREATEST COMMON"
60  PRINT "DENOMINATOR FOR TWO OR MORE NUMBERS."
70  PRINT 
80  PRINT "HOW MANY NUMBERS DO YOU WANT TO INVESTIGATE";
90  INPUT N
100  IF N<1 OR N>100 THEN 80
110  PRINT 
120  PRINT "TYPE THE NUMBER(S), EACH ONE SEPARATED BY A COMMA:"
130  MAT X=ZER[N]
140  MAT  INPUT X
141  Y=X[1]
142  FOR I=2 TO N
144  IF X[I]<Y THEN 146
145  Y=X[I]
146  NEXT I
150  G=0
160  FOR M=2 TO Y
170  FOR I=1 TO N
180  IF X[I]/M#INT(X[I]/M) THEN 210
190  NEXT I
200  G=M
210  NEXT M
220  PRINT "THE NUMBERS  ";
230  FOR I=1 TO N
240  PRINT X[I];
250  NEXT I
260  IF G>0 THEN 290
270  PRINT "ARE RELATIVELY PRIME."
280  GOTO 300
290  PRINT "HAVE A GCD OF"G
300  PRINT 
310  PRINT "ANOTHER SET (YES OR NO)";
320  INPUT X$
330  IF X$[1,1]="Y" THEN 70
340  CHAIN R,"*HELP"
350  SYSTEM X,"BYE"
360  END 
