' *** WRAP.LST *** 2nd GFA-Manual, page 9-10 > PROCEDURE wrap(w!) ' ' *** Switch wrap on (w!=TRUE) or off (w!=FALSE) ' *** Wrap on: the part of a string that does not fit, is PRINTed on next line ' *** Wrap off: if string is too long, characters 'outside' screen are ' *** discarded, but last character is printed at last column ' *** Interpreter switches wrap automatically on (not in compiled program!) ' IF w! PRINT CHR$(27);"v"; ! wrap on ELSE PRINT CHR$(27);"w"; ! wrap off ENDIF RETURN ' ********* '