Home » Archimedes archive » Acorn User » AU 1996-02.adf » Regulars » StarInfo/Llew-Jones/Mole
StarInfo/Llew-Jones/Mole
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 User » AU 1996-02.adf » Regulars |
| Filename: | StarInfo/Llew-Jones/Mole |
| Read OK: | ✔ |
| File size: | 0953 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > Mole
20REM The Flying Pig!
30REM 28/7/1993
40:
50MODE13
60OFF
70ORIGIN640,512
80DIMcode%500,c(3),a(3)
90PROCassemble
100PROCstore
110CALLcode%
120t%=1:PROCrestore
130a%=0:b%=0
140a(3)=0.03
150l%=0:GCOL0,0TINT255
160:
170REPEAT
180FORn%=1TO450
190WAIT
200CALLfade
210x%=COSc(0)*SINc(1)*590
220y%=COSc(2)*SINc(3)*462
230s%=SQR((x%-a%)^2+(y%-b%)^2)/3+30
240c()=c()+a()
250t%+=4
260IFt%>255t%=0:c%+=1:READl%:GCOLl%:IFc%>71PROCrestore
270CIRCLEFILLx%,y%,s%
280a%=x%:b%=y%
290NEXT
300FORn%=0TO3
310a(n%)=RND(1)/8
320NEXT
330UNTIL0
340END
350:
360DEFPROCassemble
370base=1:temp=5:colour=6:store=7:top=2:count=3:link=14
380rnd1=4:rnd2=8:rnd3=9:screen=10
390FORpass%=0TO2STEP2
400P%=code%
410[OPTpass%
420 ADR 0,vduin
430 ADR 1,vduout
440 SWI "OS_ReadVduVariables"
450 ADR store,data
460 MOV rnd1,#5
470 MOV rnd2,#1
480 MOV rnd3,#3
490 LDR screen,vduout
500 ADD base,screen,#256*320
510 MOV top,base
520 ADR 12,stack
530 STMIA 12,{1,7,2,4,8,9,10}
540 MOV PC,link
550.fade ADR 12,stack
560 LDMIA 12,{1,7,2,4,8,9,10}
570 SUB base,base,#256*320
580.loop1 LDRB colour,[base]
590 LDRB colour,[store,colour]
600 CMP screen,base
610 STRLEB colour,[base],rnd1
620 SUBS rnd1,rnd1,rnd2
630 ADDLE rnd1,rnd1,#18
640 SUBS rnd2,rnd2,rnd3
650 ADDLE rnd2,rnd2,#17
660 SUBS rnd3,rnd3,#3
670 ADDLE rnd3,rnd3,#16
680 CMP base,top
690 BLT loop1
700 STMIA 12,{1,7,2,4,8,9,10}
710 MOV PC,link
720.vduin EQUD 148
730 EQUD -1
740.vduout EQUD 0
750.stack
760]P%+=8*4
770[OPTpass%
780.data
790]NEXT
800ENDPROC
810:
820DEFPROCstore
830RESTORE+1
840n%=0
850FORa%=1TO8
860READdata$
870FORb%=1TO16STEP2
880data?n%=EVAL("&"+MID$(data$,b%,2))
890data?(n%+3)=n%+2
900data?(n%+2)=n%+1
910data?(n%+1)=n%
920n%+=4
930NEXT,
940ENDPROC
950:
960DATA0003030307130713
970DATA0303030307130713
980DATA2323232327332733
990DATA4343434347534753
1000DATA0B0B83830F1B8793
1010DATA0B0B83830F1B8793
1020DATA2B2BA3A32F3BA7B3
1030DATA4B4BC3C34F5BC7D3
1040:
1050DEFPROCrestore
1060RESTORE+1
1070c%=0
1080ENDPROC
1090:
1100DATA1,2,3,19,18,17,16,32,33,34,35,51,50,49
1110DATA48,52,53,54,55,59,58,57,56,60,61,62,63
1120DATA47,46,45,44,28,29,30,31,15,14,13,12,8
1130DATA9,10,11,27,26,25,24,4,5,6,7,23,22,21,20
1140DATA40,41,42,43,39,38,37,36,32,33,34,35,19
1150DATA7,3,2,1
� > Mole
� The Flying Pig!
� 28/7/1993
(:
2�13
<�
F
ȑ640,512
P�code%500,c(3),a(3)
Z
�assemble
d
�store
n
�code%
xt%=1:�restore
�
a%=0:b%=0
�
a(3)=0.03
�l%=0:�0,0Ȝ255
�:
��
�
�n%=1�450
�Ȗ
� �fade
�x%=�c(0)*�c(1)*590
�y%=�c(2)*�c(3)*462
�"s%=�((x%-a%)^2+(y%-b%)^2)/3+30
�c()=c()+a()
� t%+=4
,�t%>255t%=0:c%+=1:�l%:�l%:�c%>71�restore
ȏȐx%,y%,s%
a%=x%:b%=y%
"�
, �n%=0�3
6a(n%)=�(1)/8
@�
J�0
T�
^:
h��assemble
r8base=1:temp=5:colour=6:store=7:top=2:count=3:link=14
|"rnd1=4:rnd2=8:rnd3=9:screen=10
��pass%=0�2�2
� P%=code%
�
[OPTpass%
� ADR 0,vduin
� ADR 1,vduout
�+ SWI "OS_ReadVduVariables"
� ADR store,data
� MOV rnd1,#5
� MOV rnd2,#1
� MOV rnd3,#3
�# LDR screen,vduout
�* ADD base,screen,#256*320
� MOV top,base
ADR 12,stack
) STMIA 12,{1,7,2,4,8,9,10}
MOV PC,link
& .fade ADR 12,stack
0) LDMIA 12,{1,7,2,4,8,9,10}
:( SUB base,base,#256*320
D#.loop1 LDRB colour,[base]
N+ LDRB colour,[store,colour]
X! CMP screen,base
b( STRLEB colour,[base],rnd1
l$ SUBS rnd1,rnd1,rnd2
v# ADDLE rnd1,rnd1,#18
�$ SUBS rnd2,rnd2,rnd3
�# ADDLE rnd2,rnd2,#17
�" SUBS rnd3,rnd3,#3
�# ADDLE rnd3,rnd3,#16
� CMP base,top
� BLT loop1
�) STMIA 12,{1,7,2,4,8,9,10}
� MOV PC,link
�.vduin EQUD 148
� EQUD -1
�.vduout EQUD 0
�
.stack
� ]P%+=8*4
[OPTpass%
.data
]�
�
*:
4 ��store
>�+1
Hn%=0
R �a%=1�8
\
�data$
f�b%=1�16�2
p data?n%=�("&"+�data$,b%,2))
zdata?(n%+3)=n%+2
�data?(n%+2)=n%+1
�data?(n%+1)=n%
� n%+=4
��,
��
�:
��0003030307130713
��0303030307130713
��2323232327332733
��4343434347534753
��0B0B83830F1B8793
��0B0B83830F1B8793
��2B2BA3A32F3BA7B3
�4B4BC3C34F5BC7D3
:
��restore
$�+1
.c%=0
8�
B:
L+�1,2,3,19,18,17,16,32,33,34,35,51,50,49
V+�48,52,53,54,55,59,58,57,56,60,61,62,63
`*�47,46,45,44,28,29,30,31,15,14,13,12,8
j,�9,10,11,27,26,25,24,4,5,6,7,23,22,21,20
t+�40,41,42,43,39,38,37,36,32,33,34,35,19
~ �7,3,2,1
� 00000000 0d 00 0a 0c f4 20 3e 20 4d 6f 6c 65 0d 00 14 17 |..... > Mole....|
00000010 f4 20 20 20 54 68 65 20 46 6c 79 69 6e 67 20 50 |. The Flying P|
00000020 69 67 21 0d 00 1e 11 f4 20 20 20 32 38 2f 37 2f |ig!..... 28/7/|
00000030 31 39 39 33 0d 00 28 05 3a 0d 00 32 07 eb 31 33 |1993..(.:..2..13|
00000040 0d 00 3c 05 87 0d 00 46 0d c8 91 36 34 30 2c 35 |..<....F...640,5|
00000050 31 32 0d 00 50 17 de 63 6f 64 65 25 35 30 30 2c |12..P..code%500,|
00000060 63 28 33 29 2c 61 28 33 29 0d 00 5a 0d f2 61 73 |c(3),a(3)..Z..as|
00000070 73 65 6d 62 6c 65 0d 00 64 0a f2 73 74 6f 72 65 |semble..d..store|
00000080 0d 00 6e 0a d6 63 6f 64 65 25 0d 00 78 11 74 25 |..n..code%..x.t%|
00000090 3d 31 3a f2 72 65 73 74 6f 72 65 0d 00 82 0d 61 |=1:.restore....a|
000000a0 25 3d 30 3a 62 25 3d 30 0d 00 8c 0d 61 28 33 29 |%=0:b%=0....a(3)|
000000b0 3d 30 2e 30 33 0d 00 96 12 6c 25 3d 30 3a e6 30 |=0.03....l%=0:.0|
000000c0 2c 30 c8 9c 32 35 35 0d 00 a0 05 3a 0d 00 aa 05 |,0..255....:....|
000000d0 f5 0d 00 b4 0d e3 6e 25 3d 31 b8 34 35 30 0d 00 |......n%=1.450..|
000000e0 be 06 c8 96 0d 00 c8 09 d6 66 61 64 65 0d 00 d2 |.........fade...|
000000f0 16 78 25 3d 9b 63 28 30 29 2a b5 63 28 31 29 2a |.x%=.c(0)*.c(1)*|
00000100 35 39 30 0d 00 dc 16 79 25 3d 9b 63 28 32 29 2a |590....y%=.c(2)*|
00000110 b5 63 28 33 29 2a 34 36 32 0d 00 e6 22 73 25 3d |.c(3)*462..."s%=|
00000120 b6 28 28 78 25 2d 61 25 29 5e 32 2b 28 79 25 2d |.((x%-a%)^2+(y%-|
00000130 62 25 29 5e 32 29 2f 33 2b 33 30 0d 00 f0 0f 63 |b%)^2)/3+30....c|
00000140 28 29 3d 63 28 29 2b 61 28 29 0d 00 fa 09 74 25 |()=c()+a()....t%|
00000150 2b 3d 34 0d 01 04 2c e7 74 25 3e 32 35 35 74 25 |+=4...,.t%>255t%|
00000160 3d 30 3a 63 25 2b 3d 31 3a f3 6c 25 3a e6 6c 25 |=0:c%+=1:.l%:.l%|
00000170 3a e7 63 25 3e 37 31 f2 72 65 73 74 6f 72 65 0d |:.c%>71.restore.|
00000180 01 0e 10 c8 8f c8 90 78 25 2c 79 25 2c 73 25 0d |.......x%,y%,s%.|
00000190 01 18 0f 61 25 3d 78 25 3a 62 25 3d 79 25 0d 01 |...a%=x%:b%=y%..|
000001a0 22 05 ed 0d 01 2c 0b e3 6e 25 3d 30 b8 33 0d 01 |"....,..n%=0.3..|
000001b0 36 10 61 28 6e 25 29 3d b3 28 31 29 2f 38 0d 01 |6.a(n%)=.(1)/8..|
000001c0 40 05 ed 0d 01 4a 06 fd 30 0d 01 54 05 e0 0d 01 |@....J..0..T....|
000001d0 5e 05 3a 0d 01 68 0e dd f2 61 73 73 65 6d 62 6c |^.:..h...assembl|
000001e0 65 0d 01 72 38 62 61 73 65 3d 31 3a 74 65 6d 70 |e..r8base=1:temp|
000001f0 3d 35 3a 63 6f 6c 6f 75 72 3d 36 3a 73 74 6f 72 |=5:colour=6:stor|
00000200 65 3d 37 3a 74 6f 70 3d 32 3a 63 6f 75 6e 74 3d |e=7:top=2:count=|
00000210 33 3a 6c 69 6e 6b 3d 31 34 0d 01 7c 22 72 6e 64 |3:link=14..|"rnd|
00000220 31 3d 34 3a 72 6e 64 32 3d 38 3a 72 6e 64 33 3d |1=4:rnd2=8:rnd3=|
00000230 39 3a 73 63 72 65 65 6e 3d 31 30 0d 01 86 10 e3 |9:screen=10.....|
00000240 70 61 73 73 25 3d 30 b8 32 88 32 0d 01 90 0c 50 |pass%=0.2.2....P|
00000250 25 3d 63 6f 64 65 25 0d 01 9a 0d 5b 4f 50 54 70 |%=code%....[OPTp|
00000260 61 73 73 25 0d 01 a4 1d 20 20 20 20 20 20 20 20 |ass%.... |
00000270 20 20 41 44 52 20 20 20 20 20 30 2c 76 64 75 69 | ADR 0,vdui|
00000280 6e 0d 01 ae 1e 20 20 20 20 20 20 20 20 20 20 41 |n.... A|
00000290 44 52 20 20 20 20 20 31 2c 76 64 75 6f 75 74 0d |DR 1,vduout.|
000002a0 01 b8 2b 20 20 20 20 20 20 20 20 20 20 53 57 49 |..+ SWI|
000002b0 20 20 20 20 20 22 4f 53 5f 52 65 61 64 56 64 75 | "OS_ReadVdu|
000002c0 56 61 72 69 61 62 6c 65 73 22 0d 01 c2 20 20 20 |Variables"... |
000002d0 20 20 20 20 20 20 20 20 41 44 52 20 20 20 20 20 | ADR |
000002e0 73 74 6f 72 65 2c 64 61 74 61 0d 01 cc 1d 20 20 |store,data.... |
000002f0 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
00000300 72 6e 64 31 2c 23 35 0d 01 d6 1d 20 20 20 20 20 |rnd1,#5.... |
00000310 20 20 20 20 20 4d 4f 56 20 20 20 20 20 72 6e 64 | MOV rnd|
00000320 32 2c 23 31 0d 01 e0 1d 20 20 20 20 20 20 20 20 |2,#1.... |
00000330 20 20 4d 4f 56 20 20 20 20 20 72 6e 64 33 2c 23 | MOV rnd3,#|
00000340 33 0d 01 ea 23 20 20 20 20 20 20 20 20 20 20 4c |3...# L|
00000350 44 52 20 20 20 20 20 73 63 72 65 65 6e 2c 76 64 |DR screen,vd|
00000360 75 6f 75 74 0d 01 f4 2a 20 20 20 20 20 20 20 20 |uout...* |
00000370 20 20 41 44 44 20 20 20 20 20 62 61 73 65 2c 73 | ADD base,s|
00000380 63 72 65 65 6e 2c 23 32 35 36 2a 33 32 30 0d 01 |creen,#256*320..|
00000390 fe 1e 20 20 20 20 20 20 20 20 20 20 4d 4f 56 20 |.. MOV |
000003a0 20 20 20 20 74 6f 70 2c 62 61 73 65 0d 02 08 1e | top,base....|
000003b0 20 20 20 20 20 20 20 20 20 20 41 44 52 20 20 20 | ADR |
000003c0 20 20 31 32 2c 73 74 61 63 6b 0d 02 12 29 20 20 | 12,stack...) |
000003d0 20 20 20 20 20 20 20 20 53 54 4d 49 41 20 20 20 | STMIA |
000003e0 31 32 2c 7b 31 2c 37 2c 32 2c 34 2c 38 2c 39 2c |12,{1,7,2,4,8,9,|
000003f0 31 30 7d 0d 02 1c 1d 20 20 20 20 20 20 20 20 20 |10}.... |
00000400 20 4d 4f 56 20 20 20 20 20 50 43 2c 6c 69 6e 6b | MOV PC,link|
00000410 0d 02 26 1e 2e 66 61 64 65 20 20 20 20 20 41 44 |..&..fade AD|
00000420 52 20 20 20 20 20 31 32 2c 73 74 61 63 6b 0d 02 |R 12,stack..|
00000430 30 29 20 20 20 20 20 20 20 20 20 20 4c 44 4d 49 |0) LDMI|
00000440 41 20 20 20 31 32 2c 7b 31 2c 37 2c 32 2c 34 2c |A 12,{1,7,2,4,|
00000450 38 2c 39 2c 31 30 7d 0d 02 3a 28 20 20 20 20 20 |8,9,10}..:( |
00000460 20 20 20 20 20 53 55 42 20 20 20 20 20 62 61 73 | SUB bas|
00000470 65 2c 62 61 73 65 2c 23 32 35 36 2a 33 32 30 0d |e,base,#256*320.|
00000480 02 44 23 2e 6c 6f 6f 70 31 20 20 20 20 4c 44 52 |.D#.loop1 LDR|
00000490 42 20 20 20 20 63 6f 6c 6f 75 72 2c 5b 62 61 73 |B colour,[bas|
000004a0 65 5d 0d 02 4e 2b 20 20 20 20 20 20 20 20 20 20 |e]..N+ |
000004b0 4c 44 52 42 20 20 20 20 63 6f 6c 6f 75 72 2c 5b |LDRB colour,[|
000004c0 73 74 6f 72 65 2c 63 6f 6c 6f 75 72 5d 0d 02 58 |store,colour]..X|
000004d0 21 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 |! CMP |
000004e0 20 20 20 73 63 72 65 65 6e 2c 62 61 73 65 0d 02 | screen,base..|
000004f0 62 28 20 20 20 20 20 20 20 20 20 20 53 54 52 4c |b( STRL|
00000500 45 42 20 20 63 6f 6c 6f 75 72 2c 5b 62 61 73 65 |EB colour,[base|
00000510 5d 2c 72 6e 64 31 0d 02 6c 24 20 20 20 20 20 20 |],rnd1..l$ |
00000520 20 20 20 20 53 55 42 53 20 20 20 20 72 6e 64 31 | SUBS rnd1|
00000530 2c 72 6e 64 31 2c 72 6e 64 32 0d 02 76 23 20 20 |,rnd1,rnd2..v# |
00000540 20 20 20 20 20 20 20 20 41 44 44 4c 45 20 20 20 | ADDLE |
00000550 72 6e 64 31 2c 72 6e 64 31 2c 23 31 38 0d 02 80 |rnd1,rnd1,#18...|
00000560 24 20 20 20 20 20 20 20 20 20 20 53 55 42 53 20 |$ SUBS |
00000570 20 20 20 72 6e 64 32 2c 72 6e 64 32 2c 72 6e 64 | rnd2,rnd2,rnd|
00000580 33 0d 02 8a 23 20 20 20 20 20 20 20 20 20 20 41 |3...# A|
00000590 44 44 4c 45 20 20 20 72 6e 64 32 2c 72 6e 64 32 |DDLE rnd2,rnd2|
000005a0 2c 23 31 37 0d 02 94 22 20 20 20 20 20 20 20 20 |,#17..." |
000005b0 20 20 53 55 42 53 20 20 20 20 72 6e 64 33 2c 72 | SUBS rnd3,r|
000005c0 6e 64 33 2c 23 33 0d 02 9e 23 20 20 20 20 20 20 |nd3,#3...# |
000005d0 20 20 20 20 41 44 44 4c 45 20 20 20 72 6e 64 33 | ADDLE rnd3|
000005e0 2c 72 6e 64 33 2c 23 31 36 0d 02 a8 1e 20 20 20 |,rnd3,#16.... |
000005f0 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 62 | CMP b|
00000600 61 73 65 2c 74 6f 70 0d 02 b2 1b 20 20 20 20 20 |ase,top.... |
00000610 20 20 20 20 20 42 4c 54 20 20 20 20 20 6c 6f 6f | BLT loo|
00000620 70 31 0d 02 bc 29 20 20 20 20 20 20 20 20 20 20 |p1...) |
00000630 53 54 4d 49 41 20 20 20 31 32 2c 7b 31 2c 37 2c |STMIA 12,{1,7,|
00000640 32 2c 34 2c 38 2c 39 2c 31 30 7d 0d 02 c6 1d 20 |2,4,8,9,10}.... |
00000650 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 | MOV |
00000660 20 50 43 2c 6c 69 6e 6b 0d 02 d0 19 2e 76 64 75 | PC,link.....vdu|
00000670 69 6e 20 20 20 20 45 51 55 44 20 20 20 20 31 34 |in EQUD 14|
00000680 38 0d 02 da 18 20 20 20 20 20 20 20 20 20 20 45 |8.... E|
00000690 51 55 44 20 20 20 20 2d 31 0d 02 e4 17 2e 76 64 |QUD -1.....vd|
000006a0 75 6f 75 74 20 20 20 45 51 55 44 20 20 20 20 30 |uout EQUD 0|
000006b0 0d 02 ee 0a 2e 73 74 61 63 6b 0d 02 f8 0c 5d 50 |.....stack....]P|
000006c0 25 2b 3d 38 2a 34 0d 03 02 0d 5b 4f 50 54 70 61 |%+=8*4....[OPTpa|
000006d0 73 73 25 0d 03 0c 09 2e 64 61 74 61 0d 03 16 06 |ss%.....data....|
000006e0 5d ed 0d 03 20 05 e1 0d 03 2a 05 3a 0d 03 34 0b |]... ....*.:..4.|
000006f0 dd f2 73 74 6f 72 65 0d 03 3e 07 f7 2b 31 0d 03 |..store..>..+1..|
00000700 48 08 6e 25 3d 30 0d 03 52 0b e3 61 25 3d 31 b8 |H.n%=0..R..a%=1.|
00000710 38 0d 03 5c 0a f3 64 61 74 61 24 0d 03 66 0e e3 |8..\..data$..f..|
00000720 62 25 3d 31 b8 31 36 88 32 0d 03 70 1f 64 61 74 |b%=1.16.2..p.dat|
00000730 61 3f 6e 25 3d a0 28 22 26 22 2b c1 64 61 74 61 |a?n%=.("&"+.data|
00000740 24 2c 62 25 2c 32 29 29 0d 03 7a 14 64 61 74 61 |$,b%,2))..z.data|
00000750 3f 28 6e 25 2b 33 29 3d 6e 25 2b 32 0d 03 84 14 |?(n%+3)=n%+2....|
00000760 64 61 74 61 3f 28 6e 25 2b 32 29 3d 6e 25 2b 31 |data?(n%+2)=n%+1|
00000770 0d 03 8e 12 64 61 74 61 3f 28 6e 25 2b 31 29 3d |....data?(n%+1)=|
00000780 6e 25 0d 03 98 09 6e 25 2b 3d 34 0d 03 a2 06 ed |n%....n%+=4.....|
00000790 2c 0d 03 ac 05 e1 0d 03 b6 05 3a 0d 03 c0 15 dc |,.........:.....|
000007a0 30 30 30 33 30 33 30 33 30 37 31 33 30 37 31 33 |0003030307130713|
000007b0 0d 03 ca 15 dc 30 33 30 33 30 33 30 33 30 37 31 |.....03030303071|
000007c0 33 30 37 31 33 0d 03 d4 15 dc 32 33 32 33 32 33 |30713.....232323|
000007d0 32 33 32 37 33 33 32 37 33 33 0d 03 de 15 dc 34 |2327332733.....4|
000007e0 33 34 33 34 33 34 33 34 37 35 33 34 37 35 33 0d |343434347534753.|
000007f0 03 e8 15 dc 30 42 30 42 38 33 38 33 30 46 31 42 |....0B0B83830F1B|
00000800 38 37 39 33 0d 03 f2 15 dc 30 42 30 42 38 33 38 |8793.....0B0B838|
00000810 33 30 46 31 42 38 37 39 33 0d 03 fc 15 dc 32 42 |30F1B8793.....2B|
00000820 32 42 41 33 41 33 32 46 33 42 41 37 42 33 0d 04 |2BA3A32F3BA7B3..|
00000830 06 15 dc 34 42 34 42 43 33 43 33 34 46 35 42 43 |...4B4BC3C34F5BC|
00000840 37 44 33 0d 04 10 05 3a 0d 04 1a 0d dd f2 72 65 |7D3....:......re|
00000850 73 74 6f 72 65 0d 04 24 07 f7 2b 31 0d 04 2e 08 |store..$..+1....|
00000860 63 25 3d 30 0d 04 38 05 e1 0d 04 42 05 3a 0d 04 |c%=0..8....B.:..|
00000870 4c 2b dc 31 2c 32 2c 33 2c 31 39 2c 31 38 2c 31 |L+.1,2,3,19,18,1|
00000880 37 2c 31 36 2c 33 32 2c 33 33 2c 33 34 2c 33 35 |7,16,32,33,34,35|
00000890 2c 35 31 2c 35 30 2c 34 39 0d 04 56 2b dc 34 38 |,51,50,49..V+.48|
000008a0 2c 35 32 2c 35 33 2c 35 34 2c 35 35 2c 35 39 2c |,52,53,54,55,59,|
000008b0 35 38 2c 35 37 2c 35 36 2c 36 30 2c 36 31 2c 36 |58,57,56,60,61,6|
000008c0 32 2c 36 33 0d 04 60 2a dc 34 37 2c 34 36 2c 34 |2,63..`*.47,46,4|
000008d0 35 2c 34 34 2c 32 38 2c 32 39 2c 33 30 2c 33 31 |5,44,28,29,30,31|
000008e0 2c 31 35 2c 31 34 2c 31 33 2c 31 32 2c 38 0d 04 |,15,14,13,12,8..|
000008f0 6a 2c dc 39 2c 31 30 2c 31 31 2c 32 37 2c 32 36 |j,.9,10,11,27,26|
00000900 2c 32 35 2c 32 34 2c 34 2c 35 2c 36 2c 37 2c 32 |,25,24,4,5,6,7,2|
00000910 33 2c 32 32 2c 32 31 2c 32 30 0d 04 74 2b dc 34 |3,22,21,20..t+.4|
00000920 30 2c 34 31 2c 34 32 2c 34 33 2c 33 39 2c 33 38 |0,41,42,43,39,38|
00000930 2c 33 37 2c 33 36 2c 33 32 2c 33 33 2c 33 34 2c |,37,36,32,33,34,|
00000940 33 35 2c 31 39 0d 04 7e 0c dc 37 2c 33 2c 32 2c |35,19..~..7,3,2,|
00000950 31 0d ff |1..|
00000953 
.