<![CDATA[PowerBASIC Users Meeting Point - PowerBASIC Console Compiler]]>

<![CDATA[PowerBASIC Users Meeting Point - PowerBASIC Console Compiler]]> http://pump.richheimer.de/ Fri, 01 May 2026 03:52:45 +0000 MyBB <![CDATA[$EOF when using Line Input#]]> http://pump.richheimer.de/showthread.php?tid=49 Wed, 12 Mar 2025 07:25:16 +0000 Albert Richheimer]]> http://pump.richheimer.de/showthread.php?tid=49 PB DOS over here, in reply to @Andy Dee:

Code:
#compile exe

#dim all

function pbmain () as long

    local hFile as long

    local sFile as string

    local sTemp as string

    '

    ' Setup strings

    ' -------------

    '

    sTemp = "ABCDEF" + $EOF + "abcdef"

    sFile = "Data.txt"

    '

    ' Create Data.txt

    ' ---------------

    '

    hFile = freefile

    open sFile for output as #hFile

    print #hFile,sTemp;

    close #hFile

    '

    ' Read Data.txt using get$

    ' ------------------------

    '

    hFile = freefile

    open sFile for binary as #hFile

    get$ #hFile,lof(hFile),sTemp

    close #hFile

    stdout "Using get$:        "+sTemp

    '

    ' Read Data.txt using line input#

    ' -------------------------------

    '

    hFile = freefile

    open sFile for input as #hFile

    line input #hFile,sTemp

    close #hFile

    stdout "Using line input#: "+sTemp

    '

    ' Clean up

    ' --------

    '

    kill sFile

end function

]]> PB DOS over here, in reply to @Andy Dee:

Code:
#compile exe

#dim all

function pbmain () as long

    local hFile as long

    local sFile as string

    local sTemp as string

    '

    ' Setup strings

    ' -------------

    '

    sTemp = "ABCDEF" + $EOF + "abcdef"

    sFile = "Data.txt"

    '

    ' Create Data.txt

    ' ---------------

    '

    hFile = freefile

    open sFile for output as #hFile

    print #hFile,sTemp;

    close #hFile

    '

    ' Read Data.txt using get$

    ' ------------------------

    '

    hFile = freefile

    open sFile for binary as #hFile

    get$ #hFile,lof(hFile),sTemp

    close #hFile

    stdout "Using get$:        "+sTemp

    '

    ' Read Data.txt using line input#

    ' -------------------------------

    '

    hFile = freefile

    open sFile for input as #hFile

    line input #hFile,sTemp

    close #hFile

    stdout "Using line input#: "+sTemp

    '

    ' Clean up

    ' --------

    '

    kill sFile

end function

]]>