Home » Archimedes archive » Acorn User » AU 1998-03 B.adf » StarInfo » Rawle/!Counter/!RunImage

Rawle/!Counter/!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 » Acorn User » AU 1998-03 B.adf » StarInfo
Filename: Rawle/!Counter/!RunImage
Read OK: ✔
File size: 1A5D bytes
Load address: 0000
Exec address: 0000
File contents
   10ONERROROSCLI"ERROR "+REPORT$:END
   20ie%=746
   30DIMb%1784,i%ie%,name%12,men%124,ts%32
   40q%=FALSE:@%="+G99.99":z$="":z2$="":lt%=0
   50FI%=OPENIN"<Counter$Dir>.Sprites":sz%=EXT#FI%+4:CLOSE#FI%
   60DIMsp%sz%
   70!sp%=sz%:sp%!8=16
   80SYS46,&10A,sp%,"<Counter$Dir>.Sprites"
   90PROCload
  100SYS262336,200,&4B534154,"Counter"
  110SYS262361,,"<Counter$Dir>.Templates"
  120$name%="info":SYS262363,,b%,i%,i%+ie%,-1,name%,0TO,,ni%,,,,ne%:SYS262337,,b%TOinfo%
  130w%=FNltmp("Window"):set%=FNltmp("Setup")
  140SYS262362
  150PROCinitcount
  160!b%=w%:SYS262347,,b%:b%!28=-1:b%!4=wx%:b%!8=wy%:b%!12=wx%+346:b%!16=wy%+212:SYS262341,,b%
  170PROCcm
  180ONERRORPROCer
  190WHILENOTq%
  200SYS66TOa%:a%+=wt%
  210SYS262369,&1830,b%,a%TOr%
  220CASEr%OF
  230WHEN0:z2$=z$:z$=FNcal:IFz$<>z2$:PROCtj(w%,2,z$)
  240WHEN2:SYS262341,,b%
  250WHEN3:SYS262342,,b%:IF!b%=w%:q%=TRUE
  260WHEN6:PROCcl(b%!12,b%!16,b%!8)
  270WHEN8:PROCkey(!b%,b%!4,b%!24)
  280WHEN9:PROCms(!b%)
  290WHEN17,18:PROCrm
  300ENDCASE
  310ENDWHILE
  320SYS262365
  330END
  340DEFPROCrm
  350CASEb%!16OF
  360WHEN0:q%=TRUE
  370WHEN&400C1:lt%=0
  380ENDCASE
  390ENDPROC
  400DEFPROCer:!b%=ERR:$(b%+4)=REPORT$+CHR$0:SYS262367,b%,1,"Counter":ENDPROC
  410DEFFNltmp(tname$)
  420$name%=tname$:SYS262363,,b%,ni%,i%+ie%,-1,name%,ne%TO,,ni%,,,,ne%:b%!64=sp%:SYS262337,,b%TOthand%
  430=thand%
  440DEFPROCopenw(w%):!b%=w%:SYS262347,,b%:b%!28=-1:SYS262341,,b%:ENDPROC
  450DEFPROCload:FI%=OPENIN"<Counter$Dir>.Setup":INPUT#FI%,wx%,wy%,d%,m%,y%,hr%,mi%,f%,cd%,des$:CLOSE#FI%:ENDPROC
  460DEFPROCsave:FI%=OPENOUT"<Counter$Dir>.Setup":PRINT#FI%,wx%,wy%,d%,m%,y%,hr%,mi%,f%,cd%,des$:CLOSE#FI%:ENDPROC
  470DEFPROCcm
  480$men%="Counter":men%!12=&70207:men%!16=192:men%!20=44:men%!24=0
  490men%!28=0:men%!32=info%:men%!36=&7000021:$(men%+40)="Info"
  500men%!52=0:men%!56=-1:men%!60=&7000021:$(men%+64)="Setup..."
  510men%!76=0:men%!80=-1:men%!84=&7000021:$(men%+88)="Save status"
  520men%!100=&80:men%!104=-1:men%!108=&7000021:$(men%+112)="Quit"
  530ENDPROC
  540DEFPROCms(ms0%):LOCALbut%,op%
  550SYS262351,,b%:but%=b%!8
  560CASEms0%OF
  570WHEN1:op%=FNopen(set%):IFNOTop%:PROCsetwin
  580PROCopenw(set%):IFNOTop%:PROCcaret(set%,4)
  590WHEN2:!b%=w%:SYS262347,,b%:wx%=b%!4:wy%=b%!8:PROCsave
  600WHEN3:q%=TRUE
  610ENDCASE
  620IFbut%=1:SYS262356,,men%,0,0
  630ENDPROC
  640DEFPROCcl(win%,i%,but%)
  650CASEwin%OF
  660WHENw%:IFbut%=2:SYS262356,,men%,!b%-64,b%!4
  670WHENset%:CASEi%OF
  680WHEN10,11:PROCud(4,10,11,i%,0,23)
  690WHEN12,13:PROCud(5,12,13,i%,0,59)
  700WHEN14,15:PROCud(7,14,15,i%,1,FNmonmax(winm%))
  710WHEN16,17:PROCud(8,16,17,i%,1,12)
  720WHEN18,19:PROCud(9,18,19,i%,1,9999)
  730WHEN24,25,26,27,28,31,32:IFbut%=1ANDNOTFNseld(set%,i%):PROCsel(set%,i%)
  740WHEN33:!b%=set%:SYS262342,,b%
  750WHEN34:PROCdoset(but%)
  760ENDCASE
  770ENDCASE
  780ENDPROC
  790DEFPROCkey(win%,i%,k%)
  800CASEwin%OF
  810WHENset%
  820CASEi%OF
  830WHEN9:IF(k%>=48AND k%<=57)ORk%=8ORk%=127:PROCtj(set%,6,FNweekday(VAL(FNread(set%,7)),winm%,VAL(FNread(set%,9))))ELSEPROCkey2
  840OTHERWISE:IFk%=13:PROCsel(set%,34):PROCdoset(4):PROCdesel(set%,34)ELSESYS262364,k%
  850ENDCASE
  860OTHERWISE:SYS262364,k%
  870ENDCASE
  880ENDPROC
  890DEFPROCkey2:LOCALfg%,ky%:fg%=FALSE
  900RESTORE+1
  910DATA&18A,&19A,&18E,&18F,&18C,&19C,&1AC,&1BC,&18D,&19D,&1AD,&1BD
  920FORLA%=1TO12:READky%:IFk%=ky%:fg%=TRUE
  930NEXT
  940IFNOTfg%:SYS262364,k%
  950ENDPROC
  960DEFPROCti(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS262350,,b%:$(b%!28)=TX$:ENDPROC
  970DEFPROCtj(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS262350,,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:SYS262349,,b%:ENDPROC
  980DEFFNread(win%,icon%):!b%=win%:b%!4=icon%:SYS262350,,b%:=$(b%!28)
  990DEFFNreadv(win%,icon%):!b%=win%:b%!4=icon%:SYS262350,,b%:=VAL($(b%!28))
 1000DEFPROCsel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:SYS262349,,b%:ENDPROC
 1010DEFPROCdesel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:SYS262349,,b%:ENDPROC
 1020DEFFNseld(win%,icon%):!b%=win%:b%!4=icon%:SYS262350,,b%
 1030IF(b%!24)AND(1<<21):=1ELSE=0
 1040DEFPROCcaret(win%,icon%):LOCALLA%
 1050LA%=LEN(FNread(win%,icon%)):SYS262354,win%,icon%,,,-1,LA%:ENDPROC
 1060DEFFNopen(win%):!b%=win%:SYS262347,,b%:IFb%!32AND(1<<16):=TRUE
 1070=FALSE
 1080DEFPROCsetwin:LOCALLA%
 1090PROCti(set%,4,FNtime(hr%)):PROCti(set%,5,FNtime(mi%)):PROCti(set%,6,FNweekday(d%,m%,y%)):PROCti(set%,7,FNday(d%)):PROCti(set%,8,FNmonth(m%)):PROCti(set%,9,STR$(y%)):winm%=m%
 1100PROCti(set%,21,des$)
 1110FORLA%=24TO28:IFf%=LA%-23:PROCsel(set%,LA%)ELSEPROCdesel(set%,LA%)
 1120NEXTLA%
 1130IFcd%=1:PROCsel(set%,31):PROCdesel(set%,32)ELSEPROCsel(set%,32):PROCdesel(set%,31)
 1140ENDPROC
 1150DEFFNtime(t%):IFt%<10:="0"+STR$(t%)
 1160=STR$(t%)
 1170DEFFNday(d%)
 1180IFd%=1ORd%=21ORd%=31:=STR$(d%)+"st"
 1190IFd%=2ORd%=22:=STR$(d%)+"nd"
 1200IFd%=3ORf%=23:=STR$(d%)+"rd"
 1210=STR$(d%)+"th"
 1220DEFFNmonth(m%):LOCALLA%,m$
 1230RESTORE+1
 1240DATAJanuary,February,March,April,May,June,July,August,September,October,November,December
 1250FORLA%=1TOm%:READm$:NEXTLA%
 1260=m$
 1270DEFFNweekday(d%,m%,y%):LOCALx%,l%,wd$,LA%
 1280x%=y%+y%DIV4
 1290x%=x%-y%DIV100
 1300x%=x%+y%DIV400
 1310x%=x%+d%
 1320RESTORE+1:FORLA%=1TOm%:READn%:NEXT
 1330DATA0,3,3,6,1,4,6,2,5,0,3,5
 1340l%=FNleap(y%)
 1350IFl%=TRUE AND m%=1:n%=6
 1360IFl%=TRUE AND m%=2:n%=2
 1370x%=x%+n%
 1380x%-=1
 1390x%=x%MOD7
 1400RESTORE+1
 1410DATASun,Mon,Tue,Wed,Thu,Fri,Sat,Sun
 1420FORLA%=0TOx%:READwd$:NEXT
 1430=wd$
 1440DEFFNleap(y%)
 1450IFy%MOD4=0AND(y%MOD100<>0ORy%MOD400=0):=TRUE
 1460=FALSE
 1470DEFPROCud(i%,d%,u%,cl%,min%,max%):LOCALv%,dir%
 1480IFbut%=1:dir%=-1ELSEdir%=1
 1490IFi%<>8:v%=VAL(FNread(set%,i%))ELSEv%=winm%
 1500IFcl%=d%:v%-=dir%
 1510IFcl%=u%:v%+=dir%
 1520IFv%<min%:v%=max%
 1530IFv%>max%:v%=min%
 1540CASEi%OF
 1550WHEN4,5:PROCtj(set%,i%,FNtime(v%))
 1560WHEN7:PROCtj(set%,i%,FNday(v%))
 1570WHEN8:PROCtj(set%,i%,FNmonth(v%)):winm%=v%
 1580WHEN9:PROCtj(set%,i%,STR$(v%))
 1590ENDCASE
 1600IF(i%=8ORi%=9)ANDVAL(FNread(set%,7))>FNmonmax(winm%):PROCtj(set%,7,FNday(FNmonmax(winm%)))
 1610IFi%>6ANDi%<10:PROCtj(set%,6,FNweekday(VAL(FNread(set%,7)),winm%,VAL(FNread(set%,9))))
 1620ENDPROC
 1630DEFFNmonmax(m%):LOCALLA%,n%
 1640RESTORE+1
 1650DATA0,31,28,31,30,31,30,31,31,30,31,30,31
 1660FORLA%=0TOm%:READn%:NEXT
 1670IFwinm%=2ANDFNleap(VAL(FNread(set%,9))):n%=29
 1680=n%
 1690DEFPROCdoset(but%):LOCALLA%
 1700hr%=FNreadv(set%,4):IFhr%<0ORhr%>23:hr%=0
 1710mi%=FNreadv(set%,5):IFmi%<0ORmi%>59:mi%=0
 1720d%=FNreadv(set%,7):m%=winm%
 1730y%=FNreadv(set%,9):IFy%<1ORy%>9999:y%=1997
 1740des$=FNread(set%,21)
 1750f%=1:FORLA%=1TO5:IFFNseld(set%,23+LA%):f%=LA%
 1760NEXTLA%
 1770IFFNseld(set%,32):cd%=-1ELSEcd%=1
 1780PROCinitcount
 1790IFbut%<>1:!b%=set%:SYS262342,,b%
 1800ENDPROC
 1810DEFPROCinitcount
 1820lt%=0
 1830CASEf%OF
 1840WHEN1:wt%=25
 1850WHEN2:wt%=200
 1860WHEN3,4,5:wt%=6000
 1870ENDCASE
 1880cd$=STR$(cd%)
 1890PROCtj(w%,0,des$)
 1900z$=FNcal:PROCtj(w%,2,z$)
 1910ENDPROC
 1920DEFFNcal:LOCALtt%
 1930IFTIME<lt%ORlt%=0ORf%>2THEN
 1940PROCcal2
 1950ELSE
 1960tt%=(TIME-lt%)DIV100
 1970IFtt%>=1:ss%=ss%-tt%:lt%+=tt%*100
 1980ENDIF
 1990=FNcal3
 2000DEFPROCcal2:LOCALS$,S2$
 2010lt%=TIME
 2020b%?0=3:SYS7,14,b%
 2030y2%=FNcvdttm("%ce%zyr")
 2040m2%=FNcvdttm("%mn")
 2050d2%=FNcvdttm("%dy")
 2060hr2%=FNcvdttm("%24")
 2070mi2%=FNcvdttm("%mi")
 2080se2%=FNcvdttm("%se")
 2090td%=0
 2100IFy%>y2%THEN
 2110FORLA%=y2%TOy%-1:IFFNleap(LA%):td%+=366ELSEtd%+=365
 2120NEXTLA%
 2130ENDIF
 2140IFy%<y2%THEN
 2150FORLA%=y%TOy2%-1:IFFNleap(LA%):td%+=366ELSEtd%+=365
 2160NEXTLA%
 2170td%=-td%
 2180ENDIF
 2190td2%=FNdaysin(y%,m%,d%)
 2200td3%=FNdaysin(y2%,m2%,d2%)
 2210td2%=td2%-td3%
 2220td%=td%+td2%
 2230ss%=hr%*3600+mi%*60
 2240ss%-=hr2%*3600+mi2%*60+se2%
 2250ENDPROC
 2260DEFFNcal3
 2270CASEf%OF
 2280WHEN1:S$="td%*86400+ss%"
 2290WHEN2:IFss%>=0:S$="td%*1440+(ss%+59)DIV60"ELSES$="td%*1440+ss%DIV60"
 2300WHEN3:IFss%>=0:S$="td%*24+(ss%+3599)DIV3600"ELSES$="td%*24+ss%DIV3600"
 2310WHEN4,5:IFss%>=0:S$="td%+(ss%+86399)DIV86400"ELSES$="td%+ss%DIV86400"
 2320IFf%=5THEN
 2330f2%=EVALS$
 2340IFf2%>=0:S$="(f2%*4+1460)DIV1461"ELSES$="(f2%*4)DIV1461"
 2350ENDIF
 2360ENDCASE
 2370S2$=STR$(EVALS$)
 2380=STR$(EVAL(STR$(cd%)+"*"+S2$))
 2390DEFFNcvdttm($ts%)
 2400$ts%+=CHR$0
 2410SYS193,b%,b%+128,64,ts%TO,en%:?en%=13
 2420=VAL($(b%+128))
 2430DEFFNdaysin(y%,m%,d%):LOCALtd%,LA%,x%
 2440td%=0
 2450RESTORE+1
 2460DATA0,31,28,31,30,31,30,31,31,30,31,30,31
 2470FORLA%=1TOm%:READx%:td%+=x%:NEXT
 2480IFFNleap(y%)=TRUE AND m%>=3:td%+=1
 2490td%+=d%
 2500=td%


�"ERROR "+�$:�
ie%=746
'�b%1784,i%ie%,name%12,men%124,ts%32
((q%=�:@%="+G99.99":z$="":z2$="":lt%=0
22FI%=�"<Counter$Dir>.Sprites":sz%=�#FI%+4:�#FI%
<�sp%sz%
F!sp%=sz%:sp%!8=16
P)ș46,&10A,sp%,"<Counter$Dir>.Sprites"
Z	�load
d$ș262336,200,&4B534154,"Counter"
n'ș262361,,"<Counter$Dir>.Templates"
xS$name%="info":ș262363,,b%,i%,i%+ie%,-1,name%,0�,,ni%,,,,ne%:ș262337,,b%�info%
�*w%=�ltmp("Window"):set%=�ltmp("Setup")
�ș262362
��initcount
�[!b%=w%:ș262347,,b%:b%!28=-1:b%!4=wx%:b%!8=wy%:b%!12=wx%+346:b%!16=wy%+212:ș262341,,b%
��cm
�	��er
�	ȕ�q%
�ș66�a%:a%+=wt%
�ș262369,&1830,b%,a%�r%
�	Ȏr%�
�+�0:z2$=z$:z$=�cal:�z$<>z2$:�tj(w%,2,z$)
��2:ș262341,,b%
� �3:ș262342,,b%:�!b%=w%:q%=�
�6:�cl(b%!12,b%!16,b%!8)
�8:�key(!b%,b%!4,b%!24)
�9:�ms(!b%)
"�17,18:�rm
,�
6�
@ș262365
J�
T��rm
^Ȏb%!16�
h�0:q%=�
r�&400C1:lt%=0
|�
��
�6��er:!b%=�:$(b%+4)=�$+�0:ș262367,b%,1,"Counter":�
�ݤltmp(tname$)
�a$name%=tname$:ș262363,,b%,ni%,i%+ie%,-1,name%,ne%�,,ni%,,,,ne%:b%!64=sp%:ș262337,,b%�thand%
�=thand%
�;��openw(w%):!b%=w%:ș262347,,b%:b%!28=-1:ș262341,,b%:�
�X��load:FI%=�"<Counter$Dir>.Setup":�#FI%,wx%,wy%,d%,m%,y%,hr%,mi%,f%,cd%,des$:�#FI%:�
�X��save:FI%=�"<Counter$Dir>.Setup":�#FI%,wx%,wy%,d%,m%,y%,hr%,mi%,f%,cd%,des$:�#FI%:�
���cm
�C$men%="Counter":men%!12=&70207:men%!16=192:men%!20=44:men%!24=0
�>men%!28=0:men%!32=info%:men%!36=&7000021:$(men%+40)="Info"
�?men%!52=0:men%!56=-1:men%!60=&7000021:$(men%+64)="Setup..."
�Bmen%!76=0:men%!80=-1:men%!84=&7000021:$(men%+88)="Save status"
Amen%!100=&80:men%!104=-1:men%!108=&7000021:$(men%+112)="Quit"
�
��ms(ms0%):�but%,op%
&ș262351,,b%:but%=b%!8
0Ȏms0%�
:$�1:op%=�open(set%):�op%:�setwin
D%�openw(set%):�op%:�caret(set%,4)
N2�2:!b%=w%:ș262347,,b%:wx%=b%!4:wy%=b%!8:�save
X�3:q%=�
b�
l�but%=1:ș262356,,men%,0,0
v�
���cl(win%,i%,but%)
�Ȏwin%�
�*�w%:�but%=2:ș262356,,men%,!b%-64,b%!4
��set%:Ȏi%�
��10,11:�ud(4,10,11,i%,0,23)
��12,13:�ud(5,12,13,i%,0,59)
�+�14,15:�ud(7,14,15,i%,1,�monmax(winm%))
��16,17:�ud(8,16,17,i%,1,12)
�!�18,19:�ud(9,18,19,i%,1,9999)
�?�24,25,26,27,28,31,32:�but%=1���seld(set%,i%):�sel(set%,i%)
��33:!b%=set%:ș262342,,b%
��34:�doset(but%)
��
�
�
��key(win%,i%,k%)
 Ȏwin%�
*	�set%
4	Ȏi%�
>h�9:�(k%>=48� k%<=57)�k%=8�k%=127:�tj(set%,6,�weekday(�(�read(set%,7)),winm%,�(�read(set%,9))))��key2
H@:�k%=13:�sel(set%,34):�doset(4):�desel(set%,34)�ș262364,k%
R�
\:ș262364,k%
f�
p�
z��key2:�fg%,ky%:fg%=�
��+1
�@�&18A,&19A,&18E,&18F,&18C,&19C,&1AC,&1BC,&18D,&19D,&1AD,&1BD
� �LA%=1�12:�ky%:�k%=ky%:fg%=�
��
��fg%:ș262364,k%
��
�H��ti(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș262350,,b%:$(b%!28)=TX$:�
�x��tj(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș262350,,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș262349,,b%:�
�Aݤread(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:=$(b%!28)
�Eݤreadv(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:=�($(b%!28))
�O��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș262349,,b%:�
�M��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș262349,,b%:�
�7ݤseld(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%
�(b%!24)�(1<<21):=1�=0
��caret(win%,icon%):�LA%
;LA%=�(�read(win%,icon%)):ș262354,win%,icon%,,,-1,LA%:�
$8ݤopen(win%):!b%=win%:ș262347,,b%:�b%!32�(1<<16):=�
.=�
8��setwin:�LA%
B��ti(set%,4,�time(hr%)):�ti(set%,5,�time(mi%)):�ti(set%,6,�weekday(d%,m%,y%)):�ti(set%,7,�day(d%)):�ti(set%,8,�month(m%)):�ti(set%,9,�(y%)):winm%=m%
L�ti(set%,21,des$)
V9�LA%=24�28:�f%=LA%-23:�sel(set%,LA%)��desel(set%,LA%)
`�LA%
jF�cd%=1:�sel(set%,31):�desel(set%,32)��sel(set%,32):�desel(set%,31)
t�
~ ݤtime(t%):�t%<10:="0"+�(t%)
�
=�(t%)
�
ݤday(d%)
�!�d%=1�d%=21�d%=31:=�(d%)+"st"
��d%=2�d%=22:=�(d%)+"nd"
��d%=3�f%=23:=�(d%)+"rd"
�=�(d%)+"th"
�ݤmonth(m%):�LA%,m$
��+1
�Z�January,February,March,April,May,June,July,August,September,October,November,December
��LA%=1�m%:�m$:�LA%
�=m$
�&ݤweekday(d%,m%,y%):�x%,l%,wd$,LA%
x%=y%+y%�4

x%=x%-y%�100
x%=x%+y%�400
x%=x%+d%
(�+1:�LA%=1�m%:�n%:�
2�0,3,3,6,1,4,6,2,5,0,3,5
<l%=�leap(y%)
F�l%=� � m%=1:n%=6
P�l%=� � m%=2:n%=2
Zx%=x%+n%
d	x%-=1
nx%=x%�7
x�+1
�$�Sun,Mon,Tue,Wed,Thu,Fri,Sat,Sun
��LA%=0�x%:�wd$:�
�=wd$
�ݤleap(y%)
�#�y%�4=0�(y%�100<>0�y%�400=0):=�
�=�
�)��ud(i%,d%,u%,cl%,min%,max%):�v%,dir%
��but%=1:dir%=-1�dir%=1
�(�i%<>8:v%=�(�read(set%,i%))�v%=winm%
��cl%=d%:v%-=dir%
��cl%=u%:v%+=dir%
��v%<min%:v%=max%
��v%>max%:v%=min%
	Ȏi%�
�4,5:�tj(set%,i%,�time(v%))
�7:�tj(set%,i%,�day(v%))
"'�8:�tj(set%,i%,�month(v%)):winm%=v%
,�9:�tj(set%,i%,�(v%))
6�
@Q�(i%=8�i%=9)��(�read(set%,7))>�monmax(winm%):�tj(set%,7,�day(�monmax(winm%)))
JM�i%>6�i%<10:�tj(set%,6,�weekday(�(�read(set%,7)),winm%,�(�read(set%,9))))
T�
^ݤmonmax(m%):�LA%,n%
h�+1
r*�0,31,28,31,30,31,30,31,31,30,31,30,31
|�LA%=0�m%:�n%:�
�*�winm%=2��leap(�(�read(set%,9))):n%=29
�=n%
���doset(but%):�LA%
�*hr%=�readv(set%,4):�hr%<0�hr%>23:hr%=0
�*mi%=�readv(set%,5):�mi%<0�mi%>59:mi%=0
�d%=�readv(set%,7):m%=winm%
�+y%=�readv(set%,9):�y%<1�y%>9999:y%=1997
�des$=�read(set%,21)
�,f%=1:�LA%=1�5:�seld(set%,23+LA%):f%=LA%
��LA%
� �seld(set%,32):cd%=-1�cd%=1
��initcount
�"�but%<>1:!b%=set%:ș262342,,b%
�
��initcount
	lt%=0
&	Ȏf%�
0
�1:wt%=25
:�2:wt%=200
D�3,4,5:wt%=6000
N�
Xcd$=�(cd%)
b�tj(w%,0,des$)
lz$=�cal:�tj(w%,2,z$)
v�
�ݤcal:�tt%
��<lt%�lt%=0�f%>2�
�	�cal2
��
�tt%=(�-lt%)�100
�$�tt%>=1:ss%=ss%-tt%:lt%+=tt%*100
��
�
=�cal3
���cal2:�S$,S2$
�	lt%=�
�b%?0=3:ș7,14,b%
�y2%=�cvdttm("%ce%zyr")
�m2%=�cvdttm("%mn")
d2%=�cvdttm("%dy")
hr2%=�cvdttm("%24")
mi2%=�cvdttm("%mi")
 se2%=�cvdttm("%se")
*	td%=0
4�y%>y2%�
>/�LA%=y2%�y%-1:�leap(LA%):td%+=366�td%+=365
H�LA%
R�
\�y%<y2%�
f/�LA%=y%�y2%-1:�leap(LA%):td%+=366�td%+=365
p�LA%
ztd%=-td%
��
�td2%=�daysin(y%,m%,d%)
�td3%=�daysin(y2%,m2%,d2%)
�td2%=td2%-td3%
�td%=td%+td2%
�ss%=hr%*3600+mi%*60
�ss%-=hr2%*3600+mi2%*60+se2%
��
�
ݤcal3
�	Ȏf%�
��1:S$="td%*86400+ss%"
�A�2:�ss%>=0:S$="td%*1440+(ss%+59)DIV60"�S$="td%*1440+ss%DIV60"
�C�3:�ss%>=0:S$="td%*24+(ss%+3599)DIV3600"�S$="td%*24+ss%DIV3600"
	B�4,5:�ss%>=0:S$="td%+(ss%+86399)DIV86400"�S$="td%+ss%DIV86400"
	
�f%=5�
	f2%=�S$
	$8�f2%>=0:S$="(f2%*4+1460)DIV1461"�S$="(f2%*4)DIV1461"
	.�
	8�
	BS2$=�(�S$)
	L=�(�(�(cd%)+"*"+S2$))
	Vݤcvdttm($ts%)
	`$ts%+=�0
	j'ș193,b%,b%+128,64,ts%�,en%:?en%=13
	t=�($(b%+128))
	~"ݤdaysin(y%,m%,d%):�td%,LA%,x%
	�	td%=0
	��+1
	�*�0,31,28,31,30,31,30,31,31,30,31,30,31
	��LA%=1�m%:�x%:td%+=x%:�
	��leap(y%)=� � m%>=3:td%+=1
	�td%+=d%
	�=td%
�
00000000  0d 00 0a 14 ee 85 ff 22  45 52 52 4f 52 20 22 2b  |......."ERROR "+|
00000010  f6 24 3a e0 0d 00 14 0b  69 65 25 3d 37 34 36 0d  |.$:.....ie%=746.|
00000020  00 1e 27 de 62 25 31 37  38 34 2c 69 25 69 65 25  |..'.b%1784,i%ie%|
00000030  2c 6e 61 6d 65 25 31 32  2c 6d 65 6e 25 31 32 34  |,name%12,men%124|
00000040  2c 74 73 25 33 32 0d 00  28 28 71 25 3d a3 3a 40  |,ts%32..((q%=.:@|
00000050  25 3d 22 2b 47 39 39 2e  39 39 22 3a 7a 24 3d 22  |%="+G99.99":z$="|
00000060  22 3a 7a 32 24 3d 22 22  3a 6c 74 25 3d 30 0d 00  |":z2$="":lt%=0..|
00000070  32 32 46 49 25 3d 8e 22  3c 43 6f 75 6e 74 65 72  |22FI%=."<Counter|
00000080  24 44 69 72 3e 2e 53 70  72 69 74 65 73 22 3a 73  |$Dir>.Sprites":s|
00000090  7a 25 3d a2 23 46 49 25  2b 34 3a d9 23 46 49 25  |z%=.#FI%+4:.#FI%|
000000a0  0d 00 3c 0b de 73 70 25  73 7a 25 0d 00 46 15 21  |..<..sp%sz%..F.!|
000000b0  73 70 25 3d 73 7a 25 3a  73 70 25 21 38 3d 31 36  |sp%=sz%:sp%!8=16|
000000c0  0d 00 50 29 c8 99 34 36  2c 26 31 30 41 2c 73 70  |..P)..46,&10A,sp|
000000d0  25 2c 22 3c 43 6f 75 6e  74 65 72 24 44 69 72 3e  |%,"<Counter$Dir>|
000000e0  2e 53 70 72 69 74 65 73  22 0d 00 5a 09 f2 6c 6f  |.Sprites"..Z..lo|
000000f0  61 64 0d 00 64 24 c8 99  32 36 32 33 33 36 2c 32  |ad..d$..262336,2|
00000100  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 43 6f  |00,&4B534154,"Co|
00000110  75 6e 74 65 72 22 0d 00  6e 27 c8 99 32 36 32 33  |unter"..n'..2623|
00000120  36 31 2c 2c 22 3c 43 6f  75 6e 74 65 72 24 44 69  |61,,"<Counter$Di|
00000130  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 00 78  |r>.Templates"..x|
00000140  53 24 6e 61 6d 65 25 3d  22 69 6e 66 6f 22 3a c8  |S$name%="info":.|
00000150  99 32 36 32 33 36 33 2c  2c 62 25 2c 69 25 2c 69  |.262363,,b%,i%,i|
00000160  25 2b 69 65 25 2c 2d 31  2c 6e 61 6d 65 25 2c 30  |%+ie%,-1,name%,0|
00000170  b8 2c 2c 6e 69 25 2c 2c  2c 2c 6e 65 25 3a c8 99  |.,,ni%,,,,ne%:..|
00000180  32 36 32 33 33 37 2c 2c  62 25 b8 69 6e 66 6f 25  |262337,,b%.info%|
00000190  0d 00 82 2a 77 25 3d a4  6c 74 6d 70 28 22 57 69  |...*w%=.ltmp("Wi|
000001a0  6e 64 6f 77 22 29 3a 73  65 74 25 3d a4 6c 74 6d  |ndow"):set%=.ltm|
000001b0  70 28 22 53 65 74 75 70  22 29 0d 00 8c 0c c8 99  |p("Setup")......|
000001c0  32 36 32 33 36 32 0d 00  96 0e f2 69 6e 69 74 63  |262362.....initc|
000001d0  6f 75 6e 74 0d 00 a0 5b  21 62 25 3d 77 25 3a c8  |ount...[!b%=w%:.|
000001e0  99 32 36 32 33 34 37 2c  2c 62 25 3a 62 25 21 32  |.262347,,b%:b%!2|
000001f0  38 3d 2d 31 3a 62 25 21  34 3d 77 78 25 3a 62 25  |8=-1:b%!4=wx%:b%|
00000200  21 38 3d 77 79 25 3a 62  25 21 31 32 3d 77 78 25  |!8=wy%:b%!12=wx%|
00000210  2b 33 34 36 3a 62 25 21  31 36 3d 77 79 25 2b 32  |+346:b%!16=wy%+2|
00000220  31 32 3a c8 99 32 36 32  33 34 31 2c 2c 62 25 0d  |12:..262341,,b%.|
00000230  00 aa 07 f2 63 6d 0d 00  b4 09 ee 85 f2 65 72 0d  |....cm.......er.|
00000240  00 be 09 c8 95 ac 71 25  0d 00 c8 13 c8 99 36 36  |......q%......66|
00000250  b8 61 25 3a 61 25 2b 3d  77 74 25 0d 00 d2 1b c8  |.a%:a%+=wt%.....|
00000260  99 32 36 32 33 36 39 2c  26 31 38 33 30 2c 62 25  |.262369,&1830,b%|
00000270  2c 61 25 b8 72 25 0d 00  dc 09 c8 8e 72 25 ca 0d  |,a%.r%......r%..|
00000280  00 e6 2b c9 30 3a 7a 32  24 3d 7a 24 3a 7a 24 3d  |..+.0:z2$=z$:z$=|
00000290  a4 63 61 6c 3a e7 7a 24  3c 3e 7a 32 24 3a f2 74  |.cal:.z$<>z2$:.t|
000002a0  6a 28 77 25 2c 32 2c 7a  24 29 0d 00 f0 13 c9 32  |j(w%,2,z$).....2|
000002b0  3a c8 99 32 36 32 33 34  31 2c 2c 62 25 0d 00 fa  |:..262341,,b%...|
000002c0  20 c9 33 3a c8 99 32 36  32 33 34 32 2c 2c 62 25  | .3:..262342,,b%|
000002d0  3a e7 21 62 25 3d 77 25  3a 71 25 3d b9 0d 01 04  |:.!b%=w%:q%=....|
000002e0  1c c9 36 3a f2 63 6c 28  62 25 21 31 32 2c 62 25  |..6:.cl(b%!12,b%|
000002f0  21 31 36 2c 62 25 21 38  29 0d 01 0e 1b c9 38 3a  |!16,b%!8).....8:|
00000300  f2 6b 65 79 28 21 62 25  2c 62 25 21 34 2c 62 25  |.key(!b%,b%!4,b%|
00000310  21 32 34 29 0d 01 18 0f  c9 39 3a f2 6d 73 28 21  |!24).....9:.ms(!|
00000320  62 25 29 0d 01 22 0e c9  31 37 2c 31 38 3a f2 72  |b%).."..17,18:.r|
00000330  6d 0d 01 2c 05 cb 0d 01  36 05 ce 0d 01 40 0c c8  |m..,....6....@..|
00000340  99 32 36 32 33 36 35 0d  01 4a 05 e0 0d 01 54 08  |.262365..J....T.|
00000350  dd f2 72 6d 0d 01 5e 0c  c8 8e 62 25 21 31 36 ca  |..rm..^...b%!16.|
00000360  0d 01 68 0b c9 30 3a 71  25 3d b9 0d 01 72 11 c9  |..h..0:q%=...r..|
00000370  26 34 30 30 43 31 3a 6c  74 25 3d 30 0d 01 7c 05  |&400C1:lt%=0..|.|
00000380  cb 0d 01 86 05 e1 0d 01  90 36 dd f2 65 72 3a 21  |.........6..er:!|
00000390  62 25 3d 9f 3a 24 28 62  25 2b 34 29 3d f6 24 2b  |b%=.:$(b%+4)=.$+|
000003a0  bd 30 3a c8 99 32 36 32  33 36 37 2c 62 25 2c 31  |.0:..262367,b%,1|
000003b0  2c 22 43 6f 75 6e 74 65  72 22 3a e1 0d 01 9a 12  |,"Counter":.....|
000003c0  dd a4 6c 74 6d 70 28 74  6e 61 6d 65 24 29 0d 01  |..ltmp(tname$)..|
000003d0  a4 61 24 6e 61 6d 65 25  3d 74 6e 61 6d 65 24 3a  |.a$name%=tname$:|
000003e0  c8 99 32 36 32 33 36 33  2c 2c 62 25 2c 6e 69 25  |..262363,,b%,ni%|
000003f0  2c 69 25 2b 69 65 25 2c  2d 31 2c 6e 61 6d 65 25  |,i%+ie%,-1,name%|
00000400  2c 6e 65 25 b8 2c 2c 6e  69 25 2c 2c 2c 2c 6e 65  |,ne%.,,ni%,,,,ne|
00000410  25 3a 62 25 21 36 34 3d  73 70 25 3a c8 99 32 36  |%:b%!64=sp%:..26|
00000420  32 33 33 37 2c 2c 62 25  b8 74 68 61 6e 64 25 0d  |2337,,b%.thand%.|
00000430  01 ae 0b 3d 74 68 61 6e  64 25 0d 01 b8 3b dd f2  |...=thand%...;..|
00000440  6f 70 65 6e 77 28 77 25  29 3a 21 62 25 3d 77 25  |openw(w%):!b%=w%|
00000450  3a c8 99 32 36 32 33 34  37 2c 2c 62 25 3a 62 25  |:..262347,,b%:b%|
00000460  21 32 38 3d 2d 31 3a c8  99 32 36 32 33 34 31 2c  |!28=-1:..262341,|
00000470  2c 62 25 3a e1 0d 01 c2  58 dd f2 6c 6f 61 64 3a  |,b%:....X..load:|
00000480  46 49 25 3d 8e 22 3c 43  6f 75 6e 74 65 72 24 44  |FI%=."<Counter$D|
00000490  69 72 3e 2e 53 65 74 75  70 22 3a e8 23 46 49 25  |ir>.Setup":.#FI%|
000004a0  2c 77 78 25 2c 77 79 25  2c 64 25 2c 6d 25 2c 79  |,wx%,wy%,d%,m%,y|
000004b0  25 2c 68 72 25 2c 6d 69  25 2c 66 25 2c 63 64 25  |%,hr%,mi%,f%,cd%|
000004c0  2c 64 65 73 24 3a d9 23  46 49 25 3a e1 0d 01 cc  |,des$:.#FI%:....|
000004d0  58 dd f2 73 61 76 65 3a  46 49 25 3d ae 22 3c 43  |X..save:FI%=."<C|
000004e0  6f 75 6e 74 65 72 24 44  69 72 3e 2e 53 65 74 75  |ounter$Dir>.Setu|
000004f0  70 22 3a f1 23 46 49 25  2c 77 78 25 2c 77 79 25  |p":.#FI%,wx%,wy%|
00000500  2c 64 25 2c 6d 25 2c 79  25 2c 68 72 25 2c 6d 69  |,d%,m%,y%,hr%,mi|
00000510  25 2c 66 25 2c 63 64 25  2c 64 65 73 24 3a d9 23  |%,f%,cd%,des$:.#|
00000520  46 49 25 3a e1 0d 01 d6  08 dd f2 63 6d 0d 01 e0  |FI%:.......cm...|
00000530  43 24 6d 65 6e 25 3d 22  43 6f 75 6e 74 65 72 22  |C$men%="Counter"|
00000540  3a 6d 65 6e 25 21 31 32  3d 26 37 30 32 30 37 3a  |:men%!12=&70207:|
00000550  6d 65 6e 25 21 31 36 3d  31 39 32 3a 6d 65 6e 25  |men%!16=192:men%|
00000560  21 32 30 3d 34 34 3a 6d  65 6e 25 21 32 34 3d 30  |!20=44:men%!24=0|
00000570  0d 01 ea 3e 6d 65 6e 25  21 32 38 3d 30 3a 6d 65  |...>men%!28=0:me|
00000580  6e 25 21 33 32 3d 69 6e  66 6f 25 3a 6d 65 6e 25  |n%!32=info%:men%|
00000590  21 33 36 3d 26 37 30 30  30 30 32 31 3a 24 28 6d  |!36=&7000021:$(m|
000005a0  65 6e 25 2b 34 30 29 3d  22 49 6e 66 6f 22 0d 01  |en%+40)="Info"..|
000005b0  f4 3f 6d 65 6e 25 21 35  32 3d 30 3a 6d 65 6e 25  |.?men%!52=0:men%|
000005c0  21 35 36 3d 2d 31 3a 6d  65 6e 25 21 36 30 3d 26  |!56=-1:men%!60=&|
000005d0  37 30 30 30 30 32 31 3a  24 28 6d 65 6e 25 2b 36  |7000021:$(men%+6|
000005e0  34 29 3d 22 53 65 74 75  70 2e 2e 2e 22 0d 01 fe  |4)="Setup..."...|
000005f0  42 6d 65 6e 25 21 37 36  3d 30 3a 6d 65 6e 25 21  |Bmen%!76=0:men%!|
00000600  38 30 3d 2d 31 3a 6d 65  6e 25 21 38 34 3d 26 37  |80=-1:men%!84=&7|
00000610  30 30 30 30 32 31 3a 24  28 6d 65 6e 25 2b 38 38  |000021:$(men%+88|
00000620  29 3d 22 53 61 76 65 20  73 74 61 74 75 73 22 0d  |)="Save status".|
00000630  02 08 41 6d 65 6e 25 21  31 30 30 3d 26 38 30 3a  |..Amen%!100=&80:|
00000640  6d 65 6e 25 21 31 30 34  3d 2d 31 3a 6d 65 6e 25  |men%!104=-1:men%|
00000650  21 31 30 38 3d 26 37 30  30 30 30 32 31 3a 24 28  |!108=&7000021:$(|
00000660  6d 65 6e 25 2b 31 31 32  29 3d 22 51 75 69 74 22  |men%+112)="Quit"|
00000670  0d 02 12 05 e1 0d 02 1c  18 dd f2 6d 73 28 6d 73  |...........ms(ms|
00000680  30 25 29 3a ea 62 75 74  25 2c 6f 70 25 0d 02 26  |0%):.but%,op%..&|
00000690  1a c8 99 32 36 32 33 35  31 2c 2c 62 25 3a 62 75  |...262351,,b%:bu|
000006a0  74 25 3d 62 25 21 38 0d  02 30 0b c8 8e 6d 73 30  |t%=b%!8..0...ms0|
000006b0  25 ca 0d 02 3a 24 c9 31  3a 6f 70 25 3d a4 6f 70  |%...:$.1:op%=.op|
000006c0  65 6e 28 73 65 74 25 29  3a e7 ac 6f 70 25 3a f2  |en(set%):..op%:.|
000006d0  73 65 74 77 69 6e 0d 02  44 25 f2 6f 70 65 6e 77  |setwin..D%.openw|
000006e0  28 73 65 74 25 29 3a e7  ac 6f 70 25 3a f2 63 61  |(set%):..op%:.ca|
000006f0  72 65 74 28 73 65 74 25  2c 34 29 0d 02 4e 32 c9  |ret(set%,4)..N2.|
00000700  32 3a 21 62 25 3d 77 25  3a c8 99 32 36 32 33 34  |2:!b%=w%:..26234|
00000710  37 2c 2c 62 25 3a 77 78  25 3d 62 25 21 34 3a 77  |7,,b%:wx%=b%!4:w|
00000720  79 25 3d 62 25 21 38 3a  f2 73 61 76 65 0d 02 58  |y%=b%!8:.save..X|
00000730  0b c9 33 3a 71 25 3d b9  0d 02 62 05 cb 0d 02 6c  |..3:q%=...b....l|
00000740  1e e7 62 75 74 25 3d 31  3a c8 99 32 36 32 33 35  |..but%=1:..26235|
00000750  36 2c 2c 6d 65 6e 25 2c  30 2c 30 0d 02 76 05 e1  |6,,men%,0,0..v..|
00000760  0d 02 80 16 dd f2 63 6c  28 77 69 6e 25 2c 69 25  |......cl(win%,i%|
00000770  2c 62 75 74 25 29 0d 02  8a 0b c8 8e 77 69 6e 25  |,but%)......win%|
00000780  ca 0d 02 94 2a c9 77 25  3a e7 62 75 74 25 3d 32  |....*.w%:.but%=2|
00000790  3a c8 99 32 36 32 33 35  36 2c 2c 6d 65 6e 25 2c  |:..262356,,men%,|
000007a0  21 62 25 2d 36 34 2c 62  25 21 34 0d 02 9e 0f c9  |!b%-64,b%!4.....|
000007b0  73 65 74 25 3a c8 8e 69  25 ca 0d 02 a8 1f c9 31  |set%:..i%......1|
000007c0  30 2c 31 31 3a f2 75 64  28 34 2c 31 30 2c 31 31  |0,11:.ud(4,10,11|
000007d0  2c 69 25 2c 30 2c 32 33  29 0d 02 b2 1f c9 31 32  |,i%,0,23).....12|
000007e0  2c 31 33 3a f2 75 64 28  35 2c 31 32 2c 31 33 2c  |,13:.ud(5,12,13,|
000007f0  69 25 2c 30 2c 35 39 29  0d 02 bc 2b c9 31 34 2c  |i%,0,59)...+.14,|
00000800  31 35 3a f2 75 64 28 37  2c 31 34 2c 31 35 2c 69  |15:.ud(7,14,15,i|
00000810  25 2c 31 2c a4 6d 6f 6e  6d 61 78 28 77 69 6e 6d  |%,1,.monmax(winm|
00000820  25 29 29 0d 02 c6 1f c9  31 36 2c 31 37 3a f2 75  |%)).....16,17:.u|
00000830  64 28 38 2c 31 36 2c 31  37 2c 69 25 2c 31 2c 31  |d(8,16,17,i%,1,1|
00000840  32 29 0d 02 d0 21 c9 31  38 2c 31 39 3a f2 75 64  |2)...!.18,19:.ud|
00000850  28 39 2c 31 38 2c 31 39  2c 69 25 2c 31 2c 39 39  |(9,18,19,i%,1,99|
00000860  39 39 29 0d 02 da 3f c9  32 34 2c 32 35 2c 32 36  |99)...?.24,25,26|
00000870  2c 32 37 2c 32 38 2c 33  31 2c 33 32 3a e7 62 75  |,27,28,31,32:.bu|
00000880  74 25 3d 31 80 ac a4 73  65 6c 64 28 73 65 74 25  |t%=1...seld(set%|
00000890  2c 69 25 29 3a f2 73 65  6c 28 73 65 74 25 2c 69  |,i%):.sel(set%,i|
000008a0  25 29 0d 02 e4 1d c9 33  33 3a 21 62 25 3d 73 65  |%).....33:!b%=se|
000008b0  74 25 3a c8 99 32 36 32  33 34 32 2c 2c 62 25 0d  |t%:..262342,,b%.|
000008c0  02 ee 14 c9 33 34 3a f2  64 6f 73 65 74 28 62 75  |....34:.doset(bu|
000008d0  74 25 29 0d 02 f8 05 cb  0d 03 02 05 cb 0d 03 0c  |t%).............|
000008e0  05 e1 0d 03 16 15 dd f2  6b 65 79 28 77 69 6e 25  |........key(win%|
000008f0  2c 69 25 2c 6b 25 29 0d  03 20 0b c8 8e 77 69 6e  |,i%,k%).. ...win|
00000900  25 ca 0d 03 2a 09 c9 73  65 74 25 0d 03 34 09 c8  |%...*..set%..4..|
00000910  8e 69 25 ca 0d 03 3e 68  c9 39 3a e7 28 6b 25 3e  |.i%...>h.9:.(k%>|
00000920  3d 34 38 80 20 6b 25 3c  3d 35 37 29 84 6b 25 3d  |=48. k%<=57).k%=|
00000930  38 84 6b 25 3d 31 32 37  3a f2 74 6a 28 73 65 74  |8.k%=127:.tj(set|
00000940  25 2c 36 2c a4 77 65 65  6b 64 61 79 28 bb 28 a4  |%,6,.weekday(.(.|
00000950  72 65 61 64 28 73 65 74  25 2c 37 29 29 2c 77 69  |read(set%,7)),wi|
00000960  6e 6d 25 2c bb 28 a4 72  65 61 64 28 73 65 74 25  |nm%,.(.read(set%|
00000970  2c 39 29 29 29 29 8b f2  6b 65 79 32 0d 03 48 40  |,9))))..key2..H@|
00000980  7f 3a e7 6b 25 3d 31 33  3a f2 73 65 6c 28 73 65  |.:.k%=13:.sel(se|
00000990  74 25 2c 33 34 29 3a f2  64 6f 73 65 74 28 34 29  |t%,34):.doset(4)|
000009a0  3a f2 64 65 73 65 6c 28  73 65 74 25 2c 33 34 29  |:.desel(set%,34)|
000009b0  8b c8 99 32 36 32 33 36  34 2c 6b 25 0d 03 52 05  |...262364,k%..R.|
000009c0  cb 0d 03 5c 11 7f 3a c8  99 32 36 32 33 36 34 2c  |...\..:..262364,|
000009d0  6b 25 0d 03 66 05 cb 0d  03 70 05 e1 0d 03 7a 19  |k%..f....p....z.|
000009e0  dd f2 6b 65 79 32 3a ea  66 67 25 2c 6b 79 25 3a  |..key2:.fg%,ky%:|
000009f0  66 67 25 3d a3 0d 03 84  07 f7 2b 31 0d 03 8e 40  |fg%=......+1...@|
00000a00  dc 26 31 38 41 2c 26 31  39 41 2c 26 31 38 45 2c  |.&18A,&19A,&18E,|
00000a10  26 31 38 46 2c 26 31 38  43 2c 26 31 39 43 2c 26  |&18F,&18C,&19C,&|
00000a20  31 41 43 2c 26 31 42 43  2c 26 31 38 44 2c 26 31  |1AC,&1BC,&18D,&1|
00000a30  39 44 2c 26 31 41 44 2c  26 31 42 44 0d 03 98 20  |9D,&1AD,&1BD... |
00000a40  e3 4c 41 25 3d 31 b8 31  32 3a f3 6b 79 25 3a e7  |.LA%=1.12:.ky%:.|
00000a50  6b 25 3d 6b 79 25 3a 66  67 25 3d b9 0d 03 a2 05  |k%=ky%:fg%=.....|
00000a60  ed 0d 03 ac 15 e7 ac 66  67 25 3a c8 99 32 36 32  |.......fg%:..262|
00000a70  33 36 34 2c 6b 25 0d 03  b6 05 e1 0d 03 c0 48 dd  |364,k%........H.|
00000a80  f2 74 69 28 77 69 6e 25  2c 69 63 6f 6e 25 2c 54  |.ti(win%,icon%,T|
00000a90  58 24 29 3a 21 62 25 3d  77 69 6e 25 3a 62 25 21  |X$):!b%=win%:b%!|
00000aa0  34 3d 69 63 6f 6e 25 3a  c8 99 32 36 32 33 35 30  |4=icon%:..262350|
00000ab0  2c 2c 62 25 3a 24 28 62  25 21 32 38 29 3d 54 58  |,,b%:$(b%!28)=TX|
00000ac0  24 3a e1 0d 03 ca 78 dd  f2 74 6a 28 77 69 6e 25  |$:....x..tj(win%|
00000ad0  2c 69 63 6f 6e 25 2c 54  58 24 29 3a 21 62 25 3d  |,icon%,TX$):!b%=|
00000ae0  77 69 6e 25 3a 62 25 21  34 3d 69 63 6f 6e 25 3a  |win%:b%!4=icon%:|
00000af0  c8 99 32 36 32 33 35 30  2c 2c 62 25 3a 24 28 62  |..262350,,b%:$(b|
00000b00  25 21 32 38 29 3d 54 58  24 3a 21 62 25 3d 77 69  |%!28)=TX$:!b%=wi|
00000b10  6e 25 3a 62 25 21 34 3d  69 63 6f 6e 25 3a 62 25  |n%:b%!4=icon%:b%|
00000b20  21 38 3d 30 3a 62 25 21  31 32 3d 30 3a c8 99 32  |!8=0:b%!12=0:..2|
00000b30  36 32 33 34 39 2c 2c 62  25 3a e1 0d 03 d4 41 dd  |62349,,b%:....A.|
00000b40  a4 72 65 61 64 28 77 69  6e 25 2c 69 63 6f 6e 25  |.read(win%,icon%|
00000b50  29 3a 21 62 25 3d 77 69  6e 25 3a 62 25 21 34 3d  |):!b%=win%:b%!4=|
00000b60  69 63 6f 6e 25 3a c8 99  32 36 32 33 35 30 2c 2c  |icon%:..262350,,|
00000b70  62 25 3a 3d 24 28 62 25  21 32 38 29 0d 03 de 45  |b%:=$(b%!28)...E|
00000b80  dd a4 72 65 61 64 76 28  77 69 6e 25 2c 69 63 6f  |..readv(win%,ico|
00000b90  6e 25 29 3a 21 62 25 3d  77 69 6e 25 3a 62 25 21  |n%):!b%=win%:b%!|
00000ba0  34 3d 69 63 6f 6e 25 3a  c8 99 32 36 32 33 35 30  |4=icon%:..262350|
00000bb0  2c 2c 62 25 3a 3d bb 28  24 28 62 25 21 32 38 29  |,,b%:=.($(b%!28)|
00000bc0  29 0d 03 e8 4f dd f2 73  65 6c 28 77 69 6e 25 2c  |)...O..sel(win%,|
00000bd0  69 63 6f 6e 25 29 3a 21  62 25 3d 77 69 6e 25 3a  |icon%):!b%=win%:|
00000be0  62 25 21 34 3d 69 63 6f  6e 25 3a 62 25 21 38 3d  |b%!4=icon%:b%!8=|
00000bf0  31 3c 3c 32 31 3a 62 25  21 31 32 3d 31 3c 3c 32  |1<<21:b%!12=1<<2|
00000c00  31 3a c8 99 32 36 32 33  34 39 2c 2c 62 25 3a e1  |1:..262349,,b%:.|
00000c10  0d 03 f2 4d dd f2 64 65  73 65 6c 28 77 69 6e 25  |...M..desel(win%|
00000c20  2c 69 63 6f 6e 25 29 3a  21 62 25 3d 77 69 6e 25  |,icon%):!b%=win%|
00000c30  3a 62 25 21 34 3d 69 63  6f 6e 25 3a 62 25 21 38  |:b%!4=icon%:b%!8|
00000c40  3d 30 3a 62 25 21 31 32  3d 31 3c 3c 32 31 3a c8  |=0:b%!12=1<<21:.|
00000c50  99 32 36 32 33 34 39 2c  2c 62 25 3a e1 0d 03 fc  |.262349,,b%:....|
00000c60  37 dd a4 73 65 6c 64 28  77 69 6e 25 2c 69 63 6f  |7..seld(win%,ico|
00000c70  6e 25 29 3a 21 62 25 3d  77 69 6e 25 3a 62 25 21  |n%):!b%=win%:b%!|
00000c80  34 3d 69 63 6f 6e 25 3a  c8 99 32 36 32 33 35 30  |4=icon%:..262350|
00000c90  2c 2c 62 25 0d 04 06 1a  e7 28 62 25 21 32 34 29  |,,b%.....(b%!24)|
00000ca0  80 28 31 3c 3c 32 31 29  3a 3d 31 8b 3d 30 0d 04  |.(1<<21):=1.=0..|
00000cb0  10 1c dd f2 63 61 72 65  74 28 77 69 6e 25 2c 69  |....caret(win%,i|
00000cc0  63 6f 6e 25 29 3a ea 4c  41 25 0d 04 1a 3b 4c 41  |con%):.LA%...;LA|
00000cd0  25 3d a9 28 a4 72 65 61  64 28 77 69 6e 25 2c 69  |%=.(.read(win%,i|
00000ce0  63 6f 6e 25 29 29 3a c8  99 32 36 32 33 35 34 2c  |con%)):..262354,|
00000cf0  77 69 6e 25 2c 69 63 6f  6e 25 2c 2c 2c 2d 31 2c  |win%,icon%,,,-1,|
00000d00  4c 41 25 3a e1 0d 04 24  38 dd a4 6f 70 65 6e 28  |LA%:...$8..open(|
00000d10  77 69 6e 25 29 3a 21 62  25 3d 77 69 6e 25 3a c8  |win%):!b%=win%:.|
00000d20  99 32 36 32 33 34 37 2c  2c 62 25 3a e7 62 25 21  |.262347,,b%:.b%!|
00000d30  33 32 80 28 31 3c 3c 31  36 29 3a 3d b9 0d 04 2e  |32.(1<<16):=....|
00000d40  06 3d a3 0d 04 38 11 dd  f2 73 65 74 77 69 6e 3a  |.=...8...setwin:|
00000d50  ea 4c 41 25 0d 04 42 97  f2 74 69 28 73 65 74 25  |.LA%..B..ti(set%|
00000d60  2c 34 2c a4 74 69 6d 65  28 68 72 25 29 29 3a f2  |,4,.time(hr%)):.|
00000d70  74 69 28 73 65 74 25 2c  35 2c a4 74 69 6d 65 28  |ti(set%,5,.time(|
00000d80  6d 69 25 29 29 3a f2 74  69 28 73 65 74 25 2c 36  |mi%)):.ti(set%,6|
00000d90  2c a4 77 65 65 6b 64 61  79 28 64 25 2c 6d 25 2c  |,.weekday(d%,m%,|
00000da0  79 25 29 29 3a f2 74 69  28 73 65 74 25 2c 37 2c  |y%)):.ti(set%,7,|
00000db0  a4 64 61 79 28 64 25 29  29 3a f2 74 69 28 73 65  |.day(d%)):.ti(se|
00000dc0  74 25 2c 38 2c a4 6d 6f  6e 74 68 28 6d 25 29 29  |t%,8,.month(m%))|
00000dd0  3a f2 74 69 28 73 65 74  25 2c 39 2c c3 28 79 25  |:.ti(set%,9,.(y%|
00000de0  29 29 3a 77 69 6e 6d 25  3d 6d 25 0d 04 4c 15 f2  |)):winm%=m%..L..|
00000df0  74 69 28 73 65 74 25 2c  32 31 2c 64 65 73 24 29  |ti(set%,21,des$)|
00000e00  0d 04 56 39 e3 4c 41 25  3d 32 34 b8 32 38 3a e7  |..V9.LA%=24.28:.|
00000e10  66 25 3d 4c 41 25 2d 32  33 3a f2 73 65 6c 28 73  |f%=LA%-23:.sel(s|
00000e20  65 74 25 2c 4c 41 25 29  8b f2 64 65 73 65 6c 28  |et%,LA%)..desel(|
00000e30  73 65 74 25 2c 4c 41 25  29 0d 04 60 08 ed 4c 41  |set%,LA%)..`..LA|
00000e40  25 0d 04 6a 46 e7 63 64  25 3d 31 3a f2 73 65 6c  |%..jF.cd%=1:.sel|
00000e50  28 73 65 74 25 2c 33 31  29 3a f2 64 65 73 65 6c  |(set%,31):.desel|
00000e60  28 73 65 74 25 2c 33 32  29 8b f2 73 65 6c 28 73  |(set%,32)..sel(s|
00000e70  65 74 25 2c 33 32 29 3a  f2 64 65 73 65 6c 28 73  |et%,32):.desel(s|
00000e80  65 74 25 2c 33 31 29 0d  04 74 05 e1 0d 04 7e 20  |et%,31)..t....~ |
00000e90  dd a4 74 69 6d 65 28 74  25 29 3a e7 74 25 3c 31  |..time(t%):.t%<1|
00000ea0  30 3a 3d 22 30 22 2b c3  28 74 25 29 0d 04 88 0a  |0:="0"+.(t%)....|
00000eb0  3d c3 28 74 25 29 0d 04  92 0d dd a4 64 61 79 28  |=.(t%)......day(|
00000ec0  64 25 29 0d 04 9c 21 e7  64 25 3d 31 84 64 25 3d  |d%)...!.d%=1.d%=|
00000ed0  32 31 84 64 25 3d 33 31  3a 3d c3 28 64 25 29 2b  |21.d%=31:=.(d%)+|
00000ee0  22 73 74 22 0d 04 a6 1b  e7 64 25 3d 32 84 64 25  |"st".....d%=2.d%|
00000ef0  3d 32 32 3a 3d c3 28 64  25 29 2b 22 6e 64 22 0d  |=22:=.(d%)+"nd".|
00000f00  04 b0 1b e7 64 25 3d 33  84 66 25 3d 32 33 3a 3d  |....d%=3.f%=23:=|
00000f10  c3 28 64 25 29 2b 22 72  64 22 0d 04 ba 0f 3d c3  |.(d%)+"rd"....=.|
00000f20  28 64 25 29 2b 22 74 68  22 0d 04 c4 17 dd a4 6d  |(d%)+"th"......m|
00000f30  6f 6e 74 68 28 6d 25 29  3a ea 4c 41 25 2c 6d 24  |onth(m%):.LA%,m$|
00000f40  0d 04 ce 07 f7 2b 31 0d  04 d8 5a dc 4a 61 6e 75  |.....+1...Z.Janu|
00000f50  61 72 79 2c 46 65 62 72  75 61 72 79 2c 4d 61 72  |ary,February,Mar|
00000f60  63 68 2c 41 70 72 69 6c  2c 4d 61 79 2c 4a 75 6e  |ch,April,May,Jun|
00000f70  65 2c 4a 75 6c 79 2c 41  75 67 75 73 74 2c 53 65  |e,July,August,Se|
00000f80  70 74 65 6d 62 65 72 2c  4f 63 74 6f 62 65 72 2c  |ptember,October,|
00000f90  4e 6f 76 65 6d 62 65 72  2c 44 65 63 65 6d 62 65  |November,Decembe|
00000fa0  72 0d 04 e2 16 e3 4c 41  25 3d 31 b8 6d 25 3a f3  |r.....LA%=1.m%:.|
00000fb0  6d 24 3a ed 4c 41 25 0d  04 ec 07 3d 6d 24 0d 04  |m$:.LA%....=m$..|
00000fc0  f6 26 dd a4 77 65 65 6b  64 61 79 28 64 25 2c 6d  |.&..weekday(d%,m|
00000fd0  25 2c 79 25 29 3a ea 78  25 2c 6c 25 2c 77 64 24  |%,y%):.x%,l%,wd$|
00000fe0  2c 4c 41 25 0d 05 00 0e  78 25 3d 79 25 2b 79 25  |,LA%....x%=y%+y%|
00000ff0  81 34 0d 05 0a 10 78 25  3d 78 25 2d 79 25 81 31  |.4....x%=x%-y%.1|
00001000  30 30 0d 05 14 10 78 25  3d 78 25 2b 79 25 81 34  |00....x%=x%+y%.4|
00001010  30 30 0d 05 1e 0c 78 25  3d 78 25 2b 64 25 0d 05  |00....x%=x%+d%..|
00001020  28 17 f7 2b 31 3a e3 4c  41 25 3d 31 b8 6d 25 3a  |(..+1:.LA%=1.m%:|
00001030  f3 6e 25 3a ed 0d 05 32  1c dc 30 2c 33 2c 33 2c  |.n%:...2..0,3,3,|
00001040  36 2c 31 2c 34 2c 36 2c  32 2c 35 2c 30 2c 33 2c  |6,1,4,6,2,5,0,3,|
00001050  35 0d 05 3c 10 6c 25 3d  a4 6c 65 61 70 28 79 25  |5..<.l%=.leap(y%|
00001060  29 0d 05 46 15 e7 6c 25  3d b9 20 80 20 6d 25 3d  |)..F..l%=. . m%=|
00001070  31 3a 6e 25 3d 36 0d 05  50 15 e7 6c 25 3d b9 20  |1:n%=6..P..l%=. |
00001080  80 20 6d 25 3d 32 3a 6e  25 3d 32 0d 05 5a 0c 78  |. m%=2:n%=2..Z.x|
00001090  25 3d 78 25 2b 6e 25 0d  05 64 09 78 25 2d 3d 31  |%=x%+n%..d.x%-=1|
000010a0  0d 05 6e 0b 78 25 3d 78  25 83 37 0d 05 78 07 f7  |..n.x%=x%.7..x..|
000010b0  2b 31 0d 05 82 24 dc 53  75 6e 2c 4d 6f 6e 2c 54  |+1...$.Sun,Mon,T|
000010c0  75 65 2c 57 65 64 2c 54  68 75 2c 46 72 69 2c 53  |ue,Wed,Thu,Fri,S|
000010d0  61 74 2c 53 75 6e 0d 05  8c 14 e3 4c 41 25 3d 30  |at,Sun.....LA%=0|
000010e0  b8 78 25 3a f3 77 64 24  3a ed 0d 05 96 08 3d 77  |.x%:.wd$:.....=w|
000010f0  64 24 0d 05 a0 0e dd a4  6c 65 61 70 28 79 25 29  |d$......leap(y%)|
00001100  0d 05 aa 23 e7 79 25 83  34 3d 30 80 28 79 25 83  |...#.y%.4=0.(y%.|
00001110  31 30 30 3c 3e 30 84 79  25 83 34 30 30 3d 30 29  |100<>0.y%.400=0)|
00001120  3a 3d b9 0d 05 b4 06 3d  a3 0d 05 be 29 dd f2 75  |:=.....=....)..u|
00001130  64 28 69 25 2c 64 25 2c  75 25 2c 63 6c 25 2c 6d  |d(i%,d%,u%,cl%,m|
00001140  69 6e 25 2c 6d 61 78 25  29 3a ea 76 25 2c 64 69  |in%,max%):.v%,di|
00001150  72 25 0d 05 c8 1a e7 62  75 74 25 3d 31 3a 64 69  |r%.....but%=1:di|
00001160  72 25 3d 2d 31 8b 64 69  72 25 3d 31 0d 05 d2 28  |r%=-1.dir%=1...(|
00001170  e7 69 25 3c 3e 38 3a 76  25 3d bb 28 a4 72 65 61  |.i%<>8:v%=.(.rea|
00001180  64 28 73 65 74 25 2c 69  25 29 29 8b 76 25 3d 77  |d(set%,i%)).v%=w|
00001190  69 6e 6d 25 0d 05 dc 14  e7 63 6c 25 3d 64 25 3a  |inm%.....cl%=d%:|
000011a0  76 25 2d 3d 64 69 72 25  0d 05 e6 14 e7 63 6c 25  |v%-=dir%.....cl%|
000011b0  3d 75 25 3a 76 25 2b 3d  64 69 72 25 0d 05 f0 14  |=u%:v%+=dir%....|
000011c0  e7 76 25 3c 6d 69 6e 25  3a 76 25 3d 6d 61 78 25  |.v%<min%:v%=max%|
000011d0  0d 05 fa 14 e7 76 25 3e  6d 61 78 25 3a 76 25 3d  |.....v%>max%:v%=|
000011e0  6d 69 6e 25 0d 06 04 09  c8 8e 69 25 ca 0d 06 0e  |min%......i%....|
000011f0  1f c9 34 2c 35 3a f2 74  6a 28 73 65 74 25 2c 69  |..4,5:.tj(set%,i|
00001200  25 2c a4 74 69 6d 65 28  76 25 29 29 0d 06 18 1c  |%,.time(v%))....|
00001210  c9 37 3a f2 74 6a 28 73  65 74 25 2c 69 25 2c a4  |.7:.tj(set%,i%,.|
00001220  64 61 79 28 76 25 29 29  0d 06 22 27 c9 38 3a f2  |day(v%)).."'.8:.|
00001230  74 6a 28 73 65 74 25 2c  69 25 2c a4 6d 6f 6e 74  |tj(set%,i%,.mont|
00001240  68 28 76 25 29 29 3a 77  69 6e 6d 25 3d 76 25 0d  |h(v%)):winm%=v%.|
00001250  06 2c 19 c9 39 3a f2 74  6a 28 73 65 74 25 2c 69  |.,..9:.tj(set%,i|
00001260  25 2c c3 28 76 25 29 29  0d 06 36 05 cb 0d 06 40  |%,.(v%))..6....@|
00001270  51 e7 28 69 25 3d 38 84  69 25 3d 39 29 80 bb 28  |Q.(i%=8.i%=9)..(|
00001280  a4 72 65 61 64 28 73 65  74 25 2c 37 29 29 3e a4  |.read(set%,7))>.|
00001290  6d 6f 6e 6d 61 78 28 77  69 6e 6d 25 29 3a f2 74  |monmax(winm%):.t|
000012a0  6a 28 73 65 74 25 2c 37  2c a4 64 61 79 28 a4 6d  |j(set%,7,.day(.m|
000012b0  6f 6e 6d 61 78 28 77 69  6e 6d 25 29 29 29 0d 06  |onmax(winm%)))..|
000012c0  4a 4d e7 69 25 3e 36 80  69 25 3c 31 30 3a f2 74  |JM.i%>6.i%<10:.t|
000012d0  6a 28 73 65 74 25 2c 36  2c a4 77 65 65 6b 64 61  |j(set%,6,.weekda|
000012e0  79 28 bb 28 a4 72 65 61  64 28 73 65 74 25 2c 37  |y(.(.read(set%,7|
000012f0  29 29 2c 77 69 6e 6d 25  2c bb 28 a4 72 65 61 64  |)),winm%,.(.read|
00001300  28 73 65 74 25 2c 39 29  29 29 29 0d 06 54 05 e1  |(set%,9))))..T..|
00001310  0d 06 5e 18 dd a4 6d 6f  6e 6d 61 78 28 6d 25 29  |..^...monmax(m%)|
00001320  3a ea 4c 41 25 2c 6e 25  0d 06 68 07 f7 2b 31 0d  |:.LA%,n%..h..+1.|
00001330  06 72 2a dc 30 2c 33 31  2c 32 38 2c 33 31 2c 33  |.r*.0,31,28,31,3|
00001340  30 2c 33 31 2c 33 30 2c  33 31 2c 33 31 2c 33 30  |0,31,30,31,31,30|
00001350  2c 33 31 2c 33 30 2c 33  31 0d 06 7c 13 e3 4c 41  |,31,30,31..|..LA|
00001360  25 3d 30 b8 6d 25 3a f3  6e 25 3a ed 0d 06 86 2a  |%=0.m%:.n%:....*|
00001370  e7 77 69 6e 6d 25 3d 32  80 a4 6c 65 61 70 28 bb  |.winm%=2..leap(.|
00001380  28 a4 72 65 61 64 28 73  65 74 25 2c 39 29 29 29  |(.read(set%,9)))|
00001390  3a 6e 25 3d 32 39 0d 06  90 07 3d 6e 25 0d 06 9a  |:n%=29....=n%...|
000013a0  16 dd f2 64 6f 73 65 74  28 62 75 74 25 29 3a ea  |...doset(but%):.|
000013b0  4c 41 25 0d 06 a4 2a 68  72 25 3d a4 72 65 61 64  |LA%...*hr%=.read|
000013c0  76 28 73 65 74 25 2c 34  29 3a e7 68 72 25 3c 30  |v(set%,4):.hr%<0|
000013d0  84 68 72 25 3e 32 33 3a  68 72 25 3d 30 0d 06 ae  |.hr%>23:hr%=0...|
000013e0  2a 6d 69 25 3d a4 72 65  61 64 76 28 73 65 74 25  |*mi%=.readv(set%|
000013f0  2c 35 29 3a e7 6d 69 25  3c 30 84 6d 69 25 3e 35  |,5):.mi%<0.mi%>5|
00001400  39 3a 6d 69 25 3d 30 0d  06 b8 1e 64 25 3d a4 72  |9:mi%=0....d%=.r|
00001410  65 61 64 76 28 73 65 74  25 2c 37 29 3a 6d 25 3d  |eadv(set%,7):m%=|
00001420  77 69 6e 6d 25 0d 06 c2  2b 79 25 3d a4 72 65 61  |winm%...+y%=.rea|
00001430  64 76 28 73 65 74 25 2c  39 29 3a e7 79 25 3c 31  |dv(set%,9):.y%<1|
00001440  84 79 25 3e 39 39 39 39  3a 79 25 3d 31 39 39 37  |.y%>9999:y%=1997|
00001450  0d 06 cc 17 64 65 73 24  3d a4 72 65 61 64 28 73  |....des$=.read(s|
00001460  65 74 25 2c 32 31 29 0d  06 d6 2c 66 25 3d 31 3a  |et%,21)...,f%=1:|
00001470  e3 4c 41 25 3d 31 b8 35  3a e7 a4 73 65 6c 64 28  |.LA%=1.5:..seld(|
00001480  73 65 74 25 2c 32 33 2b  4c 41 25 29 3a 66 25 3d  |set%,23+LA%):f%=|
00001490  4c 41 25 0d 06 e0 08 ed  4c 41 25 0d 06 ea 20 e7  |LA%.....LA%... .|
000014a0  a4 73 65 6c 64 28 73 65  74 25 2c 33 32 29 3a 63  |.seld(set%,32):c|
000014b0  64 25 3d 2d 31 8b 63 64  25 3d 31 0d 06 f4 0e f2  |d%=-1.cd%=1.....|
000014c0  69 6e 69 74 63 6f 75 6e  74 0d 06 fe 22 e7 62 75  |initcount...".bu|
000014d0  74 25 3c 3e 31 3a 21 62  25 3d 73 65 74 25 3a c8  |t%<>1:!b%=set%:.|
000014e0  99 32 36 32 33 34 32 2c  2c 62 25 0d 07 08 05 e1  |.262342,,b%.....|
000014f0  0d 07 12 0f dd f2 69 6e  69 74 63 6f 75 6e 74 0d  |......initcount.|
00001500  07 1c 09 6c 74 25 3d 30  0d 07 26 09 c8 8e 66 25  |...lt%=0..&...f%|
00001510  ca 0d 07 30 0d c9 31 3a  77 74 25 3d 32 35 0d 07  |...0..1:wt%=25..|
00001520  3a 0e c9 32 3a 77 74 25  3d 32 30 30 0d 07 44 13  |:..2:wt%=200..D.|
00001530  c9 33 2c 34 2c 35 3a 77  74 25 3d 36 30 30 30 0d  |.3,4,5:wt%=6000.|
00001540  07 4e 05 cb 0d 07 58 0e  63 64 24 3d c3 28 63 64  |.N....X.cd$=.(cd|
00001550  25 29 0d 07 62 12 f2 74  6a 28 77 25 2c 30 2c 64  |%)..b..tj(w%,0,d|
00001560  65 73 24 29 0d 07 6c 18  7a 24 3d a4 63 61 6c 3a  |es$)..l.z$=.cal:|
00001570  f2 74 6a 28 77 25 2c 32  2c 7a 24 29 0d 07 76 05  |.tj(w%,2,z$)..v.|
00001580  e1 0d 07 80 0e dd a4 63  61 6c 3a ea 74 74 25 0d  |.......cal:.tt%.|
00001590  07 8a 16 e7 91 3c 6c 74  25 84 6c 74 25 3d 30 84  |.....<lt%.lt%=0.|
000015a0  66 25 3e 32 8c 0d 07 94  09 f2 63 61 6c 32 0d 07  |f%>2......cal2..|
000015b0  9e 05 cc 0d 07 a8 13 74  74 25 3d 28 91 2d 6c 74  |.......tt%=(.-lt|
000015c0  25 29 81 31 30 30 0d 07  b2 24 e7 74 74 25 3e 3d  |%).100...$.tt%>=|
000015d0  31 3a 73 73 25 3d 73 73  25 2d 74 74 25 3a 6c 74  |1:ss%=ss%-tt%:lt|
000015e0  25 2b 3d 74 74 25 2a 31  30 30 0d 07 bc 05 cd 0d  |%+=tt%*100......|
000015f0  07 c6 0a 3d a4 63 61 6c  33 0d 07 d0 12 dd f2 63  |...=.cal3......c|
00001600  61 6c 32 3a ea 53 24 2c  53 32 24 0d 07 da 09 6c  |al2:.S$,S2$....l|
00001610  74 25 3d 91 0d 07 e4 14  62 25 3f 30 3d 33 3a c8  |t%=.....b%?0=3:.|
00001620  99 37 2c 31 34 2c 62 25  0d 07 ee 1a 79 32 25 3d  |.7,14,b%....y2%=|
00001630  a4 63 76 64 74 74 6d 28  22 25 63 65 25 7a 79 72  |.cvdttm("%ce%zyr|
00001640  22 29 0d 07 f8 16 6d 32  25 3d a4 63 76 64 74 74  |")....m2%=.cvdtt|
00001650  6d 28 22 25 6d 6e 22 29  0d 08 02 16 64 32 25 3d  |m("%mn")....d2%=|
00001660  a4 63 76 64 74 74 6d 28  22 25 64 79 22 29 0d 08  |.cvdttm("%dy")..|
00001670  0c 17 68 72 32 25 3d a4  63 76 64 74 74 6d 28 22  |..hr2%=.cvdttm("|
00001680  25 32 34 22 29 0d 08 16  17 6d 69 32 25 3d a4 63  |%24")....mi2%=.c|
00001690  76 64 74 74 6d 28 22 25  6d 69 22 29 0d 08 20 17  |vdttm("%mi").. .|
000016a0  73 65 32 25 3d a4 63 76  64 74 74 6d 28 22 25 73  |se2%=.cvdttm("%s|
000016b0  65 22 29 0d 08 2a 09 74  64 25 3d 30 0d 08 34 0c  |e")..*.td%=0..4.|
000016c0  e7 79 25 3e 79 32 25 8c  0d 08 3e 2f e3 4c 41 25  |.y%>y2%...>/.LA%|
000016d0  3d 79 32 25 b8 79 25 2d  31 3a e7 a4 6c 65 61 70  |=y2%.y%-1:..leap|
000016e0  28 4c 41 25 29 3a 74 64  25 2b 3d 33 36 36 8b 74  |(LA%):td%+=366.t|
000016f0  64 25 2b 3d 33 36 35 0d  08 48 08 ed 4c 41 25 0d  |d%+=365..H..LA%.|
00001700  08 52 05 cd 0d 08 5c 0c  e7 79 25 3c 79 32 25 8c  |.R....\..y%<y2%.|
00001710  0d 08 66 2f e3 4c 41 25  3d 79 25 b8 79 32 25 2d  |..f/.LA%=y%.y2%-|
00001720  31 3a e7 a4 6c 65 61 70  28 4c 41 25 29 3a 74 64  |1:..leap(LA%):td|
00001730  25 2b 3d 33 36 36 8b 74  64 25 2b 3d 33 36 35 0d  |%+=366.td%+=365.|
00001740  08 70 08 ed 4c 41 25 0d  08 7a 0c 74 64 25 3d 2d  |.p..LA%..z.td%=-|
00001750  74 64 25 0d 08 84 05 cd  0d 08 8e 1a 74 64 32 25  |td%.........td2%|
00001760  3d a4 64 61 79 73 69 6e  28 79 25 2c 6d 25 2c 64  |=.daysin(y%,m%,d|
00001770  25 29 0d 08 98 1d 74 64  33 25 3d a4 64 61 79 73  |%)....td3%=.days|
00001780  69 6e 28 79 32 25 2c 6d  32 25 2c 64 32 25 29 0d  |in(y2%,m2%,d2%).|
00001790  08 a2 12 74 64 32 25 3d  74 64 32 25 2d 74 64 33  |...td2%=td2%-td3|
000017a0  25 0d 08 ac 10 74 64 25  3d 74 64 25 2b 74 64 32  |%....td%=td%+td2|
000017b0  25 0d 08 b6 17 73 73 25  3d 68 72 25 2a 33 36 30  |%....ss%=hr%*360|
000017c0  30 2b 6d 69 25 2a 36 30  0d 08 c0 1f 73 73 25 2d  |0+mi%*60....ss%-|
000017d0  3d 68 72 32 25 2a 33 36  30 30 2b 6d 69 32 25 2a  |=hr2%*3600+mi2%*|
000017e0  36 30 2b 73 65 32 25 0d  08 ca 05 e1 0d 08 d4 0a  |60+se2%.........|
000017f0  dd a4 63 61 6c 33 0d 08  de 09 c8 8e 66 25 ca 0d  |..cal3......f%..|
00001800  08 e8 19 c9 31 3a 53 24  3d 22 74 64 25 2a 38 36  |....1:S$="td%*86|
00001810  34 30 30 2b 73 73 25 22  0d 08 f2 41 c9 32 3a e7  |400+ss%"...A.2:.|
00001820  73 73 25 3e 3d 30 3a 53  24 3d 22 74 64 25 2a 31  |ss%>=0:S$="td%*1|
00001830  34 34 30 2b 28 73 73 25  2b 35 39 29 44 49 56 36  |440+(ss%+59)DIV6|
00001840  30 22 8b 53 24 3d 22 74  64 25 2a 31 34 34 30 2b  |0".S$="td%*1440+|
00001850  73 73 25 44 49 56 36 30  22 0d 08 fc 43 c9 33 3a  |ss%DIV60"...C.3:|
00001860  e7 73 73 25 3e 3d 30 3a  53 24 3d 22 74 64 25 2a  |.ss%>=0:S$="td%*|
00001870  32 34 2b 28 73 73 25 2b  33 35 39 39 29 44 49 56  |24+(ss%+3599)DIV|
00001880  33 36 30 30 22 8b 53 24  3d 22 74 64 25 2a 32 34  |3600".S$="td%*24|
00001890  2b 73 73 25 44 49 56 33  36 30 30 22 0d 09 06 42  |+ss%DIV3600"...B|
000018a0  c9 34 2c 35 3a e7 73 73  25 3e 3d 30 3a 53 24 3d  |.4,5:.ss%>=0:S$=|
000018b0  22 74 64 25 2b 28 73 73  25 2b 38 36 33 39 39 29  |"td%+(ss%+86399)|
000018c0  44 49 56 38 36 34 30 30  22 8b 53 24 3d 22 74 64  |DIV86400".S$="td|
000018d0  25 2b 73 73 25 44 49 56  38 36 34 30 30 22 0d 09  |%+ss%DIV86400"..|
000018e0  10 0a e7 66 25 3d 35 8c  0d 09 1a 0b 66 32 25 3d  |...f%=5.....f2%=|
000018f0  a0 53 24 0d 09 24 38 e7  66 32 25 3e 3d 30 3a 53  |.S$..$8.f2%>=0:S|
00001900  24 3d 22 28 66 32 25 2a  34 2b 31 34 36 30 29 44  |$="(f2%*4+1460)D|
00001910  49 56 31 34 36 31 22 8b  53 24 3d 22 28 66 32 25  |IV1461".S$="(f2%|
00001920  2a 34 29 44 49 56 31 34  36 31 22 0d 09 2e 05 cd  |*4)DIV1461".....|
00001930  0d 09 38 05 cb 0d 09 42  0e 53 32 24 3d c3 28 a0  |..8....B.S2$=.(.|
00001940  53 24 29 0d 09 4c 19 3d  c3 28 a0 28 c3 28 63 64  |S$)..L.=.(.(.(cd|
00001950  25 29 2b 22 2a 22 2b 53  32 24 29 29 0d 09 56 12  |%)+"*"+S2$))..V.|
00001960  dd a4 63 76 64 74 74 6d  28 24 74 73 25 29 0d 09  |..cvdttm($ts%)..|
00001970  60 0c 24 74 73 25 2b 3d  bd 30 0d 09 6a 27 c8 99  |`.$ts%+=.0..j'..|
00001980  31 39 33 2c 62 25 2c 62  25 2b 31 32 38 2c 36 34  |193,b%,b%+128,64|
00001990  2c 74 73 25 b8 2c 65 6e  25 3a 3f 65 6e 25 3d 31  |,ts%.,en%:?en%=1|
000019a0  33 0d 09 74 11 3d bb 28  24 28 62 25 2b 31 32 38  |3..t.=.($(b%+128|
000019b0  29 29 0d 09 7e 22 dd a4  64 61 79 73 69 6e 28 79  |))..~"..daysin(y|
000019c0  25 2c 6d 25 2c 64 25 29  3a ea 74 64 25 2c 4c 41  |%,m%,d%):.td%,LA|
000019d0  25 2c 78 25 0d 09 88 09  74 64 25 3d 30 0d 09 92  |%,x%....td%=0...|
000019e0  07 f7 2b 31 0d 09 9c 2a  dc 30 2c 33 31 2c 32 38  |..+1...*.0,31,28|
000019f0  2c 33 31 2c 33 30 2c 33  31 2c 33 30 2c 33 31 2c  |,31,30,31,30,31,|
00001a00  33 31 2c 33 30 2c 33 31  2c 33 30 2c 33 31 0d 09  |31,30,31,30,31..|
00001a10  a6 1b e3 4c 41 25 3d 31  b8 6d 25 3a f3 78 25 3a  |...LA%=1.m%:.x%:|
00001a20  74 64 25 2b 3d 78 25 3a  ed 0d 09 b0 1f e7 a4 6c  |td%+=x%:.......l|
00001a30  65 61 70 28 79 25 29 3d  b9 20 80 20 6d 25 3e 3d  |eap(y%)=. . m%>=|
00001a40  33 3a 74 64 25 2b 3d 31  0d 09 ba 0b 74 64 25 2b  |3:td%+=1....td%+|
00001a50  3d 64 25 0d 09 c4 08 3d  74 64 25 0d ff           |=d%....=td%..|
00001a5d

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .