10 CLS
20 PRINT "GLOSSAIRE D'IMPRIMANTE IMAGE WRITER II"
30 PRINT "======================================"
40 PRINT
50 PRINT " 1- DEBUT IMPRESSION DOUBLE LARGEUR '14"
60 PRINT " 2- FIN IMPRESSION DOUBLE LARGEUR '15"
70 PRINT " 3- IMPRESSION CONDENSE "
80 PRINT " 4- IMPRESSION ELITE"
90 PRINT " 5- IMPRESSION PICA"
100 PRINT " 6- IMPRESSION ULTRA CONDENSE"
110 PRINT " 7- DEBUT IMPRESSION CARACTERES GRAS"
120 PRINT " 8- FIN IMPRESSION CARACTERTES GRAS"
130 PRINT " 9- IMPRESSION SEMI-CONDENSE"
140 PRINT " 0- FIN DE CONFIGURATION"
150 PRINT : PRINT "CHOIX (0-9) ?"
160 INPUT A
170 IF A = 1 THEN GOTO 300
180 IF A = 2 THEN GOTO 320
190 IF A = 3 THEN GOTO 340
200 IF A = 4 THEN GOTO 360
210 IF A = 5 THEN GOTO 380
220 IF A = 6 THEN GOTO 400
230 IF A = 7 THEN GOTO 420
240 IF A = 8 THEN GOTO 440
250 IF A = 9 THEN GOTO 460
260 IF A = 0 THEN GOTO 480
270 GOTO 160
300 LPRINT CHR$(14);
310 GOTO 485
320 LPRINT CHR$(15);
330 GOTO 485
340 LPRINT CHR$(27); CHR$(113);
350 GOTO 485
360 LPRINT CHR$(27); CHR$(69);
370 GOTO 485
380 LPRINT CHR$(27); CHR$(112);
390 GOTO 485
400 LPRINT CHR$(27); CHR$(81);
410 GOTO 485
420 LPRINT CHR$(27); CHR$(33);
430 GOTO 485
440 LPRINT CHR$(27); CHR$(34);
450 GOTO 485
460 LPRINT CHR$(27); CHR$(101);
470 GOTO 485
480 PRINT "Fin de Configuration ..."
482 GOTO 800
485 INPUT "TEST D'IMPRESSION (O/N) ?"; B$
490 IF B$ = "O" THEN GOTO 700
495 IF B$ = "o" THEN GOTO 700
500 GOTO 10
700 LPRINT
705 FOR I = 32 TO 64
710 LPRINT CHR$(I);
715 NEXT I
720 FOR I = 65 TO 96
730 LPRINT CHR$(I);
735 NEXT I
740 FOR I = 97 TO 128
750 LPRINT CHR$(I);
755 NEXT I
760 LPRINT "**********************************************************"
770 GOTO 10
800 END