Welcome to the CHICKEN Scheme pasting service

ansi.scm added by graspee on Mon May 14 19:57:04 2012

(define (ansi-cls) (display ""))

(define (ansi-resize-terminal x y) (display (format "[8;~A;~At" y x)))

(define (ansi-move-to x y) (print (format "[~A;~AH" y x)))

(define (ansi-use-extended-chars) (display "(0"))

(define (ansi-set-fg x) (print (format "[38;5;~Am" x)))

(define (ansi-set-bg x) (print (format "[48;5;~Am" x)))

(define (ansi-string-fg c s) (format "[38;5;~Am~A" c s))

(define (ansi-string-bg c s) (format "[48;5;~Am~A" c s))

(define (ansi-string-at x y s) (format "[~A;~AH~A" y x s))

(define (normal) (print "(1"))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the result of `(apply + (list -3 4 2))'?
Visually impaired? Let me spell it for you (wav file) download WAV