home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
qb
/
qb4bas46.lzh
/
QB4BAS.DOC
< prev
next >
Wrap
Text File
|
1989-11-29
|
193KB
|
7,921 lines
QB4BAS.LIB -- Version 4.6
November 29, 1989
Harold Thomson
7437 Burnway Drive
Orlando, Fl. 32819
407-351-3737
PREFACE
There has been a major enhancement to this release of QB4BAS.LIB. Many
of the routines that required pre-allocated strings to be passed in
the call no longer require this and will now return their output as a
string. Many of the subroutines have been converted to functions to
accomodate this new functionality. This is another step towards making
these routines appear as if they are a part of QuickBASIC.
QB4BAS.LIB is a collection of subroutines and functions which are
designed for use with Microsoft QuickBASIC 4.0 thru 4.5. In addition
they will also work with the new Microsoft BASCOM 6.0 compiler. They
are not compatable with previous versions of QuickBASIC or BASCOM and
no attempts should be made to use them with other versions.
As noted above, this library contains both subroutines and functions.
The difference is that subroutines will perform the assigned task and
exit where as a function will perform an assigned task and return a
value which can be used to assign a value to a variable (ie variable
= function) or be part of an expression ( IF function = 0 THEN). As
you can see, this makes QB4BAS.LIB much more powerful and easier to
use than its predecessor, QuickBas.LIB. I would like to take credit
for this improvement but the thanks belongs to Microsoft for creating
a powerful and impressive compiler.
These routines are for whomever wants to use them. I am not charging
anything as long as they are used for personal use or freeware
programs. If any of these routines are to be used in any packages
that are to be sold to the public, I feel it is only fair that I be
informed of this use. I also feel that it would be appropriate in
this case to send me a small donation. I am not in this to make money
but if someone else is going to make money from my work, I should get
at least a little something from it.
As you may have noticed, I did not include the source code for these
routines. The reason for this is to protect these routines from any
changes which may cause them to no longer function the way they are
documented. I am willing to accept any comments or suggestions for
changes but I will have the final say on what happens. I do not
intend to make changes which would cause these routine not to function
as originally documented unless it is felt that these changes will
only improve the routines. Of course if this happens, I will make note
of it so please read the #@!%$& documentation. (I know, I hate to
read documentation almost as much as I hate writing it.)
I do have one thing that I would like to ask of anyone who might
decide to use any or all of these routines, let me know what you think
of them. I like praise but I can also take criticism. You can send
me a note at the address on the front cover.
QB4BAS.LIB -- Version 4.6 ii
ACKNOWLEDGEMENTS
While developing the original QuickBas.LIB routines, Charlie Wooster
and Terry Shockley where very helpful in testing the routines as well
as suggesting several of the routines that were in the library. I
would also like to extend thanks to Charlie who spent a lot of time
correcting problems encountered in QMENU as well as extending its
capabilities by writing QMENUS. Thanks to both of you.
QB4BAS.LIB -- Version 4.6 iii
Many of the new routines in version 2.0 were written for Clint
Labarth, Sysop of the Black Hole BBS in Orlando, for inclusion in his
new release of DoorPch routines which are used with PCBoard for
writing doors. Thanks for the suggestions, Clint.
I have also received several suggestions and comments from different
people who have taken the time to try these routines. It is good to
see that these routines are finally starting to be noticed. To all
who have written or called, thanks.
Many of the routines contained in the QB4BAS.LIB were derived from
routines in Leo J. Scanlons "Assembly Language Subroutines for MS-DOS
Computers". This is a very handy book and if you don't have a copy
and like to write assembly programs, I would recommend it. Another of
his books that I use quite often is "8086/88 Assembly Language
Programming". Page 100 is used quite often.
The QINPUT routine included in the library was developed from the
article "The Finishing Strokes" by Hardin Brothers in the September
1987 (#6) issue of PCResource magazine. Hardin has been writing good
articles for some time now, I remember some from 80 MICRO, and he has
several good ones in PCResource. I find this a very good magazine
with a good amount of information on Quick Basic programming.
The QCLOCK routine supplied is based upon the CLOCK.ASM program by
Robert J. Karp in the October 13, 1987 issue (Vol 7, Number 17) of PC
Magazine.
QB4BAS.LIB -- Version 4.6 iv
TABLE OF CONTENTS
Preface . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ii
Acknowledgements . . . . . . . . . . . . . . . . . . . . . . . . iii
Summary of Amendments . . . . . . . . . . . . . . . . . . . . . . 1
Version 4.6 - Released 11/29/89 . . . . . . . . . . . . . . . . . 1
Version 4.5 - Released 10/10/89 . . . . . . . . . . . . . . . . . 2
Version 4.2 - Released 07/17/89 . . . . . . . . . . . . . . . . . 3
Version 4.1 - Released 05/08/89 . . . . . . . . . . . . . . . . . 3
Version 4.0 - Released 04/15/89 . . . . . . . . . . . . . . . . . 3
Version 3.0 - Released 11/20/88 . . . . . . . . . . . . . . . . . 5
Version 2.0 - Released 03/15/88 . . . . . . . . . . . . . . . . . 5
Version 1.0 - Released 01/17/88 . . . . . . . . . . . . . . . . . 6
Introduction . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
Requirements . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
Dates . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9
QDATE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . . 9
QDATECVT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 10
QDATEIN -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 11
QDATE2INT -- FUNCTION . . . . . . . . . . . . . . . . . . . . 12
QINT2DATE -- FUNCTION . . . . . . . . . . . . . . . . . . . . 12
QJULCALC -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 13
Disk . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 14
QCNTFILE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 14
QDISKSTAT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 14
QDISKTYP -- SUB . . . . . . . . . . . . . . . . . . . . . . . 15
QDRVSPACE -- FUNCTION . . . . . . . . . . . . . . . . . . . . 15
QGETDRV -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 16
QGETVOL -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 16
QSETDRV -- SUB . . . . . . . . . . . . . . . . . . . . . . . 16
QSETVOL -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 17
File . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 18
QCOPYFIL -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 18
QDELETE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 18
QEXIST -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 19
QFATTR -- SUB . . . . . . . . . . . . . . . . . . . . . . . 19
QFCLOSE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 20
QFCREATE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 21
QFDATE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 22
QFINDFIRST -- FUNCTION . . . . . . . . . . . . . . . . . . . . 23
QFINDNEXT -- FUNCTION . . . . . . . . . . . . . . . . . . . . 24
QFINDF -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 25
QFINDN -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 25
QFLOF -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 26
QFNAME -- SUB . . . . . . . . . . . . . . . . . . . . . . . 26
QFOPEN -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 27
QB4BAS.LIB -- Version 4.6 v
QFREAD -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 28
QFSETEND -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 29
QFSETREC QFSETRECL-- FUNCTION . . . . . . . . . . . . . . . . 29
QFSIZE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 30
QFSTAMP -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 30
QFTIME -- SUB . . . . . . . . . . . . . . . . . . . . . . . 31
QFWRITE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 32
QMOVEFIL -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 33
QPARSEF -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 34
QRENAME -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 35
QTREAD -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 36
QTWRITE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 37
Keyboard . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39
QALTKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 39
QCAPSKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 39
QCTRLKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 40
QGETKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 40
QINKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 41
QINPUT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 42
QINPUTM -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 44
QKEYFLAG -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 45
QKEYSTAT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 45
QPOPMENU -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 46
QMENU -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 49
QMENUS -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 52
QNUMKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 55
QSCRLKEY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 55
QYESNO -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 56
Miscellaneous . . . . . . . . . . . . . . . . . . . . . . . . . 57
QALARM -- SUB . . . . . . . . . . . . . . . . . . . . . . . 57
QARGC QARGV -- FUNCTION . . . . . . . . . . . . . . . . . . . 57
QBSRCHT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 58
QCAPSOFF QCAPSON -- SUB . . . . . . . . . . . . . . . . . . . 59
QCLOCK -- SUB . . . . . . . . . . . . . . . . . . . . . . . 59
QCMDLEN -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 60
QCMDLINE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 60
QCRCCHK QCRCSET -- FUNCTION . . . . . . . . . . . . . . . . . 61
QDOSVER -- SUB . . . . . . . . . . . . . . . . . . . . . . . 61
QEMSSIZE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 62
QEMSEXIST -- FUNCTION . . . . . . . . . . . . . . . . . . . . 62
QEQUIPMENT -- SUB . . . . . . . . . . . . . . . . . . . . . . 63
QEXIT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 63
QEXEC -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 64
QINPORT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 66
QMININT QMAXINT -- FUNCTION . . . . . . . . . . . . . . . . . 66
QMINLONG QMAXLONG -- FUNCTION . . . . . . . . . . . . . . . . 67
QNUMLOCKOFF QNUMLOCKON -- SUB . . . . . . . . . . . . . . . . 67
QPRINTER -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 68
QPRTSCRN -- SUB . . . . . . . . . . . . . . . . . . . . . . . 68
QPRTSCRNOFF QPRTSCRNON -- SUB . . . . . . . . . . . . . . . . 69
QPAUSE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 69
QPAUSE18 -- SUB . . . . . . . . . . . . . . . . . . . . . . . 70
QREBOOT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 70
QB4BAS.LIB -- Version 4.6 vi
QSHIFTIL QSHIFTIR -- FUNCTION . . . . . . . . . . . . . . . . 71
QSHIFTLL QSHIFTLR -- FUNCTION . . . . . . . . . . . . . . . . 71
QSCROLLOFF QSCROLLON -- SUB . . . . . . . . . . . . . . . . . 72
QSHARE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 72
QTIME -- SUB . . . . . . . . . . . . . . . . . . . . . . . 73
QTEMPC -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 73
QTEMPF -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 74
QVERIFY -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 74
QVERIFYOFF QVERIFYON -- SUB . . . . . . . . . . . . . . . . . 75
Q8087 -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 75
Mouse . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 76
QMHIDE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 76
QMLOC -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 76
QMPRESS -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 77
QMSET -- SUB . . . . . . . . . . . . . . . . . . . . . . . 77
QMSHOW -- SUB . . . . . . . . . . . . . . . . . . . . . . . 78
QMSTATUS -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 78
String . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 79
QCAPIT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 79
QCENTER -- SUB . . . . . . . . . . . . . . . . . . . . . . . 79
QCHARTYP -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 80
QDELIM -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 80
QEXTRACT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 81
QFORMAT -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 81
QHIGHBIT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 82
QINSTR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 82
QLEN -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 83
QMID -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 83
QMOVREC -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 84
QMOVSTR -- SUB . . . . . . . . . . . . . . . . . . . . . . . 84
QREPLACE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 85
QREVERSE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 85
QRINSTR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 86
QSTRIP -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 86
QSTRPCHR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 87
QSUBSTR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 87
QWORD -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 88
QWORDS -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 88
Sub-Directory . . . . . . . . . . . . . . . . . . . . . . . . . 89
QCHDIR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 89
QCHKDIR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 89
QGETDIR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 90
QMKDIR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 90
QRMDIR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 90
Video . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 91
QANSIPRT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 91
QATTR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 91
QBPRT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 92
QBMPRT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 93
QCRTMODE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 94
QCLREOL -- SUB . . . . . . . . . . . . . . . . . . . . . . . 94
QB4BAS.LIB -- Version 4.6 vii
QGETATTR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 96
QGETCURS -- SUB . . . . . . . . . . . . . . . . . . . . . . . 96
QGETMODE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 97
QMPRT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 98
QPAINT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 99
QPRT -- SUB . . . . . . . . . . . . . . . . . . . . . . . 100
QPRTANSI -- SUB . . . . . . . . . . . . . . . . . . . . . . . 101
QRESTSCR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 102
QSAVESCR -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 103
QSCROLL -- SUB . . . . . . . . . . . . . . . . . . . . . . . 104
QSCROLLB -- SUB . . . . . . . . . . . . . . . . . . . . . . . 104
QSCRREST -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 105
QSCRSAVE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 106
QSETMODE -- SUB . . . . . . . . . . . . . . . . . . . . . . . 107
QWINDOW -- SUB . . . . . . . . . . . . . . . . . . . . . . . 108
QWINDOWH -- SUB . . . . . . . . . . . . . . . . . . . . . . . 109
QWINDOWV -- SUB . . . . . . . . . . . . . . . . . . . . . . . 110
QWINDOWX -- SUB . . . . . . . . . . . . . . . . . . . . . . . 111
QVIDREST -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 112
QVIDSAVE -- FUNCTION . . . . . . . . . . . . . . . . . . . . . 112
QB4BAS.LIB -- Version 4.6 viii
SUMMARY OF AMENDMENTS
VERSION 4.6 - RELEASED 11/29/89
NEW ROUTINES
Miscellaneous QEXEC QSHARE
Mouse QMHIDE QMLOC QMPRESS QMSET QMSHOW QMSTATUS
ROUTINES CORRECTED
QCOPYFIL Corrected documentation
QINSTR QRINSTR Returning incorrect results
QMOVEFIL Occasional incorrect results
QREVERSE Corrected documentation
QSTRIP Errors processing null strings
Summary of Amendments 1
VERSION 4.5 - RELEASED 10/10/89
NEW ROUTINES
File QFSETRECL
Miscellaneous QARGC QARGV
String QREVERSE
ROUTINES CORRECTED
QWINDOWX Correct documentation for DECLARE
QINPUT QINPUTM Would not accept 2 as valid number of keys
QCHARTYP Returning wrong results
ROUTINES REVISED
QCMDLINE Now returns a string variable
QDATE Now returns a string variable
QDATECVT Now returns a string variable
QDATEIN Now returns a string variable
QDELIM Now returns a string variable
QEXIST Can now also check for existance of directorys
QEXTRACT Now returns a string variable
QGETDIR Now returns a string variable
QGETDRV Now returns a string variable
QGETVOL Now returns a string variable
QINT2DTE Now returns a string variable
QMOVREC Now returns a string variable
QREVERSE Now returns a string variable
QSTRIP Now returns a string variable
QSTRPCHR Now returns a string variable
QSUBSTR Now returns a string variable
QWORD Now returns a string variable
Summary of Amendments 2
VERSION 4.2 - RELEASED 07/17/89
NEW ROUTINES
File QFLOF QPARSEF
Keyboard QINPUTM
Miscellaneous QCMDLEN QREBOOT (Really)
String QMID QSTRIP QSTRPCHR QSUBSTR
ROUTINES CORRECTED
QFSETREC Now can select first record.
QCRTMODE Support added to test for VGA monitor.
VERSION 4.1 - RELEASED 05/08/89
NEW ROUTINES
Disk QSETVOL
Keyboard QALTKEY QCAPSKEY QCAPSON QCAPSOFF QCNTLKEY QNUMKEY
QSCRLKEY QSCROLLON QSCROLLOFF QYESNO
Miscellaneous QTEMPC QTEMPF Q8087
String QHIGHBIT QLEN
VERSION 4.0 - RELEASED 04/15/89
NEW ROUTINES
Disk QDISKTYP
File QFSTAMP QTREAD QTWRITE
Miscellaneous QMAXINT QMININT QMAXLONG QMINLONG QSHIFTIL QSHIFTIR
QSHIFTLL QSHIFTLR QVERIFY QVERIFYON QVERIFYOFF
QEMSEXIST
String QCAPIT QCENTER QCHARTYP
Video QCLREOL QGETMODE QPAINT QRESTSCR QSAVESCR QSETMODE
ROUTINES CORRECTED
Summary of Amendments 3
QCOPYFIL Increased copy buffer from 1K to 2K.
QMOVEFIL Increased move buffer from 1K to 2K.
Summary of Amendments 4
VERSION 3.0 - RELEASED 11/20/88
NEW ROUTINES
Disk QCNTFILE QGETVOL
File QFINDFIRST QFINDNEXT
Keyboard QPOPMENU
Miscellaneous QBYTES
String QMOVREC QMOVSTR
Video QWINDOWX
ROUTINES CORRECTED
QINPUT No longer hangs certain systens on exit.
QSCROLL No longer hangs certain systems on exit.
QSCROLLB No longer hangs certain systems on exit.
QSCRREST Now works with monochrome monitors.
QSCRSAVE Now works with monochrome monitors.
VERSION 2.0 - RELEASED 03/15/88
NEW ROUTINES
Date QDATE2INT QINT2DATE
Disk QDSKSTAT QDRVSPC
Keyboard QGETKEY QINKEY QKEYSTAT
Miscellaneous QINPORT QTIMER
Video QCRTMODE QGETATTR QGETCURS QPRTANSI
ROUTINES CORRECTED
QEXIT Now resets either Mono or CGA cursor.
QWORDS Now returns 0 for null strings.
Summary of Amendments 5
VERSION 1.0 - RELEASED 01/17/88
CONVERTED ROUTINES from QuickBas.LIB Version 3.0
Date QDATE QDATECVT QDATEIN QJULCALC
Disk QGETDRV QSETDRV
File QCOPYFIL QDELETE QEXIST QFATTR QFCLOSE QFCREATE
QFOPEN QFREAD QFSETEND QFSETREC QFWRITE QFDATE QFINDF
QFINDN QFNAME QFSIZE QFTIME QMOVEFIL QRENAME
KeyBoard QINPUT QMENU QMENUS
Miscellaneous QALARM QCLOCK QCMDLINE QCRCCHK QCRCSET QDOSVER
QEMSSIZE QEQUIPMENT QEXIT QNUMLOCKOFF QNUMLOCKON
QPRINTER QPRTSCRN QPRTSCRNOFF QPRTSCRNON QPAUSE
QPAUSE18
String QDELIM QEXTRACT QREPLACE QWORD QWORDS
Sub-Directory QCHDIR QCHKDIR QGETDIR QMKDIR QRMDIR
Video QANSIPRT QATTR QBPRT QPRT QBMPRT QMPRT QSCROLL
QSCROLLB QSCRREST QSCRSAVE QWINDOW QWINDOWH QWINDOWV
VIDREST VIDSAVE
DELETED ROUTINES from QuickBas.LIB Version 3.0
String QLOWER QUPPER
Summary of Amendments 6
INTRODUCTION
QB4BAS is a collection of subroutine and functions written in
Assembler for the Microsoft QuickBASIC 4.0 thru 4.5 compilers. The
routines will also work with the Microsoft BASIC 6.0 compiler. Many of
the routines are functionally the same as routines found in other
Basic Library packages. In addition, I have added several routines
that were not available and which I find to be very helpful. I have
tested all of the routines and they have worked for me on my AT&T
PC6300. I am sure that they will work on any AT&T compatible machine.
The files included in QB4BAS45.ZIP are as follows:
QB4BAS.DOC The QB4BAS library DOC.
QB4BAS.LIB The QB4BAS library.
QB4BAS.QLB The QB4BAS quick library.
QB4BAS.BI Include file containing the necessary DECLAREs.
QB4OBJ.ZIP The individual OBJ files to create a LIB.
QB4BAS.RSP The response file used to create the .LIB file.
QB4QLB.RSP The response file used to create the .QLB file.
REQUIREMENTS
In order to use the functions or routines in QB4BAS.LIB, you must
either add the DECLARE statements in the examples or include QB4BAS.BI
using the $INCLUDE metacommand.
Most of the routines in this library require that either a string
variable or a numeric variable be passed with the call. Whenever a
routine requires a numeric variable, the variable must be defined as
an integer by either using the DEFINT statement or by using the
percent sign at the end of the variable name.
Some routines require that when a string variable is used, it be set
to a minimum size. This is due to the limitations placed upon me by
BASIC when using assembly language routines. Always check the routine
format before using it.
Whenever an array is used in a call, double check the example to be
sure that the proper calling format is used. Failure to do so may
cause some of these routines fail or hang up your machine.
I have received some correspondence regarding linking programs with
the routines in the .LIB to create an .EXE file. According to the
information from MicroSoft, only stand alone .EXE files can be creates
using these routines, do not try to create an .EXE from within the QB
environment, you must compile the program using the BC compiler. In
addition, when using the BC compiler, you must use the /O option to
indicate that BCOM45.LIB will be used to link the program.
Introduction 7
The proper format is:
BC mypgm /O;
The format of the link command is as follows:
LINK /E mypgm+NOCOM, , ,BCOM45+QB4BAS;
I hope that this clears up any problems that anyone has been having
with the routines.
Introduction 8
DATES
QDATE -- FUNCTION
Returns a variety of date information based upon the current date. The
routine returns a string which contains the requested information. It
is no longer necessary to pre-allocate the return string. By using a
variety of function codes, this function will return the alpha weekday
(Sunday), the number of days so far this year (ddd), the Julian date
(yyddd), the alpha month (June), the default date format (dd MMM
yyyy), the USA date (mm/dd/yy), The European date (dd/mm/yy), the
ordered date (yy/mm/dd) and the sorted date (yyyymmdd). If an error
is encountered, a null string will be returned.
The format of the call is as follows:
Buffer$ = QDATE(FuncCode$)
The following are the valid Function Codes:
D - Day of the year : ddd
E - European date : dd/mm/yy
J - Julian date : yyddd
M - Month : name of month, RC = length
N - Normal : dd MMM yyyy (30 Sep 1987)
O - Ordered date : yy/mm/dd
S - Sorted date : yyyymmdd
U - USA date : mm/dd/yy
W - Weekday : day of the week, RC = length
Example:
DEFINT A-Z
DECLARE FUNCTION QDATE$ (FunCode AS STRING)
.
REM Print the day of the week
FuncCode$ = "W"
Buffer$ = QDATE(FuncCode$)
IF Buffer$ <> "" THEN
PRINT "Today is " Buffer$
END IF
.
REM Print the normal date
FuncCode$ = "N"
Buffer$ = QDATE(FuncCode$)
IF Buffer$ <> "" THEN
PRINT "Today is " Buffer$
END IF
Dates 9
QDATECVT -- FUNCTION
Converts either a gregorian date to julian (IN = mm/dd/yy OUT = yyddd)
or a julian date to gregorian date (IN = yyddd OUT = mm/dd/yy). The
conversion is based upon a function code which is passed with the
call. If an error is encountered, a null string will returned.
The format of the call is as follows:
OutDate$ = QDATECVT(Indate$, FuncCode$)
The following are the valid Function Codes:
J - Converts gregorian to julian
G - Converts julian to gregorian
Example:
DEFINT A-Z
DECLARE FUNCTION QDATECVT$ (InDate AS STRING, _
FunCode AS STRING)
.
REM Convert to julian
InDate$ = "05/29/87"
FuncCode$ = "J"
OutDate$ = QDATECVT(InDate$, FuncCode$)
IF OutDate$ <> "" THEN
PRINT "The julian date is " OutDate$
END IF
.
REM Convert to gregorian
InDate$ = "87149"
FuncCode$ = "G"
OutDate$ = QDATECVT(InDate$, FuncCode$)
IF OutDate$ <> "" THEN
PRINT "The gregorian date is " OutDate$
END IF
Dates 10
QDATEIN -- FUNCTION
Returns a variety of date information based upon a date which is
included in the call. The date in is in the format of MM/DD/YY or
MM/DD/YYYY. If the year is YY then 1900 is assumed. By supplying a
function code, this routine returns a string which contains either the
alpha weekday (Sunday), the number of days so far this year (ddd), the
Julian date (yyddd), the alpha month (June), the default date format
(dd MMM yyyy), the USA date (mm/dd/yy), The European date (dd/mm/yy),
the ordered date (yy/mm/dd) and the sorted date (yyyymmdd). If an
error is, a null string is returned.
The format of the call is as follows:
Buffer$ = QDATEIN(InDate$, FuncCode$)
The following are the valid Function Codes:
D - Day of the year : ddd
E - European date : dd/mm/yy
J - Julian date : yyddd
M - Month : name of month, RC = length
N - Normal : dd MMM yyyy (30 Sep 1987)
O - Ordered date : yy/mm/dd
S - Sorted date : yyyymmdd
U - USA date : mm/dd/yy
W - Weekday : day of the week, RC = length
Example:
DEFINT A-Z
DECLARE FUNCTION QDATEIN$ (InDate AS STRING, _
FunCode AS STRING)
.
REM Print the day of the week
InDate$ = "10-18-1987"
FuncCode$ = "W"
Buffer$ = QDATEIN(InDate$, FuncCode$)
IF Buffer$ <> "" THEN
PRINT "Today is " Buffer$
END IF
.
REM Print the normal date
FuncCode$ = "N"
Buffer$ = QDATEIN(InDate$, FuncCode$)
IF Buffer$ <> "" THEN
PRINT "Today is " Buffer$
END IF
Dates 11
QDATE2INT -- FUNCTION
Compress an 8 byte string date (XX/XX/XX) into a 2 byte integer. This
function can be used to compress a date to be written to a file to
save 6 bytes per date written.
The format of the call is as follows:
HoldDate = QDATE2INT(InDate$)
Example:
DEFINT A-Z
DECLARE FUNCTION QDATE2INT% (InDate AS STRING)
.
InDate$ = "05/29/48"
HoldDate = QDATE2INT(InDate$)
QINT2DATE -- FUNCTION
Uncompress a 2 byte integer date which has been compressed using
QDATE2INT back into an 8 byte string date (XX/XX/XX).
The format of the call is as follows:
OutDate$ = QINT2DATE(InDate)
Example:
DEFINT A-Z
DECLARE FUNCTION QDATE2INT% (InDate AS STRING)
DECLARE FUNCTION QINT2DATE$ (BYVAL InDate AS INTEGER)
.
InDate$ = "05/29/48"
HoldDate = QDATE2INT(InDate$)
OutDate$ = QINT2DATE(HoldDate)
PRINT "The date is " OutDate$
Dates 12
QJULCALC -- FUNCTION
Either adds or subtracts from a julian date. The julian date must be
passed as a string and the amount to add or subtract must be an
integer. This function allows for leap years. If there is an error
encountered, the RC will be set to -1.
The format of the call is as follows:
RC = QJULCALC(Calcdate$, Amount)
Example:
DEFINT A-Z
DECLARE FUNCTION QJULCALC% (CalcDate AS STRING, _
BYVAL Amount AS INTEGER)
.
REM Add 25 days to "87214"
CalcDate$ = "87214"
Amount = 25
IF QJULCALC(CalcDate$, Amount) = 0 THEN
PRINT "The new julian date is " CalcDate$
END IF
.
REM Subtract 25 days from "87214"
CalcDate$ = "87214"
Amount = -25
IF QJULCALC(CalcDate$, Amount) = 0 THEN
PRINT "The new julian date is " CalcDate$
END IF
Dates 13
DISK
QCNTFILE -- FUNCTION
Retrieves the number of files in the requested path that match the
search string.
The format of the call is as follows:
FileCnt = QCNTFILE(InFileName AS STRING)
Example:
DEFINT A-Z
DECLARE FUNCTION QCNTFILE% (InFileName AS STRING) _
BYVAL Attr AS INTEGER)
InFileName$ = "C:\TESTPATH" + CHR$(0)
Attr = 32
Cnt = QCNTFILE(InFileName$, Attr)
PRINT "Number of files is " + STR$(Cnt)
QDISKSTAT -- SUB
Retrieves information on the requested disk drive. The information
returned is the free clusters, total clusters, bytes per sector and
the number of sectors per cluster
The format of the call is as follows:
QDISKSTAT Drv$, FClusters, TotClusters, BytesSector, SectorsCluster
Example:
DEFINT A-Z
DECLARE SUB QDISKSTAT (DrvName AS STRING, _
FreeClusters AS INTEGER, _
TotClusters AS INTEGER, _
BytesSector AS INTEGER, _
SectorsCluster AS INTEGER)
Drv$="C:\"
QDISKSTAT Drv$, FClusters, TotClusters, BytesSector, SectorsCluster
PRINT "Drive "+Drv$+" has "+STR$(SectorsCluster)+" Clusters/Sector."
Disk 14
QDISKTYP -- SUB
Returns a return code which indicates the type of disk for the current
logged drive. A return code of 0 indicates the it is a hard drive, a
1 indicates a floppy disk and a -1 indicates that the type of disk
could not be determined.
The format of the call is as follows:
RC = QDISKTYP()
Example:
DEFINT A-Z
DECLARE FUNCTION QDISKTYP% ()
RC = QDISKTYP()
IF RC = 0 THEN
PRINT "The current logged disk is a hard disk"
ELSEIF RC = 1 THEN
PRINT "The current logged disk is a floppy disk"
ELSE
PRINT "The current logged disk type cannot be determined"
END IF
QDRVSPACE -- FUNCTION
Retrieves the total amount of free disk space on the requested disk
drive.
The format of the call is as follows:
FreeSpace = QDRVSPACE(DrvStr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QDRVSPACE& (DrvName AS STRING)
DrvStr$="C:\"
FreeSpace = QDRVSPACE(DrvStr$)
PRINT "Drive "+DrvStr$+" has "+STR$(FreeSpace)+" bytes."
Disk 15
QGETDRV -- FUNCTION
Get the current logged disk drive. It is no longer necessary to
pre-allocate the return string.
The format of the call is as follows:
DrvStr$ = QGETDRV
Example:
DEFINT A-Z
DECLARE FUNCTION QGETDRV$ ()
DrvStr$ = QGETDRV
PRINT "The current disk is " DrvStr$
QGETVOL -- FUNCTION
Get the volume label of the requested disk drive. It is not necessary
to pre-allocate the return string.
The format of the call is as follows:
VolId$ = QGETVOL
Example:
DEFINT A-Z
DECLARE FUNCTION QGETVOL$ ()
VolId$ = QGETVOL
PRINT "The current disk label is " VolId$
QSETDRV -- SUB
Change the current logged disk drive.
The format of the call is as follows:
QSETDRV NewDrv$
Example:
DEFINT A-Z
DECLARE SUB QSETDRV (DrvName AS STRING)
NewDrv$="C:"
QSETDRV NewDrv$
Disk 16
QSETVOL -- FUNCTION
This function will set, change or delete the volume label of the
requested disk drive. In order to set or change the vol label, the
string that is passed must be 11 characters long. A null string can
be used to delete the current vol label.
The format of the call is as follows:
RC = QSETVOL(VolId$)
Example:
DEFINT A-Z
DECLARE FUNCTION QSETVOL% (VolId AS STRING)
VolId$ = "HAROLDSDISK"
IF QSETVOL(VolId$) = 0 THEN
PRINT "The Vol label has been set to " VolId$
END IF
.
REM The following will delete the current Vol label
VolId$ = ""
IF QSETVOL(VolId$) = 0 THEN
PRINT "The Vol label has been deleted"
END IF
Disk 17
FILE
QCOPYFIL -- FUNCTION
Copies a file. This is a better way of copying a file because it does
not require the SHELL command. This routine will replace the file on
the destination device, use QEXIST to check if the file already
exists. Requires an ASCIIZ filename. The return code will be set if
any errors are encountered.
The format of the call is as follows:
RC = QCOPYFIL(OldFile$, NewFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QCOPYFIL% (InFileName AS STRING, _
OutFileName AS STRING)
OldFile$ = "TESTFILE.OLD"+CHR$(0)
NewFile$ = "TESTFILE.NEW"+CHR$(0)
IF QCOPYFIL(OldFile$, NewFile$) = 0 THEN
PRINT "File copied"
ELSE
PRINT "File not copied"
END IF
QDELETE -- FUNCTION
Deletes a file. Requires an ASCIIZ filename without wildcards. Upon
exit, a return code is set to indicate if the file was deleted or not.
The format of the call is as follows:
RC = QDELETE(DelFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QDELETE% (FileName AS STRING)
.
DelFile$="QUICKBAS.LIB"+CHR$(0)
IF QDELETE(DelFile$) = 0 THEN
PRINT "File deleted"
ELSE
PRINT "File not deleted"
END IF
File 18
QEXIST -- FUNCTION
Tells you if the requested file or sub-directory already exists.
Returns zero if it does, or a -1 if it doesn't. Requires an ASCIIZ
name without wildcards.
The format of the call is as follows:
RC = QEXIST(ChkFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QEXIST% (FileName AS STRING)
REM For a sub-directory use ==> ChkFile$ = "\QB4\WORK" + CHR$(0)
ChkFile$ = "FINDFILE.TXT" + CHR$(0)
IF QEXIST(ChkFile$) = 0 THEN
PRINT "File exists"
ELSE
PRINT "File not found"
END IF
QFATTR -- SUB
Returns the file attribute of a file that has been located by either
QFINDF or subsequent calls to QFINDN. See the information on these
two calls before using this routine.
The format of the call is as follows:
QFATTR Attr
The file attributes are as follows:
Normal - 00h A normal file.
Read-Only - 01h File cannot be erased or rewritten.
Hidden - 02h File info not displayed by DIR command.
System - 04h Like hidden but for system (DOS,BIOS) files.
Vol Label - 08h A disk's vol label.
Directory - 10h A subdirectory.
Archive - 20h Set after most backup programs run.
Combinations of file attributes can be used. An example is IBMDOS.COM
which is usually a hidden, system, read-only, archive file.
Example:
DEFINT A-Z
DECLARE SUB QFATTR (Attr AS INTEGER)
QFATTR Attr
PRINT "The file attribute is " Attr
File 19
QFCLOSE -- FUNCTION
This function is used to close a file which was created by the
QFCREATE routine or opened by the QFOPEN routine. This function must
be called after the QFCREATE or QFOPEN routines to close the created
or opened file.
The function is called by passing the file "handle" which was returned
by the QFCREATE or QFOPEN routine. Upon return, the RC will either be
zero indicating the file was closed or will be 6 indicating an invalid
handle was specified.
The format of the call is as follows:
RC = QFCLOSE(FHandle)
Example:
DEFINT A-Z
DECLARE FUNCTION QFCLOSE% (Handle AS INTEGER)
.
REM You must issue either a call to QFCREATE or QFOPEN first
.
IF QFCLOSE(FHandle) = 0 THEN
Print "File Closed"
ELSE
Print "Invalid Handle, File Not Closed"
END IF
File 20
QFCREATE -- FUNCTION
This function is used to either create a 0 length file in the
specified or defaulted path or to initialize a file which will be
written to using QFWRITE. The QFCLOSE function must be used to close
the file.
The function is called by passing a file name which may include the
drive and path). The file name must end with a binary "0" as the
routine requires ASCIIZ names. In addition, the file attribute must
be passed in the call, see QFATTR for information on file attributes.
Upon return, the RC will either be zero indicating the file was
created or non-zero indicating an error. If the RC is 0 the file
"handle" will be in the integer variable specified as the 3rd
parameter. If the RC is 3 the specified path was not found. If the
RC is 4 a file "handle" was not available. If the RC is 5 access was
denied.
The format of the call is as follows:
RC = QFCREATE(FileName$, Fattr, FHandle)
Example:
DEFINT A-Z
DECLARE FUNCTION QFCREATE% (FileName AS STRING, _
FAttr AS INTEGER, _
Handle AS INTEGER)
.
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Fattr = 0
RC = QFCREATE(FileName$, Fattr, FHandle)
IF RC = 0 THEN
Print "File Created"
ELSE
Print "File Not Created";RC
END IF
.
RC = QFCLOSE(FHandle)
File 21
QFDATE -- SUB
Returns the date that the file was created or updated. The file must
first located by a call to either QFINDF or subsequent calls to
QFINDN. See the information on these two calls before using this
routine.
The format of the call is as follows:
QFDATE Month, Day, Year
Example:
DEFINT A-Z
DECLARE SUB QFDATE (Month AS INTEGER, _
Day AS INTEGER, _
Year AS INTEGER)
.
QFDATE Month, Day, Year
.
PRINT "The file date is " Month Day Year
File 22
QFINDFIRST -- FUNCTION
This new function works much like the QFINDF function but, unlike
QFINDF, it does not require additional calls to other routines to
retrieve the information that you really wanted in the beginning. The
file information is returned in a record which must be defined with
the TYPE command. The necessary record TYPE is supplied in QB4BAS.BI.
See below for an example on how to use it. This function will locate
the first file in the specified or default path which matches the
specified file name. The file name may contain wildcards (* and ?).
Additional matching files may be found using the QFINDNEXT function.
The function is called by passing a pointer to the record where the
file information is to be placed. A file name (which can contain
wildcards "*" or "?" as well as the drive and path) which must end
with a binary "0" as the routine requires ASCIIZ names. In addition,
the file attribute must be passed in the call, see QFATTR for
information on file attributes. Upon return, the RC will either be
zero, indicating that a file was found, or non-zero indicating an
error. If the RC is -1 there was an error in the call. If the RC is
a 2 the specified path is invalid. If the RC is 18 there is no
matching file.
The format of the call is as follows:
RC = QFINDFIRST(RecAddr, ChkFile$, Fattr)
Example:
DEFINT A-Z
DECLARE FUNCTION QFINDFIRST% (BYVAL RecPtr AS INTEGER, _
FileName AS STRING, _
BYVAL Attr AS INTEGER)
TYPE FileType
Fname AS STRING * 12
Fdate AS STRING * 8
Ftime AS STRING * 5
Fsize AS LONG
Fattr AS INTEGER
Month AS INTEGER
Day AS INTEGER
Year AS INTEGER
Hour AS INTEGER
Minute AS INTEGER
END TYPE
.
DIM Qfile AS FileType
Fptr = VARPTR(Qfile)
ChkFile$="C:\DEMO\*.EXE"+CHR$(0)
IF QFINDFIRST(Fptr, ChkFile$, 0) = 0 THEN
Print Qfile.Fname, Qfile.Fdate, Qfile.Ftime, Qfile.Fsize
END IF
File 23
QFINDNEXT -- FUNCTION
This new function works much like the QFINDN function but, unlike
QFINDN, it does not require additional calls to other routines to
retrieve the information that you really wanted in the beginning. The
file information is returned in a record which must be defined with
the TYPE command. The necessary record TYPE is supplied in QB4BAS.BI.
See below for an example on how to use it. This function will locate
additional files after a successful call to QFINDFIRST.
The function is called by passing a pointer to the record where the
file information is to be placed. Upon return, the RC will either be
zero indicating that a file was found or 18 indicating there are no
more matching files.
The format of the call is as follows:
RC = QFINDNEXT(RecAddr)
Example:
DEFINT A-Z
DECLARE FUNCTION QFINDNEXT% (BYVAL RecPtr AS INTEGER)
.
TYPE FileType
Fname AS STRING * 12
Fdate AS STRING * 8
Ftime AS STRING * 5
Fsize AS LONG
Fattr AS INTEGER
Month AS INTEGER
Day AS INTEGER
Year AS INTEGER
Hour AS INTEGER
Minute AS INTEGER
END TYPE
.
DIM Qfile AS FileType
Fptr = VARPTR(Qfile)
ChkFile$="C:\DEMO\*.EXE"+CHR$(0)
IF QFINDFIRST(Fptr, ChkFile$, 0) = 0 THEN
Print Qfile.Fname, Qfile.Fdate, Qfile.Ftime, Qfile.Fsize
WHILE QFINDNEXT(Fptr) = 0
Print Qfile.Fname, Qfile.Fdate, Qfile.Ftime, Qfile.Fsize
WEND
END IF
File 24
QFINDF -- FUNCTION
This function is used to locate the first file in the specified or
default path which matches the specified file name. The file name may
contain wildcards (* and ?). Additional matching files may be found
using the QFINDN function. This function must be called before calls
to QFATTR, QFDATE, QFINDN, QFNAME, QFSIZE and QFTIME.
The function is called by passing a file name (which can contain
wildcards "*" or "?" as well as the drive and path). The file name
must end with a binary "0" as the routine requires ASCIIZ names. In
addition, the file attribute must be passed in the call, see QFATTR
for information on file attributes. Upon return, the RC will either
be zero, indicating that a file was found, or non-zero indicating an
error. If the RC is -1 there was an error in the call, a 2 indicates
the specified path is invalid, an 18 indicates there is no matching
file.
The format of the call is as follows:
RC = QFINDF(ChkFile$, Fattr)
Example:
DEFINT A-Z
DECLARE FUNCTION QFINDF% (FileName AS STRING, BYVAL Attr AS INTEGER)
RC = QFINDF("C:\DEMO\*.EXE"+CHR$(0), 0)
IF RC < 0 THEN
Print "Error in call."
ELSEIF RC > 0 THEN
Print "File not found."
END IF
QFINDN -- FUNCTION
This function is used to locate additional files beyond the file found
by the QFINDF function. The QFINDN function reuses the parameters
passed to the QFINDF function to locate any additional files. The RC
will zero if a file was found or 18 if there are no more matching
files.
The format of the call is as follows:
RC = QFINDN
Example:
DEFINT A-Z
DECLARE FUNCTION QFINDN% ()
IF QFINDN > 0 THEN PRINT "No more files."
File 25
QFLOF -- FUNCTION
This function is used to return the file size of an open file that was
opened with either QFOPEN or QFCREATE. It will return the file size
whether it has been just opened or if it has been added to with
QFWRITE. Be careful to make sure that a long integer is used to
return the file size to.
The format of the call is as follows:
Fsize& = QFLOF(FHandle)
Example:
DEFINT A-Z
DECLARE FUNCTION QFLOF& (Handle AS INTEGER)
REM Open file for reading
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 1
RC = QFOPEN(FileName$, Faccess, FHandle)
Fsize& = QFLOF(FHandle)
RC = QFCLOSE(FHandle)
QFNAME -- SUB
Returns the name of the file that was located by either QFINDF or
subsequent calls to QFINDN. It also returns the length of the file
name less trailing spaces. See the information on these two calls
before using this routine.
The format of the call is as follows:
QFNAME File$
Example:
DEFINT A-Z
DECLARE SUB QFNAME (FileName AS STRING)
.
REM You must issue a call to either QFINDF or QFINDN first
.
File$ = Space$(12)
QFNAME File$
PRINT "The file name is " RTRIM$(File$)
.
File 26
QFOPEN -- FUNCTION
This function is used to open an existing file. The file can then be
read by using QFREAD or written to by QFWRITE. The QFCLOSE function
must be used to close the file.
The function is called by passing a file name which may include the
drive and path). The file name must end with a binary "0" as the
routine requires ASCIIZ names. In addition, the file access must be
passed in the call, 0 to open for reading, 1 to open for writing or 2
to open for both reading and writing. Upon return, the RC will either
be zero indicating the file was opened or non-zero indicating an
error. If the RC is 0 the file "handle" will be in the integer
variable specified as the 3rd parameter. If the RC is 2 the specified
path was not found. If the RC is 4, then too many files open. If the
RC is 5, then access was denied. If the RC is 12, then an invalid
access number was passed.
The format of the call is as follows:
RC = QFOPEN(FileName$, Faccess, FHandle)
Example:
DEFINT A-Z
DECLARE FUNCTION QFOPEN% (FileName AS STRING, _
Access AS INTEGER, _
Handle AS INTEGER)
.
REM Open file for reading
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 0
RC = QFOPEN(FileName$, Faccess, FHandle)
IF RC = 0 THEN
Print "File Opened"
ELSE
Print "File Not Opened";RC
END IF
.
REM Open file for writing
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 1
RC = QFOPEN(FileName$, Faccess, FHandle)
IF RC = 0 THEN
Print "File Opened"
ELSE
Print "File Not Opened";RC
END IF
.
RC = QFCLOSE(FHandle)
File 27
QFREAD -- FUNCTION
This function is used to read a file which has been opened by QFOPEN.
The calling sequence requires that a string buffer be passed which
will contain the requested record upon return. In addition, the
length of the record to read must be passed so that the routine will
know how many bytes to read. Upon return, the string will contain the
requested record and the actual number of bytes read will be returned.
In addition, the RC will either be zero indicating that the read was
successful or non-zero indicating an error. If the RC is -1, there
was an error in one of the parameters. If the RC is greater than
zero, DOS encountered an error reading the file.
A useful feature of this function is that block reads can be done. A
block read is reading multiple records at a time. If the record
length is 50, by setting a buffer length to 500 will cause the routine
to attempt to read 10 records. The bytes read count can then be used
to determine exactly how many records were read. The buffer can be
split using the MID$ function to extract each record.
The format of the call is as follows:
RC = QFREAD(FHandle, FBuffer$, ReadLen, BytesRead)
Example:
DEFINT A-Z
DECLARE FUNCTION QFREAD% (Handle AS INTEGER, _
Buffer AS STRING, _
ReadLen AS INTEGER, _
BytesRead AS INTEGER)
.
REM Open file for reading
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 0
RC = QFOPEN(FileName$, Faccess, FHandle)
.
FBuffer$ = Space$(50)
ReadLen = 50
RC = QFREAD(FHandle, FBuffer$, ReadLen, BytesRead)
IF RC <> 0 THEN
PRINT "Error reading file"
END
ELSEIF BytesRead = 0 THEN
PRINT "End of File"
ELSE
PRINT FBuffer$
END IF
.
RC = QFCLOSE(FHandle)
File 28
QFSETEND -- FUNCTION
This function is used to set the file pointer to the end of the file.
The file must have been opened using QFOPEN. This function is useful
to add new records to the end of an existing file. Upon return, the
RC will either be zero indicating success or non-zero indicating an
error.
The format of the call is as follows:
RC = QFSETEND(FHandle)
Example:
DEFINT A-Z
DECLARE FUNCTION QFSETEND% (Handle AS INTEGER)
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 1
RC = QFOPEN(FileName$, Faccess, FHandle)
RC = QFSETEND(FHandle)
REM New records can now be added.
RC = QFCLOSE(FHandle)
QFSETREC QFSETRECL-- FUNCTION
These functions are used to set the file pointer for random reading or
writing to a file that has been opened using QFOPEN. The calling
sequence requires that the record length and the record number to set
be passed in the call. Upon return, the RC will either be zero
indicating success or non-zero indicating an error.
The format of the call is as follows:
RC = QFSETREC(FHandle, RecLen, RecNum)
RC = QFSETRECL(FHandle, RecLen, RecNum)
Example:
DEFINT A-Z
DECLARE FUNCTION QFSETREC% (BYVAL Handle AS INTEGER, _
BYVAL RecLen AS INTEGER, _
BYVAL RecNum AS INTEGER)
DECLARE FUNCTION QFSETRECL% (BYVAL Handle AS INTEGER, _
BYVAL RecLen AS INTEGER, _
BYVAL RecNum AS LONG)
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0): Faccess = 0
RC = QFOPEN(FileName$, Faccess, FHandle)
RecLen = 50: RecNum& = 70000
RC = QFSETRECL(FHandle, RecLen, RecNum&)
REM Record 70000 can now be read.
RC = QFCLOSE(FHandle)
File 29
QFSIZE -- SUB
Returns the size of the file that was located by either QFINDF or
subsequent calls to QFINDN. See the information on these two calls
before using this routine. This routine returns the size of the file
as a long integer, make sure you ues the correct type declaration.
The format of the call is as follows:
QFSIZE SizeFile&
Example:
DEFINT A-Z
DECLARE SUB QFSIZE (Size AS LONG)
.
REM You must issue a call to either QFINDF or QFINDN first
QFSIZE SizeFile&
Print "File size is " SizeFile&
QFSTAMP -- FUNCTION
This function is used to change the date and time that a file was last
updated. It returns a zero if the request completed successfully. If
there was and error in the information passed to the function, then a
-1 is return. If there were any DOS error encountered, then a
positive number will be returned.
The format of the call is as follows:
RC = QFSTAMP(Qname$, Qtime$, Qdate$)
Example:
DEFINT A-Z
DECLARE FUNCTION QFSTAMP (Qname AS STRING, _
Qtime AS STRING, _
Qdate AS STRING)
.
Qname$ = "TEST.TST" + CHR$(0)
Qtime$ = "13:10:00"
Qdate$ = "12/12/88"
.
XX = QFSTAMP(Qname$, Qtime$, Qdate$)
.
END
File 30
QFTIME -- SUB
Returns the time that the file was created or updated. The file must
first located by a call to either QFINDF or subsequent calls to
QFINDN. See the information on these two calls before using this
routine.
The format of the call is as follows:
QFTIME Hrs, Min
Example:
DEFINT A-Z
DECLARE SUB QFTIME (Hrs AS INTEGER, _
Min AS INTEGER)
.
REM You must issue a call to either QFINDF or QFINDN first
QFTIME Hrs, Min
PRINT "The file time is " Hrs Min
File 31
QFWRITE -- FUNCTION
This function is used to Write a file which has been opened by QFOPEN.
The calling sequence requires that a string buffer be passed which
will contain the data to be written. In addition, the length of the
record to write must be passed so that the routine will know how many
bytes to write. Upon return, then actual number of bytes written will
be returned. In addition, the RC will either be zero indicating that
the write was successful or non-zero indicating an error. If the RC
is -1, there was an error in one of the parameters. If the RC is
greater than zero, DOS encountered an error writing to the file.
The format of the call is as follows:
RC = QFWRITE(FHandle, FBuffer$, WriteLen, BytesWritten)
Example:
DEFINT A-Z
DECLARE FUNCTION QFWRITE% (Handle AS INTEGER, _
Buffer AS STRING, _
WriteLen AS INTEGER, _
BytesWritten AS INTEGER)
.
REM Open file for writing
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 1
RC = QFOPEN(FileName$, Faccess, FHandle)
.
FBuffer$ = "This is a record that will be written to the file."
ReadLen = LEN(FBuffer$)
RC = QFWRITE(FHandle, FBuffer$, WriteLen, BytesWritten)
IF RC <> 0 THEN
PRINT "Error writing file"
END
ELSEIF BytesWritten <> WriteLen THEN
PRINT "Error writing file"
ELSE
PRINT "Write successful"
END IF
.
RC = QFCLOSE(FHandle)
File 32
QMOVEFIL -- FUNCTION
Moves a file. It functions the same way as QCOPYFIL but the original
file will be deleted after the copy is completed. If the file is to
be moved to a different directory on the same device, it will move
just the directory entry which will make the move much faster. If an
error is encountered, the RC will be set to -1. See QCOPYFIL for
additional information.
The format of the call is as follows:
RC = QMOVEFIL(OldFile$, NewFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QMOVEFIL% (InFileName AS STRING, _
OutFileName AS STRING)
.
REM Move a file from the A drive to the C drive
OldFile$="A:TESTFILE.TXT"+CHR$(0)
NewFile$="C:\TESTSUB\TESTFILE.TXT"+CHR$(0)
IF QMOVEFIL(OldFile$, NewFile$) = 0 THEN
PRINT "File moved"
ELSE
PRINT "File not moved"
END IF
.
.
REM Move a file to a different directory on the C drive
OldFile$="TESTFILE.TXT"+CHR$(0)
NewFile$="\TESTSUB\TESTFILE.TXT"+CHR$(0)
IF QMOVEFIL(OldFile$, NewFile$) = 0 THEN
PRINT "File moved"
ELSE
PRINT "File not moved"
END IF
File 33
QPARSEF -- FUNCTION
This function will parse a string which can contain a drive specifier,
a path, a file name and a file extention into individule pieces which
will be returned in a defined type record. This function will return
a -1 if the file name is longer than 8 characters.
The TYPE description below is contained in QB4BAS.BI and if it is
included into the program using the $INCLUDE meta command it will be
available to the program. You will still have to DIM the record using
whichever name that you wish to use.
The format of the call is as follows:
RC = PARSEF(Pstring$, Pseg, Pptr)
Example:
DEFINT A-Z
DECLARE FUNCTION QPARSEF% (Pstring AS STRING, _
BYVAL Pseg AS INTEGER, _
BYVAL Pptr AS INTEGER)
TYPE ParseType
Pdrive AS STRING * 2
Ppath AS STRING * 64
Pname AS STRING * 8
Pext AS STRING * 3
END TYPE
DIM FileRec AS ParseType
Pseg = VARSEG(FileRec)
Pptr = VARPTR(FileRec)
Pstring$ = "D:\PATH1\PATH2\THISTEST.DAT"
IF QPARSEF(Pstring$, Pseg, Pptr) = 0 THEN
PRINT "1 " + FileRec.Pdrive
PRINT "2 " + FileRec.Ppath
PRINT "3 " + FileRec.Pname
PRINT "4 " + FileRec.Pext
END IF
END
File 34
QRENAME -- FUNCTION
Rename an existing file. Can also be used to move a file from one
sub-directory to another. Requires an ASCIIZ filename without
wildcards for both files. If an error is encountered, the RC will be
set to -1.
The format of the call is as follows:
RC = QRENAME(OldFile$, NewFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QRENAME% (InFileName AS STRING, _
OutFileName AS STRING)
.
REM Rename a file
OldFile$="\FIRSTDIR\MYFILE.TXT"+CHR$(0)
NewFile$="MYFILE.DOC"+CHR$(0)
IF QRENAME(OldFile$, NewFile$) = 0 THEN
PRINT "File renamed"
ELSE
PRINT "File not renamed"
END IF
.
.
REM Move a file
OldFile$="\FIRSTDIR\MYFILE.TXT"+CHR$(0)
NewFile$="\SECONDDIR\MYFILE.TXT"+CHR$(0)
IF QRENAME(OldFile$, NewFile$) = 0 THEN
PRINT "File renamed"
ELSE
PRINT "File not renamed"
END IF
File 35
QTREAD -- FUNCTION
This function is similar to QFREAD except instead of placing the
record into a string buffer it will place the record into a user
defined record type. This allows records to be placed directly
into the type of record needed and, in addition, multiple records
can be read directly into an array of defined records.
This function requires that the file be opened with QFOPEN and
closed with QFCLOSE. The file handle returned by QFOPEN is used
to read the records. Also required by the call is the segment
address of the file buffer, the offset of the file buffer and the
number of bytes to read which is usually the length of the record
type. Upon return, the record will contain the requested record
and the actual number of bytes read. The RC will either be zero
indicating that the read was successful or non-zero indicating an
error. If the RC is -1, there was an error in one of the
parameters. If the RC is greater than zero, DOS encountered an
error reading the file.
A useful feature of this function is that block reads can be done.
A block read is reading multiple records at a time. If the record
length is 50, by setting a buffer length to 500 will cause the
routine to attempt to read 10 records. The bytes read count can
then be used to determine exactly how many records were read.
The format of the call is as follows:
RC = QTREAD(FHandle, BufSeg, BufPtr, ReadLen, BytesRead)
Example:
DEFINT A-Z
DECLARE FUNCTION QTREAD% (BYVAL Handle AS INTEGER, _
BYVAL BufSeg AS INTEGER, _
BYVAL BufPtr AS INTEGER, _
BYVAL ReadLen AS INTEGER, _
BytesRead AS INTEGER)
.
TYPE TestType
TstCode AS STRING * 2
TstName AS STRING * 34
Balance AS LONG
END TYPE
.
DIM TestRec(1 TO 100) AS TestType
.
REM Open file for reading
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 0
RC = QFOPEN(FileName$, Faccess, FHandle)
VSeg = VARSEG(TestRec(1))
VPtr = VARPTR(TestRec(1))
Rlen = LEN(TestRec(1))
File 36
Olen = 0
FOR x = 1 TO 100
RC = QTREAD(Fhandle, VSeg, VPtr, Rlen, Olen)
IF RC <> 0 THEN
PRINT "Error reading record number ", x
PRINT "Error code returned is ", RC
END
ELSEIF Olen = 0 THEN
EXIT FOR
END IF
VPtr = VPtr + Rlen
NEXT x
.
RC = QFCLOSE(FHandle)
QTWRITE -- FUNCTION
This function is similar to QFWRITE except instead of wrinting the
record into a string buffer it will write the record from a user
defined record type. This allows records to be written directly
from the type of record needed and, in addition, multiple records
can be written directly from an array of defined records.
This function requires that the file be opened with QFOPEN and
closed with QFCLOSE. The file handle returned by QFOPEN is used
to write the records. Also required by the call is the segment
address of the file buffer, the offset of the file buffer and the
number of bytes to write which is usually the length of the record
type. Upon return, the actual number of bytes written will be
returned. The RC will either be zero indicating that the write was
successful or non-zero indicating an error. If the RC is -1,
there was an error in one of the parameters. If the RC is greater
than zero, DOS encountered an error writing the file.
A useful feature of this function is that block writes can be
done. A block write is writing multiple records at a time. If the
record length is 50, by setting a buffer length to 500 will cause
the routine to attempt to write 10 records. The bytes written
count can then be used to determine exactly how many records were
written.
The format of the call is as follows:
RC = QTWRITE(FHandle, BufSeg, BufPtr, WriteLen, BytesWritten)
Example:
DEFINT A-Z
DECLARE FUNCTION QTWRITE% (BYVAL Handle AS INTEGER, _
BYVAL BufSeg AS INTEGER, _
BYVAL BufPtr AS INTEGER,
BYVAL WriteLen AS INTEGER, _
File 37
BytesWritten AS INTEGER)
.
TYPE TestType
TstCode AS STRING * 2
TstName AS STRING * 34
Balance AS LONG
END TYPE
.
DIM TestRec(1 TO 100) AS TestType
.
REM Open file for reading
FileName$ = "C:\DEMO\TEST.DAT"+CHR$(0)
Faccess = 0
RC = QFOPEN(FileName$, Faccess, FHandle)
VSeg = VARSEG(TestRec(1))
Wlen = LEN(TestRec(1))
Olen = 0
FOR x = 1 TO RecCounter
VPtr = VARPTR(TestRec(x))
RC = QTWRITE(Fhandle, VSeg, VPtr, Wlen, Olen)
IF RC <> 0 THEN
PRINT "Error writing record number ", x
PRINT "Error code returned is ", RC
END
END IF
NEXT x
.
RC = QFCLOSE(FHandle)
File 38
KEYBOARD
QALTKEY -- FUNCTION
Returns a zero to indicate that the ALT key is pressed, otherwise it
returns a -1 to indicate that the ALT key is not pressed.
The format of the call is as follows:
RC = QALTKEY()
Example:
DEFINT A-Z
DECLARE FUNCTION QALTKEY% ()
WHILE INKEY$ = ""
SELECT CASE QALTKEY
CASE -1
LOCATE 5, 2: PRINT "ALT not pressed"
CASE 0
LOCATE 5, 2: PRINT "ALT is pressed "
END SELECT
WEND
END
QCAPSKEY -- FUNCTION
Returns a zero to indicate that the CAPS LOCK key is pressed,
otherwise it returns a -1 to indicate that the CAPS LOCK key is not
pressed.
The format of the call is as follows:
RC = QCAPSKEY()
Example:
DEFINT A-Z
DECLARE FUNCTION QCAPSKEY% ()
WHILE INKEY$ = ""
SELECT CASE QCAPSKEY
CASE -1
LOCATE 5, 2: PRINT "CAPS not pressed"
CASE 0
LOCATE 5, 2: PRINT "CAPS is pressed "
END SELECT
WEND
END
Keyboard 39
QCTRLKEY -- FUNCTION
Returns a zero to indicate that the CTRL key is pressed, otherwise
it returns a -1 to indicate that the CTRL key is not pressed.
The format of the call is as follows:
RC = QCTRLKEY()
Example:
DEFINT A-Z
DECLARE FUNCTION QCTRLKEY% ()
WHILE INKEY$ = ""
SELECT CASE QCTRLKEY
CASE -1
LOCATE 7, 2: PRINT "CTRL not pressed"
CASE 0
LOCATE 7, 2: PRINT "CTRL is pressed "
END SELECT
WEND
END
QGETKEY -- FUNCTION
Returns a key which is waiting in the keyboard buffer. If the RC is
zero then the key returned is a normal ASCII key. If the RC is -1
the the key returned is an extended code. The meanings of these
codes can be found in the BASIC reference manual.
The format of the call is as follows:
RC = QGETKEY(Char$)
Example:
DEFINT A-Z
DECLARE FUNCTION QGETKEY% (Char AS STRING)
Char$ = SPACE$(1)
IF QGETKEY(Char$) = 0 THEN
PRINT "Normal key "; Char$
ELSE
PRINT "Extended code "; Char$
END IF
Keyboard 40
QINKEY -- FUNCTION
This function is a combination of both QGETKEY and QKEYSTAT. It
will set a RC to indicate if a key is waiting and what type of key
was pressed. This function works very well with SELECT CASE logic.
The format of the call is as follows:
RC = QINKEY(Char$)
Example:
DEFINT A-Z
DECLARE FUNCTION QINKEY% (Char AS STRING)
Char$ = SPACE$(1)
SELECT CASE QINKEY(CHAR$)
CASE 0
PRINT "No key waiting."
CASE 1
PRINT "Normal key "; Char$
CASE -1
PRINT "Extended code "; VAL(Char$)
CASE ELSE
PRINT "Error detected."
END SELECT
Keyboard 41
QINPUT -- FUNCTION
A keyboard input function that has full editing capabilities. By
passing a verification string, each key stroke is validated as it is
entered. It also returns a RETURN CODE which indicates which key
was pressed to exit the input routine. The input string can either
be all spaces or it can contain existing data to be updated. It
should be noted here, because of the restrictions BASIC forces on
called ASSEMBLER programs, the size of the string must be set before
calling the function. The Keys variable must be initialized with a
number from 0 to 50 which is used to set which return keys will be
used. The keys with an RC equal to or less than the passed number
will be the active return keys. See the next page for the valid
return keys. The color attribute used by the program is the Aattr
variable. The program will reverse the color attribute that is set,
which usually means that the input field will highlighted.
The format of the call is as follows:
RC = QINPUT(Ver$,InBuff$,Row,Col,Aattr,Page,Keys)
Where:
RC the return code or key that was pressed to exit.
Ver$ the string containing that valid characters.
InBuff$ the input buffer which can be pre-populated.
Row the screen row to display the buffer.
Column the screen column to display the buffer.
Aattr the action video color attribute.
Page the video display page (Valid pages are 0-3).
Keys a number from 0 to 50 to indicate the valid return keys.
Example:
DEFINT A-Z
DECLARE FUNCTION QINPUT% (VerStr AS STRING, _
Buffer AS STRING, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER, _
BYVAL Keys AS INTEGER)
Fgrd = 7
Bkgrd = 1
Aattr = QATTR(Fgrd,Bkgrd)
REM Only accept alpha-numeric input
Ver$ = "0123456789abcdefghijklmnopqrstuvwxyz"
Ver$ = Ver$+"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
InBuff$ = SPACE$(20)
Row = 10 : Col = 20 : Page = 0 : Keys = 8
IF QINPUT(Ver$,InBuff$,Row,Col,Aattr,Page,Keys) > 0 THEN
InBuff$ = RTRIM$(InBuff$)
END IF
Keyboard 42
The following are the valid editing keys:
INSERT Toggles the insert mode and over-type mode.
DELETE Delete character at cursor.
BACKSPACE Destructive backspace.
LEFT ARROW Move the cursor to the left.
RIGHT ARROW Move the cursor to the right.
HOME Move the cursor to the beginning of the field.
END Move the cursor to the end of the field.
CTL-HOME Move cursor to the start and erase the field.
CTL-END Erase from the cursor to the end of the field.
CTL-BkSpace Erase from the cursor to the start of the field.
The following are the return codes returned upon exit:
RC - Key pressed RC - Key pressed
00 - ESC 09 - ALT HOME
01 - RETURN 10 - ALT-END
02 - CTL-RETURN 11-20 - F1 thru F10
03 - TAB 21-30 - SHIFT-F1 thru SHIFT-F10
04 - SHIFT-TAB 31-40 - CTL-F1 thru CTL-F10
05 - UP ARROW 41-50 - ALT-F1 thru ALT-F10
06 - DOWN ARROW
07 - PAGE UP
08 - PAGE DOWN
Keyboard 43
QINPUTM -- FUNCTION
This function works just like QINPUT but has the added feature of
allowing you to supply an edit mask which makes entering information
such as dates or social security numbers look much more
professional. The cursor will automatically skip over any mask
characters, the user will not have to press the tab or arrow keys.
The mask characters will not be returned in the buffer. See QINPUT
for further information on using the editing functions, it works
just the same.
The format of the call is as follows:
RC = QINPUTM(Ver$,InBuff$,Mask$,Row,Col,Aattr,Page,Keys)
Where:
RC the return code or key that was pressed to exit.
Ver$ the string containing that valid characters.
InBuff$ the input buffer which can be pre-populated.
Mask$ the edit mask to be displayed.
Row the screen row to display the buffer.
Column the screen column to display the buffer.
Aattr the action video color attribute.
Page the video display page (Valid pages are 0-3).
Keys a number from 0 to 50 to indicate the valid return keys.
Example:
DEFINT A-Z
DECLARE FUNCTION QINPUTM% (VerStr AS STRING, _
Buffer AS STRING, _
Mask AS STRING, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER, _
BYVAL Keys AS INTEGER)
Fgrd = 7
Bkgrd = 1
Aattr = QATTR(Fgrd,Bkgrd)
REM Only accept numeric input
VerStr$ = "0123456789"
Buffer$ = "4075551212"
BuffMask$ = "( ) - "
Row = 10 : Col = 20 : Page = 0 : Keys = 8
RC = QINPUTM(VerStr$, Buffer$, BuffMask$, Row, Col, Aattr, Page, Keys)
END
Keyboard 44
QKEYFLAG -- FUNCTION
This function returns an RC to indicate if either the ALT, CTRL,
LEFT SHIFT or the RIGHT SHIFT is pressed. By adding the various key
values together, you can check various combinations. The key values
are NO KEY-0, RIGHT SHIFT-1, LEFT SHIFT-2, CTRL-4 and ALT-8.
The format of the call is as follows:
RC = QKEYFLAG
Example:
DEFINT A-Z
DECLARE FUNCTION QKEYFLAG% ()
CLS
WHILE INKEY$ = ""
SELECT CASE QKEYFLAG
CASE 1
LOCATE 5, 2: PRINT "RIGHT SHIFT "
CASE 15
LOCATE 5, 2: PRINT "R L CTRL ALT "
END SELECT
WEND
END
QKEYSTAT -- FUNCTION
This function returns an RC to indicate if a key is waiting in the
keyboard buffer. A zero indicates no key, anything else indicates
that a key is waiting.
The format of the call is as follows:
RC = QKEYSTAT
Example:
DEFINT A-Z
DECLARE FUNCTION QKEYSTAT% ()
.
Char$ = SPACE$(1)
IF QKEYSTAT = 0 THEN
PRINT "No key waiting."
ELSE
IF QGETKEY(Char$) = 0 THEN
PRINT "Normal key "; Char$
ELSE
PRINT "Extended code "; Char$
END IF
END IF
Keyboard 45
QPOPMENU -- FUNCTION
The QPOPMENU function displays a menu within a window or frame and
obtains a selection from the user and passes back an indicator of
the users selection. The function accepts as input the screen
location where the window should be displayed allowing the menu to
be placed in a window which is a subset of the screen. The menu may
be created allowing selection by moving a selection bar, optionally
each menu entry may have an action indicator which provides a faster
selection mechanism.
The QPOPMENU function is specified as follows:
Slct=QPOPMENU(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,Col,NAttr,AAttr,HAttr,Page)
The Slct variable will contain the results of the QPOPMENU function
when control is returned to your program. This will be the number of
the menu array entry selected or, depending on the key pressed, zero
if the Esc key was depressed, -1 if the left arrow was pressed or -2
if the right arrow was pressed.
The contents of the variables passed are as follows:
Cnt The number of entries contained in the menu array which are
to be included in the menu.
VARSEG(Menu$(1)) A string array (Menu$) passed to QPOPMENU using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
VARPTR(Menu$(1)) A string array (Menu$) passed to QPOPMENU using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
Row The screen row where the menu window is to start.
Col The screen Column where the menu window is to start.
NAttr The color attribute to be used to display normal text. It
is also used for the color attribute of the window frame.
AAttr The color attribute to be used to display the action
character. Use 0,0 (black on black) if action characters are
not desired.
HAttr The color attribute to be used to display the highlighted
menu entry. When a black background is specified the
attribute will be reversed by the routine.
Page The video display page (valid pages are 0-3) to be used.
Rules:
1. No error checking is performed on the input parameters. Errors
in the input parameters will have unpredictable results.
2. The QPOPMENU routine requires the Color Graphics Adapter with a
color or monochrome (shades of gray) monitor.
3. Text placed on the screen before this function is called which
is outside of the bounds of the menu itself is left undisturbed.
Keyboard 46
4. The menu is displayed starting at the row and column specified
and extends down the screen using as many screen rows as there
are menu entries.
5. When the action attribute specified is not 0,0 (black on black)
the first character of each entry will be highlighted with the
action attribute if there are 36 or fewer menu selection
entries.
6. The highlight attribute is checked for a background other than
black. When the background is black the highlight attribute is
reversed to create a reverse video highlight bar. If the
background is not black the highlight attribute is not changed.
7. The following keys will be active for the indicated purpose
while the menu is displayed.
Esc Exit the menu without a selection, 0 is returned as
the function result.
Left Arrow Exit the menu without a selection, -1 is returned as
the function result.
Right Arrow Exit the menu without a selection, -2 is returned as
the function result.
Enter Selects highlighted item.
Up Move the highlight bar up 1 menu entry. Rolls to
the last entry if the highlight bar is already on
the first entry.
Down Move the highlight bar down 1 menu entry. Rolls to
the first entry if the highlight bar is already on
the last entry.
Home Move the highlight bar to the first menu entry.
End Move the highlight bar to the last menu entry.
x When the action attribute is specified other than
0,0 (black on black) the keys corresponding to the
characters highlighted by the action attribute may
be used to select the menu entry.
8. By checking the value returned by QPOPMENU for a -1 or -2,
programs can use this function to create pull down menus similar
to the menus that are found in the QuickBASIC 4 environment.
See the example below for a suggested way of accomplishing this.
Keyboard 47
Example:
DEFINT A-Z
DECLARE FUNCTION QPOPMENU% (BYVAL Count AS INTEGER, _
BYVAL MenuSeg AS INTEGER, _
BYVAL MenuOff AS INTEGER, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Norm AS INTEGER, _
BYVAL Actn AS INTEGER, _
BYVAL High AS INTEGER, _
BYVAL Page AS INTEGER)
OPTION BASE 1
DIM Menu$(5)
...
NAttr=QATTR(3,0)
AAttr=QATTR(4,0)
HAttr=QATTR(7,0)
...
Menu$(1)= "A - Goto Routine One"
Menu$(2)= "B - Goto Routine Two"
Menu$(3)= "C - Goto Routine Three"
Menu$(4)= "D - Goto Routine Four"
Menu$(5)= "E - Goto Routine Five"
Cnt = 5: Row = 3: Col = 3: Page = 0
RC = QPOPMENU(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,Col,NAttr,AAttr,HAttr,Page)
SELECT CASE RC
CASE -2
GOTO NextMenu
CASE -1
GOTO PrevMenu
CASE 0
GOTO GetOut
CASE 1
GOTO Rtn1
CASE 2
GOTO Rtn2
CASE 3
GOTO Rtn3
CASE 4
GOTO Rtn4
CASE 5
GOTO Rtn5
CASE ELSE
GOTO ErrorRtn
END SELECT
...
END
Keyboard 48
QMENU -- FUNCTION
The QMENU function displays a menu and obtains a selection from the
user and passes back an indicator of the users selection. The
function accepts as input the screen location where the menu should
be displayed allowing the menu to be placed in a window which is a
subset of the screen. The menu may be created allowing selection by
moving a selection bar, optionally each menu entry may have an
action indicator which provides a faster selection mechanism.
The QMENU function is specified as follows:
Slct=QMENU(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,Col,NAttr,AAttr,HAttr,Page)
The Slct variable will contain the results of the QMENU function
when control is returned to your program, the number of the menu
array entry selected or zero if the Esc key was depressed.
The contents of the variables passed are as follows:
Cnt The number of entries contained in the menu array which are
to be included in the menu.
VARSEG(Menu$(1)) A string array (Menu$) passed to QMENU using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
VARPTR(Menu$(1)) A string array (Menu$) passed to QMENU using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
Row The screen row where the menu display is to start.
Col The screen Column where the menu display is to start.
NAttr The color attribute to be used to display normal text.
AAttr The color attribute to be used to display the action
character. Use 0,0 (black on black) if action characters are
not desired.
HAttr The color attribute to be used to display the highlighted
menu entry. When a black background is specified the
attribute will be reversed by the routine.
Page The video display page (valid pages are 0-3) to be used.
Rules:
1. No error checking is performed on the input parameters. Errors
in the input parameters will have unpredictable results.
2. The QMENU routine requires the Color Graphics Adapter with a
color or monochrome (shades of gray) monitor.
3. Text placed on the screen before this function is called which
is outside of the bounds of the menu itself is left undisturbed.
As an example the QWINDOW subroutine can be used to create a
window before calling this function.
Keyboard 49
4. The menu is displayed starting at the row and column specified
and extends down the screen using as many screen rows as there
are menu entries.
5. When the action attribute specified is not 0,0 (black on black)
the first character of each entry will be highlighted with the
action attribute if there are 36 or fewer menu selection
entries.
6. The highlight attribute is checked for a background other than
black. When the background is black the highlight attribute is
reversed to create a reverse video highlight bar. If the
background is not black the highlight attribute is not changed.
7. The following keys will be active for the indicated purpose
while the menu is displayed.
Esc Exit the menu without a selection, 0 is returned as the
function result.
Enter Selects highlighted item.
Up Move the highlight bar up 1 menu entry.
Down Move the highlight bar down 1 menu entry.
Home Move the highlight bar to the first menu entry.
End Move the highlight bar to the last menu entry.
x When the action attribute is specified other than 0,0
(black on black) the keys corresponding to the
characters highlighted by the action attribute may be
used to select the menu entry.
Example:
DEFINT A-Z
DECLARE FUNCTION QMENU% (BYVAL Count AS INTEGER, _
BYVAL MenuSeg AS INTEGER, _
BYVAL MenuOff AS INTEGER, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Norm AS INTEGER, _
BYVAL Actn AS INTEGER, _
BYVAL High AS INTEGER, _
BYVAL Page AS INTEGER)
OPTION BASE 1
DIM Menu$(3)
...
NAttr=QATTR(3,0)
AAttr=QATTR(4,0)
HAttr=QATTR(7,0)
Menu$(1)= "A - Goto Routine One"
Menu$(2)= "B - Goto Routine Two"
Menu$(3)= "C - Goto Routine Three"
Cnt = 4: Row = 3: Col = 58: Page = 0
RC = QMENU(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,Col,NAttr,AAttr,HAttr,Page)
ON RC GOTO Rtn1,Rtn2,Rtn3
...
Keyboard 50
END
Keyboard 51
QMENUS -- FUNCTION
The QMENUS function displays a menu and obtains a selection from the
user and passes back an indicator of the users selection. Unlike the
QMENU function this function assumes the entire screen is used for
the menu display. The function accepts as input the screen row where
the menu is to start, the screen column is computed based on the
longest menu selection entry assuming an 80 character screen. The
displayed menu extends from the specified screen row through row 22,
rows 23 and 24 are not used and the 25th row is used as a status
line where the valid cursor movement keys are displayed. The menu
allows selection by moving a selection bar, optionally each menu
entry may have an action indicator which provides a faster selection
mechanism.
A unique feature of the QMENUS function allows a maximum of 32,767
menu selection entries to be displayed. Yes, that's right 32,767
menu selection entries. What is displayed on the screen is a subset
of the menu. The cursor movement keys allow the menu to be scrolled
in both directions, move to the next or previous screen and move to
the first or last screen.
The QMENUS function is specified as follows:
Slct=QMENUS(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,Col,NAttr,AAttr,HAttr,Page)
The Slct variable will contain the results of the QMENUS function
when control is returned to your program, the number of the menu
array entry selected or zero if the Esc key was depressed.
The contents of the variables passed are as follows:
Cnt The number of entries contained in the menu array which are
to be included in the menu. This number may range from 1 to
32,767.
VARSEG(Menu$(1)) A string array (Menu$) passed to QMENUS using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
VARPTR(Menu$(1)) A string array (Menu$) passed to QMENUS using the
VARSEG/VARPTR functions. The number (1) indicates the array
element where the menu entries begin.
Row The screen row where the menu display is to start.
NAttr The color attribute to be used to display normal text.
AAttr The color attribute to be used to display the action
character. Use 0,0 (black on black) if action characters are
not desired.
HAttr The color attribute to be used to display the highlighted
menu entry. When a black background is specified the
attribute will be reversed by the routine.
Page The video display page (valid pages are 0-3) to be used.
Keyboard 52
Rules:
1. No error checking is performed on the input parameters. Errors
in the input parameters will have unpredictable results.
2. The QMENUS function requires the Color Graphics Adapter with a
color or monochrome (shades of gray) monitor. An 80x25 screen
size is assumed.
3. Text placed on the screen before this function is called which
is outside of the bounds of the menu itself and the status line
is left undisturbed. As an example the QWINDOW subroutine can be
used to frame the screen before calling this function, however,
this frame may not use the 25th row.
4. The menu is displayed starting at the row specified and extends
down the screen to row 22. Row 25 is used as a status line to
indicate the valid cursor movement keys.
5. When the action attribute specified is not 0,0 (black on black)
the first character of each entry will be highlighted with the
action attribute if there are 36 or fewer menu selection
entries.
6. The highlight attribute is checked for a background other than
black. When the background is black the highlight attribute is
reversed to create a reverse video highlight bar. If the
background is not black the highlight attribute is not changed.
7. The following keys will be active for the indicated purpose
while the menu is displayed.
Esc Exit the menu without a selection, 0 is returned as the
function result.
Enter Selects highlighted item.
Up Move the highlight bar up 1 menu entry.
Down Move the highlight bar down 1 menu entry.
PgUp Move up 1 screen.
PgDn Move down 1 screen.
Home Move the highlight bar to the first menu entry.
End Move the highlight bar to the last menu entry.
x When the action attribute is specified other than 0,0
(black on black) the keys corresponding to the
characters highlighted by the action attribute may be
used to select the menu entry.
Keyboard 53
Example:
DEFINT A-Z
DECLARE FUNCTION QMENUS% (BYVAL Count AS INTEGER, _
BYVAL MenuSeg AS INTEGER, _
BYVAL MenuOff AS INTEGER, _
BYVAL Row AS INTEGER, _
BYVAL Norm AS INTEGER, _
BYVAL Actn AS INTEGER, _
BYVAL High AS INTEGER, _
BYVAL Page AS INTEGER)
OPTION BASE 1
DIM Menu$(5)
...
NAttr=QATTR(3,0)
AAttr=QATTR(4,0)
HAttr=QATTR(7,0)
Menu$(1)= "Apples to Oranges"
Menu$(2)= "Books to Comics"
...
Menu$(25)= "Yet Another Entry"
Menu$(26)= "Zebras to Horses"
Cnt = 26
Row = 3
Page = 0
RC = QMENUS(Cnt,VARSEG(Menu$(1)),VARPTR(Menu$(1)), _
Row,NAttr,AAttr,HAttr,Page)
SELECT CASE RC
CASE 1
...
CASE 2
...
CASE 26
...
END SELECT
END
Keyboard 54
QNUMKEY -- FUNCTION
Returns a zero to indicate that the NUM LOCK key is on, otherwise it
returns a -1 to indicate that the NUM LOCK key is not on.
The format of the call is as follows:
RC = QNUMKEY()
Example:
DEFINT A-Z
DECLARE FUNCTION QNUMKEY% ()
CLS
WHILE INKEY$ = ""
SELECT CASE QNUMKEY
CASE -1
LOCATE 5, 2: PRINT "NUM LOCK not on"
CASE 0
LOCATE 5, 2: PRINT "NUM LOCK is on "
END SELECT
WEND
END
QSCRLKEY -- FUNCTION
Returns a zero to indicate that the SCROLL LOCK key is on, otherwise
it returns a -1 to indicate that the SCROLL LOCK key is not on.
The format of the call is as follows:
RC = QSCRLKEY()
Example:
DEFINT A-Z
DECLARE FUNCTION QSCRLKEY% ()
CLS
WHILE INKEY$ = ""
SELECT CASE QSCRLKEY
CASE -1
LOCATE 5, 2: PRINT "SCROLL LOCK not on"
CASE 0
LOCATE 5, 2: PRINT "SCROLL LOCK is on "
END SELECT
WEND
END
Keyboard 55
QYESNO -- FUNCTION
Returns a value to indicate if the "Y" or "N" or the "ESC" key has
has been pressed. It will not return to the main program until one
of the above keys has been pressed. It will accept both upper and
lower case characters. The values returned are -1 for ESC, 0 for Y
and 1 for N.
The format of the call is as follows:
RC = QYESNO()
Example:
DEFINT A-Z
DECLARE FUNCTION QYESNO% ()
CLS
PRINT "Press (Y)es or (N)o --> ";
SELECT CASE QYESNO
CASE -1
PRINT "ESC was pressed"
CASE 0
PRINT "Y was pressed"
CASE 1
PRINT "N was pressed"
END SELECT
END
Keyboard 56
MISCELLANEOUS
QALARM -- SUB
Produces a pulsating alarm tone.
The format of the call is as follows:
QALARM
Example:
DEFINT A-Z
DECLARE SUB QALARM ()
QALARM
QARGC QARGV -- FUNCTION
QARGC returns the number of command line parameters used to envoke
the program. This value can be tested to determine if any
parameters were passed to the program. This routines has been
optimized for multiple executions.
QARGV returns the space delimited parameters used to invoke the
program. The parameters are placed into individual elements much
like a BASIC array. The zero element, QARGV(0), returns the fully
qualified program name, including the drive letter, of the executing
program in version 3.x of DOS. Prior versions return a null string.
Use QARGC to determine the number of command line parameters.
The format of the calls are as follows:
Parms = QARGC
Parm$ = QARGV(Parms)
Example:
DEFINT A-Z
DECLARE FUNCTION QARGC% ()
DECLARE FUNCTION QARGV$ (ParmNumber AS INTEGER)
IF QARGC > 0 THEN
FOR X = 1 TO QARGC
PRINT QARGV(X)
NEXT X
END IF
Miscellaneous 57
QBSRCHT -- FUNCTION
This function is a BINARY search routine that will search through an
array of records defined using the TYPE statement. This function
requires that the KEY being searched for is the first element of the
record and it must be in string format. It is also necessary that
the records be in sorted, ascending order. If these rules are
followed, this routine should find the KEY you are looking for in
seven or less tests of the array. This is done by constantly
spliting the search group in half. When the KEY is found, the
function will return the element number of the record. If the KEY
is not found, then a -1 is returned. All of this searching is done
in memory so the KEY will be found very quickly.
The format of the calls are as follows:
Index = QBSRCHT(Aseg, Aptr, Lrecl, RecCnt, SearchKey$)
Example:
DEFINT A-Z
TYPE DataType
DataKey AS STRING * 6
DataField1 AS STRING * 10
DataField2 AS INTEGER
DataField3 AS STRING * 5
DataField4 AS INTEGER
DataField5 AS INTEGER
END TYPE
DIM DataRec(1 TO 2000) AS DataType
.
REM Do whatever is necessary to load the DataRec array
.
DataSeg = VARSEG(DataRec(1))
DataPtr = VARPTR(DataRec(1))
DataLen = LEN(DataRec(1))
DataCnt = 2000
DataKey$ = "ABC123"
DataSub = QBSRCHT(DataSeg, DataPtr, DataLen, DataCnt, DataKey$)
IF DataSub = -1 THEN
PRINT "Key not found ==> " + DataKey$
ELSE
PRINT DataRec(DataSub).DataKey
PRINT DataRec(DataSub).DataField1
PRINT DataRec(DataSub).DataField2
PRINT DataRec(DataSub).DataField3
PRINT DataRec(DataSub).DataField4
PRINT DataRec(DataSub).DataField5
END IF
END
Miscellaneous 58
QCAPSOFF QCAPSON -- SUB
This routine will enable or disable the CAPS LOCK key on the
keyboard. This will force all input to be in upper case without
having to press the shift key. The normal functions can still be
used by pressing the shift key and then the appropriate key.
The format of the call is as follows:
QCAPSOFF
QCAPSON
Example:
DEFINT A-Z
DECLARE SUB QCAPSOFF ()
DECLARE SUB QCAPSON ()
QCAPSON
.
QCAPSOFF
QCLOCK -- SUB
Display a running clock on the screen. This is a very nice touch on
menu and update screens. The clock can be turned on and off by
flipping the "switch" (1 = on, 0 = off). The routine can also be
called again to move the location of the clock without having to
first turn it off.
The format of the call is as follows:
QCLOCK Row, Col, NAttr, Page, Switch
Example:
DEFINT A-Z
DECLARE SUB QCLOCK (BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, _
BYVAL NAttr AS INTEGER, BYVAL Page AS INTEGER, _
BYVAL Switch AS INTEGER)
REM Turn the clock on
Fgrd=5 : Bkgrd=7
NAttr = QATTR(Fgrd,Bkgrd)
Row = 2: Col = 70
Switch = 1: Page = 0
QCLOCK Row, Col, NAttr, Page, Switch
.
REM Turn the clock off
Switch = 0
QCLOCK Row, Col, NAttr, Page, Switch
Miscellaneous 59
QCMDLEN -- FUNCTION
Returns the length of the command line used to envoke the program.
This function is helpful in setting the length of the string
variable needed when using QCMDLINE. If there is no command line
information, then zero is returned.
The format of the call is as follows:
RC = QCMDLEN
Example:
DEFINT A-Z
DECLARE FUNCTION QCMDLEN% ()
DECLARE FUNCTION QCMDLINE% (CmdLine AS STRING)
IF QCMDLEN = 0 THEN
PRINT "No command line parameters."
ELSE
CmdLine$ = Space$(QCMDLEN)
RC = QCMDLINE(CmdLine$)
PRINT "Command line is " CmdLine$
END IF
QCMDLINE -- FUNCTION
Returns the command line used to invoke the program. This function
works like the COMMAND$ function except it does not convert all
letters to uppercase. You do not have to pre-set the return string,
one of the correct size will be returned. A null string will be
returned it there aren't any characters passed. This function does
not work in the editor environment because it will return the
command line used to invoke QuickBasic.
The format of the call is as follows:
CmdLine$ = QCMDLINE
Example:
DEFINT A-Z
DECLARE FUNCTION QCMDLEN% ()
DECLARE FUNCTION QCMDLINE$ ()
IF QCMDLEN = 0 THEN
PRINT "No command line parameters."
ELSE
CmdLine$ = QCMDLINE
PRINT "Command line is " CmdLine$
END IF
Miscellaneous 60
QCRCCHK QCRCSET -- FUNCTION
These functions will either calculate and set the cyclical
redundancy check (CRC) value for a record or check the validity if a
record with the CRC already set. These functions will return a RC
which will be zero if OK or -1 on an error.
The format of the call is as follows:
RC = QCRCCHK(Rec$)
RC = QCRCSET(Rec$)
Example:
DEFINT A-Z
DECLARE FUNCTION QCRCCHK% (Record AS STRING)
DECLARE FUNCTION QCRCSET% (Record AS STRING)
REM Sending a record
Rec$ = Rec$+STRING$(2,0)
IF QCRCSET(Rec$) = 0 THEN
Send the record
ELSE
Error computing the CRC
END IF
.
REM Receiving a record
IF QCRCCHK(Rec$) = 0 THEN
Rec$ = LEFT$(Rec$,LEN(Rec$)-2)
ELSE
Error in CRC, request a resend
END IF
QDOSVER -- SUB
Retrieve the MS-DOS version. The major version is returned in the
first parm and the minor version in the second parm.
The format of the call is as follows:
QDOSVER Lparm, Rparm
Example:
DEFINT A-Z
DECLARE SUB QDOSVER (Major AS INTEGER, _
Minor AS INTEGER)
QDOSVER Lparm, Rparm
PRINT Lparm, Rparm
Miscellaneous 61
QEMSSIZE -- SUB
Returns both the total and free amounts of memory in kilobytes that
is available on an EMS board. If no board is installed or the EMS
driver is not loaded, it will return -1 for both.
The format of the call is as follows:
QEMSSIZE Total, Free
Example:
DEFINT A-Z
DECLARE SUB QEMSSIZE (Total AS INTEGER, _
Free AS INTEGER)
QEMSSIZE Total, Free
IF Total > 0 THEN
PRINT "Total is" Total " Free is" Free
ELSE
PRINT "EMS is not available."
END IF
QEMSEXIST -- FUNCTION
Returns a return code indicating if an EMS board and driver is
installed. If either is unavailable it will return -1 otherwise it
returns a zero.
The format of the call is as follows:
RC = QEMSEXIST()
Example:
DEFINT A-Z
DECLARE FUNCTION QEMSSIZE% ()
IF QEMSEXIST() = 0 THEN
PRINT "EMS is available"
ELSE
PRINT "EMS is not available."
END IF
Miscellaneous 62
QEQUIPMENT -- SUB
Returns information on the hardware configuration of the computer.
The information returned is the memory installed in kilobytes, the
number of parallel ports (0-3), the number of serial ports (0-7) and
the number of game ports (0-1).
The format of the call is as follows:
QEQUIPMENT Memory, Parallel, Serial, Game
Example:
DEFINT A-Z
DECLARE SUB QEQUIPMENT (Memory AS INTEGER, _
Parallel AS INTEGER, _
Serial AS INTEGER, _
Game AS INTEGER)
QEQUIPMENT Memory, Parallel, Serial, Game
PRINT Memory, Parallel, Serial, Game
QEXIT -- SUB
This routine provides a method of letting you set the DOS errorlevel
and exiting your program. There may be cases where it may cause
some problems so use it with care. This routine is used instead of
the BASIC commands "END" or "SYSTEM". The errorlevel can be set to
any value between 0 and 255. You must also be sure that any open
files are closed before calling this routine because it does not
return, it jumps straight to DOS. This routine can now be called
from the programming environment, it basically will perform a nop,
you should include a BASIC "END" or "SYSTEM" on the next line.
The format of the call is as follows:
QEXIT ErrorLevel
Example:
DEFINT A-Z
DECLARE SUB QEXIT (ErrorLevel AS INTEGER)
.
ErrorExit:
CLOSE
ErrorLevel = 16
QEXIT ErrorLevel
END
Miscellaneous 63
QEXEC -- FUNCTION
This function is used to execute another program without leaving the
the current program. This function will in effect, put the current
program on hold, shrink the memory that is being used to a minimum,
run the requested program, return a return code or errorlevel if the
executed program returns one and then return the memory usage back
to the way it was in the beginning of the routine.
When this function is executed it must be passed a string which
contains the full file name, with extention (.EXE or .COM). In
addition, command line parameters can be included in the string,
just leave one space after the file name. There are special rules
if you want to run a .BAT file, see the example below.
There are a few error codes that can be returned by the routine that
may need special attention. The first error is issued if QEXEC
finds an error, the remaining error codes are returned if DOS
encounters an error. Any error code greater than zero can be
assumed to be returned by the program that was executed.
-1 An error was encountered in the passed string.
-255 Invalid function
-254 File not found
-248 Not enough memory
-246 Bad environment
-245 Bad format
A little explanation should be given to the following routine as it
contains some routines from this library. The first routine,
QREPLACE changes all occurances of one character to another
character. This is used to change all occurances of ";" to a space
that I can then parse to the PATH string using QWORD and QWORDS in a
FOR loop, concatinating it to the file name and then using QEXIST to
see if the file exists. If it does, I break out of the FOR loop and
then invoke QEXEC. The resulting return code will be printed to the
screen. If the file is not found, then the routine just exits.
Miscellaneous 64
The format of the call is as follows:
RC = QEXEC (PgmStr$)
Example:
DEFINT A-Z
' $INCLUDE: 'QB4BAS.BI'
DECLARE FUNCTION QEXEC% (PgmStr AS STRING)
Tmp$ = "SDIR.COM"
Work$ = ENVIRON$("PATH")
QREPLACE Work$, ";", " "
FOR X = 1 TO QWORDS(Work$)
Work2$ = QWORD(Work$, X) + "\" + Tmp$
IF QEXIST(Work2$ + CHR$(0)) = 0 THEN
EXIT FOR
ELSE
Work2$ = ""
END IF
NEXT X
IF Work2$ <> "" THEN
PRINT QEXEC(Work2$)
END IF
END
This second example shows the necessary format to execute a .BAT
program. This requires that another copy of COMMAND.COM be first
loaded using the /C option and then the .BAT file name is passed in
the command tail.
DEFINT A-Z
DECLARE FUNCTION QEXEC% (PgmStr AS STRING)
Work1$ = ENVIRON$("COMSPEC")
Work2$ = " /C THISTEST.BAT"
Work$ = Work1$ + Work2$
RC = QEXEC(Work$)
END
Miscellaneous 65
QINPORT -- FUNCTION
This function works just like the BASIC INP function except it is
slightly faster. The port must be a number between 0 and 65,535 and
can be either and integer or in BASIC HEX notation. The function
will return the value that was read from the port requested.
The format of the call is as follows:
PortVal = QINPORT(&H6A)
Example:
DEFINT A-Z
DECLARE FUNCTION QINPORT% (BYVAL Port AS INTEGER)
.
.
PortVal = QINPORT(&H6A)
PRINT PortVal
QMININT QMAXINT -- FUNCTION
These functions will return either the smaller of two integers for
QMININT or the larger of two integers for QMAXINT. This will allow
numbers to be selected with a minimum of code.
The format of the call is as follows:
NewMin = QMININT(Number1, Number2)
NewMax = QMAXINT(Number1, Number2)
Example:
DEFINT A-Z
DECLARE FUNCTION QMININT% (BYVAL NUM1 AS INTEGER, BYVAL NUM1 AS INTEGER)
DECLARE FUNCTION QMAXINT% (BYVAL NUM1 AS INTEGER, BYVAL NUM1 AS INTEGER)
.
NewMin = QMININT(600, 682)
NewMax = QMAXINT(600, 682)
PRINT "The smaller number is " NewMin
PRINT "The larger number is " NewMax
END
Miscellaneous 66
QMINLONG QMAXLONG -- FUNCTION
These functions will return either the smaller of two long integers
for QMININT or the larger of two long integers for QMAXINT. This
will allow numbers to be selected with a minimum of code.
The format of the call is as follows:
NewMin = QMINLONG(Number1, Number2)
NewMax = QMAXLONG(Number1, Number2)
Example:
DEFLONG A-Z
DECLARE FUNCTION QMINLONG& (BYVAL NUM1 AS LONG, BYVAL NUM1 AS LONG)
DECLARE FUNCTION QMAXLONG& (BYVAL NUM1 AS LONG, BYVAL NUM1 AS LONG)
.
NewMin = QMININT(600000, 682000)
NewMax = QMAXINT(600000, 682000)
PRINT "The smaller number is " NewMin
PRINT "The larger number is " NewMax
END
QNUMLOCKOFF QNUMLOCKON -- SUB
This routine will enable or disable the NUMLOCK key on the keyboard.
This will allow the numeric keypad to be used without having to
press the shift key. The normal functions can still be used by
pressing the shift key and then the appropriate key.
The format of the call is as follows:
QNUMLOCKOFF
QNUMLOCKON
Example:
DEFINT A-Z
DECLARE SUB QNUMLOCKOFF ()
DECLARE SUB QNUMLOCKON ()
QNUMLOCKON
.
QNUMLOCKOFF
Miscellaneous 67
QPRINTER -- FUNCTION
Check to see if the first printer device is active or on. The RC
will be 0 if it is online or -1 if it is not. Care must be taken
when using this function because some print spoolers may return 0
when the printer is actually offline.
The format of the call is as follows:
RC = QPRINTER
Example:
DEFINT A-Z
DECLARE FUNCTION QPRINTER% ()
.
IF QPRINTER = 0 THEN
PRINT "Printer is online"
ELSE
PRINT "Printer is offline"
END IF
QPRTSCRN -- SUB
Prints the current screen display to the current printer device.
This routine functions exactly the same as pressing the Shift-PrtSc
keys from the keyboard.
The format of the call is as follows:
QPRTSCRN
Example:
DEFINT A-Z
DECLARE SUB QPRTSCRN ()
QPRTSCRN
Miscellaneous 68
QPRTSCRNOFF QPRTSCRNON -- SUB
These routines will enable or disable the PRTSCRN key on the
keyboard. This will prevent anyone from accidently pressing the
wrong key while the program is executing.
The format of the call is as follows:
QPRTSCRNOFF
QPRTSCRNON
Example:
DECLARE SUB QPRTSCRNOFF ()
DECLARE SUB QPRTSCRNON ()
QPRTSCRNOFF
.
QPRTSCRNON
QPAUSE -- SUB
Pause for a given number of seconds. It uses the system clock and
will pause for the same amount of time regardless of the CPU used.
The format of the call is as follows:
QPAUSE Seconds
Example:
DEFINT A-Z
DECLARE SUB QPAUSE (BYVAL Seconds AS INTEGER)
Seconds = 15
QPAUSE Seconds
Miscellaneous 69
QPAUSE18 -- SUB
Pause for a given number of eighteenths of a second. The actual
amount may vary depending on the PC that you are using.
The format of the call is as follows:
QPAUSE18 Count
Example:
DEFINT A-Z
DECLARE SUB QPAUSE18 (BYVAL Count AS INTEGER)
REM Pause for 1/2 second.
Count = 9
QPAUSE18 Count
QREBOOT -- SUB
Forces the system to do an immediate reboot. This program can be
useful in programs that change the CONFIG.SYS file which requires
that the system be rebooted to take effect.
The format of the call is as follows:
QREBOOT
Example:
DEFINT A-Z
DECLARE SUB QREBOOT ()
REM Replace the config.sys file
RC = QCOPYFIL("CONFIG.NEW" + CHR$(0), "CONFIG.SYS + CHR$(0))
QREBOOT
Miscellaneous 70
QSHIFTIL QSHIFTIR -- FUNCTION
These functions will take an integer and shift the bits the
requested number of bits either left or right and return the new
number. This will increase or decrease the number by the power of
two.
The format of the call is as follows:
Num1 = QSHIFTIL(Number, 1)
Num2 = QSHIFTIR(Number, 1)
Example:
DEFINT A-Z
DECLARE FUNCTION QSHIFTIL% (BYVAL Number AS INTEGER, _
BYVAL Shift AS INTEGER)
DECLARE FUNCTION QSHIFTIR% (BYVAL Number AS INTEGER, _
BYVAL Shift AS INTEGER)
.
Num1 = QSHIFTIL(5,1)
Num2 = QSHIFTIL(10,1)
PRINT Num1, Num2
QSHIFTLL QSHIFTLR -- FUNCTION
These functions will take a long integer and shift the bits the
requested number of bits either left or right and return the new
number. This will increase or decrease the number by the power of
two.
The format of the call is as follows:
Num1 = QSHIFTLL(Number, 1)
Num2 = QSHIFTLR(Number, 1)
Example:
DEFLONG A-Z
DECLARE FUNCTION QSHIFTIL& (BYVAL Number AS LONG, _
BYVAL Shift AS INTEGER)
DECLARE FUNCTION QSHIFTIR& (BYVAL Number AS LONG, _
BYVAL Shift AS INTEGER)
.
Num1 = QSHIFTLL(65536,1)
Num2 = QSHIFTLL(262144,1)
PRINT Num1, Num2
Miscellaneous 71
QSCROLLOFF QSCROLLON -- SUB
This routine will enable or disable the SCROLL LOCK key on the
keyboard.
The format of the call is as follows:
QSCROLLOFF
QSCROLLON
Example:
DEFINT A-Z
DECLARE SUB QSCROLLOFF ()
DECLARE SUB QSCROLLON ()
QSCROLLON
.
QSCROLLOFF
QSHARE -- FUNCTION
This function returns a return code which indicates if the program
SHARE has been loaded or not. The following are the return codes
that will be returned, -1 indicates a version of DOS less than
3.10. If a zero is returned, then SHARE has been loaded, otherwise
a one is returned to indicate that SHARE is not present.
The format of the call is as follows:
RC = QSHARE
Example:
DEFINT A-Z
DECLARE FUNCTION QSHARE ()
.
PRINT QSHARE
Miscellaneous 72
QTIME -- SUB
Returns 4 integers which contain the current hours, minutes and
seconds of the day as well as the total number of seconds since
midnight.
The format of the call is as follows:
QTIME Hours, Minutes, Seconds, TotSeconds
Example:
DEFINT A-Z
DECLARE SUB QTIME (Hours AS INTEGER, _
Minutes AS INTEGER, _
Seconds AS INTEGER, _
TotSeconds AS LONG)
.
QTIME Hours, Minutes, Seconds, TotSeconds
QTEMPC -- FUNCTION
This function will convert the inputed fahrenheit temperature and
convert it into centigrade.
The format of the call is as follows:
TempC = QTEMPC(TempF);
Example:
DEFINT A-Z
DECLARE FUNCTION QTEMPC% (BYVAL Fahrenheit AS INTEGER)
FOR N1 = 32 TO 212
PRINT QTEMPC(N1);
NEXT N1
END
Miscellaneous 73
QTEMPF -- FUNCTION
This function will convert the inputed centigrade temperature and
convert it into fahrenheit.
The format of the call is as follows:
TempF = QTEMPF(TempC);
Example:
DEFINT A-Z
DECLARE FUNCTION QTEMPF% (BYVAL Fahrenheit AS INTEGER)
FOR N1 = 0 TO 100
PRINT QTEMPF(N1);
NEXT N1
END
QVERIFY -- FUNCTION
Returns an integer which indicates if the DOS write verify flag is
on or off. If the value is zero then the verify flag is turned off.
If the value is one then the flag is turned on.
The format of the call is as follows:
Flag = QVERIFY
Example:
DEFINT A-Z
DECLARE FUNCTION QVERIFY% ()
.
PRINT "The write verify flag is ";
IF QVERIFY = 0 THEN
PRINT "OFF"
ELSE
PRINT "ON"
END IF
Miscellaneous 74
QVERIFYOFF QVERIFYON -- SUB
These subroutines will either turn the verify flag on or off. If the
verify flag is turned on, writing to files will take longer.
The format of the call is as follows:
QVERIFYOFF
QVERIFYON
Example:
DEFINT A-Z
DECLARE SUB QVERIFYOFF()
DECLARE SUB QVERIFYON()
DECLARE FUNCTION QVERIFY% ()
.
CLS
PRINT QVERIFY
QVERIFYON
PRINT QVERIFY
QVERIFYOFF
PRINT QVERIFY
END
Q8087 -- FUNCTION
Returns an integer which indicates if an 80x87 math coprocessor is
present. If the value is zero then a coprocessor is present. A
value of -1 is returned if a coprocessor is not present.
The format of the call is as follows:
Flag = Q8087
Example:
DEFINT A-Z
DECLARE FUNCTION Q8087% ()
IF Q8087 = 0 THEN
PRINT "Co-processor is present"
ELSE
PRINT "Co-processor is not present"
END IF
END
Miscellaneous 75
MOUSE
QMHIDE -- SUB
Removes the mouse pointer from the screen. The mouse driver continues
to track the mouse position.
The format of the call is as follows:
QMHIDE
Example:
DEFINT A-Z
DECLARE SUB QMHIDE ()
Buttons = QMSTATUS
QMSHOW
..
REM Do what you want with the MOUSE
..
..
QMHIDE
END
QMLOC -- FUNCTION
Returns the current mouse button status and the X/Y pointer
positon. This function will always return the current location,
If you need to know what the location was when a key was pressed,
use QMPRESS.
The format of the call is as follows:
Buttons = QMLOC(Xloc, Yloc)
Example:
DEFINT A-Z
DECLARE FUNCTION QMLOC% (Xloc AS INTEGER, Yloc AS INTEGER)
Buttons = QMSTATUS
QMSHOW
..
Buttons = QMLOC(Xloc, Yloc)
PRINT Buttons, Xloc, Yloc
..
QMHIDE
Mouse 76
QMPRESS -- FUNCTION
Returns the current status of all mouse buttons, and the number of
presses and position of the last press for a specified mouse
button. The press counter for the button is reset to zero.
The format of the call is as follows:
Button = QMPRESS(MouseKey, PushCounter, Xloc, Yloc)
Example:
DEFINT A-Z
DECLARE FUNCTION QMPRESS% (BYVAL Mkey AS INTEGER, Ctr AS INTEGER,
Xloc AS INTEGER, Yloc AS INTEGER)
Buttons = QMSTATUS
QMSHOW
..
MouseKey = 1
Button1 = QMPRESS(MouseKey, PushCounter1, Xloc1, Yloc1)
MouseKey = 2
Button2 = QMPRESS(MouseKey, PushCounter2, Xloc2, Yloc2)
PRINT Button1, PushCounter1, Xloc1, Yloc1
PRINT Button2, PushCounter2, Xloc2, Yloc2
..
QMHIDE
QMSET -- SUB
Sets the position of the mouse pointer. The pointer is displayed
at the new position unless it has been hidden with QMHIDE.
The format of the call is as follows:
QMSET Xloc, Yloc
Example:
DEFINT A-Z
DECLARE SUB QMSET (Xloc, Yloc)
Buttons = QMSTATUS
QMSHOW
..
Xloc = 50
Yloc = 70
QMSET Xloc, Yloc
..
QMHIDE
Mouse 77
QMSHOW -- SUB
Displays the mouse pointer on the screen provided the mouse driver
is running.
The format of the call is as follows:
QMSHOW
Example:
DEFINT A-Z
DECLARE SUB QMSHOW ()
Buttons = QMSTATUS
QMSHOW
..
REM Do what you want with the MOUSE
..
..
QMHIDE
END
QMSTATUS -- FUNCTION
Initializes the mouse driver and returns the driver status. If
the status code returned is -1 then the mouse driver is not
available, otherwise the number of mouse buttons are returned.
The format of the call is as follows:
Buttons = QMSTATUS
Example:
DEFINT A-Z
DECLARE FUNCTION QMSTATUS% ()
Buttons = QMSTATUS
QMSHOW
..
REM Do what you want with the MOUSE
..
..
QMHIDE
END
Mouse 78
STRING
QCAPIT -- SUB
This routine will take an input string and change the first
character to upper case and the remainder of the string will be
changed to lower case. If the second character of the string is
an apostrophe ('), then the third character will also be converted
to an upper case character.
The format of the call is as follows:
QCAPIT TstStr$
Example:
DEFINT A-Z
DECLARE SUB QCAPIT (StringName AS STRING)
TstStr$="harold"
QCAPIT TstStr$
PRINT TstStr$
.
TstStr$="o'brian"
QCAPIT TstStr$
PRINT TstStr$
END
QCENTER -- SUB
This routine will take an input string that has been padded with
spaces and center the test. It does not matter if the padding is
on the left or the right of the text and the text can have
multiple words. The way that this routine works is to first left
justify all text and then to center the text.
The format of the call is as follows:
QCENTER TstStr$
Example:
DEFINT A-Z
DECLARE SUB QCENTER (StringName AS STRING)
TstStr$ = "Harold Thomson" + SPACE$(30)
QCENTER TstStr$
PRINT TstStr$
END
String 79
QCHARTYP -- FUNCTION
This function is used to determine if an input string contains
valid characters which are inputed to the function via a string of
valid characters. If the inputed characters are valid, a zero (0)
is returned otherwise the position of the first invalid characters
is returned. If either string is null ("") then a -1 is returned.
The format of the call is as follows:
RC = QCHARTYP(TstStr$, ValStr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QCHARTYP% (TstStr AS STRING, ValStr AS STRING)
TstStr$="abbc2254621"
ValStr$="abcdefgABCDEFG12345"
IF QCHARTYP(TstStr$, ValStr$) = 0 THEN
PRINT "The string is valid"
ELSE
PRINT "The string is invalid"
END
QDELIM -- FUNCTION
Returns the n'th word in a comma delimited string. If the
requested word is null (,,) then a null string is returned.
The format of the call is as follows:
NewStr$ = QDELIM(TstStr$, Index)
Example:
DEFINT A-Z
DECLARE FUNCTION QDELIM$ (StringName AS STRING,
BYVAL Indx AS INTEGER)
TstStr$="This,,string,contains,five,words"
Index = 5
NewStr$ = QDELIM(TstStr$, Indx)
IF NewStr$ <> "" THEN
PRINT "The fifth word of the string is " NewStr$
ELSE
PRINT "Error in QDELIM"
END
String 80
QEXTRACT -- FUNCTION
Returns the n'th word from a string based upon a delimiter which
is passed in the call. A null string is returned if an error is
encountered.
The format of the call is as follows:
NewString$ = QEXTRACT(TstStr$, Delim$, Index)
Example:
DEFINT A-Z
DECLARE FUNCTION QEXTRACT$ (StringName AS STRING, Delim AS STRING, _
BYVAL Index AS INTEGER)
TstStr$="This@string@contains@five@words"
Index = 4: Delim$ = "@"
NewStr$ = QEXTRACT(TstStr$, Delim$, Index)
IF NewStr$ <> "" THEN
PRINT "The fourth word of the string is " NewStr$
ELSE
PRINT "Error in QEXTRACT"
END
QFORMAT -- FUNCTION
This function will return a formatted string using two input
strings. The first string is the unformatted input string and the
second string is the format mask string. This routine can be used
to print such things as a SSN (social security number), telephone
numbers and money amounts that are in a string format. The
important thing to remember is that the spaces in the mask string
are where the data from the input string will be printed. If you
want a space in the formatted string, what I have done is include
an ASCII 255 in the mask string, QFORMAT will not print in this
location.
The format of the call is as follows:
NewString$ = QFORMAT(TstStr$, Mask$)
Example:
DEFINT A-Z
DECLARE FUNCTION QFORMAT$ (StringName AS STRING, Mask AS STRING)
TstStr$="4073513737"
Mask$ = "( ) - "
NewStr$ = QFORMAT(TstStr$, Mask$)
PRINT NewStr$ ' Should print (407)351-3737
END
String 81
QHIGHBIT -- SUB
This subroutine will turn off the high order or leftmost bit of
every character in a string. This may be useful when reading some
files which have been created by some word processing programs
such as Wordstar.
The format of the call is as follows:
QHIGHBIT TstStr$
Example:
DEFINT A-Z
DECLARE SUB QHIGHBIT (TstStr AS STRING)
TstStr$="ÇàÄÜ"
QHIGHBIT TstStr$
PRINT "This string now reads " TstStr$
END
QINSTR -- FUNCTION
Returns the position of a character in a string based upon a
supplied character which is passed in the call. In addition, the
desired number of the character occurence is passed. Returns a -1
if an error is encountered or the character is not found.
The format of the call is as follows:
RC = QINSTR(TstStr$, Delim$, Index)
Example:
DEFINT A-Z
DECLARE FUNCTION QINSTR% (TstStr AS STRING, _
Delim AS STRING, _
BYVAL Index AS INTEGER)
TstStr$="aaa( ( ( ) ) )aaa"
Index = 2
Delim$ = "("
IF QINSTR(TstStr$, Delim$, Index) > 0 THEN
PRINT "The character position is " Index
ELSE
PRINT "Error in QINSTR Call"
END IF
END
String 82
QLEN -- FUNCTION
Returns the length of a string. This routine works just like the
BASIC LEN() function but is somewhat faster. This functions works
with variable length strings as well as fixed length strings. It
also works with strings defined with the BASIC TYPE statement.
The format of the call is as follows:
StrLen = QLEN(TstStr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QLEN% (TstStr AS STRING)
TstStr$="1234567890"
PRINT "The length of the string is " QLEN(TstStr$)
QMID -- FUNCTION
Overlays the contents of string 2 with the contents of string 1
starting at the character pointed to by start. This function
returns a zero if it is successful, if start if beyond the string
2 length or the length of string 1 extends beyond string 2 a -1 is
returned.
The format of the call is as follows:
RC = QMID(Str1$, Str2$, Start)
Example:
DEFINT A-Z
DECLARE FUNCTION QMID% (Str1 AS STRING, _
Str2 AS STRING, _
BYVAL Start AS INTEGER)
Str1$ = "zzzzzzzzzz": Str2$ = "aaaXxxxxxxxxxxXaaa"
Start = 5
XX = QMID(Str1$, Str2$, Start)
PRINT Str2$
END
String 83
QMOVREC -- FUNCTION
Move a record defined with the TYPE function to a BASIC string
variable. Currently, only individule fields can be moved to a
string.
The format of the call is as follows:
OutString$ = QMOVREC(PtrR, LenR)
Example:
DEFINT A-Z
DECLARE FUNCTION QMOVREC$ (BYVAL PtrR AS INTEGER, _
BYVAL LenR AS INTEGER)
TYPE TestType
Fld1 AS STRING * 5
Fld2 AS STRING * 10
END TYPE
DIM TestRec AS TestType
TestRec.Fld1 = "AAAAA": TestRec.Fld2 = "0123456789"
PtrR = VARPTR(TestRec): LenR = LEN(TestRec)
Buffer$ = QMOVREC(PrtR, LenR)
PRINT Buffer$
QMOVSTR -- SUB
Moves a BASIC string variable to a record defined with the TYPE
function. Currently, strings can only be moved to individule
fields.
The format of the call is as follows:
QMOVSTR PtrR, LenR, OutString$
Example:
DEFINT A-Z
DECLARE SUB QMOVSTR (BYVAL PtrR AS INTEGER, BYVAL LenR AS INTEGER, _
Buffer AS STRING)
TYPE TestType
Fld1 AS STRING * 5
Fld2 AS STRING * 10
END TYPE
DIM TestRec AS TestType
PtrR = VARPTR(TestRec): LenR = LEN(TestRec)
Buffer$ = "AAAAA0123456789"
QMOVSTR PrtR, LenR, Buffer$
PRINT TestRec.Fld1, TestRec.Fld2
String 84
QREPLACE -- SUB
Replace the character specified by OLD$ with the character
specified by NEW$. These two characters must be only one
character long or the routine returns without changing the string.
The format of the call is as follows:
QREPLACE TstStr$, Old$, New$
Example:
DEFINT A-Z
DECLARE SUB QREPLACE (StringName AS STRING, _
OldStr AS STRING, _
NewStr AS STRING)
TstStr$="05-29-87"
Old$ = "-"
New$ = "/"
QREPLACE TstStr$, Old$, New$
PRINT TstStr$
QREVERSE -- FUNCTION
This function returns a new string with all characters of the
input string reversed. In other words, "ABCD" becomes "DCBA". It
is not necessary to supply an output string.
The format of the call is as follows:
NewStr$ = QREVERSE(OldStr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QREVERSE$ (StringName AS STRING)
TstStr$ = "This is a test string"
NewStr$ = QREVERSE(TstStr$)
PRINT NewStr$
REM The results are ==> "gnirts tset a si sihT"
String 85
QRINSTR -- FUNCTION
This routine is simular to QINSTR except it starts the search from
the end of the string and searches towards the beginning. It will
return the position of a character in a string based upon a
supplied character which is passed in the call. In addition, the
desired number of the character occurence is passed. Returns a -1
if an error is encountered or the character is not found.
The format of the call is as follows:
RC = QRINSTR(TstStr$, Delim$, Index)
Example:
DEFINT A-Z
DECLARE FUNCTION QRINSTR% (TstStr AS STRING, _
Delim AS STRING, _
BYVAL Index AS INTEGER)
TstStr$="aaa( ( ( ) ) )aaa"
Index = 2
Delim$ = ")"
IF QRINSTR(TstStr$, Delim$, Index) > 0 THEN
PRINT "The character position is " Index
ELSE
PRINT "Error in QRINSTR Call"
END
QSTRIP -- FUNCTION
This routine removes all occurances of blanks or spaces from a
string and returns a new string.
The format of the call is as follows:
NewString$ = QSTRIP(StringName$)
Example:
DEFINT A-Z
DECLARE FUNCTION QSTRIP$ (StringName AS STRING)
StringName$ = "This is a test string for QSTRIP"
NewString$ = QSTRIP(StringName$)
PRINT NewString$
String 86
QSTRPCHR -- FUNCTION
This routine removes all of the occurances of the requested
character from a string and return it in a new string.
The format of the call is as follows:
NewString$ = QSTRPCHR(StringName$, StripChr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QSTRPCHR$ (StringName AS STRING, _
StripChr AS STRING)
StringName$ = "This#is#a#test#string#for#QSTRPCHR"
StripChr$ = "#"
NewString$ = QSTRPCHR(StringName$, StripChr$)
PRINT NewString$
QSUBSTR -- FUNCTION
This function copies a portion of FromStr starting at the Start
position for Length number of characters and places it in ToStr$.
A null string is returned if it was unsuccessful.
The format of the call is as follows:
ToStr$ = QSUBSTR(FromStr$, Start, Length)
Example:
DEFINT A-Z
DECLARE FUNCTION QSUBSTR$ (FromStr AS STRING, _
BYVAL Start AS INTEGER, _
BYVAL Length AS INTEGER)
.
FromStr$ = "aaaXxxxxxxxxxxXaaa"
Start = 4
Length = 10
ToStr$ = QSUBSTR(FromStr$, Start, Length)
PRINT ToStr$
END
String 87
QWORD -- FUNCTION
Returns a string which contains the n'th space delimited word from
a string. Returns a null string if an error is encountered.
The format of the call is as follows:
Found$ = QWORD(TstStr$, Index)
Example:
DEFINT A-Z
DECLARE FUNCTION QWORD$ (StringName AS STRING, _
BYVAL Index AS INTEGER)
TstStr$="This string contains five words"
Index = 4
Found$ = QWORD(TstStr$, Index)
IF Found$ <> "" THEN
PRINT "The fourth word of the string is " Found$
ELSE
PRINT "Error in QWORD"
END
QWORDS -- FUNCTION
Returns the number of space delimited words in a string. If the
string is null or all spaces, it will return zero.
The format of the call is as follows:
Number.Of.Words = QWORDS(TstStr$)
Example:
DEFINT A-Z
DECLARE FUNCTION QWORDS% (StringName AS STRING)
TstStr$="This string contains five words"
IF QWORDS(TstStr$) > 0 THEN
PRINT "The number of words in this string is " QWORDS(TstStr$)
ELSE
PRINT "Error in QWORDS"
END
String 88
SUB-DIRECTORY
QCHDIR -- FUNCTION
Change the current sub-directory. Works the same as the DOS CHDIR
command except a return code is set to zero (0) if successful.
The format of the call is as follows:
RC = QCHDIR(ChFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QCHDIR% (DirName AS STRING)
ChFile$="C:\NEWSUB\DIR"+CHR$(0)
IF QCHDIR(ChFile$) = 0 THEN
PRINT "New directory set"
ELSE
PRINT "New directory not selected"
END IF
QCHKDIR -- FUNCTION
Checks to see if the requested sub-directory exists. The return
code is set to -1 if the directory doesn't exist.
The format of the call is as follows:
RC = QCHKDIR(ChkFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QCHKDIR% (DirName AS STRING)
ChkFile$="C:\CHKSUB\DIR"+CHR$(0)
IF QCHKDIR(ChkFile$) = 0 THEN
PRINT "Sub-directory exists"
ELSE
PRINT "The requested sub-directory doesn't exist"
END IF
Sub-Directory 89
QGETDIR -- FUNCTION
Returns the current sub-directory. It is no longer necessary to
pre-allocate the return string.
The format of the call is as follows:
DirStr$ = QGETDIR
Example:
DEFINT A-Z
DECLARE FUNCTION QGETDIR$ ()
DirStr$ = QGETDIR
PRINT "The current directory is " DirStr$
QMKDIR -- FUNCTION
Create a new sub-directory. Works the same as the DOS MKDIR
command except a return code is set to -1 if the directory wasn't
created.
The format of the call is as follows:
RC = QMKDIR(MkFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QMKDIR% (DirName AS STRING)
MkFile$ = "NEWSUBDIR"+CHR$(0)
IF QMKDIR(MkFile$) = 0 THEN PRINT "Sub-directory created."
QRMDIR -- FUNCTION
Deletes an existing sub-directory. Same as the DOS RMDIR command
except the RC will be set to -1 if the directory not found.
The format of the call is as follows:
RC = QRMDIR(RmFile$)
Example:
DEFINT A-Z
DECLARE FUNCTION QRMDIR% (DirName AS STRING)
RmFile$ = "OLDSUBDIR"+CHR$(0)
IF QRMDIR(RmFile$) = 0 THEN PRINT "Sub-directory deleted."
Sub-Directory 90
VIDEO
QANSIPRT -- SUB
Print a string to the screen including any ANSI escape characters
sequences. The BASIC LOCATE command must be used before the call
to set the line and column before printing. This routine uses DOS
calls so it will print slower than QPRT or QBPRT.
The format of the call is as follows:
QANSIPRT CharString$
Example:
DEFINT A-Z
DECLARE SUB QANSIPRT (PrtString AS STRING)
LOCATE 3,2
QANSIPRT CharString$
QATTR -- FUNCTION
Calculates the color attribute for routines such as QPRT, QWINDOW,
etc. It also allows use of the "blink" attribute.
The format of the call is as follows:
NAttr = QATTR(Fgrd, Bkgrd)
Example:
DEFINT A-Z
DECLARE FUNCTION QATTR% (BYVAL Fore AS INTEGER, _
BYVAL Back AS INTEGER)
Fgrd = 7 : Bkgrd = 0
NAttr = QATTR(Fgrd, Bkgrd)
Video 91
QBPRT -- SUB
Print a string at the specified location on the screen. The Color
attribute must be computed prior to the call and included with the
call. It also allows the string to be printed on any of the 4
video pages. This routine uses BIOS calls to print the string so
it will be compatible with most versions of DOS.
The format of the call is as follows:
QBPRT Prt$, Row, Col, NAttr, Page
The parameters that are used by QBPRT are as follow:
Prt$ The string to be printed.
Row The row to print.
Col The column to print.
Attr The video color attribute to use.
Page The video page to print on.
Example:
DEFINT A-Z
DECLARE SUB QBPRT (PrtLine AS STRING, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER)
.
.
Prt$="This is the string to be printed."
Fgrd = 7 : Bkgrd = 0
NAttr = QATTR(Fgrd, Bkgrd)
Row=5 : Col=10 : Page=0
QBPRT Prt$, Row, Col, NAttr, Page
Video 92
QBMPRT -- SUB
Print a string array at the specified location on the screen. The
color attribute must be calculated before the call and passed with
the call. It also allows the string to be printed on any of the 4
video pages. This routine uses BIOS calls to print the strings so
it will be compatible with most versions of DOS.
The format of the call is as follows:
QBMPRT Elements, VARSEG(Prt$(0)), VARPTR(Prt$(0)), Row, Col, AAttr, Page
The parameters that are used by QMPRT are as follows:
Elements The number of occurrences of the array.
VARSEG(Prt$(0)) The VARSEG segment address of the first array
element.
VARPTR(Prt$(0)) The VARPTR address of the first array element.
Row The row to start printing.
Col The column to start in.
Attr The video color attribute to use.
Page The video page to print on.
Example:
OPTION BASE 0
DEFINT A-Z
DECLARE SUB QBMPRT (BYVAL Elements AS INTEGER, _
BYVAL VSeg AS INTEGER, _
BYVAL VOff AS INTEGER, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER)
DIM Prt$(4)
.
Prt$(0)="This is the first string to be printed."
Prt$(1)="This is the second string to be printed."
Prt$(2)="This is the third string to be printed."
Prt$(3)="This is the fourth string to be printed."
Fgrd = 1 : Bkgrd = 7
AAttr = QATTR(Fgrd, Bkgrd)
Row=5 : Col=10 : Page=0
Elements=4
QBMPRT Elements, VARSEG(Prt$(0)), VARPTR(Prt$(0)), Row, Col, AAttr, Page
Video 93
QCRTMODE -- SUB
This routine will return a value between 0 and 3 to indicate the
type of monitor that is installed. In addition it will return the
current number of columns that the screen is set too. Care must
be taken on some systems such as the AT&T PC6300 because it will
return a 1 indicationg CGA even though a mono screen is being
used. This is due to the fact that a CGA video controller card is
being used.
The format of the call is as follows:
QCRTMODE CType, CCols
Example:
DEFINT A-Z
DECLARE SUB QCRTMODE (CrtType AS INTEGER, _
CrtCols AS INTEGER)
REM CrtType ==> 0 = MDA, 1 = CGA, 2 = EGA, 3 = VGA
QCRTMODE CType, CCols
SELECT CASE CType
CASE 0
PRINT "Monitor type is MDA with"+STR$(CCols)+" Columns."
CASE 1
PRINT "Monitor type is CGA with"+STR$(CCols)+" Columns."
CASE 2
PRINT "Monitor type is EGA with"+STR$(CCols)+" Columns."
CASE 3
PRINT "Monitor type is VGA with"+STR$(CCols)+" Columns."
CASE ELSE
PRINT "Unknown monitor type."
END SELECT
END
QCLREOL -- SUB
This routine will print spaces from the current cursor location to
the end of the line. The cursor can be places anywhere on the
screen using the LOCATE statement.
The format of the call is as follows:
QCLREOL
Example:
DEFINT A-Z
DECLARE SUB QCLREOL ()
.
LOCATE 5, 15
Video 94
QCLREOL
.
END
Video 95
QGETATTR -- FUNCTION
This function will return an integer containing the current video
attribute at the requested row and column. This can be useful in
determinine the color attribute being used before print with QPRT
or the other print routines in this library.
The format of the call is as follows:
Attr = QGETATTR (Row, Col)
Example:
DEFINT A-Z
DECLARE FUNCTION QGETATTR% (BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER)
PRINT "The color attribute at row 24, column 1 is "; QGETATTR(24,1)
END
QGETCURS -- SUB
This routine will return integer values containing the current
cursor row and column for the requested video page. This requires
only one call instead of 2 using the BASIC funtions CSRLIN and
POS(0).
The format of the call is as follows:
QGETCURS Row, Col, Page
Example:
DEFINT A-Z
DECLARE SUB QGETCURS (Row AS INTEGER, _
Col AS INTEGER, _
Page AS INTEGER)
QGETCURS Row, Col, Page
PRINT "The cursor is at Row/Column": Row, Col
END
Video 96
QGETMODE -- FUNCTION
This function will return an integer value which contains the
current video mode returned by the BIOS. This value can then be
used to reset the video mode after it has been changed with
QSETMODE.
The format of the call is as follows:
HoldMode = QGETMODE
Example:
DEFINT A-Z
DECLARE FUNCTION QGETMODE% ()
HoldMode = QGETMODE
QSETMODE HoldMode - 2
.
.
QSETMODE HoldMode
.
END
Video 97
QMPRT -- SUB
Print a string array at the specified location on the screen. The
color attribute must be calculated before the call and passed with
the call. It also allows the string to be printed on any of the 4
video pages. This routine writes to video ram directly and may
not be compatible with some versions of DOS.
The format of the call is as follows:
QMPRT Elements, VARSEG(Prt$(0)), VARPTR(Prt$(0)), Row, Col, AAttr, Page
The parameters that are used by QMPRT are as follows:
Elements The number of occurrences of the array.
VARSEG(Prt$(0)) The VARSEG segment address of the first array
element.
VARPTR(Prt$(0)) The VARPTR address of the first array element.
Row The row to start printing.
Col The column to start in.
Attr The video color attribute to use.
Page The video page to print on.
Example:
OPTION BASE 0
DEFINT A-Z
DECLARE SUB QMPRT (BYVAL Elements AS INTEGER, _
BYVAL VSeg AS INTEGER, _
BYVAL VOff AS INTEGER, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER)
DIM Prt$(4)
.
Prt$(0)="This is the first string to be printed."
Prt$(1)="This is the second string to be printed."
Prt$(2)="This is the third string to be printed."
Prt$(3)="This is the fourth string to be printed."
Fgrd = 1 : Bkgrd = 7
AAttr = QATTR(Fgrd, Bkgrd)
Row=5 : Col=10 : Page=0
Elements=4
QMPRT Elements, VARSEG(Prt$(0)), VARPTR(Prt$(0)), Row, Col, AAttr, Page
Video 98
QPAINT -- SUB
This subroutine will change the current foreground and background
colors of an area of the screen as defined by the supplied screen
locations. Any text that exists in this area will remain. Only
the colors will change.
The format of the call is as follows:
QPAINT TRow, LCol, BRow, RCol, Attr, Page
The parameters that are used by QPAINT are as follows:
TR The top row location.
LC The left column location.
BR The bottom row location.
RC The right column location.
Attr The video color attribute to use.
Page The video page to print on.
Example:
DEFINT A-Z
DECLARE SUB QPAINT (BYVAL TR AS INTEGER, _
BYVAL LC AS INTEGER, _
BYVAL BR AS INTEGER, _
BYVAL RC AS INTEGER, _
BYVAL ATTR AS INTEGER, _
BYVAL PAGE AS INTEGER)
.
.
TRow = 5: LCol = 10: BRow = 15: RCol = 70: Page = 0
Attr = QATTR(3, 0)
QPAINT TRow, LCol, BRow, RCol, Attr, Page
.
END
Video 99
QPRT -- SUB
Print a string at the specified location on the screen. The color
attribute must be calculated prior to the call and passed with the
call. It also allows the string to be printed on any of the 4
video pages. This routine writes to video ram directly and may
not be compatible with some versions of DOS.
The format of the call is as follows:
QPRT Prt$, Row, Col, NAttr, Page
The parameters that are used by QPRT are as follows:
Prt$ The string to be printed.
Row The row to print.
Col The column to print.
Attr The video color attribute to use.
Page The video page to print on.
Example:
DEFINT A-Z
DECLARE SUB QPRT (PrtLine AS STRING, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER)
.
.
Prt$="This is the string to be printed."
Fgrd = 7 : Bkgrd = 0
NAttr = QATTR(Fgrd, Bkgrd)
Row=5 : Col=10 : Page=0
QPRT Prt$, Row, Col, NAttr, Page
Video 100
QPRTANSI -- SUB
Print a string to the screen including any ANSI escape characters
sequences. The unlike the QANSIPRT sub, this routine has a built
in locate function. In addition, this subroutine can be passed a
number which is the last line of a window that the routine will
print to. If this number will be exceeded, the subroutine will
scroll the screen up one before printing the next line. In this
case, the row and column parameters will be ignored. If this
value is zero, then the window parameter is ignored and the row
and column specified will be used. This routine uses DOS calls so
it will print slower than QPRT or QBPRT.
The format of the call is as follows:
QPRTANSI CharString$, Row, Col, Awindow
Example:
DEFINT A-Z
DECLARE SUB QPRTANSI (PrtString AS STRING, _
BYVAL Row AS INTEGER, _
BYVAL Col AS INTEGER, _
BYVAL Awindow AS INTEGER)
.
REM Print string at row and column specified
CharString$ = "This is a string to be printed"
Row=5 : Col=10 : Awindow = 0
QPRTANSI CharString$, Row, Col, Awindow
.
.
REM Print string at next row if the row is less than the window
CharString$ = "This is a string to be printed" + CHR$(13) + CHR$(10)
Row=0 : Col=0 : Awindow = 22
QPRTANSI CharString$, Row, Col, Awindow
Video 101
QRESTSCR -- FUNCTION
Restore the portion of the screen from an array that had been
saved with QSAVESCR. It will restore the screen to any of the 4
video pages. The screen does not have to be restored to the same
location that it was saved from. The array that is used must be
large enough to hold the saved screen area. The way to calculate
the size array needed is with the following ((BottomRow - TopRow)
+ 1) * (RightCol - LeftCol) + 1).
The format of the call is as follows:
QRESTSCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
The parameters that are used by QRESTSCR are as follows:
TR The top row location.
LC The left column location.
BR The bottom row location.
RC The right column location.
Page The video page to save from.
VARSEG(A(0)) The array segment address.
VARPTR(A(0)) The array pointer address.
Example:
DEFINT A-Z
DECLARE SUB QRESTSCR (BYVAL TR AS INTEGER, _
BYVAL LC AS INTEGER, _
BYVAL BR AS INTEGER, _
BYVAL RC AS INTEGER, _
BYVAL PAGE AS INTEGER, _
BYVAL VSEG AS INTEGER, _
BYVAL VPTR AS INTEGER)
DIM Array(671)
.
SHELL "DIR"
TRow = 5: LCol = 10: BRow = 15: RCol = 70: Page = 0
QSAVESCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
CLS
WHILE INKEY$ = "": WEND
QRESTSCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
END
Video 102
QSAVESCR -- FUNCTION
Saves a portion of the screen to an array. You do not have to
save the whole screen, only the portions that is needed. The
screen can be restored at a later time using QRESTSCR. The array
that is used must be large enough to hold the saved screen area.
The way to calculate the size array needed is with the following
((BottomRow - TopRow) + 1) * (RightCol - LeftCol) + 1).
The format of the call is as follows:
QSAVESCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
The parameters that are used by QSAVESCR are as follows:
TR The top row location.
LC The left column location.
BR The bottom row location.
RC The right column location.
Page The video page to save from.
VARSEG(A(0)) The array segment address.
VARPTR(A(0)) The array pointer address.
Example:
DEFINT A-Z
DECLARE SUB QSAVESCR (BYVAL TR AS INTEGER, _
BYVAL LC AS INTEGER, _
BYVAL BR AS INTEGER, _
BYVAL RC AS INTEGER, _
BYVAL PAGE AS INTEGER, _
BYVAL VSEG AS INTEGER, _
BYVAL VPTR AS INTEGER)
DIM Array(671)
.
SHELL "DIR"
TRow = 5: LCol = 10: BRow = 15: RCol = 70: Page = 0
QSAVESCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
CLS
WHILE INKEY$ = "": WEND
QRESTSCR TRow, LCol, BRow, RCol, Page, VARSEG(Array(0)), VARPTR(Array(0))
END
Video 103
QSCROLL -- SUB
Scrolls the screen up using the locations that are passed in the
call. One or more lines can be scrolled and if the number is
zero, the whole area will be cleared. Be sure that the rows and
columns are within the screen.
The format of the call is as follows:
QSCROLL Trow, Lcol, Brow, Rcol, Lines
Example:
DEFINT A-Z
DECLARE SUB QSCROLL (BYVAL TRow AS INTEGER, _
BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, _
BYVAL RCol AS INTEGER, _
BYVAL Lines AS INTEGER)
Trow = 5 : Lcol = 15 : Brow = 15 : Rcol = 65 : Lines = 2
QSCROLL Trow, Lcol, Brow, Rcol, Lines
.
REM The following will clear an area of the screen
Trow = 5 : Lcol = 15 : Brow = 15 : Rcol = 65 : Lines = 0
QSCROLL Trow, Lcol, Brow, Rcol, Lines
QSCROLLB -- SUB
Scrolls the screen down using the locations that are passed in the
call. One or more lines can be scrolled and if the number is
zero, the whole area will be cleared. Be sure that the rows and
columns are within the screen.
The format of the call is as follows:
QSCROLLB Trow, Lcol, Brow, Rcol, Lines
Example:
DEFINT A-Z
DECLARE SUB QSCROLLB (BYVAL TRow AS INTEGER, _
BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, _
BYVAL RCol AS INTEGER, _
BYVAL Lines AS INTEGER)
Trow = 5 : Lcol = 15 : Brow = 15 : Rcol = 65 : Lines = 2
QSCROLLB Trow, Lcol, Brow, Rcol, Lines
Video 104
QSCRREST -- FUNCTION
Restore the screen from an array that had been saved with
QSCRSAVE. It will restore the screen to any of the 4 video pages.
If an error was encountered, the RC will be -1.
The format of the call is as follows:
RC = QSCRREST(VARSEG(ScrnHold(1)), VARPTR(ScrnHold(1)), Page)
The parameters that are used by QSCRREST are as follows:
VARSEG(Prt$(0)) The VARSEG segment address of the first array
element.
VARPTR(Prt$(0)) The VARPTR address of the first array element.
Page The video page to print on.
Example:
OPTION BASE 1
DEFINT A-Z
DECLARE FUNCTION QSCRREST% (BYVAL ASeg AS INTEGER, _
BYVAL AOffset AS INTEGER, _
BYVAL Page AS INTEGER)
DIM ScrnHold(2000)
Page = 0
IF QSCRREST(VARSEG(ScrnHold(1)), VARPTR(ScrnHold(1)), Page) = 0 THEN
LOCATE RowHold,ColHold
ELSE
PRINT "Error on screen restore"
END IF
Video 105
QSCRSAVE -- FUNCTION
Save the requested video page (0 - 3) into array. Use this in
text mode only. The array must be an integer array dimensioned to
at least 2000 occurrences. The starting address of the array must
be passed, use the VARPTR function to get this address. The
cursor location is not saved so, if it is needed, save the
location. More than one screen can be saved into the array as
long as 2000 occurrences are dimensioned for each screen and the
appropriate VARPTR address is passed the the routine. If an error
is encountered, the RC will be -1.
The format of the call is as follows:
RC = QSCRSAVE(VARSEG(ScrnHold(1)), VARPTR(ScrnHold(1)), Page)
The parameters that are used by QSCRSAVE are as follows:
VARSEG(Prt$(0)) The VARSEG segment address of the first array
element.
VARPTR(Prt$(0)) The VARPTR address of the first array element.
Page The video page to print on.
Example:
OPTION BASE 1
DEFINT A-Z
DECLARE FUNCTION QSCRSAVE% (BYVAL ASeg AS INTEGER, _
BYVAL AOffset AS INTEGER, _
BYVAL Page AS INTEGER)
DIM ScrnHold(2000)
Page = 0
IF QSCRSAVE(VARSEG(ScrnHold(1)), VARPTR(ScrnHold(1)), Page) = 0 THEN
RowHold = CSRLIN
ColHold = POS(0)
ELSE
PRINT "Error on screen save"
END IF
Video 106
QSETMODE -- SUB
This subroutine will set the video mode to the value that is
supplied. This value can be any of the valid BIOS video modes.
The format of the call is as follows:
QSETMODE HoldMode
Example:
DEFINT A-Z
DECLARE SUB QSETMODE (BYVAL VMode AS INTEGER)
HoldMode = QGETMODE
QSETMODE HoldMode - 2
.
.
QSETMODE HoldMode
.
END
Video 107
QWINDOW -- SUB
Displays a pop-up window on the screen. It requires several
parameters which are used to determine where to print the window
as well as the type of frame to be used for the window. The rows
and columns that are used and the ones that will be used for the
frame. The color attribute that must be computed prior to the call
and passed to QWINDOW. If the value passed for frame is not 1-4,
the screen will be cleared based upon the row and column values.
The format of the call is as follows:
QWINDOW TRow, LCol, BRow, RCol, Frame, NAttr, Page
The parameters that are used by QWINDOW are as follows:
TRow The top row of the window.
LCol The left column of the window.
BRow The bottom row of the window.
RCol The right column of the window.
Frame The type of frame to be used for the window.
Attr The video color attribute to use.
Page The video page to print the window on.
The types of frames available with QWINDOW are as follow:
1 Single line frame.
2 Double line frame.
3 Double vertical and single horizontal frame.
4 Single vertical and double horizontal frame.
Example:
DEFINT A-Z
DECLARE SUB QWINDOW (BYVAL TRow AS INTEGER, _
BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, _
BYVAL RCol AS INTEGER, _
BYVAL Frame AS INTEGER, _
BYVAL Attr AS INTEGER, _
BYVAL Page AS INTEGER)
.
Fgrd=7 : Bkgrd=0
NAttr = QATTR(Fgrd, Bkgrd)
TRow=1 : LCol=1 : BRow=25 : RCol=80 : Frame=2 : Page=0
QWINDOW TRow, LCol, BRow, RCol, Frame, NAttr, Page
Video 108
QWINDOWH -- SUB
Works just like QWINDOW, but in addition, it will draw horizontal
lines across the window based upon the values passed in NLines and
RNum. This routine can be very useful in menu windows. If the
value passed in NLines is zero, it will function the same as
QWINDOW. The VARPTR function must be used to get the address of
the first array element.
To use this routine, you must define a numeric array. Each element
of this array will contain the row in which you wish to have a
line drawn across the window. The address of the first occurrence
of the array is what is passed to the routine.
The format of the call is as follows:
QWINDOWH TRow, LCol, BRow, RCol, NLine, RSeg, RNum, Frame, NAttr, Page
The parameters that are used by QWINDOWH are as follows:
TRow The top row of the window.
LCol The left column of the window.
BRow The bottom row of the window.
RCol The right column of the window.
NLine The number of horizontal lines to draw.
RSeg The VARSEG segment address of the first array element.
RNum The VARPTR address of the first array element.
Frame The type of frame to be used for the window.
Attr The video color attribute to use.
Page The video page to print the window on.
The types of frames available with QWINDOWH are as follows:
1 Single line frame.
2 Double line frame.
3 Double vertical and single horizontal frame.
4 Single vertical and double horizontal frame.
Example:
OPTION BASE 0
DEFINT A-Z
DECLARE SUB QWINDOWH (BYVAL TRow AS INTEGER, BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, BYVAL RCol AS INTEGER, _
BYVAL NLine AS INTEGER, BYVAL ASeg AS INTEGER, _
BYVAL AOff AS INTEGER, BYVAL Frame AS INTEGER, _
BYVAL Attr AS INTEGER, BYVAL Page AS INTEGER)
DIM ARow(2)
.
Fgrd=7 : Bkgrd=0 : NAttr = QATTR(Fgrd, Bkgrd)
TRow=1 : LCol=1 : BRow=25 : RCol=80 : Frame=2 : Page=0
NLine=2 : ARow(0)=3 : ARow(1)=23
RSeg=VARSEG(ARow(0)) : RNum=VARPTR(ARow(0))
QWINDOWH TRow, LCol, BRow, RCol, NLine, RSeg, RNum, Frame, NAttr, Page
Video 109
QWINDOWV -- SUB
Works just like QWINDOW, but in addition, it will draw vertical
lines down the window based upon the values passed in NLines and
CNum. If the value passed in NLines is zero, it will function the
same as QWINDOW. The VARPTR function must be used to get the
address of the first array element.
To use this routine, you must define a numeric array. Each element
of this array will contain the row in which you wish to have a
line drawn down the window. The address of the first occurrence
of the array is what is passed to the routine.
The format of the call is as follows:
QWINDOWH TRow, LCol, BRow, RCol, NLine, CSeg, CNum, Frame, NAttr, Page
The parameters that are used by QWINDOWV are as follows:
TRow The top row of the window.
LCol The left column of the window.
BRow The bottom row of the window.
RCol The right column of the window.
NLine The number of vertical lines to draw.
CSeg The VARSEG segment address of the first array element.
CNum The VARPTR address of the first array element.
Frame The type of frame to be used for the window.
Attr The video color attribute to use.
Page The video page to print the window on.
The types of frames available with QWINDOWV are as follows:
1 Single line frame.
2 Double line frame.
3 Double vertical and single horizontal frame.
4 Single vertical and double horizontal frame.
Example:
OPTION BASE 0
DEFINT A-Z
DECLARE SUB QWINDOWV (BYVAL TRow AS INTEGER, BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, BYVAL RCol AS INTEGER, _
BYVAL NLine AS INTEGER, BYVAL ASeg AS INTEGER, _
BYVAL AOff AS INTEGER, BYVAL Frame AS INTEGER, _
BYVAL Attr AS INTEGER, BYVAL Page AS INTEGER)
DIM ACol(2)
.
Fgrd=7 : Bkgrd=0 : NAttr = QATTR(Fgrd, Bkgrd)
TRow=1 : LCol=1 : BRow=25 : RCol=80 : Frame=2 : Page=0
NLine=2 : ACol(0)=5 : ACol(1)=75
CSeg=VARSEG(ACol(0)) : CNum=VARPTR(ACol(0))
QWINDOWH TRow, LCol, BRow, RCol, NLine, CSeg, CNum, Frame, NAttr, Page
Video 110
QWINDOWX -- SUB
Displays a pop-up window on the screen with a user selectable
shadow either below left or below rightp window on the screen. It
requires several parameters which are used to determine where to
print the window as well as the type of frame to be used for the
window. The rows and columns that are used and the ones that will
be used for the frame. The color attribute that must be computed
prior to the call and passed to QWINDOWX. If the value passed for
frame is not 1-4, the screen will be cleared based upon the row
and column values.
The format of the call is as follows:
QWINDOWX TRow, LCol, BRow, RCol, Frame, NAttr, HAttr, Page
The parameters that are used by QWINDOWX are as follows:
TRow The top row of the window.
LCol The left column of the window.
BRow The bottom row of the window.
RCol The right column of the window.
Frame The type of frame to be used for the window.
Attr The video color attribute to use.
Page The video page to print the window on.
The types of frames available with QWINDOWX are as follow:
1 Single line frame, shadow bottom left.
2 Double line frame, shadow bottom left.
3 Double vertical and single horizontal frame, shadow bottom
left.
4 Single vertical and double horizontal frame, shadow bottom
left.
5 Single line frame, shadow bottom right.
6 Double line frame, shadow bottom right.
7 Double vertical and single horizontal frame, shadow bottom
right.
8 Single vertical and double horizontal frame, shadow bottom
right.
Example:
DEFINT A-Z
DECLARE SUB QWINDOWX (BYVAL TRow AS INTEGER, BYVAL LCol AS INTEGER, _
BYVAL BRow AS INTEGER, BYVAL RCol AS INTEGER, _
BYVAL Frame AS INTEGER, BYVAL Attr AS INTEGER, _
BYVAL Attrs AS INTEGER, BYVAL Page AS INTEGER)
.
REM Will print window with a shadow on bottom left.
Fgrd=7 : Bkgrd=0 : NAttr = QATTR(Fgrd, Bkgrd)
Fgrd=3 : Bkgrd=2 : HAttr = QATTR(Fgrd, Bkgrd)
TRow=5 : LCol=10 : BRow=15 : RCol=30 : Frame=2 : Page=0
QWINDOWX TRow, LCol, BRow, RCol, Frame, NAttr, HAttr, Page
Video 111
QVIDREST -- FUNCTION
Restore a screen that was saved with QVIDSAVE. Color and
monochrome screens have 4 pages of video memory and this routine
will move a screen from pages 1-3 to page 0. If an error is
encountered, the RC will be set to -1.
The format of the call is as follows:
RC = QVIDREST(Page)
Example:
DEFINT A-Z
DECLARE FUNCTION QVIDREST% (BYVAL Page AS INTEGER)
Page = 2
RC = QVIDREST(Page)
QVIDSAVE -- FUNCTION
Save a screen to video page 1, 2 or 3 from page 0. If an error is
encountered, the RC will be set to -1.
The format of the call is as follows:
RC = QVIDSAVE(Page)
Example:
DEFINT A-Z
DECLARE FUNCTION QVIDSAVE% (BYVAL Page AS INTEGER)
Page = 2
RC = QVIDSAVE(Page)
Video 112
