size 18 24 box		! This is LOOP.GLE, shows programming examples
set hei .3
amove .3 .3 
text loop.gle

amove 5 14
set just center hei 1
set font pldr hei 0.7
text Subroutines, Loops
set just left hei .7
set hei .9

! First define a single neuron
sub neuron xx yy
  amove xx yy 
  begin scale .5 .5
    curve  0  .4  .4  .4  .4 -.4  .4  .4  .4 -.8 -.4 -.8 -.4 .4
    curve -.4 -.8 -.4  .4 -.4 -.4 -.4  .4  0  .4   
    closepath
  end scale
end sub

! Draw the neurons
for xx = 0 to 1
  for i = 1 to 6
    @neuron xx*6+2 i*2+1.2
  next i
next xx

! Draw the lines between them
for i = 1 to 6
  for j = 1 to 6
    amove 3 i*2+1
    aline 7.5 j*2+1
  next j
next i

!--------------------------------------------------------------------------
include ziptext.gle
set font pltr hei 1.2
amove 12 1
@ziptext "Hello"
amove 10.5 4
begin rotate 20
@ziptext "Green trees"
end rotate