1 debug=0:poke56,191:clr:pO65286,.:goS1000:goS10000:goS5000
2 ?chr$(147)dc$:?tab(6)"matatu petscii version 1.0"
3 ?tab(7)"coded in v2 basic on c64"
4 ?tab(3)"2016 bytebreaker of hokuto force":?:?:?
5 ?tab(12)"idea by bugjam"
6 ?tab(7)"improved layout by rksoft"
7 ?tab(10)"code tuning by jeek"
8 ?tab(10)"charset by haubitze":?tab(3)"ported to commodore +4 by rksoft":?:?
9 ?tab(11)"UCCI"red$"UCCI"black$"UCCI"red$"UCCI"black$
10 ?tab(11)"GA H"red$"GZ H"black$"GX H"red$"GS H"black$
11 ?tab(11)"GmaH"red$"GtaH"black$"GtuH"red$"G4uH"black$
12 ?tab(11)"JFFK"red$"JFFK"black$"JFFK"red$"JFFK"dc$
13 ?:?:?:?tab(12)"press any key...":pO65286,27
14 get a$:if a$="" then 14
15 pO65286,.:x=rnd(-time):?chr$(147);
16 ? "rules:"
17 ? "------":?
18 ? "play same suit or rank"
19 ? "and get rid of all cards first!":?:?
20 ? "suits:"
21 ? red$"S(hearts)"dc$","black$"A(spades)"dc$",";
22 ? red$"Z(diamonds)"dc$","black$"X(clubs)"dc$:?
23 ? "special rank values:"
24 ? " jack = 11  queen = 12   king = 13"
25 ? "  ace = 15    two = 20"
26 ?:?
27 ? "extra functions when played:"
28 ? "ace            = choose suit" 
29 ? "two            = draw +2 cards"
30 ? "eight or jack  = play another card"
31 ? "seven of the suit of 1st card on stack =";
32 ? "cut game when <= 25pts left on hand."
33 ?:?
34 ? "press any key...";:pO65286,27
35 get a$:if a$="" then 35
43 ?chr$(147)dc$:char1,0,8,""
44 ?tab(8)"(1) player 1 vs player 2":?tab(8)"(2) player 1 vs computer"
46 :
47 getgm$:ifgm$="1"orgm$="2"then49
48 gO47
49 pl=1:?chr$(147)dc$:?:?:?:?:?:?
50 ?tab(12);
51 ifgm$="2"thenifint(rnd(1)*10)+1>5thenpl=2:?"computer begins.":gO100
52 ?"player"pl"begins."
53 gO100

90 geta$:ifa$=""then90
91 return
92 fori=1to500:next:return
93 fori=1to1000:next:return
94 fori=1to2000:next:return

100 rem ...matatu init...
131 ?tab(11)"shuffling cards..."
139 fori=1to52:zz=int(rnd(1)*52)+1:n$=ca$(i,3):ca$(i,3)=ca$(zz,3):ca$(zz,3)=n$
142 next

170 ?tab(10)"  dealing cards..."
180 for i=1to7:ca$(i,1)=ca$(i,3):ca$(i,3)="000"
181 ca$(i,2)=ca$(i+7,3):ca$(i+7,3)="000":next
182 cc=15:rem current stack card pointer
183 ce=52:rem low end for stack draw
184 n(1)=7:n(2)=7 : rem current player 1 and 2 stacks
185 e8=0:c0$="":z0=2:se=0
195 if gm$="1" then pl=1
196 cut$=left$(ca$(cc,3),1)
197 goS8000
199 rem -------------------------------

200 rem ...hauptschleife...
203 ife8=1thene8=0:goS1910:gO265
205 ifgm$="2"andpl=2thengoS7000:nid=0:cid=0:gO212
210 goS1600:rem <- status-ausgabe
211 goS1500:nid=0:cid=0:rem <- input
212 ifc9=1thenc9=0:gO205:rem <- cut versuch erfolglos
240 ifc7=1then2500
250 ifdr=1thendr=0:goS2050:gO264
260 goS2000:rem <- ablage
261 goS2200:rem <- siegabfrage
262 ifv=1then2500:rem <- siegerehrung
264 ifse=1then3500:rem <- stack leer -> game over
265 pl=3-pl:gO200:rem <- spielerwechsel
275 rem -------------------------------

