long survoid()
The survoid function finds the Survo id number of the current installation. It is used in extra Survo modules to restrict the use of the module for installations with the given id number only. The (5-digit) id number of the current installation can be seen when Survo is entered and the key '.' is pressed immediately. In versions 3.10+ of Survo, the CLEAR * command appends the id number of the current Survo copy to the tutstack.
survoid returns the Survo id number as a long integer.
extern long survoid();
if (survoid()!=12345L) return;
/* If the id number is not 12345, interrupt */