Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92 » !AWFeb92/Goodies/Calendar/!Calendar/!RunImage
!AWFeb92/Goodies/Calendar/!Calendar/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92 |
| Filename: | !AWFeb92/Goodies/Calendar/!Calendar/!RunImage |
| Read OK: | ✔ |
| File size: | 2770 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM > !RunImage
20
30 REM by Nick McFarlane July 1991
40 REM (c) Archimedes World 1992
50
60 REM ----- GLOBALS ARE month% AND year% ------------------
70 REM ------------- AND offset% & num_days% --------------
80 REM ------------- AND this_month% & this_year% ----------
90 REM ------------- AND today%
100
110 ON ERROR PROCreport_error(ERL,REPORT$):END
120
130 OS_Plot = &45
140 OS_Write0 = &2
150 Wimp_Poll = &400C7
160 Wimp_GetRectangle = &400CA
170 Wimp_RedrawWindow = &400C8
180 Wimp_ForceRedraw = &400D1
190 Wimp_SetColour = &400E6
200
210 DIM infotemp% 256+32*8, worktemp% 128
220 DIM info_icon_space% 128, work_icon_space% 64
230 DIM icon_menu% 128, work_menu% 512
240 DIM q% 256
250
260 REM ------ get todays's date ---------
270 !q% = 3
280 SYS "OS_Word",14,q%
290 $(q%+50) = "%DY%MN%CE%YR"+CHR$0
300 SYS "OS_ConvertDateAndTime",q%,q%+150,100,q%+50
301REM PROCreport_error(0,STR$(q%+150))
310 today% = VAL(LEFT$($(q%+150),2))
320 this_month% = VAL(MID$($(q%+150),3,2))
330 this_year% = VAL(MID$($(q%+150),5,4))
340 month% = this_month%
350 year% = this_year%
360REM PROCreport_error(0,STR$(this_month%)+" "+STR$(this_year%)+" "+STR$(today%))
370
380 PROCset_up_data
390 PROCinitialise
400 bar_handle%=FNiconbar
410 PROCopen_template
420 PROCcalculate_offset_length(month%,year%,offset%,num_days%)
430 PROCcreate_icon_menu
440 PROCcreate_work_menu(month%,year%)
450 PROCcalculate_offset_length(month%,year%,offset%,num_days%)
460
470:
480 REPEAT
490 SYS Wimp_Poll,%10000000000000110001,q% TO reason%
500 CASE reason% OF
510 WHEN 1: PROCredraw_window(q%)
520 WHEN 2: PROCopenwindow(q%)
530 WHEN 3: PROCclosewindow(q%)
540 WHEN 6: PROCmouseclick(q%)
550 WHEN 9: PROCmenu_selection(q%)
560 WHEN 17,18: IF (q%!16)=0 THEN PROCclosedown
570 ENDCASE
580 UNTIL FALSE
590 END
600:
610 REM window layout -------------------- 400
620 REM | month,year |
630 REM |------------------| 320
640 REM | |
650 REM | |
660 REM | |
670 REM | |
680 REM -------------------- 0
690 REM 0 400
700 REM screen_min_x%=q%!28: screen_min_y%=q%!32
710 REM screen_max_x%=q%!36: screen_max_y%=q%!40
720 REM work_min_x%=screen_min_x%-q%!4
730 REM work_min_y%=screen_min_y%-q%!8
740 REM work_max_x%=screen_max_x%-q%!12
750 REM work_max_y%=screen_max_y%-q%!16
760:
770 DEF PROCredraw_window(q%)
780 LOCAL a%,b%,c%,d%,i%,j%,k%,l%,n%
790 SYS Wimp_RedrawWindow,,q% TO flag
800 WHILE flag
810 a%=q%!28-q%!4 : b%=q%!32-q%!8
820 c%=q%!36-q%!4 : d%=q%!40-q%!8
840 i%= (a%-20) DIV 55 : j%= (b%-50) DIV 50
860 k%=((c%-20) DIV 55)+1 : l%=((d%-50) DIV 50)+1
890 IF i%<0 THEN i%=0
900 IF k%>6 THEN k%=6
910 IF (l%>=5) THEN PROCredraw_days(q%,i%,k%)
930 IF j%<0 THEN j%=0
940 IF l%>4 THEN l%=4
960 PROCredraw_numbers(q%,i%,j%,k%,l%)
970 SYS Wimp_GetRectangle,,q% TO flag
980 ENDWHILE
990 ENDPROC
1000:
1010 DEF PROCmouseclick(h%)
1020 buttons%=h%!8
1030 window%=h%!12
1040 icon%=h%!16
1050 CASE window% OF
1060 WHEN -2: IF buttons%=2 THEN
1070 PROCopen_menu(icon_menu%,(h%!0-40),h%!4+104)
1080 ELSE
1090 !q%=!worktemp% : SYS "Wimp_GetWindowInfo",,q%
1100 PROCopenwindow(q%)
1110 ENDIF
1120 WHEN workhandle%: IF buttons%=2 THEN
1130 PROCcreate_work_menu(month%,year%)
1140 PROCopen_menu(work_menu%,(h%!0)-40,h%!4+64)
1150 ELSE
1160 IF buttons%=1 THEN
1170 month%=month%+1
1180 IF month%=13 THEN month%=1:year%=year%+1
1190 ELSE
1200 month%=month%-1
1210 IF month%=0 THEN month%=12:year%=year%-1
1220 ENDIF
1230 PROCcalculate_offset_length(month%,year%,offset%,num_days%)
1250 !q%=!worktemp% : SYS "Wimp_GetWindowInfo",,q%
1260 PROCclosewindow(worktemp%)
1270 PROCopenwindow(q%)
1280 ENDIF
1290 ENDCASE
1300 ENDPROC
1310:
1320 DEF PROCmenu_selection(h%)
1330 item%=!h%
1340 SYS "Wimp_GetPointerInfo",,q%
1350 button%=(q%!8 AND1)
1360 CASE current_menu% OF
1370 WHEN icon_menu%: IF item%=1 THEN PROCclosedown
1380 WHEN work_menu%: IF item%=0 THEN
1390 year% = VAL($(menu_text%))
1400 ELSE
1410 month%=item%
1420 ENDIF
1430 PROCcalculate_offset_length(month%,year%,offset%,num_days%)
1431 !q%=!worktemp% : SYS "Wimp_GetWindowInfo",,q%
1440 PROCclosewindow(worktemp%)
1450 PROCopenwindow(q%)
1460 ENDCASE
1470 IF button%=1 PROCcreate_work_menu(month%,year%):PROCopen_menu(-1,0,0)
1480 ENDPROC
1490:
1500 DEF PROCcalculate_offset_length(m%,RETURN y%,RETURN o%, RETURN l%)
1510 IF y%>2050 THEN y%=2050
1520 IF y%<1850 THEN y%=1850
1521 IF m%<1 THEN m%=1
1522 IF m%>12 THEN m%=12
1530 IF m%=2 THEN
1540 IF (y% MOD 4)=0 AND (y%<>1900) THEN l%=29 ELSE l%=28
1550 ELSE
1560 IF (m%=4) OR (m%=6) OR (m%=9) OR (m%=11) THEN
1570 l%=30
1580 ELSE
1590 l%=31
1600 ENDIF
1610 ENDIF
1620 dummy%=years%(y%-1849)
1630 o%=offsets%(dummy%,m%)
1640 $(!(worktemp%+4+72))=month$(m%)+", "+STR$(y%)
1650 ENDPROC
1660:
1670 DEF PROCinitialise
1680 SYS "Wimp_Initialise",200,&4B534154,"calendar" TO ,task%
1690 ENDPROC
1700:
1710 DEF PROCclosedown
1720 SYS "Wimp_CloseDown",task%,&4B534154
1730 ENDPROC
1740:
1750 DEF FNiconbar
1760 LOCAL handle%
1770 q%!0=-1:q%!4=0:q%!8=0:q%!12=64
1780 q%!16=64:q%!20=&3002:$(q%+24)="!calendar"
1790 SYS "Wimp_CreateIcon",,q% TO handle%
1800 =handle%
1810:
1820 DEF PROCopenwindow(h%)
1830 SYS "Wimp_OpenWindow",,h%
1840 ENDPROC
1850:
1860 DEF PROCclosewindow(h%)
1870 SYS "Wimp_CloseWindow",,h%
1880 ENDPROC
1890:
1900 DEF PROCopen_template
1910 SYS "Wimp_OpenTemplate",,"<calendar$dir>.Templates"
1920 workhandle%=FNcreatewindow(worktemp%,"workwindow",-1,work_icon_space%)
1930 infohandle%=FNcreatewindow(infotemp%,"infowindow",-1,info_icon_space%)
1940 SYS "Wimp_CloseTemplate"
1950 ENDPROC
1960:
1970 DEF FNcreatewindow(template%,name$,sprites%,i%)
1980 LOCAL handle%
1990 SYS "Wimp_LoadTemplate",,template%+4,i%,i%+128,-1,name$
2000 IF sprites%<>-1 THEN template%!68 = sprites%
2010 SYS "Wimp_CreateWindow",,template%+4 TO handle%
2020 !template% = handle%
2030 =handle%
2040:
2070REM ================================== menus ========================
2080:
2090 DEF PROCopen_menu(menu%,x%,y%)
2100 IF menu% <> -1 THEN
2110 menux%=x%
2120 menuy%=y%
2130 current_menu% = menu%
2140 ENDIF
2150 SYS "Wimp_CreateMenu",,current_menu%,menux%,menuy%
2160 ENDPROC
2170:
2180 DEF PROCcreate_icon_menu
2190 m% = icon_menu%
2200 m% = FNcreatemenuheader(m%,"Calendar",128)
2210 m% = FNcreatemenuitem(m%,%00000000,infohandle%,"Info")
2220 m% = FNcreatemenuitem(m%,%10000000,-1,"Quit")
2230 ENDPROC
2240:
2250 DEF PROCcreate_work_menu(mon%,year%)
2260 DIM menu_text% 32
2270 LOCAL flag%
2280 m%=work_menu%
2290 m% = FNcreatemenuheader(m%,"Calendar",160)
2300 m% = FNcreatemenuitem(m%,%00000110,-1,STR$(year%))
2310 !(m%-24+8) = !(m%-24+8) OR %100000001
2320 !(m%-24+12) = menu_text% : REM text buffer
2330 !(m%-24+16) = menu_text%+10 : REM validation string
2340 !(m%-24+20) = 5 : REM buff length
2350 $(menu_text%) = STR$(year%)+CHR$0
2360 $(menu_text%+10) = "A0-9~a-z"+CHR$0
2370 FOR i%= 1 TO 11
2380 IF i%=mon% THEN flag%=1 ELSE flag%=0
2390 m% = FNcreatemenuitem(m%,(%00000000+flag%),-1,month$(i%))
2400 NEXT
2410 IF mon%=12 THEN flag%=1 ELSE flag%=0
2420 m% = FNcreatemenuitem(m%,(%10000000+flag%),-1,month$(12))
2430 ENDPROC
2480:
2490 DEF FNcreatemenuheader(ptr%,name$,width%)
2500 $(ptr%)=name$
2510 ptr%!12=&00070207
2520 ptr%!16=width%
2530 ptr%!20=44
2540 ptr%!24=0
2550 =(ptr%+28)
2560:
2570 DEF FNcreatemenuitem(ptr%,flags%,submenu%,s$)
2580 ptr%!0=flags%
2590 ptr%!4=submenu%
2600 ptr%!8=&07019031
2610 $(ptr%+12)=s$
2620 =(ptr%+24)
2630:
2640 DEF PROCset_up_data
2650 DIM day$(6)
2660 day$(0)="Su": day$(1)="Mo": day$(2)="Tu": day$(3)="We"
2670 day$(4)="Th": day$(5)="Fr": day$(6)="Sa"
2680 DIM num$(31)
2690 FOR i%=1 TO 9: num$(i%)=" "+STR$(i%):NEXT
2700 FOR i%=10 TO 31:num$(i%)=STR$(i%):NEXT
2710 DIM month$(12)
2720 month$(1)=("January"):month$(2)=("February"):month$(3)=("March")
2730 month$(4)=("April"):month$(5)=("May"):month$(6)=("June")
2740 month$(7)=("July"):month$(8)=("August"):month$(9)=("September")
2750 month$(10)=("October"):month$(11)=("November"):month$(12)=("December")
2760 DIM offsets%(14,12)
2770 FOR i% = 1 TO 14 : FOR j% = 1 TO 12 : READ offsets%(i%,j%):NEXT:NEXT
2780 DIM years%(201)
2790 FOR i% = 1 TO 201 : READ years%(i%) :NEXT
2800 REM ---- types first -------
2810 DATA 0,3,3,6,1,4,6,2,5,0,3,5
2820 DATA 0,3,4,0,2,5,0,3,6,1,4,6
2830 DATA 1,4,4,0,2,5,0,3,6,1,4,6
2840 DATA 1,4,5,1,3,6,1,4,0,2,5,0
2850 DATA 2,5,5,1,3,6,1,4,0,2,5,0
2860 DATA 2,5,6,2,4,0,2,3,1,3,6,1
2870 DATA 3,6,6,2,4,0,2,5,1,3,6,1
2880 DATA 3,6,0,3,5,1,3,6,2,4,0,2
2890 DATA 4,0,0,3,5,1,3,6,2,4,0,2
2900 DATA 4,0,1,4,6,2,4,0,3,5,1,3
2910 DATA 5,1,1,4,6,2,4,0,3,5,1,3
2920 DATA 5,1,2,5,0,3,5,1,4,6,2,4
2930 DATA 6,2,2,5,0,3,5,1,4,6,2,4
2940 DATA 6,2,3,6,1,4,6,2,5,0,3,5
2950 REM ---- and now years -----
2960 DATA 5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13,1,4,7,9,11,14,3,5
2970 DATA 7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13,1,3,5,7,9,12,1,3,5
2980 DATA 8,11,13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8
2990 DATA 11,13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11
3000 DATA 13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
3010 DATA 1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
3020 DATA 1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
3030 ENDPROC
3040:
3050 DEF PROCredraw_days(q%,min%,max%)
3060 WHILE min%<=max%
3070 SYS OS_Plot,4,q%!4+20+min%*55,q%!8+300
3080 SYS OS_Write0,day$(min%)
3090 min%+=1
3100 ENDWHILE
3110 ENDPROC
3120:
3130 DEF PROCredraw_numbers(q%,minx%,miny%,maxx%,maxy%)
3140 LOCAL store%
3150 IF (month%=this_month%) AND (year%=this_year%) THEN
3160 t%=today%
3170 ELSE
3180 t%=-1
3190 ENDIF
3200 store%=minx%
3210 WHILE miny%<=maxy%
3220 WHILE minx%<=maxx%
3230 number% = minx%+(4-miny%)*7+1-offset%
3240 IF ((number%>0) AND (number%<=num_days%)) THEN
3250 IF t%=number% THEN SYS Wimp_SetColour,11
3260 SYS OS_Plot,4,q%!4+20+minx%*55,q%!8+miny%*50+50
3270 SYS OS_Write0,num$(number%)
3280 IF t%=number% THEN SYS Wimp_SetColour,7
3290 ENDIF
3300 minx%+=1
3310 ENDWHILE
3320 minx%=store%
3330 miny%+=1
3340 ENDWHILE
3350 ENDPROC
3360:
3370 DEF PROCreport_error(number%,string$)
3380 !q%=0
3390 $(q%+4)=string$+" at line "+STR$(number%)+CHR$0
3400 SYS "Wimp_ReportError",q%,0,"Calender"
3410 SYS "Wimp_ReportError",q%,%1000000,"Calender"
3420 ENDPROC
3430:
� > !RunImage
" � by Nick McFarlane July 1991
( � (c) Archimedes World 1992
2
<< � ----- GLOBALS ARE month% AND year% ------------------
F; � ------------- AND offset% & num_days% --------------
P< � ------------- AND this_month% & this_year% ----------
Z � ------------- AND today%
d
n � � �report_error(�,�$):�
x
� OS_Plot = &45
� OS_Write0 = &2
� Wimp_Poll = &400C7
� Wimp_GetRectangle = &400CA
� Wimp_RedrawWindow = &400C8
� Wimp_ForceRedraw = &400D1
� Wimp_SetColour = &400E6
�
�( � infotemp% 256+32*8, worktemp% 128
�0 � info_icon_space% 128, work_icon_space% 64
�% � icon_menu% 128, work_menu% 512
�
� q% 256
�
) � ------ get todays's date ---------
!q% = 3
ș "OS_Word",14,q%
"! $(q%+50) = "%DY%MN%CE%YR"+�0
,3 ș "OS_ConvertDateAndTime",q%,q%+150,100,q%+50
-'� PROCreport_error(0,STR$(q%+150))
6# today% = �(�$(q%+150),2))
@% this_month% = �(�$(q%+150),3,2))
J% this_year% = �(�$(q%+150),5,4))
T month% = this_month%
^ year% = this_year%
hQ� PROCreport_error(0,STR$(this_month%)+" "+STR$(this_year%)+" "+STR$(today%))
r
| �set_up_data
� �initialise
� bar_handle%=�iconbar
� �open_template
�= �calculate_offset_length(month%,year%,offset%,num_days%)
� �create_icon_menu
�$ �create_work_menu(month%,year%)
�= �calculate_offset_length(month%,year%,offset%,num_days%)
�
�:
� �
�5 ș Wimp_Poll,%10000000000000110001,q% � reason%
� Ȏ reason% �
� � 1: �redraw_window(q%)
� 2: �openwindow(q%)
� 3: �closewindow(q%)
� 6: �mouseclick(q%)
& � 9: �menu_selection(q%)
0) � 17,18: � (q%!16)=0 � �closedown
: �
D � �
N �
X:
b6 � window layout -------------------- 400
l1 � | month,year |
v6 � |------------------| 320
�1 � | |
�1 � | |
�1 � | |
�1 � | |
�5 � -------------------- 0
�3 � 0 400
�0 � screen_min_x%=q%!28: screen_min_y%=q%!32
�0 � screen_max_x%=q%!36: screen_max_y%=q%!40
�& � work_min_x%=screen_min_x%-q%!4
�& � work_min_y%=screen_min_y%-q%!8
�' � work_max_x%=screen_max_x%-q%!12
�' � work_max_y%=screen_max_y%-q%!16
�:
� �redraw_window(q%)
! � a%,b%,c%,d%,i%,j%,k%,l%,n%
$ ș Wimp_RedrawWindow,,q% � flag
ȕ flag
*- a%=q%!28-q%!4 : b%=q%!32-q%!8
4- c%=q%!36-q%!4 : d%=q%!40-q%!8
H. i%= (a%-20) � 55 : j%= (b%-50) � 50
\1 k%=((c%-20) � 55)+1 : l%=((d%-50) � 50)+1
z � i%<0 � i%=0
� � k%>6 � k%=6
�* � (l%>=5) � �redraw_days(q%,i%,k%)
� � j%<0 � j%=0
� � l%>4 � l%=4
�' �redraw_numbers(q%,i%,j%,k%,l%)
�' ș Wimp_GetRectangle,,q% � flag
� �
� �
�:
� � �mouseclick(h%)
� buttons%=h%!8
window%=h%!12
icon%=h%!16
Ȏ window% �
$ � -2: � buttons%=2 �
.@ �open_menu(icon_menu%,(h%!0-40),h%!4+104)
8 �
BC !q%=!worktemp% : ș "Wimp_GetWindowInfo",,q%
L& �openwindow(q%)
V �
`# � workhandle%: � buttons%=2 �
j; �create_work_menu(month%,year%)
tD �open_menu(work_menu%,(h%!0)-40,h%!4+64)
~ �
�( � buttons%=1 �
�, month%=month%+1
�A � month%=13 � month%=1:year%=year%+1
� �
�, month%=month%-1
�A � month%=0 � month%=12:year%=year%-1
� �
�I �calculate_offset_length(month%,year%,offset%,num_days%)
�F !q%=!worktemp% : ș "Wimp_GetWindowInfo",,q%
�1 �closewindow(worktemp%)
�) �openwindow(q%)
�
�
�
:
( � �menu_selection(h%)
2 item%=!h%
<! ș "Wimp_GetPointerInfo",,q%
F button%=(q%!8 �1)
P Ȏ current_menu% �
Z) � icon_menu%: � item%=1 � �closedown
d � work_menu%: � item%=0 �
n4 year% = �($(menu_text%))
x �
�( month%=item%
� �
�I �calculate_offset_length(month%,year%,offset%,num_days%)
�D !q%=!worktemp% : ș "Wimp_GetWindowInfo",,q%
�/ �closewindow(worktemp%)
�' �openwindow(q%)
� �
�D � button%=1 �create_work_menu(month%,year%):�open_menu(-1,0,0)
� �
�:
�3 � �calculate_offset_length(m%,� y%,� o%, � l%)
� � y%>2050 � y%=2050
� � y%<1850 � y%=1850
� � m%<1 � m%=1
� � m%>12 � m%=12
�
� m%=2 �
0 � (y% � 4)=0 � (y%<>1900) � l%=29 � l%=28
�
- � (m%=4) � (m%=6) � (m%=9) � (m%=11) �
" l%=30
, �
6 l%=31
@ �
J �
T dummy%=years%(y%-1849)
^ o%=offsets%(dummy%,m%)
h/ $(!(worktemp%+4+72))=month$(m%)+", "+�(y%)
r �
|:
� � �initialise
�; ș "Wimp_Initialise",200,&4B534154,"calendar" � ,task%
� �
�:
� � �closedown
�( ș "Wimp_CloseDown",task%,&4B534154
� �
�:
� � �iconbar
� � handle%
�# q%!0=-1:q%!4=0:q%!8=0:q%!12=64
�. q%!16=64:q%!20=&3002:$(q%+24)="!calendar"
�' ș "Wimp_CreateIcon",,q% � handle%
=handle%
:
� �openwindow(h%)
& ș "Wimp_OpenWindow",,h%
0 �
::
D � �closewindow(h%)
N ș "Wimp_CloseWindow",,h%
X �
b:
l � �open_template
v7 ș "Wimp_OpenTemplate",,"<calendar$dir>.Templates"
�J workhandle%=�createwindow(worktemp%,"workwindow",-1,work_icon_space%)
�J infohandle%=�createwindow(infotemp%,"infowindow",-1,info_icon_space%)
� ș "Wimp_CloseTemplate"
� �
�:
�1 � �createwindow(template%,name$,sprites%,i%)
� � handle%
�; ș "Wimp_LoadTemplate",,template%+4,i%,i%+128,-1,name$
�- � sprites%<>-1 � template%!68 = sprites%
�2 ș "Wimp_CreateWindow",,template%+4 � handle%
� !template% = handle%
�
=handle%
�:
G� ================================== menus ========================
:
* � �open_menu(menu%,x%,y%)
4 � menu% <> -1 �
> menux%=x%
H menuy%=y%
R current_menu% = menu%
\ �
f6 ș "Wimp_CreateMenu",,current_menu%,menux%,menuy%
p �
z:
� � �create_icon_menu
� m% = icon_menu%
�. m% = �createmenuheader(m%,"Calendar",128)
�: m% = �createmenuitem(m%,%00000000,infohandle%,"Info")
�1 m% = �createmenuitem(m%,%10000000,-1,"Quit")
� �
�:
�$ � �create_work_menu(mon%,year%)
� � menu_text% 32
� � flag%
� m%=work_menu%
�. m% = �createmenuheader(m%,"Calendar",160)
�3 m% = �createmenuitem(m%,%00000110,-1,�(year%))
) !(m%-24+8) = !(m%-24+8) � %100000001
0 !(m%-24+12) = menu_text% : � text buffer
6 !(m%-24+16) = menu_text%+10 : � validation string
$0 !(m%-24+20) = 5 : � buff length
. $(menu_text%) = �(year%)+�0
8% $(menu_text%+10) = "A0-9~a-z"+�0
B � i%= 1 � 11
L# � i%=mon% � flag%=1 � flag%=0
V> m% = �createmenuitem(m%,(%00000000+flag%),-1,month$(i%))
` �
j" � mon%=12 � flag%=1 � flag%=0
t= m% = �createmenuitem(m%,(%10000000+flag%),-1,month$(12))
~ �
�:
�+ � �createmenuheader(ptr%,name$,width%)
� $(ptr%)=name$
� ptr%!12=&00070207
� ptr%!16=width%
� ptr%!20=44
� ptr%!24=0
� =(ptr%+28)
:
/ � �createmenuitem(ptr%,flags%,submenu%,s$)
ptr%!0=flags%
ptr%!4=submenu%
( ptr%!8=&07019031
2 $(ptr%+12)=s$
< =(ptr%+24)
F:
P � �set_up_data
Z � day$(6)
d; day$(0)="Su": day$(1)="Mo": day$(2)="Tu": day$(3)="We"
n- day$(4)="Th": day$(5)="Fr": day$(6)="Sa"
x � num$(31)
�& � i%=1 � 9: num$(i%)=" "+�(i%):�
�" � i%=10 � 31:num$(i%)=�(i%):�
� � month$(12)
�E month$(1)=("January"):month$(2)=("February"):month$(3)=("March")
�= month$(4)=("April"):month$(5)=("May"):month$(6)=("June")
�D month$(7)=("July"):month$(8)=("August"):month$(9)=("September")
�K month$(10)=("October"):month$(11)=("November"):month$(12)=("December")
� � offsets%(14,12)
�: � i% = 1 � 14 : � j% = 1 � 12 : � offsets%(i%,j%):�:�
� � years%(201)
�% � i% = 1 � 201 : � years%(i%) :�
� � ---- types first -------
� � 0,3,3,6,1,4,6,2,5,0,3,5
� 0,3,4,0,2,5,0,3,6,1,4,6
� 1,4,4,0,2,5,0,3,6,1,4,6
� 1,4,5,1,3,6,1,4,0,2,5,0
" � 2,5,5,1,3,6,1,4,0,2,5,0
, � 2,5,6,2,4,0,2,3,1,3,6,1
6 � 3,6,6,2,4,0,2,5,1,3,6,1
@ � 3,6,0,3,5,1,3,6,2,4,0,2
J � 4,0,0,3,5,1,3,6,2,4,0,2
T � 4,0,1,4,6,2,4,0,3,5,1,3
^ � 5,1,1,4,6,2,4,0,3,5,1,3
h � 5,1,2,5,0,3,5,1,4,6,2,4
r � 6,2,2,5,0,3,5,1,4,6,2,4
| � 6,2,3,6,1,4,6,2,5,0,3,5
� � ---- and now years -----
�I � 5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13,1,4,7,9,11,14,3,5
�H � 7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13,1,3,5,7,9,12,1,3,5
�I � 8,11,13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8
�J � 11,13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11
�J � 13,1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
�G � 1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
�G � 1,4,7,9,11,14,3,5,7,10,13,1,3,6,9,11,13,2,5,7,9,12,1,3,5,8,11,13
� �
�:
�! � �redraw_days(q%,min%,max%)
� ȕ min%<=max%
�/ ș OS_Plot,4,q%!4+20+min%*55,q%!8+300
! ș OS_Write0,day$(min%)
min%+=1
�
& �
0:
:2 � �redraw_numbers(q%,minx%,miny%,maxx%,maxy%)
D
� store%
N2 � (month%=this_month%) � (year%=this_year%) �
X t%=today%
b �
l
t%=-1
v �
� store%=minx%
� ȕ miny%<=maxy%
� ȕ minx%<=maxx%
�1 number% = minx%+(4-miny%)*7+1-offset%
�4 � ((number%>0) � (number%<=num_days%)) �
�/ � t%=number% � ș Wimp_SetColour,11
�< ș OS_Plot,4,q%!4+20+minx%*55,q%!8+miny%*50+50
�( ș OS_Write0,num$(number%)
�. � t%=number% � ș Wimp_SetColour,7
�
�
� minx%+=1
� �
� minx%=store%
miny%+=1
�
�
:
*% � �report_error(number%,string$)
4
!q%=0
>. $(q%+4)=string$+" at line "+�(number%)+�0
H* ș "Wimp_ReportError",q%,0,"Calender"
R1 ș "Wimp_ReportError",q%,%1000000,"Calender"
\ �
f:
� 00000000 0d 00 0a 12 20 f4 20 3e 20 21 52 75 6e 49 6d 61 |.... . > !RunIma|
00000010 67 65 0d 00 14 04 0d 00 1e 22 20 f4 20 62 79 20 |ge......." . by |
00000020 4e 69 63 6b 20 4d 63 46 61 72 6c 61 6e 65 20 4a |Nick McFarlane J|
00000030 75 6c 79 20 31 39 39 31 0d 00 28 20 20 f4 20 28 |uly 1991..( . (|
00000040 63 29 20 41 72 63 68 69 6d 65 64 65 73 20 57 6f |c) Archimedes Wo|
00000050 72 6c 64 20 31 39 39 32 0d 00 32 04 0d 00 3c 3c |rld 1992..2...<<|
00000060 20 f4 20 2d 2d 2d 2d 2d 20 47 4c 4f 42 41 4c 53 | . ----- GLOBALS|
00000070 20 41 52 45 20 6d 6f 6e 74 68 25 20 41 4e 44 20 | ARE month% AND |
00000080 79 65 61 72 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |year% ----------|
00000090 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 46 3b 20 f4 20 2d |--------..F; . -|
000000a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 41 4e 44 |------------ AND|
000000b0 20 6f 66 66 73 65 74 25 20 26 20 6e 75 6d 5f 64 | offset% & num_d|
000000c0 61 79 73 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ays% -----------|
000000d0 2d 2d 2d 0d 00 50 3c 20 f4 20 2d 2d 2d 2d 2d 2d |---..P< . ------|
000000e0 2d 2d 2d 2d 2d 2d 2d 20 41 4e 44 20 74 68 69 73 |------- AND this|
000000f0 5f 6d 6f 6e 74 68 25 20 26 20 74 68 69 73 5f 79 |_month% & this_y|
00000100 65 61 72 25 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |ear% ----------.|
00000110 00 5a 1f 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.Z. . ----------|
00000120 2d 2d 2d 20 41 4e 44 20 74 6f 64 61 79 25 0d 00 |--- AND today%..|
00000130 64 04 0d 00 6e 1e 20 ee 20 85 20 f2 72 65 70 6f |d...n. . . .repo|
00000140 72 74 5f 65 72 72 6f 72 28 9e 2c f6 24 29 3a e0 |rt_error(.,.$):.|
00000150 0d 00 78 04 0d 00 82 1c 20 4f 53 5f 50 6c 6f 74 |..x..... OS_Plot|
00000160 20 20 20 20 20 20 20 20 20 20 20 3d 20 26 34 35 | = &45|
00000170 0d 00 8c 1b 20 4f 53 5f 57 72 69 74 65 30 20 20 |.... OS_Write0 |
00000180 20 20 20 20 20 20 20 3d 20 26 32 0d 00 96 1f 20 | = &2.... |
00000190 57 69 6d 70 5f 50 6f 6c 6c 20 20 20 20 20 20 20 |Wimp_Poll |
000001a0 20 20 3d 20 26 34 30 30 43 37 0d 00 a0 1f 20 57 | = &400C7.... W|
000001b0 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 |imp_GetRectangle|
000001c0 20 3d 20 26 34 30 30 43 41 0d 00 aa 1f 20 57 69 | = &400CA.... Wi|
000001d0 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 20 |mp_RedrawWindow |
000001e0 3d 20 26 34 30 30 43 38 0d 00 b4 1f 20 57 69 6d |= &400C8.... Wim|
000001f0 70 5f 46 6f 72 63 65 52 65 64 72 61 77 20 20 3d |p_ForceRedraw =|
00000200 20 26 34 30 30 44 31 0d 00 be 1f 20 57 69 6d 70 | &400D1.... Wimp|
00000210 5f 53 65 74 43 6f 6c 6f 75 72 20 20 20 20 3d 20 |_SetColour = |
00000220 26 34 30 30 45 36 0d 00 c8 04 0d 00 d2 28 20 de |&400E6.......( .|
00000230 20 69 6e 66 6f 74 65 6d 70 25 20 32 35 36 2b 33 | infotemp% 256+3|
00000240 32 2a 38 2c 20 77 6f 72 6b 74 65 6d 70 25 20 31 |2*8, worktemp% 1|
00000250 32 38 0d 00 dc 30 20 de 20 69 6e 66 6f 5f 69 63 |28...0 . info_ic|
00000260 6f 6e 5f 73 70 61 63 65 25 20 31 32 38 2c 20 77 |on_space% 128, w|
00000270 6f 72 6b 5f 69 63 6f 6e 5f 73 70 61 63 65 25 20 |ork_icon_space% |
00000280 36 34 0d 00 e6 25 20 de 20 69 63 6f 6e 5f 6d 65 |64...% . icon_me|
00000290 6e 75 25 20 31 32 38 2c 20 77 6f 72 6b 5f 6d 65 |nu% 128, work_me|
000002a0 6e 75 25 20 35 31 32 0d 00 f0 0d 20 de 20 71 25 |nu% 512.... . q%|
000002b0 20 32 35 36 0d 00 fa 04 0d 01 04 29 20 f4 20 2d | 256.......) . -|
000002c0 2d 2d 2d 2d 2d 20 67 65 74 20 74 6f 64 61 79 73 |----- get todays|
000002d0 27 73 20 64 61 74 65 20 2d 2d 2d 2d 2d 2d 2d 2d |'s date --------|
000002e0 2d 0d 01 0e 0c 20 21 71 25 20 3d 20 33 0d 01 18 |-.... !q% = 3...|
000002f0 17 20 c8 99 20 22 4f 53 5f 57 6f 72 64 22 2c 31 |. .. "OS_Word",1|
00000300 34 2c 71 25 0d 01 22 21 20 24 28 71 25 2b 35 30 |4,q%.."! $(q%+50|
00000310 29 20 3d 20 22 25 44 59 25 4d 4e 25 43 45 25 59 |) = "%DY%MN%CE%Y|
00000320 52 22 2b bd 30 0d 01 2c 33 20 c8 99 20 22 4f 53 |R"+.0..,3 .. "OS|
00000330 5f 43 6f 6e 76 65 72 74 44 61 74 65 41 6e 64 54 |_ConvertDateAndT|
00000340 69 6d 65 22 2c 71 25 2c 71 25 2b 31 35 30 2c 31 |ime",q%,q%+150,1|
00000350 30 30 2c 71 25 2b 35 30 0d 01 2d 27 f4 20 20 50 |00,q%+50..-'. P|
00000360 52 4f 43 72 65 70 6f 72 74 5f 65 72 72 6f 72 28 |ROCreport_error(|
00000370 30 2c 53 54 52 24 28 71 25 2b 31 35 30 29 29 0d |0,STR$(q%+150)).|
00000380 01 36 23 20 74 6f 64 61 79 25 20 20 20 20 20 20 |.6# today% |
00000390 3d 20 bb 28 c0 24 28 71 25 2b 31 35 30 29 2c 32 |= .(.$(q%+150),2|
000003a0 29 29 0d 01 40 25 20 74 68 69 73 5f 6d 6f 6e 74 |))..@% this_mont|
000003b0 68 25 20 3d 20 bb 28 c1 24 28 71 25 2b 31 35 30 |h% = .(.$(q%+150|
000003c0 29 2c 33 2c 32 29 29 0d 01 4a 25 20 74 68 69 73 |),3,2))..J% this|
000003d0 5f 79 65 61 72 25 20 20 3d 20 bb 28 c1 24 28 71 |_year% = .(.$(q|
000003e0 25 2b 31 35 30 29 2c 35 2c 34 29 29 0d 01 54 19 |%+150),5,4))..T.|
000003f0 20 6d 6f 6e 74 68 25 20 3d 20 74 68 69 73 5f 6d | month% = this_m|
00000400 6f 6e 74 68 25 0d 01 5e 18 20 79 65 61 72 25 20 |onth%..^. year% |
00000410 20 3d 20 74 68 69 73 5f 79 65 61 72 25 0d 01 68 | = this_year%..h|
00000420 51 f4 20 50 52 4f 43 72 65 70 6f 72 74 5f 65 72 |Q. PROCreport_er|
00000430 72 6f 72 28 30 2c 53 54 52 24 28 74 68 69 73 5f |ror(0,STR$(this_|
00000440 6d 6f 6e 74 68 25 29 2b 22 20 22 2b 53 54 52 24 |month%)+" "+STR$|
00000450 28 74 68 69 73 5f 79 65 61 72 25 29 2b 22 20 22 |(this_year%)+" "|
00000460 2b 53 54 52 24 28 74 6f 64 61 79 25 29 29 0d 01 |+STR$(today%))..|
00000470 72 04 0d 01 7c 11 20 f2 73 65 74 5f 75 70 5f 64 |r...|. .set_up_d|
00000480 61 74 61 0d 01 86 10 20 f2 69 6e 69 74 69 61 6c |ata.... .initial|
00000490 69 73 65 0d 01 90 19 20 62 61 72 5f 68 61 6e 64 |ise.... bar_hand|
000004a0 6c 65 25 3d a4 69 63 6f 6e 62 61 72 0d 01 9a 13 |le%=.iconbar....|
000004b0 20 f2 6f 70 65 6e 5f 74 65 6d 70 6c 61 74 65 0d | .open_template.|
000004c0 01 a4 3d 20 f2 63 61 6c 63 75 6c 61 74 65 5f 6f |..= .calculate_o|
000004d0 66 66 73 65 74 5f 6c 65 6e 67 74 68 28 6d 6f 6e |ffset_length(mon|
000004e0 74 68 25 2c 79 65 61 72 25 2c 6f 66 66 73 65 74 |th%,year%,offset|
000004f0 25 2c 6e 75 6d 5f 64 61 79 73 25 29 0d 01 ae 16 |%,num_days%)....|
00000500 20 f2 63 72 65 61 74 65 5f 69 63 6f 6e 5f 6d 65 | .create_icon_me|
00000510 6e 75 0d 01 b8 24 20 f2 63 72 65 61 74 65 5f 77 |nu...$ .create_w|
00000520 6f 72 6b 5f 6d 65 6e 75 28 6d 6f 6e 74 68 25 2c |ork_menu(month%,|
00000530 79 65 61 72 25 29 0d 01 c2 3d 20 f2 63 61 6c 63 |year%)...= .calc|
00000540 75 6c 61 74 65 5f 6f 66 66 73 65 74 5f 6c 65 6e |ulate_offset_len|
00000550 67 74 68 28 6d 6f 6e 74 68 25 2c 79 65 61 72 25 |gth(month%,year%|
00000560 2c 6f 66 66 73 65 74 25 2c 6e 75 6d 5f 64 61 79 |,offset%,num_day|
00000570 73 25 29 0d 01 cc 04 0d 01 d6 05 3a 0d 01 e0 06 |s%)........:....|
00000580 20 f5 0d 01 ea 35 20 20 c8 99 20 57 69 6d 70 5f | ....5 .. Wimp_|
00000590 50 6f 6c 6c 2c 25 31 30 30 30 30 30 30 30 30 30 |Poll,%1000000000|
000005a0 30 30 30 30 31 31 30 30 30 31 2c 71 25 20 b8 20 |0000110001,q% . |
000005b0 72 65 61 73 6f 6e 25 0d 01 f4 12 20 20 c8 8e 20 |reason%.... .. |
000005c0 72 65 61 73 6f 6e 25 20 ca 0d 01 fe 1e 20 20 20 |reason% ..... |
000005d0 c9 20 31 3a 20 f2 72 65 64 72 61 77 5f 77 69 6e |. 1: .redraw_win|
000005e0 64 6f 77 28 71 25 29 0d 02 08 1b 20 20 20 c9 20 |dow(q%).... . |
000005f0 32 3a 20 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 71 |2: .openwindow(q|
00000600 25 29 0d 02 12 1c 20 20 20 c9 20 33 3a 20 f2 63 |%).... . 3: .c|
00000610 6c 6f 73 65 77 69 6e 64 6f 77 28 71 25 29 0d 02 |losewindow(q%)..|
00000620 1c 1b 20 20 20 c9 20 36 3a 20 f2 6d 6f 75 73 65 |.. . 6: .mouse|
00000630 63 6c 69 63 6b 28 71 25 29 0d 02 26 1f 20 20 20 |click(q%)..&. |
00000640 c9 20 39 3a 20 f2 6d 65 6e 75 5f 73 65 6c 65 63 |. 9: .menu_selec|
00000650 74 69 6f 6e 28 71 25 29 0d 02 30 29 20 20 20 c9 |tion(q%)..0) .|
00000660 20 31 37 2c 31 38 3a 20 20 e7 20 28 71 25 21 31 | 17,18: . (q%!1|
00000670 36 29 3d 30 20 8c 20 f2 63 6c 6f 73 65 64 6f 77 |6)=0 . .closedow|
00000680 6e 0d 02 3a 07 20 20 cb 0d 02 44 08 20 fd 20 a3 |n..:. ...D. . .|
00000690 0d 02 4e 06 20 e0 0d 02 58 05 3a 0d 02 62 36 20 |..N. ...X.:..b6 |
000006a0 f4 20 77 69 6e 64 6f 77 20 6c 61 79 6f 75 74 20 |. window layout |
000006b0 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------|
000006c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 34 30 |------------ 40|
000006d0 30 0d 02 6c 31 20 f4 20 20 20 20 20 20 20 20 20 |0..l1 . |
000006e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 | | |
000006f0 20 20 6d 6f 6e 74 68 2c 79 65 61 72 20 20 20 20 | month,year |
00000700 20 7c 0d 02 76 36 20 f4 20 20 20 20 20 20 20 20 | |..v6 . |
00000710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c | ||
00000720 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000730 2d 2d 7c 20 20 33 32 30 0d 02 80 31 20 f4 20 20 |--| 320...1 . |
00000740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 20 | | |
00000760 20 20 20 20 20 20 20 20 7c 0d 02 8a 31 20 f4 20 | |...1 . |
00000770 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 20 | | |
00000790 20 20 20 20 20 20 20 20 20 7c 0d 02 94 31 20 f4 | |...1 .|
000007a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007b0 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 20 | | |
000007c0 20 20 20 20 20 20 20 20 20 20 7c 0d 02 9e 31 20 | |...1 |
000007d0 f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000007e0 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 20 20 | | |
000007f0 20 20 20 20 20 20 20 20 20 20 20 7c 0d 02 a8 35 | |...5|
00000800 20 f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000810 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d | -------|
00000820 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 |------------- |
00000830 30 0d 02 b2 33 20 f4 20 20 20 20 20 20 20 20 20 |0...3 . |
00000840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 | 0 |
00000850 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000860 20 34 30 30 0d 02 bc 30 20 f4 20 20 73 63 72 65 | 400...0 . scre|
00000870 65 6e 5f 6d 69 6e 5f 78 25 3d 71 25 21 32 38 3a |en_min_x%=q%!28:|
00000880 20 73 63 72 65 65 6e 5f 6d 69 6e 5f 79 25 3d 71 | screen_min_y%=q|
00000890 25 21 33 32 0d 02 c6 30 20 f4 20 20 73 63 72 65 |%!32...0 . scre|
000008a0 65 6e 5f 6d 61 78 5f 78 25 3d 71 25 21 33 36 3a |en_max_x%=q%!36:|
000008b0 20 73 63 72 65 65 6e 5f 6d 61 78 5f 79 25 3d 71 | screen_max_y%=q|
000008c0 25 21 34 30 0d 02 d0 26 20 f4 20 20 77 6f 72 6b |%!40...& . work|
000008d0 5f 6d 69 6e 5f 78 25 3d 73 63 72 65 65 6e 5f 6d |_min_x%=screen_m|
000008e0 69 6e 5f 78 25 2d 71 25 21 34 0d 02 da 26 20 f4 |in_x%-q%!4...& .|
000008f0 20 20 77 6f 72 6b 5f 6d 69 6e 5f 79 25 3d 73 63 | work_min_y%=sc|
00000900 72 65 65 6e 5f 6d 69 6e 5f 79 25 2d 71 25 21 38 |reen_min_y%-q%!8|
00000910 0d 02 e4 27 20 f4 20 20 77 6f 72 6b 5f 6d 61 78 |...' . work_max|
00000920 5f 78 25 3d 73 63 72 65 65 6e 5f 6d 61 78 5f 78 |_x%=screen_max_x|
00000930 25 2d 71 25 21 31 32 0d 02 ee 27 20 f4 20 20 77 |%-q%!12...' . w|
00000940 6f 72 6b 5f 6d 61 78 5f 79 25 3d 73 63 72 65 65 |ork_max_y%=scree|
00000950 6e 5f 6d 61 78 5f 79 25 2d 71 25 21 31 36 0d 02 |n_max_y%-q%!16..|
00000960 f8 05 3a 0d 03 02 19 20 dd 20 f2 72 65 64 72 61 |..:.... . .redra|
00000970 77 5f 77 69 6e 64 6f 77 28 71 25 29 0d 03 0c 21 |w_window(q%)...!|
00000980 20 ea 20 61 25 2c 62 25 2c 63 25 2c 64 25 2c 69 | . a%,b%,c%,d%,i|
00000990 25 2c 6a 25 2c 6b 25 2c 6c 25 2c 6e 25 0d 03 16 |%,j%,k%,l%,n%...|
000009a0 24 20 c8 99 20 57 69 6d 70 5f 52 65 64 72 61 77 |$ .. Wimp_Redraw|
000009b0 57 69 6e 64 6f 77 2c 2c 71 25 20 b8 20 66 6c 61 |Window,,q% . fla|
000009c0 67 0d 03 20 0c 20 c8 95 20 66 6c 61 67 0d 03 2a |g.. . .. flag..*|
000009d0 2d 20 20 20 20 61 25 3d 71 25 21 32 38 2d 71 25 |- a%=q%!28-q%|
000009e0 21 34 20 20 20 20 20 20 20 20 20 3a 20 62 25 3d |!4 : b%=|
000009f0 71 25 21 33 32 2d 71 25 21 38 0d 03 34 2d 20 20 |q%!32-q%!8..4- |
00000a00 20 20 63 25 3d 71 25 21 33 36 2d 71 25 21 34 20 | c%=q%!36-q%!4 |
00000a10 20 20 20 20 20 20 20 20 3a 20 64 25 3d 71 25 21 | : d%=q%!|
00000a20 34 30 2d 71 25 21 38 0d 03 48 2e 20 20 20 20 69 |40-q%!8..H. i|
00000a30 25 3d 20 28 61 25 2d 32 30 29 20 81 20 35 35 20 |%= (a%-20) . 55 |
00000a40 20 20 20 3a 20 6a 25 3d 20 28 62 25 2d 35 30 29 | : j%= (b%-50)|
00000a50 20 81 20 35 30 0d 03 5c 31 20 20 20 20 6b 25 3d | . 50..\1 k%=|
00000a60 28 28 63 25 2d 32 30 29 20 81 20 35 35 29 2b 31 |((c%-20) . 55)+1|
00000a70 20 3a 20 6c 25 3d 28 28 64 25 2d 35 30 29 20 81 | : l%=((d%-50) .|
00000a80 20 35 30 29 2b 31 0d 03 7a 15 20 20 20 20 e7 20 | 50)+1..z. . |
00000a90 69 25 3c 30 20 8c 20 69 25 3d 30 0d 03 84 15 20 |i%<0 . i%=0.... |
00000aa0 20 20 20 e7 20 6b 25 3e 36 20 8c 20 6b 25 3d 36 | . k%>6 . k%=6|
00000ab0 0d 03 8e 2a 20 20 20 20 e7 20 28 6c 25 3e 3d 35 |...* . (l%>=5|
00000ac0 29 20 8c 20 f2 72 65 64 72 61 77 5f 64 61 79 73 |) . .redraw_days|
00000ad0 28 71 25 2c 69 25 2c 6b 25 29 0d 03 a2 15 20 20 |(q%,i%,k%).... |
00000ae0 20 20 e7 20 6a 25 3c 30 20 8c 20 6a 25 3d 30 0d | . j%<0 . j%=0.|
00000af0 03 ac 15 20 20 20 20 e7 20 6c 25 3e 34 20 8c 20 |... . l%>4 . |
00000b00 6c 25 3d 34 0d 03 c0 27 20 20 20 20 f2 72 65 64 |l%=4...' .red|
00000b10 72 61 77 5f 6e 75 6d 62 65 72 73 28 71 25 2c 69 |raw_numbers(q%,i|
00000b20 25 2c 6a 25 2c 6b 25 2c 6c 25 29 0d 03 ca 27 20 |%,j%,k%,l%)...' |
00000b30 20 20 20 c8 99 20 57 69 6d 70 5f 47 65 74 52 65 | .. Wimp_GetRe|
00000b40 63 74 61 6e 67 6c 65 2c 2c 71 25 20 b8 20 66 6c |ctangle,,q% . fl|
00000b50 61 67 0d 03 d4 06 20 ce 0d 03 de 06 20 e1 0d 03 |ag.... ..... ...|
00000b60 e8 05 3a 0d 03 f2 16 20 dd 20 f2 6d 6f 75 73 65 |..:.... . .mouse|
00000b70 63 6c 69 63 6b 28 68 25 29 0d 03 fc 12 20 62 75 |click(h%).... bu|
00000b80 74 74 6f 6e 73 25 3d 68 25 21 38 0d 04 06 12 20 |ttons%=h%!8.... |
00000b90 77 69 6e 64 6f 77 25 3d 68 25 21 31 32 0d 04 10 |window%=h%!12...|
00000ba0 10 20 69 63 6f 6e 25 3d 68 25 21 31 36 0d 04 1a |. icon%=h%!16...|
00000bb0 11 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 04 |. .. window% ...|
00000bc0 24 1a 20 20 c9 20 2d 32 3a 20 e7 20 62 75 74 74 |$. . -2: . butt|
00000bd0 6f 6e 73 25 3d 32 20 8c 0d 04 2e 40 20 20 20 20 |ons%=2 ....@ |
00000be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 | .|
00000bf0 6f 70 65 6e 5f 6d 65 6e 75 28 69 63 6f 6e 5f 6d |open_menu(icon_m|
00000c00 65 6e 75 25 2c 28 68 25 21 30 2d 34 30 29 2c 68 |enu%,(h%!0-40),h|
00000c10 25 21 34 2b 31 30 34 29 0d 04 38 10 20 20 20 20 |%!4+104)..8. |
00000c20 20 20 20 20 20 20 20 cc 0d 04 42 43 20 20 20 20 | ...BC |
00000c30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 | !|
00000c40 71 25 3d 21 77 6f 72 6b 74 65 6d 70 25 20 3a 20 |q%=!worktemp% : |
00000c50 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
00000c60 6f 77 49 6e 66 6f 22 2c 2c 71 25 0d 04 4c 26 20 |owInfo",,q%..L& |
00000c70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c80 20 20 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 71 25 | .openwindow(q%|
00000c90 29 0d 04 56 10 20 20 20 20 20 20 20 20 20 20 20 |)..V. |
00000ca0 cd 0d 04 60 23 20 20 c9 20 77 6f 72 6b 68 61 6e |...`# . workhan|
00000cb0 64 6c 65 25 3a 20 e7 20 62 75 74 74 6f 6e 73 25 |dle%: . buttons%|
00000cc0 3d 32 20 8c 0d 04 6a 3b 20 20 20 20 20 20 20 20 |=2 ...j; |
00000cd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ce0 f2 63 72 65 61 74 65 5f 77 6f 72 6b 5f 6d 65 6e |.create_work_men|
00000cf0 75 28 6d 6f 6e 74 68 25 2c 79 65 61 72 25 29 0d |u(month%,year%).|
00000d00 04 74 44 20 20 20 20 20 20 20 20 20 20 20 20 20 |.tD |
00000d10 20 20 20 20 20 20 20 20 20 20 20 f2 6f 70 65 6e | .open|
00000d20 5f 6d 65 6e 75 28 77 6f 72 6b 5f 6d 65 6e 75 25 |_menu(work_menu%|
00000d30 2c 28 68 25 21 30 29 2d 34 30 2c 68 25 21 34 2b |,(h%!0)-40,h%!4+|
00000d40 36 34 29 0d 04 7e 1a 20 20 20 20 20 20 20 20 20 |64)..~. |
00000d50 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d 04 88 | ....|
00000d60 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |( |
00000d70 20 20 20 20 20 20 20 e7 20 62 75 74 74 6f 6e 73 | . buttons|
00000d80 25 3d 31 20 8c 0d 04 92 2c 20 20 20 20 20 20 20 |%=1 ...., |
00000d90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000da0 20 20 6d 6f 6e 74 68 25 3d 6d 6f 6e 74 68 25 2b | month%=month%+|
00000db0 31 0d 04 9c 41 20 20 20 20 20 20 20 20 20 20 20 |1...A |
00000dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 | . |
00000dd0 6d 6f 6e 74 68 25 3d 31 33 20 8c 20 6d 6f 6e 74 |month%=13 . mont|
00000de0 68 25 3d 31 3a 79 65 61 72 25 3d 79 65 61 72 25 |h%=1:year%=year%|
00000df0 2b 31 0d 04 a6 1b 20 20 20 20 20 20 20 20 20 20 |+1.... |
00000e00 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d 04 b0 | ....|
00000e10 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |, |
00000e20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 74 68 25 | month%|
00000e30 3d 6d 6f 6e 74 68 25 2d 31 0d 04 ba 41 20 20 20 |=month%-1...A |
00000e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000e50 20 20 20 20 20 20 e7 20 6d 6f 6e 74 68 25 3d 30 | . month%=0|
00000e60 20 8c 20 6d 6f 6e 74 68 25 3d 31 32 3a 79 65 61 | . month%=12:yea|
00000e70 72 25 3d 79 65 61 72 25 2d 31 0d 04 c4 1b 20 20 |r%=year%-1.... |
00000e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000e90 20 20 20 20 cd 0d 04 ce 49 20 20 20 20 20 20 20 | ....I |
00000ea0 20 20 20 20 20 20 f2 63 61 6c 63 75 6c 61 74 65 | .calculate|
00000eb0 5f 6f 66 66 73 65 74 5f 6c 65 6e 67 74 68 28 6d |_offset_length(m|
00000ec0 6f 6e 74 68 25 2c 79 65 61 72 25 2c 6f 66 66 73 |onth%,year%,offs|
00000ed0 65 74 25 2c 6e 75 6d 5f 64 61 79 73 25 29 0d 04 |et%,num_days%)..|
00000ee0 e2 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.F |
00000ef0 20 20 20 20 20 20 20 20 21 71 25 3d 21 77 6f 72 | !q%=!wor|
00000f00 6b 74 65 6d 70 25 20 3a 20 c8 99 20 22 57 69 6d |ktemp% : .. "Wim|
00000f10 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 |p_GetWindowInfo"|
00000f20 2c 2c 71 25 0d 04 ec 31 20 20 20 20 20 20 20 20 |,,q%...1 |
00000f30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 63 | .c|
00000f40 6c 6f 73 65 77 69 6e 64 6f 77 28 77 6f 72 6b 74 |losewindow(workt|
00000f50 65 6d 70 25 29 0d 04 f6 29 20 20 20 20 20 20 20 |emp%)...) |
00000f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 | .|
00000f70 6f 70 65 6e 77 69 6e 64 6f 77 28 71 25 29 0d 05 |openwindow(q%)..|
00000f80 00 19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000f90 20 20 20 20 20 20 cd 0d 05 0a 06 20 cb 0d 05 14 | ..... ....|
00000fa0 06 20 e1 0d 05 1e 05 3a 0d 05 28 1a 20 dd 20 f2 |. .....:..(. . .|
00000fb0 6d 65 6e 75 5f 73 65 6c 65 63 74 69 6f 6e 28 68 |menu_selection(h|
00000fc0 25 29 0d 05 32 0e 20 69 74 65 6d 25 3d 21 68 25 |%)..2. item%=!h%|
00000fd0 0d 05 3c 21 20 c8 99 20 22 57 69 6d 70 5f 47 65 |..<! .. "Wimp_Ge|
00000fe0 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 71 |tPointerInfo",,q|
00000ff0 25 0d 05 46 16 20 62 75 74 74 6f 6e 25 3d 28 71 |%..F. button%=(q|
00001000 25 21 38 20 80 31 29 0d 05 50 17 20 c8 8e 20 63 |%!8 .1)..P. .. c|
00001010 75 72 72 65 6e 74 5f 6d 65 6e 75 25 20 ca 0d 05 |urrent_menu% ...|
00001020 5a 29 20 c9 20 69 63 6f 6e 5f 6d 65 6e 75 25 3a |Z) . icon_menu%:|
00001030 20 e7 20 69 74 65 6d 25 3d 31 20 8c 20 f2 63 6c | . item%=1 . .cl|
00001040 6f 73 65 64 6f 77 6e 0d 05 64 1e 20 c9 20 77 6f |osedown..d. . wo|
00001050 72 6b 5f 6d 65 6e 75 25 3a 20 e7 20 69 74 65 6d |rk_menu%: . item|
00001060 25 3d 30 20 8c 0d 05 6e 34 20 20 20 20 20 20 20 |%=0 ...n4 |
00001070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001080 20 79 65 61 72 25 20 3d 20 bb 28 24 28 6d 65 6e | year% = .($(men|
00001090 75 5f 74 65 78 74 25 29 29 0d 05 78 17 20 20 20 |u_text%))..x. |
000010a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cc | .|
000010b0 0d 05 82 28 20 20 20 20 20 20 20 20 20 20 20 20 |...( |
000010c0 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 74 | mont|
000010d0 68 25 3d 69 74 65 6d 25 0d 05 8c 17 20 20 20 20 |h%=item%.... |
000010e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d | ..|
000010f0 05 96 49 20 20 20 20 20 20 20 20 20 20 20 20 20 |..I |
00001100 f2 63 61 6c 63 75 6c 61 74 65 5f 6f 66 66 73 65 |.calculate_offse|
00001110 74 5f 6c 65 6e 67 74 68 28 6d 6f 6e 74 68 25 2c |t_length(month%,|
00001120 79 65 61 72 25 2c 6f 66 66 73 65 74 25 2c 6e 75 |year%,offset%,nu|
00001130 6d 5f 64 61 79 73 25 29 0d 05 97 44 20 20 20 20 |m_days%)...D |
00001140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001150 21 71 25 3d 21 77 6f 72 6b 74 65 6d 70 25 20 3a |!q%=!worktemp% :|
00001160 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e | .. "Wimp_GetWin|
00001170 64 6f 77 49 6e 66 6f 22 2c 2c 71 25 0d 05 a0 2f |dowInfo",,q%.../|
00001180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001190 20 20 20 20 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 | .closewindow|
000011a0 28 77 6f 72 6b 74 65 6d 70 25 29 0d 05 aa 27 20 |(worktemp%)...' |
000011b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011c0 20 20 20 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 71 | .openwindow(q|
000011d0 25 29 0d 05 b4 06 20 cb 0d 05 be 44 20 e7 20 62 |%).... ....D . b|
000011e0 75 74 74 6f 6e 25 3d 31 20 20 f2 63 72 65 61 74 |utton%=1 .creat|
000011f0 65 5f 77 6f 72 6b 5f 6d 65 6e 75 28 6d 6f 6e 74 |e_work_menu(mont|
00001200 68 25 2c 79 65 61 72 25 29 3a f2 6f 70 65 6e 5f |h%,year%):.open_|
00001210 6d 65 6e 75 28 2d 31 2c 30 2c 30 29 0d 05 c8 06 |menu(-1,0,0)....|
00001220 20 e1 0d 05 d2 05 3a 0d 05 dc 33 20 dd 20 f2 63 | .....:...3 . .c|
00001230 61 6c 63 75 6c 61 74 65 5f 6f 66 66 73 65 74 5f |alculate_offset_|
00001240 6c 65 6e 67 74 68 28 6d 25 2c f8 20 79 25 2c f8 |length(m%,. y%,.|
00001250 20 6f 25 2c 20 f8 20 6c 25 29 0d 05 e6 18 20 e7 | o%, . l%).... .|
00001260 20 79 25 3e 32 30 35 30 20 8c 20 79 25 3d 32 30 | y%>2050 . y%=20|
00001270 35 30 0d 05 f0 18 20 e7 20 79 25 3c 31 38 35 30 |50.... . y%<1850|
00001280 20 8c 20 79 25 3d 31 38 35 30 0d 05 f1 13 20 e7 | . y%=1850.... .|
00001290 20 6d 25 3c 31 20 20 8c 20 6d 25 3d 31 0d 05 f2 | m%<1 . m%=1...|
000012a0 14 20 e7 20 6d 25 3e 31 32 20 8c 20 6d 25 3d 31 |. . m%>12 . m%=1|
000012b0 32 0d 05 fa 0d 20 e7 20 6d 25 3d 32 20 8c 0d 06 |2.... . m%=2 ...|
000012c0 04 30 20 20 20 e7 20 28 79 25 20 83 20 34 29 3d |.0 . (y% . 4)=|
000012d0 30 20 80 20 28 79 25 3c 3e 31 39 30 30 29 20 8c |0 . (y%<>1900) .|
000012e0 20 6c 25 3d 32 39 20 8b 20 6c 25 3d 32 38 0d 06 | l%=29 . l%=28..|
000012f0 0e 06 20 cc 0d 06 18 2d 20 20 20 e7 20 28 6d 25 |.. ....- . (m%|
00001300 3d 34 29 20 84 20 28 6d 25 3d 36 29 20 84 20 28 |=4) . (m%=6) . (|
00001310 6d 25 3d 39 29 20 84 20 28 6d 25 3d 31 31 29 20 |m%=9) . (m%=11) |
00001320 8c 0d 06 22 0e 20 20 20 20 20 6c 25 3d 33 30 0d |...". l%=30.|
00001330 06 2c 08 20 20 20 cc 0d 06 36 0e 20 20 20 20 20 |.,. ...6. |
00001340 6c 25 3d 33 31 0d 06 40 08 20 20 20 cd 0d 06 4a |l%=31..@. ...J|
00001350 06 20 cd 0d 06 54 1b 20 64 75 6d 6d 79 25 3d 79 |. ...T. dummy%=y|
00001360 65 61 72 73 25 28 79 25 2d 31 38 34 39 29 0d 06 |ears%(y%-1849)..|
00001370 5e 1b 20 6f 25 3d 6f 66 66 73 65 74 73 25 28 64 |^. o%=offsets%(d|
00001380 75 6d 6d 79 25 2c 6d 25 29 0d 06 68 2f 20 24 28 |ummy%,m%)..h/ $(|
00001390 21 28 77 6f 72 6b 74 65 6d 70 25 2b 34 2b 37 32 |!(worktemp%+4+72|
000013a0 29 29 3d 6d 6f 6e 74 68 24 28 6d 25 29 2b 22 2c |))=month$(m%)+",|
000013b0 20 22 2b c3 28 79 25 29 0d 06 72 06 20 e1 0d 06 | "+.(y%)..r. ...|
000013c0 7c 05 3a 0d 06 86 12 20 dd 20 f2 69 6e 69 74 69 ||.:.... . .initi|
000013d0 61 6c 69 73 65 0d 06 90 3b 20 c8 99 20 22 57 69 |alise...; .. "Wi|
000013e0 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 |mp_Initialise",2|
000013f0 30 30 2c 26 34 42 35 33 34 31 35 34 2c 22 63 61 |00,&4B534154,"ca|
00001400 6c 65 6e 64 61 72 22 20 b8 20 2c 74 61 73 6b 25 |lendar" . ,task%|
00001410 0d 06 9a 06 20 e1 0d 06 a4 05 3a 0d 06 ae 11 20 |.... .....:.... |
00001420 dd 20 f2 63 6c 6f 73 65 64 6f 77 6e 0d 06 b8 28 |. .closedown...(|
00001430 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 | .. "Wimp_CloseD|
00001440 6f 77 6e 22 2c 74 61 73 6b 25 2c 26 34 42 35 33 |own",task%,&4B53|
00001450 34 31 35 34 0d 06 c2 06 20 e1 0d 06 cc 05 3a 0d |4154.... .....:.|
00001460 06 d6 0f 20 dd 20 a4 69 63 6f 6e 62 61 72 0d 06 |... . .iconbar..|
00001470 e0 0e 20 ea 20 68 61 6e 64 6c 65 25 0d 06 ea 23 |.. . handle%...#|
00001480 20 71 25 21 30 3d 2d 31 3a 71 25 21 34 3d 30 3a | q%!0=-1:q%!4=0:|
00001490 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 36 34 0d |q%!8=0:q%!12=64.|
000014a0 06 f4 2e 20 71 25 21 31 36 3d 36 34 3a 71 25 21 |... q%!16=64:q%!|
000014b0 32 30 3d 26 33 30 30 32 3a 24 28 71 25 2b 32 34 |20=&3002:$(q%+24|
000014c0 29 3d 22 21 63 61 6c 65 6e 64 61 72 22 0d 06 fe |)="!calendar"...|
000014d0 27 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |' .. "Wimp_Creat|
000014e0 65 49 63 6f 6e 22 2c 2c 71 25 20 b8 20 68 61 6e |eIcon",,q% . han|
000014f0 64 6c 65 25 0d 07 08 0d 20 3d 68 61 6e 64 6c 65 |dle%.... =handle|
00001500 25 0d 07 12 05 3a 0d 07 1c 16 20 dd 20 f2 6f 70 |%....:.... . .op|
00001510 65 6e 77 69 6e 64 6f 77 28 68 25 29 0d 07 26 1d |enwindow(h%)..&.|
00001520 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 | .. "Wimp_OpenWi|
00001530 6e 64 6f 77 22 2c 2c 68 25 0d 07 30 06 20 e1 0d |ndow",,h%..0. ..|
00001540 07 3a 05 3a 0d 07 44 17 20 dd 20 f2 63 6c 6f 73 |.:.:..D. . .clos|
00001550 65 77 69 6e 64 6f 77 28 68 25 29 0d 07 4e 1e 20 |ewindow(h%)..N. |
00001560 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |.. "Wimp_CloseWi|
00001570 6e 64 6f 77 22 2c 2c 68 25 0d 07 58 06 20 e1 0d |ndow",,h%..X. ..|
00001580 07 62 05 3a 0d 07 6c 15 20 dd 20 f2 6f 70 65 6e |.b.:..l. . .open|
00001590 5f 74 65 6d 70 6c 61 74 65 0d 07 76 37 20 c8 99 |_template..v7 ..|
000015a0 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c | "Wimp_OpenTempl|
000015b0 61 74 65 22 2c 2c 22 3c 63 61 6c 65 6e 64 61 72 |ate",,"<calendar|
000015c0 24 64 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 |$dir>.Templates"|
000015d0 0d 07 80 4a 20 77 6f 72 6b 68 61 6e 64 6c 65 25 |...J workhandle%|
000015e0 3d a4 63 72 65 61 74 65 77 69 6e 64 6f 77 28 77 |=.createwindow(w|
000015f0 6f 72 6b 74 65 6d 70 25 2c 22 77 6f 72 6b 77 69 |orktemp%,"workwi|
00001600 6e 64 6f 77 22 2c 2d 31 2c 77 6f 72 6b 5f 69 63 |ndow",-1,work_ic|
00001610 6f 6e 5f 73 70 61 63 65 25 29 0d 07 8a 4a 20 69 |on_space%)...J i|
00001620 6e 66 6f 68 61 6e 64 6c 65 25 3d a4 63 72 65 61 |nfohandle%=.crea|
00001630 74 65 77 69 6e 64 6f 77 28 69 6e 66 6f 74 65 6d |tewindow(infotem|
00001640 70 25 2c 22 69 6e 66 6f 77 69 6e 64 6f 77 22 2c |p%,"infowindow",|
00001650 2d 31 2c 69 6e 66 6f 5f 69 63 6f 6e 5f 73 70 61 |-1,info_icon_spa|
00001660 63 65 25 29 0d 07 94 1c 20 c8 99 20 22 57 69 6d |ce%).... .. "Wim|
00001670 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 |p_CloseTemplate"|
00001680 0d 07 9e 06 20 e1 0d 07 a8 05 3a 0d 07 b2 31 20 |.... .....:...1 |
00001690 dd 20 a4 63 72 65 61 74 65 77 69 6e 64 6f 77 28 |. .createwindow(|
000016a0 74 65 6d 70 6c 61 74 65 25 2c 6e 61 6d 65 24 2c |template%,name$,|
000016b0 73 70 72 69 74 65 73 25 2c 69 25 29 0d 07 bc 0e |sprites%,i%)....|
000016c0 20 ea 20 68 61 6e 64 6c 65 25 0d 07 c6 3b 20 c8 | . handle%...; .|
000016d0 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |. "Wimp_LoadTemp|
000016e0 6c 61 74 65 22 2c 2c 74 65 6d 70 6c 61 74 65 25 |late",,template%|
000016f0 2b 34 2c 69 25 2c 69 25 2b 31 32 38 2c 2d 31 2c |+4,i%,i%+128,-1,|
00001700 6e 61 6d 65 24 0d 07 d0 2d 20 e7 20 73 70 72 69 |name$...- . spri|
00001710 74 65 73 25 3c 3e 2d 31 20 8c 20 74 65 6d 70 6c |tes%<>-1 . templ|
00001720 61 74 65 25 21 36 38 20 3d 20 73 70 72 69 74 65 |ate%!68 = sprite|
00001730 73 25 0d 07 da 32 20 c8 99 20 22 57 69 6d 70 5f |s%...2 .. "Wimp_|
00001740 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 74 |CreateWindow",,t|
00001750 65 6d 70 6c 61 74 65 25 2b 34 20 b8 20 68 61 6e |emplate%+4 . han|
00001760 64 6c 65 25 0d 07 e4 19 20 21 74 65 6d 70 6c 61 |dle%.... !templa|
00001770 74 65 25 20 3d 20 68 61 6e 64 6c 65 25 0d 07 ee |te% = handle%...|
00001780 0d 20 3d 68 61 6e 64 6c 65 25 0d 07 f8 05 3a 0d |. =handle%....:.|
00001790 08 16 47 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |..G. ===========|
000017a0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000017b0 3d 3d 3d 3d 3d 3d 3d 20 6d 65 6e 75 73 20 3d 3d |======= menus ==|
000017c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000017d0 3d 3d 3d 3d 3d 3d 0d 08 20 05 3a 0d 08 2a 1e 20 |======.. .:..*. |
000017e0 dd 20 f2 6f 70 65 6e 5f 6d 65 6e 75 28 6d 65 6e |. .open_menu(men|
000017f0 75 25 2c 78 25 2c 79 25 29 0d 08 34 14 20 e7 20 |u%,x%,y%)..4. . |
00001800 6d 65 6e 75 25 20 3c 3e 20 2d 31 20 8c 0d 08 3e |menu% <> -1 ...>|
00001810 0f 20 20 6d 65 6e 75 78 25 3d 78 25 0d 08 48 0f |. menux%=x%..H.|
00001820 20 20 6d 65 6e 75 79 25 3d 79 25 0d 08 52 1b 20 | menuy%=y%..R. |
00001830 20 63 75 72 72 65 6e 74 5f 6d 65 6e 75 25 20 3d | current_menu% =|
00001840 20 6d 65 6e 75 25 0d 08 5c 06 20 cd 0d 08 66 36 | menu%..\. ...f6|
00001850 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 | .. "Wimp_Create|
00001860 4d 65 6e 75 22 2c 2c 63 75 72 72 65 6e 74 5f 6d |Menu",,current_m|
00001870 65 6e 75 25 2c 6d 65 6e 75 78 25 2c 6d 65 6e 75 |enu%,menux%,menu|
00001880 79 25 0d 08 70 06 20 e1 0d 08 7a 05 3a 0d 08 84 |y%..p. ...z.:...|
00001890 18 20 dd 20 f2 63 72 65 61 74 65 5f 69 63 6f 6e |. . .create_icon|
000018a0 5f 6d 65 6e 75 0d 08 8e 14 20 6d 25 20 3d 20 69 |_menu.... m% = i|
000018b0 63 6f 6e 5f 6d 65 6e 75 25 0d 08 98 2e 20 6d 25 |con_menu%.... m%|
000018c0 20 3d 20 a4 63 72 65 61 74 65 6d 65 6e 75 68 65 | = .createmenuhe|
000018d0 61 64 65 72 28 6d 25 2c 22 43 61 6c 65 6e 64 61 |ader(m%,"Calenda|
000018e0 72 22 2c 31 32 38 29 0d 08 a2 3a 20 6d 25 20 3d |r",128)...: m% =|
000018f0 20 a4 63 72 65 61 74 65 6d 65 6e 75 69 74 65 6d | .createmenuitem|
00001900 28 6d 25 2c 25 30 30 30 30 30 30 30 30 2c 69 6e |(m%,%00000000,in|
00001910 66 6f 68 61 6e 64 6c 65 25 2c 22 49 6e 66 6f 22 |fohandle%,"Info"|
00001920 29 0d 08 ac 31 20 6d 25 20 3d 20 a4 63 72 65 61 |)...1 m% = .crea|
00001930 74 65 6d 65 6e 75 69 74 65 6d 28 6d 25 2c 25 31 |temenuitem(m%,%1|
00001940 30 30 30 30 30 30 30 2c 2d 31 2c 22 51 75 69 74 |0000000,-1,"Quit|
00001950 22 29 0d 08 b6 06 20 e1 0d 08 c0 05 3a 0d 08 ca |").... .....:...|
00001960 24 20 dd 20 f2 63 72 65 61 74 65 5f 77 6f 72 6b |$ . .create_work|
00001970 5f 6d 65 6e 75 28 6d 6f 6e 25 2c 79 65 61 72 25 |_menu(mon%,year%|
00001980 29 0d 08 d4 14 20 de 20 6d 65 6e 75 5f 74 65 78 |).... . menu_tex|
00001990 74 25 20 33 32 0d 08 de 0c 20 ea 20 66 6c 61 67 |t% 32.... . flag|
000019a0 25 0d 08 e8 12 20 6d 25 3d 77 6f 72 6b 5f 6d 65 |%.... m%=work_me|
000019b0 6e 75 25 0d 08 f2 2e 20 6d 25 20 3d 20 a4 63 72 |nu%.... m% = .cr|
000019c0 65 61 74 65 6d 65 6e 75 68 65 61 64 65 72 28 6d |eatemenuheader(m|
000019d0 25 2c 22 43 61 6c 65 6e 64 61 72 22 2c 31 36 30 |%,"Calendar",160|
000019e0 29 0d 08 fc 33 20 6d 25 20 3d 20 a4 63 72 65 61 |)...3 m% = .crea|
000019f0 74 65 6d 65 6e 75 69 74 65 6d 28 6d 25 2c 25 30 |temenuitem(m%,%0|
00001a00 30 30 30 30 31 31 30 2c 2d 31 2c c3 28 79 65 61 |0000110,-1,.(yea|
00001a10 72 25 29 29 0d 09 06 29 20 21 28 6d 25 2d 32 34 |r%))...) !(m%-24|
00001a20 2b 38 29 20 3d 20 21 28 6d 25 2d 32 34 2b 38 29 |+8) = !(m%-24+8)|
00001a30 20 84 20 25 31 30 30 30 30 30 30 30 31 0d 09 10 | . %100000001...|
00001a40 30 20 21 28 6d 25 2d 32 34 2b 31 32 29 20 3d 20 |0 !(m%-24+12) = |
00001a50 6d 65 6e 75 5f 74 65 78 74 25 20 3a 20 20 20 20 |menu_text% : |
00001a60 f4 20 74 65 78 74 20 62 75 66 66 65 72 0d 09 1a |. text buffer...|
00001a70 36 20 21 28 6d 25 2d 32 34 2b 31 36 29 20 3d 20 |6 !(m%-24+16) = |
00001a80 6d 65 6e 75 5f 74 65 78 74 25 2b 31 30 20 3a 20 |menu_text%+10 : |
00001a90 f4 20 76 61 6c 69 64 61 74 69 6f 6e 20 73 74 72 |. validation str|
00001aa0 69 6e 67 0d 09 24 30 20 21 28 6d 25 2d 32 34 2b |ing..$0 !(m%-24+|
00001ab0 32 30 29 20 3d 20 35 20 3a 20 20 20 20 20 20 20 |20) = 5 : |
00001ac0 20 20 20 20 20 20 f4 20 62 75 66 66 20 6c 65 6e | . buff len|
00001ad0 67 74 68 0d 09 2e 20 20 24 28 6d 65 6e 75 5f 74 |gth... $(menu_t|
00001ae0 65 78 74 25 29 20 3d 20 c3 28 79 65 61 72 25 29 |ext%) = .(year%)|
00001af0 2b bd 30 0d 09 38 25 20 24 28 6d 65 6e 75 5f 74 |+.0..8% $(menu_t|
00001b00 65 78 74 25 2b 31 30 29 20 3d 20 22 41 30 2d 39 |ext%+10) = "A0-9|
00001b10 7e 61 2d 7a 22 2b bd 30 0d 09 42 11 20 e3 20 69 |~a-z"+.0..B. . i|
00001b20 25 3d 20 31 20 b8 20 31 31 0d 09 4c 23 20 20 e7 |%= 1 . 11..L# .|
00001b30 20 69 25 3d 6d 6f 6e 25 20 8c 20 66 6c 61 67 25 | i%=mon% . flag%|
00001b40 3d 31 20 8b 20 66 6c 61 67 25 3d 30 0d 09 56 3e |=1 . flag%=0..V>|
00001b50 20 20 6d 25 20 3d 20 a4 63 72 65 61 74 65 6d 65 | m% = .createme|
00001b60 6e 75 69 74 65 6d 28 6d 25 2c 28 25 30 30 30 30 |nuitem(m%,(%0000|
00001b70 30 30 30 30 2b 66 6c 61 67 25 29 2c 2d 31 2c 6d |0000+flag%),-1,m|
00001b80 6f 6e 74 68 24 28 69 25 29 29 0d 09 60 06 20 ed |onth$(i%))..`. .|
00001b90 0d 09 6a 22 20 e7 20 6d 6f 6e 25 3d 31 32 20 8c |..j" . mon%=12 .|
00001ba0 20 66 6c 61 67 25 3d 31 20 8b 20 66 6c 61 67 25 | flag%=1 . flag%|
00001bb0 3d 30 0d 09 74 3d 20 6d 25 20 3d 20 a4 63 72 65 |=0..t= m% = .cre|
00001bc0 61 74 65 6d 65 6e 75 69 74 65 6d 28 6d 25 2c 28 |atemenuitem(m%,(|
00001bd0 25 31 30 30 30 30 30 30 30 2b 66 6c 61 67 25 29 |%10000000+flag%)|
00001be0 2c 2d 31 2c 6d 6f 6e 74 68 24 28 31 32 29 29 0d |,-1,month$(12)).|
00001bf0 09 7e 06 20 e1 0d 09 b0 05 3a 0d 09 ba 2b 20 dd |.~. .....:...+ .|
00001c00 20 a4 63 72 65 61 74 65 6d 65 6e 75 68 65 61 64 | .createmenuhead|
00001c10 65 72 28 70 74 72 25 2c 6e 61 6d 65 24 2c 77 69 |er(ptr%,name$,wi|
00001c20 64 74 68 25 29 0d 09 c4 12 20 24 28 70 74 72 25 |dth%).... $(ptr%|
00001c30 29 3d 6e 61 6d 65 24 0d 09 ce 16 20 70 74 72 25 |)=name$.... ptr%|
00001c40 21 31 32 3d 26 30 30 30 37 30 32 30 37 0d 09 d8 |!12=&00070207...|
00001c50 13 20 70 74 72 25 21 31 36 3d 77 69 64 74 68 25 |. ptr%!16=width%|
00001c60 0d 09 e2 0f 20 70 74 72 25 21 32 30 3d 34 34 0d |.... ptr%!20=44.|
00001c70 09 ec 0e 20 70 74 72 25 21 32 34 3d 30 0d 09 f6 |... ptr%!24=0...|
00001c80 0f 20 3d 28 70 74 72 25 2b 32 38 29 0d 0a 00 05 |. =(ptr%+28)....|
00001c90 3a 0d 0a 0a 2f 20 dd 20 a4 63 72 65 61 74 65 6d |:.../ . .createm|
00001ca0 65 6e 75 69 74 65 6d 28 70 74 72 25 2c 66 6c 61 |enuitem(ptr%,fla|
00001cb0 67 73 25 2c 73 75 62 6d 65 6e 75 25 2c 73 24 29 |gs%,submenu%,s$)|
00001cc0 0d 0a 14 12 20 70 74 72 25 21 30 3d 66 6c 61 67 |.... ptr%!0=flag|
00001cd0 73 25 0d 0a 1e 14 20 70 74 72 25 21 34 3d 73 75 |s%.... ptr%!4=su|
00001ce0 62 6d 65 6e 75 25 0d 0a 28 15 20 70 74 72 25 21 |bmenu%..(. ptr%!|
00001cf0 38 3d 26 30 37 30 31 39 30 33 31 0d 0a 32 12 20 |8=&07019031..2. |
00001d00 24 28 70 74 72 25 2b 31 32 29 3d 73 24 0d 0a 3c |$(ptr%+12)=s$..<|
00001d10 0f 20 3d 28 70 74 72 25 2b 32 34 29 0d 0a 46 05 |. =(ptr%+24)..F.|
00001d20 3a 0d 0a 50 13 20 dd 20 f2 73 65 74 5f 75 70 5f |:..P. . .set_up_|
00001d30 64 61 74 61 0d 0a 5a 0e 20 de 20 64 61 79 24 28 |data..Z. . day$(|
00001d40 36 29 0d 0a 64 3b 20 64 61 79 24 28 30 29 3d 22 |6)..d; day$(0)="|
00001d50 53 75 22 3a 20 64 61 79 24 28 31 29 3d 22 4d 6f |Su": day$(1)="Mo|
00001d60 22 3a 20 64 61 79 24 28 32 29 3d 22 54 75 22 3a |": day$(2)="Tu":|
00001d70 20 64 61 79 24 28 33 29 3d 22 57 65 22 0d 0a 6e | day$(3)="We"..n|
00001d80 2d 20 64 61 79 24 28 34 29 3d 22 54 68 22 3a 20 |- day$(4)="Th": |
00001d90 64 61 79 24 28 35 29 3d 22 46 72 22 3a 20 64 61 |day$(5)="Fr": da|
00001da0 79 24 28 36 29 3d 22 53 61 22 0d 0a 78 0f 20 de |y$(6)="Sa"..x. .|
00001db0 20 6e 75 6d 24 28 33 31 29 0d 0a 82 26 20 e3 20 | num$(31)...& . |
00001dc0 69 25 3d 31 20 20 b8 20 39 3a 20 6e 75 6d 24 28 |i%=1 . 9: num$(|
00001dd0 69 25 29 3d 22 20 22 2b c3 28 69 25 29 3a ed 0d |i%)=" "+.(i%):..|
00001de0 0a 8c 22 20 e3 20 69 25 3d 31 30 20 b8 20 33 31 |.." . i%=10 . 31|
00001df0 3a 6e 75 6d 24 28 69 25 29 3d c3 28 69 25 29 3a |:num$(i%)=.(i%):|
00001e00 ed 0d 0a 96 11 20 de 20 6d 6f 6e 74 68 24 28 31 |..... . month$(1|
00001e10 32 29 0d 0a a0 45 20 6d 6f 6e 74 68 24 28 31 29 |2)...E month$(1)|
00001e20 3d 28 22 4a 61 6e 75 61 72 79 22 29 3a 6d 6f 6e |=("January"):mon|
00001e30 74 68 24 28 32 29 3d 28 22 46 65 62 72 75 61 72 |th$(2)=("Februar|
00001e40 79 22 29 3a 6d 6f 6e 74 68 24 28 33 29 3d 28 22 |y"):month$(3)=("|
00001e50 4d 61 72 63 68 22 29 0d 0a aa 3d 20 6d 6f 6e 74 |March")...= mont|
00001e60 68 24 28 34 29 3d 28 22 41 70 72 69 6c 22 29 3a |h$(4)=("April"):|
00001e70 6d 6f 6e 74 68 24 28 35 29 3d 28 22 4d 61 79 22 |month$(5)=("May"|
00001e80 29 3a 6d 6f 6e 74 68 24 28 36 29 3d 28 22 4a 75 |):month$(6)=("Ju|
00001e90 6e 65 22 29 0d 0a b4 44 20 6d 6f 6e 74 68 24 28 |ne")...D month$(|
00001ea0 37 29 3d 28 22 4a 75 6c 79 22 29 3a 6d 6f 6e 74 |7)=("July"):mont|
00001eb0 68 24 28 38 29 3d 28 22 41 75 67 75 73 74 22 29 |h$(8)=("August")|
00001ec0 3a 6d 6f 6e 74 68 24 28 39 29 3d 28 22 53 65 70 |:month$(9)=("Sep|
00001ed0 74 65 6d 62 65 72 22 29 0d 0a be 4b 20 6d 6f 6e |tember")...K mon|
00001ee0 74 68 24 28 31 30 29 3d 28 22 4f 63 74 6f 62 65 |th$(10)=("Octobe|
00001ef0 72 22 29 3a 6d 6f 6e 74 68 24 28 31 31 29 3d 28 |r"):month$(11)=(|
00001f00 22 4e 6f 76 65 6d 62 65 72 22 29 3a 6d 6f 6e 74 |"November"):mont|
00001f10 68 24 28 31 32 29 3d 28 22 44 65 63 65 6d 62 65 |h$(12)=("Decembe|
00001f20 72 22 29 0d 0a c8 16 20 de 20 6f 66 66 73 65 74 |r").... . offset|
00001f30 73 25 28 31 34 2c 31 32 29 0d 0a d2 3a 20 e3 20 |s%(14,12)...: . |
00001f40 69 25 20 3d 20 31 20 b8 20 31 34 20 3a 20 e3 20 |i% = 1 . 14 : . |
00001f50 6a 25 20 3d 20 31 20 b8 20 31 32 20 3a 20 f3 20 |j% = 1 . 12 : . |
00001f60 6f 66 66 73 65 74 73 25 28 69 25 2c 6a 25 29 3a |offsets%(i%,j%):|
00001f70 ed 3a ed 0d 0a dc 12 20 de 20 79 65 61 72 73 25 |.:..... . years%|
00001f80 28 32 30 31 29 0d 0a e6 25 20 e3 20 69 25 20 3d |(201)...% . i% =|
00001f90 20 31 20 b8 20 32 30 31 20 3a 20 f3 20 79 65 61 | 1 . 201 : . yea|
00001fa0 72 73 25 28 69 25 29 20 3a ed 0d 0a f0 1f 20 f4 |rs%(i%) :..... .|
00001fb0 20 2d 2d 2d 2d 20 74 79 70 65 73 20 66 69 72 73 | ---- types firs|
00001fc0 74 20 2d 2d 2d 2d 2d 2d 2d 0d 0a fa 1e 20 dc 20 |t -------.... . |
00001fd0 30 2c 33 2c 33 2c 36 2c 31 2c 34 2c 36 2c 32 2c |0,3,3,6,1,4,6,2,|
00001fe0 35 2c 30 2c 33 2c 35 0d 0b 04 1e 20 dc 20 30 2c |5,0,3,5.... . 0,|
00001ff0 33 2c 34 2c 30 2c 32 2c 35 2c 30 2c 33 2c 36 2c |3,4,0,2,5,0,3,6,|
00002000 31 2c 34 2c 36 0d 0b 0e 1e 20 dc 20 31 2c 34 2c |1,4,6.... . 1,4,|
00002010 34 2c 30 2c 32 2c 35 2c 30 2c 33 2c 36 2c 31 2c |4,0,2,5,0,3,6,1,|
00002020 34 2c 36 0d 0b 18 1e 20 dc 20 31 2c 34 2c 35 2c |4,6.... . 1,4,5,|
00002030 31 2c 33 2c 36 2c 31 2c 34 2c 30 2c 32 2c 35 2c |1,3,6,1,4,0,2,5,|
00002040 30 0d 0b 22 1e 20 dc 20 32 2c 35 2c 35 2c 31 2c |0..". . 2,5,5,1,|
00002050 33 2c 36 2c 31 2c 34 2c 30 2c 32 2c 35 2c 30 0d |3,6,1,4,0,2,5,0.|
00002060 0b 2c 1e 20 dc 20 32 2c 35 2c 36 2c 32 2c 34 2c |.,. . 2,5,6,2,4,|
00002070 30 2c 32 2c 33 2c 31 2c 33 2c 36 2c 31 0d 0b 36 |0,2,3,1,3,6,1..6|
00002080 1e 20 dc 20 33 2c 36 2c 36 2c 32 2c 34 2c 30 2c |. . 3,6,6,2,4,0,|
00002090 32 2c 35 2c 31 2c 33 2c 36 2c 31 0d 0b 40 1e 20 |2,5,1,3,6,1..@. |
000020a0 dc 20 33 2c 36 2c 30 2c 33 2c 35 2c 31 2c 33 2c |. 3,6,0,3,5,1,3,|
000020b0 36 2c 32 2c 34 2c 30 2c 32 0d 0b 4a 1e 20 dc 20 |6,2,4,0,2..J. . |
000020c0 34 2c 30 2c 30 2c 33 2c 35 2c 31 2c 33 2c 36 2c |4,0,0,3,5,1,3,6,|
000020d0 32 2c 34 2c 30 2c 32 0d 0b 54 1e 20 dc 20 34 2c |2,4,0,2..T. . 4,|
000020e0 30 2c 31 2c 34 2c 36 2c 32 2c 34 2c 30 2c 33 2c |0,1,4,6,2,4,0,3,|
000020f0 35 2c 31 2c 33 0d 0b 5e 1e 20 dc 20 35 2c 31 2c |5,1,3..^. . 5,1,|
00002100 31 2c 34 2c 36 2c 32 2c 34 2c 30 2c 33 2c 35 2c |1,4,6,2,4,0,3,5,|
00002110 31 2c 33 0d 0b 68 1e 20 dc 20 35 2c 31 2c 32 2c |1,3..h. . 5,1,2,|
00002120 35 2c 30 2c 33 2c 35 2c 31 2c 34 2c 36 2c 32 2c |5,0,3,5,1,4,6,2,|
00002130 34 0d 0b 72 1e 20 dc 20 36 2c 32 2c 32 2c 35 2c |4..r. . 6,2,2,5,|
00002140 30 2c 33 2c 35 2c 31 2c 34 2c 36 2c 32 2c 34 0d |0,3,5,1,4,6,2,4.|
00002150 0b 7c 1e 20 dc 20 36 2c 32 2c 33 2c 36 2c 31 2c |.|. . 6,2,3,6,1,|
00002160 34 2c 36 2c 32 2c 35 2c 30 2c 33 2c 35 0d 0b 86 |4,6,2,5,0,3,5...|
00002170 1f 20 f4 20 2d 2d 2d 2d 20 61 6e 64 20 6e 6f 77 |. . ---- and now|
00002180 20 79 65 61 72 73 20 2d 2d 2d 2d 2d 0d 0b 90 49 | years -----...I|
00002190 20 dc 20 35 2c 37 2c 31 30 2c 31 33 2c 31 2c 33 | . 5,7,10,13,1,3|
000021a0 2c 36 2c 39 2c 31 31 2c 31 33 2c 32 2c 35 2c 37 |,6,9,11,13,2,5,7|
000021b0 2c 39 2c 31 32 2c 31 2c 33 2c 35 2c 38 2c 31 31 |,9,12,1,3,5,8,11|
000021c0 2c 31 33 2c 31 2c 34 2c 37 2c 39 2c 31 31 2c 31 |,13,1,4,7,9,11,1|
000021d0 34 2c 33 2c 35 0d 0b 9a 48 20 dc 20 37 2c 31 30 |4,3,5...H . 7,10|
000021e0 2c 31 33 2c 31 2c 33 2c 36 2c 39 2c 31 31 2c 31 |,13,1,3,6,9,11,1|
000021f0 33 2c 32 2c 35 2c 37 2c 39 2c 31 32 2c 31 2c 33 |3,2,5,7,9,12,1,3|
00002200 2c 35 2c 38 2c 31 31 2c 31 33 2c 31 2c 33 2c 35 |,5,8,11,13,1,3,5|
00002210 2c 37 2c 39 2c 31 32 2c 31 2c 33 2c 35 0d 0b a4 |,7,9,12,1,3,5...|
00002220 49 20 dc 20 38 2c 31 31 2c 31 33 2c 31 2c 34 2c |I . 8,11,13,1,4,|
00002230 37 2c 39 2c 31 31 2c 31 34 2c 33 2c 35 2c 37 2c |7,9,11,14,3,5,7,|
00002240 31 30 2c 31 33 2c 31 2c 33 2c 36 2c 39 2c 31 31 |10,13,1,3,6,9,11|
00002250 2c 31 33 2c 32 2c 35 2c 37 2c 39 2c 31 32 2c 31 |,13,2,5,7,9,12,1|
00002260 2c 33 2c 35 2c 38 0d 0b ae 4a 20 dc 20 31 31 2c |,3,5,8...J . 11,|
00002270 31 33 2c 31 2c 34 2c 37 2c 39 2c 31 31 2c 31 34 |13,1,4,7,9,11,14|
00002280 2c 33 2c 35 2c 37 2c 31 30 2c 31 33 2c 31 2c 33 |,3,5,7,10,13,1,3|
00002290 2c 36 2c 39 2c 31 31 2c 31 33 2c 32 2c 35 2c 37 |,6,9,11,13,2,5,7|
000022a0 2c 39 2c 31 32 2c 31 2c 33 2c 35 2c 38 2c 31 31 |,9,12,1,3,5,8,11|
000022b0 0d 0b b8 4a 20 dc 20 31 33 2c 31 2c 34 2c 37 2c |...J . 13,1,4,7,|
000022c0 39 2c 31 31 2c 31 34 2c 33 2c 35 2c 37 2c 31 30 |9,11,14,3,5,7,10|
000022d0 2c 31 33 2c 31 2c 33 2c 36 2c 39 2c 31 31 2c 31 |,13,1,3,6,9,11,1|
000022e0 33 2c 32 2c 35 2c 37 2c 39 2c 31 32 2c 31 2c 33 |3,2,5,7,9,12,1,3|
000022f0 2c 35 2c 38 2c 31 31 2c 31 33 0d 0b c2 47 20 dc |,5,8,11,13...G .|
00002300 20 31 2c 34 2c 37 2c 39 2c 31 31 2c 31 34 2c 33 | 1,4,7,9,11,14,3|
00002310 2c 35 2c 37 2c 31 30 2c 31 33 2c 31 2c 33 2c 36 |,5,7,10,13,1,3,6|
00002320 2c 39 2c 31 31 2c 31 33 2c 32 2c 35 2c 37 2c 39 |,9,11,13,2,5,7,9|
00002330 2c 31 32 2c 31 2c 33 2c 35 2c 38 2c 31 31 2c 31 |,12,1,3,5,8,11,1|
00002340 33 0d 0b cc 47 20 dc 20 31 2c 34 2c 37 2c 39 2c |3...G . 1,4,7,9,|
00002350 31 31 2c 31 34 2c 33 2c 35 2c 37 2c 31 30 2c 31 |11,14,3,5,7,10,1|
00002360 33 2c 31 2c 33 2c 36 2c 39 2c 31 31 2c 31 33 2c |3,1,3,6,9,11,13,|
00002370 32 2c 35 2c 37 2c 39 2c 31 32 2c 31 2c 33 2c 35 |2,5,7,9,12,1,3,5|
00002380 2c 38 2c 31 31 2c 31 33 0d 0b d6 06 20 e1 0d 0b |,8,11,13.... ...|
00002390 e0 05 3a 0d 0b ea 21 20 dd 20 f2 72 65 64 72 61 |..:...! . .redra|
000023a0 77 5f 64 61 79 73 28 71 25 2c 6d 69 6e 25 2c 6d |w_days(q%,min%,m|
000023b0 61 78 25 29 0d 0b f4 15 20 20 20 20 c8 95 20 6d |ax%).... .. m|
000023c0 69 6e 25 3c 3d 6d 61 78 25 0d 0b fe 2f 20 20 20 |in%<=max%.../ |
000023d0 20 20 20 c8 99 20 4f 53 5f 50 6c 6f 74 2c 34 2c | .. OS_Plot,4,|
000023e0 71 25 21 34 2b 32 30 2b 6d 69 6e 25 2a 35 35 2c |q%!4+20+min%*55,|
000023f0 71 25 21 38 2b 33 30 30 0d 0c 08 21 20 20 20 20 |q%!8+300...! |
00002400 20 20 c8 99 20 4f 53 5f 57 72 69 74 65 30 2c 64 | .. OS_Write0,d|
00002410 61 79 24 28 6d 69 6e 25 29 0d 0c 12 11 20 20 20 |ay$(min%).... |
00002420 20 20 20 6d 69 6e 25 2b 3d 31 0d 0c 1c 09 20 20 | min%+=1.... |
00002430 20 20 ce 0d 0c 26 06 20 e1 0d 0c 30 05 3a 0d 0c | ...&. ...0.:..|
00002440 3a 32 20 dd 20 f2 72 65 64 72 61 77 5f 6e 75 6d |:2 . .redraw_num|
00002450 62 65 72 73 28 71 25 2c 6d 69 6e 78 25 2c 6d 69 |bers(q%,minx%,mi|
00002460 6e 79 25 2c 6d 61 78 78 25 2c 6d 61 78 79 25 29 |ny%,maxx%,maxy%)|
00002470 0d 0c 44 0d 20 ea 20 73 74 6f 72 65 25 0d 0c 4e |..D. . store%..N|
00002480 32 20 e7 20 28 6d 6f 6e 74 68 25 3d 74 68 69 73 |2 . (month%=this|
00002490 5f 6d 6f 6e 74 68 25 29 20 80 20 28 79 65 61 72 |_month%) . (year|
000024a0 25 3d 74 68 69 73 5f 79 65 61 72 25 29 20 8c 0d |%=this_year%) ..|
000024b0 0c 58 11 20 20 20 20 74 25 3d 74 6f 64 61 79 25 |.X. t%=today%|
000024c0 0d 0c 62 06 20 cc 0d 0c 6c 0d 20 20 20 20 74 25 |..b. ...l. t%|
000024d0 3d 2d 31 0d 0c 76 06 20 cd 0d 0c 80 14 20 20 20 |=-1..v. ..... |
000024e0 20 73 74 6f 72 65 25 3d 6d 69 6e 78 25 0d 0c 8a | store%=minx%...|
000024f0 17 20 20 20 20 c8 95 20 6d 69 6e 79 25 3c 3d 6d |. .. miny%<=m|
00002500 61 78 79 25 0d 0c 94 19 20 20 20 20 20 20 c8 95 |axy%.... ..|
00002510 20 6d 69 6e 78 25 3c 3d 6d 61 78 78 25 0d 0c 9e | minx%<=maxx%...|
00002520 31 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 25 |1 number%|
00002530 20 3d 20 6d 69 6e 78 25 2b 28 34 2d 6d 69 6e 79 | = minx%+(4-miny|
00002540 25 29 2a 37 2b 31 2d 6f 66 66 73 65 74 25 0d 0c |%)*7+1-offset%..|
00002550 a8 34 20 20 20 20 20 20 20 20 e7 20 28 28 6e 75 |.4 . ((nu|
00002560 6d 62 65 72 25 3e 30 29 20 80 20 28 6e 75 6d 62 |mber%>0) . (numb|
00002570 65 72 25 3c 3d 6e 75 6d 5f 64 61 79 73 25 29 29 |er%<=num_days%))|
00002580 20 8c 0d 0c b2 2f 20 20 20 20 20 20 20 20 e7 20 | ..../ . |
00002590 74 25 3d 6e 75 6d 62 65 72 25 20 8c 20 c8 99 20 |t%=number% . .. |
000025a0 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 2c 31 |Wimp_SetColour,1|
000025b0 31 0d 0c bc 3c 20 20 20 20 20 20 20 20 20 20 c8 |1...< .|
000025c0 99 20 4f 53 5f 50 6c 6f 74 2c 34 2c 71 25 21 34 |. OS_Plot,4,q%!4|
000025d0 2b 32 30 2b 6d 69 6e 78 25 2a 35 35 2c 71 25 21 |+20+minx%*55,q%!|
000025e0 38 2b 6d 69 6e 79 25 2a 35 30 2b 35 30 0d 0c c6 |8+miny%*50+50...|
000025f0 28 20 20 20 20 20 20 20 20 20 20 c8 99 20 4f 53 |( .. OS|
00002600 5f 57 72 69 74 65 30 2c 6e 75 6d 24 28 6e 75 6d |_Write0,num$(num|
00002610 62 65 72 25 29 0d 0c d0 2e 20 20 20 20 20 20 20 |ber%).... |
00002620 20 e7 20 74 25 3d 6e 75 6d 62 65 72 25 20 8c 20 | . t%=number% . |
00002630 c8 99 20 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |.. Wimp_SetColou|
00002640 72 2c 37 0d 0c da 0d 20 20 20 20 20 20 20 20 cd |r,7.... .|
00002650 0d 0c e4 14 20 20 20 20 20 20 20 20 6d 69 6e 78 |.... minx|
00002660 25 2b 3d 31 0d 0c ee 0b 20 20 20 20 20 20 ce 0d |%+=1.... ..|
00002670 0c f8 16 20 20 20 20 20 20 6d 69 6e 78 25 3d 73 |... minx%=s|
00002680 74 6f 72 65 25 0d 0d 02 12 20 20 20 20 20 20 6d |tore%.... m|
00002690 69 6e 79 25 2b 3d 31 0d 0d 0c 09 20 20 20 20 ce |iny%+=1.... .|
000026a0 0d 0d 16 06 20 e1 0d 0d 20 05 3a 0d 0d 2a 25 20 |.... ... .:..*% |
000026b0 dd 20 f2 72 65 70 6f 72 74 5f 65 72 72 6f 72 28 |. .report_error(|
000026c0 6e 75 6d 62 65 72 25 2c 73 74 72 69 6e 67 24 29 |number%,string$)|
000026d0 0d 0d 34 0a 20 21 71 25 3d 30 0d 0d 3e 2e 20 24 |..4. !q%=0..>. $|
000026e0 28 71 25 2b 34 29 3d 73 74 72 69 6e 67 24 2b 22 |(q%+4)=string$+"|
000026f0 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 6e 75 6d | at line "+.(num|
00002700 62 65 72 25 29 2b bd 30 0d 0d 48 2a 20 c8 99 20 |ber%)+.0..H* .. |
00002710 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro|
00002720 72 22 2c 71 25 2c 30 2c 22 43 61 6c 65 6e 64 65 |r",q%,0,"Calende|
00002730 72 22 0d 0d 52 31 20 c8 99 20 22 57 69 6d 70 5f |r"..R1 .. "Wimp_|
00002740 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 71 25 2c |ReportError",q%,|
00002750 25 31 30 30 30 30 30 30 2c 22 43 61 6c 65 6e 64 |%1000000,"Calend|
00002760 65 72 22 0d 0d 5c 06 20 e1 0d 0d 66 05 3a 0d ff |er"..\. ...f.:..|
00002770 
.