home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / fish / 881-890 / ff885 / false / other / remcom.f < prev    next >
Text File  |  1993-07-16  |  523b  |  30 lines
  1. {remcom.f}
  2. {removes comments like this...}
  3. 0a:0c:0d:0e:
  4. [^$$'"=[e;1+e:]?b:1_=~]
  5. [{print <CRT> every 50th char}
  6.  b;10=~[d;49>c;~&e;1&1=~&["
  7. "0d:]?]?
  8.  a;$~
  9.   [b;123=$~
  10.    [{print char}
  11.     {num?}
  12.     b;'01->'91+b;>&b;''=|b;'"=|$
  13.     [{ja}b;,d;1+d:1_c:
  14.     ]?
  15.     ~[{no, is it space | CRT | TAB and last char was no num?}
  16.         b;' =b;'        =|b;10=|b;''=|b;'"=|c;~&$
  17.         [{no-> print}0c:]?
  18.         ~[b;,d;1+d:0c:]?{no spaces or similar}
  19.      ]?
  20.     {print char end}]?
  21.    [1_a:]?
  22.   ]?
  23.   [b;125=
  24.    [0a:]?
  25.   ]?
  26. ]#"
  27. "
  28.  
  29.  
  30.