1000 rem ...early init...
1001 dimi,pl,cn,ch$,co$,cut$,cc,ce
1002 dimca$(52,3),n(2):rem 1 array für stapel und 2 spieler
1099 goS9800:return

1499 rem ...select a card or draw...
1500 ch$="":goS6500:ifzw=1thenzw=0:ifmid$(ch$,2,2)<>"20"thench$="d"
1510 ifch$="d"thendr=1:return:rem <- draw
1520 fori=1ton(pl):ifca$(i,pl)=ch$thenbeep=1:cno=i:i=n(pl)
1530 next
1535 ifbeep=1thenbeep=0:gO1570
1540 goS1693:char,6,0,dc$+"wrong card. press any key":goS90
1550 goS1693:ifgm$="2"andpl=2then?chr$(19)dc$"computer - thinking...":gO1500
1552 ?chr$(19)dc$"player"pl"- select a card or (d)raw":gO1500
1560 remgoS1600:gO1500
1570 goS1700:rem <- check input
1580 ifcid=1ornid=1thenreturn
1590 gO1535

1599 rem ...status-ausgabe ...
1600 goS1692:goS1690
1601 ifgm$="2"andpl=2then?chr$(19)dc$"computer - thinking...":gO1603
1602 ?chr$(19)dc$"player"pl"- select a card or (d)raw"
1603 goS1620:rem <- show default color
1604 goS1630:rem <- show cut color
1605 goS1640:rem <- show top of stack
1606 char,2,8,"":mc=0:tz=0:rem <- show cards
1607 fori=1ton(pl):iftz>=mathentz=0:?:?:?:?:?:?"  ";
1609 mc=mc+1:tz=tz+1:ifdebug=0andgm$="2"andpl=2thengoS6100:next:return
1610 tx$=ca$(i,pl):ty=val(right$(tx$,2)):goS6000:next:return
1620 char,17,24,chr$(144):rem <- default color info
1621 tx$=c0$:iflen(c0$)<1thentx$=left$(ca$(cc,3),1)
1622 iftx$="S"ortx$="Z"then?chr$(28);
1623 ?tx$;:return
1630 char,32,24,chr$(144):rem <- cut color info
1631 ifcut$="S"orcut$="Z"then?chr$(28);
1632 ?cut$;:return
1640 char,15,2,chr$(144):rem <- top of stack
1641 tx$=ca$(cc,3):ty=val(right$(tx$,2)):goS6000:return

1690 rem ...clear game screen between the lines...
1691 fori=0to14:char,0,8+i,"":sys57035:next:return
1692 rem ...clear info line on top...
1693 ?chr$(19);:sys57035:return

1699 rem ...check input...
1700 cstack$=left$(ca$(cc,3),1):nstack$=right$(ca$(cc,3),2):rem <- stack card
1702 cpl$=left$(ch$,1):npl$=right$(ch$,2):rem <- player card
1703 ifc0$<>""then1720:rem <- ass farbwahl aktiv?
1710 ifcstack$=cpl$thencid=1:rem <- color equal?
1711 ifnstack$=npl$thennid=1:rem <- number equal?
1712 ifnpl$="15"thengoS1800:rem <- ass
1713 ifnpl$="20"thengoS1850:rem <- zwei
1714 ifnpl$="08"ornpl$="11"thengoS1900:rem <- acht/bube
1715 ifnpl$="07"andcpl$=cut$and(cs$=cut$orns$="07")thengoS1950:rem <- cut7
1716 return
1720 if cpl$=c0$ and npl$="07" and cpl$=cut$ then cid=1:goS 1950:goto 1717
1721 ifcpl$=c0$ornpl$="15"thencid=1:nid=0:c0$="":gO1712
1730 cid=0:nid=0:return:rem <- falsche farbe
1798 rem ------------------------------

1799 rem ...select a color at draw...
1800 ifgm$="2"andpl=2thengoS1820:gO1803:rem <- computer ki
1801 goS1692:char,0,0,dc$+"select a suit: "
1802 ?chr$(144)"A "chr$(28)"S "chr$(144)"X "chr$(28)"Z":goS9000
1803 goS1693:char,0,0,dc$+"play suit for next round:"
1804 ifc0$="S"orc0$="Z"then?chr$(28);
1805 ?c0$;:cid=1:gO94: rem wait and return
1820 tt$=left$(ch$,1):fori=1ton(2)
1824 ifleft$(ca$(i,2),1)<>tt$thenc1$=c1$+left$(ca$(i,2),1)
1825 next
1826 ifc1$=""thenzno=zno+1:c0$=left$(ch$,1):gO1828
1827 zno=1:c0$=mid$(c1$,rnd(1)*len(c1$)+1,1):rem random other color
1828 char,11,0,dc$+"choose play suit  "+c0$
1829 c1$="":return

