Long time BASIC programmer now using thinBasic

[Michael Clease]

Hello Bradley

Here is a simple example using

TBGL_Periodic function
Entity system
Display List
Texture

once the screen is built its just a case of changing the texture of the entity, the textures are a free set of IEC symbols which need some tweaking but good for an example.

[zlatkoAB]

It looks that this zip file is broken i cannot open this in 7zip
archiver?

[Petr Schreiber]

Hi Zlatko,

it seems there is problem with every ZIP attachement lately, I think it might be because of the recent forum database problem.
ZIP files hosted on the thinBasic server, but not bound to forum system, can be downloaded without single problem.

Before this gets fixed, I would like to offer "attachement on demand" service - email me the ZIP you need to attach here, I will upload it to my website, sending you link back.
I cannot guarantee I will react immediately, but will try. The email address is petrschreiber@thinBasic.com.

Another option is using free file hosting servers and again placing link here.


Petr

[Michael Clease]

Just a quick test its a 7z with a .rar extension so just rename - the .rar

[zlatkoAB]

Again is broken ,try use some free file hosting or if you maby have
website put them there...

[Michael Clease]

This should fix the download problem it seems to be adding an extra character at the start of the file.

[code=thinbasic]
Uses "FILE","UI"

Dim FileName As String
Dim Buffer As String
Dim FileHandle As DWord
Dim Status As DWord
Dim sFilter As String = "All Files (*.*)|*.*"

FileName = Dialog_OpenFile(0, "Open a file", DIR_GetCurrent, sFilter, "tBasic", _
%OFN_FILEMUSTEXIST Or %OFN_HIDEREADONLY Or %OFN_ENABLESIZING)

FileHandle = FILE_Open(FileName, "BINARY") ' Open file for reading
Status = FILE_Seek(FileHandle, 2) ' Set the current read position to 2nd byte in the file
Buffer += FILE_Get (FileHandle, FILE_LOF(FileHandle)-1) ' Length of file -1
Status = FILE_Close(FileHandle) ' Release File
Buffer += Chr$(0) ' add last byte

Status = FILE_Save(FileName, Buffer)

MsgBox 0, Filename+" Should be fixed now "

[/code]