BATCH

BASIC

PASCAL

  @Echo off 

  Cls

  c:

  cd \

  rem Grafico

--------------------------- 

  - Posizione cursore

  <- [(m;n)H

  m=1-25

  n=1-80

  - Colore

         0

  <- [1; 4x; 3xm

         5

       x = 0 - 7

  Echo"<-[4;15H<-[0;1;5;42;31m

  Echo" File Batch

  if errorlevel goto

 :End

 Rem  Program By ....

---------------------------

  Gosub ==> Return

  Cls

  Locate (y,x)==>{25 x 80}

  Color (m,n):

  * 0-7 > Normale

  * 8-15  > Grassetto

  * 16-23 > Intermittente

   Input "Ins. A= ",  a

   d = b^2 - 4 * a * c

    if .... then... else

    Print "X1= ", X1

    End

Program Nome_By_

   uses crt;

   Var (Variabili)

   -integer; -real;

   -char ; -byte;

---------------------------

   Begin ==> end

   Clrscr;

   Gotoxy(X,Y);{80 x 25}      

   Textcolor (Nome);

   Textbackground (Nome);

  Writeln('Ins. A= ') ;

  Read (a) ;

   d : = b * b - 4 * a * c

   if d < 0 then... else

   Writeln ('X1= ',X1:4:2);

   Repeat until keypressed;

   End.