pascal golf by rotary-o

  \x09\x09
  \x09\x09\x09 
   \x09      
  \x09\x09\x09 

  \x09
 
   \x09\x09
\x09  
\x09
\x09    \x09
\x09    
 
\x09\x09\x09
 
 \x09
\x09\x09\x09\x09\x09\x09 \x09\x09
\x09  

  
 
   \x09\x09
\x09  
\x09\x09\x09\x09
     \x09
\x09    
 
\x09\x09
   
\x09\x09\x09\x09
 \x09
 
 \x09

   
   
\x09\x09\x09   \x09
\x09  \x09\x09
 \x09   \x09\x09    \x09
\x09
     \x09\x09 \x09\x09\x09 
\x09
     \x09 
\x09\x09\x09\x09
     \x09
\x09\x09\x09\x09
     \x09\x09 
\x09\x09\x09\x09
  
   \x09
   \x09 \x09 
\x09
  
 
\x09\x09

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

Disassemble:

mark -1(1b)
push -6(3b)
push +64(7b)
push -6(3b)
mark -0(0b)
dup
push -1(1b)
mul
getc
push +1(1b)
add
dup
jneg -0(0b)
dup
geti
retr
mod
jzero +0(0b)
mark null
dup
push -1(1b)
mul
retr
putc
push +1(1b)
add
dup
jneg null
push +0(0b)
retr
puti
jump +1(1b)
mark +0(0b)
push +0(0b)
retr
push +1(1b)
sub
puti
push +97(7b)
putc
push +110(7b)
putc
push +2(2b)
retr
putc
push +1(1b)
retr
putc
push +6(3b)
retr
putc
mark +1(1b)
push +10(4b)
putc
jump -1(1b)
To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page