TweetFollow Us on Twitter

Wars and Windows
Volume Number:4
Issue Number:10
Column Tag:Basic School

Basic Wars and True Windows

By Dave Kelly, Editorial Board

Basic Wars Revisited

I promised more information about True Basic. First I would like you to refer back to MacTutor August 1986, February 1987 and March 1987 for the previous episodes of “Basic Wars”. The following table gives True Basic (Version 2.0) data for most of the benchmarks used to compare ZBasic and MS Basic 2.0 the last time I ran the benchmark. Please be aware that the math operations were corrected in the March 1987 issue. From a comparison of the benchmarks we can draw a few conclusions. First, True Basic appears to be faster for all math operations even though True Basic is not truly compiled. Only Microsoft Basic (binary) is comparable in math speed, but does not include the accuracy of True Basic. Graphic operations are slower than the MS Basic interpreter. Array look up was comparable to compiled speeds for MS Basic or ZBasic. String handling approaches ZBasic compiled speeds. True Basic ran the Sieve in less time than the MS Interpreter, but slower than any of the compiled Basics.

Still keep in mind that benchmarks are not the only way to determine the strengths of a language. These results show that True Basic performs very well considering that it is not truly compiled to native machine code. It would be much more of a speed competitor if it was compiled. True Basic’s strengths are in other areas which cannot be measured only by benchmarks. To some people the other capabilities of True Basic are not enough to justify the slow speed. If the only thing you are looking for in a language is speed then you’ll probably be disappointed.

True Basic Benchmark: System 6.0

BENCHMARK Macintosh Plus Macintosh II

FOR Loop 1.6 sec. .388 sec.

Array Lookup 20.67 sec 5.25 sec.

Math Operations

Addition 22.15 sec. 3.8 sec.

Subtraction 23.23 sec. 3.55 sec.

Multiply 25.55 sec. 3.8 sec.

Divide 39.15 sec. 3.78 sec.

String Operations

Concatenation 10.3167 sec. 2.35 sec.

Matching 12.15 sec. 3.12 sec.

Graphics

Line(Basic statement)

61.25 sec. 15.33 sec.

Horizontal line 38.867 sec. 12.3 sec.

Circle 13.4667 sec. 6.63 sec.

Set Pixel (PLOT) 119.3 sec. 37.83 sec.

File I/O (Floppy disk)

Random READ 24.5 sec. 8.2 sec.

Random WRITE 43.48 sec. 13.7667 sec.

Sequential PRINT #17.0667 sec. 4.3 sec.

Sequential INPUT 17.45 sec. 4.533 sec.

Sieve (1980 primes) 118.917 sec. 29.0333 sec

Accuracy Benchmark

Answer: 503.543802149746 503.5438021499906

1.224999999999966 1.2299999999999960

.88333 sec. .166667 sec.

Some of True Basic’s strength comes from the structured nature of the ANSI committee standard which it closely follows. Rather than go through a blow by blow account of what each command in True Basic does (you can always read the manual to find out that), I’ll tell you what’s new since version 1.0 was released. Mostly True Basic is the same very structured, capable language as before. From a scientific, engineering and educational standpoint True Basic offers the best learning environment. It has all the advanced structures of the latest Basics available such as SELECT CASE, DO/LOOP with WHILE and UNTIL, and multi-line IF/ELSE IF/END IF. True Basic is modular in that you can define your own modules which can be loaded as required. Local and global variables are supported. As discussed last month, True Basic has a full set of matrix algebra statements. Arrays are dynamic and resizable. Line numbers are now optional. Recursion is supported. Optional variables may be declared in CALLs.

The built-in editor works very well (unlike the ZBasic editor). It is not the best editor in the world, but is adequate. You have search and replace (Find and Change) and Include (which inserts a file from disk at the cursor point). The annoying little stop light (version 1.0) has been removed. You may select breakpoints in your program where you want to suspend execution to examine variables or do debugging. There are three windows that are used in the interpreter environment. The source window contains the source code, the output window lets you save output from several runs of the program if you want, and the command window lets you type commands specific to managing the interpreter (Actually, True Basic is compiled to b-code for extra speed, but since it is not true native machine code I hesitate to call it a compiler). You can use almost any True Basic statement in direct mode, that is, directly typed into the command window. A simple help system is available, but I feel that unless you are a beginner, the help system is next to useless.

