' This program generates a remote controlled slide show in HTM format ' ' titel$ = "Mini reunie HBS Warffum, 23 augustus 2009" ' Titel slide show fotnr = 9 ' amount of slides basnam$ = "mreuni09_" ' basic name of foto's (supposed to be JPG) filnam$ = "mreuni.htm" ' name of htm file (8 character max.) ' ' extens$ = ".jpg" ' extension handtek$ = "by hgba" OPEN filnam$ FOR OUTPUT AS 1 PRINT #1, "" PRINT #1, " " PRINT #1, "" PRINT #1, "" PRINT #1, " Dia-Show" PRINT #1, " " PRINT #1, " " PRINT #1, " " PRINT #1, " " PRINT #1, "
" PRINT #1, "

" + titel$ + "

" PRINT #1, "
" PRINT #1, " " PRINT #1, "
" PRINT #1, " Foto nr. /"; fotnr; "" PRINT #1, "
" ' " width=" + CHR$(34) + "900" + CHR$(34) + PRINT #1, "
BACK" PRINT #1, " NEXT" PRINT #1, "
" + handtek$ + "
" PRINT #1, "
" PRINT #1, "" PRINT #1, "
" PRINT #1, "" PRINT #1, "" CLOSE 1