cfad47cfa3/t3compiler/tads3/test/data/input.t

Show revision log
 
4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include "tads.h"



2
#include "t3.h"



3



4
preinit() { }



5
main(args)



6
{



7
    "Arguments:\n";



8
    for (local i = 1, local cnt = args.length() ; i <= cnt ; ++i)



9
        "\t[<<i>>] = '<<args[i]>>'\n";



10
    "\b";



11



12
    "Input test - enter a blank line to terminate.\b";



13



14
    for (;;)



15
    {



16
        local str;



17



18
        ">";



19
        str = inputLine();



20
        if (str == '')



21
            break;



22
        "You entered: '<<str>>'\b";



23
    }



24



25
    "Done!\n";



26
}



27