Script files and DO programs can be set up to configure True Basic or to automate actions. It’s sort of like having a a set of exec files that can be executed as short cuts. Since there may be several folders containing library files used, you will want to configure your disk with a TBStartup file containing an ALIAS statement which references all of the places you want True Basic to look for library files. This is a very awkward way to do things, but once it gets set up you just declare your library and True Basic takes care of things for you. (Sort of reminds me of what I don’t like about MSDOS). DO programs are used for things such as formatting the source code, getting a cross reference list of variables, or tracing a programs variables. Since you can always write your own DO program you can set it up however you wish.

True Basic supports the 68881 coprocessor which speeds up calculations quite a bit. We’ve already seen samples of True Basic color capabilities in previous issues of MacTutor.

Macintosh Goodies

Macintosh people want their applications to look right and feel right for the Macintosh user. True Basic provides a library “MacTools*” which contains most of the simple graphics calls:

call MacPenSize (width, height)
call MacPenMode (mode)
call MacTextFont (font)
call MacTextFace (style$)
call MacTextMode (mode)
call MacTextSize (size)
call MacTextBox (left, right, bottom, top, s$, just$)
call MacSpaceExtra (extra)
let n = MacStringWidth (s$)
call MacGetFontInfo (ascent, descent,widmax, leading)
call MacInvertRect (left,right,bottom,top)
call MacPaintOval (left,right,bottom,top)
call MacInvertOval (left,right,bottom,top)
call MacFrameRoundRect (left,right,bottom,top,x,y)
call MacPaintRoundRect (left,right,bottom,top,x,y)
call MacInvertRoundRect (left,right,bottom,top,x,y)
let name$=MacGetFile$(h,v,type$,button$)
let name$=MacPutFile$(h,v,pr$,iname$,button$)
call MacSysBeep (duration)
call copy_clipboard
call copy_done
call copy_pictfile (filename$)  supports PICT2 format
call copy_printer(1)
call draw_clipboard(1)
call Read_clipboard(type$,s$)
call Write_clipboard(type$,s$)
call Read_pictfile(filename$,s$)
call Write_pictfile(filename$,s$)
call Draw_string(s$,fit)

These are basically the same sort of commands available to MS Basic users as built in statements. Other statements for printer control are also included in “MacTools*” library. True Basic file handling is done using the file names with colons separating the volume names. If the more preferred method of using volume numbers is desired then you should plan on using Mac ROM calls.

The Macintosh Developer’s ToolKit supplies the rest of the Macintosh interface. The libraries included in the ToolKit include:

TrueWindows* True Windows

ExecLib* Semi-portable system routines

HexLib* Integer arithmetic aids

System* Low-level interface to System

MacLib* Trap interfaces for other libraries

DataLib* Data conversion for ToolKit routines

ColorLib* Color manager

PickerLib* Color picker package

ControlLib* Control manager

DeskLib* Desk accessory manager

DialogLib* Dialog manager

DiskLib* Disk driver

DiskInitLib* Disk initialization package

EventLib* Toolbox/System event managers

FileLib* File manager

FontLib* Font manager

ListLib* List manager

MenuLib* Menu manager

PackageLib* Package manager

PaletteLib* Palette manager

QuickLib* Quickdraw

ResourceLib* Resource manager

ScrapLib* Scrap manager

SFPlib* Standard file package

SoundLib* Sound manager

SystemLib* System utilities

TextEditLib* Text edit

ToolboxLib* Toolbox utilities

WindowLib* Window manager

As in version 1.0, some calls cannot be mixed with some True Basic commands (especially graphics) very easily. However, this is really not to bad considering the problems we’ve run into with ZBasic and keeping Macintosh events separate from ZBasic events. Also, the Developer’s ToolKit now provides some easy menu and window statements for simple applications. They call this set of routines, TrueWindows.

INTRODUCING “TRUE WINDOWS”

At first it doesn’t seem to make a lot of sense to even have the TRUE WINDOWS library available, but in a pinch when you need a quick and dirty application (what Basic is used for the most often), it is good to not have to set up the GetNextEvent Loop. True Windows gives you access to menu, dialog and alert, event handling and window routines. An example using True Windows is included with this column.

True Windows menu statements are set up with DATA statements. The MAT statement makes it easy to read in the entire menu in one statement. The array containing the menu is dimensioned as DIM menu$(0:menus, 0:items) where menus is the number of menus and items is the max number of menu items in any one menu. This set up is fairly simple and easy to use.

A set of 5-6 types of dialog/alert boxes are available. You can also set a timeout for the dialog box so that if there is no user response the program will continue. Using that function is not recommended by the Macintosh user interface guidelines because it allows something to happen which the user has no control over and does not expect to happen.

