P0 10 PRINT "LCM,GCM" 11 P=200:$=LCM" 12 INPUT "KEY IN L OR G ",L$ 13 IF L$="L" THEN 20 14 IF L$<>"G" THEN 12 15 P=202:$="GCM" 20 INPUT "A=",A:INPUT "B=",B: IF A*B=0 THEN 20 30 C=A:D=B:IF C>=D THEN 50 40 E=D:D=C:C=E 50 E=C 60 IF C<>D THEN 80 70 PRINT $;"=";E:GOTO 20 80 GOSUB P 90 F=2:GOSUB 120:F=3 100 GOSUB 120: IF F>INT (SQR(D*F)/2)*2+1 THEN 70 110 F=F+2:GOTO 100 120 X=C:GOSUB 150:IF R<>0:RETURN 140 GOSUB P+1:C=C/F:D=D/F:GOTO 120 150 R=X-INT (X/F)*F: RETURN 200 E=C*D:RETURN 201 E=E/F:RETURN 202 E=1:RETURN 203 E=E*F:RETURN