�> ARTIST
(� uses SWR graphics light pen driver
'� �("FX151,78,8"):�23,1,1;0;0;0;:�
(
A%=&EA
2X%=0
<
Y%=&FF
F)� �osbyte<>0 �"Not Tube compatible":�
P*FX151,78,136
Z
A%=&EB
d#� �osbyte=0 speech=� � speech=�
n� 2
x�23,1,0;0;0;0;
�xcoord=&70 :�: &70-&73
�ycoord=&74 :�: &74-&77
�
!xcoord=0
�
!ycoord=0
�paper=6
�	ink=4
�� 19,0,paper;0;
�� 0,ink
�	� ink
��0,31)"*";
�
�reset
��
��

�xy

&� �switch �wander � � 13,newx,newy


� �switch

"� �(-36) �triangle

,� �(-38) �ink

6� �(-56) �paper

@� �(-68) �fill

J� �(-82) �square

T� �(-83) �circle

^� �(-87) �line

h� �(-90) �delete

r� �

|:

���triangle

��points(3)

��input(198)

�
x=newx

�
y=newy

��input(258)

��input(269)

�	� x,y

�� lastx,lasty

�� 85,newx,newy

��

�:

�
� �ink
�cursor(newx,newy)

ink=ink+1
� ink>7 ink=1
&�cursor(newx,newy)
0#� speech �-1,ink+48,0,0 � �beep
:	� ink
D�0,31)"*";
N
�delay
X�
b:
l��paper
vpaper=paper+1
�� paper>7 paper=0
�� 19,0,paper;0;
�%� speech �-1,paper+48,0,0 � �beep
�
�delay
��
�:
�
��fill
��points(1)
��input(142)
�
high=�
�	low=�
�lowy=newy-4
�highy=newy
�
� high �high(newx,highy)
� low �low(newx,lowy)
 highy=highy+4
