TweetFollow Us on Twitter

CLR ToolLib
Volume Number:2
Issue Number:6
Column Tag:Basic School

Add Three New Libraries to your CLR ToolLib

By Dave Kelly, Editorial Board

Hello!! This month MacTutor features three new MS BASIC libraries to add to your CLR ToolLib collection. These routines were written by Clear Lake Research for use on future versions of BASIC library disks. To make it easy to add them to your ToolLib Libraries, we are providing a statement adder program to write the hex codes directly to your disk. It will require that you already have CLR ToolLib in order to run the Statement Adder program as the resource routines are used to save the new libraries.

The new libraries are: RealFont, KbEquiv and setItemStyle. RealFont is a Macintosh Font Manager function that returns TRUE if the font having the font number fontNum is available in the given size in a resource file, or returns FALSE if the font has to be scaled to that size. The syntax to call the CLR Realfont library is:

Realfont fontNum%,size%,boolean%

The following example shows the use of RealFont:

LIBRARY"NewLibraries"
fontNum%=4    'Monaco font
size%=18
boolean%=0
RealFont fontNum%,size%,boolean%
PRINT boolean%

Each font type is represented by a different font number, in this case a four represents the Monaco font. The size we are checking is 18. If size 18 exists in the Monaco font the the variable boolean% returns a TRUE, otherwise if the font does not exist in size 18 then a FALSE is returned. This routine is useful to create menus which include the size of fonts to be used by your program. Some font numbers can be found on page 290 of your MS BASIC manual.

KbEquiv may be used to add keyboard equivalents to your menus. MS BASIC menus do no provide a way to add keyboard equivalents to your menus. An alternative is to trap all keyboard input and branch to the appropriate subroutine, but that is would require a separate routine which is not associated with the menu error trapping. Usually, calls to the menu manager would indicate which keys are to be used as keyboard equivalents to the menus. However, MS BASIC did not provide a way to use equivalent keys. The syntax for the KbEquiv statement is:

KbEquiv Menunumber%,itemnumber%,key$

where Menunumber% is the menu and itemnumber% is the menu item where the key will be added. The variable key$ is the one character key which will be used as the equivalent key. The routine implementation is shown in the Menu Styles Demo later in this article.

A warning: The KbEquiv routine does not yet check if the menu indicated actually exists. Therefore be sure that you know your menu has already been created before calling this routine. Unpredictable results will occur. The future released version of this routine from CLR will check for the menu before setting up the keyboard equivalent.

The third routine, setItemStyle, is also a member of the Menu Manager routines. SetItemStyle changes the character style of the given menu item to the indicated character style. The syntax is:

setItemStyle Menunumber%,itemnumber%,style%

where menunumber% is the number of the menu and itemnumber% is the number of the item in that menu. Style% is an integer number representing the style of the menu item. Style% is the same as the values used to represent the attributes of the TEXTFACE statement. The bit for each attribute is listed on page 291 of your MS BASIC manual. (Example: bold, shadow has a value of 17; Italic and underlined has a value of 12). The Menu Styles Demo demonstrates how to set up your own style menu.

To install your new libraries run the statement adder program listed below. The KbEquiv, Real Font and setItemStyle routines will be added to a new file named NewLibraries. This newly created file will be a CLR library file but without the LibInit function; just the three new statements we've added this month. Next you will need to run the Statement Mover program which is provided with the CLR Libraries disk. Statement Mover is a handy BASIC program which will copy libraries from one file to another. In fact, I recommend that you copy the libraries that you are using to your BASIC program file (i. e. add the library resource to your BASIC program). The BASIC program is stored in the data fork of the file, and the resource fork will then contain the libraries used by the program. Use Satement Mover to copy the LibInit routine to the NewLibraries file! LibInit is needed by BASIC to be sure that the Library file is a MS BASIC Library. LibInit must be in the same file as each of the libraries that you use. Of course if you choose to move the NewLibaries file into your already existing ToolLib file, then you don't need the extra LibInit function. In fact, if you can spare the space, you might want to merge all the library routines into a single ToolLib file using the Statement Mover program. Here is a review list of everything CLR has published:

CLR LIBRARIES

ToolLib Original CLR ROM Interface

SpeechLib Speech stuff for MacinTalk

MathStatLib Math and Statistics routines

NewLibraries Output of this month's program

The ToolLib and MathStatLib are available on the CLR Utilities Disk from the MacTutor Mail Order Store for $50. The SpeechLib is available seperately on the CLR Speech disk for $20. We tried to encourage CLR to combine the two products to avoid customer confusion, but they were unable to do so.

The Menu Styles Demo will try to open the NewLibraries file, so you should be sure that LibInit is moved to the New Libraries file or that the program calls the name of the Library containing the setItemStyle and KbEquiv routines (RealFont is not used in the demo).


