|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2944 (0xb80)
Types: RcTekst, TextFile
Names: »CORN24.WP«
└─⟦b73a66207⟧ Bits:30005844 Dokumenter - Per Cornelius #12 - #134
└─⟦this⟧ »CORN24.WP«
╱04002d4e0a000600000000020a5031000000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱
↲
corn afd. nr. 12 84.03.08 edb.corn.24↲
↲
↲
┆a1┆PSEUDO PROGRAM TIL OMKOSTNINGS RECORD.↲
↲
┆a1┆start:↲
læs log-reg,↲
case afhængig af kommando,↲
↲
┆a1┆pos:┆e1┆ gem log-reg i pos-gem,↲
↲
pos-next: læs næste log-reg,↲
↲
if kommando = cg eller kommando=dg↲
og log-tekst = tegn↲
så gem log-reg i fin-gem↲
go to pos-next,↲
↲
if kommando = ok og not = no↲
så udfør dan-rec-pos↲
go to start,↲
↲
if kommando = ok og = no↲
så slet gemme-arealer↲
go to start,↲
↲
go to pos-next.↲
↲
┆a1┆sf, skn, skx, kf, kkn, kkx:↲
↲
gem log-reg i fak-gem,↲
↲
fak-next: læs næste log-reg,↲
↲
if kommando = fl↲
og log-tekst = tegn↲
så gem log-reg i lin-gem↲
go to fak-next,↲
↲
if kommando = ok og not = no↲
så udfør dan-rec-fak↲
go to start,↲
↲
if kommando = ok og = no↲
så slet gemme-arealer↲
go to start,↲
↲
go to fak-next.↲
↲
┆a1┆go to start.↲
════════════════════════════════════════════════════════════════════════
↓
↲
┆a1┆dan-reg-pos:↲
sæt↲
prosit-center-nummer = fin-gem-tekst-nummer ciffer 1-2↲
projektnummer = fin-gem-tekst-nummer ciffer 3-6↲
kontonummer = fin-gem-kontonummer↲
beløb = fin-gem-beløb↲
tekst = fin-gem-tekst↲
kommando = fin-gem-kommando↲
bilagsnummer = pos-gem-bilagsnummer↲
bilagsdato = pos-gem-bilagsdato↲
bilags tekst = pos-gem-tekst↲
bilags kommando = pos-gem-kommando↲
udtræks periode = maskindato år og måned (84.02)↲
skriv omkostnings-rec,↲
if flere fin-gem↲
så go to dan-reg-pos,↲
else↲
slet gemme-arealer.↲
↲
↲
┆a1┆dan-reg-fak:↓
sæt↲
prosit-center-nummer = lin-gem-tekst-nummer ciffer 1-2↲
projektnummer = lin-gem-tekst-nummer ciffer 3-6↲
kontonummer = lin-gem-kontonummer↲
beløb = lin-gem-beløb↲
tekst = lin-gem-tekst↲
kommando = lin-gem-kommando↲
bilagsnummer = fak-gem-bilagsnummer↲
bilagsdato = fak-gem-bilagsdato↲
bilags tekst = fak-gem-tekst↲
bilags kommando = fak-gem-kommando↲
udtræks periode = maskindato år og måned (84.02)↲
skriv omkostnings-rec,↲
if flere lin-gem↲
så go to dan-reg-fak,↲
else↲
slet gemme-arealer.↲
════════════════════════════════════════════════════════════════════════
↓
┆1a┆┆1a┆ende:↲
↲
↲
↲
SIZE ....................>= . HW.↲
↲
↲
B
0x000…020 (0,) 00 00 00 00 00 00 00 00 42 03 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ B N ┆
0x020…040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x040…047 00 00 00 00 00 00 00 ┆ ┆
0x047…080 Params {
0x047…080 04 00 2d 4e 0a 00 06 00 00 00 00 02 0a 50 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -N P1 ┆
0x047…080 00 00 00 00 00 00 00 00 0e 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a ff 04 ┆ ",6@JT^hrø ┆
0x047…080 }
0x080…0a0 0d 0a 63 6f 72 6e 20 20 20 20 20 20 20 20 20 20 61 66 64 2e 20 6e 72 2e 20 31 32 20 20 20 20 20 ┆ corn afd. nr. 12 ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 38 34 2e 30 33 2e 30 38 20 20 20 20 20 20 20 20 65 64 62 ┆ 84.03.08 edb┆
0x0c0…0e0 2e 63 6f 72 6e 2e 32 34 0d 0a 0d 0a 0d 0a a1 50 53 45 55 44 4f 20 50 52 4f 47 52 41 4d 20 54 49 ┆.corn.24 PSEUDO PROGRAM TI┆
0x0e0…100 4c 20 4f 4d 4b 4f 53 54 4e 49 4e 47 53 20 52 45 43 4f 52 44 2e 0d 0a 0d 0a a1 73 74 61 72 74 3a ┆L OMKOSTNINGS RECORD. start:┆
0x100…120 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 7b 73 20 6c 6f 67 2d 72 65 67 2c 0d 0a 20 20 ┆ læs log-reg, ┆
0x120…140 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 61 66 68 7b 6e 67 69 67 20 61 66 20 6b 6f 6d ┆ case afhængig af kom┆
0x140…160 6d 61 6e 64 6f 2c 0d 0a 0d 0a a1 70 6f 73 3a e1 20 20 20 20 20 20 20 20 20 20 67 65 6d 20 6c 6f ┆mando, pos: gem lo┆
0x160…180 67 2d 72 65 67 20 69 20 70 6f 73 2d 67 65 6d 2c 0d 0a 0d 0a 70 6f 73 2d 6e 65 78 74 3a 20 20 20 ┆g-reg i pos-gem, pos-next: ┆
0x180…1a0 20 20 6c 7b 73 20 6e 7b 73 74 65 20 6c 6f 67 2d 72 65 67 2c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ┆ læs næste log-reg, ┆
0x1a0…1c0 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 63 67 20 65 6c 6c 65 72 ┆ if kommando = cg eller┆
0x1c0…1e0 20 6b 6f 6d 6d 61 6e 64 6f 3d 64 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ kommando=dg ┆
0x1e0…200 20 20 20 6f 67 20 6c 6f 67 2d 74 65 6b 73 74 20 3d 20 74 65 67 6e 0d 0a 20 20 20 20 20 20 20 20 ┆ og log-tekst = tegn ┆
0x200…220 (1,) 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7d 20 67 65 6d 20 6c 6f 67 2d 72 65 67 20 69 20 66 69 ┆ så gem log-reg i fi┆
0x220…240 6e 2d 67 65 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 ┆n-gem go t┆
0x240…260 6f 20 70 6f 73 2d 6e 65 78 74 2c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o pos-next, ┆
0x260…280 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 6f 6b 20 6f 67 20 6e 6f 74 20 3d 20 6e 6f 0d 0a 20 ┆ if kommando = ok og not = no ┆
0x280…2a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7d 20 75 64 66 7c 72 20 64 61 6e ┆ så udfør dan┆
0x2a0…2c0 2d 72 65 63 2d 70 6f 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆-rec-pos g┆
0x2c0…2e0 6f 20 74 6f 20 73 74 61 72 74 2c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o to start, ┆
0x2e0…300 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 6f 6b 20 6f 67 20 3d 20 6e 6f 0d 0a 20 20 20 20 20 ┆ if kommando = ok og = no ┆
0x300…320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7d 20 73 6c 65 74 20 67 65 6d 6d 65 2d 61 72 ┆ så slet gemme-ar┆
0x320…340 65 61 6c 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 ┆ealer go t┆
0x340…360 6f 20 73 74 61 72 74 2c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 6f 20 ┆o start, go to ┆
0x360…380 70 6f 73 2d 6e 65 78 74 2e 0d 0a 0d 0a a1 73 66 2c 20 73 6b 6e 2c 20 73 6b 78 2c 20 6b 66 2c 20 ┆pos-next. sf, skn, skx, kf, ┆
0x380…3a0 6b 6b 6e 2c 20 6b 6b 78 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6d 20 6c ┆kkn, kkx: gem l┆
0x3a0…3c0 6f 67 2d 72 65 67 20 69 20 66 61 6b 2d 67 65 6d 2c 0d 0a 0d 0a 66 61 6b 2d 6e 65 78 74 3a 20 20 ┆og-reg i fak-gem, fak-next: ┆
0x3c0…3e0 20 20 20 6c 7b 73 20 6e 7b 73 74 65 20 6c 6f 67 2d 72 65 67 2c 0d 0a 0d 0a 20 20 20 20 20 20 20 ┆ læs næste log-reg, ┆
0x3e0…400 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 66 6c 0d 0a 20 20 20 ┆ if kommando = fl ┆
0x400…420 (2,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 67 20 6c 6f 67 2d 74 65 6b 73 74 20 3d ┆ og log-tekst =┆
0x420…440 20 74 65 67 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7d 20 67 ┆ tegn så g┆
0x440…460 65 6d 20 6c 6f 67 2d 72 65 67 20 69 20 6c 69 6e 2d 67 65 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆em log-reg i lin-gem ┆
0x460…480 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 6f 20 66 61 6b 2d 6e 65 78 74 2c 0d 0a 0d 0a 20 20 ┆ go to fak-next, ┆
0x480…4a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 6f 6b ┆ if kommando = ok┆
0x4a0…4c0 20 6f 67 20 6e 6f 74 20 3d 20 6e 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ og not = no ┆
0x4c0…4e0 20 20 20 73 7d 20 75 64 66 7c 72 20 64 61 6e 2d 72 65 63 2d 66 61 6b 0d 0a 20 20 20 20 20 20 20 ┆ så udfør dan-rec-fak ┆
0x4e0…500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 6f 20 73 74 61 72 74 2c 0d 0a 0d 0a 20 20 ┆ go to start, ┆
0x500…520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 6d 6d 61 6e 64 6f 20 3d 20 6f 6b ┆ if kommando = ok┆
0x520…540 20 6f 67 20 3d 20 6e 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ og = no s┆
0x540…560 7d 20 73 6c 65 74 20 67 65 6d 6d 65 2d 61 72 65 61 6c 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆å slet gemme-arealer ┆
0x560…580 20 20 20 20 20 20 20 20 20 20 20 67 6f 20 74 6f 20 73 74 61 72 74 2c 0d 0a 0d 0a 20 20 20 20 20 ┆ go to start, ┆
0x580…5a0 20 20 20 20 20 20 20 20 20 67 6f 20 74 6f 20 66 61 6b 2d 6e 65 78 74 2e 0d 0a 0d 0a a1 67 6f 20 ┆ go to fak-next. go ┆
0x5a0…5ab 74 6f 20 73 74 61 72 74 2e 0d 0a ┆to start. ┆
0x5ab…5ae FormFeed {
0x5ab…5ae 0c 89 c8 ┆ ┆
0x5ab…5ae }
0x5ae…5c0 0a 0d 0a a1 64 61 6e 2d 72 65 67 2d 70 6f 73 3a 0d 0a ┆ dan-reg-pos: ┆
0x5c0…5e0 20 20 20 73 7b 74 0d 0a 20 20 20 20 20 20 20 70 72 6f 73 69 74 2d 63 65 6e 74 65 72 2d 6e 75 6d ┆ sæt prosit-center-num┆
0x5e0…600 6d 65 72 20 3d 20 66 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 2d 6e 75 6d 6d 65 72 20 63 69 66 66 65 ┆mer = fin-gem-tekst-nummer ciffe┆
0x600…620 (3,) 72 20 31 2d 32 0d 0a 20 20 20 20 20 20 20 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 20 20 20 20 20 ┆r 1-2 projektnummer ┆
0x620…640 20 20 20 3d 20 66 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 2d 6e 75 6d 6d 65 72 20 63 69 66 66 65 72 ┆ = fin-gem-tekst-nummer ciffer┆
0x640…660 20 33 2d 36 0d 0a 20 20 20 20 20 20 20 6b 6f 6e 74 6f 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 ┆ 3-6 kontonummer ┆
0x660…680 20 20 3d 20 66 69 6e 2d 67 65 6d 2d 6b 6f 6e 74 6f 6e 75 6d 6d 65 72 0d 0a 20 20 20 20 20 20 20 ┆ = fin-gem-kontonummer ┆
0x680…6a0 62 65 6c 7c 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 66 69 6e 2d 67 65 6d 2d 62 ┆beløb = fin-gem-b┆
0x6a0…6c0 65 6c 7c 62 0d 0a 20 20 20 20 20 20 20 74 65 6b 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eløb tekst ┆
0x6c0…6e0 20 20 3d 20 66 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 0d 0a 20 20 20 20 20 20 20 6b 6f 6d 6d 61 6e ┆ = fin-gem-tekst komman┆
0x6e0…700 64 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 66 69 6e 2d 67 65 6d 2d 6b 6f 6d 6d 61 6e 64 ┆do = fin-gem-kommand┆
0x700…720 6f 0d 0a 20 20 20 20 20 20 20 62 69 6c 61 67 73 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 3d ┆o bilagsnummer =┆
0x720…740 20 70 6f 73 2d 67 65 6d 2d 62 69 6c 61 67 73 6e 75 6d 6d 65 72 0d 0a 20 20 20 20 20 20 20 62 69 ┆ pos-gem-bilagsnummer bi┆
0x740…760 6c 61 67 73 64 61 74 6f 20 20 20 20 20 20 20 20 20 20 20 3d 20 70 6f 73 2d 67 65 6d 2d 62 69 6c ┆lagsdato = pos-gem-bil┆
0x760…780 61 67 73 64 61 74 6f 0d 0a 20 20 20 20 20 20 20 62 69 6c 61 67 73 20 74 65 6b 73 74 20 20 20 20 ┆agsdato bilags tekst ┆
0x780…7a0 20 20 20 20 20 3d 20 70 6f 73 2d 67 65 6d 2d 74 65 6b 73 74 0d 0a 20 20 20 20 20 20 20 62 69 6c ┆ = pos-gem-tekst bil┆
0x7a0…7c0 61 67 73 20 6b 6f 6d 6d 61 6e 64 6f 20 20 20 20 20 20 3d 20 70 6f 73 2d 67 65 6d 2d 6b 6f 6d 6d ┆ags kommando = pos-gem-komm┆
0x7c0…7e0 61 6e 64 6f 0d 0a 20 20 20 20 20 20 20 75 64 74 72 7b 6b 73 20 70 65 72 69 6f 64 65 20 20 20 20 ┆ando udtræks periode ┆
0x7e0…800 20 20 3d 20 6d 61 73 6b 69 6e 64 61 74 6f 20 7d 72 20 6f 67 20 6d 7d 6e 65 64 20 28 38 34 2e 30 ┆ = maskindato år og måned (84.0┆
0x800…820 (4,) 32 29 0d 0a 20 20 73 6b 72 69 76 20 6f 6d 6b 6f 73 74 6e 69 6e 67 73 2d 72 65 63 2c 0d 0a 20 20 ┆2) skriv omkostnings-rec, ┆
0x820…840 69 66 20 66 6c 65 72 65 20 66 69 6e 2d 67 65 6d 0d 0a 20 20 20 20 20 73 7d 20 67 6f 20 74 6f 20 ┆if flere fin-gem så go to ┆
0x840…860 64 61 6e 2d 72 65 67 2d 70 6f 73 2c 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 73 6c 65 74 20 ┆dan-reg-pos, else slet ┆
0x860…880 67 65 6d 6d 65 2d 61 72 65 61 6c 65 72 2e 0d 0a 0d 0a 0d 0a a1 64 61 6e 2d 72 65 67 2d 66 61 6b ┆gemme-arealer. dan-reg-fak┆
0x880…8a0 3a 0a 20 20 20 73 7b 74 0d 0a 20 20 20 20 20 20 20 70 72 6f 73 69 74 2d 63 65 6e 74 65 72 2d 6e ┆: sæt prosit-center-n┆
0x8a0…8c0 75 6d 6d 65 72 20 3d 20 6c 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 2d 6e 75 6d 6d 65 72 20 63 69 66 ┆ummer = lin-gem-tekst-nummer cif┆
0x8c0…8e0 66 65 72 20 31 2d 32 0d 0a 20 20 20 20 20 20 20 70 72 6f 6a 65 6b 74 6e 75 6d 6d 65 72 20 20 20 ┆fer 1-2 projektnummer ┆
0x8e0…900 20 20 20 20 20 3d 20 6c 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 2d 6e 75 6d 6d 65 72 20 63 69 66 66 ┆ = lin-gem-tekst-nummer ciff┆
0x900…920 65 72 20 33 2d 36 0d 0a 20 20 20 20 20 20 20 6b 6f 6e 74 6f 6e 75 6d 6d 65 72 20 20 20 20 20 20 ┆er 3-6 kontonummer ┆
0x920…940 20 20 20 20 3d 20 6c 69 6e 2d 67 65 6d 2d 6b 6f 6e 74 6f 6e 75 6d 6d 65 72 0d 0a 20 20 20 20 20 ┆ = lin-gem-kontonummer ┆
0x940…960 20 20 62 65 6c 7c 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 6c 69 6e 2d 67 65 6d ┆ beløb = lin-gem┆
0x960…980 2d 62 65 6c 7c 62 0d 0a 20 20 20 20 20 20 20 74 65 6b 73 74 20 20 20 20 20 20 20 20 20 20 20 20 ┆-beløb tekst ┆
0x980…9a0 20 20 20 20 3d 20 6c 69 6e 2d 67 65 6d 2d 74 65 6b 73 74 0d 0a 20 20 20 20 20 20 20 6b 6f 6d 6d ┆ = lin-gem-tekst komm┆
0x9a0…9c0 61 6e 64 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 6c 69 6e 2d 67 65 6d 2d 6b 6f 6d 6d 61 ┆ando = lin-gem-komma┆
0x9c0…9e0 6e 64 6f 0d 0a 20 20 20 20 20 20 20 62 69 6c 61 67 73 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 ┆ndo bilagsnummer ┆
0x9e0…a00 20 3d 20 66 61 6b 2d 67 65 6d 2d 62 69 6c 61 67 73 6e 75 6d 6d 65 72 0d 0a 20 20 20 20 20 20 20 ┆ = fak-gem-bilagsnummer ┆
0xa00…a20 (5,) 62 69 6c 61 67 73 64 61 74 6f 20 20 20 20 20 20 20 20 20 20 20 3d 20 66 61 6b 2d 67 65 6d 2d 62 ┆bilagsdato = fak-gem-b┆
0xa20…a40 69 6c 61 67 73 64 61 74 6f 0d 0a 20 20 20 20 20 20 20 62 69 6c 61 67 73 20 74 65 6b 73 74 20 20 ┆ilagsdato bilags tekst ┆
0xa40…a60 20 20 20 20 20 20 20 3d 20 66 61 6b 2d 67 65 6d 2d 74 65 6b 73 74 0d 0a 20 20 20 20 20 20 20 62 ┆ = fak-gem-tekst b┆
0xa60…a80 69 6c 61 67 73 20 6b 6f 6d 6d 61 6e 64 6f 20 20 20 20 20 20 3d 20 66 61 6b 2d 67 65 6d 2d 6b 6f ┆ilags kommando = fak-gem-ko┆
0xa80…aa0 6d 6d 61 6e 64 6f 0d 0a 20 20 20 20 20 20 20 75 64 74 72 7b 6b 73 20 70 65 72 69 6f 64 65 20 20 ┆mmando udtræks periode ┆
0xaa0…ac0 20 20 20 20 3d 20 6d 61 73 6b 69 6e 64 61 74 6f 20 7d 72 20 6f 67 20 6d 7d 6e 65 64 20 28 38 34 ┆ = maskindato år og måned (84┆
0xac0…ae0 2e 30 32 29 0d 0a 20 20 73 6b 72 69 76 20 6f 6d 6b 6f 73 74 6e 69 6e 67 73 2d 72 65 63 2c 0d 0a ┆.02) skriv omkostnings-rec, ┆
0xae0…b00 20 20 69 66 20 66 6c 65 72 65 20 6c 69 6e 2d 67 65 6d 0d 0a 20 20 20 20 20 73 7d 20 67 6f 20 74 ┆ if flere lin-gem så go t┆
0xb00…b20 6f 20 64 61 6e 2d 72 65 67 2d 66 61 6b 2c 0d 0a 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 73 6c 65 ┆o dan-reg-fak, else sle┆
0xb20…b32 74 20 67 65 6d 6d 65 2d 61 72 65 61 6c 65 72 2e 0d 0a ┆t gemme-arealer. ┆
0xb32…b35 FormFeed {
0xb32…b35 0c 87 a8 ┆ ┆
0xb32…b35 }
0xb35…b40 0a 1a 1a 65 6e 64 65 3a 0d 0a 0d ┆ ende: ┆
0xb40…b60 0a 0d 0a 0d 0a 20 20 20 20 20 53 49 5a 45 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ SIZE .................┆
0xb60…b80 2e 2e 2e 3e 3d 20 20 20 20 20 2e 20 20 20 20 20 20 48 57 2e 0d 0a 0d 0a 0d 0a 20 20 20 20 20 42 ┆...>= . HW. B┆
B▶03◀▶06◀N▶04◀-N
▶06◀▶02◀
P1▶0e◀▶18◀",6@JT^hrø▶86◀▶90◀▶9a◀▶ff◀▶04◀
corn afd. nr. 12 84.03.08 edb.corn.24
▶a1◀PSEUDO PROGRAM TIL OMKOSTNINGS RECORD.
▶a1◀start:
læs log-reg,
case afhængig af kommando,
▶a1◀pos:▶e1◀ gem log-reg i pos-gem,
pos-next: læs næste log-reg,
if kommando = cg eller kommando=dg
og log-tekst = tegn
så gem log-reg i fin-gem
go to pos-next,
if kommando = ok og not = no
så udfør dan-rec-pos
go to start,
if kommando = ok og = no
så slet gemme-arealer
go to start,
go to pos-next.
▶a1◀sf, skn, skx, kf, kkn, kkx:
gem log-reg i fak-gem,
fak-next: læs næste log-reg,
if kommando = fl
og log-tekst = tegn
så gem log-reg i lin-gem
go to fak-next,
if kommando = ok og not = no
så udfør dan-rec-fak
go to start,
if kommando = ok og = no
så slet gemme-arealer
go to start,
go to fak-next.
▶a1◀go to start.
\f
▶89◀▶c8◀
▶a1◀dan-reg-pos:
sæt
prosit-center-nummer = fin-gem-tekst-nummer ciffer 1-2
projektnummer = fin-gem-tekst-nummer ciffer 3-6
kontonummer = fin-gem-kontonummer
beløb = fin-gem-beløb
tekst = fin-gem-tekst
kommando = fin-gem-kommando
bilagsnummer = pos-gem-bilagsnummer
bilagsdato = pos-gem-bilagsdato
bilags tekst = pos-gem-tekst
bilags kommando = pos-gem-kommando
udtræks periode = maskindato år og måned (84.02)
skriv omkostnings-rec,
if flere fin-gem
så go to dan-reg-pos,
else
slet gemme-arealer.
▶a1◀dan-reg-fak:
sæt
prosit-center-nummer = lin-gem-tekst-nummer ciffer 1-2
projektnummer = lin-gem-tekst-nummer ciffer 3-6
kontonummer = lin-gem-kontonummer
beløb = lin-gem-beløb
tekst = lin-gem-tekst
kommando = lin-gem-kommando
bilagsnummer = fak-gem-bilagsnummer
bilagsdato = fak-gem-bilagsdato
bilags tekst = fak-gem-tekst
bilags kommando = fak-gem-kommando
udtræks periode = maskindato år og måned (84.02)
skriv omkostnings-rec,
if flere lin-gem
så go to dan-reg-fak,
else
slet gemme-arealer.
\f
▶87◀▶a8◀
«eof»