|
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: 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
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»