diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-12 16:07:36 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-12 16:07:36 -0400 |
| commit | 364966ec5d0b463c4786bbfc5119229b85aa4dc0 (patch) | |
| tree | ef81cf4dbc809e8c49e0cf3bef6114c047d0c208 /files.bas | |
| parent | 10de5bbde13317ef19255573722015a217812ad9 (diff) | |
| download | gwblog-364966ec5d0b463c4786bbfc5119229b85aa4dc0.tar.gz gwblog-364966ec5d0b463c4786bbfc5119229b85aa4dc0.zip | |
File listing now skips . and .. when appropriate.
Diffstat (limited to 'files.bas')
| -rw-r--r-- | files.bas | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |