Trailing-Edge
-
PDP-10 Archives
-
tops20tools_v6_9-jan-86_dumper
-
tools/com/combine.com
There are 2 other files named combine.com in the archive. Click here to see a list.
$!
$ save_verify := 'F$verify(0)
$ set noon
$ if p1 .eqs. "" then inquire p1 "Combine File Name?"
$ if p2 .nes. "" then goto START
$ p2 := "combine.txt"
$ write sys$output "Output file is combine.txt"
$!
$ START:
$ p1 := 'f$parse(p1,".*;0")' !add extension if necc
$ nexta := 'f$search(p1,1)'
$ if nexta .eqs. "" Then Goto NOTFOUND
$ copy 'nexta' 'p2';0
$ write sys$output nexta
$!
$ LOOP:
$ nexta := 'f$search(p1,1)'
$ if nexta .eqs. "" Then Goto END
$!
$ append com:ff. 'p2'
$ append 'nexta' 'p2'
$ write sys$output nexta
$!
$ if f$locate("*",p1) .ne. f$length(p1) then goto loop
$ if f$locate("?",p1) .ne. f$length(p1) then goto loop
$!
$ END:
$ save_verify := 'F$verify(save_Verify)
$ EXIT
$!
$ NOTFOUND:
$ Write sys$output "No files found."
$ goto END