with (document){
writeln('<font face="MS Sans Serif">')
writeln('<form name=groceryform>')
writeln('<table align=center>')
writeln('<tr>')
writeln('<td width=56 align=center valign=center>')
writeln('	<input type=button name=up value="   Up  " onclick=moveup()></input><br><br>')
writeln('	<input type=button name=dn value="Down" onclick=movedn()></input>')
writeln('	<br><br><br><br><br><br>')
writeln('<td width=190 valign=top><font face="MS Sans Serif">')
writeln('    <center><font face="Comic Sans MS" color=maroon>General Items</font></center>')
writeln('	<select name=itm size=20 style="width:190" onkeyup=hotkeyitm(event) onchange=getvty()></select>')
writeln('	<center><font size=-2>Press first letter to go to item</font></center><br>')
writeln('    <font color=maroon face="Comic Sans MS"><input type=radio value=1 checked name=order onclick=sortitems()>Alphabetical Order<br>')
writeln('    <input type=radio value=2 name=order onclick=sortitems()>Aisle-by-Aisle Order</font></font>')
writeln('</td><td width=190 valign=top><font face="MS Sans Serif">')
writeln('	<font color=maroon face="Comic Sans MS"><center>Specific Varieties</center></font>')
writeln('	<select name=vty size=20 style="width:190" onkeyup=hotkeyvty(event) onchange=enablebuttons()></select><br>')
writeln('	<center><font size=-2>Space Bar or Enter adds to My List</font></font><br><br>')
writeln('	<input type=text size=19 name=newvty></input><br>')
writeln('	<input type=button value=" Add Your Own " name=addvty onclick=addnewvty()></input></center>')
writeln('</td><td width=90 align=center valign=center>')
writeln('	<input type=button name=add value="     Add >    " onclick=addtolist()></input><br><br>')
writeln('	<input type=button name=remove value="< Remove" onclick=removefromlist()></input>')
writeln('	<br><br><br><br><br><br>')
writeln('</td><td width=190 valign=top><font face="MS Sans Serif">')
writeln('	<font color=maroon face="Comic Sans MS"><center>My List</center></font>')
writeln('	<select name=mylist size=20 style="width:190" onkeyup=hotkeymylist(event) onchange=enablebuttons()></select>')
writeln('	<center><font size=-2>Delete key removes from My List</font></font><br><br>')
writeln('	<input type=button name=print value="    Print    " onclick=printlist()></input></center>')
writeln('</td></tr></table>')
writeln('</form>')
writeln('')
writeln('<font face="MS Sans Serif" size=-1>')
writeln('This grocery list prints in aisle-by-aisle order. You can change the aisle order by selecting Aisle-by-Aisle Order, and then using the Up/Down buttons.')
writeln('This simple program is patterned after a more complicated program that you can <a href=http://www.aislebyaisle.com>download</a> and run on your computer.')
writeln('With the full program you can:<br>')
writeln('<ul><li>Make a different aisle order for each store')
writeln('<li>Compare prices between stores')
writeln('<li>Track coupons and sales')
writeln('<li>Enter recipes')
writeln('<li>Delete, rename, add items')
writeln('<li>Save all your lists to re-use later (recipe lists, long lists, short lists)')
writeln('<li>Email lists to other users so that you can shop for each other')
writeln('<li>Export lists for your Palm OS')
writeln('</ul>')
writeln('</font>')
writeln('')
writeln('<img name=perlscript src=http://www.aislebyaisle.com/perl/log_grocery_ref.pl width=0 height=0>')
writeln('<script type=text/javascript src=http://www.aislebyaisle.com/grocery_items.js></script>')
writeln('<script type=text/javascript src=http://www.aislebyaisle.com/grocery_code.js></script>')
writeln('')
}