� > A_DRAGON CURVE
� by Joachim Lous
� (c) The Micro User 
(:
2 � Trap filing system errors:
<0� � � �>100 � �TfB � �26:�:�" at line ";�:� 
F�1
P	�init
Z�
d�'"How many levels:"levl%
n� levl%>0 � levl% <20
x�:� side%(levl%)
�� A%=0 � levl% 
�side%(A%)=1
��
��angle(lth,levl%)
�&�'"Save this screen? (Y/N):";:a$=�
�E� a$="Y" �  a$="y" �''"Filename:"file$:�'':�("ScreenSave "+file$)
��''"Quit? (Y/N):";:a$=�
�� a$="n" � a$="N" � 
�	� 7:�
�:
���turn(A%)
�angl%=(angl%+A%)�360
�� angl%<0 angl%=angl%+360

dir=�(angl%)

�

:

"
��fowd(A)

,x=x+A*�(dir):y=y+A*�(dir)

6	� x,y

@�

J:

T
��init

^)� 1:� �(9) "D R A G O N   C U R V E "

hx=300:y=600:angl%=0:dir=0

rlth=800:const=�(.5)

|� 19,1,1,0,0,0,19,2,4,0,0,0

�� 23,1,0;0;0;0;28,3,3,35,2

��0,2:�0,0:�0,980 

��1279,980:�1279,0:�0,0

�� 0,1:� x,y

��

�:

���angle(lth,levl%)

�levl%=levl%-1:lth=lth*const

�side%(levl%)=-side%(levl%)

��turn(side%(levl%)*45) 

�,� levl%>0 �angle(lth,levl%) � �fowd(lth)

��turn(-side%(levl%)*90)

�-� levl%>0 �angle(lth,levl%) � �fowd(lth) 
�turn(side%(levl%)*45)
�
:
&� File error handling:
0�:�'"Try again? (Y/N):";
:*a$=�:� a$="Y" � a$="y" � �tt@ � � �t~@
D	� 0,1
�

