DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦9b5bf8176⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »TEGN604.PAS«

Derivation

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »TEGN604.PAS« 

TextFile

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»