thinBasic

' Specifies program will use functions from console module
USES "Console"
 
' Creates global variable to hold user name
GLOBAL UserName AS STRING
 
' Asks user for the name
Console_Print("What is your name?: ")
 
' Stores it to variable
UserName = Console_ReadLine
 
' If length of username is 0 then no name is specified, else program will say hello
IF Len(UserName) = 0 THEN
  Console_PrintLine("No user name specified...") 
ELSE
  Console_PrintLine("Hello " + UserName + "!")  
END IF
 
' Waits for any key from user before program ends
Console_WaitKey

' Use File module for handling files
USES "FILE"
 
' Assign file name to variable, notice assignment can be done at time of declaring variable
GLOBAL MyFile AS STRING = "c:\File.txt"
GLOBAL ReturnValue AS LONG
 
' Determine file extension, convert to upper case
' and according to the type call appropriate function
SELECT CASE UCASE$(FILE_PATHSPLIT(MyFile, %Path_Ext))
  CASE "TXT"
    ReturnValue = Load_Txt(MyFile)
 
  CASE "BMP"
    ReturnValue = Load_BMP(MyFile)
 
END SELECT
 
FUNCTION Load_TXT( fName as string ) AS LONG
 
  ' Code to load TXT file here
 
END FUNCTION
 
FUNCTION Load_BMP( fName as string ) AS LONG
 
  ' Code to load BMP file here
 
END FUNCTION

' Use File module for handling files
USES "FILE"
 
' Assign file name to variable, notice assignment can be done at time of declaring variable
GLOBAL MyFile AS STRING = "c:\File.txt"
GLOBAL ReturnValue AS LONG
 
' Functions are named Load_<fileExtension>, so we can determine
' the function name we need at run time and save some lines of code
CALL "Load_"+FILE_PATHSPLIT(MyFile, %Path_Ext) ( MyFile ) To ReturnValue
 
FUNCTION Load_TXT( fName as string ) AS LONG
 
  ' Code to load TXT file here
 
END FUNCTION
 
FUNCTION Load_BMP( fName as string ) AS LONG
 
  ' Code to load BMP file here
 
END FUNCTION