\documentclass{bidipresentation}
\pagestyle{pres}
\usepackage{vwcol}  
\usepackage{listings}  
\usepackage{color}
\definecolor{myblue}{rgb}{0.02,0.04,0.48}
\definecolor{textcolor}{rgb}{1,1,1}
\definecolor{headcolor}{rgb}{1,0.7,0.2}
%\pagecolor{myblue}
%\color{textcolor}
\usepackage{xepersian}
\settextfont{XB Roya}
\iffalse
\makeatletter
\def\item{%
  \@inmatherr\item
  \@ifnextchar [\@item{\@noitemargtrue \@item[\textcolor{headcolor}{\@itemlabel}]}}
\makeatother
\fi
\begin{document}
%\color{textcolor}
\begin{titlepage}
\centering
\distance{1}
{\color{myblue}
\Huge \bfseries یک نمونه اسلاید \par
}
\vspace{1.3ex} \large
نام خودم\\[2ex]نام دانشگاه 
\distance{2}
\end{titlepage}

%---------------------------------------------------------- slide #1
\begin{plainslide}[کد مسأله]
\begin{vwcol}[widths={0.6,0.4}, sep=.6cm, 
justify=flush,rule=0.5pt,indent=8mm] 
\begin{LTR}
\begin{lstlisting}[frame=none,basicstyle=\ttfamily, showspaces=true]
 -123.456703
   -123.4567
    -123.457
********
-123.457
\end{lstlisting} 
\end{LTR}
\begin{LTR}
\begin{lstlisting}[frame=none,basicstyle=\ttfamily]
Real, Parameter :: A=-123.4567 
Write(*,'(F12.6)') A  
Write(*,'(F12.4)') A    
Write(*,'(F12.3)') A    
Write(*,'(F8.4)')  A 
Write(*,'(F8.3)')  A  
End
\end{lstlisting} 
\end{LTR}
\end{vwcol} 
\end{plainslide}
\end{document}