�     >Render
� By  Robin Barnes
� For 32-bit machines
(� (c) BAU June 1993
2:
<� "Render v1.00"
F:
P� � �error
Z�cli
d	�size
n� code% &2000
x.ș "OS_File",&FF,"<Rend$Dir>.code",code%,0
�	�code
�:
��"loading...":�load
��dimension
�� sprdata%!4>0 � �preptext
��"preparing..."
��prepare
�:
�� mode%=13 � � 13 � � 15
��
��output
�	�plot
�+ș "OS_SpriteOp",256+12,sprite%,sprite$

�

:

� �dimension

"material%=data%+4

,,point%=data%+4+28*!data%:pntnum%=!point%

60offset%=point%+4+12*pntnum%:polnum%=!offset%

@poly%=offset%+4+4*polnum%

Jsproff%=sprdata%+8

T sprmap%=sproff%+4*sprdata%!4

^� table% pntnum%*12

h� flag% polnum%*4

r� plane% polnum%*16

|� pntnorm% pntnum%*12

�� bound% polnum%*8

�:

�� input% 124

�� output% 60

��

�:

�� �code

�boundbox=code%+!code%

�plane=code%+code%!4

�pointnormal=code%+code%!8

�polynormal=code%+code%!12

�scanline=code%+code%!16

�point=code%+code%!20
intensity=code%+code%!24
colour=code%+code%!28
fputobas=code%+code%!32
&bastofpu=code%+code%!36
0number=code%+code%!40
:transform=code%+code%!44
Dperspective=code%+code%!48
Ninput=code%+52
Xoutput=code%+56
b�
l:
v��input
�input%!8=point%
�input%!12=offset%
�input%!16=poly%
�input%!20=table%
�input%!24=flag%
�input%!28=plane%
�input%!32=pntnorm%
�input%!36=bound%
�input%!40=setup%+20
�input%!60=setup%+80
�input%!64=setup%!68
�input%!68=setup%!72
�input%!72=setup%!76
�
:
� �size
 1ș "OS_File",&05,"v."+file$ � tst%,,,,setsze%
*(� tst%=0 � � "View data not found":�
41ș "OS_File",&05,"d."+file$ � tst%,,,,datsze%
>)� tst%=0 � � "Scene data not found":�
H1ș "OS_File",&05,"t."+file$ � tst%,,,,sprsze%
R&� tst%=0 � � "Texture not found":�
\�
f:
p� �load
z� setup% setsze%
�� data% datsze%
�� sprdata% sprsze%
�&ș "OS_File",&FF,"v."+file$,setup%
�%ș "OS_File",&FF,"d."+file$,data%
�(ș "OS_File",&FF,"t."+file$,sprdata%
��
�:
�� �prepare
�!!input=input%:!output=output%
�
�input
�� transform
�input%!8=setup%+80
�'setup%!20=0:setup%!24=0:setup%!28=0
� transform
input%!8=point%
� plane
$� pointnormal
.� perspective
8� boundbox
B%� fputobas,output%!4:ymin=|number
L&� fputobas,output%!12:ymax=|number
V%� fputobas,!setup%:xscale=|number
`&� fputobas,setup%!4:yscale=|number
jmode%=setup%!8
t+ypix%=4+2*(mode%=0):xpix%=4+2*(mode%<2)
~$mode%=21+6*(mode%=1)+8*(mode%=2)
�&width%=setup%!12:height%=setup%!16
�7� ymin*yscale<-height%/2 � ymin=-height%/(yscale*2)
�5� ymax*yscale>height%/2 � ymax=height%/(yscale*2)
�)xstep=xpix%/xscale:ystep=ypix%/yscale
�%sprite$=$(setup%+84+12*setup%!80)
��
�:
�
� �output
�.sptwdt%=width%/xpix%:spthgt%=height%/ypix%
�"� sprite% &400+sptwdt%*spthgt%
�!!sprite%=&400+sptwdt%*spthgt%
�sprite%!4=0
sprite%!8=16

sprite%!12=16
Dș "OS_SpriteOp",256+15,sprite%,"screen",0,sptwdt%,spthgt%,mode%
�
(:
2� �plot
<� yscan=ymin � ymax � ystep
F%|number=yscan:� bastofpu,input%!4
P� scanline
Z� !table%>0 �
d$� fputobas,table%!4:xmax=|number
n0� fputobas,table%!(8*!table%-4):xmin=|number
x3� xmax*xscale>width%/2 � xmax=width%/(xscale*2)
�5� xmin*xscale<-width%/2 � xmin=-width%/(xscale*2)
�� xscan=xmin � xmax � xstep
�$|number=xscan:� bastofpu,!input%
�� point
�� !output%>=0 �
��pixel(col%,tnt%)
�:ș "OS_SpriteOp",256+60,sprite%,"screen" � R0,R1,R2,R3
�� col% Ȝ tnt%
�3Ȓ xscan*xscale+width%/2,yscan*yscale+height%/2
� ș "OS_SpriteOp",R0,R1,R2,R3
�� col% Ȝ tnt%
�3Ȓ xscan*xscale+width%/2,yscan*yscale+height%/2
��
� xscan
�
� yscan
"�
,:
6
� �map
@matoff%=28*(idt%>>16)
Jinput%!76=material%!matoff%
T#input%!80=material%!(matoff%+4)
^#input%!84=material%!(matoff%+8)
h$input%!88=material%!(matoff%+12)
r$input%!92=material%!(matoff%+16)
|$input%!96=material%!(matoff%+20)
�%input%!100=material%!(matoff%+24)
��
�:
�� �pixel(� col%,� tnt%)
�1pol%=!output%:idt%=poly%!(offset%!(4+4*pol%))
�1� (idt% � 3)>0 �  input%!44=pol%:� polynormal
�input%!48=output%!4
�input%!52=output%!8
�input%!56=output%!12
�,� (idt% � &80000000)=0 � �map � �texture
�'!input=input%+48:!output=output%+44
�� intensity
�0� fputobas,output%!44:input%!104=255*|number
0� fputobas,output%!48:input%!108=255*|number
0� fputobas,output%!52:input%!112=255*|number
(!input=input%+104:!output=output%+56
&� colour
0.col%=output%!56 � 63:tnt%=output%!56 � 192
:!!input=input%:!output=output%
D�
N:
X� �preptext
btext$=$(sprdata%+!sprdata%)
l.ș "OS_File",&05,text$ � tst%,,,,sprtxsze%
v%� tst%=0 � � "Sprite not found":�
�� sprtext% sprtxsze%+&100
�� sprtcde% &1000
�� sprinput% 56
�� sproutput% 12
�!sprtext%=sprtxsze%+&100
�sprtext%!4=0
�sprtext%!8=16
�sprtext%!12=16
�*ș "OS_SpriteOp",256+10,sprtext%,text$
�� sprt%=0 � sprdata%!4-1
�spradr%=sproff%!(4*sprt%)
�Bș "OS_SpriteOp",256+24,sprtext%,sprmap%+spradr%+4 � ,,sprblk%
�Gș "OS_SpriteOp",256+40,sprtext%,sprmap%+spradr%+4 � ,,,spwd%,spht%
sprmap%!(spradr%+4)=sprblk%
2|number=spwd%-1:� bastofpu,sprmap%!(spradr%+8)
3|number=spht%-1:� bastofpu,sprmap%!(spradr%+12)
 � sprt%
*:
4� fullcol% 256*4
>� col%=0 � 255
H/red%=col% � 3:grn%=col% � 12:blu%=col% � 48
Rtnt%=(col% � 192)>> 2
\(fullcol%?(4*col%+1)=(red%<<6) � tnt%
f(fullcol%?(4*col%+2)=(grn%<<4) � tnt%
p(fullcol%?(4*col%+3)=(blu%<<2) � tnt%
z
� col%
�:
�� opt%=0 � 2 � 2
�P%=sprtcde%
�[ OPT opt%
�.sprite
�LDR R0,sprinput
�LDR R1,sproutput
�0EQUD &ED900100:EQUD &ED901101:EQUD &ED902102
�LDR R2,[R0,#12]
�LDR R3,[R0,#16]
�LDR R4,[R0,#20]
�LDR R5,[R0,#24]
�LDR R6,[R0,#28]
	LDR R7,[R0,#32]
	7SUB R3,R3,R7:SUB R4,R4,R7:SUB R5,R5,R7:SUB R6,R6,R7
	ADD R12,R2,R3,ASL #&03
	$!EQUD &ED9C3100:EQUD &ED9C4101
	.ADD R12,R2,R5,ASL #&03
	80EQUD &ED9C5100:EQUD &ED9C6101:EQUD &EE133100
	B0EQUD &EE300109:EQUD &EE155100:EQUD &EE033105
	L0EQUD &EE166100:EQUD &EE300109:EQUD &EE144100
	VEQUD &EE044106
	`ADD R12,R2,R4,ASL #&03
	j!EQUD &ED9C5100:EQUD &ED9C6101
	tADD R12,R2,R6,ASL #&03
	~0EQUD &ED9C7100:EQUD &ED9C0101:EQUD &EE155101
	�0EQUD &EE311109:EQUD &EE177101:EQUD &EE055107
	�0EQUD &EE100101:EQUD &EE311109:EQUD &EE166101
	�EQUD &EE066100
	�:
	�0EQUD &EE133102:EQUD &EE322109:EQUD &EE155102
	�0EQUD &EE033105:EQUD &EE166102:EQUD &EE322109
	�0EQUD &EE144102:EQUD &EE044106:EQUD &ED90110B
	�0EQUD &ED90210C:EQUD &EE133101:EQUD &EE144102
	�!EQUD &EE133113:EQUD &EE144114
	�STMFD R13!,{R0-R1}
	�LDR R1,[R0,#36]
	�LDR R2,[R0,#40]
MOV R0,#41:ADD R0,R0,#512

MOV R5,#&00:MOV R6,#&00
SWI "OS_SpriteOp"
LDMFD R13!,{R0-R1}
(�R R5,R5,R6
2LDR R7,[R2,#40]
<+CMP R7,#&0D:CMPNE R7,#&0F:CMPNE R7,#&15
F/LDREQ R2,[R0,#52]:LDREQ R3,[R2,R5,ASL #&02]
P-ADDNE R2,R2,#44:LDRNE R3,[R2,R5,ASL #&03]
ZMOV R3,R3,ASR #&08
d2MOV R4,R3,ASR #&10:� R4,R4,#&FF:STR R4,[R1,#8]
n2MOV R4,R3,ASR #&08:� R4,R4,#&FF:STR R4,[R1,#4]
x� R4,R3,#&FF:STR R4,[R1]
�MOV PC,R14
�:
�.sprinput EQUD &00
�.sproutput EQUD &00
�]
�
� opt%
��
�:
�� �texture
�map%=(idt%>>16) � &7FFF
�spradr%=sproff%!(4*map%)
�-!sprinput=sprinput%:!sproutput=sproutput%
�0!sprinput%=output%!32:sprinput%!4=output%!36
sprinput%!8=output%!40
#sprinput%!12=sprmap%+spradr%+28
sprinput%!16=output%!16
"sprinput%!20=output%!20
,sprinput%!24=output%!24
6sprinput%!28=output%!28
@ sprinput%!32=sprmap%!spradr%
Jsprinput%!36=sprtext%
T$sprinput%!40=sprmap%!(spradr%+4)
^$sprinput%!44=sprmap%!(spradr%+8)
h%sprinput%!48=sprmap%!(spradr%+12)
rsprinput%!52=fullcol%
|� sprite
�3� fputobas,sprmap%!(spradr%+16):diffuse=|number
�9|number=!sproutput%/256*diffuse:� bastofpu, input%!76
�:|number=sproutput%!4/256*diffuse:� bastofpu, input%!80
�:|number=sproutput%!8/256*diffuse:� bastofpu, input%!84
�Ainput%!88=sprmap%!(spradr%+20):input%!92=sprmap%!(spradr%+20)
�Binput%!96=sprmap%!(spradr%+20):input%!100=sprmap%!(spradr%+24)
��
�:
���error
�	� � �
�ș "OS_SpriteOp",572,0,0,1
��:�" at line ";�
��
:
� �read
str$=""
&+ȕ (text%?read%<>32) � (text%?read%<>0)
0str$+=�(text%?read%)
:read%+=1
D�
N*ȕ (text%?read%=32) � (text%?read%<>0)
Xread%+=1
b�
l	=str$
v:
�
� �cli
�ș "OS_GetEnv" � text%
�
read%=0:�
�com$=�read
�9� (text%?read%=0) � �com$,"RENDER") � �com$,"Render")
�file$=�read
�%� file$="" � � "filename : "file$
��
�

00000000  0d 00 0a 11 f4 20 20 20  20 20 3e 52 65 6e 64 65  |.....     >Rende|
00000010  72 0d 00 14 16 f4 20 42  79 20 20 52 6f 62 69 6e  |r..... By  Robin|
00000020  20 42 61 72 6e 65 73 0d  00 1e 19 f4 20 46 6f 72  | Barnes..... For|
00000030  20 33 32 2d 62 69 74 20  6d 61 63 68 69 6e 65 73  | 32-bit machines|
00000040  0d 00 28 17 f4 20 28 63  29 20 42 41 55 20 4a 75  |..(.. (c) BAU Ju|
00000050  6e 65 20 31 39 39 33 0d  00 32 05 3a 0d 00 3c 14  |ne 1993..2.:..<.|
00000060  f1 20 22 52 65 6e 64 65  72 20 76 31 2e 30 30 22  |. "Render v1.00"|
00000070  0d 00 46 05 3a 0d 00 50  0e ee 20 85 20 f2 65 72  |..F.:..P.. . .er|
00000080  72 6f 72 0d 00 5a 08 f2  63 6c 69 0d 00 64 09 f2  |ror..Z..cli..d..|
00000090  73 69 7a 65 0d 00 6e 11  de 20 63 6f 64 65 25 20  |size..n.. code% |
000000a0  26 32 30 30 30 0d 00 78  2e c8 99 20 22 4f 53 5f  |&2000..x... "OS_|
000000b0  46 69 6c 65 22 2c 26 46  46 2c 22 3c 52 65 6e 64  |File",&FF,"<Rend|
000000c0  24 44 69 72 3e 2e 63 6f  64 65 22 2c 63 6f 64 65  |$Dir>.code",code|
000000d0  25 2c 30 0d 00 82 09 f2  63 6f 64 65 0d 00 8c 05  |%,0.....code....|
000000e0  3a 0d 00 96 17 f1 22 6c  6f 61 64 69 6e 67 2e 2e  |:....."loading..|
000000f0  2e 22 3a f2 6c 6f 61 64  0d 00 a0 0e f2 64 69 6d  |.":.load.....dim|
00000100  65 6e 73 69 6f 6e 0d 00  aa 1e e7 20 73 70 72 64  |ension..... sprd|
00000110  61 74 61 25 21 34 3e 30  20 8c 20 f2 70 72 65 70  |ata%!4>0 . .prep|
00000120  74 65 78 74 0d 00 b4 13  f1 22 70 72 65 70 61 72  |text....."prepar|
00000130  69 6e 67 2e 2e 2e 22 0d  00 be 0c f2 70 72 65 70  |ing...".....prep|
00000140  61 72 65 0d 00 c8 05 3a  0d 00 d2 1c e7 20 6d 6f  |are....:..... mo|
00000150  64 65 25 3d 31 33 20 8c  20 eb 20 31 33 20 8b 20  |de%=13 . . 13 . |
00000160  eb 20 31 35 0d 00 dc 05  87 0d 00 e6 0b f2 6f 75  |. 15..........ou|
00000170  74 70 75 74 0d 00 f0 09  f2 70 6c 6f 74 0d 00 fa  |tput.....plot...|
00000180  2b c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |+.. "OS_SpriteOp|
00000190  22 2c 32 35 36 2b 31 32  2c 73 70 72 69 74 65 25  |",256+12,sprite%|
000001a0  2c 73 70 72 69 74 65 24  0d 01 04 05 e0 0d 01 0e  |,sprite$........|
000001b0  05 3a 0d 01 18 10 dd 20  f2 64 69 6d 65 6e 73 69  |.:..... .dimensi|
000001c0  6f 6e 0d 01 22 15 6d 61  74 65 72 69 61 6c 25 3d  |on..".material%=|
000001d0  64 61 74 61 25 2b 34 0d  01 2c 2c 70 6f 69 6e 74  |data%+4..,,point|
000001e0  25 3d 64 61 74 61 25 2b  34 2b 32 38 2a 21 64 61  |%=data%+4+28*!da|
000001f0  74 61 25 3a 70 6e 74 6e  75 6d 25 3d 21 70 6f 69  |ta%:pntnum%=!poi|
00000200  6e 74 25 0d 01 36 30 6f  66 66 73 65 74 25 3d 70  |nt%..60offset%=p|
00000210  6f 69 6e 74 25 2b 34 2b  31 32 2a 70 6e 74 6e 75  |oint%+4+12*pntnu|
00000220  6d 25 3a 70 6f 6c 6e 75  6d 25 3d 21 6f 66 66 73  |m%:polnum%=!offs|
00000230  65 74 25 0d 01 40 1d 70  6f 6c 79 25 3d 6f 66 66  |et%..@.poly%=off|
00000240  73 65 74 25 2b 34 2b 34  2a 70 6f 6c 6e 75 6d 25  |set%+4+4*polnum%|
00000250  0d 01 4a 16 73 70 72 6f  66 66 25 3d 73 70 72 64  |..J.sproff%=sprd|
00000260  61 74 61 25 2b 38 0d 01  54 20 73 70 72 6d 61 70  |ata%+8..T sprmap|
00000270  25 3d 73 70 72 6f 66 66  25 2b 34 2a 73 70 72 64  |%=sproff%+4*sprd|
00000280  61 74 61 25 21 34 0d 01  5e 17 de 20 74 61 62 6c  |ata%!4..^.. tabl|
00000290  65 25 20 70 6e 74 6e 75  6d 25 2a 31 32 0d 01 68  |e% pntnum%*12..h|
000002a0  15 de 20 66 6c 61 67 25  20 70 6f 6c 6e 75 6d 25  |.. flag% polnum%|
000002b0  2a 34 0d 01 72 17 de 20  70 6c 61 6e 65 25 20 70  |*4..r.. plane% p|
000002c0  6f 6c 6e 75 6d 25 2a 31  36 0d 01 7c 19 de 20 70  |olnum%*16..|.. p|
000002d0  6e 74 6e 6f 72 6d 25 20  70 6e 74 6e 75 6d 25 2a  |ntnorm% pntnum%*|
000002e0  31 32 0d 01 86 16 de 20  62 6f 75 6e 64 25 20 70  |12..... bound% p|
000002f0  6f 6c 6e 75 6d 25 2a 38  0d 01 90 05 3a 0d 01 9a  |olnum%*8....:...|
00000300  10 de 20 69 6e 70 75 74  25 20 31 32 34 0d 01 a4  |.. input% 124...|
00000310  10 de 20 6f 75 74 70 75  74 25 20 36 30 0d 01 ae  |.. output% 60...|
00000320  05 e1 0d 01 b8 05 3a 0d  01 c2 0b dd 20 f2 63 6f  |......:..... .co|
00000330  64 65 0d 01 cc 19 62 6f  75 6e 64 62 6f 78 3d 63  |de....boundbox=c|
00000340  6f 64 65 25 2b 21 63 6f  64 65 25 0d 01 d6 17 70  |ode%+!code%....p|
00000350  6c 61 6e 65 3d 63 6f 64  65 25 2b 63 6f 64 65 25  |lane=code%+code%|
00000360  21 34 0d 01 e0 1d 70 6f  69 6e 74 6e 6f 72 6d 61  |!4....pointnorma|
00000370  6c 3d 63 6f 64 65 25 2b  63 6f 64 65 25 21 38 0d  |l=code%+code%!8.|
00000380  01 ea 1d 70 6f 6c 79 6e  6f 72 6d 61 6c 3d 63 6f  |...polynormal=co|
00000390  64 65 25 2b 63 6f 64 65  25 21 31 32 0d 01 f4 1b  |de%+code%!12....|
000003a0  73 63 61 6e 6c 69 6e 65  3d 63 6f 64 65 25 2b 63  |scanline=code%+c|
000003b0  6f 64 65 25 21 31 36 0d  01 fe 18 70 6f 69 6e 74  |ode%!16....point|
000003c0  3d 63 6f 64 65 25 2b 63  6f 64 65 25 21 32 30 0d  |=code%+code%!20.|
000003d0  02 08 1c 69 6e 74 65 6e  73 69 74 79 3d 63 6f 64  |...intensity=cod|
000003e0  65 25 2b 63 6f 64 65 25  21 32 34 0d 02 12 19 63  |e%+code%!24....c|
000003f0  6f 6c 6f 75 72 3d 63 6f  64 65 25 2b 63 6f 64 65  |olour=code%+code|
00000400  25 21 32 38 0d 02 1c 1b  66 70 75 74 6f 62 61 73  |%!28....fputobas|
00000410  3d 63 6f 64 65 25 2b 63  6f 64 65 25 21 33 32 0d  |=code%+code%!32.|
00000420  02 26 1b 62 61 73 74 6f  66 70 75 3d 63 6f 64 65  |.&.bastofpu=code|
00000430  25 2b 63 6f 64 65 25 21  33 36 0d 02 30 19 6e 75  |%+code%!36..0.nu|
00000440  6d 62 65 72 3d 63 6f 64  65 25 2b 63 6f 64 65 25  |mber=code%+code%|
00000450  21 34 30 0d 02 3a 1c 74  72 61 6e 73 66 6f 72 6d  |!40..:.transform|
00000460  3d 63 6f 64 65 25 2b 63  6f 64 65 25 21 34 34 0d  |=code%+code%!44.|
00000470  02 44 1e 70 65 72 73 70  65 63 74 69 76 65 3d 63  |.D.perspective=c|
00000480  6f 64 65 25 2b 63 6f 64  65 25 21 34 38 0d 02 4e  |ode%+code%!48..N|
00000490  12 69 6e 70 75 74 3d 63  6f 64 65 25 2b 35 32 0d  |.input=code%+52.|
000004a0  02 58 13 6f 75 74 70 75  74 3d 63 6f 64 65 25 2b  |.X.output=code%+|
000004b0  35 36 0d 02 62 05 e1 0d  02 6c 05 3a 0d 02 76 0b  |56..b....l.:..v.|
000004c0  dd f2 69 6e 70 75 74 0d  02 80 13 69 6e 70 75 74  |..input....input|
000004d0  25 21 38 3d 70 6f 69 6e  74 25 0d 02 8a 15 69 6e  |%!8=point%....in|
000004e0  70 75 74 25 21 31 32 3d  6f 66 66 73 65 74 25 0d  |put%!12=offset%.|
000004f0  02 94 13 69 6e 70 75 74  25 21 31 36 3d 70 6f 6c  |...input%!16=pol|
00000500  79 25 0d 02 9e 14 69 6e  70 75 74 25 21 32 30 3d  |y%....input%!20=|
00000510  74 61 62 6c 65 25 0d 02  a8 13 69 6e 70 75 74 25  |table%....input%|
00000520  21 32 34 3d 66 6c 61 67  25 0d 02 b2 14 69 6e 70  |!24=flag%....inp|
00000530  75 74 25 21 32 38 3d 70  6c 61 6e 65 25 0d 02 bc  |ut%!28=plane%...|
00000540  16 69 6e 70 75 74 25 21  33 32 3d 70 6e 74 6e 6f  |.input%!32=pntno|
00000550  72 6d 25 0d 02 c6 14 69  6e 70 75 74 25 21 33 36  |rm%....input%!36|
00000560  3d 62 6f 75 6e 64 25 0d  02 d0 17 69 6e 70 75 74  |=bound%....input|
00000570  25 21 34 30 3d 73 65 74  75 70 25 2b 32 30 0d 02  |%!40=setup%+20..|
00000580  da 17 69 6e 70 75 74 25  21 36 30 3d 73 65 74 75  |..input%!60=setu|
00000590  70 25 2b 38 30 0d 02 e4  17 69 6e 70 75 74 25 21  |p%+80....input%!|
000005a0  36 34 3d 73 65 74 75 70  25 21 36 38 0d 02 ee 17  |64=setup%!68....|
000005b0  69 6e 70 75 74 25 21 36  38 3d 73 65 74 75 70 25  |input%!68=setup%|
000005c0  21 37 32 0d 02 f8 17 69  6e 70 75 74 25 21 37 32  |!72....input%!72|
000005d0  3d 73 65 74 75 70 25 21  37 36 0d 03 02 05 e1 0d  |=setup%!76......|
000005e0  03 0c 05 3a 0d 03 16 0b  dd 20 f2 73 69 7a 65 0d  |...:..... .size.|
000005f0  03 20 31 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |. 1.. "OS_File",|
00000600  26 30 35 2c 22 76 2e 22  2b 66 69 6c 65 24 20 b8  |&05,"v."+file$ .|
00000610  20 74 73 74 25 2c 2c 2c  2c 73 65 74 73 7a 65 25  | tst%,,,,setsze%|
00000620  0d 03 2a 28 e7 20 74 73  74 25 3d 30 20 8c 20 f1  |..*(. tst%=0 . .|
00000630  20 22 56 69 65 77 20 64  61 74 61 20 6e 6f 74 20  | "View data not |
00000640  66 6f 75 6e 64 22 3a e0  0d 03 34 31 c8 99 20 22  |found":...41.. "|
00000650  4f 53 5f 46 69 6c 65 22  2c 26 30 35 2c 22 64 2e  |OS_File",&05,"d.|
00000660  22 2b 66 69 6c 65 24 20  b8 20 74 73 74 25 2c 2c  |"+file$ . tst%,,|
00000670  2c 2c 64 61 74 73 7a 65  25 0d 03 3e 29 e7 20 74  |,,datsze%..>). t|
00000680  73 74 25 3d 30 20 8c 20  f1 20 22 53 63 65 6e 65  |st%=0 . . "Scene|
00000690  20 64 61 74 61 20 6e 6f  74 20 66 6f 75 6e 64 22  | data not found"|
000006a0  3a e0 0d 03 48 31 c8 99  20 22 4f 53 5f 46 69 6c  |:...H1.. "OS_Fil|
000006b0  65 22 2c 26 30 35 2c 22  74 2e 22 2b 66 69 6c 65  |e",&05,"t."+file|
000006c0  24 20 b8 20 74 73 74 25  2c 2c 2c 2c 73 70 72 73  |$ . tst%,,,,sprs|
000006d0  7a 65 25 0d 03 52 26 e7  20 74 73 74 25 3d 30 20  |ze%..R&. tst%=0 |
000006e0  8c 20 f1 20 22 54 65 78  74 75 72 65 20 6e 6f 74  |. . "Texture not|
000006f0  20 66 6f 75 6e 64 22 3a  e0 0d 03 5c 05 e1 0d 03  | found":...\....|
00000700  66 05 3a 0d 03 70 0b dd  20 f2 6c 6f 61 64 0d 03  |f.:..p.. .load..|
00000710  7a 14 de 20 73 65 74 75  70 25 20 73 65 74 73 7a  |z.. setup% setsz|
00000720  65 25 0d 03 84 13 de 20  64 61 74 61 25 20 64 61  |e%..... data% da|
00000730  74 73 7a 65 25 0d 03 8e  16 de 20 73 70 72 64 61  |tsze%..... sprda|
00000740  74 61 25 20 73 70 72 73  7a 65 25 0d 03 98 26 c8  |ta% sprsze%...&.|
00000750  99 20 22 4f 53 5f 46 69  6c 65 22 2c 26 46 46 2c  |. "OS_File",&FF,|
00000760  22 76 2e 22 2b 66 69 6c  65 24 2c 73 65 74 75 70  |"v."+file$,setup|
00000770  25 0d 03 a2 25 c8 99 20  22 4f 53 5f 46 69 6c 65  |%...%.. "OS_File|
00000780  22 2c 26 46 46 2c 22 64  2e 22 2b 66 69 6c 65 24  |",&FF,"d."+file$|
00000790  2c 64 61 74 61 25 0d 03  ac 28 c8 99 20 22 4f 53  |,data%...(.. "OS|
000007a0  5f 46 69 6c 65 22 2c 26  46 46 2c 22 74 2e 22 2b  |_File",&FF,"t."+|
000007b0  66 69 6c 65 24 2c 73 70  72 64 61 74 61 25 0d 03  |file$,sprdata%..|
000007c0  b6 05 e1 0d 03 c0 05 3a  0d 03 ca 0e dd 20 f2 70  |.......:..... .p|
000007d0  72 65 70 61 72 65 0d 03  d4 21 21 69 6e 70 75 74  |repare...!!input|
000007e0  3d 69 6e 70 75 74 25 3a  21 6f 75 74 70 75 74 3d  |=input%:!output=|
000007f0  6f 75 74 70 75 74 25 0d  03 de 0a f2 69 6e 70 75  |output%.....inpu|
00000800  74 0d 03 e8 0f d6 20 74  72 61 6e 73 66 6f 72 6d  |t..... transform|
00000810  0d 03 f2 16 69 6e 70 75  74 25 21 38 3d 73 65 74  |....input%!8=set|
00000820  75 70 25 2b 38 30 0d 03  fc 27 73 65 74 75 70 25  |up%+80...'setup%|
00000830  21 32 30 3d 30 3a 73 65  74 75 70 25 21 32 34 3d  |!20=0:setup%!24=|
00000840  30 3a 73 65 74 75 70 25  21 32 38 3d 30 0d 04 06  |0:setup%!28=0...|
00000850  0f d6 20 74 72 61 6e 73  66 6f 72 6d 0d 04 10 13  |.. transform....|
00000860  69 6e 70 75 74 25 21 38  3d 70 6f 69 6e 74 25 0d  |input%!8=point%.|
00000870  04 1a 0b d6 20 70 6c 61  6e 65 0d 04 24 11 d6 20  |.... plane..$.. |
00000880  70 6f 69 6e 74 6e 6f 72  6d 61 6c 0d 04 2e 11 d6  |pointnormal.....|
00000890  20 70 65 72 73 70 65 63  74 69 76 65 0d 04 38 0e  | perspective..8.|
000008a0  d6 20 62 6f 75 6e 64 62  6f 78 0d 04 42 25 d6 20  |. boundbox..B%. |
000008b0  66 70 75 74 6f 62 61 73  2c 6f 75 74 70 75 74 25  |fputobas,output%|
000008c0  21 34 3a 79 6d 69 6e 3d  7c 6e 75 6d 62 65 72 0d  |!4:ymin=|number.|
000008d0  04 4c 26 d6 20 66 70 75  74 6f 62 61 73 2c 6f 75  |.L&. fputobas,ou|
000008e0  74 70 75 74 25 21 31 32  3a 79 6d 61 78 3d 7c 6e  |tput%!12:ymax=|n|
000008f0  75 6d 62 65 72 0d 04 56  25 d6 20 66 70 75 74 6f  |umber..V%. fputo|
00000900  62 61 73 2c 21 73 65 74  75 70 25 3a 78 73 63 61  |bas,!setup%:xsca|
00000910  6c 65 3d 7c 6e 75 6d 62  65 72 0d 04 60 26 d6 20  |le=|number..`&. |
00000920  66 70 75 74 6f 62 61 73  2c 73 65 74 75 70 25 21  |fputobas,setup%!|
00000930  34 3a 79 73 63 61 6c 65  3d 7c 6e 75 6d 62 65 72  |4:yscale=|number|
00000940  0d 04 6a 12 6d 6f 64 65  25 3d 73 65 74 75 70 25  |..j.mode%=setup%|
00000950  21 38 0d 04 74 2b 79 70  69 78 25 3d 34 2b 32 2a  |!8..t+ypix%=4+2*|
00000960  28 6d 6f 64 65 25 3d 30  29 3a 78 70 69 78 25 3d  |(mode%=0):xpix%=|
00000970  34 2b 32 2a 28 6d 6f 64  65 25 3c 32 29 0d 04 7e  |4+2*(mode%<2)..~|
00000980  24 6d 6f 64 65 25 3d 32  31 2b 36 2a 28 6d 6f 64  |$mode%=21+6*(mod|
00000990  65 25 3d 31 29 2b 38 2a  28 6d 6f 64 65 25 3d 32  |e%=1)+8*(mode%=2|
000009a0  29 0d 04 88 26 77 69 64  74 68 25 3d 73 65 74 75  |)...&width%=setu|
000009b0  70 25 21 31 32 3a 68 65  69 67 68 74 25 3d 73 65  |p%!12:height%=se|
000009c0  74 75 70 25 21 31 36 0d  04 92 37 e7 20 79 6d 69  |tup%!16...7. ymi|
000009d0  6e 2a 79 73 63 61 6c 65  3c 2d 68 65 69 67 68 74  |n*yscale<-height|
000009e0  25 2f 32 20 8c 20 79 6d  69 6e 3d 2d 68 65 69 67  |%/2 . ymin=-heig|
000009f0  68 74 25 2f 28 79 73 63  61 6c 65 2a 32 29 0d 04  |ht%/(yscale*2)..|
00000a00  9c 35 e7 20 79 6d 61 78  2a 79 73 63 61 6c 65 3e  |.5. ymax*yscale>|
00000a10  68 65 69 67 68 74 25 2f  32 20 8c 20 79 6d 61 78  |height%/2 . ymax|
00000a20  3d 68 65 69 67 68 74 25  2f 28 79 73 63 61 6c 65  |=height%/(yscale|
00000a30  2a 32 29 0d 04 a6 29 78  73 74 65 70 3d 78 70 69  |*2)...)xstep=xpi|
00000a40  78 25 2f 78 73 63 61 6c  65 3a 79 73 74 65 70 3d  |x%/xscale:ystep=|
00000a50  79 70 69 78 25 2f 79 73  63 61 6c 65 0d 04 b0 25  |ypix%/yscale...%|
00000a60  73 70 72 69 74 65 24 3d  24 28 73 65 74 75 70 25  |sprite$=$(setup%|
00000a70  2b 38 34 2b 31 32 2a 73  65 74 75 70 25 21 38 30  |+84+12*setup%!80|
00000a80  29 0d 04 ba 05 e1 0d 04  c4 05 3a 0d 04 ce 0d dd  |).........:.....|
00000a90  20 f2 6f 75 74 70 75 74  0d 04 d8 2e 73 70 74 77  | .output....sptw|
00000aa0  64 74 25 3d 77 69 64 74  68 25 2f 78 70 69 78 25  |dt%=width%/xpix%|
00000ab0  3a 73 70 74 68 67 74 25  3d 68 65 69 67 68 74 25  |:spthgt%=height%|
00000ac0  2f 79 70 69 78 25 0d 04  e2 22 de 20 73 70 72 69  |/ypix%...". spri|
00000ad0  74 65 25 20 26 34 30 30  2b 73 70 74 77 64 74 25  |te% &400+sptwdt%|
00000ae0  2a 73 70 74 68 67 74 25  0d 04 ec 21 21 73 70 72  |*spthgt%...!!spr|
00000af0  69 74 65 25 3d 26 34 30  30 2b 73 70 74 77 64 74  |ite%=&400+sptwdt|
00000b00  25 2a 73 70 74 68 67 74  25 0d 04 f6 0f 73 70 72  |%*spthgt%....spr|
00000b10  69 74 65 25 21 34 3d 30  0d 05 00 10 73 70 72 69  |ite%!4=0....spri|
00000b20  74 65 25 21 38 3d 31 36  0d 05 0a 11 73 70 72 69  |te%!8=16....spri|
00000b30  74 65 25 21 31 32 3d 31  36 0d 05 14 44 c8 99 20  |te%!12=16...D.. |
00000b40  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000b50  36 2b 31 35 2c 73 70 72  69 74 65 25 2c 22 73 63  |6+15,sprite%,"sc|
00000b60  72 65 65 6e 22 2c 30 2c  73 70 74 77 64 74 25 2c  |reen",0,sptwdt%,|
00000b70  73 70 74 68 67 74 25 2c  6d 6f 64 65 25 0d 05 1e  |spthgt%,mode%...|
00000b80  05 e1 0d 05 28 05 3a 0d  05 32 0b dd 20 f2 70 6c  |....(.:..2.. .pl|
00000b90  6f 74 0d 05 3c 1f e3 20  79 73 63 61 6e 3d 79 6d  |ot..<.. yscan=ym|
00000ba0  69 6e 20 b8 20 79 6d 61  78 20 88 20 79 73 74 65  |in . ymax . yste|
00000bb0  70 0d 05 46 25 7c 6e 75  6d 62 65 72 3d 79 73 63  |p..F%|number=ysc|
00000bc0  61 6e 3a d6 20 62 61 73  74 6f 66 70 75 2c 69 6e  |an:. bastofpu,in|
00000bd0  70 75 74 25 21 34 0d 05  50 0e d6 20 73 63 61 6e  |put%!4..P.. scan|
00000be0  6c 69 6e 65 0d 05 5a 11  e7 20 21 74 61 62 6c 65  |line..Z.. !table|
00000bf0  25 3e 30 20 8c 0d 05 64  24 d6 20 66 70 75 74 6f  |%>0 ...d$. fputo|
00000c00  62 61 73 2c 74 61 62 6c  65 25 21 34 3a 78 6d 61  |bas,table%!4:xma|
00000c10  78 3d 7c 6e 75 6d 62 65  72 0d 05 6e 30 d6 20 66  |x=|number..n0. f|
00000c20  70 75 74 6f 62 61 73 2c  74 61 62 6c 65 25 21 28  |putobas,table%!(|
00000c30  38 2a 21 74 61 62 6c 65  25 2d 34 29 3a 78 6d 69  |8*!table%-4):xmi|
00000c40  6e 3d 7c 6e 75 6d 62 65  72 0d 05 78 33 e7 20 78  |n=|number..x3. x|
00000c50  6d 61 78 2a 78 73 63 61  6c 65 3e 77 69 64 74 68  |max*xscale>width|
00000c60  25 2f 32 20 8c 20 78 6d  61 78 3d 77 69 64 74 68  |%/2 . xmax=width|
00000c70  25 2f 28 78 73 63 61 6c  65 2a 32 29 0d 05 82 35  |%/(xscale*2)...5|
00000c80  e7 20 78 6d 69 6e 2a 78  73 63 61 6c 65 3c 2d 77  |. xmin*xscale<-w|
00000c90  69 64 74 68 25 2f 32 20  8c 20 78 6d 69 6e 3d 2d  |idth%/2 . xmin=-|
00000ca0  77 69 64 74 68 25 2f 28  78 73 63 61 6c 65 2a 32  |width%/(xscale*2|
00000cb0  29 0d 05 8c 1f e3 20 78  73 63 61 6e 3d 78 6d 69  |)..... xscan=xmi|
00000cc0  6e 20 b8 20 78 6d 61 78  20 88 20 78 73 74 65 70  |n . xmax . xstep|
00000cd0  0d 05 96 24 7c 6e 75 6d  62 65 72 3d 78 73 63 61  |...$|number=xsca|
00000ce0  6e 3a d6 20 62 61 73 74  6f 66 70 75 2c 21 69 6e  |n:. bastofpu,!in|
00000cf0  70 75 74 25 0d 05 a0 0b  d6 20 70 6f 69 6e 74 0d  |put%..... point.|
00000d00  05 aa 13 e7 20 21 6f 75  74 70 75 74 25 3e 3d 30  |.... !output%>=0|
00000d10  20 8c 0d 05 b4 15 f2 70  69 78 65 6c 28 63 6f 6c  | ......pixel(col|
00000d20  25 2c 74 6e 74 25 29 0d  05 be 3a c8 99 20 22 4f  |%,tnt%)...:.. "O|
00000d30  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000d40  36 30 2c 73 70 72 69 74  65 25 2c 22 73 63 72 65  |60,sprite%,"scre|
00000d50  65 6e 22 20 b8 20 52 30  2c 52 31 2c 52 32 2c 52  |en" . R0,R1,R2,R|
00000d60  33 0d 05 c8 12 e6 20 63  6f 6c 25 20 c8 9c 20 74  |3..... col% .. t|
00000d70  6e 74 25 0d 05 d2 33 c8  92 20 78 73 63 61 6e 2a  |nt%...3.. xscan*|
00000d80  78 73 63 61 6c 65 2b 77  69 64 74 68 25 2f 32 2c  |xscale+width%/2,|
00000d90  79 73 63 61 6e 2a 79 73  63 61 6c 65 2b 68 65 69  |yscan*yscale+hei|
00000da0  67 68 74 25 2f 32 0d 05  dc 20 c8 99 20 22 4f 53  |ght%/2... .. "OS|
00000db0  5f 53 70 72 69 74 65 4f  70 22 2c 52 30 2c 52 31  |_SpriteOp",R0,R1|
00000dc0  2c 52 32 2c 52 33 0d 05  e6 12 e6 20 63 6f 6c 25  |,R2,R3..... col%|
00000dd0  20 c8 9c 20 74 6e 74 25  0d 05 f0 33 c8 92 20 78  | .. tnt%...3.. x|
00000de0  73 63 61 6e 2a 78 73 63  61 6c 65 2b 77 69 64 74  |scan*xscale+widt|
00000df0  68 25 2f 32 2c 79 73 63  61 6e 2a 79 73 63 61 6c  |h%/2,yscan*yscal|
00000e00  65 2b 68 65 69 67 68 74  25 2f 32 0d 05 fa 05 cd  |e+height%/2.....|
00000e10  0d 06 04 0b ed 20 78 73  63 61 6e 0d 06 0e 05 cd  |..... xscan.....|
00000e20  0d 06 18 0b ed 20 79 73  63 61 6e 0d 06 22 05 e1  |..... yscan.."..|
00000e30  0d 06 2c 05 3a 0d 06 36  0a dd 20 f2 6d 61 70 0d  |..,.:..6.. .map.|
00000e40  06 40 19 6d 61 74 6f 66  66 25 3d 32 38 2a 28 69  |.@.matoff%=28*(i|
00000e50  64 74 25 3e 3e 31 36 29  0d 06 4a 1f 69 6e 70 75  |dt%>>16)..J.inpu|
00000e60  74 25 21 37 36 3d 6d 61  74 65 72 69 61 6c 25 21  |t%!76=material%!|
00000e70  6d 61 74 6f 66 66 25 0d  06 54 23 69 6e 70 75 74  |matoff%..T#input|
00000e80  25 21 38 30 3d 6d 61 74  65 72 69 61 6c 25 21 28  |%!80=material%!(|
00000e90  6d 61 74 6f 66 66 25 2b  34 29 0d 06 5e 23 69 6e  |matoff%+4)..^#in|
00000ea0  70 75 74 25 21 38 34 3d  6d 61 74 65 72 69 61 6c  |put%!84=material|
00000eb0  25 21 28 6d 61 74 6f 66  66 25 2b 38 29 0d 06 68  |%!(matoff%+8)..h|
00000ec0  24 69 6e 70 75 74 25 21  38 38 3d 6d 61 74 65 72  |$input%!88=mater|
00000ed0  69 61 6c 25 21 28 6d 61  74 6f 66 66 25 2b 31 32  |ial%!(matoff%+12|
00000ee0  29 0d 06 72 24 69 6e 70  75 74 25 21 39 32 3d 6d  |)..r$input%!92=m|
00000ef0  61 74 65 72 69 61 6c 25  21 28 6d 61 74 6f 66 66  |aterial%!(matoff|
00000f00  25 2b 31 36 29 0d 06 7c  24 69 6e 70 75 74 25 21  |%+16)..|$input%!|
00000f10  39 36 3d 6d 61 74 65 72  69 61 6c 25 21 28 6d 61  |96=material%!(ma|
00000f20  74 6f 66 66 25 2b 32 30  29 0d 06 86 25 69 6e 70  |toff%+20)...%inp|
00000f30  75 74 25 21 31 30 30 3d  6d 61 74 65 72 69 61 6c  |ut%!100=material|
00000f40  25 21 28 6d 61 74 6f 66  66 25 2b 32 34 29 0d 06  |%!(matoff%+24)..|
00000f50  90 05 e1 0d 06 9a 05 3a  0d 06 a4 1b dd 20 f2 70  |.......:..... .p|
00000f60  69 78 65 6c 28 f8 20 63  6f 6c 25 2c f8 20 74 6e  |ixel(. col%,. tn|
00000f70  74 25 29 0d 06 ae 31 70  6f 6c 25 3d 21 6f 75 74  |t%)...1pol%=!out|
00000f80  70 75 74 25 3a 69 64 74  25 3d 70 6f 6c 79 25 21  |put%:idt%=poly%!|
00000f90  28 6f 66 66 73 65 74 25  21 28 34 2b 34 2a 70 6f  |(offset%!(4+4*po|
00000fa0  6c 25 29 29 0d 06 b8 31  e7 20 28 69 64 74 25 20  |l%))...1. (idt% |
00000fb0  80 20 33 29 3e 30 20 8c  20 20 69 6e 70 75 74 25  |. 3)>0 .  input%|
00000fc0  21 34 34 3d 70 6f 6c 25  3a d6 20 70 6f 6c 79 6e  |!44=pol%:. polyn|
00000fd0  6f 72 6d 61 6c 0d 06 c2  17 69 6e 70 75 74 25 21  |ormal....input%!|
00000fe0  34 38 3d 6f 75 74 70 75  74 25 21 34 0d 06 cc 17  |48=output%!4....|
00000ff0  69 6e 70 75 74 25 21 35  32 3d 6f 75 74 70 75 74  |input%!52=output|
00001000  25 21 38 0d 06 d6 18 69  6e 70 75 74 25 21 35 36  |%!8....input%!56|
00001010  3d 6f 75 74 70 75 74 25  21 31 32 0d 06 e0 2c e7  |=output%!12...,.|
00001020  20 28 69 64 74 25 20 80  20 26 38 30 30 30 30 30  | (idt% . &800000|
00001030  30 30 29 3d 30 20 8c 20  f2 6d 61 70 20 8b 20 f2  |00)=0 . .map . .|
00001040  74 65 78 74 75 72 65 0d  06 ea 27 21 69 6e 70 75  |texture...'!inpu|
00001050  74 3d 69 6e 70 75 74 25  2b 34 38 3a 21 6f 75 74  |t=input%+48:!out|
00001060  70 75 74 3d 6f 75 74 70  75 74 25 2b 34 34 0d 06  |put=output%+44..|
00001070  f4 0f d6 20 69 6e 74 65  6e 73 69 74 79 0d 06 fe  |... intensity...|
00001080  30 d6 20 66 70 75 74 6f  62 61 73 2c 6f 75 74 70  |0. fputobas,outp|
00001090  75 74 25 21 34 34 3a 69  6e 70 75 74 25 21 31 30  |ut%!44:input%!10|
000010a0  34 3d 32 35 35 2a 7c 6e  75 6d 62 65 72 0d 07 08  |4=255*|number...|
000010b0  30 d6 20 66 70 75 74 6f  62 61 73 2c 6f 75 74 70  |0. fputobas,outp|
000010c0  75 74 25 21 34 38 3a 69  6e 70 75 74 25 21 31 30  |ut%!48:input%!10|
000010d0  38 3d 32 35 35 2a 7c 6e  75 6d 62 65 72 0d 07 12  |8=255*|number...|
000010e0  30 d6 20 66 70 75 74 6f  62 61 73 2c 6f 75 74 70  |0. fputobas,outp|
000010f0  75 74 25 21 35 32 3a 69  6e 70 75 74 25 21 31 31  |ut%!52:input%!11|
00001100  32 3d 32 35 35 2a 7c 6e  75 6d 62 65 72 0d 07 1c  |2=255*|number...|
00001110  28 21 69 6e 70 75 74 3d  69 6e 70 75 74 25 2b 31  |(!input=input%+1|
00001120  30 34 3a 21 6f 75 74 70  75 74 3d 6f 75 74 70 75  |04:!output=outpu|
00001130  74 25 2b 35 36 0d 07 26  0c d6 20 63 6f 6c 6f 75  |t%+56..&.. colou|
00001140  72 0d 07 30 2e 63 6f 6c  25 3d 6f 75 74 70 75 74  |r..0.col%=output|
00001150  25 21 35 36 20 80 20 36  33 3a 74 6e 74 25 3d 6f  |%!56 . 63:tnt%=o|
00001160  75 74 70 75 74 25 21 35  36 20 80 20 31 39 32 0d  |utput%!56 . 192.|
00001170  07 3a 21 21 69 6e 70 75  74 3d 69 6e 70 75 74 25  |.:!!input=input%|
00001180  3a 21 6f 75 74 70 75 74  3d 6f 75 74 70 75 74 25  |:!output=output%|
00001190  0d 07 44 05 e1 0d 07 4e  05 3a 0d 07 58 0f dd 20  |..D....N.:..X.. |
000011a0  f2 70 72 65 70 74 65 78  74 0d 07 62 1f 74 65 78  |.preptext..b.tex|
000011b0  74 24 3d 24 28 73 70 72  64 61 74 61 25 2b 21 73  |t$=$(sprdata%+!s|
000011c0  70 72 64 61 74 61 25 29  0d 07 6c 2e c8 99 20 22  |prdata%)..l... "|
000011d0  4f 53 5f 46 69 6c 65 22  2c 26 30 35 2c 74 65 78  |OS_File",&05,tex|
000011e0  74 24 20 b8 20 74 73 74  25 2c 2c 2c 2c 73 70 72  |t$ . tst%,,,,spr|
000011f0  74 78 73 7a 65 25 0d 07  76 25 e7 20 74 73 74 25  |txsze%..v%. tst%|
00001200  3d 30 20 8c 20 f1 20 22  53 70 72 69 74 65 20 6e  |=0 . . "Sprite n|
00001210  6f 74 20 66 6f 75 6e 64  22 3a e0 0d 07 80 1d de  |ot found":......|
00001220  20 73 70 72 74 65 78 74  25 20 73 70 72 74 78 73  | sprtext% sprtxs|
00001230  7a 65 25 2b 26 31 30 30  0d 07 8a 14 de 20 73 70  |ze%+&100..... sp|
00001240  72 74 63 64 65 25 20 26  31 30 30 30 0d 07 94 12  |rtcde% &1000....|
00001250  de 20 73 70 72 69 6e 70  75 74 25 20 35 36 0d 07  |. sprinput% 56..|
00001260  9e 13 de 20 73 70 72 6f  75 74 70 75 74 25 20 31  |... sproutput% 1|
00001270  32 0d 07 a8 1c 21 73 70  72 74 65 78 74 25 3d 73  |2....!sprtext%=s|
00001280  70 72 74 78 73 7a 65 25  2b 26 31 30 30 0d 07 b2  |prtxsze%+&100...|
00001290  10 73 70 72 74 65 78 74  25 21 34 3d 30 0d 07 bc  |.sprtext%!4=0...|
000012a0  11 73 70 72 74 65 78 74  25 21 38 3d 31 36 0d 07  |.sprtext%!8=16..|
000012b0  c6 12 73 70 72 74 65 78  74 25 21 31 32 3d 31 36  |..sprtext%!12=16|
000012c0  0d 07 d0 2a c8 99 20 22  4f 53 5f 53 70 72 69 74  |...*.. "OS_Sprit|
000012d0  65 4f 70 22 2c 32 35 36  2b 31 30 2c 73 70 72 74  |eOp",256+10,sprt|
000012e0  65 78 74 25 2c 74 65 78  74 24 0d 07 da 1c e3 20  |ext%,text$..... |
000012f0  73 70 72 74 25 3d 30 20  b8 20 73 70 72 64 61 74  |sprt%=0 . sprdat|
00001300  61 25 21 34 2d 31 0d 07  e4 1d 73 70 72 61 64 72  |a%!4-1....spradr|
00001310  25 3d 73 70 72 6f 66 66  25 21 28 34 2a 73 70 72  |%=sproff%!(4*spr|
00001320  74 25 29 0d 07 ee 42 c8  99 20 22 4f 53 5f 53 70  |t%)...B.. "OS_Sp|
00001330  72 69 74 65 4f 70 22 2c  32 35 36 2b 32 34 2c 73  |riteOp",256+24,s|
00001340  70 72 74 65 78 74 25 2c  73 70 72 6d 61 70 25 2b  |prtext%,sprmap%+|
00001350  73 70 72 61 64 72 25 2b  34 20 b8 20 2c 2c 73 70  |spradr%+4 . ,,sp|
00001360  72 62 6c 6b 25 0d 07 f8  47 c8 99 20 22 4f 53 5f  |rblk%...G.. "OS_|
00001370  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 34 30  |SpriteOp",256+40|
00001380  2c 73 70 72 74 65 78 74  25 2c 73 70 72 6d 61 70  |,sprtext%,sprmap|
00001390  25 2b 73 70 72 61 64 72  25 2b 34 20 b8 20 2c 2c  |%+spradr%+4 . ,,|
000013a0  2c 73 70 77 64 25 2c 73  70 68 74 25 0d 08 02 1f  |,spwd%,spht%....|
000013b0  73 70 72 6d 61 70 25 21  28 73 70 72 61 64 72 25  |sprmap%!(spradr%|
000013c0  2b 34 29 3d 73 70 72 62  6c 6b 25 0d 08 0c 32 7c  |+4)=sprblk%...2||
000013d0  6e 75 6d 62 65 72 3d 73  70 77 64 25 2d 31 3a d6  |number=spwd%-1:.|
000013e0  20 62 61 73 74 6f 66 70  75 2c 73 70 72 6d 61 70  | bastofpu,sprmap|
000013f0  25 21 28 73 70 72 61 64  72 25 2b 38 29 0d 08 16  |%!(spradr%+8)...|
00001400  33 7c 6e 75 6d 62 65 72  3d 73 70 68 74 25 2d 31  |3|number=spht%-1|
00001410  3a d6 20 62 61 73 74 6f  66 70 75 2c 73 70 72 6d  |:. bastofpu,sprm|
00001420  61 70 25 21 28 73 70 72  61 64 72 25 2b 31 32 29  |ap%!(spradr%+12)|
00001430  0d 08 20 0b ed 20 73 70  72 74 25 0d 08 2a 05 3a  |.. .. sprt%..*.:|
00001440  0d 08 34 14 de 20 66 75  6c 6c 63 6f 6c 25 20 32  |..4.. fullcol% 2|
00001450  35 36 2a 34 0d 08 3e 12  e3 20 63 6f 6c 25 3d 30  |56*4..>.. col%=0|
00001460  20 b8 20 32 35 35 0d 08  48 2f 72 65 64 25 3d 63  | . 255..H/red%=c|
00001470  6f 6c 25 20 80 20 33 3a  67 72 6e 25 3d 63 6f 6c  |ol% . 3:grn%=col|
00001480  25 20 80 20 31 32 3a 62  6c 75 25 3d 63 6f 6c 25  |% . 12:blu%=col%|
00001490  20 80 20 34 38 0d 08 52  19 74 6e 74 25 3d 28 63  | . 48..R.tnt%=(c|
000014a0  6f 6c 25 20 80 20 31 39  32 29 3e 3e 20 32 0d 08  |ol% . 192)>> 2..|
000014b0  5c 28 66 75 6c 6c 63 6f  6c 25 3f 28 34 2a 63 6f  |\(fullcol%?(4*co|
000014c0  6c 25 2b 31 29 3d 28 72  65 64 25 3c 3c 36 29 20  |l%+1)=(red%<<6) |
000014d0  84 20 74 6e 74 25 0d 08  66 28 66 75 6c 6c 63 6f  |. tnt%..f(fullco|
000014e0  6c 25 3f 28 34 2a 63 6f  6c 25 2b 32 29 3d 28 67  |l%?(4*col%+2)=(g|
000014f0  72 6e 25 3c 3c 34 29 20  84 20 74 6e 74 25 0d 08  |rn%<<4) . tnt%..|
00001500  70 28 66 75 6c 6c 63 6f  6c 25 3f 28 34 2a 63 6f  |p(fullcol%?(4*co|
00001510  6c 25 2b 33 29 3d 28 62  6c 75 25 3c 3c 32 29 20  |l%+3)=(blu%<<2) |
00001520  84 20 74 6e 74 25 0d 08  7a 0a ed 20 63 6f 6c 25  |. tnt%..z.. col%|
00001530  0d 08 84 05 3a 0d 08 8e  14 e3 20 6f 70 74 25 3d  |....:..... opt%=|
00001540  30 20 b8 20 32 20 88 20  32 0d 08 98 0f 50 25 3d  |0 . 2 . 2....P%=|
00001550  73 70 72 74 63 64 65 25  0d 08 a2 0e 5b 20 4f 50  |sprtcde%....[ OP|
00001560  54 20 6f 70 74 25 0d 08  ac 0b 2e 73 70 72 69 74  |T opt%.....sprit|
00001570  65 0d 08 b6 13 4c 44 52  20 52 30 2c 73 70 72 69  |e....LDR R0,spri|
00001580  6e 70 75 74 0d 08 c0 14  4c 44 52 20 52 31 2c 73  |nput....LDR R1,s|
00001590  70 72 6f 75 74 70 75 74  0d 08 ca 30 45 51 55 44  |proutput...0EQUD|
000015a0  20 26 45 44 39 30 30 31  30 30 3a 45 51 55 44 20  | &ED900100:EQUD |
000015b0  26 45 44 39 30 31 31 30  31 3a 45 51 55 44 20 26  |&ED901101:EQUD &|
000015c0  45 44 39 30 32 31 30 32  0d 08 d4 13 4c 44 52 20  |ED902102....LDR |
000015d0  52 32 2c 5b 52 30 2c 23  31 32 5d 0d 08 de 13 4c  |R2,[R0,#12]....L|
000015e0  44 52 20 52 33 2c 5b 52  30 2c 23 31 36 5d 0d 08  |DR R3,[R0,#16]..|
000015f0  e8 13 4c 44 52 20 52 34  2c 5b 52 30 2c 23 32 30  |..LDR R4,[R0,#20|
00001600  5d 0d 08 f2 13 4c 44 52  20 52 35 2c 5b 52 30 2c  |]....LDR R5,[R0,|
00001610  23 32 34 5d 0d 08 fc 13  4c 44 52 20 52 36 2c 5b  |#24]....LDR R6,[|
00001620  52 30 2c 23 32 38 5d 0d  09 06 13 4c 44 52 20 52  |R0,#28]....LDR R|
00001630  37 2c 5b 52 30 2c 23 33  32 5d 0d 09 10 37 53 55  |7,[R0,#32]...7SU|
00001640  42 20 52 33 2c 52 33 2c  52 37 3a 53 55 42 20 52  |B R3,R3,R7:SUB R|
00001650  34 2c 52 34 2c 52 37 3a  53 55 42 20 52 35 2c 52  |4,R4,R7:SUB R5,R|
00001660  35 2c 52 37 3a 53 55 42  20 52 36 2c 52 36 2c 52  |5,R7:SUB R6,R6,R|
00001670  37 0d 09 1a 1a 41 44 44  20 52 31 32 2c 52 32 2c  |7....ADD R12,R2,|
00001680  52 33 2c 41 53 4c 20 23  26 30 33 0d 09 24 21 45  |R3,ASL #&03..$!E|
00001690  51 55 44 20 26 45 44 39  43 33 31 30 30 3a 45 51  |QUD &ED9C3100:EQ|
000016a0  55 44 20 26 45 44 39 43  34 31 30 31 0d 09 2e 1a  |UD &ED9C4101....|
000016b0  41 44 44 20 52 31 32 2c  52 32 2c 52 35 2c 41 53  |ADD R12,R2,R5,AS|
000016c0  4c 20 23 26 30 33 0d 09  38 30 45 51 55 44 20 26  |L #&03..80EQUD &|
000016d0  45 44 39 43 35 31 30 30  3a 45 51 55 44 20 26 45  |ED9C5100:EQUD &E|
000016e0  44 39 43 36 31 30 31 3a  45 51 55 44 20 26 45 45  |D9C6101:EQUD &EE|
000016f0  31 33 33 31 30 30 0d 09  42 30 45 51 55 44 20 26  |133100..B0EQUD &|
00001700  45 45 33 30 30 31 30 39  3a 45 51 55 44 20 26 45  |EE300109:EQUD &E|
00001710  45 31 35 35 31 30 30 3a  45 51 55 44 20 26 45 45  |E155100:EQUD &EE|
00001720  30 33 33 31 30 35 0d 09  4c 30 45 51 55 44 20 26  |033105..L0EQUD &|
00001730  45 45 31 36 36 31 30 30  3a 45 51 55 44 20 26 45  |EE166100:EQUD &E|
00001740  45 33 30 30 31 30 39 3a  45 51 55 44 20 26 45 45  |E300109:EQUD &EE|
00001750  31 34 34 31 30 30 0d 09  56 12 45 51 55 44 20 26  |144100..V.EQUD &|
00001760  45 45 30 34 34 31 30 36  0d 09 60 1a 41 44 44 20  |EE044106..`.ADD |
00001770  52 31 32 2c 52 32 2c 52  34 2c 41 53 4c 20 23 26  |R12,R2,R4,ASL #&|
00001780  30 33 0d 09 6a 21 45 51  55 44 20 26 45 44 39 43  |03..j!EQUD &ED9C|
00001790  35 31 30 30 3a 45 51 55  44 20 26 45 44 39 43 36  |5100:EQUD &ED9C6|
000017a0  31 30 31 0d 09 74 1a 41  44 44 20 52 31 32 2c 52  |101..t.ADD R12,R|
000017b0  32 2c 52 36 2c 41 53 4c  20 23 26 30 33 0d 09 7e  |2,R6,ASL #&03..~|
000017c0  30 45 51 55 44 20 26 45  44 39 43 37 31 30 30 3a  |0EQUD &ED9C7100:|
000017d0  45 51 55 44 20 26 45 44  39 43 30 31 30 31 3a 45  |EQUD &ED9C0101:E|
000017e0  51 55 44 20 26 45 45 31  35 35 31 30 31 0d 09 88  |QUD &EE155101...|
000017f0  30 45 51 55 44 20 26 45  45 33 31 31 31 30 39 3a  |0EQUD &EE311109:|
00001800  45 51 55 44 20 26 45 45  31 37 37 31 30 31 3a 45  |EQUD &EE177101:E|
00001810  51 55 44 20 26 45 45 30  35 35 31 30 37 0d 09 92  |QUD &EE055107...|
00001820  30 45 51 55 44 20 26 45  45 31 30 30 31 30 31 3a  |0EQUD &EE100101:|
00001830  45 51 55 44 20 26 45 45  33 31 31 31 30 39 3a 45  |EQUD &EE311109:E|
00001840  51 55 44 20 26 45 45 31  36 36 31 30 31 0d 09 9c  |QUD &EE166101...|
00001850  12 45 51 55 44 20 26 45  45 30 36 36 31 30 30 0d  |.EQUD &EE066100.|
00001860  09 a6 05 3a 0d 09 b0 30  45 51 55 44 20 26 45 45  |...:...0EQUD &EE|
00001870  31 33 33 31 30 32 3a 45  51 55 44 20 26 45 45 33  |133102:EQUD &EE3|
00001880  32 32 31 30 39 3a 45 51  55 44 20 26 45 45 31 35  |22109:EQUD &EE15|
00001890  35 31 30 32 0d 09 ba 30  45 51 55 44 20 26 45 45  |5102...0EQUD &EE|
000018a0  30 33 33 31 30 35 3a 45  51 55 44 20 26 45 45 31  |033105:EQUD &EE1|
000018b0  36 36 31 30 32 3a 45 51  55 44 20 26 45 45 33 32  |66102:EQUD &EE32|
000018c0  32 31 30 39 0d 09 c4 30  45 51 55 44 20 26 45 45  |2109...0EQUD &EE|
000018d0  31 34 34 31 30 32 3a 45  51 55 44 20 26 45 45 30  |144102:EQUD &EE0|
000018e0  34 34 31 30 36 3a 45 51  55 44 20 26 45 44 39 30  |44106:EQUD &ED90|
000018f0  31 31 30 42 0d 09 ce 30  45 51 55 44 20 26 45 44  |110B...0EQUD &ED|
00001900  39 30 32 31 30 43 3a 45  51 55 44 20 26 45 45 31  |90210C:EQUD &EE1|
00001910  33 33 31 30 31 3a 45 51  55 44 20 26 45 45 31 34  |33101:EQUD &EE14|
00001920  34 31 30 32 0d 09 d8 21  45 51 55 44 20 26 45 45  |4102...!EQUD &EE|
00001930  31 33 33 31 31 33 3a 45  51 55 44 20 26 45 45 31  |133113:EQUD &EE1|
00001940  34 34 31 31 34 0d 09 e2  16 53 54 4d 46 44 20 52  |44114....STMFD R|
00001950  31 33 21 2c 7b 52 30 2d  52 31 7d 0d 09 ec 13 4c  |13!,{R0-R1}....L|
00001960  44 52 20 52 31 2c 5b 52  30 2c 23 33 36 5d 0d 09  |DR R1,[R0,#36]..|
00001970  f6 13 4c 44 52 20 52 32  2c 5b 52 30 2c 23 34 30  |..LDR R2,[R0,#40|
00001980  5d 0d 0a 00 1d 4d 4f 56  20 52 30 2c 23 34 31 3a  |]....MOV R0,#41:|
00001990  41 44 44 20 52 30 2c 52  30 2c 23 35 31 32 0d 0a  |ADD R0,R0,#512..|
000019a0  0a 1b 4d 4f 56 20 52 35  2c 23 26 30 30 3a 4d 4f  |..MOV R5,#&00:MO|
000019b0  56 20 52 36 2c 23 26 30  30 0d 0a 14 15 53 57 49  |V R6,#&00....SWI|
000019c0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 0d 0a  | "OS_SpriteOp"..|
000019d0  1e 16 4c 44 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..LDMFD R13!,{R0|
000019e0  2d 52 31 7d 0d 0a 28 0f  84 52 20 52 35 2c 52 35  |-R1}..(..R R5,R5|
000019f0  2c 52 36 0d 0a 32 13 4c  44 52 20 52 37 2c 5b 52  |,R6..2.LDR R7,[R|
00001a00  32 2c 23 34 30 5d 0d 0a  3c 2b 43 4d 50 20 52 37  |2,#40]..<+CMP R7|
00001a10  2c 23 26 30 44 3a 43 4d  50 4e 45 20 52 37 2c 23  |,#&0D:CMPNE R7,#|
00001a20  26 30 46 3a 43 4d 50 4e  45 20 52 37 2c 23 26 31  |&0F:CMPNE R7,#&1|
00001a30  35 0d 0a 46 2f 4c 44 52  45 51 20 52 32 2c 5b 52  |5..F/LDREQ R2,[R|
00001a40  30 2c 23 35 32 5d 3a 4c  44 52 45 51 20 52 33 2c  |0,#52]:LDREQ R3,|
00001a50  5b 52 32 2c 52 35 2c 41  53 4c 20 23 26 30 32 5d  |[R2,R5,ASL #&02]|
00001a60  0d 0a 50 2d 41 44 44 4e  45 20 52 32 2c 52 32 2c  |..P-ADDNE R2,R2,|
00001a70  23 34 34 3a 4c 44 52 4e  45 20 52 33 2c 5b 52 32  |#44:LDRNE R3,[R2|
00001a80  2c 52 35 2c 41 53 4c 20  23 26 30 33 5d 0d 0a 5a  |,R5,ASL #&03]..Z|
00001a90  16 4d 4f 56 20 52 33 2c  52 33 2c 41 53 52 20 23  |.MOV R3,R3,ASR #|
00001aa0  26 30 38 0d 0a 64 32 4d  4f 56 20 52 34 2c 52 33  |&08..d2MOV R4,R3|
00001ab0  2c 41 53 52 20 23 26 31  30 3a 80 20 52 34 2c 52  |,ASR #&10:. R4,R|
00001ac0  34 2c 23 26 46 46 3a 53  54 52 20 52 34 2c 5b 52  |4,#&FF:STR R4,[R|
00001ad0  31 2c 23 38 5d 0d 0a 6e  32 4d 4f 56 20 52 34 2c  |1,#8]..n2MOV R4,|
00001ae0  52 33 2c 41 53 52 20 23  26 30 38 3a 80 20 52 34  |R3,ASR #&08:. R4|
00001af0  2c 52 34 2c 23 26 46 46  3a 53 54 52 20 52 34 2c  |,R4,#&FF:STR R4,|
00001b00  5b 52 31 2c 23 34 5d 0d  0a 78 1c 80 20 52 34 2c  |[R1,#4]..x.. R4,|
00001b10  52 33 2c 23 26 46 46 3a  53 54 52 20 52 34 2c 5b  |R3,#&FF:STR R4,[|
00001b20  52 31 5d 0d 0a 82 0e 4d  4f 56 20 50 43 2c 52 31  |R1]....MOV PC,R1|
00001b30  34 0d 0a 8c 05 3a 0d 0a  96 16 2e 73 70 72 69 6e  |4....:.....sprin|
00001b40  70 75 74 20 45 51 55 44  20 26 30 30 0d 0a a0 17  |put EQUD &00....|
00001b50  2e 73 70 72 6f 75 74 70  75 74 20 45 51 55 44 20  |.sproutput EQUD |
00001b60  26 30 30 0d 0a aa 05 5d  0d 0a b4 0a ed 20 6f 70  |&00....]..... op|
00001b70  74 25 0d 0a be 05 e1 0d  0a c8 05 3a 0d 0a d2 0e  |t%.........:....|
00001b80  dd 20 f2 74 65 78 74 75  72 65 0d 0a dc 1b 6d 61  |. .texture....ma|
00001b90  70 25 3d 28 69 64 74 25  3e 3e 31 36 29 20 80 20  |p%=(idt%>>16) . |
00001ba0  26 37 46 46 46 0d 0a e6  1c 73 70 72 61 64 72 25  |&7FFF....spradr%|
00001bb0  3d 73 70 72 6f 66 66 25  21 28 34 2a 6d 61 70 25  |=sproff%!(4*map%|
00001bc0  29 0d 0a f0 2d 21 73 70  72 69 6e 70 75 74 3d 73  |)...-!sprinput=s|
00001bd0  70 72 69 6e 70 75 74 25  3a 21 73 70 72 6f 75 74  |prinput%:!sprout|
00001be0  70 75 74 3d 73 70 72 6f  75 74 70 75 74 25 0d 0a  |put=sproutput%..|
00001bf0  fa 30 21 73 70 72 69 6e  70 75 74 25 3d 6f 75 74  |.0!sprinput%=out|
00001c00  70 75 74 25 21 33 32 3a  73 70 72 69 6e 70 75 74  |put%!32:sprinput|
00001c10  25 21 34 3d 6f 75 74 70  75 74 25 21 33 36 0d 0b  |%!4=output%!36..|
00001c20  04 1a 73 70 72 69 6e 70  75 74 25 21 38 3d 6f 75  |..sprinput%!8=ou|
00001c30  74 70 75 74 25 21 34 30  0d 0b 0e 23 73 70 72 69  |tput%!40...#spri|
00001c40  6e 70 75 74 25 21 31 32  3d 73 70 72 6d 61 70 25  |nput%!12=sprmap%|
00001c50  2b 73 70 72 61 64 72 25  2b 32 38 0d 0b 18 1b 73  |+spradr%+28....s|
00001c60  70 72 69 6e 70 75 74 25  21 31 36 3d 6f 75 74 70  |prinput%!16=outp|
00001c70  75 74 25 21 31 36 0d 0b  22 1b 73 70 72 69 6e 70  |ut%!16..".sprinp|
00001c80  75 74 25 21 32 30 3d 6f  75 74 70 75 74 25 21 32  |ut%!20=output%!2|
00001c90  30 0d 0b 2c 1b 73 70 72  69 6e 70 75 74 25 21 32  |0..,.sprinput%!2|
00001ca0  34 3d 6f 75 74 70 75 74  25 21 32 34 0d 0b 36 1b  |4=output%!24..6.|
00001cb0  73 70 72 69 6e 70 75 74  25 21 32 38 3d 6f 75 74  |sprinput%!28=out|
00001cc0  70 75 74 25 21 32 38 0d  0b 40 20 73 70 72 69 6e  |put%!28..@ sprin|
00001cd0  70 75 74 25 21 33 32 3d  73 70 72 6d 61 70 25 21  |put%!32=sprmap%!|
00001ce0  73 70 72 61 64 72 25 0d  0b 4a 19 73 70 72 69 6e  |spradr%..J.sprin|
00001cf0  70 75 74 25 21 33 36 3d  73 70 72 74 65 78 74 25  |put%!36=sprtext%|
00001d00  0d 0b 54 24 73 70 72 69  6e 70 75 74 25 21 34 30  |..T$sprinput%!40|
00001d10  3d 73 70 72 6d 61 70 25  21 28 73 70 72 61 64 72  |=sprmap%!(spradr|
00001d20  25 2b 34 29 0d 0b 5e 24  73 70 72 69 6e 70 75 74  |%+4)..^$sprinput|
00001d30  25 21 34 34 3d 73 70 72  6d 61 70 25 21 28 73 70  |%!44=sprmap%!(sp|
00001d40  72 61 64 72 25 2b 38 29  0d 0b 68 25 73 70 72 69  |radr%+8)..h%spri|
00001d50  6e 70 75 74 25 21 34 38  3d 73 70 72 6d 61 70 25  |nput%!48=sprmap%|
00001d60  21 28 73 70 72 61 64 72  25 2b 31 32 29 0d 0b 72  |!(spradr%+12)..r|
00001d70  19 73 70 72 69 6e 70 75  74 25 21 35 32 3d 66 75  |.sprinput%!52=fu|
00001d80  6c 6c 63 6f 6c 25 0d 0b  7c 0c d6 20 73 70 72 69  |llcol%..|.. spri|
00001d90  74 65 0d 0b 86 33 d6 20  66 70 75 74 6f 62 61 73  |te...3. fputobas|
00001da0  2c 73 70 72 6d 61 70 25  21 28 73 70 72 61 64 72  |,sprmap%!(spradr|
00001db0  25 2b 31 36 29 3a 64 69  66 66 75 73 65 3d 7c 6e  |%+16):diffuse=|n|
00001dc0  75 6d 62 65 72 0d 0b 90  39 7c 6e 75 6d 62 65 72  |umber...9|number|
00001dd0  3d 21 73 70 72 6f 75 74  70 75 74 25 2f 32 35 36  |=!sproutput%/256|
00001de0  2a 64 69 66 66 75 73 65  3a d6 20 62 61 73 74 6f  |*diffuse:. basto|
00001df0  66 70 75 2c 20 69 6e 70  75 74 25 21 37 36 0d 0b  |fpu, input%!76..|
00001e00  9a 3a 7c 6e 75 6d 62 65  72 3d 73 70 72 6f 75 74  |.:|number=sprout|
00001e10  70 75 74 25 21 34 2f 32  35 36 2a 64 69 66 66 75  |put%!4/256*diffu|
00001e20  73 65 3a d6 20 62 61 73  74 6f 66 70 75 2c 20 69  |se:. bastofpu, i|
00001e30  6e 70 75 74 25 21 38 30  0d 0b a4 3a 7c 6e 75 6d  |nput%!80...:|num|
00001e40  62 65 72 3d 73 70 72 6f  75 74 70 75 74 25 21 38  |ber=sproutput%!8|
00001e50  2f 32 35 36 2a 64 69 66  66 75 73 65 3a d6 20 62  |/256*diffuse:. b|
00001e60  61 73 74 6f 66 70 75 2c  20 69 6e 70 75 74 25 21  |astofpu, input%!|
00001e70  38 34 0d 0b ae 41 69 6e  70 75 74 25 21 38 38 3d  |84...Ainput%!88=|
00001e80  73 70 72 6d 61 70 25 21  28 73 70 72 61 64 72 25  |sprmap%!(spradr%|
00001e90  2b 32 30 29 3a 69 6e 70  75 74 25 21 39 32 3d 73  |+20):input%!92=s|
00001ea0  70 72 6d 61 70 25 21 28  73 70 72 61 64 72 25 2b  |prmap%!(spradr%+|
00001eb0  32 30 29 0d 0b b8 42 69  6e 70 75 74 25 21 39 36  |20)...Binput%!96|
00001ec0  3d 73 70 72 6d 61 70 25  21 28 73 70 72 61 64 72  |=sprmap%!(spradr|
00001ed0  25 2b 32 30 29 3a 69 6e  70 75 74 25 21 31 30 30  |%+20):input%!100|
00001ee0  3d 73 70 72 6d 61 70 25  21 28 73 70 72 61 64 72  |=sprmap%!(spradr|
00001ef0  25 2b 32 34 29 0d 0b c2  05 e1 0d 0b cc 05 3a 0d  |%+24).........:.|
00001f00  0b d6 0b dd f2 65 72 72  6f 72 0d 0b e0 09 ee 20  |.....error..... |
00001f10  85 20 87 0d 0b ea 1e c8  99 20 22 4f 53 5f 53 70  |. ....... "OS_Sp|
00001f20  72 69 74 65 4f 70 22 2c  35 37 32 2c 30 2c 30 2c  |riteOp",572,0,0,|
00001f30  31 0d 0b f4 14 f6 3a f1  22 20 61 74 20 6c 69 6e  |1.....:." at lin|
00001f40  65 20 22 3b 9e 0d 0b fe  05 e0 0d 0c 08 05 3a 0d  |e ";..........:.|
00001f50  0c 12 0b dd 20 a4 72 65  61 64 0d 0c 1c 0b 73 74  |.... .read....st|
00001f60  72 24 3d 22 22 0d 0c 26  2b c8 95 20 28 74 65 78  |r$=""..&+.. (tex|
00001f70  74 25 3f 72 65 61 64 25  3c 3e 33 32 29 20 80 20  |t%?read%<>32) . |
00001f80  28 74 65 78 74 25 3f 72  65 61 64 25 3c 3e 30 29  |(text%?read%<>0)|
00001f90  0d 0c 30 18 73 74 72 24  2b 3d bd 28 74 65 78 74  |..0.str$+=.(text|
00001fa0  25 3f 72 65 61 64 25 29  0d 0c 3a 0c 72 65 61 64  |%?read%)..:.read|
00001fb0  25 2b 3d 31 0d 0c 44 05  ce 0d 0c 4e 2a c8 95 20  |%+=1..D....N*.. |
00001fc0  28 74 65 78 74 25 3f 72  65 61 64 25 3d 33 32 29  |(text%?read%=32)|
00001fd0  20 80 20 28 74 65 78 74  25 3f 72 65 61 64 25 3c  | . (text%?read%<|
00001fe0  3e 30 29 0d 0c 58 0c 72  65 61 64 25 2b 3d 31 0d  |>0)..X.read%+=1.|
00001ff0  0c 62 05 ce 0d 0c 6c 09  3d 73 74 72 24 0d 0c 76  |.b....l.=str$..v|
00002000  05 3a 0d 0c 80 0a dd 20  f2 63 6c 69 0d 0c 8a 1a  |.:..... .cli....|
00002010  c8 99 20 22 4f 53 5f 47  65 74 45 6e 76 22 20 b8  |.. "OS_GetEnv" .|
00002020  20 74 65 78 74 25 0d 0c  94 0d 72 65 61 64 25 3d  | text%....read%=|
00002030  30 3a f5 0d 0c 9e 0e 63  6f 6d 24 3d a4 72 65 61  |0:.....com$=.rea|
00002040  64 0d 0c a8 39 fd 20 28  74 65 78 74 25 3f 72 65  |d...9. (text%?re|
00002050  61 64 25 3d 30 29 20 84  20 a7 63 6f 6d 24 2c 22  |ad%=0) . .com$,"|
00002060  52 45 4e 44 45 52 22 29  20 84 20 a7 63 6f 6d 24  |RENDER") . .com$|
00002070  2c 22 52 65 6e 64 65 72  22 29 0d 0c b2 0f 66 69  |,"Render")....fi|
00002080  6c 65 24 3d a4 72 65 61  64 0d 0c bc 25 e7 20 66  |le$=.read...%. f|
00002090  69 6c 65 24 3d 22 22 20  8c 20 e8 20 22 66 69 6c  |ile$="" . . "fil|
000020a0  65 6e 61 6d 65 20 3a 20  22 66 69 6c 65 24 0d 0c  |ename : "file$..|
000020b0  c6 05 e1 0d ff                                    |.....|
000020b5