REM >Ascii
REM Library of routines to "print" ASCII to a file


REM ========================================================================
DEF PROCprint_line(channel%, string$)
REM ========================================================================
    PROCprint_string(channel%, string$)
    BPUT #channel%, 13         :REM finish with a new line.
    BPUT #channel%, 10         :REM PCs use CR, LF
ENDPROC


REM ========================================================================
DEF PROCprint_string(channel%, string$)
REM ========================================================================
    LOCAL i%
    IF LEN(string$)=0 THEN ENDPROC
    FOR i%=1 TO LEN(string$)
        BPUT #channel%, ASC(MID$(string$,i%,1))
    NEXT
ENDPROC


REM ========================================================================
DEF PROCprint_string_visibly(channel%, string$)
REM ========================================================================
    PROCprint_string(channel%, string$)
    PRINT string$;
ENDPROC


REM ========================================================================
DEF PROCprint_line_visibly(channel%, string$)
REM ========================================================================
    PROCprint_line(channel%, string$)
    PRINT string$
ENDPROC