Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
1 kaklik 1 
#pragma reserve 0 3
2 
int n;
3 
task main()
4 
{
5 
     PlaySound(SOUND_DOUBLE_BEEP);
6 
     asm{0x14, 3, 2, 10, 0};   // setv 3, constant, 10
7 
     CreateDatalog(100);
8 
     while (true)
9 
     {
10 
        AddToDatalog(n);
11 
        SetUserDisplay(n++, 0);
12 
        Wait(100);
13 
     }
14 
}