{ *******************************************************************

   ****                    Program Visual_Metric_System    (Part 2)        ****

   *******************************************************************

ÃñáììÝíï áðü ôïí ÊñÜðç Äáìéáíü  ôï Ýôïò: 1992 - 1993

¸êäïóç 31/10/1993 ÃÉÁ IBM Combatible PC.

Ôï ðñüãñáììá áõôü Ý÷åé ãñáöôåß óôçí TURBO PASCAL Ver.7

¸÷åé äéáìïñöùèåß Ýôóé þóôå íá ìðïñåß íá ëåéôïõñãåß óå üëåò

ôéò åêäüóåéò ôçò Ôurbo ðïõ åßíáé ìåôáãåíÝóôåñåò ôçò Ver.3.

Äïõëåýåé ìå ëåéôïõñãéêü óýóôçìá MS-DOS 3.x Þ ìåôáãåíÝóôåñï.

  *******************************************************************}

PROCEDURE winentry;

var  i,li,xcount:word;

ix:integer;

st,st1:string[4];

counter:byte;

input:string;

c:word;

begin

SetTextStyle(2,0,6);

box(225,115,445,325,3,5,1,6);

box(255,125,415,153,0,7,7,4);

metalfont(273,120,3,7,5,’Entry Name’);

with rec do

begin

SetTextStyle(0,0,0);

setcolor(14); outtextxy(290,160,’ FIRST NAME’);  box(240,170,430,185,1,7,7,4);

   setcolor(14); outtextxy(290,190,’ LAST NAME’);   box(240,200,430,215,1,7,7,4);

   setcolor(14); outtextxy(290,220,’TESTING DATE’); box(240,230,430,245,1,7,7,4);

   setcolor(14); outtextxy(290,250,’    SPOR  ‘);   box(240,260,430,275,1,7,7,4);

SetTextStyle(0,0,0); button(360,290,432,310,2,2);

setcolor(12); outtextxy(365,297,’  Exit ‘); SetTextStyle(0,0,0);

SETFILLSTYLE(1,7);

ReadString(250,174,14,0,14,SR,STR1,ch); FNAM:=STR1;STR1:=”;

ReadString(250,204,14,0,14,SR,STR1,ch); LNAM:=STR1;STR1:=”;

ReadString(250,234,10,0,14,SR,STR1,ch); DATE:=STR1;STR1:=”;

ReadString(250,264,14,0,14,SR,STR1,ch); SPOR:=STR1;STR1:=“;

clearname;

SetTextStyle(2,0,4); setcolor(14);

outtextxy(75,140,FNAM); outtextxy(75,160,LNAM); outtextxy(75,180,DATE); outtextxy(75,200,SPOR);

end;

repeat

if keypressed then begin                      {keybord commant}

ch:=readkey;

if ch=chr(27) then begin i:=i+1; end;

if ch=chr(39) then begin i:=i-1; end;

if ch=chr(27) then begin exit; end;

end;

mousehand;

if (r.bx and 1 = 1) then begin

if checkbutton(x,y,360,290,432,310) then

begin

pressbutton(360,290,432,310,2,2);

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

delay(100); ch:=’q’;

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

delay(100); ch:=’q’;

end;

end;

until ch=’q’;

END;

PROCEDURE winsample;

var  i,li,xcount:word;

ix:integer;

st,st1:string[4];

counter:byte;

begin

SetTextStyle(2,0,6);

box(225,115,445,325,3,5,1,6);

box(240,160,325,305,3,5,1,3);

box(255,125,415,153,0,7,7,4);

metalfont(263,120,3,7,5,’Samples Value’);

SetTextStyle(2,0,5);

setcolor(14); outtextxy(360,160,’Frequence’); box(360,177,430,195,1,7,7,4);

setcolor(0); outtextxy(360,180,’   35 Hz ‘);

setcolor(14); outtextxy(360,200,’Time test’); box(360,217,430,235,1,7,7,4);

setcolor(0); outtextxy(360,220,’  20 Sec ‘);

setcolor(14); outtextxy(360,240,’ Time cut ‘); box(360,257,430,275,1,7,7,4);

