Home » CEEFAX disks » telesoftware17.adl » 04-08-89/TVAlign

04-08-89/TVAlign

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware17.adl
Filename: 04-08-89/TVAlign
Read OK:
File size: 0A6C bytes
Load address: 1A00
Exec address: FFFF8023
File contents
   10REM TV PATTERN GENERATER
   20REM B.WEBB
   30REM"�BBC / ELECTRON        
   40REM"�PRESS SPACE BAR FOR INDEX
   50REM"�PRESS BREAK FOR PROG. LISTINGS
   51REM"�Mods by RJG to give true circle
   55*TV0,1
   60*K.10 O.|M|NL.|M
   70REM INDEX
   80MODE6
   90VDU19,0,4,0,0,0
  100PRINT"PATTERN GENERATOR                 b.webb"
  110PRINT"      PRESS   PATTERNS"
  120PRINT"       A______CROSS-HATCH & CIRCLE."'
  130PRINT"       B______DOTS."'
  140PRINT"       C______E.H.T."'
  150PRINT"       D______CHROMA BARS."'
  160PRINT"       E______HIGH FREQUENCY."' 
  170PRINT"       F______R G B RASTERS."'
  180PRINT"       G______COMPLEMENTARY COLOURS."'
  190PRINT"       H______PAL CROSS COLOUR DEM."'
  200PRINT"       I______CHEQUER DISPLAY."'
  210PRINT"       J______DECAY."'
  220PRINT"       PRESS SPACE BAR FOR INDEX"
  230 VDU7
  240:
  250select%=INSTR("ABCDEFGHIJ",GET$)
  260IFselect%=0 VDU7:GOTO80
  270ONselect%GOSUB305,340,370,420,470,500,670,720,790,850
  280GOTO80
  290:
  300"�REM CROSS-HATCH AND CIRCLE
  305MODE1:FORI=40TO1300 STEP100:MOVEI,0:DRAWI,1023:NEXTI:VDU20:FORI=10TO1100 STEP100:MOVE0,I:DRAW1300,I:NEXT:MOVE638,965
  306VDU29,640;512;
  307MOVE350,0
  311FORC=0TO2.1*PI STEP0.05
  312PLOT5,350*COSC,323*SINC
  313PLOT5,352*COSC,325*SINC
  315NEXTC:PRINTTAB(14,15)"TRUE  CIRCLE":REPEAT:UNTILGET=32
  320RETURN
  330"�REM DOTS
  340MODE2:FOR X=91 TO 1188 STEP 91:FOR Y=0 TO 1023 STEP 64:MOVE X,Y:DRAW X,Y+1:NEXT Y:NEXT X:VDU23,1,0;0;0;0;:REPEAT UNTIL GET=32
  350RETURN
  360"�EHT
  370MODE0:MOVE2,2:DRAW1277,2:DRAW1277,1021:DRAW2,1021:DRAW2,2
  380REPEAT:VDU19,2,0;0;:FORdelay=1TO1000:NEXT:VDU19,2,7;0;:FORdelay=1TO1000:NEXT
  390UNTILINKEY$(0)=" "
  400RETURN
  410"�REM CHROMA BARS
  420MODE2
  430DATA 3,6,2,5,1,4
  440VDU20:FORI=0TO1247 STEP 208:READC:GCOL0,C:PLOT4,I,0:PLOT4,I,1023:PLOT85,I+207,0:PLOT85,I+207,1023:NEXT:REPEATUNTILGET=32
  450RETURN
  460"�REM HIGH FREQUENCY
  470MODE0:FOR N%=1 TO 2560:C=RND(26):VDU C+96;:NEXT N%:REPEAT UNTIL GET=32  
  480RETURN
  490"�RGB RASTERS
  500MODE2
  510COLOUR1
  520PRINT"PRESS 1 FOR RED"'
  530COLOUR2
  540PRINT"PRESS 2 FOR GREEN"'
  550COLOUR4
  560PRINT"PRESS 4 FOR BLUE"'
  570COLOUR7
  580PRINT"PRESS 7 FOR WHITE"
  590Q$=GET$
  600IFQ$="7"THEN VDU19,0,7,0,0,0
  610IFQ$="1"THEN VDU19,0,1,0,0,0
  620IFQ$="2"THEN VDU19,0,2,0,0,0
  630IFQ$="4"THEN VDU19,0,4,0,0,0
  640IFQ$=" "THEN RETURN
  650GOTO590
  660"�REM COMPLEMENTERY COLOURS
  670MODE2:VDU24,0;0;620;335;:GCOL0,132:CLG:VDU24,0;336;620;670;:GCOL0,130:CLG:VDU24,0;671;620;1005;:GCOL0,129:CLG:VDU24,620;0;1239;335;:GCOL0,131:CLG:VDU24,620;336;1239;670;:GCOL0,133:CLG:VDU24,620;671;1239;1005;:GCOL0,134:CLG
  680COLOUR0:COLOUR129:PRINTTAB(2,5)"RED":COLOUR134:PRINTTAB(11,5)"CYAN"
  690COLOUR130:PRINTTAB(2,16)"GREEN":COLOUR133:PRINTTAB(11,16)"MAGENTA":COLOUR132:PRINTTAB(2,26)"BLUE":COLOUR131:PRINTTAB(11,26)"YELLOW":REPEAT UNTIL GET=32
  700RETURN
  710REM"�CROSS COLOUR DEMONSTRATION
  720MODE0
  730D%=10:VDU19,2.RAD(3)+1,0,0,0,:VDU19,3.RAD(3)+4,0,0,0,:VDU29,694;512;:J1%=0:FORK%=500TO380 STEP-40:REPEAT:J2%=RND(3):UNTILJ2%<>J1%:J1%=J2%:GCOL3,J1%
  740FORI%=-K%TOK% STEP D%:MOVEK%,I%:DRAW-K%,-I%:MOVEI%,-K%:DRAWI%,-K%:DRAW-I%,K%:NEXT
  750NEXT
  760REPEATUNTILGET=32
  770RETURN
  780REM"�CHEQUER BOARD
  790MODE0
  800VDU20:FORI=0TO1250STEP100:FORJ=0TO1050STEP100:c=c+1:IFc/2=INT(c/2)THEN820
  810MOVEI,J:PLOT4,I,J+92:PLOT85,I+92,J:PLOT85,I+92,J+92
  820NEXTJ,I:REPEATUNTILGET=32
  830RETURN
  840REM"�DECAY
  850MODE1:*FX9,20
  860*FX10,100
  870VDU19,3,15;0;:FORX%=1TO10:PRINT"DECAY*DECAY*DECAY"'':NEXT:REPEATUNTILGET=32
  880 RETURN

