|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 8 B C D E F G I K M N O P R S T U l
Length: 256256 (0x3e900) Description: Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST) Types: 8" Floppy Disk Notes: BESKYT , BLÅLYS , BREV , BREV::BLÅLYS, BREV::BREV, BREV::BREVVALG, BREV::CONNKLAS, BREV::DECIFTEX, BREV::DIM, BREV::DISKONT, BREV::FILLÆS, BREV::FORM, BREV::KLASLÆS, BREV::NUMSTRIN, BREV::OPENFILS, BREV::PROCEVAL, BREV::STANDTEX, BREV::TEKST, BREV::TEKSTIND, BREV::TEKSTLÆS, BREV::TILBAGE, BREVVALG, CONNGREN, CONNKLAS, CONNOM , DATASØGE, DECIFTEX, DIM , DISKONT , EKONTROL, ELEVIND , ELEVPLOT, ELEVRET , ELEVRET::DIM, ELEVRET::DISKONT, ELEVRET::EKONTROL, ELEVRET::ELEVIND, ELEVRET::ELEVRET, ELEVRET::ELEVVALG, ELEVRET::INDSKRIV, ELEVRET::INFORMAT, ELEVRET::KLVALG, ELEVRET::MATTEKST, ELEVRET::RETTE, ELEVRET::SCROOL, ELEVRET::TILBAGE, ELEVRET::UDLÆG, ELEVRET::UDTEKST, ELEVVALG, ELOPLYS , FILBYTTE, FILLÆS , FILORDEN, FORLIST , FORLIST::BREVVALG, FORLIST::CONNKLAS, FORLIST::CONNOM, FORLIST::DATASØGE, FORLIST::DIM, FORLIST::DISKONT, FORLIST::FORLIST, FORLIST::FORMAT, FORLIST::GRENVALG, FORLIST::INFORMAT, FORLIST::KLASLÆS, FORM , FORMAT , FORSØM , FORSØM::DIM, FORSØM::DISKONT, FORSØM::ELEVPLOT, FORSØM::FORSØM, FORSØM::FORSØMME, FORSØM::KLVALG, FORSØM::NUMERISK, FORSØMME, GRENFAG , GRENRET , GRENVALG, INDSKRIV, INFORMAT, KLASLÆS , KLASSCAN, KLASVALG, KLLISTE , KLLISTE::CONNGREN, KLLISTE::CONNKLAS, KLLISTE::DIM, KLLISTE::DISKONT, KLLISTE::FORMAT, KLLISTE::KLASLÆS, KLLISTE::KLASSCAN, KLLISTE::KLLISTE, KLLISTE::KLLISTER, KLLISTER, KLVALG , MAIN , MATTEKST, NULSTIL , NUMERISK, NUMSTRIN, OMRÅDVAL, OPDATER , OPDATER-, OPDATER::DIM, OPDATER::DISKONT, OPDATER::ELEVPLOT, OPDATER::ELOPLYS, OPDATER::FILBYTTE, OPDATER::FILORDEN, OPDATER::GRENFAG, OPDATER::GRENRET, OPDATER::KLASVALG, OPDATER::NULSTIL, OPDATER::OMRÅDVAL, OPDATER::OPDATER, OPDATER::OPDATER-, OPDATER::STOPPER, OPDATER::UDLÆG, OPENFILS, PROCEVAL, PROGRAM::BESKYT, PROGRAM::DIM, PROGRAM::MAIN, RETTE , SCROOL , STANDTEX, STOPPER , TEKST , TEKSTIND, TEKSTLÆS, TILBAGE , UDLÆG , UDTEKST , logical_disk
kind | f00 | f01 | f02 | length | name | artifact |
---|---|---|---|---|---|---|
D | 0 | 1 | 0 | 350 | BREV | «none» |
S | 0 | 743 | 0 | 1 | BREV::-------- | «none» |
S | 0 | 569 | 41 | 2 | BREV::BLÅLYS | ⟦8d1a5efa4⟧ TextFile, BLÅLYS , BREV::BLÅLYS |
S | 0 | 862 | 44 | 118 | BREV::BREV | ⟦fcafbbd47⟧ COMAL_SAVE, BREV , BREV::BREV |
S | 0 | 743 | 52 | 52 | BREV::BREVVALG | ⟦4ea94f117⟧ TextFile, BREV::BREVVALG, BREVVALG |
S | 0 | 627 | 12 | 5 | BREV::CONNKLAS | ⟦dcda18ab8⟧ TextFile, BREV::CONNKLAS, CONNKLAS |
S | 0 | 584 | 86 | 8 | BREV::DECIFTEX | ⟦dcc8a262f⟧ TextFile, BREV::DECIFTEX, DECIFTEX |
S | 0 | 562 | 87 | 13 | BREV::DIM | ⟦9f284d113⟧ TextFile, BREV::DIM, DIM |
S | 0 | 691 | 92 | 10 | BREV::DISKONT | ⟦650df3d8a⟧ TextFile, BREV::DISKONT, DISKONT |
S | 0 | 612 | 78 | 3 | BREV::FILLÆS | ⟦f93ce68ac⟧ TextFile, BREV::FILLÆS, FILLÆS |
S | 0 | 576 | 20 | 7 | BREV::FORM | ⟦23cb029b8⟧ TextFile, BREV::FORM, FORM |
S | 0 | 618 | 94 | 6 | BREV::KLASLÆS | ⟦ed5ea8b9a⟧ TextFile, BREV::KLASLÆS, KLASLÆS |
S | 0 | 603 | 108 | 5 | BREV::NUMSTRIN | ⟦def35c74e⟧ TextFile, BREV::NUMSTRIN, NUMSTRIN |
S | 0 | 622 | 19 | 4 | BREV::OPENFILS | ⟦52056c9f9⟧ TextFile, BREV::OPENFILS, OPENFILS |
S | 0 | 609 | 17 | 6 | BREV::PROCEVAL | ⟦04a2fedfd⟧ TextFile, BREV::PROCEVAL, PROCEVAL |
S | 0 | 681 | 6 | 17 | BREV::STANDTEX | ⟦88eddf161⟧ TextFile, BREV::STANDTEX, STANDTEX |
S | 0 | 598 | 69 | 14 | BREV::TEKST | ⟦f1b290f04⟧ TextFile, BREV::TEKST, TEKST |
S | 0 | 664 | 13 | 34 | BREV::TEKSTIND | ⟦63985264e⟧ TextFile, BREV::TEKSTIND, TEKSTIND |
S | 0 | 630 | 62 | 3 | BREV::TEKSTLÆS | ⟦580b9f3d2⟧ TextFile, BREV::TEKSTLÆS, TEKSTLÆS |
S | 0 | 567 | 99 | 5 | BREV::TILBAGE | ⟦58bd6ba8f⟧ TextFile, BREV::TILBAGE, TILBAGE |
D | 0 | 1 | 0 | 450 | ELEVRET | «none» |
S | 0 | 1173 | 0 | 1 | ELEVRET::-------- | «none» |
S | 0 | 912 | 56 | 13 | ELEVRET::DIM | ⟦9101eecc7⟧ TextFile, DIM , ELEVRET::DIM |
S | 0 | 936 | 75 | 10 | ELEVRET::DISKONT | ⟦a7266badf⟧ TextFile, DISKONT , ELEVRET::DISKONT |
S | 0 | 1116 | 80 | 40 | ELEVRET::EKONTROL | ⟦61cc31fe3⟧ TextFile, EKONTROL, ELEVRET::EKONTROL |
S | 0 | 1148 | 77 | 32 | ELEVRET::ELEVIND | ⟦e7d2de21c⟧ TextFile, ELEVIND , ELEVRET::ELEVIND |
S | 0 | 1314 | 124 | 140 | ELEVRET::ELEVRET | ⟦66e1d5466⟧ COMAL_SAVE, ELEVRET , ELEVRET::ELEVRET |
S | 0 | 1076 | 38 | 10 | ELEVRET::ELEVVALG | ⟦a6976ef7a⟧ TextFile, ELEVRET::ELEVVALG, ELEVVALG |
S | 0 | 1066 | 18 | 57 | ELEVRET::INDSKRIV | ⟦6e632e11e⟧ TextFile, ELEVRET::INDSKRIV, INDSKRIV |
S | 0 | 1173 | 94 | 17 | ELEVRET::INFORMAT | ⟦0118a4b51⟧ TextFile, ELEVRET::INFORMAT, INFORMAT |
S | 0 | 926 | 58 | 11 | ELEVRET::KLVALG | ⟦810840089⟧ TextFile, ELEVRET::KLVALG, KLVALG |
S | 0 | 915 | 94 | 3 | ELEVRET::MATTEKST | ⟦397bfc0ef⟧ TextFile, ELEVRET::MATTEKST, MATTEKST |
S | 0 | 1009 | 110 | 12 | ELEVRET::RETTE | ⟦31cbacc22⟧ TextFile, ELEVRET::RETTE, RETTE |
S | 0 | 997 | 45 | 42 | ELEVRET::SCROOL | ⟦f8217e6d8⟧ TextFile, ELEVRET::SCROOL, SCROOL |
S | 0 | 1154 | 92 | 6 | ELEVRET::TILBAGE | ⟦b764186bb⟧ TextFile, ELEVRET::TILBAGE, TILBAGE |
S | 0 | 1156 | 51 | 2 | ELEVRET::UDLÆG | ⟦59e78c63e⟧ TextFile, ELEVRET::UDLÆG, UDLÆG |
S | 0 | 955 | 50 | 19 | ELEVRET::UDTEKST | ⟦be142e4d1⟧ TextFile, ELEVRET::UDTEKST, UDTEKST |
D | 0 | 1 | 0 | 250 | FORLIST | «none» |
S | 0 | 1472 | 0 | 1 | FORLIST::-------- | «none» |
S | 0 | 1363 | 58 | 4 | FORLIST::BREVVALG | ⟦4c966df6e⟧ TextFile, BREVVALG, FORLIST::BREVVALG |
S | 0 | 1366 | 55 | 3 | FORLIST::CONNKLAS | ⟦4179fbc76⟧ TextFile, CONNKLAS, FORLIST::CONNKLAS |
S | 0 | 1387 | 80 | 8 | FORLIST::CONNOM | ⟦9ac9c2dc4⟧ TextFile, CONNOM , FORLIST::CONNOM |
S | 0 | 1421 | 89 | 10 | FORLIST::DATASØGE | ⟦5a8c15d86⟧ TextFile, DATASØGE, FORLIST::DATASØGE |
S | 0 | 1359 | 70 | 10 | FORLIST::DIM | ⟦ec336ecdf⟧ TextFile, DIM , FORLIST::DIM |
S | 0 | 1397 | 91 | 10 | FORLIST::DISKONT | ⟦a1c2046a4⟧ TextFile, DISKONT , FORLIST::DISKONT |
S | 0 | 1548 | 40 | 75 | FORLIST::FORLIST | ⟦77b5f7c7c⟧ COMAL_SAVE, FORLIST , FORLIST::FORLIST |
S | 0 | 1379 | 78 | 13 | FORLIST::FORMAT | ⟦130b2f016⟧ TextFile, FORLIST::FORMAT, FORMAT |
S | 0 | 1425 | 16 | 4 | FORLIST::GRENVALG | ⟦feb71d5eb⟧ TextFile, FORLIST::GRENVALG, GRENVALG |
S | 0 | 1472 | 88 | 47 | FORLIST::INFORMAT | ⟦58ce0f55d⟧ TextFile, FORLIST::INFORMAT, INFORMAT |
S | 0 | 1411 | 27 | 14 | FORLIST::KLASLÆS | ⟦d01666914⟧ TextFile, FORLIST::KLASLÆS, KLASLÆS |
D | 0 | 1 | 0 | 150 | FORSØM | «none» |
S | 0 | 467 | 0 | 1 | FORSØM::-------- | «none» |
S | 0 | 408 | 36 | 9 | FORSØM::DIM | ⟦c3e3337de⟧ TextFile, DIM , FORSØM::DIM |
S | 0 | 455 | 120 | 9 | FORSØM::DISKONT | ⟦2440852db⟧ TextFile, DISKONT , FORSØM::DISKONT |
S | 0 | 418 | 17 | 10 | FORSØM::ELEVPLOT | ⟦2b59d7e88⟧ TextFile, ELEVPLOT, FORSØM::ELEVPLOT |
S | 0 | 516 | 88 | 48 | FORSØM::FORSØM | ⟦4ff8613d2⟧ COMAL_SAVE, FORSØM , FORSØM::FORSØM |
S | 0 | 467 | 26 | 12 | FORSØM::FORSØMME | ⟦84bfba6a4⟧ TextFile, FORSØM::FORSØMME, FORSØMME |
S | 0 | 429 | 63 | 11 | FORSØM::KLVALG | ⟦b03895a30⟧ TextFile, FORSØM::KLVALG, KLVALG |
S | 0 | 446 | 81 | 17 | FORSØM::NUMERISK | ⟦18936dd92⟧ TextFile, FORSØM::NUMERISK, NUMERISK |
D | 0 | 1 | 0 | 250 | KLLISTE | «none» |
S | 0 | 1714 | 0 | 1 | KLLISTE::-------- | «none» |
S | 0 | 1647 | 92 | 10 | KLLISTE::CONNGREN | ⟦e2f4485cc⟧ TextFile, CONNGREN, KLLISTE::CONNGREN |
S | 0 | 1637 | 38 | 7 | KLLISTE::CONNKLAS | ⟦51b42e697⟧ TextFile, CONNKLAS, KLLISTE::CONNKLAS |
S | 0 | 1613 | 97 | 14 | KLLISTE::DIM | ⟦d7f56e46b⟧ TextFile, DIM , KLLISTE::DIM |
S | 0 | 1662 | 92 | 10 | KLLISTE::DISKONT | ⟦51d81c774⟧ TextFile, DISKONT , KLLISTE::DISKONT |
S | 0 | 1625 | 86 | 12 | KLLISTE::FORMAT | ⟦b2262a36d⟧ TextFile, FORMAT , KLLISTE::FORMAT |
S | 0 | 1630 | 106 | 5 | KLLISTE::KLASLÆS | ⟦630477c08⟧ TextFile, KLASLÆS , KLLISTE::KLASLÆS |
S | 0 | 1652 | 105 | 5 | KLLISTE::KLASSCAN | ⟦2e38df20b⟧ TextFile, KLASSCAN, KLLISTE::KLASSCAN |
S | 0 | 1788 | 74 | 73 | KLLISTE::KLLISTE | ⟦4735054ae⟧ COMAL_SAVE, KLLISTE , KLLISTE::KLLISTE |
S | 0 | 1714 | 28 | 52 | KLLISTE::KLLISTER | ⟦fc9af90b6⟧ TextFile, KLLISTE::KLLISTER, KLLISTER |
D | 0 | 1 | 0 | 350 | OPDATER | «none» |
S | 0 | 264 | 0 | 1 | OPDATER::-------- | «none» |
S | 0 | 61 | 121 | 12 | OPDATER::DIM | ⟦94bb4c3f1⟧ TextFile, DIM , OPDATER::DIM |
S | 0 | 209 | 92 | 10 | OPDATER::DISKONT | ⟦db34bba66⟧ TextFile, DISKONT , OPDATER::DISKONT |
S | 0 | 91 | 114 | 9 | OPDATER::ELEVPLOT | ⟦984928a62⟧ TextFile, ELEVPLOT, OPDATER::ELEVPLOT |
S | 0 | 175 | 121 | 84 | OPDATER::ELOPLYS | ⟦6debe8a6f⟧ TextFile, ELOPLYS , OPDATER::ELOPLYS |
S | 0 | 241 | 4 | 10 | OPDATER::FILBYTTE | ⟦5336f2c63⟧ TextFile, FILBYTTE, OPDATER::FILBYTTE |
S | 0 | 228 | 88 | 5 | OPDATER::FILORDEN | ⟦f118cc5b1⟧ TextFile, FILORDEN, OPDATER::FILORDEN |
S | 0 | 199 | 2 | 24 | OPDATER::GRENFAG | ⟦fc8799ae3⟧ TextFile, GRENFAG , OPDATER::GRENFAG |
S | 0 | 82 | 90 | 15 | OPDATER::GRENRET | ⟦4827e32ad⟧ TextFile, GRENRET , OPDATER::GRENRET |
S | 0 | 218 | 7 | 9 | OPDATER::KLASVALG | ⟦4b0b6d34a⟧ TextFile, KLASVALG, OPDATER::KLASVALG |
S | 0 | 231 | 118 | 3 | OPDATER::NULSTIL | ⟦935212f4a⟧ TextFile, NULSTIL , OPDATER::NULSTIL |
S | 0 | 223 | 63 | 5 | OPDATER::OMRÅDVAL | ⟦cf35ff017⟧ TextFile, OMRÅDVAL, OPDATER::OMRÅDVAL |
S | 0 | 382 | 92 | 117 | OPDATER::OPDATER | ⟦b5de77234⟧ COMAL_SAVE, OPDATER , OPDATER::OPDATER |
S | 0 | 264 | 77 | 23 | OPDATER::OPDATER- | ⟦f40669db2⟧ TextFile, OPDATER-, OPDATER::OPDATER- |
S | 0 | 65 | 8 | 4 | OPDATER::STOPPER | ⟦932a76b8a⟧ TextFile, OPDATER::STOPPER, STOPPER |
S | 0 | 67 | 51 | 2 | OPDATER::UDLÆG | ⟦bc5874fdc⟧ TextFile, OPDATER::UDLÆG, UDLÆG |
D | 0 | 1 | 0 | 47 | PROGRAM | «none» |
S | 0 | 29 | 0 | 1 | PROGRAM::-------- | «none» |
S | 0 | 29 | 120 | 2 | PROGRAM::BESKYT | ⟦911c4e66f⟧ TextFile, BESKYT , PROGRAM::BESKYT |
S | 0 | 7 | 15 | 5 | PROGRAM::DIM | ⟦38d4d4aea⟧ TextFile, DIM , PROGRAM::DIM |
S | 0 | 27 | 46 | 20 | PROGRAM::MAIN | ⟦3e39a7a26⟧ TextFile, MAIN , PROGRAM::MAIN |
0x00000…00080 (0, 0, 1) Hdr {ptr=0x073b, lbl=»DELPROCEDURE DISKETTE «} 0x00080…0028f (0, 0, 2) ⟦38d4d4aea⟧ 0x0028f…00300 Opaque[0x71] 0x00300…00cae (0, 0, 7) ⟦3e39a7a26⟧ 0x00cae…00d00 Opaque[0x52] 0x00d00…00df8 (1, 0, 1) ⟦911c4e66f⟧ 0x00df8…00e00 Opaque[0x8] 0x00e00…00e80 (1, 0, 3) Opaque[0x80] 0x00e80…00f00 (1, 0, 4) 53 56 04 6e 01 71 00 00 07 43 e9 07 50 52 4f 47 52 41 4d e2 f1 7f 41 10 00 00 e2 52 4f 47 52 41 4d 00 e2 14 49 4e 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 44 41 54 4f e2 2d 2d 2d 2d 2d e2 45 4c 53 45 52 e2 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 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 ┆SV n q C PROGRAM A ROGRAM INDSKRIVNING AF DATO ----- ELSER ---------------------------- ┆ 0x00f00…00f80 (1, 0, 5) 00 00 00 00 00 00 00 00 00 00 00 05 0d 56 20 50 52 4f 47 52 41 4d 20 4e 52 2e 20 32 39 31 32 31 39 38 30 00 00 06 0e 56 20 50 52 4f 47 52 41 4d 4e 41 56 4e 20 3a 20 20 50 52 4f 47 52 41 4d 00 00 0a 0c 59 91 f3 7f 01 41 80 00 00 f7 f1 9d f3 7f 43 42 50 00 00 f7 e2 00 14 27 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ V PROGRAM NR. 29121980 V PROGRAMNAVN : PROGRAM Y A CBP 'V -----------------------------------┆ 0x00f80…01000 (1, 0, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d 00 1e 0a 57 9d ed e9 0b 60 61 62 63 64 65 66 67 68 69 6a e2 00 28 0b 57 9d ed 9d f1 e9 0a 6b 6c 6d 6e 6f 70 71 72 73 74 e2 f3 00 32 0b 57 9d ed 9d f1 e9 0a 75 76 77 78 79 7a 7b 7c 7d 7e e2 4e 00 3c 06 57 9d ed 9d f1 e9 01 7f e2 00 46 16 57 9d ed 9d f1 e9 20 40 41 42 43 ┆------------------------------------ - W `abcdefghij ( W klmnopqrst 2 W uvwxyzæøåü N < W F W @ABC┆ 0x01000…01080 (1, 0, 7) 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f e2 f1 00 50 0e 57 9d ed 9d f1 e9 10 20 21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f e2 51 00 5a 27 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆DEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_ P W !"#$%&'()*+,-./ Q Z'V -----------------------------------------------------------------┆ 0x01080…01100 (1, 0, 8) 2d 2d 2d 2d 2d 2d 00 2d 00 64 03 3c 00 2d 00 6e 09 29 e9 03 4c 49 42 f1 7f 41 41 10 00 00 e2 2d 00 78 05 4d 00 df e7 34 b0 e2 00 82 0e 46 de f3 7f f0 41 10 00 00 f1 7f 41 10 00 00 f7 e9 05 4e 55 54 49 44 e2 f0 00 8c 0b 5d de f3 7f f0 41 10 00 00 f7 b1 f1 b2 f1 b3 f1 b4 e2 4e 00 96 07 47 de f3 7f f0 41 10 00 00 f7 e2 00 a0 04 4c b4 e7 e2 f0 00 aa 1a 5c e9 02 8c 86 f0 9d f3 7f 42 1e ┆------ - d < - n ) LIB AA - x M 4 F A A NUTID Å A N G A L Ø B ┆ 0x01100…01180 (1, 0, 9) 00 00 f7 f0 9d f3 7f e2 41 10 00 00 f7 f0 e9 14 49 4e 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 44 41 54 4f e2 2d 00 b4 1d 5c e9 01 86 f0 9d f3 7f 00 42 1b 00 00 f7 f0 9d f3 7f 4e 41 20 00 00 f7 f0 e9 1a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 45 00 be 0f 5c e9 01 86 f0 9d f3 7f 00 42 14 00 00 f7 f0 9d f3 7f 4e 41 80 00 00 f7 f0 e2 1a 00 c8 ┆ A INDSKRIVNING AF DATO - Ø B NA -------------------------- E Ø B NA ┆ 0x01180…01200 (1, 0, 10) 0a 5b e9 0a 5d 52 20 20 20 20 20 20 3a 20 f1 b1 e2 f3 00 d2 0f 5c e9 01 86 f0 9d f3 7f 20 42 14 00 00 f7 f0 9d f3 7f 4e 41 a0 00 00 f7 f0 e2 1a 00 dc 0a 5b e9 0a 4d 5d 4e 45 44 20 20 20 3a 20 f1 b2 e2 f3 00 e6 0f 5c e9 01 86 f0 9d f3 7f 20 42 14 00 00 f7 f0 9d f3 7f 4e 41 c0 00 00 f7 f0 e2 1a 00 f0 0a 5b e9 0a 44 41 54 4f 20 20 20 20 3a 20 f1 b3 e2 f3 00 fa 0e 46 de f3 7f 52 41 10 ┆ Æ ÅR : Ø B NA Æ MÅNED : Ø B NA Æ DATO : F RA ┆ 0x01200…01280 (1, 0, 11) 00 00 f1 7f 41 30 00 00 f7 e9 05 4e 55 54 49 44 e2 00 01 04 0b 5e de f3 7f 41 41 10 00 00 f7 b1 f1 b2 f1 b3 f1 40 00 e2 01 0e 07 47 de f3 7f 41 41 10 00 00 f7 e2 01 18 03 3a 00 07 01 22 20 5c e9 02 8c 86 f0 9d f3 7f 42 14 00 00 f7 f0 9d f3 7f 20 41 10 00 00 f7 f0 e9 20 52 45 47 49 53 54 52 45 52 49 4e 47 20 41 46 20 45 4c 45 56 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 e2 2d 01 2c 2e 5c ┆ A0 NUTID ^ AA @ G AA : " Ø B A REGISTRERING AF ELEVFORSØMMELSER - ,.Ø┆ 0x01280…01300 (1, 0, 12) e9 01 86 f0 9d f3 7f 7f 41 d0 00 00 f7 f0 9d f3 7f 20 41 20 00 00 f7 f0 e9 3d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 01 36 26 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 59 41 50 00 00 f7 f0 e9 2c 41 20 3a 20 20 4f 50 52 59 4b ┆ A A =------------------------------------------------------------- 6&Ø A YAP ,A : OPRYK┆ 0x01300…01380 (1, 0, 13) 4e 49 4e 47 20 41 46 20 4b 4c 41 53 53 45 52 20 45 46 54 45 52 20 53 4f 4d 4d 45 52 46 45 52 49 45 4e e2 2d 01 40 20 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 7f 41 70 00 00 f7 f0 e9 20 42 20 3a 20 20 50 5d 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 e2 2d 01 4a 23 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 7f 41 90 00 00 f7 f0 ┆NING AF KLASSER EFTER SOMMERFERIEN - @ Ø A Ap B : PÅSKRIVNING AF FORSØMMELSER - J#Ø A A ┆ 0x01380…01400 (1, 0, 14) e9 26 43 20 3a 20 20 55 44 53 4b 52 49 56 4e 49 4e 47 2f 49 4e 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 42 52 45 56 45 e2 45 01 54 20 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 7f 41 b0 00 00 f7 f0 e9 20 44 20 3a 20 20 52 45 54 54 45 4c 53 45 20 41 46 20 45 4c 45 56 4f 50 4c 59 53 4e 49 4e 47 45 52 e2 42 01 5e 23 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 7f ┆ &C : UDSKRIVNING/INDSKRIVNING AF BREVE E T Ø A A D : RETTELSE AF ELEVOPLYSNINGER B ^#Ø A ┆ 0x01400…01480 (1, 0, 15) 41 d0 00 00 f7 f0 e9 26 45 20 3a 20 20 55 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 e2 45 01 68 20 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 e9 20 46 20 3a 20 20 55 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 4b 4c 41 53 53 45 4c 49 53 54 45 52 e2 49 01 72 14 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 ┆A &E : UDSKRIVNING AF FORSØMMELSESLISTER E h Ø A A F : UDSKRIVNING AF KLASSELISTER I r Ø A ┆ 0x01480…01500 (1, 0, 16) f7 f0 9d f3 7f 7f 42 11 00 00 f7 f0 e9 09 47 20 3a 20 20 53 54 4f 50 e2 01 7c 2e 5c e9 01 86 f0 9d f3 7f 7f 41 d0 00 00 f7 f0 9d f3 7f 7f 42 14 00 00 f7 f0 e9 3d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 01 86 03 3c 00 01 01 90 0f 5c e9 01 ┆ B G : STOP ø.Ø A B =------------------------------------------------------------- < Ø ┆ 0x01500…01580 (1, 0, 17) 86 f0 9d f3 7f 7f 42 1e 00 00 f7 f0 9d f3 7f 7f 42 17 00 00 f7 f0 e2 20 01 9a 0f 5b e9 14 48 56 49 4c 4b 45 4e 20 46 55 4e 4b 54 49 4f 4e 20 3a 20 1e f1 91 e2 2f 01 a4 0f 5c e9 01 86 f0 9d f3 7f 41 41 10 00 00 f7 f0 9d f3 7f 7f 41 10 00 00 f7 f0 e2 20 01 ae 08 3b 91 ec e9 01 41 e8 91 ee e9 01 47 e2 01 b8 0f 5c e9 01 86 f0 9d f3 7f 41 41 10 00 00 f7 f0 9d f3 7f 7f 41 10 00 00 f7 f0 ┆ B B Æ HVILKEN FUNKTION : / Ø AA A ; A G Ø AA A ┆ 0x01580…01600 (1, 0, 18) e2 20 01 c2 04 38 91 32 e2 01 01 cc 03 56 00 32 01 d6 04 37 e9 01 41 e2 01 e0 07 44 e9 07 41 44 52 45 53 53 45 e2 01 ea 03 56 00 24 01 f4 04 37 e9 01 42 e2 01 fe 07 44 e9 07 41 44 52 45 53 53 45 e2 02 08 03 56 00 24 02 12 04 37 e9 01 43 e2 02 1c 07 44 e9 07 41 44 52 45 53 53 45 e2 02 26 03 56 00 24 02 30 04 37 e9 01 44 e2 02 3a 07 44 e9 07 41 44 52 45 53 53 45 e2 02 44 03 56 00 24 ┆ 8 2 V 2 7 A D ADRESSE V $ 7 B D ADRESSE V $ 7 C D ADRESSE & V $ 0 7 D : D ADRESSE D V $┆ 0x01600…01680 (1, 0, 19) 02 4e 04 37 e9 01 45 e2 02 58 07 44 e9 07 41 44 52 45 53 53 45 e2 02 62 03 56 00 07 02 6c 04 37 e9 01 46 e2 02 76 07 44 e9 07 41 44 52 45 53 53 45 e2 02 80 03 56 00 24 02 8a 04 37 e9 01 47 e2 02 94 0e 46 de f3 7f f0 41 10 00 00 f1 7f 41 30 00 00 f7 e9 05 4e 55 54 49 44 e2 f0 02 9e 0d 5e de f3 7f f0 41 10 00 00 f7 b1 f1 b2 f1 b3 f1 7f 41 10 00 00 e2 44 02 a8 07 47 de f3 7f f0 41 10 ┆ N 7 E X D ADRESSE b V l 7 F v D ADRESSE V $ 7 G F A A0 NUTID ^ A A D G A ┆ 0x01680…01700 (1, 0, 20) 00 00 f7 e2 02 b2 03 2a e2 01 02 bc 03 36 00 07 02 c6 05 3b 91 ed e9 01 47 e2 02 d0 04 5c e9 01 8c e2 02 da 03 41 e2 01 02 e4 27 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d 02 ee 03 35 b0 e2 02 f8 05 4d ┆ * 6 ; G Ø A 'V ----------------------------------------------------------------------- - 5 M┆ 0x01700…01780 (1, 0, 21) 00 df e7 34 b0 e2 03 02 06 33 20 42 45 53 4b 59 54 00 03 0c 28 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ 4 3 BESKYT (V ------------------------------------------------------------------------- - ┆ 0x01780…017b0 (1, 0, 22) 07 3b 44 45 4c 50 52 4f 43 45 44 55 52 45 20 44 49 53 4b 45 54 54 45 0d 0a 00 00 00 00 00 00 00 ┆ ;DELPROCEDURE DISKETTE ┆ 0x01780…017b0 00 00 00 00 00 00 00 00 24 46 52 45 45 00 00 00 ┆ $FREE ┆ 0x017b0…017c0 DirEnt {f00=0x0000, f01=0x0000, f02=0x0000, length=0x0012, name=»$FREE «} 0x017c0…017d0 DirEnt {f00=0x0000, f01=0x001d, f02=0x0000, length=0x0001, name=»--------«} 0x017d0…017e0 DirEnt {f00=0x0000, f01=0x001d, f02=0x0078, length=0x0002, name=»BESKYT «} 0x017e0…017f0 DirEnt {f00=0x0000, f01=0x001b, f02=0x002e, length=0x0014, name=»MAIN «} 0x017f0…01800 DirEnt {f00=0x0000, f01=0x0007, f02=0x000f, length=0x0005, name=»DIM «} 0x01800…01df9 (1, 0, 23) ⟦94bb4c3f1⟧ 0x01df9…01e00 Opaque[0x7] 0x01e00…01f88 (2, 0, 9) ⟦932a76b8a⟧ 0x01f88…02000 Opaque[0x78] 0x02000…020b3 (2, 0, 13) ⟦bc5874fdc⟧ 0x020b3…02100 Opaque[0x4d] 0x02100…0285a (2, 0, 15) ⟦4827e32ad⟧ 0x0285a…02880 Opaque[0x26] 0x02880…02cf2 (3, 0, 4) ⟦984928a62⟧ 0x02cf2…02d00 Opaque[0xe] 0x02d00…056f9 (3, 0, 13) ⟦6debe8a6f⟧ 0x056f9…05700 Opaque[0x7] 0x05700…06282 (6, 0, 19) ⟦fc8799ae3⟧ 0x06282…06300 Opaque[0x7e] 0x06300…067dc (7, 0, 17) ⟦db34bba66⟧ 0x067dc…06800 Opaque[0x24] 0x06800…06c07 (8, 0, 1) ⟦4b0b6d34a⟧ 0x06c07…06c80 Opaque[0x79] 0x06c80…06ebf (8, 0, 10) ⟦cf35ff017⟧ 0x06ebf…06f00 Opaque[0x41] 0x06f00…07158 (8, 0, 15) ⟦f118cc5b1⟧ 0x07158…07180 Opaque[0x28] 0x07180…072f6 (8, 0, 20) ⟦935212f4a⟧ 0x072f6…07300 Opaque[0xa] 0x07300…07784 (8, 0, 23) ⟦5336f2c63⟧ 0x07784…07800 Opaque[0x7c] 0x07800…0834d (9, 0, 7) ⟦f40669db2⟧ 0x0834d…08380 Opaque[0x33] 0x08380…08400 (10, 0, 4) Opaque[0x80] 0x08400…0be5c (10, 0, 5) ⟦b5de77234⟧ 0x0be5c…0be80 Opaque[0x24] 0x0be80…0bf00 (14, 0, 18) 0a 20 20 30 33 30 30 20 45 4e 44 50 52 4f 43 20 45 4c 45 56 50 4c 4f 54 0d 0a 20 20 30 33 31 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 20 30 33 32 30 20 50 52 4f 43 20 4b 4c 56 41 ┆ 0300 ENDPROC ELEVPLOT 0310 REM ------------------------------------------------------------------------- 0320 PROC KLVA┆ 0x0bf00…0bf80 (14, 0, 19) 4c 47 0d 0a 20 20 30 33 33 30 20 20 20 50 52 49 4e 54 20 22 3c 31 34 30 3e 3c 31 33 34 3e 22 3b 58 59 24 28 58 4b 4f 52 29 3b 58 59 24 28 31 29 3b 50 52 4f 43 45 44 55 52 24 0d 0a 20 20 30 33 34 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 58 4b 4f 52 2d 32 29 3b 58 59 24 28 32 29 3b 4c 49 4e 49 45 24 0d 0a 20 20 30 33 35 30 20 20 20 52 45 50 45 41 54 0d 0a 20 ┆LG 0330 PRINT "<140><134>";XY$(XKOR);XY$(1);PROCEDUR$ 0340 PRINT "<134>";XY$(XKOR-2);XY$(2);LINIE$ 0350 REPEAT ┆ 0x0bf80…0c000 (14, 0, 20) 20 30 33 36 30 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 30 33 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 35 29 3b 0d 0a 20 20 30 33 38 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 46 4f 52 20 48 56 49 4c 4b 45 4e 20 4b 4c 41 53 53 45 20 5c 4e 53 4b 45 53 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 4e 45 20 49 4e 44 53 4b 52 ┆ 0360 REPEAT 0370 PRINT "<134>";XY$(5);XY$(5); 0380 INPUT "FOR HVILKEN KLASSE ØNSKES FORSØMMELSERNE INDSKR┆ 0x0c000…0c080 (14, 0, 21) 45 56 45 54 20 3a 20 3c 33 31 3e 22 2c 4b 4c 41 53 53 45 24 0d 0a 20 20 30 33 39 30 20 20 20 20 20 55 4e 54 49 4c 20 4b 4c 41 53 53 45 24 28 31 29 3e 3d 22 31 22 20 41 4e 44 20 4b 4c 41 53 53 45 24 28 31 29 3c 3d 22 33 22 0d 0a 20 20 30 34 30 30 20 20 20 20 20 4c 45 54 20 43 48 45 43 4b 4c 24 3d 4b 4c 41 53 53 45 24 28 31 29 2c 22 2e 47 22 3b 20 4f 4d 52 5d 44 45 24 3d 22 22 0d 0a ┆EVET : <31>",KLASSE$ 0390 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" 0400 LET CHECKL$=KLASSE$(1),".G"; OMRÅDE$="" ┆ 0x0c080…0c100 (14, 0, 22) 20 20 30 34 31 30 20 20 20 20 20 45 58 45 43 20 44 49 53 4b 4f 4e 54 0d 0a 20 20 30 34 32 30 20 20 20 20 20 4c 45 54 20 54 5b 4c 4c 45 52 3d 31 0d 0a 20 20 30 34 33 30 20 20 20 20 20 4f 50 45 4e 20 46 49 4c 45 28 31 2c 30 29 22 4b 4c 2d 4b 4f 44 45 22 0d 0a 20 20 30 34 34 30 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 31 2c 31 29 4b 4c 4b 4f 44 45 24 0d 0a 20 20 30 34 35 30 20 20 ┆ 0410 EXEC DISKONT 0420 LET TÆLLER=1 0430 OPEN FILE(1,0)"KL-KODE" 0440 READ FILE(1,1)KLKODE$ 0450 ┆ 0x0c100…0c180 (14, 0, 23) 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 28 31 29 0d 0a 20 20 30 34 36 30 20 20 20 20 20 57 48 49 4c 45 20 54 5b 4c 4c 45 52 3c 4c 45 4e 28 4b 4c 4b 4f 44 45 24 29 20 44 4f 20 0d 0a 20 20 30 34 37 30 20 20 20 20 20 20 20 49 46 20 4b 4c 41 53 53 45 24 28 31 2c 32 29 3d 4b 4c 4b 4f 44 45 24 28 54 5b 4c 4c 45 52 2c 54 5b 4c 4c 45 52 2b 31 29 20 54 48 45 4e 20 0d 0a 20 20 30 34 38 30 20 ┆ CLOSE FILE(1) 0460 WHILE TÆLLER<LEN(KLKODE$) DO 0470 IF KLASSE$(1,2)=KLKODE$(TÆLLER,TÆLLER+1) THEN 0480 ┆ 0x0c180…0c200 (14, 0, 24) 20 20 20 20 20 20 20 20 4c 45 54 20 4f 4d 52 5d 44 45 24 3d 4b 4c 4b 4f 44 45 24 28 54 5b 4c 4c 45 52 2b 32 2c 54 5b 4c 4c 45 52 2b 33 29 0d 0a 20 20 30 34 39 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 54 5b 4c 4c 45 52 3d 4c 45 4e 28 4b 4c 4b 4f 44 45 24 29 0d 0a 20 20 30 35 30 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 35 31 30 20 20 20 20 20 20 20 4c 45 54 20 54 5b 4c ┆ LET OMRÅDE$=KLKODE$(TÆLLER+2,TÆLLER+3) 0490 LET TÆLLER=LEN(KLKODE$) 0500 ENDIF 0510 LET TÆL┆ 0x0c200…0c280 (14, 0, 25) 4c 45 52 3d 54 5b 4c 4c 45 52 2b 34 0d 0a 20 20 30 35 32 30 20 20 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 30 35 33 30 20 20 20 20 20 49 46 20 4c 45 4e 28 4f 4d 52 5d 44 45 24 29 3d 30 20 54 48 45 4e 20 0d 0a 20 20 30 35 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 35 29 3b 22 46 45 4a 4c 2d 49 4e 44 54 41 53 54 4e 49 4e ┆LER=TÆLLER+4 0520 ENDWHILE 0530 IF LEN(OMRÅDE$)=0 THEN 0540 PRINT "<134>";XY$(5);XY$(5);"FEJL-INDTASTNIN┆ 0x0c280…0c300 (14, 0, 26) 47 20 3a 3c 37 3e 3c 33 30 3e 22 0d 0a 20 20 30 35 35 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 36 29 3b 4b 4c 41 53 53 45 24 3b 22 20 49 4e 44 45 48 4f 4c 44 45 53 20 49 4b 4b 45 20 49 20 53 59 53 54 45 4d 45 54 20 3c 33 30 3e 22 0d 0a 20 20 30 35 36 30 20 20 20 20 20 20 20 44 45 4c 41 59 3d 35 0d 0a 20 20 30 35 37 30 20 20 ┆G :<7><30>" 0550 PRINT "<134>";XY$(5);XY$(6);KLASSE$;" INDEHOLDES IKKE I SYSTEMET <30>" 0560 DELAY=5 0570 ┆ 0x0c300…0c380 (15, 0, 1) 20 20 20 45 4c 53 45 0d 0a 20 20 30 35 38 30 20 20 20 20 20 20 20 43 4f 4e 4e 45 43 54 20 4f 4d 52 5d 44 45 24 2c 31 0d 0a 20 20 30 35 39 30 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 36 30 30 20 20 20 55 4e 54 49 4c 20 4c 45 4e 28 4f 4d 52 5d 44 45 24 29 3c 3e 30 0d 0a 20 20 30 36 31 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 58 4b 4f 52 2b 4c 45 4e 28 50 ┆ ELSE 0580 CONNECT OMRÅDE$,1 0590 ENDIF 0600 UNTIL LEN(OMRÅDE$)<>0 0610 PRINT "<134>";XY$(XKOR+LEN(P┆ 0x0c380…0c400 (15, 0, 2) 52 4f 43 45 44 55 52 24 29 2b 31 29 3b 58 59 24 28 31 29 3b 4b 4c 41 53 53 45 24 0d 0a 20 20 30 36 32 30 20 45 4e 44 50 52 4f 43 20 4b 4c 56 41 4c 47 0d 0a 20 20 30 36 33 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ROCEDUR$)+1);XY$(1);KLASSE$ 0620 ENDPROC KLVALG 0630 REM -----------------------------------------------------------------┆ 0x0c400…0c480 (15, 0, 3) 2d 2d 2d 2d 2d 2d 0d 0a 20 20 30 36 34 30 20 50 52 4f 43 20 4e 55 4d 45 52 49 53 4b 0d 0a 20 20 30 36 35 30 20 20 20 4c 45 54 20 50 52 4f 43 45 44 55 52 24 3d 22 49 4e 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 20 50 52 2e 20 45 4c 45 56 20 49 22 0d 0a 20 20 30 36 36 30 20 20 20 4c 45 54 20 4c 49 4e 49 45 24 3d 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------ 0640 PROC NUMERISK 0650 LET PROCEDUR$="INDSKRIVNING AF FORSØMMELSER PR. ELEV I" 0660 LET LINIE$="-----------┆ 0x0c480…0c500 (15, 0, 4) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 20 58 4b 4f 52 3d 31 38 0d 0a 20 20 30 36 37 30 20 20 20 45 58 45 43 20 4b 4c 56 41 4c 47 0d 0a 20 20 30 36 38 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 33 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 30 36 39 30 20 20 20 50 52 49 4e ┆------------------------------------"; XKOR=18 0670 EXEC KLVALG 0680 PRINT "<134>";XY$(1);XY$(3);"<31>" 0690 PRIN┆ 0x0c500…0c580 (15, 0, 5) 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 32 29 3b 58 59 24 28 34 29 3b 22 4e 52 2e 20 20 20 20 20 20 4e 41 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 5d 4e 45 44 20 20 20 20 20 20 55 4e 44 45 52 56 49 53 54 22 0d 0a 20 20 30 37 30 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 ┆T "<134>";XY$(2);XY$(4);"NR. NAVN MÅNED UNDERVIST" 0700 PRINT "<134>";XY$┆ 0x0c580…0c5f0 (15, 0, 6) 00 00 01 09 ff ff 00 83 4f 50 44 41 54 45 52 00 00 00 01 08 00 00 00 01 2d 2d 2d 2d 2d 2d 2d 2d ┆ OPDATER --------┆ 0x0c580…0c5f0 00 00 01 08 00 4d 00 17 4f 50 44 41 54 45 52 2d 00 00 00 f1 00 04 00 0a 46 49 4c 42 59 54 54 45 ┆ M OPDATER- FILBYTTE┆ 0x0c580…0c5f0 00 00 00 e7 00 76 00 03 4e 55 4c 53 54 49 4c 00 00 00 00 e4 00 58 00 05 46 49 4c 4f 52 44 45 4e ┆ v NULSTIL X FILORDEN┆ 0x0c580…0c5f0 00 00 00 df 00 3f 00 05 4f 4d 52 5d 44 56 41 4c ┆ ? OMRÅDVAL┆ 0x0c5f0…0c600 DirEnt {f00=0x0000, f01=0x00da, f02=0x0000, length=0x000e, name=»$FREE «} 0x0c600…0c610 (15, 0, 7) DirEnt {f00=0x0000, f01=0x017e, f02=0x005c, length=0x0075, name=»OPDATER «} 0x0c610…0c620 DirEnt {f00=0x0000, f01=0x0108, f02=0x0000, length=0x0001, name=»--------«} 0x0c620…0c630 DirEnt {f00=0x0000, f01=0x0108, f02=0x004d, length=0x0017, name=»OPDATER-«} 0x0c630…0c640 DirEnt {f00=0x0000, f01=0x00f1, f02=0x0004, length=0x000a, name=»FILBYTTE«} 0x0c640…0c650 DirEnt {f00=0x0000, f01=0x00e7, f02=0x0076, length=0x0003, name=»NULSTIL «} 0x0c650…0c660 DirEnt {f00=0x0000, f01=0x00e4, f02=0x0058, length=0x0005, name=»FILORDEN«} 0x0c660…0c670 DirEnt {f00=0x0000, f01=0x00df, f02=0x003f, length=0x0005, name=»OMRÅDVAL«} 0x0c670…0c680 DirEnt {f00=0x0000, f01=0x00da, f02=0x0007, length=0x0009, name=»KLASVALG«} 0x0c680…0c690 (15, 0, 8) DirEnt {f00=0x0000, f01=0x00d1, f02=0x005c, length=0x000a, name=»DISKONT «} 0x0c690…0c6a0 DirEnt {f00=0x0000, f01=0x00c7, f02=0x0002, length=0x0018, name=»GRENFAG «} 0x0c6a0…0c6b0 DirEnt {f00=0x0000, f01=0x00af, f02=0x0079, length=0x0054, name=»ELOPLYS «} 0x0c6b0…0c6c0 DirEnt {f00=0x0000, f01=0x005b, f02=0x0072, length=0x0009, name=»ELEVPLOT«} 0x0c6c0…0c6d0 DirEnt {f00=0x0000, f01=0x0052, f02=0x005a, length=0x000f, name=»GRENRET «} 0x0c6d0…0c6e0 DirEnt {f00=0x0000, f01=0x0043, f02=0x0033, length=0x0002, name=»UDLÆG «} 0x0c6e0…0c6f0 DirEnt {f00=0x0000, f01=0x0041, f02=0x0008, length=0x0004, name=»STOPPER «} 0x0c6f0…0c700 DirEnt {f00=0x0000, f01=0x003d, f02=0x0079, length=0x000c, name=»DIM «} 0x0c700…0cb24 (15, 0, 9) ⟦c3e3337de⟧ 0x0cb24…0cb80 Opaque[0x5c] 0x0cb80…0d011 (15, 0, 18) ⟦2b59d7e88⟧ 0x0d011…0d080 Opaque[0x6f] 0x0d080…0d5bf (16, 0, 2) ⟦b03895a30⟧ 0x0d5bf…0d600 Opaque[0x41] 0x0d600…0de51 (16, 0, 13) ⟦18936dd92⟧ 0x0de51…0de80 Opaque[0x2f] 0x0de80…0e2f8 (17, 0, 4) ⟦2440852db⟧ 0x0e2f8…0e300 Opaque[0x8] 0x0e300…0e89a (17, 0, 13) ⟦84bfba6a4⟧ 0x0e89a…0e900 Opaque[0x66] 0x0e900…0e980 (17, 0, 25) Opaque[0x80] 0x0e980…10158 (17, 0, 26) ⟦4ff8613d2⟧ 0x10158…10180 Opaque[0x28] 0x10180…10200 (19, 0, 22) 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 31 0d 0a 20 20 32 34 31 30 20 20 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 31 0d 0a 20 20 32 34 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 46 50 4f 47 42 59 24 0d 0a 20 20 32 34 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 32 0d 0a 20 20 32 34 34 30 20 20 ┆ LET KONTROL=11 2410 WHEN 11 2420 PRINT FPOGBY$ 2430 LET KONTROL=12 2440 ┆ 0x10200…10280 (19, 0, 23) 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 32 0d 0a 20 20 32 34 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 46 54 4c 46 24 0d 0a 20 20 32 34 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 33 3b 20 45 4c 45 56 46 4f 52 3d 33 3b 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 31 0d 0a 20 20 32 34 37 30 20 20 20 20 20 20 20 20 20 ┆ WHEN 12 2450 PRINT FTLF$ 2460 LET KONTROL=13; ELEVFOR=3; RYKKER=RYKKER+1 2470 ┆ 0x10280…10300 (19, 0, 24) 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 32 34 38 30 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 33 0d 0a 20 20 32 34 39 30 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4b 4f 4e 54 52 4f 4c 20 4f 46 20 0d 0a 20 20 32 35 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4d 0d 0a 20 20 32 35 31 30 20 20 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 33 0d 0a 20 20 32 35 32 30 20 20 20 ┆ ENDCASE 2480 WHEN 3 2490 CASE KONTROL OF 2500 REM 2510 WHEN 13 2520 ┆ 0x10300…10380 (19, 0, 25) 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4e 47 45 4c 53 4b 20 54 48 45 4e 20 0d 0a 20 20 32 35 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 53 50 52 4f 47 45 54 24 0d 0a 20 20 32 35 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 32 35 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 ┆ IF ENGELSK THEN 2530 PRINT SPROGET$ 2540 ELSE 2550 LET RYKKER=RYKKER┆ 0x10380…10400 (19, 0, 26) 2b 31 0d 0a 20 20 32 35 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 35 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 34 0d 0a 20 20 32 35 38 30 20 20 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 34 0d 0a 20 20 32 35 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 53 50 52 4f 47 46 52 24 0d 0a 20 20 ┆+1 2560 ENDIF 2570 LET KONTROL=14 2580 WHEN 14 2590 PRINT SPROGFR$ ┆ 0x10400…10480 (20, 0, 1) 32 36 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 35 0d 0a 20 20 32 36 31 30 20 20 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 35 0d 0a 20 20 32 36 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4d 55 46 4f 52 47 52 45 20 54 48 45 4e 20 0d 0a 20 20 32 36 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 56 41 4c 47 ┆2600 LET KONTROL=15 2610 WHEN 15 2620 IF MUFORGRE THEN 2630 PRINT VALG┆ 0x10480…10500 (20, 0, 2) 46 41 47 24 0d 0a 20 20 32 36 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 32 36 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 32 3b 20 4d 55 47 52 50 4c 4f 54 3d 30 0d 0a 20 20 32 36 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 36 37 30 20 20 20 20 20 20 20 20 20 20 20 ┆FAG$ 2640 ELSE 2650 LET RYKKER=RYKKER+2; MUGRPLOT=0 2660 ENDIF 2670 ┆ 0x10500…10580 (20, 0, 3) 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 36 0d 0a 20 20 32 36 38 30 20 20 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 31 36 0d 0a 20 20 32 36 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4d 55 47 52 50 4c 4f 54 20 54 48 45 4e 20 0d 0a 20 20 32 37 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 47 52 45 4e 24 0d 0a 20 20 32 37 31 30 20 20 20 20 20 20 ┆ LET KONTROL=16 2680 WHEN 16 2690 IF MUGRPLOT THEN 2700 PRINT GREN$ 2710 ┆ 0x10580…10600 (20, 0, 4) 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 37 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 37 3b 20 45 4c 45 56 46 4f 52 3d 31 0d 0a 20 20 32 37 33 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 32 37 34 30 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 32 37 35 30 20 20 20 20 20 20 20 20 20 4c 45 54 ┆ ENDIF 2720 LET KONTROL=17; ELEVFOR=1 2730 ENDCASE 2740 ENDCASE 2750 LET┆ 0x10600…10680 (20, 0, 5) 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 31 0d 0a 20 20 32 37 36 30 20 20 20 20 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 32 37 37 30 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 37 38 30 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 32 37 39 30 20 20 20 20 20 20 20 49 46 20 53 50 5c 52 47 45 20 54 48 45 4e 20 0d 0a 20 20 32 38 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 ┆ RYKKER=RYKKER+1 2760 ENDWHILE 2770 ENDIF 2780 REPEAT 2790 IF SPØRGE THEN 2800 PRINT┆ 0x10680…10700 (20, 0, 6) 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 34 31 29 3b 58 59 24 28 34 29 3b 0d 0a 20 20 32 38 31 30 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 45 4c 52 45 54 24 0d 0a 20 20 32 38 32 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 38 33 30 20 20 20 20 20 20 20 49 46 20 4c 45 4e 28 45 4c 52 45 54 24 29 3d 30 20 54 48 45 4e 20 0d 0a 20 20 32 38 34 30 20 20 20 ┆ "<134>";XY$(41);XY$(4); 2810 INPUT "<30>",ELRET$ 2820 ENDIF 2830 IF LEN(ELRET$)=0 THEN 2840 ┆ 0x10700…10780 (20, 0, 7) 20 20 20 20 20 20 49 46 20 4e 4f 54 20 53 49 4e 47 4c 45 20 54 48 45 4e 20 0d 0a 20 20 32 38 35 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 33 29 3b 58 59 24 28 33 29 3b 22 3c 33 30 3e 22 0d 0a 20 20 32 38 36 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 36 0d 0a 20 20 32 38 37 30 20 20 20 20 20 20 20 20 20 20 ┆ IF NOT SINGLE THEN 2850 PRINT "<134>";XY$(13);XY$(3);"<30>" 2860 LET RYKKER=6 2870 ┆ 0x10780…10800 (20, 0, 8) 20 57 48 49 4c 45 20 52 59 4b 4b 45 52 3c 3d 32 33 20 44 4f 20 0d 0a 20 20 32 38 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 34 31 29 3b 58 59 24 28 52 59 4b 4b 45 52 29 3b 22 3c 33 30 3e 22 0d 0a 20 20 32 38 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 59 4b 4b 45 52 3d 31 31 20 4f 52 20 52 59 4b 4b 45 52 3d 31 38 ┆ WHILE RYKKER<=23 DO 2880 PRINT "<134>";XY$(41);XY$(RYKKER);"<30>" 2890 IF RYKKER=11 OR RYKKER=18┆ 0x10800…10880 (20, 0, 9) 20 54 48 45 4e 20 0d 0a 20 20 32 39 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 32 0d 0a 20 20 32 39 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 32 39 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 31 0d 0a 20 20 32 39 33 30 20 20 20 20 20 ┆ THEN 2900 LET RYKKER=RYKKER+2 2910 ELSE 2920 LET RYKKER=RYKKER+1 2930 ┆ 0x10880…10900 (20, 0, 10) 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 39 34 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 32 39 35 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 34 31 29 3b 58 59 24 28 34 29 3b 22 3c 33 30 3e 22 0d 0a 20 20 32 39 36 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 53 4c 55 54 3d 31 3b 20 53 50 5c ┆ ENDIF 2940 ENDWHILE 2950 PRINT "<134>";XY$(41);XY$(4);"<30>" 2960 LET SLUT=1; SPØ┆ 0x10900…10980 (20, 0, 11) 52 47 45 3d 31 0d 0a 20 20 32 39 37 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 32 39 38 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 32 39 39 30 20 20 20 20 20 20 20 20 20 49 46 20 45 4c 52 45 54 24 28 31 2c 33 29 3d 22 52 45 54 22 20 54 48 45 4e 20 0d 0a 20 20 33 30 30 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 52 45 54 54 45 0d 0a 20 20 33 30 31 30 20 20 ┆RGE=1 2970 ENDIF 2980 ELSE 2990 IF ELRET$(1,3)="RET" THEN 3000 EXEC RETTE 3010 ┆ 0x10980…10a00 (20, 0, 12) 20 20 20 20 20 20 20 20 20 4c 45 54 20 45 4c 52 45 54 24 3d 22 22 3b 20 53 50 5c 52 47 45 3d 30 0d 0a 20 20 33 30 32 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 30 33 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4c 52 45 54 24 28 31 2c 34 29 3d 22 53 54 4f 50 22 20 54 48 45 4e 20 0d 0a 20 20 33 30 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 4f 52 54 ┆ LET ELRET$=""; SPØRGE=0 3020 ELSE 3030 IF ELRET$(1,4)="STOP" THEN 3040 LET FORT┆ 0x10a00…10a80 (20, 0, 13) 53 5b 54 3d 30 3b 20 53 4c 55 54 3d 31 0d 0a 20 20 33 30 35 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 30 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4c 52 45 54 24 28 31 29 3d 22 54 22 20 54 48 45 4e 20 0d 0a 20 20 33 30 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 54 5b 4c 4c 45 52 3d 54 5b 4c 4c 45 52 2d 32 3b 20 45 4c 52 45 54 ┆SÆT=0; SLUT=1 3050 ELSE 3060 IF ELRET$(1)="T" THEN 3070 LET TÆLLER=TÆLLER-2; ELRET┆ 0x10a80…10b00 (20, 0, 14) 24 3d 22 22 3b 20 53 50 5c 52 47 45 3d 30 0d 0a 20 20 33 30 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 30 39 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 32 30 20 20 20 20 20 20 20 49 46 20 53 49 4e 47 ┆$=""; SPØRGE=0 3080 ENDIF 3090 ENDIF 3100 ENDIF 3110 ENDIF 3120 IF SING┆ 0x10b00…10b80 (20, 0, 15) 4c 45 20 54 48 45 4e 20 0d 0a 20 20 33 31 33 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 53 4c 55 54 3d 31 3b 20 46 4f 52 54 53 5b 54 3d 30 0d 0a 20 20 33 31 34 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 35 30 20 20 20 20 20 55 4e 54 49 4c 20 53 4c 55 54 0d 0a 20 20 33 31 36 30 20 20 20 20 20 4c 45 54 20 53 4c 55 54 3d 30 0d 0a 20 20 33 31 37 30 20 20 20 45 4e 44 57 48 ┆LE THEN 3130 LET SLUT=1; FORTSÆT=0 3140 ENDIF 3150 UNTIL SLUT 3160 LET SLUT=0 3170 ENDWH┆ 0x10b80…10c00 (20, 0, 16) 49 4c 45 0d 0a 20 20 33 31 38 30 20 20 20 43 4c 4f 53 45 20 0d 0a 20 20 33 31 39 30 20 45 4e 44 50 52 4f 43 20 53 43 52 4f 4f 4c 0d 0a 20 20 33 32 30 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ┆ILE 3180 CLOSE 3190 ENDPROC SCROOL 3200 REM ----------------------------------------------------------------------- ┆ 0x10c00…10c80 (20, 0, 17) 0a 20 20 33 32 31 30 20 50 52 4f 43 20 52 45 54 54 45 0d 0a 20 20 33 32 32 30 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 36 3b 20 4c 49 4e 49 45 53 4b 46 3d 30 3b 20 49 4e 44 53 4b 52 49 56 3d 30 3b 20 53 50 52 49 4e 47 24 3d 22 40 22 3b 20 47 45 4e 54 41 47 45 52 3d 31 0d 0a 20 20 33 32 33 30 20 20 20 57 48 49 4c 45 20 52 59 4b 4b 45 52 3c 3d 32 33 20 44 4f 20 0d 0a 20 20 33 32 34 ┆ 3210 PROC RETTE 3220 LET RYKKER=6; LINIESKF=0; INDSKRIV=0; SPRING$="@"; GENTAGER=1 3230 WHILE RYKKER<=23 DO 324┆ 0x10c80…10d00 (20, 0, 18) 30 20 20 20 20 20 4f 4e 20 45 53 43 20 54 48 45 4e 20 4c 45 54 20 4c 49 4e 49 45 53 4b 46 3d 31 0d 0a 20 20 33 32 35 30 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 34 31 29 3b 58 59 24 28 52 59 4b 4b 45 52 29 3b 0d 0a 20 20 33 32 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 22 2c 53 50 52 49 4e 47 24 0d 0a 20 20 33 32 37 30 20 20 20 20 20 49 46 20 4c 45 4e 28 ┆0 ON ESC THEN LET LINIESKF=1 3250 PRINT "<134>";XY$(41);XY$(RYKKER); 3260 INPUT "",SPRING$ 3270 IF LEN(┆ 0x10d00…10d80 (20, 0, 19) 53 50 52 49 4e 47 24 29 3d 30 20 54 48 45 4e 20 45 58 45 43 20 49 4e 44 53 4b 52 49 56 0d 0a 20 20 33 32 38 30 20 20 20 20 20 49 46 20 4c 49 4e 49 45 53 4b 46 20 54 48 45 4e 20 0d 0a 20 20 33 32 39 30 20 20 20 20 20 20 20 49 46 20 52 59 4b 4b 45 52 3d 31 31 20 54 48 45 4e 20 0d 0a 20 20 33 33 30 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 32 ┆SPRING$)=0 THEN EXEC INDSKRIV 3280 IF LINIESKF THEN 3290 IF RYKKER=11 THEN 3300 LET RYKKER=RYKKER+2┆ 0x10d80…10e00 (20, 0, 20) 0d 0a 20 20 33 33 31 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 33 32 30 20 20 20 20 20 20 20 20 20 49 46 20 52 59 4b 4b 45 52 3d 31 38 20 54 48 45 4e 20 0d 0a 20 20 33 33 33 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 4e 47 45 4c 53 4b 20 54 48 45 4e 20 0d 0a 20 20 33 33 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b ┆ 3310 ELSE 3320 IF RYKKER=18 THEN 3330 IF ENGELSK THEN 3340 LET RYKKER=RYKKER+┆ 0x10e00…10e80 (20, 0, 21) 32 0d 0a 20 20 33 33 35 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 33 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 33 0d 0a 20 20 33 33 37 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 33 38 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 33 39 30 20 20 20 20 20 20 20 20 20 20 20 ┆2 3350 ELSE 3360 LET RYKKER=RYKKER+3 3370 ENDIF 3380 ELSE 3390 ┆ 0x10e80…10f00 (20, 0, 22) 49 46 20 52 59 4b 4b 45 52 3d 32 32 20 4f 52 20 52 59 4b 4b 45 52 3d 32 33 20 54 48 45 4e 20 0d 0a 20 20 33 34 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 55 46 4f 52 47 52 45 20 4f 46 20 0d 0a 20 20 33 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 32 0d 0a 20 20 33 34 32 30 20 20 20 20 20 20 20 20 20 ┆IF RYKKER=22 OR RYKKER=23 THEN 3400 CASE MUFORGRE OF 3410 LET RYKKER=RYKKER+2 3420 ┆ 0x10f00…10f80 (20, 0, 23) 20 20 20 20 57 48 45 4e 20 31 0d 0a 20 20 33 34 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 31 0d 0a 20 20 33 34 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 33 34 35 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 34 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 ┆ WHEN 1 3430 LET RYKKER=RYKKER+1 3440 ENDCASE 3450 ELSE 3460 LET ┆ 0x10f80…11000 (20, 0, 24) 52 59 4b 4b 45 52 3d 52 59 4b 4b 45 52 2b 31 0d 0a 20 20 33 34 37 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 34 38 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 34 39 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 35 30 30 20 20 20 20 20 20 20 4c 45 54 20 4c 49 4e 49 45 53 4b 46 3d 30 0d 0a 20 20 33 35 31 30 20 20 20 20 20 45 4e 44 49 46 ┆RYKKER=RYKKER+1 3470 ENDIF 3480 ENDIF 3490 ENDIF 3500 LET LINIESKF=0 3510 ENDIF┆ 0x11000…11080 (20, 0, 25) 0d 0a 20 20 33 35 32 30 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 33 35 33 30 20 20 20 49 46 20 49 4e 44 53 4b 52 49 56 20 54 48 45 4e 20 0d 0a 20 20 33 35 34 30 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 28 31 2c 52 4e 52 29 4e 52 2c 47 52 45 4e 24 2c 45 4e 41 56 4e 24 2c 46 4e 41 56 4e 24 2c 4d 4e 41 56 4e 24 0d 0a 20 20 33 35 35 30 20 20 20 20 20 57 52 49 54 45 20 46 49 4c ┆ 3520 ENDWHILE 3530 IF INDSKRIV THEN 3540 WRITE FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$ 3550 WRITE FIL┆ 0x11080…11100 (20, 0, 26) 45 28 32 2c 52 4e 52 29 45 41 44 52 24 2c 50 4f 47 42 59 24 2c 43 50 52 24 2c 45 54 4c 46 24 0d 0a 20 20 33 35 36 30 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 28 33 2c 52 4e 52 29 46 45 4e 41 56 4e 24 2c 46 46 4e 41 56 4e 24 2c 53 54 49 4c 4c 49 4e 47 24 2c 4b 5c 4e 24 0d 0a 20 20 33 35 37 30 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 28 34 2c 52 4e 52 29 46 41 44 52 24 2c 46 ┆E(2,RNR)EADR$,POGBY$,CPR$,ETLF$ 3560 WRITE FILE(3,RNR)FENAVN$,FFNAVN$,STILLING$,KØN$ 3570 WRITE FILE(4,RNR)FADR$,F┆ 0x11100…11170 (21, 0, 1) 00 00 01 d4 ff ff 00 4f 46 4f 52 53 5c 4d 00 00 00 00 01 d3 00 00 00 01 2d 2d 2d 2d 2d 2d 2d 2d ┆ OFORSØM --------┆ 0x11100…11170 00 00 01 d3 00 1a 00 0c 46 4f 52 53 5c 4d 4d 45 00 00 01 c7 00 78 00 09 44 49 53 4b 4f 4e 54 00 ┆ FORSØMME x DISKONT ┆ 0x11100…11170 00 00 01 be 00 51 00 11 4e 55 4d 45 52 49 53 4b 00 00 01 ad 00 3f 00 0b 4b 4c 56 41 4c 47 00 00 ┆ Q NUMERISK ? KLVALG ┆ 0x11100…11170 00 00 01 a2 00 11 00 0a 45 4c 45 56 50 4c 4f 54 ┆ ELEVPLOT┆ 0x11170…11180 DirEnt {f00=0x0000, f01=0x0198, f02=0x0000, length=0x001f, name=»$FREE «} 0x11180…11190 (21, 0, 2) DirEnt {f00=0x0000, f01=0x0204, f02=0x0058, length=0x0030, name=»FORSØM «} 0x11190…111a0 DirEnt {f00=0x0000, f01=0x01d3, f02=0x0000, length=0x0001, name=»--------«} 0x111a0…111b0 DirEnt {f00=0x0000, f01=0x01d3, f02=0x001a, length=0x000c, name=»FORSØMME«} 0x111b0…111c0 DirEnt {f00=0x0000, f01=0x01c7, f02=0x0078, length=0x0009, name=»DISKONT «} 0x111c0…111d0 DirEnt {f00=0x0000, f01=0x01be, f02=0x0051, length=0x0011, name=»NUMERISK«} 0x111d0…111e0 DirEnt {f00=0x0000, f01=0x01ad, f02=0x003f, length=0x000b, name=»KLVALG «} 0x111e0…111f0 DirEnt {f00=0x0000, f01=0x01a2, f02=0x0011, length=0x000a, name=»ELEVPLOT«} 0x111f0…11200 DirEnt {f00=0x0000, f01=0x0198, f02=0x0024, length=0x0009, name=»DIM «} 0x11200…11857 (21, 0, 3) ⟦9f284d113⟧ 0x11857…11880 Opaque[0x29] 0x11880…11ae3 (21, 0, 16) ⟦58bd6ba8f⟧ 0x11ae3…11b00 Opaque[0x1d] 0x11b00…11ba9 (21, 0, 21) ⟦8d1a5efa4⟧ 0x11ba9…11c00 Opaque[0x57] 0x11c00…11f14 (21, 0, 23) ⟦23cb029b8⟧ 0x11f14…11f80 Opaque[0x6c] 0x11f80…12356 (22, 0, 4) ⟦dcc8a262f⟧ 0x12356…12380 Opaque[0x2a] 0x12380…12a45 (22, 0, 12) ⟦f1b290f04⟧ 0x12a45…12a80 Opaque[0x3b] 0x12a80…12cec (22, 0, 26) ⟦def35c74e⟧ 0x12cec…12d00 Opaque[0x14] 0x12d00…12f91 (23, 0, 5) ⟦04a2fedfd⟧ 0x12f91…13000 Opaque[0x6f] 0x13000…1314e (23, 0, 11) ⟦f93ce68ac⟧ 0x1314e…13180 Opaque[0x32] 0x13180…1345e (23, 0, 14) ⟦ed5ea8b9a⟧ 0x1345e…13480 Opaque[0x22] 0x13480…13613 (23, 0, 20) ⟦52056c9f9⟧ 0x13613…13680 Opaque[0x6d] 0x13680…1388c (23, 0, 24) ⟦dcda18ab8⟧ 0x1388c…13900 Opaque[0x74] 0x13900…13a3e (24, 0, 3) ⟦580b9f3d2⟧ 0x13a3e…13a80 Opaque[0x42] 0x13a80…14b0d (24, 0, 6) ⟦63985264e⟧ 0x14b0d…14b80 Opaque[0x73] 0x14b80…15386 (25, 0, 14) ⟦88eddf161⟧ 0x15386…15400 Opaque[0x7a] 0x15400…158dc (26, 0, 5) ⟦650df3d8a⟧ 0x158dc…15900 Opaque[0x24] 0x15900…172b4 (26, 0, 15) ⟦4ea94f117⟧ 0x172b4…17300 Opaque[0x4c] 0x17300…17380 (28, 0, 15) Opaque[0x80] 0x17380…1ae2c (28, 0, 16) ⟦fcafbbd47⟧ 0x1ae2c…1ae80 Opaque[0x54] 0x1ae80…1af00 (33, 0, 4) 3e 22 0d 0a 20 20 33 31 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 31 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 53 56 41 52 24 3d 22 4a 41 22 0d 0a 20 20 33 31 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 31 35 30 20 20 ┆>" 3110 ENDIF 3120 ELSE 3130 LET SVAR$="JA" 3140 ENDIF 3150 ┆ 0x1af00…1af80 (33, 0, 5) 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 4a 41 22 0d 0a 20 20 33 31 36 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 31 37 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 30 29 3b 58 59 24 28 38 29 3b 4b 4c 41 53 53 45 24 3b 22 3c 37 3e 20 46 49 4e 44 45 53 20 49 4b 4b 45 20 49 20 3c 33 30 3e 22 3b 43 ┆ UNTIL SVAR$="JA" 3160 ELSE 3170 PRINT "<134>";XY$(10);XY$(8);KLASSE$;"<7> FINDES IKKE I <30>";C┆ 0x1af80…1b000 (33, 0, 6) 48 45 43 4b 4c 24 0d 0a 20 20 33 31 38 30 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 41 59 3d 33 0d 0a 20 20 33 31 39 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 32 30 30 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4b 4c 4b 4f 44 45 24 28 53 54 45 44 2c 53 54 45 44 2b 31 29 3d 4b 4c 41 53 53 45 24 0d 0a 20 20 33 32 31 30 20 20 20 20 20 20 20 49 46 20 52 4e 52 20 54 48 45 ┆HECKL$ 3180 DELAY=3 3190 ENDIF 3200 UNTIL KLKODE$(STED,STED+1)=KLASSE$ 3210 IF RNR THE┆ 0x1b000…1b080 (33, 0, 7) 4e 20 0d 0a 20 20 33 32 31 31 20 20 20 20 20 20 20 20 20 43 41 53 45 20 43 50 52 24 28 4c 45 4e 28 43 50 52 24 29 29 20 4f 46 20 0d 0a 20 20 33 32 31 32 20 20 20 20 20 20 20 20 20 20 20 52 45 4d 0d 0a 20 20 33 32 31 33 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 22 31 22 2c 22 33 22 2c 22 35 22 2c 22 37 22 2c 22 39 22 0d 0a 20 20 33 32 31 34 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 ┆N 3211 CASE CPR$(LEN(CPR$)) OF 3212 REM 3213 WHEN "1","3","5","7","9" 3214 LET┆ 0x1b080…1b100 (33, 0, 8) 20 48 41 48 55 24 3d 22 48 41 4e 22 0d 0a 20 20 33 32 31 35 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 22 32 22 2c 22 34 22 2c 22 36 22 2c 22 38 22 2c 22 30 22 0d 0a 20 20 33 32 31 36 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 48 41 48 55 24 3d 22 48 55 4e 22 0d 0a 20 20 33 32 31 37 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 33 32 32 30 20 20 20 20 20 20 20 20 20 ┆ HAHU$="HAN" 3215 WHEN "2","4","6","8","0" 3216 LET HAHU$="HUN" 3217 ENDCASE 3220 ┆ 0x1b100…1b180 (33, 0, 9) 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 33 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 33 32 32 31 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 30 29 3b 58 59 24 28 38 29 3b 46 4e 41 56 4e 24 3b 3b 45 4e 41 56 4e 24 3b 22 48 41 52 20 49 20 22 3b 4d 5d 4e 45 44 24 3b 22 46 4f 52 53 5c 4d 54 20 49 22 3b 50 4a 5b 4b 3b ┆PRINT "<134>";XY$(1);XY$(3);"<31>" 3221 PRINT "<134>";XY$(10);XY$(8);FNAVN$;;ENAVN$;"HAR I ";MÅNED$;"FORSØMT I";PJÆK;┆ 0x1b180…1b200 (33, 0, 10) 22 4c 45 4b 54 49 4f 4e 45 52 2e 22 0d 0a 20 20 33 32 32 32 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 30 29 3b 58 59 24 28 39 29 3b 48 41 48 55 24 3b 22 20 48 41 52 20 49 20 44 45 54 54 45 20 53 4b 4f 4c 45 5d 52 20 46 4f 52 53 5c 4d 54 22 3b 53 55 4d 50 4a 5b 4b 3b 22 4c 45 4b 54 49 4f 4e 45 52 2e 22 0d 0a 20 20 33 32 33 30 20 20 20 20 20 ┆"LEKTIONER." 3222 PRINT "<134>";XY$(10);XY$(9);HAHU$;" HAR I DETTE SKOLEÅR FORSØMT";SUMPJÆK;"LEKTIONER." 3230 ┆ 0x1b200…1b280 (33, 0, 11) 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 30 29 3b 58 59 24 28 31 31 29 3b 0d 0a 20 20 33 32 34 30 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 56 49 4c 20 44 55 20 4c 41 56 45 20 45 4e 20 53 5b 52 4c 49 47 20 54 45 4b 53 54 20 54 49 4c 20 45 4c 45 56 45 4e 20 3a 20 3c 33 30 3e 22 2c 53 56 41 52 24 0d 0a 20 20 33 32 35 30 20 20 20 20 20 20 20 20 20 49 ┆ PRINT "<134>";XY$(10);XY$(11); 3240 INPUT "VIL DU LAVE EN SÆRLIG TEKST TIL ELEVEN : <30>",SVAR$ 3250 I┆ 0x1b280…1b300 (33, 0, 12) 46 20 53 56 41 52 24 3d 22 4a 41 22 20 54 48 45 4e 20 0d 0a 20 20 33 32 36 30 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 0d 0a 20 20 33 32 37 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 54 52 45 54 45 4b 53 54 3d 30 0d 0a 20 20 33 32 38 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 54 45 4b 53 54 49 4e 44 0d 0a 20 20 33 32 39 30 20 20 20 20 20 20 20 20 20 20 20 45 ┆F SVAR$="JA" THEN 3260 CLOSE 3270 LET TRETEKST=0 3280 EXEC TEKSTIND 3290 E┆ 0x1b300…1b380 (33, 0, 13) 58 45 43 20 54 45 4b 53 54 0d 0a 20 20 33 33 30 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 46 4f 52 4d 0d 0a 20 20 33 33 31 30 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 0d 0a 20 20 33 33 32 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 33 35 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 54 45 4b 53 54 0d 0a 20 20 33 33 36 30 20 20 20 20 20 20 20 20 ┆XEC TEKST 3300 EXEC FORM 3310 CLOSE 3320 ELSE 3350 EXEC TEKST 3360 ┆ 0x1b380…1b400 (33, 0, 14) 20 20 20 45 58 45 43 20 46 4f 52 4d 0d 0a 20 20 33 34 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 34 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 34 32 30 20 20 20 20 20 20 20 43 4c 4f 53 45 20 0d 0a 20 20 33 34 33 30 20 20 20 20 20 57 48 45 4e 20 22 45 22 0d 0a 20 20 33 34 34 30 20 20 20 20 20 20 20 45 58 45 43 20 53 54 41 4e 44 54 45 58 0d 0a 20 20 ┆ EXEC FORM 3400 ENDIF 3410 ENDIF 3420 CLOSE 3430 WHEN "E" 3440 EXEC STANDTEX ┆ 0x1b400…1b480 (33, 0, 15) 33 34 35 30 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 33 34 36 30 20 20 20 55 4e 54 49 4c 20 46 55 4e 4b 56 41 4c 47 24 3d 22 46 22 0d 0a 20 20 33 34 37 30 20 45 4e 44 50 52 4f 43 20 42 52 45 56 41 4c 47 0d 0a 20 20 33 34 38 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆3450 ENDCASE 3460 UNTIL FUNKVALG$="F" 3470 ENDPROC BREVALG 3480 REM ---------------------------------------------┆ 0x1b480…1b500 (33, 0, 16) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 20 33 34 39 30 20 50 52 4f 43 20 54 45 4b 53 54 49 4e 44 0d 0a 20 20 33 35 30 30 20 20 20 4d 41 54 20 56 41 52 49 53 54 45 44 3d 5a 45 52 0d 0a 20 20 33 35 31 30 20 20 20 43 4f 4e 4e 45 43 54 20 22 4c 49 42 22 2c 31 0d 0a 20 20 33 35 32 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b ┆---------------------------- 3490 PROC TEKSTIND 3500 MAT VARISTED=ZER 3510 CONNECT "LIB",1 3520 PRINT "<134>";┆ 0x1b500…1b580 (33, 0, 17) 58 59 24 28 31 29 3b 58 59 24 28 32 29 3b 0d 0a 20 20 33 35 33 30 20 20 20 50 52 49 4e 54 20 22 3c 33 31 3e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 0d 0a 20 20 33 35 34 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 ┆XY$(1);XY$(2); 3530 PRINT "<31>-------------------------------------------------------------" 3540 PRINT "<134>";XY$(5┆ 0x1b580…1b600 (33, 0, 18) 29 3b 58 59 24 28 34 29 3b 22 23 46 4e 41 56 4e 23 20 3a 20 45 4c 45 56 45 4e 53 20 46 4f 52 4e 41 56 4e 22 0d 0a 20 20 33 35 35 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 35 29 3b 22 23 45 4e 41 56 4e 23 20 3a 20 45 4c 45 56 45 4e 53 20 45 46 54 45 52 4e 41 56 4e 22 0d 0a 20 20 33 35 36 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 ┆);XY$(4);"#FNAVN# : ELEVENS FORNAVN" 3550 PRINT "<134>";XY$(5);XY$(5);"#ENAVN# : ELEVENS EFTERNAVN" 3560 PRINT "<134>"┆ 0x1b600…1b680 (33, 0, 19) 3b 58 59 24 28 35 29 3b 58 59 24 28 36 29 3b 22 23 4d 4e 41 56 4e 23 20 3a 20 45 4c 45 56 45 4e 53 20 4d 45 4c 4c 45 4d 4e 41 56 4e 22 0d 0a 20 20 33 35 37 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 37 29 3b 22 23 46 4f 52 53 4d 23 20 3a 20 41 4e 54 41 4c 4c 45 54 20 41 46 20 45 4c 45 56 45 4e 53 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 20 ┆;XY$(5);XY$(6);"#MNAVN# : ELEVENS MELLEMNAVN" 3570 PRINT "<134>";XY$(5);XY$(7);"#FORSM# : ANTALLET AF ELEVENS FORSØMMELSER ┆ 0x1b680…1b700 (33, 0, 20) 49 20 44 45 4e 20 41 4b 54 55 45 4c 4c 45 20 4d 5d 4e 45 44 22 0d 0a 20 20 33 35 38 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 38 29 3b 22 23 53 46 4f 52 53 23 20 3a 20 41 4e 54 41 4c 4c 45 54 20 41 46 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 52 20 49 20 49 4e 44 45 56 5b 52 45 4e 53 45 20 53 4b 4f 4c 45 5d 52 22 0d 0a 20 20 33 35 39 30 20 20 ┆I DEN AKTUELLE MÅNED" 3580 PRINT "<134>";XY$(5);XY$(8);"#SFORS# : ANTALLET AF FORSØMMELSER I INDEVÆRENSE SKOLEÅR" 3590 ┆ 0x1b700…1b780 (33, 0, 21) 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 39 29 3b 22 23 4d 5d 4e 45 44 23 20 3a 20 44 45 4e 20 41 4b 54 55 45 4c 4c 45 20 4d 5d 4e 45 44 53 20 4e 41 56 4e 22 0d 0a 20 20 33 36 30 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 30 29 3b 22 23 53 5c 2f 44 41 23 20 3a 20 53 5c 4e 2f 44 41 54 54 45 52 22 0d ┆ PRINT "<134>";XY$(5);XY$(9);"#MÅNED# : DEN AKTUELLE MÅNEDS NAVN" 3600 PRINT "<134>";XY$(5);XY$(10);"#SØ/DA# : SØN/DATTER" ┆ 0x1b780…1b800 (33, 0, 22) 0a 20 20 33 36 31 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 31 29 3b 22 23 48 41 2f 48 55 23 20 3a 20 48 41 4e 2f 48 55 4e 22 0d 0a 20 20 33 36 32 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 33 29 3b 58 59 24 28 31 33 29 3b 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 3610 PRINT "<134>";XY$(5);XY$(11);"#HA/HU# : HAN/HUN" 3620 PRINT "<134>";XY$(3);XY$(13);"-----------------------------┆ 0x1b800…1b880 (33, 0, 23) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 0d 0a 20 20 33 36 33 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 35 29 3b 22 3c 33 31 3e 44 55 20 4b 41 4e 20 4e 55 20 55 44 46 4f 52 4d 45 20 45 54 20 42 52 45 56 20 50 5d 20 35 20 4c 49 4e 49 45 52 2e 22 0d 0a 20 20 33 36 34 30 ┆-----------------------------------" 3630 PRINT "<134>";XY$(5);XY$(15);"<31>DU KAN NU UDFORME ET BREV PÅ 5 LINIER." 3640┆ 0x1b880…1b900 (33, 0, 24) 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 36 29 3b 22 48 56 4f 52 20 44 45 54 20 45 52 20 4e 5c 44 56 45 4e 44 49 47 54 20 49 4e 44 53 5b 54 54 45 53 20 42 4c 4f 54 20 45 4e 20 41 46 20 4f 56 45 4e 53 54 5d 45 4e 44 45 20 4b 4f 44 45 52 2e 22 0d 0a 20 20 33 36 35 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b ┆ PRINT "<134>";XY$(5);XY$(16);"HVOR DET ER NØDVENDIGT INDSÆTTES BLOT EN AF OVENSTÅENDE KODER." 3650 PRINT "<134>";XY$(5);┆ 0x1b900…1b980 (33, 0, 25) 58 59 24 28 31 37 29 3b 22 48 55 53 4b 20 41 54 20 4b 4f 44 45 52 4e 45 20 53 4b 41 4c 20 53 54 41 56 45 53 20 4e 5c 4a 41 47 54 49 47 54 20 53 4f 4d 20 4f 56 45 4e 53 54 5d 45 4e 44 45 22 0d 0a 20 20 33 36 36 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 38 29 3b 22 54 41 47 20 48 45 4e 53 59 4e 20 54 49 4c 20 4c 5b 4e 47 44 45 4e 20 41 ┆XY$(17);"HUSK AT KODERNE SKAL STAVES NØJAGTIGT SOM OVENSTÅENDE" 3660 PRINT "<134>";XY$(5);XY$(18);"TAG HENSYN TIL LÆNGDEN A┆ 0x1b980…1ba00 (33, 0, 26) 46 20 44 45 20 56 41 52 49 41 42 4c 45 2e 22 0d 0a 20 20 33 36 37 30 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 35 29 3b 58 59 24 28 31 39 29 3b 22 48 55 53 4b 2c 20 45 4e 20 4b 4f 44 45 20 4d 5d 20 49 4b 4b 45 20 44 45 4c 45 53 20 4f 56 45 52 20 54 4f 20 4c 49 4e 49 45 52 20 21 22 0d 0a 20 20 33 36 37 35 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 ┆F DE VARIABLE." 3670 PRINT "<134>";XY$(5);XY$(19);"HUSK, EN KODE MÅ IKKE DELES OVER TO LINIER !" 3675 PRINT "<134>";XY┆ 0x1ba00…1ba80 (34, 0, 1) 24 28 31 30 29 3b 58 59 24 28 32 32 29 3b 0d 0a 20 20 33 36 38 30 20 20 20 49 4e 50 55 54 20 22 54 41 53 54 20 27 52 45 54 55 52 4e 27 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 52 20 22 2c 54 45 4b 53 54 24 0d 0a 20 20 33 36 39 30 20 20 20 52 45 50 45 41 54 0d 0a 20 20 33 37 30 30 20 20 20 20 20 4c 45 54 20 54 41 4c 3d 31 3b 20 54 5b 4c 4c 45 52 3d 31 35 0d 0a 20 20 33 37 31 30 20 ┆$(10);XY$(22); 3680 INPUT "TAST 'RETURN' NÅR DU ER KLAR ",TEKST$ 3690 REPEAT 3700 LET TAL=1; TÆLLER=15 3710 ┆ 0x1ba80…1bb00 (34, 0, 2) 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 31 34 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 33 37 32 30 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 33 37 33 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 32 29 3b 58 59 24 28 54 5b 4c 4c 45 52 29 3b 54 41 4c 0d 0a 20 20 33 37 34 30 20 20 20 20 20 20 20 50 52 49 4e ┆ PRINT "<134>";XY$(1);XY$(14);"<31>" 3720 REPEAT 3730 PRINT "<134>";XY$(2);XY$(TÆLLER);TAL 3740 PRIN┆ 0x1bb00…1bb80 (34, 0, 3) 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 31 29 3b 58 59 24 28 54 5b 4c 4c 45 52 29 3b 22 5e 22 0d 0a 20 20 33 37 35 30 20 20 20 20 20 20 20 49 46 20 54 41 4c 3c 35 20 54 48 45 4e 20 0d 0a 20 20 33 37 36 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 31 29 3b 58 59 24 28 54 5b 4c 4c 45 52 2b 31 29 3b 22 5e 3c 33 30 3e 22 0d 0a 20 20 33 37 ┆T "<134>";XY$(61);XY$(TÆLLER);"^" 3750 IF TAL<5 THEN 3760 PRINT "<134>";XY$(61);XY$(TÆLLER+1);"^<30>" 37┆ 0x1bb80…1bc00 (34, 0, 4) 37 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 37 38 30 20 20 20 20 20 20 20 4c 45 54 20 54 41 4c 3d 54 41 4c 2b 31 3b 20 54 5b 4c 4c 45 52 3d 54 5b 4c 4c 45 52 2b 32 0d 0a 20 20 33 37 39 30 20 20 20 20 20 55 4e 54 49 4c 20 54 41 4c 3d 36 0d 0a 20 20 33 38 30 30 20 20 20 20 20 4c 45 54 20 54 45 4b 53 54 24 3d 22 22 3b 20 4c 49 4e 49 45 3d 31 35 0d 0a 20 20 33 38 31 30 20 ┆70 ENDIF 3780 LET TAL=TAL+1; TÆLLER=TÆLLER+2 3790 UNTIL TAL=6 3800 LET TEKST$=""; LINIE=15 3810 ┆ 0x1bc00…1bc80 (34, 0, 5) 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 33 38 32 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 4c 49 4e 49 45 29 3b 0d 0a 20 20 33 38 33 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 22 2c 44 45 4c 54 45 4b 53 54 24 0d 0a 20 20 33 38 34 30 20 20 20 20 20 20 20 49 46 20 4c 45 4e 28 44 45 4c 54 45 4b 53 54 24 29 3e 3d 36 30 20 ┆ REPEAT 3820 PRINT "<134>";XY$(15);XY$(LINIE); 3830 INPUT "",DELTEKST$ 3840 IF LEN(DELTEKST$)>=60 ┆ 0x1bc80…1bd00 (34, 0, 6) 54 48 45 4e 20 0d 0a 20 20 33 38 35 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 4c 49 4e 49 45 2b 31 29 3b 22 3c 37 3e 4c 49 4e 49 45 20 46 4f 52 20 4c 41 4e 47 22 0d 0a 20 20 33 38 36 30 20 20 20 20 20 20 20 20 20 44 45 4c 41 59 3d 32 0d 0a 20 20 33 38 37 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 ┆THEN 3850 PRINT "<134>";XY$(15);XY$(LINIE+1);"<7>LINIE FOR LANG" 3860 DELAY=2 3870 PRINT "<134┆ 0x1bd00…1bd80 (34, 0, 7) 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 4c 49 4e 49 45 2b 31 29 3b 22 3c 33 30 3e 22 0d 0a 20 20 33 38 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 31 29 3b 58 59 24 28 4c 49 4e 49 45 2b 31 29 3b 22 5e 22 0d 0a 20 20 33 38 39 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 ┆>";XY$(15);XY$(LINIE+1);"<30>" 3880 PRINT "<134>";XY$(61);XY$(LINIE+1);"^" 3890 PRINT "<134>";XY$(15);XY$(┆ 0x1bd80…1be00 (34, 0, 8) 4c 49 4e 49 45 29 3b 22 3c 33 30 3e 22 0d 0a 20 20 33 39 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 31 29 3b 58 59 24 28 4c 49 4e 49 45 29 3b 22 5e 22 0d 0a 20 20 33 39 31 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 33 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 33 39 32 30 20 20 20 ┆LINIE);"<30>" 3900 PRINT "<134>";XY$(61);XY$(LINIE);"^" 3910 PRINT "<134>";XY$(1);XY$(3);"<31>" 3920 ┆ 0x1be00…1be80 (34, 0, 9) 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 39 33 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 54 45 4b 53 54 24 3d 54 45 4b 53 54 24 2c 44 45 4c 54 45 4b 53 54 24 2c 22 3c 31 30 3e 3c 31 30 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 20 33 39 34 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 39 35 30 20 20 20 20 20 20 20 4c 45 54 20 4c 49 4e 49 45 3d 4c ┆ ELSE 3930 LET TEKST$=TEKST$,DELTEKST$,"<10><10> " 3940 ENDIF 3950 LET LINIE=L┆ 0x1be80…1bf00 (34, 0, 10) 49 4e 49 45 2b 32 0d 0a 20 20 33 39 36 30 20 20 20 20 20 55 4e 54 49 4c 20 4c 49 4e 49 45 3e 32 33 0d 0a 20 20 33 39 37 30 20 20 20 20 20 4c 45 54 20 54 5b 4c 4c 45 52 3d 31 0d 0a 20 20 33 39 38 30 20 20 20 20 20 46 4f 52 20 53 54 45 44 3d 31 20 54 4f 20 4c 45 4e 28 54 45 4b 53 54 24 29 0d 0a 20 20 33 39 39 30 20 20 20 20 20 20 20 49 46 20 54 45 4b 53 54 24 28 53 54 45 44 29 3d 22 ┆INIE+2 3960 UNTIL LINIE>23 3970 LET TÆLLER=1 3980 FOR STED=1 TO LEN(TEKST$) 3990 IF TEKST$(STED)="┆ 0x1bf00…1bf80 (34, 0, 11) 23 22 20 54 48 45 4e 20 4c 45 54 20 56 41 52 49 53 54 45 44 28 54 5b 4c 4c 45 52 29 3d 53 54 45 44 3b 20 54 5b 4c 4c 45 52 3d 54 5b 4c 4c 45 52 2b 31 3b 20 53 54 45 44 3d 53 54 45 44 2b 36 0d 0a 20 20 34 30 30 30 20 20 20 20 20 4e 45 58 54 20 53 54 45 44 0d 0a 20 20 34 30 31 30 20 20 20 20 20 4c 45 54 20 46 45 4a 4c 3d 30 3b 20 4a 3d 2d 31 0d 0a 20 20 34 30 32 30 20 20 20 20 20 46 ┆#" THEN LET VARISTED(TÆLLER)=STED; TÆLLER=TÆLLER+1; STED=STED+6 4000 NEXT STED 4010 LET FEJL=0; J=-1 4020 F┆ 0x1bf80…1bfc0 (34, 0, 12) 00 00 02 a9 ff ff 00 d7 44 49 53 4b 4f 4e 54 00 00 00 02 a9 00 06 00 11 53 54 41 4e 44 54 45 58 ┆ DISKONT STANDTEX┆ 0x1bf80…1bfc0 00 00 02 98 00 0d 00 22 54 45 4b 53 54 49 4e 44 00 00 02 76 00 3e 00 03 54 45 4b 53 54 4c 5b 53 ┆ "TEKSTIND v > TEKSTLÆS┆ 0x1bfc0…1bfd0 DirEnt {f00=0x0000, f01=0x0273, f02=0x0000, length=0x0022, name=»$FREE «} 0x1bfd0…1bfe0 DirEnt {f00=0x0000, f01=0x035e, f02=0x002c, length=0x0076, name=»BREV «} 0x1bfe0…1bff0 DirEnt {f00=0x0000, f01=0x02e7, f02=0x0000, length=0x0001, name=»--------«} 0x1bff0…1c000 DirEnt {f00=0x0000, f01=0x02e7, f02=0x0034, length=0x0034, name=»BREVVALG«} 0x1c000…1c010 (34, 0, 13) DirEnt {f00=0x0000, f01=0x02b3, f02=0x005c, length=0x000a, name=»DISKONT «} 0x1c010…1c020 DirEnt {f00=0x0000, f01=0x02a9, f02=0x0006, length=0x0011, name=»STANDTEX«} 0x1c020…1c030 DirEnt {f00=0x0000, f01=0x0298, f02=0x000d, length=0x0022, name=»TEKSTIND«} 0x1c030…1c040 DirEnt {f00=0x0000, f01=0x0276, f02=0x003e, length=0x0003, name=»TEKSTLÆS«} 0x1c040…1c050 DirEnt {f00=0x0000, f01=0x0273, f02=0x000c, length=0x0005, name=»CONNKLAS«} 0x1c050…1c060 DirEnt {f00=0x0000, f01=0x026e, f02=0x0013, length=0x0004, name=»OPENFILS«} 0x1c060…1c070 DirEnt {f00=0x0000, f01=0x026a, f02=0x005e, length=0x0006, name=»KLASLÆS «} 0x1c070…1c080 DirEnt {f00=0x0000, f01=0x0264, f02=0x004e, length=0x0003, name=»FILLÆS «} 0x1c080…1c090 (34, 0, 14) DirEnt {f00=0x0000, f01=0x0261, f02=0x0011, length=0x0006, name=»PROCEVAL«} 0x1c090…1c0a0 DirEnt {f00=0x0000, f01=0x025b, f02=0x006c, length=0x0005, name=»NUMSTRIN«} 0x1c0a0…1c0b0 DirEnt {f00=0x0000, f01=0x0256, f02=0x0045, length=0x000e, name=»TEKST «} 0x1c0b0…1c0c0 DirEnt {f00=0x0000, f01=0x0248, f02=0x0056, length=0x0008, name=»DECIFTEX«} 0x1c0c0…1c0d0 DirEnt {f00=0x0000, f01=0x0240, f02=0x0014, length=0x0007, name=»FORM «} 0x1c0d0…1c0e0 DirEnt {f00=0x0000, f01=0x0239, f02=0x0029, length=0x0002, name=»BLÅLYS «} 0x1c0e0…1c0f0 DirEnt {f00=0x0000, f01=0x0237, f02=0x0063, length=0x0005, name=»TILBAGE «} 0x1c0f0…1c100 DirEnt {f00=0x0000, f01=0x0232, f02=0x0057, length=0x000d, name=»DIM «} 0x1c100…1c738 (34, 0, 15) ⟦9101eecc7⟧ 0x1c738…1c780 Opaque[0x48] 0x1c780…1c8de (35, 0, 2) ⟦397bfc0ef⟧ 0x1c8de…1c900 Opaque[0x22] 0x1c900…1ce3a (35, 0, 5) ⟦810840089⟧ 0x1ce3a…1ce80 Opaque[0x46] 0x1ce80…1d34b (35, 0, 16) ⟦a7266badf⟧ 0x1d34b…1d380 Opaque[0x35] 0x1d380…1dcb2 (35, 0, 26) ⟦be142e4d1⟧ 0x1dcb2…1dd00 Opaque[0x4e] 0x1dd00…1f1ad (36, 0, 19) ⟦f8217e6d8⟧ 0x1f1ad…1f200 Opaque[0x53] 0x1f200…1f7ee (38, 0, 9) ⟦31cbacc22⟧ 0x1f7ee…1f800 Opaque[0x12] 0x1f800…21412 (38, 0, 21) ⟦6e632e11e⟧ 0x21412…21480 Opaque[0x6e] 0x21480…21926 (40, 0, 26) ⟦a6976ef7a⟧ 0x21926…21980 Opaque[0x5a] 0x21980…22d50 (41, 0, 10) ⟦61cc31fe3⟧ 0x22d50…22d80 Opaque[0x30] 0x22d80…23d4d (42, 0, 24) ⟦e7d2de21c⟧ 0x23d4d…23d80 Opaque[0x33] 0x23d80…2405c (44, 0, 4) ⟦b764186bb⟧ 0x2405c…24080 Opaque[0x24] 0x24080…24133 (44, 0, 10) ⟦59e78c63e⟧ 0x24133…24180 Opaque[0x4d] 0x24180…249de (44, 0, 12) ⟦0118a4b51⟧ 0x249de…24a00 Opaque[0x22] 0x24a00…24a80 (45, 0, 3) Opaque[0x80] 0x24a80…2907c (45, 0, 4) ⟦66e1d5466⟧ 0x2907c…29080 Opaque[0x4] 0x29080…29100 (50, 0, 14) 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 53 54 49 4c 4c 49 4e 47 24 0d 0a 20 20 34 39 33 30 20 20 20 20 20 57 48 45 4e 20 31 36 0d 0a 20 20 34 39 34 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 46 41 44 52 24 0d 0a 20 20 34 39 35 30 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 4c 45 4e 28 46 41 44 52 24 29 20 54 48 45 4e 20 0d 0a 20 20 34 39 36 30 20 20 20 20 20 20 20 ┆INPUT "<30>",STILLING$ 4930 WHEN 16 4940 INPUT "<30>",FADR$ 4950 IF NOT LEN(FADR$) THEN 4960 ┆ 0x29100…29180 (50, 0, 15) 20 20 4c 45 54 20 46 41 44 52 24 3d 45 41 44 52 24 3b 20 55 44 4c 5b 47 24 3d 45 41 44 52 24 0d 0a 20 20 34 39 37 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 55 44 4c 5b 47 0d 0a 20 20 34 39 38 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 34 39 39 30 20 20 20 20 20 57 48 45 4e 20 31 37 0d 0a 20 20 35 30 30 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 46 50 ┆ LET FADR$=EADR$; UDLÆG$=EADR$ 4970 EXEC UDLÆG 4980 ENDIF 4990 WHEN 17 5000 INPUT "<30>",FP┆ 0x29180…29200 (50, 0, 16) 4f 47 42 59 24 0d 0a 20 20 35 30 31 30 20 20 20 20 20 20 20 49 46 20 4c 45 4e 28 46 50 4f 47 42 59 24 29 3d 34 20 54 48 45 4e 20 0d 0a 20 20 35 30 32 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 31 3b 20 53 4c 55 54 3d 30 0d 0a 20 20 35 30 33 30 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 50 4f 53 54 4d 41 54 28 31 2c 4b 4f 4e 54 52 4f 4c 29 3c 3e 30 20 41 4e ┆OGBY$ 5010 IF LEN(FPOGBY$)=4 THEN 5020 LET KONTROL=1; SLUT=0 5030 WHILE POSTMAT(1,KONTROL)<>0 AN┆ 0x29200…29280 (50, 0, 17) 44 20 4b 4f 4e 54 52 4f 4c 3c 3d 32 39 20 41 4e 44 20 4e 4f 54 20 53 4c 55 54 20 44 4f 20 0d 0a 20 20 35 30 34 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 46 50 4f 47 42 59 24 28 31 2c 34 29 3d 50 4f 53 54 54 45 58 54 24 28 50 4f 53 54 4d 41 54 28 31 2c 4b 4f 4e 54 52 4f 4c 29 2c 50 4f 53 54 4d 41 54 28 32 2c 4b 4f 4e 54 52 4f 4c 29 29 20 54 48 45 4e 20 0d 0a 20 20 35 30 35 30 20 ┆D KONTROL<=29 AND NOT SLUT DO 5040 IF FPOGBY$(1,4)=POSTTEXT$(POSTMAT(1,KONTROL),POSTMAT(2,KONTROL)) THEN 5050 ┆ 0x29280…29300 (50, 0, 18) 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 50 4f 47 42 59 24 3d 46 50 4f 47 42 59 24 2c 22 20 22 2c 50 4f 53 54 54 45 58 54 24 28 50 4f 53 54 4d 41 54 28 33 2c 4b 4f 4e 54 52 4f 4c 29 2c 50 4f 53 54 4d 41 54 28 34 2c 4b 4f 4e 54 52 4f 4c 29 29 3b 20 53 4c 55 54 3d 31 0d 0a 20 20 35 30 36 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 30 37 30 20 20 20 20 ┆ LET FPOGBY$=FPOGBY$," ",POSTTEXT$(POSTMAT(3,KONTROL),POSTMAT(4,KONTROL)); SLUT=1 5060 ENDIF 5070 ┆ 0x29300…29380 (50, 0, 19) 20 20 20 20 20 20 20 4c 45 54 20 4b 4f 4e 54 52 4f 4c 3d 4b 4f 4e 54 52 4f 4c 2b 31 0d 0a 20 20 35 30 38 30 20 20 20 20 20 20 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 20 35 30 39 30 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 53 4c 55 54 20 54 48 45 4e 20 0d 0a 20 20 35 31 30 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 31 31 30 ┆ LET KONTROL=KONTROL+1 5080 ENDWHILE 5090 IF NOT SLUT THEN 5100 LET GENTAGER=0 5110┆ 0x29380…29400 (50, 0, 20) 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 31 32 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 35 31 33 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 55 44 4c 5b 47 24 3d 46 50 4f 47 42 59 24 0d 0a 20 20 35 31 34 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 55 44 4c 5b 47 0d 0a 20 20 35 31 35 30 20 20 20 20 20 20 20 20 20 45 4e ┆ PRINT "<7>" 5120 ELSE 5130 LET UDLÆG$=FPOGBY$ 5140 EXEC UDLÆG 5150 EN┆ 0x29400…29480 (50, 0, 21) 44 49 46 0d 0a 20 20 35 31 36 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 35 31 37 30 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 4c 45 4e 28 46 50 4f 47 42 59 24 29 20 54 48 45 4e 20 0d 0a 20 20 35 31 38 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 50 4f 47 42 59 24 3d 50 4f 47 42 59 24 3b 20 55 44 4c 5b 47 24 3d 50 4f 47 42 59 24 0d 0a 20 20 35 31 39 30 20 20 20 20 ┆DIF 5160 ELSE 5170 IF NOT LEN(FPOGBY$) THEN 5180 LET FPOGBY$=POGBY$; UDLÆG$=POGBY$ 5190 ┆ 0x29480…29500 (50, 0, 22) 20 20 20 20 20 20 20 45 58 45 43 20 55 44 4c 5b 47 0d 0a 20 20 35 32 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 32 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 32 32 30 20 20 20 20 20 57 48 45 4e 20 31 38 0d 0a 20 20 35 32 33 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 46 54 4c 46 24 0d 0a 20 20 35 32 34 30 20 20 20 20 20 20 20 49 ┆ EXEC UDLÆG 5200 ENDIF 5210 ENDIF 5220 WHEN 18 5230 INPUT "<30>",FTLF$ 5240 I┆ 0x29500…29580 (50, 0, 23) 46 20 4e 4f 54 20 4c 45 4e 28 46 54 4c 46 24 29 20 54 48 45 4e 20 0d 0a 20 20 35 32 35 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 54 4c 46 24 3d 45 54 4c 46 24 3b 20 55 44 4c 5b 47 24 3d 45 54 4c 46 24 0d 0a 20 20 35 32 36 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 55 44 4c 5b 47 0d 0a 20 20 35 32 37 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 35 32 38 30 20 20 20 20 20 20 ┆F NOT LEN(FTLF$) THEN 5250 LET FTLF$=ETLF$; UDLÆG$=ETLF$ 5260 EXEC UDLÆG 5270 ELSE 5280 ┆ 0x29580…29600 (50, 0, 24) 20 20 20 49 46 20 4c 45 4e 28 46 54 4c 46 24 29 3c 3e 31 20 41 4e 44 20 4c 45 4e 28 46 54 4c 46 24 29 3d 36 20 54 48 45 4e 20 0d 0a 20 20 35 32 39 30 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 4c 45 4e 28 46 54 4c 46 24 29 0d 0a 20 20 35 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 45 4a 4c 3d 31 0d 0a 20 20 35 33 31 30 20 20 20 20 20 20 20 ┆ IF LEN(FTLF$)<>1 AND LEN(FTLF$)=6 THEN 5290 FOR I=1 TO LEN(FTLF$) 5300 LET FEJL=1 5310 ┆ 0x29600…29680 (50, 0, 25) 20 20 20 20 20 20 46 4f 52 20 4a 3d 31 20 54 4f 20 4c 45 4e 28 54 49 54 41 4c 24 29 0d 0a 20 20 35 33 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 46 54 4c 46 24 28 49 29 3d 54 49 54 41 4c 24 28 4a 29 20 54 48 45 4e 20 0d 0a 20 20 35 33 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 46 45 4a 4c 3d 30 3b 20 4a 3d 4c 45 4e 28 54 49 54 41 4c 24 29 ┆ FOR J=1 TO LEN(TITAL$) 5320 IF FTLF$(I)=TITAL$(J) THEN 5330 LET FEJL=0; J=LEN(TITAL$)┆ 0x29680…29700 (50, 0, 26) 0d 0a 20 20 35 33 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 33 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 3d 4c 45 4e 28 54 49 54 41 4c 24 29 20 41 4e 44 20 46 45 4a 4c 20 54 48 45 4e 20 0d 0a 20 20 35 33 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 3b 20 49 3d 4c 45 4e ┆ 5340 ENDIF 5350 IF J=LEN(TITAL$) AND FEJL THEN 5360 LET GENTAGER=0; I=LEN┆ 0x29700…29780 (51, 0, 1) 28 46 54 4c 46 24 29 0d 0a 20 20 35 33 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 33 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 33 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 4a 0d 0a 20 20 35 34 30 30 20 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 0a 20 20 35 ┆(FTLF$) 5370 PRINT "<7>" 5380 ENDIF 5390 NEXT J 5400 NEXT I 5┆ 0x29780…29800 (51, 0, 2) 34 31 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 35 34 32 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4c 45 4e 28 46 54 4c 46 24 29 20 41 4e 44 20 4c 45 4e 28 46 54 4c 46 24 29 3c 3e 31 20 54 48 45 4e 20 0d 0a 20 20 35 34 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 34 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆410 ELSE 5420 IF LEN(FTLF$) AND LEN(FTLF$)<>1 THEN 5430 LET GENTAGER=0 5440 ┆ 0x29800…29880 (51, 0, 3) 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 34 35 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 34 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 34 37 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 34 38 30 20 20 20 20 20 57 48 45 4e 20 32 30 0d 0a 20 20 35 34 39 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 53 50 52 ┆PRINT "<7>" 5450 ENDIF 5460 ENDIF 5470 ENDIF 5480 WHEN 20 5490 INPUT "<30>",SPR┆ 0x29880…29900 (51, 0, 4) 4f 47 45 54 24 0d 0a 20 20 35 35 30 30 20 20 20 20 20 20 20 49 46 20 53 50 52 4f 47 45 54 24 3c 3e 22 45 4e 22 20 41 4e 44 20 53 50 52 4f 47 45 54 24 3c 3e 22 54 59 22 20 54 48 45 4e 20 0d 0a 20 20 35 35 31 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 35 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 35 33 ┆OGET$ 5500 IF SPROGET$<>"EN" AND SPROGET$<>"TY" THEN 5510 LET GENTAGER=0 5520 PRINT "<7>" 553┆ 0x29900…29980 (51, 0, 5) 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 35 34 30 20 20 20 20 20 57 48 45 4e 20 32 31 0d 0a 20 20 35 35 35 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 53 50 52 4f 47 46 52 24 0d 0a 20 20 35 35 36 30 20 20 20 20 20 20 20 49 46 20 53 50 52 4f 47 46 52 24 3c 3e 22 46 52 22 20 41 4e 44 20 53 50 52 4f 47 46 52 24 3c 3e 22 52 55 22 20 54 48 45 4e 20 0d 0a ┆0 ENDIF 5540 WHEN 21 5550 INPUT "<30>",SPROGFR$ 5560 IF SPROGFR$<>"FR" AND SPROGFR$<>"RU" THEN ┆ 0x29980…29a00 (51, 0, 6) 20 20 35 35 37 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 35 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 35 39 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 36 30 30 20 20 20 20 20 57 48 45 4e 20 32 32 0d 0a 20 20 35 36 31 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 56 41 4c ┆ 5570 LET GENTAGER=0 5580 PRINT "<7>" 5590 ENDIF 5600 WHEN 22 5610 INPUT "<30>",VAL┆ 0x29a00…29a80 (51, 0, 7) 47 46 41 47 24 0d 0a 20 20 35 36 32 30 20 20 20 20 20 20 20 49 46 20 56 41 4c 47 46 41 47 24 3c 3e 22 46 4f 22 20 41 4e 44 20 56 41 4c 47 46 41 47 24 3c 3e 22 4d 55 22 20 54 48 45 4e 20 0d 0a 20 20 35 36 33 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 36 34 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 36 35 ┆GFAG$ 5620 IF VALGFAG$<>"FO" AND VALGFAG$<>"MU" THEN 5630 LET GENTAGER=0 5640 PRINT "<7>" 565┆ 0x29a80…29b00 (51, 0, 8) 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 36 36 30 20 20 20 20 20 57 48 45 4e 20 32 33 0d 0a 20 20 35 36 37 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 3c 33 30 3e 22 2c 47 52 45 4e 24 0d 0a 20 20 35 36 38 30 20 20 20 20 20 20 20 49 46 20 47 52 45 4e 24 3c 3e 22 46 22 20 41 4e 44 20 47 52 45 4e 24 3c 3e 22 53 22 20 41 4e 44 20 47 52 45 4e 24 3c 3e 22 4d 22 20 41 4e 44 ┆0 ENDIF 5660 WHEN 23 5670 INPUT "<30>",GREN$ 5680 IF GREN$<>"F" AND GREN$<>"S" AND GREN$<>"M" AND┆ 0x29b00…29b80 (51, 0, 9) 20 47 52 45 4e 24 3c 3e 22 4e 22 20 54 48 45 4e 20 0d 0a 20 20 35 36 39 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 45 52 3d 30 0d 0a 20 20 35 37 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 37 3e 22 0d 0a 20 20 35 37 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 37 32 30 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 35 37 33 30 20 20 20 20 ┆ GREN$<>"N" THEN 5690 LET GENTAGER=0 5700 PRINT "<7>" 5710 ENDIF 5720 ENDCASE 5730 ┆ 0x29b80…29c00 (51, 0, 10) 20 4f 4e 20 45 53 43 20 54 48 45 4e 20 45 58 45 43 20 54 49 4c 42 41 47 45 0d 0a 20 20 35 37 34 30 20 20 20 55 4e 54 49 4c 20 47 45 4e 54 41 47 45 52 0d 0a 20 20 35 37 35 30 20 20 20 4c 45 54 20 49 4e 44 53 4b 52 49 56 3d 31 3b 20 53 50 52 49 4e 47 24 3d 22 40 22 0d 0a 20 20 35 37 36 30 20 45 4e 44 50 52 4f 43 20 49 4e 44 53 4b 52 49 56 0d 0a 20 20 35 37 37 30 20 52 45 4d 20 2d 2d ┆ ON ESC THEN EXEC TILBAGE 5740 UNTIL GENTAGER 5750 LET INDSKRIV=1; SPRING$="@" 5760 ENDPROC INDSKRIV 5770 REM --┆ 0x29c00…29c80 (51, 0, 11) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 20 35 37 38 30 20 50 52 4f 43 20 45 4c 45 56 56 41 4c 47 0d 0a 20 20 35 37 39 30 20 20 20 4f 50 45 4e 20 46 49 4c 45 28 31 2c 31 29 22 45 4e 52 2d 52 4e 52 2e 22 ┆----------------------------------------------------------------------- 5780 PROC ELEVVALG 5790 OPEN FILE(1,1)"ENR-RNR."┆ 0x29c80…29d00 (51, 0, 12) 0d 0a 20 20 35 38 30 30 20 20 20 4d 41 54 20 52 45 41 44 20 46 49 4c 45 28 31 29 45 4e 52 52 4e 52 0d 0a 20 20 35 38 31 30 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 28 31 29 0d 0a 20 20 35 38 32 30 20 20 20 4c 45 54 20 47 45 4e 54 41 47 3d 31 3b 20 53 54 4f 50 50 45 52 3d 30 0d 0a 20 20 35 38 33 30 20 20 20 57 48 49 4c 45 20 47 45 4e 54 41 47 20 44 4f 20 0d 0a 20 20 35 38 34 30 20 20 ┆ 5800 MAT READ FILE(1)ENRRNR 5810 CLOSE FILE(1) 5820 LET GENTAG=1; STOPPER=0 5830 WHILE GENTAG DO 5840 ┆ 0x29d00…29d80 (51, 0, 13) 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 33 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 35 38 35 30 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 35 38 36 30 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 35 38 37 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 29 3b 58 59 24 28 36 29 3b 0d 0a 20 20 35 38 ┆ PRINT "<134>";XY$(1);XY$(3);"<31>" 5850 REPEAT 5860 REPEAT 5870 PRINT "<134>";XY$(6);XY$(6); 58┆ 0x29d80…29e00 (51, 0, 14) 38 30 20 20 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 45 4c 45 56 45 4e 53 20 4e 55 4d 4d 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3c 33 30 3e 22 2c 43 4e 52 0d 0a 20 20 35 38 39 30 20 20 20 20 20 20 20 55 4e 54 49 4c 20 43 4e 52 3e 3d 30 20 41 4e 44 20 43 4e 52 3c 3d 33 30 0d 0a 20 20 35 39 30 30 20 20 20 20 20 20 20 49 46 20 43 4e 52 3d 30 20 54 48 45 4e 20 0d ┆80 INPUT "ELEVENS NUMMER : <30>",CNR 5890 UNTIL CNR>=0 AND CNR<=30 5900 IF CNR=0 THEN ┆ 0x29e00…29e80 (51, 0, 15) 0a 20 20 35 39 31 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 47 45 4e 54 41 47 3d 30 3b 20 53 54 4f 50 50 45 52 3d 31 3b 20 43 4e 52 3d 33 30 0d 0a 20 20 35 39 32 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 35 39 33 30 20 20 20 20 20 20 20 20 20 49 46 20 45 4e 52 52 4e 52 28 31 2c 43 4e 52 29 3d 30 20 4f 52 20 45 4e 52 52 4e 52 28 31 2c 43 4e 52 29 3e 3d 31 30 30 20 54 48 45 4e ┆ 5910 LET GENTAG=0; STOPPER=1; CNR=30 5920 ELSE 5930 IF ENRRNR(1,CNR)=0 OR ENRRNR(1,CNR)>=100 THEN┆ 0x29e80…29f00 (51, 0, 16) 20 0d 0a 20 20 35 39 34 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 36 29 3b 58 59 24 28 38 29 3b 22 45 4c 45 56 22 3b 43 4e 52 3b 22 45 4b 53 49 53 54 45 52 45 20 49 4b 4b 45 20 49 20 22 3b 4b 4c 41 53 53 45 24 0d 0a 20 20 35 39 35 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 34 29 3b 58 59 ┆ 5940 PRINT "<134>";XY$(6);XY$(8);"ELEV";CNR;"EKSISTERE IKKE I ";KLASSE$ 5950 PRINT "<134>";XY$(4);XY┆ 0x29f00…29f80 (51, 0, 17) 24 28 39 29 3b 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 0d 0a 20 20 35 39 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 39 37 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 35 39 38 30 20 20 20 20 20 55 4e 54 49 4c 20 45 4e 52 52 4e 52 28 31 2c 43 4e 52 29 3e 3d 31 20 41 4e 44 20 45 4e 52 52 4e 52 28 ┆$(9);"--------------------------------" 5960 ENDIF 5970 ENDIF 5980 UNTIL ENRRNR(1,CNR)>=1 AND ENRRNR(┆ 0x29f80…2a000 (51, 0, 18) 31 2c 43 4e 52 29 3c 3d 33 30 20 4f 52 20 53 54 4f 50 50 45 52 0d 0a 20 20 35 39 39 30 20 20 20 20 20 49 46 20 4e 4f 54 20 53 54 4f 50 50 45 52 20 54 48 45 4e 20 0d 0a 20 20 36 30 30 30 20 20 20 20 20 20 20 45 58 45 43 20 55 44 54 45 4b 53 54 0d 0a 20 20 36 30 31 30 20 20 20 20 20 20 20 4c 45 54 20 53 49 4e 47 4c 45 3d 31 3b 20 54 5b 4c 4c 45 52 3d 43 4e 52 3b 20 46 4f 52 54 53 5b ┆1,CNR)<=30 OR STOPPER 5990 IF NOT STOPPER THEN 6000 EXEC UDTEKST 6010 LET SINGLE=1; TÆLLER=CNR; FORTSÆ┆ 0x2a000…2a080 (51, 0, 19) 54 3d 31 3b 20 45 4c 45 56 46 4f 52 3d 31 3b 20 4d 55 47 52 50 4c 4f 54 3d 31 3b 20 53 4c 55 54 3d 30 3b 20 53 50 5c 52 47 45 3d 31 0d 0a 20 20 36 30 32 30 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 36 30 33 30 20 20 20 20 20 49 46 20 4e 4f 54 20 53 54 4f 50 50 45 52 20 54 48 45 4e 20 45 58 45 43 20 53 43 52 4f 4f 4c 0d 0a 20 20 36 30 34 30 20 20 20 45 4e 44 57 48 49 4c 45 0d 0a 20 ┆T=1; ELEVFOR=1; MUGRPLOT=1; SLUT=0; SPØRGE=1 6020 ENDIF 6030 IF NOT STOPPER THEN EXEC SCROOL 6040 ENDWHILE ┆ 0x2a080…2a0f0 (51, 0, 20) 00 00 04 96 ff ff 00 ab 45 4c 45 56 52 45 54 00 00 00 04 95 00 00 00 01 2d 2d 2d 2d 2d 2d 2d 2d ┆ ELEVRET --------┆ 0x2a080…2a0f0 00 00 04 95 00 5e 00 11 49 4e 46 4f 52 4d 41 54 00 00 04 84 00 33 00 02 55 44 4c 5b 47 00 00 00 ┆ ^ INFORMAT 3 UDLÆG ┆ 0x2a080…2a0f0 00 00 04 82 00 5c 00 06 54 49 4c 42 41 47 45 00 00 00 04 7c 00 4d 00 20 45 4c 45 56 49 4e 44 00 ┆ Ø TILBAGE ø M ELEVIND ┆ 0x2a080…2a0f0 00 00 04 5c 00 50 00 28 45 4b 4f 4e 54 52 4f 4c ┆ Ø P (EKONTROL┆ 0x2a0f0…2a100 DirEnt {f00=0x0000, f01=0x0434, f02=0x0000, length=0x001f, name=»$FREE «} 0x2a100…2a110 (51, 0, 21) DirEnt {f00=0x0000, f01=0x0522, f02=0x007c, length=0x008c, name=»ELEVRET «} 0x2a110…2a120 DirEnt {f00=0x0000, f01=0x0495, f02=0x0000, length=0x0001, name=»--------«} 0x2a120…2a130 DirEnt {f00=0x0000, f01=0x0495, f02=0x005e, length=0x0011, name=»INFORMAT«} 0x2a130…2a140 DirEnt {f00=0x0000, f01=0x0484, f02=0x0033, length=0x0002, name=»UDLÆG «} 0x2a140…2a150 DirEnt {f00=0x0000, f01=0x0482, f02=0x005c, length=0x0006, name=»TILBAGE «} 0x2a150…2a160 DirEnt {f00=0x0000, f01=0x047c, f02=0x004d, length=0x0020, name=»ELEVIND «} 0x2a160…2a170 DirEnt {f00=0x0000, f01=0x045c, f02=0x0050, length=0x0028, name=»EKONTROL«} 0x2a170…2a180 DirEnt {f00=0x0000, f01=0x0434, f02=0x0026, length=0x000a, name=»ELEVVALG«} 0x2a180…2a190 (51, 0, 22) DirEnt {f00=0x0000, f01=0x042a, f02=0x0012, length=0x0039, name=»INDSKRIV«} 0x2a190…2a1a0 DirEnt {f00=0x0000, f01=0x03f1, f02=0x006e, length=0x000c, name=»RETTE «} 0x2a1a0…2a1b0 DirEnt {f00=0x0000, f01=0x03e5, f02=0x002d, length=0x002a, name=»SCROOL «} 0x2a1b0…2a1c0 DirEnt {f00=0x0000, f01=0x03bb, f02=0x0032, length=0x0013, name=»UDTEKST «} 0x2a1c0…2a1d0 DirEnt {f00=0x0000, f01=0x03a8, f02=0x004b, length=0x000a, name=»DISKONT «} 0x2a1d0…2a1e0 DirEnt {f00=0x0000, f01=0x039e, f02=0x003a, length=0x000b, name=»KLVALG «} 0x2a1e0…2a1f0 DirEnt {f00=0x0000, f01=0x0393, f02=0x005e, length=0x0003, name=»MATTEKST«} 0x2a1f0…2a200 DirEnt {f00=0x0000, f01=0x0390, f02=0x0038, length=0x000d, name=»DIM «} 0x2a200…2a6c6 (51, 0, 23) ⟦ec336ecdf⟧ 0x2a6c6…2a700 Opaque[0x3a] 0x2a700…2a8ba (52, 0, 7) ⟦4c966df6e⟧ 0x2a8ba…2a900 Opaque[0x46] 0x2a900…2aa37 (52, 0, 11) ⟦4179fbc76⟧ 0x2aa37…2aa80 Opaque[0x49] 0x2aa80…2b0ce (52, 0, 14) ⟦130b2f016⟧ 0x2b0ce…2b100 Opaque[0x32] 0x2b100…2b4d0 (53, 0, 1) ⟦9ac9c2dc4⟧ 0x2b4d0…2b500 Opaque[0x30] 0x2b500…2b9db (53, 0, 9) ⟦a1c2046a4⟧ 0x2b9db…2ba00 Opaque[0x25] 0x2ba00…2c09b (53, 0, 19) ⟦d01666914⟧ 0x2c09b…2c100 Opaque[0x65] 0x2c100…2c5d9 (54, 0, 7) ⟦5a8c15d86⟧ 0x2c5d9…2c600 Opaque[0x27] 0x2c600…2c790 (54, 0, 17) ⟦feb71d5eb⟧ 0x2c790…2c800 Opaque[0x70] 0x2c800…2df58 (54, 0, 21) ⟦58ce0f55d⟧ 0x2df58…2df80 Opaque[0x28] 0x2df80…2e000 (56, 0, 16) Opaque[0x80] 0x2e000…30528 (56, 0, 17) ⟦77b5f7c7c⟧ 0x30528…30580 Opaque[0x58] 0x30580…30600 (59, 0, 14) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 44 49 56 45 52 53 45 20 53 54 52 49 4e 47 20 56 41 52 49 41 42 4c 45 52 0d 0a 20 20 30 30 39 30 20 44 49 4d 20 53 50 52 4f 47 45 54 24 28 32 29 2c 53 50 52 4f 47 46 52 24 28 32 29 2c 46 55 4e 4b 56 41 4c 47 24 28 32 29 ┆------------------------------------------------------ DIVERSE STRING VARIABLER 0090 DIM SPROGET$(2),SPROGFR$(2),FUNKVALG$(2)┆ 0x30600…30680 (59, 0, 15) 2c 43 48 45 43 4b 4c 24 28 34 29 2c 4b 4c 54 52 49 4e 24 28 34 29 0d 0a 20 20 30 31 30 30 20 44 49 4d 20 4b 4c 4b 4f 44 45 24 28 36 30 29 2c 4e 59 4b 4c 24 28 32 29 2c 46 4c 4e 41 56 4e 45 24 28 36 30 29 2c 4b 4c 41 53 53 45 24 28 34 29 2c 4f 4d 52 5d 44 45 24 28 32 29 2c 47 52 45 4e 24 28 35 29 0d 0a 20 20 30 31 31 30 20 44 49 4d 20 46 4f 52 4d 55 53 24 28 34 29 2c 56 41 4c 47 46 ┆,CHECKL$(4),KLTRIN$(4) 0100 DIM KLKODE$(60),NYKL$(2),FLNAVNE$(60),KLASSE$(4),OMRÅDE$(2),GREN$(5) 0110 DIM FORMUS$(4),VALGF┆ 0x30680…30700 (59, 0, 16) 41 47 24 28 34 29 2c 54 45 4b 53 54 24 28 35 32 30 29 2c 50 52 4f 43 45 44 55 52 24 28 38 30 29 2c 4c 49 4e 49 45 24 28 38 30 29 0d 0a 20 20 30 31 32 30 20 44 49 4d 20 56 41 4c 47 24 28 31 30 29 2c 45 4c 52 45 54 24 28 31 30 29 2c 53 50 52 49 4e 47 24 28 32 29 2c 4d 59 4e 44 49 47 24 28 32 29 2c 58 59 24 28 38 30 29 0d 0a 20 20 30 31 33 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆AG$(4),TEKST$(520),PROCEDUR$(80),LINIE$(80) 0120 DIM VALG$(10),ELRET$(10),SPRING$(2),MYNDIG$(2),XY$(80) 0130 REM ---------┆ 0x30700…30780 (59, 0, 17) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4e 55 4d 45 52 49 53 4b 45 20 56 41 52 49 41 42 4c 45 52 0d 0a 20 20 30 31 34 30 20 44 49 4d 20 45 4e 52 52 4e 52 28 31 2c 33 30 29 2c 52 4e 52 4b 4f 4e 54 4c 28 31 2c 33 30 29 2c 46 4c 59 54 28 ┆-------------------------------------------------------------- NUMERISKE VARIABLER 0140 DIM ENRRNR(1,30),RNRKONTL(1,30),FLYT(┆ 0x30780…30800 (59, 0, 18) 31 2c 33 30 29 2c 58 59 54 45 4b 53 54 28 32 2c 32 30 29 2c 4d 41 54 52 49 4b 53 28 32 2c 31 30 29 0d 0a 20 20 30 31 35 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 49 4c 44 45 4c 49 4e 47 20 ┆1,30),XYTEKST(2,20),MATRIKS(2,10) 0150 REM ----------------------------------------------------------------------- TILDELING ┆ 0x30800…30880 (59, 0, 19) 41 46 20 4b 4f 4e 53 54 41 4e 54 45 20 56 5b 52 44 49 45 52 0d 0a 20 20 30 31 36 30 20 4c 45 54 20 58 59 24 3d 22 3c 39 36 3e 3c 39 37 3e 3c 39 38 3e 3c 39 39 3e 3c 31 30 30 3e 3c 31 30 31 3e 3c 31 30 32 3e 3c 31 30 33 3e 3c 31 30 34 3e 3c 31 30 35 3e 3c 31 30 36 3e 22 0d 0a 20 20 30 31 37 30 20 4c 45 54 20 58 59 24 3d 58 59 24 2c 22 3c 31 30 37 3e 3c 31 30 38 3e 3c 31 30 39 3e 3c ┆AF KONSTANTE VÆRDIER 0160 LET XY$="<96><97><98><99><100><101><102><103><104><105><106>" 0170 LET XY$=XY$,"<107><108><109><┆ 0x30880…30900 (59, 0, 20) 31 31 30 3e 3c 31 31 31 3e 3c 31 31 32 3e 3c 31 31 33 3e 3c 31 31 34 3e 3c 31 31 35 3e 3c 31 31 36 3e 22 0d 0a 20 20 30 31 38 30 20 4c 45 54 20 58 59 24 3d 58 59 24 2c 22 3c 31 31 37 3e 3c 31 31 38 3e 3c 31 31 39 3e 3c 31 32 30 3e 3c 31 32 31 3e 3c 31 32 32 3e 3c 31 32 33 3e 3c 31 32 34 3e 3c 31 32 35 3e 3c 31 32 36 3e 22 0d 0a 20 20 30 31 39 30 20 4c 45 54 20 58 59 24 3d 58 59 24 ┆110><111><112><113><114><115><116>" 0180 LET XY$=XY$,"<117><118><119><120><121><122><123><124><125><126>" 0190 LET XY$=XY$┆ 0x30900…30980 (59, 0, 21) 2c 22 3c 31 32 37 3e 22 0d 0a 20 20 30 32 30 30 20 4c 45 54 20 58 59 24 3d 58 59 24 2c 22 40 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 22 0d 0a 20 20 30 32 31 30 20 4c 45 54 20 58 59 24 3d 58 59 24 2c 22 20 21 3c 33 34 3e 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 22 0d 0a 20 20 30 32 32 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆,"<127>" 0200 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0210 LET XY$=XY$," !<34>#$%&'()*+,-./" 0220 REM ----------┆ 0x30980…30a00 (59, 0, 22) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 20 30 32 31 30 20 4c 45 54 20 58 59 24 3d 58 59 24 2c 22 20 21 3c 33 34 3e 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 22 0d 0a 20 20 30 32 32 30 20 52 45 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------------------------------------- 0210 LET XY$=XY$," !<34>#$%&'()*+,-./" 0220 REM ----------┆ 0x30a00…30a80 (59, 0, 23) 0c 20 20 33 30 30 30 20 50 52 4f 43 20 44 49 53 4b 4f 4e 54 0d 0a 20 20 33 30 30 31 20 20 20 52 45 50 45 41 54 0d 0a 20 20 33 30 30 32 20 20 20 20 20 4c 45 54 20 4f 4b 3d 31 0d 0a 20 20 33 30 30 33 20 20 20 20 20 43 4f 4e 4e 45 43 54 20 22 4f 56 45 52 53 49 47 54 22 2c 31 0d 0a 20 20 33 30 30 34 20 20 20 20 20 4f 50 45 4e 20 46 49 4c 45 28 31 2c 30 29 22 4b 4c 2d 4b 4f 44 45 22 0d ┆ 3000 PROC DISKONT 3001 REPEAT 3002 LET OK=1 3003 CONNECT "OVERSIGT",1 3004 OPEN FILE(1,0)"KL-KODE" ┆ 0x30a80…30b00 (59, 0, 24) 0a 20 20 33 30 30 35 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 31 2c 31 29 4b 4c 4b 4f 44 45 24 0d 0a 20 20 33 30 30 36 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 31 2c 32 29 4b 4c 54 52 49 4e 24 0d 0a 20 20 33 30 30 37 20 20 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 28 31 29 0d 0a 20 20 33 30 30 38 20 20 20 20 20 49 46 20 4b 4c 54 52 49 4e 24 3c 3e 43 48 45 43 4b 4c 24 20 54 48 ┆ 3005 READ FILE(1,1)KLKODE$ 3006 READ FILE(1,2)KLTRIN$ 3007 CLOSE FILE(1) 3008 IF KLTRIN$<>CHECKL$ TH┆ 0x30b00…30b80 (59, 0, 25) 45 4e 20 0d 0a 20 20 33 30 30 39 20 20 20 20 20 20 20 52 45 4c 45 41 53 45 20 0d 0a 20 20 33 30 31 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 33 29 3b 22 3c 33 31 3e 22 0d 0a 20 20 33 30 31 31 20 20 20 20 20 20 20 4c 45 54 20 4f 4b 3d 30 0d 0a 20 20 33 30 31 32 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 ┆EN 3009 RELEASE 3010 PRINT "<134>";XY$(1);XY$(3);"<31>" 3011 LET OK=0 3012 PRINT "<134>";X┆ 0x30b80…30c00 (59, 0, 26) 59 24 28 31 35 29 3b 58 59 24 28 38 29 3b 22 44 55 20 48 41 52 20 49 4e 44 53 41 54 20 44 49 53 4b 45 54 54 45 20 3c 33 34 3e 22 3b 4b 4c 54 52 49 4e 24 3b 22 3c 33 34 3e 22 0d 0a 20 20 33 30 31 33 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 31 30 29 3b 22 44 55 20 53 4b 41 4c 20 49 4e 44 53 5b 54 54 45 20 44 49 53 4b 45 54 54 ┆Y$(15);XY$(8);"DU HAR INDSAT DISKETTE <34>";KLTRIN$;"<34>" 3013 PRINT "<134>";XY$(15);XY$(10);"DU SKAL INDSÆTTE DISKETT┆ 0x30c00…30c80 (60, 0, 1) 45 20 3c 33 34 3e 22 3b 43 48 45 43 4b 4c 24 3b 22 3c 33 34 3e 22 0d 0a 20 20 33 30 31 34 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 35 29 3b 58 59 24 28 31 32 29 3b 22 48 55 53 4b 20 41 54 20 4c 4f 43 4b 3c 33 34 3e 24 46 44 30 20 46 5c 52 20 44 55 20 55 44 53 4b 49 46 54 45 52 20 44 49 53 4b 45 54 54 45 4e 20 21 22 0d 0a 20 20 33 30 31 35 20 20 ┆E <34>";CHECKL$;"<34>" 3014 PRINT "<134>";XY$(15);XY$(12);"HUSK AT LOCK<34>$FD0 FØR DU UDSKIFTER DISKETTEN !" 3015 ┆ 0x30c80…30d00 (60, 0, 2) 20 20 20 20 20 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 31 37 29 3b 0d 0a 20 20 33 30 31 36 20 20 20 20 20 20 20 53 54 4f 50 0d 0a 20 20 33 30 31 37 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 30 31 38 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 30 31 39 20 20 20 55 4e 54 49 4c 20 4f 4b 0d 0a 20 20 33 30 32 30 20 45 4e 44 50 52 4f 43 20 44 49 53 4b ┆ PRINT "<134>";XY$(1);XY$(17); 3016 STOP 3017 ELSE 3018 ENDIF 3019 UNTIL OK 3020 ENDPROC DISK┆ 0x30d00…30d80 (60, 0, 3) 4f 4e 54 0d 0a 50 52 49 4e 54 20 22 3c 31 33 34 3e 22 3b 58 59 24 28 31 29 3b 58 59 24 28 31 37 29 3b 0d 0a 20 20 33 30 31 36 20 20 20 20 20 20 20 53 54 4f 50 0d 0a 20 20 33 30 31 37 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 33 30 31 38 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 33 30 31 39 20 20 20 55 4e 54 49 4c 20 4f 4b 0d 0a 20 20 33 30 32 30 20 45 4e 44 50 52 4f 43 20 44 49 53 4b ┆ONT PRINT "<134>";XY$(1);XY$(17); 3016 STOP 3017 ELSE 3018 ENDIF 3019 UNTIL OK 3020 ENDPROC DISK┆ 0x30d80…30e00 (60, 0, 4) 53 56 0b 19 01 85 00 00 07 43 e9 07 46 4f 52 4c 49 53 54 e2 42 1e 00 00 f7 e2 00 00 f7 f1 93 f3 7f f0 41 50 00 00 f7 f1 9d f3 7f 22 42 50 00 00 f7 e2 8e f3 7f 2d 42 3c 00 00 f7 e2 44 53 5b 54 54 45 53 20 49 20 46 44 30 e2 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 f1 b4 f1 b5 f1 a3 e2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆SV C FORLIST B AP "BP -B< DSÆTTES I FD0 ---------- -------------------- ┆ 0x30e00…30e80 (60, 0, 5) 00 00 00 00 00 00 00 00 00 00 00 0a 32 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 56 41 52 49 41 42 4c 45 52 20 46 4f 52 20 45 4c 45 56 44 41 54 41 00 00 14 1b 59 81 f3 7f 53 41 d0 00 00 f7 f1 82 f3 7f f0 ┆ 2V ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA Y SA ┆ 0x30e80…30f00 (60, 0, 6) 41 e0 00 00 f7 f1 83 f3 7f f0 41 e0 00 00 f7 f1 84 f3 7f 22 41 e0 00 00 f7 f1 85 f3 7f 2d 42 2a 00 00 f7 e2 00 1e 33 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 44 49 56 45 52 53 45 20 53 54 52 49 4e 47 20 ┆A A "A -B* 3V ----------------------------------------------------------------------- DIVERSE STRING ┆ 0x30f00…30f80 (60, 0, 7) 56 41 52 49 41 42 4c 45 52 00 00 28 1b 59 8b f3 7f 53 41 20 00 00 f7 f1 8c f3 7f f0 41 40 00 00 f7 f1 8d f3 7f f0 41 40 00 00 f7 f1 a3 f3 7f 22 41 20 00 00 f7 f1 8e f3 7f 2d 42 3c 00 00 f7 e2 00 32 16 59 91 f3 7f 53 41 40 00 00 f7 f1 92 f3 7f f0 41 20 00 00 f7 f1 93 f3 7f f0 41 50 00 00 f7 f1 9d f3 7f 22 42 50 00 00 f7 e2 00 3c 31 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆VARIABLER ( Y SA A@ A@ "A -B< 2 Y SA@ A AP "BP <1V ---------------┆ 0x30f80…31000 (60, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 4e 55 4d 45 52 49 53 4b 45 20 56 41 52 49 41 42 4c 45 52 00 42 00 46 0a 59 9e f3 7f 53 41 10 00 00 f1 7f 42 1e 00 00 f7 e2 00 50 36 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-------------------------------------------------------- NUMERISKE VARIABLER B F Y SA B P6V -------------------------┆ 0x31000…31080 (60, 0, 9) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 54 49 4c 44 45 4c 49 4e 47 20 41 46 20 4b 4f 4e 53 54 41 4e 54 45 20 56 5b 52 44 49 45 52 00 00 5a 0a 57 9d ed e9 0b 60 61 62 63 64 65 66 67 68 69 6a e2 00 64 0b 57 9d ed 9d f1 e9 0a 6b 6c 6d 6e 6f 70 71 72 73 74 e2 2d 00 6e 0b 57 9d ed 9d f1 ┆---------------------------------------------- TILDELING AF KONSTANTE VÆRDIER Z W `abcdefghij d W klmnopqrst - n W ┆ 0x31080…31100 (60, 0, 10) e9 0a 75 76 77 78 79 7a 7b 7c 7d 7e e2 2d 00 78 06 57 9d ed 9d f1 e9 01 7f e2 00 82 16 57 9d ed 9d f1 e9 20 40 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f e2 2d 00 8c 0e 57 9d ed 9d f1 e9 10 20 21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f e2 51 00 96 28 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ uvwxyzæøåü - x W W @ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_ - W !"#$%&'()*+,-./ Q (V -------------------------┆ 0x31100…31180 (60, 0, 11) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 4c 00 a0 03 35 a4 e2 00 aa 03 3c 00 e2 00 b4 20 5c e9 02 8c 86 f0 9d f3 7f 42 17 00 00 f7 f0 9d f3 7f 2d 41 10 00 00 f7 f0 e9 21 55 44 53 4b 52 49 56 4e 49 4e 47 20 41 46 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 e2 00 be ┆------------------------------------------------ L 5 < Ø B -A !UDSKRIVNING AF FORSØMMELSESLISTER ┆ 0x31180…31200 (60, 0, 12) 2e 5c e9 01 86 f0 9d f3 7f 7f 41 d0 00 00 f7 f0 9d f3 7f 2d 41 20 00 00 f7 f0 e9 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 4f 00 c8 26 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 50 00 00 f7 f0 e9 2d 41 20 3a 20 20 52 45 4e ┆.Ø A -A <------------------------------------------------------------ O &Ø A -AP -A : REN┆ 0x31200…31280 (60, 0, 13) 45 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 20 46 4f 52 20 41 4c 4c 45 20 4b 4c 41 53 53 45 52 e2 00 d2 29 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 70 00 00 f7 f0 e9 32 42 20 3a 20 20 52 45 4e 45 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 20 46 4f 52 20 45 4e 4b 45 4c 54 20 4b 4c 41 53 53 45 54 52 49 4e e2 2d 00 dc 28 5c e9 01 86 f0 ┆E FORSØMMELSESLISTER FOR ALLE KLASSER )Ø A -Ap 2B : RENE FORSØMMELSESLISTER FOR ENKELT KLASSETRIN - (Ø ┆ 0x31280…31300 (60, 0, 14) 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 90 00 00 f7 f0 e9 31 43 20 3a 20 20 52 45 4e 45 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 20 46 4f 52 20 45 4e 20 45 4e 4b 45 4c 54 20 4b 4c 41 53 53 45 e2 00 e6 26 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 b0 00 00 f7 f0 e9 2d 44 20 3a 20 20 48 4f 4c 44 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 ┆ A -A 1C : RENE FORSØMMELSESLISTER FOR EN ENKELT KLASSE &Ø A -A -D : HOLD FORSØMMELSESLIST┆ 0x31300…31380 (60, 0, 15) 45 52 20 46 4f 52 20 41 4c 4c 45 20 4b 4c 41 53 53 45 52 e2 00 f0 29 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 d0 00 00 f7 f0 e9 32 45 20 3a 20 20 48 4f 4c 44 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 20 46 4f 52 20 45 4e 4b 45 4c 54 20 4b 4c 41 53 53 45 54 52 49 4e e2 2d 00 fa 28 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 41 f0 00 00 ┆ER FOR ALLE KLASSER )Ø A -A 2E : HOLD FORSØMMELSESLISTER FOR ENKELT KLASSETRIN - (Ø A -A ┆ 0x31380…31400 (60, 0, 16) f7 f0 e9 31 46 20 3a 20 20 48 4f 4c 44 20 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 52 20 46 4f 52 20 45 4e 20 45 4e 4b 45 4c 54 20 4b 4c 41 53 53 45 e2 01 04 1f 5c e9 01 86 f0 9d f3 7f 7f 41 f0 00 00 f7 f0 9d f3 7f 2d 42 11 00 00 f7 f0 e9 1f 47 20 3a 20 20 54 49 4c 42 41 47 45 20 54 49 4c 20 48 4f 56 45 44 4f 50 4c 59 53 4e 49 4e 47 e2 01 0e 2e 5c e9 01 86 f0 9d f3 7f 7f ┆ 1F : HOLD FORSØMMELSESLISTER FOR EN ENKELT KLASSE Ø A -B G : TILBAGE TIL HOVEDOPLYSNING .Ø ┆ 0x31400…31480 (60, 0, 17) 41 d0 00 00 f7 f0 9d f3 7f 2d 42 14 00 00 f7 f0 e9 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d e2 4f 01 18 03 3c 00 01 01 22 0f 5c e9 01 86 f0 9d f3 7f 7f 42 1a 00 00 f7 f0 9d f3 7f 2d 42 17 00 00 f7 f0 e2 3c 01 2c 12 5b e9 1b 48 56 49 4c 4b 45 ┆A -B <------------------------------------------------------------ O < " Ø B -B < , Æ HVILKE┆ 0x31480…31500 (60, 0, 18) 4e 20 50 52 4f 43 45 44 55 52 45 20 56 5b 4c 47 45 53 20 3a 20 f1 8b e2 01 36 08 3b 8b ec e9 01 41 e8 8b ee e9 01 47 e2 01 40 04 38 8b 32 e2 01 01 4a 03 56 00 32 01 54 04 37 e9 01 41 e2 01 5e 07 57 a5 ed 7f e2 41 10 00 00 e2 01 01 68 07 3d a5 ee 7f e2 41 30 00 00 3f e2 01 72 04 38 a5 32 e2 e2 01 7c 03 56 00 32 01 86 06 37 7f 32 41 10 00 00 e2 00 01 90 06 57 8c ed e9 03 31 2e 47 e2 ┆N PROCEDURE VÆLGES : 6 ; A G @ 8 2 J V 2 T 7 A ^ W A h = A0 ? r 8 2 ø V 2 7 2A W 1.G ┆ 0x31500…31580 (60, 0, 19) 01 9a 06 37 7f ed 41 20 00 00 e2 e2 01 a4 06 57 8c ed e9 03 32 2e 47 e2 01 ae 06 37 7f ed 41 30 00 00 e2 e2 01 b8 06 57 8c ed e9 03 33 2e 47 e2 01 c2 03 36 00 ed 01 cc 03 34 a6 e2 01 d6 03 34 a7 e2 01 e0 08 57 a5 ed a5 f9 7f 2e 41 10 00 00 e2 e2 01 ea 03 39 00 ed 01 f4 04 37 e9 01 42 e2 01 fe 10 5c e9 01 86 f0 9d f3 7f 10 41 10 00 00 f7 f0 9d f3 7f 52 41 30 00 00 f7 f0 e9 01 1f e2 ┆ 7 A W 2.G 7 A0 W 3.G 6 4 4 W .A 9 7 B Ø A RA0 ┆ 0x31580…31600 (60, 0, 20) 02 08 0f 5c e9 01 86 f0 9d f3 7f 10 41 f0 00 00 f7 f0 9d f3 7f 52 41 80 00 00 f7 f0 e2 01 02 12 1e 5b e9 33 46 4f 52 20 48 56 49 4c 4b 45 54 20 4b 4c 41 53 53 45 54 52 49 4e 20 5c 4e 53 4b 45 53 20 4c 49 53 54 45 52 4e 45 20 55 44 53 4b 52 45 56 45 54 20 3a 20 f1 8c e2 02 1c 03 34 a6 e2 02 26 03 34 a7 e2 02 30 04 37 e9 01 43 e2 02 3a 10 5c e9 01 86 f0 9d f3 7f 56 41 10 00 00 f7 f0 ┆ Ø A RA Æ 3FOR HVILKET KLASSETRIN ØNSKES LISTERNE UDSKREVET : 4 & 4 0 7 C : Ø VA ┆ 0x31600…31680 (60, 0, 21) 9d f3 7f 53 41 30 00 00 f7 f0 e9 01 1f e2 02 44 0f 5c e9 01 86 f0 9d f3 7f 56 41 f0 00 00 f7 f0 9d f3 7f 53 41 80 00 00 f7 f0 e2 01 02 4e 03 3c 00 01 02 58 1b 5b e9 2c 46 4f 52 48 56 49 4c 4b 45 4e 20 4b 4c 41 53 53 45 20 5c 4e 53 4b 45 53 20 4c 49 53 54 45 4e 20 55 44 53 4b 52 45 56 45 54 20 3a 20 f1 91 e2 54 02 62 17 3b 91 f3 7f 4f 41 10 00 00 f7 ec e9 01 31 e8 91 f3 7f 53 41 10 ┆ SA0 D Ø VA SA N < X Æ ,FORHVILKEN KLASSE ØNSKES LISTEN UDSKREVET : T b ; OA 1 SA ┆ 0x31680…31700 (60, 0, 22) 00 00 f7 ee e9 01 33 e3 91 f3 7f 45 41 10 00 00 f7 ed e9 01 49 e2 02 6c 0d 3d 91 f3 7f 4f 41 10 00 00 f1 7f 41 20 00 00 f7 ea e9 02 49 4e 3f e2 02 76 0b 57 8c ed 91 f3 7f 10 41 10 00 00 f7 f1 e9 02 2e 47 e2 02 02 80 03 34 a6 e2 02 8a 07 57 a8 ed 7f f3 41 10 00 00 e2 00 02 94 06 3d a8 ef 79 f2 8e f6 3f e2 02 9e 12 4c 91 f3 7f f2 41 10 00 00 f1 7f 41 20 00 00 f7 ed 8e f3 a8 f1 a8 f9 ┆ 3 EA I l = OA A IN? v W A .G 4 W A = y ? L A A ┆ 0x31700…31780 (60, 0, 23) 7f ee 41 10 00 00 f7 e7 e2 45 02 a8 0d 57 92 ed 8e f3 a8 f9 7f 00 41 20 00 00 f1 a8 f9 7f 41 30 00 00 f7 e2 02 b2 0b 57 a9 ed a8 f9 7f f9 41 20 00 00 f0 a8 ed 79 f2 8e f6 e2 02 bc 03 3a 00 ed 02 c6 08 57 a8 ed a8 f9 7f f9 41 40 00 00 e2 a8 02 d0 03 39 00 ed 02 da 07 4c 79 f2 92 f6 ed 40 00 e7 e2 00 02 e4 1a 5c e9 01 86 f0 9d f3 7f e7 41 f0 00 00 f7 f0 9d f3 7f e2 41 80 00 00 f7 f0 ┆ A E W A A0 W A y : W A@ 9 Ly @ Ø A A ┆ 0x31780…31800 (60, 0, 24) e9 14 46 45 4a 4c 2d 49 4e 44 54 41 53 54 4e 49 4e 47 20 3a 07 1e e2 91 02 ee 1f 5c e9 01 86 f0 9d f3 7f e7 41 f0 00 00 f7 f0 9d f3 7f e2 41 90 00 00 f7 f0 91 f0 e9 1d 20 49 4e 44 45 48 4f 4c 44 45 53 20 49 4b 4b 45 20 49 20 53 59 53 54 45 4d 45 54 20 1e e2 02 f8 06 2b ed 7f 41 50 00 00 e2 e7 03 02 10 5c e9 01 86 f0 9d f3 7f e7 41 10 00 00 f7 f0 9d f3 7f e2 41 30 00 00 f7 f0 e9 01 ┆ FEJL-INDTASTNING : Ø A A INDEHOLDES IKKE I SYSTEMET + AP Ø A A0 ┆ 0x31800…31880 (60, 0, 25) 1f e2 03 0c 03 3e 00 01 03 16 07 29 92 f1 7f f0 41 10 00 00 e2 10 03 20 03 3a 00 f1 03 2a 08 4c 79 f2 92 f6 ea 40 00 e7 34 aa e2 00 03 34 0f 5c e9 01 86 f0 9d f3 7f e7 41 f0 00 00 f7 f0 9d f3 7f e2 41 80 00 00 f7 f0 e2 01 03 3e 03 3c 00 01 03 48 1c 5b e9 2e 46 4f 52 20 48 56 49 4c 4b 45 4e 20 4b 4c 41 53 53 45 20 5c 4e 53 4b 45 53 20 4c 49 53 54 45 4e 20 55 44 53 4b 52 45 56 45 54 ┆ > ) A : * Ly @ 4 4 Ø A A > < H Æ .FOR HVILKEN KLASSE ØNSKES LISTEN UDSKREVET┆ 0x31880…31900 (60, 0, 26) 20 3a 20 1e f1 91 e2 45 03 52 17 3b 91 f3 7f 4f 41 10 00 00 f7 ec e9 01 31 e8 91 f3 7f 53 41 10 00 00 f7 ee e9 01 33 e3 91 f3 7f 54 41 10 00 00 f7 ed e9 01 49 e2 03 5c 03 39 00 f3 03 66 03 36 00 f3 03 70 05 3b 8b ed e9 01 47 e2 03 7a 07 33 20 49 4e 46 4f 52 4d 41 54 00 03 84 28 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ : E R ; OA 1 SA 3 TA I Ø 9 f 6 p ; G z 3 INFORMAT (V ---------------------------------┆ 0x31900…31980 (61, 0, 1) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d 03 8e 03 35 aa e2 03 98 0e 46 de f3 7f 2d 41 10 00 00 f1 40 00 f7 e9 08 4e 52 2d 47 52 2d 4e 41 e2 2d 03 a2 0e 46 de f3 7f 2d 41 20 00 00 f1 40 00 f7 e9 08 4e 55 4d 45 52 49 53 4b e2 2d 03 ac 0f 46 de f3 7f 2d 41 40 00 00 f1 7f 41 10 00 00 f7 e9 08 45 4e 52 ┆---------------------------------------- - 5 F -A @ NR-GR-NA - F -A @ NUMERISK - F -A@ A ENR┆ 0x31980…31a00 (61, 0, 2) 2d 52 4e 52 2e e2 03 b6 0d 46 de f3 7f 2d 41 70 00 00 f1 7f 41 b0 00 00 f7 e9 04 24 4c 50 54 e2 03 c0 08 58 5d de f3 7f 41 40 00 00 f7 9e e2 b0 03 ca 07 47 de f3 7f 7f 41 40 00 00 f7 e2 03 d4 0e 57 ab ed 7f 7f 41 10 00 00 f0 a8 ed 40 00 f0 ac ed 40 00 f0 ad ed 40 00 e2 03 de 03 3c 00 ed 03 e8 08 57 ad ed ad f9 7f 10 41 10 00 00 e2 40 03 f2 19 3b 9e f3 7f f9 41 10 00 00 f1 ad f7 ec ┆-RNR. F -Ap A $LPT XÅ A@ G A@ W A @ @ @ < W A @ ; A ┆ 0x31a00…31a80 (61, 0, 3) 7f f0 41 10 00 00 e8 9e f3 7f 41 10 00 00 f1 ad f7 ee 7f 2d 42 1e 00 00 e3 ad ed 7f 42 1e 00 00 e2 2d 03 fc 1d 4c ad ec 7f f9 41 10 00 00 e8 ad ee 7f 42 1e 00 00 e8 9e f3 7f 41 10 00 00 f1 ad f7 ec 7f ee 41 10 00 00 e8 9e f3 7f 41 10 00 00 f1 ad f7 ee 7f 2d 42 1e 00 00 e7 e2 04 06 03 34 ae e2 04 10 07 57 ab ed 40 00 f0 af ed 40 00 e2 04 1a 07 3d a8 ee 7f 00 42 1e 00 00 3f e2 04 24 ┆ A A -B B - L A B A A A -B 4 W @ @ = B ? $┆ 0x31a80…31b00 (61, 0, 4) 07 4c a8 ee 7f 00 42 1d 00 00 e7 e2 04 2e 03 3c 00 ee 04 38 08 57 a8 ed a8 f9 7f 1d 41 10 00 00 e2 7f 04 42 18 3b f2 9e f3 7f 41 10 00 00 f1 a8 f7 ea 40 00 e8 9e f3 7f 41 10 00 00 f1 a8 f7 ef 7f ec 42 64 00 00 f6 e3 a8 ed 7f 7f 42 1e 00 00 e2 ad 04 4c 09 57 b0 ed 9e f3 7f 10 41 10 00 00 f1 a8 f7 e2 04 56 0f 4c b0 ec 7f f3 41 10 00 00 e8 b0 ee 7f 42 1e 00 00 e8 a8 ee 7f 42 1e 00 00 ┆ L B . < 8 W A B ; A @ A Bd B L W A V L A B B ┆ 0x31b00…31b80 (61, 0, 5) e7 e2 04 60 0d 5d de f3 7f f3 41 10 00 00 f1 b0 f7 b1 f1 93 f1 82 f1 83 f1 84 e2 1e 04 6a 0c 5d de f3 7f f3 41 20 00 00 f1 b0 f7 b2 f1 b3 f1 b4 f1 b5 e2 84 04 74 05 4c b4 ea 40 00 e7 e2 04 7e 09 57 b6 ed f2 b2 fb 7f 42 64 00 00 f6 fa b4 e2 04 88 0b 4c b6 ec 7f b2 41 a0 00 00 e8 b6 ef 7f 41 f0 00 00 e7 e2 04 92 05 57 a3 ed e9 01 41 e2 04 9c 03 3e 00 ed 04 a6 0b 4c b6 ec 7f 01 41 f0 ┆ ` Å A j Å A t L @ ü W Bd L A A W A > L A ┆ 0x31b80…31c00 (61, 0, 6) 00 00 e8 b6 ef 7f 42 14 00 00 e7 e2 04 b0 05 57 a3 ed e9 01 42 e2 04 ba 03 3e 00 ed 04 c4 07 4c b6 ec 7f 01 42 14 00 00 e7 e2 04 ce 05 57 a3 ed e9 01 43 e2 04 d8 03 3e 00 ed 04 e2 05 57 a3 ed e9 01 20 e2 04 ec 03 3a 00 ed 04 f6 03 3a 00 ed 05 00 03 3a 00 ed 05 0a 03 3e 00 ed 05 14 05 57 a3 ed e9 01 20 e2 05 1e 03 3a 00 ed 05 28 03 34 ae e2 05 32 03 3a 00 e2 05 3c 03 3e 00 e2 05 46 ┆ B W B > L B W C > W : : : > W : ( 4 2 : < > F┆ 0x31c00…31c80 (61, 0, 7) 07 57 a8 ed 7f 01 42 1f 00 00 e2 e2 05 50 03 3a 00 ed 05 5a 03 39 00 ed 05 64 07 57 ac ed 7f 01 41 10 00 00 e2 e2 05 6e 03 34 ae e2 05 78 09 5c de f3 7f 01 41 70 00 00 f7 e9 01 0c e2 14 05 82 03 3a 00 f3 05 8c 07 33 20 4b 4c 41 53 4c 5b 53 00 e9 05 96 28 56 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ W B P : Z 9 d W A n 4 x Ø Ap : 3 KLASLÆS (V -----------------------------------------┆ 0x31c80…31d00 (61, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 2d 05 a0 03 35 ae e2 05 aa 1b 5c e9 01 86 f0 9d f3 7f 2d 42 39 00 00 f7 f0 9d f3 7f 2d 41 10 00 00 f7 f0 e9 04 46 4f 52 20 f0 8e f3 a9 f8 7f 41 20 00 00 f1 a9 f8 7f 41 10 00 00 f7 e2 05 b4 04 2e ed 40 00 e2 05 be 04 4c ab e7 e2 e2 05 c8 0a 53 b7 ed 7f e2 41 10 00 00 e4 7f 41 20 00 00 ┆-------------------------------- - 5 Ø -B9 -A FOR A A . @ L S A A ┆ 0x31d00…31d80 (61, 0, 9) e2 f3 05 d2 27 5c de f3 7f e2 41 70 00 00 f7 f0 e9 20 0e 20 20 20 20 20 20 20 20 2d 46 4f 52 53 5c 4d 4d 45 4c 53 45 53 4c 49 53 54 45 20 46 4f 52 20 f0 8e f3 a9 f8 7f 41 20 00 00 f1 a9 f8 7f 41 10 00 00 f7 f0 e9 01 2d f0 e9 01 0d f0 e2 2d 05 dc 03 54 b7 e2 05 e6 09 5c de f3 7f e2 41 70 00 00 f7 e9 01 0a e2 20 05 f0 0a 53 b7 ed 7f e2 41 10 00 00 e4 7f 41 20 00 00 e2 20 05 fa 31 5c ┆ 'Ø Ap -FORSØMMELSESLISTE FOR A A - - T Ø Ap S A A 1Ø┆ 0x31d80…31e00 (61, 0, 10) de f3 7f e2 41 70 00 00 f7 e9 4c 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d f0 e9 01 0d f0 e2 54 06 04 03 54 b7 e2 06 0e 09 5c de f3 7f e2 41 70 00 00 f7 e9 02 0a 0a e2 06 18 0d 5c de f3 7f e2 41 70 ┆ Ap L -------------------------------------------------------------------- T T Ø Ap Ø Ap┆ 0x31e00…31e30 (61, 0, 11) 00 00 05 83 ff ff 00 ba 44 41 54 41 53 5c 47 45 00 00 05 83 00 1b 00 0e 4b 4c 41 53 4c 5b 53 00 ┆ DATASØGE KLASLÆS ┆ 0x31e00…31e30 00 00 05 75 00 5b 00 0a 44 49 53 4b 4f 4e 54 00 ┆ u Æ DISKONT ┆ 0x31e30…31e40 DirEnt {f00=0x0000, f01=0x056b, f02=0x0000, length=0x0031, name=»$FREE «} 0x31e40…31e50 DirEnt {f00=0x0000, f01=0x060c, f02=0x0028, length=0x004b, name=»FORLIST «} 0x31e50…31e60 DirEnt {f00=0x0000, f01=0x05c0, f02=0x0000, length=0x0001, name=»--------«} 0x31e60…31e70 DirEnt {f00=0x0000, f01=0x05c0, f02=0x0058, length=0x002f, name=»INFORMAT«} 0x31e70…31e80 DirEnt {f00=0x0000, f01=0x0591, f02=0x0010, length=0x0004, name=»GRENVALG«} 0x31e80…31e90 (61, 0, 12) DirEnt {f00=0x0000, f01=0x058d, f02=0x0059, length=0x000a, name=»DATASØGE«} 0x31e90…31ea0 DirEnt {f00=0x0000, f01=0x0583, f02=0x001b, length=0x000e, name=»KLASLÆS «} 0x31ea0…31eb0 DirEnt {f00=0x0000, f01=0x0575, f02=0x005b, length=0x000a, name=»DISKONT «} 0x31eb0…31ec0 DirEnt {f00=0x0000, f01=0x056b, f02=0x0050, length=0x0008, name=»CONNOM «} 0x31ec0…31ed0 DirEnt {f00=0x0000, f01=0x0563, f02=0x004e, length=0x000d, name=»FORMAT «} 0x31ed0…31ee0 DirEnt {f00=0x0000, f01=0x0556, f02=0x0037, length=0x0003, name=»CONNKLAS«} 0x31ee0…31ef0 DirEnt {f00=0x0000, f01=0x0553, f02=0x003a, length=0x0004, name=»BREVVALG«} 0x31ef0…31f00 DirEnt {f00=0x0000, f01=0x054f, f02=0x0046, length=0x000a, name=»DIM «} 0x31f00…325e1 (61, 0, 13) ⟦d7f56e46b⟧ 0x325e1…32600 Opaque[0x1f] 0x32600…32bd6 (62, 0, 1) ⟦b2262a36d⟧ 0x32bd6…32c00 Opaque[0x2a] 0x32c00…32e6a (62, 0, 13) ⟦630477c08⟧ 0x32e6a…32e80 Opaque[0x16] 0x32e80…331a6 (62, 0, 18) ⟦51b42e697⟧ 0x331a6…33200 Opaque[0x5a] 0x33200…336dc (62, 0, 25) ⟦e2f4485cc⟧ 0x336dc…33700 Opaque[0x24] 0x33700…33969 (63, 0, 9) ⟦2e38df20b⟧ 0x33969…33980 Opaque[0x17] 0x33980…33e5c (63, 0, 14) ⟦51d81c774⟧ 0x33e5c…33e80 Opaque[0x24] 0x33e80…3581c (63, 0, 24) ⟦fc9af90b6⟧ 0x3581c…35880 Opaque[0x64] 0x35880…35900 (65, 0, 24) Opaque[0x80] 0x35900…37d4a (65, 0, 25) ⟦4735054ae⟧ 0x37d4a…37d80 Opaque[0x36] 0x37d80…37e00 (68, 0, 20) 0xe5[0x80] […0x3a…] 0x39b00…39b50 (71, 0, 1) 00 00 06 7e ff ff 00 b9 4b 4c 4c 49 53 54 45 52 00 00 06 7e 00 5c 00 0a 44 49 53 4b 4f 4e 54 00 ┆ ü KLLISTER ü Ø DISKONT ┆ 0x39b00…39b50 00 00 06 74 00 69 00 05 4b 4c 41 53 53 43 41 4e 00 00 06 6f 00 5c 00 0a 43 4f 4e 4e 47 52 45 4e ┆ t i KLASSCAN o Ø CONNGREN┆ 0x39b00…39b50 00 00 06 65 00 26 00 07 43 4f 4e 4e 4b 4c 41 53 ┆ e & CONNKLAS┆ 0x39b50…39b60 DirEnt {f00=0x0000, f01=0x065e, f02=0x0000, length=0x003b, name=»$FREE «} 0x39b60…39b70 DirEnt {f00=0x0000, f01=0x06fc, f02=0x004a, length=0x0049, name=»KLLISTE «} 0x39b70…39b80 DirEnt {f00=0x0000, f01=0x06b2, f02=0x0000, length=0x0001, name=»--------«} 0x39b80…39b90 (71, 0, 2) DirEnt {f00=0x0000, f01=0x06b2, f02=0x001c, length=0x0034, name=»KLLISTER«} 0x39b90…39ba0 DirEnt {f00=0x0000, f01=0x067e, f02=0x005c, length=0x000a, name=»DISKONT «} 0x39ba0…39bb0 DirEnt {f00=0x0000, f01=0x0674, f02=0x0069, length=0x0005, name=»KLASSCAN«} 0x39bb0…39bc0 DirEnt {f00=0x0000, f01=0x066f, f02=0x005c, length=0x000a, name=»CONNGREN«} 0x39bc0…39bd0 DirEnt {f00=0x0000, f01=0x0665, f02=0x0026, length=0x0007, name=»CONNKLAS«} 0x39bd0…39be0 DirEnt {f00=0x0000, f01=0x065e, f02=0x006a, length=0x0005, name=»KLASLÆS «} 0x39be0…39bf0 DirEnt {f00=0x0000, f01=0x0659, f02=0x0056, length=0x000c, name=»FORMAT «} 0x39bf0…39c00 DirEnt {f00=0x0000, f01=0x064d, f02=0x0061, length=0x000e, name=»DIM «} 0x39c00…39c80 (71, 0, 3) 07 3b 44 45 4c 50 52 4f 43 45 44 55 52 45 20 44 00 00 4b 45 00 00 00 a1 24 46 52 45 45 00 00 00 00 00 4b 45 00 00 00 a5 24 46 52 45 45 00 00 00 00 00 4b 45 00 00 00 ea 24 46 52 45 45 00 00 00 00 00 06 4f 00 5a 00 33 46 4f 52 4c 49 53 54 00 00 00 06 1c 00 05 00 07 44 49 53 4b 4f 4e 54 00 00 00 06 15 00 41 00 0d 44 49 4d 00 00 00 00 00 00 00 06 08 00 7b 00 02 43 4f 4e 4e 4b 4c 41 53 ┆ ;DELPROCEDURE D KE $FREE KE $FREE KE $FREE O Z 3FORLIST DISKONT A DIM æ CONNKLAS┆ 0x39c80…39c90 (71, 0, 4) DirEnt {f00=0x0000, f01=0x0000, f02=0x0000, length=0x00f9, name=»$FREE «} 0x39c90…39ca0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x00fa, name=»KLLISTE «} 0x39ca0…39cb0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x00fa, name=»FORLIST «} 0x39cb0…39cc0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x01c2, name=»ELEVRET «} 0x39cc0…39cd0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x015e, name=»BREV «} 0x39cd0…39ce0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x0096, name=»FORSØM «} 0x39ce0…39cf0 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x015e, name=»OPDATER «} 0x39cf0…39d00 DirEnt {f00=0x0000, f01=0x0001, f02=0x0000, length=0x002f, name=»PROGRAM «} 0x39d00…39d80 (71, 0, 5) 0xe5[0x80] […0x97…]