setcolor(0); outtextxy(360,260,’ 700/20ss ‘);

SetTextStyle(0,0,0);

button(360,290,432,310,2,2); setcolor(12); outtextxy(365,297,’ Cansel ‘);

SetTextStyle(2,0,6);

box(329,160,344,305,1,7,7,4);

getmem(BarPL,imagesize(329,174,346,186)); getimage(329,174,346,186,BarPL^);

button(332,177,342,187,0,3);

GetMem(BarP,ImageSize(330,174,344,188)); GetImage(330,174,344,188,BarP^);

button(330,160,345,175,2,2);

button(330,290,345,305,2,2);

setcolor(12); SetTextStyle(0,0,0);

i:=1; li:=0; ix:=176; xcount:=1;

repeat

if li<>i then begin  setfillstyle(9,1); bar(250,170,315,295); end;

li:=i; setcolor(14);

outtextxy(275,180,valsamb[0+i]);

outtextxy(275,190,valsamb[1+i]);

outtextxy(275,200,valsamb[2+i]);

outtextxy(275,210,valsamb[3+i]);

outtextxy(275,220,valsamb[4+i]);

outtextxy(275,230,valsamb[5+i]);

outtextxy(275,240,valsamb[6+i]);

outtextxy(275,250,valsamb[7+i]);

outtextxy(275,260,valsamb[8+i]);

outtextxy(275,270,valsamb[9+i]);

outtextxy(275,280,valsamb[10+i]);

setfillstyle(1,7);bar(10,10,100,20);

if (ix>=175) then begin

if i=xcount-7 then

begin xcount:=i;ix:=ix-1; PutImage(330,ix, BarP^,0); end;

end else ix:=176;

if (ix<=274) then begin if i=xcount+7 then

begin  xcount:=i;ix:=ix+1; PutImage(330,ix, BarP^,0); end;

end  else ix:=273;

if keypressed then begin                      {keybord commant}

ch:=readkey;

if ch=chr(27) then begin i:=i+1; end;

if ch=chr(39) then begin i:=i-1; end;

if ch=chr(27) then begin exit; end;

end;

mousehand;

if (r.bx and 1 = 1) then begin

if checkbutton(x,y,330,195,335,285) then

if (y>180) and (y<300) then

begin

setfillstyle(1,7);

PutImage(329,ix, BarPL^,0);

bar(331,176,344,285);

PutImage(330,(Y-15), BarP^,0);

ix:=(Y-15);

i:=((y-15-180)*7);

end;

if checkbutton(x,y,330,160,345,175) then

begin

pressbutton(330,160,345,175,1,0);

if i>0 then i:=i-1;

end;

if checkbutton(x,y,330,290,345,305) then

begin

pressbutton(330,290,345,305,1,0);

if i<701then i:=i+1;

end;

if checkbutton(x,y,360,290,432,310) then

begin

pressbutton(360,290,432,310,2,2);

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

delay(100); ch:=’q’;

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

delay(100); ch:=’q’;

end;

end;

until ch=’q’;

end;

PROCEDURE Setup;

var  i,li,xcount:word;

ix:integer;

st,st1:string[4];

counter:byte;

begin

SetTextStyle(2,0,6);

box(225,115,445,325,3,5,1,6);

box(240,160,325,190,3,5,1,3);

{ box(255,125,415,153,0,7,7,4);}

metalfont(263,120,3,7,5,’   Setup’);

SetTextStyle(2,0,5);

setcolor(14); outtextxy(360,160,’Frequence’); box(360,177,430,195,1,7,7,4);

setcolor(0); outtextxy(360,180,’   35 Hz ‘);

setcolor(14); outtextxy(360,200,’Time test’); box(360,217,430,235,1,7,7,4);

setcolor(0); outtextxy(360,220,’  20 Sec ‘);

setcolor(14); outtextxy(360,240,’ Time cut ‘); box(360,257,430,275,1,7,7,4);

setcolor(0); outtextxy(360,260,’ 700/20ss ‘);

SetTextStyle(0,0,0);

button(360,290,432,310,2,2); setcolor(12); outtextxy(365,297,’   OK ‘);

SetTextStyle(2,0,6);

{ box(329,160,344,305,1,7,7,4);

getmem(BarPL,imagesize(329,174,346,186)); getimage(329,174,346,186,BarPL^); }

{ button(332,177,342,187,0,3);

GetMem(BarP,ImageSize(330,174,344,188)); GetImage(330,174,344,188,BarP^);  }

button(330,160,345,175,2,2);

button(330,176,345,191,2,2);

setcolor(14); SetTextStyle(0,0,0);

i:=testtime; li:=0; ix:=176; xcount:=1;

Str(i,st); outtextxy(275,170,st);

repeat

if keypressed then begin                      {keybord commant}

ch:=readkey;

if ch=chr(27) then begin i:=i+1; end;

if ch=chr(39) then begin i:=i-1; end;

if ch=chr(27) then begin exit; end;

end;

mousehand;

if (r.bx and 1 = 1) then begin

if checkbutton(x,y,330,160,345,175) then

begin

pressbutton(330,160,345,175,1,0);

if i>0 then i:=i-1;

end;

if checkbutton(x,y,330,176,345,191) then

begin

pressbutton(330,176,345,191,1,0);

if i<60then i:=i+1;

end;

setfillstyle(1,3);bar(248,168,317,182);

setcolor(14); Str(i,st); outtextxy(275,170,st);

if checkbutton(x,y,360,290,432,310) then

begin

pressbutton(360,290,432,310,1,1);

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

delay(100); ch:=’q’;

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

delay(100); ch:=’q’;

end;

delay(80);

end;

testtime:=i;

until ch=’q’;

end;

PROCEDURE winload(ml:byte);

var  i,li,xcount,loadflag:word;

ix:integer;

st,st1:string[4];

counter:byte;

cf:array[0..9] of byte;

c,cy:word;

newname,pressnam:byte;

begin

for c:=1 to 30 do begin fname[c]:=’            ‘; end;

FileDir;

for c:=0 to 30 do begin cf[c]:=15; end;

SetTextStyle(2,0,6);

if ml=1 then box(195,75,465,345,3,5,1,3)

else box(195,75,465,345,3,5,1,3);

box(210,160,325,305,3,5,1,7);

if ml=1 then begin  metalfont(260,85,4,7,5,’Load File’); end

else begin  metalfont(260,85,4,7,5,’Save File’); end;

SetTextStyle(0,0,0);

box(210,135,450,150,1,7,7,4);

button(370,200,435,225,2,2);

setcolor(12); outtextxy(380,210,’Cansel ‘);

button(370,170,435,195,2,2);

if ml=1 then begin setcolor(12); outtextxy(380,180,’ Load ‘); end

else  begin setcolor(12); outtextxy(380,180,’ Save ‘); end;

box(330,160,345,305,1,7,7,4);

   getmem(BarPL,imagesize(329,174,346,186)); getimage(329,174,346,186,BarPL^);

button(332,177,343,187,0,3);

GetMem(BarP,ImageSize(330,174,344,188)); GetImage(330,174,344,188,BarP^);

button(330,160,345,175,2,2);

button(330,290,345,305,2,2);

box(210,315,450,330,1,7,7,4);

setcolor(14); outtextxy(220,319,’C:\VMS\DAT\’);

setcolor(12); SetTextStyle(0,0,0);

i:=0; li:=0; cf[0]:=15; c:=0; cy:=0;ix:=176; xcount:=1; cfile:=0; newname:=0; pressnam:=0;

SetTextStyle(0,0,0); setcolor(14); outtextxy(220,140,fname[cfile]);

for c:=0 to 11 do begin setcolor(cf[c]); outtextxy(225,175+(cy),fname[c]); cy:=cy+10 end;

repeat

if (ix>=175) then begin

if i=xcount-7 then begin xcount:=i;ix:=ix-1; PutImage(330,ix, BarP^,0); end;

end else ix:=176;

if (ix<=274) then begin if i=xcount+7 then

begin  xcount:=i;ix:=ix+1; PutImage(330,ix, BarP^,0); end;

