# dprint_def.r.i --- definitions for 'dprint' include ARGUMENT_DEFS define (DPRINT_COMMON,"dprint_com.r.i") define (TOP_OF_FORM,{ if(LETTER_OPT){ if(Outstanding_poll)WAIT_FOR_ACK;Chunk=0;Outstanding_poll=FALSE call t1ou(BEL);WAIT_FOR_ACK}}) define (OUTCON(c),{call t1ou(c);Chunk+=1}) define (WAIT_FOR_ACK,{character junk,t1in;while(t1in(junk)~=ACK);}) define (DISABLE_BREAKS,call break$(DISABLE)) define (ENABLE_BREAKS,call break$(ENABLE)) define (START_FORWARD_PRINT, {call t1ou(ESC);call t1ou('5'c);Chunk+=2;Direction=FORWARD}) define (START_BACKWARD_PRINT, {call t1ou(ESC);call t1ou('6'c);Chunk+=2;Direction=REVERSE}) define (MOVE_TO_COLUMN(c), {call t1ou(ESC);call t1ou(HT);call t1ou(c);Chunk+=3}) define (MOVE_TO_LINE(l), {call t1ou(ESC);call t1ou(VT);call t1ou(l);Chunk+=3}) define (ENTER_PLOT_MODE, {call t1ou(ESC);call t1ou('3'c);Chunk+=2}) define (EXIT_PLOT_MODE, {call t1ou(ESC);call t1ou('4'c);call t1ou(' 'c);Chunk+=3}) define (LETTER_OPT,ARG_PRESENT(s)) define (EJECT_OPT,ARG_PRESENT(j)) define (PAGE_LENGTH,ARG_VALUE(l)) define (COPIES,ARG_VALUE(c)) define (MAXCHUNK,72) define (BUFLENGTH,1000) define (MIN,4) define (MAX,180) define (SLOPE,90) define (FORWARD, 0) define (REVERSE, 1) define (alpha,8r141) # a define (beta,8r142) # b define (delta,8r144) # d define (DELTA,8r104) # D define (epsilon,8r145) # e define (eta,8r156) # n define (gamma,8r147) # g define (GAMMA,8r107) # G define (infinity,8r070) # 8 define (integral,8r053) # + define (lambda,8r154) # l define (LAMBDA,8r114) # L define (mu,8r165) # u define (nabla,8r136) # ^ define (not,8r176) # ~ define (nu,8r166) # v define (omega,8r167) # w define (OMEGA,8r127) # W define (partial,8r055) # - define (phi,8r160) # p define (PHI,8r120) # P define (psi,8r171) # y define (PSI,8r131) # Y define (pi,8r063) # 3 define (PI,8r064) # 4 define (rho,8r162) # r define (sigma,8r163) # s define (SIGMA,8r123) # S define (tau,8r164) # t define (theta,8r150) # h define (THETA,8r110) # H define (xi,8r170) # x define (zeta,8r172) # z define (hlf,8r012) # line feed define (rhlf,8r013) # vertical tab define (U,8r013) define (D,8r012) define (L,8r010) define (R,8r040)