{ This is the main demo program for TinyRTL }

Program TinyRTL_Test;
{$R-,S-,Q-,I-,N-,E-}

procedure ShowText; assembler;
const
   Msg   :PChar =
   'This text is shown using DOS ...'#9'Line #$';
asm
   mov  dx,word ptr Msg
   mov  ah,9
   int  21h
end;

procedure ShowLine(Line                :Byte); assembler;
const
   Msg   :array [0..6] of Char =
   #0#0#13#10'$';
asm
   mov  al,Line
   aam
   xchg al,ah
   add  ax,'00'
   mov  word ptr Msg,ax
   mov  dx,offset Msg
   mov  ah,9
   int  21h
end;

procedure Run;
var
   Line            :Byte;
begin
   for Line:=1 to 20 do
   begin
      ShowText;
      ShowLine(Line);
   end;
end;

begin
   Run;
end.