TweetFollow Us on Twitter

FutureBASIC
Volume Number:9
Issue Number:5
Column Tag:Tools of the Trade

Z z z FutureBASIC

An industrial strength BASIC built for Macintosh

By Dave Kelly, MacTech Magazine Regular Contributing Author

Look! Up in the sky! It’s a bird, it’s a plane, no it’s FutureBASIC. Never before seen on this planet, FutureBASIC goes where no other BASIC has gone before. FutureBASIC (version 1.01) is not simply an upgrade of ZBasic. Although ZBasic programs can still be run with FutureBASIC, there are plenty of enhancements to interest any programmer, with any level of experience. I’ll refer to FutureBASIC as FB for the remainder of this article.

If you’re new to programming the Macintosh, FB now provides the easiest and quickest way to produce real Macintosh applications. Zedcor has put a lot of work into producing a set of manuals that not only provides documentation for the FB language, but also teaches structured programming methods. When getting started with FB you’ll want to start with the “Getting Started” manual. In this manual, you take a walk through three sample programs. You won’t even have to open any of the other manuals to start seeing results.

The “Getting Started” section emphasizes the importance of organizing and structuring your programs. Structure is something that doesn’t come natural to BASIC, but the FB manuals show you a consistent way to structure your programs. Programs are divided into sections split by remarks (see the example at the end of this article). A typical structured program will have a Constants section, Global variables section, Functions section and Main section. Zedcor, who has always promoted these programming practices, has done a great job in maintaining these structured practices.

After you go though the “Getting Started” manual, you’ll want to look at the FB “Handbook”. The Handbook will help you learn how to program the Macintosh. This manual isn’t just for beginners; there is information here that applies to all programmers. In particular, there are sections on writing INITs, cdevs, and Desk Accessories (yes, you can now create INIT, CDEV, DRVR and CODE resources), HyperCard XCMDs and XFCNs, how memory is organized, and Debugging (using FB’s Debugger and MacsBug). Beginners probably won’t start out writing INITs, but the manual includes everything you need to do it. The strength of the handbook is that it ties together the information that is in Inside Macintosh with the FB Reference manual. The Handbook is organized by subject (Windows, Menus, File Handling, Resources, QuickDraw, Etc.).

The “Reference” manual covers each FB command similar to the old ZBasic manual, but completely rewritten. It’s not like the Microsoft manuals that spend the first half of the manual explaining the programming environments (how the editor works, how to compile a program). Only the first 28 pages are dedicated to explaining the FB application, the remaining 375+ pages (plus appendixes) are strictly for reference. Each command is presented with a short example.

If you’re a Pascal, C, or Assembly language programmer (or any other language for that matter), FB will interest you too. First and foremost, FB is fast! It’s nearly as fast as Pascal and C. In benchmark tests that I performed, I was pleased with its performance in every test case I tried. The tests that I ran were derived from tests that I’ve run in the past. I’m not including those results here since there isn’t any close competition with FB anyway.

Experienced programmers will like the professional look and feel of the FB compiler. Some examples of this:

Resources are included in an FB program by including a one line statement such as:

RESOURCES “Resource File.rsrc”

The resource file can include any resources that you’re used to using in C or Pascal.

CALLs to assembled CODE resources - you can include any assembled code in your program.

In-line assembly language code: FB allows you to enter assembly language mnemonics directly into your program (THINK Pascal won’t let you do that!). Standard M68000 family statements and functions are fully supported.

APPL, INIT, cdev, DRVR, WDEF, CDEF, MDEF, CODE resource types can be created. This is what really makes FB a big league player. There are two different runtime packages that can get included at compile time when creating applications. You can choose the Standard-runtime package that takes up over 40K of space or the Mini-runtime version that is less than 5K. The difference is that the Mini-runtime must use Macintosh Toolbox routines for handling events. The reference manual distinguishes between the commands that are supported by the Mini vs. the Standard runtimes by putting a lower case m next to the command name. The extra memory saved may be worth it in some situations, but the expanded command set makes life much easier. Most of you will still want to compile with the Standard-runtime package. The RESOURCES statement at the beginning of the program tells the compiler which type of resource to compile.

Project Manager tool: FB’s Project Manager automatically keeps track of source code files used in a project. A project consists of all the files in a particular folder. The Project Manager makes it easy to open source code files and mark the files that need to be compiled. You can compile and run all related files in a project. So, if you have separated your various routines into separate files, then you can run the main program by selecting it in the Project Manager window and any files that are included (using the INCLUDE statement).

Cross Reference tool: The Cross Reference tool displays an alphabetical list of functions, labels, variables, or constants that are used in the current Editor window. You can search for an item by clicking on it.

