|
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: 16768 (0x4180) Names: »TEGN603.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline) └─⟦this⟧ »TEGN603.PAS«
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…]