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