"� Pointless line program (ARM)
� (C) Martin Dawe 1991
�15
(� 23,1,0;0;0;0;
2
��ERR
<�"POINTLESS LINE PROGRAM"'
F�
P�"(L)INES OR (S)OLID";o$
Z� �"LlSs",o$)
d!� �"Ll",o$) lines=� � lines=�
n�
x�"LENGTH (100:MAX)";L%
��"SCALE";SC
�
�setup
�<� c1x(101),c1y(101),c2x(101),c2y(101),col(101),tint(101)
�rn=0
�	stc=0
�on=0
�dx1=50:dy1=50:dx2=20:dy2=20
�x1=0:y1=0:x2=100:y2=0
�	col=0
�
tint=0
��
�c1x(rn)=x1
�c1y(rn)=y1

c2x(rn)=x2

c2y(rn)=y2

� x1>1279 dx1=-100

"� x1<8 dx1=100

,� x2>1279 dx2=-100

6� x2<8 dx2=100

@� y1>850 dy1=-100

J� y1<100 dy1=100

T� y2>850 dy2=-100

^� y2<100 dy2=100

h%� x2>x1+300 dx1=dx1+96:dx2=dx2-96

r%� x1>x2+300 dx1=dx1-96:dx2=dx2+96

|%� y2>y1+300 dy1=dy1+96:dy2=dy2-96

�%� y1>y2+300 dy1=dy1-96:dy2=dy2+96

�tint=tint+64

�� tint>255 tint=0:col=col+1

�� col>63 col=1

�col(rn)=col

�tint(rn)=tint

�fnrn=�reen(rn)

�H�block(x1,y1,x2,y2,c1x(fnrn),c1y(fnrn),c2x(fnrn),c2y(fnrn),col,tint)

֐� stc<L% stc=stc+1 � on=on+1:fnrn=�reen(on):�block(c1x(on),c1y(on),c2x(on),c2y(on),c1x(fnrn),c1y(fnrn),c2x(fnrn),c2y(fnrn),col(on),tint(on))

�� rn>L% rn=0

�� on>L% on=0

�rn=rn+1

�x1=x1+(dx1*SC)
x2=x2+(dx2*SC)
!y1=y1+(dy1*SC):y2=y2+(dy2*SC)
$� �(2)=1 dx1=dx1+20 � dx1=dx1-20
&$� �(2)=1 dx2=dx2+20 � dx2=dx2-20
0$� �(2)=1 dy1=dy1+20 � dy1=dy1-20
:$� �(2)=1 dy2=dy2+20 � dy2=dy2-20
D� �(-1) � G=0 � G=150
N� G<150 � G=G+1:� �DNB
X� 0
bݤreen(ren)
l� ren=1 =L%+1
v� ren=0 =L%+1
�
=ren-1
�	��ERR
�$�0,2)"Do you wish to continue?"
�� �=89 �
��
���setup
�	� 0,1
�� 0,128
��256,895
�
�85,0,895
�
�0,128
��256,128
��85,256,895

�1279,128

�1023,895
�85,1279,895
 
�1279,128
*
�1023,128
4�85,1023,895
>�6
H#�1,30)"POINTLESS LINE PROGRAM"
R�7
\$�1,31)"WRITTEN BY MARTIN DAWE";
f�
p.��block(xa,ya,xb,yb,xa2,ya2,xb2,yb2,cl,tn)
z� lines �line:�
�� 3,cl Ȝ tn
�� xa,ya
�� xb,yb
��85,xa2,ya2
�� 3,cl+4 Ȝ tn
�
� xa2,ya2
�
� xb2,yb2
�
�85,xb,yb
��
�
��line
�	�3,63
�� xa,ya
�� xb,yb
� xa,ya

� xa2,ya2
� xb,yb
$
� xb2,yb2
.�
�

