|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »NOTEX.K«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─⟦this⟧ »NOTEX.K«
NOTEX.
Programmer:
-Ordrevedligeholdelse
oprettelse - kræver kontrol med tabel-filen
rettelse
nedlæggelse - kræver kontrol med tabel-filen
refresh - indlæser tabel-filen
-Opretpos
opret positioner - 8 pos, 30 tegn
opret ordrefiler - 350 filer
opret ordrefils-tabel-fil
-Udskrifter af ordrer
til et NR - direkte opslag
i NR-orden - totalt gennemløb
til en LEV-DATO - do.
til en KUNDE - do.
til en SAG - do.
til en POS - do.
i POS-orden - 8 totale gennemløb.
En position er i dette tilfælde en afdeling i firmaet, f. eks. trykkeriet.
En ordre kan være i flere positioner samtidig, og bevæger sig under ordre-
afviklingen fra position til position.
Et ordrenr består af: et bogstav, 4 cifre, en - og to cifre, altså f. eks.
N4711-24.
%P
Datafiler.
- Positionsfil
direkte fil
8 poster a 30 tegn, positionens navn
filnavn: "POSITION".
- Ordrefiler
sekventielle filer
350 filer med navne "F001" - "F350"
hver fil bestående af følgende 6 poster:
KUNDE$ 70 tegn
SAG$ 70 tegn
OBS1$ 70 tegn
OBS2$ 70 tegn
PAPIR$ 70 tegn
POS$,LEVDAT 8 tegn, 6 cifre.
Hvis ordren er i POS nr I, er POS$(I) = "1" ellers "0".
- Filen med tabellen over ordrefilerne.
sekventiel fil.
filnavn: "FILES"
70 poster, hver bestående af 5 felter a 12 tegn.
hvert felt beskriver et ordrenr med tilhørende fil, f. eks.:
Tabellen er erklæret som : DIM FILES$(350,12)
Post 1 består af:
FILES$(1),FILES$(2),FILES$(3),FILES$(4),FILES$(5),
hvor f. eks. FILES$(3) er : "N4117-59F221", hvilket betyder, at
ordrenr N4117-59 er i fil: F221.
Tabellen skal være sorteret efter ordrenr.
%P
Ordrevedligeholdelse.
1. oprettelse
Filen "FILES" skal være åbnet for skrivning, samt indlæst i FILES$, så kan
de andre terminaler nemlig ikke komme til at ændre tabellen samtidig.
- find den første ledige fil i FILES$
- indlæs ordrenr, indsæt i ordredelen i FILES$, sorter ordren ind på plads
i FILES$, afvis den hvis nummeret findes.
- indlæs de første fem poster i ordren, samt LEVDATO (ÅÅMMDD), og evt.
positionsnumre.
- skriv ordren i den fundne fil
- skriv FILES$ i FILES og luk FILES
2. rettelse
- indlæs ordrenr
- find ordrenr i FILES$ og åben filen og indlæs ordren
- skriv alle oplysninger på skærmen, med et nr på hvert felt. For hver
POS med POS$(I)="1" skal positionens navn findes i "POSITION"-filens
post I, og skrives på skærmen.
- indlæs feltnr og ret indtil færdig
- skriv ordren tilbage og luk filen
3. nedlæggelse
Filen "FILES" skal være åben for skrivning, og nyindlæst.
- indlæs ordrenr og find i FILES$
- indlæs ordren og skriv på skærmen
- bekræft at ordren skal nedlægges
- sæt ordrenr-delen i FILES$ til CHR(126), skyd FILES$ sammen og flyt den
slettede fil, samt skriv FILES$ ud og luk "FILES".
4. refresh
- indlæs filen "FILES" i tabellen FILES$
Alle 4 punkter skal ligge i samme program, og ting som:
indlæs FILES, skriv ordre på skærm, indlæs ordre, find ordrenr i
FILES$, o.s.v.
kan laves i fælles procedurer.
Når programmet startes, skal FILES indlæses, derefter skal det hver gang
stoppe i en situation, hvor alle filer er lukket, og et af de 4 alternativer
kan vælges.
Der kan muligvis også blive plads til udskriftsprogrammerne.
%P
Opret positioner og andet.
1. opret positioner.
- opret filen "POSITION". CREATE "NOTEX:POSITION",8,30
- indlæs POS-NR, POS-NAVN,
og skriv POS-NAVN i post nr. POS-NR i filen "POSITION".
2. opret ordrefiler.
- opret de 350 ordrefiler. F. eks.
10 DIM NR$(3),FIL$(20),FIL1$(20)
20 FIL$="NOTEX:F"
30 FOR I =1 TO 350
40 NR$=CHR(I DIV 100 +48)+CHR(I MOD 100 DIV 10 +48)+CHR(I MOD 10+48)
50 FIL1$=FIL$+NR$
60 CREATE FIL1$,2
70 NEXT I
3. opret ordrefils-tabel-filen.
- CREATE "NOTEX:FILES",18
- lad FILES$ indeholde "üüüüüüüüF001" ... "üüüüüüüüF350"
- udskriv FILES$ som
FOR I = 0 TO 69
PUT "NOTEX:FILES":FILES$(5*I+1),.........,FILES$(5*I+5)
NEXT I
%P
Udskrifter.
FILES$ skal være indlæst.
- Vælg udskriftsmåde.
- for:
NR-orden gennemløbes FILES$ og alle udskrives
et NR: find nr i FILES$, indlæs ordre, udskriv
en POS, en LEVDATO, en KUNDE, en SAG : FILES$ gennemløbes, alle ordrer
indlæses, dem der matcher udskrives.
POS-orden: FILES$ gennemløbes 1 gang for hver pos. Alle ordrer indlæ-
ses, de matchende udskrives.
Skulle gerne kunne indsættes i vedligeholdelses-programmet, da der da så godt
som aldrig skal skiftes program.
0x0000…0008 Line {l1=0x06, l2=»NOTEX.«, l3=0x06}
0x0008…000b Line {l1=0x01, l2=» «, l3=0x01}
0x000b…0018 Line {l1=0x0b, l2=»Programmer:«, l3=0x0b}
0x0018…001b Line {l1=0x01, l2=» «, l3=0x01}
0x001b…0032 Line {l1=0x15, l2=»-Ordrevedligeholdelse«, l3=0x15}
0x0032…0066 Line {l1=0x32, l2=» oprettelse - kræver kontrol med tabel-filen«, l3=0x32}
0x0066…0077 Line {l1=0x0f, l2=» rettelse«, l3=0x0f}
0x0077…00ac Line {l1=0x33, l2=» nedlæggelse - kræver kontrol med tabel-filen«, l3=0x33}
0x00ac…00d3 Line {l1=0x25, l2=» refresh - indlæser tabel-filen«, l3=0x25}
0x00d3…00d6 Line {l1=0x01, l2=» «, l3=0x01}
0x00d6…00e1 Line {l1=0x09, l2=»-Opretpos«, l3=0x09}
0x00e1…010b Line {l1=0x28, l2=» opret positioner - 8 pos, 30 tegn«, l3=0x28}
0x010b…0130 Line {l1=0x23, l2=» opret ordrefiler - 350 filer«, l3=0x23}
0x0130…0152 Line {l1=0x20, l2=» opret ordrefils-tabel-fil«, l3=0x20}
0x0152…0155 Line {l1=0x01, l2=» «, l3=0x01}
0x0155…016c Line {l1=0x15, l2=»-Udskrifter af ordrer«, l3=0x15}
0x016c…018f Line {l1=0x21, l2=» til et NR - direkte opslag«, l3=0x21}
0x018f…01b5 Line {l1=0x24, l2=» i NR-orden - totalt gennemløb«, l3=0x24}
0x01b5…01d5 Line {l1=0x1e, l2=» til en LEV-DATO - do.«, l3=0x1e}
0x01d5…01f5 Line {l1=0x1e, l2=» til en KUNDE - do.«, l3=0x1e}
0x01f5…0215 Line {l1=0x1e, l2=» til en SAG - do.«, l3=0x1e}
0x0215…0235 Line {l1=0x1e, l2=» til en POS - do.«, l3=0x1e}
0x0235…025f Line {l1=0x28, l2=» i POS-orden - 8 totale gennemløb.«, l3=0x28}
0x025f…0262 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0265…02b1 Line {l1=0x4a, l2=»En position er i dette tilfælde en afdeling i firmaet, f. eks. trykkeriet.«, l3=0x4a}
0x02b1…02fd Line {l1=0x4a, l2=»En ordre kan være i flere positioner samtidig, og bevæger sig under ordre-«, l3=0x4a}
0x02fd…0325 Line {l1=0x26, l2=»afviklingen fra position til position.«, l3=0x26}
0x0325…0371 Line {l1=0x4a, l2=»Et ordrenr består af: et bogstav, 4 cifre, en - og to cifre, altså f. eks.«, l3=0x4a}
0x0371…037c Line {l1=0x09, l2=»N4711-24.«, l3=0x09}
0x037c…0380 Line {l1=0x02, l2=»%P«, l3=0x02}
0x0380…038c Line {l1=0x0a, l2=»Datafiler.«, l3=0x0a}
0x038c…038f Line {l1=0x01, l2=» «, l3=0x01}
0x038f…039f Line {l1=0x0e, l2=»- Positionsfil«, l3=0x0e}
0x039f…03b3 Line {l1=0x12, l2=» direkte fil«, l3=0x12}
0x03b3…03e0 Line {l1=0x2b, l2=» 8 poster a 30 tegn, positionens navn«, l3=0x2b}
0x03e0…03fd Line {l1=0x1b, l2=» filnavn: "POSITION".«, l3=0x1b}
0x03fd…0400 Line {l1=0x01, l2=» «, l3=0x01}
0x0400…040e Line {l1=0x0c, l2=»- Ordrefiler«, l3=0x0c}
0x040e…0429 Line {l1=0x19, l2=» sekventielle filer«, l3=0x19}
0x0429…0455 Line {l1=0x2a, l2=» 350 filer med navne "F001" - "F350"«, l3=0x2a}
0x0455…0486 Line {l1=0x2f, l2=» hver fil bestående af følgende 6 poster:«, l3=0x2f}
0x0486…04a1 Line {l1=0x19, l2=» KUNDE$ 70 tegn«, l3=0x19}
0x04a1…04bc Line {l1=0x19, l2=» SAG$ 70 tegn«, l3=0x19}
0x04bc…04d7 Line {l1=0x19, l2=» OBS1$ 70 tegn«, l3=0x19}
0x04d7…04f2 Line {l1=0x19, l2=» OBS2$ 70 tegn«, l3=0x19}
0x04f2…050d Line {l1=0x19, l2=» PAPIR$ 70 tegn«, l3=0x19}
0x050d…0536 Line {l1=0x27, l2=» POS$,LEVDAT 8 tegn, 6 cifre.«, l3=0x27}
0x0536…0576 Line {l1=0x3e, l2=» Hvis ordren er i POS nr I, er POS$(I) = "1" ellers "0".«, l3=0x3e}
0x0576…0579 Line {l1=0x01, l2=» «, l3=0x01}
0x0579…05a2 Line {l1=0x27, l2=»- Filen med tabellen over ordrefilerne.«, l3=0x27}
0x05a2…05ba Line {l1=0x16, l2=» sekventiel fil.«, l3=0x16}
0x05ba…05d3 Line {l1=0x17, l2=» filnavn: "FILES"«, l3=0x17}
0x05d3…060c Line {l1=0x37, l2=» 70 poster, hver bestående af 5 felter a 12 tegn.«, l3=0x37}
0x060c…0651 Line {l1=0x43, l2=» hvert felt beskriver et ordrenr med tilhørende fil, f. eks.:«, l3=0x43}
0x0651…0687 Line {l1=0x34, l2=» Tabellen er erklæret som : DIM FILES$(350,12)«, l3=0x34}
0x0687…06a1 Line {l1=0x18, l2=» Post 1 består af:«, l3=0x18}
0x06a1…06dc Line {l1=0x39, l2=» FILES$(1),FILES$(2),FILES$(3),FILES$(4),FILES$(5),«, l3=0x39}
0x06dc…0724 Line {l1=0x46, l2=» hvor f. eks. FILES$(3) er : "N4117-59F221", hvilket betyder, at«, l3=0x46}
0x0724…074d Line {l1=0x27, l2=» ordrenr N4117-59 er i fil: F221.«, l3=0x27}
0x074d…0780 Line {l1=0x31, l2=» Tabellen skal være sorteret efter ordrenr.«, l3=0x31}
0x0780…0784 Line {l1=0x02, l2=»%P«, l3=0x02}
0x0784…079b Line {l1=0x15, l2=»Ordrevedligeholdelse.«, l3=0x15}
0x079b…079e Line {l1=0x01, l2=» «, l3=0x01}
0x079e…07ad Line {l1=0x0d, l2=»1. oprettelse«, l3=0x0d}
0x07ad…07fb Line {l1=0x4c, l2=» Filen "FILES" skal være åbnet for skrivning, samt indlæst i FILES$, så kan«, l3=0x4c}
0x07fb…0844 Line {l1=0x47, l2=» de andre terminaler nemlig ikke komme til at ændre tabellen samtidig.«, l3=0x47}
0x0844…0847 Line {l1=0x01, l2=» «, l3=0x01}
0x0847…0870 Line {l1=0x27, l2=» - find den første ledige fil i FILES$«, l3=0x27}
0x0870…08be Line {l1=0x4c, l2=» - indlæs ordrenr, indsæt i ordredelen i FILES$, sorter ordren ind på plads«, l3=0x4c}
0x08be…08ed Line {l1=0x2d, l2=» i FILES$, afvis den hvis nummeret findes.«, l3=0x2d}
0x08ed…0937 Line {l1=0x48, l2=» - indlæs de første fem poster i ordren, samt LEVDATO (ÅÅMMDD), og evt.«, l3=0x48}
0x0937…094c Line {l1=0x13, l2=» positionsnumre.«, l3=0x13}
0x094c…096f Line {l1=0x21, l2=» - skriv ordren i den fundne fil«, l3=0x21}
0x096f…0996 Line {l1=0x25, l2=» - skriv FILES$ i FILES og luk FILES«, l3=0x25}
0x0996…0999 Line {l1=0x01, l2=» «, l3=0x01}
0x0999…09a6 Line {l1=0x0b, l2=»2. rettelse«, l3=0x0b}
0x09a6…09ba Line {l1=0x12, l2=» - indlæs ordrenr«, l3=0x12}
0x09ba…09f4 Line {l1=0x38, l2=» - find ordrenr i FILES$ og åben filen og indlæs ordren«, l3=0x38}
0x09f4…0a3e Line {l1=0x48, l2=» - skriv alle oplysninger på skærmen, med et nr på hvert felt. For hver«, l3=0x48}
0x0a3e…0a88 Line {l1=0x48, l2=» POS med POS$(I)="1" skal positionens navn findes i "POSITION"-filens«, l3=0x48}
0x0a88…0aac Line {l1=0x22, l2=» post I, og skrives på skærmen.«, l3=0x22}
0x0aac…0ad4 Line {l1=0x26, l2=» - indlæs feltnr og ret indtil færdig«, l3=0x26}
0x0ad4…0afb Line {l1=0x25, l2=» - skriv ordren tilbage og luk filen«, l3=0x25}
0x0afb…0afe Line {l1=0x01, l2=» «, l3=0x01}
0x0afe…0b0e Line {l1=0x0e, l2=»3. nedlæggelse«, l3=0x0e}
0x0b0e…0b4b Line {l1=0x3b, l2=» Filen "FILES" skal være åben for skrivning, og nyindlæst.«, l3=0x3b}
0x0b4b…0b70 Line {l1=0x23, l2=» - indlæs ordrenr og find i FILES$«, l3=0x23}
0x0b70…0b97 Line {l1=0x25, l2=» - indlæs ordren og skriv på skærmen«, l3=0x25}
0x0b97…0bbd Line {l1=0x24, l2=» - bekræft at ordren skal nedlægges«, l3=0x24}
0x0bbd…0c0a Line {l1=0x4b, l2=» - sæt ordrenr-delen i FILES$ til CHR(126), skyd FILES$ sammen og flyt den«, l3=0x4b}
0x0c0a…0c42 Line {l1=0x36, l2=» slettede fil, samt skriv FILES$ ud og luk "FILES".«, l3=0x36}
0x0c42…0c45 Line {l1=0x01, l2=» «, l3=0x01}
0x0c45…0c51 Line {l1=0x0a, l2=»4. refresh«, l3=0x0a}
0x0c51…0c7d Line {l1=0x2a, l2=» - indlæs filen "FILES" i tabellen FILES$«, l3=0x2a}
0x0c7d…0c80 Line {l1=0x01, l2=» «, l3=0x01}
0x0c80…0cb9 Line {l1=0x37, l2=»Alle 4 punkter skal ligge i samme program, og ting som:«, l3=0x37}
0x0cb9…0d02 Line {l1=0x47, l2=» indlæs FILES, skriv ordre på skærm, indlæs ordre, find ordrenr i«, l3=0x47}
0x0d02…0d19 Line {l1=0x15, l2=» FILES$, o.s.v.«, l3=0x15}
0x0d19…0d39 Line {l1=0x1e, l2=»kan laves i fælles procedurer.«, l3=0x1e}
0x0d39…0d83 Line {l1=0x48, l2=»Når programmet startes, skal FILES indlæses, derefter skal det hver gang«, l3=0x48}
0x0d83…0dd1 Line {l1=0x4c, l2=»stoppe i en situation, hvor alle filer er lukket, og et af de 4 alternativer«, l3=0x4c}
0x0dd1…0dde Line {l1=0x0b, l2=»kan vælges.«, l3=0x0b}
0x0dde…0e1c Line {l1=0x3c, l2=»Der kan muligvis også blive plads til udskriftsprogrammerne.«, l3=0x3c}
0x0e1c…0e20 Line {l1=0x02, l2=»%P«, l3=0x02}
0x0e20…0e3c Line {l1=0x1a, l2=»Opret positioner og andet.«, l3=0x1a}
0x0e3c…0e3f Line {l1=0x01, l2=» «, l3=0x01}
0x0e3f…0e55 Line {l1=0x14, l2=»1. opret positioner.«, l3=0x14}
0x0e55…0e8f Line {l1=0x38, l2=» - opret filen "POSITION". CREATE "NOTEX:POSITION",8,30«, l3=0x38}
0x0e8f…0ead Line {l1=0x1c, l2=» - indlæs POS-NR, POS-NAVN,«, l3=0x1c}
0x0ead…0eea Line {l1=0x3b, l2=» og skriv POS-NAVN i post nr. POS-NR i filen "POSITION".«, l3=0x3b}
0x0eea…0eed Line {l1=0x01, l2=» «, l3=0x01}
0x0eed…0f03 Line {l1=0x14, l2=»2. opret ordrefiler.«, l3=0x14}
0x0f03…0f29 Line {l1=0x24, l2=» - opret de 350 ordrefiler. F. eks.«, l3=0x24}
0x0f29…0f2c Line {l1=0x01, l2=» «, l3=0x01}
0x0f2c…0f55 Line {l1=0x27, l2=» 10 DIM NR$(3),FIL$(20),FIL1$(20)«, l3=0x27}
0x0f55…0f6f Line {l1=0x18, l2=» 20 FIL$="NOTEX:F"«, l3=0x18}
0x0f6f…0f8a Line {l1=0x19, l2=» 30 FOR I =1 TO 350«, l3=0x19}
0x0f8a…0fd9 Line {l1=0x4d, l2=» 40 NR$=CHR(I DIV 100 +48)+CHR(I MOD 100 DIV 10 +48)+CHR(I MOD 10+48)«, l3=0x4d}
0x0fd9…0ff5 Line {l1=0x1a, l2=» 50 FIL1$=FIL$+NR$«, l3=0x1a}
0x0ff5…1011 Line {l1=0x1a, l2=» 60 CREATE FIL1$,2«, l3=0x1a}
0x1011…1023 Line {l1=0x10, l2=» 70 NEXT I«, l3=0x10}
0x1023…1026 Line {l1=0x01, l2=» «, l3=0x01}
0x1026…1047 Line {l1=0x1f, l2=»3. opret ordrefils-tabel-filen.«, l3=0x1f}
0x1047…1064 Line {l1=0x1b, l2=» - CREATE "NOTEX:FILES",18«, l3=0x1b}
0x1064…10a0 Line {l1=0x3a, l2=» - lad FILES$ indeholde "üüüüüüüüF001" ... "üüüüüüüüF350"«, l3=0x3a}
0x10a0…10b8 Line {l1=0x16, l2=» - udskriv FILES$ som«, l3=0x16}
0x10b8…10cd Line {l1=0x13, l2=» FOR I = 0 TO 69«, l3=0x13}
0x10cd…110b Line {l1=0x3c, l2=» PUT "NOTEX:FILES":FILES$(5*I+1),.........,FILES$(5*I+5)«, l3=0x3c}
0x110b…1117 Line {l1=0x0a, l2=» NEXT I«, l3=0x0a}
0x1117…111b Line {l1=0x02, l2=»%P«, l3=0x02}
0x111b…1128 Line {l1=0x0b, l2=»Udskrifter.«, l3=0x0b}
0x1128…112b Line {l1=0x01, l2=» «, l3=0x01}
0x112b…1146 Line {l1=0x19, l2=»FILES$ skal være indlæst.«, l3=0x19}
0x1146…115f Line {l1=0x17, l2=» - Vælg udskriftsmåde.«, l3=0x17}
0x115f…1169 Line {l1=0x08, l2=» - for:«, l3=0x08}
0x1169…119f Line {l1=0x34, l2=» NR-orden gennemløbes FILES$ og alle udskrives«, l3=0x34}
0x119f…11d6 Line {l1=0x35, l2=» et NR: find nr i FILES$, indlæs ordre, udskriv«, l3=0x35}
0x11d6…1225 Line {l1=0x4d, l2=» en POS, en LEVDATO, en KUNDE, en SAG : FILES$ gennemløbes, alle ordrer«, l3=0x4d}
0x1225…125d Line {l1=0x36, l2=» indlæses, dem der matcher udskrives.«, l3=0x36}
0x125d…12ab Line {l1=0x4c, l2=» POS-orden: FILES$ gennemløbes 1 gang for hver pos. Alle ordrer indlæ-«, l3=0x4c}
0x12ab…12db Line {l1=0x2e, l2=» ses, de matchende udskrives.«, l3=0x2e}
0x12db…132a Line {l1=0x4d, l2=»Skulle gerne kunne indsættes i vedligeholdelses-programmet, da der da så godt«, l3=0x4d}
0x132a…134c Line {l1=0x20, l2=»som aldrig skal skiftes program.«, l3=0x20}
0x134c…1360 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x1360…1380 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