PD/!League/!RunImage

Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » PD/!League/!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 Computing » 1994 08 subscription disc.adf » 9408s
Filename:	PD/!League/!RunImage
Read OK:	✔
File size:	A545 bytes
Load address:	0000
Exec address:	0000

File contents

   10ONERRORMODE16:PRINTTAB(0,0);REPORT$;" at line ";STR$ERL:END
   20DIM b%&100,buffer%8000,tabledata%1200,m%200,e%&100,ind%4200,data%2500,spr%2000:!spr%=2000
   30DIM name$(24),wi%(24),dr%(24),lo%(24),gd%(24),po%(24),pl%(24),rank%(24),ranked%(24),errtime%(2),zwi%(24),zdr%(24),zlo%(24),zgd%(24),zname$(24),swi%(24),sdr%(24),slo%(24),sgd%(24),res%(24),used%(24),xtra%(24)
   40errtimeno%=0:tablefilled%=0:ptr%=0:leaguefile%=&1A1:current%=0:teams%=22:grey%=0:radio%=0
   50SYS "OS_SpriteOp",266,spr%,"<League$Dir>.Sprites"
   60SYS "Wimp_Initialise",200,&4B534154,"Premier League"
   70SYS "Wimp_OpenTemplate",,"<League$Dir>.Templates"
   80SYS "Wimp_LoadTemplate",,buffer%,tabledata%,tabledata%+1200,-1,"premtable"
   90b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO premtable%
  100SYS "Wimp_LoadTemplate",,buffer%,ind%,ind%+1300,-1,"newleague"
  110b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO newleague%
  120SYS "Wimp_LoadTemplate",,buffer%,ind%+1300,ind%+1500,-1,"infobox"
  130b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO infobox%
  140SYS "Wimp_LoadTemplate",,buffer%,ind%+1500,ind%+1900,-1,"special"
  150b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO special%
  160SYS "Wimp_LoadTemplate",,buffer%,ind%+1900,ind%+2700,-1,"result"
  170b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO result%
  180SYS "Wimp_LoadTemplate",,buffer%,ind%+2700,ind%+3000,-1,"savebox"
  190b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO savebox%
  200SYS "Wimp_LoadTemplate",,buffer%,ind%+3100,ind%+3400,-1,"datebox"
  210b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO datebox%
  220SYS "Wimp_LoadTemplate",,buffer%,ind%+3400,ind%+3900,-1,"midstart"
  230b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO midstart%
  240SYS "Wimp_LoadTemplate",,buffer%,ind%+3900,ind%+4200,-1,"filer"
  250b%!64=spr%:SYS "Wimp_CreateWindow",,buffer% TO filer%
  260SYS "Wimp_CloseTemplate"
  270!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&301A:$(b%+24)="!league"
  280SYS "Wimp_CreateIcon",,b%
  290$(ind%+2700)="LeagueFile"
  300saved%=FALSE:PROCsaved
  310$m%="League":m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=208:m%!20=44:m%!24=0:m%!28=0:m%!32=infobox%:m%!36=&7000021:$(m%+40)="Info":m%!52=0:m%!56=savebox%:m%!60=&7400021:$(m%+64)="Save"
  320m%!76=0:m%!80=-1:m%!84=&7000021:$(m%+88)="New league":m%!100=0:m%!104=-1:m%!108=&7400021:$(m%+112)="New results":m%!124=0:m%!128=-1:m%!132=&7400021:$(m%+136)="View results"
  330m%!148=128:m%!152=-1:m%!156=&7000021:$(m%+160)="Quit"
  340quit%=FALSE
  350PROCcheckforload
  360ON ERROR IF FNwimperror(ERR,REPORT$+"  (internal error code "+STR$ERL+")",3) THEN END
  370REPEAT
  380SYS "Wimp_Poll",6195,b% TO reason%
  390CASE reason% OF
  400WHEN 2:SYS "Wimp_OpenWindow",,b%
  410WHEN 3:IF !b%=midstart% THEN b%!4=39:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:SYS "Wimp_CloseWindow",,b% ELSE SYS "Wimp_CloseWindow",,b%
  420WHEN 6:IF b%!8=2 THEN
  430CASE TRUE OF
  440WHEN (b%!12=newleague% AND (b%!16=25 OR b%!16=26)):dtype%=3:bdate%=zdate%:bmonth%=zmonth%:byear%=zyear%:PROCopendbox
  450WHEN (b%!12=result% AND (b%!16=40 OR b%!16=41)):dtype%=2:bdate%=rdate%:bmonth%=rmonth%:byear%=ryear%:PROCopendbox
  460OTHERWISE
  470IF tablefilled% THEN m%!60=&7000021:m%!108=&7000021:m%!132=&7000021
  480IF b%!12=-2 THEN mx%=!b%-64:my%=360:SYS "Wimp_CreateMenu",,m%,mx%,my% ELSE mx%=!b%-64:my%=b%!4+32:SYS "Wimp_CreateMenu",,m%,mx%,my%
  490ENDCASE
  500ELSE
  510!e%=b%!12:e%!4=b%!16:SYS "Wimp_GetIconState",,e%:IF (e%!24AND&F000)>0 THEN CASE b%!12 OF
  520WHEN -2:IF b%!8=4 AND tablefilled% THEN !b%=premtable%:SYS "Wimp_GetWindowState",,b%:b%!28=-1:SYS "Wimp_OpenWindow",,b%
  530WHEN premtable%:CASE b%!16 OF
  540WHEN 213:dtype%=1:bdate%=date%:bmonth%=month%:byear%=year%:PROCopendbox
  550WHEN 214:PROCfilltable(FALSE)
  560ENDCASE
  570WHEN newleague%:CASE b%!16 OF
  580WHEN 40:!b%=newleague%:SYS "Wimp_CloseWindow",,b%:PROCoknewleague
  590WHEN 39:!b%=newleague%:SYS "Wimp_CloseWindow",,b%
  600WHEN 25,26:dtype%=3:bdate%=zdate%:bmonth%=zmonth%:byear%=zyear%:PROCopendbox
  610WHEN 28:IF b%!8=1 THEN !b%=newleague%:b%!4=28:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:b%!4=29:b%!8=0:SYS "Wimp_SetIconState",,b%
  620WHEN 29:IF b%!8=1 THEN !b%=newleague%:b%!4=29:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:b%!4=28:b%!8=0:SYS "Wimp_SetIconState",,b%
  630WHEN 33:IF b%!8=4 THEN
  640IF teams%>2 THEN teams%-=1:ind%!(52+(37*teams%))=&2D:$(ind%+1158)=STR$teams%:!b%=newleague%:b%!4=teams%+1:b%!8=0:b%!12=&F000:SYS "Wimp_SetIconState",,b%:b%!4=35:b%!12=0:SYS "Wimp_SetIconState",,b%
  650ELSE
  660IF teams%<24 THEN ind%!(52+(37*teams%))=0:teams%+=1:$(ind%+1158)=STR$teams%:!b%=newleague%:b%!4=teams%:b%!8=&F000:b%!12=&F000:SYS "Wimp_SetIconState",,b%:b%!4=35:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
  670ENDIF
  680WHEN 34:IF b%!8=4 THEN
  690IF teams%<24 THEN ind%!(52+(37*teams%))=0:teams%+=1:$(ind%+1158)=STR$teams%:!b%=newleague%:b%!4=teams%:b%!8=&F000:b%!12=&F000:SYS "Wimp_SetIconState",,b%:b%!4=35:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
  700ELSE
  710IF teams%>2 THEN teams%-=1:ind%!(52+(37*teams%))=&2D:$(ind%+1158)=STR$teams%:!b%=newleague%:b%!4=teams%+1:b%!8=0:b%!12=&F000:SYS "Wimp_SetIconState",,b%:b%!4=35:b%!12=0:SYS "Wimp_SetIconState",,b%
  720ENDIF
  730ENDCASE
  740WHEN savebox%:CASE b%!16 OF
  750WHEN 0:IF (b%!8 AND &50)>0 THEN PROCdragbox
  760WHEN 2:PROCcheckandsave
  770ENDCASE
  780WHEN result%:CASE b%!16 OF
  790WHEN 33:IF r%>1 THEN PROCinfo1
  800WHEN 34:IF r%>2 THEN PROCinfo2
  810WHEN 35:IF r%>3 THEN PROCinfo3
  820WHEN 40,41:dtype%=2:bdate%=rdate%:bmonth%=rmonth%:byear%=ryear%:PROCopendbox
  830WHEN 25:PROCscore(0):PROCunset(25)
  840WHEN 26:PROCscore(1):PROCunset(26)
  850WHEN 27:PROCscore(2):PROCunset(27)
  860WHEN 28:PROCscore(3):PROCunset(28)
  870WHEN 29:PROCscore(4):PROCunset(29)
  880WHEN 30:PROCspecial
  890OTHERWISE:PROCclickteam
  900ENDCASE
  910WHEN filer%:CASE b%!16 OF
  920WHEN 5:CASE b%!8 OF
  930WHEN 4:IF current%>1 THEN current%-=1:PROCfillfiler
  940WHEN 1:IF current%<ptr%/4 THEN current%+=1:PROCfillfiler
  950ENDCASE
  960WHEN 6:CASE b%!8 OF
  970WHEN 1:IF current%>1 THEN current%-=1:PROCfillfiler
  980WHEN 4:IF current%<ptr%/4 THEN current%+=1:PROCfillfiler
  990ENDCASE
 1000WHEN 9:IF current%>0 THEN PROCdelete
 1010ENDCASE
 1020WHEN datebox%:IF b%!16=10 THEN SYS "Wimp_CreateMenu",,-1 ELSE PROCdatebox
 1030WHEN midstart%:CASE b%!16 OF
 1040WHEN 3:IF b%!8=4 THEN
 1050IF steam%>1 THEN steam%-=1:PROCfillstart(0)
 1060ELSE
 1070IF b%!8=1 AND steam%<teams% THEN steam%+=1:PROCfillstart(0)
 1080ENDIF
 1090WHEN 37:IF steam%>1 THEN steam%-=1:PROCfillstart(0)
 1100WHEN 4:IF b%!8=1 THEN
 1110IF steam%>1 THEN steam%-=1:PROCfillstart(0)
 1120ELSE
 1130IF b%!8=4 AND steam%<teams% THEN steam%+=1:PROCfillstart(0)
 1140ENDIF
 1150WHEN 38:IF steam%<teams% THEN steam%+=1:PROCfillstart(0)
 1160WHEN 12:IF b%!8=4 THEN
 1170IF zwi%(steam%)>0 THEN zwi%(steam%)-=1:PROCrestart(1,0)
 1180ELSE
 1190IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=1 THEN zwi%(steam%)+=1:PROCrestart(1,0)
 1200ENDIF
 1210WHEN 13:IF b%!8=1 THEN
 1220IF zwi%(steam%)>0 THEN zwi%(steam%)-=1:PROCrestart(1,0)
 1230ELSE
 1240IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=4 THEN zwi%(steam%)+=1:PROCrestart(1,0)
 1250ENDIF
 1260WHEN 15:IF b%!8=4 THEN
 1270IF zdr%(steam%)>0 THEN zdr%(steam%)-=1:PROCrestart(2,0)
 1280ELSE
 1290IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=1 THEN zdr%(steam%)+=1:PROCrestart(2,0)
 1300ENDIF
 1310WHEN 16:IF b%!8=1 THEN
 1320IF zdr%(steam%)>0 THEN zdr%(steam%)-=1:PROCrestart(2,0)
 1330ELSE
 1340IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=4 THEN zdr%(steam%)+=1:PROCrestart(2,0)
 1350ENDIF
 1360WHEN 18:IF b%!8=4 THEN
 1370IF zlo%(steam%)>0 THEN zlo%(steam%)-=1:PROCrestart(4,0)
 1380ELSE
 1390IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=1 THEN zlo%(steam%)+=1:PROCrestart(4,0)
 1400ENDIF
 1410WHEN 19:IF b%!8=1 THEN
 1420IF zlo%(steam%)>0 THEN zlo%(steam%)-=1:PROCrestart(4,0)
 1430ELSE
 1440IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 AND b%!8=4 THEN zlo%(steam%)+=1:PROCrestart(4,0)
 1450ENDIF
 1460WHEN 21:IF b%!8=4 THEN
 1470IF zgd%(steam%)>-100 THEN zgd%(steam%)-=1:PROCrestart(8,0)
 1480ELSE
 1490IF zgd%(steam%)<100 AND b%!8=1 THEN zgd%(steam%)+=1:PROCrestart(8,0)
 1500ENDIF
 1510WHEN 22:IF b%!8=1 THEN
 1520IF zgd%(steam%)>-100 THEN zgd%(steam%)-=1:PROCrestart(8,0)
 1530ELSE
 1540IF zgd%(steam%)<100 AND b%!8=4 THEN zgd%(steam%)+=1:PROCrestart(8,0)
 1550ENDIF
 1560WHEN 39:!b%=midstart%:SYS "Wimp_CloseWindow",,b%
 1570WHEN 40:!b%=midstart%:SYS "Wimp_CloseWindow",,b%:PROCfillnewleague
 1580ENDCASE
 1590WHEN special%:CASE b%!16 OF
 1600WHEN 16,17,18,19,20:PROCradio(b%!16,-1)
 1610WHEN 21:SYS "Wimp_CreateMenu",,-1
 1620WHEN 22:PROCokspecial
 1630WHEN 11:CASE b%!8 OF
 1640WHEN 4:IF VALFNzero(ind%+1583)>1 THEN $(ind%+1583)=STR$(VALFNzero(ind%+1583)-1):PROCspecialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1650WHEN 1:IF VALFNzero(ind%+1583)<15 THEN $(ind%+1583)=STR$(VALFNzero(ind%+1583)+1):PROCspecialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1660ENDCASE
 1670WHEN 12:CASE b%!8 OF
 1680WHEN 1:IF VALFNzero(ind%+1583)>1 THEN $(ind%+1583)=STR$(VALFNzero(ind%+1583)-1):PROCspecialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1690WHEN 4:IF VALFNzero(ind%+1583)<15 THEN $(ind%+1583)=STR$(VALFNzero(ind%+1583)+1):PROCspecialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1700ENDCASE
 1710WHEN 14:CASE b%!8 OF
 1720WHEN 4:IF VALFNzero(ind%+1633)>1 THEN $(ind%+1633)=STR$(VALFNzero(ind%+1633)-1):PROCspecialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1730WHEN 1:IF VALFNzero(ind%+1633)<15 THEN $(ind%+1633)=STR$(VALFNzero(ind%+1633)+1):PROCspecialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1740ENDCASE
 1750WHEN 15:CASE b%!8 OF
 1760WHEN 1:IF VALFNzero(ind%+1633)>1 THEN $(ind%+1633)=STR$(VALFNzero(ind%+1633)-1):PROCspecialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1770WHEN 4:IF VALFNzero(ind%+1633)<15 THEN $(ind%+1633)=STR$(VALFNzero(ind%+1633)+1):PROCspecialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 1780ENDCASE
 1790ENDCASE
 1800REM next window reference here
 1810ENDCASE
 1820ENDIF
 1830WHEN 7:PROCsenddatasave
 1840WHEN 8:key%=b%!24:IF NOT FNourkey(!b%,key%,b%!4) THEN SYS "Wimp_ProcessKey",key%
 1850WHEN 9:CASE !b% OF
 1860WHEN 2:PROCnewleague
 1870WHEN 3:rdate%=VALMID$(TIME$,5,2):rmonth%=FNmonthno(MID$(TIME$,8,3)):ryear%=VALMID$(TIME$,12,4)
 1880IF FNdays(rdate%,rmonth%,ryear%)<FNdays(sdate%,smonth%,syear%) THEN rdate%=sdate%:rmonth%=smonth%:ryear%=syear%
 1890PROCresults
 1900WHEN 4:PROCfillfiler:!b%=filer%:SYS "Wimp_GetWindowState",,b%:b%!28=-1:SYS "Wimp_OpenWindow",,b%
 1910WHEN 5:quit%=TRUE
 1920ENDCASE
 1930SYS "Wimp_GetPointerInfo",,e%:IF e%!8=1 THEN SYS "Wimp_CreateMenu",,m%,mx%,my%
 1940WHEN 17,18,19:PROCmessage
 1950ENDCASE
 1960UNTIL quit%
 1970END
 1980:
 1990DEFPROCmessage
 2000CASE reason% OF
 2010WHEN 17,18:CASE b%!16 OF
 2020WHEN 0:quit%=TRUE
 2030WHEN 2:PROCdragsave
 2040WHEN 3,5:IF b%!40=leaguefile% THEN b%!16=4:b%!12=b%!8:SYS "Wimp_SendMessage",17,b%,b%!4:PROCloadtable(FNzero(b%+44))
 2050WHEN 8:IF NOT saved% THEN IF NOT FNwimperror(1,"'"+leaguename$+"' edited. Save?",3) THEN b%!12=b%!8:SYS "Wimp_SendMessage",19,b%:SYS "Wimp_GetPointerInfo",,b%:SYS "Wimp_CreateMenu",,savebox%,!b%,b%!4
 2060ENDCASE
 2070WHEN 19:SYS "OS_File",6,b%+44:ERROR 255,"Data transfer failed: Receiver died"
 2080ENDCASE
 2090ENDPROC
 2100:
 2110DEFFNzero(l%):LOCAL str$:str$=""
 2120WHILE ?l% AND LENstr$<255:str$+=CHR$?l%:l%+=1:ENDWHILE
 2130=str$
 2140:
 2150DEFFNlen(l%):LOCAL z%:z%=0:WHILE ?(l%+z%)>31 AND z%<255:z%+=1:ENDWHILE:=z%
 2160:
 2170DEFPROCloadtable(file$)
 2180LOCAL file%,l%
 2190file%=OPENINfile$
 2200leaguename$=GET$#file%
 2210sdate%=VALGET$#file%
 2220smonth%=VALGET$#file%
 2230syear%=VALGET$#file%
 2240teams%=BGET#file%
 2250FOR l%=1 TO teams%
 2260name$(l%)=GET$#file%
 2270swi%(l%)=VALGET$#file%
 2280sdr%(l%)=VALGET$#file%
 2290slo%(l%)=VALGET$#file%
 2300sgd%(l%)=VALGET$#file%
 2310NEXT
 2320ptr%=VALGET$#file%
 2330l%=0:WHILE l%<ptr%:data%?l%=BGET#file%:l%+=1:ENDWHILE
 2340CLOSE#file%
 2350date%=VALMID$(TIME$,5,2):month%=FNmonthno(MID$(TIME$,8,3)):year%=VALMID$(TIME$,12,4)
 2360tablefilled%=TRUE:PROCsaved:$(ind%+2700)=file$
 2370PROCfilltable(TRUE):current%=ptr%/4:PROCfillfiler
 2380!b%=result%:SYS "Wimp_CloseWindow",,b%
 2390ENDPROC
 2400:
 2410DEFPROCfilltable(open%)
 2420LOCAL l%,ll%,la%,lb%,lc%,ld%,reg%,val:ll%=FNdays(date%,month%,year%)+1
 2430wi%()=swi%():dr%()=sdr%():lo%()=slo%():gd%()=sgd%():xtra%()=0
 2440l%=0:WHILE l%<ptr%
 2450IF FNdays(FNdat(l%),FNmon(l%),FNyr(l%))<ll% THEN
 2460la%=FNt1(l%):lb%=FNt2(l%):lc%=FNs1(l%):ld%=FNs2(l%)
 2470CASE TRUE OF
 2480WHEN lb%=0:CASE lc% OF
 2490WHEN 1:wi%(la%)+=1
 2500WHEN 2:dr%(la%)+=1
 2510WHEN 3:lo%(la%)+=1
 2520WHEN 4:xtra%(la%)+=ld%
 2530WHEN 5:xtra%(la%)-=ld%
 2540ENDCASE
 2550WHEN lc%>ld%:wi%(la%)+=1:lo%(lb%)+=1:gd%(la%)+=lc%-ld%:gd%(lb%)+=ld%-lc%
 2560WHEN ld%>lc%:wi%(lb%)+=1:lo%(la%)+=1:gd%(la%)+=lc%-ld%:gd%(lb%)+=ld%-lc%
 2570OTHERWISE:dr%(la%)+=1:dr%(lb%)+=1
 2580ENDCASE
 2590ENDIF
 2600l%+=4
 2610ENDWHILE
 2620FOR l%=1 TO teams%
 2630pl%(l%)=wi%(l%)+dr%(l%)+lo%(l%)
 2640po%(l%)=xtra%(l%)+dr%(l%)+3*wi%(l%)
 2650NEXT
 2660rank%()=0
 2670FOR l%=1 TO teams%
 2680val=0:reg%=0
 2690FOR ll%=1 TO teams%
 2700IF rank%(ll%)=0:IF po%(ll%)+0.5+(gd%(ll%)/1000)>val THEN val=po%(ll%)+0.5+(gd%(ll%)/1000):reg%=ll%
 2710NEXT
 2720rank%(reg%)=l%:ranked%(l%)=reg%
 2730NEXT
 2740FOR l%=1 TO teams%
 2750ll%=ranked%(l%)
 2760$(tabledata%+21+(23*(l%-1)))=name$(ll%)
 2770$(tabledata%+573+(3*(l%-1)))=STR$wi%(ll%)
 2780$(tabledata%+645+(3*(l%-1)))=STR$dr%(ll%)
 2790$(tabledata%+717+(3*(l%-1)))=STR$lo%(ll%)
 2800$(tabledata%+789+(3*(l%-1)))=STR$pl%(ll%)
 2810$(tabledata%+861+(5*(l%-1)))=FNsign(gd%(ll%))+STR$ABSgd%(ll%)
 2820$(tabledata%+981+(4*(l%-1)))=STR$po%(ll%)
 2830NEXT
 2840$(tabledata%+1077)=leaguename$
 2850$(tabledata%+1115)=FNday(date%,month%,year%)+", "+STR$(date%)+FNth(date%)+" "+FNmonth(month%)+" "+STR$year%
 2860tablefilled%=-1
 2870!e%=premtable%:SYS "Wimp_GetWindowState",,e%:IF open% THEN e%!4=2:e%!8=44:e%!12=1018:e%!16=980:e%!20=16:e%!24=56:e%!28=-1
 2880!b%=premtable%:SYS "Wimp_CloseWindow",,b%:IF open% THEN !b%=16:b%!4=-120-(96*(teams%DIV2))-(40*(teams%MOD2)):b%!8=1032:b%!12=56:SYS "Wimp_SetExtent",premtable%,b%
 2890SYS "Wimp_OpenWindow",,e%:PROCgrey
 2900ENDPROC
 2910:
 2920DEFFNsign(number%)
 2930LOCAL sign$
 2940CASE SGNnumber% OF
 2950WHEN -1:sign$="-"
 2960WHEN 0:sign$=""
 2970WHEN 1:sign$="+"
 2980ENDCASE
 2990=sign$
 3000:
 3010DEFPROCnewleague
 3020LOCAL l%
 3030?ind%=0:FOR l%=0 TO 23:ind%!(52+(37*l%))=(-&2D)*(l%>=teams%):NEXT:zwi%()=0:zdr%()=0:zlo%()=0:zgd%()=0
 3040zdate%=VALMID$(TIME$,5,2):zmonth%=FNmonthno(MID$(TIME$,8,3)):zyear%=VALMID$(TIME$,12,4)
 3050$(ind%+940)=FNday(zdate%,zmonth%,zyear%)+" "+STR$zdate%+FNth(zdate%)+" "+FNmonth(zmonth%)+" "+STR$zyear%
 3060!b%=newleague%:b%!4=28:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:b%!4=29:b%!8=0:SYS "Wimp_SetIconState",,b%:b%!4=40:SYS "Wimp_SetIconState",,b%
 3070!b%=newleague%:SYS "Wimp_CloseWindow",,b%:b%!12=&F000:FOR l%=1 TO 24:b%!4=l%:b%!8=(l%<=teams%)*(-&F000):SYS "Wimp_SetIconState",,b%:NEXT:SYS "Wimp_GetWindowState",,b%:b%!28=-1:SYS "Wimp_OpenWindow",,b%
 3080SYS "Wimp_SetCaretPosition",newleague%,0,,,-1,0
 3090!b%=midstart%:SYS "Wimp_CloseWindow",,b%
 3100ENDPROC
 3110:
 3120DEFFNourkey(window%,key%,icon%)
 3130LOCAL ours%,l%:ours%=FALSE
 3140CASE window% OF
 3150WHEN special%:IF key%=13 THEN PROCokspecial
 3160WHEN midstart%
 3170IF key%=13 THEN ours%=TRUE:CASE icon% OF
 3180WHEN 14:zwi%(steam%)=VALFNzero(ind%+3547):IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 THEN zwi%(steam%)=99-zdr%(steam%)-zlo%(steam%)
 3190IF VALFNzero(ind%+3597)=0 THEN ind%?3597=0
 3200PROCrestart(1,1):SYS "Wimp_SetCaretPosition",midstart%,17,,,-1,FNlen(ind%+3597)
 3210WHEN 17:zdr%(steam%)=VALFNzero(ind%+3597):IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 THEN zdr%(steam%)=99-zwi%(steam%)-zlo%(steam%)
 3220IF VALFNzero(ind%+3647)=0 THEN ind%?3647=0
 3230PROCrestart(2,2):SYS "Wimp_SetCaretPosition",midstart%,20,,,-1,FNlen(ind%+3647)
 3240WHEN 20:zlo%(steam%)=VALFNzero(ind%+3647):IF zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 THEN zlo%(steam%)=99-zdr%(steam%)-zwi%(steam%)
 3250IF VALFNzero(ind%+3697)=0 THEN ind%?3697=0
 3260PROCrestart(4,3):SYS "Wimp_SetCaretPosition",midstart%,23,,,-1,FNlen(ind%+3697)
 3270WHEN 23:zgd%(steam%)=VALFNzero(ind%+3697):IF zgd%(steam%)>100 THEN zgd%(steam%)=100 ELSE IF zgd%(steam%)<-100 THEN zgd%(steam%)=-100
 3280IF steam%<teams% THEN
 3290steam%+=1:PROCfillstart(-1)
 3300ELSE
 3310!b%=midstart%:b%!4=40:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:SYS "Wimp_CloseWindow",,b%:PROCfillnewleague
 3320ENDIF
 3330ENDCASE
 3340WHEN newleague%
 3350ours%=TRUE
 3360CASE key% OF
 3370WHEN 13:CASE icon% OF
 3380WHEN 35:SYS "Wimp_SetCaretPosition",newleague%,0,,,-1,FNlen(ind%):l%=VALFNzero(ind%+1158)
 3390IF l%<2 THEN l%=2 ELSE IF l%>24 THEN l%=24
 3400$(ind%+1158)=STR$l%:!b%=newleague%:b%!4=35:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 3410WHILE teams%<>l%
 3420IF teams%>l% THEN
 3430teams%-=1:ind%!(52+(37*teams%))=&2D:b%!4=teams%+1:b%!12=&F000:SYS "Wimp_SetIconState",,b%
 3440ELSE
 3450ind%!(52+(37*teams%))=0:teams%+=1:b%!4=teams%:b%!8=&F000:b%!12=&F000:SYS "Wimp_SetIconState",,b%
 3460ENDIF
 3470ENDWHILE
 3480WHEN teams%:!b%=newleague%:b%!4=40:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%:!b%=newleague%:SYS "Wimp_CloseWindow",,b%:PROCoknewleague
 3490OTHERWISE:SYS "Wimp_SetCaretPosition",newleague%,icon%+1,,,-1,FNlen(ind%+52+(37*icon%))
 3500ENDCASE
 3510WHEN &18E:IF icon%=0 THEN
 3520SYS "Wimp_SetCaretPosition",newleague%,1,,,-1,FNlen(ind%+52)
 3530ELSE
 3540IF icon%+2<=teams% THEN
 3550SYS "Wimp_SetCaretPosition",newleague%,icon%+2,,,-1,FNlen(ind%+52+(37*(icon%+1)))
 3560ELSE
 3570IF icon%MOD2=1 THEN SYS "Wimp_SetCaretPosition",newleague%,2,,,-1,FNlen(ind%+89) ELSE SYS "Wimp_SetCaretPosition",newleague%,0,,,-1,FNlen(ind%)
 3580ENDIF
 3590ENDIF
 3600WHEN &18F:CASE icon% OF
 3610WHEN 0:SYS "Wimp_SetCaretPosition",newleague%,(teams%DIV2)*2,,,-1,FNlen(ind%+52+(37*(((teams%DIV2)*2)-1)))
 3620WHEN 1:SYS "Wimp_SetCaretPosition",newleague%,0,,,-1,FNlen(ind%)
 3630WHEN 2:SYS "Wimp_SetCaretPosition",newleague%,teams%-1+(teams%MOD2),,,-1,FNlen(ind%+52+(37*((teams%-1+(teams%MOD2))-1)))
 3640OTHERWISE:SYS "Wimp_SetCaretPosition",newleague%,icon%-2,,,-1,FNlen(ind%+52+(37*(icon%-3)))
 3650ENDCASE
 3660WHEN &19C:IF (icon%>1 AND icon%MOD2=0) THEN SYS "Wimp_SetCaretPosition",newleague%,icon%-1,,,-1,FNlen(ind%+52+(37*(icon%-2)))
 3670WHEN &19D:IF icon%MOD2=1 AND icon%<teams% THEN SYS "Wimp_SetCaretPosition",newleague%,icon%+1,,,-1,0
 3680WHEN &19E:CASE TRUE OF
 3690WHEN icon%=0:SYS "Wimp_SetCaretPosition",newleague%,1,,,-1,FNlen(ind%+52)
 3700WHEN icon%MOD2=1:SYS "Wimp_SetCaretPosition",newleague%,teams%-1+(teams%MOD2),,,-1,FNlen(ind%+52+(37*((teams%-1+(teams%MOD2))-1)))
 3710OTHERWISE:SYS "Wimp_SetCaretPosition",newleague%,(teams%DIV2)*2,,,-1,FNlen(ind%+52+(37*(((teams%DIV2)*2)-1)))
 3720ENDCASE
 3730WHEN &19F:CASE TRUE OF
 3740WHEN icon%=0:
 3750WHEN icon%MOD2=1:IF icon%>1 THEN
 3760SYS "Wimp_SetCaretPosition",newleague%,1,,,-1,FNlen(ind%+52)
 3770ELSE
 3780SYS "Wimp_SetCaretPosition",newleague%,0,,,-1,FNlen(ind%)
 3790ENDIF
 3800OTHERWISE:SYS "Wimp_SetCaretPosition",newleague%,2,,,-1,FNlen(ind%+89)
 3810ENDCASE
 3820OTHERWISE:ours%=FALSE
 3830ENDCASE
 3840WHEN result%
 3850IF key%=13 THEN
 3860ours%=TRUE
 3870IF icon%=34 THEN PROCscore(VALFNzero(ind%+2587)) ELSE PROCscore(VALFNzero(ind%+2613))
 3880ENDIF
 3890WHEN savebox%:IF key%=13 THEN ours%=TRUE:PROCcheckandsave
 3900WHEN filer%:IF key%=13 THEN
 3910SYS "Wimp_SetCaretPosition",,-1:current%=VALFNzero(ind%+4013)
 3920IF current%=0 THEN current%=1
 3930IF current%>ptr%/4 THEN current%=ptr%/4
 3940PROCfillfiler
 3950ENDIF
 3960WHEN datebox%
 3970IF key%=13 THEN
 3980!b%=datebox%:b%!4=9:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%
 3990SYS "Wimp_CreateMenu",,-1
 4000CASE dtype% OF
 4010WHEN 1:date%=bdate%:month%=bmonth%:year%=byear%:PROCfilltable(FALSE)
 4020WHEN 2:rdate%=bdate%:rmonth%=bmonth%:ryear%=byear%:PROCfillrdate
 4030WHEN 3:zdate%=bdate%:zmonth%=bmonth%:zyear%=byear%:$(ind%+940)=FNday(zdate%,zmonth%,zyear%)+" "+STR$zdate%+FNth(zdate%)+" "+FNmonth(zmonth%)+" "+STR$zyear%
 4040!b%=newleague%:b%!4=25:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
 4050ENDCASE
 4060ENDIF
 4070ENDCASE
 4080=ours%
 4090:
 4100DEFFNwimperror(error%,error$,flags%)
 4110LOCAL reply%
 4120IF TIME<errtime%(errtimeno%)+500 THEN END
 4130errtime%(errtimeno%)=TIME:errtimeno%=(errtimeno%+1)MOD3
 4140!e%=error%:$(e%+4)=error$
 4150SYS "Wimp_ReportError",e%,flags%,"FA Premier League" TO ,reply%
 4160IF reply%=2 THEN =TRUE ELSE =FALSE
 4170:
 4180DEFPROCoknewleague
 4190LOCAL l%,ll%
 4200FOR l%=1 TO teams%
 4210zname$(l%)=FNzero(ind%+52+(37*(l%-1)))
 4220NEXT
 4230FOR ll%=1 TO teams%-1
 4240FOR l%=1 TO teams%-1
 4250IF zname$(l%)>zname$(l%+1) THEN SWAP zname$(l%),zname$(l%+1)
 4260NEXT
 4270NEXT
 4280zleaguename$=FNzero(ind%)
 4290SYS "Wimp_WhichIcon",newleague%,b%,&3F0000,&210000
 4300IF !b%=29 THEN
 4310PROCheadstart
 4320ELSE
 4330PROCfillnewleague
 4340ENDIF
 4350ENDPROC
 4360:
 4370DEFFNmonthno(month$)
 4380LOCAL back%:back%=0
 4390CASE month$ OF
 4400WHEN "Jan":back%=1
 4410WHEN "Feb":back%=2
 4420WHEN "Mar":back%=3
 4430WHEN "Apr":back%=4
 4440WHEN "May":back%=5
 4450WHEN "Jun":back%=6
 4460WHEN "Jul":back%=7
 4470WHEN "Aug":back%=8
 4480WHEN "Sep":back%=9
 4490WHEN "Oct":back%=10
 4500WHEN "Nov":back%=11
 4510WHEN "Dec":back%=12
 4520ENDCASE
 4530=back%
 4540:
 4550DEF FNleapyear(yearno%)
 4560IF yearno%MOD400=0 THEN  =TRUE
 4570IF yearno%MOD4=0 AND yearno%MOD100<>0 THEN =TRUE
 4580=FALSE
 4590:
 4600DEFFNday(dat%,mon%,yea%)
 4610LOCAL days%,l%
 4620IF yea%<1990 THEN ERROR 1,"Attempt to process pre-1990 date ("+STR$yea%+")."
 4630l%=1990:days%=0
 4640WHILE l%<yea%
 4650days%=days%+365-FNleapyear(l%)
 4660l%+=1
 4670ENDWHILE
 4680l%=1
 4690WHILE l%<mon%
 4700days%+=FNmax(l%,yea%)
 4710l%+=1
 4720ENDWHILE
 4730days%+=dat%
 4740days%=days%MOD7
 4750=FNdayname(days%)
 4760:
 4770DEFFNdays(dat%,mon%,yea%)
 4780LOCAL days%,l%
 4790IF yea%<1990 THEN ERROR 1,"Attempt to process pre-1990 date ("+STR$yea%+")."
 4800l%=1990:days%=0
 4810WHILE l%<yea%
 4820days%=days%+365-FNleapyear(l%)
 4830l%+=1
 4840ENDWHILE
 4850l%=1
 4860WHILE l%<mon%
 4870days%+=FNmax(l%,yea%)
 4880l%+=1
 4890ENDWHILE
 4900days%+=dat%
 4910=days%
 4920:
 4930DEFFNdayname(days%)
 4940LOCAL day$
 4950CASE days% OF
 4960WHEN 0:day$="Sunday"
 4970WHEN 1:day$="Monday"
 4980WHEN 2:day$="Tuesday"
 4990WHEN 3:day$="Wednesday"
 5000WHEN 4:day$="Thursday"
 5010WHEN 5:day$="Friday"
 5020WHEN 6:day$="Saturday"
 5030ENDCASE
 5040=day$
 5050:
 5060DEFFNth(date%)
 5070IF (date%>3 AND date%<21) OR (date%>23 AND date%<31) THEN ="th"
 5080date%=date%MOD10
 5090IF date%=1 THEN ="st"
 5100IF date%=2 THEN ="nd"
 5110="rd"
 5120:
 5130DEFFNmonth(month%)
 5140LOCAL month$
 5150CASE month% OF
 5160WHEN 1:month$="January"
 5170WHEN 2:month$="February"
 5180WHEN 3:month$="March"
 5190WHEN 4:month$="April"
 5200WHEN 5:month$="May"
 5210WHEN 6:month$="June"
 5220WHEN 7:month$="July"
 5230WHEN 8:month$="August"
 5240WHEN 9:month$="September"
 5250WHEN 10:month$="October"
 5260WHEN 11:month$="November"
 5270WHEN 12:month$="December"
 5280ENDCASE
 5290=month$
 5300:
 5310DEFPROCfillrdate
 5320$(ind%+2620)=FNday(rdate%,rmonth%,ryear%)+" "+STR$(rdate%)+FNth(rdate%)+" "+FNmonth(rmonth%)+" "+STR$ryear%:!b%=result%:b%!8=0:b%!12=0:b%!4=40:SYS "Wimp_SetIconState",,b%
 5330ENDPROC
 5340:
 5350DEFPROCfillbdate(redo%)
 5360!b%=datebox%:b%!8=0:b%!12=0
 5370$(ind%+3100)=FNday(bdate%,bmonth%,byear%)+" "+STR$(bdate%)+FNth(bdate%):b%!4=0:SYS "Wimp_SetIconState",,b%
 5380IF redo%AND2 THEN $(ind%+3115)=FNmonth(bmonth%):b%!4=1:SYS "Wimp_SetIconState",,b%
 5390IF redo%AND4 THEN $(ind%+3125)=STR$byear%:b%!4=2:SYS "Wimp_SetIconState",,b%
 5400ENDPROC
 5410:
 5420DEFFNmax(month%,year%)
 5430LOCAL days%
 5440CASE month% OF
 5450WHEN 1,3,5,7,8,10,12:days%=31
 5460WHEN 4,6,9,11:days%=30
 5470WHEN 2:days%=28-FNleapyear(year%)
 5480ENDCASE
 5490=days%
 5500:
 5510DEFPROCfillnewleague
 5520LOCAL l%
 5530ptr%=0:leaguename$=zleaguename$:$(ind%+2700)="LeagueFile"
 5540sdate%=zdate%:smonth%=zmonth%:syear%=zyear%
 5550date%=VALMID$(TIME$,5,2):month%=FNmonthno(MID$(TIME$,8,3)):year%=VALMID$(TIME$,12,4)
 5560IF FNdays(date%,month%,year%)<FNdays(sdate%,smonth%,syear%) THEN date%=sdate%:month%=smonth%:year%=syear%
 5570name$()=zname$()
 5580wi%()=zwi%()
 5590dr%()=zdr%()
 5600lo%()=zlo%()
 5610gd%()=zgd%()
 5620swi%()=wi%():sdr%()=dr%():slo%()=lo%():sgd%()=gd%()
 5630tablefilled%=TRUE:PROCnotsaved
 5640PROCfilltable(TRUE)
 5650ENDPROC
 5660:
 5670DEFPROCheadstart
 5680steam%=1:PROCfillstart(0):PROCopenstart
 5690ENDPROC
 5700:
 5710DEFPROCsave(file$,safe%)
 5720LOCAL file%
 5730IF FNoktosave(file$)=FALSE THEN SYS "Wimp_CreateMenu",,-1:ENDPROC
 5740SYS "OS_File",11,file$,leaguefile%,0,0
 5750file%=OPENOUTfile$
 5760BPUT#file%,leaguename$:BPUT#file%,STR$sdate%:BPUT#file%,STR$smonth%:BPUT#file%,STR$syear%:BPUT#file%,teams%
 5770FOR l%=1 TO teams%:BPUT#file%,name$(l%):BPUT#file%,STR$swi%(l%):BPUT#file%,STR$sdr%(l%):BPUT#file%,STR$slo%(l%):BPUT#file%,STR$sgd%(l%):NEXT:BPUT#file%,STR$ptr%
 5780l%=0:WHILE l%<ptr%:BPUT#file%,data%?l%:l%+=1:ENDWHILE
 5790CLOSE#file%
 5800IF safe%>-1 THEN $(ind%+2700)=file$:PROCsaved
 5810SYS "Wimp_CreateMenu",,-1
 5820ENDPROC
 5830:
 5840DEFPROCdragbox
 5850LOCAL xo%,yo%
 5860!b%=savebox%:SYS "Wimp_GetWindowState",,b%
 5870xo%=b%!4-b%!20:yo%=b%!16-b%!24
 5880b%!4=0:SYS "Wimp_GetIconState",,b%
 5890!b%=savebox%:b%!4=5:b%!8=xo%+b%!8:b%!12=yo%+b%!12:b%!16=xo%+b%!16:b%!20=yo%+b%!20:b%!24=0:b%!28=0:b%!32=&7FFFFFFF:b%!36=&7FFFFFFF:SYS "Wimp_DragBox",,b%
 5900ENDPROC
 5910:
 5920DEFPROCcheckandsave
 5930LOCAL l%
 5940IF INSTR(FNzero(ind%+2700),".") THEN PROCsave(FNzero(ind%+2700),0) ELSE l%=FNwimperror(1,"To save, drag the icon to a directory viewer",17)
 5950ENDPROC
 5960:
 5970DEFFNleafname(file$)
 5980WHILE INSTR(file$,"."):file$=MID$(file$,INSTR(file$,".")+1):ENDWHILE
 5990=file$
 6000:
 6010DEFPROCsenddatasave
 6020SYS "Wimp_GetPointerInfo",,b%
 6030b%!20=b%!12:b%!24=b%!16:b%!28=!b%:b%!32=b%!4:b%!36=3200:!b%=256:b%!12=0:b%!16=1:b%!40=leaguefile%:$(b%+44)=FNleafname(FNzero(ind%+2700)):SYS "Wimp_SendMessage",17,b%,b%!20,b%!24
 6040ENDPROC
 6050:
 6060DEFPROCdragsave
 6070PROCsave(FNzero(b%+44),b%!36)
 6080b%!12=b%!8:b%!16=3:!b%=256:SYS "Wimp_SendMessage",18,b%,b%!20,b%!24
 6090ENDPROC
 6100:
 6110DEFFNoktosave(file$)
 6120LOCAL result%,l%
 6130SYS "OS_File",17,file$ TO result%,,l%
 6140IF result%=0 THEN =TRUE
 6150IF result%=2 THEN l%=FNwimperror(1,"Object is a directory",18):=FALSE
 6160IF (l%AND&FFF00)=leaguefile%*&100 THEN =TRUE
 6170IF NOT FNwimperror(1,"File'"+file$+"' exists. Overwrite?",19) THEN =TRUE ELSE =FALSE
 6180:
 6190DEFPROCresults
 6200LOCAL l%,la%,lb%,lc%,ld%,le%,lf%,lg%,lh%,down%,l$
 6210LOCAL DATA
 6220RESTORE +0
 6230!b%=result%:SYS "Wimp_CloseWindow",,b%
 6240used%()=0:la%=1:b%!8=4:b%!12=4
 6250FOR l%=13-((teams%+1)DIV2) TO 12
 6260$(ind%+1874+(l%*26))=name$(la%):res%(l%)=la%:la%+=1
 6270b%!4=l%:SYS "Wimp_SetIconState",,b%:used%(l%)=-1
 6280NEXT
 6290FOR l%=25-((teams%+1)DIV2) TO 24-teams%MOD2
 6300$(ind%+1874+(l%*26))=name$(la%):res%(l%)=la%:la%+=1
 6310b%!4=l%:SYS "Wimp_SetIconState",,b%:used%(l%)=-1
 6320NEXT
 6330!b%=result%:b%!8=0:b%!12=4:l%=0:WHILE l%<(24-teams%)DIV2:l%+=1:ind%?(1874+(26*l%))=0:b%!4=l%:SYS "Wimp_SetIconState",,b%:ind%?(2186+(26*l%))=0:b%!4=l%+12:SYS "Wimp_SetIconState",,b%:ENDWHILE
 6340IF teams%MOD2 THEN !b%=result%:b%!4=24:b%!8=0:b%!12=&F000:ind%?2498=45:ind%?2499=0:ind%?2522=49:SYS "Wimp_SetIconState",,b%
 6350down%=(52*((24-teams%)DIV2)):!b%=result%:FOR l%=37 TO 41:b%!4=l%:SYS "Wimp_DeleteIcon",,b%:READ la%,l$:lb%=EVALl$:READ lc%,l$:ld%=EVALl$:READ le%,l$:lf%=EVALl$:READ l$,lh%:lg%=EVALl$
 6360b%!4=la%:b%!8=lb%:b%!12=lc%:b%!16=ld%:b%!20=le%:b%!24=lf%:b%!28=lg%:b%!32=lh%:SYS "Wimp_CreateIcon",,b%:NEXT
 6370PROCfillrdate
 6380PROCinfo1
 6390!b%=-24:b%!4=-820:b%!8=814:b%!12=64-down%:SYS "Wimp_SetExtent",result%,b%
 6400!b%=result%:SYS "Wimp_GetWindowState",,b%:b%!12=b%!4+838:b%!16=b%!8+884:b%!20=-24:b%!24=64:b%!28=-1:SYS "Wimp_OpenWindow",,b%
 6410ENDPROC
 6420DATA -26,-44-down%,826,76-down%,&17000038,0,0,0
 6430DATA -2,-36-down%,796,56-down%,&1700013F,ind%+2615,ind%+2617,1
 6440DATA 16,-8-down%,204,24-down%,&C7000019,&6374614D,&61642068,&3A6574
 6450DATA 208,-20-down%,692,40-down%,&C700311D,ind%+2620,ind%+2650,30
 6460DATA 708,-12-down%,752,32-down%,&C700311B,ind%+2663,ind%+2670,1
 6470:
 6480DEFPROCinfo1
 6490LOCAL l%
 6500$(ind%+2564)="*":$(ind%+2587)="-":$(ind%+2590)="-":$(ind%+2613)="-"
 6510!b%=result%:b%!8=0:b%!12=0
 6520FOR l%=33 TO 36
 6530b%!4=l%:SYS "Wimp_SetIconState",,b%
 6540NEXT
 6550b%!8=0:b%!12=&F000
 6560FOR l%=25 TO 29
 6570ind%?(2402+(5*l%))=49
 6580b%!4=l%:SYS "Wimp_SetIconState",,b%
 6590NEXT
 6600b%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 6610b%!8=&3000:b%!12=&F000
 6620FOR l%=1 TO 24
 6630IF used%(l%) THEN ind%?(1898+(26*l%))=53:b%!4=l%:SYS "Wimp_SetIconState",,b%
 6640NEXT
 6650r%=1
 6660SYS "Wimp_SetCaretPosition",-1
 6670ENDPROC
 6680:
 6690DEFPROCinfo2
 6700LOCAL l%
 6710ind%?2587=0:$(ind%+2590)="-":$(ind%+2613)="-"
 6720!b%=result%:b%!8=0:b%!12=0
 6730FOR l%=33 TO 36
 6740b%!4=l%:SYS "Wimp_SetIconState",,b%
 6750NEXT
 6760b%!8=&3000:b%!12=&F000
 6770FOR l%=25 TO 29
 6780ind%?(2402+(5*l%))=53
 6790b%!4=l%:SYS "Wimp_SetIconState",,b%
 6800NEXT
 6810b%!4=30:ind%?2558=53:b%!8=&7003000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 6820b%!8=0:b%!12=&F000
 6830FOR l%=1 TO 24
 6840IF used%(l%) THEN ind%?(1898+(26*l%))=49:b%!4=l%:SYS "Wimp_SetIconState",,b%
 6850NEXT
 6860SYS "Wimp_SetCaretPosition",result%,34,,,-1,0
 6870r%=2
 6880ENDPROC
 6890:
 6900DEFPROCinfo3
 6910LOCAL l%
 6920$(ind%+2590)="*":$(ind%+2613)="-"
 6930!b%=result%:b%!8=0:b%!12=0
 6940FOR l%=33 TO 36
 6950b%!4=l%:SYS "Wimp_SetIconState",,b%
 6960NEXT
 6970b%!8=0:b%!12=&F000
 6980FOR l%=25 TO 29
 6990ind%?(2402+(5*l%))=49
 7000b%!4=l%:SYS "Wimp_SetIconState",,b%
 7010NEXT
 7020b%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 7030b%!12=&F000
 7040FOR l%=1 TO 24
 7050IF used%(l%) THEN
 7060IF res%(l%)=t1% THEN ind%?(1898+(26*l%))=49:b%!8=0 ELSE ind%?(1898+(26*l%))=53:b%!8=&3000
 7070b%!4=l%:SYS "Wimp_SetIconState",,b%
 7080ENDIF
 7090NEXT
 7100r%=3
 7110SYS "Wimp_SetCaretPosition",-1
 7120ENDPROC
 7130:
 7140DEFPROCinfo4
 7150LOCAL l%
 7160ind%?2613=0
 7170!b%=result%:b%!8=0:b%!12=0
 7180FOR l%=33 TO 36
 7190b%!4=l%:SYS "Wimp_SetIconState",,b%
 7200NEXT
 7210b%!8=&3000:b%!12=&F000
 7220FOR l%=25 TO 29
 7230ind%?(2402+(5*l%))=53
 7240b%!4=l%:SYS "Wimp_SetIconState",,b%
 7250NEXT
 7260b%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 7270b%!12=&F000:b%!8=0
 7280FOR l%=1 TO 24
 7290IF used%(l%) THEN ind%?(1898+(26*l%))=49:b%!4=l%:SYS "Wimp_SetIconState",,b%
 7300NEXT
 7310SYS "Wimp_SetCaretPosition",result%,36,,,-1,0
 7320r%=4
 7330ENDPROC
 7340:
 7350DEFPROCscore(score%)
 7360IF r%=2 THEN s1%=score%:$(ind%+2587)=STR$score%:PROCinfo3 ELSE s2%=score%:PROCrecord:PROCinfo1
 7370ENDPROC
 7380:
 7390DEFPROCrecord
 7400data%!ptr%=EVAL("%"+FNbin(rdate%,5)+FNbin(rmonth%,4)+FNbin(ryear%-1990,5)+FNbin(t1%,5)+FNbin(t2%,5)+FNbin(s1%,4)+FNbin(s2%,4))
 7410ptr%+=4:PROCnotsaved:current%=ptr%/4:PROCfillfiler:PROCungrey
 7420ENDPROC
 7430:
 7440DEFFNdat(word%)
 7450=EVAL ("%"+MID$(FNstr(word%),1,5))
 7460:
 7470DEFFNmon(word%)
 7480=EVAL ("%"+MID$(FNstr(word%),6,4))
 7490:
 7500DEFFNyr(word%)
 7510=1990+EVAL ("%"+MID$(FNstr(word%),10,5))
 7520:
 7530DEFFNt1(word%)
 7540=EVAL ("%"+MID$(FNstr(word%),15,5))
 7550:
 7560DEFFNt2(word%)
 7570=EVAL ("%"+MID$(FNstr(word%),20,5))
 7580:
 7590DEFFNs1(word%)
 7600=EVAL ("%"+MID$(FNstr(word%),25,4))
 7610:
 7620DEFFNs2(word%)
 7630=EVAL ("%"+MID$(FNstr(word%),29,4))
 7640:
 7650DEFPROCunset(icon%)
 7660!e%=result%:e%!4=icon%:e%!8=0:e%!12=&200000
 7670SYS "Wimp_SetIconState",,e%
 7680ENDPROC
 7690:
 7700DEFFNbin(number%,len%)
 7710LOCAL l%,l$:l$=""
 7720FOR l%=(len%-1) TO 0 STEP -1
 7730IF number%AND(2^l%) THEN l$+="1" ELSE l$+="0"
 7740NEXT
 7750=l$
 7760:
 7770DEFFNstr(datapos%)
 7780LOCAL l%,ll%,lll%,l$:l$=""
 7790FOR l%=3 TO 0 STEP -1
 7800lll%=data%?(datapos%+l%)
 7810FOR ll%=7 TO 0 STEP -1
 7820IF lll%>=2^ll% THEN lll%-=2^ll%:l$+="1" ELSE l$+="0"
 7830NEXT
 7840NEXT
 7850=l$
 7860:
 7870DEFPROCsaved
 7880IF saved% THEN ENDPROC
 7890tabledata%?13=0
 7900!e%=premtable%:SYS "Wimp_GetWindowState",,e%:IF (e%!32)AND(2^16) THEN SYS "Wimp_CloseWindow",,e%:SYS "Wimp_OpenWindow",,e%
 7910saved%=TRUE
 7920ENDPROC
 7930:
 7940DEFPROCnotsaved
 7950IF NOT saved% THEN ENDPROC
 7960tabledata%?13=42
 7970!e%=premtable%:SYS "Wimp_GetWindowState",,e%:IF (e%!32)AND(2^16) THEN SYS "Wimp_CloseWindow",,e%:SYS "Wimp_OpenWindow",,e%
 7980saved%=FALSE
 7990ENDPROC
 8000:
 8010DEFPROCfillfiler
 8020LOCAL l%
 8030IF ptr%=0 THEN
 8040$(ind%+3914)="No results":ind%?3929=0:ind%?3959=0:$(ind%+4013)="0":$(ind%+4036)="0":current%=0:ind%?4109=49:!b%=filer%:b%!4=9:b%!8=&3000000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 8050ELSE
 8060l%=(current%-1)*4:ind%?3914=0:$(ind%+3929)=FNday(FNdat(l%),FNmon(l%),FNyr(l%))+" "+STR$FNdat(l%)+FNth(FNdat(l%))+" "+FNmonth(FNmon(l%))+" "+STR$FNyr(l%)
 8070IF FNt2(l%)=0 THEN
 8080CASE FNs1(l%) OF
 8090WHEN 1:$(ind%+3959)="Win awarded to "+name$(FNt1(l%))
 8100WHEN 2:$(ind%+3959)="Draw awarded to "+name$(FNt1(l%))
 8110WHEN 3:$(ind%+3959)="Loss awarded to "+name$(FNt1(l%))
 8120WHEN 4:IF FNs2(l%)>1 THEN $(ind%+3959)=STR$FNs2(l%)+" points awarded to "+name$(FNt1(l%)) ELSE $(ind%+3959)="1 point awarded to "+name$(FNt1(l%))
 8130WHEN 5:IF FNs2(l%)>1 THEN $(ind%+3959)=STR$FNs2(l%)+" points deducted from "+name$(FNt1(l%)) ELSE $(ind%+3959)="1 point deducted from "+name$(FNt1(l%))
 8140ENDCASE
 8150ELSE
 8160$(ind%+3959)=name$(FNt1(l%))+" "+STR$FNs1(l%)+" v "+STR$FNs2(l%)+" "+name$(FNt2(l%))
 8170ENDIF
 8180$(ind%+4013)=STR$(current%):$(ind%+4036)=STR$(ptr%/4)
 8190ind%?4109=53:!b%=filer%:b%!4=9:b%!8=&7003000:b%!12=&F00F000:SYS "Wimp_SetIconState",,b%
 8200ENDIF
 8210!b%=filer%:b%!8=0:b%!12=0
 8220b%!4=3:SYS "Wimp_SetIconState",,b%
 8230b%!4=4:SYS "Wimp_SetIconState",,b%
 8240b%!4=10:SYS "Wimp_SetIconState",,b%
 8250ENDPROC
 8260:
 8270DEFPROCdelete
 8280LOCAL l%
 8290ptr%-=4
 8300l%=(current%-1)*4
 8310WHILE l%<ptr%
 8320data%!l%=data%!(l%+4)
 8330l%+=4
 8340ENDWHILE
 8350IF current%>ptr%/4 THEN current%-=1
 8360PROCfillfiler
 8370PROCnotsaved
 8380PROCungrey
 8390ENDPROC
 8400:
 8410DEFPROCcheckforload
 8420LOCAL call$
 8430SYS "OS_GetEnv" TO call$
 8440call$=MID$(call$,INSTR(call$," -file ")+7)
 8450IF call$<>"" THEN PROCloadtable(call$)
 8460ENDPROC
 8470:
 8480DEFPROCdatebox
 8490CASE dtype% OF
 8500WHEN 1,2:CASE b%!16 OF
 8510WHEN 3:CASE b%!8 OF
 8520WHEN 4:IF bdate%>1 THEN
 8530IF FNdays(bdate%-1,bmonth%,byear%)>=FNdays(sdate%,smonth%,syear%) THEN bdate%-=1:PROCfillbdate(1)
 8540ELSE
 8550IF bmonth%>1 THEN
 8560IF FNdays(FNmax(bmonth%-1,byear%),bmonth%-1,byear%)>=FNdays(sdate%,smonth%,syear%) THEN bdate%=FNmax(bmonth%-1,byear%):bmonth%-=1:PROCfillbdate(3)
 8570ELSE
 8580IF FNdays(31,12,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN bdate%=31:bmonth%=12:byear%-=1:PROCfillbdate(7)
 8590ENDIF
 8600ENDIF
 8610WHEN 1:IF bdate%<FNmax(bmonth%,byear%) THEN
 8620bdate%+=1:PROCfillbdate(1)
 8630ELSE
 8640IF bmonth%<12 THEN
 8650bmonth%+=1:bdate%=1:PROCfillbdate(3)
 8660ELSE
 8670IF byear%<2021 THEN bmonth%=1:bdate%=1:byear%+=1:PROCfillbdate(7)
 8680ENDIF
 8690ENDIF
 8700ENDCASE
 8710WHEN 4:CASE b%!8 OF
 8720WHEN 1:IF bdate%>1 THEN
 8730IF FNdays(bdate%-1,bmonth%,byear%)>=FNdays(sdate%,smonth%,syear%) THEN bdate%-=1:PROCfillbdate(1)
 8740ELSE
 8750IF bmonth%>1 THEN
 8760IF FNdays(FNmax(bmonth%-1,byear%),bmonth%-1,byear%)>=FNdays(sdate%,smonth%,syear%) THEN bdate%=FNmax(bmonth%-1,byear%):bmonth%-=1:PROCfillbdate(3)
 8770ELSE
 8780IF FNdays(31,12,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN bdate%=31:bmonth%=12:byear%-=1:PROCfillbdate(7)
 8790ENDIF
 8800ENDIF
 8810WHEN 4:IF bdate%<FNmax(bmonth%,byear%) THEN
 8820bdate%+=1:PROCfillbdate(1)
 8830ELSE
 8840IF bmonth%<12 THEN
 8850bmonth%+=1:bdate%=1:PROCfillbdate(3)
 8860ELSE
 8870IF byear%<2021 THEN bmonth%=1:bdate%=1:byear%+=1:PROCfillbdate(7)
 8880ENDIF
 8890ENDIF
 8900ENDCASE
 8910WHEN 5:CASE b%!8 OF
 8920WHEN 4:IF bmonth%>1 THEN
 8930IF FNdays(bdate%,bmonth%-1,byear%)>=FNdays(sdate%,smonth%,syear%) THEN
 8940bmonth%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(2)
 8950ELSE
 8960IF smonth%=bmonth%-1 THEN bmonth%=smonth%:bdate%=sdate%:PROCfillbdate(3)
 8970ENDIF
 8980ELSE
 8990IF FNdays(bdate%,12,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN
 9000bmonth%=12:byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(7) ELSE PROCfillbdate(6)
 9010ELSE
 9020IF syear%=byear%-1 THEN byear%-=1:bmonth%=12:bdate%=sdate%:PROCfilldate(3)
 9030ENDIF
 9040ENDIF
 9050WHEN 1:IF bmonth%<12 THEN
 9060bmonth%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(2)
 9070ELSE
 9080IF byear%<2021 THEN byear%+=1:bmonth%=1:PROCfillbdate(7)
 9090ENDIF
 9100ENDCASE
 9110WHEN 6:CASE b%!8 OF
 9120WHEN 1:IF bmonth%>1 THEN
 9130IF FNdays(bdate%,bmonth%-1,byear%)>=FNdays(sdate%,smonth%,syear%) THEN
 9140bmonth%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(2)
 9150ELSE
 9160IF smonth%=bmonth%-1 THEN bmonth%=smonth%:bdate%=sdate%:PROCfillbdate(3)
 9170ENDIF
 9180ELSE
 9190IF FNdays(bdate%,12,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN
 9200bmonth%=12:byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(7) ELSE PROCfillbdate(6)
 9210ELSE
 9220IF syear%=byear%-1 THEN byear%-=1:bmonth%=12:bdate%=sdate%:PROCfilldate(3)
 9230ENDIF
 9240ENDIF
 9250WHEN 4:IF bmonth%<12 THEN
 9260bmonth%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(2)
 9270ELSE
 9280IF byear%<2021 THEN byear%+=1:bmonth%=1:PROCfillbdate(7)
 9290ENDIF
 9300ENDIF
 9310ENDCASE
 9320WHEN 7:CASE b%!8 OF
 9330WHEN 4:IF byear%>1990:IF FNdays(bdate%,bmonth%,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN
 9340byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(5) ELSE PROCfillbdate(4)
 9350ELSE
 9360IF syear%=byear%-1 THEN byear%-=1:bmonth%=smonth%:bdate%=sdate%:PROCfillbdate(7)
 9370ENDIF
 9380WHEN 1:IF byear%<2021 THEN
 9390byear%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(5) ELSE PROCfillbdate(4)
 9400ENDIF
 9410ENDCASE
 9420WHEN 8:CASE b%!8 OF
 9430WHEN 1:IF byear%>1990:IF FNdays(bdate%,bmonth%,byear%-1)>=FNdays(sdate%,smonth%,syear%) THEN
 9440byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(5) ELSE PROCfillbdate(4)
 9450ELSE
 9460IF syear%=byear%-1 THEN byear%-=1:bmonth%=smonth%:bdate%=sdate%:PROCfillbdate(7)
 9470ENDIF
 9480WHEN 4:IF byear%<2021 THEN
 9490byear%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(5) ELSE PROCfillbdate(4)
 9500ENDIF
 9510ENDCASE
 9520WHEN 9:SYS "Wimp_CreateMenu",,-1:IF dtype%=1 THEN date%=bdate%:month%=bmonth%:year%=byear%:PROCfilltable(FALSE) ELSE rdate%=bdate%:rmonth%=bmonth%:ryear%=byear%:PROCfillrdate
 9530ENDCASE
 9540WHEN 3:CASE b%!16 OF
 9550WHEN 3:CASE b%!8 OF
 9560WHEN 4:IF bdate%>1 THEN
 9570bdate%-=1:PROCfillbdate(1)
 9580ELSE
 9590IF bmonth%>1 THEN
 9600bmonth%-=1:bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3)
 9610ELSE
 9620IF byear%>1990 THEN byear%-=1:bmonth%=12:bdate%=31:PROCfillbdate(7)
 9630ENDIF
 9640ENDIF
 9650WHEN 1:IF bdate%<FNmax(bmonth%,byear%) THEN
 9660bdate%+=1:PROCfillbdate(1)
 9670ELSE
 9680IF bmonth%<12 THEN
 9690bmonth%+=1:bdate%=1:PROCfillbdate(3)
 9700ELSE
 9710IF byear%<2021 THEN byear%+=1:bmonth%=1:bdate%=1:PROCfillbdate(7)
 9720ENDIF
 9730ENDIF
 9740ENDCASE
 9750WHEN 4:CASE b%!8 OF
 9760WHEN 1:IF bdate%>1 THEN
 9770bdate%-=1:PROCfillbdate(1)
 9780ELSE
 9790IF bmonth%>1 THEN
 9800bmonth%-=1:bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3)
 9810ELSE
 9820IF byear%>1990 THEN byear%-=1:bmonth%=12:bdate%=31:PROCfillbdate(7)
 9830ENDIF
 9840ENDIF
 9850WHEN 4:IF bdate%<FNmax(bmonth%,byear%) THEN
 9860bdate%+=1:PROCfillbdate(1)
 9870ELSE
 9880IF bmonth%<12 THEN
 9890bmonth%+=1:bdate%=1:PROCfillbdate(3)
 9900ELSE
 9910IF byear%<2021 THEN byear%+=1:bmonth%=1:bdate%=1:PROCfillbdate(7)
 9920ENDIF
 9930ENDIF
 9940ENDCASE
 9950WHEN 5:CASE b%!8 OF
 9960WHEN 4:IF bmonth%>1 THEN
 9970bmonth%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(3)
 9980ELSE
 9990IF byear%>1990 THEN byear%-=1:bmonth%=12:PROCfillbdate(7)
10000ENDIF
10010WHEN 1:IF bmonth%<12 THEN
10020bmonth%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(3)
10030ELSE
10040IF byear%<2021 THEN byear%+=1:bmonth%=1:PROCfillbdate(7)
10050ENDIF
10060ENDCASE
10070WHEN 6:CASE b%!8 OF
10080WHEN 1:IF bmonth%>1 THEN
10090bmonth%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(3)
10100ELSE
10110IF byear%>1990 THEN byear%-=1:bmonth%=12:PROCfillbdate(7)
10120ENDIF
10130WHEN 4:IF bmonth%<12 THEN
10140bmonth%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=FNmax(bmonth%,byear%):PROCfillbdate(3) ELSE PROCfillbdate(3)
10150ELSE
10160IF byear%<2021 THEN byear%+=1:bmonth%=1:PROCfillbdate(7)
10170ENDIF
10180ENDCASE
10190WHEN 7:CASE b%!8 OF
10200WHEN 4:IF byear%>1990 THEN
10210byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=28:PROCfillbdate(7) ELSE PROCfillbdate(7)
10220ENDIF
10230WHEN 1:IF byear%<2021 THEN
10240byear%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=28:PROCfillbdate(7) ELSE PROCfillbdate(7)
10250ENDIF
10260ENDCASE
10270WHEN 8:CASE b%!8 OF
10280WHEN 1:IF byear%>1990 THEN
10290byear%-=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=28:PROCfillbdate(7) ELSE PROCfillbdate(7)
10300ENDIF
10310WHEN 4:IF byear%<2021 THEN
10320byear%+=1:IF bdate%>FNmax(bmonth%,byear%) THEN bdate%=28:PROCfillbdate(7) ELSE PROCfillbdate(7)
10330ENDIF
10340ENDCASE
10350WHEN 9:SYS "Wimp_CreateMenu",,-1:zdate%=bdate%:zmonth%=bmonth%:zyear%=byear%:$(ind%+940)=FNday(zdate%,zmonth%,zyear%)+" "+STR$zdate%+FNth(zdate%)+" "+FNmonth(zmonth%)+" "+STR$zyear%
10360!b%=newleague%:b%!4=25:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
10370ENDCASE
10380REM next dtype here
10390ENDCASE
10400ENDPROC
10410:
10420DEFPROCopendbox
10430!b%=datebox%:b%!4=9:b%!8=0:b%!12=&200000:SYS "Wimp_SetIconState",,b%
10440PROCfillbdate(7):SYS "Wimp_GetPointerInfo",,b%:SYS "Wimp_CreateMenu",,datebox%,!b%,b%!4
10450SYS "Wimp_SetCaretPosition",datebox%,11,,,-1,0
10460ENDPROC
10470:
10480DEFPROCgrey
10490IF grey% THEN ENDPROC
10500tabledata%?1190=49:grey%=-1:!e%=premtable%:e%!4=214:e%!8=&3000000:e%!12=&F00F000:SYS "Wimp_SetIconState",,e%
10510ENDPROC
10520:
10530DEFPROCungrey
10540IF NOT grey% THEN ENDPROC
10550tabledata%?1190=53:grey%=0:!e%=premtable%:e%!4=214:e%!8=&7003000:e%!12=&F00F000:SYS "Wimp_SetIconState",,e%
10560ENDPROC
10570:
10580DEFPROCsgrey(icon%)
10590CASE icon% OF
10600WHEN 37:ind%?3759=49
10610WHEN 38:ind%?3769=49
10620ENDCASE
10630!e%=midstart%:e%!4=icon%:e%!8=&3000000:e%!12=&F00F000:SYS "Wimp_SetIconState",,e%
10640ENDPROC
10650:
10660DEFPROCsungrey(icon%)
10670CASE icon% OF
10680WHEN 37:ind%?3759=53
10690WHEN 38:ind%?3769=54
10700ENDCASE
10710!e%=midstart%:e%!4=icon%:e%!8=&7003000:e%!12=&F00F000:SYS "Wimp_SetIconState",,e%
10720ENDPROC
10730:
10740DEFPROClaststart
10750ind%?3800=54:!e%=midstart%:e%!4=40:e%!8=0:e%!12=0:SYS "Wimp_SetIconState",,e%:PROCsgrey(38)
10760ENDPROC
10770:
10780DEFPROCnlaststart
10790ind%?3800=53:!e%=midstart%:e%!4=40:e%!8=0:e%!12=0:SYS "Wimp_SetIconState",,e%:PROCsungrey(38)
10800ENDPROC
10810:
10820DEFPROCfillstart(caret%)
10830$(ind%+3400)=FNday(zdate%,zmonth%,zyear%)+", "+STR$(zdate%)+FNth(zdate%)+" "+FNmonth(zmonth%)+" "+STR$zyear%
10840$(ind%+3489)=zname$(steam%):$(ind%+3547)=STR$zwi%(steam%):$(ind%+3597)=STR$zdr%(steam%):$(ind%+3647)=STR$zlo%(steam%):$(ind%+3697)=FNsign(zgd%(steam%))+STR$ABSzgd%(steam%)
10850$(ind%+3728)=STR$(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3731)=STR$zwi%(steam%):$(ind%+3734)=STR$zdr%(steam%):$(ind%+3737)=STR$zlo%(steam%):$(ind%+3740)=FNsign(zgd%(steam%))+STR$ABSzgd%(steam%)
10860$(ind%+3745)=STR$((3*zwi%(steam%))+zdr%(steam%))
10870$(ind%+3802)=zleaguename$
10880IF caret% THEN
10890IF VALFNzero(ind%+3547)=0 THEN ind%?3547=0
10900SYS "Wimp_SetCaretPosition",midstart%,14,,,-1,FNlen(ind%+3547)
10910ELSE
10920SYS "Wimp_GetCaretPosition",,b%
10930IF !b%=midstart% THEN
10940IF VALFNzero(ind%+3547+(((b%!4)-14)*50/3))=0 THEN ind%?(3547+(((b%!4)-14)*50/3))=0
10950SYS "Wimp_SetCaretPosition",midstart%,b%!4,,,-1,FNlen(ind%+3547+(((b%!4)-14)*50/3))
10960ENDIF
10970ENDIF
10980!b%=midstart%:b%!4=5:b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%:b%!4=14:SYS "Wimp_SetIconState",,b%:b%!4=17:SYS "Wimp_SetIconState",,b%:b%!4=20:SYS "Wimp_SetIconState",,b%:b%!4=23:SYS "Wimp_SetIconState",,b%
10990b%!4=31:SYS "Wimp_SetIconState",,b%:b%!4=32:SYS "Wimp_SetIconState",,b%:b%!4=33:SYS "Wimp_SetIconState",,b%:b%!4=34:SYS "Wimp_SetIconState",,b%:b%!4=35:SYS "Wimp_SetIconState",,b%:b%!4=36:SYS "Wimp_SetIconState",,b%
11000IF steam%=1 THEN PROCsgrey(37) ELSE PROCsungrey(37)
11010IF steam%=teams% THEN PROClaststart ELSE PROCnlaststart
11020ENDPROC
11030:
11040DEFPROCopenstart
11050!b%=midstart%:b%!4=39:b%!8=0:b%!12=&200000:SYS "Wimp_SetIconState",,b%:b%!4=40:SYS "Wimp_SetIconState",,b%
11060SYS "Wimp_GetWindowState",,b%:b%!28=-1:SYS "Wimp_OpenWindow",,b%
11070ENDPROC
11080:
11090DEFPROCrestart(flag%,caret%)
11100LOCAL la%,lb%,lc%,ld%,le%,lf%,lg%,lh%,li%,lj%
11110IF flag%AND1 THEN
11120$(ind%+3547)=STR$zwi%(steam%):$(ind%+3731)=STR$zwi%(steam%):$(ind%+3728)=STR$(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3745)=STR$((3*zwi%(steam%))+zdr%(steam%))
11130la%=-1:le%=-1:lf%=-1:lj%=-1
11140ENDIF
11150IF flag%AND2 THEN
11160$(ind%+3597)=STR$zdr%(steam%):$(ind%+3728)=STR$(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3734)=STR$zdr%(steam%):$(ind%+3745)=STR$((3*zwi%(steam%))+zdr%(steam%))
11170lb%=-1:le%=-1:lg%=-1:lj%=-1
11180ENDIF
11190IF flag%AND4 THEN
11200$(ind%+3647)=STR$zlo%(steam%):$(ind%+3728)=STR$(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3737)=STR$zlo%(steam%):$(ind%+3745)=STR$((3*zwi%(steam%))+zdr%(steam%))
11210lc%=-1:le%=-1:lh%=-1:lj%=-1
11220ENDIF
11230IF flag%AND8 THEN
11240$(ind%+3697)=FNsign(zgd%(steam%))+STR$ABSzgd%(steam%):$(ind%+3740)=FNsign(zgd%(steam%))+STR$ABSzgd%(steam%)
11250ld%=-1:li%=-1
11260ENDIF
11270!e%=midstart%:e%!8=0:e%!12=0
11280IF la% THEN e%!4=14:SYS "Wimp_SetIconState",,e%
11290IF lb% THEN e%!4=17:SYS "Wimp_SetIconState",,e%
11300IF lc% THEN e%!4=20:SYS "Wimp_SetIconState",,e%
11310IF ld% THEN e%!4=23:SYS "Wimp_SetIconState",,e%
11320IF le% THEN e%!4=31:SYS "Wimp_SetIconState",,e%
11330IF lf% THEN e%!4=32:SYS "Wimp_SetIconState",,e%
11340IF lg% THEN e%!4=33:SYS "Wimp_SetIconState",,e%
11350IF lh% THEN e%!4=34:SYS "Wimp_SetIconState",,e%
11360IF li% THEN e%!4=35:SYS "Wimp_SetIconState",,e%
11370IF lj% THEN e%!4=36:SYS "Wimp_SetIconState",,e%
11380IF caret%=0 THEN
11390SYS "Wimp_GetCaretPosition",,b%
11400IF !b%=midstart% THEN SYS "Wimp_SetCaretPosition",midstart%,b%!4,,,-1,FNlen(ind%+3547+(((b%!4)-14)*50/3))
11410ELSE
11420IF VALFNzero(ind%+3547+(caret%*50))=0 THEN ind%?(3547+(caret%*50))=0
11430!b%=midstart%:b%!4=14+(caret%*3):b%!8=0:b%!12=0:SYS "Wimp_SetIconState",,b%
11440SYS "Wimp_SetCaretPosition",midstart%,14+(caret%*3),,,-1,FNlen(ind%+3547+(caret%*50))
11450ENDIF
11460ENDPROC
11470:
11480DEFPROCclickteam
11490LOCAL l%:l%=b%!16
11500IF r%=1 THEN t1%=res%(b%!16):$(ind%+2564)=name$(t1%):PROCinfo2:PROCunset(l%) ELSE t2%=res%(b%!16):$(ind%+2590)=name$(t2%):PROCinfo4:PROCunset(l%)
11510ENDPROC
11520:
11530DEFPROCspecial
11540LOCAL l%
11550PROCradio(16,0)
11560!b%=special%:b%!4=16:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%
11570b%!8=0:FOR l%=17 TO 20:b%!4=l%:SYS "Wimp_SetIconState",,b%:NEXT
11580b%!8=&400000:b%!12=&40F000:FOR l%=10 TO 15:b%!4=l%:SYS "Wimp_SetIconState",,b%:NEXT
11590$(ind%+1524)=name$(t1%)
11600$(ind%+1550)=FNday(rdate%,rmonth%,ryear%)+" "+STR$(rdate%)+FNth(rdate%)+" "+FNmonth(rmonth%)+" "+STR$ryear%
11610$(ind%+1583)="2":$(ind%+1633)="2"
11620SYS "Wimp_GetPointerInfo",,b%:SYS "Wimp_CreateMenu",,special%,!b%,b%!4
11630SYS "Wimp_SetCaretPosition",special%,23,,,-1,0
11640ENDPROC
11650:
11660DEFPROCradio(icon%,caret%)
11670!b%=special%:b%!4=icon%:b%!8=&200000:b%!12=&200000:SYS "Wimp_SetIconState",,b%
11680IF icon%<>radio% THEN
11690b%!4=radio%:b%!8=0:SYS "Wimp_SetIconState",,b%
11700CASE radio% OF
11710WHEN 19:b%!8=&400000:b%!12=&40F000:FOR l%=10 TO 12:b%!4=l%:SYS "Wimp_SetIconState",,b%:NEXT:IF caret% THEN SYS "Wimp_SetCaretPosition",special%,23,,,-1,0
11720WHEN 20:b%!8=&400000:b%!12=&40F000:FOR l%=13 TO 15:b%!4=l%:SYS "Wimp_SetIconState",,b%:NEXT:IF caret% THEN SYS "Wimp_SetCaretPosition",special%,23,,,-1,0
11730ENDCASE
11740CASE icon% OF
11750WHEN 19:b%!8=&F000:b%!12=&40F000:b%!4=10:SYS "Wimp_SetIconState",,b%:b%!8=&2000:b%!4=11:SYS "Wimp_SetIconState",,b%:b%!4=12:SYS "Wimp_SetIconState",,b%
11760WHEN 20:b%!8=&F000:b%!12=&40F000:b%!4=13:SYS "Wimp_SetIconState",,b%:b%!8=&2000:b%!4=14:SYS "Wimp_SetIconState",,b%:b%!4=15:SYS "Wimp_SetIconState",,b%
11770ENDCASE
11780radio%=icon%
11790ENDIF
11800ENDPROC
11810:
11820DEFPROCokspecial
11830LOCAL type%,number%
11840SYS "Wimp_CreateMenu",,-1
11850type%=radio%-15
11860CASE type% OF
11870WHEN 1,2,3:number%=0
11880WHEN 4:number%=VALFNzero(ind%+1583):IF number%<1 THEN number%=1 ELSE IF number%>15 THEN number%=15
11890WHEN 5:number%=VALFNzero(ind%+1633):IF number%<1 THEN number%=1 ELSE IF number%>15 THEN number%=15
11900ENDCASE
11910data%!ptr%=EVAL("%"+FNbin(rdate%,5)+FNbin(rmonth%,4)+FNbin(ryear%-1990,5)+FNbin(t1%,5)+FNbin(0,5)+FNbin(type%,4)+FNbin(number%,4))
11920PROCinfo1:ptr%+=4:PROCnotsaved:current%=ptr%/4:PROCfillfiler:PROCungrey
11930ENDPROC
11940:
11950DEFPROCspecialcaret
11960SYS "Wimp_GetCaretPosition",,b%
11970IF !b%=special% THEN
11980CASE b%!4 OF
11990WHEN 10:SYS "Wimp_SetCaretPosition",special%,10,,,-1,FNlen(ind%+1583)
12000WHEN 13:SYS "Wimp_SetCaretPosition",special%,13,,,-1,FNlen(ind%+1633)
12010ENDCASE
12020ELSE
12030SYS "Wimp_SetCaretPosition",special%,23,,,-1,0
12040ENDIF
12050ENDPROC


$��16:�0,0);�$;" at line ";Þ:�
[� b%&100,buffer%8000,tabledata%1200,m%200,e%&100,ind%4200,data%2500,spr%2000:!spr%=2000
�� name$(24),wi%(24),dr%(24),lo%(24),gd%(24),po%(24),pl%(24),rank%(24),ranked%(24),errtime%(2),zwi%(24),zdr%(24),zlo%(24),zgd%(24),zname$(24),swi%(24),sdr%(24),slo%(24),sgd%(24),res%(24),used%(24),xtra%(24)
(]errtimeno%=0:tablefilled%=0:ptr%=0:leaguefile%=&1A1:current%=0:teams%=22:grey%=0:radio%=0
24ș "OS_SpriteOp",266,spr%,"<League$Dir>.Sprites"
<7ș "Wimp_Initialise",200,&4B534154,"Premier League"
F4ș "Wimp_OpenTemplate",,"<League$Dir>.Templates"
PMș "Wimp_LoadTemplate",,buffer%,tabledata%,tabledata%+1200,-1,"premtable"
Z;b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � premtable%
dAș "Wimp_LoadTemplate",,buffer%,ind%,ind%+1300,-1,"newleague"
n;b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � newleague%
xDș "Wimp_LoadTemplate",,buffer%,ind%+1300,ind%+1500,-1,"infobox"
�9b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � infobox%
�Dș "Wimp_LoadTemplate",,buffer%,ind%+1500,ind%+1900,-1,"special"
�9b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � special%
�Cș "Wimp_LoadTemplate",,buffer%,ind%+1900,ind%+2700,-1,"result"
�8b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � result%
�Dș "Wimp_LoadTemplate",,buffer%,ind%+2700,ind%+3000,-1,"savebox"
�9b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � savebox%
�Dș "Wimp_LoadTemplate",,buffer%,ind%+3100,ind%+3400,-1,"datebox"
�9b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � datebox%
�Eș "Wimp_LoadTemplate",,buffer%,ind%+3400,ind%+3900,-1,"midstart"
�:b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � midstart%
�Bș "Wimp_LoadTemplate",,buffer%,ind%+3900,ind%+4200,-1,"filer"
�7b%!64=spr%:ș "Wimp_CreateWindow",,buffer% � filer%
ș "Wimp_CloseTemplate"
I!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&301A:$(b%+24)="!league"
ș "Wimp_CreateIcon",,b%
"$(ind%+2700)="LeagueFile"
,saved%=�:�saved
6�$m%="League":m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=208:m%!20=44:m%!24=0:m%!28=0:m%!32=infobox%:m%!36=&7000021:$(m%+40)="Info":m%!52=0:m%!56=savebox%:m%!60=&7400021:$(m%+64)="Save"
@�m%!76=0:m%!80=-1:m%!84=&7000021:$(m%+88)="New league":m%!100=0:m%!104=-1:m%!108=&7400021:$(m%+112)="New results":m%!124=0:m%!128=-1:m%!132=&7400021:$(m%+136)="View results"
J9m%!148=128:m%!152=-1:m%!156=&7000021:$(m%+160)="Quit"
Tquit%=�
^�checkforload
hA� � � �wimperror(�,�$+"  (internal error code "+Þ+")",3) � �
r�
|$ș "Wimp_Poll",6195,b% � reason%
�Ȏ reason% �
� � 2:ș "Wimp_OpenWindow",,b%
��� 3:� !b%=midstart% � b%!4=39:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:ș "Wimp_CloseWindow",,b% � ș "Wimp_CloseWindow",,b%
�� 6:� b%!8=2 �
�
Ȏ � �
�o� (b%!12=newleague% � (b%!16=25 � b%!16=26)):dtype%=3:bdate%=zdate%:bmonth%=zmonth%:byear%=zyear%:�opendbox
�l� (b%!12=result% � (b%!16=40 � b%!16=41)):dtype%=2:bdate%=rdate%:bmonth%=rmonth%:byear%=ryear%:�opendbox
�
�C� tablefilled% � m%!60=&7000021:m%!108=&7000021:m%!132=&7000021
�~� b%!12=-2 � mx%=!b%-64:my%=360:ș "Wimp_CreateMenu",,m%,mx%,my% � mx%=!b%-64:my%=b%!4+32:ș "Wimp_CreateMenu",,m%,mx%,my%
��
��
�R!e%=b%!12:e%!4=b%!16:ș "Wimp_GetIconState",,e%:� (e%!24�&F000)>0 � Ȏ b%!12 �
p� -2:� b%!8=4 � tablefilled% � !b%=premtable%:ș "Wimp_GetWindowState",,b%:b%!28=-1:ș "Wimp_OpenWindow",,b%
� premtable%:Ȏ b%!16 �
E� 213:dtype%=1:bdate%=date%:bmonth%=month%:byear%=year%:�opendbox
&� 214:�filltable(�)
0�
:� newleague%:Ȏ b%!16 �
D>� 40:!b%=newleague%:ș "Wimp_CloseWindow",,b%:�oknewleague
N1� 39:!b%=newleague%:ș "Wimp_CloseWindow",,b%
XJ� 25,26:dtype%=3:bdate%=zdate%:bmonth%=zmonth%:byear%=zyear%:�opendbox
b�� 28:� b%!8=1 � !b%=newleague%:b%!4=28:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:b%!4=29:b%!8=0:ș "Wimp_SetIconState",,b%
l�� 29:� b%!8=1 � !b%=newleague%:b%!4=29:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:b%!4=28:b%!8=0:ș "Wimp_SetIconState",,b%
v� 33:� b%!8=4 �
��� teams%>2 � teams%-=1:ind%!(52+(37*teams%))=&2D:$(ind%+1158)=�teams%:!b%=newleague%:b%!4=teams%+1:b%!8=0:b%!12=&F000:ș "Wimp_SetIconState",,b%:b%!4=35:b%!12=0:ș "Wimp_SetIconState",,b%
��
��� teams%<24 � ind%!(52+(37*teams%))=0:teams%+=1:$(ind%+1158)=�teams%:!b%=newleague%:b%!4=teams%:b%!8=&F000:b%!12=&F000:ș "Wimp_SetIconState",,b%:b%!4=35:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
�� 34:� b%!8=4 �
��� teams%<24 � ind%!(52+(37*teams%))=0:teams%+=1:$(ind%+1158)=�teams%:!b%=newleague%:b%!4=teams%:b%!8=&F000:b%!12=&F000:ș "Wimp_SetIconState",,b%:b%!4=35:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
ƿ� teams%>2 � teams%-=1:ind%!(52+(37*teams%))=&2D:$(ind%+1158)=�teams%:!b%=newleague%:b%!4=teams%+1:b%!8=0:b%!12=&F000:ș "Wimp_SetIconState",,b%:b%!4=35:b%!12=0:ș "Wimp_SetIconState",,b%
��
��
�� savebox%:Ȏ b%!16 �
�#� 0:� (b%!8 � &50)>0 � �dragbox
�� 2:�checkandsave
�
� result%:Ȏ b%!16 �
� 33:� r%>1 � �info1
 � 34:� r%>2 � �info2
*� 35:� r%>3 � �info3
4J� 40,41:dtype%=2:bdate%=rdate%:bmonth%=rmonth%:byear%=ryear%:�opendbox
>� 25:�score(0):�unset(25)
H� 26:�score(1):�unset(26)
R� 27:�score(2):�unset(27)
\� 28:�score(3):�unset(28)
f� 29:�score(4):�unset(29)
p� 30:�special
z:�clickteam
��
�� filer%:Ȏ b%!16 �
�� 5:Ȏ b%!8 �
�-� 4:� current%>1 � current%-=1:�fillfiler
�2� 1:� current%<ptr%/4 � current%+=1:�fillfiler
��
�� 6:Ȏ b%!8 �
�-� 1:� current%>1 � current%-=1:�fillfiler
�2� 4:� current%<ptr%/4 � current%+=1:�fillfiler
��
�� 9:� current%>0 � �delete
��
�?� datebox%:� b%!16=10 � ș "Wimp_CreateMenu",,-1 � �datebox
� midstart%:Ȏ b%!16 �
� 3:� b%!8=4 �
(� steam%>1 � steam%-=1:�fillstart(0)
$�
.6� b%!8=1 � steam%<teams% � steam%+=1:�fillstart(0)
8�
B-� 37:� steam%>1 � steam%-=1:�fillstart(0)
L� 4:� b%!8=1 �
V(� steam%>1 � steam%-=1:�fillstart(0)
`�
j6� b%!8=4 � steam%<teams% � steam%+=1:�fillstart(0)
t�
~2� 38:� steam%<teams% � steam%+=1:�fillstart(0)
�� 12:� b%!8=4 �
�4� zwi%(steam%)>0 � zwi%(steam%)-=1:�restart(1,0)
��
�X� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=1 � zwi%(steam%)+=1:�restart(1,0)
��
�� 13:� b%!8=1 �
�4� zwi%(steam%)>0 � zwi%(steam%)-=1:�restart(1,0)
��
�X� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=4 � zwi%(steam%)+=1:�restart(1,0)
��
�� 15:� b%!8=4 �
�4� zdr%(steam%)>0 � zdr%(steam%)-=1:�restart(2,0)
�

X� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=1 � zdr%(steam%)+=1:�restart(2,0)
�
� 16:� b%!8=1 �
(4� zdr%(steam%)>0 � zdr%(steam%)-=1:�restart(2,0)
2�
<X� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=4 � zdr%(steam%)+=1:�restart(2,0)
F�
P� 18:� b%!8=4 �
Z4� zlo%(steam%)>0 � zlo%(steam%)-=1:�restart(4,0)
d�
nX� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=1 � zlo%(steam%)+=1:�restart(4,0)
x�
�� 19:� b%!8=1 �
�4� zlo%(steam%)>0 � zlo%(steam%)-=1:�restart(4,0)
��
�X� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)<99 � b%!8=4 � zlo%(steam%)+=1:�restart(4,0)
��
�� 21:� b%!8=4 �
�7� zgd%(steam%)>-100 � zgd%(steam%)-=1:�restart(8,0)
��
�?� zgd%(steam%)<100 � b%!8=1 � zgd%(steam%)+=1:�restart(8,0)
��
�� 22:� b%!8=1 �
�7� zgd%(steam%)>-100 � zgd%(steam%)-=1:�restart(8,0)
��
?� zgd%(steam%)<100 � b%!8=4 � zgd%(steam%)+=1:�restart(8,0)
�
0� 39:!b%=midstart%:ș "Wimp_CloseWindow",,b%
"?� 40:!b%=midstart%:ș "Wimp_CloseWindow",,b%:�fillnewleague
,�
6� special%:Ȏ b%!16 �
@%� 16,17,18,19,20:�radio(b%!16,-1)
J!� 21:ș "Wimp_CreateMenu",,-1
T� 22:�okspecial
^� 11:Ȏ b%!8 �
h�� 4:� ��zero(ind%+1583)>1 � $(ind%+1583)=�(��zero(ind%+1583)-1):�specialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
r�� 1:� ��zero(ind%+1583)<15 � $(ind%+1583)=�(��zero(ind%+1583)+1):�specialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
|�
�� 12:Ȏ b%!8 �
��� 1:� ��zero(ind%+1583)>1 � $(ind%+1583)=�(��zero(ind%+1583)-1):�specialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��� 4:� ��zero(ind%+1583)<15 � $(ind%+1583)=�(��zero(ind%+1583)+1):�specialcaret:!b%=special%:b%!4=10:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
�� 14:Ȏ b%!8 �
��� 4:� ��zero(ind%+1633)>1 � $(ind%+1633)=�(��zero(ind%+1633)-1):�specialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
� 1:� ��zero(ind%+1633)<15 � $(ind%+1633)=�(��zero(ind%+1633)+1):�specialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
�� 15:Ȏ b%!8 �
�� 1:� ��zero(ind%+1633)>1 � $(ind%+1633)=�(��zero(ind%+1633)-1):�specialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
�� 4:� ��zero(ind%+1633)<15 � $(ind%+1633)=�(��zero(ind%+1633)+1):�specialcaret:!b%=special%:b%!4=13:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
��
 � next window reference here
�
�
&� 7:�senddatasave
0I� 8:key%=b%!24:� � �ourkey(!b%,key%,b%!4) � ș "Wimp_ProcessKey",key%
:� 9:Ȏ !b% �
D� 2:�newleague
NE� 3:rdate%=���$,5,2):rmonth%=�monthno(��$,8,3)):ryear%=���$,12,4)
Xm� �days(rdate%,rmonth%,ryear%)<�days(sdate%,smonth%,syear%) � rdate%=sdate%:rmonth%=smonth%:ryear%=syear%
b�results
l\� 4:�fillfiler:!b%=filer%:ș "Wimp_GetWindowState",,b%:b%!28=-1:ș "Wimp_OpenWindow",,b%
v� 5:quit%=�
��
�Lș "Wimp_GetPointerInfo",,e%:� e%!8=1 � ș "Wimp_CreateMenu",,m%,mx%,my%
�� 17,18,19:�message
��
�� quit%
��
�:
�
��message
�Ȏ reason% �
�� 17,18:Ȏ b%!16 �
�� 0:quit%=�
�� 2:�dragsave
�l� 3,5:� b%!40=leaguefile% � b%!16=4:b%!12=b%!8:ș "Wimp_SendMessage",17,b%,b%!4:�loadtable(�zero(b%+44))
�� 8:� � saved% � � � �wimperror(1,"'"+leaguename$+"' edited. Save?",3) � b%!12=b%!8:ș "Wimp_SendMessage",19,b%:ș "Wimp_GetPointerInfo",,b%:ș "Wimp_CreateMenu",,savebox%,!b%,b%!4
�
I� 19:ș "OS_File",6,b%+44:� 255,"Data transfer failed: Receiver died"
 �
*�
4:
>ݤzero(l%):� str$:str$=""
H)ȕ ?l% � �str$<255:str$+=�?l%:l%+=1:�
R	=str$
\:
f;ݤlen(l%):� z%:z%=0:ȕ ?(l%+z%)>31 � z%<255:z%+=1:�:=z%
p:
z��loadtable(file$)
�� file%,l%
�file%=�file$
�leaguename$=�#file%
�sdate%=��#file%
�smonth%=��#file%
�syear%=��#file%
�teams%=�#file%
�� l%=1 � teams%
�name$(l%)=�#file%
�swi%(l%)=��#file%
�sdr%(l%)=��#file%
�slo%(l%)=��#file%
�sgd%(l%)=��#file%
	�
	ptr%=��#file%
	,l%=0:ȕ l%<ptr%:data%?l%=�#file%:l%+=1:�
	$�#file%
	.>date%=���$,5,2):month%=�monthno(��$,8,3)):year%=���$,12,4)
	8,tablefilled%=�:�saved:$(ind%+2700)=file$
	B,�filltable(�):current%=ptr%/4:�fillfiler
	L)!b%=result%:ș "Wimp_CloseWindow",,b%
	V�
	`:
	j��filltable(open%)
	tE� l%,ll%,la%,lb%,lc%,ld%,reg%,val:ll%=�days(date%,month%,year%)+1
	~Awi%()=swi%():dr%()=sdr%():lo%()=slo%():gd%()=sgd%():xtra%()=0
	�l%=0:ȕ l%<ptr%
	�,� �days(�dat(l%),�mon(l%),�yr(l%))<ll% �
	�3la%=�t1(l%):lb%=�t2(l%):lc%=�s1(l%):ld%=�s2(l%)
	�
Ȏ � �
	�� lb%=0:Ȏ lc% �
	�� 1:wi%(la%)+=1
	�� 2:dr%(la%)+=1
	�� 3:lo%(la%)+=1
	�� 4:xtra%(la%)+=ld%
	�� 5:xtra%(la%)-=ld%
	��
	�I� lc%>ld%:wi%(la%)+=1:lo%(lb%)+=1:gd%(la%)+=lc%-ld%:gd%(lb%)+=ld%-lc%
I� ld%>lc%:wi%(lb%)+=1:lo%(la%)+=1:gd%(la%)+=lc%-ld%:gd%(lb%)+=ld%-lc%

:dr%(la%)+=1:dr%(lb%)+=1
�
�
(	l%+=4
2�
<� l%=1 � teams%
F#pl%(l%)=wi%(l%)+dr%(l%)+lo%(l%)
P'po%(l%)=xtra%(l%)+dr%(l%)+3*wi%(l%)
Z�
d
rank%()=0
n� l%=1 � teams%
xval=0:reg%=0
�� ll%=1 � teams%
�a� rank%(ll%)=0:� po%(ll%)+0.5+(gd%(ll%)/1000)>val � val=po%(ll%)+0.5+(gd%(ll%)/1000):reg%=ll%
��
�#rank%(reg%)=l%:ranked%(l%)=reg%
��
�� l%=1 � teams%
�ll%=ranked%(l%)
�+$(tabledata%+21+(23*(l%-1)))=name$(ll%)
�*$(tabledata%+573+(3*(l%-1)))=�wi%(ll%)
�*$(tabledata%+645+(3*(l%-1)))=�dr%(ll%)
�*$(tabledata%+717+(3*(l%-1)))=�lo%(ll%)
�*$(tabledata%+789+(3*(l%-1)))=�pl%(ll%)
�;$(tabledata%+861+(5*(l%-1)))=�sign(gd%(ll%))+Ôgd%(ll%)
*$(tabledata%+981+(4*(l%-1)))=�po%(ll%)
�
"$(tabledata%+1077)=leaguename$
"f$(tabledata%+1115)=�day(date%,month%,year%)+", "+�(date%)+�th(date%)+" "+�month(month%)+" "+�year%
,tablefilled%=-1
6x!e%=premtable%:ș "Wimp_GetWindowState",,e%:� open% � e%!4=2:e%!8=44:e%!12=1018:e%!16=980:e%!20=16:e%!24=56:e%!28=-1
@�!b%=premtable%:ș "Wimp_CloseWindow",,b%:� open% � !b%=16:b%!4=-120-(96*(teams%�2))-(40*(teams%�2)):b%!8=1032:b%!12=56:ș "Wimp_SetExtent",premtable%,b%
J"ș "Wimp_OpenWindow",,e%:�grey
T�
^:
hݤsign(number%)
r� sign$
|Ȏ �number% �
�� -1:sign$="-"
�� 0:sign$=""
�� 1:sign$="+"
��
�
=sign$
�:
���newleague
�� l%
�c?ind%=0:� l%=0 � 23:ind%!(52+(37*l%))=(-&2D)*(l%>=teams%):�:zwi%()=0:zdr%()=0:zlo%()=0:zgd%()=0
�Azdate%=���$,5,2):zmonth%=�monthno(��$,8,3)):zyear%=���$,12,4)
�c$(ind%+940)=�day(zdate%,zmonth%,zyear%)+" "+�zdate%+�th(zdate%)+" "+�month(zmonth%)+" "+�zyear%
�!b%=newleague%:b%!4=28:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:b%!4=29:b%!8=0:ș "Wimp_SetIconState",,b%:b%!4=40:ș "Wimp_SetIconState",,b%
��!b%=newleague%:ș "Wimp_CloseWindow",,b%:b%!12=&F000:� l%=1 � 24:b%!4=l%:b%!8=(l%<=teams%)*(-&F000):ș "Wimp_SetIconState",,b%:�:ș "Wimp_GetWindowState",,b%:b%!28=-1:ș "Wimp_OpenWindow",,b%
2ș "Wimp_SetCaretPosition",newleague%,0,,,-1,0
+!b%=midstart%:ș "Wimp_CloseWindow",,b%
�
&:
0 ݤourkey(window%,key%,icon%)
:� ours%,l%:ours%=�
DȎ window% �
N%� special%:� key%=13 � �okspecial
X� midstart%
b"� key%=13 � ours%=�:Ȏ icon% �
l� 14:zwi%(steam%)=��zero(ind%+3547):� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 � zwi%(steam%)=99-zdr%(steam%)-zlo%(steam%)
v'� ��zero(ind%+3597)=0 � ind%?3597=0
�N�restart(1,1):ș "Wimp_SetCaretPosition",midstart%,17,,,-1,�len(ind%+3597)
�� 17:zdr%(steam%)=��zero(ind%+3597):� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 � zdr%(steam%)=99-zwi%(steam%)-zlo%(steam%)
�'� ��zero(ind%+3647)=0 � ind%?3647=0
�N�restart(2,2):ș "Wimp_SetCaretPosition",midstart%,20,,,-1,�len(ind%+3647)
�� 20:zlo%(steam%)=��zero(ind%+3647):� zwi%(steam%)+zdr%(steam%)+zlo%(steam%)>99 � zlo%(steam%)=99-zdr%(steam%)-zwi%(steam%)
�'� ��zero(ind%+3697)=0 � ind%?3697=0
�N�restart(4,3):ș "Wimp_SetCaretPosition",midstart%,23,,,-1,�len(ind%+3697)
�w� 23:zgd%(steam%)=��zero(ind%+3697):� zgd%(steam%)>100 � zgd%(steam%)=100 � � zgd%(steam%)<-100 � zgd%(steam%)=-100
�� steam%<teams% �
�steam%+=1:�fillstart(-1)
��
�x!b%=midstart%:b%!4=40:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:ș "Wimp_CloseWindow",,b%:�fillnewleague
��

�

� newleague%

ours%=�

 
Ȏ key% �

*� 13:Ȏ icon% �

4U� 35:ș "Wimp_SetCaretPosition",newleague%,0,,,-1,�len(ind%):l%=��zero(ind%+1158)

>#� l%<2 � l%=2 � � l%>24 � l%=24

HU$(ind%+1158)=�l%:!b%=newleague%:b%!4=35:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%

Rȕ teams%<>l%

\� teams%>l% �

f\teams%-=1:ind%!(52+(37*teams%))=&2D:b%!4=teams%+1:b%!12=&F000:ș "Wimp_SetIconState",,b%

p�

zcind%!(52+(37*teams%))=0:teams%+=1:b%!4=teams%:b%!8=&F000:b%!12=&F000:ș "Wimp_SetIconState",,b%

��

��

��� teams%:!b%=newleague%:b%!4=40:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%:!b%=newleague%:ș "Wimp_CloseWindow",,b%:�oknewleague

�Q:ș "Wimp_SetCaretPosition",newleague%,icon%+1,,,-1,�len(ind%+52+(37*icon%))

��

�� &18E:� icon%=0 �

�>ș "Wimp_SetCaretPosition",newleague%,1,,,-1,�len(ind%+52)

��

�� icon%+2<=teams% �

�Sș "Wimp_SetCaretPosition",newleague%,icon%+2,,,-1,�len(ind%+52+(37*(icon%+1)))

��

�� icon%�2=1 � ș "Wimp_SetCaretPosition",newleague%,2,,,-1,�len(ind%+89) � ș "Wimp_SetCaretPosition",newleague%,0,,,-1,�len(ind%)

��
�
� &18F:Ȏ icon% �
e� 0:ș "Wimp_SetCaretPosition",newleague%,(teams%�2)*2,,,-1,�len(ind%+52+(37*(((teams%�2)*2)-1)))
$?� 1:ș "Wimp_SetCaretPosition",newleague%,0,,,-1,�len(ind%)
.s� 2:ș "Wimp_SetCaretPosition",newleague%,teams%-1+(teams%�2),,,-1,�len(ind%+52+(37*((teams%-1+(teams%�2))-1)))
8U:ș "Wimp_SetCaretPosition",newleague%,icon%-2,,,-1,�len(ind%+52+(37*(icon%-3)))
B�
Lt� &19C:� (icon%>1 � icon%�2=0) � ș "Wimp_SetCaretPosition",newleague%,icon%-1,,,-1,�len(ind%+52+(37*(icon%-2)))
V\� &19D:� icon%�2=1 � icon%<teams% � ș "Wimp_SetCaretPosition",newleague%,icon%+1,,,-1,0
`� &19E:Ȏ � �
jH� icon%=0:ș "Wimp_SetCaretPosition",newleague%,1,,,-1,�len(ind%+52)
t{� icon%�2=1:ș "Wimp_SetCaretPosition",newleague%,teams%-1+(teams%�2),,,-1,�len(ind%+52+(37*((teams%-1+(teams%�2))-1)))
~c:ș "Wimp_SetCaretPosition",newleague%,(teams%�2)*2,,,-1,�len(ind%+52+(37*(((teams%�2)*2)-1)))
��
�� &19F:Ȏ � �
�� icon%=0:
�� icon%�2=1:� icon%>1 �
�>ș "Wimp_SetCaretPosition",newleague%,1,,,-1,�len(ind%+52)
��
�;ș "Wimp_SetCaretPosition",newleague%,0,,,-1,�len(ind%)
��
�@:ș "Wimp_SetCaretPosition",newleague%,2,,,-1,�len(ind%+89)
��
�
:ours%=�
��

� result%

� key%=13 �
ours%=�
F� icon%=34 � �score(��zero(ind%+2587)) � �score(��zero(ind%+2613))
(�
20� savebox%:� key%=13 � ours%=�:�checkandsave
<� filer%:� key%=13 �
F=ș "Wimp_SetCaretPosition",,-1:current%=��zero(ind%+4013)
P� current%=0 � current%=1
Z'� current%>ptr%/4 � current%=ptr%/4
d�fillfiler
n�
x� datebox%
�� key%=13 �
�M!b%=datebox%:b%!4=9:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%
�ș "Wimp_CreateMenu",,-1
�Ȏ dtype% �
�>� 1:date%=bdate%:month%=bmonth%:year%=byear%:�filltable(�)
�>� 2:rdate%=bdate%:rmonth%=bmonth%:ryear%=byear%:�fillrdate
��� 3:zdate%=bdate%:zmonth%=bmonth%:zyear%=byear%:$(ind%+940)=�day(zdate%,zmonth%,zyear%)+" "+�zdate%+�th(zdate%)+" "+�month(zmonth%)+" "+�zyear%
�D!b%=newleague%:b%!4=25:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
��
��
��
�
=ours%
�:
%ݤwimperror(error%,error$,flags%)
� reply%
$� �<errtime%(errtimeno%)+500 � �
"6errtime%(errtimeno%)=�:errtimeno%=(errtimeno%+1)�3
,!e%=error%:$(e%+4)=error$
6Aș "Wimp_ReportError",e%,flags%,"FA Premier League" � ,reply%
@� reply%=2 � =� � =�
J:
T��oknewleague
^� l%,ll%
h� l%=1 � teams%
r)zname$(l%)=�zero(ind%+52+(37*(l%-1)))
|�
�� ll%=1 � teams%-1
�� l%=1 � teams%-1
�:� zname$(l%)>zname$(l%+1) � Ȕ zname$(l%),zname$(l%+1)
��
��
�zleaguename$=�zero(ind%)
�5ș "Wimp_WhichIcon",newleague%,b%,&3F0000,&210000
�� !b%=29 �
��headstart
��
��fillnewleague
��
��
:
ݤmonthno(month$)
� back%:back%=0
&Ȏ month$ �
0� "Jan":back%=1
:� "Feb":back%=2
D� "Mar":back%=3
N� "Apr":back%=4
X� "May":back%=5
b� "Jun":back%=6
l� "Jul":back%=7
v� "Aug":back%=8
�� "Sep":back%=9
�� "Oct":back%=10
�� "Nov":back%=11
�� "Dec":back%=12
��
�
=back%
�:
�� �leapyear(yearno%)
�� yearno%�400=0 �  =�
�'� yearno%�4=0 � yearno%�100<>0 � =�
�=�
�:
�ݤday(dat%,mon%,yea%)
� days%,l%
E� yea%<1990 � � 1,"Attempt to process pre-1990 date ("+�yea%+")."
l%=1990:days%=0
 ȕ l%<yea%
*!days%=days%+365-�leapyear(l%)
4	l%+=1
>�
Hl%=1
Rȕ l%<mon%
\days%+=�max(l%,yea%)
f	l%+=1
p�
zdays%+=dat%
�days%=days%�7
�=�dayname(days%)
�:
�ݤdays(dat%,mon%,yea%)
�� days%,l%
�E� yea%<1990 � � 1,"Attempt to process pre-1990 date ("+�yea%+")."
�l%=1990:days%=0
�ȕ l%<yea%
�!days%=days%+365-�leapyear(l%)
�	l%+=1
��
�l%=1
�ȕ l%<mon%
days%+=�max(l%,yea%)
	l%+=1
�
$days%+=dat%
.
=days%
8:
Bݤdayname(days%)
L
� day$
VȎ days% �
`� 0:day$="Sunday"
j� 1:day$="Monday"
t� 2:day$="Tuesday"
~� 3:day$="Wednesday"
�� 4:day$="Thursday"
�� 5:day$="Friday"
�� 6:day$="Saturday"
��
�	=day$
�:
�ݤth(date%)
�:� (date%>3 � date%<21) � (date%>23 � date%<31) � ="th"
�date%=date%�10
�� date%=1 � ="st"
�� date%=2 � ="nd"
�	="rd"
:

ݤmonth(month%)
� month$
Ȏ month% �
(� 1:month$="January"
2� 2:month$="February"
<� 3:month$="March"
F� 4:month$="April"
P� 5:month$="May"
Z� 6:month$="June"
d� 7:month$="July"
n� 8:month$="August"
x� 9:month$="September"
�� 10:month$="October"
�� 11:month$="November"
�� 12:month$="December"
��
�=month$
�:
���fillrdate
Ȥ$(ind%+2620)=�day(rdate%,rmonth%,ryear%)+" "+�(rdate%)+�th(rdate%)+" "+�month(rmonth%)+" "+�ryear%:!b%=result%:b%!8=0:b%!12=0:b%!4=40:ș "Wimp_SetIconState",,b%
��
�:
���fillbdate(redo%)
�!b%=datebox%:b%!8=0:b%!12=0
�h$(ind%+3100)=�day(bdate%,bmonth%,byear%)+" "+�(bdate%)+�th(bdate%):b%!4=0:ș "Wimp_SetIconState",,b%
N� redo%�2 � $(ind%+3115)=�month(bmonth%):b%!4=1:ș "Wimp_SetIconState",,b%
F� redo%�4 � $(ind%+3125)=�byear%:b%!4=2:ș "Wimp_SetIconState",,b%
�
":
,ݤmax(month%,year%)
6� days%
@Ȏ month% �
J� 1,3,5,7,8,10,12:days%=31
T� 4,6,9,11:days%=30
^!� 2:days%=28-�leapyear(year%)
h�
r
=days%
|:
���fillnewleague
�� l%
�=ptr%=0:leaguename$=zleaguename$:$(ind%+2700)="LeagueFile"
�/sdate%=zdate%:smonth%=zmonth%:syear%=zyear%
�>date%=���$,5,2):month%=�monthno(��$,8,3)):year%=���$,12,4)
�g� �days(date%,month%,year%)<�days(sdate%,smonth%,syear%) � date%=sdate%:month%=smonth%:year%=syear%
�name$()=zname$()
�wi%()=zwi%()
�dr%()=zdr%()
�lo%()=zlo%()
�gd%()=zgd%()
�7swi%()=wi%():sdr%()=dr%():slo%()=lo%():sgd%()=gd%()
�tablefilled%=�:�notsaved
�filltable(�)
�
:
&��headstart
0%steam%=1:�fillstart(0):�openstart
:�
D:
N��save(file$,safe%)
X� file%
b5� �oktosave(file$)=� � ș "Wimp_CreateMenu",,-1:�
l)ș "OS_File",11,file$,leaguefile%,0,0
vfile%=�file$
�W�#file%,leaguename$:�#file%,�sdate%:�#file%,�smonth%:�#file%,�syear%:�#file%,teams%
�}� l%=1 � teams%:�#file%,name$(l%):�#file%,�swi%(l%):�#file%,�sdr%(l%):�#file%,�slo%(l%):�#file%,�sgd%(l%):�:�#file%,�ptr%
�,l%=0:ȕ l%<ptr%:�#file%,data%?l%:l%+=1:�
��#file%
�*� safe%>-1 � $(ind%+2700)=file$:�saved
�ș "Wimp_CreateMenu",,-1
��
�:
�
��dragbox
�
� xo%,yo%
�-!b%=savebox%:ș "Wimp_GetWindowState",,b%
�"xo%=b%!4-b%!20:yo%=b%!16-b%!24
�%b%!4=0:ș "Wimp_GetIconState",,b%
�!b%=savebox%:b%!4=5:b%!8=xo%+b%!8:b%!12=yo%+b%!12:b%!16=xo%+b%!16:b%!20=yo%+b%!20:b%!24=0:b%!28=0:b%!32=&7FFFFFFF:b%!36=&7FFFFFFF:ș "Wimp_DragBox",,b%
�
:
 ��checkandsave
*� l%
4}� ��zero(ind%+2700),".") � �save(�zero(ind%+2700),0) � l%=�wimperror(1,"To save, drag the icon to a directory viewer",17)
>�
H:
Rݤleafname(file$)
\0ȕ �file$,"."):file$=�file$,�file$,".")+1):�
f
=file$
p:
z��senddatasave
� ș "Wimp_GetPointerInfo",,b%
��b%!20=b%!12:b%!24=b%!16:b%!28=!b%:b%!32=b%!4:b%!36=3200:!b%=256:b%!12=0:b%!16=1:b%!40=leaguefile%:$(b%+44)=�leafname(�zero(ind%+2700)):ș "Wimp_SendMessage",17,b%,b%!20,b%!24
��
�:
���dragsave
��save(�zero(b%+44),b%!36)
�Fb%!12=b%!8:b%!16=3:!b%=256:ș "Wimp_SendMessage",18,b%,b%!20,b%!24
��
�:
�ݤoktosave(file$)
�� result%,l%
�'ș "OS_File",17,file$ � result%,,l%
�� result%=0 � =�
@� result%=2 � l%=�wimperror(1,"Object is a directory",18):=�
'� (l%�&FFF00)=leaguefile%*&100 � =�
G� � �wimperror(1,"File'"+file$+"' exists. Overwrite?",19) � =� � =�
$:
.
��results
81� l%,la%,lb%,lc%,ld%,le%,lf%,lg%,lh%,down%,l$
B� �
L� +0
V)!b%=result%:ș "Wimp_CloseWindow",,b%
`"used%()=0:la%=1:b%!8=4:b%!12=4
j� l%=13-((teams%+1)�2) � 12
t7$(ind%+1874+(l%*26))=name$(la%):res%(l%)=la%:la%+=1
~3b%!4=l%:ș "Wimp_SetIconState",,b%:used%(l%)=-1
��
�(� l%=25-((teams%+1)�2) � 24-teams%�2
�7$(ind%+1874+(l%*26))=name$(la%):res%(l%)=la%:la%+=1
�3b%!4=l%:ș "Wimp_SetIconState",,b%:used%(l%)=-1
��
��!b%=result%:b%!8=0:b%!12=4:l%=0:ȕ l%<(24-teams%)�2:l%+=1:ind%?(1874+(26*l%))=0:b%!4=l%:ș "Wimp_SetIconState",,b%:ind%?(2186+(26*l%))=0:b%!4=l%+12:ș "Wimp_SetIconState",,b%:�
�x� teams%�2 � !b%=result%:b%!4=24:b%!8=0:b%!12=&F000:ind%?2498=45:ind%?2499=0:ind%?2522=49:ș "Wimp_SetIconState",,b%
Μdown%=(52*((24-teams%)�2)):!b%=result%:� l%=37 � 41:b%!4=l%:ș "Wimp_DeleteIcon",,b%:� la%,l$:lb%=�l$:� lc%,l$:ld%=�l$:� le%,l$:lf%=�l$:� l$,lh%:lg%=�l$
�lb%!4=la%:b%!8=lb%:b%!12=lc%:b%!16=ld%:b%!20=le%:b%!24=lf%:b%!28=lg%:b%!32=lh%:ș "Wimp_CreateIcon",,b%:�
��fillrdate
�
�info1
�L!b%=-24:b%!4=-820:b%!8=814:b%!12=64-down%:ș "Wimp_SetExtent",result%,b%
!b%=result%:ș "Wimp_GetWindowState",,b%:b%!12=b%!4+838:b%!16=b%!8+884:b%!20=-24:b%!24=64:b%!28=-1:ș "Wimp_OpenWindow",,b%

�
0� -26,-44-down%,826,76-down%,&17000038,0,0,0
?� -2,-36-down%,796,56-down%,&1700013F,ind%+2615,ind%+2617,1
(D� 16,-8-down%,204,24-down%,&C7000019,&6374614D,&61642068,&3A6574
2A� 208,-20-down%,692,40-down%,&C700311D,ind%+2620,ind%+2650,30
<@� 708,-12-down%,752,32-down%,&C700311B,ind%+2663,ind%+2670,1
F:
P��info1
Z� l%
dG$(ind%+2564)="*":$(ind%+2587)="-":$(ind%+2590)="-":$(ind%+2613)="-"
n!b%=result%:b%!8=0:b%!12=0
x� l%=33 � 36
�&b%!4=l%:ș "Wimp_SetIconState",,b%
��
�b%!8=0:b%!12=&F000
�� l%=25 � 29
�ind%?(2402+(5*l%))=49
�&b%!4=l%:ș "Wimp_SetIconState",,b%
��
�Pb%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
�b%!8=&3000:b%!12=&F000
�� l%=1 � 24
�K� used%(l%) � ind%?(1898+(26*l%))=53:b%!4=l%:ș "Wimp_SetIconState",,b%
��
�r%=1
!ș "Wimp_SetCaretPosition",-1
�
:
"��info2
,� l%
61ind%?2587=0:$(ind%+2590)="-":$(ind%+2613)="-"
@!b%=result%:b%!8=0:b%!12=0
J� l%=33 � 36
T&b%!4=l%:ș "Wimp_SetIconState",,b%
^�
hb%!8=&3000:b%!12=&F000
r� l%=25 � 29
|ind%?(2402+(5*l%))=53
�&b%!4=l%:ș "Wimp_SetIconState",,b%
��
�Pb%!4=30:ind%?2558=53:b%!8=&7003000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
�b%!8=0:b%!12=&F000
�� l%=1 � 24
�K� used%(l%) � ind%?(1898+(26*l%))=49:b%!4=l%:ș "Wimp_SetIconState",,b%
��
�0ș "Wimp_SetCaretPosition",result%,34,,,-1,0
�r%=2
��
�:
���info3
�� l%
%$(ind%+2590)="*":$(ind%+2613)="-"
!b%=result%:b%!8=0:b%!12=0
� l%=33 � 36
&&b%!4=l%:ș "Wimp_SetIconState",,b%
0�
:b%!8=0:b%!12=&F000
D� l%=25 � 29
Nind%?(2402+(5*l%))=49
X&b%!4=l%:ș "Wimp_SetIconState",,b%
b�
lPb%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
vb%!12=&F000
�� l%=1 � 24
�� used%(l%) �
�V� res%(l%)=t1% � ind%?(1898+(26*l%))=49:b%!8=0 � ind%?(1898+(26*l%))=53:b%!8=&3000
�&b%!4=l%:ș "Wimp_SetIconState",,b%
��
��
�r%=3
�!ș "Wimp_SetCaretPosition",-1
��
�:
���info4
�� l%
�ind%?2613=0
!b%=result%:b%!8=0:b%!12=0
� l%=33 � 36
&b%!4=l%:ș "Wimp_SetIconState",,b%
 �
*b%!8=&3000:b%!12=&F000
4� l%=25 � 29
>ind%?(2402+(5*l%))=53
H&b%!4=l%:ș "Wimp_SetIconState",,b%
R�
\Pb%!4=30:ind%?2558=49:b%!8=&3000000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
fb%!12=&F000:b%!8=0
p� l%=1 � 24
zK� used%(l%) � ind%?(1898+(26*l%))=49:b%!4=l%:ș "Wimp_SetIconState",,b%
��
�0ș "Wimp_SetCaretPosition",result%,36,,,-1,0
�r%=4
��
�:
���score(score%)
�O� r%=2 � s1%=score%:$(ind%+2587)=�score%:�info3 � s2%=score%:�record:�info1
��
�:
���record
�xdata%!ptr%=�("%"+�bin(rdate%,5)+�bin(rmonth%,4)+�bin(ryear%-1990,5)+�bin(t1%,5)+�bin(t2%,5)+�bin(s1%,4)+�bin(s2%,4))
�8ptr%+=4:�notsaved:current%=ptr%/4:�fillfiler:�ungrey
��
:
ݤdat(word%)
=� ("%"+��str(word%),1,5))
$:
.ݤmon(word%)
8=� ("%"+��str(word%),6,4))
B:
Lݤyr(word%)
V$=1990+� ("%"+��str(word%),10,5))
`:
jݤt1(word%)
t=� ("%"+��str(word%),15,5))
~:
�ݤt2(word%)
�=� ("%"+��str(word%),20,5))
�:
�ݤs1(word%)
�=� ("%"+��str(word%),25,4))
�:
�ݤs2(word%)
�=� ("%"+��str(word%),29,4))
�:
���unset(icon%)
�/!e%=result%:e%!4=icon%:e%!8=0:e%!12=&200000
�ș "Wimp_SetIconState",,e%
�

:
ݤbin(number%,len%)
� l%,l$:l$=""
(� l%=(len%-1) � 0 � -1
2(� number%�(2^l%) � l$+="1" � l$+="0"
<�
F=l$
P:
Zݤstr(datapos%)
d� l%,ll%,lll%,l$:l$=""
n� l%=3 � 0 � -1
xlll%=data%?(datapos%+l%)
�� ll%=7 � 0 � -1
�1� lll%>=2^ll% � lll%-=2^ll%:l$+="1" � l$+="0"
��
��
�=l$
�:
���saved
�� saved% � �
�tabledata%?13=0
�u!e%=premtable%:ș "Wimp_GetWindowState",,e%:� (e%!32)�(2^16) � ș "Wimp_CloseWindow",,e%:ș "Wimp_OpenWindow",,e%
�saved%=�
��
�:
��notsaved
� � saved% � �
tabledata%?13=42
"u!e%=premtable%:ș "Wimp_GetWindowState",,e%:� (e%!32)�(2^16) � ș "Wimp_CloseWindow",,e%:ș "Wimp_OpenWindow",,e%
,saved%=�
6�
@:
J��fillfiler
T� l%
^� ptr%=0 �
h�$(ind%+3914)="No results":ind%?3929=0:ind%?3959=0:$(ind%+4013)="0":$(ind%+4036)="0":current%=0:ind%?4109=49:!b%=filer%:b%!4=9:b%!8=&3000000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
r�
|�l%=(current%-1)*4:ind%?3914=0:$(ind%+3929)=�day(�dat(l%),�mon(l%),�yr(l%))+" "+ädat(l%)+�th(�dat(l%))+" "+�month(�mon(l%))+" "+äyr(l%)
�� �t2(l%)=0 �
�Ȏ �s1(l%) �
�5� 1:$(ind%+3959)="Win awarded to "+name$(�t1(l%))
�6� 2:$(ind%+3959)="Draw awarded to "+name$(�t1(l%))
�6� 3:$(ind%+3959)="Loss awarded to "+name$(�t1(l%))
��� 4:� �s2(l%)>1 � $(ind%+3959)=äs2(l%)+" points awarded to "+name$(�t1(l%)) � $(ind%+3959)="1 point awarded to "+name$(�t1(l%))
� 5:� �s2(l%)>1 � $(ind%+3959)=äs2(l%)+" points deducted from "+name$(�t1(l%)) � $(ind%+3959)="1 point deducted from "+name$(�t1(l%))
��
��
�N$(ind%+3959)=name$(�t1(l%))+" "+äs1(l%)+" v "+äs2(l%)+" "+name$(�t2(l%))
��
�3$(ind%+4013)=�(current%):$(ind%+4036)=�(ptr%/4)
�Zind%?4109=53:!b%=filer%:b%!4=9:b%!8=&7003000:b%!12=&F00F000:ș "Wimp_SetIconState",,b%
 �
 !b%=filer%:b%!8=0:b%!12=0
 %b%!4=3:ș "Wimp_SetIconState",,b%
 &%b%!4=4:ș "Wimp_SetIconState",,b%
 0&b%!4=10:ș "Wimp_SetIconState",,b%
 :�
 D:
 N��delete
 X� l%
 bptr%-=4
 ll%=(current%-1)*4
 vȕ l%<ptr%
 �data%!l%=data%!(l%+4)
 �	l%+=4
 ��
 �#� current%>ptr%/4 � current%-=1
 ��fillfiler
 �
�notsaved
 ��ungrey
 ��
 �:
 ���checkforload
 �� call$
 �ș "OS_GetEnv" � call$
 �%call$=�call$,�call$," -file ")+7)
!#� call$<>"" � �loadtable(call$)
!�
!:
! 
��datebox
!*Ȏ dtype% �
!4� 1,2:Ȏ b%!16 �
!>� 3:Ȏ b%!8 �
!H� 4:� bdate%>1 �
!R\� �days(bdate%-1,bmonth%,byear%)>=�days(sdate%,smonth%,syear%) � bdate%-=1:�fillbdate(1)
!\�
!f� bmonth%>1 �
!p�� �days(�max(bmonth%-1,byear%),bmonth%-1,byear%)>=�days(sdate%,smonth%,syear%) � bdate%=�max(bmonth%-1,byear%):bmonth%-=1:�fillbdate(3)
!z�
!�h� �days(31,12,byear%-1)>=�days(sdate%,smonth%,syear%) � bdate%=31:bmonth%=12:byear%-=1:�fillbdate(7)
!��
!��
!�'� 1:� bdate%<�max(bmonth%,byear%) �
!�bdate%+=1:�fillbdate(1)
!��
!�� bmonth%<12 �
!�%bmonth%+=1:bdate%=1:�fillbdate(3)
!��
!�>� byear%<2021 � bmonth%=1:bdate%=1:byear%+=1:�fillbdate(7)
!��
!��
!��
"� 4:Ȏ b%!8 �
"� 1:� bdate%>1 �
"\� �days(bdate%-1,bmonth%,byear%)>=�days(sdate%,smonth%,syear%) � bdate%-=1:�fillbdate(1)
"$�
".� bmonth%>1 �
"8�� �days(�max(bmonth%-1,byear%),bmonth%-1,byear%)>=�days(sdate%,smonth%,syear%) � bdate%=�max(bmonth%-1,byear%):bmonth%-=1:�fillbdate(3)
"B�
"Lh� �days(31,12,byear%-1)>=�days(sdate%,smonth%,syear%) � bdate%=31:bmonth%=12:byear%-=1:�fillbdate(7)
"V�
"`�
"j'� 4:� bdate%<�max(bmonth%,byear%) �
"tbdate%+=1:�fillbdate(1)
"~�
"�� bmonth%<12 �
"�%bmonth%+=1:bdate%=1:�fillbdate(3)
"��
"�>� byear%<2021 � bmonth%=1:bdate%=1:byear%+=1:�fillbdate(7)
"��
"��
"��
"�� 5:Ȏ b%!8 �
"�� 4:� bmonth%>1 �
"�D� �days(bdate%,bmonth%-1,byear%)>=�days(sdate%,smonth%,syear%) �
"�hbmonth%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(2)
"��
#E� smonth%=bmonth%-1 � bmonth%=smonth%:bdate%=sdate%:�fillbdate(3)
#
�
#�
#?� �days(bdate%,12,byear%-1)>=�days(sdate%,smonth%,syear%) �
#(rbmonth%=12:byear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(7) � �fillbdate(6)
#2�
#<G� syear%=byear%-1 � byear%-=1:bmonth%=12:bdate%=sdate%:�filldate(3)
#F�
#P�
#Z� 1:� bmonth%<12 �
#dhbmonth%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(2)
#n�
#x5� byear%<2021 � byear%+=1:bmonth%=1:�fillbdate(7)
#��
#��
#�� 6:Ȏ b%!8 �
#�� 1:� bmonth%>1 �
#�D� �days(bdate%,bmonth%-1,byear%)>=�days(sdate%,smonth%,syear%) �
#�hbmonth%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(2)
#��
#�E� smonth%=bmonth%-1 � bmonth%=smonth%:bdate%=sdate%:�fillbdate(3)
#��
#��
#�?� �days(bdate%,12,byear%-1)>=�days(sdate%,smonth%,syear%) �
#�rbmonth%=12:byear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(7) � �fillbdate(6)
#��
$G� syear%=byear%-1 � byear%-=1:bmonth%=12:bdate%=sdate%:�filldate(3)
$�
$�
$"� 4:� bmonth%<12 �
$,hbmonth%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(2)
$6�
$@5� byear%<2021 � byear%+=1:bmonth%=1:�fillbdate(7)
$J�
$T�
$^�
$h� 7:Ȏ b%!8 �
$rV� 4:� byear%>1990:� �days(bdate%,bmonth%,byear%-1)>=�days(sdate%,smonth%,syear%) �
$|gbyear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(5) � �fillbdate(4)
$��
$�M� syear%=byear%-1 � byear%-=1:bmonth%=smonth%:bdate%=sdate%:�fillbdate(7)
$��
$�� 1:� byear%<2021 �
$�gbyear%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(5) � �fillbdate(4)
$��
$��
$�� 8:Ȏ b%!8 �
$�V� 1:� byear%>1990:� �days(bdate%,bmonth%,byear%-1)>=�days(sdate%,smonth%,syear%) �
$�gbyear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(5) � �fillbdate(4)
$��
$�M� syear%=byear%-1 � byear%-=1:bmonth%=smonth%:bdate%=sdate%:�fillbdate(7)
$��
%� 4:� byear%<2021 �
%gbyear%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(5) � �fillbdate(4)
%�
%&�
%0�� 9:ș "Wimp_CreateMenu",,-1:� dtype%=1 � date%=bdate%:month%=bmonth%:year%=byear%:�filltable(�) � rdate%=bdate%:rmonth%=bmonth%:ryear%=byear%:�fillrdate
%:�
%D� 3:Ȏ b%!16 �
%N� 3:Ȏ b%!8 �
%X� 4:� bdate%>1 �
%bbdate%-=1:�fillbdate(1)
%l�
%v� bmonth%>1 �
%�8bmonth%-=1:bdate%=�max(bmonth%,byear%):�fillbdate(3)
%��
%�@� byear%>1990 � byear%-=1:bmonth%=12:bdate%=31:�fillbdate(7)
%��
%��
%�'� 1:� bdate%<�max(bmonth%,byear%) �
%�bdate%+=1:�fillbdate(1)
%��
%�� bmonth%<12 �
%�%bmonth%+=1:bdate%=1:�fillbdate(3)
%��
%�>� byear%<2021 � byear%+=1:bmonth%=1:bdate%=1:�fillbdate(7)
%��
&�
&�
&� 4:Ȏ b%!8 �
& � 1:� bdate%>1 �
&*bdate%-=1:�fillbdate(1)
&4�
&>� bmonth%>1 �
&H8bmonth%-=1:bdate%=�max(bmonth%,byear%):�fillbdate(3)
&R�
&\@� byear%>1990 � byear%-=1:bmonth%=12:bdate%=31:�fillbdate(7)
&f�
&p�
&z'� 4:� bdate%<�max(bmonth%,byear%) �
&�bdate%+=1:�fillbdate(1)
&��
&�� bmonth%<12 �
&�%bmonth%+=1:bdate%=1:�fillbdate(3)
&��
&�>� byear%<2021 � byear%+=1:bmonth%=1:bdate%=1:�fillbdate(7)
&��
&��
&��
&�� 5:Ȏ b%!8 �
&�� 4:� bmonth%>1 �
&�hbmonth%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(3)
&��
'6� byear%>1990 � byear%-=1:bmonth%=12:�fillbdate(7)
'�
'� 1:� bmonth%<12 �
'$hbmonth%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(3)
'.�
'85� byear%<2021 � byear%+=1:bmonth%=1:�fillbdate(7)
'B�
'L�
'V� 6:Ȏ b%!8 �
'`� 1:� bmonth%>1 �
'jhbmonth%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(3)
't�
'~6� byear%>1990 � byear%-=1:bmonth%=12:�fillbdate(7)
'��
'�� 4:� bmonth%<12 �
'�hbmonth%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=�max(bmonth%,byear%):�fillbdate(3) � �fillbdate(3)
'��
'�5� byear%<2021 � byear%+=1:bmonth%=1:�fillbdate(7)
'��
'��
'�� 7:Ȏ b%!8 �
'�� 4:� byear%>1990 �
'�Ubyear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=28:�fillbdate(7) � �fillbdate(7)
'��
'�� 1:� byear%<2021 �
(Ubyear%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=28:�fillbdate(7) � �fillbdate(7)
(
�
(�
(� 8:Ȏ b%!8 �
((� 1:� byear%>1990 �
(2Ubyear%-=1:� bdate%>�max(bmonth%,byear%) � bdate%=28:�fillbdate(7) � �fillbdate(7)
(<�
(F� 4:� byear%<2021 �
(PUbyear%+=1:� bdate%>�max(bmonth%,byear%) � bdate%=28:�fillbdate(7) � �fillbdate(7)
(Z�
(d�
(n�� 9:ș "Wimp_CreateMenu",,-1:zdate%=bdate%:zmonth%=bmonth%:zyear%=byear%:$(ind%+940)=�day(zdate%,zmonth%,zyear%)+" "+�zdate%+�th(zdate%)+" "+�month(zmonth%)+" "+�zyear%
(xD!b%=newleague%:b%!4=25:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
(��
(�� next dtype here
(��
(��
(�:
(���opendbox
(�G!b%=datebox%:b%!4=9:b%!8=0:b%!12=&200000:ș "Wimp_SetIconState",,b%
(�V�fillbdate(7):ș "Wimp_GetPointerInfo",,b%:ș "Wimp_CreateMenu",,datebox%,!b%,b%!4
(�1ș "Wimp_SetCaretPosition",datebox%,11,,,-1,0
(��
(�:
(�
��grey
(�� grey% � �
)otabledata%?1190=49:grey%=-1:!e%=premtable%:e%!4=214:e%!8=&3000000:e%!12=&F00F000:ș "Wimp_SetIconState",,e%
)�
):
)"��ungrey
),� � grey% � �
)6ntabledata%?1190=53:grey%=0:!e%=premtable%:e%!4=214:e%!8=&7003000:e%!12=&F00F000:ș "Wimp_SetIconState",,e%
)@�
)J:
)T��sgrey(icon%)
)^Ȏ icon% �
)h� 37:ind%?3759=49
)r� 38:ind%?3769=49
)|�
)�T!e%=midstart%:e%!4=icon%:e%!8=&3000000:e%!12=&F00F000:ș "Wimp_SetIconState",,e%
)��
)�:
)���sungrey(icon%)
)�Ȏ icon% �
)�� 37:ind%?3759=53
)�� 38:ind%?3769=54
)��
)�T!e%=midstart%:e%!4=icon%:e%!8=&7003000:e%!12=&F00F000:ș "Wimp_SetIconState",,e%
)��
)�:
)���laststart
)�[ind%?3800=54:!e%=midstart%:e%!4=40:e%!8=0:e%!12=0:ș "Wimp_SetIconState",,e%:�sgrey(38)
*�
*:
*��nlaststart
*&]ind%?3800=53:!e%=midstart%:e%!4=40:e%!8=0:e%!12=0:ș "Wimp_SetIconState",,e%:�sungrey(38)
*0�
*::
*D��fillstart(caret%)
*Ng$(ind%+3400)=�day(zdate%,zmonth%,zyear%)+", "+�(zdate%)+�th(zdate%)+" "+�month(zmonth%)+" "+�zyear%
*X�$(ind%+3489)=zname$(steam%):$(ind%+3547)=�zwi%(steam%):$(ind%+3597)=�zdr%(steam%):$(ind%+3647)=�zlo%(steam%):$(ind%+3697)=�sign(zgd%(steam%))+Ôzgd%(steam%)
*b�$(ind%+3728)=�(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3731)=�zwi%(steam%):$(ind%+3734)=�zdr%(steam%):$(ind%+3737)=�zlo%(steam%):$(ind%+3740)=�sign(zgd%(steam%))+Ôzgd%(steam%)
*l1$(ind%+3745)=�((3*zwi%(steam%))+zdr%(steam%))
*v$(ind%+3802)=zleaguename$
*�� caret% �
*�'� ��zero(ind%+3547)=0 � ind%?3547=0
*�@ș "Wimp_SetCaretPosition",midstart%,14,,,-1,�len(ind%+3547)
*��
*�"ș "Wimp_GetCaretPosition",,b%
*�� !b%=midstart% �
*�O� ��zero(ind%+3547+(((b%!4)-14)*50/3))=0 � ind%?(3547+(((b%!4)-14)*50/3))=0
*�Uș "Wimp_SetCaretPosition",midstart%,b%!4,,,-1,�len(ind%+3547+(((b%!4)-14)*50/3))
*��
*��
*��!b%=midstart%:b%!4=5:b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%:b%!4=14:ș "Wimp_SetIconState",,b%:b%!4=17:ș "Wimp_SetIconState",,b%:b%!4=20:ș "Wimp_SetIconState",,b%:b%!4=23:ș "Wimp_SetIconState",,b%
*��b%!4=31:ș "Wimp_SetIconState",,b%:b%!4=32:ș "Wimp_SetIconState",,b%:b%!4=33:ș "Wimp_SetIconState",,b%:b%!4=34:ș "Wimp_SetIconState",,b%:b%!4=35:ș "Wimp_SetIconState",,b%:b%!4=36:ș "Wimp_SetIconState",,b%
*�*� steam%=1 � �sgrey(37) � �sungrey(37)
+.� steam%=teams% � �laststart � �nlaststart
+�
+:
+ ��openstart
+*l!b%=midstart%:b%!4=39:b%!8=0:b%!12=&200000:ș "Wimp_SetIconState",,b%:b%!4=40:ș "Wimp_SetIconState",,b%
+4Bș "Wimp_GetWindowState",,b%:b%!28=-1:ș "Wimp_OpenWindow",,b%
+>�
+H:
+R��restart(flag%,caret%)
+\-� la%,lb%,lc%,ld%,le%,lf%,lg%,lh%,li%,lj%
+f� flag%�1 �
+p�$(ind%+3547)=�zwi%(steam%):$(ind%+3731)=�zwi%(steam%):$(ind%+3728)=�(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3745)=�((3*zwi%(steam%))+zdr%(steam%))
+zla%=-1:le%=-1:lf%=-1:lj%=-1
+��
+�� flag%�2 �
+��$(ind%+3597)=�zdr%(steam%):$(ind%+3728)=�(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3734)=�zdr%(steam%):$(ind%+3745)=�((3*zwi%(steam%))+zdr%(steam%))
+�lb%=-1:le%=-1:lg%=-1:lj%=-1
+��
+�� flag%�4 �
+��$(ind%+3647)=�zlo%(steam%):$(ind%+3728)=�(zwi%(steam%)+zdr%(steam%)+zlo%(steam%)):$(ind%+3737)=�zlo%(steam%):$(ind%+3745)=�((3*zwi%(steam%))+zdr%(steam%))
+�lc%=-1:le%=-1:lh%=-1:lj%=-1
+��
+�� flag%�8 �
+�c$(ind%+3697)=�sign(zgd%(steam%))+Ôzgd%(steam%):$(ind%+3740)=�sign(zgd%(steam%))+Ôzgd%(steam%)
+�ld%=-1:li%=-1
+��
, !e%=midstart%:e%!8=0:e%!12=0
,.� la% � e%!4=14:ș "Wimp_SetIconState",,e%
,.� lb% � e%!4=17:ș "Wimp_SetIconState",,e%
,$.� lc% � e%!4=20:ș "Wimp_SetIconState",,e%
,..� ld% � e%!4=23:ș "Wimp_SetIconState",,e%
,8.� le% � e%!4=31:ș "Wimp_SetIconState",,e%
,B.� lf% � e%!4=32:ș "Wimp_SetIconState",,e%
,L.� lg% � e%!4=33:ș "Wimp_SetIconState",,e%
,V.� lh% � e%!4=34:ș "Wimp_SetIconState",,e%
,`.� li% � e%!4=35:ș "Wimp_SetIconState",,e%
,j.� lj% � e%!4=36:ș "Wimp_SetIconState",,e%
,t� caret%=0 �
,~"ș "Wimp_GetCaretPosition",,b%
,�g� !b%=midstart% � ș "Wimp_SetCaretPosition",midstart%,b%!4,,,-1,�len(ind%+3547+(((b%!4)-14)*50/3))
,��
,�A� ��zero(ind%+3547+(caret%*50))=0 � ind%?(3547+(caret%*50))=0
,�N!b%=midstart%:b%!4=14+(caret%*3):b%!8=0:b%!12=0:ș "Wimp_SetIconState",,b%
,�Wș "Wimp_SetCaretPosition",midstart%,14+(caret%*3),,,-1,�len(ind%+3547+(caret%*50))
,��
,��
,�:
,���clickteam
,�� l%:l%=b%!16
,�� r%=1 � t1%=res%(b%!16):$(ind%+2564)=name$(t1%):�info2:�unset(l%) � t2%=res%(b%!16):$(ind%+2590)=name$(t2%):�info4:�unset(l%)
,��
-:
-

��special
-� l%
-�radio(16,0)
-(N!b%=special%:b%!4=16:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%
-2<b%!8=0:� l%=17 � 20:b%!4=l%:ș "Wimp_SetIconState",,b%:�
-<Pb%!8=&400000:b%!12=&40F000:� l%=10 � 15:b%!4=l%:ș "Wimp_SetIconState",,b%:�
-F$(ind%+1524)=name$(t1%)
-Pf$(ind%+1550)=�day(rdate%,rmonth%,ryear%)+" "+�(rdate%)+�th(rdate%)+" "+�month(rmonth%)+" "+�ryear%
-Z%$(ind%+1583)="2":$(ind%+1633)="2"
-dHș "Wimp_GetPointerInfo",,b%:ș "Wimp_CreateMenu",,special%,!b%,b%!4
-n1ș "Wimp_SetCaretPosition",special%,23,,,-1,0
-x�
-�:
-���radio(icon%,caret%)
-�Q!b%=special%:b%!4=icon%:b%!8=&200000:b%!12=&200000:ș "Wimp_SetIconState",,b%
-�� icon%<>radio% �
-�1b%!4=radio%:b%!8=0:ș "Wimp_SetIconState",,b%
-�Ȏ radio% �
-��� 19:b%!8=&400000:b%!12=&40F000:� l%=10 � 12:b%!4=l%:ș "Wimp_SetIconState",,b%:�:� caret% � ș "Wimp_SetCaretPosition",special%,23,,,-1,0
-Ȏ� 20:b%!8=&400000:b%!12=&40F000:� l%=13 � 15:b%!4=l%:ș "Wimp_SetIconState",,b%:�:� caret% � ș "Wimp_SetCaretPosition",special%,23,,,-1,0
-��
-�Ȏ icon% �
-�� 19:b%!8=&F000:b%!12=&40F000:b%!4=10:ș "Wimp_SetIconState",,b%:b%!8=&2000:b%!4=11:ș "Wimp_SetIconState",,b%:b%!4=12:ș "Wimp_SetIconState",,b%
-�� 20:b%!8=&F000:b%!12=&40F000:b%!4=13:ș "Wimp_SetIconState",,b%:b%!8=&2000:b%!4=14:ș "Wimp_SetIconState",,b%:b%!4=15:ș "Wimp_SetIconState",,b%
-��
.radio%=icon%
.�
.�
.":
.,��okspecial
.6� type%,number%
.@ș "Wimp_CreateMenu",,-1
.Jtype%=radio%-15
.TȎ type% �
.^� 1,2,3:number%=0
.hU� 4:number%=��zero(ind%+1583):� number%<1 � number%=1 � � number%>15 � number%=15
.rU� 5:number%=��zero(ind%+1633):� number%<1 � number%=1 � � number%>15 � number%=15
.|�
.�|data%!ptr%=�("%"+�bin(rdate%,5)+�bin(rmonth%,4)+�bin(ryear%-1990,5)+�bin(t1%,5)+�bin(0,5)+�bin(type%,4)+�bin(number%,4))
.�?�info1:ptr%+=4:�notsaved:current%=ptr%/4:�fillfiler:�ungrey
.��
.�:
.���specialcaret
.�"ș "Wimp_GetCaretPosition",,b%
.�� !b%=special% �
.�
Ȏ b%!4 �
.�D� 10:ș "Wimp_SetCaretPosition",special%,10,,,-1,�len(ind%+1583)
.�D� 13:ș "Wimp_SetCaretPosition",special%,13,,,-1,�len(ind%+1633)
.��
.��
.�1ș "Wimp_SetCaretPosition",special%,23,,,-1,0
/�
/�
�

00000000  0d 00 0a 24 ee 85 eb 31  36 3a f1 8a 30 2c 30 29  |...$...16:..0,0)|
00000010  3b f6 24 3b 22 20 61 74  20 6c 69 6e 65 20 22 3b  |;.$;" at line ";|
00000020  c3 9e 3a e0 0d 00 14 5b  de 20 62 25 26 31 30 30  |..:....[. b%&100|
00000030  2c 62 75 66 66 65 72 25  38 30 30 30 2c 74 61 62  |,buffer%8000,tab|
00000040  6c 65 64 61 74 61 25 31  32 30 30 2c 6d 25 32 30  |ledata%1200,m%20|
00000050  30 2c 65 25 26 31 30 30  2c 69 6e 64 25 34 32 30  |0,e%&100,ind%420|
00000060  30 2c 64 61 74 61 25 32  35 30 30 2c 73 70 72 25  |0,data%2500,spr%|
00000070  32 30 30 30 3a 21 73 70  72 25 3d 32 30 30 30 0d  |2000:!spr%=2000.|
00000080  00 1e d1 de 20 6e 61 6d  65 24 28 32 34 29 2c 77  |.... name$(24),w|
00000090  69 25 28 32 34 29 2c 64  72 25 28 32 34 29 2c 6c  |i%(24),dr%(24),l|
000000a0  6f 25 28 32 34 29 2c 67  64 25 28 32 34 29 2c 70  |o%(24),gd%(24),p|
000000b0  6f 25 28 32 34 29 2c 70  6c 25 28 32 34 29 2c 72  |o%(24),pl%(24),r|
000000c0  61 6e 6b 25 28 32 34 29  2c 72 61 6e 6b 65 64 25  |ank%(24),ranked%|
000000d0  28 32 34 29 2c 65 72 72  74 69 6d 65 25 28 32 29  |(24),errtime%(2)|
000000e0  2c 7a 77 69 25 28 32 34  29 2c 7a 64 72 25 28 32  |,zwi%(24),zdr%(2|
000000f0  34 29 2c 7a 6c 6f 25 28  32 34 29 2c 7a 67 64 25  |4),zlo%(24),zgd%|
00000100  28 32 34 29 2c 7a 6e 61  6d 65 24 28 32 34 29 2c  |(24),zname$(24),|
00000110  73 77 69 25 28 32 34 29  2c 73 64 72 25 28 32 34  |swi%(24),sdr%(24|
00000120  29 2c 73 6c 6f 25 28 32  34 29 2c 73 67 64 25 28  |),slo%(24),sgd%(|
00000130  32 34 29 2c 72 65 73 25  28 32 34 29 2c 75 73 65  |24),res%(24),use|
00000140  64 25 28 32 34 29 2c 78  74 72 61 25 28 32 34 29  |d%(24),xtra%(24)|
00000150  0d 00 28 5d 65 72 72 74  69 6d 65 6e 6f 25 3d 30  |..(]errtimeno%=0|
00000160  3a 74 61 62 6c 65 66 69  6c 6c 65 64 25 3d 30 3a  |:tablefilled%=0:|
00000170  70 74 72 25 3d 30 3a 6c  65 61 67 75 65 66 69 6c  |ptr%=0:leaguefil|
00000180  65 25 3d 26 31 41 31 3a  63 75 72 72 65 6e 74 25  |e%=&1A1:current%|
00000190  3d 30 3a 74 65 61 6d 73  25 3d 32 32 3a 67 72 65  |=0:teams%=22:gre|
000001a0  79 25 3d 30 3a 72 61 64  69 6f 25 3d 30 0d 00 32  |y%=0:radio%=0..2|
000001b0  34 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |4.. "OS_SpriteOp|
000001c0  22 2c 32 36 36 2c 73 70  72 25 2c 22 3c 4c 65 61  |",266,spr%,"<Lea|
000001d0  67 75 65 24 44 69 72 3e  2e 53 70 72 69 74 65 73  |gue$Dir>.Sprites|
000001e0  22 0d 00 3c 37 c8 99 20  22 57 69 6d 70 5f 49 6e  |"..<7.. "Wimp_In|
000001f0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00000200  42 35 33 34 31 35 34 2c  22 50 72 65 6d 69 65 72  |B534154,"Premier|
00000210  20 4c 65 61 67 75 65 22  0d 00 46 34 c8 99 20 22  | League"..F4.. "|
00000220  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000230  65 22 2c 2c 22 3c 4c 65  61 67 75 65 24 44 69 72  |e",,"<League$Dir|
00000240  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 00 50 4d  |>.Templates"..PM|
00000250  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000260  70 6c 61 74 65 22 2c 2c  62 75 66 66 65 72 25 2c  |plate",,buffer%,|
00000270  74 61 62 6c 65 64 61 74  61 25 2c 74 61 62 6c 65  |tabledata%,table|
00000280  64 61 74 61 25 2b 31 32  30 30 2c 2d 31 2c 22 70  |data%+1200,-1,"p|
00000290  72 65 6d 74 61 62 6c 65  22 0d 00 5a 3b 62 25 21  |remtable"..Z;b%!|
000002a0  36 34 3d 73 70 72 25 3a  c8 99 20 22 57 69 6d 70  |64=spr%:.. "Wimp|
000002b0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000002c0  62 75 66 66 65 72 25 20  b8 20 70 72 65 6d 74 61  |buffer% . premta|
000002d0  62 6c 65 25 0d 00 64 41  c8 99 20 22 57 69 6d 70  |ble%..dA.. "Wimp|
000002e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000002f0  62 75 66 66 65 72 25 2c  69 6e 64 25 2c 69 6e 64  |buffer%,ind%,ind|
00000300  25 2b 31 33 30 30 2c 2d  31 2c 22 6e 65 77 6c 65  |%+1300,-1,"newle|
00000310  61 67 75 65 22 0d 00 6e  3b 62 25 21 36 34 3d 73  |ague"..n;b%!64=s|
00000320  70 72 25 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |pr%:.. "Wimp_Cre|
00000330  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 75 66 66  |ateWindow",,buff|
00000340  65 72 25 20 b8 20 6e 65  77 6c 65 61 67 75 65 25  |er% . newleague%|
00000350  0d 00 78 44 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..xD.. "Wimp_Loa|
00000360  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 75 66 66  |dTemplate",,buff|
00000370  65 72 25 2c 69 6e 64 25  2b 31 33 30 30 2c 69 6e  |er%,ind%+1300,in|
00000380  64 25 2b 31 35 30 30 2c  2d 31 2c 22 69 6e 66 6f  |d%+1500,-1,"info|
00000390  62 6f 78 22 0d 00 82 39  62 25 21 36 34 3d 73 70  |box"...9b%!64=sp|
000003a0  72 25 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |r%:.. "Wimp_Crea|
000003b0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 75 66 66 65  |teWindow",,buffe|
000003c0  72 25 20 b8 20 69 6e 66  6f 62 6f 78 25 0d 00 8c  |r% . infobox%...|
000003d0  44 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |D.. "Wimp_LoadTe|
000003e0  6d 70 6c 61 74 65 22 2c  2c 62 75 66 66 65 72 25  |mplate",,buffer%|
000003f0  2c 69 6e 64 25 2b 31 35  30 30 2c 69 6e 64 25 2b  |,ind%+1500,ind%+|
00000400  31 39 30 30 2c 2d 31 2c  22 73 70 65 63 69 61 6c  |1900,-1,"special|
00000410  22 0d 00 96 39 62 25 21  36 34 3d 73 70 72 25 3a  |"...9b%!64=spr%:|
00000420  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000430  69 6e 64 6f 77 22 2c 2c  62 75 66 66 65 72 25 20  |indow",,buffer% |
00000440  b8 20 73 70 65 63 69 61  6c 25 0d 00 a0 43 c8 99  |. special%...C..|
00000450  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000460  61 74 65 22 2c 2c 62 75  66 66 65 72 25 2c 69 6e  |ate",,buffer%,in|
00000470  64 25 2b 31 39 30 30 2c  69 6e 64 25 2b 32 37 30  |d%+1900,ind%+270|
00000480  30 2c 2d 31 2c 22 72 65  73 75 6c 74 22 0d 00 aa  |0,-1,"result"...|
00000490  38 62 25 21 36 34 3d 73  70 72 25 3a c8 99 20 22  |8b%!64=spr%:.. "|
000004a0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000004b0  77 22 2c 2c 62 75 66 66  65 72 25 20 b8 20 72 65  |w",,buffer% . re|
000004c0  73 75 6c 74 25 0d 00 b4  44 c8 99 20 22 57 69 6d  |sult%...D.. "Wim|
000004d0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000004e0  2c 62 75 66 66 65 72 25  2c 69 6e 64 25 2b 32 37  |,buffer%,ind%+27|
000004f0  30 30 2c 69 6e 64 25 2b  33 30 30 30 2c 2d 31 2c  |00,ind%+3000,-1,|
00000500  22 73 61 76 65 62 6f 78  22 0d 00 be 39 62 25 21  |"savebox"...9b%!|
00000510  36 34 3d 73 70 72 25 3a  c8 99 20 22 57 69 6d 70  |64=spr%:.. "Wimp|
00000520  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000530  62 75 66 66 65 72 25 20  b8 20 73 61 76 65 62 6f  |buffer% . savebo|
00000540  78 25 0d 00 c8 44 c8 99  20 22 57 69 6d 70 5f 4c  |x%...D.. "Wimp_L|
00000550  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 75  |oadTemplate",,bu|
00000560  66 66 65 72 25 2c 69 6e  64 25 2b 33 31 30 30 2c  |ffer%,ind%+3100,|
00000570  69 6e 64 25 2b 33 34 30  30 2c 2d 31 2c 22 64 61  |ind%+3400,-1,"da|
00000580  74 65 62 6f 78 22 0d 00  d2 39 62 25 21 36 34 3d  |tebox"...9b%!64=|
00000590  73 70 72 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |spr%:.. "Wimp_Cr|
000005a0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 75 66  |eateWindow",,buf|
000005b0  66 65 72 25 20 b8 20 64  61 74 65 62 6f 78 25 0d  |fer% . datebox%.|
000005c0  00 dc 45 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..E.. "Wimp_Load|
000005d0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 75 66 66 65  |Template",,buffe|
000005e0  72 25 2c 69 6e 64 25 2b  33 34 30 30 2c 69 6e 64  |r%,ind%+3400,ind|
000005f0  25 2b 33 39 30 30 2c 2d  31 2c 22 6d 69 64 73 74  |%+3900,-1,"midst|
00000600  61 72 74 22 0d 00 e6 3a  62 25 21 36 34 3d 73 70  |art"...:b%!64=sp|
00000610  72 25 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |r%:.. "Wimp_Crea|
00000620  74 65 57 69 6e 64 6f 77  22 2c 2c 62 75 66 66 65  |teWindow",,buffe|
00000630  72 25 20 b8 20 6d 69 64  73 74 61 72 74 25 0d 00  |r% . midstart%..|
00000640  f0 42 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.B.. "Wimp_LoadT|
00000650  65 6d 70 6c 61 74 65 22  2c 2c 62 75 66 66 65 72  |emplate",,buffer|
00000660  25 2c 69 6e 64 25 2b 33  39 30 30 2c 69 6e 64 25  |%,ind%+3900,ind%|
00000670  2b 34 32 30 30 2c 2d 31  2c 22 66 69 6c 65 72 22  |+4200,-1,"filer"|
00000680  0d 00 fa 37 62 25 21 36  34 3d 73 70 72 25 3a c8  |...7b%!64=spr%:.|
00000690  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000006a0  6e 64 6f 77 22 2c 2c 62  75 66 66 65 72 25 20 b8  |ndow",,buffer% .|
000006b0  20 66 69 6c 65 72 25 0d  01 04 1b c8 99 20 22 57  | filer%...... "W|
000006c0  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000006d0  65 22 0d 01 0e 49 21 62  25 3d 2d 31 3a 62 25 21  |e"...I!b%=-1:b%!|
000006e0  34 3d 30 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |4=0:b%!8=0:b%!12|
000006f0  3d 36 38 3a 62 25 21 31  36 3d 36 38 3a 62 25 21  |=68:b%!16=68:b%!|
00000700  32 30 3d 26 33 30 31 41  3a 24 28 62 25 2b 32 34  |20=&301A:$(b%+24|
00000710  29 3d 22 21 6c 65 61 67  75 65 22 0d 01 18 1c c8  |)="!league".....|
00000720  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000730  6f 6e 22 2c 2c 62 25 0d  01 22 1d 24 28 69 6e 64  |on",,b%..".$(ind|
00000740  25 2b 32 37 30 30 29 3d  22 4c 65 61 67 75 65 46  |%+2700)="LeagueF|
00000750  69 6c 65 22 0d 01 2c 13  73 61 76 65 64 25 3d a3  |ile"..,.saved%=.|
00000760  3a f2 73 61 76 65 64 0d  01 36 b7 24 6d 25 3d 22  |:.saved..6.$m%="|
00000770  4c 65 61 67 75 65 22 3a  6d 25 3f 31 32 3d 37 3a  |League":m%?12=7:|
00000780  6d 25 3f 31 33 3d 32 3a  6d 25 3f 31 34 3d 37 3a  |m%?13=2:m%?14=7:|
00000790  6d 25 3f 31 35 3d 30 3a  6d 25 21 31 36 3d 32 30  |m%?15=0:m%!16=20|
000007a0  38 3a 6d 25 21 32 30 3d  34 34 3a 6d 25 21 32 34  |8:m%!20=44:m%!24|
000007b0  3d 30 3a 6d 25 21 32 38  3d 30 3a 6d 25 21 33 32  |=0:m%!28=0:m%!32|
000007c0  3d 69 6e 66 6f 62 6f 78  25 3a 6d 25 21 33 36 3d  |=infobox%:m%!36=|
000007d0  26 37 30 30 30 30 32 31  3a 24 28 6d 25 2b 34 30  |&7000021:$(m%+40|
000007e0  29 3d 22 49 6e 66 6f 22  3a 6d 25 21 35 32 3d 30  |)="Info":m%!52=0|
000007f0  3a 6d 25 21 35 36 3d 73  61 76 65 62 6f 78 25 3a  |:m%!56=savebox%:|
00000800  6d 25 21 36 30 3d 26 37  34 30 30 30 32 31 3a 24  |m%!60=&7400021:$|
00000810  28 6d 25 2b 36 34 29 3d  22 53 61 76 65 22 0d 01  |(m%+64)="Save"..|
00000820  40 b0 6d 25 21 37 36 3d  30 3a 6d 25 21 38 30 3d  |@.m%!76=0:m%!80=|
00000830  2d 31 3a 6d 25 21 38 34  3d 26 37 30 30 30 30 32  |-1:m%!84=&700002|
00000840  31 3a 24 28 6d 25 2b 38  38 29 3d 22 4e 65 77 20  |1:$(m%+88)="New |
00000850  6c 65 61 67 75 65 22 3a  6d 25 21 31 30 30 3d 30  |league":m%!100=0|
00000860  3a 6d 25 21 31 30 34 3d  2d 31 3a 6d 25 21 31 30  |:m%!104=-1:m%!10|
00000870  38 3d 26 37 34 30 30 30  32 31 3a 24 28 6d 25 2b  |8=&7400021:$(m%+|
00000880  31 31 32 29 3d 22 4e 65  77 20 72 65 73 75 6c 74  |112)="New result|
00000890  73 22 3a 6d 25 21 31 32  34 3d 30 3a 6d 25 21 31  |s":m%!124=0:m%!1|
000008a0  32 38 3d 2d 31 3a 6d 25  21 31 33 32 3d 26 37 34  |28=-1:m%!132=&74|
000008b0  30 30 30 32 31 3a 24 28  6d 25 2b 31 33 36 29 3d  |00021:$(m%+136)=|
000008c0  22 56 69 65 77 20 72 65  73 75 6c 74 73 22 0d 01  |"View results"..|
000008d0  4a 39 6d 25 21 31 34 38  3d 31 32 38 3a 6d 25 21  |J9m%!148=128:m%!|
000008e0  31 35 32 3d 2d 31 3a 6d  25 21 31 35 36 3d 26 37  |152=-1:m%!156=&7|
000008f0  30 30 30 30 32 31 3a 24  28 6d 25 2b 31 36 30 29  |000021:$(m%+160)|
00000900  3d 22 51 75 69 74 22 0d  01 54 0b 71 75 69 74 25  |="Quit"..T.quit%|
00000910  3d a3 0d 01 5e 11 f2 63  68 65 63 6b 66 6f 72 6c  |=...^..checkforl|
00000920  6f 61 64 0d 01 68 41 ee  20 85 20 e7 20 a4 77 69  |oad..hA. . . .wi|
00000930  6d 70 65 72 72 6f 72 28  9f 2c f6 24 2b 22 20 20  |mperror(.,.$+"  |
00000940  28 69 6e 74 65 72 6e 61  6c 20 65 72 72 6f 72 20  |(internal error |
00000950  63 6f 64 65 20 22 2b c3  9e 2b 22 29 22 2c 33 29  |code "+..+")",3)|
00000960  20 8c 20 e0 0d 01 72 05  f5 0d 01 7c 24 c8 99 20  | . ...r....|$.. |
00000970  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 36 31 39 35  |"Wimp_Poll",6195|
00000980  2c 62 25 20 b8 20 72 65  61 73 6f 6e 25 0d 01 86  |,b% . reason%...|
00000990  10 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 01 90  |... reason% ....|
000009a0  20 c9 20 32 3a c8 99 20  22 57 69 6d 70 5f 4f 70  | . 2:.. "Wimp_Op|
000009b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 01 9a  |enWindow",,b%...|
000009c0  8d c9 20 33 3a e7 20 21  62 25 3d 6d 69 64 73 74  |.. 3:. !b%=midst|
000009d0  61 72 74 25 20 8c 20 62  25 21 34 3d 33 39 3a 62  |art% . b%!4=39:b|
000009e0  25 21 38 3d 26 32 30 30  30 30 30 3a 62 25 21 31  |%!8=&200000:b%!1|
000009f0  32 3d 26 32 30 30 30 30  30 3a c8 99 20 22 57 69  |2=&200000:.. "Wi|
00000a00  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00000a10  2c 2c 62 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |,,b%:.. "Wimp_Cl|
00000a20  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 25 20 8b  |oseWindow",,b% .|
00000a30  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
00000a40  69 6e 64 6f 77 22 2c 2c  62 25 0d 01 a4 12 c9 20  |indow",,b%..... |
00000a50  36 3a e7 20 62 25 21 38  3d 32 20 8c 0d 01 ae 0a  |6:. b%!8=2 .....|
00000a60  c8 8e 20 b9 20 ca 0d 01  b8 6f c9 20 28 62 25 21  |.. . ....o. (b%!|
00000a70  31 32 3d 6e 65 77 6c 65  61 67 75 65 25 20 80 20  |12=newleague% . |
00000a80  28 62 25 21 31 36 3d 32  35 20 84 20 62 25 21 31  |(b%!16=25 . b%!1|
00000a90  36 3d 32 36 29 29 3a 64  74 79 70 65 25 3d 33 3a  |6=26)):dtype%=3:|
00000aa0  62 64 61 74 65 25 3d 7a  64 61 74 65 25 3a 62 6d  |bdate%=zdate%:bm|
00000ab0  6f 6e 74 68 25 3d 7a 6d  6f 6e 74 68 25 3a 62 79  |onth%=zmonth%:by|
00000ac0  65 61 72 25 3d 7a 79 65  61 72 25 3a f2 6f 70 65  |ear%=zyear%:.ope|
00000ad0  6e 64 62 6f 78 0d 01 c2  6c c9 20 28 62 25 21 31  |ndbox...l. (b%!1|
00000ae0  32 3d 72 65 73 75 6c 74  25 20 80 20 28 62 25 21  |2=result% . (b%!|
00000af0  31 36 3d 34 30 20 84 20  62 25 21 31 36 3d 34 31  |16=40 . b%!16=41|
00000b00  29 29 3a 64 74 79 70 65  25 3d 32 3a 62 64 61 74  |)):dtype%=2:bdat|
00000b10  65 25 3d 72 64 61 74 65  25 3a 62 6d 6f 6e 74 68  |e%=rdate%:bmonth|
00000b20  25 3d 72 6d 6f 6e 74 68  25 3a 62 79 65 61 72 25  |%=rmonth%:byear%|
00000b30  3d 72 79 65 61 72 25 3a  f2 6f 70 65 6e 64 62 6f  |=ryear%:.opendbo|
00000b40  78 0d 01 cc 05 7f 0d 01  d6 43 e7 20 74 61 62 6c  |x........C. tabl|
00000b50  65 66 69 6c 6c 65 64 25  20 8c 20 6d 25 21 36 30  |efilled% . m%!60|
00000b60  3d 26 37 30 30 30 30 32  31 3a 6d 25 21 31 30 38  |=&7000021:m%!108|
00000b70  3d 26 37 30 30 30 30 32  31 3a 6d 25 21 31 33 32  |=&7000021:m%!132|
00000b80  3d 26 37 30 30 30 30 32  31 0d 01 e0 7e e7 20 62  |=&7000021...~. b|
00000b90  25 21 31 32 3d 2d 32 20  8c 20 6d 78 25 3d 21 62  |%!12=-2 . mx%=!b|
00000ba0  25 2d 36 34 3a 6d 79 25  3d 33 36 30 3a c8 99 20  |%-64:my%=360:.. |
00000bb0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000bc0  22 2c 2c 6d 25 2c 6d 78  25 2c 6d 79 25 20 8b 20  |",,m%,mx%,my% . |
00000bd0  6d 78 25 3d 21 62 25 2d  36 34 3a 6d 79 25 3d 62  |mx%=!b%-64:my%=b|
00000be0  25 21 34 2b 33 32 3a c8  99 20 22 57 69 6d 70 5f  |%!4+32:.. "Wimp_|
00000bf0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
00000c00  6d 78 25 2c 6d 79 25 0d  01 ea 05 cb 0d 01 f4 05  |mx%,my%.........|
00000c10  cc 0d 01 fe 52 21 65 25  3d 62 25 21 31 32 3a 65  |....R!e%=b%!12:e|
00000c20  25 21 34 3d 62 25 21 31  36 3a c8 99 20 22 57 69  |%!4=b%!16:.. "Wi|
00000c30  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000c40  2c 2c 65 25 3a e7 20 28  65 25 21 32 34 80 26 46  |,,e%:. (e%!24.&F|
00000c50  30 30 30 29 3e 30 20 8c  20 c8 8e 20 62 25 21 31  |000)>0 . .. b%!1|
00000c60  32 20 ca 0d 02 08 70 c9  20 2d 32 3a e7 20 62 25  |2 ....p. -2:. b%|
00000c70  21 38 3d 34 20 80 20 74  61 62 6c 65 66 69 6c 6c  |!8=4 . tablefill|
00000c80  65 64 25 20 8c 20 21 62  25 3d 70 72 65 6d 74 61  |ed% . !b%=premta|
00000c90  62 6c 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |ble%:.. "Wimp_Ge|
00000ca0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000cb0  25 3a 62 25 21 32 38 3d  2d 31 3a c8 99 20 22 57  |%:b%!28=-1:.. "W|
00000cc0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000cd0  2c 62 25 0d 02 12 1b c9  20 70 72 65 6d 74 61 62  |,b%..... premtab|
00000ce0  6c 65 25 3a c8 8e 20 62  25 21 31 36 20 ca 0d 02  |le%:.. b%!16 ...|
00000cf0  1c 45 c9 20 32 31 33 3a  64 74 79 70 65 25 3d 31  |.E. 213:dtype%=1|
00000d00  3a 62 64 61 74 65 25 3d  64 61 74 65 25 3a 62 6d  |:bdate%=date%:bm|
00000d10  6f 6e 74 68 25 3d 6d 6f  6e 74 68 25 3a 62 79 65  |onth%=month%:bye|
00000d20  61 72 25 3d 79 65 61 72  25 3a f2 6f 70 65 6e 64  |ar%=year%:.opend|
00000d30  62 6f 78 0d 02 26 17 c9  20 32 31 34 3a f2 66 69  |box..&.. 214:.fi|
00000d40  6c 6c 74 61 62 6c 65 28  a3 29 0d 02 30 05 cb 0d  |lltable(.)..0...|
00000d50  02 3a 1b c9 20 6e 65 77  6c 65 61 67 75 65 25 3a  |.:.. newleague%:|
00000d60  c8 8e 20 62 25 21 31 36  20 ca 0d 02 44 3e c9 20  |.. b%!16 ...D>. |
00000d70  34 30 3a 21 62 25 3d 6e  65 77 6c 65 61 67 75 65  |40:!b%=newleague|
00000d80  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00000d90  57 69 6e 64 6f 77 22 2c  2c 62 25 3a f2 6f 6b 6e  |Window",,b%:.okn|
00000da0  65 77 6c 65 61 67 75 65  0d 02 4e 31 c9 20 33 39  |ewleague..N1. 39|
00000db0  3a 21 62 25 3d 6e 65 77  6c 65 61 67 75 65 25 3a  |:!b%=newleague%:|
00000dc0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00000dd0  6e 64 6f 77 22 2c 2c 62  25 0d 02 58 4a c9 20 32  |ndow",,b%..XJ. 2|
00000de0  35 2c 32 36 3a 64 74 79  70 65 25 3d 33 3a 62 64  |5,26:dtype%=3:bd|
00000df0  61 74 65 25 3d 7a 64 61  74 65 25 3a 62 6d 6f 6e  |ate%=zdate%:bmon|
00000e00  74 68 25 3d 7a 6d 6f 6e  74 68 25 3a 62 79 65 61  |th%=zmonth%:byea|
00000e10  72 25 3d 7a 79 65 61 72  25 3a f2 6f 70 65 6e 64  |r%=zyear%:.opend|
00000e20  62 6f 78 0d 02 62 8a c9  20 32 38 3a e7 20 62 25  |box..b.. 28:. b%|
00000e30  21 38 3d 31 20 8c 20 21  62 25 3d 6e 65 77 6c 65  |!8=1 . !b%=newle|
00000e40  61 67 75 65 25 3a 62 25  21 34 3d 32 38 3a 62 25  |ague%:b%!4=28:b%|
00000e50  21 38 3d 26 32 30 30 30  30 30 3a 62 25 21 31 32  |!8=&200000:b%!12|
00000e60  3d 26 32 30 30 30 30 30  3a c8 99 20 22 57 69 6d  |=&200000:.. "Wim|
00000e70  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00000e80  2c 62 25 3a 62 25 21 34  3d 32 39 3a 62 25 21 38  |,b%:b%!4=29:b%!8|
00000e90  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00000ea0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 02 6c  |conState",,b%..l|
00000eb0  8a c9 20 32 39 3a e7 20  62 25 21 38 3d 31 20 8c  |.. 29:. b%!8=1 .|
00000ec0  20 21 62 25 3d 6e 65 77  6c 65 61 67 75 65 25 3a  | !b%=newleague%:|
00000ed0  62 25 21 34 3d 32 39 3a  62 25 21 38 3d 26 32 30  |b%!4=29:b%!8=&20|
00000ee0  30 30 30 30 3a 62 25 21  31 32 3d 26 32 30 30 30  |0000:b%!12=&2000|
00000ef0  30 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |00:.. "Wimp_SetI|
00000f00  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 62 25  |conState",,b%:b%|
00000f10  21 34 3d 32 38 3a 62 25  21 38 3d 30 3a c8 99 20  |!4=28:b%!8=0:.. |
00000f20  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000f30  74 65 22 2c 2c 62 25 0d  02 76 13 c9 20 33 33 3a  |te",,b%..v.. 33:|
00000f40  e7 20 62 25 21 38 3d 34  20 8c 0d 02 80 bf e7 20  |. b%!8=4 ...... |
00000f50  74 65 61 6d 73 25 3e 32  20 8c 20 74 65 61 6d 73  |teams%>2 . teams|
00000f60  25 2d 3d 31 3a 69 6e 64  25 21 28 35 32 2b 28 33  |%-=1:ind%!(52+(3|
00000f70  37 2a 74 65 61 6d 73 25  29 29 3d 26 32 44 3a 24  |7*teams%))=&2D:$|
00000f80  28 69 6e 64 25 2b 31 31  35 38 29 3d c3 74 65 61  |(ind%+1158)=.tea|
00000f90  6d 73 25 3a 21 62 25 3d  6e 65 77 6c 65 61 67 75  |ms%:!b%=newleagu|
00000fa0  65 25 3a 62 25 21 34 3d  74 65 61 6d 73 25 2b 31  |e%:b%!4=teams%+1|
00000fb0  3a 62 25 21 38 3d 30 3a  62 25 21 31 32 3d 26 46  |:b%!8=0:b%!12=&F|
00000fc0  30 30 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |000:.. "Wimp_Set|
00000fd0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 3a 62  |IconState",,b%:b|
00000fe0  25 21 34 3d 33 35 3a 62  25 21 31 32 3d 30 3a c8  |%!4=35:b%!12=0:.|
00000ff0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00001000  74 61 74 65 22 2c 2c 62  25 0d 02 8a 05 cc 0d 02  |tate",,b%.......|
00001010  94 c7 e7 20 74 65 61 6d  73 25 3c 32 34 20 8c 20  |... teams%<24 . |
00001020  69 6e 64 25 21 28 35 32  2b 28 33 37 2a 74 65 61  |ind%!(52+(37*tea|
00001030  6d 73 25 29 29 3d 30 3a  74 65 61 6d 73 25 2b 3d  |ms%))=0:teams%+=|
00001040  31 3a 24 28 69 6e 64 25  2b 31 31 35 38 29 3d c3  |1:$(ind%+1158)=.|
00001050  74 65 61 6d 73 25 3a 21  62 25 3d 6e 65 77 6c 65  |teams%:!b%=newle|
00001060  61 67 75 65 25 3a 62 25  21 34 3d 74 65 61 6d 73  |ague%:b%!4=teams|
00001070  25 3a 62 25 21 38 3d 26  46 30 30 30 3a 62 25 21  |%:b%!8=&F000:b%!|
00001080  31 32 3d 26 46 30 30 30  3a c8 99 20 22 57 69 6d  |12=&F000:.. "Wim|
00001090  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000010a0  2c 62 25 3a 62 25 21 34  3d 33 35 3a 62 25 21 38  |,b%:b%!4=35:b%!8|
000010b0  3d 30 3a 62 25 21 31 32  3d 30 3a c8 99 20 22 57  |=0:b%!12=0:.. "W|
000010c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000010d0  22 2c 2c 62 25 0d 02 9e  05 cd 0d 02 a8 13 c9 20  |",,b%.......... |
000010e0  33 34 3a e7 20 62 25 21  38 3d 34 20 8c 0d 02 b2  |34:. b%!8=4 ....|
000010f0  c7 e7 20 74 65 61 6d 73  25 3c 32 34 20 8c 20 69  |.. teams%<24 . i|
00001100  6e 64 25 21 28 35 32 2b  28 33 37 2a 74 65 61 6d  |nd%!(52+(37*team|
00001110  73 25 29 29 3d 30 3a 74  65 61 6d 73 25 2b 3d 31  |s%))=0:teams%+=1|
00001120  3a 24 28 69 6e 64 25 2b  31 31 35 38 29 3d c3 74  |:$(ind%+1158)=.t|
00001130  65 61 6d 73 25 3a 21 62  25 3d 6e 65 77 6c 65 61  |eams%:!b%=newlea|
00001140  67 75 65 25 3a 62 25 21  34 3d 74 65 61 6d 73 25  |gue%:b%!4=teams%|
00001150  3a 62 25 21 38 3d 26 46  30 30 30 3a 62 25 21 31  |:b%!8=&F000:b%!1|
00001160  32 3d 26 46 30 30 30 3a  c8 99 20 22 57 69 6d 70  |2=&F000:.. "Wimp|
00001170  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001180  62 25 3a 62 25 21 34 3d  33 35 3a 62 25 21 38 3d  |b%:b%!4=35:b%!8=|
00001190  30 3a 62 25 21 31 32 3d  30 3a c8 99 20 22 57 69  |0:b%!12=0:.. "Wi|
000011a0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000011b0  2c 2c 62 25 0d 02 bc 05  cc 0d 02 c6 bf e7 20 74  |,,b%.......... t|
000011c0  65 61 6d 73 25 3e 32 20  8c 20 74 65 61 6d 73 25  |eams%>2 . teams%|
000011d0  2d 3d 31 3a 69 6e 64 25  21 28 35 32 2b 28 33 37  |-=1:ind%!(52+(37|
000011e0  2a 74 65 61 6d 73 25 29  29 3d 26 32 44 3a 24 28  |*teams%))=&2D:$(|
000011f0  69 6e 64 25 2b 31 31 35  38 29 3d c3 74 65 61 6d  |ind%+1158)=.team|
00001200  73 25 3a 21 62 25 3d 6e  65 77 6c 65 61 67 75 65  |s%:!b%=newleague|
00001210  25 3a 62 25 21 34 3d 74  65 61 6d 73 25 2b 31 3a  |%:b%!4=teams%+1:|
00001220  62 25 21 38 3d 30 3a 62  25 21 31 32 3d 26 46 30  |b%!8=0:b%!12=&F0|
00001230  30 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |00:.. "Wimp_SetI|
00001240  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 62 25  |conState",,b%:b%|
00001250  21 34 3d 33 35 3a 62 25  21 31 32 3d 30 3a c8 99  |!4=35:b%!12=0:..|
00001260  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00001270  61 74 65 22 2c 2c 62 25  0d 02 d0 05 cd 0d 02 da  |ate",,b%........|
00001280  05 cb 0d 02 e4 19 c9 20  73 61 76 65 62 6f 78 25  |....... savebox%|
00001290  3a c8 8e 20 62 25 21 31  36 20 ca 0d 02 ee 23 c9  |:.. b%!16 ....#.|
000012a0  20 30 3a e7 20 28 62 25  21 38 20 80 20 26 35 30  | 0:. (b%!8 . &50|
000012b0  29 3e 30 20 8c 20 f2 64  72 61 67 62 6f 78 0d 02  |)>0 . .dragbox..|
000012c0  f8 15 c9 20 32 3a f2 63  68 65 63 6b 61 6e 64 73  |... 2:.checkands|
000012d0  61 76 65 0d 03 02 05 cb  0d 03 0c 18 c9 20 72 65  |ave.......... re|
000012e0  73 75 6c 74 25 3a c8 8e  20 62 25 21 31 36 20 ca  |sult%:.. b%!16 .|
000012f0  0d 03 16 18 c9 20 33 33  3a e7 20 72 25 3e 31 20  |..... 33:. r%>1 |
00001300  8c 20 f2 69 6e 66 6f 31  0d 03 20 18 c9 20 33 34  |. .info1.. .. 34|
00001310  3a e7 20 72 25 3e 32 20  8c 20 f2 69 6e 66 6f 32  |:. r%>2 . .info2|
00001320  0d 03 2a 18 c9 20 33 35  3a e7 20 72 25 3e 33 20  |..*.. 35:. r%>3 |
00001330  8c 20 f2 69 6e 66 6f 33  0d 03 34 4a c9 20 34 30  |. .info3..4J. 40|
00001340  2c 34 31 3a 64 74 79 70  65 25 3d 32 3a 62 64 61  |,41:dtype%=2:bda|
00001350  74 65 25 3d 72 64 61 74  65 25 3a 62 6d 6f 6e 74  |te%=rdate%:bmont|
00001360  68 25 3d 72 6d 6f 6e 74  68 25 3a 62 79 65 61 72  |h%=rmonth%:byear|
00001370  25 3d 72 79 65 61 72 25  3a f2 6f 70 65 6e 64 62  |%=ryear%:.opendb|
00001380  6f 78 0d 03 3e 1d c9 20  32 35 3a f2 73 63 6f 72  |ox..>.. 25:.scor|
00001390  65 28 30 29 3a f2 75 6e  73 65 74 28 32 35 29 0d  |e(0):.unset(25).|
000013a0  03 48 1d c9 20 32 36 3a  f2 73 63 6f 72 65 28 31  |.H.. 26:.score(1|
000013b0  29 3a f2 75 6e 73 65 74  28 32 36 29 0d 03 52 1d  |):.unset(26)..R.|
000013c0  c9 20 32 37 3a f2 73 63  6f 72 65 28 32 29 3a f2  |. 27:.score(2):.|
000013d0  75 6e 73 65 74 28 32 37  29 0d 03 5c 1d c9 20 32  |unset(27)..\.. 2|
000013e0  38 3a f2 73 63 6f 72 65  28 33 29 3a f2 75 6e 73  |8:.score(3):.uns|
000013f0  65 74 28 32 38 29 0d 03  66 1d c9 20 32 39 3a f2  |et(28)..f.. 29:.|
00001400  73 63 6f 72 65 28 34 29  3a f2 75 6e 73 65 74 28  |score(4):.unset(|
00001410  32 39 29 0d 03 70 11 c9  20 33 30 3a f2 73 70 65  |29)..p.. 30:.spe|
00001420  63 69 61 6c 0d 03 7a 10  7f 3a f2 63 6c 69 63 6b  |cial..z..:.click|
00001430  74 65 61 6d 0d 03 84 05  cb 0d 03 8e 17 c9 20 66  |team.......... f|
00001440  69 6c 65 72 25 3a c8 8e  20 62 25 21 31 36 20 ca  |iler%:.. b%!16 .|
00001450  0d 03 98 11 c9 20 35 3a  c8 8e 20 62 25 21 38 20  |..... 5:.. b%!8 |
00001460  ca 0d 03 a2 2d c9 20 34  3a e7 20 63 75 72 72 65  |....-. 4:. curre|
00001470  6e 74 25 3e 31 20 8c 20  63 75 72 72 65 6e 74 25  |nt%>1 . current%|
00001480  2d 3d 31 3a f2 66 69 6c  6c 66 69 6c 65 72 0d 03  |-=1:.fillfiler..|
00001490  ac 32 c9 20 31 3a e7 20  63 75 72 72 65 6e 74 25  |.2. 1:. current%|
000014a0  3c 70 74 72 25 2f 34 20  8c 20 63 75 72 72 65 6e  |<ptr%/4 . curren|
000014b0  74 25 2b 3d 31 3a f2 66  69 6c 6c 66 69 6c 65 72  |t%+=1:.fillfiler|
000014c0  0d 03 b6 05 cb 0d 03 c0  11 c9 20 36 3a c8 8e 20  |.......... 6:.. |
000014d0  62 25 21 38 20 ca 0d 03  ca 2d c9 20 31 3a e7 20  |b%!8 ....-. 1:. |
000014e0  63 75 72 72 65 6e 74 25  3e 31 20 8c 20 63 75 72  |current%>1 . cur|
000014f0  72 65 6e 74 25 2d 3d 31  3a f2 66 69 6c 6c 66 69  |rent%-=1:.fillfi|
00001500  6c 65 72 0d 03 d4 32 c9  20 34 3a e7 20 63 75 72  |ler...2. 4:. cur|
00001510  72 65 6e 74 25 3c 70 74  72 25 2f 34 20 8c 20 63  |rent%<ptr%/4 . c|
00001520  75 72 72 65 6e 74 25 2b  3d 31 3a f2 66 69 6c 6c  |urrent%+=1:.fill|
00001530  66 69 6c 65 72 0d 03 de  05 cb 0d 03 e8 1e c9 20  |filer.......... |
00001540  39 3a e7 20 63 75 72 72  65 6e 74 25 3e 30 20 8c  |9:. current%>0 .|
00001550  20 f2 64 65 6c 65 74 65  0d 03 f2 05 cb 0d 03 fc  | .delete........|
00001560  3f c9 20 64 61 74 65 62  6f 78 25 3a e7 20 62 25  |?. datebox%:. b%|
00001570  21 31 36 3d 31 30 20 8c  20 c8 99 20 22 57 69 6d  |!16=10 . .. "Wim|
00001580  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00001590  31 20 8b 20 f2 64 61 74  65 62 6f 78 0d 04 06 1a  |1 . .datebox....|
000015a0  c9 20 6d 69 64 73 74 61  72 74 25 3a c8 8e 20 62  |. midstart%:.. b|
000015b0  25 21 31 36 20 ca 0d 04  10 12 c9 20 33 3a e7 20  |%!16 ...... 3:. |
000015c0  62 25 21 38 3d 34 20 8c  0d 04 1a 28 e7 20 73 74  |b%!8=4 ....(. st|
000015d0  65 61 6d 25 3e 31 20 8c  20 73 74 65 61 6d 25 2d  |eam%>1 . steam%-|
000015e0  3d 31 3a f2 66 69 6c 6c  73 74 61 72 74 28 30 29  |=1:.fillstart(0)|
000015f0  0d 04 24 05 cc 0d 04 2e  36 e7 20 62 25 21 38 3d  |..$.....6. b%!8=|
00001600  31 20 80 20 73 74 65 61  6d 25 3c 74 65 61 6d 73  |1 . steam%<teams|
00001610  25 20 8c 20 73 74 65 61  6d 25 2b 3d 31 3a f2 66  |% . steam%+=1:.f|
00001620  69 6c 6c 73 74 61 72 74  28 30 29 0d 04 38 05 cd  |illstart(0)..8..|
00001630  0d 04 42 2d c9 20 33 37  3a e7 20 73 74 65 61 6d  |..B-. 37:. steam|
00001640  25 3e 31 20 8c 20 73 74  65 61 6d 25 2d 3d 31 3a  |%>1 . steam%-=1:|
00001650  f2 66 69 6c 6c 73 74 61  72 74 28 30 29 0d 04 4c  |.fillstart(0)..L|
00001660  12 c9 20 34 3a e7 20 62  25 21 38 3d 31 20 8c 0d  |.. 4:. b%!8=1 ..|
00001670  04 56 28 e7 20 73 74 65  61 6d 25 3e 31 20 8c 20  |.V(. steam%>1 . |
00001680  73 74 65 61 6d 25 2d 3d  31 3a f2 66 69 6c 6c 73  |steam%-=1:.fills|
00001690  74 61 72 74 28 30 29 0d  04 60 05 cc 0d 04 6a 36  |tart(0)..`....j6|
000016a0  e7 20 62 25 21 38 3d 34  20 80 20 73 74 65 61 6d  |. b%!8=4 . steam|
000016b0  25 3c 74 65 61 6d 73 25  20 8c 20 73 74 65 61 6d  |%<teams% . steam|
000016c0  25 2b 3d 31 3a f2 66 69  6c 6c 73 74 61 72 74 28  |%+=1:.fillstart(|
000016d0  30 29 0d 04 74 05 cd 0d  04 7e 32 c9 20 33 38 3a  |0)..t....~2. 38:|
000016e0  e7 20 73 74 65 61 6d 25  3c 74 65 61 6d 73 25 20  |. steam%<teams% |
000016f0  8c 20 73 74 65 61 6d 25  2b 3d 31 3a f2 66 69 6c  |. steam%+=1:.fil|
00001700  6c 73 74 61 72 74 28 30  29 0d 04 88 13 c9 20 31  |lstart(0)..... 1|
00001710  32 3a e7 20 62 25 21 38  3d 34 20 8c 0d 04 92 34  |2:. b%!8=4 ....4|
00001720  e7 20 7a 77 69 25 28 73  74 65 61 6d 25 29 3e 30  |. zwi%(steam%)>0|
00001730  20 8c 20 7a 77 69 25 28  73 74 65 61 6d 25 29 2d  | . zwi%(steam%)-|
00001740  3d 31 3a f2 72 65 73 74  61 72 74 28 31 2c 30 29  |=1:.restart(1,0)|
00001750  0d 04 9c 05 cc 0d 04 a6  58 e7 20 7a 77 69 25 28  |........X. zwi%(|
00001760  73 74 65 61 6d 25 29 2b  7a 64 72 25 28 73 74 65  |steam%)+zdr%(ste|
00001770  61 6d 25 29 2b 7a 6c 6f  25 28 73 74 65 61 6d 25  |am%)+zlo%(steam%|
00001780  29 3c 39 39 20 80 20 62  25 21 38 3d 31 20 8c 20  |)<99 . b%!8=1 . |
00001790  7a 77 69 25 28 73 74 65  61 6d 25 29 2b 3d 31 3a  |zwi%(steam%)+=1:|
000017a0  f2 72 65 73 74 61 72 74  28 31 2c 30 29 0d 04 b0  |.restart(1,0)...|
000017b0  05 cd 0d 04 ba 13 c9 20  31 33 3a e7 20 62 25 21  |....... 13:. b%!|
000017c0  38 3d 31 20 8c 0d 04 c4  34 e7 20 7a 77 69 25 28  |8=1 ....4. zwi%(|
000017d0  73 74 65 61 6d 25 29 3e  30 20 8c 20 7a 77 69 25  |steam%)>0 . zwi%|
000017e0  28 73 74 65 61 6d 25 29  2d 3d 31 3a f2 72 65 73  |(steam%)-=1:.res|
000017f0  74 61 72 74 28 31 2c 30  29 0d 04 ce 05 cc 0d 04  |tart(1,0).......|
00001800  d8 58 e7 20 7a 77 69 25  28 73 74 65 61 6d 25 29  |.X. zwi%(steam%)|
00001810  2b 7a 64 72 25 28 73 74  65 61 6d 25 29 2b 7a 6c  |+zdr%(steam%)+zl|
00001820  6f 25 28 73 74 65 61 6d  25 29 3c 39 39 20 80 20  |o%(steam%)<99 . |
00001830  62 25 21 38 3d 34 20 8c  20 7a 77 69 25 28 73 74  |b%!8=4 . zwi%(st|
00001840  65 61 6d 25 29 2b 3d 31  3a f2 72 65 73 74 61 72  |eam%)+=1:.restar|
00001850  74 28 31 2c 30 29 0d 04  e2 05 cd 0d 04 ec 13 c9  |t(1,0)..........|
00001860  20 31 35 3a e7 20 62 25  21 38 3d 34 20 8c 0d 04  | 15:. b%!8=4 ...|
00001870  f6 34 e7 20 7a 64 72 25  28 73 74 65 61 6d 25 29  |.4. zdr%(steam%)|
00001880  3e 30 20 8c 20 7a 64 72  25 28 73 74 65 61 6d 25  |>0 . zdr%(steam%|
00001890  29 2d 3d 31 3a f2 72 65  73 74 61 72 74 28 32 2c  |)-=1:.restart(2,|
000018a0  30 29 0d 05 00 05 cc 0d  05 0a 58 e7 20 7a 77 69  |0)........X. zwi|
000018b0  25 28 73 74 65 61 6d 25  29 2b 7a 64 72 25 28 73  |%(steam%)+zdr%(s|
000018c0  74 65 61 6d 25 29 2b 7a  6c 6f 25 28 73 74 65 61  |team%)+zlo%(stea|
000018d0  6d 25 29 3c 39 39 20 80  20 62 25 21 38 3d 31 20  |m%)<99 . b%!8=1 |
000018e0  8c 20 7a 64 72 25 28 73  74 65 61 6d 25 29 2b 3d  |. zdr%(steam%)+=|
000018f0  31 3a f2 72 65 73 74 61  72 74 28 32 2c 30 29 0d  |1:.restart(2,0).|
00001900  05 14 05 cd 0d 05 1e 13  c9 20 31 36 3a e7 20 62  |......... 16:. b|
00001910  25 21 38 3d 31 20 8c 0d  05 28 34 e7 20 7a 64 72  |%!8=1 ...(4. zdr|
00001920  25 28 73 74 65 61 6d 25  29 3e 30 20 8c 20 7a 64  |%(steam%)>0 . zd|
00001930  72 25 28 73 74 65 61 6d  25 29 2d 3d 31 3a f2 72  |r%(steam%)-=1:.r|
00001940  65 73 74 61 72 74 28 32  2c 30 29 0d 05 32 05 cc  |estart(2,0)..2..|
00001950  0d 05 3c 58 e7 20 7a 77  69 25 28 73 74 65 61 6d  |..<X. zwi%(steam|
00001960  25 29 2b 7a 64 72 25 28  73 74 65 61 6d 25 29 2b  |%)+zdr%(steam%)+|
00001970  7a 6c 6f 25 28 73 74 65  61 6d 25 29 3c 39 39 20  |zlo%(steam%)<99 |
00001980  80 20 62 25 21 38 3d 34  20 8c 20 7a 64 72 25 28  |. b%!8=4 . zdr%(|
00001990  73 74 65 61 6d 25 29 2b  3d 31 3a f2 72 65 73 74  |steam%)+=1:.rest|
000019a0  61 72 74 28 32 2c 30 29  0d 05 46 05 cd 0d 05 50  |art(2,0)..F....P|
000019b0  13 c9 20 31 38 3a e7 20  62 25 21 38 3d 34 20 8c  |.. 18:. b%!8=4 .|
000019c0  0d 05 5a 34 e7 20 7a 6c  6f 25 28 73 74 65 61 6d  |..Z4. zlo%(steam|
000019d0  25 29 3e 30 20 8c 20 7a  6c 6f 25 28 73 74 65 61  |%)>0 . zlo%(stea|
000019e0  6d 25 29 2d 3d 31 3a f2  72 65 73 74 61 72 74 28  |m%)-=1:.restart(|
000019f0  34 2c 30 29 0d 05 64 05  cc 0d 05 6e 58 e7 20 7a  |4,0)..d....nX. z|
00001a00  77 69 25 28 73 74 65 61  6d 25 29 2b 7a 64 72 25  |wi%(steam%)+zdr%|
00001a10  28 73 74 65 61 6d 25 29  2b 7a 6c 6f 25 28 73 74  |(steam%)+zlo%(st|
00001a20  65 61 6d 25 29 3c 39 39  20 80 20 62 25 21 38 3d  |eam%)<99 . b%!8=|
00001a30  31 20 8c 20 7a 6c 6f 25  28 73 74 65 61 6d 25 29  |1 . zlo%(steam%)|
00001a40  2b 3d 31 3a f2 72 65 73  74 61 72 74 28 34 2c 30  |+=1:.restart(4,0|
00001a50  29 0d 05 78 05 cd 0d 05  82 13 c9 20 31 39 3a e7  |)..x....... 19:.|
00001a60  20 62 25 21 38 3d 31 20  8c 0d 05 8c 34 e7 20 7a  | b%!8=1 ....4. z|
00001a70  6c 6f 25 28 73 74 65 61  6d 25 29 3e 30 20 8c 20  |lo%(steam%)>0 . |
00001a80  7a 6c 6f 25 28 73 74 65  61 6d 25 29 2d 3d 31 3a  |zlo%(steam%)-=1:|
00001a90  f2 72 65 73 74 61 72 74  28 34 2c 30 29 0d 05 96  |.restart(4,0)...|
00001aa0  05 cc 0d 05 a0 58 e7 20  7a 77 69 25 28 73 74 65  |.....X. zwi%(ste|
00001ab0  61 6d 25 29 2b 7a 64 72  25 28 73 74 65 61 6d 25  |am%)+zdr%(steam%|
00001ac0  29 2b 7a 6c 6f 25 28 73  74 65 61 6d 25 29 3c 39  |)+zlo%(steam%)<9|
00001ad0  39 20 80 20 62 25 21 38  3d 34 20 8c 20 7a 6c 6f  |9 . b%!8=4 . zlo|
00001ae0  25 28 73 74 65 61 6d 25  29 2b 3d 31 3a f2 72 65  |%(steam%)+=1:.re|
00001af0  73 74 61 72 74 28 34 2c  30 29 0d 05 aa 05 cd 0d  |start(4,0)......|
00001b00  05 b4 13 c9 20 32 31 3a  e7 20 62 25 21 38 3d 34  |.... 21:. b%!8=4|
00001b10  20 8c 0d 05 be 37 e7 20  7a 67 64 25 28 73 74 65  | ....7. zgd%(ste|
00001b20  61 6d 25 29 3e 2d 31 30  30 20 8c 20 7a 67 64 25  |am%)>-100 . zgd%|
00001b30  28 73 74 65 61 6d 25 29  2d 3d 31 3a f2 72 65 73  |(steam%)-=1:.res|
00001b40  74 61 72 74 28 38 2c 30  29 0d 05 c8 05 cc 0d 05  |tart(8,0).......|
00001b50  d2 3f e7 20 7a 67 64 25  28 73 74 65 61 6d 25 29  |.?. zgd%(steam%)|
00001b60  3c 31 30 30 20 80 20 62  25 21 38 3d 31 20 8c 20  |<100 . b%!8=1 . |
00001b70  7a 67 64 25 28 73 74 65  61 6d 25 29 2b 3d 31 3a  |zgd%(steam%)+=1:|
00001b80  f2 72 65 73 74 61 72 74  28 38 2c 30 29 0d 05 dc  |.restart(8,0)...|
00001b90  05 cd 0d 05 e6 13 c9 20  32 32 3a e7 20 62 25 21  |....... 22:. b%!|
00001ba0  38 3d 31 20 8c 0d 05 f0  37 e7 20 7a 67 64 25 28  |8=1 ....7. zgd%(|
00001bb0  73 74 65 61 6d 25 29 3e  2d 31 30 30 20 8c 20 7a  |steam%)>-100 . z|
00001bc0  67 64 25 28 73 74 65 61  6d 25 29 2d 3d 31 3a f2  |gd%(steam%)-=1:.|
00001bd0  72 65 73 74 61 72 74 28  38 2c 30 29 0d 05 fa 05  |restart(8,0)....|
00001be0  cc 0d 06 04 3f e7 20 7a  67 64 25 28 73 74 65 61  |....?. zgd%(stea|
00001bf0  6d 25 29 3c 31 30 30 20  80 20 62 25 21 38 3d 34  |m%)<100 . b%!8=4|
00001c00  20 8c 20 7a 67 64 25 28  73 74 65 61 6d 25 29 2b  | . zgd%(steam%)+|
00001c10  3d 31 3a f2 72 65 73 74  61 72 74 28 38 2c 30 29  |=1:.restart(8,0)|
00001c20  0d 06 0e 05 cd 0d 06 18  30 c9 20 33 39 3a 21 62  |........0. 39:!b|
00001c30  25 3d 6d 69 64 73 74 61  72 74 25 3a c8 99 20 22  |%=midstart%:.. "|
00001c40  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00001c50  22 2c 2c 62 25 0d 06 22  3f c9 20 34 30 3a 21 62  |",,b%.."?. 40:!b|
00001c60  25 3d 6d 69 64 73 74 61  72 74 25 3a c8 99 20 22  |%=midstart%:.. "|
00001c70  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00001c80  22 2c 2c 62 25 3a f2 66  69 6c 6c 6e 65 77 6c 65  |",,b%:.fillnewle|
00001c90  61 67 75 65 0d 06 2c 05  cb 0d 06 36 19 c9 20 73  |ague..,....6.. s|
00001ca0  70 65 63 69 61 6c 25 3a  c8 8e 20 62 25 21 31 36  |pecial%:.. b%!16|
00001cb0  20 ca 0d 06 40 25 c9 20  31 36 2c 31 37 2c 31 38  | ...@%. 16,17,18|
00001cc0  2c 31 39 2c 32 30 3a f2  72 61 64 69 6f 28 62 25  |,19,20:.radio(b%|
00001cd0  21 31 36 2c 2d 31 29 0d  06 4a 21 c9 20 32 31 3a  |!16,-1)..J!. 21:|
00001ce0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001cf0  65 6e 75 22 2c 2c 2d 31  0d 06 54 13 c9 20 32 32  |enu",,-1..T.. 22|
00001d00  3a f2 6f 6b 73 70 65 63  69 61 6c 0d 06 5e 12 c9  |:.okspecial..^..|
00001d10  20 31 31 3a c8 8e 20 62  25 21 38 20 ca 0d 06 68  | 11:.. b%!8 ...h|
00001d20  90 c9 20 34 3a e7 20 bb  a4 7a 65 72 6f 28 69 6e  |.. 4:. ..zero(in|
00001d30  64 25 2b 31 35 38 33 29  3e 31 20 8c 20 24 28 69  |d%+1583)>1 . $(i|
00001d40  6e 64 25 2b 31 35 38 33  29 3d c3 28 bb a4 7a 65  |nd%+1583)=.(..ze|
00001d50  72 6f 28 69 6e 64 25 2b  31 35 38 33 29 2d 31 29  |ro(ind%+1583)-1)|
00001d60  3a f2 73 70 65 63 69 61  6c 63 61 72 65 74 3a 21  |:.specialcaret:!|
00001d70  62 25 3d 73 70 65 63 69  61 6c 25 3a 62 25 21 34  |b%=special%:b%!4|
00001d80  3d 31 30 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |=10:b%!8=0:b%!12|
00001d90  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00001da0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 06 72  |conState",,b%..r|
00001db0  91 c9 20 31 3a e7 20 bb  a4 7a 65 72 6f 28 69 6e  |.. 1:. ..zero(in|
00001dc0  64 25 2b 31 35 38 33 29  3c 31 35 20 8c 20 24 28  |d%+1583)<15 . $(|
00001dd0  69 6e 64 25 2b 31 35 38  33 29 3d c3 28 bb a4 7a  |ind%+1583)=.(..z|
00001de0  65 72 6f 28 69 6e 64 25  2b 31 35 38 33 29 2b 31  |ero(ind%+1583)+1|
00001df0  29 3a f2 73 70 65 63 69  61 6c 63 61 72 65 74 3a  |):.specialcaret:|
00001e00  21 62 25 3d 73 70 65 63  69 61 6c 25 3a 62 25 21  |!b%=special%:b%!|
00001e10  34 3d 31 30 3a 62 25 21  38 3d 30 3a 62 25 21 31  |4=10:b%!8=0:b%!1|
00001e20  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
00001e30  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 06  |IconState",,b%..|
00001e40  7c 05 cb 0d 06 86 12 c9  20 31 32 3a c8 8e 20 62  ||....... 12:.. b|
00001e50  25 21 38 20 ca 0d 06 90  90 c9 20 31 3a e7 20 bb  |%!8 ...... 1:. .|
00001e60  a4 7a 65 72 6f 28 69 6e  64 25 2b 31 35 38 33 29  |.zero(ind%+1583)|
00001e70  3e 31 20 8c 20 24 28 69  6e 64 25 2b 31 35 38 33  |>1 . $(ind%+1583|
00001e80  29 3d c3 28 bb a4 7a 65  72 6f 28 69 6e 64 25 2b  |)=.(..zero(ind%+|
00001e90  31 35 38 33 29 2d 31 29  3a f2 73 70 65 63 69 61  |1583)-1):.specia|
00001ea0  6c 63 61 72 65 74 3a 21  62 25 3d 73 70 65 63 69  |lcaret:!b%=speci|
00001eb0  61 6c 25 3a 62 25 21 34  3d 31 30 3a 62 25 21 38  |al%:b%!4=10:b%!8|
00001ec0  3d 30 3a 62 25 21 31 32  3d 30 3a c8 99 20 22 57  |=0:b%!12=0:.. "W|
00001ed0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001ee0  22 2c 2c 62 25 0d 06 9a  91 c9 20 34 3a e7 20 bb  |",,b%..... 4:. .|
00001ef0  a4 7a 65 72 6f 28 69 6e  64 25 2b 31 35 38 33 29  |.zero(ind%+1583)|
00001f00  3c 31 35 20 8c 20 24 28  69 6e 64 25 2b 31 35 38  |<15 . $(ind%+158|
00001f10  33 29 3d c3 28 bb a4 7a  65 72 6f 28 69 6e 64 25  |3)=.(..zero(ind%|
00001f20  2b 31 35 38 33 29 2b 31  29 3a f2 73 70 65 63 69  |+1583)+1):.speci|
00001f30  61 6c 63 61 72 65 74 3a  21 62 25 3d 73 70 65 63  |alcaret:!b%=spec|
00001f40  69 61 6c 25 3a 62 25 21  34 3d 31 30 3a 62 25 21  |ial%:b%!4=10:b%!|
00001f50  38 3d 30 3a 62 25 21 31  32 3d 30 3a c8 99 20 22  |8=0:b%!12=0:.. "|
00001f60  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00001f70  65 22 2c 2c 62 25 0d 06  a4 05 cb 0d 06 ae 12 c9  |e",,b%..........|
00001f80  20 31 34 3a c8 8e 20 62  25 21 38 20 ca 0d 06 b8  | 14:.. b%!8 ....|
00001f90  90 c9 20 34 3a e7 20 bb  a4 7a 65 72 6f 28 69 6e  |.. 4:. ..zero(in|
00001fa0  64 25 2b 31 36 33 33 29  3e 31 20 8c 20 24 28 69  |d%+1633)>1 . $(i|
00001fb0  6e 64 25 2b 31 36 33 33  29 3d c3 28 bb a4 7a 65  |nd%+1633)=.(..ze|
00001fc0  72 6f 28 69 6e 64 25 2b  31 36 33 33 29 2d 31 29  |ro(ind%+1633)-1)|
00001fd0  3a f2 73 70 65 63 69 61  6c 63 61 72 65 74 3a 21  |:.specialcaret:!|
00001fe0  62 25 3d 73 70 65 63 69  61 6c 25 3a 62 25 21 34  |b%=special%:b%!4|
00001ff0  3d 31 33 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |=13:b%!8=0:b%!12|
00002000  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00002010  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 06 c2  |conState",,b%...|
00002020  91 c9 20 31 3a e7 20 bb  a4 7a 65 72 6f 28 69 6e  |.. 1:. ..zero(in|
00002030  64 25 2b 31 36 33 33 29  3c 31 35 20 8c 20 24 28  |d%+1633)<15 . $(|
00002040  69 6e 64 25 2b 31 36 33  33 29 3d c3 28 bb a4 7a  |ind%+1633)=.(..z|
00002050  65 72 6f 28 69 6e 64 25  2b 31 36 33 33 29 2b 31  |ero(ind%+1633)+1|
00002060  29 3a f2 73 70 65 63 69  61 6c 63 61 72 65 74 3a  |):.specialcaret:|
00002070  21 62 25 3d 73 70 65 63  69 61 6c 25 3a 62 25 21  |!b%=special%:b%!|
00002080  34 3d 31 33 3a 62 25 21  38 3d 30 3a 62 25 21 31  |4=13:b%!8=0:b%!1|
00002090  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
000020a0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 06  |IconState",,b%..|
000020b0  cc 05 cb 0d 06 d6 12 c9  20 31 35 3a c8 8e 20 62  |........ 15:.. b|
000020c0  25 21 38 20 ca 0d 06 e0  90 c9 20 31 3a e7 20 bb  |%!8 ...... 1:. .|
000020d0  a4 7a 65 72 6f 28 69 6e  64 25 2b 31 36 33 33 29  |.zero(ind%+1633)|
000020e0  3e 31 20 8c 20 24 28 69  6e 64 25 2b 31 36 33 33  |>1 . $(ind%+1633|
000020f0  29 3d c3 28 bb a4 7a 65  72 6f 28 69 6e 64 25 2b  |)=.(..zero(ind%+|
00002100  31 36 33 33 29 2d 31 29  3a f2 73 70 65 63 69 61  |1633)-1):.specia|
00002110  6c 63 61 72 65 74 3a 21  62 25 3d 73 70 65 63 69  |lcaret:!b%=speci|
00002120  61 6c 25 3a 62 25 21 34  3d 31 33 3a 62 25 21 38  |al%:b%!4=13:b%!8|
00002130  3d 30 3a 62 25 21 31 32  3d 30 3a c8 99 20 22 57  |=0:b%!12=0:.. "W|
00002140  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002150  22 2c 2c 62 25 0d 06 ea  91 c9 20 34 3a e7 20 bb  |",,b%..... 4:. .|
00002160  a4 7a 65 72 6f 28 69 6e  64 25 2b 31 36 33 33 29  |.zero(ind%+1633)|
00002170  3c 31 35 20 8c 20 24 28  69 6e 64 25 2b 31 36 33  |<15 . $(ind%+163|
00002180  33 29 3d c3 28 bb a4 7a  65 72 6f 28 69 6e 64 25  |3)=.(..zero(ind%|
00002190  2b 31 36 33 33 29 2b 31  29 3a f2 73 70 65 63 69  |+1633)+1):.speci|
000021a0  61 6c 63 61 72 65 74 3a  21 62 25 3d 73 70 65 63  |alcaret:!b%=spec|
000021b0  69 61 6c 25 3a 62 25 21  34 3d 31 33 3a 62 25 21  |ial%:b%!4=13:b%!|
000021c0  38 3d 30 3a 62 25 21 31  32 3d 30 3a c8 99 20 22  |8=0:b%!12=0:.. "|
000021d0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000021e0  65 22 2c 2c 62 25 0d 06  f4 05 cb 0d 06 fe 05 cb  |e",,b%..........|
000021f0  0d 07 08 20 f4 20 6e 65  78 74 20 77 69 6e 64 6f  |... . next windo|
00002200  77 20 72 65 66 65 72 65  6e 63 65 20 68 65 72 65  |w reference here|
00002210  0d 07 12 05 cb 0d 07 1c  05 cd 0d 07 26 15 c9 20  |............&.. |
00002220  37 3a f2 73 65 6e 64 64  61 74 61 73 61 76 65 0d  |7:.senddatasave.|
00002230  07 30 49 c9 20 38 3a 6b  65 79 25 3d 62 25 21 32  |.0I. 8:key%=b%!2|
00002240  34 3a e7 20 ac 20 a4 6f  75 72 6b 65 79 28 21 62  |4:. . .ourkey(!b|
00002250  25 2c 6b 65 79 25 2c 62  25 21 34 29 20 8c 20 c8  |%,key%,b%!4) . .|
00002260  99 20 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |. "Wimp_ProcessK|
00002270  65 79 22 2c 6b 65 79 25  0d 07 3a 10 c9 20 39 3a  |ey",key%..:.. 9:|
00002280  c8 8e 20 21 62 25 20 ca  0d 07 44 12 c9 20 32 3a  |.. !b% ...D.. 2:|
00002290  f2 6e 65 77 6c 65 61 67  75 65 0d 07 4e 45 c9 20  |.newleague..NE. |
000022a0  33 3a 72 64 61 74 65 25  3d bb c1 91 24 2c 35 2c  |3:rdate%=...$,5,|
000022b0  32 29 3a 72 6d 6f 6e 74  68 25 3d a4 6d 6f 6e 74  |2):rmonth%=.mont|
000022c0  68 6e 6f 28 c1 91 24 2c  38 2c 33 29 29 3a 72 79  |hno(..$,8,3)):ry|
000022d0  65 61 72 25 3d bb c1 91  24 2c 31 32 2c 34 29 0d  |ear%=...$,12,4).|
000022e0  07 58 6d e7 20 a4 64 61  79 73 28 72 64 61 74 65  |.Xm. .days(rdate|
000022f0  25 2c 72 6d 6f 6e 74 68  25 2c 72 79 65 61 72 25  |%,rmonth%,ryear%|
00002300  29 3c a4 64 61 79 73 28  73 64 61 74 65 25 2c 73  |)<.days(sdate%,s|
00002310  6d 6f 6e 74 68 25 2c 73  79 65 61 72 25 29 20 8c  |month%,syear%) .|
00002320  20 72 64 61 74 65 25 3d  73 64 61 74 65 25 3a 72  | rdate%=sdate%:r|
00002330  6d 6f 6e 74 68 25 3d 73  6d 6f 6e 74 68 25 3a 72  |month%=smonth%:r|
00002340  79 65 61 72 25 3d 73 79  65 61 72 25 0d 07 62 0c  |year%=syear%..b.|
00002350  f2 72 65 73 75 6c 74 73  0d 07 6c 5c c9 20 34 3a  |.results..l\. 4:|
00002360  f2 66 69 6c 6c 66 69 6c  65 72 3a 21 62 25 3d 66  |.fillfiler:!b%=f|
00002370  69 6c 65 72 25 3a c8 99  20 22 57 69 6d 70 5f 47  |iler%:.. "Wimp_G|
00002380  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002390  62 25 3a 62 25 21 32 38  3d 2d 31 3a c8 99 20 22  |b%:b%!28=-1:.. "|
000023a0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000023b0  2c 2c 62 25 0d 07 76 0f  c9 20 35 3a 71 75 69 74  |,,b%..v.. 5:quit|
000023c0  25 3d b9 0d 07 80 05 cb  0d 07 8a 4c c8 99 20 22  |%=.........L.. "|
000023d0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000023e0  6e 66 6f 22 2c 2c 65 25  3a e7 20 65 25 21 38 3d  |nfo",,e%:. e%!8=|
000023f0  31 20 8c 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |1 . .. "Wimp_Cre|
00002400  61 74 65 4d 65 6e 75 22  2c 2c 6d 25 2c 6d 78 25  |ateMenu",,m%,mx%|
00002410  2c 6d 79 25 0d 07 94 17  c9 20 31 37 2c 31 38 2c  |,my%..... 17,18,|
00002420  31 39 3a f2 6d 65 73 73  61 67 65 0d 07 9e 05 cb  |19:.message.....|
00002430  0d 07 a8 0b fd 20 71 75  69 74 25 0d 07 b2 05 e0  |..... quit%.....|
00002440  0d 07 bc 05 3a 0d 07 c6  0d dd f2 6d 65 73 73 61  |....:......messa|
00002450  67 65 0d 07 d0 10 c8 8e  20 72 65 61 73 6f 6e 25  |ge...... reason%|
00002460  20 ca 0d 07 da 16 c9 20  31 37 2c 31 38 3a c8 8e  | ...... 17,18:..|
00002470  20 62 25 21 31 36 20 ca  0d 07 e4 0f c9 20 30 3a  | b%!16 ...... 0:|
00002480  71 75 69 74 25 3d b9 0d  07 ee 11 c9 20 32 3a f2  |quit%=...... 2:.|
00002490  64 72 61 67 73 61 76 65  0d 07 f8 6c c9 20 33 2c  |dragsave...l. 3,|
000024a0  35 3a e7 20 62 25 21 34  30 3d 6c 65 61 67 75 65  |5:. b%!40=league|
000024b0  66 69 6c 65 25 20 8c 20  62 25 21 31 36 3d 34 3a  |file% . b%!16=4:|
000024c0  62 25 21 31 32 3d 62 25  21 38 3a c8 99 20 22 57  |b%!12=b%!8:.. "W|
000024d0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000024e0  2c 31 37 2c 62 25 2c 62  25 21 34 3a f2 6c 6f 61  |,17,b%,b%!4:.loa|
000024f0  64 74 61 62 6c 65 28 a4  7a 65 72 6f 28 62 25 2b  |dtable(.zero(b%+|
00002500  34 34 29 29 0d 08 02 b8  c9 20 38 3a e7 20 ac 20  |44))..... 8:. . |
00002510  73 61 76 65 64 25 20 8c  20 e7 20 ac 20 a4 77 69  |saved% . . . .wi|
00002520  6d 70 65 72 72 6f 72 28  31 2c 22 27 22 2b 6c 65  |mperror(1,"'"+le|
00002530  61 67 75 65 6e 61 6d 65  24 2b 22 27 20 65 64 69  |aguename$+"' edi|
00002540  74 65 64 2e 20 53 61 76  65 3f 22 2c 33 29 20 8c  |ted. Save?",3) .|
00002550  20 62 25 21 31 32 3d 62  25 21 38 3a c8 99 20 22  | b%!12=b%!8:.. "|
00002560  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00002570  22 2c 31 39 2c 62 25 3a  c8 99 20 22 57 69 6d 70  |",19,b%:.. "Wimp|
00002580  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00002590  2c 2c 62 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |,,b%:.. "Wimp_Cr|
000025a0  65 61 74 65 4d 65 6e 75  22 2c 2c 73 61 76 65 62  |eateMenu",,saveb|
000025b0  6f 78 25 2c 21 62 25 2c  62 25 21 34 0d 08 0c 05  |ox%,!b%,b%!4....|
000025c0  cb 0d 08 16 49 c9 20 31  39 3a c8 99 20 22 4f 53  |....I. 19:.. "OS|
000025d0  5f 46 69 6c 65 22 2c 36  2c 62 25 2b 34 34 3a 85  |_File",6,b%+44:.|
000025e0  20 32 35 35 2c 22 44 61  74 61 20 74 72 61 6e 73  | 255,"Data trans|
000025f0  66 65 72 20 66 61 69 6c  65 64 3a 20 52 65 63 65  |fer failed: Rece|
00002600  69 76 65 72 20 64 69 65  64 22 0d 08 20 05 cb 0d  |iver died".. ...|
00002610  08 2a 05 e1 0d 08 34 05  3a 0d 08 3e 1d dd a4 7a  |.*....4.:..>...z|
00002620  65 72 6f 28 6c 25 29 3a  ea 20 73 74 72 24 3a 73  |ero(l%):. str$:s|
00002630  74 72 24 3d 22 22 0d 08  48 29 c8 95 20 3f 6c 25  |tr$=""..H).. ?l%|
00002640  20 80 20 a9 73 74 72 24  3c 32 35 35 3a 73 74 72  | . .str$<255:str|
00002650  24 2b 3d bd 3f 6c 25 3a  6c 25 2b 3d 31 3a ce 0d  |$+=.?l%:l%+=1:..|
00002660  08 52 09 3d 73 74 72 24  0d 08 5c 05 3a 0d 08 66  |.R.=str$..\.:..f|
00002670  3b dd a4 6c 65 6e 28 6c  25 29 3a ea 20 7a 25 3a  |;..len(l%):. z%:|
00002680  7a 25 3d 30 3a c8 95 20  3f 28 6c 25 2b 7a 25 29  |z%=0:.. ?(l%+z%)|
00002690  3e 33 31 20 80 20 7a 25  3c 32 35 35 3a 7a 25 2b  |>31 . z%<255:z%+|
000026a0  3d 31 3a ce 3a 3d 7a 25  0d 08 70 05 3a 0d 08 7a  |=1:.:=z%..p.:..z|
000026b0  16 dd f2 6c 6f 61 64 74  61 62 6c 65 28 66 69 6c  |...loadtable(fil|
000026c0  65 24 29 0d 08 84 0e ea  20 66 69 6c 65 25 2c 6c  |e$)..... file%,l|
000026d0  25 0d 08 8e 10 66 69 6c  65 25 3d 8e 66 69 6c 65  |%....file%=.file|
000026e0  24 0d 08 98 17 6c 65 61  67 75 65 6e 61 6d 65 24  |$....leaguename$|
000026f0  3d be 23 66 69 6c 65 25  0d 08 a2 13 73 64 61 74  |=.#file%....sdat|
00002700  65 25 3d bb be 23 66 69  6c 65 25 0d 08 ac 14 73  |e%=..#file%....s|
00002710  6d 6f 6e 74 68 25 3d bb  be 23 66 69 6c 65 25 0d  |month%=..#file%.|
00002720  08 b6 13 73 79 65 61 72  25 3d bb be 23 66 69 6c  |...syear%=..#fil|
00002730  65 25 0d 08 c0 12 74 65  61 6d 73 25 3d 9a 23 66  |e%....teams%=.#f|
00002740  69 6c 65 25 0d 08 ca 13  e3 20 6c 25 3d 31 20 b8  |ile%..... l%=1 .|
00002750  20 74 65 61 6d 73 25 0d  08 d4 15 6e 61 6d 65 24  | teams%....name$|
00002760  28 6c 25 29 3d be 23 66  69 6c 65 25 0d 08 de 15  |(l%)=.#file%....|
00002770  73 77 69 25 28 6c 25 29  3d bb be 23 66 69 6c 65  |swi%(l%)=..#file|
00002780  25 0d 08 e8 15 73 64 72  25 28 6c 25 29 3d bb be  |%....sdr%(l%)=..|
00002790  23 66 69 6c 65 25 0d 08  f2 15 73 6c 6f 25 28 6c  |#file%....slo%(l|
000027a0  25 29 3d bb be 23 66 69  6c 65 25 0d 08 fc 15 73  |%)=..#file%....s|
000027b0  67 64 25 28 6c 25 29 3d  bb be 23 66 69 6c 65 25  |gd%(l%)=..#file%|
000027c0  0d 09 06 05 ed 0d 09 10  11 70 74 72 25 3d bb be  |.........ptr%=..|
000027d0  23 66 69 6c 65 25 0d 09  1a 2c 6c 25 3d 30 3a c8  |#file%...,l%=0:.|
000027e0  95 20 6c 25 3c 70 74 72  25 3a 64 61 74 61 25 3f  |. l%<ptr%:data%?|
000027f0  6c 25 3d 9a 23 66 69 6c  65 25 3a 6c 25 2b 3d 31  |l%=.#file%:l%+=1|
00002800  3a ce 0d 09 24 0b d9 23  66 69 6c 65 25 0d 09 2e  |:...$..#file%...|
00002810  3e 64 61 74 65 25 3d bb  c1 91 24 2c 35 2c 32 29  |>date%=...$,5,2)|
00002820  3a 6d 6f 6e 74 68 25 3d  a4 6d 6f 6e 74 68 6e 6f  |:month%=.monthno|
00002830  28 c1 91 24 2c 38 2c 33  29 29 3a 79 65 61 72 25  |(..$,8,3)):year%|
00002840  3d bb c1 91 24 2c 31 32  2c 34 29 0d 09 38 2c 74  |=...$,12,4)..8,t|
00002850  61 62 6c 65 66 69 6c 6c  65 64 25 3d b9 3a f2 73  |ablefilled%=.:.s|
00002860  61 76 65 64 3a 24 28 69  6e 64 25 2b 32 37 30 30  |aved:$(ind%+2700|
00002870  29 3d 66 69 6c 65 24 0d  09 42 2c f2 66 69 6c 6c  |)=file$..B,.fill|
00002880  74 61 62 6c 65 28 b9 29  3a 63 75 72 72 65 6e 74  |table(.):current|
00002890  25 3d 70 74 72 25 2f 34  3a f2 66 69 6c 6c 66 69  |%=ptr%/4:.fillfi|
000028a0  6c 65 72 0d 09 4c 29 21  62 25 3d 72 65 73 75 6c  |ler..L)!b%=resul|
000028b0  74 25 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |t%:.. "Wimp_Clos|
000028c0  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 09 56 05  |eWindow",,b%..V.|
000028d0  e1 0d 09 60 05 3a 0d 09  6a 16 dd f2 66 69 6c 6c  |...`.:..j...fill|
000028e0  74 61 62 6c 65 28 6f 70  65 6e 25 29 0d 09 74 45  |table(open%)..tE|
000028f0  ea 20 6c 25 2c 6c 6c 25  2c 6c 61 25 2c 6c 62 25  |. l%,ll%,la%,lb%|
00002900  2c 6c 63 25 2c 6c 64 25  2c 72 65 67 25 2c 76 61  |,lc%,ld%,reg%,va|
00002910  6c 3a 6c 6c 25 3d a4 64  61 79 73 28 64 61 74 65  |l:ll%=.days(date|
00002920  25 2c 6d 6f 6e 74 68 25  2c 79 65 61 72 25 29 2b  |%,month%,year%)+|
00002930  31 0d 09 7e 41 77 69 25  28 29 3d 73 77 69 25 28  |1..~Awi%()=swi%(|
00002940  29 3a 64 72 25 28 29 3d  73 64 72 25 28 29 3a 6c  |):dr%()=sdr%():l|
00002950  6f 25 28 29 3d 73 6c 6f  25 28 29 3a 67 64 25 28  |o%()=slo%():gd%(|
00002960  29 3d 73 67 64 25 28 29  3a 78 74 72 61 25 28 29  |)=sgd%():xtra%()|
00002970  3d 30 0d 09 88 13 6c 25  3d 30 3a c8 95 20 6c 25  |=0....l%=0:.. l%|
00002980  3c 70 74 72 25 0d 09 92  2c e7 20 a4 64 61 79 73  |<ptr%...,. .days|
00002990  28 a4 64 61 74 28 6c 25  29 2c a4 6d 6f 6e 28 6c  |(.dat(l%),.mon(l|
000029a0  25 29 2c a4 79 72 28 6c  25 29 29 3c 6c 6c 25 20  |%),.yr(l%))<ll% |
000029b0  8c 0d 09 9c 33 6c 61 25  3d a4 74 31 28 6c 25 29  |....3la%=.t1(l%)|
000029c0  3a 6c 62 25 3d a4 74 32  28 6c 25 29 3a 6c 63 25  |:lb%=.t2(l%):lc%|
000029d0  3d a4 73 31 28 6c 25 29  3a 6c 64 25 3d a4 73 32  |=.s1(l%):ld%=.s2|
000029e0  28 6c 25 29 0d 09 a6 0a  c8 8e 20 b9 20 ca 0d 09  |(l%)...... . ...|
000029f0  b0 14 c9 20 6c 62 25 3d  30 3a c8 8e 20 6c 63 25  |... lb%=0:.. lc%|
00002a00  20 ca 0d 09 ba 13 c9 20  31 3a 77 69 25 28 6c 61  | ...... 1:wi%(la|
00002a10  25 29 2b 3d 31 0d 09 c4  13 c9 20 32 3a 64 72 25  |%)+=1..... 2:dr%|
00002a20  28 6c 61 25 29 2b 3d 31  0d 09 ce 13 c9 20 33 3a  |(la%)+=1..... 3:|
00002a30  6c 6f 25 28 6c 61 25 29  2b 3d 31 0d 09 d8 17 c9  |lo%(la%)+=1.....|
00002a40  20 34 3a 78 74 72 61 25  28 6c 61 25 29 2b 3d 6c  | 4:xtra%(la%)+=l|
00002a50  64 25 0d 09 e2 17 c9 20  35 3a 78 74 72 61 25 28  |d%..... 5:xtra%(|
00002a60  6c 61 25 29 2d 3d 6c 64  25 0d 09 ec 05 cb 0d 09  |la%)-=ld%.......|
00002a70  f6 49 c9 20 6c 63 25 3e  6c 64 25 3a 77 69 25 28  |.I. lc%>ld%:wi%(|
00002a80  6c 61 25 29 2b 3d 31 3a  6c 6f 25 28 6c 62 25 29  |la%)+=1:lo%(lb%)|
00002a90  2b 3d 31 3a 67 64 25 28  6c 61 25 29 2b 3d 6c 63  |+=1:gd%(la%)+=lc|
00002aa0  25 2d 6c 64 25 3a 67 64  25 28 6c 62 25 29 2b 3d  |%-ld%:gd%(lb%)+=|
00002ab0  6c 64 25 2d 6c 63 25 0d  0a 00 49 c9 20 6c 64 25  |ld%-lc%...I. ld%|
00002ac0  3e 6c 63 25 3a 77 69 25  28 6c 62 25 29 2b 3d 31  |>lc%:wi%(lb%)+=1|
00002ad0  3a 6c 6f 25 28 6c 61 25  29 2b 3d 31 3a 67 64 25  |:lo%(la%)+=1:gd%|
00002ae0  28 6c 61 25 29 2b 3d 6c  63 25 2d 6c 64 25 3a 67  |(la%)+=lc%-ld%:g|
00002af0  64 25 28 6c 62 25 29 2b  3d 6c 64 25 2d 6c 63 25  |d%(lb%)+=ld%-lc%|
00002b00  0d 0a 0a 1d 7f 3a 64 72  25 28 6c 61 25 29 2b 3d  |.....:dr%(la%)+=|
00002b10  31 3a 64 72 25 28 6c 62  25 29 2b 3d 31 0d 0a 14  |1:dr%(lb%)+=1...|
00002b20  05 cb 0d 0a 1e 05 cd 0d  0a 28 09 6c 25 2b 3d 34  |.........(.l%+=4|
00002b30  0d 0a 32 05 ce 0d 0a 3c  13 e3 20 6c 25 3d 31 20  |..2....<.. l%=1 |
00002b40  b8 20 74 65 61 6d 73 25  0d 0a 46 23 70 6c 25 28  |. teams%..F#pl%(|
00002b50  6c 25 29 3d 77 69 25 28  6c 25 29 2b 64 72 25 28  |l%)=wi%(l%)+dr%(|
00002b60  6c 25 29 2b 6c 6f 25 28  6c 25 29 0d 0a 50 27 70  |l%)+lo%(l%)..P'p|
00002b70  6f 25 28 6c 25 29 3d 78  74 72 61 25 28 6c 25 29  |o%(l%)=xtra%(l%)|
00002b80  2b 64 72 25 28 6c 25 29  2b 33 2a 77 69 25 28 6c  |+dr%(l%)+3*wi%(l|
00002b90  25 29 0d 0a 5a 05 ed 0d  0a 64 0d 72 61 6e 6b 25  |%)..Z....d.rank%|
00002ba0  28 29 3d 30 0d 0a 6e 13  e3 20 6c 25 3d 31 20 b8  |()=0..n.. l%=1 .|
00002bb0  20 74 65 61 6d 73 25 0d  0a 78 10 76 61 6c 3d 30  | teams%..x.val=0|
00002bc0  3a 72 65 67 25 3d 30 0d  0a 82 14 e3 20 6c 6c 25  |:reg%=0..... ll%|
00002bd0  3d 31 20 b8 20 74 65 61  6d 73 25 0d 0a 8c 61 e7  |=1 . teams%...a.|
00002be0  20 72 61 6e 6b 25 28 6c  6c 25 29 3d 30 3a e7 20  | rank%(ll%)=0:. |
00002bf0  70 6f 25 28 6c 6c 25 29  2b 30 2e 35 2b 28 67 64  |po%(ll%)+0.5+(gd|
00002c00  25 28 6c 6c 25 29 2f 31  30 30 30 29 3e 76 61 6c  |%(ll%)/1000)>val|
00002c10  20 8c 20 76 61 6c 3d 70  6f 25 28 6c 6c 25 29 2b  | . val=po%(ll%)+|
00002c20  30 2e 35 2b 28 67 64 25  28 6c 6c 25 29 2f 31 30  |0.5+(gd%(ll%)/10|
00002c30  30 30 29 3a 72 65 67 25  3d 6c 6c 25 0d 0a 96 05  |00):reg%=ll%....|
00002c40  ed 0d 0a a0 23 72 61 6e  6b 25 28 72 65 67 25 29  |....#rank%(reg%)|
00002c50  3d 6c 25 3a 72 61 6e 6b  65 64 25 28 6c 25 29 3d  |=l%:ranked%(l%)=|
00002c60  72 65 67 25 0d 0a aa 05  ed 0d 0a b4 13 e3 20 6c  |reg%.......... l|
00002c70  25 3d 31 20 b8 20 74 65  61 6d 73 25 0d 0a be 13  |%=1 . teams%....|
00002c80  6c 6c 25 3d 72 61 6e 6b  65 64 25 28 6c 25 29 0d  |ll%=ranked%(l%).|
00002c90  0a c8 2b 24 28 74 61 62  6c 65 64 61 74 61 25 2b  |..+$(tabledata%+|
00002ca0  32 31 2b 28 32 33 2a 28  6c 25 2d 31 29 29 29 3d  |21+(23*(l%-1)))=|
00002cb0  6e 61 6d 65 24 28 6c 6c  25 29 0d 0a d2 2a 24 28  |name$(ll%)...*$(|
00002cc0  74 61 62 6c 65 64 61 74  61 25 2b 35 37 33 2b 28  |tabledata%+573+(|
00002cd0  33 2a 28 6c 25 2d 31 29  29 29 3d c3 77 69 25 28  |3*(l%-1)))=.wi%(|
00002ce0  6c 6c 25 29 0d 0a dc 2a  24 28 74 61 62 6c 65 64  |ll%)...*$(tabled|
00002cf0  61 74 61 25 2b 36 34 35  2b 28 33 2a 28 6c 25 2d  |ata%+645+(3*(l%-|
00002d00  31 29 29 29 3d c3 64 72  25 28 6c 6c 25 29 0d 0a  |1)))=.dr%(ll%)..|
00002d10  e6 2a 24 28 74 61 62 6c  65 64 61 74 61 25 2b 37  |.*$(tabledata%+7|
00002d20  31 37 2b 28 33 2a 28 6c  25 2d 31 29 29 29 3d c3  |17+(3*(l%-1)))=.|
00002d30  6c 6f 25 28 6c 6c 25 29  0d 0a f0 2a 24 28 74 61  |lo%(ll%)...*$(ta|
00002d40  62 6c 65 64 61 74 61 25  2b 37 38 39 2b 28 33 2a  |bledata%+789+(3*|
00002d50  28 6c 25 2d 31 29 29 29  3d c3 70 6c 25 28 6c 6c  |(l%-1)))=.pl%(ll|
00002d60  25 29 0d 0a fa 3b 24 28  74 61 62 6c 65 64 61 74  |%)...;$(tabledat|
00002d70  61 25 2b 38 36 31 2b 28  35 2a 28 6c 25 2d 31 29  |a%+861+(5*(l%-1)|
00002d80  29 29 3d a4 73 69 67 6e  28 67 64 25 28 6c 6c 25  |))=.sign(gd%(ll%|
00002d90  29 29 2b c3 94 67 64 25  28 6c 6c 25 29 0d 0b 04  |))+..gd%(ll%)...|
00002da0  2a 24 28 74 61 62 6c 65  64 61 74 61 25 2b 39 38  |*$(tabledata%+98|
00002db0  31 2b 28 34 2a 28 6c 25  2d 31 29 29 29 3d c3 70  |1+(4*(l%-1)))=.p|
00002dc0  6f 25 28 6c 6c 25 29 0d  0b 0e 05 ed 0d 0b 18 22  |o%(ll%)........"|
00002dd0  24 28 74 61 62 6c 65 64  61 74 61 25 2b 31 30 37  |$(tabledata%+107|
00002de0  37 29 3d 6c 65 61 67 75  65 6e 61 6d 65 24 0d 0b  |7)=leaguename$..|
00002df0  22 66 24 28 74 61 62 6c  65 64 61 74 61 25 2b 31  |"f$(tabledata%+1|
00002e00  31 31 35 29 3d a4 64 61  79 28 64 61 74 65 25 2c  |115)=.day(date%,|
00002e10  6d 6f 6e 74 68 25 2c 79  65 61 72 25 29 2b 22 2c  |month%,year%)+",|
00002e20  20 22 2b c3 28 64 61 74  65 25 29 2b a4 74 68 28  | "+.(date%)+.th(|
00002e30  64 61 74 65 25 29 2b 22  20 22 2b a4 6d 6f 6e 74  |date%)+" "+.mont|
00002e40  68 28 6d 6f 6e 74 68 25  29 2b 22 20 22 2b c3 79  |h(month%)+" "+.y|
00002e50  65 61 72 25 0d 0b 2c 13  74 61 62 6c 65 66 69 6c  |ear%..,.tablefil|
00002e60  6c 65 64 25 3d 2d 31 0d  0b 36 78 21 65 25 3d 70  |led%=-1..6x!e%=p|
00002e70  72 65 6d 74 61 62 6c 65  25 3a c8 99 20 22 57 69  |remtable%:.. "Wi|
00002e80  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002e90  65 22 2c 2c 65 25 3a e7  20 6f 70 65 6e 25 20 8c  |e",,e%:. open% .|
00002ea0  20 65 25 21 34 3d 32 3a  65 25 21 38 3d 34 34 3a  | e%!4=2:e%!8=44:|
00002eb0  65 25 21 31 32 3d 31 30  31 38 3a 65 25 21 31 36  |e%!12=1018:e%!16|
00002ec0  3d 39 38 30 3a 65 25 21  32 30 3d 31 36 3a 65 25  |=980:e%!20=16:e%|
00002ed0  21 32 34 3d 35 36 3a 65  25 21 32 38 3d 2d 31 0d  |!24=56:e%!28=-1.|
00002ee0  0b 40 9c 21 62 25 3d 70  72 65 6d 74 61 62 6c 65  |.@.!b%=premtable|
00002ef0  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00002f00  57 69 6e 64 6f 77 22 2c  2c 62 25 3a e7 20 6f 70  |Window",,b%:. op|
00002f10  65 6e 25 20 8c 20 21 62  25 3d 31 36 3a 62 25 21  |en% . !b%=16:b%!|
00002f20  34 3d 2d 31 32 30 2d 28  39 36 2a 28 74 65 61 6d  |4=-120-(96*(team|
00002f30  73 25 81 32 29 29 2d 28  34 30 2a 28 74 65 61 6d  |s%.2))-(40*(team|
00002f40  73 25 83 32 29 29 3a 62  25 21 38 3d 31 30 33 32  |s%.2)):b%!8=1032|
00002f50  3a 62 25 21 31 32 3d 35  36 3a c8 99 20 22 57 69  |:b%!12=56:.. "Wi|
00002f60  6d 70 5f 53 65 74 45 78  74 65 6e 74 22 2c 70 72  |mp_SetExtent",pr|
00002f70  65 6d 74 61 62 6c 65 25  2c 62 25 0d 0b 4a 22 c8  |emtable%,b%..J".|
00002f80  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00002f90  6f 77 22 2c 2c 65 25 3a  f2 67 72 65 79 0d 0b 54  |ow",,e%:.grey..T|
00002fa0  05 e1 0d 0b 5e 05 3a 0d  0b 68 13 dd a4 73 69 67  |....^.:..h...sig|
00002fb0  6e 28 6e 75 6d 62 65 72  25 29 0d 0b 72 0b ea 20  |n(number%)..r.. |
00002fc0  73 69 67 6e 24 0d 0b 7c  11 c8 8e 20 b4 6e 75 6d  |sign$..|... .num|
00002fd0  62 65 72 25 20 ca 0d 0b  86 12 c9 20 2d 31 3a 73  |ber% ...... -1:s|
00002fe0  69 67 6e 24 3d 22 2d 22  0d 0b 90 10 c9 20 30 3a  |ign$="-"..... 0:|
00002ff0  73 69 67 6e 24 3d 22 22  0d 0b 9a 11 c9 20 31 3a  |sign$=""..... 1:|
00003000  73 69 67 6e 24 3d 22 2b  22 0d 0b a4 05 cb 0d 0b  |sign$="+".......|
00003010  ae 0a 3d 73 69 67 6e 24  0d 0b b8 05 3a 0d 0b c2  |..=sign$....:...|
00003020  0f dd f2 6e 65 77 6c 65  61 67 75 65 0d 0b cc 08  |...newleague....|
00003030  ea 20 6c 25 0d 0b d6 63  3f 69 6e 64 25 3d 30 3a  |. l%...c?ind%=0:|
00003040  e3 20 6c 25 3d 30 20 b8  20 32 33 3a 69 6e 64 25  |. l%=0 . 23:ind%|
00003050  21 28 35 32 2b 28 33 37  2a 6c 25 29 29 3d 28 2d  |!(52+(37*l%))=(-|
00003060  26 32 44 29 2a 28 6c 25  3e 3d 74 65 61 6d 73 25  |&2D)*(l%>=teams%|
00003070  29 3a ed 3a 7a 77 69 25  28 29 3d 30 3a 7a 64 72  |):.:zwi%()=0:zdr|
00003080  25 28 29 3d 30 3a 7a 6c  6f 25 28 29 3d 30 3a 7a  |%()=0:zlo%()=0:z|
00003090  67 64 25 28 29 3d 30 0d  0b e0 41 7a 64 61 74 65  |gd%()=0...Azdate|
000030a0  25 3d bb c1 91 24 2c 35  2c 32 29 3a 7a 6d 6f 6e  |%=...$,5,2):zmon|
000030b0  74 68 25 3d a4 6d 6f 6e  74 68 6e 6f 28 c1 91 24  |th%=.monthno(..$|
000030c0  2c 38 2c 33 29 29 3a 7a  79 65 61 72 25 3d bb c1  |,8,3)):zyear%=..|
000030d0  91 24 2c 31 32 2c 34 29  0d 0b ea 63 24 28 69 6e  |.$,12,4)...c$(in|
000030e0  64 25 2b 39 34 30 29 3d  a4 64 61 79 28 7a 64 61  |d%+940)=.day(zda|
000030f0  74 65 25 2c 7a 6d 6f 6e  74 68 25 2c 7a 79 65 61  |te%,zmonth%,zyea|
00003100  72 25 29 2b 22 20 22 2b  c3 7a 64 61 74 65 25 2b  |r%)+" "+.zdate%+|
00003110  a4 74 68 28 7a 64 61 74  65 25 29 2b 22 20 22 2b  |.th(zdate%)+" "+|
00003120  a4 6d 6f 6e 74 68 28 7a  6d 6f 6e 74 68 25 29 2b  |.month(zmonth%)+|
00003130  22 20 22 2b c3 7a 79 65  61 72 25 0d 0b f4 9d 21  |" "+.zyear%....!|
00003140  62 25 3d 6e 65 77 6c 65  61 67 75 65 25 3a 62 25  |b%=newleague%:b%|
00003150  21 34 3d 32 38 3a 62 25  21 38 3d 26 32 30 30 30  |!4=28:b%!8=&2000|
00003160  30 30 3a 62 25 21 31 32  3d 26 32 30 30 30 30 30  |00:b%!12=&200000|
00003170  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00003180  6e 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 34  |nState",,b%:b%!4|
00003190  3d 32 39 3a 62 25 21 38  3d 30 3a c8 99 20 22 57  |=29:b%!8=0:.. "W|
000031a0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000031b0  22 2c 2c 62 25 3a 62 25  21 34 3d 34 30 3a c8 99  |",,b%:b%!4=40:..|
000031c0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000031d0  61 74 65 22 2c 2c 62 25  0d 0b fe c3 21 62 25 3d  |ate",,b%....!b%=|
000031e0  6e 65 77 6c 65 61 67 75  65 25 3a c8 99 20 22 57  |newleague%:.. "W|
000031f0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00003200  2c 2c 62 25 3a 62 25 21  31 32 3d 26 46 30 30 30  |,,b%:b%!12=&F000|
00003210  3a e3 20 6c 25 3d 31 20  b8 20 32 34 3a 62 25 21  |:. l%=1 . 24:b%!|
00003220  34 3d 6c 25 3a 62 25 21  38 3d 28 6c 25 3c 3d 74  |4=l%:b%!8=(l%<=t|
00003230  65 61 6d 73 25 29 2a 28  2d 26 46 30 30 30 29 3a  |eams%)*(-&F000):|
00003240  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00003250  53 74 61 74 65 22 2c 2c  62 25 3a ed 3a c8 99 20  |State",,b%:.:.. |
00003260  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00003270  74 61 74 65 22 2c 2c 62  25 3a 62 25 21 32 38 3d  |tate",,b%:b%!28=|
00003280  2d 31 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |-1:.. "Wimp_Open|
00003290  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 0c 08 32 c8  |Window",,b%...2.|
000032a0  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
000032b0  50 6f 73 69 74 69 6f 6e  22 2c 6e 65 77 6c 65 61  |Position",newlea|
000032c0  67 75 65 25 2c 30 2c 2c  2c 2d 31 2c 30 0d 0c 12  |gue%,0,,,-1,0...|
000032d0  2b 21 62 25 3d 6d 69 64  73 74 61 72 74 25 3a c8  |+!b%=midstart%:.|
000032e0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
000032f0  64 6f 77 22 2c 2c 62 25  0d 0c 1c 05 e1 0d 0c 26  |dow",,b%.......&|
00003300  05 3a 0d 0c 30 20 dd a4  6f 75 72 6b 65 79 28 77  |.:..0 ..ourkey(w|
00003310  69 6e 64 6f 77 25 2c 6b  65 79 25 2c 69 63 6f 6e  |indow%,key%,icon|
00003320  25 29 0d 0c 3a 16 ea 20  6f 75 72 73 25 2c 6c 25  |%)..:.. ours%,l%|
00003330  3a 6f 75 72 73 25 3d a3  0d 0c 44 10 c8 8e 20 77  |:ours%=...D... w|
00003340  69 6e 64 6f 77 25 20 ca  0d 0c 4e 25 c9 20 73 70  |indow% ...N%. sp|
00003350  65 63 69 61 6c 25 3a e7  20 6b 65 79 25 3d 31 33  |ecial%:. key%=13|
00003360  20 8c 20 f2 6f 6b 73 70  65 63 69 61 6c 0d 0c 58  | . .okspecial..X|
00003370  0f c9 20 6d 69 64 73 74  61 72 74 25 0d 0c 62 22  |.. midstart%..b"|
00003380  e7 20 6b 65 79 25 3d 31  33 20 8c 20 6f 75 72 73  |. key%=13 . ours|
00003390  25 3d b9 3a c8 8e 20 69  63 6f 6e 25 20 ca 0d 0c  |%=.:.. icon% ...|
000033a0  6c 7f c9 20 31 34 3a 7a  77 69 25 28 73 74 65 61  |l.. 14:zwi%(stea|
000033b0  6d 25 29 3d bb a4 7a 65  72 6f 28 69 6e 64 25 2b  |m%)=..zero(ind%+|
000033c0  33 35 34 37 29 3a e7 20  7a 77 69 25 28 73 74 65  |3547):. zwi%(ste|
000033d0  61 6d 25 29 2b 7a 64 72  25 28 73 74 65 61 6d 25  |am%)+zdr%(steam%|
000033e0  29 2b 7a 6c 6f 25 28 73  74 65 61 6d 25 29 3e 39  |)+zlo%(steam%)>9|
000033f0  39 20 8c 20 7a 77 69 25  28 73 74 65 61 6d 25 29  |9 . zwi%(steam%)|
00003400  3d 39 39 2d 7a 64 72 25  28 73 74 65 61 6d 25 29  |=99-zdr%(steam%)|
00003410  2d 7a 6c 6f 25 28 73 74  65 61 6d 25 29 0d 0c 76  |-zlo%(steam%)..v|
00003420  27 e7 20 bb a4 7a 65 72  6f 28 69 6e 64 25 2b 33  |'. ..zero(ind%+3|
00003430  35 39 37 29 3d 30 20 8c  20 69 6e 64 25 3f 33 35  |597)=0 . ind%?35|
00003440  39 37 3d 30 0d 0c 80 4e  f2 72 65 73 74 61 72 74  |97=0...N.restart|
00003450  28 31 2c 31 29 3a c8 99  20 22 57 69 6d 70 5f 53  |(1,1):.. "Wimp_S|
00003460  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00003470  2c 6d 69 64 73 74 61 72  74 25 2c 31 37 2c 2c 2c  |,midstart%,17,,,|
00003480  2d 31 2c a4 6c 65 6e 28  69 6e 64 25 2b 33 35 39  |-1,.len(ind%+359|
00003490  37 29 0d 0c 8a 7f c9 20  31 37 3a 7a 64 72 25 28  |7)..... 17:zdr%(|
000034a0  73 74 65 61 6d 25 29 3d  bb a4 7a 65 72 6f 28 69  |steam%)=..zero(i|
000034b0  6e 64 25 2b 33 35 39 37  29 3a e7 20 7a 77 69 25  |nd%+3597):. zwi%|
000034c0  28 73 74 65 61 6d 25 29  2b 7a 64 72 25 28 73 74  |(steam%)+zdr%(st|
000034d0  65 61 6d 25 29 2b 7a 6c  6f 25 28 73 74 65 61 6d  |eam%)+zlo%(steam|
000034e0  25 29 3e 39 39 20 8c 20  7a 64 72 25 28 73 74 65  |%)>99 . zdr%(ste|
000034f0  61 6d 25 29 3d 39 39 2d  7a 77 69 25 28 73 74 65  |am%)=99-zwi%(ste|
00003500  61 6d 25 29 2d 7a 6c 6f  25 28 73 74 65 61 6d 25  |am%)-zlo%(steam%|
00003510  29 0d 0c 94 27 e7 20 bb  a4 7a 65 72 6f 28 69 6e  |)...'. ..zero(in|
00003520  64 25 2b 33 36 34 37 29  3d 30 20 8c 20 69 6e 64  |d%+3647)=0 . ind|
00003530  25 3f 33 36 34 37 3d 30  0d 0c 9e 4e f2 72 65 73  |%?3647=0...N.res|
00003540  74 61 72 74 28 32 2c 32  29 3a c8 99 20 22 57 69  |tart(2,2):.. "Wi|
00003550  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00003560  69 6f 6e 22 2c 6d 69 64  73 74 61 72 74 25 2c 32  |ion",midstart%,2|
00003570  30 2c 2c 2c 2d 31 2c a4  6c 65 6e 28 69 6e 64 25  |0,,,-1,.len(ind%|
00003580  2b 33 36 34 37 29 0d 0c  a8 7f c9 20 32 30 3a 7a  |+3647)..... 20:z|
00003590  6c 6f 25 28 73 74 65 61  6d 25 29 3d bb a4 7a 65  |lo%(steam%)=..ze|
000035a0  72 6f 28 69 6e 64 25 2b  33 36 34 37 29 3a e7 20  |ro(ind%+3647):. |
000035b0  7a 77 69 25 28 73 74 65  61 6d 25 29 2b 7a 64 72  |zwi%(steam%)+zdr|
000035c0  25 28 73 74 65 61 6d 25  29 2b 7a 6c 6f 25 28 73  |%(steam%)+zlo%(s|
000035d0  74 65 61 6d 25 29 3e 39  39 20 8c 20 7a 6c 6f 25  |team%)>99 . zlo%|
000035e0  28 73 74 65 61 6d 25 29  3d 39 39 2d 7a 64 72 25  |(steam%)=99-zdr%|
000035f0  28 73 74 65 61 6d 25 29  2d 7a 77 69 25 28 73 74  |(steam%)-zwi%(st|
00003600  65 61 6d 25 29 0d 0c b2  27 e7 20 bb a4 7a 65 72  |eam%)...'. ..zer|
00003610  6f 28 69 6e 64 25 2b 33  36 39 37 29 3d 30 20 8c  |o(ind%+3697)=0 .|
00003620  20 69 6e 64 25 3f 33 36  39 37 3d 30 0d 0c bc 4e  | ind%?3697=0...N|
00003630  f2 72 65 73 74 61 72 74  28 34 2c 33 29 3a c8 99  |.restart(4,3):..|
00003640  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00003650  6f 73 69 74 69 6f 6e 22  2c 6d 69 64 73 74 61 72  |osition",midstar|
00003660  74 25 2c 32 33 2c 2c 2c  2d 31 2c a4 6c 65 6e 28  |t%,23,,,-1,.len(|
00003670  69 6e 64 25 2b 33 36 39  37 29 0d 0c c6 77 c9 20  |ind%+3697)...w. |
00003680  32 33 3a 7a 67 64 25 28  73 74 65 61 6d 25 29 3d  |23:zgd%(steam%)=|
00003690  bb a4 7a 65 72 6f 28 69  6e 64 25 2b 33 36 39 37  |..zero(ind%+3697|
000036a0  29 3a e7 20 7a 67 64 25  28 73 74 65 61 6d 25 29  |):. zgd%(steam%)|
000036b0  3e 31 30 30 20 8c 20 7a  67 64 25 28 73 74 65 61  |>100 . zgd%(stea|
000036c0  6d 25 29 3d 31 30 30 20  8b 20 e7 20 7a 67 64 25  |m%)=100 . . zgd%|
000036d0  28 73 74 65 61 6d 25 29  3c 2d 31 30 30 20 8c 20  |(steam%)<-100 . |
000036e0  7a 67 64 25 28 73 74 65  61 6d 25 29 3d 2d 31 30  |zgd%(steam%)=-10|
000036f0  30 0d 0c d0 15 e7 20 73  74 65 61 6d 25 3c 74 65  |0..... steam%<te|
00003700  61 6d 73 25 20 8c 0d 0c  da 1c 73 74 65 61 6d 25  |ams% .....steam%|
00003710  2b 3d 31 3a f2 66 69 6c  6c 73 74 61 72 74 28 2d  |+=1:.fillstart(-|
00003720  31 29 0d 0c e4 05 cc 0d  0c ee 78 21 62 25 3d 6d  |1)........x!b%=m|
00003730  69 64 73 74 61 72 74 25  3a 62 25 21 34 3d 34 30  |idstart%:b%!4=40|
00003740  3a 62 25 21 38 3d 26 32  30 30 30 30 30 3a 62 25  |:b%!8=&200000:b%|
00003750  21 31 32 3d 26 32 30 30  30 30 30 3a c8 99 20 22  |!12=&200000:.. "|
00003760  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00003770  65 22 2c 2c 62 25 3a c8  99 20 22 57 69 6d 70 5f  |e",,b%:.. "Wimp_|
00003780  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |CloseWindow",,b%|
00003790  3a f2 66 69 6c 6c 6e 65  77 6c 65 61 67 75 65 0d  |:.fillnewleague.|
000037a0  0c f8 05 cd 0d 0d 02 05  cb 0d 0d 0c 10 c9 20 6e  |.............. n|
000037b0  65 77 6c 65 61 67 75 65  25 0d 0d 16 0b 6f 75 72  |ewleague%....our|
000037c0  73 25 3d b9 0d 0d 20 0d  c8 8e 20 6b 65 79 25 20  |s%=... ... key% |
000037d0  ca 0d 0d 2a 13 c9 20 31  33 3a c8 8e 20 69 63 6f  |...*.. 13:.. ico|
000037e0  6e 25 20 ca 0d 0d 34 55  c9 20 33 35 3a c8 99 20  |n% ...4U. 35:.. |
000037f0  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003800  73 69 74 69 6f 6e 22 2c  6e 65 77 6c 65 61 67 75  |sition",newleagu|
00003810  65 25 2c 30 2c 2c 2c 2d  31 2c a4 6c 65 6e 28 69  |e%,0,,,-1,.len(i|
00003820  6e 64 25 29 3a 6c 25 3d  bb a4 7a 65 72 6f 28 69  |nd%):l%=..zero(i|
00003830  6e 64 25 2b 31 31 35 38  29 0d 0d 3e 23 e7 20 6c  |nd%+1158)..>#. l|
00003840  25 3c 32 20 8c 20 6c 25  3d 32 20 8b 20 e7 20 6c  |%<2 . l%=2 . . l|
00003850  25 3e 32 34 20 8c 20 6c  25 3d 32 34 0d 0d 48 55  |%>24 . l%=24..HU|
00003860  24 28 69 6e 64 25 2b 31  31 35 38 29 3d c3 6c 25  |$(ind%+1158)=.l%|
00003870  3a 21 62 25 3d 6e 65 77  6c 65 61 67 75 65 25 3a  |:!b%=newleague%:|
00003880  62 25 21 34 3d 33 35 3a  62 25 21 38 3d 30 3a 62  |b%!4=35:b%!8=0:b|
00003890  25 21 31 32 3d 30 3a c8  99 20 22 57 69 6d 70 5f  |%!12=0:.. "Wimp_|
000038a0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
000038b0  25 0d 0d 52 11 c8 95 20  74 65 61 6d 73 25 3c 3e  |%..R... teams%<>|
000038c0  6c 25 0d 0d 5c 11 e7 20  74 65 61 6d 73 25 3e 6c  |l%..\.. teams%>l|
000038d0  25 20 8c 0d 0d 66 5c 74  65 61 6d 73 25 2d 3d 31  |% ...f\teams%-=1|
000038e0  3a 69 6e 64 25 21 28 35  32 2b 28 33 37 2a 74 65  |:ind%!(52+(37*te|
000038f0  61 6d 73 25 29 29 3d 26  32 44 3a 62 25 21 34 3d  |ams%))=&2D:b%!4=|
00003900  74 65 61 6d 73 25 2b 31  3a 62 25 21 31 32 3d 26  |teams%+1:b%!12=&|
00003910  46 30 30 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |F000:.. "Wimp_Se|
00003920  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 0d  |tIconState",,b%.|
00003930  0d 70 05 cc 0d 0d 7a 63  69 6e 64 25 21 28 35 32  |.p....zcind%!(52|
00003940  2b 28 33 37 2a 74 65 61  6d 73 25 29 29 3d 30 3a  |+(37*teams%))=0:|
00003950  74 65 61 6d 73 25 2b 3d  31 3a 62 25 21 34 3d 74  |teams%+=1:b%!4=t|
00003960  65 61 6d 73 25 3a 62 25  21 38 3d 26 46 30 30 30  |eams%:b%!8=&F000|
00003970  3a 62 25 21 31 32 3d 26  46 30 30 30 3a c8 99 20  |:b%!12=&F000:.. |
00003980  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003990  74 65 22 2c 2c 62 25 0d  0d 84 05 cd 0d 0d 8e 05  |te",,b%.........|
000039a0  ce 0d 0d 98 8f c9 20 74  65 61 6d 73 25 3a 21 62  |...... teams%:!b|
000039b0  25 3d 6e 65 77 6c 65 61  67 75 65 25 3a 62 25 21  |%=newleague%:b%!|
000039c0  34 3d 34 30 3a 62 25 21  38 3d 26 32 30 30 30 30  |4=40:b%!8=&20000|
000039d0  30 3a 62 25 21 31 32 3d  26 32 30 30 30 30 30 3a  |0:b%!12=&200000:|
000039e0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000039f0  53 74 61 74 65 22 2c 2c  62 25 3a 21 62 25 3d 6e  |State",,b%:!b%=n|
00003a00  65 77 6c 65 61 67 75 65  25 3a c8 99 20 22 57 69  |ewleague%:.. "Wi|
00003a10  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00003a20  2c 62 25 3a f2 6f 6b 6e  65 77 6c 65 61 67 75 65  |,b%:.oknewleague|
00003a30  0d 0d a2 51 7f 3a c8 99  20 22 57 69 6d 70 5f 53  |...Q.:.. "Wimp_S|
00003a40  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00003a50  2c 6e 65 77 6c 65 61 67  75 65 25 2c 69 63 6f 6e  |,newleague%,icon|
00003a60  25 2b 31 2c 2c 2c 2d 31  2c a4 6c 65 6e 28 69 6e  |%+1,,,-1,.len(in|
00003a70  64 25 2b 35 32 2b 28 33  37 2a 69 63 6f 6e 25 29  |d%+52+(37*icon%)|
00003a80  29 0d 0d ac 05 cb 0d 0d  b6 16 c9 20 26 31 38 45  |).......... &18E|
00003a90  3a e7 20 69 63 6f 6e 25  3d 30 20 8c 0d 0d c0 3e  |:. icon%=0 ....>|
00003aa0  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003ab0  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 65 77 6c 65  |tPosition",newle|
00003ac0  61 67 75 65 25 2c 31 2c  2c 2c 2d 31 2c a4 6c 65  |ague%,1,,,-1,.le|
00003ad0  6e 28 69 6e 64 25 2b 35  32 29 0d 0d ca 05 cc 0d  |n(ind%+52)......|
00003ae0  0d d4 17 e7 20 69 63 6f  6e 25 2b 32 3c 3d 74 65  |.... icon%+2<=te|
00003af0  61 6d 73 25 20 8c 0d 0d  de 53 c8 99 20 22 57 69  |ams% ....S.. "Wi|
00003b00  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00003b10  69 6f 6e 22 2c 6e 65 77  6c 65 61 67 75 65 25 2c  |ion",newleague%,|
00003b20  69 63 6f 6e 25 2b 32 2c  2c 2c 2d 31 2c a4 6c 65  |icon%+2,,,-1,.le|
00003b30  6e 28 69 6e 64 25 2b 35  32 2b 28 33 37 2a 28 69  |n(ind%+52+(37*(i|
00003b40  63 6f 6e 25 2b 31 29 29  29 0d 0d e8 05 cc 0d 0d  |con%+1))).......|
00003b50  f2 86 e7 20 69 63 6f 6e  25 83 32 3d 31 20 8c 20  |... icon%.2=1 . |
00003b60  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003b70  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 65 77 6c 65  |tPosition",newle|
00003b80  61 67 75 65 25 2c 32 2c  2c 2c 2d 31 2c a4 6c 65  |ague%,2,,,-1,.le|
00003b90  6e 28 69 6e 64 25 2b 38  39 29 20 8b 20 c8 99 20  |n(ind%+89) . .. |
00003ba0  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003bb0  73 69 74 69 6f 6e 22 2c  6e 65 77 6c 65 61 67 75  |sition",newleagu|
00003bc0  65 25 2c 30 2c 2c 2c 2d  31 2c a4 6c 65 6e 28 69  |e%,0,,,-1,.len(i|
00003bd0  6e 64 25 29 0d 0d fc 05  cd 0d 0e 06 05 cd 0d 0e  |nd%)............|
00003be0  10 15 c9 20 26 31 38 46  3a c8 8e 20 69 63 6f 6e  |... &18F:.. icon|
00003bf0  25 20 ca 0d 0e 1a 65 c9  20 30 3a c8 99 20 22 57  |% ....e. 0:.. "W|
00003c00  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00003c10  74 69 6f 6e 22 2c 6e 65  77 6c 65 61 67 75 65 25  |tion",newleague%|
00003c20  2c 28 74 65 61 6d 73 25  81 32 29 2a 32 2c 2c 2c  |,(teams%.2)*2,,,|
00003c30  2d 31 2c a4 6c 65 6e 28  69 6e 64 25 2b 35 32 2b  |-1,.len(ind%+52+|
00003c40  28 33 37 2a 28 28 28 74  65 61 6d 73 25 81 32 29  |(37*(((teams%.2)|
00003c50  2a 32 29 2d 31 29 29 29  0d 0e 24 3f c9 20 31 3a  |*2)-1)))..$?. 1:|
00003c60  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003c70  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 65 77 6c 65  |tPosition",newle|
00003c80  61 67 75 65 25 2c 30 2c  2c 2c 2d 31 2c a4 6c 65  |ague%,0,,,-1,.le|
00003c90  6e 28 69 6e 64 25 29 0d  0e 2e 73 c9 20 32 3a c8  |n(ind%)...s. 2:.|
00003ca0  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
00003cb0  50 6f 73 69 74 69 6f 6e  22 2c 6e 65 77 6c 65 61  |Position",newlea|
00003cc0  67 75 65 25 2c 74 65 61  6d 73 25 2d 31 2b 28 74  |gue%,teams%-1+(t|
00003cd0  65 61 6d 73 25 83 32 29  2c 2c 2c 2d 31 2c a4 6c  |eams%.2),,,-1,.l|
00003ce0  65 6e 28 69 6e 64 25 2b  35 32 2b 28 33 37 2a 28  |en(ind%+52+(37*(|
00003cf0  28 74 65 61 6d 73 25 2d  31 2b 28 74 65 61 6d 73  |(teams%-1+(teams|
00003d00  25 83 32 29 29 2d 31 29  29 29 0d 0e 38 55 7f 3a  |%.2))-1)))..8U.:|
00003d10  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003d20  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 65 77 6c 65  |tPosition",newle|
00003d30  61 67 75 65 25 2c 69 63  6f 6e 25 2d 32 2c 2c 2c  |ague%,icon%-2,,,|
00003d40  2d 31 2c a4 6c 65 6e 28  69 6e 64 25 2b 35 32 2b  |-1,.len(ind%+52+|
00003d50  28 33 37 2a 28 69 63 6f  6e 25 2d 33 29 29 29 0d  |(37*(icon%-3))).|
00003d60  0e 42 05 cb 0d 0e 4c 74  c9 20 26 31 39 43 3a e7  |.B....Lt. &19C:.|
00003d70  20 28 69 63 6f 6e 25 3e  31 20 80 20 69 63 6f 6e  | (icon%>1 . icon|
00003d80  25 83 32 3d 30 29 20 8c  20 c8 99 20 22 57 69 6d  |%.2=0) . .. "Wim|
00003d90  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00003da0  6f 6e 22 2c 6e 65 77 6c  65 61 67 75 65 25 2c 69  |on",newleague%,i|
00003db0  63 6f 6e 25 2d 31 2c 2c  2c 2d 31 2c a4 6c 65 6e  |con%-1,,,-1,.len|
00003dc0  28 69 6e 64 25 2b 35 32  2b 28 33 37 2a 28 69 63  |(ind%+52+(37*(ic|
00003dd0  6f 6e 25 2d 32 29 29 29  0d 0e 56 5c c9 20 26 31  |on%-2)))..V\. &1|
00003de0  39 44 3a e7 20 69 63 6f  6e 25 83 32 3d 31 20 80  |9D:. icon%.2=1 .|
00003df0  20 69 63 6f 6e 25 3c 74  65 61 6d 73 25 20 8c 20  | icon%<teams% . |
00003e00  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003e10  74 50 6f 73 69 74 69 6f  6e 22 2c 6e 65 77 6c 65  |tPosition",newle|
00003e20  61 67 75 65 25 2c 69 63  6f 6e 25 2b 31 2c 2c 2c  |ague%,icon%+1,,,|
00003e30  2d 31 2c 30 0d 0e 60 11  c9 20 26 31 39 45 3a c8  |-1,0..`.. &19E:.|
00003e40  8e 20 b9 20 ca 0d 0e 6a  48 c9 20 69 63 6f 6e 25  |. . ...jH. icon%|
00003e50  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |=0:.. "Wimp_SetC|
00003e60  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 6e 65  |aretPosition",ne|
00003e70  77 6c 65 61 67 75 65 25  2c 31 2c 2c 2c 2d 31 2c  |wleague%,1,,,-1,|
00003e80  a4 6c 65 6e 28 69 6e 64  25 2b 35 32 29 0d 0e 74  |.len(ind%+52)..t|
00003e90  7b c9 20 69 63 6f 6e 25  83 32 3d 31 3a c8 99 20  |{. icon%.2=1:.. |
00003ea0  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003eb0  73 69 74 69 6f 6e 22 2c  6e 65 77 6c 65 61 67 75  |sition",newleagu|
00003ec0  65 25 2c 74 65 61 6d 73  25 2d 31 2b 28 74 65 61  |e%,teams%-1+(tea|
00003ed0  6d 73 25 83 32 29 2c 2c  2c 2d 31 2c a4 6c 65 6e  |ms%.2),,,-1,.len|
00003ee0  28 69 6e 64 25 2b 35 32  2b 28 33 37 2a 28 28 74  |(ind%+52+(37*((t|
00003ef0  65 61 6d 73 25 2d 31 2b  28 74 65 61 6d 73 25 83  |eams%-1+(teams%.|
00003f00  32 29 29 2d 31 29 29 29  0d 0e 7e 63 7f 3a c8 99  |2))-1)))..~c.:..|
00003f10  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00003f20  6f 73 69 74 69 6f 6e 22  2c 6e 65 77 6c 65 61 67  |osition",newleag|
00003f30  75 65 25 2c 28 74 65 61  6d 73 25 81 32 29 2a 32  |ue%,(teams%.2)*2|
00003f40  2c 2c 2c 2d 31 2c a4 6c  65 6e 28 69 6e 64 25 2b  |,,,-1,.len(ind%+|
00003f50  35 32 2b 28 33 37 2a 28  28 28 74 65 61 6d 73 25  |52+(37*(((teams%|
00003f60  81 32 29 2a 32 29 2d 31  29 29 29 0d 0e 88 05 cb  |.2)*2)-1))).....|
00003f70  0d 0e 92 11 c9 20 26 31  39 46 3a c8 8e 20 b9 20  |..... &19F:.. . |
00003f80  ca 0d 0e 9c 0e c9 20 69  63 6f 6e 25 3d 30 3a 0d  |...... icon%=0:.|
00003f90  0e a6 1b c9 20 69 63 6f  6e 25 83 32 3d 31 3a e7  |.... icon%.2=1:.|
00003fa0  20 69 63 6f 6e 25 3e 31  20 8c 0d 0e b0 3e c8 99  | icon%>1 ....>..|
00003fb0  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00003fc0  6f 73 69 74 69 6f 6e 22  2c 6e 65 77 6c 65 61 67  |osition",newleag|
00003fd0  75 65 25 2c 31 2c 2c 2c  2d 31 2c a4 6c 65 6e 28  |ue%,1,,,-1,.len(|
00003fe0  69 6e 64 25 2b 35 32 29  0d 0e ba 05 cc 0d 0e c4  |ind%+52)........|
00003ff0  3b c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |;.. "Wimp_SetCar|
00004000  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6e 65 77 6c  |etPosition",newl|
00004010  65 61 67 75 65 25 2c 30  2c 2c 2c 2d 31 2c a4 6c  |eague%,0,,,-1,.l|
00004020  65 6e 28 69 6e 64 25 29  0d 0e ce 05 cd 0d 0e d8  |en(ind%)........|
00004030  40 7f 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |@.:.. "Wimp_SetC|
00004040  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 6e 65  |aretPosition",ne|
00004050  77 6c 65 61 67 75 65 25  2c 32 2c 2c 2c 2d 31 2c  |wleague%,2,,,-1,|
00004060  a4 6c 65 6e 28 69 6e 64  25 2b 38 39 29 0d 0e e2  |.len(ind%+89)...|
00004070  05 cb 0d 0e ec 0d 7f 3a  6f 75 72 73 25 3d a3 0d  |.......:ours%=..|
00004080  0e f6 05 cb 0d 0f 00 0d  c9 20 72 65 73 75 6c 74  |......... result|
00004090  25 0d 0f 0a 0f e7 20 6b  65 79 25 3d 31 33 20 8c  |%..... key%=13 .|
000040a0  0d 0f 14 0b 6f 75 72 73  25 3d b9 0d 0f 1e 46 e7  |....ours%=....F.|
000040b0  20 69 63 6f 6e 25 3d 33  34 20 8c 20 f2 73 63 6f  | icon%=34 . .sco|
000040c0  72 65 28 bb a4 7a 65 72  6f 28 69 6e 64 25 2b 32  |re(..zero(ind%+2|
000040d0  35 38 37 29 29 20 8b 20  f2 73 63 6f 72 65 28 bb  |587)) . .score(.|
000040e0  a4 7a 65 72 6f 28 69 6e  64 25 2b 32 36 31 33 29  |.zero(ind%+2613)|
000040f0  29 0d 0f 28 05 cd 0d 0f  32 30 c9 20 73 61 76 65  |)..(....20. save|
00004100  62 6f 78 25 3a e7 20 6b  65 79 25 3d 31 33 20 8c  |box%:. key%=13 .|
00004110  20 6f 75 72 73 25 3d b9  3a f2 63 68 65 63 6b 61  | ours%=.:.checka|
00004120  6e 64 73 61 76 65 0d 0f  3c 18 c9 20 66 69 6c 65  |ndsave..<.. file|
00004130  72 25 3a e7 20 6b 65 79  25 3d 31 33 20 8c 0d 0f  |r%:. key%=13 ...|
00004140  46 3d c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |F=.. "Wimp_SetCa|
00004150  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 2d 31  |retPosition",,-1|
00004160  3a 63 75 72 72 65 6e 74  25 3d bb a4 7a 65 72 6f  |:current%=..zero|
00004170  28 69 6e 64 25 2b 34 30  31 33 29 0d 0f 50 1d e7  |(ind%+4013)..P..|
00004180  20 63 75 72 72 65 6e 74  25 3d 30 20 8c 20 63 75  | current%=0 . cu|
00004190  72 72 65 6e 74 25 3d 31  0d 0f 5a 27 e7 20 63 75  |rrent%=1..Z'. cu|
000041a0  72 72 65 6e 74 25 3e 70  74 72 25 2f 34 20 8c 20  |rrent%>ptr%/4 . |
000041b0  63 75 72 72 65 6e 74 25  3d 70 74 72 25 2f 34 0d  |current%=ptr%/4.|
000041c0  0f 64 0e f2 66 69 6c 6c  66 69 6c 65 72 0d 0f 6e  |.d..fillfiler..n|
000041d0  05 cd 0d 0f 78 0e c9 20  64 61 74 65 62 6f 78 25  |....x.. datebox%|
000041e0  0d 0f 82 0f e7 20 6b 65  79 25 3d 31 33 20 8c 0d  |..... key%=13 ..|
000041f0  0f 8c 4d 21 62 25 3d 64  61 74 65 62 6f 78 25 3a  |..M!b%=datebox%:|
00004200  62 25 21 34 3d 39 3a 62  25 21 38 3d 26 32 30 30  |b%!4=9:b%!8=&200|
00004210  30 30 30 3a 62 25 21 31  32 3d 26 32 30 30 30 30  |000:b%!12=&20000|
00004220  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
00004230  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 0f 96 1c  |onState",,b%....|
00004240  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00004250  65 6e 75 22 2c 2c 2d 31  0d 0f a0 0f c8 8e 20 64  |enu",,-1...... d|
00004260  74 79 70 65 25 20 ca 0d  0f aa 3e c9 20 31 3a 64  |type% ....>. 1:d|
00004270  61 74 65 25 3d 62 64 61  74 65 25 3a 6d 6f 6e 74  |ate%=bdate%:mont|
00004280  68 25 3d 62 6d 6f 6e 74  68 25 3a 79 65 61 72 25  |h%=bmonth%:year%|
00004290  3d 62 79 65 61 72 25 3a  f2 66 69 6c 6c 74 61 62  |=byear%:.filltab|
000042a0  6c 65 28 a3 29 0d 0f b4  3e c9 20 32 3a 72 64 61  |le(.)...>. 2:rda|
000042b0  74 65 25 3d 62 64 61 74  65 25 3a 72 6d 6f 6e 74  |te%=bdate%:rmont|
000042c0  68 25 3d 62 6d 6f 6e 74  68 25 3a 72 79 65 61 72  |h%=bmonth%:ryear|
000042d0  25 3d 62 79 65 61 72 25  3a f2 66 69 6c 6c 72 64  |%=byear%:.fillrd|
000042e0  61 74 65 0d 0f be 93 c9  20 33 3a 7a 64 61 74 65  |ate..... 3:zdate|
000042f0  25 3d 62 64 61 74 65 25  3a 7a 6d 6f 6e 74 68 25  |%=bdate%:zmonth%|
00004300  3d 62 6d 6f 6e 74 68 25  3a 7a 79 65 61 72 25 3d  |=bmonth%:zyear%=|
00004310  62 79 65 61 72 25 3a 24  28 69 6e 64 25 2b 39 34  |byear%:$(ind%+94|
00004320  30 29 3d a4 64 61 79 28  7a 64 61 74 65 25 2c 7a  |0)=.day(zdate%,z|
00004330  6d 6f 6e 74 68 25 2c 7a  79 65 61 72 25 29 2b 22  |month%,zyear%)+"|
00004340  20 22 2b c3 7a 64 61 74  65 25 2b a4 74 68 28 7a  | "+.zdate%+.th(z|
00004350  64 61 74 65 25 29 2b 22  20 22 2b a4 6d 6f 6e 74  |date%)+" "+.mont|
00004360  68 28 7a 6d 6f 6e 74 68  25 29 2b 22 20 22 2b c3  |h(zmonth%)+" "+.|
00004370  7a 79 65 61 72 25 0d 0f  c8 44 21 62 25 3d 6e 65  |zyear%...D!b%=ne|
00004380  77 6c 65 61 67 75 65 25  3a 62 25 21 34 3d 32 35  |wleague%:b%!4=25|
00004390  3a 62 25 21 38 3d 30 3a  62 25 21 31 32 3d 30 3a  |:b%!8=0:b%!12=0:|
000043a0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000043b0  53 74 61 74 65 22 2c 2c  62 25 0d 0f d2 05 cb 0d  |State",,b%......|
000043c0  0f dc 05 cd 0d 0f e6 05  cb 0d 0f f0 0a 3d 6f 75  |.............=ou|
000043d0  72 73 25 0d 0f fa 05 3a  0d 10 04 25 dd a4 77 69  |rs%....:...%..wi|
000043e0  6d 70 65 72 72 6f 72 28  65 72 72 6f 72 25 2c 65  |mperror(error%,e|
000043f0  72 72 6f 72 24 2c 66 6c  61 67 73 25 29 0d 10 0e  |rror$,flags%)...|
00004400  0c ea 20 72 65 70 6c 79  25 0d 10 18 24 e7 20 91  |.. reply%...$. .|
00004410  3c 65 72 72 74 69 6d 65  25 28 65 72 72 74 69 6d  |<errtime%(errtim|
00004420  65 6e 6f 25 29 2b 35 30  30 20 8c 20 e0 0d 10 22  |eno%)+500 . ..."|
00004430  36 65 72 72 74 69 6d 65  25 28 65 72 72 74 69 6d  |6errtime%(errtim|
00004440  65 6e 6f 25 29 3d 91 3a  65 72 72 74 69 6d 65 6e  |eno%)=.:errtimen|
00004450  6f 25 3d 28 65 72 72 74  69 6d 65 6e 6f 25 2b 31  |o%=(errtimeno%+1|
00004460  29 83 33 0d 10 2c 1d 21  65 25 3d 65 72 72 6f 72  |).3..,.!e%=error|
00004470  25 3a 24 28 65 25 2b 34  29 3d 65 72 72 6f 72 24  |%:$(e%+4)=error$|
00004480  0d 10 36 41 c8 99 20 22  57 69 6d 70 5f 52 65 70  |..6A.. "Wimp_Rep|
00004490  6f 72 74 45 72 72 6f 72  22 2c 65 25 2c 66 6c 61  |ortError",e%,fla|
000044a0  67 73 25 2c 22 46 41 20  50 72 65 6d 69 65 72 20  |gs%,"FA Premier |
000044b0  4c 65 61 67 75 65 22 20  b8 20 2c 72 65 70 6c 79  |League" . ,reply|
000044c0  25 0d 10 40 18 e7 20 72  65 70 6c 79 25 3d 32 20  |%..@.. reply%=2 |
000044d0  8c 20 3d b9 20 8b 20 3d  a3 0d 10 4a 05 3a 0d 10  |. =. . =...J.:..|
000044e0  54 11 dd f2 6f 6b 6e 65  77 6c 65 61 67 75 65 0d  |T...oknewleague.|
000044f0  10 5e 0c ea 20 6c 25 2c  6c 6c 25 0d 10 68 13 e3  |.^.. l%,ll%..h..|
00004500  20 6c 25 3d 31 20 b8 20  74 65 61 6d 73 25 0d 10  | l%=1 . teams%..|
00004510  72 29 7a 6e 61 6d 65 24  28 6c 25 29 3d a4 7a 65  |r)zname$(l%)=.ze|
00004520  72 6f 28 69 6e 64 25 2b  35 32 2b 28 33 37 2a 28  |ro(ind%+52+(37*(|
00004530  6c 25 2d 31 29 29 29 0d  10 7c 05 ed 0d 10 86 16  |l%-1)))..|......|
00004540  e3 20 6c 6c 25 3d 31 20  b8 20 74 65 61 6d 73 25  |. ll%=1 . teams%|
00004550  2d 31 0d 10 90 15 e3 20  6c 25 3d 31 20 b8 20 74  |-1..... l%=1 . t|
00004560  65 61 6d 73 25 2d 31 0d  10 9a 3a e7 20 7a 6e 61  |eams%-1...:. zna|
00004570  6d 65 24 28 6c 25 29 3e  7a 6e 61 6d 65 24 28 6c  |me$(l%)>zname$(l|
00004580  25 2b 31 29 20 8c 20 c8  94 20 7a 6e 61 6d 65 24  |%+1) . .. zname$|
00004590  28 6c 25 29 2c 7a 6e 61  6d 65 24 28 6c 25 2b 31  |(l%),zname$(l%+1|
000045a0  29 0d 10 a4 05 ed 0d 10  ae 05 ed 0d 10 b8 1c 7a  |)..............z|
000045b0  6c 65 61 67 75 65 6e 61  6d 65 24 3d a4 7a 65 72  |leaguename$=.zer|
000045c0  6f 28 69 6e 64 25 29 0d  10 c2 35 c8 99 20 22 57  |o(ind%)...5.. "W|
000045d0  69 6d 70 5f 57 68 69 63  68 49 63 6f 6e 22 2c 6e  |imp_WhichIcon",n|
000045e0  65 77 6c 65 61 67 75 65  25 2c 62 25 2c 26 33 46  |ewleague%,b%,&3F|
000045f0  30 30 30 30 2c 26 32 31  30 30 30 30 0d 10 cc 0e  |0000,&210000....|
00004600  e7 20 21 62 25 3d 32 39  20 8c 0d 10 d6 0e f2 68  |. !b%=29 ......h|
00004610  65 61 64 73 74 61 72 74  0d 10 e0 05 cc 0d 10 ea  |eadstart........|
00004620  12 f2 66 69 6c 6c 6e 65  77 6c 65 61 67 75 65 0d  |..fillnewleague.|
00004630  10 f4 05 cd 0d 10 fe 05  e1 0d 11 08 05 3a 0d 11  |.............:..|
00004640  12 15 dd a4 6d 6f 6e 74  68 6e 6f 28 6d 6f 6e 74  |....monthno(mont|
00004650  68 24 29 0d 11 1c 13 ea  20 62 61 63 6b 25 3a 62  |h$)..... back%:b|
00004660  61 63 6b 25 3d 30 0d 11  26 0f c8 8e 20 6d 6f 6e  |ack%=0..&... mon|
00004670  74 68 24 20 ca 0d 11 30  13 c9 20 22 4a 61 6e 22  |th$ ...0.. "Jan"|
00004680  3a 62 61 63 6b 25 3d 31  0d 11 3a 13 c9 20 22 46  |:back%=1..:.. "F|
00004690  65 62 22 3a 62 61 63 6b  25 3d 32 0d 11 44 13 c9  |eb":back%=2..D..|
000046a0  20 22 4d 61 72 22 3a 62  61 63 6b 25 3d 33 0d 11  | "Mar":back%=3..|
000046b0  4e 13 c9 20 22 41 70 72  22 3a 62 61 63 6b 25 3d  |N.. "Apr":back%=|
000046c0  34 0d 11 58 13 c9 20 22  4d 61 79 22 3a 62 61 63  |4..X.. "May":bac|
000046d0  6b 25 3d 35 0d 11 62 13  c9 20 22 4a 75 6e 22 3a  |k%=5..b.. "Jun":|
000046e0  62 61 63 6b 25 3d 36 0d  11 6c 13 c9 20 22 4a 75  |back%=6..l.. "Ju|
000046f0  6c 22 3a 62 61 63 6b 25  3d 37 0d 11 76 13 c9 20  |l":back%=7..v.. |
00004700  22 41 75 67 22 3a 62 61  63 6b 25 3d 38 0d 11 80  |"Aug":back%=8...|
00004710  13 c9 20 22 53 65 70 22  3a 62 61 63 6b 25 3d 39  |.. "Sep":back%=9|
00004720  0d 11 8a 14 c9 20 22 4f  63 74 22 3a 62 61 63 6b  |..... "Oct":back|
00004730  25 3d 31 30 0d 11 94 14  c9 20 22 4e 6f 76 22 3a  |%=10..... "Nov":|
00004740  62 61 63 6b 25 3d 31 31  0d 11 9e 14 c9 20 22 44  |back%=11..... "D|
00004750  65 63 22 3a 62 61 63 6b  25 3d 31 32 0d 11 a8 05  |ec":back%=12....|
00004760  cb 0d 11 b2 0a 3d 62 61  63 6b 25 0d 11 bc 05 3a  |.....=back%....:|
00004770  0d 11 c6 18 dd 20 a4 6c  65 61 70 79 65 61 72 28  |..... .leapyear(|
00004780  79 65 61 72 6e 6f 25 29  0d 11 d0 19 e7 20 79 65  |yearno%)..... ye|
00004790  61 72 6e 6f 25 83 34 30  30 3d 30 20 8c 20 20 3d  |arno%.400=0 .  =|
000047a0  b9 0d 11 da 27 e7 20 79  65 61 72 6e 6f 25 83 34  |....'. yearno%.4|
000047b0  3d 30 20 80 20 79 65 61  72 6e 6f 25 83 31 30 30  |=0 . yearno%.100|
000047c0  3c 3e 30 20 8c 20 3d b9  0d 11 e4 06 3d a3 0d 11  |<>0 . =.....=...|
000047d0  ee 05 3a 0d 11 f8 19 dd  a4 64 61 79 28 64 61 74  |..:......day(dat|
000047e0  25 2c 6d 6f 6e 25 2c 79  65 61 25 29 0d 12 02 0e  |%,mon%,yea%)....|
000047f0  ea 20 64 61 79 73 25 2c  6c 25 0d 12 0c 45 e7 20  |. days%,l%...E. |
00004800  79 65 61 25 3c 31 39 39  30 20 8c 20 85 20 31 2c  |yea%<1990 . . 1,|
00004810  22 41 74 74 65 6d 70 74  20 74 6f 20 70 72 6f 63  |"Attempt to proc|
00004820  65 73 73 20 70 72 65 2d  31 39 39 30 20 64 61 74  |ess pre-1990 dat|
00004830  65 20 28 22 2b c3 79 65  61 25 2b 22 29 2e 22 0d  |e ("+.yea%+").".|
00004840  12 16 13 6c 25 3d 31 39  39 30 3a 64 61 79 73 25  |...l%=1990:days%|
00004850  3d 30 0d 12 20 0e c8 95  20 6c 25 3c 79 65 61 25  |=0.. ... l%<yea%|
00004860  0d 12 2a 21 64 61 79 73  25 3d 64 61 79 73 25 2b  |..*!days%=days%+|
00004870  33 36 35 2d a4 6c 65 61  70 79 65 61 72 28 6c 25  |365-.leapyear(l%|
00004880  29 0d 12 34 09 6c 25 2b  3d 31 0d 12 3e 05 ce 0d  |)..4.l%+=1..>...|
00004890  12 48 08 6c 25 3d 31 0d  12 52 0e c8 95 20 6c 25  |.H.l%=1..R... l%|
000048a0  3c 6d 6f 6e 25 0d 12 5c  18 64 61 79 73 25 2b 3d  |<mon%..\.days%+=|
000048b0  a4 6d 61 78 28 6c 25 2c  79 65 61 25 29 0d 12 66  |.max(l%,yea%)..f|
000048c0  09 6c 25 2b 3d 31 0d 12  70 05 ce 0d 12 7a 0f 64  |.l%+=1..p....z.d|
000048d0  61 79 73 25 2b 3d 64 61  74 25 0d 12 84 11 64 61  |ays%+=dat%....da|
000048e0  79 73 25 3d 64 61 79 73  25 83 37 0d 12 8e 14 3d  |ys%=days%.7....=|
000048f0  a4 64 61 79 6e 61 6d 65  28 64 61 79 73 25 29 0d  |.dayname(days%).|
00004900  12 98 05 3a 0d 12 a2 1a  dd a4 64 61 79 73 28 64  |...:......days(d|
00004910  61 74 25 2c 6d 6f 6e 25  2c 79 65 61 25 29 0d 12  |at%,mon%,yea%)..|
00004920  ac 0e ea 20 64 61 79 73  25 2c 6c 25 0d 12 b6 45  |... days%,l%...E|
00004930  e7 20 79 65 61 25 3c 31  39 39 30 20 8c 20 85 20  |. yea%<1990 . . |
00004940  31 2c 22 41 74 74 65 6d  70 74 20 74 6f 20 70 72  |1,"Attempt to pr|
00004950  6f 63 65 73 73 20 70 72  65 2d 31 39 39 30 20 64  |ocess pre-1990 d|
00004960  61 74 65 20 28 22 2b c3  79 65 61 25 2b 22 29 2e  |ate ("+.yea%+").|
00004970  22 0d 12 c0 13 6c 25 3d  31 39 39 30 3a 64 61 79  |"....l%=1990:day|
00004980  73 25 3d 30 0d 12 ca 0e  c8 95 20 6c 25 3c 79 65  |s%=0...... l%<ye|
00004990  61 25 0d 12 d4 21 64 61  79 73 25 3d 64 61 79 73  |a%...!days%=days|
000049a0  25 2b 33 36 35 2d a4 6c  65 61 70 79 65 61 72 28  |%+365-.leapyear(|
000049b0  6c 25 29 0d 12 de 09 6c  25 2b 3d 31 0d 12 e8 05  |l%)....l%+=1....|
000049c0  ce 0d 12 f2 08 6c 25 3d  31 0d 12 fc 0e c8 95 20  |.....l%=1...... |
000049d0  6c 25 3c 6d 6f 6e 25 0d  13 06 18 64 61 79 73 25  |l%<mon%....days%|
000049e0  2b 3d a4 6d 61 78 28 6c  25 2c 79 65 61 25 29 0d  |+=.max(l%,yea%).|
000049f0  13 10 09 6c 25 2b 3d 31  0d 13 1a 05 ce 0d 13 24  |...l%+=1.......$|
00004a00  0f 64 61 79 73 25 2b 3d  64 61 74 25 0d 13 2e 0a  |.days%+=dat%....|
00004a10  3d 64 61 79 73 25 0d 13  38 05 3a 0d 13 42 14 dd  |=days%..8.:..B..|
00004a20  a4 64 61 79 6e 61 6d 65  28 64 61 79 73 25 29 0d  |.dayname(days%).|
00004a30  13 4c 0a ea 20 64 61 79  24 0d 13 56 0e c8 8e 20  |.L.. day$..V... |
00004a40  64 61 79 73 25 20 ca 0d  13 60 15 c9 20 30 3a 64  |days% ...`.. 0:d|
00004a50  61 79 24 3d 22 53 75 6e  64 61 79 22 0d 13 6a 15  |ay$="Sunday"..j.|
00004a60  c9 20 31 3a 64 61 79 24  3d 22 4d 6f 6e 64 61 79  |. 1:day$="Monday|
00004a70  22 0d 13 74 16 c9 20 32  3a 64 61 79 24 3d 22 54  |"..t.. 2:day$="T|
00004a80  75 65 73 64 61 79 22 0d  13 7e 18 c9 20 33 3a 64  |uesday"..~.. 3:d|
00004a90  61 79 24 3d 22 57 65 64  6e 65 73 64 61 79 22 0d  |ay$="Wednesday".|
00004aa0  13 88 17 c9 20 34 3a 64  61 79 24 3d 22 54 68 75  |.... 4:day$="Thu|
00004ab0  72 73 64 61 79 22 0d 13  92 15 c9 20 35 3a 64 61  |rsday"..... 5:da|
00004ac0  79 24 3d 22 46 72 69 64  61 79 22 0d 13 9c 17 c9  |y$="Friday".....|
00004ad0  20 36 3a 64 61 79 24 3d  22 53 61 74 75 72 64 61  | 6:day$="Saturda|
00004ae0  79 22 0d 13 a6 05 cb 0d  13 b0 09 3d 64 61 79 24  |y".........=day$|
00004af0  0d 13 ba 05 3a 0d 13 c4  0f dd a4 74 68 28 64 61  |....:......th(da|
00004b00  74 65 25 29 0d 13 ce 3a  e7 20 28 64 61 74 65 25  |te%)...:. (date%|
00004b10  3e 33 20 80 20 64 61 74  65 25 3c 32 31 29 20 84  |>3 . date%<21) .|
00004b20  20 28 64 61 74 65 25 3e  32 33 20 80 20 64 61 74  | (date%>23 . dat|
00004b30  65 25 3c 33 31 29 20 8c  20 3d 22 74 68 22 0d 13  |e%<31) . ="th"..|
00004b40  d8 12 64 61 74 65 25 3d  64 61 74 65 25 83 31 30  |..date%=date%.10|
00004b50  0d 13 e2 15 e7 20 64 61  74 65 25 3d 31 20 8c 20  |..... date%=1 . |
00004b60  3d 22 73 74 22 0d 13 ec  15 e7 20 64 61 74 65 25  |="st"..... date%|
00004b70  3d 32 20 8c 20 3d 22 6e  64 22 0d 13 f6 09 3d 22  |=2 . ="nd"....="|
00004b80  72 64 22 0d 14 00 05 3a  0d 14 0a 13 dd a4 6d 6f  |rd"....:......mo|
00004b90  6e 74 68 28 6d 6f 6e 74  68 25 29 0d 14 14 0c ea  |nth(month%).....|
00004ba0  20 6d 6f 6e 74 68 24 0d  14 1e 0f c8 8e 20 6d 6f  | month$...... mo|
00004bb0  6e 74 68 25 20 ca 0d 14  28 18 c9 20 31 3a 6d 6f  |nth% ...(.. 1:mo|
00004bc0  6e 74 68 24 3d 22 4a 61  6e 75 61 72 79 22 0d 14  |nth$="January"..|
00004bd0  32 19 c9 20 32 3a 6d 6f  6e 74 68 24 3d 22 46 65  |2.. 2:month$="Fe|
00004be0  62 72 75 61 72 79 22 0d  14 3c 16 c9 20 33 3a 6d  |bruary"..<.. 3:m|
00004bf0  6f 6e 74 68 24 3d 22 4d  61 72 63 68 22 0d 14 46  |onth$="March"..F|
00004c00  16 c9 20 34 3a 6d 6f 6e  74 68 24 3d 22 41 70 72  |.. 4:month$="Apr|
00004c10  69 6c 22 0d 14 50 14 c9  20 35 3a 6d 6f 6e 74 68  |il"..P.. 5:month|
00004c20  24 3d 22 4d 61 79 22 0d  14 5a 15 c9 20 36 3a 6d  |$="May"..Z.. 6:m|
00004c30  6f 6e 74 68 24 3d 22 4a  75 6e 65 22 0d 14 64 15  |onth$="June"..d.|
00004c40  c9 20 37 3a 6d 6f 6e 74  68 24 3d 22 4a 75 6c 79  |. 7:month$="July|
00004c50  22 0d 14 6e 17 c9 20 38  3a 6d 6f 6e 74 68 24 3d  |"..n.. 8:month$=|
00004c60  22 41 75 67 75 73 74 22  0d 14 78 1a c9 20 39 3a  |"August"..x.. 9:|
00004c70  6d 6f 6e 74 68 24 3d 22  53 65 70 74 65 6d 62 65  |month$="Septembe|
00004c80  72 22 0d 14 82 19 c9 20  31 30 3a 6d 6f 6e 74 68  |r"..... 10:month|
00004c90  24 3d 22 4f 63 74 6f 62  65 72 22 0d 14 8c 1a c9  |$="October".....|
00004ca0  20 31 31 3a 6d 6f 6e 74  68 24 3d 22 4e 6f 76 65  | 11:month$="Nove|
00004cb0  6d 62 65 72 22 0d 14 96  1a c9 20 31 32 3a 6d 6f  |mber"..... 12:mo|
00004cc0  6e 74 68 24 3d 22 44 65  63 65 6d 62 65 72 22 0d  |nth$="December".|
00004cd0  14 a0 05 cb 0d 14 aa 0b  3d 6d 6f 6e 74 68 24 0d  |........=month$.|
00004ce0  14 b4 05 3a 0d 14 be 0f  dd f2 66 69 6c 6c 72 64  |...:......fillrd|
00004cf0  61 74 65 0d 14 c8 a4 24  28 69 6e 64 25 2b 32 36  |ate....$(ind%+26|
00004d00  32 30 29 3d a4 64 61 79  28 72 64 61 74 65 25 2c  |20)=.day(rdate%,|
00004d10  72 6d 6f 6e 74 68 25 2c  72 79 65 61 72 25 29 2b  |rmonth%,ryear%)+|
00004d20  22 20 22 2b c3 28 72 64  61 74 65 25 29 2b a4 74  |" "+.(rdate%)+.t|
00004d30  68 28 72 64 61 74 65 25  29 2b 22 20 22 2b a4 6d  |h(rdate%)+" "+.m|
00004d40  6f 6e 74 68 28 72 6d 6f  6e 74 68 25 29 2b 22 20  |onth(rmonth%)+" |
00004d50  22 2b c3 72 79 65 61 72  25 3a 21 62 25 3d 72 65  |"+.ryear%:!b%=re|
00004d60  73 75 6c 74 25 3a 62 25  21 38 3d 30 3a 62 25 21  |sult%:b%!8=0:b%!|
00004d70  31 32 3d 30 3a 62 25 21  34 3d 34 30 3a c8 99 20  |12=0:b%!4=40:.. |
00004d80  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00004d90  74 65 22 2c 2c 62 25 0d  14 d2 05 e1 0d 14 dc 05  |te",,b%.........|
00004da0  3a 0d 14 e6 16 dd f2 66  69 6c 6c 62 64 61 74 65  |:......fillbdate|
00004db0  28 72 65 64 6f 25 29 0d  14 f0 1f 21 62 25 3d 64  |(redo%)....!b%=d|
00004dc0  61 74 65 62 6f 78 25 3a  62 25 21 38 3d 30 3a 62  |atebox%:b%!8=0:b|
00004dd0  25 21 31 32 3d 30 0d 14  fa 68 24 28 69 6e 64 25  |%!12=0...h$(ind%|
00004de0  2b 33 31 30 30 29 3d a4  64 61 79 28 62 64 61 74  |+3100)=.day(bdat|
00004df0  65 25 2c 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |e%,bmonth%,byear|
00004e00  25 29 2b 22 20 22 2b c3  28 62 64 61 74 65 25 29  |%)+" "+.(bdate%)|
00004e10  2b a4 74 68 28 62 64 61  74 65 25 29 3a 62 25 21  |+.th(bdate%):b%!|
00004e20  34 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |4=0:.. "Wimp_Set|
00004e30  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 15  |IconState",,b%..|
00004e40  04 4e e7 20 72 65 64 6f  25 80 32 20 8c 20 24 28  |.N. redo%.2 . $(|
00004e50  69 6e 64 25 2b 33 31 31  35 29 3d a4 6d 6f 6e 74  |ind%+3115)=.mont|
00004e60  68 28 62 6d 6f 6e 74 68  25 29 3a 62 25 21 34 3d  |h(bmonth%):b%!4=|
00004e70  31 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |1:.. "Wimp_SetIc|
00004e80  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 15 0e 46  |onState",,b%...F|
00004e90  e7 20 72 65 64 6f 25 80  34 20 8c 20 24 28 69 6e  |. redo%.4 . $(in|
00004ea0  64 25 2b 33 31 32 35 29  3d c3 62 79 65 61 72 25  |d%+3125)=.byear%|
00004eb0  3a 62 25 21 34 3d 32 3a  c8 99 20 22 57 69 6d 70  |:b%!4=2:.. "Wimp|
00004ec0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004ed0  62 25 0d 15 18 05 e1 0d  15 22 05 3a 0d 15 2c 17  |b%.......".:..,.|
00004ee0  dd a4 6d 61 78 28 6d 6f  6e 74 68 25 2c 79 65 61  |..max(month%,yea|
00004ef0  72 25 29 0d 15 36 0b ea  20 64 61 79 73 25 0d 15  |r%)..6.. days%..|
00004f00  40 0f c8 8e 20 6d 6f 6e  74 68 25 20 ca 0d 15 4a  |@... month% ...J|
00004f10  1e c9 20 31 2c 33 2c 35  2c 37 2c 38 2c 31 30 2c  |.. 1,3,5,7,8,10,|
00004f20  31 32 3a 64 61 79 73 25  3d 33 31 0d 15 54 17 c9  |12:days%=31..T..|
00004f30  20 34 2c 36 2c 39 2c 31  31 3a 64 61 79 73 25 3d  | 4,6,9,11:days%=|
00004f40  33 30 0d 15 5e 21 c9 20  32 3a 64 61 79 73 25 3d  |30..^!. 2:days%=|
00004f50  32 38 2d a4 6c 65 61 70  79 65 61 72 28 79 65 61  |28-.leapyear(yea|
00004f60  72 25 29 0d 15 68 05 cb  0d 15 72 0a 3d 64 61 79  |r%)..h....r.=day|
00004f70  73 25 0d 15 7c 05 3a 0d  15 86 13 dd f2 66 69 6c  |s%..|.:......fil|
00004f80  6c 6e 65 77 6c 65 61 67  75 65 0d 15 90 08 ea 20  |lnewleague..... |
00004f90  6c 25 0d 15 9a 3d 70 74  72 25 3d 30 3a 6c 65 61  |l%...=ptr%=0:lea|
00004fa0  67 75 65 6e 61 6d 65 24  3d 7a 6c 65 61 67 75 65  |guename$=zleague|
00004fb0  6e 61 6d 65 24 3a 24 28  69 6e 64 25 2b 32 37 30  |name$:$(ind%+270|
00004fc0  30 29 3d 22 4c 65 61 67  75 65 46 69 6c 65 22 0d  |0)="LeagueFile".|
00004fd0  15 a4 2f 73 64 61 74 65  25 3d 7a 64 61 74 65 25  |../sdate%=zdate%|
00004fe0  3a 73 6d 6f 6e 74 68 25  3d 7a 6d 6f 6e 74 68 25  |:smonth%=zmonth%|
00004ff0  3a 73 79 65 61 72 25 3d  7a 79 65 61 72 25 0d 15  |:syear%=zyear%..|
00005000  ae 3e 64 61 74 65 25 3d  bb c1 91 24 2c 35 2c 32  |.>date%=...$,5,2|
00005010  29 3a 6d 6f 6e 74 68 25  3d a4 6d 6f 6e 74 68 6e  |):month%=.monthn|
00005020  6f 28 c1 91 24 2c 38 2c  33 29 29 3a 79 65 61 72  |o(..$,8,3)):year|
00005030  25 3d bb c1 91 24 2c 31  32 2c 34 29 0d 15 b8 67  |%=...$,12,4)...g|
00005040  e7 20 a4 64 61 79 73 28  64 61 74 65 25 2c 6d 6f  |. .days(date%,mo|
00005050  6e 74 68 25 2c 79 65 61  72 25 29 3c a4 64 61 79  |nth%,year%)<.day|
00005060  73 28 73 64 61 74 65 25  2c 73 6d 6f 6e 74 68 25  |s(sdate%,smonth%|
00005070  2c 73 79 65 61 72 25 29  20 8c 20 64 61 74 65 25  |,syear%) . date%|
00005080  3d 73 64 61 74 65 25 3a  6d 6f 6e 74 68 25 3d 73  |=sdate%:month%=s|
00005090  6d 6f 6e 74 68 25 3a 79  65 61 72 25 3d 73 79 65  |month%:year%=sye|
000050a0  61 72 25 0d 15 c2 14 6e  61 6d 65 24 28 29 3d 7a  |ar%....name$()=z|
000050b0  6e 61 6d 65 24 28 29 0d  15 cc 10 77 69 25 28 29  |name$()....wi%()|
000050c0  3d 7a 77 69 25 28 29 0d  15 d6 10 64 72 25 28 29  |=zwi%()....dr%()|
000050d0  3d 7a 64 72 25 28 29 0d  15 e0 10 6c 6f 25 28 29  |=zdr%()....lo%()|
000050e0  3d 7a 6c 6f 25 28 29 0d  15 ea 10 67 64 25 28 29  |=zlo%()....gd%()|
000050f0  3d 7a 67 64 25 28 29 0d  15 f4 37 73 77 69 25 28  |=zgd%()...7swi%(|
00005100  29 3d 77 69 25 28 29 3a  73 64 72 25 28 29 3d 64  |)=wi%():sdr%()=d|
00005110  72 25 28 29 3a 73 6c 6f  25 28 29 3d 6c 6f 25 28  |r%():slo%()=lo%(|
00005120  29 3a 73 67 64 25 28 29  3d 67 64 25 28 29 0d 15  |):sgd%()=gd%()..|
00005130  fe 1c 74 61 62 6c 65 66  69 6c 6c 65 64 25 3d b9  |..tablefilled%=.|
00005140  3a f2 6e 6f 74 73 61 76  65 64 0d 16 08 11 f2 66  |:.notsaved.....f|
00005150  69 6c 6c 74 61 62 6c 65  28 b9 29 0d 16 12 05 e1  |illtable(.).....|
00005160  0d 16 1c 05 3a 0d 16 26  0f dd f2 68 65 61 64 73  |....:..&...heads|
00005170  74 61 72 74 0d 16 30 25  73 74 65 61 6d 25 3d 31  |tart..0%steam%=1|
00005180  3a f2 66 69 6c 6c 73 74  61 72 74 28 30 29 3a f2  |:.fillstart(0):.|
00005190  6f 70 65 6e 73 74 61 72  74 0d 16 3a 05 e1 0d 16  |openstart..:....|
000051a0  44 05 3a 0d 16 4e 17 dd  f2 73 61 76 65 28 66 69  |D.:..N...save(fi|
000051b0  6c 65 24 2c 73 61 66 65  25 29 0d 16 58 0b ea 20  |le$,safe%)..X.. |
000051c0  66 69 6c 65 25 0d 16 62  35 e7 20 a4 6f 6b 74 6f  |file%..b5. .okto|
000051d0  73 61 76 65 28 66 69 6c  65 24 29 3d a3 20 8c 20  |save(file$)=. . |
000051e0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000051f0  65 6e 75 22 2c 2c 2d 31  3a e1 0d 16 6c 29 c8 99  |enu",,-1:...l)..|
00005200  20 22 4f 53 5f 46 69 6c  65 22 2c 31 31 2c 66 69  | "OS_File",11,fi|
00005210  6c 65 24 2c 6c 65 61 67  75 65 66 69 6c 65 25 2c  |le$,leaguefile%,|
00005220  30 2c 30 0d 16 76 10 66  69 6c 65 25 3d ae 66 69  |0,0..v.file%=.fi|
00005230  6c 65 24 0d 16 80 57 d5  23 66 69 6c 65 25 2c 6c  |le$...W.#file%,l|
00005240  65 61 67 75 65 6e 61 6d  65 24 3a d5 23 66 69 6c  |eaguename$:.#fil|
00005250  65 25 2c c3 73 64 61 74  65 25 3a d5 23 66 69 6c  |e%,.sdate%:.#fil|
00005260  65 25 2c c3 73 6d 6f 6e  74 68 25 3a d5 23 66 69  |e%,.smonth%:.#fi|
00005270  6c 65 25 2c c3 73 79 65  61 72 25 3a d5 23 66 69  |le%,.syear%:.#fi|
00005280  6c 65 25 2c 74 65 61 6d  73 25 0d 16 8a 7d e3 20  |le%,teams%...}. |
00005290  6c 25 3d 31 20 b8 20 74  65 61 6d 73 25 3a d5 23  |l%=1 . teams%:.#|
000052a0  66 69 6c 65 25 2c 6e 61  6d 65 24 28 6c 25 29 3a  |file%,name$(l%):|
000052b0  d5 23 66 69 6c 65 25 2c  c3 73 77 69 25 28 6c 25  |.#file%,.swi%(l%|
000052c0  29 3a d5 23 66 69 6c 65  25 2c c3 73 64 72 25 28  |):.#file%,.sdr%(|
000052d0  6c 25 29 3a d5 23 66 69  6c 65 25 2c c3 73 6c 6f  |l%):.#file%,.slo|
000052e0  25 28 6c 25 29 3a d5 23  66 69 6c 65 25 2c c3 73  |%(l%):.#file%,.s|
000052f0  67 64 25 28 6c 25 29 3a  ed 3a d5 23 66 69 6c 65  |gd%(l%):.:.#file|
00005300  25 2c c3 70 74 72 25 0d  16 94 2c 6c 25 3d 30 3a  |%,.ptr%...,l%=0:|
00005310  c8 95 20 6c 25 3c 70 74  72 25 3a d5 23 66 69 6c  |.. l%<ptr%:.#fil|
00005320  65 25 2c 64 61 74 61 25  3f 6c 25 3a 6c 25 2b 3d  |e%,data%?l%:l%+=|
00005330  31 3a ce 0d 16 9e 0b d9  23 66 69 6c 65 25 0d 16  |1:......#file%..|
00005340  a8 2a e7 20 73 61 66 65  25 3e 2d 31 20 8c 20 24  |.*. safe%>-1 . $|
00005350  28 69 6e 64 25 2b 32 37  30 30 29 3d 66 69 6c 65  |(ind%+2700)=file|
00005360  24 3a f2 73 61 76 65 64  0d 16 b2 1c c8 99 20 22  |$:.saved...... "|
00005370  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00005380  2c 2c 2d 31 0d 16 bc 05  e1 0d 16 c6 05 3a 0d 16  |,,-1.........:..|
00005390  d0 0d dd f2 64 72 61 67  62 6f 78 0d 16 da 0d ea  |....dragbox.....|
000053a0  20 78 6f 25 2c 79 6f 25  0d 16 e4 2d 21 62 25 3d  | xo%,yo%...-!b%=|
000053b0  73 61 76 65 62 6f 78 25  3a c8 99 20 22 57 69 6d  |savebox%:.. "Wim|
000053c0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000053d0  22 2c 2c 62 25 0d 16 ee  22 78 6f 25 3d 62 25 21  |",,b%..."xo%=b%!|
000053e0  34 2d 62 25 21 32 30 3a  79 6f 25 3d 62 25 21 31  |4-b%!20:yo%=b%!1|
000053f0  36 2d 62 25 21 32 34 0d  16 f8 25 62 25 21 34 3d  |6-b%!24...%b%!4=|
00005400  30 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |0:.. "Wimp_GetIc|
00005410  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 17 02 9b  |onState",,b%....|
00005420  21 62 25 3d 73 61 76 65  62 6f 78 25 3a 62 25 21  |!b%=savebox%:b%!|
00005430  34 3d 35 3a 62 25 21 38  3d 78 6f 25 2b 62 25 21  |4=5:b%!8=xo%+b%!|
00005440  38 3a 62 25 21 31 32 3d  79 6f 25 2b 62 25 21 31  |8:b%!12=yo%+b%!1|
00005450  32 3a 62 25 21 31 36 3d  78 6f 25 2b 62 25 21 31  |2:b%!16=xo%+b%!1|
00005460  36 3a 62 25 21 32 30 3d  79 6f 25 2b 62 25 21 32  |6:b%!20=yo%+b%!2|
00005470  30 3a 62 25 21 32 34 3d  30 3a 62 25 21 32 38 3d  |0:b%!24=0:b%!28=|
00005480  30 3a 62 25 21 33 32 3d  26 37 46 46 46 46 46 46  |0:b%!32=&7FFFFFF|
00005490  46 3a 62 25 21 33 36 3d  26 37 46 46 46 46 46 46  |F:b%!36=&7FFFFFF|
000054a0  46 3a c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |F:.. "Wimp_DragB|
000054b0  6f 78 22 2c 2c 62 25 0d  17 0c 05 e1 0d 17 16 05  |ox",,b%.........|
000054c0  3a 0d 17 20 12 dd f2 63  68 65 63 6b 61 6e 64 73  |:.. ...checkands|
000054d0  61 76 65 0d 17 2a 08 ea  20 6c 25 0d 17 34 7d e7  |ave..*.. l%..4}.|
000054e0  20 a7 a4 7a 65 72 6f 28  69 6e 64 25 2b 32 37 30  | ..zero(ind%+270|
000054f0  30 29 2c 22 2e 22 29 20  8c 20 f2 73 61 76 65 28  |0),".") . .save(|
00005500  a4 7a 65 72 6f 28 69 6e  64 25 2b 32 37 30 30 29  |.zero(ind%+2700)|
00005510  2c 30 29 20 8b 20 6c 25  3d a4 77 69 6d 70 65 72  |,0) . l%=.wimper|
00005520  72 6f 72 28 31 2c 22 54  6f 20 73 61 76 65 2c 20  |ror(1,"To save, |
00005530  64 72 61 67 20 74 68 65  20 69 63 6f 6e 20 74 6f  |drag the icon to|
00005540  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00005550  77 65 72 22 2c 31 37 29  0d 17 3e 05 e1 0d 17 48  |wer",17)..>....H|
00005560  05 3a 0d 17 52 15 dd a4  6c 65 61 66 6e 61 6d 65  |.:..R...leafname|
00005570  28 66 69 6c 65 24 29 0d  17 5c 30 c8 95 20 a7 66  |(file$)..\0.. .f|
00005580  69 6c 65 24 2c 22 2e 22  29 3a 66 69 6c 65 24 3d  |ile$,"."):file$=|
00005590  c1 66 69 6c 65 24 2c a7  66 69 6c 65 24 2c 22 2e  |.file$,.file$,".|
000055a0  22 29 2b 31 29 3a ce 0d  17 66 0a 3d 66 69 6c 65  |")+1):...f.=file|
000055b0  24 0d 17 70 05 3a 0d 17  7a 12 dd f2 73 65 6e 64  |$..p.:..z...send|
000055c0  64 61 74 61 73 61 76 65  0d 17 84 20 c8 99 20 22  |datasave... .. "|
000055d0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
000055e0  6e 66 6f 22 2c 2c 62 25  0d 17 8e b2 62 25 21 32  |nfo",,b%....b%!2|
000055f0  30 3d 62 25 21 31 32 3a  62 25 21 32 34 3d 62 25  |0=b%!12:b%!24=b%|
00005600  21 31 36 3a 62 25 21 32  38 3d 21 62 25 3a 62 25  |!16:b%!28=!b%:b%|
00005610  21 33 32 3d 62 25 21 34  3a 62 25 21 33 36 3d 33  |!32=b%!4:b%!36=3|
00005620  32 30 30 3a 21 62 25 3d  32 35 36 3a 62 25 21 31  |200:!b%=256:b%!1|
00005630  32 3d 30 3a 62 25 21 31  36 3d 31 3a 62 25 21 34  |2=0:b%!16=1:b%!4|
00005640  30 3d 6c 65 61 67 75 65  66 69 6c 65 25 3a 24 28  |0=leaguefile%:$(|
00005650  62 25 2b 34 34 29 3d a4  6c 65 61 66 6e 61 6d 65  |b%+44)=.leafname|
00005660  28 a4 7a 65 72 6f 28 69  6e 64 25 2b 32 37 30 30  |(.zero(ind%+2700|
00005670  29 29 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |)):.. "Wimp_Send|
00005680  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 25 2c 62  |Message",17,b%,b|
00005690  25 21 32 30 2c 62 25 21  32 34 0d 17 98 05 e1 0d  |%!20,b%!24......|
000056a0  17 a2 05 3a 0d 17 ac 0e  dd f2 64 72 61 67 73 61  |...:......dragsa|
000056b0  76 65 0d 17 b6 1d f2 73  61 76 65 28 a4 7a 65 72  |ve.....save(.zer|
000056c0  6f 28 62 25 2b 34 34 29  2c 62 25 21 33 36 29 0d  |o(b%+44),b%!36).|
000056d0  17 c0 46 62 25 21 31 32  3d 62 25 21 38 3a 62 25  |..Fb%!12=b%!8:b%|
000056e0  21 31 36 3d 33 3a 21 62  25 3d 32 35 36 3a c8 99  |!16=3:!b%=256:..|
000056f0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00005700  67 65 22 2c 31 38 2c 62  25 2c 62 25 21 32 30 2c  |ge",18,b%,b%!20,|
00005710  62 25 21 32 34 0d 17 ca  05 e1 0d 17 d4 05 3a 0d  |b%!24.........:.|
00005720  17 de 15 dd a4 6f 6b 74  6f 73 61 76 65 28 66 69  |.....oktosave(fi|
00005730  6c 65 24 29 0d 17 e8 10  ea 20 72 65 73 75 6c 74  |le$)..... result|
00005740  25 2c 6c 25 0d 17 f2 27  c8 99 20 22 4f 53 5f 46  |%,l%...'.. "OS_F|
00005750  69 6c 65 22 2c 31 37 2c  66 69 6c 65 24 20 b8 20  |ile",17,file$ . |
00005760  72 65 73 75 6c 74 25 2c  2c 6c 25 0d 17 fc 14 e7  |result%,,l%.....|
00005770  20 72 65 73 75 6c 74 25  3d 30 20 8c 20 3d b9 0d  | result%=0 . =..|
00005780  18 06 40 e7 20 72 65 73  75 6c 74 25 3d 32 20 8c  |..@. result%=2 .|
00005790  20 6c 25 3d a4 77 69 6d  70 65 72 72 6f 72 28 31  | l%=.wimperror(1|
000057a0  2c 22 4f 62 6a 65 63 74  20 69 73 20 61 20 64 69  |,"Object is a di|
000057b0  72 65 63 74 6f 72 79 22  2c 31 38 29 3a 3d a3 0d  |rectory",18):=..|
000057c0  18 10 27 e7 20 28 6c 25  80 26 46 46 46 30 30 29  |..'. (l%.&FFF00)|
000057d0  3d 6c 65 61 67 75 65 66  69 6c 65 25 2a 26 31 30  |=leaguefile%*&10|
000057e0  30 20 8c 20 3d b9 0d 18  1a 47 e7 20 ac 20 a4 77  |0 . =....G. . .w|
000057f0  69 6d 70 65 72 72 6f 72  28 31 2c 22 46 69 6c 65  |imperror(1,"File|
00005800  27 22 2b 66 69 6c 65 24  2b 22 27 20 65 78 69 73  |'"+file$+"' exis|
00005810  74 73 2e 20 4f 76 65 72  77 72 69 74 65 3f 22 2c  |ts. Overwrite?",|
00005820  31 39 29 20 8c 20 3d b9  20 8b 20 3d a3 0d 18 24  |19) . =. . =...$|
00005830  05 3a 0d 18 2e 0d dd f2  72 65 73 75 6c 74 73 0d  |.:......results.|
00005840  18 38 31 ea 20 6c 25 2c  6c 61 25 2c 6c 62 25 2c  |.81. l%,la%,lb%,|
00005850  6c 63 25 2c 6c 64 25 2c  6c 65 25 2c 6c 66 25 2c  |lc%,ld%,le%,lf%,|
00005860  6c 67 25 2c 6c 68 25 2c  64 6f 77 6e 25 2c 6c 24  |lg%,lh%,down%,l$|
00005870  0d 18 42 07 ea 20 dc 0d  18 4c 08 f7 20 2b 30 0d  |..B.. ...L.. +0.|
00005880  18 56 29 21 62 25 3d 72  65 73 75 6c 74 25 3a c8  |.V)!b%=result%:.|
00005890  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
000058a0  64 6f 77 22 2c 2c 62 25  0d 18 60 22 75 73 65 64  |dow",,b%..`"used|
000058b0  25 28 29 3d 30 3a 6c 61  25 3d 31 3a 62 25 21 38  |%()=0:la%=1:b%!8|
000058c0  3d 34 3a 62 25 21 31 32  3d 34 0d 18 6a 1f e3 20  |=4:b%!12=4..j.. |
000058d0  6c 25 3d 31 33 2d 28 28  74 65 61 6d 73 25 2b 31  |l%=13-((teams%+1|
000058e0  29 81 32 29 20 b8 20 31  32 0d 18 74 37 24 28 69  |).2) . 12..t7$(i|
000058f0  6e 64 25 2b 31 38 37 34  2b 28 6c 25 2a 32 36 29  |nd%+1874+(l%*26)|
00005900  29 3d 6e 61 6d 65 24 28  6c 61 25 29 3a 72 65 73  |)=name$(la%):res|
00005910  25 28 6c 25 29 3d 6c 61  25 3a 6c 61 25 2b 3d 31  |%(l%)=la%:la%+=1|
00005920  0d 18 7e 33 62 25 21 34  3d 6c 25 3a c8 99 20 22  |..~3b%!4=l%:.. "|
00005930  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00005940  65 22 2c 2c 62 25 3a 75  73 65 64 25 28 6c 25 29  |e",,b%:used%(l%)|
00005950  3d 2d 31 0d 18 88 05 ed  0d 18 92 28 e3 20 6c 25  |=-1........(. l%|
00005960  3d 32 35 2d 28 28 74 65  61 6d 73 25 2b 31 29 81  |=25-((teams%+1).|
00005970  32 29 20 b8 20 32 34 2d  74 65 61 6d 73 25 83 32  |2) . 24-teams%.2|
00005980  0d 18 9c 37 24 28 69 6e  64 25 2b 31 38 37 34 2b  |...7$(ind%+1874+|
00005990  28 6c 25 2a 32 36 29 29  3d 6e 61 6d 65 24 28 6c  |(l%*26))=name$(l|
000059a0  61 25 29 3a 72 65 73 25  28 6c 25 29 3d 6c 61 25  |a%):res%(l%)=la%|
000059b0  3a 6c 61 25 2b 3d 31 0d  18 a6 33 62 25 21 34 3d  |:la%+=1...3b%!4=|
000059c0  6c 25 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |l%:.. "Wimp_SetI|
000059d0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 75 73  |conState",,b%:us|
000059e0  65 64 25 28 6c 25 29 3d  2d 31 0d 18 b0 05 ed 0d  |ed%(l%)=-1......|
000059f0  18 ba b4 21 62 25 3d 72  65 73 75 6c 74 25 3a 62  |...!b%=result%:b|
00005a00  25 21 38 3d 30 3a 62 25  21 31 32 3d 34 3a 6c 25  |%!8=0:b%!12=4:l%|
00005a10  3d 30 3a c8 95 20 6c 25  3c 28 32 34 2d 74 65 61  |=0:.. l%<(24-tea|
00005a20  6d 73 25 29 81 32 3a 6c  25 2b 3d 31 3a 69 6e 64  |ms%).2:l%+=1:ind|
00005a30  25 3f 28 31 38 37 34 2b  28 32 36 2a 6c 25 29 29  |%?(1874+(26*l%))|
00005a40  3d 30 3a 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |=0:b%!4=l%:.. "W|
00005a50  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00005a60  22 2c 2c 62 25 3a 69 6e  64 25 3f 28 32 31 38 36  |",,b%:ind%?(2186|
00005a70  2b 28 32 36 2a 6c 25 29  29 3d 30 3a 62 25 21 34  |+(26*l%))=0:b%!4|
00005a80  3d 6c 25 2b 31 32 3a c8  99 20 22 57 69 6d 70 5f  |=l%+12:.. "Wimp_|
00005a90  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00005aa0  25 3a ce 0d 18 c4 78 e7  20 74 65 61 6d 73 25 83  |%:....x. teams%.|
00005ab0  32 20 8c 20 21 62 25 3d  72 65 73 75 6c 74 25 3a  |2 . !b%=result%:|
00005ac0  62 25 21 34 3d 32 34 3a  62 25 21 38 3d 30 3a 62  |b%!4=24:b%!8=0:b|
00005ad0  25 21 31 32 3d 26 46 30  30 30 3a 69 6e 64 25 3f  |%!12=&F000:ind%?|
00005ae0  32 34 39 38 3d 34 35 3a  69 6e 64 25 3f 32 34 39  |2498=45:ind%?249|
00005af0  39 3d 30 3a 69 6e 64 25  3f 32 35 32 32 3d 34 39  |9=0:ind%?2522=49|
00005b00  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00005b10  6e 53 74 61 74 65 22 2c  2c 62 25 0d 18 ce 9c 64  |nState",,b%....d|
00005b20  6f 77 6e 25 3d 28 35 32  2a 28 28 32 34 2d 74 65  |own%=(52*((24-te|
00005b30  61 6d 73 25 29 81 32 29  29 3a 21 62 25 3d 72 65  |ams%).2)):!b%=re|
00005b40  73 75 6c 74 25 3a e3 20  6c 25 3d 33 37 20 b8 20  |sult%:. l%=37 . |
00005b50  34 31 3a 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |41:b%!4=l%:.. "W|
00005b60  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
00005b70  2c 62 25 3a f3 20 6c 61  25 2c 6c 24 3a 6c 62 25  |,b%:. la%,l$:lb%|
00005b80  3d a0 6c 24 3a f3 20 6c  63 25 2c 6c 24 3a 6c 64  |=.l$:. lc%,l$:ld|
00005b90  25 3d a0 6c 24 3a f3 20  6c 65 25 2c 6c 24 3a 6c  |%=.l$:. le%,l$:l|
00005ba0  66 25 3d a0 6c 24 3a f3  20 6c 24 2c 6c 68 25 3a  |f%=.l$:. l$,lh%:|
00005bb0  6c 67 25 3d a0 6c 24 0d  18 d8 6c 62 25 21 34 3d  |lg%=.l$...lb%!4=|
00005bc0  6c 61 25 3a 62 25 21 38  3d 6c 62 25 3a 62 25 21  |la%:b%!8=lb%:b%!|
00005bd0  31 32 3d 6c 63 25 3a 62  25 21 31 36 3d 6c 64 25  |12=lc%:b%!16=ld%|
00005be0  3a 62 25 21 32 30 3d 6c  65 25 3a 62 25 21 32 34  |:b%!20=le%:b%!24|
00005bf0  3d 6c 66 25 3a 62 25 21  32 38 3d 6c 67 25 3a 62  |=lf%:b%!28=lg%:b|
00005c00  25 21 33 32 3d 6c 68 25  3a c8 99 20 22 57 69 6d  |%!32=lh%:.. "Wim|
00005c10  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00005c20  25 3a ed 0d 18 e2 0e f2  66 69 6c 6c 72 64 61 74  |%:......fillrdat|
00005c30  65 0d 18 ec 0a f2 69 6e  66 6f 31 0d 18 f6 4c 21  |e.....info1...L!|
00005c40  62 25 3d 2d 32 34 3a 62  25 21 34 3d 2d 38 32 30  |b%=-24:b%!4=-820|
00005c50  3a 62 25 21 38 3d 38 31  34 3a 62 25 21 31 32 3d  |:b%!8=814:b%!12=|
00005c60  36 34 2d 64 6f 77 6e 25  3a c8 99 20 22 57 69 6d  |64-down%:.. "Wim|
00005c70  70 5f 53 65 74 45 78 74  65 6e 74 22 2c 72 65 73  |p_SetExtent",res|
00005c80  75 6c 74 25 2c 62 25 0d  19 00 7f 21 62 25 3d 72  |ult%,b%....!b%=r|
00005c90  65 73 75 6c 74 25 3a c8  99 20 22 57 69 6d 70 5f  |esult%:.. "Wimp_|
00005ca0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00005cb0  2c 62 25 3a 62 25 21 31  32 3d 62 25 21 34 2b 38  |,b%:b%!12=b%!4+8|
00005cc0  33 38 3a 62 25 21 31 36  3d 62 25 21 38 2b 38 38  |38:b%!16=b%!8+88|
00005cd0  34 3a 62 25 21 32 30 3d  2d 32 34 3a 62 25 21 32  |4:b%!20=-24:b%!2|
00005ce0  34 3d 36 34 3a 62 25 21  32 38 3d 2d 31 3a c8 99  |4=64:b%!28=-1:..|
00005cf0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00005d00  77 22 2c 2c 62 25 0d 19  0a 05 e1 0d 19 14 30 dc  |w",,b%........0.|
00005d10  20 2d 32 36 2c 2d 34 34  2d 64 6f 77 6e 25 2c 38  | -26,-44-down%,8|
00005d20  32 36 2c 37 36 2d 64 6f  77 6e 25 2c 26 31 37 30  |26,76-down%,&170|
00005d30  30 30 30 33 38 2c 30 2c  30 2c 30 0d 19 1e 3f dc  |00038,0,0,0...?.|
00005d40  20 2d 32 2c 2d 33 36 2d  64 6f 77 6e 25 2c 37 39  | -2,-36-down%,79|
00005d50  36 2c 35 36 2d 64 6f 77  6e 25 2c 26 31 37 30 30  |6,56-down%,&1700|
00005d60  30 31 33 46 2c 69 6e 64  25 2b 32 36 31 35 2c 69  |013F,ind%+2615,i|
00005d70  6e 64 25 2b 32 36 31 37  2c 31 0d 19 28 44 dc 20  |nd%+2617,1..(D. |
00005d80  31 36 2c 2d 38 2d 64 6f  77 6e 25 2c 32 30 34 2c  |16,-8-down%,204,|
00005d90  32 34 2d 64 6f 77 6e 25  2c 26 43 37 30 30 30 30  |24-down%,&C70000|
00005da0  31 39 2c 26 36 33 37 34  36 31 34 44 2c 26 36 31  |19,&6374614D,&61|
00005db0  36 34 32 30 36 38 2c 26  33 41 36 35 37 34 0d 19  |642068,&3A6574..|
00005dc0  32 41 dc 20 32 30 38 2c  2d 32 30 2d 64 6f 77 6e  |2A. 208,-20-down|
00005dd0  25 2c 36 39 32 2c 34 30  2d 64 6f 77 6e 25 2c 26  |%,692,40-down%,&|
00005de0  43 37 30 30 33 31 31 44  2c 69 6e 64 25 2b 32 36  |C700311D,ind%+26|
00005df0  32 30 2c 69 6e 64 25 2b  32 36 35 30 2c 33 30 0d  |20,ind%+2650,30.|
00005e00  19 3c 40 dc 20 37 30 38  2c 2d 31 32 2d 64 6f 77  |.<@. 708,-12-dow|
00005e10  6e 25 2c 37 35 32 2c 33  32 2d 64 6f 77 6e 25 2c  |n%,752,32-down%,|
00005e20  26 43 37 30 30 33 31 31  42 2c 69 6e 64 25 2b 32  |&C700311B,ind%+2|
00005e30  36 36 33 2c 69 6e 64 25  2b 32 36 37 30 2c 31 0d  |663,ind%+2670,1.|
00005e40  19 46 05 3a 0d 19 50 0b  dd f2 69 6e 66 6f 31 0d  |.F.:..P...info1.|
00005e50  19 5a 08 ea 20 6c 25 0d  19 64 47 24 28 69 6e 64  |.Z.. l%..dG$(ind|
00005e60  25 2b 32 35 36 34 29 3d  22 2a 22 3a 24 28 69 6e  |%+2564)="*":$(in|
00005e70  64 25 2b 32 35 38 37 29  3d 22 2d 22 3a 24 28 69  |d%+2587)="-":$(i|
00005e80  6e 64 25 2b 32 35 39 30  29 3d 22 2d 22 3a 24 28  |nd%+2590)="-":$(|
00005e90  69 6e 64 25 2b 32 36 31  33 29 3d 22 2d 22 0d 19  |ind%+2613)="-"..|
00005ea0  6e 1e 21 62 25 3d 72 65  73 75 6c 74 25 3a 62 25  |n.!b%=result%:b%|
00005eb0  21 38 3d 30 3a 62 25 21  31 32 3d 30 0d 19 78 10  |!8=0:b%!12=0..x.|
00005ec0  e3 20 6c 25 3d 33 33 20  b8 20 33 36 0d 19 82 26  |. l%=33 . 36...&|
00005ed0  62 25 21 34 3d 6c 25 3a  c8 99 20 22 57 69 6d 70  |b%!4=l%:.. "Wimp|
00005ee0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00005ef0  62 25 0d 19 8c 05 ed 0d  19 96 16 62 25 21 38 3d  |b%.........b%!8=|
00005f00  30 3a 62 25 21 31 32 3d  26 46 30 30 30 0d 19 a0  |0:b%!12=&F000...|
00005f10  10 e3 20 6c 25 3d 32 35  20 b8 20 32 39 0d 19 aa  |.. l%=25 . 29...|
00005f20  19 69 6e 64 25 3f 28 32  34 30 32 2b 28 35 2a 6c  |.ind%?(2402+(5*l|
00005f30  25 29 29 3d 34 39 0d 19  b4 26 62 25 21 34 3d 6c  |%))=49...&b%!4=l|
00005f40  25 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |%:.. "Wimp_SetIc|
00005f50  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 19 be 05  |onState",,b%....|
00005f60  ed 0d 19 c8 50 62 25 21  34 3d 33 30 3a 69 6e 64  |....Pb%!4=30:ind|
00005f70  25 3f 32 35 35 38 3d 34  39 3a 62 25 21 38 3d 26  |%?2558=49:b%!8=&|
00005f80  33 30 30 30 30 30 30 3a  62 25 21 31 32 3d 26 46  |3000000:b%!12=&F|
00005f90  30 30 46 30 30 30 3a c8  99 20 22 57 69 6d 70 5f  |00F000:.. "Wimp_|
00005fa0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00005fb0  25 0d 19 d2 1a 62 25 21  38 3d 26 33 30 30 30 3a  |%....b%!8=&3000:|
00005fc0  62 25 21 31 32 3d 26 46  30 30 30 0d 19 dc 0f e3  |b%!12=&F000.....|
00005fd0  20 6c 25 3d 31 20 b8 20  32 34 0d 19 e6 4b e7 20  | l%=1 . 24...K. |
00005fe0  75 73 65 64 25 28 6c 25  29 20 8c 20 69 6e 64 25  |used%(l%) . ind%|
00005ff0  3f 28 31 38 39 38 2b 28  32 36 2a 6c 25 29 29 3d  |?(1898+(26*l%))=|
00006000  35 33 3a 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |53:b%!4=l%:.. "W|
00006010  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00006020  22 2c 2c 62 25 0d 19 f0  05 ed 0d 19 fa 08 72 25  |",,b%.........r%|
00006030  3d 31 0d 1a 04 21 c8 99  20 22 57 69 6d 70 5f 53  |=1...!.. "Wimp_S|
00006040  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00006050  2c 2d 31 0d 1a 0e 05 e1  0d 1a 18 05 3a 0d 1a 22  |,-1.........:.."|
00006060  0b dd f2 69 6e 66 6f 32  0d 1a 2c 08 ea 20 6c 25  |...info2..,.. l%|
00006070  0d 1a 36 31 69 6e 64 25  3f 32 35 38 37 3d 30 3a  |..61ind%?2587=0:|
00006080  24 28 69 6e 64 25 2b 32  35 39 30 29 3d 22 2d 22  |$(ind%+2590)="-"|
00006090  3a 24 28 69 6e 64 25 2b  32 36 31 33 29 3d 22 2d  |:$(ind%+2613)="-|
000060a0  22 0d 1a 40 1e 21 62 25  3d 72 65 73 75 6c 74 25  |"..@.!b%=result%|
000060b0  3a 62 25 21 38 3d 30 3a  62 25 21 31 32 3d 30 0d  |:b%!8=0:b%!12=0.|
000060c0  1a 4a 10 e3 20 6c 25 3d  33 33 20 b8 20 33 36 0d  |.J.. l%=33 . 36.|
000060d0  1a 54 26 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |.T&b%!4=l%:.. "W|
000060e0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000060f0  22 2c 2c 62 25 0d 1a 5e  05 ed 0d 1a 68 1a 62 25  |",,b%..^....h.b%|
00006100  21 38 3d 26 33 30 30 30  3a 62 25 21 31 32 3d 26  |!8=&3000:b%!12=&|
00006110  46 30 30 30 0d 1a 72 10  e3 20 6c 25 3d 32 35 20  |F000..r.. l%=25 |
00006120  b8 20 32 39 0d 1a 7c 19  69 6e 64 25 3f 28 32 34  |. 29..|.ind%?(24|
00006130  30 32 2b 28 35 2a 6c 25  29 29 3d 35 33 0d 1a 86  |02+(5*l%))=53...|
00006140  26 62 25 21 34 3d 6c 25  3a c8 99 20 22 57 69 6d  |&b%!4=l%:.. "Wim|
00006150  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00006160  2c 62 25 0d 1a 90 05 ed  0d 1a 9a 50 62 25 21 34  |,b%........Pb%!4|
00006170  3d 33 30 3a 69 6e 64 25  3f 32 35 35 38 3d 35 33  |=30:ind%?2558=53|
00006180  3a 62 25 21 38 3d 26 37  30 30 33 30 30 30 3a 62  |:b%!8=&7003000:b|
00006190  25 21 31 32 3d 26 46 30  30 46 30 30 30 3a c8 99  |%!12=&F00F000:..|
000061a0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000061b0  61 74 65 22 2c 2c 62 25  0d 1a a4 16 62 25 21 38  |ate",,b%....b%!8|
000061c0  3d 30 3a 62 25 21 31 32  3d 26 46 30 30 30 0d 1a  |=0:b%!12=&F000..|
000061d0  ae 0f e3 20 6c 25 3d 31  20 b8 20 32 34 0d 1a b8  |... l%=1 . 24...|
000061e0  4b e7 20 75 73 65 64 25  28 6c 25 29 20 8c 20 69  |K. used%(l%) . i|
000061f0  6e 64 25 3f 28 31 38 39  38 2b 28 32 36 2a 6c 25  |nd%?(1898+(26*l%|
00006200  29 29 3d 34 39 3a 62 25  21 34 3d 6c 25 3a c8 99  |))=49:b%!4=l%:..|
00006210  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00006220  61 74 65 22 2c 2c 62 25  0d 1a c2 05 ed 0d 1a cc  |ate",,b%........|
00006230  30 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |0.. "Wimp_SetCar|
00006240  65 74 50 6f 73 69 74 69  6f 6e 22 2c 72 65 73 75  |etPosition",resu|
00006250  6c 74 25 2c 33 34 2c 2c  2c 2d 31 2c 30 0d 1a d6  |lt%,34,,,-1,0...|
00006260  08 72 25 3d 32 0d 1a e0  05 e1 0d 1a ea 05 3a 0d  |.r%=2.........:.|
00006270  1a f4 0b dd f2 69 6e 66  6f 33 0d 1a fe 08 ea 20  |.....info3..... |
00006280  6c 25 0d 1b 08 25 24 28  69 6e 64 25 2b 32 35 39  |l%...%$(ind%+259|
00006290  30 29 3d 22 2a 22 3a 24  28 69 6e 64 25 2b 32 36  |0)="*":$(ind%+26|
000062a0  31 33 29 3d 22 2d 22 0d  1b 12 1e 21 62 25 3d 72  |13)="-"....!b%=r|
000062b0  65 73 75 6c 74 25 3a 62  25 21 38 3d 30 3a 62 25  |esult%:b%!8=0:b%|
000062c0  21 31 32 3d 30 0d 1b 1c  10 e3 20 6c 25 3d 33 33  |!12=0..... l%=33|
000062d0  20 b8 20 33 36 0d 1b 26  26 62 25 21 34 3d 6c 25  | . 36..&&b%!4=l%|
000062e0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
000062f0  6e 53 74 61 74 65 22 2c  2c 62 25 0d 1b 30 05 ed  |nState",,b%..0..|
00006300  0d 1b 3a 16 62 25 21 38  3d 30 3a 62 25 21 31 32  |..:.b%!8=0:b%!12|
00006310  3d 26 46 30 30 30 0d 1b  44 10 e3 20 6c 25 3d 32  |=&F000..D.. l%=2|
00006320  35 20 b8 20 32 39 0d 1b  4e 19 69 6e 64 25 3f 28  |5 . 29..N.ind%?(|
00006330  32 34 30 32 2b 28 35 2a  6c 25 29 29 3d 34 39 0d  |2402+(5*l%))=49.|
00006340  1b 58 26 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |.X&b%!4=l%:.. "W|
00006350  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00006360  22 2c 2c 62 25 0d 1b 62  05 ed 0d 1b 6c 50 62 25  |",,b%..b....lPb%|
00006370  21 34 3d 33 30 3a 69 6e  64 25 3f 32 35 35 38 3d  |!4=30:ind%?2558=|
00006380  34 39 3a 62 25 21 38 3d  26 33 30 30 30 30 30 30  |49:b%!8=&3000000|
00006390  3a 62 25 21 31 32 3d 26  46 30 30 46 30 30 30 3a  |:b%!12=&F00F000:|
000063a0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000063b0  53 74 61 74 65 22 2c 2c  62 25 0d 1b 76 0f 62 25  |State",,b%..v.b%|
000063c0  21 31 32 3d 26 46 30 30  30 0d 1b 80 0f e3 20 6c  |!12=&F000..... l|
000063d0  25 3d 31 20 b8 20 32 34  0d 1b 8a 11 e7 20 75 73  |%=1 . 24..... us|
000063e0  65 64 25 28 6c 25 29 20  8c 0d 1b 94 56 e7 20 72  |ed%(l%) ....V. r|
000063f0  65 73 25 28 6c 25 29 3d  74 31 25 20 8c 20 69 6e  |es%(l%)=t1% . in|
00006400  64 25 3f 28 31 38 39 38  2b 28 32 36 2a 6c 25 29  |d%?(1898+(26*l%)|
00006410  29 3d 34 39 3a 62 25 21  38 3d 30 20 8b 20 69 6e  |)=49:b%!8=0 . in|
00006420  64 25 3f 28 31 38 39 38  2b 28 32 36 2a 6c 25 29  |d%?(1898+(26*l%)|
00006430  29 3d 35 33 3a 62 25 21  38 3d 26 33 30 30 30 0d  |)=53:b%!8=&3000.|
00006440  1b 9e 26 62 25 21 34 3d  6c 25 3a c8 99 20 22 57  |..&b%!4=l%:.. "W|
00006450  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00006460  22 2c 2c 62 25 0d 1b a8  05 cd 0d 1b b2 05 ed 0d  |",,b%...........|
00006470  1b bc 08 72 25 3d 33 0d  1b c6 21 c8 99 20 22 57  |...r%=3...!.. "W|
00006480  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00006490  74 69 6f 6e 22 2c 2d 31  0d 1b d0 05 e1 0d 1b da  |tion",-1........|
000064a0  05 3a 0d 1b e4 0b dd f2  69 6e 66 6f 34 0d 1b ee  |.:......info4...|
000064b0  08 ea 20 6c 25 0d 1b f8  0f 69 6e 64 25 3f 32 36  |.. l%....ind%?26|
000064c0  31 33 3d 30 0d 1c 02 1e  21 62 25 3d 72 65 73 75  |13=0....!b%=resu|
000064d0  6c 74 25 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |lt%:b%!8=0:b%!12|
000064e0  3d 30 0d 1c 0c 10 e3 20  6c 25 3d 33 33 20 b8 20  |=0..... l%=33 . |
000064f0  33 36 0d 1c 16 26 62 25  21 34 3d 6c 25 3a c8 99  |36...&b%!4=l%:..|
00006500  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00006510  61 74 65 22 2c 2c 62 25  0d 1c 20 05 ed 0d 1c 2a  |ate",,b%.. ....*|
00006520  1a 62 25 21 38 3d 26 33  30 30 30 3a 62 25 21 31  |.b%!8=&3000:b%!1|
00006530  32 3d 26 46 30 30 30 0d  1c 34 10 e3 20 6c 25 3d  |2=&F000..4.. l%=|
00006540  32 35 20 b8 20 32 39 0d  1c 3e 19 69 6e 64 25 3f  |25 . 29..>.ind%?|
00006550  28 32 34 30 32 2b 28 35  2a 6c 25 29 29 3d 35 33  |(2402+(5*l%))=53|
00006560  0d 1c 48 26 62 25 21 34  3d 6c 25 3a c8 99 20 22  |..H&b%!4=l%:.. "|
00006570  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00006580  65 22 2c 2c 62 25 0d 1c  52 05 ed 0d 1c 5c 50 62  |e",,b%..R....\Pb|
00006590  25 21 34 3d 33 30 3a 69  6e 64 25 3f 32 35 35 38  |%!4=30:ind%?2558|
000065a0  3d 34 39 3a 62 25 21 38  3d 26 33 30 30 30 30 30  |=49:b%!8=&300000|
000065b0  30 3a 62 25 21 31 32 3d  26 46 30 30 46 30 30 30  |0:b%!12=&F00F000|
000065c0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
000065d0  6e 53 74 61 74 65 22 2c  2c 62 25 0d 1c 66 16 62  |nState",,b%..f.b|
000065e0  25 21 31 32 3d 26 46 30  30 30 3a 62 25 21 38 3d  |%!12=&F000:b%!8=|
000065f0  30 0d 1c 70 0f e3 20 6c  25 3d 31 20 b8 20 32 34  |0..p.. l%=1 . 24|
00006600  0d 1c 7a 4b e7 20 75 73  65 64 25 28 6c 25 29 20  |..zK. used%(l%) |
00006610  8c 20 69 6e 64 25 3f 28  31 38 39 38 2b 28 32 36  |. ind%?(1898+(26|
00006620  2a 6c 25 29 29 3d 34 39  3a 62 25 21 34 3d 6c 25  |*l%))=49:b%!4=l%|
00006630  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00006640  6e 53 74 61 74 65 22 2c  2c 62 25 0d 1c 84 05 ed  |nState",,b%.....|
00006650  0d 1c 8e 30 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...0.. "Wimp_Set|
00006660  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 72  |CaretPosition",r|
00006670  65 73 75 6c 74 25 2c 33  36 2c 2c 2c 2d 31 2c 30  |esult%,36,,,-1,0|
00006680  0d 1c 98 08 72 25 3d 34  0d 1c a2 05 e1 0d 1c ac  |....r%=4........|
00006690  05 3a 0d 1c b6 13 dd f2  73 63 6f 72 65 28 73 63  |.:......score(sc|
000066a0  6f 72 65 25 29 0d 1c c0  4f e7 20 72 25 3d 32 20  |ore%)...O. r%=2 |
000066b0  8c 20 73 31 25 3d 73 63  6f 72 65 25 3a 24 28 69  |. s1%=score%:$(i|
000066c0  6e 64 25 2b 32 35 38 37  29 3d c3 73 63 6f 72 65  |nd%+2587)=.score|
000066d0  25 3a f2 69 6e 66 6f 33  20 8b 20 73 32 25 3d 73  |%:.info3 . s2%=s|
000066e0  63 6f 72 65 25 3a f2 72  65 63 6f 72 64 3a f2 69  |core%:.record:.i|
000066f0  6e 66 6f 31 0d 1c ca 05  e1 0d 1c d4 05 3a 0d 1c  |nfo1.........:..|
00006700  de 0c dd f2 72 65 63 6f  72 64 0d 1c e8 78 64 61  |....record...xda|
00006710  74 61 25 21 70 74 72 25  3d a0 28 22 25 22 2b a4  |ta%!ptr%=.("%"+.|
00006720  62 69 6e 28 72 64 61 74  65 25 2c 35 29 2b a4 62  |bin(rdate%,5)+.b|
00006730  69 6e 28 72 6d 6f 6e 74  68 25 2c 34 29 2b a4 62  |in(rmonth%,4)+.b|
00006740  69 6e 28 72 79 65 61 72  25 2d 31 39 39 30 2c 35  |in(ryear%-1990,5|
00006750  29 2b a4 62 69 6e 28 74  31 25 2c 35 29 2b a4 62  |)+.bin(t1%,5)+.b|
00006760  69 6e 28 74 32 25 2c 35  29 2b a4 62 69 6e 28 73  |in(t2%,5)+.bin(s|
00006770  31 25 2c 34 29 2b a4 62  69 6e 28 73 32 25 2c 34  |1%,4)+.bin(s2%,4|
00006780  29 29 0d 1c f2 38 70 74  72 25 2b 3d 34 3a f2 6e  |))...8ptr%+=4:.n|
00006790  6f 74 73 61 76 65 64 3a  63 75 72 72 65 6e 74 25  |otsaved:current%|
000067a0  3d 70 74 72 25 2f 34 3a  f2 66 69 6c 6c 66 69 6c  |=ptr%/4:.fillfil|
000067b0  65 72 3a f2 75 6e 67 72  65 79 0d 1c fc 05 e1 0d  |er:.ungrey......|
000067c0  1d 06 05 3a 0d 1d 10 10  dd a4 64 61 74 28 77 6f  |...:......dat(wo|
000067d0  72 64 25 29 0d 1d 1a 1e  3d a0 20 28 22 25 22 2b  |rd%)....=. ("%"+|
000067e0  c1 a4 73 74 72 28 77 6f  72 64 25 29 2c 31 2c 35  |..str(word%),1,5|
000067f0  29 29 0d 1d 24 05 3a 0d  1d 2e 10 dd a4 6d 6f 6e  |))..$.:......mon|
00006800  28 77 6f 72 64 25 29 0d  1d 38 1e 3d a0 20 28 22  |(word%)..8.=. ("|
00006810  25 22 2b c1 a4 73 74 72  28 77 6f 72 64 25 29 2c  |%"+..str(word%),|
00006820  36 2c 34 29 29 0d 1d 42  05 3a 0d 1d 4c 0f dd a4  |6,4))..B.:..L...|
00006830  79 72 28 77 6f 72 64 25  29 0d 1d 56 24 3d 31 39  |yr(word%)..V$=19|
00006840  39 30 2b a0 20 28 22 25  22 2b c1 a4 73 74 72 28  |90+. ("%"+..str(|
00006850  77 6f 72 64 25 29 2c 31  30 2c 35 29 29 0d 1d 60  |word%),10,5))..`|
00006860  05 3a 0d 1d 6a 0f dd a4  74 31 28 77 6f 72 64 25  |.:..j...t1(word%|
00006870  29 0d 1d 74 1f 3d a0 20  28 22 25 22 2b c1 a4 73  |)..t.=. ("%"+..s|
00006880  74 72 28 77 6f 72 64 25  29 2c 31 35 2c 35 29 29  |tr(word%),15,5))|
00006890  0d 1d 7e 05 3a 0d 1d 88  0f dd a4 74 32 28 77 6f  |..~.:......t2(wo|
000068a0  72 64 25 29 0d 1d 92 1f  3d a0 20 28 22 25 22 2b  |rd%)....=. ("%"+|
000068b0  c1 a4 73 74 72 28 77 6f  72 64 25 29 2c 32 30 2c  |..str(word%),20,|
000068c0  35 29 29 0d 1d 9c 05 3a  0d 1d a6 0f dd a4 73 31  |5))....:......s1|
000068d0  28 77 6f 72 64 25 29 0d  1d b0 1f 3d a0 20 28 22  |(word%)....=. ("|
000068e0  25 22 2b c1 a4 73 74 72  28 77 6f 72 64 25 29 2c  |%"+..str(word%),|
000068f0  32 35 2c 34 29 29 0d 1d  ba 05 3a 0d 1d c4 0f dd  |25,4))....:.....|
00006900  a4 73 32 28 77 6f 72 64  25 29 0d 1d ce 1f 3d a0  |.s2(word%)....=.|
00006910  20 28 22 25 22 2b c1 a4  73 74 72 28 77 6f 72 64  | ("%"+..str(word|
00006920  25 29 2c 32 39 2c 34 29  29 0d 1d d8 05 3a 0d 1d  |%),29,4))....:..|
00006930  e2 12 dd f2 75 6e 73 65  74 28 69 63 6f 6e 25 29  |....unset(icon%)|
00006940  0d 1d ec 2f 21 65 25 3d  72 65 73 75 6c 74 25 3a  |.../!e%=result%:|
00006950  65 25 21 34 3d 69 63 6f  6e 25 3a 65 25 21 38 3d  |e%!4=icon%:e%!8=|
00006960  30 3a 65 25 21 31 32 3d  26 32 30 30 30 30 30 0d  |0:e%!12=&200000.|
00006970  1d f6 1e c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |..... "Wimp_SetI|
00006980  63 6f 6e 53 74 61 74 65  22 2c 2c 65 25 0d 1e 00  |conState",,e%...|
00006990  05 e1 0d 1e 0a 05 3a 0d  1e 14 17 dd a4 62 69 6e  |......:......bin|
000069a0  28 6e 75 6d 62 65 72 25  2c 6c 65 6e 25 29 0d 1e  |(number%,len%)..|
000069b0  1e 11 ea 20 6c 25 2c 6c  24 3a 6c 24 3d 22 22 0d  |... l%,l$:l$="".|
000069c0  1e 28 1a e3 20 6c 25 3d  28 6c 65 6e 25 2d 31 29  |.(.. l%=(len%-1)|
000069d0  20 b8 20 30 20 88 20 2d  31 0d 1e 32 28 e7 20 6e  | . 0 . -1..2(. n|
000069e0  75 6d 62 65 72 25 80 28  32 5e 6c 25 29 20 8c 20  |umber%.(2^l%) . |
000069f0  6c 24 2b 3d 22 31 22 20  8b 20 6c 24 2b 3d 22 30  |l$+="1" . l$+="0|
00006a00  22 0d 1e 3c 05 ed 0d 1e  46 07 3d 6c 24 0d 1e 50  |"..<....F.=l$..P|
00006a10  05 3a 0d 1e 5a 13 dd a4  73 74 72 28 64 61 74 61  |.:..Z...str(data|
00006a20  70 6f 73 25 29 0d 1e 64  1a ea 20 6c 25 2c 6c 6c  |pos%)..d.. l%,ll|
00006a30  25 2c 6c 6c 6c 25 2c 6c  24 3a 6c 24 3d 22 22 0d  |%,lll%,l$:l$="".|
00006a40  1e 6e 13 e3 20 6c 25 3d  33 20 b8 20 30 20 88 20  |.n.. l%=3 . 0 . |
00006a50  2d 31 0d 1e 78 1c 6c 6c  6c 25 3d 64 61 74 61 25  |-1..x.lll%=data%|
00006a60  3f 28 64 61 74 61 70 6f  73 25 2b 6c 25 29 0d 1e  |?(datapos%+l%)..|
00006a70  82 14 e3 20 6c 6c 25 3d  37 20 b8 20 30 20 88 20  |... ll%=7 . 0 . |
00006a80  2d 31 0d 1e 8c 31 e7 20  6c 6c 6c 25 3e 3d 32 5e  |-1...1. lll%>=2^|
00006a90  6c 6c 25 20 8c 20 6c 6c  6c 25 2d 3d 32 5e 6c 6c  |ll% . lll%-=2^ll|
00006aa0  25 3a 6c 24 2b 3d 22 31  22 20 8b 20 6c 24 2b 3d  |%:l$+="1" . l$+=|
00006ab0  22 30 22 0d 1e 96 05 ed  0d 1e a0 05 ed 0d 1e aa  |"0".............|
00006ac0  07 3d 6c 24 0d 1e b4 05  3a 0d 1e be 0b dd f2 73  |.=l$....:......s|
00006ad0  61 76 65 64 0d 1e c8 10  e7 20 73 61 76 65 64 25  |aved..... saved%|
00006ae0  20 8c 20 e1 0d 1e d2 13  74 61 62 6c 65 64 61 74  | . .....tabledat|
00006af0  61 25 3f 31 33 3d 30 0d  1e dc 75 21 65 25 3d 70  |a%?13=0...u!e%=p|
00006b00  72 65 6d 74 61 62 6c 65  25 3a c8 99 20 22 57 69  |remtable%:.. "Wi|
00006b10  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00006b20  65 22 2c 2c 65 25 3a e7  20 28 65 25 21 33 32 29  |e",,e%:. (e%!32)|
00006b30  80 28 32 5e 31 36 29 20  8c 20 c8 99 20 22 57 69  |.(2^16) . .. "Wi|
00006b40  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00006b50  2c 65 25 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |,e%:.. "Wimp_Ope|
00006b60  6e 57 69 6e 64 6f 77 22  2c 2c 65 25 0d 1e e6 0c  |nWindow",,e%....|
00006b70  73 61 76 65 64 25 3d b9  0d 1e f0 05 e1 0d 1e fa  |saved%=.........|
00006b80  05 3a 0d 1f 04 0e dd f2  6e 6f 74 73 61 76 65 64  |.:......notsaved|
00006b90  0d 1f 0e 12 e7 20 ac 20  73 61 76 65 64 25 20 8c  |..... . saved% .|
00006ba0  20 e1 0d 1f 18 14 74 61  62 6c 65 64 61 74 61 25  | .....tabledata%|
00006bb0  3f 31 33 3d 34 32 0d 1f  22 75 21 65 25 3d 70 72  |?13=42.."u!e%=pr|
00006bc0  65 6d 74 61 62 6c 65 25  3a c8 99 20 22 57 69 6d  |emtable%:.. "Wim|
00006bd0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00006be0  22 2c 2c 65 25 3a e7 20  28 65 25 21 33 32 29 80  |",,e%:. (e%!32).|
00006bf0  28 32 5e 31 36 29 20 8c  20 c8 99 20 22 57 69 6d  |(2^16) . .. "Wim|
00006c00  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00006c10  65 25 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |e%:.. "Wimp_Open|
00006c20  57 69 6e 64 6f 77 22 2c  2c 65 25 0d 1f 2c 0c 73  |Window",,e%..,.s|
00006c30  61 76 65 64 25 3d a3 0d  1f 36 05 e1 0d 1f 40 05  |aved%=...6....@.|
00006c40  3a 0d 1f 4a 0f dd f2 66  69 6c 6c 66 69 6c 65 72  |:..J...fillfiler|
00006c50  0d 1f 54 08 ea 20 6c 25  0d 1f 5e 0e e7 20 70 74  |..T.. l%..^.. pt|
00006c60  72 25 3d 30 20 8c 0d 1f  68 b9 24 28 69 6e 64 25  |r%=0 ...h.$(ind%|
00006c70  2b 33 39 31 34 29 3d 22  4e 6f 20 72 65 73 75 6c  |+3914)="No resul|
00006c80  74 73 22 3a 69 6e 64 25  3f 33 39 32 39 3d 30 3a  |ts":ind%?3929=0:|
00006c90  69 6e 64 25 3f 33 39 35  39 3d 30 3a 24 28 69 6e  |ind%?3959=0:$(in|
00006ca0  64 25 2b 34 30 31 33 29  3d 22 30 22 3a 24 28 69  |d%+4013)="0":$(i|
00006cb0  6e 64 25 2b 34 30 33 36  29 3d 22 30 22 3a 63 75  |nd%+4036)="0":cu|
00006cc0  72 72 65 6e 74 25 3d 30  3a 69 6e 64 25 3f 34 31  |rrent%=0:ind%?41|
00006cd0  30 39 3d 34 39 3a 21 62  25 3d 66 69 6c 65 72 25  |09=49:!b%=filer%|
00006ce0  3a 62 25 21 34 3d 39 3a  62 25 21 38 3d 26 33 30  |:b%!4=9:b%!8=&30|
00006cf0  30 30 30 30 30 3a 62 25  21 31 32 3d 26 46 30 30  |00000:b%!12=&F00|
00006d00  46 30 30 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |F000:.. "Wimp_Se|
00006d10  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 0d  |tIconState",,b%.|
00006d20  1f 72 05 cc 0d 1f 7c 8c  6c 25 3d 28 63 75 72 72  |.r....|.l%=(curr|
00006d30  65 6e 74 25 2d 31 29 2a  34 3a 69 6e 64 25 3f 33  |ent%-1)*4:ind%?3|
00006d40  39 31 34 3d 30 3a 24 28  69 6e 64 25 2b 33 39 32  |914=0:$(ind%+392|
00006d50  39 29 3d a4 64 61 79 28  a4 64 61 74 28 6c 25 29  |9)=.day(.dat(l%)|
00006d60  2c a4 6d 6f 6e 28 6c 25  29 2c a4 79 72 28 6c 25  |,.mon(l%),.yr(l%|
00006d70  29 29 2b 22 20 22 2b c3  a4 64 61 74 28 6c 25 29  |))+" "+..dat(l%)|
00006d80  2b a4 74 68 28 a4 64 61  74 28 6c 25 29 29 2b 22  |+.th(.dat(l%))+"|
00006d90  20 22 2b a4 6d 6f 6e 74  68 28 a4 6d 6f 6e 28 6c  | "+.month(.mon(l|
00006da0  25 29 29 2b 22 20 22 2b  c3 a4 79 72 28 6c 25 29  |%))+" "+..yr(l%)|
00006db0  0d 1f 86 11 e7 20 a4 74  32 28 6c 25 29 3d 30 20  |..... .t2(l%)=0 |
00006dc0  8c 0d 1f 90 10 c8 8e 20  a4 73 31 28 6c 25 29 20  |....... .s1(l%) |
00006dd0  ca 0d 1f 9a 35 c9 20 31  3a 24 28 69 6e 64 25 2b  |....5. 1:$(ind%+|
00006de0  33 39 35 39 29 3d 22 57  69 6e 20 61 77 61 72 64  |3959)="Win award|
00006df0  65 64 20 74 6f 20 22 2b  6e 61 6d 65 24 28 a4 74  |ed to "+name$(.t|
00006e00  31 28 6c 25 29 29 0d 1f  a4 36 c9 20 32 3a 24 28  |1(l%))...6. 2:$(|
00006e10  69 6e 64 25 2b 33 39 35  39 29 3d 22 44 72 61 77  |ind%+3959)="Draw|
00006e20  20 61 77 61 72 64 65 64  20 74 6f 20 22 2b 6e 61  | awarded to "+na|
00006e30  6d 65 24 28 a4 74 31 28  6c 25 29 29 0d 1f ae 36  |me$(.t1(l%))...6|
00006e40  c9 20 33 3a 24 28 69 6e  64 25 2b 33 39 35 39 29  |. 3:$(ind%+3959)|
00006e50  3d 22 4c 6f 73 73 20 61  77 61 72 64 65 64 20 74  |="Loss awarded t|
00006e60  6f 20 22 2b 6e 61 6d 65  24 28 a4 74 31 28 6c 25  |o "+name$(.t1(l%|
00006e70  29 29 0d 1f b8 84 c9 20  34 3a e7 20 a4 73 32 28  |))..... 4:. .s2(|
00006e80  6c 25 29 3e 31 20 8c 20  24 28 69 6e 64 25 2b 33  |l%)>1 . $(ind%+3|
00006e90  39 35 39 29 3d c3 a4 73  32 28 6c 25 29 2b 22 20  |959)=..s2(l%)+" |
00006ea0  70 6f 69 6e 74 73 20 61  77 61 72 64 65 64 20 74  |points awarded t|
00006eb0  6f 20 22 2b 6e 61 6d 65  24 28 a4 74 31 28 6c 25  |o "+name$(.t1(l%|
00006ec0  29 29 20 8b 20 24 28 69  6e 64 25 2b 33 39 35 39  |)) . $(ind%+3959|
00006ed0  29 3d 22 31 20 70 6f 69  6e 74 20 61 77 61 72 64  |)="1 point award|
00006ee0  65 64 20 74 6f 20 22 2b  6e 61 6d 65 24 28 a4 74  |ed to "+name$(.t|
00006ef0  31 28 6c 25 29 29 0d 1f  c2 8a c9 20 35 3a e7 20  |1(l%))..... 5:. |
00006f00  a4 73 32 28 6c 25 29 3e  31 20 8c 20 24 28 69 6e  |.s2(l%)>1 . $(in|
00006f10  64 25 2b 33 39 35 39 29  3d c3 a4 73 32 28 6c 25  |d%+3959)=..s2(l%|
00006f20  29 2b 22 20 70 6f 69 6e  74 73 20 64 65 64 75 63  |)+" points deduc|
00006f30  74 65 64 20 66 72 6f 6d  20 22 2b 6e 61 6d 65 24  |ted from "+name$|
00006f40  28 a4 74 31 28 6c 25 29  29 20 8b 20 24 28 69 6e  |(.t1(l%)) . $(in|
00006f50  64 25 2b 33 39 35 39 29  3d 22 31 20 70 6f 69 6e  |d%+3959)="1 poin|
00006f60  74 20 64 65 64 75 63 74  65 64 20 66 72 6f 6d 20  |t deducted from |
00006f70  22 2b 6e 61 6d 65 24 28  a4 74 31 28 6c 25 29 29  |"+name$(.t1(l%))|
00006f80  0d 1f cc 05 cb 0d 1f d6  05 cc 0d 1f e0 4e 24 28  |.............N$(|
00006f90  69 6e 64 25 2b 33 39 35  39 29 3d 6e 61 6d 65 24  |ind%+3959)=name$|
00006fa0  28 a4 74 31 28 6c 25 29  29 2b 22 20 22 2b c3 a4  |(.t1(l%))+" "+..|
00006fb0  73 31 28 6c 25 29 2b 22  20 76 20 22 2b c3 a4 73  |s1(l%)+" v "+..s|
00006fc0  32 28 6c 25 29 2b 22 20  22 2b 6e 61 6d 65 24 28  |2(l%)+" "+name$(|
00006fd0  a4 74 32 28 6c 25 29 29  0d 1f ea 05 cd 0d 1f f4  |.t2(l%))........|
00006fe0  33 24 28 69 6e 64 25 2b  34 30 31 33 29 3d c3 28  |3$(ind%+4013)=.(|
00006ff0  63 75 72 72 65 6e 74 25  29 3a 24 28 69 6e 64 25  |current%):$(ind%|
00007000  2b 34 30 33 36 29 3d c3  28 70 74 72 25 2f 34 29  |+4036)=.(ptr%/4)|
00007010  0d 1f fe 5a 69 6e 64 25  3f 34 31 30 39 3d 35 33  |...Zind%?4109=53|
00007020  3a 21 62 25 3d 66 69 6c  65 72 25 3a 62 25 21 34  |:!b%=filer%:b%!4|
00007030  3d 39 3a 62 25 21 38 3d  26 37 30 30 33 30 30 30  |=9:b%!8=&7003000|
00007040  3a 62 25 21 31 32 3d 26  46 30 30 46 30 30 30 3a  |:b%!12=&F00F000:|
00007050  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00007060  53 74 61 74 65 22 2c 2c  62 25 0d 20 08 05 cd 0d  |State",,b%. ....|
00007070  20 12 1d 21 62 25 3d 66  69 6c 65 72 25 3a 62 25  | ..!b%=filer%:b%|
00007080  21 38 3d 30 3a 62 25 21  31 32 3d 30 0d 20 1c 25  |!8=0:b%!12=0. .%|
00007090  62 25 21 34 3d 33 3a c8  99 20 22 57 69 6d 70 5f  |b%!4=3:.. "Wimp_|
000070a0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
000070b0  25 0d 20 26 25 62 25 21  34 3d 34 3a c8 99 20 22  |%. &%b%!4=4:.. "|
000070c0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000070d0  65 22 2c 2c 62 25 0d 20  30 26 62 25 21 34 3d 31  |e",,b%. 0&b%!4=1|
000070e0  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
000070f0  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 20 3a 05  |onState",,b%. :.|
00007100  e1 0d 20 44 05 3a 0d 20  4e 0c dd f2 64 65 6c 65  |.. D.:. N...dele|
00007110  74 65 0d 20 58 08 ea 20  6c 25 0d 20 62 0b 70 74  |te. X.. l%. b.pt|
00007120  72 25 2d 3d 34 0d 20 6c  15 6c 25 3d 28 63 75 72  |r%-=4. l.l%=(cur|
00007130  72 65 6e 74 25 2d 31 29  2a 34 0d 20 76 0e c8 95  |rent%-1)*4. v...|
00007140  20 6c 25 3c 70 74 72 25  0d 20 80 19 64 61 74 61  | l%<ptr%. ..data|
00007150  25 21 6c 25 3d 64 61 74  61 25 21 28 6c 25 2b 34  |%!l%=data%!(l%+4|
00007160  29 0d 20 8a 09 6c 25 2b  3d 34 0d 20 94 05 ce 0d  |). ..l%+=4. ....|
00007170  20 9e 23 e7 20 63 75 72  72 65 6e 74 25 3e 70 74  | .#. current%>pt|
00007180  72 25 2f 34 20 8c 20 63  75 72 72 65 6e 74 25 2d  |r%/4 . current%-|
00007190  3d 31 0d 20 a8 0e f2 66  69 6c 6c 66 69 6c 65 72  |=1. ...fillfiler|
000071a0  0d 20 b2 0d f2 6e 6f 74  73 61 76 65 64 0d 20 bc  |. ...notsaved. .|
000071b0  0b f2 75 6e 67 72 65 79  0d 20 c6 05 e1 0d 20 d0  |..ungrey. .... .|
000071c0  05 3a 0d 20 da 12 dd f2  63 68 65 63 6b 66 6f 72  |.:. ....checkfor|
000071d0  6c 6f 61 64 0d 20 e4 0b  ea 20 63 61 6c 6c 24 0d  |load. ... call$.|
000071e0  20 ee 1a c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  | .... "OS_GetEnv|
000071f0  22 20 b8 20 63 61 6c 6c  24 0d 20 f8 25 63 61 6c  |" . call$. .%cal|
00007200  6c 24 3d c1 63 61 6c 6c  24 2c a7 63 61 6c 6c 24  |l$=.call$,.call$|
00007210  2c 22 20 2d 66 69 6c 65  20 22 29 2b 37 29 0d 21  |," -file ")+7).!|
00007220  02 23 e7 20 63 61 6c 6c  24 3c 3e 22 22 20 8c 20  |.#. call$<>"" . |
00007230  f2 6c 6f 61 64 74 61 62  6c 65 28 63 61 6c 6c 24  |.loadtable(call$|
00007240  29 0d 21 0c 05 e1 0d 21  16 05 3a 0d 21 20 0d dd  |).!....!..:.! ..|
00007250  f2 64 61 74 65 62 6f 78  0d 21 2a 0f c8 8e 20 64  |.datebox.!*... d|
00007260  74 79 70 65 25 20 ca 0d  21 34 14 c9 20 31 2c 32  |type% ..!4.. 1,2|
00007270  3a c8 8e 20 62 25 21 31  36 20 ca 0d 21 3e 11 c9  |:.. b%!16 ..!>..|
00007280  20 33 3a c8 8e 20 62 25  21 38 20 ca 0d 21 48 14  | 3:.. b%!8 ..!H.|
00007290  c9 20 34 3a e7 20 62 64  61 74 65 25 3e 31 20 8c  |. 4:. bdate%>1 .|
000072a0  0d 21 52 5c e7 20 a4 64  61 79 73 28 62 64 61 74  |.!R\. .days(bdat|
000072b0  65 25 2d 31 2c 62 6d 6f  6e 74 68 25 2c 62 79 65  |e%-1,bmonth%,bye|
000072c0  61 72 25 29 3e 3d a4 64  61 79 73 28 73 64 61 74  |ar%)>=.days(sdat|
000072d0  65 25 2c 73 6d 6f 6e 74  68 25 2c 73 79 65 61 72  |e%,smonth%,syear|
000072e0  25 29 20 8c 20 62 64 61  74 65 25 2d 3d 31 3a f2  |%) . bdate%-=1:.|
000072f0  66 69 6c 6c 62 64 61 74  65 28 31 29 0d 21 5c 05  |fillbdate(1).!\.|
00007300  cc 0d 21 66 11 e7 20 62  6d 6f 6e 74 68 25 3e 31  |..!f.. bmonth%>1|
00007310  20 8c 0d 21 70 8b e7 20  a4 64 61 79 73 28 a4 6d  | ..!p.. .days(.m|
00007320  61 78 28 62 6d 6f 6e 74  68 25 2d 31 2c 62 79 65  |ax(bmonth%-1,bye|
00007330  61 72 25 29 2c 62 6d 6f  6e 74 68 25 2d 31 2c 62  |ar%),bmonth%-1,b|
00007340  79 65 61 72 25 29 3e 3d  a4 64 61 79 73 28 73 64  |year%)>=.days(sd|
00007350  61 74 65 25 2c 73 6d 6f  6e 74 68 25 2c 73 79 65  |ate%,smonth%,sye|
00007360  61 72 25 29 20 8c 20 62  64 61 74 65 25 3d a4 6d  |ar%) . bdate%=.m|
00007370  61 78 28 62 6d 6f 6e 74  68 25 2d 31 2c 62 79 65  |ax(bmonth%-1,bye|
00007380  61 72 25 29 3a 62 6d 6f  6e 74 68 25 2d 3d 31 3a  |ar%):bmonth%-=1:|
00007390  f2 66 69 6c 6c 62 64 61  74 65 28 33 29 0d 21 7a  |.fillbdate(3).!z|
000073a0  05 cc 0d 21 84 68 e7 20  a4 64 61 79 73 28 33 31  |...!.h. .days(31|
000073b0  2c 31 32 2c 62 79 65 61  72 25 2d 31 29 3e 3d a4  |,12,byear%-1)>=.|
000073c0  64 61 79 73 28 73 64 61  74 65 25 2c 73 6d 6f 6e  |days(sdate%,smon|
000073d0  74 68 25 2c 73 79 65 61  72 25 29 20 8c 20 62 64  |th%,syear%) . bd|
000073e0  61 74 65 25 3d 33 31 3a  62 6d 6f 6e 74 68 25 3d  |ate%=31:bmonth%=|
000073f0  31 32 3a 62 79 65 61 72  25 2d 3d 31 3a f2 66 69  |12:byear%-=1:.fi|
00007400  6c 6c 62 64 61 74 65 28  37 29 0d 21 8e 05 cd 0d  |llbdate(7).!....|
00007410  21 98 05 cd 0d 21 a2 27  c9 20 31 3a e7 20 62 64  |!....!.'. 1:. bd|
00007420  61 74 65 25 3c a4 6d 61  78 28 62 6d 6f 6e 74 68  |ate%<.max(bmonth|
00007430  25 2c 62 79 65 61 72 25  29 20 8c 0d 21 ac 1b 62  |%,byear%) ..!..b|
00007440  64 61 74 65 25 2b 3d 31  3a f2 66 69 6c 6c 62 64  |date%+=1:.fillbd|
00007450  61 74 65 28 31 29 0d 21  b6 05 cc 0d 21 c0 12 e7  |ate(1).!....!...|
00007460  20 62 6d 6f 6e 74 68 25  3c 31 32 20 8c 0d 21 ca  | bmonth%<12 ..!.|
00007470  25 62 6d 6f 6e 74 68 25  2b 3d 31 3a 62 64 61 74  |%bmonth%+=1:bdat|
00007480  65 25 3d 31 3a f2 66 69  6c 6c 62 64 61 74 65 28  |e%=1:.fillbdate(|
00007490  33 29 0d 21 d4 05 cc 0d  21 de 3e e7 20 62 79 65  |3).!....!.>. bye|
000074a0  61 72 25 3c 32 30 32 31  20 8c 20 62 6d 6f 6e 74  |ar%<2021 . bmont|
000074b0  68 25 3d 31 3a 62 64 61  74 65 25 3d 31 3a 62 79  |h%=1:bdate%=1:by|
000074c0  65 61 72 25 2b 3d 31 3a  f2 66 69 6c 6c 62 64 61  |ear%+=1:.fillbda|
000074d0  74 65 28 37 29 0d 21 e8  05 cd 0d 21 f2 05 cd 0d  |te(7).!....!....|
000074e0  21 fc 05 cb 0d 22 06 11  c9 20 34 3a c8 8e 20 62  |!...."... 4:.. b|
000074f0  25 21 38 20 ca 0d 22 10  14 c9 20 31 3a e7 20 62  |%!8 .."... 1:. b|
00007500  64 61 74 65 25 3e 31 20  8c 0d 22 1a 5c e7 20 a4  |date%>1 ..".\. .|
00007510  64 61 79 73 28 62 64 61  74 65 25 2d 31 2c 62 6d  |days(bdate%-1,bm|
00007520  6f 6e 74 68 25 2c 62 79  65 61 72 25 29 3e 3d a4  |onth%,byear%)>=.|
00007530  64 61 79 73 28 73 64 61  74 65 25 2c 73 6d 6f 6e  |days(sdate%,smon|
00007540  74 68 25 2c 73 79 65 61  72 25 29 20 8c 20 62 64  |th%,syear%) . bd|
00007550  61 74 65 25 2d 3d 31 3a  f2 66 69 6c 6c 62 64 61  |ate%-=1:.fillbda|
00007560  74 65 28 31 29 0d 22 24  05 cc 0d 22 2e 11 e7 20  |te(1)."$..."... |
00007570  62 6d 6f 6e 74 68 25 3e  31 20 8c 0d 22 38 8b e7  |bmonth%>1 .."8..|
00007580  20 a4 64 61 79 73 28 a4  6d 61 78 28 62 6d 6f 6e  | .days(.max(bmon|
00007590  74 68 25 2d 31 2c 62 79  65 61 72 25 29 2c 62 6d  |th%-1,byear%),bm|
000075a0  6f 6e 74 68 25 2d 31 2c  62 79 65 61 72 25 29 3e  |onth%-1,byear%)>|
000075b0  3d a4 64 61 79 73 28 73  64 61 74 65 25 2c 73 6d  |=.days(sdate%,sm|
000075c0  6f 6e 74 68 25 2c 73 79  65 61 72 25 29 20 8c 20  |onth%,syear%) . |
000075d0  62 64 61 74 65 25 3d a4  6d 61 78 28 62 6d 6f 6e  |bdate%=.max(bmon|
000075e0  74 68 25 2d 31 2c 62 79  65 61 72 25 29 3a 62 6d  |th%-1,byear%):bm|
000075f0  6f 6e 74 68 25 2d 3d 31  3a f2 66 69 6c 6c 62 64  |onth%-=1:.fillbd|
00007600  61 74 65 28 33 29 0d 22  42 05 cc 0d 22 4c 68 e7  |ate(3)."B..."Lh.|
00007610  20 a4 64 61 79 73 28 33  31 2c 31 32 2c 62 79 65  | .days(31,12,bye|
00007620  61 72 25 2d 31 29 3e 3d  a4 64 61 79 73 28 73 64  |ar%-1)>=.days(sd|
00007630  61 74 65 25 2c 73 6d 6f  6e 74 68 25 2c 73 79 65  |ate%,smonth%,sye|
00007640  61 72 25 29 20 8c 20 62  64 61 74 65 25 3d 33 31  |ar%) . bdate%=31|
00007650  3a 62 6d 6f 6e 74 68 25  3d 31 32 3a 62 79 65 61  |:bmonth%=12:byea|
00007660  72 25 2d 3d 31 3a f2 66  69 6c 6c 62 64 61 74 65  |r%-=1:.fillbdate|
00007670  28 37 29 0d 22 56 05 cd  0d 22 60 05 cd 0d 22 6a  |(7)."V..."`..."j|
00007680  27 c9 20 34 3a e7 20 62  64 61 74 65 25 3c a4 6d  |'. 4:. bdate%<.m|
00007690  61 78 28 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |ax(bmonth%,byear|
000076a0  25 29 20 8c 0d 22 74 1b  62 64 61 74 65 25 2b 3d  |%) .."t.bdate%+=|
000076b0  31 3a f2 66 69 6c 6c 62  64 61 74 65 28 31 29 0d  |1:.fillbdate(1).|
000076c0  22 7e 05 cc 0d 22 88 12  e7 20 62 6d 6f 6e 74 68  |"~..."... bmonth|
000076d0  25 3c 31 32 20 8c 0d 22  92 25 62 6d 6f 6e 74 68  |%<12 ..".%bmonth|
000076e0  25 2b 3d 31 3a 62 64 61  74 65 25 3d 31 3a f2 66  |%+=1:bdate%=1:.f|
000076f0  69 6c 6c 62 64 61 74 65  28 33 29 0d 22 9c 05 cc  |illbdate(3)."...|
00007700  0d 22 a6 3e e7 20 62 79  65 61 72 25 3c 32 30 32  |.".>. byear%<202|
00007710  31 20 8c 20 62 6d 6f 6e  74 68 25 3d 31 3a 62 64  |1 . bmonth%=1:bd|
00007720  61 74 65 25 3d 31 3a 62  79 65 61 72 25 2b 3d 31  |ate%=1:byear%+=1|
00007730  3a f2 66 69 6c 6c 62 64  61 74 65 28 37 29 0d 22  |:.fillbdate(7)."|
00007740  b0 05 cd 0d 22 ba 05 cd  0d 22 c4 05 cb 0d 22 ce  |...."...."....".|
00007750  11 c9 20 35 3a c8 8e 20  62 25 21 38 20 ca 0d 22  |.. 5:.. b%!8 .."|
00007760  d8 15 c9 20 34 3a e7 20  62 6d 6f 6e 74 68 25 3e  |... 4:. bmonth%>|
00007770  31 20 8c 0d 22 e2 44 e7  20 a4 64 61 79 73 28 62  |1 ..".D. .days(b|
00007780  64 61 74 65 25 2c 62 6d  6f 6e 74 68 25 2d 31 2c  |date%,bmonth%-1,|
00007790  62 79 65 61 72 25 29 3e  3d a4 64 61 79 73 28 73  |byear%)>=.days(s|
000077a0  64 61 74 65 25 2c 73 6d  6f 6e 74 68 25 2c 73 79  |date%,smonth%,sy|
000077b0  65 61 72 25 29 20 8c 0d  22 ec 68 62 6d 6f 6e 74  |ear%) ..".hbmont|
000077c0  68 25 2d 3d 31 3a e7 20  62 64 61 74 65 25 3e a4  |h%-=1:. bdate%>.|
000077d0  6d 61 78 28 62 6d 6f 6e  74 68 25 2c 62 79 65 61  |max(bmonth%,byea|
000077e0  72 25 29 20 8c 20 62 64  61 74 65 25 3d a4 6d 61  |r%) . bdate%=.ma|
000077f0  78 28 62 6d 6f 6e 74 68  25 2c 62 79 65 61 72 25  |x(bmonth%,byear%|
00007800  29 3a f2 66 69 6c 6c 62  64 61 74 65 28 33 29 20  |):.fillbdate(3) |
00007810  8b 20 f2 66 69 6c 6c 62  64 61 74 65 28 32 29 0d  |. .fillbdate(2).|
00007820  22 f6 05 cc 0d 23 00 45  e7 20 73 6d 6f 6e 74 68  |"....#.E. smonth|
00007830  25 3d 62 6d 6f 6e 74 68  25 2d 31 20 8c 20 62 6d  |%=bmonth%-1 . bm|
00007840  6f 6e 74 68 25 3d 73 6d  6f 6e 74 68 25 3a 62 64  |onth%=smonth%:bd|
00007850  61 74 65 25 3d 73 64 61  74 65 25 3a f2 66 69 6c  |ate%=sdate%:.fil|
00007860  6c 62 64 61 74 65 28 33  29 0d 23 0a 05 cd 0d 23  |lbdate(3).#....#|
00007870  14 05 cc 0d 23 1e 3f e7  20 a4 64 61 79 73 28 62  |....#.?. .days(b|
00007880  64 61 74 65 25 2c 31 32  2c 62 79 65 61 72 25 2d  |date%,12,byear%-|
00007890  31 29 3e 3d a4 64 61 79  73 28 73 64 61 74 65 25  |1)>=.days(sdate%|
000078a0  2c 73 6d 6f 6e 74 68 25  2c 73 79 65 61 72 25 29  |,smonth%,syear%)|
000078b0  20 8c 0d 23 28 72 62 6d  6f 6e 74 68 25 3d 31 32  | ..#(rbmonth%=12|
000078c0  3a 62 79 65 61 72 25 2d  3d 31 3a e7 20 62 64 61  |:byear%-=1:. bda|
000078d0  74 65 25 3e a4 6d 61 78  28 62 6d 6f 6e 74 68 25  |te%>.max(bmonth%|
000078e0  2c 62 79 65 61 72 25 29  20 8c 20 62 64 61 74 65  |,byear%) . bdate|
000078f0  25 3d a4 6d 61 78 28 62  6d 6f 6e 74 68 25 2c 62  |%=.max(bmonth%,b|
00007900  79 65 61 72 25 29 3a f2  66 69 6c 6c 62 64 61 74  |year%):.fillbdat|
00007910  65 28 37 29 20 8b 20 f2  66 69 6c 6c 62 64 61 74  |e(7) . .fillbdat|
00007920  65 28 36 29 0d 23 32 05  cc 0d 23 3c 47 e7 20 73  |e(6).#2...#<G. s|
00007930  79 65 61 72 25 3d 62 79  65 61 72 25 2d 31 20 8c  |year%=byear%-1 .|
00007940  20 62 79 65 61 72 25 2d  3d 31 3a 62 6d 6f 6e 74  | byear%-=1:bmont|
00007950  68 25 3d 31 32 3a 62 64  61 74 65 25 3d 73 64 61  |h%=12:bdate%=sda|
00007960  74 65 25 3a f2 66 69 6c  6c 64 61 74 65 28 33 29  |te%:.filldate(3)|
00007970  0d 23 46 05 cd 0d 23 50  05 cd 0d 23 5a 16 c9 20  |.#F...#P...#Z.. |
00007980  31 3a e7 20 62 6d 6f 6e  74 68 25 3c 31 32 20 8c  |1:. bmonth%<12 .|
00007990  0d 23 64 68 62 6d 6f 6e  74 68 25 2b 3d 31 3a e7  |.#dhbmonth%+=1:.|
000079a0  20 62 64 61 74 65 25 3e  a4 6d 61 78 28 62 6d 6f  | bdate%>.max(bmo|
000079b0  6e 74 68 25 2c 62 79 65  61 72 25 29 20 8c 20 62  |nth%,byear%) . b|
000079c0  64 61 74 65 25 3d a4 6d  61 78 28 62 6d 6f 6e 74  |date%=.max(bmont|
000079d0  68 25 2c 62 79 65 61 72  25 29 3a f2 66 69 6c 6c  |h%,byear%):.fill|
000079e0  62 64 61 74 65 28 33 29  20 8b 20 f2 66 69 6c 6c  |bdate(3) . .fill|
000079f0  62 64 61 74 65 28 32 29  0d 23 6e 05 cc 0d 23 78  |bdate(2).#n...#x|
00007a00  35 e7 20 62 79 65 61 72  25 3c 32 30 32 31 20 8c  |5. byear%<2021 .|
00007a10  20 62 79 65 61 72 25 2b  3d 31 3a 62 6d 6f 6e 74  | byear%+=1:bmont|
00007a20  68 25 3d 31 3a f2 66 69  6c 6c 62 64 61 74 65 28  |h%=1:.fillbdate(|
00007a30  37 29 0d 23 82 05 cd 0d  23 8c 05 cb 0d 23 96 11  |7).#....#....#..|
00007a40  c9 20 36 3a c8 8e 20 62  25 21 38 20 ca 0d 23 a0  |. 6:.. b%!8 ..#.|
00007a50  15 c9 20 31 3a e7 20 62  6d 6f 6e 74 68 25 3e 31  |.. 1:. bmonth%>1|
00007a60  20 8c 0d 23 aa 44 e7 20  a4 64 61 79 73 28 62 64  | ..#.D. .days(bd|
00007a70  61 74 65 25 2c 62 6d 6f  6e 74 68 25 2d 31 2c 62  |ate%,bmonth%-1,b|
00007a80  79 65 61 72 25 29 3e 3d  a4 64 61 79 73 28 73 64  |year%)>=.days(sd|
00007a90  61 74 65 25 2c 73 6d 6f  6e 74 68 25 2c 73 79 65  |ate%,smonth%,sye|
00007aa0  61 72 25 29 20 8c 0d 23  b4 68 62 6d 6f 6e 74 68  |ar%) ..#.hbmonth|
00007ab0  25 2d 3d 31 3a e7 20 62  64 61 74 65 25 3e a4 6d  |%-=1:. bdate%>.m|
00007ac0  61 78 28 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |ax(bmonth%,byear|
00007ad0  25 29 20 8c 20 62 64 61  74 65 25 3d a4 6d 61 78  |%) . bdate%=.max|
00007ae0  28 62 6d 6f 6e 74 68 25  2c 62 79 65 61 72 25 29  |(bmonth%,byear%)|
00007af0  3a f2 66 69 6c 6c 62 64  61 74 65 28 33 29 20 8b  |:.fillbdate(3) .|
00007b00  20 f2 66 69 6c 6c 62 64  61 74 65 28 32 29 0d 23  | .fillbdate(2).#|
00007b10  be 05 cc 0d 23 c8 45 e7  20 73 6d 6f 6e 74 68 25  |....#.E. smonth%|
00007b20  3d 62 6d 6f 6e 74 68 25  2d 31 20 8c 20 62 6d 6f  |=bmonth%-1 . bmo|
00007b30  6e 74 68 25 3d 73 6d 6f  6e 74 68 25 3a 62 64 61  |nth%=smonth%:bda|
00007b40  74 65 25 3d 73 64 61 74  65 25 3a f2 66 69 6c 6c  |te%=sdate%:.fill|
00007b50  62 64 61 74 65 28 33 29  0d 23 d2 05 cd 0d 23 dc  |bdate(3).#....#.|
00007b60  05 cc 0d 23 e6 3f e7 20  a4 64 61 79 73 28 62 64  |...#.?. .days(bd|
00007b70  61 74 65 25 2c 31 32 2c  62 79 65 61 72 25 2d 31  |ate%,12,byear%-1|
00007b80  29 3e 3d a4 64 61 79 73  28 73 64 61 74 65 25 2c  |)>=.days(sdate%,|
00007b90  73 6d 6f 6e 74 68 25 2c  73 79 65 61 72 25 29 20  |smonth%,syear%) |
00007ba0  8c 0d 23 f0 72 62 6d 6f  6e 74 68 25 3d 31 32 3a  |..#.rbmonth%=12:|
00007bb0  62 79 65 61 72 25 2d 3d  31 3a e7 20 62 64 61 74  |byear%-=1:. bdat|
00007bc0  65 25 3e a4 6d 61 78 28  62 6d 6f 6e 74 68 25 2c  |e%>.max(bmonth%,|
00007bd0  62 79 65 61 72 25 29 20  8c 20 62 64 61 74 65 25  |byear%) . bdate%|
00007be0  3d a4 6d 61 78 28 62 6d  6f 6e 74 68 25 2c 62 79  |=.max(bmonth%,by|
00007bf0  65 61 72 25 29 3a f2 66  69 6c 6c 62 64 61 74 65  |ear%):.fillbdate|
00007c00  28 37 29 20 8b 20 f2 66  69 6c 6c 62 64 61 74 65  |(7) . .fillbdate|
00007c10  28 36 29 0d 23 fa 05 cc  0d 24 04 47 e7 20 73 79  |(6).#....$.G. sy|
00007c20  65 61 72 25 3d 62 79 65  61 72 25 2d 31 20 8c 20  |ear%=byear%-1 . |
00007c30  62 79 65 61 72 25 2d 3d  31 3a 62 6d 6f 6e 74 68  |byear%-=1:bmonth|
00007c40  25 3d 31 32 3a 62 64 61  74 65 25 3d 73 64 61 74  |%=12:bdate%=sdat|
00007c50  65 25 3a f2 66 69 6c 6c  64 61 74 65 28 33 29 0d  |e%:.filldate(3).|
00007c60  24 0e 05 cd 0d 24 18 05  cd 0d 24 22 16 c9 20 34  |$....$....$".. 4|
00007c70  3a e7 20 62 6d 6f 6e 74  68 25 3c 31 32 20 8c 0d  |:. bmonth%<12 ..|
00007c80  24 2c 68 62 6d 6f 6e 74  68 25 2b 3d 31 3a e7 20  |$,hbmonth%+=1:. |
00007c90  62 64 61 74 65 25 3e a4  6d 61 78 28 62 6d 6f 6e  |bdate%>.max(bmon|
00007ca0  74 68 25 2c 62 79 65 61  72 25 29 20 8c 20 62 64  |th%,byear%) . bd|
00007cb0  61 74 65 25 3d a4 6d 61  78 28 62 6d 6f 6e 74 68  |ate%=.max(bmonth|
00007cc0  25 2c 62 79 65 61 72 25  29 3a f2 66 69 6c 6c 62  |%,byear%):.fillb|
00007cd0  64 61 74 65 28 33 29 20  8b 20 f2 66 69 6c 6c 62  |date(3) . .fillb|
00007ce0  64 61 74 65 28 32 29 0d  24 36 05 cc 0d 24 40 35  |date(2).$6...$@5|
00007cf0  e7 20 62 79 65 61 72 25  3c 32 30 32 31 20 8c 20  |. byear%<2021 . |
00007d00  62 79 65 61 72 25 2b 3d  31 3a 62 6d 6f 6e 74 68  |byear%+=1:bmonth|
00007d10  25 3d 31 3a f2 66 69 6c  6c 62 64 61 74 65 28 37  |%=1:.fillbdate(7|
00007d20  29 0d 24 4a 05 cd 0d 24  54 05 cd 0d 24 5e 05 cb  |).$J...$T...$^..|
00007d30  0d 24 68 11 c9 20 37 3a  c8 8e 20 62 25 21 38 20  |.$h.. 7:.. b%!8 |
00007d40  ca 0d 24 72 56 c9 20 34  3a e7 20 62 79 65 61 72  |..$rV. 4:. byear|
00007d50  25 3e 31 39 39 30 3a e7  20 a4 64 61 79 73 28 62  |%>1990:. .days(b|
00007d60  64 61 74 65 25 2c 62 6d  6f 6e 74 68 25 2c 62 79  |date%,bmonth%,by|
00007d70  65 61 72 25 2d 31 29 3e  3d a4 64 61 79 73 28 73  |ear%-1)>=.days(s|
00007d80  64 61 74 65 25 2c 73 6d  6f 6e 74 68 25 2c 73 79  |date%,smonth%,sy|
00007d90  65 61 72 25 29 20 8c 0d  24 7c 67 62 79 65 61 72  |ear%) ..$|gbyear|
00007da0  25 2d 3d 31 3a e7 20 62  64 61 74 65 25 3e a4 6d  |%-=1:. bdate%>.m|
00007db0  61 78 28 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |ax(bmonth%,byear|
00007dc0  25 29 20 8c 20 62 64 61  74 65 25 3d a4 6d 61 78  |%) . bdate%=.max|
00007dd0  28 62 6d 6f 6e 74 68 25  2c 62 79 65 61 72 25 29  |(bmonth%,byear%)|
00007de0  3a f2 66 69 6c 6c 62 64  61 74 65 28 35 29 20 8b  |:.fillbdate(5) .|
00007df0  20 f2 66 69 6c 6c 62 64  61 74 65 28 34 29 0d 24  | .fillbdate(4).$|
00007e00  86 05 cc 0d 24 90 4d e7  20 73 79 65 61 72 25 3d  |....$.M. syear%=|
00007e10  62 79 65 61 72 25 2d 31  20 8c 20 62 79 65 61 72  |byear%-1 . byear|
00007e20  25 2d 3d 31 3a 62 6d 6f  6e 74 68 25 3d 73 6d 6f  |%-=1:bmonth%=smo|
00007e30  6e 74 68 25 3a 62 64 61  74 65 25 3d 73 64 61 74  |nth%:bdate%=sdat|
00007e40  65 25 3a f2 66 69 6c 6c  62 64 61 74 65 28 37 29  |e%:.fillbdate(7)|
00007e50  0d 24 9a 05 cd 0d 24 a4  17 c9 20 31 3a e7 20 62  |.$....$... 1:. b|
00007e60  79 65 61 72 25 3c 32 30  32 31 20 8c 0d 24 ae 67  |year%<2021 ..$.g|
00007e70  62 79 65 61 72 25 2b 3d  31 3a e7 20 62 64 61 74  |byear%+=1:. bdat|
00007e80  65 25 3e a4 6d 61 78 28  62 6d 6f 6e 74 68 25 2c  |e%>.max(bmonth%,|
00007e90  62 79 65 61 72 25 29 20  8c 20 62 64 61 74 65 25  |byear%) . bdate%|
00007ea0  3d a4 6d 61 78 28 62 6d  6f 6e 74 68 25 2c 62 79  |=.max(bmonth%,by|
00007eb0  65 61 72 25 29 3a f2 66  69 6c 6c 62 64 61 74 65  |ear%):.fillbdate|
00007ec0  28 35 29 20 8b 20 f2 66  69 6c 6c 62 64 61 74 65  |(5) . .fillbdate|
00007ed0  28 34 29 0d 24 b8 05 cd  0d 24 c2 05 cb 0d 24 cc  |(4).$....$....$.|
00007ee0  11 c9 20 38 3a c8 8e 20  62 25 21 38 20 ca 0d 24  |.. 8:.. b%!8 ..$|
00007ef0  d6 56 c9 20 31 3a e7 20  62 79 65 61 72 25 3e 31  |.V. 1:. byear%>1|
00007f00  39 39 30 3a e7 20 a4 64  61 79 73 28 62 64 61 74  |990:. .days(bdat|
00007f10  65 25 2c 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |e%,bmonth%,byear|
00007f20  25 2d 31 29 3e 3d a4 64  61 79 73 28 73 64 61 74  |%-1)>=.days(sdat|
00007f30  65 25 2c 73 6d 6f 6e 74  68 25 2c 73 79 65 61 72  |e%,smonth%,syear|
00007f40  25 29 20 8c 0d 24 e0 67  62 79 65 61 72 25 2d 3d  |%) ..$.gbyear%-=|
00007f50  31 3a e7 20 62 64 61 74  65 25 3e a4 6d 61 78 28  |1:. bdate%>.max(|
00007f60  62 6d 6f 6e 74 68 25 2c  62 79 65 61 72 25 29 20  |bmonth%,byear%) |
00007f70  8c 20 62 64 61 74 65 25  3d a4 6d 61 78 28 62 6d  |. bdate%=.max(bm|
00007f80  6f 6e 74 68 25 2c 62 79  65 61 72 25 29 3a f2 66  |onth%,byear%):.f|
00007f90  69 6c 6c 62 64 61 74 65  28 35 29 20 8b 20 f2 66  |illbdate(5) . .f|
00007fa0  69 6c 6c 62 64 61 74 65  28 34 29 0d 24 ea 05 cc  |illbdate(4).$...|
00007fb0  0d 24 f4 4d e7 20 73 79  65 61 72 25 3d 62 79 65  |.$.M. syear%=bye|
00007fc0  61 72 25 2d 31 20 8c 20  62 79 65 61 72 25 2d 3d  |ar%-1 . byear%-=|
00007fd0  31 3a 62 6d 6f 6e 74 68  25 3d 73 6d 6f 6e 74 68  |1:bmonth%=smonth|
00007fe0  25 3a 62 64 61 74 65 25  3d 73 64 61 74 65 25 3a  |%:bdate%=sdate%:|
00007ff0  f2 66 69 6c 6c 62 64 61  74 65 28 37 29 0d 24 fe  |.fillbdate(7).$.|
00008000  05 cd 0d 25 08 17 c9 20  34 3a e7 20 62 79 65 61  |...%... 4:. byea|
00008010  72 25 3c 32 30 32 31 20  8c 0d 25 12 67 62 79 65  |r%<2021 ..%.gbye|
00008020  61 72 25 2b 3d 31 3a e7  20 62 64 61 74 65 25 3e  |ar%+=1:. bdate%>|
00008030  a4 6d 61 78 28 62 6d 6f  6e 74 68 25 2c 62 79 65  |.max(bmonth%,bye|
00008040  61 72 25 29 20 8c 20 62  64 61 74 65 25 3d a4 6d  |ar%) . bdate%=.m|
00008050  61 78 28 62 6d 6f 6e 74  68 25 2c 62 79 65 61 72  |ax(bmonth%,byear|
00008060  25 29 3a f2 66 69 6c 6c  62 64 61 74 65 28 35 29  |%):.fillbdate(5)|
00008070  20 8b 20 f2 66 69 6c 6c  62 64 61 74 65 28 34 29  | . .fillbdate(4)|
00008080  0d 25 1c 05 cd 0d 25 26  05 cb 0d 25 30 9d c9 20  |.%....%&...%0.. |
00008090  39 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |9:.. "Wimp_Creat|
000080a0  65 4d 65 6e 75 22 2c 2c  2d 31 3a e7 20 64 74 79  |eMenu",,-1:. dty|
000080b0  70 65 25 3d 31 20 8c 20  64 61 74 65 25 3d 62 64  |pe%=1 . date%=bd|
000080c0  61 74 65 25 3a 6d 6f 6e  74 68 25 3d 62 6d 6f 6e  |ate%:month%=bmon|
000080d0  74 68 25 3a 79 65 61 72  25 3d 62 79 65 61 72 25  |th%:year%=byear%|
000080e0  3a f2 66 69 6c 6c 74 61  62 6c 65 28 a3 29 20 8b  |:.filltable(.) .|
000080f0  20 72 64 61 74 65 25 3d  62 64 61 74 65 25 3a 72  | rdate%=bdate%:r|
00008100  6d 6f 6e 74 68 25 3d 62  6d 6f 6e 74 68 25 3a 72  |month%=bmonth%:r|
00008110  79 65 61 72 25 3d 62 79  65 61 72 25 3a f2 66 69  |year%=byear%:.fi|
00008120  6c 6c 72 64 61 74 65 0d  25 3a 05 cb 0d 25 44 12  |llrdate.%:...%D.|
00008130  c9 20 33 3a c8 8e 20 62  25 21 31 36 20 ca 0d 25  |. 3:.. b%!16 ..%|
00008140  4e 11 c9 20 33 3a c8 8e  20 62 25 21 38 20 ca 0d  |N.. 3:.. b%!8 ..|
00008150  25 58 14 c9 20 34 3a e7  20 62 64 61 74 65 25 3e  |%X.. 4:. bdate%>|
00008160  31 20 8c 0d 25 62 1b 62  64 61 74 65 25 2d 3d 31  |1 ..%b.bdate%-=1|
00008170  3a f2 66 69 6c 6c 62 64  61 74 65 28 31 29 0d 25  |:.fillbdate(1).%|
00008180  6c 05 cc 0d 25 76 11 e7  20 62 6d 6f 6e 74 68 25  |l...%v.. bmonth%|
00008190  3e 31 20 8c 0d 25 80 38  62 6d 6f 6e 74 68 25 2d  |>1 ..%.8bmonth%-|
000081a0  3d 31 3a 62 64 61 74 65  25 3d a4 6d 61 78 28 62  |=1:bdate%=.max(b|
000081b0  6d 6f 6e 74 68 25 2c 62  79 65 61 72 25 29 3a f2  |month%,byear%):.|
000081c0  66 69 6c 6c 62 64 61 74  65 28 33 29 0d 25 8a 05  |fillbdate(3).%..|
000081d0  cc 0d 25 94 40 e7 20 62  79 65 61 72 25 3e 31 39  |..%.@. byear%>19|
000081e0  39 30 20 8c 20 62 79 65  61 72 25 2d 3d 31 3a 62  |90 . byear%-=1:b|
000081f0  6d 6f 6e 74 68 25 3d 31  32 3a 62 64 61 74 65 25  |month%=12:bdate%|
00008200  3d 33 31 3a f2 66 69 6c  6c 62 64 61 74 65 28 37  |=31:.fillbdate(7|
00008210  29 0d 25 9e 05 cd 0d 25  a8 05 cd 0d 25 b2 27 c9  |).%....%....%.'.|
00008220  20 31 3a e7 20 62 64 61  74 65 25 3c a4 6d 61 78  | 1:. bdate%<.max|
00008230  28 62 6d 6f 6e 74 68 25  2c 62 79 65 61 72 25 29  |(bmonth%,byear%)|
00008240  20 8c 0d 25 bc 1b 62 64  61 74 65 25 2b 3d 31 3a  | ..%..bdate%+=1:|
00008250  f2 66 69 6c 6c 62 64 61  74 65 28 31 29 0d 25 c6  |.fillbdate(1).%.|
00008260  05 cc 0d 25 d0 12 e7 20  62 6d 6f 6e 74 68 25 3c  |...%... bmonth%<|
00008270  31 32 20 8c 0d 25 da 25  62 6d 6f 6e 74 68 25 2b  |12 ..%.%bmonth%+|
00008280  3d 31 3a 62 64 61 74 65  25 3d 31 3a f2 66 69 6c  |=1:bdate%=1:.fil|
00008290  6c 62 64 61 74 65 28 33  29 0d 25 e4 05 cc 0d 25  |lbdate(3).%....%|
000082a0  ee 3e e7 20 62 79 65 61  72 25 3c 32 30 32 31 20  |.>. byear%<2021 |
000082b0  8c 20 62 79 65 61 72 25  2b 3d 31 3a 62 6d 6f 6e  |. byear%+=1:bmon|
000082c0  74 68 25 3d 31 3a 62 64  61 74 65 25 3d 31 3a f2  |th%=1:bdate%=1:.|
000082d0  66 69 6c 6c 62 64 61 74  65 28 37 29 0d 25 f8 05  |fillbdate(7).%..|
000082e0  cd 0d 26 02 05 cd 0d 26  0c 05 cb 0d 26 16 11 c9  |..&....&....&...|
000082f0  20 34 3a c8 8e 20 62 25  21 38 20 ca 0d 26 20 14  | 4:.. b%!8 ..& .|
00008300  c9 20 31 3a e7 20 62 64  61 74 65 25 3e 31 20 8c  |. 1:. bdate%>1 .|
00008310  0d 26 2a 1b 62 64 61 74  65 25 2d 3d 31 3a f2 66  |.&*.bdate%-=1:.f|
00008320  69 6c 6c 62 64 61 74 65  28 31 29 0d 26 34 05 cc  |illbdate(1).&4..|
00008330  0d 26 3e 11 e7 20 62 6d  6f 6e 74 68 25 3e 31 20  |.&>.. bmonth%>1 |
00008340  8c 0d 26 48 38 62 6d 6f  6e 74 68 25 2d 3d 31 3a  |..&H8bmonth%-=1:|
00008350  62 64 61 74 65 25 3d a4  6d 61 78 28 62 6d 6f 6e  |bdate%=.max(bmon|
00008360  74 68 25 2c 62 79 65 61  72 25 29 3a f2 66 69 6c  |th%,byear%):.fil|
00008370  6c 62 64 61 74 65 28 33  29 0d 26 52 05 cc 0d 26  |lbdate(3).&R...&|
00008380  5c 40 e7 20 62 79 65 61  72 25 3e 31 39 39 30 20  |\@. byear%>1990 |
00008390  8c 20 62 79 65 61 72 25  2d 3d 31 3a 62 6d 6f 6e  |. byear%-=1:bmon|
000083a0  74 68 25 3d 31 32 3a 62  64 61 74 65 25 3d 33 31  |th%=12:bdate%=31|
000083b0  3a f2 66 69 6c 6c 62 64  61 74 65 28 37 29 0d 26  |:.fillbdate(7).&|
000083c0  66 05 cd 0d 26 70 05 cd  0d 26 7a 27 c9 20 34 3a  |f...&p...&z'. 4:|
000083d0  e7 20 62 64 61 74 65 25  3c a4 6d 61 78 28 62 6d  |. bdate%<.max(bm|
000083e0  6f 6e 74 68 25 2c 62 79  65 61 72 25 29 20 8c 0d  |onth%,byear%) ..|
000083f0  26 84 1b 62 64 61 74 65  25 2b 3d 31 3a f2 66 69  |&..bdate%+=1:.fi|
00008400  6c 6c 62 64 61 74 65 28  31 29 0d 26 8e 05 cc 0d  |llbdate(1).&....|
00008410  26 98 12 e7 20 62 6d 6f  6e 74 68 25 3c 31 32 20  |&... bmonth%<12 |
00008420  8c 0d 26 a2 25 62 6d 6f  6e 74 68 25 2b 3d 31 3a  |..&.%bmonth%+=1:|
00008430  62 64 61 74 65 25 3d 31  3a f2 66 69 6c 6c 62 64  |bdate%=1:.fillbd|
00008440  61 74 65 28 33 29 0d 26  ac 05 cc 0d 26 b6 3e e7  |ate(3).&....&.>.|
00008450  20 62 79 65 61 72 25 3c  32 30 32 31 20 8c 20 62  | byear%<2021 . b|
00008460  79 65 61 72 25 2b 3d 31  3a 62 6d 6f 6e 74 68 25  |year%+=1:bmonth%|
00008470  3d 31 3a 62 64 61 74 65  25 3d 31 3a f2 66 69 6c  |=1:bdate%=1:.fil|
00008480  6c 62 64 61 74 65 28 37  29 0d 26 c0 05 cd 0d 26  |lbdate(7).&....&|
00008490  ca 05 cd 0d 26 d4 05 cb  0d 26 de 11 c9 20 35 3a  |....&....&... 5:|
000084a0  c8 8e 20 62 25 21 38 20  ca 0d 26 e8 15 c9 20 34  |.. b%!8 ..&... 4|
000084b0  3a e7 20 62 6d 6f 6e 74  68 25 3e 31 20 8c 0d 26  |:. bmonth%>1 ..&|
000084c0  f2 68 62 6d 6f 6e 74 68  25 2d 3d 31 3a e7 20 62  |.hbmonth%-=1:. b|
000084d0  64 61 74 65 25 3e a4 6d  61 78 28 62 6d 6f 6e 74  |date%>.max(bmont|
000084e0  68 25 2c 62 79 65 61 72  25 29 20 8c 20 62 64 61  |h%,byear%) . bda|
000084f0  74 65 25 3d a4 6d 61 78  28 62 6d 6f 6e 74 68 25  |te%=.max(bmonth%|
00008500  2c 62 79 65 61 72 25 29  3a f2 66 69 6c 6c 62 64  |,byear%):.fillbd|
00008510  61 74 65 28 33 29 20 8b  20 f2 66 69 6c 6c 62 64  |ate(3) . .fillbd|
00008520  61 74 65 28 33 29 0d 26  fc 05 cc 0d 27 06 36 e7  |ate(3).&....'.6.|
00008530  20 62 79 65 61 72 25 3e  31 39 39 30 20 8c 20 62  | byear%>1990 . b|
00008540  79 65 61 72 25 2d 3d 31  3a 62 6d 6f 6e 74 68 25  |year%-=1:bmonth%|
00008550  3d 31 32 3a f2 66 69 6c  6c 62 64 61 74 65 28 37  |=12:.fillbdate(7|
00008560  29 0d 27 10 05 cd 0d 27  1a 16 c9 20 31 3a e7 20  |).'....'... 1:. |
00008570  62 6d 6f 6e 74 68 25 3c  31 32 20 8c 0d 27 24 68  |bmonth%<12 ..'$h|
00008580  62 6d 6f 6e 74 68 25 2b  3d 31 3a e7 20 62 64 61  |bmonth%+=1:. bda|
00008590  74 65 25 3e a4 6d 61 78  28 62 6d 6f 6e 74 68 25  |te%>.max(bmonth%|
000085a0  2c 62 79 65 61 72 25 29  20 8c 20 62 64 61 74 65  |,byear%) . bdate|
000085b0  25 3d a4 6d 61 78 28 62  6d 6f 6e 74 68 25 2c 62  |%=.max(bmonth%,b|
000085c0  79 65 61 72 25 29 3a f2  66 69 6c 6c 62 64 61 74  |year%):.fillbdat|
000085d0  65 28 33 29 20 8b 20 f2  66 69 6c 6c 62 64 61 74  |e(3) . .fillbdat|
000085e0  65 28 33 29 0d 27 2e 05  cc 0d 27 38 35 e7 20 62  |e(3).'....'85. b|
000085f0  79 65 61 72 25 3c 32 30  32 31 20 8c 20 62 79 65  |year%<2021 . bye|
00008600  61 72 25 2b 3d 31 3a 62  6d 6f 6e 74 68 25 3d 31  |ar%+=1:bmonth%=1|
00008610  3a f2 66 69 6c 6c 62 64  61 74 65 28 37 29 0d 27  |:.fillbdate(7).'|
00008620  42 05 cd 0d 27 4c 05 cb  0d 27 56 11 c9 20 36 3a  |B...'L...'V.. 6:|
00008630  c8 8e 20 62 25 21 38 20  ca 0d 27 60 15 c9 20 31  |.. b%!8 ..'`.. 1|
00008640  3a e7 20 62 6d 6f 6e 74  68 25 3e 31 20 8c 0d 27  |:. bmonth%>1 ..'|
00008650  6a 68 62 6d 6f 6e 74 68  25 2d 3d 31 3a e7 20 62  |jhbmonth%-=1:. b|
00008660  64 61 74 65 25 3e a4 6d  61 78 28 62 6d 6f 6e 74  |date%>.max(bmont|
00008670  68 25 2c 62 79 65 61 72  25 29 20 8c 20 62 64 61  |h%,byear%) . bda|
00008680  74 65 25 3d a4 6d 61 78  28 62 6d 6f 6e 74 68 25  |te%=.max(bmonth%|
00008690  2c 62 79 65 61 72 25 29  3a f2 66 69 6c 6c 62 64  |,byear%):.fillbd|
000086a0  61 74 65 28 33 29 20 8b  20 f2 66 69 6c 6c 62 64  |ate(3) . .fillbd|
000086b0  61 74 65 28 33 29 0d 27  74 05 cc 0d 27 7e 36 e7  |ate(3).'t...'~6.|
000086c0  20 62 79 65 61 72 25 3e  31 39 39 30 20 8c 20 62  | byear%>1990 . b|
000086d0  79 65 61 72 25 2d 3d 31  3a 62 6d 6f 6e 74 68 25  |year%-=1:bmonth%|
000086e0  3d 31 32 3a f2 66 69 6c  6c 62 64 61 74 65 28 37  |=12:.fillbdate(7|
000086f0  29 0d 27 88 05 cd 0d 27  92 16 c9 20 34 3a e7 20  |).'....'... 4:. |
00008700  62 6d 6f 6e 74 68 25 3c  31 32 20 8c 0d 27 9c 68  |bmonth%<12 ..'.h|
00008710  62 6d 6f 6e 74 68 25 2b  3d 31 3a e7 20 62 64 61  |bmonth%+=1:. bda|
00008720  74 65 25 3e a4 6d 61 78  28 62 6d 6f 6e 74 68 25  |te%>.max(bmonth%|
00008730  2c 62 79 65 61 72 25 29  20 8c 20 62 64 61 74 65  |,byear%) . bdate|
00008740  25 3d a4 6d 61 78 28 62  6d 6f 6e 74 68 25 2c 62  |%=.max(bmonth%,b|
00008750  79 65 61 72 25 29 3a f2  66 69 6c 6c 62 64 61 74  |year%):.fillbdat|
00008760  65 28 33 29 20 8b 20 f2  66 69 6c 6c 62 64 61 74  |e(3) . .fillbdat|
00008770  65 28 33 29 0d 27 a6 05  cc 0d 27 b0 35 e7 20 62  |e(3).'....'.5. b|
00008780  79 65 61 72 25 3c 32 30  32 31 20 8c 20 62 79 65  |year%<2021 . bye|
00008790  61 72 25 2b 3d 31 3a 62  6d 6f 6e 74 68 25 3d 31  |ar%+=1:bmonth%=1|
000087a0  3a f2 66 69 6c 6c 62 64  61 74 65 28 37 29 0d 27  |:.fillbdate(7).'|
000087b0  ba 05 cd 0d 27 c4 05 cb  0d 27 ce 11 c9 20 37 3a  |....'....'... 7:|
000087c0  c8 8e 20 62 25 21 38 20  ca 0d 27 d8 17 c9 20 34  |.. b%!8 ..'... 4|
000087d0  3a e7 20 62 79 65 61 72  25 3e 31 39 39 30 20 8c  |:. byear%>1990 .|
000087e0  0d 27 e2 55 62 79 65 61  72 25 2d 3d 31 3a e7 20  |.'.Ubyear%-=1:. |
000087f0  62 64 61 74 65 25 3e a4  6d 61 78 28 62 6d 6f 6e  |bdate%>.max(bmon|
00008800  74 68 25 2c 62 79 65 61  72 25 29 20 8c 20 62 64  |th%,byear%) . bd|
00008810  61 74 65 25 3d 32 38 3a  f2 66 69 6c 6c 62 64 61  |ate%=28:.fillbda|
00008820  74 65 28 37 29 20 8b 20  f2 66 69 6c 6c 62 64 61  |te(7) . .fillbda|
00008830  74 65 28 37 29 0d 27 ec  05 cd 0d 27 f6 17 c9 20  |te(7).'....'... |
00008840  31 3a e7 20 62 79 65 61  72 25 3c 32 30 32 31 20  |1:. byear%<2021 |
00008850  8c 0d 28 00 55 62 79 65  61 72 25 2b 3d 31 3a e7  |..(.Ubyear%+=1:.|
00008860  20 62 64 61 74 65 25 3e  a4 6d 61 78 28 62 6d 6f  | bdate%>.max(bmo|
00008870  6e 74 68 25 2c 62 79 65  61 72 25 29 20 8c 20 62  |nth%,byear%) . b|
00008880  64 61 74 65 25 3d 32 38  3a f2 66 69 6c 6c 62 64  |date%=28:.fillbd|
00008890  61 74 65 28 37 29 20 8b  20 f2 66 69 6c 6c 62 64  |ate(7) . .fillbd|
000088a0  61 74 65 28 37 29 0d 28  0a 05 cd 0d 28 14 05 cb  |ate(7).(....(...|
000088b0  0d 28 1e 11 c9 20 38 3a  c8 8e 20 62 25 21 38 20  |.(... 8:.. b%!8 |
000088c0  ca 0d 28 28 17 c9 20 31  3a e7 20 62 79 65 61 72  |..((.. 1:. byear|
000088d0  25 3e 31 39 39 30 20 8c  0d 28 32 55 62 79 65 61  |%>1990 ..(2Ubyea|
000088e0  72 25 2d 3d 31 3a e7 20  62 64 61 74 65 25 3e a4  |r%-=1:. bdate%>.|
000088f0  6d 61 78 28 62 6d 6f 6e  74 68 25 2c 62 79 65 61  |max(bmonth%,byea|
00008900  72 25 29 20 8c 20 62 64  61 74 65 25 3d 32 38 3a  |r%) . bdate%=28:|
00008910  f2 66 69 6c 6c 62 64 61  74 65 28 37 29 20 8b 20  |.fillbdate(7) . |
00008920  f2 66 69 6c 6c 62 64 61  74 65 28 37 29 0d 28 3c  |.fillbdate(7).(<|
00008930  05 cd 0d 28 46 17 c9 20  34 3a e7 20 62 79 65 61  |...(F.. 4:. byea|
00008940  72 25 3c 32 30 32 31 20  8c 0d 28 50 55 62 79 65  |r%<2021 ..(PUbye|
00008950  61 72 25 2b 3d 31 3a e7  20 62 64 61 74 65 25 3e  |ar%+=1:. bdate%>|
00008960  a4 6d 61 78 28 62 6d 6f  6e 74 68 25 2c 62 79 65  |.max(bmonth%,bye|
00008970  61 72 25 29 20 8c 20 62  64 61 74 65 25 3d 32 38  |ar%) . bdate%=28|
00008980  3a f2 66 69 6c 6c 62 64  61 74 65 28 37 29 20 8b  |:.fillbdate(7) .|
00008990  20 f2 66 69 6c 6c 62 64  61 74 65 28 37 29 0d 28  | .fillbdate(7).(|
000089a0  5a 05 cd 0d 28 64 05 cb  0d 28 6e ac c9 20 39 3a  |Z...(d...(n.. 9:|
000089b0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000089c0  65 6e 75 22 2c 2c 2d 31  3a 7a 64 61 74 65 25 3d  |enu",,-1:zdate%=|
000089d0  62 64 61 74 65 25 3a 7a  6d 6f 6e 74 68 25 3d 62  |bdate%:zmonth%=b|
000089e0  6d 6f 6e 74 68 25 3a 7a  79 65 61 72 25 3d 62 79  |month%:zyear%=by|
000089f0  65 61 72 25 3a 24 28 69  6e 64 25 2b 39 34 30 29  |ear%:$(ind%+940)|
00008a00  3d a4 64 61 79 28 7a 64  61 74 65 25 2c 7a 6d 6f  |=.day(zdate%,zmo|
00008a10  6e 74 68 25 2c 7a 79 65  61 72 25 29 2b 22 20 22  |nth%,zyear%)+" "|
00008a20  2b c3 7a 64 61 74 65 25  2b a4 74 68 28 7a 64 61  |+.zdate%+.th(zda|
00008a30  74 65 25 29 2b 22 20 22  2b a4 6d 6f 6e 74 68 28  |te%)+" "+.month(|
00008a40  7a 6d 6f 6e 74 68 25 29  2b 22 20 22 2b c3 7a 79  |zmonth%)+" "+.zy|
00008a50  65 61 72 25 0d 28 78 44  21 62 25 3d 6e 65 77 6c  |ear%.(xD!b%=newl|
00008a60  65 61 67 75 65 25 3a 62  25 21 34 3d 32 35 3a 62  |eague%:b%!4=25:b|
00008a70  25 21 38 3d 30 3a 62 25  21 31 32 3d 30 3a c8 99  |%!8=0:b%!12=0:..|
00008a80  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00008a90  61 74 65 22 2c 2c 62 25  0d 28 82 05 cb 0d 28 8c  |ate",,b%.(....(.|
00008aa0  15 f4 20 6e 65 78 74 20  64 74 79 70 65 20 68 65  |.. next dtype he|
00008ab0  72 65 0d 28 96 05 cb 0d  28 a0 05 e1 0d 28 aa 05  |re.(....(....(..|
00008ac0  3a 0d 28 b4 0e dd f2 6f  70 65 6e 64 62 6f 78 0d  |:.(....opendbox.|
00008ad0  28 be 47 21 62 25 3d 64  61 74 65 62 6f 78 25 3a  |(.G!b%=datebox%:|
00008ae0  62 25 21 34 3d 39 3a 62  25 21 38 3d 30 3a 62 25  |b%!4=9:b%!8=0:b%|
00008af0  21 31 32 3d 26 32 30 30  30 30 30 3a c8 99 20 22  |!12=&200000:.. "|
00008b00  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00008b10  65 22 2c 2c 62 25 0d 28  c8 56 f2 66 69 6c 6c 62  |e",,b%.(.V.fillb|
00008b20  64 61 74 65 28 37 29 3a  c8 99 20 22 57 69 6d 70  |date(7):.. "Wimp|
00008b30  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00008b40  2c 2c 62 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |,,b%:.. "Wimp_Cr|
00008b50  65 61 74 65 4d 65 6e 75  22 2c 2c 64 61 74 65 62  |eateMenu",,dateb|
00008b60  6f 78 25 2c 21 62 25 2c  62 25 21 34 0d 28 d2 31  |ox%,!b%,b%!4.(.1|
00008b70  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00008b80  74 50 6f 73 69 74 69 6f  6e 22 2c 64 61 74 65 62  |tPosition",dateb|
00008b90  6f 78 25 2c 31 31 2c 2c  2c 2d 31 2c 30 0d 28 dc  |ox%,11,,,-1,0.(.|
00008ba0  05 e1 0d 28 e6 05 3a 0d  28 f0 0a dd f2 67 72 65  |...(..:.(....gre|
00008bb0  79 0d 28 fa 0f e7 20 67  72 65 79 25 20 8c 20 e1  |y.(... grey% . .|
00008bc0  0d 29 04 6f 74 61 62 6c  65 64 61 74 61 25 3f 31  |.).otabledata%?1|
00008bd0  31 39 30 3d 34 39 3a 67  72 65 79 25 3d 2d 31 3a  |190=49:grey%=-1:|
00008be0  21 65 25 3d 70 72 65 6d  74 61 62 6c 65 25 3a 65  |!e%=premtable%:e|
00008bf0  25 21 34 3d 32 31 34 3a  65 25 21 38 3d 26 33 30  |%!4=214:e%!8=&30|
00008c00  30 30 30 30 30 3a 65 25  21 31 32 3d 26 46 30 30  |00000:e%!12=&F00|
00008c10  46 30 30 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |F000:.. "Wimp_Se|
00008c20  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 65 25 0d  |tIconState",,e%.|
00008c30  29 0e 05 e1 0d 29 18 05  3a 0d 29 22 0c dd f2 75  |)....)..:.)"...u|
00008c40  6e 67 72 65 79 0d 29 2c  11 e7 20 ac 20 67 72 65  |ngrey.),.. . gre|
00008c50  79 25 20 8c 20 e1 0d 29  36 6e 74 61 62 6c 65 64  |y% . ..)6ntabled|
00008c60  61 74 61 25 3f 31 31 39  30 3d 35 33 3a 67 72 65  |ata%?1190=53:gre|
00008c70  79 25 3d 30 3a 21 65 25  3d 70 72 65 6d 74 61 62  |y%=0:!e%=premtab|
00008c80  6c 65 25 3a 65 25 21 34  3d 32 31 34 3a 65 25 21  |le%:e%!4=214:e%!|
00008c90  38 3d 26 37 30 30 33 30  30 30 3a 65 25 21 31 32  |8=&7003000:e%!12|
00008ca0  3d 26 46 30 30 46 30 30  30 3a c8 99 20 22 57 69  |=&F00F000:.. "Wi|
00008cb0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00008cc0  2c 2c 65 25 0d 29 40 05  e1 0d 29 4a 05 3a 0d 29  |,,e%.)@...)J.:.)|
00008cd0  54 12 dd f2 73 67 72 65  79 28 69 63 6f 6e 25 29  |T...sgrey(icon%)|
00008ce0  0d 29 5e 0e c8 8e 20 69  63 6f 6e 25 20 ca 0d 29  |.)^... icon% ..)|
00008cf0  68 15 c9 20 33 37 3a 69  6e 64 25 3f 33 37 35 39  |h.. 37:ind%?3759|
00008d00  3d 34 39 0d 29 72 15 c9  20 33 38 3a 69 6e 64 25  |=49.)r.. 38:ind%|
00008d10  3f 33 37 36 39 3d 34 39  0d 29 7c 05 cb 0d 29 86  |?3769=49.)|...).|
00008d20  54 21 65 25 3d 6d 69 64  73 74 61 72 74 25 3a 65  |T!e%=midstart%:e|
00008d30  25 21 34 3d 69 63 6f 6e  25 3a 65 25 21 38 3d 26  |%!4=icon%:e%!8=&|
00008d40  33 30 30 30 30 30 30 3a  65 25 21 31 32 3d 26 46  |3000000:e%!12=&F|
00008d50  30 30 46 30 30 30 3a c8  99 20 22 57 69 6d 70 5f  |00F000:.. "Wimp_|
00008d60  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 65  |SetIconState",,e|
00008d70  25 0d 29 90 05 e1 0d 29  9a 05 3a 0d 29 a4 14 dd  |%.)....)..:.)...|
00008d80  f2 73 75 6e 67 72 65 79  28 69 63 6f 6e 25 29 0d  |.sungrey(icon%).|
00008d90  29 ae 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 29 b8  |).... icon% ..).|
00008da0  15 c9 20 33 37 3a 69 6e  64 25 3f 33 37 35 39 3d  |.. 37:ind%?3759=|
00008db0  35 33 0d 29 c2 15 c9 20  33 38 3a 69 6e 64 25 3f  |53.)... 38:ind%?|
00008dc0  33 37 36 39 3d 35 34 0d  29 cc 05 cb 0d 29 d6 54  |3769=54.)....).T|
00008dd0  21 65 25 3d 6d 69 64 73  74 61 72 74 25 3a 65 25  |!e%=midstart%:e%|
00008de0  21 34 3d 69 63 6f 6e 25  3a 65 25 21 38 3d 26 37  |!4=icon%:e%!8=&7|
00008df0  30 30 33 30 30 30 3a 65  25 21 31 32 3d 26 46 30  |003000:e%!12=&F0|
00008e00  30 46 30 30 30 3a c8 99  20 22 57 69 6d 70 5f 53  |0F000:.. "Wimp_S|
00008e10  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 65 25  |etIconState",,e%|
00008e20  0d 29 e0 05 e1 0d 29 ea  05 3a 0d 29 f4 0f dd f2  |.)....)..:.)....|
00008e30  6c 61 73 74 73 74 61 72  74 0d 29 fe 5b 69 6e 64  |laststart.).[ind|
00008e40  25 3f 33 38 30 30 3d 35  34 3a 21 65 25 3d 6d 69  |%?3800=54:!e%=mi|
00008e50  64 73 74 61 72 74 25 3a  65 25 21 34 3d 34 30 3a  |dstart%:e%!4=40:|
00008e60  65 25 21 38 3d 30 3a 65  25 21 31 32 3d 30 3a c8  |e%!8=0:e%!12=0:.|
00008e70  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00008e80  74 61 74 65 22 2c 2c 65  25 3a f2 73 67 72 65 79  |tate",,e%:.sgrey|
00008e90  28 33 38 29 0d 2a 08 05  e1 0d 2a 12 05 3a 0d 2a  |(38).*....*..:.*|
00008ea0  1c 10 dd f2 6e 6c 61 73  74 73 74 61 72 74 0d 2a  |....nlaststart.*|
00008eb0  26 5d 69 6e 64 25 3f 33  38 30 30 3d 35 33 3a 21  |&]ind%?3800=53:!|
00008ec0  65 25 3d 6d 69 64 73 74  61 72 74 25 3a 65 25 21  |e%=midstart%:e%!|
00008ed0  34 3d 34 30 3a 65 25 21  38 3d 30 3a 65 25 21 31  |4=40:e%!8=0:e%!1|
00008ee0  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
00008ef0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 65 25 3a f2  |IconState",,e%:.|
00008f00  73 75 6e 67 72 65 79 28  33 38 29 0d 2a 30 05 e1  |sungrey(38).*0..|
00008f10  0d 2a 3a 05 3a 0d 2a 44  17 dd f2 66 69 6c 6c 73  |.*:.:.*D...fills|
00008f20  74 61 72 74 28 63 61 72  65 74 25 29 0d 2a 4e 67  |tart(caret%).*Ng|
00008f30  24 28 69 6e 64 25 2b 33  34 30 30 29 3d a4 64 61  |$(ind%+3400)=.da|
00008f40  79 28 7a 64 61 74 65 25  2c 7a 6d 6f 6e 74 68 25  |y(zdate%,zmonth%|
00008f50  2c 7a 79 65 61 72 25 29  2b 22 2c 20 22 2b c3 28  |,zyear%)+", "+.(|
00008f60  7a 64 61 74 65 25 29 2b  a4 74 68 28 7a 64 61 74  |zdate%)+.th(zdat|
00008f70  65 25 29 2b 22 20 22 2b  a4 6d 6f 6e 74 68 28 7a  |e%)+" "+.month(z|
00008f80  6d 6f 6e 74 68 25 29 2b  22 20 22 2b c3 7a 79 65  |month%)+" "+.zye|
00008f90  61 72 25 0d 2a 58 a0 24  28 69 6e 64 25 2b 33 34  |ar%.*X.$(ind%+34|
00008fa0  38 39 29 3d 7a 6e 61 6d  65 24 28 73 74 65 61 6d  |89)=zname$(steam|
00008fb0  25 29 3a 24 28 69 6e 64  25 2b 33 35 34 37 29 3d  |%):$(ind%+3547)=|
00008fc0  c3 7a 77 69 25 28 73 74  65 61 6d 25 29 3a 24 28  |.zwi%(steam%):$(|
00008fd0  69 6e 64 25 2b 33 35 39  37 29 3d c3 7a 64 72 25  |ind%+3597)=.zdr%|
00008fe0  28 73 74 65 61 6d 25 29  3a 24 28 69 6e 64 25 2b  |(steam%):$(ind%+|
00008ff0  33 36 34 37 29 3d c3 7a  6c 6f 25 28 73 74 65 61  |3647)=.zlo%(stea|
00009000  6d 25 29 3a 24 28 69 6e  64 25 2b 33 36 39 37 29  |m%):$(ind%+3697)|
00009010  3d a4 73 69 67 6e 28 7a  67 64 25 28 73 74 65 61  |=.sign(zgd%(stea|
00009020  6d 25 29 29 2b c3 94 7a  67 64 25 28 73 74 65 61  |m%))+..zgd%(stea|
00009030  6d 25 29 0d 2a 62 bb 24  28 69 6e 64 25 2b 33 37  |m%).*b.$(ind%+37|
00009040  32 38 29 3d c3 28 7a 77  69 25 28 73 74 65 61 6d  |28)=.(zwi%(steam|
00009050  25 29 2b 7a 64 72 25 28  73 74 65 61 6d 25 29 2b  |%)+zdr%(steam%)+|
00009060  7a 6c 6f 25 28 73 74 65  61 6d 25 29 29 3a 24 28  |zlo%(steam%)):$(|
00009070  69 6e 64 25 2b 33 37 33  31 29 3d c3 7a 77 69 25  |ind%+3731)=.zwi%|
00009080  28 73 74 65 61 6d 25 29  3a 24 28 69 6e 64 25 2b  |(steam%):$(ind%+|
00009090  33 37 33 34 29 3d c3 7a  64 72 25 28 73 74 65 61  |3734)=.zdr%(stea|
000090a0  6d 25 29 3a 24 28 69 6e  64 25 2b 33 37 33 37 29  |m%):$(ind%+3737)|
000090b0  3d c3 7a 6c 6f 25 28 73  74 65 61 6d 25 29 3a 24  |=.zlo%(steam%):$|
000090c0  28 69 6e 64 25 2b 33 37  34 30 29 3d a4 73 69 67  |(ind%+3740)=.sig|
000090d0  6e 28 7a 67 64 25 28 73  74 65 61 6d 25 29 29 2b  |n(zgd%(steam%))+|
000090e0  c3 94 7a 67 64 25 28 73  74 65 61 6d 25 29 0d 2a  |..zgd%(steam%).*|
000090f0  6c 31 24 28 69 6e 64 25  2b 33 37 34 35 29 3d c3  |l1$(ind%+3745)=.|
00009100  28 28 33 2a 7a 77 69 25  28 73 74 65 61 6d 25 29  |((3*zwi%(steam%)|
00009110  29 2b 7a 64 72 25 28 73  74 65 61 6d 25 29 29 0d  |)+zdr%(steam%)).|
00009120  2a 76 1d 24 28 69 6e 64  25 2b 33 38 30 32 29 3d  |*v.$(ind%+3802)=|
00009130  7a 6c 65 61 67 75 65 6e  61 6d 65 24 0d 2a 80 0e  |zleaguename$.*..|
00009140  e7 20 63 61 72 65 74 25  20 8c 0d 2a 8a 27 e7 20  |. caret% ..*.'. |
00009150  bb a4 7a 65 72 6f 28 69  6e 64 25 2b 33 35 34 37  |..zero(ind%+3547|
00009160  29 3d 30 20 8c 20 69 6e  64 25 3f 33 35 34 37 3d  |)=0 . ind%?3547=|
00009170  30 0d 2a 94 40 c8 99 20  22 57 69 6d 70 5f 53 65  |0.*.@.. "Wimp_Se|
00009180  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00009190  6d 69 64 73 74 61 72 74  25 2c 31 34 2c 2c 2c 2d  |midstart%,14,,,-|
000091a0  31 2c a4 6c 65 6e 28 69  6e 64 25 2b 33 35 34 37  |1,.len(ind%+3547|
000091b0  29 0d 2a 9e 05 cc 0d 2a  a8 22 c8 99 20 22 57 69  |).*....*.".. "Wi|
000091c0  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
000091d0  69 6f 6e 22 2c 2c 62 25  0d 2a b2 15 e7 20 21 62  |ion",,b%.*... !b|
000091e0  25 3d 6d 69 64 73 74 61  72 74 25 20 8c 0d 2a bc  |%=midstart% ..*.|
000091f0  4f e7 20 bb a4 7a 65 72  6f 28 69 6e 64 25 2b 33  |O. ..zero(ind%+3|
00009200  35 34 37 2b 28 28 28 62  25 21 34 29 2d 31 34 29  |547+(((b%!4)-14)|
00009210  2a 35 30 2f 33 29 29 3d  30 20 8c 20 69 6e 64 25  |*50/3))=0 . ind%|
00009220  3f 28 33 35 34 37 2b 28  28 28 62 25 21 34 29 2d  |?(3547+(((b%!4)-|
00009230  31 34 29 2a 35 30 2f 33  29 29 3d 30 0d 2a c6 55  |14)*50/3))=0.*.U|
00009240  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00009250  74 50 6f 73 69 74 69 6f  6e 22 2c 6d 69 64 73 74  |tPosition",midst|
00009260  61 72 74 25 2c 62 25 21  34 2c 2c 2c 2d 31 2c a4  |art%,b%!4,,,-1,.|
00009270  6c 65 6e 28 69 6e 64 25  2b 33 35 34 37 2b 28 28  |len(ind%+3547+((|
00009280  28 62 25 21 34 29 2d 31  34 29 2a 35 30 2f 33 29  |(b%!4)-14)*50/3)|
00009290  29 0d 2a d0 05 cd 0d 2a  da 05 cd 0d 2a e4 ce 21  |).*....*....*..!|
000092a0  62 25 3d 6d 69 64 73 74  61 72 74 25 3a 62 25 21  |b%=midstart%:b%!|
000092b0  34 3d 35 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |4=5:b%!8=0:b%!12|
000092c0  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
000092d0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 62 25  |conState",,b%:b%|
000092e0  21 34 3d 31 34 3a c8 99  20 22 57 69 6d 70 5f 53  |!4=14:.. "Wimp_S|
000092f0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
00009300  3a 62 25 21 34 3d 31 37  3a c8 99 20 22 57 69 6d  |:b%!4=17:.. "Wim|
00009310  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00009320  2c 62 25 3a 62 25 21 34  3d 32 30 3a c8 99 20 22  |,b%:b%!4=20:.. "|
00009330  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00009340  65 22 2c 2c 62 25 3a 62  25 21 34 3d 32 33 3a c8  |e",,b%:b%!4=23:.|
00009350  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00009360  74 61 74 65 22 2c 2c 62  25 0d 2a ee d5 62 25 21  |tate",,b%.*..b%!|
00009370  34 3d 33 31 3a c8 99 20  22 57 69 6d 70 5f 53 65  |4=31:.. "Wimp_Se|
00009380  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 3a  |tIconState",,b%:|
00009390  62 25 21 34 3d 33 32 3a  c8 99 20 22 57 69 6d 70  |b%!4=32:.. "Wimp|
000093a0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000093b0  62 25 3a 62 25 21 34 3d  33 33 3a c8 99 20 22 57  |b%:b%!4=33:.. "W|
000093c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000093d0  22 2c 2c 62 25 3a 62 25  21 34 3d 33 34 3a c8 99  |",,b%:b%!4=34:..|
000093e0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000093f0  61 74 65 22 2c 2c 62 25  3a 62 25 21 34 3d 33 35  |ate",,b%:b%!4=35|
00009400  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00009410  6e 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 34  |nState",,b%:b%!4|
00009420  3d 33 36 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |=36:.. "Wimp_Set|
00009430  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 2a  |IconState",,b%.*|
00009440  f8 2a e7 20 73 74 65 61  6d 25 3d 31 20 8c 20 f2  |.*. steam%=1 . .|
00009450  73 67 72 65 79 28 33 37  29 20 8b 20 f2 73 75 6e  |sgrey(37) . .sun|
00009460  67 72 65 79 28 33 37 29  0d 2b 02 2e e7 20 73 74  |grey(37).+... st|
00009470  65 61 6d 25 3d 74 65 61  6d 73 25 20 8c 20 f2 6c  |eam%=teams% . .l|
00009480  61 73 74 73 74 61 72 74  20 8b 20 f2 6e 6c 61 73  |aststart . .nlas|
00009490  74 73 74 61 72 74 0d 2b  0c 05 e1 0d 2b 16 05 3a  |tstart.+....+..:|
000094a0  0d 2b 20 0f dd f2 6f 70  65 6e 73 74 61 72 74 0d  |.+ ...openstart.|
000094b0  2b 2a 6c 21 62 25 3d 6d  69 64 73 74 61 72 74 25  |+*l!b%=midstart%|
000094c0  3a 62 25 21 34 3d 33 39  3a 62 25 21 38 3d 30 3a  |:b%!4=39:b%!8=0:|
000094d0  62 25 21 31 32 3d 26 32  30 30 30 30 30 3a c8 99  |b%!12=&200000:..|
000094e0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000094f0  61 74 65 22 2c 2c 62 25  3a 62 25 21 34 3d 34 30  |ate",,b%:b%!4=40|
00009500  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00009510  6e 53 74 61 74 65 22 2c  2c 62 25 0d 2b 34 42 c8  |nState",,b%.+4B.|
00009520  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00009530  77 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 32  |wState",,b%:b%!2|
00009540  38 3d 2d 31 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |8=-1:.. "Wimp_Op|
00009550  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 2b 3e  |enWindow",,b%.+>|
00009560  05 e1 0d 2b 48 05 3a 0d  2b 52 1b dd f2 72 65 73  |...+H.:.+R...res|
00009570  74 61 72 74 28 66 6c 61  67 25 2c 63 61 72 65 74  |tart(flag%,caret|
00009580  25 29 0d 2b 5c 2d ea 20  6c 61 25 2c 6c 62 25 2c  |%).+\-. la%,lb%,|
00009590  6c 63 25 2c 6c 64 25 2c  6c 65 25 2c 6c 66 25 2c  |lc%,ld%,le%,lf%,|
000095a0  6c 67 25 2c 6c 68 25 2c  6c 69 25 2c 6c 6a 25 0d  |lg%,lh%,li%,lj%.|
000095b0  2b 66 0f e7 20 66 6c 61  67 25 80 31 20 8c 0d 2b  |+f.. flag%.1 ..+|
000095c0  70 9e 24 28 69 6e 64 25  2b 33 35 34 37 29 3d c3  |p.$(ind%+3547)=.|
000095d0  7a 77 69 25 28 73 74 65  61 6d 25 29 3a 24 28 69  |zwi%(steam%):$(i|
000095e0  6e 64 25 2b 33 37 33 31  29 3d c3 7a 77 69 25 28  |nd%+3731)=.zwi%(|
000095f0  73 74 65 61 6d 25 29 3a  24 28 69 6e 64 25 2b 33  |steam%):$(ind%+3|
00009600  37 32 38 29 3d c3 28 7a  77 69 25 28 73 74 65 61  |728)=.(zwi%(stea|
00009610  6d 25 29 2b 7a 64 72 25  28 73 74 65 61 6d 25 29  |m%)+zdr%(steam%)|
00009620  2b 7a 6c 6f 25 28 73 74  65 61 6d 25 29 29 3a 24  |+zlo%(steam%)):$|
00009630  28 69 6e 64 25 2b 33 37  34 35 29 3d c3 28 28 33  |(ind%+3745)=.((3|
00009640  2a 7a 77 69 25 28 73 74  65 61 6d 25 29 29 2b 7a  |*zwi%(steam%))+z|
00009650  64 72 25 28 73 74 65 61  6d 25 29 29 0d 2b 7a 1f  |dr%(steam%)).+z.|
00009660  6c 61 25 3d 2d 31 3a 6c  65 25 3d 2d 31 3a 6c 66  |la%=-1:le%=-1:lf|
00009670  25 3d 2d 31 3a 6c 6a 25  3d 2d 31 0d 2b 84 05 cd  |%=-1:lj%=-1.+...|
00009680  0d 2b 8e 0f e7 20 66 6c  61 67 25 80 32 20 8c 0d  |.+... flag%.2 ..|
00009690  2b 98 9e 24 28 69 6e 64  25 2b 33 35 39 37 29 3d  |+..$(ind%+3597)=|
000096a0  c3 7a 64 72 25 28 73 74  65 61 6d 25 29 3a 24 28  |.zdr%(steam%):$(|
000096b0  69 6e 64 25 2b 33 37 32  38 29 3d c3 28 7a 77 69  |ind%+3728)=.(zwi|
000096c0  25 28 73 74 65 61 6d 25  29 2b 7a 64 72 25 28 73  |%(steam%)+zdr%(s|
000096d0  74 65 61 6d 25 29 2b 7a  6c 6f 25 28 73 74 65 61  |team%)+zlo%(stea|
000096e0  6d 25 29 29 3a 24 28 69  6e 64 25 2b 33 37 33 34  |m%)):$(ind%+3734|
000096f0  29 3d c3 7a 64 72 25 28  73 74 65 61 6d 25 29 3a  |)=.zdr%(steam%):|
00009700  24 28 69 6e 64 25 2b 33  37 34 35 29 3d c3 28 28  |$(ind%+3745)=.((|
00009710  33 2a 7a 77 69 25 28 73  74 65 61 6d 25 29 29 2b  |3*zwi%(steam%))+|
00009720  7a 64 72 25 28 73 74 65  61 6d 25 29 29 0d 2b a2  |zdr%(steam%)).+.|
00009730  1f 6c 62 25 3d 2d 31 3a  6c 65 25 3d 2d 31 3a 6c  |.lb%=-1:le%=-1:l|
00009740  67 25 3d 2d 31 3a 6c 6a  25 3d 2d 31 0d 2b ac 05  |g%=-1:lj%=-1.+..|
00009750  cd 0d 2b b6 0f e7 20 66  6c 61 67 25 80 34 20 8c  |..+... flag%.4 .|
00009760  0d 2b c0 9e 24 28 69 6e  64 25 2b 33 36 34 37 29  |.+..$(ind%+3647)|
00009770  3d c3 7a 6c 6f 25 28 73  74 65 61 6d 25 29 3a 24  |=.zlo%(steam%):$|
00009780  28 69 6e 64 25 2b 33 37  32 38 29 3d c3 28 7a 77  |(ind%+3728)=.(zw|
00009790  69 25 28 73 74 65 61 6d  25 29 2b 7a 64 72 25 28  |i%(steam%)+zdr%(|
000097a0  73 74 65 61 6d 25 29 2b  7a 6c 6f 25 28 73 74 65  |steam%)+zlo%(ste|
000097b0  61 6d 25 29 29 3a 24 28  69 6e 64 25 2b 33 37 33  |am%)):$(ind%+373|
000097c0  37 29 3d c3 7a 6c 6f 25  28 73 74 65 61 6d 25 29  |7)=.zlo%(steam%)|
000097d0  3a 24 28 69 6e 64 25 2b  33 37 34 35 29 3d c3 28  |:$(ind%+3745)=.(|
000097e0  28 33 2a 7a 77 69 25 28  73 74 65 61 6d 25 29 29  |(3*zwi%(steam%))|
000097f0  2b 7a 64 72 25 28 73 74  65 61 6d 25 29 29 0d 2b  |+zdr%(steam%)).+|
00009800  ca 1f 6c 63 25 3d 2d 31  3a 6c 65 25 3d 2d 31 3a  |..lc%=-1:le%=-1:|
00009810  6c 68 25 3d 2d 31 3a 6c  6a 25 3d 2d 31 0d 2b d4  |lh%=-1:lj%=-1.+.|
00009820  05 cd 0d 2b de 0f e7 20  66 6c 61 67 25 80 38 20  |...+... flag%.8 |
00009830  8c 0d 2b e8 63 24 28 69  6e 64 25 2b 33 36 39 37  |..+.c$(ind%+3697|
00009840  29 3d a4 73 69 67 6e 28  7a 67 64 25 28 73 74 65  |)=.sign(zgd%(ste|
00009850  61 6d 25 29 29 2b c3 94  7a 67 64 25 28 73 74 65  |am%))+..zgd%(ste|
00009860  61 6d 25 29 3a 24 28 69  6e 64 25 2b 33 37 34 30  |am%):$(ind%+3740|
00009870  29 3d a4 73 69 67 6e 28  7a 67 64 25 28 73 74 65  |)=.sign(zgd%(ste|
00009880  61 6d 25 29 29 2b c3 94  7a 67 64 25 28 73 74 65  |am%))+..zgd%(ste|
00009890  61 6d 25 29 0d 2b f2 11  6c 64 25 3d 2d 31 3a 6c  |am%).+..ld%=-1:l|
000098a0  69 25 3d 2d 31 0d 2b fc  05 cd 0d 2c 06 20 21 65  |i%=-1.+....,. !e|
000098b0  25 3d 6d 69 64 73 74 61  72 74 25 3a 65 25 21 38  |%=midstart%:e%!8|
000098c0  3d 30 3a 65 25 21 31 32  3d 30 0d 2c 10 2e e7 20  |=0:e%!12=0.,... |
000098d0  6c 61 25 20 8c 20 65 25  21 34 3d 31 34 3a c8 99  |la% . e%!4=14:..|
000098e0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000098f0  61 74 65 22 2c 2c 65 25  0d 2c 1a 2e e7 20 6c 62  |ate",,e%.,... lb|
00009900  25 20 8c 20 65 25 21 34  3d 31 37 3a c8 99 20 22  |% . e%!4=17:.. "|
00009910  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00009920  65 22 2c 2c 65 25 0d 2c  24 2e e7 20 6c 63 25 20  |e",,e%.,$.. lc% |
00009930  8c 20 65 25 21 34 3d 32  30 3a c8 99 20 22 57 69  |. e%!4=20:.. "Wi|
00009940  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00009950  2c 2c 65 25 0d 2c 2e 2e  e7 20 6c 64 25 20 8c 20  |,,e%.,... ld% . |
00009960  65 25 21 34 3d 32 33 3a  c8 99 20 22 57 69 6d 70  |e%!4=23:.. "Wimp|
00009970  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00009980  65 25 0d 2c 38 2e e7 20  6c 65 25 20 8c 20 65 25  |e%.,8.. le% . e%|
00009990  21 34 3d 33 31 3a c8 99  20 22 57 69 6d 70 5f 53  |!4=31:.. "Wimp_S|
000099a0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 65 25  |etIconState",,e%|
000099b0  0d 2c 42 2e e7 20 6c 66  25 20 8c 20 65 25 21 34  |.,B.. lf% . e%!4|
000099c0  3d 33 32 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |=32:.. "Wimp_Set|
000099d0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 65 25 0d 2c  |IconState",,e%.,|
000099e0  4c 2e e7 20 6c 67 25 20  8c 20 65 25 21 34 3d 33  |L.. lg% . e%!4=3|
000099f0  33 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |3:.. "Wimp_SetIc|
00009a00  6f 6e 53 74 61 74 65 22  2c 2c 65 25 0d 2c 56 2e  |onState",,e%.,V.|
00009a10  e7 20 6c 68 25 20 8c 20  65 25 21 34 3d 33 34 3a  |. lh% . e%!4=34:|
00009a20  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00009a30  53 74 61 74 65 22 2c 2c  65 25 0d 2c 60 2e e7 20  |State",,e%.,`.. |
00009a40  6c 69 25 20 8c 20 65 25  21 34 3d 33 35 3a c8 99  |li% . e%!4=35:..|
00009a50  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00009a60  61 74 65 22 2c 2c 65 25  0d 2c 6a 2e e7 20 6c 6a  |ate",,e%.,j.. lj|
00009a70  25 20 8c 20 65 25 21 34  3d 33 36 3a c8 99 20 22  |% . e%!4=36:.. "|
00009a80  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00009a90  65 22 2c 2c 65 25 0d 2c  74 10 e7 20 63 61 72 65  |e",,e%.,t.. care|
00009aa0  74 25 3d 30 20 8c 0d 2c  7e 22 c8 99 20 22 57 69  |t%=0 ..,~".. "Wi|
00009ab0  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00009ac0  69 6f 6e 22 2c 2c 62 25  0d 2c 88 67 e7 20 21 62  |ion",,b%.,.g. !b|
00009ad0  25 3d 6d 69 64 73 74 61  72 74 25 20 8c 20 c8 99  |%=midstart% . ..|
00009ae0  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00009af0  6f 73 69 74 69 6f 6e 22  2c 6d 69 64 73 74 61 72  |osition",midstar|
00009b00  74 25 2c 62 25 21 34 2c  2c 2c 2d 31 2c a4 6c 65  |t%,b%!4,,,-1,.le|
00009b10  6e 28 69 6e 64 25 2b 33  35 34 37 2b 28 28 28 62  |n(ind%+3547+(((b|
00009b20  25 21 34 29 2d 31 34 29  2a 35 30 2f 33 29 29 0d  |%!4)-14)*50/3)).|
00009b30  2c 92 05 cc 0d 2c 9c 41  e7 20 bb a4 7a 65 72 6f  |,....,.A. ..zero|
00009b40  28 69 6e 64 25 2b 33 35  34 37 2b 28 63 61 72 65  |(ind%+3547+(care|
00009b50  74 25 2a 35 30 29 29 3d  30 20 8c 20 69 6e 64 25  |t%*50))=0 . ind%|
00009b60  3f 28 33 35 34 37 2b 28  63 61 72 65 74 25 2a 35  |?(3547+(caret%*5|
00009b70  30 29 29 3d 30 0d 2c a6  4e 21 62 25 3d 6d 69 64  |0))=0.,.N!b%=mid|
00009b80  73 74 61 72 74 25 3a 62  25 21 34 3d 31 34 2b 28  |start%:b%!4=14+(|
00009b90  63 61 72 65 74 25 2a 33  29 3a 62 25 21 38 3d 30  |caret%*3):b%!8=0|
00009ba0  3a 62 25 21 31 32 3d 30  3a c8 99 20 22 57 69 6d  |:b%!12=0:.. "Wim|
00009bb0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00009bc0  2c 62 25 0d 2c b0 57 c8  99 20 22 57 69 6d 70 5f  |,b%.,.W.. "Wimp_|
00009bd0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00009be0  22 2c 6d 69 64 73 74 61  72 74 25 2c 31 34 2b 28  |",midstart%,14+(|
00009bf0  63 61 72 65 74 25 2a 33  29 2c 2c 2c 2d 31 2c a4  |caret%*3),,,-1,.|
00009c00  6c 65 6e 28 69 6e 64 25  2b 33 35 34 37 2b 28 63  |len(ind%+3547+(c|
00009c10  61 72 65 74 25 2a 35 30  29 29 0d 2c ba 05 cd 0d  |aret%*50)).,....|
00009c20  2c c4 05 e1 0d 2c ce 05  3a 0d 2c d8 0f dd f2 63  |,....,..:.,....c|
00009c30  6c 69 63 6b 74 65 61 6d  0d 2c e2 11 ea 20 6c 25  |lickteam.,... l%|
00009c40  3a 6c 25 3d 62 25 21 31  36 0d 2c ec 82 e7 20 72  |:l%=b%!16.,... r|
00009c50  25 3d 31 20 8c 20 74 31  25 3d 72 65 73 25 28 62  |%=1 . t1%=res%(b|
00009c60  25 21 31 36 29 3a 24 28  69 6e 64 25 2b 32 35 36  |%!16):$(ind%+256|
00009c70  34 29 3d 6e 61 6d 65 24  28 74 31 25 29 3a f2 69  |4)=name$(t1%):.i|
00009c80  6e 66 6f 32 3a f2 75 6e  73 65 74 28 6c 25 29 20  |nfo2:.unset(l%) |
00009c90  8b 20 74 32 25 3d 72 65  73 25 28 62 25 21 31 36  |. t2%=res%(b%!16|
00009ca0  29 3a 24 28 69 6e 64 25  2b 32 35 39 30 29 3d 6e  |):$(ind%+2590)=n|
00009cb0  61 6d 65 24 28 74 32 25  29 3a f2 69 6e 66 6f 34  |ame$(t2%):.info4|
00009cc0  3a f2 75 6e 73 65 74 28  6c 25 29 0d 2c f6 05 e1  |:.unset(l%).,...|
00009cd0  0d 2d 00 05 3a 0d 2d 0a  0d dd f2 73 70 65 63 69  |.-..:.-....speci|
00009ce0  61 6c 0d 2d 14 08 ea 20  6c 25 0d 2d 1e 10 f2 72  |al.-... l%.-...r|
00009cf0  61 64 69 6f 28 31 36 2c  30 29 0d 2d 28 4e 21 62  |adio(16,0).-(N!b|
00009d00  25 3d 73 70 65 63 69 61  6c 25 3a 62 25 21 34 3d  |%=special%:b%!4=|
00009d10  31 36 3a 62 25 21 38 3d  26 32 30 30 30 30 30 3a  |16:b%!8=&200000:|
00009d20  62 25 21 31 32 3d 26 32  30 30 30 30 30 3a c8 99  |b%!12=&200000:..|
00009d30  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00009d40  61 74 65 22 2c 2c 62 25  0d 2d 32 3c 62 25 21 38  |ate",,b%.-2<b%!8|
00009d50  3d 30 3a e3 20 6c 25 3d  31 37 20 b8 20 32 30 3a  |=0:. l%=17 . 20:|
00009d60  62 25 21 34 3d 6c 25 3a  c8 99 20 22 57 69 6d 70  |b%!4=l%:.. "Wimp|
00009d70  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00009d80  62 25 3a ed 0d 2d 3c 50  62 25 21 38 3d 26 34 30  |b%:..-<Pb%!8=&40|
00009d90  30 30 30 30 3a 62 25 21  31 32 3d 26 34 30 46 30  |0000:b%!12=&40F0|
00009da0  30 30 3a e3 20 6c 25 3d  31 30 20 b8 20 31 35 3a  |00:. l%=10 . 15:|
00009db0  62 25 21 34 3d 6c 25 3a  c8 99 20 22 57 69 6d 70  |b%!4=l%:.. "Wimp|
00009dc0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00009dd0  62 25 3a ed 0d 2d 46 1b  24 28 69 6e 64 25 2b 31  |b%:..-F.$(ind%+1|
00009de0  35 32 34 29 3d 6e 61 6d  65 24 28 74 31 25 29 0d  |524)=name$(t1%).|
00009df0  2d 50 66 24 28 69 6e 64  25 2b 31 35 35 30 29 3d  |-Pf$(ind%+1550)=|
00009e00  a4 64 61 79 28 72 64 61  74 65 25 2c 72 6d 6f 6e  |.day(rdate%,rmon|
00009e10  74 68 25 2c 72 79 65 61  72 25 29 2b 22 20 22 2b  |th%,ryear%)+" "+|
00009e20  c3 28 72 64 61 74 65 25  29 2b a4 74 68 28 72 64  |.(rdate%)+.th(rd|
00009e30  61 74 65 25 29 2b 22 20  22 2b a4 6d 6f 6e 74 68  |ate%)+" "+.month|
00009e40  28 72 6d 6f 6e 74 68 25  29 2b 22 20 22 2b c3 72  |(rmonth%)+" "+.r|
00009e50  79 65 61 72 25 0d 2d 5a  25 24 28 69 6e 64 25 2b  |year%.-Z%$(ind%+|
00009e60  31 35 38 33 29 3d 22 32  22 3a 24 28 69 6e 64 25  |1583)="2":$(ind%|
00009e70  2b 31 36 33 33 29 3d 22  32 22 0d 2d 64 48 c8 99  |+1633)="2".-dH..|
00009e80  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00009e90  72 49 6e 66 6f 22 2c 2c  62 25 3a c8 99 20 22 57  |rInfo",,b%:.. "W|
00009ea0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00009eb0  2c 73 70 65 63 69 61 6c  25 2c 21 62 25 2c 62 25  |,special%,!b%,b%|
00009ec0  21 34 0d 2d 6e 31 c8 99  20 22 57 69 6d 70 5f 53  |!4.-n1.. "Wimp_S|
00009ed0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00009ee0  2c 73 70 65 63 69 61 6c  25 2c 32 33 2c 2c 2c 2d  |,special%,23,,,-|
00009ef0  31 2c 30 0d 2d 78 05 e1  0d 2d 82 05 3a 0d 2d 8c  |1,0.-x...-..:.-.|
00009f00  19 dd f2 72 61 64 69 6f  28 69 63 6f 6e 25 2c 63  |...radio(icon%,c|
00009f10  61 72 65 74 25 29 0d 2d  96 51 21 62 25 3d 73 70  |aret%).-.Q!b%=sp|
00009f20  65 63 69 61 6c 25 3a 62  25 21 34 3d 69 63 6f 6e  |ecial%:b%!4=icon|
00009f30  25 3a 62 25 21 38 3d 26  32 30 30 30 30 30 3a 62  |%:b%!8=&200000:b|
00009f40  25 21 31 32 3d 26 32 30  30 30 30 30 3a c8 99 20  |%!12=&200000:.. |
00009f50  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00009f60  74 65 22 2c 2c 62 25 0d  2d a0 15 e7 20 69 63 6f  |te",,b%.-... ico|
00009f70  6e 25 3c 3e 72 61 64 69  6f 25 20 8c 0d 2d aa 31  |n%<>radio% ..-.1|
00009f80  62 25 21 34 3d 72 61 64  69 6f 25 3a 62 25 21 38  |b%!4=radio%:b%!8|
00009f90  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00009fa0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 2d b4  |conState",,b%.-.|
00009fb0  0f c8 8e 20 72 61 64 69  6f 25 20 ca 0d 2d be 8e  |... radio% ..-..|
00009fc0  c9 20 31 39 3a 62 25 21  38 3d 26 34 30 30 30 30  |. 19:b%!8=&40000|
00009fd0  30 3a 62 25 21 31 32 3d  26 34 30 46 30 30 30 3a  |0:b%!12=&40F000:|
00009fe0  e3 20 6c 25 3d 31 30 20  b8 20 31 32 3a 62 25 21  |. l%=10 . 12:b%!|
00009ff0  34 3d 6c 25 3a c8 99 20  22 57 69 6d 70 5f 53 65  |4=l%:.. "Wimp_Se|
0000a000  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 3a  |tIconState",,b%:|
0000a010  ed 3a e7 20 63 61 72 65  74 25 20 8c 20 c8 99 20  |.:. caret% . .. |
0000a020  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
0000a030  73 69 74 69 6f 6e 22 2c  73 70 65 63 69 61 6c 25  |sition",special%|
0000a040  2c 32 33 2c 2c 2c 2d 31  2c 30 0d 2d c8 8e c9 20  |,23,,,-1,0.-... |
0000a050  32 30 3a 62 25 21 38 3d  26 34 30 30 30 30 30 3a  |20:b%!8=&400000:|
0000a060  62 25 21 31 32 3d 26 34  30 46 30 30 30 3a e3 20  |b%!12=&40F000:. |
0000a070  6c 25 3d 31 33 20 b8 20  31 35 3a 62 25 21 34 3d  |l%=13 . 15:b%!4=|
0000a080  6c 25 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |l%:.. "Wimp_SetI|
0000a090  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a ed 3a  |conState",,b%:.:|
0000a0a0  e7 20 63 61 72 65 74 25  20 8c 20 c8 99 20 22 57  |. caret% . .. "W|
0000a0b0  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
0000a0c0  74 69 6f 6e 22 2c 73 70  65 63 69 61 6c 25 2c 32  |tion",special%,2|
0000a0d0  33 2c 2c 2c 2d 31 2c 30  0d 2d d2 05 cb 0d 2d dc  |3,,,-1,0.-....-.|
0000a0e0  0e c8 8e 20 69 63 6f 6e  25 20 ca 0d 2d e6 95 c9  |... icon% ..-...|
0000a0f0  20 31 39 3a 62 25 21 38  3d 26 46 30 30 30 3a 62  | 19:b%!8=&F000:b|
0000a100  25 21 31 32 3d 26 34 30  46 30 30 30 3a 62 25 21  |%!12=&40F000:b%!|
0000a110  34 3d 31 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |4=10:.. "Wimp_Se|
0000a120  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 3a  |tIconState",,b%:|
0000a130  62 25 21 38 3d 26 32 30  30 30 3a 62 25 21 34 3d  |b%!8=&2000:b%!4=|
0000a140  31 31 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |11:.. "Wimp_SetI|
0000a150  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 62 25  |conState",,b%:b%|
0000a160  21 34 3d 31 32 3a c8 99  20 22 57 69 6d 70 5f 53  |!4=12:.. "Wimp_S|
0000a170  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
0000a180  0d 2d f0 95 c9 20 32 30  3a 62 25 21 38 3d 26 46  |.-... 20:b%!8=&F|
0000a190  30 30 30 3a 62 25 21 31  32 3d 26 34 30 46 30 30  |000:b%!12=&40F00|
0000a1a0  30 3a 62 25 21 34 3d 31  33 3a c8 99 20 22 57 69  |0:b%!4=13:.. "Wi|
0000a1b0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
0000a1c0  2c 2c 62 25 3a 62 25 21  38 3d 26 32 30 30 30 3a  |,,b%:b%!8=&2000:|
0000a1d0  62 25 21 34 3d 31 34 3a  c8 99 20 22 57 69 6d 70  |b%!4=14:.. "Wimp|
0000a1e0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
0000a1f0  62 25 3a 62 25 21 34 3d  31 35 3a c8 99 20 22 57  |b%:b%!4=15:.. "W|
0000a200  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
0000a210  22 2c 2c 62 25 0d 2d fa  05 cb 0d 2e 04 10 72 61  |",,b%.-.......ra|
0000a220  64 69 6f 25 3d 69 63 6f  6e 25 0d 2e 0e 05 cd 0d  |dio%=icon%......|
0000a230  2e 18 05 e1 0d 2e 22 05  3a 0d 2e 2c 0f dd f2 6f  |......".:..,...o|
0000a240  6b 73 70 65 63 69 61 6c  0d 2e 36 13 ea 20 74 79  |kspecial..6.. ty|
0000a250  70 65 25 2c 6e 75 6d 62  65 72 25 0d 2e 40 1c c8  |pe%,number%..@..|
0000a260  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
0000a270  6e 75 22 2c 2c 2d 31 0d  2e 4a 13 74 79 70 65 25  |nu",,-1..J.type%|
0000a280  3d 72 61 64 69 6f 25 2d  31 35 0d 2e 54 0e c8 8e  |=radio%-15..T...|
0000a290  20 74 79 70 65 25 20 ca  0d 2e 5e 15 c9 20 31 2c  | type% ...^.. 1,|
0000a2a0  32 2c 33 3a 6e 75 6d 62  65 72 25 3d 30 0d 2e 68  |2,3:number%=0..h|
0000a2b0  55 c9 20 34 3a 6e 75 6d  62 65 72 25 3d bb a4 7a  |U. 4:number%=..z|
0000a2c0  65 72 6f 28 69 6e 64 25  2b 31 35 38 33 29 3a e7  |ero(ind%+1583):.|
0000a2d0  20 6e 75 6d 62 65 72 25  3c 31 20 8c 20 6e 75 6d  | number%<1 . num|
0000a2e0  62 65 72 25 3d 31 20 8b  20 e7 20 6e 75 6d 62 65  |ber%=1 . . numbe|
0000a2f0  72 25 3e 31 35 20 8c 20  6e 75 6d 62 65 72 25 3d  |r%>15 . number%=|
0000a300  31 35 0d 2e 72 55 c9 20  35 3a 6e 75 6d 62 65 72  |15..rU. 5:number|
0000a310  25 3d bb a4 7a 65 72 6f  28 69 6e 64 25 2b 31 36  |%=..zero(ind%+16|
0000a320  33 33 29 3a e7 20 6e 75  6d 62 65 72 25 3c 31 20  |33):. number%<1 |
0000a330  8c 20 6e 75 6d 62 65 72  25 3d 31 20 8b 20 e7 20  |. number%=1 . . |
0000a340  6e 75 6d 62 65 72 25 3e  31 35 20 8c 20 6e 75 6d  |number%>15 . num|
0000a350  62 65 72 25 3d 31 35 0d  2e 7c 05 cb 0d 2e 86 7c  |ber%=15..|.....||
0000a360  64 61 74 61 25 21 70 74  72 25 3d a0 28 22 25 22  |data%!ptr%=.("%"|
0000a370  2b a4 62 69 6e 28 72 64  61 74 65 25 2c 35 29 2b  |+.bin(rdate%,5)+|
0000a380  a4 62 69 6e 28 72 6d 6f  6e 74 68 25 2c 34 29 2b  |.bin(rmonth%,4)+|
0000a390  a4 62 69 6e 28 72 79 65  61 72 25 2d 31 39 39 30  |.bin(ryear%-1990|
0000a3a0  2c 35 29 2b a4 62 69 6e  28 74 31 25 2c 35 29 2b  |,5)+.bin(t1%,5)+|
0000a3b0  a4 62 69 6e 28 30 2c 35  29 2b a4 62 69 6e 28 74  |.bin(0,5)+.bin(t|
0000a3c0  79 70 65 25 2c 34 29 2b  a4 62 69 6e 28 6e 75 6d  |ype%,4)+.bin(num|
0000a3d0  62 65 72 25 2c 34 29 29  0d 2e 90 3f f2 69 6e 66  |ber%,4))...?.inf|
0000a3e0  6f 31 3a 70 74 72 25 2b  3d 34 3a f2 6e 6f 74 73  |o1:ptr%+=4:.nots|
0000a3f0  61 76 65 64 3a 63 75 72  72 65 6e 74 25 3d 70 74  |aved:current%=pt|
0000a400  72 25 2f 34 3a f2 66 69  6c 6c 66 69 6c 65 72 3a  |r%/4:.fillfiler:|
0000a410  f2 75 6e 67 72 65 79 0d  2e 9a 05 e1 0d 2e a4 05  |.ungrey.........|
0000a420  3a 0d 2e ae 12 dd f2 73  70 65 63 69 61 6c 63 61  |:......specialca|
0000a430  72 65 74 0d 2e b8 22 c8  99 20 22 57 69 6d 70 5f  |ret...".. "Wimp_|
0000a440  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
0000a450  22 2c 2c 62 25 0d 2e c2  14 e7 20 21 62 25 3d 73  |",,b%..... !b%=s|
0000a460  70 65 63 69 61 6c 25 20  8c 0d 2e cc 0d c8 8e 20  |pecial% ....... |
0000a470  62 25 21 34 20 ca 0d 2e  d6 44 c9 20 31 30 3a c8  |b%!4 ....D. 10:.|
0000a480  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
0000a490  50 6f 73 69 74 69 6f 6e  22 2c 73 70 65 63 69 61  |Position",specia|
0000a4a0  6c 25 2c 31 30 2c 2c 2c  2d 31 2c a4 6c 65 6e 28  |l%,10,,,-1,.len(|
0000a4b0  69 6e 64 25 2b 31 35 38  33 29 0d 2e e0 44 c9 20  |ind%+1583)...D. |
0000a4c0  31 33 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |13:.. "Wimp_SetC|
0000a4d0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 73 70  |aretPosition",sp|
0000a4e0  65 63 69 61 6c 25 2c 31  33 2c 2c 2c 2d 31 2c a4  |ecial%,13,,,-1,.|
0000a4f0  6c 65 6e 28 69 6e 64 25  2b 31 36 33 33 29 0d 2e  |len(ind%+1633)..|
0000a500  ea 05 cb 0d 2e f4 05 cc  0d 2e fe 31 c8 99 20 22  |...........1.. "|
0000a510  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
0000a520  69 74 69 6f 6e 22 2c 73  70 65 63 69 61 6c 25 2c  |ition",special%,|
0000a530  32 33 2c 2c 2c 2d 31 2c  30 0d 2f 08 05 cd 0d 2f  |23,,,-1,0./..../|
0000a540  12 05 e1 0d ff                                    |.....|
0000a545

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