1850 rem ...exe2...
1851 ifcid<>1andnid<>1thenreturn
1853 zw=1:z0=z0+2 :rem <- so viele karten müssen aktuell gezogen werden
1854 goS1693:?chr$(19)dc$"draw"z0-2"cards when no match on hand.";
1855 gO94: rem wait and return

1900 rem ...exe8/jack...
1901 ifcid=1ornid=1thene8=1
1902 return
1910 ?chr$(19)tab(11)dc$"replay card set!          "
1911 gO94: rem wait and return

1950 rem ...check cut condition...
1951 ?chr$(19)tab(11)dc$"played cutter 7!          "
1952 goS93:rem wait
1953 ?chr$(19)tab(11)"checking cut condition!"
1954 fori=1to52:cx=cx+val(right$(ca$(i,pl),2)):next:ifcx<=32thenc7=1:return
1955 goS1692:?chr$(19)"cutting with"cx-7"pts not possible!"
1956 c7=0:c9=1:cx=0:goS93:return

2000 rem ...play card...
2001 cc=cc-1:if cc=0 then cc=14
2015 ca$(cc,3)=ch$: rem to card stack, remove gap in hand set
2016if n(pl)>1andcno<n(pl) then for i=cno to n(pl)-1:ca$(i,pl)=ca$(i+1,pl):next
2017 ca$(n(pl),pl)=""
2018 n(pl)=n(pl)-1
2019 return

2050 rem ...take card (draw)...
2053 for i=2 to z0-1
2054 n(pl)=n(pl)+1
2055 ca$(n(pl),pl)=ca$(ce,3)
2056 ca$(ce,3)="000":ce=ce-1:if ce=14 then se=1:return: rem next cleaned up
2057 next i
2058 z0=2
2090 return

2200 rem ...check for winning condition...
2201 if n(pl) = 0 then v=1
2202 return

2500 rem ...game end, winner's congratulation...
2501 ?chr$(147)dc$:char1,.,8,"":?:ifc7=1then3000
2503 ?tab(12)"congratulations!":?tab(12)"----------------"
2504 iflen(win$)>0then?tab(11)win$" has won!":gO2507
2505 ifpl=2andgm$="2"then?tab(11)"computer has won!":gO2507
2506 ?tab(11)"player"pl"has won!"
2507 ?:?tab(10)"another game  (y/n)?"
2508 geta$:ifa$<>"y"anda$<>"n"then2508
2509 ifa$="y"thenrun
2510 end

3000 ?chr$(19)tab(9)dc$;:ifpl=2andgm$="2"then?"computer cut the game";:gO3005
3001 ?"player"pl"cut the game!"
3005 for i=1 to -(n(1)>n(2))*n(1)-(n(1)<=n(2))*n(2):rem max(n(1),n(2))
3006 c1=c1+val(mid$(ca$(i,1),2,2)):c2=c2+val(mid$(ca$(i,2),2,2)):next
3014 ifpl=1thenc1=c1-7
3015 ifpl=2thenc2=c2-7
3030 win$="player 1":ifc1>c2thenwin$="player 2":ifgm$="2"thenwin$="computer"
3050 ?tab(9)"the winner is "win$
3060 ?tab(10)"points player 1:"c1
3070 ifgm$<>"2"then?tab(10)"points player 2:"c2
3080 ifgm$="2"then?tab(10)"points computer:"c2
3081 gO2507

3499 rem ...stack empty...
3500 ?chr$(147)dc$:char,14,10,"stack empty!":?
3510 ?tab(5)"you could not finish the game.":gO2507
4998 rem ------------------------------