Editing is completely new for this version of FB. The ZBasic editor was never as stable as this one. Most notable is that keywords are recognized and indentation is applied to the source code automatically. You can adjust the spacing for indented lines using the preferences dialog. Full Search and Replace capability can search in both directions. When an error occurs in your program, the cursor points to the line where the error occurred.

The Help system provides a ready reference to all FB commands. An additional bonus is that sample source code is included with the information in the Help file that you can paste into your program. You can even add your own stuff to the Help file.

Page Layout can be customized to print source code with header, footer, date, Program Name, page numbers, boldface keywords, and automatic indentation.

LOCAL FN is a new statement that lets you pass a list of parameters to a subroutine that will only be used locally. That means that variables used in LOCAL FN routines are only defined within the subroutine. You can now use libraries of LOCAL FN routines and not have to worry if there is a conflict between your program’s variables and the subroutine’s variables. LOCAL FN is a very powerful statement that can also be used recursively. LOCAL FN virtually makes using GOSUB and LONG FN obsolete (GOTO was obsolete along time ago). FB still supports GOSUB, GOTO, and LONG FN, but you are strongly advised against their use because of the great benefits of LOCAL FN.

Constants are now presented in a consistent manner. In older versions of BASIC only numbers could be used for constants. In FB you can assign integer and long integer constants a name to make them easier to remember and more understandable. You can tell a constant because it always starts with an underline character. Besides the fact that you can define your own constants, FB comes with hundreds of predefined named constants. Many of them correspond to constants in Inside Macintosh.

Record types are defined using the DIM RECORD statement. Any record type in Inside Macintosh can be defined with this statement. Records can be passed between functions by passing the record’s address.

QuickTime™ movie calls are included for playing QuickTime movies.

Balloon and Apple Event calls are part of the extensive Macintosh Toolbox support. However, the manuals show you how to create your own calls just in case Apple adds a new one.

Word Solution Engine™ functions are build in to FB as USR functions. Word Solution Engine is NOT included with FB. You can use these routines to access Word Solution Engine (if you have it) to create a professional looking word processor.

Debugger: FB’s own debugger is great. If you like the debugger in THINK Pascal, you’ll like this one too. You can set break points and step through a program. You can follow variable changes as they happen.

There are simply thousands of features packed into FB. I’d love to be able to show you a sample of each, but Zedcor has done a great job of that on the example files included with FB. I will include one here that can give you a sense of what FB can do. In particular, the ability to create cdevs is one of FB’s new features. The following code is an example of a cdev (from Zedcor).

‘CDEV example     7/07/92
RESOURCES “FB CDEV.rsrc”,”cdevhack”,”cdev”,-4064,”FutureBasic™ CDEV”,_resPurgeable%
OUTPUT FILE “myCDEV”

‘--------------- Globals ------------------
BYEBYE = _false
END GLOBALS

‘--------------- Functions -----------------
LOCAL FN doKeys (theEvent&)
  ‘first, get the character
  message&   = [theEvent&+_evtMessage]  
  ‘then see if the command key was down
  modifiers% = {theEvent&+_evtMeta}     
  tempChar$  = CHR$(message& AND &FF)  ‘mask for character
  LONG IF modifiers% AND 256           ‘test for command key
    %theEvent&,_nullEvt
    SELECT tempChar$         ‘set appropriate message
      CASE “X”,”x”             ‘cut?
        message% = _cutDev     ‘pass menu event back to cdev
      CASE “C”,”c”             ‘copy?
        message% = _copyDev    ‘pass menu event back to cdev
      CASE “V”,”v”             ‘paste?
        message% = _pasteDev   ‘pass menu event back to cdev
      CASE “Z”,”z”             ‘undo?
        message% = _undoDev    ‘pass menu event back to cdev
      CASE “W”,”w”             ‘close window?
        BYEBYE = _true         ‘pass menu event back to cdev
    END SELECT                  
  END IF
END FN

‘is it time to go bye bye?
LOCAL FN checkBYEBYE(cdevStorage&)
  LONG IF BYEBYE                       
    LONG IF cdevStorage&             ‘valid handle?
      mErr= FN DISPOSHANDLE (cdevStorage&) ’dump it
      IF mErr THEN BEEP:BEEP:BEEP
    END IF
    END
  END IF   
END FN          

LOCAL
DIM rect;0, T,L,B,R
LOCAL FN showMsg (msg$)
  CALL SETRECT (rect,110,110,220,160)
  CALL ERASERECT(rect)              ‘erase last message
  PRINT%(L+(R-L)/2-24,T+(B-T)/2+4);
  PRINT msg$;                       
END FN                    

