VBDOS link fix

 BBS: Inland Empire Archive
Date: 12-19-92 (23:24)             Number: 385
From: QUINN TYLER JACKSON          Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: VBDOS link fix                 Conf: (2) Quik_Bas

' This utility allows HUGE projects to be linked from the VBDOS environment
' when a 'TOO MANY SEGMENTS' error is generated.  It does
this by intercepting ' the environment's call to LINK.EXE
and changing the temporary response
' file sent to LINK.EXE.  LINK.EXE must be renamed to LINC.EXE, since this
' utility must be called LINK.EXE for it to work properly.  (That is to say,
' the VBDOS environment calls LINK.EXE, and for this file to intercept that
' call, it must have that name when compiled.  The original linker is renamed
' to LINC.EXE.

' Released into the PD Dec 19, 1992 by
' JackMack Consulting & Development
' "Specializing in custom DOS-BASED GUI applications and on-line
'  documentation."

DEFINT A-Z

PRINT "Huge LINK Interception!"


RespFile$ = RIGHT$(COMMAND$, LEN(COMMAND$) - 1)

OPEN RespFile$ FOR INPUT AS #1
OPEN "!" + RespFile$ FOR OUTPUT AS #2

DO UNTIL EOF(1)
        LINE INPUT #1, buffer$
        a = INSTR(buffer$, "/Se:")
        IF a THEN
                MID$(buffer$, a) = "/SE:500" 'Or whatever you want
        END IF
        PRINT #2, buffer$
LOOP

CLOSE #1, #2
SHELL "LINC.EXE @!" + RespFile$
KILL "!" + RespFile$


' Hope this helps those of you who think BIG.


'Quinn


--- Maximus/2 2.01wb
 * Origin: The Nibble's Roost, Richmond BC Canada 604-244-8009 (1:153/918)