;;; '400' -> vedargument; ved_autowrite();


section print => vedprint;


define vedprint( pre, post );
    lvars pre post;
    vars vedcurrent vedwriteable _x;

    if vedchanged then
        if vedwriteable then ved_w1();
        else
            'printtmp.lis' -> vedcurrent;
            true -> vedwriteable;
            ved_w1(); true -> vedchanged;
            vedputmessage('TEMPORARY FILE WRITTEN');
        endif
    endif;
    ;;; Check if there's a dot in file name.
    ;;; If not stupid VMS tries to stick '.LIS' on end.
    locchar(`]`,1,vedcurrent) -> _x;
    locchar(`.`, if _x then _x else 1 endif, vedcurrent) -> _x;
     ;;; put a dot on end of file name if necessary
     unless _x then vedcurrent >< '.' -> vedcurrent endunless;
    pr('GIVING PRINT COMMAND');

    sysobey( pre >< vedcurrent >< post );
enddefine;


endsection;


;;; Print current file at CTC.
;;;
define ved_ctcprint;
    vedprint( 'LF ', ' /PRINTER=CTC' );
enddefine;


;;; Print current file at Social Studies.
;;;
define ved_ssprint;
    vedprint( 'LF ', ' /PRINTER=SOCSTUD' );
enddefine;


;;; Print current file at Experimental Psychology.
;;;
define ved_epprint;
    vedprint( 'LF ', ' /PRINTER=PSYZOO' );
enddefine;


;;;  Access VAX logical name to find out how called,
;;;  for Ved setup.
systranslate('pop_on_pc') -> pop_on_pc;
if pop_on_pc = 1 then
    compile( 'fs21:[aisoc.sysfiles]vedpcinit1.p' );
elseif pop_on_pc = 2 then
    compile( 'fs21:[aisoc.sysfiles]vedpcinit2.p' );
endif;
cancel pop_on_pc;