Past (20 years or so) and present code. A variety of languages and platforms. Some gems. More gravel. Some useful stuff and some examples of how not to do it.
public sub Clear redim vat(0) itemCount = 0 end sub
Function DQuote( aText ) DQuote = Chr( 34 ) & aText & Chr( 34 ) End Function