Subversion Repositories svnkaklik

Rev

Go to most recent revision | Blame | Last modification | View Log | Download

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