4999 rem ... added stuff by rksoft ...
5000 rem cb$ = card border (aka cursor)
5001 rem co = color for blinking cursor
5002 rem ck$ = clear info line string after name
5003 rem cc$ = back of card
5004 rem cm = temp. blinking cursor
5005 rem dc$ = default cursor color
5006 rem ma = max cards per row
5007 rem mc = max cards in hand
5008 rem md$ = move cursor down
5009 rem ml$ = move cursor left
5010 rem mr$ = move cursor right
5011 rem mu$ = move cursor up
5012 rem pc$ = game cursor for selecting a card
5013 rem t0 = temporary variable
5014 rem tx$ = temporary string (screen code:saved card)
5015 rem tc = temporary variable (input code:card number)
5016 rem tt$ = temporary string
5017 rem tu$ = temporary string
5018 rem ty = temporary variable (screen code:saved card value)
5019 rem tz = temporary variable (screen code:cards per row)
5020 rem vr = video ram
5021 rem x = x coord for cursor
5022 rem y = y coord for cursor
5100 dim ma,mc,md$,ml$,mu$,u4$,t2$,mr$,dc$,cb$,cc$,cm,cu$,vr,x,y
5101 dim t0,tc,tt$,tu$,ty,tz
5102 md$=chr$(17):ml$=chr$(157):mu$=chr$(145):mr$=chr$(29)
5103 t2$=md$+ml$+ml$+ml$+ml$:u4$=mu$+mu$+mu$+mu$
5104 pc$=chr$(176)+mr$+mr$+mr$+mr$+chr$(174)+md$+md$+md$
5105 pc$=pc$+ml$+ml$+ml$+ml$+ml$+ml$+chr$(173)+mr$+mr$+mr$+mr$+chr$(189)
5106 red$=chr$(28):black$=chr$(144)
5107 cb$="UCCI"+t2$+"G"+mr$+mr$+"H"+t2$+"G"+mr$+mr$+"H"+t2$+"G"+mr$+mr$+"H"+t2$
5108 cb$=cb$+"JFFK":ck$=left$(cl$,26)
5109 cc$=cc$+chr$(183)+chr$(184)+chr$(184)+chr$(185)+t2$
5110 cc$=cc$+chr$(186)+chr$(187)+chr$(187)+chr$(188)+t2$
5111 cc$=cc$+chr$(186)+chr$(187)+chr$(187)+chr$(188)+t2$
5112 cc$=cc$+chr$(186)+chr$(187)+chr$(187)+chr$(188)+t2$
5113 cc$=cc$+chr$(189)+chr$(190)+chr$(190)+chr$(191)

5200 rem input-code to color
5201 dimt0$(256):t0$(65)="A":t0$(83)="S":t0$(88)="X":t0$(90)="Z"
5202 t0$(107)="20":t0$(115)="11":t0$(116)="12":t0$(117)="13":t0$(118)="15"
5203 rem display tiles
5204 t1$(0)=chr$(179):t1$(1)=chr$(180):t1$(2)=chr$(181):t1$(4)=chr$(182)
5205 t1$(9)=chr$(171)
5998 rem remaining stuff ...
5999 ma=9:color0,8,7:color4,2,4:vr=3072:dc$=chr$(144):?dc$:return

6000 rem ... show card on screen ...
6001 iflen(tx$)<1thenreturn
6002 ty=val(right$(tx$,2)):tu$=left$(tx$,1):?chr$(144);
6003 iftu$="S"ortu$="Z"then?chr$(28);
6004 ifty>10thengosub6009:return
6005 ifty<10thenty=ty+169:gosub6007:return
6006 ty=169
6007 tt$="G"+tu$+chr$(ty)+"H"+t2$+"G  H"+t2$+"G"+chr$(ty)+tu$+"H"+t2$
6008 ?"UCCI"t2$tt$"JFFK"u4$;:return
6009 tt$="G"+tu$+t1$(ty-11)+"H"+t2$+"G  H"+t2$+"G"+t1$(ty-11)+tu$+"H"+t2$
6010 ?"UCCI"t2$tt$"JFFK"u4$;:return

6100 rem ...byteb ai card anonymizer...
6101 ?chr$(144)cc$u4$;:return

6500 rem ... new input code ...
6510 x=2:y=8:tc=1
6520 fori=.to7:geta$:ifa$=chr$(13)theni=8:next:goS6630:gO6590
6530 ifa$="d"thench$="d":i=8:next:return
6540 ifa$=ml$thenifx>2thengoS6630:x=x-4:tc=tc-1
6550 ifa$=mr$thenifx<34andtc<mcthengoS6630:x=x+4:tc=tc+1
6560 ifa$=mu$thenify>8thengoS6630:y=y-5:tc=tc-ma
6570 ifa$=md$thenify<18andtc+ma<=mcthengoS6630:y=y+5:tc=tc+ma
6580 color1,2,i:char,x,y,cb$:next:gO6520
6590 t0=peek(vr+x+1+40*(y+1)):ch$=t0$(t0)
6600 t0=peek(vr+x+2+40*(y+1)):ift0=105thench$=ch$+"10":return
6610 ift0>107andt0<115thench$=ch$+chr$(48)+chr$(48+(t0-105)):return
6620 ch$=ch$+t0$(t0):return
6630 t0=peek(vr+x+1+40*(y+1)):color1,1:ift0=83ort0=90thencolor1,3,3
6640 char,x,y,cb$:return
6998 rem ------------------------------

