�
!� Yass 2 Screen Saver - Lines
�
("� � copyright 1993, Ian Palmer
)�
2
<ݤlines_start
F� A%
P�clearscreen(-1)
Z3line_buffer%=�malloc(256):� line_buffer%=0 � =�
d*� A%=0 � 15:!(line_buffer%+A%*16)=-1:�
nEline_ptr%=0:line_col%=�(8)+7:line_dx1%=�(65)-33:line_dy1%=�(65)-3
x)line_dx2%=�(65)-33:line_dy2%=�(65)-33
�Oline_x1%=�(max_x%):line_x2%=�(max_x%):line_y1%=�(max_y%):line_y2%=�(max_y%)
�=0
�
�ݤlines_poll
�� A%
��set_colour(3,line_col%)
�A%=line_ptr%
�!� !(line_buffer%+A%*16)<>-1 �
�5  � !(line_buffer%+A%*16),!(line_buffer%+A%*16+4)
�8  � !(line_buffer%+A%*16+8),!(line_buffer%+A%*16+12)
��
�C!(line_buffer%+A%*16)=line_x1%:!(line_buffer%+A%*16+8)=line_x2%
�F!(line_buffer%+A%*16+4)=line_y1%:!(line_buffer%+A%*16+12)=line_y2%

+� line_x1%,line_y1%:� line_x2%,line_y2%

aline_x1%+=line_dx1%:� line_x1%<0 � line_x1%>max_x% � line_x1%-=line_dx1%:line_dx1%=-line_dx1%

aline_x2%+=line_dx2%:� line_x2%<0 � line_x2%>max_x% � line_x2%-=line_dx2%:line_dx2%=-line_dx2%

"aline_y1%+=line_dy1%:� line_y1%<0 � line_y1%>max_y% � line_y1%-=line_dy1%:line_dy1%=-line_dy1%

,aline_y2%+=line_dy2%:� line_y2%<0 � line_y2%>max_y% � line_y2%-=line_dy2%:line_dy2%=-line_dy2%

6line_ptr%=(line_ptr%+1)� 16

@� now_going%>9000 � =�

J=�

T

^ݤlines_stop

h�free(line_buffer%)

r=0
�

