TweetFollow Us on Twitter

Mover Fix
Volume Number:4
Issue Number:12
Column Tag:ßasic School

QuickBasic's Statement Mover Fix

By Dave Kelly, Editorial Board

Statement Mover Fix

During the past month, I’ve been looking at the demo programs included with MS QuickBASIC 1.0. The programs exercise most of (but certainly not all) the syntax of QuickBASIC. Also utility programs are provided which can be used to help your development are:

‘AlertMover’ For copying Alert/Dialog resources

‘Cursor Editor’ For defining your own cursors

‘Demo Resources’ containing Alert resources

‘extra MBLC Remover’ removes unnecessary library resources from your application programs.

‘Pattern Editor’ For defining your own patterns

‘Print Listing File’ Print listings created at compile time.

‘renumber CODEs’ avoids code id conflicts

‘SortSub’ moves sub programs to the end of a Basic source code file

‘Statement Mover’ moves resources especially Library resources.

Missing from this list is a variable cross reference program and a program to compare the differences between two text files. Comparing differences between files is somewhat complex when programs don’t have line numbers to compare with.

The new version of ‘Statement Mover’ is much improved over the version included with MS BASIC 3.0 and the CLR Libraries. You can now copy most any kind of resource that has a resource name attached. But, don’t open up an open resource file or you get a bomb! That means you can’t open the System File or the ‘Statement Mover’ application. I haven’t worked on a fix for that one yet, but I have made a minor improvement to ‘Statement Mover’ which uses a dialog resource.

The routine I have written replaces the NewTypeDialog subprogram in ‘Statement Mover’. First the program’s volume reference number is retrieved and the dialog is displayed. Then a loop is set up to retrieve changes in the modal dialog. When a radio button is pressed the routine responds to it and updates the other buttons. The buttons represent a set of resource types which might be moved from one program or file to another. The edit field is updated with the resource type so that it will be passed when the routine is exited.

The dialog resource may be created with ResEdit or any other program that allows you to create dialogs. I used ProtoTyper™ to create the dialog so that I could try it out before I copied it into my QuickBASIC program. Because I had so many buttons in my dialog I used ResEdit to adjust the order of the buttons so that the ‘OK’ button would be the first one (ProtoTyper™ sets them up in the order that they were drawn and you can’t change the order without starting over).

Another thing that this dialog resource shows is a way to create the bold default buttons. Normally in Pascal or C you can draw the bold with the FrameRoundRect statement after defining the dialog item as a user item. A method that works is to define a PICT resource that looks like the bold roundrect and position it around the button which will be the default (usually the ‘OK’ button). I believe that you can do it this way from other languages too, although Inside Macintosh vol. 1 says to use the user items.

{1}
‘ NewTypeDialog Subprogram
‘ Replaces NewTypeDialog in Statement Mover Program
‘ Subprogram by Dave Kelly
‘ Portions derived from Prototyper.

‘Use these lines to test the program
‘ cancel%=0
‘ NewType$=””
‘ CALL NewTypeDialog(NewType$,cancel%)
‘ PRINT NewType$
‘ END

SUB NewTypeDialog(NewType$,cancel%) STATIC
    False=0:True=NOT False
    ExitDialog =False  ‘ Flag used TO EXIT the DIALOG

    Selection&=0  : ‘  DialogPtr;NAME of DIALOG
    index%=0 :’  FOR looping
    EditString$=”” :’ GET Text entered, temp holding
    itemHit%=0 : ‘ GET selection

    ‘ Start of DIALOG handler
    vref%=SYSTEM(7): ‘  Get program’s volume reference number.
    NewType$=””
    GetNewDialog vref%,10000,Selection&    ‘ Bring in the DIALOG resource

    ExitDialog=False  ‘   Do NOT EXIT DIALOG Handle loop yet
    itemHit%=0
    WHILE ExitDialog=False ‘  Start of DIALOG Handle loop
        ModalDialog Selection&, itemHit%   :’  WAIT until an item IS 
