ri V BASIC NISX 1. METHODES BOISGONTIER Daniel T AP RAYE Impars* <W La Msjt d*» S«iei 7H00 ST REMY TH. {R5i 46.12.36 JACQUES BOISGONTIER BASIC MSX 1 - MÉTHODES PRATIQUES EDITIONS DU P.S.I. 1985 DU MÊME AUTEUR AUX ÉDITIONS DU PSI : Le basic de A à Z Le basic et ses fichiers - Tomes 1 et 2 Basic pour tous Oric pour tous 52 programmes, Oric pour tous Le cahier du Basic sur Oric L'Apple et ses fichiers - Tome 1 Apple pour tous 36 programmes, Apple pour tous Commodore 64 pour tous (avec Gérard Foucault) Commodore 64, Méthodes pratiques M05 et TO7/70 pour tous M05 et TO7/70, Méthodes pratiques Spectrum pour tous (avec Marcel Henrot) PRÉSENTATION Vous venez d'acquérir votre nouvel ordinateur au standard MSX et vous désirez découvrir ce qu'il peut vous apporter de plus qu'une machine dotée d’un Basic Microsoft ou Ap- plesoft ? Destiné à un public déjà initié à la micro-informatique, le “BASIC MSX : Méthodes Pratiques” répondra à votre at- tente de perfectionnement. Jacques Boisgontier, auteur du best-seller “Le Basic et ses fichiers", y adopte une dé- marche originale en présentant les instructions du Basic MSX au fur et à mesure de vos besoins. Si le “BASIC MSX” ne s'adresse pas aux débutants, il comprend cependant en annexe un rappel, sous forme d'initiation, des notions de base nécessaires à la compré- hension du texte. Loin d'être une liste sèche d'instructions, le “Basic MSX” propose quantité de programmes-exemples dans lesquels vous découvrirez de nombreuses astuces utiles. Cet approfondissement du langage Basic MSX est complété par un chapitre “programmes” où, du jeu au gra- phisme, en passant par la gestion, vous pourrez mettre en application toutes vos connaissances, et créer de très belles pages-écran, A vous de jouer 1 SOMMAIRE PRISE EN MAIN g Le clavier g L'éditeur de programmes 1 2 INSTRUCTIONS DE BASE 1 5 Les commandes Basic 1 5 Les variables ig Les expressions et opérateurs 23 L écran 26 L’entrée au clavier 31 Tests 40 Boucle automatique 42 TRAITEMENT DES DONNÉES 47 Les données 47 Les tables 51 Les chaînes de caractères 59 Les éditions 58 DÉCOUPAGE DES PROGRAMMES 75 Les sous-programmes 75 Les branchements multidirections 78 LES FONCTIONS 79 Les fonctions arithmétiques La définition des fonctions 81 NOMBRES ALÉATOIRES ET HORLOGE 83 Les nombres aléatoires 83 L’horloge 86 ACCÈS A LA MÉMOIRE ET ENTRÉES-SORTIES DIRECTES 89 L'accès à la mémoire 39 Entrées-sorties directes 95 TRAITEMENT DES ERREURS 97 La mise au point des programmes 97 T raitement des erreu rs 1 00 GRAPHISMES ET SONS 1 0 l Le graphique haute résolution 101 Le graphique basse résolution 1 1 9 Les Sprites 121 Redéfinition des caractères 1 30 Les sons 134 LES FICHIERS SÉQUENTIELS 1 45 8 BASIC MSX LES PROGRAMMES 153 A - JOUEZ EN BASIC MSX 1 53 Le squash 154 Conduite de voiture 1 55 Bombardement d'immeubles 156 Sauts d'obstacles 158 Composition de paysage avec animation 159 Bioryihmes 161 B -PROGRAMMES DE GESTION 164 T racé de courbe 1 64 Fichier d’adresses 165 Gestion de fichier 170 Saisie d’écran 172 Histogramme 174 Histogramme en 3 dimensions 175 Bibliothèque 176 C - POSSIBILITÉS GRAPHIQUES DU MSX 180 Dessin 180 Tracé d un dessin par segments de droites et digitalisation d’un dessin 182 Tracé d'un dessin défini en data 1 83 Dessinateur 184 Interrogation de géographie 1 86 ANNEXES 189 1. Initiation 189 2. Messages d’erreur du Basic 205 3. Caractères de contrôle 21 1 4. Table des codes ASCII 213 5. Caractères spéciaux 214 PRISE EN MAIN | 1 LE CLAVIER A la mise sous tension, apparaît le message : L . U N i -.:r o_ >;;■ f't, ■ — Curseur Vous êtes sous BASIC. M S ! : S Ë Fl I L.- v ■?; \\ i O i "i Copyright b :' N. i 4 î< 1 E’ F 'iü' f ’ f" i.Y 0 !■: Voyons le rôle des touches essentielles : i vous frappez “print 4-5” (afficher 4+5), il ne se passe rien. Pour Dtenir un résultat, il faut "valider” la ligne frappee avec la touche -contre que nous appelons IreturnI 10 BASIC MSX Lorsque cette touche "caps" est enfoncée, les lettres sont affi- chées en majuscules. Une lampe signale si cette touche est en- foncée ou non. ESPACE Cette touche, en bas du clavier, déplace le curseur d'une position à droite, sans écrire, permettant ainsi d’introduire des espaces dans le texte frappé. Cette touche, appelée “shift permet d'accéder aux caractères du naut des touches à deux caractères. Il faut d'abord appuyer sur cette touche, puis MAINTENIR cette touche tout en appuyant sur le caractère désiré. Exemple : Pour obtenir le caractère guillemet, appuyez sur les 2 touches ci-dessous SIMULTANÉMENT i Essayez de frapper : PRINT “BONJOUR ”. Cette touche permet de déplacer le curseur à gauche et ainsi de modifier un caractère erroné. I 4 # HOME Positionne le curseur en haut à gauche de récran. SHIFT — CLS CTRL STOP Efface l'écran. En appuyant simultanément sur les touches [ctru et [sîôR l'exé- cution d'un programme est interrompue. Elle peut être poursuivie en frappant “cont (cf. chapitre “La mise au point des program- mes”). STOP Suspend l'exécution d’un programme. En appuyant à nouveau surgrop], l'exécution se poursuit. Les touches présentées ci-dessous ne sont pas indispensables pour une initia- tion au BASIC. Cette touche permet d’accéder aux caractères dont les codes sont compris entre 1 et 31 (cf. annexe) PRISE FIN MAIN i 11 INS DEL Ces touches sont utilisées pour modifier les commandes ou lignes de programme (cf. chapitre "Editeur de programme ). F6 ^ F10 Fl F5 Si vous appuyez sur la toucheg, le premier mot en bas de I "écran (COLOR) est affiché à la position du curseur. Ceci permet de simplifier l’écriture des programmes. Le jeu d’instructions prévu à la mise sous tension peut être mo- difié (cf. chapitre "L’entrée au clavier”). Pour supprimer l'affichage des mots associés aux touches F1...F10, frappez keyoff. DEAD En appuyant sur cette touche puis sur une voyelle minuscule, on obtient une voyelle avec accent grave. SHIFT DEAD GRAPH SHIFT GRAPH . CODE SHIFT CODE Permet d obtenir des accents aigus sur les voyelles minuscules. Cf annexe Cf annexe Cf annexe 12 ! BASIC M$X L’ÉDITEUR DE PROGRAMMES L’éditeur de type "plein écran” est d'un emploi très simple. Il utilise quatre tlèches ainsi que les touches Tn| et IdelJ . INSERTION D'UNE LIGNE Pour insérer une ligne entre 1 0 et 20, on choisit un n° de ligne intermédiaire (1 5 par exemple). 15 PR I N T "MONSIEUR ” LIST- 1 10 PR INT 11 BONJOUR 11 15 PR INT "MONSIEUR" 20 bûTO 10 ÜK MODIFICATION D’UN CARACTÈRE DANS UNE LIGNE DÉJÀ FRAPPÉE _ 1 /Amener le curseur sur la ligne à modifier à l’aide des flèches * [ . 2/Positionner le curseur sur le caractère à modifier avec les flèches <— 3/Frapper le nouveau caractère qui efface l'ancien. 4/Valider avec la touche IrëtürnI Pour déplacer le curseur en diagonale, appuyez sur deux flèches simul- tanément. PRISE EN MAÏN . 13 SUPPRESSION D’UN CARACTÈRE Positionnez le curseur sur le caractère à supprimer. Puis appuyez sur la touche RÉ- INSERTION DE CARACTÈRES Pour insérer un caractère dans une ligne, on positionne le curseur devant la position d'insertion et on appuie sur |n|. Il suffit alors de frapper les caractères à insérer. Les caractères à droite de l'insertion sont décalés automatiquement. La frappe de IrejurnJ valide la modification. Une modification en cours peut être annulée en frappant IctrL | stofI La frappe de l'une des 4 flèches provoque la fin du mode insertion. Appuyer sur "INS” puis frapper "I" et "RETURN” DUPLICATION D’UNE LIGNE Pour dupliquer une ligne de programme (avec un autre numéro), modifiez le numéro de la ligne puis appûyez sur ftETURNi La même ligne de programme existe alors avec 2 numéros, Attention : SI vous frappez une commande sur une ligne déjà écrite, vous ob- tenez te message "SYNTAX ERROR”. Dans ce cas, appuyez sur lsHirr | CLSj el frappez la commande. (Pour “RUN”, appuyez sur jSHirrl fïcI) . 14 i BASIC MSX Si vous commettez une erreur de frappe en entrant une commande, il n’est pas nécessaire de la frapper à nouveau. Positionnez-vous sur la commande avec les flèches ; corrigez l’erreur puis appuyez sur IreturnI Exemple : L rH £J 1 ? SYtJTR: • FR P Ü R Revenez sur LAST ; changez “A” par ‘T’ et appuyez sur iret urï^ . Remarque : Lorsque vous ajoutez des caractères à la fin d’une ligne de program- me en dépassant une ligne d'écran, il y a ajout de la ligne d'écran suivante. Dans ce cas, utilisez [Dig pour supprimer les caractères ajoutés (ou|c trl[eJ) - Les numéros de ligne doivent être compris entre 0 et 65535. Une ligne de programme ne doit pas excéder 255 caractères. Le caractère référence la dernière ligne utilisée (LIST par exemple). Plusieurs instructions sur une même ligne doivent être séparées par le caractère L'instruction PRINT peut être remplacée par u ? 11 . INSTRUCTIONS DE BASE | 2 LES COMMANDES BASIC ■ Ain o ■ COM ■ LO AD ■ RLN ■ BLOAD ■ CS A VL ■ MF RG F ■ SA\ F ■ BS A VF ■ DFLF ) F. ■ NEW ■ TRON * CLE A R ■ LIS I ■ RFNUM ■ TROFF ■ ('LO AD Ces commandes sont acceptées après affichage de ' ok m . Elles peuvent aussi être écrites comme instructions dans un programme. AUTO n° ligne départ, incrément Génère un numéro de ligne à chaque fois que vous appuyez sur I retu rFI. On sort du mode “auto v en appuyant sur jc rRL I'stopI . mu; ü ' numérote de 10 en 10 h ! ! 10 lûü ' positionne en 100 et incrémente de 1 0 en 10 hutü 100, U 1 positionne en 100 et incrémente de 5 en 5 Si un numéro de ligne existe déjà, le caractère est affiché BLOAD “U:nom-fichier”, R, décalage Charge en mémoire une sauvegarde de la mémoire faite par bsave. “R” provoque lexécution. décalage 1 ’ provoque un décalage. BL ORD 16 i BASIC MSX BSAVE “Ihnom-fichier”, adresse début, adresse fin, adresse exécution Sauvegarde une zone mémoire. SSRVE1 11 CRS t SS " • ÿ.:H0000 , CH 1 000 Sauvegarde sur cassette la zone mémoire comprise entre &H0000 et &H1 OÛÛ. CLEAR espace chaîne, mémoire maxi Efface toutes les variables en mémoire centrale, affecte l'adresse mémoire maxi- mum pour le BASIC et réserve l'espace pour les chaînes qui est de 200 carac- tères par défaut. CL. ERE 1000 •’ reser-ve 1000 caractères Pour les chômes- CL ER R 1000 .*66000 1 P rote 9^- 1?. piçiïiü i r-e au de s su. s de 60000. CLOAD “nom-programme” Charge le programme spécifié (sauvegarde par csave). La touche Iplayi du lecteur de cassette doit être enfoncée. Si la télécommande est connectée, le moteur du lecteur est mis en marche au- tomatiquement. C L DHL 1 1 E SS 1 1 c ha r 9 e- 1 e F 1 r o9 r a. ru roe ‘ E S S ■’ - G L 0 H P cha r 9 e- l e- F 1 r e m i e r P r'- o 9 r a. ni ri e- r - e n o n t r é . Le message “found” est affiché dès que le programme est trouvé. CLOAD? “nom-programme” Permet de vérifier qu'une sauvegarde a été effectuée correctement. Le program- me en mémoire est comparé à celui sur cassette. CL G RD? CLÜRD? "ESS 11 CONT Continue l’exécution d'un programme après arrêtée celui-ci par stop qu Ictrl i sfôfl N’est pas accepté si le programme a été modifié (dans ce cas, utiliser GOTO XX). CSAVE “nom-programme”, vitesse Sauvegarde un programme sur cassette. “vitesse” égal à 1 spécifie une vitesse de 1200 bauds, “vitesse” égal à 2 une sauvegarde à 2400 bauds, Par défaut, la vitesse est de 1200 bauds. La touche EnregI du lecteur/enregistreur doit être enfoncée. r^RVE "ESS" CS R VE "ESS", 2 •’ 2400 bauds INSTRUCTIONS Dfc BASE > 17 La sauvegarde est faite sous forme compactée. Elle est relue par “cload h . Si la télécommande est connectée, le moteur du lecteur/enregistreur est mis en marche automatiquement. DELETE n° ligne début-n° ligne fin Supprime les lignes entre les limites indiquées. DELETE 100- 200 ' supprime les liâmes 100 a 200 DELETE . ■' su.P P r 1 nie la 1 1 9 ne courante. Les numéros de ligne spécifiés doivent exister. LIST n° ligne départ-n û ligne fin Liste les lignes de programme entre les limites indiquées. L I 5T ‘ liste to Lï 5T 30-50 ' liste le L..I BT 500™ ' liste- de U BT --400 lis t e • i U. Lï ST . • liste 1-?. ,t le Pr*o9r-3.rjroe li9 Ti' es 30 5. 50 500^5. la fin ,qu '' a 400 1x9 ne courante LOAD “U:nom-programme”,R Charge un programme sauvegardé en ASCII {par SAVE). La touche ^3 du lecteur de cassette doit être enfoncée. “R” provoque l'exécution. LORD “PR VE" ‘ char 9e le P r c^r-ariroe ' FRYE'' LORD “CRS : PRVE" _ , LORD “PRVE" * R ' char9e le Pr r o9rarriiïie et lance' 1 exécution. LORD “CRS “ ' charge le premier P ro9r anime r encontre - On ne peut lire par “load" un programme sauvegardé par “csave". Si la télécommande est connectée, le moteur du lecteur est mis en marche au- tomatiquement. MERGE “U:nom-programme” Concatène le programme spécifié (sauvegarde en ASCII par “SAVE”) au pro- gramme en mémoire centrale. Les lignes de programme dont les numéros sont identiques aux numéros de lignes déjà en mémoire remplacent celles-ci. Cette commande est généralement utilisée pour ajouter des sous-programmes à un programme. 10 MERLE 11 CRS : HRRDC “ 20 MERLE 11 HRRDC" NEW Efface le programme en mémoire centrale. 18 l BASIC MSX RENUM nouveau numéro y première ligne, incrément “nouveau numéro” qui est par défaut égal à 10 spécifie le nouveau premier numéro de ligne, “première ligne” spécifie la ligne où doit commencer la renumérotation. C’est la première ligne par défaut. incrément” représente l'incrément à utiliser pour la renumérotation. Il est éaal à 1 0 par défaut. 10 RENUM £0 RENUM 100 30 R EM un 100, RUN r'OïH.Uï|£ r ot t • 'i 10 \ i 1. y T f ' T t I f ' 10 1 y. P P i L»5'! 1 i ’îütï'r^- N h y j. fiE 1. MH re-Tiumerot*-: dt= j en j Exécute le programme en mémoire au premier numéro de ligne. Toutes les variables sont remises à zéro. Les fichiers sont clos. RUN n° ligne Exécute le programme à partir de la ligne spécifiée. SAVE “Umom-programme” Sauvegarde le programme de la mémoire sous forme ASCII, c’est-à-dire sous forme non compactée. Le programme sauvegardé peut être chargé par “load” ou “merge\ «fl VE ” CRS : ES3R I fl VE "ESSAI " H VE U CRS M s •?. l j . d^r s-u.r s-3.uve9-3.rde su r cassette sans donner de nom Sur cassette, la syntaxe ‘SAVE” “nom-programme”, A* est équivalente à : “SAVE “nom-programme”. Avec un lecteur de disque, la syntaxe pour une sauvegarde ASCII devient • ‘SAVE "nom- programme”, A\ TRON Permet de visualiser les numéros des instructions exécutées (cf, chapitre « Mise au point des programmes »). TROFF Annule “tron m Rappelons que “print fre(0)” et “printfre(xs)” donnent respectivement l'espace libre en mémoire et l'espace libre pour les chaînes. INSTRUCTIONS DF BASE I 19 LES VARIABLES NOMS Les noms de variables s’écrivent avec plusieurs lettres ou chiffres mais le premier caractère doit être une lettre. Seuls les deux premiers caractères sont significatifs (prix est équivalent à pr). Un nom de variable ne doit pas comporter un mot clé du BASIC. Ainsi “'coiffeur" qui contient Tf” n’est pas accepté. TYPES Il y a quatre types de variables : les variables entières, simple-précision, double- précision et chaînes de caractères. Le type est précisé par un caractère à droite de la variable (% $ # !). Exemple : X% = 5 (variable du type entier). Par défaut, lorsque le type n’est pas précisé, les variables sont en double-préci- sion. Type Caractère de déclaration Exemple Entières (nombres entiers compris entr> 32768 et + 32767 Simple précision (6 chiffres significatifs) Double précision 14 chiffres significatifs Chaînes de caractères de longueur variable (255 caractères au maximum) Les variables de même nom avec des types différents sont considérées comme des variables distinctes (A et A$ par exemple). clear et run initialisent les variables avec des valeurs nulles (0 pour les variables numériques, chaîne vide pour les variables chaînes). La place occupée en mémoire va, bien sûr, en croissant avec la précision des nombres. Il en va de meme pour les temps de calcul sur ces nombres. Pour les tables de chaînes, 3 octets par élément seulement sont réservés au moment où "dim” est exécuté. Les chaînes elles-mêmes sont rangées dans un espace particulier réservé par “clear espace" Elles utilisent un nombre d'octets égal à leur longueur. % X% 1 23: JOURS % - 365 ! SOMME! 1234.56 # SOMME# - 123456789.12 # S NOMS « DUPONT » 20 I BASIC MSX CONSTANTES HEXADÉCIMALES Des constantes hexadécimales sont spécifiées par “&H” devant le nombre, ltt PF: INT &HFF > 255 Des constantes hexadécimales définies dans des DAT A pourront être lues ainsi : 10 DR T R &HFF 20 REfiD X? PR INT ru. ri “i CT <= CONSTANTES OCTALES ET BINAIRES Des constantes octales sont spécifiées par “& 0 ” devant le nombre. Des constantes binaires sont spécifiées par “&b”. Exemple : lü FRI NT &G377 20 PR INT m%à l rij.Ti Les nombres représentés vont de -32768 à +32767. Les nombres négatifs sont représentés sous forme de complément vrai (le premier des 1 6 bits est positionné à 1 pour les nombres négatifs). O et. 3 \ déc i ma l hçxadei 7,0 1 00000 -3 2768 ;< : H3hnm &l'j 1 0000 1 -32767 :-.;H800 1 &Ü 1 77777 &HFFF F LU000UÜ0 Ü & H 00 00 &Ü00000 1 + 1 :;,H00U ! U t' r > i < +■ 3276 7 &H7FFF INSTRUCTIONS DE BASE I 21 DEFINT-DEFSNG - DEFDBL-DEFSTR (Définition globale de type de variables) DEFtype lettres Permet de définir globalement le type de toutes variables dont les noms commencent par les lettres spécifiées, plu- tôt que de déclarer explicitement le type de chaque va- riable par un caractère (%, $, #, î). On peut cependant déclarer explicitement par un carac- tère (!, %, #, $) un type de variable qui aurait été défini par DEFtype. La déclaration explicite est prioritaire. DEFINT J Toutes les variables commençant par J et non déclarées explicitement par un caractère (!, %, $, #) sont des va- riables entières. DEFINT A-C Toutes les variables commençant par une lettre A, B, ou C sont du type chaîne. DEFINT A-B,D-F Spécifie deux domaines de variables entières. lu DEFINT J ' va.nU.bles ODrnr'ïencarit Par J -> entières 20 JR- 123. 456 30 J ! = 1 23 .456 '* de c l ar a. 1 1 c* n e x. PI i c i t e P r ion ta i r e 49 PR INT JR, J] ruii 123 123.456 CONVERSION DE TYPES DE VARIABLES Le stockage d'une valeur se fait suivant le type de la variable 10 H’ U-l 23- 45 20 PR INT R3 ru. n 123 Les opérations sont effectuées en double précision. 10 H'ii-2 : B*. =3 20 PR INT ru.i'i . 6 6 6 66 66666666 ? EFFETS DE LA CONVERSION SUR LA PRÉCISION La conversion en entier supprime la partie fractionnaire. Un nombre double- précision converti en simple-précision est arrondi. 22 I BASIC MSX Remarques : Les variables simple et double-précision sont représentées de façon interne sous forme mantisse exposant. La mantisse est représentée en Décimal Code Binaire (1 chiffre sur 4 bits). Ceci évite les erreurs d'arrondi qui existent sur certaines versions Microsoft où la représentation est en binaire. Les valeurs des variables peuvent être comprises entre 1 0^61 et 1 0’61 . Au-delà de 1 0 13 , les valeurs sont affichées sous forme mantisse exposant. 1 0 }<> 1 £ 3456783 1 2345 # 20 ■,'= 1 . 23456783 12346E+14 30 PR INT X , Y ru Ti 1 2 3456 7b3 1 2345 1 - 23456789 1 2346L+ 1 4 Le type et le nom de la variable occupent 1 +2=3 octets. PLACE OCCUPÉE PAR LES VARIABLES ET TABLES 1 variables tables entiers 3 t 2=5 2 octets par élément simple-précision 3 + 4 = 7 4 octets par élément double-précision 3+8=11 8 octets par élément chaînes 3+3 + 1 3+ longueur par élément longueur L INSTRUCTIONS DE BASE I 23 LES EXPRESSIONS ET OPÉRATEURS Une expression peut être simplement une constante du type numérique ou chaîne, une variable ou une combinaison de constantes et de variables liées par des opérateurs. Exemple : (X 2) + 4 6 Les opérateurs effectuent des opérations sur des valeurs. Ils sont classés en trois catégories : 1 /Arithmétiques 2/Relationnels 3/Logiques OPÉRATEURS ARITHMÉTIQUES Exponentiation * / Multiplication Division H — Addition Soustraction MOD Modulo \ Division entière L'évaluation des expressions se fait avec Tordre des priorités des opérateurs défini ci-dessus. 5 + 10/5 est égal à 7 Des parenthèses permettent de changer cet ordre. Ce sont d'abord les expres- sions entre parenthèses qui sont évaluées. (5 4- 10) 5 est égal à 3 X MOD Y : L'opérateur MOD donne le reste de la division de X par Y. PRINT 100 MOD 3— > 1 X\Y : Donne ia partie entière d une division. X et Y doivent être compris entre - 32768 et 4- 32767. 1 00\3 — > 33 OPÉRATEURS RELATIONNELS Ils comparent 2 valeurs. Le résultat est soit égal à 1 (condition vraie), soit égal à 0 (condition fausse). Ceci permet de prendre une décision (par if...then... else). 100 IF X<0 THEN PRINT « NOMBRE NEGATIF » ELSE PRINT « NOMBRE POSITIF » 24 I BASIC MSX = Egalité < Inférieur > Supérieur <> Différent <= Inférieur ou Egal OPÉRATEURS LOGIQUES Ils testent des relations multiples. Le résultat de l'opération logique est soit faux (égal à 0) soit vrai (égal à 1) et permet ainsi de prendre une décision par if... THEN...ELSE. 100 IF A<0 AND B< 0 THEN PRINT « A et B SONT NEGATIFS » L'ordre des priorités dévaluation des opérateurs logiques est le suivant : NOT — AND — OR — XOR — IMP — EQV. Dans les tables de vérité ci-dessous “O" signifie ' FAUX” et “1” signifie “VRAI”. Mais en réalité le TEST se fait sur 0 (FAUX) et sur <> 0 (VRAI) et le résultat est soit 0 (faux), soit - 1 (vrai). RI R2 NOT (NON) 1 0 NOT RI | 0 1 RI R2 AND{ET) RI AND R2 IMP(IMPUCATION) RI IMPR2 1 1 1 1 1 1 1 0 0 1 0 D 0 1 Û 0 1 1 0 0 0 0 0 1 0R(0U) RI OR R2 EQV(EQUI VALENT) RI EQV R2 1 1 1 1 1 1 1 0 1 1 0 0 0 1 1 0 1 0 0 0 0 0 0 1 X0R(0U EXCLUSIF) RI XOR R2 1 1 0 1 0 1 0 1 1 0 0 0 INSTRUCTIONS DE BASE I 25 Les priorités d’évaluation des expressions comportant des opérateurs arithmé- tiques, relationnels et logiques sont : 1 /Parenthèses 2/Opérateurs arithmétiques 3/Opérateurs relationnels (1 seul niveau) 4/Opérateurs logiques 5 H-ï 7 6-6 1 8 MX M UM=- < 1 H > 8 Xi A +< A< = B >* B > 15 PR INT MX MU M OPÉRATEURS BOOLEENS La manipulation de bits et les opérations booléennes sur ces bits s’effectuent avec les opérateurs AND. OR, NOT,... Ces derniers opèrent sur des groupes de 16 bits au plus qui sont spécifiés par des nombres allant de - 32768 à 32767 (représentés en complément vrai de façon interne). Les opérations s’effectuent BIT à BIT. Exemple : 1 5 — >0000000000001 1 1 1 4 >0000000000000100 15 and 4 >0000000000000100 >4 Exemple : 4 >0000000000000100 2 >0000000000000010 2 or 4 >00000000000001 1 0 — >6 Exemple 1 >1111111111111111 8 - — >0000000000000000 - 1 and 8 >0000000000001000 >8 26 BASIC MSX L’ÉCRAN ■ CLS ■ l.OCATE ■ COLOR ■ BASF ■ SCRE EN CLS Efface l’écran. COLOR écriture.fond, pourtour Les couleurs d écriture, de fond et de pourtour se choisissent avec l'instruction fr ° ° P '\ A la mise spf tension, récriture est blanche sur fond bleu. Si vous frappez color 4,is”. I affichage se fait en bleu sur fond blanc Les couleurs sont definies pour tout l'écran. COLOR f, • écr i tare rou9*=- COLOR ,' 1 5 • fond bl-?.ric Les différentes couleurs sont : 0 A transparent 8 rouge 1 noir 9 rouge clair 2 vert 10 jaune foncé 3 vert clair 11 jaune clair 4 bleu foncé 12 vert foncé 5 bleu clair 13 magenta 6 rouge foncé 14 gris 7 cyan 15 blanc Ci ‘ d r S H afflChe successivement le texte de l’écran dans les couleurs 1 a 14 sur fond blanc. INSTRUCTIONS DE BASE I 27 £8 P A R? '’cilJLEUR ’*■ 30 FOR CL= 1 TO 14 40 COLOR CL 45 PR INT CL .i 50 FOR TP-1 TO 1000 NEXT TP 60 NE XI CL Le programme suivant affiche toutes les couleurs en haute résolution. 1 0 •' affi ch 9 e co y. U 20 L ÜL.ÜR 1 , 1 5 SCREEN 2 "30 1 40 ï :t 00 50 F IJ R L U-l TL i 15 ' 15 cou i'rij.1* 60 > : >CL T 12 70 L 1NE k • y ■ , Y 4- [ 1 , J U . 30 ï •EXT LL •_ J U ‘ 100 Gï“ I MT'iJ 1 1. > Si un programme utilise par erreur la même couleur pour l'écriture et !e fond, l’affichage à l’écran disparaît. Dans ce cas t frappez en mode direct “COLOR 1 ,1 5” par exemple pour faire apparaître le texte. SCREEN mode, type sprite, sono clavier, vitesse cassette, imprimante ■ Mode : i! existe quatre modes : 0; 24 lignes de 40 caractères 1 : 24 lignes de 32 caractères 2: haute résolution 256*192 points 3: basse résolution 64*48 points Le changement de mode efface l’écran. Les modes “SCREEN2” et “SCREEN3’ ne peuvent être commandés en "mode direct" ; il y aurait retour automatique au mode 0 ou 1 Le mode “SCREENO" autorise seulement une couleur de fond et une couleur d'écriture à la fois. Il ne peut y avoir de couleur de bordure ni de sprite en mode “SCREENO”. En mode "SCREEN2” et “SCREEN3", l'affichage de texte se fait à l’aide de “GRP". INPUT n’est accepté qu'en mode “SCREENO ' et "SCREEN1 ’. ■ Type sprite : quatre types de sprites peuvent être choisis : 0: 8‘8 taille simple 1 : 8*8 taille double 2; 16*16 taille simple 3: 16*16 taille double 28 I BASIC MSX 1 o SCF: £ t N 2 , 1 ■ £. p r 1 1 -3 8 * 8 t a il le- si m P l e y'-RËtH 8/2 SP ri te 8*8 taille double Tous les spriles doivent être du même type. ■ Sonorisation clavier : Egal à zéro, ce paramètre supprime la sonorisation du clavier. 10 ïCREE N ..0 ' suPPrime lu semer i se. b ion clavier 10 SCREEN ■' rétablit la sonorisât ion clavier ■ Vitesse cassette : La vitesse de sauvegarde standard est de 1200 bauds par défaut. Si le paramètre “vitesse" est égal à 2, la sauvegarde se fait à 2400 bauds La lecture se fait automatiquement à la vitesse de sauvegarde. cassette 2400 • :: ■:*. :i » e 1 l 1 1 2 0 0 b . ■* h . J ;5 ■ Imprimante : Une imprimante prévue pour usx frappe les caractères graphiques MSX, Le pa- ramètre “imprimante” doit être égal à zéro pour ce type d'imprimante. Pour les imprimantes standards, les symboles graphiques sont remplacés par des espaces. ■ Jeu de caractères de MSX : Le jeu de caractères comprend un jeu standard (32 à 1 27), un jeu de caractères graphiques (128 à 255) et un jeu de caractères graphiques obtenus par PRINT CHR$(1 )+CHR$(X) En mode “SCREENO", certains caractères graphiques n'apparaissent pas complètement ; les 2 positions de droite sont supprimées. On trouvera en annexe la liste des codes de caractères graphiques. INSTRUCTIONS DE BASE ! 29 10 •' afficha 9e Jeu car a c t ère s 20 SCRE EN 1 30 50 FOR 1=32 TO 255 60 PR INT CHR$< I >; 70 NEXT I 90 C3.r-3.ct ç r e 9 r •?. P h i 1 u. e- s 95 PR INT 1ÛÔ FOR 1=65 TÜ 65+31 110 PR INT CHR$( 1 >.i CHRS< I 120 NEXT I ! 5 * * * * * 11 # * ' < > * + , - . 012 3 4567ÿ9 . , < = ? 3 6 B C t' E F G H I J K L M N O P Q F: S T U V W X VZC x ] ' * ; a b o d e f ^ h i . 1 k 1 rn n o m r ‘ £ t y. y w x y z C î p " * ç 0. £ 3 a ç ê ê e i ï i a a é -sÆS o & ÿ u. jJ o u v M ié X if * V< Û II E -.7 u. t "ê ns « îî €fi s ±2 < r j ~ o « BOISAS + hH-l-rn ^ x/\ LOCATE colonne, ligne, curseur Positionne le curseur dans la colonne et la ligne spécifiées. "colonne” doit être compris entre 0 et 39 (SCREENO). "ligne” doit être compris entre 0 et 23 Les valeurs supérieures aux bornes sont arrondies aux valeurs des bornes. Ci-dessous, le message "COUCOU" est affiché en colonne 10 et en ligne 5. 10 CL 3 20 LOCflTE 10,5 30 PR INT "COUCOU" Si "curseur” est égal à 0, le curseur n'apparaît pas. 10 L OC P T E 10. 1 0 . 0 J c u. r s e u. r i n v • s 1 b 1 t i 0 LOCATE 10.10*1 •' c u. r s t u. r v i s j b 1 e Le programme ci-dessous fait défiler un message à l’écran. 5 •’ ENSEIGNE 10 CLS 20 K**" LE BASIC MSX ” 30 •' 40 LOCATE 5, 10 : PR INT X$ 50 X$=RIGHT*( X$ ■ 1 HLEFTÎC X$ , LEN( X$ >- 1 ? 60 FOR: TP=1 TO 308 - NEXT TP 'temporisation 70 GOTO 40 30 I BASIC MSX Il n'existe pas de fonction SCRN (col, ligne) donnant !e code d’un caractère affiché à l'écran en mode “SCREENO” ou "SCREEN1 ”, Cette fonction peut être remplacée par : VPEEK(AM+C + L“40) ou "AM” représente ( adresse de la mémoire écran, ’C” la colonne et "L” la ligne. Les programmes ci-dessous recopient sur imprimante le contenu de l'écran. 1 u ■' • — -- — — - r t coP iç d ' ecr ri, i'i scree h ti , ; '>j hM=EmSEv 0 ;■ •' buf fer texte 30 FOR i.,~0 TÜ £3 ' 24 lignes 40 FOR C=1 TÛ 40 ' 40 colonnes 70 CL -VPEEK's RM+C+L440 > •' code 80 LPRINT ÜHR$ i CD > • 90 H EX T C 160 LPRINT 110 NEXT L 10 recopie 20 fiM-BASEC 5 > 30 FOR l.” 0 Tü £3 40 FOR Ol TÜ 32 70 CD*VPEEK< RM+C+U32 ) ' 30 LPRINT CHR*CCD># 90 NEXT C 100 LPRINT ne next l d ' écran ( s creen b u. f fer texte 24 lignes 32 ce» Ion ri es code 1 > BASE(n) Fournit les adresses de la mémoire écran (cf. chapitre "L’accès à la mémoire”). INST R Un IONS DE BASE ' 31 L’ENTRÉE AU CLAVIER ■ INPIJT ■ UNE INPUT ■ INPUT$(n) ■ INKFYS ■ STICK(n) ■ ON STR IG GOSUB ■ STRIG(n) ON ■ KEY LIST ■ STRIG(n) OFF ■ KEY ON ■ STRIG(n) STOP ■ KFY OFF ■ PDL(n) ■ ON KEY ■ PAJD(n) GOSUB ■ KEY ■ KEY(n) ON ■ KEY(n) OFF ■ KEY(n)STOP ■ ON STOP GOSUB ■ STOP ON ■ STOP OFF ■ STOP STOP INPUT “Message” ; variable 1 , variable 2,... Permet d’entrer, pendant l'exécution d’un programme, une ou plusieurs valeurs numériques ou chaînes de caractères. Les variables spécifiées dans INPUT sont séparées par des virgules. Après r affichage du message, l’opérateur doit entrer les valeurs des variables dans l’ordre défini par l'instruction INPUT, en les séparant par des virgules. Exemple avec une variable : 10 INPUT "Votre nom ‘U NOM* 20 PR INT NOM* Ok ru.ïï * Votre -nom : DU T 1 G N T y DUPONT L'ordinateur attend votre réponse L ^ Exemple avec deux variables : 1 ü I NPUT " Nof'i . fi 9 e- " , NOM* , AGE 15 •' 20 FR: INT NOM*.- AGE Ok ru. vi Nom .. H9e : : DUPONT .■ 20 ~-j DUPONT 3Ü i Si l’opérateur oublie des valeurs, le message “??” est envoyé 1 ist 10 INPUT "Nom,aÿe H ; NOM* -AGE 20 PR INT NOM*; AGE Ok RUN No ru a y e ? D U P 0 N T ?? 30 DUPONT 3U 32 ! BASIC MSX Si l’opérateur appuie sur “RETURN” sans entrer de valeur, une variable conserve son ancienne valeur. Par conséquent, il faut initialiser une variable à zéro avant une instruction “INPUT”. 10 NOMS” 11 " : INPUT " Nom " ; NOM* 20 P R INT NOM* 30 GOTO 10 Ük RUN Non» ? DUPONT DUPONT Nom ? Nom ? DURAND DURAND Si l’opérateur entre une chaîne alors que c'est une valeur numérique, le message “redo" (recommencer) est envoyé. 10 INPUT "fige ni- " .= AGE ru Ti 0 9e- ? DUPONT ' ? R ç d o t r o m s t ■ ■= <rt f 09 e ? 20 Ük Les chaînes comportant une virgule (séparateur) doivent être entrées entre guil- lemets. Exemple : Rue? 11 11> r u e NOBEL M LINE INPUT « MESSAGE » ; variable chaîne Permet de lire toute une chaîne au clavier, sans tenir compte des séparateurs tels que la virgule comme c’est le cas avec Destruction INPUT. C’est seulement un retour-chariot qui délimite la fin de la chaîne qui ne peut cependant pas ex- céder 255 caractères. 10 LINE INPUT "Ru.*? " ; RUES 20 PR INT RUE* ük run Ru e? 1 1 .« rue NOBEL 11, rue NOBEL Remarque : BASIC n’envoie pas de point d'interrogation à la suite du message comme c’est le cas avec “IN PUT”. INSTRUCTIONS DF. BASE I 33 INPUT$(N) Fournit au programme les N caractères frappés au clavier sans attendre ia frappe de "ENTREE 11 (comme pour INPUT). Ceci permet de mieux contrôler Tintroduction des données par l’opérateur. Les caractères acquis doivent être affichés par le programme. 10 CS- IMPOT 1 > ' lit u . ti ::ter-e 20 FR INT , fi SD. C$ ) affiche le 3.r ictère 40 GOTO 10 Ok FU JH fi bj Code de RETURN Pour acquérir une chaîne de caractères, il faut concatener les caractères au fur et à mesure de leur frappe dans une chaîne de caractères (LIG$ sur I exemple). LIGS 0 u P 0 Tous les caractères frappés doivent être analysés, y compris le caractère •“ RET- URN” (code ASCII 13) et le caractère ,4 «-” (code ASCII 8) (avec "INPUT - ces caractères sont gérés par "BASIC”). ■ Saisie d’une ligne avec INPUT$(1 ) 30 G LS , .. .. t ... 4 0 v [_ = 1 ü VL - 1 0 : G U SUE 7 l : i c o 'j * • d o '» '• 1 • * : ‘ 1 1 * u \ \ a. f 56 END 6@ ' — -- 70 L1G*=" oO ' 90 L-LLH 1 -. LIG* > ' LOGE TL VL+L, VL 100 ■* 116 C$-IHPUT$‘-. 1 120 C=H3C<C$> 1 30 ' 140 IF" G >8 T H EL N 1P0 156 IF L>0 T HE H LIG$ CHR$( 32 > ; : GOTO 90 LL 160 ' 170 IF U - 1 3 T HE H 22:8 ISO IF G<32 DR G >128 190 L1G*=LIG*+C* 200 FR INT Ç* 210 GOTO 90 22Ü REfURH ' c o d t' u. P P r -:= .£■ i o * 1 LEF r *îi . 1 , ï , L 1 > PR H T CHR3i‘. ■Æ 90 r;n rj i»- dt .T i l THEN BEÊP GOTO 90 ■' ..i o 8 j. t c a. r ■ ■ ' ?. 1 • ! ï : 1 r ■ *■" ■ .j f f j. \ i a 9 1 ;- c. *. i 1 ' c L- e r e 34 I BASIC: MSX INKEYS L instruction 'inputso)" est "bloquante" ; si l’opérateur ne frappe pas de caractère au clavier, le programme reste en attente. Il ne peut exécuter d’autres instruc- tions. înkey$ lit le clavier en permanence. Si aucun caractère n'a été frappé, la chaîne lue (C$ sur l’exemple) est vide. Le caractère frappé au clavier n’est affiché que si le programme Ta prévu (et non pas automatiquement comme c’est le cas avec INPUT). Test cnaîne vide 10 CL o 15 ;>U C#-- 1 NI-- E'ï 'ü 30 PP INI" L.:î- 40 GOTO ,:0 Remarque : Avec INKEY$ f le curseur n'apparaît pas. IF THF:. 1-1 ZÜ ‘ boucle d’attente ■3.1 ’ t i che c iracter Ci-dessous, tant que vous n'appuyez pas sur une touche, le message “APPUYEZ SUR UNE TOUCHE’’ est affiché. • 5 fF O*:.:" 1 THEN END , 0 PR INT "RF ■’PUVEZ SUR .N GOTO 18 i ■ , .* ■ U f-. F ' IN hPPUVEZ SU F' UNE TOUCHE HPPUVEZ sur UNE TOUCHE hPPUVEZ SUR UNE TOUCHE hPPI ÎVF7 Si IP jii.jp t ni ip mp BOUCLE D’ATTENTE Attend que l'opérateur appuie sur une touche quelconque. 10 Y$ : IF >:%*“ " THEN 10 •’ bou.c le H ■’ .*t.t*-Ti1”>- 20 PR INT "C'EST PRRTI 11 Teste si l’opérateur répond assez vite. 10 PR INT "REPONDEZ i>H (VITE) ", 20 1 30 TIME-0 40 •' 58 R$= I NK£Y$ ; I F R$< >" n THEN 38 60 IF T I NE-/ 58 >4 THEN PR INT "TROP TRRD" : END 78 GOTO 50 80 •' 30 ■' suite INSTRUCTIONS DF RASE I 35 STICK(O) Permet de lire le clavier comme un joystick. Les 8 directions sont obtenues avec les quatre flèches (les directions diagonales sont obtenues en appuyant sur deux flèches simultanément). Les déplacements obtenus sont plus rapides qu avec "INKEYS” (il n’y a pas de délai pour la répétition). Naturellement, c est dans les programmes d'animation que cette fonction est surtout utilisée. $tick( 0 ) égal à zéro indique qu’aucune des flèches n’est enfoncée. 10 ■* TELECPRN AVEC STICK 26 •’ 3 0 CF — i 5 : CL — 2 c o u ! s u. r t o vi d £ t e c r i t u. r t 40 CÜLOR CL ■ CF 50 SCRE EH 3 60 •' 70 G P EN "GRP : " FÜR ClUTPUT AS #1 S© DR RW "BfïlU, 1 70 11 30 PR INT #1, "FLECHES " 100 X~ 1 0Ü : Y - 1 0 ÿ ■' c o o r” 1 d o ti n e e s >4 e P ■?. ft 1 10 ' - — • - — — — c u. r s & u.r cl i 9 ri o t a n t. 120 C'-'STICK'.. 0 > • IF C< >0 T HE N 170 •* test c'U^ier 130 •’ 1 40 FSE TC X , Y > , CL = P SE T( X - Y > • CF 150 GOTO 120 170 FSE T < X . Y Y- CL 130 ' 90 IF 07 THEN X= <~1 •' 9'3.uchh: 00 IF C=3 THEN X= X+l •' droite 10 IF C=5 THEN Y= Y+l bl.Z 20 IF C=1 THEN Y- ï-- 1 ‘ haut 30 IF 08 THEN X- : v“ 1 Y* ï“ 1 Oauche 40 IF C--2 THEN X- «:+ 1 : v= Y- 1 50 IF C-6 THEN X- X~I : Y= Y+l 60 IF 04 THEN X- X+ i : Y- Y + 1 70 * RO IF X< 1 THEN X= 1 90 IF X >254 THEN X=254 00 IF Y< 1 THEN Y- 1 10 IF Y > 1 : 30 THEN Y- 1 W0 20 GO' ru L ,j0 STICK(1 ou 2) Cette fonction donne la direction (parmi 8) du manche d’un jovstick connecté sur l'entrée 1 ou 2. Les règles d’utilisation sont les mêmes que pour stick<o>. ON STFtlG GOSUB n° HgneO,n° lignel Iîgne4 STRIG(n) ON STRIG(n) OFF STRlG(n) STOP on strig gosub définit les numéros de ligne vers lesquels il y aura déroutement du programme si l'opérateur appuie sur la barre ESPACE ou les boutons de validation des joysticks. 36 I BASIC MSX rf ligne 0 : barre espace n° ligne 1 et 3 : joystick 1 n° ligne 2 et 4 : joystick 2 10 ON STR I Ci G OS US 190 ' clavier* 1 Ci OH S TR I G G G SUE: , 290 .* , 400 •' ,i oy s t i c k 1 STRiG(n) on valide la déclaration faite par ON STRIG GOSUB. STRiG(n) ûff annule la validation. STRiG(n) stop suspend la validation et mémorise l’action sur la barre “ESPACE" ou sur les boutons de validation en attendant ON STRIG(n) ON. n = 0 : barre espace n=1.3 : joystickl n-2,4 : joystick2 10 OH .OR IG GOSUB 100 20 STR[U<CO ÜN S0 ' 40 PR I HT "APPUYEZ SUR ESPACE" 50 GO T 40 66 ■' 9 Ü •' s o u. s -• P r o 9 r 4 rn ro ►=• G N ST R: I G 100 PR 1 MT "JE SUIS PASSE PAR LA" 110 REHJRN APPUYE,: SUR ESPACE APPUYEZ SUR ESPACE APPUYEZ SUR ESPACE JE SUIS PASSE PAR LA APPUYEZ SUR ESPACE APPUYEZ SUR Es P A UE STRlG(n) Teste si la barre “ ESPACE” ou les boutons de validation des joysticks 1 et 2 sont appuyés. n=0 : barre espace n-^1 3 : joystick 1 n=2,4 : joystick 2 10 X=STRIG' 20 IF X=-l ■30 COU: 10 U ■H PAINT "OUI " ELSE PR INT "NON" PAD(n) Lit des valeurs fournies" par des périphériques du type “tablette graphique" connectés sur les entrées des joysticks 1 et 2. ■ joystickl : pad(oi : -1 si valeur disponible pad(1) et pad(2) X et Y pad( 3 ) : bouton de validation TNSTRUC I IONS Dï- RASE 37 ■ joystick2 : pad( 4) : -1 si valeur disponible pad(5) et pad(6) : X et Y pad{7) : bouton de validation 10 IF PRIX 0 K >~i T HE N 1 H bouc U? do t'te'nt-ë 20 100 X-PRIX 1 :■ Y**PfiL>< 2 ) 110 PR INT H, Y 120 GOÏO 10 Le programme ci-dessous trace un dessin par segments de droite à partir du point 100,1 00, 10 3ÜREEN Z 20 FSE T '• 1 00 .. Iü0 30 •' 40 IF PHD-: 0 X >- 1 THE H 40 Per i P Ki tT’ i - ; J.e 50 IF P H IX 3 Y: >-l T KEN 40 C'Ci •' va l i d :?.t iO' i i’ ri Pi 70 X=PR[X 1 1 : Y -Phi Dr Z > 80 LINE ••••'. N.Y;- 93 GOTO 40 PDL(n) Lit des valeurs X et Y sur une palette msx connectées sur les entrées des joysticks 1 et 2. Si rien n'est connecté, la valeur lue est 255. “n” doit être compris entre 1 et 1 2 n = 1,3,5, 7, 9,11 — > joystick 1 n - 2,4,6,8,10,1 2 — > joystick 2 1 O ; --PDL 1 - 1 i- 1 : Y--PDL3 2 > 20 FR INT X,V 30 GO T l i 10 KEY numéro touche,chaîne Affecte une chaîne, représentant une instruction ou commande, à une touche de fonction (Fl, F2,..F10). En frappant une touche de fonction, la chaîne associée est affichée à l’écran. Si la chaîne est suivie d’un retour-chariot, l’instruction ou commande est exécutée automatiquement. 10 KEY 1 , "EUH" +CHR$< 13 > 1Ü KEY 2, "LIST” 38 BASIC MSX KEY LIST Fournit la liste des instructions associées aux touches de fonction. key list colo: 15.4,7 color O O CL: auto cont goto list. list run run KEY OFF Supprime l'affichage, en bas de l'écran, des chaînes associées aux touches de fonction. KEY ON Provoque l'affichage, en bas de l'écran, des chaînes associées aux touches de fonction. ON KEY GOSUB n°ligne1,n° 1igne2,..,n° lignelO KEY(n) ON KEY(n) OFF KEY(n) STOP on key gosub définit les numéros de ligne vers lesquels il y a débranchement si l’opérateur appuie sur une touche de fonction pendant l’exécution d'un program- me. KEY(n) on valide la déclaration faite par ON KEY GOSUB. KEY(n) off annule la validation faite par KEY(n) ON. KEY(n) stop suspend ia validation et mémorise Faction sur une touche de fonction en attendant KEYfn? ON. 10 ON KEY GOSUB 90,120,150 15 ' 20 KEY( 1 ) ON * validation Fl 30 K E Y c 2 0 N •' \t 3 . 1 i d a. t i o ri F 2 40 <EYX 3 UN v.=Q i dation F 3 50 ‘ 6Ü PR INT "APPUYEZ SUR F 1,F2,F3" 70 GOTO 6ü 80 ’ 30 PR INT "FONCTION 1" 100 RETURH 110 •' 120 PR INT “FONCTION 2" 130 RETURH 140 ' 150 PR INT "FONCTION 3" 160 RETURN INSTRUCTIONS DE BASF I 39 ARFUYEZ SUR F1,F2,F3 APPUYEZ SUR F1,F2,F3 FONCTION 1 APPUYEZ SUR Fl, F 2, F 3 APPUYEZ SUR F 1 F 2 .• F 3 APPUYEZ SUR F 1 , F 2 F 3 FONCTION 1 APPUYEZ SUR F1,F2,F3 APPUYEZ SUR Fl , FEU FS ON STOP GOSUB n° ligne STOP ON STOP OFF STOP STOP on stop gosub définit le numéro de ligne vers lequel il y a débranchement si l’opérateur appuie sur xtrustop". stop on valide la déclaration faite par ON STOP GOSUB. stop off annule la validation faite par STOP ON. stop stop suspend la validation et mémorise l'action sur ctr;_ stop - en attendant STOP ON. Le retour s'effectue après l’instruction interrompue (INPUT sur l’exempte). 10 ON STOP GOSUB 110 ’’ mme-r o de üi CTRL-- STOP 20 ' 30 S T OP Cl N * v a \ î d 3. t i o ri i j H S T ü P 4Ô ' 50 INPUT "RePondez».. Ü--'N > " R$ 60 PR INT *' COUCOU" 7Ü IF R*= ,,,, THEN 56 80 ‘ 90 GOTO 50 100 •’ s o u. s ■ - F‘ r o 9 r ?. r»i m e- OH S T OP 110 I NF UT 11 Ü n s . r re te vr a i rn e ïï t ( G /' ht > 1 Y F: F' $ 120 IF RF$= ,, Li" THEN END 130 RETURN 40 I BASIC MSX TESTS ■ IF...THEN...ELSH SI. ..ALORS.. .SINON IF...THEN...ELSE IF expression logique vraie ou fausse THEN suite d’instructions si expression logique vraie ELSE suite d’instructions si expression logique fausse Cette instruction teste si une expression logique est vraie ou fausse. Si celle-ci est vraie, alors toutes les instructions comprises entre then et else, sont exécutées. Sinon, ce sont toutes les instructions après le else qui sont exécutées. 10 I MP U T "Nombre N.* Nombre B " :• Fl , £: £0 IF R>b THEN PEINT "R > B" EL 3F PP T HT "fi ■C«=B" 3Ü PEINT "suite" 4u GOTO l-:S Ok r'ij.Ti Nombre h « N ü rotor & B ? fi <=B •s. U 1 Nombre R .• Nombre B ? 6 ,• £ H / E:* S ij i t- ■=■ h-J ü m b r e h- 1 .• Ho ro b r e E: ' i ; ' En fait, le test peut se faire, non seulement sur une expression logique, mais aussi sur une expression arithmétique qui est interprétée comme fausse si elle a une valeur nulle ou comme vraie pour toute autre valeur. Mais on évitera d’utiliser cette particularité du BASIC. 5 1 =4 10 IF I THEN PR J NT "I est t de @ ,! 5 1-12 iO IF I > 1 Û jT : I 20 > THEN PR INT IJ ï est comP r : s entf e 10 et 20" INSTRUCTIONS DE BASE ' 41 Les IF...THEN. ELSE... peuvent être emboîtés, mais il faut alors bien s'assurer qu’à chaque IF-THEN il correspond un ELSE. 10 INPUT "Norubr'e H.. Nombre - B ".'R,' B 20 IF fl<=B THEN IF fl<B THE H PR INT M R ■ b 11 ELSE i: PIN"ï 11 R- B" J — 1 IU~ PR INT M R >B " I ELSE 42 i BASIC? MSX BOUCLE AUTOMATIQUE ■ FOR ■ N EXT FOR variable-compteur = valeur début TO valeur fin STEP pas ■ instruction 1 ■ instruction 2 NEXT variable compteur Permet d écrire des boucles de façon plus concise. Lorsque l’instruction for est exécutée, le BASIC MSX affecte à la ‘Variable- compteur” la “valeur début” spécifiée et mémorise la “valeur fin” indiquée après to. Toutes les instructions entre for et next sont d'abord exécutées avec ‘Variable- compteur”=“valeur début”. L'exécution de next augmente la valeur de la “va- riable-compteur” du pas spécifié dans step (1 par défaut). Si la valeur de “variable-compteur” est inférieure ou égale (pour un STEP positif) à “valeur fin", l’exécution se poursuit à l’instruction après for. Par conséquent les instructions entre for et next sont à nouveau exécutées avec la nouvelle valeur de la variable-compteur, Si la valeur de la “variable-compteur” dépasse “valeur fin” (pour un pas po- sitif), l’exécution de la boucle s'achève et le programme se poursuit après NEXT. FOR Compteur 4- valeur début stockage de ‘valeur fin” * Instructions entre FOR et NEXT NEXT A la fin de la boucle, la “variable-compteur” a une valeur égale à “valeur fin” INSTRUCTIONS DE BASE i 43 Exemple : Le programme ci-dessous affiche les carrés des nombres 1 à 4 10 F OR U-~.t r'ü 4 ' F'ijJIR r=l . il Vï.îM I ' h 4 ;.?ü PR I HT C * C tC 30 Nt.'v! L RUINENT ER L- PUIï RL. Le. R H P h' ES F U h' J i ' T 4 40 PR INT "FIN 1 ': C Ok Exemple avec STEP négatif : 10 FÙE C=4 ro 1 S TEP- 1 20 PPJ N T C C tC 30 NE 2 T C: 40 PEINT "FIN" ;C Ok ROM 4 LC i 1 PIN 0 Calculées au moment de I exécution de l'instruction FOR, donc une seule fois, “valeur début 11 , “valeur fin” et “pas ne varient pas en cours d'exécution de la boucle si les valeurs des variables qui ont servi à les calculer évoluent pendant l'exécution. En revanche, la valeur de la variable-compteur peut être modifiée. 10 F~ 1 20 X=10 30 FOR 1-1 40 IF 1=5 50 PR i ITT F0 NEXT I ûk R U N 1 2 3 Tu v R HD F 4 44 ! BASIC MSX lu FOR 1 = 1 Tu S 2ü PR INT I. ; 30 INPÜ T" NOMBRE " • r'T f > 40 i F H-: l >0 f HEM PR INT NEXï i !..H. RJ J H r 1 NOMBRE _il 4 a NOMBRE ■? -?! ItRREUR _ "Ë NOMBRE "ERREUR : " 1 ^ I - 1 Ün revient en arrière ü NOMBRE 4 NfiMRRR C est en fin de boucle que se fait la comparaison de la valeur de la variable- compteur à la valeur finale. La boucle est donc exécutée une fois si la valeur finale est inférieure à la valeur initiale (pour un incrément positif}. lü D-5 • F=2 20 FOR I -=Ij lu b 30 PR INT J. 4ü H EX T I Qk R UN Pour éviter cela, il faut ajouter un test : 25 IF F<D THEN 40 Si la "variable-compteur” est du type entier, l'exécution de la boucle est plus rapide BOUCLES EMBOÎTÉES Plusieurs boucles for... next peuvent être “emboîtées . c’est-a-dire qu’une boucle peut être placée à l'intérieur d’une autre. Mais il est interdit de les faire se che- vaucher. Exemple : l 11 FUR l==t 1-ï 2n PR INT !l 1 ::: ; -.4 * T U R J -■ 1 J O ; PR I NT J; bu H EX f ... b U F’ R 1 NT 70 NEXT 1 M-. r ü.m i ■- 1 J= 1 i .. I - 3 J= î ■ ' b o lii- :< t - : ■ ri if DOUC* .1 i rl i" 1 1 4 5 t, 7 4 j b . ■ 4 S 6 . 1 INSTRl CI IONS DE BASE I 45 S'il n'y a pas d instruction entre NEXT J et NEXT I, NEXT J.l donne le même résultat. NEXT (au lieu de NEXT J) est accepté, puisqu en fait NEXT incrémente le compteur du FOR le plus récent et que celui-ci est supprime dès qu’il atteint la valeur limite. Mais pour des raisons de lisibilité, on indiquera le nom de la variable. SORTIE D’UNE BOUCLE FOR On peut sortir d une boucle FOR par "GOTO" sans problème. (Les versions Microsoft antérieures posaient un problème dans le cas où un indice non “épuisé” était utilisé dans une autre boucle FOR “interne' 1 .) 10 F DR 1 - 1 Fu !;.• TU I F ï-".-: " V HEN GOTO :50 ' sortie k. r GÜTO 30 NE: AJ I 4M ' j0 FOR 1 T I I k.M f- IJ R I“1 lu 4 ' [ ’J t- î 1 ï. fini I 1 1 70 RR INT " 1*=" ;I, 00 NElr T I 85 FR INI 90 he;=-:t j 100 PR INT PRE'. 0 110 GOTO 1.0 ük ru n I -■ 1 1== 4 I- 3 J~ 4 1=1. 1^ 2 1===- 3 I * 4 I-- 1 1* 2 I = = 3 1“ 4 1 £034 1- 1. 1= Z 1- 3 1= 4 i= i i* 2 :o 3 I* 4 1= 1 2 1= 3 1= 4 12Û34 TRAITEMENT DES DONNÉES I 3 LES DONNEES ■ DATA ■ READ ■ RESTORF DATA L'instruction data permet de définir des données dans le programme lui-même. Ceiles-ci sont ensuite lues dans des variables par l’instruction “read variable” (LIRE variable). 80 PR I NT 1 1 Mo* e mie : 11 ■; Ml +N2+N3+N 4 ) -'4 Ük ru ri 10 16 13 14 Moyenne : 13.35 Basic lit successivement les valeurs 10,16 13.14 dans NI, N2, N3, N4. READ “READ NI” lit la 1 re donnée (10) dans NI. Le pointeur de DATA (géré par BASIC) progresse de 1 . Ainsi "READ N2” lit la 2 e donnée dans N2, etc... M l BASIC MSX Les données peuvent être écrites sur plusieurs lignes : 10 D Fl T fi 16 .1 1 b 20 DP TP 13,1 4 Les lignes 10 et 20 sont équivalentes à la ligne : 10 DATA 10,16,13.14 L'implantation des DATAS dans un programme n’a pas d'importance. Elles sont lues dans l'ordre de la numérotation. Les chaînes de caractère comportant des caractères spéciaux doivent être pla- cées entre guillemets. Sur I exemple ci-dessous, sans la présence de guillemets, la virgule serait consi- dérée comme séparateur. lû DP T fi "12.ru.* LHQ'iFFE ” 26 •' 30 RE PD 40 PR INT X$ Ük r un 12 ■ rue L P GAFFE RESTORE Positionne en début de DATA ce qui permet de relire les données depuis le début. lu DATA 6,3,14 20 ■' RE RD H, B, L. 4 U ' 5m RESTORE 6 U ' 7 h RErlD D , El • F 8 y: •' 05 PRIHT 3ù PR INT Mi B, C 100 PR INT D : E .. F : r»! n b 3 14 é 3 1 4 liiü l-' t 1. Çrt-U r € debo.t DR T R L t: ctu.r 0 RESTORE n° ligne Positionne sur le numéro de ligne de DATA spécifié, vous permettant ainsi de sélectionner des données particulières. TRAlï f ME N ! DES DONNÉES ' 49 10 DRT R 6/3 , 14 20 DATA 42 , 8 30 RESTüRE 20 40 rerd ;;..y ■émt <L 50 PR INT X; Y; Z Ük rU. T: 4 £ 8 ERREURS ■ OUT OF DATA : u . . n ATA Si le nombre de READ exécutés est supérieur au nombre de données en DA 1 A, le message out of data est affiché. 10 DfiTR 15.- 10v_- / 15 ■' £0 RE RD X 30 PERD Y 40 PERD Z Ok ru n Out of DRT R iï> 4C1 Il manque une donnée ■ SYNTAX ERROR : , Le type de la donnée lue doit s'accorder avec le type de la variable. Chaîne 1 fi D R T R b * 1 1 3. n 9 e r 15 •' 20 RERD X _ Ük ru. ri S y n 1 3 £■ r r o r î Numérique n La donnée (type chaîne) ne s'accorde pas avec le type de la variable (type numérique) L’exemple ci-dessous lit un nom au hasard dans une liste de 4 noms. 1 fi D h T fi Pie r r" e ■ P -3. u. 1 .* ..i &c ^ u. e s .• n i c o 1 •?. s. 20 ' 30 •' 4G PE STORE 50 INT< R N [K 1 >*4 ) 60 •' 70 IF X=0 THEH 100 80 FOR 1=1 TO K : RERD : NE ri T I 90 * 100 RERD NOM* 110 PR INT NOM* 120 GOTO 40 ük ru. ïi . i .g.c^ UPS p i erre fi i CO 1 '3.5 50 BASIC MSX i Ci-dessous, nous sélectionnons un groupe de DATA. Chaque groupe peut comporter plusieurs lignes. La fin de chaque groupe est repérée par le caractère 1 0 DRT fl ma t sort ■ P or te , cha rnbre 20 DATA t 20 DATA Jearvi p terre.' Pau t , .i.qrqiipc. 40 DATA 4: tü DATA r oue , cadre .• f re 1 n , P eda 1 * , ] ] r 60 DATA t. 70 ■' 86 RESTORE 90 1 NF'UT "Quel RrouPe < 1,2,3;. 1 00 •' 110 IF G =1 THE N 170 120 ' 130 ' 140 READ ,•:$ IF THEN G=G-1 : GO TH 110 150 GOTO 140 1 60 ' 170 READ MOT $ 180 PRIAT MOTS l:?0 GOTO 8ü Ük rur, Que 1 9rou.Pe ■il. -2, 3) ? c. J es n Que 1 9 pou, p e < 1,2,3) ? 1 niai si on 1er data du. 9rou.pe TRAIT! MI N ] DES DONNE! S SI LES TABLES Les tables contiennent des éléments de même nature auxquels nous accédons par un indice. Nous pouvons ainsi traiter les éléments d’une table en faisant simplement varier un indice. Une table comportant plus de 10 éléments doit être dimensionnée par DIM nom- table (nombre éléments) Soit une table des dépenses relatives aux 12 mois de l'année. Les éléments de cette table que nous appelons depenseq sont connus sous les noms de oe- PENSE(1 ), DEPENS E(2),.., DEPENSER 2). TABLE DEPENSEQ 1 2 M=3— ► 3 4 5 6 7 8 9 10 11 12 Pour documenter la table, nous faisons varier un indice M de 1 à 12. 10 DIM DEPENSEE 12 > 20 ' 30 FOR M~1 TO 12 40 PR INT 50 INPUT DEPENSE-:; M > 60 NEXT M Mois 1 ? 1206 Mois 2 ? 1106 Mois 3 ? 1300 Mois 4 ? 700 Mois 5 ? 300 Mois 6 ? '300 Mois ? î 1000 Mois 8 ? 1280 Mois 3 ? 1100 Mois 10 î 1400 Mois 11 ? 800 Mois 12 ? 1200 1200 1100 1300 — DEPENSE(I) -DEPENSER) -DEPENSER) \ 52 I BASIC MSX Au départ, ( indice M étant égal à 1. l'instruction INPUT DEPENSE(M) est équi- valente à INPUT DEPENSE(I). Par conséquent, c'est dans l'élément DEPENSER ) que la première valeur est introduite. Au second passage dans la boucle, M étant égal à 2, c'est dans DE- PENSER) que la seconde valeur est introduite. Etc. Pour connaître le total des dépenses entre 2 mois Ml et M2, nous écrivons : 10 1>IM DEPENSE':; 12 ? ,:!0 ' 30 FOR M= 1 TU 12 4U PR 1 NT " Mo i s 11 , M ; 0 U INPUT DEPENSE': M> SU MENT M 90 PR INT 100 INPUT "Mois l",Mi 110 INPUT "Mois 2", IIS 120 •• 140 TTflL=0 150 FOR M=M1 TO M2 1 60 TT R L ~ T T R L + D E P E N 3 E ( M 1 170 MENT M 180 PR INT 1 90 PR I NT " Tôt. a 1 ; " ; M 1 M2 .; T T RL 200 GOTO 90 U. M Mois 1? 1 Mois 2? 12 Total : 1 12 12700 Mois 1? 1 Mo i s 2? 6 Total : 1 6 6000 Il existe pour les tables un élément 0 : 100 A(0)= 15 TRI DES ÉLÉMENTS D’UNE TABLE Rangeons dans l'ordre croissant les éléments d une table. Pour cela, nous allons utiliser l'algorithme suivant. Nous comparons d’abord le deuxième élément de la table au premier : □ s’il est plus grand, nous les laissons dans l'ordre n s'il est plus petit, nous les inversons afin qu'ils soient dans l'ordre. IkAniMI N I f)l $ DONNFFS 53 120 I F PK 1 + 1 KH( I v T H EH SURF RC I + 1 ?, H( I ) INV-l I ! I Ensuite, nous progressons de 1 pas en comparant de la même façon le troisième élément au deuxième, et nous les inversons s'ils ne sont pas dans l'ordre, etc. Lorsque nous arrivons à la fin de la table, nous regardons s'il y a eu ou non inversion : n s'il n'y a pas eu d’inversion, c'est que tous les éléments sont dans l’ordre ; □ s'il y a eu au moins une inversion, nous nous repositionnons en début de table . et nous recommençons. Après la première exploration de la table, le plus grand des éléments de la table est en fin de table. Après la deuxième exploration de la table, le plus grand des éléments restants est en avant-dernière position. etc. Ainsi, après plusieurs passages dans la table (N pour éléments) tous les élé- ments seront dans l'ordre. Sur l’exemple, nous explorons systématiquement toute la table. En fait, nous pourrions réduire la taille de la table explorée de 1 à chaque passage. La variable “INV” sert de témoin pour tester en fin de table si on a. au cours de l’exploration de la table, fait une inversion. Remarque : la méthode de tri utilisée (“RIPPLE SORT ’) qui a l'avantage d'être simple à comprendre (et à programmer) est rarement utilisée en pratique dès que le nombre d éléments à trier devient important. C’est en effet une des plus lentes que Ton puisse trouver. 1.0 ' TRI DES NOMBRES D ‘ UME TABLE ;?0 1 >U ' MD N U I •::> I T IGM N ONE R ES 40 ‘-h S ' j 1 1"| l'i ! [ j J- : • s* j J. i « 1 i 1 ■ 0 F'ÜF: 1-1 TU H 00 INF' IJ T "MÛMEiRE " • U> I > 7Ü o fi NET T I 90 100 i 1 0 FOR 1=1 i 0 H 1 1 214 IF M-l ><i ::: E .[ ) THE N S UHF R; I T. RK 1 + 1 I NV -J 1.30 HE TT I i. 49 IF I NV - 1 T HE N 80 ' h s. x -s. 1 eu. i'ny ' 3 1 C'ï !. 50 •’ - - - ed U ION L 60 FOR 1=1 TO H 170 PR INT fit i :■ 180 NET T I 54 ! BASIC MSX ru. n NOMBRE • NOMBRE ? NOMBRE ? 4 NOMBRE ? O NOMBRE " 4 ■-4 COMPARAISONS 2 4 6 8 9 SHELL Avec les méthodes de tri du type RIPPLE, un grand nombre placé en début de table ne remonte que progressivement en fin de table. Avec SHELL, la compa- raison s'effectue entre deux éléments séparés par un écart égal, au départ, à la moitié de la taille de la table. Ainsi, un élément grand en début de table “remonte ' plus vite en fin de table. 1 + écart W 1 i Ecart = N-2 2) Ecart N/4 3) Ecart - 1 jusqu'à ce qu'il n'y ait plus d’inversions La comparaison se fait ensuite avec un écart égal à N/4 et s'achève avec un écart égal à 1 (comme RIPPLE). La méthode de SHELL METZNER est deux fois plus rapide que SHELL. 10 ■; i RI ■: ÏHELL 2 m 30 NF I r H =3C i 40 DIM H'.. N F ' I CH > 50 FOR 1 = 1 TÜ NFICH 60 TIME >y I >=RN IX 1 > ^ HER T J. I KAI'l EMHN'I DKSIJONM : S !•; ! £ •b MK 1 ~ H/-' .i. b h 0 ■ 1 OU 1 j.;iïp J !' I l *: fc'CRP'f ■■■ '2 ) • I F' EbHi i i 9 1 2 b i i -ÎV - K 1 JÜ FOR J. •• : 1 fij HFICH E&RR7 i. 40 L 3 i EL H K 1 i SH IF r v L ')< rK I TH(£N SHHP ! ,: i : J. b ' J NE! 3! i 1 i 0 IP J!' V-l IME N 120 ;L :J0 GO 'T u 1 i :j0 •' - ■ EDITION j0y PR IN 'i " TEMPE " ; Il HE- '50 i 0 FUR J ! Tü NPI Ül-H PR .INT FK 30 N F I CH “"'30 4ü DIM fit] MF! CH ) 30 FOR 1 = 1 Tü l-IF'ICH 4: 1 -=RHIX 1 .V HEX1 I OU T I ME -Ü 30 ECHPKI4I tC H y 0i J. O0 Eu RE T -1.10' b0Hh:i ■ IF ECHRT 1 TH EN 330 1 IN J---1 ■ K--HFICH ETRE T 120 •' 130 I~J 150 L--I + ECRRT 160 IF H-:. 1 =]-i( L ; THEM 210 1?0 SUSP H' 3 >,R(L *• 180 I-=I ÊCRRT IF Kl THEM 310 190 GOTO 15@ 200 ' 210 K JH 1 • IF J :-K THEM 100 EL SE 139 220 •' - 230 PR INT TIME- 50 240 FOR K=1 Tü HFICH : PR INT H( I ) : N EXT I TABLES A PLUSIEURS DIMENSIONS Plus généralement, les tables peuvent avoir plusieurs dimensions déclarées par : DIM nom-table (diml , dim2,„.) Soit une tabie à 2 dimensions contenant des stocks de voitures, de différents types et de différentes usines. 56 1 BASIC MSX STCK(IJ) STCK(1.2) USN \ i \ STCK{2.1) 10 5 DIM STCK(4,5) Réserve une Type — 8 i table de 4 lignes et de 5 colonnes / t t Usine 1 Usine 2 Usine 5 Voit 1 Voit 2 Voit 3 Voit 4 Documentons la table à l'aide de l’instruction INPUT : J g ÇIM STCKX 4 / 5 ;• 30 FOR TYPE-- 1 TÜ 4 40 FOR USN*1 Tü 5 50 PR INT " 3 T OCR / T VPE : " ; TYPE i 11 Ü 3 1 NE " . USN , 60 LH PU T STCK'-i TYPE , USN 70 MF Y T USN 38 ne: t type ük RIJN STOCK /TYPE : 1 USINE : 1 ? lü STOCK /'TYPE : 1 USINES £ 5 STOCK .--TYPE : 1 USINE 3 1 3 S T CO •••''TYPE: : 1 USINE : 4 ? 7 S 1 U U K "''TYPE” i USINE : 5 Y 3 ST CO / TYPE 5 2 USINE 1 ? 8 STOCK /TYPE : v USINE = 2 ? Lorsque la table est documentée, pour connaître le nombre de véhicules d’un type, toutes usines confondues, on fait : 1O0 J. H PU T "QUEL TYPE " * TYPE 110 120 TTflL-0 130 FOR USH n l "lü 5 1 40 TTflL-TTRL+STÜKX TYPE , USN J 150 NEXT USN 160 170 PR.INT 11 TÜTHL TYPE - " TYPE, TT RL. ük RIJN QUEL. TYPE T 2 TÜÏHL TYPE- 2 47 Type 2 -*• 47 TRA1THMLN1 DES DONNEES 57 Comme pour les tables à 1 dimension, ia déclaration d une table à plusieurs dimensions, toutes intérieures ou égales à 10, n'est pas néœssaire. Alors qu’une table et une variable peuvent avoir un même nom, plusieurs tables, même si elles ont des nombres de dimensions différents, ne peuvent avoir le même nom. Exemple : 10 DIM fi< ? > ; DIM fe 7 ■ ÿ :■ est interdit ERASE nom-table Efface une table en mémoire centrale. La place est récupérée par basic et la table peut être à nouveau dimensionnée. 36 I )-3TR$( I > 40 NEXT I 50 ' 60 PR INT FRE< 0 >; FRE< K% ) 70 EftfiSE h$ 80 PR INT FRE< 0 ) ; FRE< X$ ') 90 ' 100 DIM fi$< 15) ru 'o 12044 59 12205 200 d 1 F'ïétis i ûïï 5L 1 ef face* Fient dimension 15 ERREURS CLASSIQUES Lorsqu'une table n'est pas dimensionnée par DIM. elle est dimensionnee par défaut avec 10 éléments par BASIC dès qu'un élément de la table est référencé en lecture ou en écriture. Si une instruction DIM est exécutée après le dimensionnement par défaut, le message redimensionned array est envoyé par BASIC. 10 FK4>=15 •’ d i mens 1 armement i mF' 1 ici te 20 01 ri H< 20 > Il faut dimensionner la table avant de référencer un élément. Lorsqu’une table n’est pas dimensionnée explicitement par DIM et que l'on essaie de référencer l'élément 1 1 , on obtient le message subscript outof range. Il faut ajouter : 5 DIM A(15) 10 FOR 1=1 TO 15 20 PR INT FK I); 30 NE R T I SH i BASIC MSX OCCUPATION MÉMOIRE Par défaut, les tabies numériques occupent 8 octets pour chaque élément (double précision) Les tables déclarées entières (%) occupent 2 octets par élément. 10 PR 1 NI F REC. ÿ > Æ DIM H : . 100 ') 30 PRIM'f FRE.OZO run 12395 11579 IR Pki N T i : E m ■ ..'h DIM FF,- :V PF' I h T F RL 1 ' 0 • TRAITE MJ:. N ! DTS DONNE: HS 59 LES CHAÎNES DE CARACTÈRES ■ mis ■ LUN ■ ASC ■ STRINGS ■ HLLXS ■ RIGHTS ■ SIRS ■ CHRS ■ SPACES ■ BINS ■ MI DS ■ VAL ■ INS 1 R ■ OC PS L'affectation d'une valeur à une chaîne s écrit : nom de chaîne = « suite de caractères » Exemple : 10 NOMS = » DUPONT » Les “ « indiquent que DUPONT doit être interprété comme une chaîne de ca- ractères et non comme une variable. La longueur d'une cha ne de caractères, qui n’a pas à être déclarée, peut varier en cours d exécution du programme (jusqu'à 255). De même, la longueur de chaque élément d'une table de chaînes peut varier dynamiquement. L'espace prévu pour les chaînes est de 200 caractères par dè’aut. clear ‘espace chaîne" permet de définir cet espace, print fre(x$j donne l espace libre pour les chaînes La concaténation (réunion) de chaînes de caractères est réalisée par I operateur noté « 4 ». 1 ÿ NCiN^'T'l IP* INT" 20 PREM*-"JErlN ,: 30 NFS=NÜM$+FkËHS 40 F'F’ThT NF'$ F: U N DUPONT JERN COMPARAISONS La comparaison de chaînes de caractères se fait avec les operateurs : Les chaînes sont comparées caractère par caractère de la gauche vers la droite jusqu'à ce que l'un des caractères d une chaîne soit plus grand que l’autre (code ASCII supérieur), C’est alors cette chaîne qui est considérée comme la plus grande (“DURAND” est plus grand que “DUPONT"). Si tous les caractères sont égaux, les chaînes sont considérées comme égales. 10 INPUT " 1ER NON ".Ml* 20 INPUT "2ENE NOM " • N2* 30 IF N1$>N2* THEN PRINT Ni$- " PLUS G F: RHO l'UE " - N 2$ 40 IF H 1 %< H2$ THEN PRINT NI* ; " PLUS PETIT !UE " ; N2$ S0 GOTO 10 P UN 1ER NOM DU R R NO 2EME NON ? OU POND DI IRflND PLUS GF: R NO QUE OUPOND 60 I BASIC MSX Le programme ci-dessous teste une réponse au clavier. 10 R$= " " ■ INI UT "REPONSE 01 H- NnH " ; R$ £0 IF ft*="ûi. I" THEN PR INT "VOUS R VE T DJI ni H " 30 IF R$="NmH" THEN F'RIHT ‘‘VOUS RVEZ DIT NON' 40 IF R$-"" THEN PR INT "VOUS RVEZ APPUYE SUR RET'I IRN > " S0 Gui" ij lu Remarquez l'initialisation de RS en 1 0 (chaîne vide) ainsi que le test d'une chaîne vide en 40 (IF R$ = “ ”). LEFT$, RIGHT$, MID$ left$. rights, mid$ permettent d’accéder respectivement aux caractères de gauche, de droite et de l’intérieur d’une chaîne, LEFT$ (CHAINE, longueur à prendre à gauche) RIGHTS (CHAINE, longueur à prendre à droite) MIDS (CHAINE, position début, longueur à prendre) “CHAINE” "longueur à prendre ' et “position début 11 peuvent être des expres- sions. Les valeurs de ' longueur à prendre” et de "position début” doivent être comprises entre 0 et 255. Exemple : NOMS - MIDS (X$. 3. 4) SX$ - LFFT$ (XS. 2) / . — ^ MR t BALU JEAN i 10 "(TEBMJJ. JEH fh ■■ 20 bX$=LEFl $K i 2 > 2 caracti 00 pren$=r:gk , 4 > ' 4 c arc a tu 40 Nori4=Mii %(.: .. 3.-4 j ' 4 car a et' 50 PRïMl £•• $ ; h »i PREH*, Ok PRENS - RIGHTS (XS. 4) a 9.? u.c:hfc'- a droite a Partir du. 2e me ru. n MR JEAN B H LU Dans l'exemple ci-dessous, nous testons la première lettre de la réponse : 10 IHF'UT "REPONSE (OUI -'NON) " R$ 20 IF LEFT*(. R$, 1 :>="0 ,J THEN GOTO 100 TRAITEMENT DES DONNEES ! 61 Autre exemple : 10 N0M*= ,l DUB0NLT ,> 20 FOR 1=1 TO 7 30 PR INT LE F f$< NOM Et. I 40 NEtfT 1 Ok ru.ïï D DU DUB DUBÜ DUBDN DUEGNE OUBüNET Si “longueur a prendre” spécifiée est plus grande que la longueur de la chaîne, le résultat est la chaîne elle-même. Lorsque “longueur à prendre” n est pas précisée dans mid$. cette fonction de- vient équivalente à hights. Si “position début” spécifiée dans mid$ est plus grande que la chaîne elle-même, une chaîne vide est retournée. MID$(CHAINE1 , position début, longueur à remplacer) = CHAINE2 Permet, à partir de position début” dans ’CHAINEI et sur la longueur spéci- fiée, de remplacer des caractères par ceux de “CHAINE2". 10 K $ ' M R B H L U J E H N ‘ 1 20 :•=:*. .3,4 M xx : 11 30 PR INT >■% ûk ru.ïï MRk:x;vvJERN Attention : ne permet pas l insertion ou la suppression de caractères mais seu- lement la substitution Si “CHAINE2” est plus longue que “longueur à remplacer", seuls les premiers caractères de “CHAINE2" sont pris en considération. Si “CHAINE2” est plus courte que “longueur à remplacer, i 1 n'y a substitution des caractères que sur une longueur égale à celle de “CHAINE2”. LEN (chaîne) Donne la longueur d une expression chaîne. 10 NOn$="[>IJPÜNÏ r 20 L=LEN( mm 30 PR INT L Ok ru. n b 62 : BASIC MS\ STRS(X) Convertit une expression numérique X en une chaîne de caractères. 2 u ÎP$':. 2 •' 20 FRI NT 2$ , LUI : ' ük ruri 122: 4 Remarque : Le premier caractère de la chaîne est réservé pour le signe C est un espace pour un nombre positif et un signe ; 1 pour un nombre négatif. 1 0 F F: 1 H 'I N 1 f.'$< 5 T F' $ •, 1. 22. .• 2 • 1 ' ~ - 1 VAL (chaîne) Fonction inverse de str$, elle donne la valeur numérique d'une expression chaîne. 10 > 1 2 -2 F F ri ML S 20 :• :-vhl :>;$:• PP INT 2 ut. r u i'« Si le premier caractère n’est pas un caractère décimal, un espace, un signe “ + un signe ou le résultat est égal à zéro. 10 F R INT VHL\ ,! i 22 1 ' 20 PR INT VHL*. "H- 122" > 20 PR INT ! •' I ■ H I . •. "RI 2 : " :> CT kUh [ tL- O H ASC (caractère) Chaque caractère a un code interne (code ASCII) auquel on accédé par la fonc- tion ASC (CARACTÈRE) îû 20 2 ""H SC 1 ' 2$ 20 PR IN T N Ok RUH TRAITEMENT DI S DONNEES l 63 ASC (chaîne) Donne le code ASCII du premier caractère d une expression chaîne. 10 PR INT h SC • "PÛN JOUR” : >06 Une chaîne nulle comme argument provoque une erreur (Illégal Ponction Calf). 0 X$- : " 1 P'KliTI FiGL-I X$ ) CHRS(X) Fonction inverse de la fonction asc, elle permet de générer des caractères ayant pour code ASCII la valeur de X. Cette valeur doit être comprise entre 0 et 255. X peut être une constante, une variable ou une expression. 10 FOR C=S5 T Ü 63+23 PR INT CHR9K C-'. 30 N EX T L ük R UN REÇUE F GH I ,.!| : -.LMI-IÜr ; 'URS:'[ UVWNYZ CONVERSION MAJUSCULES — MINUSCULES : En ajoutant 32 aux codes ascii des caractères majuscules, on obtient des carac- tères minuscules. Exemples : 10 PR. INT H Gu. 'h :i h- 32 ;• a 10 IN F’ U T 11 VOTRE NOM • n.i i.u. scu. I > M ■ 1 iüMnr 20 FOR P-l TO LEN'. NOM'ü '• 30 PR1NT CHP$( FiUU l'UDï'. NON$, F , 1 > :• ~32 > 40 NE XI P Ük r • ij.ïi V ü T R FI M 0 M • . nï ;l r i u. £ u. 1 s • : i- ■ • u \ t + ROULE T chr$(X) est utilisé pour envoyer des “caractères de contrôle" aux périphériques (écran, imprimante). CHR${8) CHR$(10) CHR$(13) CHR$(200) provoque un retour arrière du curseur. provoque un passage à la ligne (sans retour en début de ligne), provoque un retour en début de ligne, affiche un pavé. 64 I BASIC MSX Exemples divers : ■ Suppression d’un caractère à droite d’une chaîne : 10 NÜM$~"Ü UPÜNT 14 20 X$“LEFT$': NOMS, LE NK NOM® > 30 RR I HT Y.% ov r'-un DURON ■ Normalisation d une chaîne à une longueur fixe : 5 coiïiP let-e P-?.r des- es-P.?ce-=. a droite 10 HQM$- 11 DUPONT ,J 20 Y$=LEFT$':. NÜMï+ M 30 PR INT Y$ ; Ok ru'i DUR OH T ■ Insertion d’un caractère dans une chaîne : 10 Z$="HRRflR" 2 0 X $ ~ " B 1 1 • P -- 3 •’ c a r ■ a c t e r e e t P o s 1 t i c* n 30 Z$-LE.FT$u 2® , P >+X*+-RIGHT*< Z$ , LE! N 1 '. Z® >~P ) 4U PP INT Z® Ok riifi RR RE HH ■ Remplissage par des zéros à gauche : 10 X=123 20 X5-R 1 GHT$< 3 TR$< 1 80000 1 +X > , 5 39 RF: INT X® Ok ru. n 00 1 23 INSTR (position départ, chaîne, chaîne cherchée) Recherche la position d’une chaîne dans une autre. Par défaut, la position de départ est égale à i : i • Si la chaîne cherchée n’est pas trouvée, le résultat est égal à 0. - Si la chaîne cherchée est nulle, le résultat est la position de départ spécifiée, c Si la position de départ est supérieure à la longueur de la chaîne où s'effectue la recherche, le résultat est nul. TRAITEMENT DES DONNEES i 65 10 X*= 11 DUPONT. JEAN" 15 '' 2 & p-INSTRO<$.- " > •' recherche caractère 30 NGM*=LEFT*< X* • F'-l > 40 PR INT NOM* j P Ôk ru.Ti DUPONT 7 Le programme ci-dessous vérifie si un nom appartient à un ensemble. 10 E*-" JEAN PIERRE PAUL JACQUES 1 * INPUT "Nom " NOM* 30 F*INSTR<E*.-NGM*> 40 IF P=0 THEN PR INT "Erreur 11 ■ OOTO *• O 50 GOTO SU Cette séquence d'instructions permet de répondre à une question ‘Mode ?” non pas par un chiffre, mais par une lettre (plus mnémonique). 1 0 1 MF UT 11 Mode < C H , P , R * M .■ N J " ; M* 15 1 20 p= INST R 1 " CR PPMM 11 .« M* > 25 [F F<2 THEN BEEP ’ GOÎ Û 1U 30 ' 40 on p-l GOTO 10ü- 200, 300.- 400, ...HO 50 STOP £0 1O0 PEINT r ‘ l.i 9 ne 100" STOP 20O PR [NT ,, Li3 ne 200" STOP e- Titrer C -HT-,.. F os 1 1 1 o m c ? r v •- t «= r • e Ch a L ••••ide : FOU f r F * Remarque :Si M$ est une chaîne vide. P est égala 1 .C’est ce qui explique la orésence d'un espace dans l’instruction 20 devant CAPRMN . . La séquence d'instructions ci-dessous vérifie si un caractère frappe apP* bien à un ensemble de caractères autorises : (chiffres plus le suri exe p ). 10 C**INPUT*<1> 15 •* . _ , 20 P^INSTR 1 - 11 Ü 1234567*:*. ' , C* t 3S IF flSCCM^lS THEN 100 35 IF p«0 THEN BEER GOTO 10 40 LIG*=LIG*+C* 50 PR INT C*- 60 GOTO 10 *30 •’ 100 PR INT • PR INT LIG* I e c t u. r e i c r : h. c L r e P ci *. 1 1;. j. o ï'i c 3. r ■ $ c t e r c f r p F 1 e RËTURN? .«i j q i j. f. c -3. r -!?. c t r - e f r •;?. P F' e f.f> BASIC MSX STRINGS (nombre de fois, chaîne) Génère une chaîne de caractères égale à la chaîne spécifiée, multipliée par le nombre de fois indiqué. 10 X*==STRING$', 10.. ,r . 11 > ‘ chai ri «s de 10 15 ■’ 30 PR INT X* Ük ru, 'n SPACES(X) Génère une chaîne de X espaces. X peut être une expression. 1 0 X*= " DUPONT 11 +SPFlCE$< 5 >+ " JERN " 15 ' PP INT ük r u. u DUPONT JERN Notons que la fonction spc ne génère pas une chaîne d'espaces et n’est utilisable qu’avec l’instruction PRINT. OCT$ (expression) Génère une chaîne qui représente la valeur octale de l’argument décimal . 10 PRINT ÜCT*< 24 > ~>30 HEX$ (expression) Fournit une chaîne représentant la valeur hexadécimale de la valeur donnée. La valeur fournie doit être entière (-32768 — >32767). 10 X*-HEX*<14> £0 PRINT X* RUN E BIN$ (expression) Fournit une chaîne représentant la valeur binaire de la valeur donnée. 10 PRINT BIN*U27> 1111111 TRA1TFMFNÏ DES DONNÉES 67 Remarque sur les chaînes : Lorsqu'une chaîne voit sa longueur changer, elle est déplacée dans l’espace prévu pour les chaînes de caractères. La place oc- cupée par l'ancienne chaîne reste perdue jusqu e ce que l’espace chaîne soit réorganisé par BASIC. Pour éviter ces réorganisations (longues), on pourra utiliser mid$(x$,p,l)-“xx" qui modifie la chaîne sans la déplacer. Pour les tris, utiliser swap qui échange les descripteurs dans déplacer les chaînes. Le programme ci-dessous remplit une table de chaîne. La concaténation “basic" - strsm utilise l’espace chaîne et provoque des réor- ganisations. En augmentant l’espace chaîne, le temps de remplissage est nota- blement réduit. lS • 26 CL ER P 1700 30 N’- 200 40 DIM 50 ' 60 TIME=0 70 FOR 1=1 l'Ü N 80 T*< I ' 1 BRS I Ü “ +STR$< I 1 90 N EX T î 10Ü FR I NT "TemPs rem P 1 i s sa 9e : > iNE.-' jU 110 TIME-0 120 PR INT FRF.CXÎ.J 1 30 PR I NT M Te ni P s • M .TI NE- '50 T g n i P s r ■* • ru P 1 1 i s s- a. 9 e 15- 5 2 y Temps. 3.34 20 CLERR 3mm0 T g- m P s r e m P 1 1 s s 3. 9 e- : 1 . 6 3 1300 TemPs' 3-34 68 BASIC MSX LES EDITIONS ■ PRINT ■ PRÏNTTAB ■ PRINT. ■ PRINT SPC ■ PRINT: m PRINT USING ■ POSctCSRUN ■ WIDTH ■ LPOS(O) PRINT expression Un simple print d’une constante, variable ou expression affiche la valeur de celle- ci puis provoque un retour en début de ligne et un saut de ligne. 20 PRINT Ok r uïj 123 PRINT, L'impression de plusieurs valeurs sur une même ligne peut se faire simplement en séparant dans l’instruction les noms des variables ou les expressions par des virgules. 1 0 s 0 M ME -- £00 • M 0 MBRE = 1 0 20 PR I NT SOMME , NOMBRE .• SOMME.- -NOMBRE Ok y u/n £00 ]. 0 20 Mais dans ce cas. l’impression des valeurs est faite selon un format standard (colonnes 0 et 14). Les valeurs sont cadrées à gauche. Sur l'exemple, la troisième valeur devrait être affichée en colonne 28. Mais le nombre d'espaces entre la colonne 28 et la colonne droite de I écran étant infé- rieur à 1 4. la troisième valeur est affichée au début de la ligne suivante. PRINT; Un point-virgule en fin d’instruction PRINT empêche le saut de ligne : les chaînes de caractères sont concaténées, les valeurs numériques sont suivies par un espace et précédées soit par un espace pour les nombres positifs, soit par le signe pour les nombres négatifs. 10 NOM**" DUPONT" £0 PREH$=" JERN r 38 PRINT NOM*; 40 PRINT PRE H* Ok ru.ïï DUPONT JEAN TRAITEMENT! DES DONNEES 69 10 PR INT H DUPONT "J" " n JEHN" — > DUPONT JE RM 10 PR INT 123 = 4 56. -785 — > 123456! -785 PRINTTAB(X) La fonction tab(X) permet de positionner directement le curseur à I intérieur d une ligne en colonne X, X peut être une expression. tab(O) spécifie la première co- lonne. 10 R» 123 6*456 20 PR INT F! ThB< 1 5 > B Ok r lui 123 4 56 “456” est affiché en colonne 15. Attention : Le curseur ne peut revenir en arrière, Si X spécifié est plus petit que la position courante du curseur, TAB ( X) est sans effet, (et LOCATE chapitre “L’écran”). PRINT SPC(X) Avec la fonction SPC(X), X blancs sont imprimés à partir de la position courante : 10 NQM$~ 11 DUPONT " : F'Rï* 11 JEAN " 26 PRINT PRS SPC< 3 > > NQM$ Ok r un JE RH DUPONT PRINT USING Considérons maintenant l'outil d'édition le plus puissant du BASIC : le “print USING*’ VARIABLES NUMÉRIQUES : Sans le print using les valeurs numériques sont cadrées à gauche. Or, c’est généralement à droite qu elles doivent être cadrées. u PRINT USING «#####»; expression numérique Un format défini par une chaîne de # nous permet de cadrer les nombres à droite. Chaque # représente ia position d’un chiffre. 10 X=123 ; Y=1234 20 PR INT US ING " 30 PR INT US ING " Ok ####"; X ####"; Y r un 123 1234 Cadrage à droite Sans le PRINT USING, nous aurions obtenu des chiffres cadrés à gauche. 123 1234 La partie entre guillemets qui représente le format peut aussi être définie par une variable chaîne de caractères : 10 X= 1 23 : Y= 1 234 28 FMT$= "####" 30 PRINT USING F NTstuX 40 PRINT USING FMT$.;V 0k. ru. n 1 23 1234 □ PRINT USING « # # # #.# # » ; expression numérique : Le nombre de chiffres après la virgule qui doivent être imprimés est précisé dans le format par le nombre de # après le 10 X* 123. 456 20 PRINT USING Ok ru. ri 123.46 ) "####.##" jX 2 chiffres après la virgule On remarque que l’arrondi est assuré automatiquement. □ PRINT USING «LIBELLÉ » « # # # #.# # », valariable numérique Un libellé peut être inséré dans le format. 10 SOMMES 23. 456 20 PRINT USING "Total- ####,## FRANCS " SOMME Ok ru. n Total: 123.46 FRANCS TRAITEMENT DES DONNEES I 71 FORMATS MULTIPLES: Plusieurs formats peuvent être spécifiés dans une seule instruction. 1 0 SOMME* 1234 - 567# = TVR* 1 3 20 PR INT US ING "Total ####■## TVR ### % SOMME, TVR Ok run Total* 1234.57 TVR 13 Si le format est le même pour plusieurs variables, on fait : 10 X- 1 23 : Y-456 26 PR I HT IJS I NG " #### . ##'* : 4 , ük run 123.0O 456.80 Le signe "+" n est imprimé que s’il est prévu dans le programme. LO PEINT US ING " ####"; 123 , ; :0 PR I HT LIS ING "+####"; 123 >+L23 3U PEINT US ING +####". -1 2 à 123 Ok Un signe en fin de format provoque l'impression du signe “ ” à la fin d’un nombre négatif. PR 1 NT US 1 MG "####.# ■- " ; - 1 3 . 1 — 1 U . I. - PR I NT US 1 NG ,l #### . " .; 1 5 . 1 1 5 .. 1 2 ,i * 11 placés en tête de format provoquent le remplissage par des des positions inoccupées à gauche du nombre imprimé. En outre ces 2 spécifient des positions pour 2 chiffres supplé- mentaires. 10 PR INT US ING "**:#### 11 . 123 414-123 2Ü PR INT US 1 NG n *::*:#### 11 .: 1234 -441234 2 "$” en tête de format provoquent l’impression du caractère à gauche du nombre imprimé. 1Ü PR INT US ING " $$####" ; 123 — > % 123 combine les effets et “$$4 1Ô PR INT US ING "4:4$####"; 123 - ; 444$ 123 72 1 BASIC MSX Si le nombre de positions spécifié dans le format est insuffisant pour la valeur à imprimer, le message % est imprimé devant la valeur. 10 PR INT IJS ING " ###*', 12345 M23 45 CHAÎNES DE CARACTÈRES □ PRINT USING «\ \» ; expression chaîne : Le nombre d’espaces entre les “V définit le nombre de caractères à impri- mer— 2. 10 RENAULT” 20 PR INT USING” Ük ru ri RE N fl U ^ ^ □ PRINT USING « ! » ; expression chaîne : Imprime le premier caractère d une expression chaîne. ï PRINT « & » ; expression chaîne : Spécifie une longueur variable de chaîne. La chaîne imprimée est égale a la chaîne spécifiée. 1 U NÜM*= 11 POULET" PREN*= 11 N l C OUÏS " E 0 PR I NT us I NG ,J S: ! " i NOM* , PREH* i."u, P-.JN RijULET N Programme pour tester PRINT USING Le programme suivant permet d’entrer par input a la fois le format et le nombre à imprimer. 10 INPUT " For m. , Nombre " FUT*, 20 I NT USING F MT® • NOMBRE. 30 jûTÜ ni m ru fi F 7 or mat Ni or 'ibré % ■? ####.##, 123,. 456 U s, 46 POS(0)-CSRLI N Donnent les coordonnées du curseur. l’RAJTEMF.N'l DES DONNEES . 73 10 LüChTE 10,8 PR 1 NT "NICOLAS" ; 30 PR ï HT FÜ3( 0 ) > USRL1N ük rur j N I COLAS 17 8 WIDTH largeur Détermine la largeur d édition à l'écran. L’affichage est centré. 10 WIDTH £0 Par défaut, la largeur est 37 en “SCREENO" et 28 en SCREEN1 EDITIONS IMPRIMANTE : Pour afficher des résultats sur imprimante utiliser lprint au lieu de print. Pour éditer sur imprimante, on peut également ouvrir un canal vers l'imprimante. 10 OPE N "LPT ” FOR QUTPUT RS # 1 20 RR INT #1 , "COUCOU" 30 CLOSE# 1 LPOS(O) Fournit la position de la tête d'impression de l’imprimante. ÉDITIONS IMPRIMANTE/ÉCRAN : Un même programme peut aiguiller des résultats vers l'écran ou l'imprimante. 10 I N PUT "El ■P fl N OU ! INF PRIMANTE 15 20 IF ÏHEH 'CRT ' ,r 30 if THEN F$- 1 'LP T " 40 t r -.0 1 ’l OPEN F$ F OR ou l PUT RS #1 r,U 70 .■Tl ► : 1— *• BLABLA" 80 CLOSE #1 90 ijUT u 1 y Si l’édition se fait par l'intermédiaire de "crt : \ “PRINT, sépare les valeurs par 14 espaces. 74 BASIC' MSX Le programme ci-dessous affiche sur imprimante la liste des codes ASCII entre 32 et 128. 10 ■' Ecfitio ï\ des codes ASCII 1 3 y FUR O 32 TÜ 63 40 LFR 1 HT J j L'HRÿ'i G ) .> 30 LPRINT 2’.' L’HRSr u +32 ) 60 LPRIHT J +6 4 .i CHRSi'i! C+64 1 70 NEXT C 64 i? 96 33 ! 6-3 R 37 •!?. 34 fl 66 B 38 b 31 # b 7 C S 9 C 36 $ 6:3 D 1.00 d ■Z 1 f « 63 E 101 e 3* <y 70 F 102 f 33 ■' 71 G 103 9 40 ( 72 H 104 h 41 ; 73 I 1 05 1 42 74 J 106" ,i DÉCOUPAGE I A DES PROGRAMMES I 4 LES SOUS-PROGRAMMES ■ COSUB... RETURN GOSUB RETURN Il est fréquent qu’une même séquence d’instructions soit utilisée plusieurs fois dans un programme. Un sous-programme permet d écrire une seule fois cette séquence qu'il suffit d'appeler de différents endroits du programme par gosub n° D’INSTRUCTION. 1 fl fl«3Q B 5 = 1 0 k!0 y-Fi+B 30 P=*R*B 50 PRI NI H B .■ 11 Somme ■ 11 .■ S .■ h P r o d u 4 1 1 1 1 60 •’ 70 •’ 9U • B ”5 _ ■ 100 S“h+e .110 F -R:*: El l! 3 0 P P I NT R ,i "SQiïfffig : 11 3 M Fr üdu. 1 t • Pj Même séquence d'rnstructions 20 GOSUB 500 provoque un branchement du programme en 500 (comme le ferait GOTO 500) mais l'instruction RETURN (RETOUR)) placée à latin du sous- programme provoque un retour automatique après l’instruction qui suit gosub 500, c’est-à-dire ( instruction 30 sur l’exemple. Pour le 2 e appel du sous-programme en 1 00, le retour se fait en 110. 76 i BASIC V1SX _ j. ltl H ~30 : B- 10 ru. ti 20 G iiSUB 5 00 “ < De b' Xt 3 10 ni. AS“P ro :■ om m O ; 9r 4 i?. fl l 'E* 0 F '-n/jn i t . 9 kl i oü 40 •' ^ / / F i m sou. " "P ro 9r ' -3. |ï‘i fl O 90 M -20 = B= :5 j D e b i. 1. 1- £ 0' ,i.£“ P ro '91- ■:?. lYlf'irr’ 100 bOSUB 5 MH x - 5 "•fi’Hi’i Ç ■ -, i. iZ- F'r g du . 1 1 ; 1 00 110 J. 'ij Ci LHD *+ ..N F i vi fik 3 0 1.1. " -P r o 9 r am me 500 510 PR INT "De- b u t s O U. 3 ~ -p ro 9 r • ?.rûnie" t Pi 20 F i J o ki PR I NT R; B.; " S cru rue 1 » . • "F 'r odu.r b • f • . p i • r i 540 ► ■R INT "Fin ■=. 0 u L - F I- o9r .:?r. 1 i > l " i i T! 56 h ET U RM r~Relour automatique I à l'inslruction qui I suit GOSUB On remplace par un sous-programme Un sous-programme peut lui-même en appeler un autre. Les adresses de retour (90 et 540 sur l'exemple) sont gérées par Basic à l aide d’une pile. 50 60 70 80 GOSUB 500 90 100 110 500 510 530 GOSUB 1000 540 550 560 RETURN 1000 1010 1030 1040 1050 1060 RETURN Pile des adresses de retour Les instructions sont exécutées dans l'ordre suivant : 50 60 70 80 500 510 520 530 1000 1010 ... 1050 1060 540 550 560 90 100 Début du 1 er sous-programme 2 e sous-programme Fin du 1 (,ï sous-programme Retour au programme principal N’essayez pas de sortir d un sous-programme par GOTO, ni d entrer dans un sous-programme par GOTO Les sous-programmes sont utilisés non pas seu- lement pour économiser de la place mémoire, mais aussi (et plutôt) pour les raisons suivantes : □ Par souci de clarté : le "‘programme principal” est plus court. i"! Les sous-programmes permettent éventuellement de répartir la programma- tion entre plusieurs programmeurs. u La mise au point se fait sous-programme par sous-programme. Ainsi on pro- gresse plus sûrement dans la mise au point de l’ensemble du programme, u Dans le cas où la même séquence d'instructions est répétée, une modification dans cette séquence doit être faite aux différents endroits où elle a été écrite (fastidieux). DEC (HT AGI 1)1 ■> PR( KiRAMMHS 77 u Lorsqu'un sous-programme est modifié, la "zone d’intervention est bien dé- limitée ; tout le programme ne risque pas d'être remis en cause 1 Les sous-programmes ont aussi l’avantage, lorsqu’en cours de mise au point, il faut “restructurer" le programme, de permettre une certaine souplesse ; l'ordre d'appel des sous-programmes est à modifier mais ceux-ci ne changent pas, n Plutôt que d'insérer une nouvelle séquence d'instructions correspondant à l’ajout d’une nouvelle fonction, on peut écrire un sous-programme qui est ap- pelé quand nécessaire. Les avantages des sous-programmes sont donc multiples. Aussi n' hésitera-t-on pas à en faire un usage abondant, même lorsqu ils ne comportent que quelques înstructions. 78 BASIC MSX LES BRANCHEMENTS MULTIDIRECTIONS ■ ON X GOTO... ■ ON X GOSUB ON X GOTO n° lignel , n° Iigne2 Suivant la valeur d une variable (ou d'une expression) : 1.2,3,... il y a branche- ment au n c de lignel , n ; Iigne2. n° Iigne3,... S'il ne correspond pas de numéro de ligne à la valeur de la variable, c'est l'ins- truction qui suit "on goto" qui est exécutée. 113 INPUT 11 Votre cmc*î.< Cl,- 2 *•$)” | 20 •' 36 ON CH GOTO ICC 366,- &0Ü 46 •' * t X S6 STOP CH H 2 CH 3 i 100 PR INT 11 CHOIXl * 126 S TOP | A 3 6 . iZ [306 FRI HT 11 CHOIX*. ' | ; 320 S TOP 336 •' ; 5Ô6 PRINT 41 CHOIX 3 ' ” 15 20 STOP ; \ * X - 1 ON v GOTO • \ \ A X = 3 Ok ru.n r T Votre CH0I> Breafc choix ( 1 X. ,■ in 336 ! «£. X 2 ON X GOSUB n° lignel , n° Iigne2,.. k Fonctionne comme on x goto, mais dès qu'une instruction RETURN est rencon- trée, il y a retour automatique après l’instruction on x gosub... 1 6 IriPIJT " Vot r e chû î x >'. 1 , £ , 3 CH 26 •' 30 U N C H G 0 S IJ FJ 1 6 0 3 0 0 5 0 6 40 PRINT "S m i te " 50 L ;0TÜ 10 100 PRINT H CHiJ I X 1 ;l 120 RETURN i j y 300 PRINT 11 UNO I :<2 " 32G RF: T U R N : ;30 500 PRINT 11 CHÜITJ" 520 i ii. RETURN L'f-. ru. n Votr e chOl T l 2 • 3 C'HGI '2 Votre choix (1,2 LES FONCTIONS 5 LES FONCTIONS ARITHMÉTIQUES L argument X peut être une constante, une variable ou une expression numé- rique. ABS(X) ATN(X) CDBL(X) CINT(X) COS{X) CSNG(X) EXP(X) FIX(X) FRE(O) INT(X) Fournit la valeur absolue de X : 100 PRINT ABS( — 35) *- 35 Donne en radians l'arctangeante de X Convertit X en un nombre double précision (avec 16 digits). Elle permet aussi d'effectuer une opération en double précision : 100 FOR 1% = 1 TO 10 : PRINT 1/CDBL(I%) : NEXT 1% Convertit X en un entier avec arrondi : 100 PRINT CINT{ 1.6) -► 2 110 PRINT CINT{ -1.2) «- -1 Donne le cosinus de X exprime en radians. Convertit X en un nombre simple précision (6 digits) ■ 100X = 1234.56789123 : A - CSNG(X) : PRINT A ► 1234.57 Donne l’exponentielle de X. Supprime les chiffres après la virgule : 100 PRINT FIX{ 2.2) 2 110 PRINT FIX{-2.2) ► -2 Donne la place libre en mémoire centrale (l’argument 0 n'est pas utilisé) Donne la partie entière de X avec arrondi : 100 PRINT INT( 2.2) — -► 2 110 PRINT I NT (—22) — ^-3 80 l BASIC MSX LOG(X) Fournit le logarithme (naturel) de X SGN(X) Donne le signe X : on obtient respectivement -1 , 0 ; -Ht pour les valeurs négatives, nulies ? positives. SIN(X) Donne le sinus de X exprimé en radians, SQR(X) Donne la racine carrée de X, (X doit être positif) TAN(X) Donne la tangente de X. SWAP élémentl , élément2 ;i. -J D ' C K R i N I ’ ■ 1 i 4-i FDHP a, V CM i . 1 . I "t j. •’ Î --1 Les valeurs de “élémentl ” et de "élément2” sont échangées. Ces éléments doivent être des variables ou les éléments de tableaux du même type. Pour les variables chaînes. SWAP échange les descripteurs de chaînes seule- ment, évitant ainsi les réorganisations de l'espace chaînes ! kS I ONCTIONS Si LA DÉFINITION DE FONCTIONS En plus des fonctions internes (telles que son. sgn. int, etc ), l’utilisateur peut définir ses propres fonctions par : DEF FNXX (X,Y,Z,...) = EXPRESSION (X,Y,Z,...) où XX représente un nom choisi par l'utilisateur pour identifier sa fonction (les règles d’appellation sont les mêmes que pour les variables! et X,Y,Z,... I û s ar- guments de la fonction. Plus tard, cette fonction sera appelée parle programme avec les valeurs reelles des paramètres. Exemples : ■ FONCTION D’ARRONDI 10 DEF FNflRC X “INT->;+.5 > 23 H- 1 23 . 6 30 B *=345. 2 40 PR INT FNRR's R ).• FNftRc B > Ok ru v i 124 345 ■ FONCTION MAXIMUM DE 2 NOMBRES 1 0 DEF FHMXC X , V >=-( < x >y >*>;•+>:. x-:: = y rr > 20 R= 25 ; B«28 30 PR INT F NM K*; fl.. B ) ■ FONCTION D’ARRONDI AVEC DÉCIMALES 1 0 DEF FNRFK K >“ I NT( N* 1 80+ . 5 t * i8 20 V=FNRR< 12.456 > PR INT V Ok r un 12-46 Une fonction ne peut être écrite que sur une seule ligne de 255 caractères au plus. C’est de préférence en tête du programme que sont écrites les fonctions de façon à être interprétées avant qu’elles ne soient appelées. NOMBRES ALÉATOIRES ET HORLOGE LES NOMBRES ALÉATOIRES Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu ou d éducation. RND(X) pour X > O Fournit un nombre aléatoire compris entre 0 et 1 (1 exclus). lu FOR N*1 T Cl 3 20 PR I HT RNIX 1 :• • 30 N EX T N Ok RUN , 5352 1 343994623 . 1 0658628050 1 53 Lors d'un second "RUN la série est identinue .76537651772823 ük RUN .59521943394623 ' ?£ L‘ ,-j “7 £ 1 *7 *7 O :■ ■ J 1 0658628U5Ü ; Pour obtenir des nombres entiers entre 0 et 9 par exemple, il faut : u multiplier le nombre obtenu par 10 □ prendre la partie entière du résultat, avec la fonction iNT (X) lu F ÜR H-l 1 0 4 2Û kX-RNC".. 1 > 30 Y--X:f:lu 4U Z- INT 1 - ï > 50 PR INT X, V; Z 60 NEXT N Ok R UH .5352194 3 9 3 4 6 2! 3 8 . 3 5 £ 1 3 4 3 5' 4 6 2 3 5 H4 BASIC MSX H L U t> J ; “! b 2 U L 1 S M 1 j ÿ [ . 0 K S !j 0 £ , M j ► j | f ;‘j I • \ . i b * j 3 r b ■ j 1 1 r' ûi! y i « b b "J r' b 5 1 f 1 fiz'B,:-' .*■ Pour obtenir un nombre entier entre 1 et 1 0, il suffit d'ajouter 1 J.0 FOF N- 1 10 Ou FT : ' IN r INlv RN[> ! -T 10 + l , 30 N EX T N Ük FvUb b 0 8 y S 2 0 y y RND (X) pour X O X négatif initialise une série aléatoire qui dépend de la valeur de X Cette série est toujours la même pour une valeur de X. 5 X-RNLX -7 > 10 F Ü R N=1 TÜ b 20 PR INT I NT (. RNP< 1 >*10+1 ); 30 H EX T N Qk R U N RND (0) Fournit le dernier nombre aléatoire. 1Û FOR H-l T0 3 20 PR INT RNPU ) 38 H EX T N 35 PR INT RND 1 - 0 ) Ük RUN . 5 3 5 X 1 3 4 J ÿ 3 T b 2 J . 10658 € 2 8 0 5 û I 5 3 - 76597 65 1 772823 . 76 53 F 6 5 1 772*23 Pour obtenir une sérié aléatoire différente à chaque “RUN” NOMHRLS ALLATOIRhS MT IIORVOGl 85 JÛ X--RN IX -1 I ME r.er-'jt 1 -3 le J. boire .10 F'IJF: II- 1 ru ;:lû f-PINÏ RNL" 1 ;• 4 0 ml-:xt K Lîl*. r j.m . t« 4 i 'i! j •:> i;: - i::' 1 b y 4 4 yf;1 • Z'2 - 7 ■*' r S :;.H S l> : 4 '.'.’l I , 4'rH40:-ri0; : . j *£ 4 £ ^ » r>. • !•' I •■4- 1 ■ *1 i t i -3 1 I U Vit: 86 I BASIC' MSX L’HORLOGE ■ TIME ■ I NIER VA I. OIT ■ ON INTERVAL ■ INTF.RVAL STOP GOSU13 ■ INTHRVAL ON TIME La variable time donne le temps écoulé en 1.50 seconde. 10 TIME-e £0 FOR TP*1 T "j 2000sNEXT TF' 30 •' 40 PR INT "JE "RhVmILLE POUF: VOUS DEPUIS • " TIME 06.: " SECONDES" La valeur de time est comprise entre 0 et 65535. Elle ne peut mesurer des inter- valles de temps supérieurs à 65535/50= 1 31 0 secondes ON INTERVAL=temps GOSUB n° ligne : Définit le numéro de ligne vers lequel il y aura périodiquement débranchement du programme. Le temps est spécifié en 1 50 e de seconde et doit être inferieur à 65535. INTERVAL ON : Valide la déclaration faite par on interval gosub. INTERVAL OFF : Annule interval on. INTERVAL STOP : Désactive la validation mais l’interruption est mémorisée jusqu à ce que interval on soit exécuté. Le programme suivant affiche l'heure toutes les 4 secondes. lu CL S 20 ON INTER VRL*200 GOSUB 120 ' toutes- les 4 secondes. 30 ' 40 INTER V AL ON ' validation I HTERVRL 50 ' go locate: i i 70 B=E+1 80 PR INT "BuUCLE " .. B 90 GOTO 60 i 00 END 110 ■' s û u s- —P r o 9 r s. iïi r* e I N T E R V RL 120 T*T+1 1 30 LUCFlTE 10.. lÿ 1 40 PF: l NT T'*: 4 - 11 SECONDES " .150 RETURM NOMBRES AI J7ATOIRLSl\T HORLOGE 87 Ci-dessous, l’opérateur doit répondre dans un délai de 12 secondes. lü U LS 20 ON INTER VftL-50 GOSÜB 140 ■ toutes G : s = pcr. nd*^ 30 •' 40 INTERVHL ON •' v.? il dation INTERVflL 50 ' 60 LÜCflTE 1 .■ 1 70 PR INT M RePûïide-zCO^N>: 11 80 1 90 R$=INKEV$: IF R$< >" " THEN 120 100 IF T >12 THEN PF: INI "TROP T R RD 11 : END 116 GOTO 90 120 END 130 âous-Pro9rarrir.'ie INTERVRL 140 T=T+ 1 150 LÜCflTE 10,10 160 PR INT T; "SECONDES" 170 RETURN L’ACCES A LA MEMOIRE ET H ENTRÉES-SORTIES DIRECTES / L’ACCÈS À LA MÉMOIRE ■ PEEK ■ VP EF K ■ PC) K F. ■ Y PO K H ■ VA RP I R ■ VDP ■ BASE PEEK (adresse mémoire) Fournit en décimal !e contenu d’un octet de la mémoire, POKE, adresse mémoire, valeur Range une valeur exprimée en décimal (0->255) à l’adresse spécifiée. P o v * 5 000 0 , 65 ‘ 6 5 d •?. Tl -B 50 0 0 0 P 1 r i Ts t p e* k ( 5 0 0 ÿ Ü ' •?. f f i c h e L e c i j n t ç ti u. d e 5 0 0 ü y 50000 Naturellement, il faut que la mémoire adressée soit modifiable. 90 BASIC MSX Le programme ci-dessous affiche le contenu de la mémoire. Les caractères dont les codes sont supérieurs à 31 sont affichés directement. 10 INPI J T 11 ADRESSE DEBUT "..RM 20 IN PUT "COMBIEN D ' OCTETS " : N 30 ' 40 FOR I=RM TÜ HM+H 45 IF I-12*INT< 1/12 >*0 THEN FR INT PR INT I ; TRES 7 ), '* " , 50 X=PEEKX I > 60 IF X- >32 THEN PR INT CHRSOO; ELSE PR INT US ING "####" ;X; S0 NEXT I 49140 49152 0 27P 10 0 "RDRE 49164 SSE DEBUT 49176 RM @7P 26 0 "CQ 491 38 MBIEN l'- OCTE 49200 TS J, ;N 0?P 30 0 ; 49212 0QP 1 . 0 IR 49224 M y RMN 0yp- 49236 0 I 15 12C 49243 I 15 12) 17 z = 49269 I j < 24 >; " * 'M 49272 0P2 Ô XCI 49234 ) y$F'< 0 X 49296 1 5 z < X > 49303 , .ii "## 49320 ##" iX: 0Û.PP 0 49332 1 0 0 0 SRME 32460 R 1 9 0 3"bV 32472 ■ M 3 y 5 te Pi 0 32434 : V ers i oïi 1.0 13 32496 10 0MSX BASIC 32503 0Cor y ri 9ht 1 32520 : 3 y U b y •"1 i cro 32532 e t t. j 3 10 0 1 Bâte 32544 . •“ free 0së"’" 24 3 32556 ■ VÀRPTRfvarîable ou table ou n° fichier) Donne l’adresse mémoire d’une variable, d’une table ou de la mémoire tampon d’un fichier. Si l'adresse obtenue est négative, ajouter 65536. Pour une variable numérique, la valeur est représentée à l’adresse obtenue sur 2,4 ou 8 octets suivant le type de la variable (%,!,#). Le nom de la variable est représenté par les 2 octets avant l’adresse obtenue. Ci-dessous, nous recherchons l'adresse d une variable entière. i.0 RH^-128 .,::0 hD— .'HRPTRv. HH4 .:■ • IF RD< u THEN RD — HD +655 36 ! 30 PR INT "RD-' " .• RD 5fi FOR I-HD-2 TÜ RD+1 : FRI NT PEEKC I ) ; '• NEXT I HD- 49252 65 65 123 0 L ACCÈS A LA MÉMOIRE LT ENTREES S< >RÏ II S DIRECTES 91 Ci-dessous, nous montrons que la représentation interne des variables double- précision est du type Décima! Code Binaire (DCB). En effet 99 DCB 153 binaire. 10 H H - 9 3 9999 9 3 # 20 HL r --VhRP TP7. HH j 30 i F Fi l> < 0 f H E N RD - H D + b5 b 3b! 4 ü FOR 1 «RD 3 l'U RD+ F : PR I H T PEEK s i . : NlîXi 1 8 65 65 72 153 dS2X 153 133 U 0 0 99 décimal Pour obtenir l’adresse d’implantation d une table numérique, il faut rechercher l’adresse de l’élément 0. lÿ DI H BB'j: 2 :• 20 BBtt© >=123 3G BB’iï. 1 >=64 40 BBV. 2 >=32 50 HL'-VHRPTR< BBX. ü IP MD : . 60 PP INI' • RD 70 F U R I “RD IU hD-l 1 6 80 PR INT F'EEK : 1 90 N EX T 1 10O PR INI 1 J y PP I NT " 3 . d » • 1 ; VHRPT F:-:. BBT- 0 ÿ 0 Z 36 66 9 H *d= 49368 y | ' H F. N H i> l : - 0 + 6 3 3 3 1 i i 3 Û 1 2 6 P» 34 V Dimensior Sur l’exemple ci-dessous, nous recherchons l’implantation de la chaîne “AAA$- « BASIC »”. ^ . A l’adresse donnée par VARPTR, nous trouvons le descripteur de la chaîne indiquant la longueur et l’adresse de la chaîne. 10 HH$ - " E/HS tC" 70 hD—VRRF'TR 1 -! FiFi$ •' : 1 P RD-.0 T R EH RI/ "RD +355 3 6 ! 30 PP i NT "RD™" RD 40 PR INT "D3-" , 50 FOR I -R[ 2 70 BD +, 2 ' PR I NT REEL.'' 1.', : H EXT I 60 ' 7Ü hCH-PëEK 1 - h [ 1 + 2 •' * 2 5 6 + P E EK ■■ RD+1 > 80 •' ÿÿ ■ - - ~ — ' — e d 1 1 - i 0 ri d 1 3 . c h 3 . 1 r* ê 100 PR INT "HCH= " • lïCH 110 FOR I-hCH T O HCPOPEEKX RD I2ü PR INT PEEKa>.i 130 N EXT i RD- 4942 b DS 6 5 65 5 10 138 R CH - 48162 6 6 6 5 34 92 : BASIC MSA AD A A Nom de !a variable Longueur AAS ACH - . basic”! A chaque fois qu’une < haîne change de longueur, elle est déplacée dans l'espace chaîne. 15 AAS = AA$ -h X 140 GOTO 15 L adresse ACH de la c . haîne change de valeur à chaque passage dans la boucle. Une table de chaîne est organisée ainsi : AASi ) AAS(O) L i . DUPONT AAS(f) L ; * T MARTIN AAS (2) L ; " . -j i VARPTR(AA$(0)) donne S'adresse du descripteur de la table de chaîne Ce des- cripteur occupe trois octets par élément. Mémoire écran : La mémoire de récran est indépendante de la mémoire centrale, On y accède par vpeek et vpoke (au lieu de PEEK et POKE). V U s \ 1 A Ml MOI U I- I i IM Kl I S Si Rf'lf s H! K I T 1 1 S *>} BASE(n) Fournit les adresses des differentes parties de la mémoire écran. fn“ SCREEN 0 0 Buffer texte (0) 20 FF J'N : "lo.hi-iCËU i 2 Générateur de caractères (2048) • « TM b SCREEN 1 L . 1. i 5 Buffer texte (6144) J hl 204b 6 Table des couleurs (8192) r-j ! 7 Générateur de caractères (0) 4 ”*1 8 Affectation des sprites (691 2} f£* _l 6 [ 44 9 Dessin des sprites (14336) 6 ■319::: SCREEN 2 h •391 2 1 433b b 14'-î- 10 Buffer texte (6144) '••H i o 11 Table des couleurs (8192) i: blCb . 12 Générateur de caractères (691 2) M ! 13 Affectation des sorites (6912) 1 2 vj | :• 14 Dessin des sprites (14336) 1 4 1 4 33c. * c: . 2 04b SCREEN 3 IF 0 15 Buffer texte (2048) 1 •• i l'z 0 f& 1 2 : 17 Générateur de caractères (0) ! i* 1 4 f. 18 19 Affectation des spntes (6192) Dessin des sprites (14336) Ci-dessous, nous éditons la partie de la mémoire contenant la définition des couleurs (32 octets). 10 SCREEN 1 20 CE=4 CF-lü- 30 COLOR! Ct l.F 40 FOR M=BR3E J - b • ÎC BRSEC F- : + 50 PR I HT VF-EEKMU 60 NEXT M 10 SC RE EN 1 20 CE=4 CF- 1 5 30 COLOR CE CF 4ÿ FClF! M-BRiEr t- - ! 70 oh Le code 79 représente : couleur écriture * 1 6 -i- couleur de *ond 94 I BASIC MSX VPEEK(adresse) : Donne ie contenu dun octet de la mémoire écran. 10 SC R E EN ü P h: INT yPEEK.-:; 236$ > R U N Le contenu de la mémoire 2568 donne la valeur 32 qui correspond au premier des 8 octets représentant le caractère A (voir chapitre “Redéfinition des carac- tères"). VPOKE adresse, valeur Modifie le contenu d un octet de la mémoire écran. En frappant : SÜREEN 0 VPOKE 1 50 ■ 65 vous voyez le caractère A M s'afficher au milieu de l'écran. Si vous frappez : VPOKE 2568,0 le caractère A 1 est modifié. VDP(n) Permet de lire les 8 registres du Vidéo Display Processor. 10 F OR N-0 Tu 7 PR INT VDFT N J : N EX T N I ACCES A LA MEMOIRE ET EN I REES-SOR'l H S DIRI-CI LS 95 ENTREES-SORTIES DIRECTES ■ INF ■ OUT ■ WAIT INP(n° port) Lit directement une entrée de périphérique. “n° port” doit être compris entre -32768 et 65535. La valeur lue est comprise entre 0 et 255. OUT n° port, valeur Envoie une valeur vers un périphérique. La ligne ci-dessous allume la lampe de la touche "caps". tü NU T ( ii'HRR ) • 1 HP'L&Hrlril HK' r HBh WAIT n° port,octet1 ,octet2 Suspend l’exécution du programme. L'exécution se poursuit lorsque(entrée port) AND (octetl)oO Si “octet2” est spécifié, un xor modifie l'entrée avant I opération and avec ’octetl”. TRAITEMENT DES ERREURS I 8 LA MISE AU POINT DES PROGRAMMES ■ CTRL/STOP ■ TRON ■ CONT ■ JROFF ■ STOP Les programmes ne fonctionnent pas toujours “du premier coup", basic envoie des messages pour certaines erreurs (de syntaxe par exemple) mats ne détecte pas les erreurs de logique. Pour les cas les plus délicats, il faut suivre le dérou- lement du programme étape par étape, ce qui est relativement simple en basic. CTRL/STOP En appuyant sur ctrlstop nous interrompons l'exécution du programme. Nous pouvons alors visualiser les valeurs des variables en mode immédiat. CONT L'execution interrompue peut être poursuivie en frappant CONT (continue). Exemple : Le programme ci-dessous effectue la moyenne de plusieurs notes. Nous avons commis (volontairement !) une erreur. En 50, au lieu de TNTE = TNTE + NTE, nous avons écrit TNTE = NTE. 98 I BASIC MSX ic fi-HT -u i'j r-iN i E 30 N I h; ::: U i N Pl J I' "Nnhf ' • I I f E Remarque : Les instructions 1 0 et 1 5 qui initialisent les valeurs de TNTE et NNTE à zéro ne sont pas indispensables puisque RUN les initialise à zéro. Il est cepen- dant plus prudent de le faire dans un programme plus important où TNTE et NNTE pourraient déjà avoir été utilisées dans une autre partie de programme et avoir une valeur non nulle. Exécutons à nouveau le programme et interromponsde après avoir entré la pre- mière note. Nous pouvons visualiser en mode direct les valeurs des variables NTE. TNTE et NNTE. Visualisation des valeurs en mode direct MJ. Ti =• Note i : - l r 5 7 Noie V -* Br e ai; in JÜ Ük f- ri ut t ri t % fi r i te y 1 r : ; 1 Or appuie sur CTRL STOP pour interrompre Pour l'instant, rien d anormal. Frappons CONT pour continuer l'execution du programme et interrompons à nouveau le programme après avoir entré la 2 e note : Le cumul pour TN r - n'est pas effectué Brtj.k i ri 30 Ük On appu e à nouveau sur CTRL STOP Pt I fit t/ Ü t<!Ü' ' :"l il t *di' T,"; ük Nous nous apercevons en regardant la valeur de tnte que le cumul des notes n'est pas effectué. TliAITKMEM l)i : .S ERREURS I W STOP Au lieu d'appuyer sur ctrlstop nous aurions pu placer une instruction “stof en 65 . On peut voir à chaque passage dans la boucle comment évoluent les valeurs des variables TNTE et NNTE \\ a t i i » i 2 : 1 1 1 15 1 CÜNT ^ Note ? _13 7 Break in 65 Ük PR INT TNTE, NNTE 13 Ajouter cette instruction 65 STOP / RÜN 7 Note T Break in 65 Ok DD TM T TM T P . KJ MT P' En cas de “bouclage” de programme : Lorsqu'un programme ne s'arrête pas, appuyer sur ctrlstop, frapper TRON puis CONT. On peut ainsi localiser la partie du programme où la boucle s’effectue. to j>jl 20 ‘ jü 1--I + 1 4U 1F- 1 -5 THE N 70 Sm GüTij 40 60 ■’ 7 O EN F.- 1 Ük pON 7 or Pi in l 1 0 JE 2 O J E 3 0 J L 4 O *1 E 5 O J E. 4 O JH. 5 Ü J t; ■ 1 U J IL 5 . UE 4 0 J C 5 O JE 4 O J L 5 û J t! 4 LUE 5 O J E 4 0 J L 5 U J L 4 i: JIE5 Ü JE40 JE jO JL4Ü JL50 JE40JE50J1: 4 0 JL 5 0 . JE40 IL S0JE4ÜJE50 JE 4Ü JC 50 JL^Ü JL5Ü JE 40 JE 0 J 1 4 0 JE 5 Ü J E 4 Ü J E 5 Ü J L 40 JE5ÜJIE40 JE 5H JL 4 1 1 JE. 50JE4ÜJ Br e : ï.k i n 40 s U T ROP F * TRON-TROFF Les commandes 1 tron m et "troff" peuvent être inclues comme instructions dans un programme pour visualiser les numéros d instructions dans la partie suspecte du programme. 100 R A SIC MSX LE TRAITEMENT D’ERREURS ■ HRR ■ R FS U ME ■ ERL ■ ERROR ■ ON ERROR GOTO ERR-ERL Dès que survient une erreur pendant l'exécution d'un programme et si l’instruc- tion “on error goto n° ligne” a été prévue, il y a branchement à un programme d erreur au numéro de ligne spécifié dans I instruction "on error goto”. Ce programme d'erreur analyse alors l’erreur en testant les valeurs de ERRet erl qui représentent respectivement le code erreur et le numéro de ligne où s’est produite l'erreur Après avoir analysé et traité l'erreur, l'instruction RESUME permet au programme d’erreur de provoquer un retour au programme où s’était produite l'erreur. 1U ON ERROR ü. f ij lÿw •* eri CAS cT erreur 1 j 2ü I N PUT "Div* veu.r 20 PR INI' 1 0- 40 ijQTÛ 20 50 •; 0 ' " * — “ * * 'i 1 3 1 y z e e r r *z u. r 100 PRINT "Err = " -EER; ”ERL=” ; ERL 105 1F ERR-11 HND ERL =30 THEH PR INT "Di v Par Ü i n ter- dite " : R ES' T1E 20 110 PR: I NT "Err *ur n o n r #= r r< ri 1 1 * " ■ sjn p 0k nu. tj Diviseur ? 0 Er-r= Il ERL= 30 Div Par 0 interdite Diviseur ? ON ERROR GOTO O Ecrit dans un programme de traitement d'erreur, il annule on error goto n° ligne. L’erreur est donc traitée normalement par le système (interruption du programme et message d’erreur). RESUME Ecrit à la fin d’un programme de traitement d’erreur, résumé spécifie où doit se poursuivre l'exécution du programme : RESUME l'exécution se poursuit au numéro de ligne où s’est pro- duite l’erreur. RESUME NEXT l’exécution se poursuit au numéro de ligne après celui où s’est produite l’erreur. RESUME N° ligne l’exécution se poursuit au numéro de ligne spécifié. ERROR N° erreur Permet à (utilisateur de définir ses propres codes erreurs (compris entre 0 et 255) et de provoquer un branchement à ON ERROR GOTO... comme si une erreur avait eu lieu. GRAPHISMES ET SONS 9 LE GRAPHIQUE HAUTE RESOLUTION ■ PSET ■ PAINT ■ PRESET ■ POINT ■ LINE ■ DRAW ■ CIRCLF. En haute résolution (screen 2 ), I écran est divisé en 256x1 92 points. 0—255 A la tin d'un programme utilisant la haute résolution il faut placer une instruction d’attente afin d’éviter un retour au mode SCREENO ou SCREEN 1 ce qui efface- rait l’écran graphique. Pour que la couleur de fond choisie par color soit prise en considération, elle doit être programmée AVANT l’instruction screen 2 . 102 I BASIC' MSX PSET (X, Y), couleur PSET STEP (DX,DY), couleur pset(x,y) allume le point X,Y. pset step (dx,dy) spécifie des déplacements relatifs au point courant. Par défaut, la couleur est celle définie par COLOR. Le programme ci-dessous allume le point à l'intersection de la colonne 50 et de la ligne 100. L’instruction 30 bloque le programme en haute résolution en attendant que l’opé- rateur appuie sur une touche quelconque. PRESET (X,Y) PRESET STEP (DX,DY) Donne la couleur de fond au point spécifié. LINE (Xdep,Ydep)-(Xfin,Yfin), couleur LINE STEP (DX1 ,DY1 J-STEP (DX2,DY2), couleur Trace une droite entre les points spécifiés. STEP spécifie des déplacements relatifs. La couleur par défaut est celle spécifiée par COLOR. 10 SC RE EN S ' h -a u. te résolution 20 LINE< 1, 1 >-i. 50 >50) 30 C$=INPUT*< 1 ; Ci R API IÏSMI S È'.T SONS ' MB LINE -(Xfin 9 Yfin),couleur Trace une droite a partir du point courant. 10 SÜREEN 2 h a. u. te re-sülu.t ion 20 LINE< 1.. 1 > 5Ü , 50 > 25 LIME 1 , 100 ) 30 1 :$= INFUT® 1 -. 1 j. LINE (Xdep,Ydep)—{Xfin,Yf in), couleur, B ou BF Trace une boîte. Les points donnés sont ceux du sommet en haut à gauche et celui du sommet en bas à droite. “B” spécifie une boîte vide, “BF” une boîte pleine Naturellement, l'option STEP est acceptée. 10 SCftEEN 2 ‘ h au. te résolu, tion 20 L I NEC 1 , 1 >-C 50 , 50 > .• 4 , B ' bo i te b 1 ■= J.e 30 C*=INPUT$< 1 ) Exemples avec STEP : STEP spécifie des déplacements relatifs au point courant. Le programme ci-dessous trace une droite entre les points (100.100) et (1 10,1 10). EN 2 < 1 00 1 k.10 ) u.IHE -STEPC 10.. 10; L-$“ INPUT$C 1 > Pi 3. ij. t e r •= s o L u. t i o *n d eP 1 a c e- m e n t. r e 1 .3. 1 1 f Celui-ci trace une droite entre (1 1 0,1 1 0) et (1 20,1 20). M 1 U 0, 100 :* 30 LINE STEP>, 10, 10 > 40 C$- INF"* IJ T $<:. 1 > ST EPC 20, 20 Le programme suivant trace un dessin défini en relatif. Ceci permet un tracé avec echelle. :■ ro 104 I BASIC MSX 1 y ' — * — — tr ace df des:* i ïï en rt 1 i t 20 SCRE EN 2 30 DHT h 5 . ü / Ci . £ , 5 0 0 -0 , 993 392 40 •' U 0 F' S Eli 0 0 .. 1 0 ü ECH- 1 : i J ü S U B 1 2 0 ’ e c : h * lie- 1 ktoT '.J RE 70 P s ET « 100,150;.- ECH=2 : GÛSUB 120 •' échelle 2 m 1 r •jp u r $■.. i ,* 90 t. NC 100 ' 1 J. 0i ■’ - - - ü;. ou, — P r ij 9 r •?. ro roe 120 REMI..' DN'DY : ÎF DX=?99 T H EN RE TT JR N j ce lin.- ‘-STU-- elhcc-x-elhcdv :• 1 40 Gü T i 120 Tracé du drapeau français. 20 COLÜR 4, 14 1 SCf'ÉËH £ " haute 30 Xfl* 1 00 ■ YH=4Ô • 14*30 ■ 1=20 40 PSET C Nfl,Yfl) S0 LINE STEP<0,0,'-STEP<l,.H>.,4,BF 63 L. I NE STEP< O -H >-STEP( L , H ) , 1 5 , BF 70 U NE STEFÉ 0 .. -H >-3TEPC L.. H ) ■ 6 BF 00 C»<=INPUT*< 1 ) rs'ÊOl'AtiO'n b 1 su b 1 a, ne C O U 9 lis CIRCLE (XC,YC), rayon, couleur Dessine un cercle dont le centre est XC,YC. Si la couleur est omise, le cercle est dessiné avec la couleur courante. 10 S CREE H 2 20 CIRCLE Cl 00 , 1 00 > , 50 ■' centrer on 30 C«»INPUT$C1> CIRCLE (XC,YC), rayon, couleur, angle début, angle fin, rapport CIRCLE STEP (DX, YX), rayon, couleur, angle début, angle fin, rapport Permet de tracer des arcs de cercle. “rapport” permet d'obtenir des ellipses. Pour corriger l’aspect des cercles sur les téléviseurs français, on fera : "rap- port 0 = 1.3. ü SCREEN 2 C PI =3. 14153 J0 FOR lt-1 Tü 7 40 CIRCLE. ■' 1ÛÜ . 1 OU ) 50 NfcXT N 6® C.* = INPUT*':. 1 t 'û 1 *t- l ■ h -3. u. t e résolut,! o ï i 20+N*3, K,0, PI < i RA [Ml’ SMI S II SONS 105 PAINT (X, Y}, couleur, bordure PAINT STEP(DX,DY), couleur, bordure Remplit une figure dans la couleur spécifiée. La couleur spécifiée doit être celle de la figure. ‘bordure” spécifie en BASSE RÉSOLUTION la couleur qu'aura la figure rem- plie. 10 ■' Cercle Plein 20 CE *2 : LF =15 ecr itL'.re* fond 20 COL OR CE.- CF : S CREE N 2 40 > 50 X=50 = V*50 ’ ce vitre 60 R œ 20 ray o vi 70 CIRCLE c.X,Y>,R 80 PR INT C X , V • CE reroP 1 i s s -3.9 e 90 Cï“INPUT<K 1 > ■ Cocarde tricolore : 10 20 CO LO R 1 . ïT'screËr 1 ' -•?. rde tr i col or 5 30 CIRCLE \ P N . Fiÿ > . 30 2' rou.9* 40 PR I NT C 50 , 50 ) .. 6 50 CIRCLE < 50 . 50 * 2:0 . 15 b 1-3. ne 60 PHI NK J0, 50), 15 70 C 1 ROLE < 50 .. 50 > .• U3 • 4 ’ b 1 eu. £0 PhIHT< 50. 50 >■ 4 9G C$=INPUT* 1 ' 1 ) ■ Arc-en-ciel avec PAINT : tr , i ■ .... .. - — — — ; üj,ï" C e r> c i e l 10 CO LO R 1 • 15 SCRE EN ka. 20 F' 1=3 - 141 53 30 FOR îû 1 STEP -1 40 CIRCLE'- 100. 100 > .. 20+H*8 , H , 0, PI 50 LINE a , 100 20 0 , 1 00- J, H 6U PAINT'.: 1 00. 100-2 > . N 70 N EX T H 80 C$= I N PUT $< 1 POINT (X,Y) Fournit la couleur d’un point. 10 CLS 20 PSET< 4 , 10 O ) , 4 30 PR INT PO INK 4 , 100 > RUN 4 106 l BASIC MSX > Recopie d’écran en haute résolution (imprimante Seikosha) Ce programme recopie l'écran sur une imprimante “SEIKOSHA". Son exécution est lente. 1000 REC IF'IE ECRAN H RU TE RESOLUT ION IMPRIMANTE sE U- ïj&iti lny5 J 010 DIM LC £50 ; 1020 CF=1!:« '-ou. leur de fn. 5 : Si -s + ,-,-r 1 025 V-0 1Ü30 FOR N” 1 Tu 24 24 \i9ùe*. 1040 FuR 1 = 1 ' 0 250 : L' I T- 128 HE XI I 1050 FOR M : = 1 'û 7 1060 FOR X-Ü T’ij J'J-Û 1070 P=PQI N ' •' X, V > • [.F F< i F THE N L C X )=l < X - . M- j . 1080 HEXT X 1090 ï-V+1 1100 HEXT M 1110 ' edi" 1 o ti 1 I. i 9 tik 1120 LPRINT CNRSC 8 /, 1130 h G R 1 = 1 Hj 25Ü 1140 LPRINT CH Ri*. LC I :• ; 1150 NEXT I 1 160 LPRINT 1170 NEXT N Ce programme pourra être sauvegardé par : save “recop" plutôt que par CSAVE. Ainsi, il pourra être ajouté à un autre programme par “merge “recop v, \ GESTION DES COULEURS : En principe, la couleur peut être spécifiée pour chaque point. En réalité, BASIC gère les couleurs de l’écran par groupes horizontaux de 8 points. A l'intérieur d’un groupe de 8 points, il ne peut y avoir plus de 2 couleurs diffé- rentes. Par exemple, pour un fond blanc, si vous faites 11 PSETd 7,4) ,4“ le point (17,4) devient bleu. Si maintenant, vous faites "PSET(20,4) 1 6" le point précédent prend la couleur du point (20,4), c'est-à-dire rouge. 10 CQLmR 1, 1 5 : 2 GREEN 2 ; : :'M F’- ET 1 -. 1 r .■ + j» 4 3ü FOR fF-1 T Ci 1 000 : NEXT TF 4ü FSE TC 2:0. 4 X» b 50 C$=INPUT$< 1 ‘ b 1 eu •' r o u. 9 e 32 L’intersection dune droite horizontale et d une droite verticale ne pose pas de problème puisqu à l'intersection, il n’existe que 2 couleurs (pas de couleur de fond). (iRAPmsMi/.s lisons . 107 l 0 - * — - | n t. •£ ■ 1 ■ • ► • r . i • i Û •' ! oi t 1 1 i ■ • O 1 t : : : 20 COL U F 1,1 j m S GREEN 2 50 L.IHE< 1 , iti 30 • 1 Ü - ! • 14 68 L [HE ( 20 O:. 20.- 20 1 80 L 1 NEC 100 • 1 10 120 . 14 90 LINE'. 100.' 130 G'iij, j 18 J. 100 G$- 1 NPUT$t 1 ! La superposition de figures pleines de couleurs différentes ne pose pas de pro- blème, pourvu qu’il n'y ait pas plus de deux couleurs dans un groupe horizontal de 8 points, Pour définir plusieurs couleurs de fond sur un même écran, utiliser : LINE (X1,Y1)— (X2,Y2),couleur\BF 20 COLÜR 1 , 1 : SC 80 LINE •: 1, 1 40 i. INF:. 1 100. 1 ^ f "î 0 L IRC LE 1 ' 80 • 5Ç nij, î. 0 ur dhE tond 1 00 , 1 80 . 1 4 , B F - ( 200 . 1 . 00 • 13 . E • 80, 1 68 i. I R £L Et 1 jù.' 50 > ■ 30.' 1 70 ù$^ïNP 1JT$.: i •jVi'J 3 r is o nd u.9e Nous présentons ci-dessous divers programmes : ■ Anneau : 1 0 .• h ti ne au. 20 CE -2 ■ CF “15 30 COLÜP CE, CF : SCREEN 2 40 •' 50 X*50 : V=50 60 R2=30 : RI -20 70 Cl RC LE < X, Y R 2 80 CI R CLE <X, Y >, RI 90 PAINT t X, Y+Rl + l O CE 100 C**1NPUT*C 1 > liE'Ci "- i t urç ' t cnvJ C 6' Tl t t"’ ’iü' r.?.y 0 ï>s 108 BASIC MSX ■ Croissant : 20 CF=15 3G U CK. OR 1,CF 40 SCREEN 2 50 C I POLE':. .1 G0 - J mm > , 5 y , i E0 FR ï N T* 1 00 .. ; ru-: . . ] 7 Q •' FO C T R CL E * 1 30 , 1 00 , 50 , np 9 0 F' R I N T * 1 3 0 .• U-f « ’ ■ . f: F 100 ï“:$= INFUT $•: 1 1 1 0 EM ■ C i!"« U. 1 ëv r“ de t" O Tl d h 3 . U. t- ë p ë S O t v t- i O n l*r cercle Plein 2e me cercle Plein C'-’U. I eu.r de t une! ■ Boîtes aléatoires : 10 • tr*o= de 3Q COL DP 1 . 1 5 : SC PEE N 2 40 •' boite* aléatoire* 50 PÜR H= 1 Tu 30 •* >;m 60 X-RNDC 1 >*226 Y-RNDC 1 70 H “PHD (1 );* 1 5+ 5 : L = R NO ( i 1 >* 1 î=l + ^ 30 CL^RNfX 1 !>*15 90 L I NEC X, Y >-< X+l. .■ Y+H ) , CL . BF 100 NEXT N 110 ' 120 C$=IHPUT$'- 1 ;;i b o i tee - r «.1 GRAPHISMES El SONS J 09 ■ Nuages : 10 ' HU FIGES 20 C 4X0 F: 1 . 1 5 : SCREEN 2 40 F •OR NU*1 TO 3 •' 3 r» y. a. 9 e- s 50 X0*r NU- 1 >4' 7 0+40 • Y0«50+F: ni:- 1 - i ■:* iü 60 ORND< J. **14+1 ■ r cou 1 eu.r 70 FOR N=1 TO 10 10 csr r les 80 X=RND'.' 1 >:t:40+X0 90 Y=RND":: 1 }:*20+Y0 110 R=5+RN[X 1 >410 120 FOR R 1-1 TO R : C 1 ROLE < X ■ V . R 1 . C : NEF; T 130 NEXT N 140 N EXT NU 150 C$= INPUTÎ 1 -. 1 •t ^ ■ Télécran haute résolution : Vous déplacez un curseur clignotant qui laisse une “trace 1 sur son passage. Huit directions ont été prévues. Si vous “levez" le curseur avec ‘L \ le curseur est déplacé sans écriture. “B” permet de “baisser” le curseur. En frappant “E" et en déplaçant le curseur, vous effacez. 10 ' TEL ECRAN HAUTE RESOLU'! H = N • H D i RE- CT I ÜNSH'Üi 'LEURS > 2kf ‘ 3ü lF~15 : LL=1 i mm ' eu.! ' i oïpj çt h- cf it.ij» c 40 CO LOF: CL . CF 50 SCREEM 2 60 ■ 70 GRE N "G RP " FOR ÜUTPUT H 3 #1 80 PCE T 1 - 14 .• ICO > F'RIMT #1, "CLAVIER riFklUSCU! t ‘ 90 PSET< 14, 170} 100 PR TNT #1, "FLECHES ET ONflS , 1 , 2 . . COULEURS" 110 PSEK 14 • 180.* 120 PR INT # J .. "L • LEVER.-- B : BRI SSER F ■ EFFACER ” 1 30 X- 1 00 : 1 00 COORDONNEES DEPfiP ' 140 — c v t m 3- e y. r- r 1 i 9 u o F. 3 M t. 150 T^PüINT'- X,\ > 160 •' 170 I NKE Y$ 1 F C*<:." " T HE H 22U ■’ test clavier 180 PSETC X.* V > -■ CL 1?Ô PS ET < X .■ ï:.',CF 20Ô GOTO 170 210 ‘ 220 IF L=0 THEN PS'ETC X.* Y '« • CL 230 IF L“1 THEN PSETC N, V >, T 240 IF L“2 THEN FSE TC X, V CF 250 ' 26û C-RSCA C$ :< 270 IF C-29 THEN X=X-1 ‘ couche 280 IF C-28 THEN X=X+i droite — *- MOI BASIC MS.X IF G- 31 T.-iEN Y~r'+; •' j-- , a - 300 IF C=30 t h£m Y«¥-l ' a ut 310 IF C$="û" THE H X=H™ 1 Y-Y-l • 320 IF C*a”W" THE fl H -SH- 1 Y =', - 1 330 IF Ct-- "H " THEH X-X-l Y=Y+1 340 IF THFH X=X h- i . Y- Y ‘ I 350 ' 360 IF Xi. 1 THF N X=1 370 TF X >254 * HEM X*£54 330 1F Y< 1 THEH Y*1 3y0 IF Y: 180 I HËH Y -lie 40U ' - 410 IF C$=”L" THEH L = 1 ■ i P .. 420 IF C$="B" THEH L=-0 ' bHn» 430 IF C*»"E” I HEM L"£ • P c F er 440 IF VRLXC* >0 HNL' VFlL'i r$ '10 T'-’i : H , ! a 450 GOTO 150 I.ÏM.t mi -, i; !t. -i Le système "télécran" n'est pas très puissant. On regardera, dans la partie "Pro- grammes" les programmes ‘Tracé par segments de droite” et "Dessinateur”. ■ Ce programme trace des figures inscrites dans un cercle : COL OR 4, 1 fl : se PE EN 30 ' 40 F 1 1=3, 14159 50 XC=100 : YC=100 60 R=20 : CL =4 70 HCQT=3 60 GOSUB 170 90 100 NC DT =6 : XC-150 R* 30 : CL=4 GÜSr IB 170 - 110 120 NC0T=15 : R=30: /r:=40 : CnSilB 17* 140 C**INPUT$C 1 > 150 J SF'GM 170 PSEK XC+R > YC > • CL - Premier Point 180 FOR C“1 TO NC 'JT 190 fi*C*Pl^2/HC0T 2 m X*XC+R#CÛSc‘ R j 210 Y=YC+E!*SIN< H ) 220 LINE -t X , Y 1 • f:L 230 NEXT C 240 RETIJRN figures inscrites dans u.n cercle ce Titre rayon /co u. 1 eur nombre de cotes hexagone cercle (.iKAPHISMI S 1 T SONS ! 111 ■ Le programme ci-dessous trace des étoiles dont on a défini le nombre de côtés (5,7,9,...) : 10 — - TRACE D’ETOILES 20 COL. OR 4,15 3CREEN 2 30 40 P 1=3 , 1 4 1 53 5Ü XC- 1 00 YC= 1.00 OE-ïit r e- 6Q R =20 : CL =4 rayon--' cou. L h; u.r 70 NCÜÏ= i nombre Je branche- «■ 30 OOSI JB 160 90 “• — — 100 NCÜT ~5 • XC ~ 1 50 : R- 30 : CL “4 : GOSIJB 1 60 1 10 1 2Û NCÜT “15 R - ':0 • YC = 40 ij IJ Si JE' 1 60 130 Cï'TNPUTï- 1 140 ENLv 1 1-" O P' 3 £ T '■ y, C + R , V C ) .• C L P r •= r< 1 1 r f 1 o i nt i ."O FOR F:.-- i T'ij NUÜ7 ; : :t- A~L i - NI.: Ü T •- 1 YF î NCÜT i -P'vi 4=:*;i>p:*;f IJ3* A > 200 ! “YC+R^i. I N=, Fl > X1Û I J NE -, CL. 220 Ht:-: 1 1 . 1 1 PF n.i R N ■ Histogramme circulaire : 10 ■ .... — h : et C J r?. ■•mu- ... j. r eu. 1 a i r e •JN H* L ■ cl J. Y- : "t -?r K-t 40 H». 2 ' y H* 2 - * l 'Ci’ C'ï iS-3 fit ' 50 Ht 3 . i ^ H$e ' >* = "br i. cche" 60 H'. 4 .•= u : h fi. 4 .'= :: " 4 c 1 .? ir ,! 70 H- 5 ) - 1 Ht' 5 s 5 " P i Tl " 30 90 XH = 12 0 r h — 00 > h 100 R~:jÿ rie. ch 1 10 P 1=3. 141.5- 120 130 COL OR 4- 15 -S CREE N 2 135 OPE N "GRP ’ " FOR OUTPUT A3- #1 croisant 1 40 C I R CLE f XA Y A > .. R 150 flfl=0 e c 1 a i r i r à i n i \ /. , J>-- t àrtç 160 FOR F=1 TÜ 5 170 fl=ftfl+PI«:t:H<P> 1 80 X=XR+R*COS< P ) : Y=Yfl+R*S I N< R > 190 LIME XA • VA X , Y ) 200 •’ 210 AT=hA+PI*H<P ;■ ' affichage texte 220 X=XH+R:t 1 . â#C0SÏ RT > = Y»YA+ 1 . $$ms I Nt HT > 230 IF AT >P I -■‘2 A NO RT<3*PI-'-2 T HE H X=X-8*LEN<L H$< 240 DR AN " BM=X .i , =Y i " ; FRI NT # 1 , H$< P > 250 Rfi=A <260 H EXT P 270 C$=INPUT$F 1 > J 12 BASIC M SX ■ Chronomètre : 1 h chrçvnoHietr * 2 y r ;ç st 1 !5 • L- F’ - 4 ’ O" 1 t U r '• t • ' t ' o Ti d 3ü CÜLÜP CE. C : xCPEEN 3 40 P 1-3. 14 1» 3 0 X H = 1 0 0 V h Ç 0 R « 5 ÿ ' c: t « •« t r £• ' r ? .? ci ri 60 CI RÔLE ' .H H > .• R 70 FÜR H~0 ï'f 34P 1 TfcP P I - ^ 9r adu ü.t îüïïi. 30 X-XFf+ft-f - o r CÛ'i' : -. l"! • ' r’ ' i ’ R *-R 1 . 3 TE • NC. Fi ,• 90 xB^XH+FNT-N'-. ' H / ■ YE- : -YR+F:*.S I N- Fi ) 100 LINE < X • V XB ■ -’B 110 NEXT H 13 U R -ET. r 140 FOR H--0 '! 1 00 3 TEP F : i 30 1*50 X=XH + R 4L h Y~YR+RTS I Ht. H lr-0 LINE 1 N R ÏH X.-V •' 17 Ü BEER 1 :•? 0 F û F' T P - ) • 0 u i j I -L': • T i' ' J ... e ? i P or- i i- 3 t i o ri 19Û L INF-- Xr'l . ‘Fl • X, V ! • CF et i3?o?rn*ïït 3110 NEXT R v i .0 c*-ll-PUT$ 1 = DRAW chaîne de caractères Cette instruction permet de représenter des formes plus rapidement que l'ins- truction LINE. ■ Déplacements relatifs Une forme est représentée par des déplacements relatifs a la position courante du curseur. Par exemple, pour représenter un carré de 20x20, nous codons : R20 ’ 20 positions à droite D20 ' 20 positions vers le bas L20 1 20 positions à gauche U20 ' 20 positions vers le haut 10 S UREE H ... ... 30 F' b R T 1 .. 1 00 .• 1 00 i 1 P C'ï- 1 1 i 0 Tfitr'ic rit 30 0RRW "RE0D20L20U20" ' car r t 40 C$=1NPUT $ 1 Les huit directions sont : U: haut D: bas R: droite L: gauche E: haut droite F: bas droite G: bas gauche H: haut gauche GRAPHISMES HT SONS 113 ■ Coordonnées absolues : Mx,y La commande “Mx,y” spécifie des coordonnées absolues. .. 1 00 ) ■' p os. i 1 1 üTineroent 30 DRAW " M 1 3â , 1 00M 1 30 , 1 1 00 , 1 m " ' tr i A m 9 L e 40 C**1NP(JT*< 1 > ■ Déplacements relatifs : M + x, + y La présence des signes +/— indique que les valeurs spécifiées sont des dépla- cements relatifs. 10 SÇREEN 3 30 F'SET < iflO,l 0£i > •' Positionne me fit 3@ DRAW " M+30 +0M+0 +20Î1-30 • -30 " ‘ tr i a n9 L e 40 C«*lNPUT*a> ■ Déplacement sans écriture : B Si “B” est spécifié, la première commande qui suit est effectuée sans écriture. 0 SÇREEN 2 , 5 PSEIX ÎOO.- lOO > 20 DRAW "R20BLI20L20” 100 C*«INPUT*( 1 :> L20 \ U20 R20 ■ Retour à la position précédente : N “N” provoque, après exécution de la commande suivante, le retour à la position avant la commande. lO SÇREEN 2 2 0 F' S E T < 1 m 0 , 1 0 0 ;« 30 M$"- 11 NU \ ONE 1 0NL 1 S ND 10” 40 DRAW M 50 C$ :; - 1 MEUT 1 > ■ Angle : A “A” provoque la rotation d’un dessin. AO: 0 degré Al : 90 degrés A2: 180 degrés A3: 270 degrés Ci-dessous, nous représentons un triangle dans quatre positions. 114 I BASIC MSX 10 SÜPEEN Z 20 P SE T C 1 flM .. i l-'i 0 30 " P2ÜD 1 0M-29 , - 1 0 M 40 FOR 1=0 TD 3 50 DRAW 11 H : = I ; Xh$ i " 60 NECT I 100 C$=INPUT*C 1 > ■ Couleur : C La couleur spécifiée devient la couleur courante. 10 28 SCREEN 2 P3ETC lt)0, 100 > 30 R$= " R20D 1 0ÎT-20 .■ 10" 40 50 DRAW "C2"+R$ P SE T ( 156, 108) cou. 1 e*u. i"- 2 60 70 DRAW "C6"+h$ Ci«INPIJT$C 1 couleur - 6 ■ Echelle : S “S” permet d'afficher le dessin avec un facteur d’échelle allant de 1 à 255. L’échelle s’obtient en divisant par 4 le facteur d’échelle. 16" ■’ tria iv&le echel Le - 1 ■’ g che 1. I e 2 ■ Passage de variables chaînes : Xchaîne Pour spécifier des variables chaînes dans une chaîne, il suffit de placer “X” devant la variable chaîne et un point-virgule après. 10 SCRE EN 2 20 FSE T 100, 10m > 30 A$="R2£iftl 0M -20.* 40 DRAW ,, S4 I, +A$ 50 FSE! C 150.-1 00 > 60 DR A N M SS"+Fi$ 70 C*=ÏNPUT$<: 1 -• ^ ÿCRÊEN 2 20 P SE T C 100. 100 > 30 B*-"R40U40" 40 CÏ="L40" 5fâ DRAW BÏ+UÏ 55 •’ 60 P SE TC 150, 100 > 70 DRAW " 30 C*- 1 MP UT $( l > GRAPHISMES F.T SONS i 115 ■ Passage de variables numériques Les variables numériques sont spécifiées en ajoutant ,, =" devant le nom de la variable et point-virgule après. l  ft=fi^'Y=iee 30 DRAW "BM=X i .. =Y ; 11 40 DRAW "R20O2WL20U20" 100 C$=INPIJT$( 1 > 10 SCRE EN 2 20 X=100 1 Y=10@ : HT-20 • LG-30 25 DRAW "EîM^X; =Y; R=LGj D=HT > L=LG>.i U=HT > " 100 C*“INPUT$<n Les dessins ci-dessous ont été obtenus avec le générateur de formes présenté plus loin. 536 ; MRI SON 600 COLÛR 4.15 SCREEN 2 610 D$*"R2?M“3, -8L19M-5, +8R4D18R13U18L9BD6D12R6U12L6BL6D6R3U6L3" 620 ' e-chelle 1 630 DRAW "BM 1 00 • 80 " + " S4 11 +D$ 640 ' echelle 2 650 DRRW " BM 1 60 , 80 " + ” 38 u +DÏ 660 CS=INPUT« 1 ) 19 ' bateau. 20 COL G R 4, 15 -SCREEN 2,2 30 [>$= " R53E5M-26 , -40D37R26M-26 , -37BL 3D 37 L. 1 8BM+ 1 8 , -37M- 1 3 , +37BM-5 , + 3M+8 , + 1 2 P 37M+8, -12" 40 echelle 1 50 DRRW "BMI 00, 80 ,> + ,l S4"+D$ 70 — eche-1 le 3 • 4 8G DRRW * J BM 1 00 , 120" + " S3 " +D$ 9ü c**input*o> GÉNÉRATEUR DE FORMES : Vous réalisez un dessin par segments de droite. Le programme affiche la chaîne D$ représentant le dessin. 116 I BASIC MSX 10 s*. -J 30 4Ü 50 60 70 80 90 CF-15 COL OR § i ÜPEN 1 GENERATEUR DE FORME AVEC DRAW ' couleur f on ci et écriture- :e=i :e,cf=screem 2 PAINT #1, GRR ^ " F'SEK 14, 150) P3ETC 14, 160) PSETv 14, 170 ; 1 00 PSET'I 14, 1 80 ) • RR 1 HT #1 110 X-100 ; Y=8O 120 SPRITE9K 1 )-CHRÏ< 191) ISO 140 PUT SFR I TE 1 , <X, Y-l >, 1 , 1 FOR OU IF U T MS #1 PR I HT # 1 , " CLRV I ER MAJUSCULE " PF: I HT # 1 , " 1 ER PO I NT FLECHES PU 1 3 ' V •' " AUTRES POINTS- T ■ TRACE DROITE" "L : LEVER- EN BAISSER F ; FIN" c ■ j o r do m 'U e e- s d e- P a. r t curseur curseur 15Ü ■' 160 C$=IHKEYÈ IF €$-'"• THEN 160 ■' test clavier 170 ’ îsu c=asc( ; 1 90 IF 0=23 THEN X»X-1 'GOTO 140 * 9AUchç 200 IF 0=23 THEN X=X+1 ' GOTO 140 1 droite 210 IF 0=31 THEN Y=Y+ 1 : GOTO 140 b AS 220 IF U =30 TF EN ï=Y- 1 • GOTO 140 haut 330 LF C$ =i, V" THEN F'SEK 'A, Y >.• CE : XA=X ; YH=Y : GO SU B 310 2 '"ÿ 0 IF C$="T" AND L=0 THEN LINE C H.- Y R >- , s y > Y ) t LE 250 IF C $- u T lf THEN GÜSUB 360 : XR” Y. • Y R— Y • FSE \\ ’Af Y )j LL 260 IF «-"F" THEN F'SET < 1 4 , 1 0 > : F'R I NT #1,D$ : LPRINT P* 27Ü IF C$= , 'L 11 THEN L= 1 ' l e v e r 28Û IF C $ ~ 1 1 E' 1 1 THEN L=8 ' baisser 290 GOTO 140 300 ’ — 1ER POINT 310 =STR*<: X : N$=RIGHT$(HÎ,LEM< Y$>~1 > 320 Y$= :STR$C Y : ! Y*=R1GHT$C Y$, LEH< Y* >- 1 > 330 D$= =Di+"BM- +?■;*+", "+v$ 340 RETIJRH 35Ü •' — OUTRES POINTS 360 IF L=1 THEN 0$=D$+"B" 370 DX-X-XH ■ Dï-Y— VH 3:-:0 DXî=STR$< DX ) ; DXÏ*RIGHT$< DXÏ , LEN< DX* )-l ) 330 DY$“STR$< Dr > = DY$=RIGHT$< DY* , LENC DY* )-l > 4O0 IF DX=0 AND DY>0 THEN DS=D*+ "D" +DY* : RETIJRH 410 IF D>:=0 AMD DV< 0 THEN D*=D*+"U" +DY* : RETURN 420 IF Dï-0 AND DX>0 THEN D*»D**' , R“+BX* ; RETURN 4301 IF DY=0 AND DX<0 THEN D*=D*+ ,, L ,, +DX* : RETURN 440 ’ 450 IF DX= >0 THEN DH*= M + ,, +DX$ 460 IF DX<0 THEN DX*="~"tDX* 4 i O 4 SS IF DY= >0 THEN DY*= ,, + "+DY* 490 IF DY<0 THEN Dï*="-"+DY* 50O D**DS+ "H" +DX*+" , " +DY* 51Û RETURN GRAPHISMES ET SONS 117 MÉLANGE TEXTE/GRAPHIQUE : Pour afficher du texte en mode graphique, il faut ouvrir un canal pour le pseudo- périphérique “GRP:”. Ensuite, on positionne le curseur avec preset(x,y>, psët(x,y) ou bmx,y. Enfin, on écrit le texte avec print # .texte. 10 SCRE EN 2 20 DP EH "GF! F' : " FOR ÜUTPUT FIS #1 30 DRAW 11 BMI 00, 100" : PR I HT #1 . "COUt OU” 1 00 C5-I N PU Vite 1 Les instructions d'édition telles que 'PRINT TAB” ne fonctionnent pas. Un texte affiché sur un autre n'efface pas ce dernier, Pour effacer le premier texte, il faut : u Réécrire le texte en couleur de fond. □ Afficher des Pavés 11 en couleur de fond. 1 fi CE -4 : f:F = 1 S ; CuLÜF: CE > CF ■’ CP : co'.>. 1 eur de t on U 26 SCREEN 2 30 OPEN "GRP 11 FOR ÜUTPUT RS #1 40 DRAW " BM 1 00 , 1 00 " ; PR I NT # 1 , " COUCOU " 50 FOR TP=1 TO 2000 : H EX T TP 60 •’ — efface- roerit- 70 COL OR CF CfPN " BM i 00 , 1 68 " ■ PR I HT # 1 , STR I \ IG*-.! 1 U , CHR$C 208 > > 30 ' — 90 COLOF: CE ; DRAW " BM 1 00 , 1 00 " ; FF: I HT # 1 , 11 C * EST MÛ I “ 100 C$=INPUT$< 1 > ■ Saisie d’une ligne en haute résolution Nous proposons ici un programme permettant de saisir une ligne en haute ré- solution. lu ' SAISIE D'UNE LIGNE EH HAUTE RESOLUTION 28 ‘ 30 CE=1 1 CF=15 40 CDLOR CE, CP 50 SCREEN 2 68 OPEN H GRP 11 FOR ÜUTPUT HS #1 70 XL- 1 8 : Y L= 1 0 = ME S $= " N OM : ” : GOS IJ B 100 ' c oor d o une es a f f i ch a 9e SÜ END 90 -* 108 LIG *~" 41 110 Xl=( XL-LEH( MES* > >*8 : Yl=ïL*8 ; DRAW "BM-X1 ; -■ -Yl ; " : PRINT ME* 128 ' 130 L~LEH( LIG$ > • X 1 ” < X L+L )#S 1 Y 1 *YL % 8 148 DRAW "BM=X1 ; ,=Y1, M 150 1 160 C»*IHPUT*< 1 ;• 118 BASIC MSX 170 C*flSCx ; 180 190 IF C< >S THEN 22Ô r ' code suppression 200 IF L >0 THEN L I G$=LEFT$< L I .* L - 1 > : COLOR CF = DRAW 1J L FR INT #1,CHR$< 200 >: COLOR CE : GOTO 130 HLSE 130 210 1 220 IF C~1 3 THEN 270 4 code de return 230 IF C<32 THEN BEER : GOTO 130 240 LIG$=LIG$+C$ * 3 , ) ou.t- c-ar-sctere 250 RR INT #1,C$ 260 GOTO 13ü 270 RETURN GRAPHISMES ET SONS I 119 LE GRAPHIQUE BASSE RÉSOLUTION Les instructions en basse résolution sont les mêmes qu'en haute résolu- Bien que l'écran soit divisé en 64*48 points, les coordonnées X,Y à spécifier sont les mêmes qu'en haute résolution {0 -> 255) et (0 -» 1 91 ) . Seule la taille du point affiché est différente. Ci-dessous, nous avons représenté un cercle. Avec PAINT, pour obtenir une bordure de couleur différente, il faut que la couleur de bordure spécifiée dans PAINT soit la même que la couleur du cercle. La couleur de remplissage du cercle peut être quelconque. er t — çssai burdure eri bu 10 $ GREEN 3 •’ basse résolution 20 CI ROLE 1 1 00 .« 1 00 > 40 .. Z f c er c 1 e vert 30 PRINT C 100/ 100 >> 6.. 2 '' bordure verte 100 GOTO 100 ■ Télécran avec couleurs : Principe : En appuyant sur les flèches -> «- î I , vous déplacez un ‘‘point’ qui laisse une "trace" sur son passage ce qui vous permet de dessiner naturelle- ment”. Si vous appuyez sur “L”, le déplacement s’effectue sans laisser de trace, permettant ainsi de dessiner une figure en plusieurs parties. “E” permet d'effacer. Pour les déplacements en diagonale, se referer au pro- gramme “Télécran haute résolution". 120 l BASIC MSX 10 TEL ECRAN BASSE RESOLUTION C4 t> I RECT I ÜNS+CÛULEURÏ 20 1 30 CF=15 ; CL~1 •' couleur fond et écriture 40 COL OR CL, CF 50 SCREEN 3 60 COLÜR 1,CF 70 ' 80 X-100 ; V=100 ' coordonnée déport 90 ■' — curseur c l iSïVite nt 100 T-F'O I NT < X , Y 110 ■' 120 CÎ-INKEYç IF €.%<>*' " THEN 170 ■' test clavier 130 FSE TC X, V >.* CL 140 FSE T <X,V>,r:F 150 GOTO 120 1 60 ■ — — — » 170 IF L*0 THEN F'SET C X , Y > , CL 180 IF L® 1 THEN PSET C X , Y > , T 150 IF L-2 THEN FSE TC X, Y *>.» CF 200 t 1 21G C=ASC< c$ > 220 IF C=29 THEN IF X>4 THEN X= ■' 9auche 230 IF C=23 THEN IF XC254 THEN OX+4 ■' droite 240 IF 031 THEN IF Y <180 THEN ï'=Y+4 bas 250 IF 030 THEN IF Y >4 THEN Y® r ' — 4 haut 260 270 230 IF C»*"L" THEN L=1 lever 290 IF C$= ,, B 11 THEN L=0 baisser 300 IF C*="E n THEN L=2 effacer 310 IF VftL(C$v>0 AND VALCCSX10 THEN CL=VAL< C $ > ' couleur* 320 GOTO 100 325 •' 330 } P ou. r d i a9ori aies , cf t e l e c r a n h a u. t e r e s o l u. t i o n GRAPHISMES E l SONS ■ 121 LES SPRITES ■ SPRITESQ ■ SP RITE ON ■ PUT SPRITE ■ SPRITE OFF ■ ON SPRITE ■ SPRITE STOP GOSUB Les sprites (fantômes ou lutins) sont représentés par des matrices de 8x8 points ou 16x16 points. Ils peuvent être déplacés rapidement et n’affectent pas le graphisme en place. Ils sont acceptés dans les modes SCREEN1 . SCREEN2 et SCREEN3. La définition se fait avec spniTES(n) et I affichage avec put sprite. DEFINITION 8X8 Pour définir un sprite, on indique dans des lignes de DATA les points allumés(t) et les points éteints(O) puis on constitue une chaîne de caractères comme il est indiqué dans le programme. Ci-dessous, nous avons représenté une étoile. -00001000 -00001000 -00011100 10 SPRITE 8X3 20 CL -4 CO LO R CL,' 15 ' bleu sur fond blanc 30 SCREEN 2,0 '' 9 ; sprite 848 taille simple 40 DATA 00091000 50 DATA 000O1Ü00 60 DATA 00011100 70 DATA 01111111 SA DATA 00011100 90 DATA 00100010 100 DATA 01000001 110 DATA 00000000 120 ' 130 FOR L= 1 TÜ 3 140 PERD L* 150 S*=Sï+C:HRSt VALÜ ‘'iiB"+L* 1 ) 160 NEXT L 170 ' 180 3PRITE*(1>=S* 180 RUT SPRITE 1,000, 100 >, CL, 1 195 J 200 CÏ=lNPUT*r 1 > sPrite no 1 dans Plan nol 122 : BASIC MSX PUT SPRITE n° plan, STEP{X, Y), couleur, n° sprite Les sprites peuvent etre affichés dans 32 ' plans” différents (0 à 31 ). Un sprite peut être affiché dans plusieurs plans mais un plan n accepte qu’un sprite. Les numéros de sprite doivent être compris entre 0 et 255 pour des sprites de 8x8, et entre 0 et 63 pour des sprites de 16x16. Les coordonnées d affichage spécifiées sont celles de la haute résolution (256x192). PUT SPRITE2,(1 00,1 00)„1 Affiche le sprite 1 dans le plan 2 au point (100,100), PUT SPRITE1,„2 affiche le sprite 2 dans le plan 1 au point courant PUT SPRITE STEP(10,10), i 2 déplace le sprite de (10,10). TAILLE DES SPRITES ET ECHELLE La taille des sprites (8x8 ou 16x16) ainsi que I échelle {1 ou 2) sont définies par l’instruction “screen mode, type sprite” : 0: 8x8 échelle 1 1: 8x8 échelle 2 2: 16x16 échelle 1 3: 16x16 échelle 2 Les coordonnées d’affichage X,Y doivent être comprises entre - 32 et 255 pour X,-32 et 1 91 pour Y Y=209 fait disparaître un sprite. Y=208 fait disparaître tous les sprites des plans de numéro supérieurs au plan spécifie, Si plusieurs sprites sont proches ou sur le même axe X, i! faut limiter le nombre de sprites à 4. screeni permet d’essayer PUT SPRITE en mode direct. La définition en binaire des sprites est fastidieuse. On procède plutôt comme suit : Pour chaque ligne de 8 points, on additionne les “poids” des points qui doivent être allumés. Sur l’exemple ci-dessous, pour la ligne 3, on obtient : 16 + 8 + 4 = 28. POIDS GRAPHISMES ET SONS i 123 èi CL=4~C0L0 R j EËÏI§ •' bleu sur fond blanc 30 SCREEH 2>& ■' 9 ■ sP r 1 te 8*8 taille simple 40 DATA 3,8/23,127,23,34,65,0 50 ' g0 FOR L=1 TO 8 70 RERD ND 80 S*=SS+CHR*C ND > 90 NEXT L 100 J 110 SPRITESC 1 >St 120 PUT 3PRITE 1,C 100, 100), CL, 1 ' sPrite mol dans Plan mol 130 ' 140 CÏ=INPUT*a) DEFINITION 16X16 Pour représenler une figure de 16x16 points, il faut définir quatre sous-chaînes S$(1), S${2), S$(3), S$(4) et les concaténer. S$(1) S$(2> 20 CL ERP: 1006 30 SCREEH 2,2 SSI3) sPnte 16;:<16 I. ect u.r e DR l HD S$(4) 40 F OR M-l T G 4 5ü FOR 1-1 Tü 3 S0 PERD d 70 H >=&$•:: N >+CHR$( X > 30 ML DT I 9ü MEXT N .100 3 P R I TE>; 1 1 j+S$< 2 :<+S$( 3 )+S* . 1 1 0 PUT SPR I TE 1 , 1 00 .. 1 00 > ■ 1 .■ 1 1 2 0 — — - * d 6* :!î- S i Tl 1 ü C OT'i 0 1. 1 V *::• 1 3ü DRT H 0 U . 6 • 6 .• 1 6 .• 0 .• 48 , 4 8 140 DRTFi 12 V • 1 2 ? , 127, i 27 , 255 , 255 , 48 L 50 DH T H 0 .■ 0 . 8 ■ Ü , 254 , 1 98 .. 254 ■ 454 1 60 DR TR 254 , 254 , 254 , 254 , 255 . 255 , 84 . 1.-0 •' 180 C$=INPUT*< 1 :• 4 > 48 84 124 l BASIC MSX ■ Générateurs de sprites : Nous proposons un programme générateur de sprites permettant de représenter des sprites de 16x16 points. En mode "télécran 1 , nous représentons le sprite. Le programme fournit ensuite les valeurs décimales. XXXfcXXM IJ . *i ■■ i* \ i, .H. ,i*,j i, j i, 1 1 ’i A »• ’i t 'i c ’i r 'i r ’j r t r i*' l, i A X — 0 gt - X x 0 0 v ,1 y £ -•u A At ’l »• *• ti X X 1 0 0 X X yy www ru ii ’n' ii ir h' i y Ai 16 254 l'b A A i -, ’i r''i Ai 01 138 r* “• i 1 *> WW W V ri A AA V A A Ai 48 254 1, • r'\ r' : . i* ,: i W W y fVi A Au"iAir i 1, ,L L 48 254 - X XXX XX) ,14. ,1 fe ,11 II, «1, ,1a, ,11 j iA A.''i A A AA A |l Ai p 127 254 X y • j.,4 y y *; ■i Ai Ai A Ai Ai Ai r''i Ai 127 254 X V V V V 'î.i 1 V W V V W V AT ri it irnAi i i i i ï i i i ■ 1 iTpi-i Ai 127 254 X l,.l> .il IL II II, A A A Ai An' /',j y y y y y y v u Ai r \ A A» AA Ai Ai f: 2 127 254 x> l'yv y y y ; ini ' »• 1 1 i r '< i ■ A i' *p r'*i r *i .• ■■ < 255 254 xxxxxxx> • » .i i j i » i % i « . A, A. A. A, A, Ai Ai Ai :x 255 ill \ J ÿ A A X A> A* r 'i 48 24 I ’l y y j .< i •. t y i'V. x — 40 24 ^ V 1 A 1 A AA A *' •yy uyu y 1 1' ■. h. r ■> i-i «• r » r i r' i A FLECHES POUR DE PL RC ER L : LEVER • EH BAISSER F FIN Pour obtenir les valeurs de la figure retournée de 180°, ajouter les instructions suivantes : 450 LOCflTE 15, 13 ^ INFUT " RETOURNEMENT ( QxN J " > R bj0 ■ RETOURNEMENT fa40 FUR CL=-'l TO 2 * 2 COLONNES R$ : IF R$<. >"0" THEN 150 16 LIGNES 650 FOR L=1 T G 16 660 PS=t.'CL~l ï£8 ïll _ _ ' VALEUR DECIMALE ff® F0 R_a=1 tu « •• 1 CARACTERE Sa0 H~U 1 I F VPEEK'I AM+2+PS+X+L440 'J=200 THEN R=1 70y ND*ND+ft*2 A <X-i > 710 next x 720 LÛCftTE 20+C \ 2- CL >+ 1 }*5 , L = PR I NT ND, SPC* 1 > 730 NEXT L 740 HEXT CL 750 GOTO 150 GRAPHISMES HT SONS 125 * sFRE^r* 7 ^ [£ spc ' ites 2Ü CUL OP 4.. 15 70 F-üP x-ÿ TO 17 LOCATE X • a PP INT "y," ■. i m pr ~ v r PP ] NT '■X- KE -.T X 00 FOR Y=0 TÜ 17 LOCATE O Y PF I NT '' X" • Li'i-' RTF 17. Y- F PI NT "X" HE MT r 05 LÜChTE 1,1* FF INT "CLAVIER MAJUSCULE" 90 L OC R TE 1,20 PP INT "FlECHES FOUR DEPLACER* 1O0 LüChTE 1,21 PF- INT "L- LEVER- B ' BR IEEE P F FIN" 110 X - 1 0 • Y- 1 0 ' C 00 F' D CiN v -t E : DP pm Pi 140 ' CURSEUR: CLICNUT ANT 15Ù Ct- INC.EYt 1F Ct - > " r ' THEN 200 'TEC! CLAMER 160 L OC RTE X • \ : PAINT CHF-t r 200 > 170 LOCATE y. Y PP INT CHP't': 32 ;• 180 GOTO 150 1 90 ' 20 Pi IF L=0 TKEN LOL-ATE X. V FF INT CHPtL 200 .■ 210 IF L-l THEN LOCATE X,ï PP IN" CHR$ ! ?? '• 220 230 C=RSC*: Ct 1 24C IP C-29 THEN 1F 1 THEN X=X-1 GAUCHE. 250 IP 0=2. S THEN IF CMP THEN MM: ‘DRCU'E 260 IF C “ ? 1 THEN IR Y 16 THEN »‘=-.’+l '' P HR 270 IF C~ 3m THEN IP YM THEN V=iM •HAUT 275 IF C - >32 THEN LOCATE 20,19 PR INT Ct 2‘SÜ IF Ct- "L' 1 THEN L =■ 1 290 IF :| THEN L-0 700 IF et'-” R" THEN 330 310 GOTO 150 320 CALCUL VALEURS DECIMALE':- 330 RM =6 A ML' CD 340 F OP CL = 1 Tfi - v CÜLÜNNr 3 350 FCP 1=1 Tü 16 * 16 LIGNE : 360 P ?■— . r L-l 370 NO- U YHl.FUP Ht-. IMHLE 3Ç:0 F • jp X= 1 Tu 2 1 ChF'hCTcRE 390 A=ri 1 F VPEEO: AM+2+PS+X+LM0 ':>=20O THF N A-l 400 ND=ND+A*>' '• 8— D 41U NEXT X 420 LüChTE 2Ü + CL. £5, L PAINT ND SP»"' 1 . 430 NEXT L 44P NEXT CL 450 GOTO 150 ON SPRITE GOSUB n° ligne SPRITE ON SPRITE OFF SPRITE STOP L'instruction on sprite gosub définit le numéro de ligne où il y aura branchement du programme s’il survient une collision de sprites. sprite on valide la déclaration faite par ON SPRITE GOSUB sprite off l'annule. sprite stop mémorise la collision en attendant SPRITE ON. r 126 BASIC MSX t lit 10 • collision 20 COLOR 1 , 1 5 : SCREEH 2,0 sPr i te 3G SPRITE$C 1 >=CHF:$( S >+CHR$C S >+f:HP$f 2;=: )+CHR$( 1 27 >+CHR$< 28 >+CHR$< 34 >+i_:HE$< 65 40 SF'RI TE$'.' 2 >=SPR I TE$( 1 > 59 ■ 6G. ON SPRITE GO SUS 140 70 SPRITE OH 80 V-100 20 FOR X=1 TH 220 100 PUT SPRITE 1 , ( X . Y > . 1 . l 110 PUT SPRITE 2,'.:220-X, Y),2,2 120 NEXT X 130 ' 14Q PLAY "CDE” 150 C$=INPUT$( 1 > collision ■ Une étoile filante traverse l’écran : 10 20 30 40 50 60 70 80 90 100 - ETOILE FILANTE CLEAR 1000 COLOR 1,15 SCREEH 2,2 FOR N-l T O 4 FOR 1=1 TO 8 READ X A$< N >=fl$( N >+CHR$f X NEXT I NEXT H 110 120 138 140 150 160 170 180 190 200 210 220 230 240 250 SPRITE3K 1 >=A$( 1 >+A$( 2 3 >+fl*c 4 "* ■ DEPLACEMENT C=RHD( 1 >4 15 X=RHD< 1 >4100+10: 1 S=INT< RHD 1 1 >42 > : I F S=0 THEN S=-l ,t PUT SPRITE 1 , < X , Y > , C , 1 X=X+S43 ; Y=Y+3 ^ IF X>190 OR GOTO 170 X<10 THEN 138 DATA 0,0, 1,1, 1,63, 15,3 DATA 3,7,6,12,8,8,0,0 DATA 128, 128, 192, 192, 192,254,248,224 DAT fl 224 ,240,48,24,8,0,0.0 C*»INPUT*< 1 > GRAPHISMES bT SONS I 127 ■ Vol de papillon Pour simuler un vol de papillon, nous le représentons alternativement dans 2 positions. Chaque position est représentée par 16x16 points. AS( 3 ) X y AS( 1 ) - y"^ N // ,\ .A/ y — y z Positionl A Z Positwi 2 ^ AS( 2 ) " __] XJ A$( 4 ) 10 ‘ — ■- VOL C E F : 'RP ILLON 25 l LE R R 1000 30 C E-l CF- 15 ecr i tur ' end 40 COLOR CE.- C F 50 S CREER 2,2 60 FOR S=1 Tü Ù. 2 2- P r i t ■es 1 6 > 70 FüF: 1 = 1 TÜ 4 : H$ : -. I 7 =,ï '* : H EX T I 80 F Ü R N=1 TÜ 4 90 FOR 1=1 Tü 8 100 PERD X 1 10 R$'- N : =Fl$ r , N +CHR$*:: N > J. 20 « Lu 130 H EX T N 140 S PRITES S )=R$( 1 HR r i*< 2 H 36 3 O F ISK 4 .:■ 150 H EXT S 1 60 -• — POSITION 1 170 DR TR 0,0- Ü, 127 • 63, 31, 1 !j .. 6 o 1 30 DR T H 15,2 1,63, 1 27 , 0 - 0 - 0 r 0 190 DR TH 0.0, 8, 248, 240 *226 , [ 3 6 i 2 48 ."•00 DR T H 1 36 • 226 , 2:40 , 2:48 .• 0 • 0 • 0 • 0 >:10 •*-- — - - POSITION 2 220 DRT h y , 0 , 0 , ÿ / 0 .■ 3 1 .13,6 3 230 DRT R 1 5 .• 3 1 .■ 0 .■ 0 .■ 0 , ü . 9 , 0 240 DR Th 0 , 0 , 0 ,■ 8 , 0 , 226 - 1 96 • 243 258 DR T H 1 96 , 226 .• 0 - 0 , 0 , 0 , 0 , 0 260 ‘ - - 2 7 0 C I N T R H D C 1 : 1 i 1 5 ■ f S. ■' r n u 1 e- 1 .« r a » : h * •=- •? * '■ d 280 Y- 109 290 FOR 7”1 TC 2Ü0 :■ •:TE.F 4 300 PUT SPRITE 1,0 : i • Y • , C, 1 310 F 1 U R TP- 1 Tu 50 ne;- T TP 320 PUT SPRITE 1,0 =: , 22 3 > ■ C ■ 1 •H- U. P 1- fS"T. ' O T» iü P ["■ 1 t-6 1 33© PUT SPRITE 1,0 : y c .* ’m.' ' iLi 340 FOR TP=1 TÜ 50 HE/ T TF 1 350 PUT SPRITE 1,0 , se 3 > , c ■ 2 1 1 F' P r- k :i?. ” i o ïï ■=. P r i. t g- 2 360 MENT X 370 Y-Y+4 380 GOTO 270 390 C$“INPUT$':: 1 128 I BASIC MSX ■ Une étoile est affichée dans 32 plans. 19 1 — r - ciel 20 CL EUR 100G 30 CÜ LO R 1, 15, 15 4û S CREE N 2,3 50 FOR N- 1 TO 4 60 FOR ]>1 Tu 3 70 RE RD X SU fl$< H H >+CHP$< 30 NE K T I 100 ne: ;t h et-oi le 110 fi'ii.i. I. +;. i co 1 or-K 120 SP R I TE$< 1 1 Fl $ 2 j+MÏK -2i' ) +«$».: 4 ; 1 30 ■ • — - — - — - — — - 3 f'f IC ■ h 3.9 e 32 s P ri t.pj 140 FOR p=0 TO 31 150 X=RND< 1 >*226+10: RHIX 1 >4 1 7 0+ 1 0 169 CLeRHtX 1 >*15+1 170 PUT SPRITE F' . ( K , Y ) .►CL, 1 180 H EX T P . 130 C*=INPUT*C 1 > 200 • i; j K' l M etcn L 210 DHTR 0, g , 1,1,1, 53 , 1 cr -, •j : 220 DR T F 3.. 7,6, 12 , s. fi ,0 0 230 DRTR 128, 128, 192, 13 2, 13 2, 254 > , 224 240 OflTfl 224,240,48,2 4, O , 0 .• 0 , 0 ■ Ci-dessous, nous représentons un soleil en haute résolution avec un cercle plein et huit rayons. La deuxième partie du programme fournit les valeurs déci- males pour représenter le soleil sous forme d r un sprite. 70 i :f=is .* co u. 1 e y j. r de tond 80 ; *:c=ü : T'L 2 : R=3 c t ïï L. r e r ■ y < j n 30 i :;OLOR i , CF 100 SCREEN £ h-?. u Le reso T • i + . i 110 CI RCLEC XC , YC ), R , 1 120 PhI NT X C , YC > , 1 130 FOR fi=w TO 2 4:3. 14 S T EF 3. 1 5 -■'4 '* r;rJi">|-| 140 R1-R42 rr - .J 150 X=XC+R 1 *CQS fi > 160 V=YC+R1*SIN< fi > 170 LINE ( :«;c , vc X ■ Y > 1 80 NE Y T R 130 200 ----- COL' CUL VALEUR 5 DE.CIMHLËS 210 OPE N 1 G RP ^ M F OR ÜUTPUT RS #1 220 FOR CL - 1 Tu 230 FOR L“ 1 TO 16 240 PS=C C L~ 1 Y* s 250 ND=0 260 FOR X = 1 TO P 270 fl “8 : IF POINT' PS+X , L. X > CF T HEM ft-l 280 ND=ND+R*2 8- > GRAPHISMES BT SONS I 129 20 DATA 30 D'h T H 40 DRT Fi 50 DRT R >96 NEXT X i»00 X1*100+CL*32 ; Yl æ 40+LS:8 Ï10 DRAW U BM*X1 *Y1 • " ï20 PR INT # 1 > NC' 1 Ü30 N EX T L Ï40 NEXT CL >50 C*=INPUT$< 1 > dessin so T e i 1 o b t e ri «.* 1,65, 33, 17, 11,7, 239,31 15,7,27, 34,66,2,2,0 0 , 8, 16 , 32 .» 1 92 , 1 92 , 224 , 254 224 , 132,1 60 , 1 6, 8 , 0, 0 , 8 130 i BASIC MSX REDÉFINITION DE CARACTÈRES Chaque caractère est représenté en mémoire sous forme de 8 octets. SS 5 - L adresse du générateur de caractères” est donnée par I instruction BASE{n). SCREENO SCREENî > BASE(2) -> BASE(7) BASE (2) 2048 L’adresse du premier octet d'un caractère est donnée par ■ adresse=BASE(2)+ASC(caractère)*8. Pour modifier un caractère, on utilise vpoke adresse, valeur. En mode SCREENO”, seuls les 6 bits de gauche des caractères apparaissent I écran. ■ Ci-dessous, le caractère "C” est remplacé par un dessin de voiture. GRAPHISMES BT SONS l 131 1© ' REDEFINITION CARACTERES 20 * 30 •' — • — d ç s s i a O i t ij. r e 40 ' 50 DATA 1 86, 252 , 1 30 , 48 , 48 , 1 80 , 252 , 1 80 60 •' 70 SCREjEN 0 80 C$- f, C" ■’ caractère' a modifier 90 AG=BASE< 2 J> •' adresse 9enerate'j.r de caractères 100 flC-fiG+ASCX C$ >48 110 J 120 FOR M--AC TO AC+7 130 READ ND 143 VPÜKE M ND 150 N EXT N 160 PR INT C$ 170 STOP ■ Le programme ci-dessous inverse le caractère "A” : 180 ' INVERSION DE R- 1 190 •' 200 SCREEN 0 210 C$= I, A M 220 AG=BRSEC 2 ) 230 AC-RG+ASCC C$ )t& 240 ' 250 FOR 1=0 Tü 7 260 M=RC:+I 270 C ( I )=VFEEK< M > 280 NEXT I 290 1 300 FOR 1=0 TÜ 7 310 M=AC+I 320 VPÜKE M, C<7~r> 330 NEXT I 340 PR INT C$ ■ Après avoir redéfini le caractère ‘C’\ nous dessinons des immeubles : □□□ □□□ □□□ □□□ □□□ □□□ □□□ □□□ □□□ y n rn □ □ □ □ □ □ Caractère redéfini 132 I BASIC MSX 10 '• DESSIN IMMEUBLE 20 DATA 252 , 1 32 .• 1 32 , 1 32 , 132,1 32 , 1 32 , 252 30 ' 4Ô : SCREEN 0 50 » C$* M C" * car a et er *•£ a modifier 60 ! RG*BfiSE< 2 > * adresse 9 e Ti £ r -9. t £ U r d 6' 70 i RC=RG+R3C< C$ >*Ç; 80 •* 90 1 FOR M*RC TO flC+7 100 RERD ND 110 VPOKE M, ND 120 me: ; T ri 1 30 140 X6- 1 : VB-2: : 150 — 16.J4 FOR N= 1 TO 5 immeubles 170 H-RND< 1 >*5+5 L= ; RND< . 1 >*3+3 180 FOR Y=VB TÜ VEi -H : >tep -i 1 90 FOR X=XB TÜ x B+L 200 LOCRTE X , Y : PR INT C*; 210 NEXT X 220 NEXT Y 230 XB=XB+L+2 249 NEXT N ■ Le programme ci-dessous représente une maison utilisant quatre caractères (ABC D). CHR$(8) déplace le curseur à gauche et CHR$(31 ) vers le bas. 30 40 ' DESSIN NRISON (MODE SCRE EN 1) 4 CARACTERES 50 DATA 12, 12 / 63 • 127.« £55.» 64 * 95- 85 60 DATA 0,0, 248 , 252 , 255 .<2/2/2 70 DRTR 95,35,85 85, 95, 64.. 64, 1 80 DRTR 122,74,74. 106,74-74-74 90 ' 100 SCREEN 1 110 CS*" fl" i p r - 120 RG-BRSEC 7 > •• adr* 130 AC-AG+ASC< C$ >%Q 140 ' 150 FOR N” 1 TO 4 160 B~flC+< H- 1 )*3 170 FOR M*R TO R +7 180 RERD ND 190 VPOKE M, HD 200 NEXT N ,254 sse 9 errer- a. te u r de caractères 210 NEXT H 220 ■ 230 C*ftSC< CSO 240 K$=CHR$< C >+ChRï( C+l HCHR$Ç 31 )+CHR$'^ 8 >+CHR$C f: .i+r.HRi': 3+2 >+r;HPï'' r+3 i 250 '■ AFFICHAGE 260 FUR N=1 TO 10 270 X~RND< 1 J *38 V-RHD( 1 >*20 280 LOCRTE X, V - PR INT K$ 290 NEXT N GRAPHISMES Lï SONS 1 133 MODIFICATION ECRAN EN MODE “SCREEN2” ■ Ci-dessous, nous dessinons deux voitures en haute résolution en utilisant VPOKE. 10 ' flffichJ.9e direct écran c;SCREEN2) 20 30 '' dessi t» vo i t u. r e 40 DR T R 180.252G 180,48,48, 188,252, 180 50 SCREEN 2 60 FOR 1-0 TO 7 : REflO C( I > ; HEXT I 70 f 30 CDL= 1 0 • L I G=2 ! GOSUB 130 t* 98 LIG*3*COL=3‘GOSUB 130 100 •' 110 C$=INPUT$C 1 ) 120 ■' s P 9iïi 1 caractère 1 30 M=C L I G- 1 )*32*8+< COL- 1 >*8 140 FOR 1=0 TO 7 150 VPOKE M+ï,C<n 160 NEXT I 170 RETIJRH 134 I BASIC MSX LES SONS ■ BEEP ■ PLAY ■ SOUND ■ PLAY(n) Les sons sont fournis par trois générateurs (A,B,C,). Un bruit peut être ajouté à chacun de ces générateurs. Plusieurs types d'enveloppes sont disponibles (B). 14 “canaux’ 1 permettent de commander la fréquence des générateurs (CO à C5) r le bruit (C6), le volume (C8 àC9) et l'enveloppe {Cil à Cl 3). GENERATEUR A r , Période basse Période haute Cil C12 période basse période haute C13 enveloppe GRAPHISMES ET SONS I 135 BEEP Provoque un son bref. SOUND n° canal, valeur Commande les différents canaux : ■ Générateurs de fréquence A,B,C : Chaque générateur est commandé par deux registres de 8 bits dans lesquels on place la “période basse” et la “période haute”. La période réelle est donnée par : Période^ période haute*25€+ période basse La fréquence est égale à : 124000/période. Exemple : pour le générateur A (CO, Cl), plaçons 100 dans Cl et 1 dans CO : SOUND 0,1 SOUND 1,100 -> 1*256+100=356 La fréquence est 124000/356. La partie haute de la période doit être inférieure à 16 (4 bits seulement sont utilisés). ■ Bruit (C6) Le canal C6 commande le bruit qui peut être ajouté aux fréquences A,B,C. ■ Interrupteur (C7) Le canal C7 sélectionne les générateurs et le bruit. Un “zéro" commande le passage. sound 7,&bi iiooo sélectionne A,B,C sound 7,&biiiiio sélectionne A seulement sound 7,255-1 sélectionne A seulement sound 7 ,o sélectionne A,B,C et bruit pour A,B,C. ■ Volume : Le volume doit être compris entre 0 et 15. sound 8 ,i 5 règle le volume pour A au maximum. “volume” égal à 16 indique que la fréquence doit être modulée par le générateur d’enveloppe. Le programme ci-dessous vous permet de tester les notions ci-dessus. 136 I BASIC MSX kl INF U T "FREQUENCE "7F 30 IF F: 33 TH EN 20 4Ü ' 50 P-l/F.*: 124000! 60 Cl -F -256 70 C0=F MOC> 256 80 PF IN T Cl, C0 Qm ’ 10© SOUND 7,254 110 SOUND 8,12 120 SUUND u, C0 130 SOUND 1 , C 1 14Û GOTO 20 fre^ uence P er 1 ode canal 1 canal O ■’ voix H ■' vol u ne 12 Pour H ■ Forme enveloppe (C13) et période enveloppe (Cil et C12) : Huit formes d’enveloppe sont disponibles. La forme se choisit par : Sound 1 3,n« forme. w\ N AV7 GRAPHISMES ET SONS 137 La période de l’enveloppe est choisie par : Sound 11, période basse Sound 12,période haute La période réelle est donnée par : P=période haute*256+ période basse La fréquence est égale à : 7800/P. Ce programme vous permet de tester les notions présentées ci-dessus. 10 fréquence- enveloPPe •' bruit équivalent 3 P ING 36 ’ 40 INF UT "FREQUENCE enveloppe 50 ' l! FE 66 70 p-l/FE*:780û ÿ0 P2=P'\256 90 P1=P MOD 256 100 PEINT P2, Fl 110 ’ 120 SOUND 7,254 130 SOUND 8, lb 1 40 SOUND 0 .• 50 ■ SOUND 1 , 1 im SOUND 13/8 160 SOUND 11, PI 170 SOUND 12. -Pii ISO GOTO 10 P er i ode- C Aï» «3.1 12 C-3.V13. L 11 voix H c o ïi t. r oie P -3. r e n ve 1 o P P 1 e fréquence I 1 xe type e Ti v e 1 o P F’ e F' e r i o d e t» 3. s -5 e P 1 e- 1 ’ 1 i ci d e Pi -3. u. t e Nous présentons quelques programmes de sons. ■ Ping : 10 7" — Pin 9 2W SOUND 7,254 voix H 30 SOUND 8,16 c o 'n t r’ o l e F' 3. r e n v e l o F 1 F 1 e 40 SOUND 0,50 SOUND 1,1 fréquence fixe 50 SOUND 13,8 type enveloppe 60 SOUND 11,0 ■ SOUND 1 Ü .■ 1 0 80 FOR TF-1 TÜ 100 HEXT TP 90 SOUND 8,0 ■ Exptode : G ex p Iode 1 0i SOUND 6 , 20 20 SOUND 7,7 : SOUND 12,26 30 FOR C*3 TÜ 10 SOUND C> lb NExT C 40 SOUND 13,0 138 1 BASIC MSX ■ Shoot 10 SOUND 6,11 £0 SOUND 7,? SOUND i£, 1£ 30 FOR 08 T’Û lü SOUND C, 16 N-IENT C 40 SOUND 13,0 ■ Sirène 10 ■' 20 SOUND 7,234 30 SOUND 8, 1® 4û •' 50 FOR 1*1 10 255 60 SOUND 0, I 70 NEXT I 80 GOTO 50 ■ Vague fe'ioÜHD êTÏÏ V * 9U * "" 20 SOUND 7.* 7 : SOUND 1 2 t 40 30 F DR 08 TO 10 : SOUND CMS 5 NEXT H 40 SOUND 13,. 14 sir-erp# ' 9erierateur R volume Pour R ■ Descente soucoupe lu ~~ descente soucoupe 20 COL OR l u 1 5 : SCREEN 2.0 30 SF'RITESK 1 >=CHR$>. 48 >+CHR$'v 43 >+ÜHR$>, 48 ?+CHR$< 120 >+ÜHR$( 252 HCHR$', 252 >+f:HR *< 252 >+CHR$< 252 > 4Û ■' 50 Y =50 60 SOUND 7, 254 SOUND S.. 12 J ©enerate ur R Vol urne =1 2 70 ' 80 S*1 90 X 1 ~ 1 0 = N 2= 208 100 CL=RND< 1 7*14+1 110 FOR X“X1 TO N 2 S TEP S •' 120 SOUND Q,Xs2 1 38 PUT SFR I TE 1 , ( X, Y >, f;L . 1 140 NEXT X 158 S=-S = SWRP XI, X2 K sens sens bornes cou. I eur avance i river s i o 160 ï=Y+8 170 GOTO 100 descente GRAPHISMES El SONS i 139 PLAY chaînel ,chaîne2,chaîne3 Joue des notes sur trois voies simultanément. Les notes sont représentées par A, B, -F, G. A:LA B:SI C:DO D:RE E:MI F:FA G:SOL PLAY “CDEFGAB” joue DO, RE,... LA, SI Les chaînes ne doivent pas comporter plus de 255 caractères. Une note peut être suivie par # ou + (diese) ou par - (bémol). PLAY “C+D+E+” Plusieurs commandes sont disponibles. Leur effet dure jusqu'à ce qu'une nou- velle commande définisse une nouvelle valeur. Par conséquent, on pensera à initialiser des valeurs qui auraient pu être changées par un programme précé- dent. beep initialise ces valeurs. ■ Octave : On : Change le niveau d’octave pour toutes les notes qui suivent la commande. "n” doit être compris entre 1 et 8. La valeur par défaut est 4 PL fi Y "05CDE04CDE" ■ Note : Nn : Joue une note comprise entre 1 et 96 (8 octaves et demi ton). play “N36” est équivalent à play “04C” 20 PLAY "G4CDE" ' DÛ RE MI 3w PLAY "N36M33N48" ' c'est la meme chose n=Û provoque un silence. ■ Longueur : Ln : Détermine la longueur des notes après la commande. 1 donne la durée la plus longue et 64 la plus courte. Par défaut, “n” est égal à 4. Pour modifier la durée de la note suivante seulement, spécifier la valeur après la note. 10 PLAY "L32CDEFGR6" ' toutes les notes 15 PLAY "RRR" 20 PLAY "L4CD32EFGAE:" ' D seulement 140 I BASIC MSX Chaque V après une noie multiplie sa longueur par 3/2 (2 points multiplient par 10 PL Fl Y "R. . BCDFG" ■ Silence : Rn : Provoque un silence, “n” doit être compris entre 1 et 64. fl Tempo : Tn : Détermine le tempo (32 à 255). La valeur par défaut est 1 20. ■ Volume : Vn : Détermine le volume (0 à 15) qui est par défaut égal à 8 10 PL Fl Y ' 1 V 2 R V 4 R V S R V 1 5 H ' 1 ■ Forme enveloppe : Sn : La forme de l'enveloppe doit être comprise entre 0 et 1 5 (cf SOUND). ■ Période enveloppe : Mn : Définit fa période de Tenveloppe (1 à 65535). Par défaut, n=255. 1 0 PL R Y M 3 1 311 1 000H BCPEFij ■ Passage de variables chaînes : Xvar$ ; Le passage d’une variable chaîne se fait en ajoutant “X” devant le nom de la variable et point-virgule après. 10 C 1 $= M CDE M 20 C2*s"FG fi" 30 PLAY . 11 XC 1 $ ; XC2$ ; " fl Passage de variables numériques : =var ; Pour spécifier une valeur donnée par une variable numérique, on place le signe " = ” devant le nom de celle-ci et point-virgule après. Le programme ci-dessous joue les notes de 36 à 96. ië 30 40 50 60 Y M L2” FOR NT-36TÜ 36 LOCRTE 10, 10* PR INT FL R Y "N-HT ; NEXT NT NT GRAPHISMES ET SONS ■ 141 Exemples divers : 10 PL H Y "C°, "E”, "G" 10 F'LRY "T200flBCDEF M 20 F'LRY "TSBRBCDEF" accord DU Ml SOL ■' ter» P o rapide 1 te-n’iPo 1 en t cr .■ — rou.si aléatoire î 0 DUR- 3+ 1 NT < RNDC 1 > * 1 0 > ' d u. r e e a. u h a. s ar d 20 MT~IHKRND< 1 >*20 >+32 ' note au. h-3.5-3.rd 30 # 40 F LH Y u L=DUR.i N -NT ; M 50 GOTO 10 PLAY (n) play chaîne1,chaîne2,chaîne3 t ne bloque pas le programme pendant que la musique est jouée. L’instruction suivant play est exécutée immédiatement. play(N) teste si une voie est libre (n = 1,2,3) play(O) teste si toutes les voies sont libres. Le programme ci-dessous attend que la musique soit jouée avant de poursuivre l’exécution. 10 R$-"eCDEFG" 40 F'LRY 50 1F F'LRY( 0 1 THEN 56 ‘ boucle ±' attente 60 PR INT “suite " Celui-ci affiche l'heure pendant la durée de la musique. 10 CLS 15 TIME=0 20 RS="BCDEFG" 30 PLAY 40 IF PLRYC 0 ;•=“ 1 THEN GOSUB 70 = GOTO 40 50 GOTO 40 60 ' horlo9e 70 LÜCATE 10. 10 ; F'RINT TI NE •'50 : RETURN beep stoppe une musique en cours. 10 CLS 20 R$="RBCDEFG ,; 30 F'LRY R$+R$+R$ 40 •' 50 IF INKEY$< > " " 60 GOTO 50 THEN BEEF 1 142 I BASIC MSX ■ Morse ; Ce programme vous permet d’apprendre l’alphabet MORSE. Par exemple, en appuyant sur la lettre S, vous entendez 3 sons brefs. En appuyant sur 0 vous entendrez 3 sons longs. /;ï •• 30 U..EHR 1000 4M DIM riR$'." 36 ) 50 DATA . - , 30 DATA „ . - „ 70 DATA . ..... . . „ , . , , ~ 80 DATA - « ■ , . — , ••••-„ . p , - , . . - 30 DH T h , - . — 100 CL S 110 FOR 1=1 Tü 26 • READ MR8*(I > : NE3T tü0 ’’ 130 C$= INF'UT$C 1 • 140 ' 150 P=flSC< C$ >-64 : I F PCI OR P >26 THEN 130 160 ' 170 x$=rtF:s$c p > 175 PR INT MR$< P 1 , n 130 FOR P«1 TÜ LENv X$ > 190 1F MID$CK$,P, 1 >=". 11 THEN PLAV H L12fl M 200 IF MID*CX*,P, 1 >='■-" THEN PLAŸ r, L5fl" 210 FOR TP=1 TO 20NCXT TP 220 NE N T R 230 GOTO 130 25Ô POUR AFFICHER EN MORSE = 260 '■ 175 PR INT MRS$< P > : " V; * Pour jouer avec le clavier : A chaque touche du clavier, nous faisons correspondre une note. i,j=j MUSIQUE CLAVIER suppression sono clavier 30 DIM CL$< 40 >, NTE$< 40 > 40 •' 50 DATA Q, 03R , N , Û3E: .* E , 03C , R , 03D SA DAT A H . 04 A , 3 , Ü4B • D ■ ri4f: , F . 04D 70 DATA FIN 80 ' 90 FOR N-l TÜ 40 100 READ : IF X^FIN" THEN 15fl 110 READ Y$ 1 20 CL$< N ->=)<% : NTEÏ < N 130 NEKT N 140 1 150 >•!$= INPUTîC 1 > 160 FOR F-l TÜ N 170 IF CL3K P THEN PLAY NTE$( P ) GOTO 150 180 MENT P 190 GOTO 150 Table MRS${ ) GRAPHISMES F,T SONS I 143 CL$( ) NTES ( ) Q <r+ 03A w *r~> 03B E <r-+ 03C A s D LES FICHIERS I À A SÉQUENTIELS I 1 U ■ O PF. N ■ PRINT# ■ INPUT# LOF CLOSE INPI; FS# LIN K INPUT# MOTOR MOTOR ON MOTOR OFF MAXFILLS DUPONT 955-19-07 R L c F Le stockage d'informations s'y fait en fin de fichier au fur et à mesure des arrivées. Une information particulière ne pouvant y être ensuite retrouvée qu après avoir lu toutes les précédentes (accès séquentiel), leur organisation est dite séquen- tielle. Les instructions d’écriture et de lecture sont analogues a celles de l'im- pression et de la lecture au clavier. (PRINT — INPUT). Dans le cas le plus simple, les enregistrements sont séparés, de façon interne et donc transparente à I utilisateur, par des caractères “Carriage Return (Retour chariot) et “Line Feed” (saut de ligne) (Codes ASCII 13 et 10). OPEN “U:nom-fichier” FOR mode AS #n° fichier Un fichier est ouvert en écriture (output), en lecture (input) ou en ajout (append). output : écriture input : lecture append : ajout en fin de fichier (disque seulement). Le lecteur de cassette est spécifié par “CAS S'il n existe pas de lecteur de disque, “CAS peut être omis. nom-fichier n tichier f f Qf» fiP&H "CHS 'ES3" FUR ÜUT'ir hû- / » Unité L Ecriture open’* réserve une mémoire tampon et lui affecte un numéro (* 1 sur exemple). C'est ce numéro qui est utilisé dans les ordres d'écriture et de lecture. 146 BASIC MSX Lors des operations de lecture et d'écriture, les informations transitent par la mémoire tampon. Pour une écriture, c'est seulement lorsque la mémoire tampon est pleine que le transfert vers la cassette (ou la disquette) a lieu, Remarque : open sert également a ouvrir des "canaux” vers des périphériques tels que : crt écran SCREEN 0 ou 1 grp : écran SCREEN 2 lpt imprimante {cf. chapitre 'Les éditions”). PRINT#, n° fichier, variable INPUT#, n° fichier, variable Dans le cas le plus simple, l’écriture dans un fichier séquentiel se fait par : PRINT # n° fichier, variable Si l’utilisateur programme : 11Ü 12 U 120 140 150 I H PU T 1 ' NÜM ( OU I- ' I N > " . \ lüh: $ I MP U f " TELEPHONE '' ï'PHüf; IF MÜNifi : ""F I N 11 TMEN CLOUE# 1 FRI HT ttl.-NOM* P PI MT #1 . rpH* il y a écriture de 2 enregistrements qui seront lus par : INPUT # n° fichier, variable, variable 270 INPin #1 , NOM sk* TPH$ 2BQ PRIMT N0M$ .. T PH$ (Les 2 enregistrements peuvent egalement être lus par 2 instructions input*). Les lectures doivent, bien sûr, s'effectuer dans l'ordre où les écritures ont été faites. Attention : PR INT # ; NOM* PRINT #1,TPH* ne doit pas être remplacé par . PRINT #l,Nüri*,TPH*i Les variables seraient séparées par des espaces seulement (comme pour PRINT NOMS, TPHS à l'écran). I LS Ï ICHli KS sl-.Ol l N I II I.S 147 CHAINE COMPORTANT OES VIRGULES La virgule étant considérée comme séparateur, il faut, lors d une écriture par PRINT #, encadrer la chaîne par des guillemets (CHR$(34)). Elle peut ainsi être relue par INPUT #. Si les guillemets n ont pas été prévus à l’écriture, il faut utiliser LINE INPUT # à la lecture. P PIN T tfl , :.HE3\ 54 : = RUE$ i CHRstK 34 ) EOF{n° fichier) ! Gui lerrets CKRSÎ3-L >5 q ; "11. Rue NOBEL 1 V V'rçu.e (séparateur i Cette instruction repere la fin d’un fichier en lecture Elle doit être placée AVANT l'instruction de lecture INPUT #. Ztïfct 1F EOF». 1 L T HE H CLUSE #1 Où l'O Z70 J Ni"' U T #1 .NQî1$. TPH$ La fin des fichiers est repérée par le caractère CHR$(26). CLOSE # n° de fichier Transfère le contenu de la mémoire tampon dans le fichier puis libéré celle-ci. "close” sans numéro de fichier ferme tous les fichiers. - U USE: 41. Cette instruction est obligatoire. RUN, NEW et ENO ferment les fichiers mais pas STOP. INPUT$(N,# n° fichier) Lit N caractères d’un fichier. Les séparateurs sont traités comme les autres caractères. 4j£f L*= I.NPUT SK 1 • #1 • LINE INPUT #n° fichier, chaîne Lit une chaîne de caractères (255 maximum) en ne considérant comme sépara- teur que le retour chariot (code 13). La virgule n’est pas considérée comme séparateur. 50ft LINE INPUT 1*1, Lï U* 148 ! BASIC MSX MOTOR Met en marche le moteur du lecteur de cassette et le stoppe (bascule) si la télécommande est connectée. MOTOR ON Met en marche le moteur du lecteur de cassette. MOTOR OFF Stoppe le moteur du lecteur de cassette. MAXFILES=nombre Définit le nombre maximum de fichiers ouverts simultanément (1 par défaut). maxfiles-o ne permet plus que la sauvegarde des programmes maxfiles réserve une mémoire tampon de 267 octets par fichier. maxfiles remet les variables à zéro. Par conséquent, elle doit être écrite en début de programme. 10 y, =123 MRXFILES-2 30 PR INT a RUH 0 Un édition peut être provisoirement stockée sur cassette en ajoutant un numéro de fichier devant les instructions PRINT. L’édition des résultats se fait en lisant le fichier. Le programme ci-dessous, illustrant les instructions des fichiers séquentiels ne fonctionne qu'avec la télécommande, puisque l'écriture sur cassette ne se fait pas de façon continue. 10 ' ESSAI FICHIER SEQUENTIEL CASSETTE ( AVEC TELECOMMANDE ) 20 ' 30 ' ECRITURE 40 PRINT "PLACEZ LB TELECOMMANDE" 50 PRINT "APPUYER SUR < RECORD) DU CASSETTE " 60 PRINT "PUIS <RETURN>" 70 C*=INPUT*r; i > 60 90 OPEN "CAS- ESS" FOR OUTPUT RS #1 100 ' 110 INPUT “NOM (OU FIN) " ; NOM* 120 INPUT “TELEPHONE ";TPHi 130 IF NDM$="F IN" THEN CLOSE# 1 : GOTO 190 140 PRINT #l,NOM® 150 PRINT #1 j TPHS 160 GOTO 110 170 ' LECTURE AVEC INPUT# 180 ' 190 PRINT : PRINT "REMBOBINEZ* SANS TELECOMMANDE > PUIS" 200 PRINT "APPIJYEZ SUR <RETURN> " 210 PRINT "PUIS <F'LRY/ (AVEC TELECOMMANDE)" 226 C*=INPUTÏ( 1 > 230 •' LES h K H IERS Sl .QUENTIFES 149 240 GPEN "CRS : ESS” FOR INPUT RS #1 250 ' 266 IF EGF< 1 >-- 1 THEN CLOSE #l ; GOTG 320 270 INPUT #1,N0I1*,TPH$ 260 PR INT NÜM4> TPH$ 290 GOTO 260 300 -■ LECTURE RVEC I NFUTÏC J , # 1 > 310 ' 320 PRINT-PRINT "REMBOBÏ NEZC SANS- TELECOMMANDE ) PUIS" 330 PR I HT ” APPUYEZ SUR <RETURH> lr 340 PR INT " PU I S <PLRÏ> RVEC TELECOMMANDE V 350 CS* INPUT*':: 1 ) 366 ' 370 OPEN "CRS-ESS" FOR INPUT RS #t 380 ' 390 IF EGF' ns-i THEN CLOSE #1=EN0 400 ' 410 C** INPUT*l I,#i ) 420 PR INT C*.flSC<C*> 430 GOTO 330 ^P6^iR L iuJ E ViÉëoPo> D CU CASSETTE PUIS <RETURN> NON COU FIN) * BRLU TELEPHONE ? 1111 NOM COU FIN) î LRBU TELEPHONE * 2222 NOM COU FIN) ? FIN TELEPHONE 7 3333 REMBOBINEZC SANS TELECOMMANDE ) PUIS APPUYEZ SUR <PETURN> PUIS < PLAY > C AVEC TELECOMMANDE > BRLU 1111 LABU 2222 REMBOB I NEZC SANS TELECOMMANDE) PUIS APPUYEZ SUR < RETUF H > PLUS < PLRY > C RVEC TELECOMMANDE) RUN B R L IJ 1 1 1 1 L R 66 65 76 85 13 10 43 49 49 43 13 10 76 6 150 ! BASIC MSX ■ Sauvegarde d’une table : Le programme de sauvegarde ci-dessous fonctionne avec ou sans télécom- mande puisque la sauvegarde de la table se fait en une seule fois 10 SAUVEGARDE D'UNE TABLE 20 FOR 1=1 Tu 5 30 FK I 40 N EXT I 50 •' 60 PR INT "APPUYEZ SUR < RECORD > puis < RETI iRH> 78 C:i= INPUT*. : n " ' 80 ' 90 OPEN "CAS i TB" FOR ÛUTPUT AS 4] 100 ' 110 FOR 1=1 TÜ 5 120 PRIAT #1 ,FK 1 :■ 130 NEXT I 140 CLOSE #1 150 PRIAT "ECRITURE TERMINEE" 160 LECTURE DE LH TABLE 176 PRIAT "POSITIONNEZ ET F' LA Y " ISO OPEN "CAS = TB" FOR INPUT AS #1 190 ' 200 FUR 1=1 TO 5 210 INPUT# 1, Ai I 220 PRIAT RC I > 230 NEXT I 24 U CLOSE #1 ■ Formatage listing : Le programme ci-dessous permet de lire (comme un fichier) un programme sau- vegardé en ASCII (par SAVE) et ainsi de Tediter formaté à la largeur désirée, La télécommande doit être connectée. 10 ■' FO RIT AT T AGE LISTING 15 ' 20 INPIJT "NOM PROGRAMME " ;NP* 3W Lij-76 ' 1 .?.r-9eur edi*, ion 40 OPEN "CAS • "+NP* FOR INPUT AS #1 50 60 IF EOF.: i )=-i THEN EHD 70 ' 80 LINE INPUT#!, LIG* 90 IF LEN< LIG* IKLG THEN LPRINT LIG* GOTO Afi 100 LPRINT LEFT* r : LIG*, LG > 110 LPRINT RIGHTSC LIG*, LENT IIG*;:'-LG> 120 GOTO 60 U S MC HILUS SI 01 ![ NUI I.S Ci-dessous, nous utilisons l’éditeur BASIC pour composer un texte. Nous sauvegardons en ASCII le texte. gk 10 - Cher Monsieur 20 ' 30 • BLHBLR save "LETTRE 1 ' uk Pour lister le texte sans les numéros de ligne, nous utilisons le programme ci- dessous. 10 IMF 4 U T “Nom texte " NT* 20 ' 30 OPEN NT* FOR INPUT FiS #1 40 ' 56 IF EOF< 1 >=-l THEN END 60 INPUT # 1 , HL I G 70 LINE INPUT # 1 • L I G* GO LPRINT R IGHT*< LIG*, LE NC LIG* T- 1 > 90 GOTO 50 Ôk RUN Nom texte ? LETTRE PROGRAMMES 11 JOUEZ EN BASIC MSX ■ Le squash ■ Conduite de voiture ■ Bombardement d'immeubles ■ Sauts d'obstacles ■ Composition de paysage avec animation ■ Biorythmes PROGRAMMES DE GESTION ■ Tracé de courbe ■ Fichier d'adresses ■ Gestion de Fichiers ■ Saisie d'écran ■ Histogramme ■ Histogramme en 3 dimensions ■ Bibliothèque POSSIBILITÉS GRAPHIQUES DU MSX ■ Dessin ■ Trace d'un dessin par segments de droite et digitalisation d'un dessin ■ Trace d’un dessin défini en data ■ Dessinateur ■ Interrogation de géographie 154 I BASIC MSX JOUEZ EN MSX JEl) DE SQUASH Vous devez faire rebondir une balle à I aide d une raquette que vous déplacez avec les 2 flèches La fonction STICK(O) permet d obtenir un déplacement plus rapide que la fonction INKEYS ; if n'y a pas le délai de répétition. On remarquera la boucle : 330 FOR V I TO 4-NV Elle règle fa vitesse de la balle tout en permettant de tester le clavier XI X2 10 3CEEEN O COL OF 4, 15 20 IMPOT "N s ve? H « | 1 . 2 ■ 3 ■ " ■ MW 30 — . — [-■ e « i. - n t; F-rr • ;i i vi 40 >■£=1 3+NV *2 50 :-a = l : V 1 “ i ■ i ' 1 2 « 1 ÿ 1 i iï. 1 i;.r- :• t.Ë r 1 '• "1 ! T 6 Û KEV OFF ;l3 70 JXFlTE 1 21 • PR INT " >• i'./. r r . 3 . 'i ! J F- l. l" F " 00 FUR X=X 1 TÜ t ' . ill : LU LH 1 L X/Yl : P p I NT £Qû :■ : NE: : :t > 00 - UR V“Y1 TÜ Cn 100 LÜCRTE : a .. Y : PP I H T CHR«-:2 mm 1 J 0 L OCR TE •' û.. .* Y ' PR INT CHPSC : CO ; 120 N EX T Y 130 • 140 RB=0 r = Le nd •ï-. 150 DX=1 LY . . . < ' d HE P 1 •LC F f'lFTït - lh.0 i'C PNCK 1 >*j > : YB--10 t:. 1 L4 1 1. 1 70 LOCH TE' : B • V B : PEINT CHftSK 2 MM j 1 80 XR= 1 0 • Y Ysl ■i i.l. ÜLt Kf- 1 30 EQ$=CHE *( 32 ) 200 C I 200 )■+• l-HRSBC 208 !• +-CHR5i< 200 loch rt; ;R“i •• ï Tl NT prj* 210 — — - de P I a-: e rn e nt b-*. 1 I p 230 L. OCR TE •■B, V B- PR INT CHR$( 3 ^ • i f^'i"errier:t b a 1. 1 e 230 XB-XB+O • : Y B — Y B+DY • n ri ij •,/!=• L l*i P oâ i t i 740 LOCH TE B.- Y E : : PR INT LH F: SC 2 88 •’ROGRAM MI S . 155 250 IF X£-, :>X2“- 1 THEN ! DX~~DX ’ r^bOïïds- 260 IF ’• 1+2 T HEM 0 Y :, *^DY 270 1F XBX <1+2 THEN 0 --d:-; 2ÿ0 23S IF XB.X • R -2 HND XB •v X R + 4 R ND Y B \ ‘ R - 2 I H E N D '\ ~ r r =RB-RB+1 300 .* 3 1 0 IF YB = >YR THEN LO CR TE 25 • 22 PR I NT RB ; " P o i nt= " • GOTO 410 320 .i ^ t - — — — — — ■- (J P 1 •?. H;’ |'i 1 ►i' ï i t V' ■? '1 U. £ *-■ L ^ 3 'j-0 FOR V* 1 TO 4~NV vitesse 340 OS TI Cl *.< Q ) IF C-Ü THEN 3.9Û 350 ' 360 IF G = 3 THEN IF K R <K2-3 THEN XR-XR+1 370 IF C=7 THEN IF XF >X 1+1 THEN XR-XR 1 380 LOCHTE XR-i -YR PR IN T R0$ 330 NE a T V 400 GOTO 2 20 410 FOR TP - 1 H'j 1500 : NEXT Tp-GÜTn 43 CONDUITE DE VOITURE En utilisant les flèches <— et vous devez éviter de toucher le bord de la route ainsi que les autres véhicules. La fonction STICK(O) permet d'obtenir un déplacement rapide du véhicule. 10 ; CONDUITE VOITURE 3 »"i ‘ - — d e s s 1 ïi v o 1 t U.r €' 40 DAT fi 180.- 252 .• 180 -4S.- 48/ 180 .-252. 180 50 ' 60 SCREEN 0 : COL OR 4,15 KEY OP F 70 yj-" i " •- caractère a. modifier 6 D fiü= Biî'EE-. ' Pressé **n*r ateur de- eres 90 fiC=fiC+H:.C/: V$ ' adresse caractère 1 00 ' ) 10 FOR M=fiC TO RC+7 REHD ND VPÜKE M, ND • NEKT M 120 ' — 1 30 LÏ-CHRS'. 200 /'+CHR* f 200 >+ '' . "+CHF:ï<. + 40Ü > 149 flh*BfiSE':: 0 ^ ' adresse mémoire ecr ?.n 1 50 — ► 156 i BASIC MSX iSb* CL S L OC H TF 1,1 ï-PIfr - "FLE - ET ~v l?y INFUr 1 RPFUYEP ■ U L ' '.PET «Jrh . '\>;ï 1 8Ô XX- lu • l . - . j - , - .... . L '..'f d ■=< ? cHç Pi’t.i” 1 .H.J >,V=; vy,v . , rhl ,-,. u (H h V-'- r 210 f» KM~1 TÔ KÎÛI 0 " r "' ! " n " e ' üîî ' , ' : ' 1 ’ ••••‘ 5hjcui ‘ 220 INI PNC'".' 1 ;• t - 1 ■ _ ] _ f. t + j îj 7. cr 3 : 'i ' ’j. uF i ji L THE N LüC R T E X +RI \l«. 1 '-4 5+4 . El PF I N T V $ ■•■'4 THE N z TR • t e . t ..-çk;.- ü Ijp ! THEh 370 1 t.ç±t. ~ 1 h' -.j fi It..ç : E > ‘ LUL-HTE XV XV FP'ÏMT VS THfc.IT 35U t- ëift r I .* v i c r 9.?i. c* 1*7 droite 210 FOR KM— 1 Tu iOui. 220 ;-:=i NT-: PNC'".' 1 4 30 XX-XX+X 240 IF XX 23 T Ht n • 2T»0 ÏF XX. j THE n x: 260 LGCR TE XX; 2 3 Pt 27* IF FM. 30 THLM J 280 TF VF'EFL* hîl+YVN 290 IP vPLEF'' mN+'i V t 30 fi LOCh TE fi/.- R . - 1 310 HX-XV fiï'-VV 32 Q C “ST II. M. 0 .' IF l. :3 30 if c=r then 340 IF L-S ÎH En XV- 350 T« 27 i"i NEXT F N 370 COL DP. r •1 H 0= T F 3:3m flm.- -r". EF ' ' L02 HT 3ÿô FÜF TP- 1 TO 150P 40ô CÜTO lb 0 410 , — 420 • r : 1 i9" 1 i 9 - - 1 ?u 4 e * F c»-- r •+••." + 4 s p BOMBARDEMENT D’IMMEUBLES En appuyant sur “ESPACE", vous bombardez des immeubles meubles 0 ^ descend Progressivement et ne doit pas s'écraser sur les im I j M ; ï r i L ...J L_ J î J / i . I i — j L_ . Ih n r Quatre projectiles peuvent être envoyés simultanément. PROGRAMMES , 157 10 , BOMEflRDtflEHT IMMEUBLES 3© CLS INPUT "Niveau. U, 2, 3 » " - HV _ 40 > 3 i- , ?i rs.ct e r e s r e defini s 1 m rû e r J. b 1 e / s ou. u u,i- <='«'* 5Q C'FtT Fi 252 / 13 4,- 1 42 .• 1^2.' 1 lo^.' bü DRTfi 48 , 43 ,48.120/ 252 . 252 . 252 , 2 0*2 70 DATA 0. 0. û> 340. 0.- Ô, 0.- 0 30 ' _ , __ 90 SCRE EH 0 1 COL OR 6*15 = Km UFr 100 1er carac^e-re a modifier 110 flG=BRSE<2> ■' adress* 9e nera t sur de carac 120 RC-RG+RSCC C$ 3 " adresse 1er caractère rede* 139 t ... . ... 149 FOR H= 1 TO 3 3 caractère 1 5û R-fiC'K N-l >#8 _ _ 169 FOR M-H Tü fi+7 PERD ND • VFÜKE Ma HD : NtXT M 179 N EX T N 180 — 190 C~RSC''. C$> ^ 2Q 0 DESSIN IMMEUBLE* 210 XB=2 '• YB=21 ■ CLS 220 FOR N=1 TÜ 5 230 H-RNDC 1 >*3+4+NV L=RND>'. 1 >4:3+3 240 FOR Y—YB-'H TO Y B 250 FOR X=XB TÜ XB+L 280 LOCH TE X / Y : FR I HT UHR$v. 6 - J 270 H EXT X 280 NEXT Y 230 XB-XB+L+2 3Ô0 NEXT N ^ , . . , ü® toont 330 AH-BflSE<0> ' adresse écran 340 YS=2 : X 1 = 1 ■ X2=3 F : 5= 1 '' soucouP e/ bornes/ se > 350 SOUND 8.- 12 ; SOUND 1 ; 0 1 SOUND 7/254 360 F OP XS=Xt TO X2 3TEP S 370 IF YS>1é THEN SOUND 7, 255 : GOTO 21U 380 1F VPEEPX fit'1 + 4+KS+'ï'S:*:40 :'=HSC'; C4 > THEN 530 330 LOCfiTE XS-S.' YS ; PRIHT CHF'.ÏC 32 ’>> 408 LOCFITE X.S/YS ■ PR INT ÜHPS 1 -. L+l >.• 410 SOUND 0.XSTL ^ 420 IF INKEYS="” THEN 470 ' de Part Projectile FOR 1 = 1 Tü 4 , „,. T _ IF YF< I >=Û THEN YF( I l'=YS+l XHC I .'=<■■* ■ LUTü a f 0 H EX T I Ü J t C ctiles j> t-tres irti a v a r c e- P v • o -J e- c t i 1 e s 43Ü 44Ü 459 469 ' 479 FOR 1=1 TO 4 IF YF\ I >=0 THEN 520 , ... LOCfiTE XF( I X* YP( I • F K I H ? lHKÎv .■■■* . . . YPC i >= Y p( I H 1 •• LO C RTE XF( I > , Y F-'. 1 ‘j _ FR I - • UfK* - 4 IF Y PC I >>£U THEN Y P 1 - 1 >-9 : CüTU 520 NEXT I 530 NEXT XS .. .-. , 540 LOCfiTE XS-S/YS -PRIHT CHRS'l 34 .G S/lhF aI./.c-o— = 550 Y3=Y*+1 560 GOTO 369 570 ‘ — collision 4o0 490 500 510 520 •■r ciuri 530 PLRY~"CDE" FOR TF-1 TO 1000 NEXT IP GOTO 158 I BASIC VI SX SAUTS D'OBSTACLES En appuyant sur ‘ESPACE" \ vous devez sauter des obstacles aléatoires. Deux sprites représentent la position normale et la position de saut. 20 CL EH P 1000 30 CLS INF' U T "Ni -■ ■>' i.l i 1 • 2 3 • 4 • % H V 40 C ;E=1 CF= 1 C 1 ecr ■ . L 0. 1 " î o . i cj 50 C ■ÛLÜR CE , r :f ■ 3 L PE EN D_ i 60 F DP S*i rc i 2 • P* l c _ i v> 1 * 70 FOR ! ™ i ro 4 H3P j: l=! 11 n NE; ' ! : 80 FOR N= i TO 4 90 FUR I -• î TU ; 100 PERL v • N N ■' -h CH r*-; : ;i 110 NEXT I 120 NEXT N 1 30 SPRI TE$v ÿ ;.i- Fl !•: 1 <L 3+H$ .h-mîT 4 .• 140 NEXT 3 1 50 • — ~ — - — — — ... — P 0 s : t- l on ï r-;;i. i. ISO DRTR S.- 3 . 3, 1 , M 3 . 1 : 1 170 DR T R 3, 6, 4 j. lL .• O - 12- 0 130 DR T H 12 r! 128 , ; 28 , g . 0 , i: 9 2,9 b : , 0 1 30 DH T R 12 y • 192 • -6, 32 , -'2 32 , 48 P 200 •' — *- — - p üSïtiüiï j-!. 3,1.1 1 210 DhTR 3. ; , 3, 1 , : 5, 1 , 1, 1 220 DRTR 3, 2 .• b , 2 8 1 S , 0 • 21, 0 230 DhTR 123, 128 , . 38 , 0 , 0 , \ i î 20 0 - 0 240 DRTR 12 fi C 1 1.92: ■46,48 , 24 • 0 • D , y 250 ' esas-ssas-s ~:r = s'sssKSSt: £60 OPEN 11 GR P : F- jR QU TP LH RS ttl 27Ü DRRU "BM 10 • 1 6».* " • PP 1 NT # 1 , " R RP L'Y E P SUR < ESPACE } " 280 V= 120 ■' ' fcl'z-t CÜ-'1 1 •“ 2-0 S := 5 ■' .« y a yicç 300 LINE U ,Y;— :£U0/rS'Jl 310 ' 2 CB 3 T Ri 'LES RU H RS. R PL 320 XBL 1 >=INT< RNP* 1 -'Tl 2 40 : XB\ 1 j+INIY RNIY 1 Yt-j .'$.:=;+4@ Ü|0 EDF' 1 = 1 T'Ü £ LINE C XEK I > • Y XB 1 . I ■ Y -5 .. 1 N EXT I obstacles 350 FOR X-tü TO 2H0 STE P S 360 PUT SP RI TE 1 X~Y '-1 S ’• , 6 , 1 370 F DR 1=1 TO 2 380 IF \OÆ'. IV, t:S R ML' 1 X B 1 J 1 THE N 4£Fi 390 NEXT I 400 CrÙ T IJ 460 410 ' — 420 RT-RT+1 : ['RR N •' B PU Û • 170" : SCLOR CF : PR INT # 1 . S T p- tNG$r 1 . i .HR$t' ''00 « 4 3 0 C OL DR CE DP RI " B N 1 ü , 1 7 0 " P R 1 N 1 # 1 . P T ; "PRTE C " 440 BEER PROGRAMMAS ! 15 <* 46Ô IF INK Eï$ : > " ,r T HEM ^ÜSUB 5JÜ 470 FOR TF--! Tü 20~NV*:J- -NEX7 T t: ' 480 H EXT < 490 FOR 1-1 TQ 2 LINE 0 : !E\ I .■ .■ V •' B 3 •' • ' • 5 .' = LK • ML. : I .1 500 PS-PS+i IF PS = 10 T'HEN C$- ; NF'Uïÿc; l .• ENL* 510 GOTO Lÿ»"i 520 ' OO IJ T 0 BOT R CLE 530 IF T IMF-:: S THEN T IME “O : REl URN 540 PUT SFR I T E 1 , X , 20? • , 0 1 550 PUT SPPITE 2,C;,Y--25'-6 2 56Û FOR TP- 1 TÜ 308 : 4EX T TF 570 PUT SPMTE Lv-X 26? .*.■ *5,2 580 X=X+3*S 590 T LME -8 600 RETIJRN COMPOSITION DE PAYSAGE AVEC ANIMATION A l'aide de 3 figures de base (arbre, maison, locomotive), vous composez un paysage. Le choix des figures se fait à l aide d'un curseur que vous déplacez avec les quatre flèches. En frappant “P 11 , vous "prenez une des 3 figures de base (BEEP signale que la figure a été choisie). “D” permet de "déposer" la figure choisie. La couleur se choisit en frappant 1 ,2,3, . 9 Pour animer une figure, placer le curseur devant elle puis frapper “4 J! ou (une ou plusieurs fois). Une figure animée peut également être stoppée. ^0 CE=1 : CF=15 COLOMB 30 SCRE EN 2,2*CL=CE 4Ü LT ION PAYSAGE AVEC ANIMATION 50 XC-ST10 ; YC=3£10 •' curseur 60 0 IM 32 ">> TY 32 ') > V< 32 > 7Ü NS =3 nombre- de t i9»j.res de b-3.se 8Ü NN=N3 nombre de figures 90 OP EN "GRP : " FOR OJJTPUT A3 #1 100 FRESETC 15, 145 >= FR INT #1 , "CLAVIER MAJUSCULE" 110 PSETC 15, 155 SPRINT #1, "FLECHES PUIS:" 120 PSET <15, 1 65 > : PR I NT #1 , "P : PRENDRE^ D ' DEPOSER ,r 160 BASIC MSX 130 PSETC15, 175 SPRINT #1,"CQUL: 1,2,3, 14 û ARBRE 150 DATA 1,3, 7, 7, 15, 15, 15,31 1 fc'Ô DATA 63 ,63,63 , 3 .*3,3,3, 15 170 DATA ÿ. 128, 192, 192,224,224,240,248 1 o y DATA ti4b , 24 y » 24 o , 0 , y , 0 , 0 1 32 198 ' MA I SON 208 DATA 12, 12,63, 127,255,64,95,85 210 DAT H 95, 35, 85, 35, 95, 64, 64*127 220 DATA 0 , 0 , 248 , 252, 255 ,2,2,2 238 DATA 122,74,74, 106, 74, 74, 74, 254 £4 8 •' LOCOMOTIVE 25ü DATA 0, 0, 6, 0, 16,0,43,48 26 Û DATA 127, 127, 127, 127, 255 , 25-5 , 43 , 43 270 DATA Û . 8, 8, Ü, 254, 192,254, 254 280 DATA 254,254,254,254,255,255,24,24 290 J 380 FOR 3=1 T0 NS 318 FOR 1=1 TO 4*S$< I >=" M : N EX T I 328 FOR N=1 T O 4 230 FOR 1=1 TO 3 340 REhD X = S$a-0=S$(H>+CHR$CX> 35Ô NEXT I 368 NEXT N 370 SPR I TE$( 3 ;=3$C 1 )+S$< 2 >+S$f 3 )+3$C 4 ) 380 NEXT S 390 ' Affichée sPrites de h-3.ee 480 FOR 1=1 TO NS 410 X< I >=16 : Y< I >=1424 420 RUT SPR I TE I , ( XC I > , Y( I > >, 4 , I 430 NEXT I 440 AIGUILLAGE 450 GOSUB 620 460 IF Cï» "P" THEN GOSUB 810 470 IF «-"D" THEN GOSUB 890 430 GOTO 450 + VITESSE ri 610 ■- GESTION CURSEUR 620 CS=INKEY$ IF CSO 1 "' THEN 680 630 LINEC 'AC, YC XC+4 1 YC )> CE B! 648 L I NE< XC , YC XC+4, YC ) , CF 65Û GOSUB 370 660 GOTO 620 670 ll< 630 c=irsc( cs , r é( 690 IF C=28 THEN IF XC<240 THEN XOXC+3 700 IF C=29 THEN IF XC>16 THEN XC=XC-3 710 IF C*30 THEN IF YO10 THEN YC=YC~8 720 IF C-31 THEN IF Y<130 THEN YC=YC+ft 720 IF C$="P" THEN RETURN 740 IF CS="D‘' THEN RETURN 750 IF VflLCC$,>0 THEN CL=VhU CS > 760 IF 0*=”+" THEN V=1 GOSUB 1060 770 IF CS="- , ‘ THEN V=2 ; GOSUB 1060 780 GOTO 620 PROGRAMMES I 161 790 J OH PREND 800 ‘ BEER signale la figure est 310 SS™0 320 FOR 1=1 TO NS 830 if >xx i > mhd xc<=xci >+8 hnd TH EH 360 840 850 360 870 880 890 900 910 92Ü 930 940 N EXT I RETU RH $S=I BEER RETURN 1 ON POSE IF SS=0 THEN RETURN IF N N >3Û THEN RETURN IF XC< 35 THEN RETURN NH=NN+ l ^ SFR I TE* < MH >=SPF: I TE3X SS ; PUT SPR I TE NH , < XC .• YC J , CL , NN Y< N N >=YC : XX NN >=XC 950 RETURN 960 ' RVRNCE 970 FOR I-NS+1 TO HN 980 IF '/■' I >-0 THEN 1039 990 XX I I I > lûOÜ IF XX I ><35 THEN XC I 1Û1Û IF XX I >>229 THEN XX I >=35 1020 FUT SFR I TE I j < XX I > > Y ,: . 1 > > .- y I 1G3Û NEXT I •:ho î s i e - YC=>Y< I > R ND ï'.-: 1040 1050 1060 1Û70 1080 1090 1 190 1 î 10 U 28 118Ü RETURN -- — REULRûE VITESSE FOR 1 =M3+ 1 TO NN IF YC=>YC I > HND YC< = ï y I >+ 16 THEN 1110 NEXT I RETURN IF V=1 THEN IF XC >28 THEN V< I >~v'.. I >+l ■ v-0 IF V=£ THEN IF MC >33 THEN V< I :*-V< I >-l : V-8 RETURN BIORYTHMES . =Y( I >+8 Il existerait chez l’homme des périodes ‘positives et des périodes négatives réglées par des “horloges internes” indépendantes de l’environnement extérieur. 162 : BASIC MSX □ Cycle physique de 23 jours ; ü Cycle émotionnel de 28 jours : n Cycle intellectuel de 33 jours. On pourrait ainsi connaître à l'avance les jours favorables. J o o. r s e o u s : 18 9 1 31 E L E U : F H V 5 I G! U £ PROGRAMMES ! 163 If 1 ' BIORYTHME 20 PI ~3. 14159 30 DIM FlUÊ), JM< 12) OO DRTFl 3 1 * 23 - 25 .. 3 1 • 30 , 3 1 .. 30 , 3 1 , 3 1 , 3Q .. 3 1 , 30 3 1 60 FOR 1=1 TU 12 : RC I }=fi( I 1 > PERD X ; RC I }=-K I >+X ; J: K I Y-X H EXT I 7 0 C F' = 2 3 ^ C E - 23 • C I “ 3 3 00 •' 30 S CIREE H 0 100 PR INT "NRISSFINCE = " 1 1 0 I H PUT " JOUR , MO I S , FIN ( EX = 5 ■ 4 , 1 334 > " ; N , MH.- RH 120 IF RN< 1300 OR FIN >1333 T H EH 110 1 30 J- JN : ri='l'1N R :::: HN ^ GÜSUB 2 lu XV» JV 150 PR INT "BIORYTHME = " 160 IMPOT "MOIS.- RN C EX 1 10.- 1384 > " .N1B.-HB 17t3 IF fl EK 1300 OR FiB>1333 THEN 160 1 30 > 1 = M--MB Fl = Fl B : GOSUB 210 = NJOl'R^JV-XV 130 GOTO 240 200 CALENDRIER 2 1 0 N- =365 . 25*< Fl- 1 30 1 >+Fl( M >+J 228 JV~ : I NTC N > 230 RETURH 235 ' RPF ICHHGE COURBES 240 COLOR 1 , 1 .5 = SCREEH 2 250 SCREEN 2 260 OP EN "GRF ” FOR OUTPUT RS #1 278 PRE8ETC 18, 1 60 ) : PR I. HT #1, "BLEU = PHYSIQUE" 230 PRE SE TT 18, 1 78 > PR I NT #1 , " NO I R = EMOI I ONNEL " 290 PRESETC 18, 130 > = PR INT #1 , "ROUGE = INTELLECTUEL." 300 PRESET':: 1 8 ■ 30 > = PR I NT # 1 1 SFCC 1 0 > i 1 5 SPCC 1 0 > 318 LINE (10. S 0 > - ( 2 3 8 , 8 0 } , 1 328 K=0 330 FOR 0-1 TC JM'.: MB > 340 Pi=5@:t-S I NC t K+N o 50 P 2=50^8 J.N( K+N 368 P3=50*S I NC < K+N 370 X-0T7 +10 380 LINE ( Y .. 30- -PI > 330 LINE < Y , 86- -P2 > 400 LINE <;* 80* -P 3 > 410 K=K+ 1 420 N EXT D TPI/'C W I • c * P I /C F> E > I > 430 PRESETC 10.-1 0 > = PR I HT # 1 , " Jours vécus 440 C$=INPUT$C 1 ) — , il . N JOUR 1 164 BASIC MSX PROGRAMMES DE GESTION TRACÉ DE COURBE Ce programme trace la courbe d’une fonction écrite en 400. Les échelles sont calculées par le programme. i .-8 145684 7940 1 3 -4 312 5 3 7 5 4 2 r—i J 1.0 ■; trace de courbe 4.0 40 HEtR=150 ; LECR:=200 ' hauteur."' 1 nn-ai I PI i r- orra f 50 INPUT "Borne- xl ";Bl " *" " 00 INPUT "Bor ne x£ ":B2 ?0 INPUT "Pas "PAS 80 SCREEN 2 100 ■ recherche mini /ma xi y 110 X=B1 GOSUB 400 Y1=Y Y2=Y 126 FOR X=B 1 T0 B 2 STEP PAS 139 GOSUB 400 140 IF Y< Y 1 THEN Y1»Y 150 IF Y>Y2 THEN Y£=Y 160 NEXT X 170 EX=LECR.-"<B2~B1 ) 1 80 EY*1 HECR-2 )■- ( Y2-Y 1 > 190 •' AXE Y 200 IF B2=>0 RND E1<=0 THEN X="EX#E:i • LINE (. X> 1 X . HECR ) , 1 4i0 ’ AXE X 220 IF Y2 = >0 AND Y1<=0 THEN Y*HECR+Y 1 :*EY -LINE < 1 . Y W LErp . Y 230 COURBE 240 FOR X=B1 TO 62 STEP PAS 250 GOSUB 400 260 SXKX-BlYfcEX 276 SY=HECR~< Y--Y1 Xt'EY 280 PSET<SX,SY 1 290 NEXT X 30 0 ' AFFICHAGE EXTREMES PROGRAMMES I 165 305 OP EN 11 GP P 1 " FOR OU T POT RS #1 310 Y=HECR-ElBS ( Y 1 }*EY+3 : X=i =B «B1 : GO Si JB 370 320 Y=HER-HBSC Y 1 ; *EY+3 : X-LECR -9 ; B-B2 GC SIJB 330 Y=HECR+4 : X ~RE? S<B1 >* EX=B-Y 1 * GO SUE* 37 0 240 V=5 ^ Bi : *EX : B”Y2 : GO 3 UB 370 350 C*=1NPLIT4( î > 355 ri END 370 IF X>LECR+ 10 THEN X-LECR- 2 371 IF Y >HECR+ 10 THEN Y*HECRr 375 DRAW n BM=Y Y; " PR INT #1 , B 380 RETURN 390 / — rou.rbç •? tri" er 400 Y ”3 1 NC x 410 RETURN FICHIER D ADRESSES Le programme ci-dessous permet d'introduire et de modifier des données indé- pendantes du programme. Elles sont temporairement stockées dans des tables qui sont ensuite sauvegardées sur cassette. RANG N0M$( ) RUEÎ( ) VILLES! ) DUPONT RUE XXX PARIS MARTIN RUE XXX i D0MFR0NT BREBION 1 i BREBION RUE XXX j BAYEUX Sauvegarde sur cassette ou disquette NÛMS( } La variable “RANG” donne l'adresse de rangement dans les tables Le mode X” permet à la fois de créer et de modifier des fiches. En mode modification, ia valeur de chaque zone est affichée puis le programme attend une nouvelle valeur. Si vous ne voulez pas modifier une zone t appuyez sur “RETURN sans entrer de valeur. L’utilisation de l'instruction LINE INPUT (au lieu de INPUT) permet d’introduire le caractère virgule dans les zones. L'instruction 310 peut être remplacée par : 310 IF NOM$ = LEFT$-NOM$(RANG),LEN(NOM$) THE 390 On peut ainsi entrer seulement les premières lettres du nom. 166 BASIC MSX Pour obtenir une liste triée par noms, nous remplissons une “table des Clés” CLE$() avec les clés à trier. Dans une “table d’index” IX%(), nous rangeons les numéros de ligne (1 , 2, 3,...). CLE$t ) IX%[ ) NOMS! ) RUES « Nous trions les tables CLE$() et !X%{) CLFS{ J IX%( ) NOMS! i RUESi 1 Ces tables n'ont pas été modifiées Après le tri T il suffit de lire la table IX%() pour éditer les adresses dans l'ordre des noms. TRI-SÉLECTION Pour obtenir la liste triée des personnes d une seule ville, il suffit de sélectionner les noms ainsi : INPUT « Quelle ville »,V$ IFVSo VILLES(F) THEN ... TRI-MULTICRITÈRES La liste alphabétique des clients dans l'ordre des villes s'obtient en faisant : CLES(F) = V!LLE$(F) + N0M$(F) au lieu de : CLES(F) = N0M$(F) PROGRAMMES I CLESC ) BOULOGNE MARTIN BOULOGNE VINCENT PARIS DUPONT PARIS DURAND SUPPRESSION Pour supprimer une fiche, nous décalons toutes les fiches en aval de la fiche supprimée. L’instruction SWAP nous permet de décaler les éléments sans provoquer de réorganisation de l’espace chaîne. Fiche supprimée N0M${ ) APRÈS 10 • FICHIER O' ADRESSES 20 ■ 30 CLE RR 5000 40 DIM NOM*< 100 >j RIJESC 100>>VILLE$C 100)jCFSTÏC lPin > 59 DIM CLE*< iÿÿ >i 100 > 6û NFlLH=ü *’ nombre de fiches 70 CLS IHF'UT "Nouveau fichier OÜ/'N) %ft$=IF R$="0" THEN 100 8Ü GOSUB 77y 90 ' 100 CLS ; FRI HT 11 MODES 3 " 1 PR INT 110 PR INT TFiBC 3 )i "C : CRERT I ÜtVMOD I F ICRTIÜN" 120 PR I NT TAB<3)i"LF «LISTE DU FICHIER" 130 FRI NT THBC 3 >* M FIN -FIN DE SESSION< SAUVEGARDE 140 PRINT TAB< 3 >i "LFN 3 LISTE DU FICHIER P R R NOM" 150 PRINT TAB<3)i"LFV : LISTE DU FICHIER F'RR VILLE" 160 PRINT 11 ! IN PU T "MODE "jM$ 170 IF M$="C U THEN GOSUB 260 180 IF N$="FIN M THEN GOSUB 640 190 IF M$="LF " THEN GOSUB 920 2Ü0 IF MS**" LFN" THEN GOSUB 1030 210 IF N$-"LFV" THEN GOSUB 1400 220 IF m=" S 14 THEN GOSUB 1540 230 GOTO 100 240 CRERT ION ET MODIFICATION =««=«■ 250 ' 168 BASIC MSX 260 PR INT 2?0 LINE IN PU T :, NÛf1C OU <RETURN> >? Jl ; NQM$ f I F LEN< NOM* >«=Ü T H EH RETURN 250 IF NFICH-0 THEN 340 300 FOR RRNG-1 TÜ MF I CH 310 IF NOM$=NÜM$\ R PNG ) THEN 390 •' non existe t-il? 32Û N EXT R HH G 330 ■’ *iouve a w nor'i 340 PR INT : R$=" " IHPUT "Nouveau non OK CQ/N) 11 ; R$ 1 IF F:3K>"0" THEN 260 35Û HFICH-NFICH+1 36Ü FhNG-NFIÜH 370 NÜM$C RANG >- NOM* 3oü 1 — entree/modif zones 39Q PR INT 400 F' R I N T RUE $■:' ft HH G > > T R B ( 1 5 ) ; ■' 3. ne i e ïï n e v . 3 . 1 e u.r 410 LINE IHPUT 'Ru.*? ,J ;PUE$IF RUE*<>" " THEN RUE«< RANG >=RHE« 420 PR INT VILLES RANG )jTABC15;; 430 LINE IHPUT "Ville? " j VILLE* 440 IF V I LLLE$< /" 11 THEN VILLE$< RANG >=V ILLES 450 PR INT CPST*; RANG >; TABt 15 )j 460 LINE INFUT 11 Code P estai? 11 j CPST$ 470 IF CPST$<>" " THEN CPS T $< RANG }=CPST$ 430 ijQïlj 260 490 ' 500 '' Ci Ti st r ij. c t i o n 310 Peut ç t r e cha n9 e e Par" 510 ' 31ÿ IF HÜM$=LEFT$< NOMS, LEHC NOM* > THEN 390 5xü 1 ceci P er n e t d ' en t r e r s eu. I e ni e n t les P r e ni i e r es I e t Lr 6' •=. d i » NOM 630 ' , =^===^™===:= :s =«==r ;5 == t ===== SAUVEGARDÉ 640 PR INT ! PR INT 11 APPUYER SUR < RECORD > PUIS < RETURN > M 650 XÏ-IHPUTSC 1 j 660 OPEN "CRS : ADR" FOR ÜUTFUT HS #1 6 r' 0 630 FOR 1=1 Tü NFICH 690 PR INT #1,N0M*<1) 7Ü0 PR INT #l,RUE$a> 71Ô PR INT #UVILLE*a> 720 PR INT #1 > CPST*< I > 730 NEXT I 740 CLOSE# 1 750 RETURN 7 6Ü = = LECTURE FICHIER 770 PR INT : PP INT "APPUYEZ SUR <PLAV>“ 1 PR INT 780 OPEN "CAS 1 ADR" FOR INPUT A3 #1 790 ' 300 FÜR 1=1 TÜ 100 Blû IF EOF< 1 )=-l THEN NFICH» 1-1 «CLOSE #1«GOTO 880 82G LINE INPUT#1,NCM*< I ) 830 LINE INPUT#l,RUE*a> 840 LINE INFUT#1/VILLEÏ< I) 850 LINE INPUT# 1 , CPST*< I > 860 NEXT I 870 STOP 880 PR I NT : PR I NT NFICH J "NOMS" 390 FÜR TP=1 Tü 1000i NEXT TP 900 RETURN 9 10 ■■= 3 ==^ 5 =«==«=x«= sa n= M LISTE DU FICHIER 920 CLS l’KOGRAMMfcS ! 169 930 PR INT "LISTE DU FICHIER" * PR INT ÿ40 ‘ 950 FÜR F=1 TO MPI CH 960 PR I NT HCiM$C F ) ; T HER 1 3 > ; 970 PR INT VILLES-: F 5c*ü P K INI 990 HEXT F 1Û00 PRIMT : INF'UT "RP FUYEZ SUR < RETURN > M » X$ 1010 RETURN 1020 LISTE TRIEE FR R NOM 1630 FOR F =1 TC NFICH 104O Cl.E$C F >-NOM$>l F > ■ I X';< F '‘-F 1050 MENT F 1060 •' 1070 NCL-HFICH 1080 G03UB 13 CG ' 3.P P •=■ \ tri 1 0ÿÜ •' 1100 CLS : PR INT "LISTE TRIEE P RR NON" : PR INT 1110 FOR F=1 T G NUL ii20 f > 1 1 30 PR I NT NOM$< ) > TAB< 1 5 > j 1140 FR INT V ILLE $-•. X > 1150 N EX T F 1160 FR INT • INF U T "APPUYER SUR < RETURN > " X$ 1170 RETURN 1 270 •’ TRI SHELL 1280 ECART CL 1290 ECfiRT^IHT‘1 ECRRT/2 > : IF ECART < 1 T H EH RETURN 1300 IV- 0 1310 FÜR 1=1 TÛ MF-ELflRT 132E 1 .J- 1+ E C RR T 1330 IF ÜLE$v J >CLEL$C I > THEN 1360 1 340 SWflP CLE$( I > .• CLE$< J > : IV* 1 135Ü SNflF 1X*.< I IX'.*, J > 1360 HEXT I 137Ü IF IV* 1 THEN 1300 1 3G0 GOTO 123Ü 1390 ^ «===.====«=«»« LISTE TRIEE PAR VILLE 140Ü FÜR F-l TÜ NFICH 1410 CLE*< F X-V I LLEüv F > ; I XXC F >=F 1420 N EX T F 143Ü HCL-NFICH î 44 m GiTSUB 128Ô ‘ 3PPel tri 1450 CLS : PR I NT "LISTE TRIEE PAR VILLES" = PAINT 1460 FOR F- 1 10 MCL 147Ü X-IXXC F > 1 4 oû F R I H T V I L L E $< X > > T A B- ' 1 6 > ; 143ü PR INT NOM®' X) 15Ü0 N EX T F 1510 PR INT • INPU1 "APPUYER SUR 152Ü RETURN 1540 FR INT UiOM^'”' • 1NPUT "NON " J Cj CT ^ 156Ô FÜR RRUG-1 TO NFICH 1570 IF NOMÎC RANG >«NÜH* THEN 16 1583 NE XI RANG i 530 PRIAT PAINT "M'EXISTE PAS" 160Ü ' 1610 FRI NT < RETURN/ 1 ' ) X$ == SURPRESSION NON# ; IP NOM*- " 11 20 • FR INT * GOTO 1540 T Ht N RETURN 170 BASIC MSX 1620 R$- " " ; IHF'UT "SUPPRESSION ÜK < Ü--H ) R$0"fr T HE N 1540 1630 FOR J-ftrtMG TO NFICH-1 1 640 SNRP NOM*-. J >, Nün$C J+ 1 > 1 630 S UfiP RU E $ J ) , RU E3K J+l > 1660 ÿ WrtP V I L L E $■; J ; , V ILLE$^ J+l > 1670 S N H P C P 3 T 5* •: J > , CF 1 S T$*: J+l > 1630 H EK ï J 1 630 NÛMSC MF I CH ’•= 11 " ■ RUES*:: MF I CH >= 11 11 « V I LLE$-' MF T cm >=s 11 » : r octé çnfich?*"" - 1700 NFICH^HFICM-1 1710 GOTO 1540 C : CRERT 1 0H/T10D ï F 1 CRT I G N LF LISTE DU FICHIER FIN FI N DE GE 33 I ÜH< SflUVEGRRDE > LFN LISTE DU FICHIER P H R NOM LFV LISTE DU FICHIER PRR VILLE MiJi-'E ? c NüM< OU <RETURN.> >? DUPONT Hou. no ï'» UK 1 0- I î ) i Q Rue? 11. RUE NOBEL Vi Ile? H ONT I GM V C o de P o s* t ■?. 1 ‘ T ' 8 1 8 O NOM*:; OU CRETUPN:.- /? Br-eâk i n 270 GESTION DE FICHIER Nous proposons un programme de gestion de fichier adaptable. Chaque ligne d’une table FICH$(J contient un “enregistrement” RANG CODE LIBELLE PRIX STOCK 1 R5 xxxxx 50000 20 2 R18 xxxx 60000 12 3 R4 xxxxx 400000 30 4 R35 . *J 700000 4 5 .. _i TABLE FJCH$(.) La table est sauvegardée dans un fichier séquentiel sur cassette ou disquette. PROGRAMMES I 171 10 ' FICHIER vÿ •' 36 ' 40 CLE RR 5ù0y L»Ü NRU6=4 ■’ nombre de rubriques 4 - a *d-3P r ter .> 69 MF I CH” 10ü nom b re ivaxi de fiches f 0 DIM FI CH$< MF I CH , NPUB > 00 •* — * — — n o IÛ3- d e s r u b ri 4 u e s ( a a d -3. F t e r . J 90 PIJB$< 1 )= 11 CODE 11 1 00 tëUEÎC 2 11 L I BELLE " 110 RU&$< 3 >- ” PF.: I Y, " 120 RIJB®':; 4 ' = 11 3 1 ÛCK " 14Û •' 15u MF I CH- G ’ 'nombre de fiches ICO CL3- : INF U T “Mou. veau. Fichier < fj/H > %R$ ; IF Rï*”ü" T H EM 190 179 ÛVBUB 710 10G •' 19Ü CLS : PR I NT "MLLES : 2Ü0 PR INT l'HE:-:: 3); :, C 210 PR INT 1RBL3), "LF 220 PR IM F T R B 1 - 3 > • "FIN * PR INT = CF'ERT I OH/MÜD 1 F I CRT ION " -LISTE DU FICHIER" •FIN DE SESS I 0N\ SMJVEGhRDE d £2,0 PR 1 HT : H*=s " M < Il 'PUT " MODE " ; MS 240 if MS«"C" THEN GOSUB 3Q0 250 IF MS* "F IN" ’THEH GOSUB 570 260 IF MS*" LF " THEM GOSUB 850 270 GOTO 190 2-20 ' ==s=B=====:a===*=*=****** CREATION ET MODIFICATION £90 ■' 30ü PR 1 J IT 310 PR INT RlIBiCt:*; 320 LINE INF U T "?•' » CLE® : IF LEHC CLE® >-0 THEN RETURN 330 •' 340 IF NFICH-0 THEN 390 350 FOR RftHG-1 TÜ MFICH 360 IF lLE^FIlH*v RhNG, 1 ) THEN 440 ■' nom existe t-il.Y 37G MENT RRNG SCO ' 'nouvelle de 390 PR INT : R$=" " - INF'IJT "Nouvelle cle GK C ü/N > " ; R$ I : - R$\>"Q M THEN 300 400 HFICH=NFICH+1 41Ü RRNG-MF1CH 420 FICHS< RRNG.- 1 .'-CLE® 4 0 ■* — — — - — entree - r m o d i t z on e s- 440 PR INT 450 FOR R=1 TO N RL' B 4 60 PR I H T F ICH$ 1 R RNG ; R ) j TR B< 1 5 ), a n c i e n ne v a 1 € o. r 470 FRI NT RUB®C R )> T H B 1 - 22 j»> ' nom de zone 48Ô LINE IN PUT 490 IF >" " T HEM F ICH$( R RM G > R 500 NEXT R 516 GOTO 300 172 i BASIC MSX 570 PR INT - PR INT 11 RPr'lJY ER SUR RECORD > PU I S RETURN ’i " 580 :■■:$= imputa 1 > 590 IJPEN "f.RS : FI CH" FOR ÜUTPUT FsS #1 6ÜÜ ' 610 PR INT # 1 , NF I CH êuiO '' •iü.'îü FUR I — 1 TO NFlUH 649 FOR J=1 TO NRUB b 50 PR INT #l,FiCH$C I, J) 66ü hi-:<;t ■ b?0 Ht: TT I 680 CLOSE# l 690 RETURN 700 ■•===«==========«=_==—= LECTURE fichier 7 1 0 PR I HT • PR I NT " APPUYEZ SUR < PL R Y > " ; PR I NT 720 OP EN “UfiS'FICH" FOR INPUT RS #1 r' 3 0 74ü INPUT # 1 , H F I CH 75Û FOR F~1 1Ü N F I CH ( ' ti U F’ u R R = 1 T l j H R !J B 770 L I NE I HP IJ Ttn , F I CH* -s F , R > 78U MENT F 790 HE NT F 300 CLOSE «1 810 FR INT : PR INT NFICHj "FICHES" 820 FOR TP--1 TÜ 1000 = MENT TP 830 RETURN 840 'p=55=««s=s«=i=« S i LISTE DU FICHIER 350 CL.S 860 PR INT "LISTE DU FICHIER 11 : PR INT 870 ' 680 FOR F TO NFICH 890 PR I NT F I LH$( F j 1 > ; TfiBC 1 0 ) ; •' zOuÇ 1 900 PR INT F ICH$( F.i 6 ) ' zone 2 910 NE N T F 920 PR INT - INPUT "APPUYEZ SUR < RETURN >";X* 930 RETURN SAISIE D’ÉCRAN Une saisie d'informations avec l'instruction “INPUT” ne permet pas de se posi- tionner sur une zone qui aurait été mal documentée. Le programme suivant le permet. Il utilise la fonction INPUT${1). En outre, les caractères frappés au clavier peuvent être contrôlés dès leur intro- duction. sans attendre la frappe de "RETURN ”. PROGRAMMES I 173 10 * SAISIE ECRAN 2ü ' 30 -■ NOMS DES ZONES 40 N RU B» 3 •' NOMBRE DE RUBRIQUES 50 NRUBSK 1 >="NÜM • “ ■ NRUB$-:. Z >="RUE • M ' NRUB*C 3 "VILLE • ,r 60 GOSUB 110 70 ■' Pour test seulement 80 PR INT «FOR P=1 TO NRUB : FRI NT FI Dm P ) * HEXT P 30 END 100 -■ k==mss= 5 ==smb:=== Sou.s-Pro9ra.mnie saisie écran « 120 LO CAT E 1 > 23 : PR INT "FLECHE HAUT POUR ZONE ARRIERE” 130 * * - — - a f f î ch a 9 e ti ori'i s d e s zo ne s 140 FOR P=1 TO NRUB 100 LO COTE 1 , P+ 1 : PR INT NRUB5K P ) 16P» LOfiATE 10, P+l - PR INT F1CH$CP> ' ancienne valeur 170 NE NT P 180 '' SAISIE DES ZONES 190 FOR P=1 TO NRUB 20G XL- 10 ' VL=P+ 1 ; GOSUB 290 21Û 1F R-l THEN FIGH*< P ;«-LIG* 220 IF R» 3 THEN IF PM THEN LÜCATE XL, VL ; PEINT FICHSCFMP* P- li GOTO 2Ü0 ELSE 200 23Ô ' 240 LO CRT E XL , VL « PR I NT F ICHSC P > > 250 N- 1 5 - L E N< F 1 C H$ ( P ')')■ IP N > U T HE N FRI N T S P C <. : ! > 260 N EX T P 270 RETURH 28û •' Saisie d f u ri e 1 i 9 ne 29Q LIG$=" ” 300 ' 31Ô L=LENCLIG$ > : LQCHTE XL+L/tL ' coordonnes affichage 320 ' 330 C$~INPUT$< 1 MC a ASC<C$> * lecture 1 caractère 35 Ü 360 IF COB AMD C< >29 THEN 390 "code suppression 370 IF L>0 THEN L1G&=LEFT$( LIG$, L-l '>■ PAINT CHR$ J . 8 • CHR$< 32 2 j ^ GOTO 310 ELSE 310 O O0 39Ü IF 0=13 THEN 46U •' code de return 400 1F C=30 THEN R=3 : RETURN * zone arriéré 410 IF C< 32 OP! CM 23 THEN BEEP’GUTÜ 310 ' contrôle 420 LIGMLIGS+C* ' ajout caractère 430 PR INT CS ■' aft i ch a 9e caractèr e 440 GOTO 310 456 ‘ return 460 IF LIG$< >" " THEN R=1 ELSE R=2 47Ü RETURN 174 BASIC MSX HISTOGRAMME Ce programme d'histogramme calcule l'échelle automatiquement. 10 ■' 2Û NM®'? 30 CE-6 CF- 13 4@ SCREEN 2 30 ÜPEN "GRF : HISTOGRAMME ■' nombre COLQR CE/ CF FOR QUTPUT RS #1 60 DflTFl JV j 500 / FV/ 400 de moi a 70 DflTFl MRS ..600/ flVR/700 80 DFlTfl MRI/ 600/ JU1/500 90 DATA JL/ 700 100 lie FOR 1=1 TO NM'REfiD M01S*< I >/ VHTE< I > 1 NEXT 120 ' 130 XA“20 1 YR-130 ' dePart axes 140 IX®30 ' iriterval ] e 150 HECR”120 ' hauteur écran 150 ' recherche ma xi 170 MX»VNTE< 1 > 180 FOR M-2 TO NM 190 IF VNTE<M»MX THEN MX-VNTEC M > 200 NEXT M 210 ECH-HECRxMX ' echelle 220 ' axes 230 LINE< XA/ Vfi >-< XR+NMSIX/ Y A CE 240 LINE( XR / YR >-( XA / Yfl-HECR 5/ CE 230 < AFFICHAGE MOIS 260 FOR M-l TO HM 270 X-XR+8+ IX£< M-l > • Y*"Yfl+ 1 0 280 DRAW " BM«X; , =Y , " PR INT * 1 , MO I S*< M > 290 NEXT M 300 ' courbe 310 FOR M=1 TO NM 320 XI = I X*M r Y 1 =Yfl-VNTE< M )*ECH — I PROGRAMMES 175 330 CE=M- ï NT< M/ 1 5 )% î 4 340 LINE <X1,Y1 >-<Xl+3,YR)iCE,BF 350 NEXT M 3*0 affichas* valeurs 370 FOR M*1 TÜ NM 330 Y-Y3- VNTEC M >*ECH- 1 6 390 X*Xfl+lX*<n-l >“3 400 DRAW " BM-X j , «Y > " ■ PR I NT # 1 , VNTE< M > 410 NEXT M 420 C$=TNPUT$( 1 ) HISTOGRAMME EN 3 DIMENSIONS Si la largeur des “bâtons” est augmentée, il faut supprimer les instructions 270 à 290 afin d’éviter des mélanges de couleurs. Une autre solution consiste à définir la même couleur pour tous les bâtons (instructions 260 et 290). 10 * h i s t o 9 r a m m e 3d 20 •’ 30 OP EN "GRF ; 11 FOR OUTFÜT HS #1 40 C0L0R 1,15, 1 5 : SCREEH 2 50 X 10=50 ; YD : -60 J deP art 60 ' 70 L ,G=4 1 larsec j.r yô PR-4 •* 1 ro f 01 cideur 90 I TV* 15 \ nter>. va 1 le 1 00 ■ j 110 HH=6 , nombre d* bâtons 120 130 HC 1 J 1 =40 140 Hc 2 >=30 150 H< 3 >=50 160 H 's 4 >=10 170 H( 5 >=60 180 HC 6 >=40 130 ,i r . . 200 FOR H- 1 TÜ NH ’ NH bâtons. 210 XB=XD+ <h-i ynv i 220 YB=YD+ H-l >41 T* i 23Ü PRESET < XB-36 , ïi 240 PR INT #1, HC H ) 250 FOR OX =1 TO PR ' 1 bâton 260 L I NE< XB+OX , YB+DX c xb+d; X+LG • YB+DX~H< H > 265 ■' — **— 2 70 a 230 üP 1. 1 oïi ne I 270 IF DX =1 THEN 300 230 LINE C XB+DX j Y B+DX- H* H > >■ C XB+DX+LG , YB+D 290 PSETC XB+DX+LG , YB+D X-HC H ) > f H 300 NEXT D 310 NEXT H 320 C$=INPUT$C 1 > 176 i BASIC MSX BIBLIOTHÈQUE Une bibliothèque est gérée dans des tables en mémoire centrale. Ces tables sont sauvegardées sur cassette. AUT$( ) FREUD FINAUD Auteur Deux mot-clés par ouvrage sont prévus. L’édition des listes triées par titre et par mot-clé se fait selon le principe présenté dans le programme de gestion d’adresses. On remarquera l’instruction : 360 IFTIT$=LEFT$(TITR$(RANG,L)) THEN 480 C$(.) PSYCHANALYSE ASSEMBLEUR Z80 TITR$(, MA VIE ET LA PSYCHANALYSE PROGRAMMER EN ASSEMBLEUR Titres En “mode modification”, elle permet d'entrer seulement les premières lettres du titre. 10 BIBLIOTHEQUE 20 ■' 3â CL ERE 500C 4Ü DIM TITR*a00>ifiUT$a00^Cï< 100,2 > 50 DIM CLE$< 100), IX% 100) 60 CL S 70 NFICH-û * nombres de fiches 80 R$=" M ; INF UT "NOUVEAU FICHIER < (MO l UR$ 90 IF R$-"0" THEN 120 100 G G SUE 1070 110 ' 12ô CL 3 130 PF: I NT "MODES 1 " 1 PR INT 140 PEINT T ABC 2 ); "C 150 PEINT TREiC 2 )> "LTITRE 160 FEINT T ABC 2 >) "LC LE 170 PEINT TRBC2);"FIN CREAT I ON/'MOD I F I CRT ION LISTE TRIEE PRE TITRE LISTE PAR MOT CLE" SAUVEGARDE CASSETTE" PROGRAMMES i 177 tSÜ PR INT T ABC 2 ) J- M S > SUPPRESSION OUVRAGE" 19Ô PRINT : M$= 41 11 ^ IHPUT M MODE ) r * J MS 20 ÿ IF M$="C" THEN GOSUB 290 21Û IF M$="LTITRE n THEN GOSUB 660 220 IF ni- 11 FIN” THEN GOSUB 940 230 IF Mi- M LCLE U THEN GOSUB 1320 240 IF Mi="S u THEN GOSUB 1530 250 GOTO 130 z6 0 .'^ C ==^======« a CREATION/ MODIFICATION ===== 270' E n mode ru o «J i f" i c a 1 1 on , e n t r e r les- P r e m i e r e s I e t t r e s du. titre 28 Ô ' 290 PRINT 300 PRINT «TITS= M 11 ' IMPOT "TI T REC ou return) " JT1TS 310 IF TITi=" " THEN RETURN 320 •' 330 L-'LENC T I TS > 340 IF HFICH-Ü THEN 400 350 FOR RANG- 1 TO NFICH 360 IF T I T S=LEFT SC T I TRSC RANG > , L ) THEN 480 370 MENT RANG 3S0 390 * nouveau. titre 40U R 11 1 ' : I N PU T "No ij. v e ■?. u. t i t r e C 0 / H ) " J Ri 410 IF R$< > M Q" THEN 300 42Ü NFICH«NFICH+1 430 RANG-NFICH 440 ' 450 T1TRSC RANG >=TITS 46Ô ' 470 'pour modification.- aPPuyer sur <retu.rn> si üm zone ne ch an 9e Pas 430 PRINT 'PRINT T I TRSC RANG > : F' R I NT 4Q0 PRINT fllJTSC RANG THBC 15>j ' ancienne valeur 5 0O filJTS-" " ; INF'UT "Auteur " ; RUT i : I F AUT$<>" " THEN RUTSC RANG .:■= AUTS 51Ü ‘ 520 FOR C=1 TO 2 5 3 0 PR: I N T Ci C RAM G* C >; TAB< 15 ); ' a. ne i e n n e v aie» i r 540 Ci=” 11 : I HP U T "Mot c le %C$ 550 IF CSC THEN C$< RANG* C > s C$ 56Ô NEXT C 570 GOTO 300 £50 LISTE TRIEE PAR TITRE 660 FOR LV=t TO NFICH 67Ô CLESC LV >=T I T RSC LV ) ! I XSC LV >=LV 680 NE: :T LV 690 700 NC L -H FI CH 1 GOSUB 020 710 ' EDITION 720 PRINT ; PRINT "LISTE PAR TITRE" « PRINT 730 IF NCL*0 THEN RETURN 740 FOR LV-1 TO N CL 750 N - 1 'A\<. L V ) 7b0 PRINT LEFTSC T I TRSC K > , 20 ) , T ABC 25 > ) 77Ü PRINT HlJTiOO 780 N EX T LV 790 PRINT- INFUT "APPUYER SUR < RETURN) ";P$ 800 RETURN ~ ^ 178 BASIC MSX 810 826 830 840 85Û 38 ü 87ü ooÜ 890 30Û 310 920 930 340 350 38 ü 970 ECART =NCL TRI SHELL ELhRT = IHTC ECRRT/2 j ■ IF ECFfEK 1 THEN RETURN IV =0 FOR 3 = 1 TO NCL-EC'RRT .J= I +ECART IF CLE*-: J)=>CLE* f : I > THEH 91 Pi SURF CLE*< I ), CLE$C J > sw mp i x“ 2 : i > , i x j > : i v - 1 H EXT r IF IV -1 THEN 85G EL SE 840 F FI MT " APPUYEZ SUR < RECORD > C^IMPUTï( I ) OPEN "E>IB M FOR ÜUTPIJT MS #1 = SAUVEGARDE PLUS < RETURN CAS i'ETTE 980 FOR 1=1 TO HFICH 930 PR INT #1,TITR$( I > J 000 PR INT #I,RUT$U> 101 U FOR C—l TO 2 1020 FR INT #l,C$r; 1030 N£Xr C 1040 MEAT I 1Ô5Ü CLOSE #1 : RETURN 1Ü70 FR INT "APPUYEZ SI IR •rpLfl' 1080 OPEN "B IB" FOR I MPI lf AS 1030 FOR 1-1 TO 10O LECTURE CRS i/ " • PR I HT #1 •ETTE 1 100 1110 1120 1130 IF fcOFC 1 >*-l THEN CLOSE # I ■ MF I CH= I - 1 ■ Q'iTn l I N PU 1 #1,11 TR*< I >, RI JTïL I ) FOR C-l TO 2 INPIJT #1 , c%*: I , C > 1140 HEXr c 115Ü N EX T I 1160 STOP 1170 * 1 1 o a P R I N T * P R I NT N F- IC H ; 1 1 L I V R E 3 11 ■ PR INT 1190 FOR I P— 1 TO 18Ü0NFXT TP 1200 RETURN 0 131Ô 1320 1330 1340 1-350 1 3 bU 1 370 1380 1 330 14 OU 141Q 1420 1430 144Ü 1450 146 Ü 1470 1480 1430 LISTE PAR MOT CLE" PR INT NuL-0 ’ nombre de clés FUR LV—1 TÜ HFICH FOR C=1 l'ü 2 I F C$< L : J .. C )= M " OR c$( L V , C )= 11 % " THEN 1 380 NcL=NCL+ 1 ^ CLES-S HCL )C*< LV A3 > = IX'Y HCL NEXÏ C " HEXT LV GÜ3UB 320 ' édition PR INT : PR 1 1 fl' "L I STE PAR MOT -CLE ° ! PR I MT FOR LV-1 "ü NUI X-IX* a_v I F CLE$( LV- 1 X >CLE$C LV > THEH PRIAT - PRIAT Cl E«< L'' > : PP I AT FR I N I TfiBC 4 > ; LEFT$< TI ÎR*< X > . ££i . THE:.' ^ PRIAT MU $<. X > A EX T LV PROGRAMMAS i m 15ÜÜ F'RINT ! IHPIJT 11 APPUYEZ SUR <RETURN>" : Rï 1510 PET U RM _ HippRE^mN TITRE 1530 PRINT ; TITï» 11 " : IMPUT "TITRE %TIT$ 154Ü IF TIT$“ ,MI THEN RE T IJ RW 1550 L-'LEH 1 - TITï ) 1560 FOR RAMG=1 TO MPI CH 157Ü IF T I T i-LEFT T I TR$C RANG. );L) THEN 1610 1530 NEF; T RANG 1590 PRINT - PRINT M N ' EXISTE PAS* 1 : PRINT : GOTO 1530 16Û0 ' 1610 R$= ltl1 • IMPUT "SUPPRESSION OK <0/N> "J R* 1620 IF R$< >"ü" THEN 1530 1630 FOR J-RANG TO MFICH-1 1640 SNA P T I TR*< J >, T I TR$< J+ 1 > 1 650 SW AP AUT$ < J > j RUT* < J+ 1 > 166Ü FOR C-l TO 2 1670 SW AP J > C ) * CS< J+ 1 / C > 1630 nef; T C 1690 N EX T J 1700 TITRSC NF1CH ?= >M ' ! AUT$< HF1CH )=" " 1710 FOR C=1 Tü 2 * C$< NFICH^ C " : NEXT C 1720 HF1CH-HF ICH-l 1730 GOTO 1530 CREAT I U N. •"MOU I F I CAT I ON LISTE TRIEE PAR TITRE LISTE PAR MOT CLE S fl IJ V E G AF: D E C AS 5 E T T' E SUPPRESSION OUVRAGE MODE >? LT I T RE LISTE PAR TITRE BASIC UE fl fl Z BASIC ET SES FICHIER BASIC POUR TOUS FORTRAN PROGRAMMER EN ASS EM B VIPERE AU POING DUPONT DUPONT DUPONT MARTIN FINAUD BAZIN L. LTITRE LCLE FIN ASSEMBLEUR PROGRAMMER EN RS SE MB FINAUD BASIC BASIC DE A A Z DUPONT BASIC ET SES FICHIER DUPONT BASIC POUR TOUS DUPONT FICHIER BASIC ET SES FICHIER DUPONT BASIC DE A A Z DUPONT FORTRAN FORTRAN MARTIN 180 I BASIC MSX POSSIBILITÉS GRAPHIQUES DU MSX DESSIN A I aide d un curseur que vous déplacez avec les quatre flèches, vous réalisez un dessin que vous pouvez sauvegarder. Trois types de figures sont prévus : cercle, rectangle, triangle. Il faut deux points pour définir chaque type de figure. La couleur de fond{F) permet d effacer des parties de figure et ainsi d’en composer d’autres. 1 er point La couleur peut être modifiée en mode curseur en frappant un chiffre compris entre 1 et 9. Exemple, pour tracer un rectangle : rj Vous répondez “R” à la question “Commande? (R,T,C,)” u Vous positionnez le curseur avec les flèches puis vous appuyez sur “V”. □ Vous déplacez le curseur et vous appuyez sur “V”, Remarque : en couleur de fond(F), le curseur disparaît lorsque vous quittez une zone coloriée. Dans ce cas, il faut changer la couleur. PROGRAMMES 181 10 — DESSIN 2U ' UJ.lRSEUP S PR I TE :• CE=1 C F = 1 5 te r 1 1 ij. r -= - f <:• nrj 4ü COLOP CE- CR SCREEN 2 50 OPEM ''CPP " FÛP OU T pij J R- in 60 X=108 V=1O0 SPPZTEi':' 1 .>*CHR$f 13*1 • ■' e'jr-r.Çi 70 •' 60 PPE SE Te 14, 15U> PEINT #1, M CLRVIER MR- lUsrMLE " 85 ’ 90 COLOP 1 PPESET f. 14.160/ PEINT #1 . "Cnr-irci^Tid^ 7 ' 100 CMS- 1 NPIJTS 1 1 110 P=1NSTP | : M PTC " CMS IF P=ü T HEN PE F P bi'iTr- 90 120 130 PF FSE T f 14,1 70 > : PR INT # 1 . "J EF P OINT" GDSUE: 8 1 140 XR=X • VFl=y 100 COLOP 1 PRE SET 1 " ?4 ■ 170 1 PP INT #1 , "S’EMF POINT ! 160 KB=:-: • ÏE.'^V 170 IF CMS- "p" THEN LINE 1 . X.R . Yfl V >, CE . FF ISO IF CMS- "T" THEN GüSUB 280 190 IF CM$= "C " THEN GÜSUB24Q 200 COLOP CF PPEStT-14 1 FO - PR INT #1 . STRING*-’ «O 210 COLOP CE 220 bOTO 90 280 • CERCLE 240 r-sûR 1 '. ■■ xr-: : v '?+'' vp-y -• ? j 2Tr0 IF P- 2 THEN PETUPN 260 CI PC LE • Xft r H > , P , CE PHI NI ■. XR . YR-*-2 j • PE <270 PE T OP N 280 • •- TPIRNGLE 290 IF VE> VR=û THEN PF TU RM 800 p=* xb-xr > . VE - VH 1 310 FOR ï=Vh TC 'TE- S TEP S GM 1 YB--YR • 320 I F V —VH -‘t F - Ü T HL \ i 340 3 3 0 LINE X H-V — X H + • V - Y R .• * F’ i • . r c 34-'i N EXT Y 850 PETUPN 8km GESTION CURSEUR -.70 PPLSETv 14.1 80 j PEINT #1 , "FLECHE* P' HS ' V ’ / 380 PUT RPF ITE 1 • X • V-t .CE • 1 39ü 400 CS-INKEYS IP C*=" " THEN 400 410 ' 420 C-HSC 1 , r S - 430 IR C“29 1 HE N IF X -2 THEN X'X-2 440 IF 028 THEN IF X,250 THENX-X+2 450 IF C =30 THEN 1F '.": : 2 THEN Y=Y-2 460 IF r>31 THEN IF Y3189 THEN Ï--Y+2 470 ‘ 480 IF f THEN FSE T-: X • Y :• • CE T -JL GOTO 530 490 IF VHl 1 T S 1 0 FfNl- VRL r :' C$ >•' 9 THEN Ct-VHL - CS > 500 IP C*= 4 *F' f " HE N CF=C F 510 GOTO 38 U 580 ' 530 COLOR CF PPESET- 1 4 , 1 Uû ; PP INT #1 , STF ING*'- 31 540 COLOP' CE 550 PETUPN R-C.T y “ 7 0 1 : GÜSUE- 370 • CHP*-:. 200 j > CÜUL S 2 . . F i LHFS'. 20 Ci r 182 BASIC M SX TRACÉ D'UN DESSIN PAR SEGMENTS DE DROITES ET DIGITALISATION D’UN DESSIN Le programme ci-dessous permet de déplacer un curseur à l’aide de quatre flèches î l , de “valider” des points et de tracer des droites entre ces points. □ Pour “valider” un point, nous appuyons sur “V’\ □ Pour tracer une droite entre le point courant et le point valide précédent, nous appuyons sur l T\ 2* point Le programme permet également de “digitaliser” un dessin : u Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée la carte de France par exemple. u Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous “validons 11 les points. Les coordonnées X et Y des points s'affichent alors à l’écran. Carte de France ï’KOUKAMMES I 1KJ 10 T RH CE DE DESSIN F' RR DROITES +D 1 L 17 HL 1 SH T I ÜN 28 30 C F= 1 5 : CE — 1 co u. 1 e u. r f o n d e t £ c r i t.i i r 4S COLÜR CE.* CF : SC RE EN 2 50 ' 60 OR EN "GRP " FOR ÜUTPUT RS #1 70 PSETC 14, 155 SPRINT #1, "CLAVIER MAJUSCULE" 80 PSETC 14, 165 > : PR INT #1, “1ER POINT : FLECHES PUIS 90 PSETC 14, 175 > 100 PR INT #1 ^ "AUTRES POINTS : FLECHES PUIS " 110 PSETC 14,185) PR INT #1 , “T : TRACE DROITE" 120 X = 1 00 : Y = 1 00 * Coo r do rm e e & d P a f - 1 130 SPRITE$C 1 >=ÜHRÏ( 131 ) 140 11 ~ — curseur C sP r i te 150 PUT SF R I TE 1 .« C X * Y-l >, CE - 1 160 •' 170 C$=INK£Y$ : IF C*=" M THEN 170 ' test clavier 180 •' 130 C-ASCC C$) 2 00 IF C*29 THEN X=X- 1 •’ 3.=mchp 210 IF C=28 THEN X=X+i ' droite 220 IF C=31 THEN Y*Y+1 •' bas 230 IF C-30 THEN Y*Y-1 ' haut 240 IF Ü*="V" THEN PSETC X * Y >, CE * XR*X = YR=Y = GOSUB 280 250 IF C5i= H T 11 THEN LINEC XR, YR )-< X,Y >, CE < XA*X YR=Y : GOSUB 280 260 GOTO 150 270 ■ a.f'f i cha 9e X .. Y 280 COLÜR CF PSETC 12, 145 > 230 FOR 1 = 1 TO 10 • PR INT #1 , CHRSC 200 > ; NEXT I 4 effacement 300 COLÜR CE 310 PSET C 1 2 .* 1 45 V PR I NT #1,X-Y 320 RETURN 330 ' 340 * ex. 1 FraPPer } V f Puis deP lacer curseur 350 ' et fraPPer ‘ T' Le programme ci-dessous trace une figure en reliant entre eux des points définis en DATA. 20 COLÜR 1,15 30 SCREEN 2 40 DR TH 135,13 50 DRTR 140,13, 60 DRTR 167,36* 70 DRTR 171,56, 80 DRTR 165,80, 30 DRTR 171,30, 100 DRTR 180,112, 110 DRTR 152, 1 18, 120 DRTR 144,135* 130 DRTR 111*100, CARTE DE FRRNCE 151,28, 160,33 177,37, 174,45 170,68.* 166,75 168,82, 172,80 173, 98, 180, 107 167, 121/ 158, 116 148, 121, 146, 127 125, 1 23 , 1 06 , 1 2': 111,85, 105,77 m '■ BASIC MSX 14R DRT H 100 ,64, 94 , 57, 86, 54 1 50 DR T R 86- 46, 97, 44, 106 . 43 160 DR TR 103 39 - 102, 30 , 107, 30 1 70 DRT R 1 1 1 / 36 116, 37, 121, 31 130 DRTR 123 ■ 29 . 130 , 16, 134, 14 190 DRTR 993 . 339 200 ■ r 210 PERD xr, 1 y r Premier P o î 220 P3ET C XR , yr >, 1 240 PERD X, Y - 1F x :=939 THEN 230 250 -* 26B LINE- < X, ' ï‘ > , 1 270 GO T G 240 280 C$-INplJT$( 1 > DESSINATEUR Permet de dessiner des polygones par segments de droites. □ Appuyez sur "V" pour valider le premier point. □ Déplacez le curseur avec les quatre flèches puis appuyez sur “T” pour tracer une droite avec le point précédent. Pour une figure discontinue, utilisez “V". V T pour pour valider tracer T point □ Pour tracer un cercle, appuyez sur “V” pour le centre, puis positionnez le curseur sur un point de la circonférence et appuyez sur "C”. □ “P” peint une figure fermée (positionnez le curseur à l’intérieur de la figure). □ “A” annule le dernier tracé (pour une droite). □ 1 ,2,3... détermine la couleur d’écriture. □ “F” permet de dessiner en couleur de fond sur une partie d'écran coloriée. Dans ce cas, le curseur disparaît sur une partie d’écran non peinte (changez la couleur pour faire apparaître le curseur). □ “G" permet de gommer toute la surface d’un ( rectangle. PROGRAMMES 185 Les commandes pourraient être stockées dans une table_ . Ainsi, les dessins pourraient être sauvegardés et modifies en ajoutant ou en supprimant des commandes. On remarquera la gestion du curseur avec un sprite. in •' dessinateur £0 CF=15 ; CE=1 3 © COLQR CE.. CF 40 SCREEN 2 50 ' fit* GF' EN "GRF • " FOR OU T PUT RS 70 PPESETv 18-1 35 > : PR INT # 1 , " 80 PRESETr 18 , 145 > ! F'RINT 41," 90 PPESET< 18- 1 55 > PR I NT 41," 100 F'RESETC 18, 165) 1 PEINT #1, 1 1 0 PRESET < 1 8 , 1 75 ) ■ PR I NT #1 1 20 PRESETC 18 1 85 > : PR INT #1 , 130 X=1 00 Y= 1 00 140 XR-X YA~Y 150 >'B=XR : YB-/R 160 SPRITEÏC 1 OCHR*f 131 > 180 PUT SPRITE 1 .*< X# Y-l >.• CE,* 190 200 C*~INKEY* IF C$* ,,M THEN 210 •' 220 l>RSC< C $ > 220 IF C-29 THEN K-X-l GOTO 240 IF C=28 THEN X=X+1 ! LÜTG 250 IF 031 THEN Y=Y+1 : G0TQ 260 IF 030 THEN Y=Y-1 : GQT0 •' c o u. 1 e u r f o Ti d et- e c r i t ut '• e #1 CLAVIER MAJUSCULE 11 1ER POINT : FLECHES PUIS 'V'" 2EME POINT - FLECHES PUIS-” " T = TRACE DRO I TE/ C • CERCLE " . "R -ANNULATION TRRCE / P : PEINDRE" "1.2,3, .F COULEURS. • G : GOMMER" C o n r d o 't*s Ti e e s d e F' r t c o or d cri uee s Foi v>t P r e c * de Ti t •' curseur v sprite ’> 1 200 1 test clavier ISO •' fauche 130 ■' droite ISO '' bas 180 J h.?, ut 186 BASIC’ MSX IF 032 THEN GOSUB 380 280 ÏF C*= ,, V" THEN PS'ETC X, Y X. CE ■ XR=X : Y R- Y 290 I F C$= " T " THEN L I NEC XR , Y R W X - Y :• , CE ; XB 390 IF Cï="C ,J THEN R^SQRC C X-XR v^+c Y-VR v* 310 IF C$="G" THEN L I NEC XR Yfl W X , y . f:F . 8F 320 IF C$= 4, R" THEN LÏNEC XE!, YB >-C X, Y > , CF 330 IF THEN PR INT CX,Y >,CE 340 IF VALC C$ ■ & THEN CE-VRI.»' "XR ‘ Y8~YR ) : CI F: CLE*' X XB : Y-YB : XR 350 IF Cï“ M F" THEN CE=CF 3F 0 GOTO 130 X A*X = Y R* Y R.- YR >, F: , CE =X : Yfl* Y 370 380 PRE S ETC 1 8 , 1 25 > : CÜLÜR CF : PR INT # 1 , CHR$C 200 :■ 390 PRE8ETC 18.- 125 '• : COL OR CE = PR INT 400 RETIIRN INTERROGATION DE GÉOGRAPHIE Le programme ci-après permet de tester les connaissances en géographie. Nous demandons de situer la position d'une ville. L'élève déplace un curseur et valide la position choisie par “V”. Nous donnons à l'élève l'écart entre la position choisie et la position exacte. Position exacte DX DISTANCE=SQR:DX’DX + OY*DY) On pourra remplacer la gestion du curseur par un sprite. - Supprimer : 700,730,740,750,770 □ Ajouter: 530, S PR ITES{ 1 ) = CH R$(1 91 ) 700 PUT SPRITE l.(X.Y-l). 1.1 720 C$=INKEY$:IF C$ = “" THEN 720 1 u -- GEOGRAPHIE 2Ù ÜLERR 1Q00 30 DIM X VC20>; YVC 20 >, 7$ (20 40 COL OR 1, 15: SCR !EEN 2 50 ' ■ CARTE DE F R RMC E 60 DATA 135, 13 70 :.'HÏH 14Ô.I 13, 151,28, 160, 33 o0 DRT R 1 b 7 , 3 6 , 177,37, 174, 45 9Ü DATA 171,56, 170,68, 16b, 7 5 1Ü0 DATA 1 65 .• 80 , 1 b8 , 82 ; 172, 80 110 DR Th 1 7 1 , 30 , 173,33, 180, 107 120 DATA 180, 112, 167, 121, 153, 116 PROGRAMMES 1 187 130 DfiTfi 152,113. 148,121, 146,127 140 DfiTfi 144,135, 125,122, 106,123 150 DfiTfi 111,100, 111,85, 105,77 160 DfiTfi 100,64, 24,37, 86,54 170 DfiTfi 86,46, 27,44, 106,43 18Ô DfiTfi 1Û3,32, 102,30, 107,30 120 DfiTfi 111,36, 116,37, 121,31 200 DfiTfi 123,23, 130,16, 134,14 210 DfiTfi 222,222 228 VILLES 230 DfiTfi 137, 25, LILLE 240 DfiTfi 147, 42, REIMS 250 DfiTfi 134,42, F ftR 13 260 DfiTfi 120,56, MANS 270 DfiTfi 104, 56, RENNES 2SÛ DfiTfi 88,51, BREST 220 DfiTfi 114, 100, BORDEAUX 3Û0 DfiTfi 153,21 , LYON 3 1 0 DfiTfi 155,102, fi V I GNON 320 DfiTfi 162, 116, MARSEILLE 330 DfiTfi 174, 113, NICE 340 DfiTfi 130, 115, TOULOUSE 350 DfiTfi 140, 123, PERPIGNAN OU EST SITUE LYON 360 DfiTfi 222,232,222 370 J 380 REfiD Xfi, Yfl ' Premier- Poimt 330 F'SET ( Xfl, VA ') > 1 400 '' * — 410 R ER O X > V ; IF X=999 THEN 460 42Ü 4 430 LIME-'CX/ï 1 440 GOTO 410 450 460 V=0 470 RE RD XjY,V*'IF X=993 THEN NV=V • GOTO 520 480 7=V+1 490 XV< V )=X : YVc V )=ï ! V*< V >=V$ 50O GOTO 470 510 ■ 530 OP EM "GRP 1 11 FOR OUTFUT RS #1 53Û ' 540 550 X~130 1 Y~30 560 570 V*» 1 NT < RNDC 1 >$HV >+ 1 •' ville au. hasard 58Ô ’ 59û RRESETC 1 0 , 160 > : FRI NT # 1 , " DU EST S I TUE . M > V*- V > 670 14 GESTION CURSEUR 680 PSETC10, 170 > sRRINT #1 , "FLECHES puis ' V' " 690 4 700 T=POIHTCXj Y > 710 ‘ 720 C$=:INKEY$ 1 IF C$<> ,in THEN 770 730 FSE T <X,Ï>, 1 740 PRESET<X, Y> 750 GOTO 720 760 ■’ 770 PSET< X> Y >j T 78G ■“ 188 I BASIC MSX 790 C-M i3l( C$ > 800 IF 029 THEN i^i *”■ 2 810 IF 0—28 TH EH X=X+2 S20 IF 030 THEN Y~Y-'2 830 1F 031 THEN Y— Y+£ 840 S5Q 1F C*-"V 1,1 OR C** M v" THEN 390 870 GOTO 70Ü 880 — — — cale u l ' J i s ta ne 320 DX- : XV( v ; >“X Di i - i v \ v ; 1 i 9Ü0 D= S QR C D X* [X- •! + D Y * D T' > 910 PSET 10 ; 1 SU > ' PF.: I NT #1, "VOUS ETES Fh ">D*10> "KM" 920 PSETCWV) YWV>>, 1 930 FOR TP=-1 TO £000 : N EX T TF : ' 240 ‘ et t a.cemçrit- 250 PRESE7X XV< V > , YV< V > > 960 CÜLÜR 15 ; PSETC 1 © , 180 >» PR INT # 1 , STRING0C 31 , CHR.$C 200 > > 270 PSET-;: lû, 16ü > 1 PRIHT # 1 , STR ING3K 30 , CHR$< 200 > > 9SÔ CÜLÜR 1 990 GOTO 570 ANNEXE 1 INITIATION LE MODE DIRECT Sans écrire de programme, on peut utiliser directement les instructions du BA- SIC. Par exemple, pour imprimer la somme de 1 400, 1 200 et 700, nous écrivons : PRINT 1440+1200+700? 4 Imprimer 1440 - 1200+700 Le symbole y correspond à la touche “return” qui valide la ligne frappee au clavier. Tant que nous n’avons pas appuyé sur cette touche, les caractères de la ligne en cours peuvent être annulés en appuyant sur PRINT 14A 0n s'est trompé ; appuyer sur «— pour effacer le caractère erroné 190 1 BASIC MSX LES VARIABLES Les montants de quatre chèques, dont nous voulons calculer le total, peuvent être mémorisés, grâce à des “variables” : En frappant Cl =1400 nous affectons, à la variable Cl, la valeur 1400. Ük C 1-1400 -7 Ük 02 = 1206 -7 Ük Ü3~70ü / Ük Ü4//00 v Ok Cl/ 1400 Contenu de la y r variable Cl — — PR' INT s o 00 Total des 4 chèques l : Ri Ml Cl, JjCj.iL 1400 12Ü0 7 mm Ok Vérification des montants des chèaues Si le montant d’un chèque est faux, rien n'empêche de lui affecter une autre valeur : ük P R 1 .1. NI L 1 + C 2 + L j -H.. 4 ? 5900 Attention ! Les noms des variables peuvent comporter plusieurs lettres mais, seules les 2 premières lettres sont significatives. CH 1= 14 00 Ük CH2: 1 200 ük FR INT ÜH l ,CH2 1200 1200 \ CH1 = CH2 Les noms de variables ne doivent pas comporter de mot-clé du Basic : “TO" est un mot-cié du Basic Ük fü î HL- 100 S y ri ta.-: LLror INITIATION I 19 LE MODE PROGRAMME Si une même suite d'instructions doit être exécutée plusieurs fois, il devient plus pratique d’écrire un programme qui sera exécutable autant de fois que nous le désirons : □ chaque instruction est précédée d’un numéro, u “RUN” commande l'exécution du programme. □ les instructions sont exécutées dans l'ordre de la numérotation. N°3 2^- d'instructions lo ci=i4eu -7 20 02= 120 0 ~7 — 30 0 3 =800 v- ■ 40 C 4=2500 7 50 P R INT C1+C.2+C3+Ü 4 Z Réponse RUN -7 5900 rik Demande d'exécution Ecriture du programme RI JH ~y 5900 A l’issue de l’exécution, les variables ont conservé leurs valeurs, et il est toujours possible de faire en “mode direct” (c’est-à-dire sans numéro d’instruction). il n'y a pas de numéro d'instruction PR INT Clj Çg.-C 3- '"A~? 1400 1200 O00 2500 Si une instruction est mal frappée, la frapper à nouveau. [20 i-2-l 300 LIST 7 1 0 C 1 = 1 400 120 C2= 13001 30 03=800 40 C 4 =2500 58 PR INT C1+C2H +C4 On frappe une nouvelle ligne 20 (l'ancienne es* effacée) La commande ust permet de lister un programme. ■ Ajout d’une ligne de programme Vous pouvez également insérer des instructions en leur affectant un numéro compris entre ceux des lignes où vous voulez insérer : 192 I BASIC MSX 45 F 1 R INT Cl ; C2.i C3 jC4 ~t ^ L IÇT “7 IM Cl =1406 20 C2=1300 30 C3-800 ^ 40 C 4 -2500 [45 _Pg I±il _ül. lCâlÇ3i£4 50 FRI HT CH-C2+C3+L4 Insertion d'une ligne de programme ■ Suppression d’une ligne de programme Frapper le numéro de ligne à supprimer, suivi de return” . 20 “7 LIST -50 10 Cl® 1400 30 C3=S0@ 40 C 4 =25G0 45 PR INT Cl;C2>i::3.iC4 5© PR INT C1+C2+C3+C4 Ôk La ligne 20 est supprimée La présentation du résultat pourrait être améliorée - 50 PR INT 3+C4 R UN f TOT HL L>E » rriTHi NFS CHEQUES; M • C 1 +»: rhEQÜËSn 5 y 00 Libellé +c ■ Sauvegarde du programme La sauvegarde sur cassette d’un programme se lait par la commande : CSAVE “nom-programme” i a tnurhe “RECORD” du lecteur/enregistreur doit être enfoncée, ta commande CLOAD -nom-programme” permet de relire un programme sau- vegardé. CSAVE “ESSAI” CLOAD “ESSAI” INITIATION i m L'INSTRUCTION INPUT Cette instruction permet de fournir des informations au programme pendant son execution : HEU -y Pour effacer l'ancien programme L 10 INPUT "Montant du. chenue- 1 " 2G INPUT 11 Montant du. chenue 2 11 30 PR I NT " 'Vota. 1 cheT u. es : " : C 1 +C2 Ok ru 'fi ? Montant du. chenue 1 ? 1400 Montant du. chenue 2 1 200 ^ T o t a. 1 c h e- n u. e s : 2 £ ÿ 9 L'ordinateur attend que i l'operateur entre la valeur de Ci pour continuer l'exécution j Au moment où une instruction est exécutée, le message qui y figure (montant chèque 1 ? sur l’exemple) est affiché, puis l'ordinateur attend la réponse de I ope- rateur avant de poursuivre l'exécution du programme. Remarque : La commande new permet d effacer un programme Si, en réponse à une question input, I opérateur appuie sur RETURN sans entrer de valeur, la variable spécifiée dans input conserve son ancienne valeur Naturellement, il convient d'en tenir compte dans l’écriture des programmes. 10 INPUT “NOMBRE " ; 20 PEINT A 30 INPUT "NOMBRE "• 40 PEINT H Ok P. U N y NOMBRE V' ) 2_ / 12 NOMBRE "-y X a conserve son ancienne valeur LES BOUCLES Voici un programme très court et néanmoins bavard. L instruction goto io (ALLER EN 10) provoque un "branchement” à l'instruction 10 qui est à nouveau exécutée, 194 I BASIC MSX Boucle r" 10 FRI HT M HPPUVER SUR CTRL ET STOP" L >'0 GOTO 10 RUN APPUYER S U F* CTRL ET STOP APPUYER SUR CTRL ET ■CT GF HPPUVER SUR CTRL ET STOP APPUYER S U F CTRL ET STOP Le programme ci-dessous vous permet de connaître de quelle somme vous dis- posez au fur et a mesure de vos achats. Tout ce Qui suit ' est du commentaire 10 •' FRITES VOTRE MARCHE 1:0 ' 30 ï N PUT 11 COMBIEN AVEZ VOUS M . TîRL 40 •' "50 INPUT lf PRI>- DU PRODUIT , PRIS! 60 INPUT "QUANTITE M ; OT ! I S0_U R I-Til T H l . ” P R l VT QT 1 ** " I 9Q PR INT PR INT "IL VOUS RESTE : " . TTRL L i 0ÿ GOTO 50 RU N COMBIEN R VE Z VOUS ? 200 PR IN DU PRODUIT ? 4 QUANTITE ? IL VOUS RES .'E : 130 - pp TV H jj PRODUIT T TTAL*— Ancien contenu J - Prix x QT de ttal 1 TTAL«- 200 4x5 Appuyer sur CTRL/STOP pour stopper l exécution Tout ce qui suit rem ou fe caractère ' (apostrophe) est du commentaire qui n’est pas exécuté par BASIC. Par exemple, la ligne 1 0 n’est pas exécutée. L’instruction 80 ne doit pas être lue comme une égalité algébrique. Le signe “=” représente une affectation : INITIATION I 195 Ancien contenu de UAL TTAL/ 200 Prix Nouveau TTAL / contenu ► Quantité de TTAL 180 L’ordinateur soustrait du total (TTAL) le prix multiplié par la quantité (PRIX*QTE) puis range le résultat dans TTAL. Remarques sur rinstruction PRINT : Un point-virgule empêche le saut de ligne. 10 X-123 20 Y *456 30 PRINT X: 40 FRI HT Y; Ok ru ri 123 456 La présence d’un point-virgule après PRINT X provoque l’affichage de “456 à la suite de “123”, IF condition THEN instruction (SL.* ALORS) L’instruction if.then.. teste si une condition est vraie et, dans ce cas, exécute une ou plusieurs instructions (séparées par L’instruction 30 se lit : SI X=Y ALORS IMPRIMER “X est égal à Y m BASIC MSX 10 INFUT "NOMBRE X ,f ; X £0 INFUT "NOMBRE Y ” ; Y 30 IF v- 1 -, THEN^PRIHJ '»X ES T EGAL H Y." 40 GOTO lU F' UN nombre X ? s , NOMBRE Y ? 8 -, X EST EGfiL Ff Y NOMBRE X • 4 NOMBRE Y 5 NOMBRE X ; Les différentes operateurs de comparaison sont : égalité : = plus grand que : > plus petit que ! < différent de : <> Le programme ci-dessous présente 2 nombres à l’opérateur et lui demande quel en est le produit. Si la réponse est fausse, la question est à nouveau posée. le 4=9 3 U 30 PR INT " Produit de " • R : "Par" : fc: * 40 IN PU T R 50 IF R ~ Fl Y B THEN PR INT J ' C'est C 3 . u : STOP t* 0 F' F* I N T ' J E r r eu.t'-" 70 GOTO 30 Ük n,' ij_ ? Pr tid u i t de S S ? Break i n 56 L’instruction 50 doit se lire : Sf R=A*B ALORS IMPRIMER “Oui, c est ça” Sans instruction de test, ne pourraient être exécutées que des séquences d’ins- tructions figées. C est dans cette instruction ir.then.,. que réside toute la puis- sance de l’ordinateur. [MUA MON 197 ■ Sortie de boucle Pour effectuer la somme de plusieurs chèques, au lieu d écrire une suite d'ins- tructions INPUT, utilisons une boucle. Lorsqu'il n'y a plus de chèques à totaliser, l'opérateur entre la valeur 0 en réponse à la question 1 Montant chèque?”. Boucle 10 £0 1*30 TÜHEÜ : '-Ü total chenues 40 50 L h;i0 ■0 I H F-' U T 1 1 Mo ïi t •?. Ti t c h e 4 u e M F- o i < r IF CHEQ-0 THEN GO T Ci îqgy TCHEÜ=Ti';HEG+CHEQ GOTO 30 TC Ht 9 f i ti 00 PR I NI "Tôt. a . chenue M . Ük ru.Tf Montant ehe^u.^- ■; 6 pour i i. I "l MOTkt-7'üt cheT u.è 'i ü pour f 1 Tl MüTit-3. Tit che^ u.e ( 0 pour f i T- Montant •_he 4 u.ç y pour t 1 Tl M o T» ta rit 1 ” h H; 1 4 U. J T‘ ( 0 Pour f .1 ï‘1 Tôt?. 1. cl ’rl 4 U. Ç 5 : 4 jüü ûn so*t de la boude L’operateur entre 0 pour sortir 198 ; BASIC MSX ■ Compteur de boucles Introduisons maintenant une autre notion, celle de "compteur de boucles". Afin d'exécuter une boucle un certain nombre de fois seulement, nous augmentons une “variable compteur” de 1 à chaque passage dans la boucle, puis nous tes- tons la valeur de cette variable compteur : si le contenu de ce compteur a atteint la valeur limite souhaitée, nous sortons de la boucle, Boucle I Ûk \ I xst-1 00 10 CFT-0 20 ■' ^ 30 cpv=cpr+i ^ , 40 PR I HT Jl BOUCLE 50 IF CPI -5 THE H l— 60 GOTO :0 70 ■" 1 00 F 1 F 1 1 N l 1 ' L b o u. c L c «j» s t t e r n i ri c e c P t . = " jjCPT Ok rijï'i BOUCLE no 1 BOUCLE mo 2 BOUCLE Tro, 3 BOUCLE fro 4 BOUCLE Tro 5 L - 3 . bouc t ï ter rriviee c P t- — 5 nk La boucle est terminée CPT=5 ; FIN INITIATION I 199 Utilisons un compteur de boucies pour notre totalisation de chèques. Nous quit- tons la boucle automatiquement dès que 5 chèques ont été totalisés. 10 T'CHEQ-0 2G CPT -'0 t o t a l cheq u. es C O Pi P t C • J. r d ■ir' L’I C 1 U. C 1 *i5' S 3â ' -—40 ï H PLU' 1 1 Mo ïï t -3. ri t c h e 1 q u , e 1 1 C H E Q 30 TCHEQ -T CHEQ+CHEQ ' cumul chèque CPT-CP1+1 '' '3. u 9 r< i e n t e r L F 1 1 d e 1 70 IF CPT»5 THEN GOTO 100, •' SI CPT =3 PL OR:- PILLER EN 100 i- 80 GOTO 40 - ^ — '*100 PR INT "Total des chenues : 11 ; TCHEQ ük ru. n Montant Monta nt Montant Montant Montant chenue chçq U.& chenue chel u.e cheq ue i 400 1200 800 1100 500 T o t a. I d e s c ki e- q u e s ; 5 0 0 0 Question : Comment faire pour que ce programme fonctionne avec un nombre de chèques non prévu à l’avance ? Réponse : 5 INPUT “Combien de chèques ?”; NCH 70 IF CPT=NCH THEN GOTO 100 200 I BASIC MSX Pour vous assurer que vous avez bien compris ce programme : u □ u entrer les montants pour 3 chèques : au lieu d'entrer le montant pour le quatrième chèque, appuyez sur -ctrlstop frappez en mode direct : PRINT CPT JC déjà entrés^ ^ 3 3 6t TCHEQ doit avoir ’ Pour valeur, le total des trois chèques J frappez “cont- pour continuer l’execution du programme. run LA BOUCLE FOR Le programme précédent pourrait s 'écrire plus simplement à l'aide d'une boucle FOR...NEXT.. INITIATION 201 Boucle Valeur 1 limite j 1 LÜ \ i ! UHRU r::: U j -OR CF'T :: = t TÜ PT: r 40 I MP U T "Mo nt ch ■ tôt 3.1 r; h •"•■'i POLIR •>■!■= I JUS OU ' 1 fl i Sÿ T C HE IJ.» I L H E Q H- 0 H E i .■ ! L- t'U ME!-! T CPT •' l 'p'f P I + 1 ' :••• I. ; i. î pt: I HT' " Tôt-* l che'3 u.es ' " , TOHhU :RV ITLLEP EN 40 Comment se déroule l'exécution de ce programme : •. i au moment ou l’instruction for est exécutée, le système BASIC affecte à CPT la valeur 1 et enregistre la valeur limite spécifiée (5 sur l'exemple) ; n les instructions entre for et next sont exécutées avec CPT= 1 L'instruction NEXT CPT augmente la valeur de CPT de un. Si celle-ci reste inférieure ou égale à la valeur limite spécifiée dans for, les instructions entre for et next sont à nouveau exécutées avec CPT=2, etc. 202 i BASIC MSX Autres exemples : 10 FOR 1-1 T0 100 20 PRINT "Le BASIC, mais c’est très simple" 30 NEXT I RUN Le BASIC, mais c'est très simple Le BASIC, mais c est très simple Ce programme imprime les carrés des nombres de 1 à 5, IL* F'ijF: i- i T fi ri -Ï0 PRINT I Üj îr* H ELIT J. Ok r>i r, 4 I ni: LES CHAÎNES DE CARACTÈRES Les variables que nous avons jusqu'à présent considérées, étaient du type merique. Il existe également des variables du type “chaîne de caractères’’. Pour les distinguer, elles comportent, à la fin de nom, le caractère Exemple : 10 1 HP 1 -T "GÏU.Ç1 eet '.votr e non* 11 , NÜ( V I$ r" -ü PR INT HOMsb ; : — 30 GÜÏU 30 Ok RUN 7 e... t votre nom DUPONT ? 0 U PO H ' T D U P ü N T D U P LJ N T D U P ON T b IJPO N T D ! J P O N F p iJPONTDi i P ÜH T O U ROM T DUPON T D U PO H l'DUPi iNTF-l l P IJ N T 0 U F ' ÜH T D U P ON T D U P 0 N T D IJPON T D 1 1 F 1 n |-| J t.:- fl p INITIATION . 203 Nous" errons, pies tard, qu'il existe des instructions de manipulation des chaînes La concaténation de chaines se tait à l'a, de de l'opérateur “ + ". 10 ÏNPUT ‘'VOTRE cdchiÏm 20 1HPUT " VOl RL PF-.ENUM 30 ‘ 4 0 y $ =■ N ü ri $ + ^ P $ Ok VOTRE NOM î ME UNI EF: VOTRE PRENOM '• JE FIN MEUNIER JEAN : PR* ANNEXE 2 MESSAGES D'ERREURS DU BASIC Si le message d'erreur ne suffit pas pour détecter d'où provient l'erreur, on pen- sera à visualiser les valeurs des variables en "mode direct”. Ceci aidera bien souvent à la retrouver Des instructions STOP judicieusement placées permettront également de mieux suivre l’évolution des valeurs des variables. On pourra aussi insérer momenta- nément des instructions de visualisation des valeurs de variables <print) -X-"; x par exemple). La trace (avec TRON). un peu trop riche en informations, ne sera utilisée que dans les cas particulièrement délicats. (* signale les messages spécifiques au disque) Message Code *Bad allocation table 60 La table d’allocation de la disquette est dé- truite. *Bad drive name 62 Mauvais nom d’unité. Utiliser ‘Bad file mode i 61 (mauvaise utilisation de fichier) On utilise PUT,GET avec un fichier ouvert en séquentiel où on ouvre un fichier dans un autre mode que “R” “0” ou “1” ou “A”. *Bad file number 52 Mauvais numéro de fichier *Bad file name 56 (mauvais nom de fichier) Le nom de fichier utilisé n est pas normalisé (trop de caractères par exemple). 206 ! BASIC MSX Message Can’t continue Direct statement in file Disk full Disk I/O error ‘Write protected Division by zéro ‘Field overflow ‘File already exist File already open ‘File not found ‘File still open For without next Illégal direct Code 17 57 66 69 I 68 11 50 65 54 53 64 26 (l'exécution ne peut se poursuivre) On a tenté de poursuivre l'exécution d'un . programme qui : z a été stoppé à cause d'une erreur c a été modifié après une interruption □ n’existe pas. On peut cependant continuer par GOTO xx (RU N xx initialise les variables à 0) Commande directe dans un fichier. (disque plein) Tout l’espace disque est utilisé. (erreur disque) Une erreur disque s’est produite pendant une lecture/écriture. Le système d exploitation ne peut rien faire. i Le disque est protégé en écriture. (division par zéro) (dépassement du field) Une instruction FIELD a tenté d'allouer dans le buffer plus de caractères qu'il a été prévu à l’ouverture du fichier. (fichier déjà existant) Le nom de fichier défini dans NAME existe déjà. (fichier déjà ouvert) On essaie d’ouvrir en mode séquentiel OUT- PUT un fichier déjà ouvert ou un Kl LL tente de supprimer un fichier ouvert. (fichier non trouvé) Une instruction LOAD,KILL ou OPEN réfé- rence un fichier qui n'existe pas. Un fichier n’a pas été fermé par (CLOSE). (FOR sans NEXT) Un FOR sans NEXT a été détecté. 12 (illégal en mode direct) L’instruction frappée n’est pas valide en mode direct, elle ne peut être exécutée que précé- dée d’un numéro de ligne. Ex. : instruction INPUT-DEF FN MblSSACil S DÏ-RRHJk F)U BASIC . 207 Message Code ; Illégal function call i 5 (appel illégal de fonction) Un paramètre hors du domaine normal a été passé à une fonction arithmétique ou une fonction chaîne. Ex. : □ argument négatif pour SQR o longueur spécifiée dans LEFT$,MID$,RIGHT$ non comprise entre 0 et 255. Input past end 55 (dépassement de fin de fichier) Une instruction INPUT # .. est exécutée alors qu’il n’y a plus d'information à lire (fichier vide éventuellement). Pour éviter cette erreur, uti- liser la détection de fin de fichier EOF. Internai error 51 (erreur interne) Une erreur système s'est produite. Une buffer overflow i 23 (dépassement du buffer de ligne) On essaie d'entrer une ligne avec trop de caractères. Missing operand 24 (opérande manquant) Une expression contient un opérateur sans opérande. N EXT without FOR 1 (N EXT sans FOR) Une variable dans un N EXT ne correspond à aucun FOR. Ex. : La ligne FOR correspondante a été ef facée sans le NEXT associé. No résumé 19 (pas d'instruction RESUME) Une routine de traitement d’erreur qui ne contient pas d'instruction RESUME a été ap- pelée. Out of data 4 (Data épuisés) Un READ est exécuté alors qu’il n’y a plus de DATA à lire, □ On a oublié des DATA. □ On a oublié de programmer RESTORE Out of memory 7 (plus de mémoire centrale) Il n’y a plus assez de place en mémoire cen- trale. □ On doit supprimer une partie du program- me ou effacer des tableaux (ERASE). 208 • BASIC MSX Message Out of string space Code 14 (plus de place pour les chaînes) L’espace pour les chaînes n’est pas suffisant {voir CLEAR). Overflow t t i 6 {dépassement de capacité) Ex. : On a tenté de donner à une variable entière une valeur en dehors de -32768, +32767. Redimensionned array 10 (tableau redimensionné) Un tableau est à nouveau dimensionné ou une dimension de tableau est déclarée pour un tableau non déclaré explicitement mais créé par BASIC (avec une dimension 10) parce qu'il a déjà été référencé (par une ins- truction A(4)^X par exemple). ‘Résumé without error 22 (RESUME sans erreur) Une instruction RESUME a ete exécutée alors qu'il n'y avait pas d’erreur. RETURN without GOSUB 3 (RETURN sans GOSUB) □ On est “entré” dans un sous-programme par GOTO (au lieu de GOSUB). u On est “entré” dans un sous-programme par erreur parce que l'on a oublié STOP ou END à la fin de l’exécution de son pro- gramme (devant un sous-programme). ‘Séquentiel I/O only 58 i On essaie de lire un fichier séquentiel en accès direct. String formula too complexe 16 (expression chaîne trop complexe) Une expression du type chaîne est trop longue i ou trop complexe, La décomposer en expres- 1 sions plus courtes. String too long ' 15 i (chaîne trop longue) Une chaîne ne peut dépasser 255 caractères. Subscript out of range 9 (référence en dehors du domaine) Un tableau est référencé en dehors de ses dimensions. Souvent, pour un tableau non dé- claré qui a été dimensionné à 10 par BASIC parce que référencé (par une instruction A(4)=X par exemple). Syntax error 2 i (erreur de syntaxe) La ligne contient une erreur de syntaxe : □ parenthèses non appairées u ponctuation incorrecte □ instruction n’existant pas □ etc. MESS A GtS LVRRR1 AJ R OU BASIC l 209 Message Code i Type mismatch 13 (désaccord entre numérique et chaîne) Une valeur numérique est affectée à une chaîne où l'inverse. ‘Too many files 67 Il y a plus de fichiers que le nombre prévu par MAXFILES. Undefined line 8 (numéro de ligne indéfini) Une instruction référence une ligne qui n existe pas. Undefined user fonction 18 (fonction utilisateur indéfinie) Une fonction USR est appelée avant d'etre définie. Unpritable error 23 (il n’y a pas de message pour cette erreur). ANNEXE 3 CARACTÈRES DE CONTRÔLE Les caractères dont les codes sont compris entre 0 et 31 ont des fonctions par- ticulières. A partir du clavier, on y accède avec la touche ctrl ou directement pour certains codes (< — » î i )• Dans un programme, on y accède par “print chrsicode)". 1 CT R U A — Curseur au début du mot précédent. 2 CTRL B 3 CTRL'C — 4 CTRLD — 5 CTRLE — Eflace la ligne à droite du curseur. 6 CT R LF — Curseur au début du mot suivant. 7 CTRL G — Sonnerie. 8 CTRL H — Curseur arrière. 9 CTRU1 — TAB 1 0 CTRL J — Saut de ligne 11 CTRLK — HOME 1 2 CTRL L — CLS 1 3 CTRLM — Retour en début de ligne. 1 4 CTRL N — Positionne le curseur en fin de ligne 1 5 CTRLO — 1 6 CTRLP - — 17 CTRLO — 1 8 CTRL R — [ÏNS 1 9 CTRL S — 20 CTRL'T — 21 CTRL U — Efface la ligne courante. 22 CTRUV — 23 CTRLW — 24 CTRLX — [SELECT 25 CTRLY — 26 CTRL Z — 27 CTRL — 28 CTRLN — Flèche droite 29 CTRL] — Flèche gauche 30 CTRL T — Flèche haut 31 CTRL- — Flèche bas 128 — DEL ANNEXE | 4 TABLE DES CODES ASCII 32-» 128 128- > 255 32 64 (V 96 s 1 2 8 f: T 170 -i 212 ■ 33 j 65 H 37 a 129 ij 4 171 1 j. 2 13 m 34 »» 66 B 98 b 1 3 0 £ 17 2 14 214 m 35 # 67 f: 99 r 131 à 1 T 3 i 215 # 3 h $ 68: D 100 d 13 2 ■â 17 4 W 2 1 6 A 37 JS 63 E 101 1 3 3 175 » 217 k 38 & 70 F 102 f 134 à 176 S 218 39 71 6 103 O 135 ç 177 %à‘ ■zi 2 1 9 ■ 48 ( 72 H 104 h 1 3 6 ê 178 i 220 m 41 42 43 44 45 > * + J ~*7 1 ". r o 74 75 76 7 ?■ I J K L ri 105 106 107 1 03 109 i ,.i k 1 m 137 1 3 8 i 3 9 140 141 14 2 # i s i A 179 18 0 181 18 2 1 8 3 1 8 4 />• i O .V i^r i.i. IJ 2 21 ’**/ ^ r "> fcT— C. 2 ci! 3 o c 4 C„ li. T c; Lm» 2 26 1 1 o: B r 46 47 n y r» 78 73 H Ü 110 1 1 1 ci o 14 3 A 135 ') O O *7 C« 1 M i 1 TI 48 0 80 F' 112 P 144 é 1 8 6 H O Q Cl d O 2 49 1 81 Q 113 4 14 5 =6 1 8 7 229 a 50 O 82 f: 114 r 146 Æ 18 8 j*. 2 3 0 u 51 3 83 r- 115 ■z. 147 O 13 9 r é S 2 3 1 T 52 4 34 T 116 t 14 8 O 1 9 0 4T 2 3 2 £ 53 Cj 85 IJ 117 U 14 9 c- 191 § 2 3 3 54 S 86 V 118 y 15 0 i*. 192 _ _ 234 n 55 7 O "7 O i W 119 w 151 1 9 3 2 3 ? 5 56 58 8 9 QO ij ij 33 90 Q 1 y. Y Z 120 121 122 X y l‘ 152 15 3 154 15 5 y Ü 'ï 194 195 i 9 6 197 m m m 2 3 6 r—4 «“7 «c o i 2 38 O -~J o C- J 5 «* P* € n y* i"j J 1 r.'-i c 1 28 ’l. P 156 £■ 19 8 \ 24 0 25 b U 61 «J ~l r 93 3 1 24 125 f / 157 158 i Pt 19 9 200 ■■ ■ 241 2 4 2 ± V 62 > 94 1 26 159 f 201 l 243 63 ? 95 127 64 é 96 \ 128 160 fît 202 ■ 24 4 f 161 i 2 03 245 J 162 ✓ 204 \ S . 2 46 5- 163 ij, 205 "V 247 ** 16 4 <*/ Ki 2 0 6 -A» 248 0 16 5 fi 207 ► 249 ♦ 166 a 20 8 < 250 - 1 6 7 0 2 09 X 2 51 r 16 8 6 210 H 252 Y1 16 9 r' 211 • 25 3 i 170 ~1 212 « 254 • 214 ' BASIC MSX CHR$(1) + CHR$(65+X) 6 5 © 66 0 67 ¥ 68 ♦ 6 9 ❖ 78 4 71 N 72 B 7 3 O 74 £ 75 Cf’ 76 5 77 P 7 S J3 79 4 30 t 8 1 82 T 8 3 H 84 h 85 + 86 | 87 88 r 8 9 "l 90 u 91 j Q '"ï X 9 3 9 4 % \ 9 5 -4~ 96 ANNEXE | 5 CARACTÈRES SPECIAUX - COOE En appuyant sur la touche EDS on obtient les caractères suivants : SHIFT | CODE ESC V* v 2 3 A n — . — j •/- r <JÜ TAB CTRL OH r T i o - î © < > / I ^ 2 ïi MM J TAB CTRL fi n I BB + © n DE AD ^ CODE Achevé d’imprimer sur les presses de l'imprimerie IBP à Rungis (Val-de-Marne 94) 686,73.54 Dépôt légal - janvier 1985 N° d'impression: 4832 N° d’édition; 86595-207-1 N° d’ISBN: 2-86595-207-X Cet ouvroge s'adresse 6 ceux qui, de plus en plus nombreux, ont déjà pratiqué un "BASIC" et qui souhaitent approfondir leurs connaissances informatiques sur leur ordinateur MSX. vu découvrirez, grâce à de nombreux programmes- exemples, foules les instructions du Basic MSX au fur et à mesure de vos besoins, et vous utiliserez au mieux toutes les possibilités du nouveau standard : le graphique haute et basse résolution, les Sprites, la redéfinition des caractères, les sons, etc. £es programmes de jeu et de gestion vous permettront de mettre immédiatement en pratique votre savoir Hveorique et de créer de fort belles pages-écran. L / / I5BM : 2 865 95-207 X mirions du p.sj. bp i* fkahci - 77402 laghy s mabhi croix 120 FF