6999 rem ..........computer ki.........
7000 goS 1600:rem <- ki-ausgabe
7001 cno=0
7002 cstack$=left$(ca$(cc,3),1):nstack$=mid$(ca$(cc,3),2,2):rem <- stack card
7003 ifc0$=""then7010:rem <- ass farbwahl aktiv?
7004 fori=1ton(2):ifleft$(ca$(i,2),1)=c0$thencno=i:i=n(2)
7005 next
7007 ifcno=0thendr=1:gO7400:rem <- wenn nix passt, draw
7008 xx=1:dno=cno:c0$="":gO7015
7010 ifzw=1thenzw=0:cid=1:gO7410:rem <- vorher 2 gespielt worden? 

7015 rem ...cutter 7 im blatt?...
7016 ifxx<>1then7031:rem <- ass reaktion cutter 7?
7017 ifmid$(ca$(dno,2),2,2)="07"andc0$=cut$then7041
7018 gO7050
7031 fori=1ton(2)
7032 ifmid$(ca$(i,2),2,2)="07"andleft$(ca$(i,2),1)=cut$andcs$=cut$thencno=i
7033 next:ifcno=0then7050
7041 fori=1ton(pl):cx=cx+val(mid$(ca$(i,pl),2,2)):next
7044 ifcx<=32thencx=0:goS1950:gO7400:rem <- cut7 erfolgreich

7050 rem ...2 im blatt?...
7051 ifxx<>1then7060:rem <- ass reaktion 2?
7052 ifmid$(ca$(dno,2),2,2)="20"thench$=ca$(dno,2):cid=1:goS1850:gO7400
7053 gO7100
7060 fori=1ton(2):ifmI(ca$(i,2),2,2)="20"andleF(ca$(i,2),1)=cs$thencno=i:i=n(2)
7090 next
7091 ifcno<>0thench$=ca$(cno,2):cid=1:goS1850:gO7400:rem <- zwei

7100 rem ...ass im blatt?...
7101 if xx<>1 then 7110 : rem <- ass reaktion 2?
7102 ifmid$(ca$(dno,2),2,2)="15"thench$=ca$(dno,2):goS1800:gO7400
7103 gO7160
7110 fori=1ton(2):ifmid$(ca$(i,2),2,2)="15"thencno=i:i=n(2)
7120 next
7150 ifcno<>0thench$=ca$(cno,2):goS1800:gO7400:rem <- ass

7160 rem ...bube oder 8 im blatt?...
7161 if xx<>1 then 7191 : rem <- ass reaktion bube/8?
7162 ifmid$(ca$(dno,2),2,2)="08"ormid$(ca$(dno,2),2,2)="11"thencno=dno:gO7196
7163 gO 7200
7191 for i=1 to n(2)
7192 ifmid$(ca$(i,2),2,2)="08"andleft$(ca$(i,2),1)=cs$thencno=i:i=n(2)
7193 ifmid$(ca$(i,2),2,2)="11"andleft$(ca$(i,2),1)=cs$thencno=i:i=n(2)
7194 next
7195 if cno=0 then 7200 
7196 ch$=ca$(cno,2):cid=1:goS1900:gO7400

7200 rem ...setze nächste karte die passt...
7201 if xx<>1 then 7210 : rem <- ass reaktion wertniedere karte?
7202 cno=dno:gO 7251
7210 for i=1 to n(2):ifcno<>0thennext:gO7250
7220 if mid$(ca$(i,2),2,2)=ns$ or left$(ca$(i,2),1)=cs$ then cno=i:i=n(2)
7240 next
7250 ifcno=0thendr=1:gO7400:rem <- wenn nix passt, draw
7251 ch$=ca$(cno,2):xx$=mid$(ch$,2,2)
7252 ifxx$="20" or xx$="11" or xx$="08" or xx$="15"thendr=1

7399 rem ...computer ready...
7400 goS94:ifxx=1thenxx=0
7405 return

7410 for i=1 to n(2):rem <- 2 bedienen
7412 ifmid$(ca$(i,2),2,2)="20" then cno=i:i=n(2)
7413 next
7414 ifcno=0thendr=1:gO7400
7415 ch$=ca$(cno,2):goS1850:gO7400
7999 rem ------------------------------

8000 rem ...game screen...
8001 pO65286,.:?chr$(147):color1,2,0
8002 ?"----------------------------------------"
8003 char,0,23,"----------------------------------------"
8004 char,7,24,"":?dc$"play suit:    "tab(23)"cut suit: ";
8005 char,15,2,"":goS6100:char,19,2,"":goS6100:pO65286,27:return

9000 rem ...select a color...
9001 x=15:y=0:tc=1
9002 fori=0to7:geta$:ifa$=chr$(13)theni=8:next:c0$=tx$:return
9003 ifa$=ml$thenifx>15thenchar,x,y,"":goS9006:?tx$:x=x-2
9004 ifa$=mr$thenifx<21thenchar,x,y,"":goS9006:?tx$:x=x+2
9005 goS9006:color1,2,i:char,x,y,tx$:next:gO9002
9006 color1,1:ifx=15thentx$="A":return:elseifx=19thentx$="X":return
9007 ifx=17thencolor1,3,3:tx$="S":return:elsecolor1,3,3:tx$="Z":return

9800 rem ...new init input...
9810 data "S15","S20","S03","S04","S05","S06","S07","S08"
9820 data "S09","S10","S11","S12","S13"
9830 data "A15","A20","A03","A04","A05","A06","A07","A08"
9840 data "A09","A10","A11","A12","A13"
9850 data "X15","X20","X03","X04","X05","X06","X07","X08"
9860 data "X09","X10","X11","X12","X13"
9870 data "Z15","Z20","Z03","Z04","Z05","Z06","Z07","Z08"
9880 data "Z09","Z10","Z11","Z12","Z13"
9990 restore9810:fori=1to52:readca$(i,3):nexti:return

