diff --git a/readme.md b/readme.md
index d6811bc..bab86aa 100644
--- a/readme.md
+++ b/readme.md
@@ -96,8 +96,8 @@ and an emulated punched tape reader and punch with the arguments
 -dprinter and -dtape respectively. The printer is mapped to address FFFE
 and the tape reader and punch to FFFD. The printer prints into
 /dev/usb/lp0 and the tape files read from and punched to are (re)set
-using the program tape. If you wish to use a different setup you have to
-modify the code yourself.
+using the program tapectl. If you wish to use a different setup you have
+to modify the code yourself.
 
 Initial Program Loader
 ----------------------
diff --git a/tape.pas b/tapectl.pas
similarity index 87%
rename from tape.pas
rename to tapectl.pas
index db9beca..643e8b3 100644
--- a/tape.pas
+++ b/tapectl.pas
@@ -1,4 +1,4 @@
-program Tape;
+program TapeCtl;
 
 {$MODE OBJFPC}
 
@@ -6,22 +6,22 @@ uses SysUtils;
 
 type
     //Tape file path and reset state
-    TapeState = record
+    Tape = record
         Path: shortstring;
         Reset: boolean;
         Pos: integer;
     end;
 
 var
-    Reader, Punch: TapeState; //States of the reader and punch
-    State: file of TapeState; //File storing the states of the reader and punch
+    Reader, Punch: Tape; //States of the reader and punch
+    State: file of Tape; //File storing the states of the reader and punch
     DoRead, DoPunch: boolean; //Whether to reset the reader or the punch
 
 begin
 
     //Check whether to set the reader, the punch, or both
     if ParamCount <> 1 then begin
-        writeln ('Usage: tape reader/punch/both');
+        writeln ('Usage: tapectl reader/punch/both');
         halt;
     end;
     if ParamStr (1) = 'reader' then begin
@@ -37,7 +37,7 @@ begin
         DoPunch := true;
     end
     else begin
-        writeln ('Usage: tape reader/punch/both');
+        writeln ('Usage: tapectl reader/punch/both');
         halt;
     end;