|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2560 (0xa00)
Types: TextFile
Names: »TEGN604.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »TEGN604.PAS«
procedure diskmenu(var xin,yin:integer);
begin
ordre('DISK','');
fjern(4560,20599,7000,29000);
if (farveskaerm and not skaerm22khz) then x:=0 else x:=3000;
gtext(x+5400,27000,'GEM BILLEDE');
gtext(x+5400,24000,'GEM DEL-BILLEDE');
gtext(x+5400,21000,'HENT BILLEDE');
gtext(x+5400,18000,'HENT DEL-BILLEDE');
gtext(x+5400,15000,'SLET BILLEDE');
gtext(x+5400,12000,'SLET DEL-BILLEDE');
gtext(x+5400,9000,'VÆLG DISK');
xin:=xout;yin:=yout;
repeat
rqlocator(2,xin,yin,status,term,xout,yout);
xin:=xout;yin:=yout;
until ((yout>=7000) and (yout<=29000) and (xout>=5000) and (xout<=18500)) or (term=33);
retur(4560,20599,7000,29000);
if term=32 then begin
case yout of
7000..10499: begin
ordre('TAST DISK','A....P');
repeat
gotoxy(45,2);
read(KBD,diskdrev);
diskdrev:=chr(ord(diskdrev)-32);
until (diskdrev in (.'A'..'P'.));
skriv_diskdrev(diskdrev);
end;
11500..13499:begin
slet_pixelbillede('.D60');
end;
13500..16499: begin
slet_pixelbillede('.P60');
end;
16500..19499: begin
hent_delbillede;
end;
19500..22499: begin
hent_pixelbillede;
end;
22500..25499: begin
gem_delbillede;
end;
25500..29000:begin
gem_pixelbillede;
end;
otherwise
dyt;
end;
end;
end; «eof»