《FDISK硬盘分区软件模拟软件》
。
FDISKS设计
FDISKS不对硬盘发生实际影响，只是对虚拟的硬盘数据进行改变。本软件是作为“上海市计算机应用能力中级”上机考试使用软件之一，自2000年开发成功至今，已被上海电视大学，等单位大量免费使用。
由于实际的Fdisk硬盘分区软件操作不当有使盘上数据丢失危险，不能随便拿来供不熟悉该软件操作的学生当作练习进行试验，为此我除了开发一个供考试用的模拟软件之外，还另外开发了一个供考练习用的模拟软件。它预先假设硬盘有多少大（当时我假设为400M），要求学生按要求分成几个区，完毕后能指示结果是否正确。以下为其全部源程序(但不包含CCMSGIO一个被调用的中文输入输出单元，当时BP的CRT单元有200号错误，我在本软件中编程实现了CRT单元的全部功能)：
type
tpage=array [1..25] of string[80];
const
{ title1=
' Partition Status Type Volume Label Mbytes System Usage';
examp1=
' C: `1` A PRI DOS 1020 FAT16 16%';
}
title2=
' Drv Volume Label Mbytes System Usage';
examp2=
' D: SOFTWARE 2047 FAT16 38%';
var
disks:integer; {numbers of disk}
disk:integer; {current disk #}
tsiz, {total size of disk[i]}
psiz,
esiz,
remainder,
drive: {total drives in disk[i]}
array [1..2] of integer;
dsiz: {size of drive in disk[i]}
array[1..2,0..10] of integer;
act:integer;
active:char;
FAT32, {true when disk[i] > 512M}
PRICreated, {true when PRI Partition exist}
EXTCreated: {true when EXT partition exist}
boolean;
sizstr:string;
const
{----------}
page:array[1..14] of string[80]=
('Your computer has a disk larger than 512 MB. This version of Windows',
'includes improved support for large disks, resulting in more efficient',
'use of disk space on large drives, and allowing disks over 2 GB to be',
'formatted as a single drive.',
'',
'INPORTANT: If you enable large disk support and create any new drives on this',
'disk, you will not be able to access the new drive(s) using other operating',
'systems, including some versions of Windows 95 and Windows NT, as well as',
'earlier versions of Windows and MS-DOS. In addition, disk utilities that',
'were not designed explicitly for the FAT32 file system will not be able',
'to work with this disk. If you need to access this disk with other operating',
'systems or older disk utilities, do not enable large drive support.',
'',
'Do you wish to enable large disk support (Y/N)...........? `[Y]`');
{-------------}
page0:tpage=
(' Microsoft Windows 95',
' Fixed Disk Setup Program',
' (C)Copyright Microsoft Corp. 1983 - 1997',
'',
' `FDISK Options`',
'',
'Current fixed disk drive: `1`',
'',
'Choose one of the following:',
'',
'`1.` Create DOS partition or Logical DOS Drive',
'`2.` Set active partition',
'`3.` Delete partition or Logical DOS Drive',
'`4.` Display partition information',
'`5.` Change current fixed disk drive',
'',
'',
'Enter choice: `[1]`',
'',
'',
'',
'',
'',
'',
'Press `Esc` to exit FDISK');
{-------------}
page1:tpage=
(
'','','','',
' `Create DOS Partition or Logical DOS Drive`',
'',
'Current fixed disk drive: `1`',
'',
'Choose one of the following:' ,
'',
'`1.` Create Primary DOS Partition',
'`2.` Create Extended DOS Partition',
'`3.` Create Logical DOS Drive(s) in the Extended DOS Partition',
'','','','',
'Enter choice: `[1]`',
'','','','','','',
'Press `Esc` to return to FDISK Options'
);
{-------------}
page11:tpage=
(
'','','','',
' `Create Preimary DOS Partition`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','',
'','','','','','','','','','','',
'`Primary DOS Partition already exists.`',
'',
'Press `Esc` to continue'
);
page12:tpage=
(
'','','','',
' `Create Extended DOS Partition`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','','','','','','','','','','','','',
'`Extended DOS Partition already exists.`',
'',
'Press `Esc` to continue'
);
page13:tpage=
('',
' `Create Logical DOS Drive(s) in the Extended DOS Partition`',
'',
'Drv Volume Label Mbytes System Usage',
'','','','','','','','',
'','','','','',
'','','','','',
'`All available space in the Extended DOS Partition`',
'`is assigned to logical drives.`',
'Press `Esc` to continue');
page2:tpage=
(
'','','','',
' `Set Active Partition`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','','','','','','','','','','','',
'`The only startable partition on Drive 1 is already set active.`',
'','',
'Press `Esc` to continue'
);
page3:tpage=
(
'','','','',
' `Delete DOS Partition or Logical DOS Drive`',
'',
'Current fixed disk drive: `1`',
'',
'Choose one of the following:' ,
'',
'`1.` Delete Primary DOS Partition',
'`2.` Delete Extended DOS Partition',
'`3.` Delete Logical DOS Drive(s) in the Extended DOS Partition',
'`4.` Delete Non-DOS Partition',
'','','',
'Enter choice: `[ ]`',
'','','','','','',
'Press `Esc` to return to FDISK Options'
);
page31:tpage=
(
'','','','',
' `Delete Primary DOS Partition`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','','','','',
'Total disk space is `6479` Mbytes (1 Mbyte = 1048576 bytes)',
'','','','','','','',
'`Cannot delete Primary DOS partition on drive 1`',
'`when an Extended DOS Partition exists.`',
'Press `Esc` to continue'
);
page32:tpage=
(
'','','','',
' `Delete Extended DOS Partition`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','','','','',
'Total disk space is `6479` Mbytes (1 Mbyte = 1048576 bytes)',
'','','','','','','',
'`Cannot delete Extended DOS partition while logical drives exist.`',
'',
'Press `Esc` to continue'
);
page33:tpage=
('',
' `Delete Logical DOS Drive(s) in the Extended DOS Partition`',
'',
'Drv Volume Label Mbytes System Usage',
'','','','','','','','',
'','','','','',
'Total Extended DOS Partition size is `5452` Mbytes (1 Mbyte = 1048576 bytes)',
'',
'`WARNING!` Data in a deleted Logical DOS Drive will be lost.',
'What drive do you want to delete............................?`[ ]`',
'','','',
'Press `Esc` to return to FDISK Options');
page4:tpage=
('','','','',
' `Display Partition Information`',
'',
'Current fixed disk drive: `1`',
'',
'Partition Status Type Volume Label Mbytes System Usage',
'','','','','',
'Total disk space is `6479` Mbytes (1 Mbyte = 1048576 bytes)',
'','',
'The Extended DOS Partition contains Logical DOS Drives.',
'Do you want to display the logical drive information (Y/N)......?`[Y]`',
'','','','','',
'Press `Esc` to return to FDISK Options');
page41:tpage=
('',
' `Display Logical DOS Drive Information`',
'',
'Drv Volume Label Mbytes System Usage',
'','','','','','','','',
'','','','','',
'Total Extended DOS Partition size is `5452` Mbytes (1 Mbyte = 1048576 bytes)',
'','','',
'','','',
'Press `Esc` to continue');
{CRTU -----------------------------------------------------------}
var i,j,c:integer; ch,cmd:char;
var cb,cf,xo,yo,curx,cury:byte;
xm,ym:byte;
var bbb:byte;
function ra(R:real;w1,w2:integer):string;
var s:string;
begin
str(r:w1:w2,s);
ra:=s;
end;
function wherex:byte;
begin
wherex:=curx
end;
function wherey:byte;
begin
wherey:=cury
end;
procedure setcusr(x,y:integer);
var r:registers;
tt:word;
pg:byte;
begin
pg:=0;
r.ah:=2;
r.bh:=pg;
r.dl:=x;
r.dh:=y;
intr($10,r);
end;
procedure clrscr;
var x,y:integer;
begin
for y:=yo to ym do
for x:=xo to xm do
begin
mem[$b800:(y-1)*160+2*(x-1)]:=32;
mem[$b800:(y-1)*160+2*(x-1)+1]:=cb shl 4+cf;
end
end;
procedure tdelline(y:integer);
function readkey:char;
var aaa:byte;
begin
asm
mov ah,0
int 16h
mov aaa,al
mov bbb,ah
end;
readkey:=chr(aaa);
end;
var x:integer;
begin
for x:=xo to xm do
begin
mem[$b800:(y-1)*160+2*(x-1)]:=32;
mem[$b800:(y-1)*160+2*(x-1)+1]:=1 shl 4+cf;
end;
readkey;
end;
procedure delline(y:integer);
var x:integer;
begin
for x:=xo to xm do
begin
mem[$b800:(y-1)*160+2*(x-1)]:=32;
mem[$b800:(y-1)*160+2*(x-1)+1]:=cb shl 4+cf;
end
end;
procedure gotoxy(x,y:byte);
begin
curx:=x; cury:=y;
setcusr(x-1,y-1);
end;
procedure window(x1,y1,x2,y2:byte);
begin
xo:=x1; yo:=y1; xm:=x2; ym:=y2;
end;
procedure ggotoxy(x,y:byte);
begin
asm
mov ah,02h
mov dh,x
mov dl,y
int 10h
end;
end;
procedure hidecursor;
begin
asm
mov bh,0
mov dh,25
mov dl,0
mov ah,2
int 10h
end
end;
procedure showcursor;
begin
asm
mov bh,0
mov dh,0
mov dl,0
mov ah,2
int 10h
end
end;
procedure textcolor(c:byte);
begin
cf:=c;
mem[$0000:$0466]:=c
end;
procedure textbackground(c:byte);
begin
cb:=c
end;
function Csec:word;
var hh,mm,ss,dd:word;
begin
gettime(hh,mm,ss,dd);
Csec:=(((hh*60)+mm)*60+ss)*100+dd;
end;
procedure delay(ms:word);
var t1,t2:word;
begin
t1:=Csec;
repeat
t2:=Csec;
until t2-t1>=ms div 10;
end;
function kkeypressed:boolean;
var aaa,bbb:byte;
begin
asm
lahf
mov aaa,ah
end;
if aaa and 64=0 then kkeypressed:=true
else kkeypressed:=false
end;
function rreadkey:char;
var aaa:byte;
begin
asm
mov ah,0
int 16h
mov aaa,al
mov bbb,ah
end;
rreadkey:=chr(aaa);
end;
function rreadkey2:char;
begin
rreadkey2:=chr(bbb);
end;
function keypressed:boolean;
var eee,bbb:byte;
begin
keypressed:=true;
bbb:=mem[$0040:$001a];
eee:=mem[$0040:$001c];
if (bbb=eee) then
keypressed:=false;
end;
function readkey2:char;
begin
readkey2:=chr(bbb);
end;
function readkey:char;
var aaa:byte;
begin
asm
mov ah,0
int 16h
mov aaa,al
mov bbb,ah
end;
readkey:=chr(aaa);
end;
procedure sound(hz:word);
begin
end;
procedure nosound;
begin
end;
procedure _write(s:string);
var i:integer;
begin
if yo+cury>ym+1 then exit;
for i:=1 to length(s) do
begin
if xo+curx>xm+1 then exit;
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2]:=ord(s[i]);
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2+1]:=cb*16+cf;
curx:=curx+1;
end;
end;
procedure swrite(s:string);
var i:integer;
begin
if yo+cury>ym+1 then exit;
for i:=1 to length(s) do
begin
if xo+curx>xm+1 then exit;
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2]:=ord(s[i]);
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2+1]:=cb*16+cf;
curx:=curx+1;
end;
end;
procedure Wwrite(s:string; w:integer);
var x,y,i:integer;
begin
x:=curx; y:=cury;
for i:=1 to length(s) do write(' ');
for I:=1 to w-length(s) do curx:=curx+1;
if yo+cury>ym+1 then exit;
for i:=1 to length(s) do
begin
if xo+curx>xm+1 then exit;
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2]:=ord(s[i]);
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2+1]:=cb*16+cf;
curx:=curx+1;
end;
end;
procedure wln;
begin
cury:=cury+1;
curx:=1;
end;
procedure initialize;
begin
xo:=1; yo:=1; xm:=80; ym:=25;
cf:=7; cb:=0;
end;
{END of CRTU -----------------------------------------------------}
procedure Fwrite(s:string; w:integer);
begin
write(s:w);
end;
procedure wr(ch:char); {? color }
begin
textcolor(c);
write(ch);
end;
procedure wrcxy(x,y,c:integer; s:string);
var i:integer;
begin
for i:=1 to length(s) do
begin
mem[$b800:(yo+y-2)*160+(xo+x-2)*2]:=ord(s[i]);
mem[$b800:(yo+y-2)*160+(xo+x-2)*2+1]:=cb*16+c;
x:=x+1;
end;
end;
procedure getstr(var s:string); {graph mode}
var len:integer; c:char;
begin
len:=0;
repeat
len:=len+1;
c:=readkey;
if c in ['0'..'9'] then
outtext(c);
s[len]:=c;
until c=#13;
s[0]:=chr(len);
end;
procedure getint(x,y,w:integer; var i:integer);
var ch:char; maxi,v,k,n,j,err:integer; p,s:string; start:boolean;
label loop;
begin
maxi:=i;
gotoxy(x,y);
write(i);
str(i,p);
n:=length(p);
x:=x+length(p)-1;
loop:
start:=false;
gotoxy(x,y);
v:=0;
k:=0;
s:='';
repeat
gotoxy(x,y);
if keypressed then
begin
ch:=readkey;
if start=false then
begin
gotoxy(x-w+1,y);
for j:=1 to w do
swrite(' ');
gotoxy(x,y);
end;
case ch of
#8:if k>0 then
begin
delline(22);
s:=copy(s,1,length(s)-1);
gotoxy(x-k+1,y);
k:=k-1;
swrite(' '+s);
gotoxy(x,y);
end;
#13: if k>0 then
begin
val(s,v,n);
i:=v;
if i<=maxi then
begin
clrscr;
exit;
end
else
begin
gotoxy(1,22);
textcolor(15);
swrite('Invalid range of numerical value.');
ch:=#255;
k:=0; s:=''; i:=0;
gotoxy(x,y);
goto loop;
end;
end;
'0'..'9':
begin
delline(22);
if start=false then
begin
gotoxy(x-w+1,y);
for j:=1 to w do
swrite(' ');
gotoxy(x,y);
start:=true;
end;
if (k<w) and (i<=maxi) then
begin
s:=s+ch;
gotoxy(x-k,y);
k:=k+1;
swrite(s);
ch:=#255;
gotoxy(x,y);
end
else
begin
gotoxy(1,22);
textcolor(15);
swrite('Invalid range of numerical value.');
ch:=#255;
k:=0; s:='';
gotoxy(x,y);
end;
end
else
begin
gotoxy(1,22);
textcolor(15);
swrite('Invalid numerical value.');
end;
end;
end;
until ch in [#27,#13];
end;
function showpage(n:integer; p:tpage):char;
procedure wr(s:string);
var i:integer;
begin
if yo+cury>ym+1 then exit;
for i:=1 to length(s) do
begin
if xo+curx>xm+1 then exit;
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2]:=ord(s[i]);
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2+1]:=cb*16+cf;
curx:=curx+1;
end;
end;
procedure wr0(ch:char);
begin
textcolor(c);
write(ch);
end;
var i,j:integer; ch,chlast:char;
begin
cf:=7;
clrscr;
curx:=1; cury:=1;
for i:=1 to 25 do
begin
wr(' ');
for j:=1 to length(p[i]) do
begin
ch:=p[i][j];
if ch<>'`' then wr(ch)
else
begin
if cf=15 then cf:=7
else cf:=15;
end;
end;
if i<25 then
begin
curx:=1; cury:=cury+1
end;
end;
{ repeat
gotoxy(18,18);
chlast:=readkey;
if chlast<>#13 then
ch:=chlast;
write(ch);
gotoxy(18,18);
until chlast=#13;
showpage:=upcase(ch);
if ch=#13 then showpage:='Y';
}
end;
procedure w(s:string);
var j:integer;
ch:char;
begin
for j:=1 to length(s) do
begin
ch:=s[j];
if ch<>'`' then wr(ch)
else
begin
if c=15 then c:=7
else c:=15;
end;
end;
end;
function showpage_(pn:integer):char;
procedure wr(s:string);
var i:integer;
begin
if yo+cury>ym+1 then exit;
for i:=1 to length(s) do
begin
if xo+curx>xm+1 then exit;
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2]:=ord(s[i]);
mem[$b800:(yo+cury-2)*160+(xo+curx-2)*2+1]:=cb*16+cf;
curx:=curx+1;
end;
end;
procedure wr0(ch:char);
begin
textcolor(c);
write(ch);
end;
var i,j:integer; ch,chlast:char;
p:tpage;
begin
case pn of
1:p:=page1;
2:P:=page2;
end;
cf:=7;
clrscr;
curx:=1; cury:=1;
for i:=1 to 25 do
begin
wr(' ');
for j:=1 to length(p[i]) do
begin
ch:=p[i][j];
if ch<>'`' then wr(ch)
else
begin
if cf=15 then cf:=7
else cf:=15;
end;
end;
if i<25 then
begin
curx:=1; cury:=cury+1
end;
end;
{ repeat
gotoxy(18,18);
chlast:=readkey;
if chlast<>#13 then
ch:=chlast;
write(ch);
gotoxy(18,18);
until chlast=#13;
showpage:=upcase(ch);
if ch=#13 then showpage:='Y';
}
end;
function sshowpage_(pn:integer):char;
procedure wrbad(ch:char);
var i:integer;
begin
mem[$b800:(cury-1)*160+(curx-1)*2]:=ord(ch);
mem[$b800:(cury-1)*160+(curx-1)*2+1]:=cb*16+cf;
end;
var i,j:integer; ch:char;
p:tpage;
begin
case pn of
1: p:=page1;
2: p:=page2;
3: p:=page3;
4: p:=page4;
end;
c:=7;
clrscr;
for i:=1 to 25 do
begin
write(' ');
for j:=1 to length(p[i]) do
begin
ch:=p[i][j];
if ch<>'`' then wr(ch)
else
begin
if c=15 then c:=7
else c:=15;
end;
end;
if i<25 then
writeln;
end;
case pn of
1: begin
gotoxy(18,18);
ch:=readkey;
if ch=#13 then sshowpage_:='1'
else sshowpage_:=upcase(ch);
end;
2: gotoxy(24,25);
3: begin
repeat
gotoxy(18,18);
ch:=readkey;
{gotoxy(18,18);}
if not (ch in ['1'..'4']) then
begin
gotoxy(1,24);
w(' `Invalid entry, please enter 1-4.`');
end
else sshowpage_:=upcase(ch);
until ch in ['1'..'4'];
end;
4: begin
gotoxy(69,19);
ch:=readkey;
if ch=#13 then sshowpage_:='Y'
else sshowpage_:=upcase(ch);
end;
end;
{ readln(ch);}
end;
{ writeln;
c:=7;
for i:=1 to 25 do
begin
for j:=1 to length(crtdoslog[i]) do
begin
ch:=crtdoslog[i][j];
if ch<>'`' then wr(ch)
else
begin
if c=15 then c:=7
else c:=15;
end;
end;
if i<25 then writeln;
end;
}
{
test3.dat:
DISKS=1
DRIVES=0
SIZE=4300
test5.dat:
DISKS=2
DRIVES=3
SIZE=6400M
C=2000M A
D=2000M
E=1500M
DRIVES=1
SIZE=1040M
C=500M A
}
procedure showpartition(d:integer);
var dr,i,SizExt:integer;
begin
textcolor(7);
ch:='B';
i:=1;
delline(10);
delline(11);
gotoxy(1,10);
if pricreated then
begin
wwrite(chr(ord(ch)+i)+':',5);
wwrite('1',2);
wwrite('A',9);
wwrite('PRI DOS',11);
wwrite(' ',15);
wwrite(' '+ia(dsiz[d,1]),6);
wwrite('FAT16',8);
wwrite(ra(100.0*dsiz[d,1]/tsiz[d],9,0)+'%',9);
SizExt:=0;
end;
if EXTcreated then
begin
gotoxy(1,11);
wwrite(' ',5);
wwrite('2',2);
textcolor(12);
{ if active[dr]=ch then wwrite('A',9)
else wwrite(' ',9);}
textcolor(7);
wwrite('EXT DOS',11);
wwrite(' ',15);
wwrite(' '+ia(dsiz[d,dr]),6);
wwrite('FAT16',8);
wwrite(ra(100.0*dsiz[d,dr]/tsiz[d],9,0)+'%',9);
end;
{ if (drive[d]>0) then
begin
{ wwrite(chr(ord(ch)+i)+':',5);
wwrite('1',2);
wwrite('A',9);
wwrite('PRI DOS',11);
wwrite(' ',15);
wwrite(' '+ia(dsiz[d,1]),6);
wwrite('FAT16',8);
wwrite(ra(100.0*dsiz[d,1]/tsiz[d],9,0)+'%',9);}
SizExt:=0;
if drive[d]>1 then
begin
for dr:=2 to drive[d] do
begin
SizExt:=SizExt+Dsiz[d,dr];
end;
end;
{ gotoxy(1,11);
wwrite(' ',5);
wwrite('2',2);
textcolor(12);
if active[dr]=ch then wwrite('A',9)
else wwrite(' ',9);
textcolor(7);
wwrite('EXT DOS',11);
wwrite(' ',15);
wwrite(' '+ia(dsiz[d,dr]),6);
wwrite('FAT16',8);
wwrite(ra(100.0*dsiz[d,dr]/tsiz[d],9,0)+'%',9);
end; }
end;
procedure getxy(x,y:integer);
var ch,ch2:char;
begin
gotoxy(1,1);
swrite(' ');
textcolor(11);
gotoxy(1,1);
swrite(ia(x)+','+ia(y));
gotoxy(x,y);
repeat
if keypressed then
begin
ch:=readkey;
if ch=#0 then
begin
ch2:=readkey2;
if ch2='M' then x:=x+1;
if ch2='K' then x:=x-1;
if ch2='P' then y:=y+1;
if ch2='H' then y:=y-1
end;
textcolor(11);
gotoxy(1,1);
swrite(ia(x)+','+ia(y));
gotoxy(x,y);
end;
until ch=#27;
end;
procedure showlogicdrive(d:integer);
var i,dr:integer; dbg:boolean;
begin
dbg:=false;
delline(5);
delline(6);
delline(7);
if dbg then
begin
writeln('Drv Volume Label Mbytes System Usage');
writeln('D: SOFTWARE 2047 FAT16 38%');
writeln('E: FTP 2047 FAT16 38%');
writeln('F: USER 1357 FAT16 25%');
writeln;
end;
i:=0;
if d=1 then ch:='B' else ch:=chr(67+drive[1]);
if drive[d]>0 {not original} then
for dr:=2 to drive[d] do
begin
gotoxy(2,4+dr-1);
i:=i+1;
textcolor(7);
wwrite(chr(ord(ch)+dr)+':',3);
wwrite(' ',14);
gotoxy(21,5);
wwrite(ia(dsiz[d,dr]),5);
gotoxy(27,5);
if fat32 then
wwrite('UNKNOWN',7)
else
wwrite('FAT16 ',7);
gotoxy(38,5);
wwrite(ra(100.0*dsiz[d,dr]/tsiz[d],3,0)+'%',3);
end;
getxy(40,10);
end;
procedure showpgfile(n:string);
var i,j:integer;
f:file; fnm:string;
begin
fnm:='SCREEN'+n+'.DAT';
assign(f,fnm);
reset(f,1);
for i:=0 to 24 do
for j:=0 to 159 do
blockread(f,mem[$b800:i*160+j],1);
close(f);
end;
{procedure GETCFG(n:string);
var i,j:integer;
f:file; fnm:string;
begin
fnm:='PROBLEM'+n+'.DAT';
assign(f,fnm);
reset(f,1);
for i:=0 to 24 do
for j:=0 to 159 do
blockread(f,mem[$b800:i*160+j],1);
close(f);
end;
}
procedure SHOWPRMTS;
var i,x,y:integer;
begin
clrscr;
x:=20; y:=9;
gotoxy(x+1,y+1);
write('DISKs=',disks);
for i:=1 to disks do
begin
write(' TSIZ[',i,']=',tsiz[i]);
gotoxy(x,y+2);
write(' PSIZ[',i,']=',psiz[i]);
gotoxy(x,y+3);
write(' ESIZ[',i,']=',esiz[i]);
gotoxy(x,y+4);
write(' DRV[',i,']=',drive[i]);
gotoxy(1,y+5);
for J:=1 to drive[i] do
begin
gotoxy(x+(j-1)*10,y+5);
write(' D[',j,']=',dsiz[i,j]);
end;
gotoxy(x,y+6);
write(' SREM[',i,']=',remainder[i]);
end;
end;
procedure GETPRMTS(ns:string);
var i,j,k,n,p1,p2:integer;
f:text; s,s1,fnm:string; lastletter,letter:char;
dbg:boolean;
begin
dbg:=true;
fnm:='TEST'+ns+'.DAT';
assign(f,fnm);
reset(f);
readln(f,s);
val(copy(s,length(s),1),disks,n);
if dbg then writeln('disks=',disks);
letter:='B';
for i:=1 to disks do
begin
readln(f,s);
val(copy(s,length(s),1),drive[i],n);
if dbg then writeln(' drives[',i,']=',drive[i]);
readln(f,s);
p1:=pos('=',s); p2:=pos('M',s);
s1:=copy(s,p1+1,p2-p1-1);
val(s1,tsiz[i],n);
if dbg then writeln(' tsize[',i,']=',tsiz[i]);
readln(f,s);
p1:=pos('=',s); p2:=pos('M',s);
s1:=copy(s,p1+1,p2-p1-1);
val(s1,psiz[i],n);
if dbg then writeln(' psize[',i,']=',psiz[i]);
readln(f,s);
p1:=pos('=',s); p2:=pos('M',s);
s1:=copy(s,p1+1,p2-p1-1);
val(s1,esiz[i],n);
if dbg then writeln(' esize[',i,']=',esiz[i]);
if drive[i]=0 then
begin
remainder[i]:=tsiz[i];
{ clrscr;
gotoxy(1,22);
textcolor(15);
swrite('No Partitions Defined.');}
end
else
begin
remainder[i]:=tsiz[i];
for J:=1 to drive[i] do
begin
readln(f,s);
if s[length(s)]='A' then act:=1;
p1:=pos('=',s);
p2:=pos('M',s);
val(copy(s,p1+1,p2-p1-1),dsiz[i,j],n);
remainder[i]:=remainder[i]-dsiz[i,j];
case i of
1:begin
letter:=chr(ord(letter)+1);
if (disks=2) and (j=2) then
letter:=chr(ord(letter)+1);
if dbg then writeln( letter,' dsize[',i,',',j,']=',dsiz[i,j]);
lastletter:=letter;
end;
2:begin
if j=1 then letter:='D' else
if j=2 then letter:=chr(ord(lastletter)+1)
else letter:=chr(ord(letter)+1);
if dbg then writeln( letter,' dsize[',i,',',j,']=',dsiz[i,j]);
end;
end;
{ if i=1 then if dbg then writeln('ActiveDrive=',active[i]);}
end;
end;
end;
close(f);
readkey;
end;
procedure wrxy(x,y:integer; S:string);
begin
moveto(x*8,y*20);
outctextc2(11,11,0,s);
end;
procedure wrxyc(x,y,c,e:integer; S:string);
begin
moveto(x*8,y*20);
outctextc2(c,e,0,s);
end;
procedure bar1(x1,x2,y,b,c:integer);
var X:integer; ofs:word;
begin
for x:=x1 to x2 do
begin
ofs:=(y-1)*160+(x-1)*2;
mem[$B800:ofs+1]:=
128 or (b shl 4 or c);
{mem[$B800:ofs+1] and $0f) or c;}
end
end;
procedure readln(var s:string);
var x0,x,y,i:integer; ch:char;
begin
s:='';
x:=curx;
x0:=curx;
gotoxy(curx,cury);
_write('_');
x:=curx;
x:=xo+curx-2;
Y:=yo+cury-1;
bar1(x,x,y,0,15);
repeat
ch:=readkey;
if (ch=#8) then
begin
if (x>24+xo) then
begin
s:=copy(s,1,length(s)-1);
gotoxy(curx-1,cury);
_write(' ');
x:=xo+curx-2;
Y:=yo+cury-1;
gotoxy(curx-2,cury);
_write('_');
x:=xo+curx-2;
Y:=yo+cury-1;
bar1(x,x,y,0,15);
end
end
else
if (ch<>#13) and (ch in ['0'..'9','A'..'Z','a'..'z']) then
begin
s:=s+ch;
gotoxy(curx-1,cury);
_write(ch+'_');
x:=xo+curx-2;
Y:=yo+cury-1;
bar1(x,x,y,0,15);
end;
{ mem[$b800:(yo+cury-2)*160+2*(xo+curx-2)+1]:=
mem[$b800:(yo+cury-2)*160+2*(xo+curx-2)+1] + 128;}
until ch=#13;
end;
type chset=set of char;
procedure readch(s:chset; var ch:char);
var chlast,c:char; x,y:integer;
begin
x:=wherex; y:=whereY;
repeat
gotoxy(x,y);
chlast:=readkey;
if chlast<>#13 then ch:=chlast;
if ch in s then
write(ch);
{ case ch of
#27:
begin
clrscr;
exit;
end;
'1'..'5':
begin
textcolor(15);
write(ch);
gotoxy(1,24);
textcolor(15);
write(' ');
end;
'6'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch,' is not a choice. Please enter 1-5.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-5. ');
end;
end;}
gotoxy(18,18);
until (chlast=#13) and (ch in s);
end;
procedure verify;
var i:integer; ch:char;
begin
{ clrscr;
showpgfile('1');}
gotoxy(2,21);
textcolor(7);
write(' Verify Drive Integrity, completed.');
hidecursor;
for i:=1 to 20 do
begin
gotoxy(30,21);
textcolor(15);
wrcxy(30,21,15,ia(i)+'%');
delay(5);
end;
delline(21);
showcursor;
{ gotoxy(64,10);
ch:='Y';
readch(['Y','N','y','n'],ch);}
end;
procedure verifyatline(n:integer);
var i:integer; ch:char;
begin
{ clrscr;
showpgfile('1');}
gotoxy(2,n);
textcolor(7);
write(' Verify Drive Integrity, completed.');
hidecursor;
for i:=1 to 100 do
begin
gotoxy(30,n);
textcolor(15);
wrcxy(30,n,15,ia(i)+'%');
delay(10);
end;
delline(n);
showcursor;
{ gotoxy(64,10);
ch:='Y';
readch(['Y','N','y','n'],ch);}
end;
function sigmadsiz:integer; {total size of from 'D' to current Drive}
var i,t:integer;
begin
t:=0;
for i:=2 to drive[disk] do
t:=t+dsiz[disk,i];
sigmadsiz:=t;
end;
procedure showdrives(disk:integer);
var i:integer; chtmp:char;
begin
for i:=5 to 10 do delline(i);
for i:=2 to drive[disk]-1 do
begin
delline(6+i);
gotoxy(3,6+i);
chtmp:=chr(65+i);
write(chtmp+':'); {ok}
gotoxy(21,6+i);
wwrite(ia(dsiz[disk,i]),5);
gotoxy(28,6+i);
if fat32 then
wwrite('UNKNOWN',7)
else
wwrite(' FAT16 ',7);
gotoxy(39,6+i);
swrite(ra(100.0*dsiz[disk,i]/tsiz[disk],2,0)+'%');
end;
end;
procedure savedata;
var disk,i:integer; fo:text; nm:string; d0,d:char;
begin
{ clrscr;
gotoxy(20,11);
write('File to Save [*.DAT] = ');
read(nm); }
nm:='LOG.DAT';
assign(fo,nm);
rewrite(fo);
writeln(fo,'DISKS=',disks);
for disk:=1 to disks do
begin
writeln(fo,' DRIVES=',drive[disk]);
writeln(fo,' TSIZE=',tsiz[disk],'M');
writeln(fo,' PSIZE=',psiz[disk],'M');
writeln(fo,' ESIZE=',esiz[disk],'M');
{ if disks=1 then d0:='B' else d0:=chr}
for i:=1 to drive[disk] do
begin
d:=chr(ord('B')+i);
if (i=1) and (act=1) then
writeln(fo,' ',d,':=',ia(dsiz[disk,i])+'M A')
else
writeln(fo,' ',d,':=',ia(dsiz[disk,i])+'M');
{ if fat32 then
write(fo,'UNKNOWN':15)
else
write(fo,' FAT16 ':5);}
end;
end;
close(fo);
end;
procedure message;
begin
exit;
gotoxy(1,24); write('Esiz[disk]=',esiz[disk],' rest=',remainder[disk]);
end;
var buf:array[0..5,0..159] of byte;
procedure movetobuf(fr,t:integer);
var i,j,k:integer;
begin
for i:=fr to t do
begin
for j:=0 to 159 do
begin
buf[i-fr,j]:=mem[$b800:(i-1)*160+j];
end;
delline(i);
end;
end;
procedure movetoscr(fr,count:integer);
var i,j:integer;
begin
for i:=0 to count-1 do
for j:=0 to 159 do
mem[$b800:(i+fr-1)*160+j]:=buf[i,j];
end;
procedure getesc;
var ch:char;
begin
repeat
ch:=readkey;
until ch=#27;
end;
procedure rect3d(x1,y1,x2,y2:integer);
begin
setcolor(8);
rectangle(x1,y1,x2,y2);
setcolor(15);
line(x1,y2,x2,y2);
line(x2,y1,x2,y2);
end;
{********************************MAIN*********************************}
var total,sz,extsize:real;
size:array['C'..'Z'] of real;
percent:array['C'..'Z'] of integer;
md,chlast,ch1,ch2,ch3,ch34,chtmp:char;
fi:text; x,y,gd,gm:integer;
s,sss:string;
type disktype=record
drive:char;
mbytes:integer;
system:string;
usage:integer;
end;
var
dellogt:array [1..2] of integer;
logt:array [1..2] of integer;
dellog:array[1..4] of char;
log:array[1..4] of char;
dl:char;lf:char;ll:char;dd:integer;
logdisk:array[1..2,1..4] of disktype;
extdisk:array[1..2] of disktype;
pridisk:array[1..2] of disktype;
j1,j2:integer;
lab:string;
snmb:string;
label loop,loop2,loopdl,loopdp,last;
begin
gd:=detect;
initgraph(gd,gm,'');
x:=26; y:=8;
setfillstyle(1,1);
bar(0,0,639,479);
setfillstyle(1,8);
bar(110,110,550,389);
setfillstyle(1,7);
bar(100,100,540,379);
rect3d(110,110,530,369);
setcolor(1);
moveto(x*8,y*20-30);
outctextc2(0,0,0,' 请选择硬盘类型');
wrxyc(x,y+0,0,0,' 0 ---- 与本机容量相同的空盘 ');
wrxyc(x,y+1,0,0,' 1 ---- 420M, 已作过分区的盘');
wrxyc(x,y+2,0,0,' 2 ---- 4.3G, 未作分区的空盘');
wrxyc(x,y+3,0,0,' 3 ---- 6.4G, 已作过分区的盘');
wrxyc(x,y+4,0,0,' 4 ---- 13.0G,未作分区的空盘');
wrxyc(x,y+5,0,0,' 5 ---- 双硬盘，均已作过分区 ');
wrxyc(x,y+6,0,0,' Esc -- 退出FDISK仿真程序。');
setfillstyle(1,7);
bar(400-24,358,470-24,375);
wrxy(x-3,y+10,'请先输入学号（考试证号）');
setcolor(0);
moveto(400-25+5,358+6);
getstr(snmb);
setfillstyle(1,1);
bar(100,358,547,375);
setfillstyle(1,7);
bar(400-14,358,470-24,375);
wrxy(x-3,y+10,'请选择硬盘假设类型[0..5]');
setcolor(0);
moveto(400-25+15,358+6);
getstr(lab);
{ repeat
ch:=readkey;
until ch in ['1'..'5',#27];}
ch:=lab[1];
closegraph;
case ch of
#27:begin
clrscr;
halt;
end;
'0':begin
end;
else
begin
getprmts(ch);
end;
end;
{ act:=0;}
{showprmts;
readkey; }
initialize;
disk:=1;
fat32:=false;
{ closegraph;
clrscr;
GETCFG('1');
readln;
assign(fi,'PROBLEM'+ch+'.DAT');
reset(fi);
if ioresult<>0 then
begin
gotoxy(10,12);
write('File PROBREM.DAT not found!');
halt;
end;
readln(fi,totalsize);
readln(fi,s);
if upcase(s[1])='O' then original:=true else original:=false;
if not original then
begin
readln(fi,drives);
maxdrive:=chr(ord('C')+drives-1);
for i:=1 to drives do
begin
readln(fi,ch1,dsize[chr(ord('C')+i-1)]);
end;
end;
readln(fi,activedrv);
close(fi);
clrscr;
}
{
for i:=1 to disks do
begin
showpartition(i);
writeln;
showlogicdrive(i);
end;
readkey;
}
{get real disk parametters:
i:=2;
total:=0;
extsize:=0;
repeat
i:=i+1;
sz:=disksize(i);
size[chr(64+i)]:=sz;
total:=total+sz;
if i>3 then extsize:=extsize+sz;
if sz>0 then writeln(chr(64+i),' ',sz/1024/1024:0:0);
until sz<0;
writeln('total=',round(total/1024/1024));
i:=i-1;
md:=chr(64+i);
writeln('SIZE:');
for ch:='C' to md do
begin
percent[ch]:=round(1.0*size[ch]/total*100);
writeln(ch,':',percent[ch],'%');
end;
writeln('PRISIZE=',size['C']/1024/1024:0:0);
writeln('EXTSIZE=',extsize/1024/1024
:0:0);
readln;
showpage4;}
{0}
if tsiz[1]>512 then {show INPORTANT notation}
begin
for i:=1 to 5 do writeln;
c:=7;
for i:=1 to 14 do
begin
write(' ');
for j:=1 to length(page[i]) do
begin
ch:=page[i][j];
if ch<>'`' then wr(ch)
else
begin
if c=15 then c:=7
else c:=15;
end;
end;
writeln;
end;
for i:=1 to 5 do writeln;
{hidecursor;
cb:=0;
sss:=''; }
gotoxy(63,19);
{ readln(sss);}
cmd:=readkey;
end;
{1}
loop:
ch:='1';
REPEAT
showpage(0,page0);
gotoxy(29,7);
textcolor(7);
swrite(ia(disk));
if disks=1 then
delline(15);
repeat
repeat
gotoxy(18,18);
chlast:=readkey;
if chlast<>#13 then ch:=chlast;
case ch of
#27:
begin
clrscr;
savedata;
textcolor(7);
gotoxy(1,1);
getdir(0,s);
swrite(s+'>');
exit;
end;
'1'..'5':
begin
textcolor(15);
write(ch);
gotoxy(1,24);
textcolor(15);
write(' ');
end;
'6'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch,' is not a choice. Please enter 1-5.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-5. ');
end;
end;
gotoxy(18,18);
until (chlast=#13) and (ch in ['1'..'5']);
{ gotoxy(20,18);
readln(cmd);}
case ch of
'1':
{Create DOS Partition ----------------------------------------}
begin
ch1:='1';
showpage(1,page1);
gotoxy(29,7);
textcolor(11);
swrite(ia(disk));
repeat
gotoxy(18,18);
chlast:=readkey;
if chlast<>#13 then ch1:=chlast;
case ch1 of
#27:goto loop;
'1'..'3':
begin
textcolor(15);
write(ch1);
gotoxy(1,24);
textcolor(15);
write(' ');
end;
'4'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch1,' is not a choice. Please enter 1-5.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-5. ');
end;
end;
gotoxy(18,18);
until (chlast=#13) and (ch1 in ['1'..'3']);
case ch1 of
'1': {create pri partition}
if PRIcreated then
begin
showpgfile('29');
gotoxy(47,10);
swrite(' '+ia(dsiz[disk,1]));
gotoxy(64,10);
swrite(ra(100.0*dsiz[disk,1]/tsiz[disk],5,0));
gotoxy(27,25);
getesc;
goto loop;
end
else
begin
if act=1 then
begin
showpage(11,page11);
gotoxy(29,7);
textcolor(11);
swrite(ia(disk));
showpartition(disk);
end
else
begin
clrscr;
showpgfile('1');
delline(9);
delline(10);
gotoxy(2,21);
textcolor(7);
write(' Verify Drive Integrity, completed.');
hidecursor;
for i:=1 to 20 do
begin
gotoxy(30,21);
textcolor(15);
wrcxy(30,21,15,ia(i)+'%');
delay(10);
end;
delline(21);
showpgfile('1');
showcursor;
gotoxy(64,10);
ch:='Y';
readch(['Y','N','y','n'],ch);
if upcase(ch)='Y' then
begin {Full size for PRI DOS Partition}
verify;
clrscr;
showpgfile('3'); {}
gotoxy(18,10); swrite(' ');
gotoxy(47,10); wwrite(ia(tsiz[disk]),5);
gotoxy(65,10); wwrite('100%',5);
gotoxy(26,25);
{modify:}
getesc;
showpgfile('20');
gotoxy(28,25);
repeat
ch:=readkey;
until ch=#27;
savedata;
clrscr;
halt;
end
else {to specify the size for PRI DOS partition}
begin
showpgfile('2');
for i:=15 to 15 do delline(i);
textcolor(15);
gotoxy(46,16);
swrite(' '+ia(tsiz[disk]));
for i:=16 to 20 do
delline(i);
verify;
showpgfile('2');
textcolor(15);
gotoxy(25,15);
swrite(' '+ia(tsiz[disk]));
textcolor(15);
gotoxy(46,16);
swrite(' '+ia(tsiz[disk]));
J:=remainder[disk];
getint(72,20,5,j);
dsiz[disk,1]:=j;
psiz[disk]:=j;
remainder[disk]:=tsiz[disk]-j;
PRIcreated:=true;
showpgfile('3'); {show 'PRI DOS created'}
gotoxy(47,10);
swrite(' '+ia(dsiz[disk,1]));
gotoxy(64,10);
swrite(ra(100.0*dsiz[disk,1]/tsiz[disk],5,0));
gotoxy(27,25);
getesc;
end;
goto loop;
end;
repeat
ch34:=readkey;
until ch34=#27;
goto loop;
end;
'2': {to create EXT DOS partition:}
if not PRIcreated then
begin
showpgfile('21');
gotoxy(26,25);
getesc;
goto loop;
end
else
begin
showpgfile('23');
gotoxy(47,10);
swrite(' '+ia(dsiz[disk,1]));
gotoxy(66,10);
j:=remainder[disk];
swrite(' '+ra(1.0*dsiz[disk,1]*100/tsiz[disk],0,0));
delline(15);
delline(16);
delline(19);
delline(20);
gotoxy(2,21);
textcolor(7);
write(' Verify Drive Integrity, completed.');
hidecursor;
for i:=1 to 10 do
begin
gotoxy(30,21);
textcolor(15);
wrcxy(30,21,15,ia(i)+'%');
delay(10);
end;
{re-display:}
showpgfile('23');
gotoxy(47,10);
swrite(' '+ia(dsiz[disk,1]));
gotoxy(66,10);
j:=remainder[disk];
swrite(' '+ra(1.0*dsiz[disk,1]*100/tsiz[disk],0,0));
gotoxy(25,15);
swrite(' '+ia(tsiz[disk]));
gotoxy(46,16);
swrite(' '+ia(remainder[disk]));
gotoxy(70,20);
swrite(' '+ia(remainder[disk]));
gotoxy(60,16);
swrite(' '+ra(100.0*(remainder[disk]/tsiz[disk]),0,0));
j:=remainder[disk];
getint(71,20,5,j);
Esiz[disk]:=j;
EXTcreated:=true;
remainder[disk]:=j;
showpgfile('7'); {show 'EXT DOS Created'}
gotoxy(47,10);
swrite(' '+ia(psiz[disk]));
gotoxy(66,10);
swrite(' '+ra(1.0*psiz[disk]*100/tsiz[disk],0,0));
gotoxy(47,11);
swrite(' '+ia(esiz[disk]));
gotoxy(66,11);
swrite(' '+ra(1.0*esiz[disk]*100/tsiz[disk],0,0));
gotoxy(19,10); swrite(' ');
gotoxy(26,25);
drive[disk]:=1;
getesc;
goto loop2;
end;
'3': {Create Logical dirves}
if not EXTcreated then
begin {show EXT DOS not create}
showpgfile('24');
gotoxy(26,25);
getesc;
goto loop;
end
else
begin
loop2:
if (sigmaDsiz = esiz[disk]) then
begin
showpage(13,page13); {all available EXT .. to logi..}
showdrives(disk);
goto loop;
end
else
repeat
if dsiz[disk,2]=0 then
begin
showpgfile('8'); {for create 1st logdrive}
gotoxy(42,18);
wwrite(ia(esiz[disk]),5);
gotoxy(50,19);
wwrite(ia(remainder[disk]),5);
gotoxy(64,19);
wwrite(ra(100.0*remainder[disk]/esiz[disk],2,0)+'%',4);
gotoxy(72,21);
wwrite(ia(remainder[disk]),5);
{message;}
{J:=remainder[disk];
gotoxy(72,21); swrite(' ');
getint(73,21,5,j);
drive[disk]:=drive[disk]+1;
dsiz[disk,drive[disk]]:=j;
remainder[disk]:=remainder[disk]-j;
ch:=readkey; }
end
else
begin
showpgfile('9'); {create other logdrive, or'1'}
for i:=5 to 8 do
delline(i);
{gotoxy(1,2);
swrite(title2);
gotoxy(1,3);
swrite(examp2); }
for i:=2 to drive[disk] do
begin
gotoxy(2,3+i);
ch3:=chr(66+i);
write(ch3,':',' ':15,dsiz[disk,i]:5);
write('FAT16':8);
write(ra(100.0*dsiz[disk,i]/esiz[disk],2,0)+'%':7);
end;
movetobuf(18,21);
verifyatline(22);
movetoscr(18,4);
gotoxy(42,18);
wwrite(ia(esiz[disk]),5);
gotoxy(50,19);
wwrite(ia(remainder[disk]),5);
gotoxy(65,19);
wwrite(ra(100.0*remainder[disk]/esiz[disk],2,0)+'%',4);
gotoxy(72,21);
wwrite(ia(remainder[disk]),5);
end;
J:=remainder[disk];
gotoxy(72,21); swrite(' ');
getint(73,21,5,j);
drive[disk]:=drive[disk]+1;
dsiz[disk,drive[disk]]:=j;
remainder[disk]:=remainder[disk]-j;
if remainder[disk]=0 then
begin
gotoxy(3,24);
showpgfile('10');
for i:=2 to drive[disk] do
begin
gotoxy(1,3+i);
ch3:=chr(66+i);
write(ch3,':',' ':16,dsiz[disk,i]:5);
write('FAT16':8);
write(ra(100.0*dsiz[disk,i]/esiz[disk],2,0)+'%':8);
end;
getesc;
end;
until (remainder[disk]=0) {or (ch=#27)};
{show all EXT size assigned to logdrv?}
{ gotoxy(29,7);
textcolor(11);
swrite(ia(disk));
readkey; }
{showlogicdrive(disk);}
{showpartition(1);}
{ repeat
ch34:=readkey;
until ch34=#27;}
goto loop;
end;
end;
end;
'2': {Set active partition ------------------------------------------- }
begin
{ disk:=1;}
pridisk[disk].system:='UNKNOWN';
extdisk[disk].system:='UNKNOWN';
if psiz[disk]>0 then
begin
pridisk[disk].drive:='X';
pridisk[disk].mbytes:=psiz[disk];
pridisk[disk].usage:=round(100.0*psiz[disk]/tsiz[disk]);
end
else pridisk[disk].drive:='$';
if esiz[disk]>0 then
begin
extdisk[disk].drive:='X';
extdisk[disk].mbytes:=esiz[disk];
extdisk[disk].usage:=round(100.0*esiz[disk]/tsiz[disk]);
end
else extdisk[disk].drive:='$';
logt[disk]:=drive[disk]-1;
for i:=1 to logt[disk] do
with logdisk[disk][i] do
begin
drive:=chr(67+i);
mbytes:=dsiz[disk,i+1];
usage:=round(100.0*dsiz[disk,i+1]/esiz[disk]);
end;
logdisk[disk][i+1].drive:='$';
dellogt[disk]:=0;
if act=1 then active:='A' else active:=' ';
{--------------------------}
if pridisk[disk].drive='$' then
begin
showpgfile('30');
repeat
ch34:=readkey;
until ch34=#27;
goto loop;
end
else
begin
if act=1 then
begin
showpage_(2);
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 A PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
if extdisk[disk].drive='X' then
begin
gotoxy(1,11);
with extdisk[disk] do
write(' 2 EXT DOS ',mbytes:5,' ',system,' ',usage:2,'%');
end
else
begin
gotoxy(1,11);
with extdisk[disk] do
write(' ');
end;
repeat
ch34:=readkey;
until ch34=#27;
goto loop;
end
else {act=1}
begin
showpgfile('4');
gotoxy(76,17);
write(' ');
repeat
begin
gotoxy(76,17);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto loop;
'1':
begin
gotoxy(1,24);
write(' ');
gotoxy(76,17);
write(ch1);
end;
'2'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch1,' is not a choice. Please enter 1-1.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-1. ');
gotoxy(54,18);
end;
end; {case ch1}
end;
until (chlast=#13) and (ch1 in ['1']);
case ch1 of
'1':begin
act:=1;
active:='A';
{ show('5'); }
textcolor(7);
gotoxy(19,10);
write('A');
gotoxy(1,17);
write(' ');
textcolor(15);
gotoxy(1,22);
write(' Partition 1 made active');
gotoxy(1,25);
write(' Press Esc to continue ');
repeat
ch34:=readkey;
until ch34=#27;
goto loop;
end;
end;
end;
end;
end;
'3': {Delete Partition -----------------------------------------------}
begin
{+++++++++++++++++++++}
{ disk:=1;}
pridisk[disk].system:='UNKNOWN';
extdisk[disk].system:='UNKNOWN';
if psiz[disk]>0 then
begin
pridisk[disk].drive:='X';
pridisk[disk].mbytes:=psiz[disk];
pridisk[disk].usage:=round(100.0*psiz[disk]/tsiz[disk]);
end
else pridisk[disk].drive:='$';
if esiz[disk]>0 then
begin
extdisk[disk].drive:='X';
extdisk[disk].mbytes:=esiz[disk];
extdisk[disk].usage:=round(100.0*esiz[disk]/tsiz[disk]);
end
else extdisk[disk].drive:='$';
logt[disk]:=drive[disk]-1;
for i:=1 to logt[disk] do
with logdisk[disk][i] do
begin
drive:=chr(67+i);
mbytes:=dsiz[disk,i+1];
usage:=round(100.0*dsiz[disk,i+1]/esiz[disk]);
end;
logdisk[disk][i+1].drive:='$';
dellogt[disk]:=0;
if act=1 then active:='A' else active:=' ';
{--------------------------}
if pridisk[disk].drive='$' then
begin
showpgfile('22');
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end
else
begin
showpage(3,page3);
repeat
gotoxy(18,18);
chlast:=readkey;
if chlast<>#13 then ch3:=chlast;
case ch3 of
#27:
begin
goto last;
end;
'1'..'4':
begin
textcolor(15);
write(ch3);
gotoxy(1,24);
textcolor(15);
write(' ');
end;
'5'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch3,' is not a choice. Please enter 1-4.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-4. ');
end;
end;
gotoxy(18,18);
until (chlast=#13) and (ch3 in ['1'..'4']);
case ch3 of
'1':
begin
ch1:='N';
if extdisk[disk].drive='X' then
begin
showpage(31,page31);
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 ',active,' PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
gotoxy(1,11);
with extdisk[disk] do
write(' 2 EXT DOS ',mbytes:5,' ',system,' ',usage:2,'%');
textcolor(15);
gotoxy(23,15);
write(tsiz[disk]:5);
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end
else {extdisk.drive='X'}
begin
showpgfile('18');
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 ',active,' PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
textcolor(15);
gotoxy(25,15);
write(tsiz[disk]:5);
ch1:='1';
repeat
begin
gotoxy(54,21);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto last;
'1':
begin
gotoxy(1,24);
write(' ');
gotoxy(54,21);
write(ch1);
end;
'2'..'9','0':
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',ch1,' is not a choice. Please enter 1-1.');
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter 1-1. ');
gotoxy(54,18);
end;
end; {case ch1}
end;
until (chlast=#13) and (ch1 in ['1']);
case ch1 of
'1':begin
gotoxy(1,22);
write(' Enter Volume Label..............................?');
textcolor(15);
gotoxy(55,22);
write('[ ]');
gotoxy(56,22);
i:=0;
repeat
ch34:=upcase(readkey);
if i<12 then
case ch34 of
#27:goto last;
'0'..'9','A'..'Z':
if i<11 then
begin
i:=i+1;
gotoxy(55+i,22);
write(ch34);
lab[i]:=ch34;
gotoxy(56+i,22);
end;
#8:
if i>0 then
begin
i:=i-1;
gotoxy(56+i,22);
write(' ');
gotoxy(56+i,22);
end;
end; {case ch34}
until ch34=#13;
if i<>0 then
begin
gotoxy(1,23);
write(' Volume label does not match.');
gotoxy(1,25);
write(' Press Esc to continue ');
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end
else
begin
gotoxy(1,23);
write(' Are you sure (Y/N)..............................?');
textcolor(15);
gotoxy(55,23);
write('[N]');
end;
ch1:='N';
repeat
gotoxy(56,23);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto last;
'Y','N':
begin
gotoxy(1,24);
write(' ');
gotoxy(56,23);
write(ch1);
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter Y-N. ');
gotoxy(54,23);
end;
end; {ch1}
until (chlast=#13) and (ch1 in ['Y','N']);
case ch1 of
'N': begin
gotoxy(1,22);
write(' ');
gotoxy(1,23);
write(' ');
gotoxy(65,21);
write(' ');
goto last;
end;
'Y': begin
pridisk[disk].drive:='$';
act:=0;active:=' ';
showpgfile('19');
textcolor(15);
gotoxy(25,15);
write(tsiz[disk]:5);
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end;
end; {ch1}
end;
end;
end;
end;
'2':
begin
ch1:='N';
if extdisk[disk].drive='$' then
begin
gotoxy(1,22);
textcolor(15);
write(' No Extended DOS Partition to delete.');
gotoxy(1,18);
write(' ');
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end
else {extdisk.drive='$'}
begin
if logt[disk]<>0 then
begin {!!!!!!!}
showpage(32,page32);
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 ',active,' PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
gotoxy(1,11);
with extdisk[disk] do
write(' 2 EXT DOS ',mbytes:5,' ',system,' ',usage:2,'%');
textcolor(15);
gotoxy(23,15);
write(tsiz[disk]:5);
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end
else {log=0}
begin
showpgfile('15');
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 ',active,' PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
gotoxy(1,11);
with extdisk[disk] do
write(' 2 EXT DOS ',mbytes:5,' ',system,' ',usage:2,'%');
textcolor(15);
gotoxy(25,15);
write(tsiz[disk]:5);
repeat
begin
gotoxy(54,18);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto last;
'Y','N':
begin
gotoxy(1,24);
write(' ');
gotoxy(54,18);
write(ch1);
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter Y-N. ');
gotoxy(54,18);
end;
end; {case ch1}
end;
until (chlast=#13) and (ch1 in ['Y','N']);
case ch1 of
'Y':begin
extdisk[disk].drive:='$';
showpgfile('17');
gotoxy(1,10);
with pridisk[disk] do
write(' C: 1 ',active,' PRI DOS ',mbytes:5,' ',system,' ',usage:2,'%');
gotoxy(25,15);
write(tsiz[disk]:5);
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end;
'N':begin
goto last;
end;
end;
end; {else log<>0}
end; {else extdisk.drive='$'}
end;
'3':
begin
if logt[disk]=0 then
begin
gotoxy(1,18);
write(' ');
gotoxy(1,23);
textcolor(15);
write(' No Logical DOS Drive(s) to delete.');
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end;
ch1:='$';
dellogt[disk]:=0;
lf:=logdisk[disk][1].drive;
ll:=logdisk[disk][logt[disk]].drive;
showpage(33,page33);
for i:=1 to logt[disk] do
begin
gotoxy(1,4+i);
with logdisk[disk][i] do
write(' ',drive,': ',mbytes,' ',usage,'%');
end;
textcolor(15);
gotoxy(40,18);
write(esiz[disk]:5);
loopdl: ch1:='1';
repeat
gotoxy(65,21);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
if (ord(ch1)>=ord(lf)) and (ord(ch1)<=ord(ll)) then
begin
textcolor(15);
write(upcase(ch1));
dellog[dellogt[disk]+1]:=ch1;
dl:=ch1;
gotoxy(1,23);
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ');
end
else
case ch1 of
#27: begin
if dellogt[disk]=0 then goto last
else
begin
begin
j1:=0;j2:=1;
for i:=1 to logt[disk]+dellogt[disk] do
begin
if logdisk[disk][i].drive<>'$' then
begin
j1:=j1+1;
j2:=j2+1;
end
else {logdisk[i].drive<>'$'}
begin
j2:=j2+1;
if logdisk[disk][j2].drive<>'$' then
begin
with logdisk[disk][j1+1] do
begin
drive:=chr(68+j1);
mbytes:=logdisk[disk][j2].mbytes;
usage:=logdisk[disk][j2].usage;
end;
logdisk[disk][j2].drive:='$';
j1:=j1+1;
end; { logdisk[j2].drive<>'$' }
end; {for}
end;
for i:=1 to logt[disk] do
begin
gotoxy(1,4+i);
with logdisk[disk][i] do
write(' ',drive,': ',mbytes,' ',usage,'%');
end;
for i:=logt[disk]+1 to 8 do
begin
gotoxy(1,4+i);
write(' ');
end;
gotoxy(1,5+i);
write(' ');
gotoxy(1,18);
write(' ');
gotoxy(1,19);
write(' Drive letters have been changed or deleted');
gotoxy(1,20);
write(' ');
gotoxy(1,21);
write(' ');
gotoxy(1,24);
write(' ');
gotoxy(1,25);
write(' Press Esc to continue ');
end;
end;
repeat
ch1:=readkey;
until ch1=#27;
goto last;
end; {#27}
'A'..'Z','a'..'z':
begin
write(' ');
gotoxy(1,23);
write(' ');
gotoxy(1,24);
textcolor(15);
write(' ',upcase(ch1),' is not a choice. Please enter ',lf,'-',ll);
end;
else
begin
textcolor(15);
write(' ');
gotoxy(1,23);
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter ',lf,'-',ll,' ');
end;
end;
until (chlast=#13) and (ord(upcase(ch1))>=ord(lf)) and (ord(upcase(ch1))<=ord(ll));
dd:=1;
for i:=1 to dellogt[disk] do
if dl=dellog[i] then dd:=0;
if dd=0 then
begin
gotoxy(65,21);
write(' ');
gotoxy(1,23);
write(' Drive ',dl,': already deleted. ');
goto loopdl;
end;
gotoxy(1,22);
write(' Enter Volume Label..............................?');
textcolor(15);
gotoxy(53,22);
write('[ ]');
gotoxy(54,22);
i:=0;
repeat
ch34:=upcase(readkey);
if i<12 then
case ch34 of
#27:goto last;
'0'..'9','A'..'Z':
if i<11 then
begin
i:=i+1;
gotoxy(53+i,22);
write(ch34);
lab[i]:=ch34;
gotoxy(54+i,22);
end;
#8:
if i>0 then
begin
i:=i-1;
gotoxy(54+i,22);
write(' ');
gotoxy(54+i,22);
end;
end; {case ch34}
until ch34=#13;
if i<>0 then
begin
gotoxy(1,22);
write(' ');
gotoxy(1,23);
write(' Volume label does not match.');
gotoxy(65,21);
write(' ');
gotoxy(65,21);
goto loopdl;
end
else
begin
gotoxy(1,23);
write(' Are you sure (Y/N)..............................?');
textcolor(15);
gotoxy(53,23);
write('[N]');
end;
ch1:='N';
repeat
gotoxy(54,23);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto last;
'Y','N':
begin
gotoxy(1,24);
write(' ');
gotoxy(54,23);
write(ch1);
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter Y-N. ');
gotoxy(54,23);
end;
end; {ch1}
until (chlast=#13) and (ch1 in ['Y','N']);
case ch1 of
'N': begin
gotoxy(1,22);
write(' ');
gotoxy(1,23);
write(' ');
gotoxy(65,21);
write(' ');
goto loopdl;
end;
'Y': begin
dellogt[disk]:=dellogt[disk]+1;
logt[disk]:=logt[disk]-1;
logdisk[disk][ord(dl)-67].drive:='$';
gotoxy(1,5+ord(dl)-ord(lf));
write(' '+dl+': Drive deleted ');
gotoxy(1,22);
write(' ');
gotoxy(1,23);
write(' ');
if logt[disk]=0 then
begin
for i:=18 to 23 do
begin
gotoxy(1,i);
write(' ');
end;
write(' All logical drives deleted in the Extended DOS Partition. ');
gotoxy(1,24);
write(' ');
repeat
ch34:=readkey;
until ch34=#27;
showpgfile('14');
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end;
gotoxy(65,21);
write(' ');
dellog[dellogt[disk]]:=dl;
goto loopdl;
end;
end; {ch1}
end; {---------------------}
'4':{if nondosexist then}
begin
gotoxy(1,18);
write(' ');
gotoxy(1,23);
textcolor(15);
write(' No Non-DOS Partition to delete.');
gotoxy(1,25);
textcolor(7);
write(' Press to continue ');
gotoxy(9,25);
textcolor(15);
write('Esc');
gotoxy(24,25);
repeat
ch34:=readkey;
until ch34=#27;
goto last;
end;
end;
end;
end;
'4': {Display Partition --------------------------------------------- }
for disk:=1 to disks do
begin
if (drive[disk]>0) then
begin
showpage(4,page4);
gotoxy(1,10);
write(' C: 1 A PRI DOS 1020 FAT16 16%');
gotoxy(1,11);
write(' 2 EXT DOS 1020 FAT16 16%');
gotoxy(23,15);
wwrite(ia(tsiz[disk]),5);
gotoxy(44,10);
swrite(' '+ia(psiz[disk]));
gotoxy(63,10);
swrite(' '+ra(1.0*psiz[disk]*100/tsiz[disk],0,0));
gotoxy(44,11);
swrite(' '+ia(esiz[disk]));
gotoxy(63,11);
swrite(' '+ra(1.0*esiz[disk]*100/tsiz[disk],0,0));
gotoxy(19,10); swrite(' ');
gotoxy(26,25);
{ drive[disk]:=1;}
gotoxy(29,7);
textcolor(11);
swrite(ia(disk));
end;
{ showdrives(disk);
readkey; }
{ if drive[disk]>0 then
showpartition(disk);}
ch1:='Y';
repeat
gotoxy(69,19);
chlast:=readkey;
if chlast<>#13 then ch1:=upcase(chlast);
case ch1 of
#27:goto loop;
'Y','N':
begin
gotoxy(1,24);
write(' ');
gotoxy(69,19);
write(ch1);
end;
else
begin
write(' ');
gotoxy(1,24);
textcolor(15);
write(' Invalid entry, please enter Y-N. ');
gotoxy(70,19);
end;
end; {ch1}
until (chlast=#13) and (ch1 in ['Y','N']);
case ch1 of
'N': goto loop;
'Y': begin
showpage(41,page41);
gotoxy(29,7);
textcolor(11);
swrite(ia(disk));
showlogicdrive(disk);
repeat
gotoxy(24,25);
ch34:=readkey;
until ch34=#27;
goto loop;
end;
end; {ch1}
end; {case '4'}
'5':if disks>1 then
begin {change DISK ----------------------------------------------}
showpgfile('0');
gotoxy(64,22);
ch:='1';
readch(['1'..'2'],ch);
disk:=ord(ch)-48;
goto loop;
end;
#27:
begin
savedata;
clrscr;
gotoxy(1,1);
getdir(0,s);
writeln(s,'>');
halt;
end;
end; {ch}
{ if cmd=#27 then
begin
savedata;
clrscr;
gotoxy(1,1);
getdir(0,s);
writeln(s,'>');
halt;
end; }
until false; {(cmd in ['1'..'5',#27]);}
clrscr;
until cmd=#27;
write('>');
last:
for i:=1 to disks do
begin
if pridisk[i].drive='$' then
begin
psiz[i]:=0; drive[i]:=0;
pricreated:=false; remainder[i]:=tsiz[i];
end
else if extdisk[i].drive='$' then
begin
esiz[i]:=0; drive[i]:=1;
extcreated:=false; remainder[i]:=tsiz[i]-psiz[i];
end
else
begin
drive[i]:=logt[i]+1;
remainder[i]:=esiz[i];
for j:=2 to drive[i] do
begin
dsiz[i,j]:=logdisk[i,j].mbytes;
remainder[i]:=remainder[i]-dsiz[i,j];
end;
end;
end;
goto loop;
end.