TweetFollow Us on Twitter

Speech Library
Volume Number:7
Issue Number:3
Column Tag:Basic School

Adding Speech to QuickBasic

By William H. Ball, Braintree, MA

Adding Speech to QuickBASIC

After reading Dave Kelly’s review of QuickBASIC, I knew that the time was right to buy a Microsoft BASIC for my Mac. I wanted to create clickable apps, but I also wanted the convenience of an interpreter. Now I have both.

So far I am pleased with QuickBASIC. But I was surprised to find that Microsoft did not include Macintalk support in the compiler. Macintalk is a small resource on disk (about 30K) that can add a nice touch to your programs.

Clear Lake Research has an ad on a back page of the QB manual and offers libraries for speech, 3D graphics, and sorting, mathematical, and statistical functions. I’m sure their libraries are professionally done, well-designed and extremely useful, but I didn’t want to wait; after buying the compiler I wanted to add speech to my programs that afternoon!

Pure-Code Resource Libraries

Anyway, this article presents one way to write what Microsoft calls a “pure-code resource” (as opposed to an “impure-code resource”) for QB. Luckily, LightspeedC users can generate these resources through the Set Project menu item. The details on building your own libraries for QB are in the manual. Basically, you

• create a project to build a code resource of type MBPC

• add your libraries and QB’s BasicLib.lib

• write the code

• compile to a code resource

• use ResEdit to

• set the file creator type to MSBB or MSBD

• set the file type to MSBL

You can add more resources with ResEdit as long as you give each resource a different name and ID. Voila! Your own libraries for BASIC! You can then use the LIBRARY statement in QB to use your collection of routines. Microsoft provides 20 library support routines in BasicLib.lib, which comes with QB, to help you write your own libraries.

A Speech Library

The source for SAY() shows how you can make your Mac talk from QB. The QB program, “test speech,” tests the SAY() routine. Building additional routines for QB looks pretty easy, even for a non-programmer like me. Microsoft made the job a lot easier by providing oodles of technical information in the manual and over 50 example programs on a disk which comes with the compiler. MDS, MPWC, MPWP, and LightspeedC examples are included.

Note that the LightspeedC example on pp. 447-448 in the QB manual will not work if you try to compile it. Why? Because the function prototypes in “BasicLSC.h” as supplied on QB’s examples disk were redefined after the manual went to print. Each argument type in the header now has a leading underscore. You will also have to change some of the casts.

I thought about writing a number of separate speech routines, but instead included the speech rate and pitch in SAY()’s syntax. You may choose to write your own. I wanted to keep things simple, so right now my library “Speech.lib” only contains SAY(). How many routines make a library? Two?

BasicError() Problem?

I also wanted to include more error-checking in the program, but ran across a problem with QB. The QuickBASIC library support routine BasicError(), as documented on page 459 of the manual, does not seem to work correctly. The casual reader (me) would assume that calling BasicError(n), with n representing one of the error codes listed on pp 557-559, would return a QuickBASIC error dialog with the representative error message. This is not the case; instead, an “Unprintable error” dialog is shown on the screen when a syntax error is encountered by a pure-code resource. This happened even with an example LightspeedC program, “AddStrings.c” included on the Microsoft disk, which was intended to demonstrate a pure-code resource with error-trapping. Maybe I’m doing something wrong? I tried trapping the error, but couldn’t correctly identify it. I’d welcome corrections, additions or enlightenments.

The code follows Microsoft’s suggestions, saves some registers for BASIC, and gets three arguments; two integer values for the speech rate and pitch, and a string to speak. Most of the work is done by GetNextLibArg(), a support routine that also tells you what type of argument was read. IntegerArg() converts the argument to an integer, and LoadStringDesc() returns a string with its length.

The general syntax for SAY() is

SAY(rate,pitch,string)

Where rate is an integer or integer variable from 0 to

425, and determines how fast string is spoken

pitch is an integer or integer variable from 0 to

500, and determines how high or low to speak

string is a string variable or string enclosed in

quotes

Make sure MacinTalk is somewhere on the volume, or SAY() will return a “Syntax Error.” If you pass the wrong number or type of arguments -- La Bomba! In fact, if you think that QB is the same, tame BASIC environment you grew up with on your first home computer, forget it. Because you now have full access to the Mac’s ROMs, there are a lot more opportunities to cause those sizzling, screen-splitting system crashes.

Factory Typo?

