� Outlined text
� by John Walsh
� (c) The Micro User
(� November 1990
2� 1
<7�outline("This is a demonstration of some",1,1,2,1)
F=�outline("outlined text which is produced using",1,3,3,0)
P9�outline("the PROCoutline routine contained",1,5,3,1)
Z.�outline("within this program.",1,7,2,0):�
d� �outline(text$,x,y,c1,c2)
ngx=x*32:gy=1024-(y*32):� 5
x
� 0,c1
�� gx-4,gy:� text$
�� gx+4,gy:� text$
�� gx,gy-4:� text$
�� gx,gy+4:� text$
�� gx-4,gy-4:� text$
�� gx+4,gy-4:� text$
�� gx+4,gy+4:� text$
�� gx-4,gy+4:� text$
�� 0,c2:� gx,gy:� text$
�	� 4:�
�

00000000  0d 00 0a 13 f4 20 4f 75  74 6c 69 6e 65 64 20 74  |..... Outlined t|
00000010  65 78 74 0d 00 14 13 f4  20 62 79 20 4a 6f 68 6e  |ext..... by John|
00000020  20 57 61 6c 73 68 0d 00  1e 18 f4 20 28 63 29 20  | Walsh..... (c) |
00000030  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 0d 00  |The Micro User..|
00000040  28 13 f4 20 4e 6f 76 65  6d 62 65 72 20 31 39 39  |(.. November 199|
00000050  30 0d 00 32 07 eb 20 31  0d 00 3c 37 f2 6f 75 74  |0..2.. 1..<7.out|
00000060  6c 69 6e 65 28 22 54 68  69 73 20 69 73 20 61 20  |line("This is a |
00000070  64 65 6d 6f 6e 73 74 72  61 74 69 6f 6e 20 6f 66  |demonstration of|
00000080  20 73 6f 6d 65 22 2c 31  2c 31 2c 32 2c 31 29 0d  | some",1,1,2,1).|
00000090  00 46 3d f2 6f 75 74 6c  69 6e 65 28 22 6f 75 74  |.F=.outline("out|
000000a0  6c 69 6e 65 64 20 74 65  78 74 20 77 68 69 63 68  |lined text which|
000000b0  20 69 73 20 70 72 6f 64  75 63 65 64 20 75 73 69  | is produced usi|
000000c0  6e 67 22 2c 31 2c 33 2c  33 2c 30 29 0d 00 50 39  |ng",1,3,3,0)..P9|
000000d0  f2 6f 75 74 6c 69 6e 65  28 22 74 68 65 20 50 52  |.outline("the PR|
000000e0  4f 43 6f 75 74 6c 69 6e  65 20 72 6f 75 74 69 6e  |OCoutline routin|
000000f0  65 20 63 6f 6e 74 61 69  6e 65 64 22 2c 31 2c 35  |e contained",1,5|
00000100  2c 33 2c 31 29 0d 00 5a  2e f2 6f 75 74 6c 69 6e  |,3,1)..Z..outlin|
00000110  65 28 22 77 69 74 68 69  6e 20 74 68 69 73 20 70  |e("within this p|
00000120  72 6f 67 72 61 6d 2e 22  2c 31 2c 37 2c 32 2c 30  |rogram.",1,7,2,0|
00000130  29 3a e0 0d 00 64 1f dd  20 f2 6f 75 74 6c 69 6e  |):...d.. .outlin|
00000140  65 28 74 65 78 74 24 2c  78 2c 79 2c 63 31 2c 63  |e(text$,x,y,c1,c|
00000150  32 29 0d 00 6e 1e 67 78  3d 78 2a 33 32 3a 67 79  |2)..n.gx=x*32:gy|
00000160  3d 31 30 32 34 2d 28 79  2a 33 32 29 3a ef 20 35  |=1024-(y*32):. 5|
00000170  0d 00 78 0a e6 20 30 2c  63 31 0d 00 82 15 ec 20  |..x.. 0,c1..... |
00000180  67 78 2d 34 2c 67 79 3a  f1 20 74 65 78 74 24 0d  |gx-4,gy:. text$.|
00000190  00 8c 15 ec 20 67 78 2b  34 2c 67 79 3a f1 20 74  |.... gx+4,gy:. t|
000001a0  65 78 74 24 0d 00 96 15  ec 20 67 78 2c 67 79 2d  |ext$..... gx,gy-|
000001b0  34 3a f1 20 74 65 78 74  24 0d 00 a0 15 ec 20 67  |4:. text$..... g|
000001c0  78 2c 67 79 2b 34 3a f1  20 74 65 78 74 24 0d 00  |x,gy+4:. text$..|
000001d0  aa 17 ec 20 67 78 2d 34  2c 67 79 2d 34 3a f1 20  |... gx-4,gy-4:. |
000001e0  74 65 78 74 24 0d 00 b4  17 ec 20 67 78 2b 34 2c  |text$..... gx+4,|
000001f0  67 79 2d 34 3a f1 20 74  65 78 74 24 0d 00 be 17  |gy-4:. text$....|
00000200  ec 20 67 78 2b 34 2c 67  79 2b 34 3a f1 20 74 65  |. gx+4,gy+4:. te|
00000210  78 74 24 0d 00 c8 17 ec  20 67 78 2d 34 2c 67 79  |xt$..... gx-4,gy|
00000220  2b 34 3a f1 20 74 65 78  74 24 0d 00 d2 1a e6 20  |+4:. text$..... |
00000230  30 2c 63 32 3a ec 20 67  78 2c 67 79 3a f1 20 74  |0,c2:. gx,gy:. t|
00000240  65 78 74 24 0d 00 dc 09  ef 20 34 3a e1 0d ff     |ext$..... 4:...|
0000024f