Example (I had most of this lying around):
"boxed quote"
Include Alternative Startup Rules by Dannii Willis.
Include Basic Screen Effects by Emily Short.
Include Flexible Windows by Jon Ingold.
Include Text Loops by Zed Lopez.
The initial whitespace rule does nothing.
Title quote is always
"And the wabe is the grass-plot round,[line break]
a sun-dial, I suppose?' said Alice,[line break]
surprised at her own ingenuity.[line break]
[line break]
'Of course it is. It[']s called wabe,[line break]
you know, because it goes a long way,[line break]
before it, and a long way behind it.'".
To my-set (win - a text grid g-window) cursor to row (row - a number) column (col - a number):
(- glk_window_move_cursor({win}.(+ ref number +), {col} - 1, {row} - 1); -).
To solicit pressing any key:
say "Press a key to continue > ";
wait for any key;
When play begins:
let len be 0;
repeat for line in lines of title quote begin;
if number of characters in line > len, now len is number of characters in line;
end repeat;
close the status window;
now the measurement of the status window is number of lines in title quote + 2;
open status window;
focus status window;
let prefix be (the width of the status window - len) / 2;
repeat for line in lines of title quote with index i begin;
my-set status window cursor to row i + 1 column prefix;
say line;
end repeat;
focus the main window;
solicit pressing any key;
now the measurement of the status window is 1;
clear the screen;
Lab is a room.