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