� BOX UTILITIES.
� FOR EASYDRAW V. 4.01
!� BY LAURENCE CLARK. JULY 88.
(�4
-�#0
2
� � �t~@
<�M%=2 � M%=5 Z%=8 � Z%=4
F0�J%=2 � E%*F%>120000 �'"AREA TOO BIG";:�t~@
P�J%=2 �SAVE:�t~@
Z�J%=3 �LOAD:�t~@
d/� X%+E%>G% � H%>Y% �'"OVERLAPPING.";:�t~@ 
nQ� H%<0 � E%>640 � M%=1� E%>640 � M%=4� E%>1280 � G%<0 �'"AREA TOO BIG";:�t~@
x
� L%(160)
��IY%=Y% � Y%+F% � 4
��I%=X% � X%+E% � Z%
�9L%((I%-X%)/Z%+1)=�I%,IY%):�J%=1 �0,0:�69,I%,IY%:� � �
� �I%=G% � G%+E% � Z%
�,�0,L%((I%-G%)/Z%+1):�69,I%,IY%+(H%-Y%):�
��IY%
��"DRAW"
�� �SAVE
��''"INPUT FILENAME";F$
�
X=� F$
��#X, E%, F%
�� A=Y% � Y%+F% �4
�� B=X% � X%+E% �Z%

�#X, �B,A)

	�B:�A

�#X

"�

,� �LOAD

6�''"INPUT FILENAME";F$ 

@
X=� F$

J�#X, E%, F%

T� A=Y% � Y%+F% �4

^� B=X% � X%+E% �Z%

h
�#X, P

r�0,P:� 69,B,A 

|	�B:�A

��#X 

��
�

00000000  0d 00 0a 14 f4 20 42 4f  58 20 55 54 49 4c 49 54  |..... BOX UTILIT|
00000010  49 45 53 2e 0d 00 14 1a  f4 20 46 4f 52 20 45 41  |IES...... FOR EA|
00000020  53 59 44 52 41 57 20 56  2e 20 34 2e 30 31 0d 00  |SYDRAW V. 4.01..|
00000030  1e 21 f4 20 42 59 20 4c  41 55 52 45 4e 43 45 20  |.!. BY LAURENCE |
00000040  43 4c 41 52 4b 2e 20 4a  55 4c 59 20 38 38 2e 0d  |CLARK. JULY 88..|
00000050  00 28 06 ef 34 0d 00 2d  07 d9 23 30 0d 00 32 0d  |.(..4..-..#0..2.|
00000060  ee 20 85 20 e5 8d 74 7e  40 0d 00 3c 1c e7 4d 25  |. . ..t~@..<..M%|
00000070  3d 32 20 84 20 4d 25 3d  35 20 5a 25 3d 38 20 8b  |=2 . M%=5 Z%=8 .|
00000080  20 5a 25 3d 34 0d 00 46  30 e7 4a 25 3d 32 20 80  | Z%=4..F0.J%=2 .|
00000090  20 45 25 2a 46 25 3e 31  32 30 30 30 30 20 f1 27  | E%*F%>120000 .'|
000000a0  22 41 52 45 41 20 54 4f  4f 20 42 49 47 22 3b 3a  |"AREA TOO BIG";:|
000000b0  e5 8d 74 7e 40 0d 00 50  15 e7 4a 25 3d 32 20 f2  |..t~@..P..J%=2 .|
000000c0  53 41 56 45 3a e5 8d 74  7e 40 0d 00 5a 15 e7 4a  |SAVE:..t~@..Z..J|
000000d0  25 3d 33 20 f2 4c 4f 41  44 3a e5 8d 74 7e 40 0d  |%=3 .LOAD:..t~@.|
000000e0  00 64 2f e7 20 58 25 2b  45 25 3e 47 25 20 80 20  |.d/. X%+E%>G% . |
000000f0  48 25 3e 59 25 20 f1 27  22 4f 56 45 52 4c 41 50  |H%>Y% .'"OVERLAP|
00000100  50 49 4e 47 2e 22 3b 3a  e5 8d 74 7e 40 20 0d 00  |PING.";:..t~@ ..|
00000110  6e 51 e7 20 48 25 3c 30  20 84 20 45 25 3e 36 34  |nQ. H%<0 . E%>64|
00000120  30 20 80 20 4d 25 3d 31  84 20 45 25 3e 36 34 30  |0 . M%=1. E%>640|
00000130  20 80 20 4d 25 3d 34 84  20 45 25 3e 31 32 38 30  | . M%=4. E%>1280|
00000140  20 84 20 47 25 3c 30 20  f1 27 22 41 52 45 41 20  | . G%<0 .'"AREA |
00000150  54 4f 4f 20 42 49 47 22  3b 3a e5 8d 74 7e 40 0d  |TOO BIG";:..t~@.|
00000160  00 78 0d de 20 4c 25 28  31 36 30 29 0d 00 82 17  |.x.. L%(160)....|
00000170  e3 49 59 25 3d 59 25 20  b8 20 59 25 2b 46 25 20  |.IY%=Y% . Y%+F% |
00000180  88 20 34 0d 00 8c 17 e3  49 25 3d 58 25 20 b8 20  |. 4.....I%=X% . |
00000190  58 25 2b 45 25 20 88 20  5a 25 0d 00 96 39 4c 25  |X%+E% . Z%...9L%|
000001a0  28 28 49 25 2d 58 25 29  2f 5a 25 2b 31 29 3d b0  |((I%-X%)/Z%+1)=.|
000001b0  49 25 2c 49 59 25 29 3a  e7 4a 25 3d 31 20 e6 30  |I%,IY%):.J%=1 .0|
000001c0  2c 30 3a f0 36 39 2c 49  25 2c 49 59 25 3a ed 20  |,0:.69,I%,IY%:. |
000001d0  8b 20 ed 0d 00 a0 18 20  e3 49 25 3d 47 25 20 b8  |. ..... .I%=G% .|
000001e0  20 47 25 2b 45 25 20 88  20 5a 25 0d 00 aa 2c e6  | G%+E% . Z%...,.|
000001f0  30 2c 4c 25 28 28 49 25  2d 47 25 29 2f 5a 25 2b  |0,L%((I%-G%)/Z%+|
00000200  31 29 3a f0 36 39 2c 49  25 2c 49 59 25 2b 28 48  |1):.69,I%,IY%+(H|
00000210  25 2d 59 25 29 3a ed 0d  00 b4 08 ed 49 59 25 0d  |%-Y%):......IY%.|
00000220  00 be 0b d7 22 44 52 41  57 22 0d 00 c8 0b dd 20  |...."DRAW"..... |
00000230  f2 53 41 56 45 0d 00 d2  1a e8 27 27 22 49 4e 50  |.SAVE.....''"INP|
00000240  55 54 20 46 49 4c 45 4e  41 4d 45 22 3b 46 24 0d  |UT FILENAME";F$.|
00000250  00 dc 0a 58 3d ae 20 46  24 0d 00 e6 0f f1 23 58  |...X=. F$.....#X|
00000260  2c 20 45 25 2c 20 46 25  0d 00 f0 15 e3 20 41 3d  |, E%, F%..... A=|
00000270  59 25 20 b8 20 59 25 2b  46 25 20 88 34 0d 00 fa  |Y% . Y%+F% .4...|
00000280  16 e3 20 42 3d 58 25 20  b8 20 58 25 2b 45 25 20  |.. B=X% . X%+E% |
00000290  88 5a 25 0d 01 04 0e f1  23 58 2c 20 b0 42 2c 41  |.Z%.....#X, .B,A|
000002a0  29 0d 01 0e 09 ed 42 3a  ed 41 0d 01 18 07 d9 23  |).....B:.A.....#|
000002b0  58 0d 01 22 05 e1 0d 01  2c 0b dd 20 f2 4c 4f 41  |X.."....,.. .LOA|
000002c0  44 0d 01 36 1b e8 27 27  22 49 4e 50 55 54 20 46  |D..6..''"INPUT F|
000002d0  49 4c 45 4e 41 4d 45 22  3b 46 24 20 0d 01 40 0a  |ILENAME";F$ ..@.|
000002e0  58 3d 8e 20 46 24 0d 01  4a 0f e8 23 58 2c 20 45  |X=. F$..J..#X, E|
000002f0  25 2c 20 46 25 0d 01 54  15 e3 20 41 3d 59 25 20  |%, F%..T.. A=Y% |
00000300  b8 20 59 25 2b 46 25 20  88 34 0d 01 5e 16 e3 20  |. Y%+F% .4..^.. |
00000310  42 3d 58 25 20 b8 20 58  25 2b 45 25 20 88 5a 25  |B=X% . X%+E% .Z%|
00000320  0d 01 68 0a e8 23 58 2c  20 50 0d 01 72 12 e6 30  |..h..#X, P..r..0|
00000330  2c 50 3a f0 20 36 39 2c  42 2c 41 20 0d 01 7c 09  |,P:. 69,B,A ..|.|
00000340  ed 42 3a ed 41 0d 01 86  08 d9 23 58 20 0d 01 90  |.B:.A.....#X ...|
00000350  05 e1 0d ff                                       |....|
00000354