A True Windows event handler returns menu,refresh, window selection, close box events, window move events, window resize events, up, down, left, right, pageup, pagedown, pageleft, pageright, vscroll, hscroll, single click, double click, triple click and mouse down events as only as often as you ask for them. True Windows or True Basic does not go out and do a GetNextEvent just for the fun of it which in turn messes up your own event handling.

While it is true that True Windows does not do everything, it is a way to get Macintosh looking interfaces without a lot of extra work. If it doesn’t handle the job then the rest of the Developer’s Toolkit is sufficient to handle any other jobs that might come up that require the Mac ROM routines. And if Apple comes out with a new call some day it is very simple to go in and add the call yourself just by examining the source code for the Toolkit libraries. The copy of Developer’s Toolkit that I have is a prerelease copy, but it appears to be complete in every way.

The hardest thing about using any library is to know the routines that need to be declared in the DECLARE DEF statement so that they can be used in your program. All external functions must be declared. However, the LOAD statement could be used to make the library become a part of the Basic language and thus the DECLARE statement would not be necessary.

Ok, so we know that True Basic can do all this stuff, should I use it for my development project? The answer to this has to be answered yourself, but you should ask your self the following questions:

1. Does my program need to run fast? True Basic speed is satisfactory for many needs, but there are some things that must run faster.

2. Do I care if my application program is greater than 73K? The runtime package uses 73K of disk space. About 35 K of that is in the resource fork of the file and may be shared by more than one application by cutting the resources from the application and pasting into the system file. This is not the preferred method, but could be done if necessary.

3. Do I have a lot of math operations to perform? True Basic is extremely strong in its math support. This is especially true on the Mac II which also includes 68881 math coprocessor support.

4. Do I want full access to the entire Macintosh ROM routines? The Developer’s Toolkit does a great job of supporting all of the ROM routines in a way that can be understood. It is easy to add new ROM calls as they are added in the future. You won’t have to wait for True Basic’s next upgrade to have support of the new features. It would be nice if the ROM support was built into True Basic, but by loading the Library into memory it can become a part of True Basic. Besides, even Lightspeed Pascal requires that Libraries be declared (in the project window) in order to use them.

In my opinion, True Basic has come a long ways by including the runtime package with the Basic system. I would like to see the Developer’s Toolkit bundled with the language system, though the price would certainly be near the same price anyway. Currently, the True Basic language system, including Runtime is $99.95. True Basic libraries are $69.95. This makes the combined package cost $169.90. There are only two areas that I wish could be improved upon with True Basic. One would be to have a true compiler that produces real machine code instead of the b-code stuff. I realize that the b-code is designed to be able to transfer applications in True Basic to other computers. As a matter of fact, True Windows routines are supposed to be transferable to other computers such as the Amiga (gasp) which use a window approach. The other area that could improve is in the code size of the runtime package. Some of the size problem could be eliminated if a ‘true’ compiler were available, that is if it compiled the code efficiently.

!Color Picker Demo
!Demonstrates True Basic’s True Windows and
!illustrates use of the Color Picker routine
!©1988 MacTutor
!By Dave Kelly

LIBRARY “TrueWindows*”,”QuickLib*”,”PickerLib*”
LIBRARY “datalib*”, “maclib*”, “system*”

DECLARE DEF H,V,GetColor$,UnpackEnvirons$,RGB$
DIM menu$(0:1,0:2)
LET false=0
LET true=1
LET Done=false
CALL tw_init(“COLOR”)
! Color isn’t supported yet, but I’m ready for it!
! Find out what kind of computer this is
CALL SysEnvirons(sysEnvRec$,status)
CALL UnpackEnvirons(sysEnvRec$,envversion,machine,sysversion, processor, 
hasFPU,hasColorQD,keyboardtype,atversion, sysvrefnum)
IF hasColorQD<>1 then
   ! we gotta quit, this isn’t a Mac II
   LET done=true
   CALL tw_dwarn(3,”Color Quickdraw is not available!
   Sorry, but you can’t run this     !”,”OK”,1,result)
END IF
IF done<> true then
   MAT READ menu$
   DATA “”,About MacTutor Picker Demo...,””
   DATA File,Get Picker...,Quit
   CALL tw_menu_set(menu$)        ! Set up the menu

   DO
      CALL tw_event(maxnum,type$,window,menunumber,menuitem)
      SELECT CASE type$
      CASE “MENU”
           SELECT CASE menunumber
           CASE 0
                CALL About
           CASE 1
                CALL file(menuitem,done,inrgb$)
           CASE ELSE
           END SELECT
      CASE ELSE
      END SELECT
   LOOP Until Done=true
   CALL tw_menu_clear
! Get rid of the menus
END IF
CALL tw_cleanup
! clean up all the TrueWindows stuff
END

SUB about
    ! Set up the About dialog box.
    CALL tw_dwarn(0,”MacTutor Picker Demo|©1988 MacTutor|By Dave Kelly”,”OK”,1,Result)
END SUB

SUB file(menuitem,done,inrgb$)
    SELECT CASE menuitem
    CASE 1
         ! Set up the upper corner of picker dialog
         CALL SetPt(Point$,0,0)
         ! do picker dialog
         CALL GetColor(point$,”Pick a color, just for fun!”,inrgb$,outrgb$,okflag)
         ! select the color
         IF okflag=1 then LET inrgb$=outrgb$
         CALL unpackRGB(inrgb$,r,g,b)
         LET string$=”Color selected was:|r=”&str$(r)&”|g=”&str$(g)&”|b=”&str$(b)
         ! Display the color in rgb coordinates
         CALL tw_dwarn(1,string$,”OK”,1,result)
    CASE 2
         LET done=1
    CASE ELSE
    END SELECT
END SUB
 
AAPL
$99.02
Apple Inc.
+1.35
MSFT
$43.97
Microsoft Corpora
-0.53
GOOG
$590.60
Google Inc.
+1.58

MacTech Search:
Community Search:

Software Updates via MacUpdate

OS X Yosemite Wallpaper 1.0 - Desktop im...
OS X Yosemite Wallpaper is the gorgeous new background image for Apple's upcoming OS X 10.10 Yosemite. This wallpaper is available for all screen resolutions with a source file that measures 5,418... Read more
Acorn 4.4 - Bitmap image editor. (Demo)
Acorn is a new image editor built with one goal in mind - simplicity. Fast, easy, and fluid, Acorn provides the options you'll need without any overhead. Acorn feels right, and won't drain your bank... Read more
Bartender 1.2.20 - Organize your menu ba...
Bartender lets you organize your menu bar apps. Features: Lets you tidy your menu bar apps how you want. See your menu bar apps when you want. Hide the apps you need to run, but do not need to... Read more
TotalFinder 1.6.2 - Adds tabs, hotkeys,...
TotalFinder is a universally acclaimed navigational companion for your Mac. Enhance your Mac's Finder with features so smart and convenient, you won't believe you ever lived without them. Tab-based... Read more
Vienna 3.0.0 RC 2 :be5265e: - RSS and At...
Vienna is a freeware and Open-Source RSS/Atom newsreader with article storage and management via a SQLite database, written in Objective-C and Cocoa, for the OS X operating system. It provides... Read more
VLC Media Player 2.1.5 - Popular multime...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more
Default Folder X 4.6.7 - 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... Read more
TinkerTool 5.3 - Expanded preference set...
TinkerTool is an application that gives you access to additional preference settings Apple has built into Mac OS X. This allows to activate hidden features in the operating system and in some of the... Read more
Audio Hijack Pro 2.11.0 - Record and enh...
Audio Hijack Pro drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio with Audio Hijack... Read more
Intermission 1.1.1 - Pause and rewind li...
Intermission allows you to pause and rewind live audio from any application on your Mac. Intermission will buffer up to 3 hours of audio, allowing users to skip through any assortment of audio... Read more

Latest Forum Discussions

See All

