BeebDisk/66GB

Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/66GB

BeebDisk/66GB

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s
Filename:	BeebDisk/66GB
Read OK:	✔
File size:	1B91 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/66GB
AEW website » mu » mu_5_25_discs_Micro_User_12_09_D-MU12_09.ssd » 66GB

File contents

   10REM SIXTY SIX v.2.23
   20REM by M.Bobrowski 4'94
   30:
   40PROCinit
   50REPEAT:PROCreset
   60PROCshuffle:PROCdeal
   70PROCgame:PROCscore
   80UNTIL end%:PROCend
   90MODE 131:END
  100:
 1000DEF PROCinit:DIM V%(1),v%(1),t%(1),p%(1),r%(1)
 1010G%=RND(2)-1:end%=FALSE:r%(0)=0:r%(1)=0:num$="A"+CHR$228+"KQJ9"
 1020ENDPROC
 1030:
 1040DEF PROCreset
 1050GCOL0,130:PROCwindow(1):FORI%=2TO5:PROCwindow(I%):CLG:NEXT
 1060FORI%=0TO1:p%(I%)=0:t%(I%)=0:NEXT:R%=RND(-TIME):M%=7:ms%=0
 1070ENDPROC
 1080:
 1090DEF PROCshuffle
 1100FOR I%=1 TO 24:A%?I%=I%:NEXT
 1110FOR I%=1 TO 24:R%=RND(24):J%=A%?R%
 1120A%?R%=A%?I%:A%?I%=J%:NEXT
 1130ENDPROC
 1140:
 1150DEF PROCdeal
 1160FORI%=1TO6:P%?I%=A%?I%:NEXT:?P%=6:H%=P%:PROCsort(6)
 1170FORI%=1TO6:C%?I%=A%?(I%+6):NEXT:?C%=6:H%=C%:PROCsort(6)
 1180tr%=A%?24:T%=FNs(tr%)
 1190po%=13:ENDPROC
 1200:
 1210DEF PROCgame
 1220PROChand:PROCpack
 1230ph%=1:REPEAT:PROCwindow(2):CLG:PROCwindow(5):GCOL0,0:VDU5:IF po%>15 X%=920 ELSE X%=904
 1240MOVE X%,511:PRINT"Pack:";STR$(25-po%):VDU4
 1250PROCwindow(1):FOR ro%=1 TO 2:IF G% H%=C% ELSE H%=P%
 1260IF ro%=1 L%=TRUE ELSE L%=FALSE
 1270PROCgo(G%):V%(G%)=N%:IF M%=0:ro%=2:NEXT:UNTIL TRUE:ENDPROC
 1280PROCtable(N%):PROCdelete
 1290G%=(G%+1)MOD 2:NEXT
 1300PROCevaluate:PROCgetcards
 1310UNTIL po%=25:PROCwindow(5):PROCwindow(3):CLG:GCOL0,3:VDU5:MOVE 992,700:PRINT"Trumps:":GCOL0,1:MOVE 992,620
 1320IF T%=1 PRINT"Hearts" ELSE IF T%=2 PRINT"Spades" ELSE IF T%=3 PRINT"Diamonds"; ELSE PRINT"Clubs"
 1330VDU4:PROCwindow(1)
 1340ph%=2:REPEAT:PROCwindow(2):CLG:FOR ro%=1 TO 2:IF G% H%=C% ELSE H%=P%
 1350IF ro%=1 L%=TRUE ELSE L%=FALSE
 1360PROCgo(G%):V%(G%)=N%:IF M%=0:ro%=2:NEXT:UNTIL TRUE:ENDPROC
 1370PROCtable(N%):PROCdelete:IF G%=0 PROChand
 1380G%=(G%+1)MOD 2:NEXT
 1390PROCevaluate
 1400UNTIL (?C%=0 AND ?P%=0) OR M%=0
 1410ENDPROC
 1420:
 1430DEF PROCgo(G%)
 1440IF G%=1 PROCcompgo:ENDPROC
 1450IF NOT L% AND ?P%=1:N%=P%?1:ps%=FNs(N%):ENDPROC
 1460REPEAT
 1470CLS:IF L% COLOUR1 ELSE COLOUR2
 1480PRINT"Your go":COLOUR2
 1490SOUND1,4,200,10:REPEAT:M%=GET-48:UNTIL M%>=0 AND M%<=?P%:IF ?P%=1 AND M%=1 N%=P%?1:ps%=FNs(N%):UNTIL TRUE:ENDPROC
 1500IF L% AND M%=0 AND p%(0)>=66 UNTIL TRUE:ENDPROC ELSE IF M%=0 SOUND1,3,8,30:COLOUR1:PRINT"Score too low":COLOUR2:PRINT'"Penalty: -10";:PROCwait:p%(0)=p%(0)-10:UNTIL FALSE
 1510N%=P%?M%:pv%=FNn(N%):ps%=FNs(N%)
 1520IF L% AND po%<24 AND pv%=6 AND ps%=T% AND t%(0)>0 PROCchange:UNTIL FALSE
 1530ch%=TRUE:IF ph%=2 AND NOT L% PROCcheck
 1540UNTIL ch%
 1550IF L% AND t%(0)>0 AND pv%=4 PROCmarriage
 1560ENDPROC
 1570:
 1580DEF PROCcompgo
 1590IF L% PROCcompgo1 ELSE PROCcompgo2
 1600IF M%=0 ENDPROC
 1610PROCwait
 1620cs%=FNs(N%)
 1630ENDPROC
 1640:
 1650DEF PROCcompgo1
 1660CLS:COLOUR1:PRINT"My go":COLOUR2
 1670IF p%(1)>=66 M%=0:ENDPROC
 1680IF ?C%=1 N%=C%?1:ENDPROC
 1690IF t%(1)>0 AND po%<24 PROCnine:IF F% PROCchange:GOTO1660
 1700IF t%(1)>0 PROCpair:IF F% ENDPROC
 1710B%=FNse1:IF B% N%=C%?n% ELSE R%=RND(?C%):N%=C%?R%
 1720ENDPROC
 1730:
 1740DEF PROCcompgo2
 1750CLS:COLOUR2:PRINT"My go":IF ?C%=1 N%=C%?1:ENDPROC
 1760IF ph%=1 B%=FNse2 ELSE B%=FNse3
 1770IF B% N%=C%?n% ELSE R%=RND(?C%):N%=C%?R%
 1780ENDPROC
 1790:
 1800DEF PROCevaluate
 1810FOR I%=0 TO 1:n%=FNn(V%(I%)):v%(I%)=W%?n%:NEXT
 1820IF ps%=cs% IF v%(0)>v%(1) G%=0:U%=TRUE:GOTO1870
 1830IF ps%=cs% IF v%(0)<v%(1) G%=1:U%=FALSE:GOTO1870
 1840IF ps%=T% G%=0:U%=TRUE:GOTO1870
 1850IF cs%=T% G%=1:U%=FALSE:GOTO1870
 1860IF ps%<>cs% IF G%=0 U%=TRUE ELSE U%=FALSE
 1870sum%=v%(0)+v%(1):CLS:COLOUR1:t%(G%)=t%(G%)+1:COLOUR3:IF U% p%(0)=p%(0)+sum%:PRINT"Your"; ELSE p%(1)=p%(1)+sum%:PRINT"My";
 1880PRINT" trick":PROCwait:ENDPROC
 1890:
 1900DEF PROChand
 1910GCOL0,130:PROCwindow(4):CLG:IF ?P%=0 ENDPROC
 1920FOR I%=1 TO ?P%:X%=I%*192-128:Y%=447:PROCdisplay(P%?I%)
 1930NEXT:ENDPROC
 1940:
 1950DEF PROCdisplay(Z%)
 1960S%=FNs(Z%):K%=FNn(Z%):!&78=&3000+X%DIV2+&280*(1023-Y%)DIV32:CALL &998
 1970GCOL0,S%MOD2:VDU5:MOVE X%+8-4*(K%=2),Y%-12:PRINTMID$(num$,K%,1):MOVE X%+8,Y%-44:VDU(223+S%):IF K%=1 PROCace(236+S%*4) ELSE IF K%>2 AND K%<6 PROCface(&B00+(K%-3)*72) ELSE PROCpip
 1980VDU4:ENDPROC
 1990:
 2000DEF PROCpack
 2010X%=896:Y%=767:PROCwindow(3):PROCdisplay(tr%)
 2020!&78=&45D8:CALL&998:GCOL0,0:PLOT69,944,767:PLOT69,944,547
 2030GCOL0,1:VDU5:FOR Y%=747 TO 567 STEP-32:MOVE 964,Y%:PRINTSTRING$(5,CHR$229):NEXT:VDU4
 2040ENDPROC
 2050:
 2060DEF PROCtable(N%)
 2070PROCwindow(2):SOUND0,-10,5,2
 2080Y%=767:IF L% X%=256 ELSE X%=448
 2090PROCdisplay(N%)
 2100ENDPROC
 2110:
 2120DEF PROCdelete
 2130FORI%=1TO ?H%:IF H%?I%=N% Q%=I%:I%=?H%
 2140NEXT:FORI%=Q%TO ?H%-1:H%?I%=H%?(I%+1):NEXT
 2150H%?(?H%)=0:?H%=?H%-1
 2160IF ph%=2 OR H%=C% ENDPROC
 2170GCOL0,2:PROCwindow(4):Y%=447
 2180X%=Q%*192-128:MOVE X%,Y%:MOVEX%+180,Y%:PLOT85,X%,Y%-224:PLOT85,X%+180,Y%-224
 2190ENDPROC
 2200:
 2210DEF PROCgetcards
 2220IF U% PROCget(P%):PROChand:PROCget(C%):ENDPROC
 2230PROCget(C%):PROCget(P%):PROChand
 2240ENDPROC
 2250:
 2260DEF PROCget(H%)
 2270?H%=?H%+1
 2280H%?(?H%)=A%?po%:po%=po%+1
 2290PROCsort(?H%):ENDPROC
 2300:
 2310DEF PROCsort(D%):IF D%<2 ENDPROC
 2320LOCAL B%:FOR J%=1TOD%-1:Z%=J%
 2330FOR I%=Z%+1 TO D%
 2340IF H%?Z%>H%?I% Z%=I%
 2350NEXT
 2360B%=H%?J%:H%?J%=H%?Z%:H%?Z%=B%
 2370NEXT:ENDPROC
 2380:
 2390DEF PROCcheck
 2400IF ps%=cs% ENDPROC
 2410F%=FALSE:FOR I%=1 TO ?P%:Q%=I%?P%:s%=FNs(Q%)
 2420IF s%=cs% F%=TRUE:I%=?P%
 2430NEXT:IF F% ch%=FALSE:PROCbad:ENDPROC
 2440IF ps%=T% ENDPROC
 2450FOR I%=1 TO ?P%:Q%=I%?P%:s%=FNs(Q%)
 2460IF s%=T% F%=TRUE:I%=?P%
 2470NEXT:IF F% ch%=FALSE:PROCbad:ENDPROC
 2480ENDPROC
 2490:
 2500DEF PROCchange
 2510IF G%=0 n%=M%
 2520Q%=H%?n%:H%?n%=A%?24:A%?24=Q%:tr%=Q%
 2530PROCpack:PROCsort(?H%):IF G%=0 PROChand
 2540CLS:COLOUR1:PRINT"Exchange":SOUND1,1,120,4:SOUND1,1,100,4:PROCwait
 2550ENDPROC
 2560:
 2570DEF PROCmarriage
 2580IF G%=0 COLOUR3:PRINT'"Pair ? ";:REPEAT:G$=GET$:UNTILINSTR("YyNn",G$):PRINTG$:COLOUR1:IF INSTR("Nn",G$) ENDPROC
 2590IF G%=0 AND M%>1 AND P%?(M%-1)=N%-1 ms%=ps% ELSE IF G%=0 SOUND1,2,76,8:COLOUR2:PRINT'"Don't cheat":PROCwait:ENDPROC
 2600IF G%=1 CLS:COLOUR1:PRINT"Pair"
 2610IF ms%=T% bo%=40 ELSE bo%=20
 2620p%(G%)=p%(G%)+bo%:PRINT'"Bonus: ";bo%;:SOUND1,1,120,4:SOUND1,1,100,4:PROCwait
 2630ENDPROC
 2640:
 2650DEF PROCnine
 2660F%=FALSE:FOR I%=1 TO ?C%:Q%=C%?I%:IF T%=FNs(Q%) AND FNn(Q%)=6 F%=TRUE:n%=I%:I%=?C%
 2670NEXT:ENDPROC
 2680:
 2690DEF PROCpair
 2700F%=FALSE:a%=FNn(H%?1):b%=FNs(H%?1)
 2710FOR I%=2 TO ?H%:c%=FNn(H%?I%):d%=FNs(H%?I%)
 2720IF c%=4 AND a%=3 AND d%=b% F%=TRUE:n%=I%:ms%=d%
 2730a%=c%:b%=d%:NEXT
 2740IF NOT F% ENDPROC
 2750N%=C%?n%
 2760PROCmarriage
 2770ENDPROC
 2780:
 2790DEF FNs(K%)=(K%-1)DIV6+1
 2800DEF FNn(K%)=(K%-1)MOD6+1
 2810:
 2820DEF FNse1
 2830F%=FALSE:FOR I%=1 TO ?C%:PROCval
 2840IF v%>4 AND NOT(s%=T%) F%=TRUE:n%=I%
 2850NEXT:IF F% THEN=n%
 2860FOR I%=1 TO ?C%:PROCval
 2870IF v%<3 AND NOT(s%=T%) F%=TRUE:n%=I%
 2880NEXT:IF F% THEN=n%
 2890FOR I%=1 TO ?C%:PROCval
 2900IF (v%=5 OR v%<3) AND s%=T% F%=TRUE:n%=I%
 2910NEXT:IF F% THEN=n% ELSE =0
 2920:
 2930DEF FNse2
 2940F%=FALSE:FOR I%=1 TO ?C%:PROCval
 2950IF s%=ps% AND pv%=4 AND v%<4 F%=TRUE:n%=I%
 2960NEXT:IF F% THEN=n%
 2970FOR I%=1 TO ?C%:PROCval
 2980IF s%=ps% AND v%<pv% AND v%<3 F%=TRUE:n%=I%
 2990NEXT:IF F% THEN=n%
 3000FOR I%=1 TO ?C%:PROCval
 3010IF s%=T% AND NOT(ps%=T%) AND pv%<4 AND (v%<3 OR v%=5) F%=TRUE:n%=I%
 3020NEXT:IF F% THEN=n%
 3030FOR I%=1 TO ?C%:PROCval
 3040IF NOT(s%=T%) AND v%>4 F%=TRUE:n%=I%
 3050NEXT:IF F% THEN=n%
 3060=0
 3070:
 3080DEF FNse3
 3090F%=FALSE:FOR I%=1 TO ?C%:PROCval
 3100IF s%=ps% AND v%<pv% F%=TRUE:n%=I%
 3110NEXT:IF F% THEN=n%
 3120O%=0:FOR I%=1 TO ?C%:PROCval
 3130IF s%=ps% AND v%>O%:O%=v%:n%=I%
 3140NEXT:IF O%>0 F%=TRUE:=n%
 3150O%=0:FOR I%=1 TO ?C%:PROCval
 3160IF s%=T% AND v%>O%:O%=v%:n%=I%
 3170NEXT:IF O%>0 F%=TRUE:=n%
 3180O%=0:FOR I%=1 TO ?C%:PROCval
 3190IF v%>O%:O%=v%:n%=I%
 3200NEXT:IF O%>0 F%=TRUE:=n%
 3210=0
 3220:
 3230DEF PROCval
 3240Q%=C%?I%:v%=FNn(Q%):s%=FNs(Q%)
 3250ENDPROC
 3260:
 3270DEF PROCscore
 3280p%=p%(0):c%=p%(1):CLS:COLOUR1:IF M%=0 CLS:COLOUR1:PRINT"Sixty Six"':COLOUR3:w%=G%:PROCadd(G%):GOTO3330
 3290COLOUR3:IF (p%<66 AND c%<66) OR p%=c% PRINT"No one wins":PROCwait:ENDPROC
 3300IF p%>c% AND p%>66 w%=0
 3310IF c%>p% AND c%>66 w%=1
 3320IF p%>c% PROCadd(0) ELSE PROCadd(1)
 3330IF c%<2 PROCadd(0) ELSE IF p%<2 PROCadd(1)
 3340IF c%<33 PROCadd(0) ELSE IF p%<33 PROCadd(1)
 3350IF w% PRINT"  I win"; ELSE PRINT" You win";
 3360G%=(w%+1)MOD2:COLOUR129:VDU28,30,6,38,3:CLS
 3370COLOUR0:PRINT;p%;TAB(0,2);c%;
 3380COLOUR3:PRINTTAB(6,0);r%(0);TAB(6,2);r%(1);:COLOUR128
 3390PROCtune:IF r%(0)>7 OR r%(1)>7 end%=TRUE
 3400ENDPROC
 3410:
 3420DEF PROCadd(Z%)
 3430r%(Z%)=r%(Z%)+1
 3440ENDPROC
 3450:
 3460DEF PROCwindow(Z%)
 3470IF Z%=1:VDU17,128,28,15,30,38,28,12
 3480IF Z%=2:VDU24,8;515;768;791;
 3490IF Z%=3:VDU24,768;515;1268;791;
 3500IF Z%=4:VDU24,8;212;1268;451;
 3510IF Z%=5:VDU24,880;451;1260;511;16
 3520ENDPROC
 3530:
 3540DEF PROCbad:SOUND1,2,76,8:COLOUR1:PRINT'"Illegal"
 3550DEF PROCwait
 3560de%=INKEY200:ENDPROC
 3570:
 3580DEF PROCtune
 3590RESTORE:FORI%=1TO24:READ pi%,du%:SOUND1,1,pi%,du%:NEXT:PROCwait
 3600DATA 100,4,100,4,96,4,88,4,88,4,80,4,100,8,100,4,96,4,108,8,108,4,100,4,116,8,100,4,100,4,96,4,88,4,88,4,80,4,100,8,100,4,96,4,108,8,100,8
 3610ENDPROC
 3620:
 3630DEF PROCend
 3640PROCwindow(1):COLOUR1:PRINT"GAME OVER":COLOUR2:PRINT'" Again ?";:G$=GET$:IF INSTR("Yy",G$) RUN
 3650ENDPROC
 3660:
 3670DEF PROCpip
 3680FOR y%=Y%-20 TO Y%-164 STEP-48:FOR x%=X%+56 TO X%+120 STEP64
 3690MOVE x%,y%:VDU(223+S%):NEXT,
 3700IF K%=6 MOVE X%+88,Y%-92:VDU(223+S%):ENDPROC
 3710MOVE X%+88,Y%-44:VDU(223+S%):MOVE X%+88,Y%-140:VDU(223+S%)
 3720ENDPROC
 3730:
 3740DEF PROCface(A%)
 3750!&70=A%:!&72=X%+44:!&74=Y%-56:CALL&938
 3760ENDPROC
 3770:
 3780DEF PROCace(n%)
 3790MOVE X%+60,Y%-80:VDUn%,n%+1,8,8,10,n%+2,n%+3
 3800ENDPROC

