Dynamic Icon Collection

 */
/* May not be newest version - I deled it by mistake and rested from OLD */
/* This prg generates an HTML with icon list */
'DIR /B I*.GIF (STACK'
FI=DUMMY('ikony.HTM')
LF=D2C(10)
/**CALL WRITE FI,"Take off galoshes  before entering the temple" LF */
CALL WRITE FI,"Dynamic Icon Collection" LF
CALL WRITE FI,'' LF
CALL WRITE FI,' '
   Loafer=STRIP(F)
   LOWER LOAFER
   CALL WRITE FI,'' LF
COL=4
K=0
DO QUEUED()
   PULL F
   PARSE VAR F N '.' T
   IF N='ILYA' THEN ITERATE
   IF K=0 THEN CALL WRITE FI,'
 ' F'
' LF
   K=K+1
   IF K>=COL THEN K=0
END
CALL WRITE FI,'' lf
CALL WRITE FI,'Dynamic Icon Collection - page generated' DATE() TIME() 'by IKONY.' lf
CALL WRITE FI,'' lf
CALL WRITE FI,'REXX lives!' LF
CALL WRITE FI,'' LF
CALL WRITE FI,' ' LF
CALL WRITE FI,' ' LF
CALL WRITE FI,'' LF
CALL WRITE FI,'' LF
CALL WRITE FI,'' LF
CALL CLOSE FI
EXIT

DUMMY: PROCEDURE
LF=D2C(10)
PARSE ARG V
'DEL /Q' V
F=OPEN(V,'w')
CALL WRITE F,'' LF
CALL WRITE F,'' LF
CALL WRITE F,'' LF
CALL WRITE F,'' LF
RETURN F
/*

' LF COL=4 K=0 DO QUEUED() PULL F PARSE VAR F N '.' T IF N='ILYA' THEN ITERATE IF K=0 THEN CALL WRITE FI,'
' F' ' LF K=K+1 IF K>=COL THEN K=0 END CALL WRITE FI,'

*/ WWITE: PROCEDURE PARSE ARG F,S S=TRANSLATE(S,'<','{') CALL WRITE F,S RETURN