Artifact 4b6e0591eac8b6ec32e2292cd1e2c0948966fbe92b91d7ad4c242c23d9952529:

• File psl-1983/3-1/glisp/h19.sl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1297) [annotate] [blame] [check-ins using] [more...]

% <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)