esercizi di stili testocon turbo pascal 1.1 su mac

program stili;
{ esempio assegnazioni FONT..SIZE...FACE per stili testo }

uses memtypes,quickdraw;

var a,b,c:integer;
       testo:string;
       

procedure stile1;
begin
 textfont(0);textsize(12);textface([bold]);
 end;   
     

procedure stile2;
begin
 textfont(0);textsize(12);textface([outline]);
 end;  
      

procedure stile3;
begin
 textfont(0);textsize(12);textface([underline]);
 end;   
     

procedure stile4;
begin
 textfont(0);textsize(12);textface([shadow]);
 end;  
      

procedure stile5;
begin
 textfont(0);textsize(12);textface([italic]);
 end;    
    

procedure stile6;
begin
 textfont(0);textsize(12);textface([]);
 end;       

begin
 clearscreen;
 testo:='prova con stili variabili:premi return';
 stile1;writeln(testo);readln;
  stile2;writeln(testo);readln;
   stile3;writeln(testo);readln;
    stile4;writeln(testo);readln;
     stile5;writeln(testo);readln;
      stile6;writeln(testo);readln;  
  stile3;writeln('premi return per finire');        
 readln;
end.
 

program stili2;
{ esempio assegnazioni FONT..SIZE...FACE per stili testo }

uses memtypes,quickdraw;

var a,b,c:integer;
       testo:string;
       

procedure stile(fonte,dimensione:integer;tipo:style);
begin
 textfont(fonte);
 textsize(dimensione);
 textface(tipo);
 end;
 

begin
 clearscreen;
 testo:='prova con stili variabili:premi return';
 stile(0,12,([bold]));writeln(testo);readln;
 stile(0,12,([italic]));writeln(testo);readln;
 stile(0,12,([outline]));writeln(testo);readln;
 stile(0,12,([underline]));writeln(testo);readln;
 stile(0,12,([shadow]));writeln(testo);readln;
 stile(0,12,([bold]));writeln(testo);readln;
 stile(4,14,([outline]));writeln('premi return per finire');      
 readln;
end.