�
 �
�
2� 7
7*OPT1,0
<
�intro
F � 2
P� 23;8202;0;0;0;
Z�constants
d�initscreen
n�
x�
�
�joystick
�� �(0) � 1
�(� y%>toppicture% � �function � �plot
�� �
��
�� �constants
�� I
�#points%=1 :line%=2 :triangle%=3
�rectangle%=4:circle%=5
�toppicture%=960
�cellwidth%=85 :ncell%=15
� logic%=0 :colour%=7

lasttime%=�

shape%=points%

x%=640:x1%=x%:x2%=x%

"y%=toppicture%� 2

,y1%=y%:y2%=y%

J� I=8 � 15

T� 19,I,I-8;0; :� I

|� 23,224,0,0,0,24,24,0,0,0

�!� 23,225,1,2,4,8,16,32,64,128

�,� 23,226,128,192,160,144,136,132,130,255

�% � 23,227,0,126,66,66,66,66,126,0

�(� 23,228,60,66,129,129,129,129,66,60

�!� 23,253,0,68,40,16,40,68,0,0

�$� 23,254,16,16,16,254,16,16,16,0

�,� 23,255,255,255,255,255,255,255,255,255

��

�� �initscreen

�� I

�� load � *LOAD"SCREEN"

�	� 0,7

�� 0,toppicture%+4
%� ncell%*cellwidth%,toppicture%+4
� I=0 � ncell%
 � I*cellwidth%,toppicture%+4
&� I*cellwidth%,1020
0� I
:� 0,1020
b
� I=0 � 7
l�printcell(I,I,255)
v� I
�� I=8 � 12
� �printcell(I,7,216+I)
�� I
��printcell(13,7,�("C"))
��printcell(14,7,�("S"))
��cursor(x%,y%)
��
�� �printcell(N,colour,char)
�� 5
�$� N*cellwidth%+16,toppicture%+48
� 0,colour
� �(char);
� 4
 �
4� �cursor(x%,y%)
R	� 4,0
\� x%-24,y%+12
f � 5,254,4
p�
���marker(x%,y%)
�� 4,0:� x%-24,y%+12
�
� 5,253,4
�� logic%,colour%
�� x2%,y2% :� x1%,y1% 
��
�� �joystick
�oldx%=x%:oldy%=y%
x%=1920-(x%+�(1)� 16)� 2
y%=(y%+�(2)� 64)� 2
#� x%�8=oldx%�8 � y%�4=oldy%�4 �
$�cursor(oldx%,oldy%)
.�cursor(x%,y%)
8�
V� �buttonrelease
`� � (�(0)� 1)=0
j�
~� �function
�
� cell
�� 1,-15,50,2
�cell=x%� cellwidth%
�� cell<8 � colour%=cell
� � cell=8 � shape%=points%
� � cell=9 � shape%=line%
� � cell=10 � shape%=triangle%
�!� cell=11 � shape%=rectangle%
�� cell=14 � �file
�� cell=13 � �clearscreen
�� cell=12 � shape%=circle%
� cell>7 � count%=0

�buttonrelease
�
2� �plot
<�cursor(x%,y%)
F#� shape%<>points% � 1,-15,100,2
P� x2%,y2% :� x1%,y1%
Z� logic%,colour%
d'� shape% � �DnE,�DxE,�tBE,�tLE,�tVE
n�points :� �t`E
x�line :� �t`E
��triangle :� �t`E
��rectangle :� �t`E
��circle
��cursor(x%,y%)
�$� shape%<>points% �buttonrelease
�x2%=x1% :y2%=y1%
�x1%=x% :y1%=y%
��
�
� �points
�9 � lasttime%>�-20 � 5,x%,y% � �1,-15,100,2:� 69,x%,y%
�lasttime%=�
�

� Line
"� �line
,count%=count%� 1
68 � count% �marker(x%,y%) � �marker(x1%,y1%):�5,x%,y%
@�
T� trianglw
^� �triangle
hcount%=(count%+1)� 3
rM� count%<>0 �marker(x%,y%) � �marker(x2%,y2%):�marker(x1%,y1%):� 85,x%,y%
|�
�� �rectangle
�count%=count%� 1
�!� count% �marker(x%,y%):�dVF
��marker(x1%,y1%)
�� x%,y1%:� 85,x%,y%
�� x1%,y1%:� 85,x1%,y%
��
���clearscreen
�� 0,colour%
�0,0:�0,toppicture%
� 85,1280,0
� 85,1280,toppicture%
&�
:��intro
D�10,10)"�JOYSTICK�ARTIST"
NPOO=�(300)
X�
b,�4,15)"�LOAD PICTURE FROM FILE (Y/N)?";
load=((� � &DF)=�("Y"))
 �
f
��file
p*SAVE"SCREEN" 3280 7FFF
z�
�
� �circle
�count%=count%� 1
�!� count% �marker(x%,y%):�dDS
��marker(x1%,y1%)
�+R=�((x1%-x%)^2+(y1%-y%)^2):�29,x1%;y1%;
�b� ANGLE=0 � 2*� � �/24:� 0,0:� R*(�(ANGLE)),R*�(ANGLE):�85,R*(�(ANGLE+�/24)),R*�(ANGLE+�/24):�
��29,0;0;
��
�

00000000  0d 00 0a 06 20 f4 0d 00  14 06 20 f4 0d 00 1e 05  |.... ..... .....|
00000010  f4 0d 00 32 07 eb 20 37  0d 00 37 0b 2a 4f 50 54  |...2.. 7..7.*OPT|
00000020  31 2c 30 0d 00 3c 0a f2  69 6e 74 72 6f 0d 00 46  |1,0..<..intro..F|
00000030  08 20 eb 20 32 0d 00 50  14 ef 20 32 33 3b 38 32  |. . 2..P.. 23;82|
00000040  30 32 3b 30 3b 30 3b 30  3b 0d 00 5a 0e f2 63 6f  |02;0;0;0;..Z..co|
00000050  6e 73 74 61 6e 74 73 0d  00 64 0f f2 69 6e 69 74  |nstants..d..init|
00000060  73 63 72 65 65 6e 0d 00  6e 05 f5 0d 00 78 05 f5  |screen..n....x..|
00000070  0d 00 82 0d f2 6a 6f 79  73 74 69 63 6b 0d 00 8c  |.....joystick...|
00000080  0e fd 20 96 28 30 29 20  80 20 31 0d 00 96 28 e7  |.. .(0) . 1...(.|
00000090  20 79 25 3e 74 6f 70 70  69 63 74 75 72 65 25 20  | y%>toppicture% |
000000a0  8c 20 f2 66 75 6e 63 74  69 6f 6e 20 8b 20 f2 70  |. .function . .p|
000000b0  6c 6f 74 0d 00 a0 07 fd  20 a3 0d 00 aa 05 e0 0d  |lot..... .......|
000000c0  00 be 10 dd 20 f2 63 6f  6e 73 74 61 6e 74 73 0d  |.... .constants.|
000000d0  00 c8 07 ea 20 49 0d 00  d2 23 70 6f 69 6e 74 73  |.... I...#points|
000000e0  25 3d 31 20 3a 6c 69 6e  65 25 3d 32 20 3a 74 72  |%=1 :line%=2 :tr|
000000f0  69 61 6e 67 6c 65 25 3d  33 0d 00 dc 1a 72 65 63  |iangle%=3....rec|
00000100  74 61 6e 67 6c 65 25 3d  34 3a 63 69 72 63 6c 65  |tangle%=4:circle|
00000110  25 3d 35 0d 00 e6 13 74  6f 70 70 69 63 74 75 72  |%=5....toppictur|
00000120  65 25 3d 39 36 30 0d 00  f0 1c 63 65 6c 6c 77 69  |e%=960....cellwi|
00000130  64 74 68 25 3d 38 35 20  3a 6e 63 65 6c 6c 25 3d  |dth%=85 :ncell%=|
00000140  31 35 0d 00 fa 18 20 6c  6f 67 69 63 25 3d 30 20  |15.... logic%=0 |
00000150  3a 63 6f 6c 6f 75 72 25  3d 37 0d 01 04 0f 6c 61  |:colour%=7....la|
00000160  73 74 74 69 6d 65 25 3d  91 0d 01 0e 12 73 68 61  |sttime%=.....sha|
00000170  70 65 25 3d 70 6f 69 6e  74 73 25 0d 01 18 18 78  |pe%=points%....x|
00000180  25 3d 36 34 30 3a 78 31  25 3d 78 25 3a 78 32 25  |%=640:x1%=x%:x2%|
00000190  3d 78 25 0d 01 22 15 79  25 3d 74 6f 70 70 69 63  |=x%..".y%=toppic|
000001a0  74 75 72 65 25 81 20 32  0d 01 2c 11 79 31 25 3d  |ture%. 2..,.y1%=|
000001b0  79 25 3a 79 32 25 3d 79  25 0d 01 4a 0e e3 20 49  |y%:y2%=y%..J.. I|
000001c0  3d 38 20 b8 20 31 35 0d  01 54 16 ef 20 31 39 2c  |=8 . 15..T.. 19,|
000001d0  49 2c 49 2d 38 3b 30 3b  20 3a ed 20 49 0d 01 7c  |I,I-8;0; :. I..||
000001e0  1e ef 20 32 33 2c 32 32  34 2c 30 2c 30 2c 30 2c  |.. 23,224,0,0,0,|
000001f0  32 34 2c 32 34 2c 30 2c  30 2c 30 0d 01 86 21 ef  |24,24,0,0,0...!.|
00000200  20 32 33 2c 32 32 35 2c  31 2c 32 2c 34 2c 38 2c  | 23,225,1,2,4,8,|
00000210  31 36 2c 33 32 2c 36 34  2c 31 32 38 0d 01 90 2c  |16,32,64,128...,|
00000220  ef 20 32 33 2c 32 32 36  2c 31 32 38 2c 31 39 32  |. 23,226,128,192|
00000230  2c 31 36 30 2c 31 34 34  2c 31 33 36 2c 31 33 32  |,160,144,136,132|
00000240  2c 31 33 30 2c 32 35 35  0d 01 9a 25 20 ef 20 32  |,130,255...% . 2|
00000250  33 2c 32 32 37 2c 30 2c  31 32 36 2c 36 36 2c 36  |3,227,0,126,66,6|
00000260  36 2c 36 36 2c 36 36 2c  31 32 36 2c 30 0d 01 9f  |6,66,66,126,0...|
00000270  28 ef 20 32 33 2c 32 32  38 2c 36 30 2c 36 36 2c  |(. 23,228,60,66,|
00000280  31 32 39 2c 31 32 39 2c  31 32 39 2c 31 32 39 2c  |129,129,129,129,|
00000290  36 36 2c 36 30 0d 01 a4  21 ef 20 32 33 2c 32 35  |66,60...!. 23,25|
000002a0  33 2c 30 2c 36 38 2c 34  30 2c 31 36 2c 34 30 2c  |3,0,68,40,16,40,|
000002b0  36 38 2c 30 2c 30 0d 01  ae 24 ef 20 32 33 2c 32  |68,0,0...$. 23,2|
000002c0  35 34 2c 31 36 2c 31 36  2c 31 36 2c 32 35 34 2c  |54,16,16,16,254,|
000002d0  31 36 2c 31 36 2c 31 36  2c 30 0d 01 b8 2c ef 20  |16,16,16,0...,. |
000002e0  32 33 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |23,255,255,255,2|
000002f0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000300  35 35 2c 32 35 35 0d 01  c2 05 e1 0d 01 d6 11 dd  |55,255..........|
00000310  20 f2 69 6e 69 74 73 63  72 65 65 6e 0d 01 e0 07  | .initscreen....|
00000320  ea 20 49 0d 01 e5 1a e7  20 6c 6f 61 64 20 8c 20  |. I..... load . |
00000330  2a 4c 4f 41 44 22 53 43  52 45 45 4e 22 0d 01 f4  |*LOAD"SCREEN"...|
00000340  09 e6 20 30 2c 37 0d 01  fe 15 ec 20 30 2c 74 6f  |.. 0,7..... 0,to|
00000350  70 70 69 63 74 75 72 65  25 2b 34 0d 02 08 25 df  |ppicture%+4...%.|
00000360  20 6e 63 65 6c 6c 25 2a  63 65 6c 6c 77 69 64 74  | ncell%*cellwidt|
00000370  68 25 2c 74 6f 70 70 69  63 74 75 72 65 25 2b 34  |h%,toppicture%+4|
00000380  0d 02 12 12 e3 20 49 3d  30 20 b8 20 6e 63 65 6c  |..... I=0 . ncel|
00000390  6c 25 0d 02 1c 20 ec 20  49 2a 63 65 6c 6c 77 69  |l%... . I*cellwi|
000003a0  64 74 68 25 2c 74 6f 70  70 69 63 74 75 72 65 25  |dth%,toppicture%|
000003b0  2b 34 0d 02 26 17 df 20  49 2a 63 65 6c 6c 77 69  |+4..&.. I*cellwi|
000003c0  64 74 68 25 2c 31 30 32  30 0d 02 30 07 ed 20 49  |dth%,1020..0.. I|
000003d0  0d 02 3a 0c df 20 30 2c  31 30 32 30 0d 02 62 0d  |..:.. 0,1020..b.|
000003e0  e3 20 49 3d 30 20 b8 20  37 0d 02 6c 17 f2 70 72  |. I=0 . 7..l..pr|
000003f0  69 6e 74 63 65 6c 6c 28  49 2c 49 2c 32 35 35 29  |intcell(I,I,255)|
00000400  0d 02 76 07 ed 20 49 0d  02 8a 0e e3 20 49 3d 38  |..v.. I..... I=8|
00000410  20 b8 20 31 32 0d 02 94  1a 20 f2 70 72 69 6e 74  | . 12.... .print|
00000420  63 65 6c 6c 28 49 2c 37  2c 32 31 36 2b 49 29 0d  |cell(I,7,216+I).|
00000430  02 9e 07 ed 20 49 0d 02  a8 1b f2 70 72 69 6e 74  |.... I.....print|
00000440  63 65 6c 6c 28 31 33 2c  37 2c 97 28 22 43 22 29  |cell(13,7,.("C")|
00000450  29 0d 02 b2 1b f2 70 72  69 6e 74 63 65 6c 6c 28  |).....printcell(|
00000460  31 34 2c 37 2c 97 28 22  53 22 29 29 0d 02 c6 12  |14,7,.("S"))....|
00000470  f2 63 75 72 73 6f 72 28  78 25 2c 79 25 29 0d 02  |.cursor(x%,y%)..|
00000480  d0 05 e1 0d 02 e4 1f dd  20 f2 70 72 69 6e 74 63  |........ .printc|
00000490  65 6c 6c 28 4e 2c 63 6f  6c 6f 75 72 2c 63 68 61  |ell(N,colour,cha|
000004a0  72 29 0d 02 ee 07 ef 20  35 0d 02 f8 24 ec 20 4e  |r)..... 5...$. N|
000004b0  2a 63 65 6c 6c 77 69 64  74 68 25 2b 31 36 2c 74  |*cellwidth%+16,t|
000004c0  6f 70 70 69 63 74 75 72  65 25 2b 34 38 0d 03 02  |oppicture%+48...|
000004d0  0e e6 20 30 2c 63 6f 6c  6f 75 72 0d 03 0c 0e f1  |.. 0,colour.....|
000004e0  20 bd 28 63 68 61 72 29  3b 0d 03 16 07 ef 20 34  | .(char);..... 4|
000004f0  0d 03 20 05 e1 0d 03 34  14 dd 20 f2 63 75 72 73  |.. ....4.. .curs|
00000500  6f 72 28 78 25 2c 79 25  29 0d 03 52 09 e6 20 34  |or(x%,y%)..R.. 4|
00000510  2c 30 0d 03 5c 11 ec 20  78 25 2d 32 34 2c 79 25  |,0..\.. x%-24,y%|
00000520  2b 31 32 0d 03 66 0e 20  ef 20 35 2c 32 35 34 2c  |+12..f. . 5,254,|
00000530  34 0d 03 70 05 e1 0d 03  8e 13 dd f2 6d 61 72 6b  |4..p........mark|
00000540  65 72 28 78 25 2c 79 25  29 0d 03 98 17 e6 20 34  |er(x%,y%)..... 4|
00000550  2c 30 3a ec 20 78 25 2d  32 34 2c 79 25 2b 31 32  |,0:. x%-24,y%+12|
00000560  0d 03 a2 0d ef 20 35 2c  32 35 33 2c 34 0d 03 b6  |..... 5,253,4...|
00000570  14 e6 20 6c 6f 67 69 63  25 2c 63 6f 6c 6f 75 72  |.. logic%,colour|
00000580  25 0d 03 c0 19 ec 20 78  32 25 2c 79 32 25 20 3a  |%..... x2%,y2% :|
00000590  ec 20 78 31 25 2c 79 31  25 20 0d 03 ca 05 e1 0d  |. x1%,y1% ......|
000005a0  03 de 0f dd 20 f2 6a 6f  79 73 74 69 63 6b 0d 03  |.... .joystick..|
000005b0  fc 15 6f 6c 64 78 25 3d  78 25 3a 6f 6c 64 79 25  |..oldx%=x%:oldy%|
000005c0  3d 79 25 0d 04 06 1c 78  25 3d 31 39 32 30 2d 28  |=y%....x%=1920-(|
000005d0  78 25 2b 96 28 31 29 81  20 31 36 29 81 20 32 0d  |x%+.(1). 16). 2.|
000005e0  04 10 17 79 25 3d 28 79  25 2b 96 28 32 29 81 20  |...y%=(y%+.(2). |
000005f0  36 34 29 81 20 32 0d 04  1a 23 e7 20 78 25 81 38  |64). 2...#. x%.8|
00000600  3d 6f 6c 64 78 25 81 38  20 80 20 79 25 81 34 3d  |=oldx%.8 . y%.4=|
00000610  6f 6c 64 79 25 81 34 20  e1 0d 04 24 18 f2 63 75  |oldy%.4 ...$..cu|
00000620  72 73 6f 72 28 6f 6c 64  78 25 2c 6f 6c 64 79 25  |rsor(oldx%,oldy%|
00000630  29 0d 04 2e 12 f2 63 75  72 73 6f 72 28 78 25 2c  |).....cursor(x%,|
00000640  79 25 29 0d 04 38 05 e1  0d 04 56 14 dd 20 f2 62  |y%)..8....V.. .b|
00000650  75 74 74 6f 6e 72 65 6c  65 61 73 65 0d 04 60 13  |uttonrelease..`.|
00000660  f5 20 fd 20 28 96 28 30  29 80 20 31 29 3d 30 0d  |. . (.(0). 1)=0.|
00000670  04 6a 05 e1 0d 04 7e 0f  dd 20 f2 66 75 6e 63 74  |.j....~.. .funct|
00000680  69 6f 6e 0d 04 9c 0a ea  20 63 65 6c 6c 0d 04 a6  |ion..... cell...|
00000690  10 d4 20 31 2c 2d 31 35  2c 35 30 2c 32 0d 04 b0  |.. 1,-15,50,2...|
000006a0  17 63 65 6c 6c 3d 78 25  81 20 63 65 6c 6c 77 69  |.cell=x%. cellwi|
000006b0  64 74 68 25 0d 04 ba 1b  e7 20 63 65 6c 6c 3c 38  |dth%..... cell<8|
000006c0  20 8c 20 63 6f 6c 6f 75  72 25 3d 63 65 6c 6c 0d  | . colour%=cell.|
000006d0  04 c4 1e 20 e7 20 63 65  6c 6c 3d 38 20 8c 20 73  |... . cell=8 . s|
000006e0  68 61 70 65 25 3d 70 6f  69 6e 74 73 25 0d 04 ce  |hape%=points%...|
000006f0  1c 20 e7 20 63 65 6c 6c  3d 39 20 8c 20 73 68 61  |. . cell=9 . sha|
00000700  70 65 25 3d 6c 69 6e 65  25 0d 04 d8 20 e7 20 63  |pe%=line%... . c|
00000710  65 6c 6c 3d 31 30 20 8c  20 73 68 61 70 65 25 3d  |ell=10 . shape%=|
00000720  74 72 69 61 6e 67 6c 65  25 0d 04 e2 21 e7 20 63  |triangle%...!. c|
00000730  65 6c 6c 3d 31 31 20 8c  20 73 68 61 70 65 25 3d  |ell=11 . shape%=|
00000740  72 65 63 74 61 6e 67 6c  65 25 0d 04 ec 15 e7 20  |rectangle%..... |
00000750  63 65 6c 6c 3d 31 34 20  8c 20 f2 66 69 6c 65 0d  |cell=14 . .file.|
00000760  04 f6 1c e7 20 63 65 6c  6c 3d 31 33 20 8c 20 f2  |.... cell=13 . .|
00000770  63 6c 65 61 72 73 63 72  65 65 6e 0d 04 f7 1e e7  |clearscreen.....|
00000780  20 63 65 6c 6c 3d 31 32  20 8c 20 73 68 61 70 65  | cell=12 . shape|
00000790  25 3d 63 69 72 63 6c 65  25 0d 05 00 17 e7 20 63  |%=circle%..... c|
000007a0  65 6c 6c 3e 37 20 8c 20  63 6f 75 6e 74 25 3d 30  |ell>7 . count%=0|
000007b0  0d 05 0a 12 f2 62 75 74  74 6f 6e 72 65 6c 65 61  |.....buttonrelea|
000007c0  73 65 0d 05 14 05 e1 0d  05 32 0b dd 20 f2 70 6c  |se.......2.. .pl|
000007d0  6f 74 0d 05 3c 12 f2 63  75 72 73 6f 72 28 78 25  |ot..<..cursor(x%|
000007e0  2c 79 25 29 0d 05 46 23  e7 20 73 68 61 70 65 25  |,y%)..F#. shape%|
000007f0  3c 3e 70 6f 69 6e 74 73  25 20 d4 20 31 2c 2d 31  |<>points% . 1,-1|
00000800  35 2c 31 30 30 2c 32 0d  05 50 18 ec 20 78 32 25  |5,100,2..P.. x2%|
00000810  2c 79 32 25 20 3a ec 20  78 31 25 2c 79 31 25 0d  |,y2% :. x1%,y1%.|
00000820  05 5a 14 e6 20 6c 6f 67  69 63 25 2c 63 6f 6c 6f  |.Z.. logic%,colo|
00000830  75 72 25 0d 05 64 27 ee  20 73 68 61 70 65 25 20  |ur%..d'. shape% |
00000840  e5 20 8d 44 6e 45 2c 8d  44 78 45 2c 8d 74 42 45  |. .DnE,.DxE,.tBE|
00000850  2c 8d 74 4c 45 2c 8d 74  56 45 0d 05 6e 13 f2 70  |,.tLE,.tVE..n..p|
00000860  6f 69 6e 74 73 20 3a e5  20 8d 74 60 45 0d 05 78  |oints :. .t`E..x|
00000870  11 f2 6c 69 6e 65 20 3a  e5 20 8d 74 60 45 0d 05  |..line :. .t`E..|
00000880  82 15 f2 74 72 69 61 6e  67 6c 65 20 3a e5 20 8d  |...triangle :. .|
00000890  74 60 45 0d 05 8c 16 f2  72 65 63 74 61 6e 67 6c  |t`E.....rectangl|
000008a0  65 20 3a e5 20 8d 74 60  45 0d 05 96 0b f2 63 69  |e :. .t`E.....ci|
000008b0  72 63 6c 65 0d 05 a0 12  f2 63 75 72 73 6f 72 28  |rcle.....cursor(|
000008c0  78 25 2c 79 25 29 0d 05  aa 24 e7 20 73 68 61 70  |x%,y%)...$. shap|
000008d0  65 25 3c 3e 70 6f 69 6e  74 73 25 20 f2 62 75 74  |e%<>points% .but|
000008e0  74 6f 6e 72 65 6c 65 61  73 65 0d 05 b4 14 78 32  |tonrelease....x2|
000008f0  25 3d 78 31 25 20 3a 79  32 25 3d 79 31 25 0d 05  |%=x1% :y2%=y1%..|
00000900  be 12 78 31 25 3d 78 25  20 3a 79 31 25 3d 79 25  |..x1%=x% :y1%=y%|
00000910  0d 05 c8 05 e1 0d 05 e6  0d dd 20 f2 70 6f 69 6e  |.......... .poin|
00000920  74 73 0d 05 f0 39 20 e7  20 6c 61 73 74 74 69 6d  |ts...9 . lasttim|
00000930  65 25 3e 91 2d 32 30 20  f0 20 35 2c 78 25 2c 79  |e%>.-20 . 5,x%,y|
00000940  25 20 8b 20 d4 31 2c 2d  31 35 2c 31 30 30 2c 32  |% . .1,-15,100,2|
00000950  3a f0 20 36 39 2c 78 25  2c 79 25 0d 05 fa 0f 6c  |:. 69,x%,y%....l|
00000960  61 73 74 74 69 6d 65 25  3d 91 0d 06 04 05 e1 0d  |asttime%=.......|
00000970  06 18 0a f4 20 4c 69 6e  65 0d 06 22 0b dd 20 f2  |.... Line..".. .|
00000980  6c 69 6e 65 0d 06 2c 14  63 6f 75 6e 74 25 3d 63  |line..,.count%=c|
00000990  6f 75 6e 74 25 82 20 31  0d 06 36 38 20 e7 20 63  |ount%. 1..68 . c|
000009a0  6f 75 6e 74 25 20 f2 6d  61 72 6b 65 72 28 78 25  |ount% .marker(x%|
000009b0  2c 79 25 29 20 8b 20 f2  6d 61 72 6b 65 72 28 78  |,y%) . .marker(x|
000009c0  31 25 2c 79 31 25 29 3a  f0 35 2c 78 25 2c 79 25  |1%,y1%):.5,x%,y%|
000009d0  0d 06 40 05 e1 0d 06 54  0e f4 20 74 72 69 61 6e  |..@....T.. trian|
000009e0  67 6c 77 0d 06 5e 0f dd  20 f2 74 72 69 61 6e 67  |glw..^.. .triang|
000009f0  6c 65 0d 06 68 18 63 6f  75 6e 74 25 3d 28 63 6f  |le..h.count%=(co|
00000a00  75 6e 74 25 2b 31 29 83  20 33 0d 06 72 4d e7 20  |unt%+1). 3..rM. |
00000a10  63 6f 75 6e 74 25 3c 3e  30 20 f2 6d 61 72 6b 65  |count%<>0 .marke|
00000a20  72 28 78 25 2c 79 25 29  20 8b 20 f2 6d 61 72 6b  |r(x%,y%) . .mark|
00000a30  65 72 28 78 32 25 2c 79  32 25 29 3a f2 6d 61 72  |er(x2%,y2%):.mar|
00000a40  6b 65 72 28 78 31 25 2c  79 31 25 29 3a f0 20 38  |ker(x1%,y1%):. 8|
00000a50  35 2c 78 25 2c 79 25 0d  06 7c 05 e1 0d 06 9a 10  |5,x%,y%..|......|
00000a60  dd 20 f2 72 65 63 74 61  6e 67 6c 65 0d 06 a4 14  |. .rectangle....|
00000a70  63 6f 75 6e 74 25 3d 63  6f 75 6e 74 25 82 20 31  |count%=count%. 1|
00000a80  0d 06 ae 21 e7 20 63 6f  75 6e 74 25 20 f2 6d 61  |...!. count% .ma|
00000a90  72 6b 65 72 28 78 25 2c  79 25 29 3a e5 8d 64 56  |rker(x%,y%):..dV|
00000aa0  46 0d 06 b8 14 f2 6d 61  72 6b 65 72 28 78 31 25  |F.....marker(x1%|
00000ab0  2c 79 31 25 29 0d 06 c2  17 ec 20 78 25 2c 79 31  |,y1%)..... x%,y1|
00000ac0  25 3a f0 20 38 35 2c 78  25 2c 79 25 0d 06 cc 19  |%:. 85,x%,y%....|
00000ad0  ec 20 78 31 25 2c 79 31  25 3a f0 20 38 35 2c 78  |. x1%,y1%:. 85,x|
00000ae0  31 25 2c 79 25 0d 06 d6  05 e1 0d 06 ea 11 dd f2  |1%,y%...........|
00000af0  63 6c 65 61 72 73 63 72  65 65 6e 0d 06 fe 0f e6  |clearscreen.....|
00000b00  20 30 2c 63 6f 6c 6f 75  72 25 0d 07 08 17 ec 30  | 0,colour%.....0|
00000b10  2c 30 3a ec 30 2c 74 6f  70 70 69 63 74 75 72 65  |,0:.0,toppicture|
00000b20  25 0d 07 12 0f f0 20 38  35 2c 31 32 38 30 2c 30  |%..... 85,1280,0|
00000b30  0d 07 1c 19 f0 20 38 35  2c 31 32 38 30 2c 74 6f  |..... 85,1280,to|
00000b40  70 70 69 63 74 75 72 65  25 0d 07 26 05 e1 0d 07  |ppicture%..&....|
00000b50  3a 0b dd f2 69 6e 74 72  6f 0d 07 44 1e f1 8a 31  |:...intro..D...1|
00000b60  30 2c 31 30 29 22 83 4a  4f 59 53 54 49 43 4b 85  |0,10)".JOYSTICK.|
00000b70  41 52 54 49 53 54 22 0d  07 4e 0e 50 4f 4f 3d a6  |ARTIST"..N.POO=.|
00000b80  28 33 30 30 29 0d 07 58  05 db 0d 07 62 2c f1 8a  |(300)..X....b,..|
00000b90  34 2c 31 35 29 22 86 4c  4f 41 44 20 50 49 43 54  |4,15)".LOAD PICT|
00000ba0  55 52 45 20 46 52 4f 4d  20 46 49 4c 45 20 28 59  |URE FROM FILE (Y|
00000bb0  2f 4e 29 3f 22 3b 0d 08  1a 1b 6c 6f 61 64 3d 28  |/N)?";....load=(|
00000bc0  28 a5 20 80 20 26 44 46  29 3d 97 28 22 59 22 29  |(. . &DF)=.("Y")|
00000bd0  29 0d 08 20 05 e1 0d 08  66 0a dd f2 66 69 6c 65  |).. ....f...file|
00000be0  0d 08 70 1b 2a 53 41 56  45 22 53 43 52 45 45 4e  |..p.*SAVE"SCREEN|
00000bf0  22 20 33 32 38 30 20 37  46 46 46 0d 08 7a 05 e1  |" 3280 7FFF..z..|
00000c00  0d 13 88 0d dd 20 f2 63  69 72 63 6c 65 0d 13 92  |..... .circle...|
00000c10  14 63 6f 75 6e 74 25 3d  63 6f 75 6e 74 25 82 20  |.count%=count%. |
00000c20  31 0d 13 9c 21 e7 20 63  6f 75 6e 74 25 20 f2 6d  |1...!. count% .m|
00000c30  61 72 6b 65 72 28 78 25  2c 79 25 29 3a e5 8d 64  |arker(x%,y%):..d|
00000c40  44 53 0d 13 a6 14 f2 6d  61 72 6b 65 72 28 78 31  |DS.....marker(x1|
00000c50  25 2c 79 31 25 29 0d 13  b1 2b 52 3d b6 28 28 78  |%,y1%)...+R=.((x|
00000c60  31 25 2d 78 25 29 5e 32  2b 28 79 31 25 2d 79 25  |1%-x%)^2+(y1%-y%|
00000c70  29 5e 32 29 3a ef 32 39  2c 78 31 25 3b 79 31 25  |)^2):.29,x1%;y1%|
00000c80  3b 0d 13 b2 62 e3 20 41  4e 47 4c 45 3d 30 20 b8  |;...b. ANGLE=0 .|
00000c90  20 32 2a af 20 88 20 af  2f 32 34 3a ec 20 30 2c  | 2*. . ./24:. 0,|
00000ca0  30 3a ec 20 52 2a 28 9b  28 41 4e 47 4c 45 29 29  |0:. R*(.(ANGLE))|
00000cb0  2c 52 2a b5 28 41 4e 47  4c 45 29 3a f0 38 35 2c  |,R*.(ANGLE):.85,|
00000cc0  52 2a 28 9b 28 41 4e 47  4c 45 2b af 2f 32 34 29  |R*(.(ANGLE+./24)|
00000cd0  29 2c 52 2a b5 28 41 4e  47 4c 45 2b af 2f 32 34  |),R*.(ANGLE+./24|
00000ce0  29 3a ed 0d 13 b3 0c ef  32 39 2c 30 3b 30 3b 0d  |):......29,0;0;.|
00000cf0  13 c4 05 e1 0d ff                                 |......|
00000cf6