Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » PD/3D_Tutor/Starz
PD/3D_Tutor/Starz
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 06 subscription disc.adf » 9406s |
| Filename: | PD/3D_Tutor/Starz |
| Read OK: | ✔ |
| File size: | 0846 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > Listing2
20REM By Paul Mason
30REM LEN Paul Mason, 1994
40
50r1%=100:g1%=0:b1%=0
60r2%=0:g2%=0:b2%=128
70PROCgetcols
80
90MODE 12:IF MODE<>12 STOP
100MODE 8:OFF:maxs%=1000
110DIM code% 256+maxs%*160
120COLOUR 1,r1%,g1%,b1%
130COLOUR 2,r2%,g2%,b2%
140COLOUR 3,r1% OR r2%,r1% OR g2%,r1% OR b2%
150!code%=149:code%!4=-1:SYS&31,code%,code%:screen0%=!code%
160PROCass
170
180FOR Ds%=0 TO 999
190 x%=RND(640)-1:y%=RND(254):s%=RND(6*8)
200 x2%=(x%-(-s%)+640)MOD640:s%=48-s%
210 CASE RND(5) OF
220 WHEN 1,3 : PROCs(x%,y%,1,s%/8):PROCs(x2%,y%,2,s%/8)
230 WHEN 2,4 : PROCs2(x%,y%,1,s%/8):PROCs2(x2%,y%,2,s%/8)
240 WHEN 5 : PROCs3(x%,y%,1,s%/8):PROCs3(x2%,y%,2,s%/8)
250 ENDCASE
260NEXT
270xpos%=RND(640)-1:ypos%=(RND(256)-1)*160
280spd%=1:col%=3
290
300REPEAT
310 WAIT:CLS
320 C%=screen0%:CALL call
330UNTIL 0
340
350DEFPROCass
360 FOR opt%=0 TO 2 STEP 2
370 P%=code%
380 col%=3:xpos%=4:ypos%=5:spd%=6:ad%=7:rol%=8:old%=9
390 [OPT opt%
400 .stars
410 DCD 0
420 .call
430 ; R2 = screen addr
440 ADR R0,star_data
450 LDR R1,stars
460 .lp
470 LDMIA R0!,{col%,xpos%,ypos%,spd%}
480 ADD ad%,ypos%,xpos%,LSR#2
490 AND rol%,xpos%,#3
500 MOV rol%,rol%,LSL#1
510 LDRB old%,[R2,ad%]
520 MOV R12,#3
530 ORR old%,old%,col%,LSL rol%
540 STRB old%,[R2,ad%]
550 SUBS xpos%,xpos%,spd%
560 ADDLT xpos%,xpos%,#640
570 STR xpos%,[R0,#-12]
580 SUBS R1,R1,#1
590 BGT lp
600 MOVS PC,R14
610 .star_data
620 ]:NEXT
630ENDPROC
640
650DEFPROCs(x%,y%,col%,spd%)
660 LOCAL n%:n%=!stars
670 IF spd%<1 spd%=1
680 x%=(x%+640)MOD640
690 n%=n%*16:n%+=star_data
700 n%!0=col%:n%!4=x%:n%!8=y%*160:n%!12=spd%
710 !stars=!stars+1
720ENDPROC
730
740DEFPROCs2(x%,y%,col%,spd%)
750 PROCs(x%,y%,col%,spd%):PROCs(x%+1,y%,col%,spd%)
760ENDPROC
770
780DEFPROCs3(x%,y%,col%,spd%)
790 PROCs(x%,y%,col%,spd%):PROCs(x%+1,y%,col%,spd%)
800 PROCs(x%-1,y%,col%,spd%):PROCs(x%,y%+1,col%,spd%)
810 PROCs(x%,y%-1,col%,spd%)
820ENDPROC
830
840DEFPROCgetcols
850 LOCAL ERROR
860 ON ERROR LOCAL ENDPROC
870 DIM colcode% 12
880 SYS&23,"3DEye$Left",colcode%,12,0,0
890 r1%=16*FNcc(0)+FNcc(1)
900 g1%=16*FNcc(2)+FNcc(3)
910 b1%=16*FNcc(4)+FNcc(5)
920SYS&23,"3DEye$Right",colcode%,12,0,0
930 r2%=16*FNcc(0)+FNcc(1)
940 g2%=16*FNcc(2)+FNcc(3)
950 b2%=16*FNcc(4)+FNcc(5)
960ENDPROC
970
980DEFFNcc(pos%)
990 IF colcode%?pos%>=65 =colcode%?pos%-55
1000=colcode%?pos%-48
� > Listing2
� By Paul Mason
� � Paul Mason, 1994
(
2r1%=100:g1%=0:b1%=0
<r2%=0:g2%=0:b2%=128
F �getcols
P
Z� 12:� �<>12 �
d� 8:�:maxs%=1000
n� code% 256+maxs%*160
x� 1,r1%,g1%,b1%
�� 2,r2%,g2%,b2%
�%� 3,r1% � r2%,r1% � g2%,r1% � b2%
�;!code%=149:code%!4=-1:ș&31,code%,code%:screen0%=!code%
��ass
�
�� Ds%=0 � 999
�% x%=�(640)-1:y%=�(254):s%=�(6*8)
�% x2%=(x%-(-s%)+640)�640:s%=48-s%
� Ȏ �(5) �
�2 � 1,3 : �s(x%,y%,1,s%/8):�s(x2%,y%,2,s%/8)
�4 � 2,4 : �s2(x%,y%,1,s%/8):�s2(x2%,y%,2,s%/8)
�2 � 5 : �s3(x%,y%,1,s%/8):�s3(x2%,y%,2,s%/8)
� �
�
'xpos%=�(640)-1:ypos%=(�(256)-1)*160
spd%=1:col%=3
"
,�
6
Ȗ:�
@ C%=screen0%:� call
J� 0
T
^ ��ass
h � opt%=0 � 2 � 2
r P%=code%
|8 col%=3:xpos%=4:ypos%=5:spd%=6:ad%=7:rol%=8:old%=9
� [OPT opt%
�
.stars
� DCD 0
� .call
� ; R2 = screen addr
� ADR R0,star_data
� LDR R1,stars
�
.lp
�( LDMIA R0!,{col%,xpos%,ypos%,spd%}
� ADD ad%,ypos%,xpos%,LSR#2
� � rol%,xpos%,#3
� MOV rol%,rol%,LSL#1
� LDRB old%,[R2,ad%]
MOV R12,#3
! �R old%,old%,col%,LSL rol%
STRB old%,[R2,ad%]
& SUBS xpos%,xpos%,spd%
0 ADDLT xpos%,xpos%,#640
: STR xpos%,[R0,#-12]
D SUBS R1,R1,#1
N
BGT lp
X MOVS PC,R14
b .star_data
l ]:�
v�
�
���s(x%,y%,col%,spd%)
� � n%:n%=!stars
� � spd%<1 spd%=1
� x%=(x%+640)�640
� n%=n%*16:n%+=star_data
�- n%!0=col%:n%!4=x%:n%!8=y%*160:n%!12=spd%
� !stars=!stars+1
��
�
���s2(x%,y%,col%,spd%)
�. �s(x%,y%,col%,spd%):�s(x%+1,y%,col%,spd%)
��
��s3(x%,y%,col%,spd%)
. �s(x%,y%,col%,spd%):�s(x%+1,y%,col%,spd%)
0 �s(x%-1,y%,col%,spd%):�s(x%,y%+1,col%,spd%)
* �s(x%,y%-1,col%,spd%)
4�
>
H
��getcols
R � �
\ � � � �
f � colcode% 12
p' ș&23,"3DEye$Left",colcode%,12,0,0
z r1%=16*�cc(0)+�cc(1)
� g1%=16*�cc(2)+�cc(3)
� b1%=16*�cc(4)+�cc(5)
�'ș&23,"3DEye$Right",colcode%,12,0,0
� r2%=16*�cc(0)+�cc(1)
� g2%=16*�cc(2)+�cc(3)
� b2%=16*�cc(4)+�cc(5)
��
�
�ݤcc(pos%)
�* � colcode%?pos%>=65 =colcode%?pos%-55
�=colcode%?pos%-48
� 00000000 0d 00 0a 10 f4 20 3e 20 4c 69 73 74 69 6e 67 32 |..... > Listing2|
00000010 0d 00 14 13 f4 20 42 79 20 50 61 75 6c 20 4d 61 |..... By Paul Ma|
00000020 73 6f 6e 0d 00 1e 18 f4 20 a9 20 50 61 75 6c 20 |son..... . Paul |
00000030 4d 61 73 6f 6e 2c 20 31 39 39 34 0d 00 28 04 0d |Mason, 1994..(..|
00000040 00 32 17 72 31 25 3d 31 30 30 3a 67 31 25 3d 30 |.2.r1%=100:g1%=0|
00000050 3a 62 31 25 3d 30 0d 00 3c 17 72 32 25 3d 30 3a |:b1%=0..<.r2%=0:|
00000060 67 32 25 3d 30 3a 62 32 25 3d 31 32 38 0d 00 46 |g2%=0:b2%=128..F|
00000070 0c f2 67 65 74 63 6f 6c 73 0d 00 50 04 0d 00 5a |..getcols..P...Z|
00000080 12 eb 20 31 32 3a e7 20 eb 3c 3e 31 32 20 fa 0d |.. 12:. .<>12 ..|
00000090 00 64 14 eb 20 38 3a 87 3a 6d 61 78 73 25 3d 31 |.d.. 8:.:maxs%=1|
000000a0 30 30 30 0d 00 6e 19 de 20 63 6f 64 65 25 20 32 |000..n.. code% 2|
000000b0 35 36 2b 6d 61 78 73 25 2a 31 36 30 0d 00 78 13 |56+maxs%*160..x.|
000000c0 fb 20 31 2c 72 31 25 2c 67 31 25 2c 62 31 25 0d |. 1,r1%,g1%,b1%.|
000000d0 00 82 13 fb 20 32 2c 72 32 25 2c 67 32 25 2c 62 |.... 2,r2%,g2%,b|
000000e0 32 25 0d 00 8c 25 fb 20 33 2c 72 31 25 20 84 20 |2%...%. 3,r1% . |
000000f0 72 32 25 2c 72 31 25 20 84 20 67 32 25 2c 72 31 |r2%,r1% . g2%,r1|
00000100 25 20 84 20 62 32 25 0d 00 96 3b 21 63 6f 64 65 |% . b2%...;!code|
00000110 25 3d 31 34 39 3a 63 6f 64 65 25 21 34 3d 2d 31 |%=149:code%!4=-1|
00000120 3a c8 99 26 33 31 2c 63 6f 64 65 25 2c 63 6f 64 |:..&31,code%,cod|
00000130 65 25 3a 73 63 72 65 65 6e 30 25 3d 21 63 6f 64 |e%:screen0%=!cod|
00000140 65 25 0d 00 a0 08 f2 61 73 73 0d 00 aa 04 0d 00 |e%.....ass......|
00000150 b4 11 e3 20 44 73 25 3d 30 20 b8 20 39 39 39 0d |... Ds%=0 . 999.|
00000160 00 be 25 20 20 78 25 3d b3 28 36 34 30 29 2d 31 |..% x%=.(640)-1|
00000170 3a 79 25 3d b3 28 32 35 34 29 3a 73 25 3d b3 28 |:y%=.(254):s%=.(|
00000180 36 2a 38 29 0d 00 c8 25 20 20 78 32 25 3d 28 78 |6*8)...% x2%=(x|
00000190 25 2d 28 2d 73 25 29 2b 36 34 30 29 83 36 34 30 |%-(-s%)+640).640|
000001a0 3a 73 25 3d 34 38 2d 73 25 0d 00 d2 0f 20 20 c8 |:s%=48-s%.... .|
000001b0 8e 20 b3 28 35 29 20 ca 0d 00 dc 32 20 20 20 20 |. .(5) ....2 |
000001c0 c9 20 31 2c 33 20 3a 20 f2 73 28 78 25 2c 79 25 |. 1,3 : .s(x%,y%|
000001d0 2c 31 2c 73 25 2f 38 29 3a f2 73 28 78 32 25 2c |,1,s%/8):.s(x2%,|
000001e0 79 25 2c 32 2c 73 25 2f 38 29 0d 00 e6 34 20 20 |y%,2,s%/8)...4 |
000001f0 20 20 c9 20 32 2c 34 20 3a 20 f2 73 32 28 78 25 | . 2,4 : .s2(x%|
00000200 2c 79 25 2c 31 2c 73 25 2f 38 29 3a f2 73 32 28 |,y%,1,s%/8):.s2(|
00000210 78 32 25 2c 79 25 2c 32 2c 73 25 2f 38 29 0d 00 |x2%,y%,2,s%/8)..|
00000220 f0 32 20 20 20 20 c9 20 35 20 3a 20 f2 73 33 28 |.2 . 5 : .s3(|
00000230 78 25 2c 79 25 2c 31 2c 73 25 2f 38 29 3a f2 73 |x%,y%,1,s%/8):.s|
00000240 33 28 78 32 25 2c 79 25 2c 32 2c 73 25 2f 38 29 |3(x2%,y%,2,s%/8)|
00000250 0d 00 fa 07 20 20 cb 0d 01 04 05 ed 0d 01 0e 27 |.... .........'|
00000260 78 70 6f 73 25 3d b3 28 36 34 30 29 2d 31 3a 79 |xpos%=.(640)-1:y|
00000270 70 6f 73 25 3d 28 b3 28 32 35 36 29 2d 31 29 2a |pos%=(.(256)-1)*|
00000280 31 36 30 0d 01 18 11 73 70 64 25 3d 31 3a 63 6f |160....spd%=1:co|
00000290 6c 25 3d 33 0d 01 22 04 0d 01 2c 05 f5 0d 01 36 |l%=3.."...,....6|
000002a0 0a 20 20 c8 96 3a db 0d 01 40 18 20 20 43 25 3d |. ..:...@. C%=|
000002b0 73 63 72 65 65 6e 30 25 3a d6 20 63 61 6c 6c 0d |screen0%:. call.|
000002c0 01 4a 07 fd 20 30 0d 01 54 04 0d 01 5e 09 dd f2 |.J.. 0..T...^...|
000002d0 61 73 73 0d 01 68 15 20 e3 20 6f 70 74 25 3d 30 |ass..h. . opt%=0|
000002e0 20 b8 20 32 20 88 20 32 0d 01 72 0f 20 20 20 50 | . 2 . 2..r. P|
000002f0 25 3d 63 6f 64 65 25 0d 01 7c 38 20 20 20 63 6f |%=code%..|8 co|
00000300 6c 25 3d 33 3a 78 70 6f 73 25 3d 34 3a 79 70 6f |l%=3:xpos%=4:ypo|
00000310 73 25 3d 35 3a 73 70 64 25 3d 36 3a 61 64 25 3d |s%=5:spd%=6:ad%=|
00000320 37 3a 72 6f 6c 25 3d 38 3a 6f 6c 64 25 3d 39 0d |7:rol%=8:old%=9.|
00000330 01 86 10 20 20 20 5b 4f 50 54 20 6f 70 74 25 0d |... [OPT opt%.|
00000340 01 90 0d 20 20 20 2e 73 74 61 72 73 0d 01 9a 0c |... .stars....|
00000350 20 20 20 44 43 44 20 30 0d 01 a4 0c 20 20 20 2e | DCD 0.... .|
00000360 63 61 6c 6c 0d 01 ae 19 20 20 20 3b 20 52 32 20 |call.... ; R2 |
00000370 3d 20 73 63 72 65 65 6e 20 61 64 64 72 0d 01 b8 |= screen addr...|
00000380 17 20 20 20 41 44 52 20 52 30 2c 73 74 61 72 5f |. ADR R0,star_|
00000390 64 61 74 61 0d 01 c2 13 20 20 20 4c 44 52 20 52 |data.... LDR R|
000003a0 31 2c 73 74 61 72 73 0d 01 cc 0a 20 20 20 2e 6c |1,stars.... .l|
000003b0 70 0d 01 d6 28 20 20 20 4c 44 4d 49 41 20 52 30 |p...( LDMIA R0|
000003c0 21 2c 7b 63 6f 6c 25 2c 78 70 6f 73 25 2c 79 70 |!,{col%,xpos%,yp|
000003d0 6f 73 25 2c 73 70 64 25 7d 0d 01 e0 20 20 20 20 |os%,spd%}... |
000003e0 41 44 44 20 61 64 25 2c 79 70 6f 73 25 2c 78 70 |ADD ad%,ypos%,xp|
000003f0 6f 73 25 2c 4c 53 52 23 32 0d 01 ea 16 20 20 20 |os%,LSR#2.... |
00000400 80 20 72 6f 6c 25 2c 78 70 6f 73 25 2c 23 33 0d |. rol%,xpos%,#3.|
00000410 01 f4 1a 20 20 20 4d 4f 56 20 72 6f 6c 25 2c 72 |... MOV rol%,r|
00000420 6f 6c 25 2c 4c 53 4c 23 31 0d 01 fe 19 20 20 20 |ol%,LSL#1.... |
00000430 4c 44 52 42 20 6f 6c 64 25 2c 5b 52 32 2c 61 64 |LDRB old%,[R2,ad|
00000440 25 5d 0d 02 08 11 20 20 20 4d 4f 56 20 52 31 32 |%].... MOV R12|
00000450 2c 23 33 0d 02 12 21 20 20 20 84 52 20 6f 6c 64 |,#3...! .R old|
00000460 25 2c 6f 6c 64 25 2c 63 6f 6c 25 2c 4c 53 4c 20 |%,old%,col%,LSL |
00000470 72 6f 6c 25 0d 02 1c 19 20 20 20 53 54 52 42 20 |rol%.... STRB |
00000480 6f 6c 64 25 2c 5b 52 32 2c 61 64 25 5d 0d 02 26 |old%,[R2,ad%]..&|
00000490 1c 20 20 20 53 55 42 53 20 78 70 6f 73 25 2c 78 |. SUBS xpos%,x|
000004a0 70 6f 73 25 2c 73 70 64 25 0d 02 30 1d 20 20 20 |pos%,spd%..0. |
000004b0 41 44 44 4c 54 20 78 70 6f 73 25 2c 78 70 6f 73 |ADDLT xpos%,xpos|
000004c0 25 2c 23 36 34 30 0d 02 3a 1a 20 20 20 53 54 52 |%,#640..:. STR|
000004d0 20 78 70 6f 73 25 2c 5b 52 30 2c 23 2d 31 32 5d | xpos%,[R0,#-12]|
000004e0 0d 02 44 14 20 20 20 53 55 42 53 20 52 31 2c 52 |..D. SUBS R1,R|
000004f0 31 2c 23 31 0d 02 4e 0d 20 20 20 42 47 54 20 6c |1,#1..N. BGT l|
00000500 70 0d 02 58 12 20 20 20 4d 4f 56 53 20 50 43 2c |p..X. MOVS PC,|
00000510 52 31 34 0d 02 62 11 20 20 20 2e 73 74 61 72 5f |R14..b. .star_|
00000520 64 61 74 61 0d 02 6c 08 20 5d 3a ed 0d 02 76 05 |data..l. ]:...v.|
00000530 e1 0d 02 80 04 0d 02 8a 18 dd f2 73 28 78 25 2c |...........s(x%,|
00000540 79 25 2c 63 6f 6c 25 2c 73 70 64 25 29 0d 02 94 |y%,col%,spd%)...|
00000550 13 20 ea 20 6e 25 3a 6e 25 3d 21 73 74 61 72 73 |. . n%:n%=!stars|
00000560 0d 02 9e 14 20 e7 20 73 70 64 25 3c 31 20 73 70 |.... . spd%<1 sp|
00000570 64 25 3d 31 0d 02 a8 14 20 78 25 3d 28 78 25 2b |d%=1.... x%=(x%+|
00000580 36 34 30 29 83 36 34 30 0d 02 b2 1b 20 6e 25 3d |640).640.... n%=|
00000590 6e 25 2a 31 36 3a 6e 25 2b 3d 73 74 61 72 5f 64 |n%*16:n%+=star_d|
000005a0 61 74 61 0d 02 bc 2d 20 6e 25 21 30 3d 63 6f 6c |ata...- n%!0=col|
000005b0 25 3a 6e 25 21 34 3d 78 25 3a 6e 25 21 38 3d 79 |%:n%!4=x%:n%!8=y|
000005c0 25 2a 31 36 30 3a 6e 25 21 31 32 3d 73 70 64 25 |%*160:n%!12=spd%|
000005d0 0d 02 c6 14 20 21 73 74 61 72 73 3d 21 73 74 61 |.... !stars=!sta|
000005e0 72 73 2b 31 0d 02 d0 05 e1 0d 02 da 04 0d 02 e4 |rs+1............|
000005f0 19 dd f2 73 32 28 78 25 2c 79 25 2c 63 6f 6c 25 |...s2(x%,y%,col%|
00000600 2c 73 70 64 25 29 0d 02 ee 2e 20 f2 73 28 78 25 |,spd%).... .s(x%|
00000610 2c 79 25 2c 63 6f 6c 25 2c 73 70 64 25 29 3a f2 |,y%,col%,spd%):.|
00000620 73 28 78 25 2b 31 2c 79 25 2c 63 6f 6c 25 2c 73 |s(x%+1,y%,col%,s|
00000630 70 64 25 29 0d 02 f8 05 e1 0d 03 02 04 0d 03 0c |pd%)............|
00000640 19 dd f2 73 33 28 78 25 2c 79 25 2c 63 6f 6c 25 |...s3(x%,y%,col%|
00000650 2c 73 70 64 25 29 0d 03 16 2e 20 f2 73 28 78 25 |,spd%).... .s(x%|
00000660 2c 79 25 2c 63 6f 6c 25 2c 73 70 64 25 29 3a f2 |,y%,col%,spd%):.|
00000670 73 28 78 25 2b 31 2c 79 25 2c 63 6f 6c 25 2c 73 |s(x%+1,y%,col%,s|
00000680 70 64 25 29 0d 03 20 30 20 f2 73 28 78 25 2d 31 |pd%).. 0 .s(x%-1|
00000690 2c 79 25 2c 63 6f 6c 25 2c 73 70 64 25 29 3a f2 |,y%,col%,spd%):.|
000006a0 73 28 78 25 2c 79 25 2b 31 2c 63 6f 6c 25 2c 73 |s(x%,y%+1,col%,s|
000006b0 70 64 25 29 0d 03 2a 1a 20 f2 73 28 78 25 2c 79 |pd%)..*. .s(x%,y|
000006c0 25 2d 31 2c 63 6f 6c 25 2c 73 70 64 25 29 0d 03 |%-1,col%,spd%)..|
000006d0 34 05 e1 0d 03 3e 04 0d 03 48 0d dd f2 67 65 74 |4....>...H...get|
000006e0 63 6f 6c 73 0d 03 52 08 20 ea 20 85 0d 03 5c 0c |cols..R. . ...\.|
000006f0 20 ee 20 85 20 ea 20 e1 0d 03 66 12 20 de 20 63 | . . . ...f. . c|
00000700 6f 6c 63 6f 64 65 25 20 31 32 0d 03 70 27 20 c8 |olcode% 12..p' .|
00000710 99 26 32 33 2c 22 33 44 45 79 65 24 4c 65 66 74 |.&23,"3DEye$Left|
00000720 22 2c 63 6f 6c 63 6f 64 65 25 2c 31 32 2c 30 2c |",colcode%,12,0,|
00000730 30 0d 03 7a 19 20 72 31 25 3d 31 36 2a a4 63 63 |0..z. r1%=16*.cc|
00000740 28 30 29 2b a4 63 63 28 31 29 0d 03 84 19 20 67 |(0)+.cc(1).... g|
00000750 31 25 3d 31 36 2a a4 63 63 28 32 29 2b a4 63 63 |1%=16*.cc(2)+.cc|
00000760 28 33 29 0d 03 8e 19 20 62 31 25 3d 31 36 2a a4 |(3).... b1%=16*.|
00000770 63 63 28 34 29 2b a4 63 63 28 35 29 0d 03 98 27 |cc(4)+.cc(5)...'|
00000780 c8 99 26 32 33 2c 22 33 44 45 79 65 24 52 69 67 |..&23,"3DEye$Rig|
00000790 68 74 22 2c 63 6f 6c 63 6f 64 65 25 2c 31 32 2c |ht",colcode%,12,|
000007a0 30 2c 30 0d 03 a2 19 20 72 32 25 3d 31 36 2a a4 |0,0.... r2%=16*.|
000007b0 63 63 28 30 29 2b a4 63 63 28 31 29 0d 03 ac 19 |cc(0)+.cc(1)....|
000007c0 20 67 32 25 3d 31 36 2a a4 63 63 28 32 29 2b a4 | g2%=16*.cc(2)+.|
000007d0 63 63 28 33 29 0d 03 b6 19 20 62 32 25 3d 31 36 |cc(3).... b2%=16|
000007e0 2a a4 63 63 28 34 29 2b a4 63 63 28 35 29 0d 03 |*.cc(4)+.cc(5)..|
000007f0 c0 05 e1 0d 03 ca 04 0d 03 d4 0e dd a4 63 63 28 |.............cc(|
00000800 70 6f 73 25 29 0d 03 de 2a 20 e7 20 63 6f 6c 63 |pos%)...* . colc|
00000810 6f 64 65 25 3f 70 6f 73 25 3e 3d 36 35 20 3d 63 |ode%?pos%>=65 =c|
00000820 6f 6c 63 6f 64 65 25 3f 70 6f 73 25 2d 35 35 0d |olcode%?pos%-55.|
00000830 03 e8 15 3d 63 6f 6c 63 6f 64 65 25 3f 70 6f 73 |...=colcode%?pos|
00000840 25 2d 34 38 0d ff |%-48..|
00000846 
.