3 #include "classes/ansi.inc"
8 call GotoXY(10,2);write("This is ANSI class demonstration");
9 call GotoXY(5,5);write("Colors:");
11 call GotoXY(5,i+6);call SetColor(i);
15 writeln("Press Any Key");
17 while j=0 do j:=inkey; od;
20 write("backgrounds:");
23 call SetBackground(i);
24 call GotoXY(5,i+6); write("background");
26 call SetColor(0);call SetBackground(15);
27 writeln("Press Any Key");
29 while j=0 do j:=inkey; od;
31 call GotoXY(5,5); writeln("Font Styles");
32 call Normal; writeln("Normal");
33 call Bold; writeln("Bold");
37 call Normal; writeln("Normal");
38 call Bold; writeln("Bold");
39 call Italic; writeln("Italic");
46 call GotoXY(5,i+6);call SetColor(i);
50 writeln("Press Any Key");
52 while j=0 do j:=inkey; od;
55 write("backgrounds:");
58 call SetBackground(i);
59 call GotoXY(5,i+6); write("background");
61 call SetColor(0);call SetBackground(15);
62 writeln("Press Any Key");
64 while j=0 do j:=inkey; od;
66 call GotoXY(5,5); writeln("Font Styles");
67 call Normal; writeln("Normal");
68 call Bold; writeln("Bold");
73 call Bold; writeln("Bold");
74 call Italic; writeln("Italic");