Mtpl, Esempio in basic, Esempio in pascal – Dascom T2280+2T User Guide Manuale d'uso
Pagina 160: Stampa

Emulazioni
Manuale dell’utente
150
MTPL
Poichè le emulazioni, in un certo senso, non prendono in considera-
zione diversi aspetti della stampante, è stato messo a disposizione
un nuovo linguaggio di stampa (sia stata adattata allo specifico mo-
dello di stampante). Con l’MTPL si è in condizione di strutturare in
modo ottimale le operazioni d’uso e di comando.
L’MTPL può essere usato insieme ad altre emulazioni, ma anche
singolarmente.
Esempio in Basic
open “LPT1:” as #1
width #1,255
Text1$ = “10 caratteri per pollice”
Text2$ = “15 caratteri per pollice”
ESC$ = chr$(27)
#1,ESC$;"[4w";Text1$;ESC$;"[6w";Text2$;ESC$;"[4w";Text1$
end
Esempio in Pascal
program cpi_example;
uses printer;
const ESC = #27;
Text1 = “10 caratteri per pollice”;
Text2 = “15 caratteri per pollice”;
begin
writeln(lst,Esc,"[4w",Text1,ESC,"[6w",Text2,Esc,"[4w",Text1);
end.
Stampa
Eseguendo questo programma viene stampato il seguente listato:
10 caratteri per pollice
15 caratteri per pollice
10 caratteri per pollice