REM >Spool
REM Set of functions to manipulate SPOOL files
REM and to switch between printer, screen and spool.


REM ========================================================================
DEF PROCopen_spool(file$)
REM ========================================================================
    OSCLI("SPOOL "+file$)
ENDPROC


REM ========================================================================
DEF PROCclose_spool
REM ========================================================================
    OSCLI("SPOOL")
ENDPROC


REM Function Set B
REM --------------------------------------


REM ========================================================================
DEF PROCprinter_on
REM ========================================================================
    VDU 2
ENDPROC


REM ========================================================================
DEF PROCprinter_off
REM ========================================================================
    VDU 3
ENDPROC


REM ========================================================================
DEF PROCscreen_on
REM ========================================================================
    VDU 6
ENDPROC


REM ========================================================================
DEF PROCscreen_off
REM ========================================================================
    VDU 21
ENDPROC


REM ========================================================================
DEF PROCpause_spooling
REM ========================================================================
    OSCLI("FX 3,16")    :REM (but also resets other defaults...)
ENDPROC


REM ========================================================================
DEF PROCresume_spooling
REM ========================================================================
    OSCLI("FX 3,0")     :REM (but also resets other defaults...)
ENDPROC


REM Function Set C
REM ------------------------------------------


REM ========================================================================
DEF PROCset_output_state(screen%, printer%, spool%)
REM ========================================================================
    REM 0 for OFF, 1 for ON
    IF (screen%<>0 AND screen%<>1) THEN ENDPROC
    IF (printer%<>0 AND printer%<>1) THEN ENDPROC
    IF (spool%<>0 AND spool%<>1) THEN ENDPROC

    REM default (0) is screen ON, printer OFF, spool ON...
    osbytecode% = 2*(1-screen%) + 8*printer% + 16*(1-spool%)

    OSCLI("FX 3,"+STR$(osbytecode%))
ENDPROC