24 lines
430 B
Scheme
24 lines
430 B
Scheme
|
|
; Uses the curses.so extension. Run with
|
|
; mzscheme -r curses-demo.ss
|
|
|
|
; To get append-extension-suffix, which adds .so or .ddl as
|
|
; approrpiate for the current platform:
|
|
(require (lib "file.ss" "dynext"))
|
|
|
|
; 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)
|
|
|
|
|
|
|
|
|