Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
{ MAKEINS.PAS                               Copyright (c) Ivan Rebo }
{ https://github.com/IRebo/utek/tree/master/old-199x-version        }
{                                                                   }
{ Author: Ivan Rebo                                                 }
{ Datum: 20.01.1995                           http://www.trsek.com  }
 
program make_instal;
uses crt,dos;
 
var	sector:array [1..1024] of byte;
    par:string;
    b:byte;
    a:integer;
begin
 writeln('Maker for Utek Install Disks.           Hoe 1995');
 par:=paramstr(1);
 if (par='')or((upcase(par[1])<>'A')
 and(upcase(par[1])<>'B')) then begin
  writeln('Parametre : A,B');
  halt(1);
 end;
 b:=ord(upcase(par[1]))-ord('A');
 asm
  mov al,b
  mov dx,0
  mov cx,1
  lea bx,sector
  int 25h
  pop dx
  jc @chyba
  mov b,0
  jmp @end
  @chyba:
  mov b,1
  @end:
 end;
 if b=1 then
 begin
  textcolor(7);textbackground(0);clrscr;textcolor(lightred);
  writeln('Instalacia predcasne ukoncena !!!');
  sound(2000);delay(100);nosound;textcolor(7);halt(1);
 end;
 sector[10]:=ord(',');
 sector[11]:=ord('O');
 b:=ord(upcase(par[1]))-ord('A');
 asm
  mov al,b
  mov dx,0
  mov cx,1
  lea bx,sector
  int 26h
  pop dx
  jc @chyba
  mov b,0
  jmp @end
  @chyba:
  mov b,1
  @end:
 end;
 if b=1 then
 begin
  textcolor(7);textbackground(0);clrscr;textcolor(lightred);
  writeln('Instalacia predcasne ukoncena !!!');
  sound(2000);delay(100);nosound;textcolor(7);halt(1);
 end;
 writeln('O.K. Disk marked as install.');
end.