*lowy=lowy-4
4� (low=�) � (high=�)
>
�reset
H�
R:
\��low(x,y)
f� y<0 low=�:�
pcolour=�x,y)
z� colour<>0 low=�:�
�� 77,x,y
��
�:
���high(x,y)
�� y>1023 high=�:�
�colour=�x,y)
�� colour<>0 high=�:�
�� 77,x,y
��
�:
���square
��points(2)
��input(198)
�input(258)
�cursor(newx,newy)
+� 5,newx-(newy-lasty),newy+(newx-lastx)
$-� 5,lastx-(newy-lasty),lasty+(newx-lastx)
.� 5,lastx,lasty
8� 5,newx,newy
B
�reset
L�
V:
`��circle
j�points(2)
t�input(198)
~�input(258)
��cursor(lastx,lasty)
�5radius=�(((�(newx-lastx))^2)+((�(newy-lasty))^2))
�
�reset
�� lastx+radius,lasty
�� angle=10 � 360 � 10
�x=radius*�(�(angle))
�y=radius*�(�(angle))
�� 5,lastx+x,lasty+y
��
��
�:
�
��line
�points(2)

�input(198)
�input(258)
� 5,lastx,lasty
(�
2:
<��xy
F
oldx=newx
P
oldy=newy
Z newx=newx+((!xcoord-newx)�4)
d newy=newy+((!ycoord-newy)�4)
n�
x:
���delay
�
time=�+20
�� � time<�
�� � �switch
��
�:
���cursor(x,y)
�� 3,ink
�� 69,x,y
�� 0,ink
��
�:
���input(say)
lastx=newx
lasty=newy
�
"�xy
,�wander
6� � �switch
@ � speech �-1,say,0,0 � �beep
J�cursor(newx,newy)
T
�delay
^�
h:
r��wander
|�cursor(oldx,oldy)
��cursor(newx,newy)
��
�:
���delete
�
�reset
��
�	� ink
��0,31)"*";
��
�:
���reset
�newx=-1
�newy=-1
�
:
��points(say)
&� � speech �beep:�
0�-1,192,0,0
:�-1,say+48,0,0
D�-1,243,0,0
N� say>1 �-1,138,0,0
X�
b:
l
��beep
v�1,-10,100,1
��
�:
�ݤosbyte
�=(�(&FFF4)�&FF00)�&100
�:
�ݤswitch
�.� (�(0)�3)=0 � !xcoord>8 � !xcoord<1256 =�
�=�
�

00000000  0d 00 0a 0d f4 3e 20 41  52 54 49 53 54 0d 00 14  |.....> ARTIST...|
00000010  28 f4 20 75 73 65 73 20  53 57 52 20 67 72 61 70  |(. uses SWR grap|
00000020  68 69 63 73 20 6c 69 67  68 74 20 70 65 6e 20 64  |hics light pen d|
00000030  72 69 76 65 72 0d 00 1e  27 ee 85 20 ff 28 22 46  |river...'.. .("F|
00000040  58 31 35 31 2c 37 38 2c  38 22 29 3a ef 32 33 2c  |X151,78,8"):.23,|
00000050  31 2c 31 3b 30 3b 30 3b  30 3b 3a e0 0d 00 28 0a  |1,1;0;0;0;:...(.|
00000060  41 25 3d 26 45 41 0d 00  32 08 58 25 3d 30 0d 00  |A%=&EA..2.X%=0..|
00000070  3c 0a 59 25 3d 26 46 46  0d 00 46 29 e7 20 a4 6f  |<.Y%=&FF..F). .o|
00000080  73 62 79 74 65 3c 3e 30  20 f1 22 4e 6f 74 20 54  |sbyte<>0 ."Not T|
00000090  75 62 65 20 63 6f 6d 70  61 74 69 62 6c 65 22 3a  |ube compatible":|
000000a0  e0 0d 00 50 11 2a 46 58  31 35 31 2c 37 38 2c 31  |...P.*FX151,78,1|
000000b0  33 36 0d 00 5a 0a 41 25  3d 26 45 42 0d 00 64 23  |36..Z.A%=&EB..d#|
000000c0  e7 20 a4 6f 73 62 79 74  65 3d 30 20 73 70 65 65  |. .osbyte=0 spee|
000000d0  63 68 3d a3 20 8b 20 73  70 65 65 63 68 3d b9 0d  |ch=. . speech=..|
000000e0  00 6e 07 eb 20 32 0d 00  78 12 ef 32 33 2c 31 2c  |.n.. 2..x..23,1,|
000000f0  30 3b 30 3b 30 3b 30 3b  0d 00 82 1a 78 63 6f 6f  |0;0;0;0;....xcoo|
00000100  72 64 3d 26 37 30 20 3a  f4 3a 20 26 37 30 2d 26  |rd=&70 :.: &70-&|
00000110  37 33 0d 00 8c 1a 79 63  6f 6f 72 64 3d 26 37 34  |73....ycoord=&74|
00000120  20 3a f4 3a 20 26 37 34  2d 26 37 37 0d 00 96 0d  | :.: &74-&77....|
00000130  21 78 63 6f 6f 72 64 3d  30 0d 00 a0 0d 21 79 63  |!xcoord=0....!yc|
00000140  6f 6f 72 64 3d 30 0d 00  aa 0b 70 61 70 65 72 3d  |oord=0....paper=|
00000150  36 0d 00 b4 09 69 6e 6b  3d 34 0d 00 be 13 ef 20  |6....ink=4..... |
00000160  31 39 2c 30 2c 70 61 70  65 72 3b 30 3b 0d 00 c8  |19,0,paper;0;...|
00000170  0b e6 20 30 2c 69 6e 6b  0d 00 d2 09 fb 20 69 6e  |.. 0,ink..... in|
00000180  6b 0d 00 dc 0f f1 8a 30  2c 33 31 29 22 2a 22 3b  |k......0,31)"*";|
00000190  0d 00 e6 0a f2 72 65 73  65 74 0d 00 f0 05 f5 0d  |.....reset......|
000001a0  00 fa 05 f5 0d 01 04 07  f2 78 79 0d 01 0e 26 e7  |.........xy...&.|
000001b0  20 a4 73 77 69 74 63 68  20 f2 77 61 6e 64 65 72  | .switch .wander|
000001c0  20 8b 20 f0 20 31 33 2c  6e 65 77 78 2c 6e 65 77  | . . 13,newx,new|
000001d0  79 0d 01 18 0d fd 20 a4  73 77 69 74 63 68 0d 01  |y..... .switch..|
000001e0  22 16 e7 20 a6 28 2d 33  36 29 20 f2 74 72 69 61  |".. .(-36) .tria|
000001f0  6e 67 6c 65 0d 01 2c 11  e7 20 a6 28 2d 33 38 29  |ngle..,.. .(-38)|
00000200  20 f2 69 6e 6b 0d 01 36  13 e7 20 a6 28 2d 35 36  | .ink..6.. .(-56|
00000210  29 20 f2 70 61 70 65 72  0d 01 40 12 e7 20 a6 28  |) .paper..@.. .(|
00000220  2d 36 38 29 20 f2 66 69  6c 6c 0d 01 4a 14 e7 20  |-68) .fill..J.. |
00000230  a6 28 2d 38 32 29 20 f2  73 71 75 61 72 65 0d 01  |.(-82) .square..|
00000240  54 14 e7 20 a6 28 2d 38  33 29 20 f2 63 69 72 63  |T.. .(-83) .circ|
00000250  6c 65 0d 01 5e 12 e7 20  a6 28 2d 38 37 29 20 f2  |le..^.. .(-87) .|
00000260  6c 69 6e 65 0d 01 68 14  e7 20 a6 28 2d 39 30 29  |line..h.. .(-90)|
00000270  20 f2 64 65 6c 65 74 65  0d 01 72 07 fd 20 a3 0d  | .delete..r.. ..|
00000280  01 7c 05 3a 0d 01 86 0e  dd f2 74 72 69 61 6e 67  |.|.:......triang|
00000290  6c 65 0d 01 90 0e f2 70  6f 69 6e 74 73 28 33 29  |le.....points(3)|
000002a0  0d 01 9a 0f f2 69 6e 70  75 74 28 31 39 38 29 0d  |.....input(198).|
000002b0  01 a4 0a 78 3d 6e 65 77  78 0d 01 ae 0a 79 3d 6e  |...x=newx....y=n|
000002c0  65 77 79 0d 01 b8 0f f2  69 6e 70 75 74 28 32 35  |ewy.....input(25|
000002d0  38 29 0d 01 c2 0f f2 69  6e 70 75 74 28 32 36 39  |8).....input(269|
000002e0  29 0d 01 cc 09 ec 20 78  2c 79 0d 01 d6 11 ec 20  |)..... x,y..... |
000002f0  6c 61 73 74 78 2c 6c 61  73 74 79 0d 01 e0 12 f0  |lastx,lasty.....|
00000300  20 38 35 2c 6e 65 77 78  2c 6e 65 77 79 0d 01 ea  | 85,newx,newy...|
00000310  05 e1 0d 01 f4 05 3a 0d  01 fe 0a dd 20 f2 69 6e  |......:..... .in|
00000320  6b 0d 02 08 16 f2 63 75  72 73 6f 72 28 6e 65 77  |k.....cursor(new|
00000330  78 2c 6e 65 77 79 29 0d  02 12 0d 69 6e 6b 3d 69  |x,newy)....ink=i|
00000340  6e 6b 2b 31 0d 02 1c 11  e7 20 69 6e 6b 3e 37 20  |nk+1..... ink>7 |
00000350  69 6e 6b 3d 31 0d 02 26  16 f2 63 75 72 73 6f 72  |ink=1..&..cursor|
00000360  28 6e 65 77 78 2c 6e 65  77 79 29 0d 02 30 23 e7  |(newx,newy)..0#.|
00000370  20 73 70 65 65 63 68 20  d4 2d 31 2c 69 6e 6b 2b  | speech .-1,ink+|
00000380  34 38 2c 30 2c 30 20 8b  20 f2 62 65 65 70 0d 02  |48,0,0 . .beep..|
00000390  3a 09 fb 20 69 6e 6b 0d  02 44 0f f1 8a 30 2c 33  |:.. ink..D...0,3|
000003a0  31 29 22 2a 22 3b 0d 02  4e 0a f2 64 65 6c 61 79  |1)"*";..N..delay|
000003b0  0d 02 58 05 e1 0d 02 62  05 3a 0d 02 6c 0b dd f2  |..X....b.:..l...|
000003c0  70 61 70 65 72 0d 02 76  11 70 61 70 65 72 3d 70  |paper..v.paper=p|
000003d0  61 70 65 72 2b 31 0d 02  80 15 e7 20 70 61 70 65  |aper+1..... pape|
000003e0  72 3e 37 20 70 61 70 65  72 3d 30 0d 02 8a 13 ef  |r>7 paper=0.....|
000003f0  20 31 39 2c 30 2c 70 61  70 65 72 3b 30 3b 0d 02  | 19,0,paper;0;..|
00000400  94 25 e7 20 73 70 65 65  63 68 20 d4 2d 31 2c 70  |.%. speech .-1,p|
00000410  61 70 65 72 2b 34 38 2c  30 2c 30 20 8b 20 f2 62  |aper+48,0,0 . .b|
00000420  65 65 70 0d 02 9e 0a f2  64 65 6c 61 79 0d 02 a8  |eep.....delay...|
00000430  05 e1 0d 02 b2 05 3a 0d  02 bc 0a dd f2 66 69 6c  |......:......fil|
00000440  6c 0d 02 c6 0e f2 70 6f  69 6e 74 73 28 31 29 0d  |l.....points(1).|
00000450  02 d0 0f f2 69 6e 70 75  74 28 31 34 32 29 0d 02  |....input(142)..|
00000460  da 0a 68 69 67 68 3d b9  0d 02 e4 09 6c 6f 77 3d  |..high=.....low=|
00000470  b9 0d 02 ee 0f 6c 6f 77  79 3d 6e 65 77 79 2d 34  |.....lowy=newy-4|
00000480  0d 02 f8 0e 68 69 67 68  79 3d 6e 65 77 79 0d 03  |....highy=newy..|
00000490  02 05 f5 0d 03 0c 1c e7  20 68 69 67 68 20 f2 68  |........ high .h|
000004a0  69 67 68 28 6e 65 77 78  2c 68 69 67 68 79 29 0d  |igh(newx,highy).|
000004b0  03 16 19 e7 20 6c 6f 77  20 f2 6c 6f 77 28 6e 65  |.... low .low(ne|
000004c0  77 78 2c 6c 6f 77 79 29  0d 03 20 11 68 69 67 68  |wx,lowy).. .high|
000004d0  79 3d 68 69 67 68 79 2b  34 0d 03 2a 0f 6c 6f 77  |y=highy+4..*.low|
000004e0  79 3d 6c 6f 77 79 2d 34  0d 03 34 18 fd 20 28 6c  |y=lowy-4..4.. (l|
000004f0  6f 77 3d a3 29 20 80 20  28 68 69 67 68 3d a3 29  |ow=.) . (high=.)|
00000500  0d 03 3e 0a f2 72 65 73  65 74 0d 03 48 05 e1 0d  |..>..reset..H...|
00000510  03 52 05 3a 0d 03 5c 0e  dd f2 6c 6f 77 28 78 2c  |.R.:..\...low(x,|
00000520  79 29 0d 03 66 11 e7 20  79 3c 30 20 6c 6f 77 3d  |y)..f.. y<0 low=|
00000530  a3 3a e1 0d 03 70 10 63  6f 6c 6f 75 72 3d b0 78  |.:...p.colour=.x|
00000540  2c 79 29 0d 03 7a 17 e7  20 63 6f 6c 6f 75 72 3c  |,y)..z.. colour<|
00000550  3e 30 20 6c 6f 77 3d a3  3a e1 0d 03 84 0c f0 20  |>0 low=.:...... |
00000560  37 37 2c 78 2c 79 0d 03  8e 05 e1 0d 03 98 05 3a  |77,x,y.........:|
00000570  0d 03 a2 0f dd f2 68 69  67 68 28 78 2c 79 29 0d  |......high(x,y).|
00000580  03 ac 15 e7 20 79 3e 31  30 32 33 20 68 69 67 68  |.... y>1023 high|
00000590  3d a3 3a e1 0d 03 b6 10  63 6f 6c 6f 75 72 3d b0  |=.:.....colour=.|
000005a0  78 2c 79 29 0d 03 c0 18  e7 20 63 6f 6c 6f 75 72  |x,y)..... colour|
000005b0  3c 3e 30 20 68 69 67 68  3d a3 3a e1 0d 03 ca 0c  |<>0 high=.:.....|
000005c0  f0 20 37 37 2c 78 2c 79  0d 03 d4 05 e1 0d 03 de  |. 77,x,y........|
000005d0  05 3a 0d 03 e8 0c dd f2  73 71 75 61 72 65 0d 03  |.:......square..|
000005e0  f2 0e f2 70 6f 69 6e 74  73 28 32 29 0d 03 fc 0f  |...points(2)....|
000005f0  f2 69 6e 70 75 74 28 31  39 38 29 0d 04 06 0f f2  |.input(198).....|
00000600  69 6e 70 75 74 28 32 35  38 29 0d 04 10 16 f2 63  |input(258).....c|
00000610  75 72 73 6f 72 28 6e 65  77 78 2c 6e 65 77 79 29  |ursor(newx,newy)|
00000620  0d 04 1a 2b f0 20 35 2c  6e 65 77 78 2d 28 6e 65  |...+. 5,newx-(ne|
00000630  77 79 2d 6c 61 73 74 79  29 2c 6e 65 77 79 2b 28  |wy-lasty),newy+(|
00000640  6e 65 77 78 2d 6c 61 73  74 78 29 0d 04 24 2d f0  |newx-lastx)..$-.|
00000650  20 35 2c 6c 61 73 74 78  2d 28 6e 65 77 79 2d 6c  | 5,lastx-(newy-l|
00000660  61 73 74 79 29 2c 6c 61  73 74 79 2b 28 6e 65 77  |asty),lasty+(new|
00000670  78 2d 6c 61 73 74 78 29  0d 04 2e 13 f0 20 35 2c  |x-lastx)..... 5,|
00000680  6c 61 73 74 78 2c 6c 61  73 74 79 0d 04 38 11 f0  |lastx,lasty..8..|
00000690  20 35 2c 6e 65 77 78 2c  6e 65 77 79 0d 04 42 0a  | 5,newx,newy..B.|
000006a0  f2 72 65 73 65 74 0d 04  4c 05 e1 0d 04 56 05 3a  |.reset..L....V.:|
000006b0  0d 04 60 0c dd f2 63 69  72 63 6c 65 0d 04 6a 0e  |..`...circle..j.|
000006c0  f2 70 6f 69 6e 74 73 28  32 29 0d 04 74 0f f2 69  |.points(2)..t..i|
000006d0  6e 70 75 74 28 31 39 38  29 0d 04 7e 0f f2 69 6e  |nput(198)..~..in|
000006e0  70 75 74 28 32 35 38 29  0d 04 88 18 f2 63 75 72  |put(258).....cur|
000006f0  73 6f 72 28 6c 61 73 74  78 2c 6c 61 73 74 79 29  |sor(lastx,lasty)|
00000700  0d 04 92 35 72 61 64 69  75 73 3d b6 28 28 28 94  |...5radius=.(((.|
00000710  28 6e 65 77 78 2d 6c 61  73 74 78 29 29 5e 32 29  |(newx-lastx))^2)|
00000720  2b 28 28 94 28 6e 65 77  79 2d 6c 61 73 74 79 29  |+((.(newy-lasty)|
00000730  29 5e 32 29 29 0d 04 9c  0a f2 72 65 73 65 74 0d  |)^2)).....reset.|
00000740  04 a6 18 ec 20 6c 61 73  74 78 2b 72 61 64 69 75  |.... lastx+radiu|
00000750  73 2c 6c 61 73 74 79 0d  04 b0 19 e3 20 61 6e 67  |s,lasty..... ang|
00000760  6c 65 3d 31 30 20 b8 20  33 36 30 20 88 20 31 30  |le=10 . 360 . 10|
00000770  0d 04 ba 18 78 3d 72 61  64 69 75 73 2a 9b 28 b2  |....x=radius*.(.|
00000780  28 61 6e 67 6c 65 29 29  0d 04 c4 18 79 3d 72 61  |(angle))....y=ra|
00000790  64 69 75 73 2a b5 28 b2  28 61 6e 67 6c 65 29 29  |dius*.(.(angle))|
000007a0  0d 04 ce 17 f0 20 35 2c  6c 61 73 74 78 2b 78 2c  |..... 5,lastx+x,|
000007b0  6c 61 73 74 79 2b 79 0d  04 d8 05 ed 0d 04 e2 05  |lasty+y.........|
000007c0  e1 0d 04 ec 05 3a 0d 04  f6 0a dd f2 6c 69 6e 65  |.....:......line|
000007d0  0d 05 00 0e f2 70 6f 69  6e 74 73 28 32 29 0d 05  |.....points(2)..|
000007e0  0a 0f f2 69 6e 70 75 74  28 31 39 38 29 0d 05 14  |...input(198)...|
000007f0  0f f2 69 6e 70 75 74 28  32 35 38 29 0d 05 1e 13  |..input(258)....|
00000800  f0 20 35 2c 6c 61 73 74  78 2c 6c 61 73 74 79 0d  |. 5,lastx,lasty.|
00000810  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 08 dd f2 78  |.(....2.:..<...x|
00000820  79 0d 05 46 0d 6f 6c 64  78 3d 6e 65 77 78 0d 05  |y..F.oldx=newx..|
00000830  50 0d 6f 6c 64 79 3d 6e  65 77 79 0d 05 5a 20 6e  |P.oldy=newy..Z n|
00000840  65 77 78 3d 6e 65 77 78  2b 28 28 21 78 63 6f 6f  |ewx=newx+((!xcoo|
00000850  72 64 2d 6e 65 77 78 29  81 34 29 0d 05 64 20 6e  |rd-newx).4)..d n|
00000860  65 77 79 3d 6e 65 77 79  2b 28 28 21 79 63 6f 6f  |ewy=newy+((!ycoo|
00000870  72 64 2d 6e 65 77 79 29  81 34 29 0d 05 6e 05 e1  |rd-newy).4)..n..|
00000880  0d 05 78 05 3a 0d 05 82  0b dd f2 64 65 6c 61 79  |..x.:......delay|
00000890  0d 05 8c 0d 74 69 6d 65  3d 91 2b 32 30 0d 05 96  |....time=.+20...|
000008a0  0e f5 20 fd 20 74 69 6d  65 3c 91 0d 05 a0 0f f5  |.. . time<......|
000008b0  20 fd 20 a4 73 77 69 74  63 68 0d 05 aa 05 e1 0d  | . .switch......|
000008c0  05 b4 05 3a 0d 05 be 11  dd f2 63 75 72 73 6f 72  |...:......cursor|
000008d0  28 78 2c 79 29 0d 05 c8  0b e6 20 33 2c 69 6e 6b  |(x,y)..... 3,ink|
000008e0  0d 05 d2 0c f0 20 36 39  2c 78 2c 79 0d 05 dc 0b  |..... 69,x,y....|
000008f0  e6 20 30 2c 69 6e 6b 0d  05 e6 05 e1 0d 05 f0 05  |. 0,ink.........|
00000900  3a 0d 05 fa 10 dd f2 69  6e 70 75 74 28 73 61 79  |:......input(say|
00000910  29 0d 06 04 0e 6c 61 73  74 78 3d 6e 65 77 78 0d  |)....lastx=newx.|
00000920  06 0e 0e 6c 61 73 74 79  3d 6e 65 77 79 0d 06 18  |...lasty=newy...|
00000930  05 f5 0d 06 22 07 f2 78  79 0d 06 2c 0b f2 77 61  |...."..xy..,..wa|
00000940  6e 64 65 72 0d 06 36 0f  fd 20 ac 20 a4 73 77 69  |nder..6.. . .swi|
00000950  74 63 68 0d 06 40 20 e7  20 73 70 65 65 63 68 20  |tch..@ . speech |
00000960  d4 2d 31 2c 73 61 79 2c  30 2c 30 20 8b 20 f2 62  |.-1,say,0,0 . .b|
00000970  65 65 70 0d 06 4a 16 f2  63 75 72 73 6f 72 28 6e  |eep..J..cursor(n|
00000980  65 77 78 2c 6e 65 77 79  29 0d 06 54 0a f2 64 65  |ewx,newy)..T..de|
00000990  6c 61 79 0d 06 5e 05 e1  0d 06 68 05 3a 0d 06 72  |lay..^....h.:..r|
000009a0  0c dd f2 77 61 6e 64 65  72 0d 06 7c 16 f2 63 75  |...wander..|..cu|
000009b0  72 73 6f 72 28 6f 6c 64  78 2c 6f 6c 64 79 29 0d  |rsor(oldx,oldy).|
000009c0  06 86 16 f2 63 75 72 73  6f 72 28 6e 65 77 78 2c  |....cursor(newx,|
000009d0  6e 65 77 79 29 0d 06 90  05 e1 0d 06 9a 05 3a 0d  |newy).........:.|
000009e0  06 a4 0c dd f2 64 65 6c  65 74 65 0d 06 ae 0a f2  |.....delete.....|
000009f0  72 65 73 65 74 0d 06 b8  05 da 0d 06 c2 09 fb 20  |reset.......... |
00000a00  69 6e 6b 0d 06 cc 0f f1  8a 30 2c 33 31 29 22 2a  |ink......0,31)"*|
00000a10  22 3b 0d 06 d6 05 e1 0d  06 e0 05 3a 0d 06 ea 0b  |";.........:....|
00000a20  dd f2 72 65 73 65 74 0d  06 f4 0b 6e 65 77 78 3d  |..reset....newx=|
00000a30  2d 31 0d 06 fe 0b 6e 65  77 79 3d 2d 31 0d 07 08  |-1....newy=-1...|
00000a40  05 e1 0d 07 12 05 3a 0d  07 1c 11 dd f2 70 6f 69  |......:......poi|
00000a50  6e 74 73 28 73 61 79 29  0d 07 26 16 e7 20 ac 20  |nts(say)..&.. . |
00000a60  73 70 65 65 63 68 20 f2  62 65 65 70 3a e1 0d 07  |speech .beep:...|
00000a70  30 0f d4 2d 31 2c 31 39  32 2c 30 2c 30 0d 07 3a  |0..-1,192,0,0..:|
00000a80  12 d4 2d 31 2c 73 61 79  2b 34 38 2c 30 2c 30 0d  |..-1,say+48,0,0.|
00000a90  07 44 0f d4 2d 31 2c 32  34 33 2c 30 2c 30 0d 07  |.D..-1,243,0,0..|
00000aa0  4e 17 e7 20 73 61 79 3e  31 20 d4 2d 31 2c 31 33  |N.. say>1 .-1,13|
00000ab0  38 2c 30 2c 30 0d 07 58  05 e1 0d 07 62 05 3a 0d  |8,0,0..X....b.:.|
00000ac0  07 6c 0a dd f2 62 65 65  70 0d 07 76 10 d4 31 2c  |.l...beep..v..1,|
00000ad0  2d 31 30 2c 31 30 30 2c  31 0d 07 80 05 e1 0d 07  |-10,100,1.......|
00000ae0  8a 05 3a 0d 07 94 0c dd  a4 6f 73 62 79 74 65 0d  |..:......osbyte.|
00000af0  07 9e 1a 3d 28 ba 28 26  46 46 46 34 29 80 26 46  |...=(.(&FFF4).&F|
00000b00  46 30 30 29 81 26 31 30  30 0d 07 a8 05 3a 0d 07  |F00).&100....:..|
00000b10  b2 0c dd a4 73 77 69 74  63 68 0d 07 bc 2e e7 20  |....switch..... |
00000b20  28 96 28 30 29 80 33 29  3d 30 20 e7 20 21 78 63  |(.(0).3)=0 . !xc|
00000b30  6f 6f 72 64 3e 38 20 e7  20 21 78 63 6f 6f 72 64  |oord>8 . !xcoord|
00000b40  3c 31 32 35 36 20 3d a3  0d 07 c6 06 3d b9 0d ff  |<1256 =.....=...|
00000b50