14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    17  *)

    17  *)

    18 

    18 

    19 unit uGears;

    21 unit uGears;

    20 interface

    22 interface

    21 uses SDLh, uConsts, uFloat;

    23 uses SDLh, uConsts, uFloat;

    23 const AllInactive: boolean = false;

    24 const AllInactive: boolean = false;

    24       PrvInactive: boolean = false;

    25       PrvInactive: boolean = false;

    25 

    26 

    26 type PGear = ^TGear;

    27 type PGear = ^TGear;

    27 	TGearStepProcedure = procedure (Gear: PGear);

    28 	TGearStepProcedure = procedure (Gear: PGear);