* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PROCEDURE write_photos overwrite_it = "N" IF FILE("photos.html") WAIT WINDOW "photos.html already exists. Is it ok to overwrite it? " TO overwrite_it ELSE overwrite_it = "Y" ENDIF IF UPPER(overwrite_it) = "Y" SET TEXTMERGE TO photos.html SET TEXTMERGE ON TEXT
 
ENDTEXT ENDIF RETURN * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * PROCEDURE write_photo7 Roof Antenna Roof Antenna, Brooklyn, 1997 RETURN PROCEDURE write_photo2 Billboards Billboards, Brooklyn, 1997 RETURN PROCEDURE index_write_old * actually outputs HTML to files in the current default directories overwrite_it = "N" IF FILE("index.html") WAIT WINDOW "Index.html already exists. Is it ok to overwrite it? " TO overwrite_it ELSE overwrite_it = "Y" ENDIF IF UPPER(overwrite_it) = "Y" * add a way to enter the title here SET TEXTMERGE TO index.html SET TEXTMERGE ON TEXT One of Kevin Atkins' digital photo pages Your browser doesn't use frames, so you'll be seeing my pictures in an older, less easily navigated format, if you click <A HREF="index_frameless.html">here</A>. ENDTEXT ENDIF RETURN * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *