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.%PDatafiler. - 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.%POrdrevedligeholdelse. 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 gangstoppe i en situation, hvor alle filer er lukket, og et af de 4 alternativerkan v{lges.Der kan muligvis ogs} blive plads til udskriftsprogrammerne.%POpret 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%PUdskrifter. 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} godtsom aldrig skal skiftes program.