picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

tsm.l (201B)

      1 # 18jan11abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (when (sys "TERM")
      5    (setq *Tsm
      6       (cons
      7          (in '("tput" "smul") (line T))
      8          (in '("tput" "rmul") (line T)) ) ) )
      9 
     10 # vi:et:ts=3:sw=3