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

Airmail 2.1 - Powerful, minimal email cl...
Airmail 2 is a new mail client designed for OS X 10.10 Yosemite with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.... Read more
Logitech Control Center 3.9.2 - Keyboard...
Logitech Control Center (LCC) is designed to support OS X and allows you to take full advantage of your Logitech keyboard, mouse, or trackball. With the LCC you can: Browse the Internet using... Read more
Adobe Acrobat Pro 15.007.20033 - Powerfu...
Acrobat Pro DC is available only as a part of Adobe Creative Cloud, and can only be installed and/or updated through Adobe's Creative Cloud app. Adobe Acrobat Pro DC with Adobe Document Cloud... Read more
CleanMyMac 3.0.1 - Delete files that was...
CleanMyMac makes space for the things you love. Sporting a range of ingenious new features, CleanMyMac lets you safely and intelligently scan and clean your entire system, delete large, unused files... Read more
Evernote 6.0.10 - Create searchable note...
Evernote allows you to easily capture information in any environment using whatever device or platform you find most convenient, and makes this information accessible and searchable at anytime, from... Read more
CleanApp 5.0.1 - Application deinstaller...
CleanApp is an application deinstaller and archiver.... Your hard drive gets fuller day by day, but do you know why? CleanApp 5 provides you with insights how to reclaim disk space. There are... Read more
Quicken 2015 2.5.0 - Complete personal f...
Quicken 2015 helps you manage all your personal finances in one place, so you can see where you're spending and where you can save. Quicken automatically categorizes your financial transactions,... Read more
Tonality Pro 1.1.4 - Professional-grade...
Tonality Pro gives you the power to create stunning and dramatic black & white images. This is a complete monochrome image editor with more than 150 one-click style presets, totally unique... Read more
Adobe Photoshop CC 2014 15.2.2 - 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
BBEdit 11.1 - Powerful text and HTML edi...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more

Play Endless Golf in Flick Golf Free...
Full Fat has released a new update for Flick Golf! Free. The ‘Eliminator’ update brings a whole new way to play with its endless round. [Read more] | Read more »
The Enchanted Cave 2 (Games)
The Enchanted Cave 2 2.1 Device: iOS Universal Category: Games Price: $2.99, Version: 2.1 (iTunes) Description: Delve into a strange cave with a seemingly endless supply of treasure, strategically choosing your battles to gather as... | Read more »
Crystal Siege is on Sale With a New Univ...
Crystal Siege,  FDG Entertainment's RPG  Tower Defense game, has gone universal in its latest update. [Read more] | Read more »
Platforming Action RPG Swordigo is Curre...
Touch Foo's 2D action-platformer, Swordigo, is free for a limited time on the App Store. Now you can run, jump, and slash your way through adventure for absolutely nothing. [Read more] | Read more »
Watch This Homerun Slides into Home on t...
Eyes Wide Games has launched their one-touch baseball game, Watch This Homerun, for the Apple Watch. [Read more] | Read more »
Disney Celebrates May 4th With Galaxy Si...
For Star Wars Day, May 4, join Disney Interactive and Lucasfilm as they celebrate with a whole lot of in=-app sales for their Star Wars apps. [Read more] | Read more »
Oh My Pixel! We Go Hands-on With The Kni...
I recently had a chance to play around with the upcoming Knights of Pen & Paper 2 from Paradox Interactive. I was a huge fan of the first game, so I had a lot of expectations going into it - and I wasn't disappointed. The game has gotten some... | Read more »
Throw Out Your Stylus and Sketch With Pe...
Penpoint Drawing, by Damin Liu,  is a new creative drawing app that uses your finger as your stylus. [Read more] | Read more »
Oceanhouse has Released Just So Thankful...
Oceanhouse Media, makers of digital book apps, are celebrating Mother's Day with a giveaway and a new app. [Read more] | Read more »
Get Dressed, the Virtual Wardrobe App fo...
Dressed, by  Kabuki Vision, is one of the first fashion apps for the Apple Watch. It pairs your watch with your iPhone to let you browse garments from your closet and mix and match them to create the perfect outfit. To add new pieces you just use... | Read more »

Price Scanner via MacPrices.net

12-inch 1.1GHz Silver MacBook in stock today
B&H Photo has the new 12″ 1.1GHz Silver MacBook in stock today for $1299 including free shipping plus NY sales tax only. Act now if you’re interested, since we don’t expect B&H to have this... Read more
iPad Air 2s on sale for up to $50 off, NY tax...
B&H Photo has iPad Air 2s on sale for up to $64 off MSRP including free shipping plus NY sales tax only: - 16GB iPad Air 2 WiFi: $469 $30 off - 64GB iPad Air 2 WiFi: $549.99 $50 off - 128GB iPad... Read more
Check Apple prices on any device with the iTr...
MacPrices is proud to offer readers a free iOS app (iPhones, iPads, & iPod touch) and Android app (Google Play and Amazon App Store) called iTracx, which allows you to glance at today’s lowest... Read more
Sale! New 13-inch 256GB MacBook Air for $1099...
B&H Photo has the new 2015 13″ 1.6GHz/256GB MacBook Air on sale for $1099.99 including free shipping plus NY tax only. Their price is $100 off MSRP. Read more
Japan Post Group, IBM and Apple Deliver iPads...
Japan Post Group, IBM and Apple executives meeting in in New York City yesterday announced a first-of-its-kind initiative aimed at improving the quality of life for millions of Japanese senior... Read more
Worldwide Tablet Market Contracts For Second...
Worldwide tablet shipments recorded a second consecutive quarter of year-over-year decline in the first calendar quarter of 2015 (1Q15), according to preliminary data from the International Data... Read more
Apple restocks refurbished Mac minis for up t...
The Apple Store has restocked Apple Certified Refurbished 2014 Mac minis, with models available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz... Read more
13-inch 2.5GHz MacBook Pro available for $999...
Adorama has the 13-inch 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
New 13-inch Retina MacBook Pros available for...
Save up to $80 on the purchase of a new 2015 13″ Retina MacBook Pro at the following resellers. Shipping is free with each model: 2.7GHz/128GB MSRP $1299 2.7GHz/256GB... Read more
13-inch 128GB MacBook Air on sale for $50 off...
Save $50 on the purchase of a new 2015 13″ 1.6GHz/128GB MacBook Air at the following resellers. Shipping is free: $949.99 $949.99 $949.99 $949.99 $949.99 B&H Photo charges NY sales tax only.... Read more

Jobs Board

Senior Identity Architect - *Apple* Pay - A...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
Hardware Systems Integration Engineer - *App...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
Senior Identity Architect - *Apple* Pay - A...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
Hardware Systems Integration Engineer - *App...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
Senior Identity Architect - *Apple* Pay - A...
Changing the world is all in a day039s work at Apple . If you love innovation, here039s your chance to make a career of it. You039ll work hard. But the job comes with Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.