1000 REMark TUTOR1_BAS
1010 :
1020 OPEN #3,'con_'
1030 mdraw #3,'flp1_calc_men',0,0
1040 action = mcall(#3 ; \0)
1050 mclear #3
1060 clamp
1070 CLOSE #3
1080 STOP
