� D King DCT 9/83 and 9/88
�7:�init
� �escape:�Th@
(+�7:�DBL(7,1,"MODE 7 TELETEXT GRAPHICS")
2U�'"If you require coloured text, you must"'"insert the colour control code using"
<Q�"the red keys.  The colour codes are"'"given on page 154 of the User Guide,"
F`�"or you can use the DCT new ROM red key"'"chart."''"The colour codes use one letter space."
P*�'"You can use double height letters."
Z�space:page=1:line=1:�
d0�1,0)"cursor UP/DOWN  RETURN when finished"
n
�pos_curs
x1�0,0)"   DOUBLE HEIGHT LETTERS? Y or N only"
�*FX15,0
�key_pressed$=�
�2� key_pressed$<>"Y" � key_pressed$<>"N" � �tB@
�Double$(line)=key_pressed$
�
�line(39)
�2�0,0)"    Next page?� (Y,N,eXit)            "
�*FX15,0
�key_pressed$=�
�(�key_pressed$="N"� line=line+1:�Dd@
�(�key_pressed$="X"� line=line+1:�TNA
��key_pressed$<>"Y"� �t~@
�page=page+1:line=line+1
�XX(line)=90:Y(line)=0:words$(line)="0":Pause$(line)="N":Double$(line)="N":line=line+1

�:�Dd@

NX(line)=90:Y(line)=0:words$(line)="End":Pause$(line)="N":Double$(line)="N"

�dct:��TlA

"	�D@A

,
�7:*SPOOL

6�escape

@
�saver

JJ�:�'''"Do you want to use the program again?"'''"   Press Y or N only"

Tkey_pressed$=�

^�key_pressed$="N"� �end:�

h�key_pressed$<>"Y"��DTA

r�

|�  Define PROCEDURES 

���pos_curs:�cursor("ON")

�X=4:Y=10:�dBA

�key_pressed=�

�)�key_pressed=138�Y=Y+1:�Y>24� Y=24:�7

�(�key_pressed=139� Y=Y-1:�Y<1� Y=1:�7

��key_pressed=13 ��dLA

��X,Y);:�tZA

�X(line)=X:Y(line)=Y

��

�:

���line(max):�cursor("OFF")

��0,0)" ";:��38," ")

�#�0,0)"Words then RETURN":len=0
*FX15,0
key_pressed=�
�key_pressed=13 ��DvB
&,� len>=max � key_pressed<>127 � �7:�THB
0?� key_pressed=127 � words$(line)=�words$(line),len-1):�DDB
:,words$(line)=words$(line)+�(key_pressed)
Dlen=�(words$(line))
N�0,Y(line))" ";:��39," ")
X6� Double$(line)="Y" � �0,Y(line)+1)" ";:��39," ")
buX(line)=(max �2)-(len �2):�Double$(line)="Y"��DBL(X(line),Y(line),words$(line)) � �X(line),Y(line));words$(line)
l	�TRB
v)�0,0)"  Delay (Y/N)     ";:��20," ")
�key_pressed$=�
�.�key_pressed$<>"Y"� key_pressed$<>"N"��t@B
�Pause$(line)=key_pressed$
��
�:
���DBL(X,Y,words$)
��X,Y)�141;words$
��X,Y+1)�141;words$
��
�:
���escape
��
�.� �<>17 � �:�: � �''"ESCAPE key pressed."
,�''"Press X to exit"'"or RETURN to cont"
*FX15,0
key_pressed=�
 .�key_pressed=88 � key_pressed=128 � �end:�
*�key_pressed<>13 ��TLC
4�
>:
H��cursor(o$)
R�o$="ON"� o=255
\�o$="OFF"� o=0
f�23;11,o;0;0;0
p�
z:
���space
�?�'':�132,157,131:�"Press the SPACE BAR to continue  ";:�156
�*FX15,0
�� � �=32
��
�:
���saver
�0�:�DBL(3,1,"PUT BLANK CASSETTE IN RECORDER")
�
�space
��
�*SPOOL"CAPT"
��"10 MODE 7"
��"20 VDU23;11,0;0;0;0"
�"30 PROCspace"
�"40 READ P"
�"50 FOR page=1 TO P"
$
�"60 CLS"
.�"70 REPEAT"
8(�"80 READ X,Y,words$,Pause$,Double$"
B�"90 IF X=90 THEN 120"
LZ�"100 IF Double$=";:�34;"Y";�34;" THEN PROCDBL(X,Y,words$) ELSE PRINTTAB(X,Y);words$"
V3�"110 IF Pause$=";�34;"Y";�34;" THEN PROCspace"
`�"120 UNTIL X=90"
j�"130 PROCspace"
t�"140 NEXT page"
~+�"150 CLS:PROCspace:VDU23;11,255;0;0;0"
��"160 END"
��"200 DEFPROCspace:*FX15,0"
�&�"210 REPEAT UNTIL GET=32:ENDPROC"
�!�"250 DEFPROCDBL(X,Y,words$)"
�&�"260 PRINTTAB(X,Y)CHR$141;words$"
�(�"270 PRINTTAB(X,Y+1)CHR$141;words$"
��"280 ENDPROC"
�)�"500 DATA ";page;":REM no. of pages"
�L=505:line=1:� P=1�page:�
�@�"";L;" DATA ";X(line);",";Y(line);",";�34;words$(line);�34;
�'�",";Pause$(line);",";Double$(line)
�line=line+1:L=L+5
� X(line-1)=90

�P
.L=L+50:�"";L;" REM DK DCT caption program"
)�"";L+5;" REM CaptGen dk CEEFAX 1988"
(
*SPOOL
2F�:�'''"Do you want to save another copy?"'''�8)"Press Y or N only"
<*FX15,0
Fkey_pressed$=�
P�key_pressed$="Y"��dJC
Z�key_pressed$<>"N"��T|E
ds�:�'''"To recover the program you have just"'"generated, follow the instructions"'"at the end of this program."
n
�space
x� �escape:�Th@
��
�:
���init:d=60
�-�X(d),Y(d),words$(d),Pause$(d),Double$(d)
�
*FX4,1
�*FX11,0
��
�:
�	��end
�i�:�''"To recover generated captions program,"'"type NEW + <RETURN>"'"then type *EXEC";�34;"CAPT";�34;
��" + <RETURN>"'"or press red key f0 now."''"Program can then be LISTed, SAVEd and"'"RUN as normal.":*KEY0 NEW|M*EXEC"CAPT"|MLIST|M
��norm:�
�
��norm

*FX4,0
*FX12,0
�cursor("ON"):�
"	��dct
,?dct$=�157+�132+" DCT "+�129+"TV CAPTIONS program generator"
6�:�DBL(0,1,dct$)
@�28,0,24,39,3
J�
�

00000000  0d 00 0a 1e f4 20 44 20  4b 69 6e 67 20 44 43 54  |..... D King DCT|
00000010  20 39 2f 38 33 20 61 6e  64 20 39 2f 38 38 0d 00  | 9/83 and 9/88..|
00000020  14 0c eb 37 3a f2 69 6e  69 74 0d 00 1e 14 ee 85  |...7:.init......|
00000030  20 f2 65 73 63 61 70 65  3a e5 8d 54 68 40 0d 00  | .escape:..Th@..|
00000040  28 2b eb 37 3a f2 44 42  4c 28 37 2c 31 2c 22 4d  |(+.7:.DBL(7,1,"M|
00000050  4f 44 45 20 37 20 54 45  4c 45 54 45 58 54 20 47  |ODE 7 TELETEXT G|
00000060  52 41 50 48 49 43 53 22  29 0d 00 32 55 f1 27 22  |RAPHICS")..2U.'"|
00000070  49 66 20 79 6f 75 20 72  65 71 75 69 72 65 20 63  |If you require c|
00000080  6f 6c 6f 75 72 65 64 20  74 65 78 74 2c 20 79 6f  |oloured text, yo|
00000090  75 20 6d 75 73 74 22 27  22 69 6e 73 65 72 74 20  |u must"'"insert |
000000a0  74 68 65 20 63 6f 6c 6f  75 72 20 63 6f 6e 74 72  |the colour contr|
000000b0  6f 6c 20 63 6f 64 65 20  75 73 69 6e 67 22 0d 00  |ol code using"..|
000000c0  3c 51 f1 22 74 68 65 20  72 65 64 20 6b 65 79 73  |<Q."the red keys|
000000d0  2e 20 20 54 68 65 20 63  6f 6c 6f 75 72 20 63 6f  |.  The colour co|
000000e0  64 65 73 20 61 72 65 22  27 22 67 69 76 65 6e 20  |des are"'"given |
000000f0  6f 6e 20 70 61 67 65 20  31 35 34 20 6f 66 20 74  |on page 154 of t|
00000100  68 65 20 55 73 65 72 20  47 75 69 64 65 2c 22 0d  |he User Guide,".|
00000110  00 46 60 f1 22 6f 72 20  79 6f 75 20 63 61 6e 20  |.F`."or you can |
00000120  75 73 65 20 74 68 65 20  44 43 54 20 6e 65 77 20  |use the DCT new |
00000130  52 4f 4d 20 72 65 64 20  6b 65 79 22 27 22 63 68  |ROM red key"'"ch|
00000140  61 72 74 2e 22 27 27 22  54 68 65 20 63 6f 6c 6f  |art."''"The colo|
00000150  75 72 20 63 6f 64 65 73  20 75 73 65 20 6f 6e 65  |ur codes use one|
00000160  20 6c 65 74 74 65 72 20  73 70 61 63 65 2e 22 0d  | letter space.".|
00000170  00 50 2a f1 27 22 59 6f  75 20 63 61 6e 20 75 73  |.P*.'"You can us|
00000180  65 20 64 6f 75 62 6c 65  20 68 65 69 67 68 74 20  |e double height |
00000190  6c 65 74 74 65 72 73 2e  22 0d 00 5a 1a f2 73 70  |letters."..Z..sp|
000001a0  61 63 65 3a 70 61 67 65  3d 31 3a 6c 69 6e 65 3d  |ace:page=1:line=|
000001b0  31 3a db 0d 00 64 30 f1  8a 31 2c 30 29 22 63 75  |1:...d0..1,0)"cu|
000001c0  72 73 6f 72 20 55 50 2f  44 4f 57 4e 20 20 52 45  |rsor UP/DOWN  RE|
000001d0  54 55 52 4e 20 77 68 65  6e 20 66 69 6e 69 73 68  |TURN when finish|
000001e0  65 64 22 0d 00 6e 0d f2  70 6f 73 5f 63 75 72 73  |ed"..n..pos_curs|
000001f0  0d 00 78 31 f1 8a 30 2c  30 29 22 20 20 20 44 4f  |..x1..0,0)"   DO|
00000200  55 42 4c 45 20 48 45 49  47 48 54 20 4c 45 54 54  |UBLE HEIGHT LETT|
00000210  45 52 53 3f 20 59 20 6f  72 20 4e 20 6f 6e 6c 79  |ERS? Y or N only|
00000220  22 0d 00 82 0b 2a 46 58  31 35 2c 30 0d 00 8c 12  |"....*FX15,0....|
00000230  6b 65 79 5f 70 72 65 73  73 65 64 24 3d be 0d 00  |key_pressed$=...|
00000240  96 32 e7 20 6b 65 79 5f  70 72 65 73 73 65 64 24  |.2. key_pressed$|
00000250  3c 3e 22 59 22 20 80 20  6b 65 79 5f 70 72 65 73  |<>"Y" . key_pres|
00000260  73 65 64 24 3c 3e 22 4e  22 20 8c 20 8d 74 42 40  |sed$<>"N" . .tB@|
00000270  0d 00 a0 1e 44 6f 75 62  6c 65 24 28 6c 69 6e 65  |....Double$(line|
00000280  29 3d 6b 65 79 5f 70 72  65 73 73 65 64 24 0d 00  |)=key_pressed$..|
00000290  aa 0d f2 6c 69 6e 65 28  33 39 29 0d 00 b4 32 f1  |...line(39)...2.|
000002a0  8a 30 2c 30 29 22 20 20  20 20 4e 65 78 74 20 70  |.0,0)"    Next p|
000002b0  61 67 65 3f 87 20 28 59  2c 4e 2c 65 58 69 74 29  |age?. (Y,N,eXit)|
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 22 0d 00 be  |            "...|
000002d0  0b 2a 46 58 31 35 2c 30  0d 00 c8 12 6b 65 79 5f  |.*FX15,0....key_|
000002e0  70 72 65 73 73 65 64 24  3d be 0d 00 d2 28 e7 6b  |pressed$=....(.k|
000002f0  65 79 5f 70 72 65 73 73  65 64 24 3d 22 4e 22 8c  |ey_pressed$="N".|
00000300  20 6c 69 6e 65 3d 6c 69  6e 65 2b 31 3a e5 8d 44  | line=line+1:..D|
00000310  64 40 0d 00 dc 28 e7 6b  65 79 5f 70 72 65 73 73  |d@...(.key_press|
00000320  65 64 24 3d 22 58 22 8c  20 6c 69 6e 65 3d 6c 69  |ed$="X". line=li|
00000330  6e 65 2b 31 3a e5 8d 54  4e 41 0d 00 e6 1c e7 6b  |ne+1:..TNA.....k|
00000340  65 79 5f 70 72 65 73 73  65 64 24 3c 3e 22 59 22  |ey_pressed$<>"Y"|
00000350  8c 20 8d 74 7e 40 0d 00  f0 1b 70 61 67 65 3d 70  |. .t~@....page=p|
00000360  61 67 65 2b 31 3a 6c 69  6e 65 3d 6c 69 6e 65 2b  |age+1:line=line+|
00000370  31 0d 00 fa 58 58 28 6c  69 6e 65 29 3d 39 30 3a  |1...XX(line)=90:|
00000380  59 28 6c 69 6e 65 29 3d  30 3a 77 6f 72 64 73 24  |Y(line)=0:words$|
00000390  28 6c 69 6e 65 29 3d 22  30 22 3a 50 61 75 73 65  |(line)="0":Pause|
000003a0  24 28 6c 69 6e 65 29 3d  22 4e 22 3a 44 6f 75 62  |$(line)="N":Doub|
000003b0  6c 65 24 28 6c 69 6e 65  29 3d 22 4e 22 3a 6c 69  |le$(line)="N":li|
000003c0  6e 65 3d 6c 69 6e 65 2b  31 0d 01 04 0b db 3a e5  |ne=line+1.....:.|
000003d0  8d 44 64 40 0d 01 0e 4e  58 28 6c 69 6e 65 29 3d  |.Dd@...NX(line)=|
000003e0  39 30 3a 59 28 6c 69 6e  65 29 3d 30 3a 77 6f 72  |90:Y(line)=0:wor|
000003f0  64 73 24 28 6c 69 6e 65  29 3d 22 45 6e 64 22 3a  |ds$(line)="End":|
00000400  50 61 75 73 65 24 28 6c  69 6e 65 29 3d 22 4e 22  |Pause$(line)="N"|
00000410  3a 44 6f 75 62 6c 65 24  28 6c 69 6e 65 29 3d 22  |:Double$(line)="|
00000420  4e 22 0d 01 18 10 f2 64  63 74 3a ee 85 e5 8d 54  |N".....dct:....T|
00000430  6c 41 0d 01 22 09 e5 8d  44 40 41 0d 01 2c 0d ef  |lA.."...D@A..,..|
00000440  37 3a 2a 53 50 4f 4f 4c  0d 01 36 0b f2 65 73 63  |7:*SPOOL..6..esc|
00000450  61 70 65 0d 01 40 0a f2  73 61 76 65 72 0d 01 4a  |ape..@..saver..J|
00000460  4a db 3a f1 27 27 27 22  44 6f 20 79 6f 75 20 77  |J.:.'''"Do you w|
00000470  61 6e 74 20 74 6f 20 75  73 65 20 74 68 65 20 70  |ant to use the p|
00000480  72 6f 67 72 61 6d 20 61  67 61 69 6e 3f 22 27 27  |rogram again?"''|
00000490  27 22 20 20 20 50 72 65  73 73 20 59 20 6f 72 20  |'"   Press Y or |
000004a0  4e 20 6f 6e 6c 79 22 0d  01 54 12 6b 65 79 5f 70  |N only"..T.key_p|
000004b0  72 65 73 73 65 64 24 3d  be 0d 01 5e 1d e7 6b 65  |ressed$=...^..ke|
000004c0  79 5f 70 72 65 73 73 65  64 24 3d 22 4e 22 8c 20  |y_pressed$="N". |
000004d0  f2 65 6e 64 3a e0 0d 01  68 1b e7 6b 65 79 5f 70  |.end:...h..key_p|
000004e0  72 65 73 73 65 64 24 3c  3e 22 59 22 8c 8d 44 54  |ressed$<>"Y"..DT|
000004f0  41 0d 01 72 05 f9 0d 01  7c 19 f4 20 20 44 65 66  |A..r....|..  Def|
00000500  69 6e 65 20 50 52 4f 43  45 44 55 52 45 53 20 0d  |ine PROCEDURES .|
00000510  01 86 1c dd f2 70 6f 73  5f 63 75 72 73 3a f2 63  |.....pos_curs:.c|
00000520  75 72 73 6f 72 28 22 4f  4e 22 29 0d 01 90 12 58  |ursor("ON")....X|
00000530  3d 34 3a 59 3d 31 30 3a  e5 8d 64 42 41 0d 01 9a  |=4:Y=10:..dBA...|
00000540  11 6b 65 79 5f 70 72 65  73 73 65 64 3d a5 0d 01  |.key_pressed=...|
00000550  a4 29 e7 6b 65 79 5f 70  72 65 73 73 65 64 3d 31  |.).key_pressed=1|
00000560  33 38 8c 59 3d 59 2b 31  3a e7 59 3e 32 34 8c 20  |38.Y=Y+1:.Y>24. |
00000570  59 3d 32 34 3a ef 37 0d  01 ae 28 e7 6b 65 79 5f  |Y=24:.7...(.key_|
00000580  70 72 65 73 73 65 64 3d  31 33 39 8c 20 59 3d 59  |pressed=139. Y=Y|
00000590  2d 31 3a e7 59 3c 31 8c  20 59 3d 31 3a ef 37 0d  |-1:.Y<1. Y=1:.7.|
000005a0  01 b8 19 e7 6b 65 79 5f  70 72 65 73 73 65 64 3d  |....key_pressed=|
000005b0  31 33 20 8c 8d 64 4c 41  0d 01 c2 11 f1 8a 58 2c  |13 ..dLA......X,|
000005c0  59 29 3b 3a e5 8d 74 5a  41 0d 01 cc 17 58 28 6c  |Y);:..tZA....X(l|
000005d0  69 6e 65 29 3d 58 3a 59  28 6c 69 6e 65 29 3d 59  |ine)=X:Y(line)=Y|
000005e0  0d 01 d6 05 e1 0d 01 e0  05 3a 0d 01 ea 1e dd f2  |.........:......|
000005f0  6c 69 6e 65 28 6d 61 78  29 3a f2 63 75 72 73 6f  |line(max):.curso|
00000600  72 28 22 4f 46 46 22 29  0d 01 f4 18 f1 8a 30 2c  |r("OFF")......0,|
00000610  30 29 22 20 22 3b 3a f1  c4 33 38 2c 22 20 22 29  |0)" ";:..38," ")|
00000620  0d 01 fe 23 f1 8a 30 2c  30 29 22 57 6f 72 64 73  |...#..0,0)"Words|
00000630  20 74 68 65 6e 20 52 45  54 55 52 4e 22 3a 6c 65  | then RETURN":le|
00000640  6e 3d 30 0d 02 08 0b 2a  46 58 31 35 2c 30 0d 02  |n=0....*FX15,0..|
00000650  12 11 6b 65 79 5f 70 72  65 73 73 65 64 3d a5 0d  |..key_pressed=..|
00000660  02 1c 19 e7 6b 65 79 5f  70 72 65 73 73 65 64 3d  |....key_pressed=|
00000670  31 33 20 8c 8d 44 76 42  0d 02 26 2c e7 20 6c 65  |13 ..DvB..&,. le|
00000680  6e 3e 3d 6d 61 78 20 80  20 6b 65 79 5f 70 72 65  |n>=max . key_pre|
00000690  73 73 65 64 3c 3e 31 32  37 20 8c 20 ef 37 3a e5  |ssed<>127 . .7:.|
000006a0  8d 54 48 42 0d 02 30 3f  e7 20 6b 65 79 5f 70 72  |.THB..0?. key_pr|
000006b0  65 73 73 65 64 3d 31 32  37 20 8c 20 77 6f 72 64  |essed=127 . word|
000006c0  73 24 28 6c 69 6e 65 29  3d c0 77 6f 72 64 73 24  |s$(line)=.words$|
000006d0  28 6c 69 6e 65 29 2c 6c  65 6e 2d 31 29 3a e5 8d  |(line),len-1):..|
000006e0  44 44 42 0d 02 3a 2c 77  6f 72 64 73 24 28 6c 69  |DDB..:,words$(li|
000006f0  6e 65 29 3d 77 6f 72 64  73 24 28 6c 69 6e 65 29  |ne)=words$(line)|
00000700  2b bd 28 6b 65 79 5f 70  72 65 73 73 65 64 29 0d  |+.(key_pressed).|
00000710  02 44 17 6c 65 6e 3d a9  28 77 6f 72 64 73 24 28  |.D.len=.(words$(|
00000720  6c 69 6e 65 29 29 0d 02  4e 1e f1 8a 30 2c 59 28  |line))..N...0,Y(|
00000730  6c 69 6e 65 29 29 22 20  22 3b 3a f1 c4 33 39 2c  |line))" ";:..39,|
00000740  22 20 22 29 0d 02 58 36  e7 20 44 6f 75 62 6c 65  |" ")..X6. Double|
00000750  24 28 6c 69 6e 65 29 3d  22 59 22 20 8c 20 f1 8a  |$(line)="Y" . ..|
00000760  30 2c 59 28 6c 69 6e 65  29 2b 31 29 22 20 22 3b  |0,Y(line)+1)" ";|
00000770  3a f1 c4 33 39 2c 22 20  22 29 0d 02 62 75 58 28  |:..39," ")..buX(|
00000780  6c 69 6e 65 29 3d 28 6d  61 78 20 81 32 29 2d 28  |line)=(max .2)-(|
00000790  6c 65 6e 20 81 32 29 3a  e7 44 6f 75 62 6c 65 24  |len .2):.Double$|
000007a0  28 6c 69 6e 65 29 3d 22  59 22 8c f2 44 42 4c 28  |(line)="Y"..DBL(|
000007b0  58 28 6c 69 6e 65 29 2c  59 28 6c 69 6e 65 29 2c  |X(line),Y(line),|
000007c0  77 6f 72 64 73 24 28 6c  69 6e 65 29 29 20 8b 20  |words$(line)) . |
000007d0  f1 8a 58 28 6c 69 6e 65  29 2c 59 28 6c 69 6e 65  |..X(line),Y(line|
000007e0  29 29 3b 77 6f 72 64 73  24 28 6c 69 6e 65 29 0d  |));words$(line).|
000007f0  02 6c 09 e5 8d 54 52 42  0d 02 76 29 f1 8a 30 2c  |.l...TRB..v)..0,|
00000800  30 29 22 20 20 44 65 6c  61 79 20 28 59 2f 4e 29  |0)"  Delay (Y/N)|
00000810  20 20 20 20 20 22 3b 3a  f1 c4 32 30 2c 22 20 22  |     ";:..20," "|
00000820  29 0d 02 80 12 6b 65 79  5f 70 72 65 73 73 65 64  |)....key_pressed|
00000830  24 3d be 0d 02 8a 2e e7  6b 65 79 5f 70 72 65 73  |$=......key_pres|
00000840  73 65 64 24 3c 3e 22 59  22 80 20 6b 65 79 5f 70  |sed$<>"Y". key_p|
00000850  72 65 73 73 65 64 24 3c  3e 22 4e 22 8c 8d 74 40  |ressed$<>"N"..t@|
00000860  42 0d 02 94 1d 50 61 75  73 65 24 28 6c 69 6e 65  |B....Pause$(line|
00000870  29 3d 6b 65 79 5f 70 72  65 73 73 65 64 24 0d 02  |)=key_pressed$..|
00000880  9e 05 e1 0d 02 a8 05 3a  0d 02 b2 15 dd f2 44 42  |.......:......DB|
00000890  4c 28 58 2c 59 2c 77 6f  72 64 73 24 29 0d 02 bc  |L(X,Y,words$)...|
000008a0  15 f1 8a 58 2c 59 29 bd  31 34 31 3b 77 6f 72 64  |...X,Y).141;word|
000008b0  73 24 0d 02 c6 17 f1 8a  58 2c 59 2b 31 29 bd 31  |s$......X,Y+1).1|
000008c0  34 31 3b 77 6f 72 64 73  24 0d 02 d0 05 e1 0d 02  |41;words$.......|
000008d0  da 05 3a 0d 02 e4 0c dd  f2 65 73 63 61 70 65 0d  |..:......escape.|
000008e0  02 ee 05 db 0d 02 f8 2e  e7 20 9f 3c 3e 31 37 20  |......... .<>17 |
000008f0  8c 20 f6 3a f1 9e 3a 20  8b 20 f1 27 27 22 45 53  |. .:..: . .''"ES|
00000900  43 41 50 45 20 6b 65 79  20 70 72 65 73 73 65 64  |CAPE key pressed|
00000910  2e 22 0d 03 02 2c f1 27  27 22 50 72 65 73 73 20  |."...,.''"Press |
00000920  58 20 74 6f 20 65 78 69  74 22 27 22 6f 72 20 52  |X to exit"'"or R|
00000930  45 54 55 52 4e 20 74 6f  20 63 6f 6e 74 22 0d 03  |ETURN to cont"..|
00000940  0c 0b 2a 46 58 31 35 2c  30 0d 03 16 11 6b 65 79  |..*FX15,0....key|
00000950  5f 70 72 65 73 73 65 64  3d a5 0d 03 20 2e e7 6b  |_pressed=... ..k|
00000960  65 79 5f 70 72 65 73 73  65 64 3d 38 38 20 84 20  |ey_pressed=88 . |
00000970  6b 65 79 5f 70 72 65 73  73 65 64 3d 31 32 38 20  |key_pressed=128 |
00000980  8c 20 f2 65 6e 64 3a e0  0d 03 2a 1a e7 6b 65 79  |. .end:...*..key|
00000990  5f 70 72 65 73 73 65 64  3c 3e 31 33 20 8c 8d 54  |_pressed<>13 ..T|
000009a0  4c 43 0d 03 34 05 e1 0d  03 3e 05 3a 0d 03 48 10  |LC..4....>.:..H.|
000009b0  dd f2 63 75 72 73 6f 72  28 6f 24 29 0d 03 52 13  |..cursor(o$)..R.|
000009c0  e7 6f 24 3d 22 4f 4e 22  8c 20 6f 3d 32 35 35 0d  |.o$="ON". o=255.|
000009d0  03 5c 12 e7 6f 24 3d 22  4f 46 46 22 8c 20 6f 3d  |.\..o$="OFF". o=|
000009e0  30 0d 03 66 12 ef 32 33  3b 31 31 2c 6f 3b 30 3b  |0..f..23;11,o;0;|
000009f0  30 3b 30 0d 03 70 05 e1  0d 03 7a 05 3a 0d 03 84  |0;0..p....z.:...|
00000a00  0b dd f2 73 70 61 63 65  0d 03 8e 3f f1 27 27 3a  |...space...?.'':|
00000a10  ef 31 33 32 2c 31 35 37  2c 31 33 31 3a f1 22 50  |.132,157,131:."P|
00000a20  72 65 73 73 20 74 68 65  20 53 50 41 43 45 20 42  |ress the SPACE B|
00000a30  41 52 20 74 6f 20 63 6f  6e 74 69 6e 75 65 20 20  |AR to continue  |
00000a40  22 3b 3a ef 31 35 36 0d  03 98 0b 2a 46 58 31 35  |";:.156....*FX15|
00000a50  2c 30 0d 03 a2 0c f5 20  fd 20 a5 3d 33 32 0d 03  |,0..... . .=32..|
00000a60  ac 05 e1 0d 03 b6 05 3a  0d 03 c0 0b dd f2 73 61  |.......:......sa|
00000a70  76 65 72 0d 03 ca 30 db  3a f2 44 42 4c 28 33 2c  |ver...0.:.DBL(3,|
00000a80  31 2c 22 50 55 54 20 42  4c 41 4e 4b 20 43 41 53  |1,"PUT BLANK CAS|
00000a90  53 45 54 54 45 20 49 4e  20 52 45 43 4f 52 44 45  |SETTE IN RECORDE|
00000aa0  52 22 29 0d 03 d4 0a f2  73 70 61 63 65 0d 03 de  |R").....space...|
00000ab0  05 db 0d 03 e8 10 2a 53  50 4f 4f 4c 22 43 41 50  |......*SPOOL"CAP|
00000ac0  54 22 0d 03 f2 10 f1 22  31 30 20 4d 4f 44 45 20  |T"....."10 MODE |
00000ad0  37 22 0d 03 fc 1a f1 22  32 30 20 56 44 55 32 33  |7"....."20 VDU23|
00000ae0  3b 31 31 2c 30 3b 30 3b  30 3b 30 22 0d 04 06 13  |;11,0;0;0;0"....|
00000af0  f1 22 33 30 20 50 52 4f  43 73 70 61 63 65 22 0d  |."30 PROCspace".|
00000b00  04 10 10 f1 22 34 30 20  52 45 41 44 20 50 22 0d  |...."40 READ P".|
00000b10  04 1a 19 f1 22 35 30 20  46 4f 52 20 70 61 67 65  |...."50 FOR page|
00000b20  3d 31 20 54 4f 20 50 22  0d 04 24 0d f1 22 36 30  |=1 TO P"..$.."60|
00000b30  20 43 4c 53 22 0d 04 2e  10 f1 22 37 30 20 52 45  | CLS"....."70 RE|
00000b40  50 45 41 54 22 0d 04 38  28 f1 22 38 30 20 52 45  |PEAT"..8(."80 RE|
00000b50  41 44 20 58 2c 59 2c 77  6f 72 64 73 24 2c 50 61  |AD X,Y,words$,Pa|
00000b60  75 73 65 24 2c 44 6f 75  62 6c 65 24 22 0d 04 42  |use$,Double$"..B|
00000b70  1a f1 22 39 30 20 49 46  20 58 3d 39 30 20 54 48  |.."90 IF X=90 TH|
00000b80  45 4e 20 31 32 30 22 0d  04 4c 5a f1 22 31 30 30  |EN 120"..LZ."100|
00000b90  20 49 46 20 44 6f 75 62  6c 65 24 3d 22 3b 3a f1  | IF Double$=";:.|
00000ba0  bd 33 34 3b 22 59 22 3b  bd 33 34 3b 22 20 54 48  |.34;"Y";.34;" TH|
00000bb0  45 4e 20 50 52 4f 43 44  42 4c 28 58 2c 59 2c 77  |EN PROCDBL(X,Y,w|
00000bc0  6f 72 64 73 24 29 20 45  4c 53 45 20 50 52 49 4e  |ords$) ELSE PRIN|
00000bd0  54 54 41 42 28 58 2c 59  29 3b 77 6f 72 64 73 24  |TTAB(X,Y);words$|
00000be0  22 0d 04 56 33 f1 22 31  31 30 20 49 46 20 50 61  |"..V3."110 IF Pa|
00000bf0  75 73 65 24 3d 22 3b bd  33 34 3b 22 59 22 3b bd  |use$=";.34;"Y";.|
00000c00  33 34 3b 22 20 54 48 45  4e 20 50 52 4f 43 73 70  |34;" THEN PROCsp|
00000c10  61 63 65 22 0d 04 60 15  f1 22 31 32 30 20 55 4e  |ace"..`.."120 UN|
00000c20  54 49 4c 20 58 3d 39 30  22 0d 04 6a 14 f1 22 31  |TIL X=90"..j.."1|
00000c30  33 30 20 50 52 4f 43 73  70 61 63 65 22 0d 04 74  |30 PROCspace"..t|
00000c40  14 f1 22 31 34 30 20 4e  45 58 54 20 70 61 67 65  |.."140 NEXT page|
00000c50  22 0d 04 7e 2b f1 22 31  35 30 20 43 4c 53 3a 50  |"..~+."150 CLS:P|
00000c60  52 4f 43 73 70 61 63 65  3a 56 44 55 32 33 3b 31  |ROCspace:VDU23;1|
00000c70  31 2c 32 35 35 3b 30 3b  30 3b 30 22 0d 04 88 0e  |1,255;0;0;0"....|
00000c80  f1 22 31 36 30 20 45 4e  44 22 0d 04 92 1f f1 22  |."160 END"....."|
00000c90  32 30 30 20 44 45 46 50  52 4f 43 73 70 61 63 65  |200 DEFPROCspace|
00000ca0  3a 2a 46 58 31 35 2c 30  22 0d 04 9c 26 f1 22 32  |:*FX15,0"...&."2|
00000cb0  31 30 20 52 45 50 45 41  54 20 55 4e 54 49 4c 20  |10 REPEAT UNTIL |
00000cc0  47 45 54 3d 33 32 3a 45  4e 44 50 52 4f 43 22 0d  |GET=32:ENDPROC".|
00000cd0  04 a6 21 f1 22 32 35 30  20 44 45 46 50 52 4f 43  |..!."250 DEFPROC|
00000ce0  44 42 4c 28 58 2c 59 2c  77 6f 72 64 73 24 29 22  |DBL(X,Y,words$)"|
00000cf0  0d 04 b0 26 f1 22 32 36  30 20 50 52 49 4e 54 54  |...&."260 PRINTT|
00000d00  41 42 28 58 2c 59 29 43  48 52 24 31 34 31 3b 77  |AB(X,Y)CHR$141;w|
00000d10  6f 72 64 73 24 22 0d 04  ba 28 f1 22 32 37 30 20  |ords$"...(."270 |
00000d20  50 52 49 4e 54 54 41 42  28 58 2c 59 2b 31 29 43  |PRINTTAB(X,Y+1)C|
00000d30  48 52 24 31 34 31 3b 77  6f 72 64 73 24 22 0d 04  |HR$141;words$"..|
00000d40  c4 12 f1 22 32 38 30 20  45 4e 44 50 52 4f 43 22  |..."280 ENDPROC"|
00000d50  0d 04 ce 29 f1 22 35 30  30 20 44 41 54 41 20 22  |...)."500 DATA "|
00000d60  3b 70 61 67 65 3b 22 3a  52 45 4d 20 6e 6f 2e 20  |;page;":REM no. |
00000d70  6f 66 20 70 61 67 65 73  22 0d 04 d8 1d 4c 3d 35  |of pages"....L=5|
00000d80  30 35 3a 6c 69 6e 65 3d  31 3a e3 20 50 3d 31 b8  |05:line=1:. P=1.|
00000d90  70 61 67 65 3a f5 0d 04  e2 40 f1 22 22 3b 4c 3b  |page:....@."";L;|
00000da0  22 20 44 41 54 41 20 22  3b 58 28 6c 69 6e 65 29  |" DATA ";X(line)|
00000db0  3b 22 2c 22 3b 59 28 6c  69 6e 65 29 3b 22 2c 22  |;",";Y(line);","|
00000dc0  3b bd 33 34 3b 77 6f 72  64 73 24 28 6c 69 6e 65  |;.34;words$(line|
00000dd0  29 3b bd 33 34 3b 0d 04  ec 27 f1 22 2c 22 3b 50  |);.34;...'.",";P|
00000de0  61 75 73 65 24 28 6c 69  6e 65 29 3b 22 2c 22 3b  |ause$(line);",";|
00000df0  44 6f 75 62 6c 65 24 28  6c 69 6e 65 29 0d 04 f6  |Double$(line)...|
00000e00  15 6c 69 6e 65 3d 6c 69  6e 65 2b 31 3a 4c 3d 4c  |.line=line+1:L=L|
00000e10  2b 35 0d 05 00 12 fd 20  58 28 6c 69 6e 65 2d 31  |+5..... X(line-1|
00000e20  29 3d 39 30 0d 05 0a 06  ed 50 0d 05 14 2e 4c 3d  |)=90.....P....L=|
00000e30  4c 2b 35 30 3a f1 22 22  3b 4c 3b 22 20 52 45 4d  |L+50:."";L;" REM|
00000e40  20 44 4b 20 44 43 54 20  63 61 70 74 69 6f 6e 20  | DK DCT caption |
00000e50  70 72 6f 67 72 61 6d 22  0d 05 1e 29 f1 22 22 3b  |program"...)."";|
00000e60  4c 2b 35 3b 22 20 52 45  4d 20 43 61 70 74 47 65  |L+5;" REM CaptGe|
00000e70  6e 20 64 6b 20 43 45 45  46 41 58 20 31 39 38 38  |n dk CEEFAX 1988|
00000e80  22 0d 05 28 0a 2a 53 50  4f 4f 4c 0d 05 32 46 db  |"..(.*SPOOL..2F.|
00000e90  3a f1 27 27 27 22 44 6f  20 79 6f 75 20 77 61 6e  |:.'''"Do you wan|
00000ea0  74 20 74 6f 20 73 61 76  65 20 61 6e 6f 74 68 65  |t to save anothe|
00000eb0  72 20 63 6f 70 79 3f 22  27 27 27 8a 38 29 22 50  |r copy?"'''.8)"P|
00000ec0  72 65 73 73 20 59 20 6f  72 20 4e 20 6f 6e 6c 79  |ress Y or N only|
00000ed0  22 0d 05 3c 0b 2a 46 58  31 35 2c 30 0d 05 46 12  |"..<.*FX15,0..F.|
00000ee0  6b 65 79 5f 70 72 65 73  73 65 64 24 3d be 0d 05  |key_pressed$=...|
00000ef0  50 1a e7 6b 65 79 5f 70  72 65 73 73 65 64 24 3d  |P..key_pressed$=|
00000f00  22 59 22 8c 8d 64 4a 43  0d 05 5a 1b e7 6b 65 79  |"Y"..dJC..Z..key|
00000f10  5f 70 72 65 73 73 65 64  24 3c 3e 22 4e 22 8c 8d  |_pressed$<>"N"..|
00000f20  54 7c 45 0d 05 64 73 db  3a f1 27 27 27 22 54 6f  |T|E..ds.:.'''"To|
00000f30  20 72 65 63 6f 76 65 72  20 74 68 65 20 70 72 6f  | recover the pro|
00000f40  67 72 61 6d 20 79 6f 75  20 68 61 76 65 20 6a 75  |gram you have ju|
00000f50  73 74 22 27 22 67 65 6e  65 72 61 74 65 64 2c 20  |st"'"generated, |
00000f60  66 6f 6c 6c 6f 77 20 74  68 65 20 69 6e 73 74 72  |follow the instr|
00000f70  75 63 74 69 6f 6e 73 22  27 22 61 74 20 74 68 65  |uctions"'"at the|
00000f80  20 65 6e 64 20 6f 66 20  74 68 69 73 20 70 72 6f  | end of this pro|
00000f90  67 72 61 6d 2e 22 0d 05  6e 0a f2 73 70 61 63 65  |gram."..n..space|
00000fa0  0d 05 78 14 ee 85 20 f2  65 73 63 61 70 65 3a e5  |..x... .escape:.|
00000fb0  8d 54 68 40 0d 05 82 05  e1 0d 05 8c 05 3a 0d 05  |.Th@.........:..|
00000fc0  96 0f dd f2 69 6e 69 74  3a 64 3d 36 30 0d 05 a0  |....init:d=60...|
00000fd0  2d de 58 28 64 29 2c 59  28 64 29 2c 77 6f 72 64  |-.X(d),Y(d),word|
00000fe0  73 24 28 64 29 2c 50 61  75 73 65 24 28 64 29 2c  |s$(d),Pause$(d),|
00000ff0  44 6f 75 62 6c 65 24 28  64 29 0d 05 aa 0a 2a 46  |Double$(d)....*F|
00001000  58 34 2c 31 0d 05 b4 0b  2a 46 58 31 31 2c 30 0d  |X4,1....*FX11,0.|
00001010  05 be 05 e1 0d 05 c8 05  3a 0d 05 d2 09 dd f2 65  |........:......e|
00001020  6e 64 0d 05 dc 69 db 3a  f1 27 27 22 54 6f 20 72  |nd...i.:.''"To r|
00001030  65 63 6f 76 65 72 20 67  65 6e 65 72 61 74 65 64  |ecover generated|
00001040  20 63 61 70 74 69 6f 6e  73 20 70 72 6f 67 72 61  | captions progra|
00001050  6d 2c 22 27 22 74 79 70  65 20 4e 45 57 20 2b 20  |m,"'"type NEW + |
00001060  3c 52 45 54 55 52 4e 3e  22 27 22 74 68 65 6e 20  |<RETURN>"'"then |
00001070  74 79 70 65 20 2a 45 58  45 43 22 3b bd 33 34 3b  |type *EXEC";.34;|
00001080  22 43 41 50 54 22 3b bd  33 34 3b 0d 05 e6 86 f1  |"CAPT";.34;.....|
00001090  22 20 2b 20 3c 52 45 54  55 52 4e 3e 22 27 22 6f  |" + <RETURN>"'"o|
000010a0  72 20 70 72 65 73 73 20  72 65 64 20 6b 65 79 20  |r press red key |
000010b0  66 30 20 6e 6f 77 2e 22  27 27 22 50 72 6f 67 72  |f0 now."''"Progr|
000010c0  61 6d 20 63 61 6e 20 74  68 65 6e 20 62 65 20 4c  |am can then be L|
000010d0  49 53 54 65 64 2c 20 53  41 56 45 64 20 61 6e 64  |ISTed, SAVEd and|
000010e0  22 27 22 52 55 4e 20 61  73 20 6e 6f 72 6d 61 6c  |"'"RUN as normal|
000010f0  2e 22 3a 2a 4b 45 59 30  20 4e 45 57 7c 4d 2a 45  |.":*KEY0 NEW|M*E|
00001100  58 45 43 22 43 41 50 54  22 7c 4d 4c 49 53 54 7c  |XEC"CAPT"|MLIST||
00001110  4d 0d 05 f0 0b f2 6e 6f  72 6d 3a e1 0d 05 fa 0a  |M.....norm:.....|
00001120  dd f2 6e 6f 72 6d 0d 06  04 0a 2a 46 58 34 2c 30  |..norm....*FX4,0|
00001130  0d 06 0e 0b 2a 46 58 31  32 2c 30 0d 06 18 13 f2  |....*FX12,0.....|
00001140  63 75 72 73 6f 72 28 22  4f 4e 22 29 3a e1 0d 06  |cursor("ON"):...|
00001150  22 09 dd f2 64 63 74 0d  06 2c 3f 64 63 74 24 3d  |"...dct..,?dct$=|
00001160  bd 31 35 37 2b bd 31 33  32 2b 22 20 44 43 54 20  |.157+.132+" DCT |
00001170  22 2b bd 31 32 39 2b 22  54 56 20 43 41 50 54 49  |"+.129+"TV CAPTI|
00001180  4f 4e 53 20 70 72 6f 67  72 61 6d 20 67 65 6e 65  |ONS program gene|
00001190  72 61 74 6f 72 22 0d 06  36 14 db 3a f2 44 42 4c  |rator"..6..:.DBL|
000011a0  28 30 2c 31 2c 64 63 74  24 29 0d 06 40 11 ef 32  |(0,1,dct$)..@..2|
000011b0  38 2c 30 2c 32 34 2c 33  39 2c 33 0d 06 4a 05 e1  |8,0,24,39,3..J..|
000011c0  0d ff                                             |..|
000011c2