home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
fortran
/
library
/
comline
/
qb_cline.bas
< prev
next >
Wrap
BASIC Source File
|
1991-07-01
|
1KB
|
38 lines
'=======================================================================
'
' PROGRAM FILE: QB_CLINE.BAS
'
' DATE: June 27, 1991
'
' VERSION: 1.04 REVISION DATE: July 1, 1991
'
' AUTHOR: Scott D. Heavner
'
' LANGUAGE: MicroSoft QuickBasic 4.50
'
' COPYRIGHT: 1991, Scott D. Heavner
'
'=======================================================================
'
' DESCRIPTION: QBCLINE is an example of how to use the COMLINE.ASM
' subroutine. The user should determine what flags and
' such he wishes to check for, and incorporate his own
' code. This can be placed as part of a subroutine or
' in the main program.
'
'=======================================================================
DECLARE SUB cline (BYVAL segvar%, BYVAL valvar%) : ' Declare SUB for FAR call
DIM cin AS STRING * 128: ' Dimension Input Variable
CALL cline(VARSEG(cin), VARPTR(cin)): ' Call using FAR pointer
' The rest can be your program to test the input string
length% = ASC(LEFT$(cin, 1))
PRINT "Length = "; length%
PRINT MID$(cin, 2, length%): ' Prints only the character
' part of the string.
PRINT "Begin previous data . . . "
PRINT RIGHT$(cin, 128 - length%)