Traps n’ Gemstones Review
Traps n’ Gemstones Review By Campbell Bird on July 28th, 2014 Our Rating: :: CASTLEVANIA JONESUniversal App - Designed for iPhone and iPad Fight mummies, dig tunnels, and ride a runaway minecart to discover ancient secrets in this... | Read more »
The Phantom PI Mission Apparition Review
The Phantom PI Mission Apparition Review By Jordan Minor on July 28th, 2014 Our Rating: :: GHOSTS BUSTEDUniversal App - Designed for iPhone and iPad The Phantom PI is an exceedingly clever and well-crafted adventure game.   | Read more »
More Stubies Are Coming Your Way in a Ne...
More Stubies Are Coming Your Way in a New Update Posted by Jessica Fisher on July 28th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
The Great Prank War Review
The Great Prank War Review By Nadia Oxford on July 28th, 2014 Our Rating: :: PRANKING IS SERIOUS BUSINESSUniversal App - Designed for iPhone and iPad Though short, The Great Prank War offers an interesting and fun mix of action and... | Read more »
Marvel Contest of Champions Announced at...
Marvel Contest of Champions Announced at Comic-Con Posted by Jennifer Allen on July 28th, 2014 [ permalink ] Announced over the weekend at San Diego Comic-Con was the fairly exciting looking Marvel Contest of Champions. | Read more »
Teenage Mutant Ninja Turtles Review
Teenage Mutant Ninja Turtles Review By Jennifer Allen on July 28th, 2014 Our Rating: :: DULL SWIPINGUniversal App - Designed for iPhone and iPad The pizza power is weak when it comes to this Teenage Mutant Ninja Turtles game.   | Read more »
Exploration Focused Puzzle Game Beatbudd...
Exploration Focused Puzzle Game Beatbuddy Set to Make Transition from PC to iOS this September Posted by Jennifer Allen on July 28th, 2014 [ permalink ] | Read more »
PlanetHD
PlanetHD By Nadia Oxford on July 28th, 2014 Our Rating: :: SPACE MADNESSUniversal App - Designed for iPhone and iPad PlanetHD will keep players busy for a while, though its unpredictable physics are a handful to deal with.   | Read more »
This Week at 148Apps: July 21-25, 2014
Another Week of Expert App Reviews   At 148Apps, we help you sort through the great ocean of apps to find the ones we think you’ll like and the ones you’ll need. Our top picks become Editor’s Choice, our stamp of approval for apps with that little... | Read more »
Reddme for iPhone - The Reddit Client (...
Reddme for iPhone - The Reddit Client 1.0 Device: iOS iPhone Category: News Price: $.99, Version: 1.0 (iTunes) Description: Reddme for iPhone is an iOS 7-optimized Reddit client that offers a refreshing new way to experience Reddit... | Read more »

Price Scanner via MacPrices.net

13-inch 2.5GHz MacBook Pro on sale for $1099,...
Best Buy has the 13″ 2.5GHz MacBook Pro available for $1099.99 on their online store. Choose free shipping or free instant local store pickup (if available). Their price is $100 off MSRP. Price is... Read more
Roundup of Apple refurbished MacBook Pros, th...
The Apple Store has Apple Certified Refurbished 13″ and 15″ MacBook Pros available for up to $400 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free. Their prices... Read more
Record Mac Shipments In Q2/14 Confound Analys...
A Seeking Alpha Trefis commentary notes that Apple’s fiscal Q3 2014 results released July 22, beat market predictions on earnings, although revenues were slightly lower than anticipated. Apple’s Mac’... Read more
Intel To Launch Core M Silicon For Use In Not...
Digitimes’ Monica Chen and Joseph Tsai, report that Intel will launch 14nm-based Core M series processors specifically for use in fanless notebook/tablet 2-in-1 models in Q4 2014, with many models to... Read more
Apple’s 2014 Back to School promotion: $100 g...
 Apple’s 2014 Back to School promotion includes a free $100 App Store Gift Card with the purchase of any new Mac (Mac mini excluded), or a $50 Gift Card with the purchase of an iPad or iPhone,... Read more
iMacs on sale for $150 off MSRP, $250 off for...
Best Buy has iMacs on sale for up to $160 off MSRP for a limited time. Choose free home shipping or free instant local store pickup (if available). Prices are valid for online orders only, in-store... Read more
Mac minis on sale for $100 off MSRP, starting...
Best Buy has Mac minis on sale for $100 off MSRP. Choose free shipping or free instant local store pickup. Prices are for online orders only, in-store prices may vary: 2.5GHz Mac mini: $499.99 2.3GHz... Read more
Global Tablet Market Grows 11% in Q2/14 Notwi...
Worldwide tablet sales grew 11.0 percent year over year in the second quarter of 2014, with shipments reaching 49.3 million units according to preliminary data from the International Data Corporation... Read more
New iPhone 6 Models to Have Staggered Release...
Digitimes’ Cage Chao and Steve Shen report that according to unnamed sources in Apple’s upstream iPhone supply chain, the new 5.5-inch iPhone will be released several months later than the new 4.7-... Read more
New iOS App Helps People Feel Good About thei...
Mobile shoppers looking for big savings at their favorite stores can turn to the Goodshop app, a new iOS app with the latest coupons and deals at more than 5,000 online stores. In addition to being a... Read more

Jobs Board

Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full 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
Sr. Product Leader, *Apple* Store Apps - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring 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.