Subversion Repositories svnkaklik

Rev

Rev 1 | Blame | Last modification | View Log | Download

#pragma reserve 0 3
int n;
task main()
{
     PlaySound(SOUND_DOUBLE_BEEP);
     asm{0x14, 3, 2, 10, 0};   // setv 3, constant, 10
     CreateDatalog(100);
     while (true)
     {
        AddToDatalog(n);
        SetUserDisplay(n++, 0);
        Wait(100);
     }
}