1 {
2     This file is part of the Free Pascal run time library.
3 
4     A file in Amiga system run time library.
5     Copyright (c) 1998 by Nils Sjoholm
6     member of the Amiga RTL development team.
7 
8     See the file COPYING.FPC, included in this distribution,
9     for details about the copyright.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 
15  **********************************************************************}
16 
17 unit tapedeck;
18 
19 INTERFACE
20 
21 uses utility;
22 
23 const
24     TDECK_Dummy            = (TAG_USER+$05000000);
25     TDECK_Mode             = (TDECK_Dummy + 1);
26     TDECK_Paused           = (TDECK_Dummy + 2);
27 
28     TDECK_Tape             = (TDECK_Dummy + 3);
29         { (BOOL) Indicate whether tapedeck or animation controls.  Defaults
30          * to FALSE. }
31 
32     TDECK_Frames           = (TDECK_Dummy + 11);
33         { (LONG) Number of frames in animation.  Only valid when using
34          * animation controls. }
35 
36     TDECK_CurrentFrame     = (TDECK_Dummy + 12);
37         { (LONG) Current frame.  Only valid when using animation controls. }
38 
39 {***************************************************************************}
40 
41 { Possible values for TDECK_Mode }
42     BUT_REWIND     = 0;
43     BUT_PLAY       = 1;
44     BUT_FORWARD    = 2;
45     BUT_STOP       = 3;
46     BUT_PAUSE      = 4;
47     BUT_BEGIN      = 5;
48     BUT_FRAME      = 6;
49     BUT_END        = 7;
50 
51 {***************************************************************************}
52 
53 IMPLEMENTATION
54 
55 end.
56