Home » Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Games/!Pelmanism/Pelmanism
Games/!Pelmanism/Pelmanism
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/!Pelmanism/Pelmanism |
| Read OK: | ✔ |
| File size: | 2151 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > Pelmanism
20DIM taskid%4:$taskid%="TASK"
30SYS "Wimp_Initialise",200,!taskid%,"Pelmanism" TO version%
40`wbcol=10:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
50PROCvars
60DIM q% &300
70DIM menudata% &200
80
90maxbuf%=&400:@%=5
100DIM buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
110DIM block 12
120
130pel%=FNcwindow
140DATA Pelmanism,&0F,`wfcol,`wbcol,0,-512,1000,0, 0,-400,1000,0 ,0
150
160DIM SPACE% 52,suit$(3),f%(12,3),x%(1),y%(1)
170N%=RND(TIME OR &80000000):PROCSHUFFLE
180suit$()="club","diamond","heart","spade"
190
200DIM sprites% 1400,factors% 15,pixtrans% 15
210!sprites%=1400:sprites%!8=1
220SYS spop%,&109,sprites%
230SYS spop%,&10A,sprites%,"<Pelmanism$Dir>.Sprites"
240icpel%=FNiconbar
250PROCgetmodeinfo
260
270ON ERROR PROCerrorbox
280SYS Drag,,-1:PROCgetpointer:xo%=mousex%:yo%=mousey%:open%=FALSE:@%=3
290REPEAT
300 SYS Poll%,1,q% TO A%
310 CASE A% OF
320 WHEN 1 :PROCredraw_window(!q%)
330 WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
340 WHEN 3 :PROCcloseawindow(!q%)
350 WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
360 WHEN 9 :PROCmenuselect(q%)
370 WHEN 10:IF!q%=pel% PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20+32*q%!32,q%!24+64*q%!36,q%!28)
380 WHEN 17,18:PROCreceive(q%)
390 ENDCASE
400UNTIL FALSE
410
420DEF PROCreceive(q%)
430CASE q%!16 OF
440WHEN 0:PROCfinish:END
450WHEN &400C1:PROCgetmodeinfo
460ENDCASE
470ENDPROC
480
490DEF FNcwindow
500READ A$,f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%
510=FNcreate_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
520
530DEF PROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
540IFb%AND2 THEN
550 CASE handle% OF
560 WHEN pel%:PROCdomenu(pel%,"Deal Hand,Resign","Pelmanism")
570 WHEN -2: PROCdomenu(101,"Quit","Pelmanism")
580 ENDCASE
590ENDIF
600IFb%AND4 THEN
610 IFhandle%>-1THENPROCgetw(handle%)
620 CASE handle% OF
630 WHEN pel%
640 IFplay
650 IFcover=2 PROCDOCARD(128,x%(0),y%(0)):PROCDOCARD(128,x%(1),y%(1)):cover=0
660 X%=(mousex%-(bx%+8))DIV68:Y%=-(mousey%-by%)DIV96
670 IFX%<0 OR Y%<0 OR X%>12 OR Y%>3 WHEN
680 IFf%(X%,Y%)<128 VDU7:WHEN
690 PROCDOCARD(128,X%,Y%):x%(cover)=X%:y%(cover)=Y%:cover+=1
700 IFcover>1 THEN
710 tries+=1:IFFNMat(f%(x%(0),y%(0)),f%(x%(1),y%(1))) cover=0
720 PROCupdate(pel%,13*68+16,-230,13*68+16*4,-196):SYSCol%,7
730 WHILE more%
740 CLG:MOVEbx%+13*68+16,by%-200:PRINTtries;
750 SYS GetR%,,q% TO more%
760 ENDWHILE
770 ENDIF
780 ENDIF
790 WHEN -2:IFopen% PROCfront(pel%) ELSE PROCreopen(pel%):open%=TRUE
800 ENDCASE
810ENDIF
820ENDPROC
830
840DEF PROCcloseawindow(handle%)
850PROCgetw(handle%)
860xo%=x0%:yo%=y0%:open%=FALSE
870PROCclose_window(handle%)
880ENDPROC
890
900DEF PROCfinish
910SYS "Wimp_CloseDown"
920ENDPROC
930
940DEF PROCdomenu(handle%,menu$,menutitle$)
950menuhandle%=handle%
960menuptr%=buffer%
970i%=0
980menuptr%!20=40
990$menuptr%=menutitle$
1000menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
1010menuptr%!16=180-24:menuptr%!24=0
1020menuptr%+=28
1030REPEAT item$=FNpar(","):PROCmenuitem(item$):UNTIL item$=""
1040menuptr%!-24=(menuptr%!-24)OR&80
1050IFhandle%=101 SYS CrMenu,,buffer%,mousex%-32,96+40 ELSE SYS CrMenu,,buffer%,mousex%-32,mousey%+16
1060ENDPROC
1070
1080DEF PROCmenuitem(text$)
1090IF text$="" ENDPROC
1100menuptr%!0=0
1110menuptr%!4=-1
1120menuptr%!8=&07000021
1130$(menuptr%+12)=text$
1140menuptr%+=24
1150ENDPROC
1160
1170DEF FNpar(sep$)
1180i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
1190=MID$(menu$,i1%,i%-i1%)
1200
1210DEF PROCmenuselect(menus%)
1220SYS DcMenu,,buffer%,menus%,STRING$(200," ")TO,,,a$
1230IF a$="" THEN ENDPROC
1240CASE menuhandle% OF
1250WHEN pel%
1260 IF a$="Resign" THEN
1270 FORI%=0TO12:FORJ%=0TO3
1280 f%(I%,J%)=f%(I%,J%)AND127
1290 NEXT:NEXT
1300 PROCredraw_window(pel%):play=FALSE
1310 ENDIF
1320 IF a$="Deal Hand" THEN
1330 PROCSHUFFLE:PROCredraw_window(pel%)
1340 ENDIF
1350WHEN 101
1360 IF a$="Quit":PROCfinish:END
1370ENDCASE
1380ENDPROC
1390
1400DEF PROCpel
1410LOCALX%,Y%
1420WHILE more%
1430 ox0%=(q%!28-(bx%+8))DIV68:IFox0%>12 ox0%=12
1440 ox1%=(q%!36-(bx%+8))DIV68:IFox1%>12 ox1%=12
1450 oy0%=-(q%!40-by%)DIV96:IFoy0%>3 oy0%=3
1460 oy1%=-(q%!32-by%)DIV96:IFoy1%>3 oy1%=3
1470 FORY%=oy0%TOoy1%:ypos%=by%-96*(Y%+1)
1480 FORX%=ox0%TOox1%:C%=f%(X%,Y%):xpos%=bx%+8+X%*68
1490 IFC%>127 THEN
1500 IFC%=255 PROCNOCARD(xpos%,ypos%) ELSE PROCBACK(xpos%,ypos%)
1510 ELSE
1520 PROCCARD(C%,xpos%,ypos%)
1530 ENDIF
1540 NEXT
1550 NEXT
1560 SYSCol%,7:MOVEbx%+13*68+16,by%-160:PRINT"Tries";
1570 MOVEbx%+13*68+16,by%-200:PRINTtries;
1580 SYS GetR%,,q% TO more%
1590ENDWHILE
1600ENDPROC
1610
1620DEF FNcreate_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)
1630!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%
1640q%!24=-1:q%!28=flags%
1650IFfc%=15ANDbc%=15THEN
1660 q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
1670ELSE q%?32=`tfcol:q%?33=`tbcol:q%?34=fc%:q%?35=bc%
1680ENDIF
1690q%?36=`sco:q%?37=`tbcol:q%?38=`tbcol2:q%?39=0
1700q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
1710q%!56=titlef%
1720q%!60=&3000 : REM work area flags
1730q%!64=0:q%!68=0 : REM reserved
1740$(q%+72)=LEFT$(title$,11)
1750q%!84=nicons%
1760LOCALI%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
1770WHILE nicons%>0
1780 READ x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
1790 I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
1800 IF (f%AND&40)=0 THEN bc%=fc%+(bc%<<4)
1810 I%!16=f%+(bc%<<24)
1820 IF(f%AND&100)THEN
1830 READ L%:B%=FNbuffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
1840 ELSE
1850 $(I%+20)=data$
1860 ENDIF
1870 I%=I%+32:nicons%=nicons%-1
1880ENDWHILE
1890 SYS CreateW,,q% TO handle%
1900=handle%
1910
1920DEF PROCfront(handle%)
1930IFhandle%=-1THENENDPROC
1940PROCgetw(handle%)
1950PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
1960ENDPROC
1970
1980DEF PROCpopup(handle%)
1990PROCgetw(handle%)
2000xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
2010PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
2020ENDPROC
2030
2040DEF PROCreopen(handle%)
2050PROCgetw(handle%)
2060PROCopen_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
2070ENDPROC
2080
2090DEF PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
2100IFhandle%=-1THENENDPROC
2110q%!0=handle%:q%!28=bhandle%
2120q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
2130q%!20=scx%:q%!24=scy%
2140SYS OpenW,,q%
2150ENDPROC
2160
2170DEF PROCgetw(handle%)
2180!q%=handle%:SYS GetW,,q%
2190PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
2200ENDPROC
2210
2220DEF PROCinfo(q%)
2230x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
2240bx%=x0%-scx%:by%=y1%-scy%
2250ENDPROC
2260
2270DEF PROCupdate(handle%,ux0%,uy0%,ux1%,uy1%)
2280!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
2290SYS UpdateW,,q% TO more%:PROCinfo(q%+4)
2300ENDPROC
2310
2320DEF PROCredraw_window(handle%)
2330IFhandle%=pel% THEN
2340!q%=handle%
2350SYS RedrawW,,q% TO more%
2360PROCinfo(q%+4)
2370PROCpel
2380ENDIF
2390ENDPROC
2400
2410DEF PROCclose_window(handle%)
2420!q%=handle%:SYS CloseW,,q%
2430ENDPROC
2440
2450DEF PROCvars
2460Wimp = (1<<18) + (3<<6)
2470CreateW = Wimp+1
2480OpenW = Wimp+5
2490CloseW = Wimp+6
2500Poll% = Wimp+7
2510RedrawW = Wimp+8
2520UpdateW = Wimp+9
2530GetR% = Wimp+10
2540GetW = Wimp+11
2550GetP = Wimp+15
2560Drag = Wimp+16
2570CrMenu = Wimp+20
2580DcMenu = Wimp+21
2590SYS "OS_SWINumberFromString",,"OS_SpriteOp" TO spop%
2600SYS "OS_SWINumberFromString",,"Wimp_SetColour" TO Col%
2610SYS "OS_SWINumberFromString",,"Wimp_ForceRedraw" TO fred%
2620SYS "OS_SWINumberFromString",,"Wimp_PollIdle" TO Poll%
2630ENDPROC
2640
2650DEF PROCgetpointer
2660SYS GetP,,q%
2670mousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
2680ENDPROC
2690
2700DEF PROCerrorbox
2710SYS Drag,,-1
2720!buffer%=ERR:$(buffer%+4)=REPORT$+" at line "+STR$ERL+CHR$0
2730SYS "Wimp_ReportError",buffer%,1,"Pelmanism"
2740PROCfinish:END
2750ENDPROC
2760
2770DEF FNbuffer(L%)
2780IFcurbuf%+L%>buffer%+maxbuf%THEN ERROR100,"Buffer space full"
2790curbuf%+=L%
2800=curbuf%-L%
2810
2820DEF FNiconbar
2830!q%=-1
2840q%!4=0:q%!8=0:q%!12=63:q%!16=63
2850q%!20=&2102
2860spname$="-Pelmanism"
2870DIM q%!24 (LENspname$+1):$(q%!24)=spname$
2880q%!28=sprites%
2890q%!32=LENspname$+1
2900SYS "Wimp_CreateIcon",,q% TO ic%
2910=ic%
2920
2930DEF PROCSHUFFLE
2940PACK$=STRING$(52," "):PACK$=""
2950K%=0:FORI%=0TO3:FORJ%=1TO13:SPACE%?K%=I%+J%*4:K%=K%+1:NEXT:NEXT
2960FORI%=1TO52:REPEAT J%=RND(52)-1:UNTILSPACE%?J%
2970PACK$+=CHR$(SPACE%?J%+128):SPACE%?J%=0:NEXT
2980FORI%=0TO3:FORJ%=0TO12:f%(J%,I%)=ASCPACK$:PACK$=MID$(PACK$,2):NEXT:NEXT
2990play=TRUE:cover=0:tries=0
3000ENDPROC
3010
3020DEF PROCCARD(N%,X%,Y%)
3030SYSCol%,9:RECTANGLE FILL X%,Y%,60,80
3040SYSCol%,0:RECTANGLE FILL X%+4,Y%+4,52,72
3050SYS spop%,&134,sprites%,suit$(N%AND3),X%+16,Y%+8,,factors%,pixtrans%
3060SYS spop%,&134,sprites%,"s"+suit$(N%AND3),X%+4,Y%+56,,factors%,pixtrans%
3070IF(N% EOR N%>>1) AND 1 SYSCol%,11 ELSE SYSCol%,7
3080MOVEX%+24,Y%+72:N%=N%>>2:IFN%>1IFN%<11PRINT;N%;
3090IFN%=1PRINT"A";
3100IFN%=11PRINT"J";
3110IFN%=12PRINT"Q";
3120IFN%=13PRINT"K";
3130ENDPROC
3140
3150DEF PROCBACK(X%,Y%)
3160SYS spop%,&134,sprites%,"back",X%,Y%,,factors%,pixtrans%
3170ENDPROC
3180
3190DEF PROCNOCARD(X%,Y%)
3200SYSCol%,`wbcol:RECTANGLE FILL X%,Y%,60,80
3210ENDPROC
3220
3230DEF FNCHK IFCARDT=-1 THEN=CARD DIV4=13
3240CT=(CARDT EOR CARD)AND3:IFCT=0 OR CT=3 =FALSE
3250=CARDT DIV4=CARD DIV4+1
3260
3270DEF PROCgetmodeinfo
3280SYS"Wimp_ReadPixTrans",&100,sprites%,"club",,,,factors%,pixtrans%
3290ENDPROC
3300
3310DEF PROCDOCARD(C%,X%,Y%)
3320ypos%=-96*(Y%+1):xpos%=8+X%*68:f%(X%,Y%)=f%(X%,Y%)EORC%
3330PROCupdate(pel%,xpos%,ypos%,xpos%+67,ypos%+95)
3340PROCpel
3350ENDPROC
3360
3370DEF FNMat(A%,B%)
3380IFA%DIV4<>B%DIV4 THEN=FALSE
3390IF((A%AND3)EOR(B%AND3))=3 THEN=TRUE
3400=FALSE
� > Pelmanism
� taskid%4:$taskid%="TASK"
<ș "Wimp_Initialise",200,!taskid%,"Pelmanism" � version%
(M`wbcol=10:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
2 �vars
<
� q% &300
F� menudata% &200
P
Zmaxbuf%=&400:@%=5
d0� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
n� block 12
x
�pel%=�cwindow
�F� Pelmanism,&0F,`wfcol,`wbcol,0,-512,1000,0, 0,-400,1000,0 ,0
�
�-� SPACE% 52,suit$(3),f%(12,3),x%(1),y%(1)
� N%=�(� � &80000000):�SHUFFLE
�,suit$()="club","diamond","heart","spade"
�
�,� sprites% 1400,factors% 15,pixtrans% 15
� !sprites%=1400:sprites%!8=1
�ș spop%,&109,sprites%
�4ș spop%,&10A,sprites%,"<Pelmanism$Dir>.Sprites"
�icpel%=�iconbar
��getmodeinfo
� � �errorbox
@ș Drag,,-1:�getpointer:xo%=mousex%:yo%=mousey%:open%=�:@%=3
"�
, ș Poll%,1,q% � A%
6
Ȏ A% �
@ � 1 :�redraw_window(!q%)
JD � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
T � 3 :�closeawindow(!q%)
^7 � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
h � 9 :�menuselect(q%)
r` � 10:�!q%=pel% �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:�
�� &400C1:�getmodeinfo
��
��
�
�� �cwindow
�?� A$,f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%
�V=�create_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)
7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
�b%�2 �
& Ȏ handle% �
09 � pel%:�domenu(pel%,"Deal Hand,Resign","Pelmanism")
:, � -2: �domenu(101,"Quit","Pelmanism")
D �
N�
X �b%�4 �
b �handle%>-1��getw(handle%)
l Ȏ handle% �
v � pel%
� �play
�J �cover=2 �DOCARD(128,x%(0),y%(0)):�DOCARD(128,x%(1),y%(1)):cover=0
�4 X%=(mousex%-(bx%+8))�68:Y%=-(mousey%-by%)�96
�% �X%<0 � Y%<0 � X%>12 � Y%>3 �
� �f%(X%,Y%)<128 �7:�
�= �DOCARD(128,X%,Y%):x%(cover)=X%:y%(cover)=Y%:cover+=1
� �cover>1 �
�A tries+=1:�Mat(f%(x%(0),y%(0)),f%(x%(1),y%(1))) cover=0
�> �update(pel%,13*68+16,-230,13*68+16*4,-196):șCol%,7
� ȕ more%
�+ �:�bx%+13*68+16,by%-200:�tries;
� ș GetR%,,q% � more%
� �
�
�
6 � -2:�open% �front(pel%) � �reopen(pel%):open%=�
�
*�
4�
>
H � �closeawindow(handle%)
R�getw(handle%)
\xo%=x0%:yo%=y0%:open%=�
f�close_window(handle%)
p�
z
�
� �finish
�ș "Wimp_CloseDown"
��
�
�'� �domenu(handle%,menu$,menutitle$)
�menuhandle%=handle%
�menuptr%=buffer%
�i%=0
�menuptr%!20=40
�$menuptr%=menutitle$
�Jmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
�$menuptr%!16=180-24:menuptr%!24=0
�menuptr%+=28
1� item$=�par(","):�menuitem(item$):� item$=""
#menuptr%!-24=(menuptr%!-24)�&80
_�handle%=101 ș CrMenu,,buffer%,mousex%-32,96+40 � ș CrMenu,,buffer%,mousex%-32,mousey%+16
$�
.
8� �menuitem(text$)
B� text$="" �
Lmenuptr%!0=0
Vmenuptr%!4=-1
`menuptr%!8=&07000021
j$(menuptr%+12)=text$
tmenuptr%+=24
~�
�
�� �par(sep$)
�%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
�=�menu$,i1%,i%-i1%)
�
�� �menuselect(menus%)
�-ș DcMenu,,buffer%,menus%,�200," ")�,,,a$
�� a$="" � �
�Ȏ menuhandle% �
�
� pel%
� � a$="Resign" �
� �I%=0�12:�J%=0�3
! f%(I%,J%)=f%(I%,J%)�127
�:�
# �redraw_window(pel%):play=�
�
( � a$="Deal Hand" �
2% �SHUFFLE:�redraw_window(pel%)
< �
F � 101
P � a$="Quit":�finish:�
Z�
d�
n
x
� �pel
�
�X%,Y%
� ȕ more%
�. ox0%=(q%!28-(bx%+8))�68:�ox0%>12 ox0%=12
�. ox1%=(q%!36-(bx%+8))�68:�ox1%>12 ox1%=12
�) oy0%=-(q%!40-by%)�96:�oy0%>3 oy0%=3
�) oy1%=-(q%!32-by%)�96:�oy1%>3 oy1%=3
�' �Y%=oy0%�oy1%:ypos%=by%-96*(Y%+1)
�4 �X%=ox0%�ox1%:C%=f%(X%,Y%):xpos%=bx%+8+X%*68
� �C%>127 �
�= �C%=255 �NOCARD(xpos%,ypos%) � �BACK(xpos%,ypos%)
� �
�! �CARD(C%,xpos%,ypos%)
� �
�
�
. șCol%,7:�bx%+13*68+16,by%-160:�"Tries";
"# �bx%+13*68+16,by%-200:�tries;
, ș GetR%,,q% � more%
6�
@�
J
Tm� �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%
hq%!24=-1:q%!28=flags%
r�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%
��
�1q%?36=`sco:q%?37=`tbcol:q%?38=`tbcol2:q%?39=0
�/q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
�q%!56=titlef%
�(q%!60=&3000 : � work area flags
�!q%!64=0:q%!68=0 : � reserved
�$(q%+72)=�title$,11)
�q%!84=nicons%
�)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
�ȕ nicons%>0
�( � 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%
0 �
: $(I%+20)=data$
D �
N I%=I%+32:nicons%=nicons%-1
X�
b ș CreateW,,q% � handle%
l =handle%
v
�� �front(handle%)
��handle%=-1��
��getw(handle%)
�6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
��
�
�� �popup(handle%)
��getw(handle%)
�0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
��
�
�� �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%)
4�handle%=-1��
> q%!0=handle%:q%!28=bhandle%
H)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
Rq%!20=scx%:q%!24=scy%
\ș OpenW,,q%
f�
p
z� �getw(handle%)
�!q%=handle%:ș GetW,,q%
�+�info(q%+4):bhandle%=q%!28:flags%=q%!32
��
�
�� �info(q%)
�=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
� bx%=x0%-scx%:by%=y1%-scy%
��
�
�*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
�9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
�&ș UpdateW,,q% � more%:�info(q%+4)
��
� �redraw_window(handle%)
�handle%=pel% �
$!q%=handle%
.ș RedrawW,,q% � more%
8�info(q%+4)
B�pel
L�
V�
`
j � �close_window(handle%)
t !q%=handle%:ș CloseW,,q%
~�
�
� � �vars
� Wimp = (1<<18) + (3<<6)
�CreateW = Wimp+1
�OpenW = Wimp+5
�CloseW = Wimp+6
�Poll% = Wimp+7
�RedrawW = Wimp+8
�UpdateW = Wimp+9
�GetR% = Wimp+10
�GetW = Wimp+11
�GetP = Wimp+15
Drag = Wimp+16
CrMenu = Wimp+20
DcMenu = Wimp+21
6ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop%
(8ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
2;ș "OS_SWINumberFromString",,"Wimp_ForceRedraw" � fred%
<8ș "OS_SWINumberFromString",,"Wimp_PollIdle" � Poll%
F�
P
Z� �getpointer
dș GetP,,q%
nHmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
x�
�
�� �errorbox
�ș Drag,,-1
�0!buffer%=�:$(buffer%+4)=�$+" at line "+Þ+�0
�/ș "Wimp_ReportError",buffer%,1,"Pelmanism"
�
�finish:�
��
�
�� �buffer(L%)
�9�curbuf%+L%>buffer%+maxbuf%� �100,"Buffer space full"
�curbuf%+=L%
�=curbuf%-L%
�
� �iconbar
!q%=-1
#q%!4=0:q%!8=0:q%!12=63:q%!16=63
"q%!20=&2102
,spname$="-Pelmanism"
6)� q%!24 (�spname$+1):$(q%!24)=spname$
@q%!28=sprites%
Jq%!32=�spname$+1
T"ș "Wimp_CreateIcon",,q% � ic%
^=ic%
h
r� �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:�
�9�I%=0�3:�J%=0�12:f%(J%,I%)=�PACK$:PACK$=�PACK$,2):�:�
�play=�:cover=0:tries=0
��
�
�� �CARD(N%,X%,Y%)
� șCol%,9:ȓ Ȑ X%,Y%,60,80
�"șCol%,0:ȓ Ȑ X%+4,Y%+4,52,72
�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";
0�N%=13�"K";
:�
D
N� �BACK(X%,Y%)
X;ș spop%,&134,sprites%,"back",X%,Y%,,factors%,pixtrans%
b�
l
v� �NOCARD(X%,Y%)
�#șCol%,`wbcol:ȓ Ȑ X%,Y%,60,80
��
�
�!� �CHK �CARDT=-1 �=CARD �4=13
�'CT=(CARDT � CARD)�3:�CT=0 � CT=3 =�
�=CARDT �4=CARD �4+1
�
�� �getmodeinfo
�Dș"Wimp_ReadPixTrans",&100,sprites%,"club",,,,factors%,pixtrans%
��
�
�� �DOCARD(C%,X%,Y%)
�9ypos%=-96*(Y%+1):xpos%=8+X%*68:f%(X%,Y%)=f%(X%,Y%)�C%
/�update(pel%,xpos%,ypos%,xpos%+67,ypos%+95)
�pel
�
*� �Mat(A%,B%)
4�A%�4<>B%�4 �=�
>�((A%�3)�(B%�3))=3 �=�
H=�
� 00000000 0d 00 0a 11 f4 20 3e 20 50 65 6c 6d 61 6e 69 73 |..... > Pelmanis|
00000010 6d 0d 00 14 1e de 20 74 61 73 6b 69 64 25 34 3a |m..... taskid%4:|
00000020 24 74 61 73 6b 69 64 25 3d 22 54 41 53 4b 22 0d |$taskid%="TASK".|
00000030 00 1e 3c c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 |..<.. "Wimp_Init|
00000040 69 61 6c 69 73 65 22 2c 32 30 30 2c 21 74 61 73 |ialise",200,!tas|
00000050 6b 69 64 25 2c 22 50 65 6c 6d 61 6e 69 73 6d 22 |kid%,"Pelmanism"|
00000060 20 b8 20 76 65 72 73 69 6f 6e 25 0d 00 28 4d 60 | . version%..(M`|
00000070 77 62 63 6f 6c 3d 31 30 3a 60 74 62 63 6f 6c 3d |wbcol=10:`tbcol=|
00000080 31 32 3a 60 73 63 6f 3d 34 3a 60 6d 62 63 6f 6c |12:`sco=4:`mbcol|
00000090 3d 32 3a 60 77 66 63 6f 6c 3d 26 37 3a 60 74 66 |=2:`wfcol=&7:`tf|
000000a0 63 6f 6c 3d 37 3a 60 73 63 69 3d 26 44 3a 60 74 |col=7:`sci=&D:`t|
000000b0 62 63 6f 6c 32 3d 26 43 0d 00 32 09 f2 76 61 72 |bcol2=&C..2..var|
000000c0 73 0d 00 3c 0d de 20 71 25 20 26 33 30 30 0d 00 |s..<.. q% &300..|
000000d0 46 14 de 20 6d 65 6e 75 64 61 74 61 25 20 26 32 |F.. menudata% &2|
000000e0 30 30 0d 00 50 05 20 0d 00 5a 15 6d 61 78 62 75 |00..P. ..Z.maxbu|
000000f0 66 25 3d 26 34 30 30 3a 40 25 3d 35 0d 00 64 30 |f%=&400:@%=5..d0|
00000100 de 20 62 75 66 66 65 72 25 20 6d 61 78 62 75 66 |. buffer% maxbuf|
00000110 25 2c 65 6e 64 62 75 66 25 20 2d 31 3a 63 75 72 |%,endbuf% -1:cur|
00000120 62 75 66 25 3d 62 75 66 66 65 72 25 0d 00 6e 0e |buf%=buffer%..n.|
00000130 de 20 62 6c 6f 63 6b 20 31 32 0d 00 78 05 20 0d |. block 12..x. .|
00000140 00 82 11 70 65 6c 25 3d a4 63 77 69 6e 64 6f 77 |...pel%=.cwindow|
00000150 0d 00 8c 46 dc 20 50 65 6c 6d 61 6e 69 73 6d 2c |...F. Pelmanism,|
00000160 26 30 46 2c 60 77 66 63 6f 6c 2c 60 77 62 63 6f |&0F,`wfcol,`wbco|
00000170 6c 2c 30 2c 2d 35 31 32 2c 31 30 30 30 2c 30 2c |l,0,-512,1000,0,|
00000180 20 20 20 20 20 30 2c 2d 34 30 30 2c 31 30 30 30 | 0,-400,1000|
00000190 2c 30 20 20 2c 30 0d 00 96 05 20 0d 00 a0 2d de |,0 ,0.... ...-.|
000001a0 20 53 50 41 43 45 25 20 35 32 2c 73 75 69 74 24 | SPACE% 52,suit$|
000001b0 28 33 29 2c 66 25 28 31 32 2c 33 29 2c 78 25 28 |(3),f%(12,3),x%(|
000001c0 31 29 2c 79 25 28 31 29 0d 00 aa 20 4e 25 3d b3 |1),y%(1)... N%=.|
000001d0 28 91 20 84 20 26 38 30 30 30 30 30 30 30 29 3a |(. . &80000000):|
000001e0 f2 53 48 55 46 46 4c 45 0d 00 b4 2c 73 75 69 74 |.SHUFFLE...,suit|
000001f0 24 28 29 3d 22 63 6c 75 62 22 2c 22 64 69 61 6d |$()="club","diam|
00000200 6f 6e 64 22 2c 22 68 65 61 72 74 22 2c 22 73 70 |ond","heart","sp|
00000210 61 64 65 22 0d 00 be 05 20 0d 00 c8 2c de 20 73 |ade".... ...,. s|
00000220 70 72 69 74 65 73 25 20 31 34 30 30 2c 66 61 63 |prites% 1400,fac|
00000230 74 6f 72 73 25 20 31 35 2c 70 69 78 74 72 61 6e |tors% 15,pixtran|
00000240 73 25 20 31 35 0d 00 d2 1f 21 73 70 72 69 74 65 |s% 15....!sprite|
00000250 73 25 3d 31 34 30 30 3a 73 70 72 69 74 65 73 25 |s%=1400:sprites%|
00000260 21 38 3d 31 0d 00 dc 1a c8 99 20 73 70 6f 70 25 |!8=1...... spop%|
00000270 2c 26 31 30 39 2c 73 70 72 69 74 65 73 25 0d 00 |,&109,sprites%..|
00000280 e6 34 c8 99 20 73 70 6f 70 25 2c 26 31 30 41 2c |.4.. spop%,&10A,|
00000290 73 70 72 69 74 65 73 25 2c 22 3c 50 65 6c 6d 61 |sprites%,"<Pelma|
000002a0 6e 69 73 6d 24 44 69 72 3e 2e 53 70 72 69 74 65 |nism$Dir>.Sprite|
000002b0 73 22 0d 00 f0 13 69 63 70 65 6c 25 3d a4 69 63 |s"....icpel%=.ic|
000002c0 6f 6e 62 61 72 0d 00 fa 10 f2 67 65 74 6d 6f 64 |onbar.....getmod|
000002d0 65 69 6e 66 6f 0d 01 04 05 20 0d 01 0e 11 ee 20 |einfo.... ..... |
000002e0 85 20 f2 65 72 72 6f 72 62 6f 78 0d 01 18 40 c8 |. .errorbox...@.|
000002f0 99 20 44 72 61 67 2c 2c 2d 31 3a f2 67 65 74 70 |. Drag,,-1:.getp|
00000300 6f 69 6e 74 65 72 3a 78 6f 25 3d 6d 6f 75 73 65 |ointer:xo%=mouse|
00000310 78 25 3a 79 6f 25 3d 6d 6f 75 73 65 79 25 3a 6f |x%:yo%=mousey%:o|
00000320 70 65 6e 25 3d a3 3a 40 25 3d 33 0d 01 22 05 f5 |pen%=.:@%=3.."..|
00000330 0d 01 2c 18 20 20 c8 99 20 50 6f 6c 6c 25 2c 31 |..,. .. Poll%,1|
00000340 2c 71 25 20 b8 20 41 25 0d 01 36 0d 20 20 c8 8e |,q% . A%..6. ..|
00000350 20 41 25 20 ca 0d 01 40 1e 20 20 c9 20 31 20 3a | A% ...@. . 1 :|
00000360 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 21 |.redraw_window(!|
00000370 71 25 29 0d 01 4a 44 20 20 c9 20 32 20 3a f2 6f |q%)..JD . 2 :.o|
00000380 70 65 6e 5f 77 69 6e 64 6f 77 28 21 71 25 2c 71 |pen_window(!q%,q|
00000390 25 21 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 |%!4,q%!8,q%!12,q|
000003a0 25 21 31 36 2c 71 25 21 32 30 2c 71 25 21 32 34 |%!16,q%!20,q%!24|
000003b0 2c 71 25 21 32 38 29 0d 01 54 1d 20 20 c9 20 33 |,q%!28)..T. . 3|
000003c0 20 3a f2 63 6c 6f 73 65 61 77 69 6e 64 6f 77 28 | :.closeawindow(|
000003d0 21 71 25 29 0d 01 5e 37 20 20 c9 20 36 20 3a f2 |!q%)..^7 . 6 :.|
000003e0 63 68 65 63 6b 6d 6f 75 73 65 28 21 71 25 2c 71 |checkmouse(!q%,q|
000003f0 25 21 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 |%!4,q%!8,q%!12,q|
00000400 25 21 31 36 2c 71 25 21 32 30 29 0d 01 68 1a 20 |%!16,q%!20)..h. |
00000410 20 c9 20 39 20 3a f2 6d 65 6e 75 73 65 6c 65 63 | . 9 :.menuselec|
00000420 74 28 71 25 29 0d 01 72 60 20 20 c9 20 31 30 3a |t(q%)..r` . 10:|
00000430 e7 21 71 25 3d 70 65 6c 25 20 f2 6f 70 65 6e 5f |.!q%=pel% .open_|
00000440 77 69 6e 64 6f 77 28 21 71 25 2c 71 25 21 34 2c |window(!q%,q%!4,|
00000450 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 31 36 |q%!8,q%!12,q%!16|
00000460 2c 71 25 21 32 30 2b 33 32 2a 71 25 21 33 32 2c |,q%!20+32*q%!32,|
00000470 71 25 21 32 34 2b 36 34 2a 71 25 21 33 36 2c 71 |q%!24+64*q%!36,q|
00000480 25 21 32 38 29 0d 01 7c 1a 20 20 c9 20 31 37 2c |%!28)..|. . 17,|
00000490 31 38 3a f2 72 65 63 65 69 76 65 28 71 25 29 0d |18:.receive(q%).|
000004a0 01 86 07 20 20 cb 0d 01 90 07 fd 20 a3 0d 01 9a |... ...... ....|
000004b0 05 20 0d 01 a4 12 dd 20 f2 72 65 63 65 69 76 65 |. ..... .receive|
000004c0 28 71 25 29 0d 01 ae 0e c8 8e 20 71 25 21 31 36 |(q%)...... q%!16|
000004d0 20 ca 0d 01 b8 11 c9 20 30 3a f2 66 69 6e 69 73 | ...... 0:.finis|
000004e0 68 3a e0 0d 01 c2 19 c9 20 26 34 30 30 43 31 3a |h:...... &400C1:|
000004f0 f2 67 65 74 6d 6f 64 65 69 6e 66 6f 0d 01 cc 05 |.getmodeinfo....|
00000500 cb 0d 01 d6 05 e1 0d 01 e0 05 20 0d 01 ea 0e dd |.......... .....|
00000510 20 a4 63 77 69 6e 64 6f 77 0d 01 f4 3f f3 20 41 | .cwindow...?. A|
00000520 24 2c 66 25 2c 66 63 25 2c 62 63 25 2c 78 30 25 |$,f%,fc%,bc%,x0%|
00000530 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c 63 78 30 |,y0%,x1%,y1%,cx0|
00000540 25 2c 63 79 30 25 2c 63 78 31 25 2c 63 79 31 25 |%,cy0%,cx1%,cy1%|
00000550 2c 6e 69 63 6f 6e 73 25 0d 01 fe 56 3d a4 63 72 |,nicons%...V=.cr|
00000560 65 61 74 65 5f 77 69 6e 64 6f 77 28 63 78 30 25 |eate_window(cx0%|
00000570 2c 63 79 30 25 2c 63 78 31 25 2c 63 79 31 25 2c |,cy0%,cx1%,cy1%,|
00000580 30 2c 30 2c 66 25 2c 66 63 25 2c 62 63 25 2c 78 |0,0,f%,fc%,bc%,x|
00000590 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c 26 |0%,y0%,x1%,y1%,&|
000005a0 32 44 2c 41 24 2c 6e 69 63 6f 6e 73 25 29 0d 02 |2D,A$,nicons%)..|
000005b0 08 05 20 0d 02 12 37 dd 20 f2 63 68 65 63 6b 6d |.. ...7. .checkm|
000005c0 6f 75 73 65 28 6d 6f 75 73 65 78 25 2c 6d 6f 75 |ouse(mousex%,mou|
000005d0 73 65 79 25 2c 62 25 2c 68 61 6e 64 6c 65 25 2c |sey%,b%,handle%,|
000005e0 69 63 6f 6e 25 2c 6f 62 25 29 0d 02 1c 0b e7 62 |icon%,ob%).....b|
000005f0 25 80 32 20 8c 0d 02 26 12 20 20 c8 8e 20 68 61 |%.2 ...&. .. ha|
00000600 6e 64 6c 65 25 20 ca 0d 02 30 39 20 20 c9 20 70 |ndle% ...09 . p|
00000610 65 6c 25 3a f2 64 6f 6d 65 6e 75 28 70 65 6c 25 |el%:.domenu(pel%|
00000620 2c 22 44 65 61 6c 20 48 61 6e 64 2c 52 65 73 69 |,"Deal Hand,Resi|
00000630 67 6e 22 2c 22 50 65 6c 6d 61 6e 69 73 6d 22 29 |gn","Pelmanism")|
00000640 0d 02 3a 2c 20 20 c9 20 2d 32 3a 20 20 f2 64 6f |..:, . -2: .do|
00000650 6d 65 6e 75 28 31 30 31 2c 22 51 75 69 74 22 2c |menu(101,"Quit",|
00000660 22 50 65 6c 6d 61 6e 69 73 6d 22 29 0d 02 44 07 |"Pelmanism")..D.|
00000670 20 20 cb 0d 02 4e 05 cd 0d 02 58 0b e7 62 25 80 | ...N....X..b%.|
00000680 34 20 8c 0d 02 62 20 20 20 e7 68 61 6e 64 6c 65 |4 ...b .handle|
00000690 25 3e 2d 31 8c f2 67 65 74 77 28 68 61 6e 64 6c |%>-1..getw(handl|
000006a0 65 25 29 0d 02 6c 12 20 20 c8 8e 20 68 61 6e 64 |e%)..l. .. hand|
000006b0 6c 65 25 20 ca 0d 02 76 0c 20 20 c9 20 70 65 6c |le% ...v. . pel|
000006c0 25 0d 02 80 0b 20 20 e7 70 6c 61 79 0d 02 8a 4a |%.... .play...J|
000006d0 20 20 20 20 e7 63 6f 76 65 72 3d 32 20 f2 44 4f | .cover=2 .DO|
000006e0 43 41 52 44 28 31 32 38 2c 78 25 28 30 29 2c 79 |CARD(128,x%(0),y|
000006f0 25 28 30 29 29 3a f2 44 4f 43 41 52 44 28 31 32 |%(0)):.DOCARD(12|
00000700 38 2c 78 25 28 31 29 2c 79 25 28 31 29 29 3a 63 |8,x%(1),y%(1)):c|
00000710 6f 76 65 72 3d 30 0d 02 94 34 20 20 20 20 58 25 |over=0...4 X%|
00000720 3d 28 6d 6f 75 73 65 78 25 2d 28 62 78 25 2b 38 |=(mousex%-(bx%+8|
00000730 29 29 81 36 38 3a 59 25 3d 2d 28 6d 6f 75 73 65 |)).68:Y%=-(mouse|
00000740 79 25 2d 62 79 25 29 81 39 36 0d 02 9e 25 20 20 |y%-by%).96...% |
00000750 20 20 e7 58 25 3c 30 20 84 20 59 25 3c 30 20 84 | .X%<0 . Y%<0 .|
00000760 20 58 25 3e 31 32 20 84 20 59 25 3e 33 20 c9 0d | X%>12 . Y%>3 ..|
00000770 02 a8 1b 20 20 20 20 e7 66 25 28 58 25 2c 59 25 |... .f%(X%,Y%|
00000780 29 3c 31 32 38 20 ef 37 3a c9 0d 02 b2 3d 20 20 |)<128 .7:....= |
00000790 20 20 f2 44 4f 43 41 52 44 28 31 32 38 2c 58 25 | .DOCARD(128,X%|
000007a0 2c 59 25 29 3a 78 25 28 63 6f 76 65 72 29 3d 58 |,Y%):x%(cover)=X|
000007b0 25 3a 79 25 28 63 6f 76 65 72 29 3d 59 25 3a 63 |%:y%(cover)=Y%:c|
000007c0 6f 76 65 72 2b 3d 31 0d 02 bc 12 20 20 20 20 e7 |over+=1.... .|
000007d0 63 6f 76 65 72 3e 31 20 8c 0d 02 c6 41 20 20 20 |cover>1 ....A |
000007e0 20 20 20 74 72 69 65 73 2b 3d 31 3a e7 a4 4d 61 | tries+=1:..Ma|
000007f0 74 28 66 25 28 78 25 28 30 29 2c 79 25 28 30 29 |t(f%(x%(0),y%(0)|
00000800 29 2c 66 25 28 78 25 28 31 29 2c 79 25 28 31 29 |),f%(x%(1),y%(1)|
00000810 29 29 20 63 6f 76 65 72 3d 30 0d 02 d0 3e 20 20 |)) cover=0...> |
00000820 20 20 20 20 f2 75 70 64 61 74 65 28 70 65 6c 25 | .update(pel%|
00000830 2c 31 33 2a 36 38 2b 31 36 2c 2d 32 33 30 2c 31 |,13*68+16,-230,1|
00000840 33 2a 36 38 2b 31 36 2a 34 2c 2d 31 39 36 29 3a |3*68+16*4,-196):|
00000850 c8 99 43 6f 6c 25 2c 37 0d 02 da 12 20 20 20 20 |..Col%,7.... |
00000860 20 20 c8 95 20 6d 6f 72 65 25 0d 02 e4 2b 20 20 | .. more%...+ |
00000870 20 20 20 20 20 20 da 3a ec 62 78 25 2b 31 33 2a | .:.bx%+13*|
00000880 36 38 2b 31 36 2c 62 79 25 2d 32 30 30 3a f1 74 |68+16,by%-200:.t|
00000890 72 69 65 73 3b 0d 02 ee 20 20 20 20 20 20 20 20 |ries;... |
000008a0 20 c8 99 20 47 65 74 52 25 2c 2c 71 25 20 b8 20 | .. GetR%,,q% . |
000008b0 6d 6f 72 65 25 0d 02 f8 0b 20 20 20 20 20 20 ce |more%.... .|
000008c0 0d 03 02 09 20 20 20 20 cd 0d 03 0c 07 20 20 cd |.... ..... .|
000008d0 0d 03 16 36 20 20 c9 20 2d 32 3a e7 6f 70 65 6e |...6 . -2:.open|
000008e0 25 20 f2 66 72 6f 6e 74 28 70 65 6c 25 29 20 8b |% .front(pel%) .|
000008f0 20 f2 72 65 6f 70 65 6e 28 70 65 6c 25 29 3a 6f | .reopen(pel%):o|
00000900 70 65 6e 25 3d b9 0d 03 20 07 20 20 cb 0d 03 2a |pen%=... . ...*|
00000910 05 cd 0d 03 34 05 e1 0d 03 3e 05 20 0d 03 48 1c |....4....>. ..H.|
00000920 dd 20 f2 63 6c 6f 73 65 61 77 69 6e 64 6f 77 28 |. .closeawindow(|
00000930 68 61 6e 64 6c 65 25 29 0d 03 52 12 f2 67 65 74 |handle%)..R..get|
00000940 77 28 68 61 6e 64 6c 65 25 29 0d 03 5c 1b 78 6f |w(handle%)..\.xo|
00000950 25 3d 78 30 25 3a 79 6f 25 3d 79 30 25 3a 6f 70 |%=x0%:yo%=y0%:op|
00000960 65 6e 25 3d a3 0d 03 66 1a f2 63 6c 6f 73 65 5f |en%=...f..close_|
00000970 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 29 0d |window(handle%).|
00000980 03 70 05 e1 0d 03 7a 05 20 0d 03 84 0d dd 20 f2 |.p....z. ..... .|
00000990 66 69 6e 69 73 68 0d 03 8e 17 c8 99 20 22 57 69 |finish...... "Wi|
000009a0 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 03 98 |mp_CloseDown"...|
000009b0 05 e1 0d 03 a2 05 20 0d 03 ac 27 dd 20 f2 64 6f |...... ...'. .do|
000009c0 6d 65 6e 75 28 68 61 6e 64 6c 65 25 2c 6d 65 6e |menu(handle%,men|
000009d0 75 24 2c 6d 65 6e 75 74 69 74 6c 65 24 29 0d 03 |u$,menutitle$)..|
000009e0 b6 17 6d 65 6e 75 68 61 6e 64 6c 65 25 3d 68 61 |..menuhandle%=ha|
000009f0 6e 64 6c 65 25 0d 03 c0 14 6d 65 6e 75 70 74 72 |ndle%....menuptr|
00000a00 25 3d 62 75 66 66 65 72 25 0d 03 ca 08 69 25 3d |%=buffer%....i%=|
00000a10 30 0d 03 d4 12 6d 65 6e 75 70 74 72 25 21 32 30 |0....menuptr%!20|
00000a20 3d 34 30 0d 03 de 18 24 6d 65 6e 75 70 74 72 25 |=40....$menuptr%|
00000a30 3d 6d 65 6e 75 74 69 74 6c 65 24 0d 03 e8 4a 6d |=menutitle$...Jm|
00000a40 65 6e 75 70 74 72 25 3f 31 32 3d 60 74 66 63 6f |enuptr%?12=`tfco|
00000a50 6c 3a 6d 65 6e 75 70 74 72 25 3f 31 33 3d 32 3a |l:menuptr%?13=2:|
00000a60 6d 65 6e 75 70 74 72 25 3f 31 34 3d 60 77 66 63 |menuptr%?14=`wfc|
00000a70 6f 6c 3a 6d 65 6e 75 70 74 72 25 3f 31 35 3d 60 |ol:menuptr%?15=`|
00000a80 77 62 63 6f 6c 0d 03 f2 24 6d 65 6e 75 70 74 72 |wbcol...$menuptr|
00000a90 25 21 31 36 3d 31 38 30 2d 32 34 3a 6d 65 6e 75 |%!16=180-24:menu|
00000aa0 70 74 72 25 21 32 34 3d 30 0d 03 fc 10 6d 65 6e |ptr%!24=0....men|
00000ab0 75 70 74 72 25 2b 3d 32 38 0d 04 06 31 f5 20 69 |uptr%+=28...1. i|
00000ac0 74 65 6d 24 3d a4 70 61 72 28 22 2c 22 29 3a f2 |tem$=.par(","):.|
00000ad0 6d 65 6e 75 69 74 65 6d 28 69 74 65 6d 24 29 3a |menuitem(item$):|
00000ae0 fd 20 69 74 65 6d 24 3d 22 22 0d 04 10 23 6d 65 |. item$=""...#me|
00000af0 6e 75 70 74 72 25 21 2d 32 34 3d 28 6d 65 6e 75 |nuptr%!-24=(menu|
00000b00 70 74 72 25 21 2d 32 34 29 84 26 38 30 0d 04 1a |ptr%!-24).&80...|
00000b10 5f e7 68 61 6e 64 6c 65 25 3d 31 30 31 20 c8 99 |_.handle%=101 ..|
00000b20 20 43 72 4d 65 6e 75 2c 2c 62 75 66 66 65 72 25 | CrMenu,,buffer%|
00000b30 2c 6d 6f 75 73 65 78 25 2d 33 32 2c 39 36 2b 34 |,mousex%-32,96+4|
00000b40 30 20 8b 20 c8 99 20 43 72 4d 65 6e 75 2c 2c 62 |0 . .. CrMenu,,b|
00000b50 75 66 66 65 72 25 2c 6d 6f 75 73 65 78 25 2d 33 |uffer%,mousex%-3|
00000b60 32 2c 6d 6f 75 73 65 79 25 2b 31 36 0d 04 24 05 |2,mousey%+16..$.|
00000b70 e1 0d 04 2e 05 20 0d 04 38 16 dd 20 f2 6d 65 6e |..... ..8.. .men|
00000b80 75 69 74 65 6d 28 74 65 78 74 24 29 0d 04 42 10 |uitem(text$)..B.|
00000b90 e7 20 74 65 78 74 24 3d 22 22 20 e1 0d 04 4c 10 |. text$="" ...L.|
00000ba0 6d 65 6e 75 70 74 72 25 21 30 3d 30 0d 04 56 11 |menuptr%!0=0..V.|
00000bb0 6d 65 6e 75 70 74 72 25 21 34 3d 2d 31 0d 04 60 |menuptr%!4=-1..`|
00000bc0 18 6d 65 6e 75 70 74 72 25 21 38 3d 26 30 37 30 |.menuptr%!8=&070|
00000bd0 30 30 30 32 31 0d 04 6a 18 24 28 6d 65 6e 75 70 |00021..j.$(menup|
00000be0 74 72 25 2b 31 32 29 3d 74 65 78 74 24 0d 04 74 |tr%+12)=text$..t|
00000bf0 10 6d 65 6e 75 70 74 72 25 2b 3d 32 34 0d 04 7e |.menuptr%+=24..~|
00000c00 05 e1 0d 04 88 05 20 0d 04 92 10 dd 20 a4 70 61 |...... ..... .pa|
00000c10 72 28 73 65 70 24 29 0d 04 9c 25 69 31 25 3d 69 |r(sep$)...%i1%=i|
00000c20 25 2b 31 3a 69 25 3d a7 6d 65 6e 75 24 2b 73 65 |%+1:i%=.menu$+se|
00000c30 70 24 2c 73 65 70 24 2c 69 31 25 29 0d 04 a6 17 |p$,sep$,i1%)....|
00000c40 3d c1 6d 65 6e 75 24 2c 69 31 25 2c 69 25 2d 69 |=.menu$,i1%,i%-i|
00000c50 31 25 29 0d 04 b0 05 20 0d 04 ba 19 dd 20 f2 6d |1%).... ..... .m|
00000c60 65 6e 75 73 65 6c 65 63 74 28 6d 65 6e 75 73 25 |enuselect(menus%|
00000c70 29 0d 04 c4 2d c8 99 20 44 63 4d 65 6e 75 2c 2c |)...-.. DcMenu,,|
00000c80 62 75 66 66 65 72 25 2c 6d 65 6e 75 73 25 2c c4 |buffer%,menus%,.|
00000c90 32 30 30 2c 22 20 22 29 b8 2c 2c 2c 61 24 0d 04 |200," ").,,,a$..|
00000ca0 ce 0f e7 20 61 24 3d 22 22 20 8c 20 e1 0d 04 d8 |... a$="" . ....|
00000cb0 14 c8 8e 20 6d 65 6e 75 68 61 6e 64 6c 65 25 20 |... menuhandle% |
00000cc0 ca 0d 04 e2 0a c9 20 70 65 6c 25 0d 04 ec 15 20 |...... pel%.... |
00000cd0 20 e7 20 61 24 3d 22 52 65 73 69 67 6e 22 20 8c | . a$="Resign" .|
00000ce0 0d 04 f6 18 20 20 20 20 e3 49 25 3d 30 b8 31 32 |.... .I%=0.12|
00000cf0 3a e3 4a 25 3d 30 b8 33 0d 05 00 21 20 20 20 20 |:.J%=0.3...! |
00000d00 20 20 66 25 28 49 25 2c 4a 25 29 3d 66 25 28 49 | f%(I%,J%)=f%(I|
00000d10 25 2c 4a 25 29 80 31 32 37 0d 05 0a 0b 20 20 20 |%,J%).127.... |
00000d20 20 ed 3a ed 0d 05 14 23 20 20 20 20 f2 72 65 64 | .:....# .red|
00000d30 72 61 77 5f 77 69 6e 64 6f 77 28 70 65 6c 25 29 |raw_window(pel%)|
00000d40 3a 70 6c 61 79 3d a3 0d 05 1e 07 20 20 cd 0d 05 |:play=..... ...|
00000d50 28 18 20 20 e7 20 61 24 3d 22 44 65 61 6c 20 48 |(. . a$="Deal H|
00000d60 61 6e 64 22 20 8c 0d 05 32 25 20 20 20 20 f2 53 |and" ...2% .S|
00000d70 48 55 46 46 4c 45 3a f2 72 65 64 72 61 77 5f 77 |HUFFLE:.redraw_w|
00000d80 69 6e 64 6f 77 28 70 65 6c 25 29 0d 05 3c 07 20 |indow(pel%)..<. |
00000d90 20 cd 0d 05 46 09 c9 20 31 30 31 0d 05 50 1b 20 | ...F.. 101..P. |
00000da0 20 e7 20 61 24 3d 22 51 75 69 74 22 3a f2 66 69 | . a$="Quit":.fi|
00000db0 6e 69 73 68 3a e0 0d 05 5a 05 cb 0d 05 64 05 e1 |nish:...Z....d..|
00000dc0 0d 05 6e 05 20 0d 05 78 0a dd 20 f2 70 65 6c 0d |..n. ..x.. .pel.|
00000dd0 05 82 0a ea 58 25 2c 59 25 0d 05 8c 0c c8 95 20 |....X%,Y%...... |
00000de0 6d 6f 72 65 25 0d 05 96 2e 20 20 6f 78 30 25 3d |more%.... ox0%=|
00000df0 28 71 25 21 32 38 2d 28 62 78 25 2b 38 29 29 81 |(q%!28-(bx%+8)).|
00000e00 36 38 3a e7 6f 78 30 25 3e 31 32 20 6f 78 30 25 |68:.ox0%>12 ox0%|
00000e10 3d 31 32 0d 05 a0 2e 20 20 6f 78 31 25 3d 28 71 |=12.... ox1%=(q|
00000e20 25 21 33 36 2d 28 62 78 25 2b 38 29 29 81 36 38 |%!36-(bx%+8)).68|
00000e30 3a e7 6f 78 31 25 3e 31 32 20 6f 78 31 25 3d 31 |:.ox1%>12 ox1%=1|
00000e40 32 0d 05 aa 29 20 20 6f 79 30 25 3d 2d 28 71 25 |2...) oy0%=-(q%|
00000e50 21 34 30 2d 62 79 25 29 81 39 36 3a e7 6f 79 30 |!40-by%).96:.oy0|
00000e60 25 3e 33 20 6f 79 30 25 3d 33 0d 05 b4 29 20 20 |%>3 oy0%=3...) |
00000e70 6f 79 31 25 3d 2d 28 71 25 21 33 32 2d 62 79 25 |oy1%=-(q%!32-by%|
00000e80 29 81 39 36 3a e7 6f 79 31 25 3e 33 20 6f 79 31 |).96:.oy1%>3 oy1|
00000e90 25 3d 33 0d 05 be 27 20 20 e3 59 25 3d 6f 79 30 |%=3...' .Y%=oy0|
00000ea0 25 b8 6f 79 31 25 3a 79 70 6f 73 25 3d 62 79 25 |%.oy1%:ypos%=by%|
00000eb0 2d 39 36 2a 28 59 25 2b 31 29 0d 05 c8 34 20 20 |-96*(Y%+1)...4 |
00000ec0 20 20 e3 58 25 3d 6f 78 30 25 b8 6f 78 31 25 3a | .X%=ox0%.ox1%:|
00000ed0 43 25 3d 66 25 28 58 25 2c 59 25 29 3a 78 70 6f |C%=f%(X%,Y%):xpo|
00000ee0 73 25 3d 62 78 25 2b 38 2b 58 25 2a 36 38 0d 05 |s%=bx%+8+X%*68..|
00000ef0 d2 13 20 20 20 20 20 20 e7 43 25 3e 31 32 37 20 |.. .C%>127 |
00000f00 8c 0d 05 dc 3d 20 20 20 20 20 20 20 20 e7 43 25 |....= .C%|
00000f10 3d 32 35 35 20 f2 4e 4f 43 41 52 44 28 78 70 6f |=255 .NOCARD(xpo|
00000f20 73 25 2c 79 70 6f 73 25 29 20 8b 20 f2 42 41 43 |s%,ypos%) . .BAC|
00000f30 4b 28 78 70 6f 73 25 2c 79 70 6f 73 25 29 0d 05 |K(xpos%,ypos%)..|
00000f40 e6 0b 20 20 20 20 20 20 cc 0d 05 f0 21 20 20 20 |.. ....! |
00000f50 20 20 20 20 20 f2 43 41 52 44 28 43 25 2c 78 70 | .CARD(C%,xp|
00000f60 6f 73 25 2c 79 70 6f 73 25 29 0d 05 fa 0b 20 20 |os%,ypos%).... |
00000f70 20 20 20 20 cd 0d 06 04 09 20 20 20 20 ed 0d 06 | ..... ...|
00000f80 0e 07 20 20 ed 0d 06 18 2e 20 20 c8 99 43 6f 6c |.. ..... ..Col|
00000f90 25 2c 37 3a ec 62 78 25 2b 31 33 2a 36 38 2b 31 |%,7:.bx%+13*68+1|
00000fa0 36 2c 62 79 25 2d 31 36 30 3a f1 22 54 72 69 65 |6,by%-160:."Trie|
00000fb0 73 22 3b 0d 06 22 23 20 20 ec 62 78 25 2b 31 33 |s";.."# .bx%+13|
00000fc0 2a 36 38 2b 31 36 2c 62 79 25 2d 32 30 30 3a f1 |*68+16,by%-200:.|
00000fd0 74 72 69 65 73 3b 0d 06 2c 1a 20 20 c8 99 20 47 |tries;..,. .. G|
00000fe0 65 74 52 25 2c 2c 71 25 20 b8 20 6d 6f 72 65 25 |etR%,,q% . more%|
00000ff0 0d 06 36 05 ce 0d 06 40 05 e1 0d 06 4a 05 20 0d |..6....@....J. .|
00001000 06 54 6d dd 20 a4 63 72 65 61 74 65 5f 77 69 6e |.Tm. .create_win|
00001010 64 6f 77 28 63 78 30 25 2c 63 79 30 25 2c 63 78 |dow(cx0%,cy0%,cx|
00001020 31 25 2c 63 79 31 25 2c 73 63 78 25 2c 73 63 79 |1%,cy1%,scx%,scy|
00001030 25 2c 66 6c 61 67 73 25 2c 66 63 25 2c 62 63 25 |%,flags%,fc%,bc%|
00001040 2c 73 78 30 25 2c 73 79 30 25 2c 73 78 31 25 2c |,sx0%,sy0%,sx1%,|
00001050 73 79 31 25 2c 74 69 74 6c 65 66 25 2c 74 69 74 |sy1%,titlef%,tit|
00001060 6c 65 24 2c 6e 69 63 6f 6e 73 25 29 0d 06 5e 41 |le$,nicons%)..^A|
00001070 21 71 25 3d 63 78 30 25 3a 71 25 21 34 3d 63 79 |!q%=cx0%:q%!4=cy|
00001080 30 25 3a 71 25 21 38 3d 63 78 31 25 3a 71 25 21 |0%:q%!8=cx1%:q%!|
00001090 31 32 3d 63 79 31 25 3a 71 25 21 31 36 3d 73 63 |12=cy1%:q%!16=sc|
000010a0 78 25 3a 71 25 21 32 30 3d 73 63 79 25 0d 06 68 |x%:q%!20=scy%..h|
000010b0 19 71 25 21 32 34 3d 2d 31 3a 71 25 21 32 38 3d |.q%!24=-1:q%!28=|
000010c0 66 6c 61 67 73 25 0d 06 72 13 e7 66 63 25 3d 31 |flags%..r..fc%=1|
000010d0 35 80 62 63 25 3d 31 35 8c 0d 06 7c 2b 20 20 71 |5.bc%=15...|+ q|
000010e0 25 3f 33 32 3d 31 35 3a 71 25 3f 33 33 3d 31 35 |%?32=15:q%?33=15|
000010f0 3a 71 25 3f 33 34 3d 66 63 25 3a 71 25 3f 33 35 |:q%?34=fc%:q%?35|
00001100 3d 62 63 25 0d 06 86 33 cc 20 71 25 3f 33 32 3d |=bc%...3. q%?32=|
00001110 60 74 66 63 6f 6c 3a 71 25 3f 33 33 3d 60 74 62 |`tfcol:q%?33=`tb|
00001120 63 6f 6c 3a 71 25 3f 33 34 3d 66 63 25 3a 71 25 |col:q%?34=fc%:q%|
00001130 3f 33 35 3d 62 63 25 0d 06 90 05 cd 0d 06 9a 31 |?35=bc%........1|
00001140 71 25 3f 33 36 3d 60 73 63 6f 3a 71 25 3f 33 37 |q%?36=`sco:q%?37|
00001150 3d 60 74 62 63 6f 6c 3a 71 25 3f 33 38 3d 60 74 |=`tbcol:q%?38=`t|
00001160 62 63 6f 6c 32 3a 71 25 3f 33 39 3d 30 0d 06 a4 |bcol2:q%?39=0...|
00001170 2f 71 25 21 34 30 3d 73 78 30 25 3a 71 25 21 34 |/q%!40=sx0%:q%!4|
00001180 34 3d 73 79 30 25 3a 71 25 21 34 38 3d 73 78 31 |4=sy0%:q%!48=sx1|
00001190 25 3a 71 25 21 35 32 3d 73 79 31 25 0d 06 ae 11 |%:q%!52=sy1%....|
000011a0 71 25 21 35 36 3d 74 69 74 6c 65 66 25 0d 06 b8 |q%!56=titlef%...|
000011b0 28 71 25 21 36 30 3d 26 33 30 30 30 20 20 20 20 |(q%!60=&3000 |
000011c0 20 20 3a 20 f4 20 77 6f 72 6b 20 61 72 65 61 20 | : . work area |
000011d0 66 6c 61 67 73 0d 06 c2 21 71 25 21 36 34 3d 30 |flags...!q%!64=0|
000011e0 3a 71 25 21 36 38 3d 30 20 20 3a 20 f4 20 72 65 |:q%!68=0 : . re|
000011f0 73 65 72 76 65 64 0d 06 cc 18 24 28 71 25 2b 37 |served....$(q%+7|
00001200 32 29 3d c0 74 69 74 6c 65 24 2c 31 31 29 0d 06 |2)=.title$,11)..|
00001210 d6 11 71 25 21 38 34 3d 6e 69 63 6f 6e 73 25 0d |..q%!84=nicons%.|
00001220 06 e0 29 ea 49 25 2c 78 30 25 2c 79 30 25 2c 78 |..).I%,x0%,y0%,x|
00001230 31 25 2c 79 31 25 2c 66 25 2c 64 61 74 61 24 3a |1%,y1%,f%,data$:|
00001240 49 25 3d 71 25 2b 38 38 0d 06 ea 10 c8 95 20 6e |I%=q%+88...... n|
00001250 69 63 6f 6e 73 25 3e 30 0d 06 f4 28 20 20 f3 20 |icons%>0...( . |
00001260 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00001270 66 25 2c 66 63 25 2c 62 63 25 2c 64 61 74 61 24 |f%,fc%,bc%,data$|
00001280 0d 06 fe 2a 20 20 49 25 21 30 3d 78 30 25 3a 49 |...* I%!0=x0%:I|
00001290 25 21 34 3d 79 30 25 3a 49 25 21 38 3d 78 31 25 |%!4=y0%:I%!8=x1%|
000012a0 3a 49 25 21 31 32 3d 79 31 25 0d 07 08 25 20 20 |:I%!12=y1%...% |
000012b0 e7 20 28 66 25 80 26 34 30 29 3d 30 20 8c 20 62 |. (f%.&40)=0 . b|
000012c0 63 25 3d 66 63 25 2b 28 62 63 25 3c 3c 34 29 0d |c%=fc%+(bc%<<4).|
000012d0 07 12 18 20 20 49 25 21 31 36 3d 66 25 2b 28 62 |... I%!16=f%+(b|
000012e0 63 25 3c 3c 32 34 29 0d 07 1c 11 20 20 e7 28 66 |c%<<24).... .(f|
000012f0 25 80 26 31 30 30 29 8c 0d 07 26 40 20 20 20 20 |%.&100)...&@ |
00001300 f3 20 4c 25 3a 42 25 3d a4 62 75 66 66 65 72 28 |. L%:B%=.buffer(|
00001310 4c 25 29 3a 49 25 21 32 30 3d 42 25 3a 24 42 25 |L%):I%!20=B%:$B%|
00001320 3d 64 61 74 61 24 3a 49 25 21 32 34 3d 2d 31 3a |=data$:I%!24=-1:|
00001330 49 25 21 32 38 3d 4c 25 0d 07 30 07 20 20 cc 0d |I%!28=L%..0. ..|
00001340 07 3a 16 20 20 20 20 24 28 49 25 2b 32 30 29 3d |.:. $(I%+20)=|
00001350 64 61 74 61 24 0d 07 44 07 20 20 cd 0d 07 4e 20 |data$..D. ...N |
00001360 20 20 49 25 3d 49 25 2b 33 32 3a 6e 69 63 6f 6e | I%=I%+32:nicon|
00001370 73 25 3d 6e 69 63 6f 6e 73 25 2d 31 0d 07 58 05 |s%=nicons%-1..X.|
00001380 ce 0d 07 62 1d 20 c8 99 20 43 72 65 61 74 65 57 |...b. .. CreateW|
00001390 2c 2c 71 25 20 b8 20 68 61 6e 64 6c 65 25 0d 07 |,,q% . handle%..|
000013a0 6c 0c 3d 68 61 6e 64 6c 65 25 0d 07 76 05 20 0d |l.=handle%..v. .|
000013b0 07 80 15 dd 20 f2 66 72 6f 6e 74 28 68 61 6e 64 |.... .front(hand|
000013c0 6c 65 25 29 0d 07 8a 11 e7 68 61 6e 64 6c 65 25 |le%).....handle%|
000013d0 3d 2d 31 8c e1 0d 07 94 12 f2 67 65 74 77 28 68 |=-1.......getw(h|
000013e0 61 6e 64 6c 65 25 29 0d 07 9e 36 f2 6f 70 65 6e |andle%)...6.open|
000013f0 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 2c |_window(handle%,|
00001400 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 2c |x0%,y0%,x1%,y1%,|
00001410 73 63 78 25 2c 73 63 79 25 2c 2d 31 29 0d 07 a8 |scx%,scy%,-1)...|
00001420 05 e1 0d 07 b2 05 20 0d 07 bc 15 dd 20 f2 70 6f |...... ..... .po|
00001430 70 75 70 28 68 61 6e 64 6c 65 25 29 0d 07 c6 12 |pup(handle%)....|
00001440 f2 67 65 74 77 28 68 61 6e 64 6c 65 25 29 0d 07 |.getw(handle%)..|
00001450 d0 30 78 6f 25 3d 6d 6f 75 73 65 78 25 2d 28 78 |.0xo%=mousex%-(x|
00001460 30 25 2b 78 31 25 29 2f 32 3a 79 6f 25 3d 6d 6f |0%+x1%)/2:yo%=mo|
00001470 75 73 65 79 25 2d 28 79 31 25 2b 36 34 29 0d 07 |usey%-(y1%+64)..|
00001480 da 46 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 68 |.F.open_window(h|
00001490 61 6e 64 6c 65 25 2c 78 30 25 2b 78 6f 25 2c 79 |andle%,x0%+xo%,y|
000014a0 30 25 2b 79 6f 25 2c 78 31 25 2b 78 6f 25 2c 79 |0%+yo%,x1%+xo%,y|
000014b0 31 25 2b 79 6f 25 2c 73 63 78 25 2c 73 63 79 25 |1%+yo%,scx%,scy%|
000014c0 2c 2d 31 29 0d 07 e4 05 e1 0d 07 ee 05 20 0d 07 |,-1)......... ..|
000014d0 f8 16 dd 20 f2 72 65 6f 70 65 6e 28 68 61 6e 64 |... .reopen(hand|
000014e0 6c 65 25 29 0d 08 02 12 f2 67 65 74 77 28 68 61 |le%).....getw(ha|
000014f0 6e 64 6c 65 25 29 0d 08 0c 46 f2 6f 70 65 6e 5f |ndle%)...F.open_|
00001500 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 2c 78 |window(handle%,x|
00001510 6f 25 2c 79 6f 25 2c 78 31 25 2d 78 30 25 2b 78 |o%,yo%,x1%-x0%+x|
00001520 6f 25 2c 79 31 25 2d 79 30 25 2b 79 6f 25 2c 73 |o%,y1%-y0%+yo%,s|
00001530 63 78 25 2c 73 63 79 25 2c 2d 31 29 0d 08 16 05 |cx%,scy%,-1)....|
00001540 e1 0d 08 20 05 20 0d 08 2a 3e dd 20 f2 6f 70 65 |... . ..*>. .ope|
00001550 6e 5f 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 |n_window(handle%|
00001560 2c 78 30 25 2c 79 30 25 2c 78 31 25 2c 79 31 25 |,x0%,y0%,x1%,y1%|
00001570 2c 73 63 78 25 2c 73 63 79 25 2c 62 68 61 6e 64 |,scx%,scy%,bhand|
00001580 6c 65 25 29 0d 08 34 11 e7 68 61 6e 64 6c 65 25 |le%)..4..handle%|
00001590 3d 2d 31 8c e1 0d 08 3e 1f 71 25 21 30 3d 68 61 |=-1....>.q%!0=ha|
000015a0 6e 64 6c 65 25 3a 71 25 21 32 38 3d 62 68 61 6e |ndle%:q%!28=bhan|
000015b0 64 6c 65 25 0d 08 48 29 71 25 21 34 3d 78 30 25 |dle%..H)q%!4=x0%|
000015c0 3a 71 25 21 38 3d 79 30 25 3a 71 25 21 31 32 3d |:q%!8=y0%:q%!12=|
000015d0 78 31 25 3a 71 25 21 31 36 3d 79 31 25 0d 08 52 |x1%:q%!16=y1%..R|
000015e0 19 71 25 21 32 30 3d 73 63 78 25 3a 71 25 21 32 |.q%!20=scx%:q%!2|
000015f0 34 3d 73 63 79 25 0d 08 5c 10 c8 99 20 4f 70 65 |4=scy%..\... Ope|
00001600 6e 57 2c 2c 71 25 0d 08 66 05 e1 0d 08 70 05 20 |nW,,q%..f....p. |
00001610 0d 08 7a 14 dd 20 f2 67 65 74 77 28 68 61 6e 64 |..z.. .getw(hand|
00001620 6c 65 25 29 0d 08 84 1b 21 71 25 3d 68 61 6e 64 |le%)....!q%=hand|
00001630 6c 65 25 3a c8 99 20 47 65 74 57 2c 2c 71 25 0d |le%:.. GetW,,q%.|
00001640 08 8e 2b f2 69 6e 66 6f 28 71 25 2b 34 29 3a 62 |..+.info(q%+4):b|
00001650 68 61 6e 64 6c 65 25 3d 71 25 21 32 38 3a 66 6c |handle%=q%!28:fl|
00001660 61 67 73 25 3d 71 25 21 33 32 0d 08 98 05 e1 0d |ags%=q%!32......|
00001670 08 a2 05 20 0d 08 ac 0f dd 20 f2 69 6e 66 6f 28 |... ..... .info(|
00001680 71 25 29 0d 08 b6 3d 78 30 25 3d 21 71 25 3a 79 |q%)...=x0%=!q%:y|
00001690 30 25 3d 71 25 21 34 3a 78 31 25 3d 71 25 21 38 |0%=q%!4:x1%=q%!8|
000016a0 3a 79 31 25 3d 71 25 21 31 32 3a 73 63 78 25 3d |:y1%=q%!12:scx%=|
000016b0 71 25 21 31 36 3a 73 63 79 25 3d 71 25 21 32 30 |q%!16:scy%=q%!20|
000016c0 0d 08 c0 1d 62 78 25 3d 78 30 25 2d 73 63 78 25 |....bx%=x0%-scx%|
000016d0 3a 62 79 25 3d 79 31 25 2d 73 63 79 25 0d 08 ca |:by%=y1%-scy%...|
000016e0 05 e1 0d 08 d4 05 20 0d 08 de 2a dd 20 f2 75 70 |...... ...*. .up|
000016f0 64 61 74 65 28 68 61 6e 64 6c 65 25 2c 75 78 30 |date(handle%,ux0|
00001700 25 2c 75 79 30 25 2c 75 78 31 25 2c 75 79 31 25 |%,uy0%,ux1%,uy1%|
00001710 29 0d 08 e8 39 21 71 25 3d 68 61 6e 64 6c 65 25 |)...9!q%=handle%|
00001720 3a 71 25 21 34 3d 75 78 30 25 3a 71 25 21 38 3d |:q%!4=ux0%:q%!8=|
00001730 75 79 30 25 3a 71 25 21 31 32 3d 75 78 31 25 3a |uy0%:q%!12=ux1%:|
00001740 71 25 21 31 36 3d 75 79 31 25 0d 08 f2 26 c8 99 |q%!16=uy1%...&..|
00001750 20 55 70 64 61 74 65 57 2c 2c 71 25 20 b8 20 6d | UpdateW,,q% . m|
00001760 6f 72 65 25 3a f2 69 6e 66 6f 28 71 25 2b 34 29 |ore%:.info(q%+4)|
00001770 0d 08 fc 05 e1 0d 09 06 05 20 0d 09 10 1d dd 20 |......... ..... |
00001780 f2 72 65 64 72 61 77 5f 77 69 6e 64 6f 77 28 68 |.redraw_window(h|
00001790 61 6e 64 6c 65 25 29 0d 09 1a 13 e7 68 61 6e 64 |andle%).....hand|
000017a0 6c 65 25 3d 70 65 6c 25 20 8c 0d 09 24 0f 21 71 |le%=pel% ...$.!q|
000017b0 25 3d 68 61 6e 64 6c 65 25 0d 09 2e 1a c8 99 20 |%=handle%...... |
000017c0 52 65 64 72 61 77 57 2c 2c 71 25 20 b8 20 6d 6f |RedrawW,,q% . mo|
000017d0 72 65 25 0d 09 38 0f f2 69 6e 66 6f 28 71 25 2b |re%..8..info(q%+|
000017e0 34 29 0d 09 42 08 f2 70 65 6c 0d 09 4c 05 cd 0d |4)..B..pel..L...|
000017f0 09 56 05 e1 0d 09 60 05 20 0d 09 6a 1c dd 20 f2 |.V....`. ..j.. .|
00001800 63 6c 6f 73 65 5f 77 69 6e 64 6f 77 28 68 61 6e |close_window(han|
00001810 64 6c 65 25 29 0d 09 74 1d 21 71 25 3d 68 61 6e |dle%)..t.!q%=han|
00001820 64 6c 65 25 3a c8 99 20 43 6c 6f 73 65 57 2c 2c |dle%:.. CloseW,,|
00001830 71 25 0d 09 7e 05 e1 0d 09 88 05 20 0d 09 92 0b |q%..~...... ....|
00001840 dd 20 f2 76 61 72 73 0d 09 9c 1e 57 69 6d 70 20 |. .vars....Wimp |
00001850 20 20 20 3d 20 28 31 3c 3c 31 38 29 20 2b 20 28 | = (1<<18) + (|
00001860 33 3c 3c 36 29 0d 09 a6 14 43 72 65 61 74 65 57 |3<<6)....CreateW|
00001870 20 3d 20 57 69 6d 70 2b 31 0d 09 b0 14 4f 70 65 | = Wimp+1....Ope|
00001880 6e 57 20 20 20 3d 20 57 69 6d 70 2b 35 0d 09 ba |nW = Wimp+5...|
00001890 14 43 6c 6f 73 65 57 20 20 3d 20 57 69 6d 70 2b |.CloseW = Wimp+|
000018a0 36 0d 09 c4 14 50 6f 6c 6c 25 20 20 20 3d 20 57 |6....Poll% = W|
000018b0 69 6d 70 2b 37 0d 09 ce 14 52 65 64 72 61 77 57 |imp+7....RedrawW|
000018c0 20 3d 20 57 69 6d 70 2b 38 0d 09 d8 14 55 70 64 | = Wimp+8....Upd|
000018d0 61 74 65 57 20 3d 20 57 69 6d 70 2b 39 0d 09 e2 |ateW = Wimp+9...|
000018e0 15 47 65 74 52 25 20 20 20 3d 20 57 69 6d 70 2b |.GetR% = Wimp+|
000018f0 31 30 0d 09 ec 15 47 65 74 57 20 20 20 20 3d 20 |10....GetW = |
00001900 57 69 6d 70 2b 31 31 0d 09 f6 15 47 65 74 50 20 |Wimp+11....GetP |
00001910 20 20 20 3d 20 57 69 6d 70 2b 31 35 0d 0a 00 15 | = Wimp+15....|
00001920 44 72 61 67 20 20 20 20 3d 20 57 69 6d 70 2b 31 |Drag = Wimp+1|
00001930 36 0d 0a 0a 15 43 72 4d 65 6e 75 20 20 3d 20 57 |6....CrMenu = W|
00001940 69 6d 70 2b 32 30 0d 0a 14 15 44 63 4d 65 6e 75 |imp+20....DcMenu|
00001950 20 20 3d 20 57 69 6d 70 2b 32 31 0d 0a 1e 36 c8 | = Wimp+21...6.|
00001960 99 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 |. "OS_SWINumberF|
00001970 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 4f 53 5f |romString",,"OS_|
00001980 53 70 72 69 74 65 4f 70 22 20 b8 20 73 70 6f 70 |SpriteOp" . spop|
00001990 25 0d 0a 28 38 c8 99 20 22 4f 53 5f 53 57 49 4e |%..(8.. "OS_SWIN|
000019a0 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 |umberFromString"|
000019b0 2c 2c 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |,,"Wimp_SetColou|
000019c0 72 22 20 b8 20 43 6f 6c 25 0d 0a 32 3b c8 99 20 |r" . Col%..2;.. |
000019d0 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f |"OS_SWINumberFro|
000019e0 6d 53 74 72 69 6e 67 22 2c 2c 22 57 69 6d 70 5f |mString",,"Wimp_|
000019f0 46 6f 72 63 65 52 65 64 72 61 77 22 20 b8 20 66 |ForceRedraw" . f|
00001a00 72 65 64 25 0d 0a 3c 38 c8 99 20 22 4f 53 5f 53 |red%..<8.. "OS_S|
00001a10 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 |WINumberFromStri|
00001a20 6e 67 22 2c 2c 22 57 69 6d 70 5f 50 6f 6c 6c 49 |ng",,"Wimp_PollI|
00001a30 64 6c 65 22 20 b8 20 50 6f 6c 6c 25 0d 0a 46 05 |dle" . Poll%..F.|
00001a40 e1 0d 0a 50 05 20 0d 0a 5a 11 dd 20 f2 67 65 74 |...P. ..Z.. .get|
00001a50 70 6f 69 6e 74 65 72 0d 0a 64 0f c8 99 20 47 65 |pointer..d... Ge|
00001a60 74 50 2c 2c 71 25 0d 0a 6e 48 6d 6f 75 73 65 78 |tP,,q%..nHmousex|
00001a70 25 3d 21 71 25 3a 6d 6f 75 73 65 79 25 3d 71 25 |%=!q%:mousey%=q%|
00001a80 21 34 3a 62 25 3d 71 25 21 38 3a 68 61 6e 64 6c |!4:b%=q%!8:handl|
00001a90 65 25 3d 71 25 21 31 32 3a 69 63 6f 6e 25 3d 71 |e%=q%!12:icon%=q|
00001aa0 25 21 31 36 3a 6f 62 25 3d 71 25 21 32 30 0d 0a |%!16:ob%=q%!20..|
00001ab0 78 05 e1 0d 0a 82 05 20 0d 0a 8c 0f dd 20 f2 65 |x...... ..... .e|
00001ac0 72 72 6f 72 62 6f 78 0d 0a 96 0f c8 99 20 44 72 |rrorbox...... Dr|
00001ad0 61 67 2c 2c 2d 31 0d 0a a0 30 21 62 75 66 66 65 |ag,,-1...0!buffe|
00001ae0 72 25 3d 9f 3a 24 28 62 75 66 66 65 72 25 2b 34 |r%=.:$(buffer%+4|
00001af0 29 3d f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 |)=.$+" at line "|
00001b00 2b c3 9e 2b bd 30 0d 0a aa 2f c8 99 20 22 57 69 |+..+.0.../.. "Wi|
00001b10 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
00001b20 62 75 66 66 65 72 25 2c 31 2c 22 50 65 6c 6d 61 |buffer%,1,"Pelma|
00001b30 6e 69 73 6d 22 0d 0a b4 0d f2 66 69 6e 69 73 68 |nism".....finish|
00001b40 3a e0 0d 0a be 05 e1 0d 0a c8 05 20 0d 0a d2 11 |:.......... ....|
00001b50 dd 20 a4 62 75 66 66 65 72 28 4c 25 29 0d 0a dc |. .buffer(L%)...|
00001b60 39 e7 63 75 72 62 75 66 25 2b 4c 25 3e 62 75 66 |9.curbuf%+L%>buf|
00001b70 66 65 72 25 2b 6d 61 78 62 75 66 25 8c 20 85 31 |fer%+maxbuf%. .1|
00001b80 30 30 2c 22 42 75 66 66 65 72 20 73 70 61 63 65 |00,"Buffer space|
00001b90 20 66 75 6c 6c 22 0d 0a e6 0f 63 75 72 62 75 66 | full"....curbuf|
00001ba0 25 2b 3d 4c 25 0d 0a f0 0f 3d 63 75 72 62 75 66 |%+=L%....=curbuf|
00001bb0 25 2d 4c 25 0d 0a fa 05 20 0d 0b 04 0e dd 20 a4 |%-L%.... ..... .|
00001bc0 69 63 6f 6e 62 61 72 0d 0b 0e 0a 21 71 25 3d 2d |iconbar....!q%=-|
00001bd0 31 0d 0b 18 23 71 25 21 34 3d 30 3a 71 25 21 38 |1...#q%!4=0:q%!8|
00001be0 3d 30 3a 71 25 21 31 32 3d 36 33 3a 71 25 21 31 |=0:q%!12=63:q%!1|
00001bf0 36 3d 36 33 0d 0b 22 0f 71 25 21 32 30 3d 26 32 |6=63..".q%!20=&2|
00001c00 31 30 32 0d 0b 2c 18 73 70 6e 61 6d 65 24 3d 22 |102..,.spname$="|
00001c10 2d 50 65 6c 6d 61 6e 69 73 6d 22 0d 0b 36 29 de |-Pelmanism"..6).|
00001c20 20 71 25 21 32 34 20 28 a9 73 70 6e 61 6d 65 24 | q%!24 (.spname$|
00001c30 2b 31 29 3a 24 28 71 25 21 32 34 29 3d 73 70 6e |+1):$(q%!24)=spn|
00001c40 61 6d 65 24 0d 0b 40 12 71 25 21 32 38 3d 73 70 |ame$..@.q%!28=sp|
00001c50 72 69 74 65 73 25 0d 0b 4a 14 71 25 21 33 32 3d |rites%..J.q%!32=|
00001c60 a9 73 70 6e 61 6d 65 24 2b 31 0d 0b 54 22 c8 99 |.spname$+1..T"..|
00001c70 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f | "Wimp_CreateIco|
00001c80 6e 22 2c 2c 71 25 20 b8 20 69 63 25 0d 0b 5e 08 |n",,q% . ic%..^.|
00001c90 3d 69 63 25 0d 0b 68 05 20 0d 0b 72 0e dd 20 f2 |=ic%..h. ..r.. .|
00001ca0 53 48 55 46 46 4c 45 0d 0b 7c 1b 50 41 43 4b 24 |SHUFFLE..|.PACK$|
00001cb0 3d c4 35 32 2c 22 20 22 29 3a 50 41 43 4b 24 3d |=.52," "):PACK$=|
00001cc0 22 22 0d 0b 86 37 4b 25 3d 30 3a e3 49 25 3d 30 |""...7K%=0:.I%=0|
00001cd0 b8 33 3a e3 4a 25 3d 31 b8 31 33 3a 53 50 41 43 |.3:.J%=1.13:SPAC|
00001ce0 45 25 3f 4b 25 3d 49 25 2b 4a 25 2a 34 3a 4b 25 |E%?K%=I%+J%*4:K%|
00001cf0 3d 4b 25 2b 31 3a ed 3a ed 0d 0b 90 24 e3 49 25 |=K%+1:.:....$.I%|
00001d00 3d 31 b8 35 32 3a f5 20 4a 25 3d b3 28 35 32 29 |=1.52:. J%=.(52)|
00001d10 2d 31 3a fd 53 50 41 43 45 25 3f 4a 25 0d 0b 9a |-1:.SPACE%?J%...|
00001d20 29 50 41 43 4b 24 2b 3d bd 28 53 50 41 43 45 25 |)PACK$+=.(SPACE%|
00001d30 3f 4a 25 2b 31 32 38 29 3a 53 50 41 43 45 25 3f |?J%+128):SPACE%?|
00001d40 4a 25 3d 30 3a ed 0d 0b a4 39 e3 49 25 3d 30 b8 |J%=0:....9.I%=0.|
00001d50 33 3a e3 4a 25 3d 30 b8 31 32 3a 66 25 28 4a 25 |3:.J%=0.12:f%(J%|
00001d60 2c 49 25 29 3d 97 50 41 43 4b 24 3a 50 41 43 4b |,I%)=.PACK$:PACK|
00001d70 24 3d c1 50 41 43 4b 24 2c 32 29 3a ed 3a ed 0d |$=.PACK$,2):.:..|
00001d80 0b ae 1a 70 6c 61 79 3d b9 3a 63 6f 76 65 72 3d |...play=.:cover=|
00001d90 30 3a 74 72 69 65 73 3d 30 0d 0b b8 05 e1 0d 0b |0:tries=0.......|
00001da0 c2 05 20 0d 0b cc 15 dd 20 f2 43 41 52 44 28 4e |.. ..... .CARD(N|
00001db0 25 2c 58 25 2c 59 25 29 0d 0b d6 1e c8 99 43 6f |%,X%,Y%)......Co|
00001dc0 6c 25 2c 39 3a c8 93 20 c8 90 20 58 25 2c 59 25 |l%,9:.. .. X%,Y%|
00001dd0 2c 36 30 2c 38 30 0d 0b e0 22 c8 99 43 6f 6c 25 |,60,80..."..Col%|
00001de0 2c 30 3a c8 93 20 c8 90 20 58 25 2b 34 2c 59 25 |,0:.. .. X%+4,Y%|
00001df0 2b 34 2c 35 32 2c 37 32 0d 0b ea 45 c8 99 20 73 |+4,52,72...E.. s|
00001e00 70 6f 70 25 2c 26 31 33 34 2c 73 70 72 69 74 65 |pop%,&134,sprite|
00001e10 73 25 2c 73 75 69 74 24 28 4e 25 80 33 29 2c 58 |s%,suit$(N%.3),X|
00001e20 25 2b 31 36 2c 59 25 2b 38 2c 2c 66 61 63 74 6f |%+16,Y%+8,,facto|
00001e30 72 73 25 2c 70 69 78 74 72 61 6e 73 25 0d 0b f4 |rs%,pixtrans%...|
00001e40 49 c8 99 20 73 70 6f 70 25 2c 26 31 33 34 2c 73 |I.. spop%,&134,s|
00001e50 70 72 69 74 65 73 25 2c 22 73 22 2b 73 75 69 74 |prites%,"s"+suit|
00001e60 24 28 4e 25 80 33 29 2c 58 25 2b 34 2c 59 25 2b |$(N%.3),X%+4,Y%+|
00001e70 35 36 2c 2c 66 61 63 74 6f 72 73 25 2c 70 69 78 |56,,factors%,pix|
00001e80 74 72 61 6e 73 25 0d 0b fe 2a e7 28 4e 25 20 82 |trans%...*.(N% .|
00001e90 20 4e 25 3e 3e 31 29 20 80 20 31 20 c8 99 43 6f | N%>>1) . 1 ..Co|
00001ea0 6c 25 2c 31 31 20 8b 20 c8 99 43 6f 6c 25 2c 37 |l%,11 . ..Col%,7|
00001eb0 0d 0c 08 2a ec 58 25 2b 32 34 2c 59 25 2b 37 32 |...*.X%+24,Y%+72|
00001ec0 3a 4e 25 3d 4e 25 3e 3e 32 3a e7 4e 25 3e 31 e7 |:N%=N%>>2:.N%>1.|
00001ed0 4e 25 3c 31 31 f1 3b 4e 25 3b 0d 0c 12 0e e7 4e |N%<11.;N%;.....N|
00001ee0 25 3d 31 f1 22 41 22 3b 0d 0c 1c 0f e7 4e 25 3d |%=1."A";.....N%=|
00001ef0 31 31 f1 22 4a 22 3b 0d 0c 26 0f e7 4e 25 3d 31 |11."J";..&..N%=1|
00001f00 32 f1 22 51 22 3b 0d 0c 30 0f e7 4e 25 3d 31 33 |2."Q";..0..N%=13|
00001f10 f1 22 4b 22 3b 0d 0c 3a 05 e1 0d 0c 44 05 20 0d |."K";..:....D. .|
00001f20 0c 4e 12 dd 20 f2 42 41 43 4b 28 58 25 2c 59 25 |.N.. .BACK(X%,Y%|
00001f30 29 0d 0c 58 3b c8 99 20 73 70 6f 70 25 2c 26 31 |)..X;.. spop%,&1|
00001f40 33 34 2c 73 70 72 69 74 65 73 25 2c 22 62 61 63 |34,sprites%,"bac|
00001f50 6b 22 2c 58 25 2c 59 25 2c 2c 66 61 63 74 6f 72 |k",X%,Y%,,factor|
00001f60 73 25 2c 70 69 78 74 72 61 6e 73 25 0d 0c 62 05 |s%,pixtrans%..b.|
00001f70 e1 0d 0c 6c 05 20 0d 0c 76 14 dd 20 f2 4e 4f 43 |...l. ..v.. .NOC|
00001f80 41 52 44 28 58 25 2c 59 25 29 0d 0c 80 23 c8 99 |ARD(X%,Y%)...#..|
00001f90 43 6f 6c 25 2c 60 77 62 63 6f 6c 3a c8 93 20 c8 |Col%,`wbcol:.. .|
00001fa0 90 20 58 25 2c 59 25 2c 36 30 2c 38 30 0d 0c 8a |. X%,Y%,60,80...|
00001fb0 05 e1 0d 0c 94 05 20 0d 0c 9e 21 dd 20 a4 43 48 |...... ...!. .CH|
00001fc0 4b 20 e7 43 41 52 44 54 3d 2d 31 20 8c 3d 43 41 |K .CARDT=-1 .=CA|
00001fd0 52 44 20 81 34 3d 31 33 0d 0c a8 27 43 54 3d 28 |RD .4=13...'CT=(|
00001fe0 43 41 52 44 54 20 82 20 43 41 52 44 29 80 33 3a |CARDT . CARD).3:|
00001ff0 e7 43 54 3d 30 20 84 20 43 54 3d 33 20 3d a3 0d |.CT=0 . CT=3 =..|
00002000 0c b2 17 3d 43 41 52 44 54 20 81 34 3d 43 41 52 |...=CARDT .4=CAR|
00002010 44 20 81 34 2b 31 0d 0c bc 05 20 0d 0c c6 12 dd |D .4+1.... .....|
00002020 20 f2 67 65 74 6d 6f 64 65 69 6e 66 6f 0d 0c d0 | .getmodeinfo...|
00002030 44 c8 99 22 57 69 6d 70 5f 52 65 61 64 50 69 78 |D.."Wimp_ReadPix|
00002040 54 72 61 6e 73 22 2c 26 31 30 30 2c 73 70 72 69 |Trans",&100,spri|
00002050 74 65 73 25 2c 22 63 6c 75 62 22 2c 2c 2c 2c 66 |tes%,"club",,,,f|
00002060 61 63 74 6f 72 73 25 2c 70 69 78 74 72 61 6e 73 |actors%,pixtrans|
00002070 25 0d 0c da 05 e1 0d 0c e4 05 20 0d 0c ee 17 dd |%......... .....|
00002080 20 f2 44 4f 43 41 52 44 28 43 25 2c 58 25 2c 59 | .DOCARD(C%,X%,Y|
00002090 25 29 0d 0c f8 39 79 70 6f 73 25 3d 2d 39 36 2a |%)...9ypos%=-96*|
000020a0 28 59 25 2b 31 29 3a 78 70 6f 73 25 3d 38 2b 58 |(Y%+1):xpos%=8+X|
000020b0 25 2a 36 38 3a 66 25 28 58 25 2c 59 25 29 3d 66 |%*68:f%(X%,Y%)=f|
000020c0 25 28 58 25 2c 59 25 29 82 43 25 0d 0d 02 2f f2 |%(X%,Y%).C%.../.|
000020d0 75 70 64 61 74 65 28 70 65 6c 25 2c 78 70 6f 73 |update(pel%,xpos|
000020e0 25 2c 79 70 6f 73 25 2c 78 70 6f 73 25 2b 36 37 |%,ypos%,xpos%+67|
000020f0 2c 79 70 6f 73 25 2b 39 35 29 0d 0d 0c 08 f2 70 |,ypos%+95).....p|
00002100 65 6c 0d 0d 16 05 e1 0d 0d 20 04 0d 0d 2a 11 dd |el....... ...*..|
00002110 20 a4 4d 61 74 28 41 25 2c 42 25 29 0d 0d 34 13 | .Mat(A%,B%)..4.|
00002120 e7 41 25 81 34 3c 3e 42 25 81 34 20 8c 3d a3 0d |.A%.4<>B%.4 .=..|
00002130 0d 3e 1a e7 28 28 41 25 80 33 29 82 28 42 25 80 |.>..((A%.3).(B%.|
00002140 33 29 29 3d 33 20 8c 3d b9 0d 0d 48 06 3d a3 0d |3))=3 .=...H.=..|
00002150 ff |.|
00002151 
.