1� Risc PC version of David Brown's !Lissajous
� by DA
� (c) AU July 1995
(:
2�mode("X800 Y600 G256")
<� i%=0 � 255
= a=(i%*2*�)/256
F4 � i%,&80+&7F*�(a),&80+&7F*�(a*2),&80+&7F*�(a*3)
G�
n� code% 1024*5
x
�assem
��
��
��go
��
�
���assem
��x%=0 � 2 � 2
�P%=code%
�
[OPTx%
�
.drawx
�
EQUD 0
�
.drawy
�
EQUD 0

	.xdir


EQUD 0

	.ydir

"
EQUD 0

,.x

6
EQUD 2

@.y

J
EQUD 2

T
.input

^EQUD 148

hEQUD -1

r.output

|
EQUD 0

�
EQUD 0

�.readscrstart

�ADR R0,input

�ADR R1,output

�SWI "OS_ReadVduVariables"

�MOV PC,R14

�.drawcircle

�MOV R4,#16

�LDR R1,drawy

�MOV R2,#800

�MUL R0,R1,R2

�LDR R1,drawx

�ADD R0,R0,R1
LDR R1,output
ADD R0,R0,R1
ADR R1,circle
&
.drawline
0@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
:@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
D@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
N@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
X@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
b@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
l@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
v@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
�ADD R0,R0,#800-16
�SUBS R4,R4,#1
�BNE drawline
�MOV PC,R14
�	.xmid

EQUD 3104
	.ymid

EQUD 2332
 	.home
*STR R14,r14
4LDR R0,x
>LDR R1,y
HLDR R2,xdir
RLDR R3,ydir
\LDR R4,xmid
fLDR R5,ymid
p
CMP R0,R4
zSUBGT R2,R2,#1
�ADDLT R2,R2,#1
�
CMP R1,R5
�SUBGT R3,R3,#1
�ADDLT R3,R3,#1
�STR R2,xdir
�STR R3,ydir
�ADD R0,R0,R2
�ADD R1,R1,R3
�STR R0,x
�STR R1,y
�MOV R0,R0,LSR#3
�MOV R1,R1,LSR#3
�STR R0,drawx
STR R1,drawy
BL drawcircle
LDR PC,r14
$.r14
.
EQUD 0
8.circle
B]
L)�("LOAD <Obey$Dir>.circle "+�~circle)
VP%+=256
`�
j�
t
~��go
��readscrstart
�speed%=1:�=0
��
�� a%=1� speed%
�	�home
��
�� � >50 � �=0:speed%+=1
�� speed%<20 � Ȗ
�� 0
��
�:
�� �mode(mode$)
� c$,ex,ey,mode,end


� mode 64
end=mode+20
!mode=1
(mode!4=��_m(mode$,"X","")
2mode!8=��_m(mode$,"Y","")
<c$=�_m(mode$,"C","*")
F� c$="*" �
P c$=�_m(mode$,"G","")
Z' � c$="256" !end=3:end!4=255:end+=8
d�
nmode!12=�_bpp(c$)
x mode!16=��_m(mode$,"F","-1")
�ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
�ey=��_m(mode$,"EY","-1")
�#� ey<>-1 !end=5:end!4=ey:end+=8
�!end=-1
�
� mode
��
�
�� �_m(s$,p$,d$)
�	� i,j
�
i=�s$,p$)
�%� i<1 � d$="" � 490,"Missing "+p$
�� i<1 � =d$
j=�s$+" "," ",i+1)
=�s$,i+1,j-i-1)

"� �_bpp(n$)
,Ȏ n$ �
6
 � "2":=0
@
 � "4":=1
J � "16":=2
T � "256":=3
^! � "32T","32t","32K","32k":=4
h � "16M","16m":=5
r! : � 490,"Bad parameter "+n$
|�
�

00000000  0d 00 0a 31 f4 20 52 69  73 63 20 50 43 20 76 65  |...1. Risc PC ve|
00000010  72 73 69 6f 6e 20 6f 66  20 44 61 76 69 64 20 42  |rsion of David B|
00000020  72 6f 77 6e 27 73 20 21  4c 69 73 73 61 6a 6f 75  |rown's !Lissajou|
00000030  73 0d 00 14 0b f4 20 62  79 20 44 41 0d 00 1e 16  |s..... by DA....|
00000040  f4 20 28 63 29 20 41 55  20 4a 75 6c 79 20 31 39  |. (c) AU July 19|
00000050  39 35 0d 00 28 05 3a 0d  00 32 1b f2 6d 6f 64 65  |95..(.:..2..mode|
00000060  28 22 58 38 30 30 20 59  36 30 30 20 47 32 35 36  |("X800 Y600 G256|
00000070  22 29 0d 00 3c 10 e3 20  69 25 3d 30 20 b8 20 32  |")..<.. i%=0 . 2|
00000080  35 35 0d 00 3d 13 20 61  3d 28 69 25 2a 32 2a af  |55..=. a=(i%*2*.|
00000090  29 2f 32 35 36 0d 00 46  34 20 fb 20 69 25 2c 26  |)/256..F4 . i%,&|
000000a0  38 30 2b 26 37 46 2a b5  28 61 29 2c 26 38 30 2b  |80+&7F*.(a),&80+|
000000b0  26 37 46 2a b5 28 61 2a  32 29 2c 26 38 30 2b 26  |&7F*.(a*2),&80+&|
000000c0  37 46 2a b5 28 61 2a 33  29 0d 00 47 05 ed 0d 00  |7F*.(a*3)..G....|
000000d0  6e 12 de 20 63 6f 64 65  25 20 31 30 32 34 2a 35  |n.. code% 1024*5|
000000e0  0d 00 78 0a f2 61 73 73  65 6d 0d 00 82 05 db 0d  |..x..assem......|
000000f0  00 8c 05 87 0d 00 96 07  f2 67 6f 0d 00 a0 05 e0  |.........go.....|
00000100  0d 00 aa 04 0d 00 b4 0b  dd f2 61 73 73 65 6d 0d  |..........assem.|
00000110  00 be 11 e3 78 25 3d 30  20 b8 20 32 20 88 20 32  |....x%=0 . 2 . 2|
00000120  0d 00 c8 0c 50 25 3d 63  6f 64 65 25 0d 00 d2 0a  |....P%=code%....|
00000130  5b 4f 50 54 78 25 0d 00  dc 0a 2e 64 72 61 77 78  |[OPTx%.....drawx|
00000140  0d 00 e6 0a 45 51 55 44  20 30 0d 00 f0 0a 2e 64  |....EQUD 0.....d|
00000150  72 61 77 79 0d 00 fa 0a  45 51 55 44 20 30 0d 01  |rawy....EQUD 0..|
00000160  04 09 2e 78 64 69 72 0d  01 0e 0a 45 51 55 44 20  |...xdir....EQUD |
00000170  30 0d 01 18 09 2e 79 64  69 72 0d 01 22 0a 45 51  |0.....ydir..".EQ|
00000180  55 44 20 30 0d 01 2c 06  2e 78 0d 01 36 0a 45 51  |UD 0..,..x..6.EQ|
00000190  55 44 20 32 0d 01 40 06  2e 79 0d 01 4a 0a 45 51  |UD 2..@..y..J.EQ|
000001a0  55 44 20 32 0d 01 54 0a  2e 69 6e 70 75 74 0d 01  |UD 2..T..input..|
000001b0  5e 0c 45 51 55 44 20 31  34 38 0d 01 68 0b 45 51  |^.EQUD 148..h.EQ|
000001c0  55 44 20 2d 31 0d 01 72  0b 2e 6f 75 74 70 75 74  |UD -1..r..output|
000001d0  0d 01 7c 0a 45 51 55 44  20 30 0d 01 86 0a 45 51  |..|.EQUD 0....EQ|
000001e0  55 44 20 30 0d 01 90 11  2e 72 65 61 64 73 63 72  |UD 0.....readscr|
000001f0  73 74 61 72 74 0d 01 9a  10 41 44 52 20 52 30 2c  |start....ADR R0,|
00000200  69 6e 70 75 74 0d 01 a4  11 41 44 52 20 52 31 2c  |input....ADR R1,|
00000210  6f 75 74 70 75 74 0d 01  ae 1d 53 57 49 20 22 4f  |output....SWI "O|
00000220  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00000230  65 73 22 0d 01 b8 0e 4d  4f 56 20 50 43 2c 52 31  |es"....MOV PC,R1|
00000240  34 0d 01 c2 0f 2e 64 72  61 77 63 69 72 63 6c 65  |4.....drawcircle|
00000250  0d 01 cc 0e 4d 4f 56 20  52 34 2c 23 31 36 0d 01  |....MOV R4,#16..|
00000260  d6 10 4c 44 52 20 52 31  2c 64 72 61 77 79 0d 01  |..LDR R1,drawy..|
00000270  e0 0f 4d 4f 56 20 52 32  2c 23 38 30 30 0d 01 ea  |..MOV R2,#800...|
00000280  10 4d 55 4c 20 52 30 2c  52 31 2c 52 32 0d 01 f4  |.MUL R0,R1,R2...|
00000290  10 4c 44 52 20 52 31 2c  64 72 61 77 78 0d 01 fe  |.LDR R1,drawx...|
000002a0  10 41 44 44 20 52 30 2c  52 30 2c 52 31 0d 02 08  |.ADD R0,R0,R1...|
000002b0  11 4c 44 52 20 52 31 2c  6f 75 74 70 75 74 0d 02  |.LDR R1,output..|
000002c0  12 10 41 44 44 20 52 30  2c 52 30 2c 52 31 0d 02  |..ADD R0,R0,R1..|
000002d0  1c 11 41 44 52 20 52 31  2c 63 69 72 63 6c 65 0d  |..ADR R1,circle.|
000002e0  02 26 0d 2e 64 72 61 77  6c 69 6e 65 0d 02 30 40  |.&..drawline..0@|
000002f0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000300  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000310  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000320  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 3a 40  |B R2,[R0],#1..:@|
00000330  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000340  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000350  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000360  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 44 40  |B R2,[R0],#1..D@|
00000370  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000380  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000390  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000003a0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 4e 40  |B R2,[R0],#1..N@|
000003b0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
000003c0  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
000003d0  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000003e0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 58 40  |B R2,[R0],#1..X@|
000003f0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000400  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000410  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000420  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 62 40  |B R2,[R0],#1..b@|
00000430  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000440  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000450  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000460  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 6c 40  |B R2,[R0],#1..l@|
00000470  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000480  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000490  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000004a0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 76 40  |B R2,[R0],#1..v@|
000004b0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
000004c0  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
000004d0  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000004e0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 80 40  |B R2,[R0],#1...@|
000004f0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000500  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000510  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000520  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 8a 40  |B R2,[R0],#1...@|
00000530  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000540  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000550  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000560  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 94 40  |B R2,[R0],#1...@|
00000570  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000580  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000590  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000005a0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 9e 40  |B R2,[R0],#1...@|
000005b0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
000005c0  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
000005d0  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000005e0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 a8 40  |B R2,[R0],#1...@|
000005f0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000600  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000610  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000620  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 b2 40  |B R2,[R0],#1...@|
00000630  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000640  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000650  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
00000660  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 bc 40  |B R2,[R0],#1...@|
00000670  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
00000680  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
00000690  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000006a0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 c6 40  |B R2,[R0],#1...@|
000006b0  4c 44 52 42 20 52 32 2c  5b 52 30 2c 23 30 5d 3a  |LDRB R2,[R0,#0]:|
000006c0  4c 44 52 42 20 52 33 2c  5b 52 31 5d 2c 23 31 3a  |LDRB R3,[R1],#1:|
000006d0  41 44 44 20 52 32 2c 52  32 2c 52 33 3a 53 54 52  |ADD R2,R2,R3:STR|
000006e0  42 20 52 32 2c 5b 52 30  5d 2c 23 31 0d 02 d0 15  |B R2,[R0],#1....|
000006f0  41 44 44 20 52 30 2c 52  30 2c 23 38 30 30 2d 31  |ADD R0,R0,#800-1|
00000700  36 0d 02 da 11 53 55 42  53 20 52 34 2c 52 34 2c  |6....SUBS R4,R4,|
00000710  23 31 0d 02 e4 10 42 4e  45 20 64 72 61 77 6c 69  |#1....BNE drawli|
00000720  6e 65 0d 02 ee 0e 4d 4f  56 20 50 43 2c 52 31 34  |ne....MOV PC,R14|
00000730  0d 02 f8 09 2e 78 6d 69  64 0d 03 02 0d 45 51 55  |.....xmid....EQU|
00000740  44 20 33 31 30 34 0d 03  0c 09 2e 79 6d 69 64 0d  |D 3104.....ymid.|
00000750  03 16 0d 45 51 55 44 20  32 33 33 32 0d 03 20 09  |...EQUD 2332.. .|
00000760  2e 68 6f 6d 65 0d 03 2a  0f 53 54 52 20 52 31 34  |.home..*.STR R14|
00000770  2c 72 31 34 0d 03 34 0c  4c 44 52 20 52 30 2c 78  |,r14..4.LDR R0,x|
00000780  0d 03 3e 0c 4c 44 52 20  52 31 2c 79 0d 03 48 0f  |..>.LDR R1,y..H.|
00000790  4c 44 52 20 52 32 2c 78  64 69 72 0d 03 52 0f 4c  |LDR R2,xdir..R.L|
000007a0  44 52 20 52 33 2c 79 64  69 72 0d 03 5c 0f 4c 44  |DR R3,ydir..\.LD|
000007b0  52 20 52 34 2c 78 6d 69  64 0d 03 66 0f 4c 44 52  |R R4,xmid..f.LDR|
000007c0  20 52 35 2c 79 6d 69 64  0d 03 70 0d 43 4d 50 20  | R5,ymid..p.CMP |
000007d0  52 30 2c 52 34 0d 03 7a  12 53 55 42 47 54 20 52  |R0,R4..z.SUBGT R|
000007e0  32 2c 52 32 2c 23 31 0d  03 84 12 41 44 44 4c 54  |2,R2,#1....ADDLT|
000007f0  20 52 32 2c 52 32 2c 23  31 0d 03 8e 0d 43 4d 50  | R2,R2,#1....CMP|
00000800  20 52 31 2c 52 35 0d 03  98 12 53 55 42 47 54 20  | R1,R5....SUBGT |
00000810  52 33 2c 52 33 2c 23 31  0d 03 a2 12 41 44 44 4c  |R3,R3,#1....ADDL|
00000820  54 20 52 33 2c 52 33 2c  23 31 0d 03 ac 0f 53 54  |T R3,R3,#1....ST|
00000830  52 20 52 32 2c 78 64 69  72 0d 03 b6 0f 53 54 52  |R R2,xdir....STR|
00000840  20 52 33 2c 79 64 69 72  0d 03 c0 10 41 44 44 20  | R3,ydir....ADD |
00000850  52 30 2c 52 30 2c 52 32  0d 03 ca 10 41 44 44 20  |R0,R0,R2....ADD |
00000860  52 31 2c 52 31 2c 52 33  0d 03 d4 0c 53 54 52 20  |R1,R1,R3....STR |
00000870  52 30 2c 78 0d 03 de 0c  53 54 52 20 52 31 2c 79  |R0,x....STR R1,y|
00000880  0d 03 e8 13 4d 4f 56 20  52 30 2c 52 30 2c 4c 53  |....MOV R0,R0,LS|
00000890  52 23 33 0d 03 f2 13 4d  4f 56 20 52 31 2c 52 31  |R#3....MOV R1,R1|
000008a0  2c 4c 53 52 23 33 0d 03  fc 10 53 54 52 20 52 30  |,LSR#3....STR R0|
000008b0  2c 64 72 61 77 78 0d 04  06 10 53 54 52 20 52 31  |,drawx....STR R1|
000008c0  2c 64 72 61 77 79 0d 04  10 11 42 4c 20 64 72 61  |,drawy....BL dra|
000008d0  77 63 69 72 63 6c 65 0d  04 1a 0e 4c 44 52 20 50  |wcircle....LDR P|
000008e0  43 2c 72 31 34 0d 04 24  08 2e 72 31 34 0d 04 2e  |C,r14..$..r14...|
000008f0  0a 45 51 55 44 20 30 0d  04 38 0b 2e 63 69 72 63  |.EQUD 0..8..circ|
00000900  6c 65 0d 04 42 05 5d 0d  04 4c 29 ff 28 22 4c 4f  |le..B.]..L).("LO|
00000910  41 44 20 3c 4f 62 65 79  24 44 69 72 3e 2e 63 69  |AD <Obey$Dir>.ci|
00000920  72 63 6c 65 20 22 2b c3  7e 63 69 72 63 6c 65 29  |rcle "+.~circle)|
00000930  0d 04 56 0b 50 25 2b 3d  32 35 36 0d 04 60 05 ed  |..V.P%+=256..`..|
00000940  0d 04 6a 05 e1 0d 04 74  04 0d 04 7e 08 dd f2 67  |..j....t...~...g|
00000950  6f 0d 04 88 11 d6 72 65  61 64 73 63 72 73 74 61  |o.....readscrsta|
00000960  72 74 0d 04 92 10 73 70  65 65 64 25 3d 31 3a d1  |rt....speed%=1:.|
00000970  3d 30 0d 04 9c 05 f5 0d  04 a6 12 e3 20 61 25 3d  |=0.......... a%=|
00000980  31 b8 20 73 70 65 65 64  25 0d 04 b0 09 d6 68 6f  |1. speed%.....ho|
00000990  6d 65 0d 04 ba 05 ed 0d  04 c4 1b e7 20 91 20 3e  |me.......... . >|
000009a0  35 30 20 8c 20 d1 3d 30  3a 73 70 65 65 64 25 2b  |50 . .=0:speed%+|
000009b0  3d 31 0d 04 ce 14 e7 20  73 70 65 65 64 25 3c 32  |=1..... speed%<2|
000009c0  30 20 8c 20 c8 96 0d 04  d8 07 fd 20 30 0d 04 e2  |0 . ....... 0...|
000009d0  05 e1 0d 04 ec 05 3a 0d  04 f6 12 dd 20 f2 6d 6f  |......:..... .mo|
000009e0  64 65 28 6d 6f 64 65 24  29 0d 05 00 17 ea 20 63  |de(mode$)..... c|
000009f0  24 2c 65 78 2c 65 79 2c  6d 6f 64 65 2c 65 6e 64  |$,ex,ey,mode,end|
00000a00  0d 05 0a 0d de 20 6d 6f  64 65 20 36 34 0d 05 14  |..... mode 64...|
00000a10  0f 65 6e 64 3d 6d 6f 64  65 2b 32 30 0d 05 1e 0b  |.end=mode+20....|
00000a20  21 6d 6f 64 65 3d 31 0d  05 28 1d 6d 6f 64 65 21  |!mode=1..(.mode!|
00000a30  34 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 58 22  |4=.._m(mode$,"X"|
00000a40  2c 22 22 29 0d 05 32 1d  6d 6f 64 65 21 38 3d bb  |,"")..2.mode!8=.|
00000a50  a4 5f 6d 28 6d 6f 64 65  24 2c 22 59 22 2c 22 22  |._m(mode$,"Y",""|
00000a60  29 0d 05 3c 19 63 24 3d  a4 5f 6d 28 6d 6f 64 65  |)..<.c$=._m(mode|
00000a70  24 2c 22 43 22 2c 22 2a  22 29 0d 05 46 0e e7 20  |$,"C","*")..F.. |
00000a80  63 24 3d 22 2a 22 20 8c  0d 05 50 19 20 63 24 3d  |c$="*" ...P. c$=|
00000a90  a4 5f 6d 28 6d 6f 64 65  24 2c 22 47 22 2c 22 22  |._m(mode$,"G",""|
00000aa0  29 0d 05 5a 27 20 e7 20  63 24 3d 22 32 35 36 22  |)..Z' . c$="256"|
00000ab0  20 21 65 6e 64 3d 33 3a  65 6e 64 21 34 3d 32 35  | !end=3:end!4=25|
00000ac0  35 3a 65 6e 64 2b 3d 38  0d 05 64 05 cd 0d 05 6e  |5:end+=8..d....n|
00000ad0  15 6d 6f 64 65 21 31 32  3d a4 5f 62 70 70 28 63  |.mode!12=._bpp(c|
00000ae0  24 29 0d 05 78 20 6d 6f  64 65 21 31 36 3d bb a4  |$)..x mode!16=..|
00000af0  5f 6d 28 6d 6f 64 65 24  2c 22 46 22 2c 22 2d 31  |_m(mode$,"F","-1|
00000b00  22 29 0d 05 82 1c 65 78  3d bb a4 5f 6d 28 6d 6f  |")....ex=.._m(mo|
00000b10  64 65 24 2c 22 45 58 22  2c 22 2d 31 22 29 0d 05  |de$,"EX","-1")..|
00000b20  8c 23 e7 20 65 78 3c 3e  2d 31 20 21 65 6e 64 3d  |.#. ex<>-1 !end=|
00000b30  34 3a 65 6e 64 21 34 3d  65 78 3a 65 6e 64 2b 3d  |4:end!4=ex:end+=|
00000b40  38 0d 05 96 1c 65 79 3d  bb a4 5f 6d 28 6d 6f 64  |8....ey=.._m(mod|
00000b50  65 24 2c 22 45 59 22 2c  22 2d 31 22 29 0d 05 a0  |e$,"EY","-1")...|
00000b60  23 e7 20 65 79 3c 3e 2d  31 20 21 65 6e 64 3d 35  |#. ey<>-1 !end=5|
00000b70  3a 65 6e 64 21 34 3d 65  79 3a 65 6e 64 2b 3d 38  |:end!4=ey:end+=8|
00000b80  0d 05 aa 0b 21 65 6e 64  3d 2d 31 0d 05 b4 0a eb  |....!end=-1.....|
00000b90  20 6d 6f 64 65 0d 05 be  05 e1 0d 05 c8 04 0d 05  | mode...........|
00000ba0  d2 13 dd 20 a4 5f 6d 28  73 24 2c 70 24 2c 64 24  |... ._m(s$,p$,d$|
00000bb0  29 0d 05 dc 09 ea 20 69  2c 6a 0d 05 e6 0d 69 3d  |)..... i,j....i=|
00000bc0  a7 73 24 2c 70 24 29 0d  05 f0 25 e7 20 69 3c 31  |.s$,p$)...%. i<1|
00000bd0  20 80 20 64 24 3d 22 22  20 85 20 34 39 30 2c 22  | . d$="" . 490,"|
00000be0  4d 69 73 73 69 6e 67 20  22 2b 70 24 0d 05 fa 0f  |Missing "+p$....|
00000bf0  e7 20 69 3c 31 20 8c 20  3d 64 24 0d 06 04 16 6a  |. i<1 . =d$....j|
00000c00  3d a7 73 24 2b 22 20 22  2c 22 20 22 2c 69 2b 31  |=.s$+" "," ",i+1|
00000c10  29 0d 06 0e 13 3d c1 73  24 2c 69 2b 31 2c 6a 2d  |)....=.s$,i+1,j-|
00000c20  69 2d 31 29 0d 06 18 04  0d 06 22 0f dd 20 a4 5f  |i-1)......".. ._|
00000c30  62 70 70 28 6e 24 29 0d  06 2c 0b c8 8e 20 6e 24  |bpp(n$)..,... n$|
00000c40  20 ca 0d 06 36 0d 20 c9  20 22 32 22 3a 3d 30 0d  | ...6. . "2":=0.|
00000c50  06 40 0d 20 c9 20 22 34  22 3a 3d 31 0d 06 4a 0e  |.@. . "4":=1..J.|
00000c60  20 c9 20 22 31 36 22 3a  3d 32 0d 06 54 0f 20 c9  | . "16":=2..T. .|
00000c70  20 22 32 35 36 22 3a 3d  33 0d 06 5e 21 20 c9 20  | "256":=3..^! . |
00000c80  22 33 32 54 22 2c 22 33  32 74 22 2c 22 33 32 4b  |"32T","32t","32K|
00000c90  22 2c 22 33 32 6b 22 3a  3d 34 0d 06 68 15 20 c9  |","32k":=4..h. .|
00000ca0  20 22 31 36 4d 22 2c 22  31 36 6d 22 3a 3d 35 0d  | "16M","16m":=5.|
00000cb0  06 72 21 20 7f 3a 20 85  20 34 39 30 2c 22 42 61  |.r! .: . 490,"Ba|
00000cc0  64 20 70 61 72 61 6d 65  74 65 72 20 22 2b 6e 24  |d parameter "+n$|
00000cd0  0d 06 7c 05 cb 0d ff                              |..|....|
00000cd7