10 REMark Expandieren eines QTYP-Dictionaries = DicExpand_bas 20 REMark adobat lo 01/04 de mai de 1997 = DicoLis_bas 30 : 40 REMark Choix de la langue utilisテ 50 REMark Des blocs de configuration langue serait mieux ! 60 IF VER$ = 'HBA' THEN Langue(LANGUAGE): ELSE Langue(1) 70 CLS 80 INPUT Txt1$ & Txt2$ &' >'!Dico$ 90 IF Dico$ = '' THEN 100 sperr = SPELL_NEW : REMark Dictionnaire par dデaut !!! 110 ELSE 120 sperr = SPELL_NEW(Dico$) 130 END IF 140 : 150 REPeat odict 160 IF sperr > 0 : EXIT odict 170 REPORT sperr 180 INPUT Txt1$ & ' >' ! Dico$ 190 sperr = SPELL_NEW(Dico$) 200 END REPeat odict 210 : 220 INPUT Txt3$ & ' >' ! exfil$ 230 IF LEN(exfil$) > 0 THEN 240 Ferr = FOP_NEW(exfil$) 250 IF Ferr < 0 THEN REPORT Ferr: ELSE canal = Ferr 260 ELSE 270 canal = 1 280 END IF 290 : 300 REMark Gestion des erreurs > cas des lettres seules non trouvテs 310 REMark (pointe le dッut d'une sビie) 320 WHEN ERROR 330 IF ERR_NF THEN CONTINUE 340 REMark sinon, brutal mais propre 350 CLOSE : ERT SPELL_CLEAR 360 END WHEN 370 : 380 FOR char=CODE('a') TO CODE('z'), 128 TO 156 390 ERT SPELL_CHECK(#sperr,CHR$(char)) 400 REPeat word 410 word$=SPELL_WORD$(#sperr) 420 IF word$='':EXIT word 430 REMark Affichage de controle: 440 REMark supprimer pour fonctionner en tache de fond 450 PRINT #canal, word$; 460 END REPeat word 470 END FOR char 480 : 490 REMark Ferme les canaux, celui du dictionnaire inclu 500 CLOSE 510 REMark Dツharge le dictionnaire de la mノoire 520 ERT SPELL_CLEAR 530 : 540 DEFine PROCedure Langue(lang) 550 SELect ON lang 560 = 1, 44 : REMark English 570 Txt1$ = "Name for file dictionary" 580 Txt2$ = " (ENTER for default dictionary)" 590 Txt3$ = "Name for ouput file (ENTER = screen)" 600 = 33 : REMark Franais 610 Txt1$ = "Nom du dictionnaire" 620 Txt2$ = " (ENTREE pour le dictionnaire par dデaut)" 630 Txt3$ = "Nom du fichier en sortie (ENTREE pour une sortie ツran)" 640 = 49 : REMark Deutsh (sans garantie sur la signification) 650 Txt1$ = 'Diskette mit Wвterbuch einlegen und ENTER drcken!' 660 Txt2$ = 'Kein Wвterbuch geladen!' 670 Txt3$ = 'Dateiname fr expandiertes Wвterbuch' 680 END SELect 690 : 700 END DEFine lang 710 :