From 364966ec5d0b463c4786bbfc5119229b85aa4dc0 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Wed, 12 Oct 2016 16:07:36 -0400
Subject: File listing now skips . and .. when appropriate.

---
 files.bas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'files.bas')

diff --git a/files.bas b/files.bas
index 427b8ba..698a725 100644
--- a/files.bas
+++ b/files.bas
@@ -12,7 +12,7 @@
 15040 LC = 0
 15050 WHILE(1=1)
 15060   LINE INPUT#10, L$
-15070   IF MID$(L$,1,1) <> " " AND LEN(L$) > 0 THEN LC = LC + 1
+15070   IF MID$(L$,1,1) <> " " AND MID$(L$,1,1) <> "." AND LEN(L$) > 0 THEN LC = LC + 1
 15075   IF LC > 0 AND MID$(L$,1,1) = " " THEN GOTO 15090
 15080 WEND
 15090 CLOSE #10
@@ -21,7 +21,7 @@
 15120 IC = 1
 15130 WHILE(IC <= LC)
 15140   LINE INPUT#10, L$
-15150   IF MID$(L$,1,1) = " " OR LEN(L$) < 10 THEN GOTO 15210
+15150   IF MID$(L$,1,1) = " " OR MID$(L$,1,1) = "." OR LEN(L$) < 10 THEN GOTO 15210
 15160   JC = INSTR(L$, " "):FL$(IC) = MID$(L$,1,JC-1)
 15170   WHILE(MID$(L$,JC,1) = " "):JC = JC + 1:WEND
 15180   IF (MID$(L$,JC,1) < "9" AND MID$(L$,JC,1) > "0") OR MID$(L$,JC,1) = "<" THEN GOTO 15200
-- 
cgit v1.2.3