PRINT
PRINT "１００台の、"
PRINT "７で割ると３あまり、かつ、"
PRINT "９で割ると５あまる 数"
PRINT

FOR i=1 TO 50
   LET x=7*i+3
   IF x>=200 THEN EXIT FOR
   FOR j=1 TO 50
      LET y=9*j+5
      IF y>=200 THEN EXIT FOR
      IF x=y AND x=>100 THEN
         PRINT "  ";x;
      END IF
   NEXT j
NEXT i
PRINT
PRINT
PRINT

PRINT "１００台の、"
PRINT "７で割ると−４あまり、かつ、"
PRINT "９で割ると−４あまる 数"
PRINT
PRINT "   ＭОＤを使って求める：";
FOR i=100 TO 200
   IF MOD(i,7)=7-4 AND MOD(i,9)=9-4 THEN
      PRINT "  ";i;
   END IF
NEXT i
PRINT
PRINT
PRINT "   最小公倍数を使う方法：";
FOR i=1 TO 50
   LET x=LCM(7,9)*i-4
   IF x>=100 AND x<200 THEN
      PRINT "  ";x;
   END IF 
   IF x>=200 THEN EXIT FOR
NEXT i
PRINT
PRINT
END

EXTERNAL FUNCTION LCM(X,Y)      ! 最小公倍数を求める関数
IF X<Y THEN
   LET Z=X
   LET X=Y
   LET Y=Z
END IF
LET T=X*Y
10 IF Y=0 THEN
      LET LCM=T/X
      EXIT FUNCTION 
   END IF
   LET R=X
20 LET R=R-Y
   IF R>=Y THEN GOTO 20
   LET X=Y
   LET Y=R
   GOTO 10
END FUNCTION