|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 25600 (0x6400)
Names: »VEJLEDNI.NG«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »VEJLEDNI.NG«
0x0000…0020 02 16 00 00 00 00 00 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0020…0040 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 37 00 ┆ 7 ┆
0x0040…0060 44 65 74 74 65 20 6c 69 6c 6c 65 20 22 72 65 67 69 73 74 65 72 2d 73 79 73 74 65 6d 22 20 68 61 ┆Dette lille "register-system" ha┆
0x0060…0080 72 20 66 7c 6c 67 65 6e 64 65 20 62 65 73 74 61 6e 64 64 65 6c 65 3a 00 00 00 00 00 00 00 00 00 ┆r følgende bestanddele: ┆
0x0080…00a0 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 ┆ ┆
0x00a0…00c0 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 09 00 50 4f 53 54 ┆ POST┆
0x00c0…00e0 45 52 4e 45 3a 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 ┆ERNE: ┆
0x00e0…0100 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 ┆ ┆
[…0x1…]
0x0120…0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 36 00 46 69 6c 65 72 6e 65 2c ┆ 6 Filerne,┆
0x0140…0160 20 64 65 72 20 6f 70 72 65 74 74 65 73 20 61 66 20 73 79 73 74 65 6d 65 74 2c 20 65 72 20 66 6f ┆ der oprettes af systemet, er fo┆
0x0160…0180 72 20 65 6e 6b 65 6c 74 68 65 64 65 6e 73 00 00 00 00 00 00 33 00 73 6b 79 6c 64 20 6f 70 62 79 ┆r enkelthedens 3 skyld opby┆
0x0180…01a0 67 67 65 74 20 61 66 20 70 6f 73 74 65 72 2c 20 64 65 72 20 6d 61 6b 73 69 6d 61 6c 74 20 6b 61 ┆gget af poster, der maksimalt ka┆
0x01a0…01c0 6e 20 68 61 76 65 20 31 30 00 00 00 00 00 00 00 00 00 36 00 66 65 6c 74 65 72 20 61 20 32 35 20 ┆n have 10 6 felter a 25 ┆
0x01c0…01e0 74 65 67 6e 2e 20 53 65 6c 76 6f 6d 20 61 6c 6c 65 20 66 65 6c 74 65 72 20 66 6f 72 6d 65 6c 74 ┆tegn. Selvom alle felter formelt┆
0x01e0…0200 20 65 72 20 74 65 6b 73 74 2d 00 00 00 00 00 00 36 00 76 61 72 69 61 62 6c 65 2c 20 65 72 20 6d ┆ er tekst- 6 variable, er m┆
0x0200…0220 61 6e 20 69 6b 6b 65 20 66 6f 72 68 69 6e 64 72 65 74 20 69 20 61 74 20 61 72 62 65 6a 64 65 20 ┆an ikke forhindret i at arbejde ┆
0x0220…0240 6d 65 64 20 74 61 6c 3a 00 00 00 00 00 00 37 00 4d 61 6e 20 62 72 75 67 65 72 20 62 61 72 65 20 ┆med tal: 7 Man bruger bare ┆
0x0240…0260 63 6f 6d 61 6c 2d 66 75 6e 6b 74 69 6f 6e 65 6e 20 56 41 4c 20 70 7d 20 66 65 6c 74 65 74 2c 20 ┆comal-funktionen VAL på feltet, ┆
0x0260…0280 2d 20 66 2e 65 6b 73 00 00 00 00 00 14 00 78 3a 3d 56 41 4c 28 61 6c 64 65 72 24 29 2c 20 65 74 ┆- f.eks x:=VAL(alder$), et┆
0x0280…02a0 63 2e 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 ┆c. ┆
0x02a0…02c0 00 00 00 00 00 00 00 00 00 00 34 00 44 65 74 20 6b 61 6e 20 66 61 6b 74 69 73 6b 20 76 7b 72 65 ┆ 4 Det kan faktisk være┆
0x02c0…02e0 20 65 6e 20 66 6f 72 64 65 6c 2c 20 61 74 20 74 61 6c 20 62 65 68 61 6e 64 6c 65 73 20 73 6f 6d ┆ en fordel, at tal behandles som┆
0x02e0…0300 00 00 00 00 00 00 00 00 38 00 73 74 72 65 6e 67 65 2c 20 69 64 65 74 20 64 65 74 20 67 7c 72 20 ┆ 8 strenge, idet det gør ┆
0x0300…0320 64 65 74 20 6c 65 74 74 65 72 65 20 61 74 20 70 69 6c 6c 65 20 65 6e 6b 65 6c 74 65 20 63 69 66 ┆det lettere at pille enkelte cif┆
0x0320…0340 72 65 00 00 00 00 0d 00 75 64 20 61 66 20 74 61 6c 6c 65 74 2e 00 00 00 00 00 00 00 00 00 00 00 ┆re ud af tallet. ┆
0x0340…0360 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 ┆ ┆
[…0x2…]
0x03a0…03c0 00 00 37 00 53 7d 76 65 6c 20 66 69 6c 6e 61 76 6e 20 73 6f 6d 20 66 65 6c 74 6e 61 76 6e 65 20 ┆ 7 Såvel filnavn som feltnavne ┆
0x03c0…03e0 6d 7d 20 76 7b 72 65 20 6d 61 6b 73 69 6d 61 6c 74 20 70 7d 20 38 20 74 65 67 6e 00 00 00 00 00 ┆må være maksimalt på 8 tegn ┆
0x03e0…0400 1e 00 6f 67 20 73 6b 61 6c 20 73 74 61 72 74 65 20 6d 65 64 20 65 74 20 62 6f 67 73 74 61 76 2e ┆ og skal starte med et bogstav.┆
0x0400…0420 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 38 00 ┆ 8 ┆
0x0420…0440 46 69 6c 65 72 6e 65 20 65 72 20 62 65 67 72 7b 6e 73 65 74 20 74 69 6c 20 31 30 30 20 70 6f 73 ┆Filerne er begrænset til 100 pos┆
0x0440…0460 74 65 72 2c 20 2d 20 6d 65 6e 20 64 65 74 20 65 72 20 6c 65 74 20 61 74 00 00 00 00 15 00 7b 6e ┆ter, - men det er let at æn┆
0x0460…0480 64 72 65 20 69 20 70 72 6f 63 65 64 75 72 65 72 6e 65 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆dre i procedurerne. ┆
0x0480…04a0 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 ┆ ┆
[…0x3…]
0x0500…0520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 00 50 52 4f 43 45 44 55 52 ┆ PROCEDUR┆
0x0520…0540 45 52 4e 45 3a 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 ┆ERNE: ┆
0x0540…0560 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 ┆ ┆
[…0x1…]
0x0580…05a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 00 31 2e 20 50 52 4f 43 20 6f 6d 67 69 ┆ 1. PROC omgi┆
0x05a0…05c0 76 65 6c 73 65 72 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 ┆velser ┆
0x05c0…05e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 45 74 20 72 65 67 69 73 74 65 72 2d 73 79 ┆ < Et register-sy┆
0x05e0…0600 73 74 65 6d 20 73 6b 61 6c 20 61 6c 74 69 64 20 73 74 61 72 74 65 20 6d 65 64 20 64 65 6e 6e 65 ┆stem skal altid starte med denne┆
0x0600…0620 20 7d 62 6e 65 20 70 72 6f 63 65 64 75 72 3c 00 64 65 72 20 64 65 66 69 6e 65 72 65 72 20 6f 67 ┆ åbne procedur< der definerer og┆
0x0620…0640 20 6e 75 6c 73 74 69 6c 6c 65 72 20 65 6e 20 72 7b 6b 6b 65 20 22 67 6c 6f 62 61 6c 65 22 20 76 ┆ nulstiller en række "globale" v┆
0x0640…0660 61 72 69 61 62 6c 65 2c 20 73 6f 6d 3c 00 64 65 20 7c 76 72 69 67 65 20 70 72 6f 63 65 64 75 72 ┆ariable, som< de øvrige procedur┆
0x0660…0680 65 72 20 61 72 62 65 6a 64 65 72 20 70 7d 2e 20 44 65 74 20 65 72 20 64 69 73 73 65 20 76 61 72 ┆er arbejder på. Det er disse var┆
0x0680…06a0 69 61 62 6c 65 2c 20 64 65 72 30 00 75 64 67 7c 72 20 64 65 6e 20 73 6b 6a 75 6c 74 65 20 61 64 ┆iable, der0 udgør den skjulte ad┆
0x06a0…06c0 6d 69 6e 69 73 74 72 61 74 69 6f 6e 20 61 66 20 65 74 20 72 65 67 69 73 74 65 72 2e 00 00 00 00 ┆ministration af et register. ┆
0x06c0…06e0 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 ┆ ┆
[…0x1…]
0x0700…0720 00 00 00 00 00 00 1e 00 32 2e 20 50 52 4f 43 20 6f 70 72 65 74 28 66 69 6c 6e 61 76 6e 24 29 20 ┆ 2. PROC opret(filnavn$) ┆
0x0720…0740 43 4c 4f 53 45 44 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 ┆CLOSED ┆
0x0740…0760 00 00 00 00 3b 00 56 65 64 20 6b 61 6c 64 20 61 66 20 64 65 6e 6e 65 20 70 72 6f 63 65 64 75 72 ┆ ; Ved kald af denne procedur┆
0x0760…0780 65 20 6f 70 72 65 74 74 65 73 20 65 6e 20 66 69 6c 20 6d 65 64 20 64 65 74 20 61 6e 67 69 76 6e ┆e oprettes en fil med det angivn┆
0x0780…07a0 65 00 3c 00 66 69 6c 6e 61 76 6e 2e 20 44 65 72 70 7d 20 76 69 6c 20 70 72 6f 63 65 64 75 72 65 ┆e < filnavn. Derpå vil procedure┆
0x07a0…07c0 6e 20 62 65 64 65 20 6f 6d 20 69 6e 64 6c 7b 73 6e 69 6e 67 20 61 66 20 61 6e 74 61 6c 6c 65 74 ┆n bede om indlæsning af antallet┆
0x07c0…07e0 3b 00 61 66 20 66 65 6c 74 65 72 20 69 20 65 6e 20 70 6f 73 74 20 6f 67 20 64 65 72 70 7d 20 66 ┆; af felter i en post og derpå f┆
0x07e0…0800 65 6c 74 6e 61 76 6e 65 6e 65 2e 20 44 65 6e 20 70 6f 73 74 73 74 72 75 6b 74 75 72 2c 00 3c 00 ┆eltnavnene. Den poststruktur, < ┆
0x0800…0820 64 65 72 20 62 6c 69 76 65 72 20 69 6e 64 6c 7b 73 74 2c 20 76 69 6c 20 62 6c 69 76 65 20 67 65 ┆der bliver indlæst, vil blive ge┆
0x0820…0840 6d 74 20 69 20 65 6e 20 73 7b 72 6c 69 67 20 22 44 45 46 2d 66 69 6c 22 2c 20 6f 67 35 00 66 69 ┆mt i en særlig "DEF-fil", og5 fi┆
0x0840…0860 6c 65 6e 20 76 69 6c 20 62 6c 69 76 65 20 66 79 6c 64 74 20 6f 70 20 6d 65 64 20 62 6c 61 6e 6b ┆len vil blive fyldt op med blank┆
0x0860…0880 65 20 70 6f 73 74 65 72 20 28 31 30 30 20 73 74 6b 29 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆e poster (100 stk). ┆
0x0880…08a0 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 ┆ ┆
0x08a0…08c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1d 00 33 2e 20 50 52 4f ┆ 3. PRO┆
0x08c0…08e0 43 20 62 72 75 67 28 66 69 6c 6e 61 76 6e 24 29 20 43 4c 4f 53 45 44 00 00 00 00 00 00 00 00 00 ┆C brug(filnavn$) CLOSED ┆
0x08e0…0900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3c 00 44 65 6e 6e 65 20 70 72 ┆ < Denne pr┆
0x0900…0920 6f 63 65 64 75 72 65 20 73 7c 72 67 65 72 20 66 6f 72 2c 20 61 74 20 64 65 6e 20 7c 6e 73 6b 65 ┆ocedure sørger for, at den ønske┆
0x0920…0940 64 65 20 66 69 6c 20 7d 62 6e 65 73 20 6f 67 20 61 64 6d 69 3a 00 6e 69 73 74 72 65 72 65 73 2e ┆de fil åbnes og admi: nistreres.┆
0x0940…0960 20 4d 61 6e 20 6b 61 6e 20 69 6b 6b 65 20 61 72 62 65 6a 64 65 20 6d 65 64 20 73 79 73 74 65 6d ┆ Man kan ikke arbejde med system┆
0x0960…0980 65 74 20 66 7c 72 20 65 6e 20 66 69 6c 20 65 72 00 00 3a 00 74 61 67 65 74 20 69 20 62 72 75 67 ┆et før en fil er : taget i brug┆
0x0980…09a0 2e 20 4f 67 73 7d 20 65 66 74 65 72 20 27 6f 70 72 65 74 27 20 73 6b 61 6c 20 65 6e 20 66 69 6c ┆. Også efter 'opret' skal en fil┆
0x09a0…09c0 20 74 61 67 65 73 20 69 20 62 72 75 67 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tages i brug. ┆
0x09c0…09e0 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 ┆ ┆
0x09e0…0a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 19 00 34 2e 20 50 52 4f 43 20 69 6e 64 6c 7b 73 70 6f ┆ 4. PROC indlæspo┆
0x0a00…0a20 73 74 20 43 4c 4f 53 45 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆st CLOSED ┆
0x0a20…0a40 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 ┆ ┆
[…0x1…]
0x0a60…0a80 00 00 00 00 00 00 00 00 00 00 3c 00 44 65 6e 6e 65 20 70 72 6f 63 65 64 75 72 65 20 69 6e 64 6c ┆ < Denne procedure indl┆
0x0a80…0aa0 7b 73 65 72 20 65 6e 20 70 6f 73 74 20 74 69 6c 20 64 65 6e 20 66 69 6c 2c 20 64 65 72 20 65 72 ┆æser en post til den fil, der er┆
0x0aa0…0ac0 20 69 20 62 72 75 67 2c 3b 00 6f 67 20 73 7c 72 67 65 72 20 73 65 6c 76 20 66 6f 72 20 61 74 20 ┆ i brug,; og sørger selv for at ┆
0x0ac0…0ae0 6f 70 64 61 74 65 72 65 20 68 76 6f 72 20 6c 61 6e 67 74 2c 20 64 65 72 20 65 72 20 73 6b 72 65 ┆opdatere hvor langt, der er skre┆
0x0ae0…0b00 76 65 74 20 69 00 2e 00 66 69 6c 65 6e 2e 20 28 44 65 74 74 65 20 72 65 67 6e 73 6b 61 62 20 6c ┆vet i . filen. (Dette regnskab l┆
0x0b00…0b20 69 67 67 65 72 20 70 7d 20 70 6f 73 74 20 6e 72 20 31 30 31 29 2e 00 00 00 00 00 00 00 00 00 00 ┆igger på post nr 101). ┆
0x0b20…0b40 00 00 00 00 00 00 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $$$ ┆
0x0b40…0b60 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 ┆ ┆
0x0b60…0b80 00 00 1a 00 35 2e 20 50 52 4f 43 20 72 65 74 70 6f 73 74 28 6e 72 29 20 43 4c 4f 53 45 44 00 00 ┆ 5. PROC retpost(nr) CLOSED ┆
0x0b80…0ba0 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 ┆ ┆
0x0ba0…0bc0 3a 00 50 6f 73 74 65 6e 20 6d 65 64 20 64 65 74 20 61 6e 67 69 76 6e 65 20 6e 75 6d 6d 65 72 20 ┆: Posten med det angivne nummer ┆
0x0bc0…0be0 76 69 73 65 73 20 70 7d 20 73 6b 7b 72 6d 65 6e 2c 20 6f 67 20 6d 61 6e 20 6b 61 6e 00 00 3a 00 ┆vises på skærmen, og man kan : ┆
0x0be0…0c00 64 65 72 70 7d 20 72 65 74 74 65 20 69 20 66 65 6c 74 69 6e 64 68 6f 6c 64 65 74 2e 20 28 41 6e ┆derpå rette i feltindholdet. (An┆
0x0c00…0c20 67 69 76 65 73 20 65 74 20 6e 75 6d 6d 65 72 20 73 74 7c 72 72 65 20 65 6e 64 00 00 3b 00 61 6e ┆gives et nummer større end ; an┆
0x0c20…0c40 74 61 6c 6c 65 74 20 61 66 20 70 6f 73 74 65 72 20 65 6c 6c 65 72 20 6d 69 6e 64 72 65 20 65 6e ┆tallet af poster eller mindre en┆
0x0c40…0c60 64 20 31 2c 20 73 7d 20 69 67 6e 6f 72 65 72 65 73 20 6f 72 64 72 65 6e 29 00 03 00 2d 2d 2d 00 ┆d 1, så ignoreres ordren) --- ┆
0x0c60…0c80 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 ┆ ┆
0x0c80…0ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1b 00 36 2e 20 50 52 4f ┆ 6. PRO┆
0x0ca0…0cc0 43 20 73 6c 65 74 70 6f 73 74 28 6e 72 29 20 43 4c 4f 53 45 44 00 00 00 00 00 00 00 00 00 00 00 ┆C sletpost(nr) CLOSED ┆
0x0cc0…0ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 50 6f 73 74 65 6e 20 6d ┆ : Posten m┆
0x0ce0…0d00 65 64 20 64 65 74 20 61 6e 67 69 76 6e 65 20 6e 75 6d 6d 65 72 20 73 6c 65 74 74 65 73 2e 20 41 ┆ed det angivne nummer slettes. A┆
0x0d00…0d20 6e 67 69 76 65 73 20 65 74 20 70 6f 73 74 6e 75 6d 2d 00 00 3c 00 6d 65 72 20 75 64 65 6e 66 6f ┆ngives et postnum- < mer udenfo┆
0x0d20…0d40 72 20 64 65 74 20 61 6b 74 75 65 6c 6c 65 20 70 6f 73 74 6e 75 6d 6d 65 72 2d 6f 6d 72 7d 64 65 ┆r det aktuelle postnummer-område┆
0x0d40…0d60 20 69 67 6e 6f 72 65 72 65 73 20 6f 72 64 72 65 6e 2e 37 00 28 53 6c 65 74 6e 69 6e 67 65 6e 20 ┆ ignoreres ordren.7 (Sletningen ┆
0x0d60…0d80 73 6b 65 72 20 72 65 6e 74 20 66 61 6b 74 69 73 6b 20 76 65 64 2c 20 61 74 20 64 65 6e 20 73 69 ┆sker rent faktisk ved, at den si┆
0x0d80…0da0 64 73 74 65 20 70 6f 73 74 20 69 00 00 00 00 00 39 00 66 69 6c 65 6e 20 72 79 6b 6b 65 73 20 66 ┆dste post i 9 filen rykkes f┆
0x0da0…0dc0 72 65 6d 20 6f 67 20 73 6b 72 69 76 65 73 20 6f 76 65 6e 69 20 64 65 6e 2c 20 64 65 72 20 73 6b ┆rem og skrives oveni den, der sk┆
0x0dc0…0de0 61 6c 20 73 6c 65 74 74 65 73 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆al slettes) ┆
0x0de0…0e00 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 ┆ ┆
0x0e00…0e20 00 00 00 00 00 00 00 00 00 00 00 00 1a 00 37 2e 20 50 52 4f 43 20 76 69 73 70 6f 73 74 28 6e 72 ┆ 7. PROC vispost(nr┆
0x0e20…0e40 29 20 43 4c 4f 53 45 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆) CLOSED ┆
0x0e40…0e60 00 00 00 00 00 00 00 00 00 00 32 00 44 65 6e 6e 65 20 70 72 6f 63 65 64 75 72 65 72 20 76 69 73 ┆ 2 Denne procedurer vis┆
0x0e60…0e80 65 72 20 70 6f 73 74 65 6e 73 20 69 6e 64 68 6f 6c 64 20 70 7d 20 73 6b 7b 72 6d 65 6e 2e 00 00 ┆er postens indhold på skærmen. ┆
0x0e80…0ea0 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 ┆ ┆
[…0x1…]
0x0ec0…0ee0 00 00 00 00 00 00 1f 00 38 2e 20 50 52 4f 43 20 73 6b 72 69 76 75 64 28 66 72 61 2c 74 69 6c 29 ┆ 8. PROC skrivud(fra,til)┆
0x0ee0…0f00 20 43 4c 4f 53 45 44 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 ┆ CLOSED ┆
0x0f00…0f20 00 00 00 00 3c 00 41 6c 6c 65 20 70 6f 73 74 65 72 20 6d 65 64 20 70 6f 73 74 6e 75 6d 72 65 20 ┆ < Alle poster med postnumre ┆
0x0f20…0f40 6d 65 6c 6c 65 6d 20 27 66 72 61 27 20 6f 67 20 27 74 69 6c 27 20 28 62 65 67 67 65 20 69 6e 63 ┆mellem 'fra' og 'til' (begge inc┆
0x0f40…0f60 6c 29 36 00 73 6b 72 69 76 65 73 20 75 64 2e 20 55 64 73 6b 72 69 66 74 65 6e 20 6b 61 6e 20 73 ┆l)6 skrives ud. Udskriften kan s┆
0x0f60…0f80 6b 65 20 65 6e 74 65 6e 20 70 7d 20 73 6b 7b 72 6d 20 65 6c 6c 65 72 20 70 7d 00 00 00 00 00 00 ┆ke enten på skærm eller på ┆
0x0f80…0fa0 3b 00 70 72 69 6e 74 65 72 2e 20 28 44 65 74 74 65 20 73 74 79 72 65 73 20 76 65 64 20 62 72 75 ┆; printer. (Dette styres ved bru┆
0x0fa0…0fc0 67 20 61 66 20 70 72 6f 63 65 64 75 72 65 72 6e 65 20 27 62 72 75 67 73 6b 7b 72 6d 27 00 39 00 ┆g af procedurerne 'brugskærm' 9 ┆
0x0fc0…0fe0 6f 67 20 27 62 72 75 67 70 61 70 69 72 27 29 2e 20 41 6e 67 69 76 65 73 20 65 6e 20 76 7b 72 64 ┆og 'brugpapir'). Angives en værd┆
0x0fe0…1000 69 20 61 66 20 27 66 72 61 27 2c 20 64 65 72 20 65 72 20 6d 69 6e 64 72 65 00 00 00 39 00 65 6e ┆i af 'fra', der er mindre 9 en┆
0x1000…1020 64 20 31 2c 20 73 7d 20 73 7b 74 74 65 73 20 27 66 72 61 27 20 74 69 6c 20 61 74 20 76 7b 72 65 ┆d 1, så sættes 'fra' til at være┆
0x1020…1040 20 31 2e 20 41 6e 67 69 76 65 73 20 65 6e 20 76 7b 72 64 69 20 61 66 00 00 00 3b 00 27 74 69 6c ┆ 1. Angives en værdi af ; 'til┆
0x1040…1060 27 20 64 65 72 20 65 72 20 73 74 7c 72 72 65 20 65 6e 64 20 64 65 6e 20 73 69 64 73 74 65 20 70 ┆' der er større end den sidste p┆
0x1060…1080 6f 73 74 73 20 6e 75 6d 6d 65 72 2c 20 73 7d 20 73 6b 72 69 76 65 73 00 1b 00 74 69 6c 20 6f 67 ┆osts nummer, så skrives til og┆
0x1080…10a0 20 6d 65 64 20 64 65 6e 20 73 69 64 73 74 65 20 70 6f 73 74 2e 00 00 00 00 00 00 00 00 00 00 00 ┆ med den sidste post. ┆
0x10a0…10c0 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 ┆ ┆
[…0x1…]
0x10e0…1100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 00 39 2e 20 50 52 4f 43 20 66 69 ┆ $ 9. PROC fi┆
0x1100…1120 6e 64 69 70 6f 73 74 28 73 7c 67 65 6e 7c 67 6c 65 24 29 20 43 4c 4f 53 45 44 00 00 00 00 00 00 ┆ndipost(søgenøgle$) CLOSED ┆
0x1120…1140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 36 00 44 65 6e 6e 65 20 70 72 6f 63 65 64 ┆ 6 Denne proced┆
0x1140…1160 75 72 65 20 76 69 6c 20 73 6b 72 69 76 65 20 61 6c 6c 65 20 70 6f 73 74 65 72 20 28 70 7d 20 73 ┆ure vil skrive alle poster (på s┆
0x1160…1180 6b 7b 72 6d 20 65 6c 6c 65 72 00 00 00 00 00 00 39 00 70 72 69 6e 74 65 72 29 2c 20 64 65 72 20 ┆kærm eller 9 printer), der ┆
0x1180…11a0 68 61 72 20 64 65 6e 20 61 6e 66 7c 72 74 65 20 73 7c 67 65 6e 7c 67 6c 65 20 73 6f 6d 20 65 6e ┆har den anførte søgenøgle som en┆
0x11a0…11c0 20 64 65 6c 20 61 66 20 64 65 6e 00 00 00 1d 00 73 61 6d 6c 65 64 65 20 70 6f 73 74 2e 20 45 6b ┆ del af den samlede post. Ek┆
0x11c0…11e0 73 65 6d 70 65 6c 76 69 73 20 76 69 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆sempelvis vil ┆
0x11e0…1200 00 00 00 00 00 00 00 00 00 00 00 00 24 00 2e 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 66 ┆ $ . EXEC f┆
0x1200…1220 69 6e 64 69 70 6f 73 74 28 22 61 6e 64 65 72 73 22 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆indipost("anders") ┆
0x1220…1240 00 00 00 00 00 00 00 00 00 00 38 00 66 69 6e 64 65 20 6f 67 20 75 64 73 6b 72 69 76 65 20 61 6c ┆ 8 finde og udskrive al┆
0x1240…1260 6c 65 20 70 6f 73 74 65 72 2c 20 68 76 6f 72 69 20 74 65 67 6e 66 7c 6c 67 65 6e 20 27 61 6e 64 ┆le poster, hvori tegnfølgen 'and┆
0x1260…1280 65 72 73 27 00 00 00 00 1c 00 69 6e 64 67 7d 72 20 69 20 73 75 6d 6d 65 6e 20 61 66 20 66 65 6c ┆ers' indgår i summen af fel┆
0x1280…12a0 74 65 72 6e 65 2e 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 ┆terne. ┆
0x12a0…12c0 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 ┆ ┆
[…0x1…]
0x12e0…1300 00 00 00 00 2b 00 31 30 2e 20 50 52 4f 43 20 66 69 6e 64 69 66 65 6c 74 28 66 65 6c 74 24 2c 73 ┆ + 10. PROC findifelt(felt$,s┆
0x1300…1320 7c 67 65 6e 7c 67 6c 65 24 29 20 43 4c 4f 53 45 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆øgenøgle$) CLOSED ┆
0x1320…1340 00 00 39 00 44 65 6e 6e 65 20 70 72 6f 63 65 64 75 72 65 20 76 69 6c 20 75 64 73 6b 72 69 76 65 ┆ 9 Denne procedure vil udskrive┆
0x1340…1360 20 61 6c 6c 65 20 70 6f 73 74 65 72 2c 20 64 65 72 20 68 61 72 20 64 65 6e 20 61 6e 2d 00 00 00 ┆ alle poster, der har den an- ┆
0x1360…1380 3b 00 66 7c 72 74 65 20 73 7c 67 65 6e 7c 67 6c 65 20 73 6f 6d 20 65 6e 20 64 65 6c 20 61 66 20 ┆; førte søgenøgle som en del af ┆
0x1380…13a0 64 65 74 20 61 6e 66 7c 72 74 65 20 66 65 6c 74 2e 20 44 65 74 20 61 6e 67 69 76 6e 65 00 37 00 ┆det anførte felt. Det angivne 7 ┆
0x13a0…13c0 66 65 6c 74 6e 61 76 6e 20 73 6b 61 6c 20 73 65 6c 76 66 7c 6c 67 65 6c 69 67 20 76 7b 72 65 20 ┆feltnavn skal selvfølgelig være ┆
0x13c0…13e0 65 74 20 61 66 20 64 65 20 66 65 6c 74 6e 61 76 6e 65 2c 20 64 65 72 00 00 00 00 00 23 00 62 6c ┆et af de feltnavne, der # bl┆
0x13e0…1400 65 76 20 74 69 6c 64 65 6c 74 20 66 69 6c 65 6e 20 76 65 64 20 6f 70 72 65 74 74 65 6c 73 65 6e ┆ev tildelt filen ved oprettelsen┆
0x1400…1420 2e 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 ┆. ┆
0x1420…1440 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 ┆ ┆
0x1440…1460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3a 00 31 31 2e 20 50 52 ┆ : 11. PR┆
0x1460…1480 4f 43 20 6c 6f 6b 61 6c 69 73 65 72 28 73 7c 67 65 6e 7c 67 6c 65 24 2c 66 72 61 2c 74 69 6c 2c ┆OC lokaliser(søgenøgle$,fra,til,┆
0x1480…14a0 52 45 46 20 66 75 6e 64 65 74 6e 72 29 20 43 4c 4f 53 45 44 00 00 3c 00 44 65 6e 6e 65 20 70 72 ┆REF fundetnr) CLOSED < Denne pr┆
0x14a0…14c0 6f 63 65 64 75 72 65 20 66 69 6e 64 65 72 20 64 65 6e 20 46 5c 52 53 54 45 20 70 6f 73 74 20 6d ┆ocedure finder den FØRSTE post m┆
0x14c0…14e0 65 6c 6c 65 6d 20 27 66 72 61 27 20 6f 67 20 27 74 69 6c 27 3b 00 64 65 72 20 69 6e 64 65 68 6f ┆ellem 'fra' og 'til'; der indeho┆
0x14e0…1500 6c 64 65 72 20 64 65 6e 20 61 6e 66 7c 72 74 65 20 73 7c 67 65 6e 7c 67 6c 65 20 73 6f 6d 20 65 ┆lder den anførte søgenøgle som e┆
0x1500…1520 6e 20 64 65 6c 20 61 66 20 64 65 6e 20 73 61 6d 2d 00 38 00 6c 65 64 65 20 70 6f 73 74 2e 20 44 ┆n del af den sam- 8 lede post. D┆
0x1520…1540 65 6e 20 66 75 6e 64 6e 65 20 70 6f 73 74 73 20 6e 75 6d 6d 65 72 20 72 65 74 75 72 6e 65 72 65 ┆en fundne posts nummer returnere┆
0x1540…1560 73 20 74 69 6c 20 72 65 66 65 72 2d 00 00 00 00 39 00 65 6e 63 65 76 61 72 69 61 62 6c 65 6e 20 ┆s til refer- 9 encevariablen ┆
0x1560…1580 27 66 75 6e 64 65 74 6e 72 27 2e 20 48 76 69 73 20 64 65 72 20 69 6b 6b 65 20 66 69 6e 64 65 73 ┆'fundetnr'. Hvis der ikke findes┆
0x1580…15a0 20 6e 6f 67 65 6e 20 70 6f 73 74 00 00 00 35 00 64 65 72 20 6f 70 66 79 6c 64 65 72 20 73 7c 67 ┆ nogen post 5 der opfylder søg┆
0x15a0…15c0 65 6e 7c 67 6c 65 6e 2c 20 73 7d 20 72 65 74 75 72 6e 65 72 65 73 20 76 7b 72 64 69 65 6e 20 2d ┆enøglen, så returneres værdien -┆
0x15c0…15e0 31 20 74 69 6c 00 00 00 00 00 00 00 36 00 27 66 75 6e 64 65 74 6e 72 27 2e 20 45 74 20 65 6b 73 ┆1 til 6 'fundetnr'. Et eks┆
0x15e0…1600 65 6d 70 65 6c 20 69 6c 6c 75 73 74 72 65 72 65 72 20 62 72 75 67 65 6e 3a 20 49 20 70 72 6f 67 ┆empel illustrerer brugen: I prog┆
0x1600…1620 72 61 6d 2d 00 00 00 00 00 00 37 00 73 74 75 6d 70 65 6e 20 6e 65 64 65 6e 66 6f 72 20 73 7c 67 ┆ram- 7 stumpen nedenfor søg┆
0x1620…1640 65 73 20 65 66 74 65 72 20 65 6e 20 62 65 73 74 65 6d 74 20 70 6f 73 74 2c 20 64 65 72 20 69 6e ┆es efter en bestemt post, der in┆
0x1640…1660 64 65 2d 00 00 00 00 00 3b 00 68 6f 6c 64 65 72 20 74 65 6b 73 74 2d 73 74 79 6b 6b 65 74 20 22 ┆de- ; holder tekst-stykket "┆
0x1660…1680 61 6e 64 65 72 73 22 2e 20 44 65 74 20 65 72 20 69 6b 6b 65 20 61 6c 6c 65 20 70 6f 73 74 65 72 ┆anders". Det er ikke alle poster┆
0x1680…16a0 2c 20 64 65 72 00 2d 00 69 6e 64 65 68 6f 6c 64 65 72 20 74 65 67 6e 65 6e 65 20 27 61 6e 64 65 ┆, der - indeholder tegnene 'ande┆
0x16a0…16c0 72 73 27 2c 20 64 65 72 20 73 6b 61 6c 20 72 65 74 74 65 73 3a 00 00 00 00 00 00 00 00 00 00 00 ┆rs', der skal rettes: ┆
0x16c0…16e0 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 ┆ ┆
[…0x1…]
0x1700…1720 00 00 11 00 2e 20 20 20 20 20 20 20 20 20 20 66 72 61 3a 3d 31 00 00 00 00 00 00 00 00 00 00 00 ┆ . fra:=1 ┆
0x1720…1740 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 ┆ ┆
0x1740…1760 11 00 2e 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ . REPEAT ┆
0x1760…1780 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 2a 00 ┆ * ┆
0x1780…17a0 2e 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6b 61 6c 69 73 65 72 28 22 61 6e 64 65 72 73 22 2c ┆. lokaliser("anders",┆
0x17a0…17c0 66 72 61 2c 31 30 30 2c 4e 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 18 00 2e 20 ┆fra,100,N) . ┆
0x17c0…17e0 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 3e 30 20 54 48 45 4e 00 00 00 00 00 00 00 00 00 00 ┆ IF N>0 THEN ┆
0x17e0…1800 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 1e 00 2e 20 20 20 ┆ . ┆
0x1800…1820 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 76 69 73 70 6f 73 74 28 4e 29 00 00 00 00 00 00 ┆ EXEC vispost(N) ┆
0x1820…1840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 37 00 2e 20 20 20 20 20 ┆ 7 . ┆
0x1840…1860 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 73 6b 61 6c 20 64 65 6e 6e 65 20 70 6f 73 74 20 ┆ INPUT "skal denne post ┆
0x1860…1880 72 65 74 74 65 73 20 28 4a 2f 4e 29 3a 22 3a 73 24 00 00 00 00 00 31 00 2e 20 20 20 20 20 20 20 ┆rettes (J/N):":s$ 1 . ┆
0x1880…18a0 20 20 20 20 20 20 20 49 46 20 73 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e 20 45 58 45 43 20 72 ┆ IF s$ IN "Jj" THEN EXEC r┆
0x18a0…18c0 65 74 70 6f 73 74 28 4e 29 00 00 00 00 00 00 00 00 00 00 00 12 00 2e 20 20 20 20 20 20 20 20 20 ┆etpost(N) . ┆
0x18c0…18e0 20 20 20 45 4e 44 49 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ENDIF ┆
0x18e0…1900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 15 00 2e 20 20 20 20 20 20 20 20 20 20 20 ┆ . ┆
0x1900…1920 20 66 72 61 3a 3d 4e 2b 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ fra:=N+1 ┆
0x1920…1940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 00 2e 20 20 20 20 20 20 20 20 20 20 55 4e 54 ┆ . UNT┆
0x1940…1960 49 4c 20 4e 3c 30 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 ┆IL N<0 ┆
0x1960…1980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ . ┆
[…truncated at 200 lines…]