![]() |
BCX Console Demonstration Program S146.bas |
(
COMMAND$
)
FUNCTION
CountLines(
F$)
IF
NOT
EXIST
(
F$)
THEN
EXIT
FUNCTION
DIM
RAW
RC=
0
AS
ULONGDIM
RAW
C=
0
DIM
RAW
NL=
10
OPEN
F$FOR
BINARY
AS
FP9WHILE
NOT
EOF
(
FP9)
C=
GETC
(
FP9)
IF
C=
NLTHEN
INCR
RCEND
IF
WEND
CLOSE
FP9FUNCTION
=
RCEND
FUNCTION