Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
CLS
INPUT "enter the path & filename to count: ", FileIn$
OPEN FileIn$ FOR INPUT AS 11
PRINT
PRINT "Working";
DO WHILE NOT EOF(11)
LINE INPUT #11, FileLine$
MyCount = MyCount + 1
PRINT ".";
IF (MyCount MOD 1600) = 0 THEN PRINT : PRINT "Working";
IF EOF(11) = 1 THEN EXIT DO
LOOP
PRINT
PRINT "Total File Size : ";
PRINT LOF(11)
PRINT "Total Counted Lines: ";
PRINT MyCount
PRINT
CLOSE
INPUT "press ENTER to exit program...", Term$
END