19 lines
412 B
Scheme
19 lines
412 B
Scheme
; Uses the curses.so extension. Run with
|
|
; mzscheme -r curses-demo.ss
|
|
|
|
; To get append-extension-suffix, which adds .so or .dll as
|
|
; approrpiate for the current platform:
|
|
(require dynext/file)
|
|
|
|
; Load the curses extension
|
|
(load-extension (append-extension-suffix "curses"))
|
|
|
|
; Screen is initialize. Let's go!
|
|
(move 8 10)
|
|
(put "Hello, World!")
|
|
(put #\newline)
|
|
(put "Hit any key to continue.")
|
|
(refresh)
|
|
|
|
(get)
|