8 lines
126 B
Text
8 lines
126 B
Text
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
|
|
|
|
(call 'tput "smcup")
|
|
(prinl "something")
|
|
(wait 3000)
|
|
(call 'tput "rmcup")
|
|
|
|
(bye)
|