1
2[ TestExitText ix;
3
4  print "This tests if you can read text which is displayed
5    immediately before the program quits. (It is not clear whether
6    this is covered by the Z-Spec. However, some games -- including some
7    original Infocom games -- display important closing text and then
8    immediately quit.)^^";
9  print "Hit ~.~ to return to the main menu, or any other key to print a
10    line of text and then quit. If the line of text does not appear,
11    or appears and vanishes too quickly to read, your interpreter will
12    have trouble with those games.^^";
13
14  print "ClosingText> ";
15  ix = GetKey();
16  if (ix == '.') {
17    print "^Test aborted.^";
18    return;
19  }
20
21  print "^^This is a final line of text. Goodbye.^";
22  quit;
23
24];
25