вопрос по программированию

[imperfect]

Код:

program tralala;
uses Crt;
var cha:char;
    bPrint:boolean;
begin
     bPrint:=True;
     while True do
     begin
          while not keypressed do;
	    asm 
		mov ah,0h
		int 16h
		mov cha,al
	    end;
          if cha=' ' then break;
          if bPrint 
	   then write(ord(cha));
          bPrint:= not bPrint;
     end;
end.

[tech]

следующий вопрос для тех, кто не спит  

Код:

program lab2;
var x,y:integer;
    c:byte;
begin

     asm
        mov ah,0
        mov al,12h
        int 10h
     end;
     for x:=0 to 639 do
        begin
             c:=x mod 16;
             for y:=0 to 479 do
                begin
                     asm
                         mov cx,x
                         mov dx,y
                         mov al,c
                         mov ah,0ch
                         int 10h
                     end;
                end;
          end;
          asm
             mov ah,0h
             int 16h
          end;
end.

программа закрашивает столбцы в графическом режиме. а нужно строки в текстовом. что нужно изменить кроме 12h на 02h и значений в циклах на 79 и 24?

[K i r i L L]

а на си ничего больше не нужно?)

[tech]

можно и на си ту же задачу. только обязательно должны быть прерывания

[02™]

Вопрос в следующем: есть организация, там установлены программы 1C. Но на одном из компов кем-то криворуким 1С была удалена. Итак: нужно установить её заново и чтобы дата установки соответствовала дате установки всех остальных 1С на др. компьютерах, т.е. год-два назад.
Единственное что приходит на ум, это в биосе (винде) выставить нужное время и установить программу, а потом вернуть его на сегодняшнее. Так прокатит? И нет ли в пакете 1С какого-нибудь рода счётчика, который записывает кол-во вкл. или общее время наработки в пакете программ?

И не спрашивайте для чего, - сам не знаю , просто нужно сделать. )

[Geo]

Счетчика в 1С (6-7-8) никакого нет.
Поскольку сама задача смысла не имеет - решение искать незачем...