Conversion de texte en parole H
(avec éd ite u r d 'écra n )
Ce programme, à l'i mage de celui de la p age 7. conv erti t le texte en parole. I l contient en plus un éditeur d'écran qui p ermet de taper une li gne de 252 caractè res au maximum et de la changer p ar la sui te en ne tapant que les correcti ons (on n'a p as à retaper la ligne entiè re) .
Après av oi r tapé une ligne, on peut uti li ser les commandes suivantes p our déplacer le curseur et i nsérer ou annuler des caractè res:
G
(SHIFTl El
(SHIFT) G
CD
CD
(SHIFT) CD
(SHIFT) CD
(CLEAR)
flèche
à gauche déplace le curseur vers la gauche
(n'efface pas le caractère) flèche flèche
à droite déplace le curseur vers la d roite
à gauche annule le caractère sous le curseur flèche
à droite insère u n espace
à la position du curseu r flèche vers le haut déplace le curseu r d'une ligne vers le haut (ou vers le début si l'on uti l ise cette commande sur la l i g ne supérieure) flèche vers le bas déplace le curseur d'une ligne vers le bas (ou vers la fin si on util ise cette commande sur la ligne du bas) flèche vers le haut amène le curseu r au premier caractère de la l i g ne flèche vers le bas amène le curseur au dernier caractère de la ligne efface tous les caractères entre le curseur et la fin de la l i g ne
(Après av oi r tapé une ligne et pressé
(ENTER)
p our la converti r en p arole, le curseur revient toujours au p remi er caractère de l a ligne.)
1 0 CLS : C L E A R 2000
20 X =&H�F00 : Y = $ H � F 7 E : POKE X + l , 5 2
30 POKE X + 3 , 63 � POKE X +3S , 60
40 POKE C &HFF70 ) , 1 : POKE C &HFF7D ) , 0
5 0 CF$= " " : F O R X = 1 TO 1 0 : READ A
60 CF$=CF$ + C H R$ C A ) : N E X T : 8=0
70 GOSUB 1 20 : Z t= I NS + " " + C H R$ C 1 3 )
80 F O R Z = l T O L EN C Z $ )
90 I F PEEK < Y > A N D 1 28=0 THEN 90
1 00 POKE Y , AS C < M I D$ C Z $ , Z , 1 l )
1 1 0 N E X T z :
8=0 : GOTO 70
1 20 8$=S T R I NG$ C 25 4 , J2 >
1 30 M l 0$ ( 8$ , 1 , 25 3 l = I N$ + " "
59
1 40 C=LEN C I NS >
1 5 0 P R I N T @ 0 , 8 $
1 60 P R I NT @ 8 , C H R$ C 1 42 ) ;
1 70 A $ = I NKEY$ : I F A$= " " THEN 1 70
1 80 I F C < B THEN C=B
1 90 P R I N T @ 8 , M I D$ C 8$ , 8+ 1 , 1 ) ;
200 CF= I NS T R C CF $ , A$ ) : I F C F THEN 2 5 0
2 1 0 D = A S C C A$ ) : I F D < 32 O R D > 96 THEN 1 60
220 I F 8 < 25 2 THEN 8 = 8 + 1 ELSE 1 60
230 P R I N T @ 8- 1 , A$ ;
240 M I D$ C B$ , 8 , 1 > =A $ : GOTO 1 60
25 0 O N C F GOTO 3 1 0 , 3 30 , 35 0 , 3 7 0
2 6 0 O N C F - 4 G O T O 3 90 , 4 20 , 460 , 4 70
270 I F C F =9 THEN 290
280 I N$ =M I D$ ( 8$ , 1 , 8 ) : C=B : GOTO 1 20
290 I N$=M I D$ ( 8$ , 1 , C )
300 I F C > 0 THEN RETURN
3 1 0 IF 8 > 0 THEN B=B- 1
320 GOTO 1 60
3 3 0 I F B < C THEN 8 = 8 + 1
340 G O T O 1 60
3 5 0 I F B > 3 1 THEN B=B-32 ELSE 8 = 0
360 GOTO 1 60
370 I F 8 < C C- 3 2 ) THEN 8=8+32 ELSE B= C
380 GOTO 1 60
390 M I D$ C 8$ , 8+ 1 ) = M I D$ ( 8$ , 8+2 )
400 M I D$ C 8$ , 25 J , 1 ) = " "
4 1 0 C = C- 1 - C C < l ) : GOTO 1 5 0
420 M I D$ ( 8$ , 8 + 2 ) =M I D$ ( 8$ , B+ 1 )
430 M I D S ( 8$ , 8+ 1 , 1 > = " "
4 4 0 M I D$ C 8$ , 2 5 3 , 1 ) = " "
4 5 0 C = C+ 1 + C C > 25 1 ) : GOTO 1 5 0
4 6 0 8 = 0 : GOTO 1 5 0
470 B = C : GOTO 1 5 0
4 8 0 P R I N T @ 0 , 8 $ : GOTO 1 60
490 DATA 9 , 9 , 94 , 1 0 , 2 1 , 93 , 95 , 9 1 , 1 3 , 1 2
60
"
. .
A Y :S - IHHl
�
-
� !
' "
""
� � �
�
�
=
� � � � � ;.;: · f---<
!:_
, .
!
>-
�!
-u-"2 ' -l•
0 -
.. c
N l') • C <D • OI !:! - � � !: �
Sujet
à changements sans préavis. Pou r obtenir u n schéma plus prec1s (et pour les pièces) com muniquer avec Radio Shack, National Parts Dept.,
Barrie, Ontario L4M 4W5 .
61
62
D ISPOSITI ONS D E SERVI CE
APR ÈS-VENTE
L e réseau nationa l R adio Shack d 'i nstal latio ns d e service après-vente assure, dans la plupart des cas, réparations rapides, commodes et fiables de la tona lité de ses produits de m icro-ordinateurs. Le service de garantie est assuré dans l e cadre de la garantie limitée de Tandy .
Le service hors garantie est assuré à d es tarifs de pièces et de main-d'oeuvre raison nables.
D u fait de la fragilité de l 'équipement de micro-ordinateur et des probèmes qui peuvent découleur de mauvaises réparations, les restrictions suivantes s'appli q uent aussi aux services offerts par R adio Shack :
1 .
Si l 'un des sceaux de garantie d 'u n produit de micro-ord inateu r Tandy est brisé, Radio Shack se réserve le droit de refuser la répa ration de l 'équ ipe ment ou d 'annuler toute garantie restante d udit équipement.
2 .
Si l 'équipement de m icro-ordinateur Tandy
à
été modifié
à un point te l q u'il ne correspond plus aux spécifications du fabricant, entre a utres l 'insta l lation d e pièces, de composants ou d e plaquettes d e rechange n o n fou rnis par Radio Shack, R ad io Shack se réserve a lors le d roit de refuser la répara tion de l 'équipement, d 'annuler toute partie restante de l a garantie, d 'en lever et de rem placer tout élément de l 'équipement non fourni par R adio
Shack et d 'effectuer les modifications nécessaires pour rétablir l 'équipement aux spécifications d 'orig i ne d u fabricant.
3.
Les frai s de main-doeuvre et de pièces nécessaires au rétab lissement de l 'équipement d 'ord i nateur Tandy aux spécifications d 'o rig ine d u fabricant sont facturés au client en sus des frais de réparation normaux .
RADIO SHACK DIVISION, ÉLECTRONIQUES TANDY LIM ITÉE
CANADA: BARRIE, ONTARIO L4M 4W5
É.-U.:
FORT WORTH, TEXAS 76102
TANDY CORPORATION
AUSTRALIE
91 KU RRAJONG AVENUE
MOUNT DRUITT. N.SW. 2770
RU.
B I LSTON ROAD WEDNESBURY
WEST M IDLANDS WS10 7JN
BELGIQUE
PARC I N D U S T R I E L
5140 N A N I N N E ( N A M U R )
2AS 854
Imprimé en Corée
81 1 0 1 5230A
