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

MacUpdate Desktop 6.0.8 - Search and ins...
MacUpdate Desktop 6 brings seamless 1-click installs and version updates to your Mac. With a free MacUpdate account and MacUpdate Desktop 6, Mac users can now install almost any Mac app on macupdate.... Read more
BitTorrent Sync 2.1.1 - Sync files secur...
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
Quicksilver 1.3.0 - Application launcher...
Quicksilver is a light, fast and free Mac application that gives you the power to control your Mac with keystrokes alone. Quicksilver allows you to find what you need quickly and easily, then act... Read more
iWatermark Pro 1.72 - Easily add waterma...
iWatermark Pro is the essential watermarking app for professional, business, and personal use. iWatermark, is the number 1 and only watermarking tool available for all 4 platforms iPhone/iPad, Mac,... Read more
RapidWeaver 6.3 - Create template-based...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
Adobe Photoshop CC 2015 16.0.1 - Profess...
Photoshop CC 2015 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
Together 3.4.6 - Store and organize all...
Together helps you organize your Mac, giving you the ability to store, edit and preview your files in a single clean, uncluttered interface. Smart storage. With simple drag-and-drop functionality,... Read more
Monosnap 3.1.0 - Versatile screenshot ut...
Monosnap lets you capture screenshots, share files, and record video and .gifs! Capture: Capture full screen, just part of the screen, or a selected window Make your crop area pixel perfect with... Read more
Cocktail 8.5.1 - General maintenance and...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Vienna 3.0.6 :5eaf312: - RSS and Atom ne...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more

Five Nights at Freddy's 4 has Been...
In keeping with tradition, Five Nights at Freddy's 4 has made its way to the App Store with zero warning fanfare. Honestly I'd be disappointed it if happened any other way at this point. [Read more] | Read more »
Doom & Destiny Advanced (Games)
Doom & Destiny Advanced 2.3.4.0 Device: iOS Universal Category: Games Price: $.99, Version: 2.3.4.0 (iTunes) Description: ---SUPER GIGA LAUNCH DISCOUNT! Get it now for cheap or pay more later!---An additional 143 MB download is... | Read more »
Five Nights at Freddys 4 (Games)
Five Nights at Freddys 4 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: This time, the terror has followed you home. | Read more »
This Week at 148Apps: July 27-31, 2015
Winding Down July With 148Apps How do you know what apps are worth your time and money? Just look to the review team at 148Apps. We sort through the chaos and find the apps you're looking for. The ones we love become Editor’s Choice, standing out... | Read more »
You'll Want to Keep an Eye Out for...
If you're the kind of person who had fun hunting down and completing all the codex puzzles in Assassin's Creed 2, then are you ever in for a treat. The Guides looks like it's going to be a very robust collection of similarily odd, seemingly... | Read more »
Vivid Games has Announced Real Boxing 2...
The original Real Boxing was a pretty impressive bit of fisticuffs, but if the trailer Vivid Games is showing off for GamesCom is any indication Real Boxing 2 is going to be even better. [Read more] | Read more »
PAC-MAN Championship Edition DX - Tips,...
[Read more] | Read more »
Card King: Dragon Wars - Tips, Tricks an...
[Read more] | Read more »
Pac-Man Championship Edition DX has brou...
Bandai Namco has released Pac-Man Championship Edition DX on iOS and Android, which features the classic arcade gameplay that we've all grown to love. Pac-Man Championship Edition DX can be enjoyed in much shorter bursts than the arcade versions... | Read more »
Cosmonautica (Games)
Cosmonautica 1.1 Device: iOS Universal Category: Games Price: $6.99, Version: 1.1 (iTunes) Description: Cast off! Are you ready for some hilarious adventures in outer space? | Read more »

Price Scanner via MacPrices.net

Back to School Time: Outline for iPad Goes Fr...
Sacramento, California based Gorillized Corporation has announced a “Back to School” offer; the iPad version of Outline goes free for August 3-5. Outline is a smart digital notebook for iPad that... Read more
MacBook 12 Retina Pundit’s New Favorite Mac
If you’re eyeing the purchase of a new 12-inch Retina MacBook, but wondering if you can live with a single USB-C port, 2011-level CPU performance, and the unorthodox keyboard, you should find... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
Adorama has the 2015 15″ 2.2GHz Retina MacBook Pro on sale for $184 off MSRP including free shipping plus NY & NJ sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1815 $184 off Adorama will also... Read more
PDF Element Tool Kit For PDF For Windows 10,...
South Surrey, British Columbia based software developer Wondershare has posted an interesting infographic tracking the development of Microsoft’s flagship Windows operating system over the years,... Read more
27-inch 3.5GHz 5K iMac on sale for $81 off MS...
Adorama has the 27″ 3.5GHz 5K iMac on sale for $2218, $81 off MSRP, including a free copy of Apple’s 3-Year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax in NY & NJ... Read more
Back-to-School with Tablet and Smartphone Acc...
Belkin helps you prepare for the coming school year with a wide variety of the latest mobile and tablet accessories to outfit both grade school and college students. The line-up includes charging... Read more
11-inch MacBook Airs on sale for $100 off MSR...
Best Buy has 11-inch MacBook Airs on sale for $100 off MSRP. Choose free shipping or free local store pickup (if available). Sale prices for online orders only, in-store prices may vary: - 11″ 1.6GHz... Read more
iPad Air 2 on sale for up to $100 off MSRP
Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for a limited time. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Sale! 13-inch MacBook Pros on sale for $100 o...
B&H Photo has 13″ MacBook Pros on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.5GHz/500GB MacBook Pro: $999.99 save $100 - 13″ 2.7GHz/128GB Retina... Read more
Sale! Save $100 on 13-inch MacBook Airs this...
B&H Photo has the 13″ 1.6GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY tax only. Their price is $100 off MSRP, and it’s the lowest price available for this model.... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Infrastructure Engineer - *Apple* /Mac - Hil...
Infrastructure Engineer - Apple /Mac Job Code: 1608 # of openings: 1 Description Our fortune 500 client is looking to hire an experienced Infrastructure Engineer to join Read more
Executive Administrative Assistant, *Apple*...
…supporting presentation development for senior leadership. * User experience with Apple hardware and software is preferred. Additional Requirements The following list Read more
*Apple* Bus Company is now hirin - Apple Bus...
Apple Bus Company is now hiring school bus drivers in the Pettis County area. Class B CDL preferred. Free training provided. No nights or weekends required. Flexible Read more
*Apple* Certified Mac Technician - Updated 6...
…and friendly, hands-on technical support to customers troubleshooting and repairing Apple /Mac products with courtesy, speed and skill. Use your problem-solving skills Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.