Listing 2

:183:eC::%?%G_l%t%G_l%{1}%-%Pa\36\20%wa\34%;\37%e%o%G_l%r%t%\33C%o%G_l%r%c%;

%?       if
%G_l     push value _l onto the stack and if not 0
%t       then pop value off of stack and if not equal to 0
%G_l     push the value of _l onto the stack
%{1}     push the integer 1 onto the stack
%-       pop the two stack values and subtract, push the result onto the stack
%Pa      pop value from stack and place in the a register.
\36      send octal 36 to the printer
\20      send octal 20 to the printer
%wa\34%; while a does not equal 0 send octal 34 to the printer
\37      send octal 37 to printer
%e       else
%o       reset original values from database
%G_l     push value of _l onto the stack
%r       reset values back to before %o
%t       then pop value off of stack and if not equal to 0
%\33     send octal 33 to the printer
C        send ascii character C


%o       reset original values from database
%G_l     push value of _l onto the stack
%r       reset values back to before %o
%c       pop value off of stack and send to printer
%;       end of clause