00000000  0d 00 0a 22 f4 20 50 6f  69 6e 74 6c 65 73 73 20  |...". Pointless |
00000010  6c 69 6e 65 20 70 72 6f  67 72 61 6d 20 28 41 52  |line program (AR|
00000020  4d 29 0d 00 14 1a f4 20  28 43 29 20 4d 61 72 74  |M)..... (C) Mart|
00000030  69 6e 20 44 61 77 65 20  31 39 39 31 0d 00 1e 07  |in Dawe 1991....|
00000040  eb 31 35 0d 00 28 13 ef  20 32 33 2c 31 2c 30 3b  |.15..(.. 23,1,0;|
00000050  30 3b 30 3b 30 3b 0d 00  32 0a ee 85 f2 45 52 52  |0;0;0;..2....ERR|
00000060  0d 00 3c 1e f1 22 50 4f  49 4e 54 4c 45 53 53 20  |..<.."POINTLESS |
00000070  4c 49 4e 45 20 50 52 4f  47 52 41 4d 22 27 0d 00  |LINE PROGRAM"'..|
00000080  46 05 f5 0d 00 50 1c e8  22 28 4c 29 49 4e 45 53  |F....P.."(L)INES|
00000090  20 4f 52 20 28 53 29 4f  4c 49 44 22 3b 6f 24 0d  | OR (S)OLID";o$.|
000000a0  00 5a 11 fd 20 a7 22 4c  6c 53 73 22 2c 6f 24 29  |.Z.. ."LlSs",o$)|
000000b0  0d 00 64 21 e7 20 a7 22  4c 6c 22 2c 6f 24 29 20  |..d!. ."Ll",o$) |
000000c0  6c 69 6e 65 73 3d b9 20  8b 20 6c 69 6e 65 73 3d  |lines=. . lines=|
000000d0  a3 0d 00 6e 05 db 0d 00  78 1a e8 22 4c 45 4e 47  |...n....x.."LENG|
000000e0  54 48 20 28 31 30 30 3a  4d 41 58 29 22 3b 4c 25  |TH (100:MAX)";L%|
000000f0  0d 00 82 0f e8 22 53 43  41 4c 45 22 3b 53 43 0d  |....."SCALE";SC.|
00000100  00 8c 0a f2 73 65 74 75  70 0d 00 96 3c de 20 63  |....setup...<. c|
00000110  31 78 28 31 30 31 29 2c  63 31 79 28 31 30 31 29  |1x(101),c1y(101)|
00000120  2c 63 32 78 28 31 30 31  29 2c 63 32 79 28 31 30  |,c2x(101),c2y(10|
00000130  31 29 2c 63 6f 6c 28 31  30 31 29 2c 74 69 6e 74  |1),col(101),tint|
00000140  28 31 30 31 29 0d 00 a0  08 72 6e 3d 30 0d 00 aa  |(101)....rn=0...|
00000150  09 73 74 63 3d 30 0d 00  b4 08 6f 6e 3d 30 0d 00  |.stc=0....on=0..|
00000160  be 1f 64 78 31 3d 35 30  3a 64 79 31 3d 35 30 3a  |..dx1=50:dy1=50:|
00000170  64 78 32 3d 32 30 3a 64  79 32 3d 32 30 0d 00 c8  |dx2=20:dy2=20...|
00000180  19 78 31 3d 30 3a 79 31  3d 30 3a 78 32 3d 31 30  |.x1=0:y1=0:x2=10|
00000190  30 3a 79 32 3d 30 0d 00  d2 09 63 6f 6c 3d 30 0d  |0:y2=0....col=0.|
000001a0  00 dc 0a 74 69 6e 74 3d  30 0d 00 e6 05 f5 0d 00  |...tint=0.......|
000001b0  f0 0e 63 31 78 28 72 6e  29 3d 78 31 0d 00 fa 0e  |..c1x(rn)=x1....|
000001c0  63 31 79 28 72 6e 29 3d  79 31 0d 01 04 0e 63 32  |c1y(rn)=y1....c2|
000001d0  78 28 72 6e 29 3d 78 32  0d 01 0e 0e 63 32 79 28  |x(rn)=x2....c2y(|
000001e0  72 6e 29 3d 79 32 0d 01  18 16 e7 20 78 31 3e 31  |rn)=y2..... x1>1|
000001f0  32 37 39 20 64 78 31 3d  2d 31 30 30 0d 01 22 12  |279 dx1=-100..".|
00000200  e7 20 78 31 3c 38 20 64  78 31 3d 31 30 30 0d 01  |. x1<8 dx1=100..|
00000210  2c 16 e7 20 78 32 3e 31  32 37 39 20 64 78 32 3d  |,.. x2>1279 dx2=|
00000220  2d 31 30 30 0d 01 36 12  e7 20 78 32 3c 38 20 64  |-100..6.. x2<8 d|
00000230  78 32 3d 31 30 30 0d 01  40 15 e7 20 79 31 3e 38  |x2=100..@.. y1>8|
00000240  35 30 20 64 79 31 3d 2d  31 30 30 0d 01 4a 14 e7  |50 dy1=-100..J..|
00000250  20 79 31 3c 31 30 30 20  64 79 31 3d 31 30 30 0d  | y1<100 dy1=100.|
00000260  01 54 15 e7 20 79 32 3e  38 35 30 20 64 79 32 3d  |.T.. y2>850 dy2=|
00000270  2d 31 30 30 0d 01 5e 14  e7 20 79 32 3c 31 30 30  |-100..^.. y2<100|
00000280  20 64 79 32 3d 31 30 30  0d 01 68 25 e7 20 78 32  | dy2=100..h%. x2|
00000290  3e 78 31 2b 33 30 30 20  64 78 31 3d 64 78 31 2b  |>x1+300 dx1=dx1+|
000002a0  39 36 3a 64 78 32 3d 64  78 32 2d 39 36 0d 01 72  |96:dx2=dx2-96..r|
000002b0  25 e7 20 78 31 3e 78 32  2b 33 30 30 20 64 78 31  |%. x1>x2+300 dx1|
000002c0  3d 64 78 31 2d 39 36 3a  64 78 32 3d 64 78 32 2b  |=dx1-96:dx2=dx2+|
000002d0  39 36 0d 01 7c 25 e7 20  79 32 3e 79 31 2b 33 30  |96..|%. y2>y1+30|
000002e0  30 20 64 79 31 3d 64 79  31 2b 39 36 3a 64 79 32  |0 dy1=dy1+96:dy2|
000002f0  3d 64 79 32 2d 39 36 0d  01 86 25 e7 20 79 31 3e  |=dy2-96...%. y1>|
00000300  79 32 2b 33 30 30 20 64  79 31 3d 64 79 31 2d 39  |y2+300 dy1=dy1-9|
00000310  36 3a 64 79 32 3d 64 79  32 2b 39 36 0d 01 90 10  |6:dy2=dy2+96....|
00000320  74 69 6e 74 3d 74 69 6e  74 2b 36 34 0d 01 9a 1f  |tint=tint+64....|
00000330  e7 20 74 69 6e 74 3e 32  35 35 20 74 69 6e 74 3d  |. tint>255 tint=|
00000340  30 3a 63 6f 6c 3d 63 6f  6c 2b 31 0d 01 a4 12 e7  |0:col=col+1.....|
00000350  20 63 6f 6c 3e 36 33 20  63 6f 6c 3d 31 0d 01 ae  | col>63 col=1...|
00000360  0f 63 6f 6c 28 72 6e 29  3d 63 6f 6c 0d 01 b8 11  |.col(rn)=col....|
00000370  74 69 6e 74 28 72 6e 29  3d 74 69 6e 74 0d 01 c2  |tint(rn)=tint...|
00000380  12 66 6e 72 6e 3d a4 72  65 65 6e 28 72 6e 29 0d  |.fnrn=.reen(rn).|
00000390  01 cc 48 f2 62 6c 6f 63  6b 28 78 31 2c 79 31 2c  |..H.block(x1,y1,|
000003a0  78 32 2c 79 32 2c 63 31  78 28 66 6e 72 6e 29 2c  |x2,y2,c1x(fnrn),|
000003b0  63 31 79 28 66 6e 72 6e  29 2c 63 32 78 28 66 6e  |c1y(fnrn),c2x(fn|
000003c0  72 6e 29 2c 63 32 79 28  66 6e 72 6e 29 2c 63 6f  |rn),c2y(fnrn),co|
000003d0  6c 2c 74 69 6e 74 29 0d  01 d6 90 e7 20 73 74 63  |l,tint)..... stc|
000003e0  3c 4c 25 20 73 74 63 3d  73 74 63 2b 31 20 8b 20  |<L% stc=stc+1 . |
000003f0  6f 6e 3d 6f 6e 2b 31 3a  66 6e 72 6e 3d a4 72 65  |on=on+1:fnrn=.re|
00000400  65 6e 28 6f 6e 29 3a f2  62 6c 6f 63 6b 28 63 31  |en(on):.block(c1|
00000410  78 28 6f 6e 29 2c 63 31  79 28 6f 6e 29 2c 63 32  |x(on),c1y(on),c2|
00000420  78 28 6f 6e 29 2c 63 32  79 28 6f 6e 29 2c 63 31  |x(on),c2y(on),c1|
00000430  78 28 66 6e 72 6e 29 2c  63 31 79 28 66 6e 72 6e  |x(fnrn),c1y(fnrn|
00000440  29 2c 63 32 78 28 66 6e  72 6e 29 2c 63 32 79 28  |),c2x(fnrn),c2y(|
00000450  66 6e 72 6e 29 2c 63 6f  6c 28 6f 6e 29 2c 74 69  |fnrn),col(on),ti|
00000460  6e 74 28 6f 6e 29 29 0d  01 e0 10 e7 20 72 6e 3e  |nt(on))..... rn>|
00000470  4c 25 20 72 6e 3d 30 0d  01 ea 10 e7 20 6f 6e 3e  |L% rn=0..... on>|
00000480  4c 25 20 6f 6e 3d 30 0d  01 f4 0b 72 6e 3d 72 6e  |L% on=0....rn=rn|
00000490  2b 31 0d 01 fe 12 78 31  3d 78 31 2b 28 64 78 31  |+1....x1=x1+(dx1|
000004a0  2a 53 43 29 0d 02 08 12  78 32 3d 78 32 2b 28 64  |*SC)....x2=x2+(d|
000004b0  78 32 2a 53 43 29 0d 02  12 21 79 31 3d 79 31 2b  |x2*SC)...!y1=y1+|
000004c0  28 64 79 31 2a 53 43 29  3a 79 32 3d 79 32 2b 28  |(dy1*SC):y2=y2+(|
000004d0  64 79 32 2a 53 43 29 0d  02 1c 24 e7 20 b3 28 32  |dy2*SC)...$. .(2|
000004e0  29 3d 31 20 64 78 31 3d  64 78 31 2b 32 30 20 8b  |)=1 dx1=dx1+20 .|
000004f0  20 64 78 31 3d 64 78 31  2d 32 30 0d 02 26 24 e7  | dx1=dx1-20..&$.|
00000500  20 b3 28 32 29 3d 31 20  64 78 32 3d 64 78 32 2b  | .(2)=1 dx2=dx2+|
00000510  32 30 20 8b 20 64 78 32  3d 64 78 32 2d 32 30 0d  |20 . dx2=dx2-20.|
00000520  02 30 24 e7 20 b3 28 32  29 3d 31 20 64 79 31 3d  |.0$. .(2)=1 dy1=|
00000530  64 79 31 2b 32 30 20 8b  20 64 79 31 3d 64 79 31  |dy1+20 . dy1=dy1|
00000540  2d 32 30 0d 02 3a 24 e7  20 b3 28 32 29 3d 31 20  |-20..:$. .(2)=1 |
00000550  64 79 32 3d 64 79 32 2b  32 30 20 8b 20 64 79 32  |dy2=dy2+20 . dy2|
00000560  3d 64 79 32 2d 32 30 0d  02 44 19 e7 20 a6 28 2d  |=dy2-20..D.. .(-|
00000570  31 29 20 8c 20 47 3d 30  20 8b 20 47 3d 31 35 30  |1) . G=0 . G=150|
00000580  0d 02 4e 1a e7 20 47 3c  31 35 30 20 8c 20 47 3d  |..N.. G<150 . G=|
00000590  47 2b 31 3a e5 20 8d 44  4e 42 0d 02 58 07 fd 20  |G+1:. .DNB..X.. |
000005a0  30 0d 02 62 0f dd a4 72  65 65 6e 28 72 65 6e 29  |0..b...reen(ren)|
000005b0  0d 02 6c 11 e7 20 72 65  6e 3d 31 20 3d 4c 25 2b  |..l.. ren=1 =L%+|
000005c0  31 0d 02 76 11 e7 20 72  65 6e 3d 30 20 3d 4c 25  |1..v.. ren=0 =L%|
000005d0  2b 31 0d 02 80 0a 3d 72  65 6e 2d 31 0d 02 8a 09  |+1....=ren-1....|
000005e0  dd f2 45 52 52 0d 02 94  24 f1 8a 30 2c 32 29 22  |..ERR...$..0,2)"|
000005f0  44 6f 20 79 6f 75 20 77  69 73 68 20 74 6f 20 63  |Do you wish to c|
00000600  6f 6e 74 69 6e 75 65 3f  22 0d 02 9e 0c e7 20 a5  |ontinue?"..... .|
00000610  3d 38 39 20 f9 0d 02 a8  05 e0 0d 02 b2 0b dd f2  |=89 ............|
00000620  73 65 74 75 70 0d 02 bc  09 e6 20 30 2c 31 0d 02  |setup..... 0,1..|
00000630  c6 0b ec 20 30 2c 31 32  38 0d 02 d0 0c ec 32 35  |... 0,128.....25|
00000640  36 2c 38 39 35 0d 02 da  0d f0 38 35 2c 30 2c 38  |6,895.....85,0,8|
00000650  39 35 0d 02 e4 0a ec 30  2c 31 32 38 0d 02 ee 0c  |95.....0,128....|
00000660  ec 32 35 36 2c 31 32 38  0d 02 f8 0f f0 38 35 2c  |.256,128.....85,|
00000670  32 35 36 2c 38 39 35 0d  03 02 0d ec 31 32 37 39  |256,895.....1279|
00000680  2c 31 32 38 0d 03 0c 0d  ec 31 30 32 33 2c 38 39  |,128.....1023,89|
00000690  35 0d 03 16 10 f0 38 35  2c 31 32 37 39 2c 38 39  |5.....85,1279,89|
000006a0  35 0d 03 20 0d ec 31 32  37 39 2c 31 32 38 0d 03  |5.. ..1279,128..|
000006b0  2a 0d ec 31 30 32 33 2c  31 32 38 0d 03 34 10 f0  |*..1023,128..4..|
000006c0  38 35 2c 31 30 32 33 2c  38 39 35 0d 03 3e 06 fb  |85,1023,895..>..|
000006d0  36 0d 03 48 23 f1 8a 31  2c 33 30 29 22 50 4f 49  |6..H#..1,30)"POI|
000006e0  4e 54 4c 45 53 53 20 4c  49 4e 45 20 50 52 4f 47  |NTLESS LINE PROG|
000006f0  52 41 4d 22 0d 03 52 06  fb 37 0d 03 5c 24 f1 8a  |RAM"..R..7..\$..|
00000700  31 2c 33 31 29 22 57 52  49 54 54 45 4e 20 42 59  |1,31)"WRITTEN BY|
00000710  20 4d 41 52 54 49 4e 20  44 41 57 45 22 3b 0d 03  | MARTIN DAWE";..|
00000720  66 05 e1 0d 03 70 2e dd  f2 62 6c 6f 63 6b 28 78  |f....p...block(x|
00000730  61 2c 79 61 2c 78 62 2c  79 62 2c 78 61 32 2c 79  |a,ya,xb,yb,xa2,y|
00000740  61 32 2c 78 62 32 2c 79  62 32 2c 63 6c 2c 74 6e  |a2,xb2,yb2,cl,tn|
00000750  29 0d 03 7a 13 e7 20 6c  69 6e 65 73 20 f2 6c 69  |)..z.. lines .li|
00000760  6e 65 3a e1 0d 03 84 10  e6 20 33 2c 63 6c 20 c8  |ne:...... 3,cl .|
00000770  9c 20 74 6e 0d 03 8e 0b  ec 20 78 61 2c 79 61 0d  |. tn..... xa,ya.|
00000780  03 98 0b ec 20 78 62 2c  79 62 0d 03 a2 0f f0 38  |.... xb,yb.....8|
00000790  35 2c 78 61 32 2c 79 61  32 0d 03 ac 12 e6 20 33  |5,xa2,ya2..... 3|
000007a0  2c 63 6c 2b 34 20 c8 9c  20 74 6e 0d 03 b6 0d ec  |,cl+4 .. tn.....|
000007b0  20 78 61 32 2c 79 61 32  0d 03 c0 0d ec 20 78 62  | xa2,ya2..... xb|
000007c0  32 2c 79 62 32 0d 03 ca  0d f0 38 35 2c 78 62 2c  |2,yb2.....85,xb,|
000007d0  79 62 0d 03 d4 05 e1 0d  03 de 0a dd f2 6c 69 6e  |yb...........lin|
000007e0  65 0d 03 e8 09 e6 33 2c  36 33 0d 03 f2 0b ec 20  |e.....3,63..... |
000007f0  78 61 2c 79 61 0d 03 fc  0b df 20 78 62 2c 79 62  |xa,ya..... xb,yb|
00000800  0d 04 06 0b ec 20 78 61  2c 79 61 0d 04 10 0d df  |..... xa,ya.....|
00000810  20 78 61 32 2c 79 61 32  0d 04 1a 0b ec 20 78 62  | xa2,ya2..... xb|
00000820  2c 79 62 0d 04 24 0d df  20 78 62 32 2c 79 62 32  |,yb..$.. xb2,yb2|
00000830  0d 04 2e 05 e1 0d ff                              |.......|
00000837