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

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

GarageSale 7.0.7 - Create outstanding eB...
GarageSale is a slick, full-featured client application for the eBay online auction system. Create and manage your auctions with ease. With GarageSale, you can create, edit, track, and manage... Read more
SpamSieve 2.9.28 - Robust spam filter fo...
SpamSieve is a robust spam filter for major email clients that uses powerful Bayesian spam filtering. SpamSieve understands what your spam looks like in order to block it all, but also learns what... Read more
Thunderbird 45.7.1 - Email client from M...
As of July 2012, Thunderbird has transitioned to a new governance model, with new features being developed by the broader free software and open source community, and security fixes and improvements... Read more
Opera 43.0.2442.991 - High-performance W...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more
OnyX 3.2.4 - Maintenance and optimizatio...
OnyX is a multifunction utility that you can use to verify the startup disk and the structure of its system files, to run miscellaneous maintenance and cleaning tasks, to configure parameters in the... Read more
VueScan 9.5.71 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
Slack 2.5.1 - Collaborative communicatio...
Slack is a collaborative communication app that simplifies real-time messaging, archiving, and search for modern working teams. Version 2.5.1: New The way we load teams you don't view often has been... Read more
HandBrake 1.0.3 - Versatile video encode...
HandBrake is a tool for converting video from nearly any format to a selection of modern, widely supported codecs. Features Supported Sources VIDEO_TS folder, DVD image or real DVD (unencrypted... Read more
Vivaldi 1.7.735.46 - An advanced browser...
Vivaldi is a browser for our friends. In 1994, two programmers started working on a web browser. Our idea was to make a really fast browser, capable of running on limited hardware, keeping in mind... Read more
Vivaldi 1.7.735.46 - An advanced browser...
Vivaldi is a browser for our friends. In 1994, two programmers started working on a web browser. Our idea was to make a really fast browser, capable of running on limited hardware, keeping in mind... Read more

Mudd Masher arrives this week
Atooi Games, the minds behind Totes the Goat and Mutant Mudds, have a new game in the works -- Mudd Masher. The game, a hybrid of the independent studio's first two titles, is expected to launch this week on March 2. [Read more] | Read more »
The best sales on the App Store this wee...
The App Store has quite an exciting lineup of discount games this week that range across a variety of genres. It's a great opportunity to catch up on some of the premium games you may have been holding off on -- and some you can even grab for free... | Read more »
The best new games we played this week
Ah, here we are again at the close of another busy week. Don't rest too easy, though. We had a lot of great new releases in mobile games this week, and now you're going to have to spend all weekend playing them. That shouldn't be too much of a... | Read more »
Rollercoaster Tycoon Touch Guide: How to...
| Read more »
Rabbids Crazy Rush Guide: How to unlock...
The Rabbids are back in a new endless running adventure, Rabbids Crazy Rush. It's more ridiculous cartoon craziness as you help the little furballs gather enough fuel (soda) to get to the moon. Sure, it's a silly idea, but everyone has dreams --... | Read more »
Tavern Guardians (Games)
Tavern Guardians 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Tavern Guardians is a Hack-and-Slash action game played in the style of a match-three. You can experience high pace action... | Read more »
Slay your way to glory in idle RPG Endle...
It’s a golden age for idle games on the mobile market, and those addictive little clickers have a new best friend. South Korean developer Ekkorr released Endless Frontier last year, and players have been idling away the hours in the company of its... | Read more »
Tiny Striker: World Football Guide - How...
| Read more »
Good news everyone! Futurama: Worlds of...
Futurama is finding a new home on mobile in TinyCo and Fox Interactive's new game, Futurama: Worlds of Tomorrow. They're really doing it up, bringing on board Futurama creator Matt Groening along with the original cast and writers. TinyCo wants... | Read more »
MUL.MASH.TAB.BA.GAL.GAL (Games)
MUL.MASH.TAB.BA.GAL.GAL 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ENDLESS UPGRADES. CONSTANT DANGER. ANCIENT WISDOM. BOUNCY BALLS. Launch Sale, 40% OFF for a very limited time!!! MUL.... | Read more »

Price Scanner via MacPrices.net

13-inch 2.7GHz Retina MacBook Pro on sale for...
B&H Photo has the 2015 13″ 2.7GHz/128GB Retina Apple MacBook Pro on sale for $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A): $... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Newegg has the 13″ 1.6GHz/256GB MacBook Air (MMGG2LL/A) on sale for $1029.99 including free shipping. Their price is $170 off MSRP, and it’s the lowest price available for this model. Choose Newegg... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more
27-inch 3.3GHz 5K iMac on sale for $2099, sav...
B&H Photo has the 27″ 3.3GHz 5K Apple iMac on sale for $2099.99 including free shipping plus NY sales tax only. Their price is $200 off MSRP. Amazon also has the 27″ 3.3GHz 5K iMac on sale for $... Read more
21-inch iMacs on sale for up to $111 off MSRP
B&H Photo has select 21″ Apple iMacs on sale for up to $110 off MSRP, each including free shipping plus NY sales tax only: - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1.6GHz iMac: $999 $100 off... Read more
12-inch 1.2GHz Retina MacBooks on sale for $2...
Newegg has the 12″ 1.2GHz Space Gray Retina MacBook (sku MLH82LL/A) on sale for $1349.99 including free shipping. Their price is $250 off MSRP, and it’s the lowest price available for this model.... Read more
13-inch MacBook Airs on sale for $100 off MSR...
B&H Photo has 13″ MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/128GB MacBook Air (MMGF2LL/A): $899 $100 off MSRP - 13″ 1.6GHz/... Read more
9-inch 32GB Silver iPad Pro on sale for $549,...
B&H Photo has the 9.7″ 32GB Silver Apple iPad Pro on sale for $549 for a limited time. Shipping is free, and B&H charges NY sales tax only. Their price is $50 off standard MSRP for this model... Read more
13-inch 2.0GHz Apple MacBook Pros on sale for...
B&H has the non-Touch Bar 13″ 2.0GHz MacBook Pros in stock today and on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray (... Read more
15-inch Touch Bar MacBook Pros on sale for up...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 55676865 Los Angeles, California, United States Posted: Feb. 22, 2017 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
Programmer/Editor *Apple* Music Dance - App...
# Programmer/Editor Apple Music Dance Job Number: 55565967 Culver City, California, United States Posted: Feb. 23, 2017 Weekly Hours: **Job Summary** Apple Music Read more
Digital Marketing Specialist - *Apple* iClo...
# Digital Marketing Specialist - Apple iCloud Job Number: 54729233 Culver City, California, United States Posted: Feb. 22, 2017 Weekly Hours: 40.00 **Job Summary** Read more
Marketing Specialist, iTunes & *Apple*...
# Marketing Specialist, iTunes & Apple Music Job Number: 55704205 Culver City, California, United States Posted: Feb. 23, 2017 Weekly Hours: 40.00 **Job Summary** Read more
*Apple* Wireless Lead - T-ROC - The Retail O...
…of knowledge in wireless sales and activations to the Beautiful and NEW APPLE Experiencestore within MACYS. THIS role, APPLE Wireless Lead, isbrandnewas MACYS Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.