|#| constant, @char-x, 5
|#| constant, @char-y, 5
|#| constant, @char, 64

| run the program |
        start ncurses,
        draw the player,
        read a character,
        clean up ncurses,


| start ncurses |
        @initscr,
        start ncurses 2

| start ncurses 2 |
        @cbreak,
        @noecho,
        @set-cursor

| draw the player |
        @char-x:5,
        @char-y:5,
        @char:64,
        draw the player 2

| draw the player 2 |
        @put-char

| read a character |
        @get-char

| clean up ncurses |
        @cursor-type,
        @set-cursor,
        @nocbreak,
        @echo,
        clean up ncurses 2

| clean up ncurses 2 |
        @set-cursor,
        clean up ncurses 3

| clean up ncurses 3 |
        @endwin

|| run the program