program lst_mode;
uses dos,crt,printer;
var i,i1,i2,i3,i4,i5,i6,i7,i8,n:integer;
begin
{
  for i:=1 to 32 do
    for n:=0 to 8 do
      writeln(lst,chr(27)+'!',chr(0),'MODE ',i+(n*8),'   ',chr(27),'!',chr(i+(n*8)),'This is Mode ',i+(n*8));
    }
  for i:=2 to 4 do begin
    i1:=i+(8);    i2:=i+(16);
    i3:=i+(24);  i4:=i+(36);
    i5:=i+(42);  i6:=i+(50);
    i7:=i+(56);  i8:=i+(64);

    writeln(lst,chr(27),'!',chr(0),'MODE ',i,'   ',chr(27),'!',chr(i),'This is Mode ',i,' ');
    writeln(lst,chr(27),'!',chr(0),'MODE ',i1,'   ',chr(27),'!',chr(i1),'This is Mode ',i1,' ');
    writeln(lst,chr(27),'!',chr(0),'MODE ',i2,'   ',chr(27),'!',chr(i2),'This is Mode ',i2);

    writeln(lst,chr(27),'!',chr(0),'MODE ',i3,'   ',chr(27),'!',chr(i3),'This is Mode ',i3,'    ');
    writeln(lst,chr(27),'!',chr(0),'MODE ',i4,'   ',chr(27),'!',chr(i4),'This is Mode ',i4);

    writeln(lst,chr(27),'!',chr(0),'MODE ',i5,'   ',chr(27),'!',chr(i5),'This is Mode ',i5,'    ');
    writeln(lst,chr(27),'!',chr(0),'MODE ',i6,'   ',chr(27),'!',chr(i6),'This is Mode ',i6);

    writeln(lst,chr(27),'!',chr(0),'MODE ',i7,'   ',chr(27),'!',chr(i7),'This is Mode ',i7,'    ');
    writeln(lst,chr(27),'!',chr(0),'MODE ',i8,'   ',chr(27),'!',chr(i8),'This is Mode ',i8);
  end;

end.