File psl-1983/3-1/glisp/h19.sl artifact 4b6e0591ea part of check-in 955d0a90a7



% <NOVAK>H19.PSL.1 20-Mar-83 12:40:06 





(GLISPOBJECTS


(TERMINAL ATOM
MSG     ((MOVETOXY TERMINAL-MOVETOXY)
	 (PRINTCHAR TERMINAL-PRINTCHAR OPEN T)
	 (PRINTSTRING TERMINAL-PRINTSTRING OPEN T)
	 (INVERTVIDEO ((PRIN1 ESCAPECHAR)
		       (PRIN1 "p")))
	 (NORMALVIDEO ((PRIN1 ESCAPECHAR)
		       (PRIN1 "q")))
	 (GRAPHICSMODE ((PRIN1 ESCAPECHAR)
			(PRIN1 "F")))
	 (NORMALMODE ((PRIN1 ESCAPECHAR)
		      (PRIN1 "G")))
	 (ERASEEOL ((PRIN1 ESCAPECHAR)
		    (PRIN1 "K")))))

)



(GLISPGLOBALS
(TERMINAL TERMINAL)

)



(GLISPCONSTANTS
(BLANKCHAR " " STRING)
(HORIZONTALLINECHAR "-" STRING)
(HORIZONTALBARCHAR "{" STRING)
(LVERTICALBARCHAR "}" STRING)
(RVERTICALBARCHAR "|" STRING)
(ESCAPECHAR (CHARACTER 27) STRING)
)



% edited: 14-Mar-83 22:48 
% Move cursor to a specified X Y position. 
(DG TERMINAL-MOVETOXY (TERM:TERMINAL X:INTEGER Y:INTEGER)
(IF X<0 THEN X_0 ELSEIF X>79 X_79)(IF Y<0 THEN Y_0 ELSEIF Y>23 THEN Y_23)(SEND
  TERMINAL PRINTCHAR ESCAPECHAR)(SEND TERMINAL PRINTCHAR "Y")(SEND
  TERMINAL PRINTCHAR (CHARACTER 55 - Y))(SEND TERMINAL PRINTCHAR
					      (CHARACTER 32 + X)))


% edited: 19-Mar-83 20:29 
(DG TERMINAL-PRINTCHAR (TERM:TERMINAL S:STRING)
(PRIN1 S))


% edited: 19-Mar-83 20:29 
(DG TERMINAL-PRINTSTRING (TERM:TERMINAL S:STRING)
(PRIN1 S))

(SETQ TERMINAL 'H19)


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]