‘---------------- Main ------------------
ENTERPROC%(message%,item%,numItems%,CPanelID%,
  theEvent&,cdevStorage&,CPDialog&)
  ‘softmask =&0000 and hardmask = &FFFF
  LONG IF message% = _macDev  
    returnVal& = 1               ‘works on every machine
    lastPass& = cdevStorage&
  XELSE
    LONG IF cdevStorage& <> lastPass&   ‘
      SELECT cdevStorage&  ‘check for errors when the 
        CASE _cdevGenErr   ‘Control Panel sends them to you.
        CASE _cdevMemErr
          ‘do an error message
        CASE _cdevResErr
          ‘do an error message
        CASE _cdevUnset
          ‘ignore this
      END SELECT
    END IF
    LONG IF cdevStorage&       ‘inialize storage for cdev
      lastPass& = cdevStorage&
      SELECT message%
        CASE _initDev          ‘initialize cdev
          ’create private storage
          cdevStorage& = FN NEWHANDLE(2)
          ‘we work on every machine
          returnVal& = cdevStorage&  
        CASE _hitDev          ‘button or text field clicked
          ’subtract Control Pan items
          msg$= “_hitDev item=”+STR$(item%-numItems%) 
          FN showMsg (msg$)
        CASE _closeDev        ‘close down the cdev now
          BYEBYE = _true                  
          FN showMsg (“BYE!”)
          BEEP :DELAY 1000
        CASE _nulDev                 ‘do null events here
        CASE _updateDev              ‘update your stuff
          FN showMsg (“_updateDev”)
        CASE _activDev               ‘activate controls 
                                     ‘deactivated below
          FN showMsg (“_activDev”)
        CASE _deActivDev             ‘deactivate controls
          FN showMsg (“_deActivDev”)
        CASE _keyEvtDev              ‘respond to key down
          FN doKeys (theEvent&)
          FN showMsg (“_keyEvtDev”)
        CASE _undoDev,_cutDev,_copyDev,_pasteDev,_clearDev
          FN showMsg (“__someEditDev??”)
        CASE _cursorDev              ‘cursor over cdev area
      END SELECT
    END IF
  END IF
EXITPROC% = returnVal&
FN checkBYEBYE(cdevStorage&)
RETURN

For More information

Contact Zedcor, 4500 E. Speedway, Suite 22, Tucson, AZ 85712. Voice: 602/881-8101, Fax: 602/881-1841, Applelink: ZEDCOR.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Bookends 12.8 - Reference management and...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more
Apple iTunes 12.6 - Play Apple Music and...
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
Default Folder X 5.1.4 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more
Amazon Chime 4.1.5587 - Amazon-based com...
Amazon Chime is a communications service that transforms online meetings with a secure, easy-to-use application that you can trust. Amazon Chime works seamlessly across your devices so that you can... Read more
CrossOver 16.2 - Run Windows apps on you...
CrossOver can get your Windows productivity applications and PC games up and running on your Mac quickly and easily. CrossOver runs the Windows software that you need on Mac at home, in the office,... Read more
Adobe Creative Cloud 4.0.0.185 - Access...
Adobe Creative Cloud costs $19.99/month for a single app, or $49.99/month for the entire suite. Introducing Adobe Creative Cloud desktop applications, including Adobe Photoshop CC and Illustrator CC... Read more
MegaSeg 6.0.2 - Professional DJ and radi...
MegaSeg is a complete solution for pro audio/video DJ mixing, radio automation, and music scheduling with rock-solid performance and an easy-to-use design. Mix with visual waveforms and Magic... Read more
Bookends 12.8 - Reference management and...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more
Adobe Creative Cloud 4.0.0.185 - Access...
Adobe Creative Cloud costs $19.99/month for a single app, or $49.99/month for the entire suite. Introducing Adobe Creative Cloud desktop applications, including Adobe Photoshop CC and Illustrator CC... Read more
Default Folder X 5.1.4 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more

