SET TIME

Untuk mengubah jam DOS. Jika jam DOS anda salah, ubahlah dengan contoh program di bawah ini:

{Nama Program: SetTime.PAS }

Uses Crt, DOS;

Var Jam, Mnt, Dtk, Sec: word;
BEGIN
 (* ************* MENGUBAH JAM DOS ************* *)
Write('masukkan jam baru');
Readln(jam);
write('mauskkan menit baru');
Readln(Mnt);
Write('Masukkan detik baru');
Readln(Dtk);
Sec:=0;
SetTime(Jam,Mnt,Dtk,Sec);
Write('Jam DOS sudah diubah');
Readln;
END.