Re: Print SCR

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