TweetFollow Us on Twitter

ZBASIC Routines
Volume Number:5
Issue Number:7
Column Tag:BASIC School

Useful Routines For ZBASIC

By Dave Kelly, MacTutor Editorial Board

Hello! Are any of you tired of switching back and forth between versions of Basic? Although ZBasic still holds an edge over other Basics in the competition, there are benefits in favor of using other Basics from time to time. The frustrating thing about it is when you try to use a command, syntax, or subroutine with the wrong version of Basic. It’s easy to do if you switch back and forth very often. It’s also frustrating when your favorite function isn’t implemented the same (or not at all) from what you are used to.

Charles Stricklin has sent in three functions which he wished were already implemented in ZBasic. These have been designed to add to your ZBasic library of routines. The GETINDSTRING$ function works similarly to the GETINDRESOURCE function in the Macintosh toolbox. This routine allows easy retrieval of strings stored in a ‘STR#’ resource.

The GETRESWINDOW and GETRESMENU functions will get WIND and MENU resource data and interpret the resource to open up windows and setup menus using standard ZBasic statements. This is useful if you would like to use resources like ‘real’ applications do.

The program demonstrates the use of these functions. In developing this and through debugging the functions I am now even more aware of the missing capability to include resources from a resource file when compiling with ZBasic. This is a deficiency which I would hope Zedcor has as #1 on their ‘TO DO’ list. Charles also listed this problem as high priority and wrote a short routine as a work around for the meantime:

debugging = -1: ‘(or TRUE if defined previously)TRUE during development.

“OpenResourceFork” :’used in development only
 LONG IF debugging :’we’re still writing this
 CALL PARAMTEXT(“Do you want to use a specific resource”,”file?”,””,””)
 myAnswer = FN CAUTIONALERT(3,NIL) :’gets my answer from alert
 LONG IF myAnswer =1 :’I said “YES”
 resourceFilename$ = FILES$(1,”rsrc”,,volume)      :’gets a filename 

 ‘(created with ResEdit)
 refNum = FN OPENRESFILE(resourceFileName$)  :’and opens it’s  
 ‘resource fork
 END IF :’(myAnswer = 1)
END IF  :’(debugging)
RETURN :’(“OpenResourceFork”)

Other items on the ZBasic “Wish List” include:

(to be fixed):

• The “Save Changes?” alert should only be called after the user has actually made changes to an existing document... especially not right after launching ZBasic itself when opening an existing document.

• ZBasic doesn’t run reliably under MultiFinder. After several passes editing and running, ZBasic aborts even with 2.5+ Meg memory allocated to ZBasic. I’ve never had this happen when not running Multifinder. I suggest that Multifinder be turned off when editing and debugging ZBasic programs.

(to be improved):

• The ‘Find’ command is somewhat useless without a ‘Change’ command.

• The editor, even with the vast improvements over earlier versions, is still clumsy in several (many) areas.

• The default tab settings are a nuisance. This should be user definable.

• Editing would be much easier if more than one edit window (different files too) could be open at the same time.

• Lower the price. The ToolBox Editor should have been part of the package to begin with. The Program Generator is useful if you don’t already have your own custom BASIC shell defined.

On the plus side, ZBasic is still the fastest and has been very reliable since version 5.0 was released. If the price were still under $100, it would be a bargain. At the present time LightSpeed Pascal or C is a much better bargain when compared with ZBasic.

I’m sure that there are others routines which MacTutor readers have been using which would be useful to others. Send your routines to me via MacTutor and see your name in print! Thanks Charles!

‘ This program contains 3 new subroutines which
‘ may be used with the ZBasic Program Generator.
‘ ©1989 MacTutor
‘ Subroutines by Charles Stricklin, modified by Dave Kelly
‘************************************************************
‘                      • CONFIGURATION • 
‘************************************************************
‘
‘            Default Variable Type:Integer
‘            Convert to Upper Case:Yes
‘        Space Req.After Key Words:Yes
‘                     Array Base 1:No
‘                       Bundle Bit:Yes
‘
‘************************************************************
‘                    • SET UP VARIABLES • 
‘************************************************************
WINDOW OFF:COORDINATE WINDOW:DEF MOUSE=-1:WIDTH -2
DIM T,L,B,R,MY,MX’                REQUIRED FOR TOOL BOX CALLS
‘------------------------------------------------------------
WND=1:GOSUB”BUILD WINDOW”
GOSUB “BUILD MENU”
GOTO”EVENT QUEUE”
‘************************************************************
‘                        • THE QUEUE • 
‘************************************************************
“EVENT QUEUE”
ON DIALOG GOSUB “HANDLE DIALOG”:DIALOG ON
ON BREAK  GOSUB “HANDLE BREAK” :BREAK  ON
ON MOUSE  GOSUB “HANDLE MOUSE” :MOUSE  ON
ON MENU GOSUB “Handle Menu” :MENU ON
:
“LOOP”
GOTO”LOOP”
:
DIALOG OFF:BREAK OFF:MOUSE OFF
‘************************************************************
‘                     • DIALOG ROUTINES • 
‘************************************************************
“HANDLE DIALOG”
:
ACT=DIALOG(0):REF=DIALOG(ACT)
:
IF ACT=3 THEN WINDOW REF:RETURN
IF ACT=4 THEN GOSUB”CAPTURE”:WINDOW CLOSE REF:END
IF ACT=5 THEN “FORMAT WINDOW”
IF ACT=11 THEN EDIT FIELD REF,””
:
LONG IF WINDOW(0)=1
END IF
:
RETURN
‘************************************************************
‘                      • BREAK ROUTINE • 
‘************************************************************
“HANDLE BREAK”
END
‘************************************************************
‘                     • MOUSE ROUTINES • 
‘************************************************************
“HANDLE MOUSE”
:
MACT=MOUSE(0):MX=MOUSE(1):MY=MOUSE(2)
:
RETURN
“Handle Menu”
MenuNumber=MENU(0)
Menuitem=MENU(1)
MENU
IF MenuNumber=1 AND Menuitem=12 THEN END
RETURN

‘GETINDSTRING$ function By Charles Stricklin
‘Modified by Dave Kelly for MacTutor, May, 1989

‘This function is identical to the procedure GetIndString
‘which is not in ROM and not supported by ZBasic.  It reads
‘a string from a string list and returns a copy of it in the
‘variable the String$.  If the string list doesn’t exist of the
‘index is out of range an empty string is returned.

‘ stringListID is the resource ID of the string list; it’s resource type 
is ‘STR#’.
‘ stringIndex is the index of the desired string within the list.

