Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / vax / nvs / f.mud

diff --git a/mim/development/mim/vax/nvs/f.mud b/mim/development/mim/vax/nvs/f.mud
new file mode 100644 (file)
index 0000000..456b957
--- /dev/null
+++ b/mim/development/mim/vax/nvs/f.mud
@@ -0,0 +1,9 @@
+<USE "VS100">
+<INCLUDE "VSUDEFS" "VSUTYPES">
+
+<DEFINE F ("OPT" (CHN .CH) "AUX" EV)
+   <REPEAT ()
+      <COND (<AND <TYPE? <SET EV <CHANNEL-OP .CHN READ-BYTE-IMMEDIATE>>
+                        MOUSE-EVENT>
+                 <==? <ME-KIND .EV> ,ME-LEFT-PRESSED>>
+            <RETURN <CHANNEL-OP .CHN MOUSE-RESIZE-WINDOW ,MOUSE-LEFT>>)>>>