home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.update.uu.se
/
ftp.update.uu.se.2014.03.zip
/
ftp.update.uu.se
/
pub
/
rainbow
/
msdos
/
misc
/
messages.lzh
/
MESSADD.INC
< prev
next >
Wrap
Text File
|
1984-08-31
|
6KB
|
108 lines
{ Be sure to Include the file FASTVID.INC before this }
Procedure MESSADD;
Var
LineOut : String[80];
begin
ClrScr;
NormVideo;
LineOut := ' ';
FastVideo(LineOut,FBold,Char_Attrib,40,1,1);
LineOut := ' ';
FastVideo(LineOut,FBold,Char_Attrib,39,1,41);
LineOut := ' ADD MES';
FastVideo(LineOut,FBold,Char_Attrib,40,2,1);
LineOut := 'SAGES ';
FastVideo(LineOut,FBold,Char_Attrib,39,2,41);
LineOut := ' -------';
FastVideo(LineOut,FBold,Char_Attrib,40,3,1);
LineOut := '----- ';
FastVideo(LineOut,FBold,Char_Attrib,39,3,41);
LineOut := ' ';
FastVideo(LineOut,FBold,Char_Attrib,40,4,1);
LineOut := ' ';
FastVideo(LineOut,FBold,Char_Attrib,39,4,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,5,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,5,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,6,1);
LineOut := ' DATE/TIME < > ';
FastVideo(LineOut,FNormal,Char_Attrib,39,6,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,7,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,7,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,8,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,8,41);
LineOut := ' +---------------------------- T ';
FastVideo(LineOut,FNormal,Char_Attrib,40,9,1);
LineOut := 'O -------------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,9,41);
LineOut := ' | FIRST < > ';
FastVideo(LineOut,FNormal,Char_Attrib,40,10,1);
LineOut := 'LAST < > | ';
FastVideo(LineOut,FNormal,Char_Attrib,39,10,41);
LineOut := ' +-------------------------------';
FastVideo(LineOut,FNormal,Char_Attrib,40,11,1);
LineOut := '---------------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,11,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,12,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,12,41);
LineOut := ' +-------------------------- F R ';
FastVideo(LineOut,FNormal,Char_Attrib,40,13,1);
LineOut := 'O M -----------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,13,41);
LineOut := ' | NAME < > ';
FastVideo(LineOut,FNormal,Char_Attrib,40,14,1);
LineOut := ' PHONE < > | ';
FastVideo(LineOut,FNormal,Char_Attrib,39,14,41);
LineOut := ' +-------------------------------';
FastVideo(LineOut,FNormal,Char_Attrib,40,15,1);
LineOut := '---------------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,15,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,16,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,16,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,17,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,17,41);
LineOut := ' +--------------------------- M E S S ';
FastVideo(LineOut,FNormal,Char_Attrib,40,18,1);
LineOut := 'A G E ------------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,18,41);
LineOut := ' | < ';
FastVideo(LineOut,FNormal,Char_Attrib,40,19,1);
LineOut := ' > | ';
FastVideo(LineOut,FNormal,Char_Attrib,39,19,41);
LineOut := ' | < ';
FastVideo(LineOut,FNormal,Char_Attrib,40,20,1);
LineOut := ' > | ';
FastVideo(LineOut,FNormal,Char_Attrib,39,20,41);
LineOut := ' +------------------------------------';
FastVideo(LineOut,FNormal,Char_Attrib,40,21,1);
LineOut := '------------------------------------+ ';
FastVideo(LineOut,FNormal,Char_Attrib,39,21,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,22,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,22,41);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,40,23,1);
LineOut := ' ';
FastVideo(LineOut,FNormal,Char_Attrib,39,23,41);
gotoXY(57, 6); read(NewMessage.DateTime);
gotoXY(18,10); read(NewMessage.FName);
gotoXY(48,10); read(NewMessage.LName);
gotoXY(17,14); read(NewMessage.From);
gotoXY(54,14); read(NewMessage.Phone);
gotoXY( 7,19); read(NewMessage.Message1);
gotoXY( 7,20); read(NewMessage.Message2);
end;