Dieses Makro legt einen neuen, noch nicht in der Datenbank vorhandenen, Zähler an und weisst ihm dabei einen Anfangswert zu.

  DBSTRINGSET Headlines, Values;
  INT Value;
  STRING Name;
 
  DBStrAdd( Headlines, "Name des Zählers:" );
  DBStrAdd( Headlines, "aktuelle Nummer:" );
 
  IF( GetTextSetDlg( Headlines, Values, "neuen Counter anlegen", 65 ) == IDOK )
    Name = DBStrGet( Values, 1 );
    Value = StrToInt( DBStrGet( Values, 2 ) );
 
    IF( DBSetCounterValue( Name, Value ) )
      MessageBox( "Zähler wurde angelegt.", MB_ICONINFORMATION );
    ELSE
      MessageBox( "Fehler beim Anlegen des Zählers", MB_ICONSTOP );
    ENDIF
 
  ENDIF