1000 REMark TUTOR2_BAS
1010 REMark :
1020 REMark A loop to read the pointer has been added.
1030 REMark Hitting ESC will cause an exit from the loop
1040 :
1050 OPEN #3,'con_'
1060 mdraw #3,'flp1_calc_men',0,0
1070 REPeat pointer_loop
1080   action = mcall(#3 ; \0)
1090   IF action = 0 THEN EXIT pointer_loop
1100 END REPeat pointer_loop
1110 mclear #3
1120 clamp
1130 CLOSE #3
1140 STOP
