Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
1 kaklik 1 
#pragma reserve 0 3
2 
#define n  @3    // VAR 3
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 
        n=n+1;
12 
        SetUserDisplay(n, 0);
13 
        Wait(100);
14 
     }
15 
}