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

Latest Forum Discussions

See All

Whitethorn Games combines two completely...
If you have ever gone fishing then you know that it is a lesson in patience, sitting around waiting for a bite that may never come. Well, that's because you have been doing it wrong, since as Whitehorn Games now demonstrates in new release Skate... | Read more »
Call of Duty Warzone is a Waiting Simula...
It's always fun when a splashy multiplayer game comes to mobile because they are few and far between, so I was excited to see the notification about Call of Duty: Warzone Mobile (finally) launching last week and wanted to try it out. As someone who... | Read more »
Albion Online introduces some massive ne...
Sandbox Interactive has announced an upcoming update to its flagship MMORPG Albion Online, containing massive updates to its existing guild Vs guild systems. Someone clearly rewatched the Helms Deep battle in Lord of the Rings and spent the next... | Read more »
Chucklefish announces launch date of the...
Chucklefish, the indie London-based team we probably all know from developing Terraria or their stint publishing Stardew Valley, has revealed the mobile release date for roguelike deck-builder Wildfrost. Developed by Gaziter and Deadpan Games, the... | Read more »
Netmarble opens pre-registration for act...
It has been close to three years since Netmarble announced they would be adapting the smash series Solo Leveling into a video game, and at last, they have announced the opening of pre-orders for Solo Leveling: Arise. [Read more] | Read more »
PUBG Mobile celebrates sixth anniversary...
For the past six years, PUBG Mobile has been one of the most popular shooters you can play in the palm of your hand, and Krafton is celebrating this milestone and many years of ups by teaming up with hit music man JVKE to create a special song for... | Read more »
ASTRA: Knights of Veda refuse to pump th...
In perhaps the most recent example of being incredibly eager, ASTRA: Knights of Veda has dropped its second collaboration with South Korean boyband Seventeen, named so as it consists of exactly thirteen members and a video collaboration with Lee... | Read more »
Collect all your cats and caterpillars a...
If you are growing tired of trying to build a town with your phone by using it as a tiny, ineffectual shover then fear no longer, as Independent Arts Software has announced the upcoming release of Construction Simulator 4, from the critically... | Read more »
Backbone complete its lineup of 2nd Gene...
With all the ports of big AAA games that have been coming to mobile, it is becoming more convenient than ever to own a good controller, and to help with this Backbone has announced the completion of their 2nd generation product lineup with their... | Read more »
Zenless Zone Zero opens entries for its...
miHoYo, aka HoYoverse, has become such a big name in mobile gaming that it's hard to believe that arguably their flagship title, Genshin Impact, is only three and a half years old. Now, they continue the road to the next title in their world, with... | Read more »

Price Scanner via MacPrices.net

B&H has Apple’s 13-inch M2 MacBook Airs o...
B&H Photo has 13″ MacBook Airs with M2 CPUs and 256GB of storage in stock and on sale for up to $150 off Apple’s new MSRP, starting at only $849. Free 1-2 day delivery is available to most US... Read more
M2 Mac minis on sale for $100-$200 off MSRP,...
B&H Photo has Apple’s M2-powered Mac minis back in stock and on sale today for $100-$200 off MSRP. Free 1-2 day shipping is available for most US addresses: – Mac mini M2/256GB SSD: $499, save $... Read more
Mac Studios with M2 Max and M2 Ultra CPUs on...
B&H Photo has standard-configuration Mac Studios with Apple’s M2 Max & Ultra CPUs in stock today and on Easter sale for $200 off MSRP. Their prices are the lowest available for these models... Read more
Deal Alert! B&H Photo has Apple’s 14-inch...
B&H Photo has new Gray and Black 14″ M3, M3 Pro, and M3 Max MacBook Pros on sale for $200-$300 off MSRP, starting at only $1399. B&H offers free 1-2 day delivery to most US addresses: – 14″ 8... Read more
Department Of Justice Sets Sights On Apple In...
NEWS – The ball has finally dropped on the big Apple. The ball (metaphorically speaking) — an antitrust lawsuit filed in the U.S. on March 21 by the Department of Justice (DOJ) — came down following... Read more
New 13-inch M3 MacBook Air on sale for $999,...
Amazon has Apple’s new 13″ M3 MacBook Air on sale for $100 off MSRP for the first time, now just $999 shipped. Shipping is free: – 13″ MacBook Air (8GB RAM/256GB SSD/Space Gray): $999 $100 off MSRP... Read more
Amazon has Apple’s 9th-generation WiFi iPads...
Amazon has Apple’s 9th generation 10.2″ WiFi iPads on sale for $80-$100 off MSRP, starting only $249. Their prices are the lowest available for new iPads anywhere: – 10″ 64GB WiFi iPad (Space Gray or... Read more
Discounted 14-inch M3 MacBook Pros with 16GB...
Apple retailer Expercom has 14″ MacBook Pros with M3 CPUs and 16GB of standard memory discounted by up to $120 off Apple’s MSRP: – 14″ M3 MacBook Pro (16GB RAM/256GB SSD): $1691.06 $108 off MSRP – 14... Read more
Clearance 15-inch M2 MacBook Airs on sale for...
B&H Photo has Apple’s 15″ MacBook Airs with M2 CPUs (8GB RAM/256GB SSD) in stock today and on clearance sale for $999 in all four colors. Free 1-2 delivery is available to most US addresses.... Read more
Clearance 13-inch M1 MacBook Airs drop to onl...
B&H has Apple’s base 13″ M1 MacBook Air (Space Gray, Silver, & Gold) in stock and on clearance sale today for $300 off MSRP, only $699. Free 1-2 day shipping is available to most addresses in... Read more

Jobs Board

Medical Assistant - Surgical Oncology- *Apple...
Medical Assistant - Surgical Oncology- Apple Hill Location: WellSpan Medical Group, York, PA Schedule: Full Time Sign-On Bonus Eligible Remote/Hybrid Regular Apply Read more
Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Cashier - *Apple* Blossom Mall - JCPenney (...
Cashier - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Blossom Mall Read more
Operations Associate - *Apple* Blossom Mall...
Operations Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Business Analyst | *Apple* Pay - Banco Popu...
Business Analyst | Apple PayApply now " Apply now + Apply Now + Start applying with LinkedIn Start + Please wait Date:Mar 19, 2024 Location: San Juan-Cupey, PR Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.