� TV PATTERN GENERATER
� B.WEBB
�"�BBC / ELECTRON        
( �"�PRESS SPACE BAR FOR INDEX
2%�"�PRESS BREAK FOR PROG. LISTINGS
3&�"�Mods by RJG to give true circle
7
*TV0,1
<*K.10 O.|M|NL.|M
F� INDEX
P�6
Z�19,0,4,0,0,0
d/�"PATTERN GENERATOR                 b.webb"
n�"      PRESS   PATTERNS"
x+�"       A______CROSS-HATCH & CIRCLE."'
��"       B______DOTS."'
��"       C______E.H.T."'
�"�"       D______CHROMA BARS."'
�&�"       E______HIGH FREQUENCY."' 
�$�"       F______R G B RASTERS."'
�,�"       G______COMPLEMENTARY COLOURS."'
�+�"       H______PAL CROSS COLOUR DEM."'
�&�"       I______CHEQUER DISPLAY."'
��"       J______DECAY."'
�'�"       PRESS SPACE BAR FOR INDEX"
� �7
�:
�select%=�"ABCDEFGHIJ",�)
�select%=0 �7:�DP@
>�select%�TqA,�DTA,�DrA,�tdA,�dVA,�dtA,�t^B,�dPB,�TVC,�DRC
	�DP@
