Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- Blinker 5.10 Online Reference - <b> microsoft fortran</b> http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
 Microsoft FORTRAN
------------------------------------------------------------------------------
 Blinker supports version 5.1 and later of Microsoft FORTRAN for overlaid,
 DOS extended and Windows programs, but NOT dual mode programs. The following
 sample programs written in Microsoft FORTRAN will be used throughout this
 section to illustrate the basics of linking Microsoft FORTRAN programs with
 Blinker.

 Overlaid programs must be compiled to use far calls, i.e. medium, large or
 huge memory model. Extended mode programs must be compiled to use large or
 huge memory model.

 The Microsoft FORTRAN graphics libraries for version 5.1 and later are fully
 supported in protected mode.

 TEST.FOR
       CALL limerick
       END
 LIMERICK.FOR
       SUBROUTINE limerick ()
       WRITE (*,1000)
       WRITE (*,1010)
       RETURN
 1000  FORMAT("There once was a young man from")
 1010  FORMAT(" Microsoft")
       END

 The two modules are compiled as large model code as follows :

 FL /c /AL test.for
 FL /c /AL limerick.for

 DOS extended / non-overlaid program

 # TEST.LNK (This is a comment)
 # Comment out the next line for DOS real mode program
 BLINKER EXECUTABLE EXTENDED   # Create DOS extended program
 FILE test
 FILE limerick
 SEARCH BLXMSFnn               # Blinker extended mode library

 This causes Blinker to link the two object modules specified in the FILE
 commands (test.obj and limerick.obj) to create a DOS extended program with
 the name TEST.EXE, which is the name of the first .OBJ file in a FILE
 command.

 Overlaid program

 # TESTOVL.LNK
 BLINKER OVERLAY OPSIZE 50     # 50kb overlay area
 BLINKER OVERLAY PAGEFRAME ON  # Run overlays in pageframe
 BLINKER MESSAGE WINK          # Only wink one eye
 FILE test                     # This file is not overlaid
 BEGINAREA                     # Start of overlays
    FILE limerick              # This file is overlaid
 ENDAREA                       # End of overlays
 OUTPUT t                      # Output .EXE name
 MAP A,S                       # Create MAP file

 16 bit Windows program

 #TESTWIN.LNK
 FILE test
 FILE limerick
 LIB llibfew, libw ...   # Windows libraries
 NODEFLIB                # No default libraries
 DEFFILE TEST            # Use TEST.DEF
 #TEST.DEF
 NAME         TEST
 DESCRIPTION  'A small Windows program'
 EXETYPE      WINDOWS 3.1
 HEAPSIZE     1024
 STACKSIZE    8192

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson