program horos;
uses crt,graph;
var gd,gm,number:integer;
f:text;
s:string;
label 1,2,3,4,5,6,7,8,9,10,11;

   procedure pent;
 begin
 sound(330);delay(500);
 sound(330);delay(500);
sound(262);delay(500);
sound(467);delay(500);
sound(467);delay(500);
sound(622);delay(500);
sound(523);delay(500);
sound(467);delay(500);
sound(392);delay(500);
sound(349);delay(1000);
sound(622);delay(500);
sound(523);delay(500);
sound(467);delay(500);
sound(349);delay(500);
sound(467);delay(500);
sound(392);delay(500);
sound(392);delay(500);
sound(349);delay(500);
sound(330);delay(500);
sound(262);delay(500);
sound(247);delay(1000);
nosound;
end;

 procedure number1;
begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,440,180);
rectangle(160,250,440,280);
circle(314,405,20);
outtextxy(300,400,'No.1');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;readkey;
end;

procedure number4;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,440,280);
circle(314,405,20);
outtextxy(300,400,'No.4');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;readkey;
end;

procedure number7;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
circle(314,405,20);
outtextxy(300,400,'No.7');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;readkey;
end;

procedure number8;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
circle(314,405,20);
outtextxy(300,400,'No.8');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;readkey;
end;

procedure number2;
  begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,440,280);
line(280,150,320,180);
line(320,150,280,180);
circle(314,405,20);
outtextxy(300,400,'No.2');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;
readkey;
end;

procedure number3;
  begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,440,280);
circle(300,165,14);
circle(314,405,20);
outtextxy(300,400,'No.3');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;
readkey;
end;

procedure number5;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
line(280,250,320,280);
line(320,250,280,280);
circle(314,405,20);
outtextxy(300,400,'No.5');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;readkey;
end;

procedure number6;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
circle(300,265,14);
circle(314,405,20);
outtextxy(300,400,'No.6');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;
readkey;
end;

procedure number9;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
 line(280,250,320,280);
line(320,250,280,280);
line(280,150,320,180);
line(320,150,280,180);
 circle(314,405,20);
 outtextxy(300,400,'No.9');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;
readkey;
end;

procedure number10;
 begin
gd := detect;initgraph(gd, gm, ' ');
setcolor(green);
rectangle(160,150,270,180);
rectangle(330,150,440,180);
rectangle(160,250,270,280);
rectangle(330,250,440,280);
  circle(300,265,14);
  circle(300,165,14);
 circle(317,402,21);
 outtextxy(299,400,'No.10');
setfillstyle(2, red);
floodfill(160, 450, green);
pent;
readkey;
end;

begin
clrscr;

 textmode(co40);
  textcolor(yellow);
  writeln(' *    *    *    ****       *     ****');
  writeln(' *    *   * *   *   *     * *   *    ');
  writeln(' ******  *   *  ****     *   *   ****');
  writeln(' *    *   * *   *   *     * *        *');
  writeln(' *    *    *    *    *     *     **** ');
  gotoxy(17,10);
  writeln('Hello');
  writeln('You can choose one of ten numbers(1-10).');
  writeln('    It is You fate to choose one!');
  writeln('    But, actually, You can choose');
  writeln('          zero (0) for exit.');
  gotoxy(7,20);
  writeln('Created by Homesoft, 1998');
  gotoxy(19,17);
  readln(number);
   textmode(co80);
  clrscr;
  assign(f,'horos.des');
       reset(f);
         while not EOF(f) do
           begin
             readln(f,s);
             writeln('    ',s);
           end;
          pent;
         close(f);
      readkey;
 if number=1 then goto 1;
   if number=2 then goto 2;
       if number=3 then goto 3;
          if number=4 then goto 4;
              if number=5 then goto 5;
                 if number=6 then goto 6;
                    if number=7 then goto 7;
                      if number=8 then goto 8;
                           if number=9 then goto 9;
                             if number=10 then goto 10;
                                 if number=0 then goto 11;
        1:begin
          number1;goto 11;
             end;
        2:begin
          number2;goto 11;
             end;
       3:begin
         number3;goto 11;
             end;
         4:begin
            number4;goto 11;
               end;
     5:begin
        number5;goto 11;
          end;
     6:begin
         number6;goto 11
           end;
       7:begin
          number7;goto 11;
            end;
      8:begin
        number8;goto 11;
          end;
     9:begin
       number9;goto 11;
        end;
    10:begin
      number10;goto 11;
         end;

11: textmode(co40);
clrscr;
textcolor(yellow);
writeln('If You are interesting in You results,');
writeln('    You should look for it in file');
writeln('              "horos.hex".');
gotoxy(14,10);
writeln('SEE YOU LATER!');
readkey;
textmode(co80);
      textmode(lastmode);
 closegraph;
end.

ÿ