PRINT
PRINT "　ある自然数を、奇数になるまで２で割っていき、"
PRINT "その奇数に変換することを、 奇数スリム化 と言うことにします。"
PRINT "1000 〜 1200 の偶数を 奇数スリム化し、それを小さい順に並べます。"
PRINT
DIM Q(201,2)
FOR i =1000 TO 1200 STEP 2
   LET Q((i-998)/2,1)=KISUS(i)
   LET Q((i-998)/2,2)=i
NEXT i
CALL SORT(Q,101)
FOR i =1 TO 101
   PRINT USING "######":Q(i,1);
   PRINT USING "######":Q(i,2)
NEXT i
PRINT
PRINT
END

EXTERNAL FUNCTION KISUS(n)
DO
   LET m=n
   LET n=n/2
   IF INT(n)<>n THEN
      LET KISUS=m
      EXIT DO
   END IF
   IF n=1 THEN
      LET KISUS=1
      EXIT DO
   END IF
LOOP
END FUNCTION

EXTERNAL SUB SORT(K(,),n)
FOR i=1 TO n-1
   FOR j=i+1 TO n
      IF K(i,1)>K(j,1) THEN 
         LET Z1=K(j,1)
         LET K(j,1)=K(i,1)
         LET K(i,1)=Z1
         LET Z2=K(j,2)
         LET K(j,2)=K(i,2)
         LET K(i,2)=Z2
      END IF
   NEXT j
NEXT i
END SUB