diff --git a/programs/network/ftpc/ftpc.asm b/programs/network/ftpc/ftpc.asm
index b99ff7f000..5aee1a7cf0 100644
--- a/programs/network/ftpc/ftpc.asm
+++ b/programs/network/ftpc/ftpc.asm
@@ -205,6 +205,12 @@ wait_for_usercommand:
         cmp     dword[s], "cwd "
         je      cmd_cwd
 
+        cmp     dword[s], "retr"
+        je      cmd_retr
+
+;        cmp     dword[s], "stor"
+;        je      cmd_stor
+
         invoke  con_write_asciiz, str_unknown
         jmp     wait_for_usercommand
 
diff --git a/programs/network/ftpc/usercommands.inc b/programs/network/ftpc/usercommands.inc
index 6cd08fd28a..b1ca064635 100644
--- a/programs/network/ftpc/usercommands.inc
+++ b/programs/network/ftpc/usercommands.inc
@@ -28,4 +28,40 @@ cmd_cwd:
 
         mcall   send, [socketnum], s, , 0
 
+        jmp     wait_for_servercommand
+
+
+cmd_retr:
+
+        call    open_dataconnection
+
+        mov     dword[s], "RETR"
+        mov     byte[s+4], " "
+
+        mov     ecx, 256
+        xor     al, al
+        mov     edi, s
+        repne scasb
+        lea     esi, [edi - s - 1]
+
+        mcall   send, [socketnum], s, , 0
+
+        jmp     wait_for_servercommand
+
+
+cmd_stor:
+
+        call    open_dataconnection
+
+        mov     dword[s], "STOR"
+        mov     byte[s+4], " "
+
+        mov     ecx, 256
+        xor     al, al
+        mov     edi, s
+        repne scasb
+        lea     esi, [edi - s - 1]
+
+        mcall   send, [socketnum], s, , 0
+
         jmp     wait_for_servercommand
\ No newline at end of file