/****************************************************/
/* SlideShow.rexx $VER: 1.0 (25.03.96)  for PicView */
/* (C) 1996 Holger Papajewski    papa@ami.boerde.de */
/****************************************************/

OPTIONS RESULTS
ADDRESS "PICVIEW.1"

GETNEXTSELECT START
num = result
DO WHILE num ~= -1

  SHOWPIC num TIMEOUT 15
  IF result == 0 THEN DO
    GETNEXTSELECT
    num = result
  END
  ELSE num = -1

END