Subversion Repositories svnkaklik

#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);

     }

}