QBSwap code!

 BBS: Inland Empire Archive
Date: 09-06-92 (13:56)             Number: 349
From: JOHN GALLAS                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: QBSwap code!                   Conf: (2) Quik_Bas

A LONG time ago Zack asked me to post some code that would get QBswap to
work.. well here it is!

'*****clip it here dude*****
DEFINT A-Z

' $INCLUDE: 'qbswap.bi'

CLS
LOCATE , , 1, 12, 13
PRINT "Press a key to swap and shell...";
x$ = INPUT$(1)
PRINT
PRINT "Swapping and loading COMMAND.COM..."

PN$ = "C:\COMMAND.COM" + CHR$(0)
CM$ = ""
SPL$ = "THIS.TXT" + CHR$(0)
ab% = 0

a = QBSwap%(PN$, CM$, ab%, SPL$)
PRINT "QBSwap% returned"; a; "."

PRINT "And the exit code is"; ab%; "."

END

'*****end of program!*****

This example worked on my system..  Now that I got that out of the way,
maybe yous guys can help me out here.  I have a program thats 150k+ in
EXE form, and when I use the shell and swap function, it'll go into DOS
and then just freeze up!!  Anyone know if theres a max limit on how much
QBSwap can swap??

 * OLX 2.1 TD * EllTech's BASIC Support BBS- 404-928-7111 HST
---RyPacker v2.42 L
 * Origin: The Ghost Mode - An RyBBS System!  (612)-688-0026 (1:282/3006)