misc/ECSLAX.PAS

{
 ecSlax iDE - (c) skaboy101 1998! [((started on 02/04/98))]
}
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Program ecslaxIDE;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
uses crt,dos,skashit,control,subs1,subs2,compx,dosmem,gensubs,video;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
{$I .\ART\IDEMAIN.PAS}
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Const
 eVersion  = '1.0a10pr';
 eRelease  = '??/??/??';
 eMaxLines = 500;
 eMenuBar : array[1..6] of string =
 (' |07F|15ile ',' |07E|15dit ',' |07S|15earch ',' |07C|15ompile ',
  ' |07O|07ptions ',' |07H|15elp ');
 eMenuPos : array[1..2,1..6] of byte =
 ((1,1,1,1,1,1),(1,1,1,1,1,1));
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Type
 eDataRec = record
            dLineData     : array[1..eMaxLines] of string[78];
            dCurrentLine  : 1..eMaxLines;
            dTotalLines   : 1..eMaxLines;
            dTotalChanges : longInt;
            dSaved        : boolean;
            end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Var
  eData : ^eDataRec;
  eDone : boolean;
  eKey  : char;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eDrawScreens(scrn : byte); forward;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eInitMem;
begin
Dos_GetMem(eData,SizeOf(eData^) + 1);
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eInitProc;
begin
eInitMem;
eDrawScreens(1);
eDrawScreens(2);
eDrawScreens(3);
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eTerminateProc;
begin
Dos_Freemem(eData);
clrscr;
skawrite('|08■ |07ecslax iDE (c) Grant Passmore / idt 1998 - Thank you for testing!|CR');
cursor_(true);
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eDrawScreens(scrn : byte);
begin
if (scrn=1) then
 begin
  skawrite('|CR|CR|08■ |07ecslax version (|08'+eVersion+'|07) loading ... |01starting|CR');
  skawrite('  |07skaboy101 1998|CR');
  skawrite('|08■ |07allocating required memory ... |01done|CR');
  skawrite('  |07'+strr(eMaxLines)+' allocated|CR');
  skawrite('|08■ |07launching ecslax! ... |01done');
 end else
if (scrn=2) then
 begin
 clrscr;
 move(ideMain,mem[$b800:0000],sizeof(ideMain));
 end else
if (scrn=3) then
 begin
 cursor_(false);
 Box(15,7,65,15,8,0);
 window(16,8,66,14);
 skawrite('    |08 |07Infusion Programming Language - '+cVersion+'|CR');
 skawrite('|CR|07 Ecslax IDE (Integrated Development Environment)|CR');
 skawrite('               |07version '+eVersion+'|CR|CR');
 skawrite('     |07(c)Copyright Grant Passmore / idt 1998 |CR');
 readkey;
 window(1,1,80,25);
 eDrawScreens(2);
 cursor_(true);
 end;
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
Procedure eEditor;
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
begin

{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
repeat


until (eDone=true);
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
eInitProc;
eTerminateProc;
end.