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
 
AAPL
$101.58
Apple Inc.
+0.72
MSFT
$46.52
Microsoft Corpora
-0.24
GOOG
$584.77
Google Inc.
+4.82

MacTech Search:
Community Search:

Software Updates via MacUpdate

iExplorer 3.5.0.0 - View and transfer al...
iExplorer is an iPhone browser for Mac lets you view the files on your iOS device. By using a drag and drop interface, you can quickly copy files and folders between your Mac and your iPhone or... Read more
BusyCal 2.6 - Powerful calendar app with...
BusyCal is an award-winning desktop calendar that combines personal productivity features for individuals with powerful calendar sharing capabilities for families and workgroups. BusyCal's unique... Read more
Apple iOS 8.0 - The latest version of Ap...
The latest version of iOS can be downloaded through iTunes. Apple iOS 8 comes with big updates to apps you use every day, like Messages and Photos. A whole new way to share content with your family.... Read more
Apple Digital Camera RAW Compatibility 5...
Apple Digital Camera RAW Compatibility update adds RAW image compatibility to Aperture 3 and iPhoto '11. For more information on supported RAW formats, see here.Version 5.07: Adds RAW camera... Read more
Transmit 4.4.7 - Excellent FTP/SFTP clie...
Transmit is an excellent FTP (file transfer protocol), SFTP, S3 (Amazon.com file hosting) and iDisk/WebDAV client that allows you to upload, download, and delete files over the internet. With the... Read more
Macgo Blu-ray Player 2.10.8.1715 - Blu-r...
Macgo Mac Blu-ray Player can bring you the most unforgettable Blu-ray experience on your Mac. Overview Macgo Mac Blu-ray Player can satisfy just about every need you could possibly have in a Blu-ray... Read more
Capture One Pro 8.0.0.433 - RAW workflow...
Capture One Pro 8 is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 300 high-end cameras -- straight out of the box. It... Read more
Adobe Acrobat Pro 11.0.09 - Powerful PDF...
Adobe Acrobat allows users to communicate and collaborate more effectively and securely. Unify a wide range of content in a single organized PDF Portfolio. Collaborate through electronic document... Read more
Adobe Reader 11.0.09 - View PDF document...
Adobe Reader allows users to view PDF documents. You may not know what a PDF file is, but you've probably come across one at some point. PDF files are used by companies and even the IRS to... Read more
iFFmpeg 4.6.1 - Convert multimedia files...
iFFmpeg is a graphical front-end for FFmpeg, a command-line tool used to convert multimedia files between formats. The command line instructions can be very hard to master/understand, so iFFmpeg does... Read more

Latest Forum Discussions

See All

KuaiBoard (formerly QuickBoard) (Utilit...
KuaiBoard (formerly QuickBoard) 1.0 Device: iOS Universal Category: Utilities Price: $1.99, Version: 1.0 (iTunes) Description: KuaiBoard is currently 50% off for launch! Billing info. Signatures. Locations. KuaiBoard allows you to... | Read more »
Treasure Fetch - Adventure Time (Games)
Treasure Fetch - Adventure Time 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: Adventure Time Treasure Fetch is a fresh take on the classic Snake game! STRETCHY JAKE Snake your way... | Read more »
Light in the Dark (Games)
Light in the Dark 1.1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1.0 (iTunes) Description: Be enlightened by this delightful puzzle game that has never before seen the light of day! "A physics and color-blending... | Read more »
Transmit iOS (Utilities)
Transmit iOS 1.0 Device: iOS Universal Category: Utilities Price: $9.99, Version: 1.0 (iTunes) Description: >> LAUNCH SPECIAL: Transmit iOS is ONLY $10 for a LIMITED TIME. << THE #1 FILE TRANSFER CLIENT FOR THE MAC NOW... | Read more »
Minuum - The Little Keyboard for Big Fin...
Minuum - The Little Keyboard for Big Fingers 1.0 Device: iOS iPhone Category: Utilities Price: $1.99, Version: 1.0 (iTunes) Description: Type faster, see more of your screen, and take control of autocorrect with Minuum: the little... | Read more »
TextExpander 3 + custom keyboard (Utili...
TextExpander 3 + custom keyboard 3.0 Device: iOS Universal Category: Utilities Price: $4.99, Version: 3.0 (iTunes) Description: | Read more »
Swype - Keyboard (Utilities)
Swype - Keyboard 1.0.1411 Device: iOS Universal Category: Utilities Price: $.99, Version: 1.0.1411 (iTunes) Description: Why type when you can Swype? One of the most requested apps for iPhone is finally here. "If Swype itself ever... | Read more »
Joinz (Games)
Joinz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Joinz is a clever block sliding puzzle game that is easy to play, nice to look at but tricky to master. You will be coming back again... | Read more »
Little World Escape Review
Little World Escape Review By Jordan Minor on September 17th, 2014 Our Rating: :: EARTHBOUNDUniversal App - Designed for iPhone and iPad Little World Escape draws players in with captivating concepts before pushing them away with... | Read more »
Light in the Dark Review
Light in the Dark Review By Nadia Oxford on September 17th, 2014 Our Rating: :: LIGHT 'EM UP UP UPUniversal App - Designed for iPhone and iPad Light in the Dark is an interesting and challenging puzzle game with some amusing bits... | Read more »

Price Scanner via MacPrices.net

Logitech Bluetooth Multi-Device Cross-Platfor...
Logitech has an enviable track record of making some of the best computer keyboards and mice. At least in my estimation, the best freestanding keyboards I’ve ever used have been Logitech units,... Read more
Roundup of Apple refurbished iPad Airs and iP...
Apple is offering Certified Refurbished iPad Airs for up to $140 off MSRP. Apple’s one-year warranty is included with each model, and shipping is free. Stock tends to come and go with some of these... Read more
Sprint offers 16GB iPad mini for $199.99 with...
Sprint is offering 1st generation 16GB iPad minis for $199.99 with a 2-year service agreement. Standard MSRP for this iPad is $429. Their price is the lowest available for this model. Read more
2.5GHz Mac mini remains on sale for $549, sav...
B&H Photo has the 2.5GHz Mac mini on sale for $549.99 including free shipping. That’s $50 off MSRP, and B&H will also include a free copy of Parallels Desktop software. NY sales tax only. Read more
Apple refurbished iMacs available for up to $...
The Apple Store has Apple Certified Refurbished iMacs available for up to $300 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free. These are the best prices on... Read more
13″ 2.5GHz MacBook Pro offered for $100 off M...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999.99 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Free GIMP Professional Grade Graphics App Ver...
The latest 2.8.14 version of the oddly-named GIMP (acronym for: GNU Image Manipulation Program) open source, high-end image editing and creation alternative to Adobe’s Photoshop and refuge from... Read more
Apple Announces Record Pre-orders for iPhone...
Apple has released metrics showing a record number of first day pre-orders of iPhone 6 and iPhone 6 Plus, with over four million sold in the first 24 hours. Demand for the new iPhones exceeds the... Read more
10% off iPhone 6 and 6 Plus Otterbox cases
Get 10% off on popular Otterbox iPhone 6 and iPhone 6 Plus cases at MacMall through September 19th. Use code OTTERBOX10 to see the discount. Read more
15-inch MacBook Pros on sale for up to $125 o...
Amazon has the new 2014 15″ Retina MacBook Pros on sale for up to $125 off MSRP including free shipping: - 15″ 2.2GHz Retina MacBook Pro: $1899.99 save $100 - 15″ 2.5GHz Retina MacBook Pro: $2374... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.