1000 REM  *****  EUCLID  ***** MATHEMATICS PROGRAM  REVISED BY ED BAKER
1010 REM  *****  VERSION 1  *****  7/31/69
1020 REM  LARGEST COMMON FACTOR
1030 PRINT "THIS PROGRAM FINDS THE LARGEST COMMON FACTOR OF TWO
1040 PRINT "INTEGERS":PRINT
1050 INPUT'WHAT ARE YOUR TWO INTEGERS';A,B
1055 IFINT(A)<>AORINT(B)<>B ORA<0ORB<OTHEN1050
1056 IF A=0ORB=0THEN1050
1060 X1=A
1070 IFA>BTHEN1095
1080 X1=B
1090 B=A
1095 X2=B
1100 DEFFNA(X)=X1/X2
1110 X3=X2:X2=INT(X2*(FNA(1)-INT(FNA(1))))
1120 X1=X3
1130 IFX2<>0THEN1110
1140 PRINT "THE LARGEST COMMON FACTOR IS "X1
1150 INPUT'AGAIN';A$:IFA$='YES'THEN1050:END