Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199801_2.adf » Regulars2 » StarInfo/Fletcher/Rawle/!PokerP/!RunImage
StarInfo/Fletcher/Rawle/!PokerP/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199801_2.adf » Regulars2 |
| Filename: | StarInfo/Fletcher/Rawle/!PokerP/!RunImage |
| Read OK: | ✔ |
| File size: | 29E9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ie%=1371
20DIMb%2988,i% ie%,name%12,m1%172,m2%76,m3%100,mi%64
30DIMc%(5,5,1),nc%(25,1),co%(5,1),ct%(14)
40N%=RND(TIME OR &80000000)
50b%?0=3:SYS7,14,b%
60N%=RND(ABS(!b%))
70q%=FALSE:cloth%=0:eascores%=0
80SYS262336,200,&4B534154,"Poker Patience"
90DIMhs$(20,1),hs%(20,1)
100PROCloadscores
110SYS53,-1,5TO,,e%:IFe%<2:e$="22":ELSEe$=""
120FI%=OPENIN("<PokerP$Dir>.Sprites"+e$):spsz%=EXT#FI%+4:CLOSE#FI%
130DIMsp% spsz%:!sp%=spsz%:sp%!8=16
140SYS46,&10A,sp%,"<PokerP$Dir>.Sprites"+e$
150SYS46,&3ETO,,,sas%
160DIMsa% sas%
170SYS262361,,"<PokerP$Dir>.Templates"
180$name%="Info":SYS262363,,b%,i%,i%+ie%,-1,name%,0TO,,ni%,,,,ne%:SYS262337,,b%TOinfo%
190window%=FNltmp("Window"):scores%=FNltmp("Scores"):table%=FNltmp("Table"):message%=FNltmp("Message")
200SYS262362
210!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002:$(b%+24)="!pokerp":SYS262338,,b%TOib%
220PROCcm:PROCeascores:PROCudhs:PROCnewgame
230ONERRORPROCer
240WHILENOTq%
250SYS262343,&1831,b%TOr%
260CASEr%OF
270WHEN1:SYS262344,,b%TOm%:PROCredraw(0,0)
280WHEN2:SYS262341,,b%
290WHEN3:SYS262342,,b%
300WHEN6:PROCcl(b%!12,b%!16,b%!8)
310WHEN8:IF!b%=message% AND b%!4=1 AND b%!24=13:PROCsel(message%,2):PROChsin:PROCdesel(message%,2):ELSESYS"Wimp_ProcessKey",b%!24
320WHEN9:PROCms(!b%,b%!4)
330WHEN17,18:PROCrm
340ENDCASE
350ENDWHILE
360SYS262365
370END
380DEFFNltmp(tname$)
390$name%=tname$:SYS262363,,b%,ni%,i%+ie%,-1,name%,ne% TO,,ni%,,,,ne%:b%!64=sp%:SYS262337,,b% TO thand%
400=thand%
410DEFPROCrm
420CASEb%!16OF
430WHEN0:q%=TRUE
440ENDCASE
450ENDPROC
460DEFPROCer:!b%=ERR:$(b%+4)=REPORT$+CHR$0:SYS262367,b%,1,"Poker Patience"
470ENDPROC
480DEFPROCcm
490LOCALflg%,smp%,mif%,md$,md1%,md2%,md3$,ptr%
500!m1%=mi%+48:m1%!4=-1:m1%!8=16:m1%!12=&70207:m1%!16=240:m1%!20=44:m1%!24=0
510RESTORE+1:ptr%=m1%+28:REPEAT:READflg%,smp%,mif%,md$,md1%,md2%,md3%
520!ptr%=flg%:ptr%!4=smp%:ptr%!8=mif%
530IFmd$<>"":$(ptr%+12)=md$:ELSEptr%!12=md1%:ptr%!16=md2%:ptr%!20=md3%
540$mi%="English scores":$(mi%+16)="American scores":$(mi%+32)="High scores...":$(mi%+48)="Poker Patience"
550DATA&102,info%,&7000021,"Info",0,0,0
560DATA0,m2%,&7000021,"New game",0,0,0
570DATA0,-1,&7000021,"Scores...",0,0,0
580DATA0,-1,&7000121,"",mi%+32,-1,16
590DATA2,m3%,&7000021,"Cloth colour",0,0,0
600DATA&80,-1,&7000021,"Quit",0,0,0
610ptr%+=24
620UNTILflg% AND 128
630$m2%="New game":m2%!12=&70207:m2%!16=256:m2%!20=44:m2%!24=0
640m2%!28=0:m2%!32=-1:m2%!36=&7000121:m2%!40=mi%:m2%!44=-1:m2%!48=16
650m2%!52=&80:m2%!56=-1:m2%!60=&7000121:m2%!64=mi%+16:m2%!68=-1:m2%!72=16
660$m3%="Cloth colour":m3%!12=&70207:m3%!16=192:m3%!20=44:m3%!24=0
670m3%!28=1:m3%!32=-1:m3%!36=&A7000021:$(m3%+40)="Light green"
680m3%!52=0:m3%!56=-1:m3%!60=&D7000021:$(m3%+64)="Dark green"
690m3%!76=&80:m3%!80=-1:m3%!84=&17000021:$(m3%+88)="Grey"
700ENDPROC
710DEFPROCcl(w%,i%,but%)
720CASEw%OF
730WHEN-2:CASEbut%OF
740WHEN1,4:PROCopenw(window%)
750WHEN2:SYS262356,,m1%,!b%-64,408
760ENDCASE
770WHENtable%,scores%:IFbut%=2:SYS262356,,m1%,!b%-64,b%!4
780WHENwindow%:CASEbut%OF
790WHEN1:PROCundo
800WHEN2:SYS262356,,m1%,!b%-64,b%!4
810WHEN4:PROCplace(i%)
820ENDCASE
830WHENmessage%:IFi%=2:PROChsin
840ENDCASE
850ENDPROC
860DEFPROCms(ms0%,ms1%):LOCALbut%
870SYS262351,,b%:but%=b%!8
880CASEms0%OF
890WHEN1:CASEms1%OF
900WHEN0:eascores%=0
910WHEN1:eascores%=1
920ENDCASE
930IFms1%>-1:PROCclosew(scores%):PROCclosew(table%):PROCeascores:PROCudhs
940PROCnewgame:IFNOTFNopen(window%):PROCopenw(window%):ELSE:SYS262353,window%,0,-1024,1072,0
950WHEN2:PROCopenw(scores%)
960WHEN3:PROCopenw(table%)
970WHEN4:IFms1%>-1:!(m3%+28+cloth%*24)-=1:cloth%=ms1%:!(m3%+28+cloth%*24)+=1:PROCcloth
980WHEN5:q%=TRUE
990ENDCASE
1000IFbut%=1:SYS262356,,m1%,0,0
1010ENDPROC
1020DEFPROCopenw(w%):!b%=w%:SYS262347,,b%:b%!28=-1:SYS262341,,b%:ENDPROC
1030DEFPROCclosew(w%):!b%=w%:SYS262342,,b%:ENDPROC
1040DEFPROCtitle(w%,T$):!b%=w%:SYS262348,,b%:$(b%!76)=T$:b%!84=LEN($(b%!76)):ENDPROC
1050DEFPROCeascores:LOCALS$
1060IFeascores%=0:PROCtitle(scores%,"Scores (English)"):ELSEPROCtitle(scores%,"Scores (American)")
1070RESTORE+(1+eascores%)
1080DATA1,3,6,12,5,10,16,30,30
1090DATA2,5,10,15,20,25,50,75,100
1100FORLA%=11TO19:READS$:PROCti(scores%,LA%,S$):NEXT
1110ENDPROC
1120DEFPROCti(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS262350,,b%:$(b%!28)=TX$:ENDPROC
1130DEFPROCtj(win%,icon%,TX$):!b%=win%:b%!4=icon%:SYS262350,,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:SYS262349,,b%:ENDPROC
1140DEFFNread(win%,icon%):!b%=win%:b%!4=icon%:SYS262350,,b%:=$(b%!28)
1150DEFPROCloadscores:LOCALLA%,LB%
1160FI%=OPENIN"<PokerP$Dir>.Scores"
1170FORLA%=0TO1
1180FORLB%=1TO20:INPUT#FI%,hs$(LB%,LA%),hs%(LB%,LA%):NEXTLB%
1190NEXTLA%
1200CLOSE#FI%
1210ENDPROC
1220DEFPROCsavescores:LOCALLA%,LB%
1230FI%=OPENOUT"<PokerP$Dir>.Scores"
1240FORLA%=0TO1
1250FORLB%=1TO20:PRINT#FI%,hs$(LB%,LA%),hs%(LB%,LA%):NEXTLB%
1260NEXTLA%
1270CLOSE#FI%
1280ENDPROC
1290DEFPROCudhs:LOCALLA%
1300IFeascores%=0:PROCtitle(table%,"High Scores (English)"):ELSEPROCtitle(table%,"High Scores (American)")
1310FORLA%=1TO20:PROCti(table%,21+LA%,hs$(LA%,eascores%)):PROCti(table%,41+LA%,STR$(hs%(LA%,eascores%))):NEXTLA%
1320ENDPROC
1330DEFPROCnewgame:LOCALLA%,LB%,LC%
1340FORLA%=1TO5:FORLB%=1TO5:FORLC%=0TO1:c%(LA%,LB%,LC%)=-1:NEXTLC%,LB%,LA%
1350FORLA%=1TO25
1360REPEAT:nc%(LA%,0)=RND(13):nc%(LA%,1)=RND(4):UNTILFNngch
1370NEXTLA%
1380nc%=1:nc%(0,0)=-1:nc%(0,1)=-1:lx%=0:ly%=0:ls%=0
1390total%=0:PROCti(window%,26,""):PROCti(window%,27,""):PROCti(window%,28,""):PROCti(window%,29,""):PROCti(window%,31,"0")
1400PROCclosew(message%)
1410ENDPROC
1420DEFFNngch:LOCALok%:ok%=TRUE
1430IFLA%=1:=ok%
1440FORLB%=1TOLA%-1:IFnc%(LB%,0)=nc%(LA%,0)ANDnc%(LB%,1)=nc%(LA%,1):ok%=FALSE
1450NEXTLB%
1460=ok%
1470DEFPROCredraw(x1%,y1%):LOCALLX%,LY%,x%,y%,xmin%,ymin%,xmax%,ymax%
1480WHILEm%
1490x%=b%!4:y%=b%!16-1024
1500xmin%=b%!28-x%
1510IFxmin%<838 THEN
1520ymin%=b%!32-y%
1530xmax%=b%!36-x%
1540ymax%=b%!40-y%
1550xmin%=FNch(xmin%DIV166+1)
1560xmax%=FNch(xmax%DIV166+1)
1570ymin%=6-FNch(ymin%DIV204+1)
1580ymax%=6-FNch(ymax%DIV204+1)
1590IFx1%>0:xmin%=x1%:xmax%=x1%:ymin%=y1%:ymax%=y1%
1600FORLY%=ymax%TOymin%:FORLX%=xmin%TOxmax%
1610IFc%(LX%,LY%,0)>-1 OR x1%=LX% THEN
1620IFc%(LX%,LY%,0)>-1:PROCdcard(c%(LX%,LY%,0),c%(LX%,LY%,1))
1630IFc%(LX%,LY%,0)=-1 AND x1%=LX%:PROCncgrey
1640!b%=(LX%-1)*166+4:b%!4=-LY%*204:b%!8=!b%+162:b%!12=b%!4+200:b%!16=&2:$(b%+20)="card":SYS262370,,b%
1650ENDIF
1660NEXTLX%,LY%
1670ENDIF
1680IFnc%(nc%,0)=-1:PROCncgrey:ELSEPROCdcard(nc%(nc%,0),nc%(nc%,1))
1690!b%=870:b%!4=-316:b%!8=!b%+162:b%!12=b%!4+200:b%!16=&2:$(b%+20)="card":SYS262370,,b%
1700!b%=window%:SYS262346,,b%TOm%
1710ENDWHILE
1720ENDPROC
1730DEFPROCdcard(r%,s%):LOCALs0%,s1%,s2%,s3%
1740!sa%=0
1750SYS46,&13C,sp%,"card",sa%TOs0%,s1%,s2%,s3%
1760RESTORE+1
1770DATAheart,club,diamond,spade
1780FORLA%=1TOs%:READS$:NEXT
1790IFs%=1ORs%=3:P$="r":ELSE:P$="b"
1800R$=STR$(r%)
1810ENDCASE
1820COLOUR143:CLS
1830GCOL0,0
1840RECTANGLEFILL0,0,160,198
1850GCOL0,7
1860RECTANGLE0,0,160,198
1870SYS46,&122,sp%,P$+R$,4,172
1880SYS46,&122,sp%,P$+R$,136,172
1890SYS46,&121,sp%,P$+R$:SYS46,&12F,sp%,P$+R$
1900SYS46,&122,sp%,P$+R$,4,4
1910SYS46,&122,sp%,P$+R$,136,4
1920SYS46,&121,sp%,P$+R$:SYS46,&12F,sp%,P$+R$
1930SYS46,&122,sp%,"sm"+S$,2,140
1940SYS46,&122,sp%,"sm"+S$,132,140
1950SYS46,&121,sp%,"sm"+S$
1960SYS46,&122,sp%,"sm"+S$,2,32
1970SYS46,&122,sp%,"sm"+S$,132,32
1980SYS46,&121,sp%,"sm"+S$
1990IFr%=2ORr%=3:SYS46,&122,sp%,S$,64,148
2000IFr%>=4ANDr%<=10:SYS46,&122,sp%,S$,32,148:SYS46,&122,sp%,S$,94,148
2010IFr%>=9ANDr%<=10:SYS46,&122,sp%,S$,32,106:SYS46,&122,sp%,S$,94,106
2020IFr%>=6ANDr%<=8:SYS46,&122,sp%,S$,32,84:SYS46,&122,sp%,S$,94,84
2030IFr%=7ORr%=8:SYS46,&122,sp%,S$,64,116,8
2040IFr%=10:SYS46,&122,sp%,S$,64,128,8
2050SYS46,&121,sp%,S$
2060IFr%=2ORr%=3:SYS46,&122,sp%,S$,64,18
2070IFr%>=9ANDr%<=10:SYS46,&122,sp%,S$,32,60:SYS46,&122,sp%,S$,94,60
2080IFr%>=4ANDr%<=10:SYS46,&122,sp%,S$,32,18:SYS46,&122,sp%,S$,94,18
2090IFr%=8:SYS46,&122,sp%,S$,64,52,8
2100IFr%=10:SYS46,&122,sp%,S$,64,40,8
2110SYS46,&121,sp%,S$
2120IFr%=1ORr%=3ORr%=5ORr%=9:SYS46,&122,sp%,S$,64,84,8
2130IFr%>10:GCOL0,8:RECTANGLE28,14,104,170
2140IFr%>10:SYS46,&122,sp%,S$+R$,30,100:SYS46,&121,sp%,S$+R$:SYS46,&12F,sp%,S$+R$:SYS46,&122,sp%,S$+R$,30,16:SYS46,&121,sp%,S$+R$:SYS46,&12F,sp%,S$+R$
2150SYS46,s0%,s1%,s2%,s3%
2160ENDPROC
2170DEFPROCncgrey:!sa%=0:SYS46,&13C,sp%,"card",sa%TOs0%,s1%,s2%,s3%
2180CASEcloth%OF
2190WHEN0:GCOL0,10
2200WHEN1:GCOL0,13
2210WHEN2:GCOL0,1
2220ENDCASE
2230RECTANGLEFILL0,0,162,200:SYS46,s0%,s1%,s2%,s3%:ENDPROC
2240DEFFNch(v%)
2250IFv%<1:=1
2260IFv%>5:=5
2270=v%
2280DEFFNopen(w%):!b%=w%:SYS262347,,b%:IF(b%!32AND&10000):=TRUE
2290=FALSE
2300DEFPROCplace(i%):LOCALx%,y%
2310x%=i%MOD5+1:y%=i%DIV5+1
2320IFc%(x%,y%,0)<>-1 OR nc%=0:VDU7:ENDPROC
2330c%(x%,y%,0)=nc%(nc%,0):c%(x%,y%,1)=nc%(nc%,1)
2340nc%+=1:IFnc%=26:nc%=0
2350!b%=window%:b%!4=864:b%!8=-322:b%!12=1036:b%!16=-114:SYS262345,,b%TOm%:PROCredraw(0,0)
2360!b%=window%:b%!4=(x%-1)*166:b%!8=-y%*204:b%!12=b%!4+166:b%!16=b%!8+204:SYS262345,,b%TOm%:PROCredraw(x%,y%)
2370lx%=x%:ly%=y%:ls%=0
2380IFc%(1,ly%,0)>-1ANDc%(2,ly%,0)>-1ANDc%(3,ly%,0)>-1ANDc%(4,ly%,0)>-1ANDc%(5,ly%,0)>-1:PROCcomb(ly%,1):ELSEPROCcin(26):PROCcin(27)
2390IFc%(lx%,1,0)>-1ANDc%(lx%,2,0)>-1ANDc%(lx%,3,0)>-1ANDc%(lx%,4,0)>-1ANDc%(lx%,5,0)>-1:PROCcomb(lx%,0):ELSEPROCcin(28):PROCcin(29)
2400IFnc%=0 AND total%>hs%(20,eascores%):PROCti(message%,1,""):!b%=message%:SYS262347,,b%:b%!4=404:b%!8=408:b%!12=876:b%!16=616:b%!28=-1:SYS262341,,b%:PROCcaret(message%,1)
2410ENDPROC
2420DEFPROCcin(i%):IFFNread(window%,i%)<>"":PROCtj(window%,i%,"")
2430ENDPROC
2440DEFPROCundo
2450IFnc%<2ORlx%=0:VDU7:ENDPROC
2460c%(lx%,ly%,0)=-1:c%(lx%,ly%,1)=-1:!b%=window%:b%!4=(lx%-1)*166:b%!8=-ly%*204:b%!12=b%!4+166:b%!16=b%!8+204:SYS262345,,b%TOm%:PROCredraw(lx%,ly%)
2470nc%-=1:!b%=window%:b%!4=864:b%!8=-322:b%!12=1036:b%!16=-114:SYS262345,,b%TOm%:PROCredraw(0,0)
2480total%-=ls%:PROCtj(window%,31,STR$(total%))
2490lx%=0:ly%=0:ls%=0
2500ENDPROC
2510DEFPROCcloth
2520!b%=window%:SYS262348,,b%:SYS262339,,b%
2530CASEcloth%OF
2540WHEN0:b%?39=10
2550WHEN1:b%?39=13
2560WHEN2:b%?39=1
2570ENDCASE
2580SYS262337,,b%+4TOwindow%:!b%=window%:SYS262347,,b%:SYS262341,,b%
2590ENDPROC
2600DEFPROCsort:FORLA%=2TO5:FORLB%=1TOLA%-1:IFco%(LA%,0)>co%(LB%,0):SWAPco%(LA%,0),co%(LB%,0):SWAPco%(LA%,1),co%(LB%,1)
2610NEXTLB%,LA%:ENDPROC
2620DEFPROCcomb(n%,d%):LOCALLA%,LB%,str%,fsh%,roy%,pair%,tri%,four%,comb%,add%
2630str%=FALSE:fsh%=FALSE:roy%=FALSE:pair%=0:tri%=FALSE:four%=FALSE
2640IFd%=0:FORLA%=1TO5:co%(LA%,0)=c%(n%,LA%,0):co%(LA%,1)=c%(n%,LA%,1):NEXTLA%
2650IFd%=1:FORLA%=1TO5:co%(LA%,0)=c%(LA%,n%,0):co%(LA%,1)=c%(LA%,n%,1):NEXTLA%
2660PROCsort
2670IFco%(1,0)=co%(2,0)+1ANDco%(2,0)=co%(3,0)+1ANDco%(3,0)=co%(4,0)+1ANDco%(4,0)=co%(5,0)+1:str%=TRUE
2680FORLA%=1TO5:IFco%(LA%,0)=1:co%(LA%,0)=14
2690NEXT:PROCsort
2700IFco%(1,0)=co%(2,0)+1ANDco%(2,0)=co%(3,0)+1ANDco%(3,0)=co%(4,0)+1ANDco%(4,0)=co%(5,0)+1 THEN
2710str%=TRUE
2720IFco%(1,0)=14:roy%=TRUE
2730ENDIF
2740IFco%(1,1)=co%(2,1)ANDco%(2,1)=co%(3,1)ANDco%(3,1)=co%(4,1)ANDco%(4,1)=co%(5,1):fsh%=TRUE
2750FORLA%=1TO14:ct%(LA%)=0:NEXTLA%
2760FORLA%=1TO5:ct%(co%(LA%,0))+=1:NEXTLA%
2770FORLA%=1TO14
2780CASEct%(LA%) OF
2790WHEN2:pair%+=1
2800WHEN3:tri%=TRUE
2810WHEN4:four%=TRUE
2820ENDCASE
2830NEXTLA%
2840comb%=0
2850IFpair%=1 AND tri%=FALSE:comb%=1
2860IFpair%=2:comb%=2
2870IFtri%=TRUE AND pair%=0:comb%=3
2880IFstr%=TRUE AND fsh%=FALSE:comb%=4
2890IFfsh%=TRUE AND str%=FALSE:comb%=5
2900IFtri%=TRUE AND pair%=1:comb%=6
2910IFfour%=TRUE:comb%=7
2920IFstr%=TRUE AND fsh%=TRUE AND roy%=FALSE:comb%=8
2930IFstr%=TRUE AND fsh%=TRUE AND roy%=TRUE:comb%=9
2940IFcomb%>0 THEN
2950add%+=VAL(FNread(scores%,comb%+10))
2960ls%+=add%
2970IFd%=1:PROCtj(window%,26,FNread(scores%,comb%)):PROCtj(window%,27,STR$(add%))
2980IFd%=0:PROCtj(window%,28,FNread(scores%,comb%)):PROCtj(window%,29,STR$(add%))
2990total%+=add%:PROCtj(window%,31,STR$(total%))
3000ELSE
3010PROCtj(window%,28-d%*2,"Nothing"):PROCtj(window%,29-d%*2,"0")
3020ENDIF
3030ENDPROC
3040DEFPROCcaret(w%,i%):LOCALLA%
3050LA%=LEN(FNread(w%,i%)):SYS262354,w%,i%,,,-1,LA%:ENDPROC
3060DEFPROCsel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:SYS262349,,b%:ENDPROC
3070DEFPROCdesel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:SYS262349,,b%:ENDPROC
3080DEFPROChsin:LOCALno%
3090no%=20
3100FORLA%=19TO1STEP-1:IFtotal%>hs%(LA%,eascores%):hs%(LA%+1,eascores%)=hs%(LA%,eascores%):hs$(LA%+1,eascores%)=hs$(LA%,eascores%):no%=LA%
3110NEXTLA%
3120hs$(no%,eascores%)=FNread(message%,1):hs%(no%,eascores%)=total%
3130PROCsavescores
3140PROCclosew(message%)
3150PROCudhs:PROCclosew(table%):!b%=table%:SYS262347,,b%:IFno%>10:b%!24=-528:ELSEb%!24=0
3160b%!28=-1:SYS262341,,b%
3170ENDPROC
ie%=1371
4�b%2988,i% ie%,name%12,m1%172,m2%76,m3%100,mi%64
)�c%(5,5,1),nc%(25,1),co%(5,1),ct%(14)
(N%=�(� � &80000000)
2b%?0=3:ș7,14,b%
<N%=�(�(!b%))
F q%=�:cloth%=0:eascores%=0
P+ș262336,200,&4B534154,"Poker Patience"
Z�hs$(20,1),hs%(20,1)
d�loadscores
n'ș53,-1,5�,,e%:�e%<2:e$="22":�e$=""
x8FI%=�("<PokerP$Dir>.Sprites"+e$):spsz%=�#FI%+4:�#FI%
�"�sp% spsz%:!sp%=spsz%:sp%!8=16
�+ș46,&10A,sp%,"<PokerP$Dir>.Sprites"+e$
�ș46,&3E�,,,sas%
�
�sa% sas%
�&ș262361,,"<PokerP$Dir>.Templates"
�S$name%="Info":ș262363,,b%,i%,i%+ie%,-1,name%,0�,,ni%,,,,ne%:ș262337,,b%�info%
�cwindow%=�ltmp("Window"):scores%=�ltmp("Scores"):table%=�ltmp("Table"):message%=�ltmp("Message")
� ș262362
�Z!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002:$(b%+24)="!pokerp":ș262338,,b%�ib%
� �cm:�eascores:�udhs:�newgame
� ��er
� ȕ�q%
�ș262343,&1831,b%�r%
Ȏr%�
#�1:ș262344,,b%�m%:�redraw(0,0)
�2:ș262341,,b%
"�3:ș262342,,b%
, �6:�cl(b%!12,b%!16,b%!8)
6m�8:�!b%=message% � b%!4=1 � b%!24=13:�sel(message%,2):�hsin:�desel(message%,2):�ș"Wimp_ProcessKey",b%!24
@�9:�ms(!b%,b%!4)
J�17,18:�rm
T�
^�
h ș262365
r�
|ݤltmp(tname$)
�d$name%=tname$:ș262363,,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%:b%!64=sp%:ș262337,,b% � thand%
� =thand%
���rm
� Ȏb%!16�
� �0:q%=�
��
��
�;��er:!b%=�:$(b%+4)=�$+�0:ș262367,b%,1,"Poker Patience"
��
���cm
�+�flg%,smp%,mif%,md$,md1%,md2%,md3$,ptr%
�M!m1%=mi%+48:m1%!4=-1:m1%!8=16:m1%!12=&70207:m1%!16=240:m1%!20=44:m1%!24=0
�8�+1:ptr%=m1%+28:�:�flg%,smp%,mif%,md$,md1%,md2%,md3%
&!ptr%=flg%:ptr%!4=smp%:ptr%!8=mif%
C�md$<>"":$(ptr%+12)=md$:�ptr%!12=md1%:ptr%!16=md2%:ptr%!20=md3%
k$mi%="English scores":$(mi%+16)="American scores":$(mi%+32)="High scores...":$(mi%+48)="Poker Patience"
&%�&102,info%,&7000021,"Info",0,0,0
0$�0,m2%,&7000021,"New game",0,0,0
:$�0,-1,&7000021,"Scores...",0,0,0
D"�0,-1,&7000121,"",mi%+32,-1,16
N(�2,m3%,&7000021,"Cloth colour",0,0,0
X!�&80,-1,&7000021,"Quit",0,0,0
b ptr%+=24
l�flg% � 128
v?$m2%="New game":m2%!12=&70207:m2%!16=256:m2%!20=44:m2%!24=0
�Em2%!28=0:m2%!32=-1:m2%!36=&7000121:m2%!40=mi%:m2%!44=-1:m2%!48=16
�Jm2%!52=&80:m2%!56=-1:m2%!60=&7000121:m2%!64=mi%+16:m2%!68=-1:m2%!72=16
�C$m3%="Cloth colour":m3%!12=&70207:m3%!16=192:m3%!20=44:m3%!24=0
�?m3%!28=1:m3%!32=-1:m3%!36=&A7000021:$(m3%+40)="Light green"
�>m3%!52=0:m3%!56=-1:m3%!60=&D7000021:$(m3%+64)="Dark green"
�:m3%!76=&80:m3%!80=-1:m3%!84=&17000021:$(m3%+88)="Grey"
��
���cl(w%,i%,but%)
� Ȏw%�
��-2:Ȏbut%�
��1,4:�openw(window%)
� �2:ș262356,,m1%,!b%-64,408
��
5�table%,scores%:�but%=2:ș262356,,m1%,!b%-64,b%!4
�window%:Ȏbut%�
�1:�undo
�2:ș262356,,m1%,!b%-64,b%!4
*�4:�place(i%)
4�
>�message%:�i%=2:�hsin
H�
R�
\��ms(ms0%,ms1%):�but%
fș262351,,b%:but%=b%!8
p Ȏms0%�
z�1:Ȏms1%�
��0:eascores%=0
��1:eascores%=1
��
�=�ms1%>-1:�closew(scores%):�closew(table%):�eascores:�udhs
�O�newgame:笤open(window%):�openw(window%):�:ș262353,window%,0,-1024,1072,0
��2:�openw(scores%)
��3:�openw(table%)
�P�4:�ms1%>-1:!(m3%+28+cloth%*24)-=1:cloth%=ms1%:!(m3%+28+cloth%*24)+=1:�cloth
� �5:q%=�
��
� �but%=1:ș262356,,m1%,0,0
��
�;��openw(w%):!b%=w%:ș262347,,b%:b%!28=-1:ș262341,,b%:�
&��closew(w%):!b%=w%:ș262342,,b%:�
F��title(w%,T$):!b%=w%:ș262348,,b%:$(b%!76)=T$:b%!84=�($(b%!76)):�
��eascores:�S$
$X�eascores%=0:�title(scores%,"Scores (English)"):��title(scores%,"Scores (American)")
.�+(1+eascores%)
8�1,3,6,12,5,10,16,30,30
B �2,5,10,15,20,25,50,75,100
L(�LA%=11�19:�S$:�ti(scores%,LA%,S$):�
V�
`H��ti(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș262350,,b%:$(b%!28)=TX$:�
jx��tj(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș262350,,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș262349,,b%:�
tAݤread(win%,icon%):!b%=win%:b%!4=icon%:ș262350,,b%:=$(b%!28)
~��loadscores:�LA%,LB%
� FI%=�"<PokerP$Dir>.Scores"
� �LA%=0�1
�2�LB%=1�20:�#FI%,hs$(LB%,LA%),hs%(LB%,LA%):�LB%
��LA%
� �#FI%
��
���savescores:�LA%,LB%
� FI%=�"<PokerP$Dir>.Scores"
� �LA%=0�1
�2�LB%=1�20:�#FI%,hs$(LB%,LA%),hs%(LB%,LA%):�LB%
��LA%
� �#FI%
�
��udhs:�LA%
`�eascores%=0:�title(table%,"High Scores (English)"):��title(table%,"High Scores (American)")
a�LA%=1�20:�ti(table%,21+LA%,hs$(LA%,eascores%)):�ti(table%,41+LA%,�(hs%(LA%,eascores%))):�LA%
(�
2��newgame:�LA%,LB%,LC%
<>�LA%=1�5:�LB%=1�5:�LC%=0�1:c%(LA%,LB%,LC%)=-1:�LC%,LB%,LA%
F
�LA%=1�25
P-�:nc%(LA%,0)=�(13):nc%(LA%,1)=�(4):��ngch
Z�LA%
d3nc%=1:nc%(0,0)=-1:nc%(0,1)=-1:lx%=0:ly%=0:ls%=0
nltotal%=0:�ti(window%,26,""):�ti(window%,27,""):�ti(window%,28,""):�ti(window%,29,""):�ti(window%,31,"0")
x�closew(message%)
��
�ݤngch:�ok%:ok%=�
��LA%=1:=ok%
�C�LB%=1�LA%-1:�nc%(LB%,0)=nc%(LA%,0)�nc%(LB%,1)=nc%(LA%,1):ok%=�
��LB%
�=ok%
�<��redraw(x1%,y1%):�LX%,LY%,x%,y%,xmin%,ymin%,xmax%,ymax%
�ȕm%
�x%=b%!4:y%=b%!16-1024
�xmin%=b%!28-x%
��xmin%<838 �
�ymin%=b%!32-y%
�xmax%=b%!36-x%
ymax%=b%!40-y%
xmin%=�ch(xmin%�166+1)
xmax%=�ch(xmax%�166+1)
" ymin%=6-�ch(ymin%�204+1)
, ymax%=6-�ch(ymax%�204+1)
62�x1%>0:xmin%=x1%:xmax%=x1%:ymin%=y1%:ymax%=y1%
@%�LY%=ymax%�ymin%:�LX%=xmin%�xmax%
J!�c%(LX%,LY%,0)>-1 � x1%=LX% �
T9�c%(LX%,LY%,0)>-1:�dcard(c%(LX%,LY%,0),c%(LX%,LY%,1))
^'�c%(LX%,LY%,0)=-1 � x1%=LX%:�ncgrey
he!b%=(LX%-1)*166+4:b%!4=-LY%*204:b%!8=!b%+162:b%!12=b%!4+200:b%!16=&2:$(b%+20)="card":ș262370,,b%
r�
| �LX%,LY%
��
�9�nc%(nc%,0)=-1:�ncgrey:��dcard(nc%(nc%,0),nc%(nc%,1))
�W!b%=870:b%!4=-316:b%!8=!b%+162:b%!12=b%!4+200:b%!16=&2:$(b%+20)="card":ș262370,,b%
� !b%=window%:ș262346,,b%�m%
��
��
�#��dcard(r%,s%):�s0%,s1%,s2%,s3%
�
!sa%=0
�,ș46,&13C,sp%,"card",sa%�s0%,s1%,s2%,s3%
��+1
� �heart,club,diamond,spade
��LA%=1�s%:�S$:�
� �s%=1�s%=3:P$="r":�:P$="b"
R$=�(r%)
�
�143:�
&�0,0
0ȓȐ0,0,160,198
:�0,7
Dȓ0,0,160,198
N ș46,&122,sp%,P$+R$,4,172
X ș46,&122,sp%,P$+R$,136,172
b+ș46,&121,sp%,P$+R$:ș46,&12F,sp%,P$+R$
lș46,&122,sp%,P$+R$,4,4
v ș46,&122,sp%,P$+R$,136,4
�+ș46,&121,sp%,P$+R$:ș46,&12F,sp%,P$+R$
� ș46,&122,sp%,"sm"+S$,2,140
�!ș46,&122,sp%,"sm"+S$,132,140
�ș46,&121,sp%,"sm"+S$
� ș46,&122,sp%,"sm"+S$,2,32
� ș46,&122,sp%,"sm"+S$,132,32
�ș46,&121,sp%,"sm"+S$
�&�r%=2�r%=3:ș46,&122,sp%,S$,64,148
�A�r%>=4�r%<=10:ș46,&122,sp%,S$,32,148:ș46,&122,sp%,S$,94,148
�A�r%>=9�r%<=10:ș46,&122,sp%,S$,32,106:ș46,&122,sp%,S$,94,106
�>�r%>=6�r%<=8:ș46,&122,sp%,S$,32,84:ș46,&122,sp%,S$,94,84
�(�r%=7�r%=8:ș46,&122,sp%,S$,64,116,8
�$�r%=10:ș46,&122,sp%,S$,64,128,8
ș46,&121,sp%,S$
%�r%=2�r%=3:ș46,&122,sp%,S$,64,18
?�r%>=9�r%<=10:ș46,&122,sp%,S$,32,60:ș46,&122,sp%,S$,94,60
?�r%>=4�r%<=10:ș46,&122,sp%,S$,32,18:ș46,&122,sp%,S$,94,18
*"�r%=8:ș46,&122,sp%,S$,64,52,8
4#�r%=10:ș46,&122,sp%,S$,64,40,8
>ș46,&121,sp%,S$
H1�r%=1�r%=3�r%=5�r%=9:ș46,&122,sp%,S$,64,84,8
R �r%>10:�0,8:ȓ28,14,104,170
\��r%>10:ș46,&122,sp%,S$+R$,30,100:ș46,&121,sp%,S$+R$:ș46,&12F,sp%,S$+R$:ș46,&122,sp%,S$+R$,30,16:ș46,&121,sp%,S$+R$:ș46,&12F,sp%,S$+R$
fș46,s0%,s1%,s2%,s3%
p�
z<��ncgrey:!sa%=0:ș46,&13C,sp%,"card",sa%�s0%,s1%,s2%,s3%
�
Ȏcloth%�
� �0:�0,10
� �1:�0,13
� �2:�0,1
��
�*ȓȐ0,0,162,200:ș46,s0%,s1%,s2%,s3%:�
� ݤch(v%)
� �v%<1:=1
� �v%>5:=5
�=v%
�5ݤopen(w%):!b%=w%:ș262347,,b%:�(b%!32�&10000):=�
�=�
���place(i%):�x%,y%
x%=i%�5+1:y%=i%�5+1
!�c%(x%,y%,0)<>-1 � nc%=0:�7:�
1c%(x%,y%,0)=nc%(nc%,0):c%(x%,y%,1)=nc%(nc%,1)
$nc%+=1:�nc%=26:nc%=0
.U!b%=window%:b%!4=864:b%!8=-322:b%!12=1036:b%!16=-114:ș262345,,b%�m%:�redraw(0,0)
8i!b%=window%:b%!4=(x%-1)*166:b%!8=-y%*204:b%!12=b%!4+166:b%!16=b%!8+204:ș262345,,b%�m%:�redraw(x%,y%)
Blx%=x%:ly%=y%:ls%=0
Lo�c%(1,ly%,0)>-1�c%(2,ly%,0)>-1�c%(3,ly%,0)>-1�c%(4,ly%,0)>-1�c%(5,ly%,0)>-1:�comb(ly%,1):��cin(26):�cin(27)
Vo�c%(lx%,1,0)>-1�c%(lx%,2,0)>-1�c%(lx%,3,0)>-1�c%(lx%,4,0)>-1�c%(lx%,5,0)>-1:�comb(lx%,0):��cin(28):�cin(29)
`��nc%=0 � total%>hs%(20,eascores%):�ti(message%,1,""):!b%=message%:ș262347,,b%:b%!4=404:b%!8=408:b%!12=876:b%!16=616:b%!28=-1:ș262341,,b%:�caret(message%,1)
j�
t7��cin(i%):�read(window%,i%)<>"":�tj(window%,i%,"")
~�
�
��undo
��nc%<2�lx%=0:�7:�
��c%(lx%,ly%,0)=-1:c%(lx%,ly%,1)=-1:!b%=window%:b%!4=(lx%-1)*166:b%!8=-ly%*204:b%!12=b%!4+166:b%!16=b%!8+204:ș262345,,b%�m%:�redraw(lx%,ly%)
�\nc%-=1:!b%=window%:b%!4=864:b%!8=-322:b%!12=1036:b%!16=-114:ș262345,,b%�m%:�redraw(0,0)
�)total%-=ls%:�tj(window%,31,�(total%))
�lx%=0:ly%=0:ls%=0
��
� ��cloth
�)!b%=window%:ș262348,,b%:ș262339,,b%
�
Ȏcloth%�
��0:b%?39=10
��1:b%?39=13
�2:b%?39=1
�
@ș262337,,b%+4�window%:!b%=window%:ș262347,,b%:ș262341,,b%
�
(g��sort:�LA%=2�5:�LB%=1�LA%-1:�co%(LA%,0)>co%(LB%,0):Ȕco%(LA%,0),co%(LB%,0):Ȕco%(LA%,1),co%(LB%,1)
2�LB%,LA%:�
<E��comb(n%,d%):�LA%,LB%,str%,fsh%,roy%,pair%,tri%,four%,comb%,add%
F/str%=�:fsh%=�:roy%=�:pair%=0:tri%=�:four%=�
PG�d%=0:�LA%=1�5:co%(LA%,0)=c%(n%,LA%,0):co%(LA%,1)=c%(n%,LA%,1):�LA%
ZG�d%=1:�LA%=1�5:co%(LA%,0)=c%(LA%,n%,0):co%(LA%,1)=c%(LA%,n%,1):�LA%
d �sort
n[�co%(1,0)=co%(2,0)+1�co%(2,0)=co%(3,0)+1�co%(3,0)=co%(4,0)+1�co%(4,0)=co%(5,0)+1:str%=�
x(�LA%=1�5:�co%(LA%,0)=1:co%(LA%,0)=14
� �:�sort
�V�co%(1,0)=co%(2,0)+1�co%(2,0)=co%(3,0)+1�co%(3,0)=co%(4,0)+1�co%(4,0)=co%(5,0)+1 �
�
str%=�
��co%(1,0)=14:roy%=�
��
�S�co%(1,1)=co%(2,1)�co%(2,1)=co%(3,1)�co%(3,1)=co%(4,1)�co%(4,1)=co%(5,1):fsh%=�
� �LA%=1�14:ct%(LA%)=0:�LA%
�$�LA%=1�5:ct%(co%(LA%,0))+=1:�LA%
�
�LA%=1�14
�Ȏct%(LA%) �
��2:pair%+=1
�
�3:tri%=�
��4:four%=�
�
�LA%
comb%=0
" �pair%=1 � tri%=�:comb%=1
,�pair%=2:comb%=2
6 �tri%=� � pair%=0:comb%=3
@ �str%=� � fsh%=�:comb%=4
J �fsh%=� � str%=�:comb%=5
T �tri%=� � pair%=1:comb%=6
^�four%=�:comb%=7
h%�str%=� � fsh%=� � roy%=�:comb%=8
r%�str%=� � fsh%=� � roy%=�:comb%=9
|�comb%>0 �
�$add%+=�(�read(scores%,comb%+10))
�
ls%+=add%
�F�d%=1:�tj(window%,26,�read(scores%,comb%)):�tj(window%,27,�(add%))
�F�d%=0:�tj(window%,28,�read(scores%,comb%)):�tj(window%,29,�(add%))
�*total%+=add%:�tj(window%,31,�(total%))
��
�;�tj(window%,28-d%*2,"Nothing"):�tj(window%,29-d%*2,"0")
��
��
���caret(w%,i%):�LA%
�1LA%=�(�read(w%,i%)):ș262354,w%,i%,,,-1,LA%:�
�O��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș262349,,b%:�
�M��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș262349,,b%:�
��hsin:�no%
no%=20
��LA%=19�1�-1:�total%>hs%(LA%,eascores%):hs%(LA%+1,eascores%)=hs%(LA%,eascores%):hs$(LA%+1,eascores%)=hs$(LA%,eascores%):no%=LA%
&�LA%
0Bhs$(no%,eascores%)=�read(message%,1):hs%(no%,eascores%)=total%
:�savescores
D�closew(message%)
NM�udhs:�closew(table%):!b%=table%:ș262347,,b%:�no%>10:b%!24=-528:�b%!24=0
Xb%!28=-1:ș262341,,b%
b�
� 00000000 0d 00 0a 0c 69 65 25 3d 31 33 37 31 0d 00 14 34 |....ie%=1371...4|
00000010 de 62 25 32 39 38 38 2c 69 25 20 69 65 25 2c 6e |.b%2988,i% ie%,n|
00000020 61 6d 65 25 31 32 2c 6d 31 25 31 37 32 2c 6d 32 |ame%12,m1%172,m2|
00000030 25 37 36 2c 6d 33 25 31 30 30 2c 6d 69 25 36 34 |%76,m3%100,mi%64|
00000040 0d 00 1e 29 de 63 25 28 35 2c 35 2c 31 29 2c 6e |...).c%(5,5,1),n|
00000050 63 25 28 32 35 2c 31 29 2c 63 6f 25 28 35 2c 31 |c%(25,1),co%(5,1|
00000060 29 2c 63 74 25 28 31 34 29 0d 00 28 17 4e 25 3d |),ct%(14)..(.N%=|
00000070 b3 28 91 20 84 20 26 38 30 30 30 30 30 30 30 29 |.(. . &80000000)|
00000080 0d 00 32 14 62 25 3f 30 3d 33 3a c8 99 37 2c 31 |..2.b%?0=3:..7,1|
00000090 34 2c 62 25 0d 00 3c 10 4e 25 3d b3 28 94 28 21 |4,b%..<.N%=.(.(!|
000000a0 62 25 29 29 0d 00 46 1d 71 25 3d a3 3a 63 6c 6f |b%))..F.q%=.:clo|
000000b0 74 68 25 3d 30 3a 65 61 73 63 6f 72 65 73 25 3d |th%=0:eascores%=|
000000c0 30 0d 00 50 2b c8 99 32 36 32 33 33 36 2c 32 30 |0..P+..262336,20|
000000d0 30 2c 26 34 42 35 33 34 31 35 34 2c 22 50 6f 6b |0,&4B534154,"Pok|
000000e0 65 72 20 50 61 74 69 65 6e 63 65 22 0d 00 5a 18 |er Patience"..Z.|
000000f0 de 68 73 24 28 32 30 2c 31 29 2c 68 73 25 28 32 |.hs$(20,1),hs%(2|
00000100 30 2c 31 29 0d 00 64 0f f2 6c 6f 61 64 73 63 6f |0,1)..d..loadsco|
00000110 72 65 73 0d 00 6e 27 c8 99 35 33 2c 2d 31 2c 35 |res..n'..53,-1,5|
00000120 b8 2c 2c 65 25 3a e7 65 25 3c 32 3a 65 24 3d 22 |.,,e%:.e%<2:e$="|
00000130 32 32 22 3a 8b 65 24 3d 22 22 0d 00 78 38 46 49 |22":.e$=""..x8FI|
00000140 25 3d 8e 28 22 3c 50 6f 6b 65 72 50 24 44 69 72 |%=.("<PokerP$Dir|
00000150 3e 2e 53 70 72 69 74 65 73 22 2b 65 24 29 3a 73 |>.Sprites"+e$):s|
00000160 70 73 7a 25 3d a2 23 46 49 25 2b 34 3a d9 23 46 |psz%=.#FI%+4:.#F|
00000170 49 25 0d 00 82 22 de 73 70 25 20 73 70 73 7a 25 |I%...".sp% spsz%|
00000180 3a 21 73 70 25 3d 73 70 73 7a 25 3a 73 70 25 21 |:!sp%=spsz%:sp%!|
00000190 38 3d 31 36 0d 00 8c 2b c8 99 34 36 2c 26 31 30 |8=16...+..46,&10|
000001a0 41 2c 73 70 25 2c 22 3c 50 6f 6b 65 72 50 24 44 |A,sp%,"<PokerP$D|
000001b0 69 72 3e 2e 53 70 72 69 74 65 73 22 2b 65 24 0d |ir>.Sprites"+e$.|
000001c0 00 96 14 c8 99 34 36 2c 26 33 45 b8 2c 2c 2c 73 |.....46,&3E.,,,s|
000001d0 61 73 25 0d 00 a0 0d de 73 61 25 20 73 61 73 25 |as%.....sa% sas%|
000001e0 0d 00 aa 26 c8 99 32 36 32 33 36 31 2c 2c 22 3c |...&..262361,,"<|
000001f0 50 6f 6b 65 72 50 24 44 69 72 3e 2e 54 65 6d 70 |PokerP$Dir>.Temp|
00000200 6c 61 74 65 73 22 0d 00 b4 53 24 6e 61 6d 65 25 |lates"...S$name%|
00000210 3d 22 49 6e 66 6f 22 3a c8 99 32 36 32 33 36 33 |="Info":..262363|
00000220 2c 2c 62 25 2c 69 25 2c 69 25 2b 69 65 25 2c 2d |,,b%,i%,i%+ie%,-|
00000230 31 2c 6e 61 6d 65 25 2c 30 b8 2c 2c 6e 69 25 2c |1,name%,0.,,ni%,|
00000240 2c 2c 2c 6e 65 25 3a c8 99 32 36 32 33 33 37 2c |,,,ne%:..262337,|
00000250 2c 62 25 b8 69 6e 66 6f 25 0d 00 be 63 77 69 6e |,b%.info%...cwin|
00000260 64 6f 77 25 3d a4 6c 74 6d 70 28 22 57 69 6e 64 |dow%=.ltmp("Wind|
00000270 6f 77 22 29 3a 73 63 6f 72 65 73 25 3d a4 6c 74 |ow"):scores%=.lt|
00000280 6d 70 28 22 53 63 6f 72 65 73 22 29 3a 74 61 62 |mp("Scores"):tab|
00000290 6c 65 25 3d a4 6c 74 6d 70 28 22 54 61 62 6c 65 |le%=.ltmp("Table|
000002a0 22 29 3a 6d 65 73 73 61 67 65 25 3d a4 6c 74 6d |"):message%=.ltm|
000002b0 70 28 22 4d 65 73 73 61 67 65 22 29 0d 00 c8 0c |p("Message")....|
000002c0 c8 99 32 36 32 33 36 32 0d 00 d2 5a 21 62 25 3d |..262362...Z!b%=|
000002d0 2d 31 3a 62 25 21 34 3d 30 3a 62 25 21 38 3d 30 |-1:b%!4=0:b%!8=0|
000002e0 3a 62 25 21 31 32 3d 36 38 3a 62 25 21 31 36 3d |:b%!12=68:b%!16=|
000002f0 36 38 3a 62 25 21 32 30 3d 26 33 30 30 32 3a 24 |68:b%!20=&3002:$|
00000300 28 62 25 2b 32 34 29 3d 22 21 70 6f 6b 65 72 70 |(b%+24)="!pokerp|
00000310 22 3a c8 99 32 36 32 33 33 38 2c 2c 62 25 b8 69 |":..262338,,b%.i|
00000320 62 25 0d 00 dc 20 f2 63 6d 3a f2 65 61 73 63 6f |b%... .cm:.easco|
00000330 72 65 73 3a f2 75 64 68 73 3a f2 6e 65 77 67 61 |res:.udhs:.newga|
00000340 6d 65 0d 00 e6 09 ee 85 f2 65 72 0d 00 f0 09 c8 |me.......er.....|
00000350 95 ac 71 25 0d 00 fa 18 c8 99 32 36 32 33 34 33 |..q%......262343|
00000360 2c 26 31 38 33 31 2c 62 25 b8 72 25 0d 01 04 09 |,&1831,b%.r%....|
00000370 c8 8e 72 25 ca 0d 01 0e 23 c9 31 3a c8 99 32 36 |..r%....#.1:..26|
00000380 32 33 34 34 2c 2c 62 25 b8 6d 25 3a f2 72 65 64 |2344,,b%.m%:.red|
00000390 72 61 77 28 30 2c 30 29 0d 01 18 13 c9 32 3a c8 |raw(0,0).....2:.|
000003a0 99 32 36 32 33 34 31 2c 2c 62 25 0d 01 22 13 c9 |.262341,,b%.."..|
000003b0 33 3a c8 99 32 36 32 33 34 32 2c 2c 62 25 0d 01 |3:..262342,,b%..|
000003c0 2c 1c c9 36 3a f2 63 6c 28 62 25 21 31 32 2c 62 |,..6:.cl(b%!12,b|
000003d0 25 21 31 36 2c 62 25 21 38 29 0d 01 36 6d c9 38 |%!16,b%!8)..6m.8|
000003e0 3a e7 21 62 25 3d 6d 65 73 73 61 67 65 25 20 80 |:.!b%=message% .|
000003f0 20 62 25 21 34 3d 31 20 80 20 62 25 21 32 34 3d | b%!4=1 . b%!24=|
00000400 31 33 3a f2 73 65 6c 28 6d 65 73 73 61 67 65 25 |13:.sel(message%|
00000410 2c 32 29 3a f2 68 73 69 6e 3a f2 64 65 73 65 6c |,2):.hsin:.desel|
00000420 28 6d 65 73 73 61 67 65 25 2c 32 29 3a 8b c8 99 |(message%,2):...|
00000430 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 |"Wimp_ProcessKey|
00000440 22 2c 62 25 21 32 34 0d 01 40 14 c9 39 3a f2 6d |",b%!24..@..9:.m|
00000450 73 28 21 62 25 2c 62 25 21 34 29 0d 01 4a 0e c9 |s(!b%,b%!4)..J..|
00000460 31 37 2c 31 38 3a f2 72 6d 0d 01 54 05 cb 0d 01 |17,18:.rm..T....|
00000470 5e 05 ce 0d 01 68 0c c8 99 32 36 32 33 36 35 0d |^....h...262365.|
00000480 01 72 05 e0 0d 01 7c 12 dd a4 6c 74 6d 70 28 74 |.r....|...ltmp(t|
00000490 6e 61 6d 65 24 29 0d 01 86 64 24 6e 61 6d 65 25 |name$)...d$name%|
000004a0 3d 74 6e 61 6d 65 24 3a c8 99 32 36 32 33 36 33 |=tname$:..262363|
000004b0 2c 2c 62 25 2c 6e 69 25 2c 69 25 2b 69 65 25 2c |,,b%,ni%,i%+ie%,|
000004c0 2d 31 2c 6e 61 6d 65 25 2c 6e 65 25 20 b8 2c 2c |-1,name%,ne% .,,|
000004d0 6e 69 25 2c 2c 2c 2c 6e 65 25 3a 62 25 21 36 34 |ni%,,,,ne%:b%!64|
000004e0 3d 73 70 25 3a c8 99 32 36 32 33 33 37 2c 2c 62 |=sp%:..262337,,b|
000004f0 25 20 b8 20 74 68 61 6e 64 25 0d 01 90 0b 3d 74 |% . thand%....=t|
00000500 68 61 6e 64 25 0d 01 9a 08 dd f2 72 6d 0d 01 a4 |hand%......rm...|
00000510 0c c8 8e 62 25 21 31 36 ca 0d 01 ae 0b c9 30 3a |...b%!16......0:|
00000520 71 25 3d b9 0d 01 b8 05 cb 0d 01 c2 05 e1 0d 01 |q%=.............|
00000530 cc 3b dd f2 65 72 3a 21 62 25 3d 9f 3a 24 28 62 |.;..er:!b%=.:$(b|
00000540 25 2b 34 29 3d f6 24 2b bd 30 3a c8 99 32 36 32 |%+4)=.$+.0:..262|
00000550 33 36 37 2c 62 25 2c 31 2c 22 50 6f 6b 65 72 20 |367,b%,1,"Poker |
00000560 50 61 74 69 65 6e 63 65 22 0d 01 d6 05 e1 0d 01 |Patience".......|
00000570 e0 08 dd f2 63 6d 0d 01 ea 2b ea 66 6c 67 25 2c |....cm...+.flg%,|
00000580 73 6d 70 25 2c 6d 69 66 25 2c 6d 64 24 2c 6d 64 |smp%,mif%,md$,md|
00000590 31 25 2c 6d 64 32 25 2c 6d 64 33 24 2c 70 74 72 |1%,md2%,md3$,ptr|
000005a0 25 0d 01 f4 4d 21 6d 31 25 3d 6d 69 25 2b 34 38 |%...M!m1%=mi%+48|
000005b0 3a 6d 31 25 21 34 3d 2d 31 3a 6d 31 25 21 38 3d |:m1%!4=-1:m1%!8=|
000005c0 31 36 3a 6d 31 25 21 31 32 3d 26 37 30 32 30 37 |16:m1%!12=&70207|
000005d0 3a 6d 31 25 21 31 36 3d 32 34 30 3a 6d 31 25 21 |:m1%!16=240:m1%!|
000005e0 32 30 3d 34 34 3a 6d 31 25 21 32 34 3d 30 0d 01 |20=44:m1%!24=0..|
000005f0 fe 38 f7 2b 31 3a 70 74 72 25 3d 6d 31 25 2b 32 |.8.+1:ptr%=m1%+2|
00000600 38 3a f5 3a f3 66 6c 67 25 2c 73 6d 70 25 2c 6d |8:.:.flg%,smp%,m|
00000610 69 66 25 2c 6d 64 24 2c 6d 64 31 25 2c 6d 64 32 |if%,md$,md1%,md2|
00000620 25 2c 6d 64 33 25 0d 02 08 26 21 70 74 72 25 3d |%,md3%...&!ptr%=|
00000630 66 6c 67 25 3a 70 74 72 25 21 34 3d 73 6d 70 25 |flg%:ptr%!4=smp%|
00000640 3a 70 74 72 25 21 38 3d 6d 69 66 25 0d 02 12 43 |:ptr%!8=mif%...C|
00000650 e7 6d 64 24 3c 3e 22 22 3a 24 28 70 74 72 25 2b |.md$<>"":$(ptr%+|
00000660 31 32 29 3d 6d 64 24 3a 8b 70 74 72 25 21 31 32 |12)=md$:.ptr%!12|
00000670 3d 6d 64 31 25 3a 70 74 72 25 21 31 36 3d 6d 64 |=md1%:ptr%!16=md|
00000680 32 25 3a 70 74 72 25 21 32 30 3d 6d 64 33 25 0d |2%:ptr%!20=md3%.|
00000690 02 1c 6b 24 6d 69 25 3d 22 45 6e 67 6c 69 73 68 |..k$mi%="English|
000006a0 20 73 63 6f 72 65 73 22 3a 24 28 6d 69 25 2b 31 | scores":$(mi%+1|
000006b0 36 29 3d 22 41 6d 65 72 69 63 61 6e 20 73 63 6f |6)="American sco|
000006c0 72 65 73 22 3a 24 28 6d 69 25 2b 33 32 29 3d 22 |res":$(mi%+32)="|
000006d0 48 69 67 68 20 73 63 6f 72 65 73 2e 2e 2e 22 3a |High scores...":|
000006e0 24 28 6d 69 25 2b 34 38 29 3d 22 50 6f 6b 65 72 |$(mi%+48)="Poker|
000006f0 20 50 61 74 69 65 6e 63 65 22 0d 02 26 25 dc 26 | Patience"..&%.&|
00000700 31 30 32 2c 69 6e 66 6f 25 2c 26 37 30 30 30 30 |102,info%,&70000|
00000710 32 31 2c 22 49 6e 66 6f 22 2c 30 2c 30 2c 30 0d |21,"Info",0,0,0.|
00000720 02 30 24 dc 30 2c 6d 32 25 2c 26 37 30 30 30 30 |.0$.0,m2%,&70000|
00000730 32 31 2c 22 4e 65 77 20 67 61 6d 65 22 2c 30 2c |21,"New game",0,|
00000740 30 2c 30 0d 02 3a 24 dc 30 2c 2d 31 2c 26 37 30 |0,0..:$.0,-1,&70|
00000750 30 30 30 32 31 2c 22 53 63 6f 72 65 73 2e 2e 2e |00021,"Scores...|
00000760 22 2c 30 2c 30 2c 30 0d 02 44 22 dc 30 2c 2d 31 |",0,0,0..D".0,-1|
00000770 2c 26 37 30 30 30 31 32 31 2c 22 22 2c 6d 69 25 |,&7000121,"",mi%|
00000780 2b 33 32 2c 2d 31 2c 31 36 0d 02 4e 28 dc 32 2c |+32,-1,16..N(.2,|
00000790 6d 33 25 2c 26 37 30 30 30 30 32 31 2c 22 43 6c |m3%,&7000021,"Cl|
000007a0 6f 74 68 20 63 6f 6c 6f 75 72 22 2c 30 2c 30 2c |oth colour",0,0,|
000007b0 30 0d 02 58 21 dc 26 38 30 2c 2d 31 2c 26 37 30 |0..X!.&80,-1,&70|
000007c0 30 30 30 32 31 2c 22 51 75 69 74 22 2c 30 2c 30 |00021,"Quit",0,0|
000007d0 2c 30 0d 02 62 0c 70 74 72 25 2b 3d 32 34 0d 02 |,0..b.ptr%+=24..|
000007e0 6c 0f fd 66 6c 67 25 20 80 20 31 32 38 0d 02 76 |l..flg% . 128..v|
000007f0 3f 24 6d 32 25 3d 22 4e 65 77 20 67 61 6d 65 22 |?$m2%="New game"|
00000800 3a 6d 32 25 21 31 32 3d 26 37 30 32 30 37 3a 6d |:m2%!12=&70207:m|
00000810 32 25 21 31 36 3d 32 35 36 3a 6d 32 25 21 32 30 |2%!16=256:m2%!20|
00000820 3d 34 34 3a 6d 32 25 21 32 34 3d 30 0d 02 80 45 |=44:m2%!24=0...E|
00000830 6d 32 25 21 32 38 3d 30 3a 6d 32 25 21 33 32 3d |m2%!28=0:m2%!32=|
00000840 2d 31 3a 6d 32 25 21 33 36 3d 26 37 30 30 30 31 |-1:m2%!36=&70001|
00000850 32 31 3a 6d 32 25 21 34 30 3d 6d 69 25 3a 6d 32 |21:m2%!40=mi%:m2|
00000860 25 21 34 34 3d 2d 31 3a 6d 32 25 21 34 38 3d 31 |%!44=-1:m2%!48=1|
00000870 36 0d 02 8a 4a 6d 32 25 21 35 32 3d 26 38 30 3a |6...Jm2%!52=&80:|
00000880 6d 32 25 21 35 36 3d 2d 31 3a 6d 32 25 21 36 30 |m2%!56=-1:m2%!60|
00000890 3d 26 37 30 30 30 31 32 31 3a 6d 32 25 21 36 34 |=&7000121:m2%!64|
000008a0 3d 6d 69 25 2b 31 36 3a 6d 32 25 21 36 38 3d 2d |=mi%+16:m2%!68=-|
000008b0 31 3a 6d 32 25 21 37 32 3d 31 36 0d 02 94 43 24 |1:m2%!72=16...C$|
000008c0 6d 33 25 3d 22 43 6c 6f 74 68 20 63 6f 6c 6f 75 |m3%="Cloth colou|
000008d0 72 22 3a 6d 33 25 21 31 32 3d 26 37 30 32 30 37 |r":m3%!12=&70207|
000008e0 3a 6d 33 25 21 31 36 3d 31 39 32 3a 6d 33 25 21 |:m3%!16=192:m3%!|
000008f0 32 30 3d 34 34 3a 6d 33 25 21 32 34 3d 30 0d 02 |20=44:m3%!24=0..|
00000900 9e 3f 6d 33 25 21 32 38 3d 31 3a 6d 33 25 21 33 |.?m3%!28=1:m3%!3|
00000910 32 3d 2d 31 3a 6d 33 25 21 33 36 3d 26 41 37 30 |2=-1:m3%!36=&A70|
00000920 30 30 30 32 31 3a 24 28 6d 33 25 2b 34 30 29 3d |00021:$(m3%+40)=|
00000930 22 4c 69 67 68 74 20 67 72 65 65 6e 22 0d 02 a8 |"Light green"...|
00000940 3e 6d 33 25 21 35 32 3d 30 3a 6d 33 25 21 35 36 |>m3%!52=0:m3%!56|
00000950 3d 2d 31 3a 6d 33 25 21 36 30 3d 26 44 37 30 30 |=-1:m3%!60=&D700|
00000960 30 30 32 31 3a 24 28 6d 33 25 2b 36 34 29 3d 22 |0021:$(m3%+64)="|
00000970 44 61 72 6b 20 67 72 65 65 6e 22 0d 02 b2 3a 6d |Dark green"...:m|
00000980 33 25 21 37 36 3d 26 38 30 3a 6d 33 25 21 38 30 |3%!76=&80:m3%!80|
00000990 3d 2d 31 3a 6d 33 25 21 38 34 3d 26 31 37 30 30 |=-1:m3%!84=&1700|
000009a0 30 30 32 31 3a 24 28 6d 33 25 2b 38 38 29 3d 22 |0021:$(m3%+88)="|
000009b0 47 72 65 79 22 0d 02 bc 05 e1 0d 02 c6 14 dd f2 |Grey"...........|
000009c0 63 6c 28 77 25 2c 69 25 2c 62 75 74 25 29 0d 02 |cl(w%,i%,but%)..|
000009d0 d0 09 c8 8e 77 25 ca 0d 02 da 0f c9 2d 32 3a c8 |....w%......-2:.|
000009e0 8e 62 75 74 25 ca 0d 02 e4 18 c9 31 2c 34 3a f2 |.but%......1,4:.|
000009f0 6f 70 65 6e 77 28 77 69 6e 64 6f 77 25 29 0d 02 |openw(window%)..|
00000a00 ee 1f c9 32 3a c8 99 32 36 32 33 35 36 2c 2c 6d |...2:..262356,,m|
00000a10 31 25 2c 21 62 25 2d 36 34 2c 34 30 38 0d 02 f8 |1%,!b%-64,408...|
00000a20 05 cb 0d 03 02 35 c9 74 61 62 6c 65 25 2c 73 63 |.....5.table%,sc|
00000a30 6f 72 65 73 25 3a e7 62 75 74 25 3d 32 3a c8 99 |ores%:.but%=2:..|
00000a40 32 36 32 33 35 36 2c 2c 6d 31 25 2c 21 62 25 2d |262356,,m1%,!b%-|
00000a50 36 34 2c 62 25 21 34 0d 03 0c 14 c9 77 69 6e 64 |64,b%!4.....wind|
00000a60 6f 77 25 3a c8 8e 62 75 74 25 ca 0d 03 16 0c c9 |ow%:..but%......|
00000a70 31 3a f2 75 6e 64 6f 0d 03 20 20 c9 32 3a c8 99 |1:.undo.. .2:..|
00000a80 32 36 32 33 35 36 2c 2c 6d 31 25 2c 21 62 25 2d |262356,,m1%,!b%-|
00000a90 36 34 2c 62 25 21 34 0d 03 2a 11 c9 34 3a f2 70 |64,b%!4..*..4:.p|
00000aa0 6c 61 63 65 28 69 25 29 0d 03 34 05 cb 0d 03 3e |lace(i%)..4....>|
00000ab0 19 c9 6d 65 73 73 61 67 65 25 3a e7 69 25 3d 32 |..message%:.i%=2|
00000ac0 3a f2 68 73 69 6e 0d 03 48 05 cb 0d 03 52 05 e1 |:.hsin..H....R..|
00000ad0 0d 03 5c 19 dd f2 6d 73 28 6d 73 30 25 2c 6d 73 |..\...ms(ms0%,ms|
00000ae0 31 25 29 3a ea 62 75 74 25 0d 03 66 1a c8 99 32 |1%):.but%..f...2|
00000af0 36 32 33 35 31 2c 2c 62 25 3a 62 75 74 25 3d 62 |62351,,b%:but%=b|
00000b00 25 21 38 0d 03 70 0b c8 8e 6d 73 30 25 ca 0d 03 |%!8..p...ms0%...|
00000b10 7a 0e c9 31 3a c8 8e 6d 73 31 25 ca 0d 03 84 12 |z..1:..ms1%.....|
00000b20 c9 30 3a 65 61 73 63 6f 72 65 73 25 3d 30 0d 03 |.0:eascores%=0..|
00000b30 8e 12 c9 31 3a 65 61 73 63 6f 72 65 73 25 3d 31 |...1:eascores%=1|
00000b40 0d 03 98 05 cb 0d 03 a2 3d e7 6d 73 31 25 3e 2d |........=.ms1%>-|
00000b50 31 3a f2 63 6c 6f 73 65 77 28 73 63 6f 72 65 73 |1:.closew(scores|
00000b60 25 29 3a f2 63 6c 6f 73 65 77 28 74 61 62 6c 65 |%):.closew(table|
00000b70 25 29 3a f2 65 61 73 63 6f 72 65 73 3a f2 75 64 |%):.eascores:.ud|
00000b80 68 73 0d 03 ac 4f f2 6e 65 77 67 61 6d 65 3a e7 |hs...O.newgame:.|
00000b90 ac a4 6f 70 65 6e 28 77 69 6e 64 6f 77 25 29 3a |..open(window%):|
00000ba0 f2 6f 70 65 6e 77 28 77 69 6e 64 6f 77 25 29 3a |.openw(window%):|
00000bb0 8b 3a c8 99 32 36 32 33 35 33 2c 77 69 6e 64 6f |.:..262353,windo|
00000bc0 77 25 2c 30 2c 2d 31 30 32 34 2c 31 30 37 32 2c |w%,0,-1024,1072,|
00000bd0 30 0d 03 b6 16 c9 32 3a f2 6f 70 65 6e 77 28 73 |0.....2:.openw(s|
00000be0 63 6f 72 65 73 25 29 0d 03 c0 15 c9 33 3a f2 6f |cores%).....3:.o|
00000bf0 70 65 6e 77 28 74 61 62 6c 65 25 29 0d 03 ca 50 |penw(table%)...P|
00000c00 c9 34 3a e7 6d 73 31 25 3e 2d 31 3a 21 28 6d 33 |.4:.ms1%>-1:!(m3|
00000c10 25 2b 32 38 2b 63 6c 6f 74 68 25 2a 32 34 29 2d |%+28+cloth%*24)-|
00000c20 3d 31 3a 63 6c 6f 74 68 25 3d 6d 73 31 25 3a 21 |=1:cloth%=ms1%:!|
00000c30 28 6d 33 25 2b 32 38 2b 63 6c 6f 74 68 25 2a 32 |(m3%+28+cloth%*2|
00000c40 34 29 2b 3d 31 3a f2 63 6c 6f 74 68 0d 03 d4 0b |4)+=1:.cloth....|
00000c50 c9 35 3a 71 25 3d b9 0d 03 de 05 cb 0d 03 e8 1d |.5:q%=..........|
00000c60 e7 62 75 74 25 3d 31 3a c8 99 32 36 32 33 35 36 |.but%=1:..262356|
00000c70 2c 2c 6d 31 25 2c 30 2c 30 0d 03 f2 05 e1 0d 03 |,,m1%,0,0.......|
00000c80 fc 3b dd f2 6f 70 65 6e 77 28 77 25 29 3a 21 62 |.;..openw(w%):!b|
00000c90 25 3d 77 25 3a c8 99 32 36 32 33 34 37 2c 2c 62 |%=w%:..262347,,b|
00000ca0 25 3a 62 25 21 32 38 3d 2d 31 3a c8 99 32 36 32 |%:b%!28=-1:..262|
00000cb0 33 34 31 2c 2c 62 25 3a e1 0d 04 06 26 dd f2 63 |341,,b%:....&..c|
00000cc0 6c 6f 73 65 77 28 77 25 29 3a 21 62 25 3d 77 25 |losew(w%):!b%=w%|
00000cd0 3a c8 99 32 36 32 33 34 32 2c 2c 62 25 3a e1 0d |:..262342,,b%:..|
00000ce0 04 10 46 dd f2 74 69 74 6c 65 28 77 25 2c 54 24 |..F..title(w%,T$|
00000cf0 29 3a 21 62 25 3d 77 25 3a c8 99 32 36 32 33 34 |):!b%=w%:..26234|
00000d00 38 2c 2c 62 25 3a 24 28 62 25 21 37 36 29 3d 54 |8,,b%:$(b%!76)=T|
00000d10 24 3a 62 25 21 38 34 3d a9 28 24 28 62 25 21 37 |$:b%!84=.($(b%!7|
00000d20 36 29 29 3a e1 0d 04 1a 12 dd f2 65 61 73 63 6f |6)):.......easco|
00000d30 72 65 73 3a ea 53 24 0d 04 24 58 e7 65 61 73 63 |res:.S$..$X.easc|
00000d40 6f 72 65 73 25 3d 30 3a f2 74 69 74 6c 65 28 73 |ores%=0:.title(s|
00000d50 63 6f 72 65 73 25 2c 22 53 63 6f 72 65 73 20 28 |cores%,"Scores (|
00000d60 45 6e 67 6c 69 73 68 29 22 29 3a 8b f2 74 69 74 |English)"):..tit|
00000d70 6c 65 28 73 63 6f 72 65 73 25 2c 22 53 63 6f 72 |le(scores%,"Scor|
00000d80 65 73 20 28 41 6d 65 72 69 63 61 6e 29 22 29 0d |es (American)").|
00000d90 04 2e 13 f7 2b 28 31 2b 65 61 73 63 6f 72 65 73 |....+(1+eascores|
00000da0 25 29 0d 04 38 1b dc 31 2c 33 2c 36 2c 31 32 2c |%)..8..1,3,6,12,|
00000db0 35 2c 31 30 2c 31 36 2c 33 30 2c 33 30 0d 04 42 |5,10,16,30,30..B|
00000dc0 1e dc 32 2c 35 2c 31 30 2c 31 35 2c 32 30 2c 32 |..2,5,10,15,20,2|
00000dd0 35 2c 35 30 2c 37 35 2c 31 30 30 0d 04 4c 28 e3 |5,50,75,100..L(.|
00000de0 4c 41 25 3d 31 31 b8 31 39 3a f3 53 24 3a f2 74 |LA%=11.19:.S$:.t|
00000df0 69 28 73 63 6f 72 65 73 25 2c 4c 41 25 2c 53 24 |i(scores%,LA%,S$|
00000e00 29 3a ed 0d 04 56 05 e1 0d 04 60 48 dd f2 74 69 |):...V....`H..ti|
00000e10 28 77 69 6e 25 2c 69 63 6f 6e 25 2c 54 58 24 29 |(win%,icon%,TX$)|
00000e20 3a 21 62 25 3d 77 69 6e 25 3a 62 25 21 34 3d 69 |:!b%=win%:b%!4=i|
00000e30 63 6f 6e 25 3a c8 99 32 36 32 33 35 30 2c 2c 62 |con%:..262350,,b|
00000e40 25 3a 24 28 62 25 21 32 38 29 3d 54 58 24 3a e1 |%:$(b%!28)=TX$:.|
00000e50 0d 04 6a 78 dd f2 74 6a 28 77 69 6e 25 2c 69 63 |..jx..tj(win%,ic|
00000e60 6f 6e 25 2c 54 58 24 29 3a 21 62 25 3d 77 69 6e |on%,TX$):!b%=win|
00000e70 25 3a 62 25 21 34 3d 69 63 6f 6e 25 3a c8 99 32 |%:b%!4=icon%:..2|
00000e80 36 32 33 35 30 2c 2c 62 25 3a 24 28 62 25 21 32 |62350,,b%:$(b%!2|
00000e90 38 29 3d 54 58 24 3a 21 62 25 3d 77 69 6e 25 3a |8)=TX$:!b%=win%:|
00000ea0 62 25 21 34 3d 69 63 6f 6e 25 3a 62 25 21 38 3d |b%!4=icon%:b%!8=|
00000eb0 30 3a 62 25 21 31 32 3d 30 3a c8 99 32 36 32 33 |0:b%!12=0:..2623|
00000ec0 34 39 2c 2c 62 25 3a e1 0d 04 74 41 dd a4 72 65 |49,,b%:...tA..re|
00000ed0 61 64 28 77 69 6e 25 2c 69 63 6f 6e 25 29 3a 21 |ad(win%,icon%):!|
00000ee0 62 25 3d 77 69 6e 25 3a 62 25 21 34 3d 69 63 6f |b%=win%:b%!4=ico|
00000ef0 6e 25 3a c8 99 32 36 32 33 35 30 2c 2c 62 25 3a |n%:..262350,,b%:|
00000f00 3d 24 28 62 25 21 32 38 29 0d 04 7e 19 dd f2 6c |=$(b%!28)..~...l|
00000f10 6f 61 64 73 63 6f 72 65 73 3a ea 4c 41 25 2c 4c |oadscores:.LA%,L|
00000f20 42 25 0d 04 88 1e 46 49 25 3d 8e 22 3c 50 6f 6b |B%....FI%=."<Pok|
00000f30 65 72 50 24 44 69 72 3e 2e 53 63 6f 72 65 73 22 |erP$Dir>.Scores"|
00000f40 0d 04 92 0c e3 4c 41 25 3d 30 b8 31 0d 04 9c 32 |.....LA%=0.1...2|
00000f50 e3 4c 42 25 3d 31 b8 32 30 3a e8 23 46 49 25 2c |.LB%=1.20:.#FI%,|
00000f60 68 73 24 28 4c 42 25 2c 4c 41 25 29 2c 68 73 25 |hs$(LB%,LA%),hs%|
00000f70 28 4c 42 25 2c 4c 41 25 29 3a ed 4c 42 25 0d 04 |(LB%,LA%):.LB%..|
00000f80 a6 08 ed 4c 41 25 0d 04 b0 09 d9 23 46 49 25 0d |...LA%.....#FI%.|
00000f90 04 ba 05 e1 0d 04 c4 19 dd f2 73 61 76 65 73 63 |..........savesc|
00000fa0 6f 72 65 73 3a ea 4c 41 25 2c 4c 42 25 0d 04 ce |ores:.LA%,LB%...|
00000fb0 1e 46 49 25 3d ae 22 3c 50 6f 6b 65 72 50 24 44 |.FI%=."<PokerP$D|
00000fc0 69 72 3e 2e 53 63 6f 72 65 73 22 0d 04 d8 0c e3 |ir>.Scores".....|
00000fd0 4c 41 25 3d 30 b8 31 0d 04 e2 32 e3 4c 42 25 3d |LA%=0.1...2.LB%=|
00000fe0 31 b8 32 30 3a f1 23 46 49 25 2c 68 73 24 28 4c |1.20:.#FI%,hs$(L|
00000ff0 42 25 2c 4c 41 25 29 2c 68 73 25 28 4c 42 25 2c |B%,LA%),hs%(LB%,|
00001000 4c 41 25 29 3a ed 4c 42 25 0d 04 ec 08 ed 4c 41 |LA%):.LB%.....LA|
00001010 25 0d 04 f6 09 d9 23 46 49 25 0d 05 00 05 e1 0d |%.....#FI%......|
00001020 05 0a 0f dd f2 75 64 68 73 3a ea 4c 41 25 0d 05 |.....udhs:.LA%..|
00001030 14 60 e7 65 61 73 63 6f 72 65 73 25 3d 30 3a f2 |.`.eascores%=0:.|
00001040 74 69 74 6c 65 28 74 61 62 6c 65 25 2c 22 48 69 |title(table%,"Hi|
00001050 67 68 20 53 63 6f 72 65 73 20 28 45 6e 67 6c 69 |gh Scores (Engli|
00001060 73 68 29 22 29 3a 8b f2 74 69 74 6c 65 28 74 61 |sh)"):..title(ta|
00001070 62 6c 65 25 2c 22 48 69 67 68 20 53 63 6f 72 65 |ble%,"High Score|
00001080 73 20 28 41 6d 65 72 69 63 61 6e 29 22 29 0d 05 |s (American)")..|
00001090 1e 61 e3 4c 41 25 3d 31 b8 32 30 3a f2 74 69 28 |.a.LA%=1.20:.ti(|
000010a0 74 61 62 6c 65 25 2c 32 31 2b 4c 41 25 2c 68 73 |table%,21+LA%,hs|
000010b0 24 28 4c 41 25 2c 65 61 73 63 6f 72 65 73 25 29 |$(LA%,eascores%)|
000010c0 29 3a f2 74 69 28 74 61 62 6c 65 25 2c 34 31 2b |):.ti(table%,41+|
000010d0 4c 41 25 2c c3 28 68 73 25 28 4c 41 25 2c 65 61 |LA%,.(hs%(LA%,ea|
000010e0 73 63 6f 72 65 73 25 29 29 29 3a ed 4c 41 25 0d |scores%))):.LA%.|
000010f0 05 28 05 e1 0d 05 32 1a dd f2 6e 65 77 67 61 6d |.(....2...newgam|
00001100 65 3a ea 4c 41 25 2c 4c 42 25 2c 4c 43 25 0d 05 |e:.LA%,LB%,LC%..|
00001110 3c 3e e3 4c 41 25 3d 31 b8 35 3a e3 4c 42 25 3d |<>.LA%=1.5:.LB%=|
00001120 31 b8 35 3a e3 4c 43 25 3d 30 b8 31 3a 63 25 28 |1.5:.LC%=0.1:c%(|
00001130 4c 41 25 2c 4c 42 25 2c 4c 43 25 29 3d 2d 31 3a |LA%,LB%,LC%)=-1:|
00001140 ed 4c 43 25 2c 4c 42 25 2c 4c 41 25 0d 05 46 0d |.LC%,LB%,LA%..F.|
00001150 e3 4c 41 25 3d 31 b8 32 35 0d 05 50 2d f5 3a 6e |.LA%=1.25..P-.:n|
00001160 63 25 28 4c 41 25 2c 30 29 3d b3 28 31 33 29 3a |c%(LA%,0)=.(13):|
00001170 6e 63 25 28 4c 41 25 2c 31 29 3d b3 28 34 29 3a |nc%(LA%,1)=.(4):|
00001180 fd a4 6e 67 63 68 0d 05 5a 08 ed 4c 41 25 0d 05 |..ngch..Z..LA%..|
00001190 64 33 6e 63 25 3d 31 3a 6e 63 25 28 30 2c 30 29 |d3nc%=1:nc%(0,0)|
000011a0 3d 2d 31 3a 6e 63 25 28 30 2c 31 29 3d 2d 31 3a |=-1:nc%(0,1)=-1:|
000011b0 6c 78 25 3d 30 3a 6c 79 25 3d 30 3a 6c 73 25 3d |lx%=0:ly%=0:ls%=|
000011c0 30 0d 05 6e 6c 74 6f 74 61 6c 25 3d 30 3a f2 74 |0..nltotal%=0:.t|
000011d0 69 28 77 69 6e 64 6f 77 25 2c 32 36 2c 22 22 29 |i(window%,26,"")|
000011e0 3a f2 74 69 28 77 69 6e 64 6f 77 25 2c 32 37 2c |:.ti(window%,27,|
000011f0 22 22 29 3a f2 74 69 28 77 69 6e 64 6f 77 25 2c |""):.ti(window%,|
00001200 32 38 2c 22 22 29 3a f2 74 69 28 77 69 6e 64 6f |28,""):.ti(windo|
00001210 77 25 2c 32 39 2c 22 22 29 3a f2 74 69 28 77 69 |w%,29,""):.ti(wi|
00001220 6e 64 6f 77 25 2c 33 31 2c 22 30 22 29 0d 05 78 |ndow%,31,"0")..x|
00001230 15 f2 63 6c 6f 73 65 77 28 6d 65 73 73 61 67 65 |..closew(message|
00001240 25 29 0d 05 82 05 e1 0d 05 8c 15 dd a4 6e 67 63 |%)...........ngc|
00001250 68 3a ea 6f 6b 25 3a 6f 6b 25 3d b9 0d 05 96 0f |h:.ok%:ok%=.....|
00001260 e7 4c 41 25 3d 31 3a 3d 6f 6b 25 0d 05 a0 43 e3 |.LA%=1:=ok%...C.|
00001270 4c 42 25 3d 31 b8 4c 41 25 2d 31 3a e7 6e 63 25 |LB%=1.LA%-1:.nc%|
00001280 28 4c 42 25 2c 30 29 3d 6e 63 25 28 4c 41 25 2c |(LB%,0)=nc%(LA%,|
00001290 30 29 80 6e 63 25 28 4c 42 25 2c 31 29 3d 6e 63 |0).nc%(LB%,1)=nc|
000012a0 25 28 4c 41 25 2c 31 29 3a 6f 6b 25 3d a3 0d 05 |%(LA%,1):ok%=...|
000012b0 aa 08 ed 4c 42 25 0d 05 b4 08 3d 6f 6b 25 0d 05 |...LB%....=ok%..|
000012c0 be 3c dd f2 72 65 64 72 61 77 28 78 31 25 2c 79 |.<..redraw(x1%,y|
000012d0 31 25 29 3a ea 4c 58 25 2c 4c 59 25 2c 78 25 2c |1%):.LX%,LY%,x%,|
000012e0 79 25 2c 78 6d 69 6e 25 2c 79 6d 69 6e 25 2c 78 |y%,xmin%,ymin%,x|
000012f0 6d 61 78 25 2c 79 6d 61 78 25 0d 05 c8 08 c8 95 |max%,ymax%......|
00001300 6d 25 0d 05 d2 19 78 25 3d 62 25 21 34 3a 79 25 |m%....x%=b%!4:y%|
00001310 3d 62 25 21 31 36 2d 31 30 32 34 0d 05 dc 12 78 |=b%!16-1024....x|
00001320 6d 69 6e 25 3d 62 25 21 32 38 2d 78 25 0d 05 e6 |min%=b%!28-x%...|
00001330 10 e7 78 6d 69 6e 25 3c 38 33 38 20 8c 0d 05 f0 |..xmin%<838 ....|
00001340 12 79 6d 69 6e 25 3d 62 25 21 33 32 2d 79 25 0d |.ymin%=b%!32-y%.|
00001350 05 fa 12 78 6d 61 78 25 3d 62 25 21 33 36 2d 78 |...xmax%=b%!36-x|
00001360 25 0d 06 04 12 79 6d 61 78 25 3d 62 25 21 34 30 |%....ymax%=b%!40|
00001370 2d 79 25 0d 06 0e 1a 78 6d 69 6e 25 3d a4 63 68 |-y%....xmin%=.ch|
00001380 28 78 6d 69 6e 25 81 31 36 36 2b 31 29 0d 06 18 |(xmin%.166+1)...|
00001390 1a 78 6d 61 78 25 3d a4 63 68 28 78 6d 61 78 25 |.xmax%=.ch(xmax%|
000013a0 81 31 36 36 2b 31 29 0d 06 22 1c 79 6d 69 6e 25 |.166+1)..".ymin%|
000013b0 3d 36 2d a4 63 68 28 79 6d 69 6e 25 81 32 30 34 |=6-.ch(ymin%.204|
000013c0 2b 31 29 0d 06 2c 1c 79 6d 61 78 25 3d 36 2d a4 |+1)..,.ymax%=6-.|
000013d0 63 68 28 79 6d 61 78 25 81 32 30 34 2b 31 29 0d |ch(ymax%.204+1).|
000013e0 06 36 32 e7 78 31 25 3e 30 3a 78 6d 69 6e 25 3d |.62.x1%>0:xmin%=|
000013f0 78 31 25 3a 78 6d 61 78 25 3d 78 31 25 3a 79 6d |x1%:xmax%=x1%:ym|
00001400 69 6e 25 3d 79 31 25 3a 79 6d 61 78 25 3d 79 31 |in%=y1%:ymax%=y1|
00001410 25 0d 06 40 25 e3 4c 59 25 3d 79 6d 61 78 25 b8 |%..@%.LY%=ymax%.|
00001420 79 6d 69 6e 25 3a e3 4c 58 25 3d 78 6d 69 6e 25 |ymin%:.LX%=xmin%|
00001430 b8 78 6d 61 78 25 0d 06 4a 21 e7 63 25 28 4c 58 |.xmax%..J!.c%(LX|
00001440 25 2c 4c 59 25 2c 30 29 3e 2d 31 20 84 20 78 31 |%,LY%,0)>-1 . x1|
00001450 25 3d 4c 58 25 20 8c 0d 06 54 39 e7 63 25 28 4c |%=LX% ...T9.c%(L|
00001460 58 25 2c 4c 59 25 2c 30 29 3e 2d 31 3a f2 64 63 |X%,LY%,0)>-1:.dc|
00001470 61 72 64 28 63 25 28 4c 58 25 2c 4c 59 25 2c 30 |ard(c%(LX%,LY%,0|
00001480 29 2c 63 25 28 4c 58 25 2c 4c 59 25 2c 31 29 29 |),c%(LX%,LY%,1))|
00001490 0d 06 5e 27 e7 63 25 28 4c 58 25 2c 4c 59 25 2c |..^'.c%(LX%,LY%,|
000014a0 30 29 3d 2d 31 20 80 20 78 31 25 3d 4c 58 25 3a |0)=-1 . x1%=LX%:|
000014b0 f2 6e 63 67 72 65 79 0d 06 68 65 21 62 25 3d 28 |.ncgrey..he!b%=(|
000014c0 4c 58 25 2d 31 29 2a 31 36 36 2b 34 3a 62 25 21 |LX%-1)*166+4:b%!|
000014d0 34 3d 2d 4c 59 25 2a 32 30 34 3a 62 25 21 38 3d |4=-LY%*204:b%!8=|
000014e0 21 62 25 2b 31 36 32 3a 62 25 21 31 32 3d 62 25 |!b%+162:b%!12=b%|
000014f0 21 34 2b 32 30 30 3a 62 25 21 31 36 3d 26 32 3a |!4+200:b%!16=&2:|
00001500 24 28 62 25 2b 32 30 29 3d 22 63 61 72 64 22 3a |$(b%+20)="card":|
00001510 c8 99 32 36 32 33 37 30 2c 2c 62 25 0d 06 72 05 |..262370,,b%..r.|
00001520 cd 0d 06 7c 0c ed 4c 58 25 2c 4c 59 25 0d 06 86 |...|..LX%,LY%...|
00001530 05 cd 0d 06 90 39 e7 6e 63 25 28 6e 63 25 2c 30 |.....9.nc%(nc%,0|
00001540 29 3d 2d 31 3a f2 6e 63 67 72 65 79 3a 8b f2 64 |)=-1:.ncgrey:..d|
00001550 63 61 72 64 28 6e 63 25 28 6e 63 25 2c 30 29 2c |card(nc%(nc%,0),|
00001560 6e 63 25 28 6e 63 25 2c 31 29 29 0d 06 9a 57 21 |nc%(nc%,1))...W!|
00001570 62 25 3d 38 37 30 3a 62 25 21 34 3d 2d 33 31 36 |b%=870:b%!4=-316|
00001580 3a 62 25 21 38 3d 21 62 25 2b 31 36 32 3a 62 25 |:b%!8=!b%+162:b%|
00001590 21 31 32 3d 62 25 21 34 2b 32 30 30 3a 62 25 21 |!12=b%!4+200:b%!|
000015a0 31 36 3d 26 32 3a 24 28 62 25 2b 32 30 29 3d 22 |16=&2:$(b%+20)="|
000015b0 63 61 72 64 22 3a c8 99 32 36 32 33 37 30 2c 2c |card":..262370,,|
000015c0 62 25 0d 06 a4 1f 21 62 25 3d 77 69 6e 64 6f 77 |b%....!b%=window|
000015d0 25 3a c8 99 32 36 32 33 34 36 2c 2c 62 25 b8 6d |%:..262346,,b%.m|
000015e0 25 0d 06 ae 05 ce 0d 06 b8 05 e1 0d 06 c2 23 dd |%.............#.|
000015f0 f2 64 63 61 72 64 28 72 25 2c 73 25 29 3a ea 73 |.dcard(r%,s%):.s|
00001600 30 25 2c 73 31 25 2c 73 32 25 2c 73 33 25 0d 06 |0%,s1%,s2%,s3%..|
00001610 cc 0a 21 73 61 25 3d 30 0d 06 d6 2c c8 99 34 36 |..!sa%=0...,..46|
00001620 2c 26 31 33 43 2c 73 70 25 2c 22 63 61 72 64 22 |,&13C,sp%,"card"|
00001630 2c 73 61 25 b8 73 30 25 2c 73 31 25 2c 73 32 25 |,sa%.s0%,s1%,s2%|
00001640 2c 73 33 25 0d 06 e0 07 f7 2b 31 0d 06 ea 1d dc |,s3%.....+1.....|
00001650 68 65 61 72 74 2c 63 6c 75 62 2c 64 69 61 6d 6f |heart,club,diamo|
00001660 6e 64 2c 73 70 61 64 65 0d 06 f4 13 e3 4c 41 25 |nd,spade.....LA%|
00001670 3d 31 b8 73 25 3a f3 53 24 3a ed 0d 06 fe 1e e7 |=1.s%:.S$:......|
00001680 73 25 3d 31 84 73 25 3d 33 3a 50 24 3d 22 72 22 |s%=1.s%=3:P$="r"|
00001690 3a 8b 3a 50 24 3d 22 62 22 0d 07 08 0c 52 24 3d |:.:P$="b"....R$=|
000016a0 c3 28 72 25 29 0d 07 12 05 cb 0d 07 1c 0a fb 31 |.(r%)..........1|
000016b0 34 33 3a db 0d 07 26 08 e6 30 2c 30 0d 07 30 13 |43:...&..0,0..0.|
000016c0 c8 93 c8 90 30 2c 30 2c 31 36 30 2c 31 39 38 0d |....0,0,160,198.|
000016d0 07 3a 08 e6 30 2c 37 0d 07 44 11 c8 93 30 2c 30 |.:..0,7..D...0,0|
000016e0 2c 31 36 30 2c 31 39 38 0d 07 4e 1d c8 99 34 36 |,160,198..N...46|
000016f0 2c 26 31 32 32 2c 73 70 25 2c 50 24 2b 52 24 2c |,&122,sp%,P$+R$,|
00001700 34 2c 31 37 32 0d 07 58 1f c8 99 34 36 2c 26 31 |4,172..X...46,&1|
00001710 32 32 2c 73 70 25 2c 50 24 2b 52 24 2c 31 33 36 |22,sp%,P$+R$,136|
00001720 2c 31 37 32 0d 07 62 2b c8 99 34 36 2c 26 31 32 |,172..b+..46,&12|
00001730 31 2c 73 70 25 2c 50 24 2b 52 24 3a c8 99 34 36 |1,sp%,P$+R$:..46|
00001740 2c 26 31 32 46 2c 73 70 25 2c 50 24 2b 52 24 0d |,&12F,sp%,P$+R$.|
00001750 07 6c 1b c8 99 34 36 2c 26 31 32 32 2c 73 70 25 |.l...46,&122,sp%|
00001760 2c 50 24 2b 52 24 2c 34 2c 34 0d 07 76 1d c8 99 |,P$+R$,4,4..v...|
00001770 34 36 2c 26 31 32 32 2c 73 70 25 2c 50 24 2b 52 |46,&122,sp%,P$+R|
00001780 24 2c 31 33 36 2c 34 0d 07 80 2b c8 99 34 36 2c |$,136,4...+..46,|
00001790 26 31 32 31 2c 73 70 25 2c 50 24 2b 52 24 3a c8 |&121,sp%,P$+R$:.|
000017a0 99 34 36 2c 26 31 32 46 2c 73 70 25 2c 50 24 2b |.46,&12F,sp%,P$+|
000017b0 52 24 0d 07 8a 1f c8 99 34 36 2c 26 31 32 32 2c |R$......46,&122,|
000017c0 73 70 25 2c 22 73 6d 22 2b 53 24 2c 32 2c 31 34 |sp%,"sm"+S$,2,14|
000017d0 30 0d 07 94 21 c8 99 34 36 2c 26 31 32 32 2c 73 |0...!..46,&122,s|
000017e0 70 25 2c 22 73 6d 22 2b 53 24 2c 31 33 32 2c 31 |p%,"sm"+S$,132,1|
000017f0 34 30 0d 07 9e 19 c8 99 34 36 2c 26 31 32 31 2c |40......46,&121,|
00001800 73 70 25 2c 22 73 6d 22 2b 53 24 0d 07 a8 1e c8 |sp%,"sm"+S$.....|
00001810 99 34 36 2c 26 31 32 32 2c 73 70 25 2c 22 73 6d |.46,&122,sp%,"sm|
00001820 22 2b 53 24 2c 32 2c 33 32 0d 07 b2 20 c8 99 34 |"+S$,2,32... ..4|
00001830 36 2c 26 31 32 32 2c 73 70 25 2c 22 73 6d 22 2b |6,&122,sp%,"sm"+|
00001840 53 24 2c 31 33 32 2c 33 32 0d 07 bc 19 c8 99 34 |S$,132,32......4|
00001850 36 2c 26 31 32 31 2c 73 70 25 2c 22 73 6d 22 2b |6,&121,sp%,"sm"+|
00001860 53 24 0d 07 c6 26 e7 72 25 3d 32 84 72 25 3d 33 |S$...&.r%=2.r%=3|
00001870 3a c8 99 34 36 2c 26 31 32 32 2c 73 70 25 2c 53 |:..46,&122,sp%,S|
00001880 24 2c 36 34 2c 31 34 38 0d 07 d0 41 e7 72 25 3e |$,64,148...A.r%>|
00001890 3d 34 80 72 25 3c 3d 31 30 3a c8 99 34 36 2c 26 |=4.r%<=10:..46,&|
000018a0 31 32 32 2c 73 70 25 2c 53 24 2c 33 32 2c 31 34 |122,sp%,S$,32,14|
000018b0 38 3a c8 99 34 36 2c 26 31 32 32 2c 73 70 25 2c |8:..46,&122,sp%,|
000018c0 53 24 2c 39 34 2c 31 34 38 0d 07 da 41 e7 72 25 |S$,94,148...A.r%|
000018d0 3e 3d 39 80 72 25 3c 3d 31 30 3a c8 99 34 36 2c |>=9.r%<=10:..46,|
000018e0 26 31 32 32 2c 73 70 25 2c 53 24 2c 33 32 2c 31 |&122,sp%,S$,32,1|
000018f0 30 36 3a c8 99 34 36 2c 26 31 32 32 2c 73 70 25 |06:..46,&122,sp%|
00001900 2c 53 24 2c 39 34 2c 31 30 36 0d 07 e4 3e e7 72 |,S$,94,106...>.r|
00001910 25 3e 3d 36 80 72 25 3c 3d 38 3a c8 99 34 36 2c |%>=6.r%<=8:..46,|
00001920 26 31 32 32 2c 73 70 25 2c 53 24 2c 33 32 2c 38 |&122,sp%,S$,32,8|
00001930 34 3a c8 99 34 36 2c 26 31 32 32 2c 73 70 25 2c |4:..46,&122,sp%,|
00001940 53 24 2c 39 34 2c 38 34 0d 07 ee 28 e7 72 25 3d |S$,94,84...(.r%=|
00001950 37 84 72 25 3d 38 3a c8 99 34 36 2c 26 31 32 32 |7.r%=8:..46,&122|
00001960 2c 73 70 25 2c 53 24 2c 36 34 2c 31 31 36 2c 38 |,sp%,S$,64,116,8|
00001970 0d 07 f8 24 e7 72 25 3d 31 30 3a c8 99 34 36 2c |...$.r%=10:..46,|
00001980 26 31 32 32 2c 73 70 25 2c 53 24 2c 36 34 2c 31 |&122,sp%,S$,64,1|
00001990 32 38 2c 38 0d 08 02 14 c8 99 34 36 2c 26 31 32 |28,8......46,&12|
000019a0 31 2c 73 70 25 2c 53 24 0d 08 0c 25 e7 72 25 3d |1,sp%,S$...%.r%=|
000019b0 32 84 72 25 3d 33 3a c8 99 34 36 2c 26 31 32 32 |2.r%=3:..46,&122|
000019c0 2c 73 70 25 2c 53 24 2c 36 34 2c 31 38 0d 08 16 |,sp%,S$,64,18...|
000019d0 3f e7 72 25 3e 3d 39 80 72 25 3c 3d 31 30 3a c8 |?.r%>=9.r%<=10:.|
000019e0 99 34 36 2c 26 31 32 32 2c 73 70 25 2c 53 24 2c |.46,&122,sp%,S$,|
000019f0 33 32 2c 36 30 3a c8 99 34 36 2c 26 31 32 32 2c |32,60:..46,&122,|
00001a00 73 70 25 2c 53 24 2c 39 34 2c 36 30 0d 08 20 3f |sp%,S$,94,60.. ?|
00001a10 e7 72 25 3e 3d 34 80 72 25 3c 3d 31 30 3a c8 99 |.r%>=4.r%<=10:..|
00001a20 34 36 2c 26 31 32 32 2c 73 70 25 2c 53 24 2c 33 |46,&122,sp%,S$,3|
00001a30 32 2c 31 38 3a c8 99 34 36 2c 26 31 32 32 2c 73 |2,18:..46,&122,s|
00001a40 70 25 2c 53 24 2c 39 34 2c 31 38 0d 08 2a 22 e7 |p%,S$,94,18..*".|
00001a50 72 25 3d 38 3a c8 99 34 36 2c 26 31 32 32 2c 73 |r%=8:..46,&122,s|
00001a60 70 25 2c 53 24 2c 36 34 2c 35 32 2c 38 0d 08 34 |p%,S$,64,52,8..4|
00001a70 23 e7 72 25 3d 31 30 3a c8 99 34 36 2c 26 31 32 |#.r%=10:..46,&12|
00001a80 32 2c 73 70 25 2c 53 24 2c 36 34 2c 34 30 2c 38 |2,sp%,S$,64,40,8|
00001a90 0d 08 3e 14 c8 99 34 36 2c 26 31 32 31 2c 73 70 |..>...46,&121,sp|
00001aa0 25 2c 53 24 0d 08 48 31 e7 72 25 3d 31 84 72 25 |%,S$..H1.r%=1.r%|
00001ab0 3d 33 84 72 25 3d 35 84 72 25 3d 39 3a c8 99 34 |=3.r%=5.r%=9:..4|
00001ac0 36 2c 26 31 32 32 2c 73 70 25 2c 53 24 2c 36 34 |6,&122,sp%,S$,64|
00001ad0 2c 38 34 2c 38 0d 08 52 1f e7 72 25 3e 31 30 3a |,84,8..R..r%>10:|
00001ae0 e6 30 2c 38 3a c8 93 32 38 2c 31 34 2c 31 30 34 |.0,8:..28,14,104|
00001af0 2c 31 37 30 0d 08 5c 8f e7 72 25 3e 31 30 3a c8 |,170..\..r%>10:.|
00001b00 99 34 36 2c 26 31 32 32 2c 73 70 25 2c 53 24 2b |.46,&122,sp%,S$+|
00001b10 52 24 2c 33 30 2c 31 30 30 3a c8 99 34 36 2c 26 |R$,30,100:..46,&|
00001b20 31 32 31 2c 73 70 25 2c 53 24 2b 52 24 3a c8 99 |121,sp%,S$+R$:..|
00001b30 34 36 2c 26 31 32 46 2c 73 70 25 2c 53 24 2b 52 |46,&12F,sp%,S$+R|
00001b40 24 3a c8 99 34 36 2c 26 31 32 32 2c 73 70 25 2c |$:..46,&122,sp%,|
00001b50 53 24 2b 52 24 2c 33 30 2c 31 36 3a c8 99 34 36 |S$+R$,30,16:..46|
00001b60 2c 26 31 32 31 2c 73 70 25 2c 53 24 2b 52 24 3a |,&121,sp%,S$+R$:|
00001b70 c8 99 34 36 2c 26 31 32 46 2c 73 70 25 2c 53 24 |..46,&12F,sp%,S$|
00001b80 2b 52 24 0d 08 66 18 c8 99 34 36 2c 73 30 25 2c |+R$..f...46,s0%,|
00001b90 73 31 25 2c 73 32 25 2c 73 33 25 0d 08 70 05 e1 |s1%,s2%,s3%..p..|
00001ba0 0d 08 7a 3c dd f2 6e 63 67 72 65 79 3a 21 73 61 |..z<..ncgrey:!sa|
00001bb0 25 3d 30 3a c8 99 34 36 2c 26 31 33 43 2c 73 70 |%=0:..46,&13C,sp|
00001bc0 25 2c 22 63 61 72 64 22 2c 73 61 25 b8 73 30 25 |%,"card",sa%.s0%|
00001bd0 2c 73 31 25 2c 73 32 25 2c 73 33 25 0d 08 84 0d |,s1%,s2%,s3%....|
00001be0 c8 8e 63 6c 6f 74 68 25 ca 0d 08 8e 0c c9 30 3a |..cloth%......0:|
00001bf0 e6 30 2c 31 30 0d 08 98 0c c9 31 3a e6 30 2c 31 |.0,10.....1:.0,1|
00001c00 33 0d 08 a2 0b c9 32 3a e6 30 2c 31 0d 08 ac 05 |3.....2:.0,1....|
00001c10 cb 0d 08 b6 2a c8 93 c8 90 30 2c 30 2c 31 36 32 |....*....0,0,162|
00001c20 2c 32 30 30 3a c8 99 34 36 2c 73 30 25 2c 73 31 |,200:..46,s0%,s1|
00001c30 25 2c 73 32 25 2c 73 33 25 3a e1 0d 08 c0 0c dd |%,s2%,s3%:......|
00001c40 a4 63 68 28 76 25 29 0d 08 ca 0c e7 76 25 3c 31 |.ch(v%).....v%<1|
00001c50 3a 3d 31 0d 08 d4 0c e7 76 25 3e 35 3a 3d 35 0d |:=1.....v%>5:=5.|
00001c60 08 de 07 3d 76 25 0d 08 e8 35 dd a4 6f 70 65 6e |...=v%...5..open|
00001c70 28 77 25 29 3a 21 62 25 3d 77 25 3a c8 99 32 36 |(w%):!b%=w%:..26|
00001c80 32 33 34 37 2c 2c 62 25 3a e7 28 62 25 21 33 32 |2347,,b%:.(b%!32|
00001c90 80 26 31 30 30 30 30 29 3a 3d b9 0d 08 f2 06 3d |.&10000):=.....=|
00001ca0 a3 0d 08 fc 16 dd f2 70 6c 61 63 65 28 69 25 29 |.......place(i%)|
00001cb0 3a ea 78 25 2c 79 25 0d 09 06 17 78 25 3d 69 25 |:.x%,y%....x%=i%|
00001cc0 83 35 2b 31 3a 79 25 3d 69 25 81 35 2b 31 0d 09 |.5+1:y%=i%.5+1..|
00001cd0 10 21 e7 63 25 28 78 25 2c 79 25 2c 30 29 3c 3e |.!.c%(x%,y%,0)<>|
00001ce0 2d 31 20 84 20 6e 63 25 3d 30 3a ef 37 3a e1 0d |-1 . nc%=0:.7:..|
00001cf0 09 1a 31 63 25 28 78 25 2c 79 25 2c 30 29 3d 6e |..1c%(x%,y%,0)=n|
00001d00 63 25 28 6e 63 25 2c 30 29 3a 63 25 28 78 25 2c |c%(nc%,0):c%(x%,|
00001d10 79 25 2c 31 29 3d 6e 63 25 28 6e 63 25 2c 31 29 |y%,1)=nc%(nc%,1)|
00001d20 0d 09 24 18 6e 63 25 2b 3d 31 3a e7 6e 63 25 3d |..$.nc%+=1:.nc%=|
00001d30 32 36 3a 6e 63 25 3d 30 0d 09 2e 55 21 62 25 3d |26:nc%=0...U!b%=|
00001d40 77 69 6e 64 6f 77 25 3a 62 25 21 34 3d 38 36 34 |window%:b%!4=864|
00001d50 3a 62 25 21 38 3d 2d 33 32 32 3a 62 25 21 31 32 |:b%!8=-322:b%!12|
00001d60 3d 31 30 33 36 3a 62 25 21 31 36 3d 2d 31 31 34 |=1036:b%!16=-114|
00001d70 3a c8 99 32 36 32 33 34 35 2c 2c 62 25 b8 6d 25 |:..262345,,b%.m%|
00001d80 3a f2 72 65 64 72 61 77 28 30 2c 30 29 0d 09 38 |:.redraw(0,0)..8|
00001d90 69 21 62 25 3d 77 69 6e 64 6f 77 25 3a 62 25 21 |i!b%=window%:b%!|
00001da0 34 3d 28 78 25 2d 31 29 2a 31 36 36 3a 62 25 21 |4=(x%-1)*166:b%!|
00001db0 38 3d 2d 79 25 2a 32 30 34 3a 62 25 21 31 32 3d |8=-y%*204:b%!12=|
00001dc0 62 25 21 34 2b 31 36 36 3a 62 25 21 31 36 3d 62 |b%!4+166:b%!16=b|
00001dd0 25 21 38 2b 32 30 34 3a c8 99 32 36 32 33 34 35 |%!8+204:..262345|
00001de0 2c 2c 62 25 b8 6d 25 3a f2 72 65 64 72 61 77 28 |,,b%.m%:.redraw(|
00001df0 78 25 2c 79 25 29 0d 09 42 17 6c 78 25 3d 78 25 |x%,y%)..B.lx%=x%|
00001e00 3a 6c 79 25 3d 79 25 3a 6c 73 25 3d 30 0d 09 4c |:ly%=y%:ls%=0..L|
00001e10 6f e7 63 25 28 31 2c 6c 79 25 2c 30 29 3e 2d 31 |o.c%(1,ly%,0)>-1|
00001e20 80 63 25 28 32 2c 6c 79 25 2c 30 29 3e 2d 31 80 |.c%(2,ly%,0)>-1.|
00001e30 63 25 28 33 2c 6c 79 25 2c 30 29 3e 2d 31 80 63 |c%(3,ly%,0)>-1.c|
00001e40 25 28 34 2c 6c 79 25 2c 30 29 3e 2d 31 80 63 25 |%(4,ly%,0)>-1.c%|
00001e50 28 35 2c 6c 79 25 2c 30 29 3e 2d 31 3a f2 63 6f |(5,ly%,0)>-1:.co|
00001e60 6d 62 28 6c 79 25 2c 31 29 3a 8b f2 63 69 6e 28 |mb(ly%,1):..cin(|
00001e70 32 36 29 3a f2 63 69 6e 28 32 37 29 0d 09 56 6f |26):.cin(27)..Vo|
00001e80 e7 63 25 28 6c 78 25 2c 31 2c 30 29 3e 2d 31 80 |.c%(lx%,1,0)>-1.|
00001e90 63 25 28 6c 78 25 2c 32 2c 30 29 3e 2d 31 80 63 |c%(lx%,2,0)>-1.c|
00001ea0 25 28 6c 78 25 2c 33 2c 30 29 3e 2d 31 80 63 25 |%(lx%,3,0)>-1.c%|
00001eb0 28 6c 78 25 2c 34 2c 30 29 3e 2d 31 80 63 25 28 |(lx%,4,0)>-1.c%(|
00001ec0 6c 78 25 2c 35 2c 30 29 3e 2d 31 3a f2 63 6f 6d |lx%,5,0)>-1:.com|
00001ed0 62 28 6c 78 25 2c 30 29 3a 8b f2 63 69 6e 28 32 |b(lx%,0):..cin(2|
00001ee0 38 29 3a f2 63 69 6e 28 32 39 29 0d 09 60 a1 e7 |8):.cin(29)..`..|
00001ef0 6e 63 25 3d 30 20 80 20 74 6f 74 61 6c 25 3e 68 |nc%=0 . total%>h|
00001f00 73 25 28 32 30 2c 65 61 73 63 6f 72 65 73 25 29 |s%(20,eascores%)|
00001f10 3a f2 74 69 28 6d 65 73 73 61 67 65 25 2c 31 2c |:.ti(message%,1,|
00001f20 22 22 29 3a 21 62 25 3d 6d 65 73 73 61 67 65 25 |""):!b%=message%|
00001f30 3a c8 99 32 36 32 33 34 37 2c 2c 62 25 3a 62 25 |:..262347,,b%:b%|
00001f40 21 34 3d 34 30 34 3a 62 25 21 38 3d 34 30 38 3a |!4=404:b%!8=408:|
00001f50 62 25 21 31 32 3d 38 37 36 3a 62 25 21 31 36 3d |b%!12=876:b%!16=|
00001f60 36 31 36 3a 62 25 21 32 38 3d 2d 31 3a c8 99 32 |616:b%!28=-1:..2|
00001f70 36 32 33 34 31 2c 2c 62 25 3a f2 63 61 72 65 74 |62341,,b%:.caret|
00001f80 28 6d 65 73 73 61 67 65 25 2c 31 29 0d 09 6a 05 |(message%,1)..j.|
00001f90 e1 0d 09 74 37 dd f2 63 69 6e 28 69 25 29 3a e7 |...t7..cin(i%):.|
00001fa0 a4 72 65 61 64 28 77 69 6e 64 6f 77 25 2c 69 25 |.read(window%,i%|
00001fb0 29 3c 3e 22 22 3a f2 74 6a 28 77 69 6e 64 6f 77 |)<>"":.tj(window|
00001fc0 25 2c 69 25 2c 22 22 29 0d 09 7e 05 e1 0d 09 88 |%,i%,"")..~.....|
00001fd0 0a dd f2 75 6e 64 6f 0d 09 92 15 e7 6e 63 25 3c |...undo.....nc%<|
00001fe0 32 84 6c 78 25 3d 30 3a ef 37 3a e1 0d 09 9c 8f |2.lx%=0:.7:.....|
00001ff0 63 25 28 6c 78 25 2c 6c 79 25 2c 30 29 3d 2d 31 |c%(lx%,ly%,0)=-1|
00002000 3a 63 25 28 6c 78 25 2c 6c 79 25 2c 31 29 3d 2d |:c%(lx%,ly%,1)=-|
00002010 31 3a 21 62 25 3d 77 69 6e 64 6f 77 25 3a 62 25 |1:!b%=window%:b%|
00002020 21 34 3d 28 6c 78 25 2d 31 29 2a 31 36 36 3a 62 |!4=(lx%-1)*166:b|
00002030 25 21 38 3d 2d 6c 79 25 2a 32 30 34 3a 62 25 21 |%!8=-ly%*204:b%!|
00002040 31 32 3d 62 25 21 34 2b 31 36 36 3a 62 25 21 31 |12=b%!4+166:b%!1|
00002050 36 3d 62 25 21 38 2b 32 30 34 3a c8 99 32 36 32 |6=b%!8+204:..262|
00002060 33 34 35 2c 2c 62 25 b8 6d 25 3a f2 72 65 64 72 |345,,b%.m%:.redr|
00002070 61 77 28 6c 78 25 2c 6c 79 25 29 0d 09 a6 5c 6e |aw(lx%,ly%)...\n|
00002080 63 25 2d 3d 31 3a 21 62 25 3d 77 69 6e 64 6f 77 |c%-=1:!b%=window|
00002090 25 3a 62 25 21 34 3d 38 36 34 3a 62 25 21 38 3d |%:b%!4=864:b%!8=|
000020a0 2d 33 32 32 3a 62 25 21 31 32 3d 31 30 33 36 3a |-322:b%!12=1036:|
000020b0 62 25 21 31 36 3d 2d 31 31 34 3a c8 99 32 36 32 |b%!16=-114:..262|
000020c0 33 34 35 2c 2c 62 25 b8 6d 25 3a f2 72 65 64 72 |345,,b%.m%:.redr|
000020d0 61 77 28 30 2c 30 29 0d 09 b0 29 74 6f 74 61 6c |aw(0,0)...)total|
000020e0 25 2d 3d 6c 73 25 3a f2 74 6a 28 77 69 6e 64 6f |%-=ls%:.tj(windo|
000020f0 77 25 2c 33 31 2c c3 28 74 6f 74 61 6c 25 29 29 |w%,31,.(total%))|
00002100 0d 09 ba 15 6c 78 25 3d 30 3a 6c 79 25 3d 30 3a |....lx%=0:ly%=0:|
00002110 6c 73 25 3d 30 0d 09 c4 05 e1 0d 09 ce 0b dd f2 |ls%=0...........|
00002120 63 6c 6f 74 68 0d 09 d8 29 21 62 25 3d 77 69 6e |cloth...)!b%=win|
00002130 64 6f 77 25 3a c8 99 32 36 32 33 34 38 2c 2c 62 |dow%:..262348,,b|
00002140 25 3a c8 99 32 36 32 33 33 39 2c 2c 62 25 0d 09 |%:..262339,,b%..|
00002150 e2 0d c8 8e 63 6c 6f 74 68 25 ca 0d 09 ec 0f c9 |....cloth%......|
00002160 30 3a 62 25 3f 33 39 3d 31 30 0d 09 f6 0f c9 31 |0:b%?39=10.....1|
00002170 3a 62 25 3f 33 39 3d 31 33 0d 0a 00 0e c9 32 3a |:b%?39=13.....2:|
00002180 62 25 3f 33 39 3d 31 0d 0a 0a 05 cb 0d 0a 14 40 |b%?39=1........@|
00002190 c8 99 32 36 32 33 33 37 2c 2c 62 25 2b 34 b8 77 |..262337,,b%+4.w|
000021a0 69 6e 64 6f 77 25 3a 21 62 25 3d 77 69 6e 64 6f |indow%:!b%=windo|
000021b0 77 25 3a c8 99 32 36 32 33 34 37 2c 2c 62 25 3a |w%:..262347,,b%:|
000021c0 c8 99 32 36 32 33 34 31 2c 2c 62 25 0d 0a 1e 05 |..262341,,b%....|
000021d0 e1 0d 0a 28 67 dd f2 73 6f 72 74 3a e3 4c 41 25 |...(g..sort:.LA%|
000021e0 3d 32 b8 35 3a e3 4c 42 25 3d 31 b8 4c 41 25 2d |=2.5:.LB%=1.LA%-|
000021f0 31 3a e7 63 6f 25 28 4c 41 25 2c 30 29 3e 63 6f |1:.co%(LA%,0)>co|
00002200 25 28 4c 42 25 2c 30 29 3a c8 94 63 6f 25 28 4c |%(LB%,0):..co%(L|
00002210 41 25 2c 30 29 2c 63 6f 25 28 4c 42 25 2c 30 29 |A%,0),co%(LB%,0)|
00002220 3a c8 94 63 6f 25 28 4c 41 25 2c 31 29 2c 63 6f |:..co%(LA%,1),co|
00002230 25 28 4c 42 25 2c 31 29 0d 0a 32 0e ed 4c 42 25 |%(LB%,1)..2..LB%|
00002240 2c 4c 41 25 3a e1 0d 0a 3c 45 dd f2 63 6f 6d 62 |,LA%:...<E..comb|
00002250 28 6e 25 2c 64 25 29 3a ea 4c 41 25 2c 4c 42 25 |(n%,d%):.LA%,LB%|
00002260 2c 73 74 72 25 2c 66 73 68 25 2c 72 6f 79 25 2c |,str%,fsh%,roy%,|
00002270 70 61 69 72 25 2c 74 72 69 25 2c 66 6f 75 72 25 |pair%,tri%,four%|
00002280 2c 63 6f 6d 62 25 2c 61 64 64 25 0d 0a 46 2f 73 |,comb%,add%..F/s|
00002290 74 72 25 3d a3 3a 66 73 68 25 3d a3 3a 72 6f 79 |tr%=.:fsh%=.:roy|
000022a0 25 3d a3 3a 70 61 69 72 25 3d 30 3a 74 72 69 25 |%=.:pair%=0:tri%|
000022b0 3d a3 3a 66 6f 75 72 25 3d a3 0d 0a 50 47 e7 64 |=.:four%=...PG.d|
000022c0 25 3d 30 3a e3 4c 41 25 3d 31 b8 35 3a 63 6f 25 |%=0:.LA%=1.5:co%|
000022d0 28 4c 41 25 2c 30 29 3d 63 25 28 6e 25 2c 4c 41 |(LA%,0)=c%(n%,LA|
000022e0 25 2c 30 29 3a 63 6f 25 28 4c 41 25 2c 31 29 3d |%,0):co%(LA%,1)=|
000022f0 63 25 28 6e 25 2c 4c 41 25 2c 31 29 3a ed 4c 41 |c%(n%,LA%,1):.LA|
00002300 25 0d 0a 5a 47 e7 64 25 3d 31 3a e3 4c 41 25 3d |%..ZG.d%=1:.LA%=|
00002310 31 b8 35 3a 63 6f 25 28 4c 41 25 2c 30 29 3d 63 |1.5:co%(LA%,0)=c|
00002320 25 28 4c 41 25 2c 6e 25 2c 30 29 3a 63 6f 25 28 |%(LA%,n%,0):co%(|
00002330 4c 41 25 2c 31 29 3d 63 25 28 4c 41 25 2c 6e 25 |LA%,1)=c%(LA%,n%|
00002340 2c 31 29 3a ed 4c 41 25 0d 0a 64 09 f2 73 6f 72 |,1):.LA%..d..sor|
00002350 74 0d 0a 6e 5b e7 63 6f 25 28 31 2c 30 29 3d 63 |t..n[.co%(1,0)=c|
00002360 6f 25 28 32 2c 30 29 2b 31 80 63 6f 25 28 32 2c |o%(2,0)+1.co%(2,|
00002370 30 29 3d 63 6f 25 28 33 2c 30 29 2b 31 80 63 6f |0)=co%(3,0)+1.co|
00002380 25 28 33 2c 30 29 3d 63 6f 25 28 34 2c 30 29 2b |%(3,0)=co%(4,0)+|
00002390 31 80 63 6f 25 28 34 2c 30 29 3d 63 6f 25 28 35 |1.co%(4,0)=co%(5|
000023a0 2c 30 29 2b 31 3a 73 74 72 25 3d b9 0d 0a 78 28 |,0)+1:str%=...x(|
000023b0 e3 4c 41 25 3d 31 b8 35 3a e7 63 6f 25 28 4c 41 |.LA%=1.5:.co%(LA|
000023c0 25 2c 30 29 3d 31 3a 63 6f 25 28 4c 41 25 2c 30 |%,0)=1:co%(LA%,0|
000023d0 29 3d 31 34 0d 0a 82 0b ed 3a f2 73 6f 72 74 0d |)=14.....:.sort.|
000023e0 0a 8c 56 e7 63 6f 25 28 31 2c 30 29 3d 63 6f 25 |..V.co%(1,0)=co%|
000023f0 28 32 2c 30 29 2b 31 80 63 6f 25 28 32 2c 30 29 |(2,0)+1.co%(2,0)|
00002400 3d 63 6f 25 28 33 2c 30 29 2b 31 80 63 6f 25 28 |=co%(3,0)+1.co%(|
00002410 33 2c 30 29 3d 63 6f 25 28 34 2c 30 29 2b 31 80 |3,0)=co%(4,0)+1.|
00002420 63 6f 25 28 34 2c 30 29 3d 63 6f 25 28 35 2c 30 |co%(4,0)=co%(5,0|
00002430 29 2b 31 20 8c 0d 0a 96 0a 73 74 72 25 3d b9 0d |)+1 .....str%=..|
00002440 0a a0 17 e7 63 6f 25 28 31 2c 30 29 3d 31 34 3a |....co%(1,0)=14:|
00002450 72 6f 79 25 3d b9 0d 0a aa 05 cd 0d 0a b4 53 e7 |roy%=.........S.|
00002460 63 6f 25 28 31 2c 31 29 3d 63 6f 25 28 32 2c 31 |co%(1,1)=co%(2,1|
00002470 29 80 63 6f 25 28 32 2c 31 29 3d 63 6f 25 28 33 |).co%(2,1)=co%(3|
00002480 2c 31 29 80 63 6f 25 28 33 2c 31 29 3d 63 6f 25 |,1).co%(3,1)=co%|
00002490 28 34 2c 31 29 80 63 6f 25 28 34 2c 31 29 3d 63 |(4,1).co%(4,1)=c|
000024a0 6f 25 28 35 2c 31 29 3a 66 73 68 25 3d b9 0d 0a |o%(5,1):fsh%=...|
000024b0 be 1d e3 4c 41 25 3d 31 b8 31 34 3a 63 74 25 28 |...LA%=1.14:ct%(|
000024c0 4c 41 25 29 3d 30 3a ed 4c 41 25 0d 0a c8 24 e3 |LA%)=0:.LA%...$.|
000024d0 4c 41 25 3d 31 b8 35 3a 63 74 25 28 63 6f 25 28 |LA%=1.5:ct%(co%(|
000024e0 4c 41 25 2c 30 29 29 2b 3d 31 3a ed 4c 41 25 0d |LA%,0))+=1:.LA%.|
000024f0 0a d2 0d e3 4c 41 25 3d 31 b8 31 34 0d 0a dc 10 |....LA%=1.14....|
00002500 c8 8e 63 74 25 28 4c 41 25 29 20 ca 0d 0a e6 0f |..ct%(LA%) .....|
00002510 c9 32 3a 70 61 69 72 25 2b 3d 31 0d 0a f0 0d c9 |.2:pair%+=1.....|
00002520 33 3a 74 72 69 25 3d b9 0d 0a fa 0e c9 34 3a 66 |3:tri%=......4:f|
00002530 6f 75 72 25 3d b9 0d 0b 04 05 cb 0d 0b 0e 08 ed |our%=...........|
00002540 4c 41 25 0d 0b 18 0b 63 6f 6d 62 25 3d 30 0d 0b |LA%....comb%=0..|
00002550 22 1d e7 70 61 69 72 25 3d 31 20 80 20 74 72 69 |"..pair%=1 . tri|
00002560 25 3d a3 3a 63 6f 6d 62 25 3d 31 0d 0b 2c 14 e7 |%=.:comb%=1..,..|
00002570 70 61 69 72 25 3d 32 3a 63 6f 6d 62 25 3d 32 0d |pair%=2:comb%=2.|
00002580 0b 36 1d e7 74 72 69 25 3d b9 20 80 20 70 61 69 |.6..tri%=. . pai|
00002590 72 25 3d 30 3a 63 6f 6d 62 25 3d 33 0d 0b 40 1c |r%=0:comb%=3..@.|
000025a0 e7 73 74 72 25 3d b9 20 80 20 66 73 68 25 3d a3 |.str%=. . fsh%=.|
000025b0 3a 63 6f 6d 62 25 3d 34 0d 0b 4a 1c e7 66 73 68 |:comb%=4..J..fsh|
000025c0 25 3d b9 20 80 20 73 74 72 25 3d a3 3a 63 6f 6d |%=. . str%=.:com|
000025d0 62 25 3d 35 0d 0b 54 1d e7 74 72 69 25 3d b9 20 |b%=5..T..tri%=. |
000025e0 80 20 70 61 69 72 25 3d 31 3a 63 6f 6d 62 25 3d |. pair%=1:comb%=|
000025f0 36 0d 0b 5e 14 e7 66 6f 75 72 25 3d b9 3a 63 6f |6..^..four%=.:co|
00002600 6d 62 25 3d 37 0d 0b 68 25 e7 73 74 72 25 3d b9 |mb%=7..h%.str%=.|
00002610 20 80 20 66 73 68 25 3d b9 20 80 20 72 6f 79 25 | . fsh%=. . roy%|
00002620 3d a3 3a 63 6f 6d 62 25 3d 38 0d 0b 72 25 e7 73 |=.:comb%=8..r%.s|
00002630 74 72 25 3d b9 20 80 20 66 73 68 25 3d b9 20 80 |tr%=. . fsh%=. .|
00002640 20 72 6f 79 25 3d b9 3a 63 6f 6d 62 25 3d 39 0d | roy%=.:comb%=9.|
00002650 0b 7c 0e e7 63 6f 6d 62 25 3e 30 20 8c 0d 0b 86 |.|..comb%>0 ....|
00002660 24 61 64 64 25 2b 3d bb 28 a4 72 65 61 64 28 73 |$add%+=.(.read(s|
00002670 63 6f 72 65 73 25 2c 63 6f 6d 62 25 2b 31 30 29 |cores%,comb%+10)|
00002680 29 0d 0b 90 0d 6c 73 25 2b 3d 61 64 64 25 0d 0b |)....ls%+=add%..|
00002690 9a 46 e7 64 25 3d 31 3a f2 74 6a 28 77 69 6e 64 |.F.d%=1:.tj(wind|
000026a0 6f 77 25 2c 32 36 2c a4 72 65 61 64 28 73 63 6f |ow%,26,.read(sco|
000026b0 72 65 73 25 2c 63 6f 6d 62 25 29 29 3a f2 74 6a |res%,comb%)):.tj|
000026c0 28 77 69 6e 64 6f 77 25 2c 32 37 2c c3 28 61 64 |(window%,27,.(ad|
000026d0 64 25 29 29 0d 0b a4 46 e7 64 25 3d 30 3a f2 74 |d%))...F.d%=0:.t|
000026e0 6a 28 77 69 6e 64 6f 77 25 2c 32 38 2c a4 72 65 |j(window%,28,.re|
000026f0 61 64 28 73 63 6f 72 65 73 25 2c 63 6f 6d 62 25 |ad(scores%,comb%|
00002700 29 29 3a f2 74 6a 28 77 69 6e 64 6f 77 25 2c 32 |)):.tj(window%,2|
00002710 39 2c c3 28 61 64 64 25 29 29 0d 0b ae 2a 74 6f |9,.(add%))...*to|
00002720 74 61 6c 25 2b 3d 61 64 64 25 3a f2 74 6a 28 77 |tal%+=add%:.tj(w|
00002730 69 6e 64 6f 77 25 2c 33 31 2c c3 28 74 6f 74 61 |indow%,31,.(tota|
00002740 6c 25 29 29 0d 0b b8 05 cc 0d 0b c2 3b f2 74 6a |l%))........;.tj|
00002750 28 77 69 6e 64 6f 77 25 2c 32 38 2d 64 25 2a 32 |(window%,28-d%*2|
00002760 2c 22 4e 6f 74 68 69 6e 67 22 29 3a f2 74 6a 28 |,"Nothing"):.tj(|
00002770 77 69 6e 64 6f 77 25 2c 32 39 2d 64 25 2a 32 2c |window%,29-d%*2,|
00002780 22 30 22 29 0d 0b cc 05 cd 0d 0b d6 05 e1 0d 0b |"0")............|
00002790 e0 17 dd f2 63 61 72 65 74 28 77 25 2c 69 25 29 |....caret(w%,i%)|
000027a0 3a ea 4c 41 25 0d 0b ea 31 4c 41 25 3d a9 28 a4 |:.LA%...1LA%=.(.|
000027b0 72 65 61 64 28 77 25 2c 69 25 29 29 3a c8 99 32 |read(w%,i%)):..2|
000027c0 36 32 33 35 34 2c 77 25 2c 69 25 2c 2c 2c 2d 31 |62354,w%,i%,,,-1|
000027d0 2c 4c 41 25 3a e1 0d 0b f4 4f dd f2 73 65 6c 28 |,LA%:....O..sel(|
000027e0 77 69 6e 25 2c 69 63 6f 6e 25 29 3a 21 62 25 3d |win%,icon%):!b%=|
000027f0 77 69 6e 25 3a 62 25 21 34 3d 69 63 6f 6e 25 3a |win%:b%!4=icon%:|
00002800 62 25 21 38 3d 31 3c 3c 32 31 3a 62 25 21 31 32 |b%!8=1<<21:b%!12|
00002810 3d 31 3c 3c 32 31 3a c8 99 32 36 32 33 34 39 2c |=1<<21:..262349,|
00002820 2c 62 25 3a e1 0d 0b fe 4d dd f2 64 65 73 65 6c |,b%:....M..desel|
00002830 28 77 69 6e 25 2c 69 63 6f 6e 25 29 3a 21 62 25 |(win%,icon%):!b%|
00002840 3d 77 69 6e 25 3a 62 25 21 34 3d 69 63 6f 6e 25 |=win%:b%!4=icon%|
00002850 3a 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 31 3c |:b%!8=0:b%!12=1<|
00002860 3c 32 31 3a c8 99 32 36 32 33 34 39 2c 2c 62 25 |<21:..262349,,b%|
00002870 3a e1 0d 0c 08 0f dd f2 68 73 69 6e 3a ea 6e 6f |:.......hsin:.no|
00002880 25 0d 0c 12 0a 6e 6f 25 3d 32 30 0d 0c 1c 83 e3 |%....no%=20.....|
00002890 4c 41 25 3d 31 39 b8 31 88 2d 31 3a e7 74 6f 74 |LA%=19.1.-1:.tot|
000028a0 61 6c 25 3e 68 73 25 28 4c 41 25 2c 65 61 73 63 |al%>hs%(LA%,easc|
000028b0 6f 72 65 73 25 29 3a 68 73 25 28 4c 41 25 2b 31 |ores%):hs%(LA%+1|
000028c0 2c 65 61 73 63 6f 72 65 73 25 29 3d 68 73 25 28 |,eascores%)=hs%(|
000028d0 4c 41 25 2c 65 61 73 63 6f 72 65 73 25 29 3a 68 |LA%,eascores%):h|
000028e0 73 24 28 4c 41 25 2b 31 2c 65 61 73 63 6f 72 65 |s$(LA%+1,eascore|
000028f0 73 25 29 3d 68 73 24 28 4c 41 25 2c 65 61 73 63 |s%)=hs$(LA%,easc|
00002900 6f 72 65 73 25 29 3a 6e 6f 25 3d 4c 41 25 0d 0c |ores%):no%=LA%..|
00002910 26 08 ed 4c 41 25 0d 0c 30 42 68 73 24 28 6e 6f |&..LA%..0Bhs$(no|
00002920 25 2c 65 61 73 63 6f 72 65 73 25 29 3d a4 72 65 |%,eascores%)=.re|
00002930 61 64 28 6d 65 73 73 61 67 65 25 2c 31 29 3a 68 |ad(message%,1):h|
00002940 73 25 28 6e 6f 25 2c 65 61 73 63 6f 72 65 73 25 |s%(no%,eascores%|
00002950 29 3d 74 6f 74 61 6c 25 0d 0c 3a 0f f2 73 61 76 |)=total%..:..sav|
00002960 65 73 63 6f 72 65 73 0d 0c 44 15 f2 63 6c 6f 73 |escores..D..clos|
00002970 65 77 28 6d 65 73 73 61 67 65 25 29 0d 0c 4e 4d |ew(message%)..NM|
00002980 f2 75 64 68 73 3a f2 63 6c 6f 73 65 77 28 74 61 |.udhs:.closew(ta|
00002990 62 6c 65 25 29 3a 21 62 25 3d 74 61 62 6c 65 25 |ble%):!b%=table%|
000029a0 3a c8 99 32 36 32 33 34 37 2c 2c 62 25 3a e7 6e |:..262347,,b%:.n|
000029b0 6f 25 3e 31 30 3a 62 25 21 32 34 3d 2d 35 32 38 |o%>10:b%!24=-528|
000029c0 3a 8b 62 25 21 32 34 3d 30 0d 0c 58 19 62 25 21 |:.b%!24=0..X.b%!|
000029d0 32 38 3d 2d 31 3a c8 99 32 36 32 33 34 31 2c 2c |28=-1:..262341,,|
000029e0 62 25 0d 0c 62 05 e1 0d ff |b%..b....|
000029e9 
.