'Statement Adder 
' for RealFont, KbEquiv, and setItemStyle libraries
'By Clear Lake Research and David Kelly
'© Clear Lake Research, Inc.
'used with permission
'NOTE: The hex codes for RealFont, KbEquiv, setItemStyle
'are copyrighted by Clear Lake Research. 
'By using Statement Adder you may create these libraries
'then add them to your ToolLib Libraries using 
'Statement Mover (provided with CLR ToolLib).
'This program requires ToolLib and MS Basic 2.0 or 2.1
'Run this program only once.

LIBRARY"ToolLib"
DIM p%(120)
DEFINT i,j
FOR j=1 TO 3
    ERASE p%
    REM  read hex code
    READ nm$
    READ id%
    READ numofbytes%
    DIM p%(numofbytes%)
    FOR i%= 1 TO numofbytes%
        READ p%(i%)
   NEXT i%
 
fileRefNum%=0:H!=0
openResFile"NewLibraries",fileRefNum%        'openResFile
saveArray fileRefNum%,p%(1),numofbytes%*2,id%,nm$    
                                   'save as type GNRL'
GetNamedRes fileRefNum%,"GNRL",nm$,H!   'get resource
detachRes H!                                   'Now it is not a resource
AddRes fileRefNum%,H!,"CODE",id%,nm$       'type CODE
releaseRes H!                                               
GetNamedRes fileRefNum%,"GNRL",nm$,H!     'Not needed
removeRes fileRefNum%,H!                                    'so remove 
it
REM early printings of the manual had the syntax of
REM removeRes wrong. The first argument was left off.

CloseResFile fileRefNum%

REM make sure libinit is in the file before running it!

NEXT j  'do next of three functions
PRINT"Done" 'end of program.

'setItemStyle Library 
DATA "setItemStyle" :REM name of resource nm$
DATA 5001: REM id number id%
DATA 33: REM number of bytes
DATA &H8,&H0,&H4EAD,&H2A,&HC00
DATA &H3,&H662C,&H3A12,&H5245,&H4EAD
DATA &H2A,&HC00,&H3,&H661E,&H3612
DATA &H4EAD,&H2A,&HC00,&H3,&H6612
DATA &H3812,&H42A7,&H3F05,&HA949,&H3F03
DATA &H3F04,&HA942,&H7000,&H4E75,&H740D
DATA &H7000,&H4EAD,&H42

'RealFont Library  
DATA "RealFont": REM name of resource nm$
DATA 703: REM id number id%
DATA 37: REM number of bytes
DATA &H8,&H0,&H4EAD,&H2A,&HC00
DATA &H3,&H6632,&H3812,&H4EAD,&H2A
DATA &HC00,&H3,&H6626,&H3A12,&H4EAD
DATA &H2A,&HC40,&H3,&H661A,&H4267
DATA &H3F04,&H3F05,&HA902,&H301F,&H6708
DATA &H34BC,&HFFFF,&H7000,&H4E75,&H4252
DATA &H7000,&H4E75,&H7000,&H303C,&HD
DATA &H4EAD,&H42

'KbEquiv Library 
DATA "KbEquiv":REM name of resource nm$
DATA 191:REM id number id%
DATA 58: REM number of bytes
DATA &H0,&H1,&H4EAD,&H2A,&HC00
DATA &H3,&H665E,&H3812,&H5244,&H4EAD
DATA &H2A,&HC00,&H3,&H6650,&H3A12
DATA &H4EAD,&H2A,&HC00,&H2,&H6644
DATA &H264A,&H4EAD,&H82,&H4EAD,&H8A
DATA &H1613,&H42A7,&H3F04,&HA949,&H2657
DATA &H2653,&H303C,&HE,&H1233,&H0
DATA &H5241,&HD041,&H5345,&H6008,&H1233
DATA &H0,&H5A41,&HD041,&H51CD,&HFFF6
DATA &H1233,&H0,&H5441,&HD041,&H1783
DATA &H0,&HA948,&H7000,&H4E75,&H740D
DATA &H7000,&H4EAD,&H42
=========================================

'Menu Styles Demo
'©MacTutor 1986
'by Dave Kelly
'With special thanks to Clear Lake Research
'for allowing use of KbEquiv, RealFont,
'and setItemStyle Libraries

LIBRARY"NewLibraries"
TEXTMODE 1
DIM st%(10)

MENU 6,0,1,"Style"
MENU 6,1,1,"Plain"
MENU 6,2,1,"Bold"
MENU 6,3,1,"Italic"
MENU 6,4,1,"Underline"
MENU 6,5,1,"Outline"
MENU 6,6,1,"Shadow"
MENU 6,7,1,"Condensed"
MENU 6,8,1,"Extended"
MENU 6,9,0,"-"
MENU 6,10,1,"Quit"

FOR i% = 0 TO 6
    st%(i%+2)=2^i%
NEXT i%

'Variable    Value            Attribute
'    st%(1)      0                Plain Text
'    st%(2)      1                Bold
'    st%(3)      2                Italic
'    st%(4)      4                Underlined
'    st%(5)      8                Outlined
'    st%(6)     16                Shadow
'    st%(7)      32               Condensed 
 '(less space between characters)
'    st%(8)      64               Extended 
 '(more space between characters)

'Set up menu styles
FOR i%= 2 TO 8
    setItemStyle 6,i%,st%(i%)
    st%(i%)=0
NEXT i%

'Set up keyboard equivalents
FOR i% = 1 TO 6
    READ A$
    KbEquiv 6,i%,A$
NEXT i%
 KbEquiv 6,10,"Q"
 
DATA P,B,I,U,O,S

ON MENU GOSUB MenuEvent
MOVETO 10,50
PRINT "Hello World!"
Style%=0
MENU ON
loop:
GOTO loop

MenuEvent:
menunumber%=MENU(0):menuitem%=MENU(1):MENU
IF menunumber%=6 THEN ItemEvent
RETURN

ItemEvent:
ON menuitem% GOSUB plain, bold, Italic, Underlined,      Outlined, Shadow, 
Condensed, Extended,, quit
RETURN

quit:
MENU RESET
END

plain:
Style%=0
MENU 6,1,2
FOR i%=2 TO 8
    MENU 6,i%,1
    st%(i%)=0
NEXT i%
GOSUB printscreen
RETURN

printscreen:
TEXTFACE Style%
CLS
MOVETO 10,50
PRINT "Hello, World!"
RETURN

bold:
IF st%(2)=0 THEN st%(2)=1 ELSE st%(2)=0
IF st%(2)=0 THEN MENU 6,2,1 ELSE MENU 6,2,2

Computestyle:
MENU 6,1,1
Style%=0
FOR i%=1 TO 8
    Style%=Style%+st%(i%)
NEXT i%
GOSUB printscreen
RETURN

Italic:
IF st%(3)=0 THEN st%(3)=2 ELSE st%(3)=0
IF st%(3)=0 THEN MENU 6,3,1 ELSE MENU 6,3,2
GOTO Computestyle

Underlined:
IF st%(4)=0 THEN st%(4)=4 ELSE st%(4)=0
IF st%(4)=0 THEN MENU 6,4,1 ELSE MENU 6,4,2
GOTO Computestyle

Outlined:
IF st%(5)=0 THEN st%(5)=8 ELSE st%(5)=0
IF st%(5)=0 THEN MENU 6,5,1 ELSE MENU 6,5,2
GOTO Computestyle

Shadow:
IF st%(6)=0 THEN st%(6)=16 ELSE st%(6)=0
IF st%(6)=0 THEN MENU 6,6,1 ELSE MENU 6,6,2
GOTO Computestyle

Condensed:
IF st%(7)=0 THEN st%(7)=32 ELSE st%(7)=0
IF st%(7)=0 THEN MENU 6,7,1 ELSE MENU 6,7,2
GOTO Computestyle

Extended:
IF st%(8)=0 THEN st%(8)=64 ELSE st%(8)=0
IF st%(8)=0 THEN MENU 6,8,1 ELSE MENU 6,8,2
GOTO Computestyle

Using HFS with MS BASIC and other applications

The release of the Apple Macintosh plus has created a few compatability problems for MS BASIC users. It is rumored that Microsoft is in the process of fixing MS BASIC so that it will be completely compatable with HFS. The following tips may help in getting around some of the problems until a more permanent solution is released (i.e. a new verison of MS BASIC).

• Problem: MS BASIC can't find files in folders.

Solution: Use the HFS.FIX program by Andy Hertfeld. It will add a resource to your system to help search through folders to find the files you want. This will work in 95% of the cases. In some cases BASIC must be in the root volume with the application. This is true for use of some CLR Libraries. We have not found any CLR routines that do not work with HFS. The problems that exist are related to the BASIC interpreter, not the Libraries. If you suspect a problem, try placing Basic, the application file and the libraries it uses in the root directory for that disk; ie not in any folder. Another solution would be to use MFS formated disks for your BASIC programming. This is NOT the preferred solution, however, it will be sure to work.

• Notes on using the RAM Cache with any software: I recommend that you NEVER change the cache from within any application. Since most software doesn't keep track of the cache, it can cause some catastrophic results. When using Switcher, be sure to turn off the cache completely. Switcher may allocate the same memory that the cache is using (without knowing it); the memory contention will surely cause a disaster. On the Mac Plus there is 850278 bytes of free space left in MS BASIC's data segment with the cache turned off. With a 128K cache on there is still 719214 bytes left. I have not seen any problems in using the cache with BASIC. In fact, your program will run much faster with the cache on. The size of the cache is arbitrary.

