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

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



2
#include "t3.h"



3



4
function _main(args)



5
{



6
    local vsn = t3GetVMVsn();



7
    



8
    tadsSay('getting VM information...\n');



9
    tadsSay('VM version number = ' + (vsn >> 16) + '.' + ((vsn >> 8) & 0xff)



10
        + ',' + (vsn & 0xff) + '\n');



11
    tadsSay('VM ID = ' + t3GetVMID() + '\n');



12
    tadsSay('VM banner = "' + t3GetVMBanner() + '"\n');



13



14
    tadsSay('Setting the SAY function...\n');



15
    t3SetSay(&mySay);



16



17
    tadsSay('Trying a dstring...\n');



18
    "Hello from the dstring!!!\n";



19
    "Here's another one!\n";



20



21
    tadsSay('Done!!!\n');



22
}



23



24
function mySay(tr)



25
{



26
    tadsSay('<' + str + '>\n');



27
}