end  else ix:=273;

if keypressed then begin                      {keybord commant}

ch:=readkey;

if ch=chr(27) then begin i:=i+1; end;

if ch=chr(39) then begin i:=i-1; end;

if ch=chr(27) then begin exit; end;

end;

mousehand;

   if (r.bx and 1 = 1) then begin

if checkbutton(x,y,330,195,335,285) then

if (y>180) and (y<300) then

begin

setfillstyle(1,7);

PutImage(329,ix, BarPL^,0);

bar(331,176,344,285);

              PutImage(330,(Y-15), BarP^,0);

ix:=(Y-15);

i:=((y-15-180)*7);

end;

if checkbutton(x,y,330,160,345,175) then

begin pressbutton(332,160,345,175,1,0);

if (i>0) and (Count>10) then begin

i:=i-1; cy:=0; setcolor(7); bar(216,166,319,299);

for c:=i to i+11 do begin setcolor(cf[c]); outtextxy(225,175+(cy),fname[c]); cy:=cy+10 end;

end;

end;

if checkbutton(x,y,330,290,345,305) then

begin  pressbutton(330,290,345,305,1,0);

if (i<701) and (Count>10) then begin

i:=i+1;  cy:=0; setcolor(7); bar(216,166,319,299);

for c:=i to i+11 do begin setcolor(cf[c]); outtextxy(225,175+(cy),fname[c]); cy:=cy+10 end;

end;

end;

if checkbutton(x,y,215,140,300,150) then

begin

cy:=0;

setcolor(7); bar(212,138,448,149);

ReadString(215,138,14,0,14,SR,STR1,ch);

setcolor(7); bar(212,138,448,149);

setcolor(12); outtextxy(220,140,COPY(STR1,1,8)+’.DAT’);

newname:=1;

end;

setcolor(14);

 if checkbutton(x,y,215,175,300,185) then

begin newname:=0;  cfile:=0+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,186,300,195) then

begin newname:=0; cfile:=1+i; bar(212,138,448,149); outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,196,300,205) then

begin newname:=0; cfile:=2+i; bar(212,138,448,149); outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,206,300,215) then

begin newname:=0; cfile:=3+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]);  end;

if checkbutton(x,y,215,216,300,225) then

begin newname:=0;  cfile:=4+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,226,300,235) then

begin  newname:=0; cfile:=5+i;bar(212,138,448,149); outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,236,300,245) then

begin  newname:=0; cfile:=6+i; bar(212,138,448,149); outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,246,300,255) then

begin newname:=0; cfile:=7+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]);  end;

if checkbutton(x,y,215,256,300,265) then

begin  newname:=0; cfile:=8+i; bar(212,138,448,149); outtextxy(220,140,fname[cfile]); end;

if checkbutton(x,y,215,266,300,275) then

begin newname:=0; cfile:=9+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]);  end;

if checkbutton(x,y,215,276,300,285) then

begin newname:=0; cfile:=10+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]);  end;

if checkbutton(x,y,215,286,300,295) then

begin newname:=0; cfile:=11+i; bar(212,138,448,149);outtextxy(220,140,fname[cfile]);  end;

if checkbutton(x,y, 370,200,435,225) then

begin pressbutton(370,200,435,225,2,2); delay(100); ch:=’q’;

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut); freemem(p,imagesize(xw1, yw1, xw2, yw2));

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

end;

if checkbutton(x,y,370,170,435,195) then

begin pressbutton(370,170,435,195,2,2);

loadflag:=0;

if ml=1 then

begin

case newname of

0:begin LOAD(cfile); end;

1:begin

fname[cfile]:=COPY(STR1,1,8)+’.DAT’;STR1:=”;

If Exists(fname[cfile],TRUE) Then begin LOAD(cfile); loadflag:=0;end

else loadflag:=1; end;

end;

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

if loadflag=0 then begin SCRLOAD(0); STAT; Bares3d(3);  end;

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

end

else

begin

if newname=1 then begin fname[cfile]:=COPY(STR1,1,8)+’.DAT’; STR1:=”;end;

SAVE(cfile);

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

end;

delay(100); ch:=’q’;

end;

end;

until ch=’q’;

end;

PROCEDURE wininfo;

var  i,li,xcount:word;

ix:integer;

st,st1:string[4];

counter:byte;

input:string;

c:word;

begin

box(170,60,500,380,3,7,1,7);

box(215,80,453,120,3,2,1,3);

metalfont(247,93,2,7,0,’Informetion’);

setfillstyle(1,12); bar(190,200,480,330);

box(190,200,480,330,2,7,7,4);

   metalfont(190,120,4,7,5,’Visual Metric System’);

   metalfont(185,150,4,7,5,’    Version A     ‘);

   metalfont(210,220,1,7,3,’WRITEN BY KRAPIS DAMIANOS’);

   metalfont(205,250,1,7,3,’  COPYRIGHT 10/05/1996’);

   metalfont(205,280,1,7,3,’ TEL.(031) 944882 GREECE ‘);

   SetTextStyle(0,0,0);

   button(380,343,452,363,2,2);

   setcolor(12); outtextxy(385,350,’  Exit ‘); SetTextStyle(0,0,0);

repeat

if keypressed then begin

ch:=readkey;

if ch=chr(27) then begin i:=i+1; end;

if ch=chr(39) then begin i:=i-1; end;

if ch=chr(27) then begin exit; end;

end;

mousehand;

if (r.bx and 1 = 1) then begin

if checkbutton(x,y,380,343,452,363) then

begin

pressbutton(380,343,452,363,2,2);

freemem(g,imagesize(0,0,b-1,a-1));

PutImage(xw1,yw1, P^, NormalPut);freemem(p,imagesize(xw1, yw1, xw2, yw2));

delay(100); ch:=’q’;

getmem(g,imagesize(0,0,b-1,a-1));getimage(x,y,x+b-1,y+a-1,g^);

delay(100); ch:=’q’;

end;

END;

until ch=’q’;

end;

PROCEDURE PRINT;

Var i:Byte; st:string[3];

tanstr:array[1..10] of string[10];

epo,ono,hme,spo:string[15];

Begin

{ CLEAR25; titl:=(‘ €¤ œå¤˜  ¦ œ¡«¬§à«ãª ©¦¬ ON LINE §á«˜ ENTER ˜¤ æ®  ESC. ‘);

Gotoxy(10,25);write(CENTER(titl,60));

Repeat

ch:=readkey;

if ord(ch)=27 then

BEGIN

CLEAR25;

MHNTEST;

CH:=’0’;

exit;

END;

Until ord(ch)=13;

STAT;   }

WITH REC DO

BEGIN

PRINTMODE:=1;

epo:=FNAM+copy(‘              ‘,1,15-length(FNAM));

ono:=LNAM+copy(‘              ‘,1,15-length(LNAM));

hme:=DATE+copy(‘              ‘,1,15-length(DATE));

spo:=SPOR+copy(‘              ‘,1,15-length(SPOR));

END;

Writeln(lst,’ ‘);

writeln(lst, ╔══════════════════════════════════════════════════════════════╗);

writeln(lst,’ ║                          VISUL METRIC SYSTEM                        ║’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’ º                                                                     º’);

writeln(lst,’ º    LAST NAME:’,epo,’              DATE..:’,hme,’    º’);

writeln(lst,’ º                                                                     º’);

writeln(lst,’ º    NAME.....:’,ono,’              SPORT.:’,spo,’    º’);

writeln(lst,’ º                                                                     º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’ ‚);

writeln(lst,’ ‘);

Bares3d(1);for i:=1 to 2 do begin  str(tanbar[i],st);tanstr[i]:=copy(‘   ‘,1,4-length(st))+st; end;

writeln(lst,’                             SAMPLE COUNTER  ‘);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’       º                            ‘,dimcount,’                            º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’       º             ‘,tanstr[1],’            ³             ‘,tanstr[2],’            º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

                    Bares3d(4);for i:=1 to 5 do begin  str(tanbar[i],st);tanstr[i]:=copy(‘   ‘,1,4-length(st))+st; end;

