! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! *************************************************************************** ! * ! COPYRIGHT (c) 1988 BY * ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! ALL RIGHTS RESERVED. * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! * ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! * ! *************************************************************************** ! DTK$ANSWER_PHONE ! ! Wait for Phone to Ring and Answer ! ! The Wait for Phone to Ring and Answer routine ! waits for the phone connected to the DECtalk device to ring ! and then answers it. ! EXTERNAL LONG FUNCTION dtk$answer_phone & ( & LONG BY REF, & OPTIONAL LONG BY REF, & STRING BY DESC, & LONG BY REF & ) ! DTK$CHECK_HDWR_STATUS ! ! Check Hardware Status ! ! The Check Hardware Status routine checks the DECtalk hardware for hardware ! malfunctions. ! EXTERNAL LONG FUNCTION dtk$check_hdwr_status & ( & LONG BY REF, & LONG BY REF & ) ! DTK$DIAL_PHONE ! ! Dial the Telephone ! ! The Dial the Telephone routine dials the specified number on the telephone. ! EXTERNAL LONG FUNCTION dtk$dial_phone & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF, & STRING BY DESC, & LONG BY REF & ) ! DTK$HANGUP_PHONE ! ! Hang Up the Phone ! ! The Hang Up the Phone routine speaks an optional message and ! then hangs up the phone. ! EXTERNAL LONG FUNCTION dtk$hangup_phone & ( & LONG BY REF, & OPTIONAL STRING BY DESC & ) ! DTK$INITIALIZE ! ! Initialize DECtalk ! ! The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned ! voice identifier. ! EXTERNAL LONG FUNCTION dtk$initialize & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF & ) ! DTK$LOAD_DICTIONARY ! ! Load a Word into the DECtalk Dictionary ! ! The Load a Word into the DECtalk Dictionary routine ! loads a phonemic definition of a word into the DECtalk ! dictionary. ! EXTERNAL LONG FUNCTION dtk$load_dictionary & ( & LONG BY REF, & STRING BY DESC, & STRING BY DESC & ) ! DTK$READ_KEYSTROKE ! ! Read a Key Entered on the Keypad ! ! The Read a Key Entered on the Keypad routine ! reads a key entered on the phone keypad. ! EXTERNAL LONG FUNCTION dtk$read_keystroke & ( & LONG BY REF, & LONG BY REF, & OPTIONAL STRING BY DESC, & LONG BY REF & ) ! DTK$READ_STRING ! ! Read a Series of Keys Entered on the Keypad ! ! The Read a Series of Keys Entered on the Keypad routine reads a ! series of keys entered on the phone keypad. ! EXTERNAL LONG FUNCTION dtk$read_string & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL STRING BY DESC, & LONG BY REF, & LONG BY REF & ) ! DTK$RETURN_LAST_INDEX ! ! Return Last Index Spoken ! ! The Return Last Index Spoken routine returns the last index spoken. ! EXTERNAL LONG FUNCTION dtk$return_last_index & ( & LONG BY REF, & LONG BY REF & ) ! DTK$SPELL_TEXT ! ! Spell Text ! ! The Spell Text routine causes DECtalk to pronounce each letter of ! the specified text. ! EXTERNAL LONG FUNCTION dtk$spell_text & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF & ) ! DTK$SPEAK_FILE ! ! Speak the Text in a Specified File ! ! The Speak the Text in a Specified File routine ! speaks the text contained in the specified file. ! EXTERNAL LONG FUNCTION dtk$speak_file & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF & ) ! DTK$SPEAK_PHONEMIC_TEXT ! ! Speak the Specified Phonemic Text ! ! The Speak the Specified Phonemic Text routine ! sends the specified phonemic text to the DECtalk device ! to be spoken. ! EXTERNAL LONG FUNCTION dtk$speak_phonemic_text & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF & ) ! DTK$SPEAK_TEXT ! ! Speak the Specified Text ! ! The Speak the Specified Text routine ! sends the specified text to the DECtalk device ! to be spoken. ! EXTERNAL LONG FUNCTION dtk$speak_text & ( & LONG BY REF, & STRING BY DESC, & OPTIONAL LONG BY REF & ) ! DTK$SET_INDEX ! ! Insert an Index at the Current Position ! ! The Insert an Index at the Current Position routine ! inserts an index into the current output stream. ! EXTERNAL LONG FUNCTION dtk$set_index & ( & LONG BY REF, & LONG BY REF & ) ! DTK$SET_KEYPAD_MODE ! ! Turn the Phone Keypad On and Off ! ! The Turn the Phone Keypad On and Off routine turns recognition ! of the telephone keypad on or off. ! EXTERNAL LONG FUNCTION dtk$set_keypad_mode & ( & LONG BY REF, & LONG BY REF & ) ! DTK$SET_LOGGING_MODE ! ! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device ! ! The Set the Logging Mode for the Video Terminal ! Connected to the DECtalk Device routine ! controls the information that is displayed on the video ! terminal while the DECtalk device is functioning. ! EXTERNAL LONG FUNCTION dtk$set_logging_mode & ( & LONG BY REF, & OPTIONAL LONG BY REF, & LONG BY REF & ) ! DTK$SET_MODE ! ! Set the Mode for the DECtalk Terminal ! ! The Set the Mode for the DECtalk Terminal routine ! sets or resets the mode settings of the DECtalk terminal. ! EXTERNAL LONG FUNCTION dtk$set_mode & ( & LONG BY REF, & OPTIONAL LONG BY REF, & LONG BY REF & ) ! DTK$SET_SPEECH_MODE ! ! Turn Speech Mode On and Off ! ! The Turn Speech Mode On and Off routine ! either starts or stops the DECtalk device's speech. ! EXTERNAL LONG FUNCTION dtk$set_speech_mode & ( & LONG BY REF, & LONG BY REF, & OPTIONAL LONG BY REF & ) ! DTK$SET_TERMINAL_MODE ! ! Set the Mode for the Video Terminal Connected to the DECtalk Device ! ! The Set the Mode for the Video Terminal ! Connected to the DECtalk Device routine ! controls the attributes of the video terminal connected ! to the DECtalk device. ! EXTERNAL LONG FUNCTION dtk$set_terminal_mode & ( & LONG BY REF, & OPTIONAL LONG BY REF, & LONG BY REF & ) ! DTK$SET_VOICE ! ! Set Voice Characteristics ! ! The Set Voice Characteristics routine ! changes the DECtalk voice characteristics to match those ! specified. ! EXTERNAL LONG FUNCTION dtk$set_voice & ( & LONG BY REF, & OPTIONAL LONG BY REF, & LONG BY REF, & LONG BY REF, & LONG BY REF & ) ! DTK$TERMINATE ! ! Terminate DECtalk ! ! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device. ! EXTERNAL LONG FUNCTION dtk$terminate & ( & LONG BY REF & )