• Initializing single sided disks as double sided 800K disks: We take no responsibility if you lose any data when using single sided disks as double sided, however, those that have been re-initializing their 400K disks have not had any noticeable problems with any of them. The differance between single and double sided disks: The side that you use is polished and has been verified before shipping. Typically, both single and double sided disks are manufactured the same way, only the QA checks and certification are missing, meaning you can usually get away with it.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Is there cross-platform play in slither....
So you've sunken plenty of hours into crawling around in slither.io on your iPhone or iPad. You've got your stories of tragedy and triumph, the times you coiled four snakes at one time balanced out by the others when you had a length of more than... | Read more »
Rodeo Stampede guide to running a better...
In Rodeo Stampede, honing your skills so you can jump from animal to animal and outrun the herd as long as possible is only half the fun. Once you've tamed a few animals, you can bring them home with you. [Read more] | Read more »
VoxSyn (Music)
VoxSyn 1.0 Device: iOS Universal Category: Music Price: $6.99, Version: 1.0 (iTunes) Description: VoxSyn turns your voice into the most flexible vocal sound generator ever. Instantly following even subtle modulations of pitch and... | Read more »
Catch Battleplans on Google Play from Ju...
Real-time strategy title Battleplans is due for release on Google Play on June 30th, following its release for iOS systems last month. With its simple interface and pretty graphics, the crowd-pleaser brings a formerly overlooked genre out for the... | Read more »
iDoyle: The interactive Adventures of Sh...
iDoyle: The interactive Adventures of Sherlock Holmes - A Scandal in Bohemia 1.0 Device: iOS Universal Category: Books Price: $1.99, Version: 1.0 (iTunes) Description: Special Release Price $1.99 (Normally $3.99) | Read more »
Five popular free apps to help you slim...
Thanks to retail and advertising, we're used to thinking one season ahead. Here we are just a week into the summer and we're conditioned to start thinking about the fall. [Read more] | Read more »
How to ride longer and tame more animals...
It's hard to accurately describe Rodeo Stampede to people who haven't seen it yet. It's like if someone took Crossy Roadand Disco Zoo and put them in a blender, yet with a unique game mechanic that's still simple and fun for anyone. [Read more] | Read more »
Teeny Titans - A Teen Titans Go! Figure...
Teeny Titans - A Teen Titans Go! Figure Battling Game 1.0.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.0 (iTunes) Description: Teeny Titans, GO! Join Robin for a figure battling RPG of epic proportions! TEENY... | Read more »
NinjAwesome: Tips and tricks to be a mor...
Sorry about that headline, but I'm going to go ahead and assume that GameResort would not have named its game NinjAwesome without expecting some of that. It is, in fact, pretty awesome the way it combines an endless runner and old school arcade... | Read more »
Into Mirror (Games)
Into Mirror 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: "Is all that we see or seem, but a dream within a dream?"- Edgar Allan Poe New game by Lemon Jam Studio, the team behind Pursuit... | Read more »

Price Scanner via MacPrices.net

13-inch Retina MacBook Pros on sale for up to...
B&H Photo has 13″ Retina MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1179 $120 off MSRP - 13″ 2.7GHz/... Read more
Apple refurbished Mac minis available for up...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
15-inch Retina MacBook Pros on sale for $200-...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 $200 off MSRP - 15″ 2.5GHz... Read more
Mac minis on sale for up to $100 off MSRP
B&H Photo has Mac minis on sale for up to $100 off MSRP including free shipping plus NY sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP - 2.8GHz Mac mini... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $300 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799.... Read more
Apple refurbished Mac minis available for up...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
ABBYY TextGrabber: 1,000,000 Installs in 5 Da...
ABBYY, an international OCR technologies provider, has announced that their image-to-text application TextGrabber, got installed 1,000,000 times in just five days while being featured by the App... Read more
New SkinIt Waterproof Case For iPhone 6
With its impact and waterproof design, the Skinit Waterproof case provides security and protection to guarantee your phone will get you through even the most demanding outdoor conditions. The impact-... Read more

Jobs Board

*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
Music Marketing Lead, iTunes & *Apple*...
…Music Marketing Lead is responsible for developing robust marketing campaigns and programs for Apple Music and iTunes across the whole of Apple ecosystem. This Read more
*Apple* Valley Medical Clinic is Hiring - AP...
Apple Valley Medical Clinic is Hiring! Apple Valley Medical Clinic is an independently owned practice operating a Family Medicine Clinic, a 24/7 Urgent Care, Read more
*Apple* New Products Testers Needed - Apple...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.