00000000  0d 00 0a 05 f4 0d 00 14  21 f4 20 59 61 73 73 20  |........!. Yass |
00000010  32 20 53 63 72 65 65 6e  20 53 61 76 65 72 20 2d  |2 Screen Saver -|
00000020  20 4c 69 6e 65 73 0d 00  1e 05 f4 0d 00 28 22 f4  | Lines.......(".|
00000030  20 a9 20 63 6f 70 79 72  69 67 68 74 20 31 39 39  | . copyright 199|
00000040  33 2c 20 49 61 6e 20 50  61 6c 6d 65 72 0d 00 29  |3, Ian Palmer..)|
00000050  05 f4 0d 00 32 04 0d 00  3c 11 dd a4 6c 69 6e 65  |....2...<...line|
00000060  73 5f 73 74 61 72 74 0d  00 46 08 ea 20 41 25 0d  |s_start..F.. A%.|
00000070  00 50 14 f2 63 6c 65 61  72 73 63 72 65 65 6e 28  |.P..clearscreen(|
00000080  2d 31 29 0d 00 5a 33 6c  69 6e 65 5f 62 75 66 66  |-1)..Z3line_buff|
00000090  65 72 25 3d a4 6d 61 6c  6c 6f 63 28 32 35 36 29  |er%=.malloc(256)|
000000a0  3a e7 20 6c 69 6e 65 5f  62 75 66 66 65 72 25 3d  |:. line_buffer%=|
000000b0  30 20 8c 20 3d b9 0d 00  64 2a e3 20 41 25 3d 30  |0 . =...d*. A%=0|
000000c0  20 b8 20 31 35 3a 21 28  6c 69 6e 65 5f 62 75 66  | . 15:!(line_buf|
000000d0  66 65 72 25 2b 41 25 2a  31 36 29 3d 2d 31 3a ed  |fer%+A%*16)=-1:.|
000000e0  0d 00 6e 45 6c 69 6e 65  5f 70 74 72 25 3d 30 3a  |..nEline_ptr%=0:|
000000f0  6c 69 6e 65 5f 63 6f 6c  25 3d b3 28 38 29 2b 37  |line_col%=.(8)+7|
00000100  3a 6c 69 6e 65 5f 64 78  31 25 3d b3 28 36 35 29  |:line_dx1%=.(65)|
00000110  2d 33 33 3a 6c 69 6e 65  5f 64 79 31 25 3d b3 28  |-33:line_dy1%=.(|
00000120  36 35 29 2d 33 0d 00 78  29 6c 69 6e 65 5f 64 78  |65)-3..x)line_dx|
00000130  32 25 3d b3 28 36 35 29  2d 33 33 3a 6c 69 6e 65  |2%=.(65)-33:line|
00000140  5f 64 79 32 25 3d b3 28  36 35 29 2d 33 33 0d 00  |_dy2%=.(65)-33..|
00000150  82 4f 6c 69 6e 65 5f 78  31 25 3d b3 28 6d 61 78  |.Oline_x1%=.(max|
00000160  5f 78 25 29 3a 6c 69 6e  65 5f 78 32 25 3d b3 28  |_x%):line_x2%=.(|
00000170  6d 61 78 5f 78 25 29 3a  6c 69 6e 65 5f 79 31 25  |max_x%):line_y1%|
00000180  3d b3 28 6d 61 78 5f 79  25 29 3a 6c 69 6e 65 5f  |=.(max_y%):line_|
00000190  79 32 25 3d b3 28 6d 61  78 5f 79 25 29 0d 00 8c  |y2%=.(max_y%)...|
000001a0  06 3d 30 0d 00 96 04 0d  00 a0 10 dd a4 6c 69 6e  |.=0..........lin|
000001b0  65 73 5f 70 6f 6c 6c 0d  00 aa 08 ea 20 41 25 0d  |es_poll..... A%.|
000001c0  00 b4 1c f2 73 65 74 5f  63 6f 6c 6f 75 72 28 33  |....set_colour(3|
000001d0  2c 6c 69 6e 65 5f 63 6f  6c 25 29 0d 00 be 10 41  |,line_col%)....A|
000001e0  25 3d 6c 69 6e 65 5f 70  74 72 25 0d 00 c8 21 e7  |%=line_ptr%...!.|
000001f0  20 21 28 6c 69 6e 65 5f  62 75 66 66 65 72 25 2b  | !(line_buffer%+|
00000200  41 25 2a 31 36 29 3c 3e  2d 31 20 8c 0d 00 d2 35  |A%*16)<>-1 ....5|
00000210  20 20 ec 20 21 28 6c 69  6e 65 5f 62 75 66 66 65  |  . !(line_buffe|
00000220  72 25 2b 41 25 2a 31 36  29 2c 21 28 6c 69 6e 65  |r%+A%*16),!(line|
00000230  5f 62 75 66 66 65 72 25  2b 41 25 2a 31 36 2b 34  |_buffer%+A%*16+4|
00000240  29 0d 00 dc 38 20 20 df  20 21 28 6c 69 6e 65 5f  |)...8  . !(line_|
00000250  62 75 66 66 65 72 25 2b  41 25 2a 31 36 2b 38 29  |buffer%+A%*16+8)|
00000260  2c 21 28 6c 69 6e 65 5f  62 75 66 66 65 72 25 2b  |,!(line_buffer%+|
00000270  41 25 2a 31 36 2b 31 32  29 0d 00 e6 05 cd 0d 00  |A%*16+12).......|
00000280  f0 43 21 28 6c 69 6e 65  5f 62 75 66 66 65 72 25  |.C!(line_buffer%|
00000290  2b 41 25 2a 31 36 29 3d  6c 69 6e 65 5f 78 31 25  |+A%*16)=line_x1%|
000002a0  3a 21 28 6c 69 6e 65 5f  62 75 66 66 65 72 25 2b  |:!(line_buffer%+|
000002b0  41 25 2a 31 36 2b 38 29  3d 6c 69 6e 65 5f 78 32  |A%*16+8)=line_x2|
000002c0  25 0d 00 fa 46 21 28 6c  69 6e 65 5f 62 75 66 66  |%...F!(line_buff|
000002d0  65 72 25 2b 41 25 2a 31  36 2b 34 29 3d 6c 69 6e  |er%+A%*16+4)=lin|
000002e0  65 5f 79 31 25 3a 21 28  6c 69 6e 65 5f 62 75 66  |e_y1%:!(line_buf|
000002f0  66 65 72 25 2b 41 25 2a  31 36 2b 31 32 29 3d 6c  |fer%+A%*16+12)=l|
00000300  69 6e 65 5f 79 32 25 0d  01 04 2b ec 20 6c 69 6e  |ine_y2%...+. lin|
00000310  65 5f 78 31 25 2c 6c 69  6e 65 5f 79 31 25 3a df  |e_x1%,line_y1%:.|
00000320  20 6c 69 6e 65 5f 78 32  25 2c 6c 69 6e 65 5f 79  | line_x2%,line_y|
00000330  32 25 0d 01 0e 61 6c 69  6e 65 5f 78 31 25 2b 3d  |2%...aline_x1%+=|
00000340  6c 69 6e 65 5f 64 78 31  25 3a e7 20 6c 69 6e 65  |line_dx1%:. line|
00000350  5f 78 31 25 3c 30 20 84  20 6c 69 6e 65 5f 78 31  |_x1%<0 . line_x1|
00000360  25 3e 6d 61 78 5f 78 25  20 8c 20 6c 69 6e 65 5f  |%>max_x% . line_|
00000370  78 31 25 2d 3d 6c 69 6e  65 5f 64 78 31 25 3a 6c  |x1%-=line_dx1%:l|
00000380  69 6e 65 5f 64 78 31 25  3d 2d 6c 69 6e 65 5f 64  |ine_dx1%=-line_d|
00000390  78 31 25 0d 01 18 61 6c  69 6e 65 5f 78 32 25 2b  |x1%...aline_x2%+|
000003a0  3d 6c 69 6e 65 5f 64 78  32 25 3a e7 20 6c 69 6e  |=line_dx2%:. lin|
000003b0  65 5f 78 32 25 3c 30 20  84 20 6c 69 6e 65 5f 78  |e_x2%<0 . line_x|
000003c0  32 25 3e 6d 61 78 5f 78  25 20 8c 20 6c 69 6e 65  |2%>max_x% . line|
000003d0  5f 78 32 25 2d 3d 6c 69  6e 65 5f 64 78 32 25 3a  |_x2%-=line_dx2%:|
000003e0  6c 69 6e 65 5f 64 78 32  25 3d 2d 6c 69 6e 65 5f  |line_dx2%=-line_|
000003f0  64 78 32 25 0d 01 22 61  6c 69 6e 65 5f 79 31 25  |dx2%.."aline_y1%|
00000400  2b 3d 6c 69 6e 65 5f 64  79 31 25 3a e7 20 6c 69  |+=line_dy1%:. li|
00000410  6e 65 5f 79 31 25 3c 30  20 84 20 6c 69 6e 65 5f  |ne_y1%<0 . line_|
00000420  79 31 25 3e 6d 61 78 5f  79 25 20 8c 20 6c 69 6e  |y1%>max_y% . lin|
00000430  65 5f 79 31 25 2d 3d 6c  69 6e 65 5f 64 79 31 25  |e_y1%-=line_dy1%|
00000440  3a 6c 69 6e 65 5f 64 79  31 25 3d 2d 6c 69 6e 65  |:line_dy1%=-line|
00000450  5f 64 79 31 25 0d 01 2c  61 6c 69 6e 65 5f 79 32  |_dy1%..,aline_y2|
00000460  25 2b 3d 6c 69 6e 65 5f  64 79 32 25 3a e7 20 6c  |%+=line_dy2%:. l|
00000470  69 6e 65 5f 79 32 25 3c  30 20 84 20 6c 69 6e 65  |ine_y2%<0 . line|
00000480  5f 79 32 25 3e 6d 61 78  5f 79 25 20 8c 20 6c 69  |_y2%>max_y% . li|
00000490  6e 65 5f 79 32 25 2d 3d  6c 69 6e 65 5f 64 79 32  |ne_y2%-=line_dy2|
000004a0  25 3a 6c 69 6e 65 5f 64  79 32 25 3d 2d 6c 69 6e  |%:line_dy2%=-lin|
000004b0  65 5f 64 79 32 25 0d 01  36 1f 6c 69 6e 65 5f 70  |e_dy2%..6.line_p|
000004c0  74 72 25 3d 28 6c 69 6e  65 5f 70 74 72 25 2b 31  |tr%=(line_ptr%+1|
000004d0  29 83 20 31 36 0d 01 40  1a e7 20 6e 6f 77 5f 67  |). 16..@.. now_g|
000004e0  6f 69 6e 67 25 3e 39 30  30 30 20 8c 20 3d b9 0d  |oing%>9000 . =..|
000004f0  01 4a 06 3d a3 0d 01 54  04 0d 01 5e 10 dd a4 6c  |.J.=...T...^...l|
00000500  69 6e 65 73 5f 73 74 6f  70 0d 01 68 17 f2 66 72  |ines_stop..h..fr|
00000510  65 65 28 6c 69 6e 65 5f  62 75 66 66 65 72 25 29  |ee(line_buffer%)|
00000520  0d 01 72 06 3d 30 0d ff                           |..r.=0..|
00000528