1000 REMark TUTOR3_BAS
1010 REMark :
1040 REMark HITting or DOing any loose item results in it
1050 REMark being reset to AVAILABLE afterwards.
1060 :
1070 OPEN #3,'con_'
1080 mdraw #3,'flp1_calc_men',0,0
1090 REPeat pointer_loop
1100   action = mcall(#3 ; \0)
1110   SELect ON action
1120     = 0         : EXIT pointer_loop: REMark ESC
1130     = -10 TO -1 : REMark DIGIT key
1140     = -11       : REMark DECIMAL POINT
1150     = -15 TO -12: REMark Function
1160     = -16       : REMark EQUALS
1170   END SELect 
1180   SELect ON action
1190     = -16 TO -1: action = MSTAT%(#3, action TO 0)
1200   END SELect 
1210 END REPeat pointer_loop
1220 mclear #3
1230 clamp
1240 CLOSE #3
1250 STOP
