PRINT
PRINT "＜２数積スライダー＞"
PRINT "      x と y の ダイアル を左クリックしてスライドさせると、"
PRINT "     z ダイヤルに x×y の値の概数を示します。"
PRINT "     微量調節は矢印キーでできます。"
PRINT "     右クリックで決定すると、正確な積の値を表示して終了します。"
PRINT
DO UNTIL getkeystate(2)<0 
   LOCATE VALUE NOWAIT (1) ,RANGE 0 TO 200 : x
   LOCATE VALUE NOWAIT (2) ,RANGE 0 TO 200 : y
   LOCATE VALUE NOWAIT (3) ,RANGE 0 TO 40000 , AT x*y : z
LOOP
PRINT "最終式："
PRINT USING "    ###.#":x;
PRINT " × ";
PRINT USING "###.#":y;
PRINT " ＝";
PRINT USING "#####.##":x*y
PRINT
PRINT
END