Home » Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Games/!Patience/!RunImage
Games/!Patience/!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 » Micro User » MU 1991-07.adf » PD-Stuff |
| Filename: | Games/!Patience/!RunImage |
| Read OK: | ✔ |
| File size: | 313B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !RunImage
20
30DIM bootpath% 256
40SYS"XOS_ReadVarVal","Patience$Dir",bootpath%,256,0,3 TO,,bootlen%
50bootpath%?bootlen%=13
60
70DIM taskid%4:$taskid%="TASK"
80SYS "Wimp_Initialise",200,!taskid%,"Patience" TO version%
90`wbcol=10:`tbcol=2:`sco=3:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=1:`tbcol2=12
100PROCvars
110DIM q% &200,menudata% &200
120
130maxbuf%=&200:@%=5
140DIM buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
150DIM block 12
160DIM errbuf% 256
170
180pat%=FNcwindow
190DATA Patience,&0F,`wfcol,`wbcol,0,-1024,800,0, 0,-640,800,0 ,0
200
210DIM SPACE% 52,A$(7),S%(3),suit$(3):kingsonly=TRUE:dealreverse=TRUE:numberover=3
220N%=RND(TIME OR &80000000):PROCSHUFFLE
230suit$(0)="club":suit$(1)="diamond":suit$(2)="heart":suit$(3)="spade"
240
250S%=OPENIN"<Patience$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
260DIM sprites% T%,factors% 15,pixtrans% 15
270!sprites%=T%:sprites%!8=1
280SYS spop%,&109,sprites%
290SYS spop%,&10A,sprites%,"<Patience$Dir>.Sprites"
300icpat%=FNiconbar
310PROCgetmodeinfo
320
330ON ERROR PROCerrorbox
340SYS Drag,,-1:PROCgetpointer:xo%=mousex%:yo%=mousey%:open%=FALSE
350REPEAT
360 SYS Poll%,1,q% TO A%
370 CASE A% OF
380 WHEN 1 :PROCredraw_window(!q%)
390 WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
400 WHEN 3 :PROCcloseawindow(!q%)
410 WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
420 WHEN 7 :PROCgetpointer:X%=mousex%-bx%:Y%=mousey%-by%
430 IFX%>24+9*68 IFY%<-176 IFY%>-256 WHEN
440 IFX%>=8+7*68 IFY%>=-176 PROCTO(SRC$,"S"):WHEN
450 IFX%<8+7*68 PROCTO(SRC$,CHR$((X%-8)DIV68+ASC"A"))
460 WHEN 9 :PROCmenuselect(q%)
470 WHEN 10:IF!q%=pat% PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
480 WHEN 17,18:PROCreceive(q%)
490 ENDCASE
500UNTIL FALSE
510
520DEF PROCreceive(q%)
530CASE q%!16 OF
540WHEN 0:PROCfinish:END
550WHEN 10:PROCdesksave(q%)
560WHEN &400C1:PROCgetmodeinfo
570ENDCASE
580ENDPROC
590
600DEF FNcwindow
610READ A$,f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%
620=FNcreate_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
630
640DEF PROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
650IFb%AND2 THEN
660 CASE handle% OF
670 WHEN pat%:PROCdomenu(pat%,"Deal Hand,Resign,Only Kings,Rev. Cards","Patience")
680 WHEN -2: PROCdomenu(101,"Quit","Patience")
690 ENDCASE
700ENDIF
710IFb%AND4 THEN
720 IFhandle%>-1THENPROCgetw(handle%)
730 CASE handle% OF
740 WHEN pat%
750 X%=mousex%-bx%:Y%=mousey%-by%
760 IFX%>=24+9*68 IFY%<-176 IFY%>=-256 PROCNEXT:WHEN
770 IFplay IFX%>=24+8*68 IFY%<-176 IFY%>=-256 PROCFROM("P"):WHEN
780 IFplay IFX%<8+7*68 PROCFROM(CHR$((X%-8)DIV68+ASC"A")):WHEN
790 WHEN -2:IFopen% PROCfront(pat%) ELSE PROCreopen(pat%):open%=TRUE
800 ENDCASE
810ENDIF
820IFb%AND1 THEN
830 IFhandle%>-1THENPROCgetw(handle%)
840 CASE handle% OF
850 WHEN pat%
860 X%=mousex%-bx%:Y%=mousey%-by%
870 IFplay IFX%>=24+8*68 IFY%<-176 IFY%>=-256 IFNOTFNFROM("P") PROCTO(SRC$,"S"):WHEN
880 IFplay IFX%<8+7*68 IFNOTFNFROM(CHR$((X%-8)DIV68+ASC"A")) PROCTO(SRC$,"S"):WHEN
890 WHEN -2:IFopen% PROCfront(pat%) ELSE PROCreopen(pat%):open%=TRUE
900 ENDCASE
910ENDIF
920ENDPROC
930
940DEF PROCcloseawindow(handle%)
950PROCgetw(handle%)
960xo%=x0%:yo%=y0%:open%=FALSE
970PROCclose_window(handle%)
980ENDPROC
990
1000DEF PROCfinish
1010SYS "Wimp_CloseDown"
1020ENDPROC
1030
1040DEF PROCdomenu(handle%,menu$,menutitle$)
1050menuhandle%=handle%
1060menuptr%=buffer%
1070i%=0
1080menuptr%!20=40
1090$menuptr%=menutitle$
1100menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
1110menuptr%!16=172:menuptr%!24=0
1120menuptr%+=28
1130REPEAT item$=FNpar(","):PROCmenuitem(item$):UNTIL item$=""
1140menuptr%!-24=(menuptr%!-24)OR&80
1150IFhandle%=101 buffer%!16=140:SYS CrMenu,,buffer%,mousex%-64,96+40 ELSE SYS CrMenu,,buffer%,mousex%-32,mousey%+16
1160ENDPROC
1170
1180DEF PROCmenuitem(text$)
1190IF text$="" ENDPROC
1200flg%=0:IFtext$="Only Kings" flg%=kingsonly=TRUE
1210IFtext$="Rev. Cards" flg%=dealreverse=TRUE
1220menuptr%!0=flg%AND1
1230menuptr%!4=-1
1240menuptr%!8=&07000021
1250$(menuptr%+12)=text$
1260menuptr%+=24
1270ENDPROC
1280
1290DEF FNpar(sep$)
1300i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
1310=MID$(menu$,i1%,i%-i1%)
1320
1330DEF PROCmenuselect(menus%)
1340SYS DcMenu,,buffer%,menus%,STRING$(200," ")TO,,,a$
1350IF a$="" THEN ENDPROC
1360CASE menuhandle% OF
1370WHEN pat%
1380 CASE a$ OF
1390 WHEN "Resign"
1400 FORI%=1TO7:FORJ%=1TOLENA$(I%)
1410 MID$(A$(I%),J%,1)=CHR$(ASCMID$(A$(I%),J%,1)AND127):NEXT:NEXT
1420 PROCredraw_window(pat%):play=FALSE:dealnumber=1
1430 WHEN "Deal Hand"
1440 PROCSHUFFLE:PROCredraw_window(pat%)
1450 WHEN "Only Kings"
1460 kingsonly=NOTkingsonly
1470 WHEN "Rev. Cards"
1480 dealreverse=NOTdealreverse
1490 ENDCASE
1500WHEN 101
1510 IF a$="Quit":PROCfinish:END
1520ENDCASE
1530ENDPROC
1540
1550DEF PROCpat
1560WHILE more%
1570 ox0%=(q%!28-(bx%+8))DIV68
1580 ox1%=(q%!36-(bx%+8))DIV68:IFox1%>6 ox1%=6
1590 IFox0%<7 FORZ%=ox0%TOox1%:PROCPILE(A$(Z%+1),bx%+8+Z%*68,by%-96):NEXT
1600 ox0%=(q%!28-bx%-24)DIV68-7:IFox0%<0 ox0%=0
1610 ox1%=(q%!36-bx%-24)DIV68-7:IFox1%>3 ox1%=3
1620 IFox1%>-1 IFox0%<4 FORI%=ox0%TOox1%:PROCCARD(S%(I%),bx%+(7+I%)*68+24,by%-128):NEXT
1630 IF LENPACK$ THEN
1640 IFfcol%<2 THEN SYSCol%,0 ELSE SYSCol%,7
1650 MOVEbx%+9*68,by%-280:PRINTLENPACK$;
1660 IFPLACE=LENPACK$ PROCCARDHOLE(bx%+24+9*68,by%-256) ELSE PROCBACK(bx%+24+9*68,by%-256)
1670 IFPLACE>0 PROCCARD(ASCMID$(PACK$,PLACE,1),bx%+24+8*68,by%-256) ELSE PROCNOCARD(bx%+24+8*68,by%-256)
1680 ELSE
1690 PROCNOCARD(bx%+24+9*68,by%-256):PROCNOCARD(bx%+24+8*68,by%-256)
1700 ENDIF
1710 SYS GetR%,,q% TO more%
1720ENDWHILE
1730ENDPROC
1740
1750DEF FNcreate_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)
1760!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%
1770q%!24=-1:q%!28=flags%
1780IFfc%=15ANDbc%=15THEN
1790 q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
1800ELSE q%?32=`tfcol:q%?33=`tbcol:q%?34=fc%:q%?35=bc%
1810ENDIF
1820q%?36=`sco:q%?37=`sci:q%?38=`tbcol2:q%?39=0
1830q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
1840q%!56=titlef%
1850q%!60=&3000 : REM work area flags
1860q%!64=0:q%!68=0 : REM reserved
1870$(q%+72)=LEFT$(title$,11)
1880q%!84=nicons%
1890LOCALI%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
1900WHILE nicons%>0
1910 READ x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
1920 I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
1930 IF (f%AND&40)=0 THEN bc%=fc%+(bc%<<4)
1940 I%!16=f%+(bc%<<24)
1950 IF(f%AND&100)THEN
1960 READ L%:B%=FNbuffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
1970 ELSE
1980 $(I%+20)=data$
1990 ENDIF
2000 I%=I%+32:nicons%=nicons%-1
2010ENDWHILE
2020 SYS CreateW,,q% TO handle%
2030=handle%
2040
2050DEF PROCfront(handle%)
2060IFhandle%=-1THENENDPROC
2070PROCgetw(handle%)
2080PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
2090ENDPROC
2100
2110DEF PROCpopup(handle%)
2120PROCgetw(handle%)
2130xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
2140PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
2150ENDPROC
2160
2170DEF PROCreopen(handle%)
2180PROCgetw(handle%)
2190PROCopen_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
2200ENDPROC
2210
2220DEF PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
2230IFhandle%=-1THENENDPROC
2240q%!0=handle%:q%!28=bhandle%
2250q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
2260q%!20=scx%:q%!24=scy%
2270SYS OpenW,,q%
2280ENDPROC
2290
2300DEF PROCgetw(handle%)
2310!q%=handle%:SYS GetW,,q%
2320PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
2330ENDPROC
2340
2350DEF PROCinfo(q%)
2360x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
2370bx%=x0%-scx%:by%=y1%-scy%
2380ENDPROC
2390
2400DEF PROCupdate(handle%,ux0%,uy0%,ux1%,uy1%)
2410!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
2420SYS UpdateW,,q% TO more%:PROCinfo(q%+4)
2430ENDPROC
2440
2450DEF PROCredraw_window(handle%)
2460IFhandle%=pat% THEN
2470!q%=handle%
2480SYS RedrawW,,q% TO more%
2490PROCinfo(q%+4)
2500PROCpat
2510ENDIF
2520ENDPROC
2530
2540DEF PROCclose_window(handle%)
2550!q%=handle%:SYS CloseW,,q%
2560ENDPROC
2570
2580DEF PROCvars
2590Wimp = (1<<18) + (3<<6)
2600CreateW = Wimp+1
2610OpenW = Wimp+5
2620CloseW = Wimp+6
2630Poll% = Wimp+7
2640RedrawW = Wimp+8
2650UpdateW = Wimp+9
2660GetR% = Wimp+10
2670GetW = Wimp+11
2680GetP = Wimp+15
2690Drag = Wimp+16
2700CrMenu = Wimp+20
2710DcMenu = Wimp+21
2720SYS "OS_SWINumberFromString",,"OS_SpriteOp" TO spop%
2730SYS "OS_SWINumberFromString",,"Wimp_SetColour" TO Col%
2740SYS "OS_SWINumberFromString",,"Wimp_ForceRedraw" TO fred%
2750ENDPROC
2760
2770DEF PROCgetpointer
2780SYS GetP,,q%
2790mousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
2800ENDPROC
2810
2820DEF PROCerrorbox
2830SYS Drag,,-1
2840!errbuf%=ERR:$(errbuf%+4)=REPORT$+" at line "+STR$ERL+CHR$0
2850SYS "Wimp_ReportError",errbuf%,1,"Patience"
2860PROCfinish:END
2870ENDPROC
2880
2890DEF FNbuffer(L%)
2900IFcurbuf%+L%>buffer%+maxbuf%THEN ERROR100,"Buffer space full"
2910curbuf%+=L%
2920=curbuf%-L%
2930
2940DEF FNiconbar
2950!q%=-1
2960q%!4=0:q%!8=0:q%!12=68:q%!16=68
2970q%!20=&2102
2980spname$="-Patience"
2990DIM q%!24 (LENspname$+1):$(q%!24)=spname$
3000q%!28=sprites%
3010q%!32=LENspname$+1
3020SYS "Wimp_CreateIcon",,q% TO ic%
3030=ic%
3040
3050DEF PROCSHUFFLE
3060PACK$=STRING$(52," "):PACK$=""
3070K%=0:FORI%=0TO3:FORJ%=1TO13:SPACE%?K%=I%+J%*4:K%=K%+1:NEXT:NEXT
3080FORI%=1TO52:REPEAT J%=RND(52)-1:UNTILSPACE%?J%
3090PACK$+=CHR$(SPACE%?J%+128):SPACE%?J%=0:NEXT
3100FORI%=1TO7:A$(I%)=LEFT$(PACK$,7-I%):A$(I%)+=CHR$(ASCMID$(PACK$,8-I%)AND127)
3110PACK$=MID$(PACK$,9-I%):NEXT
3120PLACE=0:A$=PACK$:PACK$=""
3130FORI%=1TOLENA$:PACK$+=CHR$(ASCMID$(A$,I%)AND127):NEXT
3140FORI%=0TO3:S%(I%)=I%:NEXT
3150play=TRUE:dealnumber=numberover
3160ENDPROC
3170
3180DEF PROCCARD(N%,X%,Y%)
3190SYSCol%,7:RECTANGLE FILL X%,Y%,60,83
3200SYSCol%,0:RECTANGLE FILL X%+4,Y%+4,52,75
3210SYS spop%,&134,sprites%,suit$(N%AND3),X%+16,Y%+8,,factors%,pixtrans%
3220SYS spop%,&134,sprites%,"s"+suit$(N%AND3),X%+4,Y%+56,,factors%,pixtrans%
3230IF(N% EOR N%>>1) AND 1 SYSCol%,11 ELSE SYSCol%,7
3240MOVEX%+24,Y%+72:N%=N%>>2:IFN%>1IFN%<11PRINT;N%;
3250IFN%=1PRINT"A";
3260IFN%=11PRINT"J";
3270IFN%=12PRINT"Q";
3280IFN%=13PRINT"K";
3290ENDPROC
3300
3310DEF PROCHALFCARD(N%,X%,Y%)
3320SYSCol%,7:RECTANGLE FILL X%,Y%+40,60,43
3330SYSCol%,0:RECTANGLE FILL X%+4,Y%+40,52,39
3340SYS spop%,&134,sprites%,"s"+suit$(N%AND3),X%+4,Y%+56,,factors%,pixtrans%
3350IF(N% EOR N%>>1) AND 1 SYSCol%,11 ELSE SYSCol%,7
3360MOVEX%+24,Y%+72:N%=N%>>2:IFN%>1IFN%<11PRINT;N%;
3370IFN%=1PRINT"A";
3380IFN%=11PRINT"J";
3390IFN%=12PRINT"Q";
3400IFN%=13PRINT"K";
3410ENDPROC
3420
3430DEF PROCBACK(X%,Y%)
3440SYS spop%,&134,sprites%,"back",X%,Y%,,factors%,pixtrans%
3450ENDPROC
3460
3470DEF PROCHALFBACK(X%,Y%)
3480SYS spop%,&134,sprites%,"half",X%,Y%+40,,factors%,pixtrans%
3490ENDPROC
3500
3510DEF PROCNOCARD(X%,Y%)
3520SYSCol%,`wbcol:RECTANGLE FILL X%,Y%,60,83
3530ENDPROC
3540
3550DEF PROCCARDHOLE(X%,Y%)
3560SYSCol%,3:RECTANGLE FILL X%,Y%,60,83
3570ENDPROC
3580
3590DEF PROCPILE(A$,X%,Y%)
3600IFLENA$=0 ENDPROC
3610LOCALI%:IFLENA$>1 THEN
3620FORI%=1TOLENA$-1:J%=ASCMID$(A$,I%)
3630IFJ%>127 PROCHALFBACK(X%,Y%) ELSE PROCHALFCARD(J%,X%,Y%)
3640Y%-=40:NEXT
3650ENDIF
3660J%=ASCMID$(A$,LENA$):IFJ%>127 PROCBACK(X%,Y%) ELSE PROCCARD(J%,X%,Y%)
3670ENDPROC
3680
3690DEF PROCREMCARDS(I%,J%)
3700LOCALT%:T%=LENA$(I%)
3710A$(I%)=LEFT$(A$(I%),T%-J%)
3720IFLENA$(I%) A$(I%)=LEFT$(A$(I%),LENA$(I%)-1)+CHR$(ASCRIGHT$(A$(I%),1)AND127)
3730PROCupdate(pat%,8+(I%-1)*68,-80-T%*40,8+I%*68,40-LENA$(I%)*40)
3740WHILE more%
3750 CLG:PROCPILE(A$(I%),bx%+8+(I%-1)*68,by%-96)
3760 SYS GetR%,,q% TO more%
3770 ENDWHILE
3780ENDPROC
3790
3800DEF PROCNEXT
3810IFLENPACK$=0 VDU7:ENDPROC
3820IFPLACE=LENPACK$ PLACE=0
3830IFdealreverse THEN
3840N1$="":FORI%=dealnumber TO 1 STEP-1
3850N1$+=MID$(PACK$,PLACE+I%,1):NEXT
3860ELSE
3870N1$=MID$(PACK$,PLACE+1,dealnumber)
3880ENDIF
3890PACK$=LEFT$(PACK$,PLACE)+N1$+MID$(PACK$,PLACE+dealnumber+1)
3900PLACE+=LENN1$
3910MID$(PACK$,PLACE)=CHR$(ASCMID$(PACK$,PLACE)AND127)
3920PROCupdate(pat%,24+8*68,-256,24+10*68,-144)
3930PROCpat
3940ENDPROC
3950
3960DEF PROCFROM(A$)
3970IFFNFROM(A$) ENDPROC
3980q%!20=pat%:SYS GetW,,q%+20
3990!q%=pat%:q%!4=5
4000q%!8=mousex%-30:q%!12=mousey%-40:q%!16=mousex%+30:q%!20=mousey%+40
4010SYS Drag,,q%
4020ENDPROC
4030
4040DEF FNFROM(A$)
4050SRC$=A$:IFA$="P" IFPLACE=0 OR LENPACK$=0 VDU7:=TRUE
4060IFA$<>"P"IFLENA$(ASCA$-64)=0 VDU7:=TRUE
4070=FALSE
4080
4090DEF PROCTO(A$,B$)
4100IFA$<>"P" A%=ASCA$-64
4110B%=ASCB$
4120IFB%=ASC"S"THEN
4130 IFA$="P" CARD=ASCMID$(PACK$,PLACE) ELSE CARD=ASCMID$(A$(A%),LENA$(A%))
4140 I%=CARD AND 3:IFCARD<>S%(I%)+4 VDU7:ENDPROC
4150 S%(I%)=CARD:IFA$="P" PROCREMPACK ELSE PROCREMCARDS(A%,1)
4160 PROCTOSTACK(I%)
4170ELSE
4180 IFB%<ASC"A"ORB%>ASC"G" VDU7:ENDPROC
4190 CARDT=ASCRIGHT$(A$(B%-64),1):YLEN=LENA$(B%-64):IFA$="P"THEN
4200 CARD=ASCMID$(PACK$,PLACE):IFFNCHK=0 VDU7:ENDPROC
4210 A$(B%-64)+=CHR$CARD:PROCREMPACK
4220 ELSE
4230 C%=0:D%=0:REPEAT D%+=1:CARD=ASCMID$(A$(A%),D%):UNTILFNCHK ORD%>LENA$(A%)
4240 IFD%>LENA$(A%) VDU7:ENDPROC
4250 Q%=LENA$(B%-64):A$(B%-64)+=MID$(A$(A%),D%)
4260 PROCREMCARDS(A%,LENA$(A%)-D%+1)
4270 ENDIF
4280 PROCupdate(pat%,8+(B%-ASC"A")*68,-120-LENA$(B%-64)*40,8+(B%-64)*68,-YLEN*40)
4290 WHILE more%
4300 PROCPILE(A$(B%-64),bx%+8+(B%-65)*68,by%-96)
4310 SYS GetR%,,q% TO more%
4320 ENDWHILE
4330ENDIF
4340ENDPROC
4350
4360DEF PROCREMPACK
4370PLACE-=1:PACK$=LEFT$(PACK$,PLACE)+MID$(PACK$,PLACE+2)
4380PROCupdate(pat%,24+8*68,-280-32,20+10*68,-140)
4390WHILE more%
4400 CLG
4410 IF LENPACK$ THEN
4420 IFfcol%<2 THEN SYSCol%,0 ELSE SYSCol%,7
4430 MOVEbx%+9*68,by%-280:PRINTLENPACK$;
4440 IFPLACE=LENPACK$ PROCCARDHOLE(bx%+24+9*68,by%-256) ELSE PROCBACK(bx%+24+9*68,by%-256)
4450 IFPLACE>0 PROCCARD(ASCMID$(PACK$,PLACE,1),bx%+24+8*68,by%-256) ELSE PROCNOCARD(bx%+24+8*68,by%-256)
4460 ELSE
4470 PROCNOCARD(bx%+24+9*68,by%-256):PROCNOCARD(bx%+24+8*68,by%-256)
4480 ENDIF
4490 SYS GetR%,,q% TO more%
4500ENDWHILE
4510ENDPROC
4520
4530DEF FNCHK
4540IFCARDT=-1 THEN
4550IFkingsonly THEN =CARD DIV4=13 ELSE =CARD<127
4560ENDIF
4570CT=(CARDT EOR CARD)AND3:IFCT=0 OR CT=3 =FALSE
4580=CARDT DIV4=CARD DIV4+1
4590
4600DEF PROCTOSTACK(I%)
4610PROCupdate(pat%,24+(7+I%)*68,-128,24+(8+I%)*68,-40)
4620WHILE more%
4630 PROCCARD(S%(I%),bx%+(7+I%)*68+24,by%-128)
4640 SYS GetR%,,q% TO more%
4650ENDWHILE
4660ENDPROC
4670
4680DEF PROCgetmodeinfo
4690SYS"Wimp_ReadPixTrans",&100,sprites%,"club",,,,factors%,pixtrans%
4700SYS"OS_ReadModeVariable",MODE,3 TO,,fcol%
4710ENDPROC
4720
4730DEF PROCdesksave(message%)
4740LOCAL myref%,sender%
4750IF NOT FNdeskwrite(message%!20) THEN
4760 sender%=message%!4
4770 myref%=message%!8
4780 message%!12=myref%
4790 SYS"Wimp_SendMessage",19,message%,sender%
4800 !errbuf%=ERR:$(errbuf%+4)=REPORT$+CHR$0
4810 SYS "Wimp_ReportError",errbuf%,1,"Patience"
4820ENDIF
4830ENDPROC
4840
4850DEF FNdeskwrite(H%)
4860LOCAL ERROR
4870ON ERROR LOCAL = FALSE
4880BPUT#H%,"Run "+$bootpath%
4890= TRUE
� > !RunImage
� bootpath% 256
(Cș"XOS_ReadVarVal","Patience$Dir",bootpath%,256,0,3 �,,bootlen%
2bootpath%?bootlen%=13
<
F � taskid%4:$taskid%="TASK"
P;ș "Wimp_Initialise",200,!taskid%,"Patience" � version%
ZK`wbcol=10:`tbcol=2:`sco=3:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=1:`tbcol2=12
d �vars
n � q% &200,menudata% &200
x
�maxbuf%=&200:@%=5
�0� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
�� block 12
�� errbuf% 256
�
�pat%=�cwindow
�D� Patience,&0F,`wfcol,`wbcol,0,-1024,800,0, 0,-640,800,0 ,0
�
�K� SPACE% 52,A$(7),S%(3),suit$(3):kingsonly=�:dealreverse=�:numberover=3
� N%=�(� � &80000000):�SHUFFLE
�Hsuit$(0)="club":suit$(1)="diamond":suit$(2)="heart":suit$(3)="spade"
�
�0S%=�"<Patience$Dir>.Sprites":T%=�#S%+16:�#S%
*� sprites% T%,factors% 15,pixtrans% 15
!sprites%=T%:sprites%!8=1
ș spop%,&109,sprites%
"3ș spop%,&10A,sprites%,"<Patience$Dir>.Sprites"
,icpat%=�iconbar
6�getmodeinfo
@
J� � �errorbox
T;ș Drag,,-1:�getpointer:xo%=mousex%:yo%=mousey%:open%=�
^�
h ș Poll%,1,q% � A%
r
Ȏ A% �
| � 1 :�redraw_window(!q%)
�D � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
� � 3 :�closeawindow(!q%)
�7 � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�4 � 7 :�getpointer:X%=mousex%-bx%:Y%=mousey%-by%
�% �X%>24+9*68 �Y%<-176 �Y%>-256 �
�+ �X%>=8+7*68 �Y%>=-176 �TO(SRC$,"S"):�
�, �X%<8+7*68 �TO(SRC$,�((X%-8)�68+�"A"))
� � 9 :�menuselect(q%)
�` � 10:�!q%=pat% �open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
� � 17,18:�receive(q%)
� �
�� �
�
� �receive(q%)
Ȏ q%!16 �
� 0:�finish:�
&� 10:�desksave(q%)
0� &400C1:�getmodeinfo
:�
D�
N
X� �cwindow
b?� A$,f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%
lV=�create_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
v
�7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
� �b%�2 �
� Ȏ handle% �
�N � pat%:�domenu(pat%,"Deal Hand,Resign,Only Kings,Rev. Cards","Patience")
�+ � -2: �domenu(101,"Quit","Patience")
� �
��
� �b%�4 �
� �handle%>-1��getw(handle%)
� Ȏ handle% �
� � pat%
�# X%=mousex%-bx%:Y%=mousey%-by%
�- �X%>=24+9*68 �Y%<-176 �Y%>=-256 �NEXT:�
8 �play �X%>=24+8*68 �Y%<-176 �Y%>=-256 �FROM("P"):�
1 �play �X%<8+7*68 �FROM(�((X%-8)�68+�"A")):�
6 � -2:�open% �front(pat%) � �reopen(pat%):open%=�
�
*�
4 �b%�1 �
> �handle%>-1��getw(handle%)
H Ȏ handle% �
R � pat%
\# X%=mousex%-bx%:Y%=mousey%-by%
fH �play �X%>=24+8*68 �Y%<-176 �Y%>=-256 笤FROM("P") �TO(SRC$,"S"):�
pA �play �X%<8+7*68 笤FROM(�((X%-8)�68+�"A")) �TO(SRC$,"S"):�
z6 � -2:�open% �front(pat%) � �reopen(pat%):open%=�
� �
��
��
�
� � �closeawindow(handle%)
��getw(handle%)
�xo%=x0%:yo%=y0%:open%=�
��close_window(handle%)
��
�
�
� �finish
�ș "Wimp_CloseDown"
��
'� �domenu(handle%,menu$,menutitle$)
menuhandle%=handle%
$menuptr%=buffer%
.i%=0
8menuptr%!20=40
B$menuptr%=menutitle$
LJmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
V!menuptr%!16=172:menuptr%!24=0
`menuptr%+=28
j1� item$=�par(","):�menuitem(item$):� item$=""
t#menuptr%!-24=(menuptr%!-24)�&80
~n�handle%=101 buffer%!16=140:ș CrMenu,,buffer%,mousex%-64,96+40 � ș CrMenu,,buffer%,mousex%-32,mousey%+16
��
�
�� �menuitem(text$)
�� text$="" �
�/flg%=0:�text$="Only Kings" flg%=kingsonly=�
�*�text$="Rev. Cards" flg%=dealreverse=�
�menuptr%!0=flg%�1
�menuptr%!4=-1
�menuptr%!8=&07000021
�$(menuptr%+12)=text$
�menuptr%+=24
��
� �par(sep$)
%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
=�menu$,i1%,i%-i1%)
(
2� �menuselect(menus%)
<-ș DcMenu,,buffer%,menus%,�200," ")�,,,a$
F� a$="" � �
PȎ menuhandle% �
Z
� pat%
d
Ȏ a$ �
n � "Resign"
x �I%=1�7:�J%=1��A$(I%)
�1 �A$(I%),J%,1)=�(��A$(I%),J%,1)�127):�:�
�0 �redraw_window(pat%):play=�:dealnumber=1
� � "Deal Hand"
�% �SHUFFLE:�redraw_window(pat%)
� � "Only Kings"
� kingsonly=�kingsonly
� � "Rev. Cards"
� dealreverse=�dealreverse
� �
� � 101
� � a$="Quit":�finish:�
��
��
� �pat
ȕ more%
" ox0%=(q%!28-(bx%+8))�68
,, ox1%=(q%!36-(bx%+8))�68:�ox1%>6 ox1%=6
6@ �ox0%<7 �Z%=ox0%�ox1%:�PILE(A$(Z%+1),bx%+8+Z%*68,by%-96):�
@- ox0%=(q%!28-bx%-24)�68-7:�ox0%<0 ox0%=0
J- ox1%=(q%!36-bx%-24)�68-7:�ox1%>3 ox1%=3
TM �ox1%>-1 �ox0%<4 �I%=ox0%�ox1%:�CARD(S%(I%),bx%+(7+I%)*68+24,by%-128):�
^ � �PACK$ �
h& �fcol%<2 � șCol%,0 � șCol%,7
r" �bx%+9*68,by%-280:�PACK$;
|Q �PLACE=�PACK$ �CARDHOLE(bx%+24+9*68,by%-256) � �BACK(bx%+24+9*68,by%-256)
�[ �PLACE>0 �CARD(��PACK$,PLACE,1),bx%+24+8*68,by%-256) � �NOCARD(bx%+24+8*68,by%-256)
� �
�A �NOCARD(bx%+24+9*68,by%-256):�NOCARD(bx%+24+8*68,by%-256)
� �
� ș GetR%,,q% � more%
��
��
�
�m� �create_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)
�A!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%
�q%!24=-1:q%!28=flags%
��fc%=15�bc%=15�
�+ q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
3� q%?32=`tfcol:q%?33=`tbcol:q%?34=fc%:q%?35=bc%
�
/q%?36=`sco:q%?37=`sci:q%?38=`tbcol2:q%?39=0
&/q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
0q%!56=titlef%
:(q%!60=&3000 : � work area flags
D!q%!64=0:q%!68=0 : � reserved
N$(q%+72)=�title$,11)
Xq%!84=nicons%
b)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
lȕ nicons%>0
v( � x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
�* I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
�% � (f%�&40)=0 � bc%=fc%+(bc%<<4)
� I%!16=f%+(bc%<<24)
� �(f%�&100)�
�@ � L%:B%=�buffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
� �
� $(I%+20)=data$
� �
� I%=I%+32:nicons%=nicons%-1
��
� ș CreateW,,q% � handle%
� =handle%
�
� �front(handle%)
�handle%=-1��
�getw(handle%)
6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
*�
4
>� �popup(handle%)
H�getw(handle%)
R0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
\F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
f�
p
z� �reopen(handle%)
��getw(handle%)
�F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
��
�
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
� q%!0=handle%:q%!28=bhandle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�ș OpenW,,q%
��
�
�� �getw(handle%)
!q%=handle%:ș GetW,,q%
+�info(q%+4):bhandle%=q%!28:flags%=q%!32
�
$
.� �info(q%)
8=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
B bx%=x0%-scx%:by%=y1%-scy%
L�
V
`*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
j9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
t&ș UpdateW,,q% � more%:�info(q%+4)
~�
�
� � �redraw_window(handle%)
��handle%=pat% �
�!q%=handle%
�ș RedrawW,,q% � more%
��info(q%+4)
��pat
��
��
�
� � �close_window(handle%)
� !q%=handle%:ș CloseW,,q%
�
� �vars
Wimp = (1<<18) + (3<<6)
(CreateW = Wimp+1
2OpenW = Wimp+5
<CloseW = Wimp+6
FPoll% = Wimp+7
PRedrawW = Wimp+8
ZUpdateW = Wimp+9
dGetR% = Wimp+10
nGetW = Wimp+11
xGetP = Wimp+15
�Drag = Wimp+16
�CrMenu = Wimp+20
�DcMenu = Wimp+21
�6ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop%
�8ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
�;ș "OS_SWINumberFromString",,"Wimp_ForceRedraw" � fred%
��
�
�� �getpointer
�ș GetP,,q%
�Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
��
�
� �errorbox
ș Drag,,-1
0!errbuf%=�:$(errbuf%+4)=�$+" at line "+Þ+�0
".ș "Wimp_ReportError",errbuf%,1,"Patience"
,
�finish:�
6�
@
J� �buffer(L%)
T9�curbuf%+L%>buffer%+maxbuf%� �100,"Buffer space full"
^curbuf%+=L%
h=curbuf%-L%
r
|� �iconbar
�
!q%=-1
�#q%!4=0:q%!8=0:q%!12=68:q%!16=68
�q%!20=&2102
�spname$="-Patience"
�)� q%!24 (�spname$+1):$(q%!24)=spname$
�q%!28=sprites%
�q%!32=�spname$+1
�"ș "Wimp_CreateIcon",,q% � ic%
�=ic%
�
�� �SHUFFLE
�PACK$=�52," "):PACK$=""
�7K%=0:�I%=0�3:�J%=1�13:SPACE%?K%=I%+J%*4:K%=K%+1:�:�
$�I%=1�52:� J%=�(52)-1:�SPACE%?J%
)PACK$+=�(SPACE%?J%+128):SPACE%?J%=0:�
<�I%=1�7:A$(I%)=�PACK$,7-I%):A$(I%)+=�(��PACK$,8-I%)�127)
&PACK$=�PACK$,9-I%):�
0 PLACE=0:A$=PACK$:PACK$=""
:&�I%=1��A$:PACK$+=�(��A$,I%)�127):�
D�I%=0�3:S%(I%)=I%:�
N play=�:dealnumber=numberover
X�
b
l� �CARD(N%,X%,Y%)
v șCol%,7:ȓ Ȑ X%,Y%,60,83
�"șCol%,0:ȓ Ȑ X%+4,Y%+4,52,75
�Eș spop%,&134,sprites%,suit$(N%�3),X%+16,Y%+8,,factors%,pixtrans%
�Iș spop%,&134,sprites%,"s"+suit$(N%�3),X%+4,Y%+56,,factors%,pixtrans%
�*�(N% � N%>>1) � 1 șCol%,11 � șCol%,7
�*�X%+24,Y%+72:N%=N%>>2:�N%>1�N%<11�;N%;
��N%=1�"A";
��N%=11�"J";
��N%=12�"Q";
��N%=13�"K";
��
�
�� �HALFCARD(N%,X%,Y%)
�!șCol%,7:ȓ Ȑ X%,Y%+40,60,43
#șCol%,0:ȓ Ȑ X%+4,Y%+40,52,39
Iș spop%,&134,sprites%,"s"+suit$(N%�3),X%+4,Y%+56,,factors%,pixtrans%
*�(N% � N%>>1) � 1 șCol%,11 � șCol%,7
*�X%+24,Y%+72:N%=N%>>2:�N%>1�N%<11�;N%;
*�N%=1�"A";
4�N%=11�"J";
>�N%=12�"Q";
H�N%=13�"K";
R�
\
f� �BACK(X%,Y%)
p;ș spop%,&134,sprites%,"back",X%,Y%,,factors%,pixtrans%
z�
�
�� �HALFBACK(X%,Y%)
�>ș spop%,&134,sprites%,"half",X%,Y%+40,,factors%,pixtrans%
��
�
�� �NOCARD(X%,Y%)
�#șCol%,`wbcol:ȓ Ȑ X%,Y%,60,83
��
�
�� �CARDHOLE(X%,Y%)
� șCol%,3:ȓ Ȑ X%,Y%,60,83
��
�
� �PILE(A$,X%,Y%)
�A$=0 �
�I%:�A$>1 �
$�I%=1��A$-1:J%=��A$,I%)
.2�J%>127 �HALFBACK(X%,Y%) � �HALFCARD(J%,X%,Y%)
8 Y%-=40:�
B�
L7J%=��A$,�A$):�J%>127 �BACK(X%,Y%) � �CARD(J%,X%,Y%)
V�
`
j� �REMCARDS(I%,J%)
t�T%:T%=�A$(I%)
~A$(I%)=�A$(I%),T%-J%)
�9�A$(I%) A$(I%)=�A$(I%),�A$(I%)-1)+�(��A$(I%),1)�127)
�=�update(pat%,8+(I%-1)*68,-80-T%*40,8+I%*68,40-�A$(I%)*40)
� ȕ more%
�, �:�PILE(A$(I%),bx%+8+(I%-1)*68,by%-96)
� ș GetR%,,q% � more%
� �
��
�
� � �NEXT
��PACK$=0 �7:�
��PLACE=�PACK$ PLACE=0
��dealreverse �
!N1$="":�I%=dealnumber � 1 �-1
N1$+=�PACK$,PLACE+I%,1):�
�
"N1$=�PACK$,PLACE+1,dealnumber)
(�
26PACK$=�PACK$,PLACE)+N1$+�PACK$,PLACE+dealnumber+1)
<PLACE+=�N1$
F'�PACK$,PLACE)=�(��PACK$,PLACE)�127)
P,�update(pat%,24+8*68,-256,24+10*68,-144)
Z�pat
d�
n
x� �FROM(A$)
��FROM(A$) �
� q%!20=pat%:ș GetW,,q%+20
�!q%=pat%:q%!4=5
�Fq%!8=mousex%-30:q%!12=mousey%-40:q%!16=mousex%+30:q%!20=mousey%+40
�ș Drag,,q%
��
�
�� �FROM(A$)
�-SRC$=A$:�A$="P" �PLACE=0 � �PACK$=0 �7:=�
� �A$<>"P"�A$(�A$-64)=0 �7:=�
�=�
�
�� �TO(A$,B$)
�A$<>"P" A%=�A$-64
B%=�B$
�B%=�"S"�
": �A$="P" CARD=��PACK$,PLACE) � CARD=��A$(A%),�A$(A%))
,& I%=CARD � 3:�CARD<>S%(I%)+4 �7:�
64 S%(I%)=CARD:�A$="P" �REMPACK � �REMCARDS(A%,1)
@ �TOSTACK(I%)
J�
T �B%<�"A"�B%>�"G" �7:�
^3 CARDT=��A$(B%-64),1):YLEN=�A$(B%-64):�A$="P"�
h( CARD=��PACK$,PLACE):�CHK=0 �7:�
r! A$(B%-64)+=�CARD:�REMPACK
| �
�= C%=0:D%=0:� D%+=1:CARD=��A$(A%),D%):��CHK �D%>�A$(A%)
� �D%>�A$(A%) �7:�
�, Q%=�A$(B%-64):A$(B%-64)+=�A$(A%),D%)
�" �REMCARDS(A%,�A$(A%)-D%+1)
� �
�K �update(pat%,8+(B%-�"A")*68,-120-�A$(B%-64)*40,8+(B%-64)*68,-YLEN*40)
� ȕ more%
�0 �PILE(A$(B%-64),bx%+8+(B%-65)*68,by%-96)
� ș GetR%,,q% � more%
� �
��
��
�
� �REMPACK
0PLACE-=1:PACK$=�PACK$,PLACE)+�PACK$,PLACE+2)
/�update(pat%,24+8*68,-280-32,20+10*68,-140)
& ȕ more%
0 �
: � �PACK$ �
D& �fcol%<2 � șCol%,0 � șCol%,7
N" �bx%+9*68,by%-280:�PACK$;
XQ �PLACE=�PACK$ �CARDHOLE(bx%+24+9*68,by%-256) � �BACK(bx%+24+9*68,by%-256)
b[ �PLACE>0 �CARD(��PACK$,PLACE,1),bx%+24+8*68,by%-256) � �NOCARD(bx%+24+8*68,by%-256)
l �
vA �NOCARD(bx%+24+9*68,by%-256):�NOCARD(bx%+24+8*68,by%-256)
� �
� ș GetR%,,q% � more%
��
��
�
�
� �CHK
��CARDT=-1 �
�(�kingsonly � =CARD �4=13 � =CARD<127
��
�'CT=(CARDT � CARD)�3:�CT=0 � CT=3 =�
�=CARDT �4=CARD �4+1
�
�� �TOSTACK(I%)
4�update(pat%,24+(7+I%)*68,-128,24+(8+I%)*68,-40)
ȕ more%
, �CARD(S%(I%),bx%+(7+I%)*68+24,by%-128)
ș GetR%,,q% � more%
*�
4�
>
H� �getmodeinfo
RDș"Wimp_ReadPixTrans",&100,sprites%,"club",,,,factors%,pixtrans%
\(ș"OS_ReadModeVariable",�,3 �,,fcol%
f�
p
z� �desksave(message%)
�� myref%,sender%
�!� � �deskwrite(message%!20) �
� sender%=message%!4
� myref%=message%!8
� message%!12=myref%
�. ș"Wimp_SendMessage",19,message%,sender%
�# !errbuf%=�:$(errbuf%+4)=�$+�0
�0 ș "Wimp_ReportError",errbuf%,1,"Patience"
��
��
�
�� �deskwrite(H%)
�� �
� � � = �
�#H%,"Run "+$bootpath%
= �
� 00000000 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag|
00000010 65 0d 00 14 04 0d 00 1e 13 de 20 62 6f 6f 74 70 |e......... bootp|
00000020 61 74 68 25 20 32 35 36 0d 00 28 43 c8 99 22 58 |ath% 256..(C.."X|
00000030 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c 22 |OS_ReadVarVal","|
00000040 50 61 74 69 65 6e 63 65 24 44 69 72 22 2c 62 6f |Patience$Dir",bo|
00000050 6f 74 70 61 74 68 25 2c 32 35 36 2c 30 2c 33 20 |otpath%,256,0,3 |
00000060 b8 2c 2c 62 6f 6f 74 6c 65 6e 25 0d 00 32 19 62 |.,,bootlen%..2.b|
00000070 6f 6f 74 70 61 74 68 25 3f 62 6f 6f 74 6c 65 6e |ootpath%?bootlen|
00000080 25 3d 31 33 0d 00 3c 04 0d 00 46 1e de 20 74 61 |%=13..<...F.. ta|
00000090 73 6b 69 64 25 34 3a 24 74 61 73 6b 69 64 25 3d |skid%4:$taskid%=|
000000a0 22 54 41 53 4b 22 0d 00 50 3b c8 99 20 22 57 69 |"TASK"..P;.. "Wi|
000000b0 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 |mp_Initialise",2|
000000c0 30 30 2c 21 74 61 73 6b 69 64 25 2c 22 50 61 74 |00,!taskid%,"Pat|
000000d0 69 65 6e 63 65 22 20 b8 20 76 65 72 73 69 6f 6e |ience" . version|
000000e0 25 0d 00 5a 4b 60 77 62 63 6f 6c 3d 31 30 3a 60 |%..ZK`wbcol=10:`|
000000f0 74 62 63 6f 6c 3d 32 3a 60 73 63 6f 3d 33 3a 60 |tbcol=2:`sco=3:`|
00000100 6d 62 63 6f 6c 3d 32 3a 60 77 66 63 6f 6c 3d 26 |mbcol=2:`wfcol=&|
00000110 37 3a 60 74 66 63 6f 6c 3d 37 3a 60 73 63 69 3d |7:`tfcol=7:`sci=|
00000120 31 3a 60 74 62 63 6f 6c 32 3d 31 32 0d 00 64 09 |1:`tbcol2=12..d.|
00000130 f2 76 61 72 73 0d 00 6e 1c de 20 71 25 20 26 32 |.vars..n.. q% &2|
00000140 30 30 2c 6d 65 6e 75 64 61 74 61 25 20 26 32 30 |00,menudata% &20|
00000150 30 0d 00 78 05 20 0d 00 82 15 6d 61 78 62 75 66 |0..x. ....maxbuf|
00000160 25 3d 26 32 30 30 3a 40 25 3d 35 0d 00 8c 30 de |%=&200:@%=5...0.|
00000170 20 62 75 66 66 65 72 25 20 6d 61 78 62 75 66 25 | buffer% maxbuf%|
00000180 2c 65 6e 64 62 75 66 25 20 2d 31 3a 63 75 72 62 |,endbuf% -1:curb|
00000190 75 66 25 3d 62 75 66 66 65 72 25 0d 00 96 0e de |uf%=buffer%.....|
000001a0 20 62 6c 6f 63 6b 20 31 32 0d 00 a0 11 de 20 65 | block 12..... e|
000001b0 72 72 62 75 66 25 20 32 35 36 0d 00 aa 05 20 0d |rrbuf% 256.... .|
000001c0 00 b4 11 70 61 74 25 3d a4 63 77 69 6e 64 6f 77 |...pat%=.cwindow|
000001d0 0d 00 be 44 dc 20 50 61 74 69 65 6e 63 65 2c 26 |...D. Patience,&|
000001e0 30 46 2c 60 77 66 63 6f 6c 2c 60 77 62 63 6f 6c |0F,`wfcol,`wbcol|
000001f0 2c 30 2c 2d 31 30 32 34 2c 38 30 30 2c 30 2c 20 |,0,-1024,800,0, |
00000200 20 20 20 20 30 2c 2d 36 34 30 2c 38 30 30 2c 30 | 0,-640,800,0|
00000210 20 20 2c 30 0d 00 c8 05 20 0d 00 d2 4b de 20 53 | ,0.... ...K. S|
00000220 50 41 43 45 25 20 35 32 2c 41 24 28 37 29 2c 53 |PACE% 52,A$(7),S|
00000230 25 28 33 29 2c 73 75 69 74 24 28 33 29 3a 6b 69 |%(3),suit$(3):ki|
00000240 6e 67 73 6f 6e 6c 79 3d b9 3a 64 65 61 6c 72 65 |ngsonly=.:dealre|
00000250 76 65 72 73 65 3d b9 3a 6e 75 6d 62 65 72 6f 76 |verse=.:numberov|
00000260 65 72 3d 33 0d 00 dc 20 4e 25 3d b3 28 91 20 84 |er=3... N%=.(. .|
00000270 20 26 38 30 30 30 30 30 30 30 29 3a f2 53 48 55 | &80000000):.SHU|
00000280 46 46 4c 45 0d 00 e6 48 73 75 69 74 24 28 30 29 |FFLE...Hsuit$(0)|
00000290 3d 22 63 6c 75 62 22 3a 73 75 69 74 24 28 31 29 |="club":suit$(1)|
000002a0 3d 22 64 69 61 6d 6f 6e 64 22 3a 73 75 69 74 24 |="diamond":suit$|
000002b0 28 32 29 3d 22 68 65 61 72 74 22 3a 73 75 69 74 |(2)="heart":suit|
000002c0 24 28 33 29 3d 22 73 70 61 64 65 22 0d 00 f0 05 |$(3)="spade"....|
000002d0 20 0d 00 fa 30 53 25 3d 8e 22 3c 50 61 74 69 65 | ...0S%=."<Patie|
000002e0 6e 63 65 24 44 69 72 3e 2e 53 70 72 69 74 65 73 |nce$Dir>.Sprites|
000002f0 22 3a 54 25 3d a2 23 53 25 2b 31 36 3a d9 23 53 |":T%=.#S%+16:.#S|
00000300 25 0d 01 04 2a de 20 73 70 72 69 74 65 73 25 20 |%...*. sprites% |
00000310 54 25 2c 66 61 63 74 6f 72 73 25 20 31 35 2c 70 |T%,factors% 15,p|
00000320 69 78 74 72 61 6e 73 25 20 31 35 0d 01 0e 1d 21 |ixtrans% 15....!|
00000330 73 70 72 69 74 65 73 25 3d 54 25 3a 73 70 72 69 |sprites%=T%:spri|
00000340 74 65 73 25 21 38 3d 31 0d 01 18 1a c8 99 20 73 |tes%!8=1...... s|
00000350 70 6f 70 25 2c 26 31 30 39 2c 73 70 72 69 74 65 |pop%,&109,sprite|
00000360 73 25 0d 01 22 33 c8 99 20 73 70 6f 70 25 2c 26 |s%.."3.. spop%,&|
00000370 31 30 41 2c 73 70 72 69 74 65 73 25 2c 22 3c 50 |10A,sprites%,"<P|
00000380 61 74 69 65 6e 63 65 24 44 69 72 3e 2e 53 70 72 |atience$Dir>.Spr|
00000390 69 74 65 73 22 0d 01 2c 13 69 63 70 61 74 25 3d |ites"..,.icpat%=|
000003a0 a4 69 63 6f 6e 62 61 72 0d 01 36 10 f2 67 65 74 |.iconbar..6..get|
000003b0 6d 6f 64 65 69 6e 66 6f 0d 01 40 05 20 0d 01 4a |modeinfo..@. ..J|
000003c0 11 ee 20 85 20 f2 65 72 72 6f 72 62 6f 78 0d 01 |.. . .errorbox..|
000003d0 54 3b c8 99 20 44 72 61 67 2c 2c 2d 31 3a f2 67 |T;.. Drag,,-1:.g|
000003e0 65 74 70 6f 69 6e 74 65 72 3a 78 6f 25 3d 6d 6f |etpointer:xo%=mo|
000003f0 75 73 65 78 25 3a 79 6f 25 3d 6d 6f 75 73 65 79 |usex%:yo%=mousey|
00000400 25 3a 6f 70 65 6e 25 3d a3 0d 01 5e 05 f5 0d 01 |%:open%=...^....|
00000410 68 18 20 20 c8 99 20 50 6f 6c 6c 25 2c 31 2c 71 |h. .. Poll%,1,q|
00000420 25 20 b8 20 41 25 0d 01 72 0d 20 20 c8 8e 20 41 |% . A%..r. .. A|
00000430 25 20 ca 0d 01 7c 1e 20 20 c9 20 31 20 3a f2 72 |% ...|. . 1 :.r|
00000440 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 21 71 25 |edraw_window(!q%|
00000450 29 0d 01 86 44 20 20 c9 20 32 20 3a f2 6f 70 65 |)...D . 2 :.ope|
00000460 6e 5f 77 69 6e 64 6f 77 28 21 71 25 2c 71 25 21 |n_window(!q%,q%!|
00000470 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 |4,q%!8,q%!12,q%!|
00000480 31 36 2c 71 25 21 32 30 2c 71 25 21 32 34 2c 71 |16,q%!20,q%!24,q|
00000490 25 21 32 38 29 0d 01 90 1d 20 20 c9 20 33 20 3a |%!28).... . 3 :|
000004a0 f2 63 6c 6f 73 65 61 77 69 6e 64 6f 77 28 21 71 |.closeawindow(!q|
000004b0 25 29 0d 01 9a 37 20 20 c9 20 36 20 3a f2 63 68 |%)...7 . 6 :.ch|
000004c0 65 63 6b 6d 6f 75 73 65 28 21 71 25 2c 71 25 21 |eckmouse(!q%,q%!|
000004d0 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 |4,q%!8,q%!12,q%!|
000004e0 31 36 2c 71 25 21 32 30 29 0d 01 a4 34 20 20 c9 |16,q%!20)...4 .|
000004f0 20 37 20 3a f2 67 65 74 70 6f 69 6e 74 65 72 3a | 7 :.getpointer:|
00000500 58 25 3d 6d 6f 75 73 65 78 25 2d 62 78 25 3a 59 |X%=mousex%-bx%:Y|
00000510 25 3d 6d 6f 75 73 65 79 25 2d 62 79 25 0d 01 ae |%=mousey%-by%...|
00000520 25 20 20 e7 58 25 3e 32 34 2b 39 2a 36 38 20 e7 |% .X%>24+9*68 .|
00000530 59 25 3c 2d 31 37 36 20 e7 59 25 3e 2d 32 35 36 |Y%<-176 .Y%>-256|
00000540 20 c9 0d 01 b8 2b 20 20 e7 58 25 3e 3d 38 2b 37 | ....+ .X%>=8+7|
00000550 2a 36 38 20 e7 59 25 3e 3d 2d 31 37 36 20 f2 54 |*68 .Y%>=-176 .T|
00000560 4f 28 53 52 43 24 2c 22 53 22 29 3a c9 0d 01 c2 |O(SRC$,"S"):....|
00000570 2c 20 20 e7 58 25 3c 38 2b 37 2a 36 38 20 f2 54 |, .X%<8+7*68 .T|
00000580 4f 28 53 52 43 24 2c bd 28 28 58 25 2d 38 29 81 |O(SRC$,.((X%-8).|
00000590 36 38 2b 97 22 41 22 29 29 0d 01 cc 1a 20 20 c9 |68+."A")).... .|
000005a0 20 39 20 3a f2 6d 65 6e 75 73 65 6c 65 63 74 28 | 9 :.menuselect(|
000005b0 71 25 29 0d 01 d6 60 20 20 c9 20 31 30 3a e7 21 |q%)...` . 10:.!|
000005c0 71 25 3d 70 61 74 25 20 f2 6f 70 65 6e 5f 77 69 |q%=pat% .open_wi|
000005d0 6e 64 6f 77 28 21 71 25 2c 71 25 21 34 2c 71 25 |ndow(!q%,q%!4,q%|
000005e0 21 38 2c 71 25 21 31 32 2c 71 25 21 31 36 2c 71 |!8,q%!12,q%!16,q|
000005f0 25 21 32 30 2b 33 32 2a 71 25 21 33 32 2c 71 25 |%!20+32*q%!32,q%|
00000600 21 32 34 2b 36 34 2a 71 25 21 33 36 2c 71 25 21 |!24+64*q%!36,q%!|
00000610 32 38 29 0d 01 e0 1a 20 20 c9 20 31 37 2c 31 38 |28).... . 17,18|
00000620 3a f2 72 65 63 65 69 76 65 28 71 25 29 0d 01 ea |:.receive(q%)...|
00000630 07 20 20 cb 0d 01 f4 07 fd 20 a3 0d 01 fe 05 20 |. ...... ..... |
00000640 0d 02 08 12 dd 20 f2 72 65 63 65 69 76 65 28 71 |..... .receive(q|
00000650 25 29 0d 02 12 0e c8 8e 20 71 25 21 31 36 20 ca |%)...... q%!16 .|
00000660 0d 02 1c 11 c9 20 30 3a f2 66 69 6e 69 73 68 3a |..... 0:.finish:|
00000670 e0 0d 02 26 16 c9 20 31 30 3a f2 64 65 73 6b 73 |...&.. 10:.desks|
00000680 61 76 65 28 71 25 29 0d 02 30 19 c9 20 26 34 30 |ave(q%)..0.. &40|
00000690 30 43 31 3a f2 67 65 74 6d 6f 64 65 69 6e 66 6f |0C1:.getmodeinfo|
000006a0 0d 02 3a 05 cb 0d 02 44 05 e1 0d 02 4e 05 20 0d |..:....D....N. .|
000006b0 02 58 0e dd 20 a4 63 77 69 6e 64 6f 77 0d 02 62 |.X.. .cwindow..b|
000006c0 3f f3 20 41 24 2c 66 25 2c 66 63 25 2c 62 63 25 |?. A$,f%,fc%,bc%|
000006d0 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 |,x0%,y0%,x1%,y1%|
000006e0 2c 63 78 30 25 2c 63 79 30 25 2c 63 78 31 25 2c |,cx0%,cy0%,cx1%,|
000006f0 63 79 31 25 2c 6e 69 63 6f 6e 73 25 0d 02 6c 56 |cy1%,nicons%..lV|
00000700 3d a4 63 72 65 61 74 65 5f 77 69 6e 64 6f 77 28 |=.create_window(|
00000710 63 78 30 25 2c 63 79 30 25 2c 63 78 31 25 2c 63 |cx0%,cy0%,cx1%,c|
00000720 79 31 25 2c 30 2c 30 2c 66 25 2c 66 63 25 2c 62 |y1%,0,0,f%,fc%,b|
00000730 63 25 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 |c%,x0%,y0%,x1%,y|
00000740 31 25 2c 26 32 44 2c 41 24 2c 6e 69 63 6f 6e 73 |1%,&2D,A$,nicons|
00000750 25 29 0d 02 76 05 20 0d 02 80 37 dd 20 f2 63 68 |%)..v. ...7. .ch|
00000760 65 63 6b 6d 6f 75 73 65 28 6d 6f 75 73 65 78 25 |eckmouse(mousex%|
00000770 2c 6d 6f 75 73 65 79 25 2c 62 25 2c 68 61 6e 64 |,mousey%,b%,hand|
00000780 6c 65 25 2c 69 63 6f 6e 25 2c 6f 62 25 29 0d 02 |le%,icon%,ob%)..|
00000790 8a 0b e7 62 25 80 32 20 8c 0d 02 94 12 20 20 c8 |...b%.2 ..... .|
000007a0 8e 20 68 61 6e 64 6c 65 25 20 ca 0d 02 9e 4e 20 |. handle% ....N |
000007b0 20 c9 20 70 61 74 25 3a f2 64 6f 6d 65 6e 75 28 | . pat%:.domenu(|
000007c0 70 61 74 25 2c 22 44 65 61 6c 20 48 61 6e 64 2c |pat%,"Deal Hand,|
000007d0 52 65 73 69 67 6e 2c 4f 6e 6c 79 20 4b 69 6e 67 |Resign,Only King|
000007e0 73 2c 52 65 76 2e 20 43 61 72 64 73 22 2c 22 50 |s,Rev. Cards","P|
000007f0 61 74 69 65 6e 63 65 22 29 0d 02 a8 2b 20 20 c9 |atience")...+ .|
00000800 20 2d 32 3a 20 20 f2 64 6f 6d 65 6e 75 28 31 30 | -2: .domenu(10|
00000810 31 2c 22 51 75 69 74 22 2c 22 50 61 74 69 65 6e |1,"Quit","Patien|
00000820 63 65 22 29 0d 02 b2 07 20 20 cb 0d 02 bc 05 cd |ce").... ......|
00000830 0d 02 c6 0b e7 62 25 80 34 20 8c 0d 02 d0 20 20 |.....b%.4 .... |
00000840 20 e7 68 61 6e 64 6c 65 25 3e 2d 31 8c f2 67 65 | .handle%>-1..ge|
00000850 74 77 28 68 61 6e 64 6c 65 25 29 0d 02 da 12 20 |tw(handle%).... |
00000860 20 c8 8e 20 68 61 6e 64 6c 65 25 20 ca 0d 02 e4 | .. handle% ....|
00000870 0c 20 20 c9 20 70 61 74 25 0d 02 ee 23 20 20 58 |. . pat%...# X|
00000880 25 3d 6d 6f 75 73 65 78 25 2d 62 78 25 3a 59 25 |%=mousex%-bx%:Y%|
00000890 3d 6d 6f 75 73 65 79 25 2d 62 79 25 0d 02 f8 2d |=mousey%-by%...-|
000008a0 20 20 e7 58 25 3e 3d 32 34 2b 39 2a 36 38 20 e7 | .X%>=24+9*68 .|
000008b0 59 25 3c 2d 31 37 36 20 e7 59 25 3e 3d 2d 32 35 |Y%<-176 .Y%>=-25|
000008c0 36 20 f2 4e 45 58 54 3a c9 0d 03 02 38 20 20 e7 |6 .NEXT:....8 .|
000008d0 70 6c 61 79 20 e7 58 25 3e 3d 32 34 2b 38 2a 36 |play .X%>=24+8*6|
000008e0 38 20 e7 59 25 3c 2d 31 37 36 20 e7 59 25 3e 3d |8 .Y%<-176 .Y%>=|
000008f0 2d 32 35 36 20 f2 46 52 4f 4d 28 22 50 22 29 3a |-256 .FROM("P"):|
00000900 c9 0d 03 0c 31 20 20 e7 70 6c 61 79 20 e7 58 25 |....1 .play .X%|
00000910 3c 38 2b 37 2a 36 38 20 f2 46 52 4f 4d 28 bd 28 |<8+7*68 .FROM(.(|
00000920 28 58 25 2d 38 29 81 36 38 2b 97 22 41 22 29 29 |(X%-8).68+."A"))|
00000930 3a c9 0d 03 16 36 20 20 c9 20 2d 32 3a e7 6f 70 |:....6 . -2:.op|
00000940 65 6e 25 20 f2 66 72 6f 6e 74 28 70 61 74 25 29 |en% .front(pat%)|
00000950 20 8b 20 f2 72 65 6f 70 65 6e 28 70 61 74 25 29 | . .reopen(pat%)|
00000960 3a 6f 70 65 6e 25 3d b9 0d 03 20 07 20 20 cb 0d |:open%=... . ..|
00000970 03 2a 05 cd 0d 03 34 0b e7 62 25 80 31 20 8c 0d |.*....4..b%.1 ..|
00000980 03 3e 20 20 20 e7 68 61 6e 64 6c 65 25 3e 2d 31 |.> .handle%>-1|
00000990 8c f2 67 65 74 77 28 68 61 6e 64 6c 65 25 29 0d |..getw(handle%).|
000009a0 03 48 12 20 20 c8 8e 20 68 61 6e 64 6c 65 25 20 |.H. .. handle% |
000009b0 ca 0d 03 52 0c 20 20 c9 20 70 61 74 25 0d 03 5c |...R. . pat%..\|
000009c0 23 20 20 58 25 3d 6d 6f 75 73 65 78 25 2d 62 78 |# X%=mousex%-bx|
000009d0 25 3a 59 25 3d 6d 6f 75 73 65 79 25 2d 62 79 25 |%:Y%=mousey%-by%|
000009e0 0d 03 66 48 20 20 e7 70 6c 61 79 20 e7 58 25 3e |..fH .play .X%>|
000009f0 3d 32 34 2b 38 2a 36 38 20 e7 59 25 3c 2d 31 37 |=24+8*68 .Y%<-17|
00000a00 36 20 e7 59 25 3e 3d 2d 32 35 36 20 e7 ac a4 46 |6 .Y%>=-256 ...F|
00000a10 52 4f 4d 28 22 50 22 29 20 f2 54 4f 28 53 52 43 |ROM("P") .TO(SRC|
00000a20 24 2c 22 53 22 29 3a c9 0d 03 70 41 20 20 e7 70 |$,"S"):...pA .p|
00000a30 6c 61 79 20 e7 58 25 3c 38 2b 37 2a 36 38 20 e7 |lay .X%<8+7*68 .|
00000a40 ac a4 46 52 4f 4d 28 bd 28 28 58 25 2d 38 29 81 |..FROM(.((X%-8).|
00000a50 36 38 2b 97 22 41 22 29 29 20 f2 54 4f 28 53 52 |68+."A")) .TO(SR|
00000a60 43 24 2c 22 53 22 29 3a c9 0d 03 7a 36 20 20 c9 |C$,"S"):...z6 .|
00000a70 20 2d 32 3a e7 6f 70 65 6e 25 20 f2 66 72 6f 6e | -2:.open% .fron|
00000a80 74 28 70 61 74 25 29 20 8b 20 f2 72 65 6f 70 65 |t(pat%) . .reope|
00000a90 6e 28 70 61 74 25 29 3a 6f 70 65 6e 25 3d b9 0d |n(pat%):open%=..|
00000aa0 03 84 07 20 20 cb 0d 03 8e 05 cd 0d 03 98 05 e1 |... ...........|
00000ab0 0d 03 a2 05 20 0d 03 ac 1c dd 20 f2 63 6c 6f 73 |.... ..... .clos|
00000ac0 65 61 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 |eawindow(handle%|
00000ad0 29 0d 03 b6 12 f2 67 65 74 77 28 68 61 6e 64 6c |).....getw(handl|
00000ae0 65 25 29 0d 03 c0 1b 78 6f 25 3d 78 30 25 3a 79 |e%)....xo%=x0%:y|
00000af0 6f 25 3d 79 30 25 3a 6f 70 65 6e 25 3d a3 0d 03 |o%=y0%:open%=...|
00000b00 ca 1a f2 63 6c 6f 73 65 5f 77 69 6e 64 6f 77 28 |...close_window(|
00000b10 68 61 6e 64 6c 65 25 29 0d 03 d4 05 e1 0d 03 de |handle%)........|
00000b20 05 20 0d 03 e8 0d dd 20 f2 66 69 6e 69 73 68 0d |. ..... .finish.|
00000b30 03 f2 17 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |..... "Wimp_Clos|
00000b40 65 44 6f 77 6e 22 0d 03 fc 05 e1 0d 04 06 05 20 |eDown"......... |
00000b50 0d 04 10 27 dd 20 f2 64 6f 6d 65 6e 75 28 68 61 |...'. .domenu(ha|
00000b60 6e 64 6c 65 25 2c 6d 65 6e 75 24 2c 6d 65 6e 75 |ndle%,menu$,menu|
00000b70 74 69 74 6c 65 24 29 0d 04 1a 17 6d 65 6e 75 68 |title$)....menuh|
00000b80 61 6e 64 6c 65 25 3d 68 61 6e 64 6c 65 25 0d 04 |andle%=handle%..|
00000b90 24 14 6d 65 6e 75 70 74 72 25 3d 62 75 66 66 65 |$.menuptr%=buffe|
00000ba0 72 25 0d 04 2e 08 69 25 3d 30 0d 04 38 12 6d 65 |r%....i%=0..8.me|
00000bb0 6e 75 70 74 72 25 21 32 30 3d 34 30 0d 04 42 18 |nuptr%!20=40..B.|
00000bc0 24 6d 65 6e 75 70 74 72 25 3d 6d 65 6e 75 74 69 |$menuptr%=menuti|
00000bd0 74 6c 65 24 0d 04 4c 4a 6d 65 6e 75 70 74 72 25 |tle$..LJmenuptr%|
00000be0 3f 31 32 3d 60 74 66 63 6f 6c 3a 6d 65 6e 75 70 |?12=`tfcol:menup|
00000bf0 74 72 25 3f 31 33 3d 32 3a 6d 65 6e 75 70 74 72 |tr%?13=2:menuptr|
00000c00 25 3f 31 34 3d 60 77 66 63 6f 6c 3a 6d 65 6e 75 |%?14=`wfcol:menu|
00000c10 70 74 72 25 3f 31 35 3d 60 77 62 63 6f 6c 0d 04 |ptr%?15=`wbcol..|
00000c20 56 21 6d 65 6e 75 70 74 72 25 21 31 36 3d 31 37 |V!menuptr%!16=17|
00000c30 32 3a 6d 65 6e 75 70 74 72 25 21 32 34 3d 30 0d |2:menuptr%!24=0.|
00000c40 04 60 10 6d 65 6e 75 70 74 72 25 2b 3d 32 38 0d |.`.menuptr%+=28.|
00000c50 04 6a 31 f5 20 69 74 65 6d 24 3d a4 70 61 72 28 |.j1. item$=.par(|
00000c60 22 2c 22 29 3a f2 6d 65 6e 75 69 74 65 6d 28 69 |","):.menuitem(i|
00000c70 74 65 6d 24 29 3a fd 20 69 74 65 6d 24 3d 22 22 |tem$):. item$=""|
00000c80 0d 04 74 23 6d 65 6e 75 70 74 72 25 21 2d 32 34 |..t#menuptr%!-24|
00000c90 3d 28 6d 65 6e 75 70 74 72 25 21 2d 32 34 29 84 |=(menuptr%!-24).|
00000ca0 26 38 30 0d 04 7e 6e e7 68 61 6e 64 6c 65 25 3d |&80..~n.handle%=|
00000cb0 31 30 31 20 62 75 66 66 65 72 25 21 31 36 3d 31 |101 buffer%!16=1|
00000cc0 34 30 3a c8 99 20 43 72 4d 65 6e 75 2c 2c 62 75 |40:.. CrMenu,,bu|
00000cd0 66 66 65 72 25 2c 6d 6f 75 73 65 78 25 2d 36 34 |ffer%,mousex%-64|
00000ce0 2c 39 36 2b 34 30 20 8b 20 c8 99 20 43 72 4d 65 |,96+40 . .. CrMe|
00000cf0 6e 75 2c 2c 62 75 66 66 65 72 25 2c 6d 6f 75 73 |nu,,buffer%,mous|
00000d00 65 78 25 2d 33 32 2c 6d 6f 75 73 65 79 25 2b 31 |ex%-32,mousey%+1|
00000d10 36 0d 04 88 05 e1 0d 04 92 05 20 0d 04 9c 16 dd |6......... .....|
00000d20 20 f2 6d 65 6e 75 69 74 65 6d 28 74 65 78 74 24 | .menuitem(text$|
00000d30 29 0d 04 a6 10 e7 20 74 65 78 74 24 3d 22 22 20 |)..... text$="" |
00000d40 e1 0d 04 b0 2f 66 6c 67 25 3d 30 3a e7 74 65 78 |..../flg%=0:.tex|
00000d50 74 24 3d 22 4f 6e 6c 79 20 4b 69 6e 67 73 22 20 |t$="Only Kings" |
00000d60 66 6c 67 25 3d 6b 69 6e 67 73 6f 6e 6c 79 3d b9 |flg%=kingsonly=.|
00000d70 0d 04 ba 2a e7 74 65 78 74 24 3d 22 52 65 76 2e |...*.text$="Rev.|
00000d80 20 43 61 72 64 73 22 20 66 6c 67 25 3d 64 65 61 | Cards" flg%=dea|
00000d90 6c 72 65 76 65 72 73 65 3d b9 0d 04 c4 15 6d 65 |lreverse=.....me|
00000da0 6e 75 70 74 72 25 21 30 3d 66 6c 67 25 80 31 0d |nuptr%!0=flg%.1.|
00000db0 04 ce 11 6d 65 6e 75 70 74 72 25 21 34 3d 2d 31 |...menuptr%!4=-1|
00000dc0 0d 04 d8 18 6d 65 6e 75 70 74 72 25 21 38 3d 26 |....menuptr%!8=&|
00000dd0 30 37 30 30 30 30 32 31 0d 04 e2 18 24 28 6d 65 |07000021....$(me|
00000de0 6e 75 70 74 72 25 2b 31 32 29 3d 74 65 78 74 24 |nuptr%+12)=text$|
00000df0 0d 04 ec 10 6d 65 6e 75 70 74 72 25 2b 3d 32 34 |....menuptr%+=24|
00000e00 0d 04 f6 05 e1 0d 05 00 05 20 0d 05 0a 10 dd 20 |......... ..... |
00000e10 a4 70 61 72 28 73 65 70 24 29 0d 05 14 25 69 31 |.par(sep$)...%i1|
00000e20 25 3d 69 25 2b 31 3a 69 25 3d a7 6d 65 6e 75 24 |%=i%+1:i%=.menu$|
00000e30 2b 73 65 70 24 2c 73 65 70 24 2c 69 31 25 29 0d |+sep$,sep$,i1%).|
00000e40 05 1e 17 3d c1 6d 65 6e 75 24 2c 69 31 25 2c 69 |...=.menu$,i1%,i|
00000e50 25 2d 69 31 25 29 0d 05 28 05 20 0d 05 32 19 dd |%-i1%)..(. ..2..|
00000e60 20 f2 6d 65 6e 75 73 65 6c 65 63 74 28 6d 65 6e | .menuselect(men|
00000e70 75 73 25 29 0d 05 3c 2d c8 99 20 44 63 4d 65 6e |us%)..<-.. DcMen|
00000e80 75 2c 2c 62 75 66 66 65 72 25 2c 6d 65 6e 75 73 |u,,buffer%,menus|
00000e90 25 2c c4 32 30 30 2c 22 20 22 29 b8 2c 2c 2c 61 |%,.200," ").,,,a|
00000ea0 24 0d 05 46 0f e7 20 61 24 3d 22 22 20 8c 20 e1 |$..F.. a$="" . .|
00000eb0 0d 05 50 14 c8 8e 20 6d 65 6e 75 68 61 6e 64 6c |..P... menuhandl|
00000ec0 65 25 20 ca 0d 05 5a 0a c9 20 70 61 74 25 0d 05 |e% ...Z.. pat%..|
00000ed0 64 0d 20 20 c8 8e 20 61 24 20 ca 0d 05 6e 10 20 |d. .. a$ ...n. |
00000ee0 20 c9 20 22 52 65 73 69 67 6e 22 0d 05 78 1d 20 | . "Resign"..x. |
00000ef0 20 20 20 e3 49 25 3d 31 b8 37 3a e3 4a 25 3d 31 | .I%=1.7:.J%=1|
00000f00 b8 a9 41 24 28 49 25 29 0d 05 82 31 20 20 20 20 |..A$(I%)...1 |
00000f10 20 20 c1 41 24 28 49 25 29 2c 4a 25 2c 31 29 3d | .A$(I%),J%,1)=|
00000f20 bd 28 97 c1 41 24 28 49 25 29 2c 4a 25 2c 31 29 |.(..A$(I%),J%,1)|
00000f30 80 31 32 37 29 3a ed 3a ed 0d 05 8c 30 20 20 20 |.127):.:....0 |
00000f40 20 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 | .redraw_window(|
00000f50 70 61 74 25 29 3a 70 6c 61 79 3d a3 3a 64 65 61 |pat%):play=.:dea|
00000f60 6c 6e 75 6d 62 65 72 3d 31 0d 05 96 13 20 20 c9 |lnumber=1.... .|
00000f70 20 22 44 65 61 6c 20 48 61 6e 64 22 0d 05 a0 25 | "Deal Hand"...%|
00000f80 20 20 20 20 f2 53 48 55 46 46 4c 45 3a f2 72 65 | .SHUFFLE:.re|
00000f90 64 72 61 77 5f 77 69 6e 64 6f 77 28 70 61 74 25 |draw_window(pat%|
00000fa0 29 0d 05 aa 14 20 20 c9 20 22 4f 6e 6c 79 20 4b |).... . "Only K|
00000fb0 69 6e 67 73 22 0d 05 b4 1c 20 20 20 20 6b 69 6e |ings".... kin|
00000fc0 67 73 6f 6e 6c 79 3d ac 6b 69 6e 67 73 6f 6e 6c |gsonly=.kingsonl|
00000fd0 79 0d 05 be 14 20 20 c9 20 22 52 65 76 2e 20 43 |y.... . "Rev. C|
00000fe0 61 72 64 73 22 0d 05 c8 20 20 20 20 20 64 65 61 |ards"... dea|
00000ff0 6c 72 65 76 65 72 73 65 3d ac 64 65 61 6c 72 65 |lreverse=.dealre|
00001000 76 65 72 73 65 0d 05 d2 07 20 20 cb 0d 05 dc 09 |verse.... .....|
00001010 c9 20 31 30 31 0d 05 e6 1b 20 20 e7 20 61 24 3d |. 101.... . a$=|
00001020 22 51 75 69 74 22 3a f2 66 69 6e 69 73 68 3a e0 |"Quit":.finish:.|
00001030 0d 05 f0 05 cb 0d 05 fa 05 e1 0d 06 04 05 20 0d |.............. .|
00001040 06 0e 0a dd 20 f2 70 61 74 0d 06 18 0c c8 95 20 |.... .pat...... |
00001050 6d 6f 72 65 25 0d 06 22 1d 20 20 6f 78 30 25 3d |more%..". ox0%=|
00001060 28 71 25 21 32 38 2d 28 62 78 25 2b 38 29 29 81 |(q%!28-(bx%+8)).|
00001070 36 38 0d 06 2c 2c 20 20 6f 78 31 25 3d 28 71 25 |68..,, ox1%=(q%|
00001080 21 33 36 2d 28 62 78 25 2b 38 29 29 81 36 38 3a |!36-(bx%+8)).68:|
00001090 e7 6f 78 31 25 3e 36 20 6f 78 31 25 3d 36 0d 06 |.ox1%>6 ox1%=6..|
000010a0 36 40 20 20 e7 6f 78 30 25 3c 37 20 e3 5a 25 3d |6@ .ox0%<7 .Z%=|
000010b0 6f 78 30 25 b8 6f 78 31 25 3a f2 50 49 4c 45 28 |ox0%.ox1%:.PILE(|
000010c0 41 24 28 5a 25 2b 31 29 2c 62 78 25 2b 38 2b 5a |A$(Z%+1),bx%+8+Z|
000010d0 25 2a 36 38 2c 62 79 25 2d 39 36 29 3a ed 0d 06 |%*68,by%-96):...|
000010e0 40 2d 20 20 6f 78 30 25 3d 28 71 25 21 32 38 2d |@- ox0%=(q%!28-|
000010f0 62 78 25 2d 32 34 29 81 36 38 2d 37 3a e7 6f 78 |bx%-24).68-7:.ox|
00001100 30 25 3c 30 20 6f 78 30 25 3d 30 0d 06 4a 2d 20 |0%<0 ox0%=0..J- |
00001110 20 6f 78 31 25 3d 28 71 25 21 33 36 2d 62 78 25 | ox1%=(q%!36-bx%|
00001120 2d 32 34 29 81 36 38 2d 37 3a e7 6f 78 31 25 3e |-24).68-7:.ox1%>|
00001130 33 20 6f 78 31 25 3d 33 0d 06 54 4d 20 20 e7 6f |3 ox1%=3..TM .o|
00001140 78 31 25 3e 2d 31 20 e7 6f 78 30 25 3c 34 20 e3 |x1%>-1 .ox0%<4 .|
00001150 49 25 3d 6f 78 30 25 b8 6f 78 31 25 3a f2 43 41 |I%=ox0%.ox1%:.CA|
00001160 52 44 28 53 25 28 49 25 29 2c 62 78 25 2b 28 37 |RD(S%(I%),bx%+(7|
00001170 2b 49 25 29 2a 36 38 2b 32 34 2c 62 79 25 2d 31 |+I%)*68+24,by%-1|
00001180 32 38 29 3a ed 0d 06 5e 10 20 20 e7 20 a9 50 41 |28):...^. . .PA|
00001190 43 4b 24 20 8c 0d 06 68 26 20 20 20 20 e7 66 63 |CK$ ...h& .fc|
000011a0 6f 6c 25 3c 32 20 8c 20 c8 99 43 6f 6c 25 2c 30 |ol%<2 . ..Col%,0|
000011b0 20 8b 20 c8 99 43 6f 6c 25 2c 37 0d 06 72 22 20 | . ..Col%,7..r" |
000011c0 20 20 20 ec 62 78 25 2b 39 2a 36 38 2c 62 79 25 | .bx%+9*68,by%|
000011d0 2d 32 38 30 3a f1 a9 50 41 43 4b 24 3b 0d 06 7c |-280:..PACK$;..||
000011e0 51 20 20 20 20 e7 50 4c 41 43 45 3d a9 50 41 43 |Q .PLACE=.PAC|
000011f0 4b 24 20 f2 43 41 52 44 48 4f 4c 45 28 62 78 25 |K$ .CARDHOLE(bx%|
00001200 2b 32 34 2b 39 2a 36 38 2c 62 79 25 2d 32 35 36 |+24+9*68,by%-256|
00001210 29 20 8b 20 f2 42 41 43 4b 28 62 78 25 2b 32 34 |) . .BACK(bx%+24|
00001220 2b 39 2a 36 38 2c 62 79 25 2d 32 35 36 29 0d 06 |+9*68,by%-256)..|
00001230 86 5b 20 20 20 20 e7 50 4c 41 43 45 3e 30 20 f2 |.[ .PLACE>0 .|
00001240 43 41 52 44 28 97 c1 50 41 43 4b 24 2c 50 4c 41 |CARD(..PACK$,PLA|
00001250 43 45 2c 31 29 2c 62 78 25 2b 32 34 2b 38 2a 36 |CE,1),bx%+24+8*6|
00001260 38 2c 62 79 25 2d 32 35 36 29 20 8b 20 f2 4e 4f |8,by%-256) . .NO|
00001270 43 41 52 44 28 62 78 25 2b 32 34 2b 38 2a 36 38 |CARD(bx%+24+8*68|
00001280 2c 62 79 25 2d 32 35 36 29 0d 06 90 07 20 20 cc |,by%-256).... .|
00001290 0d 06 9a 41 20 20 20 20 f2 4e 4f 43 41 52 44 28 |...A .NOCARD(|
000012a0 62 78 25 2b 32 34 2b 39 2a 36 38 2c 62 79 25 2d |bx%+24+9*68,by%-|
000012b0 32 35 36 29 3a f2 4e 4f 43 41 52 44 28 62 78 25 |256):.NOCARD(bx%|
000012c0 2b 32 34 2b 38 2a 36 38 2c 62 79 25 2d 32 35 36 |+24+8*68,by%-256|
000012d0 29 0d 06 a4 07 20 20 cd 0d 06 ae 1a 20 20 c8 99 |).... ..... ..|
000012e0 20 47 65 74 52 25 2c 2c 71 25 20 b8 20 6d 6f 72 | GetR%,,q% . mor|
000012f0 65 25 0d 06 b8 05 ce 0d 06 c2 05 e1 0d 06 cc 05 |e%..............|
00001300 20 0d 06 d6 6d dd 20 a4 63 72 65 61 74 65 5f 77 | ...m. .create_w|
00001310 69 6e 64 6f 77 28 63 78 30 25 2c 63 79 30 25 2c |indow(cx0%,cy0%,|
00001320 63 78 31 25 2c 63 79 31 25 2c 73 63 78 25 2c 73 |cx1%,cy1%,scx%,s|
00001330 63 79 25 2c 66 6c 61 67 73 25 2c 66 63 25 2c 62 |cy%,flags%,fc%,b|
00001340 63 25 2c 73 78 30 25 2c 73 79 30 25 2c 73 78 31 |c%,sx0%,sy0%,sx1|
00001350 25 2c 73 79 31 25 2c 74 69 74 6c 65 66 25 2c 74 |%,sy1%,titlef%,t|
00001360 69 74 6c 65 24 2c 6e 69 63 6f 6e 73 25 29 0d 06 |itle$,nicons%)..|
00001370 e0 41 21 71 25 3d 63 78 30 25 3a 71 25 21 34 3d |.A!q%=cx0%:q%!4=|
00001380 63 79 30 25 3a 71 25 21 38 3d 63 78 31 25 3a 71 |cy0%:q%!8=cx1%:q|
00001390 25 21 31 32 3d 63 79 31 25 3a 71 25 21 31 36 3d |%!12=cy1%:q%!16=|
000013a0 73 63 78 25 3a 71 25 21 32 30 3d 73 63 79 25 0d |scx%:q%!20=scy%.|
000013b0 06 ea 19 71 25 21 32 34 3d 2d 31 3a 71 25 21 32 |...q%!24=-1:q%!2|
000013c0 38 3d 66 6c 61 67 73 25 0d 06 f4 13 e7 66 63 25 |8=flags%.....fc%|
000013d0 3d 31 35 80 62 63 25 3d 31 35 8c 0d 06 fe 2b 20 |=15.bc%=15....+ |
000013e0 20 71 25 3f 33 32 3d 31 35 3a 71 25 3f 33 33 3d | q%?32=15:q%?33=|
000013f0 31 35 3a 71 25 3f 33 34 3d 66 63 25 3a 71 25 3f |15:q%?34=fc%:q%?|
00001400 33 35 3d 62 63 25 0d 07 08 33 cc 20 71 25 3f 33 |35=bc%...3. q%?3|
00001410 32 3d 60 74 66 63 6f 6c 3a 71 25 3f 33 33 3d 60 |2=`tfcol:q%?33=`|
00001420 74 62 63 6f 6c 3a 71 25 3f 33 34 3d 66 63 25 3a |tbcol:q%?34=fc%:|
00001430 71 25 3f 33 35 3d 62 63 25 0d 07 12 05 cd 0d 07 |q%?35=bc%.......|
00001440 1c 2f 71 25 3f 33 36 3d 60 73 63 6f 3a 71 25 3f |./q%?36=`sco:q%?|
00001450 33 37 3d 60 73 63 69 3a 71 25 3f 33 38 3d 60 74 |37=`sci:q%?38=`t|
00001460 62 63 6f 6c 32 3a 71 25 3f 33 39 3d 30 0d 07 26 |bcol2:q%?39=0..&|
00001470 2f 71 25 21 34 30 3d 73 78 30 25 3a 71 25 21 34 |/q%!40=sx0%:q%!4|
00001480 34 3d 73 79 30 25 3a 71 25 21 34 38 3d 73 78 31 |4=sy0%:q%!48=sx1|
00001490 25 3a 71 25 21 35 32 3d 73 79 31 25 0d 07 30 11 |%:q%!52=sy1%..0.|
000014a0 71 25 21 35 36 3d 74 69 74 6c 65 66 25 0d 07 3a |q%!56=titlef%..:|
000014b0 28 71 25 21 36 30 3d 26 33 30 30 30 20 20 20 20 |(q%!60=&3000 |
000014c0 20 20 3a 20 f4 20 77 6f 72 6b 20 61 72 65 61 20 | : . work area |
000014d0 66 6c 61 67 73 0d 07 44 21 71 25 21 36 34 3d 30 |flags..D!q%!64=0|
000014e0 3a 71 25 21 36 38 3d 30 20 20 3a 20 f4 20 72 65 |:q%!68=0 : . re|
000014f0 73 65 72 76 65 64 0d 07 4e 18 24 28 71 25 2b 37 |served..N.$(q%+7|
00001500 32 29 3d c0 74 69 74 6c 65 24 2c 31 31 29 0d 07 |2)=.title$,11)..|
00001510 58 11 71 25 21 38 34 3d 6e 69 63 6f 6e 73 25 0d |X.q%!84=nicons%.|
00001520 07 62 29 ea 49 25 2c 78 30 25 2c 79 30 25 2c 78 |.b).I%,x0%,y0%,x|
00001530 31 25 2c 79 31 25 2c 66 25 2c 64 61 74 61 24 3a |1%,y1%,f%,data$:|
00001540 49 25 3d 71 25 2b 38 38 0d 07 6c 10 c8 95 20 6e |I%=q%+88..l... n|
00001550 69 63 6f 6e 73 25 3e 30 0d 07 76 28 20 20 f3 20 |icons%>0..v( . |
00001560 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00001570 66 25 2c 66 63 25 2c 62 63 25 2c 64 61 74 61 24 |f%,fc%,bc%,data$|
00001580 0d 07 80 2a 20 20 49 25 21 30 3d 78 30 25 3a 49 |...* I%!0=x0%:I|
00001590 25 21 34 3d 79 30 25 3a 49 25 21 38 3d 78 31 25 |%!4=y0%:I%!8=x1%|
000015a0 3a 49 25 21 31 32 3d 79 31 25 0d 07 8a 25 20 20 |:I%!12=y1%...% |
000015b0 e7 20 28 66 25 80 26 34 30 29 3d 30 20 8c 20 62 |. (f%.&40)=0 . b|
000015c0 63 25 3d 66 63 25 2b 28 62 63 25 3c 3c 34 29 0d |c%=fc%+(bc%<<4).|
000015d0 07 94 18 20 20 49 25 21 31 36 3d 66 25 2b 28 62 |... I%!16=f%+(b|
000015e0 63 25 3c 3c 32 34 29 0d 07 9e 11 20 20 e7 28 66 |c%<<24).... .(f|
000015f0 25 80 26 31 30 30 29 8c 0d 07 a8 40 20 20 20 20 |%.&100)....@ |
00001600 f3 20 4c 25 3a 42 25 3d a4 62 75 66 66 65 72 28 |. L%:B%=.buffer(|
00001610 4c 25 29 3a 49 25 21 32 30 3d 42 25 3a 24 42 25 |L%):I%!20=B%:$B%|
00001620 3d 64 61 74 61 24 3a 49 25 21 32 34 3d 2d 31 3a |=data$:I%!24=-1:|
00001630 49 25 21 32 38 3d 4c 25 0d 07 b2 07 20 20 cc 0d |I%!28=L%.... ..|
00001640 07 bc 16 20 20 20 20 24 28 49 25 2b 32 30 29 3d |... $(I%+20)=|
00001650 64 61 74 61 24 0d 07 c6 07 20 20 cd 0d 07 d0 20 |data$.... .... |
00001660 20 20 49 25 3d 49 25 2b 33 32 3a 6e 69 63 6f 6e | I%=I%+32:nicon|
00001670 73 25 3d 6e 69 63 6f 6e 73 25 2d 31 0d 07 da 05 |s%=nicons%-1....|
00001680 ce 0d 07 e4 1d 20 c8 99 20 43 72 65 61 74 65 57 |..... .. CreateW|
00001690 2c 2c 71 25 20 b8 20 68 61 6e 64 6c 65 25 0d 07 |,,q% . handle%..|
000016a0 ee 0c 3d 68 61 6e 64 6c 65 25 0d 07 f8 05 20 0d |..=handle%.... .|
000016b0 08 02 15 dd 20 f2 66 72 6f 6e 74 28 68 61 6e 64 |.... .front(hand|
000016c0 6c 65 25 29 0d 08 0c 11 e7 68 61 6e 64 6c 65 25 |le%).....handle%|
000016d0 3d 2d 31 8c e1 0d 08 16 12 f2 67 65 74 77 28 68 |=-1.......getw(h|
000016e0 61 6e 64 6c 65 25 29 0d 08 20 36 f2 6f 70 65 6e |andle%).. 6.open|
000016f0 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 2c |_window(handle%,|
00001700 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00001710 73 63 78 25 2c 73 63 79 25 2c 2d 31 29 0d 08 2a |scx%,scy%,-1)..*|
00001720 05 e1 0d 08 34 05 20 0d 08 3e 15 dd 20 f2 70 6f |....4. ..>.. .po|
00001730 70 75 70 28 68 61 6e 64 6c 65 25 29 0d 08 48 12 |pup(handle%)..H.|
00001740 f2 67 65 74 77 28 68 61 6e 64 6c 65 25 29 0d 08 |.getw(handle%)..|
00001750 52 30 78 6f 25 3d 6d 6f 75 73 65 78 25 2d 28 78 |R0xo%=mousex%-(x|
00001760 30 25 2b 78 31 25 29 2f 32 3a 79 6f 25 3d 6d 6f |0%+x1%)/2:yo%=mo|
00001770 75 73 65 79 25 2d 28 79 31 25 2b 36 34 29 0d 08 |usey%-(y1%+64)..|
00001780 5c 46 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 68 |\F.open_window(h|
00001790 61 6e 64 6c 65 25 2c 78 30 25 2b 78 6f 25 2c 79 |andle%,x0%+xo%,y|
000017a0 30 25 2b 79 6f 25 2c 78 31 25 2b 78 6f 25 2c 79 |0%+yo%,x1%+xo%,y|
000017b0 31 25 2b 79 6f 25 2c 73 63 78 25 2c 73 63 79 25 |1%+yo%,scx%,scy%|
000017c0 2c 2d 31 29 0d 08 66 05 e1 0d 08 70 05 20 0d 08 |,-1)..f....p. ..|
000017d0 7a 16 dd 20 f2 72 65 6f 70 65 6e 28 68 61 6e 64 |z.. .reopen(hand|
000017e0 6c 65 25 29 0d 08 84 12 f2 67 65 74 77 28 68 61 |le%).....getw(ha|
000017f0 6e 64 6c 65 25 29 0d 08 8e 46 f2 6f 70 65 6e 5f |ndle%)...F.open_|
00001800 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 2c 78 |window(handle%,x|
00001810 6f 25 2c 79 6f 25 2c 78 31 25 2d 78 30 25 2b 78 |o%,yo%,x1%-x0%+x|
00001820 6f 25 2c 79 31 25 2d 79 30 25 2b 79 6f 25 2c 73 |o%,y1%-y0%+yo%,s|
00001830 63 78 25 2c 73 63 79 25 2c 2d 31 29 0d 08 98 05 |cx%,scy%,-1)....|
00001840 e1 0d 08 a2 05 20 0d 08 ac 3e dd 20 f2 6f 70 65 |..... ...>. .ope|
00001850 6e 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 |n_window(handle%|
00001860 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 |,x0%,y0%,x1%,y1%|
00001870 2c 73 63 78 25 2c 73 63 79 25 2c 62 68 61 6e 64 |,scx%,scy%,bhand|
00001880 6c 65 25 29 0d 08 b6 11 e7 68 61 6e 64 6c 65 25 |le%).....handle%|
00001890 3d 2d 31 8c e1 0d 08 c0 1f 71 25 21 30 3d 68 61 |=-1......q%!0=ha|
000018a0 6e 64 6c 65 25 3a 71 25 21 32 38 3d 62 68 61 6e |ndle%:q%!28=bhan|
000018b0 64 6c 65 25 0d 08 ca 29 71 25 21 34 3d 78 30 25 |dle%...)q%!4=x0%|
000018c0 3a 71 25 21 38 3d 79 30 25 3a 71 25 21 31 32 3d |:q%!8=y0%:q%!12=|
000018d0 78 31 25 3a 71 25 21 31 36 3d 79 31 25 0d 08 d4 |x1%:q%!16=y1%...|
000018e0 19 71 25 21 32 30 3d 73 63 78 25 3a 71 25 21 32 |.q%!20=scx%:q%!2|
000018f0 34 3d 73 63 79 25 0d 08 de 10 c8 99 20 4f 70 65 |4=scy%...... Ope|
00001900 6e 57 2c 2c 71 25 0d 08 e8 05 e1 0d 08 f2 05 20 |nW,,q%......... |
00001910 0d 08 fc 14 dd 20 f2 67 65 74 77 28 68 61 6e 64 |..... .getw(hand|
00001920 6c 65 25 29 0d 09 06 1b 21 71 25 3d 68 61 6e 64 |le%)....!q%=hand|
00001930 6c 65 25 3a c8 99 20 47 65 74 57 2c 2c 71 25 0d |le%:.. GetW,,q%.|
00001940 09 10 2b f2 69 6e 66 6f 28 71 25 2b 34 29 3a 62 |..+.info(q%+4):b|
00001950 68 61 6e 64 6c 65 25 3d 71 25 21 32 38 3a 66 6c |handle%=q%!28:fl|
00001960 61 67 73 25 3d 71 25 21 33 32 0d 09 1a 05 e1 0d |ags%=q%!32......|
00001970 09 24 05 20 0d 09 2e 0f dd 20 f2 69 6e 66 6f 28 |.$. ..... .info(|
00001980 71 25 29 0d 09 38 3d 78 30 25 3d 21 71 25 3a 79 |q%)..8=x0%=!q%:y|
00001990 30 25 3d 71 25 21 34 3a 78 31 25 3d 71 25 21 38 |0%=q%!4:x1%=q%!8|
000019a0 3a 79 31 25 3d 71 25 21 31 32 3a 73 63 78 25 3d |:y1%=q%!12:scx%=|
000019b0 71 25 21 31 36 3a 73 63 79 25 3d 71 25 21 32 30 |q%!16:scy%=q%!20|
000019c0 0d 09 42 1d 62 78 25 3d 78 30 25 2d 73 63 78 25 |..B.bx%=x0%-scx%|
000019d0 3a 62 79 25 3d 79 31 25 2d 73 63 79 25 0d 09 4c |:by%=y1%-scy%..L|
000019e0 05 e1 0d 09 56 05 20 0d 09 60 2a dd 20 f2 75 70 |....V. ..`*. .up|
000019f0 64 61 74 65 28 68 61 6e 64 6c 65 25 2c 75 78 30 |date(handle%,ux0|
00001a00 25 2c 75 79 30 25 2c 75 78 31 25 2c 75 79 31 25 |%,uy0%,ux1%,uy1%|
00001a10 29 0d 09 6a 39 21 71 25 3d 68 61 6e 64 6c 65 25 |)..j9!q%=handle%|
00001a20 3a 71 25 21 34 3d 75 78 30 25 3a 71 25 21 38 3d |:q%!4=ux0%:q%!8=|
00001a30 75 79 30 25 3a 71 25 21 31 32 3d 75 78 31 25 3a |uy0%:q%!12=ux1%:|
00001a40 71 25 21 31 36 3d 75 79 31 25 0d 09 74 26 c8 99 |q%!16=uy1%..t&..|
00001a50 20 55 70 64 61 74 65 57 2c 2c 71 25 20 b8 20 6d | UpdateW,,q% . m|
00001a60 6f 72 65 25 3a f2 69 6e 66 6f 28 71 25 2b 34 29 |ore%:.info(q%+4)|
00001a70 0d 09 7e 05 e1 0d 09 88 05 20 0d 09 92 1d dd 20 |..~...... ..... |
00001a80 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 68 |.redraw_window(h|
00001a90 61 6e 64 6c 65 25 29 0d 09 9c 13 e7 68 61 6e 64 |andle%).....hand|
00001aa0 6c 65 25 3d 70 61 74 25 20 8c 0d 09 a6 0f 21 71 |le%=pat% .....!q|
00001ab0 25 3d 68 61 6e 64 6c 65 25 0d 09 b0 1a c8 99 20 |%=handle%...... |
00001ac0 52 65 64 72 61 77 57 2c 2c 71 25 20 b8 20 6d 6f |RedrawW,,q% . mo|
00001ad0 72 65 25 0d 09 ba 0f f2 69 6e 66 6f 28 71 25 2b |re%.....info(q%+|
00001ae0 34 29 0d 09 c4 08 f2 70 61 74 0d 09 ce 05 cd 0d |4).....pat......|
00001af0 09 d8 05 e1 0d 09 e2 05 20 0d 09 ec 1c dd 20 f2 |........ ..... .|
00001b00 63 6c 6f 73 65 5f 77 69 6e 64 6f 77 28 68 61 6e |close_window(han|
00001b10 64 6c 65 25 29 0d 09 f6 1d 21 71 25 3d 68 61 6e |dle%)....!q%=han|
00001b20 64 6c 65 25 3a c8 99 20 43 6c 6f 73 65 57 2c 2c |dle%:.. CloseW,,|
00001b30 71 25 0d 0a 00 05 e1 0d 0a 0a 05 20 0d 0a 14 0b |q%......... ....|
00001b40 dd 20 f2 76 61 72 73 0d 0a 1e 1e 57 69 6d 70 20 |. .vars....Wimp |
00001b50 20 20 20 3d 20 28 31 3c 3c 31 38 29 20 2b 20 28 | = (1<<18) + (|
00001b60 33 3c 3c 36 29 0d 0a 28 14 43 72 65 61 74 65 57 |3<<6)..(.CreateW|
00001b70 20 3d 20 57 69 6d 70 2b 31 0d 0a 32 14 4f 70 65 | = Wimp+1..2.Ope|
00001b80 6e 57 20 20 20 3d 20 57 69 6d 70 2b 35 0d 0a 3c |nW = Wimp+5..<|
00001b90 14 43 6c 6f 73 65 57 20 20 3d 20 57 69 6d 70 2b |.CloseW = Wimp+|
00001ba0 36 0d 0a 46 14 50 6f 6c 6c 25 20 20 20 3d 20 57 |6..F.Poll% = W|
00001bb0 69 6d 70 2b 37 0d 0a 50 14 52 65 64 72 61 77 57 |imp+7..P.RedrawW|
00001bc0 20 3d 20 57 69 6d 70 2b 38 0d 0a 5a 14 55 70 64 | = Wimp+8..Z.Upd|
00001bd0 61 74 65 57 20 3d 20 57 69 6d 70 2b 39 0d 0a 64 |ateW = Wimp+9..d|
00001be0 15 47 65 74 52 25 20 20 20 3d 20 57 69 6d 70 2b |.GetR% = Wimp+|
00001bf0 31 30 0d 0a 6e 15 47 65 74 57 20 20 20 20 3d 20 |10..n.GetW = |
00001c00 57 69 6d 70 2b 31 31 0d 0a 78 15 47 65 74 50 20 |Wimp+11..x.GetP |
00001c10 20 20 20 3d 20 57 69 6d 70 2b 31 35 0d 0a 82 15 | = Wimp+15....|
00001c20 44 72 61 67 20 20 20 20 3d 20 57 69 6d 70 2b 31 |Drag = Wimp+1|
00001c30 36 0d 0a 8c 15 43 72 4d 65 6e 75 20 20 3d 20 57 |6....CrMenu = W|
00001c40 69 6d 70 2b 32 30 0d 0a 96 15 44 63 4d 65 6e 75 |imp+20....DcMenu|
00001c50 20 20 3d 20 57 69 6d 70 2b 32 31 0d 0a a0 36 c8 | = Wimp+21...6.|
00001c60 99 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 |. "OS_SWINumberF|
00001c70 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 4f 53 5f |romString",,"OS_|
00001c80 53 70 72 69 74 65 4f 70 22 20 b8 20 73 70 6f 70 |SpriteOp" . spop|
00001c90 25 0d 0a aa 38 c8 99 20 22 4f 53 5f 53 57 49 4e |%...8.. "OS_SWIN|
00001ca0 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 |umberFromString"|
00001cb0 2c 2c 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |,,"Wimp_SetColou|
00001cc0 72 22 20 b8 20 43 6f 6c 25 0d 0a b4 3b c8 99 20 |r" . Col%...;.. |
00001cd0 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f |"OS_SWINumberFro|
00001ce0 6d 53 74 72 69 6e 67 22 2c 2c 22 57 69 6d 70 5f |mString",,"Wimp_|
00001cf0 46 6f 72 63 65 52 65 64 72 61 77 22 20 b8 20 66 |ForceRedraw" . f|
00001d00 72 65 64 25 0d 0a be 05 e1 0d 0a c8 05 20 0d 0a |red%......... ..|
00001d10 d2 11 dd 20 f2 67 65 74 70 6f 69 6e 74 65 72 0d |... .getpointer.|
00001d20 0a dc 0f c8 99 20 47 65 74 50 2c 2c 71 25 0d 0a |..... GetP,,q%..|
00001d30 e6 48 6d 6f 75 73 65 78 25 3d 21 71 25 3a 6d 6f |.Hmousex%=!q%:mo|
00001d40 75 73 65 79 25 3d 71 25 21 34 3a 62 25 3d 71 25 |usey%=q%!4:b%=q%|
00001d50 21 38 3a 68 61 6e 64 6c 65 25 3d 71 25 21 31 32 |!8:handle%=q%!12|
00001d60 3a 69 63 6f 6e 25 3d 71 25 21 31 36 3a 6f 62 25 |:icon%=q%!16:ob%|
00001d70 3d 71 25 21 32 30 0d 0a f0 05 e1 0d 0a fa 05 20 |=q%!20......... |
00001d80 0d 0b 04 0f dd 20 f2 65 72 72 6f 72 62 6f 78 0d |..... .errorbox.|
00001d90 0b 0e 0f c8 99 20 44 72 61 67 2c 2c 2d 31 0d 0b |..... Drag,,-1..|
00001da0 18 30 21 65 72 72 62 75 66 25 3d 9f 3a 24 28 65 |.0!errbuf%=.:$(e|
00001db0 72 72 62 75 66 25 2b 34 29 3d f6 24 2b 22 20 61 |rrbuf%+4)=.$+" a|
00001dc0 74 20 6c 69 6e 65 20 22 2b c3 9e 2b bd 30 0d 0b |t line "+..+.0..|
00001dd0 22 2e c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 |"... "Wimp_Repor|
00001de0 74 45 72 72 6f 72 22 2c 65 72 72 62 75 66 25 2c |tError",errbuf%,|
00001df0 31 2c 22 50 61 74 69 65 6e 63 65 22 0d 0b 2c 0d |1,"Patience"..,.|
00001e00 f2 66 69 6e 69 73 68 3a e0 0d 0b 36 05 e1 0d 0b |.finish:...6....|
00001e10 40 05 20 0d 0b 4a 11 dd 20 a4 62 75 66 66 65 72 |@. ..J.. .buffer|
00001e20 28 4c 25 29 0d 0b 54 39 e7 63 75 72 62 75 66 25 |(L%)..T9.curbuf%|
00001e30 2b 4c 25 3e 62 75 66 66 65 72 25 2b 6d 61 78 62 |+L%>buffer%+maxb|
00001e40 75 66 25 8c 20 85 31 30 30 2c 22 42 75 66 66 65 |uf%. .100,"Buffe|
00001e50 72 20 73 70 61 63 65 20 66 75 6c 6c 22 0d 0b 5e |r space full"..^|
00001e60 0f 63 75 72 62 75 66 25 2b 3d 4c 25 0d 0b 68 0f |.curbuf%+=L%..h.|
00001e70 3d 63 75 72 62 75 66 25 2d 4c 25 0d 0b 72 05 20 |=curbuf%-L%..r. |
00001e80 0d 0b 7c 0e dd 20 a4 69 63 6f 6e 62 61 72 0d 0b |..|.. .iconbar..|
00001e90 86 0a 21 71 25 3d 2d 31 0d 0b 90 23 71 25 21 34 |..!q%=-1...#q%!4|
00001ea0 3d 30 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d |=0:q%!8=0:q%!12=|
00001eb0 36 38 3a 71 25 21 31 36 3d 36 38 0d 0b 9a 0f 71 |68:q%!16=68....q|
00001ec0 25 21 32 30 3d 26 32 31 30 32 0d 0b a4 17 73 70 |%!20=&2102....sp|
00001ed0 6e 61 6d 65 24 3d 22 2d 50 61 74 69 65 6e 63 65 |name$="-Patience|
00001ee0 22 0d 0b ae 29 de 20 71 25 21 32 34 20 28 a9 73 |"...). q%!24 (.s|
00001ef0 70 6e 61 6d 65 24 2b 31 29 3a 24 28 71 25 21 32 |pname$+1):$(q%!2|
00001f00 34 29 3d 73 70 6e 61 6d 65 24 0d 0b b8 12 71 25 |4)=spname$....q%|
00001f10 21 32 38 3d 73 70 72 69 74 65 73 25 0d 0b c2 14 |!28=sprites%....|
00001f20 71 25 21 33 32 3d a9 73 70 6e 61 6d 65 24 2b 31 |q%!32=.spname$+1|
00001f30 0d 0b cc 22 c8 99 20 22 57 69 6d 70 5f 43 72 65 |...".. "Wimp_Cre|
00001f40 61 74 65 49 63 6f 6e 22 2c 2c 71 25 20 b8 20 69 |ateIcon",,q% . i|
00001f50 63 25 0d 0b d6 08 3d 69 63 25 0d 0b e0 05 20 0d |c%....=ic%.... .|
00001f60 0b ea 0e dd 20 f2 53 48 55 46 46 4c 45 0d 0b f4 |.... .SHUFFLE...|
00001f70 1b 50 41 43 4b 24 3d c4 35 32 2c 22 20 22 29 3a |.PACK$=.52," "):|
00001f80 50 41 43 4b 24 3d 22 22 0d 0b fe 37 4b 25 3d 30 |PACK$=""...7K%=0|
00001f90 3a e3 49 25 3d 30 b8 33 3a e3 4a 25 3d 31 b8 31 |:.I%=0.3:.J%=1.1|
00001fa0 33 3a 53 50 41 43 45 25 3f 4b 25 3d 49 25 2b 4a |3:SPACE%?K%=I%+J|
00001fb0 25 2a 34 3a 4b 25 3d 4b 25 2b 31 3a ed 3a ed 0d |%*4:K%=K%+1:.:..|
00001fc0 0c 08 24 e3 49 25 3d 31 b8 35 32 3a f5 20 4a 25 |..$.I%=1.52:. J%|
00001fd0 3d b3 28 35 32 29 2d 31 3a fd 53 50 41 43 45 25 |=.(52)-1:.SPACE%|
00001fe0 3f 4a 25 0d 0c 12 29 50 41 43 4b 24 2b 3d bd 28 |?J%...)PACK$+=.(|
00001ff0 53 50 41 43 45 25 3f 4a 25 2b 31 32 38 29 3a 53 |SPACE%?J%+128):S|
00002000 50 41 43 45 25 3f 4a 25 3d 30 3a ed 0d 0c 1c 3c |PACE%?J%=0:....<|
00002010 e3 49 25 3d 31 b8 37 3a 41 24 28 49 25 29 3d c0 |.I%=1.7:A$(I%)=.|
00002020 50 41 43 4b 24 2c 37 2d 49 25 29 3a 41 24 28 49 |PACK$,7-I%):A$(I|
00002030 25 29 2b 3d bd 28 97 c1 50 41 43 4b 24 2c 38 2d |%)+=.(..PACK$,8-|
00002040 49 25 29 80 31 32 37 29 0d 0c 26 18 50 41 43 4b |I%).127)..&.PACK|
00002050 24 3d c1 50 41 43 4b 24 2c 39 2d 49 25 29 3a ed |$=.PACK$,9-I%):.|
00002060 0d 0c 30 1d 50 4c 41 43 45 3d 30 3a 41 24 3d 50 |..0.PLACE=0:A$=P|
00002070 41 43 4b 24 3a 50 41 43 4b 24 3d 22 22 0d 0c 3a |ACK$:PACK$=""..:|
00002080 26 e3 49 25 3d 31 b8 a9 41 24 3a 50 41 43 4b 24 |&.I%=1..A$:PACK$|
00002090 2b 3d bd 28 97 c1 41 24 2c 49 25 29 80 31 32 37 |+=.(..A$,I%).127|
000020a0 29 3a ed 0d 0c 44 17 e3 49 25 3d 30 b8 33 3a 53 |):...D..I%=0.3:S|
000020b0 25 28 49 25 29 3d 49 25 3a ed 0d 0c 4e 20 70 6c |%(I%)=I%:...N pl|
000020c0 61 79 3d b9 3a 64 65 61 6c 6e 75 6d 62 65 72 3d |ay=.:dealnumber=|
000020d0 6e 75 6d 62 65 72 6f 76 65 72 0d 0c 58 05 e1 0d |numberover..X...|
000020e0 0c 62 05 20 0d 0c 6c 15 dd 20 f2 43 41 52 44 28 |.b. ..l.. .CARD(|
000020f0 4e 25 2c 58 25 2c 59 25 29 0d 0c 76 1e c8 99 43 |N%,X%,Y%)..v...C|
00002100 6f 6c 25 2c 37 3a c8 93 20 c8 90 20 58 25 2c 59 |ol%,7:.. .. X%,Y|
00002110 25 2c 36 30 2c 38 33 0d 0c 80 22 c8 99 43 6f 6c |%,60,83..."..Col|
00002120 25 2c 30 3a c8 93 20 c8 90 20 58 25 2b 34 2c 59 |%,0:.. .. X%+4,Y|
00002130 25 2b 34 2c 35 32 2c 37 35 0d 0c 8a 45 c8 99 20 |%+4,52,75...E.. |
00002140 73 70 6f 70 25 2c 26 31 33 34 2c 73 70 72 69 74 |spop%,&134,sprit|
00002150 65 73 25 2c 73 75 69 74 24 28 4e 25 80 33 29 2c |es%,suit$(N%.3),|
00002160 58 25 2b 31 36 2c 59 25 2b 38 2c 2c 66 61 63 74 |X%+16,Y%+8,,fact|
00002170 6f 72 73 25 2c 70 69 78 74 72 61 6e 73 25 0d 0c |ors%,pixtrans%..|
00002180 94 49 c8 99 20 73 70 6f 70 25 2c 26 31 33 34 2c |.I.. spop%,&134,|
00002190 73 70 72 69 74 65 73 25 2c 22 73 22 2b 73 75 69 |sprites%,"s"+sui|
000021a0 74 24 28 4e 25 80 33 29 2c 58 25 2b 34 2c 59 25 |t$(N%.3),X%+4,Y%|
000021b0 2b 35 36 2c 2c 66 61 63 74 6f 72 73 25 2c 70 69 |+56,,factors%,pi|
000021c0 78 74 72 61 6e 73 25 0d 0c 9e 2a e7 28 4e 25 20 |xtrans%...*.(N% |
000021d0 82 20 4e 25 3e 3e 31 29 20 80 20 31 20 c8 99 43 |. N%>>1) . 1 ..C|
000021e0 6f 6c 25 2c 31 31 20 8b 20 c8 99 43 6f 6c 25 2c |ol%,11 . ..Col%,|
000021f0 37 0d 0c a8 2a ec 58 25 2b 32 34 2c 59 25 2b 37 |7...*.X%+24,Y%+7|
00002200 32 3a 4e 25 3d 4e 25 3e 3e 32 3a e7 4e 25 3e 31 |2:N%=N%>>2:.N%>1|
00002210 e7 4e 25 3c 31 31 f1 3b 4e 25 3b 0d 0c b2 0e e7 |.N%<11.;N%;.....|
00002220 4e 25 3d 31 f1 22 41 22 3b 0d 0c bc 0f e7 4e 25 |N%=1."A";.....N%|
00002230 3d 31 31 f1 22 4a 22 3b 0d 0c c6 0f e7 4e 25 3d |=11."J";.....N%=|
00002240 31 32 f1 22 51 22 3b 0d 0c d0 0f e7 4e 25 3d 31 |12."Q";.....N%=1|
00002250 33 f1 22 4b 22 3b 0d 0c da 05 e1 0d 0c e4 05 20 |3."K";......... |
00002260 0d 0c ee 19 dd 20 f2 48 41 4c 46 43 41 52 44 28 |..... .HALFCARD(|
00002270 4e 25 2c 58 25 2c 59 25 29 0d 0c f8 21 c8 99 43 |N%,X%,Y%)...!..C|
00002280 6f 6c 25 2c 37 3a c8 93 20 c8 90 20 58 25 2c 59 |ol%,7:.. .. X%,Y|
00002290 25 2b 34 30 2c 36 30 2c 34 33 0d 0d 02 23 c8 99 |%+40,60,43...#..|
000022a0 43 6f 6c 25 2c 30 3a c8 93 20 c8 90 20 58 25 2b |Col%,0:.. .. X%+|
000022b0 34 2c 59 25 2b 34 30 2c 35 32 2c 33 39 0d 0d 0c |4,Y%+40,52,39...|
000022c0 49 c8 99 20 73 70 6f 70 25 2c 26 31 33 34 2c 73 |I.. spop%,&134,s|
000022d0 70 72 69 74 65 73 25 2c 22 73 22 2b 73 75 69 74 |prites%,"s"+suit|
000022e0 24 28 4e 25 80 33 29 2c 58 25 2b 34 2c 59 25 2b |$(N%.3),X%+4,Y%+|
000022f0 35 36 2c 2c 66 61 63 74 6f 72 73 25 2c 70 69 78 |56,,factors%,pix|
00002300 74 72 61 6e 73 25 0d 0d 16 2a e7 28 4e 25 20 82 |trans%...*.(N% .|
00002310 20 4e 25 3e 3e 31 29 20 80 20 31 20 c8 99 43 6f | N%>>1) . 1 ..Co|
00002320 6c 25 2c 31 31 20 8b 20 c8 99 43 6f 6c 25 2c 37 |l%,11 . ..Col%,7|
00002330 0d 0d 20 2a ec 58 25 2b 32 34 2c 59 25 2b 37 32 |.. *.X%+24,Y%+72|
00002340 3a 4e 25 3d 4e 25 3e 3e 32 3a e7 4e 25 3e 31 e7 |:N%=N%>>2:.N%>1.|
00002350 4e 25 3c 31 31 f1 3b 4e 25 3b 0d 0d 2a 0e e7 4e |N%<11.;N%;..*..N|
00002360 25 3d 31 f1 22 41 22 3b 0d 0d 34 0f e7 4e 25 3d |%=1."A";..4..N%=|
00002370 31 31 f1 22 4a 22 3b 0d 0d 3e 0f e7 4e 25 3d 31 |11."J";..>..N%=1|
00002380 32 f1 22 51 22 3b 0d 0d 48 0f e7 4e 25 3d 31 33 |2."Q";..H..N%=13|
00002390 f1 22 4b 22 3b 0d 0d 52 05 e1 0d 0d 5c 05 20 0d |."K";..R....\. .|
000023a0 0d 66 12 dd 20 f2 42 41 43 4b 28 58 25 2c 59 25 |.f.. .BACK(X%,Y%|
000023b0 29 0d 0d 70 3b c8 99 20 73 70 6f 70 25 2c 26 31 |)..p;.. spop%,&1|
000023c0 33 34 2c 73 70 72 69 74 65 73 25 2c 22 62 61 63 |34,sprites%,"bac|
000023d0 6b 22 2c 58 25 2c 59 25 2c 2c 66 61 63 74 6f 72 |k",X%,Y%,,factor|
000023e0 73 25 2c 70 69 78 74 72 61 6e 73 25 0d 0d 7a 05 |s%,pixtrans%..z.|
000023f0 e1 0d 0d 84 05 20 0d 0d 8e 16 dd 20 f2 48 41 4c |..... ..... .HAL|
00002400 46 42 41 43 4b 28 58 25 2c 59 25 29 0d 0d 98 3e |FBACK(X%,Y%)...>|
00002410 c8 99 20 73 70 6f 70 25 2c 26 31 33 34 2c 73 70 |.. spop%,&134,sp|
00002420 72 69 74 65 73 25 2c 22 68 61 6c 66 22 2c 58 25 |rites%,"half",X%|
00002430 2c 59 25 2b 34 30 2c 2c 66 61 63 74 6f 72 73 25 |,Y%+40,,factors%|
00002440 2c 70 69 78 74 72 61 6e 73 25 0d 0d a2 05 e1 0d |,pixtrans%......|
00002450 0d ac 05 20 0d 0d b6 14 dd 20 f2 4e 4f 43 41 52 |... ..... .NOCAR|
00002460 44 28 58 25 2c 59 25 29 0d 0d c0 23 c8 99 43 6f |D(X%,Y%)...#..Co|
00002470 6c 25 2c 60 77 62 63 6f 6c 3a c8 93 20 c8 90 20 |l%,`wbcol:.. .. |
00002480 58 25 2c 59 25 2c 36 30 2c 38 33 0d 0d ca 05 e1 |X%,Y%,60,83.....|
00002490 0d 0d d4 05 20 0d 0d de 16 dd 20 f2 43 41 52 44 |.... ..... .CARD|
000024a0 48 4f 4c 45 28 58 25 2c 59 25 29 0d 0d e8 1e c8 |HOLE(X%,Y%).....|
000024b0 99 43 6f 6c 25 2c 33 3a c8 93 20 c8 90 20 58 25 |.Col%,3:.. .. X%|
000024c0 2c 59 25 2c 36 30 2c 38 33 0d 0d f2 05 e1 0d 0d |,Y%,60,83.......|
000024d0 fc 05 20 0d 0e 06 15 dd 20 f2 50 49 4c 45 28 41 |.. ..... .PILE(A|
000024e0 24 2c 58 25 2c 59 25 29 0d 0e 10 0c e7 a9 41 24 |$,X%,Y%)......A$|
000024f0 3d 30 20 e1 0d 0e 1a 10 ea 49 25 3a e7 a9 41 24 |=0 ......I%:..A$|
00002500 3e 31 20 8c 0d 0e 24 1b e3 49 25 3d 31 b8 a9 41 |>1 ...$..I%=1..A|
00002510 24 2d 31 3a 4a 25 3d 97 c1 41 24 2c 49 25 29 0d |$-1:J%=..A$,I%).|
00002520 0e 2e 32 e7 4a 25 3e 31 32 37 20 f2 48 41 4c 46 |..2.J%>127 .HALF|
00002530 42 41 43 4b 28 58 25 2c 59 25 29 20 8b 20 f2 48 |BACK(X%,Y%) . .H|
00002540 41 4c 46 43 41 52 44 28 4a 25 2c 58 25 2c 59 25 |ALFCARD(J%,X%,Y%|
00002550 29 0d 0e 38 0c 59 25 2d 3d 34 30 3a ed 0d 0e 42 |)..8.Y%-=40:...B|
00002560 05 cd 0d 0e 4c 37 4a 25 3d 97 c1 41 24 2c a9 41 |....L7J%=..A$,.A|
00002570 24 29 3a e7 4a 25 3e 31 32 37 20 f2 42 41 43 4b |$):.J%>127 .BACK|
00002580 28 58 25 2c 59 25 29 20 8b 20 f2 43 41 52 44 28 |(X%,Y%) . .CARD(|
00002590 4a 25 2c 58 25 2c 59 25 29 0d 0e 56 05 e1 0d 0e |J%,X%,Y%)..V....|
000025a0 60 05 20 0d 0e 6a 16 dd 20 f2 52 45 4d 43 41 52 |`. ..j.. .REMCAR|
000025b0 44 53 28 49 25 2c 4a 25 29 0d 0e 74 12 ea 54 25 |DS(I%,J%)..t..T%|
000025c0 3a 54 25 3d a9 41 24 28 49 25 29 0d 0e 7e 19 41 |:T%=.A$(I%)..~.A|
000025d0 24 28 49 25 29 3d c0 41 24 28 49 25 29 2c 54 25 |$(I%)=.A$(I%),T%|
000025e0 2d 4a 25 29 0d 0e 88 39 e7 a9 41 24 28 49 25 29 |-J%)...9..A$(I%)|
000025f0 20 41 24 28 49 25 29 3d c0 41 24 28 49 25 29 2c | A$(I%)=.A$(I%),|
00002600 a9 41 24 28 49 25 29 2d 31 29 2b bd 28 97 c2 41 |.A$(I%)-1)+.(..A|
00002610 24 28 49 25 29 2c 31 29 80 31 32 37 29 0d 0e 92 |$(I%),1).127)...|
00002620 3d f2 75 70 64 61 74 65 28 70 61 74 25 2c 38 2b |=.update(pat%,8+|
00002630 28 49 25 2d 31 29 2a 36 38 2c 2d 38 30 2d 54 25 |(I%-1)*68,-80-T%|
00002640 2a 34 30 2c 38 2b 49 25 2a 36 38 2c 34 30 2d a9 |*40,8+I%*68,40-.|
00002650 41 24 28 49 25 29 2a 34 30 29 0d 0e 9c 0c c8 95 |A$(I%)*40)......|
00002660 20 6d 6f 72 65 25 0d 0e a6 2c 20 20 da 3a f2 50 | more%..., .:.P|
00002670 49 4c 45 28 41 24 28 49 25 29 2c 62 78 25 2b 38 |ILE(A$(I%),bx%+8|
00002680 2b 28 49 25 2d 31 29 2a 36 38 2c 62 79 25 2d 39 |+(I%-1)*68,by%-9|
00002690 36 29 0d 0e b0 1a 20 20 c8 99 20 47 65 74 52 25 |6).... .. GetR%|
000026a0 2c 2c 71 25 20 b8 20 6d 6f 72 65 25 0d 0e ba 07 |,,q% . more%....|
000026b0 20 20 ce 0d 0e c4 05 e1 0d 0e ce 05 20 0d 0e d8 | .......... ...|
000026c0 0b dd 20 f2 4e 45 58 54 0d 0e e2 12 e7 a9 50 41 |.. .NEXT......PA|
000026d0 43 4b 24 3d 30 20 ef 37 3a e1 0d 0e ec 19 e7 50 |CK$=0 .7:......P|
000026e0 4c 41 43 45 3d a9 50 41 43 4b 24 20 50 4c 41 43 |LACE=.PACK$ PLAC|
000026f0 45 3d 30 0d 0e f6 12 e7 64 65 61 6c 72 65 76 65 |E=0.....dealreve|
00002700 72 73 65 20 8c 0d 0f 00 21 4e 31 24 3d 22 22 3a |rse ....!N1$="":|
00002710 e3 49 25 3d 64 65 61 6c 6e 75 6d 62 65 72 20 b8 |.I%=dealnumber .|
00002720 20 31 20 88 2d 31 0d 0f 0a 1d 4e 31 24 2b 3d c1 | 1 .-1....N1$+=.|
00002730 50 41 43 4b 24 2c 50 4c 41 43 45 2b 49 25 2c 31 |PACK$,PLACE+I%,1|
00002740 29 3a ed 0d 0f 14 05 cc 0d 0f 1e 22 4e 31 24 3d |):........."N1$=|
00002750 c1 50 41 43 4b 24 2c 50 4c 41 43 45 2b 31 2c 64 |.PACK$,PLACE+1,d|
00002760 65 61 6c 6e 75 6d 62 65 72 29 0d 0f 28 05 cd 0d |ealnumber)..(...|
00002770 0f 32 36 50 41 43 4b 24 3d c0 50 41 43 4b 24 2c |.26PACK$=.PACK$,|
00002780 50 4c 41 43 45 29 2b 4e 31 24 2b c1 50 41 43 4b |PLACE)+N1$+.PACK|
00002790 24 2c 50 4c 41 43 45 2b 64 65 61 6c 6e 75 6d 62 |$,PLACE+dealnumb|
000027a0 65 72 2b 31 29 0d 0f 3c 0f 50 4c 41 43 45 2b 3d |er+1)..<.PLACE+=|
000027b0 a9 4e 31 24 0d 0f 46 27 c1 50 41 43 4b 24 2c 50 |.N1$..F'.PACK$,P|
000027c0 4c 41 43 45 29 3d bd 28 97 c1 50 41 43 4b 24 2c |LACE)=.(..PACK$,|
000027d0 50 4c 41 43 45 29 80 31 32 37 29 0d 0f 50 2c f2 |PLACE).127)..P,.|
000027e0 75 70 64 61 74 65 28 70 61 74 25 2c 32 34 2b 38 |update(pat%,24+8|
000027f0 2a 36 38 2c 2d 32 35 36 2c 32 34 2b 31 30 2a 36 |*68,-256,24+10*6|
00002800 38 2c 2d 31 34 34 29 0d 0f 5a 08 f2 70 61 74 0d |8,-144)..Z..pat.|
00002810 0f 64 05 e1 0d 0f 6e 05 20 0d 0f 78 0f dd 20 f2 |.d....n. ..x.. .|
00002820 46 52 4f 4d 28 41 24 29 0d 0f 82 10 e7 a4 46 52 |FROM(A$)......FR|
00002830 4f 4d 28 41 24 29 20 e1 0d 0f 8c 1d 71 25 21 32 |OM(A$) .....q%!2|
00002840 30 3d 70 61 74 25 3a c8 99 20 47 65 74 57 2c 2c |0=pat%:.. GetW,,|
00002850 71 25 2b 32 30 0d 0f 96 13 21 71 25 3d 70 61 74 |q%+20....!q%=pat|
00002860 25 3a 71 25 21 34 3d 35 0d 0f a0 46 71 25 21 38 |%:q%!4=5...Fq%!8|
00002870 3d 6d 6f 75 73 65 78 25 2d 33 30 3a 71 25 21 31 |=mousex%-30:q%!1|
00002880 32 3d 6d 6f 75 73 65 79 25 2d 34 30 3a 71 25 21 |2=mousey%-40:q%!|
00002890 31 36 3d 6d 6f 75 73 65 78 25 2b 33 30 3a 71 25 |16=mousex%+30:q%|
000028a0 21 32 30 3d 6d 6f 75 73 65 79 25 2b 34 30 0d 0f |!20=mousey%+40..|
000028b0 aa 0f c8 99 20 44 72 61 67 2c 2c 71 25 0d 0f b4 |.... Drag,,q%...|
000028c0 05 e1 0d 0f be 05 20 0d 0f c8 0f dd 20 a4 46 52 |...... ..... .FR|
000028d0 4f 4d 28 41 24 29 0d 0f d2 2d 53 52 43 24 3d 41 |OM(A$)...-SRC$=A|
000028e0 24 3a e7 41 24 3d 22 50 22 20 e7 50 4c 41 43 45 |$:.A$="P" .PLACE|
000028f0 3d 30 20 84 20 a9 50 41 43 4b 24 3d 30 20 ef 37 |=0 . .PACK$=0 .7|
00002900 3a 3d b9 0d 0f dc 20 e7 41 24 3c 3e 22 50 22 e7 |:=.... .A$<>"P".|
00002910 a9 41 24 28 97 41 24 2d 36 34 29 3d 30 20 ef 37 |.A$(.A$-64)=0 .7|
00002920 3a 3d b9 0d 0f e6 06 3d a3 0d 0f f0 05 20 0d 0f |:=.....=..... ..|
00002930 fa 10 dd 20 f2 54 4f 28 41 24 2c 42 24 29 0d 10 |... .TO(A$,B$)..|
00002940 04 16 e7 41 24 3c 3e 22 50 22 20 41 25 3d 97 41 |...A$<>"P" A%=.A|
00002950 24 2d 36 34 0d 10 0e 0a 42 25 3d 97 42 24 0d 10 |$-64....B%=.B$..|
00002960 18 0d e7 42 25 3d 97 22 53 22 8c 0d 10 22 3a 20 |...B%=."S"...": |
00002970 20 e7 41 24 3d 22 50 22 20 43 41 52 44 3d 97 c1 | .A$="P" CARD=..|
00002980 50 41 43 4b 24 2c 50 4c 41 43 45 29 20 8b 20 43 |PACK$,PLACE) . C|
00002990 41 52 44 3d 97 c1 41 24 28 41 25 29 2c a9 41 24 |ARD=..A$(A%),.A$|
000029a0 28 41 25 29 29 0d 10 2c 26 20 20 49 25 3d 43 41 |(A%))..,& I%=CA|
000029b0 52 44 20 80 20 33 3a e7 43 41 52 44 3c 3e 53 25 |RD . 3:.CARD<>S%|
000029c0 28 49 25 29 2b 34 20 ef 37 3a e1 0d 10 36 34 20 |(I%)+4 .7:...64 |
000029d0 20 53 25 28 49 25 29 3d 43 41 52 44 3a e7 41 24 | S%(I%)=CARD:.A$|
000029e0 3d 22 50 22 20 f2 52 45 4d 50 41 43 4b 20 8b 20 |="P" .REMPACK . |
000029f0 f2 52 45 4d 43 41 52 44 53 28 41 25 2c 31 29 0d |.REMCARDS(A%,1).|
00002a00 10 40 12 20 20 f2 54 4f 53 54 41 43 4b 28 49 25 |.@. .TOSTACK(I%|
00002a10 29 0d 10 4a 05 cc 0d 10 54 1b 20 20 e7 42 25 3c |)..J....T. .B%<|
00002a20 97 22 41 22 84 42 25 3e 97 22 47 22 20 ef 37 3a |."A".B%>."G" .7:|
00002a30 e1 0d 10 5e 33 20 20 43 41 52 44 54 3d 97 c2 41 |...^3 CARDT=..A|
00002a40 24 28 42 25 2d 36 34 29 2c 31 29 3a 59 4c 45 4e |$(B%-64),1):YLEN|
00002a50 3d a9 41 24 28 42 25 2d 36 34 29 3a e7 41 24 3d |=.A$(B%-64):.A$=|
00002a60 22 50 22 8c 0d 10 68 28 20 20 20 20 43 41 52 44 |"P"...h( CARD|
00002a70 3d 97 c1 50 41 43 4b 24 2c 50 4c 41 43 45 29 3a |=..PACK$,PLACE):|
00002a80 e7 a4 43 48 4b 3d 30 20 ef 37 3a e1 0d 10 72 21 |..CHK=0 .7:...r!|
00002a90 20 20 20 20 41 24 28 42 25 2d 36 34 29 2b 3d bd | A$(B%-64)+=.|
00002aa0 43 41 52 44 3a f2 52 45 4d 50 41 43 4b 0d 10 7c |CARD:.REMPACK..||
00002ab0 07 20 20 cc 0d 10 86 3d 20 20 20 20 43 25 3d 30 |. ....= C%=0|
00002ac0 3a 44 25 3d 30 3a f5 20 44 25 2b 3d 31 3a 43 41 |:D%=0:. D%+=1:CA|
00002ad0 52 44 3d 97 c1 41 24 28 41 25 29 2c 44 25 29 3a |RD=..A$(A%),D%):|
00002ae0 fd a4 43 48 4b 20 84 44 25 3e a9 41 24 28 41 25 |..CHK .D%>.A$(A%|
00002af0 29 0d 10 90 18 20 20 20 20 e7 44 25 3e a9 41 24 |).... .D%>.A$|
00002b00 28 41 25 29 20 ef 37 3a e1 0d 10 9a 2c 20 20 20 |(A%) .7:...., |
00002b10 20 51 25 3d a9 41 24 28 42 25 2d 36 34 29 3a 41 | Q%=.A$(B%-64):A|
00002b20 24 28 42 25 2d 36 34 29 2b 3d c1 41 24 28 41 25 |$(B%-64)+=.A$(A%|
00002b30 29 2c 44 25 29 0d 10 a4 22 20 20 20 20 f2 52 45 |),D%)..." .RE|
00002b40 4d 43 41 52 44 53 28 41 25 2c a9 41 24 28 41 25 |MCARDS(A%,.A$(A%|
00002b50 29 2d 44 25 2b 31 29 0d 10 ae 07 20 20 cd 0d 10 |)-D%+1).... ...|
00002b60 b8 4b 20 20 f2 75 70 64 61 74 65 28 70 61 74 25 |.K .update(pat%|
00002b70 2c 38 2b 28 42 25 2d 97 22 41 22 29 2a 36 38 2c |,8+(B%-."A")*68,|
00002b80 2d 31 32 30 2d a9 41 24 28 42 25 2d 36 34 29 2a |-120-.A$(B%-64)*|
00002b90 34 30 2c 38 2b 28 42 25 2d 36 34 29 2a 36 38 2c |40,8+(B%-64)*68,|
00002ba0 2d 59 4c 45 4e 2a 34 30 29 0d 10 c2 0e 20 20 c8 |-YLEN*40).... .|
00002bb0 95 20 6d 6f 72 65 25 0d 10 cc 30 20 20 20 20 f2 |. more%...0 .|
00002bc0 50 49 4c 45 28 41 24 28 42 25 2d 36 34 29 2c 62 |PILE(A$(B%-64),b|
00002bd0 78 25 2b 38 2b 28 42 25 2d 36 35 29 2a 36 38 2c |x%+8+(B%-65)*68,|
00002be0 62 79 25 2d 39 36 29 0d 10 d6 1c 20 20 20 20 c8 |by%-96).... .|
00002bf0 99 20 47 65 74 52 25 2c 2c 71 25 20 b8 20 6d 6f |. GetR%,,q% . mo|
00002c00 72 65 25 0d 10 e0 07 20 20 ce 0d 10 ea 05 cd 0d |re%.... .......|
00002c10 10 f4 05 e1 0d 10 fe 05 20 0d 11 08 0e dd 20 f2 |........ ..... .|
00002c20 52 45 4d 50 41 43 4b 0d 11 12 30 50 4c 41 43 45 |REMPACK...0PLACE|
00002c30 2d 3d 31 3a 50 41 43 4b 24 3d c0 50 41 43 4b 24 |-=1:PACK$=.PACK$|
00002c40 2c 50 4c 41 43 45 29 2b c1 50 41 43 4b 24 2c 50 |,PLACE)+.PACK$,P|
00002c50 4c 41 43 45 2b 32 29 0d 11 1c 2f f2 75 70 64 61 |LACE+2).../.upda|
00002c60 74 65 28 70 61 74 25 2c 32 34 2b 38 2a 36 38 2c |te(pat%,24+8*68,|
00002c70 2d 32 38 30 2d 33 32 2c 32 30 2b 31 30 2a 36 38 |-280-32,20+10*68|
00002c80 2c 2d 31 34 30 29 0d 11 26 0c c8 95 20 6d 6f 72 |,-140)..&... mor|
00002c90 65 25 0d 11 30 07 20 20 da 0d 11 3a 10 20 20 e7 |e%..0. ...:. .|
00002ca0 20 a9 50 41 43 4b 24 20 8c 0d 11 44 26 20 20 20 | .PACK$ ...D& |
00002cb0 20 e7 66 63 6f 6c 25 3c 32 20 8c 20 c8 99 43 6f | .fcol%<2 . ..Co|
00002cc0 6c 25 2c 30 20 8b 20 c8 99 43 6f 6c 25 2c 37 0d |l%,0 . ..Col%,7.|
00002cd0 11 4e 22 20 20 20 20 ec 62 78 25 2b 39 2a 36 38 |.N" .bx%+9*68|
00002ce0 2c 62 79 25 2d 32 38 30 3a f1 a9 50 41 43 4b 24 |,by%-280:..PACK$|
00002cf0 3b 0d 11 58 51 20 20 20 20 e7 50 4c 41 43 45 3d |;..XQ .PLACE=|
00002d00 a9 50 41 43 4b 24 20 f2 43 41 52 44 48 4f 4c 45 |.PACK$ .CARDHOLE|
00002d10 28 62 78 25 2b 32 34 2b 39 2a 36 38 2c 62 79 25 |(bx%+24+9*68,by%|
00002d20 2d 32 35 36 29 20 8b 20 f2 42 41 43 4b 28 62 78 |-256) . .BACK(bx|
00002d30 25 2b 32 34 2b 39 2a 36 38 2c 62 79 25 2d 32 35 |%+24+9*68,by%-25|
00002d40 36 29 0d 11 62 5b 20 20 20 20 e7 50 4c 41 43 45 |6)..b[ .PLACE|
00002d50 3e 30 20 f2 43 41 52 44 28 97 c1 50 41 43 4b 24 |>0 .CARD(..PACK$|
00002d60 2c 50 4c 41 43 45 2c 31 29 2c 62 78 25 2b 32 34 |,PLACE,1),bx%+24|
00002d70 2b 38 2a 36 38 2c 62 79 25 2d 32 35 36 29 20 8b |+8*68,by%-256) .|
00002d80 20 f2 4e 4f 43 41 52 44 28 62 78 25 2b 32 34 2b | .NOCARD(bx%+24+|
00002d90 38 2a 36 38 2c 62 79 25 2d 32 35 36 29 0d 11 6c |8*68,by%-256)..l|
00002da0 07 20 20 cc 0d 11 76 41 20 20 20 20 f2 4e 4f 43 |. ...vA .NOC|
00002db0 41 52 44 28 62 78 25 2b 32 34 2b 39 2a 36 38 2c |ARD(bx%+24+9*68,|
00002dc0 62 79 25 2d 32 35 36 29 3a f2 4e 4f 43 41 52 44 |by%-256):.NOCARD|
00002dd0 28 62 78 25 2b 32 34 2b 38 2a 36 38 2c 62 79 25 |(bx%+24+8*68,by%|
00002de0 2d 32 35 36 29 0d 11 80 07 20 20 cd 0d 11 8a 1a |-256).... .....|
00002df0 20 20 c8 99 20 47 65 74 52 25 2c 2c 71 25 20 b8 | .. GetR%,,q% .|
00002e00 20 6d 6f 72 65 25 0d 11 94 05 ce 0d 11 9e 05 e1 | more%..........|
00002e10 0d 11 a8 05 20 0d 11 b2 0a dd 20 a4 43 48 4b 0d |.... ..... .CHK.|
00002e20 11 bc 0f e7 43 41 52 44 54 3d 2d 31 20 8c 0d 11 |....CARDT=-1 ...|
00002e30 c6 28 e7 6b 69 6e 67 73 6f 6e 6c 79 20 8c 20 3d |.(.kingsonly . =|
00002e40 43 41 52 44 20 81 34 3d 31 33 20 8b 20 3d 43 41 |CARD .4=13 . =CA|
00002e50 52 44 3c 31 32 37 0d 11 d0 05 cd 0d 11 da 27 43 |RD<127........'C|
00002e60 54 3d 28 43 41 52 44 54 20 82 20 43 41 52 44 29 |T=(CARDT . CARD)|
00002e70 80 33 3a e7 43 54 3d 30 20 84 20 43 54 3d 33 20 |.3:.CT=0 . CT=3 |
00002e80 3d a3 0d 11 e4 17 3d 43 41 52 44 54 20 81 34 3d |=.....=CARDT .4=|
00002e90 43 41 52 44 20 81 34 2b 31 0d 11 ee 05 20 0d 11 |CARD .4+1.... ..|
00002ea0 f8 12 dd 20 f2 54 4f 53 54 41 43 4b 28 49 25 29 |... .TOSTACK(I%)|
00002eb0 0d 12 02 34 f2 75 70 64 61 74 65 28 70 61 74 25 |...4.update(pat%|
00002ec0 2c 32 34 2b 28 37 2b 49 25 29 2a 36 38 2c 2d 31 |,24+(7+I%)*68,-1|
00002ed0 32 38 2c 32 34 2b 28 38 2b 49 25 29 2a 36 38 2c |28,24+(8+I%)*68,|
00002ee0 2d 34 30 29 0d 12 0c 0c c8 95 20 6d 6f 72 65 25 |-40)...... more%|
00002ef0 0d 12 16 2c 20 20 f2 43 41 52 44 28 53 25 28 49 |..., .CARD(S%(I|
00002f00 25 29 2c 62 78 25 2b 28 37 2b 49 25 29 2a 36 38 |%),bx%+(7+I%)*68|
00002f10 2b 32 34 2c 62 79 25 2d 31 32 38 29 0d 12 20 1a |+24,by%-128).. .|
00002f20 20 20 c8 99 20 47 65 74 52 25 2c 2c 71 25 20 b8 | .. GetR%,,q% .|
00002f30 20 6d 6f 72 65 25 0d 12 2a 05 ce 0d 12 34 05 e1 | more%..*....4..|
00002f40 0d 12 3e 05 20 0d 12 48 12 dd 20 f2 67 65 74 6d |..>. ..H.. .getm|
00002f50 6f 64 65 69 6e 66 6f 0d 12 52 44 c8 99 22 57 69 |odeinfo..RD.."Wi|
00002f60 6d 70 5f 52 65 61 64 50 69 78 54 72 61 6e 73 22 |mp_ReadPixTrans"|
00002f70 2c 26 31 30 30 2c 73 70 72 69 74 65 73 25 2c 22 |,&100,sprites%,"|
00002f80 63 6c 75 62 22 2c 2c 2c 2c 66 61 63 74 6f 72 73 |club",,,,factors|
00002f90 25 2c 70 69 78 74 72 61 6e 73 25 0d 12 5c 28 c8 |%,pixtrans%..\(.|
00002fa0 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 |."OS_ReadModeVar|
00002fb0 69 61 62 6c 65 22 2c eb 2c 33 20 b8 2c 2c 66 63 |iable",.,3 .,,fc|
00002fc0 6f 6c 25 0d 12 66 05 e1 0d 12 70 04 0d 12 7a 19 |ol%..f....p...z.|
00002fd0 dd 20 f2 64 65 73 6b 73 61 76 65 28 6d 65 73 73 |. .desksave(mess|
00002fe0 61 67 65 25 29 0d 12 84 14 ea 20 6d 79 72 65 66 |age%)..... myref|
00002ff0 25 2c 73 65 6e 64 65 72 25 0d 12 8e 21 e7 20 ac |%,sender%...!. .|
00003000 20 a4 64 65 73 6b 77 72 69 74 65 28 6d 65 73 73 | .deskwrite(mess|
00003010 61 67 65 25 21 32 30 29 20 8c 0d 12 98 18 20 20 |age%!20) ..... |
00003020 73 65 6e 64 65 72 25 3d 6d 65 73 73 61 67 65 25 |sender%=message%|
00003030 21 34 0d 12 a2 17 20 20 6d 79 72 65 66 25 3d 6d |!4.... myref%=m|
00003040 65 73 73 61 67 65 25 21 38 0d 12 ac 18 20 20 6d |essage%!8.... m|
00003050 65 73 73 61 67 65 25 21 31 32 3d 6d 79 72 65 66 |essage%!12=myref|
00003060 25 0d 12 b6 2e 20 20 c8 99 22 57 69 6d 70 5f 53 |%.... .."Wimp_S|
00003070 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 39 2c 6d |endMessage",19,m|
00003080 65 73 73 61 67 65 25 2c 73 65 6e 64 65 72 25 0d |essage%,sender%.|
00003090 12 c0 23 20 20 21 65 72 72 62 75 66 25 3d 9f 3a |..# !errbuf%=.:|
000030a0 24 28 65 72 72 62 75 66 25 2b 34 29 3d f6 24 2b |$(errbuf%+4)=.$+|
000030b0 bd 30 0d 12 ca 30 20 20 c8 99 20 22 57 69 6d 70 |.0...0 .. "Wimp|
000030c0 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 |_ReportError",er|
000030d0 72 62 75 66 25 2c 31 2c 22 50 61 74 69 65 6e 63 |rbuf%,1,"Patienc|
000030e0 65 22 0d 12 d4 05 cd 0d 12 de 05 e1 0d 12 e8 04 |e"..............|
000030f0 0d 12 f2 14 dd 20 a4 64 65 73 6b 77 72 69 74 65 |..... .deskwrite|
00003100 28 48 25 29 0d 12 fc 07 ea 20 85 0d 13 06 0d ee |(H%)..... ......|
00003110 20 85 20 ea 20 3d 20 a3 0d 13 10 1a d5 23 48 25 | . . = ......#H%|
00003120 2c 22 52 75 6e 20 22 2b 24 62 6f 6f 74 70 61 74 |,"Run "+$bootpat|
00003130 68 25 0d 13 1a 07 3d 20 b9 0d ff |h%....= ...|
0000313b 
.