hit
        SELECT CASE itemHit%
            CASE 1        ‘ Handle the OK BUTTON being pressed
                ExitDialog=True ‘   {EXIT the DIALOG when This selection 
IS made}
                cancel%=False

            CASE 2   ‘     Handle the Cancel BUTTON being pressed
                ExitDialog=True  ‘  {EXIT the DIALOG when This selection 
IS made}
                SetDialogText Selection&,4,””
                cancel%=True

            CASE 5 TO 27
                FOR index%=5  TO 27 ‘ CLEAR ALL other radios
                    IF index%<>itemHit% THEN SetDialogBut Selection&,index%,1
                NEXT index%
                ‘ Setup the Dialog selections
                SetDialogBut Selection&,itemHit%,2
                IF itemHit%=5 THEN EditString$=”ALRT”
                IF itemHit%=6 THEN EditString$=”APPL”
                IF itemHit%=7 THEN EditString$=”BNDL”
                IF itemHit%=8 THEN EditString$=”CNTL”
                IF itemHit%=9 THEN EditString$=”CURS”
                IF itemHit%=10 THEN EditString$=”DITL”
                IF itemHit%=11 THEN EditString$=”DLOG”
                IF itemHit%=12 THEN EditString$=”DRVR”
                IF itemHit%=13 THEN EditString$=”FOND”
                IF itemHit%=14 THEN EditString$=”FONT”
                IF itemHit%=15 THEN EditString$=”FREF”
                IF itemHit%=16 THEN EditString$=”GNRL”
                IF itemHit%=17 THEN EditString$=”ICN#”
                IF itemHit%=18 THEN EditString$=”ICON”
                IF itemHit%=19 THEN EditString$=”MBAR”
                IF itemHit%=20 THEN EditString$=”MENU”
                IF itemHit%=21 THEN EditString$=”PAT”
                IF itemHit%=22 THEN EditString$=”PAT#”
                IF itemHit%=23 THEN EditString$=”PICT”
                IF itemHit%=24 THEN EditString$=”SIZE”
                IF itemHit%=25 THEN EditString$=”STR#”
                IF itemHit%=26 THEN EditString$=”STR “
                IF itemHit%=27 THEN EditString$=”WIND”
                SetDialogText Selection&,4,EditString$

            CASE ELSE
                FOR index%=5  TO 27 ‘ CLEAR ALL radio buttons
                    SetDialogBut Selection&,index%,1
                NEXT index%

        END SELECT
    WEND   ‘ Handle DIALOG items until EXIT selected
    GetDialogText Selection&,4,NewType$
    DisposeDialog Selection&  ‘       Flush the DIALOG out of memory
END SUB ‘     END of unit

The following Dialog resource file should either be created with Compiled with a resource compiler or recreated with ResEdit or Prototyper.

{2}
resource  ‘PICT’ (600, purgeable)
{
    49,
    {-1, -1, 35, 70},
    {17; 1; 160; 0; 130; 1; 0; 10; 255; 255; 255; 255; 0
    ; 35; 0; 70; 7; 0; 3; 0; 3; 11; 0; 21; 0
    ; 21; 64; 0; 1; 0; 1; 0; 35; 0; 70; 160; 0
    ; 131; 255}
};

