examp/ansitest.log

   1 program ANSItest;
   2
   3 #include "classes/ansi.inc"
   4
   5 var i,j:integer;
   6 begin
   7 pref ANSI block begin
   8 call GotoXY(10,2);write("This is ANSI class demonstration");
   9 call GotoXY(5,5);write("Colors:");
  10 for i:=0 to 15 do
  11 call GotoXY(5,i+6);call SetColor(i);
  12 write("color");
  13 od;
  14 call SetColor(5);
  15 writeln("Press Any Key");
  16 j:=inkey;
  17 while j=0 do j:=inkey; od;
  18 call NewPage;
  19 call GotoXY(5,5);
  20 write("backgrounds:");
  21 call SetColor(15);
  22 for i:=0 to 15 do
  23 call SetBackground(i);
  24 call GotoXY(5,i+6);  write("background");
  25 od;
  26 call SetColor(0);call SetBackground(15);
  27 writeln("Press Any Key");
  28 j:=inkey;
  29 while j=0 do j:=inkey; od;
  30 call NewPage;
  31 call GotoXY(5,5); writeln("Font Styles");
  32 call Normal; writeln("Normal");
  33 call Bold; writeln("Bold");
  34
  35 end;
  36 end.
  37 call Normal; writeln("Normal");
  38 call Bold; writeln("Bold");
  39 call Italic; writeln("Italic");
  40 end;
  41 end.
  42 end;
  43 end.
  44 end.
  45 for i:=0 to 15 do
  46 call GotoXY(5,i+6);call SetColor(i);
  47 write("color");
  48 od;
  49 call SetColor(5);
  50 writeln("Press Any Key");
  51 j:=inkey;
  52 while j=0 do j:=inkey; od;
  53 call NewPage;
  54 call GotoXY(5,5);
  55 write("backgrounds:");
  56 call SetColor(15);
  57 for i:=0 to 15 do
  58 call SetBackground(i);
  59 call GotoXY(5,i+6);  write("background");
  60 od;
  61 call SetColor(0);call SetBackground(15);
  62 writeln("Press Any Key");
  63 j:=inkey;
  64 while j=0 do j:=inkey; od;
  65 call NewPage;
  66 call GotoXY(5,5); writeln("Font Styles");
  67 call Normal; writeln("Normal");
  68 call Bold; writeln("Bold");
  69
  70 end;
  71 end.
  72
  73 call Bold; writeln("Bold");
  74 call Italic; writeln("Italic");
  75 end;
  76 end.
  77 end;
  78 end.
  79 end.
  80 end.
  81 end;
  82 end.
  83 end.\80\80
  84 \0\0