LONG FN GETINDSTRING$(StringListID, StringIndex)
 TheString$=””
 Offset=0
 FALSE=0
 MyHandle&=FN GETRESOURCE(CVI(“STR#”),StringListID)
 LONG IF FN RESERROR=FALSE
 MyPointer&=USR 3(MyHandle&)
 NumberOfStrings=PEEK WORD(MyPointer&)
 LONG IF (StringIndex>0) AND (StringIndex <= NumberOfStrings)
 LONG IF StringIndex>1
 FOR ThisString=1 TO StringIndex-1
 LengthOfThisString=PEEK(MyPointer&+2+Offset)
 Offset=Offset+LengthOfThisString+1
 NEXT
 END IF
 LengthOfDesiredString=PEEK(MyPointer&+2+Offset)
 FOR Character=1 TO LengthOfDesiredString
 TheString$=TheString$+CHR$(PEEK(MyPointer&+2+Offset+Character))
 NEXT
 END IF
 MyHandle&=USR 7(MyPointer&)
 CALL DETACHRESOURCE(MyHandle&)
 END IF
END FN= TheString$

‘GETRESMENU function By Charles Stricklin
‘Modified by Dave Kelly for MacTutor, May, 1989
‘This function creates a ZBasic menu from a MENU resource.
‘The result given is boolean; true if the task is accomplished,
‘false if there’s a problem (the resource doesn’t exist, etc.)

‘ resourceID is resource ID of the menu resource to be used.
‘  menuNumber is the ZBasic number of the menu to be created.

LONG FN GETRESMENU(ResourceID, MenuNumber)
 DEFSTR LONG
 Done=0
 FALSE=0
 MenuBlkSize=14
 Title$=””
 MyHandle&=FN GETRESOURCE(CVI(“MENU”),ResourceID)
 LONG IF FN RESERROR=FALSE
 MyPointer&=USR 3(MyHandle&)
 EnableFlags&=PEEK LONG(MyPointer&+10)
 State=VAL(MID$(BIN$(EnableFlags&),32,1))
 LengthTitle=PEEK(MyPointer&+MenuBlkSize)
 FOR Character=1 TO LengthTitle
Title$=Title$+CHR$(PEEK(MyPointer&+MenuBlkSize+Character))
 NEXT
 MENU MenuNumber,0,State,Title$
 Offset&=MenuBlkSize+LengthTitle+1
 DO
 MenuItem=MenuItem+1:Title$=””
 LengthTitle=PEEK(MyPointer&+Offset&)
 FOR Character=1 TO LengthTitle
Title$=Title$+CHR$(PEEK(MyPointer&+Offset&+Character))
 NEXT
 Offset&=Offset&+LengthTitle+1
 IconNumber&=PEEK(MyPointer&+Offset&)
 IF IconNumber& THEN Title$=Title$+”^”+RIGHT$(STR$(IconNumber&),1)
 CommandKey=PEEK(MyPointer&+Offset&+1)
 IF CommandKey THEN Title$=Title$+”/”+CHR$(CommandKey)
 MarkChar = PEEK(MyPointer&+Offset&+2)
 IF MarkChar THEN Title$=Title$+”!”+CHR$(MarkChar)
 CharacterStyle=PEEK(MyPointer&+Offset&+3)
 IF FN BITTST(CharacterStyle,0) THEN Title$=Title$+”<B”
 IF FN BITTST(CharacterStyle,1) THEN Title$=Title$+”<I”
 IF FN BITTST(CharacterStyle,2) THEN Title$=Title$+”<U”
 IF FN BITTST(CharacterStyle,3) THEN Title$=Title$+”<O”
 IF FN BITTST(CharacterStyle,4) THEN Title$=Title$+”<S”
  State=VAL(MID$(BIN$(EnableFlags&),32-MenuItem,1))
 Offset&=Offset&+4
 MENU MenuNumber, MenuItem, State, Title$
 UNTIL PEEK(MyPointer&+Offset&)=FALSE
 Done=-1
 END IF
 MyHandle&=USR 7(MyPointer&)
 CALL DETACHRESOURCE(MyHandle&)
END FN=Done

‘GETRESWINDOW function By Charles Stricklin
‘Modified by Dave Kelly for MacTutor, May, 1989
‘This function creates a ZBasic window from a window template
‘resource.  Result given is boolean;true if task is accomplished,
‘false if there’s a problem ( resource doesn’t exist, etc.)
‘ resourceID is the resource ID of window template to be used.
‘ windowNumber is ZBasic number of the window to be created.
‘ modal is boolean.

LONG FN GETRESWINDOW(ResourceID, WindowNumber, Modal)
 Done=0
 Title$=””
 FALSE=0
 MyHandle&=FN GETRESOURCE(CVI(“WIND”),ResourceID)
 LONG IF FN RESERROR=FALSE
 MyPointer&=USR 3(MyHandle&)
 Y1=PEEK WORD(MyPointer&)
 X1=PEEK WORD(MyPointer&+2)
 Y2=PEEK WORD(MyPointer&+4)
 X2=PEEK WORD(MyPointer&+6)
 Type=PEEK WORD(MyPointer&+8)+1
 HasClose=PEEK WORD(MyPointer&+12)
 LengthOfTitle=PEEK(MyPointer&+18)
 FOR Character=1 TO LengthOfTitle
 Title$=Title$+CHR$(PEEK(MyPointer&+18+Character))
 NEXT
 IF Type=13 THEN Type=9: ‘ZBasic doesn’t support ZoomNoGrow
 IF HasClose=FALSE THEN Type=Type+256
 IF Modal THEN Type=-Type
 WINDOW WindowNumber,Title$,(X1,Y1)-(X2,Y2),Type
 Done=-1
 END IF
 MyHandle&=USR 7(MyPointer&)
 CALL DETACHRESOURCE(MyHandle&)
END FN=Done

‘************************************************************
‘                     • WINDOW ROUTINES • 
‘************************************************************
“BUILD WINDOW”
IF WND=1 THEN Result=FN GETRESWINDOW(1,1,0)
GOSUB”BUILD EDITS”:GOSUB”FILL EDITS”:GOSUB “FORMAT WINDOW”
RETURN
‘************************************************************
‘                     • MENU ROUTINES • 
‘************************************************************
“BUILD MENU”
Result=FN GETRESMENU(1002,1)
RETURN
‘************************************************************
‘              • PUT GRAPHICS & TEXT IN WINDOW • 
‘************************************************************
“FORMAT WINDOW”
CALL PENNORMAL
:
LONG IF WINDOW(0)=1
PrintString$=FN GETINDSTRING$(31618, 1)
LOCATE 1,1:PRINT PrintString$
PrintString$=FN GETINDSTRING$(31618, 2)
LOCATE 4,2:PRINT PrintString$
END IF
:
CALL PENNORMAL:RETURN
‘************************************************************
‘             • CREATE EDIT FIELDS AND BUTTONS • 
‘************************************************************
“BUILD EDITS”
TEXT ,,0,0
:
LONG IF WINDOW(0)=1
END IF
:
RETURN
‘************************************************************
‘            • FILL EDIT FIELDS AND SET BUTTONS • 
‘************************************************************
“FILL EDITS”
:
LONG IF WINDOW(0)=1
END IF
:
RETURN
‘************************************************************
‘        • CAPTURE EDIT FIELD STRINGS & READ BUTTONS • 
‘************************************************************
“CAPTURE”
:
LONG IF WINDOW(0)=1
END IF
:
RETURN

 
AAPL
$118.93
Apple Inc.
-0.07
MSFT
$47.81
Microsoft Corpora
+0.06
GOOG
$541.83
Google Inc.
+1.46

MacTech Search:
Community Search:

Software Updates via MacUpdate

Adobe Photoshop Elements 13.0 - Consumer...
Adobe Photoshop Elements 12--the #1 selling consumer photo editing software--helps you edit pictures with powerful, easy-to-use options and share them via print, the web, Facebook, and more.Version... Read more
Skype 7.2.0.412 - Voice-over-internet ph...
Skype allows you to talk to friends, family and co-workers across the Internet without the inconvenience of long distance telephone charges. Using peer-to-peer data transmission technology, Skype... Read more
HoudahSpot 3.9.6 - Advanced file search...
HoudahSpot is a powerful file search tool built upon MacOS X Spotlight. Spotlight unleashed Create detailed queries to locate the exact file you need Narrow down searches. Zero in on files Save... Read more
RapidWeaver 6.0.3 - Create template-base...
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
iPhoto Library Manager 4.1.10 - Manage m...
iPhoto Library Manager lets you organize your photos into multiple iPhoto libraries. Separate your high school and college photos from your latest summer vacation pictures. Or keep some photo... Read more
iExplorer 3.5.1.9 - View and transfer al...
iExplorer is an iPhone browser for Mac lets you view the files on your iOS device. By using a drag and drop interface, you can quickly copy files and folders between your Mac and your iPhone or... Read more
MacUpdate Desktop 6.0.3 - Discover and i...
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
SteerMouse 4.2.2 - Powerful third-party...
SteerMouse is an advanced driver for USB and Bluetooth mice. It also supports Apple Mighty Mouse very well. SteerMouse can assign various functions to buttons that Apple's software does not allow,... Read more
iMazing 1.1 - Complete iOS device manage...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
PopChar X 7.0 - Floating window shows av...
PopChar X helps you get the most out of your font collection. With its crystal-clear interface, PopChar X provides a frustration-free way to access any font's special characters. Expanded... Read more

Latest Forum Discussions

See All

Mystery Case Files: Dire Grove, Sacred G...
Mystery Case Files: Dire Grove, Sacred Grove HD Review By Jennifer Allen on November 28th, 2014 Our Rating: iPad Only App - Designed for the iPad A decent new installment for the popular Mystery Case Files series.   | Read more »
Castaway Paradise – Tips, Tricks, and St...
Ahoy there, castaways: Were you curious about our own thoughts regarding this pristine shipwreck? Check out our Castaway Paradise review! Castaway Paradise is out for iOS, finally giving mobile gamers the opportunity to enjoy the idyllic lifestyle... | Read more »
Castaway Paradise VIP Subs are on Sale f...
Castaway Paradise VIP Subs are on Sale for a Limited Time, and a Special Holiday Update is Coming Soon Posted by Rob Rich on November 28th, 2014 [ | Read more »
Primitive Review
Primitive Review By Jordan Minor on November 28th, 2014 Our Rating: :: FOLK ARTUniversal App - Designed for iPhone and iPad True to its name, Primitive is about as straightforward as runners get.   | Read more »
7 tips to get ahead of the competition i...
7 tips to get ahead of the competition in Dynasty of Dungeons Posted by Simon Reed on November 28th, 2014 [ permalink ] Playcrab has launched their action-packed new dungeon crawler, Dynasty of Dungeons, today. | Read more »
Master of Tea Kung Fu Review
Master of Tea Kung Fu Review By Jordan Minor on November 28th, 2014 Our Rating: :: ONE DROP RULESUniversal App - Designed for iPhone and iPad Master of Tea Kung Fu is a creative and complex caffeinated brawler.   | Read more »
Monster Strike Review
Monster Strike Review By Campbell Bird on November 28th, 2014 Our Rating: :: BILLIARD STRATEGYUniversal App - Designed for iPhone and iPad Collect monsters and battle by flinging them across the battlefield in this strangely... | Read more »
Proun+ Review
Proun+ Review By Jennifer Allen on November 28th, 2014 Our Rating: :: TWITCHY RACINGUniversal App - Designed for iPhone and iPad Twitchy racing aplenty in Proun+, an enjoyably tricky title.   | Read more »
Lucha Amigos (Games)
Lucha Amigos 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Forget Ninja Turtles, and meet Wrestlers Turtles! Crazier, Spicier and…Bouncier! Sling carapaces of 7 Luchadores to knock all... | Read more »
Record of Agarest War Zero (Games)
Record of Agarest War Zero 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: HyperDevbox Holiday Turkey Black Friday Special Pricing! To celebrate the opening of the holiday season HyperDevbox... | Read more »

Price Scanner via MacPrices.net

Best Black Friday Deal: 15-inch Retina MacBoo...
 B&H Photo has the new 2014 15″ Retina MacBook Pros on sale for $300 off MSRP as part of their Black Friday sale. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina... Read more
Up To 75% Off Infovole Text Apps Over Black F...
Infovole’s entire range of apps, including the Textkraft family of word processors for iPads and iPhones, is being offered at 50-75% off over the Black Friday and Cyber Monday weekend. The five-day... Read more
Black Friday: Up to $60 off Mac minis, NY tax...
 B&H Photo has new 2014 Mac minis on sale for up to $60 off MSRP as part of their Black Friday sale. Shipping is free, and B&H charges NY sales tax only: - 1.4GHz Mac mini: $449.99 $50 off... Read more
Black Friday: 27-inch 5K iMac for $2299, save...
 B&H Photo continues to offer Black Friday sale prices on the 27″ 3.5GHz 5K iMac, in stock today and on sale for $2299 including free shipping plus NY sales tax only. Their price is $200 off MSRP... Read more
Karalux Announces 24K Gold-Plated iPhone 6
Karalux, a Vietnam-based jewellery firm, has launched a unique 24 karat gold-plated iPhone 6 version with gold-cast monolithic dragon on its back panel. The real 24 karat gold plated enclosure doesn’... Read more
Black Friday: 13-inch 2.6GHz Retina MacBook P...
 B&H Photo has lowered their price for the 13″ 2.6GHz/128GB Retina MacBook Pro to $1159 for Black Friday. That’s $140 off MSRP, and it’s the lowest price for this model (except for Apple’s $1099... Read more
View all the Black Friday sales on our Mac Pr...
We’ve updated our Mac Price Trackers with the latest information on prices, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. View Black Friday sale prices at a... Read more
Black Friday: 11-inch MacBook Air for $779, s...
 Best Buy has lowered their price for the 2014 11″ 1.4GHz/128GB MacBook Air to $779.99 for Black Friday. That’s $120 off MSRP. Choose free shipping or free local store pickup (if available). Sale... Read more
Apple Store Black Friday sale for 2014: $100...
BLACK FRIDAY The Apple Store has posted their Black Friday deals for 2014. Receive a $100 PRODUCT(RED) branded iTunes gift card with the purchase of select Macs, $50 with iPads, and $25 with iPods,... Read more
Black Friday: 15% off iTunes Gift Cards
Staples is offering 15% off $50 and $100 iTunes Gift Cards on their online store as part of their Black Friday sale. Click here for more information. Shipping is free. Best Buy is offering $100... Read more

Jobs Board

*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
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* 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
*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
*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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.