::: Pascal ::: CHARACTER&CODE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
  uses crt;
  var ch,e,b,d:char;
      a,x,q,w:longint;
  begin
    textbackground(15);
    clrscr;
    textcolor(0);
    window(22,7,66,20);
    textbackground(0);
    clrscr;
    window(21,6,64,19);
    textbackground(1);
    clrscr;
    textcolor(10);
    writeln('  ணࠬ  ???');
    textcolor(14);
    writeln(' 1. -  , । ᨬ');
    writeln(' 2. -  , । ');
    textcolor(10);
    writeln(' (1/2)');
    readln(a);
    if a=1 then
    begin
    window(1,1,80,25);
    clrscr;
    textbackground(15);
    clrscr;
    textcolor(0);
    writeln(' ':27,'    ');
    writeln(' ':27,'             ');
    writeln(' ':27,'            ');
    writeln(' ':27,'             ');
    writeln(' ':27,'    ');
    window(22,7,66,20);
    textbackground(0);
    clrscr;
    window(21,6,64,19);
    textbackground(1);
    clrscr;
    textcolor(14);
    writeln(' ணࠬ  । ᨬ  ');
      repeat
        q:=0;
        q:=q+1;
        textcolor(14);
        textcolor(10);
        write('  ᨬ  ');
        readln(x);
        textcolor(14);
        write('#',x,'   ⮣ -    ');
        textcolor(11);
        writeln(chr(x));
        textcolor(14);
      until q=1000;
  end;
     if a=2 then begin
     window(1,1,80,25);
     textbackground(15);
     clrscr;
     textcolor(0);
     writeln(' ':25,'              ');
     writeln(' ':25,'                ');
     writeln(' ':25,'              ');
     writeln(' ':25,'            ');
     writeln(' ':25,'            ');
     window(22,7,66,20);
     textbackground(0);
     clrscr;
     window(21,6,64,19);
     textbackground(1);
     clrscr;
     textcolor(14);
     writeln(' ':3,'ணࠬa  ।  ᨬ');
     repeat
     w:=0;
     w:=w+1;
      textcolor(10);
      writeln(' ᨬ');
      ch:=readkey;
  &nbsp;&nbsp;&nbsp;&nbsp;if ch<>#0
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;then begin textcolor(14);
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; write(ch,'  ⮣ ᨬ-&nbsp;&nbsp;&nbsp;&nbsp;');
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; textcolor(11);
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; writeln('#',ord(ch));
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else begin
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ch:=readkey;
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; textcolor(10);
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; writeln('  ⮣ ᨬ-&nbsp;&nbsp;&nbsp;&nbsp;#',ord(ch));
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;
  &nbsp;&nbsp;&nbsp;&nbsp;textcolor(14);
  &nbsp;&nbsp;until w=1000;
  end;
  end.
<<<

CHARACTER&CODE
: Drako*
:
: 23.10.2006  14:22
: 1
: 203
: 1 (0|0|0|1|0) [1]
: CHARACTER&CODE

: