DataMuseum.dk

top - metrics - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »PREPTST.BAK«

└─⟦89ce9b901⟧ Bits:30009789/_.ft.Ibm2.50007362.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »PREPTST.BAK« 

TextFile

PROGRAM Preptst; (* date options comment *)


   TYPE
      LineType = string(.128.);

   VAR
      Fl: text;
      I,
      Current: 1..128;
      CommandLine,
      Date,
      Options: LineType;

   PROCEDURE GetNextSubString(    Src: LineType
                             ;VAR Dst: LineType
                             );

      VAR
         M,N: 1..128;

     BEGIN (*GETNEXTSUBSTRING*)
      M := Length(CommandLine);
      WHILE (Current < M) and (CommandLine(.Current.) = ' ') DO
         Current := Current + 1;
      N := Current;
      WHILE (N < M) and (CommandLine(.N.) <> ' ') DO
         N := N + 1;
      Dst := copy(Src, Current, N-Current);
      Current := N;
     END;  (*GETNEXTSUBSTRING*)

  BEGIN (*PREPTST*)
   getcomm(CommandLine);
   Current := 1;
   CommandLine := concat(CommandLine, ' ');
   getnextsubstring(CommandLine, Date);
   getnextsubstring(CommandLine, Options);
   delete(CommandLine, 1, Current);
   FOR I := 1 TO length(Options) DO
      IF Options(.I.) = ',' THEN
         Options(.I.) := ' ';
   assign(Fl, 'IN.TST');
   rewrite(Fl);
   writeln(Fl, 'OUT.TST');
   writeln(Fl, Options);
   writeln(Fl, Date, CommandLine);
  END.  (*PREPTST*)
«eof»