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

How to get coins faster in Rodeo Stamped...
There comes a time in a cowboy or cowgirl's life when all the riding and lassoing skills in the world aren't enough. You're going to need some cold, hard cash to keep your sky zoo expanding in Rodeo Stampede. [Read more] | Read more »
How to out-do Cam Newton in Can You Dab?
The thing about dance crazes is that you're never really sure when they've run their course. Take the Dab, for instance. Propelled by its adoption as the touchdown celebration of choice for Carolina Panthers quarterback Cam Newton, the Dab seemed... | Read more »
Artik Games releases Splashy Cats for An...
Splashy Cats had us hooked from the title alone, and when we found out the game was literally just zig-zagging one of our favourite pop-culture references, guised as a playable cat character, down a river – our appetites were whetted to say the... | Read more »
Battle Cars (Games)
Battle Cars 1.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1 (iTunes) Description: Welcome to the world of Battle Cars. Battle Cars is a classic arcade top-down racing game with fast mini cars and funny weapons to... | Read more »
How to get started with live.ly
One could be forgiven for thinking that there are already plenty of streaming video apps out there. It's just that the App Store charts would insist that you're mistaken. [Read more] | Read more »
Rodeo Stampede: Guide to all Savannah an...
A "gotta catch 'em all" joke seems appropriate here, even though we're talking animals in Rodeo Stampede and not pocket monsters. By now you've probably had plenty of rides, tamed some animals and built yourself a pretty nice zoo | Read more »
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 »

Price Scanner via MacPrices.net

MacBook Airs on sale for up to $50-$100 off M...
B&H Photo has 13″ and 11″ MacBook Airs on sale for up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.6GHz/128GB MacBook Air: $849 $50 off list price - 11″ 1.... Read more
Brexit Vote Result Forecast To Slash UK 2016...
Uncertainty and economic volatility can be expected to increase over the next nine months, as the Brexit and concerns over the future of the EU hit IT investment, say Canalys market analysts, with... Read more
13-inch 256GB MacBook Air on sale for $1149,...
Amazon has the 2016 13″ 1.6GHz/256GB MacBook Air (model MMGG2LL/A) on sale for $1149.99 including free shipping. Their price is also $50 off MSRP. Read more
Haven App Launches New Age Of Wirless 911 Eme...
Haven from RapidSOS represents a transformation in access to emergency services from a phone call solely dependent on voice to a robust data connection for voice, text, medical/demographic data.... Read more
Cu Parachute 1.1 Retirement Success PLanning...
Tucson, Arizona based Indie developer Bradley McCarthy has announce the release of Cu (Copper) Parachute 1.1 for iPhone, iPad, and iPod touch devices — a tool with which users can continuously... Read more
Research and Markets Releases iPhone 6s Plus...
A new analysis report from Dublin-based Research and Markets observes that with the iPhone 6s Plus, Apple introduced a new rear camera module. The new device has similar structure and technology than... Read more
Apple refurbished Retina MacBook Pros availab...
Apple has Certified Refurbished 2015 13″ and 15″ Retina MacBook Pros available for up to $380 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free... Read more
Apple refurbished 11-inch MacBook Airs availa...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models), available for up to $170 off the cost of new models. An Apple one-year warranty is included with each MacBook, and shipping is... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
12-inch 32GB and 128GB WiFi iPad Pros on sale...
B&H Photo has 12″ 32GB & 128GB WiFi iPad Pros on sale for up to $80 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50... 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
*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
*Apple* Retail - Multiple Positions, Willow...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*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
*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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.