Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 3.X/CPM 3.0/Y2K PATCHES/SEARCH.LIT

@@ -0,0 +1,22 @@
+
+declare                       /* what kind of file user wants to find       */
+    find$structure lit 'structure (
+    dir byte,
+    sys byte,
+    ro  byte,
+    rw  byte,
+    pass byte,
+    xfcb byte,
+    nonxfcb byte,
+    exclude byte)';
+
+declare
+    max$search$files literally '10';
+
+declare
+    search$structure lit 'structure(
+    drv byte,
+    name(8) byte,
+    type(3) byte,
+    anyfile boolean)';        /* match on any drive if true */
+