home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR33 / A-R / PLF10.LBR / PLF-RAMD.CMD < prev    next >
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  13 lines
  1. PLF $zif ex $d1$u1:$:1.lbr;llf $d1$u1:$:1; p2 $d1$u1:$:1;else;if nu $:1;or eq $:1 //;t a0:m plf;else;echo ^M^Jt%>here is no ^[)%<$:1.lbr%>^[( on %<^[)$d1$u1:^[(.^M^J;zif
  2. P2 $zzif;reg s0 6; p3 $1 $'FILE(S) TO TYPE/EXTRACT/PRINT: ';zif
  3. P3 $zzif;if eq $2 /r;reg s0 4;else;if ge $2 /t;lt $1 $:3.$.3;reg s0 5;zif;rs p$$r0 $1 $2 $d3$u3:$:3.$.3 $d4$u4:$:4.$.4 $d5$u5:$:5.$.5;zif
  4. P4 $zzif;if ~co x.$.3;lex $1 $d3$u3:$:3.$.3;rena $d3$u3:$:3.$.3 $d3$u3:$:4.$.4;else;echo ^M^Jc%>ompressed files cannot be renamed.;sak /p3;fi;llf $1; p2 $1;zif
  5. P5 $zzif;if ~nu $:4;lt $1 $:4.$.4;if ~nu $:5;lt $1 $:5.$.5;zif;llf $1; p2 $1;zif
  6. P6 $zzif;;echo;lex $1 $3 u;if ~nu $:4;go $1 $4 u;if ~nu $:5;go $1 $5 u;zif; P7 $1 $2 $:3.$.3 $:4.$.4 $:5.$.5;zif
  7. P7 $zzif;if eq $:2 /e;llf $1; p2 $1;else; p8 $1 $-2;zif
  8. P8 $zzif;if ~co x.$.2;print $2;if ~nu $:3; $0 $1 $-2;fi;llf $1; p2 $1;else; p9 $*;zif
  9. P9 $zzif;echo ^M^J* p%>lease wait *;reg s1 0;if eq $.2 m?c;s p mac;reg p1;else;if eq $.2 d?c;s p doc;reg p1;zif; p10 $*;zif
  10. P10 $zzif;if eq $.2 zzz;s p  ;reg p1;else;if eq $.2 u?d;s p upd;reg p1;else;if eq $.2 z?0;s p z80;reg p1;else;if eq $.2 i?f;s p inf;reg p1;zif; p11 $*;zif
  11. P11 $zzif;if eq $.2 n?t;s p not;reg p1;else;if eq $.2 l?b;s p lib;reg p1;else;if eq $.2 h?s;s p his;reg p1;else;if eq $.2 m?g;s p msg;reg p1;zif; p12 $*;zif
  12. P12 $zzif;if reg 1=0;s p * i;fi;rs print $:2.%p$$|era $:2.%p;if ~nu $:3; P8 $1 $-2;else;llf $1; p2 $1;zif
  13.