00000000  0d 00 0a 16 f4 20 3e 20  41 5f 44 52 41 47 4f 4e  |..... > A_DRAGON|
00000010  20 43 55 52 56 45 0d 00  14 15 f4 20 62 79 20 4a  | CURVE..... by J|
00000020  6f 61 63 68 69 6d 20 4c  6f 75 73 0d 00 1e 19 f4  |oachim Lous.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 20 0d 00 28 05  3a 0d 00 32 20 f4 20 54  |ser ..(.:..2 . T|
00000050  72 61 70 20 66 69 6c 69  6e 67 20 73 79 73 74 65  |rap filing syste|
00000060  6d 20 65 72 72 6f 72 73  3a 0d 00 3c 30 ee 20 85  |m errors:..<0. .|
00000070  20 e7 20 9f 3e 31 30 30  20 e5 20 8d 54 66 42 20  | . .>100 . .TfB |
00000080  8b 20 ef 32 36 3a f6 3a  f1 22 20 61 74 20 6c 69  |. .26:.:." at li|
00000090  6e 65 20 22 3b 9e 3a e0  20 0d 00 46 06 eb 31 0d  |ne ";.:. ..F..1.|
000000a0  00 50 09 f2 69 6e 69 74  0d 00 5a 05 f5 0d 00 64  |.P..init..Z....d|
000000b0  1d e8 27 22 48 6f 77 20  6d 61 6e 79 20 6c 65 76  |..'"How many lev|
000000c0  65 6c 73 3a 22 6c 65 76  6c 25 0d 00 6e 19 fd 20  |els:"levl%..n.. |
000000d0  6c 65 76 6c 25 3e 30 20  80 20 6c 65 76 6c 25 20  |levl%>0 . levl% |
000000e0  3c 32 30 0d 00 78 14 f1  3a de 20 73 69 64 65 25  |<20..x..:. side%|
000000f0  28 6c 65 76 6c 25 29 0d  00 82 13 e3 20 41 25 3d  |(levl%)..... A%=|
00000100  30 20 b8 20 6c 65 76 6c  25 20 0d 00 8c 0f 73 69  |0 . levl% ....si|
00000110  64 65 25 28 41 25 29 3d  31 0d 00 96 05 ed 0d 00  |de%(A%)=1.......|
00000120  a0 15 f2 61 6e 67 6c 65  28 6c 74 68 2c 6c 65 76  |...angle(lth,lev|
00000130  6c 25 29 0d 00 aa 26 f1  27 22 53 61 76 65 20 74  |l%)...&.'"Save t|
00000140  68 69 73 20 73 63 72 65  65 6e 3f 20 28 59 2f 4e  |his screen? (Y/N|
00000150  29 3a 22 3b 3a 61 24 3d  be 0d 00 b4 45 e7 20 61  |):";:a$=....E. a|
00000160  24 3d 22 59 22 20 84 20  20 61 24 3d 22 79 22 20  |$="Y" .  a$="y" |
00000170  e8 27 27 22 46 69 6c 65  6e 61 6d 65 3a 22 66 69  |.''"Filename:"fi|
00000180  6c 65 24 3a f1 27 27 3a  ff 28 22 53 63 72 65 65  |le$:.'':.("Scree|
00000190  6e 53 61 76 65 20 22 2b  66 69 6c 65 24 29 0d 00  |nSave "+file$)..|
000001a0  be 1b f1 27 27 22 51 75  69 74 3f 20 28 59 2f 4e  |...''"Quit? (Y/N|
000001b0  29 3a 22 3b 3a 61 24 3d  be 0d 00 c8 18 e7 20 61  |):";:a$=...... a|
000001c0  24 3d 22 6e 22 20 84 20  61 24 3d 22 4e 22 20 f9  |$="n" . a$="N" .|
000001d0  20 0d 00 d2 09 eb 20 37  3a e0 0d 00 dc 05 3a 0d  | ..... 7:.....:.|
000001e0  00 e6 0e dd f2 74 75 72  6e 28 41 25 29 0d 00 f0  |.....turn(A%)...|
000001f0  18 61 6e 67 6c 25 3d 28  61 6e 67 6c 25 2b 41 25  |.angl%=(angl%+A%|
00000200  29 83 33 36 30 0d 00 fa  1d e7 20 61 6e 67 6c 25  |).360..... angl%|
00000210  3c 30 20 61 6e 67 6c 25  3d 61 6e 67 6c 25 2b 33  |<0 angl%=angl%+3|
00000220  36 30 0d 01 04 10 64 69  72 3d b2 28 61 6e 67 6c  |60....dir=.(angl|
00000230  25 29 0d 01 0e 05 e1 0d  01 18 05 3a 0d 01 22 0d  |%).........:..".|
00000240  dd f2 66 6f 77 64 28 41  29 0d 01 2c 1d 78 3d 78  |..fowd(A)..,.x=x|
00000250  2b 41 2a 9b 28 64 69 72  29 3a 79 3d 79 2b 41 2a  |+A*.(dir):y=y+A*|
00000260  b5 28 64 69 72 29 0d 01  36 09 df 20 78 2c 79 0d  |.(dir)..6.. x,y.|
00000270  01 40 05 e1 0d 01 4a 05  3a 0d 01 54 0a dd f2 69  |.@....J.:..T...i|
00000280  6e 69 74 0d 01 5e 29 fb  20 31 3a f1 20 89 28 39  |nit..^). 1:. .(9|
00000290  29 20 22 44 20 52 20 41  20 47 20 4f 20 4e 20 20  |) "D R A G O N  |
000002a0  20 43 20 55 20 52 20 56  20 45 20 22 0d 01 68 1d  | C U R V E "..h.|
000002b0  78 3d 33 30 30 3a 79 3d  36 30 30 3a 61 6e 67 6c  |x=300:y=600:angl|
000002c0  25 3d 30 3a 64 69 72 3d  30 0d 01 72 17 6c 74 68  |%=0:dir=0..r.lth|
000002d0  3d 38 30 30 3a 63 6f 6e  73 74 3d b6 28 2e 35 29  |=800:const=.(.5)|
000002e0  0d 01 7c 1f ef 20 31 39  2c 31 2c 31 2c 30 2c 30  |..|.. 19,1,1,0,0|
000002f0  2c 30 2c 31 39 2c 32 2c  34 2c 30 2c 30 2c 30 0d  |,0,19,2,4,0,0,0.|
00000300  01 86 1e ef 20 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.... 23,1,0;0;0;|
00000310  30 3b 32 38 2c 33 2c 33  2c 33 35 2c 32 0d 01 90  |0;28,3,3,35,2...|
00000320  15 e6 30 2c 32 3a ec 30  2c 30 3a df 30 2c 39 38  |..0,2:.0,0:.0,98|
00000330  30 20 0d 01 9a 1a df 31  32 37 39 2c 39 38 30 3a  |0 .....1279,980:|
00000340  df 31 32 37 39 2c 30 3a  df 30 2c 30 0d 01 a4 0f  |.1279,0:.0,0....|
00000350  e6 20 30 2c 31 3a ec 20  78 2c 79 0d 01 ae 05 e1  |. 0,1:. x,y.....|
00000360  0d 01 b8 05 3a 0d 01 c2  16 dd f2 61 6e 67 6c 65  |....:......angle|
00000370  28 6c 74 68 2c 6c 65 76  6c 25 29 0d 01 cc 1f 6c  |(lth,levl%)....l|
00000380  65 76 6c 25 3d 6c 65 76  6c 25 2d 31 3a 6c 74 68  |evl%=levl%-1:lth|
00000390  3d 6c 74 68 2a 63 6f 6e  73 74 0d 01 d6 1e 73 69  |=lth*const....si|
000003a0  64 65 25 28 6c 65 76 6c  25 29 3d 2d 73 69 64 65  |de%(levl%)=-side|
000003b0  25 28 6c 65 76 6c 25 29  0d 01 e0 1b f2 74 75 72  |%(levl%).....tur|
000003c0  6e 28 73 69 64 65 25 28  6c 65 76 6c 25 29 2a 34  |n(side%(levl%)*4|
000003d0  35 29 20 0d 01 ea 2c e7  20 6c 65 76 6c 25 3e 30  |5) ...,. levl%>0|
000003e0  20 f2 61 6e 67 6c 65 28  6c 74 68 2c 6c 65 76 6c  | .angle(lth,levl|
000003f0  25 29 20 8b 20 f2 66 6f  77 64 28 6c 74 68 29 0d  |%) . .fowd(lth).|
00000400  01 f4 1b f2 74 75 72 6e  28 2d 73 69 64 65 25 28  |....turn(-side%(|
00000410  6c 65 76 6c 25 29 2a 39  30 29 0d 01 fe 2d e7 20  |levl%)*90)...-. |
00000420  6c 65 76 6c 25 3e 30 20  f2 61 6e 67 6c 65 28 6c  |levl%>0 .angle(l|
00000430  74 68 2c 6c 65 76 6c 25  29 20 8b 20 f2 66 6f 77  |th,levl%) . .fow|
00000440  64 28 6c 74 68 29 20 0d  02 08 1a f2 74 75 72 6e  |d(lth) .....turn|
00000450  28 73 69 64 65 25 28 6c  65 76 6c 25 29 2a 34 35  |(side%(levl%)*45|
00000460  29 0d 02 12 05 e1 0d 02  1c 05 3a 0d 02 26 1a f4  |).........:..&..|
00000470  20 46 69 6c 65 20 65 72  72 6f 72 20 68 61 6e 64  | File error hand|
00000480  6c 69 6e 67 3a 0d 02 30  1c f6 3a f1 27 22 54 72  |ling:..0..:.'"Tr|
00000490  79 20 61 67 61 69 6e 3f  20 28 59 2f 4e 29 3a 22  |y again? (Y/N):"|
000004a0  3b 0d 02 3a 2a 61 24 3d  be 3a e7 20 61 24 3d 22  |;..:*a$=.:. a$="|
000004b0  59 22 20 84 20 61 24 3d  22 79 22 20 e5 20 8d 74  |Y" . a$="y" . .t|
000004c0  74 40 20 8b 20 e5 20 8d  74 7e 40 0d 02 44 09 e6  |t@ . . .t~@..D..|
000004d0  20 30 2c 31 0d ff                                 | 0,1..|
000004d6