Hi,

I'm trying to read ascii art files en L(PRINT) them in QBASIC. I wrote
the code lines beneath here. But that doesn't work.
Somehow the MID$ skips the spaces. Now I'm thinking of reading the
file in binary (FOR BINARY AS #x). It would be also a better because
it will also read the carriages and spaces I believe.
Does somebody have some clues how to read a binary file and put the
whole ascii art file in one textstring variable?

x = FREEFILE
OPEN "A:\m.txt" FOR INPUT AS #x
INPUT #x, a$
CLOSE #x

FOR i = 1 TO 10
        Y = i * 14
        z = Y - 13
        b$ = MID$(a$, z, Y)
        PRINT b$
NEXT i
END

This is how I read the ascii file now.I have deleted the carraiges
manualy.
The ascii image is 14 char wide and 10 high.

            ___     /\__\       /::|  |     /:|:|  |       /:/|:|__|__
    /:/|::::\__\    \/__/~~/:/  /         /:/  /       /:/  /      
/:/  /        \/__/

This is how I want to read the ascii file.
      ___
     /\__\  
    /::|  |  
   /:|:|  |    
  /:/|:|__|__    
 /:/ |::::\__\  
 \/__/~~/:/  /  
       /:/  /
      /:/  /  
     /:/  /  
     \/__/  

Thanks marco

Hello. My name is marco. You killed my father. Prepare to die.

Try using Line Input instead.

--
http://www.geocities.com/steven_basic

Hi!

LINE INPUT works fine. However, here is a 'BINARY' version:

x = FREEFILE
OPEN "m.txt" FOR BINARY AS #x
b$ = SPACE$(LOF(x))
GET #x, , b$
CLOSE #x
FOR i% = 0 TO 10
    PRINT MID$(b$, i% * 14 + 1, 14)
NEXT

--
Thorsten Guenther
Mainz, Germany

Too slow!

--
Cellphone: 0038631752815

Don't feel bad about asking/telling me anything, I will always gladly
reply.

Digging for info? Try AI Meta Search:
Http://WWW.AIMetaSearch.Com

MesonAI -- If nobody else wants to do it, why shouldn't we?(TM)
Http://WWW.MesonAI.Com

OK Thorsten,

Thanks a lot. It helped me a lot. Here is what I made of it.
I implemented the code that when it reads a carriage it will be
skiped.
On screen(PRINT) it looks fine now but when I print it out (LPRINT) it
makes some errors. I

__________________________________________
CLS
x = FREEFILE
OPEN "A:\alien3.txt" FOR BINARY AS #x
b$ = SPACE$(LOF(x))
GET #x, , b$

FOR m = 1 TO LOF(x)
????????k% = ASC(MID$(b$, m, 1))
????????IF k% <> 13 THEN
????????e$ = CHR$(k%)
????????total$ = total$ + e$
????????END IF
????????NEXT
CLOSE #x

PRINT total$
____________________________________