RE: Is this the Free-Format that we asked for?

Given the tone of some of this thread, maybe it should be something like:

tag BEATIT

dou horse <> DEAD
  if horse <> DEAD
     GOTO  SHOOTHORSE
  endif
  callp beat(horse)
enddo  
 
tag SHOOTHORSE
   callp kill(horse)
   GOTO BEATIT

Of course, I left off the semicolons. <g>  Mind you, this is only an
incremental improvement over the algorithm laid down by my predecessors.

> -----Original Message-----
> From: Rich Duzenbury [mailto:rduz@westernmidrange.com]
> Sent: Monday, November 06, 2000 11:07 AM
> To: RPG400-L@midrange.com
> Subject: RE: Is this the Free-Format that we asked for?
> 
> 
> Sorry, I couldn't resist.  It's actually
> 
> * Doesn't matter if horse is alive or dead
> * Continue to beat it
> dow     (TRUE)
> callp   #beat(horse)
> enddo
> 
> Regards,
> Rich
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---