c Common file ESCDTC.INC for Desk Top Calendar programs c character*2 homescrn, clrscrn, ! Special sequences 1 dhdw1, dhdw2, dwide, resetvattr character*3 revattr common /vidstuff/ homescrn, clrscrn, ! Greasy? 1 dhdw1, dhdw2, dwide, resetvattr, revattr c c Compiler will usually treat these as constants, so don't really need them c to be in common c byte esc /"033/, ! ASCII escape 1 so /"016/, ! ^N, Shift-Out (enter graphics mode w/ ')0') 2 si /"017/ ! ^O, Shift-In (exit graphics mode w/ '(B') c c End of ESCDTC.INC