The best deals on the App Store this wee...
Deals, deals, deals. We're all about a good bargain here on 148Apps, and luckily this was another fine week in App Store discounts. There's a big board game sale happening right now, and a few fine indies are still discounted through the weekend.... | Read more »
The best new games we played this week
It's been quite the week, but now that all of that business is out of the way, it's time to hunker down with some of the excellent games that were released over the past few days. There's a fair few to help you relax in your down time or if you're... | Read more »
Orphan Black: The Game (Games)
Orphan Black: The Game 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Dive into a dark and twisted puzzle-adventure that retells the pivotal events of Orphan Black. | Read more »
The Elder Scrolls: Legends is now availa...
| Read more »
Ticket to Earth beginner's guide: H...
Robot Circus launched Ticket to Earth as part of the App Store's indie games event last week. If you're not quite digging the space operatics Mass Effect: Andromeda is serving up, you'll be pleased to know that there's a surprising alternative on... | Read more »
Leap to victory in Nexx Studios new plat...
You’re always a hop, skip, and a jump away from a fiery death in Temple Jump, a new platformer-cum-endless runner from Nexx Studio. It’s out now on both iOS and Android if you’re an adventurer seeking treasure in a crumbling, pixel-laden temple. | Read more »
Failbetter Games details changes coming...
Sunless Sea, Failbetter Games' dark and gloomy sea explorer, sets sail for the iPad tomorrow. Ahead of the game's launch, Failbetter took to Twitter to discuss what will be different in the mobile version of the game. Many of the changes make... | Read more »
Splish, splash! The Pokémon GO Water Fes...
Niantic is back with a new festival for dedicated Pokémon GO collectors. The Water Festival officially kicks off today at 1 P.M. PDT and runs through March 29. Magikarp, Squirtle, Totodile, and their assorted evolved forms will be appearing at... | Read more »
Death Road to Canada (Games)
Death Road to Canada 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: Get it now at the low launch price! Price will go up a dollar every major update. Update news at the bottom of this... | Read more »
Bean's Quest Beginner's Guide:...
Bean's Quest is a new take on both the classic platformer and the endless runner, and it's free on the App Store for the time being. Instead of running constantly, you can't stop jumping. That adds a surprising new level of challenge to the game... | Read more »

Price Scanner via MacPrices.net

2.6GHz Mac mini on sale for $559, $140 off MS...
Guitar Center has the 2.6GHz Mac mini (MGEN2LL/A) on sale for $559 including free shipping. Their price is $140 off MSRP, and it’s the lowest price available for this model. Read more
SSD Speeder RAM Disk SSD Life Extender App Fo...
Fehraltorf, Switzerland based B-Eng has announced they are making their SSD Speeder app for macOS publicly available for purchase on their website. SSD Speeder is a RAM disk utility that prevents... Read more
iPhone Scores Highest Overall in Smartphone D...
Customer satisfaction is much higher among smartphone owners who use their device to operate other connected home services such as smart thermostats and smart appliances, according to the J.D. Power... Read more
Swipe CRM Free Photo-Centric CRM Sales DEal C...
Swipe CRM LLC has introduced Swipe CRM: Visual Sales 1.0 for iPad, an app for creating, managing, and sharing visually stunning sales deals. Swipe CRM is targeted to small-and-medium creative... Read more
13-inch 2.0GHz Apple MacBook Pros on sale for...
B&H has the non-Touch Bar 13″ 2.0GHz MacBook Pros in stock today and on sale for $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray (... Read more
15-inch Touch Bar MacBook Pros on sale for up...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more
Apple’s iPhone 6s Tops Best-Selling Smartphon...
In terms of shipments, the iPhone 6s from Apple bested all competitors for sales in 2016, according to new analysis from IHS Markit, a world leader in critical information, analytics and solutions.... Read more
Logitech Rugged Combo Protective iPad Case an...
Logitech has announced its Logitech Rugged Combo, Logitech Rugged Case, and Logitech Add-on Keyboard for Rugged Case for Apple’s new, more affordable $329 9.7-inch iPad, a complete solution designed... Read more
T-Mobile To Offer iPhone 7 and iPhone 7 Plus...
T-Mobile has announced it will offer iPhone 7 and iPhone 7 Plus (PRODUCT)RED Special Edition in a vibrant red aluminum finish. The introduction of this special edition iPhone celebrates Apple’s 10... Read more
9-inch 128GB iPad Pros on sale for $50-$70 of...
B&H Photo has 9.7″ 128GB Apple WiFi iPad Pros on sale for up to $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 128GB WiFi iPad Pro: $649 $50... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Fulltime aan de slag als shopmanager in een h...
Ben jij helemaal gek van Apple -producten en vind je het helemaal super om fulltime shopmanager te zijn in een jonge en hippe elektronicazaak? Wil jij werken in Read more
Starte Dein Karriere-Abenteuer in den Hauptst...
…mehrsprachigen Teams betreust Du Kunden von bekannten globale Marken wie Apple , Mercedes, Facebook, Expedia, und vielen anderen! Funktion Du wolltest schon Read more
*Apple* Retail - Multiple Positions- Chicago...
SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Fulltime aan de slag als shopmanager in een h...
Ben jij helemaal gek van Apple -producten en vind je het helemaal super om fulltime shopmanager te zijn in een jonge en hippe elektronicazaak? Wil jij werken in Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.