DIM side$(0 TO 1)
DATA "右", "左"
MAT READ side$
PRINT 
INPUT PROMPT "何グラム（１００以下の自然数）を量りますか? 　":x
PRINT 
LET k=1
DO WHILE x>0
   LET r=x-INT(x/3)*3     ! 余り
   LET x=INT(x/3)         ! 商
   IF r<>0 THEN
      PRINT k; "グラムの重りを"; side$(r-1); "の皿に乗せます。"
      IF r=2 THEN LET x=x+1
   END IF
   LET k=k*3
LOOP
PRINT 
PRINT "これで準備が整いました。"
PRINT "では、砂糖を左の皿に乗せて、釣り合わせてください。"
PRINT 
END