Pete's QBASIC Site

When opening a file by typing "open" everything works, but it doesn't work with "print". Can anyone tell me why, it doesn't make any sense to me?

what are you trying to do? are you wanting to print to the file?

No, of course no. I am using that like print command in QB

izidor wrote:When opening a file by typing "open" everything works, but it doesn't work with "print". Can anyone tell me why, it doesn't make any sense to me?

Code: Select all

DO
    INPUT a$
    IF a$ = "open" THEN
        INPUT "name:", filename$
        OPEN filename$ FOR INPUT AS #1
        DO WHILE NOT EOF(1)
            INPUT #1, files$
            PRINT files$
        LOOP
        CLOSE #1

    ELSEIF a$ = "print" THEN
        INPUT "name:", filename2$
        OPEN filename2$ FOR INPUT AS #2
        DO WHILE NOT EOF(1)
            INPUT #2, files2$
            PRINT files2$
        LOOP
        CLOSE #2

    END IF
LOOP

I think the problem is:
OPEN filename2$ FOR INPUT AS #2
DO WHILE NOT EOF(1)

The DO WHILE should be EOF(2)

Regards.

Yeah that was the problem, thanks, I don't know what would I do if there weren't for this forum!