LOGO-L> Computer Science Logo Style problem

["John St. Clair" <jstclair@cyberg8t.com>]

Please reply to "John Hayes" <jahayes@xtra.co.nz>  or  logo-l@gsn.org   NOT
me.
His message was bounced to me because it used the word "help" in the
subject line.  Majordomo, the automated listserv software running the
logo-l mailing list, automatically bounces to me messages that use the word
"help" in the subject line.

			-John-

>
>Does any reader of Vol. 1 Computer Science Logo Style (2nd ed)
>have a solution to the "diamond" project on p 147?
>So far I've managed
>TO DIAMOND :WORD
>     DIAMOND.TOP :WORD ((COUNT :WORD) - 1) / 2
>     DIAMOND.BOTTOM :WORD 1
>END
>
>TO DIAMOND.TOP :WORD :NUM
>     IF :NUM = 0 THEN PR :WORD STOP
>     REPEAT :NUM [TYPE "| |]
>     TYPE ITEM :NUM + 1 :WORD
>     PR "
>     DIAMOND.TOP :WORD :NUM - 1
>END
>
>TO DIAMOND.BOTTOM :WORD :NUM
>     IF :NUM > ((COUNT :WORD) - 1)/2 THEN STOP
>     REPEAT :NUM [TYPE "| |]
>     TYPE ITEM :NUM + 1 :WORD
>     PR "
>     DIAMOND.BOTTOM :WORD :NUM + 1
>END
>
>which produces
>      G
>    O
>  R
>PROGRAM
>  R
>    O
>       G
>How to type the other letters eludes me.
>
>John Hayes
>New Zealand
>

John St. Clair		     Global SchoolNet Foundation
Technology Teacher	     moderator schl-sig-logo and logo-l
Vina Danks Middle School     http://www.cyberg8t.com/jstclair/jsc.bio.html
Ontario-Montclair School District
Ontario, California, USA


---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.