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

⟦e393ad799⟧

    Length: 16768 (0x4180)
    Names: »TEGN603.PAS«

Derivation

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

Hex Dump

0x0000…0020 (0,)  70 72 6f 63 65 64 75 72 65 20 76 61 65 6c 67 5f 72 65 74 75 72 6d 6f 64 65 28 76 61 72 20 78 69   ┆procedure vaelg_returmode(var xi┆
0x0020…0040       6e 2c 79 69 6e 3a 69 6e 74 65 67 65 72 3b 76 61 72 20 72 65 74 75 72 6d 6f 64 65 3a 62 79 74 65   ┆n,yin:integer;var returmode:byte┆
0x0040…0060       29 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 66 6a 65 72 6e 28 31 30 30 30 30 2c 32 31 35 30 30   ┆);    begin    fjern(10000,21500┆
0x0060…0080       2c 32 30 30 30 30 2c 32 38 30 30 30 29 3b 0d 0a 20 20 69 66 20 66 61 72 76 65 73 6b 61 65 72 6d   ┆,20000,28000);    if farveskaerm┆
0x0080…00a0       20 61 6e 64 20 28 6e 6f 74 20 73 6b 61 65 72 6d 32 32 6b 68 7a 29 20 74 68 65 6e 20 62 65 67 69   ┆ and (not skaerm22khz) then begi┆
0x00a0…00c0       6e 0d 0a 20 20 20 67 74 65 78 74 28 31 34 30 30 30 2c 32 35 30 30 30 2c 27 42 4c 4f 4b 27 29 3b   ┆n     gtext(14000,25000,'BLOK');┆
0x00c0…00e0       0d 0a 20 20 20 67 74 65 78 74 28 31 31 30 30 30 2c 32 32 30 30 30 2c 27 54 52 41 4e 53 50 41 52   ┆     gtext(11000,22000,'TRANSPAR┆
0x00e0…0100       45 4e 54 27 29 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 67 74 65   ┆ENT');    end else begin     gte┆
0x0100…0120       78 74 28 31 34 35 30 30 2c 32 35 30 30 30 2c 27 42 4c 4f 4b 27 29 3b 0d 0a 20 20 20 67 74 65 78   ┆xt(14500,25000,'BLOK');     gtex┆
0x0120…0140       74 28 31 33 30 30 30 2c 32 32 30 30 30 2c 27 54 52 41 4e 53 50 41 52 45 4e 54 27 29 3b 0d 0a 20   ┆t(13000,22000,'TRANSPARENT');   ┆
0x0140…0160       20 65 6e 64 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72   ┆ end;     repeat       rqlocator┆
0x0160…0180       28 32 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74   ┆(2,xin,yin,status,term,xout,yout┆
0x0180…01a0       29 3b 0d 0a 20 20 20 20 20 78 69 6e 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d 0a 20   ┆);       xin:=xout;yin:=yout;   ┆
0x01a0…01c0       20 20 75 6e 74 69 6c 20 28 28 79 6f 75 74 3e 3d 32 30 30 30 30 29 20 61 6e 64 20 28 79 6f 75 74   ┆  until ((yout>=20000) and (yout┆
0x01c0…01e0       3c 3d 32 38 30 30 30 29 20 61 6e 64 20 20 28 78 6f 75 74 3e 3d 31 30 30 30 30 29 20 61 6e 64 20   ┆<=28000) and  (xout>=10000) and ┆
0x01e0…0200       28 78 6f 75 74 3c 3d 32 33 30 30 30 29 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20   ┆(xout<=23000)) or (term=33);    ┆
0x0200…0220       20 72 65 74 75 72 28 31 30 30 30 30 2c 32 31 35 30 30 2c 32 30 30 30 30 2c 32 38 30 30 30 29 3b   ┆ retur(10000,21500,20000,28000);┆
0x0220…0240       0d 0a 20 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 65 6e 20 0d 0a 20 20 20 20 62 65 67 69   ┆     if term<>33 then       begi┆
0x0240…0260       6e 0d 0a 20 20 20 20 20 20 63 61 73 65 20 79 6f 75 74 20 6f 66 0d 0a 20 20 20 20 20 20 32 33 35   ┆n        case yout of        235┆
0x0260…0280       30 30 2e 2e 32 38 30 30 30 3a 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆00..28000:begin                 ┆
0x0280…02a0       20 20 20 20 20 72 65 74 75 72 6d 6f 64 65 3a 3d 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   ┆     returmode:=1;              ┆
0x02a0…02c0       20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 32 30 35 30 30 2e 2e 32 33 34 39 39 3a   ┆       end;        20500..23499:┆
0x02c0…02e0       62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72   ┆begin                      retur┆
0x02e0…0300       6d 6f 64 65 3a 3d 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64   ┆mode:=2;                     end┆
0x0300…0320       3b 0d 0a 20 20 20 20 20 20 6f 74 68 65 72 77 69 73 65 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a   ┆;        otherwise        end;  ┆
0x0320…0340       20 20 20 20 65 6e 64 20 65 6c 73 65 20 72 65 74 75 72 6d 6f 64 65 3a 3d 31 3b 0d 0a 65 6e 64 3b   ┆    end else returmode:=1;  end;┆
0x0340…0360       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 70 72 6f 63   ┆                            proc┆
0x0360…0380       65 64 75 72 65 20 66 6a 65 72 6e 5f 75 64 65 6e 5f 66 6a 65 72 6e 28 78 6d 69 6e 2c 78 6d 61 78   ┆edure fjern_uden_fjern(xmin,xmax┆
0x0380…03a0       2c 79 6d 69 6e 2c 79 6d 61 78 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 20 0d 0a 20 20   ┆,ymin,ymax:integer);    var     ┆
0x03a0…03c0       67 6c 79 6d 69 6e 2c 73 6f 65 6a 6c 65 2c 68 6f 65 6a 64 65 2c 0d 0a 20 20 67 65 6d 69 6e 64 65   ┆glymin,soejle,hoejde,    geminde┆
0x03c0…03e0       78 2c 6b 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 70 2c 71 20 20 20   ┆x,k         : integer;    p,q   ┆
0x03e0…0400       20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 68 61 72 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a   ┆             :char;      begin  ┆
0x0400…0420 (1,)  20 20 20 70 3a 3d 63 68 72 28 30 29 3b 0d 0a 20 20 20 71 3a 3d 63 68 72 28 32 35 35 29 3b 0d 0a   ┆   p:=chr(0);     q:=chr(255);  ┆
0x0420…0440       20 20 20 67 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d 0a 20 20 20 78 6d 69 6e 3a 3d 33 35 30 2a 72   ┆   glymin:=ymin;     xmin:=350*r┆
0x0440…0460       6f 75 6e 64 28 78 6d 69 6e 2f 37 32 38 29 3b 0d 0a 20 20 20 78 6d 61 78 3a 3d 33 35 30 2a 72 6f   ┆ound(xmin/728);     xmax:=350*ro┆
0x0460…0480       75 6e 64 28 78 6d 61 78 2f 37 32 38 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d 33 34 39 2d 72 6f 75   ┆und(xmax/728);     ymin:=349-rou┆
0x0480…04a0       6e 64 28 79 6d 61 78 2f 39 33 29 3b 0d 0a 20 20 20 79 6d 61 78 3a 3d 33 34 39 2d 72 6f 75 6e 64   ┆nd(ymax/93);     ymax:=349-round┆
0x04a0…04c0       28 67 6c 79 6d 69 6e 2f 39 33 29 3b 0d 0a 20 20 20 68 6f 65 6a 64 65 3a 3d 79 6d 61 78 2d 79 6d   ┆(glymin/93);     hoejde:=ymax-ym┆
0x04c0…04e0       69 6e 3b 0d 0a 20 20 20 73 6f 65 6a 6c 65 3a 3d 78 6d 69 6e 2b 79 6d 69 6e 3b 0d 0a 20 20 20 67   ┆in;     soejle:=xmin+ymin;     g┆
0x04e0…0500       65 6d 69 6e 64 65 78 3a 3d 30 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20   ┆emindex:=0;     repeat          ┆
0x0500…0520       6d 6f 76 65 28 70 69 78 28 2e 73 6f 65 6a 6c 65 2e 29 2c 74 65 6d 70 28 2e 67 65 6d 69 6e 64 65   ┆move(pix(.soejle.),temp(.geminde┆
0x0520…0540       78 2e 29 2c 32 2a 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 6f 65 6a 6c 65 3a 3d   ┆x.),2*hoejde);          soejle:=┆
0x0540…0560       73 6f 65 6a 6c 65 2b 33 35 30 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 67   ┆soejle+350;          gemindex:=g┆
0x0560…0580       65 6d 69 6e 64 65 78 2b 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 73 6f 65 6a 6c 65   ┆emindex+hoejde;     until soejle┆
0x0580…05a0       3e 78 6d 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88   ┆>xmax;  end;  (*                ┆
0x05a0…05c0       88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 70 72 6f 63 65   ┆                       *)  proce┆
0x05c0…05e0       64 75 72 65 20 67 65 6d 5f 70 69 78 65 6c 62 69 6c 6c 65 64 65 3b 0d 0a 0d 0a 76 61 72 0d 0a 20   ┆dure gem_pixelbillede;    var   ┆
0x05e0…0600       20 73 74 72 65 6e 67 66 69 6c 20 20 20 20 20 20 20 20 20 20 3a 20 73 74 72 65 6e 67 38 3b 0d 0a   ┆ strengfil          : streng8;  ┆
0x0600…0620       0d 0a 62 65 67 69 6e 0d 0a 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 20 42 49 4c 4c 45 44 45   ┆  begin       ordre('GEM BILLEDE┆
0x0620…0640       27 2c 27 46 49 4c 4e 41 56 4e 20 3f 27 29 3b 0d 0a 20 20 20 20 20 53 65 74 46 75 6e 6b 54 61 73   ┆','FILNAVN ?');       SetFunkTas┆
0x0640…0660       74 65 72 3b 0d 0a 20 20 20 20 20 69 66 20 28 66 61 72 76 65 73 6b 61 65 72 6d 29 20 74 68 65 6e   ┆ter;       if (farveskaerm) then┆
0x0660…0680       20 0d 0a 20 20 20 20 20 49 6e 70 75 74 53 74 72 65 6e 67 28 33 30 2c 31 2c 38 2c 32 2c 54 52 55   ┆        InputStreng(30,1,8,2,TRU┆
0x0680…06a0       45 2c 73 74 72 65 6e 67 66 69 6c 29 0d 0a 20 20 20 20 20 65 6c 73 65 20 69 6e 70 75 74 73 74 72   ┆E,strengfil)       else inputstr┆
0x06a0…06c0       65 6e 67 28 34 35 2c 31 2c 38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 20 3b 0d 0a   ┆eng(45,1,8,2,TRUE,strengfil) ;  ┆
0x06c0…06e0       20 20 20 20 20 69 66 20 28 73 74 72 65 6e 67 66 69 6c 3c 3e 40 32 37 29 20 74 68 65 6e 0d 0a 20   ┆     if (strengfil<>@27) then   ┆
0x06e0…0700       20 20 20 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 74 6a 65 6b 6e 61   ┆    begin          if not tjekna┆
0x0700…0720       76 6e 28 73 74 72 65 6e 67 66 69 6c 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 62 65 67 69 6e   ┆vn(strengfil) then         begin┆
0x0720…0740       0d 0a 20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 27 2c 27 55 4c 4f 56 4c 49 47 54 20 4e   ┆         ordre('GEM','ULOVLIGT N┆
0x0740…0760       41 56 4e 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e   ┆AVN !');         rqlocator(1,xin┆
0x0760…0780       2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20   ┆,yin,status,term,xout,yout);    ┆
0x0780…07a0       20 20 20 20 20 67 65 6d 5f 70 69 78 65 6c 62 69 6c 6c 65 64 65 3b 0d 0a 20 20 20 20 20 20 65 6e   ┆     gem_pixelbillede;        en┆
0x07a0…07c0       64 20 65 6c 73 65 20 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 66 69 6c   ┆d else         begin         fil┆
0x07c0…07e0       6e 61 76 6e 73 74 72 65 6e 67 3a 3d 64 69 73 6b 64 72 65 76 2b 27 3a 27 2b 73 74 72 65 6e 67 66   ┆navnstreng:=diskdrev+':'+strengf┆
0x07e0…0800       69 6c 2b 27 2e 50 36 30 27 3b 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 69 66 20   ┆il+'.P60';                   if ┆
0x0800…0820 (2,)  66 69 6c 66 69 6e 64 65 73 5f 69 6e 74 65 67 65 72 28 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 29   ┆filfindes_integer(filnavnstreng)┆
0x0820…0840       20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 6f 72   ┆ then         begin           or┆
0x0840…0860       64 72 65 28 27 47 45 4d 27 2c 27 42 69 6c 6c 65 64 6e 61 76 6e 20 66 69 6e 64 65 73 20 21 27 29   ┆dre('GEM','Billednavn findes !')┆
0x0860…0880       3b 0d 0a 20 20 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c   ┆;           rqlocator(1,xin,yin,┆
0x0880…08a0       73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 20   ┆status,term,xout,yout);         ┆
0x08a0…08c0       20 20 67 65 6d 5f 70 69 78 65 6c 62 69 6c 6c 65 64 65 3b 0d 0a 20 20 20 20 20 20 20 65 6e 64 20   ┆  gem_pixelbillede;         end ┆
0x08c0…08e0       65 6c 73 65 20 0d 0a 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 69 66   ┆else          begin           if┆
0x08e0…0900       20 73 70 61 63 65 28 64 69 73 6b 64 72 65 76 29 3e 33 30 20 74 68 65 6e 20 0d 0a 20 20 20 20 20   ┆ space(diskdrev)>30 then        ┆
0x0900…0920       20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 61 73 73 69 67 6e 28 66 69 6c   ┆    begin             assign(fil┆
0x0920…0940       6e 61 76 6e 32 2c 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 29 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆navn2,filnavnstreng);           ┆
0x0940…0960       20 20 72 65 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 29 20 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆  rewrite(filnavn2) ;           ┆
0x0960…0980       20 20 6f 72 64 72 65 28 27 47 45 4d 27 2c 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 2b 27 20 67 65   ┆  ordre('GEM',filnavnstreng+' ge┆
0x0980…09a0       6d 6d 65 73 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6a 65 72 6e 5f 75 64 65 6e 5f 66   ┆mmes');             fjern_uden_f┆
0x09a0…09c0       6a 65 72 6e 28 30 2c 33 32 37 36 30 2c 30 2c 32 39 36 39 36 29 3b 0d 0a 20 20 20 20 20 20 20 20   ┆jern(0,32760,0,29696);          ┆
0x09c0…09e0       20 20 20 62 72 65 64 64 65 3a 3d 72 6f 75 6e 64 28 33 32 37 36 30 2f 37 32 38 29 3b 68 6f 65 6a   ┆   bredde:=round(32760/728);hoej┆
0x09e0…0a00       64 65 3a 3d 72 6f 75 6e 64 28 32 39 36 39 36 2f 39 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆de:=round(29696/93);            ┆
0x0a00…0a20       20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 62 72 65 64 64 65 29 3b 0d 0a 20 20 20 20 20 20   ┆ write(filnavn2,bredde);        ┆
0x0a20…0a40       20 20 20 20 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 68 6f 65 6a 64 65 29 3b 0d 0a 20 20   ┆     write(filnavn2,hoejde);    ┆
0x0a40…0a60       20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 30 20 74 6f 20 62 72 65 64 64 65 2a 68 6f 65 6a   ┆         for n:=0 to bredde*hoej┆
0x0a60…0a80       64 65 20 64 6f 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 74 65 6d 70 28 2e 6e 2e 29 29 3b   ┆de do write(filnavn2,temp(.n.));┆
0x0a80…0aa0       0d 0a 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 66 69 6c 6e 61 76 6e 32 29 3b 0d 0a 20   ┆             close(filnavn2);   ┆
0x0aa0…0ac0       20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 28 30 2c 33 32 37 36 30 2c 30 2c 32 39 36 39 36 29   ┆          retur(0,32760,0,29696)┆
0x0ac0…0ae0       3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20   ┆;           end else begin      ┆
0x0ae0…0b00       20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 27 2c 27 44 49 53 4b 45 4e 20 45 52 20 46 55   ┆       ordre('GEM','DISKEN ER FU┆
0x0b00…0b20       4c 44 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c   ┆LD !');             rqlocator(1,┆
0x0b20…0b40       78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d   ┆xin,yin,status,term,xout,yout); ┆
0x0b40…0b60       0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20   ┆          end;         end;     ┆
0x0b60…0b80       20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 20 20 20 20 0d 0a 28   ┆    end;       end;  end;      (┆
0x0b80…0ba0       2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88   ┆*                               ┆
0x0ba0…0bc0       88 88 88 88 88 88 88 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 67 65 6d 5f 64 65 6c 62 69 6c   ┆        *)  procedure gem_delbil┆
0x0bc0…0be0       6c 65 64 65 3b 0d 0a 76 61 72 0d 0a 20 20 6c 69 6e 69 65 2c 68 75 73 6b 6c 69 6e 69 65 20 3a 20   ┆lede;  var    linie,husklinie : ┆
0x0be0…0c00       61 72 72 61 79 28 2e 31 2e 2e 35 2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 73 74 72 65 6e 67   ┆array(.1..5.) of coor;    streng┆
0x0c00…0c20 (3,)  66 69 6c 3a 73 74 72 65 6e 67 38 3b 0d 0a 20 20 66 6c 61 67 20 20 20 20 20 20 20 20 20 20 20 20   ┆fil:streng8;    flag            ┆
0x0c20…0c40       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 62 6f 6f 6c 65 61 6e 3b   ┆                      : boolean;┆
0x0c40…0c60       0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27   ┆      begin    ordre('GEM DEL','┆
0x0c60…0c80       27 29 3b 0d 0a 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20   ┆');    flag:=false;    repeat   ┆
0x0c80…0ca0       20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c   ┆   begin        rqlocator(1,xin,┆
0x0ca0…0cc0       79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20   ┆yin,status,term,xout,yout);     ┆
0x0cc0…0ce0       20 20 20 69 66 20 28 78 69 6e 3d 78 6f 75 74 29 20 61 6e 64 20 28 79 69 6e 3d 79 6f 75 74 29 20   ┆   if (xin=xout) and (yin=yout) ┆
0x0ce0…0d00       74 68 65 6e 20 66 6c 61 67 3a 3d 66 61 6c 73 65 20 65 6c 73 65 20 66 6c 61 67 3a 3d 74 72 75 65   ┆then flag:=false else flag:=true┆
0x0d00…0d20       3b 0d 0a 20 20 20 20 20 20 78 6f 75 74 3a 3d 37 32 38 2a 28 72 6f 75 6e 64 28 78 6f 75 74 2f 37   ┆;        xout:=728*(round(xout/7┆
0x0d20…0d40       32 38 29 29 3b 0d 0a 20 20 20 20 20 20 79 6f 75 74 3a 3d 39 33 2a 28 72 6f 75 6e 64 28 79 6f 75   ┆28));        yout:=93*(round(you┆
0x0d40…0d60       74 2f 39 33 29 29 3b 0d 0a 20 20 20 20 20 20 79 69 6e 3a 3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 6f   ┆t/93));        yin:=yout;xin:=xo┆
0x0d60…0d80       75 74 3b 0d 0a 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3a 3d 78 6f 75 74 3b 6c 69   ┆ut;        linie(.1.).x:=xout;li┆
0x0d80…0da0       6e 69 65 28 2e 31 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 75   ┆nie(.1.).y:=yout;      end;    u┆
0x0da0…0dc0       6e 74 69 6c 20 28 28 79 6f 75 74 3c 3d 32 39 38 35 30 29 20 61 6e 64 20 66 6c 61 67 29 20 6f 72   ┆ntil ((yout<=29850) and flag) or┆
0x0dc0…0de0       20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 65 6e 20   ┆ (term=33);    if term<>33 then ┆
0x0de0…0e00       62 65 67 69 6e 0d 0a 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 69 6e   ┆begin      writemode(3);      in┆
0x0e00…0e20       70 75 74 6d 6f 64 65 28 31 2c 32 29 3b 0d 0a 20 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74   ┆putmode(1,2);      linecolor(akt┆
0x0e20…0e40       75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 3a 3d 6c 69 6e   ┆uel_farve);      linie(.2.):=lin┆
0x0e40…0e60       69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 33 2e 29 3a 3d 6c 69 6e 69 65 28   ┆ie(.1.);      linie(.3.):=linie(┆
0x0e60…0e80       2e 31 2e 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 34 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e   ┆.1.);      linie(.4.):=linie(.1.┆
0x0e80…0ea0       29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 35 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d   ┆);      linie(.5.):=linie(.1.); ┆
0x0ea0…0ec0       0a 20 20 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20   ┆     flag:=false;      repeat   ┆
0x0ec0…0ee0       20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c   ┆     rqlocator(1,xin,yin,status,┆
0x0ee0…0f00       74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 63 6f 6e 74 72   ┆term,xout,yout);        if contr┆
0x0f00…0f20       6c 28 2e 33 2e 29 3e 30 0d 0a 20 20 20 20 20 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 62 65   ┆l(.3.)>0        then          be┆
0x0f20…0f40       67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 35 2c 6c 69 6e 69 65 29   ┆gin            polyline(5,linie)┆
0x0f40…0f60       3b 0d 0a 20 20 20 20 20 20 20 20 20 20 78 6f 75 74 3a 3d 37 32 38 2a 28 72 6f 75 6e 64 28 78 6f   ┆;            xout:=728*(round(xo┆
0x0f60…0f80       75 74 2f 37 32 38 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 79 6f 75 74 3a 3d 39 33 2a 28 72   ┆ut/728));            yout:=93*(r┆
0x0f80…0fa0       6f 75 6e 64 28 79 6f 75 74 2f 39 33 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65   ┆ound(yout/93));            linie┆
0x0fa0…0fc0       28 2e 32 2e 29 2e 78 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28   ┆(.2.).x:=xout;            linie(┆
0x0fc0…0fe0       2e 32 2e 29 2e 79 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆.2.).y:=linie(.1.).y;           ┆
0x0fe0…1000       20 6c 69 6e 69 65 28 2e 33 2e 29 2e 78 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3b 0d 0a 20 20   ┆ linie(.3.).x:=linie(.2.).x;    ┆
0x1000…1020 (4,)  20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 33 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20   ┆        linie(.3.).y:=yout;     ┆
0x1020…1040       20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 34 2e 29 2e 78 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 2e   ┆       linie(.4.).x:=linie(.1.).┆
0x1040…1060       78 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 34 2e 29 2e 79 3a 3d 79 6f 75 74   ┆x;            linie(.4.).y:=yout┆
0x1060…1080       3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 35 2e 29 3a 3d 6c 69 6e 69 65 28 2e   ┆;            linie(.5.):=linie(.┆
0x1080…10a0       31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 35 2c 6c 69 6e 69 65   ┆1.);            polyline(5,linie┆
0x10a0…10c0       29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 78 69 6e 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75   ┆);            xin:=xout;yin:=you┆
0x10c0…10e0       74 3b 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 69 66 20 74 65 72 6d 3d   ┆t;          end;        if term=┆
0x10e0…1100       33 32 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 66 6c 61 67 3a 3d 74 72 75 65   ┆32 then begin         flag:=true┆
0x1100…1120       3b 0d 0a 20 20 20 20 20 20 20 68 75 73 6b 6c 69 6e 69 65 3a 3d 6c 69 6e 69 65 3b 0d 0a 20 20 20   ┆;         husklinie:=linie;     ┆
0x1120…1140       20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d 74 72 75 65 3b 0d 0a 20   ┆   end;      until flag=true;   ┆
0x1140…1160       20 70 6f 6c 79 6c 69 6e 65 28 35 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 77 72 69 74 65 6d 6f 64 65   ┆ polyline(5,linie);    writemode┆
0x1160…1180       28 31 29 3b 0d 0a 20 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 31 29 3b 0d 0a 20 20 62 72 65 64 64   ┆(1);    inputmode(1,1);    bredd┆
0x1180…11a0       65 3a 3d 61 62 73 28 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 2d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78   ┆e:=abs(linie(.1.).x-linie(.2.).x┆
0x11a0…11c0       29 3b 0d 0a 20 20 68 6f 65 6a 64 65 3a 3d 61 62 73 28 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 2d 6c   ┆);    hoejde:=abs(linie(.1.).y-l┆
0x11c0…11e0       69 6e 69 65 28 2e 34 2e 29 2e 79 29 3b 0d 0a 20 20 78 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e 31 2e   ┆inie(.4.).y);    xmin:=linie(.1.┆
0x11e0…1200       29 2e 78 3b 79 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 3b 0d 0a 20 20 69 66 20 78 6d   ┆).x;ymin:=linie(.1.).y;    if xm┆
0x1200…1220       69 6e 3e 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 20 74 68 65 6e 20 78 6d 69 6e 3a 3d 6c 69 6e 69 65   ┆in>linie(.2.).x then xmin:=linie┆
0x1220…1240       28 2e 32 2e 29 2e 78 3b 0d 0a 20 20 69 66 20 79 6d 69 6e 3e 6c 69 6e 69 65 28 2e 33 2e 29 2e 79   ┆(.2.).x;    if ymin>linie(.3.).y┆
0x1240…1260       20 74 68 65 6e 20 79 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e 33 2e 29 2e 79 3b 0d 0a 20 20 66 6a 65   ┆ then ymin:=linie(.3.).y;    fje┆
0x1260…1280       72 6e 5f 75 64 65 6e 5f 66 6a 65 72 6e 28 78 6d 69 6e 2c 78 6d 69 6e 2b 62 72 65 64 64 65 2c 79   ┆rn_uden_fjern(xmin,xmin+bredde,y┆
0x1280…12a0       6d 69 6e 2c 79 6d 69 6e 2b 68 6f 65 6a 64 65 29 3b 28 2a 6b 6f 70 69 2a 29 0d 0a 20 20 6f 72 64   ┆min,ymin+hoejde);(*kopi*)    ord┆
0x12a0…12c0       72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27 46 49 4c 4e 41 56 4e 20 3f 27 29 3b 0d 0a 20 20 53 65   ┆re('GEM DEL','FILNAVN ?');    Se┆
0x12c0…12e0       74 46 75 6e 6b 54 61 73 74 65 72 3b 0d 0a 20 20 69 66 20 28 66 61 72 76 65 73 6b 61 65 72 6d 29   ┆tFunkTaster;    if (farveskaerm)┆
0x12e0…1300       20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 49 6e 70 75 74 53 74 72 65 6e 67 28 33 30 2c 31 2c   ┆ then begin    InputStreng(30,1,┆
0x1300…1320       38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20   ┆8,2,TRUE,strengfil)    end else ┆
0x1320…1340       62 65 67 69 6e 0d 0a 20 20 69 6e 70 75 74 73 74 72 65 6e 67 28 34 35 2c 31 2c 38 2c 32 2c 54 52   ┆begin    inputstreng(45,1,8,2,TR┆
0x1340…1360       55 45 2c 73 74 72 65 6e 67 66 69 6c 29 20 65 6e 64 3b 0d 0a 20 20 62 72 65 64 64 65 3a 3d 72 6f   ┆UE,strengfil) end;    bredde:=ro┆
0x1360…1380       75 6e 64 28 62 72 65 64 64 65 2f 37 32 38 29 3b 68 6f 65 6a 64 65 3a 3d 72 6f 75 6e 64 28 68 6f   ┆und(bredde/728);hoejde:=round(ho┆
0x1380…13a0       65 6a 64 65 2f 39 33 29 3b 0d 0a 20 20 69 66 20 28 73 74 72 65 6e 67 66 69 6c 3c 3e 40 32 37 29   ┆ejde/93);    if (strengfil<>@27)┆
0x13a0…13c0       20 74 68 65 6e 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 74 6a 65 6b   ┆ then begin          if not tjek┆
0x13c0…13e0       6e 61 76 6e 28 73 74 72 65 6e 67 66 69 6c 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 62 65 67   ┆navn(strengfil) then         beg┆
0x13e0…1400       69 6e 0d 0a 20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 27 2c 27 55 4c 4f 56 4c 49 47 54   ┆in         ordre('GEM','ULOVLIGT┆
0x1400…1420 (5,)  20 4e 41 56 4e 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78   ┆ NAVN !');         rqlocator(1,x┆
0x1420…1440       69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a   ┆in,yin,status,term,xout,yout);  ┆
0x1440…1460       20 20 20 20 20 20 20 67 65 6d 5f 64 65 6c 62 69 6c 6c 65 64 65 3b 0d 0a 20 20 20 20 20 20 65 6e   ┆       gem_delbillede;        en┆
0x1460…1480       64 20 65 6c 73 65 20 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 66 69 6c   ┆d else         begin         fil┆
0x1480…14a0       6e 61 76 6e 73 74 72 65 6e 67 3a 3d 64 69 73 6b 64 72 65 76 2b 27 3a 27 2b 73 74 72 65 6e 67 66   ┆navnstreng:=diskdrev+':'+strengf┆
0x14a0…14c0       69 6c 2b 27 2e 44 36 30 27 3b 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 69 66 20   ┆il+'.D60';                   if ┆
0x14c0…14e0       6e 6f 74 20 66 69 6c 66 69 6e 64 65 73 5f 69 6e 74 65 67 65 72 28 66 69 6c 6e 61 76 6e 73 74 72   ┆not filfindes_integer(filnavnstr┆
0x14e0…1500       65 6e 67 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 69 66 20 73 70 61 63 65   ┆eng) then begin         if space┆
0x1500…1520       28 64 69 73 6b 64 72 65 76 29 3e 33 35 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20   ┆(diskdrev)>35 then begin        ┆
0x1520…1540       20 61 73 73 69 67 6e 28 66 69 6c 6e 61 76 6e 32 2c 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 29 3b   ┆ assign(filnavn2,filnavnstreng);┆
0x1540…1560       0d 0a 20 20 20 20 20 20 20 72 65 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 29 3b 0d 0a 20 20 20   ┆         rewrite(filnavn2);     ┆
0x1560…1580       20 20 20 20 73 6c 65 74 73 74 61 74 75 73 3b 0d 0a 20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47   ┆    sletstatus;         ordre('G┆
0x1580…15a0       45 4d 20 44 45 4c 27 2c 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 2b 27 20 67 65 6d 6d 65 73 27 29   ┆EM DEL',filnavnstreng+' gemmes')┆
0x15a0…15c0       3b 0d 0a 20 20 20 20 20 20 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 62 72 65 64 64 65 29   ┆;         write(filnavn2,bredde)┆
0x15c0…15e0       3b 0d 0a 20 20 20 20 20 20 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 68 6f 65 6a 64 65 29   ┆;         write(filnavn2,hoejde)┆
0x15e0…1600       3b 0d 0a 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 30 20 74 6f 20 62 72 65 64 64 65 2a 68 6f 65   ┆;         for n:=0 to bredde*hoe┆
0x1600…1620       6a 64 65 20 64 6f 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 74 65 6d 70 28 2e 6e 2e 29 29   ┆jde do write(filnavn2,temp(.n.))┆
0x1620…1640       3b 0d 0a 20 20 20 20 20 20 20 63 6c 6f 73 65 28 66 69 6c 6e 61 76 6e 32 29 3b 0d 0a 20 20 20 20   ┆;         close(filnavn2);      ┆
0x1640…1660       20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6f 72 64 72   ┆ end else begin             ordr┆
0x1660…1680       65 28 27 47 45 4d 20 44 45 4c 27 2c 27 44 49 53 4b 45 4e 20 45 52 20 46 55 4c 44 20 21 27 29 3b   ┆e('GEM DEL','DISKEN ER FULD !');┆
0x1680…16a0       0d 0a 20 20 20 20 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e   ┆             rqlocator(1,xin,yin┆
0x16a0…16c0       2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 65   ┆,status,term,xout,yout);       e┆
0x16c0…16e0       6e 64 3b 0d 0a 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20   ┆nd;       end else begin        ┆
0x16e0…1700       20 6f 72 64 72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27 42 69 6c 6c 65 64 6e 61 76 6e 20 66 69 6e   ┆ ordre('GEM DEL','Billednavn fin┆
0x1700…1720       64 65 73 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e   ┆des !');         rqlocator(1,xin┆
0x1720…1740       2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20   ┆,yin,status,term,xout,yout);    ┆
0x1740…1760       20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 0d 0a 20 20 20 65 6e 64 3b 20 20 20 0d 0a 20 20 65 6e   ┆     end;          end;       en┆
0x1760…1780       64 3b 0d 0a 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88   ┆d;  end;  end;    (*            ┆
0x1780…17a0       88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 0d   ┆                           *)   ┆
0x17a0…17c0       0a 70 72 6f 63 65 64 75 72 65 20 68 65 6e 74 5f 64 65 6c 62 69 6c 6c 65 64 65 3b 0d 0a 0d 0a 76   ┆ procedure hent_delbillede;    v┆
0x17c0…17e0       61 72 0d 0a 20 20 76 69 73 74 5f 66 69 6c 6e 61 76 6e 20 20 20 20 20 20 20 3a 20 61 72 72 61 79   ┆ar    vist_filnavn       : array┆
0x17e0…1800       28 2e 31 2e 2e 31 33 2e 29 20 6f 66 20 73 74 72 65 6e 67 38 3b 0d 0a 20 20 6c 69 6e 69 65 20 20   ┆(.1..13.) of streng8;    linie  ┆
0x1800…1820 (6,)  20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 35 2e 29 20 6f 66 20 63   ┆            : array(.1..5.) of c┆
0x1820…1840       6f 6f 72 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65 28 27 48 45 4e 54 20 44   ┆oor;      begin    ordre('HENT D┆
0x1840…1860       45 4c 27 2c 27 20 27 29 3b 0d 0a 20 20 76 61 65 6c 67 5f 72 65 74 75 72 6d 6f 64 65 28 78 6f 75   ┆EL',' ');    vaelg_returmode(xou┆
0x1860…1880       74 2c 79 6f 75 74 2c 72 65 74 75 72 6d 6f 64 65 29 3b 0d 0a 20 20 6f 72 64 72 65 28 27 48 45 4e   ┆t,yout,returmode);    ordre('HEN┆
0x1880…18a0       54 20 44 45 4c 27 2c 27 20 20 46 49 4c 4e 41 56 4e 45 20 50 5d 20 27 2b 64 69 73 6b 64 72 65 76   ┆T DEL','  FILNAVNE PÅ '+diskdrev┆
0x18a0…18c0       2b 27 3a 27 29 3b 0d 0a 20 20 74 65 78 74 63 6f 6c 6f 72 28 31 29 3b 0d 0a 20 20 66 6a 65 72 6e   ┆+':');    textcolor(1);    fjern┆
0x18c0…18e0       28 31 34 33 36 30 2c 32 33 33 39 39 2c 30 2c 32 39 30 30 30 29 3b 0d 0a 20 20 68 65 6e 74 66 69   ┆(14360,23399,0,29000);    hentfi┆
0x18e0…1900       6c 6e 61 76 6e 65 28 64 69 73 6b 64 72 65 76 2c 27 3f 3f 3f 3f 3f 3f 3f 3f 27 2c 27 44 36 30 27   ┆lnavne(diskdrev,'????????','D60'┆
0x1900…1920       2c 64 69 73 6b 6f 6b 29 3b 0d 0a 20 20 69 66 20 28 6e 6f 74 28 64 69 73 6b 6f 6b 29 29 20 74 68   ┆,diskok);    if (not(diskok)) th┆
[…truncated at 200 lines…]