� SIXTY SIX v.2.23
� by M.Bobrowski 4'94
:
(	�init
2�:�reset
<�shuffle:�deal
F�game:�score
P� end%:�end
Z� 131:�
d:
�+� �init:� V%(1),v%(1),t%(1),p%(1),r%(1)
�9G%=�(2)-1:end%=�:r%(0)=0:r%(1)=0:num$="A"+�228+"KQJ9"
��
:
� �reset
-�0,130:�window(1):�I%=2�5:�window(I%):�:�
$3�I%=0�1:p%(I%)=0:t%(I%)=0:�:R%=�(-�):M%=7:ms%=0
.�
8:
B� �shuffle
L� I%=1 � 24:A%?I%=I%:�
V!� I%=1 � 24:R%=�(24):J%=A%?R%
`A%?R%=A%?I%:A%?I%=J%:�
j�
t:
~� �deal
�.�I%=1�6:P%?I%=A%?I%:�:?P%=6:H%=P%:�sort(6)
�2�I%=1�6:C%?I%=A%?(I%+6):�:?C%=6:H%=C%:�sort(6)
�tr%=A%?24:T%=�s(tr%)
�po%=13:�
�:
�� �game
��hand:�pack
�Dph%=1:�:�window(2):�:�window(5):�0,0:�5:� po%>15 X%=920 � X%=904
�"� X%,511:�"Pack:";�(25-po%):�4
�-�window(1):� ro%=1 � 2:� G% H%=C% � H%=P%
�� ro%=1 L%=� � L%=�
�*�go(G%):V%(G%)=N%:� M%=0:ro%=2:�:� �:�
�table(N%):�delete

G%=(G%+1)� 2:�
�evaluate:�getcards
P� po%=25:�window(5):�window(3):�:�0,3:�5:� 992,700:�"Trumps:":�0,1:� 992,620
(H� T%=1 �"Hearts" � � T%=2 �"Spades" � � T%=3 �"Diamonds"; � �"Clubs"
2�4:�window(1)
<7ph%=2:�:�window(2):�:� ro%=1 � 2:� G% H%=C% � H%=P%
F� ro%=1 L%=� � L%=�
P*�go(G%):V%(G%)=N%:� M%=0:ro%=2:�:� �:�
Z#�table(N%):�delete:� G%=0 �hand
dG%=(G%+1)� 2:�
n
�evaluate
x� (?C%=0 � ?P%=0) � M%=0
��
�:
�
� �go(G%)
�� G%=1 �compgo:�
�'� � L% � ?P%=1:N%=P%?1:ps%=�s(N%):�
��
��:� L% �1 � �2
��"Your go":�2
�S�1,4,200,10:�:M%=�-48:� M%>=0 � M%<=?P%:� ?P%=1 � M%=1 N%=P%?1:ps%=�s(N%):� �:�
�v� L% � M%=0 � p%(0)>=66 � �:� � � M%=0 �1,3,8,30:�1:�"Score too low":�2:�'"Penalty: -10";:�wait:p%(0)=p%(0)-10:� �
�"N%=P%?M%:pv%=�n(N%):ps%=�s(N%)
�8� L% � po%<24 � pv%=6 � ps%=T% � t%(0)>0 �change:� �
�ch%=�:� ph%=2 � � L% �check
	� ch%
$� L% � t%(0)>0 � pv%=4 �marriage
�
":
,
� �compgo
6� L% �compgo1 � �compgo2
@� M%=0 �
J	�wait
Tcs%=�s(N%)
^�
h:
r� �compgo1
|�:�1:�"My go":�2
�� p%(1)>=66 M%=0:�
�� ?C%=1 N%=C%?1:�
�/� t%(1)>0 � po%<24 �nine:� F% �change:�D|F
�� t%(1)>0 �pair:� F% �
�.B%=�se1:� B% N%=C%?n% � R%=�(?C%):N%=C%?R%
��
�:
�� �compgo2
�#�:�2:�"My go":� ?C%=1 N%=C%?1:�
�� ph%=1 B%=�se2 � B%=�se3
�&� B% N%=C%?n% � R%=�(?C%):N%=C%?R%
��
�:
� �evaluate
+� I%=0 � 1:n%=�n(V%(I%)):v%(I%)=W%?n%:�
+� ps%=cs% � v%(0)>v%(1) G%=0:U%=�:�DNG
&+� ps%=cs% � v%(0)<v%(1) G%=1:U%=�:�DNG
0� ps%=T% G%=0:U%=�:�DNG
:� cs%=T% G%=1:U%=�:�DNG
D!� ps%<>cs% � G%=0 U%=� � U%=�
Nesum%=v%(0)+v%(1):�:�1:t%(G%)=t%(G%)+1:�3:� U% p%(0)=p%(0)+sum%:�"Your"; � p%(1)=p%(1)+sum%:�"My";
X�" trick":�wait:�
b:
l� �hand
v!�0,130:�window(4):�:� ?P%=0 �
�5� I%=1 � ?P%:X%=I%*192-128:Y%=447:�display(P%?I%)
��:�
�:
�� �display(Z%)
�@S%=�s(Z%):K%=�n(Z%):!&78=&3000+X%�2+&280*(1023-Y%)�32:� &998
���0,S%�2:�5:� X%+8-4*(K%=2),Y%-12:�num$,K%,1):� X%+8,Y%-44:�(223+S%):� K%=1 �ace(236+S%*4) � � K%>2 � K%<6 �face(&B00+(K%-3)*72) � �pip
��4:�
�:
�� �pack
�*X%=896:Y%=767:�window(3):�display(tr%)
�1!&78=&45D8:�&998:�0,0:�69,944,767:�69,944,547
�7�0,1:�5:� Y%=747 � 567 �-32:� 964,Y%:��5,�229):�:�4
��
:
� �table(N%)
�window(2):�0,-10,5,2
 Y%=767:� L% X%=256 � X%=448
*�display(N%)
4�
>:
H
� �delete
R&�I%=1� ?H%:� H%?I%=N% Q%=I%:I%=?H%
\%�:�I%=Q%� ?H%-1:H%?I%=H%?(I%+1):�
fH%?(?H%)=0:?H%=?H%-1
p� ph%=2 � H%=C% �
z�0,2:�window(4):Y%=447
�DX%=Q%*192-128:� X%,Y%:�X%+180,Y%:�85,X%,Y%-224:�85,X%+180,Y%-224
��
�:
�� �getcards
�"� U% �get(P%):�hand:�get(C%):�
��get(C%):�get(P%):�hand
��
�:
�� �get(H%)
�
?H%=?H%+1
�H%?(?H%)=A%?po%:po%=po%+1
��sort(?H%):�
�:
	� �sort(D%):� D%<2 �
	� B%:� J%=1�D%-1:Z%=J%
	� I%=Z%+1 � D%
	$� H%?Z%>H%?I% Z%=I%
	.�
	8!B%=H%?J%:H%?J%=H%?Z%:H%?Z%=B%
	B�:�
	L:
	V� �check
	`� ps%=cs% �
	j(F%=�:� I%=1 � ?P%:Q%=I%?P%:s%=�s(Q%)
	t� s%=cs% F%=�:I%=?P%
	~�:� F% ch%=�:�bad:�
	�� ps%=T% �
	�#� I%=1 � ?P%:Q%=I%?P%:s%=�s(Q%)
	�� s%=T% F%=�:I%=?P%
	��:� F% ch%=�:�bad:�
	��
	�:
	�
� �change
	�� G%=0 n%=M%
	�(Q%=H%?n%:H%?n%=A%?24:A%?24=Q%:tr%=Q%
	�!�pack:�sort(?H%):� G%=0 �hand
	�0�:�1:�"Exchange":�1,1,120,4:�1,1,100,4:�wait
	��
:

� �marriage
C� G%=0 �3:�'"Pair ? ";:�:G$=�:��"YyNn",G$):�G$:�1:� �"Nn",G$) �
X� G%=0 � M%>1 � P%?(M%-1)=N%-1 ms%=ps% � � G%=0 �1,2,76,8:�2:�'"Don't cheat":�wait:�
(� G%=1 �:�1:�"Pair"
2� ms%=T% bo%=40 � bo%=20
<Bp%(G%)=p%(G%)+bo%:�'"Bonus: ";bo%;:�1,1,120,4:�1,1,100,4:�wait
F�
P:
Z� �nine
dGF%=�:� I%=1 � ?C%:Q%=C%?I%:� T%=�s(Q%) � �n(Q%)=6 F%=�:n%=I%:I%=?C%
n�:�
x:
�� �pair
� F%=�:a%=�n(H%?1):b%=�s(H%?1)
�*� I%=2 � ?H%:c%=�n(H%?I%):d%=�s(H%?I%)
�+� c%=4 � a%=3 � d%=b% F%=�:n%=I%:ms%=d%
�a%=c%:b%=d%:�
�� � F% �
�N%=C%?n%
�
�marriage
��
�:
�� �s(K%)=(K%-1)�6+1
�� �n(K%)=(K%-1)�6+1
�:

� �se1
F%=�:� I%=1 � ?C%:�val
 � v%>4 � �(s%=T%) F%=�:n%=I%
"�:� F% �=n%
,� I%=1 � ?C%:�val
6 � v%<3 � �(s%=T%) F%=�:n%=I%
@�:� F% �=n%
J� I%=1 � ?C%:�val
T&� (v%=5 � v%<3) � s%=T% F%=�:n%=I%
^�:� F% �=n% � =0
h:
r
� �se2
|F%=�:� I%=1 � ?C%:�val
�&� s%=ps% � pv%=4 � v%<4 F%=�:n%=I%
��:� F% �=n%
�� I%=1 � ?C%:�val
�'� s%=ps% � v%<pv% � v%<3 F%=�:n%=I%
��:� F% �=n%
�� I%=1 � ?C%:�val
�:� s%=T% � �(ps%=T%) � pv%<4 � (v%<3 � v%=5) F%=�:n%=I%
��:� F% �=n%
�� I%=1 � ?C%:�val
� � �(s%=T%) � v%>4 F%=�:n%=I%
��:� F% �=n%
�=0
�:

� �se3
F%=�:� I%=1 � ?C%:�val
 � s%=ps% � v%<pv% F%=�:n%=I%
&�:� F% �=n%
0O%=0:� I%=1 � ?C%:�val
: � s%=ps% � v%>O%:O%=v%:n%=I%
D�:� O%>0 F%=�:=n%
NO%=0:� I%=1 � ?C%:�val
X� s%=T% � v%>O%:O%=v%:n%=I%
b�:� O%>0 F%=�:=n%
lO%=0:� I%=1 � ?C%:�val
v� v%>O%:O%=v%:n%=I%
��:� O%>0 F%=�:=n%
�=0
�:
�
� �val
� Q%=C%?I%:v%=�n(Q%):s%=�s(Q%)
��
�:
�� �score
�Lp%=p%(0):c%=p%(1):�:�1:� M%=0 �:�1:�"Sixty Six"':�3:w%=G%:�add(G%):�TBM
�7�3:� (p%<66 � c%<66) � p%=c% �"No one wins":�wait:�
�� p%>c% � p%>66 w%=0
�� c%>p% � c%>66 w%=1
�� p%>c% �add(0) � �add(1)

#� c%<2 �add(0) � � p%<2 �add(1)

%� c%<33 �add(0) � � p%<33 �add(1)

#� w% �"  I win"; � �" You win";

 $G%=(w%+1)�2:�129:�28,30,6,38,3:�

*�0:�;p%;�0,2);c%;

4%�3:�6,0);r%(0);�6,2);r%(1);:�128

>$�tune:� r%(0)>7 � r%(1)>7 end%=�

H�

R:

\� �add(Z%)

fr%(Z%)=r%(Z%)+1

p�

z:

�� �window(Z%)

�$� Z%=1:�17,128,28,15,30,38,28,12

�� Z%=2:�24,8;515;768;791;

� � Z%=3:�24,768;515;1268;791;

�� Z%=4:�24,8;212;1268;451;

�"� Z%=5:�24,880;451;1260;511;16

��

�:

�#� �bad:�1,2,76,8:�1:�'"Illegal"

�� �wait

�de%=�200:�

�:

�� �tune
-�:�I%=1�24:� pi%,du%:�1,1,pi%,du%:�:�wait
�� 100,4,100,4,96,4,88,4,88,4,80,4,100,8,100,4,96,4,108,8,108,4,100,4,116,8,100,4,100,4,96,4,88,4,88,4,80,4,100,8,100,4,96,4,108,8,100,8
�
$:
.
� �end
8B�window(1):�1:�"GAME OVER":�2:�'" Again ?";:G$=�:� �"Yy",G$) �
B�
L:
V
� �pip
`4� y%=Y%-20 � Y%-164 �-48:� x%=X%+56 � X%+120 �64
j� x%,y%:�(223+S%):�,
t$� K%=6 � X%+88,Y%-92:�(223+S%):�
~4� X%+88,Y%-44:�(223+S%):� X%+88,Y%-140:�(223+S%)
��
�:
�� �face(A%)
�'!&70=A%:!&72=X%+44:!&74=Y%-56:�&938
��
�:
�� �ace(n%)
�+� X%+60,Y%-80:�n%,n%+1,8,8,10,n%+2,n%+3
��
�

00000000  0d 00 0a 16 f4 20 53 49  58 54 59 20 53 49 58 20  |..... SIXTY SIX |
00000010  76 2e 32 2e 32 33 0d 00  14 19 f4 20 62 79 20 4d  |v.2.23..... by M|
00000020  2e 42 6f 62 72 6f 77 73  6b 69 20 34 27 39 34 0d  |.Bobrowski 4'94.|
00000030  00 1e 05 3a 0d 00 28 09  f2 69 6e 69 74 0d 00 32  |...:..(..init..2|
00000040  0c f5 3a f2 72 65 73 65  74 0d 00 3c 12 f2 73 68  |..:.reset..<..sh|
00000050  75 66 66 6c 65 3a f2 64  65 61 6c 0d 00 46 10 f2  |uffle:.deal..F..|
00000060  67 61 6d 65 3a f2 73 63  6f 72 65 0d 00 50 0f fd  |game:.score..P..|
00000070  20 65 6e 64 25 3a f2 65  6e 64 0d 00 5a 0b eb 20  | end%:.end..Z.. |
00000080  31 33 31 3a e0 0d 00 64  05 3a 0d 03 e8 2b dd 20  |131:...d.:...+. |
00000090  f2 69 6e 69 74 3a de 20  56 25 28 31 29 2c 76 25  |.init:. V%(1),v%|
000000a0  28 31 29 2c 74 25 28 31  29 2c 70 25 28 31 29 2c  |(1),t%(1),p%(1),|
000000b0  72 25 28 31 29 0d 03 f2  39 47 25 3d b3 28 32 29  |r%(1)...9G%=.(2)|
000000c0  2d 31 3a 65 6e 64 25 3d  a3 3a 72 25 28 30 29 3d  |-1:end%=.:r%(0)=|
000000d0  30 3a 72 25 28 31 29 3d  30 3a 6e 75 6d 24 3d 22  |0:r%(1)=0:num$="|
000000e0  41 22 2b bd 32 32 38 2b  22 4b 51 4a 39 22 0d 03  |A"+.228+"KQJ9"..|
000000f0  fc 05 e1 0d 04 06 05 3a  0d 04 10 0c dd 20 f2 72  |.......:..... .r|
00000100  65 73 65 74 0d 04 1a 2d  e6 30 2c 31 33 30 3a f2  |eset...-.0,130:.|
00000110  77 69 6e 64 6f 77 28 31  29 3a e3 49 25 3d 32 b8  |window(1):.I%=2.|
00000120  35 3a f2 77 69 6e 64 6f  77 28 49 25 29 3a da 3a  |5:.window(I%):.:|
00000130  ed 0d 04 24 33 e3 49 25  3d 30 b8 31 3a 70 25 28  |...$3.I%=0.1:p%(|
00000140  49 25 29 3d 30 3a 74 25  28 49 25 29 3d 30 3a ed  |I%)=0:t%(I%)=0:.|
00000150  3a 52 25 3d b3 28 2d 91  29 3a 4d 25 3d 37 3a 6d  |:R%=.(-.):M%=7:m|
00000160  73 25 3d 30 0d 04 2e 05  e1 0d 04 38 05 3a 0d 04  |s%=0.......8.:..|
00000170  42 0e dd 20 f2 73 68 75  66 66 6c 65 0d 04 4c 1a  |B.. .shuffle..L.|
00000180  e3 20 49 25 3d 31 20 b8  20 32 34 3a 41 25 3f 49  |. I%=1 . 24:A%?I|
00000190  25 3d 49 25 3a ed 0d 04  56 21 e3 20 49 25 3d 31  |%=I%:...V!. I%=1|
000001a0  20 b8 20 32 34 3a 52 25  3d b3 28 32 34 29 3a 4a  | . 24:R%=.(24):J|
000001b0  25 3d 41 25 3f 52 25 0d  04 60 1a 41 25 3f 52 25  |%=A%?R%..`.A%?R%|
000001c0  3d 41 25 3f 49 25 3a 41  25 3f 49 25 3d 4a 25 3a  |=A%?I%:A%?I%=J%:|
000001d0  ed 0d 04 6a 05 e1 0d 04  74 05 3a 0d 04 7e 0b dd  |...j....t.:..~..|
000001e0  20 f2 64 65 61 6c 0d 04  88 2e e3 49 25 3d 31 b8  | .deal.....I%=1.|
000001f0  36 3a 50 25 3f 49 25 3d  41 25 3f 49 25 3a ed 3a  |6:P%?I%=A%?I%:.:|
00000200  3f 50 25 3d 36 3a 48 25  3d 50 25 3a f2 73 6f 72  |?P%=6:H%=P%:.sor|
00000210  74 28 36 29 0d 04 92 32  e3 49 25 3d 31 b8 36 3a  |t(6)...2.I%=1.6:|
00000220  43 25 3f 49 25 3d 41 25  3f 28 49 25 2b 36 29 3a  |C%?I%=A%?(I%+6):|
00000230  ed 3a 3f 43 25 3d 36 3a  48 25 3d 43 25 3a f2 73  |.:?C%=6:H%=C%:.s|
00000240  6f 72 74 28 36 29 0d 04  9c 18 74 72 25 3d 41 25  |ort(6)....tr%=A%|
00000250  3f 32 34 3a 54 25 3d a4  73 28 74 72 25 29 0d 04  |?24:T%=.s(tr%)..|
00000260  a6 0c 70 6f 25 3d 31 33  3a e1 0d 04 b0 05 3a 0d  |..po%=13:.....:.|
00000270  04 ba 0b dd 20 f2 67 61  6d 65 0d 04 c4 0f f2 68  |.... .game.....h|
00000280  61 6e 64 3a f2 70 61 63  6b 0d 04 ce 44 70 68 25  |and:.pack...Dph%|
00000290  3d 31 3a f5 3a f2 77 69  6e 64 6f 77 28 32 29 3a  |=1:.:.window(2):|
000002a0  da 3a f2 77 69 6e 64 6f  77 28 35 29 3a e6 30 2c  |.:.window(5):.0,|
000002b0  30 3a ef 35 3a e7 20 70  6f 25 3e 31 35 20 58 25  |0:.5:. po%>15 X%|
000002c0  3d 39 32 30 20 8b 20 58  25 3d 39 30 34 0d 04 d8  |=920 . X%=904...|
000002d0  22 ec 20 58 25 2c 35 31  31 3a f1 22 50 61 63 6b  |". X%,511:."Pack|
000002e0  3a 22 3b c3 28 32 35 2d  70 6f 25 29 3a ef 34 0d  |:";.(25-po%):.4.|
000002f0  04 e2 2d f2 77 69 6e 64  6f 77 28 31 29 3a e3 20  |..-.window(1):. |
00000300  72 6f 25 3d 31 20 b8 20  32 3a e7 20 47 25 20 48  |ro%=1 . 2:. G% H|
00000310  25 3d 43 25 20 8b 20 48  25 3d 50 25 0d 04 ec 17  |%=C% . H%=P%....|
00000320  e7 20 72 6f 25 3d 31 20  4c 25 3d b9 20 8b 20 4c  |. ro%=1 L%=. . L|
00000330  25 3d a3 0d 04 f6 2a f2  67 6f 28 47 25 29 3a 56  |%=....*.go(G%):V|
00000340  25 28 47 25 29 3d 4e 25  3a e7 20 4d 25 3d 30 3a  |%(G%)=N%:. M%=0:|
00000350  72 6f 25 3d 32 3a ed 3a  fd 20 b9 3a e1 0d 05 00  |ro%=2:.:. .:....|
00000360  16 f2 74 61 62 6c 65 28  4e 25 29 3a f2 64 65 6c  |..table(N%):.del|
00000370  65 74 65 0d 05 0a 12 47  25 3d 28 47 25 2b 31 29  |ete....G%=(G%+1)|
00000380  83 20 32 3a ed 0d 05 14  17 f2 65 76 61 6c 75 61  |. 2:......evalua|
00000390  74 65 3a f2 67 65 74 63  61 72 64 73 0d 05 1e 50  |te:.getcards...P|
000003a0  fd 20 70 6f 25 3d 32 35  3a f2 77 69 6e 64 6f 77  |. po%=25:.window|
000003b0  28 35 29 3a f2 77 69 6e  64 6f 77 28 33 29 3a da  |(5):.window(3):.|
000003c0  3a e6 30 2c 33 3a ef 35  3a ec 20 39 39 32 2c 37  |:.0,3:.5:. 992,7|
000003d0  30 30 3a f1 22 54 72 75  6d 70 73 3a 22 3a e6 30  |00:."Trumps:":.0|
000003e0  2c 31 3a ec 20 39 39 32  2c 36 32 30 0d 05 28 48  |,1:. 992,620..(H|
000003f0  e7 20 54 25 3d 31 20 f1  22 48 65 61 72 74 73 22  |. T%=1 ."Hearts"|
00000400  20 8b 20 e7 20 54 25 3d  32 20 f1 22 53 70 61 64  | . . T%=2 ."Spad|
00000410  65 73 22 20 8b 20 e7 20  54 25 3d 33 20 f1 22 44  |es" . . T%=3 ."D|
00000420  69 61 6d 6f 6e 64 73 22  3b 20 8b 20 f1 22 43 6c  |iamonds"; . ."Cl|
00000430  75 62 73 22 0d 05 32 11  ef 34 3a f2 77 69 6e 64  |ubs"..2..4:.wind|
00000440  6f 77 28 31 29 0d 05 3c  37 70 68 25 3d 32 3a f5  |ow(1)..<7ph%=2:.|
00000450  3a f2 77 69 6e 64 6f 77  28 32 29 3a da 3a e3 20  |:.window(2):.:. |
00000460  72 6f 25 3d 31 20 b8 20  32 3a e7 20 47 25 20 48  |ro%=1 . 2:. G% H|
00000470  25 3d 43 25 20 8b 20 48  25 3d 50 25 0d 05 46 17  |%=C% . H%=P%..F.|
00000480  e7 20 72 6f 25 3d 31 20  4c 25 3d b9 20 8b 20 4c  |. ro%=1 L%=. . L|
00000490  25 3d a3 0d 05 50 2a f2  67 6f 28 47 25 29 3a 56  |%=...P*.go(G%):V|
000004a0  25 28 47 25 29 3d 4e 25  3a e7 20 4d 25 3d 30 3a  |%(G%)=N%:. M%=0:|
000004b0  72 6f 25 3d 32 3a ed 3a  fd 20 b9 3a e1 0d 05 5a  |ro%=2:.:. .:...Z|
000004c0  23 f2 74 61 62 6c 65 28  4e 25 29 3a f2 64 65 6c  |#.table(N%):.del|
000004d0  65 74 65 3a e7 20 47 25  3d 30 20 f2 68 61 6e 64  |ete:. G%=0 .hand|
000004e0  0d 05 64 12 47 25 3d 28  47 25 2b 31 29 83 20 32  |..d.G%=(G%+1). 2|
000004f0  3a ed 0d 05 6e 0d f2 65  76 61 6c 75 61 74 65 0d  |:...n..evaluate.|
00000500  05 78 1c fd 20 28 3f 43  25 3d 30 20 80 20 3f 50  |.x.. (?C%=0 . ?P|
00000510  25 3d 30 29 20 84 20 4d  25 3d 30 0d 05 82 05 e1  |%=0) . M%=0.....|
00000520  0d 05 8c 05 3a 0d 05 96  0d dd 20 f2 67 6f 28 47  |....:..... .go(G|
00000530  25 29 0d 05 a0 14 e7 20  47 25 3d 31 20 f2 63 6f  |%)..... G%=1 .co|
00000540  6d 70 67 6f 3a e1 0d 05  aa 27 e7 20 ac 20 4c 25  |mpgo:....'. . L%|
00000550  20 80 20 3f 50 25 3d 31  3a 4e 25 3d 50 25 3f 31  | . ?P%=1:N%=P%?1|
00000560  3a 70 73 25 3d a4 73 28  4e 25 29 3a e1 0d 05 b4  |:ps%=.s(N%):....|
00000570  05 f5 0d 05 be 12 db 3a  e7 20 4c 25 20 fb 31 20  |.......:. L% .1 |
00000580  8b 20 fb 32 0d 05 c8 11  f1 22 59 6f 75 72 20 67  |. .2....."Your g|
00000590  6f 22 3a fb 32 0d 05 d2  53 d4 31 2c 34 2c 32 30  |o":.2...S.1,4,20|
000005a0  30 2c 31 30 3a f5 3a 4d  25 3d a5 2d 34 38 3a fd  |0,10:.:M%=.-48:.|
000005b0  20 4d 25 3e 3d 30 20 80  20 4d 25 3c 3d 3f 50 25  | M%>=0 . M%<=?P%|
000005c0  3a e7 20 3f 50 25 3d 31  20 80 20 4d 25 3d 31 20  |:. ?P%=1 . M%=1 |
000005d0  4e 25 3d 50 25 3f 31 3a  70 73 25 3d a4 73 28 4e  |N%=P%?1:ps%=.s(N|
000005e0  25 29 3a fd 20 b9 3a e1  0d 05 dc 76 e7 20 4c 25  |%):. .:....v. L%|
000005f0  20 80 20 4d 25 3d 30 20  80 20 70 25 28 30 29 3e  | . M%=0 . p%(0)>|
00000600  3d 36 36 20 fd 20 b9 3a  e1 20 8b 20 e7 20 4d 25  |=66 . .:. . . M%|
00000610  3d 30 20 d4 31 2c 33 2c  38 2c 33 30 3a fb 31 3a  |=0 .1,3,8,30:.1:|
00000620  f1 22 53 63 6f 72 65 20  74 6f 6f 20 6c 6f 77 22  |."Score too low"|
00000630  3a fb 32 3a f1 27 22 50  65 6e 61 6c 74 79 3a 20  |:.2:.'"Penalty: |
00000640  2d 31 30 22 3b 3a f2 77  61 69 74 3a 70 25 28 30  |-10";:.wait:p%(0|
00000650  29 3d 70 25 28 30 29 2d  31 30 3a fd 20 a3 0d 05  |)=p%(0)-10:. ...|
00000660  e6 22 4e 25 3d 50 25 3f  4d 25 3a 70 76 25 3d a4  |."N%=P%?M%:pv%=.|
00000670  6e 28 4e 25 29 3a 70 73  25 3d a4 73 28 4e 25 29  |n(N%):ps%=.s(N%)|
00000680  0d 05 f0 38 e7 20 4c 25  20 80 20 70 6f 25 3c 32  |...8. L% . po%<2|
00000690  34 20 80 20 70 76 25 3d  36 20 80 20 70 73 25 3d  |4 . pv%=6 . ps%=|
000006a0  54 25 20 80 20 74 25 28  30 29 3e 30 20 f2 63 68  |T% . t%(0)>0 .ch|
000006b0  61 6e 67 65 3a fd 20 a3  0d 05 fa 1f 63 68 25 3d  |ange:. .....ch%=|
000006c0  b9 3a e7 20 70 68 25 3d  32 20 80 20 ac 20 4c 25  |.:. ph%=2 . . L%|
000006d0  20 f2 63 68 65 63 6b 0d  06 04 09 fd 20 63 68 25  | .check..... ch%|
000006e0  0d 06 0e 24 e7 20 4c 25  20 80 20 74 25 28 30 29  |...$. L% . t%(0)|
000006f0  3e 30 20 80 20 70 76 25  3d 34 20 f2 6d 61 72 72  |>0 . pv%=4 .marr|
00000700  69 61 67 65 0d 06 18 05  e1 0d 06 22 05 3a 0d 06  |iage.......".:..|
00000710  2c 0d dd 20 f2 63 6f 6d  70 67 6f 0d 06 36 1c e7  |,.. .compgo..6..|
00000720  20 4c 25 20 f2 63 6f 6d  70 67 6f 31 20 8b 20 f2  | L% .compgo1 . .|
00000730  63 6f 6d 70 67 6f 32 0d  06 40 0c e7 20 4d 25 3d  |compgo2..@.. M%=|
00000740  30 20 e1 0d 06 4a 09 f2  77 61 69 74 0d 06 54 0e  |0 ...J..wait..T.|
00000750  63 73 25 3d a4 73 28 4e  25 29 0d 06 5e 05 e1 0d  |cs%=.s(N%)..^...|
00000760  06 68 05 3a 0d 06 72 0e  dd 20 f2 63 6f 6d 70 67  |.h.:..r.. .compg|
00000770  6f 31 0d 06 7c 14 db 3a  fb 31 3a f1 22 4d 79 20  |o1..|..:.1:."My |
00000780  67 6f 22 3a fb 32 0d 06  86 16 e7 20 70 25 28 31  |go":.2..... p%(1|
00000790  29 3e 3d 36 36 20 4d 25  3d 30 3a e1 0d 06 90 15  |)>=66 M%=0:.....|
000007a0  e7 20 3f 43 25 3d 31 20  4e 25 3d 43 25 3f 31 3a  |. ?C%=1 N%=C%?1:|
000007b0  e1 0d 06 9a 2f e7 20 74  25 28 31 29 3e 30 20 80  |..../. t%(1)>0 .|
000007c0  20 70 6f 25 3c 32 34 20  f2 6e 69 6e 65 3a e7 20  | po%<24 .nine:. |
000007d0  46 25 20 f2 63 68 61 6e  67 65 3a e5 8d 44 7c 46  |F% .change:..D|F|
000007e0  0d 06 a4 1a e7 20 74 25  28 31 29 3e 30 20 f2 70  |..... t%(1)>0 .p|
000007f0  61 69 72 3a e7 20 46 25  20 e1 0d 06 ae 2e 42 25  |air:. F% .....B%|
00000800  3d a4 73 65 31 3a e7 20  42 25 20 4e 25 3d 43 25  |=.se1:. B% N%=C%|
00000810  3f 6e 25 20 8b 20 52 25  3d b3 28 3f 43 25 29 3a  |?n% . R%=.(?C%):|
00000820  4e 25 3d 43 25 3f 52 25  0d 06 b8 05 e1 0d 06 c2  |N%=C%?R%........|
00000830  05 3a 0d 06 cc 0e dd 20  f2 63 6f 6d 70 67 6f 32  |.:..... .compgo2|
00000840  0d 06 d6 23 db 3a fb 32  3a f1 22 4d 79 20 67 6f  |...#.:.2:."My go|
00000850  22 3a e7 20 3f 43 25 3d  31 20 4e 25 3d 43 25 3f  |":. ?C%=1 N%=C%?|
00000860  31 3a e1 0d 06 e0 1d e7  20 70 68 25 3d 31 20 42  |1:...... ph%=1 B|
00000870  25 3d a4 73 65 32 20 8b  20 42 25 3d a4 73 65 33  |%=.se2 . B%=.se3|
00000880  0d 06 ea 26 e7 20 42 25  20 4e 25 3d 43 25 3f 6e  |...&. B% N%=C%?n|
00000890  25 20 8b 20 52 25 3d b3  28 3f 43 25 29 3a 4e 25  |% . R%=.(?C%):N%|
000008a0  3d 43 25 3f 52 25 0d 06  f4 05 e1 0d 06 fe 05 3a  |=C%?R%.........:|
000008b0  0d 07 08 0f dd 20 f2 65  76 61 6c 75 61 74 65 0d  |..... .evaluate.|
000008c0  07 12 2b e3 20 49 25 3d  30 20 b8 20 31 3a 6e 25  |..+. I%=0 . 1:n%|
000008d0  3d a4 6e 28 56 25 28 49  25 29 29 3a 76 25 28 49  |=.n(V%(I%)):v%(I|
000008e0  25 29 3d 57 25 3f 6e 25  3a ed 0d 07 1c 2b e7 20  |%)=W%?n%:....+. |
000008f0  70 73 25 3d 63 73 25 20  e7 20 76 25 28 30 29 3e  |ps%=cs% . v%(0)>|
00000900  76 25 28 31 29 20 47 25  3d 30 3a 55 25 3d b9 3a  |v%(1) G%=0:U%=.:|
00000910  e5 8d 44 4e 47 0d 07 26  2b e7 20 70 73 25 3d 63  |..DNG..&+. ps%=c|
00000920  73 25 20 e7 20 76 25 28  30 29 3c 76 25 28 31 29  |s% . v%(0)<v%(1)|
00000930  20 47 25 3d 31 3a 55 25  3d a3 3a e5 8d 44 4e 47  | G%=1:U%=.:..DNG|
00000940  0d 07 30 1c e7 20 70 73  25 3d 54 25 20 47 25 3d  |..0.. ps%=T% G%=|
00000950  30 3a 55 25 3d b9 3a e5  8d 44 4e 47 0d 07 3a 1c  |0:U%=.:..DNG..:.|
00000960  e7 20 63 73 25 3d 54 25  20 47 25 3d 31 3a 55 25  |. cs%=T% G%=1:U%|
00000970  3d a3 3a e5 8d 44 4e 47  0d 07 44 21 e7 20 70 73  |=.:..DNG..D!. ps|
00000980  25 3c 3e 63 73 25 20 e7  20 47 25 3d 30 20 55 25  |%<>cs% . G%=0 U%|
00000990  3d b9 20 8b 20 55 25 3d  a3 0d 07 4e 65 73 75 6d  |=. . U%=...Nesum|
000009a0  25 3d 76 25 28 30 29 2b  76 25 28 31 29 3a db 3a  |%=v%(0)+v%(1):.:|
000009b0  fb 31 3a 74 25 28 47 25  29 3d 74 25 28 47 25 29  |.1:t%(G%)=t%(G%)|
000009c0  2b 31 3a fb 33 3a e7 20  55 25 20 70 25 28 30 29  |+1:.3:. U% p%(0)|
000009d0  3d 70 25 28 30 29 2b 73  75 6d 25 3a f1 22 59 6f  |=p%(0)+sum%:."Yo|
000009e0  75 72 22 3b 20 8b 20 70  25 28 31 29 3d 70 25 28  |ur"; . p%(1)=p%(|
000009f0  31 29 2b 73 75 6d 25 3a  f1 22 4d 79 22 3b 0d 07  |1)+sum%:."My";..|
00000a00  58 15 f1 22 20 74 72 69  63 6b 22 3a f2 77 61 69  |X.." trick":.wai|
00000a10  74 3a e1 0d 07 62 05 3a  0d 07 6c 0b dd 20 f2 68  |t:...b.:..l.. .h|
00000a20  61 6e 64 0d 07 76 21 e6  30 2c 31 33 30 3a f2 77  |and..v!.0,130:.w|
00000a30  69 6e 64 6f 77 28 34 29  3a da 3a e7 20 3f 50 25  |indow(4):.:. ?P%|
00000a40  3d 30 20 e1 0d 07 80 35  e3 20 49 25 3d 31 20 b8  |=0 ....5. I%=1 .|
00000a50  20 3f 50 25 3a 58 25 3d  49 25 2a 31 39 32 2d 31  | ?P%:X%=I%*192-1|
00000a60  32 38 3a 59 25 3d 34 34  37 3a f2 64 69 73 70 6c  |28:Y%=447:.displ|
00000a70  61 79 28 50 25 3f 49 25  29 0d 07 8a 07 ed 3a e1  |ay(P%?I%).....:.|
00000a80  0d 07 94 05 3a 0d 07 9e  12 dd 20 f2 64 69 73 70  |....:..... .disp|
00000a90  6c 61 79 28 5a 25 29 0d  07 a8 40 53 25 3d a4 73  |lay(Z%)...@S%=.s|
00000aa0  28 5a 25 29 3a 4b 25 3d  a4 6e 28 5a 25 29 3a 21  |(Z%):K%=.n(Z%):!|
00000ab0  26 37 38 3d 26 33 30 30  30 2b 58 25 81 32 2b 26  |&78=&3000+X%.2+&|
00000ac0  32 38 30 2a 28 31 30 32  33 2d 59 25 29 81 33 32  |280*(1023-Y%).32|
00000ad0  3a d6 20 26 39 39 38 0d  07 b2 8b e6 30 2c 53 25  |:. &998.....0,S%|
00000ae0  83 32 3a ef 35 3a ec 20  58 25 2b 38 2d 34 2a 28  |.2:.5:. X%+8-4*(|
00000af0  4b 25 3d 32 29 2c 59 25  2d 31 32 3a f1 c1 6e 75  |K%=2),Y%-12:..nu|
00000b00  6d 24 2c 4b 25 2c 31 29  3a ec 20 58 25 2b 38 2c  |m$,K%,1):. X%+8,|
00000b10  59 25 2d 34 34 3a ef 28  32 32 33 2b 53 25 29 3a  |Y%-44:.(223+S%):|
00000b20  e7 20 4b 25 3d 31 20 f2  61 63 65 28 32 33 36 2b  |. K%=1 .ace(236+|
00000b30  53 25 2a 34 29 20 8b 20  e7 20 4b 25 3e 32 20 80  |S%*4) . . K%>2 .|
00000b40  20 4b 25 3c 36 20 f2 66  61 63 65 28 26 42 30 30  | K%<6 .face(&B00|
00000b50  2b 28 4b 25 2d 33 29 2a  37 32 29 20 8b 20 f2 70  |+(K%-3)*72) . .p|
00000b60  69 70 0d 07 bc 08 ef 34  3a e1 0d 07 c6 05 3a 0d  |ip.....4:.....:.|
00000b70  07 d0 0b dd 20 f2 70 61  63 6b 0d 07 da 2a 58 25  |.... .pack...*X%|
00000b80  3d 38 39 36 3a 59 25 3d  37 36 37 3a f2 77 69 6e  |=896:Y%=767:.win|
00000b90  64 6f 77 28 33 29 3a f2  64 69 73 70 6c 61 79 28  |dow(3):.display(|
00000ba0  74 72 25 29 0d 07 e4 31  21 26 37 38 3d 26 34 35  |tr%)...1!&78=&45|
00000bb0  44 38 3a d6 26 39 39 38  3a e6 30 2c 30 3a f0 36  |D8:.&998:.0,0:.6|
00000bc0  39 2c 39 34 34 2c 37 36  37 3a f0 36 39 2c 39 34  |9,944,767:.69,94|
00000bd0  34 2c 35 34 37 0d 07 ee  37 e6 30 2c 31 3a ef 35  |4,547...7.0,1:.5|
00000be0  3a e3 20 59 25 3d 37 34  37 20 b8 20 35 36 37 20  |:. Y%=747 . 567 |
00000bf0  88 2d 33 32 3a ec 20 39  36 34 2c 59 25 3a f1 c4  |.-32:. 964,Y%:..|
00000c00  35 2c bd 32 32 39 29 3a  ed 3a ef 34 0d 07 f8 05  |5,.229):.:.4....|
00000c10  e1 0d 08 02 05 3a 0d 08  0c 10 dd 20 f2 74 61 62  |.....:..... .tab|
00000c20  6c 65 28 4e 25 29 0d 08  16 19 f2 77 69 6e 64 6f  |le(N%).....windo|
00000c30  77 28 32 29 3a d4 30 2c  2d 31 30 2c 35 2c 32 0d  |w(2):.0,-10,5,2.|
00000c40  08 20 1f 59 25 3d 37 36  37 3a e7 20 4c 25 20 58  |. .Y%=767:. L% X|
00000c50  25 3d 32 35 36 20 8b 20  58 25 3d 34 34 38 0d 08  |%=256 . X%=448..|
00000c60  2a 10 f2 64 69 73 70 6c  61 79 28 4e 25 29 0d 08  |*..display(N%)..|
00000c70  34 05 e1 0d 08 3e 05 3a  0d 08 48 0d dd 20 f2 64  |4....>.:..H.. .d|
00000c80  65 6c 65 74 65 0d 08 52  26 e3 49 25 3d 31 b8 20  |elete..R&.I%=1. |
00000c90  3f 48 25 3a e7 20 48 25  3f 49 25 3d 4e 25 20 51  |?H%:. H%?I%=N% Q|
00000ca0  25 3d 49 25 3a 49 25 3d  3f 48 25 0d 08 5c 25 ed  |%=I%:I%=?H%..\%.|
00000cb0  3a e3 49 25 3d 51 25 b8  20 3f 48 25 2d 31 3a 48  |:.I%=Q%. ?H%-1:H|
00000cc0  25 3f 49 25 3d 48 25 3f  28 49 25 2b 31 29 3a ed  |%?I%=H%?(I%+1):.|
00000cd0  0d 08 66 18 48 25 3f 28  3f 48 25 29 3d 30 3a 3f  |..f.H%?(?H%)=0:?|
00000ce0  48 25 3d 3f 48 25 2d 31  0d 08 70 15 e7 20 70 68  |H%=?H%-1..p.. ph|
00000cf0  25 3d 32 20 84 20 48 25  3d 43 25 20 e1 0d 08 7a  |%=2 . H%=C% ...z|
00000d00  1a e6 30 2c 32 3a f2 77  69 6e 64 6f 77 28 34 29  |..0,2:.window(4)|
00000d10  3a 59 25 3d 34 34 37 0d  08 84 44 58 25 3d 51 25  |:Y%=447...DX%=Q%|
00000d20  2a 31 39 32 2d 31 32 38  3a ec 20 58 25 2c 59 25  |*192-128:. X%,Y%|
00000d30  3a ec 58 25 2b 31 38 30  2c 59 25 3a f0 38 35 2c  |:.X%+180,Y%:.85,|
00000d40  58 25 2c 59 25 2d 32 32  34 3a f0 38 35 2c 58 25  |X%,Y%-224:.85,X%|
00000d50  2b 31 38 30 2c 59 25 2d  32 32 34 0d 08 8e 05 e1  |+180,Y%-224.....|
00000d60  0d 08 98 05 3a 0d 08 a2  0f dd 20 f2 67 65 74 63  |....:..... .getc|
00000d70  61 72 64 73 0d 08 ac 22  e7 20 55 25 20 f2 67 65  |ards...". U% .ge|
00000d80  74 28 50 25 29 3a f2 68  61 6e 64 3a f2 67 65 74  |t(P%):.hand:.get|
00000d90  28 43 25 29 3a e1 0d 08  b6 1b f2 67 65 74 28 43  |(C%):......get(C|
00000da0  25 29 3a f2 67 65 74 28  50 25 29 3a f2 68 61 6e  |%):.get(P%):.han|
00000db0  64 0d 08 c0 05 e1 0d 08  ca 05 3a 0d 08 d4 0e dd  |d.........:.....|
00000dc0  20 f2 67 65 74 28 48 25  29 0d 08 de 0d 3f 48 25  | .get(H%)....?H%|
00000dd0  3d 3f 48 25 2b 31 0d 08  e8 1d 48 25 3f 28 3f 48  |=?H%+1....H%?(?H|
00000de0  25 29 3d 41 25 3f 70 6f  25 3a 70 6f 25 3d 70 6f  |%)=A%?po%:po%=po|
00000df0  25 2b 31 0d 08 f2 10 f2  73 6f 72 74 28 3f 48 25  |%+1.....sort(?H%|
00000e00  29 3a e1 0d 08 fc 05 3a  0d 09 06 18 dd 20 f2 73  |):.....:..... .s|
00000e10  6f 72 74 28 44 25 29 3a  e7 20 44 25 3c 32 20 e1  |ort(D%):. D%<2 .|
00000e20  0d 09 10 1a ea 20 42 25  3a e3 20 4a 25 3d 31 b8  |..... B%:. J%=1.|
00000e30  44 25 2d 31 3a 5a 25 3d  4a 25 0d 09 1a 12 e3 20  |D%-1:Z%=J%..... |
00000e40  49 25 3d 5a 25 2b 31 20  b8 20 44 25 0d 09 24 17  |I%=Z%+1 . D%..$.|
00000e50  e7 20 48 25 3f 5a 25 3e  48 25 3f 49 25 20 5a 25  |. H%?Z%>H%?I% Z%|
00000e60  3d 49 25 0d 09 2e 05 ed  0d 09 38 21 42 25 3d 48  |=I%.......8!B%=H|
00000e70  25 3f 4a 25 3a 48 25 3f  4a 25 3d 48 25 3f 5a 25  |%?J%:H%?J%=H%?Z%|
00000e80  3a 48 25 3f 5a 25 3d 42  25 0d 09 42 07 ed 3a e1  |:H%?Z%=B%..B..:.|
00000e90  0d 09 4c 05 3a 0d 09 56  0c dd 20 f2 63 68 65 63  |..L.:..V.. .chec|
00000ea0  6b 0d 09 60 0f e7 20 70  73 25 3d 63 73 25 20 e1  |k..`.. ps%=cs% .|
00000eb0  0d 09 6a 28 46 25 3d a3  3a e3 20 49 25 3d 31 20  |..j(F%=.:. I%=1 |
00000ec0  b8 20 3f 50 25 3a 51 25  3d 49 25 3f 50 25 3a 73  |. ?P%:Q%=I%?P%:s|
00000ed0  25 3d a4 73 28 51 25 29  0d 09 74 18 e7 20 73 25  |%=.s(Q%)..t.. s%|
00000ee0  3d 63 73 25 20 46 25 3d  b9 3a 49 25 3d 3f 50 25  |=cs% F%=.:I%=?P%|
00000ef0  0d 09 7e 17 ed 3a e7 20  46 25 20 63 68 25 3d a3  |..~..:. F% ch%=.|
00000f00  3a f2 62 61 64 3a e1 0d  09 88 0e e7 20 70 73 25  |:.bad:...... ps%|
00000f10  3d 54 25 20 e1 0d 09 92  23 e3 20 49 25 3d 31 20  |=T% ....#. I%=1 |
00000f20  b8 20 3f 50 25 3a 51 25  3d 49 25 3f 50 25 3a 73  |. ?P%:Q%=I%?P%:s|
00000f30  25 3d a4 73 28 51 25 29  0d 09 9c 17 e7 20 73 25  |%=.s(Q%)..... s%|
00000f40  3d 54 25 20 46 25 3d b9  3a 49 25 3d 3f 50 25 0d  |=T% F%=.:I%=?P%.|
00000f50  09 a6 17 ed 3a e7 20 46  25 20 63 68 25 3d a3 3a  |....:. F% ch%=.:|
00000f60  f2 62 61 64 3a e1 0d 09  b0 05 e1 0d 09 ba 05 3a  |.bad:..........:|
00000f70  0d 09 c4 0d dd 20 f2 63  68 61 6e 67 65 0d 09 ce  |..... .change...|
00000f80  10 e7 20 47 25 3d 30 20  6e 25 3d 4d 25 0d 09 d8  |.. G%=0 n%=M%...|
00000f90  28 51 25 3d 48 25 3f 6e  25 3a 48 25 3f 6e 25 3d  |(Q%=H%?n%:H%?n%=|
00000fa0  41 25 3f 32 34 3a 41 25  3f 32 34 3d 51 25 3a 74  |A%?24:A%?24=Q%:t|
00000fb0  72 25 3d 51 25 0d 09 e2  21 f2 70 61 63 6b 3a f2  |r%=Q%...!.pack:.|
00000fc0  73 6f 72 74 28 3f 48 25  29 3a e7 20 47 25 3d 30  |sort(?H%):. G%=0|
00000fd0  20 f2 68 61 6e 64 0d 09  ec 30 db 3a fb 31 3a f1  | .hand...0.:.1:.|
00000fe0  22 45 78 63 68 61 6e 67  65 22 3a d4 31 2c 31 2c  |"Exchange":.1,1,|
00000ff0  31 32 30 2c 34 3a d4 31  2c 31 2c 31 30 30 2c 34  |120,4:.1,1,100,4|
00001000  3a f2 77 61 69 74 0d 09  f6 05 e1 0d 0a 00 05 3a  |:.wait.........:|
00001010  0d 0a 0a 0f dd 20 f2 6d  61 72 72 69 61 67 65 0d  |..... .marriage.|
00001020  0a 14 43 e7 20 47 25 3d  30 20 fb 33 3a f1 27 22  |..C. G%=0 .3:.'"|
00001030  50 61 69 72 20 3f 20 22  3b 3a f5 3a 47 24 3d be  |Pair ? ";:.:G$=.|
00001040  3a fd a7 22 59 79 4e 6e  22 2c 47 24 29 3a f1 47  |:.."YyNn",G$):.G|
00001050  24 3a fb 31 3a e7 20 a7  22 4e 6e 22 2c 47 24 29  |$:.1:. ."Nn",G$)|
00001060  20 e1 0d 0a 1e 58 e7 20  47 25 3d 30 20 80 20 4d  | ....X. G%=0 . M|
00001070  25 3e 31 20 80 20 50 25  3f 28 4d 25 2d 31 29 3d  |%>1 . P%?(M%-1)=|
00001080  4e 25 2d 31 20 6d 73 25  3d 70 73 25 20 8b 20 e7  |N%-1 ms%=ps% . .|
00001090  20 47 25 3d 30 20 d4 31  2c 32 2c 37 36 2c 38 3a  | G%=0 .1,2,76,8:|
000010a0  fb 32 3a f1 27 22 44 6f  6e 27 74 20 63 68 65 61  |.2:.'"Don't chea|
000010b0  74 22 3a f2 77 61 69 74  3a e1 0d 0a 28 17 e7 20  |t":.wait:...(.. |
000010c0  47 25 3d 31 20 db 3a fb  31 3a f1 22 50 61 69 72  |G%=1 .:.1:."Pair|
000010d0  22 0d 0a 32 1c e7 20 6d  73 25 3d 54 25 20 62 6f  |"..2.. ms%=T% bo|
000010e0  25 3d 34 30 20 8b 20 62  6f 25 3d 32 30 0d 0a 3c  |%=40 . bo%=20..<|
000010f0  42 70 25 28 47 25 29 3d  70 25 28 47 25 29 2b 62  |Bp%(G%)=p%(G%)+b|
00001100  6f 25 3a f1 27 22 42 6f  6e 75 73 3a 20 22 3b 62  |o%:.'"Bonus: ";b|
00001110  6f 25 3b 3a d4 31 2c 31  2c 31 32 30 2c 34 3a d4  |o%;:.1,1,120,4:.|
00001120  31 2c 31 2c 31 30 30 2c  34 3a f2 77 61 69 74 0d  |1,1,100,4:.wait.|
00001130  0a 46 05 e1 0d 0a 50 05  3a 0d 0a 5a 0b dd 20 f2  |.F....P.:..Z.. .|
00001140  6e 69 6e 65 0d 0a 64 47  46 25 3d a3 3a e3 20 49  |nine..dGF%=.:. I|
00001150  25 3d 31 20 b8 20 3f 43  25 3a 51 25 3d 43 25 3f  |%=1 . ?C%:Q%=C%?|
00001160  49 25 3a e7 20 54 25 3d  a4 73 28 51 25 29 20 80  |I%:. T%=.s(Q%) .|
00001170  20 a4 6e 28 51 25 29 3d  36 20 46 25 3d b9 3a 6e  | .n(Q%)=6 F%=.:n|
00001180  25 3d 49 25 3a 49 25 3d  3f 43 25 0d 0a 6e 07 ed  |%=I%:I%=?C%..n..|
00001190  3a e1 0d 0a 78 05 3a 0d  0a 82 0b dd 20 f2 70 61  |:...x.:..... .pa|
000011a0  69 72 0d 0a 8c 20 46 25  3d a3 3a 61 25 3d a4 6e  |ir... F%=.:a%=.n|
000011b0  28 48 25 3f 31 29 3a 62  25 3d a4 73 28 48 25 3f  |(H%?1):b%=.s(H%?|
000011c0  31 29 0d 0a 96 2a e3 20  49 25 3d 32 20 b8 20 3f  |1)...*. I%=2 . ?|
000011d0  48 25 3a 63 25 3d a4 6e  28 48 25 3f 49 25 29 3a  |H%:c%=.n(H%?I%):|
000011e0  64 25 3d a4 73 28 48 25  3f 49 25 29 0d 0a a0 2b  |d%=.s(H%?I%)...+|
000011f0  e7 20 63 25 3d 34 20 80  20 61 25 3d 33 20 80 20  |. c%=4 . a%=3 . |
00001200  64 25 3d 62 25 20 46 25  3d b9 3a 6e 25 3d 49 25  |d%=b% F%=.:n%=I%|
00001210  3a 6d 73 25 3d 64 25 0d  0a aa 11 61 25 3d 63 25  |:ms%=d%....a%=c%|
00001220  3a 62 25 3d 64 25 3a ed  0d 0a b4 0c e7 20 ac 20  |:b%=d%:...... . |
00001230  46 25 20 e1 0d 0a be 0c  4e 25 3d 43 25 3f 6e 25  |F% .....N%=C%?n%|
00001240  0d 0a c8 0d f2 6d 61 72  72 69 61 67 65 0d 0a d2  |.....marriage...|
00001250  05 e1 0d 0a dc 05 3a 0d  0a e6 17 dd 20 a4 73 28  |......:..... .s(|
00001260  4b 25 29 3d 28 4b 25 2d  31 29 81 36 2b 31 0d 0a  |K%)=(K%-1).6+1..|
00001270  f0 17 dd 20 a4 6e 28 4b  25 29 3d 28 4b 25 2d 31  |... .n(K%)=(K%-1|
00001280  29 83 36 2b 31 0d 0a fa  05 3a 0d 0b 04 0a dd 20  |).6+1....:..... |
00001290  a4 73 65 31 0d 0b 0e 1a  46 25 3d a3 3a e3 20 49  |.se1....F%=.:. I|
000012a0  25 3d 31 20 b8 20 3f 43  25 3a f2 76 61 6c 0d 0b  |%=1 . ?C%:.val..|
000012b0  18 20 e7 20 76 25 3e 34  20 80 20 ac 28 73 25 3d  |. . v%>4 . .(s%=|
000012c0  54 25 29 20 46 25 3d b9  3a 6e 25 3d 49 25 0d 0b  |T%) F%=.:n%=I%..|
000012d0  22 0f ed 3a e7 20 46 25  20 8c 3d 6e 25 0d 0b 2c  |"..:. F% .=n%..,|
000012e0  15 e3 20 49 25 3d 31 20  b8 20 3f 43 25 3a f2 76  |.. I%=1 . ?C%:.v|
000012f0  61 6c 0d 0b 36 20 e7 20  76 25 3c 33 20 80 20 ac  |al..6 . v%<3 . .|
00001300  28 73 25 3d 54 25 29 20  46 25 3d b9 3a 6e 25 3d  |(s%=T%) F%=.:n%=|
00001310  49 25 0d 0b 40 0f ed 3a  e7 20 46 25 20 8c 3d 6e  |I%..@..:. F% .=n|
00001320  25 0d 0b 4a 15 e3 20 49  25 3d 31 20 b8 20 3f 43  |%..J.. I%=1 . ?C|
00001330  25 3a f2 76 61 6c 0d 0b  54 26 e7 20 28 76 25 3d  |%:.val..T&. (v%=|
00001340  35 20 84 20 76 25 3c 33  29 20 80 20 73 25 3d 54  |5 . v%<3) . s%=T|
00001350  25 20 46 25 3d b9 3a 6e  25 3d 49 25 0d 0b 5e 14  |% F%=.:n%=I%..^.|
00001360  ed 3a e7 20 46 25 20 8c  3d 6e 25 20 8b 20 3d 30  |.:. F% .=n% . =0|
00001370  0d 0b 68 05 3a 0d 0b 72  0a dd 20 a4 73 65 32 0d  |..h.:..r.. .se2.|
00001380  0b 7c 1a 46 25 3d a3 3a  e3 20 49 25 3d 31 20 b8  |.|.F%=.:. I%=1 .|
00001390  20 3f 43 25 3a f2 76 61  6c 0d 0b 86 26 e7 20 73  | ?C%:.val...&. s|
000013a0  25 3d 70 73 25 20 80 20  70 76 25 3d 34 20 80 20  |%=ps% . pv%=4 . |
000013b0  76 25 3c 34 20 46 25 3d  b9 3a 6e 25 3d 49 25 0d  |v%<4 F%=.:n%=I%.|
000013c0  0b 90 0f ed 3a e7 20 46  25 20 8c 3d 6e 25 0d 0b  |....:. F% .=n%..|
000013d0  9a 15 e3 20 49 25 3d 31  20 b8 20 3f 43 25 3a f2  |... I%=1 . ?C%:.|
000013e0  76 61 6c 0d 0b a4 27 e7  20 73 25 3d 70 73 25 20  |val...'. s%=ps% |
000013f0  80 20 76 25 3c 70 76 25  20 80 20 76 25 3c 33 20  |. v%<pv% . v%<3 |
00001400  46 25 3d b9 3a 6e 25 3d  49 25 0d 0b ae 0f ed 3a  |F%=.:n%=I%.....:|
00001410  e7 20 46 25 20 8c 3d 6e  25 0d 0b b8 15 e3 20 49  |. F% .=n%..... I|
00001420  25 3d 31 20 b8 20 3f 43  25 3a f2 76 61 6c 0d 0b  |%=1 . ?C%:.val..|
00001430  c2 3a e7 20 73 25 3d 54  25 20 80 20 ac 28 70 73  |.:. s%=T% . .(ps|
00001440  25 3d 54 25 29 20 80 20  70 76 25 3c 34 20 80 20  |%=T%) . pv%<4 . |
00001450  28 76 25 3c 33 20 84 20  76 25 3d 35 29 20 46 25  |(v%<3 . v%=5) F%|
00001460  3d b9 3a 6e 25 3d 49 25  0d 0b cc 0f ed 3a e7 20  |=.:n%=I%.....:. |
00001470  46 25 20 8c 3d 6e 25 0d  0b d6 15 e3 20 49 25 3d  |F% .=n%..... I%=|
00001480  31 20 b8 20 3f 43 25 3a  f2 76 61 6c 0d 0b e0 20  |1 . ?C%:.val... |
00001490  e7 20 ac 28 73 25 3d 54  25 29 20 80 20 76 25 3e  |. .(s%=T%) . v%>|
000014a0  34 20 46 25 3d b9 3a 6e  25 3d 49 25 0d 0b ea 0f  |4 F%=.:n%=I%....|
000014b0  ed 3a e7 20 46 25 20 8c  3d 6e 25 0d 0b f4 06 3d  |.:. F% .=n%....=|
000014c0  30 0d 0b fe 05 3a 0d 0c  08 0a dd 20 a4 73 65 33  |0....:..... .se3|
000014d0  0d 0c 12 1a 46 25 3d a3  3a e3 20 49 25 3d 31 20  |....F%=.:. I%=1 |
000014e0  b8 20 3f 43 25 3a f2 76  61 6c 0d 0c 1c 20 e7 20  |. ?C%:.val... . |
000014f0  73 25 3d 70 73 25 20 80  20 76 25 3c 70 76 25 20  |s%=ps% . v%<pv% |
00001500  46 25 3d b9 3a 6e 25 3d  49 25 0d 0c 26 0f ed 3a  |F%=.:n%=I%..&..:|
00001510  e7 20 46 25 20 8c 3d 6e  25 0d 0c 30 1a 4f 25 3d  |. F% .=n%..0.O%=|
00001520  30 3a e3 20 49 25 3d 31  20 b8 20 3f 43 25 3a f2  |0:. I%=1 . ?C%:.|
00001530  76 61 6c 0d 0c 3a 20 e7  20 73 25 3d 70 73 25 20  |val..: . s%=ps% |
00001540  80 20 76 25 3e 4f 25 3a  4f 25 3d 76 25 3a 6e 25  |. v%>O%:O%=v%:n%|
00001550  3d 49 25 0d 0c 44 15 ed  3a e7 20 4f 25 3e 30 20  |=I%..D..:. O%>0 |
00001560  46 25 3d b9 3a 3d 6e 25  0d 0c 4e 1a 4f 25 3d 30  |F%=.:=n%..N.O%=0|
00001570  3a e3 20 49 25 3d 31 20  b8 20 3f 43 25 3a f2 76  |:. I%=1 . ?C%:.v|
00001580  61 6c 0d 0c 58 1f e7 20  73 25 3d 54 25 20 80 20  |al..X.. s%=T% . |
00001590  76 25 3e 4f 25 3a 4f 25  3d 76 25 3a 6e 25 3d 49  |v%>O%:O%=v%:n%=I|
000015a0  25 0d 0c 62 15 ed 3a e7  20 4f 25 3e 30 20 46 25  |%..b..:. O%>0 F%|
000015b0  3d b9 3a 3d 6e 25 0d 0c  6c 1a 4f 25 3d 30 3a e3  |=.:=n%..l.O%=0:.|
000015c0  20 49 25 3d 31 20 b8 20  3f 43 25 3a f2 76 61 6c  | I%=1 . ?C%:.val|
000015d0  0d 0c 76 17 e7 20 76 25  3e 4f 25 3a 4f 25 3d 76  |..v.. v%>O%:O%=v|
000015e0  25 3a 6e 25 3d 49 25 0d  0c 80 15 ed 3a e7 20 4f  |%:n%=I%.....:. O|
000015f0  25 3e 30 20 46 25 3d b9  3a 3d 6e 25 0d 0c 8a 06  |%>0 F%=.:=n%....|
00001600  3d 30 0d 0c 94 05 3a 0d  0c 9e 0a dd 20 f2 76 61  |=0....:..... .va|
00001610  6c 0d 0c a8 20 51 25 3d  43 25 3f 49 25 3a 76 25  |l... Q%=C%?I%:v%|
00001620  3d a4 6e 28 51 25 29 3a  73 25 3d a4 73 28 51 25  |=.n(Q%):s%=.s(Q%|
00001630  29 0d 0c b2 05 e1 0d 0c  bc 05 3a 0d 0c c6 0c dd  |).........:.....|
00001640  20 f2 73 63 6f 72 65 0d  0c d0 4c 70 25 3d 70 25  | .score...Lp%=p%|
00001650  28 30 29 3a 63 25 3d 70  25 28 31 29 3a db 3a fb  |(0):c%=p%(1):.:.|
00001660  31 3a e7 20 4d 25 3d 30  20 db 3a fb 31 3a f1 22  |1:. M%=0 .:.1:."|
00001670  53 69 78 74 79 20 53 69  78 22 27 3a fb 33 3a 77  |Sixty Six"':.3:w|
00001680  25 3d 47 25 3a f2 61 64  64 28 47 25 29 3a e5 8d  |%=G%:.add(G%):..|
00001690  54 42 4d 0d 0c da 37 fb  33 3a e7 20 28 70 25 3c  |TBM...7.3:. (p%<|
000016a0  36 36 20 80 20 63 25 3c  36 36 29 20 84 20 70 25  |66 . c%<66) . p%|
000016b0  3d 63 25 20 f1 22 4e 6f  20 6f 6e 65 20 77 69 6e  |=c% ."No one win|
000016c0  73 22 3a f2 77 61 69 74  3a e1 0d 0c e4 18 e7 20  |s":.wait:...... |
000016d0  70 25 3e 63 25 20 80 20  70 25 3e 36 36 20 77 25  |p%>c% . p%>66 w%|
000016e0  3d 30 0d 0c ee 18 e7 20  63 25 3e 70 25 20 80 20  |=0..... c%>p% . |
000016f0  63 25 3e 36 36 20 77 25  3d 31 0d 0c f8 1d e7 20  |c%>66 w%=1..... |
00001700  70 25 3e 63 25 20 f2 61  64 64 28 30 29 20 8b 20  |p%>c% .add(0) . |
00001710  f2 61 64 64 28 31 29 0d  0d 02 23 e7 20 63 25 3c  |.add(1)...#. c%<|
00001720  32 20 f2 61 64 64 28 30  29 20 8b 20 e7 20 70 25  |2 .add(0) . . p%|
00001730  3c 32 20 f2 61 64 64 28  31 29 0d 0d 0c 25 e7 20  |<2 .add(1)...%. |
00001740  63 25 3c 33 33 20 f2 61  64 64 28 30 29 20 8b 20  |c%<33 .add(0) . |
00001750  e7 20 70 25 3c 33 33 20  f2 61 64 64 28 31 29 0d  |. p%<33 .add(1).|
00001760  0d 16 23 e7 20 77 25 20  f1 22 20 20 49 20 77 69  |..#. w% ."  I wi|
00001770  6e 22 3b 20 8b 20 f1 22  20 59 6f 75 20 77 69 6e  |n"; . ." You win|
00001780  22 3b 0d 0d 20 24 47 25  3d 28 77 25 2b 31 29 83  |";.. $G%=(w%+1).|
00001790  32 3a fb 31 32 39 3a ef  32 38 2c 33 30 2c 36 2c  |2:.129:.28,30,6,|
000017a0  33 38 2c 33 3a db 0d 0d  2a 15 fb 30 3a f1 3b 70  |38,3:...*..0:.;p|
000017b0  25 3b 8a 30 2c 32 29 3b  63 25 3b 0d 0d 34 25 fb  |%;.0,2);c%;..4%.|
000017c0  33 3a f1 8a 36 2c 30 29  3b 72 25 28 30 29 3b 8a  |3:..6,0);r%(0);.|
000017d0  36 2c 32 29 3b 72 25 28  31 29 3b 3a fb 31 32 38  |6,2);r%(1);:.128|
000017e0  0d 0d 3e 24 f2 74 75 6e  65 3a e7 20 72 25 28 30  |..>$.tune:. r%(0|
000017f0  29 3e 37 20 84 20 72 25  28 31 29 3e 37 20 65 6e  |)>7 . r%(1)>7 en|
00001800  64 25 3d b9 0d 0d 48 05  e1 0d 0d 52 05 3a 0d 0d  |d%=...H....R.:..|
00001810  5c 0e dd 20 f2 61 64 64  28 5a 25 29 0d 0d 66 13  |\.. .add(Z%)..f.|
00001820  72 25 28 5a 25 29 3d 72  25 28 5a 25 29 2b 31 0d  |r%(Z%)=r%(Z%)+1.|
00001830  0d 70 05 e1 0d 0d 7a 05  3a 0d 0d 84 11 dd 20 f2  |.p....z.:..... .|
00001840  77 69 6e 64 6f 77 28 5a  25 29 0d 0d 8e 24 e7 20  |window(Z%)...$. |
00001850  5a 25 3d 31 3a ef 31 37  2c 31 32 38 2c 32 38 2c  |Z%=1:.17,128,28,|
00001860  31 35 2c 33 30 2c 33 38  2c 32 38 2c 31 32 0d 0d  |15,30,38,28,12..|
00001870  98 1d e7 20 5a 25 3d 32  3a ef 32 34 2c 38 3b 35  |... Z%=2:.24,8;5|
00001880  31 35 3b 37 36 38 3b 37  39 31 3b 0d 0d a2 20 e7  |15;768;791;... .|
00001890  20 5a 25 3d 33 3a ef 32  34 2c 37 36 38 3b 35 31  | Z%=3:.24,768;51|
000018a0  35 3b 31 32 36 38 3b 37  39 31 3b 0d 0d ac 1e e7  |5;1268;791;.....|
000018b0  20 5a 25 3d 34 3a ef 32  34 2c 38 3b 32 31 32 3b  | Z%=4:.24,8;212;|
000018c0  31 32 36 38 3b 34 35 31  3b 0d 0d b6 22 e7 20 5a  |1268;451;...". Z|
000018d0  25 3d 35 3a ef 32 34 2c  38 38 30 3b 34 35 31 3b  |%=5:.24,880;451;|
000018e0  31 32 36 30 3b 35 31 31  3b 31 36 0d 0d c0 05 e1  |1260;511;16.....|
000018f0  0d 0d ca 05 3a 0d 0d d4  23 dd 20 f2 62 61 64 3a  |....:...#. .bad:|
00001900  d4 31 2c 32 2c 37 36 2c  38 3a fb 31 3a f1 27 22  |.1,2,76,8:.1:.'"|
00001910  49 6c 6c 65 67 61 6c 22  0d 0d de 0b dd 20 f2 77  |Illegal"..... .w|
00001920  61 69 74 0d 0d e8 0e 64  65 25 3d a6 32 30 30 3a  |ait....de%=.200:|
00001930  e1 0d 0d f2 05 3a 0d 0d  fc 0b dd 20 f2 74 75 6e  |.....:..... .tun|
00001940  65 0d 0e 06 2d f7 3a e3  49 25 3d 31 b8 32 34 3a  |e...-.:.I%=1.24:|
00001950  f3 20 70 69 25 2c 64 75  25 3a d4 31 2c 31 2c 70  |. pi%,du%:.1,1,p|
00001960  69 25 2c 64 75 25 3a ed  3a f2 77 61 69 74 0d 0e  |i%,du%:.:.wait..|
00001970  10 8b dc 20 31 30 30 2c  34 2c 31 30 30 2c 34 2c  |... 100,4,100,4,|
00001980  39 36 2c 34 2c 38 38 2c  34 2c 38 38 2c 34 2c 38  |96,4,88,4,88,4,8|
00001990  30 2c 34 2c 31 30 30 2c  38 2c 31 30 30 2c 34 2c  |0,4,100,8,100,4,|
000019a0  39 36 2c 34 2c 31 30 38  2c 38 2c 31 30 38 2c 34  |96,4,108,8,108,4|
000019b0  2c 31 30 30 2c 34 2c 31  31 36 2c 38 2c 31 30 30  |,100,4,116,8,100|
000019c0  2c 34 2c 31 30 30 2c 34  2c 39 36 2c 34 2c 38 38  |,4,100,4,96,4,88|
000019d0  2c 34 2c 38 38 2c 34 2c  38 30 2c 34 2c 31 30 30  |,4,88,4,80,4,100|
000019e0  2c 38 2c 31 30 30 2c 34  2c 39 36 2c 34 2c 31 30  |,8,100,4,96,4,10|
000019f0  38 2c 38 2c 31 30 30 2c  38 0d 0e 1a 05 e1 0d 0e  |8,8,100,8.......|
00001a00  24 05 3a 0d 0e 2e 0a dd  20 f2 65 6e 64 0d 0e 38  |$.:..... .end..8|
00001a10  42 f2 77 69 6e 64 6f 77  28 31 29 3a fb 31 3a f1  |B.window(1):.1:.|
00001a20  22 47 41 4d 45 20 4f 56  45 52 22 3a fb 32 3a f1  |"GAME OVER":.2:.|
00001a30  27 22 20 41 67 61 69 6e  20 3f 22 3b 3a 47 24 3d  |'" Again ?";:G$=|
00001a40  be 3a e7 20 a7 22 59 79  22 2c 47 24 29 20 f9 0d  |.:. ."Yy",G$) ..|
00001a50  0e 42 05 e1 0d 0e 4c 05  3a 0d 0e 56 0a dd 20 f2  |.B....L.:..V.. .|
00001a60  70 69 70 0d 0e 60 34 e3  20 79 25 3d 59 25 2d 32  |pip..`4. y%=Y%-2|
00001a70  30 20 b8 20 59 25 2d 31  36 34 20 88 2d 34 38 3a  |0 . Y%-164 .-48:|
00001a80  e3 20 78 25 3d 58 25 2b  35 36 20 b8 20 58 25 2b  |. x%=X%+56 . X%+|
00001a90  31 32 30 20 88 36 34 0d  0e 6a 18 ec 20 78 25 2c  |120 .64..j.. x%,|
00001aa0  79 25 3a ef 28 32 32 33  2b 53 25 29 3a ed 2c 0d  |y%:.(223+S%):.,.|
00001ab0  0e 74 24 e7 20 4b 25 3d  36 20 ec 20 58 25 2b 38  |.t$. K%=6 . X%+8|
00001ac0  38 2c 59 25 2d 39 32 3a  ef 28 32 32 33 2b 53 25  |8,Y%-92:.(223+S%|
00001ad0  29 3a e1 0d 0e 7e 34 ec  20 58 25 2b 38 38 2c 59  |):...~4. X%+88,Y|
00001ae0  25 2d 34 34 3a ef 28 32  32 33 2b 53 25 29 3a ec  |%-44:.(223+S%):.|
00001af0  20 58 25 2b 38 38 2c 59  25 2d 31 34 30 3a ef 28  | X%+88,Y%-140:.(|
00001b00  32 32 33 2b 53 25 29 0d  0e 88 05 e1 0d 0e 92 05  |223+S%).........|
00001b10  3a 0d 0e 9c 0f dd 20 f2  66 61 63 65 28 41 25 29  |:..... .face(A%)|
00001b20  0d 0e a6 27 21 26 37 30  3d 41 25 3a 21 26 37 32  |...'!&70=A%:!&72|
00001b30  3d 58 25 2b 34 34 3a 21  26 37 34 3d 59 25 2d 35  |=X%+44:!&74=Y%-5|
00001b40  36 3a d6 26 39 33 38 0d  0e b0 05 e1 0d 0e ba 05  |6:.&938.........|
00001b50  3a 0d 0e c4 0e dd 20 f2  61 63 65 28 6e 25 29 0d  |:..... .ace(n%).|
00001b60  0e ce 2b ec 20 58 25 2b  36 30 2c 59 25 2d 38 30  |..+. X%+60,Y%-80|
00001b70  3a ef 6e 25 2c 6e 25 2b  31 2c 38 2c 38 2c 31 30  |:.n%,n%+1,8,8,10|
00001b80  2c 6e 25 2b 32 2c 6e 25  2b 33 0d 0e d8 05 e1 0d  |,n%+2,n%+3......|
00001b90  ff                                                |.|
00001b91

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