#!/usr/local/bin/rexx
TRACE OFF
PARSE ARG slika

'/bin/ls slike/'slika' >FIFO'
IF QUEUED()>0 & slika<>"" THEN 
   SAY '<TABLE BORDER=1><TR><TD><IMG SRC="slike/'slika'" VALIGN=TOP></TD></TR></TABLE>'
ELSE DO
   SAY "<CENTER><FONT SIZE=1>Picture not yet available</FONT></CENTER>"
/*
   SAY '<IMG SRC="slike/none.jpg" WIDTH=150 HEIGHT=105 VALIGN=TOP ALIGN=TOP>'
*/
   END 
