BBS: Inland Empire Archive
Date: 02-15-93 (14:23) Number: 348
From: JOE NEGRON Refer#: NONE
To: DEREK LYONS Recvd: NO
Subj: Quickbasic Conf: (2) Quik_Bas
JN| I don't think it is a nicer fix. I prefer to use a fairly standard way
| of doing something. I prefer a FUNCTION rather than patching the libs.
DL> Look in the back issues of QBNews... There is several pieces of code
> for getting the command line in it's original capitalization...
Thanks, Derek, but didn't you catch my earlier message where I posted
this function? I've been using it for quite a while:
============================== Begin code ==============================
DECLARE FUNCTION CmdLine$ ()
FUNCTION CmdLine$ STATIC
DIM IRegs AS RegType, ORegs AS RegType
IRegs.ax = &H5100
Interrupt &H21, IRegs, ORegs
PSP% = ORegs.bx
Offset% = &H80
DEF SEG = PSP%
CmdLen% = PEEK(Offset%)
Cmd$ = SPACE$(CmdLen%)
FOR I% = 1 TO CmdLen%
MID$(Cmd$, I%, 1) = CHR$(PEEK(Offset% + I%))
CmdLine$ = RTRIM$(Cmd$)
Cmd$ = ""
=============================== End code ===============================
--Joe in Bay Ridge, Brooklyn, NY--
Mon 02-15-1993, 14:23
... Woman who seek equality with men lack ambition.
X Blue Wave/QWK v2.12 X
--- Maximus 2.01wb
* Origin: * BlueDog BBS * (212) 594-4425 * NYC FileBone Hub (1:278/709)