@ E C H O 
 
 G O T   : X 
 
                 B c ?o <o 3a Be ;L=a O  ?p o 3p a <<a   4;O  ?o ;=o 3o 
 
                                 o ?8c a =8O  o H81o :,   2o 7=8:a NI8x 
 
                                 ?p 8  p a 1o Be   . B A T   Da 9;o 2
 
                 ?o 4  y ?p a 2;e =8e <  :o <<a =4=o 3o   ?p o Fe c c o p a . 
 
                                                 0 4 0 5 
 
           : X ; C L S   ; C I R C ; N = - 1       ; P O S 
 
 E C H O   " M I S T A K E R   ?o <o 6e B  2a <  o B;a 682a BL  2a H  Da 9;  % 1 . % 1   " 
 
 C H R   # 1 2 
 
 E C H O   " M I S T A K E R   o B2e B8B  =a   2o ?p o c K  o 1  o H81:a x   2  C O M M A N D . C O M " 
 
 C H R   # 1 2 
 
 C A L L   $ 
 
 I F   K   : M I S T 
 
 C H R   # 1 2   # 1 2 
 
                 E C H O   " $a 9;  2K?o ;=e =  1e 7  o H81o :. " 
 
                                 : E 
 
           C H R   # 1 2   # 1 2   # 1 2 
 
           e c h o   " E c ;8  x o B8Be   22e 48Be   =o <e p   o H81:8  4;O  p a c H8Dp o 2:8. " 
 
           C H R   # 1 2 ; e c h o   " E c ;8  =e B, 22e 48Be   N " ;   C H R   # 1 2 
 
           I N P U T   " L : "   L 
 
           I F   L   : C   : A   : A 
 
 
 
                                 : C ;   E N D 
 
 : N O M ; C H R   # 1 2 ; ?   "   o H81:a   =o <e p : " ; D E C   L ; O C T   L ; C H R   # 1 2 ; ?   " B. e . " 
 
                                 C H R   # 1 2 ; r e t u r n 
 
 
 
 o 1p a 1o B:a   o H81:8  2  e r r o r l e v e l 
 
     : M I S T 
 
 C H R   # 1 2   # 1 2 ; ?   "   $a 9;  2K?o ;=e =  c   o H81:o 9  ! ! ! " ; C H R   # 1 2 
 
     : A ;         C A L L   : N O M 
 
 C A S E   L     : 1   : 2   : 3   : 4   : 5   : 6   : 7   : 8   : 9   : 1 0   : 1 1   : 1 2   : 1 3   : 1 4   : 1 5   : 1 6 
 
 C A S E   L - 1 6     : 1 7   : 1 8   : 1 9   : 2 0   : 2 1   : 2 2   : 2 3   : 2 4   : 2 5   : 2 6   : 2 7   : 2 8   : 2 9 
 
 C A S E   L - 2 9     : 3 0   : 3 1   : 3 2   : 3 3   : 3 4   : 3 5   : 3 6   : 3 7   : 3 8   : 3 9   : 4 0   : 4 1   : 4 2 
 
 C A S E   L - 4 2     : 4 3   : 4 4   : 4 5   : 4 6   : 4 7   : 4 8   : 4 9   : 5 0   : 5 1   : 5 2   : 5 3   : 5 4   : 5 5 
 
 G O T O   : E 
 
 : 1 
 
           ?   " :o =e F  Be :c Ba   ?p o 3p a <<K,   =e B  o ?e p a Bo p o 2  r e t , o u t , e n d   " 
 
           g o t   : E 
 
 : 2 
 
           ?   " =e 4o ?y c B8<o e   ?p 8<e =e =8e   o 3p a =8G8Be ;O" ;           c h r $   # 1 2 
 
           ?   " 2  p e 7y ;LBa Be   <. 1.   =e   o ?o 7=a =  o ?e p a =4,   2Kp a 6e =8e " ; g o t   : E 
 
 : 3 
 
           ?   " =e ?p a 28;L=o e   8<O  ?e p e <e ==o 9,   p a 7p e He =K  @ A B C D . . . P Q R $ " 
 
           g o t   : E 
 
 : 4 
 
           ?   " =e B  7=a :a   o ?e p a F88,   Ba <,   34e   o 684a ;o c L  a p 8D<. 2Kp a 6e =8e " 
 
           g o t   : E 
 
 : 5 
 
           ?   " =e o ?o 7=a =  o ?e p a Bo p ,   o c =o 2=o 9  =a 1o p : " ; c h r $   # 1 2 
 
           ?   " p o s   r e m   i f   g o t o   e n d   c h r $   c a l l " ; c h r $   # 1 2 
 
           ?   " e c h o   @ e c h o   c l s   p a u s e   o u t   c i r c " ; c h r $   # 1 2 
 
           ?   " s h i f t   r e t u r n   e x i s t   d e l   d i r " ; c h r $   # 1 2 
 
           ?   " c h e c k   s e t   c o p y " ;           g o t   : E 
 
 : 6 
 
           ?   " =e B  7a :p K2a NI8x c O  :a 2KGe :" ; g o t   : E 
 
 : 7 
 
 ?   " ?p e 4?o ;a 3a ;c O  o ?e p a Bo p   i n k e y ,   =o   =a ?8c a =8e   =e   Bo " ; G O T   : E 
 
 : 8 
 
           ?   " 7a   7=a :o <  % %   o 684a ;a c L  F8Dp a   8;8  e Ie   7=a :  % % " ; g o t   : E 
 
 : 9 
 
           ?   " ?e p e 4  7=a :o <  =   =e   <o 6e B  1KBL  ?p o c Bo   G8c ;a   " ; g o t   : E 
 
 : 1 0 
 
           ?   " 2  <e c Be   ?p e p K2a =8O  o 684a ;c O  7=a :  = " ; g o t   : E 
 
 : 1 1 
 
 ?   " o H81:a   2  a p 3y <e =Be   o ?e p a Bo p a   c a l l ( d e l , e x i s t , c o p y ) " ; g o t   : E 
 
 : 1 2 
 
           ?   " =e   =a 94e =  y :a 7a ==K9  :a Ba ;o 3" ; g o t   : E 
 
 : 1 3 
 
           ?   " =e   =a 94e =  Da 9;  c   y :a 7a ==K<  8<e =e <" ; g o t   : E 
 
 : 1 4 
 
           ?   " =e B  <e c Ba   4;O  7a 3p y 7:8  o Ge p e 4=o 3o   Da 9;a " ; g o t   : E 
 
 : 1 5 
 
           ?   " o H81:a   7a 3p y 7:8" ; g o t   : E 
 
 : 1 6 
 
           ?   " 2o 72p a B  87  ?o 4?p o 3p a <<K  c   o H81:o 9" ; g o t   : E 
 
 : 1 7 
 
 ?   " ?o c ;e   o ?e p a Bo p a   g o t o   o 684a ;o c L  8<O  <e B:8_ _ _ : M E T K A " ; G O T   : E 
 
 : 1 8 
 
           ?   " o 684a ;o c L  a p 8D<e B8Ge c :o e   2Kp a 6e =8e " ; g o t   : E 
 
 : 1 9 
 
           ?   "   =e B  =o 2o 3o   8<e =8  o ?e p a Bo p a " ; g o t   : E 
 
 : 2 0 
 
           ?   " r e t u r n   1e 7  c a l l " ; g o t   : E 
 
 : 2 1 
 
           ?   " o 684a ;o c L  Be :c Bo 2o e   2Kp a 6e =8e " ; g o t   : E 
 
 : 2 2 
 
           ?   " c 8=Ba :c 8Ge c :a O  o H81:a " ; g o t   : E 
 
 : 2 3 
 
           ?   " ?p 8  22o 4e   o 684a ;a c L  2o c L<e p 8G=a O  F8Dp a " ; g o t   : E 
 
 : 2 4 
 
           ?   " ?p 8  22o 4e   o 684a ;a c L  4e c OB8G=a O  F8Dp a " ; g o t   : E 
 
 : 2 5 
 
           ?   " o 684a ;8c L  c 8<2o ;K  +   -   , " ; g o t   : E 
 
 : 2 6 
 
           ?   " o 684a ;8c L  c 8<2o ;K  @ A B C D E F G H I J K L M N O P Q R + - , "     ; G O T   : E 
 
 : 2 7 
 
           ?   " o H81:a   2  c o o 1Ie =88  2  o ?e p a Bo p e   i n p u t "             ; G O T   : E 
 
 : 2 8 
 
           ?   " =e B  7a :p K2a NI8x c O  :a 2KGe :"                             ; G O T   : E 
 
 : 2 9 
 
       ?   " o H81o G=K9  o ?e p a =4  2  a p 8D<e B8Ge c :o <  2Kp a 6e =88" ; C H R   # 1 2 
 
       ?   " 2  :a Ge c B2e   o ?e p a =4o 2  <. 1.   8c ?o ;L7o 2a =K: " ;           C H R   # 1 2 
 
       ?   " a ) G8c ;o . . . . . . . . 4e c OB8G=o e   G8c ;o " ;                   C H R   # 1 2 
 
       ?   " 1) # G8c ;o . . . . . . . 2o c L<e p 8G=o e   G8c ;o " ;               C H R   # 1 2 
 
       ?   " 2) @ # G8c ;o . . . . . . c o 4e p 68<o e   y :a 7a ==o 9  OGe 9:8" ;     C H R   # 1 2 
 
       ?   " 3) ?e p e <e ==a O. . . @ A B C D E F G H I J K L M N O P R Q R " ;           C H R   # 1 2 
 
       ?   " 4) @ ?e p e <e ==a O. . c o 4e p 68<o e   OGe 9:8  c   a 4p e c o <  2  ?e p e <e ==o 9" 
 
                                                 c h r   # 1 2 
 
 ?   " e ) $ . . . . . . . . . . . . :o ;8Ge c B2o   8<e =  2  ?e p e <e ==o 9  $ " ;     C H R   # 1 2 
 
 ?   " 6) $ - ' ' Be :c B' ' . . . p e 7y ;LBa B  c p a 2=e =8O  1 3o   8<e =8  2  $   8  Be :c Ba " 
 
           g o t   : E 
 
 : 3 0 
 
           ?   " 7a   <e B:o 9  =e   =a 94e =o   =8  o 4=o 3o   o ?e p a Bo p a "     ; G O T   : E 
 
 : 3 1 
 
           ?   " ?y c Ba O  <e B:a   8  o 1p a Ie =8e   :  =e 9"                   ; G O T   : E 
 
 : 3 2 
 
           ?   " =e ?p a 28;L=o e   8<O  ?e p e <e ==o 9  / 8;8/   =e B  c 8<2o ;o 2  + - , " 
 
           g o t   : E 
 
 : 3 3 
 
           ?   " 2  o ?e p a Bo p e   i n p u t   4o ?y c B8<K  o ?e p a =4K: " 
 
           c h r $   # 1 2 
 
           ?   " E P E M E H H A /  @ E P E M E H H A /  @ # 'C O "                   ; G O T   : E 
 
 : 3 4 
 
           ?   " B   o ?e p a Bo p e   i f   =e   =a 94e =o   a p 8D<e B8Ge c :o e   2Kp a 6e =8e " 
 
           g o t   : E 
 
 : 3 5 
 
           ?   " B   o ?e p a Bo p e   i f   o H81:a   2  a p 8D<e B8Ge c :o <  2Kp a 6e =88" 
 
           g o t   : E 
 
 : 3 6 
 
           ?   " B   o ?e p a Bo p e   i f   =e   =a 94e =o   8<O  ?e p 2o 9  <e B:8"   ; G O T   : E 
 
 : 3 7 
 
           ?   " B   o ?e p a Bo p e   c h r $   o H81:a   2  a p 8D<e B8Ge c :o <  2Kp a 6e =88" 
 
           g o t   : E 
 
 : 3 8 
 
           ?   " B   o ?e p a Bo p e   p o s   o H81:a   2  a p 8D<e B8Ge c :o <  2Kp a 6e =88" 
 
           g o t   : E 
 
 : 3 9 
 
           ?   " B   o ?e p a Bo p e   p a u s e   o H81:a   2  a p 8D<e B8Ge c :o <  2Kp a 6e =88" 
 
           g o t   : E 
 
 : 4 0 
 
           ?   " B   o ?e p a Bo p e   c h e c k   o H81:a   ?p 8  22o 4e   Be :c B.   2Kp a 6e =8O" 
 
           g o t   : E 
 
 : 4 1 
 
           ?   " O H81:a   2  Be :c Bo 2o <  2Kp a 6e =88  o ?e p a Bo p a   E C H O " ; G O T   : E 
 
 : 4 2 
 
           ?   " =e   =a 94e =a   <e B:a   o 1p a 7e F  2  o ?e p a Bo p e   G O T O "     ; G O T   : E 
 
 : 4 3 
 
           ?   " o ?e p a Bo p   G O T O   =e   =a He ;  2  Be :c Be   <e B:y "             ; G O T   : E 
 
 : 4 4 
 
 ?   " B   o ?e p a Bo p e   C A L L ( d e l , e x i s t , c o p y )   o Bc y Bc B2y e B  a p 3y <e =B: " 
 
       c h r   # 1 2 ; ?   " a ) 8<O  <e B:8( c a l l ) " ; C H R   # 1 2 
 
 ?   " 1) 8<O  Da 9;a - ?e p 2o e ,   4o   ?p o 1e ;a ,   8<O  87  Be :c Bo 2o 3o   2Kp a 6e =8O" 
 
 C H R   # 1 2 
 
 ?   " 2) =e :o e   7=a Ge =8e ,   =a G8=a NIe e c O  c o   7=a :a   @ ( c a l l ) "   ; G O T   : E 
 
 : 4 5 
 
           ?   " o ?e p a Bo p   C A L L   =e   =a He ;  2  Be :c Be   <e B:y "           ; G O T   : E 
 
 : 4 6 
 
           ?   " #:a 7a ==K9  2  o ?e p a Bo p e   C A L L   Da 9;  =e   =a 94e =. " ; G O T   : E 
 
 : 4 7 
 
           ?   " B   o ?e p a Bo p e   s e t   =e ?p a 28;L=o   y :a 7a =  7a <e =Oe <K9  o ?e p a Bo p " 
 
           g o t   : E 
 
 : 4 8 
 
           ?   " B   o ?e p a Bo p e   s e t   =e B  a p 3y <e =Ba "   ; G O T   : E 
 
 : 4 9 
 
           ?   " =e   =a 94e =  Da 9;  4;O  :o ?8p o 2a =8O" ; G O T   : E 
 
 : 5 0 
 
           ?   " o H81:a   GBe =8O  Da 9;a   4;O  :o ?8p o 2a =8O"   ; G O T   : E 
 
 : 5 1 
 
           ?   " =e B  <e c Ba   =a   2Kx o 4=o <  y c Bp o 9c B2e "         ; G O T   : E 
 
 : 5 2 
 
           ?   " o H81:a   7a ?8c 8  =a   2Kx o 4=o e   y c Bp o 9c B2o " ; g o t   : E 
 
 : 5 3 
 
           ?   " c o p y   1e 7  a p 3y <e =Bo 2" 
 
           g o t   : E 
 
 : 5 4 
 
           ?   " / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / " 
 
           g o t   : E 
 
 : 5 5 
 
           ?   " / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / " 
 
           g o t   : E 
 
 E N D 
 
 
 
 
 
 