|
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 - download
Length: 12800 (0x3200)
Names: »AREAL.ARK«
└─⟦1230711ec⟧ Bits:30003277 Digital Research Draw v.1.0 + Skriv + Regn
└─⟦this⟧ »AREAL.ARK«
└─⟦5c8344fa1⟧ Bits:30004223 REGN version 2.1 til ICL Comet
└─⟦this⟧ »AREAL.ARK«
0x0000…0020 (0,) 93 00 57 00 04 00 3b 0d 0a 20 20 20 77 72 69 74 65 28 27 20 20 20 20 20 20 20 20 20 20 20 27 29 ┆ W ; write(' ')┆
0x0020…0040 3b 0d 0a 20 20 20 69 3a 3d 73 75 63 63 28 69 29 3b 0d 0a 20 20 20 69 66 20 28 5b 6f 76 65 72 77 ┆; i:=succ(i); if (Æoverw┆
0x0040…0060 72 69 74 74 65 6e 2c 6c 6f 63 6b 65 64 5d 2a 73 68 65 65 00 00 00 00 00 00 02 0b 04 4b 20 20 44 ┆ritten,lockedÅ*shee K D┆
0x0060…0080 65 74 74 65 20 72 65 67 6e 65 61 72 6b 20 6b 61 6e 20 62 72 75 67 65 73 20 74 69 6c 20 61 74 20 ┆ette regneark kan bruges til at ┆
0x0080…00a0 62 65 72 65 67 6e 65 20 61 72 65 61 6c 20 6f 67 20 6f 6d 6b 72 65 64 73 20 61 66 20 66 6f 72 73 ┆beregne areal og omkreds af fors┆
0x00a0…00c0 6b 65 6c 6c 69 67 65 20 6f 63 00 00 00 00 00 00 02 0b 04 4a 20 20 67 65 6f 6d 65 74 72 69 73 6b ┆kellige oc J geometrisk┆
0x00c0…00e0 65 20 66 69 67 75 72 65 72 2e 20 4d 65 6e 20 64 75 20 73 6b 61 6c 20 73 65 6c 76 20 6c 61 76 65 ┆e figurer. Men du skal selv lave┆
0x00e0…0100 20 66 6f 72 6d 6c 65 72 6e 65 20 69 20 64 65 20 66 65 6c 74 65 72 2c 20 64 65 72 20 65 72 66 7c ┆ formlerne i de felter, der erfø┆
0x0100…0120 72 00 00 00 00 00 00 02 0b 04 2e 20 20 6d 61 72 6b 65 72 65 74 20 6d 65 64 20 3c 20 20 20 3e 2c ┆r . markeret med < >,┆
0x0120…0140 20 66 7c 72 20 72 65 67 6e 65 61 72 6b 65 74 20 76 69 72 6b 65 72 21 21 21 0a 20 20 20 20 6e 65 ┆ før regnearket virker!!! ne┆
0x0140…0160 77 73 74 61 74 3a 3d 6e 65 77 73 74 61 74 2d 5b 6f 6e 73 63 72 65 65 6e 00 00 00 00 00 00 02 0b ┆wstat:=newstat-Æonscreen ┆
0x0160…0180 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 65 3b 0d 0a 20 20 20 20 75 70 66 78 3a 3d 66 78 3b 75 70 ┆ ===========e; upfx:=fx;up┆
0x0180…01a0 66 79 3a 3d 66 79 3b 0d 0a 20 20 20 20 45 56 41 4c 55 41 54 45 28 69 73 66 6f 72 6d 2c 65 6c 69 ┆fy:=fy; EVALUATE(isform,eli┆
0x01a0…01c0 6e 65 2c 72 65 73 75 6c 74 2c 65 72 72 6f 72 00 00 00 00 00 00 02 0b 04 0b 20 20 20 46 49 47 55 ┆ne,result,error FIGU┆
0x01c0…01e0 52 20 20 3a 72 6f 72 70 6f 73 69 74 69 6f 6e 3c 3e 30 20 74 68 65 6e 0d 0a 20 20 20 20 20 46 4c ┆R :rorposition<>0 then FL┆
0x01e0…0200 41 53 48 28 31 33 2c 27 20 20 20 20 46 65 6a 6c 20 76 65 64 20 63 75 72 73 6f 72 20 20 20 20 27 ┆ASH(13,' Fejl ved cursor '┆
0x0200…0220 2b 40 37 2c 66 61 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 46 4a 45 52 4e ┆+@7,fa ===========FJERN┆
0x0220…0240 46 4c 41 53 48 28 31 33 2c 32 33 29 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 20 20 75 6e 74 69 6c 20 ┆FLASH(13,23); end; until ┆
0x0240…0260 28 65 72 72 6f 72 70 6f 73 69 74 69 6f 6e 3d 30 29 20 6f 72 20 28 65 6c 69 6e 65 3d 63 00 00 00 ┆(errorposition=0) or (eline=c ┆
0x0260…0280 00 00 00 02 0b 04 0b 4b 56 41 44 52 41 54 20 20 20 3a 6d 20 74 68 65 6e 20 6e 65 77 73 74 61 74 ┆ KVADRAT :m then newstat┆
0x0280…02a0 3a 3d 6e 65 77 73 74 61 74 2b 5b 66 6f 72 6d 75 6c 61 5d 3b 0d 0a 20 20 69 66 20 62 65 72 65 67 ┆:=newstat+ÆformulaÅ; if bereg┆
0x02a0…02c0 6e 65 74 20 74 68 65 6e 20 6e 65 77 73 74 61 74 3a 3d 6e 65 00 00 00 00 00 00 02 0b 04 0b 20 20 ┆net then newstat:=ne ┆
0x02c0…02e0 20 20 20 53 69 64 65 20 3a 6e 64 3b 0d 0a 0d 0a 7b 20 47 45 54 54 45 58 54 20 63 61 6c 6c 73 20 ┆ Side :nd; æ GETTEXT calls ┆
0x02e0…0300 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 47 45 54 4c 49 4e 45 20 77 69 74 68 20 74 68 65 20 63 ┆the procedure GETLINE with the c┆
0x0300…0320 75 72 72 65 6e 74 20 20 20 20 20 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆urrent ===========┆
0x0320…0340 78 2c 79 20 70 6f 73 69 74 69 6f 6e 20 61 73 20 70 61 72 61 6d 65 74 65 72 73 2e 20 74 68 69 73 ┆x,y position as parameters. this┆
0x0340…0360 20 6d 65 61 6e 73 20 74 68 61 74 20 74 65 78 74 20 65 6e 74 65 72 69 6e 67 20 20 20 20 7d 0d 0a ┆ means that text entering å ┆
0x0360…0380 7b 20 00 00 00 00 00 00 02 0b 04 0b 52 45 4b 54 41 4e 47 45 4c 20 3a 74 20 74 68 65 20 63 65 6c ┆æ REKTANGEL :t the cel┆
0x0380…03a0 6c 73 20 70 6f 73 69 74 69 6f 6e 20 6f 6e 20 74 68 65 20 73 68 65 65 74 2e 20 20 20 20 20 20 20 ┆ls position on the sheet. ┆
0x03a0…03c0 20 20 20 20 20 7d 0d 0a 0d 0a 20 50 52 4f 43 45 44 55 52 45 20 47 45 54 54 00 00 00 00 00 00 02 ┆ å PROCEDURE GETT ┆
0x03c0…03e0 0b 04 0b 20 20 20 4c 7b 6e 67 64 65 20 3a 73 68 65 65 74 5b 66 78 2c 66 79 5d 20 64 6f 20 47 45 ┆ Længde :sheetÆfx,fyÅ do GE┆
0x03e0…0400 54 4c 49 4e 45 28 65 6c 69 6e 65 2c 78 70 6f 73 5b 66 78 5d 2b 31 2c 66 79 2b 31 2c 6d 61 78 74 ┆TLINE(eline,xposÆfxÅ+1,fy+1,maxt┆
0x0400…0420 (1,) 65 67 6e 2b 32 2d 78 70 6f 73 5b 66 78 5d 2c 65 00 00 00 00 00 00 02 0b 04 0b 20 20 20 42 72 65 ┆egn+2-xposÆfxÅ,e Bre┆
0x0420…0440 64 64 65 20 3a 0a 20 65 6e 64 3b 0d 0a 0d 0a 7b 20 45 44 49 54 43 45 4c 4c 20 6c 6f 61 64 73 20 ┆dde : end; æ EDITCELL loads ┆
0x0440…0460 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 65 6c 6c 73 20 63 6f 6e 74 ┆a copy of the current cells cont┆
0x0460…0480 65 6e 74 73 20 69 6e 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 74 68 65 20 ┆ents in ===========the ┆
0x0480…04a0 76 61 72 69 61 62 6c 65 20 65 6c 69 6e 65 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 65 69 ┆variable eline before calling ei┆
0x04a0…04c0 74 68 65 72 20 47 45 54 54 45 58 54 20 6f 72 20 47 45 54 46 4f 52 4d 55 4c 41 2e 20 20 20 00 00 ┆ther GETTEXT or GETFORMULA. ┆
0x04c0…04e0 00 00 00 00 02 0b 04 0b 54 52 45 4b 41 4e 54 20 20 20 3a 20 63 68 61 6e 67 65 73 20 61 72 65 20 ┆ TREKANT : changes are ┆
0x04e0…0500 6d 61 64 65 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 65 6c 6c 2e 20 20 20 20 20 20 20 ┆made to the current cell. ┆
0x0500…0520 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 50 52 4f 43 45 44 55 00 00 00 00 00 00 02 0b 04 0b 20 ┆ å PROCEDU ┆
0x0520…0540 20 20 48 7c 6a 64 65 20 20 3a 0a 20 20 77 69 74 68 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 20 64 ┆ Højde : with sheetÆfx,fyÅ d┆
0x0540…0560 6f 20 62 65 67 69 6e 0d 0a 20 20 20 65 6c 69 6e 65 3a 3d 63 6f 6e 74 65 6e 74 73 3b 0d 0a 20 20 ┆o begin eline:=contents; ┆
0x0560…0580 20 69 66 20 74 78 74 20 69 6e 20 63 00 00 00 00 00 00 02 0b 04 0b 47 72 75 6e 64 6c 69 6e 2e 20 ┆ if txt in c Grundlin. ┆
0x0580…05a0 3a 54 20 65 6c 73 65 20 47 45 54 46 4f 52 4d 55 4c 41 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 65 6e ┆:T else GETFORMULA; end; en┆
0x05a0…05c0 64 3b 0d 0a 0d 0a 7b 20 55 50 44 41 54 45 43 45 4c 4c 53 20 69 73 20 61 20 6c 69 74 74 6c 65 20 ┆d; æ UPDATECELLS is a little ┆
0x05c0…05e0 6d 6f 72 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 6c 6c 79 20 69 74 20 20 ┆mor ===========lly it ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 6d 61 6b 65 73 20 73 75 72 65 20 74 6f 20 74 61 ┆ å æ makes sure to ta┆
0x0600…0620 67 20 61 6e 64 20 75 6e 74 61 67 20 63 65 6c 6c 73 20 77 68 69 63 68 20 68 61 00 00 00 00 00 00 ┆g and untag cells which ha ┆
0x0620…0640 02 0b 04 0b 43 49 52 4b 45 4c 20 20 20 20 3a 20 20 20 20 7d 0d 0a 7b 20 63 6c 65 61 72 65 64 20 ┆ CIRKEL : å æ cleared ┆
0x0640…0660 66 72 6f 6d 20 64 61 74 61 20 66 72 6f 6d 20 20 61 6e 6f 74 68 65 72 20 63 65 6c 6c 2e 20 49 74 ┆from data from another cell. It┆
0x0660…0680 20 61 6c 73 6f 20 55 50 44 41 54 45 73 20 74 68 65 00 00 00 00 00 00 02 0b 04 0b 20 20 52 61 64 ┆ also UPDATEs the Rad┆
0x0680…06a0 69 75 73 20 20 3a 20 74 68 65 20 6e 65 77 20 74 79 70 65 20 61 6e 64 20 74 68 65 20 63 6f 6e 74 ┆ius : the new type and the cont┆
0x06a0…06c0 65 6e 74 73 20 77 68 69 63 68 20 73 74 69 6c 6c 20 69 73 20 69 6e 20 74 68 65 20 20 20 20 20 20 ┆ents which still is in the ┆
0x06c0…06e0 20 20 20 7d 0d 0a 7b 20 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 65 6c 69 ┆ å æ ===========eli┆
0x06e0…0700 6e 65 22 2e 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 ┆ne". ┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 50 52 4f 43 45 44 55 52 45 20 00 ┆ å PROCEDURE ┆
0x0720…0740 00 00 00 00 00 02 0b 04 00 53 3b 0d 0a 20 76 61 72 0d 0a 20 20 66 6c 65 6e 67 74 68 3a 20 69 6e ┆ S; var flength: in┆
0x0740…0760 74 65 67 65 72 3b 0d 0a 20 20 6f 70 64 61 74 65 72 65 74 3a 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 62 ┆teger; opdateret:boolean; b┆
0x0760…0780 65 67 69 6e 0d 0a 20 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 63 00 00 00 00 00 00 02 0b 0c 00 ┆egin sheetÆfx,fyÅ.c ┆
0x0780…07a0 6c 69 6e 65 3b 0d 0a 20 20 69 66 20 74 78 74 20 69 6e 20 6e 65 77 73 74 61 74 20 7b 73 68 65 65 ┆line; if txt in newstat æshee┆
0x07a0…07c0 74 5b 66 78 2c 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 7d 20 74 68 65 6e 20 62 65 67 69 6e 0d ┆tÆfx,fyÅ.cellstatuså then begin ┆
0x07c0…07e0 0a 20 20 20 69 3a 3d 66 78 3b 0d 0a 20 00 00 00 00 00 00 02 0b 0c 00 3d 6c 65 6e 28 65 6c 69 6e ┆ i:=fx; =len(elin┆
0x07e0…0800 65 29 3b 0d 0a 20 20 20 6f 70 64 61 74 65 72 65 74 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 72 65 ┆e); opdateret:=false; re┆
0x0800…0820 (2,) 70 65 61 74 0d 0a 20 20 20 20 69 66 20 69 3c 66 78 6d 61 78 20 74 68 65 6e 20 62 65 67 69 6e 0d ┆peat if i<fxmax then begin ┆
0x0820…0840 0a 20 20 20 00 00 00 00 00 00 02 0b 0c 00 69 29 3b 0d 0a 20 20 20 20 20 77 69 74 68 20 73 68 65 ┆ i); with she┆
0x0840…0860 65 74 5b 69 2c 66 79 5d 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 66 6c 65 6e 67 74 68 ┆etÆi,fyÅ do begin flength┆
0x0860…0880 3a 3d 66 6c 65 6e 67 74 68 2d 6e 6f 72 6d 77 69 64 74 68 3b 0d 0a 20 20 20 20 20 00 00 00 00 00 ┆:=flength-normwidth; ┆
0x0880…08a0 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 63 65 ┆ ===========begin ce┆
0x08a0…08c0 6c 6c 73 74 61 74 75 73 3a 3d 5b 6f 76 65 72 77 72 69 74 74 65 6e 2c 74 78 74 5d 3b 0d 0a 20 20 ┆llstatus:=Æoverwritten,txtÅ; ┆
0x08c0…08e0 20 20 20 20 20 63 6f 6e 74 65 6e 74 73 3a 3d 27 27 3b 00 00 00 00 00 00 02 0b 04 0a 20 20 20 20 ┆ contents:=''; ┆
0x08e0…0900 20 20 20 54 41 4c 69 6e 0d 0a 20 20 20 20 20 20 20 69 66 20 6f 76 65 72 77 72 69 74 74 65 6e 20 ┆ TALin if overwritten ┆
0x0900…0920 69 6e 20 63 65 6c 6c 73 74 61 74 75 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 ┆in cellstatus then begin ┆
0x0920…0940 20 20 63 65 6c 6c 73 74 61 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 47 4f ┆ cellsta ===========GO┆
0x0940…0960 54 4f 43 45 4c 4c 28 69 2c 66 79 29 3b 4c 45 41 56 45 43 45 4c 4c 28 69 2c 66 79 29 3b 0d 0a 20 ┆TOCELL(i,fy);LEAVECELL(i,fy); ┆
0x0960…0980 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 65 6e 64 ┆ end; end; end┆
0x0980…09a0 00 00 00 00 00 00 02 0b 04 00 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 28 69 3d 66 78 6d 61 78 29 20 ┆ ********** (i=fxmax) ┆
0x09a0…09c0 20 6f 72 20 28 73 68 65 65 74 5b 69 2c 66 79 5d 2e 63 6f 6e 74 65 6e 74 73 3c 3e 27 27 29 3b 0d ┆ or (sheetÆi,fyÅ.contents<>''); ┆
0x09c0…09e0 0a 20 20 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 63 65 6c 6c 73 74 00 00 00 00 00 00 02 0b 61 ┆ sheetÆfx,fyÅ.cellst a┆
0x09e0…0a00 01 35 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 20 20 20 20 20 20 20 20 20 7b 20 ┆ 5; end else begin æ ┆
0x0a00…0a20 73 74 72 69 6e 67 20 63 68 61 6e 67 65 64 20 74 6f 20 66 6f 72 6d 75 6c 61 20 6f 72 20 63 6f 6e ┆string changed to formula or con┆
0x0a20…0a40 73 74 61 6e 74 20 7d 0d 0a 20 20 20 20 20 83 00 00 00 00 20 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d ┆stant å ========┆
0x0a40…0a60 3d 3d 3d 20 65 76 65 6e 74 20 6e 75 6d 62 65 72 20 74 77 6f 20 7d 0d 0a 20 20 20 69 3a 3d 66 78 ┆=== event number two å i:=fx┆
0x0a60…0a80 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 77 69 74 68 20 73 68 65 65 74 5b 69 2c 66 ┆; repeat with sheetÆi,f┆
0x0a80…0aa0 79 5d 20 64 6f 00 00 00 00 00 00 02 0b 04 00 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 69 74 74 65 6e ┆yÅ do ***********itten┆
0x0aa0…0ac0 20 69 6e 20 63 65 6c 6c 73 74 61 74 75 73 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 ┆ in cellstatus then begin ┆
0x0ac0…0ae0 20 63 65 6c 6c 73 74 61 74 75 73 3a 3d 5b 74 78 74 5d 3b 0d 0a 20 20 20 20 20 20 63 00 00 00 00 ┆ cellstatus:=ÆtxtÅ; c ┆
0x0ae0…0b00 00 00 02 0b 41 01 34 3b 0d 0a 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 69 66 20 69 3c 66 ┆ A 4; end; if i<f┆
0x0b00…0b20 78 6d 61 78 20 74 68 65 6e 20 69 3a 3d 73 75 63 63 28 69 29 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d ┆xmax then i:=succ(i); end; ┆
0x0b20…0b40 0a 20 20 20 75 6e 74 69 6c 20 6e 6f 74 20 28 6f 76 65 72 83 00 00 00 00 00 02 0b 41 01 36 73 68 ┆ until not (over A 6sh┆
0x0b40…0b60 65 65 74 5b 69 2c 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 29 20 6f 72 20 28 69 3d 66 78 6d 61 ┆eetÆi,fyÅ.cellstatus) or (i=fxma┆
0x0b60…0b80 78 29 3b 0d 0a 20 20 20 77 69 74 68 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 20 64 6f 20 62 65 67 ┆x); with sheetÆfx,fyÅ do beg┆
0x0b80…0ba0 69 6e 0d 0a 20 20 20 20 63 65 83 00 00 00 00 40 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d ┆in ce @ =========== ┆
0x0ba0…0bc0 0a 20 20 20 20 69 66 20 69 73 66 6f 72 6d 20 74 68 65 6e 20 63 65 6c 6c 73 74 61 74 75 73 3a 3d ┆ if isform then cellstatus:=┆
0x0bc0…0be0 63 65 6c 6c 73 74 61 74 75 73 2b 5b 66 6f 72 6d 75 6c 61 5d 3b 0d 0a 20 20 20 20 76 61 6c 75 65 ┆cellstatus+ÆformulaÅ; value┆
0x0be0…0c00 3a 00 00 00 00 00 00 02 0b 04 00 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 65 6e 64 3b 0d 0a 20 65 6e 64 ┆: **********end; end┆
0x0c00…0c20 (3,) 3b 0d 0a 0d 0a 7b 20 47 45 54 43 45 4c 4c 20 66 69 6e 6e 61 6c 79 20 73 74 61 72 74 73 20 68 65 ┆; æ GETCELL finnaly starts he┆
0x0c20…0c40 72 65 2e 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 75 73 65 73 20 00 00 00 00 00 00 02 0b ┆re. this procedure uses ┆
0x0c40…0c60 41 01 38 20 20 20 20 20 20 20 7d 0d 0a 7b 20 61 6c 6c 20 74 68 65 20 61 62 6f 76 65 20 6c 6f 63 ┆A 8 å æ all the above loc┆
0x0c60…0c80 61 6c 20 70 72 6f 63 65 64 75 72 65 73 2e 20 66 69 72 73 74 20 69 74 20 69 6e 69 74 69 61 6c 69 ┆al procedures. first it initiali┆
0x0c80…0ca0 7a 65 73 20 74 68 65 20 74 65 6d 70 6f 72 61 84 00 00 00 00 00 02 0b 41 01 34 69 61 62 6c 65 20 ┆zes the tempora A 4iable ┆
0x0ca0…0cc0 22 65 6c 69 6e 65 22 20 77 69 74 68 20 74 68 65 20 6c 61 73 74 20 72 65 61 64 20 63 68 61 72 61 ┆"eline" with the last read chara┆
0x0cc0…0ce0 63 74 65 72 2e 20 69 74 20 74 68 65 6e 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 20 20 20 7d 0d ┆cter. it then depending on å ┆
0x0ce0…0d00 0a 7b 20 74 68 69 83 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 46 4f 52 4d 55 ┆ æ thi ===========FORMU┆
0x0d00…0d20 4c 41 2c 20 47 45 54 54 45 58 54 2c 20 6f 72 20 45 44 49 54 43 45 4c 4c 2e 20 20 20 20 20 20 20 ┆LA, GETTEXT, or EDITCELL. ┆
0x0d20…0d40 20 20 20 20 20 20 7d 0d 0a 0d 0a 62 65 67 69 6e 20 7b 20 47 45 54 43 45 4c 4c 20 7d 0d 00 00 00 ┆ å begin æ GETCELL å ┆
0x0d40…0d60 00 00 00 02 0b 04 00 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 69 74 69 6f 6e 3a 3d 30 3b 20 61 62 6f 72 ┆ **********ition:=0; abor┆
0x0d60…0d80 74 3a 3d 66 61 6c 73 65 3b 0d 0a 20 6e 65 77 73 74 61 74 3a 3d 5b 5d 3b 0d 0a 20 69 66 20 63 68 ┆t:=false; newstat:=ÆÅ; if ch┆
0x0d80…0da0 20 69 6e 20 5b 27 30 27 2e 2e 27 39 27 2c 27 2b 27 2c 27 2d 00 00 00 00 00 00 02 0b 41 01 37 29 ┆ in Æ'0'..'9','+','- A 7)┆
0x0da0…0dc0 27 5d 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 69 66 20 63 68 20 3d 27 28 27 20 74 68 65 6e ┆'Å then begin if ch ='(' then┆
0x0dc0…0de0 0d 0a 20 20 20 53 4b 49 46 54 54 59 50 45 28 32 29 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 20 53 4b ┆ SKIFTTYPE(2) else SK┆
0x0de0…0e00 49 46 54 54 59 50 45 28 31 29 3b 83 00 00 00 00 60 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆IFTTYPE(1); ` ===========┆
0x0e00…0e20 3b 74 5d 3b 0d 0a 20 20 69 66 20 6e 6f 74 20 28 66 6f 72 6d 75 6c 61 20 69 6e 20 73 68 65 65 74 ┆;tÅ; if not (formula in sheet┆
0x0e20…0e40 5b 66 78 2c 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a ┆Æfx,fyÅ.cellstatus) then begin ┆
0x0e40…0e60 20 20 00 00 00 00 00 00 02 0b 04 21 20 41 20 52 20 45 20 41 20 4c 20 20 20 4f 20 47 20 20 20 4f ┆ ! A R E A L O G O┆
0x0e60…0e80 20 4d 20 4b 20 52 20 45 20 44 20 53 2e 4c 53 3b 0d 0a 20 20 20 47 45 54 46 4f 52 4d 55 4c 41 3b ┆ M K R E D S.LS; GETFORMULA;┆
0x0e80…0ea0 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 46 4c 00 00 00 00 00 00 02 ┆ end else begin FL ┆
0x0ea0…0ec0 0b 0c 00 27 20 20 20 52 65 74 20 69 20 66 6f 72 6d 65 6c 20 4a 2f 4e 3f 20 20 27 2c 74 72 75 65 ┆ ' Ret i formel J/N? ',true┆
0x0ec0…0ee0 29 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 63 68 3a 3d 55 50 43 41 53 45 28 4b 45 ┆); repeat ch:=UPCASE(KE┆
0x0ee0…0f00 59 29 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 63 68 00 00 00 00 00 00 02 0b 0c 00 4e 27 5d 3b 0d 0a ┆Y); until ch N'Å; ┆
0x0f00…0f20 20 20 20 46 4a 45 52 4e 46 4c 41 53 48 28 31 33 2c 32 33 29 3b 0d 0a 20 20 20 69 66 20 63 68 3d ┆ FJERNFLASH(13,23); if ch=┆
0x0f20…0f40 27 4a 27 20 74 68 65 6e 20 45 44 49 54 43 45 4c 4c 20 65 6c 73 65 20 61 62 6f 72 74 3a 3d 74 72 ┆'J' then EDITCELL else abort:=tr┆
0x0f40…0f60 75 65 3b 0d 0a 20 20 00 00 00 00 00 00 02 0b 0c 00 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 ┆ue; else begin ┆
0x0f60…0f80 69 66 20 63 68 3d 65 73 63 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 6e 65 77 73 74 61 74 ┆if ch=esc then begin newstat┆
0x0f80…0fa0 3a 3d 28 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 29 2a 5b 74 00 00 ┆:=(sheetÆfx,fyÅ.cellstatus)*Æt ┆
0x0fa0…0fc0 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3b 0d 0a 20 20 20 45 44 49 54 43 45 4c ┆ ===========; EDITCEL┆
0x0fc0…0fe0 4c 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 69 66 20 66 6f 72 6d ┆L; end else begin if form┆
0x0fe0…1000 75 6c 61 20 69 6e 20 73 68 65 65 74 5b 66 78 2c 66 79 5d 2e 63 00 00 00 00 00 00 02 0b 04 06 20 ┆ula in sheetÆfx,fyÅ.c ┆
0x1000…1020 (4,) 20 20 20 20 3a 65 67 69 6e 0d 0a 20 20 20 20 46 4c 41 53 48 28 31 33 2c 40 37 2b 27 20 20 52 65 ┆ :egin FLASH(13,@7+' Re┆
0x1020…1040 74 20 69 20 66 6f 72 6d 65 6c 20 4a 2f 4e 3f 20 20 20 27 2c 74 72 75 65 29 3b 0d 0a 20 20 20 20 ┆t i formel J/N? ',true); ┆
0x1040…1060 72 65 70 65 61 74 0d 0a 20 20 20 20 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆repeat ==========┆
0x1060…1080 3d 20 20 75 6e 74 69 6c 20 63 68 20 69 6e 20 5b 27 4a 27 2c 27 4e 27 5d 3b 0d 0a 20 20 20 20 46 ┆= until ch in Æ'J','N'Å; F┆
0x1080…10a0 4a 45 52 4e 46 4c 41 53 48 28 31 33 2c 32 33 29 3b 0d 0a 20 20 20 20 69 66 20 63 68 3d 27 4a 27 ┆JERNFLASH(13,23); if ch='J'┆
0x10a0…10c0 20 74 68 00 00 00 00 00 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 74 3a 3d 74 72 75 65 3b ┆ th : ****t:=true;┆
0x10c0…10e0 0d 0a 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 20 20 20 20 53 4b 49 46 54 54 59 ┆ end else begin SKIFTTY┆
0x10e0…1100 50 45 28 30 29 3b 0d 0a 20 20 20 20 6e 65 77 73 74 61 74 3a 3d 5b 74 78 74 5d 00 00 00 00 00 00 ┆PE(0); newstat:=ÆtxtÅ ┆
0x1100…1120 02 0b 04 08 20 20 20 20 20 3a 20 3c 0d 0a 20 20 20 20 47 45 54 54 45 58 54 3b 0d 0a 20 20 20 65 ┆ : < GETTEXT; e┆
0x1120…1140 6e 64 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 65 6e 64 3b 0d 0a 20 69 66 20 6e 6f 74 20 61 62 6f 72 ┆nd; end; end; if not abor┆
0x1140…1160 74 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 69 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d ┆t then begin i =====┆
0x1160…1180 3d 3d 3d 3d 3d 3d 6e 20 55 50 44 41 54 45 43 45 4c 4c 53 3b 0d 0a 20 20 69 66 20 6f 6e 73 63 72 ┆======n UPDATECELLS; if onscr┆
0x1180…11a0 65 65 6e 20 69 6e 20 6e 65 77 73 74 61 74 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 73 68 ┆een in newstat then begin sh┆
0x11a0…11c0 65 65 74 5b 66 78 2c 66 00 00 00 00 00 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 2a 78 2c ┆eetÆfx,f : *****x,┆
0x11c0…11e0 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 2b 5b 6f 6e 73 63 72 65 65 6e 5d 3b 0d 0a 20 20 65 6e ┆fyÅ.cellstatus+ÆonscreenÅ; en┆
0x11e0…1200 64 3b 0d 0a 20 20 47 4f 54 4f 43 45 4c 4c 28 66 78 2c 66 79 29 3b 0d 0a 20 20 69 66 20 61 75 00 ┆d; GOTOCELL(fx,fy); if au ┆
0x1200…1220 00 00 00 00 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 69 6e 20 73 68 65 65 74 5b 66 78 2c ┆ : ****in sheetÆfx,┆
0x1220…1240 66 79 5d 2e 63 65 6c 6c 73 74 61 74 75 73 29 20 74 68 65 6e 20 52 45 43 41 4c 43 55 4c 41 54 45 ┆fyÅ.cellstatus) then RECALCULATE┆
0x1240…1260 28 74 72 75 65 29 3b 0d 0a 20 20 69 66 20 74 78 74 20 69 6e 20 6e 00 00 00 00 00 00 02 0b 04 08 ┆(true); if txt in n ┆
0x1260…1280 20 20 20 20 20 3a 20 3c 0a 20 20 20 67 6f 74 6f 78 79 28 32 2c 66 79 29 3b 77 72 69 74 65 28 63 ┆ : < gotoxy(2,fy);write(c┆
0x1280…12a0 6c 72 65 6f 6c 29 3b 0d 0a 20 20 20 66 6f 72 20 69 3a 3d 27 41 27 20 74 6f 20 66 78 6d 61 78 20 ┆lreol); for i:='A' to fxmax ┆
0x12a0…12c0 64 6f 20 4c 45 41 56 45 43 45 4c 4c 28 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆do LEAVECELL( =========┆
0x12c0…12e0 3d 3d 0d 0a 20 46 4a 45 52 4e 46 4c 41 53 48 28 31 33 2c 32 33 29 3b 0d 0a 20 47 4f 54 4f 43 45 ┆== FJERNFLASH(13,23); GOTOCE┆
0x12e0…1300 4c 4c 28 66 78 2c 66 79 29 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 47 45 ┆LL(fx,fy); end; PROCEDURE GE┆
0x1300…1320 54 49 4e 54 00 00 00 00 00 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 67 65 72 3b 20 6d 61 ┆TINT : ****ger; ma┆
0x1320…1340 78 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 0d 0a 20 65 72 72 3a 20 69 6e 74 65 67 65 72 ┆x: integer); var err: integer┆
0x1340…1360 3b 0d 0a 20 63 68 3a 20 63 68 61 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 65 6c 69 6e 00 00 00 00 00 ┆; ch: char; begin elin ┆
0x1360…1380 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 29 3b 0d 0a 20 72 65 70 65 61 74 0d 0a 20 20 72 ┆ : ****); repeat r┆
0x1380…13a0 65 70 65 61 74 0d 0a 20 20 20 63 68 3a 3d 4b 45 59 3b 0d 0a 20 20 75 6e 74 69 6c 20 63 68 20 69 ┆epeat ch:=KEY; until ch i┆
0x13a0…13c0 6e 20 5b 27 30 27 2e 2e 27 39 27 2c 27 2d 27 2c 72 65 00 00 00 00 00 00 02 0b 04 08 20 20 20 20 ┆n Æ'0'..'9','-',re ┆
0x13c0…13e0 20 3a 20 3c 69 66 20 63 68 3c 3e 72 65 74 75 72 6e 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 ┆ : <if ch<>return then begin ┆
0x13e0…1400 20 69 66 20 63 68 3d 76 65 6e 73 74 72 65 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 69 ┆ if ch=venstre then begin i┆
0x1400…1420 (5,) 66 20 6c 65 6e 28 65 6c 69 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 6e 65 ┆f len(eli ===========ne┆
0x1420…1440 2c 6c 65 6e 28 65 6c 69 6e 65 29 2c 31 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 78 70 2c 32 ┆,len(eline),1); gotoxy(xp,2┆
0x1440…1460 33 29 3b 77 72 69 74 65 28 63 6c 72 65 6f 6c 2c 65 6c 69 6e 65 29 3b 20 0d 0a 20 20 20 65 6e 64 ┆3);write(clreol,eline); end┆
0x1460…1480 00 00 00 00 00 00 02 0b 04 06 20 20 20 20 20 3a 20 2a 2a 2a 2a 65 28 63 68 29 3b 20 65 6c 69 6e ┆ : ****e(ch); elin┆
0x1480…14a0 65 3a 3d 65 6c 69 6e 65 2b 63 68 3b 0d 0a 20 20 20 20 76 61 6c 28 65 6c 69 6e 65 2c 69 2c 65 72 ┆e:=eline+ch; val(eline,i,er┆
0x14a0…14c0 72 29 3b 0d 0a 20 20 20 65 6e 64 3b 20 0d 0a 20 20 65 6e 64 3b 0d 0a 00 00 00 00 00 00 02 0b 04 ┆r); end; end; ┆
0x14c0…14e0 08 20 20 20 20 20 3a 20 3c 3b 0d 0a 20 69 66 20 69 3e 6d 61 78 20 74 68 65 6e 20 69 3a 3d 6d 61 ┆ : <; if i>max then i:=ma┆
0x14e0…1500 78 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 7b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 6f 63 ┆x; end; æ the following proc┆
0x1500…1520 65 64 75 72 65 73 20 75 70 20 74 6f 20 43 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d ┆edures up to C ========┆
0x1520…1540 3d 3d 3d 66 6f 72 20 6f 76 65 72 6c 61 79 73 20 7d 0d 0a 7b 20 69 66 20 79 6f 75 20 61 72 65 20 ┆===for overlays å æ if you are ┆
0x1540…1560 69 6e 20 20 6e 65 65 64 20 6f 66 20 6d 6f 72 65 20 66 72 65 65 20 6d 65 6d 6f 72 79 20 20 20 20 ┆in need of more free memory ┆
0x1560…1580 20 20 20 20 20 00 00 00 00 00 00 02 0b 0c 00 20 20 20 20 20 20 20 20 7d 20 0d 0a 0d 0a 50 52 4f ┆ å PRO┆
0x1580…15a0 43 45 44 55 52 45 20 46 4f 52 4d 41 54 3b 0d 0a 76 61 72 0d 0a 20 6a 2c 66 77 2c 64 65 63 2c 6d ┆CEDURE FORMAT; var j,fw,dec,m┆
0x15a0…15c0 61 78 63 69 66 2c 6d 61 78 62 72 65 64 64 65 2c 0d 0a 20 66 72 6f 6d 6c 69 6e 65 2c 00 00 00 00 ┆axcif,maxbredde, fromline, ┆
0x15c0…15e0 00 00 02 0b 0c 00 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 3b 0d ┆ bredde: integer; ┆
0x15e0…1600 0a 20 6c 6f 63 6b 3a 20 20 20 20 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 74 61 ┆ lock: boolean; ta┆
0x1600…1620 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 00 00 00 00 00 00 02 0b 0c 00 63 6f 75 ┆l: stri cou┆
0x1620…1640 6e 74 2c 73 6c 75 74 66 65 6c 74 3a 20 73 68 65 65 74 69 6e 64 65 78 3b 0d 0a 0d 0a 62 65 67 69 ┆nt,slutfelt: sheetindex; begi┆
0x1640…1660 6e 0d 0a 20 6d 61 78 63 69 66 3a 3d 33 33 3b 64 65 63 3a 3d 6e 6f 72 6d 77 69 64 74 68 3b 66 77 ┆n maxcif:=33;dec:=normwidth;fw┆
0x1660…1680 3a 3d 6e 6f 72 6d 77 69 64 74 00 00 00 00 00 00 02 0b 0c 00 3a 3d 66 79 3b 74 6f 6c 69 6e 65 3a ┆:=normwidt :=fy;toline:┆
0x1680…16a0 3d 66 79 3b 0d 0a 20 73 74 72 28 6e 6f 72 6d 77 69 64 74 68 2c 74 61 6c 29 3b 0d 0a 20 77 72 69 ┆=fy; str(normwidth,tal); wri┆
0x16a0…16c0 74 65 28 72 76 73 6f 66 66 29 3b 0d 0a 20 4d 53 47 28 27 20 46 4f 52 4d 41 54 3a 20 41 6e 67 69 ┆te(rvsoff); MSG(' FORMAT: Angi┆
0x16c0…16e0 76 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 78 2e 20 27 2b 74 61 6c 2b 27 ┆v ===========x. '+tal+'┆
0x16e0…1700 29 3a 20 27 29 3b 0d 0a 20 47 45 54 49 4e 54 28 34 33 2c 64 65 63 2c 6e 6f 72 6d 77 69 64 74 68 ┆): '); GETINT(43,dec,normwidth┆
0x1700…1720 29 3b 0d 0a 20 69 66 20 6d 61 78 74 65 67 6e 2b 32 2d 78 70 6f 73 5b 66 00 00 00 00 00 00 02 0b ┆); if maxtegn+2-xposÆf ┆
0x1720…1740 04 08 20 20 20 41 52 45 41 4c 6d 61 78 62 72 65 64 64 65 3a 3d 6d 61 78 63 69 66 0d 0a 20 65 6c ┆ AREALmaxbredde:=maxcif el┆
0x1740…1760 73 65 0d 0a 20 20 6d 61 78 62 72 65 64 64 65 3a 3d 6d 61 78 74 65 67 6e 2b 32 2d 78 70 6f 73 5b ┆se maxbredde:=maxtegn+2-xposÆ┆
0x1760…1780 66 78 5d 3b 0d 0a 20 73 74 72 28 6d 61 78 62 00 00 00 00 00 00 02 0b 04 0b 3d 3d 3d 3d 3d 3d 3d ┆fxÅ; str(maxb =======┆
0x1780…17a0 3d 3d 3d 3d 6e 67 69 76 20 63 65 6c 6c 65 62 72 65 64 64 65 2e 20 28 6d 61 78 2e 20 27 2b 74 61 ┆====ngiv cellebredde. (max. '+ta┆
0x17a0…17c0 6c 2b 27 29 3a 20 27 29 3b 0d 0a 20 47 45 54 49 4e 54 28 33 32 2c 66 77 2c 6d 61 78 62 72 65 64 ┆l+'): '); GETINT(32,fw,maxbred┆
0x17c0…17e0 64 65 29 3b 0d 0a 00 00 00 00 00 00 02 0b 04 00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2b 27 20 6c 69 ┆de); ***********+' li┆
0x17e0…1800 6e 6a 65 3a 20 27 29 3b 0d 0a 20 47 45 54 49 4e 54 28 32 30 2c 66 72 6f 6d 6c 69 6e 65 2c 66 79 ┆nje: '); GETINT(20,fromline,fy┆
0x1800…1820 (6,) 6d 61 78 29 3b 0d 0a 20 4d 53 47 28 27 20 54 69 6c 20 73 7c 6a 6c 65 20 27 2b 66 78 2b 00 00 00 ┆max); MSG(' Til søjle '+fx+ ┆
0x1820…1840 00 00 00 02 0b 04 00 28 42 39 5e 32 29 45 54 49 4e 54 28 32 30 2c 74 6f 6c 69 6e 65 2c 66 79 6d ┆ (B9^2)ETINT(20,toline,fym┆
0x1840…1860 61 78 29 3b 0d 0a 20 69 66 20 66 72 6f 6d 6c 69 6e 65 3e 74 6f 6c 69 6e 65 20 74 68 65 6e 20 62 ┆ax); if fromline>toline then b┆
0x1860…1880 65 67 69 6e 0d 0a 20 20 62 72 65 64 64 65 3a 3d 66 72 6f 6d 47 11 0c 23 63 00 02 0b 04 0b 3d 3d ┆egin bredde:=fromG #c ==┆
0x1880…18a0 3d 3d 3d 3d 3d 3d 3d 3d 3d 6c 69 6e 65 3b 0d 0a 20 20 74 6f 6c 69 6e 65 3a 3d 62 72 65 64 64 65 ┆=========line; toline:=bredde┆
0x18a0…18c0 3b 0d 0a 20 65 6e 64 3b 20 0d 0a 20 69 66 20 66 77 3e 6e 6f 72 6d 77 69 64 74 68 20 74 68 65 6e ┆; end; if fw>normwidth then┆
0x18c0…18e0 20 6c 6f 63 6b 3a 3d 74 72 75 65 00 00 00 00 00 00 02 0b 04 00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ lock:=true ***********┆
0x18e0…1900 62 72 65 64 64 65 3a 3d 66 77 20 64 69 76 20 6e 6f 72 6d 77 69 64 74 68 3b 0d 0a 20 69 66 20 28 ┆bredde:=fw div normwidth; if (┆
0x1900…1920 66 77 20 6d 6f 64 20 6e 6f 72 6d 77 69 64 74 68 3e 30 29 20 74 68 65 6e 20 62 72 65 64 64 65 3a ┆fw mod normwidth>0) then bredde:┆
[…truncated at 200 lines…]