1 files changed, 40 insertions, 0 deletions
diff --git a/unix/boot/spp/rpp/ratlibf/maksub.f b/unix/boot/spp/rpp/ratlibf/maksub.f
new file mode 100644
index 00000000..176c5321
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/maksub.f
@@ -0,0 +1,40 @@
+      integer function maksub (arg, from, delim, sub)
+      integer arg (128), delim, sub (128)
+      integer from
+      integer esc, type
+      integer i, j, junk
+      integer addset
+      j = 1
+      i = from
+23000 if (.not.(arg (i) .ne. delim .and. arg (i) .ne. -2))goto 23002
+      if (.not.(arg (i) .eq. 38))goto 23003
+      junk = addset (-3, sub, j, 128)
+      junk = addset (0, sub, j, 128)
+      goto 23004
+23003 continue
+      if (.not.(arg (i) .eq. 64 .and. type (arg (i + 1)) .eq. 48))goto 2
+     *3005
+      i = i + 1
+      junk = addset (-3, sub, j, 128)
+      junk = addset (arg (i) - 48, sub, j, 128)
+      goto 23006
+23005 continue
+      junk = addset (esc (arg, i), sub, j, 128)
+23006 continue
+23004 continue
+23001 i = i + 1
+      goto 23000
+23002 continue
+      if (.not.(arg (i) .ne. delim))goto 23007
+      maksub = -3
+      goto 23008
+23007 continue
+      if (.not.(addset (-2, sub, j, 128) .eq. 0))goto 23009
+      maksub = -3
+      goto 23010
+23009 continue
+      maksub = i
+23010 continue
+23008 continue
+      return
+      end