|
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: 18048 (0x4680)
Names: »TEGN003.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »TEGN003.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 72 65 74 75 72 6d 6f 64 65 3a 3d 31 3b 0d 0a 20 20 20 20 20 20 32 ┆00..28000:returmode:=1; 2┆
0x0280…02a0 30 35 30 30 2e 2e 32 33 34 39 39 3a 72 65 74 75 72 6d 6f 64 65 3a 3d 32 3b 0d 0a 20 20 20 20 20 ┆0500..23499:returmode:=2; ┆
0x02a0…02c0 20 6f 74 68 65 72 77 69 73 65 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 65 6e 64 20 ┆ otherwise end; end ┆
0x02c0…02e0 65 6c 73 65 20 72 65 74 75 72 6d 6f 64 65 3a 3d 31 3b 0d 0a 65 6e 64 3b 20 20 20 20 20 20 20 20 ┆else returmode:=1; end; ┆
0x02e0…0300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 ┆ procedure ┆
0x0300…0320 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 2c 79 6d 69 6e 2c ┆fjern_uden_fjern(xmin,xmax,ymin,┆
0x0320…0340 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 67 6c 79 6d 69 6e ┆ymax:integer); var glymin┆
0x0340…0360 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 78 2c 6b 20 20 20 ┆,soejle,hoejde, gemindex,k ┆
0x0360…0380 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 ┆ : integer; begin ┆
0x0380…03a0 67 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d 0a 20 20 20 78 6d 69 6e 3a 3d 76 69 64 65 6f 6c 69 6e ┆glymin:=ymin; xmin:=videolin┆
0x03a0…03c0 69 65 72 2a 72 6f 75 6e 64 28 78 6d 69 6e 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b ┆ier*round(xmin/xkoordinat_blok);┆
0x03c0…03e0 0d 0a 20 20 20 78 6d 61 78 3a 3d 76 69 64 65 6f 6c 69 6e 69 65 72 2a 72 6f 75 6e 64 28 78 6d 61 ┆ xmax:=videolinier*round(xma┆
0x03e0…0400 78 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d 28 76 ┆x/xkoordinat_blok); ymin:=(v┆
0x0400…0420 (1,) 69 64 65 6f 6c 69 6e 69 65 72 2d 31 29 2d 72 6f 75 6e 64 28 79 6d 61 78 2f 79 6b 6f 6f 72 64 69 ┆ideolinier-1)-round(ymax/ykoordi┆
0x0420…0440 6e 61 74 5f 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 79 6d 61 78 3a 3d 28 76 69 64 65 6f 6c 69 6e 69 ┆nat_linie); ymax:=(videolini┆
0x0440…0460 65 72 2d 31 29 2d 72 6f 75 6e 64 28 67 6c 79 6d 69 6e 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 ┆er-1)-round(glymin/ykoordinat_li┆
0x0460…0480 6e 69 65 29 3b 0d 0a 20 20 20 68 6f 65 6a 64 65 3a 3d 79 6d 61 78 2d 79 6d 69 6e 3b 0d 0a 20 20 ┆nie); hoejde:=ymax-ymin; ┆
0x0480…04a0 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 65 6d 69 6e 64 65 78 ┆ soejle:=xmin+ymin; gemindex┆
0x04a0…04c0 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 6d 6f 76 65 28 70 69 ┆:=0; repeat move(pi┆
0x04c0…04e0 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 78 2e 29 2c 32 2a 68 ┆x(.soejle.),temp(.gemindex.),2*h┆
0x04e0…0500 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 73 6f 65 6a 6c 65 2b ┆oejde); soejle:=soejle+┆
0x0500…0520 76 69 64 65 6f 6c 69 6e 69 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d ┆videolinier; gemindex:=┆
0x0520…0540 67 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 ┆gemindex+hoejde; until soejl┆
0x0540…0560 65 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 ┆e>xmax; end; (* ┆
0x0560…0580 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 70 72 6f 63 ┆ *) proc┆
0x0580…05a0 65 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 ┆edure gem_pixelbillede; var ┆
0x05a0…05c0 20 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 ┆ strengfil : streng8; ┆
0x05c0…05e0 0a 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 ┆ begin ordre('GEM BILLED┆
0x05e0…0600 45 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 ┆E','FILNAVN ?'); SetFunkTa┆
0x0600…0620 73 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 20 61 6e 64 20 ┆ster; if (farveskaerm and ┆
0x0620…0640 28 6e 6f 74 20 73 6b 61 65 72 6d 32 32 6b 68 7a 29 29 20 74 68 65 6e 20 49 6e 70 75 74 53 74 72 ┆(not skaerm22khz)) then InputStr┆
0x0640…0660 65 6e 67 28 33 30 2c 31 2c 38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 3b 0d 0a 20 ┆eng(30,1,8,2,TRUE,strengfil); ┆
0x0660…0680 20 20 20 20 69 66 20 6e 6f 74 20 66 61 72 76 65 73 6b 61 65 72 6d 20 61 6e 64 20 6e 6f 74 20 73 ┆ if not farveskaerm and not s┆
0x0680…06a0 6b 61 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e 20 69 6e 70 75 74 73 74 72 65 6e 67 28 34 35 2c 31 ┆kaerm22khz then inputstreng(45,1┆
0x06a0…06c0 2c 38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 20 3b 0d 0a 20 20 20 20 20 69 66 20 ┆,8,2,TRUE,strengfil) ; if ┆
0x06c0…06e0 66 61 72 76 65 73 6b 61 65 72 6d 20 61 6e 64 20 73 6b 61 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e ┆farveskaerm and skaerm22khz then┆
0x06e0…0700 20 69 6e 70 75 74 73 74 72 65 6e 67 28 32 35 2c 31 2c 38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e ┆ inputstreng(25,1,8,2,TRUE,stren┆
0x0700…0720 67 66 69 6c 29 20 3b 0d 0a 20 20 20 20 20 69 66 20 28 73 74 72 65 6e 67 66 69 6c 3c 3e 40 32 37 ┆gfil) ; if (strengfil<>@27┆
0x0720…0740 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 20 69 66 20 6e ┆) then begin if n┆
0x0740…0760 6f 74 20 74 6a 65 6b 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 ┆ot tjeknavn(strengfil) then ┆
0x0760…0780 20 20 20 20 62 65 67 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 ┆ begin ordre('GEM','U┆
0x0780…07a0 4c 4f 56 4c 49 47 54 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 ┆LOVLIGT NAVN !'); rqloca┆
0x07a0…07c0 74 6f 72 28 31 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 ┆tor(1,xin,yin,status,term,xout,y┆
0x07c0…07e0 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 20 67 65 6d 5f 70 69 78 65 6c 62 69 6c 6c 65 64 65 3b 0d ┆out); gem_pixelbillede; ┆
0x07e0…0800 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 ┆ end else begin ┆
0x0800…0820 (2,) 20 20 20 20 20 20 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 3a 3d 64 69 73 6b 64 72 65 76 2b 27 3a ┆ filnavnstreng:=diskdrev+':┆
0x0820…0840 27 2b 73 74 72 65 6e 67 66 69 6c 2b 65 66 74 65 72 6e 61 76 6e 5f 68 65 6c 3b 20 20 20 20 20 20 ┆'+strengfil+efternavn_hel; ┆
0x0840…0860 20 20 20 20 0d 0a 20 20 20 20 20 20 20 69 66 20 66 69 6c 66 69 6e 64 65 73 5f 69 6e 74 65 67 65 ┆ if filfindes_intege┆
0x0860…0880 72 28 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 62 65 ┆r(filnavnstreng) then be┆
0x0880…08a0 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 27 2c 27 42 69 6c 6c 65 ┆gin ordre('GEM','Bille┆
0x08a0…08c0 64 6e 61 76 6e 20 66 69 6e 64 65 73 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 72 71 6c 6f ┆dnavn findes !'); rqlo┆
0x08c0…08e0 63 61 74 6f 72 28 31 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 ┆cator(1,xin,yin,status,term,xout┆
0x08e0…0900 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 67 65 6d 5f 70 69 78 65 6c 62 69 6c 6c 65 ┆,yout); gem_pixelbille┆
0x0900…0920 64 65 3b 0d 0a 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 0d 0a 20 20 20 20 20 20 20 62 65 ┆de; end else be┆
0x0920…0940 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 69 66 20 73 70 61 63 65 28 64 69 73 6b 64 72 65 76 29 ┆gin if space(diskdrev)┆
0x0940…0960 3e 33 30 20 74 68 65 6e 20 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 ┆>30 then begin ┆
0x0960…0980 20 20 20 20 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 ┆ ordre('GEM',filnavnstreng+┆
0x0980…09a0 27 20 67 65 6d 6d 65 73 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 61 73 73 69 67 6e 28 66 ┆' gemmes'); assign(f┆
0x09a0…09c0 69 6c 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 ┆ilnavn2,filnavnstreng); ┆
0x09c0…09e0 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 20 20 20 20 20 ┆ rewrite(filnavn2); ┆
0x09e0…0a00 20 20 20 66 6a 65 72 6e 5f 75 64 65 6e 5f 66 6a 65 72 6e 28 30 2c 33 32 37 36 30 2c 30 2c 32 39 ┆ fjern_uden_fjern(0,32760,0,29┆
0x0a00…0a20 36 39 36 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 62 72 65 64 64 65 3a 3d 72 6f 75 6e 64 28 ┆696); bredde:=round(┆
0x0a20…0a40 33 32 37 36 30 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 68 6f 65 6a 64 65 3a 3d 72 ┆32760/xkoordinat_blok);hoejde:=r┆
0x0a40…0a60 6f 75 6e 64 28 32 39 36 39 36 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 3b 0d 0a 20 ┆ound(29696/ykoordinat_linie); ┆
0x0a60…0a80 20 20 20 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)┆
0x0a80…0aa0 3b 0d 0a 20 20 20 20 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 ┆; write(filnavn2,hoe┆
0x0aa0…0ac0 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 30 20 74 6f 20 28 62 ┆jde); for n:=0 to (b┆
0x0ac0…0ae0 72 65 64 64 65 2a 68 6f 65 6a 64 65 29 20 64 6f 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c ┆redde*hoejde) do write(filnavn2,┆
0x0ae0…0b00 74 65 6d 70 28 2e 6e 2e 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 66 69 ┆temp(.n.)); close(fi┆
0x0b00…0b20 6c 6e 61 76 6e 32 29 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 ┆lnavn2); end else begi┆
0x0b20…0b40 6e 0d 0a 20 20 20 20 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 ┆n ordre('GEM','DISKE┆
0x0b40…0b60 4e 20 45 52 20 46 55 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 ┆N ER FULD !'); rqloc┆
0x0b60…0b80 61 74 6f 72 28 31 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 ┆ator(1,xin,yin,status,term,xout,┆
0x0b80…0ba0 79 6f 75 74 29 3b 0d 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 ┆yout); end; en┆
0x0ba0…0bc0 64 3b 0d 0a 20 20 20 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 ┆d; end; end; end;┆
0x0bc0…0be0 20 20 20 20 0d 0a 28 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 ┆ (* ┆
0x0be0…0c00 88 88 88 88 88 88 88 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 ┆ *) procedure gem┆
0x0c00…0c20 (3,) 5f 64 65 6c 62 69 6c 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 ┆_delbillede; var linie,huskl┆
0x0c20…0c40 69 6e 69 65 20 3a 20 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 ┆inie : array(.1..5.) of coor; ┆
0x0c40…0c60 20 73 74 72 65 6e 67 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 ┆ strengfil:streng8; flag ┆
0x0c60…0c80 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 20 20 20 3a 20 62 ┆ : b┆
0x0c80…0ca0 6f 6f 6c 65 61 6e 3b 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 ┆oolean; begin ordre('GEM┆
0x0ca0…0cc0 20 44 45 4c 27 2c 27 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 ┆ DEL',''); flag:=false; re┆
0x0cc0…0ce0 70 65 61 74 0d 0a 20 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 ┆peat begin rqlocator┆
0x0ce0…0d00 28 31 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 ┆(1,xin,yin,status,term,xout,yout┆
0x0d00…0d20 29 3b 0d 0a 20 20 20 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 ┆); if (xin=xout) and (yin┆
0x0d20…0d40 3d 79 6f 75 74 29 20 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 ┆=yout) then flag:=false else fla┆
0x0d40…0d60 67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 78 6f 75 74 3a 3d 78 6b 6f 6f 72 64 69 6e 61 74 ┆g:=true; xout:=xkoordinat┆
0x0d60…0d80 5f 62 6c 6f 6b 2a 28 72 6f 75 6e 64 28 78 6f 75 74 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f ┆_blok*(round(xout/xkoordinat_blo┆
0x0d80…0da0 6b 29 29 3b 0d 0a 20 20 20 20 20 20 79 6f 75 74 3a 3d 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e ┆k)); yout:=ykoordinat_lin┆
0x0da0…0dc0 69 65 2a 28 72 6f 75 6e 64 28 79 6f 75 74 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 ┆ie*(round(yout/ykoordinat_linie)┆
0x0dc0…0de0 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 75 74 3b 0d 0a ┆); yin:=yout;xin:=xout; ┆
0x0de0…0e00 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 6e 69 65 28 2e ┆ linie(.1.).x:=xout;linie(.┆
0x0e00…0e20 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 6e 74 69 6c 20 ┆1.).y:=yout; end; until ┆
0x0e20…0e40 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 20 28 74 65 72 ┆((yout<=29850) and flag) or (ter┆
0x0e40…0e60 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 62 65 67 69 6e ┆m=33); if term<>33 then begin┆
0x0e60…0e80 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 70 75 74 6d 6f ┆ writemode(3); inputmo┆
0x0e80…0ea0 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 75 65 6c 5f 66 ┆de(1,2); linecolor(aktuel_f┆
0x0ea0…0ec0 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 69 65 28 2e 31 ┆arve); linie(.2.):=linie(.1┆
0x0ec0…0ee0 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 2e 31 2e 29 3b ┆.); linie(.3.):=linie(.1.);┆
0x0ee0…0f00 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 29 3b 0d 0a 20 ┆ linie(.4.):=linie(.1.); ┆
0x0f00…0f20 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 0a 20 20 20 20 ┆ linie(.5.):=linie(.1.); ┆
0x0f20…0f40 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 20 20 20 20 20 ┆flag:=false; repeat ┆
0x0f40…0f60 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 74 65 72 6d 2c ┆rqlocator(1,xin,yin,status,term,┆
0x0f60…0f80 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 6c 28 2e 33 2e ┆xout,yout); if contrl(.3.┆
0x0f80…0fa0 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 67 69 6e 0d 0a ┆)>0 then begin ┆
0x0fa0…0fc0 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 3b 0d 0a 20 20 ┆ polyline(5,linie); ┆
0x0fc0…0fe0 20 20 20 20 20 20 20 20 78 6f 75 74 3a 3d 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 2a 28 72 ┆ xout:=xkoordinat_blok*(r┆
0x0fe0…1000 6f 75 6e 64 28 78 6f 75 74 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 29 3b 0d 0a 20 20 ┆ound(xout/xkoordinat_blok)); ┆
0x1000…1020 (4,) 20 20 20 20 20 20 20 20 79 6f 75 74 3a 3d 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 2a 28 ┆ yout:=ykoordinat_linie*(┆
0x1020…1040 72 6f 75 6e 64 28 79 6f 75 74 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 29 3b 0d 0a ┆round(yout/ykoordinat_linie)); ┆
0x1040…1060 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3a 3d 78 6f 75 74 3b 0d 0a 20 ┆ linie(.2.).x:=xout; ┆
0x1060…1080 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3a 3d 6c 69 6e 69 65 28 2e 31 2e ┆ linie(.2.).y:=linie(.1.┆
0x1080…10a0 29 2e 79 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 33 2e 29 2e 78 3a 3d 6c 69 ┆).y; linie(.3.).x:=li┆
0x10a0…10c0 6e 69 65 28 2e 32 2e 29 2e 78 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 33 2e ┆nie(.2.).x; linie(.3.┆
0x10c0…10e0 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 34 2e 29 ┆).y:=yout; linie(.4.)┆
0x10e0…1100 2e 78 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e ┆.x:=linie(.1.).x; lin┆
0x1100…1120 69 65 28 2e 34 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 ┆ie(.4.).y:=yout; lini┆
0x1120…1140 65 28 2e 35 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 70 ┆e(.5.):=linie(.1.); p┆
0x1140…1160 6f 6c 79 6c 69 6e 65 28 35 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 78 69 6e ┆olyline(5,linie); xin┆
0x1160…1180 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0d ┆:=xout;yin:=yout; end; ┆
0x1180…11a0 0a 20 20 20 20 20 20 69 66 20 74 65 72 6d 3d 33 32 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 ┆ if term=32 then begin ┆
0x11a0…11c0 20 20 20 20 20 66 6c 61 67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 68 75 73 6b 6c 69 6e ┆ flag:=true; husklin┆
0x11c0…11e0 69 65 3a 3d 6c 69 6e 69 65 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 75 6e 74 69 ┆ie:=linie; end; unti┆
0x11e0…1200 6c 20 66 6c 61 67 3d 74 72 75 65 3b 0d 0a 20 20 70 6f 6c 79 6c 69 6e 65 28 35 2c 6c 69 6e 69 65 ┆l flag=true; polyline(5,linie┆
0x1200…1220 29 3b 0d 0a 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 0d 0a 20 20 69 6e 70 75 74 6d 6f 64 65 ┆); writemode(1); inputmode┆
0x1220…1240 28 31 2c 31 29 3b 0d 0a 20 20 62 72 65 64 64 65 3a 3d 61 62 73 28 6c 69 6e 69 65 28 2e 31 2e 29 ┆(1,1); bredde:=abs(linie(.1.)┆
0x1240…1260 2e 78 2d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 29 3b 0d 0a 20 20 68 6f 65 6a 64 65 3a 3d 61 62 73 ┆.x-linie(.2.).x); hoejde:=abs┆
0x1260…1280 28 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 2d 6c 69 6e 69 65 28 2e 34 2e 29 2e 79 29 3b 0d 0a 20 20 ┆(linie(.1.).y-linie(.4.).y); ┆
0x1280…12a0 78 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3b 79 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e ┆xmin:=linie(.1.).x;ymin:=linie(.┆
0x12a0…12c0 31 2e 29 2e 79 3b 0d 0a 20 20 69 66 20 78 6d 69 6e 3e 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 20 74 ┆1.).y; if xmin>linie(.2.).x t┆
0x12c0…12e0 68 65 6e 20 78 6d 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3b 0d 0a 20 20 69 66 20 79 6d ┆hen xmin:=linie(.2.).x; if ym┆
0x12e0…1300 69 6e 3e 6c 69 6e 69 65 28 2e 33 2e 29 2e 79 20 74 68 65 6e 20 79 6d 69 6e 3a 3d 6c 69 6e 69 65 ┆in>linie(.3.).y then ymin:=linie┆
0x1300…1320 28 2e 33 2e 29 2e 79 3b 0d 0a 20 20 66 6a 65 72 6e 5f 75 64 65 6e 5f 66 6a 65 72 6e 28 78 6d 69 ┆(.3.).y; fjern_uden_fjern(xmi┆
0x1320…1340 6e 2c 78 6d 69 6e 2b 62 72 65 64 64 65 2c 79 6d 69 6e 2c 79 6d 69 6e 2b 68 6f 65 6a 64 65 29 3b ┆n,xmin+bredde,ymin,ymin+hoejde);┆
0x1340…1360 28 2a 6b 6f 70 69 2a 29 0d 0a 20 20 6f 72 64 72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27 46 49 4c ┆(*kopi*) ordre('GEM DEL','FIL┆
0x1360…1380 4e 41 56 4e 20 3f 27 29 3b 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 65 72 3b 0d 0a 20 20 69 ┆NAVN ?'); SetFunkTaster; i┆
0x1380…13a0 66 20 28 66 61 72 76 65 73 6b 61 65 72 6d 20 61 6e 64 20 28 6e 6f 74 20 73 6b 61 65 72 6d 32 32 ┆f (farveskaerm and (not skaerm22┆
0x13a0…13c0 6b 68 7a 29 29 20 74 68 65 6e 20 49 6e 70 75 74 53 74 72 65 6e 67 28 33 30 2c 31 2c 38 2c 32 2c ┆khz)) then InputStreng(30,1,8,2,┆
0x13c0…13e0 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 3b 0d 0a 20 20 69 66 20 6e 6f 74 20 66 61 72 76 65 ┆TRUE,strengfil); if not farve┆
0x13e0…1400 73 6b 61 65 72 6d 20 61 6e 64 20 6e 6f 74 20 73 6b 61 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e 20 ┆skaerm and not skaerm22khz then ┆
0x1400…1420 (5,) 69 6e 70 75 74 73 74 72 65 6e 67 28 34 35 2c 31 2c 38 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 ┆inputstreng(45,1,8,2,TRUE,streng┆
0x1420…1440 66 69 6c 29 20 3b 0d 0a 20 20 69 66 20 66 61 72 76 65 73 6b 61 65 72 6d 20 61 6e 64 20 73 6b 61 ┆fil) ; if farveskaerm and ska┆
0x1440…1460 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e 20 69 6e 70 75 74 73 74 72 65 6e 67 28 32 35 2c 31 2c 38 ┆erm22khz then inputstreng(25,1,8┆
0x1460…1480 2c 32 2c 54 52 55 45 2c 73 74 72 65 6e 67 66 69 6c 29 20 3b 0d 0a 20 20 62 72 65 64 64 65 3a 3d ┆,2,TRUE,strengfil) ; bredde:=┆
0x1480…14a0 72 6f 75 6e 64 28 62 72 65 64 64 65 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 68 6f ┆round(bredde/xkoordinat_blok);ho┆
0x14a0…14c0 65 6a 64 65 3a 3d 72 6f 75 6e 64 28 68 6f 65 6a 64 65 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 ┆ejde:=round(hoejde/ykoordinat_li┆
0x14c0…14e0 6e 69 65 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 20 74 68 65 ┆nie); if (strengfil<>@27) the┆
0x14e0…1500 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 6e 61 76 6e ┆n begin if not tjeknavn┆
0x1500…1520 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 0d 0a ┆(strengfil) then begin ┆
0x1520…1540 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 41 56 ┆ ordre('GEM','ULOVLIGT NAV┆
0x1540…1560 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 2c 79 ┆N !'); rqlocator(1,xin,y┆
0x1560…1580 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 20 ┆in,status,term,xout,yout); ┆
0x1580…15a0 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 64 20 65 6c ┆ gem_delbillede; end el┆
0x15a0…15c0 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 6e 61 76 6e ┆se begin filnavn┆
0x15c0…15e0 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 69 6c 2b 65 ┆streng:=diskdrev+':'+strengfil+e┆
0x15e0…1600 66 74 65 72 6e 61 76 6e 5f 64 65 6c 3b 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 ┆fternavn_del; ┆
0x1600…1620 69 66 20 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 ┆if not filfindes_integer(filnavn┆
0x1620…1640 73 74 72 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 ┆streng) then begin if sp┆
0x1640…1660 61 63 65 28 64 69 73 6b 64 72 65 76 29 3e 33 30 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 ┆ace(diskdrev)>30 then begin ┆
0x1660…1680 20 20 20 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 ┆ assign(filnavn2,filnavnstren┆
0x1680…16a0 67 29 3b 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 ┆g); rewrite(filnavn2); ┆
0x16a0…16c0 20 20 20 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 ┆ sletstatus; ordre┆
0x16c0…16e0 28 27 47 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 ┆('GEM DEL',filnavnstreng+' gemme┆
0x16e0…1700 73 27 29 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 ┆s'); write(filnavn2,bred┆
0x1700…1720 64 65 29 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 ┆de); write(filnavn2,hoej┆
0x1720…1740 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 30 20 74 6f 20 28 62 72 65 64 64 ┆de); for n:=0 to (bredd┆
0x1740…1760 65 2a 68 6f 65 6a 64 65 29 20 64 6f 20 77 72 69 74 65 28 66 69 6c 6e 61 76 6e 32 2c 74 65 6d 70 ┆e*hoejde) do write(filnavn2,temp┆
0x1760…1780 28 2e 6e 2e 29 29 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 ┆(.n.)); close(filnavn2);┆
0x1780…17a0 0d 0a 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 20 20 20 ┆ end else begin ┆
0x17a0…17c0 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27 44 49 53 4b 45 4e 20 45 52 20 46 ┆ ordre('GEM DEL','DISKEN ER F┆
0x17c0…17e0 55 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 ┆ULD !'); rqlocator(1┆
0x17e0…1800 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 29 3b ┆,xin,yin,status,term,xout,yout);┆
0x1800…1820 (6,) 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 ┆ end; end else b┆
0x1820…1840 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 6f 72 64 72 65 28 27 47 45 4d 20 44 45 4c 27 2c 27 42 69 ┆egin ordre('GEM DEL','Bi┆
0x1840…1860 6c 6c 65 64 6e 61 76 6e 20 66 69 6e 64 65 73 20 21 27 29 3b 0d 0a 20 20 20 20 20 20 20 72 71 6c ┆llednavn findes !'); rql┆
0x1860…1880 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 ┆ocator(1,xin,yin,status,term,xou┆
0x1880…18a0 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 0d 0a 20 20 20 65 ┆t,yout); end; e┆
0x18a0…18c0 6e 64 3b 20 20 20 0d 0a 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 28 2a ┆nd; end; end; end; (*┆
0x18c0…18e0 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 88 ┆ ┆
0x18e0…1900 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 68 65 6e 74 5f 64 65 6c 62 ┆ *) procedure hent_delb┆
0x1900…1920 69 6c 6c 65 64 65 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 76 69 73 74 5f 66 69 6c 6e 61 76 6e 20 20 ┆illede; var vist_filnavn ┆
[…truncated at 200 lines…]