I was unable to generate a library icon of the speech library for the decimal version of QuickBASIC until I did some poking around with ResEdit. According to the manual on p. 451, you should use ResEdit to set the library’s file creator type to MSBB (for binary) or MSBD (for decimal). Well, everything’s fine if you set the type for MSBB, but not for MSBD! All you get when you return to the desktop is a plain document icon, and not a library icon. If I called the library from a program, the decimal version wouldn’t even show the filename on a GetFile dialog. Microsoft does not provide screenshots of the different icons generated by QB, so you can’t tell the difference between a document, application or library on the desktop until you get familiar with the program.

ResEdit showed me the solution to the problem. If you Get-Info the decimal version, you’ll see that the creator type is MSBA, not MSBD! Is this a ResEdit typo from the factory? Anyway, I figured it was safer to change the library’s creator type to MSBA rather than change the decimal version’s creator type. Once I did that, the decimal version was able to recognize the speech library, and the library had a library icon (which is a different icon from the binary version. Why?).

Drove me crazy for a while.

Printer Hangup

A further problem you might run across in QB is that printer errors are not trapped well by the QB environment. If your printer is off-line, QB will hang if you ask it to print the current file. Putting your printer back on-line gets you going again. Most Mac programs seem to catch this one.

Altogether, it’s great to have an interpreter and compiler in the same environment. One thing I’d like to see in a future version is the ability to edit multiple files. Also, the compiler seems to be a bit untidy, as it can leave a bunch of temporary files on your disk if your compile is aborted. I also ran out of room on my hard disk after a file called “QuickBasic Settings” grew to over six megabytes in the System Folder. This happened after a crash or two, and after I trashed the file QuickBasic came up damaged but with a graceful exit.

Despite the fact that you can now go into La-La Land just as easily as in C or Pascal, if you look back at the capabilities of the early BASICs on mainframes and micros you’ll see that the present QB environment is very nice indeed -- and now talks to you!

Have a happy! And remember, practice safe computing! After November’s virus scare, you never know what you can catch after connecting with another computer.

THINK C Project and Code Type

/* Speech.c -- QB code resource for access to MacinTalk routines 
   Copyright (C)1988 by William H. Ball for MacTutor™ magazine
    
   Usage: SAY(rate,pitch,string) 
   where  [rate] is an integer or integer variable 
     [pitch] is an integer or integer variable 
     [string] is a string variable or string enclosed by quotes. 
   for example,
    hefty% = 100 : wimpy% = 300 : fast% = 200 : slow% = 100
          m$ = “Hello there”
          CALL SAY(slow%,hefty%,m$)
          CALL SAY(fast%,wimpy%,m$)         
          or              
          CALL SAY(100,100,”Hello there”)
          CALL SAY(200,300,”Hello there”)
          
 Caveats: Can cause bombs of ID 2 or ID 10 if you fail to pass the correct 
number or type of arguments.
*/

#include “Macintalk.h”    /* LSC’s header          */
#include “BasicLSC.h”/* supplied with QB     */
 
PUBLIC VOID main() /* see QB manual p. 448*/
{
SpeechErr err;   /* error code*/
SpeechHandle theSpeech;   /* pointer to speech*/
Handle spOut;    /* speech handle  */

INT16   TempFlag,len,type,rate,pitch;
 /* INT16 == short */
StringPtr message; 
LIBARGPTR valptr;

 SAVEREGS();/* Save BASIC’s A4 and A5 registers*/
 
 if ((err = SpeechOn(“”, &theSpeech)) != noErr) { return; }
 
 if ((type = GetNextLibArg(&valptr,&TempFlag)) != _INTARG) rate = 150;
 else rate = IntegerArg();
 SpeechRate(theSpeech,(int)rate);
  
 if ((type = GetNextLibArg(&valptr,&TempFlag)) != _INTARG) pitch = 95;
 else pitch = IntegerArg();
 SpeechPitch(theSpeech,(int)pitch,Natural);
 
 type = GetNextLibArg(&valptr,&TempFlag);
 if (type != _NULLARG) {
 if (type == _STRGARG) {
 if (TempFlag)
 FreeTempDesc((SDRECPTR)valptr);
 LoadStringDesc((SDRECPTR)valptr,&message,&len);
 spOut = NewHandle(0L);   /* allocate handle */
 Reader(theSpeech,message,(long)len,spOut);
 MacinTalk(theSpeech, spOut);
 SpeechOff(theSpeech);
 DisposHandle(spOut);
 } 
 }
 RESTREGS();/* Restore BASIC’s A4 and A5 registers*/
}

