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

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Apple iTunes 12.2 - Play Apple Music...
Apple iTunes lets you organize and stream Apple Music, download and watch video and listen to Podcasts. It can automatically download new music, app, and book purchases across all your devices and... Read more
Apple Security Update 2015-005 - For OS...
Apple Security Update 2015-005 is recommended for all users and improves the security of OS X. For detailed information about the security content of this update, please visit: http://support.apple.... Read more
Apple HP Printer Drivers 3.1 - For OS X...
Apple HP Printer Drivers includes the latest HP printing and scanning software for OS X Lion or later. For information about supported printer models, see this page. Version 3.1: The latest printing... Read more
Epson Printer Drivers 3.1 - For OS X 10....
Epson Printer Drivers installs the latest software for your EPSON printer or scanner for OS X Yosemite, OS X Mavericks, OS X Mountain Lion, and OS X Lion. For more information about printing and... Read more
Xcode 6.4 - Integrated development envir...
Xcode provides everything developers need to create great applications for Mac, iPhone, and iPad. Xcode brings user interface design, coding, testing, and debugging into a united workflow. The Xcode... Read more
OS X Yosemite 10.10.4 - Apple's lat...
OS X Yosemite is Apple's newest operating system for Mac. An elegant design that feels entirely fresh, yet inherently familiar. The apps you use every day, enhanced with new features. And a... Read more
Dash 3.0.2 - Instant search and offline...
Dash is an API Documentation Browser and Code Snippet Manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
FontExplorer X Pro 5.0 - Font management...
FontExplorer X Pro is optimized for professional use; it's the solution that gives you the power you need to manage all your fonts. Now you can more easily manage, activate and organize your... Read more
Typinator 6.6 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more
Arq 4.12.1 - Online backup to Google Dri...
Arq is super-easy online backup for the Mac. Back up to your own Google Drive storage (15GB free storage), your own Amazon Glacier ($.01/GB per month storage) or S3, or any SFTP server. Arq backs up... Read more

Vector 2 is Officially a Thing and it...
Vector is a pretty cool parkour-driven runner that's gotten a pretty decent following since it first came out - although personally I think more people could stand to show it some love. Anyway, Nekki has announced that a sequel isofficially on its... | Read more »
This Week at 148Apps:June 22-26, 2015
June's Summer Journey Continues 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,... | Read more »
LEGO® Minifigures Online (Games)
LEGO® Minifigures Online 1.0.1 Device: iOS iPhone Category: Games Price: $4.99, Version: 1.0.1 (iTunes) Description: | Read more »
World of Tanks Blitz celebrates its firs...
Today marks the first anniversary of the launch of World of Tanks Blitz, the mobile version of the PC tank battler, World of Tanks. World of Tanks Blitz launched on iOS and Android on June 26th last year and to celebrate, Wargaming is giving all... | Read more »
Heroes and Castles 2 Has its Own Standal...
Heroes and Castles 2 is a third-person castle defense game from the same team behind Block Fortress and Bug Heroes. It's cool, it's fun, and now it has its very own free version. [Read more] | Read more »
Formula Cartoon All-Stars Lets You Race...
Ever want to pit your favorite characters from shows like Steven Universe, Adventure Time, and Regular Show against each other in a not quite death race? Well once upon a time you could, but Formula All Stars Touch N' Go doesn't exist anymore. Hope... | Read more »
Retype - Typography Photo Editor (Photo...
Retype - Typography Photo Editor 1.0 Device: iOS Universal Category: Photography Price: $2.99, Version: 1.0 (iTunes) Description: Retype is built out of passion for great typography and it's all about adding text to photo with style... | Read more »
Hungry Shark Evolution Celebrates Shark...
Shark Week is almost here, as is Independence Day, so naturally Hungry Shark Evolution is going to get in on the action. Yes, even the fireworks. [Read more] | Read more »
The New Trivia Crack Will Feature a Musi...
It's official: iHeartMedia (you may know them from iHeartRadio) will be in charge of providing music-related questions for Trivia Crack's upcoming sequel. Also Trivia Crack is getting a sequel. [Read more] | Read more »
Toca Life: City (Education)
Toca Life: City 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: Welcome to Toca Life: City, a metropolis filled with everyday fun! Customize characters, explore exciting locations and... | Read more »

Price Scanner via MacPrices.net

12-inch 1.2GHz Gray MacBook on sale for $1487...
Amazon.com has the new 12″ 1.2GHz Gray MacBook in stock and on sale for $1487 including free shipping. Their price is $102 off MSRP, and it’s the lowest price available for this model. We expect... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
Amazon.com has the 15″ 2.2GHz Retina MacBook Pro on sale for $1819 including free shipping. Their price is $180 off MSRP, and it’s the lowest price available for this model. Read more
OtterBox Releases New Symmetry Series Metalli...
Otterbox’s new Symmetry Series of smartphone cases flaunts the best of both both street style and street smarts with their new metallic finishes and trusted OtterBox protection for iPhone 6 and... Read more
Eliminate Cable Chaos with New GE Branded Wra...
GE licensee Jasco Products has introduced a new line of GE branded Wrap-n-Charge USB wall chargers with built-in cable management. “We are always working to combine great technology with innovative... Read more
2015 13-inch 2.7GHz Retina MacBook Pro on sal...
B&H Photo has the new 2015 13″ 2.7GHz/128GB Retina MacBook Pro on sale today for $1199 including free shipping plus NY sales tax only. Their price is $100 off MSRP, and it’s the lowest price for... Read more
13-inch 2.5GHz MacBook Pro (refurbished) avai...
The Apple Store has Apple Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.... Read more
Apple refurbished iPad Air 2s available for u...
The Apple Store has Apple Certified Refurbished iPad Air 2s available for up to $140 off the price of new models. Apple’s one-year warranty is included with each model, and shipping is free: - 128GB... Read more
MacBook Airs on sale for up to $75 off MSRP
Save up to $75 on the purchase of a new 2015 13″ or 11″ 1.6GHz MacBook Air at the following resellers. Shipping is free with each model: 11" 128GB MSRP $899 11" 256GB... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
Save up to $600 with Apple refurbished Mac Pr...
The Apple Store has Apple Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The... Read more

Jobs Board

*Apple* TV Live Streaming Frameworks Test En...
**Job Summary** Work and contribute towards the engineering of Apple 's state-of-the-art products involving video, audio, and graphics in Interactive Media Group (IMG) at Read more
Project Manager, WW *Apple* Fulfillment Ope...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
Senior Data Scientist, *Apple* Retail - Onl...
**Job Summary** Apple Retail - Online sells Apple products to customers around the world. In addition to selling Apple products with unique services such as iPad Read more
*Apple* Music Producer - Apple (United State...
**Job Summary** Apple Music seeks a Producer to help shepherd some of the most important content and editorial initiatives within the music app, with a particular focus Read more
Sr. Technical Services Consultant, *Apple*...
**Job Summary** Apple Professional Services (APS) has an opening for a senior technical position that contributes to Apple 's efforts for strategic and transactional Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.