: res8
: 1.0
: YellowAfterlife
:          
  UTF-8 (        
 ).
:
res8.load(filename: string) -      .
res8.unload -     ( ).
res8.loaded: integer - ,   .
res8.length: integer -   .
res8.line(index: integer): string -     
 :
program res8;
uses res8;
var
  tmp: resource;
  str: string;
  i, h: integer;
begin
  //  :
  res8.load('/data.txt'); //   
  //    :
  setColor(42, 42, 42);
    fillRect(0, 0, getWidth, getHeight);
  setColor(240, 240, 240);
  h := getStringHeight('');
  for i := 1 to res8.length do
    drawText(res8.line(i), 4, 4 + (i - 1) * h);
  rePaint;
  //   (    ):
  res8.unload;
  // .
  repeat delay(1000); forever;
end.