points, dans le deuxième intervalle. De ce fait, à l'exécution de la ligne IO, la tête d'impression vient à la 300e position de points sautant le 299 points (44 points dans le deuxième intervalle qui commence au point 255, soit 255 +44 =299).
La ligne 20 n'est qu'une instruction LPRINT sans code de commande. Après le positionnement de la tête d'impression, la phrase "THIS IS THE JOOTH DOT
POSITION" est imprimée.
R épétition de caractères
On peut imprimer un caractère jusqu'à 256 fois de suite avec le code de commande:
LPRINT CHR$ C 28 ) CHR$ (nl ) CHR$ C n 2 > dans lequel n
1 précise le nombre de répétitions et n2 spécifie le caractère à imprimer plusieurs fois de suite. n2 doit être un caractère imprimable, sinon
X est imprimé (voir la liste de tous les caractères imprimables dans l'annexe B). On peut remplacer CHR$(n2) par un caractère imprimable entre guillemets.
Cette caractéristique peut être très pratique pour le soulignage, l'impression des codes graphiques ou les graphiques répétés. Taper la ligne de programme suivante et l'exécuter pour comprendre le fonctionnement de ce code.
1 0 L P R I NT CHR$ C 2 E: ) CHR$ ( :3 0 ) " T "
On aura probablement deviné que la lettre
"T' est imprimée 3 0 fois de suite.
Choix des couleurs
On peut choisir parmi les sept couleurs que la CGP-220 peut imprimer pour créer des graphiques, des symboles, des tables ou des tableaux intéressants. Pour choisir une couleur, envoyer le code: uu
LPRINT CHR$ C 2 7 ) CHR$ C 8 4 ) CHR$ C n 1 >
LPRI NT CHR$ ( 27 ) " T " CHR$ <:-n
1 ) dans lequel n 1 est un numéro à deux chiffres de
48
à 55. La table
4 ci-dessus indique la couleur obtenue avec chaque numéro.
Choix des couleurs de la CGP-220
Pour la couleur
Noir
Rouge
Vert
Jaune
Bleu
Mauve
Violet
Blanc (pas d'impression) n1 doit être
48
49
50
51
52
53
54
55
Table 4
19
20
Taper et exécuter le programme suivant pour afficher les différentes couleurs permises par la
CGP-220:
1 0 LPRINT CHR$ ( 2 7 ) ; "T" ; CHR$ ( 48) ; "BLAC•< "
20 LPRINT CHR$ ( 2 7 ) ; " T " i CHR$ ( 4 '3 ) ; " RE D "
30 LPRINT CHR$ ( 27 ) i "T " i CHR$ ( 5(1 ) j "GREEN"
40 LPRINT CHR$ ( 27 ) ; " T " ; CHR$ ( 5 1 ) ; "YELLOW"
50 LPRINT CHR$ ( 27) i "T " ; CHR$ ( 52 ) i "8LUE"
60 LPRINT CHR$ ( 27) ; "T" ; CHR$ ( 5 �: ) ; "MAGENTA"
70 LPRINT CHR$ ( 27) ; "T" i CHR$ ( 54 ) ; "VIOLET "
