5  ! THIS PROGRAM WAS WRITTEN BY DON PENLAND
6  ! SURPRISE VALLEY HIGH SCHOOL, CEDARVILLE  CA  96104
10 DIM A(20)
20 ?:?
30 ? "THIS PROGRAM WILL FIND THE LEAST COMMON MULTIPLE"
40 ? "OF UP TO TWENTY NUMBERS."
50 ?:?
60 INPUT "HOW MANY NUMBERS WILL YOU BE USING? ";M
70 IF M>20 THEN PRINT "ONLY UP TO 20 NUMBERS,": GOTO 60
80 FOR I=1 TO M
90 ? "NUMBER";I;
100 INPUT A(I)
110 NEXT I
120 L=999999
130 FOR I=1 TO M
140 IF L<A(I) THEN 160
150 L=A(I) 
155 NEXT I
160 S=1
170 FOR I=1 TO M
180 S=S*A(I)
190 NEXT I
200 S1=S/L
210 FOR K=1 TO S1
220 T=L*K
230 FOR I=1 TO M
240 IF T/A(I)<>INT(T/A(I)) GOTO 310
245 NEXT I
250 ?:?
260 ? "THE LEAST COMMON MULTIPLE OF";
270 FOR I=1 TO M
280 PRINT A(I);
290 NEXT I
300 PRINT " IS ";T
305 GOTO 380
310 NEXT K
320 ?:?
330 ? "THE LEAST COMMON MULTIPLE OF";
340 FOR I=1 TO M
350 ? A(I);
360 NEXT I
370 ? " IS ";S
380 ?:?
390 ? "DO YOU WANT TO FIND ANOTHER LCM ";
400 INPUT A$
410 IF A$="YES" OR A$="Y" THEN 60
420 ? "BYE FOR NOW.  IT'S BEEN FUN WORKING FOR YOU."
999 CHAIN "MATH2"
1000 END