(FILECREATED "15-Sep-85 14:10:49" {PHYLUM}<TAMARIN>LISP>MODSIMFILE.;1
 3442Q  

      changes to:  (VARS MODSIMFILECOMS)
		   (FNS ModSimFile))


(PRETTYCOMPRINT MODSIMFILECOMS)

(RPAQQ MODSIMFILECOMS
 ((FNS ModSimFile)))
(DEFINEQ

(ModSimFile

  [LAMBDA (inFile outFile)                                   (* agb "14-Sep-85 13:18")

    (
PROG
 (inF outF chr chrs)
          (
SETQ
 inF (
GETSTREAM
 (
OPENFILE
 inFile (
QUOTE
 INPUT))
			       (
QUOTE
 INPUT)))
          (
SETQ
 outF (
GETSTREAM
 (
OPENFILE
 outFile (
QUOTE
 OUTPUT))
				(
QUOTE
 OUTPUT)))
          (
SETQ
 names NIL)
      L1  (if
 (
EOFP
 inF)
	      then
 (
RETURN
))
          (
SETQ
 chr (
BIN
 inF))
          (if
 (
NEQ
 chr 116Q)
	      then
 (
BOUT
 outF chr)
		   (eachtime
 (
SETQ
 chr (
BIN
 inF)) repeatuntil
 (
EQ
 15Q chr) do
 (
BOUT
 outF chr))
		   (
GO
 L1))
          (
BOUT
 outF chr)
          (
BOUT
 outF (
BIN
 inF))
          (
SETQ
 chrs (until
 (
EQ
 40Q (
PROGN
 (
BOUT
 outF (
SETQ
 chr (
BIN
 inF)))
					   chr))
			collect
 chr))
          (if
 (
AND
 (
NEQ
 116Q (
CAR
 chrs))
		   (
OR
 (
NOT
 (
CADR
 chrs))
		       (
IGEQ
 (
CADR
 chrs)
			     72Q)
		       (
ILESSP
 (
CADR
 chrs)
			       60Q)))
	      then
 (
SETQ
 names (
CONS
 (
PACKC
 chrs)
				     names)))
          (
BOUT
 outF 60Q)
          (
BOUT
 outF 40Q)
          (
BOUT
 outF 60Q)
          (
BOUT
 outF 40Q)
          (for
 i from
 0 to
 3 do
 (eachtime
 (
SETQ
 chr (
BIN
 inF)) repeatuntil
 (
EQ
 40Q chr)
				   do
 (
BOUT
 outF chr)))
          (until
 (
EQ
 15Q (
BIN
 inF)) do
)
          (
BOUT
 outF 15Q)
          (
GO
 L1])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (346Q 3414Q (ModSimFile 360Q . 3412Q)))))
STOP