They're both versions of Basic so the translation was fairly easy, and it gave me a chance to take a quick look at PureBasic.
I've got to say, I like PureBasic a lot.
http://members.cox.net/smartin1803/PureBasic/TT.zip

edit: I discovered that GetCurrentDirectory() doesn't mean that you get the application's start path, so I added some gak to check for the directory that contains the graphics.
Also, I found a better way to do the the Alpha Blending shading for the Draw Glass option that doesn't slow the program way down.
The zip file at the end of the link has been updated.
Steve Martin