resource  ‘DITL’ (10000 , “NewTypeDialog”)
{
  {
    {130, 146, 156, 207},
      Button {enabled, “OK”};
    {130, 26, 155, 88},
      Button {enabled, “Cancel”};
    {120, 246, 136, 297},
      StaticText {enabled, “Other:”};
    {120, 306, 136, 357},
      EditText {enabled, “”};
    {20, 26, 42, 90},
      RadioButton {enabled, “ALRT”};
    {40, 26, 60, 81},
      RadioButton {enabled, “APPL”};
    {60, 26, 82, 90},
      RadioButton {enabled, “BNDL”};
    {80, 26, 102, 90},
      RadioButton {enabled, “CNTL”};
    {100, 26, 120, 81},
      RadioButton {enabled, “CURS”};
    {20, 96, 42, 160},
      RadioButton {enabled, “DITL”};
    {40, 96, 62, 160},
      RadioButton {enabled, “DLOG”};
    {60, 96, 82, 160},
      RadioButton {enabled, “DRVR”};
    {80, 96, 102, 160},
      RadioButton {enabled, “FOND”};
    {100, 96, 122, 160},
      RadioButton {enabled, “FONT”};
    {20, 166, 40, 221},
      RadioButton {enabled, “FREF”};
    {40, 166, 62, 230},
      RadioButton {enabled, “GNRL”};
    {60, 166, 80, 221},
      RadioButton {enabled, “ICN#”};
    {80, 166, 100, 221},
      RadioButton {enabled, “ICON”};
    {100, 166, 120, 221},
      RadioButton {enabled, “MBAR”};
    {20, 236, 40, 296},
      RadioButton {enabled, “MENU”};
    {40, 236, 62, 300},
      RadioButton {enabled, “PAT “};
    {60, 236, 80, 291},
      RadioButton {enabled, “PAT#”};
    {80, 236, 102, 300},
      RadioButton {enabled, “PICT”};
    {100, 236, 120, 291},
      RadioButton {enabled, “SIZE”};
    {20, 306, 40, 361},
      RadioButton {enabled, “STR#”};
    {40, 306, 62, 370},
      RadioButton {enabled, “STR “};
    {60, 306, 80, 361},
      RadioButton {enabled, “WIND”};
    {123, 139, 161, 212},
      Picture {enabled, 600}
  }
};

resource  ‘DLOG’ (10000 , “NewTypeDialog”)
{
    {50, 120, 223, 504},
    1,
    invisible,
    noGoAway,
    0x1,
    10000,
    “NewTypeDialog”
};

I came across a bug in the AlertMover program which I include a fix here. The problem was that AlertMover would not save to an existing file. There are some fundamental problems with some of the sample programs on the QuickBASIC examples disk which are related to finding the filename of the application program. Microsoft added the SYSTEM(7) function after the manual was printed and so was probably not known or available at the time the demo programs were written. Changes could be made to the other programs in a similar manner. Here is the fix:

WAS:

‘    AlertMover
‘    © Sharon Zardetto Aker
‘    © 1988 by Microsoft Corp.
‘    Modified from Sharon Zardetto Aker’s original to take
‘    advantage of new QB features.
‘
‘------------------------------------------------------------
‘
    CLEAR,100000&
    OPTION BASE 1

SH=SYSTEM(6)    ‘Get screen height
SW=SYSTEM(5)    ‘Get screen width

IS:
‘    AlertMover
‘    © Sharon Zardetto Aker
‘    © 1988 by Microsoft Corp.
‘    Modified from Sharon Zardetto Aker’s original to take
‘    advantage of new QB features.
‘    Modified again so that it would create new files properly
‘    by Dave Kelly 9/17/88
‘------------------------------------------------------------
‘
    CLEAR,100000&
    OPTION BASE 1

DIM SHARED IOPB%(60),fil$   :’used by new subprogram ***************

SH=SYSTEM(6)    ‘Get screen height
SW=SYSTEM(5)    ‘Get screen width

WAS:
   IF SYSTEM(4) THEN    ‘If compiled...
        openResFile “Demo Resources”,ref%
    ELSE    ‘if interpreted, get File reference number of this source
        ref%=PEEKW(&HA5A)
    END IF
    ON BREAK GOSUB quit :BREAK ON
    MENU 1,0,1,”File”

IS:
   IF SYSTEM(4) THEN    ‘If compiled...
        PgmPath$=””
        ref%= SYSTEM(7)
        GetPathName ref%, PgmName$
        parse PgmName$,path$    ‘separate file name from the path
        OpenResFile PgmName$,ref%
    ELSE    ‘if interpreted, get File reference number of this source
        ref%=PEEKW(&HA5A)
    END IF
    ON BREAK GOSUB quit :BREAK ON
    MENU 1,0,1,”File”

Then add the following subprograms to the end: (These routines were taken from the ‘GetPathNames’ demo program which is included with MS QuickBASIC version 1.0). This is a great way to find the pathnames of files you are using.

‘----------------------------------------------------------------
‘   Gets the full path name of a file given the file reference
‘  number of file.  The file reference may be obtained from
‘    OpenResfile, SYSTEM(7), GetChanRefNum, or various low 
‘    memory locations.
‘
SUB GetPathName(ref%,path$) STATIC
    fil$=”” : Folder$=””
    GetFCBInfo IOPB%(0),fil$,ref%
    path$=fil$
    DirID&=IOPB%(29)*65536&+IOPB%(30)
    VRefNum%=IOPB%(26)
    WHILE DirID&<>1
        GetCatInfo IOPB%(0),Folder$,DirID&,VRefNum%
        path$=Folder$+”:”+path$
        DirID&=IOPB%(50)*65536&+IOPB%(51)
    WEND
END SUB

‘----------------------------------------------------------------
SUB parse(filename$,path$) STATIC
index%=1
    WHILE index% ‘<>0
        last%=index%
        index%=INSTR(index%+1,filename$,”:”)
    WEND
    IF last%=1 THEN  ‘there was no path
        path$=””
    ELSE             ‘divide filenamein$ into path$ and filename$
        path$=LEFT$(filename$,last%)
        filename$=RIGHT$(filename$,LEN(filename$)-last%)
    END IF
END SUB
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OmniOutliner Pro 4.6 - Pro version of th...
OmniOutliner Pro is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Alfred 3.1 - Quick launcher for apps and...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
OmniOutliner 4.6 - Organize your ideas,...
OmniOutliner is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Default Folder X 5.0.6 - 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
Adobe Creative Cloud 3.8.0.310 - 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
MYStuff Pro 2.0.25 - Create inventories...
MYStuff Pro is the most flexible way to create detail-rich inventories for your home or small business. Add items to MYStuff by dragging and dropping existing information, uploading new images, or... Read more
Viber 6.2.0 - Send messages and make cal...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
Data Rescue 4.2.3 - Powerful hard drive...
Use Data Rescue to recover: crashed, corrupted or non-mounting hard drive deleted, damaged, or lost files reformatted or erased hard drive One powerful new feature found in Data Rescue 4 is... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more

Find out the story behind League of Ange...
If you’re looking for a new thrilling MMORPG to play with your friends then you’ll be excited to hear that there is a sequel to one of the most well known titles in the genre – namely League of Angels 2. With a brand new 3D engine offering... | Read more »
Naruto Shippuden: Ultimate Ninja Blazing...
I'm not sure if it's possible to say you are an anime fan but also never have seen one episode of Naruto. If it is, then I resemble that remark, and if not, I offer a hearty apology. [Read more] | Read more »
5 mobile games that let you explore spac...
No Man's Sky hasn't exactly turned out to be everything it was promised. Though its core concept of exploring an unimaginably vast universe of different planets is an intriguing one, the execution has left many PS4 and PC gamers feeling like they... | Read more »
Mummy madness in new action game Tomb He...
Hot on the tail of Bump Hero, ZPlay is giving gamers another reason to get screen bashing with a brand new release. Tomb Heroes is a challenging action game in which you battle enemies in various tombs around the world. You can select from nine... | Read more »
Siralim 2 (RPG / Roguelike) (Games)
Siralim 2 (RPG / Roguelike) 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Siralim 2 is an old-school monster catching RPG. Summon and customize hundreds of creatures to fight for you as... | Read more »
Clean Text (Productivity)
Clean Text 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Gemini - A Journey of Two Stars (Games)
Gemini - A Journey of Two Stars 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: *** SPECIAL LAUNCH SALE: $2.99 (25% off) *** "A mesmerizing and unexpectedly emotional journey." -- Los... | Read more »
How to get four NFL superstars for your...
Even though you're probably well on your way to building a top notch squad for the new season in Madden NFL Mobile, let's say you could beef it up by adding Rob Gronkowski, Antonio Brown, Von Miller, and Todd Gurley to your roster. That's... | Read more »
Cartoon Network Superstar Soccer: Goal!!...
Cartoon Network Superstar Soccer: Goal!!! – Multiplayer Sports Game Starring Your Favorite Characters 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Become a soccer superstar with your... | Read more »
NFL Huddle: What's new in Topps NFL...
Can you smell that? It's the scent of pigskin in the air, which either means that cliches be damned, pigs are flying in your neck of the woods, or the new NFL season is right around the corner. [Read more] | Read more »

Price Scanner via MacPrices.net

RESCUECOM 2016 Semi-Annual Computer Reliabili...
The beginning of a new school year is upon us again, in which students and parents have some very important choices to make, often including the purchase of a computer or tablet. Whether you are... Read more
VRS Design Damda Glide Series iPhone 7 and 7...
What makes the Damda Glide Series for the iPhone 7 and iPhone 7 Plus special? Case maker VRS Design says its Damda Glide Series is the first mobile case to incorporate a semi-automatic mechanism for... Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $350 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $829... 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
Save $120 with Apple refurbished Time Capsule...
Apple has certified refurbished Time Capsules available for $120 off MSRP. Apple’s one-year warranty is included with each Time Capsule, and shipping is free: - 2TB Time Capsule: $179, $120 off (not... Read more
9-inch 32GB iPad Pros on sale for $70 off MSR...
B&H Photo has 9″ 32GB WiFi Apple iPad Pros on sale for $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 32GB WiFi iPad Pro: $529 $70 off MSRP - 9... Read more
Mac minis on sale for up to $140 off MSRP
Adorama has Mac minis on sale for up to $100 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP Amazon has the... Read more
Back To School with OtterBox Essentials
Back to school means back to an environment that is tough on tech. OtterBox has the back to school essentials you need to keep tech safe from drops, bumps, scratches and hallway havoc. Check out the... Read more
VRS Design Releases New iPhone 7 Plus Case Li...
With a device as large and costly as the iPhone 7 Plus, it is primal instinct to protect it from potential damage. According to a study by SquareTrade in 2012, iPhone damages cost Americans roughly $... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51218354 Fredericksburg, Virginia, United States Posted: Aug. 18, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* /Mac Support Engineer - GFI Digital,...
FI Digital, Inc. is currently seeking candidates for a full time Apple Support Engineer to add to our Maryland Heights, Missouri IT team. Candidates must be dynamic Read more
*Apple* Solutions Consultant - Apple (United...
Apple Solutions ConsultantJob Number: 51218534Pleasant Hill, California, United StatesPosted: Aug. 18, 2016Weekly Hours: 40.00Job SummaryAs an Apple Solutions Read more
*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51443201 Mishawaka, Indiana, United States Posted: Aug. 25, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.