OPEN "NavTest.HTM" FOR OUTPUT AS #2
'
' Nav Bar Generation
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++++
maxuid% = 1750
uid$ = "1750"
Currentuid% = VAL(uid$)

IF Currentuid% = maxuid% THEN
        NextImg% = Currentuid%
ELSE
        NextImg% = Currentuid% + 1
END IF

IF Currentuid% = 1 THEN
        PreviousImg% = Currentuid%
ELSE
        PreviousImg% = Currentuid% - 1
END IF

IF Currentuid% + 10 < maxuid% THEN
        NextTen% = Currentuid% + 10
ELSE
        NextTen% = maxuid%
END IF

IF Currentuid% - 10 > 1 THEN
        PreviousTen% = Currentuid% - 10
ELSE
        PreviousTen% = 1
END IF

PRINT #2, "<CENTER><FONT SIZE =" + CHR$(34) + "-1" + CHR$(34) + ">"
'PRINT #2, "<TABLE Border><TR BGCOLOR =" + CHR$(34) + "#E8E4AE" + CHR$(34) + ' " 'cellspacing = 1>"

PRINT #2, "<TABLE Border><TR cellspacing = 1>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "Help.HTM" + CHR$(34) + "onMouseOver=" + CHR$(34) + "window.status = '  Help on how to use eAtlas '; return true" + CHR$(34) + " >[ ? ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "Contents.HTM" + CHR$(34) + "onMouseOver=" + CHR$(34) + "window.status = '  Go to Table of Contents'; return true" + CHR$(34) + " >[ Content ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + STR$(PreviousTen%) + ".HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '   Jump Back 10 Images'; return true" + CHR$(34) + " >[ << ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + STR$(PreviousImg%) + ".HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '  Go Back to Previous Image'; return true" + CHR$(34) + " >[ < ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "Home.HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '  Go to Home Page of eAtlas of Pathology '; return true" + CHR$(34) + " >[ ^^ ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + STR$(NextImg%); ".HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '  Go to Next Image'; return true" + CHR$(34) + " >[ > ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + STR$(NextTen%); ".HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '   Jump Ahead 10 Images'; return true" + CHR$(34) + " >[ >> ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "Index.HTM" + CHR$(34); "onMouseOver=" + CHR$(34) + "window.status = '  Go to Index of All Specimens'; return true" + CHR$(34) + " >[ Index ]</A></TH>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "JavaScript:alert('All material Copyright &#169 1997.   Reproduction, NetWork use or use other than your personal individual viewing without explicit written permission Coyright owners isstrictly prohibited.  Please re-read your License Agreement for specific details of limits to your use of this CD-ROM that you initially agreed to')" + CHR$(34) + ">[ <B>&#169;1997</B> ]</A>"

PRINT #2, "<TH><A HREF=" + CHR$(34) + "mailto: pathweb@www2.uchc.edu" + CHR$(34) + "onMouseOver=" + CHR$(34) + "window.status = '  e-Mail Improvements & Suggestions and get $10 & Free Notification of First Edition .'; return true" + CHR$(34) + ">[ Feed Back ]</A>"


PRINT #2, "</TABLE></CENTER></FONT>"
'
'
'  Nav Bar Above is Finished

CLOSE #2
END