From 4e55c056b9ceb70d4f4fb5e81a47ba80c4669309 Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Tue, 26 Feb 2019 07:42:50 -0600
Subject: [PATCH] Cleanup

---
 dos33.pl | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/dos33.pl b/dos33.pl
index ab5db28..77e0342 100644
--- a/dos33.pl
+++ b/dos33.pl
@@ -2,8 +2,8 @@
 
 #
 # dos33 version 0.1
-# by Vince Weaver <vince\@deater.net>
-# Perl port 20190225 by Leeland Heins <softwarejanitor\@yahoo.com>\n
+# by Vince Weaver <vince@deater.net>
+# Perl port 20190225 by Leeland Heins <softwarejanitor@yahoo.com>
 #
 
 use strict;
@@ -65,7 +65,7 @@ my $SEEK_SET = 0;
 
 my $VERSION = "0.1";
 
-# Helper Macros
+# Helper Subs
 sub TS_TO_INT {
   my ($x, $y) = @_;
 
@@ -183,7 +183,7 @@ sub dos33_char_to_type {
   return $result;
 }
 
-# dos33 filenames have top bit set on ascii chars
+# dos33 filenames have high bit set on ascii chars
 # and are padded with spaces
 sub dos33_filename_to_ascii {
   my ($dest, $src, $len) = @_;
@@ -248,7 +248,6 @@ sub dos33_free_space {
   return $sectors_free * $BYTES_PER_SECTOR;
 }
 
-
 # Get a T/S value from a Catalog Sector
 sub dos33_get_catalog_ts {
   my ($fd) = @_;
@@ -345,7 +344,6 @@ sub dos33_print_file_info {
   return 0;
 }
 
-
 # Checks if "filename" exists
 # returns entry/track/sector
 sub dos33_check_file_exists {
@@ -435,7 +433,6 @@ sub find_first_one {
   return $i;
 }
 
-
 sub dos33_free_sector {
   my ($fd, $track, $sector) = @_;
 
@@ -622,7 +619,6 @@ sub dos33_force_allocate_sector {
   return (($found_track << 8) + $found_sector);
 }
 
-
 my $ERROR_INVALID_FILENAME = 1;
 my $ERROR_FILE_NOT_FOUND = 2;
 my $ERROR_NO_SPACE = 3;
@@ -1194,7 +1190,6 @@ got_a_dentry:
   return 0;
 }
 
-
 # load a file.  fts=entry/track/sector
 sub dos33_load_file {
   my ($fd, $fts, $filename) = @_;
@@ -1429,7 +1424,6 @@ sub dos33_undelete_file {
   return 0;
 }
 
-
 sub dos33_delete_file {
   my ($fd, $fsl) = @_;
 
@@ -1527,7 +1521,6 @@ sub dump_sector {
   return 0;
 }
 
-
 sub dos33_dump {
   my ($fd) = @_;