Category : Pascal Source Code
Archive   : TMULTASK.ZIP
Filename : INITTERM.PAS

 
Output of file : INITTERM.PAS contained in archive : TMULTASK.ZIP
{File: INITTERM.PAS ====================================================

This file contains the initialization and termination routines for the
MultiTaskingDemo program.

=======================================================================}

{Procedure: ClearScreen ================================================
Author: E.T.Burleyson Last update: 28 Sept 87

Clears the screen (rows 2 through 24 only) }

Procedure ClearScreen;
{=====================================================================}
var
i : integer; {loop control}

begin {ClearScreen}
for i:= 81 to 1920 do begin
PhysicalScreen1D^.image[i,character]:=ord(SP);
PhysicalScreen1D^.image[i,attribute]:=EntryColor;
end; {for}
end; {ClearScreen}


{Procedure: Initialize ================================================
Author: E.T.Burleyson Last update: 28 Sept 87

Perform all MultiTaskingDemo program initialization. }

Procedure Initialize;
{======================================================================}
var
r: integer; {row}
c: integer; {col}

begin {Initialize}
InitKernel; {init multitasking variables}
InitializeFifo(StatusLineBuffer.ovd); {init 40-char status line buffer}
ClrScr;
EntryColor:=White;
StatusLineColor:=(Blue shl 4) + Yellow;
IDLineColor:=(Blue shl 4) + Yellow;
ErrorColor:=(red shl 4) + Yellow;
for c:= 1 to 80 do begin
PhysicalScreen2D^.Image[1,c,Attribute]:=IDLineColor;
end; {for}
for c:=1 to 80 do begin
for r:= 2 to 24 do begin
PhysicalScreen2D^.Image[r,c,Attribute]:=EntryColor;
end; {for}
end; {for}
for c:=1 to 80 do begin
PhysicalScreen2D^.Image[25,c,Attribute]:=StatusLineColor;
end; {for}
for c:=1 to length(IDTag) do begin
PhysicalScreen2D^.Image[1,c,Character]:=ord(IDTag[c]);
end; {for}
end; {Initialize}


{Procedure: Terminate =================================================
Author: E.T.Burleyson Last update: 28 Sept 87

Performs all MultiTaskingDemo program cleanup and exits the program. }

Procedure Terminate;
{======================================================================}

begin {Terminate}
TextColor(LightGray);
TextBackground(Black);
ClrScr;
writeln('Exit from MultiTasking Demo program');
halt; {exit program}
end; {Terminate}


  3 Responses to “Category : Pascal Source Code
Archive   : TMULTASK.ZIP
Filename : INITTERM.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/