":
, "�REM CROSS-HATCH AND CIRCLE
1R�1:�I=40�1300 �100:�I,0:�I,1023:�I:�20:�I=10�1100 �100:�0,I:�1300,I:�:�638,965
2�29,640;512;
3
�350,0
7�C=0�2.1*� �0.05
8�5,350*�C,323*�C
9�5,352*�C,325*�C
;%�C:�14,15)"TRUE  CIRCLE":�:��=32
@�
J"�REM DOTS
TY�2:� X=91 � 1188 � 91:� Y=0 � 1023 � 64:� X,Y:� X,Y+1:� Y:� X:�23,1,0;0;0;0;:� � �=32
^�
h	"�EHT
r+�0:�2,2:�1277,2:�1277,1021:�2,1021:�2,2
|;�:�19,2,0;0;:�delay=1�1000:�:�19,2,7;0;:�delay=1�1000:�
�
��(0)=" "
��
�"�REM CHROMA BARS
��2
�� 3,6,2,5,1,4
�T�20:�I=0�1247 � 208:�C:�0,C:�4,I,0:�4,I,1023:�85,I+207,0:�85,I+207,1023:�:���=32
��
�"�REM HIGH FREQUENCY
�4�0:� N%=1 � 2560:C=�(26):� C+96;:� N%:� � �=32  
��
�"�RGB RASTERS
��2
��1
�"PRESS 1 FOR RED"'
�2
�"PRESS 2 FOR GREEN"'
&�4
0�"PRESS 4 FOR BLUE"'
:�7
D�"PRESS 7 FOR WHITE"
NQ$=�
X�Q$="7"� �19,0,7,0,0,0
b�Q$="1"� �19,0,1,0,0,0
l�Q$="2"� �19,0,2,0,0,0
v�Q$="4"� �19,0,4,0,0,0
��Q$=" "� �
�	�DNB
�"�REM COMPLEMENTERY COLOURS
���2:�24,0;0;620;335;:�0,132:�:�24,0;336;620;670;:�0,130:�:�24,0;671;620;1005;:�0,129:�:�24,620;0;1239;335;:�0,131:�:�24,620;336;1239;670;:�0,133:�:�24,620;671;1239;1005;:�0,134:�
�*�0:�129:�2,5)"RED":�134:�11,5)"CYAN"
�`�130:�2,16)"GREEN":�133:�11,16)"MAGENTA":�132:�2,26)"BLUE":�131:�11,26)"YELLOW":� � �=32
��
�!�"�CROSS COLOUR DEMONSTRATION
��0
�yD%=10:�19,2.�(3)+1,0,0,0,:�19,3.�(3)+4,0,0,0,:�29,694;512;:J1%=0:�K%=500�380 �-40:�:J2%=�(3):�J2%<>J1%:J1%=J2%:�3,J1%
�=�I%=-K%�K% � D%:�K%,I%:�-K%,-I%:�I%,-K%:�I%,-K%:�-I%,K%:�
��
�
���=32
�
�"�CHEQUER BOARD
�0
 :�20:�I=0�1250�100:�J=0�1050�100:c=c+1:�c/2=�(c/2)��TtC
*+�I,J:�4,I,J+92:�85,I+92,J:�85,I+92,J+92
4�J,I:���=32
>�
H�"�DECAY
R�1:*FX9,20
\
*FX10,100
f8�19,3,15;0;:�X%=1�10:�"DECAY*DECAY*DECAY"'':�:���=32
p �
�
00000000  0d 00 0a 1a f4 20 54 56  20 50 41 54 54 45 52 4e  |..... TV PATTERN|
00000010  20 47 45 4e 45 52 41 54  45 52 0d 00 14 0c f4 20  | GENERATER..... |
00000020  42 2e 57 45 42 42 0d 00  1e 1d f4 22 83 42 42 43  |B.WEBB.....".BBC|
00000030  20 2f 20 45 4c 45 43 54  52 4f 4e 20 20 20 20 20  | / ELECTRON     |
00000040  20 20 20 0d 00 28 20 f4  22 83 50 52 45 53 53 20  |   ..( .".PRESS |
00000050  53 50 41 43 45 20 42 41  52 20 46 4f 52 20 49 4e  |SPACE BAR FOR IN|
00000060  44 45 58 0d 00 32 25 f4  22 83 50 52 45 53 53 20  |DEX..2%.".PRESS |
00000070  42 52 45 41 4b 20 46 4f  52 20 50 52 4f 47 2e 20  |BREAK FOR PROG. |
00000080  4c 49 53 54 49 4e 47 53  0d 00 33 26 f4 22 86 4d  |LISTINGS..3&.".M|
00000090  6f 64 73 20 62 79 20 52  4a 47 20 74 6f 20 67 69  |ods by RJG to gi|
000000a0  76 65 20 74 72 75 65 20  63 69 72 63 6c 65 0d 00  |ve true circle..|
000000b0  37 0a 2a 54 56 30 2c 31  0d 00 3c 14 2a 4b 2e 31  |7.*TV0,1..<.*K.1|
000000c0  30 20 4f 2e 7c 4d 7c 4e  4c 2e 7c 4d 0d 00 46 0b  |0 O.|M|NL.|M..F.|
000000d0  f4 20 49 4e 44 45 58 0d  00 50 06 eb 36 0d 00 5a  |. INDEX..P..6..Z|
000000e0  11 ef 31 39 2c 30 2c 34  2c 30 2c 30 2c 30 0d 00  |..19,0,4,0,0,0..|
000000f0  64 2f f1 22 50 41 54 54  45 52 4e 20 47 45 4e 45  |d/."PATTERN GENE|
00000100  52 41 54 4f 52 20 20 20  20 20 20 20 20 20 20 20  |RATOR           |
00000110  20 20 20 20 20 20 62 2e  77 65 62 62 22 0d 00 6e  |      b.webb"..n|
00000120  1d f1 22 20 20 20 20 20  20 50 52 45 53 53 20 20  |.."      PRESS  |
00000130  20 50 41 54 54 45 52 4e  53 22 0d 00 78 2b f1 22  | PATTERNS"..x+."|
00000140  20 20 20 20 20 20 20 41  5f 5f 5f 5f 5f 5f 43 52  |       A______CR|
00000150  4f 53 53 2d 48 41 54 43  48 20 26 20 43 49 52 43  |OSS-HATCH & CIRC|
00000160  4c 45 2e 22 27 0d 00 82  1b f1 22 20 20 20 20 20  |LE."'....."     |
00000170  20 20 42 5f 5f 5f 5f 5f  5f 44 4f 54 53 2e 22 27  |  B______DOTS."'|
00000180  0d 00 8c 1c f1 22 20 20  20 20 20 20 20 43 5f 5f  |....."       C__|
00000190  5f 5f 5f 5f 45 2e 48 2e  54 2e 22 27 0d 00 96 22  |____E.H.T."'..."|
000001a0  f1 22 20 20 20 20 20 20  20 44 5f 5f 5f 5f 5f 5f  |."       D______|
000001b0  43 48 52 4f 4d 41 20 42  41 52 53 2e 22 27 0d 00  |CHROMA BARS."'..|
000001c0  a0 26 f1 22 20 20 20 20  20 20 20 45 5f 5f 5f 5f  |.&."       E____|
000001d0  5f 5f 48 49 47 48 20 46  52 45 51 55 45 4e 43 59  |__HIGH FREQUENCY|
000001e0  2e 22 27 20 0d 00 aa 24  f1 22 20 20 20 20 20 20  |."' ...$."      |
000001f0  20 46 5f 5f 5f 5f 5f 5f  52 20 47 20 42 20 52 41  | F______R G B RA|
00000200  53 54 45 52 53 2e 22 27  0d 00 b4 2c f1 22 20 20  |STERS."'...,."  |
00000210  20 20 20 20 20 47 5f 5f  5f 5f 5f 5f 43 4f 4d 50  |     G______COMP|
00000220  4c 45 4d 45 4e 54 41 52  59 20 43 4f 4c 4f 55 52  |LEMENTARY COLOUR|
00000230  53 2e 22 27 0d 00 be 2b  f1 22 20 20 20 20 20 20  |S."'...+."      |
00000240  20 48 5f 5f 5f 5f 5f 5f  50 41 4c 20 43 52 4f 53  | H______PAL CROS|
00000250  53 20 43 4f 4c 4f 55 52  20 44 45 4d 2e 22 27 0d  |S COLOUR DEM."'.|
00000260  00 c8 26 f1 22 20 20 20  20 20 20 20 49 5f 5f 5f  |..&."       I___|
00000270  5f 5f 5f 43 48 45 51 55  45 52 20 44 49 53 50 4c  |___CHEQUER DISPL|
00000280  41 59 2e 22 27 0d 00 d2  1c f1 22 20 20 20 20 20  |AY."'....."     |
00000290  20 20 4a 5f 5f 5f 5f 5f  5f 44 45 43 41 59 2e 22  |  J______DECAY."|
000002a0  27 0d 00 dc 27 f1 22 20  20 20 20 20 20 20 50 52  |'...'."       PR|
000002b0  45 53 53 20 53 50 41 43  45 20 42 41 52 20 46 4f  |ESS SPACE BAR FO|
000002c0  52 20 49 4e 44 45 58 22  0d 00 e6 07 20 ef 37 0d  |R INDEX".... .7.|
000002d0  00 f0 05 3a 0d 00 fa 1c  73 65 6c 65 63 74 25 3d  |...:....select%=|
000002e0  a7 22 41 42 43 44 45 46  47 48 49 4a 22 2c be 29  |."ABCDEFGHIJ",.)|
000002f0  0d 01 04 17 e7 73 65 6c  65 63 74 25 3d 30 20 ef  |.....select%=0 .|
00000300  37 3a e5 8d 44 50 40 0d  01 0e 3e ee 73 65 6c 65  |7:..DP@...>.sele|
00000310  63 74 25 e4 8d 54 71 41  2c 8d 44 54 41 2c 8d 44  |ct%..TqA,.DTA,.D|
00000320  72 41 2c 8d 74 64 41 2c  8d 64 56 41 2c 8d 64 74  |rA,.tdA,.dVA,.dt|
00000330  41 2c 8d 74 5e 42 2c 8d  64 50 42 2c 8d 54 56 43  |A,.t^B,.dPB,.TVC|
00000340  2c 8d 44 52 43 0d 01 18  09 e5 8d 44 50 40 0d 01  |,.DRC......DP@..|
00000350  22 05 3a 0d 01 2c 20 22  83 52 45 4d 20 43 52 4f  |".:.., ".REM CRO|
00000360  53 53 2d 48 41 54 43 48  20 41 4e 44 20 43 49 52  |SS-HATCH AND CIR|
00000370  43 4c 45 0d 01 31 52 eb  31 3a e3 49 3d 34 30 b8  |CLE..1R.1:.I=40.|
00000380  31 33 30 30 20 88 31 30  30 3a ec 49 2c 30 3a df  |1300 .100:.I,0:.|
00000390  49 2c 31 30 32 33 3a ed  49 3a ef 32 30 3a e3 49  |I,1023:.I:.20:.I|
000003a0  3d 31 30 b8 31 31 30 30  20 88 31 30 30 3a ec 30  |=10.1100 .100:.0|
000003b0  2c 49 3a df 31 33 30 30  2c 49 3a ed 3a ec 36 33  |,I:.1300,I:.:.63|
000003c0  38 2c 39 36 35 0d 01 32  10 ef 32 39 2c 36 34 30  |8,965..2..29,640|
000003d0  3b 35 31 32 3b 0d 01 33  0a ec 33 35 30 2c 30 0d  |;512;..3..350,0.|
000003e0  01 37 14 e3 43 3d 30 b8  32 2e 31 2a af 20 88 30  |.7..C=0.2.1*. .0|
000003f0  2e 30 35 0d 01 38 14 f0  35 2c 33 35 30 2a 9b 43  |.05..8..5,350*.C|
00000400  2c 33 32 33 2a b5 43 0d  01 39 14 f0 35 2c 33 35  |,323*.C..9..5,35|
00000410  32 2a 9b 43 2c 33 32 35  2a b5 43 0d 01 3b 25 ed  |2*.C,325*.C..;%.|
00000420  43 3a f1 8a 31 34 2c 31  35 29 22 54 52 55 45 20  |C:..14,15)"TRUE |
00000430  20 43 49 52 43 4c 45 22  3a f5 3a fd a5 3d 33 32  | CIRCLE":.:..=32|
00000440  0d 01 40 05 f8 0d 01 4a  0e 22 83 52 45 4d 20 44  |..@....J.".REM D|
00000450  4f 54 53 0d 01 54 59 eb  32 3a e3 20 58 3d 39 31  |OTS..TY.2:. X=91|
00000460  20 b8 20 31 31 38 38 20  88 20 39 31 3a e3 20 59  | . 1188 . 91:. Y|
00000470  3d 30 20 b8 20 31 30 32  33 20 88 20 36 34 3a ec  |=0 . 1023 . 64:.|
00000480  20 58 2c 59 3a df 20 58  2c 59 2b 31 3a ed 20 59  | X,Y:. X,Y+1:. Y|
00000490  3a ed 20 58 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |:. X:.23,1,0;0;0|
000004a0  3b 30 3b 3a f5 20 fd 20  a5 3d 33 32 0d 01 5e 05  |;0;:. . .=32..^.|
000004b0  f8 0d 01 68 09 22 83 45  48 54 0d 01 72 2b eb 30  |...h.".EHT..r+.0|
000004c0  3a ec 32 2c 32 3a df 31  32 37 37 2c 32 3a df 31  |:.2,2:.1277,2:.1|
000004d0  32 37 37 2c 31 30 32 31  3a df 32 2c 31 30 32 31  |277,1021:.2,1021|
000004e0  3a df 32 2c 32 0d 01 7c  3b f5 3a ef 31 39 2c 32  |:.2,2..|;.:.19,2|
000004f0  2c 30 3b 30 3b 3a e3 64  65 6c 61 79 3d 31 b8 31  |,0;0;:.delay=1.1|
00000500  30 30 30 3a ed 3a ef 31  39 2c 32 2c 37 3b 30 3b  |000:.:.19,2,7;0;|
00000510  3a e3 64 65 6c 61 79 3d  31 b8 31 30 30 30 3a ed  |:.delay=1.1000:.|
00000520  0d 01 86 0d fd bf 28 30  29 3d 22 20 22 0d 01 90  |......(0)=" "...|
00000530  05 f8 0d 01 9a 15 22 83  52 45 4d 20 43 48 52 4f  |......".REM CHRO|
00000540  4d 41 20 42 41 52 53 0d  01 a4 06 eb 32 0d 01 ae  |MA BARS.....2...|
00000550  11 dc 20 33 2c 36 2c 32  2c 35 2c 31 2c 34 0d 01  |.. 3,6,2,5,1,4..|
00000560  b8 54 ef 32 30 3a e3 49  3d 30 b8 31 32 34 37 20  |.T.20:.I=0.1247 |
00000570  88 20 32 30 38 3a f3 43  3a e6 30 2c 43 3a f0 34  |. 208:.C:.0,C:.4|
00000580  2c 49 2c 30 3a f0 34 2c  49 2c 31 30 32 33 3a f0  |,I,0:.4,I,1023:.|
00000590  38 35 2c 49 2b 32 30 37  2c 30 3a f0 38 35 2c 49  |85,I+207,0:.85,I|
000005a0  2b 32 30 37 2c 31 30 32  33 3a ed 3a f5 fd a5 3d  |+207,1023:.:...=|
000005b0  33 32 0d 01 c2 05 f8 0d  01 cc 18 22 83 52 45 4d  |32.........".REM|
000005c0  20 48 49 47 48 20 46 52  45 51 55 45 4e 43 59 0d  | HIGH FREQUENCY.|
000005d0  01 d6 34 eb 30 3a e3 20  4e 25 3d 31 20 b8 20 32  |..4.0:. N%=1 . 2|
000005e0  35 36 30 3a 43 3d b3 28  32 36 29 3a ef 20 43 2b  |560:C=.(26):. C+|
000005f0  39 36 3b 3a ed 20 4e 25  3a f5 20 fd 20 a5 3d 33  |96;:. N%:. . .=3|
00000600  32 20 20 0d 01 e0 05 f8  0d 01 ea 11 22 83 52 47  |2  .........".RG|
00000610  42 20 52 41 53 54 45 52  53 0d 01 f4 06 eb 32 0d  |B RASTERS.....2.|
00000620  01 fe 06 fb 31 0d 02 08  17 f1 22 50 52 45 53 53  |....1....."PRESS|
00000630  20 31 20 46 4f 52 20 52  45 44 22 27 0d 02 12 06  | 1 FOR RED"'....|
00000640  fb 32 0d 02 1c 19 f1 22  50 52 45 53 53 20 32 20  |.2....."PRESS 2 |
00000650  46 4f 52 20 47 52 45 45  4e 22 27 0d 02 26 06 fb  |FOR GREEN"'..&..|
00000660  34 0d 02 30 18 f1 22 50  52 45 53 53 20 34 20 46  |4..0.."PRESS 4 F|
00000670  4f 52 20 42 4c 55 45 22  27 0d 02 3a 06 fb 37 0d  |OR BLUE"'..:..7.|
00000680  02 44 18 f1 22 50 52 45  53 53 20 37 20 46 4f 52  |.D.."PRESS 7 FOR|
00000690  20 57 48 49 54 45 22 0d  02 4e 08 51 24 3d be 0d  | WHITE"..N.Q$=..|
000006a0  02 58 1a e7 51 24 3d 22  37 22 8c 20 ef 31 39 2c  |.X..Q$="7". .19,|
000006b0  30 2c 37 2c 30 2c 30 2c  30 0d 02 62 1a e7 51 24  |0,7,0,0,0..b..Q$|
000006c0  3d 22 31 22 8c 20 ef 31  39 2c 30 2c 31 2c 30 2c  |="1". .19,0,1,0,|
000006d0  30 2c 30 0d 02 6c 1a e7  51 24 3d 22 32 22 8c 20  |0,0..l..Q$="2". |
000006e0  ef 31 39 2c 30 2c 32 2c  30 2c 30 2c 30 0d 02 76  |.19,0,2,0,0,0..v|
000006f0  1a e7 51 24 3d 22 34 22  8c 20 ef 31 39 2c 30 2c  |..Q$="4". .19,0,|
00000700  34 2c 30 2c 30 2c 30 0d  02 80 0e e7 51 24 3d 22  |4,0,0,0.....Q$="|
00000710  20 22 8c 20 f8 0d 02 8a  09 e5 8d 44 4e 42 0d 02  | ". .......DNB..|
00000720  94 1f 22 83 52 45 4d 20  43 4f 4d 50 4c 45 4d 45  |..".REM COMPLEME|
00000730  4e 54 45 52 59 20 43 4f  4c 4f 55 52 53 0d 02 9e  |NTERY COLOURS...|
00000740  b5 eb 32 3a ef 32 34 2c  30 3b 30 3b 36 32 30 3b  |..2:.24,0;0;620;|
00000750  33 33 35 3b 3a e6 30 2c  31 33 32 3a da 3a ef 32  |335;:.0,132:.:.2|
00000760  34 2c 30 3b 33 33 36 3b  36 32 30 3b 36 37 30 3b  |4,0;336;620;670;|
00000770  3a e6 30 2c 31 33 30 3a  da 3a ef 32 34 2c 30 3b  |:.0,130:.:.24,0;|
00000780  36 37 31 3b 36 32 30 3b  31 30 30 35 3b 3a e6 30  |671;620;1005;:.0|
00000790  2c 31 32 39 3a da 3a ef  32 34 2c 36 32 30 3b 30  |,129:.:.24,620;0|
000007a0  3b 31 32 33 39 3b 33 33  35 3b 3a e6 30 2c 31 33  |;1239;335;:.0,13|
000007b0  31 3a da 3a ef 32 34 2c  36 32 30 3b 33 33 36 3b  |1:.:.24,620;336;|
000007c0  31 32 33 39 3b 36 37 30  3b 3a e6 30 2c 31 33 33  |1239;670;:.0,133|
000007d0  3a da 3a ef 32 34 2c 36  32 30 3b 36 37 31 3b 31  |:.:.24,620;671;1|
000007e0  32 33 39 3b 31 30 30 35  3b 3a e6 30 2c 31 33 34  |239;1005;:.0,134|
000007f0  3a da 0d 02 a8 2a fb 30  3a fb 31 32 39 3a f1 8a  |:....*.0:.129:..|
00000800  32 2c 35 29 22 52 45 44  22 3a fb 31 33 34 3a f1  |2,5)"RED":.134:.|
00000810  8a 31 31 2c 35 29 22 43  59 41 4e 22 0d 02 b2 60  |.11,5)"CYAN"...`|
00000820  fb 31 33 30 3a f1 8a 32  2c 31 36 29 22 47 52 45  |.130:..2,16)"GRE|
00000830  45 4e 22 3a fb 31 33 33  3a f1 8a 31 31 2c 31 36  |EN":.133:..11,16|
00000840  29 22 4d 41 47 45 4e 54  41 22 3a fb 31 33 32 3a  |)"MAGENTA":.132:|
00000850  f1 8a 32 2c 32 36 29 22  42 4c 55 45 22 3a fb 31  |..2,26)"BLUE":.1|
00000860  33 31 3a f1 8a 31 31 2c  32 36 29 22 59 45 4c 4c  |31:..11,26)"YELL|
00000870  4f 57 22 3a f5 20 fd 20  a5 3d 33 32 0d 02 bc 05  |OW":. . .=32....|
00000880  f8 0d 02 c6 21 f4 22 83  43 52 4f 53 53 20 43 4f  |....!.".CROSS CO|
00000890  4c 4f 55 52 20 44 45 4d  4f 4e 53 54 52 41 54 49  |LOUR DEMONSTRATI|
000008a0  4f 4e 0d 02 d0 06 eb 30  0d 02 da 79 44 25 3d 31  |ON.....0...yD%=1|
000008b0  30 3a ef 31 39 2c 32 2e  b2 28 33 29 2b 31 2c 30  |0:.19,2..(3)+1,0|
000008c0  2c 30 2c 30 2c 3a ef 31  39 2c 33 2e b2 28 33 29  |,0,0,:.19,3..(3)|
000008d0  2b 34 2c 30 2c 30 2c 30  2c 3a ef 32 39 2c 36 39  |+4,0,0,0,:.29,69|
000008e0  34 3b 35 31 32 3b 3a 4a  31 25 3d 30 3a e3 4b 25  |4;512;:J1%=0:.K%|
000008f0  3d 35 30 30 b8 33 38 30  20 88 2d 34 30 3a f5 3a  |=500.380 .-40:.:|
00000900  4a 32 25 3d b3 28 33 29  3a fd 4a 32 25 3c 3e 4a  |J2%=.(3):.J2%<>J|
00000910  31 25 3a 4a 31 25 3d 4a  32 25 3a e6 33 2c 4a 31  |1%:J1%=J2%:.3,J1|
00000920  25 0d 02 e4 3d e3 49 25  3d 2d 4b 25 b8 4b 25 20  |%...=.I%=-K%.K% |
00000930  88 20 44 25 3a ec 4b 25  2c 49 25 3a df 2d 4b 25  |. D%:.K%,I%:.-K%|
00000940  2c 2d 49 25 3a ec 49 25  2c 2d 4b 25 3a df 49 25  |,-I%:.I%,-K%:.I%|
00000950  2c 2d 4b 25 3a df 2d 49  25 2c 4b 25 3a ed 0d 02  |,-K%:.-I%,K%:...|
00000960  ee 05 ed 0d 02 f8 0a f5  fd a5 3d 33 32 0d 03 02  |..........=32...|
00000970  05 f8 0d 03 0c 14 f4 22  83 43 48 45 51 55 45 52  |.......".CHEQUER|
00000980  20 42 4f 41 52 44 0d 03  16 06 eb 30 0d 03 20 3a  | BOARD.....0.. :|
00000990  ef 32 30 3a e3 49 3d 30  b8 31 32 35 30 88 31 30  |.20:.I=0.1250.10|
000009a0  30 3a e3 4a 3d 30 b8 31  30 35 30 88 31 30 30 3a  |0:.J=0.1050.100:|
000009b0  63 3d 63 2b 31 3a e7 63  2f 32 3d a8 28 63 2f 32  |c=c+1:.c/2=.(c/2|
000009c0  29 8c 8d 54 74 43 0d 03  2a 2b ec 49 2c 4a 3a f0  |)..TtC..*+.I,J:.|
000009d0  34 2c 49 2c 4a 2b 39 32  3a f0 38 35 2c 49 2b 39  |4,I,J+92:.85,I+9|
000009e0  32 2c 4a 3a f0 38 35 2c  49 2b 39 32 2c 4a 2b 39  |2,J:.85,I+92,J+9|
000009f0  32 0d 03 34 0f ed 4a 2c  49 3a f5 fd a5 3d 33 32  |2..4..J,I:...=32|
00000a00  0d 03 3e 05 f8 0d 03 48  0c f4 22 83 44 45 43 41  |..>....H..".DECA|
00000a10  59 0d 03 52 0e eb 31 3a  2a 46 58 39 2c 32 30 0d  |Y..R..1:*FX9,20.|
00000a20  03 5c 0d 2a 46 58 31 30  2c 31 30 30 0d 03 66 38  |.\.*FX10,100..f8|
00000a30  ef 31 39 2c 33 2c 31 35  3b 30 3b 3a e3 58 25 3d  |.19,3,15;0;:.X%=|
00000a40  31 b8 31 30 3a f1 22 44  45 43 41 59 2a 44 45 43  |1.10:."DECAY*DEC|
00000a50  41 59 2a 44 45 43 41 59  22 27 27 3a ed 3a f5 fd  |AY*DECAY"'':.:..|
00000a60  a5 3d 33 32 0d 03 70 06  20 f8 0d ff              |.=32..p. ...|
00000a6c
04-08-89/TVAlign.m0
04-08-89/TVAlign.m1
04-08-89/TVAlign.m2
04-08-89/TVAlign.m4
04-08-89/TVAlign.m5