Home » Archimedes archive » Archimedes World » AW-1991-06.adf » June91 » !AWJun91/Goodies/PD/!Diary/!RunImage
!AWJun91/Goodies/PD/!Diary/!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-1991-06.adf » June91 |
| Filename: | !AWJun91/Goodies/PD/!Diary/!RunImage |
| Read OK: | ✔ |
| File size: | 2D1B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >$.!Diary.!RunImage
20REM Program RISC OS diary
30REM Version 2.50
40REM Author Mike Ironmonger
50REM RISC User
60REM Program Subject To Copyright
70:
80ON ERROR PROCerror(ERR,REPORT$):GOTO110
90PROCinitialise
100:
110REPEAT
120SYS "Wimp_Poll",51,block% TO A%
130CASE A% OF
140 WHEN 2 : SYS "Wimp_OpenWindow",,block%
150 WHEN 3 : PROCclose_window(!block%,FALSE)
160 WHEN 6 : PROCbutton_click(block%!8,block%!12,block%!16)
170 WHEN 7 : PROCdrag_done
180 WHEN 8 : PROCkey_press(!block%,block%!4,block%!8,block%!24)
190 WHEN 9 : PROCmenu_select(!block%,block%!4)
200 WHEN 17,18 : PROCreceive(block%!16)
210ENDCASE
220UNTIL quit%
230SYS "Wimp_CloseDown"
240END
250:
260DEFPROCclose_window(W%,del%)
270IF W%<>w_diary% THEN
280 date%(FNget_note_num(W%))=-1
290 B%=FNaddr(W%)
300 IF del% OR (B%?4=13 AND B%?45=13 AND B%?86=13 AND B%?127=13) THEN
310 CALL delete_entry
320 PROCnew_month(0):PROCupdate_notes(FALSE)
330 ENDIF
340ENDIF
350!block%=W%:SYS "Wimp_CloseWindow",,block%
360ENDPROC
370:
380DEFPROCbutton_click(B%,W%,I%)
390CASE B% OF
400 WHEN 1 : PROCsa_click(12)
410 WHEN 2 : PROCmenu_click(W%,!block%,block%!4+12)
420 WHEN 4 : PROCsa_click(1)
430 WHEN 16,64 : PROCdrag_click
440ENDCASE
450ENDPROC
460:
470DEFPROCdrag_done
480SYS "Wimp_GetPointerInfo",,block%
490block%!20=64:block%!32=0
500block%!36=1:block%!40=block%!12
510block%!44=block%!16
520block%!48=!block%
530block%!52=block%!4
540block%!56=!next-!first
550block%!60=&FEF
560$(block%+64)=FNleaf($file_name%)
570SYS "Wimp_SendMessage",17,block%+20,block%!12,block%!16
580ENDPROC
590:
600DEFPROCkey_press(W%,I%,X%,C%)
610CASE C% OF
620 WHEN 13 : IF W%=w_save% PROCquick_save ELSE PROCcaret(W%,I%-(I%<3),0)
630 WHEN 30 : PROCcaret(W%,0,0)
640 WHEN &18E : PROCcaret(W%,I%-(I%<3),X%)
650 WHEN &18F : PROCcaret(W%,I%+(I%>0),X%)
660 OTHERWISE SYS "Wimp_ProcessKey",C%
670ENDCASE
680ENDPROC
690:
700DEFPROCmenu_select(A%,B%)
710SYS "Wimp_GetPointerInfo",,block%:stay%=block%!8=1
720CASE mw% OF
730 WHEN -2 : IF A%=0 quit%=TRUE
740 WHEN w_diary% : CASE A% OF
750 WHEN 0 : PROCnew_month((today%>>8)-month%)
760 WHEN 2 : PROCprint_entries(B%)
770 ENDCASE
780 OTHERWISE : CASE A% OF
790 WHEN 0 : PROCclear_entry(mw%)
800 WHEN 1 : PROCclose_window(mw%,TRUE):stay%=FALSE
810 WHEN 2 : PROCprint_entries(FNaddr(mw%))
820 ENDCASE
830ENDCASE
840IF stay% PROCmenu_click(mw%,mx%,my%)
850ENDPROC
860:
870DEFPROCreceive(M%)
880CASE M% OF
890 WHEN 0 : quit%=TRUE
900 WHEN 2 : PROCsave_notes(FNget_name(block%+44))
910 WHEN 3,5 : IF block%!12=0 AND block%!40=&FEF PROCload_merge(block%!20,FNget_name(block%+44))
920ENDCASE
930ENDPROC
940:
950DEFPROCsa_click(inc%)
960CASE W% OF
970 WHEN -2 : PROCnew_month(0):PROCopen_window(w_diary%)
980 WHEN w_save% : IF I%=i_ok% PROCquick_save
990 WHEN w_diary% : CASE I% OF
1000 WHEN 0 : PROCnew_month(-inc%)
1010 WHEN 1 : PROCnew_month(inc%)
1020 OTHERWISE PROCdate_selected((month%<<8)+I%-3)
1030 ENDCASE
1040ENDCASE
1050ENDPROC
1060:
1070DEFPROCmenu_click(W%,X%,Y%)
1080mw%=W%:mx%=X%:my%=Y%
1090CASE W% OF
1100 WHEN -2 : PROCmaster_menu("Diary","Quit,",X%,140)
1110 WHEN w_diary% : PROCmaster_menu("Diary","Goto today,Save notes,Print notes,",X%,Y%)
1120 OTHERWISE : PROCmaster_menu("Diary note","Clear,Delete,Print,",X%,Y%)
1130ENDCASE
1140ENDPROC
1150:
1160DEFPROCdrag_click
1170SYS "Wimp_GetWindowState",,block%+12
1180X%=block%!16:Y%=block%!28
1190block%!16=I%:SYS "Wimp_GetIconState",,block%+12
1200block%!16=5
1210block%!20+=X%-2:block%!24+=Y%-4
1220block%!28+=X%+2:block%!32+=Y%+4
1230block%!36=0:block%!40=0
1240block%!44=&7FFFFFFF
1250block%!48=&7FFFFFFF
1260SYS "Wimp_DragBox",,block%+12
1270ENDPROC
1280:
1290DEFPROCnew_month(inc%)
1300IF month%+inc%<0 ENDPROC
1310block%!0=w_diary%:FORI%=4TO34:block%!4=I%:SYS "Wimp_DeleteIcon",,block%:NEXT
1320month%+=inc%
1330m%=month% MOD 12:y%=month% DIV 12
1340$month_buff%=month$(m%)+" "+STR$y%
1350PROCset_icon_state(w_diary%,3,0,0)
1360A%=!first:X%=8+FNday(y%,m%,1)*64:Y%=-152
1370FORD%=1TOnum_days%(m%)-(m%=1 AND FNleap_year(y%))
1380E%=(month%<<8)+D%
1390B%=FNicon(w_diary%,STR$D%,X%,Y%,44,44,&27003009-32*(E%=!USR search))
1400X%+=64:IF X%=456 X%=8:Y%-=48
1410NEXT
1420SYS "Wimp_ForceRedraw",w_diary%,8,-392,436,-108
1430T%=FNtoday:IF T%<>today% today%=T%
1440IF month%=(today%>>8) PROCset_icon_state(w_diary%,3+today%AND255,4,4)
1450ENDPROC
1460:
1470DEFPROCdate_selected(E%)
1480N%=0:WHILE N%<4 AND date%(N%)<>E% N%+=1:ENDWHILE
1490IF date%(N%)=E% PROCtop(N%,FALSE):ENDPROC
1500N%=0:WHILE N%<4 AND date%(N%)>0 N%+=1:ENDWHILE
1510IF date%(N%)>0 ERROR 1,"Can't open any more note windows."
1520A%=USR find_entry
1530IF !A%<>E% THEN
1540 IF !next=!max ERROR 1,"No memory for any more entries."
1550 CALL insert_entry
1560 !A%=E%:A%!4=13:A%!45=13:A%!86=13:A%!127=13
1570 PROCset_icon_state(w_diary%,I%,32,32)
1580ENDIF
1590PROCtop(N%,TRUE)
1600ENDPROC
1610:
1620DEFPROCtop(N%,new%)
1630PROCopen_window(w_note%(N%))
1640IF new% date%(N%)=E%:$note_date%(N%)=FNdate_string(E%):PROCupdate_notes(FALSE)
1650PROCcaret(w_note%(N%),0,0)
1660ENDPROC
1670:
1680DEFPROCupdate_notes(show%)
1690SYS "Wimp_GetCaretPosition",,block%+36
1700FORD%=0TO4:E%=date%(D%)
1710IF E%>0 THEN
1720 !block%=w_note%(D%)
1730 P%=USR find_entry+4:Y%=-44
1740 FORI%=0TO3
1750 block%!4=I%:SYS "Wimp_DeleteIcon",,block%
1760 A%=FNind_icon(w_note%(D%),P%,-1,41,"",0,Y%,652,44,&700F101)
1770 IF show% PROCset_icon_state(w_note%(D%),I%,0,0)
1780 Y%-=40:P%+=41:NEXT
1790ENDIF
1800NEXT
1810SYS "Wimp_SetCaretPosition",block%!36,block%!40,block%!44,block%!48,block%!52,block%!56
1820ENDPROC
1830:
1840DEFPROCclear_entry(W%)
1850P%=FNaddr(W%)
1860FORI%=0TO3:P%?(I%*41+4)=13
1870PROCset_icon_state(W%,I%,0,0)
1880NEXT
1890PROCcaret(W%,0,0)
1900ENDPROC
1910:
1920DEFPROCprint_entries(S%)
1930IF !first=!next OR S%=-1 ENDPROC
1940LOCAL ERROR
1950ON ERROR LOCAL VDU3:OSCLI "fx 229 1":ENDPROC
1960SYS "OS_Byte",246,0,255 TO ,I%
1970VDU2:*fx 229 0
1980FORP%=!first TO !next-168 STEP 168
1990M%=(!P%)>>8
2000CASE S% OF
2010 WHEN 0 : IF month%=M% PROCprint_entry
2020 WHEN 1 : IF month% DIV12=M% DIV12 PROCprint_entry
2030 WHEN 2 : PROCprint_entry
2040 OTHERWISE : IF P%=S% PROCprint_entry
2050ENDCASE
2060NEXT
2070VDU3:*fx 229 1
2080ENDPROC
2090:
2100DEFPROCprint_entry
2110PROCprint_line(FNdate_string(!P%))
2120FORA%=4 TO 127 STEP 41
2130PROCprint_line($(P%+A%))
2140NEXT
2150VDU1,13:IF I%<>10 VDU1,10
2160ENDPROC
2170:
2180DEFPROCprint_line(A$)
2190IF A$="" ENDPROC
2200FORC%=1TOLEN(A$):VDU1,ASC(MID$(A$,C%,1)):NEXT
2210VDU1,13:IF I%<>10 VDU1,10
2220ENDPROC
2230:
2240DEFFNleap_year(Y%)
2250=(0=Y%MOD4 AND (Y%MOD100<>0 OR Y%MOD400=0))
2260DEFFNday(Y%,M%,D%)
2270=(365*Y%+Y%DIV4-Y%DIV100+Y%DIV400+days_so_far%(M%)+(M%<2 AND FNleap_year(Y%))-2+D%)MOD7
2280DEFFNdate_string(M%)
2290D%=M%AND255:Y%=(M%>>8)DIV12:M%=(M%>>8)MOD12
2300=day$(FNday(Y%,M%,D%))+" "+STR$D%+" "+month$(M%)+" "+STR$Y%
2310:
2320DEFPROCload_merge(W%,A$)
2330block%!12=block%!8
2340block%!16=4:!block%=64
2350SYS "Wimp_SendMessage",17,block%,block%!4
2360CASE W% OF
2370 WHEN w_diary% : PROCmerge_notes(A$)
2380 OTHERWISE PROCload_notes(A$)
2390ENDCASE
2400ENDPROC
2410:
2420DEFPROCload_notes(A$)
2430SYS "OS_File",5,A$ TO ,,,,L%
2440IF !first+L%>!max ERROR 1,"Diary too big to be loaded."
2450FORN%=0TO4:!block%=w_note%(N%):SYS "Wimp_CloseWindow",,block%:NEXT
2460date%()=-1:!next=!first+L%
2470SYS "OS_File",&FF,A$,!first,0
2480$file_name%=A$
2490PROCnew_month(0)
2500PROCopen_window(w_diary%)
2510E%=today%:IF !USRfind_entry=E% PROCdate_selected(E%)
2520ENDPROC
2530:
2540DEFPROCmerge_notes(A$)
2550SYS "OS_File",5,A$ TO ,,,,L%
2560err%=FALSE:H%=OPENIN A$
2570FORP%=0 TO L%-168 STEP 168
2580SYS "OS_GBPB",3,H%,buff,4,P%
2590E%=!buff:A%=USR find_entry
2600IF !A%<>E% AND !next<!max CALLinsert_entry:!A%=E%
2610IF !A%<>E% AND !next=!max err%=TRUE
2620IF !A%=E% SYS "OS_GBPB",4,H%,A%+4,164
2630NEXT
2640CLOSE #H%
2650PROCnew_month(0)
2660PROCupdate_notes(TRUE)
2670IF err% ERROR 1,"Ran out of memory for new entries, excess new entries ignored."
2680ENDPROC
2690:
2700DEFPROCsave_notes(A$)
2710SYS "OS_File",10,A$,&FEF,,!first,!next
2720SYS "Wimp_CreateMenu",-1
2730$file_name%=A$
2740block%!12=block%!8
2750block%!16=3:!block%=64
2760SYS "Wimp_SendMessage",17,block%,block%!20,block%!24
2770ENDPROC
2780:
2790DEFPROCquick_save
2800IF INSTR($file_name%,".")=0 ERROR 1,"To save, drag the icon to a directory viewer."
2810SYS "OS_File",10,$file_name%,&FEF,,!first,!next
2820SYS "Wimp_CreateMenu",-1
2830ENDPROC
2840:
2850DEFFNleaf(A$)
2860WHILE INSTR(A$,".")>0
2870 A$=MID$(A$,INSTR(A$,".")+1)
2880ENDWHILE
2890=A$
2900:
2910DEFFNget_name(P%)
2920A$=""
2930WHILE ?P%<>0 AND ?P%<>13
2940 A$=A$+CHR$?P%:P%+=1
2950ENDWHILE
2960=A$
2970:
2980DEFPROCset_icon_state(!block%,block%!4,block%!8,block%!12)
2990SYS "Wimp_SetIconState",,block%
3000ENDPROC
3010:
3020DEFPROCcaret(W%,I%,X%)
3030SYS "Wimp_SetCaretPosition",W%,I%,X%,,-1,-1
3040ENDPROC
3050:
3060DEFFNaddr(!block%)
3070block%!4=0:SYS "Wimp_GetIconState",,block%
3080=(block%!28)-4
3090:
3100DEFFNget_note_num(W%)
3110N%=0
3120WHILE w_note%(N%)<>W% N%+=1:ENDWHILE
3130=N%
3140:
3150DEFFNtoday
3160?block%=1:SYS "OS_Word",14,block%
3170A%=?block%:Y%=10*(A%>>4)+(A%AND15)
3180A%=block%?1:M%=22799+Y%*12+10*(A%>>4)+(A%AND15)
3190A%=block%?2
3200=(M%<<8)+10*(A%>>4)+(A%AND15)
3210:
3220DEFPROCerror(!block%,$(block%+4))
3230SYS "Wimp_ReportError",block%,1,"Diary"
3240ENDPROC
3250:
3260DEFPROCinitialise
3270DIM block% 90,menu% 400
3280max_notes%=250:DIM notes% 168*max_notes%
3290DIM month$(11),num_days%(11)
3300DIM days_so_far%(11),day$(6)
3310month$()="January","February","March","April","May","June","July","August","September","October","November","December"
3320num_days%()=31,28,31,30,31,30,31,31,30,31,30,31
3330days_so_far%()=0,31,59,90,120,151,181,212,243,273,304,334
3340day$()="Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"
3350:
3360today%=FNtoday:month%=today%>>8
3370quit%=FALSE
3380:
3390SYS "Wimp_Initialise",200,&4B534154,"Diary"
3400A%=FNind_icon(-1,A%,1,7,"!diary",0,0,58,68,&3102)
3410w_diary%=FNcreate_window("Diary ",A%,0,130,884,444,400,0,13,19)
3420A%=FNicon(w_diary%,CHR$136,8,-64,44,52,&2700203D)
3430A%=FNicon(w_diary%,CHR$137,392,-64,44,52,&2700203D)
3440A%=FNind_icon(w_diary%,A%,-1,28,"Mon Tue Wed Thu Fri Sat Sun",0,-108,450,36,&7000101)
3450A%=FNind_icon(w_diary%,month_buff%,-1,15,"",102,-56,240,36,&7000109)
3460:
3470DIM w_note%(4),note_date%(4),date%(4):date%()=-1
3480FORN%=0TO4
3490w_note%(N%)=FNcreate_window("",note_date%(N%),30,999,884-N%*88,652,164,0,12,31)
3500NEXT
3510:
3520w_save%=FNcreate_window("Save as:",A%,0,0,0,246,168,1,2,&93)
3530A%=FNind_icon(w_save%,A%,1,9,"file_fef",88,-92,68,68,&6102)
3540DIM t 3:$t="A~ "
3550A%=FNind_icon(w_save%,file_name%,t,255,"DiaryFile",8,-160,180,48,&700F12D)
3560i_ok%=FNicon(w_save%,"OK",194,-160,44,48,&C7019025)
3570PROCassemble
3580:
3590SYS "OS_GetEnv" TO A$
3600IF RIGHT$(A$,1)<>" " PROCload_notes(MID$(A$,INSTR(A$,""" ")+2))
3610ENDPROC
3620:
3630DEFFNcreate_window(title$,RETURN buff%,len%,X%,Y%,W%,H%,bg%,hg%,F%)
3640$block%=STRING$(88,CHR$0)
3650!block%=X%:block%!4=Y%-H%
3660block%!8=X%+W%:block%!12=Y%
3670block%!28=F%:block%!32=&207
3680block%?35=bg%:block%!36=&103
3690block%?38=hg%:block%!44=-H%
3700block%!48=W%:block%!56=&19
3710$(block%+72)=title$
3720IF len%>0 DIM buff% len%:block%!56=&119:block%!72=buff%:block%!76=-1:block%!80=len%
3730SYS "Wimp_CreateWindow",,block% TO H%
3740=H%
3750:
3760DEFPROCopen_window(!block%)
3770SYS "Wimp_GetWindowState",,block%
3780block%!28=-1:SYS "Wimp_OpenWindow",,block%
3790ENDPROC
3800:
3810DEFFNicon(!block%,text$,L%,B%,W%,H%,block%!20)
3820block%!4=L%:block%!8=B%
3830block%!12=L%+W%:block%!16=B%+H%
3840IF text$<>"" $(block%+24)=text$
3850SYS "Wimp_CreateIcon",,block% TO I%
3860=I%
3870:
3880DEFFNind_icon(window%,RETURN buff%,block%!28,len%,text$,L%,B%,W%,H%,F%)
3890IF buff%<&8000 DIM buff% len%
3900block%!24=buff%:block%!32=len%
3910IF text$<>"" $buff%=text$
3920=FNicon(window%,"",L%,B%,W%,H%,F%)
3930:
3940DEFPROCmaster_menu(title$,m$,X%,Y%)
3950PROCcreate_menu(menu%,title$,m$)
3960SYS "Wimp_CreateMenu",,menu%,X%-menu%!16/2,Y%
3970ENDPROC
3980:
3990DEFPROCcreate_menu(M%,title$,m$)
4000LOCAL I%,max%
4010$M%=title$:M%!12=&70207
4020M%!20=44:M%!24=0
4030I%=M%+28:max%=LEN(title$)-2
4040REPEAT
4050 A%=INSTR(m$,","):IF A%>max% max%=A%
4060 !I%=0:I%!4=0
4070 $(I%+12)=LEFT$(m$,A%-1)
4080 m$=MID$(m$,A%+1)
4090 CASE $(I%+12) OF
4100 WHEN "Save notes" : I%!4=w_save%
4110 WHEN "Print notes" : I%!4=menu%+200
4120 PROCcreate_menu(I%!4,"Print notes","month's,year's,all,")
4130 ENDCASE
4140 I%!8=&7000021:I%+=24
4150UNTIL m$=""
4160I%!-24=&80:M%!16=max%*16
4170ENDPROC
4180:
4190DEFPROCassemble
4200DIM code% 128
4210FORA%=0TO2STEP2:P%=code%
4220[OPT A%
4230.find_entry
4240LDR R0,first
4250.search
4260SUB R0,R0,#168
4270LDR R1,next
4280STR R0,[R1]
4290.next_entry
4300LDR R2,[R0,#168]!
4310TEQ R0,R1
4320MOVEQ PC,R14
4330CMP R4,R2
4340BHI next_entry
4350MOV PC,R14
4360:
4370.insert_entry
4380LDR R1,next
4390ADD R2,R1,#168
4400STR R2,next
4410.move_up
4420TEQ R0,R1
4430MOVEQ PC,R14
4440LDR R2,[R1,#-4]!
4450STR R2,[R1,#168]
4460B move_up
4470:
4480.delete_entry
4490LDR R0,next
4500SUB R2,R0,#168
4510STR R2,next
4520.move_down
4530TEQ R0,R1
4540MOVEQ PC,R14
4550LDR R2,[R1,#168]
4560STR R2,[R1],#4
4570B move_down
4580:
4590.buff EQUD 0
4600.first EQUD notes%
4610.next EQUD notes%
4620.max EQUD notes%+168*max_notes%
4630]:NEXT
4640ENDPROC
#� >$.!Diary.!RunImage
� Program RISC OS diary
� Version 2.50
( � Author Mike Ironmonger
2� RISC User
<$� Program Subject To Copyright
F:
P� � �error(�,�$):�Dn@
Z�initialise
d:
n�
x!ș "Wimp_Poll",51,block% � A%
� Ȏ A% �
�' � 2 : ș "Wimp_OpenWindow",,block%
�# � 3 : �close_window(!block%,�)
�6 � 6 : �button_click(block%!8,block%!12,block%!16)
� � 7 : �drag_done
�: � 8 : �key_press(!block%,block%!4,block%!8,block%!24)
�) � 9 : �menu_select(!block%,block%!4)
�" � 17,18 : �receive(block%!16)
��
� � quit%
�ș "Wimp_CloseDown"
��
�:
��close_window(W%,del%)
� W%<>w_diary% �
date%(�get_note_num(W%))=-1
" B%=�addr(W%)
,; � del% � (B%?4=13 � B%?45=13 � B%?86=13 � B%?127=13) �
6 � delete_entry
@$ �new_month(0):�update_notes(�)
J �
T�
^,!block%=W%:ș "Wimp_CloseWindow",,block%
h�
r:
| ��button_click(B%,W%,I%)
� Ȏ B% �
� � 1 : �sa_click(12)
�. � 2 : �menu_click(W%,!block%,block%!4+12)
� � 4 : �sa_click(1)
� � 16,64 : �drag_click
��
��
�:
���drag_done
�$ș "Wimp_GetPointerInfo",,block%
� block%!20=64:block%!32=0
�#block%!36=1:block%!40=block%!12
�block%!44=block%!16
block%!48=!block%
block%!52=block%!4
block%!56=!next-!first
&block%!60=&FEF
0#$(block%+64)=�leaf($file_name%)
::ș "Wimp_SendMessage",17,block%+20,block%!12,block%!16
D�
N:
X ��key_press(W%,I%,X%,C%)
b Ȏ C% �
l= � 13 : � W%=w_save% �quick_save � �caret(W%,I%-(I%<3),0)
v � 30 : �caret(W%,0,0)
�% � &18E : �caret(W%,I%-(I%<3),X%)
�% � &18F : �caret(W%,I%+(I%>0),X%)
� ș "Wimp_ProcessKey",C%
��
��
�:
���menu_select(A%,B%)
�5ș "Wimp_GetPointerInfo",,block%:stay%=block%!8=1
� Ȏ mw% �
� � -2 : � A%=0 quit%=�
� � w_diary% : Ȏ A% �
�* � 0 : �new_month((today%>>8)-month%)
� � 2 : �print_entries(B%)
�
: Ȏ A% �
� 0 : �clear_entry(mw%)
( � 1 : �close_window(mw%,�):stay%=�
*& � 2 : �print_entries(�addr(mw%))
4 �
>�
H$� stay% �menu_click(mw%,mx%,my%)
R�
\:
f��receive(M%)
p Ȏ M% �
z � 0 : quit%=�
�, � 2 : �save_notes(�get_name(block%+44))
�W � 3,5 : � block%!12=0 � block%!40=&FEF �load_merge(block%!20,�get_name(block%+44))
��
��
�:
���sa_click(inc%)
� Ȏ W% �
�0 � -2 : �new_month(0):�open_window(w_diary%)
�' � w_save% : � I%=i_ok% �quick_save
� � w_diary% : Ȏ I% �
� � 0 : �new_month(-inc%)
� � 1 : �new_month(inc%)
�( �date_selected((month%<<8)+I%-3)
�
�
�
$:
.��menu_click(W%,X%,Y%)
8mw%=W%:mx%=X%:my%=Y%
B Ȏ W% �
L0 � -2 : �master_menu("Diary","Quit,",X%,140)
VR � w_diary% : �master_menu("Diary","Goto today,Save notes,Print notes,",X%,Y%)
`? : �master_menu("Diary note","Clear,Delete,Print,",X%,Y%)
j�
t�
~:
���drag_click
�'ș "Wimp_GetWindowState",,block%+12
� X%=block%!16:Y%=block%!28
�2block%!16=I%:ș "Wimp_GetIconState",,block%+12
�block%!16=5
�#block%!20+=X%-2:block%!24+=Y%-4
�#block%!28+=X%+2:block%!32+=Y%+4
�block%!36=0:block%!40=0
�block%!44=&7FFFFFFF
�block%!48=&7FFFFFFF
� ș "Wimp_DragBox",,block%+12
��
:
��new_month(inc%)
� month%+inc%<0 �
Iblock%!0=w_diary%:�I%=4�34:block%!4=I%:ș "Wimp_DeleteIcon",,block%:�
(month%+=inc%
2!m%=month% � 12:y%=month% � 12
<#$month_buff%=month$(m%)+" "+�y%
F#�set_icon_state(w_diary%,3,0,0)
P+A%=!first:X%=8+�day(y%,m%,1)*64:Y%=-152
Z/�D%=1�num_days%(m%)-(m%=1 � �leap_year(y%))
dE%=(month%<<8)+D%
nBB%=�icon(w_diary%,�D%,X%,Y%,44,44,&27003009-32*(E%=!� search))
x X%+=64:� X%=456 X%=8:Y%-=48
��
�2ș "Wimp_ForceRedraw",w_diary%,8,-392,436,-108
�$T%=�today:� T%<>today% today%=T%
�C� month%=(today%>>8) �set_icon_state(w_diary%,3+today%�255,4,4)
��
�:
���date_selected(E%)
�(N%=0:ȕ N%<4 � date%(N%)<>E% N%+=1:�
� � date%(N%)=E% �top(N%,�):�
�&N%=0:ȕ N%<4 � date%(N%)>0 N%+=1:�
�9� date%(N%)>0 � 1,"Can't open any more note windows."
�A%=� find_entry
�� !A%<>E% �
7 � !next=!max � 1,"No memory for any more entries."
� insert_entry
/ !A%=E%:A%!4=13:A%!45=13:A%!86=13:A%!127=13
"' �set_icon_state(w_diary%,I%,32,32)
,�
6�top(N%,�)
@�
J:
T��top(N%,new%)
^ �open_window(w_note%(N%))
hI� new% date%(N%)=E%:$note_date%(N%)=�date_string(E%):�update_notes(�)
r�caret(w_note%(N%),0,0)
|�
�:
���update_notes(show%)
�)ș "Wimp_GetCaretPosition",,block%+36
��D%=0�4:E%=date%(D%)
� � E%>0 �
� !block%=w_note%(D%)
� P%=� find_entry+4:Y%=-44
� �I%=0�3
�- block%!4=I%:ș "Wimp_DeleteIcon",,block%
�? A%=�ind_icon(w_note%(D%),P%,-1,41,"",0,Y%,652,44,&700F101)
�0 � show% �set_icon_state(w_note%(D%),I%,0,0)
� Y%-=40:P%+=41:�
��
�
Zș "Wimp_SetCaretPosition",block%!36,block%!40,block%!44,block%!48,block%!52,block%!56
�
&:
0��clear_entry(W%)
:P%=�addr(W%)
D�I%=0�3:P%?(I%*41+4)=13
N �set_icon_state(W%,I%,0,0)
X�
b�caret(W%,0,0)
l�
v:
���print_entries(S%)
� � !first=!next � S%=-1 �
�� �
�� � � �3:� "fx 229 1":�
� ș "OS_Byte",246,0,255 � ,I%
��2:*fx 229 0
� �P%=!first � !next-168 � 168
�M%=(!P%)>>8
� Ȏ S% �
�# � 0 : � month%=M% �print_entry
�+ � 1 : � month% �12=M% �12 �print_entry
� � 2 : �print_entry
� : � P%=S% �print_entry
�
�
�3:*fx 229 1
�
*:
4��print_entry
>"�print_line(�date_string(!P%))
H�A%=4 � 127 � 41
R�print_line($(P%+A%))
\�
f�1,13:� I%<>10 �1,10
p�
z:
���print_line(A$)
�
� A$="" �
�!�C%=1��(A$):�1,�(�A$,C%,1)):�
��1,13:� I%<>10 �1,10
��
�:
�ݤleap_year(Y%)
�&=(0=Y%�4 � (Y%�100<>0 � Y%�400=0))
�ݤday(Y%,M%,D%)
�P=(365*Y%+Y%�4-Y%�100+Y%�400+days_so_far%(M%)+(M%<2 � �leap_year(Y%))-2+D%)�7
�ݤdate_string(M%)
�)D%=M%�255:Y%=(M%>>8)�12:M%=(M%>>8)�12
�8=day$(�day(Y%,M%,D%))+" "+�D%+" "+month$(M%)+" "+�Y%
:
��load_merge(W%,A$)
block%!12=block%!8
$block%!16=4:!block%=64
.,ș "Wimp_SendMessage",17,block%,block%!4
8 Ȏ W% �
B" � w_diary% : �merge_notes(A$)
L �load_notes(A$)
V�
`�
j:
t��load_notes(A$)
~ ș "OS_File",5,A$ � ,,,,L%
�6� !first+L%>!max � 1,"Diary too big to be loaded."
�?�N%=0�4:!block%=w_note%(N%):ș "Wimp_CloseWindow",,block%:�
� date%()=-1:!next=!first+L%
� ș "OS_File",&FF,A$,!first,0
�$file_name%=A$
��new_month(0)
��open_window(w_diary%)
�2E%=today%:� !�find_entry=E% �date_selected(E%)
��
�:
���merge_notes(A$)
� ș "OS_File",5,A$ � ,,,,L%
err%=�:H%=� A$
�P%=0 � L%-168 � 168
ș "OS_GBPB",3,H%,buff,4,P%
E%=!buff:A%=� find_entry
(/� !A%<>E% � !next<!max �insert_entry:!A%=E%
2!� !A%<>E% � !next=!max err%=�
<'� !A%=E% ș "OS_GBPB",4,H%,A%+4,164
F�
P � #H%
Z�new_month(0)
d�update_notes(�)
nO� err% � 1,"Ran out of memory for new entries, excess new entries ignored."
x�
�:
���save_notes(A$)
�)ș "OS_File",10,A$,&FEF,,!first,!next
�ș "Wimp_CreateMenu",-1
�$file_name%=A$
�block%!12=block%!8
�block%!16=3:!block%=64
�7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
��
�:
���quick_save
�M� �$file_name%,".")=0 � 1,"To save, drag the icon to a directory viewer."
�2ș "OS_File",10,$file_name%,&FEF,,!first,!next
ș "Wimp_CreateMenu",-1
�
:
"ݤleaf(A$)
,ȕ �A$,".")>0
6 A$=�A$,�A$,".")+1)
@�
J=A$
T:
^ݤget_name(P%)
h A$=""
rȕ ?P%<>0 � ?P%<>13
| A$=A$+�?P%:P%+=1
��
�=A$
�:
�9��set_icon_state(!block%,block%!4,block%!8,block%!12)
�"ș "Wimp_SetIconState",,block%
��
�:
���caret(W%,I%,X%)
�.ș "Wimp_SetCaretPosition",W%,I%,X%,,-1,-1
��
�:
�ݤaddr(!block%)
�-block%!4=0:ș "Wimp_GetIconState",,block%
=(block%!28)-4
:
ݤget_note_num(W%)
&N%=0
0 ȕ w_note%(N%)<>W% N%+=1:�
:=N%
D:
N ݤtoday
X$?block%=1:ș "OS_Word",14,block%
b$A%=?block%:Y%=10*(A%>>4)+(A%�15)
l1A%=block%?1:M%=22799+Y%*12+10*(A%>>4)+(A%�15)
vA%=block%?2
� =(M%<<8)+10*(A%>>4)+(A%�15)
�:
� ��error(!block%,$(block%+4))
�*ș "Wimp_ReportError",block%,1,"Diary"
��
�:
���initialise
�� block% 90,menu% 400
�*max_notes%=250:� notes% 168*max_notes%
� � month$(11),num_days%(11)
� � days_so_far%(11),day$(6)
�zmonth$()="January","February","March","April","May","June","July","August","September","October","November","December"
�3num_days%()=31,28,31,30,31,30,31,31,30,31,30,31
=days_so_far%()=0,31,59,90,120,151,181,212,243,273,304,334
Qday$()="Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"
:
"today%=�today:month%=today%>>8
* quit%=�
4:
>.ș "Wimp_Initialise",200,&4B534154,"Diary"
H4A%=�ind_icon(-1,A%,1,7,"!diary",0,0,58,68,&3102)
RFw_diary%=�create_window("Diary ",A%,0,130,884,444,400,0,13,19)
\1A%=�icon(w_diary%,�136,8,-64,44,52,&2700203D)
f3A%=�icon(w_diary%,�137,392,-64,44,52,&2700203D)
pXA%=�ind_icon(w_diary%,A%,-1,28,"Mon Tue Wed Thu Fri Sat Sun",0,-108,450,36,&7000101)
zGA%=�ind_icon(w_diary%,month_buff%,-1,15,"",102,-56,240,36,&7000109)
�:
�2� w_note%(4),note_date%(4),date%(4):date%()=-1
� �N%=0�4
�Rw_note%(N%)=�create_window("",note_date%(N%),30,999,884-N%*88,652,164,0,12,31)
��
�:
�?w_save%=�create_window("Save as:",A%,0,0,0,246,168,1,2,&93)
�>A%=�ind_icon(w_save%,A%,1,9,"file_fef",88,-92,68,68,&6102)
�� t 3:$t="A~ "
�MA%=�ind_icon(w_save%,file_name%,t,255,"DiaryFile",8,-160,180,48,&700F12D)
�6i_ok%=�icon(w_save%,"OK",194,-160,44,48,&C7019025)
�
�assemble
�:
ș "OS_GetEnv" � A$
0� �A$,1)<>" " �load_notes(�A$,�A$,""" ")+2))
�
$:
.?ݤcreate_window(title$,� buff%,len%,X%,Y%,W%,H%,bg%,hg%,F%)
8$block%=�88,�0)
B !block%=X%:block%!4=Y%-H%
L block%!8=X%+W%:block%!12=Y%
V block%!28=F%:block%!32=&207
` block%?35=bg%:block%!36=&103
j block%?38=hg%:block%!44=-H%
t block%!48=W%:block%!56=&19
~$(block%+72)=title$
�T� len%>0 � buff% len%:block%!56=&119:block%!72=buff%:block%!76=-1:block%!80=len%
�'ș "Wimp_CreateWindow",,block% � H%
�=H%
�:
���open_window(!block%)
�$ș "Wimp_GetWindowState",,block%
�-block%!28=-1:ș "Wimp_OpenWindow",,block%
��
�:
�/ݤicon(!block%,text$,L%,B%,W%,H%,block%!20)
�block%!4=L%:block%!8=B%
�#block%!12=L%+W%:block%!16=B%+H%
"� text$<>"" $(block%+24)=text$
%ș "Wimp_CreateIcon",,block% � I%
=I%
:
(Cݤind_icon(window%,� buff%,block%!28,len%,text$,L%,B%,W%,H%,F%)
2 � buff%<&8000 � buff% len%
<"block%!24=buff%:block%!32=len%
F � text$<>"" $buff%=text$
P%=�icon(window%,"",L%,B%,W%,H%,F%)
Z:
d"��master_menu(title$,m$,X%,Y%)
n!�create_menu(menu%,title$,m$)
x0ș "Wimp_CreateMenu",,menu%,X%-menu%!16/2,Y%
��
�:
� ��create_menu(M%,title$,m$)
�
� I%,max%
�$M%=title$:M%!12=&70207
�M%!20=44:M%!24=0
� I%=M%+28:max%=�(title$)-2
��
�" A%=�m$,","):� A%>max% max%=A%
� !I%=0:I%!4=0
� $(I%+12)=�m$,A%-1)
� m$=�m$,A%+1)
� Ȏ $(I%+12) �
# � "Save notes" : I%!4=w_save%
& � "Print notes" : I%!4=menu%+200
= �create_menu(I%!4,"Print notes","month's,year's,all,")
" �
, I%!8=&7000021:I%+=24
6 � m$=""
@ I%!-24=&80:M%!16=max%*16
J�
T:
^��assemble
h� code% 128
r�A%=0�2�2:P%=code%
| [OPT A%
�.find_entry
�LDR R0,first
� .search
�SUB R0,R0,#168
�LDR R1,next
�STR R0,[R1]
�.next_entry
�LDR R2,[R0,#168]!
�TEQ R0,R1
�
�Q PC,R14
�CMP R4,R2
�BHI next_entry
�MOV PC,R14
:
.insert_entry
LDR R1,next
&ADD R2,R1,#168
0STR R2,next
: .move_up
DTEQ R0,R1
N
�Q PC,R14
XLDR R2,[R1,#-4]!
bSTR R2,[R1,#168]
lB move_up
v:
�.delete_entry
�LDR R0,next
�SUB R2,R0,#168
�STR R2,next
�.move_down
�TEQ R0,R1
�
�Q PC,R14
�LDR R2,[R1,#168]
�STR R2,[R1],#4
�B move_down
�:
�.buff EQUD 0
�.first EQUD notes%
.next EQUD notes%
$.max EQUD notes%+168*max_notes%
]:�
�
� 00000000 0d 00 0a 23 f4 20 20 20 20 20 20 20 20 20 20 20 |...#. |
00000010 3e 24 2e 21 44 69 61 72 79 2e 21 52 75 6e 49 6d |>$.!Diary.!RunIm|
00000020 61 67 65 0d 00 14 1d f4 20 50 72 6f 67 72 61 6d |age..... Program|
00000030 20 20 20 52 49 53 43 20 4f 53 20 64 69 61 72 79 | RISC OS diary|
00000040 0d 00 1e 14 f4 20 56 65 72 73 69 6f 6e 20 20 20 |..... Version |
00000050 32 2e 35 30 0d 00 28 1f f4 20 41 75 74 68 6f 72 |2.50..(.. Author|
00000060 20 20 20 20 4d 69 6b 65 20 49 72 6f 6e 6d 6f 6e | Mike Ironmon|
00000070 67 65 72 0d 00 32 0f f4 20 52 49 53 43 20 55 73 |ger..2.. RISC Us|
00000080 65 72 0d 00 3c 24 f4 20 50 72 6f 67 72 61 6d 20 |er..<$. Program |
00000090 20 20 53 75 62 6a 65 63 74 20 54 6f 20 43 6f 70 | Subject To Cop|
000000a0 79 72 69 67 68 74 0d 00 46 05 3a 0d 00 50 1a ee |yright..F.:..P..|
000000b0 20 85 20 f2 65 72 72 6f 72 28 9f 2c f6 24 29 3a | . .error(.,.$):|
000000c0 e5 8d 44 6e 40 0d 00 5a 0f f2 69 6e 69 74 69 61 |..Dn@..Z..initia|
000000d0 6c 69 73 65 0d 00 64 05 3a 0d 00 6e 05 f5 0d 00 |lise..d.:..n....|
000000e0 78 21 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 |x!.. "Wimp_Poll"|
000000f0 2c 35 31 2c 62 6c 6f 63 6b 25 20 b8 20 41 25 0d |,51,block% . A%.|
00000100 00 82 0b c8 8e 20 41 25 20 ca 0d 00 8c 27 20 c9 |..... A% ....' .|
00000110 20 32 20 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 | 2 : .. "Wimp_Op|
00000120 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b |enWindow",,block|
00000130 25 0d 00 96 23 20 c9 20 33 20 3a 20 f2 63 6c 6f |%...# . 3 : .clo|
00000140 73 65 5f 77 69 6e 64 6f 77 28 21 62 6c 6f 63 6b |se_window(!block|
00000150 25 2c a3 29 0d 00 a0 36 20 c9 20 36 20 3a 20 f2 |%,.)...6 . 6 : .|
00000160 62 75 74 74 6f 6e 5f 63 6c 69 63 6b 28 62 6c 6f |button_click(blo|
00000170 63 6b 25 21 38 2c 62 6c 6f 63 6b 25 21 31 32 2c |ck%!8,block%!12,|
00000180 62 6c 6f 63 6b 25 21 31 36 29 0d 00 aa 15 20 c9 |block%!16).... .|
00000190 20 37 20 3a 20 f2 64 72 61 67 5f 64 6f 6e 65 0d | 7 : .drag_done.|
000001a0 00 b4 3a 20 c9 20 38 20 3a 20 f2 6b 65 79 5f 70 |..: . 8 : .key_p|
000001b0 72 65 73 73 28 21 62 6c 6f 63 6b 25 2c 62 6c 6f |ress(!block%,blo|
000001c0 63 6b 25 21 34 2c 62 6c 6f 63 6b 25 21 38 2c 62 |ck%!4,block%!8,b|
000001d0 6c 6f 63 6b 25 21 32 34 29 0d 00 be 29 20 c9 20 |lock%!24)...) . |
000001e0 39 20 3a 20 f2 6d 65 6e 75 5f 73 65 6c 65 63 74 |9 : .menu_select|
000001f0 28 21 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 21 |(!block%,block%!|
00000200 34 29 0d 00 c8 22 20 c9 20 31 37 2c 31 38 20 3a |4)..." . 17,18 :|
00000210 20 f2 72 65 63 65 69 76 65 28 62 6c 6f 63 6b 25 | .receive(block%|
00000220 21 31 36 29 0d 00 d2 05 cb 0d 00 dc 0b fd 20 71 |!16).......... q|
00000230 75 69 74 25 0d 00 e6 17 c8 99 20 22 57 69 6d 70 |uit%...... "Wimp|
00000240 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 00 f0 05 e0 |_CloseDown".....|
00000250 0d 00 fa 05 3a 0d 01 04 1b dd f2 63 6c 6f 73 65 |....:......close|
00000260 5f 77 69 6e 64 6f 77 28 57 25 2c 64 65 6c 25 29 |_window(W%,del%)|
00000270 0d 01 0e 14 e7 20 57 25 3c 3e 77 5f 64 69 61 72 |..... W%<>w_diar|
00000280 79 25 20 8c 0d 01 18 20 20 64 61 74 65 25 28 a4 |y% .... date%(.|
00000290 67 65 74 5f 6e 6f 74 65 5f 6e 75 6d 28 57 25 29 |get_note_num(W%)|
000002a0 29 3d 2d 31 0d 01 22 11 20 42 25 3d a4 61 64 64 |)=-1..". B%=.add|
000002b0 72 28 57 25 29 0d 01 2c 3b 20 e7 20 64 65 6c 25 |r(W%)..,; . del%|
000002c0 20 84 20 28 42 25 3f 34 3d 31 33 20 80 20 42 25 | . (B%?4=13 . B%|
000002d0 3f 34 35 3d 31 33 20 80 20 42 25 3f 38 36 3d 31 |?45=13 . B%?86=1|
000002e0 33 20 80 20 42 25 3f 31 32 37 3d 31 33 29 20 8c |3 . B%?127=13) .|
000002f0 0d 01 36 14 20 20 d6 20 64 65 6c 65 74 65 5f 65 |..6. . delete_e|
00000300 6e 74 72 79 0d 01 40 24 20 20 f2 6e 65 77 5f 6d |ntry..@$ .new_m|
00000310 6f 6e 74 68 28 30 29 3a f2 75 70 64 61 74 65 5f |onth(0):.update_|
00000320 6e 6f 74 65 73 28 a3 29 0d 01 4a 06 20 cd 0d 01 |notes(.)..J. ...|
00000330 54 05 cd 0d 01 5e 2c 21 62 6c 6f 63 6b 25 3d 57 |T....^,!block%=W|
00000340 25 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 |%:.. "Wimp_Close|
00000350 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 0d |Window",,block%.|
00000360 01 68 05 e1 0d 01 72 05 3a 0d 01 7c 1c dd f2 62 |.h....r.:..|...b|
00000370 75 74 74 6f 6e 5f 63 6c 69 63 6b 28 42 25 2c 57 |utton_click(B%,W|
00000380 25 2c 49 25 29 0d 01 86 0b c8 8e 20 42 25 20 ca |%,I%)...... B% .|
00000390 0d 01 90 18 20 c9 20 31 20 3a 20 f2 73 61 5f 63 |.... . 1 : .sa_c|
000003a0 6c 69 63 6b 28 31 32 29 0d 01 9a 2e 20 c9 20 32 |lick(12).... . 2|
000003b0 20 3a 20 f2 6d 65 6e 75 5f 63 6c 69 63 6b 28 57 | : .menu_click(W|
000003c0 25 2c 21 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 |%,!block%,block%|
000003d0 21 34 2b 31 32 29 0d 01 a4 17 20 c9 20 34 20 3a |!4+12).... . 4 :|
000003e0 20 f2 73 61 5f 63 6c 69 63 6b 28 31 29 0d 01 ae | .sa_click(1)...|
000003f0 1a 20 c9 20 31 36 2c 36 34 20 3a 20 f2 64 72 61 |. . 16,64 : .dra|
00000400 67 5f 63 6c 69 63 6b 0d 01 b8 05 cb 0d 01 c2 05 |g_click.........|
00000410 e1 0d 01 cc 05 3a 0d 01 d6 0f dd f2 64 72 61 67 |.....:......drag|
00000420 5f 64 6f 6e 65 0d 01 e0 24 c8 99 20 22 57 69 6d |_done...$.. "Wim|
00000430 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f |p_GetPointerInfo|
00000440 22 2c 2c 62 6c 6f 63 6b 25 0d 01 ea 1c 62 6c 6f |",,block%....blo|
00000450 63 6b 25 21 32 30 3d 36 34 3a 62 6c 6f 63 6b 25 |ck%!20=64:block%|
00000460 21 33 32 3d 30 0d 01 f4 23 62 6c 6f 63 6b 25 21 |!32=0...#block%!|
00000470 33 36 3d 31 3a 62 6c 6f 63 6b 25 21 34 30 3d 62 |36=1:block%!40=b|
00000480 6c 6f 63 6b 25 21 31 32 0d 01 fe 17 62 6c 6f 63 |lock%!12....bloc|
00000490 6b 25 21 34 34 3d 62 6c 6f 63 6b 25 21 31 36 0d |k%!44=block%!16.|
000004a0 02 08 15 62 6c 6f 63 6b 25 21 34 38 3d 21 62 6c |...block%!48=!bl|
000004b0 6f 63 6b 25 0d 02 12 16 62 6c 6f 63 6b 25 21 35 |ock%....block%!5|
000004c0 32 3d 62 6c 6f 63 6b 25 21 34 0d 02 1c 1a 62 6c |2=block%!4....bl|
000004d0 6f 63 6b 25 21 35 36 3d 21 6e 65 78 74 2d 21 66 |ock%!56=!next-!f|
000004e0 69 72 73 74 0d 02 26 12 62 6c 6f 63 6b 25 21 36 |irst..&.block%!6|
000004f0 30 3d 26 46 45 46 0d 02 30 23 24 28 62 6c 6f 63 |0=&FEF..0#$(bloc|
00000500 6b 25 2b 36 34 29 3d a4 6c 65 61 66 28 24 66 69 |k%+64)=.leaf($fi|
00000510 6c 65 5f 6e 61 6d 65 25 29 0d 02 3a 3a c8 99 20 |le_name%)..::.. |
00000520 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00000530 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2b 32 30 2c |e",17,block%+20,|
00000540 62 6c 6f 63 6b 25 21 31 32 2c 62 6c 6f 63 6b 25 |block%!12,block%|
00000550 21 31 36 0d 02 44 05 e1 0d 02 4e 05 3a 0d 02 58 |!16..D....N.:..X|
00000560 1c dd f2 6b 65 79 5f 70 72 65 73 73 28 57 25 2c |...key_press(W%,|
00000570 49 25 2c 58 25 2c 43 25 29 0d 02 62 0b c8 8e 20 |I%,X%,C%)..b... |
00000580 43 25 20 ca 0d 02 6c 3d 20 c9 20 31 33 20 3a 20 |C% ...l= . 13 : |
00000590 e7 20 57 25 3d 77 5f 73 61 76 65 25 20 f2 71 75 |. W%=w_save% .qu|
000005a0 69 63 6b 5f 73 61 76 65 20 8b 20 f2 63 61 72 65 |ick_save . .care|
000005b0 74 28 57 25 2c 49 25 2d 28 49 25 3c 33 29 2c 30 |t(W%,I%-(I%<3),0|
000005c0 29 0d 02 76 1a 20 c9 20 33 30 20 3a 20 f2 63 61 |)..v. . 30 : .ca|
000005d0 72 65 74 28 57 25 2c 30 2c 30 29 0d 02 80 25 20 |ret(W%,0,0)...% |
000005e0 c9 20 26 31 38 45 20 3a 20 f2 63 61 72 65 74 28 |. &18E : .caret(|
000005f0 57 25 2c 49 25 2d 28 49 25 3c 33 29 2c 58 25 29 |W%,I%-(I%<3),X%)|
00000600 0d 02 8a 25 20 c9 20 26 31 38 46 20 3a 20 f2 63 |...% . &18F : .c|
00000610 61 72 65 74 28 57 25 2c 49 25 2b 28 49 25 3e 30 |aret(W%,I%+(I%>0|
00000620 29 2c 58 25 29 0d 02 94 1e 20 7f 20 c8 99 20 22 |),X%).... . .. "|
00000630 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 |Wimp_ProcessKey"|
00000640 2c 43 25 0d 02 9e 05 cb 0d 02 a8 05 e1 0d 02 b2 |,C%.............|
00000650 05 3a 0d 02 bc 18 dd f2 6d 65 6e 75 5f 73 65 6c |.:......menu_sel|
00000660 65 63 74 28 41 25 2c 42 25 29 0d 02 c6 35 c8 99 |ect(A%,B%)...5..|
00000670 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 | "Wimp_GetPointe|
00000680 72 49 6e 66 6f 22 2c 2c 62 6c 6f 63 6b 25 3a 73 |rInfo",,block%:s|
00000690 74 61 79 25 3d 62 6c 6f 63 6b 25 21 38 3d 31 0d |tay%=block%!8=1.|
000006a0 02 d0 0c c8 8e 20 6d 77 25 20 ca 0d 02 da 1a 20 |..... mw% ..... |
000006b0 c9 20 2d 32 20 3a 20 e7 20 41 25 3d 30 20 71 75 |. -2 : . A%=0 qu|
000006c0 69 74 25 3d b9 0d 02 e4 19 20 c9 20 77 5f 64 69 |it%=..... . w_di|
000006d0 61 72 79 25 20 3a 20 c8 8e 20 41 25 20 ca 0d 02 |ary% : .. A% ...|
000006e0 ee 2a 20 20 c9 20 30 20 3a 20 f2 6e 65 77 5f 6d |.* . 0 : .new_m|
000006f0 6f 6e 74 68 28 28 74 6f 64 61 79 25 3e 3e 38 29 |onth((today%>>8)|
00000700 2d 6d 6f 6e 74 68 25 29 0d 02 f8 1e 20 20 c9 20 |-month%).... . |
00000710 32 20 3a 20 f2 70 72 69 6e 74 5f 65 6e 74 72 69 |2 : .print_entri|
00000720 65 73 28 42 25 29 0d 03 02 06 20 cb 0d 03 0c 10 |es(B%).... .....|
00000730 20 7f 20 3a 20 c8 8e 20 41 25 20 ca 0d 03 16 1d | . : .. A% .....|
00000740 20 20 c9 20 30 20 3a 20 f2 63 6c 65 61 72 5f 65 | . 0 : .clear_e|
00000750 6e 74 72 79 28 6d 77 25 29 0d 03 20 28 20 20 c9 |ntry(mw%).. ( .|
00000760 20 31 20 3a 20 f2 63 6c 6f 73 65 5f 77 69 6e 64 | 1 : .close_wind|
00000770 6f 77 28 6d 77 25 2c b9 29 3a 73 74 61 79 25 3d |ow(mw%,.):stay%=|
00000780 a3 0d 03 2a 26 20 20 c9 20 32 20 3a 20 f2 70 72 |...*& . 2 : .pr|
00000790 69 6e 74 5f 65 6e 74 72 69 65 73 28 a4 61 64 64 |int_entries(.add|
000007a0 72 28 6d 77 25 29 29 0d 03 34 06 20 cb 0d 03 3e |r(mw%))..4. ...>|
000007b0 05 cb 0d 03 48 24 e7 20 73 74 61 79 25 20 f2 6d |....H$. stay% .m|
000007c0 65 6e 75 5f 63 6c 69 63 6b 28 6d 77 25 2c 6d 78 |enu_click(mw%,mx|
000007d0 25 2c 6d 79 25 29 0d 03 52 05 e1 0d 03 5c 05 3a |%,my%)..R....\.:|
000007e0 0d 03 66 11 dd f2 72 65 63 65 69 76 65 28 4d 25 |..f...receive(M%|
000007f0 29 0d 03 70 0b c8 8e 20 4d 25 20 ca 0d 03 7a 12 |)..p... M% ...z.|
00000800 20 c9 20 30 20 3a 20 71 75 69 74 25 3d b9 0d 03 | . 0 : quit%=...|
00000810 84 2c 20 c9 20 32 20 3a 20 f2 73 61 76 65 5f 6e |., . 2 : .save_n|
00000820 6f 74 65 73 28 a4 67 65 74 5f 6e 61 6d 65 28 62 |otes(.get_name(b|
00000830 6c 6f 63 6b 25 2b 34 34 29 29 0d 03 8e 57 20 c9 |lock%+44))...W .|
00000840 20 33 2c 35 20 3a 20 e7 20 62 6c 6f 63 6b 25 21 | 3,5 : . block%!|
00000850 31 32 3d 30 20 80 20 62 6c 6f 63 6b 25 21 34 30 |12=0 . block%!40|
00000860 3d 26 46 45 46 20 f2 6c 6f 61 64 5f 6d 65 72 67 |=&FEF .load_merg|
00000870 65 28 62 6c 6f 63 6b 25 21 32 30 2c a4 67 65 74 |e(block%!20,.get|
00000880 5f 6e 61 6d 65 28 62 6c 6f 63 6b 25 2b 34 34 29 |_name(block%+44)|
00000890 29 0d 03 98 05 cb 0d 03 a2 05 e1 0d 03 ac 05 3a |)..............:|
000008a0 0d 03 b6 14 dd f2 73 61 5f 63 6c 69 63 6b 28 69 |......sa_click(i|
000008b0 6e 63 25 29 0d 03 c0 0b c8 8e 20 57 25 20 ca 0d |nc%)...... W% ..|
000008c0 03 ca 30 20 c9 20 2d 32 20 3a 20 f2 6e 65 77 5f |..0 . -2 : .new_|
000008d0 6d 6f 6e 74 68 28 30 29 3a f2 6f 70 65 6e 5f 77 |month(0):.open_w|
000008e0 69 6e 64 6f 77 28 77 5f 64 69 61 72 79 25 29 0d |indow(w_diary%).|
000008f0 03 d4 27 20 c9 20 77 5f 73 61 76 65 25 20 3a 20 |..' . w_save% : |
00000900 e7 20 49 25 3d 69 5f 6f 6b 25 20 f2 71 75 69 63 |. I%=i_ok% .quic|
00000910 6b 5f 73 61 76 65 0d 03 de 19 20 c9 20 77 5f 64 |k_save.... . w_d|
00000920 69 61 72 79 25 20 3a 20 c8 8e 20 49 25 20 ca 0d |iary% : .. I% ..|
00000930 03 e8 1d 20 20 c9 20 30 20 3a 20 f2 6e 65 77 5f |... . 0 : .new_|
00000940 6d 6f 6e 74 68 28 2d 69 6e 63 25 29 0d 03 f2 1c |month(-inc%)....|
00000950 20 20 c9 20 31 20 3a 20 f2 6e 65 77 5f 6d 6f 6e | . 1 : .new_mon|
00000960 74 68 28 69 6e 63 25 29 0d 03 fc 28 20 20 7f 20 |th(inc%)...( . |
00000970 f2 64 61 74 65 5f 73 65 6c 65 63 74 65 64 28 28 |.date_selected((|
00000980 6d 6f 6e 74 68 25 3c 3c 38 29 2b 49 25 2d 33 29 |month%<<8)+I%-3)|
00000990 0d 04 06 06 20 cb 0d 04 10 05 cb 0d 04 1a 05 e1 |.... ...........|
000009a0 0d 04 24 05 3a 0d 04 2e 1a dd f2 6d 65 6e 75 5f |..$.:......menu_|
000009b0 63 6c 69 63 6b 28 57 25 2c 58 25 2c 59 25 29 0d |click(W%,X%,Y%).|
000009c0 04 38 18 6d 77 25 3d 57 25 3a 6d 78 25 3d 58 25 |.8.mw%=W%:mx%=X%|
000009d0 3a 6d 79 25 3d 59 25 0d 04 42 0b c8 8e 20 57 25 |:my%=Y%..B... W%|
000009e0 20 ca 0d 04 4c 30 20 c9 20 2d 32 20 3a 20 f2 6d | ...L0 . -2 : .m|
000009f0 61 73 74 65 72 5f 6d 65 6e 75 28 22 44 69 61 72 |aster_menu("Diar|
00000a00 79 22 2c 22 51 75 69 74 2c 22 2c 58 25 2c 31 34 |y","Quit,",X%,14|
00000a10 30 29 0d 04 56 52 20 c9 20 77 5f 64 69 61 72 79 |0)..VR . w_diary|
00000a20 25 20 3a 20 f2 6d 61 73 74 65 72 5f 6d 65 6e 75 |% : .master_menu|
00000a30 28 22 44 69 61 72 79 22 2c 22 47 6f 74 6f 20 74 |("Diary","Goto t|
00000a40 6f 64 61 79 2c 53 61 76 65 20 6e 6f 74 65 73 2c |oday,Save notes,|
00000a50 50 72 69 6e 74 20 6e 6f 74 65 73 2c 22 2c 58 25 |Print notes,",X%|
00000a60 2c 59 25 29 0d 04 60 3f 20 7f 20 3a 20 f2 6d 61 |,Y%)..`? . : .ma|
00000a70 73 74 65 72 5f 6d 65 6e 75 28 22 44 69 61 72 79 |ster_menu("Diary|
00000a80 20 6e 6f 74 65 22 2c 22 43 6c 65 61 72 2c 44 65 | note","Clear,De|
00000a90 6c 65 74 65 2c 50 72 69 6e 74 2c 22 2c 58 25 2c |lete,Print,",X%,|
00000aa0 59 25 29 0d 04 6a 05 cb 0d 04 74 05 e1 0d 04 7e |Y%)..j....t....~|
00000ab0 05 3a 0d 04 88 10 dd f2 64 72 61 67 5f 63 6c 69 |.:......drag_cli|
00000ac0 63 6b 0d 04 92 27 c8 99 20 22 57 69 6d 70 5f 47 |ck...'.. "Wimp_G|
00000ad0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00000ae0 62 6c 6f 63 6b 25 2b 31 32 0d 04 9c 1d 58 25 3d |block%+12....X%=|
00000af0 62 6c 6f 63 6b 25 21 31 36 3a 59 25 3d 62 6c 6f |block%!16:Y%=blo|
00000b00 63 6b 25 21 32 38 0d 04 a6 32 62 6c 6f 63 6b 25 |ck%!28...2block%|
00000b10 21 31 36 3d 49 25 3a c8 99 20 22 57 69 6d 70 5f |!16=I%:.. "Wimp_|
00000b20 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 |GetIconState",,b|
00000b30 6c 6f 63 6b 25 2b 31 32 0d 04 b0 0f 62 6c 6f 63 |lock%+12....bloc|
00000b40 6b 25 21 31 36 3d 35 0d 04 ba 23 62 6c 6f 63 6b |k%!16=5...#block|
00000b50 25 21 32 30 2b 3d 58 25 2d 32 3a 62 6c 6f 63 6b |%!20+=X%-2:block|
00000b60 25 21 32 34 2b 3d 59 25 2d 34 0d 04 c4 23 62 6c |%!24+=Y%-4...#bl|
00000b70 6f 63 6b 25 21 32 38 2b 3d 58 25 2b 32 3a 62 6c |ock%!28+=X%+2:bl|
00000b80 6f 63 6b 25 21 33 32 2b 3d 59 25 2b 34 0d 04 ce |ock%!32+=Y%+4...|
00000b90 1b 62 6c 6f 63 6b 25 21 33 36 3d 30 3a 62 6c 6f |.block%!36=0:blo|
00000ba0 63 6b 25 21 34 30 3d 30 0d 04 d8 17 62 6c 6f 63 |ck%!40=0....bloc|
00000bb0 6b 25 21 34 34 3d 26 37 46 46 46 46 46 46 46 0d |k%!44=&7FFFFFFF.|
00000bc0 04 e2 17 62 6c 6f 63 6b 25 21 34 38 3d 26 37 46 |...block%!48=&7F|
00000bd0 46 46 46 46 46 46 0d 04 ec 20 c8 99 20 22 57 69 |FFFFFF... .. "Wi|
00000be0 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c 6f |mp_DragBox",,blo|
00000bf0 63 6b 25 2b 31 32 0d 04 f6 05 e1 0d 05 00 05 3a |ck%+12.........:|
00000c00 0d 05 0a 15 dd f2 6e 65 77 5f 6d 6f 6e 74 68 28 |......new_month(|
00000c10 69 6e 63 25 29 0d 05 14 15 e7 20 6d 6f 6e 74 68 |inc%)..... month|
00000c20 25 2b 69 6e 63 25 3c 30 20 e1 0d 05 1e 49 62 6c |%+inc%<0 ....Ibl|
00000c30 6f 63 6b 25 21 30 3d 77 5f 64 69 61 72 79 25 3a |ock%!0=w_diary%:|
00000c40 e3 49 25 3d 34 b8 33 34 3a 62 6c 6f 63 6b 25 21 |.I%=4.34:block%!|
00000c50 34 3d 49 25 3a c8 99 20 22 57 69 6d 70 5f 44 65 |4=I%:.. "Wimp_De|
00000c60 6c 65 74 65 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b |leteIcon",,block|
00000c70 25 3a ed 0d 05 28 10 6d 6f 6e 74 68 25 2b 3d 69 |%:...(.month%+=i|
00000c80 6e 63 25 0d 05 32 21 6d 25 3d 6d 6f 6e 74 68 25 |nc%..2!m%=month%|
00000c90 20 83 20 31 32 3a 79 25 3d 6d 6f 6e 74 68 25 20 | . 12:y%=month% |
00000ca0 81 20 31 32 0d 05 3c 23 24 6d 6f 6e 74 68 5f 62 |. 12..<#$month_b|
00000cb0 75 66 66 25 3d 6d 6f 6e 74 68 24 28 6d 25 29 2b |uff%=month$(m%)+|
00000cc0 22 20 22 2b c3 79 25 0d 05 46 23 f2 73 65 74 5f |" "+.y%..F#.set_|
00000cd0 69 63 6f 6e 5f 73 74 61 74 65 28 77 5f 64 69 61 |icon_state(w_dia|
00000ce0 72 79 25 2c 33 2c 30 2c 30 29 0d 05 50 2b 41 25 |ry%,3,0,0)..P+A%|
00000cf0 3d 21 66 69 72 73 74 3a 58 25 3d 38 2b a4 64 61 |=!first:X%=8+.da|
00000d00 79 28 79 25 2c 6d 25 2c 31 29 2a 36 34 3a 59 25 |y(y%,m%,1)*64:Y%|
00000d10 3d 2d 31 35 32 0d 05 5a 2f e3 44 25 3d 31 b8 6e |=-152..Z/.D%=1.n|
00000d20 75 6d 5f 64 61 79 73 25 28 6d 25 29 2d 28 6d 25 |um_days%(m%)-(m%|
00000d30 3d 31 20 80 20 a4 6c 65 61 70 5f 79 65 61 72 28 |=1 . .leap_year(|
00000d40 79 25 29 29 0d 05 64 15 45 25 3d 28 6d 6f 6e 74 |y%))..d.E%=(mont|
00000d50 68 25 3c 3c 38 29 2b 44 25 0d 05 6e 42 42 25 3d |h%<<8)+D%..nBB%=|
00000d60 a4 69 63 6f 6e 28 77 5f 64 69 61 72 79 25 2c c3 |.icon(w_diary%,.|
00000d70 44 25 2c 58 25 2c 59 25 2c 34 34 2c 34 34 2c 26 |D%,X%,Y%,44,44,&|
00000d80 32 37 30 30 33 30 30 39 2d 33 32 2a 28 45 25 3d |27003009-32*(E%=|
00000d90 21 ba 20 73 65 61 72 63 68 29 29 0d 05 78 1f 58 |!. search))..x.X|
00000da0 25 2b 3d 36 34 3a e7 20 58 25 3d 34 35 36 20 58 |%+=64:. X%=456 X|
00000db0 25 3d 38 3a 59 25 2d 3d 34 38 0d 05 82 05 ed 0d |%=8:Y%-=48......|
00000dc0 05 8c 32 c8 99 20 22 57 69 6d 70 5f 46 6f 72 63 |..2.. "Wimp_Forc|
00000dd0 65 52 65 64 72 61 77 22 2c 77 5f 64 69 61 72 79 |eRedraw",w_diary|
00000de0 25 2c 38 2c 2d 33 39 32 2c 34 33 36 2c 2d 31 30 |%,8,-392,436,-10|
00000df0 38 0d 05 96 24 54 25 3d a4 74 6f 64 61 79 3a e7 |8...$T%=.today:.|
00000e00 20 54 25 3c 3e 74 6f 64 61 79 25 20 74 6f 64 61 | T%<>today% toda|
00000e10 79 25 3d 54 25 0d 05 a0 43 e7 20 6d 6f 6e 74 68 |y%=T%...C. month|
00000e20 25 3d 28 74 6f 64 61 79 25 3e 3e 38 29 20 f2 73 |%=(today%>>8) .s|
00000e30 65 74 5f 69 63 6f 6e 5f 73 74 61 74 65 28 77 5f |et_icon_state(w_|
00000e40 64 69 61 72 79 25 2c 33 2b 74 6f 64 61 79 25 80 |diary%,3+today%.|
00000e50 32 35 35 2c 34 2c 34 29 0d 05 aa 05 e1 0d 05 b4 |255,4,4)........|
00000e60 05 3a 0d 05 be 17 dd f2 64 61 74 65 5f 73 65 6c |.:......date_sel|
00000e70 65 63 74 65 64 28 45 25 29 0d 05 c8 28 4e 25 3d |ected(E%)...(N%=|
00000e80 30 3a c8 95 20 4e 25 3c 34 20 80 20 64 61 74 65 |0:.. N%<4 . date|
00000e90 25 28 4e 25 29 3c 3e 45 25 20 4e 25 2b 3d 31 3a |%(N%)<>E% N%+=1:|
00000ea0 ce 0d 05 d2 1f e7 20 64 61 74 65 25 28 4e 25 29 |...... date%(N%)|
00000eb0 3d 45 25 20 f2 74 6f 70 28 4e 25 2c a3 29 3a e1 |=E% .top(N%,.):.|
00000ec0 0d 05 dc 26 4e 25 3d 30 3a c8 95 20 4e 25 3c 34 |...&N%=0:.. N%<4|
00000ed0 20 80 20 64 61 74 65 25 28 4e 25 29 3e 30 20 4e | . date%(N%)>0 N|
00000ee0 25 2b 3d 31 3a ce 0d 05 e6 39 e7 20 64 61 74 65 |%+=1:....9. date|
00000ef0 25 28 4e 25 29 3e 30 20 85 20 31 2c 22 43 61 6e |%(N%)>0 . 1,"Can|
00000f00 27 74 20 6f 70 65 6e 20 61 6e 79 20 6d 6f 72 65 |'t open any more|
00000f10 20 6e 6f 74 65 20 77 69 6e 64 6f 77 73 2e 22 0d | note windows.".|
00000f20 05 f0 13 41 25 3d ba 20 66 69 6e 64 5f 65 6e 74 |...A%=. find_ent|
00000f30 72 79 0d 05 fa 0f e7 20 21 41 25 3c 3e 45 25 20 |ry..... !A%<>E% |
00000f40 8c 0d 06 04 37 20 e7 20 21 6e 65 78 74 3d 21 6d |....7 . !next=!m|
00000f50 61 78 20 85 20 31 2c 22 4e 6f 20 6d 65 6d 6f 72 |ax . 1,"No memor|
00000f60 79 20 66 6f 72 20 61 6e 79 20 6d 6f 72 65 20 65 |y for any more e|
00000f70 6e 74 72 69 65 73 2e 22 0d 06 0e 13 20 d6 20 69 |ntries.".... . i|
00000f80 6e 73 65 72 74 5f 65 6e 74 72 79 0d 06 18 2f 20 |nsert_entry.../ |
00000f90 21 41 25 3d 45 25 3a 41 25 21 34 3d 31 33 3a 41 |!A%=E%:A%!4=13:A|
00000fa0 25 21 34 35 3d 31 33 3a 41 25 21 38 36 3d 31 33 |%!45=13:A%!86=13|
00000fb0 3a 41 25 21 31 32 37 3d 31 33 0d 06 22 27 20 f2 |:A%!127=13.."' .|
00000fc0 73 65 74 5f 69 63 6f 6e 5f 73 74 61 74 65 28 77 |set_icon_state(w|
00000fd0 5f 64 69 61 72 79 25 2c 49 25 2c 33 32 2c 33 32 |_diary%,I%,32,32|
00000fe0 29 0d 06 2c 05 cd 0d 06 36 0e f2 74 6f 70 28 4e |)..,....6..top(N|
00000ff0 25 2c b9 29 0d 06 40 05 e1 0d 06 4a 05 3a 0d 06 |%,.)..@....J.:..|
00001000 54 12 dd f2 74 6f 70 28 4e 25 2c 6e 65 77 25 29 |T...top(N%,new%)|
00001010 0d 06 5e 1d f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 |..^..open_window|
00001020 28 77 5f 6e 6f 74 65 25 28 4e 25 29 29 0d 06 68 |(w_note%(N%))..h|
00001030 49 e7 20 6e 65 77 25 20 64 61 74 65 25 28 4e 25 |I. new% date%(N%|
00001040 29 3d 45 25 3a 24 6e 6f 74 65 5f 64 61 74 65 25 |)=E%:$note_date%|
00001050 28 4e 25 29 3d a4 64 61 74 65 5f 73 74 72 69 6e |(N%)=.date_strin|
00001060 67 28 45 25 29 3a f2 75 70 64 61 74 65 5f 6e 6f |g(E%):.update_no|
00001070 74 65 73 28 a3 29 0d 06 72 1b f2 63 61 72 65 74 |tes(.)..r..caret|
00001080 28 77 5f 6e 6f 74 65 25 28 4e 25 29 2c 30 2c 30 |(w_note%(N%),0,0|
00001090 29 0d 06 7c 05 e1 0d 06 86 05 3a 0d 06 90 19 dd |)..|......:.....|
000010a0 f2 75 70 64 61 74 65 5f 6e 6f 74 65 73 28 73 68 |.update_notes(sh|
000010b0 6f 77 25 29 0d 06 9a 29 c8 99 20 22 57 69 6d 70 |ow%)...).. "Wimp|
000010c0 5f 47 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f |_GetCaretPositio|
000010d0 6e 22 2c 2c 62 6c 6f 63 6b 25 2b 33 36 0d 06 a4 |n",,block%+36...|
000010e0 18 e3 44 25 3d 30 b8 34 3a 45 25 3d 64 61 74 65 |..D%=0.4:E%=date|
000010f0 25 28 44 25 29 0d 06 ae 0c e7 20 45 25 3e 30 20 |%(D%)..... E%>0 |
00001100 8c 0d 06 b8 18 20 21 62 6c 6f 63 6b 25 3d 77 5f |..... !block%=w_|
00001110 6e 6f 74 65 25 28 44 25 29 0d 06 c2 1d 20 50 25 |note%(D%).... P%|
00001120 3d ba 20 66 69 6e 64 5f 65 6e 74 72 79 2b 34 3a |=. find_entry+4:|
00001130 59 25 3d 2d 34 34 0d 06 cc 0c 20 e3 49 25 3d 30 |Y%=-44.... .I%=0|
00001140 b8 33 0d 06 d6 2d 20 62 6c 6f 63 6b 25 21 34 3d |.3...- block%!4=|
00001150 49 25 3a c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 |I%:.. "Wimp_Dele|
00001160 74 65 49 63 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 0d |teIcon",,block%.|
00001170 06 e0 3f 20 41 25 3d a4 69 6e 64 5f 69 63 6f 6e |..? A%=.ind_icon|
00001180 28 77 5f 6e 6f 74 65 25 28 44 25 29 2c 50 25 2c |(w_note%(D%),P%,|
00001190 2d 31 2c 34 31 2c 22 22 2c 30 2c 59 25 2c 36 35 |-1,41,"",0,Y%,65|
000011a0 32 2c 34 34 2c 26 37 30 30 46 31 30 31 29 0d 06 |2,44,&700F101)..|
000011b0 ea 30 20 e7 20 73 68 6f 77 25 20 f2 73 65 74 5f |.0 . show% .set_|
000011c0 69 63 6f 6e 5f 73 74 61 74 65 28 77 5f 6e 6f 74 |icon_state(w_not|
000011d0 65 25 28 44 25 29 2c 49 25 2c 30 2c 30 29 0d 06 |e%(D%),I%,0,0)..|
000011e0 f4 14 20 59 25 2d 3d 34 30 3a 50 25 2b 3d 34 31 |.. Y%-=40:P%+=41|
000011f0 3a ed 0d 06 fe 05 cd 0d 07 08 05 ed 0d 07 12 5a |:..............Z|
00001200 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 |.. "Wimp_SetCare|
00001210 74 50 6f 73 69 74 69 6f 6e 22 2c 62 6c 6f 63 6b |tPosition",block|
00001220 25 21 33 36 2c 62 6c 6f 63 6b 25 21 34 30 2c 62 |%!36,block%!40,b|
00001230 6c 6f 63 6b 25 21 34 34 2c 62 6c 6f 63 6b 25 21 |lock%!44,block%!|
00001240 34 38 2c 62 6c 6f 63 6b 25 21 35 32 2c 62 6c 6f |48,block%!52,blo|
00001250 63 6b 25 21 35 36 0d 07 1c 05 e1 0d 07 26 05 3a |ck%!56.......&.:|
00001260 0d 07 30 15 dd f2 63 6c 65 61 72 5f 65 6e 74 72 |..0...clear_entr|
00001270 79 28 57 25 29 0d 07 3a 10 50 25 3d a4 61 64 64 |y(W%)..:.P%=.add|
00001280 72 28 57 25 29 0d 07 44 1b e3 49 25 3d 30 b8 33 |r(W%)..D..I%=0.3|
00001290 3a 50 25 3f 28 49 25 2a 34 31 2b 34 29 3d 31 33 |:P%?(I%*41+4)=13|
000012a0 0d 07 4e 1e f2 73 65 74 5f 69 63 6f 6e 5f 73 74 |..N..set_icon_st|
000012b0 61 74 65 28 57 25 2c 49 25 2c 30 2c 30 29 0d 07 |ate(W%,I%,0,0)..|
000012c0 58 05 ed 0d 07 62 12 f2 63 61 72 65 74 28 57 25 |X....b..caret(W%|
000012d0 2c 30 2c 30 29 0d 07 6c 05 e1 0d 07 76 05 3a 0d |,0,0)..l....v.:.|
000012e0 07 80 17 dd f2 70 72 69 6e 74 5f 65 6e 74 72 69 |.....print_entri|
000012f0 65 73 28 53 25 29 0d 07 8a 1c e7 20 21 66 69 72 |es(S%)..... !fir|
00001300 73 74 3d 21 6e 65 78 74 20 84 20 53 25 3d 2d 31 |st=!next . S%=-1|
00001310 20 e1 0d 07 94 07 ea 20 85 0d 07 9e 1b ee 20 85 | ...... ...... .|
00001320 20 ea 20 ef 33 3a ff 20 22 66 78 20 32 32 39 20 | . .3:. "fx 229 |
00001330 31 22 3a e1 0d 07 a8 20 c8 99 20 22 4f 53 5f 42 |1":.... .. "OS_B|
00001340 79 74 65 22 2c 32 34 36 2c 30 2c 32 35 35 20 b8 |yte",246,0,255 .|
00001350 20 2c 49 25 0d 07 b2 10 ef 32 3a 2a 66 78 20 32 | ,I%.....2:*fx 2|
00001360 32 39 20 30 0d 07 bc 20 e3 50 25 3d 21 66 69 72 |29 0... .P%=!fir|
00001370 73 74 20 b8 20 21 6e 65 78 74 2d 31 36 38 20 88 |st . !next-168 .|
00001380 20 31 36 38 0d 07 c6 0f 4d 25 3d 28 21 50 25 29 | 168....M%=(!P%)|
00001390 3e 3e 38 0d 07 d0 0b c8 8e 20 53 25 20 ca 0d 07 |>>8...... S% ...|
000013a0 da 23 20 c9 20 30 20 3a 20 e7 20 6d 6f 6e 74 68 |.# . 0 : . month|
000013b0 25 3d 4d 25 20 f2 70 72 69 6e 74 5f 65 6e 74 72 |%=M% .print_entr|
000013c0 79 0d 07 e4 2b 20 c9 20 31 20 3a 20 e7 20 6d 6f |y...+ . 1 : . mo|
000013d0 6e 74 68 25 20 81 31 32 3d 4d 25 20 81 31 32 20 |nth% .12=M% .12 |
000013e0 f2 70 72 69 6e 74 5f 65 6e 74 72 79 0d 07 ee 17 |.print_entry....|
000013f0 20 c9 20 32 20 3a 20 f2 70 72 69 6e 74 5f 65 6e | . 2 : .print_en|
00001400 74 72 79 0d 07 f8 1d 20 7f 20 3a 20 e7 20 50 25 |try.... . : . P%|
00001410 3d 53 25 20 f2 70 72 69 6e 74 5f 65 6e 74 72 79 |=S% .print_entry|
00001420 0d 08 02 05 cb 0d 08 0c 05 ed 0d 08 16 10 ef 33 |...............3|
00001430 3a 2a 66 78 20 32 32 39 20 31 0d 08 20 05 e1 0d |:*fx 229 1.. ...|
00001440 08 2a 05 3a 0d 08 34 11 dd f2 70 72 69 6e 74 5f |.*.:..4...print_|
00001450 65 6e 74 72 79 0d 08 3e 22 f2 70 72 69 6e 74 5f |entry..>".print_|
00001460 6c 69 6e 65 28 a4 64 61 74 65 5f 73 74 72 69 6e |line(.date_strin|
00001470 67 28 21 50 25 29 29 0d 08 48 14 e3 41 25 3d 34 |g(!P%))..H..A%=4|
00001480 20 b8 20 31 32 37 20 88 20 34 31 0d 08 52 19 f2 | . 127 . 41..R..|
00001490 70 72 69 6e 74 5f 6c 69 6e 65 28 24 28 50 25 2b |print_line($(P%+|
000014a0 41 25 29 29 0d 08 5c 05 ed 0d 08 66 18 ef 31 2c |A%))..\....f..1,|
000014b0 31 33 3a e7 20 49 25 3c 3e 31 30 20 ef 31 2c 31 |13:. I%<>10 .1,1|
000014c0 30 0d 08 70 05 e1 0d 08 7a 05 3a 0d 08 84 14 dd |0..p....z.:.....|
000014d0 f2 70 72 69 6e 74 5f 6c 69 6e 65 28 41 24 29 0d |.print_line(A$).|
000014e0 08 8e 0d e7 20 41 24 3d 22 22 20 e1 0d 08 98 21 |.... A$="" ....!|
000014f0 e3 43 25 3d 31 b8 a9 28 41 24 29 3a ef 31 2c 97 |.C%=1..(A$):.1,.|
00001500 28 c1 41 24 2c 43 25 2c 31 29 29 3a ed 0d 08 a2 |(.A$,C%,1)):....|
00001510 18 ef 31 2c 31 33 3a e7 20 49 25 3c 3e 31 30 20 |..1,13:. I%<>10 |
00001520 ef 31 2c 31 30 0d 08 ac 05 e1 0d 08 b6 05 3a 0d |.1,10.........:.|
00001530 08 c0 13 dd a4 6c 65 61 70 5f 79 65 61 72 28 59 |.....leap_year(Y|
00001540 25 29 0d 08 ca 26 3d 28 30 3d 59 25 83 34 20 80 |%)...&=(0=Y%.4 .|
00001550 20 28 59 25 83 31 30 30 3c 3e 30 20 84 20 59 25 | (Y%.100<>0 . Y%|
00001560 83 34 30 30 3d 30 29 29 0d 08 d4 13 dd a4 64 61 |.400=0))......da|
00001570 79 28 59 25 2c 4d 25 2c 44 25 29 0d 08 de 50 3d |y(Y%,M%,D%)...P=|
00001580 28 33 36 35 2a 59 25 2b 59 25 81 34 2d 59 25 81 |(365*Y%+Y%.4-Y%.|
00001590 31 30 30 2b 59 25 81 34 30 30 2b 64 61 79 73 5f |100+Y%.400+days_|
000015a0 73 6f 5f 66 61 72 25 28 4d 25 29 2b 28 4d 25 3c |so_far%(M%)+(M%<|
000015b0 32 20 80 20 a4 6c 65 61 70 5f 79 65 61 72 28 59 |2 . .leap_year(Y|
000015c0 25 29 29 2d 32 2b 44 25 29 83 37 0d 08 e8 15 dd |%))-2+D%).7.....|
000015d0 a4 64 61 74 65 5f 73 74 72 69 6e 67 28 4d 25 29 |.date_string(M%)|
000015e0 0d 08 f2 29 44 25 3d 4d 25 80 32 35 35 3a 59 25 |...)D%=M%.255:Y%|
000015f0 3d 28 4d 25 3e 3e 38 29 81 31 32 3a 4d 25 3d 28 |=(M%>>8).12:M%=(|
00001600 4d 25 3e 3e 38 29 83 31 32 0d 08 fc 38 3d 64 61 |M%>>8).12...8=da|
00001610 79 24 28 a4 64 61 79 28 59 25 2c 4d 25 2c 44 25 |y$(.day(Y%,M%,D%|
00001620 29 29 2b 22 20 22 2b c3 44 25 2b 22 20 22 2b 6d |))+" "+.D%+" "+m|
00001630 6f 6e 74 68 24 28 4d 25 29 2b 22 20 22 2b c3 59 |onth$(M%)+" "+.Y|
00001640 25 0d 09 06 05 3a 0d 09 10 17 dd f2 6c 6f 61 64 |%....:......load|
00001650 5f 6d 65 72 67 65 28 57 25 2c 41 24 29 0d 09 1a |_merge(W%,A$)...|
00001660 16 62 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 6b |.block%!12=block|
00001670 25 21 38 0d 09 24 1a 62 6c 6f 63 6b 25 21 31 36 |%!8..$.block%!16|
00001680 3d 34 3a 21 62 6c 6f 63 6b 25 3d 36 34 0d 09 2e |=4:!block%=64...|
00001690 2c c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |,.. "Wimp_SendMe|
000016a0 73 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 |ssage",17,block%|
000016b0 2c 62 6c 6f 63 6b 25 21 34 0d 09 38 0b c8 8e 20 |,block%!4..8... |
000016c0 57 25 20 ca 0d 09 42 22 20 c9 20 77 5f 64 69 61 |W% ...B" . w_dia|
000016d0 72 79 25 20 3a 20 f2 6d 65 72 67 65 5f 6e 6f 74 |ry% : .merge_not|
000016e0 65 73 28 41 24 29 0d 09 4c 16 20 7f 20 f2 6c 6f |es(A$)..L. . .lo|
000016f0 61 64 5f 6e 6f 74 65 73 28 41 24 29 0d 09 56 05 |ad_notes(A$)..V.|
00001700 cb 0d 09 60 05 e1 0d 09 6a 05 3a 0d 09 74 14 dd |...`....j.:..t..|
00001710 f2 6c 6f 61 64 5f 6e 6f 74 65 73 28 41 24 29 0d |.load_notes(A$).|
00001720 09 7e 1e c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c |.~... "OS_File",|
00001730 35 2c 41 24 20 b8 20 2c 2c 2c 2c 4c 25 0d 09 88 |5,A$ . ,,,,L%...|
00001740 36 e7 20 21 66 69 72 73 74 2b 4c 25 3e 21 6d 61 |6. !first+L%>!ma|
00001750 78 20 85 20 31 2c 22 44 69 61 72 79 20 74 6f 6f |x . 1,"Diary too|
00001760 20 62 69 67 20 74 6f 20 62 65 20 6c 6f 61 64 65 | big to be loade|
00001770 64 2e 22 0d 09 92 3f e3 4e 25 3d 30 b8 34 3a 21 |d."...?.N%=0.4:!|
00001780 62 6c 6f 63 6b 25 3d 77 5f 6e 6f 74 65 25 28 4e |block%=w_note%(N|
00001790 25 29 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |%):.. "Wimp_Clos|
000017a0 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 |eWindow",,block%|
000017b0 3a ed 0d 09 9c 1e 64 61 74 65 25 28 29 3d 2d 31 |:.....date%()=-1|
000017c0 3a 21 6e 65 78 74 3d 21 66 69 72 73 74 2b 4c 25 |:!next=!first+L%|
000017d0 0d 09 a6 20 c8 99 20 22 4f 53 5f 46 69 6c 65 22 |... .. "OS_File"|
000017e0 2c 26 46 46 2c 41 24 2c 21 66 69 72 73 74 2c 30 |,&FF,A$,!first,0|
000017f0 0d 09 b0 12 24 66 69 6c 65 5f 6e 61 6d 65 25 3d |....$file_name%=|
00001800 41 24 0d 09 ba 11 f2 6e 65 77 5f 6d 6f 6e 74 68 |A$.....new_month|
00001810 28 30 29 0d 09 c4 1a f2 6f 70 65 6e 5f 77 69 6e |(0).....open_win|
00001820 64 6f 77 28 77 5f 64 69 61 72 79 25 29 0d 09 ce |dow(w_diary%)...|
00001830 32 45 25 3d 74 6f 64 61 79 25 3a e7 20 21 ba 66 |2E%=today%:. !.f|
00001840 69 6e 64 5f 65 6e 74 72 79 3d 45 25 20 f2 64 61 |ind_entry=E% .da|
00001850 74 65 5f 73 65 6c 65 63 74 65 64 28 45 25 29 0d |te_selected(E%).|
00001860 09 d8 05 e1 0d 09 e2 05 3a 0d 09 ec 15 dd f2 6d |........:......m|
00001870 65 72 67 65 5f 6e 6f 74 65 73 28 41 24 29 0d 09 |erge_notes(A$)..|
00001880 f6 1e c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c 35 |.... "OS_File",5|
00001890 2c 41 24 20 b8 20 2c 2c 2c 2c 4c 25 0d 0a 00 12 |,A$ . ,,,,L%....|
000018a0 65 72 72 25 3d a3 3a 48 25 3d 8e 20 41 24 0d 0a |err%=.:H%=. A$..|
000018b0 0a 18 e3 50 25 3d 30 20 b8 20 4c 25 2d 31 36 38 |...P%=0 . L%-168|
000018c0 20 88 20 31 36 38 0d 0a 14 1f c8 99 20 22 4f 53 | . 168...... "OS|
000018d0 5f 47 42 50 42 22 2c 33 2c 48 25 2c 62 75 66 66 |_GBPB",3,H%,buff|
000018e0 2c 34 2c 50 25 0d 0a 1e 1c 45 25 3d 21 62 75 66 |,4,P%....E%=!buf|
000018f0 66 3a 41 25 3d ba 20 66 69 6e 64 5f 65 6e 74 72 |f:A%=. find_entr|
00001900 79 0d 0a 28 2f e7 20 21 41 25 3c 3e 45 25 20 80 |y..(/. !A%<>E% .|
00001910 20 21 6e 65 78 74 3c 21 6d 61 78 20 d6 69 6e 73 | !next<!max .ins|
00001920 65 72 74 5f 65 6e 74 72 79 3a 21 41 25 3d 45 25 |ert_entry:!A%=E%|
00001930 0d 0a 32 21 e7 20 21 41 25 3c 3e 45 25 20 80 20 |..2!. !A%<>E% . |
00001940 21 6e 65 78 74 3d 21 6d 61 78 20 65 72 72 25 3d |!next=!max err%=|
00001950 b9 0d 0a 3c 27 e7 20 21 41 25 3d 45 25 20 c8 99 |...<'. !A%=E% ..|
00001960 20 22 4f 53 5f 47 42 50 42 22 2c 34 2c 48 25 2c | "OS_GBPB",4,H%,|
00001970 41 25 2b 34 2c 31 36 34 0d 0a 46 05 ed 0d 0a 50 |A%+4,164..F....P|
00001980 09 d9 20 23 48 25 0d 0a 5a 11 f2 6e 65 77 5f 6d |.. #H%..Z..new_m|
00001990 6f 6e 74 68 28 30 29 0d 0a 64 14 f2 75 70 64 61 |onth(0)..d..upda|
000019a0 74 65 5f 6e 6f 74 65 73 28 b9 29 0d 0a 6e 4f e7 |te_notes(.)..nO.|
000019b0 20 65 72 72 25 20 85 20 31 2c 22 52 61 6e 20 6f | err% . 1,"Ran o|
000019c0 75 74 20 6f 66 20 6d 65 6d 6f 72 79 20 66 6f 72 |ut of memory for|
000019d0 20 6e 65 77 20 65 6e 74 72 69 65 73 2c 20 65 78 | new entries, ex|
000019e0 63 65 73 73 20 6e 65 77 20 65 6e 74 72 69 65 73 |cess new entries|
000019f0 20 69 67 6e 6f 72 65 64 2e 22 0d 0a 78 05 e1 0d | ignored."..x...|
00001a00 0a 82 05 3a 0d 0a 8c 14 dd f2 73 61 76 65 5f 6e |...:......save_n|
00001a10 6f 74 65 73 28 41 24 29 0d 0a 96 29 c8 99 20 22 |otes(A$)...).. "|
00001a20 4f 53 5f 46 69 6c 65 22 2c 31 30 2c 41 24 2c 26 |OS_File",10,A$,&|
00001a30 46 45 46 2c 2c 21 66 69 72 73 74 2c 21 6e 65 78 |FEF,,!first,!nex|
00001a40 74 0d 0a a0 1b c8 99 20 22 57 69 6d 70 5f 43 72 |t...... "Wimp_Cr|
00001a50 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d 0a aa 12 |eateMenu",-1....|
00001a60 24 66 69 6c 65 5f 6e 61 6d 65 25 3d 41 24 0d 0a |$file_name%=A$..|
00001a70 b4 16 62 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 |..block%!12=bloc|
00001a80 6b 25 21 38 0d 0a be 1a 62 6c 6f 63 6b 25 21 31 |k%!8....block%!1|
00001a90 36 3d 33 3a 21 62 6c 6f 63 6b 25 3d 36 34 0d 0a |6=3:!block%=64..|
00001aa0 c8 37 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d |.7.. "Wimp_SendM|
00001ab0 65 73 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b |essage",17,block|
00001ac0 25 2c 62 6c 6f 63 6b 25 21 32 30 2c 62 6c 6f 63 |%,block%!20,bloc|
00001ad0 6b 25 21 32 34 0d 0a d2 05 e1 0d 0a dc 05 3a 0d |k%!24.........:.|
00001ae0 0a e6 10 dd f2 71 75 69 63 6b 5f 73 61 76 65 0d |.....quick_save.|
00001af0 0a f0 4d e7 20 a7 24 66 69 6c 65 5f 6e 61 6d 65 |..M. .$file_name|
00001b00 25 2c 22 2e 22 29 3d 30 20 85 20 31 2c 22 54 6f |%,".")=0 . 1,"To|
00001b10 20 73 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 | save, drag the |
00001b20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 |icon to a direct|
00001b30 6f 72 79 20 76 69 65 77 65 72 2e 22 0d 0a fa 32 |ory viewer."...2|
00001b40 c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c 31 30 2c |.. "OS_File",10,|
00001b50 24 66 69 6c 65 5f 6e 61 6d 65 25 2c 26 46 45 46 |$file_name%,&FEF|
00001b60 2c 2c 21 66 69 72 73 74 2c 21 6e 65 78 74 0d 0b |,,!first,!next..|
00001b70 04 1b c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |.... "Wimp_Creat|
00001b80 65 4d 65 6e 75 22 2c 2d 31 0d 0b 0e 05 e1 0d 0b |eMenu",-1.......|
00001b90 18 05 3a 0d 0b 22 0e dd a4 6c 65 61 66 28 41 24 |..:.."...leaf(A$|
00001ba0 29 0d 0b 2c 11 c8 95 20 a7 41 24 2c 22 2e 22 29 |)..,... .A$,".")|
00001bb0 3e 30 0d 0b 36 17 20 41 24 3d c1 41 24 2c a7 41 |>0..6. A$=.A$,.A|
00001bc0 24 2c 22 2e 22 29 2b 31 29 0d 0b 40 05 ce 0d 0b |$,".")+1)..@....|
00001bd0 4a 07 3d 41 24 0d 0b 54 05 3a 0d 0b 5e 12 dd a4 |J.=A$..T.:..^...|
00001be0 67 65 74 5f 6e 61 6d 65 28 50 25 29 0d 0b 68 09 |get_name(P%)..h.|
00001bf0 41 24 3d 22 22 0d 0b 72 17 c8 95 20 3f 50 25 3c |A$=""..r... ?P%<|
00001c00 3e 30 20 80 20 3f 50 25 3c 3e 31 33 0d 0b 7c 15 |>0 . ?P%<>13..|.|
00001c10 20 41 24 3d 41 24 2b bd 3f 50 25 3a 50 25 2b 3d | A$=A$+.?P%:P%+=|
00001c20 31 0d 0b 86 05 ce 0d 0b 90 07 3d 41 24 0d 0b 9a |1.........=A$...|
00001c30 05 3a 0d 0b a4 39 dd f2 73 65 74 5f 69 63 6f 6e |.:...9..set_icon|
00001c40 5f 73 74 61 74 65 28 21 62 6c 6f 63 6b 25 2c 62 |_state(!block%,b|
00001c50 6c 6f 63 6b 25 21 34 2c 62 6c 6f 63 6b 25 21 38 |lock%!4,block%!8|
00001c60 2c 62 6c 6f 63 6b 25 21 31 32 29 0d 0b ae 22 c8 |,block%!12)...".|
00001c70 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |. "Wimp_SetIconS|
00001c80 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 0b b8 |tate",,block%...|
00001c90 05 e1 0d 0b c2 05 3a 0d 0b cc 15 dd f2 63 61 72 |......:......car|
00001ca0 65 74 28 57 25 2c 49 25 2c 58 25 29 0d 0b d6 2e |et(W%,I%,X%)....|
00001cb0 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 |.. "Wimp_SetCare|
00001cc0 74 50 6f 73 69 74 69 6f 6e 22 2c 57 25 2c 49 25 |tPosition",W%,I%|
00001cd0 2c 58 25 2c 2c 2d 31 2c 2d 31 0d 0b e0 05 e1 0d |,X%,,-1,-1......|
00001ce0 0b ea 05 3a 0d 0b f4 13 dd a4 61 64 64 72 28 21 |...:......addr(!|
00001cf0 62 6c 6f 63 6b 25 29 0d 0b fe 2d 62 6c 6f 63 6b |block%)...-block|
00001d00 25 21 34 3d 30 3a c8 99 20 22 57 69 6d 70 5f 47 |%!4=0:.. "Wimp_G|
00001d10 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c |etIconState",,bl|
00001d20 6f 63 6b 25 0d 0c 08 12 3d 28 62 6c 6f 63 6b 25 |ock%....=(block%|
00001d30 21 32 38 29 2d 34 0d 0c 12 05 3a 0d 0c 1c 16 dd |!28)-4....:.....|
00001d40 a4 67 65 74 5f 6e 6f 74 65 5f 6e 75 6d 28 57 25 |.get_note_num(W%|
00001d50 29 0d 0c 26 08 4e 25 3d 30 0d 0c 30 1e c8 95 20 |)..&.N%=0..0... |
00001d60 77 5f 6e 6f 74 65 25 28 4e 25 29 3c 3e 57 25 20 |w_note%(N%)<>W% |
00001d70 4e 25 2b 3d 31 3a ce 0d 0c 3a 07 3d 4e 25 0d 0c |N%+=1:...:.=N%..|
00001d80 44 05 3a 0d 0c 4e 0b dd a4 74 6f 64 61 79 0d 0c |D.:..N...today..|
00001d90 58 24 3f 62 6c 6f 63 6b 25 3d 31 3a c8 99 20 22 |X$?block%=1:.. "|
00001da0 4f 53 5f 57 6f 72 64 22 2c 31 34 2c 62 6c 6f 63 |OS_Word",14,bloc|
00001db0 6b 25 0d 0c 62 24 41 25 3d 3f 62 6c 6f 63 6b 25 |k%..b$A%=?block%|
00001dc0 3a 59 25 3d 31 30 2a 28 41 25 3e 3e 34 29 2b 28 |:Y%=10*(A%>>4)+(|
00001dd0 41 25 80 31 35 29 0d 0c 6c 31 41 25 3d 62 6c 6f |A%.15)..l1A%=blo|
00001de0 63 6b 25 3f 31 3a 4d 25 3d 32 32 37 39 39 2b 59 |ck%?1:M%=22799+Y|
00001df0 25 2a 31 32 2b 31 30 2a 28 41 25 3e 3e 34 29 2b |%*12+10*(A%>>4)+|
00001e00 28 41 25 80 31 35 29 0d 0c 76 0f 41 25 3d 62 6c |(A%.15)..v.A%=bl|
00001e10 6f 63 6b 25 3f 32 0d 0c 80 1f 3d 28 4d 25 3c 3c |ock%?2....=(M%<<|
00001e20 38 29 2b 31 30 2a 28 41 25 3e 3e 34 29 2b 28 41 |8)+10*(A%>>4)+(A|
00001e30 25 80 31 35 29 0d 0c 8a 05 3a 0d 0c 94 20 dd f2 |%.15)....:... ..|
00001e40 65 72 72 6f 72 28 21 62 6c 6f 63 6b 25 2c 24 28 |error(!block%,$(|
00001e50 62 6c 6f 63 6b 25 2b 34 29 29 0d 0c 9e 2a c8 99 |block%+4))...*..|
00001e60 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr|
00001e70 6f 72 22 2c 62 6c 6f 63 6b 25 2c 31 2c 22 44 69 |or",block%,1,"Di|
00001e80 61 72 79 22 0d 0c a8 05 e1 0d 0c b2 05 3a 0d 0c |ary".........:..|
00001e90 bc 10 dd f2 69 6e 69 74 69 61 6c 69 73 65 0d 0c |....initialise..|
00001ea0 c6 19 de 20 62 6c 6f 63 6b 25 20 39 30 2c 6d 65 |... block% 90,me|
00001eb0 6e 75 25 20 34 30 30 0d 0c d0 2a 6d 61 78 5f 6e |nu% 400...*max_n|
00001ec0 6f 74 65 73 25 3d 32 35 30 3a de 20 6e 6f 74 65 |otes%=250:. note|
00001ed0 73 25 20 31 36 38 2a 6d 61 78 5f 6e 6f 74 65 73 |s% 168*max_notes|
00001ee0 25 0d 0c da 1e de 20 6d 6f 6e 74 68 24 28 31 31 |%..... month$(11|
00001ef0 29 2c 6e 75 6d 5f 64 61 79 73 25 28 31 31 29 0d |),num_days%(11).|
00001f00 0c e4 1e de 20 64 61 79 73 5f 73 6f 5f 66 61 72 |.... days_so_far|
00001f10 25 28 31 31 29 2c 64 61 79 24 28 36 29 0d 0c ee |%(11),day$(6)...|
00001f20 7a 6d 6f 6e 74 68 24 28 29 3d 22 4a 61 6e 75 61 |zmonth$()="Janua|
00001f30 72 79 22 2c 22 46 65 62 72 75 61 72 79 22 2c 22 |ry","February","|
00001f40 4d 61 72 63 68 22 2c 22 41 70 72 69 6c 22 2c 22 |March","April","|
00001f50 4d 61 79 22 2c 22 4a 75 6e 65 22 2c 22 4a 75 6c |May","June","Jul|
00001f60 79 22 2c 22 41 75 67 75 73 74 22 2c 22 53 65 70 |y","August","Sep|
00001f70 74 65 6d 62 65 72 22 2c 22 4f 63 74 6f 62 65 72 |tember","October|
00001f80 22 2c 22 4e 6f 76 65 6d 62 65 72 22 2c 22 44 65 |","November","De|
00001f90 63 65 6d 62 65 72 22 0d 0c f8 33 6e 75 6d 5f 64 |cember"...3num_d|
00001fa0 61 79 73 25 28 29 3d 33 31 2c 32 38 2c 33 31 2c |ays%()=31,28,31,|
00001fb0 33 30 2c 33 31 2c 33 30 2c 33 31 2c 33 31 2c 33 |30,31,30,31,31,3|
00001fc0 30 2c 33 31 2c 33 30 2c 33 31 0d 0d 02 3d 64 61 |0,31,30,31...=da|
00001fd0 79 73 5f 73 6f 5f 66 61 72 25 28 29 3d 30 2c 33 |ys_so_far%()=0,3|
00001fe0 31 2c 35 39 2c 39 30 2c 31 32 30 2c 31 35 31 2c |1,59,90,120,151,|
00001ff0 31 38 31 2c 32 31 32 2c 32 34 33 2c 32 37 33 2c |181,212,243,273,|
00002000 33 30 34 2c 33 33 34 0d 0d 0c 51 64 61 79 24 28 |304,334...Qday$(|
00002010 29 3d 22 4d 6f 6e 64 61 79 22 2c 22 54 75 65 73 |)="Monday","Tues|
00002020 64 61 79 22 2c 22 57 65 64 6e 65 73 64 61 79 22 |day","Wednesday"|
00002030 2c 22 54 68 75 72 73 64 61 79 22 2c 22 46 72 69 |,"Thursday","Fri|
00002040 64 61 79 22 2c 22 53 61 74 75 72 64 61 79 22 2c |day","Saturday",|
00002050 22 53 75 6e 64 61 79 22 0d 0d 16 05 3a 0d 0d 20 |"Sunday"....:.. |
00002060 22 74 6f 64 61 79 25 3d a4 74 6f 64 61 79 3a 6d |"today%=.today:m|
00002070 6f 6e 74 68 25 3d 74 6f 64 61 79 25 3e 3e 38 0d |onth%=today%>>8.|
00002080 0d 2a 0b 71 75 69 74 25 3d a3 0d 0d 34 05 3a 0d |.*.quit%=...4.:.|
00002090 0d 3e 2e c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 |.>... "Wimp_Init|
000020a0 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 |ialise",200,&4B5|
000020b0 33 34 31 35 34 2c 22 44 69 61 72 79 22 0d 0d 48 |34154,"Diary"..H|
000020c0 34 41 25 3d a4 69 6e 64 5f 69 63 6f 6e 28 2d 31 |4A%=.ind_icon(-1|
000020d0 2c 41 25 2c 31 2c 37 2c 22 21 64 69 61 72 79 22 |,A%,1,7,"!diary"|
000020e0 2c 30 2c 30 2c 35 38 2c 36 38 2c 26 33 31 30 32 |,0,0,58,68,&3102|
000020f0 29 0d 0d 52 46 77 5f 64 69 61 72 79 25 3d a4 63 |)..RFw_diary%=.c|
00002100 72 65 61 74 65 5f 77 69 6e 64 6f 77 28 22 44 69 |reate_window("Di|
00002110 61 72 79 20 20 20 20 20 22 2c 41 25 2c 30 2c 31 |ary ",A%,0,1|
00002120 33 30 2c 38 38 34 2c 34 34 34 2c 34 30 30 2c 30 |30,884,444,400,0|
00002130 2c 31 33 2c 31 39 29 0d 0d 5c 31 41 25 3d a4 69 |,13,19)..\1A%=.i|
00002140 63 6f 6e 28 77 5f 64 69 61 72 79 25 2c bd 31 33 |con(w_diary%,.13|
00002150 36 2c 38 2c 2d 36 34 2c 34 34 2c 35 32 2c 26 32 |6,8,-64,44,52,&2|
00002160 37 30 30 32 30 33 44 29 0d 0d 66 33 41 25 3d a4 |700203D)..f3A%=.|
00002170 69 63 6f 6e 28 77 5f 64 69 61 72 79 25 2c bd 31 |icon(w_diary%,.1|
00002180 33 37 2c 33 39 32 2c 2d 36 34 2c 34 34 2c 35 32 |37,392,-64,44,52|
00002190 2c 26 32 37 30 30 32 30 33 44 29 0d 0d 70 58 41 |,&2700203D)..pXA|
000021a0 25 3d a4 69 6e 64 5f 69 63 6f 6e 28 77 5f 64 69 |%=.ind_icon(w_di|
000021b0 61 72 79 25 2c 41 25 2c 2d 31 2c 32 38 2c 22 4d |ary%,A%,-1,28,"M|
000021c0 6f 6e 20 54 75 65 20 57 65 64 20 54 68 75 20 46 |on Tue Wed Thu F|
000021d0 72 69 20 53 61 74 20 53 75 6e 22 2c 30 2c 2d 31 |ri Sat Sun",0,-1|
000021e0 30 38 2c 34 35 30 2c 33 36 2c 26 37 30 30 30 31 |08,450,36,&70001|
000021f0 30 31 29 0d 0d 7a 47 41 25 3d a4 69 6e 64 5f 69 |01)..zGA%=.ind_i|
00002200 63 6f 6e 28 77 5f 64 69 61 72 79 25 2c 6d 6f 6e |con(w_diary%,mon|
00002210 74 68 5f 62 75 66 66 25 2c 2d 31 2c 31 35 2c 22 |th_buff%,-1,15,"|
00002220 22 2c 31 30 32 2c 2d 35 36 2c 32 34 30 2c 33 36 |",102,-56,240,36|
00002230 2c 26 37 30 30 30 31 30 39 29 0d 0d 84 05 3a 0d |,&7000109)....:.|
00002240 0d 8e 32 de 20 77 5f 6e 6f 74 65 25 28 34 29 2c |..2. w_note%(4),|
00002250 6e 6f 74 65 5f 64 61 74 65 25 28 34 29 2c 64 61 |note_date%(4),da|
00002260 74 65 25 28 34 29 3a 64 61 74 65 25 28 29 3d 2d |te%(4):date%()=-|
00002270 31 0d 0d 98 0b e3 4e 25 3d 30 b8 34 0d 0d a2 52 |1.....N%=0.4...R|
00002280 77 5f 6e 6f 74 65 25 28 4e 25 29 3d a4 63 72 65 |w_note%(N%)=.cre|
00002290 61 74 65 5f 77 69 6e 64 6f 77 28 22 22 2c 6e 6f |ate_window("",no|
000022a0 74 65 5f 64 61 74 65 25 28 4e 25 29 2c 33 30 2c |te_date%(N%),30,|
000022b0 39 39 39 2c 38 38 34 2d 4e 25 2a 38 38 2c 36 35 |999,884-N%*88,65|
000022c0 32 2c 31 36 34 2c 30 2c 31 32 2c 33 31 29 0d 0d |2,164,0,12,31)..|
000022d0 ac 05 ed 0d 0d b6 05 3a 0d 0d c0 3f 77 5f 73 61 |.......:...?w_sa|
000022e0 76 65 25 3d a4 63 72 65 61 74 65 5f 77 69 6e 64 |ve%=.create_wind|
000022f0 6f 77 28 22 53 61 76 65 20 61 73 3a 22 2c 41 25 |ow("Save as:",A%|
00002300 2c 30 2c 30 2c 30 2c 32 34 36 2c 31 36 38 2c 31 |,0,0,0,246,168,1|
00002310 2c 32 2c 26 39 33 29 0d 0d ca 3e 41 25 3d a4 69 |,2,&93)...>A%=.i|
00002320 6e 64 5f 69 63 6f 6e 28 77 5f 73 61 76 65 25 2c |nd_icon(w_save%,|
00002330 41 25 2c 31 2c 39 2c 22 66 69 6c 65 5f 66 65 66 |A%,1,9,"file_fef|
00002340 22 2c 38 38 2c 2d 39 32 2c 36 38 2c 36 38 2c 26 |",88,-92,68,68,&|
00002350 36 31 30 32 29 0d 0d d4 12 de 20 74 20 33 3a 24 |6102)..... t 3:$|
00002360 74 3d 22 41 7e 20 22 0d 0d de 4d 41 25 3d a4 69 |t="A~ "...MA%=.i|
00002370 6e 64 5f 69 63 6f 6e 28 77 5f 73 61 76 65 25 2c |nd_icon(w_save%,|
00002380 66 69 6c 65 5f 6e 61 6d 65 25 2c 74 2c 32 35 35 |file_name%,t,255|
00002390 2c 22 44 69 61 72 79 46 69 6c 65 22 2c 38 2c 2d |,"DiaryFile",8,-|
000023a0 31 36 30 2c 31 38 30 2c 34 38 2c 26 37 30 30 46 |160,180,48,&700F|
000023b0 31 32 44 29 0d 0d e8 36 69 5f 6f 6b 25 3d a4 69 |12D)...6i_ok%=.i|
000023c0 63 6f 6e 28 77 5f 73 61 76 65 25 2c 22 4f 4b 22 |con(w_save%,"OK"|
000023d0 2c 31 39 34 2c 2d 31 36 30 2c 34 34 2c 34 38 2c |,194,-160,44,48,|
000023e0 26 43 37 30 31 39 30 32 35 29 0d 0d f2 0d f2 61 |&C7019025).....a|
000023f0 73 73 65 6d 62 6c 65 0d 0d fc 05 3a 0d 0e 06 17 |ssemble....:....|
00002400 c8 99 20 22 4f 53 5f 47 65 74 45 6e 76 22 20 b8 |.. "OS_GetEnv" .|
00002410 20 41 24 0d 0e 10 30 e7 20 c2 41 24 2c 31 29 3c | A$...0. .A$,1)<|
00002420 3e 22 20 22 20 f2 6c 6f 61 64 5f 6e 6f 74 65 73 |>" " .load_notes|
00002430 28 c1 41 24 2c a7 41 24 2c 22 22 22 20 22 29 2b |(.A$,.A$,""" ")+|
00002440 32 29 29 0d 0e 1a 05 e1 0d 0e 24 05 3a 0d 0e 2e |2)).......$.:...|
00002450 3f dd a4 63 72 65 61 74 65 5f 77 69 6e 64 6f 77 |?..create_window|
00002460 28 74 69 74 6c 65 24 2c f8 20 62 75 66 66 25 2c |(title$,. buff%,|
00002470 6c 65 6e 25 2c 58 25 2c 59 25 2c 57 25 2c 48 25 |len%,X%,Y%,W%,H%|
00002480 2c 62 67 25 2c 68 67 25 2c 46 25 29 0d 0e 38 13 |,bg%,hg%,F%)..8.|
00002490 24 62 6c 6f 63 6b 25 3d c4 38 38 2c bd 30 29 0d |$block%=.88,.0).|
000024a0 0e 42 1d 21 62 6c 6f 63 6b 25 3d 58 25 3a 62 6c |.B.!block%=X%:bl|
000024b0 6f 63 6b 25 21 34 3d 59 25 2d 48 25 0d 0e 4c 1f |ock%!4=Y%-H%..L.|
000024c0 62 6c 6f 63 6b 25 21 38 3d 58 25 2b 57 25 3a 62 |block%!8=X%+W%:b|
000024d0 6c 6f 63 6b 25 21 31 32 3d 59 25 0d 0e 56 1f 62 |lock%!12=Y%..V.b|
000024e0 6c 6f 63 6b 25 21 32 38 3d 46 25 3a 62 6c 6f 63 |lock%!28=F%:bloc|
000024f0 6b 25 21 33 32 3d 26 32 30 37 0d 0e 60 20 62 6c |k%!32=&207..` bl|
00002500 6f 63 6b 25 3f 33 35 3d 62 67 25 3a 62 6c 6f 63 |ock%?35=bg%:bloc|
00002510 6b 25 21 33 36 3d 26 31 30 33 0d 0e 6a 1f 62 6c |k%!36=&103..j.bl|
00002520 6f 63 6b 25 3f 33 38 3d 68 67 25 3a 62 6c 6f 63 |ock%?38=hg%:bloc|
00002530 6b 25 21 34 34 3d 2d 48 25 0d 0e 74 1e 62 6c 6f |k%!44=-H%..t.blo|
00002540 63 6b 25 21 34 38 3d 57 25 3a 62 6c 6f 63 6b 25 |ck%!48=W%:block%|
00002550 21 35 36 3d 26 31 39 0d 0e 7e 17 24 28 62 6c 6f |!56=&19..~.$(blo|
00002560 63 6b 25 2b 37 32 29 3d 74 69 74 6c 65 24 0d 0e |ck%+72)=title$..|
00002570 88 54 e7 20 6c 65 6e 25 3e 30 20 de 20 62 75 66 |.T. len%>0 . buf|
00002580 66 25 20 6c 65 6e 25 3a 62 6c 6f 63 6b 25 21 35 |f% len%:block%!5|
00002590 36 3d 26 31 31 39 3a 62 6c 6f 63 6b 25 21 37 32 |6=&119:block%!72|
000025a0 3d 62 75 66 66 25 3a 62 6c 6f 63 6b 25 21 37 36 |=buff%:block%!76|
000025b0 3d 2d 31 3a 62 6c 6f 63 6b 25 21 38 30 3d 6c 65 |=-1:block%!80=le|
000025c0 6e 25 0d 0e 92 27 c8 99 20 22 57 69 6d 70 5f 43 |n%...'.. "Wimp_C|
000025d0 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c |reateWindow",,bl|
000025e0 6f 63 6b 25 20 b8 20 48 25 0d 0e 9c 07 3d 48 25 |ock% . H%....=H%|
000025f0 0d 0e a6 05 3a 0d 0e b0 1a dd f2 6f 70 65 6e 5f |....:......open_|
00002600 77 69 6e 64 6f 77 28 21 62 6c 6f 63 6b 25 29 0d |window(!block%).|
00002610 0e ba 24 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |..$.. "Wimp_GetW|
00002620 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f |indowState",,blo|
00002630 63 6b 25 0d 0e c4 2d 62 6c 6f 63 6b 25 21 32 38 |ck%...-block%!28|
00002640 3d 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 |=-1:.. "Wimp_Ope|
00002650 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 |nWindow",,block%|
00002660 0d 0e ce 05 e1 0d 0e d8 05 3a 0d 0e e2 2f dd a4 |.........:.../..|
00002670 69 63 6f 6e 28 21 62 6c 6f 63 6b 25 2c 74 65 78 |icon(!block%,tex|
00002680 74 24 2c 4c 25 2c 42 25 2c 57 25 2c 48 25 2c 62 |t$,L%,B%,W%,H%,b|
00002690 6c 6f 63 6b 25 21 32 30 29 0d 0e ec 1b 62 6c 6f |lock%!20)....blo|
000026a0 63 6b 25 21 34 3d 4c 25 3a 62 6c 6f 63 6b 25 21 |ck%!4=L%:block%!|
000026b0 38 3d 42 25 0d 0e f6 23 62 6c 6f 63 6b 25 21 31 |8=B%...#block%!1|
000026c0 32 3d 4c 25 2b 57 25 3a 62 6c 6f 63 6b 25 21 31 |2=L%+W%:block%!1|
000026d0 36 3d 42 25 2b 48 25 0d 0f 00 22 e7 20 74 65 78 |6=B%+H%...". tex|
000026e0 74 24 3c 3e 22 22 20 24 28 62 6c 6f 63 6b 25 2b |t$<>"" $(block%+|
000026f0 32 34 29 3d 74 65 78 74 24 0d 0f 0a 25 c8 99 20 |24)=text$...%.. |
00002700 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
00002710 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 49 25 0d 0f |",,block% . I%..|
00002720 14 07 3d 49 25 0d 0f 1e 05 3a 0d 0f 28 43 dd a4 |..=I%....:..(C..|
00002730 69 6e 64 5f 69 63 6f 6e 28 77 69 6e 64 6f 77 25 |ind_icon(window%|
00002740 2c f8 20 62 75 66 66 25 2c 62 6c 6f 63 6b 25 21 |,. buff%,block%!|
00002750 32 38 2c 6c 65 6e 25 2c 74 65 78 74 24 2c 4c 25 |28,len%,text$,L%|
00002760 2c 42 25 2c 57 25 2c 48 25 2c 46 25 29 0d 0f 32 |,B%,W%,H%,F%)..2|
00002770 1e e7 20 62 75 66 66 25 3c 26 38 30 30 30 20 de |.. buff%<&8000 .|
00002780 20 62 75 66 66 25 20 6c 65 6e 25 0d 0f 3c 22 62 | buff% len%..<"b|
00002790 6c 6f 63 6b 25 21 32 34 3d 62 75 66 66 25 3a 62 |lock%!24=buff%:b|
000027a0 6c 6f 63 6b 25 21 33 32 3d 6c 65 6e 25 0d 0f 46 |lock%!32=len%..F|
000027b0 1c e7 20 74 65 78 74 24 3c 3e 22 22 20 24 62 75 |.. text$<>"" $bu|
000027c0 66 66 25 3d 74 65 78 74 24 0d 0f 50 25 3d a4 69 |ff%=text$..P%=.i|
000027d0 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 22 22 2c 4c |con(window%,"",L|
000027e0 25 2c 42 25 2c 57 25 2c 48 25 2c 46 25 29 0d 0f |%,B%,W%,H%,F%)..|
000027f0 5a 05 3a 0d 0f 64 22 dd f2 6d 61 73 74 65 72 5f |Z.:..d"..master_|
00002800 6d 65 6e 75 28 74 69 74 6c 65 24 2c 6d 24 2c 58 |menu(title$,m$,X|
00002810 25 2c 59 25 29 0d 0f 6e 21 f2 63 72 65 61 74 65 |%,Y%)..n!.create|
00002820 5f 6d 65 6e 75 28 6d 65 6e 75 25 2c 74 69 74 6c |_menu(menu%,titl|
00002830 65 24 2c 6d 24 29 0d 0f 78 30 c8 99 20 22 57 69 |e$,m$)..x0.. "Wi|
00002840 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00002850 6d 65 6e 75 25 2c 58 25 2d 6d 65 6e 75 25 21 31 |menu%,X%-menu%!1|
00002860 36 2f 32 2c 59 25 0d 0f 82 05 e1 0d 0f 8c 05 3a |6/2,Y%.........:|
00002870 0d 0f 96 1f dd f2 63 72 65 61 74 65 5f 6d 65 6e |......create_men|
00002880 75 28 4d 25 2c 74 69 74 6c 65 24 2c 6d 24 29 0d |u(M%,title$,m$).|
00002890 0f a0 0d ea 20 49 25 2c 6d 61 78 25 0d 0f aa 1b |.... I%,max%....|
000028a0 24 4d 25 3d 74 69 74 6c 65 24 3a 4d 25 21 31 32 |$M%=title$:M%!12|
000028b0 3d 26 37 30 32 30 37 0d 0f b4 14 4d 25 21 32 30 |=&70207....M%!20|
000028c0 3d 34 34 3a 4d 25 21 32 34 3d 30 0d 0f be 1d 49 |=44:M%!24=0....I|
000028d0 25 3d 4d 25 2b 32 38 3a 6d 61 78 25 3d a9 28 74 |%=M%+28:max%=.(t|
000028e0 69 74 6c 65 24 29 2d 32 0d 0f c8 05 f5 0d 0f d2 |itle$)-2........|
000028f0 22 20 41 25 3d a7 6d 24 2c 22 2c 22 29 3a e7 20 |" A%=.m$,","):. |
00002900 41 25 3e 6d 61 78 25 20 6d 61 78 25 3d 41 25 0d |A%>max% max%=A%.|
00002910 0f dc 11 20 21 49 25 3d 30 3a 49 25 21 34 3d 30 |... !I%=0:I%!4=0|
00002920 0d 0f e6 17 20 24 28 49 25 2b 31 32 29 3d c0 6d |.... $(I%+12)=.m|
00002930 24 2c 41 25 2d 31 29 0d 0f f0 11 20 6d 24 3d c1 |$,A%-1).... m$=.|
00002940 6d 24 2c 41 25 2b 31 29 0d 0f fa 12 20 c8 8e 20 |m$,A%+1).... .. |
00002950 24 28 49 25 2b 31 32 29 20 ca 0d 10 04 23 20 20 |$(I%+12) ....# |
00002960 c9 20 22 53 61 76 65 20 6e 6f 74 65 73 22 20 3a |. "Save notes" :|
00002970 20 49 25 21 34 3d 77 5f 73 61 76 65 25 0d 10 0e | I%!4=w_save%...|
00002980 26 20 20 c9 20 22 50 72 69 6e 74 20 6e 6f 74 65 |& . "Print note|
00002990 73 22 20 3a 20 49 25 21 34 3d 6d 65 6e 75 25 2b |s" : I%!4=menu%+|
000029a0 32 30 30 0d 10 18 3d 20 20 20 f2 63 72 65 61 74 |200...= .creat|
000029b0 65 5f 6d 65 6e 75 28 49 25 21 34 2c 22 50 72 69 |e_menu(I%!4,"Pri|
000029c0 6e 74 20 6e 6f 74 65 73 22 2c 22 6d 6f 6e 74 68 |nt notes","month|
000029d0 27 73 2c 79 65 61 72 27 73 2c 61 6c 6c 2c 22 29 |'s,year's,all,")|
000029e0 0d 10 22 06 20 cb 0d 10 2c 19 20 49 25 21 38 3d |..". ...,. I%!8=|
000029f0 26 37 30 30 30 30 32 31 3a 49 25 2b 3d 32 34 0d |&7000021:I%+=24.|
00002a00 10 36 0b fd 20 6d 24 3d 22 22 0d 10 40 1c 49 25 |.6.. m$=""..@.I%|
00002a10 21 2d 32 34 3d 26 38 30 3a 4d 25 21 31 36 3d 6d |!-24=&80:M%!16=m|
00002a20 61 78 25 2a 31 36 0d 10 4a 05 e1 0d 10 54 05 3a |ax%*16..J....T.:|
00002a30 0d 10 5e 0e dd f2 61 73 73 65 6d 62 6c 65 0d 10 |..^...assemble..|
00002a40 68 0f de 20 63 6f 64 65 25 20 31 32 38 0d 10 72 |h.. code% 128..r|
00002a50 16 e3 41 25 3d 30 b8 32 88 32 3a 50 25 3d 63 6f |..A%=0.2.2:P%=co|
00002a60 64 65 25 0d 10 7c 0b 5b 4f 50 54 20 41 25 0d 10 |de%..|.[OPT A%..|
00002a70 86 0f 2e 66 69 6e 64 5f 65 6e 74 72 79 0d 10 90 |...find_entry...|
00002a80 12 4c 44 52 20 20 20 52 30 2c 66 69 72 73 74 0d |.LDR R0,first.|
00002a90 10 9a 0b 2e 73 65 61 72 63 68 0d 10 a4 14 53 55 |....search....SU|
00002aa0 42 20 20 20 52 30 2c 52 30 2c 23 31 36 38 0d 10 |B R0,R0,#168..|
00002ab0 ae 11 4c 44 52 20 20 20 52 31 2c 6e 65 78 74 0d |..LDR R1,next.|
00002ac0 10 b8 11 53 54 52 20 20 20 52 30 2c 5b 52 31 5d |...STR R0,[R1]|
00002ad0 0d 10 c2 0f 2e 6e 65 78 74 5f 65 6e 74 72 79 0d |.....next_entry.|
00002ae0 10 cc 17 4c 44 52 20 20 20 52 32 2c 5b 52 30 2c |...LDR R2,[R0,|
00002af0 23 31 36 38 5d 21 0d 10 d6 0f 54 45 51 20 20 20 |#168]!....TEQ |
00002b00 52 30 2c 52 31 0d 10 e0 0d ec 51 20 50 43 2c 52 |R0,R1.....Q PC,R|
00002b10 31 34 0d 10 ea 0f 43 4d 50 20 20 20 52 34 2c 52 |14....CMP R4,R|
00002b20 32 0d 10 f4 14 42 48 49 20 20 20 6e 65 78 74 5f |2....BHI next_|
00002b30 65 6e 74 72 79 0d 10 fe 10 4d 4f 56 20 20 20 50 |entry....MOV P|
00002b40 43 2c 52 31 34 0d 11 08 05 3a 0d 11 12 11 2e 69 |C,R14....:.....i|
00002b50 6e 73 65 72 74 5f 65 6e 74 72 79 0d 11 1c 11 4c |nsert_entry....L|
00002b60 44 52 20 20 20 52 31 2c 6e 65 78 74 0d 11 26 14 |DR R1,next..&.|
00002b70 41 44 44 20 20 20 52 32 2c 52 31 2c 23 31 36 38 |ADD R2,R1,#168|
00002b80 0d 11 30 11 53 54 52 20 20 20 52 32 2c 6e 65 78 |..0.STR R2,nex|
00002b90 74 0d 11 3a 0c 2e 6d 6f 76 65 5f 75 70 0d 11 44 |t..:..move_up..D|
00002ba0 0f 54 45 51 20 20 20 52 30 2c 52 31 0d 11 4e 0d |.TEQ R0,R1..N.|
00002bb0 ec 51 20 50 43 2c 52 31 34 0d 11 58 16 4c 44 52 |.Q PC,R14..X.LDR|
00002bc0 20 20 20 52 32 2c 5b 52 31 2c 23 2d 34 5d 21 0d | R2,[R1,#-4]!.|
00002bd0 11 62 16 53 54 52 20 20 20 52 32 2c 5b 52 31 2c |.b.STR R2,[R1,|
00002be0 23 31 36 38 5d 0d 11 6c 11 42 20 20 20 20 20 6d |#168]..l.B m|
00002bf0 6f 76 65 5f 75 70 0d 11 76 05 3a 0d 11 80 11 2e |ove_up..v.:.....|
00002c00 64 65 6c 65 74 65 5f 65 6e 74 72 79 0d 11 8a 11 |delete_entry....|
00002c10 4c 44 52 20 20 20 52 30 2c 6e 65 78 74 0d 11 94 |LDR R0,next...|
00002c20 14 53 55 42 20 20 20 52 32 2c 52 30 2c 23 31 36 |.SUB R2,R0,#16|
00002c30 38 0d 11 9e 11 53 54 52 20 20 20 52 32 2c 6e 65 |8....STR R2,ne|
00002c40 78 74 0d 11 a8 0e 2e 6d 6f 76 65 5f 64 6f 77 6e |xt.....move_down|
00002c50 0d 11 b2 0f 54 45 51 20 20 20 52 30 2c 52 31 0d |....TEQ R0,R1.|
00002c60 11 bc 0d ec 51 20 50 43 2c 52 31 34 0d 11 c6 16 |....Q PC,R14....|
00002c70 4c 44 52 20 20 20 52 32 2c 5b 52 31 2c 23 31 36 |LDR R2,[R1,#16|
00002c80 38 5d 0d 11 d0 14 53 54 52 20 20 20 52 32 2c 5b |8]....STR R2,[|
00002c90 52 31 5d 2c 23 34 0d 11 da 13 42 20 20 20 20 20 |R1],#4....B |
00002ca0 6d 6f 76 65 5f 64 6f 77 6e 0d 11 e4 05 3a 0d 11 |move_down....:..|
00002cb0 ee 10 2e 62 75 66 66 20 45 51 55 44 20 30 0d 11 |...buff EQUD 0..|
00002cc0 f8 16 2e 66 69 72 73 74 20 45 51 55 44 20 6e 6f |...first EQUD no|
00002cd0 74 65 73 25 0d 12 02 15 2e 6e 65 78 74 20 45 51 |tes%.....next EQ|
00002ce0 55 44 20 6e 6f 74 65 73 25 0d 12 0c 24 2e 6d 61 |UD notes%...$.ma|
00002cf0 78 20 20 45 51 55 44 20 6e 6f 74 65 73 25 2b 31 |x EQUD notes%+1|
00002d00 36 38 2a 6d 61 78 5f 6e 6f 74 65 73 25 0d 12 16 |68*max_notes%...|
00002d10 07 5d 3a ed 0d 12 20 05 e1 0d ff |.]:... ....|
00002d1b 
.