Re: Print SCR

hi Stephen

thank you, but this never will work, because "if i % 80 = 0" will never be

true

better use

"if len(a) = 80"


"Stephen Quinn" <steveqNO@[EMAIL PROTECTED]
> schrieb im Newsbeitrag 
news:fqklb3$41m$1@[EMAIL PROTECTED]
> Eckhard
>
> // 25/80 screen = 4000 character string
> // every 2nd element is the colour element (check that as I'm doing this

> from memory<g>)
> // so stepping through it printing each odd element will give you the 
> text.
>
> cString := ''
> cScreen := SaveScreen()
> for i := 1 to 4000 step 2
>    // You might also want to check for non printable CHR() codes
>    cString := cScreen[ i ]
>    if i % 80 = 0
>        // send line to printer & reset
>        cString := ''
>    endif
> next
> // Send the last line to the printer
>
> CYA
> Steve
>