===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 04-08-93 (17:04)             Number: 268
From: CRAIG PALAZZO                Refer#: 127
  To: JON SPRINGER                  Recvd: NO  
Subj: 64k code barrier               Conf: (35) Quick Basi
---------------------------------------------------------------------------
To take this a bit further the Rob did.......

In the QB/QBX editor(s) select File from the menu bar. Now select file create. Y
ou will be asked what type of file is this is to be, check module .BAS. You now
have another 64k of program space. This sounds simple (and is), however you will
 find some new factors involved in your applications. As an alternative you coul
d use libraries. These add the same new factors that modules present. However st
orage is more efficient and routines in libraries can be used across many applic
ations. It is best to keep your routines as generic or stand alone as you can.

Try this.........

---------CUT HERE-----------
'This function returns a pointer to
'the start of video memory. This is
'very crude and hardware specific.
FUNCTION VidSeg%
        DEF SEG = 0
        IF PEEK(&H463) = &HB4 THEN
                VidSeg% = &HB000
        ELSE
                VidSeg% = &HB800
        END IF
        DEF SEG
END FUNCTION
---------CUT HERE-------------

'Main Module
'You can use the VidSeg function for two things,
'1) Determine display type (color or mono)
'2) As a base pointer into the video segment.

DECLARE FUNCTION VidSeg%

DEF SEG VidSeg%
basePtr% = VidSeg%
WHILE basePtr% <= 4000
        POKE basePtr%, 127
        basePtr% = basePtr% + 1
WEND
DEF SEG

Now take the part that says cut and save it in a .BAS file that has only that fu
nction in it. Now compile the file using BC and then, use LINK with the
/Q command line option to create a .QLB quick library or LIB to create a linkabl
e .LIB file. VidSeg% is now in a library that can be used by any program. To use
 the VidSeg routine in a program in the QB editor use the /L command line switch
 when you start QB ( QB /L YOUR.QLB ).

--- Maximus 2.01wb
 * Origin: |=[Bloom Co. Hospital>=--- |[GRapids,MI] (616)361-8345 (1:228/26)
SEEN-BY: 1/211 11/2 4 108/89 110/69 121/8 154/9 40 42 77 321 157/2 159/100
SEEN-BY: 159/125 430 575 950 227/3 228/26 56 57 71 234/100 396/1 2210/7956
SEEN-BY: 2230/100 2240/176 2410/193