//okhan 4/3/00
//8A
//OTHER PLACES: NOISY,QUIET  KIND,RUDE  FAST,SLOW  DIRTY,CLEAN
//MY,YOUR

Load dbnletters.dbn
Forever
{
   Paper 0
   Pen 100

   Set x 12
   Set y 0
   Set DX 12
   Set DY 15

   Command Field L B R T G
   {
      Pen G
      Repeat H L R
      {
         Line H T H B
      }
   }

   Repeat c 0 35
   {
      //"OTHER" in background
      Pen (2*c)
      Set X 12
      Field (x-12) ((y+DY)-5) ((x+4*DX)+11) ((y+DY)+16) c
      Letter 15 x (y+DY)
      Letter 20 (x+DX) (y+DY)
      Letter 8 (x+2*DX) (y+DY)
      Letter 5 (x+3*DX) (y+DY)
      Letter 18 (x+4*DX) (y+DY)

      //"PLACES" in foreground
      Pen (c)
      Set x 30
      Letter 16 x c
      Letter 12 (x+DX) c
      Letter 1 (x+2*DX) c
      Letter 3 (x+3*DX) c
      Letter 5 (x+4*DX) c
      Letter 19 (x+5*DX) c

      Paper 0
   }

   Repeat c 35 0
   {
      Pen (2*c)
      Set X 12
      Field (x-12) ((y+DY)-5) ((x+4*DX)+11) ((y+DY)+16) c
      Letter 15 x (y+DY)
      Letter 20 (x+DX) (y+DY)
      Letter 8 (x+2*DX) (y+DY)
      Letter 5 (x+3*DX) (y+DY)
      Letter 18 (x+4*DX) (y+DY)
      Pen (80-c)
      Set x 30
      Letter 16 x c
      Letter 12 (x+DX) c
      Letter 1 (x+2*DX) c
      Letter 3 (x+3*DX) c
      Letter 5 (x+4*DX) c
      Letter 19 (x+5*DX) c
      Paper 0
   }
   Repeat c 0 40
   {
      Pen (80-(2*c))
      Set x 30
      Letter 16 x y
      Letter 12 (x+DX) y
      Letter 1 (x+2*DX) y
      Letter 3 (x+3*DX) y
      Letter 5 (x+4*DX) y
      Letter 19 (x+5*DX) y
      Paper 0
   }
}