$� BBC Pixel Mapper Shape Creator
� by Martin Dawe
� (c) Acorn Computing
(:
2�0
<!� �>&1900 � �=&1900:�"SHAPES"
F
*FX4,1
P$�23,43,54,119,119,8,119,119,54,0
Zmax%=15
dL�sx%(max%),sy%(max%),fx%(max%),fy%(max%),xx%(max%),xy%(max%),type%(max%)
n�circx(11),circy(11)
x� c%=0 � 11
�circx(c%)=�(((c%+1)/6)*�)
�circy(c%)=�(((c%+1)/6)*�)
��
�#col%=2:num%=-1:shape%=0:lock%=�
�.�"Grid size in pixels (default- 16) ";spc%
�� spc%=0 spc%=16
�spc%=spc%*4
��'"Show grid";yn$
��1
�&� �"Yy",�yn$,1)) show%=� � show%=�
�x%=640:y%=512
�+� � �=17 �restore � �:�" at line ";�:�
��5

� show% �grid

�0,3

/�69,0,0:�69,1279,0:�69,0,1023:�69,1279,1023

"�3,3

,
�cross

6�

@ox%=x%:oy%=y%

Joshape%=shape%

Tdraw%=�

^� �-17 �quit

h� �-33 �save

r� �-87 �nleft

|L� �-84 x%=spc%*(x% � spc%):y%=spc%*(y% � spc%):stp%=spc%:lock%=�:draw%=�

�� �-86 lock%=�

�D� �-1 � �lock% stp%=32 �� �-2 � �lock% stp%=96 � � �lock% stp%=4

�� �-99 � shape% �shape2

�� �-101 col%=0:�foreback

�� �-68 col%=2:�foreback

�P� �-55 x%=640:y%=512:draw%=�:� lock% x%=spc%*(x% � spc%):y%=spc%*(y% � spc%)

�� �-36 shape%=1:�shape1

�� �-52 shape%=3:�shape1

�� �-83 shape%=4:�shape1

�� �-122 x%=x%+stp%:draw%=�

�� �-26 x%=x%-stp%:draw%=�

�� �-58 y%=y%+stp%:draw%=�

