//expanding the box!
//
load dbnletters.dbn

//this is pretty restrictive...
TypeP 13 177
TypeL 26 177
TypeE 39 177
TypeA 52 177
TypeS 65 177
TypeE 78 177
TypeP 13 164
TypeL 26 164
TypeA 39 164
TypeC 52 164
TypeE 65 164
TypeT 13 151
TypeH 26 151
TypeE 39 151
TypeM 13 138
TypeO 26 138
TypeU 39 138
TypeS 52 138
TypeE 65 138
TypeH 13 125
TypeE 26 125
TypeR 39 125
TypeE 52 125
line  70 130 100 130
line 100 130 100 105
line 105 110 100 105
line 95 110 100 105
line  70 129 100 129
line 101 130 101 105
line 106 110 101 105
line 96 110 101 105
set [13 120] 100
set [13 121] 100
set [13 119] 100
set [12 120] 100
set [14 120] 100
set [23 120] 100
set [23 121] 100
set [23 119] 100
set [22 120] 100
set [24 120] 100
set [33 120] 100
set [33 121] 100
set [33 119] 100
set [32 120] 100
set [34 120] 100
set A 0
set B 0
set C 10
set D 10
pause 300
forever
{
   paper 100
   pen 0

   command rectangle X1 Y1 X2 Y2
   {
      repeat Z Y1 Y2
      {
         line X1 Z X2 Z
      }
   }
   set M1 
   set M2 

   pen 100
   rectangle (M1-2) (M2-2)(M1+2) (M2+2)
   pen 0
   rectangle A B C D
   smaller? M1 A
   {
      set A M1
      rectangle A B C D
   }

   notsmaller? M1 C
   {
      set C M1
      rectangle A B C D
   }
   smaller? M2 B
   {
      set B M2
      rectangle A B C D
   }

   notsmaller? M2 D
   {
      set D M2
      rectangle A B C D
   }
   //the pointer
   pen 100
   rectangle (M1-3) (M2-3)(M1+3) (M2+3)
   //much better...
   smaller? A 1
   {
      smaller? B 1
      {
         notsmaller? C 200
         {
            notsmaller? D 200
            {
               TypeA 82 95
               TypeA 95 95
               TypeH 108 95
               line 123 95 123 105
               set [123 92] 100
               set [123 93] 100
               set [123 91] 100
               set [122 92] 100
               set [124 92] 100
            }
         }
      }
   }
}