‘ QuickBASIC program tests SAY() pure-code resource routine.
‘ Copyright (C)1988 by William H. Ball for MacTutor™ magazine.

‘ Usage: SAY(rate,pitch,string-expression)

‘ Beware!  Will bomb with wrong number or type of arguments! 
‘ Make sure MacinTalk is on same volume, or SAY() won’t talk.

DEFINT a-z
LIBRARY “Speechd.lib”                        
    ON ERROR GOTO 9
    PRINT “Let’s test the SAY() routine:”
    GOSUB talk
9  LIBRARY CLOSE
END

talk:
    rate = 0            ‘ declare integer and string variables
    pitch = 0
    message$ = “”

    INPUT “Enter something to say: “;message$
    INPUT “Enter a rate of speech between 0 and 425”;rate
    INPUT “Enter a pitch of speech between 0 and 500”;pitch

    ‘ Just hit Return? Use a default value
    IF rate = 0 THEN rate = 100
    IF pitch = 0 THEN pitch = 100

    CALL SAY(rate,pitch,message$) 
    
    PRINT  “another?”
    message$=INPUT$(1)
    IF LEFT$(message$,1) = “y” THEN 
        GOSUB talk
    END IF
RETURN

 
AAPL
$100.89
Apple Inc.
-0.65
MSFT
$45.01
Microsoft Corpora
-0.17
GOOG
$577.86
Google Inc.
-2.34

MacTech Search:
Community Search:

Software Updates via MacUpdate

Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
BBEdit 10.5.12 - Powerful text and HTML...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more
Microsoft Office 2011 14.4.4 - Popular p...
Microsoft Office 2011 helps you create professional documents and presentations. And since Office for Mac 2011 is compatible with Office for Windows, you can work on documents with virtually anyone... Read more
TextWrangler 4.5.10 - Free general purpo...
TextWrangler is the powerful general purpose text editor, and Unix and server administrator's tool. Oh, and also, like the best things in life, it's free. TextWrangler is the "little brother" to... Read more
BitTorrent Sync 1.4.72 - Sync files secu...
BitTorrent Sync allows you to sync unlimited files between your own devices, or share a folder with friends and family to automatically sync anything. File transfers are encrypted. Your information... Read more
Cyberduck 4.5.2 - FTP and SFTP browser....
Cyberduck is a robust FTP/FTP-TLS/SFTP browser for the Mac whose lack of visual clutter and cleverly intuitive features make it easy to use. Support for external editors and system technologies such... Read more
Tinderbox 6.0.3 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more
Adobe Photoshop CC 2014 15.1.0 - Profess...
Photoshop CC 2014 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Photoshop customer). Photoshop CS6 is still available for purchase (... Read more
Adobe InDesign CC 2014 10.0.0.70 - Profe...
InDesign CC 2014 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous InDesign customer). InDesign CS6 is still available for purchase (... Read more
Adobe InCopy CC 2014 10.0.0.70 - Create...
InCopy CC 2014 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous InCopy customer). InCopy CS6 is still available for purchase (without a... Read more

Latest Forum Discussions

See All

Appointment With F.E.A.R. (Games)
Appointment With F.E.A.R. 1.02 Device: iOS Universal Category: Games Price: $2.99, Version: 1.02 (iTunes) Description: Travel back to the 1980s as a superpowered defender of justice in this all-new edition of Steve Jackson's... | Read more »
8bit Doves (Games)
8bit Doves 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: “I dove it” – Pocket Gamer “They told me I could be whatever I want, so I became a flying hobo” – Cactus Wolf “Let’s you crash into... | Read more »
Madden NFL Mobile Review
Madden NFL Mobile Review By Blake Grundman on August 26th, 2014 Our Rating: :: FINALLY GETS IT RIGHTUniversal App - Designed for iPhone and iPad It looks like EA Sports has finally discovered how to tread the line between free-to-... | Read more »
Superhero Workout Review
Superhero Workout Review By Jennifer Allen on August 26th, 2014 Our Rating: :: SUPERCHARGEDUniversal App - Designed for iPhone and iPad Want a workout with a kind of story tied into it? Superhero Workout is what you’re after.   | Read more »
Star Wars: Commander Review
Star Wars: Commander Review By Jennifer Allen on August 26th, 2014 Our Rating: :: CLASH OF THE FORCEUniversal App - Designed for iPhone and iPad It’s a lot like Clash of Clans, but the use of the Star Wars license means you don’t... | Read more »
Ridge Racer Slipstream Update Adds New C...
Ridge Racer Slipstream Update Adds New Cars, Challenges, and Tracks Posted by Ellis Spice on August 26th, 2014 [ permalink ] | Read more »
Infinity Blade III: Kingdom Come, the Fi...
Infinity Blade III: Kingdom Come, the Final Update, Set to Arrive September Posted by Ellis Spice on August 26th, 2014 [ permalink ] | Read more »
Furious Climber Review
Furious Climber Review By Jordan Minor on August 26th, 2014 Our Rating: :: REACH FOR THE STARSUniversal App - Designed for iPhone and iPad Furious Climber’s rough packaging can’t ruin its awesomely awkward gameplay   | Read more »
Don’t Forget the Milk – Let Heap, the Gr...
Don’t Forget the Milk – Let Heap, the Grocery List App, Help You Stay Organized While Shopping Posted by Jessica Fisher on August 26th, 2014 [ permalink ] | Read more »
MZR Review
MZR Review By Rob Thomas on August 26th, 2014 Our Rating: :: MAZED AND CONFUSEDUniversal App - Designed for iPhone and iPad How quickly can you escape from MZR’s neon mazes of doom? Why not find out for yourself?   | Read more »

Price Scanner via MacPrices.net

Life Inventory iOS Apps – Learn to Know Thyse...
James Hollender’s Life Inventory apps s are now on sale with 20% off thru Labor Day, 09/01/2014. This is a great opportunity to get started on that Moral Inventory you’ve been putting off doing for... Read more
Pocket Watch, LLC. Reveals Cloud Server For P...
Beaumont, Texas based Pocket Watch, LLC. has announced the availability of its new ActivePrint Cloud Server Powered by Raspberry Pi. With this small standalone box almost any USB printer or available... Read more
902it Simplifies Area Code Changes For Nova S...
The east coast Canadian provinces of Nova Scotia and Prince Edward Island are phasing in 10 digit telephone dialing, to be fully in place by November, in order to accommodate a second area code to... Read more
Boomerang iPad Stand Mounts Your iPad Anywher...
Boomerang, a Mountable Stand with Multiple Viewing Angles, is now available for iPad Air. Boomerang combines several functions that aim to expand your iPad’s potential in one, elegant product. The... Read more
Retina MacBook Pros available starting at $10...
The Apple Store has Apple Certified Refurbished 13″ and 15″ MacBook Pros available starting at $929. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros (4GB RAM/... Read more
Apple 27-inch Thunderbolt Display (refurbishe...
The Apple Store has Apple Certified Refurbished 27″ Thunderbolt Displays available for $799 including free shipping. That’s $200 off the cost of new models. Read more
Apple offers free $25 iTunes gift card with p...
The Apple Store is offering a free $25 iTunes Gift Card with the purchase of a $99 Apple TV for a limited time. Shipping is free. Read more
Apple’s 2014 Back to School promotion: $100 g...
 Apple’s 2014 Back to School promotion includes a free $100 App Store Gift Card with the purchase of any new Mac (Mac mini excluded), or a $50 Gift Card with the purchase of an iPad or iPhone,... Read more
iPhone Camera vs. Top Tier DSLR In Picture Qu...
If you’ve wondered just how good the iPhone 5s’s 8 megapixel rear-facing camera is in terms of image quality, The Verge has posted an excellent feature that should remove any ambiguity on the matter... Read more
Apple Announces Limited iPhone 5 Defective Ba...
Apple says it has determined that a very small percentage of iPhone 5 devices may suddenly experience shorter battery life or need to be charged more frequently. The affected iPhone 5 units were sold... Read more

Jobs Board

Senior Event Manager, *Apple* Retail Market...
…This senior level position is responsible for leading and imagining the Apple Retail Team's global event strategy. Delivering an overarching brand story; in-store, Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
Position Opening at *Apple* - Apple (United...
…customers purchase our products, you're the one who helps them get more out of their new Apple technology. Your day in the Apple Store is filled with a range of Read more
Position Opening at *Apple* - Apple (United...
**Job Summary** Being a Business Manager at an Apple Store means you're the catalyst for businesses to discover and leverage the power, ease, and flexibility of Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.