writeln(lst,’       º         ‘,tanstr[1],’          ³   ‘,tanstr[3],’    ³         ‘ ,tanstr[5],’          º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

Bares3d(2);for i:=1 to 5 do begin  str(tanbar[i],st);tanstr[i]:=copy(‘   ‘,1,4-length(st))+st; end;

writeln(lst,’       º   ‘,tanstr[1],’    ³   ‘,tanstr[2],’    ³   ‘,tanstr[3],’    ³   ‘

                       ,tanstr[4],’    ³   ‘,tanstr[5],’    º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

Bares3d(3);for i:=1 to 10 do begin  str(tanbar[i],st);tanstr[i]:=copy(‘   ‘,1,4-length(st))+st; end;

writeln(lst,’       º’,tanstr[1],’ ³’,tanstr[2],’ ³’,tanstr[3],’ ³’,tanstr[4],’ ³’,tanstr[5],’ ³’

                    ,tanstr[6],’ ³’,tanstr[7],’ ³’,tanstr[8],’ ³’,tanstr[9],’ ³’,tanstr[10],’ º’);

writeln(lst, ╔══════════════════════════════════════════════════════════════╗);

writeln(lst,’       -25º       +15º        -5º    0º   +5º        +15º       +25º’);

writeln(lst,’ ‚);

writeln(lst,’ ‚);

{for i:=0 to 49 do sumtime:=sumtime+tanval[i]*sample; }   {synolikos xronos mertisis}

for i:=1 to 2 do tanstr[i]:=’      ‘;

Bares3d(1);for i:=1 to 10 do begin RealPrint(6,(tanbar[i]*sample)/100);tanstr[i]:=str1;{insert(st,tanstr[i],6);}end;

writeln(lst,’                                  TIMER  ‘);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’ ║                                20 sec                               ║’);

writeln(lst,’ ╠══════════════════════════════╤═══════════════════════════════╣’);

writeln(lst,’ ║                ‚,tanstr[1],’             │              ‚,tanstr[2],’              ║’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

for i:=1 to 5 do tanstr[i]:=’      ‘;

Bares3d(4);for i:=1 to 10 do begin RealPrint(6,((tanbar[i]*sample)/100));tanstr[i]:=str1;{insert(st,tanstr[i],6);}end;

writeln(lst,’ º           ‘,tanstr[1],’          ³   ‘,tanstr[3],’    ³           ‘,tanstr[5],’          º’);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

for i:=1 to 5 do tanstr[i]:=’      ‘;

Bares3d(2);for i:=1 to 10 do begin RealPrint(6,((tanbar[i]*sample)/100));tanstr[i]:=str1;{insert(st,tanstr[i],6);}end;

writeln(lst,’ º   ‘,tanstr[1],’    ³   ‘,tanstr[2],’    ³   ‘,tanstr[3],’    ³   ‘

                   ,tanstr[4],’    ³   ‘,tanstr[5],’    º’);

writeln(lst, ╠══════════════════════════════════════════════════════════════╣’);

for i:=1 to 10 do tanstr[i]:=’      ‘;

Bares3d(3);for i:=1 to 10 do begin RealPrint(6,(tanbar[i]*sample)/100);tanstr[i]:=str1; {insert(st,tanstr[i],6);}end;

writeln(lst,’ º’,tanstr[1],’³’,tanstr[2],’³’,tanstr[3],’³’,tanstr[4],’³’,tanstr[5],’³’

,tanstr[6],’³’,tanstr[7],’³’,tanstr[8],’³’,tanstr[9],’³’,tanstr[10],’º ‘);

writeln(lst,’ ╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’ -25º         +15º          -5º     0º    +5º          +15º         +25º’);

writeln(lst,’ ‚);

Writeln(lst,’ ‚);

Writeln(lst,’                                 MEMO  ‚);

Writeln(lst,’╠══════════════════════════════════════════════════════════════╣’);

writeln(lst,’ ║                                                                     ║’);

writeln(lst,’ ╟──────────────────────────────────────────────────────────────╢’);

writeln(lst,’ ║                                                                     ║’);

writeln(lst,’ ╟──────────────────────────────────────────────────────────────╢’);

writeln(lst,’ ║                                                                     ║’);

writeln(lst,’ ╟──────────────────────────────────────────────────────────────╢’);

writeln(lst,’ ║                                                                     ║’);

writeln(lst,’ ╚══════════════════════════════════════════════════════════════╝’);

writeln(lst,’ ‚);

writeln(lst,’ ‘);

CH:=’0’;

PRINTMODE:=0;

End;

Begin      {**************************** Main program *********************************}

VGAscan;

loadcolorset;

cur:=1;  cursorset(cur);

Chartflag:=0;

Printmode:=0;

clearviewport;

r.ax:=0;  r.bx:=0;  intr($33,r);

if r.ax = 0 then begin outtextxy(1,1,’No mouse’); mouse:=false; end else mouse:=true;

if mouse then

begin

setbkcolor(7);

bcolor:=7;    {screen color}

step:=1;      {mouse step}

testtime:=30;

lineflag:=0;

box(10,10,625,470,0,7,7,4);          { box: x,y,x1,y1,formwin,line color,fill,fill color}

box(190,25,610,205,3,5,9,4);{ 3,5,9,4}

box(25,25,180,420,3,5,6,7);

{ setcolor(6); i:=56; repeat line(216,i,585,i); i:=i+20; until i>186;

{setcolor(12); line(216,56,216,176); line(585,56,585,176);}

{setcolor(12);line(216,116,585,116);}

box(190,230,355,420,3,5,9,4);

box(445,230,610,420,3,5,9,4);

setfillstyle(1,7);bar(45,40,160,100);

box(45,40,160,100,3,5,1,6);  setcolor(14); outtextxy(60,110,’TEST TIMER’);

metalfont(240,210,2,7,0,’Visual Metric System’);

SetTextStyle(2,0,4);

setfillstyle(1,7);bar(35,130,170,220); box(35,130,170,220,0,7,7,4);

box(70,138,160,152,1,7,7,4);  setcolor(0); outtextxy(39,140,’FIRST’);

box(70,138+20,160,152+20,1,7,7,4);  setcolor(0); outtextxy(40,140+20,’LAST’);

box(70,138+40,160,152+40,1,7,7,4);  setcolor(0); outtextxy(40,140+40,’DATE’);

box(70,138+60,160,152+60,1,7,7,4);  setcolor(0); outtextxy(40,140+60,’SPOR’);

setfillstyle(1,7);bar(100,230,160,270);SetTextStyle(2,0,4);

box(100,230,160,270,2,5,1,6);  setcolor(14); outtextxy(40,250,’TAG’);

bar(100,280,160,300);box(100,280,160,300,0,7,7,4);setcolor(14);outtextxy(37,285,’Sampling’);

bar(100,280+30,160,300+30);box(100,280+30,160,300+30,0,7,7,4);setcolor(14);outtextxy(37,285+30,’SampleTime’);

bar(100,280+60,160,300+60);box(100,280+60,160,300+60,0,7,7,4);setcolor(14);outtextxy(37,285+60,’Average’);

bar(100,280+90,160,300+90);box(100,280+90,160,300+90,0,7,7,4);setcolor(14);outtextxy(37,285+90,’Deviation’);

SetTextStyle(0,0,0);

button(30,440, 85,460,2,2);  setcolor(14); outtextxy( 30,447,’ Setup’); button(90,440, 150,460,2,2); setcolor(14); outtextxy( 97,447,’ Info’); button(155,440,215,460,2,2); setcolor(14); outtextxy(162,447,’ Name’); button(220,440,280,460,2,2); setcolor(14); outtextxy(227,447,’ Load’); button(285,440,345,460,2,2); setcolor(14); outtextxy(292,447,’ Save’); button(350,440,410,460,2,2); setcolor(14); outtextxy(357,447,’ Test’); button(415,440,475,460,2,2); setcolor(14); outtextxy(413,447,’ Sample’); button(480,440,540,460,2,2); setcolor(14); outtextxy(483,447,’ Print’); button(545,440,605,460,2,2); setcolor(14); outtextxy(552,447,’ Exit’);

SetTextStyle(2,0,4); button(370,240,430,260,2,2); setcolor(0); outtextxy(375,244,’ChartLine’); button(370,280,390,300,2,2); setcolor(0); outtextxy(360,310,’ Ev.25º’); button(370,330,390,350,2,2); setcolor(0); outtextxy(360,360,’ Ev.10º’); button(370,380,390,400,2,2); setcolor(0); outtextxy(360,410,’ Ev. 5º’); button(410,280,430,300,2,2); setcolor(0); outtextxy(408,310,’..10º..’); button(410,330,430,350,2,2); setcolor(0); outtextxy(408,360,’ TIME’);

button(410,380,430,400,2,2); setcolor(0); outtextxy(408,410,’  MAP’);

  r.ax:=7; r.cx:=0; r.dx:=getmaxx * step - 15; intr($33,r);

r.ax:=8; r.cx:=0; r.dx:=getmaxy * step - 15; intr($33,r);

r.ax:=4; r.cx:=300; r.dx:=200; intr($33,r);

if (graphdriver<>7) and (cur=0) then begin r.ax:=1; intr($33,r); end; if cur>0 then begin getmem(g,imagesize(0,0,b-1,a-1));

getimage(x,y,x+b-1,y+a-1,g^); end;

Repeat                                        {keybord commant}

if keypressed then begin  c:=readkey;

if c=chr(27) then begin exitproc; end;

end;

mousehand;

if (r.bx and 1 = 1) then begin

      if checkbutton(x,y,30,440, 85,460) then             {Sample}

         begin pressbutton(30,440, 85,460,2,2); windows(330,340,220,220,1); setup; end;

      if checkbutton(x,y,90,440, 150,460) then              {Help}

begin pressbutton(90,440, 150,460,2,2); windows(330,340,220,220,3); wininfo; end;

if checkbutton(x,y,155,440,215,460) then              {Name}

begin pressbutton(155,440,215,460,2,2); windows(330,340,220,220,1); winentry; end;

if checkbutton(x,y,220,440,280,460) then              {Load}

begin pressbutton(220,440,280,460,2,2); windows(330,330,205,215,2);winload(1);end;

if checkbutton(x,y,285,440,345,460) then              {Save}

begin pressbutton(285,440,345,460,2,2); windows(330,330,205,215,2); winload(2);end;

if checkbutton(x,y,350,440,410,460) then               {Test}

begin pressbutton(350,440,410,460,2,2); test; end;

if checkbutton(x,y,415,440,475,460) then             {Sample}

begin pressbutton(415,440,475,460,2,2); windows(330,340,220,220,1); winsample; end;

 if checkbutton(x,y,480,440,540,460) then               {Setup}

         begin pressbutton(480,440,540,460,2,2); {windows(330,340,220,220,3);}   print; end;

 if (checkbutton(x,y,545,440,605,460)) and (ch<>’q’) then        {exit}

begin pressbutton(545,440,605,460,2,2); exitproc; end;

if checkbutton(x,y,370,240,430,260) then

begin pressbutton(370,240,430,260,2,2); chart;  end;     {BarsButtoms}

if checkbutton(x,y,370,280,390,300) then

begin pressbutton(370,280,390,300,2,2); Bares3d(1); end;

if checkbutton(x,y,370,330,390,350) then

begin pressbutton(370,330,390,350,2,2); Bares3d(2); end;

if checkbutton(x,y,370,380,390,400) then

begin pressbutton(370,380,390,400,2,2); Bares3d(3); end;

if checkbutton(x,y,410,280,430,300) then

begin pressbutton(410,280,430,300,2,2); Bares3d(4); end;

if checkbutton(x,y,410,330,430,350) then

begin pressbutton(410,330,430,350,2,2);

case lineflag of

0:begin GraphLine; lineflag:=1; end;

1: begin GraphLineSat;lineflag:=0; end;

end;

end;

if checkbutton(x,y,410,380,430,400) then

begin pressbutton(410,380,430,400,2,2); Bares3d(7); end;

ch:=’ ‘;

end;

until false;

end;

closegraph;

end.