|
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»