9.0

233
Description
Position StreamNum for input Count.
Parameter Description
StreamNum Streams 1 through 255 are private to each macro. Streams 256 through 511 are
shared by all macros.
Count For Random mode files this is the record number. The first record is 1. Otherwise, it
is the byte position. The first byte is 1.
See Also: Seek( ).
Example
Sub Main
Open
"XXX" For Input As #1
Line
Input #1,L$
Seek #1,1 ' rewind to start of file
Input
#1,A
Close
#1
Debug
.Print A
End
Sub
Select Case Statement
Syntax
Select Case expr
[Case caseexpr[, ...]
statements]...
[Case Else
statement
s]
End
Select
Group
Flow Control
Description
Select the appropriate case by comparing the expr with each of the caseexprs. Select the Case Else part if no
caseexpr matches. (If the Case Else is omitted then skip the entire Select...End Select block.)
caseexpr Description
expr Execute if equal.
Is < expr Execute if less than.
Is <= expr Execute if less than or equal to.
Is > expr Execute if greater than.
Is >= expr Execute if greater than or equal to.
Is <> expr Execute if not equal to.
expr1 To expr2 Execute if greater than or equal to expr1 and less than or equal to expr2.
See Also: If, Choose( ), IIf( ).
Example
Sub Main
S = InputBox
("Enter hello, goodbye, dinner or sleep:")