home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d885 / false.lha / False / other / split.f < prev    next >
Encoding:
Text File  |  1993-07-16  |  631 b   |  29 lines
  1. {split.f}
  2.  ^a:[a;32=][^a:]#       { read operand for split: front/back }
  3.  
  4.  a;'f=a;'b=|^32=&$      { a has to be 'f' of 'b' followed by a space }
  5.  [
  6.   { read number in b }
  7.    0b:^
  8.      [c:'0 c;>~'91+c;>&]
  9.      [b;10*b:c;'0-b;+b:^]
  10.      #
  11.   { number read in b }
  12.   0c:
  13.   a;'f=
  14.   [ [^$d:1_=~c;b;=~&][c;1+c:d;,]#
  15.   ]?
  16.   a;'b=
  17.   [ [^$d:1_=~c;b;=~][c;1+c:]#
  18.     [^$d:1_=~][d;,]#
  19.   ]?
  20.  ]?
  21.  ~[     {not right syntax }
  22.    "split: Wrong arguments.
  23.     SYNTAX:   Split f|b number <filename_in >filename_out
  24.               f|b stands for what to put in filename_out: Front or Back
  25.               number stands for where to split the file.
  26. " ]?
  27.  
  28.  
  29.