�� �-42 y%=y%-stp%:draw%=�
� draw% �redraw
� 0
��redraw
&�ox%-16,oy%+12:�43
0
�cross
:� shape% �drawsh
D�
N��shape1
X� num%=max% �7:shape%=0:�
b0� oshape% �sx%(num%),sy%(num%) � num%=num%+1
l� oshape%=1 �x%,y%
vX� oshape%=2 �x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�69,xx%(num%),xy%(num%)
�G� oshape%=3 �sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
�� oshape%=4 �circoutl(0)
�sx%(num%)=x%:sy%(num%)=y%
�� shape%=1 �69,x%,y%
��
���shape2
�Y� shape%=1 shape%=2:xx%(num%)=x%:xy%(num%)=y%:�sx%(num%),sy%(num%):�x%,y%:�wait(50):�
�0fx%(num%)=x%:fy%(num%)=y%:type%(num%)=shape%
�(� col%=0 type%(num%)=type%(num%)+128
�
�cross
��0,col%
�� shape%=2 �xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�xx%(num%),xy%(num%):�85,x%,y%
�h� shape%=3 �sx%(num%),sy%(num%):�sx%(num%),y%:�85,x%,sy%(num%):�sx%(num%),y%:�x%,y%:�85,x%,sy%(num%)
� shape%=4 �circfill
� show% �grid
�3,3:�cross
 shape%=0
*�
4��drawsh
>�sx%(num%),sy%(num%)
H3� shape%=1 �ox%,oy%:�sx%(num%),sy%(num%):�x%,y%
Rm� shape%=2 �ox%,oy%:�xx%(num%),xy%(num%):�ox%,oy%:�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�x%,y%
\�� shape%=3 �sx%(num%),oy%:�ox%,oy%:�ox%,sy%(num%):�sx%(num%),sy%(num%):�sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
f� shape%=4 �circoutl(1)
p�
z
��wait(t)
�T=�
�
� � �>T+t
��
���foreback
�
�cross
�F� col% �23,43,54,119,119,8,119,119,54,0 � �23,43,8,8,8,119,8,8,8,0
�
�cross
��
�
��save
�&� (shape% � num%=0) � num%=-1 �7:�
�!� shape% shape%=0:num%=num%-1
��4
�	*FX21
"�0,0)"Filename to save";file$
f%=�(file$)
�'"Saving...";
$
�#f%,num%
.� data%=0 � num%
8W�#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
B�
L�#f%
V�''"Saved"
`%�'"Create another shape file";yn$
j� �"Yy",�yn$,1)) �
t*FX4
~�
���circoutl(func%)
�ex%=x%:ey%=y%
��c%=0 � func%
�/mult=�((ex%-sx%(num%))^2+(ey%-sy%(num%))^2)
��dot%=0 �11
�=�69,sx%(num%)+mult*circx(dot%),sy%(num%)+mult*circy(dot%)
��
�ex%=ox%:ey%=oy%
��
��
���circfill
�	*FX21
�3,3

%�80,900:�"NUMBER OF SIDES ";cstep
&�80,900:�"NUMBER OF SIDES ?";cstep
xx%(num%)=cstep
(�circoutl(0)
2�0,col%
<,�circle(sx%(num%),sy%(num%),x%,y%,cstep)
F�3,3
P�
Z#��circle(sx%,sy%,fx%,fy%,cstep)
dcstep=2*�/cstep
n#mult=�((fx%-sx%)^2+(fy%-sy%)^2)
x�ang=0 � 2*� � cstep
�-�sx%,sy%:�sx%+mult*�(ang),sy%+mult*�(ang)
�3�85,sx%+mult*�(ang+cstep),sy%+mult*�(ang+cstep)
��
��
���nleft
�+�80,900:�max%-1-num%;" SHAPES ARE LEFT"
�	*FX21
�A=�
�+�80,900:�max%-1-num%;" SHAPES ARE LEFT"
��
�
��grid
��0,1
��h%=0 � 1279 � spc%
�v%=0 � 1024 � spc%
� 69,h%,v%
�
"�
,�3,3
6�
@
��restore
J�
T!� shape% shape%=0:num%=num%-1
^� num%=-1 �
h� n%=0 � num%
r� type%(n%)�128 �0,0 � �0,2
|shape%=type%(n%)�127
�D� shape%=2 �sx%(n%),sy%(n%):�xx%(n%),xy%(n%):�85,fx%(n%),fy%(n%)
�z� shape%=3 �sx%(n%),sy%(n%):�sx%(n%),fy%(n%):�85,fx%(n%),sy%(n%):�sx%(n%),fy%(n%):�fx%(n%),fy%(n%):�85,fx%(n%),sy%(n%)
�?� shape%=4 �circle(sx%(n%),sy%(n%),fx%(n%),fy%(n%),xx%(n%))
��
�shape%=0
��
�
��quit
�	*FX21
��80,900
��"Really QUIT";yn$
�4� �"Yy",�yn$,1))=0 �80,900:�"Really QUIT?";yn$:�
��4
�*FX4
�
�
��cross
&�x%-16,y%+12
0�43
:�
�

00000000  0d 00 0a 24 f4 20 42 42  43 20 50 69 78 65 6c 20  |...$. BBC Pixel |
00000010  4d 61 70 70 65 72 20 53  68 61 70 65 20 43 72 65  |Mapper Shape Cre|
00000020  61 74 6f 72 0d 00 14 14  f4 20 62 79 20 4d 61 72  |ator..... by Mar|
00000030  74 69 6e 20 44 61 77 65  0d 00 1e 19 f4 20 28 63  |tin Dawe..... (c|
00000040  29 20 41 63 6f 72 6e 20  43 6f 6d 70 75 74 69 6e  |) Acorn Computin|
00000050  67 0d 00 28 05 3a 0d 00  32 06 eb 30 0d 00 3c 21  |g..(.:..2..0..<!|
00000060  e7 20 90 3e 26 31 39 30  30 20 8c 20 d0 3d 26 31  |. .>&1900 . .=&1|
00000070  39 30 30 3a d7 22 53 48  41 50 45 53 22 0d 00 46  |900:."SHAPES"..F|
00000080  0a 2a 46 58 34 2c 31 0d  00 50 24 ef 32 33 2c 34  |.*FX4,1..P$.23,4|
00000090  33 2c 35 34 2c 31 31 39  2c 31 31 39 2c 38 2c 31  |3,54,119,119,8,1|
000000a0  31 39 2c 31 31 39 2c 35  34 2c 30 0d 00 5a 0b 6d  |19,119,54,0..Z.m|
000000b0  61 78 25 3d 31 35 0d 00  64 4c de 73 78 25 28 6d  |ax%=15..dL.sx%(m|
000000c0  61 78 25 29 2c 73 79 25  28 6d 61 78 25 29 2c 66  |ax%),sy%(max%),f|
000000d0  78 25 28 6d 61 78 25 29  2c 66 79 25 28 6d 61 78  |x%(max%),fy%(max|
000000e0  25 29 2c 78 78 25 28 6d  61 78 25 29 2c 78 79 25  |%),xx%(max%),xy%|
000000f0  28 6d 61 78 25 29 2c 74  79 70 65 25 28 6d 61 78  |(max%),type%(max|
00000100  25 29 0d 00 6e 18 de 63  69 72 63 78 28 31 31 29  |%)..n..circx(11)|
00000110  2c 63 69 72 63 79 28 31  31 29 0d 00 78 0f e3 20  |,circy(11)..x.. |
00000120  63 25 3d 30 20 b8 20 31  31 0d 00 82 1d 63 69 72  |c%=0 . 11....cir|
00000130  63 78 28 63 25 29 3d 9b  28 28 28 63 25 2b 31 29  |cx(c%)=.(((c%+1)|
00000140  2f 36 29 2a af 29 0d 00  8c 1d 63 69 72 63 79 28  |/6)*.)....circy(|
00000150  63 25 29 3d b5 28 28 28  63 25 2b 31 29 2f 36 29  |c%)=.(((c%+1)/6)|
00000160  2a af 29 0d 00 96 05 ed  0d 00 a0 23 63 6f 6c 25  |*.)........#col%|
00000170  3d 32 3a 6e 75 6d 25 3d  2d 31 3a 73 68 61 70 65  |=2:num%=-1:shape|
00000180  25 3d 30 3a 6c 6f 63 6b  25 3d a3 0d 00 aa 2e e8  |%=0:lock%=......|
00000190  22 47 72 69 64 20 73 69  7a 65 20 69 6e 20 70 69  |"Grid size in pi|
000001a0  78 65 6c 73 20 28 64 65  66 61 75 6c 74 2d 20 31  |xels (default- 1|
000001b0  36 29 20 22 3b 73 70 63  25 0d 00 b4 14 e7 20 73  |6) ";spc%..... s|
000001c0  70 63 25 3d 30 20 73 70  63 25 3d 31 36 0d 00 be  |pc%=0 spc%=16...|
000001d0  0f 73 70 63 25 3d 73 70  63 25 2a 34 0d 00 c8 15  |.spc%=spc%*4....|
000001e0  e8 27 22 53 68 6f 77 20  67 72 69 64 22 3b 79 6e  |.'"Show grid";yn|
000001f0  24 0d 00 d2 06 eb 31 0d  00 dc 26 e7 20 a7 22 59  |$.....1...&. ."Y|
00000200  79 22 2c c0 79 6e 24 2c  31 29 29 20 73 68 6f 77  |y",.yn$,1)) show|
00000210  25 3d b9 20 8b 20 73 68  6f 77 25 3d a3 0d 00 e6  |%=. . show%=....|
00000220  11 78 25 3d 36 34 30 3a  79 25 3d 35 31 32 0d 00  |.x%=640:y%=512..|
00000230  f0 2b ee 85 20 e7 20 9f  3d 31 37 20 f2 72 65 73  |.+.. . .=17 .res|
00000240  74 6f 72 65 20 8b 20 f6  3a f1 22 20 61 74 20 6c  |tore . .:." at l|
00000250  69 6e 65 20 22 3b 9e 3a  e0 0d 00 fa 06 ef 35 0d  |ine ";.:......5.|
00000260  01 04 11 e7 20 73 68 6f  77 25 20 f2 67 72 69 64  |.... show% .grid|
00000270  0d 01 0e 08 e6 30 2c 33  0d 01 18 2f f0 36 39 2c  |.....0,3.../.69,|
00000280  30 2c 30 3a f0 36 39 2c  31 32 37 39 2c 30 3a f0  |0,0:.69,1279,0:.|
00000290  36 39 2c 30 2c 31 30 32  33 3a f0 36 39 2c 31 32  |69,0,1023:.69,12|
000002a0  37 39 2c 31 30 32 33 0d  01 22 08 e6 33 2c 33 0d  |79,1023.."..3,3.|
000002b0  01 2c 0a f2 63 72 6f 73  73 0d 01 36 05 f5 0d 01  |.,..cross..6....|
000002c0  40 11 6f 78 25 3d 78 25  3a 6f 79 25 3d 79 25 0d  |@.ox%=x%:oy%=y%.|
000002d0  01 4a 12 6f 73 68 61 70  65 25 3d 73 68 61 70 65  |.J.oshape%=shape|
000002e0  25 0d 01 54 0b 64 72 61  77 25 3d a3 0d 01 5e 10  |%..T.draw%=...^.|
000002f0  e7 20 a6 2d 31 37 20 f2  71 75 69 74 0d 01 68 10  |. .-17 .quit..h.|
00000300  e7 20 a6 2d 33 33 20 f2  73 61 76 65 0d 01 72 11  |. .-33 .save..r.|
00000310  e7 20 a6 2d 38 37 20 f2  6e 6c 65 66 74 0d 01 7c  |. .-87 .nleft..||
00000320  4c e7 20 a6 2d 38 34 20  78 25 3d 73 70 63 25 2a  |L. .-84 x%=spc%*|
00000330  28 78 25 20 81 20 73 70  63 25 29 3a 79 25 3d 73  |(x% . spc%):y%=s|
00000340  70 63 25 2a 28 79 25 20  81 20 73 70 63 25 29 3a  |pc%*(y% . spc%):|
00000350  73 74 70 25 3d 73 70 63  25 3a 6c 6f 63 6b 25 3d  |stp%=spc%:lock%=|
00000360  b9 3a 64 72 61 77 25 3d  b9 0d 01 86 12 e7 20 a6  |.:draw%=...... .|
00000370  2d 38 36 20 6c 6f 63 6b  25 3d a3 0d 01 90 44 e7  |-86 lock%=....D.|
00000380  20 a6 2d 31 20 80 20 ac  6c 6f 63 6b 25 20 73 74  | .-1 . .lock% st|
00000390  70 25 3d 33 32 20 8b e7  20 a6 2d 32 20 80 20 ac  |p%=32 .. .-2 . .|
000003a0  6c 6f 63 6b 25 20 73 74  70 25 3d 39 36 20 8b 20  |lock% stp%=96 . |
000003b0  e7 20 ac 6c 6f 63 6b 25  20 73 74 70 25 3d 34 0d  |. .lock% stp%=4.|
000003c0  01 9a 1b e7 20 a6 2d 39  39 20 e7 20 73 68 61 70  |.... .-99 . shap|
000003d0  65 25 20 f2 73 68 61 70  65 32 0d 01 a4 1c e7 20  |e% .shape2..... |
000003e0  a6 2d 31 30 31 20 63 6f  6c 25 3d 30 3a f2 66 6f  |.-101 col%=0:.fo|
000003f0  72 65 62 61 63 6b 0d 01  ae 1b e7 20 a6 2d 36 38  |reback..... .-68|
00000400  20 63 6f 6c 25 3d 32 3a  f2 66 6f 72 65 62 61 63  | col%=2:.forebac|
00000410  6b 0d 01 b8 50 e7 20 a6  2d 35 35 20 78 25 3d 36  |k...P. .-55 x%=6|
00000420  34 30 3a 79 25 3d 35 31  32 3a 64 72 61 77 25 3d  |40:y%=512:draw%=|
00000430  b9 3a e7 20 6c 6f 63 6b  25 20 78 25 3d 73 70 63  |.:. lock% x%=spc|
00000440  25 2a 28 78 25 20 81 20  73 70 63 25 29 3a 79 25  |%*(x% . spc%):y%|
00000450  3d 73 70 63 25 2a 28 79  25 20 81 20 73 70 63 25  |=spc%*(y% . spc%|
00000460  29 0d 01 c2 1b e7 20 a6  2d 33 36 20 73 68 61 70  |)..... .-36 shap|
00000470  65 25 3d 31 3a f2 73 68  61 70 65 31 0d 01 cc 1b  |e%=1:.shape1....|
00000480  e7 20 a6 2d 35 32 20 73  68 61 70 65 25 3d 33 3a  |. .-52 shape%=3:|
00000490  f2 73 68 61 70 65 31 0d  01 d6 1b e7 20 a6 2d 38  |.shape1..... .-8|
000004a0  33 20 73 68 61 70 65 25  3d 34 3a f2 73 68 61 70  |3 shape%=4:.shap|
000004b0  65 31 0d 01 e0 1e e7 20  a6 2d 31 32 32 20 78 25  |e1..... .-122 x%|
000004c0  3d 78 25 2b 73 74 70 25  3a 64 72 61 77 25 3d b9  |=x%+stp%:draw%=.|
000004d0  0d 01 ea 1d e7 20 a6 2d  32 36 20 78 25 3d 78 25  |..... .-26 x%=x%|
000004e0  2d 73 74 70 25 3a 64 72  61 77 25 3d b9 0d 01 f4  |-stp%:draw%=....|
000004f0  1d e7 20 a6 2d 35 38 20  79 25 3d 79 25 2b 73 74  |.. .-58 y%=y%+st|
00000500  70 25 3a 64 72 61 77 25  3d b9 0d 01 fe 1d e7 20  |p%:draw%=...... |
00000510  a6 2d 34 32 20 79 25 3d  79 25 2d 73 74 70 25 3a  |.-42 y%=y%-stp%:|
00000520  64 72 61 77 25 3d b9 0d  02 08 13 e7 20 64 72 61  |draw%=...... dra|
00000530  77 25 20 f2 72 65 64 72  61 77 0d 02 12 07 fd 20  |w% .redraw..... |
00000540  30 0d 02 1c 0c dd f2 72  65 64 72 61 77 0d 02 26  |0......redraw..&|
00000550  16 ec 6f 78 25 2d 31 36  2c 6f 79 25 2b 31 32 3a  |..ox%-16,oy%+12:|
00000560  ef 34 33 0d 02 30 0a f2  63 72 6f 73 73 0d 02 3a  |.43..0..cross..:|
00000570  14 e7 20 73 68 61 70 65  25 20 f2 64 72 61 77 73  |.. shape% .draws|
00000580  68 0d 02 44 05 e1 0d 02  4e 0c dd f2 73 68 61 70  |h..D....N...shap|
00000590  65 31 0d 02 58 1d e7 20  6e 75 6d 25 3d 6d 61 78  |e1..X.. num%=max|
000005a0  25 20 ef 37 3a 73 68 61  70 65 25 3d 30 3a e1 0d  |% .7:shape%=0:..|
000005b0  02 62 30 e7 20 6f 73 68  61 70 65 25 20 ec 73 78  |.b0. oshape% .sx|
000005c0  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
000005d0  29 20 8b 20 6e 75 6d 25  3d 6e 75 6d 25 2b 31 0d  |) . num%=num%+1.|
000005e0  02 6c 16 e7 20 6f 73 68  61 70 65 25 3d 31 20 df  |.l.. oshape%=1 .|
000005f0  78 25 2c 79 25 0d 02 76  58 e7 20 6f 73 68 61 70  |x%,y%..vX. oshap|
00000600  65 25 3d 32 20 df 78 25  2c 79 25 3a df 78 78 25  |e%=2 .x%,y%:.xx%|
00000610  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00000620  3a df 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000630  6e 75 6d 25 29 3a f0 36  39 2c 78 78 25 28 6e 75  |num%):.69,xx%(nu|
00000640  6d 25 29 2c 78 79 25 28  6e 75 6d 25 29 0d 02 80  |m%),xy%(num%)...|
00000650  47 e7 20 6f 73 68 61 70  65 25 3d 33 20 df 73 78  |G. oshape%=3 .sx|
00000660  25 28 6e 75 6d 25 29 2c  79 25 3a df 78 25 2c 79  |%(num%),y%:.x%,y|
00000670  25 3a df 78 25 2c 73 79  25 28 6e 75 6d 25 29 3a  |%:.x%,sy%(num%):|
00000680  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
00000690  75 6d 25 29 0d 02 8a 1c  e7 20 6f 73 68 61 70 65  |um%)..... oshape|
000006a0  25 3d 34 20 f2 63 69 72  63 6f 75 74 6c 28 30 29  |%=4 .circoutl(0)|
000006b0  0d 02 94 1d 73 78 25 28  6e 75 6d 25 29 3d 78 25  |....sx%(num%)=x%|
000006c0  3a 73 79 25 28 6e 75 6d  25 29 3d 79 25 0d 02 9e  |:sy%(num%)=y%...|
000006d0  18 e7 20 73 68 61 70 65  25 3d 31 20 f0 36 39 2c  |.. shape%=1 .69,|
000006e0  78 25 2c 79 25 0d 02 a8  05 e1 0d 02 b2 0c dd f2  |x%,y%...........|
000006f0  73 68 61 70 65 32 0d 02  bc 59 e7 20 73 68 61 70  |shape2...Y. shap|
00000700  65 25 3d 31 20 73 68 61  70 65 25 3d 32 3a 78 78  |e%=1 shape%=2:xx|
00000710  25 28 6e 75 6d 25 29 3d  78 25 3a 78 79 25 28 6e  |%(num%)=x%:xy%(n|
00000720  75 6d 25 29 3d 79 25 3a  ec 73 78 25 28 6e 75 6d  |um%)=y%:.sx%(num|
00000730  25 29 2c 73 79 25 28 6e  75 6d 25 29 3a df 78 25  |%),sy%(num%):.x%|
00000740  2c 79 25 3a f2 77 61 69  74 28 35 30 29 3a e1 0d  |,y%:.wait(50):..|
00000750  02 c6 30 66 78 25 28 6e  75 6d 25 29 3d 78 25 3a  |..0fx%(num%)=x%:|
00000760  66 79 25 28 6e 75 6d 25  29 3d 79 25 3a 74 79 70  |fy%(num%)=y%:typ|
00000770  65 25 28 6e 75 6d 25 29  3d 73 68 61 70 65 25 0d  |e%(num%)=shape%.|
00000780  02 d0 28 e7 20 63 6f 6c  25 3d 30 20 74 79 70 65  |..(. col%=0 type|
00000790  25 28 6e 75 6d 25 29 3d  74 79 70 65 25 28 6e 75  |%(num%)=type%(nu|
000007a0  6d 25 29 2b 31 32 38 0d  02 da 0a f2 63 72 6f 73  |m%)+128.....cros|
000007b0  73 0d 02 e4 0b e6 30 2c  63 6f 6c 25 0d 02 ee 88  |s.....0,col%....|
000007c0  e7 20 73 68 61 70 65 25  3d 32 20 ec 78 78 25 28  |. shape%=2 .xx%(|
000007d0  6e 75 6d 25 29 2c 78 79  25 28 6e 75 6d 25 29 3a  |num%),xy%(num%):|
000007e0  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
000007f0  75 6d 25 29 3a df 78 25  2c 79 25 3a df 78 78 25  |um%):.x%,y%:.xx%|
00000800  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00000810  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000820  6e 75 6d 25 29 3a ec 78  78 25 28 6e 75 6d 25 29  |num%):.xx%(num%)|
00000830  2c 78 79 25 28 6e 75 6d  25 29 3a f0 38 35 2c 78  |,xy%(num%):.85,x|
00000840  25 2c 79 25 0d 02 f8 68  e7 20 73 68 61 70 65 25  |%,y%...h. shape%|
00000850  3d 33 20 ec 73 78 25 28  6e 75 6d 25 29 2c 73 79  |=3 .sx%(num%),sy|
00000860  25 28 6e 75 6d 25 29 3a  ec 73 78 25 28 6e 75 6d  |%(num%):.sx%(num|
00000870  25 29 2c 79 25 3a f0 38  35 2c 78 25 2c 73 79 25  |%),y%:.85,x%,sy%|
00000880  28 6e 75 6d 25 29 3a ec  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00000890  29 2c 79 25 3a ec 78 25  2c 79 25 3a f0 38 35 2c  |),y%:.x%,y%:.85,|
000008a0  78 25 2c 73 79 25 28 6e  75 6d 25 29 0d 03 02 18  |x%,sy%(num%)....|
000008b0  e7 20 73 68 61 70 65 25  3d 34 20 f2 63 69 72 63  |. shape%=4 .circ|
000008c0  66 69 6c 6c 0d 03 0c 11  e7 20 73 68 6f 77 25 20  |fill..... show% |
000008d0  f2 67 72 69 64 0d 03 16  0f e6 33 2c 33 3a f2 63  |.grid.....3,3:.c|
000008e0  72 6f 73 73 0d 03 20 0c  73 68 61 70 65 25 3d 30  |ross.. .shape%=0|
000008f0  0d 03 2a 05 e1 0d 03 34  0c dd f2 64 72 61 77 73  |..*....4...draws|
00000900  68 0d 03 3e 18 ec 73 78  25 28 6e 75 6d 25 29 2c  |h..>..sx%(num%),|
00000910  73 79 25 28 6e 75 6d 25  29 0d 03 48 33 e7 20 73  |sy%(num%)..H3. s|
00000920  68 61 70 65 25 3d 31 20  df 6f 78 25 2c 6f 79 25  |hape%=1 .ox%,oy%|
00000930  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000940  6e 75 6d 25 29 3a df 78  25 2c 79 25 0d 03 52 6d  |num%):.x%,y%..Rm|
00000950  e7 20 73 68 61 70 65 25  3d 32 20 df 6f 78 25 2c  |. shape%=2 .ox%,|
00000960  6f 79 25 3a ec 78 78 25  28 6e 75 6d 25 29 2c 78  |oy%:.xx%(num%),x|
00000970  79 25 28 6e 75 6d 25 29  3a df 6f 78 25 2c 6f 79  |y%(num%):.ox%,oy|
00000980  25 3a ec 73 78 25 28 6e  75 6d 25 29 2c 73 79 25  |%:.sx%(num%),sy%|
00000990  28 6e 75 6d 25 29 3a df  78 25 2c 79 25 3a ec 78  |(num%):.x%,y%:.x|
000009a0  78 25 28 6e 75 6d 25 29  2c 78 79 25 28 6e 75 6d  |x%(num%),xy%(num|
000009b0  25 29 3a df 78 25 2c 79  25 0d 03 5c 82 e7 20 73  |%):.x%,y%..\.. s|
000009c0  68 61 70 65 25 3d 33 20  df 73 78 25 28 6e 75 6d  |hape%=3 .sx%(num|
000009d0  25 29 2c 6f 79 25 3a df  6f 78 25 2c 6f 79 25 3a  |%),oy%:.ox%,oy%:|
000009e0  df 6f 78 25 2c 73 79 25  28 6e 75 6d 25 29 3a df  |.ox%,sy%(num%):.|
000009f0  73 78 25 28 6e 75 6d 25  29 2c 73 79 25 28 6e 75  |sx%(num%),sy%(nu|
00000a00  6d 25 29 3a df 73 78 25  28 6e 75 6d 25 29 2c 79  |m%):.sx%(num%),y|
00000a10  25 3a df 78 25 2c 79 25  3a df 78 25 2c 73 79 25  |%:.x%,y%:.x%,sy%|
00000a20  28 6e 75 6d 25 29 3a df  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00000a30  29 2c 73 79 25 28 6e 75  6d 25 29 0d 03 66 1b e7  |),sy%(num%)..f..|
00000a40  20 73 68 61 70 65 25 3d  34 20 f2 63 69 72 63 6f  | shape%=4 .circo|
00000a50  75 74 6c 28 31 29 0d 03  70 05 e1 0d 03 7a 0d dd  |utl(1)..p....z..|
00000a60  f2 77 61 69 74 28 74 29  0d 03 84 07 54 3d 91 0d  |.wait(t)....T=..|
00000a70  03 8e 0d f5 20 fd 20 91  3e 54 2b 74 0d 03 98 05  |.... . .>T+t....|
00000a80  e1 0d 03 a2 0e dd f2 66  6f 72 65 62 61 63 6b 0d  |.......foreback.|
00000a90  03 ac 0a f2 63 72 6f 73  73 0d 03 b6 46 e7 20 63  |....cross...F. c|
00000aa0  6f 6c 25 20 ef 32 33 2c  34 33 2c 35 34 2c 31 31  |ol% .23,43,54,11|
00000ab0  39 2c 31 31 39 2c 38 2c  31 31 39 2c 31 31 39 2c  |9,119,8,119,119,|
00000ac0  35 34 2c 30 20 8b 20 ef  32 33 2c 34 33 2c 38 2c  |54,0 . .23,43,8,|
00000ad0  38 2c 38 2c 31 31 39 2c  38 2c 38 2c 38 2c 30 0d  |8,8,119,8,8,8,0.|
00000ae0  03 c0 0a f2 63 72 6f 73  73 0d 03 ca 05 e1 0d 03  |....cross.......|
00000af0  d4 0a dd f2 73 61 76 65  0d 03 de 26 e7 20 28 73  |....save...&. (s|
00000b00  68 61 70 65 25 20 80 20  6e 75 6d 25 3d 30 29 20  |hape% . num%=0) |
00000b10  84 20 6e 75 6d 25 3d 2d  31 20 ef 37 3a e1 0d 03  |. num%=-1 .7:...|
00000b20  e8 21 e7 20 73 68 61 70  65 25 20 73 68 61 70 65  |.!. shape% shape|
00000b30  25 3d 30 3a 6e 75 6d 25  3d 6e 75 6d 25 2d 31 0d  |%=0:num%=num%-1.|
00000b40  03 f2 06 ef 34 0d 03 fc  09 2a 46 58 32 31 0d 04  |....4....*FX21..|
00000b50  06 22 e8 8a 30 2c 30 29  22 46 69 6c 65 6e 61 6d  |."..0,0)"Filenam|
00000b60  65 20 74 6f 20 73 61 76  65 22 3b 66 69 6c 65 24  |e to save";file$|
00000b70  0d 04 10 0f 66 25 3d ae  28 66 69 6c 65 24 29 0d  |....f%=.(file$).|
00000b80  04 1a 12 f1 27 22 53 61  76 69 6e 67 2e 2e 2e 22  |....'"Saving..."|
00000b90  3b 0d 04 24 0d f1 23 66  25 2c 6e 75 6d 25 0d 04  |;..$..#f%,num%..|
00000ba0  2e 14 e3 20 64 61 74 61  25 3d 30 20 b8 20 6e 75  |... data%=0 . nu|
00000bb0  6d 25 0d 04 38 57 f1 23  66 25 2c 73 78 25 28 64  |m%..8W.#f%,sx%(d|
00000bc0  61 74 61 25 29 2c 73 79  25 28 64 61 74 61 25 29  |ata%),sy%(data%)|
00000bd0  2c 66 78 25 28 64 61 74  61 25 29 2c 66 79 25 28  |,fx%(data%),fy%(|
00000be0  64 61 74 61 25 29 2c 78  78 25 28 64 61 74 61 25  |data%),xx%(data%|
00000bf0  29 2c 78 79 25 28 64 61  74 61 25 29 2c 74 79 70  |),xy%(data%),typ|
00000c00  65 25 28 64 61 74 61 25  29 0d 04 42 05 ed 0d 04  |e%(data%)..B....|
00000c10  4c 08 d9 23 66 25 0d 04  56 0e f1 27 27 22 53 61  |L..#f%..V..''"Sa|
00000c20  76 65 64 22 0d 04 60 25  e8 27 22 43 72 65 61 74  |ved"..`%.'"Creat|
00000c30  65 20 61 6e 6f 74 68 65  72 20 73 68 61 70 65 20  |e another shape |
00000c40  66 69 6c 65 22 3b 79 6e  24 0d 04 6a 16 e7 20 a7  |file";yn$..j.. .|
00000c50  22 59 79 22 2c c0 79 6e  24 2c 31 29 29 20 f9 0d  |"Yy",.yn$,1)) ..|
00000c60  04 74 08 2a 46 58 34 0d  04 7e 05 e0 0d 04 88 15  |.t.*FX4..~......|
00000c70  dd f2 63 69 72 63 6f 75  74 6c 28 66 75 6e 63 25  |..circoutl(func%|
00000c80  29 0d 04 92 11 65 78 25  3d 78 25 3a 65 79 25 3d  |)....ex%=x%:ey%=|
00000c90  79 25 0d 04 9c 11 e3 63  25 3d 30 20 b8 20 66 75  |y%.....c%=0 . fu|
00000ca0  6e 63 25 0d 04 a6 2f 6d  75 6c 74 3d b6 28 28 65  |nc%.../mult=.((e|
00000cb0  78 25 2d 73 78 25 28 6e  75 6d 25 29 29 5e 32 2b  |x%-sx%(num%))^2+|
00000cc0  28 65 79 25 2d 73 79 25  28 6e 75 6d 25 29 29 5e  |(ey%-sy%(num%))^|
00000cd0  32 29 0d 04 b0 0f e3 64  6f 74 25 3d 30 20 b8 31  |2).....dot%=0 .1|
00000ce0  31 0d 04 ba 3d f0 36 39  2c 73 78 25 28 6e 75 6d  |1...=.69,sx%(num|
00000cf0  25 29 2b 6d 75 6c 74 2a  63 69 72 63 78 28 64 6f  |%)+mult*circx(do|
00000d00  74 25 29 2c 73 79 25 28  6e 75 6d 25 29 2b 6d 75  |t%),sy%(num%)+mu|
00000d10  6c 74 2a 63 69 72 63 79  28 64 6f 74 25 29 0d 04  |lt*circy(dot%)..|
00000d20  c4 05 ed 0d 04 ce 13 65  78 25 3d 6f 78 25 3a 65  |.......ex%=ox%:e|
00000d30  79 25 3d 6f 79 25 0d 04  d8 05 ed 0d 04 e2 05 e1  |y%=oy%..........|
00000d40  0d 04 ec 0e dd f2 63 69  72 63 66 69 6c 6c 0d 04  |......circfill..|
00000d50  f6 09 2a 46 58 32 31 0d  05 00 08 e6 33 2c 33 0d  |..*FX21.....3,3.|
00000d60  05 0a 25 ec 38 30 2c 39  30 30 3a e8 22 4e 55 4d  |..%.80,900:."NUM|
00000d70  42 45 52 20 4f 46 20 53  49 44 45 53 20 22 3b 63  |BER OF SIDES ";c|
00000d80  73 74 65 70 0d 05 14 26  ec 38 30 2c 39 30 30 3a  |step...&.80,900:|
00000d90  f1 22 4e 55 4d 42 45 52  20 4f 46 20 53 49 44 45  |."NUMBER OF SIDE|
00000da0  53 20 3f 22 3b 63 73 74  65 70 0d 05 1e 13 78 78  |S ?";cstep....xx|
00000db0  25 28 6e 75 6d 25 29 3d  63 73 74 65 70 0d 05 28  |%(num%)=cstep..(|
00000dc0  10 f2 63 69 72 63 6f 75  74 6c 28 30 29 0d 05 32  |..circoutl(0)..2|
00000dd0  0b e6 30 2c 63 6f 6c 25  0d 05 3c 2c f2 63 69 72  |..0,col%..<,.cir|
00000de0  63 6c 65 28 73 78 25 28  6e 75 6d 25 29 2c 73 79  |cle(sx%(num%),sy|
00000df0  25 28 6e 75 6d 25 29 2c  78 25 2c 79 25 2c 63 73  |%(num%),x%,y%,cs|
00000e00  74 65 70 29 0d 05 46 08  e6 33 2c 33 0d 05 50 05  |tep)..F..3,3..P.|
00000e10  e1 0d 05 5a 23 dd f2 63  69 72 63 6c 65 28 73 78  |...Z#..circle(sx|
00000e20  25 2c 73 79 25 2c 66 78  25 2c 66 79 25 2c 63 73  |%,sy%,fx%,fy%,cs|
00000e30  74 65 70 29 0d 05 64 13  63 73 74 65 70 3d 32 2a  |tep)..d.cstep=2*|
00000e40  af 2f 63 73 74 65 70 0d  05 6e 23 6d 75 6c 74 3d  |./cstep..n#mult=|
00000e50  b6 28 28 66 78 25 2d 73  78 25 29 5e 32 2b 28 66  |.((fx%-sx%)^2+(f|
00000e60  79 25 2d 73 79 25 29 5e  32 29 0d 05 78 18 e3 61  |y%-sy%)^2)..x..a|
00000e70  6e 67 3d 30 20 b8 20 32  2a af 20 88 20 63 73 74  |ng=0 . 2*. . cst|
00000e80  65 70 0d 05 82 2d ec 73  78 25 2c 73 79 25 3a ec  |ep...-.sx%,sy%:.|
00000e90  73 78 25 2b 6d 75 6c 74  2a 9b 28 61 6e 67 29 2c  |sx%+mult*.(ang),|
00000ea0  73 79 25 2b 6d 75 6c 74  2a b5 28 61 6e 67 29 0d  |sy%+mult*.(ang).|
00000eb0  05 8c 33 f0 38 35 2c 73  78 25 2b 6d 75 6c 74 2a  |..3.85,sx%+mult*|
00000ec0  9b 28 61 6e 67 2b 63 73  74 65 70 29 2c 73 79 25  |.(ang+cstep),sy%|
00000ed0  2b 6d 75 6c 74 2a b5 28  61 6e 67 2b 63 73 74 65  |+mult*.(ang+cste|
00000ee0  70 29 0d 05 96 05 ed 0d  05 a0 05 e1 0d 05 aa 0b  |p)..............|
00000ef0  dd f2 6e 6c 65 66 74 0d  05 b4 2b ec 38 30 2c 39  |..nleft...+.80,9|
00000f00  30 30 3a f1 6d 61 78 25  2d 31 2d 6e 75 6d 25 3b  |00:.max%-1-num%;|
00000f10  22 20 53 48 41 50 45 53  20 41 52 45 20 4c 45 46  |" SHAPES ARE LEF|
00000f20  54 22 0d 05 be 09 2a 46  58 32 31 0d 05 c8 07 41  |T"....*FX21....A|
00000f30  3d a5 0d 05 d2 2b ec 38  30 2c 39 30 30 3a f1 6d  |=....+.80,900:.m|
00000f40  61 78 25 2d 31 2d 6e 75  6d 25 3b 22 20 53 48 41  |ax%-1-num%;" SHA|
00000f50  50 45 53 20 41 52 45 20  4c 45 46 54 22 0d 05 dc  |PES ARE LEFT"...|
00000f60  05 e1 0d 05 e6 0a dd f2  67 72 69 64 0d 05 f0 08  |........grid....|
00000f70  e6 30 2c 31 0d 05 fa 17  e3 68 25 3d 30 20 b8 20  |.0,1.....h%=0 . |
00000f80  31 32 37 39 20 88 20 73  70 63 25 0d 06 04 17 e3  |1279 . spc%.....|
00000f90  76 25 3d 30 20 b8 20 31  30 32 34 20 88 20 73 70  |v%=0 . 1024 . sp|
00000fa0  63 25 0d 06 0e 0e f0 20  36 39 2c 68 25 2c 76 25  |c%..... 69,h%,v%|
00000fb0  0d 06 18 05 ed 0d 06 22  05 ed 0d 06 2c 08 e6 33  |......."....,..3|
00000fc0  2c 33 0d 06 36 05 e1 0d  06 40 0d dd f2 72 65 73  |,3..6....@...res|
00000fd0  74 6f 72 65 0d 06 4a 05  db 0d 06 54 21 e7 20 73  |tore..J....T!. s|
00000fe0  68 61 70 65 25 20 73 68  61 70 65 25 3d 30 3a 6e  |hape% shape%=0:n|
00000ff0  75 6d 25 3d 6e 75 6d 25  2d 31 0d 06 5e 0f e7 20  |um%=num%-1..^.. |
00001000  6e 75 6d 25 3d 2d 31 20  e1 0d 06 68 11 e3 20 6e  |num%=-1 ...h.. n|
00001010  25 3d 30 20 b8 20 6e 75  6d 25 0d 06 72 1f e7 20  |%=0 . num%..r.. |
00001020  74 79 70 65 25 28 6e 25  29 80 31 32 38 20 e6 30  |type%(n%).128 .0|
00001030  2c 30 20 8b 20 e6 30 2c  32 0d 06 7c 18 73 68 61  |,0 . .0,2..|.sha|
00001040  70 65 25 3d 74 79 70 65  25 28 6e 25 29 80 31 32  |pe%=type%(n%).12|
00001050  37 0d 06 86 44 e7 20 73  68 61 70 65 25 3d 32 20  |7...D. shape%=2 |
00001060  ec 73 78 25 28 6e 25 29  2c 73 79 25 28 6e 25 29  |.sx%(n%),sy%(n%)|
00001070  3a ec 78 78 25 28 6e 25  29 2c 78 79 25 28 6e 25  |:.xx%(n%),xy%(n%|
00001080  29 3a f0 38 35 2c 66 78  25 28 6e 25 29 2c 66 79  |):.85,fx%(n%),fy|
00001090  25 28 6e 25 29 0d 06 90  7a e7 20 73 68 61 70 65  |%(n%)...z. shape|
000010a0  25 3d 33 20 ec 73 78 25  28 6e 25 29 2c 73 79 25  |%=3 .sx%(n%),sy%|
000010b0  28 6e 25 29 3a ec 73 78  25 28 6e 25 29 2c 66 79  |(n%):.sx%(n%),fy|
000010c0  25 28 6e 25 29 3a f0 38  35 2c 66 78 25 28 6e 25  |%(n%):.85,fx%(n%|
000010d0  29 2c 73 79 25 28 6e 25  29 3a ec 73 78 25 28 6e  |),sy%(n%):.sx%(n|
000010e0  25 29 2c 66 79 25 28 6e  25 29 3a ec 66 78 25 28  |%),fy%(n%):.fx%(|
000010f0  6e 25 29 2c 66 79 25 28  6e 25 29 3a f0 38 35 2c  |n%),fy%(n%):.85,|
00001100  66 78 25 28 6e 25 29 2c  73 79 25 28 6e 25 29 0d  |fx%(n%),sy%(n%).|
00001110  06 9a 3f e7 20 73 68 61  70 65 25 3d 34 20 f2 63  |..?. shape%=4 .c|
00001120  69 72 63 6c 65 28 73 78  25 28 6e 25 29 2c 73 79  |ircle(sx%(n%),sy|
00001130  25 28 6e 25 29 2c 66 78  25 28 6e 25 29 2c 66 79  |%(n%),fx%(n%),fy|
00001140  25 28 6e 25 29 2c 78 78  25 28 6e 25 29 29 0d 06  |%(n%),xx%(n%))..|
00001150  a4 05 ed 0d 06 ae 0c 73  68 61 70 65 25 3d 30 0d  |.......shape%=0.|
00001160  06 b8 05 e1 0d 06 c2 0a  dd f2 71 75 69 74 0d 06  |..........quit..|
00001170  cc 09 2a 46 58 32 31 0d  06 d6 0b ec 38 30 2c 39  |..*FX21.....80,9|
00001180  30 30 0d 06 e0 16 e8 22  52 65 61 6c 6c 79 20 51  |00....."Really Q|
00001190  55 49 54 22 3b 79 6e 24  0d 06 ea 34 e7 20 a7 22  |UIT";yn$...4. ."|
000011a0  59 79 22 2c c0 79 6e 24  2c 31 29 29 3d 30 20 ec  |Yy",.yn$,1))=0 .|
000011b0  38 30 2c 39 30 30 3a f1  22 52 65 61 6c 6c 79 20  |80,900:."Really |
000011c0  51 55 49 54 3f 22 3b 79  6e 24 3a e1 0d 06 f4 06  |QUIT?";yn$:.....|
000011d0  ef 34 0d 06 fe 08 2a 46  58 34 0d 07 08 05 db 0d  |.4....*FX4......|
000011e0  07 12 05 e0 0d 07 1c 0b  dd f2 63 72 6f 73 73 0d  |..........cross.|
000011f0  07 26 10 ec 78 25 2d 31  36 2c 79 25 2b 31 32 0d  |.&..x%-16,y%+12.|
00001200  07 30 07 ef 34 33 0d 07  3a 05 e1 0d ff           |.0..43..:....|
0000120d