10000 rem ...custom chars...
10010 ?chr$(147):ifpE(49152)=62then10030
10020 restore10030:fora=49152to49152+1023:readb:pokea,b:next
10030 pO65298,pE(65298)and251:pO65299,pE(65299)and3or192:return
10040 data62,65,81,78,64,65,62,0
10050 data28,34,65,65,127,65,65,0
10060 data126,65,65,126,65,65,126,0
10070 data62,65,64,64,64,65,62,0
10080 data124,66,65,65,65,66,124,0
10090 data63,64,64,124,64,64,63,0
10100 data63,64,64,124,64,64,64,0
10110 data62,65,64,79,65,65,62,0
10120 data65,65,65,127,65,65,65,0
10130 data62,8,8,8,8,8,62,0
10140 data127,2,2,2,2,66,60,0
10150 data65,66,68,120,68,66,65,0
10160 data64,64,64,64,64,65,62,0
10170 data65,99,85,73,65,65,65,0
10180 data65,97,81,73,69,67,65,0
10190 data62,65,65,65,65,65,62,0
10200 data126,65,65,65,126,64,64,0
10210 data60,66,66,66,66,60,6,0
10220 data126,65,65,126,68,66,65,0
10230 data62,65,64,62,1,65,62,0
10240 data127,8,8,8,8,8,8,0
10250 data65,65,65,65,65,65,62,0
10260 data65,65,65,65,34,20,8,0
10270 data65,65,65,73,85,99,65,0
10280 data65,34,20,8,20,34,65,0
10290 data65,65,34,20,8,8,8,0
10300 data127,2,4,28,16,32,127,0
10310 data30,16,16,16,16,16,30,0
10320 data30,33,120,32,120,33,30,0
10330 data120,8,8,8,8,8,120,0
10340 data8,28,42,73,8,8,8,8
10350 data16,32,64,255,64,32,16,0
10360 data0,0,0,0,0,0,0,0
10370 data16,56,56,56,16,0,16,0
10380 data36,36,36,0,0,0,0,0
10390 data20,20,127,20,127,20,20,0
10400 data20,63,84,62,21,126,20,0
10410 data33,82,36,8,18,37,66,0
10420 data14,17,16,24,37,34,29,0
10430 data2,4,8,0,0,0,0,0
10440 data14,16,32,32,32,16,14,0
10450 data112,8,4,4,4,8,112,0
10460 data0,0,8,20,8,0,0,0
10470 data0,16,16,124,16,16,0,0
10480 data0,0,0,0,0,16,16,32
10490 data0,0,0,60,0,0,0,0
10500 data0,0,0,0,16,40,16,0
10510 data0,2,4,8,16,32,64,0
10520 data29,34,69,73,81,34,92,0
10530 data8,24,40,8,8,8,126,0
10540 data62,65,1,14,48,64,127,0
10550 data62,65,1,30,1,65,62,0
10560 data4,12,20,36,127,4,4,0
10570 data127,64,126,1,1,65,62,0
10580 data62,65,64,126,65,65,62,0
10590 data127,65,2,4,4,8,8,0
10600 data62,65,65,62,65,65,62,0
10610 data62,65,65,63,1,65,62,0
10620 data0,0,16,0,0,16,0,0
10630 data0,0,16,0,0,16,16,32
10640 data14,16,32,64,32,16,14,0
10650 data0,0,126,0,0,126,0,0
10660 data112,8,4,2,4,8,112,0
10670 data60,66,2,12,16,0,16,0
10680 data0,0,0,255,255,0,0,0
10690 data8,28,62,127,127,42,8,62
10700 data24,24,24,24,24,24,24,24
10710 data0,0,0,255,0,0,0,0
10720 data0,0,255,255,0,0,0,0
10730 data0,255,255,0,0,0,0,0
10740 data0,0,0,0,255,255,0,0
10750 data16,16,16,16,16,16,16,16
10760 data12,12,12,12,12,12,12,12
10770 data0,0,0,224,24,12,12,12
10780 data16,16,16,8,7,3,0,0
10790 data12,12,12,28,248,240,0,0
10800 data192,192,192,192,192,192,255,255
10810 data192,224,112,56,28,14,7,3
10820 data3,7,14,28,56,112,224,192
10830 data255,255,192,192,192,192,192,192
10840 data255,255,3,3,3,3,3,3
10850 data0,60,126,126,126,126,60,0
10860 data0,0,0,0,0,255,255,0
10870 data34,119,127,127,127,62,28,8
10880 data96,96,96,96,96,96,96,96
10890 data0,0,0,7,8,16,16,16
10900 data195,231,126,60,60,126,231,195
10910 data0,60,126,102,102,126,60,0
10920 data8,28,8,42,127,42,8,62
10930 data6,6,6,6,6,6,6,6
10940 data8,28,62,127,127,62,28,8
10950 data24,24,24,255,255,24,24,24
10960 data192,192,48,48,192,192,48,48
10970 data24,24,24,24,24,24,24,24
10980 data0,0,3,62,118,54,54,0
10990 data255,127,63,31,15,7,3,1
11000 data0,0,0,0,0,0,0,0
11010 data240,240,240,240,240,240,240,240
11020 data0,0,0,0,255,255,255,255
11030 data255,0,0,0,0,0,0,0
11040 data0,0,0,0,0,0,0,255
11050 data192,192,192,192,192,192,192,192
11060 data204,204,51,51,204,204,51,51
11070 data3,3,3,3,3,3,3,3
11080 data0,0,0,0,204,204,51,51
11090 data0,38,105,41,41,41,118,0
11100 data0,8,24,40,8,8,60,0
11110 data0,24,36,4,24,32,60,0
11120 data0,60,4,8,4,36,24,0
11130 data0,8,24,40,60,8,8,0
11140 data0,60,32,56,4,36,24,0
11150 data0,24,32,56,36,36,24,0
11160 data0,60,4,8,16,16,16,0
11170 data0,24,36,24,36,36,24,0
11180 data0,24,36,36,28,4,24,0
11190 data0,4,4,4,4,36,24,0
11200 data0,24,36,36,36,44,28,0
11210 data0,36,40,48,48,40,36,0
11220 data0,24,36,36,60,36,36,0
11230 data0,0,0,7,10,21,26,21
11240 data0,0,0,255,170,85,170,85
11250 data0,0,0,224,184,92,172,92
11260 data26,21,26,21,26,21,26,21
11270 data170,85,170,85,170,85,170,85
11280 data172,92,172,92,172,92,172,92
11290 data26,21,26,13,7,3,0,0
11300 data170,85,170,85,255,255,0,0
11310 data172,92,172,92,248,224,0,0