� FlexiPlan
8� Generated by WimpWorks on Tue,10 Feb 1998.10:45:37
(� WimpWorks is � Jaffa Software 1995
(
2�
<
FT� �task(� name$,� sprite$,� text$,� side%,� text%,� purp$,� auth$,� ver$,� opt%)
Pname$  ="FlexiPlan"
Zsprite$="!flexiplan"
dtext$  =""
n
text%  =0
xside%  =-1
�&purp$  ="To create a year planner"
�%auth$  ="V Markwart & C Egginton"
�ver$   ="0.01 (6 Feb 1998)"
�
opt%   =6
��
�
�� �initmenus
�#�loadtemplate("saveas",saveas%)
�(�loadtemplate("FlexiPlan",FlexiPlan)
�5�iconmenu("Main Menu|[infobox%].Info    |.Quit|")
��
�
�� �menu_klik(button%)

%  �mouse(mx%,my%,mb%,window,icon)

  � button%<>2 �

    � flag%=0 �

"1      �movewindow(FlexiPlan, mx%-250, my%+50)

,	    �

6    flag%+=1

@    �openwindow(FlexiPlan)

J  �

T�

^

h� �CreateFile(file$)

r  filename$=file$

|R  � filename$="" � �warning("Filename not appropriate", "Flexiplan Error") : �

�  outfile%=�(filename$)

�S  � � �#outfile%: �warning("Can't create Flexiplan file", "Flexiplan Error"): �

�

�� Send DrawFile Header

�� I=1 � 24

� �#outfile%,B%(I)

��

�� Send Dummy BBox data

�

�BBoxptr%=�#outfile%

�� I=1 � 16

��#outfile%,32

��

first1=�
�CreateGrid
&�CreateTextArea
0P%=�#outfile%
:�#outfile%=BBoxptr%
D�s(Xmin)
N�s(Ymin)
X�s(Xmax)
b�s(Ymax)
l�#outfile%=P%
v�#outfile%
�'�("SETTYPE "+filename$+" Drawfile")
��openwindow(FlexiPlan)
��
�
�� �init
�� Draw file header
�# � B%(24), D$(6), M$(13), N(13)
�	 � +1
�M � 68,114,97,119,201,0,0,0,0,0,0,0,65,114,99,68,114,97,119,32,32,32,32,32
� � I=1 � 24
�   � B%(I)
� �
� 
� Days of Week
	 � +1
" � Sun,Mon,Tue,Wed,Thu,Fri,Sat
  � I=0 � 6
*   � D$(I)
4 �
> 
H� Months of Year
R	 � +1
\� � January,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31,November,30,December,31
f � I=1 � 12
p   � M$(I),N(I)
z �
�
�
  flag%=0
�  minyear%=1980
�  date$=�sysdate
�  year$=�date$, 4)
�  month$=�date$,4,3)
�  yearX%=�(year$)
�#  �seticon(FlexiPlan, 4, year$)
��
�
�� �YearStart(year%)
�� I
�y$=�(year%)

� Check this
	  S=1
$  � I=1980 � year%
.    � I � 4=1 S=S+2 � S=S+1
8  �
B
=S � 7
L
V
`� �text
j
t  S=�YearStart(year%)
~� Is it a leap year
�
  N(2)=28
�  � (year% � 400)=0 �
�    N(2)=29
�  �
�!    � (year% � 4)=0 � N(2)=29
�#    � (year% � 100)=0 � N(2)=28
�  �
�
�  �#outfile%,"\! 1"
�(  �#outfile%,"\F 0 Trinity.Medium 7"
�'  �#outfile%,"\F 1 Trinity.Bold 10"
�  �#outfile%,"\AL/\D14"
  �#outfile%,"\L14/\P0/\0"

  �#outfile%,"\1"
  �#outfile%,"\AC"
  �#outfile%,�(year%)
(  �#outfile%,10
2  �#outfile%,10
<  � D=0 � 36
F    �#outfile%,D$(D � 7)
P    �#outfile%,10
Z    �#outfile%,10
d  �
n  �#outfile%,"\AL"
x
�  � E=1 � 12
�    �#outfile%,"\1";
�'    �#outfile%,"\AC/"+M$(E)+"\AL/";
�    �#outfile%,10
�    �#outfile%,10
�    �#outfile%,"\0";
�    B=S
�    ȕ B > 0
�<        �#outfile%,"\AC/||||||||||||||||||||||||||\AL/";
�        �#outfile%,10
�        �#outfile%,10
�        B-=1
�	    �
 
    � D=1 � N(E)
"      �#outfile%,�"   "+� D,3)
"      �#outfile%,10
,	    �
6 
@    B=37-S-N(E)
J    ȕ B > 0
T:      �#outfile%,"\AC/||||||||||||||||||||||||||\AL/";
^      �#outfile%,10
h      �#outfile%,10
r      B-=1
|	    �
�    S=(S + N(E)) � 7
�  �
�  �#outfile%,"\1";
�  �#outfile%,"\AC/";
�  �#outfile%,�(year%)
�  �#outfile%,10
�  �#outfile%,10
�  � D=0 � 36
�    �#outfile%,D$(D � 7)
�    �#outfile%,10
�    �#outfile%,10
�  �
�  � N(2)=29 �
    �#outfile%,"\AL"
  �
    �#outfile%,"\AL/"
&  �
0  �s(0)
:�
D
N� �s(b%)
X	  � I
b  � I=1 � 4
l    �#outfile%,(b% � 255)
v    b%=b%>>8
�  �
��
�
�� �column(X1, Y1, X2, Y2)
�  X1=X1<<8
�  Y1=Y1<<8
�  X2=X2<<8
�  Y2=Y2<<8
�  � first �
�
    Xb=X1
�
    Yb=Y1
�
    Xt=X2
�
    Yt=Y2
    first=�
  �
    � Xb>X1 � Xb=X1
     � Yb>Y1 � Yb=Y1
*    � Xt<X2 � Xt=X2
4    � Yt<Y2 � Yt=Y2
>  �
H  �s(10)
R  �s(24)
\  �s(X1)
f  �s(Y1)
p  �s(X2)
z  �s(Y2)
��
�
�� �CreateTextArea
�� I
�first=�
�Txtptr%=�#outfile%
�
�� Send Dummy text header
�� I=1 � 24
�  �#outfile%,42
��
�� Create columns
�a=9
	"�column(100,64,173,a+64+38*35)
	� I=0 � 11
	0  �column(173+I*146,64,319+I*146,a+64+38*35)
	$�
	.0�column(173+12*146,64,246+12*146,a+64+38*35)
	8
	B� Send Footer
	L
� I=1 � 4
	V  �s(0)
	`�
	j
	t�s(&FFFFFF00)
	~
	�� send Text
	�
	�	�text
	�� Now send Real header
	�P%=�#outfile%
	��#outfile%=Txtptr%
	�	�s(9)
	��s(4*((P%-Txtptr%)� 4))
	�
�s(Xb)
	�
�s(Yb)
	�
�s(Xt)
	�
�s(Yt)
�#outfile%=P%


� first1 �
.  Xmin=Xb:Ymin=Yb:Xmax=Xt:Ymax=Yt:first1=�
(�
2  � Xmin>Xb � Xmin=Xb
<  � Ymin>Yb � Ymin=Yb
F  � Xmax<Xt � Xmax=Xt
P  � Ymax<Yt � Ymax=Yt
Z�
d
n�
x
�*� �CreateLine(X1, Y1, X2, Y2, th, col)
�2  X1=X1<<8:Y1=Y1<<8:X2=X2<<8:Y2=Y2<<8:th=th<<8
�)  � Find boundary box data ----------
� 
�  Xb=X1:Yb=Y1:Xt=X2:Yt=Y2
�  � Xt<Xb Ȕ Xt,Xb
�  � Yt<Yb Ȕ Yt,Yb
�  L=�((X2-X1)^2+(Y2-Y1)^2)
�  � L<>0 �
�    dX=�(Y2-Y1)*th/(2*L)
�    dY=�(X2-X1)*th/(2*L)
�#    Xb-=dX:Xt+=dX:Yb-=dY:Yt+=dY
�  �
 
%  � Rem Keep Boundary Box Min/Max
 
"  � first �
,3    Xbmin=Xb:Ybmin=Yb:Xtmax=Xt:Ytmax=Yt:first=�
6  �
@    � Xbmin>Xb � Xbmin=Xb
J    � Ybmin>Yb � Ybmin=Yb
T    � Xtmax<Xt � Xtmax=Xt
^    � Ytmax<Yt � Ytmax=Yt
h  �
r
|� OK Send all data
�
�	�s(2)
�
�s(68)
�
�s(Xb)
�
�s(Yb)
�
�s(Xt)
�
�s(Yt)
��s(&FFFFFFFF)
��s(col)
�
�s(th)
��s(&20100042)
�	�s(2)
�
�s(X1)

�s(Y1)
	�s(8)

�s(X2)
&
�s(Y2)
0	�s(0)
:c+=1
D�
N
X� �CreateGrid
b 
l*  � Send dummy Group data ------------
v  groupptr%=�#outfile%
�  � I=1 � 36
�    �#outfile%,32
�  �
�  first=�:c=0
� 
�=  � Send the lines here ---------------------------------
�  � Y=0 � 38
�9    �CreateLine(100,64+Y*35,1998,64+Y*35,0,&44444400)
�  �
�
�,  �CreateLine(100,64,100,64+38*35,2.5,0)
�.  �CreateLine(1998,64,1998,64+38*35,2.5,0)
�  � Y=0 � 12

:    �CreateLine(173+Y*146,64,173+Y*146,64+38*35,1.5,0)

  �

'  �CreateLine(100,64,1998,64,2.5,0)

 3  �CreateLine(100,64+38*35,1998,64+38*35,2.5,0)

*  � Y=0 � 5

49    �CreateLine(100,134+7*35*Y,1998,134+7*35*Y,1.5,0)

>  �

H'  � Now go back and send group data

R(  P%=�#outfile%:�#outfile%=groupptr%

\  �s(6)

f  �s(P%-groupptr%)

p  �s(Xbmin)

z  �s(Ybmin)

�  �s(Xtmax)

�  �s(Ytmax)

�  �#outfile%=P%

�  � first1 �

�<    Xmin=Xbmin:Ymin=Ybmin:Xmax=Xtmax:Ymax=Ytmax:first1=�

�  �

�!    � Xmin>Xbmin � Xmin=Xbmin

�!    � Ymin>Ybmin � Ymin=Ybmin

�!    � Xmax<Xtmax � Xmax=Xtmax

�!    � Ymax<Ytmax � Ymax=Ytmax

�  �

� 

��

&� �win_klik(window%,icon%,button%)
  � window%=FlexiPlan �
$"    year$=�readicon(window%,4)
.    � year$="" � year$="0"
8      year%=�(year$)
B	    �
L    Ȏ icon% �
V    � 0:
`-      �mouse(mx%, my%, mb%, window, icon)
j-      �seticon(saveas%, 1, "Plan_"+year$)
t!      �closewindow(FlexiPlan)
~.      �movewindow(saveas%, mx%-150,my%-50)
�      �openwindow(saveas%)
�    � 1:
�!      �closewindow(FlexiPlan)
�    � 2:
�      year% -=1
�      year$=�(year%)
�%      �seticon(window%, 4, year$)
�    � 3:
�      year% +=1
�      year$=�(year%)
�%      �seticon(window%, 4, year$)
�	    �
    � year%<minyear% �

      year%=minyear%
      year$=�(minyear%)
'      �seticon(FlexiPlan, 4, year$)
(J      �warning("Can't have years less than "+�(minyear%), "FlexiPlan")
2	    �
<  �
F 
P�
Z
d� �menu:� a$,r$,d%
n7ș "Wimp_DecodeMenu",,open%,wimp%,�200,�32) � ,,,a$
x'� �a$,3)="..." � d%=1:a$=�a$,�a$-3)
�&ȕ �a$,�46)>0:a$=�a$,�a$,�46)+1):�
�� d% � a$+="..."
�Ȏ a$ �
� � "Info    ":� Infobox
� � "Quit":�closedown
�:�handle_event(11,a$,"")
��
��
�
�"� �handle_event(n%,a$,b$):� p%
�Ȏ n% �
� � 1:�init
� � 4:�menu_klik(�(a$))
 � 9:�CreateFile(a$)
B � 10:�win_klik(�(a$),�(�b$,�b$,�124)-1)),�(�b$,�b$,�124)+1)))
�
"�
,
6"� �handle_event(n%,a$,b$):� p$
@Ȏ n% �
J� 3:p$=�49
TR� 6:p$="This object belongs to 'FlexiPlan', which is a WimpWorks application."
^�
h=p$
r
|� �ww_internal:�
�

00000000  0d 00 0a 0f f4 20 46 6c  65 78 69 50 6c 61 6e 0d  |..... FlexiPlan.|
00000010  00 14 38 f4 20 47 65 6e  65 72 61 74 65 64 20 62  |..8. Generated b|
00000020  79 20 57 69 6d 70 57 6f  72 6b 73 20 6f 6e 20 54  |y WimpWorks on T|
00000030  75 65 2c 31 30 20 46 65  62 20 31 39 39 38 2e 31  |ue,10 Feb 1998.1|
00000040  30 3a 34 35 3a 33 37 0d  00 1e 28 f4 20 57 69 6d  |0:45:37...(. Wim|
00000050  70 57 6f 72 6b 73 20 69  73 20 a9 20 4a 61 66 66  |pWorks is . Jaff|
00000060  61 20 53 6f 66 74 77 61  72 65 20 31 39 39 35 0d  |a Software 1995.|
00000070  00 28 04 0d 00 32 05 e0  0d 00 3c 04 0d 00 46 54  |.(...2....<...FT|
00000080  dd 20 f2 74 61 73 6b 28  f8 20 6e 61 6d 65 24 2c  |. .task(. name$,|
00000090  f8 20 73 70 72 69 74 65  24 2c f8 20 74 65 78 74  |. sprite$,. text|
000000a0  24 2c f8 20 73 69 64 65  25 2c f8 20 74 65 78 74  |$,. side%,. text|
000000b0  25 2c f8 20 70 75 72 70  24 2c f8 20 61 75 74 68  |%,. purp$,. auth|
000000c0  24 2c f8 20 76 65 72 24  2c f8 20 6f 70 74 25 29  |$,. ver$,. opt%)|
000000d0  0d 00 50 17 6e 61 6d 65  24 20 20 3d 22 46 6c 65  |..P.name$  ="Fle|
000000e0  78 69 50 6c 61 6e 22 0d  00 5a 18 73 70 72 69 74  |xiPlan"..Z.sprit|
000000f0  65 24 3d 22 21 66 6c 65  78 69 70 6c 61 6e 22 0d  |e$="!flexiplan".|
00000100  00 64 0e 74 65 78 74 24  20 20 3d 22 22 0d 00 6e  |.d.text$  =""..n|
00000110  0d 74 65 78 74 25 20 20  3d 30 0d 00 78 0e 73 69  |.text%  =0..x.si|
00000120  64 65 25 20 20 3d 2d 31  0d 00 82 26 70 75 72 70  |de%  =-1...&purp|
00000130  24 20 20 3d 22 54 6f 20  63 72 65 61 74 65 20 61  |$  ="To create a|
00000140  20 79 65 61 72 20 70 6c  61 6e 6e 65 72 22 0d 00  | year planner"..|
00000150  8c 25 61 75 74 68 24 20  20 3d 22 56 20 4d 61 72  |.%auth$  ="V Mar|
00000160  6b 77 61 72 74 20 26 20  43 20 45 67 67 69 6e 74  |kwart & C Eggint|
00000170  6f 6e 22 0d 00 96 1f 76  65 72 24 20 20 20 3d 22  |on"....ver$   ="|
00000180  30 2e 30 31 20 28 36 20  46 65 62 20 31 39 39 38  |0.01 (6 Feb 1998|
00000190  29 22 0d 00 a0 0d 6f 70  74 25 20 20 20 3d 36 0d  |)"....opt%   =6.|
000001a0  00 aa 05 e1 0d 00 b4 04  0d 00 be 10 dd 20 f2 69  |............. .i|
000001b0  6e 69 74 6d 65 6e 75 73  0d 00 c8 23 f2 6c 6f 61  |nitmenus...#.loa|
000001c0  64 74 65 6d 70 6c 61 74  65 28 22 73 61 76 65 61  |dtemplate("savea|
000001d0  73 22 2c 73 61 76 65 61  73 25 29 0d 00 d2 28 f2  |s",saveas%)...(.|
000001e0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 28 22 46 6c  |loadtemplate("Fl|
000001f0  65 78 69 50 6c 61 6e 22  2c 46 6c 65 78 69 50 6c  |exiPlan",FlexiPl|
00000200  61 6e 29 0d 00 dc 35 f2  69 63 6f 6e 6d 65 6e 75  |an)...5.iconmenu|
00000210  28 22 4d 61 69 6e 20 4d  65 6e 75 7c 5b 69 6e 66  |("Main Menu|[inf|
00000220  6f 62 6f 78 25 5d 2e 49  6e 66 6f 20 20 20 20 7c  |obox%].Info    ||
00000230  2e 51 75 69 74 7c 22 29  0d 00 e6 05 e1 0d 00 f0  |.Quit|")........|
00000240  04 0d 00 fa 19 dd 20 f2  6d 65 6e 75 5f 6b 6c 69  |...... .menu_kli|
00000250  6b 28 62 75 74 74 6f 6e  25 29 0d 01 04 25 20 20  |k(button%)...%  |
00000260  f2 6d 6f 75 73 65 28 6d  78 25 2c 6d 79 25 2c 6d  |.mouse(mx%,my%,m|
00000270  62 25 2c 77 69 6e 64 6f  77 2c 69 63 6f 6e 29 0d  |b%,window,icon).|
00000280  01 0e 14 20 20 e7 20 62  75 74 74 6f 6e 25 3c 3e  |...  . button%<>|
00000290  32 20 8c 0d 01 18 13 20  20 20 20 e7 20 66 6c 61  |2 .....    . fla|
000002a0  67 25 3d 30 20 8c 0d 01  22 31 20 20 20 20 20 20  |g%=0 ..."1      |
000002b0  f2 6d 6f 76 65 77 69 6e  64 6f 77 28 46 6c 65 78  |.movewindow(Flex|
000002c0  69 50 6c 61 6e 2c 20 6d  78 25 2d 32 35 30 2c 20  |iPlan, mx%-250, |
000002d0  6d 79 25 2b 35 30 29 0d  01 2c 09 20 20 20 20 cd  |my%+50)..,.    .|
000002e0  0d 01 36 10 20 20 20 20  66 6c 61 67 25 2b 3d 31  |..6.    flag%+=1|
000002f0  0d 01 40 1e 20 20 20 20  f2 6f 70 65 6e 77 69 6e  |..@.    .openwin|
00000300  64 6f 77 28 46 6c 65 78  69 50 6c 61 6e 29 0d 01  |dow(FlexiPlan)..|
00000310  4a 07 20 20 cd 0d 01 54  05 e1 0d 01 5e 04 0d 01  |J.  ...T....^...|
00000320  68 18 dd 20 f2 43 72 65  61 74 65 46 69 6c 65 28  |h.. .CreateFile(|
00000330  66 69 6c 65 24 29 0d 01  72 15 20 20 66 69 6c 65  |file$)..r.  file|
00000340  6e 61 6d 65 24 3d 66 69  6c 65 24 0d 01 7c 52 20  |name$=file$..|R |
00000350  20 e7 20 66 69 6c 65 6e  61 6d 65 24 3d 22 22 20  | . filename$="" |
00000360  8c 20 f2 77 61 72 6e 69  6e 67 28 22 46 69 6c 65  |. .warning("File|
00000370  6e 61 6d 65 20 6e 6f 74  20 61 70 70 72 6f 70 72  |name not appropr|
00000380  69 61 74 65 22 2c 20 22  46 6c 65 78 69 70 6c 61  |iate", "Flexipla|
00000390  6e 20 45 72 72 6f 72 22  29 20 3a 20 e1 0d 01 86  |n Error") : ....|
000003a0  1b 20 20 6f 75 74 66 69  6c 65 25 3d ae 28 66 69  |.  outfile%=.(fi|
000003b0  6c 65 6e 61 6d 65 24 29  0d 01 90 53 20 20 ee 20  |lename$)...S  . |
000003c0  85 20 d9 23 6f 75 74 66  69 6c 65 25 3a 20 f2 77  |. .#outfile%: .w|
000003d0  61 72 6e 69 6e 67 28 22  43 61 6e 27 74 20 63 72  |arning("Can't cr|
000003e0  65 61 74 65 20 46 6c 65  78 69 70 6c 61 6e 20 66  |eate Flexiplan f|
000003f0  69 6c 65 22 2c 20 22 46  6c 65 78 69 70 6c 61 6e  |ile", "Flexiplan|
00000400  20 45 72 72 6f 72 22 29  3a 20 e0 0d 01 9a 04 0d  | Error"): ......|
00000410  01 a4 1a f4 20 53 65 6e  64 20 44 72 61 77 46 69  |.... Send DrawFi|
00000420  6c 65 20 48 65 61 64 65  72 0d 01 ae 0e e3 20 49  |le Header..... I|
00000430  3d 31 20 b8 20 32 34 0d  01 b8 15 20 d5 23 6f 75  |=1 . 24.... .#ou|
00000440  74 66 69 6c 65 25 2c 42  25 28 49 29 0d 01 c2 05  |tfile%,B%(I)....|
00000450  ed 0d 01 cc 1a f4 20 53  65 6e 64 20 44 75 6d 6d  |...... Send Dumm|
00000460  79 20 42 42 6f 78 20 64  61 74 61 0d 01 d6 04 0d  |y BBox data.....|
00000470  01 e0 17 42 42 6f 78 70  74 72 25 3d 8f 23 6f 75  |...BBoxptr%=.#ou|
00000480  74 66 69 6c 65 25 0d 01  ea 0e e3 20 49 3d 31 20  |tfile%..... I=1 |
00000490  b8 20 31 36 0d 01 f4 11  d5 23 6f 75 74 66 69 6c  |. 16.....#outfil|
000004a0  65 25 2c 33 32 0d 01 fe  05 ed 0d 02 08 04 0d 02  |e%,32...........|
000004b0  12 0c 66 69 72 73 74 31  3d b9 0d 02 1c 0f f2 43  |..first1=......C|
000004c0  72 65 61 74 65 47 72 69  64 0d 02 26 13 f2 43 72  |reateGrid..&..Cr|
000004d0  65 61 74 65 54 65 78 74  41 72 65 61 0d 02 30 11  |eateTextArea..0.|
000004e0  50 25 3d 8f 23 6f 75 74  66 69 6c 65 25 0d 02 3a  |P%=.#outfile%..:|
000004f0  17 cf 23 6f 75 74 66 69  6c 65 25 3d 42 42 6f 78  |..#outfile%=BBox|
00000500  70 74 72 25 0d 02 44 0c  f2 73 28 58 6d 69 6e 29  |ptr%..D..s(Xmin)|
00000510  0d 02 4e 0c f2 73 28 59  6d 69 6e 29 0d 02 58 0c  |..N..s(Ymin)..X.|
00000520  f2 73 28 58 6d 61 78 29  0d 02 62 0c f2 73 28 59  |.s(Xmax)..b..s(Y|
00000530  6d 61 78 29 0d 02 6c 11  cf 23 6f 75 74 66 69 6c  |max)..l..#outfil|
00000540  65 25 3d 50 25 0d 02 76  0e d9 23 6f 75 74 66 69  |e%=P%..v..#outfi|
00000550  6c 65 25 0d 02 80 27 ff  28 22 53 45 54 54 59 50  |le%...'.("SETTYP|
00000560  45 20 22 2b 66 69 6c 65  6e 61 6d 65 24 2b 22 20  |E "+filename$+" |
00000570  44 72 61 77 66 69 6c 65  22 29 0d 02 8a 1a f2 6f  |Drawfile").....o|
00000580  70 65 6e 77 69 6e 64 6f  77 28 46 6c 65 78 69 50  |penwindow(FlexiP|
00000590  6c 61 6e 29 0d 02 94 05  e1 0d 02 9e 04 0d 02 a8  |lan)............|
000005a0  0b dd 20 f2 69 6e 69 74  0d 02 b2 16 f4 20 44 72  |.. .init..... Dr|
000005b0  61 77 20 66 69 6c 65 20  68 65 61 64 65 72 0d 02  |aw file header..|
000005c0  bc 23 20 de 20 42 25 28  32 34 29 2c 20 44 24 28  |.# . B%(24), D$(|
000005d0  36 29 2c 20 4d 24 28 31  33 29 2c 20 4e 28 31 33  |6), M$(13), N(13|
000005e0  29 0d 02 c6 09 20 f7 20  2b 31 0d 02 d0 4d 20 dc  |).... . +1...M .|
000005f0  20 36 38 2c 31 31 34 2c  39 37 2c 31 31 39 2c 32  | 68,114,97,119,2|
00000600  30 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |01,0,0,0,0,0,0,0|
00000610  2c 36 35 2c 31 31 34 2c  39 39 2c 36 38 2c 31 31  |,65,114,99,68,11|
00000620  34 2c 39 37 2c 31 31 39  2c 33 32 2c 33 32 2c 33  |4,97,119,32,32,3|
00000630  32 2c 33 32 2c 33 32 0d  02 da 0f 20 e3 20 49 3d  |2,32,32.... . I=|
00000640  31 20 b8 20 32 34 0d 02  e4 0e 20 20 20 f3 20 42  |1 . 24....   . B|
00000650  25 28 49 29 0d 02 ee 06  20 ed 0d 02 f8 05 20 0d  |%(I).... ..... .|
00000660  03 02 12 f4 20 44 61 79  73 20 6f 66 20 57 65 65  |.... Days of Wee|
00000670  6b 0d 03 0c 09 20 f7 20  2b 31 0d 03 16 22 20 dc  |k.... . +1..." .|
00000680  20 53 75 6e 2c 4d 6f 6e  2c 54 75 65 2c 57 65 64  | Sun,Mon,Tue,Wed|
00000690  2c 54 68 75 2c 46 72 69  2c 53 61 74 0d 03 20 0e  |,Thu,Fri,Sat.. .|
000006a0  20 e3 20 49 3d 30 20 b8  20 36 0d 03 2a 0e 20 20  | . I=0 . 6..*.  |
000006b0  20 f3 20 44 24 28 49 29  0d 03 34 06 20 ed 0d 03  | . D$(I)..4. ...|
000006c0  3e 05 20 0d 03 48 14 f4  20 4d 6f 6e 74 68 73 20  |>. ..H.. Months |
000006d0  6f 66 20 59 65 61 72 0d  03 52 09 20 f7 20 2b 31  |of Year..R. . +1|
000006e0  0d 03 5c 80 20 dc 20 4a  61 6e 75 61 72 79 2c 33  |..\. . January,3|
000006f0  31 2c 46 65 62 72 75 61  72 79 2c 32 38 2c 4d 61  |1,February,28,Ma|
00000700  72 63 68 2c 33 31 2c 41  70 72 69 6c 2c 33 30 2c  |rch,31,April,30,|
00000710  4d 61 79 2c 33 31 2c 4a  75 6e 65 2c 33 30 2c 4a  |May,31,June,30,J|
00000720  75 6c 79 2c 33 31 2c 41  75 67 75 73 74 2c 33 31  |uly,31,August,31|
00000730  2c 53 65 70 74 65 6d 62  65 72 2c 33 30 2c 4f 63  |,September,30,Oc|
00000740  74 6f 62 65 72 2c 33 31  2c 4e 6f 76 65 6d 62 65  |tober,31,Novembe|
00000750  72 2c 33 30 2c 44 65 63  65 6d 62 65 72 2c 33 31  |r,30,December,31|
00000760  0d 03 66 0f 20 e3 20 49  3d 31 20 b8 20 31 32 0d  |..f. . I=1 . 12.|
00000770  03 70 13 20 20 20 f3 20  4d 24 28 49 29 2c 4e 28  |.p.   . M$(I),N(|
00000780  49 29 0d 03 7a 06 20 ed  0d 03 84 04 0d 03 8e 0d  |I)..z. .........|
00000790  20 20 66 6c 61 67 25 3d  30 0d 03 98 13 20 20 6d  |  flag%=0....  m|
000007a0  69 6e 79 65 61 72 25 3d  31 39 38 30 0d 03 a2 14  |inyear%=1980....|
000007b0  20 20 64 61 74 65 24 3d  a4 73 79 73 64 61 74 65  |  date$=.sysdate|
000007c0  0d 03 ac 16 20 20 79 65  61 72 24 3d c2 64 61 74  |....  year$=.dat|
000007d0  65 24 2c 20 34 29 0d 03  b6 18 20 20 6d 6f 6e 74  |e$, 4)....  mont|
000007e0  68 24 3d c1 64 61 74 65  24 2c 34 2c 33 29 0d 03  |h$=.date$,4,3)..|
000007f0  c0 15 20 20 79 65 61 72  58 25 3d a0 28 79 65 61  |..  yearX%=.(yea|
00000800  72 24 29 0d 03 ca 23 20  20 f2 73 65 74 69 63 6f  |r$)...#  .setico|
00000810  6e 28 46 6c 65 78 69 50  6c 61 6e 2c 20 34 2c 20  |n(FlexiPlan, 4, |
00000820  79 65 61 72 24 29 0d 03  d4 05 e1 0d 03 de 04 0d  |year$)..........|
00000830  03 e8 17 dd 20 a4 59 65  61 72 53 74 61 72 74 28  |.... .YearStart(|
00000840  79 65 61 72 25 29 0d 03  f2 07 ea 20 49 0d 03 fc  |year%)..... I...|
00000850  0f 79 24 3d c3 28 79 65  61 72 25 29 0d 04 06 04  |.y$=.(year%)....|
00000860  0d 04 10 10 f4 20 43 68  65 63 6b 20 74 68 69 73  |..... Check this|
00000870  0d 04 1a 09 20 20 53 3d  31 0d 04 24 16 20 20 e3  |....  S=1..$.  .|
00000880  20 49 3d 31 39 38 30 20  b8 20 79 65 61 72 25 0d  | I=1980 . year%.|
00000890  04 2e 1f 20 20 20 20 e7  20 49 20 83 20 34 3d 31  |...    . I . 4=1|
000008a0  20 53 3d 53 2b 32 20 8b  20 53 3d 53 2b 31 0d 04  | S=S+2 . S=S+1..|
000008b0  38 07 20 20 ed 0d 04 42  0a 3d 53 20 83 20 37 0d  |8.  ...B.=S . 7.|
000008c0  04 4c 04 0d 04 56 04 0d  04 60 0b dd 20 f2 74 65  |.L...V...`.. .te|
000008d0  78 74 0d 04 6a 04 0d 04  74 19 20 20 53 3d a4 59  |xt..j...t.  S=.Y|
000008e0  65 61 72 53 74 61 72 74  28 79 65 61 72 25 29 0d  |earStart(year%).|
000008f0  04 7e 17 f4 20 49 73 20  69 74 20 61 20 6c 65 61  |.~.. Is it a lea|
00000900  70 20 79 65 61 72 0d 04  88 0d 20 20 4e 28 32 29  |p year....  N(2)|
00000910  3d 32 38 0d 04 92 19 20  20 e7 20 28 79 65 61 72  |=28....  . (year|
00000920  25 20 83 20 34 30 30 29  3d 30 20 8c 0d 04 9c 0f  |% . 400)=0 .....|
00000930  20 20 20 20 4e 28 32 29  3d 32 39 0d 04 a6 07 20  |    N(2)=29.... |
00000940  20 cc 0d 04 b0 21 20 20  20 20 e7 20 28 79 65 61  | ....!    . (yea|
00000950  72 25 20 83 20 34 29 3d  30 20 8c 20 4e 28 32 29  |r% . 4)=0 . N(2)|
00000960  3d 32 39 0d 04 ba 23 20  20 20 20 e7 20 28 79 65  |=29...#    . (ye|
00000970  61 72 25 20 83 20 31 30  30 29 3d 30 20 8c 20 4e  |ar% . 100)=0 . N|
00000980  28 32 29 3d 32 38 0d 04  c4 07 20 20 cd 0d 04 ce  |(2)=28....  ....|
00000990  04 0d 04 d8 17 20 20 d5  23 6f 75 74 66 69 6c 65  |.....  .#outfile|
000009a0  25 2c 22 5c 21 20 31 22  0d 04 e2 28 20 20 d5 23  |%,"\! 1"...(  .#|
000009b0  6f 75 74 66 69 6c 65 25  2c 22 5c 46 20 30 20 54  |outfile%,"\F 0 T|
000009c0  72 69 6e 69 74 79 2e 4d  65 64 69 75 6d 20 37 22  |rinity.Medium 7"|
000009d0  0d 04 ec 27 20 20 d5 23  6f 75 74 66 69 6c 65 25  |...'  .#outfile%|
000009e0  2c 22 5c 46 20 31 20 54  72 69 6e 69 74 79 2e 42  |,"\F 1 Trinity.B|
000009f0  6f 6c 64 20 31 30 22 0d  04 f6 1b 20 20 d5 23 6f  |old 10"....  .#o|
00000a00  75 74 66 69 6c 65 25 2c  22 5c 41 4c 2f 5c 44 31  |utfile%,"\AL/\D1|
00000a10  34 22 0d 05 00 1e 20 20  d5 23 6f 75 74 66 69 6c  |4"....  .#outfil|
00000a20  65 25 2c 22 5c 4c 31 34  2f 5c 50 30 2f 5c 30 22  |e%,"\L14/\P0/\0"|
00000a30  0d 05 0a 15 20 20 d5 23  6f 75 74 66 69 6c 65 25  |....  .#outfile%|
00000a40  2c 22 5c 31 22 0d 05 14  16 20 20 d5 23 6f 75 74  |,"\1"....  .#out|
00000a50  66 69 6c 65 25 2c 22 5c  41 43 22 0d 05 1e 19 20  |file%,"\AC".... |
00000a60  20 d5 23 6f 75 74 66 69  6c 65 25 2c c3 28 79 65  | .#outfile%,.(ye|
00000a70  61 72 25 29 0d 05 28 13  20 20 d5 23 6f 75 74 66  |ar%)..(.  .#outf|
00000a80  69 6c 65 25 2c 31 30 0d  05 32 13 20 20 d5 23 6f  |ile%,10..2.  .#o|
00000a90  75 74 66 69 6c 65 25 2c  31 30 0d 05 3c 10 20 20  |utfile%,10..<.  |
00000aa0  e3 20 44 3d 30 20 b8 20  33 36 0d 05 46 1c 20 20  |. D=0 . 36..F.  |
00000ab0  20 20 d5 23 6f 75 74 66  69 6c 65 25 2c 44 24 28  |  .#outfile%,D$(|
00000ac0  44 20 83 20 37 29 0d 05  50 15 20 20 20 20 d5 23  |D . 7)..P.    .#|
00000ad0  6f 75 74 66 69 6c 65 25  2c 31 30 0d 05 5a 15 20  |outfile%,10..Z. |
00000ae0  20 20 20 d5 23 6f 75 74  66 69 6c 65 25 2c 31 30  |   .#outfile%,10|
00000af0  0d 05 64 07 20 20 ed 0d  05 6e 16 20 20 d5 23 6f  |..d.  ...n.  .#o|
00000b00  75 74 66 69 6c 65 25 2c  22 5c 41 4c 22 0d 05 78  |utfile%,"\AL"..x|
00000b10  04 0d 05 82 10 20 20 e3  20 45 3d 31 20 b8 20 31  |.....  . E=1 . 1|
00000b20  32 0d 05 8c 18 20 20 20  20 d5 23 6f 75 74 66 69  |2....    .#outfi|
00000b30  6c 65 25 2c 22 5c 31 22  3b 0d 05 96 27 20 20 20  |le%,"\1";...'   |
00000b40  20 d5 23 6f 75 74 66 69  6c 65 25 2c 22 5c 41 43  | .#outfile%,"\AC|
00000b50  2f 22 2b 4d 24 28 45 29  2b 22 5c 41 4c 2f 22 3b  |/"+M$(E)+"\AL/";|
00000b60  0d 05 a0 15 20 20 20 20  d5 23 6f 75 74 66 69 6c  |....    .#outfil|
00000b70  65 25 2c 31 30 0d 05 aa  15 20 20 20 20 d5 23 6f  |e%,10....    .#o|
00000b80  75 74 66 69 6c 65 25 2c  31 30 0d 05 b4 18 20 20  |utfile%,10....  |
00000b90  20 20 d5 23 6f 75 74 66  69 6c 65 25 2c 22 5c 30  |  .#outfile%,"\0|
00000ba0  22 3b 0d 05 be 0b 20 20  20 20 42 3d 53 0d 05 c8  |";....    B=S...|
00000bb0  10 20 20 20 20 c8 95 20  42 20 3e 20 30 0d 05 d2  |.    .. B > 0...|
00000bc0  3c 20 20 20 20 20 20 20  20 d5 23 6f 75 74 66 69  |<        .#outfi|
00000bd0  6c 65 25 2c 22 5c 41 43  2f 7c 7c 7c 7c 7c 7c 7c  |le%,"\AC/||||||||
00000be0  7c 7c 7c 7c 7c 7c 7c 7c  7c 7c 7c 7c 7c 7c 7c 7c  ||||||||||||||||||
00000bf0  7c 7c 7c 5c 41 4c 2f 22  3b 0d 05 dc 19 20 20 20  ||||\AL/";....   |
00000c00  20 20 20 20 20 d5 23 6f  75 74 66 69 6c 65 25 2c  |     .#outfile%,|
00000c10  31 30 0d 05 e6 19 20 20  20 20 20 20 20 20 d5 23  |10....        .#|
00000c20  6f 75 74 66 69 6c 65 25  2c 31 30 0d 05 f0 10 20  |outfile%,10.... |
00000c30  20 20 20 20 20 20 20 42  2d 3d 31 0d 05 fa 09 20  |       B-=1.... |
00000c40  20 20 20 ce 0d 06 04 05  20 0d 06 0e 14 20 20 20  |   ..... ....   |
00000c50  20 e3 20 44 3d 31 20 b8  20 4e 28 45 29 0d 06 18  | . D=1 . N(E)...|
00000c60  22 20 20 20 20 20 20 d5  23 6f 75 74 66 69 6c 65  |"      .#outfile|
00000c70  25 2c c2 22 20 20 20 22  2b c3 20 44 2c 33 29 0d  |%,."   "+. D,3).|
00000c80  06 22 17 20 20 20 20 20  20 d5 23 6f 75 74 66 69  |.".      .#outfi|
00000c90  6c 65 25 2c 31 30 0d 06  2c 09 20 20 20 20 ed 0d  |le%,10..,.    ..|
00000ca0  06 36 05 20 0d 06 40 13  20 20 20 20 42 3d 33 37  |.6. ..@.    B=37|
00000cb0  2d 53 2d 4e 28 45 29 0d  06 4a 10 20 20 20 20 c8  |-S-N(E)..J.    .|
00000cc0  95 20 42 20 3e 20 30 0d  06 54 3a 20 20 20 20 20  |. B > 0..T:     |
00000cd0  20 d5 23 6f 75 74 66 69  6c 65 25 2c 22 5c 41 43  | .#outfile%,"\AC|
00000ce0  2f 7c 7c 7c 7c 7c 7c 7c  7c 7c 7c 7c 7c 7c 7c 7c  |/||||||||||||||||
00000cf0  7c 7c 7c 7c 7c 7c 7c 7c  7c 7c 7c 5c 41 4c 2f 22  ||||||||||||\AL/"|
00000d00  3b 0d 06 5e 17 20 20 20  20 20 20 d5 23 6f 75 74  |;..^.      .#out|
00000d10  66 69 6c 65 25 2c 31 30  0d 06 68 17 20 20 20 20  |file%,10..h.    |
00000d20  20 20 d5 23 6f 75 74 66  69 6c 65 25 2c 31 30 0d  |  .#outfile%,10.|
00000d30  06 72 0e 20 20 20 20 20  20 42 2d 3d 31 0d 06 7c  |.r.      B-=1..||
00000d40  09 20 20 20 20 ce 0d 06  86 18 20 20 20 20 53 3d  |.    .....    S=|
00000d50  28 53 20 2b 20 4e 28 45  29 29 20 83 20 37 0d 06  |(S + N(E)) . 7..|
00000d60  90 07 20 20 ed 0d 06 9a  16 20 20 d5 23 6f 75 74  |..  .....  .#out|
00000d70  66 69 6c 65 25 2c 22 5c  31 22 3b 0d 06 a4 18 20  |file%,"\1";.... |
00000d80  20 d5 23 6f 75 74 66 69  6c 65 25 2c 22 5c 41 43  | .#outfile%,"\AC|
00000d90  2f 22 3b 0d 06 ae 19 20  20 d5 23 6f 75 74 66 69  |/";....  .#outfi|
00000da0  6c 65 25 2c c3 28 79 65  61 72 25 29 0d 06 b8 13  |le%,.(year%)....|
00000db0  20 20 d5 23 6f 75 74 66  69 6c 65 25 2c 31 30 0d  |  .#outfile%,10.|
00000dc0  06 c2 13 20 20 d5 23 6f  75 74 66 69 6c 65 25 2c  |...  .#outfile%,|
00000dd0  31 30 0d 06 cc 10 20 20  e3 20 44 3d 30 20 b8 20  |10....  . D=0 . |
00000de0  33 36 0d 06 d6 1c 20 20  20 20 d5 23 6f 75 74 66  |36....    .#outf|
00000df0  69 6c 65 25 2c 44 24 28  44 20 83 20 37 29 0d 06  |ile%,D$(D . 7)..|
00000e00  e0 15 20 20 20 20 d5 23  6f 75 74 66 69 6c 65 25  |..    .#outfile%|
00000e10  2c 31 30 0d 06 ea 15 20  20 20 20 d5 23 6f 75 74  |,10....    .#out|
00000e20  66 69 6c 65 25 2c 31 30  0d 06 f4 07 20 20 ed 0d  |file%,10....  ..|
00000e30  06 fe 11 20 20 e7 20 4e  28 32 29 3d 32 39 20 8c  |...  . N(2)=29 .|
00000e40  0d 07 08 18 20 20 20 20  d5 23 6f 75 74 66 69 6c  |....    .#outfil|
00000e50  65 25 2c 22 5c 41 4c 22  0d 07 12 07 20 20 cc 0d  |e%,"\AL"....  ..|
00000e60  07 1c 19 20 20 20 20 d5  23 6f 75 74 66 69 6c 65  |...    .#outfile|
00000e70  25 2c 22 5c 41 4c 2f 22  0d 07 26 07 20 20 cd 0d  |%,"\AL/"..&.  ..|
00000e80  07 30 0b 20 20 f2 73 28  30 29 0d 07 3a 05 e1 0d  |.0.  .s(0)..:...|
00000e90  07 44 04 0d 07 4e 0c dd  20 f2 73 28 62 25 29 0d  |.D...N.. .s(b%).|
00000ea0  07 58 09 20 20 ea 20 49  0d 07 62 0f 20 20 e3 20  |.X.  . I..b.  . |
00000eb0  49 3d 31 20 b8 20 34 0d  07 6c 1d 20 20 20 20 d5  |I=1 . 4..l.    .|
00000ec0  23 6f 75 74 66 69 6c 65  25 2c 28 62 25 20 80 20  |#outfile%,(b% . |
00000ed0  32 35 35 29 0d 07 76 10  20 20 20 20 62 25 3d 62  |255)..v.    b%=b|
00000ee0  25 3e 3e 38 0d 07 80 07  20 20 ed 0d 07 8a 05 e1  |%>>8....  ......|
00000ef0  0d 07 94 04 0d 07 9e 1d  dd 20 f2 63 6f 6c 75 6d  |......... .colum|
00000f00  6e 28 58 31 2c 20 59 31  2c 20 58 32 2c 20 59 32  |n(X1, Y1, X2, Y2|
00000f10  29 0d 07 a8 0e 20 20 58  31 3d 58 31 3c 3c 38 0d  |)....  X1=X1<<8.|
00000f20  07 b2 0e 20 20 59 31 3d  59 31 3c 3c 38 0d 07 bc  |...  Y1=Y1<<8...|
00000f30  0e 20 20 58 32 3d 58 32  3c 3c 38 0d 07 c6 0e 20  |.  X2=X2<<8.... |
00000f40  20 59 32 3d 59 32 3c 3c  38 0d 07 d0 0f 20 20 e7  | Y2=Y2<<8....  .|
00000f50  20 66 69 72 73 74 20 8c  0d 07 da 0d 20 20 20 20  | first .....    |
00000f60  58 62 3d 58 31 0d 07 e4  0d 20 20 20 20 59 62 3d  |Xb=X1....    Yb=|
00000f70  59 31 0d 07 ee 0d 20 20  20 20 58 74 3d 58 32 0d  |Y1....    Xt=X2.|
00000f80  07 f8 0d 20 20 20 20 59  74 3d 59 32 0d 08 02 0f  |...    Yt=Y2....|
00000f90  20 20 20 20 66 69 72 73  74 3d a3 0d 08 0c 07 20  |    first=..... |
00000fa0  20 cc 0d 08 16 17 20 20  20 20 e7 20 58 62 3e 58  | .....    . Xb>X|
00000fb0  31 20 8c 20 58 62 3d 58  31 0d 08 20 17 20 20 20  |1 . Xb=X1.. .   |
00000fc0  20 e7 20 59 62 3e 59 31  20 8c 20 59 62 3d 59 31  | . Yb>Y1 . Yb=Y1|
00000fd0  0d 08 2a 17 20 20 20 20  e7 20 58 74 3c 58 32 20  |..*.    . Xt<X2 |
00000fe0  8c 20 58 74 3d 58 32 0d  08 34 17 20 20 20 20 e7  |. Xt=X2..4.    .|
00000ff0  20 59 74 3c 59 32 20 8c  20 59 74 3d 59 32 0d 08  | Yt<Y2 . Yt=Y2..|
00001000  3e 07 20 20 cd 0d 08 48  0c 20 20 f2 73 28 31 30  |>.  ...H.  .s(10|
00001010  29 0d 08 52 0c 20 20 f2  73 28 32 34 29 0d 08 5c  |)..R.  .s(24)..\|
00001020  0c 20 20 f2 73 28 58 31  29 0d 08 66 0c 20 20 f2  |.  .s(X1)..f.  .|
00001030  73 28 59 31 29 0d 08 70  0c 20 20 f2 73 28 58 32  |s(Y1)..p.  .s(X2|
00001040  29 0d 08 7a 0c 20 20 f2  73 28 59 32 29 0d 08 84  |)..z.  .s(Y2)...|
00001050  05 e1 0d 08 8e 04 0d 08  98 15 dd 20 f2 43 72 65  |........... .Cre|
00001060  61 74 65 54 65 78 74 41  72 65 61 0d 08 a2 07 ea  |ateTextArea.....|
00001070  20 49 0d 08 ac 0b 66 69  72 73 74 3d b9 0d 08 b6  | I....first=....|
00001080  16 54 78 74 70 74 72 25  3d 8f 23 6f 75 74 66 69  |.Txtptr%=.#outfi|
00001090  6c 65 25 0d 08 c0 04 0d  08 ca 1c f4 20 53 65 6e  |le%......... Sen|
000010a0  64 20 44 75 6d 6d 79 20  74 65 78 74 20 68 65 61  |d Dummy text hea|
000010b0  64 65 72 0d 08 d4 0e e3  20 49 3d 31 20 b8 20 32  |der..... I=1 . 2|
000010c0  34 0d 08 de 13 20 20 d5  23 6f 75 74 66 69 6c 65  |4....  .#outfile|
000010d0  25 2c 34 32 0d 08 e8 05  ed 0d 08 f2 14 f4 20 43  |%,42.......... C|
000010e0  72 65 61 74 65 20 63 6f  6c 75 6d 6e 73 0d 08 fc  |reate columns...|
000010f0  07 61 3d 39 0d 09 06 22  f2 63 6f 6c 75 6d 6e 28  |.a=9...".column(|
00001100  31 30 30 2c 36 34 2c 31  37 33 2c 61 2b 36 34 2b  |100,64,173,a+64+|
00001110  33 38 2a 33 35 29 0d 09  10 0e e3 20 49 3d 30 20  |38*35)..... I=0 |
00001120  b8 20 31 31 0d 09 1a 30  20 20 f2 63 6f 6c 75 6d  |. 11...0  .colum|
00001130  6e 28 31 37 33 2b 49 2a  31 34 36 2c 36 34 2c 33  |n(173+I*146,64,3|
00001140  31 39 2b 49 2a 31 34 36  2c 61 2b 36 34 2b 33 38  |19+I*146,a+64+38|
00001150  2a 33 35 29 0d 09 24 05  ed 0d 09 2e 30 f2 63 6f  |*35)..$.....0.co|
00001160  6c 75 6d 6e 28 31 37 33  2b 31 32 2a 31 34 36 2c  |lumn(173+12*146,|
00001170  36 34 2c 32 34 36 2b 31  32 2a 31 34 36 2c 61 2b  |64,246+12*146,a+|
00001180  36 34 2b 33 38 2a 33 35  29 0d 09 38 04 0d 09 42  |64+38*35)..8...B|
00001190  11 f4 20 53 65 6e 64 20  46 6f 6f 74 65 72 0d 09  |.. Send Footer..|
000011a0  4c 0d e3 20 49 3d 31 20  b8 20 34 0d 09 56 0b 20  |L.. I=1 . 4..V. |
000011b0  20 f2 73 28 30 29 0d 09  60 05 ed 0d 09 6a 04 0d  | .s(0)..`....j..|
000011c0  09 74 11 f2 73 28 26 46  46 46 46 46 46 30 30 29  |.t..s(&FFFFFF00)|
000011d0  0d 09 7e 04 0d 09 88 0f  f4 20 73 65 6e 64 20 54  |..~...... send T|
000011e0  65 78 74 0d 09 92 04 0d  09 9c 09 f2 74 65 78 74  |ext.........text|
000011f0  0d 09 a6 1a f4 20 4e 6f  77 20 73 65 6e 64 20 52  |..... Now send R|
00001200  65 61 6c 20 68 65 61 64  65 72 0d 09 b0 11 50 25  |eal header....P%|
00001210  3d 8f 23 6f 75 74 66 69  6c 65 25 0d 09 ba 16 cf  |=.#outfile%.....|
00001220  23 6f 75 74 66 69 6c 65  25 3d 54 78 74 70 74 72  |#outfile%=Txtptr|
00001230  25 0d 09 c4 09 f2 73 28  39 29 0d 09 ce 1b f2 73  |%.....s(9).....s|
00001240  28 34 2a 28 28 50 25 2d  54 78 74 70 74 72 25 29  |(4*((P%-Txtptr%)|
00001250  81 20 34 29 29 0d 09 d8  0a f2 73 28 58 62 29 0d  |. 4)).....s(Xb).|
00001260  09 e2 0a f2 73 28 59 62  29 0d 09 ec 0a f2 73 28  |....s(Yb).....s(|
00001270  58 74 29 0d 09 f6 0a f2  73 28 59 74 29 0d 0a 00  |Xt).....s(Yt)...|
00001280  11 cf 23 6f 75 74 66 69  6c 65 25 3d 50 25 0d 0a  |..#outfile%=P%..|
00001290  0a 04 0d 0a 14 0e e7 20  66 69 72 73 74 31 20 8c  |....... first1 .|
000012a0  0d 0a 1e 2e 20 20 58 6d  69 6e 3d 58 62 3a 59 6d  |....  Xmin=Xb:Ym|
000012b0  69 6e 3d 59 62 3a 58 6d  61 78 3d 58 74 3a 59 6d  |in=Yb:Xmax=Xt:Ym|
000012c0  61 78 3d 59 74 3a 66 69  72 73 74 31 3d a3 0d 0a  |ax=Yt:first1=...|
000012d0  28 05 cc 0d 0a 32 19 20  20 e7 20 58 6d 69 6e 3e  |(....2.  . Xmin>|
000012e0  58 62 20 8c 20 58 6d 69  6e 3d 58 62 0d 0a 3c 19  |Xb . Xmin=Xb..<.|
000012f0  20 20 e7 20 59 6d 69 6e  3e 59 62 20 8c 20 59 6d  |  . Ymin>Yb . Ym|
00001300  69 6e 3d 59 62 0d 0a 46  19 20 20 e7 20 58 6d 61  |in=Yb..F.  . Xma|
00001310  78 3c 58 74 20 8c 20 58  6d 61 78 3d 58 74 0d 0a  |x<Xt . Xmax=Xt..|
00001320  50 19 20 20 e7 20 59 6d  61 78 3c 59 74 20 8c 20  |P.  . Ymax<Yt . |
00001330  59 6d 61 78 3d 59 74 0d  0a 5a 05 cd 0d 0a 64 04  |Ymax=Yt..Z....d.|
00001340  0d 0a 6e 05 e1 0d 0a 78  04 0d 0a 82 2a dd 20 f2  |..n....x....*. .|
00001350  43 72 65 61 74 65 4c 69  6e 65 28 58 31 2c 20 59  |CreateLine(X1, Y|
00001360  31 2c 20 58 32 2c 20 59  32 2c 20 74 68 2c 20 63  |1, X2, Y2, th, c|
00001370  6f 6c 29 0d 0a 8c 32 20  20 58 31 3d 58 31 3c 3c  |ol)...2  X1=X1<<|
00001380  38 3a 59 31 3d 59 31 3c  3c 38 3a 58 32 3d 58 32  |8:Y1=Y1<<8:X2=X2|
00001390  3c 3c 38 3a 59 32 3d 59  32 3c 3c 38 3a 74 68 3d  |<<8:Y2=Y2<<8:th=|
000013a0  74 68 3c 3c 38 0d 0a 96  29 20 20 f4 20 46 69 6e  |th<<8...)  . Fin|
000013b0  64 20 62 6f 75 6e 64 61  72 79 20 62 6f 78 20 64  |d boundary box d|
000013c0  61 74 61 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 0a  |ata ----------..|
000013d0  a0 05 20 0d 0a aa 1d 20  20 58 62 3d 58 31 3a 59  |.. ....  Xb=X1:Y|
000013e0  62 3d 59 31 3a 58 74 3d  58 32 3a 59 74 3d 59 32  |b=Y1:Xt=X2:Yt=Y2|
000013f0  0d 0a b4 16 20 20 e7 20  58 74 3c 58 62 20 c8 94  |....  . Xt<Xb ..|
00001400  20 58 74 2c 58 62 0d 0a  be 16 20 20 e7 20 59 74  | Xt,Xb....  . Yt|
00001410  3c 59 62 20 c8 94 20 59  74 2c 59 62 0d 0a c8 1e  |<Yb .. Yt,Yb....|
00001420  20 20 4c 3d b6 28 28 58  32 2d 58 31 29 5e 32 2b  |  L=.((X2-X1)^2+|
00001430  28 59 32 2d 59 31 29 5e  32 29 0d 0a d2 0e 20 20  |(Y2-Y1)^2)....  |
00001440  e7 20 4c 3c 3e 30 20 8c  0d 0a dc 1c 20 20 20 20  |. L<>0 .....    |
00001450  64 58 3d 94 28 59 32 2d  59 31 29 2a 74 68 2f 28  |dX=.(Y2-Y1)*th/(|
00001460  32 2a 4c 29 0d 0a e6 1c  20 20 20 20 64 59 3d 94  |2*L)....    dY=.|
00001470  28 58 32 2d 58 31 29 2a  74 68 2f 28 32 2a 4c 29  |(X2-X1)*th/(2*L)|
00001480  0d 0a f0 23 20 20 20 20  58 62 2d 3d 64 58 3a 58  |...#    Xb-=dX:X|
00001490  74 2b 3d 64 58 3a 59 62  2d 3d 64 59 3a 59 74 2b  |t+=dX:Yb-=dY:Yt+|
000014a0  3d 64 59 0d 0a fa 07 20  20 cd 0d 0b 04 05 20 0d  |=dY....  ..... .|
000014b0  0b 0e 25 20 20 f4 20 52  65 6d 20 4b 65 65 70 20  |..%  . Rem Keep |
000014c0  42 6f 75 6e 64 61 72 79  20 42 6f 78 20 4d 69 6e  |Boundary Box Min|
000014d0  2f 4d 61 78 0d 0b 18 05  20 0d 0b 22 0f 20 20 e7  |/Max.... ..".  .|
000014e0  20 66 69 72 73 74 20 8c  0d 0b 2c 33 20 20 20 20  | first ...,3    |
000014f0  58 62 6d 69 6e 3d 58 62  3a 59 62 6d 69 6e 3d 59  |Xbmin=Xb:Ybmin=Y|
00001500  62 3a 58 74 6d 61 78 3d  58 74 3a 59 74 6d 61 78  |b:Xtmax=Xt:Ytmax|
00001510  3d 59 74 3a 66 69 72 73  74 3d a3 0d 0b 36 07 20  |=Yt:first=...6. |
00001520  20 cc 0d 0b 40 1d 20 20  20 20 e7 20 58 62 6d 69  | ...@.    . Xbmi|
00001530  6e 3e 58 62 20 8c 20 58  62 6d 69 6e 3d 58 62 0d  |n>Xb . Xbmin=Xb.|
00001540  0b 4a 1d 20 20 20 20 e7  20 59 62 6d 69 6e 3e 59  |.J.    . Ybmin>Y|
00001550  62 20 8c 20 59 62 6d 69  6e 3d 59 62 0d 0b 54 1d  |b . Ybmin=Yb..T.|
00001560  20 20 20 20 e7 20 58 74  6d 61 78 3c 58 74 20 8c  |    . Xtmax<Xt .|
00001570  20 58 74 6d 61 78 3d 58  74 0d 0b 5e 1d 20 20 20  | Xtmax=Xt..^.   |
00001580  20 e7 20 59 74 6d 61 78  3c 59 74 20 8c 20 59 74  | . Ytmax<Yt . Yt|
00001590  6d 61 78 3d 59 74 0d 0b  68 07 20 20 cd 0d 0b 72  |max=Yt..h.  ...r|
000015a0  04 0d 0b 7c 16 f4 20 4f  4b 20 53 65 6e 64 20 61  |...|.. OK Send a|
000015b0  6c 6c 20 64 61 74 61 0d  0b 86 04 0d 0b 90 09 f2  |ll data.........|
000015c0  73 28 32 29 0d 0b 9a 0a  f2 73 28 36 38 29 0d 0b  |s(2).....s(68)..|
000015d0  a4 0a f2 73 28 58 62 29  0d 0b ae 0a f2 73 28 59  |...s(Xb).....s(Y|
000015e0  62 29 0d 0b b8 0a f2 73  28 58 74 29 0d 0b c2 0a  |b).....s(Xt)....|
000015f0  f2 73 28 59 74 29 0d 0b  cc 11 f2 73 28 26 46 46  |.s(Yt).....s(&FF|
00001600  46 46 46 46 46 46 29 0d  0b d6 0b f2 73 28 63 6f  |FFFFFF).....s(co|
00001610  6c 29 0d 0b e0 0a f2 73  28 74 68 29 0d 0b ea 11  |l).....s(th)....|
00001620  f2 73 28 26 32 30 31 30  30 30 34 32 29 0d 0b f4  |.s(&20100042)...|
00001630  09 f2 73 28 32 29 0d 0b  fe 0a f2 73 28 58 31 29  |..s(2).....s(X1)|
00001640  0d 0c 08 0a f2 73 28 59  31 29 0d 0c 12 09 f2 73  |.....s(Y1).....s|
00001650  28 38 29 0d 0c 1c 0a f2  73 28 58 32 29 0d 0c 26  |(8).....s(X2)..&|
00001660  0a f2 73 28 59 32 29 0d  0c 30 09 f2 73 28 30 29  |..s(Y2)..0..s(0)|
00001670  0d 0c 3a 08 63 2b 3d 31  0d 0c 44 05 e1 0d 0c 4e  |..:.c+=1..D....N|
00001680  04 0d 0c 58 11 dd 20 f2  43 72 65 61 74 65 47 72  |...X.. .CreateGr|
00001690  69 64 0d 0c 62 05 20 0d  0c 6c 2a 20 20 f4 20 53  |id..b. ..l*  . S|
000016a0  65 6e 64 20 64 75 6d 6d  79 20 47 72 6f 75 70 20  |end dummy Group |
000016b0  64 61 74 61 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |data -----------|
000016c0  2d 0d 0c 76 1a 20 20 67  72 6f 75 70 70 74 72 25  |-..v.  groupptr%|
000016d0  3d 8f 23 6f 75 74 66 69  6c 65 25 0d 0c 80 10 20  |=.#outfile%.... |
000016e0  20 e3 20 49 3d 31 20 b8  20 33 36 0d 0c 8a 15 20  | . I=1 . 36.... |
000016f0  20 20 20 d5 23 6f 75 74  66 69 6c 65 25 2c 33 32  |   .#outfile%,32|
00001700  0d 0c 94 07 20 20 ed 0d  0c 9e 11 20 20 66 69 72  |....  .....  fir|
00001710  73 74 3d b9 3a 63 3d 30  0d 0c a8 05 20 0d 0c b2  |st=.:c=0.... ...|
00001720  3d 20 20 f4 20 53 65 6e  64 20 74 68 65 20 6c 69  |=  . Send the li|
00001730  6e 65 73 20 68 65 72 65  20 2d 2d 2d 2d 2d 2d 2d  |nes here -------|
00001740  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0c bc 10 20 20  |----------....  |
00001760  e3 20 59 3d 30 20 b8 20  33 38 0d 0c c6 39 20 20  |. Y=0 . 38...9  |
00001770  20 20 f2 43 72 65 61 74  65 4c 69 6e 65 28 31 30  |  .CreateLine(10|
00001780  30 2c 36 34 2b 59 2a 33  35 2c 31 39 39 38 2c 36  |0,64+Y*35,1998,6|
00001790  34 2b 59 2a 33 35 2c 30  2c 26 34 34 34 34 34 34  |4+Y*35,0,&444444|
000017a0  30 30 29 0d 0c d0 07 20  20 ed 0d 0c da 04 0d 0c  |00)....  .......|
000017b0  e4 2c 20 20 f2 43 72 65  61 74 65 4c 69 6e 65 28  |.,  .CreateLine(|
000017c0  31 30 30 2c 36 34 2c 31  30 30 2c 36 34 2b 33 38  |100,64,100,64+38|
000017d0  2a 33 35 2c 32 2e 35 2c  30 29 0d 0c ee 2e 20 20  |*35,2.5,0)....  |
000017e0  f2 43 72 65 61 74 65 4c  69 6e 65 28 31 39 39 38  |.CreateLine(1998|
000017f0  2c 36 34 2c 31 39 39 38  2c 36 34 2b 33 38 2a 33  |,64,1998,64+38*3|
00001800  35 2c 32 2e 35 2c 30 29  0d 0c f8 10 20 20 e3 20  |5,2.5,0)....  . |
00001810  59 3d 30 20 b8 20 31 32  0d 0d 02 3a 20 20 20 20  |Y=0 . 12...:    |
00001820  f2 43 72 65 61 74 65 4c  69 6e 65 28 31 37 33 2b  |.CreateLine(173+|
00001830  59 2a 31 34 36 2c 36 34  2c 31 37 33 2b 59 2a 31  |Y*146,64,173+Y*1|
00001840  34 36 2c 36 34 2b 33 38  2a 33 35 2c 31 2e 35 2c  |46,64+38*35,1.5,|
00001850  30 29 0d 0d 0c 07 20 20  ed 0d 0d 16 27 20 20 f2  |0)....  ....'  .|
00001860  43 72 65 61 74 65 4c 69  6e 65 28 31 30 30 2c 36  |CreateLine(100,6|
00001870  34 2c 31 39 39 38 2c 36  34 2c 32 2e 35 2c 30 29  |4,1998,64,2.5,0)|
00001880  0d 0d 20 33 20 20 f2 43  72 65 61 74 65 4c 69 6e  |.. 3  .CreateLin|
00001890  65 28 31 30 30 2c 36 34  2b 33 38 2a 33 35 2c 31  |e(100,64+38*35,1|
000018a0  39 39 38 2c 36 34 2b 33  38 2a 33 35 2c 32 2e 35  |998,64+38*35,2.5|
000018b0  2c 30 29 0d 0d 2a 0f 20  20 e3 20 59 3d 30 20 b8  |,0)..*.  . Y=0 .|
000018c0  20 35 0d 0d 34 39 20 20  20 20 f2 43 72 65 61 74  | 5..49    .Creat|
000018d0  65 4c 69 6e 65 28 31 30  30 2c 31 33 34 2b 37 2a  |eLine(100,134+7*|
000018e0  33 35 2a 59 2c 31 39 39  38 2c 31 33 34 2b 37 2a  |35*Y,1998,134+7*|
000018f0  33 35 2a 59 2c 31 2e 35  2c 30 29 0d 0d 3e 07 20  |35*Y,1.5,0)..>. |
00001900  20 ed 0d 0d 48 27 20 20  f4 20 4e 6f 77 20 67 6f  | ...H'  . Now go|
00001910  20 62 61 63 6b 20 61 6e  64 20 73 65 6e 64 20 67  | back and send g|
00001920  72 6f 75 70 20 64 61 74  61 0d 0d 52 28 20 20 50  |roup data..R(  P|
00001930  25 3d 8f 23 6f 75 74 66  69 6c 65 25 3a cf 23 6f  |%=.#outfile%:.#o|
00001940  75 74 66 69 6c 65 25 3d  67 72 6f 75 70 70 74 72  |utfile%=groupptr|
00001950  25 0d 0d 5c 0b 20 20 f2  73 28 36 29 0d 0d 66 16  |%..\.  .s(6)..f.|
00001960  20 20 f2 73 28 50 25 2d  67 72 6f 75 70 70 74 72  |  .s(P%-groupptr|
00001970  25 29 0d 0d 70 0f 20 20  f2 73 28 58 62 6d 69 6e  |%)..p.  .s(Xbmin|
00001980  29 0d 0d 7a 0f 20 20 f2  73 28 59 62 6d 69 6e 29  |)..z.  .s(Ybmin)|
00001990  0d 0d 84 0f 20 20 f2 73  28 58 74 6d 61 78 29 0d  |....  .s(Xtmax).|
000019a0  0d 8e 0f 20 20 f2 73 28  59 74 6d 61 78 29 0d 0d  |...  .s(Ytmax)..|
000019b0  98 13 20 20 cf 23 6f 75  74 66 69 6c 65 25 3d 50  |..  .#outfile%=P|
000019c0  25 0d 0d a2 10 20 20 e7  20 66 69 72 73 74 31 20  |%....  . first1 |
000019d0  8c 0d 0d ac 3c 20 20 20  20 58 6d 69 6e 3d 58 62  |....<    Xmin=Xb|
000019e0  6d 69 6e 3a 59 6d 69 6e  3d 59 62 6d 69 6e 3a 58  |min:Ymin=Ybmin:X|
000019f0  6d 61 78 3d 58 74 6d 61  78 3a 59 6d 61 78 3d 59  |max=Xtmax:Ymax=Y|
00001a00  74 6d 61 78 3a 66 69 72  73 74 31 3d a3 0d 0d b6  |tmax:first1=....|
00001a10  07 20 20 cc 0d 0d c0 21  20 20 20 20 e7 20 58 6d  |.  ....!    . Xm|
00001a20  69 6e 3e 58 62 6d 69 6e  20 8c 20 58 6d 69 6e 3d  |in>Xbmin . Xmin=|
00001a30  58 62 6d 69 6e 0d 0d ca  21 20 20 20 20 e7 20 59  |Xbmin...!    . Y|
00001a40  6d 69 6e 3e 59 62 6d 69  6e 20 8c 20 59 6d 69 6e  |min>Ybmin . Ymin|
00001a50  3d 59 62 6d 69 6e 0d 0d  d4 21 20 20 20 20 e7 20  |=Ybmin...!    . |
00001a60  58 6d 61 78 3c 58 74 6d  61 78 20 8c 20 58 6d 61  |Xmax<Xtmax . Xma|
00001a70  78 3d 58 74 6d 61 78 0d  0d de 21 20 20 20 20 e7  |x=Xtmax...!    .|
00001a80  20 59 6d 61 78 3c 59 74  6d 61 78 20 8c 20 59 6d  | Ymax<Ytmax . Ym|
00001a90  61 78 3d 59 74 6d 61 78  0d 0d e8 07 20 20 cd 0d  |ax=Ytmax....  ..|
00001aa0  0d f2 05 20 0d 0d fc 05  e1 0d 0e 06 04 0d 0e 10  |... ............|
00001ab0  26 dd 20 f2 77 69 6e 5f  6b 6c 69 6b 28 77 69 6e  |&. .win_klik(win|
00001ac0  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 75 74 74 6f  |dow%,icon%,butto|
00001ad0  6e 25 29 0d 0e 1a 1b 20  20 e7 20 77 69 6e 64 6f  |n%)....  . windo|
00001ae0  77 25 3d 46 6c 65 78 69  50 6c 61 6e 20 8c 0d 0e  |w%=FlexiPlan ...|
00001af0  24 22 20 20 20 20 79 65  61 72 24 3d a4 72 65 61  |$"    year$=.rea|
00001b00  64 69 63 6f 6e 28 77 69  6e 64 6f 77 25 2c 34 29  |dicon(window%,4)|
00001b10  0d 0e 2e 1e 20 20 20 20  e7 20 79 65 61 72 24 3d  |....    . year$=|
00001b20  22 22 20 8c 20 79 65 61  72 24 3d 22 30 22 0d 0e  |"" . year$="0"..|
00001b30  38 18 20 20 20 20 20 20  79 65 61 72 25 3d a0 28  |8.      year%=.(|
00001b40  79 65 61 72 24 29 0d 0e  42 09 20 20 20 20 cd 0d  |year$)..B.    ..|
00001b50  0e 4c 12 20 20 20 20 c8  8e 20 69 63 6f 6e 25 20  |.L.    .. icon% |
00001b60  ca 0d 0e 56 0c 20 20 20  20 c9 20 30 3a 0d 0e 60  |...V.    . 0:..`|
00001b70  2d 20 20 20 20 20 20 f2  6d 6f 75 73 65 28 6d 78  |-      .mouse(mx|
00001b80  25 2c 20 6d 79 25 2c 20  6d 62 25 2c 20 77 69 6e  |%, my%, mb%, win|
00001b90  64 6f 77 2c 20 69 63 6f  6e 29 0d 0e 6a 2d 20 20  |dow, icon)..j-  |
00001ba0  20 20 20 20 f2 73 65 74  69 63 6f 6e 28 73 61 76  |    .seticon(sav|
00001bb0  65 61 73 25 2c 20 31 2c  20 22 50 6c 61 6e 5f 22  |eas%, 1, "Plan_"|
00001bc0  2b 79 65 61 72 24 29 0d  0e 74 21 20 20 20 20 20  |+year$)..t!     |
00001bd0  20 f2 63 6c 6f 73 65 77  69 6e 64 6f 77 28 46 6c  | .closewindow(Fl|
00001be0  65 78 69 50 6c 61 6e 29  0d 0e 7e 2e 20 20 20 20  |exiPlan)..~.    |
00001bf0  20 20 f2 6d 6f 76 65 77  69 6e 64 6f 77 28 73 61  |  .movewindow(sa|
00001c00  76 65 61 73 25 2c 20 6d  78 25 2d 31 35 30 2c 6d  |veas%, mx%-150,m|
00001c10  79 25 2d 35 30 29 0d 0e  88 1e 20 20 20 20 20 20  |y%-50)....      |
00001c20  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 73 61 76 65  |.openwindow(save|
00001c30  61 73 25 29 0d 0e 92 0c  20 20 20 20 c9 20 31 3a  |as%)....    . 1:|
00001c40  0d 0e 9c 21 20 20 20 20  20 20 f2 63 6c 6f 73 65  |...!      .close|
00001c50  77 69 6e 64 6f 77 28 46  6c 65 78 69 50 6c 61 6e  |window(FlexiPlan|
00001c60  29 0d 0e a6 0c 20 20 20  20 c9 20 32 3a 0d 0e b0  |)....    . 2:...|
00001c70  13 20 20 20 20 20 20 79  65 61 72 25 20 2d 3d 31  |.      year% -=1|
00001c80  0d 0e ba 18 20 20 20 20  20 20 79 65 61 72 24 3d  |....      year$=|
00001c90  c3 28 79 65 61 72 25 29  0d 0e c4 25 20 20 20 20  |.(year%)...%    |
00001ca0  20 20 f2 73 65 74 69 63  6f 6e 28 77 69 6e 64 6f  |  .seticon(windo|
00001cb0  77 25 2c 20 34 2c 20 79  65 61 72 24 29 0d 0e ce  |w%, 4, year$)...|
00001cc0  0c 20 20 20 20 c9 20 33  3a 0d 0e d8 13 20 20 20  |.    . 3:....   |
00001cd0  20 20 20 79 65 61 72 25  20 2b 3d 31 0d 0e e2 18  |   year% +=1....|
00001ce0  20 20 20 20 20 20 79 65  61 72 24 3d c3 28 79 65  |      year$=.(ye|
00001cf0  61 72 25 29 0d 0e ec 25  20 20 20 20 20 20 f2 73  |ar%)...%      .s|
00001d00  65 74 69 63 6f 6e 28 77  69 6e 64 6f 77 25 2c 20  |eticon(window%, |
00001d10  34 2c 20 79 65 61 72 24  29 0d 0e f6 09 20 20 20  |4, year$)....   |
00001d20  20 cb 0d 0f 00 1a 20 20  20 20 e7 20 79 65 61 72  | .....    . year|
00001d30  25 3c 6d 69 6e 79 65 61  72 25 20 8c 0d 0f 0a 18  |%<minyear% .....|
00001d40  20 20 20 20 20 20 79 65  61 72 25 3d 6d 69 6e 79  |      year%=miny|
00001d50  65 61 72 25 0d 0f 14 1b  20 20 20 20 20 20 79 65  |ear%....      ye|
00001d60  61 72 24 3d c3 28 6d 69  6e 79 65 61 72 25 29 0d  |ar$=.(minyear%).|
00001d70  0f 1e 27 20 20 20 20 20  20 f2 73 65 74 69 63 6f  |..'      .setico|
00001d80  6e 28 46 6c 65 78 69 50  6c 61 6e 2c 20 34 2c 20  |n(FlexiPlan, 4, |
00001d90  79 65 61 72 24 29 0d 0f  28 4a 20 20 20 20 20 20  |year$)..(J      |
00001da0  f2 77 61 72 6e 69 6e 67  28 22 43 61 6e 27 74 20  |.warning("Can't |
00001db0  68 61 76 65 20 79 65 61  72 73 20 6c 65 73 73 20  |have years less |
00001dc0  74 68 61 6e 20 22 2b c3  28 6d 69 6e 79 65 61 72  |than "+.(minyear|
00001dd0  25 29 2c 20 22 46 6c 65  78 69 50 6c 61 6e 22 29  |%), "FlexiPlan")|
00001de0  0d 0f 32 09 20 20 20 20  cd 0d 0f 3c 07 20 20 cd  |..2.    ...<.  .|
00001df0  0d 0f 46 05 20 0d 0f 50  05 e1 0d 0f 5a 04 0d 0f  |..F. ..P....Z...|
00001e00  64 16 dd 20 f2 6d 65 6e  75 3a ea 20 61 24 2c 72  |d.. .menu:. a$,r|
00001e10  24 2c 64 25 0d 0f 6e 37  c8 99 20 22 57 69 6d 70  |$,d%..n7.. "Wimp|
00001e20  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 6f 70  |_DecodeMenu",,op|
00001e30  65 6e 25 2c 77 69 6d 70  25 2c c4 32 30 30 2c bd  |en%,wimp%,.200,.|
00001e40  33 32 29 20 b8 20 2c 2c  2c 61 24 0d 0f 78 27 e7  |32) . ,,,a$..x'.|
00001e50  20 c2 61 24 2c 33 29 3d  22 2e 2e 2e 22 20 8c 20  | .a$,3)="..." . |
00001e60  64 25 3d 31 3a 61 24 3d  c0 61 24 2c a9 61 24 2d  |d%=1:a$=.a$,.a$-|
00001e70  33 29 0d 0f 82 26 c8 95  20 a7 61 24 2c bd 34 36  |3)...&.. .a$,.46|
00001e80  29 3e 30 3a 61 24 3d c1  61 24 2c a7 61 24 2c bd  |)>0:a$=.a$,.a$,.|
00001e90  34 36 29 2b 31 29 3a ce  0d 0f 8c 14 e7 20 64 25  |46)+1):...... d%|
00001ea0  20 8c 20 61 24 2b 3d 22  2e 2e 2e 22 0d 0f 96 0b  | . a$+="..."....|
00001eb0  c8 8e 20 61 24 20 ca 0d  0f a0 1b 20 c9 20 22 49  |.. a$ ..... . "I|
00001ec0  6e 66 6f 20 20 20 20 22  3a f4 20 49 6e 66 6f 62  |nfo    ":. Infob|
00001ed0  6f 78 0d 0f aa 18 20 c9  20 22 51 75 69 74 22 3a  |ox.... . "Quit":|
00001ee0  f2 63 6c 6f 73 65 64 6f  77 6e 0d 0f b4 1d 7f 3a  |.closedown.....:|
00001ef0  f2 68 61 6e 64 6c 65 5f  65 76 65 6e 74 28 31 31  |.handle_event(11|
00001f00  2c 61 24 2c 22 22 29 0d  0f be 05 cb 0d 0f c8 05  |,a$,"").........|
00001f10  e1 0d 0f d2 04 0d 0f dc  22 dd 20 f2 68 61 6e 64  |........". .hand|
00001f20  6c 65 5f 65 76 65 6e 74  28 6e 25 2c 61 24 2c 62  |le_event(n%,a$,b|
00001f30  24 29 3a ea 20 70 25 0d  0f e6 0b c8 8e 20 6e 25  |$):. p%...... n%|
00001f40  20 ca 0d 0f f0 0e 20 c9  20 31 3a f2 69 6e 69 74  | ..... . 1:.init|
00001f50  0d 0f fa 1a 20 c9 20 34  3a f2 6d 65 6e 75 5f 6b  |.... . 4:.menu_k|
00001f60  6c 69 6b 28 bb 28 61 24  29 29 0d 10 04 18 20 c9  |lik(.(a$)).... .|
00001f70  20 39 3a f2 43 72 65 61  74 65 46 69 6c 65 28 61  | 9:.CreateFile(a|
00001f80  24 29 0d 10 0e 42 20 c9  20 31 30 3a f2 77 69 6e  |$)...B . 10:.win|
00001f90  5f 6b 6c 69 6b 28 bb 28  61 24 29 2c bb 28 c0 62  |_klik(.(a$),.(.b|
00001fa0  24 2c a7 62 24 2c bd 31  32 34 29 2d 31 29 29 2c  |$,.b$,.124)-1)),|
00001fb0  bb 28 c1 62 24 2c a7 62  24 2c bd 31 32 34 29 2b  |.(.b$,.b$,.124)+|
00001fc0  31 29 29 29 0d 10 18 05  cb 0d 10 22 05 e1 0d 10  |1)))......."....|
00001fd0  2c 04 0d 10 36 22 dd 20  a4 68 61 6e 64 6c 65 5f  |,...6". .handle_|
00001fe0  65 76 65 6e 74 28 6e 25  2c 61 24 2c 62 24 29 3a  |event(n%,a$,b$):|
00001ff0  ea 20 70 24 0d 10 40 0b  c8 8e 20 6e 25 20 ca 0d  |. p$..@... n% ..|
00002000  10 4a 0e c9 20 33 3a 70  24 3d bd 34 39 0d 10 54  |.J.. 3:p$=.49..T|
00002010  52 c9 20 36 3a 70 24 3d  22 54 68 69 73 20 6f 62  |R. 6:p$="This ob|
00002020  6a 65 63 74 20 62 65 6c  6f 6e 67 73 20 74 6f 20  |ject belongs to |
00002030  27 46 6c 65 78 69 50 6c  61 6e 27 2c 20 77 68 69  |'FlexiPlan', whi|
00002040  63 68 20 69 73 20 61 20  57 69 6d 70 57 6f 72 6b  |ch is a WimpWork|
00002050  73 20 61 70 70 6c 69 63  61 74 69 6f 6e 2e 22 0d  |s application.".|
00002060  10 5e 05 cb 0d 10 68 07  3d 70 24 0d 10 72 04 0d  |.^....h.=p$..r..|
00002070  10 7c 14 dd 20 f2 77 77  5f 69 6e 74 65 72 6e 61  |.|.. .ww_interna|
00002080  6c 3a e1 0d ff                                    |l:...|
00002085