�#


	�d���h��K��$�h�����������dc��kl��˴8K����������.BYTE          _3S            .BYTE$         _             �4h�������������������������(���������8�����������������������������������������'�
�'�.��0
**
***	**	***
***
***************
**************************
*
*
0)���ET YOU CAN'T GUESS WHAT THIS IS !�---------------------------------------***
********
********
********
********
********
********
******
**
*****0)�SHOULD STAY ON EACH LINE�TABLE TO WORK OUT HOW LONG THE COLOUR��ELAY - GUESS WHAT THIS DOES ! �T'S A�---------------------------------------���� ACTIVITYL)1��ETURN TO NORMAL�)ДTHE INTERRUPT�(
�AND IF WE HAVE, END�THE COLOURS�IF WEVE DONE ALL OF�8
��HECK TO SEE�0
A8�PAPER�)!Ж... AND ON THE�BORDER ...�) ЖPUT IT IN THE�8��ET THE COLOUR�END OF THE PAUSE�%A*
��ND WAIT FOR THE�0
�8��ET THE DELAY RATE�(�)ДSCAN LINE $31�(1��TART INTERRUPT ON0�---------------------------------------`�RETURN TO USERX��NABLE INTERRUPT�)�D8�USE�)�PROGRAM WE WANT TO�E8��OINT THE ��� AT THE�)Щ(�)
܍)
ܩ(�)�ʎ)Т*
��ET THE INTERRUPTS )D��LEAR SCREENx��ISABLE INTERRUPT�AT $1000 (OR 4096))��TART THE PROGRAM�---------------------------------------��              SYS 4096���O USE FROM BASIC, TYPE:�---------------------------------------�      � SIMPLE COLOURBAR ROUTINE !�---------------------------------------�TURBO(#(

(�����������������(���؁����������
(&&(#
`GNEEP@%��q�Q
\32322<0��w�UU��yUU
�`Q

h쌌���wUUS@��'5@�D�D`����280IR�SCROL�SCROL�SCROL�SCROL�SCROL�VA�V�RN�NN�CAL�DELA�COLOU�COLEN���� � �0�L@�
W_^^~����
T

JHP�13�!����u
�p���
��<�
�?���

.#N@A@A@@@A@I.@@D@..@.H..k£.@@@@.$.H......................D@C@.....KL......8Vk..........F.byte          C.3s            F.byte$         B.T             .4H..........................(...........8....................................@...@.@...@X'.A.'...@.E@0MC*O*J*H*B*I*@C*I*B*H*J*O*G*A*GC*@*@C*L*K*@*L*K*@*K*@C*K*L*O*A*O*L*K*OC*K*@*K*L*@*K*L*OC*C*E*N*D*F*@*@*@C*F*D*N*E*C*M*A*M0LF).Q..et you can't guess what this is !.---------------------------------------C*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*H*H*A*H*H*H*H*HC*A*H*A*H*H*H*H*H0KF)@Q.should stay on each line.table to work out how long the colour..elay - guess what this does ! .t's a.---------------------------------------.... activityl)1...eturn to normal.)Y..the interrupt.(A.and if we have, end.the colours.if weve done all of.8J..heck to see.0Ma8L..paper.)!..... and on the.border ....) ..put it in the.8L..et the colour.end of the pause.%a*A..nd wait for the.0J.8K..et the delay rate.(@.)R..scan line $31.(1..tart interrupt on0@.---------------------------------------..return to userx..nable interrupt.)UC.d8@.use.)TC.program we want to.e8@..oint the ... at the.)Q..([.)M..)M..(..)N...)Z..*A..et the interrupts )d...lear screenX..isable interrupt.at $1000 (or 4096)F)@P..tart the program.---------------------------------------..              sys 4096...o use from basic, type:.---------------------------------------.      . simple colourbar routine !.---------------------------------------.turbo(#(YAWA(@VS@.@.@.........@....@.@.@(@B..@.@...Q@..K@.F@...TL@..@.M@(&&Y@D@BQQQQQQQQ@(#@@D@BQQ@QQQEQMB.gneep@%..Q.qEA£32322<0O..W.u@@u@..Yu@@uA...qAAH....LOLC...Wu@@uTTTSSsS@..'5U@@.PDd.dTD.....280Oir.scrol.scrol.scrol.scrol.scrol.va.v.rn.nn.cal.dela.colou.colen.@@@@@@@.@@@@@@@C@@@@@@@.@@@@@@@.@@@@@@@@@@@BH .BH .@@@@0@@@@@@@.l@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PWw....@@@.....@@@@ABBt@@ABJjhK@@Pp.13.@@!....UAD.P..@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO@@@@..<.@AD@@@CK@...?...@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

00000000  8f 23 0e 00 01 00 01 00  00 00 01 00 09 ff 00 00  |.#..............|
00000010  64 00 fd 8a 00 e8 68 9b  ec 4b 1c fb 00 00 00 00  |d.....h..K......|
00000020  e8 24 b4 68 e1 b4 e2 7f  e2 7f e2 7f e2 7f e2 7f  |.$.h............|
00000030  e2 7f e2 7f e2 7f e2 7f  e2 7f 64 00 63 00 e8 fc  |..........d.c...|
00000040  c1 f1 fc 6b 6c 1f e8 e8  bf cb b4 38 16 4b fc e8  |...kl......8.K..|
00000050  e8 e8 e8 e8 e8 e8 e8 e8  06 2e 42 59 54 45 20 20  |..........BYTE  |
00000060  20 20 20 20 20 20 20 20  03 5f 33 53 20 20 20 20  |        ._3S    |
00000070  20 20 20 20 20 20 20 20  06 2e 42 59 54 45 24 20  |        ..BYTE$ |
00000080  20 20 20 20 20 20 20 20  02 5f 14 20 20 20 20 20  |        ._.     |
00000090  20 20 20 20 20 20 20 20  f4 34 68 e8 e8 e8 e8 e8  |        .4h.....|
000000a0  e8 e8 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 e8 e8  |................|
000000b0  e8 e8 e8 e8 98 28 fc fc  f8 c8 e8 e8 e8 e8 e8 f8  |.....(..........|
000000c0  fb 38 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 e8 e8  |.8..............|
000000d0  e8 e8 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 f8 f8  |................|
000000e0  e8 e8 e8 e8 e8 e8 00 ff  a2 ff 00 ff 00 fe a7 ff  |................|
000000f0  00 18 27 ff 01 ad 27 ff  2e df 00 fe 05 00 30 0d  |..'...'.......0.|
00000100  03 2a 0f 2a 0a 2a 08 2a  02 2a 09 2a 00 03 2a 09  |.*.*.*.*.*.*..*.|
00000110  2a 02 2a 08 2a 0a 2a 0f  2a 07 2a 01 2a 07 03 2a  |*.*.*.*.*.*.*..*|
00000120  00 2a 00 03 2a 0c 2a 0b  2a 00 2a 0c 2a 0b 2a 00  |.*..*.*.*.*.*.*.|
00000130  2a 0b 2a 00 03 2a 0b 2a  0c 2a 0f 2a 01 2a 0f 2a  |*.*..*.*.*.*.*.*|
00000140  0c 2a 0b 2a 0f 03 2a 0b  2a 00 2a 0b 2a 0c 2a 00  |.*.*..*.*.*.*.*.|
00000150  2a 0b 2a 0c 2a 0f 03 2a  03 2a 05 2a 0e 2a 04 2a  |*.*.*..*.*.*.*.*|
00000160  06 2a 00 2a 00 2a 00 03  2a 06 2a 04 2a 0e 2a 05  |.*.*.*..*.*.*.*.|
00000170  2a 03 2a 0d 2a 01 2a 0d  30 0c 06 29 80 11 80 c2  |*.*.*.*.0..)....|
00000180  45 54 20 59 4f 55 20 43  41 4e 27 54 20 47 55 45  |ET YOU CAN'T GUE|
00000190  53 53 20 57 48 41 54 20  54 48 49 53 20 49 53 20  |SS WHAT THIS IS |
000001a0  21 80 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |!.--------------|
000001b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000001c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 03 2a 08 2a 08 2a 01  |---------.*.*.*.|
000001d0  2a 08 2a 08 2a 08 2a 08  2a 08 03 2a 08 2a 08 2a  |*.*.*.*.*..*.*.*|
000001e0  01 2a 08 2a 08 2a 08 2a  08 2a 08 03 2a 08 2a 08  |.*.*.*.*.*..*.*.|
000001f0  2a 01 2a 08 2a 08 2a 08  2a 08 2a 08 03 2a 08 2a  |*.*.*.*.*.*..*.*|
00000200  08 2a 01 2a 08 2a 08 2a  08 2a 08 2a 08 03 2a 08  |.*.*.*.*.*.*..*.|
00000210  2a 08 2a 01 2a 08 2a 08  2a 08 2a 08 2a 08 03 2a  |*.*.*.*.*.*.*..*|
00000220  08 2a 08 2a 01 2a 08 2a  08 2a 08 2a 08 2a 08 03  |.*.*.*.*.*.*.*..|
00000230  2a 08 2a 08 2a 01 2a 08  2a 08 2a 08 2a 08 2a 08  |*.*.*.*.*.*.*.*.|
00000240  03 2a 01 2a 08 2a 01 2a  08 2a 08 2a 08 2a 08 2a  |.*.*.*.*.*.*.*.*|
00000250  08 30 0b 06 29 00 11 80  53 48 4f 55 4c 44 20 53  |.0..)...SHOULD S|
00000260  54 41 59 20 4f 4e 20 45  41 43 48 20 4c 49 4e 45  |TAY ON EACH LINE|
00000270  80 54 41 42 4c 45 20 54  4f 20 57 4f 52 4b 20 4f  |.TABLE TO WORK O|
00000280  55 54 20 48 4f 57 20 4c  4f 4e 47 20 54 48 45 20  |UT HOW LONG THE |
00000290  43 4f 4c 4f 55 52 80 c4  45 4c 41 59 20 2d 20 47  |COLOUR..ELAY - G|
000002a0  55 45 53 53 20 57 48 41  54 20 54 48 49 53 20 44  |UESS WHAT THIS D|
000002b0  4f 45 53 20 21 20 c9 54  27 53 20 41 80 2d 2d 2d  |OES ! .T'S A.---|
000002c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000002e0  2d 2d 2d 2d 94 c9 d2 d1  20 41 43 54 49 56 49 54  |----.... ACTIVIT|
000002f0  59 4c 29 31 ea 94 d2 45  54 55 52 4e 20 54 4f 20  |YL)1...ETURN TO |
00000300  4e 4f 52 4d 41 4c 8d 29  19 d0 94 54 48 45 20 49  |NORMAL.)...THE I|
00000310  4e 54 45 52 52 55 50 54  a9 28 01 94 41 4e 44 20  |NTERRUPT.(..AND |
00000320  49 46 20 57 45 20 48 41  56 45 2c 20 45 4e 44 94  |IF WE HAVE, END.|
00000330  54 48 45 20 43 4f 4c 4f  55 52 53 94 49 46 20 57  |THE COLOURS.IF W|
00000340  45 56 45 20 44 4f 4e 45  20 41 4c 4c 20 4f 46 d0  |EVE DONE ALL OF.|
00000350  38 0a 9b c3 48 45 43 4b  20 54 4f 20 53 45 45 e0  |8...HECK TO SEE.|
00000360  30 0d 41 38 0c e8 96 50  41 50 45 52 8d 29 21 d0  |0.A8...PAPER.)!.|
00000370  96 2e 2e 2e 20 41 4e 44  20 4f 4e 20 54 48 45 96  |.... AND ON THE.|
00000380  42 4f 52 44 45 52 20 2e  2e 2e 8d 29 20 d0 96 50  |BORDER ....) ..P|
00000390  55 54 20 49 54 20 49 4e  20 54 48 45 bd 38 0c 96  |UT IT IN THE.8..|
000003a0  c7 45 54 20 54 48 45 20  43 4f 4c 4f 55 52 95 45  |.ET THE COLOUR.E|
000003b0  4e 44 20 4f 46 20 54 48  45 20 50 41 55 53 45 d0  |ND OF THE PAUSE.|
000003c0  25 41 2a 01 95 c1 4e 44  20 57 41 49 54 20 46 4f  |%A*...ND WAIT FO|
000003d0  52 20 54 48 45 88 30 0a  bc 38 0b 95 c7 45 54 20  |R THE.0..8...ET |
000003e0  54 48 45 20 44 45 4c 41  59 20 52 41 54 45 a2 28  |THE DELAY RATE.(|
000003f0  00 8d 29 12 d0 94 53 43  41 4e 20 4c 49 4e 45 20  |..)...SCAN LINE |
00000400  24 33 31 a9 28 31 94 d3  54 41 52 54 20 49 4e 54  |$31.(1..TART INT|
00000410  45 52 52 55 50 54 20 4f  4e 30 00 80 2d 2d 2d 2d  |ERRUPT ON0..----|
00000420  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000440  2d 2d 2d 60 93 52 45 54  55 52 4e 20 54 4f 20 55  |---`.RETURN TO U|
00000450  53 45 52 58 93 c5 4e 41  42 4c 45 20 49 4e 54 45  |SERX..NABLE INTE|
00000460  52 52 55 50 54 8d 29 15  03 a9 44 38 00 93 55 53  |RRUPT.)...D8..US|
00000470  45 8d 29 14 03 93 50 52  4f 47 52 41 4d 20 57 45  |E.)...PROGRAM WE|
00000480  20 57 41 4e 54 20 54 4f  a9 45 38 00 93 d0 4f 49  | WANT TO.E8...OI|
00000490  4e 54 20 54 48 45 20 c9  d2 d1 20 41 54 20 54 48  |NT THE ... AT TH|
000004a0  45 8d 29 11 d0 a9 28 1b  ad 29 0d dc 8d 29 0d dc  |E.)...(..)...)..|
000004b0  a9 28 7f 8e 29 0e dc ca  8e 29 1a d0 a2 2a 01 93  |.(..)....)...*..|
000004c0  d3 45 54 20 54 48 45 20  49 4e 54 45 52 52 55 50  |.ET THE INTERRUP|
000004d0  54 53 20 29 44 e5 93 c3  4c 45 41 52 20 53 43 52  |TS )D...LEAR SCR|
000004e0  45 45 4e 78 93 c4 49 53  41 42 4c 45 20 49 4e 54  |EENx..ISABLE INT|
000004f0  45 52 52 55 50 54 93 41  54 20 24 31 30 30 30 20  |ERRUPT.AT $1000 |
00000500  28 4f 52 20 34 30 39 36  29 06 29 00 10 93 d3 54  |(OR 4096).)....T|
00000510  41 52 54 20 54 48 45 20  50 52 4f 47 52 41 4d 80  |ART THE PROGRAM.|
00000520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000540  2d 2d 2d 2d 2d 2d 2d 80  80 20 20 20 20 20 20 20  |-------..       |
00000550  20 20 20 20 20 20 20 53  59 53 20 34 30 39 36 80  |       SYS 4096.|
00000560  80 d4 4f 20 55 53 45 20  46 52 4f 4d 20 42 41 53  |..O USE FROM BAS|
00000570  49 43 2c 20 54 59 50 45  3a 80 2d 2d 2d 2d 2d 2d  |IC, TYPE:.------|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005a0  2d 80 20 20 20 20 20 20  c1 20 53 49 4d 50 4c 45  |-.      . SIMPLE|
000005b0  20 43 4f 4c 4f 55 52 42  41 52 20 52 4f 55 54 49  | COLOURBAR ROUTI|
000005c0  4e 45 20 21 80 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |NE !.-----------|
000005d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000005e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d a9 54 55 52  |------------.TUR|
000005f0  42 4f 28 23 28 19 01 17  01 28 00 16 13 00 93 00  |BO(#(....(......|
00000600  91 00 96 84 81 84 83 84  84 83 84 00 99 97 88 84  |................|
00000610  00 92 00 90 00 28 00 02  96 92 00 83 00 d8 81 96  |.....(..........|
00000620  11 00 92 92 0b 00 93 06  00 81 86 90 14 0c 00 97  |................|
00000630  92 00 95 0d 00 28 26 26  19 00 04 00 02 11 11 11  |.....(&&........|
00000640  11 11 11 11 11 00 28 23  00 00 04 00 02 11 11 00  |......(#........|
00000650  11 11 11 05 11 0d 02 60  47 4e 45 45 50 40 25 91  |.......`GNEEP@%.|
00000660  e1 71 d1 51 05 01 5c 33  32 33 32 32 3c 30 0f b8  |.q.Q..\32322<0..|
00000670  de 77 dd 55 00 00 55 00  9d e7 79 55 00 00 55 01  |.w.U..U...yU..U.|
00000680  ec 98 60 51 01 01 68 ec  8c 8c 8c 0c 0f 0c 03 e7  |..`Q..h.........|
00000690  bf dd 77 55 00 00 55 14  14 14 13 13 53 13 40 fb  |..wU..U.....S.@.|
000006a0  9d 27 35 15 40 00 d5 10  04 44 84 44 14 04 60 c0  |.'5.@....D.D..`.|
000006b0  c5 cf c2 32 38 30 0f 49  52 d1 53 43 52 4f 4c cc  |...280.IR.SCROL.|
000006c0  53 43 52 4f 4c cd 53 43  52 4f 4c ce 53 43 52 4f  |SCROL.SCROL.SCRO|
000006d0  4c d0 53 43 52 4f 4c cf  56 41 cc 56 c1 52 4e c5  |L.SCROL.VA.V.RN.|
000006e0  4e 4e c5 43 41 4c cc 44  45 4c 41 d9 43 4f 4c 4f  |NN.CAL.DELA.COLO|
000006f0  55 d2 43 4f 4c 45 4e c4  00 00 00 00 00 00 00 cc  |U.COLEN.........|
00000700  00 00 00 00 00 00 00 03  00 00 00 00 00 00 00 ff  |................|
00000710  00 00 00 00 00 00 00 c0  00 00 00 00 00 00 00 00  |................|
00000720  00 00 00 02 08 20 80 02  08 20 80 00 00 00 00 30  |..... ... .....0|
00000730  00 00 00 00 00 00 00 90  4c 00 40 00 00 00 00 80  |........L.@.....|
00000740  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000820  00 00 00 00 00 00 01 00  10 17 57 5f 5e 5e 7e 00  |..........W_^^~.|
00000830  00 00 80 a0 a8 eb fb 00  00 00 00 01 02 02 54 00  |..............T.|
00000840  00 01 02 0a 4a 48 0b 00  00 10 50 f1 31 33 d3 00  |....JH....P.13..|
00000850  00 21 b1 b1 f0 dc 75 01  04 f0 70 a0 80 00 80 00  |.!....u...p.....|
00000860  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000870  00 00 00 00 00 00 00 00  00 00 00 00 00 0a 0f 00  |................|
00000880  00 00 00 a0 f8 3c 8f 00  01 04 00 00 00 03 0b 00  |.....<..........|
00000890  f0 fc f7 3f f7 ff ec 00  00 00 00 00 00 00 00 00  |...?............|
000008a0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000008b0  00 00 00 00 00 00 00 00                           |........|
000008b8