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

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 »
iDoyle: The interactive Adventures of Sh...
iDoyle: The interactive Adventures of Sherlock Holmes - A Scandal in Bohemia 1.0 Device: iOS Universal Category: Books Price: $1.99, Version: 1.0 (iTunes) Description: Special Release Price $1.99 (Normally $3.99) | Read more »
Five popular free apps to help you slim...
Thanks to retail and advertising, we're used to thinking one season ahead. Here we are just a week into the summer and we're conditioned to start thinking about the fall. [Read more] | Read more »
How to ride longer and tame more animals...
It's hard to accurately describe Rodeo Stampede to people who haven't seen it yet. It's like if someone took Crossy Roadand Disco Zoo and put them in a blender, yet with a unique game mechanic that's still simple and fun for anyone. [Read more] | Read more »
Teeny Titans - A Teen Titans Go! Figure...
Teeny Titans - A Teen Titans Go! Figure Battling Game 1.0.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.0 (iTunes) Description: Teeny Titans, GO! Join Robin for a figure battling RPG of epic proportions! TEENY... | Read more »
NinjAwesome: Tips and tricks to be a mor...
Sorry about that headline, but I'm going to go ahead and assume that GameResort would not have named its game NinjAwesome without expecting some of that. It is, in fact, pretty awesome the way it combines an endless runner and old school arcade... | Read more »
Into Mirror (Games)
Into Mirror 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: "Is all that we see or seem, but a dream within a dream?"- Edgar Allan Poe New game by Lemon Jam Studio, the team behind Pursuit... | Read more »

Price Scanner via MacPrices.net

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
6-core Mac Pro available for $3799, save $200
B&H Photo has the 6-core 3.5GHz Mac Pro on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.5GHz 6-core Mac Pro (sku MD878LL/A): $3799.99, $200 off MSRP Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more
13-inch Retina MacBook Pros on sale for up to...
B&H Photo has 13″ Retina MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1179 $120 off MSRP - 13″ 2.7GHz/... Read more
Apple refurbished Mac minis available for up...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. 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* Retail - Multiple Positions, Towson...
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
Music Marketing Lead, iTunes & *Apple*...
…Music Marketing Lead is responsible for developing robust marketing campaigns and programs for Apple Music and iTunes across the whole of Apple ecosystem. This Read more
*Apple* Valley Medical Clinic is Hiring - AP...
Apple Valley Medical Clinic is Hiring! Apple Valley Medical Clinic is an independently owned practice operating a Family Medicine Clinic, a 24/7 Urgent Care, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.