home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / figlet21.zip / showall.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-06  |  526b  |  23 lines
  1. /* Ben Kleinman March 6,1996 */
  2. /* Attempt to port showall.bat to REXX */
  3.  
  4. call rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'
  5. call sysloadfuncs
  6.  
  7. echo off
  8. call syscls
  9. fonts.0=0
  10. call SysFileTree '.\*.flf', 'fonts', 'FO'
  11. if fonts.0=0
  12.     then
  13.     DO
  14.         SAY "You have no .flf fonts in this directory"
  15.         return
  16.     END
  17.     else
  18.         do i=1 to fonts.0
  19.             namelength=LENGTH(fonts.i)
  20.             point =LASTPOS('.', fonts.i)
  21.             SHOWONE.CMD (LEFT(fonts.i, point-1 ))
  22.         end
  23. return