/*
 *   character set mappings - this file was prepared with code page 1252
 */

#include "t3.h"
#include "t3test.h"
#include "tads.h"

_say_embed(str) { tadsSay(str); }

_main(args)
{
    t3SetSay(&_say_embed);
    main();
}

main()
{
    local str;
    
    "Welcome to the character set test!\n
    Here are some accented A's: ΐΑΒΓΔΕΰαβγδε\n
    How about some accented E's: ΘΙΚΛθικλ\n
    That should do it!\n";

    /* set the string to something wacky to look at in the debugger */
    str = 'ΐΑΒΓΔΕΰαβγδε\u1234\uABCD\u7f7f/Hello!\n\b\t\015\001\\$@';	

    "Try entering some text!\n> ";
    str = inputLine();
    "You entered \"<<str>>\" = ";
    for (local i = 1 ; i <= str.length() ; ++i)
        "<<toString(t3test_get_charcode(str.substr(i, 1)), 16)>> ";
    "\n";
}

